StarInfo/Turnbull/Al'sGame

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Regulars » StarInfo/Turnbull/Al'sGame

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Regulars
Filename:	StarInfo/Turnbull/Al'sGame
Read OK:	✔
File size:	04EB bytes
Load address:	0000
Exec address:	0000

File contents

    0REM Idea by Ali the Great
   10MODE9
   20DIMS%(39,31),C%(191)
   21FORT%=0TO15:C%(T%)=T%<<4:C%(63-T%)=T%<<4:NEXT
   22FORT%=16TO47:C%(T%)=15<<4:NEXT
   23FORT%=0TO95:C%(T%+96)=C%(T%):NEXT
   30VDU23,224,153,66,36,129,129,36,66,153
   40VDU23,225,8,4,2,255,255,2,4,8
   60VDU19,24,24,255,128,0
   70REPEAT:lev%=0:REPEAT:lev%+=1
   80CLS:PROCsetupcols:GCOL0,7:S%()=0
  100FORT%=1TO3*lev%^1.5:X%=RND(35)+4:Y%=RND(32)-1:S%(X%,Y%)=1
  110RECTANGLEFILLX%<<5,Y%<<5,31:NEXT
  130X%=0:Y%=&800:DX%=4:DY%=0:out%=0:D%=0
  140GCOL3,6:MOVEX%-16,Y%+64>>2:VDU5,224,4
  150REPEAT:GCOL0,3:POINTX%,Y%>>2:MOVEX%-16,Y%+64>>2
  160DY%-=INKEY(-80)-INKEY(-105):IFDY%>16THENDY%=16ELSEIFDY%<-16THENDY%=-16
  170IFS%(X%+DX%>>5,Y%>>7)>0THENDX%=-DX%:PROCout
  180IFS%(X%>>5,Y%+(SGN(DY%)<<4)>>7)>0THENDY%=-DY%:PROCout
  190X%+=DX%:Y%+=DY%
  200GCOL3,6:WAIT:VDU5,224:MOVEX%-16,Y%+64>>2:VDU224,4
  201PROCcycle
  210UNTILX%+DX%<0ORX%+DX%>=&500ORY%+DY%<0ORY%+DY%>=&1000
  220UNTILX%+DX%<0ORY%+DY%<&600ORY%+DY%>=&A00ORout%<lev%
  230CLS:PROCsetupcols:COLOUR6
  231PRINTTAB(0,8);"You died on level ";lev%;".";TAB(0,24);"Press space to restart."
  240REPEAT:WAIT:PROCcycle:UNTILINKEY(-99):UNTIL0
  250:
  260:
  270DEFPROCout
  271LOCALY%
  280out%+=1:IFout%<>lev%THENENDPROC
  300COLOUR2:FORY%=12TO19:S%(39,Y%)=0:VDU31,39,Y%,225:NEXT
  310ENDPROC
  320:
  330DEFPROCsetupcols
  341FORY%=0TO7:COLOURY%+8:PRINTTAB(12,Y%+12);"Beware imitations":NEXT
  350ENDPROC
  360:
  370DEFPROCcycle
  380D%+=1:IFD%>=96THEND%-=96
  390FORC%=0TO7:E%=D%+C%*4
  400COLOURC%+8,C%(E%),C%(E%+32),C%(E%+64):NEXT
  401IF(D%AND16)=0THENE%=(D%AND15)<<4ELSEE%=(15-D%AND15)<<4
  402COLOUR6,E%,E%,E%
  410ENDPROC

� Idea by Ali the Great

