Home » Personal collection » Acorn DFS disks » dfs_box03_disk06_games_4_backup.scp » TRON

TRON

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 DFS disks » dfs_box03_disk06_games_4_backup.scp
Filename: TRON
Read OK:
File size: 1ABA bytes
Load address: FF1900
Exec address: FF801F
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10ONERRORGOTO32000
  100MODE1
  110VDU23;8202;0;0;0;
  120PROCTITLE
  130PROCRULES
  140PROCQUES
  150REPEAT
  160PROCINIT
  170PROCSTART
  180REPEAT
  190PROCMAIN
  200UNTIL HALT%=1
  210*FX15,1
  220UNTIL TURN1%=0 OR TURN2%=0
  230CLS
  240IFPLAYNO%=2THEN260
  250PRINTTAB(1,13);:IFTURN1%=0THEN PRINT"THE M.C.P. HAS DE-REZED ANOTHER USER !":GOTO280 ELSE PRINT"I WILL APPROPRIATE YOU NEXT TIME !!":GOTO280   
  260PRINTTAB(6,13)"CONGRATULATIONS ";
  270IFTURN1%=0THENPRINT;"USER TWO"ELSE PRINT;"USER ONE"
  280PRINTTAB(10,16)"ANOTHER GAME ?":AN$=GET$
  290IFAN$="Y"THEN140ELSEMODE1:END
  300DEFPROCMAIN
  310IFPLAYNO%=1THEN440
  320FORFLAG%=1TO2
  330A%=0
  340REPEAT
  350A%=A%+1
  360PROCKEYPRESSEDYN(KEYNO%(A%,FLAG%))
  370UNTILA%=4
  380IFPRESSTF%=TRUE AND FLAG%=1 THEN DIR1%=DIR%:PROCMOVE(LS1X%,LS1Y%,DIR1%):PROCSOUND1 
  390IFPRESSTF%=TRUE AND FLAG%=2 THEN DIR2%=DIR%:PROCMOVE(LS2X%,LS2Y%,DIR2%):PROCSOUND2
  400NEXTFLAG%
  410STR%=STR%+1:IFSTR%<5THEN430
  420IFDIR1%=0 OR DIR2%=0 PROCCRASH:HALT%=1 ELSE DIR1%=0:DIR2%=0:STR%=0
  430ENDPROC  
  440FLAG%=2
  450IFDIR2%<3PROCUDCOM(LS2X%,LS2Y%,S%) ELSE PROCLRCOM(LS2X%,LS2Y%,S%)
  460IFCHANGE%=1 PROCNSEW:CHANGE%=0:TIME=0:GOTO450 ELSE IFTIME>500 DIR2%=DIR%
  470PROCSOUND2
  480FLAG%=1:A%=0
  490REPEAT
  500A%=A%+1
  510PROCKEYPRESSEDYN(KEYNO%(A%,FLAG%+2))
  520UNTILA%=4
  530IFPRESSTF%=TRUE  DIR1%=DIR%:PROCMOVE(LS1X%,LS1Y%,DIR1%):PROCSOUND1
  540STR%=STR%+1:IFSTR%<5 THENT%=0:GOTO560
  550IFDIR1%=0 PROCCRASH:HALT%=1 ELSE DIR1%=0:STR%=0:T%=0
  560ENDPROC
  570DEFPROCKEYPRESSEDYN(K%)
  580IFINKEY(K%) DIR%=A%:A%=4:PRESSTF%=TRUE:ENDPROC   
  590PRESSTF%=FALSE
  600ENDPROC
  610DEFPROCMOVE(X%,Y%,D%)
  620GCOL0,FLAG%:MOVEX%,Y%
  630ON D% GOTO 640,650,660,670
  640Y%=Y%+S%:IFY%>988THEN690 ELSE680
  650Y%=Y%-S%:IFY%<96THEN690 ELSE680
  660X%=X%-S%:IFX%<94THEN690 ELSE680
  670X%=X%+S%:IFX%>1180THEN690
  680PROCXY:PROCPOINT:DRAWX%,Y%:ENDPROC
  690DIR1%=1:DIR2%=1:PROCCRASH:HALT%=1:ENDPROC
  700DEFPROCXY
  710IFFLAG%=1 LS1X%=X%:LS1Y%=Y% ELSE LS2X%=X%:LS2Y%=Y%
  720ENDPROC
  730DEFPROCPOINT
  740IFPOINT(X%,Y%)=1 OR POINT(X%,Y%)=2 DIR1%=1:DIR2%=1:PROCCRASH:HALT%=1
  750ENDPROC
  760DEFPROCUDCOM(X%,Y%,Z%)
  770PROCT:GCOL0,2
  780IFDIR2%=1THENZ%=S%:BUD%=988 ELSE Z%=-S%:BUD%=96
  790MOVEX%,Y%:J%=Y%+Z%
  800PROCCOMPOINT(X%,J%,J%,BUD%):IFCHANGE%=1 ENDPROC
  810Y%=Y%+Z%:DRAWX%,Y%:PROCXY
  820ENDPROC
  830DEFPROCLRCOM(X%,Y%,Z%)
  840PROCT:GCOL0,2
  850IFDIR2%=4THENZ%=S%:BLR%=1180 ELSEZ%=-S%:BLR%=94
  860MOVEX%,Y%:J%=X%+Z%
  870PROCCOMPOINT(J%,Y%,J%,BLR%):IFCHANGE%=1 ENDPROC
  880X%=X%+Z%:DRAWX%,Y%:PROCXY
  890ENDPROC
  900DEFPROCCOMPOINT(P1%,P2%,P3%,P4%)
  910IFPOINT(P1%,P2%)=1 OR POINT(P1%,P2%)=2THEN930    
  920IF(P4%>100 AND P3%<P4%)OR(P4%<100 AND P3%>P4%)THENCHANGE%=0:ENDPROC
  930CHANGE%=1
  940ENDPROC
  950DEFPROCNSEW
  960IFDIR2%>2THENDIR2%=RND(2) ELSEDIR2%=RND(2)+2
  970ENDPROC
  980DEFPROCT
  990T%=T%+1:IFT%=10 DIR1%=1:DIR2%=1:FLAG%=2:PROCCRASH:DIR1%=1:HALT%=1
 1000ENDPROC
 1010DEFPROCSTART
 1020CLS:VDU19,1,7,0,0,0,19,2,0,0,0,0:GCOL0,3
 1030PROCGRID(1200):PROCGRID(990)
 1040COLOUR1:FORI%=1TOTURN1%:PRINTTAB(I%*2,30);BIKE$:NEXT
 1050PRINTTAB(9,30);:IFPLAYNO%=1PRINT"  USER" ELSE PRINT"USER 1"
 1060COLOUR2:FORI%=1TOTURN2%:PRINTTAB(38-I%*2,30);BIKE$:NEXT  
 1070PRINTTAB(25,30);:IFPLAYNO%=1PRINT"M.C.P." ELSEPRINT"USER 2"
 1080GCOL0,1:PLOT69,LS1X%,LS1Y%:GCOL0,2:PLOT69,LS2X%,LS2Y%
 1090PROCDELAY(50)
 1100COLOUR3
 1110FORI%=11TO9STEP-1:PRINTTAB(19,30);:IFI%=9PRINT"01" ELSEPRINT;I%
 1120SOUND3,3,20,20:PROCDELAY(100):NEXT
 1130PRINTTAB(17,30)" GO!!":SOUND3,3,60,20
 1140A$=INKEY$(100)
 1150TIME=500:DIR2%=RND(4)
 1160ENDPROC
 1170DEFPROCGRID(A)
 1180PROCDELAY(10)
 1190FORI=90 TO A STEP100
 1200SOUND0,-10,0,1
 1210IFA=1200 MOVEI,90:DRAWI,990 ELSE MOVE90,I:DRAW1190,I
 1220PROCDELAY(10):NEXT
 1230ENDPROC
 1240DEFPROCDELAY(DELAY%)
 1250TIME=0:REPEAT UNTILTIME>DELAY%
 1260ENDPROC
 1270DEFPROCSOUND1
 1280IFHALT%=1THENENDPROC
 1290IFA1%<>DIR1% THEN PITCH1%=0
 1300PITCH1%=PITCH1%+1
 1310SOUND&0011,-15,PITCH1%,255
 1320A1%=DIR1%
 1330ENDPROC
 1340DEFPROCSOUND2
 1350IFHALT%=1THENENDPROC
 1360IFA2%<>DIR2% THEN PITCH2%=0
 1370PITCH2%=PITCH2%+1
 1380SOUND&0012,-15,PITCH2%,255 
 1390A2%=DIR2%
 1400ENDPROC
 1410DEFPROCCRASH
 1420PRINTTAB(17,30)"DE-REZ"
 1430SOUND&0011,0,0,0:SOUND&0012,0,0,0
 1440SOUND0,1,4,4:SOUND1,2,200,50:SOUND2,2,100,50:SOUND3,2,75,50
 1450IFDIR1%=0 OR FLAG%=1 FLAG%=1:TURN1%=TURN1%-1:PROCSTOP(LS1X%,LS1Y%):ENDPROC
 1460FLAG%=2:TURN2%=TURN2%-1:PROCSTOP(LS2X%,LS2Y%):ENDPROC
 1470DEFPROCSTOP(X%,Y%)
 1480VDU19,FLAG%,8,0,0,0:GCOL0,FLAG%
 1490PROCEXP(X%,Y%)
 1500*FX9,5
 1510*FX10,5
 1520PROCDELAY(400)
 1530CLG
 1540ENDPROC
 1550DEFPROCEXP(X%,Y%)
 1560POOFC%=FLAG%
 1570FORJ%=32TO16STEP-16  
 1580GCOL0,POOFC%
 1590FORI%=J%TO-J%STEP(-J%*2)
 1600MOVEX%,Y%+I%:MOVEX%-I%,Y%-I%:PLOT85,X%+I%,Y%-I%
 1610NEXTI%:POOFC%=3:NEXTJ%
 1620ENDPROC
 1630DEFPROCTITLE
 1640ENVELOPE1,2,0,0,0,0,0,0,127,-1,-1,-1,126,30
 1650ENVELOPE2,1,-10,-10,-10,5,5,5,126,0,-1,-1,126,30
 1660ENVELOPE3,1,1,1,1,5,5,5,127,-1,-1,-1,126,90
 1670VDU23,230,0,0,120,124,126,124,120,0,23,231,0,0,31,63,127,63,31,0
 1680VDU23,240,7,15,31,63,71,59,60,56,23,241,248,252,194,189,127,255,126,60 
 1690BIKE$=CHR$240+CHR$241
 1700DIMP%(5),N%(9),KEYNO%(4,3)
 1710RESTORE1760
 1720*FX9,5
 1730*FX10,5
 1740VDU19,3,0,0,0,0:VDU19,1,0,0,0,0
 1750FORI=1TO8:READN%(I):NEXT 
 1760DATA1,2,3,2,1,4,3,4
 1770FORT%=1TO3:FORI%=1TO4:READKEYNO%(I%,T%):NEXT,
 1780DATA-66,-98,-67,-83,-74,-90,-104,-105,-66,-98,-90,-106
 1790READP%(1):IFP%(1)=0THEN1890
 1800FORI%=2TO4:READP%(I%):NEXT
 1810FORI%=1TO3STEP2:MOVEP%(N%(I%)),P%(N%(I%+1)):NEXT
 1820FORI%=5TO7STEP2:GCOL0,I%-4:PLOT85,P%(N%(I%)),P%(N%(I%+1)):NEXT
 1830GOTO1790
 1840DATA100,900,160,600,160,600,280,660,300,840,480,900,360,660,420,840,300,600,480,660,500,840,680,900
 1850DATA500,840,560,660,500,600,660,660,600,660,660,700,580,700,680,740,700,600,760,900,760,740,820,800,820,600,880,900,900,840,1100,900   
 1860DATA960,600,1020,840,100,340,280,400,100,160,160,340,100,100,280,160,300,260,360,400,360,100,420,300,420 
 1870DATA260,480,400,500,340,680,400,500,160,560,340,500,100,680,160,700,100,760,400,760,100,880,160
 1880DATA900,100,960,400,960,340,1080,400,960,220,1080,280,960,100,1080,160,0,0
 1890VDU5:FORI%=1TO30:SOUND1,-15,I%,1:SOUND2,-15,I%,1:SOUND3,-15,I%,1
 1900GCOL0,2:SHIFT%=SHIFT%+16:MOVE100+SHIFT%,512:PRINT;CHR$230:MOVE1060-SHIFT%,512:PRINT;CHR$231:NEXT:VDU4
 1910*FX15,0
 1920SOUND0,1,4,10:SOUND1,2,200,80:SOUND2,2,100,80:SOUND3,2,75,80
 1930FLAG%=1:PROCEXP(600,496)
 1940FORI=9TO13:VDU19,3,I,0,0,0:VDU19,1,I+1,0,0,0:PROCDELAY(100):NEXT
 1950VDU19,3,7,0,0,0
 1960CLG
 1970ENDPROC
 1980DEFPROCINIT
 1990LS1X%=608:LS1Y%=512:LS2X%=640:LS2Y%=512:A1%=0:A2%=0:DIR1%=1:DIR2%=1:DIR%=1:STR%=1:T%=0:HALT%=0:CHANGE%=0  
 2000ENDPROC
 2010DEFPROCQUES
 2020VDU19,0,4,0,0,0,19,3,6,0,0,0,19,2,0,0,0,0,19,1,7,0,0,0
 2030COLOUR3
 2040PRINTTAB(10,16)"1 OR 2 USERS ?":PLAYNO$=GET$:PLAYNO%=VAL(PLAYNO$):IFPLAYNO%<1 OR PLAYNO%>2THEN2040  
 2050PROCKEYS:COLOUR3
 2060PRINTTAB(8,16)"SPEED LEVEL (1TO4) ?":S$=GET$:S%=VAL(S$):IFS%<1 OR S%>4THEN2060 ELSES%=2^(S%+1)
 2070TURN1%=3:TURN2%=3
 2080ENDPROC
 2090DEFPROCKEYS
 2100CLS
 2110IFPLAYNO%=2THEN2150
 2120COLOUR1:PRINTTAB(13,2)"USER CONTROLS";TAB(13,3)"_____________";TAB(13,6)"'A' = UP"
 2130PRINTTAB(13,8)"'Z' = DOWN";TAB(13,10)"'DELETE' = LEFT";TAB(13,12)"'COPY' = RIGHT"
 2140ENDPROC
 2150COLOUR1:PRINTTAB(13,2)"USER ONE";TAB(13,3)"________";TAB(13,6)"'A' - UP"
 2160PRINTTAB(13,8)"'Z' = DOWN";TAB(13,10)"'X' = LEFT";TAB(13,12)"'C' = RIGHT"
 2170COLOUR2:PRINTTAB(13,20)"USER TWO";TAB(13,21)"________";TAB(13,24)"'RETURN' = UP"
 2180PRINTTAB(13,26)"'DELETE' = DOWN";TAB(13,28)"'.' = LEFT";TAB(13,30)"'/' = RIGHT"
 2190ENDPROC
 2200DEFPROCRULES
 2210VDU22,7
 2220PRINTTAB(15,10);"��TRON  ��"
 2230PRINTTAB(17,14);"�BY�"
 2235PRINTTAB(9,18);CHR$136;:GOTO2238
 2238PRINT" �A.ROE / P.CHERRY �"  
 2250FORA=1TO8000 
 2260NEXTA
 2265VDU22,1
 2270VDU19,0,4,0,0,0:VDU19,1,0,0,0,0
 2280PRINTTAB(10,1)"LIGHT CYCLES"
 2290PRINT'''" This program is based on a game"''"played by Flynn in the film 'TRON'."''"Each player rides his own Light Cycle"
 2300PRINT'"Which emits a jet trail from it's"''"exhaust. At the start of the game the "''"two users ( USER 1=WHITE,"
 2310COLOUR1:PRINT" USER 2=BLACK ),";:COLOUR3:PRINT" are in the centre"''"of the playing grid.When the pitch"''"of the count down tone is raised,"''"users must start moving within 2"''"seconds, or be DE-REZED !"
 2320PRINTTAB(4,28)"PRESS SPACE BAR TO CONTINUE":ANY$=GET$:CLS
 2330PRINT'''" The object of the game is for you"''"to force your opponent to :"''" 1 : Crash into your trail"''" 2 : Crash into his own trail"''" 3 : Crash into grid boundry"  
 2340PRINT''" Each user is given three lives."  
 2350PRINTTAB(5,20)"GOOD CYCLING...."
 2360PRINTTAB(4,28)"PRESS SPACE BAR TO CONTINUE":ANY$=GET$:CLS
 2370ENDPROC
