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