�9
�S%(39,31),C%(191)
+�T%=0�15:C%(T%)=T%<<4:C%(63-T%)=T%<<4:�
�T%=16�47:C%(T%)=15<<4:�
�T%=0�95:C%(T%+96)=C%(T%):�
'�23,224,153,66,36,129,129,36,66,153
(�23,225,8,4,2,255,255,2,4,8
<�19,24,24,255,128,0
F�:lev%=0:�:lev%+=1
P�:�setupcols:�0,7:S%()=0
d6�T%=1�3*lev%^1.5:X%=�(35)+4:Y%=�(32)-1:S%(X%,Y%)=1
nȓȐX%<<5,Y%<<5,31:�
�(X%=0:Y%=&800:DX%=4:DY%=0:out%=0:D%=0
�!�3,6:�X%-16,Y%+64>>2:�5,224,4
�%�:�0,3:ȒX%,Y%>>2:�X%-16,Y%+64>>2
�7DY%-=�(-80)-�(-105):�DY%>16�DY%=16��DY%<-16�DY%=-16
�(�S%(X%+DX%>>5,Y%>>7)>0�DX%=-DX%:�out
�0�S%(X%>>5,Y%+(�(DY%)<<4)>>7)>0�DY%=-DY%:�out
�X%+=DX%:Y%+=DY%
�)�3,6:Ȗ:�5,224:�X%-16,Y%+64>>2:�224,4
�
�cycle
�1�X%+DX%<0�X%+DX%>=&500�Y%+DY%<0�Y%+DY%>=&1000
�0�X%+DX%<0�Y%+DY%<&600�Y%+DY%>=&A00�out%<lev%
��:�setupcols:�6
�I�0,8);"You died on level ";lev%;".";�0,24);"Press space to restart."
��:Ȗ:�cycle:��(-99):�0
�:
:
	��out
�Y%
out%+=1:�out%<>lev%��
,,�2:�Y%=12�19:S%(39,Y%)=0:�31,39,Y%,225:�
6�
@:
J��setupcols
U3�Y%=0�7:�Y%+8:�12,Y%+12);"Beware imitations":�
^�
h:
r��cycle
|D%+=1:�D%>=96�D%-=96
��C%=0�7:E%=D%+C%*4
�&�C%+8,C%(E%),C%(E%+32),C%(E%+64):�
�-�(D%�16)=0�E%=(D%�15)<<4�E%=(15-D%�15)<<4
��6,E%,E%,E%
��
�

