Home » Recent acquisitions » Acorn tapes » tape047b_acorn_computer_hits_2.wav » J5DEV1

J5DEV1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn tapes » tape047b_acorn_computer_hits_2.wav
Filename: J5DEV1
Read OK:
File size: 19C4 bytes
Load address: 0E00
Exec address: 8023
Duplicates

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

File contents
   10ONERRORGOTO60
   20LOMEM=&5100:PROCJOYSET
   30G%=9:DIMS$(9),S%(9):FORT%=0TO9:S%(T%)=1000+T%*1000:READS$(T%):NEXT
   40DATAAdrian,Dave,Stevo,Rupert,Dunk,Kev,Tracy,Kirky,Julie,Simon
   50MODE6:COLOUR0:MEM%=&2E00:MANS%=MEM%:ASO%=MANS%+130:AD%=ASO%+8:AH%=AD%+4:AL%=AH%+4:AY%=AL%+4:AS%=AY%+5
   60MODE4:VDU23;8202;0;0;0;:L%=3:K%=0:SC%=0:D%=0:F%=0:PROCH:OSCLI("*FX210"):PRINTTAB(15,29)"SOUND ON":REPEAT:A%=INKEY(0) AND223:IFA%=81PRINTTAB(21,29)"OFF":OSCLI("*FX210,1")ELSEIFA%=83OSCLI("*FX210,0"):PRINTTAB(21,29)"ON "
   70UNTIL (A%>16 AND A%<22):SC%=A%-16:PRINTTAB(15,29)"         "
   80PRINTTAB(6,27)"Press Space Or Fire To Start":REPEAT:I%=INKEY0
   90IF joy%=0 R%=1:fire%=1:GOTO 110
  100R%=?ADDRESS%:IF INVERT%<>0 R%=NOT R%
  110UNTILI%=32 OR (R% ANDfire%)=0
  120IFI%<>32AND joy%=0 GOTO80
  130IFI%=32 I%=1 ELSE I%=0
  140MODE5:VDU23;8202;0;0;0;:RESTORE940:PROCMUS:REPEAT:?&75=0:CLS:PROCSCREEN:PROCM:PROCMEM:PROCSC:PROCR:REPEAT:IFTIME<6000MOVE1233,1011:PLOT3,-0.1763*TIME,0
  150FORZ%=0TO10:CALL&D00:IFCA%=0PROCBAR:PROCB
  160PROCMAN:IFK%=1Z%=10
  170IFTIME>=6000?&75=1
  180NEXT:IFSC%<>1P%=RND(4):AD%?P%=((AD%?P%)MOD2+1ANDAY%?P%>2ANDAY%?P%<27)
  190*FX15,1
  200UNTILK%=1ORD%=5:K%=0:?&75=0:IFD%=5SC%=SC%+1:D%=0:RESTORE910:PROCMUS
  210IFSC%=6SC%=0
  220UNTILL%=0
  230COLOUR3:PRINTTAB(6,15)"GAME OVER":FORT%=0TO8000:NEXT:MODE4:VDU23;8202;0;0;0;:PROCC:GOTO60
  240DEFPROCSCREEN:PROCCOL:FORT%=0TO30:PRINTTAB(2,T%);CHR$224;TAB(19,T%)CHR$224;:NEXT:FORT%=5TO30STEP5:FORS%=1TO19STEP4:PRINTTAB(S%,T%)STRING$(3,CHR$224);:NEXT:NEXT:VDU5,18,0,6:MOVE0,28:PRINTSTRING$(20,CHR$225):VDU4,30,9,9
  250PRINT;STRING$(18,CHR$224):COLOUR128:FORT%=8TO28STEP5:COLOUR4:PRINTTAB(2,T%)" "TAB(1,T%+2)" ";TAB(19,T%)CHR$230:NEXT:VDU31,19,3,230:PRINTTAB(1,5)" "
  260GCOL0,0:FORT%=320TO1088STEP256:MOVET%,32:MOVET%+32,32:PLOT85,T%,960:MOVET%+32,960:PLOT85,T%+32,32:NEXT:FORT%=408TO920STEP256:MOVET%,988:VDU5,18,0,1,228,8,18,0,3,229,4:NEXT
  270FORT%=352TO1136STEP256:FORS%=63TO863STEP160:GCOL0,1:MOVET%,S%:PLOT1,0,-30:GCOL0,3:PLOT17,0,30:MOVET%-104,S%:GCOL0,1:PLOT1,0,-30:GCOL0,3:PLOT17,0,30:NEXT:NEXT:ENDPROC
  280DEFPROCMEM:RESTORE300:FORT%=0TO7:READQ%:ASO%?T%=Q%:NEXT:IFSC%=5ENDPROC
  290!&70=AS%+(SC%MOD4)*32:FORT%=1TO4:B%=RND(28):TEMPX%=X%:X%=T%*16+2:TEMPY%=Y%:Y%=B%:CALL&2B00:A%=!&80 AND &FFFF:X%=TEMPX%:Y%=TEMPY%:AH%?T%=A%DIV256:AL%?T%=A%MOD256:AY%?T%=B%:AD%?T%=RND(2):NEXT:?&75=0:CALL&DD6:ENDPROC
  300DATA&11,0,1,0,20,0,2,0
  310DEFPROCR:VDU23,236,24,24,48,48,60,16,40,76:COLOUR7:PRINTTAB(4,31);"  ";TAB(4,31);STRING$(L%-1,CHR$236);:?&2CA5=0:?&2CA6=8:X%=12:Y%=3:?&79=0:CALL&2C43:CA%=0:E%=3
  320VDU20,19,3,3;0;19,2,6;0;23,236,231,231,231,0,0,0,0,0:ENDPROC
  330DEFPROCKEY:X1%=(INKEY-2ANDX%>12)-(INKEY-66ANDX%<72):IFINKEY-74ANDY%-1<>0Y1%=-1:SOUND&10,-15,6,4
  340ENDPROC
  350DEFPROCJOY:O%=?ADDRESS%:IF INVERT%<>0 O%=NOT O%
  360IF(O%AND left%)=0AND X%>12 X1%=-1 ELSE IF(O%AND right%)=0AND X%<72 X1%=1
  370IF(O%AND fire%)=0AND Y%-1<>0Y1%=-1:SOUND&10,-15,6,4
  380ENDPROC
  390DEFPROCMAN:X1%=0:Y1%=1:IFI%=0PROCJOY ELSE PROCKEY
  400IF Y1%=1 GOTO 430
  410CALL&2A00:IF ?&2AC2=1 Y1%=0
  420IF Y1%=-1 GOTO 440
  430CALL&2CD0: IF ?&2D98=1 Y1%=0
  440IFX%=72ANDY%=E%ANDCA%<>1PROCI
  450IFX%=12ANDY%=SY%+1ANDCA%=1PROCZ
  460IFX1%<>0AND Y1%=0SOUND&13,3,77,2
  470IFX1%=0AND Y1%=0 GOTO500 ELSE CALL&2BEF:X%=X%+X1%:Y%=Y%+Y1%
  480IFX1%=-1?&78=1ELSEIFX1%=1?&78=0
  490CALL&2C43
  500IF?&75=1 K%=1:PROCDED
  510ENDPROC
  520DEFPROCZ:CA%=0:?&79=0:CALL&2BEF:CALL&2C43:F%=(F%+500)MOD1E5:PROCBONE:PROCSC:PROCA:SY%=-1:ENDPROC
  530DEFPROCI:CA%=1:?&79=1:CALL&2BEF:CALL&2C43:VDU17,4,31,19,E%,230:F%=(F%+100)MOD1E5:PROCSC:RESTORE930:PROCMUS:ENDPROC
  540DEFPROCDED
  550P%=0:CALL&2BEF:?&2CA5=16:?&2CA6=18
  560SOUND 0,2,253,3:CALL&2BEF:FORM%=0TO25:NEXT:REPEAT:CALL&2BEF:CALL&D00:Y%=Y%+1:SOUND &11,-6,255-Y%*8,1:CALL&2BEF:FORM%=0TO100:NEXT:UNTIL Y%>29:CALL&2BEF
  570MOVEX%*16-64,60:VDU5,18,0,1,241,242,243,4:SOUND0,-15,7,10:FORT%=255TO1STEP-25:SOUND1,0,T%,1:NEXT:FORM%=0TO5:SOUND2,0,0,5:NEXT:L%=L%-1:FORM%=0TO4000:NEXT:ENDPROC
  580DEFPROCCOL:FORT%=0TO15:VDU19,T%,0;0;:NEXT:COLOUR1:COLOUR130:ENDPROC
  590DEFPROCB:COLOUR4:PRINTTAB(19,E%)CHR$230:CA%=-1:E%=RND(6)*5-2:PRINTTAB(19,E%)" ":VDU5,18,0,1:MOVE1216,(32-E%)*32-4:VDU227,8,18,0,3,231,4:PROCSAUCE:TIME=0:ENDPROC
  600DEFPROCSAUCE:IFD%>=5ENDPROC ELSE CALL&D00:RESTORE640:FORT%=0TO31STEP4:READT%!&5800:NEXT:CALL&D00:FORT%=0TO31STEP4:READT%!&5940:NEXT:CALL&D00:VDU28,0,30,1,0:SY%=7+RND(4)*5:FORT%=0TOSY%:VDU30,11:IFT%MOD2=0CALL&D00
  610NEXT:VDU26:ENDPROC
  620DEFPROCA:RESTORE920:PROCMUS:VDU28,0,30,1,0:FORT%=0TO30:VDU31,1,29,9,10:IFT%MOD2=0CALL&D00
  630NEXT:VDU26:D%=D%+1:PROCD:ENDPROC
  640DATA&0,&10000000,&E9FC7633,&9A0FE9CB,&B8FCE0CC,&9A0F781E,0,&88000000
  650DATA&F070301,&110F,&F0F0F0F,&1177FF0F,&F0F0F0F,&80E8FE0F,&3F6E4C88,&800F
  660DEFPROCM:PROCD:IFSC%MOD2=0ORSC%=5VDU28,4,28,16,2,12,26
  670IFSC%=1RESTORE700:FORS%=1TO6:READQ%,W%:PROCBAT(Q%+32,W%+32-(160ANDS%<4)):NEXT:VDU18,0,2,5:FORS%=0TO1:MOVE624,(26-S%*20)*32-4:FORT%=0TO3:VDU234,234,8,8,10:NEXT:NEXT:VDU4
  680IFSC%=2FORT%=0TO2:MOVET%*256+380,854-(T%MOD2)*512:VDU5,18,0,2,232,232,8,8,18,0,1,224,224,8,8,18,0,6,95,95:PROCICK(T%*256+380,854+64-(T%MOD2)*512):NEXT:PROCSPID(636,742)
  690IFSC%=3RESTORE700:FORS%=1TO6:READQ%,W%:PROCF(Q%-8,W%):NEXT
  700DATA632,636,376,796,888,796,632,476,888,316,376,316
  710IFSC%=4PROCSPID(376,300):PROCSPID(888,300):FORT%=22TO29:MOVE632,(32-T%)*32-4:VDU5,18,0,2,232,232,8,8,18,0,1,224,224,8,8,10:NEXT:PROCICK(632,380):FORT%=0TO1:MOVET%*120+632,32:GCOL0,3:PLOT1,0,284:GCOL0,1:PLOT17,0,-284:NEXT
  720IFSC%<>5ENDPROC ELSE RESTORE730:!&70=AS%+(RND(4)-1)*32:FORT%=1TO4:B%=RND(28):READM%:TEMPY%=Y%:Y%=B%:TEMPX%=X%:X%=M%:CALL&2B00:A%=!&80 AND &FFFF:Y%=TEMPY%:X%=TEMPX%:AH%?T%=A%DIV256:AL%?T%=A%MOD256:AY%?T%=B%:AD%?T%=RND(2):NEXT
  730DATA16,24,60,66
  740COLOUR0:PRINTTAB(4,30);SPC(14);TAB(4,1);SPC(14);:?&75=0:CALL&DD6:COLOUR5:COLOUR130:PRINTTAB(7,30)"        ":GCOL0,1:PLOT4,454,60:VDU5,224,224,224,224,224,224,224,224:VDU4
  750COLOUR128:COLOUR1:PRINTTAB(7,29)"���  ���";TAB(7,28)"  �  �";TAB(7,27)"� �  � �";TAB(7,26)"��������";TAB(7,25);
  760PRINT"��������"TAB(7,24)"��������"TAB(8,23)"������"TAB(9,22)"����"TAB(9,21)"����":COLOUR2:PRINTTAB(10,23)"��":VDU5,18,0,3:MOVE640,320:VDU246,247,8,8,18,0,4,245,244,4:COLOUR129:COLOUR0:PRINTTAB(10,25)"��":COLOUR128:PROCSPID(640,580)
  770COLOUR2:FORT%=1TO9:VDU31,7,T%,234,234,31,13,T%,234,234:NEXT:COLOUR1:COLOUR130:VDU31,7,10,224,224,31,13,10,224,224:COLOUR128:PROCBAT(480,668):PROCBAT(864,668):ENDPROC
  780DEFPROCSC:COLOUR7:PRINTTAB(8,31);STRING$(6-LEN(STR$(F%)),"0");F%;:ENDPROC
  790DEFPROCH:FORT%=1TO3STEP2:U%=1280-T%*16:V%=1024-T%*16:MOVET%*8,T%*8:PLOT1,U%,0:PLOT1,0,V%:PLOT1,-U%,0:PLOT1,0,-V%:NEXT:FORT%=9TO0STEP-1:PRINTTAB(3,22-T%*2)" "S%(T%);".........";S$(T%)':NEXT:PRINTTAB(10,27)"Select Level (1-5)":ENDPROC
  800DEFPROCC:CLS:IFF%<=S%(0)ENDPROC
  810*FX15,0
  820PRINTTAB(15,6)"Good Score"TAB(9,9)"Please enter your name"
  830K%=-1:VDU28,14,11,27,11,30:!&4000=&5000:?&4002=12:?&4003=32:?&4004=127:X%=0:Y%=&40:A%=0:CALL&FFF1:T$=$&5000:FORT%=9TO0STEP-1:IFF%>S%(T%)K%=T%:T%=0
  840NEXT:IFK%>-1FORT%=1TOK%:S%(T%-1)=S%(T%):S$(T%-1)=S$(T%):NEXT:S%(K%)=F%:S$(K%)=T$:G%=K%
  850ENDPROC
  860DEFPROCD:COLOUR0:PRINTTAB(16,31);"  ";:IFD%=0ENDPROC
  870VDU5,18,0,1:FORT%=0TOD%-1:MOVE1024+T%*24,30:VDU233:NEXT:VDU4:ENDPROC
  880DEFPROCBONE:T%=TIME DIV100:T%=60-T%:T%=T%*(SC%+1)*5:F%=(F%+T%)MOD 1E5:ENDPROC
  890DEFPROCBAR:VDU24,160;1003;1249;1019;16,26,18,0,128:GCOL0,2:MOVE1233,1011:PLOT1,-529,0:GCOL0,3:PLOT1,-264.5,0:GCOL0,1:PLOT1,-264.5,0:ENDPROC
  900DEFPROCSPID(Q%,W%):MOVEQ%+32,W%:VDU5,18,0,7,235:MOVEQ%,W%:VDU18,0,1,239,237,4,18,0,2:MOVEQ%+64,W%+4:PLOT21,Q%+64,996:ENDPROC
  910DATA84,92,76,100,68,92,76,100,108,100,108,100,116,999
  920DATA108,100,108,116,100,999
  930DATA68,84,76,92,84,100,84,999
  940DATA72,76,72,68,72,76,68,60,52,68,52,999
  950DEFPROCMUS:REPEAT:READP:IFP<>999SOUND2,2,P+49,3
  960UNTILP=999:REPEAT:UNTILADVAL(-7)=15:ENDPROC
  970DEFPROCF(Q%,W%):MOVEQ%-2,W%-SGN(RND)*4:GCOL3,8:PROCBA:MOVEQ%+8,W%:GCOL3,15:PROCBA:MOVEQ%+8,W%-8:PRINT;"����";:W%=W%+32:MOVEQ%-8,W%:PLOT1,0,-128:FORT%=34TO128STEP32:MOVET%+Q%,W%:PLOT1,0,-128:NEXT
  980MOVEQ%-8,W%:PLOT1,136,0:PLOT1,0,-128:PLOT1,-136,0:ENDPROC
  990DEFPROCBA:PRINT;"��
��";:ENDPROC
 1000DEFPROCBAT(Q%,W%):MOVEQ%,W%:PRINT;"��
��";:PLOT65,-32,-8:ENDPROC
 1010DEFPROCICK(Q%,W%):VDU5:MOVEQ%,W%:PRINT;"������
��";:VDU25,0,-32;12;18,0,1,226,4:ENDPROC
 1020DEFPROCJOYSET:ADDRESS%=(!&140 AND&FFFF):IF ADDRESS%=0 joy%=0:ENDPROC
 1030INVERT%=?&142:DIM BIT% 2
 1040FOR F%=2TO4:FOR BYT%=0TO3
 1050NL%=(BYT%?&143) AND15:IF NL%=F% BIT%?(F%-2)=BYT%*2
 1060NH%=((BYT%?&143) AND240)DIV16:IF NH%=F% BIT%?(F%-2)=BYT%*2+1
 1070NEXT
 1080NEXT
 1090left%=2^(BIT%?0):right%=2^(BIT%?1):fire%=2^(BIT%?2)
 1100joy%=-1
 1110ENDPROC

��T|@
�=&5100:�JOYSET
;G%=9:�S$(9),S%(9):�T%=0�9:S%(T%)=1000+T%*1000:�S$(T%):�
(>�Adrian,Dave,Stevo,Rupert,Dunk,Kev,Tracy,Kirky,Julie,Simon
2a�6:�0:MEM%=&2E00:MANS%=MEM%:ASO%=MANS%+130:AD%=ASO%+8:AH%=AD%+4:AL%=AH%+4:AY%=AL%+4:AS%=AY%+5
<��4:�23;8202;0;0;0;:L%=3:K%=0:SC%=0:D%=0:F%=0:�H:�("*FX210"):�15,29)"SOUND ON":�:A%=�(0) �223:�A%=81�21,29)"OFF":�("*FX210,1")��A%=83�("*FX210,0"):�21,29)"ON "
F3� (A%>16 � A%<22):SC%=A%-16:�15,29)"         "
P1�6,27)"Press Space Or Fire To Start":�:I%=�0
Z � joy%=0 R%=1:fire%=1:� �Dn@
d%R%=?ADDRESS%:� INVERT%<>0 R%=� R%
n�I%=32 � (R% �fire%)=0
x�I%<>32� joy%=0 �DP@
��I%=32 I%=1 � I%=0
�f�5:�23;8202;0;0;0;:��tlC:�MUS:�:?&75=0:�:�SCREEN:�M:�MEM:�SC:�R:�:�<6000�1233,1011:�3,-0.1763*�,0
� �Z%=0�10:�&D00:�CA%=0�BAR:�B
��MAN:�K%=1Z%=10
��>=6000?&75=1
�=�:�SC%<>1P%=�(4):AD%?P%=((AD%?P%)�2+1�AY%?P%>2�AY%?P%<27)
�*FX15,1
�9�K%=1�D%=5:K%=0:?&75=0:�D%=5SC%=SC%+1:D%=0:��tNC:�MUS
��SC%=6SC%=0
�	�L%=0
�B�3:�6,15)"GAME OVER":�T%=0�8000:�:�4:�23;8202;0;0;0;:�C:�T|@
���SCREEN:�COL:�T%=0�30:�2,T%);�224;�19,T%)�224;:�:�T%=5�30�5:�S%=1�19�4:�S%,T%)�3,�224);:�:�:�5,18,0,6:�0,28:��20,�225):�4,30,9,9
�]�;�18,�224):�128:�T%=8�28�5:�4:�2,T%)" "�1,T%+2)" ";�19,T%)�230:�:�31,19,3,230:�1,5)" "
��0,0:�T%=320�1088�256:�T%,32:�T%+32,32:�85,T%,960:�T%+32,960:�85,T%+32,32:�:�T%=408�920�256:�T%,988:�5,18,0,1,228,8,18,0,3,229,4:�
s�T%=352�1136�256:�S%=63�863�160:�0,1:�T%,S%:�1,0,-30:�0,3:�17,0,30:�T%-104,S%:�0,1:�1,0,-30:�0,3:�17,0,30:�:�:�
0��MEM:��TlA:�T%=0�7:�Q%:ASO%?T%=Q%:�:�SC%=5�
"�!&70=AS%+(SC%�4)*32:�T%=1�4:B%=�(28):TEMPX%=X%:X%=T%*16+2:TEMPY%=Y%:Y%=B%:�&2B00:A%=!&80 � &FFFF:X%=TEMPX%:Y%=TEMPY%:AH%?T%=A%�256:AL%?T%=A%�256:AY%?T%=B%:AD%?T%=�(2):�:?&75=0:�&DD6:�
,�&11,0,1,0,20,0,2,0
6���R:�23,236,24,24,48,48,60,16,40,76:�7:�4,31);"  ";�4,31);�L%-1,�236);:?&2CA5=0:?&2CA6=8:X%=12:Y%=3:?&79=0:�&2C43:CA%=0:E%=3
@8�20,19,3,3;0;19,2,6;0;23,236,231,231,231,0,0,0,0,0:�
JG��KEY:X1%=(�-2�X%>12)-(�-66�X%<72):�-74�Y%-1<>0Y1%=-1:�&10,-15,6,4
T�
^+��JOY:O%=?ADDRESS%:� INVERT%<>0 O%=� O%
h?�(O%� left%)=0� X%>12 X1%=-1 � �(O%� right%)=0� X%<72 X1%=1
r.�(O%� fire%)=0� Y%-1<>0Y1%=-1:�&10,-15,6,4
|�
�&��MAN:X1%=0:Y1%=1:�I%=0�JOY � �KEY
�� Y1%=1 � �tnA
��&2A00:� ?&2AC2=1 Y1%=0
�� Y1%=-1 � �txA
��&2CD0: � ?&2D98=1 Y1%=0
��X%=72�Y%=E%�CA%<>1�I
��X%=12�Y%=SY%+1�CA%=1�Z
��X1%<>0� Y1%=0�&13,3,77,2
�4�X1%=0� Y1%=0 �dtA � �&2BEF:X%=X%+X1%:Y%=Y%+Y1%
��X1%=-1?&78=1��X1%=1?&78=0
�
�&2C43
��?&75=1 K%=1:�DED
��
H��Z:CA%=0:?&79=0:�&2BEF:�&2C43:F%=(F%+500)�1E5:�BONE:�SC:�A:SY%=-1:�
V��I:CA%=1:?&79=1:�&2BEF:�&2C43:�17,4,31,19,E%,230:F%=(F%+100)�1E5:�SC:��tbC:�MUS:�
	��DED
