Home » Archimedes archive » Acorn User » AU 1998-13 (Christmas).adf » Regulars » StarInfo/Howkins/AngTastic
StarInfo/Howkins/AngTastic
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-13 (Christmas).adf » Regulars |
Filename: | StarInfo/Howkins/AngTastic |
Read OK: | ✔ |
File size: | 03FE bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10DIMcx(10),cy(10),ex(100),ey(100):MODE9:OFF:PRINTTAB(0,24)STRING$(40,"#"):ps=0:cl=1:REPEAT:PROCc:PRINTTAB(10,5)"Level ";cl;" Hit Space":*fx15 20REPEAT:k=GET:UNTILk=32 30PROCc:FORe=1TOcl:ex(e)=RND(38):ey(e)=RND(23):COLOUR1:PRINTTAB(ex(e),ey(e))"w":COLOUR7:NEXT 40FORc=1TO10:cx(c)=RND(38):cy(c)=RND(23):NEXT 50PROCdc:TIME=0:x=20:y=10:sc=0:po=0:d=0:co=10:REPEAT:K$=INKEY$(10):PRINTTAB(x,y);" ":IFINKEY(-98)ANDx>0THENx-=1 60IFINKEY(-67)ANDx<39THENx+=1 70IFINKEY(-80)ANDy>0THENy-=1 80IFINKEY(-105)ANDy<23THENy+=1 90PRINTTAB(x,y)"@":FOR e=1 TO cl 100PRINTTAB(ex(e),ey(e))" " 110IFRND(3)<3THEN 120IFex(e)>x THEN 130ex(e)-=1 140ELSE 150IFex(e)<x THEN 160ex(e)+=1 170ELSE 180IFey(e)>y THEN 190ey(e)-=1 200ELSE 210IFey(e)<y THEN 220ey(e)+=1 230ENDIF 240ENDIF 250ENDIF 260ENDIF 270ENDIF:COLOUR1:PRINTTAB(ex(e),ey(e))"w":COLOUR7:NEXT 280FORc=1TO10 290IFx=cx(c)ANDy=cy(c)THENcx(c)=0:cy(c)=0:po+=1:co-=1 300FORe=1TOcl 310IFex(e)=cx(c)ANDey(e)=cy(c)THENcx(c)=0:cy(c)=0:co-=1 320NEXT 330NEXT 340PROCdc:sc=INT(1000000*po/TIME):PRINTTAB(10,28);sc+ps;" ":d=0 350FORl=1TOcl 360IFx=ex(l)ANDy=ey(l)THENd=-1 370NEXT 380UNTILd ORco=0 390ps+=sc:cl+=1:UNTILd 400*FX15 410PRINTTAB(4,4)"Eek you died Score:";ps;" Hit Space" 420REPEAT:k=GET:UNTILk=32 430END 450DEFPROCdc 460COLOUR3:FORl=1TO10:IFcx(l)>0THENPRINTTAB(cx(l),cy(l))"!":NEXT 470COLOUR7 480ENDPROC 490DEFPROCc 500VDU28,1,23,38,1:CLS:VDU26 510ENDPROC
l�cx(10),cy(10),ex(100),ey(100):�9:�:�0,24)�40,"#"):ps=0:cl=1:�:�c:�10,5)"Level ";cl;" Hit Space":*fx15 �:k=�:�k=32 @�c:�e=1�cl:ex(e)=�(38):ey(e)=�(23):�1:�ex(e),ey(e))"w":�7:� (%�c=1�10:cx(c)=�(38):cy(c)=�(23):� 2P�dc:�=0:x=20:y=10:sc=0:po=0:d=0:co=10:�:K$=�(10):�x,y);" ":�(-98)�x>0�x-=1 <�(-67)�x<39�x+=1 F�(-80)�y>0�y-=1 P�(-105)�y<23�y+=1 Z�x,y)"@":� e=1 � cl d�ex(e),ey(e))" " n�(3)<3� x�ex(e)>x � �ex(e)-=1 �� ��ex(e)<x � �ex(e)+=1 �� ��ey(e)>y � �ey(e)-=1 �� ��ey(e)<y � �ey(e)+=1 �� �� �� � �:�1:�ex(e),ey(e))"w":�7:� �c=1�10 "0�x=cx(c)�y=cy(c)�cx(c)=0:cy(c)=0:po+=1:co-=1 ,�e=1�cl 62�ex(e)=cx(c)�ey(e)=cy(c)�cx(c)=0:cy(c)=0:co-=1 @� J� T3�dc:sc=�(1000000*po/�):�10,28);sc+ps;" ":d=0 ^�l=1�cl h�x=ex(l)�y=ey(l)�d=-1 r� |�d �co=0 �ps+=sc:cl+=1:�d � *FX15 �/�4,4)"Eek you died Score:";ps;" Hit Space" ��:k=�:�k=32 �� ���dc �+�3:�l=1�10:�cx(l)>0��cx(l),cy(l))"!":� ��7 �� ���c ��28,1,23,38,1:�:�26 �� �
00000000 0d 00 0a 6c de 63 78 28 31 30 29 2c 63 79 28 31 |...l.cx(10),cy(1| 00000010 30 29 2c 65 78 28 31 30 30 29 2c 65 79 28 31 30 |0),ex(100),ey(10| 00000020 30 29 3a eb 39 3a 87 3a f1 8a 30 2c 32 34 29 c4 |0):.9:.:..0,24).| 00000030 34 30 2c 22 23 22 29 3a 70 73 3d 30 3a 63 6c 3d |40,"#"):ps=0:cl=| 00000040 31 3a f5 3a f2 63 3a f1 8a 31 30 2c 35 29 22 4c |1:.:.c:..10,5)"L| 00000050 65 76 65 6c 20 22 3b 63 6c 3b 22 20 48 69 74 20 |evel ";cl;" Hit | 00000060 53 70 61 63 65 22 3a 2a 66 78 31 35 0d 00 14 0f |Space":*fx15....| 00000070 f5 3a 6b 3d a5 3a fd 6b 3d 33 32 0d 00 1e 40 f2 |.:k=.:.k=32...@.| 00000080 63 3a e3 65 3d 31 b8 63 6c 3a 65 78 28 65 29 3d |c:.e=1.cl:ex(e)=| 00000090 b3 28 33 38 29 3a 65 79 28 65 29 3d b3 28 32 33 |.(38):ey(e)=.(23| 000000a0 29 3a fb 31 3a f1 8a 65 78 28 65 29 2c 65 79 28 |):.1:..ex(e),ey(| 000000b0 65 29 29 22 77 22 3a fb 37 3a ed 0d 00 28 25 e3 |e))"w":.7:...(%.| 000000c0 63 3d 31 b8 31 30 3a 63 78 28 63 29 3d b3 28 33 |c=1.10:cx(c)=.(3| 000000d0 38 29 3a 63 79 28 63 29 3d b3 28 32 33 29 3a ed |8):cy(c)=.(23):.| 000000e0 0d 00 32 50 f2 64 63 3a d1 3d 30 3a 78 3d 32 30 |..2P.dc:.=0:x=20| 000000f0 3a 79 3d 31 30 3a 73 63 3d 30 3a 70 6f 3d 30 3a |:y=10:sc=0:po=0:| 00000100 64 3d 30 3a 63 6f 3d 31 30 3a f5 3a 4b 24 3d bf |d=0:co=10:.:K$=.| 00000110 28 31 30 29 3a f1 8a 78 2c 79 29 3b 22 20 22 3a |(10):..x,y);" ":| 00000120 e7 a6 28 2d 39 38 29 80 78 3e 30 8c 78 2d 3d 31 |..(-98).x>0.x-=1| 00000130 0d 00 3c 15 e7 a6 28 2d 36 37 29 80 78 3c 33 39 |..<...(-67).x<39| 00000140 8c 78 2b 3d 31 0d 00 46 14 e7 a6 28 2d 38 30 29 |.x+=1..F...(-80)| 00000150 80 79 3e 30 8c 79 2d 3d 31 0d 00 50 16 e7 a6 28 |.y>0.y-=1..P...(| 00000160 2d 31 30 35 29 80 79 3c 32 33 8c 79 2b 3d 31 0d |-105).y<23.y+=1.| 00000170 00 5a 18 f1 8a 78 2c 79 29 22 40 22 3a e3 20 65 |.Z...x,y)"@":. e| 00000180 3d 31 20 b8 20 63 6c 0d 00 64 15 f1 8a 65 78 28 |=1 . cl..d...ex(| 00000190 65 29 2c 65 79 28 65 29 29 22 20 22 0d 00 6e 0c |e),ey(e))" "..n.| 000001a0 e7 b3 28 33 29 3c 33 8c 0d 00 78 0e e7 65 78 28 |..(3)<3...x..ex(| 000001b0 65 29 3e 78 20 8c 0d 00 82 0c 65 78 28 65 29 2d |e)>x .....ex(e)-| 000001c0 3d 31 0d 00 8c 05 cc 0d 00 96 0e e7 65 78 28 65 |=1..........ex(e| 000001d0 29 3c 78 20 8c 0d 00 a0 0c 65 78 28 65 29 2b 3d |)<x .....ex(e)+=| 000001e0 31 0d 00 aa 05 cc 0d 00 b4 0e e7 65 79 28 65 29 |1..........ey(e)| 000001f0 3e 79 20 8c 0d 00 be 0c 65 79 28 65 29 2d 3d 31 |>y .....ey(e)-=1| 00000200 0d 00 c8 05 cc 0d 00 d2 0e e7 65 79 28 65 29 3c |..........ey(e)<| 00000210 79 20 8c 0d 00 dc 0c 65 79 28 65 29 2b 3d 31 0d |y .....ey(e)+=1.| 00000220 00 e6 05 cd 0d 00 f0 05 cd 0d 00 fa 05 cd 0d 01 |................| 00000230 04 05 cd 0d 01 0e 1f cd 3a fb 31 3a f1 8a 65 78 |........:.1:..ex| 00000240 28 65 29 2c 65 79 28 65 29 29 22 77 22 3a fb 37 |(e),ey(e))"w":.7| 00000250 3a ed 0d 01 18 0b e3 63 3d 31 b8 31 30 0d 01 22 |:......c=1.10.."| 00000260 30 e7 78 3d 63 78 28 63 29 80 79 3d 63 79 28 63 |0.x=cx(c).y=cy(c| 00000270 29 8c 63 78 28 63 29 3d 30 3a 63 79 28 63 29 3d |).cx(c)=0:cy(c)=| 00000280 30 3a 70 6f 2b 3d 31 3a 63 6f 2d 3d 31 0d 01 2c |0:po+=1:co-=1..,| 00000290 0b e3 65 3d 31 b8 63 6c 0d 01 36 32 e7 65 78 28 |..e=1.cl..62.ex(| 000002a0 65 29 3d 63 78 28 63 29 80 65 79 28 65 29 3d 63 |e)=cx(c).ey(e)=c| 000002b0 79 28 63 29 8c 63 78 28 63 29 3d 30 3a 63 79 28 |y(c).cx(c)=0:cy(| 000002c0 63 29 3d 30 3a 63 6f 2d 3d 31 0d 01 40 05 ed 0d |c)=0:co-=1..@...| 000002d0 01 4a 05 ed 0d 01 54 33 f2 64 63 3a 73 63 3d a8 |.J....T3.dc:sc=.| 000002e0 28 31 30 30 30 30 30 30 2a 70 6f 2f 91 29 3a f1 |(1000000*po/.):.| 000002f0 8a 31 30 2c 32 38 29 3b 73 63 2b 70 73 3b 22 20 |.10,28);sc+ps;" | 00000300 20 20 22 3a 64 3d 30 0d 01 5e 0b e3 6c 3d 31 b8 | ":d=0..^..l=1.| 00000310 63 6c 0d 01 68 19 e7 78 3d 65 78 28 6c 29 80 79 |cl..h..x=ex(l).y| 00000320 3d 65 79 28 6c 29 8c 64 3d 2d 31 0d 01 72 05 ed |=ey(l).d=-1..r..| 00000330 0d 01 7c 0c fd 64 20 84 63 6f 3d 30 0d 01 86 13 |..|..d .co=0....| 00000340 70 73 2b 3d 73 63 3a 63 6c 2b 3d 31 3a fd 64 0d |ps+=sc:cl+=1:.d.| 00000350 01 90 09 2a 46 58 31 35 0d 01 9a 2f f1 8a 34 2c |...*FX15.../..4,| 00000360 34 29 22 45 65 6b 20 79 6f 75 20 64 69 65 64 20 |4)"Eek you died | 00000370 53 63 6f 72 65 3a 22 3b 70 73 3b 22 20 48 69 74 |Score:";ps;" Hit| 00000380 20 53 70 61 63 65 22 0d 01 a4 0f f5 3a 6b 3d a5 | Space".....:k=.| 00000390 3a fd 6b 3d 33 32 0d 01 ae 05 e0 0d 01 c2 08 dd |:.k=32..........| 000003a0 f2 64 63 0d 01 cc 2b fb 33 3a e3 6c 3d 31 b8 31 |.dc...+.3:.l=1.1| 000003b0 30 3a e7 63 78 28 6c 29 3e 30 8c f1 8a 63 78 28 |0:.cx(l)>0...cx(| 000003c0 6c 29 2c 63 79 28 6c 29 29 22 21 22 3a ed 0d 01 |l),cy(l))"!":...| 000003d0 d6 06 fb 37 0d 01 e0 05 e1 0d 01 ea 07 dd f2 63 |...7...........c| 000003e0 0d 01 f4 17 ef 32 38 2c 31 2c 32 33 2c 33 38 2c |.....28,1,23,38,| 000003f0 31 3a db 3a ef 32 36 0d 01 fe 05 e1 0d ff |1:.:.26.......| 000003fe