00000000  0d 00 00 1b f4 20 49 64  65 61 20 62 79 20 41 6c  |..... Idea by Al|
00000010  69 20 74 68 65 20 47 72  65 61 74 0d 00 0a 06 eb  |i the Great.....|
00000020  39 0d 00 14 16 de 53 25  28 33 39 2c 33 31 29 2c  |9.....S%(39,31),|
00000030  43 25 28 31 39 31 29 0d  00 15 2b e3 54 25 3d 30  |C%(191)...+.T%=0|
00000040  b8 31 35 3a 43 25 28 54  25 29 3d 54 25 3c 3c 34  |.15:C%(T%)=T%<<4|
00000050  3a 43 25 28 36 33 2d 54  25 29 3d 54 25 3c 3c 34  |:C%(63-T%)=T%<<4|
00000060  3a ed 0d 00 16 1c e3 54  25 3d 31 36 b8 34 37 3a  |:......T%=16.47:|
00000070  43 25 28 54 25 29 3d 31  35 3c 3c 34 3a ed 0d 00  |C%(T%)=15<<4:...|
00000080  17 1f e3 54 25 3d 30 b8  39 35 3a 43 25 28 54 25  |...T%=0.95:C%(T%|
00000090  2b 39 36 29 3d 43 25 28  54 25 29 3a ed 0d 00 1e  |+96)=C%(T%):....|
000000a0  27 ef 32 33 2c 32 32 34  2c 31 35 33 2c 36 36 2c  |'.23,224,153,66,|
000000b0  33 36 2c 31 32 39 2c 31  32 39 2c 33 36 2c 36 36  |36,129,129,36,66|
000000c0  2c 31 35 33 0d 00 28 1f  ef 32 33 2c 32 32 35 2c  |,153..(..23,225,|
000000d0  38 2c 34 2c 32 2c 32 35  35 2c 32 35 35 2c 32 2c  |8,4,2,255,255,2,|
000000e0  34 2c 38 0d 00 3c 17 ef  31 39 2c 32 34 2c 32 34  |4,8..<..19,24,24|
000000f0  2c 32 35 35 2c 31 32 38  2c 30 0d 00 46 16 f5 3a  |,255,128,0..F..:|
00000100  6c 65 76 25 3d 30 3a f5  3a 6c 65 76 25 2b 3d 31  |lev%=0:.:lev%+=1|
00000110  0d 00 50 1c db 3a f2 73  65 74 75 70 63 6f 6c 73  |..P..:.setupcols|
00000120  3a e6 30 2c 37 3a 53 25  28 29 3d 30 0d 00 64 36  |:.0,7:S%()=0..d6|
00000130  e3 54 25 3d 31 b8 33 2a  6c 65 76 25 5e 31 2e 35  |.T%=1.3*lev%^1.5|
00000140  3a 58 25 3d b3 28 33 35  29 2b 34 3a 59 25 3d b3  |:X%=.(35)+4:Y%=.|
00000150  28 33 32 29 2d 31 3a 53  25 28 58 25 2c 59 25 29  |(32)-1:S%(X%,Y%)|
00000160  3d 31 0d 00 6e 18 c8 93  c8 90 58 25 3c 3c 35 2c  |=1..n.....X%<<5,|
00000170  59 25 3c 3c 35 2c 33 31  3a ed 0d 00 82 28 58 25  |Y%<<5,31:....(X%|
00000180  3d 30 3a 59 25 3d 26 38  30 30 3a 44 58 25 3d 34  |=0:Y%=&800:DX%=4|
00000190  3a 44 59 25 3d 30 3a 6f  75 74 25 3d 30 3a 44 25  |:DY%=0:out%=0:D%|
000001a0  3d 30 0d 00 8c 21 e6 33  2c 36 3a ec 58 25 2d 31  |=0...!.3,6:.X%-1|
000001b0  36 2c 59 25 2b 36 34 3e  3e 32 3a ef 35 2c 32 32  |6,Y%+64>>2:.5,22|
000001c0  34 2c 34 0d 00 96 25 f5  3a e6 30 2c 33 3a c8 92  |4,4...%.:.0,3:..|
000001d0  58 25 2c 59 25 3e 3e 32  3a ec 58 25 2d 31 36 2c  |X%,Y%>>2:.X%-16,|
000001e0  59 25 2b 36 34 3e 3e 32  0d 00 a0 37 44 59 25 2d  |Y%+64>>2...7DY%-|
000001f0  3d a6 28 2d 38 30 29 2d  a6 28 2d 31 30 35 29 3a  |=.(-80)-.(-105):|
00000200  e7 44 59 25 3e 31 36 8c  44 59 25 3d 31 36 8b e7  |.DY%>16.DY%=16..|
00000210  44 59 25 3c 2d 31 36 8c  44 59 25 3d 2d 31 36 0d  |DY%<-16.DY%=-16.|
00000220  00 aa 28 e7 53 25 28 58  25 2b 44 58 25 3e 3e 35  |..(.S%(X%+DX%>>5|
00000230  2c 59 25 3e 3e 37 29 3e  30 8c 44 58 25 3d 2d 44  |,Y%>>7)>0.DX%=-D|
00000240  58 25 3a f2 6f 75 74 0d  00 b4 30 e7 53 25 28 58  |X%:.out...0.S%(X|
00000250  25 3e 3e 35 2c 59 25 2b  28 b4 28 44 59 25 29 3c  |%>>5,Y%+(.(DY%)<|
00000260  3c 34 29 3e 3e 37 29 3e  30 8c 44 59 25 3d 2d 44  |<4)>>7)>0.DY%=-D|
00000270  59 25 3a f2 6f 75 74 0d  00 be 13 58 25 2b 3d 44  |Y%:.out....X%+=D|
00000280  58 25 3a 59 25 2b 3d 44  59 25 0d 00 c8 29 e6 33  |X%:Y%+=DY%...).3|
00000290  2c 36 3a c8 96 3a ef 35  2c 32 32 34 3a ec 58 25  |,6:..:.5,224:.X%|
000002a0  2d 31 36 2c 59 25 2b 36  34 3e 3e 32 3a ef 32 32  |-16,Y%+64>>2:.22|
000002b0  34 2c 34 0d 00 c9 0a f2  63 79 63 6c 65 0d 00 d2  |4,4.....cycle...|
000002c0  31 fd 58 25 2b 44 58 25  3c 30 84 58 25 2b 44 58  |1.X%+DX%<0.X%+DX|
000002d0  25 3e 3d 26 35 30 30 84  59 25 2b 44 59 25 3c 30  |%>=&500.Y%+DY%<0|
000002e0  84 59 25 2b 44 59 25 3e  3d 26 31 30 30 30 0d 00  |.Y%+DY%>=&1000..|
000002f0  dc 30 fd 58 25 2b 44 58  25 3c 30 84 59 25 2b 44  |.0.X%+DX%<0.Y%+D|
00000300  59 25 3c 26 36 30 30 84  59 25 2b 44 59 25 3e 3d  |Y%<&600.Y%+DY%>=|
00000310  26 41 30 30 84 6f 75 74  25 3c 6c 65 76 25 0d 00  |&A00.out%<lev%..|
00000320  e6 13 db 3a f2 73 65 74  75 70 63 6f 6c 73 3a fb  |...:.setupcols:.|
00000330  36 0d 00 e7 49 f1 8a 30  2c 38 29 3b 22 59 6f 75  |6...I..0,8);"You|
00000340  20 64 69 65 64 20 6f 6e  20 6c 65 76 65 6c 20 22  | died on level "|
00000350  3b 6c 65 76 25 3b 22 2e  22 3b 8a 30 2c 32 34 29  |;lev%;".";.0,24)|
00000360  3b 22 50 72 65 73 73 20  73 70 61 63 65 20 74 6f  |;"Press space to|
00000370  20 72 65 73 74 61 72 74  2e 22 0d 00 f0 1a f5 3a  | restart.".....:|
00000380  c8 96 3a f2 63 79 63 6c  65 3a fd a6 28 2d 39 39  |..:.cycle:..(-99|
00000390  29 3a fd 30 0d 00 fa 05  3a 0d 01 04 05 3a 0d 01  |):.0....:....:..|
000003a0  0e 09 dd f2 6f 75 74 0d  01 0f 07 ea 59 25 0d 01  |....out.....Y%..|
000003b0  18 19 6f 75 74 25 2b 3d  31 3a e7 6f 75 74 25 3c  |..out%+=1:.out%<|
000003c0  3e 6c 65 76 25 8c e1 0d  01 2c 2c fb 32 3a e3 59  |>lev%....,,.2:.Y|
000003d0  25 3d 31 32 b8 31 39 3a  53 25 28 33 39 2c 59 25  |%=12.19:S%(39,Y%|
000003e0  29 3d 30 3a ef 33 31 2c  33 39 2c 59 25 2c 32 32  |)=0:.31,39,Y%,22|
000003f0  35 3a ed 0d 01 36 05 e1  0d 01 40 05 3a 0d 01 4a  |5:...6....@.:..J|
00000400  0f dd f2 73 65 74 75 70  63 6f 6c 73 0d 01 55 33  |...setupcols..U3|
00000410  e3 59 25 3d 30 b8 37 3a  fb 59 25 2b 38 3a f1 8a  |.Y%=0.7:.Y%+8:..|
00000420  31 32 2c 59 25 2b 31 32  29 3b 22 42 65 77 61 72  |12,Y%+12);"Bewar|
00000430  65 20 69 6d 69 74 61 74  69 6f 6e 73 22 3a ed 0d  |e imitations":..|
00000440  01 5e 05 e1 0d 01 68 05  3a 0d 01 72 0b dd f2 63  |.^....h.:..r...c|
00000450  79 63 6c 65 0d 01 7c 18  44 25 2b 3d 31 3a e7 44  |ycle..|.D%+=1:.D|
00000460  25 3e 3d 39 36 8c 44 25  2d 3d 39 36 0d 01 86 16  |%>=96.D%-=96....|
00000470  e3 43 25 3d 30 b8 37 3a  45 25 3d 44 25 2b 43 25  |.C%=0.7:E%=D%+C%|
00000480  2a 34 0d 01 90 26 fb 43  25 2b 38 2c 43 25 28 45  |*4...&.C%+8,C%(E|
00000490  25 29 2c 43 25 28 45 25  2b 33 32 29 2c 43 25 28  |%),C%(E%+32),C%(|
000004a0  45 25 2b 36 34 29 3a ed  0d 01 91 2d e7 28 44 25  |E%+64):....-.(D%|
000004b0  80 31 36 29 3d 30 8c 45  25 3d 28 44 25 80 31 35  |.16)=0.E%=(D%.15|
000004c0  29 3c 3c 34 8b 45 25 3d  28 31 35 2d 44 25 80 31  |)<<4.E%=(15-D%.1|
000004d0  35 29 3c 3c 34 0d 01 92  0f fb 36 2c 45 25 2c 45  |5)<<4.....6,E%,E|
000004e0  25 2c 45 25 0d 01 9a 05  e1 0d ff                 |%,E%.......|
000004eb

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .