Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES1/ROBOTS

GAMES1/ROBOTS

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 » Digital_pictures_2.ADF
Filename: GAMES1/ROBOTS
Read OK: ✔
File size: 17CD bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10REM ROBOT ATTACK
   20REM ELBUG DECEMBER 1983
  100PROCsetup
  110ON ERROR GOTO 2990
  120MODE6:PROCtitle
  130REPEAT
  140MODE5
  150SP%=SP%-50
  160PROCobstacles
  170REPEAT
  180I%=I%+1
  190PROCcowboy
  200PROCrobot
  210IF GKL%=1 AND GA%=1 AND DD%=0 AND RND(1)>.3 PROCmarvin
  220IF I%>4 I%=0
  230IF S%>OS% OS%=OS%+1500:LV%=LV%+1:PROClv:IF SND%=1 SOUND 1,1,100,1
  240UNTIL DP%=5 OR DD%=1
  250IF DD%=0 SH%=SH%+1:DP%=0:GOTO150
  260LV%=LV%-1:DD%=0:IF LV%>0 GOTO160
  270PROCdelay(3500)
  280PROCscore:PROCreset:PROCdisplayscore
  290UNTIL FALSE
  300END
  310:
 1000DEFPROCtitle
 1010VDU31,12,8:PRINT"ROBOT ATTACK"
 1020PRINT'TAB(11);"by Edward Hung"'"Do you wish to be briefed on the mission"TAB(12);"Press Y or N"
 1030A$=GET$:IF A$="Y" PROCrules ELSE IF A$<>"N" THEN 1030
 1040ENDPROC
 1050:
 1060DEFPROCrules
 1070VDU12,31,5,1:PRINT"ROBOT ATTACK INSTRUCTIONS"
 1080PRINT'"     You are the last survivor of the     Human race.  You are being persued"
 1090FOR T%=1TO13:READA,A$:PRINTTAB(A)A$:NEXT
 1100PRINT'TAB(8)"SPACE BAR TO HYPERSPACE"'''TAB(10);"ANY KEY TO START"
 1110DATA0,"by a hostile group of Bolo Bolo robots,",1,"whose only orders are to kill you by",13,"ramming you.",2,"Occasionally, Mean MARVIN, King of",4,"Boloans appears to help them.",2,"You must kill them by luring them"
 1120DATA2,"onto mines which you yourself must",13,"not walk onto.",3,"CONTROLS:",16,"Z - LEFT",16,"X - RIGHT",16,": - UP",16,"/ - DOWN"
 1130*FX15,0
 1140A=GET
 1150ENDPROC
 1160:
 1170DEFPROCsetup
 1180ENVELOPE1,1,0,0,0,0,0,0,126,0,0,-126,126,126
 1190VDU23,250,8,28,9,30,40,8,20,20
 1200VDU23,251,16,56,144,120,20,16,40,40 
 1210VDU23,252,24,24,60,90,90,16,16,24
 1220VDU23,253,24,16,124,186,186,16,40,40
 1230VDU23,254;24,60,60,60,60,24;
 1240VDU23,255;146,84;198;84,146
 1250VDU23,224,160,84,184,16,8,5,2;
 1260VDU23,225;0;0,9,81,127;
 1270VDU23,226,5,42,29,16,32,192,64;
 1280VDU23,227;0;0,72,69,127;
 1290VDU23,228,1,1,1,1,1,1,1,1
 1300VDU23,229,0,6,30,62,30;0;
 1310DIMX%(5),Y%(5),S%(10),N$(10)
 1320SND%=1:*FX4,1
 1330PROCscinit
 1340PROCreset
 1350ENDPROC
 1360:
 1370DEFPROCscinit
 1380FOR I%=1TO10:S%(I%)=550-I%*50:N$(I%)="The Robots of Zaexon":NEXT
 1390ENDPROC
 1400:
 1410DEFPROClv
 1420VDU17,3,31,1,31:PRINT SPC(14);TAB(1,31)STRING$(LV%-1,CHR$250);
 1430ENDPROC
 1440:
 1450DEFPROCreset
 1460S%=0:SC%=0:OS%=1500:SP%=400:SH%=1:LV%=3:F%=0
 1470ENDPROC
 1480:
 1490DEFPROCrnd1
 1500A%=RND(18):B%=RND(25)+4
 1510ENDPROC
 1520:
 1530DEFPROCrnd2
 1540X%(I%)=RND(18):Y%(I%)=RND(25)+4
 1550ENDPROC
 1560:
 1570DEFPROCrnd3
 1580X%=RND(18):Y%=RND(25)+4
 1590ENDPROC
 1600:
 1610DEFPROCobstacles
 1620VDU23,1,0;0;0;0;:VDU28,1,29,18,3:VDU12:VDU26:VDU19,15,2;0;
 1630GCOL0,3:MOVE60,60:DRAW1219,60:DRAW1219,930:DRAW60,930:DRAW60,60:FOR I%=576TO704STEP33:MOVEI%,926:DRAWI%,866:NEXT:DRAW576,866
 1640FOR T%=1TO15:VDU17,1,31,RND(18),RND(24)+5,254:NEXT
 1650FOR I%=1TO5
 1660REPEAT PROCrnd2:UNTIL FNpoint=0
 1670VDU17,6,31,X%(I%),Y%(I%),252:NEXT
 1680VDU5,18,0,2,25,4,576;1024-4*32;253,4,17,5,31,5,0
 1690PRINT"HISCORE ";S%(1)TAB(6,1)"SCORE ";S%
 1700I%=0:DD%=0:GKL%=-1:DP%=0:D%=250:GA%=0:FL%=0:C%=0
 1710PROClv
 1720LE%=SH%MOD5
 1730IF SH%/5=SH%DIV5 LE%=5
 1740IF LE%=1 VDU4:PRINTTAB(14,31);SPC(4);
 1750VDU5,18,0,1,25,4,(18-LE%)*64;1024-31*32;
 1760 IF SH%>30 SH%=1
 1770IF SH%<31 A=7:IF SH%<26 A=6:IF SH%<21 A=5:IF SH%<16 A=2:IF SH%<11 A=4:IF SH%<6 A=1
 1780GCOL0,A:PRINTSTRING$(LE%,CHR$(229))
 1790GCOL0,3:MOVE(18-LE%)*64,1024-31*32:PRINTTAB(18-LE%,31)STRING$(LE%,CHR$(228))
 1800REPEAT PROCrnd1:UNTIL FNpnt(A%,B%)=0
 1810a%=A%:b%=B% 
 1820VDU4,17,3,31,A%,B%,250
 1830FOR T%=1 TO 10000:NEXT
 1840VDU17,3,31,A%,B%,250
 1850ENDPROC
 1860:
 1870DEFPROCcowboy
 1880IF INKEY-98 A%=A%-1:F%=1:D%=251
 1890IF INKEY-67 A%=A%+1:F%=1:D%=250
 1900IF INKEY-105 B%=B%+1:F%=1
 1910IF INKEY-73 B%=B%-1:F%=1 
 1920IF INKEY-99 H%=1:F%=1:REPEAT PROCrnd1:UNTIL FNpnt(A%,B%)<>6 AND FNpnt(A%,B%)<>2:IF SND%=1 THEN SOUND17,2,50,10
 1930IF F%=0 ENDPROC
 1940A%=A%+(A%>18)-(A%<1):B%=B%+(B%>29)-(B%<3)
 1950IF FNpnt(A%,B%)=1 PROCpit(a%,b%,A%,B%):DD%=1:ENDPROC
 1960IF FNpnt(A%,B%)=6 FNpnt(A%,B%)=2 PROCdead:DD%=1:ENDPROC
 1970IF FNpnt(A%,B%)<>0 A%=a%:B%=b%:ENDPROC
 1980PRINTTAB(a%,b%)CHR$32:IF H%=1 H%=0:PROCdelay(700)
 1990VDU17,3,31,A%,B%,D%
 2000a%=A%:b%=B%:F%=0
 2010FOR T%=0TO(SP%/50):NEXT
 2020ENDPROC
 2030:
 2040DEFPROCrobot
 2050IF DD%=1 ENDPROC
 2060IF X%(I%)=0 AND Y%(I%)=0 ENDPROC
 2070OX%=X%(I%):OY%=Y%(I%)
 2080X%(I%)=X%(I%)+(X%(I%)>A%)-(X%(I%)<A%)
 2090Y%(I%)=Y%(I%)+(Y%(I%)>B%)-(Y%(I%)<B%) 
 2100IF FNpoint=6 OR FNpoint=2 REPEAT PROCrnd2:UNTIL FNpoint=0:IF SND%=1 SOUND1,2,50,10
 2110IF FNpoint=1 PROCpit(OX%,OY%,X%(I%),Y%(I%)):X%(I%)=0:Y%(I%)=0:DP%=DP%+1:PROCms(10):ENDPROC
 2120IF FNpoint=3 PROCdead:DD%=1:ENDPROC
 2130IF FNpoint<>0 Y%(I%)=Y%(i%)+2
 2140FOR T%=0TO(SP%/50):NEXT
 2150IF SND%=1 SOUND3,-15,10,1
 2160PRINTTAB(OX%,OY%);SPC(1):VDU17,6,31,X%(I%),Y%(I%),252
 2170IF RND(1)>.95 AND FL%=0:GKL%=-GKL%:C%=GKL%:IF GKL%=1 X%=9:Y%=5:FL%=1:J%=0:GA%=0:VDU19,15,14;0;:IF SND%=1 SOUND1,-15,50,1 
 2180IF C%=-1 VDU5,18,3,2,25,4,9*64;1024-4*32;253,4:PRINTTAB(X%,Y%)SPC(1):C%=0:IF SND%=1 SOUND1,-15,200,1
 2190IF FL%=1 J%=J%+1:IF J%=10 VDU5,18,3,2,25,4,9*64;1024-4*32;253,4,19,15,2;0;:FL%=0:GA%=1:IF SND%=1 SOUND1,-15,200,1
 2200ENDPROC
 2210:
 2220DEFPROCmarvin
 2230XX%=X%:YY%=Y%
 2240X%=X%+(X%>A%)-(X%<A%):Y%=Y%+(Y%>B%)-(Y%<B%)
 2250IF FNpnt(X%,Y%)=15 Y%=Y%+2
 2260IF FNpnt(X%,Y%)=1 PROCpit(XX%,YY%,X%,Y%):X%=0:Y%=0:GKL%=-1:VDU5,18,3,2,25,4,576;1024-4*32;253,4:PROCms(100):ENDPROC
 2270IF FNpnt(X%,Y%)=3 PROCdead:DD%=1:ENDPROC
 2280IF FNpnt(X%,Y%)=6 REPEAT PROCrnd3:UNTIL FNpnt(X%,Y%)=0:IF SND%=1 SOUND3,2,50,10
 2290IF SND%=1 SOUND2,3,50,1
 2300PRINTTAB(XX%,YY%);SPC(1):VDU17,2,31,X%,Y%,253
 2310ENDPROC
 2320:
 2330DEFPROCpit(a,b,A,B)
 2340PRINTTAB(a,b)" "
 2350IF SND%=1 SOUND0,1,5,1
 2360VDU17,3,31,A,B,255:FOR L=1TO500:NEXT:PRINTTAB(A,B);SPC(1)
 2370ENDPROC
 2380:
 2390DEFPROCdead
 2400IF D%=250 D%=224 ELSE D%=226
 2410VDU17,3,31,a%,b%,D%:FOR L=1TO500:NEXT:VDU31,a%,b%,D%+1
 2420IF SND%=1 SOUND0,1,5,1
 2430PROCdelay(700)
 2440IF SND%=1 FOR Q%=1TO5:FOR L%=255TO200STEP-1:SOUND17,-15,L%,1:NEXT,
 2450IF SND%=0 PROCdelay(2000)
 2460ENDPROC
 2470:
 2480DEFPROCdelay(T%)
 2490FOR T=1TOT%:NEXT
 2500ENDPROC
 2510:
 2520DEFPROCms(S)
 2530S%=S%+S:VDU17,2,31,12,1:PRINT;S%
 2540ENDPROC
 2550:
 2560 DEFPROCscore
 2570 FOR I%=1TO10
 2580IF S%>S%(I%) AND SC%=0 SC%=I%
 2590NEXT
 2600IF SC%=0 ENDPROC
 2610PROCentername
 2620FOR P%=10 TO SC%+1 STEP-1:S%(P%)=S%(P%-1):N$(P%)=N$(P%-1):NEXT
 2630N$(SC%)=N$
 2640S%(SC%)=S%
 2650 ENDPROC
 2660:
 2670DEFPROCentername
 2680VDU12,17,2:PRINTTAB(0,6)"Your score is in the"''TAB(6)"Top Ten"''''
 2690VDU17,6:PRINT"Please enter your"''TAB(7)"name:"''
 2700*FX15,0
 2710VDU23;10,224;0;0;0;
 2720VDU31,0,20;17,3
 2730X%=&80:Y%=&A:A%=0
 2740!&A80=&A00:?&A82=20:?&A83=32:?&A84=128
 2750CALL &FFF1
 2760N$=$&A00 
 2770ENDPROC
 2780:
 2790DEFPROCdisplayscore
 2800VDU22,4,23,1;1;0;0;0,19,3,0;0;:PRINTTAB(15)"Highscores"'':VDU19,1,3;0;17,1
 2810FOR I%=1TO10:IF I%=10AA$=""ELSEAA$=" "
 2820BB$=".....":IF S%(I%)<999BB$="......":IF S%(I%)<99BB$="......."
 2830PRINTTAB(3)AA$;I%;BB$;S%(I%);"...";N$(I%)'
 2840NEXT
 2850VDU19,0,0;0;17,1:PRINTTAB(8)"C to close sound channel"'TAB(8)"O to open sound channel"''TAB(11)"Sound Channel"'TAB(11)"Any key to start"'TAB(7)"or @ to clear score table"
 2860COLOUR3:IF SND%=1 PRINTTAB(25,26)"on. "ELSEPRINTTAB(25,26)"off."
 2870*FX15,0
 2880A=GET
 2890IF A=64 PROCscinit:GOTO2800
 2900IF A=67 OR A=99 PRINTTAB(25,26)"off.":SND%=0:GOTO2880
 2910IF A=79 OR A=111 PRINTTAB(25,26)"on. ":SND%=1:GOTO2880
 2920ENDPROC
 2930:
 2940DEFFNpoint
 2950=FNpnt(X%(I%),Y%(I%))
 2960DEFFNpnt(U%,V%)
 2970=POINT(U%*64+32,1010-V%*32)
 2980:
 2990ON ERROR OFF
 3000MODE6
 3010*FX4
 3020IF ERR=17 END
 3030REPORT:PRINT" at line ";ERL
 3040END


� ROBOT ATTACK
� ELBUG DECEMBER 1983
d
�setup
n� � � �tnK
x
�6:�title
��
��5
�SP%=SP%-50
��obstacles
��
�I%=I%+1
��cowboy
�
�robot
�.� GKL%=1 � GA%=1 � DD%=0 � �(1)>.3 �marvin
�� I%>4 I%=0
�<� S%>OS% OS%=OS%+1500:LV%=LV%+1:�lv:� SND%=1 � 1,1,100,1
�� DP%=5 � DD%=1
�!� DD%=0 SH%=SH%+1:DP%=0:�tV@
!LV%=LV%-1:DD%=0:� LV%>0 �t`@
�delay(3500)
�score:�reset:�displayscore
"� �
,�
6:
���title
��31,12,8:�"ROBOT ATTACK"
�Y�'�11);"by Edward Hung"'"Do you wish to be briefed on the mission"�12);"Press Y or N"
+A$=�:� A$="Y" �rules � � A$<>"N" � �TFD
�
:
$��rules
.+�12,31,5,1:�"ROBOT ATTACK INSTRUCTIONS"
8T�'"     You are the last survivor of the     Human race.  You are being persued"
B� T%=1�13:�A,A$:�A)A$:�
L<�'�8)"SPACE BAR TO HYPERSPACE"'''�10);"ANY KEY TO START"
V��0,"by a hostile group of Bolo Bolo robots,",1,"whose only orders are to kill you by",13,"ramming you.",2,"Occasionally, Mean MARVIN, King of",4,"Boloans appears to help them.",2,"You must kill them by luring them"
`��2,"onto mines which you yourself must",13,"not walk onto.",3,"CONTROLS:",16,"Z - LEFT",16,"X - RIGHT",16,": - UP",16,"/ - DOWN"
j*FX15,0
tA=�
~�
�:
���setup
�)�1,1,0,0,0,0,0,0,126,0,0,-126,126,126
� �23,250,8,28,9,30,40,8,20,20
�&�23,251,16,56,144,120,20,16,40,40 
�#�23,252,24,24,60,90,90,16,16,24
�&�23,253,24,16,124,186,186,16,40,40
��23,254;24,60,60,60,60,24;
��23,255;146,84;198;84,146
� �23,224,160,84,184,16,8,5,2;
��23,225;0;0,9,81,127;
�!�23,226,5,42,29,16,32,192,64;
�23,227;0;0,72,69,127;

�23,228,1,1,1,1,1,1,1,1
�23,229,0,6,30,62,30;0;
�X%(5),Y%(5),S%(10),N$(10)
(SND%=1:*FX4,1
2�scinit
<
�reset
F�
P:
Z��scinit
d>� I%=1�10:S%(I%)=550-I%*50:N$(I%)="The Robots of Zaexon":�
n�
x:
���lv
�-�17,3,31,1,31:� �(14);�1,31)�LV%-1,�250);
��
�:
���reset
�0S%=0:SC%=0:OS%=1500:SP%=400:SH%=1:LV%=3:F%=0
��
�:
�
��rnd1
�A%=�(18):B%=�(25)+4
��
�:
�
��rnd2
X%(I%)=�(18):Y%(I%)=�(25)+4
�
:
"
��rnd3
,X%=�(18):Y%=�(25)+4
6�
@:
J��obstacles
T4�23,1,0;0;0;0;:�28,1,29,18,3:�12:�26:�19,15,2;0;
^\�0,3:�60,60:�1219,60:�1219,930:�60,930:�60,60:� I%=576�704�33:�I%,926:�I%,866:�:�576,866
h*� T%=1�15:�17,1,31,�(18),�(24)+5,254:�
r� I%=1�5
|� �rnd2:� �point=0
� �17,6,31,X%(I%),Y%(I%),252:�
�2�5,18,0,2,25,4,576;1024-4*32;253,4,17,5,31,5,0
�%�"HISCORE ";S%(1)�6,1)"SCORE ";S%
�4I%=0:DD%=0:GKL%=-1:DP%=0:D%=250:GA%=0:FL%=0:C%=0
��lv
�
LE%=SH%�5
�� SH%/5=SH%�5 LE%=5
�� LE%=1 �4:�14,31);�(4);
�*�5,18,0,1,25,4,(18-LE%)*64;1024-31*32;
� � SH%>30 SH%=1
�P� SH%<31 A=7:� SH%<26 A=6:� SH%<21 A=5:� SH%<16 A=2:� SH%<11 A=4:� SH%<6 A=1
��0,A:��LE%,�(229))
�9�0,3:�(18-LE%)*64,1024-31*32:�18-LE%,31)�LE%,�(228))
� �rnd1:� �pnt(A%,B%)=0
a%=A%:b%=B% 
�4,17,3,31,A%,B%,250
&� T%=1 � 10000:�
0�17,3,31,A%,B%,250
:�
D:
N��cowboy
X� �-98 A%=A%-1:F%=1:D%=251
b� �-67 A%=A%+1:F%=1:D%=250
l� �-105 B%=B%+1:F%=1
v� �-73 B%=B%-1:F%=1 
�U� �-99 H%=1:F%=1:� �rnd1:� �pnt(A%,B%)<>6 � �pnt(A%,B%)<>2:� SND%=1 � �17,2,50,10
�� F%=0 �
�-A%=A%+(A%>18)-(A%<1):B%=B%+(B%>29)-(B%<3)
�-� �pnt(A%,B%)=1 �pit(a%,b%,A%,B%):DD%=1:�
�/� �pnt(A%,B%)=6 �pnt(A%,B%)=2 �dead:DD%=1:�
�"� �pnt(A%,B%)<>0 A%=a%:B%=b%:�
�'�a%,b%)�32:� H%=1 H%=0:�delay(700)
��17,3,31,A%,B%,D%
�a%=A%:b%=B%:F%=0
�� T%=0�(SP%/50):�
��
�:
���robot

� DD%=1 �
� X%(I%)=0 � Y%(I%)=0 �
OX%=X%(I%):OY%=Y%(I%)
 )X%(I%)=X%(I%)+(X%(I%)>A%)-(X%(I%)<A%)
**Y%(I%)=Y%(I%)+(Y%(I%)>B%)-(Y%(I%)<B%) 
4@� �point=6 � �point=2 � �rnd2:� �point=0:� SND%=1 �1,2,50,10
>P� �point=1 �pit(OX%,OY%,X%(I%),Y%(I%)):X%(I%)=0:Y%(I%)=0:DP%=DP%+1:�ms(10):�
H� �point=3 �dead:DD%=1:�
R� �point<>0 Y%(I%)=Y%(i%)+2
\� T%=0�(SP%/50):�
f� SND%=1 �3,-15,10,1
p.�OX%,OY%);�(1):�17,6,31,X%(I%),Y%(I%),252
zp� �(1)>.95 � FL%=0:GKL%=-GKL%:C%=GKL%:� GKL%=1 X%=9:Y%=5:FL%=1:J%=0:GA%=0:�19,15,14;0;:� SND%=1 �1,-15,50,1 
�W� C%=-1 �5,18,3,2,25,4,9*64;1024-4*32;253,4:�X%,Y%)�(1):C%=0:� SND%=1 �1,-15,200,1
�l� FL%=1 J%=J%+1:� J%=10 �5,18,3,2,25,4,9*64;1024-4*32;253,4,19,15,2;0;:FL%=0:GA%=1:� SND%=1 �1,-15,200,1
��
�:
���marvin
�XX%=X%:YY%=Y%
�/X%=X%+(X%>A%)-(X%<A%):Y%=Y%+(Y%>B%)-(Y%<B%)
�� �pnt(X%,Y%)=15 Y%=Y%+2
�g� �pnt(X%,Y%)=1 �pit(XX%,YY%,X%,Y%):X%=0:Y%=0:GKL%=-1:�5,18,3,2,25,4,576;1024-4*32;253,4:�ms(100):�
�!� �pnt(X%,Y%)=3 �dead:DD%=1:�
�?� �pnt(X%,Y%)=6 � �rnd3:� �pnt(X%,Y%)=0:� SND%=1 �3,2,50,10
�� SND%=1 �2,3,50,1
�&�XX%,YY%);�(1):�17,2,31,X%,Y%,253
	�
	:
	��pit(a,b,A,B)
	$
�a,b)" "
	.� SND%=1 �0,1,5,1
	8,�17,3,31,A,B,255:� L=1�500:�:�A,B);�(1)
	B�
	L:
	V
��dead
	`� D%=250 D%=224 � D%=226
	j0�17,3,31,a%,b%,D%:� L=1�500:�:�31,a%,b%,D%+1
	t� SND%=1 �0,1,5,1
	~�delay(700)
	�5� SND%=1 � Q%=1�5:� L%=255�200�-1:�17,-15,L%,1:�,
	�� SND%=0 �delay(2000)
	��
	�:
	���delay(T%)
	�� T=1�T%:�
	��
	�:
	���ms(S)
	�S%=S%+S:�17,2,31,12,1:�;S%
	��
	�:
 ��score

 � I%=1�10
