Home » Personal collection » Acorn DFS disks » dfs_box03_disk06b_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_disk06b_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:
- Personal collection » Acorn DFS disks » dfs_box03_disk06_games_4_backup.scp » TRON
- Personal collection » Acorn DFS disks » dfs_box03_disk06b_games_4_backup.scp » TRON
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