Home » Archimedes archive » Acorn User » AU 1997-09 B.adf » Regulars » StarInfo/vanMourik/Ant
StarInfo/vanMourik/Ant
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-09 B.adf » Regulars |
| Filename: | StarInfo/vanMourik/Ant |
| Read OK: | ✔ |
| File size: | 01B6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Ant 20REM JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 1995 30MODE18:DIMv%(99),w%(99):OFF:REM BAREBONE FAST VERSION. 40v%(0)=-2:w%(1)=2:v%(2)=2:w%(3)=-2:*POINTER 50FOR I%=4TO99:v%(I%)=v%(I%-4):w%(I%)=w%(I%-4):NEXT 60D%=50:GCOL1:RECTANGLE FILL 0,0,640,1024 65PRINT"PLACE AN ANT":REPEAT:MOUSE X%,Y%,Z%:UNTILZ%:*POINTER 0 67RECTANGLE FILL 0,0,640,1024:GCOL3,1 70 80REM MAIN LOOP 90REPEAT 100FORI%=0TO22:X%+=v%(D%):Y%+=w%(D%):POINTX%,Y%:D%+=POINT(X%,Y%)*2-1:NEXT 110D%=D%MOD4+48:UNTIL0
� >Ant L� JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 1995 1�18:�v%(99),w%(99):�:� BAREBONE FAST VERSION. (.v%(0)=-2:w%(1)=2:v%(2)=2:w%(3)=-2:*POINTER 2/� I%=4�99:v%(I%)=v%(I%-4):w%(I%)=w%(I%-4):� < D%=50:�1:ȓ Ȑ 0,0,640,1024 A0�"PLACE AN ANT":�:ȗ X%,Y%,Z%:�Z%:*POINTER 0 Cȓ Ȑ 0,0,640,1024:�3,1 F P� MAIN LOOP Z� d<�I%=0�22:X%+=v%(D%):Y%+=w%(D%):ȒX%,Y%:D%+=�X%,Y%)*2-1:� nD%=D%�4+48:�0 �
00000000 0d 00 0a 0a f4 20 3e 41 6e 74 0d 00 14 4c f4 20 |..... >Ant...L. | 00000010 4a 45 41 4e 20 56 41 4e 20 4d 4f 55 52 49 4b 20 |JEAN VAN MOURIK | 00000020 4d 49 4c 4c 43 4f 54 54 41 47 45 20 44 45 52 57 |MILLCOTTAGE DERW| 00000030 59 44 44 20 41 4d 4d 41 4e 46 4f 52 44 20 44 59 |YDD AMMANFORD DY| 00000040 46 45 44 20 53 41 31 38 33 4c 51 20 20 55 4b 2e |FED SA183LQ UK.| 00000050 20 20 31 39 39 35 0d 00 1e 31 eb 31 38 3a de 76 | 1995...1.18:.v| 00000060 25 28 39 39 29 2c 77 25 28 39 39 29 3a 87 3a f4 |%(99),w%(99):.:.| 00000070 20 42 41 52 45 42 4f 4e 45 20 46 41 53 54 20 56 | BAREBONE FAST V| 00000080 45 52 53 49 4f 4e 2e 0d 00 28 2e 76 25 28 30 29 |ERSION...(.v%(0)| 00000090 3d 2d 32 3a 77 25 28 31 29 3d 32 3a 76 25 28 32 |=-2:w%(1)=2:v%(2| 000000a0 29 3d 32 3a 77 25 28 33 29 3d 2d 32 3a 2a 50 4f |)=2:w%(3)=-2:*PO| 000000b0 49 4e 54 45 52 0d 00 32 2f e3 20 49 25 3d 34 b8 |INTER..2/. I%=4.| 000000c0 39 39 3a 76 25 28 49 25 29 3d 76 25 28 49 25 2d |99:v%(I%)=v%(I%-| 000000d0 34 29 3a 77 25 28 49 25 29 3d 77 25 28 49 25 2d |4):w%(I%)=w%(I%-| 000000e0 34 29 3a ed 0d 00 3c 1f 44 25 3d 35 30 3a e6 31 |4):...<.D%=50:.1| 000000f0 3a c8 93 20 c8 90 20 30 2c 30 2c 36 34 30 2c 31 |:.. .. 0,0,640,1| 00000100 30 32 34 0d 00 41 30 f1 22 50 4c 41 43 45 20 41 |024..A0."PLACE A| 00000110 4e 20 41 4e 54 22 3a f5 3a c8 97 20 58 25 2c 59 |N ANT":.:.. X%,Y| 00000120 25 2c 5a 25 3a fd 5a 25 3a 2a 50 4f 49 4e 54 45 |%,Z%:.Z%:*POINTE| 00000130 52 20 30 0d 00 43 1b c8 93 20 c8 90 20 30 2c 30 |R 0..C... .. 0,0| 00000140 2c 36 34 30 2c 31 30 32 34 3a e6 33 2c 31 0d 00 |,640,1024:.3,1..| 00000150 46 05 20 0d 00 50 0f f4 20 4d 41 49 4e 20 4c 4f |F. ..P.. MAIN LO| 00000160 4f 50 0d 00 5a 05 f5 0d 00 64 3c e3 49 25 3d 30 |OP..Z....d<.I%=0| 00000170 b8 32 32 3a 58 25 2b 3d 76 25 28 44 25 29 3a 59 |.22:X%+=v%(D%):Y| 00000180 25 2b 3d 77 25 28 44 25 29 3a c8 92 58 25 2c 59 |%+=w%(D%):..X%,Y| 00000190 25 3a 44 25 2b 3d b0 58 25 2c 59 25 29 2a 32 2d |%:D%+=.X%,Y%)*2-| 000001a0 31 3a ed 0d 00 6e 11 44 25 3d 44 25 83 34 2b 34 |1:...n.D%=D%.4+4| 000001b0 38 3a fd 30 0d ff |8:.0..| 000001b6
.