32000MODE7
32010REPORT:PRINTERL

��P@}
d�1
n�23;8202;0;0;0;
x
�TITLE
�
�RULES
�	�QUES
��
�	�INIT
�
�START
��
�	�MAIN
�
� HALT%=1
�*FX15,1
�� TURN1%=0 � TURN2%=0
��
��PLAYNO%=2��TDA
�y�1,13);:�TURN1%=0� �"THE M.C.P. HAS DE-REZED ANOTHER USER !":�TXA � �"I WILL APPROPRIATE YOU NEXT TIME !!":�TXA   
�6,13)"CONGRATULATIONS ";
(�TURN1%=0��;"USER TWO"� �;"USER ONE"
"�10,16)"ANOTHER GAME ?":AN$=�
"�AN$="Y"��tL@��1:�
,
��MAIN
6�PLAYNO%=1��txA
@�FLAG%=1�2
JA%=0
T�
^A%=A%+1
h#�KEYPRESSEDYN(KEYNO%(A%,FLAG%))
r	�A%=4
|H�PRESSTF%=� � FLAG%=1 � DIR1%=DIR%:�MOVE(LS1X%,LS1Y%,DIR1%):�SOUND1 
�G�PRESSTF%=� � FLAG%=2 � DIR2%=DIR%:�MOVE(LS2X%,LS2Y%,DIR2%):�SOUND2
�
�FLAG%
�STR%=STR%+1:�STR%<5��tnA
�>�DIR1%=0 � DIR2%=0 �CRASH:HALT%=1 � DIR1%=0:DIR2%=0:STR%=0
��  
�FLAG%=2
�;�DIR2%<3�UDCOM(LS2X%,LS2Y%,S%) � �LRCOM(LS2X%,LS2Y%,S%)
�<�CHANGE%=1 �NSEW:CHANGE%=0:�=0:�dBA � �>500 DIR2%=DIR%
��SOUND2
�FLAG%=1:A%=0
��
�A%=A%+1
�%�KEYPRESSEDYN(KEYNO%(A%,FLAG%+2))
	�A%=4
<�PRESSTF%=�  DIR1%=DIR%:�MOVE(LS1X%,LS1Y%,DIR1%):�SOUND1
#STR%=STR%+1:�STR%<5 �T%=0:�TpB
&1�DIR1%=0 �CRASH:HALT%=1 � DIR1%=0:STR%=0:T%=0
0�
:��KEYPRESSEDYN(K%)
D'�(K%) DIR%=A%:A%=4:PRESSTF%=�:�   
NPRESSTF%=�
X�
b��MOVE(X%,Y%,D%)
l�0,FLAG%:�X%,Y%
v� D% � �t@B,�tJB,�tTB,�t^B
�Y%=Y%+S%:�Y%>988��trB ��thB
�Y%=Y%-S%:�Y%<96��trB ��thB
�X%=X%-S%:�X%<94��trB ��thB
�X%=X%+S%:�X%>1180��trB
��XY:�POINT:�X%,Y%:�
�$DIR1%=1:DIR2%=1:�CRASH:HALT%=1:�
���XY
�2�FLAG%=1 LS1X%=X%:LS1Y%=Y% � LS2X%=X%:LS2Y%=Y%
��
���POINT
�9�X%,Y%)=1 � �X%,Y%)=2 DIR1%=1:DIR2%=1:�CRASH:HALT%=1
��
���UDCOM(X%,Y%,Z%)
�T:�0,2
,�DIR2%=1�Z%=S%:BUD%=988 � Z%=-S%:BUD%=96
�X%,Y%:J%=Y%+Z%
 )�COMPOINT(X%,J%,J%,BUD%):�CHANGE%=1 �
*Y%=Y%+Z%:�X%,Y%:�XY
4�
>��LRCOM(X%,Y%,Z%)
H�T:�0,2
R,�DIR2%=4�Z%=S%:BLR%=1180 �Z%=-S%:BLR%=94
\�X%,Y%:J%=X%+Z%
f)�COMPOINT(J%,Y%,J%,BLR%):�CHANGE%=1 �
pX%=X%+Z%:�X%,Y%:�XY
z�
���COMPOINT(P1%,P2%,P3%,P4%)
�'�P1%,P2%)=1 � �P1%,P2%)=2��tbC    
�8�(P4%>100 � P3%<P4%)�(P4%<100 � P3%>P4%)�CHANGE%=0:�
�
CHANGE%=1
��
�
��NSEW
�%�DIR2%>2�DIR2%=�(2) �DIR2%=�(2)+2
��
���T
�AT%=T%+1:�T%=10 DIR1%=1:DIR2%=1:FLAG%=2:�CRASH:DIR1%=1:HALT%=1
��
���START
�%�:�19,1,7,0,0,0,19,2,0,0,0,0:�0,3
�GRID(1200):�GRID(990)
&�1:�I%=1�TURN1%:�I%*2,30);BIKE$:�
,�9,30);:�PLAYNO%=1�"  USER" � �"USER 1"
$+�2:�I%=1�TURN2%:�38-I%*2,30);BIKE$:�  
.,�25,30);:�PLAYNO%=1�"M.C.P." ��"USER 2"
8-�0,1:�69,LS1X%,LS1Y%:�0,2:�69,LS2X%,LS2Y%
B�DELAY(50)
L�3
V*�I%=11�9�-1:�19,30);:�I%=9�"01" ��;I%
`�3,3,20,20:�DELAY(100):�
j�17,30)" GO!!":�3,3,60,20
t
A$=�(100)
~�=500:DIR2%=�(4)
��
�
��GRID(A)
��DELAY(10)
��I=90 � A �100
��0,-10,0,1
�(�A=1200 �I,90:�I,990 � �90,I:�1190,I
��DELAY(10):�
��
���DELAY(DELAY%)
��=0:� ��>DELAY%
��
���SOUND1
�HALT%=1��

�A1%<>DIR1% � PITCH1%=0
PITCH1%=PITCH1%+1
�&0011,-15,PITCH1%,255
(
A1%=DIR1%
2�
<��SOUND2
F�HALT%=1��
P�A2%<>DIR2% � PITCH2%=0
ZPITCH2%=PITCH2%+1
d�&0012,-15,PITCH2%,255 
n
A2%=DIR2%
x�
���CRASH
��17,30)"DE-REZ"
��&0011,0,0,0:�&0012,0,0,0
�/�0,1,4,4:�1,2,200,50:�2,2,100,50:�3,2,75,50
�C�DIR1%=0 � FLAG%=1 FLAG%=1:TURN1%=TURN1%-1:�STOP(LS1X%,LS1Y%):�
�0FLAG%=2:TURN2%=TURN2%-1:�STOP(LS2X%,LS2Y%):�
���STOP(X%,Y%)
��19,FLAG%,8,0,0,0:�0,FLAG%
��EXP(X%,Y%)
�
*FX9,5
�*FX10,5
��DELAY(400)
��
�
��EXP(X%,Y%)
POOFC%=FLAG%
"�J%=32�16�-16  
,
�0,POOFC%
6�I%=J%�-J%�(-J%*2)
@*�X%,Y%+I%:�X%-I%,Y%-I%:�85,X%+I%,Y%-I%
J�I%:POOFC%=3:�J%
T�
^��TITLE
h(�1,2,0,0,0,0,0,0,127,-1,-1,-1,126,30
r-�2,1,-10,-10,-10,5,5,5,126,0,-1,-1,126,30
|(�3,1,1,1,1,5,5,5,127,-1,-1,-1,126,90
�B�23,230,0,0,120,124,126,124,120,0,23,231,0,0,31,63,127,63,31,0
�I�23,240,7,15,31,63,71,59,60,56,23,241,248,252,194,189,127,255,126,60 
�BIKE$=�240+�241
��P%(5),N%(9),KEYNO%(4,3)
�	��d`F
�
*FX9,5
�*FX10,5
��19,3,0,0,0,0:�19,1,0,0,0,0
��I=1�8:�N%(I):� 
��1,2,3,2,1,4,3,4
�%�T%=1�3:�I%=1�4:�KEYNO%(I%,T%):�,
�7�-66,-98,-67,-83,-74,-90,-104,-105,-66,-98,-90,-106
��P%(1):�P%(1)=0��DbG
�I%=2�4:�P%(I%):�
(�I%=1�3�2:�P%(N%(I%)),P%(N%(I%+1)):�
3�I%=5�7�2:�0,I%-4:�85,P%(N%(I%)),P%(N%(I%+1)):�
&	�d~F
0d�100,900,160,600,160,600,280,660,300,840,480,900,360,660,420,840,300,600,480,660,500,840,680,900
:��500,840,560,660,500,600,660,660,600,660,660,700,580,700,680,740,700,600,760,900,760,740,820,800,820,600,880,900,900,840,1100,900   
Dj�960,600,1020,840,100,340,280,400,100,160,160,340,100,100,280,160,300,260,360,400,360,100,420,300,420 
N`�260,480,400,500,340,680,400,500,160,560,340,500,100,680,160,700,100,760,400,760,100,880,160
XK�900,100,960,400,960,340,1080,400,960,220,1080,280,960,100,1080,160,0,0
b3�5:�I%=1�30:�1,-15,I%,1:�2,-15,I%,1:�3,-15,I%,1
lM�0,2:SHIFT%=SHIFT%+16:�100+SHIFT%,512:�;�230:�1060-SHIFT%,512:�;�231:�:�4
v*FX15,0
�0�0,1,4,10:�1,2,200,80:�2,2,100,80:�3,2,75,80
�FLAG%=1:�EXP(600,496)
�7�I=9�13:�19,3,I,0,0,0:�19,1,I+1,0,0,0:�DELAY(100):�
��19,3,7,0,0,0
��
��
�
��INIT
�nLS1X%=608:LS1Y%=512:LS2X%=640:LS2Y%=512:A1%=0:A2%=0:DIR1%=1:DIR2%=1:DIR%=1:STR%=1:T%=0:HALT%=0:CHANGE%=0  
��
�
��QUES
�8�19,0,4,0,0,0,19,3,6,0,0,0,19,2,0,0,0,0,19,1,7,0,0,0
��3
�W�10,16)"1 OR 2 USERS ?":PLAYNO$=�:PLAYNO%=�(PLAYNO$):�PLAYNO%<1 � PLAYNO%>2��dxG  
�KEYS:�3
N�8,16)"SPEED LEVEL (1TO4) ?":S$=�:S%=�(S$):�S%<1 � S%>4��TLH �S%=2^(S%+1)
TURN1%=3:TURN2%=3
 �
*
��KEYS
4�
>�PLAYNO%=2��DfH
HD�1:�13,2)"USER CONTROLS";�13,3)"_____________";�13,6)"'A' = UP"
RH�13,8)"'Z' = DOWN";�13,10)"'DELETE' = LEFT";�13,12)"'COPY' = RIGHT"
\�
f:�1:�13,2)"USER ONE";�13,3)"________";�13,6)"'A' - UP"
p@�13,8)"'Z' = DOWN";�13,10)"'X' = LEFT";�13,12)"'C' = RIGHT"
zB�2:�13,20)"USER TWO";�13,21)"________";�13,24)"'RETURN' = UP"
�F�13,26)"'DELETE' = DOWN";�13,28)"'.' = LEFT";�13,30)"'/' = RIGHT"
��
���RULES
�	�22,7
��15,10);"��TRON  ��"
��17,14);"�BY�"
��9,18);�136;:�t~H
��" �A.ROE / P.CHERRY �"  
��A=1�8000 
��A
�	�22,1
��19,0,4,0,0,0:�19,1,0,0,0,0
��10,1)"LIGHT CYCLES"
�z�'''" This program is based on a game"''"played by Flynn in the film 'TRON'."''"Each player rides his own Light Cycle"
�p�'"Which emits a jet trail from it's"''"exhaust. At the start of the game the "''"two users ( USER 1=WHITE,"
	��1:�" USER 2=BLACK ),";:�3:�" are in the centre"''"of the playing grid.When the pitch"''"of the count down tone is raised,"''"users must start moving within 2"''"seconds, or be DE-REZED !"
	1�4,28)"PRESS SPACE BAR TO CONTINUE":ANY$=�:�
	��'''" The object of the game is for you"''"to force your opponent to :"''" 1 : Crash into your trail"''" 2 : Crash into his own trail"''" 3 : Crash into grid boundry"  
	$+�''" Each user is given three lives."  
	.�5,20)"GOOD CYCLING...."
	81�4,28)"PRESS SPACE BAR TO CONTINUE":ANY$=�:�
	B�
}�7
}
�:�
�
00000000  0d 00 0a 0b ee 85 e5 8d  50 40 7d 0d 00 64 06 eb  |........P@}..d..|
00000010  31 0d 00 6e 13 ef 32 33  3b 38 32 30 32 3b 30 3b  |1..n..23;8202;0;|
00000020  30 3b 30 3b 0d 00 78 0a  f2 54 49 54 4c 45 0d 00  |0;0;..x..TITLE..|
00000030  82 0a f2 52 55 4c 45 53  0d 00 8c 09 f2 51 55 45  |...RULES.....QUE|
00000040  53 0d 00 96 05 f5 0d 00  a0 09 f2 49 4e 49 54 0d  |S..........INIT.|
00000050  00 aa 0a f2 53 54 41 52  54 0d 00 b4 05 f5 0d 00  |....START.......|
00000060  be 09 f2 4d 41 49 4e 0d  00 c8 0d fd 20 48 41 4c  |...MAIN..... HAL|
00000070  54 25 3d 31 0d 00 d2 0b  2a 46 58 31 35 2c 31 0d  |T%=1....*FX15,1.|
00000080  00 dc 19 fd 20 54 55 52  4e 31 25 3d 30 20 84 20  |.... TURN1%=0 . |
00000090  54 55 52 4e 32 25 3d 30  0d 00 e6 05 db 0d 00 f0  |TURN2%=0........|
000000a0  13 e7 50 4c 41 59 4e 4f  25 3d 32 8c 8d 54 44 41  |..PLAYNO%=2..TDA|
000000b0  0d 00 fa 79 f1 8a 31 2c  31 33 29 3b 3a e7 54 55  |...y..1,13);:.TU|
000000c0  52 4e 31 25 3d 30 8c 20  f1 22 54 48 45 20 4d 2e  |RN1%=0. ."THE M.|
000000d0  43 2e 50 2e 20 48 41 53  20 44 45 2d 52 45 5a 45  |C.P. HAS DE-REZE|
000000e0  44 20 41 4e 4f 54 48 45  52 20 55 53 45 52 20 21  |D ANOTHER USER !|
000000f0  22 3a e5 8d 54 58 41 20  8b 20 f1 22 49 20 57 49  |":..TXA . ."I WI|
00000100  4c 4c 20 41 50 50 52 4f  50 52 49 41 54 45 20 59  |LL APPROPRIATE Y|
00000110  4f 55 20 4e 45 58 54 20  54 49 4d 45 20 21 21 22  |OU NEXT TIME !!"|
00000120  3a e5 8d 54 58 41 20 20  20 0d 01 04 1e f1 8a 36  |:..TXA   ......6|
00000130  2c 31 33 29 22 43 4f 4e  47 52 41 54 55 4c 41 54  |,13)"CONGRATULAT|
00000140  49 4f 4e 53 20 22 3b 0d  01 0e 28 e7 54 55 52 4e  |IONS ";...(.TURN|
00000150  31 25 3d 30 8c f1 3b 22  55 53 45 52 20 54 57 4f  |1%=0..;"USER TWO|
00000160  22 8b 20 f1 3b 22 55 53  45 52 20 4f 4e 45 22 0d  |". .;"USER ONE".|
00000170  01 18 22 f1 8a 31 30 2c  31 36 29 22 41 4e 4f 54  |.."..10,16)"ANOT|
00000180  48 45 52 20 47 41 4d 45  20 3f 22 3a 41 4e 24 3d  |HER GAME ?":AN$=|
00000190  be 0d 01 22 16 e7 41 4e  24 3d 22 59 22 8c 8d 74  |..."..AN$="Y"..t|
000001a0  4c 40 8b eb 31 3a e0 0d  01 2c 0a dd f2 4d 41 49  |L@..1:...,...MAI|
000001b0  4e 0d 01 36 13 e7 50 4c  41 59 4e 4f 25 3d 31 8c  |N..6..PLAYNO%=1.|
000001c0  8d 74 78 41 0d 01 40 0e  e3 46 4c 41 47 25 3d 31  |.txA..@..FLAG%=1|
000001d0  b8 32 0d 01 4a 08 41 25  3d 30 0d 01 54 05 f5 0d  |.2..J.A%=0..T...|
000001e0  01 5e 0b 41 25 3d 41 25  2b 31 0d 01 68 23 f2 4b  |.^.A%=A%+1..h#.K|
000001f0  45 59 50 52 45 53 53 45  44 59 4e 28 4b 45 59 4e  |EYPRESSEDYN(KEYN|
00000200  4f 25 28 41 25 2c 46 4c  41 47 25 29 29 0d 01 72  |O%(A%,FLAG%))..r|
00000210  09 fd 41 25 3d 34 0d 01  7c 48 e7 50 52 45 53 53  |..A%=4..|H.PRESS|
00000220  54 46 25 3d b9 20 80 20  46 4c 41 47 25 3d 31 20  |TF%=. . FLAG%=1 |
00000230  8c 20 44 49 52 31 25 3d  44 49 52 25 3a f2 4d 4f  |. DIR1%=DIR%:.MO|
00000240  56 45 28 4c 53 31 58 25  2c 4c 53 31 59 25 2c 44  |VE(LS1X%,LS1Y%,D|
00000250  49 52 31 25 29 3a f2 53  4f 55 4e 44 31 20 0d 01  |IR1%):.SOUND1 ..|
00000260  86 47 e7 50 52 45 53 53  54 46 25 3d b9 20 80 20  |.G.PRESSTF%=. . |
00000270  46 4c 41 47 25 3d 32 20  8c 20 44 49 52 32 25 3d  |FLAG%=2 . DIR2%=|
00000280  44 49 52 25 3a f2 4d 4f  56 45 28 4c 53 32 58 25  |DIR%:.MOVE(LS2X%|
00000290  2c 4c 53 32 59 25 2c 44  49 52 32 25 29 3a f2 53  |,LS2Y%,DIR2%):.S|
000002a0  4f 55 4e 44 32 0d 01 90  0a ed 46 4c 41 47 25 0d  |OUND2.....FLAG%.|
000002b0  01 9a 1c 53 54 52 25 3d  53 54 52 25 2b 31 3a e7  |...STR%=STR%+1:.|
000002c0  53 54 52 25 3c 35 8c 8d  74 6e 41 0d 01 a4 3e e7  |STR%<5..tnA...>.|
000002d0  44 49 52 31 25 3d 30 20  84 20 44 49 52 32 25 3d  |DIR1%=0 . DIR2%=|
000002e0  30 20 f2 43 52 41 53 48  3a 48 41 4c 54 25 3d 31  |0 .CRASH:HALT%=1|
000002f0  20 8b 20 44 49 52 31 25  3d 30 3a 44 49 52 32 25  | . DIR1%=0:DIR2%|
00000300  3d 30 3a 53 54 52 25 3d  30 0d 01 ae 07 e1 20 20  |=0:STR%=0.....  |
00000310  0d 01 b8 0b 46 4c 41 47  25 3d 32 0d 01 c2 3b e7  |....FLAG%=2...;.|
00000320  44 49 52 32 25 3c 33 f2  55 44 43 4f 4d 28 4c 53  |DIR2%<3.UDCOM(LS|
00000330  32 58 25 2c 4c 53 32 59  25 2c 53 25 29 20 8b 20  |2X%,LS2Y%,S%) . |
00000340  f2 4c 52 43 4f 4d 28 4c  53 32 58 25 2c 4c 53 32  |.LRCOM(LS2X%,LS2|
00000350  59 25 2c 53 25 29 0d 01  cc 3c e7 43 48 41 4e 47  |Y%,S%)...<.CHANG|
00000360  45 25 3d 31 20 f2 4e 53  45 57 3a 43 48 41 4e 47  |E%=1 .NSEW:CHANG|
00000370  45 25 3d 30 3a d1 3d 30  3a e5 8d 64 42 41 20 8b  |E%=0:.=0:..dBA .|
00000380  20 e7 91 3e 35 30 30 20  44 49 52 32 25 3d 44 49  | ..>500 DIR2%=DI|
00000390  52 25 0d 01 d6 0b f2 53  4f 55 4e 44 32 0d 01 e0  |R%.....SOUND2...|
000003a0  10 46 4c 41 47 25 3d 31  3a 41 25 3d 30 0d 01 ea  |.FLAG%=1:A%=0...|
000003b0  05 f5 0d 01 f4 0b 41 25  3d 41 25 2b 31 0d 01 fe  |......A%=A%+1...|
000003c0  25 f2 4b 45 59 50 52 45  53 53 45 44 59 4e 28 4b  |%.KEYPRESSEDYN(K|
000003d0  45 59 4e 4f 25 28 41 25  2c 46 4c 41 47 25 2b 32  |EYNO%(A%,FLAG%+2|
000003e0  29 29 0d 02 08 09 fd 41  25 3d 34 0d 02 12 3c e7  |)).....A%=4...<.|
000003f0  50 52 45 53 53 54 46 25  3d b9 20 20 44 49 52 31  |PRESSTF%=.  DIR1|
00000400  25 3d 44 49 52 25 3a f2  4d 4f 56 45 28 4c 53 31  |%=DIR%:.MOVE(LS1|
00000410  58 25 2c 4c 53 31 59 25  2c 44 49 52 31 25 29 3a  |X%,LS1Y%,DIR1%):|
00000420  f2 53 4f 55 4e 44 31 0d  02 1c 23 53 54 52 25 3d  |.SOUND1...#STR%=|
00000430  53 54 52 25 2b 31 3a e7  53 54 52 25 3c 35 20 8c  |STR%+1:.STR%<5 .|
00000440  54 25 3d 30 3a e5 8d 54  70 42 0d 02 26 31 e7 44  |T%=0:..TpB..&1.D|
00000450  49 52 31 25 3d 30 20 f2  43 52 41 53 48 3a 48 41  |IR1%=0 .CRASH:HA|
00000460  4c 54 25 3d 31 20 8b 20  44 49 52 31 25 3d 30 3a  |LT%=1 . DIR1%=0:|
00000470  53 54 52 25 3d 30 3a 54  25 3d 30 0d 02 30 05 e1  |STR%=0:T%=0..0..|
00000480  0d 02 3a 16 dd f2 4b 45  59 50 52 45 53 53 45 44  |..:...KEYPRESSED|
00000490  59 4e 28 4b 25 29 0d 02  44 27 e7 a6 28 4b 25 29  |YN(K%)..D'..(K%)|
000004a0  20 44 49 52 25 3d 41 25  3a 41 25 3d 34 3a 50 52  | DIR%=A%:A%=4:PR|
000004b0  45 53 53 54 46 25 3d b9  3a e1 20 20 20 0d 02 4e  |ESSTF%=.:.   ..N|
000004c0  0e 50 52 45 53 53 54 46  25 3d a3 0d 02 58 05 e1  |.PRESSTF%=...X..|
000004d0  0d 02 62 14 dd f2 4d 4f  56 45 28 58 25 2c 59 25  |..b...MOVE(X%,Y%|
000004e0  2c 44 25 29 0d 02 6c 13  e6 30 2c 46 4c 41 47 25  |,D%)..l..0,FLAG%|
000004f0  3a ec 58 25 2c 59 25 0d  02 76 1e ee 20 44 25 20  |:.X%,Y%..v.. D% |
00000500  e5 20 8d 74 40 42 2c 8d  74 4a 42 2c 8d 74 54 42  |. .t@B,.tJB,.tTB|
00000510  2c 8d 74 5e 42 0d 02 80  1f 59 25 3d 59 25 2b 53  |,.t^B....Y%=Y%+S|
00000520  25 3a e7 59 25 3e 39 38  38 8c 8d 74 72 42 20 8b  |%:.Y%>988..trB .|
00000530  8d 74 68 42 0d 02 8a 1e  59 25 3d 59 25 2d 53 25  |.thB....Y%=Y%-S%|
00000540  3a e7 59 25 3c 39 36 8c  8d 74 72 42 20 8b 8d 74  |:.Y%<96..trB ..t|
00000550  68 42 0d 02 94 1e 58 25  3d 58 25 2d 53 25 3a e7  |hB....X%=X%-S%:.|
00000560  58 25 3c 39 34 8c 8d 74  72 42 20 8b 8d 74 68 42  |X%<94..trB ..thB|
00000570  0d 02 9e 1a 58 25 3d 58  25 2b 53 25 3a e7 58 25  |....X%=X%+S%:.X%|
00000580  3e 31 31 38 30 8c 8d 74  72 42 0d 02 a8 17 f2 58  |>1180..trB.....X|
00000590  59 3a f2 50 4f 49 4e 54  3a df 58 25 2c 59 25 3a  |Y:.POINT:.X%,Y%:|
000005a0  e1 0d 02 b2 24 44 49 52  31 25 3d 31 3a 44 49 52  |....$DIR1%=1:DIR|
000005b0  32 25 3d 31 3a f2 43 52  41 53 48 3a 48 41 4c 54  |2%=1:.CRASH:HALT|
000005c0  25 3d 31 3a e1 0d 02 bc  08 dd f2 58 59 0d 02 c6  |%=1:.......XY...|
000005d0  32 e7 46 4c 41 47 25 3d  31 20 4c 53 31 58 25 3d  |2.FLAG%=1 LS1X%=|
000005e0  58 25 3a 4c 53 31 59 25  3d 59 25 20 8b 20 4c 53  |X%:LS1Y%=Y% . LS|
000005f0  32 58 25 3d 58 25 3a 4c  53 32 59 25 3d 59 25 0d  |2X%=X%:LS2Y%=Y%.|
00000600  02 d0 05 e1 0d 02 da 0b  dd f2 50 4f 49 4e 54 0d  |..........POINT.|
00000610  02 e4 39 e7 b0 58 25 2c  59 25 29 3d 31 20 84 20  |..9..X%,Y%)=1 . |
00000620  b0 58 25 2c 59 25 29 3d  32 20 44 49 52 31 25 3d  |.X%,Y%)=2 DIR1%=|
00000630  31 3a 44 49 52 32 25 3d  31 3a f2 43 52 41 53 48  |1:DIR2%=1:.CRASH|
00000640  3a 48 41 4c 54 25 3d 31  0d 02 ee 05 e1 0d 02 f8  |:HALT%=1........|
00000650  15 dd f2 55 44 43 4f 4d  28 58 25 2c 59 25 2c 5a  |...UDCOM(X%,Y%,Z|
00000660  25 29 0d 03 02 0b f2 54  3a e6 30 2c 32 0d 03 0c  |%).....T:.0,2...|
00000670  2c e7 44 49 52 32 25 3d  31 8c 5a 25 3d 53 25 3a  |,.DIR2%=1.Z%=S%:|
00000680  42 55 44 25 3d 39 38 38  20 8b 20 5a 25 3d 2d 53  |BUD%=988 . Z%=-S|
00000690  25 3a 42 55 44 25 3d 39  36 0d 03 16 13 ec 58 25  |%:BUD%=96.....X%|
000006a0  2c 59 25 3a 4a 25 3d 59  25 2b 5a 25 0d 03 20 29  |,Y%:J%=Y%+Z%.. )|
000006b0  f2 43 4f 4d 50 4f 49 4e  54 28 58 25 2c 4a 25 2c  |.COMPOINT(X%,J%,|
000006c0  4a 25 2c 42 55 44 25 29  3a e7 43 48 41 4e 47 45  |J%,BUD%):.CHANGE|
000006d0  25 3d 31 20 e1 0d 03 2a  17 59 25 3d 59 25 2b 5a  |%=1 ...*.Y%=Y%+Z|
000006e0  25 3a df 58 25 2c 59 25  3a f2 58 59 0d 03 34 05  |%:.X%,Y%:.XY..4.|
000006f0  e1 0d 03 3e 15 dd f2 4c  52 43 4f 4d 28 58 25 2c  |...>...LRCOM(X%,|
00000700  59 25 2c 5a 25 29 0d 03  48 0b f2 54 3a e6 30 2c  |Y%,Z%)..H..T:.0,|
00000710  32 0d 03 52 2c e7 44 49  52 32 25 3d 34 8c 5a 25  |2..R,.DIR2%=4.Z%|
00000720  3d 53 25 3a 42 4c 52 25  3d 31 31 38 30 20 8b 5a  |=S%:BLR%=1180 .Z|
00000730  25 3d 2d 53 25 3a 42 4c  52 25 3d 39 34 0d 03 5c  |%=-S%:BLR%=94..\|
00000740  13 ec 58 25 2c 59 25 3a  4a 25 3d 58 25 2b 5a 25  |..X%,Y%:J%=X%+Z%|
00000750  0d 03 66 29 f2 43 4f 4d  50 4f 49 4e 54 28 4a 25  |..f).COMPOINT(J%|
00000760  2c 59 25 2c 4a 25 2c 42  4c 52 25 29 3a e7 43 48  |,Y%,J%,BLR%):.CH|
00000770  41 4e 47 45 25 3d 31 20  e1 0d 03 70 17 58 25 3d  |ANGE%=1 ...p.X%=|
00000780  58 25 2b 5a 25 3a df 58  25 2c 59 25 3a f2 58 59  |X%+Z%:.X%,Y%:.XY|
00000790  0d 03 7a 05 e1 0d 03 84  1f dd f2 43 4f 4d 50 4f  |..z........COMPO|
000007a0  49 4e 54 28 50 31 25 2c  50 32 25 2c 50 33 25 2c  |INT(P1%,P2%,P3%,|
000007b0  50 34 25 29 0d 03 8e 27  e7 b0 50 31 25 2c 50 32  |P4%)...'..P1%,P2|
000007c0  25 29 3d 31 20 84 20 b0  50 31 25 2c 50 32 25 29  |%)=1 . .P1%,P2%)|
000007d0  3d 32 8c 8d 74 62 43 20  20 20 20 0d 03 98 38 e7  |=2..tbC    ...8.|
000007e0  28 50 34 25 3e 31 30 30  20 80 20 50 33 25 3c 50  |(P4%>100 . P3%<P|
000007f0  34 25 29 84 28 50 34 25  3c 31 30 30 20 80 20 50  |4%).(P4%<100 . P|
00000800  33 25 3e 50 34 25 29 8c  43 48 41 4e 47 45 25 3d  |3%>P4%).CHANGE%=|
00000810  30 3a e1 0d 03 a2 0d 43  48 41 4e 47 45 25 3d 31  |0:.....CHANGE%=1|
00000820  0d 03 ac 05 e1 0d 03 b6  0a dd f2 4e 53 45 57 0d  |...........NSEW.|
00000830  03 c0 25 e7 44 49 52 32  25 3e 32 8c 44 49 52 32  |..%.DIR2%>2.DIR2|
00000840  25 3d b3 28 32 29 20 8b  44 49 52 32 25 3d b3 28  |%=.(2) .DIR2%=.(|
00000850  32 29 2b 32 0d 03 ca 05  e1 0d 03 d4 07 dd f2 54  |2)+2...........T|
00000860  0d 03 de 41 54 25 3d 54  25 2b 31 3a e7 54 25 3d  |...AT%=T%+1:.T%=|
00000870  31 30 20 44 49 52 31 25  3d 31 3a 44 49 52 32 25  |10 DIR1%=1:DIR2%|
00000880  3d 31 3a 46 4c 41 47 25  3d 32 3a f2 43 52 41 53  |=1:FLAG%=2:.CRAS|
00000890  48 3a 44 49 52 31 25 3d  31 3a 48 41 4c 54 25 3d  |H:DIR1%=1:HALT%=|
000008a0  31 0d 03 e8 05 e1 0d 03  f2 0b dd f2 53 54 41 52  |1...........STAR|
000008b0  54 0d 03 fc 25 db 3a ef  31 39 2c 31 2c 37 2c 30  |T...%.:.19,1,7,0|
000008c0  2c 30 2c 30 2c 31 39 2c  32 2c 30 2c 30 2c 30 2c  |,0,0,19,2,0,0,0,|
000008d0  30 3a e6 30 2c 33 0d 04  06 1a f2 47 52 49 44 28  |0:.0,3.....GRID(|
000008e0  31 32 30 30 29 3a f2 47  52 49 44 28 39 39 30 29  |1200):.GRID(990)|
000008f0  0d 04 10 26 fb 31 3a e3  49 25 3d 31 b8 54 55 52  |...&.1:.I%=1.TUR|
00000900  4e 31 25 3a f1 8a 49 25  2a 32 2c 33 30 29 3b 42  |N1%:..I%*2,30);B|
00000910  49 4b 45 24 3a ed 0d 04  1a 2c f1 8a 39 2c 33 30  |IKE$:....,..9,30|
00000920  29 3b 3a e7 50 4c 41 59  4e 4f 25 3d 31 f1 22 20  |);:.PLAYNO%=1." |
00000930  20 55 53 45 52 22 20 8b  20 f1 22 55 53 45 52 20  | USER" . ."USER |
00000940  31 22 0d 04 24 2b fb 32  3a e3 49 25 3d 31 b8 54  |1"..$+.2:.I%=1.T|
00000950  55 52 4e 32 25 3a f1 8a  33 38 2d 49 25 2a 32 2c  |URN2%:..38-I%*2,|
00000960  33 30 29 3b 42 49 4b 45  24 3a ed 20 20 0d 04 2e  |30);BIKE$:.  ...|
00000970  2c f1 8a 32 35 2c 33 30  29 3b 3a e7 50 4c 41 59  |,..25,30);:.PLAY|
00000980  4e 4f 25 3d 31 f1 22 4d  2e 43 2e 50 2e 22 20 8b  |NO%=1."M.C.P." .|
00000990  f1 22 55 53 45 52 20 32  22 0d 04 38 2d e6 30 2c  |."USER 2"..8-.0,|
000009a0  31 3a f0 36 39 2c 4c 53  31 58 25 2c 4c 53 31 59  |1:.69,LS1X%,LS1Y|
000009b0  25 3a e6 30 2c 32 3a f0  36 39 2c 4c 53 32 58 25  |%:.0,2:.69,LS2X%|
000009c0  2c 4c 53 32 59 25 0d 04  42 0e f2 44 45 4c 41 59  |,LS2Y%..B..DELAY|
000009d0  28 35 30 29 0d 04 4c 06  fb 33 0d 04 56 2a e3 49  |(50)..L..3..V*.I|
000009e0  25 3d 31 31 b8 39 88 2d  31 3a f1 8a 31 39 2c 33  |%=11.9.-1:..19,3|
000009f0  30 29 3b 3a e7 49 25 3d  39 f1 22 30 31 22 20 8b  |0);:.I%=9."01" .|
00000a00  f1 3b 49 25 0d 04 60 1c  d4 33 2c 33 2c 32 30 2c  |.;I%..`..3,3,20,|
00000a10  32 30 3a f2 44 45 4c 41  59 28 31 30 30 29 3a ed  |20:.DELAY(100):.|
00000a20  0d 04 6a 1e f1 8a 31 37  2c 33 30 29 22 20 47 4f  |..j...17,30)" GO|
00000a30  21 21 22 3a d4 33 2c 33  2c 36 30 2c 32 30 0d 04  |!!":.3,3,60,20..|
00000a40  74 0d 41 24 3d bf 28 31  30 30 29 0d 04 7e 14 d1  |t.A$=.(100)..~..|
00000a50  3d 35 30 30 3a 44 49 52  32 25 3d b3 28 34 29 0d  |=500:DIR2%=.(4).|
00000a60  04 88 05 e1 0d 04 92 0d  dd f2 47 52 49 44 28 41  |..........GRID(A|
00000a70  29 0d 04 9c 0e f2 44 45  4c 41 59 28 31 30 29 0d  |).....DELAY(10).|
00000a80  04 a6 12 e3 49 3d 39 30  20 b8 20 41 20 88 31 30  |....I=90 . A .10|
00000a90  30 0d 04 b0 0e d4 30 2c  2d 31 30 2c 30 2c 31 0d  |0.....0,-10,0,1.|
00000aa0  04 ba 28 e7 41 3d 31 32  30 30 20 ec 49 2c 39 30  |..(.A=1200 .I,90|
00000ab0  3a df 49 2c 39 39 30 20  8b 20 ec 39 30 2c 49 3a  |:.I,990 . .90,I:|
00000ac0  df 31 31 39 30 2c 49 0d  04 c4 10 f2 44 45 4c 41  |.1190,I.....DELA|
00000ad0  59 28 31 30 29 3a ed 0d  04 ce 05 e1 0d 04 d8 13  |Y(10):..........|
00000ae0  dd f2 44 45 4c 41 59 28  44 45 4c 41 59 25 29 0d  |..DELAY(DELAY%).|
00000af0  04 e2 13 d1 3d 30 3a f5  20 fd 91 3e 44 45 4c 41  |....=0:. ..>DELA|
00000b00  59 25 0d 04 ec 05 e1 0d  04 f6 0c dd f2 53 4f 55  |Y%...........SOU|
00000b10  4e 44 31 0d 05 00 0e e7  48 41 4c 54 25 3d 31 8c  |ND1.....HALT%=1.|
00000b20  e1 0d 05 0a 1b e7 41 31  25 3c 3e 44 49 52 31 25  |......A1%<>DIR1%|
00000b30  20 8c 20 50 49 54 43 48  31 25 3d 30 0d 05 14 15  | . PITCH1%=0....|
00000b40  50 49 54 43 48 31 25 3d  50 49 54 43 48 31 25 2b  |PITCH1%=PITCH1%+|
00000b50  31 0d 05 1e 1a d4 26 30  30 31 31 2c 2d 31 35 2c  |1.....&0011,-15,|
00000b60  50 49 54 43 48 31 25 2c  32 35 35 0d 05 28 0d 41  |PITCH1%,255..(.A|
00000b70  31 25 3d 44 49 52 31 25  0d 05 32 05 e1 0d 05 3c  |1%=DIR1%..2....<|
00000b80  0c dd f2 53 4f 55 4e 44  32 0d 05 46 0e e7 48 41  |...SOUND2..F..HA|
00000b90  4c 54 25 3d 31 8c e1 0d  05 50 1b e7 41 32 25 3c  |LT%=1....P..A2%<|
00000ba0  3e 44 49 52 32 25 20 8c  20 50 49 54 43 48 32 25  |>DIR2% . PITCH2%|
00000bb0  3d 30 0d 05 5a 15 50 49  54 43 48 32 25 3d 50 49  |=0..Z.PITCH2%=PI|
00000bc0  54 43 48 32 25 2b 31 0d  05 64 1b d4 26 30 30 31  |TCH2%+1..d..&001|
00000bd0  32 2c 2d 31 35 2c 50 49  54 43 48 32 25 2c 32 35  |2,-15,PITCH2%,25|
00000be0  35 20 0d 05 6e 0d 41 32  25 3d 44 49 52 32 25 0d  |5 ..n.A2%=DIR2%.|
00000bf0  05 78 05 e1 0d 05 82 0b  dd f2 43 52 41 53 48 0d  |.x........CRASH.|
00000c00  05 8c 14 f1 8a 31 37 2c  33 30 29 22 44 45 2d 52  |.....17,30)"DE-R|
00000c10  45 5a 22 0d 05 96 1d d4  26 30 30 31 31 2c 30 2c  |EZ".....&0011,0,|
00000c20  30 2c 30 3a d4 26 30 30  31 32 2c 30 2c 30 2c 30  |0,0:.&0012,0,0,0|
00000c30  0d 05 a0 2f d4 30 2c 31  2c 34 2c 34 3a d4 31 2c  |.../.0,1,4,4:.1,|
00000c40  32 2c 32 30 30 2c 35 30  3a d4 32 2c 32 2c 31 30  |2,200,50:.2,2,10|
00000c50  30 2c 35 30 3a d4 33 2c  32 2c 37 35 2c 35 30 0d  |0,50:.3,2,75,50.|
00000c60  05 aa 43 e7 44 49 52 31  25 3d 30 20 84 20 46 4c  |..C.DIR1%=0 . FL|
00000c70  41 47 25 3d 31 20 46 4c  41 47 25 3d 31 3a 54 55  |AG%=1 FLAG%=1:TU|
00000c80  52 4e 31 25 3d 54 55 52  4e 31 25 2d 31 3a f2 53  |RN1%=TURN1%-1:.S|
00000c90  54 4f 50 28 4c 53 31 58  25 2c 4c 53 31 59 25 29  |TOP(LS1X%,LS1Y%)|
00000ca0  3a e1 0d 05 b4 30 46 4c  41 47 25 3d 32 3a 54 55  |:....0FLAG%=2:TU|
00000cb0  52 4e 32 25 3d 54 55 52  4e 32 25 2d 31 3a f2 53  |RN2%=TURN2%-1:.S|
00000cc0  54 4f 50 28 4c 53 32 58  25 2c 4c 53 32 59 25 29  |TOP(LS2X%,LS2Y%)|
00000cd0  3a e1 0d 05 be 11 dd f2  53 54 4f 50 28 58 25 2c  |:.......STOP(X%,|
00000ce0  59 25 29 0d 05 c8 1e ef  31 39 2c 46 4c 41 47 25  |Y%).....19,FLAG%|
00000cf0  2c 38 2c 30 2c 30 2c 30  3a e6 30 2c 46 4c 41 47  |,8,0,0,0:.0,FLAG|
00000d00  25 0d 05 d2 0f f2 45 58  50 28 58 25 2c 59 25 29  |%.....EXP(X%,Y%)|
00000d10  0d 05 dc 0a 2a 46 58 39  2c 35 0d 05 e6 0b 2a 46  |....*FX9,5....*F|
00000d20  58 31 30 2c 35 0d 05 f0  0f f2 44 45 4c 41 59 28  |X10,5.....DELAY(|
00000d30  34 30 30 29 0d 05 fa 05  da 0d 06 04 05 e1 0d 06  |400)............|
00000d40  0e 10 dd f2 45 58 50 28  58 25 2c 59 25 29 0d 06  |....EXP(X%,Y%)..|
00000d50  18 10 50 4f 4f 46 43 25  3d 46 4c 41 47 25 0d 06  |..POOFC%=FLAG%..|
00000d60  22 13 e3 4a 25 3d 33 32  b8 31 36 88 2d 31 36 20  |"..J%=32.16.-16 |
00000d70  20 0d 06 2c 0d e6 30 2c  50 4f 4f 46 43 25 0d 06  | ..,..0,POOFC%..|
00000d80  36 16 e3 49 25 3d 4a 25  b8 2d 4a 25 88 28 2d 4a  |6..I%=J%.-J%.(-J|
00000d90  25 2a 32 29 0d 06 40 2a  ec 58 25 2c 59 25 2b 49  |%*2)..@*.X%,Y%+I|
00000da0  25 3a ec 58 25 2d 49 25  2c 59 25 2d 49 25 3a f0  |%:.X%-I%,Y%-I%:.|
00000db0  38 35 2c 58 25 2b 49 25  2c 59 25 2d 49 25 0d 06  |85,X%+I%,Y%-I%..|
00000dc0  4a 14 ed 49 25 3a 50 4f  4f 46 43 25 3d 33 3a ed  |J..I%:POOFC%=3:.|
00000dd0  4a 25 0d 06 54 05 e1 0d  06 5e 0b dd f2 54 49 54  |J%..T....^...TIT|
00000de0  4c 45 0d 06 68 28 e2 31  2c 32 2c 30 2c 30 2c 30  |LE..h(.1,2,0,0,0|
00000df0  2c 30 2c 30 2c 30 2c 31  32 37 2c 2d 31 2c 2d 31  |,0,0,0,127,-1,-1|
00000e00  2c 2d 31 2c 31 32 36 2c  33 30 0d 06 72 2d e2 32  |,-1,126,30..r-.2|
00000e10  2c 31 2c 2d 31 30 2c 2d  31 30 2c 2d 31 30 2c 35  |,1,-10,-10,-10,5|
00000e20  2c 35 2c 35 2c 31 32 36  2c 30 2c 2d 31 2c 2d 31  |,5,5,126,0,-1,-1|
00000e30  2c 31 32 36 2c 33 30 0d  06 7c 28 e2 33 2c 31 2c  |,126,30..|(.3,1,|
00000e40  31 2c 31 2c 31 2c 35 2c  35 2c 35 2c 31 32 37 2c  |1,1,1,5,5,5,127,|
00000e50  2d 31 2c 2d 31 2c 2d 31  2c 31 32 36 2c 39 30 0d  |-1,-1,-1,126,90.|
00000e60  06 86 42 ef 32 33 2c 32  33 30 2c 30 2c 30 2c 31  |..B.23,230,0,0,1|
00000e70  32 30 2c 31 32 34 2c 31  32 36 2c 31 32 34 2c 31  |20,124,126,124,1|
00000e80  32 30 2c 30 2c 32 33 2c  32 33 31 2c 30 2c 30 2c  |20,0,23,231,0,0,|
00000e90  33 31 2c 36 33 2c 31 32  37 2c 36 33 2c 33 31 2c  |31,63,127,63,31,|
00000ea0  30 0d 06 90 49 ef 32 33  2c 32 34 30 2c 37 2c 31  |0...I.23,240,7,1|
00000eb0  35 2c 33 31 2c 36 33 2c  37 31 2c 35 39 2c 36 30  |5,31,63,71,59,60|
00000ec0  2c 35 36 2c 32 33 2c 32  34 31 2c 32 34 38 2c 32  |,56,23,241,248,2|
00000ed0  35 32 2c 31 39 34 2c 31  38 39 2c 31 32 37 2c 32  |52,194,189,127,2|
00000ee0  35 35 2c 31 32 36 2c 36  30 20 0d 06 9a 13 42 49  |55,126,60 ....BI|
00000ef0  4b 45 24 3d bd 32 34 30  2b bd 32 34 31 0d 06 a4  |KE$=.240+.241...|
00000f00  1c de 50 25 28 35 29 2c  4e 25 28 39 29 2c 4b 45  |..P%(5),N%(9),KE|
00000f10  59 4e 4f 25 28 34 2c 33  29 0d 06 ae 09 f7 8d 64  |YNO%(4,3)......d|
00000f20  60 46 0d 06 b8 0a 2a 46  58 39 2c 35 0d 06 c2 0b  |`F....*FX9,5....|
00000f30  2a 46 58 31 30 2c 35 0d  06 cc 1f ef 31 39 2c 33  |*FX10,5.....19,3|
00000f40  2c 30 2c 30 2c 30 2c 30  3a ef 31 39 2c 31 2c 30  |,0,0,0,0:.19,1,0|
00000f50  2c 30 2c 30 2c 30 0d 06  d6 14 e3 49 3d 31 b8 38  |,0,0,0.....I=1.8|
00000f60  3a f3 4e 25 28 49 29 3a  ed 20 0d 06 e0 14 dc 31  |:.N%(I):. .....1|
00000f70  2c 32 2c 33 2c 32 2c 31  2c 34 2c 33 2c 34 0d 06  |,2,3,2,1,4,3,4..|
00000f80  ea 25 e3 54 25 3d 31 b8  33 3a e3 49 25 3d 31 b8  |.%.T%=1.3:.I%=1.|
00000f90  34 3a f3 4b 45 59 4e 4f  25 28 49 25 2c 54 25 29  |4:.KEYNO%(I%,T%)|
00000fa0  3a ed 2c 0d 06 f4 37 dc  2d 36 36 2c 2d 39 38 2c  |:.,...7.-66,-98,|
00000fb0  2d 36 37 2c 2d 38 33 2c  2d 37 34 2c 2d 39 30 2c  |-67,-83,-74,-90,|
00000fc0  2d 31 30 34 2c 2d 31 30  35 2c 2d 36 36 2c 2d 39  |-104,-105,-66,-9|
00000fd0  38 2c 2d 39 30 2c 2d 31  30 36 0d 06 fe 18 f3 50  |8,-90,-106.....P|
00000fe0  25 28 31 29 3a e7 50 25  28 31 29 3d 30 8c 8d 44  |%(1):.P%(1)=0..D|
00000ff0  62 47 0d 07 08 15 e3 49  25 3d 32 b8 34 3a f3 50  |bG.....I%=2.4:.P|
00001000  25 28 49 25 29 3a ed 0d  07 12 28 e3 49 25 3d 31  |%(I%):....(.I%=1|
00001010  b8 33 88 32 3a ec 50 25  28 4e 25 28 49 25 29 29  |.3.2:.P%(N%(I%))|
00001020  2c 50 25 28 4e 25 28 49  25 2b 31 29 29 3a ed 0d  |,P%(N%(I%+1)):..|
00001030  07 1c 33 e3 49 25 3d 35  b8 37 88 32 3a e6 30 2c  |..3.I%=5.7.2:.0,|
00001040  49 25 2d 34 3a f0 38 35  2c 50 25 28 4e 25 28 49  |I%-4:.85,P%(N%(I|
00001050  25 29 29 2c 50 25 28 4e  25 28 49 25 2b 31 29 29  |%)),P%(N%(I%+1))|
00001060  3a ed 0d 07 26 09 e5 8d  64 7e 46 0d 07 30 64 dc  |:...&...d~F..0d.|
00001070  31 30 30 2c 39 30 30 2c  31 36 30 2c 36 30 30 2c  |100,900,160,600,|
00001080  31 36 30 2c 36 30 30 2c  32 38 30 2c 36 36 30 2c  |160,600,280,660,|
00001090  33 30 30 2c 38 34 30 2c  34 38 30 2c 39 30 30 2c  |300,840,480,900,|
000010a0  33 36 30 2c 36 36 30 2c  34 32 30 2c 38 34 30 2c  |360,660,420,840,|
000010b0  33 30 30 2c 36 30 30 2c  34 38 30 2c 36 36 30 2c  |300,600,480,660,|
000010c0  35 30 30 2c 38 34 30 2c  36 38 30 2c 39 30 30 0d  |500,840,680,900.|
000010d0  07 3a 88 dc 35 30 30 2c  38 34 30 2c 35 36 30 2c  |.:..500,840,560,|
000010e0  36 36 30 2c 35 30 30 2c  36 30 30 2c 36 36 30 2c  |660,500,600,660,|
000010f0  36 36 30 2c 36 30 30 2c  36 36 30 2c 36 36 30 2c  |660,600,660,660,|
00001100  37 30 30 2c 35 38 30 2c  37 30 30 2c 36 38 30 2c  |700,580,700,680,|
00001110  37 34 30 2c 37 30 30 2c  36 30 30 2c 37 36 30 2c  |740,700,600,760,|
00001120  39 30 30 2c 37 36 30 2c  37 34 30 2c 38 32 30 2c  |900,760,740,820,|
00001130  38 30 30 2c 38 32 30 2c  36 30 30 2c 38 38 30 2c  |800,820,600,880,|
00001140  39 30 30 2c 39 30 30 2c  38 34 30 2c 31 31 30 30  |900,900,840,1100|
00001150  2c 39 30 30 20 20 20 0d  07 44 6a dc 39 36 30 2c  |,900   ..Dj.960,|
00001160  36 30 30 2c 31 30 32 30  2c 38 34 30 2c 31 30 30  |600,1020,840,100|
00001170  2c 33 34 30 2c 32 38 30  2c 34 30 30 2c 31 30 30  |,340,280,400,100|
00001180  2c 31 36 30 2c 31 36 30  2c 33 34 30 2c 31 30 30  |,160,160,340,100|
00001190  2c 31 30 30 2c 32 38 30  2c 31 36 30 2c 33 30 30  |,100,280,160,300|
000011a0  2c 32 36 30 2c 33 36 30  2c 34 30 30 2c 33 36 30  |,260,360,400,360|
000011b0  2c 31 30 30 2c 34 32 30  2c 33 30 30 2c 34 32 30  |,100,420,300,420|
000011c0  20 0d 07 4e 60 dc 32 36  30 2c 34 38 30 2c 34 30  | ..N`.260,480,40|
000011d0  30 2c 35 30 30 2c 33 34  30 2c 36 38 30 2c 34 30  |0,500,340,680,40|
000011e0  30 2c 35 30 30 2c 31 36  30 2c 35 36 30 2c 33 34  |0,500,160,560,34|
000011f0  30 2c 35 30 30 2c 31 30  30 2c 36 38 30 2c 31 36  |0,500,100,680,16|
00001200  30 2c 37 30 30 2c 31 30  30 2c 37 36 30 2c 34 30  |0,700,100,760,40|
00001210  30 2c 37 36 30 2c 31 30  30 2c 38 38 30 2c 31 36  |0,760,100,880,16|
00001220  30 0d 07 58 4b dc 39 30  30 2c 31 30 30 2c 39 36  |0..XK.900,100,96|
00001230  30 2c 34 30 30 2c 39 36  30 2c 33 34 30 2c 31 30  |0,400,960,340,10|
00001240  38 30 2c 34 30 30 2c 39  36 30 2c 32 32 30 2c 31  |80,400,960,220,1|
00001250  30 38 30 2c 32 38 30 2c  39 36 30 2c 31 30 30 2c  |080,280,960,100,|
00001260  31 30 38 30 2c 31 36 30  2c 30 2c 30 0d 07 62 33  |1080,160,0,0..b3|
00001270  ef 35 3a e3 49 25 3d 31  b8 33 30 3a d4 31 2c 2d  |.5:.I%=1.30:.1,-|
00001280  31 35 2c 49 25 2c 31 3a  d4 32 2c 2d 31 35 2c 49  |15,I%,1:.2,-15,I|
00001290  25 2c 31 3a d4 33 2c 2d  31 35 2c 49 25 2c 31 0d  |%,1:.3,-15,I%,1.|
000012a0  07 6c 4d e6 30 2c 32 3a  53 48 49 46 54 25 3d 53  |.lM.0,2:SHIFT%=S|
000012b0  48 49 46 54 25 2b 31 36  3a ec 31 30 30 2b 53 48  |HIFT%+16:.100+SH|
000012c0  49 46 54 25 2c 35 31 32  3a f1 3b bd 32 33 30 3a  |IFT%,512:.;.230:|
000012d0  ec 31 30 36 30 2d 53 48  49 46 54 25 2c 35 31 32  |.1060-SHIFT%,512|
000012e0  3a f1 3b bd 32 33 31 3a  ed 3a ef 34 0d 07 76 0b  |:.;.231:.:.4..v.|
000012f0  2a 46 58 31 35 2c 30 0d  07 80 30 d4 30 2c 31 2c  |*FX15,0...0.0,1,|
00001300  34 2c 31 30 3a d4 31 2c  32 2c 32 30 30 2c 38 30  |4,10:.1,2,200,80|
00001310  3a d4 32 2c 32 2c 31 30  30 2c 38 30 3a d4 33 2c  |:.2,2,100,80:.3,|
00001320  32 2c 37 35 2c 38 30 0d  07 8a 19 46 4c 41 47 25  |2,75,80....FLAG%|
00001330  3d 31 3a f2 45 58 50 28  36 30 30 2c 34 39 36 29  |=1:.EXP(600,496)|
00001340  0d 07 94 37 e3 49 3d 39  b8 31 33 3a ef 31 39 2c  |...7.I=9.13:.19,|
00001350  33 2c 49 2c 30 2c 30 2c  30 3a ef 31 39 2c 31 2c  |3,I,0,0,0:.19,1,|
00001360  49 2b 31 2c 30 2c 30 2c  30 3a f2 44 45 4c 41 59  |I+1,0,0,0:.DELAY|
00001370  28 31 30 30 29 3a ed 0d  07 9e 11 ef 31 39 2c 33  |(100):......19,3|
00001380  2c 37 2c 30 2c 30 2c 30  0d 07 a8 05 da 0d 07 b2  |,7,0,0,0........|
00001390  05 e1 0d 07 bc 0a dd f2  49 4e 49 54 0d 07 c6 6e  |........INIT...n|
000013a0  4c 53 31 58 25 3d 36 30  38 3a 4c 53 31 59 25 3d  |LS1X%=608:LS1Y%=|
000013b0  35 31 32 3a 4c 53 32 58  25 3d 36 34 30 3a 4c 53  |512:LS2X%=640:LS|
000013c0  32 59 25 3d 35 31 32 3a  41 31 25 3d 30 3a 41 32  |2Y%=512:A1%=0:A2|
000013d0  25 3d 30 3a 44 49 52 31  25 3d 31 3a 44 49 52 32  |%=0:DIR1%=1:DIR2|
000013e0  25 3d 31 3a 44 49 52 25  3d 31 3a 53 54 52 25 3d  |%=1:DIR%=1:STR%=|
000013f0  31 3a 54 25 3d 30 3a 48  41 4c 54 25 3d 30 3a 43  |1:T%=0:HALT%=0:C|
00001400  48 41 4e 47 45 25 3d 30  20 20 0d 07 d0 05 e1 0d  |HANGE%=0  ......|
00001410  07 da 0a dd f2 51 55 45  53 0d 07 e4 38 ef 31 39  |.....QUES...8.19|
00001420  2c 30 2c 34 2c 30 2c 30  2c 30 2c 31 39 2c 33 2c  |,0,4,0,0,0,19,3,|
00001430  36 2c 30 2c 30 2c 30 2c  31 39 2c 32 2c 30 2c 30  |6,0,0,0,19,2,0,0|
00001440  2c 30 2c 30 2c 31 39 2c  31 2c 37 2c 30 2c 30 2c  |,0,0,19,1,7,0,0,|
00001450  30 0d 07 ee 06 fb 33 0d  07 f8 57 f1 8a 31 30 2c  |0.....3...W..10,|
00001460  31 36 29 22 31 20 4f 52  20 32 20 55 53 45 52 53  |16)"1 OR 2 USERS|
00001470  20 3f 22 3a 50 4c 41 59  4e 4f 24 3d be 3a 50 4c  | ?":PLAYNO$=.:PL|
00001480  41 59 4e 4f 25 3d bb 28  50 4c 41 59 4e 4f 24 29  |AYNO%=.(PLAYNO$)|
00001490  3a e7 50 4c 41 59 4e 4f  25 3c 31 20 84 20 50 4c  |:.PLAYNO%<1 . PL|
000014a0  41 59 4e 4f 25 3e 32 8c  8d 64 78 47 20 20 0d 08  |AYNO%>2..dxG  ..|
000014b0  02 0c f2 4b 45 59 53 3a  fb 33 0d 08 0c 4e f1 8a  |...KEYS:.3...N..|
000014c0  38 2c 31 36 29 22 53 50  45 45 44 20 4c 45 56 45  |8,16)"SPEED LEVE|
000014d0  4c 20 28 31 54 4f 34 29  20 3f 22 3a 53 24 3d be  |L (1TO4) ?":S$=.|
000014e0  3a 53 25 3d bb 28 53 24  29 3a e7 53 25 3c 31 20  |:S%=.(S$):.S%<1 |
000014f0  84 20 53 25 3e 34 8c 8d  54 4c 48 20 8b 53 25 3d  |. S%>4..TLH .S%=|
00001500  32 5e 28 53 25 2b 31 29  0d 08 16 15 54 55 52 4e  |2^(S%+1)....TURN|
00001510  31 25 3d 33 3a 54 55 52  4e 32 25 3d 33 0d 08 20  |1%=3:TURN2%=3.. |
00001520  05 e1 0d 08 2a 0a dd f2  4b 45 59 53 0d 08 34 05  |....*...KEYS..4.|
00001530  db 0d 08 3e 13 e7 50 4c  41 59 4e 4f 25 3d 32 8c  |...>..PLAYNO%=2.|
00001540  8d 44 66 48 0d 08 48 44  fb 31 3a f1 8a 31 33 2c  |.DfH..HD.1:..13,|
00001550  32 29 22 55 53 45 52 20  43 4f 4e 54 52 4f 4c 53  |2)"USER CONTROLS|
00001560  22 3b 8a 31 33 2c 33 29  22 5f 5f 5f 5f 5f 5f 5f  |";.13,3)"_______|
00001570  5f 5f 5f 5f 5f 5f 22 3b  8a 31 33 2c 36 29 22 27  |______";.13,6)"'|
00001580  41 27 20 3d 20 55 50 22  0d 08 52 48 f1 8a 31 33  |A' = UP"..RH..13|
00001590  2c 38 29 22 27 5a 27 20  3d 20 44 4f 57 4e 22 3b  |,8)"'Z' = DOWN";|
000015a0  8a 31 33 2c 31 30 29 22  27 44 45 4c 45 54 45 27  |.13,10)"'DELETE'|
000015b0  20 3d 20 4c 45 46 54 22  3b 8a 31 33 2c 31 32 29  | = LEFT";.13,12)|
000015c0  22 27 43 4f 50 59 27 20  3d 20 52 49 47 48 54 22  |"'COPY' = RIGHT"|
000015d0  0d 08 5c 05 e1 0d 08 66  3a fb 31 3a f1 8a 31 33  |..\....f:.1:..13|
000015e0  2c 32 29 22 55 53 45 52  20 4f 4e 45 22 3b 8a 31  |,2)"USER ONE";.1|
000015f0  33 2c 33 29 22 5f 5f 5f  5f 5f 5f 5f 5f 22 3b 8a  |3,3)"________";.|
00001600  31 33 2c 36 29 22 27 41  27 20 2d 20 55 50 22 0d  |13,6)"'A' - UP".|
00001610  08 70 40 f1 8a 31 33 2c  38 29 22 27 5a 27 20 3d  |.p@..13,8)"'Z' =|
00001620  20 44 4f 57 4e 22 3b 8a  31 33 2c 31 30 29 22 27  | DOWN";.13,10)"'|
00001630  58 27 20 3d 20 4c 45 46  54 22 3b 8a 31 33 2c 31  |X' = LEFT";.13,1|
00001640  32 29 22 27 43 27 20 3d  20 52 49 47 48 54 22 0d  |2)"'C' = RIGHT".|
00001650  08 7a 42 fb 32 3a f1 8a  31 33 2c 32 30 29 22 55  |.zB.2:..13,20)"U|
00001660  53 45 52 20 54 57 4f 22  3b 8a 31 33 2c 32 31 29  |SER TWO";.13,21)|
00001670  22 5f 5f 5f 5f 5f 5f 5f  5f 22 3b 8a 31 33 2c 32  |"________";.13,2|
00001680  34 29 22 27 52 45 54 55  52 4e 27 20 3d 20 55 50  |4)"'RETURN' = UP|
00001690  22 0d 08 84 46 f1 8a 31  33 2c 32 36 29 22 27 44  |"...F..13,26)"'D|
000016a0  45 4c 45 54 45 27 20 3d  20 44 4f 57 4e 22 3b 8a  |ELETE' = DOWN";.|
000016b0  31 33 2c 32 38 29 22 27  2e 27 20 3d 20 4c 45 46  |13,28)"'.' = LEF|
000016c0  54 22 3b 8a 31 33 2c 33  30 29 22 27 2f 27 20 3d  |T";.13,30)"'/' =|
000016d0  20 52 49 47 48 54 22 0d  08 8e 05 e1 0d 08 98 0b  | RIGHT".........|
000016e0  dd f2 52 55 4c 45 53 0d  08 a2 09 ef 32 32 2c 37  |..RULES.....22,7|
000016f0  0d 08 ac 19 f1 8a 31 35  2c 31 30 29 3b 22 9d 81  |......15,10);"..|
00001700  54 52 4f 4e 20 20 9c 87  22 0d 08 b6 13 f1 8a 31  |TRON  .."......1|
00001710  37 2c 31 34 29 3b 22 81  42 59 87 22 0d 08 bb 17  |7,14);".BY."....|
00001720  f1 8a 39 2c 31 38 29 3b  bd 31 33 36 3b 3a e5 8d  |..9,18);.136;:..|
00001730  74 7e 48 0d 08 be 1d f1  22 20 81 41 2e 52 4f 45  |t~H....." .A.ROE|
00001740  20 2f 20 50 2e 43 48 45  52 52 59 20 87 22 20 20  | / P.CHERRY ."  |
00001750  0d 08 ca 0e e3 41 3d 31  b8 38 30 30 30 20 0d 08  |.....A=1.8000 ..|
00001760  d4 06 ed 41 0d 08 d9 09  ef 32 32 2c 31 0d 08 de  |...A.....22,1...|
00001770  1f ef 31 39 2c 30 2c 34  2c 30 2c 30 2c 30 3a ef  |..19,0,4,0,0,0:.|
00001780  31 39 2c 31 2c 30 2c 30  2c 30 2c 30 0d 08 e8 19  |19,1,0,0,0,0....|
00001790  f1 8a 31 30 2c 31 29 22  4c 49 47 48 54 20 43 59  |..10,1)"LIGHT CY|
000017a0  43 4c 45 53 22 0d 08 f2  7a f1 27 27 27 22 20 54  |CLES"...z.'''" T|
000017b0  68 69 73 20 70 72 6f 67  72 61 6d 20 69 73 20 62  |his program is b|
000017c0  61 73 65 64 20 6f 6e 20  61 20 67 61 6d 65 22 27  |ased on a game"'|
000017d0  27 22 70 6c 61 79 65 64  20 62 79 20 46 6c 79 6e  |'"played by Flyn|
000017e0  6e 20 69 6e 20 74 68 65  20 66 69 6c 6d 20 27 54  |n in the film 'T|
000017f0  52 4f 4e 27 2e 22 27 27  22 45 61 63 68 20 70 6c  |RON'."''"Each pl|
00001800  61 79 65 72 20 72 69 64  65 73 20 68 69 73 20 6f  |ayer rides his o|
00001810  77 6e 20 4c 69 67 68 74  20 43 79 63 6c 65 22 0d  |wn Light Cycle".|
00001820  08 fc 70 f1 27 22 57 68  69 63 68 20 65 6d 69 74  |..p.'"Which emit|
00001830  73 20 61 20 6a 65 74 20  74 72 61 69 6c 20 66 72  |s a jet trail fr|
00001840  6f 6d 20 69 74 27 73 22  27 27 22 65 78 68 61 75  |om it's"''"exhau|
00001850  73 74 2e 20 41 74 20 74  68 65 20 73 74 61 72 74  |st. At the start|
00001860  20 6f 66 20 74 68 65 20  67 61 6d 65 20 74 68 65  | of the game the|
00001870  20 22 27 27 22 74 77 6f  20 75 73 65 72 73 20 28  | "''"two users (|
00001880  20 55 53 45 52 20 31 3d  57 48 49 54 45 2c 22 0d  | USER 1=WHITE,".|
00001890  09 06 c0 fb 31 3a f1 22  20 55 53 45 52 20 32 3d  |....1:." USER 2=|
000018a0  42 4c 41 43 4b 20 29 2c  22 3b 3a fb 33 3a f1 22  |BLACK ),";:.3:."|
000018b0  20 61 72 65 20 69 6e 20  74 68 65 20 63 65 6e 74  | are in the cent|
000018c0  72 65 22 27 27 22 6f 66  20 74 68 65 20 70 6c 61  |re"''"of the pla|
000018d0  79 69 6e 67 20 67 72 69  64 2e 57 68 65 6e 20 74  |ying grid.When t|
000018e0  68 65 20 70 69 74 63 68  22 27 27 22 6f 66 20 74  |he pitch"''"of t|
000018f0  68 65 20 63 6f 75 6e 74  20 64 6f 77 6e 20 74 6f  |he count down to|
00001900  6e 65 20 69 73 20 72 61  69 73 65 64 2c 22 27 27  |ne is raised,"''|
00001910  22 75 73 65 72 73 20 6d  75 73 74 20 73 74 61 72  |"users must star|
00001920  74 20 6d 6f 76 69 6e 67  20 77 69 74 68 69 6e 20  |t moving within |
00001930  32 22 27 27 22 73 65 63  6f 6e 64 73 2c 20 6f 72  |2"''"seconds, or|
00001940  20 62 65 20 44 45 2d 52  45 5a 45 44 20 21 22 0d  | be DE-REZED !".|
00001950  09 10 31 f1 8a 34 2c 32  38 29 22 50 52 45 53 53  |..1..4,28)"PRESS|
00001960  20 53 50 41 43 45 20 42  41 52 20 54 4f 20 43 4f  | SPACE BAR TO CO|
00001970  4e 54 49 4e 55 45 22 3a  41 4e 59 24 3d be 3a db  |NTINUE":ANY$=.:.|
00001980  0d 09 1a ac f1 27 27 27  22 20 54 68 65 20 6f 62  |.....'''" The ob|
00001990  6a 65 63 74 20 6f 66 20  74 68 65 20 67 61 6d 65  |ject of the game|
000019a0  20 69 73 20 66 6f 72 20  79 6f 75 22 27 27 22 74  | is for you"''"t|
000019b0  6f 20 66 6f 72 63 65 20  79 6f 75 72 20 6f 70 70  |o force your opp|
000019c0  6f 6e 65 6e 74 20 74 6f  20 3a 22 27 27 22 20 31  |onent to :"''" 1|
000019d0  20 3a 20 43 72 61 73 68  20 69 6e 74 6f 20 79 6f  | : Crash into yo|
000019e0  75 72 20 74 72 61 69 6c  22 27 27 22 20 32 20 3a  |ur trail"''" 2 :|
000019f0  20 43 72 61 73 68 20 69  6e 74 6f 20 68 69 73 20  | Crash into his |
00001a00  6f 77 6e 20 74 72 61 69  6c 22 27 27 22 20 33 20  |own trail"''" 3 |
00001a10  3a 20 43 72 61 73 68 20  69 6e 74 6f 20 67 72 69  |: Crash into gri|
00001a20  64 20 62 6f 75 6e 64 72  79 22 20 20 0d 09 24 2b  |d boundry"  ..$+|
00001a30  f1 27 27 22 20 45 61 63  68 20 75 73 65 72 20 69  |.''" Each user i|
00001a40  73 20 67 69 76 65 6e 20  74 68 72 65 65 20 6c 69  |s given three li|
00001a50  76 65 73 2e 22 20 20 0d  09 2e 1d f1 8a 35 2c 32  |ves."  ......5,2|
00001a60  30 29 22 47 4f 4f 44 20  43 59 43 4c 49 4e 47 2e  |0)"GOOD CYCLING.|
00001a70  2e 2e 2e 22 0d 09 38 31  f1 8a 34 2c 32 38 29 22  |..."..81..4,28)"|
00001a80  50 52 45 53 53 20 53 50  41 43 45 20 42 41 52 20  |PRESS SPACE BAR |
00001a90  54 4f 20 43 4f 4e 54 49  4e 55 45 22 3a 41 4e 59  |TO CONTINUE":ANY|
00001aa0  24 3d be 3a db 0d 09 42  05 e1 0d 7d 00 06 eb 37  |$=.:...B...}...7|
00001ab0  0d 7d 0a 08 f6 3a f1 9e  0d ff                    |.}...:....|
00001aba
TRON.m0
TRON.m1
TRON.m2
TRON.m4
TRON.m5