Home » Archimedes archive » Acorn User » AU 1998-03 B.adf » StarInfo » Mellor/1K_Meteors
Mellor/1K_Meteors
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 1998-03 B.adf » StarInfo |
| Filename: | Mellor/1K_Meteors |
| Read OK: | ✔ |
| File size: | 0400 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
3MODE8:OFF:B=128:F=4:G=1:C=4:H=0:D=4:P=0:DIMC(B),F(B),S(B),J(B),B(B),M(F),Z(F),A(F),W(F),P(F):REPEAT:Z(0)=640:A(0)=512:M()=0:S=0:J=0:X=0:REPEATC-=P:FORA=1TOC:Z=RND(6^4):M=0:IFRND(2)=1Z=0:M=RND(4^5)
4F(A)=Z:S(A)=M:J(A)=FNA(10,2):B(A)=FNA(10,2):C(A)=1:NEXT:REPEAT:SYS6,112,G:CLS:P=0:L=FALSE:PRINTH,D:GCOL1:FORA=1TOC:IFC(A)THEN
5Z=F(A):M=S(A):CIRCLEZ,M,32:F(A)=(Z+J(A))MOD6^4:IFZ<0F(A)+=6^4
6S(A)=(M+B(A))MOD4^5:IFM<0S(A)+=4^5
7ELSE:P+=1
8ENDIF:NEXT:M(0)=1:GCOL2:FORA=0TOF:IFM(A)>0THEN
9IFA>0CIRCLEFILLZ(A),A(A),4
10M(A)-=1:Z(A)+=W(A):A(A)+=P(A):FORU=1TOC:N=Z(A)-F(U):Q=A(A)-S(U):IFN*N+Q*Q<6^4ANDC(U)VDU7:M(A)=0:C(U)=FALSE:H+=50:IFA=0L=1
11NEXT
12ENDIF:NEXT:GCOL3:ORIGINZ(0),A(0):W=S+270:MOVE12*SINRADW,12*COSRADW:W-=180:MOVE12*SINRADW,12*COSRADW:PLOT85,32*SINRADS,32*COSRADS:ORIGIN0,0:MOUSEI,T,V:S+=I/4-160:MOUSETO640,512:Z=Z(0):M=A(0):Z(0)=(Z+J*SINRADS)MOD6^4:IFZ<0Z(0)+=6^4
13A(0)=(M+J*COSRADS)MOD4^5:IFM<0A(0)+=4^5
14IFVAND4IFJ<24J+=2
15IFJ>0J-=1
16IFVAND1THEN
17IFX=0THEN
18FORA=1TOF:IFM(A)<1THEN
19W(A)=24*SINRADS:P(A)=24*COSRADS:Z(A)=Z:A(A)=M:M(A)=20:A=F
20ENDIF:NEXT:X=1
21ENDIF
22ELSE:X=FALSE
23ENDIF:SYS6,113,G:G=3-G:WAIT:UNTILLORP=C:C+=P+2:UNTILL:C-=P+2:D-=1:A=INKEY99:UNTILD=0:PRINT'''''SPC35"GAME OVER!":A=GET:RUN
24DEFFNA(N,Q)IFRND(2)=1=RND(N)+QELSE=-RND(N)-Q
��8:�:B=128:F=4:G=1:C=4:H=0:D=4:P=0:�C(B),F(B),S(B),J(B),B(B),M(F),Z(F),A(F),W(F),P(F):�:Z(0)=640:A(0)=512:M()=0:S=0:J=0:X=0:�C-=P:�A=1�C:Z=�(6^4):M=0:�(2)=1Z=0:M=�(4^5) bF(A)=Z:S(A)=M:J(A)=�A(10,2):B(A)=�A(10,2):C(A)=1:�:�:ș6,112,G:�:P=0:L=�:�H,D:�1:�A=1�C:�C(A)� :Z=F(A):M=S(A):ȏZ,M,32:F(A)=(Z+J(A))�6^4:�Z<0F(A)+=6^4 #S(A)=(M+B(A))�4^5:�M<0S(A)+=4^5 �:P+=1 !�:�:M(0)=1:�2:�A=0�F:�M(A)>0� �A>0ȏȐZ(A),A(A),4 pM(A)-=1:Z(A)+=W(A):A(A)+=P(A):�U=1�C:N=Z(A)-F(U):Q=A(A)-S(U):�N*N+Q*Q<6^4�C(U)�7:M(A)=0:C(U)=�:H+=50:�A=0L=1 � ��:�:�3:ȑZ(0),A(0):W=S+270:�12*��W,12*��W:W-=180:�12*��W,12*��W:�85,32*��S,32*��S:ȑ0,0:ȗI,T,V:S+=I/4-160:ȗ�640,512:Z=Z(0):M=A(0):Z(0)=(Z+J*��S)�6^4:�Z<0Z(0)+=6^4 $A(0)=(M+J*��S)�4^5:�M<0A(0)+=4^5 �V�4�J<24J+=2 �J>0J-=1 �V�1� �X=0� �A=1�F:�M(A)<1� 5W(A)=24*��S:P(A)=24*��S:Z(A)=Z:A(A)=M:M(A)=20:A=F �:�:X=1 � �:X=� \�:ș6,113,G:G=3-G:Ȗ:�L�P=C:C+=P+2:�L:C-=P+2:D-=1:A=�99:�D=0:�'''''�35"GAME OVER!":A=�:� #ݤA(N,Q)�(2)=1=�(N)+Q�=-�(N)-Q �
00000000 0d 00 03 ad eb 38 3a 87 3a 42 3d 31 32 38 3a 46 |.....8:.:B=128:F| 00000010 3d 34 3a 47 3d 31 3a 43 3d 34 3a 48 3d 30 3a 44 |=4:G=1:C=4:H=0:D| 00000020 3d 34 3a 50 3d 30 3a de 43 28 42 29 2c 46 28 42 |=4:P=0:.C(B),F(B| 00000030 29 2c 53 28 42 29 2c 4a 28 42 29 2c 42 28 42 29 |),S(B),J(B),B(B)| 00000040 2c 4d 28 46 29 2c 5a 28 46 29 2c 41 28 46 29 2c |,M(F),Z(F),A(F),| 00000050 57 28 46 29 2c 50 28 46 29 3a f5 3a 5a 28 30 29 |W(F),P(F):.:Z(0)| 00000060 3d 36 34 30 3a 41 28 30 29 3d 35 31 32 3a 4d 28 |=640:A(0)=512:M(| 00000070 29 3d 30 3a 53 3d 30 3a 4a 3d 30 3a 58 3d 30 3a |)=0:S=0:J=0:X=0:| 00000080 f5 43 2d 3d 50 3a e3 41 3d 31 b8 43 3a 5a 3d b3 |.C-=P:.A=1.C:Z=.| 00000090 28 36 5e 34 29 3a 4d 3d 30 3a e7 b3 28 32 29 3d |(6^4):M=0:..(2)=| 000000a0 31 5a 3d 30 3a 4d 3d b3 28 34 5e 35 29 0d 00 04 |1Z=0:M=.(4^5)...| 000000b0 62 46 28 41 29 3d 5a 3a 53 28 41 29 3d 4d 3a 4a |bF(A)=Z:S(A)=M:J| 000000c0 28 41 29 3d a4 41 28 31 30 2c 32 29 3a 42 28 41 |(A)=.A(10,2):B(A| 000000d0 29 3d a4 41 28 31 30 2c 32 29 3a 43 28 41 29 3d |)=.A(10,2):C(A)=| 000000e0 31 3a ed 3a f5 3a c8 99 36 2c 31 31 32 2c 47 3a |1:.:.:..6,112,G:| 000000f0 db 3a 50 3d 30 3a 4c 3d a3 3a f1 48 2c 44 3a e6 |.:P=0:L=.:.H,D:.| 00000100 31 3a e3 41 3d 31 b8 43 3a e7 43 28 41 29 8c 0d |1:.A=1.C:.C(A)..| 00000110 00 05 3a 5a 3d 46 28 41 29 3a 4d 3d 53 28 41 29 |..:Z=F(A):M=S(A)| 00000120 3a c8 8f 5a 2c 4d 2c 33 32 3a 46 28 41 29 3d 28 |:..Z,M,32:F(A)=(| 00000130 5a 2b 4a 28 41 29 29 83 36 5e 34 3a e7 5a 3c 30 |Z+J(A)).6^4:.Z<0| 00000140 46 28 41 29 2b 3d 36 5e 34 0d 00 06 23 53 28 41 |F(A)+=6^4...#S(A| 00000150 29 3d 28 4d 2b 42 28 41 29 29 83 34 5e 35 3a e7 |)=(M+B(A)).4^5:.| 00000160 4d 3c 30 53 28 41 29 2b 3d 34 5e 35 0d 00 07 0a |M<0S(A)+=4^5....| 00000170 cc 3a 50 2b 3d 31 0d 00 08 21 cd 3a ed 3a 4d 28 |.:P+=1...!.:.:M(| 00000180 30 29 3d 31 3a e6 32 3a e3 41 3d 30 b8 46 3a e7 |0)=1:.2:.A=0.F:.| 00000190 4d 28 41 29 3e 30 8c 0d 00 09 17 e7 41 3e 30 c8 |M(A)>0......A>0.| 000001a0 8f c8 90 5a 28 41 29 2c 41 28 41 29 2c 34 0d 00 |...Z(A),A(A),4..| 000001b0 0a 70 4d 28 41 29 2d 3d 31 3a 5a 28 41 29 2b 3d |.pM(A)-=1:Z(A)+=| 000001c0 57 28 41 29 3a 41 28 41 29 2b 3d 50 28 41 29 3a |W(A):A(A)+=P(A):| 000001d0 e3 55 3d 31 b8 43 3a 4e 3d 5a 28 41 29 2d 46 28 |.U=1.C:N=Z(A)-F(| 000001e0 55 29 3a 51 3d 41 28 41 29 2d 53 28 55 29 3a e7 |U):Q=A(A)-S(U):.| 000001f0 4e 2a 4e 2b 51 2a 51 3c 36 5e 34 80 43 28 55 29 |N*N+Q*Q<6^4.C(U)| 00000200 ef 37 3a 4d 28 41 29 3d 30 3a 43 28 55 29 3d a3 |.7:M(A)=0:C(U)=.| 00000210 3a 48 2b 3d 35 30 3a e7 41 3d 30 4c 3d 31 0d 00 |:H+=50:.A=0L=1..| 00000220 0b 05 ed 0d 00 0c a8 cd 3a ed 3a e6 33 3a c8 91 |........:.:.3:..| 00000230 5a 28 30 29 2c 41 28 30 29 3a 57 3d 53 2b 32 37 |Z(0),A(0):W=S+27| 00000240 30 3a ec 31 32 2a b5 b2 57 2c 31 32 2a 9b b2 57 |0:.12*..W,12*..W| 00000250 3a 57 2d 3d 31 38 30 3a ec 31 32 2a b5 b2 57 2c |:W-=180:.12*..W,| 00000260 31 32 2a 9b b2 57 3a f0 38 35 2c 33 32 2a b5 b2 |12*..W:.85,32*..| 00000270 53 2c 33 32 2a 9b b2 53 3a c8 91 30 2c 30 3a c8 |S,32*..S:..0,0:.| 00000280 97 49 2c 54 2c 56 3a 53 2b 3d 49 2f 34 2d 31 36 |.I,T,V:S+=I/4-16| 00000290 30 3a c8 97 b8 36 34 30 2c 35 31 32 3a 5a 3d 5a |0:...640,512:Z=Z| 000002a0 28 30 29 3a 4d 3d 41 28 30 29 3a 5a 28 30 29 3d |(0):M=A(0):Z(0)=| 000002b0 28 5a 2b 4a 2a b5 b2 53 29 83 36 5e 34 3a e7 5a |(Z+J*..S).6^4:.Z| 000002c0 3c 30 5a 28 30 29 2b 3d 36 5e 34 0d 00 0d 24 41 |<0Z(0)+=6^4...$A| 000002d0 28 30 29 3d 28 4d 2b 4a 2a 9b b2 53 29 83 34 5e |(0)=(M+J*..S).4^| 000002e0 35 3a e7 4d 3c 30 41 28 30 29 2b 3d 34 5e 35 0d |5:.M<0A(0)+=4^5.| 000002f0 00 0e 11 e7 56 80 34 e7 4a 3c 32 34 4a 2b 3d 32 |....V.4.J<24J+=2| 00000300 0d 00 0f 0c e7 4a 3e 30 4a 2d 3d 31 0d 00 10 09 |.....J>0J-=1....| 00000310 e7 56 80 31 8c 0d 00 11 09 e7 58 3d 30 8c 0d 00 |.V.1......X=0...| 00000320 12 13 e3 41 3d 31 b8 46 3a e7 4d 28 41 29 3c 31 |...A=1.F:.M(A)<1| 00000330 8c 0d 00 13 35 57 28 41 29 3d 32 34 2a b5 b2 53 |....5W(A)=24*..S| 00000340 3a 50 28 41 29 3d 32 34 2a 9b b2 53 3a 5a 28 41 |:P(A)=24*..S:Z(A| 00000350 29 3d 5a 3a 41 28 41 29 3d 4d 3a 4d 28 41 29 3d |)=Z:A(A)=M:M(A)=| 00000360 32 30 3a 41 3d 46 0d 00 14 0b cd 3a ed 3a 58 3d |20:A=F.....:.:X=| 00000370 31 0d 00 15 05 cd 0d 00 16 09 cc 3a 58 3d a3 0d |1..........:X=..| 00000380 00 17 5c cd 3a c8 99 36 2c 31 31 33 2c 47 3a 47 |..\.:..6,113,G:G| 00000390 3d 33 2d 47 3a c8 96 3a fd 4c 84 50 3d 43 3a 43 |=3-G:..:.L.P=C:C| 000003a0 2b 3d 50 2b 32 3a fd 4c 3a 43 2d 3d 50 2b 32 3a |+=P+2:.L:C-=P+2:| 000003b0 44 2d 3d 31 3a 41 3d a6 39 39 3a fd 44 3d 30 3a |D-=1:A=.99:.D=0:| 000003c0 f1 27 27 27 27 27 89 33 35 22 47 41 4d 45 20 4f |.'''''.35"GAME O| 000003d0 56 45 52 21 22 3a 41 3d a5 3a f9 0d 00 18 23 dd |VER!":A=.:....#.| 000003e0 a4 41 28 4e 2c 51 29 e7 b3 28 32 29 3d 31 3d b3 |.A(N,Q)..(2)=1=.| 000003f0 28 4e 29 2b 51 8b 3d 2d b3 28 4e 29 2d 51 0d ff |(N)+Q.=-.(N)-Q..| 00000400
.