� S%>S%(I%) � SC%=0 SC%=I%
�
(
� SC%=0 �
2�entername
<9� P%=10 � SC%+1 �-1:S%(P%)=S%(P%-1):N$(P%)=N$(P%-1):�
FN$(SC%)=N$
PS%(SC%)=S%
Z �
d:
n��entername
x;�12,17,2:�0,6)"Your score is in the"''�6)"Top Ten"''''
�,�17,6:�"Please enter your"''�7)"name:"''
�*FX15,0
��23;10,224;0;0;0;
��31,0,20;17,3
�X%=&80:Y%=&A:A%=0
�*!&A80=&A00:?&A82=20:?&A83=32:?&A84=128
�� &FFF1
�
N$=$&A00 
��
�:
���displayscore
�C�22,4,23,1;1;0;0;0,19,3,0;0;:�15)"Highscores"'':�19,1,3;0;17,1
�#� I%=1�10:� I%=10AA$=""�AA$=" "
ABB$=".....":� S%(I%)<999BB$="......":� S%(I%)<99BB$="......."
'�3)AA$;I%;BB$;S%(I%);"...";N$(I%)'
�
"��19,0,0;0;17,1:�8)"C to close sound channel"'�8)"O to open sound channel"''�11)"Sound Channel"'�11)"Any key to start"'�7)"or @ to clear score table"
,-�3:� SND%=1 �25,26)"on. "��25,26)"off."
6*FX15,0
@A=�
J� A=64 �scinit:�dpJ
T-� A=67 � A=99 �25,26)"off.":SND%=0:�D@K
^.� A=79 � A=111 �25,26)"on. ":SND%=1:�D@K
h�
r:
|ݤpoint
�=�pnt(X%(I%),Y%(I%))
�ݤpnt(U%,V%)
�=�U%*64+32,1010-V%*32)
�:
�	� � �
��6
�*FX4
�� �=17 �
��:�" at line ";�
��
�
00000000  0d 00 0a 12 f4 20 52 4f  42 4f 54 20 41 54 54 41  |..... ROBOT ATTA|
00000010  43 4b 0d 00 14 19 f4 20  45 4c 42 55 47 20 44 45  |CK..... ELBUG DE|
00000020  43 45 4d 42 45 52 20 31  39 38 33 0d 00 64 0a f2  |CEMBER 1983..d..|
00000030  73 65 74 75 70 0d 00 6e  0e ee 20 85 20 e5 20 8d  |setup..n.. . . .|
00000040  74 6e 4b 0d 00 78 0d eb  36 3a f2 74 69 74 6c 65  |tnK..x..6:.title|
00000050  0d 00 82 05 f5 0d 00 8c  06 eb 35 0d 00 96 0e 53  |..........5....S|
00000060  50 25 3d 53 50 25 2d 35  30 0d 00 a0 0e f2 6f 62  |P%=SP%-50.....ob|
00000070  73 74 61 63 6c 65 73 0d  00 aa 05 f5 0d 00 b4 0b  |stacles.........|
00000080  49 25 3d 49 25 2b 31 0d  00 be 0b f2 63 6f 77 62  |I%=I%+1.....cowb|
00000090  6f 79 0d 00 c8 0a f2 72  6f 62 6f 74 0d 00 d2 2e  |oy.....robot....|
000000a0  e7 20 47 4b 4c 25 3d 31  20 80 20 47 41 25 3d 31  |. GKL%=1 . GA%=1|
000000b0  20 80 20 44 44 25 3d 30  20 80 20 b3 28 31 29 3e  | . DD%=0 . .(1)>|
000000c0  2e 33 20 f2 6d 61 72 76  69 6e 0d 00 dc 0f e7 20  |.3 .marvin..... |
000000d0  49 25 3e 34 20 49 25 3d  30 0d 00 e6 3c e7 20 53  |I%>4 I%=0...<. S|
000000e0  25 3e 4f 53 25 20 4f 53  25 3d 4f 53 25 2b 31 35  |%>OS% OS%=OS%+15|
000000f0  30 30 3a 4c 56 25 3d 4c  56 25 2b 31 3a f2 6c 76  |00:LV%=LV%+1:.lv|
00000100  3a e7 20 53 4e 44 25 3d  31 20 d4 20 31 2c 31 2c  |:. SND%=1 . 1,1,|
00000110  31 30 30 2c 31 0d 00 f0  13 fd 20 44 50 25 3d 35  |100,1..... DP%=5|
00000120  20 84 20 44 44 25 3d 31  0d 00 fa 21 e7 20 44 44  | . DD%=1...!. DD|
00000130  25 3d 30 20 53 48 25 3d  53 48 25 2b 31 3a 44 50  |%=0 SH%=SH%+1:DP|
00000140  25 3d 30 3a e5 8d 74 56  40 0d 01 04 21 4c 56 25  |%=0:..tV@...!LV%|
00000150  3d 4c 56 25 2d 31 3a 44  44 25 3d 30 3a e7 20 4c  |=LV%-1:DD%=0:. L|
00000160  56 25 3e 30 20 e5 8d 74  60 40 0d 01 0e 10 f2 64  |V%>0 ..t`@.....d|
00000170  65 6c 61 79 28 33 35 30  30 29 0d 01 18 1f f2 73  |elay(3500).....s|
00000180  63 6f 72 65 3a f2 72 65  73 65 74 3a f2 64 69 73  |core:.reset:.dis|
00000190  70 6c 61 79 73 63 6f 72  65 0d 01 22 07 fd 20 a3  |playscore..".. .|
000001a0  0d 01 2c 05 e0 0d 01 36  05 3a 0d 03 e8 0b dd f2  |..,....6.:......|
000001b0  74 69 74 6c 65 0d 03 f2  1c ef 33 31 2c 31 32 2c  |title.....31,12,|
000001c0  38 3a f1 22 52 4f 42 4f  54 20 41 54 54 41 43 4b  |8:."ROBOT ATTACK|
000001d0  22 0d 03 fc 59 f1 27 8a  31 31 29 3b 22 62 79 20  |"...Y.'.11);"by |
000001e0  45 64 77 61 72 64 20 48  75 6e 67 22 27 22 44 6f  |Edward Hung"'"Do|
000001f0  20 79 6f 75 20 77 69 73  68 20 74 6f 20 62 65 20  | you wish to be |
00000200  62 72 69 65 66 65 64 20  6f 6e 20 74 68 65 20 6d  |briefed on the m|
00000210  69 73 73 69 6f 6e 22 8a  31 32 29 3b 22 50 72 65  |ission".12);"Pre|
00000220  73 73 20 59 20 6f 72 20  4e 22 0d 04 06 2b 41 24  |ss Y or N"...+A$|
00000230  3d be 3a e7 20 41 24 3d  22 59 22 20 f2 72 75 6c  |=.:. A$="Y" .rul|
00000240  65 73 20 8b 20 e7 20 41  24 3c 3e 22 4e 22 20 8c  |es . . A$<>"N" .|
00000250  20 8d 54 46 44 0d 04 10  05 e1 0d 04 1a 05 3a 0d  | .TFD.........:.|
00000260  04 24 0b dd f2 72 75 6c  65 73 0d 04 2e 2b ef 31  |.$...rules...+.1|
00000270  32 2c 33 31 2c 35 2c 31  3a f1 22 52 4f 42 4f 54  |2,31,5,1:."ROBOT|
00000280  20 41 54 54 41 43 4b 20  49 4e 53 54 52 55 43 54  | ATTACK INSTRUCT|
00000290  49 4f 4e 53 22 0d 04 38  54 f1 27 22 20 20 20 20  |IONS"..8T.'"    |
000002a0  20 59 6f 75 20 61 72 65  20 74 68 65 20 6c 61 73  | You are the las|
000002b0  74 20 73 75 72 76 69 76  6f 72 20 6f 66 20 74 68  |t survivor of th|
000002c0  65 20 20 20 20 20 48 75  6d 61 6e 20 72 61 63 65  |e     Human race|
000002d0  2e 20 20 59 6f 75 20 61  72 65 20 62 65 69 6e 67  |.  You are being|
000002e0  20 70 65 72 73 75 65 64  22 0d 04 42 1c e3 20 54  | persued"..B.. T|
000002f0  25 3d 31 b8 31 33 3a f3  41 2c 41 24 3a f1 8a 41  |%=1.13:.A,A$:..A|
00000300  29 41 24 3a ed 0d 04 4c  3c f1 27 8a 38 29 22 53  |)A$:...L<.'.8)"S|
00000310  50 41 43 45 20 42 41 52  20 54 4f 20 48 59 50 45  |PACE BAR TO HYPE|
00000320  52 53 50 41 43 45 22 27  27 27 8a 31 30 29 3b 22  |RSPACE"'''.10);"|
00000330  41 4e 59 20 4b 45 59 20  54 4f 20 53 54 41 52 54  |ANY KEY TO START|
00000340  22 0d 04 56 da dc 30 2c  22 62 79 20 61 20 68 6f  |"..V..0,"by a ho|
00000350  73 74 69 6c 65 20 67 72  6f 75 70 20 6f 66 20 42  |stile group of B|
00000360  6f 6c 6f 20 42 6f 6c 6f  20 72 6f 62 6f 74 73 2c  |olo Bolo robots,|
00000370  22 2c 31 2c 22 77 68 6f  73 65 20 6f 6e 6c 79 20  |",1,"whose only |
00000380  6f 72 64 65 72 73 20 61  72 65 20 74 6f 20 6b 69  |orders are to ki|
00000390  6c 6c 20 79 6f 75 20 62  79 22 2c 31 33 2c 22 72  |ll you by",13,"r|
000003a0  61 6d 6d 69 6e 67 20 79  6f 75 2e 22 2c 32 2c 22  |amming you.",2,"|
000003b0  4f 63 63 61 73 69 6f 6e  61 6c 6c 79 2c 20 4d 65  |Occasionally, Me|
000003c0  61 6e 20 4d 41 52 56 49  4e 2c 20 4b 69 6e 67 20  |an MARVIN, King |
000003d0  6f 66 22 2c 34 2c 22 42  6f 6c 6f 61 6e 73 20 61  |of",4,"Boloans a|
000003e0  70 70 65 61 72 73 20 74  6f 20 68 65 6c 70 20 74  |ppears to help t|
000003f0  68 65 6d 2e 22 2c 32 2c  22 59 6f 75 20 6d 75 73  |hem.",2,"You mus|
00000400  74 20 6b 69 6c 6c 20 74  68 65 6d 20 62 79 20 6c  |t kill them by l|
00000410  75 72 69 6e 67 20 74 68  65 6d 22 0d 04 60 84 dc  |uring them"..`..|
00000420  32 2c 22 6f 6e 74 6f 20  6d 69 6e 65 73 20 77 68  |2,"onto mines wh|
00000430  69 63 68 20 79 6f 75 20  79 6f 75 72 73 65 6c 66  |ich you yourself|
00000440  20 6d 75 73 74 22 2c 31  33 2c 22 6e 6f 74 20 77  | must",13,"not w|
00000450  61 6c 6b 20 6f 6e 74 6f  2e 22 2c 33 2c 22 43 4f  |alk onto.",3,"CO|
00000460  4e 54 52 4f 4c 53 3a 22  2c 31 36 2c 22 5a 20 2d  |NTROLS:",16,"Z -|
00000470  20 4c 45 46 54 22 2c 31  36 2c 22 58 20 2d 20 52  | LEFT",16,"X - R|
00000480  49 47 48 54 22 2c 31 36  2c 22 3a 20 2d 20 55 50  |IGHT",16,": - UP|
00000490  22 2c 31 36 2c 22 2f 20  2d 20 44 4f 57 4e 22 0d  |",16,"/ - DOWN".|
000004a0  04 6a 0b 2a 46 58 31 35  2c 30 0d 04 74 07 41 3d  |.j.*FX15,0..t.A=|
000004b0  a5 0d 04 7e 05 e1 0d 04  88 05 3a 0d 04 92 0b dd  |...~......:.....|
000004c0  f2 73 65 74 75 70 0d 04  9c 29 e2 31 2c 31 2c 30  |.setup...).1,1,0|
000004d0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 31 32 36 2c 30  |,0,0,0,0,0,126,0|
000004e0  2c 30 2c 2d 31 32 36 2c  31 32 36 2c 31 32 36 0d  |,0,-126,126,126.|
000004f0  04 a6 20 ef 32 33 2c 32  35 30 2c 38 2c 32 38 2c  |.. .23,250,8,28,|
00000500  39 2c 33 30 2c 34 30 2c  38 2c 32 30 2c 32 30 0d  |9,30,40,8,20,20.|
00000510  04 b0 26 ef 32 33 2c 32  35 31 2c 31 36 2c 35 36  |..&.23,251,16,56|
00000520  2c 31 34 34 2c 31 32 30  2c 32 30 2c 31 36 2c 34  |,144,120,20,16,4|
00000530  30 2c 34 30 20 0d 04 ba  23 ef 32 33 2c 32 35 32  |0,40 ...#.23,252|
00000540  2c 32 34 2c 32 34 2c 36  30 2c 39 30 2c 39 30 2c  |,24,24,60,90,90,|
00000550  31 36 2c 31 36 2c 32 34  0d 04 c4 26 ef 32 33 2c  |16,16,24...&.23,|
00000560  32 35 33 2c 32 34 2c 31  36 2c 31 32 34 2c 31 38  |253,24,16,124,18|
00000570  36 2c 31 38 36 2c 31 36  2c 34 30 2c 34 30 0d 04  |6,186,16,40,40..|
00000580  ce 1e ef 32 33 2c 32 35  34 3b 32 34 2c 36 30 2c  |...23,254;24,60,|
00000590  36 30 2c 36 30 2c 36 30  2c 32 34 3b 0d 04 d8 1d  |60,60,60,24;....|
000005a0  ef 32 33 2c 32 35 35 3b  31 34 36 2c 38 34 3b 31  |.23,255;146,84;1|
000005b0  39 38 3b 38 34 2c 31 34  36 0d 04 e2 20 ef 32 33  |98;84,146... .23|
000005c0  2c 32 32 34 2c 31 36 30  2c 38 34 2c 31 38 34 2c  |,224,160,84,184,|
000005d0  31 36 2c 38 2c 35 2c 32  3b 0d 04 ec 19 ef 32 33  |16,8,5,2;.....23|
000005e0  2c 32 32 35 3b 30 3b 30  2c 39 2c 38 31 2c 31 32  |,225;0;0,9,81,12|
000005f0  37 3b 0d 04 f6 21 ef 32  33 2c 32 32 36 2c 35 2c  |7;...!.23,226,5,|
00000600  34 32 2c 32 39 2c 31 36  2c 33 32 2c 31 39 32 2c  |42,29,16,32,192,|
00000610  36 34 3b 0d 05 00 1a ef  32 33 2c 32 32 37 3b 30  |64;.....23,227;0|
00000620  3b 30 2c 37 32 2c 36 39  2c 31 32 37 3b 0d 05 0a  |;0,72,69,127;...|
00000630  1b ef 32 33 2c 32 32 38  2c 31 2c 31 2c 31 2c 31  |..23,228,1,1,1,1|
00000640  2c 31 2c 31 2c 31 2c 31  0d 05 14 1b ef 32 33 2c  |,1,1,1,1.....23,|
00000650  32 32 39 2c 30 2c 36 2c  33 30 2c 36 32 2c 33 30  |229,0,6,30,62,30|
00000660  3b 30 3b 0d 05 1e 1e de  58 25 28 35 29 2c 59 25  |;0;.....X%(5),Y%|
00000670  28 35 29 2c 53 25 28 31  30 29 2c 4e 24 28 31 30  |(5),S%(10),N$(10|
00000680  29 0d 05 28 11 53 4e 44  25 3d 31 3a 2a 46 58 34  |)..(.SND%=1:*FX4|
00000690  2c 31 0d 05 32 0b f2 73  63 69 6e 69 74 0d 05 3c  |,1..2..scinit..<|
000006a0  0a f2 72 65 73 65 74 0d  05 46 05 e1 0d 05 50 05  |..reset..F....P.|
000006b0  3a 0d 05 5a 0c dd f2 73  63 69 6e 69 74 0d 05 64  |:..Z...scinit..d|
000006c0  3e e3 20 49 25 3d 31 b8  31 30 3a 53 25 28 49 25  |>. I%=1.10:S%(I%|
000006d0  29 3d 35 35 30 2d 49 25  2a 35 30 3a 4e 24 28 49  |)=550-I%*50:N$(I|
000006e0  25 29 3d 22 54 68 65 20  52 6f 62 6f 74 73 20 6f  |%)="The Robots o|
000006f0  66 20 5a 61 65 78 6f 6e  22 3a ed 0d 05 6e 05 e1  |f Zaexon":...n..|
00000700  0d 05 78 05 3a 0d 05 82  08 dd f2 6c 76 0d 05 8c  |..x.:......lv...|
00000710  2d ef 31 37 2c 33 2c 33  31 2c 31 2c 33 31 3a f1  |-.17,3,31,1,31:.|
00000720  20 89 28 31 34 29 3b 8a  31 2c 33 31 29 c4 4c 56  | .(14);.1,31).LV|
00000730  25 2d 31 2c bd 32 35 30  29 3b 0d 05 96 05 e1 0d  |%-1,.250);......|
00000740  05 a0 05 3a 0d 05 aa 0b  dd f2 72 65 73 65 74 0d  |...:......reset.|
00000750  05 b4 30 53 25 3d 30 3a  53 43 25 3d 30 3a 4f 53  |..0S%=0:SC%=0:OS|
00000760  25 3d 31 35 30 30 3a 53  50 25 3d 34 30 30 3a 53  |%=1500:SP%=400:S|
00000770  48 25 3d 31 3a 4c 56 25  3d 33 3a 46 25 3d 30 0d  |H%=1:LV%=3:F%=0.|
00000780  05 be 05 e1 0d 05 c8 05  3a 0d 05 d2 0a dd f2 72  |........:......r|
00000790  6e 64 31 0d 05 dc 17 41  25 3d b3 28 31 38 29 3a  |nd1....A%=.(18):|
000007a0  42 25 3d b3 28 32 35 29  2b 34 0d 05 e6 05 e1 0d  |B%=.(25)+4......|
000007b0  05 f0 05 3a 0d 05 fa 0a  dd f2 72 6e 64 32 0d 06  |...:......rnd2..|
000007c0  04 1f 58 25 28 49 25 29  3d b3 28 31 38 29 3a 59  |..X%(I%)=.(18):Y|
000007d0  25 28 49 25 29 3d b3 28  32 35 29 2b 34 0d 06 0e  |%(I%)=.(25)+4...|
000007e0  05 e1 0d 06 18 05 3a 0d  06 22 0a dd f2 72 6e 64  |......:.."...rnd|
000007f0  33 0d 06 2c 17 58 25 3d  b3 28 31 38 29 3a 59 25  |3..,.X%=.(18):Y%|
00000800  3d b3 28 32 35 29 2b 34  0d 06 36 05 e1 0d 06 40  |=.(25)+4..6....@|
00000810  05 3a 0d 06 4a 0f dd f2  6f 62 73 74 61 63 6c 65  |.:..J...obstacle|
00000820  73 0d 06 54 34 ef 32 33  2c 31 2c 30 3b 30 3b 30  |s..T4.23,1,0;0;0|
00000830  3b 30 3b 3a ef 32 38 2c  31 2c 32 39 2c 31 38 2c  |;0;:.28,1,29,18,|
00000840  33 3a ef 31 32 3a ef 32  36 3a ef 31 39 2c 31 35  |3:.12:.26:.19,15|
00000850  2c 32 3b 30 3b 0d 06 5e  5c e6 30 2c 33 3a ec 36  |,2;0;..^\.0,3:.6|
00000860  30 2c 36 30 3a df 31 32  31 39 2c 36 30 3a df 31  |0,60:.1219,60:.1|
00000870  32 31 39 2c 39 33 30 3a  df 36 30 2c 39 33 30 3a  |219,930:.60,930:|
00000880  df 36 30 2c 36 30 3a e3  20 49 25 3d 35 37 36 b8  |.60,60:. I%=576.|
00000890  37 30 34 88 33 33 3a ec  49 25 2c 39 32 36 3a df  |704.33:.I%,926:.|
000008a0  49 25 2c 38 36 36 3a ed  3a df 35 37 36 2c 38 36  |I%,866:.:.576,86|
000008b0  36 0d 06 68 2a e3 20 54  25 3d 31 b8 31 35 3a ef  |6..h*. T%=1.15:.|
000008c0  31 37 2c 31 2c 33 31 2c  b3 28 31 38 29 2c b3 28  |17,1,31,.(18),.(|
000008d0  32 34 29 2b 35 2c 32 35  34 3a ed 0d 06 72 0c e3  |24)+5,254:...r..|
000008e0  20 49 25 3d 31 b8 35 0d  06 7c 16 f5 20 f2 72 6e  | I%=1.5..|.. .rn|
000008f0  64 32 3a fd 20 a4 70 6f  69 6e 74 3d 30 0d 06 86  |d2:. .point=0...|
00000900  20 ef 31 37 2c 36 2c 33  31 2c 58 25 28 49 25 29  | .17,6,31,X%(I%)|
00000910  2c 59 25 28 49 25 29 2c  32 35 32 3a ed 0d 06 90  |,Y%(I%),252:....|
00000920  32 ef 35 2c 31 38 2c 30  2c 32 2c 32 35 2c 34 2c  |2.5,18,0,2,25,4,|
00000930  35 37 36 3b 31 30 32 34  2d 34 2a 33 32 3b 32 35  |576;1024-4*32;25|
00000940  33 2c 34 2c 31 37 2c 35  2c 33 31 2c 35 2c 30 0d  |3,4,17,5,31,5,0.|
00000950  06 9a 25 f1 22 48 49 53  43 4f 52 45 20 22 3b 53  |..%."HISCORE ";S|
00000960  25 28 31 29 8a 36 2c 31  29 22 53 43 4f 52 45 20  |%(1).6,1)"SCORE |
00000970  22 3b 53 25 0d 06 a4 34  49 25 3d 30 3a 44 44 25  |";S%...4I%=0:DD%|
00000980  3d 30 3a 47 4b 4c 25 3d  2d 31 3a 44 50 25 3d 30  |=0:GKL%=-1:DP%=0|
00000990  3a 44 25 3d 32 35 30 3a  47 41 25 3d 30 3a 46 4c  |:D%=250:GA%=0:FL|
000009a0  25 3d 30 3a 43 25 3d 30  0d 06 ae 07 f2 6c 76 0d  |%=0:C%=0.....lv.|
000009b0  06 b8 0d 4c 45 25 3d 53  48 25 83 35 0d 06 c2 17  |...LE%=SH%.5....|
000009c0  e7 20 53 48 25 2f 35 3d  53 48 25 81 35 20 4c 45  |. SH%/5=SH%.5 LE|
000009d0  25 3d 35 0d 06 cc 1d e7  20 4c 45 25 3d 31 20 ef  |%=5..... LE%=1 .|
000009e0  34 3a f1 8a 31 34 2c 33  31 29 3b 89 28 34 29 3b  |4:..14,31);.(4);|
000009f0  0d 06 d6 2a ef 35 2c 31  38 2c 30 2c 31 2c 32 35  |...*.5,18,0,1,25|
00000a00  2c 34 2c 28 31 38 2d 4c  45 25 29 2a 36 34 3b 31  |,4,(18-LE%)*64;1|
00000a10  30 32 34 2d 33 31 2a 33  32 3b 0d 06 e0 13 20 e7  |024-31*32;.... .|
00000a20  20 53 48 25 3e 33 30 20  53 48 25 3d 31 0d 06 ea  | SH%>30 SH%=1...|
00000a30  50 e7 20 53 48 25 3c 33  31 20 41 3d 37 3a e7 20  |P. SH%<31 A=7:. |
00000a40  53 48 25 3c 32 36 20 41  3d 36 3a e7 20 53 48 25  |SH%<26 A=6:. SH%|
00000a50  3c 32 31 20 41 3d 35 3a  e7 20 53 48 25 3c 31 36  |<21 A=5:. SH%<16|
00000a60  20 41 3d 32 3a e7 20 53  48 25 3c 31 31 20 41 3d  | A=2:. SH%<11 A=|
00000a70  34 3a e7 20 53 48 25 3c  36 20 41 3d 31 0d 06 f4  |4:. SH%<6 A=1...|
00000a80  16 e6 30 2c 41 3a f1 c4  4c 45 25 2c bd 28 32 32  |..0,A:..LE%,.(22|
00000a90  39 29 29 0d 06 fe 39 e6  30 2c 33 3a ec 28 31 38  |9))...9.0,3:.(18|
00000aa0  2d 4c 45 25 29 2a 36 34  2c 31 30 32 34 2d 33 31  |-LE%)*64,1024-31|
00000ab0  2a 33 32 3a f1 8a 31 38  2d 4c 45 25 2c 33 31 29  |*32:..18-LE%,31)|
00000ac0  c4 4c 45 25 2c bd 28 32  32 38 29 29 0d 07 08 1b  |.LE%,.(228))....|
00000ad0  f5 20 f2 72 6e 64 31 3a  fd 20 a4 70 6e 74 28 41  |. .rnd1:. .pnt(A|
00000ae0  25 2c 42 25 29 3d 30 0d  07 12 10 61 25 3d 41 25  |%,B%)=0....a%=A%|
00000af0  3a 62 25 3d 42 25 20 0d  07 1c 18 ef 34 2c 31 37  |:b%=B% .....4,17|
00000b00  2c 33 2c 33 31 2c 41 25  2c 42 25 2c 32 35 30 0d  |,3,31,A%,B%,250.|
00000b10  07 26 14 e3 20 54 25 3d  31 20 b8 20 31 30 30 30  |.&.. T%=1 . 1000|
00000b20  30 3a ed 0d 07 30 16 ef  31 37 2c 33 2c 33 31 2c  |0:...0..17,3,31,|
00000b30  41 25 2c 42 25 2c 32 35  30 0d 07 3a 05 e1 0d 07  |A%,B%,250..:....|
00000b40  44 05 3a 0d 07 4e 0c dd  f2 63 6f 77 62 6f 79 0d  |D.:..N...cowboy.|
00000b50  07 58 1e e7 20 a6 2d 39  38 20 41 25 3d 41 25 2d  |.X.. .-98 A%=A%-|
00000b60  31 3a 46 25 3d 31 3a 44  25 3d 32 35 31 0d 07 62  |1:F%=1:D%=251..b|
00000b70  1e e7 20 a6 2d 36 37 20  41 25 3d 41 25 2b 31 3a  |.. .-67 A%=A%+1:|
00000b80  46 25 3d 31 3a 44 25 3d  32 35 30 0d 07 6c 18 e7  |F%=1:D%=250..l..|
00000b90  20 a6 2d 31 30 35 20 42  25 3d 42 25 2b 31 3a 46  | .-105 B%=B%+1:F|
00000ba0  25 3d 31 0d 07 76 18 e7  20 a6 2d 37 33 20 42 25  |%=1..v.. .-73 B%|
00000bb0  3d 42 25 2d 31 3a 46 25  3d 31 20 0d 07 80 55 e7  |=B%-1:F%=1 ...U.|
00000bc0  20 a6 2d 39 39 20 48 25  3d 31 3a 46 25 3d 31 3a  | .-99 H%=1:F%=1:|
00000bd0  f5 20 f2 72 6e 64 31 3a  fd 20 a4 70 6e 74 28 41  |. .rnd1:. .pnt(A|
00000be0  25 2c 42 25 29 3c 3e 36  20 80 20 a4 70 6e 74 28  |%,B%)<>6 . .pnt(|
00000bf0  41 25 2c 42 25 29 3c 3e  32 3a e7 20 53 4e 44 25  |A%,B%)<>2:. SND%|
00000c00  3d 31 20 8c 20 d4 31 37  2c 32 2c 35 30 2c 31 30  |=1 . .17,2,50,10|
00000c10  0d 07 8a 0c e7 20 46 25  3d 30 20 e1 0d 07 94 2d  |..... F%=0 ....-|
00000c20  41 25 3d 41 25 2b 28 41  25 3e 31 38 29 2d 28 41  |A%=A%+(A%>18)-(A|
00000c30  25 3c 31 29 3a 42 25 3d  42 25 2b 28 42 25 3e 32  |%<1):B%=B%+(B%>2|
00000c40  39 29 2d 28 42 25 3c 33  29 0d 07 9e 2d e7 20 a4  |9)-(B%<3)...-. .|
00000c50  70 6e 74 28 41 25 2c 42  25 29 3d 31 20 f2 70 69  |pnt(A%,B%)=1 .pi|
00000c60  74 28 61 25 2c 62 25 2c  41 25 2c 42 25 29 3a 44  |t(a%,b%,A%,B%):D|
00000c70  44 25 3d 31 3a e1 0d 07  a8 2f e7 20 a4 70 6e 74  |D%=1:..../. .pnt|
00000c80  28 41 25 2c 42 25 29 3d  36 20 a4 70 6e 74 28 41  |(A%,B%)=6 .pnt(A|
00000c90  25 2c 42 25 29 3d 32 20  f2 64 65 61 64 3a 44 44  |%,B%)=2 .dead:DD|
00000ca0  25 3d 31 3a e1 0d 07 b2  22 e7 20 a4 70 6e 74 28  |%=1:....". .pnt(|
00000cb0  41 25 2c 42 25 29 3c 3e  30 20 41 25 3d 61 25 3a  |A%,B%)<>0 A%=a%:|
00000cc0  42 25 3d 62 25 3a e1 0d  07 bc 27 f1 8a 61 25 2c  |B%=b%:....'..a%,|
00000cd0  62 25 29 bd 33 32 3a e7  20 48 25 3d 31 20 48 25  |b%).32:. H%=1 H%|
00000ce0  3d 30 3a f2 64 65 6c 61  79 28 37 30 30 29 0d 07  |=0:.delay(700)..|
00000cf0  c6 15 ef 31 37 2c 33 2c  33 31 2c 41 25 2c 42 25  |...17,3,31,A%,B%|
00000d00  2c 44 25 0d 07 d0 14 61  25 3d 41 25 3a 62 25 3d  |,D%....a%=A%:b%=|
00000d10  42 25 3a 46 25 3d 30 0d  07 da 15 e3 20 54 25 3d  |B%:F%=0..... T%=|
00000d20  30 b8 28 53 50 25 2f 35  30 29 3a ed 0d 07 e4 05  |0.(SP%/50):.....|
00000d30  e1 0d 07 ee 05 3a 0d 07  f8 0b dd f2 72 6f 62 6f  |.....:......robo|
00000d40  74 0d 08 02 0d e7 20 44  44 25 3d 31 20 e1 0d 08  |t..... DD%=1 ...|
00000d50  0c 1b e7 20 58 25 28 49  25 29 3d 30 20 80 20 59  |... X%(I%)=0 . Y|
00000d60  25 28 49 25 29 3d 30 20  e1 0d 08 16 19 4f 58 25  |%(I%)=0 .....OX%|
00000d70  3d 58 25 28 49 25 29 3a  4f 59 25 3d 59 25 28 49  |=X%(I%):OY%=Y%(I|
00000d80  25 29 0d 08 20 29 58 25  28 49 25 29 3d 58 25 28  |%).. )X%(I%)=X%(|
00000d90  49 25 29 2b 28 58 25 28  49 25 29 3e 41 25 29 2d  |I%)+(X%(I%)>A%)-|
00000da0  28 58 25 28 49 25 29 3c  41 25 29 0d 08 2a 2a 59  |(X%(I%)<A%)..**Y|
00000db0  25 28 49 25 29 3d 59 25  28 49 25 29 2b 28 59 25  |%(I%)=Y%(I%)+(Y%|
00000dc0  28 49 25 29 3e 42 25 29  2d 28 59 25 28 49 25 29  |(I%)>B%)-(Y%(I%)|
00000dd0  3c 42 25 29 20 0d 08 34  40 e7 20 a4 70 6f 69 6e  |<B%) ..4@. .poin|
00000de0  74 3d 36 20 84 20 a4 70  6f 69 6e 74 3d 32 20 f5  |t=6 . .point=2 .|
00000df0  20 f2 72 6e 64 32 3a fd  20 a4 70 6f 69 6e 74 3d  | .rnd2:. .point=|
00000e00  30 3a e7 20 53 4e 44 25  3d 31 20 d4 31 2c 32 2c  |0:. SND%=1 .1,2,|
00000e10  35 30 2c 31 30 0d 08 3e  50 e7 20 a4 70 6f 69 6e  |50,10..>P. .poin|
00000e20  74 3d 31 20 f2 70 69 74  28 4f 58 25 2c 4f 59 25  |t=1 .pit(OX%,OY%|
00000e30  2c 58 25 28 49 25 29 2c  59 25 28 49 25 29 29 3a  |,X%(I%),Y%(I%)):|
00000e40  58 25 28 49 25 29 3d 30  3a 59 25 28 49 25 29 3d  |X%(I%)=0:Y%(I%)=|
00000e50  30 3a 44 50 25 3d 44 50  25 2b 31 3a f2 6d 73 28  |0:DP%=DP%+1:.ms(|
00000e60  31 30 29 3a e1 0d 08 48  1c e7 20 a4 70 6f 69 6e  |10):...H.. .poin|
00000e70  74 3d 33 20 f2 64 65 61  64 3a 44 44 25 3d 31 3a  |t=3 .dead:DD%=1:|
00000e80  e1 0d 08 52 1f e7 20 a4  70 6f 69 6e 74 3c 3e 30  |...R.. .point<>0|
00000e90  20 59 25 28 49 25 29 3d  59 25 28 69 25 29 2b 32  | Y%(I%)=Y%(i%)+2|
00000ea0  0d 08 5c 15 e3 20 54 25  3d 30 b8 28 53 50 25 2f  |..\.. T%=0.(SP%/|
00000eb0  35 30 29 3a ed 0d 08 66  18 e7 20 53 4e 44 25 3d  |50):...f.. SND%=|
00000ec0  31 20 d4 33 2c 2d 31 35  2c 31 30 2c 31 0d 08 70  |1 .3,-15,10,1..p|
00000ed0  2e f1 8a 4f 58 25 2c 4f  59 25 29 3b 89 28 31 29  |...OX%,OY%);.(1)|
00000ee0  3a ef 31 37 2c 36 2c 33  31 2c 58 25 28 49 25 29  |:.17,6,31,X%(I%)|
00000ef0  2c 59 25 28 49 25 29 2c  32 35 32 0d 08 7a 70 e7  |,Y%(I%),252..zp.|
00000f00  20 b3 28 31 29 3e 2e 39  35 20 80 20 46 4c 25 3d  | .(1)>.95 . FL%=|
00000f10  30 3a 47 4b 4c 25 3d 2d  47 4b 4c 25 3a 43 25 3d  |0:GKL%=-GKL%:C%=|
00000f20  47 4b 4c 25 3a e7 20 47  4b 4c 25 3d 31 20 58 25  |GKL%:. GKL%=1 X%|
00000f30  3d 39 3a 59 25 3d 35 3a  46 4c 25 3d 31 3a 4a 25  |=9:Y%=5:FL%=1:J%|
00000f40  3d 30 3a 47 41 25 3d 30  3a ef 31 39 2c 31 35 2c  |=0:GA%=0:.19,15,|
00000f50  31 34 3b 30 3b 3a e7 20  53 4e 44 25 3d 31 20 d4  |14;0;:. SND%=1 .|
00000f60  31 2c 2d 31 35 2c 35 30  2c 31 20 0d 08 84 57 e7  |1,-15,50,1 ...W.|
00000f70  20 43 25 3d 2d 31 20 ef  35 2c 31 38 2c 33 2c 32  | C%=-1 .5,18,3,2|
00000f80  2c 32 35 2c 34 2c 39 2a  36 34 3b 31 30 32 34 2d  |,25,4,9*64;1024-|
00000f90  34 2a 33 32 3b 32 35 33  2c 34 3a f1 8a 58 25 2c  |4*32;253,4:..X%,|
00000fa0  59 25 29 89 28 31 29 3a  43 25 3d 30 3a e7 20 53  |Y%).(1):C%=0:. S|
00000fb0  4e 44 25 3d 31 20 d4 31  2c 2d 31 35 2c 32 30 30  |ND%=1 .1,-15,200|
00000fc0  2c 31 0d 08 8e 6c e7 20  46 4c 25 3d 31 20 4a 25  |,1...l. FL%=1 J%|
00000fd0  3d 4a 25 2b 31 3a e7 20  4a 25 3d 31 30 20 ef 35  |=J%+1:. J%=10 .5|
00000fe0  2c 31 38 2c 33 2c 32 2c  32 35 2c 34 2c 39 2a 36  |,18,3,2,25,4,9*6|
00000ff0  34 3b 31 30 32 34 2d 34  2a 33 32 3b 32 35 33 2c  |4;1024-4*32;253,|
00001000  34 2c 31 39 2c 31 35 2c  32 3b 30 3b 3a 46 4c 25  |4,19,15,2;0;:FL%|
00001010  3d 30 3a 47 41 25 3d 31  3a e7 20 53 4e 44 25 3d  |=0:GA%=1:. SND%=|
00001020  31 20 d4 31 2c 2d 31 35  2c 32 30 30 2c 31 0d 08  |1 .1,-15,200,1..|
00001030  98 05 e1 0d 08 a2 05 3a  0d 08 ac 0c dd f2 6d 61  |.......:......ma|
00001040  72 76 69 6e 0d 08 b6 11  58 58 25 3d 58 25 3a 59  |rvin....XX%=X%:Y|
00001050  59 25 3d 59 25 0d 08 c0  2f 58 25 3d 58 25 2b 28  |Y%=Y%.../X%=X%+(|
00001060  58 25 3e 41 25 29 2d 28  58 25 3c 41 25 29 3a 59  |X%>A%)-(X%<A%):Y|
00001070  25 3d 59 25 2b 28 59 25  3e 42 25 29 2d 28 59 25  |%=Y%+(Y%>B%)-(Y%|
00001080  3c 42 25 29 0d 08 ca 1c  e7 20 a4 70 6e 74 28 58  |<B%)..... .pnt(X|
00001090  25 2c 59 25 29 3d 31 35  20 59 25 3d 59 25 2b 32  |%,Y%)=15 Y%=Y%+2|
000010a0  0d 08 d4 67 e7 20 a4 70  6e 74 28 58 25 2c 59 25  |...g. .pnt(X%,Y%|
000010b0  29 3d 31 20 f2 70 69 74  28 58 58 25 2c 59 59 25  |)=1 .pit(XX%,YY%|
000010c0  2c 58 25 2c 59 25 29 3a  58 25 3d 30 3a 59 25 3d  |,X%,Y%):X%=0:Y%=|
000010d0  30 3a 47 4b 4c 25 3d 2d  31 3a ef 35 2c 31 38 2c  |0:GKL%=-1:.5,18,|
000010e0  33 2c 32 2c 32 35 2c 34  2c 35 37 36 3b 31 30 32  |3,2,25,4,576;102|
000010f0  34 2d 34 2a 33 32 3b 32  35 33 2c 34 3a f2 6d 73  |4-4*32;253,4:.ms|
00001100  28 31 30 30 29 3a e1 0d  08 de 21 e7 20 a4 70 6e  |(100):....!. .pn|
00001110  74 28 58 25 2c 59 25 29  3d 33 20 f2 64 65 61 64  |t(X%,Y%)=3 .dead|
00001120  3a 44 44 25 3d 31 3a e1  0d 08 e8 3f e7 20 a4 70  |:DD%=1:....?. .p|
00001130  6e 74 28 58 25 2c 59 25  29 3d 36 20 f5 20 f2 72  |nt(X%,Y%)=6 . .r|
00001140  6e 64 33 3a fd 20 a4 70  6e 74 28 58 25 2c 59 25  |nd3:. .pnt(X%,Y%|
00001150  29 3d 30 3a e7 20 53 4e  44 25 3d 31 20 d4 33 2c  |)=0:. SND%=1 .3,|
00001160  32 2c 35 30 2c 31 30 0d  08 f2 16 e7 20 53 4e 44  |2,50,10..... SND|
00001170  25 3d 31 20 d4 32 2c 33  2c 35 30 2c 31 0d 08 fc  |%=1 .2,3,50,1...|
00001180  26 f1 8a 58 58 25 2c 59  59 25 29 3b 89 28 31 29  |&..XX%,YY%);.(1)|
00001190  3a ef 31 37 2c 32 2c 33  31 2c 58 25 2c 59 25 2c  |:.17,2,31,X%,Y%,|
000011a0  32 35 33 0d 09 06 05 e1  0d 09 10 05 3a 0d 09 1a  |253.........:...|
000011b0  12 dd f2 70 69 74 28 61  2c 62 2c 41 2c 42 29 0d  |...pit(a,b,A,B).|
000011c0  09 24 0d f1 8a 61 2c 62  29 22 20 22 0d 09 2e 15  |.$...a,b)" "....|
000011d0  e7 20 53 4e 44 25 3d 31  20 d4 30 2c 31 2c 35 2c  |. SND%=1 .0,1,5,|
000011e0  31 0d 09 38 2c ef 31 37  2c 33 2c 33 31 2c 41 2c  |1..8,.17,3,31,A,|
000011f0  42 2c 32 35 35 3a e3 20  4c 3d 31 b8 35 30 30 3a  |B,255:. L=1.500:|
00001200  ed 3a f1 8a 41 2c 42 29  3b 89 28 31 29 0d 09 42  |.:..A,B);.(1)..B|
00001210  05 e1 0d 09 4c 05 3a 0d  09 56 0a dd f2 64 65 61  |....L.:..V...dea|
00001220  64 0d 09 60 1c e7 20 44  25 3d 32 35 30 20 44 25  |d..`.. D%=250 D%|
00001230  3d 32 32 34 20 8b 20 44  25 3d 32 32 36 0d 09 6a  |=224 . D%=226..j|
00001240  30 ef 31 37 2c 33 2c 33  31 2c 61 25 2c 62 25 2c  |0.17,3,31,a%,b%,|
00001250  44 25 3a e3 20 4c 3d 31  b8 35 30 30 3a ed 3a ef  |D%:. L=1.500:.:.|
00001260  33 31 2c 61 25 2c 62 25  2c 44 25 2b 31 0d 09 74  |31,a%,b%,D%+1..t|
00001270  15 e7 20 53 4e 44 25 3d  31 20 d4 30 2c 31 2c 35  |.. SND%=1 .0,1,5|
00001280  2c 31 0d 09 7e 0f f2 64  65 6c 61 79 28 37 30 30  |,1..~..delay(700|
00001290  29 0d 09 88 35 e7 20 53  4e 44 25 3d 31 20 e3 20  |)...5. SND%=1 . |
000012a0  51 25 3d 31 b8 35 3a e3  20 4c 25 3d 32 35 35 b8  |Q%=1.5:. L%=255.|
000012b0  32 30 30 88 2d 31 3a d4  31 37 2c 2d 31 35 2c 4c  |200.-1:.17,-15,L|
000012c0  25 2c 31 3a ed 2c 0d 09  92 19 e7 20 53 4e 44 25  |%,1:.,..... SND%|
000012d0  3d 30 20 f2 64 65 6c 61  79 28 32 30 30 30 29 0d  |=0 .delay(2000).|
000012e0  09 9c 05 e1 0d 09 a6 05  3a 0d 09 b0 0f dd f2 64  |........:......d|
000012f0  65 6c 61 79 28 54 25 29  0d 09 ba 0e e3 20 54 3d  |elay(T%)..... T=|
00001300  31 b8 54 25 3a ed 0d 09  c4 05 e1 0d 09 ce 05 3a  |1.T%:..........:|
00001310  0d 09 d8 0b dd f2 6d 73  28 53 29 0d 09 e2 1e 53  |......ms(S)....S|
00001320  25 3d 53 25 2b 53 3a ef  31 37 2c 32 2c 33 31 2c  |%=S%+S:.17,2,31,|
00001330  31 32 2c 31 3a f1 3b 53  25 0d 09 ec 05 e1 0d 09  |12,1:.;S%.......|
00001340  f6 05 3a 0d 0a 00 0c 20  dd f2 73 63 6f 72 65 0d  |..:.... ..score.|
00001350  0a 0a 0e 20 e3 20 49 25  3d 31 b8 31 30 0d 0a 14  |... . I%=1.10...|
00001360  1e e7 20 53 25 3e 53 25  28 49 25 29 20 80 20 53  |.. S%>S%(I%) . S|
00001370  43 25 3d 30 20 53 43 25  3d 49 25 0d 0a 1e 05 ed  |C%=0 SC%=I%.....|
00001380  0d 0a 28 0d e7 20 53 43  25 3d 30 20 e1 0d 0a 32  |..(.. SC%=0 ...2|
00001390  0e f2 65 6e 74 65 72 6e  61 6d 65 0d 0a 3c 39 e3  |..entername..<9.|
000013a0  20 50 25 3d 31 30 20 b8  20 53 43 25 2b 31 20 88  | P%=10 . SC%+1 .|
000013b0  2d 31 3a 53 25 28 50 25  29 3d 53 25 28 50 25 2d  |-1:S%(P%)=S%(P%-|
000013c0  31 29 3a 4e 24 28 50 25  29 3d 4e 24 28 50 25 2d  |1):N$(P%)=N$(P%-|
000013d0  31 29 3a ed 0d 0a 46 0e  4e 24 28 53 43 25 29 3d  |1):...F.N$(SC%)=|
000013e0  4e 24 0d 0a 50 0e 53 25  28 53 43 25 29 3d 53 25  |N$..P.S%(SC%)=S%|
000013f0  0d 0a 5a 06 20 e1 0d 0a  64 05 3a 0d 0a 6e 0f dd  |..Z. ...d.:..n..|
00001400  f2 65 6e 74 65 72 6e 61  6d 65 0d 0a 78 3b ef 31  |.entername..x;.1|
00001410  32 2c 31 37 2c 32 3a f1  8a 30 2c 36 29 22 59 6f  |2,17,2:..0,6)"Yo|
00001420  75 72 20 73 63 6f 72 65  20 69 73 20 69 6e 20 74  |ur score is in t|
00001430  68 65 22 27 27 8a 36 29  22 54 6f 70 20 54 65 6e  |he"''.6)"Top Ten|
00001440  22 27 27 27 27 0d 0a 82  2c ef 31 37 2c 36 3a f1  |"''''...,.17,6:.|
00001450  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 79 6f  |"Please enter yo|
00001460  75 72 22 27 27 8a 37 29  22 6e 61 6d 65 3a 22 27  |ur"''.7)"name:"'|
00001470  27 0d 0a 8c 0b 2a 46 58  31 35 2c 30 0d 0a 96 15  |'....*FX15,0....|
00001480  ef 32 33 3b 31 30 2c 32  32 34 3b 30 3b 30 3b 30  |.23;10,224;0;0;0|
00001490  3b 0d 0a a0 11 ef 33 31  2c 30 2c 32 30 3b 31 37  |;.....31,0,20;17|
000014a0  2c 33 0d 0a aa 15 58 25  3d 26 38 30 3a 59 25 3d  |,3....X%=&80:Y%=|
000014b0  26 41 3a 41 25 3d 30 0d  0a b4 2a 21 26 41 38 30  |&A:A%=0...*!&A80|
000014c0  3d 26 41 30 30 3a 3f 26  41 38 32 3d 32 30 3a 3f  |=&A00:?&A82=20:?|
000014d0  26 41 38 33 3d 33 32 3a  3f 26 41 38 34 3d 31 32  |&A83=32:?&A84=12|
000014e0  38 0d 0a be 0b d6 20 26  46 46 46 31 0d 0a c8 0d  |8..... &FFF1....|
000014f0  4e 24 3d 24 26 41 30 30  20 0d 0a d2 05 e1 0d 0a  |N$=$&A00 .......|
00001500  dc 05 3a 0d 0a e6 12 dd  f2 64 69 73 70 6c 61 79  |..:......display|
00001510  73 63 6f 72 65 0d 0a f0  43 ef 32 32 2c 34 2c 32  |score...C.22,4,2|
00001520  33 2c 31 3b 31 3b 30 3b  30 3b 30 2c 31 39 2c 33  |3,1;1;0;0;0,19,3|
00001530  2c 30 3b 30 3b 3a f1 8a  31 35 29 22 48 69 67 68  |,0;0;:..15)"High|
00001540  73 63 6f 72 65 73 22 27  27 3a ef 31 39 2c 31 2c  |scores"'':.19,1,|
00001550  33 3b 30 3b 31 37 2c 31  0d 0a fa 23 e3 20 49 25  |3;0;17,1...#. I%|
00001560  3d 31 b8 31 30 3a e7 20  49 25 3d 31 30 41 41 24  |=1.10:. I%=10AA$|
00001570  3d 22 22 8b 41 41 24 3d  22 20 22 0d 0b 04 41 42  |="".AA$=" "...AB|
00001580  42 24 3d 22 2e 2e 2e 2e  2e 22 3a e7 20 53 25 28  |B$=".....":. S%(|
00001590  49 25 29 3c 39 39 39 42  42 24 3d 22 2e 2e 2e 2e  |I%)<999BB$="....|
000015a0  2e 2e 22 3a e7 20 53 25  28 49 25 29 3c 39 39 42  |..":. S%(I%)<99B|
000015b0  42 24 3d 22 2e 2e 2e 2e  2e 2e 2e 22 0d 0b 0e 27  |B$="......."...'|
000015c0  f1 8a 33 29 41 41 24 3b  49 25 3b 42 42 24 3b 53  |..3)AA$;I%;BB$;S|
000015d0  25 28 49 25 29 3b 22 2e  2e 2e 22 3b 4e 24 28 49  |%(I%);"...";N$(I|
000015e0  25 29 27 0d 0b 18 05 ed  0d 0b 22 99 ef 31 39 2c  |%)'......."..19,|
000015f0  30 2c 30 3b 30 3b 31 37  2c 31 3a f1 8a 38 29 22  |0,0;0;17,1:..8)"|
00001600  43 20 74 6f 20 63 6c 6f  73 65 20 73 6f 75 6e 64  |C to close sound|
00001610  20 63 68 61 6e 6e 65 6c  22 27 8a 38 29 22 4f 20  | channel"'.8)"O |
00001620  74 6f 20 6f 70 65 6e 20  73 6f 75 6e 64 20 63 68  |to open sound ch|
00001630  61 6e 6e 65 6c 22 27 27  8a 31 31 29 22 53 6f 75  |annel"''.11)"Sou|
00001640  6e 64 20 43 68 61 6e 6e  65 6c 22 27 8a 31 31 29  |nd Channel"'.11)|
00001650  22 41 6e 79 20 6b 65 79  20 74 6f 20 73 74 61 72  |"Any key to star|
00001660  74 22 27 8a 37 29 22 6f  72 20 40 20 74 6f 20 63  |t"'.7)"or @ to c|
00001670  6c 65 61 72 20 73 63 6f  72 65 20 74 61 62 6c 65  |lear score table|
00001680  22 0d 0b 2c 2d fb 33 3a  e7 20 53 4e 44 25 3d 31  |"..,-.3:. SND%=1|
00001690  20 f1 8a 32 35 2c 32 36  29 22 6f 6e 2e 20 22 8b  | ..25,26)"on. ".|
000016a0  f1 8a 32 35 2c 32 36 29  22 6f 66 66 2e 22 0d 0b  |..25,26)"off."..|
000016b0  36 0b 2a 46 58 31 35 2c  30 0d 0b 40 07 41 3d a5  |6.*FX15,0..@.A=.|
000016c0  0d 0b 4a 18 e7 20 41 3d  36 34 20 f2 73 63 69 6e  |..J.. A=64 .scin|
000016d0  69 74 3a e5 8d 64 70 4a  0d 0b 54 2d e7 20 41 3d  |it:..dpJ..T-. A=|
000016e0  36 37 20 84 20 41 3d 39  39 20 f1 8a 32 35 2c 32  |67 . A=99 ..25,2|
000016f0  36 29 22 6f 66 66 2e 22  3a 53 4e 44 25 3d 30 3a  |6)"off.":SND%=0:|
00001700  e5 8d 44 40 4b 0d 0b 5e  2e e7 20 41 3d 37 39 20  |..D@K..^.. A=79 |
00001710  84 20 41 3d 31 31 31 20  f1 8a 32 35 2c 32 36 29  |. A=111 ..25,26)|
00001720  22 6f 6e 2e 20 22 3a 53  4e 44 25 3d 31 3a e5 8d  |"on. ":SND%=1:..|
00001730  44 40 4b 0d 0b 68 05 e1  0d 0b 72 05 3a 0d 0b 7c  |D@K..h....r.:..||
00001740  0b dd a4 70 6f 69 6e 74  0d 0b 86 18 3d a4 70 6e  |...point....=.pn|
00001750  74 28 58 25 28 49 25 29  2c 59 25 28 49 25 29 29  |t(X%(I%),Y%(I%))|
00001760  0d 0b 90 10 dd a4 70 6e  74 28 55 25 2c 56 25 29  |......pnt(U%,V%)|
00001770  0d 0b 9a 1a 3d b0 55 25  2a 36 34 2b 33 32 2c 31  |....=.U%*64+32,1|
00001780  30 31 30 2d 56 25 2a 33  32 29 0d 0b a4 05 3a 0d  |010-V%*32)....:.|
00001790  0b ae 09 ee 20 85 20 87  0d 0b b8 06 eb 36 0d 0b  |.... . ......6..|
000017a0  c2 08 2a 46 58 34 0d 0b  cc 0c e7 20 9f 3d 31 37  |..*FX4..... .=17|
000017b0  20 e0 0d 0b d6 14 f6 3a  f1 22 20 61 74 20 6c 69  | ......:." at li|
000017c0  6e 65 20 22 3b 9e 0d 0b  e0 05 e0 0d ff           |ne ";........|
000017cd
GAMES1/ROBOTS.m0
GAMES1/ROBOTS.m1
GAMES1/ROBOTS.m2
GAMES1/ROBOTS.m4
GAMES1/ROBOTS.m5

© Dominic Ford 2021–2024.

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