&#P%=0:�&2BEF:?&2CA5=16:?&2CA6=18
0n� 0,2,253,3:�&2BEF:�M%=0�25:�:�:�&2BEF:�&D00:Y%=Y%+1:� &11,-6,255-Y%*8,1:�&2BEF:�M%=0�100:�:� Y%>29:�&2BEF
:x�X%*16-64,60:�5,18,0,1,241,242,243,4:�0,-15,7,10:�T%=255�1�-25:�1,0,T%,1:�:�M%=0�5:�2,0,0,5:�:L%=L%-1:�M%=0�4000:�:�
D*��COL:�T%=0�15:�19,T%,0;0;:�:�1:�130:�
Nt��B:�4:�19,E%)�230:CA%=-1:E%=�(6)*5-2:�19,E%)" ":�5,18,0,1:�1216,(32-E%)*32-4:�227,8,18,0,3,231,4:�SAUCE:�=0:�
X���SAUCE:�D%>=5� � �&D00:��t@B:�T%=0�31�4:�T%!&5800:�:�&D00:�T%=0�31�4:�T%!&5940:�:�&D00:�28,0,30,1,0:SY%=7+�(4)*5:�T%=0�SY%:�30,11:�T%�2=0�&D00
b�:�26:�
lC��A:��tXC:�MUS:�28,0,30,1,0:�T%=0�30:�31,1,29,9,10:�T%�2=0�&D00
v�:�26:D%=D%+1:�D:�
�E�&0,&10000000,&E9FC7633,&9A0FE9CB,&B8FCE0CC,&9A0F781E,0,&88000000
�I�&F070301,&110F,&F0F0F0F,&1177FF0F,&F0F0F0F,&80E8FE0F,&3F6E4C88,&800F
�,��M:�D:�SC%�2=0�SC%=5�28,4,28,16,2,12,26
���SC%=1��t|B:�S%=1�6:�Q%,W%:�BAT(Q%+32,W%+32-(160�S%<4)):�:�18,0,2,5:�S%=0�1:�624,(26-S%*20)*32-4:�T%=0�3:�234,234,8,8,10:�:�:�4
���SC%=2�T%=0�2:�T%*256+380,854-(T%�2)*512:�5,18,0,2,232,232,8,8,18,0,1,224,224,8,8,18,0,6,95,95:�ICK(T%*256+380,854+64-(T%�2)*512):�:�SPID(636,742)
�,�SC%=3��t|B:�S%=1�6:�Q%,W%:�F(Q%-8,W%):�
�4�632,636,376,796,888,796,632,476,888,316,376,316
ƶ�SC%=4�SPID(376,300):�SPID(888,300):�T%=22�29:�632,(32-T%)*32-4:�5,18,0,2,232,232,8,8,18,0,1,224,224,8,8,10:�:�ICK(632,380):�T%=0�1:�T%*120+632,32:�0,3:�1,0,284:�0,1:�17,0,-284:�
н�SC%<>5� � ��dZB:!&70=AS%+(�(4)-1)*32:�T%=1�4:B%=�(28):�M%:TEMPY%=Y%:Y%=B%:TEMPX%=X%:X%=M%:�&2B00:A%=!&80 � &FFFF:Y%=TEMPY%:X%=TEMPX%:AH%?T%=A%�256:AL%?T%=A%�256:AY%?T%=B%:AD%?T%=�(2):�
��16,24,60,66
�}�0:�4,30);�(14);�4,1);�(14);:?&75=0:�&DD6:�5:�130:�7,30)"        ":�0,1:�4,454,60:�5,224,224,224,224,224,224,224,224:�4
�V�128:�1:�7,29)"���  ��";�7,28)"  �  �";�7,27)"� �  � �";�7,26)"������";�7,25);
���"��������"�7,24)"��������"�8,23)"������"�9,22)"����"�9,21)"����":�2:�10,23)"��":�5,18,0,3:�640,320:�246,247,8,8,18,0,4,245,244,4:�129:�0:�10,25)"��":�128:�SPID(640,580)
�2:�T%=1�9:�31,7,T%,234,234,31,13,T%,234,234:�:�1:�130:�31,7,10,224,224,31,13,10,224,224:�128:�BAT(480,668):�BAT(864,668):�
*��SC:�7:�8,31);�6-�(�(F%)),"0");F%;:�
���H:�T%=1�3�2:U%=1280-T%*16:V%=1024-T%*16:�T%*8,T%*8:�1,U%,0:�1,0,V%:�1,-U%,0:�1,0,-V%:�:�T%=9�0�-1:�3,22-T%*2)" "S%(T%);".........";S$(T%)':�:�10,27)"Select Level (1-5)":�
 ��C:�:�F%<=S%(0)�
