Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF » G/Alpha
G/Alpha
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF |
| Filename: | G/Alpha |
| Read OK: | ✔ |
| File size: | 1358 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10REM ************************
20REM * Alphabet Chaser *
30REM * (c) Ross Little 1995 *
40REM ************************
45MODE6
50ON ERROR PROCerror:END
60IF PAGE>&E00 PROCdown
70MODE 1
80PROCinit
90PROCtitle
100REPEAT
110PROCnewgame
120REPEAT
130MODE 5
140PROCcursor
150PROCscreen
160PROCgame
170MODE 1
180*FX15,0
190IF letter=91 AND level=10 THEN PROCwin:over=1
200IF letter=91 AND level<10 THEN PROCnext
210IF lives<0 THEN PROClost:over=1
220UNTIL over=1
230UNTIL FALSE
240
250DEF PROCinit
260PROCcursor
270PROCsound(0)
280VDU 23,128,24,60,255,255,60,60,255,195
290VDU 23,129,195,255,60,60,255,255,60,24
300VDU 23,130,51,51,126,254,254,126,51,51
310VDU 23,131,204,204,126,127,127,126,204,204
320VDU 23,132,0,252,252,236,199,239,255,102
330sound=TRUE:*FX210,0
340*FX163,128,1
350PROCassemble
360rand=RND(-TIME)
370ENDPROC
380
390DEF PROCcursor
400VDU23,1,0;0;0;0;
410ENDPROC
420
430DEF PROCassemble
440code=&900:osbyte=&FFF4:oswrch=&FFEE
450P%=code
460[ OPT 2
470 LDA #31
480 JSR oswrch \Move cursor to (X%,Y%)
490 TXA
500 JSR oswrch
510 TYA
520 JSR oswrch
530 LDA #135 \OSBYTE 135 = Read char at cursor
540 JSR osbyte
550 TXA
560 RTS
570]
580ENDPROC
590
600DEF PROCscreen
610buggx=0:buggy=0:letter=65:car=2
620buggx1=0:buggy1=0
630COLOUR129:CLS
640VDU28,0,31,19,29,17,130,12,26
650VDU19,0,1;0;
660COLOUR129:COLOUR0
670PRINT TAB(1,30) "Lives ";lives
680PRINT TAB(11,30) "Level ";level
690IF level<10 THEN PRINT TAB(17,30) "0";level
700FOR display=65 TO 90
710X%=RND(18):Y%=RND(27)
720IF (USR(code) AND &FF)<>32 THEN GOTO 710
730PRINT CHR$(display)
740NEXT
750VDU19,0,6;0;
760ENDPROC
770
780DEF PROCgame
790COLOUR 3
800PRINT TAB(buggx,buggy) CHR$(car+127)
810REPEAT UNTIL GET
820REPEAT
830PROCupdate
840FOR wait=0 TO 120-(speed*8):NEXT
850UNTIL lives<0 OR letter=91
860ENDPROC
870
880DEF PROCcheck
890IF char<>letter THEN PROClose_life
900IF char=letter THEN letter=letter+1:PROCsound(1)
910ENDPROC
920
930DEF PROClose_life
940PROCsound(3)
950lives=lives-1
960COLOUR 0
970PRINT TAB(buggx,buggy) CHR$(char)
980PROCambulance
990IF lives<0 THEN ENDPROC
1000PRINT TAB(1,30) "Lives ";lives
1010COLOUR 3
1020car=2:buggx=0:buggy=0
1030buggx1=0:buggy1=0
1040PRINT TAB(buggx,buggy) CHR$(car+127)
1050SOUND 1,3,136,5
1060ENDPROC
1070
1080DEF PROCkey
1090IF INKEY(-73) THEN buggx1=0:buggy1=-1:car=1
1100IF INKEY(-105) THEN buggx1=0:buggy1=1:car=2
1110IF INKEY(-98) THEN buggx1=-1:buggy1=0:car=3
1120IF INKEY(-67) THEN buggx1=1:buggy1=0:car=4
1130IF buggx+buggx1<0 THEN buggx1=1:car=4
1140IF buggx+buggx1>19 THEN buggx1=-1:car=3
1150IF buggy+buggy1<0 THEN buggy1=1:car=2
1160IF buggy+buggy1>28 THEN buggy1=-1:car=1
1170ENDPROC
1180
1190DEF PROCupdate
1200PROCkey
1210X%=buggx+buggx1
1220Y%=buggy+buggy1
1230char=(USR(code) AND &FF)
1240PRINT TAB(buggx,buggy) " "
1250buggx=buggx+buggx1
1260buggy=buggy+buggy1
1270PRINT TAB(buggx,buggy) CHR$(car+127)
1280IF char>64 AND char<91 THEN PROCcheck
1290ENDPROC
1300
1310DEF PROCnext
1320level=level+1
1330speed=speed+1
1340IF speed>15 speed=15
1350PROCsound(2)
1360ENDPROC
1370
1380DEF PROCwin
1390PROCcursor
1400COLOUR 2
1410PROCcentre("ALPHABET CHASER",5)
1420PROCcentre("~~~~~~~~ ~~~~~~",6)
1430COLOUR 1
1440PROCcentre("CONGRATULATIONS",12)
1450PROCcentre("You have completed the game!",15)
1460COLOUR 3
1470PROCcentre("Please select next Game Speed...",22)
1480PROCsound(2)
1490REPEAT reply=GET:UNTIL reply>48 AND reply<51
1500ENDPROC
1510
1520DEF PROClost
1530*FX178,0,0
1540PROCcursor
1550COLOUR 2
1560PROCcentre("ALPHABET CHASER",5)
1570PROCcentre("~~~~~~~~ ~~~~~~",6)
1580COLOUR 1
1590PROCcentre("Another one bites the dust!",12)
1600PROCcentre("GAME OVER",15)
1610COLOUR 3
1620PROCcentre("Please select next Game Speed...",22)
1630IF sound=FALSE GOTO 1680
1640FOR A=150 TO 1 STEP -1
1650PROCsound(4)
1660NEXT A
1670PROCsound(5)
1680*FX178,255,0
1690REPEAT reply=GET:UNTIL reply>48 AND reply<51
1700ENDPROC
1710
1720DEF PROCsound(s)
1730IF s=1 SOUND &11,1,0,40
1740IF s=2 SOUND &12,2,4,50
1750IF s=3 SOUND &13,3,136,-1
1760IF s=4 SOUND &11,4,A,1
1770IF s=5 SOUND 0,-15,245,45
1780IF s>0 THEN ENDPROC
1790ENVELOPE 1,1,1,0,0,200,0,0,126,0,0,-126,126,126
1800ENVELOPE 2,2,6,0,0,255,0,0,126,0,0,-126,126,126
1810ENVELOPE 3,1,-7,7,0,10,10,0,126,0,0,-126,126,126
1820ENVELOPE 4,1,10,25,10,5,5,5,126,0,0,-126,126,126
1830ENDPROC
1840
1850DEF PROCcentre(text$,y)
1860x=20-(LEN(text$)/2)
1870PRINT TAB(x,y) text$
1880ENDPROC
1890
1900DEF PROCtitle
1910CLS
1920lives=5
1930level=1
1940COLOUR 2
1950PROCcentre("ALPHABET CHASER",5)
1960PROCcentre("~~~~~~~~ ~~~~~~",6)
1970COLOUR 1
1980PROCcentre("Collect all the letters of the",10)
1990PROCcentre("alphabet in order, which Prince Black",11)
2000PROCcentre("has stolen, to win favour with the",12)
2010PROCcentre("emperor and his people.",13)
2020PROCcentre("Use the following keys:",16)
2030PROCcentre("Z - Left X - Right",18)
2040PROCcentre("* - Up ? - Down",19)
2050PROCcentre("Press 'S' now to toggle sound.",21)
2060PRINT TAB(9,22)"Sound is presently ";
2070COLOUR 2
2080IF sound=TRUE PRINT "ON" ELSE PRINT "OFF"
2090PROCcentre("Choose Game Speed to continue (1 or 2)",27)
2100REPEAT
2110reply=GET
2120IF reply=83 AND sound=TRUE THEN PRINT TAB(28,22)"OFF":*FX210,1
2130IF reply=83 AND sound=FALSE THEN PRINT TAB(28,22)"ON ":*FX210,0
2140IF reply=83 AND sound=FALSE THEN sound=TRUE ELSE IF reply=83 AND sound=TRUE THEN sound=FALSE
2150UNTIL reply>48 AND reply<51
2160ENDPROC
2170
2180DEF PROCambulance
2190LOCAL x,y
2200x=1:y=30
2210COLOUR 3
2220REPEAT
2230PRINT TAB(x,y) CHR$132
2240IF x>1 PRINT TAB(x-1,y) " "
2250x=x+1
2260FOR I=1 TO 200:NEXT
2270UNTIL x=8
2280COLOUR 0
2290ENDPROC
2300
2310DEF PROCnewgame
2320over=0
2330lives=5
2340level=1
2350reply=reply-48
2360IF reply=1 speed=1 ELSE speed=11
2370ENDPROC
2380
2390DEF PROCdown
2400*KEY0 *T.|MFOR I%=PAGE TO TOP STEP4:!(I%-D%)=!I%:NEXT:!(TOP-D%)=&FF0D:PAGE=&E00|MOLD|MRUN|M
2410D%=PAGE-&E00:*FX138,0,128
2420ENDPROC
2430
2440DEF PROCerror
2450IF ERR=17 THEN RUN
2460REPORT:PRINT " at line ";ERL
2470VDU 23,1,1,0;0;0;0;
2480ENDPROC
2490
2500***That's all folks!***
� ************************
� * Alphabet Chaser *
� * (c) Ross Little 1995 *
( � ************************
-�6
2� � �error:�
<� �>&E00 �down
F� 1
P �init
Z
�title
d�
n �newgame
x�
�� 5
� �cursor
� �screen
� �game
�� 1
� *FX15,0
�(� letter=91 � level=10 � �win:over=1
�"� letter=91 � level<10 � �next
� � lives<0 � �lost:over=1
� � over=1
�� �
�
� � �init
�cursor
�sound(0)
(� 23,128,24,60,255,255,60,60,255,195
"(� 23,129,195,255,60,60,255,255,60,24
,(� 23,130,51,51,126,254,254,126,51,51
6,� 23,131,204,204,126,127,127,126,204,204
@*� 23,132,0,252,252,236,199,239,255,102
Jsound=�:*FX210,0
T*FX163,128,1
^
�assemble
hrand=�(-�)
r�
|
�
� �cursor
��23,1,0;0;0;0;
��
�
�� �assemble
�'code=&900:osbyte=&FFF4:oswrch=&FFEE
� P%=code
�[ OPT 2
� LDA #31
�3 JSR oswrch \Move cursor to (X%,Y%)
�
TXA
� JSR oswrch
�
TYA
JSR oswrch
= LDA #135 \OSBYTE 135 = Read char at cursor
JSR osbyte
&
TXA
0
RTS
:]
D�
N
X
� �screen
b#buggx=0:buggy=0:letter=65:car=2
lbuggx1=0:buggy1=0
v
�129:�
� �28,0,31,19,29,17,130,12,26
��19,0,1;0;
� �129:�0
�� �1,30) "Lives ";lives
� � �11,30) "Level ";level
�$� level<10 � � �17,30) "0";level
�� display=65 � 90
�X%=�(18):Y%=�(27)
�"� (�(code) � &FF)<>32 � � �dFB
�� �(display)
��
��19,0,6;0;
��
� �game
� 3
� �buggx,buggy) �(car+127)
* � � �
4�
> �update
H � wait=0 � 120-(speed*8):�
R� lives<0 � letter=91
\�
f
p � �check
z � char<>letter � �lose_life
�-� char=letter � letter=letter+1:�sound(1)
��
�
�� �lose_life
�
�sound(3)
�lives=lives-1
�� 0
�� �buggx,buggy) �(char)
��ambulance
�� lives<0 � �
�� �1,30) "Lives ";lives
�� 3
�car=2:buggx=0:buggy=0
buggx1=0:buggy1=0
� �buggx,buggy) �(car+127)
� 1,3,136,5
$�
.
8
� �key
B'� �(-73) � buggx1=0:buggy1=-1:car=1
L'� �(-105) � buggx1=0:buggy1=1:car=2
V'� �(-98) � buggx1=-1:buggy1=0:car=3
`'� �(-67) � buggx1=1:buggy1=0:car=4
j%� buggx+buggx1<0 � buggx1=1:car=4
t'� buggx+buggx1>19 � buggx1=-1:car=3
~%� buggy+buggy1<0 � buggy1=1:car=2
�'� buggy+buggy1>28 � buggy1=-1:car=1
��
�
�
� �update
��key
�X%=buggx+buggx1
�Y%=buggy+buggy1
�char=(�(code) � &FF)
�� �buggx,buggy) " "
�buggx=buggx+buggx1
�buggy=buggy+buggy1
� � �buggx,buggy) �(car+127)
� char>64 � char<91 � �check
�
� �next
(level=level+1
2speed=speed+1
<� speed>15 speed=15
F
�sound(2)
P�
Z
d
� �win
n �cursor
x� 2
� �centre("ALPHABET CHASER",5)
� �centre("~~~~~~~~ ~~~~~~",6)
�� 1
�!�centre("CONGRATULATIONS",12)
�.�centre("You have completed the game!",15)
�� 3
�2�centre("Please select next Game Speed...",22)
�
�sound(2)
�#� reply=�:� reply>48 � reply<51
��
�
� � �lost
�*FX178,0,0
�cursor
� 2
�centre("ALPHABET CHASER",5)
" �centre("~~~~~~~~ ~~~~~~",6)
,� 1
6-�centre("Another one bites the dust!",12)
@�centre("GAME OVER",15)
J� 3
T2�centre("Please select next Game Speed...",22)
^� sound=� � �tPF
h� A=150 � 1 � -1
r
�sound(4)
|� A
�
�sound(5)
�*FX178,255,0
�#� reply=�:� reply>48 � reply<51
��
�
�� �sound(s)
�� s=1 � &11,1,0,40
�� s=2 � &12,2,4,50
�� s=3 � &13,3,136,-1
�� s=4 � &11,4,A,1
�� s=5 � 0,-15,245,45
�
� s>0 � �
�,� 1,1,1,0,0,200,0,0,126,0,0,-126,126,126
,� 2,2,6,0,0,255,0,0,126,0,0,-126,126,126
-� 3,1,-7,7,0,10,10,0,126,0,0,-126,126,126
-� 4,1,10,25,10,5,5,5,126,0,0,-126,126,126
&�
0
:� �centre(text$,y)
Dx=20-(�(text$)/2)
N� �x,y) text$
X�
b
l � �title
v�
� lives=5
� level=1
�� 2
� �centre("ALPHABET CHASER",5)
� �centre("~~~~~~~~ ~~~~~~",6)
�� 1
�0�centre("Collect all the letters of the",10)
�7�centre("alphabet in order, which Prince Black",11)
�4�centre("has stolen, to win favour with the",12)
�)�centre("emperor and his people.",13)
�)�centre("Use the following keys:",16)
�-�centre("Z - Left X - Right",18)
�-�centre("* - Up ? - Down",19)
0�centre("Press 'S' now to toggle sound.",21)
"� �9,22)"Sound is presently ";
� 2
� sound=� � "ON" � � "OFF"
*8�centre("Choose Game Speed to continue (1 or 2)",27)
4�
> reply=�
H2� reply=83 � sound=� � � �28,22)"OFF":*FX210,1
R2� reply=83 � sound=� � � �28,22)"ON ":*FX210,0
\C� reply=83 � sound=� � sound=� � � reply=83 � sound=� � sound=�
f� reply>48 � reply<51
p�
z
�� �ambulance
� � x,y
� x=1:y=30
�� 3
��
�� �x,y) �132
�� x>1 � �x-1,y) " "
� x=x+1
�� I=1 � 200:�
� � x=8
�� 0
��
�
� �newgame
over=0
lives=5
$ level=1
.reply=reply-48
8 � reply=1 speed=1 � speed=11
B�
L
V � �down
`_*KEY0 *T.|MFOR I%=PAGE TO TOP STEP4:!(I%-D%)=!I%:NEXT:!(TOP-D%)=&FF0D:PAGE=&E00|MOLD|MRUN|M
jD%=�-&E00:*FX138,0,128
t�
~
� � �error
�� �=17 � �
��:� " at line ";�
�� 23,1,1,0;0;0;0;
��
�
�***That's all folks!***
� 00000000 0d 00 0a 1e f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..... **********|
00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 |**************..|
00000020 14 1e f4 20 2a 20 20 20 41 6c 70 68 61 62 65 74 |... * Alphabet|
00000030 20 43 68 61 73 65 72 20 20 20 20 2a 0d 00 1e 1e | Chaser *....|
00000040 f4 20 2a 20 28 63 29 20 52 6f 73 73 20 4c 69 74 |. * (c) Ross Lit|
00000050 74 6c 65 20 31 39 39 35 20 2a 0d 00 28 1e f4 20 |tle 1995 *..(.. |
00000060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000070 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 2d 06 eb 36 0d 00 |********..-..6..|
00000080 32 10 ee 20 85 20 f2 65 72 72 6f 72 3a e0 0d 00 |2.. . .error:...|
00000090 3c 12 e7 20 90 3e 26 45 30 30 20 f2 64 6f 77 6e |<.. .>&E00 .down|
000000a0 0d 00 46 07 eb 20 31 0d 00 50 09 f2 69 6e 69 74 |..F.. 1..P..init|
000000b0 0d 00 5a 0a f2 74 69 74 6c 65 0d 00 64 05 f5 0d |..Z..title..d...|
000000c0 00 6e 0c f2 6e 65 77 67 61 6d 65 0d 00 78 05 f5 |.n..newgame..x..|
000000d0 0d 00 82 07 eb 20 35 0d 00 8c 0b f2 63 75 72 73 |..... 5.....curs|
000000e0 6f 72 0d 00 96 0b f2 73 63 72 65 65 6e 0d 00 a0 |or.....screen...|
000000f0 09 f2 67 61 6d 65 0d 00 aa 07 eb 20 31 0d 00 b4 |..game..... 1...|
00000100 0b 2a 46 58 31 35 2c 30 0d 00 be 28 e7 20 6c 65 |.*FX15,0...(. le|
00000110 74 74 65 72 3d 39 31 20 80 20 6c 65 76 65 6c 3d |tter=91 . level=|
00000120 31 30 20 8c 20 f2 77 69 6e 3a 6f 76 65 72 3d 31 |10 . .win:over=1|
00000130 0d 00 c8 22 e7 20 6c 65 74 74 65 72 3d 39 31 20 |...". letter=91 |
00000140 80 20 6c 65 76 65 6c 3c 31 30 20 8c 20 f2 6e 65 |. level<10 . .ne|
00000150 78 74 0d 00 d2 1c e7 20 6c 69 76 65 73 3c 30 20 |xt..... lives<0 |
00000160 8c 20 f2 6c 6f 73 74 3a 6f 76 65 72 3d 31 0d 00 |. .lost:over=1..|
00000170 dc 0c fd 20 6f 76 65 72 3d 31 0d 00 e6 07 fd 20 |... over=1..... |
00000180 a3 0d 00 f0 05 20 0d 00 fa 0b dd 20 f2 69 6e 69 |..... ..... .ini|
00000190 74 0d 01 04 0b f2 63 75 72 73 6f 72 0d 01 0e 0d |t.....cursor....|
000001a0 f2 73 6f 75 6e 64 28 30 29 0d 01 18 28 ef 20 32 |.sound(0)...(. 2|
000001b0 33 2c 31 32 38 2c 32 34 2c 36 30 2c 32 35 35 2c |3,128,24,60,255,|
000001c0 32 35 35 2c 36 30 2c 36 30 2c 32 35 35 2c 31 39 |255,60,60,255,19|
000001d0 35 0d 01 22 28 ef 20 32 33 2c 31 32 39 2c 31 39 |5.."(. 23,129,19|
000001e0 35 2c 32 35 35 2c 36 30 2c 36 30 2c 32 35 35 2c |5,255,60,60,255,|
000001f0 32 35 35 2c 36 30 2c 32 34 0d 01 2c 28 ef 20 32 |255,60,24..,(. 2|
00000200 33 2c 31 33 30 2c 35 31 2c 35 31 2c 31 32 36 2c |3,130,51,51,126,|
00000210 32 35 34 2c 32 35 34 2c 31 32 36 2c 35 31 2c 35 |254,254,126,51,5|
00000220 31 0d 01 36 2c ef 20 32 33 2c 31 33 31 2c 32 30 |1..6,. 23,131,20|
00000230 34 2c 32 30 34 2c 31 32 36 2c 31 32 37 2c 31 32 |4,204,126,127,12|
00000240 37 2c 31 32 36 2c 32 30 34 2c 32 30 34 0d 01 40 |7,126,204,204..@|
00000250 2a ef 20 32 33 2c 31 33 32 2c 30 2c 32 35 32 2c |*. 23,132,0,252,|
00000260 32 35 32 2c 32 33 36 2c 31 39 39 2c 32 33 39 2c |252,236,199,239,|
00000270 32 35 35 2c 31 30 32 0d 01 4a 14 73 6f 75 6e 64 |255,102..J.sound|
00000280 3d b9 3a 2a 46 58 32 31 30 2c 30 0d 01 54 10 2a |=.:*FX210,0..T.*|
00000290 46 58 31 36 33 2c 31 32 38 2c 31 0d 01 5e 0d f2 |FX163,128,1..^..|
000002a0 61 73 73 65 6d 62 6c 65 0d 01 68 0e 72 61 6e 64 |assemble..h.rand|
000002b0 3d b3 28 2d 91 29 0d 01 72 05 e1 0d 01 7c 05 20 |=.(-.)..r....|. |
000002c0 0d 01 86 0d dd 20 f2 63 75 72 73 6f 72 0d 01 90 |..... .cursor...|
000002d0 12 ef 32 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d |..23,1,0;0;0;0;.|
000002e0 01 9a 05 e1 0d 01 a4 05 20 0d 01 ae 0f dd 20 f2 |........ ..... .|
000002f0 61 73 73 65 6d 62 6c 65 0d 01 b8 27 63 6f 64 65 |assemble...'code|
00000300 3d 26 39 30 30 3a 6f 73 62 79 74 65 3d 26 46 46 |=&900:osbyte=&FF|
00000310 46 34 3a 6f 73 77 72 63 68 3d 26 46 46 45 45 0d |F4:oswrch=&FFEE.|
00000320 01 c2 0b 50 25 3d 63 6f 64 65 0d 01 cc 0f 5b 20 |...P%=code....[ |
00000330 20 20 20 20 4f 50 54 20 32 0d 01 d6 11 20 20 20 | OPT 2.... |
00000340 20 20 20 4c 44 41 20 23 33 31 0d 01 e0 33 20 20 | LDA #31...3 |
00000350 20 20 20 20 4a 53 52 20 6f 73 77 72 63 68 20 20 | JSR oswrch |
00000360 20 20 20 20 20 20 5c 4d 6f 76 65 20 63 75 72 73 | \Move curs|
00000370 6f 72 20 74 6f 20 28 58 25 2c 59 25 29 0d 01 ea |or to (X%,Y%)...|
00000380 0d 20 20 20 20 20 20 54 58 41 0d 01 f4 14 20 20 |. TXA.... |
00000390 20 20 20 20 4a 53 52 20 6f 73 77 72 63 68 0d 01 | JSR oswrch..|
000003a0 fe 0d 20 20 20 20 20 20 54 59 41 0d 02 08 14 20 |.. TYA.... |
000003b0 20 20 20 20 20 4a 53 52 20 6f 73 77 72 63 68 0d | JSR oswrch.|
000003c0 02 12 3d 20 20 20 20 20 20 4c 44 41 20 23 31 33 |..= LDA #13|
000003d0 35 20 20 20 20 20 20 20 20 20 20 5c 4f 53 42 59 |5 \OSBY|
000003e0 54 45 20 31 33 35 20 3d 20 52 65 61 64 20 63 68 |TE 135 = Read ch|
000003f0 61 72 20 61 74 20 63 75 72 73 6f 72 0d 02 1c 14 |ar at cursor....|
00000400 20 20 20 20 20 20 4a 53 52 20 6f 73 62 79 74 65 | JSR osbyte|
00000410 0d 02 26 0d 20 20 20 20 20 20 54 58 41 0d 02 30 |..&. TXA..0|
00000420 0d 20 20 20 20 20 20 52 54 53 0d 02 3a 05 5d 0d |. RTS..:.].|
00000430 02 44 05 e1 0d 02 4e 05 20 0d 02 58 0d dd 20 f2 |.D....N. ..X.. .|
00000440 73 63 72 65 65 6e 0d 02 62 23 62 75 67 67 78 3d |screen..b#buggx=|
00000450 30 3a 62 75 67 67 79 3d 30 3a 6c 65 74 74 65 72 |0:buggy=0:letter|
00000460 3d 36 35 3a 63 61 72 3d 32 0d 02 6c 15 62 75 67 |=65:car=2..l.bug|
00000470 67 78 31 3d 30 3a 62 75 67 67 79 31 3d 30 0d 02 |gx1=0:buggy1=0..|
00000480 76 0a fb 31 32 39 3a db 0d 02 80 1f ef 32 38 2c |v..129:......28,|
00000490 30 2c 33 31 2c 31 39 2c 32 39 2c 31 37 2c 31 33 |0,31,19,29,17,13|
000004a0 30 2c 31 32 2c 32 36 0d 02 8a 0e ef 31 39 2c 30 |0,12,26.....19,0|
000004b0 2c 31 3b 30 3b 0d 02 94 0b fb 31 32 39 3a fb 30 |,1;0;.....129:.0|
000004c0 0d 02 9e 1b f1 20 8a 31 2c 33 30 29 20 22 4c 69 |..... .1,30) "Li|
000004d0 76 65 73 20 22 3b 6c 69 76 65 73 0d 02 a8 1c f1 |ves ";lives.....|
000004e0 20 8a 31 31 2c 33 30 29 20 22 4c 65 76 65 6c 20 | .11,30) "Level |
000004f0 22 3b 6c 65 76 65 6c 0d 02 b2 24 e7 20 6c 65 76 |";level...$. lev|
00000500 65 6c 3c 31 30 20 8c 20 f1 20 8a 31 37 2c 33 30 |el<10 . . .17,30|
00000510 29 20 22 30 22 3b 6c 65 76 65 6c 0d 02 bc 15 e3 |) "0";level.....|
00000520 20 64 69 73 70 6c 61 79 3d 36 35 20 b8 20 39 30 | display=65 . 90|
00000530 0d 02 c6 15 58 25 3d b3 28 31 38 29 3a 59 25 3d |....X%=.(18):Y%=|
00000540 b3 28 32 37 29 0d 02 d0 22 e7 20 28 ba 28 63 6f |.(27)...". (.(co|
00000550 64 65 29 20 80 20 26 46 46 29 3c 3e 33 32 20 8c |de) . &FF)<>32 .|
00000560 20 e5 20 8d 64 46 42 0d 02 da 10 f1 20 bd 28 64 | . .dFB..... .(d|
00000570 69 73 70 6c 61 79 29 0d 02 e4 05 ed 0d 02 ee 0e |isplay).........|
00000580 ef 31 39 2c 30 2c 36 3b 30 3b 0d 02 f8 05 e1 0d |.19,0,6;0;......|
00000590 03 02 05 20 0d 03 0c 0b dd 20 f2 67 61 6d 65 0d |... ..... .game.|
000005a0 03 16 07 fb 20 33 0d 03 20 1e f1 20 8a 62 75 67 |.... 3.. .. .bug|
000005b0 67 78 2c 62 75 67 67 79 29 20 bd 28 63 61 72 2b |gx,buggy) .(car+|
000005c0 31 32 37 29 0d 03 2a 09 f5 20 fd 20 a5 0d 03 34 |127)..*.. . ...4|
000005d0 05 f5 0d 03 3e 0b f2 75 70 64 61 74 65 0d 03 48 |....>..update..H|
000005e0 1e e3 20 77 61 69 74 3d 30 20 b8 20 31 32 30 2d |.. wait=0 . 120-|
000005f0 28 73 70 65 65 64 2a 38 29 3a ed 0d 03 52 19 fd |(speed*8):...R..|
00000600 20 6c 69 76 65 73 3c 30 20 84 20 6c 65 74 74 65 | lives<0 . lette|
00000610 72 3d 39 31 0d 03 5c 05 e1 0d 03 66 05 20 0d 03 |r=91..\....f. ..|
00000620 70 0c dd 20 f2 63 68 65 63 6b 0d 03 7a 1f e7 20 |p.. .check..z.. |
00000630 63 68 61 72 3c 3e 6c 65 74 74 65 72 20 8c 20 f2 |char<>letter . .|
00000640 6c 6f 73 65 5f 6c 69 66 65 0d 03 84 2d e7 20 63 |lose_life...-. c|
00000650 68 61 72 3d 6c 65 74 74 65 72 20 8c 20 6c 65 74 |har=letter . let|
00000660 74 65 72 3d 6c 65 74 74 65 72 2b 31 3a f2 73 6f |ter=letter+1:.so|
00000670 75 6e 64 28 31 29 0d 03 8e 05 e1 0d 03 98 05 20 |und(1)......... |
00000680 0d 03 a2 10 dd 20 f2 6c 6f 73 65 5f 6c 69 66 65 |..... .lose_life|
00000690 0d 03 ac 0d f2 73 6f 75 6e 64 28 33 29 0d 03 b6 |.....sound(3)...|
000006a0 11 6c 69 76 65 73 3d 6c 69 76 65 73 2d 31 0d 03 |.lives=lives-1..|
000006b0 c0 07 fb 20 30 0d 03 ca 1b f1 20 8a 62 75 67 67 |... 0..... .bugg|
000006c0 78 2c 62 75 67 67 79 29 20 bd 28 63 68 61 72 29 |x,buggy) .(char)|
000006d0 0d 03 d4 0e f2 61 6d 62 75 6c 61 6e 63 65 0d 03 |.....ambulance..|
000006e0 de 11 e7 20 6c 69 76 65 73 3c 30 20 8c 20 e1 0d |... lives<0 . ..|
000006f0 03 e8 1b f1 20 8a 31 2c 33 30 29 20 22 4c 69 76 |.... .1,30) "Liv|
00000700 65 73 20 22 3b 6c 69 76 65 73 0d 03 f2 07 fb 20 |es ";lives..... |
00000710 33 0d 03 fc 19 63 61 72 3d 32 3a 62 75 67 67 78 |3....car=2:buggx|
00000720 3d 30 3a 62 75 67 67 79 3d 30 0d 04 06 15 62 75 |=0:buggy=0....bu|
00000730 67 67 78 31 3d 30 3a 62 75 67 67 79 31 3d 30 0d |ggx1=0:buggy1=0.|
00000740 04 10 1e f1 20 8a 62 75 67 67 78 2c 62 75 67 67 |.... .buggx,bugg|
00000750 79 29 20 bd 28 63 61 72 2b 31 32 37 29 0d 04 1a |y) .(car+127)...|
00000760 0f d4 20 31 2c 33 2c 31 33 36 2c 35 0d 04 24 05 |.. 1,3,136,5..$.|
00000770 e1 0d 04 2e 05 20 0d 04 38 0a dd 20 f2 6b 65 79 |..... ..8.. .key|
00000780 0d 04 42 27 e7 20 a6 28 2d 37 33 29 20 8c 20 62 |..B'. .(-73) . b|
00000790 75 67 67 78 31 3d 30 3a 62 75 67 67 79 31 3d 2d |uggx1=0:buggy1=-|
000007a0 31 3a 63 61 72 3d 31 0d 04 4c 27 e7 20 a6 28 2d |1:car=1..L'. .(-|
000007b0 31 30 35 29 20 8c 20 62 75 67 67 78 31 3d 30 3a |105) . buggx1=0:|
000007c0 62 75 67 67 79 31 3d 31 3a 63 61 72 3d 32 0d 04 |buggy1=1:car=2..|
000007d0 56 27 e7 20 a6 28 2d 39 38 29 20 8c 20 62 75 67 |V'. .(-98) . bug|
000007e0 67 78 31 3d 2d 31 3a 62 75 67 67 79 31 3d 30 3a |gx1=-1:buggy1=0:|
000007f0 63 61 72 3d 33 0d 04 60 27 e7 20 a6 28 2d 36 37 |car=3..`'. .(-67|
00000800 29 20 20 8c 20 62 75 67 67 78 31 3d 31 3a 62 75 |) . buggx1=1:bu|
00000810 67 67 79 31 3d 30 3a 63 61 72 3d 34 0d 04 6a 25 |ggy1=0:car=4..j%|
00000820 e7 20 62 75 67 67 78 2b 62 75 67 67 78 31 3c 30 |. buggx+buggx1<0|
00000830 20 8c 20 62 75 67 67 78 31 3d 31 3a 63 61 72 3d | . buggx1=1:car=|
00000840 34 0d 04 74 27 e7 20 62 75 67 67 78 2b 62 75 67 |4..t'. buggx+bug|
00000850 67 78 31 3e 31 39 20 8c 20 62 75 67 67 78 31 3d |gx1>19 . buggx1=|
00000860 2d 31 3a 63 61 72 3d 33 0d 04 7e 25 e7 20 62 75 |-1:car=3..~%. bu|
00000870 67 67 79 2b 62 75 67 67 79 31 3c 30 20 8c 20 62 |ggy+buggy1<0 . b|
00000880 75 67 67 79 31 3d 31 3a 63 61 72 3d 32 0d 04 88 |uggy1=1:car=2...|
00000890 27 e7 20 62 75 67 67 79 2b 62 75 67 67 79 31 3e |'. buggy+buggy1>|
000008a0 32 38 20 8c 20 62 75 67 67 79 31 3d 2d 31 3a 63 |28 . buggy1=-1:c|
000008b0 61 72 3d 31 0d 04 92 05 e1 0d 04 9c 05 20 0d 04 |ar=1......... ..|
000008c0 a6 0d dd 20 f2 75 70 64 61 74 65 0d 04 b0 08 f2 |... .update.....|
000008d0 6b 65 79 0d 04 ba 13 58 25 3d 62 75 67 67 78 2b |key....X%=buggx+|
000008e0 62 75 67 67 78 31 0d 04 c4 13 59 25 3d 62 75 67 |buggx1....Y%=bug|
000008f0 67 79 2b 62 75 67 67 79 31 0d 04 ce 18 63 68 61 |gy+buggy1....cha|
00000900 72 3d 28 ba 28 63 6f 64 65 29 20 80 20 26 46 46 |r=(.(code) . &FF|
00000910 29 0d 04 d8 17 f1 20 8a 62 75 67 67 78 2c 62 75 |)..... .buggx,bu|
00000920 67 67 79 29 20 22 20 22 0d 04 e2 16 62 75 67 67 |ggy) " "....bugg|
00000930 78 3d 62 75 67 67 78 2b 62 75 67 67 78 31 0d 04 |x=buggx+buggx1..|
00000940 ec 16 62 75 67 67 79 3d 62 75 67 67 79 2b 62 75 |..buggy=buggy+bu|
00000950 67 67 79 31 0d 04 f6 1e f1 20 8a 62 75 67 67 78 |ggy1..... .buggx|
00000960 2c 62 75 67 67 79 29 20 bd 28 63 61 72 2b 31 32 |,buggy) .(car+12|
00000970 37 29 0d 05 00 20 e7 20 63 68 61 72 3e 36 34 20 |7)... . char>64 |
00000980 80 20 63 68 61 72 3c 39 31 20 8c 20 f2 63 68 65 |. char<91 . .che|
00000990 63 6b 0d 05 0a 05 e1 0d 05 14 05 20 0d 05 1e 0b |ck......... ....|
000009a0 dd 20 f2 6e 65 78 74 0d 05 28 11 6c 65 76 65 6c |. .next..(.level|
000009b0 3d 6c 65 76 65 6c 2b 31 0d 05 32 11 73 70 65 65 |=level+1..2.spee|
000009c0 64 3d 73 70 65 65 64 2b 31 0d 05 3c 17 e7 20 73 |d=speed+1..<.. s|
000009d0 70 65 65 64 3e 31 35 20 73 70 65 65 64 3d 31 35 |peed>15 speed=15|
000009e0 0d 05 46 0d f2 73 6f 75 6e 64 28 32 29 0d 05 50 |..F..sound(2)..P|
000009f0 05 e1 0d 05 5a 05 20 0d 05 64 0a dd 20 f2 77 69 |....Z. ..d.. .wi|
00000a00 6e 0d 05 6e 0b f2 63 75 72 73 6f 72 0d 05 78 07 |n..n..cursor..x.|
00000a10 fb 20 32 0d 05 82 20 f2 63 65 6e 74 72 65 28 22 |. 2... .centre("|
00000a20 41 4c 50 48 41 42 45 54 20 43 48 41 53 45 52 22 |ALPHABET CHASER"|
00000a30 2c 35 29 0d 05 8c 20 f2 63 65 6e 74 72 65 28 22 |,5)... .centre("|
00000a40 7e 7e 7e 7e 7e 7e 7e 7e 20 7e 7e 7e 7e 7e 7e 22 |~~~~~~~~ ~~~~~~"|
00000a50 2c 36 29 0d 05 96 07 fb 20 31 0d 05 a0 21 f2 63 |,6)..... 1...!.c|
00000a60 65 6e 74 72 65 28 22 43 4f 4e 47 52 41 54 55 4c |entre("CONGRATUL|
00000a70 41 54 49 4f 4e 53 22 2c 31 32 29 0d 05 aa 2e f2 |ATIONS",12).....|
00000a80 63 65 6e 74 72 65 28 22 59 6f 75 20 68 61 76 65 |centre("You have|
00000a90 20 63 6f 6d 70 6c 65 74 65 64 20 74 68 65 20 67 | completed the g|
00000aa0 61 6d 65 21 22 2c 31 35 29 0d 05 b4 07 fb 20 33 |ame!",15)..... 3|
00000ab0 0d 05 be 32 f2 63 65 6e 74 72 65 28 22 50 6c 65 |...2.centre("Ple|
00000ac0 61 73 65 20 73 65 6c 65 63 74 20 6e 65 78 74 20 |ase select next |
00000ad0 47 61 6d 65 20 53 70 65 65 64 2e 2e 2e 22 2c 32 |Game Speed...",2|
00000ae0 32 29 0d 05 c8 0d f2 73 6f 75 6e 64 28 32 29 0d |2).....sound(2).|
00000af0 05 d2 23 f5 20 72 65 70 6c 79 3d a5 3a fd 20 72 |..#. reply=.:. r|
00000b00 65 70 6c 79 3e 34 38 20 80 20 72 65 70 6c 79 3c |eply>48 . reply<|
00000b10 35 31 0d 05 dc 05 e1 0d 05 e6 05 20 0d 05 f0 0b |51......... ....|
00000b20 dd 20 f2 6c 6f 73 74 0d 05 fa 0e 2a 46 58 31 37 |. .lost....*FX17|
00000b30 38 2c 30 2c 30 0d 06 04 0b f2 63 75 72 73 6f 72 |8,0,0.....cursor|
00000b40 0d 06 0e 07 fb 20 32 0d 06 18 20 f2 63 65 6e 74 |..... 2... .cent|
00000b50 72 65 28 22 41 4c 50 48 41 42 45 54 20 43 48 41 |re("ALPHABET CHA|
00000b60 53 45 52 22 2c 35 29 0d 06 22 20 f2 63 65 6e 74 |SER",5).." .cent|
00000b70 72 65 28 22 7e 7e 7e 7e 7e 7e 7e 7e 20 7e 7e 7e |re("~~~~~~~~ ~~~|
00000b80 7e 7e 7e 22 2c 36 29 0d 06 2c 07 fb 20 31 0d 06 |~~~",6)..,.. 1..|
00000b90 36 2d f2 63 65 6e 74 72 65 28 22 41 6e 6f 74 68 |6-.centre("Anoth|
00000ba0 65 72 20 6f 6e 65 20 62 69 74 65 73 20 74 68 65 |er one bites the|
00000bb0 20 64 75 73 74 21 22 2c 31 32 29 0d 06 40 1b f2 | dust!",12)..@..|
00000bc0 63 65 6e 74 72 65 28 22 47 41 4d 45 20 4f 56 45 |centre("GAME OVE|
00000bd0 52 22 2c 31 35 29 0d 06 4a 07 fb 20 33 0d 06 54 |R",15)..J.. 3..T|
00000be0 32 f2 63 65 6e 74 72 65 28 22 50 6c 65 61 73 65 |2.centre("Please|
00000bf0 20 73 65 6c 65 63 74 20 6e 65 78 74 20 47 61 6d | select next Gam|
00000c00 65 20 53 70 65 65 64 2e 2e 2e 22 2c 32 32 29 0d |e Speed...",22).|
00000c10 06 5e 14 e7 20 73 6f 75 6e 64 3d a3 20 e5 20 8d |.^.. sound=. . .|
00000c20 74 50 46 0d 06 68 14 e3 20 41 3d 31 35 30 20 b8 |tPF..h.. A=150 .|
00000c30 20 31 20 88 20 2d 31 0d 06 72 0d f2 73 6f 75 6e | 1 . -1..r..soun|
00000c40 64 28 34 29 0d 06 7c 07 ed 20 41 0d 06 86 0d f2 |d(4)..|.. A.....|
00000c50 73 6f 75 6e 64 28 35 29 0d 06 90 10 2a 46 58 31 |sound(5)....*FX1|
00000c60 37 38 2c 32 35 35 2c 30 0d 06 9a 23 f5 20 72 65 |78,255,0...#. re|
00000c70 70 6c 79 3d a5 3a fd 20 72 65 70 6c 79 3e 34 38 |ply=.:. reply>48|
00000c80 20 80 20 72 65 70 6c 79 3c 35 31 0d 06 a4 05 e1 | . reply<51.....|
00000c90 0d 06 ae 05 20 0d 06 b8 0f dd 20 f2 73 6f 75 6e |.... ..... .soun|
00000ca0 64 28 73 29 0d 06 c2 16 e7 20 73 3d 31 20 d4 20 |d(s)..... s=1 . |
00000cb0 26 31 31 2c 31 2c 30 2c 34 30 0d 06 cc 16 e7 20 |&11,1,0,40..... |
00000cc0 73 3d 32 20 d4 20 26 31 32 2c 32 2c 34 2c 35 30 |s=2 . &12,2,4,50|
00000cd0 0d 06 d6 18 e7 20 73 3d 33 20 d4 20 26 31 33 2c |..... s=3 . &13,|
00000ce0 33 2c 31 33 36 2c 2d 31 0d 06 e0 15 e7 20 73 3d |3,136,-1..... s=|
00000cf0 34 20 d4 20 26 31 31 2c 34 2c 41 2c 31 0d 06 ea |4 . &11,4,A,1...|
00000d00 18 e7 20 73 3d 35 20 d4 20 30 2c 2d 31 35 2c 32 |.. s=5 . 0,-15,2|
00000d10 34 35 2c 34 35 0d 06 f4 0d e7 20 73 3e 30 20 8c |45,45..... s>0 .|
00000d20 20 e1 0d 06 fe 2c e2 20 31 2c 31 2c 31 2c 30 2c | ....,. 1,1,1,0,|
00000d30 30 2c 32 30 30 2c 30 2c 30 2c 31 32 36 2c 30 2c |0,200,0,0,126,0,|
00000d40 30 2c 2d 31 32 36 2c 31 32 36 2c 31 32 36 0d 07 |0,-126,126,126..|
00000d50 08 2c e2 20 32 2c 32 2c 36 2c 30 2c 30 2c 32 35 |.,. 2,2,6,0,0,25|
00000d60 35 2c 30 2c 30 2c 31 32 36 2c 30 2c 30 2c 2d 31 |5,0,0,126,0,0,-1|
00000d70 32 36 2c 31 32 36 2c 31 32 36 0d 07 12 2d e2 20 |26,126,126...-. |
00000d80 33 2c 31 2c 2d 37 2c 37 2c 30 2c 31 30 2c 31 30 |3,1,-7,7,0,10,10|
00000d90 2c 30 2c 31 32 36 2c 30 2c 30 2c 2d 31 32 36 2c |,0,126,0,0,-126,|
00000da0 31 32 36 2c 31 32 36 0d 07 1c 2d e2 20 34 2c 31 |126,126...-. 4,1|
00000db0 2c 31 30 2c 32 35 2c 31 30 2c 35 2c 35 2c 35 2c |,10,25,10,5,5,5,|
00000dc0 31 32 36 2c 30 2c 30 2c 2d 31 32 36 2c 31 32 36 |126,0,0,-126,126|
00000dd0 2c 31 32 36 0d 07 26 05 e1 0d 07 30 05 20 0d 07 |,126..&....0. ..|
00000de0 3a 16 dd 20 f2 63 65 6e 74 72 65 28 74 65 78 74 |:.. .centre(text|
00000df0 24 2c 79 29 0d 07 44 15 78 3d 32 30 2d 28 a9 28 |$,y)..D.x=20-(.(|
00000e00 74 65 78 74 24 29 2f 32 29 0d 07 4e 11 f1 20 8a |text$)/2)..N.. .|
00000e10 78 2c 79 29 20 74 65 78 74 24 0d 07 58 05 e1 0d |x,y) text$..X...|
00000e20 07 62 05 20 0d 07 6c 0c dd 20 f2 74 69 74 6c 65 |.b. ..l.. .title|
00000e30 0d 07 76 05 db 0d 07 80 0b 6c 69 76 65 73 3d 35 |..v......lives=5|
00000e40 0d 07 8a 0b 6c 65 76 65 6c 3d 31 0d 07 94 07 fb |....level=1.....|
00000e50 20 32 0d 07 9e 20 f2 63 65 6e 74 72 65 28 22 41 | 2... .centre("A|
00000e60 4c 50 48 41 42 45 54 20 43 48 41 53 45 52 22 2c |LPHABET CHASER",|
00000e70 35 29 0d 07 a8 20 f2 63 65 6e 74 72 65 28 22 7e |5)... .centre("~|
00000e80 7e 7e 7e 7e 7e 7e 7e 20 7e 7e 7e 7e 7e 7e 22 2c |~~~~~~~ ~~~~~~",|
00000e90 36 29 0d 07 b2 07 fb 20 31 0d 07 bc 30 f2 63 65 |6)..... 1...0.ce|
00000ea0 6e 74 72 65 28 22 43 6f 6c 6c 65 63 74 20 61 6c |ntre("Collect al|
00000eb0 6c 20 74 68 65 20 6c 65 74 74 65 72 73 20 6f 66 |l the letters of|
00000ec0 20 74 68 65 22 2c 31 30 29 0d 07 c6 37 f2 63 65 | the",10)...7.ce|
00000ed0 6e 74 72 65 28 22 61 6c 70 68 61 62 65 74 20 69 |ntre("alphabet i|
00000ee0 6e 20 6f 72 64 65 72 2c 20 77 68 69 63 68 20 50 |n order, which P|
00000ef0 72 69 6e 63 65 20 42 6c 61 63 6b 22 2c 31 31 29 |rince Black",11)|
00000f00 0d 07 d0 34 f2 63 65 6e 74 72 65 28 22 68 61 73 |...4.centre("has|
00000f10 20 73 74 6f 6c 65 6e 2c 20 74 6f 20 77 69 6e 20 | stolen, to win |
00000f20 66 61 76 6f 75 72 20 77 69 74 68 20 74 68 65 22 |favour with the"|
00000f30 2c 31 32 29 0d 07 da 29 f2 63 65 6e 74 72 65 28 |,12)...).centre(|
00000f40 22 65 6d 70 65 72 6f 72 20 61 6e 64 20 68 69 73 |"emperor and his|
00000f50 20 70 65 6f 70 6c 65 2e 22 2c 31 33 29 0d 07 e4 | people.",13)...|
00000f60 29 f2 63 65 6e 74 72 65 28 22 55 73 65 20 74 68 |).centre("Use th|
00000f70 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6b 65 79 73 |e following keys|
00000f80 3a 22 2c 31 36 29 0d 07 ee 2d f2 63 65 6e 74 72 |:",16)...-.centr|
00000f90 65 28 22 5a 20 20 2d 20 20 4c 65 66 74 20 20 20 |e("Z - Left |
00000fa0 20 20 20 58 20 20 2d 20 20 52 69 67 68 74 22 2c | X - Right",|
00000fb0 31 38 29 0d 07 f8 2d f2 63 65 6e 74 72 65 28 22 |18)...-.centre("|
00000fc0 2a 20 20 2d 20 20 55 70 20 20 20 20 20 20 20 20 |* - Up |
00000fd0 3f 20 20 2d 20 20 20 44 6f 77 6e 22 2c 31 39 29 |? - Down",19)|
00000fe0 0d 08 02 30 f2 63 65 6e 74 72 65 28 22 50 72 65 |...0.centre("Pre|
00000ff0 73 73 20 27 53 27 20 6e 6f 77 20 74 6f 20 74 6f |ss 'S' now to to|
00001000 67 67 6c 65 20 73 6f 75 6e 64 2e 22 2c 32 31 29 |ggle sound.",21)|
00001010 0d 08 0c 22 f1 20 8a 39 2c 32 32 29 22 53 6f 75 |...". .9,22)"Sou|
00001020 6e 64 20 69 73 20 70 72 65 73 65 6e 74 6c 79 20 |nd is presently |
00001030 22 3b 0d 08 16 07 fb 20 32 0d 08 20 1e e7 20 73 |";..... 2.. .. s|
00001040 6f 75 6e 64 3d b9 20 f1 20 22 4f 4e 22 20 8b 20 |ound=. . "ON" . |
00001050 f1 20 22 4f 46 46 22 0d 08 2a 38 f2 63 65 6e 74 |. "OFF"..*8.cent|
00001060 72 65 28 22 43 68 6f 6f 73 65 20 47 61 6d 65 20 |re("Choose Game |
00001070 53 70 65 65 64 20 74 6f 20 63 6f 6e 74 69 6e 75 |Speed to continu|
00001080 65 20 28 31 20 6f 72 20 32 29 22 2c 32 37 29 0d |e (1 or 2)",27).|
00001090 08 34 05 f5 0d 08 3e 0b 72 65 70 6c 79 3d a5 0d |.4....>.reply=..|
000010a0 08 48 32 e7 20 72 65 70 6c 79 3d 38 33 20 80 20 |.H2. reply=83 . |
000010b0 73 6f 75 6e 64 3d b9 20 8c 20 f1 20 8a 32 38 2c |sound=. . . .28,|
000010c0 32 32 29 22 4f 46 46 22 3a 2a 46 58 32 31 30 2c |22)"OFF":*FX210,|
000010d0 31 0d 08 52 32 e7 20 72 65 70 6c 79 3d 38 33 20 |1..R2. reply=83 |
000010e0 80 20 73 6f 75 6e 64 3d a3 20 8c 20 f1 20 8a 32 |. sound=. . . .2|
000010f0 38 2c 32 32 29 22 4f 4e 20 22 3a 2a 46 58 32 31 |8,22)"ON ":*FX21|
00001100 30 2c 30 0d 08 5c 43 e7 20 72 65 70 6c 79 3d 38 |0,0..\C. reply=8|
00001110 33 20 80 20 73 6f 75 6e 64 3d a3 20 8c 20 73 6f |3 . sound=. . so|
00001120 75 6e 64 3d b9 20 8b 20 e7 20 72 65 70 6c 79 3d |und=. . . reply=|
00001130 38 33 20 80 20 73 6f 75 6e 64 3d b9 20 8c 20 73 |83 . sound=. . s|
00001140 6f 75 6e 64 3d a3 0d 08 66 19 fd 20 72 65 70 6c |ound=...f.. repl|
00001150 79 3e 34 38 20 80 20 72 65 70 6c 79 3c 35 31 0d |y>48 . reply<51.|
00001160 08 70 05 e1 0d 08 7a 05 20 0d 08 84 10 dd 20 f2 |.p....z. ..... .|
00001170 61 6d 62 75 6c 61 6e 63 65 0d 08 8e 09 ea 20 78 |ambulance..... x|
00001180 2c 79 0d 08 98 0c 78 3d 31 3a 79 3d 33 30 0d 08 |,y....x=1:y=30..|
00001190 a2 07 fb 20 33 0d 08 ac 05 f5 0d 08 b6 10 f1 20 |... 3.......... |
000011a0 8a 78 2c 79 29 20 bd 31 33 32 0d 08 c0 17 e7 20 |.x,y) .132..... |
000011b0 78 3e 31 20 f1 20 8a 78 2d 31 2c 79 29 20 22 20 |x>1 . .x-1,y) " |
000011c0 22 0d 08 ca 09 78 3d 78 2b 31 0d 08 d4 11 e3 20 |"....x=x+1..... |
000011d0 49 3d 31 20 b8 20 32 30 30 3a ed 0d 08 de 09 fd |I=1 . 200:......|
000011e0 20 78 3d 38 0d 08 e8 07 fb 20 30 0d 08 f2 05 e1 | x=8..... 0.....|
000011f0 0d 08 fc 05 20 0d 09 06 0e dd 20 f2 6e 65 77 67 |.... ..... .newg|
00001200 61 6d 65 0d 09 10 0a 6f 76 65 72 3d 30 0d 09 1a |ame....over=0...|
00001210 0b 6c 69 76 65 73 3d 35 0d 09 24 0b 6c 65 76 65 |.lives=5..$.leve|
00001220 6c 3d 31 0d 09 2e 12 72 65 70 6c 79 3d 72 65 70 |l=1....reply=rep|
00001230 6c 79 2d 34 38 0d 09 38 20 e7 20 72 65 70 6c 79 |ly-48..8 . reply|
00001240 3d 31 20 73 70 65 65 64 3d 31 20 8b 20 73 70 65 |=1 speed=1 . spe|
00001250 65 64 3d 31 31 0d 09 42 05 e1 0d 09 4c 05 20 0d |ed=11..B....L. .|
00001260 09 56 0b dd 20 f2 64 6f 77 6e 0d 09 60 5f 2a 4b |.V.. .down..`_*K|
00001270 45 59 30 20 2a 54 2e 7c 4d 46 4f 52 20 49 25 3d |EY0 *T.|MFOR I%=|
00001280 50 41 47 45 20 54 4f 20 54 4f 50 20 53 54 45 50 |PAGE TO TOP STEP|
00001290 34 3a 21 28 49 25 2d 44 25 29 3d 21 49 25 3a 4e |4:!(I%-D%)=!I%:N|
000012a0 45 58 54 3a 21 28 54 4f 50 2d 44 25 29 3d 26 46 |EXT:!(TOP-D%)=&F|
000012b0 46 30 44 3a 50 41 47 45 3d 26 45 30 30 7c 4d 4f |F0D:PAGE=&E00|MO|
000012c0 4c 44 7c 4d 52 55 4e 7c 4d 0d 09 6a 1a 44 25 3d |LD|MRUN|M..j.D%=|
000012d0 90 2d 26 45 30 30 3a 2a 46 58 31 33 38 2c 30 2c |.-&E00:*FX138,0,|
000012e0 31 32 38 0d 09 74 05 e1 0d 09 7e 05 20 0d 09 88 |128..t....~. ...|
000012f0 0c dd 20 f2 65 72 72 6f 72 0d 09 92 0e e7 20 9f |.. .error..... .|
00001300 3d 31 37 20 8c 20 f9 0d 09 9c 15 f6 3a f1 20 22 |=17 . ......:. "|
00001310 20 61 74 20 6c 69 6e 65 20 22 3b 9e 0d 09 a6 15 | at line ";.....|
00001320 ef 20 32 33 2c 31 2c 31 2c 30 3b 30 3b 30 3b 30 |. 23,1,1,0;0;0;0|
00001330 3b 0d 09 b0 05 e1 0d 09 ba 05 20 0d 09 c4 1b 2a |;......... ....*|
00001340 2a 2a 54 68 61 74 27 73 20 61 6c 6c 20 66 6f 6c |**That's all fol|
00001350 6b 73 21 2a 2a 2a 0d ff |ks!***..|
00001358 
G/Alpha.m0
G/Alpha.m1
G/Alpha.m2
G/Alpha.m4
G/Alpha.m5
.