Home » Archimedes archive » Acorn User » AU 1997-09 B.adf » Regulars » StarInfo/vanMourik/Ant2
StarInfo/vanMourik/Ant2
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/Ant2 |
| Read OK: | ✔ |
| File size: | 0442 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>Ant2 20REM JEAN VAN MOURIK 1996 30REM USES 8 DIRECTIONS 40ON ERROR PRINT"INITIAL CONDITIONS;":PRINT"P1 AT ";X1%;" , ";Y1%;" DIR= ";D1%:PRINT"P2 AT ";M1%;" , ";N1%;" DIR= ";E1%:PRINT"P3 AT ";S1%;" , ";T1%;" DIR= ";F1%:REPORT:END 60C%=2:DIMT%(1):T%(0)=-1:T%(1)=1:P%=0 70DIM v%(99),w%(99):FOR I%=0TO7:READ v%(I%),w%(I%):NEXT 80FOR I%=8TO99:v%(I%)=v%(I%-8):w%(I%)=w%(I%-8):NEXT:v%()+=1280:w%()+=1024 85 90X1%=640+RND(222)-111:Y1%=512+RND(222)-111:M1%=640+RND(222)-111:N1%=512+RND(222)-111:S1%=640+RND(222)-111:T1%=512+RND(222)-111:X%=X1%:Y%=Y1%:M%=M1%:N%=N1%:S%=S1%:T%=T1% 100MODE18:GCOL3,1:D1%=40+RND(8):E1%=40+RND(8):F1%=40+RND(8):D%=D1%:E%=E1%:F%=F1%:MOVE0,512:DRAW 1280,512:OFF 105IF P%=0 PRINT"ON ESCAPE THE STARTING PARAMETERS ARE DISPLAYED.":PRINT"CLICK MOUSE TO CLEAR SCREEN":P%=1 110 120REM MAIN LOOP 130REPEAT:MOUSE A%,B%,C%:IFC% REPEAT:MOUSE A%,B%,G%:A%=RND:UNTILG%=0:GOTO 90 140FORI%=0TO22:D%+=T%(POINT(X%,Y%)):POINTX%,Y%:X%=(X%+v%(D%))MOD1280:Y%=(Y%+w%(D%))MOD1024:E%+=T%(POINT(M%,N%)):POINTM%,N%:M%=(M%+v%(E%))MOD1280:N%=(N%+w%(E%))MOD1024 145F%+=T%(POINT(S%,T%)):POINTS%,T%:S%=(S%+v%(F%))MOD1280:T%=(T%+w%(F%))MOD1024:NEXT 150D%=D%MOD8+48:E%=E%MOD8+48:F%=F%MOD8+48:UNTIL0 160 170DATA -C%,C%,0,C%,C%,C%,C%,0,C%,-C%,0,-C%,-C%,-C%,-C%,0
�>Ant2 � JEAN VAN MOURIK 1996 � USES 8 DIRECTIONS (�� � �"INITIAL CONDITIONS;":�"P1 AT ";X1%;" , ";Y1%;" DIR= ";D1%:�"P2 AT ";M1%;" , ";N1%;" DIR= ";E1%:�"P3 AT ";S1%;" , ";T1%;" DIR= ";F1%:�:� <%C%=2:�T%(1):T%(0)=-1:T%(1)=1:P%=0 F.� v%(99),w%(99):� I%=0�7:� v%(I%),w%(I%):� PE� I%=8�99:v%(I%)=v%(I%-8):w%(I%)=w%(I%-8):�:v%()+=1280:w%()+=1024 U Z�X1%=640+�(222)-111:Y1%=512+�(222)-111:M1%=640+�(222)-111:N1%=512+�(222)-111:S1%=640+�(222)-111:T1%=512+�(222)-111:X%=X1%:Y%=Y1%:M%=M1%:N%=N1%:S%=S1%:T%=T1% dY�18:�3,1:D1%=40+�(8):E1%=40+�(8):F1%=40+�(8):D%=D1%:E%=E1%:F%=F1%:�0,512:� 1280,512:� ib� P%=0 �"ON ESCAPE THE STARTING PARAMETERS ARE DISPLAYED.":�"CLICK MOUSE TO CLEAR SCREEN":P%=1 n x� MAIN LOOP �5�:ȗ A%,B%,C%:�C% �:ȗ A%,B%,G%:A%=�:�G%=0:� �DZ@ ���I%=0�22:D%+=T%(�X%,Y%)):ȒX%,Y%:X%=(X%+v%(D%))�1280:Y%=(Y%+w%(D%))�1024:E%+=T%(�M%,N%)):ȒM%,N%:M%=(M%+v%(E%))�1280:N%=(N%+w%(E%))�1024 �EF%+=T%(�S%,T%)):ȒS%,T%:S%=(S%+v%(F%))�1280:T%=(T%+w%(F%))�1024:� �'D%=D%�8+48:E%=E%�8+48:F%=F%�8+48:�0 � �7� -C%,C%,0,C%,C%,C%,C%,0,C%,-C%,0,-C%,-C%,-C%,-C%,0 �
00000000 0d 00 0a 0a f4 3e 41 6e 74 32 0d 00 14 1a f4 20 |.....>Ant2..... | 00000010 4a 45 41 4e 20 56 41 4e 20 4d 4f 55 52 49 4b 20 |JEAN VAN MOURIK | 00000020 31 39 39 36 0d 00 1e 17 f4 20 55 53 45 53 20 38 |1996..... USES 8| 00000030 20 44 49 52 45 43 54 49 4f 4e 53 0d 00 28 91 ee | DIRECTIONS..(..| 00000040 20 85 20 f1 22 49 4e 49 54 49 41 4c 20 43 4f 4e | . ."INITIAL CON| 00000050 44 49 54 49 4f 4e 53 3b 22 3a f1 22 50 31 20 41 |DITIONS;":."P1 A| 00000060 54 20 22 3b 58 31 25 3b 22 20 2c 20 22 3b 59 31 |T ";X1%;" , ";Y1| 00000070 25 3b 22 20 44 49 52 3d 20 22 3b 44 31 25 3a f1 |%;" DIR= ";D1%:.| 00000080 22 50 32 20 41 54 20 22 3b 4d 31 25 3b 22 20 2c |"P2 AT ";M1%;" ,| 00000090 20 22 3b 4e 31 25 3b 22 20 44 49 52 3d 20 22 3b | ";N1%;" DIR= ";| 000000a0 45 31 25 3a f1 22 50 33 20 41 54 20 22 3b 53 31 |E1%:."P3 AT ";S1| 000000b0 25 3b 22 20 2c 20 22 3b 54 31 25 3b 22 20 44 49 |%;" , ";T1%;" DI| 000000c0 52 3d 20 22 3b 46 31 25 3a f6 3a e0 0d 00 3c 25 |R= ";F1%:.:...<%| 000000d0 43 25 3d 32 3a de 54 25 28 31 29 3a 54 25 28 30 |C%=2:.T%(1):T%(0| 000000e0 29 3d 2d 31 3a 54 25 28 31 29 3d 31 3a 50 25 3d |)=-1:T%(1)=1:P%=| 000000f0 30 0d 00 46 2e de 20 76 25 28 39 39 29 2c 77 25 |0..F.. v%(99),w%| 00000100 28 39 39 29 3a e3 20 49 25 3d 30 b8 37 3a f3 20 |(99):. I%=0.7:. | 00000110 76 25 28 49 25 29 2c 77 25 28 49 25 29 3a ed 0d |v%(I%),w%(I%):..| 00000120 00 50 45 e3 20 49 25 3d 38 b8 39 39 3a 76 25 28 |.PE. I%=8.99:v%(| 00000130 49 25 29 3d 76 25 28 49 25 2d 38 29 3a 77 25 28 |I%)=v%(I%-8):w%(| 00000140 49 25 29 3d 77 25 28 49 25 2d 38 29 3a ed 3a 76 |I%)=w%(I%-8):.:v| 00000150 25 28 29 2b 3d 31 32 38 30 3a 77 25 28 29 2b 3d |%()+=1280:w%()+=| 00000160 31 30 32 34 0d 00 55 05 20 0d 00 5a 9f 58 31 25 |1024..U. ..Z.X1%| 00000170 3d 36 34 30 2b b3 28 32 32 32 29 2d 31 31 31 3a |=640+.(222)-111:| 00000180 59 31 25 3d 35 31 32 2b b3 28 32 32 32 29 2d 31 |Y1%=512+.(222)-1| 00000190 31 31 3a 4d 31 25 3d 36 34 30 2b b3 28 32 32 32 |11:M1%=640+.(222| 000001a0 29 2d 31 31 31 3a 4e 31 25 3d 35 31 32 2b b3 28 |)-111:N1%=512+.(| 000001b0 32 32 32 29 2d 31 31 31 3a 53 31 25 3d 36 34 30 |222)-111:S1%=640| 000001c0 2b b3 28 32 32 32 29 2d 31 31 31 3a 54 31 25 3d |+.(222)-111:T1%=| 000001d0 35 31 32 2b b3 28 32 32 32 29 2d 31 31 31 3a 58 |512+.(222)-111:X| 000001e0 25 3d 58 31 25 3a 59 25 3d 59 31 25 3a 4d 25 3d |%=X1%:Y%=Y1%:M%=| 000001f0 4d 31 25 3a 4e 25 3d 4e 31 25 3a 53 25 3d 53 31 |M1%:N%=N1%:S%=S1| 00000200 25 3a 54 25 3d 54 31 25 0d 00 64 59 eb 31 38 3a |%:T%=T1%..dY.18:| 00000210 e6 33 2c 31 3a 44 31 25 3d 34 30 2b b3 28 38 29 |.3,1:D1%=40+.(8)| 00000220 3a 45 31 25 3d 34 30 2b b3 28 38 29 3a 46 31 25 |:E1%=40+.(8):F1%| 00000230 3d 34 30 2b b3 28 38 29 3a 44 25 3d 44 31 25 3a |=40+.(8):D%=D1%:| 00000240 45 25 3d 45 31 25 3a 46 25 3d 46 31 25 3a ec 30 |E%=E1%:F%=F1%:.0| 00000250 2c 35 31 32 3a df 20 31 32 38 30 2c 35 31 32 3a |,512:. 1280,512:| 00000260 87 0d 00 69 62 e7 20 50 25 3d 30 20 f1 22 4f 4e |...ib. P%=0 ."ON| 00000270 20 45 53 43 41 50 45 20 54 48 45 20 53 54 41 52 | ESCAPE THE STAR| 00000280 54 49 4e 47 20 50 41 52 41 4d 45 54 45 52 53 20 |TING PARAMETERS | 00000290 41 52 45 20 44 49 53 50 4c 41 59 45 44 2e 22 3a |ARE DISPLAYED.":| 000002a0 f1 22 43 4c 49 43 4b 20 4d 4f 55 53 45 20 54 4f |."CLICK MOUSE TO| 000002b0 20 43 4c 45 41 52 20 53 43 52 45 45 4e 22 3a 50 | CLEAR SCREEN":P| 000002c0 25 3d 31 0d 00 6e 05 20 0d 00 78 0f f4 20 4d 41 |%=1..n. ..x.. MA| 000002d0 49 4e 20 4c 4f 4f 50 0d 00 82 35 f5 3a c8 97 20 |IN LOOP...5.:.. | 000002e0 41 25 2c 42 25 2c 43 25 3a e7 43 25 20 f5 3a c8 |A%,B%,C%:.C% .:.| 000002f0 97 20 41 25 2c 42 25 2c 47 25 3a 41 25 3d b3 3a |. A%,B%,G%:A%=.:| 00000300 fd 47 25 3d 30 3a e5 20 8d 44 5a 40 0d 00 8c 8c |.G%=0:. .DZ@....| 00000310 e3 49 25 3d 30 b8 32 32 3a 44 25 2b 3d 54 25 28 |.I%=0.22:D%+=T%(| 00000320 b0 58 25 2c 59 25 29 29 3a c8 92 58 25 2c 59 25 |.X%,Y%)):..X%,Y%| 00000330 3a 58 25 3d 28 58 25 2b 76 25 28 44 25 29 29 83 |:X%=(X%+v%(D%)).| 00000340 31 32 38 30 3a 59 25 3d 28 59 25 2b 77 25 28 44 |1280:Y%=(Y%+w%(D| 00000350 25 29 29 83 31 30 32 34 3a 45 25 2b 3d 54 25 28 |%)).1024:E%+=T%(| 00000360 b0 4d 25 2c 4e 25 29 29 3a c8 92 4d 25 2c 4e 25 |.M%,N%)):..M%,N%| 00000370 3a 4d 25 3d 28 4d 25 2b 76 25 28 45 25 29 29 83 |:M%=(M%+v%(E%)).| 00000380 31 32 38 30 3a 4e 25 3d 28 4e 25 2b 77 25 28 45 |1280:N%=(N%+w%(E| 00000390 25 29 29 83 31 30 32 34 0d 00 91 45 46 25 2b 3d |%)).1024...EF%+=| 000003a0 54 25 28 b0 53 25 2c 54 25 29 29 3a c8 92 53 25 |T%(.S%,T%)):..S%| 000003b0 2c 54 25 3a 53 25 3d 28 53 25 2b 76 25 28 46 25 |,T%:S%=(S%+v%(F%| 000003c0 29 29 83 31 32 38 30 3a 54 25 3d 28 54 25 2b 77 |)).1280:T%=(T%+w| 000003d0 25 28 46 25 29 29 83 31 30 32 34 3a ed 0d 00 96 |%(F%)).1024:....| 000003e0 27 44 25 3d 44 25 83 38 2b 34 38 3a 45 25 3d 45 |'D%=D%.8+48:E%=E| 000003f0 25 83 38 2b 34 38 3a 46 25 3d 46 25 83 38 2b 34 |%.8+48:F%=F%.8+4| 00000400 38 3a fd 30 0d 00 a0 05 20 0d 00 aa 37 dc 20 2d |8:.0.... ...7. -| 00000410 43 25 2c 43 25 2c 30 2c 43 25 2c 43 25 2c 43 25 |C%,C%,0,C%,C%,C%| 00000420 2c 43 25 2c 30 2c 43 25 2c 2d 43 25 2c 30 2c 2d |,C%,0,C%,-C%,0,-| 00000430 43 25 2c 2d 43 25 2c 2d 43 25 2c 2d 43 25 2c 30 |C%,-C%,-C%,-C%,0| 00000440 0d ff |..| 00000442
.