**FX15,0
44�15,6)"Good Score"�9,9)"Please enter your name"
>�K%=-1:�28,14,11,27,11,30:!&4000=&5000:?&4002=12:?&4003=32:?&4004=127:X%=0:Y%=&40:A%=0:�&FFF1:T$=$&5000:�T%=9�0�-1:�F%>S%(T%)K%=T%:T%=0
HP�:�K%>-1�T%=1�K%:S%(T%-1)=S%(T%):S$(T%-1)=S$(T%):�:S%(K%)=F%:S$(K%)=T$:G%=K%
R�
\ ��D:�0:�16,31);"  ";:�D%=0�
f3�5,18,0,1:�T%=0�D%-1:�1024+T%*24,30:�233:�:�4:�
p?��BONE:T%=� �100:T%=60-T%:T%=T%*(SC%+1)*5:F%=(F%+T%)� 1E5:�
zm��BAR:�24,160;1003;1249;1019;16,26,18,0,128:�0,2:�1233,1011:�1,-529,0:�0,3:�1,-264.5,0:�0,1:�1,-264.5,0:�
�e��SPID(Q%,W%):�Q%+32,W%:�5,18,0,7,235:�Q%,W%:�18,0,1,239,237,4,18,0,2:�Q%+64,W%+4:�21,Q%+64,996:�
�6�84,92,76,100,68,92,76,100,108,100,108,100,116,999
��108,100,108,116,100,999
��68,84,76,92,84,100,84,999
�)�72,76,72,68,72,76,68,60,52,68,52,999
�!��MUS:�:�P:�P<>999�2,2,P+49,3
��P=999:�:��(-7)=15:�
ʜ��F(Q%,W%):�Q%-2,W%-�(�)*4:�3,8:�BA:�Q%+8,W%:�3,15:�BA:�Q%+8,W%-8:�;"����";:W%=W%+32:�Q%-8,W%:�1,0,-128:�T%=34�128�32:�T%+Q%,W%:�1,0,-128:�
�+�Q%-8,W%:�1,136,0:�1,0,-128:�1,-136,0:�
���BA:�;"��
��";:�
�@��BAT(Q%,W%):�Q%,W%:�;"��
��";:�65,-32,-8:�
�X��ICK(Q%,W%):�5:�Q%,W%:�;"������
��";:�25,0,-32;12;18,0,1,226,4:�
�:��JOYSET:ADDRESS%=(!&140 �&FFFF):� ADDRESS%=0 joy%=0:�
INVERT%=?&142:� BIT% 2
� F%=2�4:� BYT%=0�3
3NL%=(BYT%?&143) �15:� NL%=F% BIT%?(F%-2)=BYT%*2
$;NH%=((BYT%?&143) �240)�16:� NH%=F% BIT%?(F%-2)=BYT%*2+1
.�
8�
B7left%=2^(BIT%?0):right%=2^(BIT%?1):fire%=2^(BIT%?2)
Ljoy%=-1
V�
�
00000000  0d 00 0a 0b ee 85 e5 8d  54 7c 40 0d 00 14 13 d2  |........T|@.....|
00000010  3d 26 35 31 30 30 3a f2  4a 4f 59 53 45 54 0d 00  |=&5100:.JOYSET..|
00000020  1e 3b 47 25 3d 39 3a de  53 24 28 39 29 2c 53 25  |.;G%=9:.S$(9),S%|
00000030  28 39 29 3a e3 54 25 3d  30 b8 39 3a 53 25 28 54  |(9):.T%=0.9:S%(T|
00000040  25 29 3d 31 30 30 30 2b  54 25 2a 31 30 30 30 3a  |%)=1000+T%*1000:|
00000050  f3 53 24 28 54 25 29 3a  ed 0d 00 28 3e dc 41 64  |.S$(T%):...(>.Ad|
00000060  72 69 61 6e 2c 44 61 76  65 2c 53 74 65 76 6f 2c  |rian,Dave,Stevo,|
00000070  52 75 70 65 72 74 2c 44  75 6e 6b 2c 4b 65 76 2c  |Rupert,Dunk,Kev,|
00000080  54 72 61 63 79 2c 4b 69  72 6b 79 2c 4a 75 6c 69  |Tracy,Kirky,Juli|
00000090  65 2c 53 69 6d 6f 6e 0d  00 32 61 eb 36 3a fb 30  |e,Simon..2a.6:.0|
000000a0  3a 4d 45 4d 25 3d 26 32  45 30 30 3a 4d 41 4e 53  |:MEM%=&2E00:MANS|
000000b0  25 3d 4d 45 4d 25 3a 41  53 4f 25 3d 4d 41 4e 53  |%=MEM%:ASO%=MANS|
000000c0  25 2b 31 33 30 3a 41 44  25 3d 41 53 4f 25 2b 38  |%+130:AD%=ASO%+8|
000000d0  3a 41 48 25 3d 41 44 25  2b 34 3a 41 4c 25 3d 41  |:AH%=AD%+4:AL%=A|
000000e0  48 25 2b 34 3a 41 59 25  3d 41 4c 25 2b 34 3a 41  |H%+4:AY%=AL%+4:A|
000000f0  53 25 3d 41 59 25 2b 35  0d 00 3c a5 eb 34 3a ef  |S%=AY%+5..<..4:.|
00000100  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 3a 4c  |23;8202;0;0;0;:L|
00000110  25 3d 33 3a 4b 25 3d 30  3a 53 43 25 3d 30 3a 44  |%=3:K%=0:SC%=0:D|
00000120  25 3d 30 3a 46 25 3d 30  3a f2 48 3a ff 28 22 2a  |%=0:F%=0:.H:.("*|
00000130  46 58 32 31 30 22 29 3a  f1 8a 31 35 2c 32 39 29  |FX210"):..15,29)|
00000140  22 53 4f 55 4e 44 20 4f  4e 22 3a f5 3a 41 25 3d  |"SOUND ON":.:A%=|
00000150  a6 28 30 29 20 80 32 32  33 3a e7 41 25 3d 38 31  |.(0) .223:.A%=81|
00000160  f1 8a 32 31 2c 32 39 29  22 4f 46 46 22 3a ff 28  |..21,29)"OFF":.(|
00000170  22 2a 46 58 32 31 30 2c  31 22 29 8b e7 41 25 3d  |"*FX210,1")..A%=|
00000180  38 33 ff 28 22 2a 46 58  32 31 30 2c 30 22 29 3a  |83.("*FX210,0"):|
00000190  f1 8a 32 31 2c 32 39 29  22 4f 4e 20 22 0d 00 46  |..21,29)"ON "..F|
000001a0  33 fd 20 28 41 25 3e 31  36 20 80 20 41 25 3c 32  |3. (A%>16 . A%<2|
000001b0  32 29 3a 53 43 25 3d 41  25 2d 31 36 3a f1 8a 31  |2):SC%=A%-16:..1|
000001c0  35 2c 32 39 29 22 20 20  20 20 20 20 20 20 20 22  |5,29)"         "|
000001d0  0d 00 50 31 f1 8a 36 2c  32 37 29 22 50 72 65 73  |..P1..6,27)"Pres|
000001e0  73 20 53 70 61 63 65 20  4f 72 20 46 69 72 65 20  |s Space Or Fire |
000001f0  54 6f 20 53 74 61 72 74  22 3a f5 3a 49 25 3d a6  |To Start":.:I%=.|
00000200  30 0d 00 5a 20 e7 20 6a  6f 79 25 3d 30 20 52 25  |0..Z . joy%=0 R%|
00000210  3d 31 3a 66 69 72 65 25  3d 31 3a e5 20 8d 44 6e  |=1:fire%=1:. .Dn|
00000220  40 0d 00 64 25 52 25 3d  3f 41 44 44 52 45 53 53  |@..d%R%=?ADDRESS|
00000230  25 3a e7 20 49 4e 56 45  52 54 25 3c 3e 30 20 52  |%:. INVERT%<>0 R|
00000240  25 3d ac 20 52 25 0d 00  6e 1a fd 49 25 3d 33 32  |%=. R%..n..I%=32|
00000250  20 84 20 28 52 25 20 80  66 69 72 65 25 29 3d 30  | . (R% .fire%)=0|
00000260  0d 00 78 19 e7 49 25 3c  3e 33 32 80 20 6a 6f 79  |..x..I%<>32. joy|
00000270  25 3d 30 20 e5 8d 44 50  40 0d 00 82 16 e7 49 25  |%=0 ..DP@.....I%|
00000280  3d 33 32 20 49 25 3d 31  20 8b 20 49 25 3d 30 0d  |=32 I%=1 . I%=0.|
00000290  00 8c 66 eb 35 3a ef 32  33 3b 38 32 30 32 3b 30  |..f.5:.23;8202;0|
000002a0  3b 30 3b 30 3b 3a f7 8d  74 6c 43 3a f2 4d 55 53  |;0;0;:..tlC:.MUS|
000002b0  3a f5 3a 3f 26 37 35 3d  30 3a db 3a f2 53 43 52  |:.:?&75=0:.:.SCR|
000002c0  45 45 4e 3a f2 4d 3a f2  4d 45 4d 3a f2 53 43 3a  |EEN:.M:.MEM:.SC:|
000002d0  f2 52 3a f5 3a e7 91 3c  36 30 30 30 ec 31 32 33  |.R:.:..<6000.123|
000002e0  33 2c 31 30 31 31 3a f0  33 2c 2d 30 2e 31 37 36  |3,1011:.3,-0.176|
000002f0  33 2a 91 2c 30 0d 00 96  20 e3 5a 25 3d 30 b8 31  |3*.,0... .Z%=0.1|
00000300  30 3a d6 26 44 30 30 3a  e7 43 41 25 3d 30 f2 42  |0:.&D00:.CA%=0.B|
00000310  41 52 3a f2 42 0d 00 a0  13 f2 4d 41 4e 3a e7 4b  |AR:.B.....MAN:.K|
00000320  25 3d 31 5a 25 3d 31 30  0d 00 aa 12 e7 91 3e 3d  |%=1Z%=10......>=|
00000330  36 30 30 30 3f 26 37 35  3d 31 0d 00 b4 3d ed 3a  |6000?&75=1...=.:|
00000340  e7 53 43 25 3c 3e 31 50  25 3d b3 28 34 29 3a 41  |.SC%<>1P%=.(4):A|
00000350  44 25 3f 50 25 3d 28 28  41 44 25 3f 50 25 29 83  |D%?P%=((AD%?P%).|
00000360  32 2b 31 80 41 59 25 3f  50 25 3e 32 80 41 59 25  |2+1.AY%?P%>2.AY%|
00000370  3f 50 25 3c 32 37 29 0d  00 be 0b 2a 46 58 31 35  |?P%<27)....*FX15|
00000380  2c 31 0d 00 c8 39 fd 4b  25 3d 31 84 44 25 3d 35  |,1...9.K%=1.D%=5|
00000390  3a 4b 25 3d 30 3a 3f 26  37 35 3d 30 3a e7 44 25  |:K%=0:?&75=0:.D%|
000003a0  3d 35 53 43 25 3d 53 43  25 2b 31 3a 44 25 3d 30  |=5SC%=SC%+1:D%=0|
000003b0  3a f7 8d 74 4e 43 3a f2  4d 55 53 0d 00 d2 0f e7  |:..tNC:.MUS.....|
000003c0  53 43 25 3d 36 53 43 25  3d 30 0d 00 dc 09 fd 4c  |SC%=6SC%=0.....L|
000003d0  25 3d 30 0d 00 e6 42 fb  33 3a f1 8a 36 2c 31 35  |%=0...B.3:..6,15|
000003e0  29 22 47 41 4d 45 20 4f  56 45 52 22 3a e3 54 25  |)"GAME OVER":.T%|
000003f0  3d 30 b8 38 30 30 30 3a  ed 3a eb 34 3a ef 32 33  |=0.8000:.:.4:.23|
00000400  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 3a f2 43 3a  |;8202;0;0;0;:.C:|
00000410  e5 8d 54 7c 40 0d 00 f0  87 dd f2 53 43 52 45 45  |..T|@......SCREE|
00000420  4e 3a f2 43 4f 4c 3a e3  54 25 3d 30 b8 33 30 3a  |N:.COL:.T%=0.30:|
00000430  f1 8a 32 2c 54 25 29 3b  bd 32 32 34 3b 8a 31 39  |..2,T%);.224;.19|
00000440  2c 54 25 29 bd 32 32 34  3b 3a ed 3a e3 54 25 3d  |,T%).224;:.:.T%=|
00000450  35 b8 33 30 88 35 3a e3  53 25 3d 31 b8 31 39 88  |5.30.5:.S%=1.19.|
00000460  34 3a f1 8a 53 25 2c 54  25 29 c4 33 2c bd 32 32  |4:..S%,T%).3,.22|
00000470  34 29 3b 3a ed 3a ed 3a  ef 35 2c 31 38 2c 30 2c  |4);:.:.:.5,18,0,|
00000480  36 3a ec 30 2c 32 38 3a  f1 c4 32 30 2c bd 32 32  |6:.0,28:..20,.22|
00000490  35 29 3a ef 34 2c 33 30  2c 39 2c 39 0d 00 fa 5d  |5):.4,30,9,9...]|
000004a0  f1 3b c4 31 38 2c bd 32  32 34 29 3a fb 31 32 38  |.;.18,.224):.128|
000004b0  3a e3 54 25 3d 38 b8 32  38 88 35 3a fb 34 3a f1  |:.T%=8.28.5:.4:.|
000004c0  8a 32 2c 54 25 29 22 20  22 8a 31 2c 54 25 2b 32  |.2,T%)" ".1,T%+2|
000004d0  29 22 20 22 3b 8a 31 39  2c 54 25 29 bd 32 33 30  |)" ";.19,T%).230|
000004e0  3a ed 3a ef 33 31 2c 31  39 2c 33 2c 32 33 30 3a  |:.:.31,19,3,230:|
000004f0  f1 8a 31 2c 35 29 22 20  22 0d 01 04 86 e6 30 2c  |..1,5)" ".....0,|
00000500  30 3a e3 54 25 3d 33 32  30 b8 31 30 38 38 88 32  |0:.T%=320.1088.2|
00000510  35 36 3a ec 54 25 2c 33  32 3a ec 54 25 2b 33 32  |56:.T%,32:.T%+32|
00000520  2c 33 32 3a f0 38 35 2c  54 25 2c 39 36 30 3a ec  |,32:.85,T%,960:.|
00000530  54 25 2b 33 32 2c 39 36  30 3a f0 38 35 2c 54 25  |T%+32,960:.85,T%|
00000540  2b 33 32 2c 33 32 3a ed  3a e3 54 25 3d 34 30 38  |+32,32:.:.T%=408|
00000550  b8 39 32 30 88 32 35 36  3a ec 54 25 2c 39 38 38  |.920.256:.T%,988|
00000560  3a ef 35 2c 31 38 2c 30  2c 31 2c 32 32 38 2c 38  |:.5,18,0,1,228,8|
00000570  2c 31 38 2c 30 2c 33 2c  32 32 39 2c 34 3a ed 0d  |,18,0,3,229,4:..|
00000580  01 0e 73 e3 54 25 3d 33  35 32 b8 31 31 33 36 88  |..s.T%=352.1136.|
00000590  32 35 36 3a e3 53 25 3d  36 33 b8 38 36 33 88 31  |256:.S%=63.863.1|
000005a0  36 30 3a e6 30 2c 31 3a  ec 54 25 2c 53 25 3a f0  |60:.0,1:.T%,S%:.|
000005b0  31 2c 30 2c 2d 33 30 3a  e6 30 2c 33 3a f0 31 37  |1,0,-30:.0,3:.17|
000005c0  2c 30 2c 33 30 3a ec 54  25 2d 31 30 34 2c 53 25  |,0,30:.T%-104,S%|
000005d0  3a e6 30 2c 31 3a f0 31  2c 30 2c 2d 33 30 3a e6  |:.0,1:.1,0,-30:.|
000005e0  30 2c 33 3a f0 31 37 2c  30 2c 33 30 3a ed 3a ed  |0,3:.17,0,30:.:.|
000005f0  3a e1 0d 01 18 30 dd f2  4d 45 4d 3a f7 8d 54 6c  |:....0..MEM:..Tl|
00000600  41 3a e3 54 25 3d 30 b8  37 3a f3 51 25 3a 41 53  |A:.T%=0.7:.Q%:AS|
00000610  4f 25 3f 54 25 3d 51 25  3a ed 3a e7 53 43 25 3d  |O%?T%=Q%:.:.SC%=|
00000620  35 e1 0d 01 22 bb 21 26  37 30 3d 41 53 25 2b 28  |5...".!&70=AS%+(|
00000630  53 43 25 83 34 29 2a 33  32 3a e3 54 25 3d 31 b8  |SC%.4)*32:.T%=1.|
00000640  34 3a 42 25 3d b3 28 32  38 29 3a 54 45 4d 50 58  |4:B%=.(28):TEMPX|
00000650  25 3d 58 25 3a 58 25 3d  54 25 2a 31 36 2b 32 3a  |%=X%:X%=T%*16+2:|
00000660  54 45 4d 50 59 25 3d 59  25 3a 59 25 3d 42 25 3a  |TEMPY%=Y%:Y%=B%:|
00000670  d6 26 32 42 30 30 3a 41  25 3d 21 26 38 30 20 80  |.&2B00:A%=!&80 .|
00000680  20 26 46 46 46 46 3a 58  25 3d 54 45 4d 50 58 25  | &FFFF:X%=TEMPX%|
00000690  3a 59 25 3d 54 45 4d 50  59 25 3a 41 48 25 3f 54  |:Y%=TEMPY%:AH%?T|
000006a0  25 3d 41 25 81 32 35 36  3a 41 4c 25 3f 54 25 3d  |%=A%.256:AL%?T%=|
000006b0  41 25 83 32 35 36 3a 41  59 25 3f 54 25 3d 42 25  |A%.256:AY%?T%=B%|
000006c0  3a 41 44 25 3f 54 25 3d  b3 28 32 29 3a ed 3a 3f  |:AD%?T%=.(2):.:?|
000006d0  26 37 35 3d 30 3a d6 26  44 44 36 3a e1 0d 01 2c  |&75=0:.&DD6:...,|
000006e0  17 dc 26 31 31 2c 30 2c  31 2c 30 2c 32 30 2c 30  |..&11,0,1,0,20,0|
000006f0  2c 32 2c 30 0d 01 36 81  dd f2 52 3a ef 32 33 2c  |,2,0..6...R:.23,|
00000700  32 33 36 2c 32 34 2c 32  34 2c 34 38 2c 34 38 2c  |236,24,24,48,48,|
00000710  36 30 2c 31 36 2c 34 30  2c 37 36 3a fb 37 3a f1  |60,16,40,76:.7:.|
00000720  8a 34 2c 33 31 29 3b 22  20 20 22 3b 8a 34 2c 33  |.4,31);"  ";.4,3|
00000730  31 29 3b c4 4c 25 2d 31  2c bd 32 33 36 29 3b 3a  |1);.L%-1,.236);:|
00000740  3f 26 32 43 41 35 3d 30  3a 3f 26 32 43 41 36 3d  |?&2CA5=0:?&2CA6=|
00000750  38 3a 58 25 3d 31 32 3a  59 25 3d 33 3a 3f 26 37  |8:X%=12:Y%=3:?&7|
00000760  39 3d 30 3a d6 26 32 43  34 33 3a 43 41 25 3d 30  |9=0:.&2C43:CA%=0|
00000770  3a 45 25 3d 33 0d 01 40  38 ef 32 30 2c 31 39 2c  |:E%=3..@8.20,19,|
00000780  33 2c 33 3b 30 3b 31 39  2c 32 2c 36 3b 30 3b 32  |3,3;0;19,2,6;0;2|
00000790  33 2c 32 33 36 2c 32 33  31 2c 32 33 31 2c 32 33  |3,236,231,231,23|
000007a0  31 2c 30 2c 30 2c 30 2c  30 2c 30 3a e1 0d 01 4a  |1,0,0,0,0,0:...J|
000007b0  47 dd f2 4b 45 59 3a 58  31 25 3d 28 a6 2d 32 80  |G..KEY:X1%=(.-2.|
000007c0  58 25 3e 31 32 29 2d 28  a6 2d 36 36 80 58 25 3c  |X%>12)-(.-66.X%<|
000007d0  37 32 29 3a e7 a6 2d 37  34 80 59 25 2d 31 3c 3e  |72):..-74.Y%-1<>|
000007e0  30 59 31 25 3d 2d 31 3a  d4 26 31 30 2c 2d 31 35  |0Y1%=-1:.&10,-15|
000007f0  2c 36 2c 34 0d 01 54 05  e1 0d 01 5e 2b dd f2 4a  |,6,4..T....^+..J|
00000800  4f 59 3a 4f 25 3d 3f 41  44 44 52 45 53 53 25 3a  |OY:O%=?ADDRESS%:|
00000810  e7 20 49 4e 56 45 52 54  25 3c 3e 30 20 4f 25 3d  |. INVERT%<>0 O%=|
00000820  ac 20 4f 25 0d 01 68 3f  e7 28 4f 25 80 20 6c 65  |. O%..h?.(O%. le|
00000830  66 74 25 29 3d 30 80 20  58 25 3e 31 32 20 58 31  |ft%)=0. X%>12 X1|
00000840  25 3d 2d 31 20 8b 20 e7  28 4f 25 80 20 72 69 67  |%=-1 . .(O%. rig|
00000850  68 74 25 29 3d 30 80 20  58 25 3c 37 32 20 58 31  |ht%)=0. X%<72 X1|
00000860  25 3d 31 0d 01 72 2e e7  28 4f 25 80 20 66 69 72  |%=1..r..(O%. fir|
00000870  65 25 29 3d 30 80 20 59  25 2d 31 3c 3e 30 59 31  |e%)=0. Y%-1<>0Y1|
00000880  25 3d 2d 31 3a d4 26 31  30 2c 2d 31 35 2c 36 2c  |%=-1:.&10,-15,6,|
00000890  34 0d 01 7c 05 e1 0d 01  86 26 dd f2 4d 41 4e 3a  |4..|.....&..MAN:|
000008a0  58 31 25 3d 30 3a 59 31  25 3d 31 3a e7 49 25 3d  |X1%=0:Y1%=1:.I%=|
000008b0  30 f2 4a 4f 59 20 8b 20  f2 4b 45 59 0d 01 90 12  |0.JOY . .KEY....|
000008c0  e7 20 59 31 25 3d 31 20  e5 20 8d 74 6e 41 0d 01  |. Y1%=1 . .tnA..|
000008d0  9a 1b d6 26 32 41 30 30  3a e7 20 3f 26 32 41 43  |...&2A00:. ?&2AC|
000008e0  32 3d 31 20 59 31 25 3d  30 0d 01 a4 13 e7 20 59  |2=1 Y1%=0..... Y|
000008f0  31 25 3d 2d 31 20 e5 20  8d 74 78 41 0d 01 ae 1c  |1%=-1 . .txA....|
00000900  d6 26 32 43 44 30 3a 20  e7 20 3f 26 32 44 39 38  |.&2CD0: . ?&2D98|
00000910  3d 31 20 59 31 25 3d 30  0d 01 b8 19 e7 58 25 3d  |=1 Y1%=0.....X%=|
00000920  37 32 80 59 25 3d 45 25  80 43 41 25 3c 3e 31 f2  |72.Y%=E%.CA%<>1.|
00000930  49 0d 01 c2 1b e7 58 25  3d 31 32 80 59 25 3d 53  |I.....X%=12.Y%=S|
00000940  59 25 2b 31 80 43 41 25  3d 31 f2 5a 0d 01 cc 1d  |Y%+1.CA%=1.Z....|
00000950  e7 58 31 25 3c 3e 30 80  20 59 31 25 3d 30 d4 26  |.X1%<>0. Y1%=0.&|
00000960  31 33 2c 33 2c 37 37 2c  32 0d 01 d6 34 e7 58 31  |13,3,77,2...4.X1|
00000970  25 3d 30 80 20 59 31 25  3d 30 20 e5 8d 64 74 41  |%=0. Y1%=0 ..dtA|
00000980  20 8b 20 d6 26 32 42 45  46 3a 58 25 3d 58 25 2b  | . .&2BEF:X%=X%+|
00000990  58 31 25 3a 59 25 3d 59  25 2b 59 31 25 0d 01 e0  |X1%:Y%=Y%+Y1%...|
000009a0  1e e7 58 31 25 3d 2d 31  3f 26 37 38 3d 31 8b e7  |..X1%=-1?&78=1..|
000009b0  58 31 25 3d 31 3f 26 37  38 3d 30 0d 01 ea 0a d6  |X1%=1?&78=0.....|
000009c0  26 32 43 34 33 0d 01 f4  15 e7 3f 26 37 35 3d 31  |&2C43.....?&75=1|
000009d0  20 4b 25 3d 31 3a f2 44  45 44 0d 01 fe 05 e1 0d  | K%=1:.DED......|
000009e0  02 08 48 dd f2 5a 3a 43  41 25 3d 30 3a 3f 26 37  |..H..Z:CA%=0:?&7|
000009f0  39 3d 30 3a d6 26 32 42  45 46 3a d6 26 32 43 34  |9=0:.&2BEF:.&2C4|
00000a00  33 3a 46 25 3d 28 46 25  2b 35 30 30 29 83 31 45  |3:F%=(F%+500).1E|
00000a10  35 3a f2 42 4f 4e 45 3a  f2 53 43 3a f2 41 3a 53  |5:.BONE:.SC:.A:S|
00000a20  59 25 3d 2d 31 3a e1 0d  02 12 56 dd f2 49 3a 43  |Y%=-1:....V..I:C|
00000a30  41 25 3d 31 3a 3f 26 37  39 3d 31 3a d6 26 32 42  |A%=1:?&79=1:.&2B|
00000a40  45 46 3a d6 26 32 43 34  33 3a ef 31 37 2c 34 2c  |EF:.&2C43:.17,4,|
00000a50  33 31 2c 31 39 2c 45 25  2c 32 33 30 3a 46 25 3d  |31,19,E%,230:F%=|
00000a60  28 46 25 2b 31 30 30 29  83 31 45 35 3a f2 53 43  |(F%+100).1E5:.SC|
00000a70  3a f7 8d 74 62 43 3a f2  4d 55 53 3a e1 0d 02 1c  |:..tbC:.MUS:....|
00000a80  09 dd f2 44 45 44 0d 02  26 23 50 25 3d 30 3a d6  |...DED..&#P%=0:.|
00000a90  26 32 42 45 46 3a 3f 26  32 43 41 35 3d 31 36 3a  |&2BEF:?&2CA5=16:|
00000aa0  3f 26 32 43 41 36 3d 31  38 0d 02 30 6e d4 20 30  |?&2CA6=18..0n. 0|
00000ab0  2c 32 2c 32 35 33 2c 33  3a d6 26 32 42 45 46 3a  |,2,253,3:.&2BEF:|
00000ac0  e3 4d 25 3d 30 b8 32 35  3a ed 3a f5 3a d6 26 32  |.M%=0.25:.:.:.&2|
00000ad0  42 45 46 3a d6 26 44 30  30 3a 59 25 3d 59 25 2b  |BEF:.&D00:Y%=Y%+|
00000ae0  31 3a d4 20 26 31 31 2c  2d 36 2c 32 35 35 2d 59  |1:. &11,-6,255-Y|
00000af0  25 2a 38 2c 31 3a d6 26  32 42 45 46 3a e3 4d 25  |%*8,1:.&2BEF:.M%|
00000b00  3d 30 b8 31 30 30 3a ed  3a fd 20 59 25 3e 32 39  |=0.100:.:. Y%>29|
00000b10  3a d6 26 32 42 45 46 0d  02 3a 78 ec 58 25 2a 31  |:.&2BEF..:x.X%*1|
00000b20  36 2d 36 34 2c 36 30 3a  ef 35 2c 31 38 2c 30 2c  |6-64,60:.5,18,0,|
00000b30  31 2c 32 34 31 2c 32 34  32 2c 32 34 33 2c 34 3a  |1,241,242,243,4:|
00000b40  d4 30 2c 2d 31 35 2c 37  2c 31 30 3a e3 54 25 3d  |.0,-15,7,10:.T%=|
00000b50  32 35 35 b8 31 88 2d 32  35 3a d4 31 2c 30 2c 54  |255.1.-25:.1,0,T|
00000b60  25 2c 31 3a ed 3a e3 4d  25 3d 30 b8 35 3a d4 32  |%,1:.:.M%=0.5:.2|
00000b70  2c 30 2c 30 2c 35 3a ed  3a 4c 25 3d 4c 25 2d 31  |,0,0,5:.:L%=L%-1|
00000b80  3a e3 4d 25 3d 30 b8 34  30 30 30 3a ed 3a e1 0d  |:.M%=0.4000:.:..|
00000b90  02 44 2a dd f2 43 4f 4c  3a e3 54 25 3d 30 b8 31  |.D*..COL:.T%=0.1|
00000ba0  35 3a ef 31 39 2c 54 25  2c 30 3b 30 3b 3a ed 3a  |5:.19,T%,0;0;:.:|
00000bb0  fb 31 3a fb 31 33 30 3a  e1 0d 02 4e 74 dd f2 42  |.1:.130:...Nt..B|
00000bc0  3a fb 34 3a f1 8a 31 39  2c 45 25 29 bd 32 33 30  |:.4:..19,E%).230|
00000bd0  3a 43 41 25 3d 2d 31 3a  45 25 3d b3 28 36 29 2a  |:CA%=-1:E%=.(6)*|
00000be0  35 2d 32 3a f1 8a 31 39  2c 45 25 29 22 20 22 3a  |5-2:..19,E%)" ":|
00000bf0  ef 35 2c 31 38 2c 30 2c  31 3a ec 31 32 31 36 2c  |.5,18,0,1:.1216,|
00000c00  28 33 32 2d 45 25 29 2a  33 32 2d 34 3a ef 32 32  |(32-E%)*32-4:.22|
00000c10  37 2c 38 2c 31 38 2c 30  2c 33 2c 32 33 31 2c 34  |7,8,18,0,3,231,4|
00000c20  3a f2 53 41 55 43 45 3a  d1 3d 30 3a e1 0d 02 58  |:.SAUCE:.=0:...X|
00000c30  93 dd f2 53 41 55 43 45  3a e7 44 25 3e 3d 35 e1  |...SAUCE:.D%>=5.|
00000c40  20 8b 20 d6 26 44 30 30  3a f7 8d 74 40 42 3a e3  | . .&D00:..t@B:.|
00000c50  54 25 3d 30 b8 33 31 88  34 3a f3 54 25 21 26 35  |T%=0.31.4:.T%!&5|
00000c60  38 30 30 3a ed 3a d6 26  44 30 30 3a e3 54 25 3d  |800:.:.&D00:.T%=|
00000c70  30 b8 33 31 88 34 3a f3  54 25 21 26 35 39 34 30  |0.31.4:.T%!&5940|
00000c80  3a ed 3a d6 26 44 30 30  3a ef 32 38 2c 30 2c 33  |:.:.&D00:.28,0,3|
00000c90  30 2c 31 2c 30 3a 53 59  25 3d 37 2b b3 28 34 29  |0,1,0:SY%=7+.(4)|
00000ca0  2a 35 3a e3 54 25 3d 30  b8 53 59 25 3a ef 33 30  |*5:.T%=0.SY%:.30|
00000cb0  2c 31 31 3a e7 54 25 83  32 3d 30 d6 26 44 30 30  |,11:.T%.2=0.&D00|
00000cc0  0d 02 62 0b ed 3a ef 32  36 3a e1 0d 02 6c 43 dd  |..b..:.26:...lC.|
00000cd0  f2 41 3a f7 8d 74 58 43  3a f2 4d 55 53 3a ef 32  |.A:..tXC:.MUS:.2|
00000ce0  38 2c 30 2c 33 30 2c 31  2c 30 3a e3 54 25 3d 30  |8,0,30,1,0:.T%=0|
00000cf0  b8 33 30 3a ef 33 31 2c  31 2c 32 39 2c 39 2c 31  |.30:.31,1,29,9,1|
00000d00  30 3a e7 54 25 83 32 3d  30 d6 26 44 30 30 0d 02  |0:.T%.2=0.&D00..|
00000d10  76 16 ed 3a ef 32 36 3a  44 25 3d 44 25 2b 31 3a  |v..:.26:D%=D%+1:|
00000d20  f2 44 3a e1 0d 02 80 45  dc 26 30 2c 26 31 30 30  |.D:....E.&0,&100|
00000d30  30 30 30 30 30 2c 26 45  39 46 43 37 36 33 33 2c  |00000,&E9FC7633,|
00000d40  26 39 41 30 46 45 39 43  42 2c 26 42 38 46 43 45  |&9A0FE9CB,&B8FCE|
00000d50  30 43 43 2c 26 39 41 30  46 37 38 31 45 2c 30 2c  |0CC,&9A0F781E,0,|
00000d60  26 38 38 30 30 30 30 30  30 0d 02 8a 49 dc 26 46  |&88000000...I.&F|
00000d70  30 37 30 33 30 31 2c 26  31 31 30 46 2c 26 46 30  |070301,&110F,&F0|
00000d80  46 30 46 30 46 2c 26 31  31 37 37 46 46 30 46 2c  |F0F0F,&1177FF0F,|
00000d90  26 46 30 46 30 46 30 46  2c 26 38 30 45 38 46 45  |&F0F0F0F,&80E8FE|
00000da0  30 46 2c 26 33 46 36 45  34 43 38 38 2c 26 38 30  |0F,&3F6E4C88,&80|
00000db0  30 46 0d 02 94 2c dd f2  4d 3a f2 44 3a e7 53 43  |0F...,..M:.D:.SC|
00000dc0  25 83 32 3d 30 84 53 43  25 3d 35 ef 32 38 2c 34  |%.2=0.SC%=5.28,4|
00000dd0  2c 32 38 2c 31 36 2c 32  2c 31 32 2c 32 36 0d 02  |,28,16,2,12,26..|
00000de0  9e 83 e7 53 43 25 3d 31  f7 8d 74 7c 42 3a e3 53  |...SC%=1..t|B:.S|
00000df0  25 3d 31 b8 36 3a f3 51  25 2c 57 25 3a f2 42 41  |%=1.6:.Q%,W%:.BA|
00000e00  54 28 51 25 2b 33 32 2c  57 25 2b 33 32 2d 28 31  |T(Q%+32,W%+32-(1|
00000e10  36 30 80 53 25 3c 34 29  29 3a ed 3a ef 31 38 2c  |60.S%<4)):.:.18,|
00000e20  30 2c 32 2c 35 3a e3 53  25 3d 30 b8 31 3a ec 36  |0,2,5:.S%=0.1:.6|
00000e30  32 34 2c 28 32 36 2d 53  25 2a 32 30 29 2a 33 32  |24,(26-S%*20)*32|
00000e40  2d 34 3a e3 54 25 3d 30  b8 33 3a ef 32 33 34 2c  |-4:.T%=0.3:.234,|
00000e50  32 33 34 2c 38 2c 38 2c  31 30 3a ed 3a ed 3a ef  |234,8,8,10:.:.:.|
00000e60  34 0d 02 a8 96 e7 53 43  25 3d 32 e3 54 25 3d 30  |4.....SC%=2.T%=0|
00000e70  b8 32 3a ec 54 25 2a 32  35 36 2b 33 38 30 2c 38  |.2:.T%*256+380,8|
00000e80  35 34 2d 28 54 25 83 32  29 2a 35 31 32 3a ef 35  |54-(T%.2)*512:.5|
00000e90  2c 31 38 2c 30 2c 32 2c  32 33 32 2c 32 33 32 2c  |,18,0,2,232,232,|
00000ea0  38 2c 38 2c 31 38 2c 30  2c 31 2c 32 32 34 2c 32  |8,8,18,0,1,224,2|
00000eb0  32 34 2c 38 2c 38 2c 31  38 2c 30 2c 36 2c 39 35  |24,8,8,18,0,6,95|
00000ec0  2c 39 35 3a f2 49 43 4b  28 54 25 2a 32 35 36 2b  |,95:.ICK(T%*256+|
00000ed0  33 38 30 2c 38 35 34 2b  36 34 2d 28 54 25 83 32  |380,854+64-(T%.2|
00000ee0  29 2a 35 31 32 29 3a ed  3a f2 53 50 49 44 28 36  |)*512):.:.SPID(6|
00000ef0  33 36 2c 37 34 32 29 0d  02 b2 2c e7 53 43 25 3d  |36,742)...,.SC%=|
00000f00  33 f7 8d 74 7c 42 3a e3  53 25 3d 31 b8 36 3a f3  |3..t|B:.S%=1.6:.|
00000f10  51 25 2c 57 25 3a f2 46  28 51 25 2d 38 2c 57 25  |Q%,W%:.F(Q%-8,W%|
00000f20  29 3a ed 0d 02 bc 34 dc  36 33 32 2c 36 33 36 2c  |):....4.632,636,|
00000f30  33 37 36 2c 37 39 36 2c  38 38 38 2c 37 39 36 2c  |376,796,888,796,|
00000f40  36 33 32 2c 34 37 36 2c  38 38 38 2c 33 31 36 2c  |632,476,888,316,|
00000f50  33 37 36 2c 33 31 36 0d  02 c6 b6 e7 53 43 25 3d  |376,316.....SC%=|
00000f60  34 f2 53 50 49 44 28 33  37 36 2c 33 30 30 29 3a  |4.SPID(376,300):|
00000f70  f2 53 50 49 44 28 38 38  38 2c 33 30 30 29 3a e3  |.SPID(888,300):.|
00000f80  54 25 3d 32 32 b8 32 39  3a ec 36 33 32 2c 28 33  |T%=22.29:.632,(3|
00000f90  32 2d 54 25 29 2a 33 32  2d 34 3a ef 35 2c 31 38  |2-T%)*32-4:.5,18|
00000fa0  2c 30 2c 32 2c 32 33 32  2c 32 33 32 2c 38 2c 38  |,0,2,232,232,8,8|
00000fb0  2c 31 38 2c 30 2c 31 2c  32 32 34 2c 32 32 34 2c  |,18,0,1,224,224,|
00000fc0  38 2c 38 2c 31 30 3a ed  3a f2 49 43 4b 28 36 33  |8,8,10:.:.ICK(63|
00000fd0  32 2c 33 38 30 29 3a e3  54 25 3d 30 b8 31 3a ec  |2,380):.T%=0.1:.|
00000fe0  54 25 2a 31 32 30 2b 36  33 32 2c 33 32 3a e6 30  |T%*120+632,32:.0|
00000ff0  2c 33 3a f0 31 2c 30 2c  32 38 34 3a e6 30 2c 31  |,3:.1,0,284:.0,1|
00001000  3a f0 31 37 2c 30 2c 2d  32 38 34 3a ed 0d 02 d0  |:.17,0,-284:....|
00001010  bd e7 53 43 25 3c 3e 35  e1 20 8b 20 f7 8d 64 5a  |..SC%<>5. . ..dZ|
00001020  42 3a 21 26 37 30 3d 41  53 25 2b 28 b3 28 34 29  |B:!&70=AS%+(.(4)|
00001030  2d 31 29 2a 33 32 3a e3  54 25 3d 31 b8 34 3a 42  |-1)*32:.T%=1.4:B|
00001040  25 3d b3 28 32 38 29 3a  f3 4d 25 3a 54 45 4d 50  |%=.(28):.M%:TEMP|
00001050  59 25 3d 59 25 3a 59 25  3d 42 25 3a 54 45 4d 50  |Y%=Y%:Y%=B%:TEMP|
00001060  58 25 3d 58 25 3a 58 25  3d 4d 25 3a d6 26 32 42  |X%=X%:X%=M%:.&2B|
00001070  30 30 3a 41 25 3d 21 26  38 30 20 80 20 26 46 46  |00:A%=!&80 . &FF|
00001080  46 46 3a 59 25 3d 54 45  4d 50 59 25 3a 58 25 3d  |FF:Y%=TEMPY%:X%=|
00001090  54 45 4d 50 58 25 3a 41  48 25 3f 54 25 3d 41 25  |TEMPX%:AH%?T%=A%|
000010a0  81 32 35 36 3a 41 4c 25  3f 54 25 3d 41 25 83 32  |.256:AL%?T%=A%.2|
000010b0  35 36 3a 41 59 25 3f 54  25 3d 42 25 3a 41 44 25  |56:AY%?T%=B%:AD%|
000010c0  3f 54 25 3d b3 28 32 29  3a ed 0d 02 da 10 dc 31  |?T%=.(2):......1|
000010d0  36 2c 32 34 2c 36 30 2c  36 36 0d 02 e4 7d fb 30  |6,24,60,66...}.0|
000010e0  3a f1 8a 34 2c 33 30 29  3b 89 28 31 34 29 3b 8a  |:..4,30);.(14);.|
000010f0  34 2c 31 29 3b 89 28 31  34 29 3b 3a 3f 26 37 35  |4,1);.(14);:?&75|
00001100  3d 30 3a d6 26 44 44 36  3a fb 35 3a fb 31 33 30  |=0:.&DD6:.5:.130|
00001110  3a f1 8a 37 2c 33 30 29  22 20 20 20 20 20 20 20  |:..7,30)"       |
00001120  20 22 3a e6 30 2c 31 3a  f0 34 2c 34 35 34 2c 36  | ":.0,1:.4,454,6|
00001130  30 3a ef 35 2c 32 32 34  2c 32 32 34 2c 32 32 34  |0:.5,224,224,224|
00001140  2c 32 32 34 2c 32 32 34  2c 32 32 34 2c 32 32 34  |,224,224,224,224|
00001150  2c 32 32 34 3a ef 34 0d  02 ee 56 fb 31 32 38 3a  |,224:.4...V.128:|
00001160  fb 31 3a f1 8a 37 2c 32  39 29 22 f8 e8 e8 20 20  |.1:..7,29)"...  |
00001170  e8 e8 f9 22 3b 8a 37 2c  32 38 29 22 20 20 e8 20  |...";.7,28)"  . |
00001180  20 e8 22 3b 8a 37 2c 32  37 29 22 fa 20 e8 20 20  | .";.7,27)". .  |
00001190  e8 20 fb 22 3b 8a 37 2c  32 36 29 22 e8 fb e8 e8  |. .";.7,26)"....|
000011a0  e8 e8 fa e8 22 3b 8a 37  2c 32 35 29 3b 0d 02 f8  |....";.7,25);...|
000011b0  af f1 22 88 88 88 88 88  88 88 88 22 8a 37 2c 32  |.."........".7,2|
000011c0  34 29 22 98 88 99 9a 9b  98 88 99 22 8a 38 2c 32  |4)"........".8,2|
000011d0  33 29 22 98 88 88 88 88  99 22 8a 39 2c 32 32 29  |3)"......".9,22)|
000011e0  22 88 88 88 88 22 8a 39  2c 32 31 29 22 98 88 88  |"....".9,21)"...|
000011f0  99 22 3a fb 32 3a f1 8a  31 30 2c 32 33 29 22 88  |.":.2:..10,23)".|
00001200  88 22 3a ef 35 2c 31 38  2c 30 2c 33 3a ec 36 34  |.":.5,18,0,3:.64|
00001210  30 2c 33 32 30 3a ef 32  34 36 2c 32 34 37 2c 38  |0,320:.246,247,8|
00001220  2c 38 2c 31 38 2c 30 2c  34 2c 32 34 35 2c 32 34  |,8,18,0,4,245,24|
00001230  34 2c 34 3a fb 31 32 39  3a fb 30 3a f1 8a 31 30  |4,4:.129:.0:..10|
00001240  2c 32 35 29 22 9a 9b 22  3a fb 31 32 38 3a f2 53  |,25)"..":.128:.S|
00001250  50 49 44 28 36 34 30 2c  35 38 30 29 0d 03 02 7f  |PID(640,580)....|
00001260  fb 32 3a e3 54 25 3d 31  b8 39 3a ef 33 31 2c 37  |.2:.T%=1.9:.31,7|
00001270  2c 54 25 2c 32 33 34 2c  32 33 34 2c 33 31 2c 31  |,T%,234,234,31,1|
00001280  33 2c 54 25 2c 32 33 34  2c 32 33 34 3a ed 3a fb  |3,T%,234,234:.:.|
00001290  31 3a fb 31 33 30 3a ef  33 31 2c 37 2c 31 30 2c  |1:.130:.31,7,10,|
000012a0  32 32 34 2c 32 32 34 2c  33 31 2c 31 33 2c 31 30  |224,224,31,13,10|
000012b0  2c 32 32 34 2c 32 32 34  3a fb 31 32 38 3a f2 42  |,224,224:.128:.B|
000012c0  41 54 28 34 38 30 2c 36  36 38 29 3a f2 42 41 54  |AT(480,668):.BAT|
000012d0  28 38 36 34 2c 36 36 38  29 3a e1 0d 03 0c 2a dd  |(864,668):....*.|
000012e0  f2 53 43 3a fb 37 3a f1  8a 38 2c 33 31 29 3b c4  |.SC:.7:..8,31);.|
000012f0  36 2d a9 28 c3 28 46 25  29 29 2c 22 30 22 29 3b  |6-.(.(F%)),"0");|
00001300  46 25 3b 3a e1 0d 03 16  b2 dd f2 48 3a e3 54 25  |F%;:.......H:.T%|
00001310  3d 31 b8 33 88 32 3a 55  25 3d 31 32 38 30 2d 54  |=1.3.2:U%=1280-T|
00001320  25 2a 31 36 3a 56 25 3d  31 30 32 34 2d 54 25 2a  |%*16:V%=1024-T%*|
00001330  31 36 3a ec 54 25 2a 38  2c 54 25 2a 38 3a f0 31  |16:.T%*8,T%*8:.1|
00001340  2c 55 25 2c 30 3a f0 31  2c 30 2c 56 25 3a f0 31  |,U%,0:.1,0,V%:.1|
00001350  2c 2d 55 25 2c 30 3a f0  31 2c 30 2c 2d 56 25 3a  |,-U%,0:.1,0,-V%:|
00001360  ed 3a e3 54 25 3d 39 b8  30 88 2d 31 3a f1 8a 33  |.:.T%=9.0.-1:..3|
00001370  2c 32 32 2d 54 25 2a 32  29 22 20 22 53 25 28 54  |,22-T%*2)" "S%(T|
00001380  25 29 3b 22 2e 2e 2e 2e  2e 2e 2e 2e 2e 22 3b 53  |%);".........";S|
00001390  24 28 54 25 29 27 3a ed  3a f1 8a 31 30 2c 32 37  |$(T%)':.:..10,27|
000013a0  29 22 53 65 6c 65 63 74  20 4c 65 76 65 6c 20 28  |)"Select Level (|
000013b0  31 2d 35 29 22 3a e1 0d  03 20 15 dd f2 43 3a db  |1-5)":... ...C:.|
000013c0  3a e7 46 25 3c 3d 53 25  28 30 29 e1 0d 03 2a 0b  |:.F%<=S%(0)...*.|
000013d0  2a 46 58 31 35 2c 30 0d  03 34 34 f1 8a 31 35 2c  |*FX15,0..44..15,|
000013e0  36 29 22 47 6f 6f 64 20  53 63 6f 72 65 22 8a 39  |6)"Good Score".9|
000013f0  2c 39 29 22 50 6c 65 61  73 65 20 65 6e 74 65 72  |,9)"Please enter|
00001400  20 79 6f 75 72 20 6e 61  6d 65 22 0d 03 3e 8a 4b  | your name"..>.K|
00001410  25 3d 2d 31 3a ef 32 38  2c 31 34 2c 31 31 2c 32  |%=-1:.28,14,11,2|
00001420  37 2c 31 31 2c 33 30 3a  21 26 34 30 30 30 3d 26  |7,11,30:!&4000=&|
00001430  35 30 30 30 3a 3f 26 34  30 30 32 3d 31 32 3a 3f  |5000:?&4002=12:?|
00001440  26 34 30 30 33 3d 33 32  3a 3f 26 34 30 30 34 3d  |&4003=32:?&4004=|
00001450  31 32 37 3a 58 25 3d 30  3a 59 25 3d 26 34 30 3a  |127:X%=0:Y%=&40:|
00001460  41 25 3d 30 3a d6 26 46  46 46 31 3a 54 24 3d 24  |A%=0:.&FFF1:T$=$|
00001470  26 35 30 30 30 3a e3 54  25 3d 39 b8 30 88 2d 31  |&5000:.T%=9.0.-1|
00001480  3a e7 46 25 3e 53 25 28  54 25 29 4b 25 3d 54 25  |:.F%>S%(T%)K%=T%|
00001490  3a 54 25 3d 30 0d 03 48  50 ed 3a e7 4b 25 3e 2d  |:T%=0..HP.:.K%>-|
000014a0  31 e3 54 25 3d 31 b8 4b  25 3a 53 25 28 54 25 2d  |1.T%=1.K%:S%(T%-|
000014b0  31 29 3d 53 25 28 54 25  29 3a 53 24 28 54 25 2d  |1)=S%(T%):S$(T%-|
000014c0  31 29 3d 53 24 28 54 25  29 3a ed 3a 53 25 28 4b  |1)=S$(T%):.:S%(K|
000014d0  25 29 3d 46 25 3a 53 24  28 4b 25 29 3d 54 24 3a  |%)=F%:S$(K%)=T$:|
000014e0  47 25 3d 4b 25 0d 03 52  05 e1 0d 03 5c 20 dd f2  |G%=K%..R....\ ..|
000014f0  44 3a fb 30 3a f1 8a 31  36 2c 33 31 29 3b 22 20  |D:.0:..16,31);" |
00001500  20 22 3b 3a e7 44 25 3d  30 e1 0d 03 66 33 ef 35  | ";:.D%=0...f3.5|
00001510  2c 31 38 2c 30 2c 31 3a  e3 54 25 3d 30 b8 44 25  |,18,0,1:.T%=0.D%|
00001520  2d 31 3a ec 31 30 32 34  2b 54 25 2a 32 34 2c 33  |-1:.1024+T%*24,3|
00001530  30 3a ef 32 33 33 3a ed  3a ef 34 3a e1 0d 03 70  |0:.233:.:.4:...p|
00001540  3f dd f2 42 4f 4e 45 3a  54 25 3d 91 20 81 31 30  |?..BONE:T%=. .10|
00001550  30 3a 54 25 3d 36 30 2d  54 25 3a 54 25 3d 54 25  |0:T%=60-T%:T%=T%|
00001560  2a 28 53 43 25 2b 31 29  2a 35 3a 46 25 3d 28 46  |*(SC%+1)*5:F%=(F|
00001570  25 2b 54 25 29 83 20 31  45 35 3a e1 0d 03 7a 6d  |%+T%). 1E5:...zm|
00001580  dd f2 42 41 52 3a ef 32  34 2c 31 36 30 3b 31 30  |..BAR:.24,160;10|
00001590  30 33 3b 31 32 34 39 3b  31 30 31 39 3b 31 36 2c  |03;1249;1019;16,|
000015a0  32 36 2c 31 38 2c 30 2c  31 32 38 3a e6 30 2c 32  |26,18,0,128:.0,2|
000015b0  3a ec 31 32 33 33 2c 31  30 31 31 3a f0 31 2c 2d  |:.1233,1011:.1,-|
000015c0  35 32 39 2c 30 3a e6 30  2c 33 3a f0 31 2c 2d 32  |529,0:.0,3:.1,-2|
000015d0  36 34 2e 35 2c 30 3a e6  30 2c 31 3a f0 31 2c 2d  |64.5,0:.0,1:.1,-|
000015e0  32 36 34 2e 35 2c 30 3a  e1 0d 03 84 65 dd f2 53  |264.5,0:....e..S|
000015f0  50 49 44 28 51 25 2c 57  25 29 3a ec 51 25 2b 33  |PID(Q%,W%):.Q%+3|
00001600  32 2c 57 25 3a ef 35 2c  31 38 2c 30 2c 37 2c 32  |2,W%:.5,18,0,7,2|
00001610  33 35 3a ec 51 25 2c 57  25 3a ef 31 38 2c 30 2c  |35:.Q%,W%:.18,0,|
00001620  31 2c 32 33 39 2c 32 33  37 2c 34 2c 31 38 2c 30  |1,239,237,4,18,0|
00001630  2c 32 3a ec 51 25 2b 36  34 2c 57 25 2b 34 3a f0  |,2:.Q%+64,W%+4:.|
00001640  32 31 2c 51 25 2b 36 34  2c 39 39 36 3a e1 0d 03  |21,Q%+64,996:...|
00001650  8e 36 dc 38 34 2c 39 32  2c 37 36 2c 31 30 30 2c  |.6.84,92,76,100,|
00001660  36 38 2c 39 32 2c 37 36  2c 31 30 30 2c 31 30 38  |68,92,76,100,108|
00001670  2c 31 30 30 2c 31 30 38  2c 31 30 30 2c 31 31 36  |,100,108,100,116|
00001680  2c 39 39 39 0d 03 98 1c  dc 31 30 38 2c 31 30 30  |,999.....108,100|
00001690  2c 31 30 38 2c 31 31 36  2c 31 30 30 2c 39 39 39  |,108,116,100,999|
000016a0  0d 03 a2 1e dc 36 38 2c  38 34 2c 37 36 2c 39 32  |.....68,84,76,92|
000016b0  2c 38 34 2c 31 30 30 2c  38 34 2c 39 39 39 0d 03  |,84,100,84,999..|
000016c0  ac 29 dc 37 32 2c 37 36  2c 37 32 2c 36 38 2c 37  |.).72,76,72,68,7|
000016d0  32 2c 37 36 2c 36 38 2c  36 30 2c 35 32 2c 36 38  |2,76,68,60,52,68|
000016e0  2c 35 32 2c 39 39 39 0d  03 b6 21 dd f2 4d 55 53  |,52,999...!..MUS|
000016f0  3a f5 3a f3 50 3a e7 50  3c 3e 39 39 39 d4 32 2c  |:.:.P:.P<>999.2,|
00001700  32 2c 50 2b 34 39 2c 33  0d 03 c0 18 fd 50 3d 39  |2,P+49,3.....P=9|
00001710  39 39 3a f5 3a fd 96 28  2d 37 29 3d 31 35 3a e1  |99:.:..(-7)=15:.|
00001720  0d 03 ca 9c dd f2 46 28  51 25 2c 57 25 29 3a ec  |......F(Q%,W%):.|
00001730  51 25 2d 32 2c 57 25 2d  b4 28 b3 29 2a 34 3a e6  |Q%-2,W%-.(.)*4:.|
00001740  33 2c 38 3a f2 42 41 3a  ec 51 25 2b 38 2c 57 25  |3,8:.BA:.Q%+8,W%|
00001750  3a e6 33 2c 31 35 3a f2  42 41 3a ec 51 25 2b 38  |:.3,15:.BA:.Q%+8|
00001760  2c 57 25 2d 38 3a f1 3b  22 05 12 00 03 f6 f7 08  |,W%-8:.;".......|
00001770  08 12 00 00 f5 f4 04 12  00 02 22 3b 3a 57 25 3d  |..........";:W%=|
00001780  57 25 2b 33 32 3a ec 51  25 2d 38 2c 57 25 3a f0  |W%+32:.Q%-8,W%:.|
00001790  31 2c 30 2c 2d 31 32 38  3a e3 54 25 3d 33 34 b8  |1,0,-128:.T%=34.|
000017a0  31 32 38 88 33 32 3a ec  54 25 2b 51 25 2c 57 25  |128.32:.T%+Q%,W%|
000017b0  3a f0 31 2c 30 2c 2d 31  32 38 3a ed 0d 03 d4 2b  |:.1,0,-128:....+|
000017c0  ec 51 25 2d 38 2c 57 25  3a f0 31 2c 31 33 36 2c  |.Q%-8,W%:.1,136,|
000017d0  30 3a f0 31 2c 30 2c 2d  31 32 38 3a f0 31 2c 2d  |0:.1,0,-128:.1,-|
000017e0  31 33 36 2c 30 3a e1 0d  03 de 19 dd f2 42 41 3a  |136,0:.......BA:|
000017f0  f1 3b 22 05 f8 f9 08 08  0a fa fb 04 22 3b 3a e1  |.;".........";:.|
00001800  0d 03 e8 40 dd f2 42 41  54 28 51 25 2c 57 25 29  |...@..BAT(Q%,W%)|
00001810  3a ec 51 25 2c 57 25 3a  f1 3b 22 05 12 00 03 ff  |:.Q%,W%:.;".....|
00001820  08 12 00 01 fe 08 0a fd  12 00 07 08 fc 04 12 00  |................|
00001830  01 22 3b 3a f0 36 35 2c  2d 33 32 2c 2d 38 3a e1  |.";:.65,-32,-8:.|
00001840  0d 03 f2 58 dd f2 49 43  4b 28 51 25 2c 57 25 29  |...X..ICK(Q%,W%)|
00001850  3a ef 35 3a ec 51 25 2c  57 25 3a f1 3b 22 12 00  |:.5:.Q%,W%:.;"..|
00001860  05 f8 f9 08 08 12 00 03  f6 f7 08 08 12 00 04 f5  |................|
00001870  f4 08 08 0a 12 00 02 ee  f0 08 22 3b 3a ef 32 35  |..........";:.25|
00001880  2c 30 2c 2d 33 32 3b 31  32 3b 31 38 2c 30 2c 31  |,0,-32;12;18,0,1|
00001890  2c 32 32 36 2c 34 3a e1  0d 03 fc 3a dd f2 4a 4f  |,226,4:....:..JO|
000018a0  59 53 45 54 3a 41 44 44  52 45 53 53 25 3d 28 21  |YSET:ADDRESS%=(!|
000018b0  26 31 34 30 20 80 26 46  46 46 46 29 3a e7 20 41  |&140 .&FFFF):. A|
000018c0  44 44 52 45 53 53 25 3d  30 20 6a 6f 79 25 3d 30  |DDRESS%=0 joy%=0|
000018d0  3a e1 0d 04 06 1a 49 4e  56 45 52 54 25 3d 3f 26  |:.....INVERT%=?&|
000018e0  31 34 32 3a de 20 42 49  54 25 20 32 0d 04 10 17  |142:. BIT% 2....|
000018f0  e3 20 46 25 3d 32 b8 34  3a e3 20 42 59 54 25 3d  |. F%=2.4:. BYT%=|
00001900  30 b8 33 0d 04 1a 33 4e  4c 25 3d 28 42 59 54 25  |0.3...3NL%=(BYT%|
00001910  3f 26 31 34 33 29 20 80  31 35 3a e7 20 4e 4c 25  |?&143) .15:. NL%|
00001920  3d 46 25 20 42 49 54 25  3f 28 46 25 2d 32 29 3d  |=F% BIT%?(F%-2)=|
00001930  42 59 54 25 2a 32 0d 04  24 3b 4e 48 25 3d 28 28  |BYT%*2..$;NH%=((|
00001940  42 59 54 25 3f 26 31 34  33 29 20 80 32 34 30 29  |BYT%?&143) .240)|
00001950  81 31 36 3a e7 20 4e 48  25 3d 46 25 20 42 49 54  |.16:. NH%=F% BIT|
00001960  25 3f 28 46 25 2d 32 29  3d 42 59 54 25 2a 32 2b  |%?(F%-2)=BYT%*2+|
00001970  31 0d 04 2e 05 ed 0d 04  38 05 ed 0d 04 42 37 6c  |1.......8....B7l|
00001980  65 66 74 25 3d 32 5e 28  42 49 54 25 3f 30 29 3a  |eft%=2^(BIT%?0):|
00001990  72 69 67 68 74 25 3d 32  5e 28 42 49 54 25 3f 31  |right%=2^(BIT%?1|
000019a0  29 3a 66 69 72 65 25 3d  32 5e 28 42 49 54 25 3f  |):fire%=2^(BIT%?|
000019b0  32 29 0d 04 4c 0b 6a 6f  79 25 3d 2d 31 0d 04 56  |2)..L.joy%=-1..V|
000019c0  05 e1 0d ff                                       |....|
000019c4
J5DEV1.m0
J5DEV1.m1
J5DEV1.m2
J5DEV1.m4
J5DEV1.m5