Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape05b_acorn_computer_hits_3.wav » UXB

UXB

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 tapes » Commercial_Releases » box05_tape05b_acorn_computer_hits_3.wav
Filename: UXB
Read OK:
File size: 0FF4 bytes
Load address: 1900
Exec address: 8023
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
    1REM   DANGER UXB
    2REM   ELECTRON VERS.
    3REM   BY PETER AVERILL
    5*L.
   10ONERRORGOTO30
   20DIMHI%(6,2),N$(6,2):FORA=0TO6:FORB=0TO2:N$(A,B)=LEFT$($(&E00+12*B+36*A),11):HI%(A,B)=5000*(6-A):NEXT,
   30MODE1:VDU19,3,4;0;:A%=7:FORX%=0TO15:Y%=0:CALL&B70:Y%=15:CALL&B70:NEXT:FORY%=1TO14:X%=0:CALL&B70:X%=15:CALL&B70:NEXT
   35A%=3:Y%=2:SOUND&11,1,100,25:FORX%=3TO12:CALL&B70:NEXT:GCOL0,2:VDU5:MOVE332,872:PRINT"D A N G E R   U X B":VDU4:COLOUR2:PRINTTAB(8,10)"DO YOU WANT SOUND (Y/N)?";;:REPEAT:A=GET:UNTILA=89ORA=78:IFA=89K%=1ELSEK%=0
   45VDUA:?&F17=K%:PRINTTAB(8,17)"WHICH SKILL LEVEL (1-3)?";:REPEAT:Ll%=GET-48:UNTIL Ll%>0ANDLl%<4:?&F22=Ll%:PRINT;Ll%:PRINTTAB(9,25)"PRESS ANY KEY TO START";:A=GET:MODE1:PROCI:VDU4,28,4,31,36,0,23;8202;0;0;0;19,3,4;0;
   50PROCB:PROCY(500)
   60REPEAT:CALL&121A:D%=?&F1D:IFD%THEN190
   90IF?&F00>4 ANDLl%<3 PROCY(20-?&F00):UNTILD%:GOTO200
  100IFLl%<3 PROCY(20):UNTILD%:GOTO200
  105PROCY(7-7*(?&F00<5))
  110CALL&1300:D%=?&F1D
  190UNTILD%:L%=?&F19:M%=?&F1A:XM%=?&F15:YM%=?&F16:N%=?&F1C
  200IFD%=4 ?&F00=?&F00-(?&F00<15):LF%=LF%-(?&F00=5):FORA=24TO54:SOUND1,(A MOD4+1)*K%,4*A,2:NEXT:PROCX:GOTO50
  210IFD%=1PROCBA(XM%,YM%)
  220IFD%=3PROCTOOLATE(L%/2,M%/2,XM%,YM%)
  230IFD%=2PROCBC(N%?&F00,N%?&F04)
  240IFD%=5PROCBC(XM%,YM%)
  250PROCY(500):SOUND&11,-14*K%,37,20:FORA=&B5CTO&B6D STEP2:SOUND1,-14*K%,?A,?(A+1):NEXT:LF%=LF%-1:IFLF%>0THEN50
  260COLOUR2:PRINTTAB(11,14)SPC(12)TAB(11,16)SPC(12)TAB(11,15)" GAME  OVER "TAB(26,1);0:PROCY(3000):SC%=0:FORA%=0TO2:SC%=SC%+(A%?&F1E MOD16+10*(A%?&F1E DIV16))*100^A%:NEXT:IFSC%>HI%(5,Ll%-1) PROCNEWHI
  270PROCHSS:LF%=3:S%=1:?&F00=1:!&F1E=0:GOTO50
  590DEFPROCI:LF%=3:S%=1:!&F1E=0:SK$=CHR$224+CHR$225+CHR$10+CHR$8+CHR$8+CHR$226+CHR$227:?&F00=S%:ENDPROC
  600DEFPROCB:?&F1B=0:CLS:?&F1C=1:COLOUR2:PRINTTAB(2,0)"<SHEET>   <SCORE>    <LIVES>"TAB(5,1);?&F00TAB(26,1);LF%TAB(12,1)"0":A%=0:CALL&12A9:?&F23=0:D%=0:?&F1D=D%
  610CALL&DE0:A%=7:B%=1:FORX1%=0TO10STEP5:FORY1%=0TO7STEP7:X%=RND(4)+X1%:Y%=RND(7)+Y1%:?FNA(X%,Y%)=7:B%?&F08=X%:B%?&F0E=Y%:B%=B%+1:CALL&B70:NEXT,
  620IF?FNA(8,7)=3 ?&F15=8:?&F16=7:?FNA(8,7)=5 ELSE ?&F15=7:?&F16=7:?FNA(7,7)=5
  630A%=5:X%=?&F15:Y%=?&F16:CALL&B70
  640IFLl%<3THEN670
  650?FNA(5,1)=11:X%=5:Y%=1:A%=11:CALL&B70:?&F01=5:?&F05=1
  660IF?&F00>1 ?FNA(5,14)=11:X%=5:Y%=14:CALL&B70:?&F02=5:?&F06=14:IF?&F00>2 ?FNA(10,1)=11:X%=10:Y%=1:CALL&B70:?&F03=10:?&F07=1:IF?&F00>3 ?FNA(10,14)=11:X%=10:Y%=14:CALL&B70:?&F04=10:?&F08=14
  670?&F21=16*((41-20*(Ll%=1))DIV10)+(41-20*(Ll%=1))MOD10:?&F18=RND(6):?&F19=(?(&F08+?&F18))*2:?&F1A=(?(&F0E+?&F18))*2:X%=(?&F19)DIV2:Y%=(?&F1A)DIV2:A%=9:CALL&B70:?FNA(X%,Y%)=9
  680A%=13:FORX1%=1TO(?&F00+2-2*(?&F00>5)):REPEAT:X%=RND(14):Y%=RND(14):UNTIL?FNA(X%,Y%)=3:CALL&B70:?FNA(X%,Y%)=13:NEXT
  690IF?&F00<5 ENDPROC
  700A%=7:FORX1%=1TO(?&F00-4)*2:REPEAT:X%=RND(14):Y%=RND(14):UNTIL?FNA(X%,Y%)=3:?FNA(X%,Y%)=7:CALL&B70:NEXT:ENDPROC
  710DEFPROCBA(X%,Y%):A%=7:CALL&B70:FORN=1TO10:VDU19,0,7,0;0:FORM=15TO0STEP-1:SOUND&11,-15*K%,M,1:NEXT:VDU19,0;0;0:NEXT:ENDPROC
  720DEFPROCBC(X%,Y%):SOUND&11,3*K%,0,25:FORA=1TO100:A%=5:CALL&B70:A%=11:CALL&B70:NEXT:ENDPROC
  730DEFPROCHSS:CLS:COLOUR3:PRINTTAB(3,2)"DANGER UXB LEVEL ";Ll%" TOP SIX"TAB(3,3)STRING$(26,"_"):COLOUR1:PRINTTAB(5,6)"SCORE     NAME      RATING":COLOUR2
  740A=Ll%-1:FORA%=0TO5:B%=9+3*A%:N=HI%(A%,A)/1000:IFN>100R$="KING"ELSEIFN>50R$="MASTER"ELSEIFN>35R$="V.GOOD"ELSEIFN>20R$="GOOD"ELSEIFN>10R$="FAIR"ELSER$="POOR"
  741PRINTTAB(1,B%);A%+1"."TAB(5,B%);HI%(A%,A)TAB(12,B%)N$(A%,A)TAB(25,B%)R$:NEXT:COLOUR3:PRINTTAB(2,30)"Type SPACEBAR to play again.":REPEATUNTILINKEY(-99):ENDPROC
  750DEFPROCNEWHI:CLS:VDU19,1,14,0;0:COLOUR1:PRINTTAB(11,10)"WELL DONE!"TAB(5,11)"YOU ARE IN THE TOP SIX":SOUND&11,-15*K%,121,6:FORX1%=&B3CTO&B5B STEP2:X%=?X1%:Y%=?(X1%+1)*2
  760SOUND1,0,0,1:SOUND1,-15*K%,X%,Y%:NEXT:PRINTTAB(5,13)"PLEASE ENTER YOUR NAME"TAB(10,20)STRING$(11,"-")
  770REPEAT:UNTILINKEY$(0)="":N$="":PRINTTAB(10,20);:REPEAT:A%=GET:IFA%>31ANDA%<123 PRINTCHR$(A%);:N$=N$+CHR$(A%)
  780IFA%=127ANDLEN(N$)>0 PRINTCHR$127;"-";CHR$8;:N$=LEFT$(N$,(LEN(N$)-1))
  790UNTILLEN(N$)=11ORA%=13
  800A=Ll%-1:FORA%=5TO0STEP-1:IFSC%>HI%(A%,A) HI%(A%+1,A)=HI%(A%,A):N$(A%+1,A)=N$(A%,A):HI%(A%,A)=SC%:N$(A%,A)=N$
  810NEXT:CLS:VDU19,1,1,0;0:ENDPROC
  820DEFPROCTOOLATE(X%,Y%,I%,J%):SOUND&11,3*K%,108,50
  830X=SGN(I%-X%):IFI%=X% Y=SGN(J%-Y%) ELSE Y=ABS((J%-Y%)/(I%-X%))*SGN(J%-Y%)
  840I=X%:J=Y%:A=7:REPEAT:A%=A:CALL&B70:I=I+X:J=J+Y:X%=I+.5:Y%=J+.5:A=?FNA(X%,Y%):A%=7:CALL&B70:PROCY(30):UNTILX%=I%ANDY%=J%:SOUND&11,0,0,1:PROCBA(XM%,YM%):ENDPROC
  850 DEFPROCX:CLS:CALL&DE0:X1=RND(14):Y%=14:FORX%=1TO14:A%=7-6*(X%=X1):CALL&B70:NEXT
  860PRINTTAB(3,31)"PRESS Z KEY WHEN MAN MOVES";:PROCY(1200):SOUND&11,K%,70,255:X2=0:A%=5:x=0:y=0:FORY%=1TO13:FORX%=1TO14:CALL&B70:PRINTTAB(x*2,y*2)"  "TAB(x*2,y*2+1)"  ":x=X%:y=Y%:IFINKEY(-98) X2=X%:Y2=Y%:X%=14:Y%=13
  870NEXT,:SOUND&11,0,0,1:IFX2=0 PROCBA(14,13):ENDPROC ELSE SOUND&11,3*K%,100,100:X%=X2:FORY%=Y2 TO14:A%=5:CALL&B70:A%=1:Y%=Y%-1:CALL&B70:Y%=Y%+1:PROCY(25):NEXT:SOUND&11,0,0,1:IFX1<>X% PROCBA(X%,14):ENDPROC
  880B=4*(15-Y2):PRINTTAB(11,1)"BONUS=";B*100:VDU21:FORB%=1TOB:A%=160:CALL&12A9:NEXT:VDU6:FORB%=1TO10001STEP45:SOUND&11,-15*K%,B%,1:FORA%=1TO10:NEXT,:ENDPROC
  890DEFPROCY(X):FORN=1TOX:NEXT:ENDPROC
 1000DEFFNA(X,Y)=&E00+X+16*Y
�   DANGER UXB
�   ELECTRON VERS.
�   BY PETER AVERILL
*L.

��T^@
Y�HI%(6,2),N$(6,2):�A=0�6:�B=0�2:N$(A,B)=�$(&E00+12*B+36*A),11):HI%(A,B)=5000*(6-A):�,
Z�1:�19,3,4;0;:A%=7:�X%=0�15:Y%=0:�&B70:Y%=15:�&B70:�:�Y%=1�14:X%=0:�&B70:X%=15:�&B70:�
#�A%=3:Y%=2:�&11,1,100,25:�X%=3�12:�&B70:�:�0,2:�5:�332,872:�"D A N G E R   U X B":�4:�2:�8,10)"DO YOU WANT SOUND (Y/N)?";;:�:A=�:�A=89�A=78:�A=89K%=1�K%=0
-��A:?&F17=K%:�8,17)"WHICH SKILL LEVEL (1-3)?";:�:Ll%=�-48:� Ll%>0�Ll%<4:?&F22=Ll%:�;Ll%:�9,25)"PRESS ANY KEY TO START";:A=�:�1:�I:�4,28,4,31,36,0,23;8202;0;0;0;19,3,4;0;
2�B:�Y(500)
<�:�&121A:D%=?&F1D:�D%��t~@
Z*�?&F00>4 �Ll%<3 �Y(20-?&F00):�D%:�dH@
d�Ll%<3 �Y(20):�D%:�dH@
i�Y(7-7*(?&F00<5))
n�&1300:D%=?&F1D
�6�D%:L%=?&F19:M%=?&F1A:XM%=?&F15:YM%=?&F16:N%=?&F1C
�[�D%=4 ?&F00=?&F00-(?&F00<15):LF%=LF%-(?&F00=5):�A=24�54:�1,(A �4+1)*K%,4*A,2:�:�X:�Tr@
��D%=1�BA(XM%,YM%)
�$�D%=3�TOOLATE(L%/2,M%/2,XM%,YM%)
��D%=2�BC(N%?&F00,N%?&F04)
��D%=5�BC(XM%,YM%)
�Y�Y(500):�&11,-14*K%,37,20:�A=&B5C�&B6D �2:�1,-14*K%,?A,?(A+1):�:LF%=LF%-1:�LF%>0��Tr@
��2:�11,14)�(12)�11,16)�(12)�11,15)" GAME  OVER "�26,1);0:�Y(3000):SC%=0:�A%=0�2:SC%=SC%+(A%?&F1E �16+10*(A%?&F1E �16))*100^A%:�:�SC%>HI%(5,Ll%-1) �NEWHI
)�HSS:LF%=3:S%=1:?&F00=1:!&F1E=0:�Tr@
NG��I:LF%=3:S%=1:!&F1E=0:SK$=�224+�225+�10+�8+�8+�226+�227:?&F00=S%:�
X���B:?&F1B=0:�:?&F1C=1:�2:�2,0)"<SHEET>   <SCORE>    <LIVES>"�5,1);?&F00�26,1);LF%�12,1)"0":A%=0:�&12A9:?&F23=0:D%=0:?&F1D=D%
bv�&DE0:A%=7:B%=1:�X1%=0�10�5:�Y1%=0�7�7:X%=�(4)+X1%:Y%=�(7)+Y1%:?�A(X%,Y%)=7:B%?&F08=X%:B%?&F0E=Y%:B%=B%+1:�&B70:�,
lG�?�A(8,7)=3 ?&F15=8:?&F16=7:?�A(8,7)=5 � ?&F15=7:?&F16=7:?�A(7,7)=5
v A%=5:X%=?&F15:Y%=?&F16:�&B70
��Ll%<3��t^B
�5?�A(5,1)=11:X%=5:Y%=1:A%=11:�&B70:?&F01=5:?&F05=1
���?&F00>1 ?�A(5,14)=11:X%=5:Y%=14:�&B70:?&F02=5:?&F06=14:�?&F00>2 ?�A(10,1)=11:X%=10:Y%=1:�&B70:?&F03=10:?&F07=1:�?&F00>3 ?�A(10,14)=11:X%=10:Y%=14:�&B70:?&F04=10:?&F08=14
��?&F21=16*((41-20*(Ll%=1))�10)+(41-20*(Ll%=1))�10:?&F18=�(6):?&F19=(?(&F08+?&F18))*2:?&F1A=(?(&F0E+?&F18))*2:X%=(?&F19)�2:Y%=(?&F1A)�2:A%=9:�&B70:?�A(X%,Y%)=9
�^A%=13:�X1%=1�(?&F00+2-2*(?&F00>5)):�:X%=�(14):Y%=�(14):�?�A(X%,Y%)=3:�&B70:?�A(X%,Y%)=13:�
��?&F00<5 �
�TA%=7:�X1%=1�(?&F00-4)*2:�:X%=�(14):Y%=�(14):�?�A(X%,Y%)=3:?�A(X%,Y%)=7:�&B70:�:�
�Y��BA(X%,Y%):A%=7:�&B70:�N=1�10:�19,0,7,0;0:�M=15�0�-1:�&11,-15*K%,M,1:�:�19,0;0;0:�:�
�B��BC(X%,Y%):�&11,3*K%,0,25:�A=1�100:A%=5:�&B70:A%=11:�&B70:�:�
�l��HSS:�:�3:�3,2)"DANGER UXB LEVEL ";Ll%" TOP SIX"�3,3)�26,"_"):�1:�5,6)"SCORE     NAME      RATING":�2
�A=Ll%-1:�A%=0�5:B%=9+3*A%:N=HI%(A%,A)/1000:�N>100R$="KING"��N>50R$="MASTER"��N>35R$="V.GOOD"��N>20R$="GOOD"��N>10R$="FAIR"�R$="POOR"
�q�1,B%);A%+1"."�5,B%);HI%(A%,A)�12,B%)N$(A%,A)�25,B%)R$:�:�3:�2,30)"Type SPACEBAR to play again.":���(-99):�
���NEWHI:�:�19,1,14,0;0:�1:�11,10)"WELL DONE!"�5,11)"YOU ARE IN THE TOP SIX":�&11,-15*K%,121,6:�X1%=&B3C�&B5B �2:X%=?X1%:Y%=?(X1%+1)*2
�M�1,0,0,1:�1,-15*K%,X%,Y%:�:�5,13)"PLEASE ENTER YOUR NAME"�10,20)�11,"-")
G�:��(0)="":N$="":�10,20);:�:A%=�:�A%>31�A%<123 �(A%);:N$=N$+�(A%)
3�A%=127��(N$)>0 �127;"-";�8;:N$=�N$,(�(N$)-1))
��(N$)=11�A%=13
 iA=Ll%-1:�A%=5�0�-1:�SC%>HI%(A%,A) HI%(A%+1,A)=HI%(A%,A):N$(A%+1,A)=N$(A%,A):HI%(A%,A)=SC%:N$(A%,A)=N$
*�:�:�19,1,1,0;0:�
4+��TOOLATE(X%,Y%,I%,J%):�&11,3*K%,108,50
>@X=�(I%-X%):�I%=X% Y=�(J%-Y%) � Y=�((J%-Y%)/(I%-X%))*�(J%-Y%)
H�I=X%:J=Y%:A=7:�:A%=A:�&B70:I=I+X:J=J+Y:X%=I+.5:Y%=J+.5:A=?�A(X%,Y%):A%=7:�&B70:�Y(30):�X%=I%�Y%=J%:�&11,0,0,1:�BA(XM%,YM%):�
R? ��X:�:�&DE0:X1=�(14):Y%=14:�X%=1�14:A%=7-6*(X%=X1):�&B70:�
\��3,31)"PRESS Z KEY WHEN MAN MOVES";:�Y(1200):�&11,K%,70,255:X2=0:A%=5:x=0:y=0:�Y%=1�13:�X%=1�14:�&B70:�x*2,y*2)"  "�x*2,y*2+1)"  ":x=X%:y=Y%:�(-98) X2=X%:Y2=Y%:X%=14:Y%=13
f��,:�&11,0,0,1:�X2=0 �BA(14,13):� � �&11,3*K%,100,100:X%=X2:�Y%=Y2 �14:A%=5:�&B70:A%=1:Y%=Y%-1:�&B70:Y%=Y%+1:�Y(25):�:�&11,0,0,1:�X1<>X% �BA(X%,14):�
prB=4*(15-Y2):�11,1)"BONUS=";B*100:�21:�B%=1�B:A%=160:�&12A9:�:�6:�B%=1�10001�45:�&11,-15*K%,B%,1:�A%=1�10:�,:�
z��Y(X):�N=1�X:�:�
�ݤA(X,Y)=&E00+X+16*Y
�
00000000  0d 00 01 12 f4 20 20 20  44 41 4e 47 45 52 20 55  |.....   DANGER U|
00000010  58 42 0d 00 02 16 f4 20  20 20 45 4c 45 43 54 52  |XB.....   ELECTR|
00000020  4f 4e 20 56 45 52 53 2e  0d 00 03 18 f4 20 20 20  |ON VERS......   |
00000030  42 59 20 50 45 54 45 52  20 41 56 45 52 49 4c 4c  |BY PETER AVERILL|
00000040  0d 00 05 07 2a 4c 2e 0d  00 0a 0b ee 85 e5 8d 54  |....*L.........T|
00000050  5e 40 0d 00 14 59 de 48  49 25 28 36 2c 32 29 2c  |^@...Y.HI%(6,2),|
00000060  4e 24 28 36 2c 32 29 3a  e3 41 3d 30 b8 36 3a e3  |N$(6,2):.A=0.6:.|
00000070  42 3d 30 b8 32 3a 4e 24  28 41 2c 42 29 3d c0 24  |B=0.2:N$(A,B)=.$|
00000080  28 26 45 30 30 2b 31 32  2a 42 2b 33 36 2a 41 29  |(&E00+12*B+36*A)|
00000090  2c 31 31 29 3a 48 49 25  28 41 2c 42 29 3d 35 30  |,11):HI%(A,B)=50|
000000a0  30 30 2a 28 36 2d 41 29  3a ed 2c 0d 00 1e 5a eb  |00*(6-A):.,...Z.|
000000b0  31 3a ef 31 39 2c 33 2c  34 3b 30 3b 3a 41 25 3d  |1:.19,3,4;0;:A%=|
000000c0  37 3a e3 58 25 3d 30 b8  31 35 3a 59 25 3d 30 3a  |7:.X%=0.15:Y%=0:|
000000d0  d6 26 42 37 30 3a 59 25  3d 31 35 3a d6 26 42 37  |.&B70:Y%=15:.&B7|
000000e0  30 3a ed 3a e3 59 25 3d  31 b8 31 34 3a 58 25 3d  |0:.:.Y%=1.14:X%=|
000000f0  30 3a d6 26 42 37 30 3a  58 25 3d 31 35 3a d6 26  |0:.&B70:X%=15:.&|
00000100  42 37 30 3a ed 0d 00 23  9e 41 25 3d 33 3a 59 25  |B70:...#.A%=3:Y%|
00000110  3d 32 3a d4 26 31 31 2c  31 2c 31 30 30 2c 32 35  |=2:.&11,1,100,25|
00000120  3a e3 58 25 3d 33 b8 31  32 3a d6 26 42 37 30 3a  |:.X%=3.12:.&B70:|
00000130  ed 3a e6 30 2c 32 3a ef  35 3a ec 33 33 32 2c 38  |.:.0,2:.5:.332,8|
00000140  37 32 3a f1 22 44 20 41  20 4e 20 47 20 45 20 52  |72:."D A N G E R|
00000150  20 20 20 55 20 58 20 42  22 3a ef 34 3a fb 32 3a  |   U X B":.4:.2:|
00000160  f1 8a 38 2c 31 30 29 22  44 4f 20 59 4f 55 20 57  |..8,10)"DO YOU W|
00000170  41 4e 54 20 53 4f 55 4e  44 20 28 59 2f 4e 29 3f  |ANT SOUND (Y/N)?|
00000180  22 3b 3b 3a f5 3a 41 3d  a5 3a fd 41 3d 38 39 84  |";;:.:A=.:.A=89.|
00000190  41 3d 37 38 3a e7 41 3d  38 39 4b 25 3d 31 8b 4b  |A=78:.A=89K%=1.K|
000001a0  25 3d 30 0d 00 2d ae ef  41 3a 3f 26 46 31 37 3d  |%=0..-..A:?&F17=|
000001b0  4b 25 3a f1 8a 38 2c 31  37 29 22 57 48 49 43 48  |K%:..8,17)"WHICH|
000001c0  20 53 4b 49 4c 4c 20 4c  45 56 45 4c 20 28 31 2d  | SKILL LEVEL (1-|
000001d0  33 29 3f 22 3b 3a f5 3a  4c 6c 25 3d a5 2d 34 38  |3)?";:.:Ll%=.-48|
000001e0  3a fd 20 4c 6c 25 3e 30  80 4c 6c 25 3c 34 3a 3f  |:. Ll%>0.Ll%<4:?|
000001f0  26 46 32 32 3d 4c 6c 25  3a f1 3b 4c 6c 25 3a f1  |&F22=Ll%:.;Ll%:.|
00000200  8a 39 2c 32 35 29 22 50  52 45 53 53 20 41 4e 59  |.9,25)"PRESS ANY|
00000210  20 4b 45 59 20 54 4f 20  53 54 41 52 54 22 3b 3a  | KEY TO START";:|
00000220  41 3d a5 3a eb 31 3a f2  49 3a ef 34 2c 32 38 2c  |A=.:.1:.I:.4,28,|
00000230  34 2c 33 31 2c 33 36 2c  30 2c 32 33 3b 38 32 30  |4,31,36,0,23;820|
00000240  32 3b 30 3b 30 3b 30 3b  31 39 2c 33 2c 34 3b 30  |2;0;0;0;19,3,4;0|
00000250  3b 0d 00 32 0e f2 42 3a  f2 59 28 35 30 30 29 0d  |;..2..B:.Y(500).|
00000260  00 3c 1e f5 3a d6 26 31  32 31 41 3a 44 25 3d 3f  |.<..:.&121A:D%=?|
00000270  26 46 31 44 3a e7 44 25  8c 8d 74 7e 40 0d 00 5a  |&F1D:.D%..t~@..Z|
00000280  2a e7 3f 26 46 30 30 3e  34 20 80 4c 6c 25 3c 33  |*.?&F00>4 .Ll%<3|
00000290  20 f2 59 28 32 30 2d 3f  26 46 30 30 29 3a fd 44  | .Y(20-?&F00):.D|
000002a0  25 3a e5 8d 64 48 40 0d  00 64 1b e7 4c 6c 25 3c  |%:..dH@..d..Ll%<|
000002b0  33 20 f2 59 28 32 30 29  3a fd 44 25 3a e5 8d 64  |3 .Y(20):.D%:..d|
000002c0  48 40 0d 00 69 15 f2 59  28 37 2d 37 2a 28 3f 26  |H@..i..Y(7-7*(?&|
000002d0  46 30 30 3c 35 29 29 0d  00 6e 13 d6 26 31 33 30  |F00<5))..n..&130|
000002e0  30 3a 44 25 3d 3f 26 46  31 44 0d 00 be 36 fd 44  |0:D%=?&F1D...6.D|
000002f0  25 3a 4c 25 3d 3f 26 46  31 39 3a 4d 25 3d 3f 26  |%:L%=?&F19:M%=?&|
00000300  46 31 41 3a 58 4d 25 3d  3f 26 46 31 35 3a 59 4d  |F1A:XM%=?&F15:YM|
00000310  25 3d 3f 26 46 31 36 3a  4e 25 3d 3f 26 46 31 43  |%=?&F16:N%=?&F1C|
00000320  0d 00 c8 5b e7 44 25 3d  34 20 3f 26 46 30 30 3d  |...[.D%=4 ?&F00=|
00000330  3f 26 46 30 30 2d 28 3f  26 46 30 30 3c 31 35 29  |?&F00-(?&F00<15)|
00000340  3a 4c 46 25 3d 4c 46 25  2d 28 3f 26 46 30 30 3d  |:LF%=LF%-(?&F00=|
00000350  35 29 3a e3 41 3d 32 34  b8 35 34 3a d4 31 2c 28  |5):.A=24.54:.1,(|
00000360  41 20 83 34 2b 31 29 2a  4b 25 2c 34 2a 41 2c 32  |A .4+1)*K%,4*A,2|
00000370  3a ed 3a f2 58 3a e5 8d  54 72 40 0d 00 d2 15 e7  |:.:.X:..Tr@.....|
00000380  44 25 3d 31 f2 42 41 28  58 4d 25 2c 59 4d 25 29  |D%=1.BA(XM%,YM%)|
00000390  0d 00 dc 24 e7 44 25 3d  33 f2 54 4f 4f 4c 41 54  |...$.D%=3.TOOLAT|
000003a0  45 28 4c 25 2f 32 2c 4d  25 2f 32 2c 58 4d 25 2c  |E(L%/2,M%/2,XM%,|
000003b0  59 4d 25 29 0d 00 e6 1d  e7 44 25 3d 32 f2 42 43  |YM%).....D%=2.BC|
000003c0  28 4e 25 3f 26 46 30 30  2c 4e 25 3f 26 46 30 34  |(N%?&F00,N%?&F04|
000003d0  29 0d 00 f0 15 e7 44 25  3d 35 f2 42 43 28 58 4d  |).....D%=5.BC(XM|
000003e0  25 2c 59 4d 25 29 0d 00  fa 59 f2 59 28 35 30 30  |%,YM%)...Y.Y(500|
000003f0  29 3a d4 26 31 31 2c 2d  31 34 2a 4b 25 2c 33 37  |):.&11,-14*K%,37|
00000400  2c 32 30 3a e3 41 3d 26  42 35 43 b8 26 42 36 44  |,20:.A=&B5C.&B6D|
00000410  20 88 32 3a d4 31 2c 2d  31 34 2a 4b 25 2c 3f 41  | .2:.1,-14*K%,?A|
00000420  2c 3f 28 41 2b 31 29 3a  ed 3a 4c 46 25 3d 4c 46  |,?(A+1):.:LF%=LF|
00000430  25 2d 31 3a e7 4c 46 25  3e 30 8c 8d 54 72 40 0d  |%-1:.LF%>0..Tr@.|
00000440  01 04 9d fb 32 3a f1 8a  31 31 2c 31 34 29 89 28  |....2:..11,14).(|
00000450  31 32 29 8a 31 31 2c 31  36 29 89 28 31 32 29 8a  |12).11,16).(12).|
00000460  31 31 2c 31 35 29 22 20  47 41 4d 45 20 20 4f 56  |11,15)" GAME  OV|
00000470  45 52 20 22 8a 32 36 2c  31 29 3b 30 3a f2 59 28  |ER ".26,1);0:.Y(|
00000480  33 30 30 30 29 3a 53 43  25 3d 30 3a e3 41 25 3d  |3000):SC%=0:.A%=|
00000490  30 b8 32 3a 53 43 25 3d  53 43 25 2b 28 41 25 3f  |0.2:SC%=SC%+(A%?|
000004a0  26 46 31 45 20 83 31 36  2b 31 30 2a 28 41 25 3f  |&F1E .16+10*(A%?|
000004b0  26 46 31 45 20 81 31 36  29 29 2a 31 30 30 5e 41  |&F1E .16))*100^A|
000004c0  25 3a ed 3a e7 53 43 25  3e 48 49 25 28 35 2c 4c  |%:.:.SC%>HI%(5,L|
000004d0  6c 25 2d 31 29 20 f2 4e  45 57 48 49 0d 01 0e 29  |l%-1) .NEWHI...)|
000004e0  f2 48 53 53 3a 4c 46 25  3d 33 3a 53 25 3d 31 3a  |.HSS:LF%=3:S%=1:|
000004f0  3f 26 46 30 30 3d 31 3a  21 26 46 31 45 3d 30 3a  |?&F00=1:!&F1E=0:|
00000500  e5 8d 54 72 40 0d 02 4e  47 dd f2 49 3a 4c 46 25  |..Tr@..NG..I:LF%|
00000510  3d 33 3a 53 25 3d 31 3a  21 26 46 31 45 3d 30 3a  |=3:S%=1:!&F1E=0:|
00000520  53 4b 24 3d bd 32 32 34  2b bd 32 32 35 2b bd 31  |SK$=.224+.225+.1|
00000530  30 2b bd 38 2b bd 38 2b  bd 32 32 36 2b bd 32 32  |0+.8+.8+.226+.22|
00000540  37 3a 3f 26 46 30 30 3d  53 25 3a e1 0d 02 58 81  |7:?&F00=S%:...X.|
00000550  dd f2 42 3a 3f 26 46 31  42 3d 30 3a db 3a 3f 26  |..B:?&F1B=0:.:?&|
00000560  46 31 43 3d 31 3a fb 32  3a f1 8a 32 2c 30 29 22  |F1C=1:.2:..2,0)"|
00000570  3c 53 48 45 45 54 3e 20  20 20 3c 53 43 4f 52 45  |<SHEET>   <SCORE|
00000580  3e 20 20 20 20 3c 4c 49  56 45 53 3e 22 8a 35 2c  |>    <LIVES>".5,|
00000590  31 29 3b 3f 26 46 30 30  8a 32 36 2c 31 29 3b 4c  |1);?&F00.26,1);L|
000005a0  46 25 8a 31 32 2c 31 29  22 30 22 3a 41 25 3d 30  |F%.12,1)"0":A%=0|
000005b0  3a d6 26 31 32 41 39 3a  3f 26 46 32 33 3d 30 3a  |:.&12A9:?&F23=0:|
000005c0  44 25 3d 30 3a 3f 26 46  31 44 3d 44 25 0d 02 62  |D%=0:?&F1D=D%..b|
000005d0  76 d6 26 44 45 30 3a 41  25 3d 37 3a 42 25 3d 31  |v.&DE0:A%=7:B%=1|
000005e0  3a e3 58 31 25 3d 30 b8  31 30 88 35 3a e3 59 31  |:.X1%=0.10.5:.Y1|
000005f0  25 3d 30 b8 37 88 37 3a  58 25 3d b3 28 34 29 2b  |%=0.7.7:X%=.(4)+|
00000600  58 31 25 3a 59 25 3d b3  28 37 29 2b 59 31 25 3a  |X1%:Y%=.(7)+Y1%:|
00000610  3f a4 41 28 58 25 2c 59  25 29 3d 37 3a 42 25 3f  |?.A(X%,Y%)=7:B%?|
00000620  26 46 30 38 3d 58 25 3a  42 25 3f 26 46 30 45 3d  |&F08=X%:B%?&F0E=|
00000630  59 25 3a 42 25 3d 42 25  2b 31 3a d6 26 42 37 30  |Y%:B%=B%+1:.&B70|
00000640  3a ed 2c 0d 02 6c 47 e7  3f a4 41 28 38 2c 37 29  |:.,..lG.?.A(8,7)|
00000650  3d 33 20 3f 26 46 31 35  3d 38 3a 3f 26 46 31 36  |=3 ?&F15=8:?&F16|
00000660  3d 37 3a 3f a4 41 28 38  2c 37 29 3d 35 20 8b 20  |=7:?.A(8,7)=5 . |
00000670  3f 26 46 31 35 3d 37 3a  3f 26 46 31 36 3d 37 3a  |?&F15=7:?&F16=7:|
00000680  3f a4 41 28 37 2c 37 29  3d 35 0d 02 76 20 41 25  |?.A(7,7)=5..v A%|
00000690  3d 35 3a 58 25 3d 3f 26  46 31 35 3a 59 25 3d 3f  |=5:X%=?&F15:Y%=?|
000006a0  26 46 31 36 3a d6 26 42  37 30 0d 02 80 0f e7 4c  |&F16:.&B70.....L|
000006b0  6c 25 3c 33 8c 8d 74 5e  42 0d 02 8a 35 3f a4 41  |l%<3..t^B...5?.A|
000006c0  28 35 2c 31 29 3d 31 31  3a 58 25 3d 35 3a 59 25  |(5,1)=11:X%=5:Y%|
000006d0  3d 31 3a 41 25 3d 31 31  3a d6 26 42 37 30 3a 3f  |=1:A%=11:.&B70:?|
000006e0  26 46 30 31 3d 35 3a 3f  26 46 30 35 3d 31 0d 02  |&F01=5:?&F05=1..|
000006f0  94 ae e7 3f 26 46 30 30  3e 31 20 3f a4 41 28 35  |...?&F00>1 ?.A(5|
00000700  2c 31 34 29 3d 31 31 3a  58 25 3d 35 3a 59 25 3d  |,14)=11:X%=5:Y%=|
00000710  31 34 3a d6 26 42 37 30  3a 3f 26 46 30 32 3d 35  |14:.&B70:?&F02=5|
00000720  3a 3f 26 46 30 36 3d 31  34 3a e7 3f 26 46 30 30  |:?&F06=14:.?&F00|
00000730  3e 32 20 3f a4 41 28 31  30 2c 31 29 3d 31 31 3a  |>2 ?.A(10,1)=11:|
00000740  58 25 3d 31 30 3a 59 25  3d 31 3a d6 26 42 37 30  |X%=10:Y%=1:.&B70|
00000750  3a 3f 26 46 30 33 3d 31  30 3a 3f 26 46 30 37 3d  |:?&F03=10:?&F07=|
00000760  31 3a e7 3f 26 46 30 30  3e 33 20 3f a4 41 28 31  |1:.?&F00>3 ?.A(1|
00000770  30 2c 31 34 29 3d 31 31  3a 58 25 3d 31 30 3a 59  |0,14)=11:X%=10:Y|
00000780  25 3d 31 34 3a d6 26 42  37 30 3a 3f 26 46 30 34  |%=14:.&B70:?&F04|
00000790  3d 31 30 3a 3f 26 46 30  38 3d 31 34 0d 02 9e a1  |=10:?&F08=14....|
000007a0  3f 26 46 32 31 3d 31 36  2a 28 28 34 31 2d 32 30  |?&F21=16*((41-20|
000007b0  2a 28 4c 6c 25 3d 31 29  29 81 31 30 29 2b 28 34  |*(Ll%=1)).10)+(4|
000007c0  31 2d 32 30 2a 28 4c 6c  25 3d 31 29 29 83 31 30  |1-20*(Ll%=1)).10|
000007d0  3a 3f 26 46 31 38 3d b3  28 36 29 3a 3f 26 46 31  |:?&F18=.(6):?&F1|
000007e0  39 3d 28 3f 28 26 46 30  38 2b 3f 26 46 31 38 29  |9=(?(&F08+?&F18)|
000007f0  29 2a 32 3a 3f 26 46 31  41 3d 28 3f 28 26 46 30  |)*2:?&F1A=(?(&F0|
00000800  45 2b 3f 26 46 31 38 29  29 2a 32 3a 58 25 3d 28  |E+?&F18))*2:X%=(|
00000810  3f 26 46 31 39 29 81 32  3a 59 25 3d 28 3f 26 46  |?&F19).2:Y%=(?&F|
00000820  31 41 29 81 32 3a 41 25  3d 39 3a d6 26 42 37 30  |1A).2:A%=9:.&B70|
00000830  3a 3f a4 41 28 58 25 2c  59 25 29 3d 39 0d 02 a8  |:?.A(X%,Y%)=9...|
00000840  5e 41 25 3d 31 33 3a e3  58 31 25 3d 31 b8 28 3f  |^A%=13:.X1%=1.(?|
00000850  26 46 30 30 2b 32 2d 32  2a 28 3f 26 46 30 30 3e  |&F00+2-2*(?&F00>|
00000860  35 29 29 3a f5 3a 58 25  3d b3 28 31 34 29 3a 59  |5)):.:X%=.(14):Y|
00000870  25 3d b3 28 31 34 29 3a  fd 3f a4 41 28 58 25 2c  |%=.(14):.?.A(X%,|
00000880  59 25 29 3d 33 3a d6 26  42 37 30 3a 3f a4 41 28  |Y%)=3:.&B70:?.A(|
00000890  58 25 2c 59 25 29 3d 31  33 3a ed 0d 02 b2 0e e7  |X%,Y%)=13:......|
000008a0  3f 26 46 30 30 3c 35 20  e1 0d 02 bc 54 41 25 3d  |?&F00<5 ....TA%=|
000008b0  37 3a e3 58 31 25 3d 31  b8 28 3f 26 46 30 30 2d  |7:.X1%=1.(?&F00-|
000008c0  34 29 2a 32 3a f5 3a 58  25 3d b3 28 31 34 29 3a  |4)*2:.:X%=.(14):|
000008d0  59 25 3d b3 28 31 34 29  3a fd 3f a4 41 28 58 25  |Y%=.(14):.?.A(X%|
000008e0  2c 59 25 29 3d 33 3a 3f  a4 41 28 58 25 2c 59 25  |,Y%)=3:?.A(X%,Y%|
000008f0  29 3d 37 3a d6 26 42 37  30 3a ed 3a e1 0d 02 c6  |)=7:.&B70:.:....|
00000900  59 dd f2 42 41 28 58 25  2c 59 25 29 3a 41 25 3d  |Y..BA(X%,Y%):A%=|
00000910  37 3a d6 26 42 37 30 3a  e3 4e 3d 31 b8 31 30 3a  |7:.&B70:.N=1.10:|
00000920  ef 31 39 2c 30 2c 37 2c  30 3b 30 3a e3 4d 3d 31  |.19,0,7,0;0:.M=1|
00000930  35 b8 30 88 2d 31 3a d4  26 31 31 2c 2d 31 35 2a  |5.0.-1:.&11,-15*|
00000940  4b 25 2c 4d 2c 31 3a ed  3a ef 31 39 2c 30 3b 30  |K%,M,1:.:.19,0;0|
00000950  3b 30 3a ed 3a e1 0d 02  d0 42 dd f2 42 43 28 58  |;0:.:....B..BC(X|
00000960  25 2c 59 25 29 3a d4 26  31 31 2c 33 2a 4b 25 2c  |%,Y%):.&11,3*K%,|
00000970  30 2c 32 35 3a e3 41 3d  31 b8 31 30 30 3a 41 25  |0,25:.A=1.100:A%|
00000980  3d 35 3a d6 26 42 37 30  3a 41 25 3d 31 31 3a d6  |=5:.&B70:A%=11:.|
00000990  26 42 37 30 3a ed 3a e1  0d 02 da 6c dd f2 48 53  |&B70:.:....l..HS|
000009a0  53 3a db 3a fb 33 3a f1  8a 33 2c 32 29 22 44 41  |S:.:.3:..3,2)"DA|
000009b0  4e 47 45 52 20 55 58 42  20 4c 45 56 45 4c 20 22  |NGER UXB LEVEL "|
000009c0  3b 4c 6c 25 22 20 54 4f  50 20 53 49 58 22 8a 33  |;Ll%" TOP SIX".3|
000009d0  2c 33 29 c4 32 36 2c 22  5f 22 29 3a fb 31 3a f1  |,3).26,"_"):.1:.|
000009e0  8a 35 2c 36 29 22 53 43  4f 52 45 20 20 20 20 20  |.5,6)"SCORE     |
000009f0  4e 41 4d 45 20 20 20 20  20 20 52 41 54 49 4e 47  |NAME      RATING|
00000a00  22 3a fb 32 0d 02 e4 88  41 3d 4c 6c 25 2d 31 3a  |":.2....A=Ll%-1:|
00000a10  e3 41 25 3d 30 b8 35 3a  42 25 3d 39 2b 33 2a 41  |.A%=0.5:B%=9+3*A|
00000a20  25 3a 4e 3d 48 49 25 28  41 25 2c 41 29 2f 31 30  |%:N=HI%(A%,A)/10|
00000a30  30 30 3a e7 4e 3e 31 30  30 52 24 3d 22 4b 49 4e  |00:.N>100R$="KIN|
00000a40  47 22 8b e7 4e 3e 35 30  52 24 3d 22 4d 41 53 54  |G"..N>50R$="MAST|
00000a50  45 52 22 8b e7 4e 3e 33  35 52 24 3d 22 56 2e 47  |ER"..N>35R$="V.G|
00000a60  4f 4f 44 22 8b e7 4e 3e  32 30 52 24 3d 22 47 4f  |OOD"..N>20R$="GO|
00000a70  4f 44 22 8b e7 4e 3e 31  30 52 24 3d 22 46 41 49  |OD"..N>10R$="FAI|
00000a80  52 22 8b 52 24 3d 22 50  4f 4f 52 22 0d 02 e5 71  |R".R$="POOR"...q|
00000a90  f1 8a 31 2c 42 25 29 3b  41 25 2b 31 22 2e 22 8a  |..1,B%);A%+1".".|
00000aa0  35 2c 42 25 29 3b 48 49  25 28 41 25 2c 41 29 8a  |5,B%);HI%(A%,A).|
00000ab0  31 32 2c 42 25 29 4e 24  28 41 25 2c 41 29 8a 32  |12,B%)N$(A%,A).2|
00000ac0  35 2c 42 25 29 52 24 3a  ed 3a fb 33 3a f1 8a 32  |5,B%)R$:.:.3:..2|
00000ad0  2c 33 30 29 22 54 79 70  65 20 53 50 41 43 45 42  |,30)"Type SPACEB|
00000ae0  41 52 20 74 6f 20 70 6c  61 79 20 61 67 61 69 6e  |AR to play again|
00000af0  2e 22 3a f5 fd a6 28 2d  39 39 29 3a e1 0d 02 ee  |.":...(-99):....|
00000b00  8a dd f2 4e 45 57 48 49  3a db 3a ef 31 39 2c 31  |...NEWHI:.:.19,1|
00000b10  2c 31 34 2c 30 3b 30 3a  fb 31 3a f1 8a 31 31 2c  |,14,0;0:.1:..11,|
00000b20  31 30 29 22 57 45 4c 4c  20 44 4f 4e 45 21 22 8a  |10)"WELL DONE!".|
00000b30  35 2c 31 31 29 22 59 4f  55 20 41 52 45 20 49 4e  |5,11)"YOU ARE IN|
00000b40  20 54 48 45 20 54 4f 50  20 53 49 58 22 3a d4 26  | THE TOP SIX":.&|
00000b50  31 31 2c 2d 31 35 2a 4b  25 2c 31 32 31 2c 36 3a  |11,-15*K%,121,6:|
00000b60  e3 58 31 25 3d 26 42 33  43 b8 26 42 35 42 20 88  |.X1%=&B3C.&B5B .|
00000b70  32 3a 58 25 3d 3f 58 31  25 3a 59 25 3d 3f 28 58  |2:X%=?X1%:Y%=?(X|
00000b80  31 25 2b 31 29 2a 32 0d  02 f8 4d d4 31 2c 30 2c  |1%+1)*2...M.1,0,|
00000b90  30 2c 31 3a d4 31 2c 2d  31 35 2a 4b 25 2c 58 25  |0,1:.1,-15*K%,X%|
00000ba0  2c 59 25 3a ed 3a f1 8a  35 2c 31 33 29 22 50 4c  |,Y%:.:..5,13)"PL|
00000bb0  45 41 53 45 20 45 4e 54  45 52 20 59 4f 55 52 20  |EASE ENTER YOUR |
00000bc0  4e 41 4d 45 22 8a 31 30  2c 32 30 29 c4 31 31 2c  |NAME".10,20).11,|
00000bd0  22 2d 22 29 0d 03 02 47  f5 3a fd bf 28 30 29 3d  |"-")...G.:..(0)=|
00000be0  22 22 3a 4e 24 3d 22 22  3a f1 8a 31 30 2c 32 30  |"":N$="":..10,20|
00000bf0  29 3b 3a f5 3a 41 25 3d  a5 3a e7 41 25 3e 33 31  |);:.:A%=.:.A%>31|
00000c00  80 41 25 3c 31 32 33 20  f1 bd 28 41 25 29 3b 3a  |.A%<123 ..(A%);:|
00000c10  4e 24 3d 4e 24 2b bd 28  41 25 29 0d 03 0c 33 e7  |N$=N$+.(A%)...3.|
00000c20  41 25 3d 31 32 37 80 a9  28 4e 24 29 3e 30 20 f1  |A%=127..(N$)>0 .|
00000c30  bd 31 32 37 3b 22 2d 22  3b bd 38 3b 3a 4e 24 3d  |.127;"-";.8;:N$=|
00000c40  c0 4e 24 2c 28 a9 28 4e  24 29 2d 31 29 29 0d 03  |.N$,(.(N$)-1))..|
00000c50  16 13 fd a9 28 4e 24 29  3d 31 31 84 41 25 3d 31  |....(N$)=11.A%=1|
00000c60  33 0d 03 20 69 41 3d 4c  6c 25 2d 31 3a e3 41 25  |3.. iA=Ll%-1:.A%|
00000c70  3d 35 b8 30 88 2d 31 3a  e7 53 43 25 3e 48 49 25  |=5.0.-1:.SC%>HI%|
00000c80  28 41 25 2c 41 29 20 48  49 25 28 41 25 2b 31 2c  |(A%,A) HI%(A%+1,|
00000c90  41 29 3d 48 49 25 28 41  25 2c 41 29 3a 4e 24 28  |A)=HI%(A%,A):N$(|
00000ca0  41 25 2b 31 2c 41 29 3d  4e 24 28 41 25 2c 41 29  |A%+1,A)=N$(A%,A)|
00000cb0  3a 48 49 25 28 41 25 2c  41 29 3d 53 43 25 3a 4e  |:HI%(A%,A)=SC%:N|
00000cc0  24 28 41 25 2c 41 29 3d  4e 24 0d 03 2a 15 ed 3a  |$(A%,A)=N$..*..:|
00000cd0  db 3a ef 31 39 2c 31 2c  31 2c 30 3b 30 3a e1 0d  |.:.19,1,1,0;0:..|
00000ce0  03 34 2b dd f2 54 4f 4f  4c 41 54 45 28 58 25 2c  |.4+..TOOLATE(X%,|
00000cf0  59 25 2c 49 25 2c 4a 25  29 3a d4 26 31 31 2c 33  |Y%,I%,J%):.&11,3|
00000d00  2a 4b 25 2c 31 30 38 2c  35 30 0d 03 3e 40 58 3d  |*K%,108,50..>@X=|
00000d10  b4 28 49 25 2d 58 25 29  3a e7 49 25 3d 58 25 20  |.(I%-X%):.I%=X% |
00000d20  59 3d b4 28 4a 25 2d 59  25 29 20 8b 20 59 3d 94  |Y=.(J%-Y%) . Y=.|
00000d30  28 28 4a 25 2d 59 25 29  2f 28 49 25 2d 58 25 29  |((J%-Y%)/(I%-X%)|
00000d40  29 2a b4 28 4a 25 2d 59  25 29 0d 03 48 80 49 3d  |)*.(J%-Y%)..H.I=|
00000d50  58 25 3a 4a 3d 59 25 3a  41 3d 37 3a f5 3a 41 25  |X%:J=Y%:A=7:.:A%|
00000d60  3d 41 3a d6 26 42 37 30  3a 49 3d 49 2b 58 3a 4a  |=A:.&B70:I=I+X:J|
00000d70  3d 4a 2b 59 3a 58 25 3d  49 2b 2e 35 3a 59 25 3d  |=J+Y:X%=I+.5:Y%=|
00000d80  4a 2b 2e 35 3a 41 3d 3f  a4 41 28 58 25 2c 59 25  |J+.5:A=?.A(X%,Y%|
00000d90  29 3a 41 25 3d 37 3a d6  26 42 37 30 3a f2 59 28  |):A%=7:.&B70:.Y(|
00000da0  33 30 29 3a fd 58 25 3d  49 25 80 59 25 3d 4a 25  |30):.X%=I%.Y%=J%|
00000db0  3a d4 26 31 31 2c 30 2c  30 2c 31 3a f2 42 41 28  |:.&11,0,0,1:.BA(|
00000dc0  58 4d 25 2c 59 4d 25 29  3a e1 0d 03 52 3f 20 dd  |XM%,YM%):...R? .|
00000dd0  f2 58 3a db 3a d6 26 44  45 30 3a 58 31 3d b3 28  |.X:.:.&DE0:X1=.(|
00000de0  31 34 29 3a 59 25 3d 31  34 3a e3 58 25 3d 31 b8  |14):Y%=14:.X%=1.|
00000df0  31 34 3a 41 25 3d 37 2d  36 2a 28 58 25 3d 58 31  |14:A%=7-6*(X%=X1|
00000e00  29 3a d6 26 42 37 30 3a  ed 0d 03 5c b2 f1 8a 33  |):.&B70:...\...3|
00000e10  2c 33 31 29 22 50 52 45  53 53 20 5a 20 4b 45 59  |,31)"PRESS Z KEY|
00000e20  20 57 48 45 4e 20 4d 41  4e 20 4d 4f 56 45 53 22  | WHEN MAN MOVES"|
00000e30  3b 3a f2 59 28 31 32 30  30 29 3a d4 26 31 31 2c  |;:.Y(1200):.&11,|
00000e40  4b 25 2c 37 30 2c 32 35  35 3a 58 32 3d 30 3a 41  |K%,70,255:X2=0:A|
00000e50  25 3d 35 3a 78 3d 30 3a  79 3d 30 3a e3 59 25 3d  |%=5:x=0:y=0:.Y%=|
00000e60  31 b8 31 33 3a e3 58 25  3d 31 b8 31 34 3a d6 26  |1.13:.X%=1.14:.&|
00000e70  42 37 30 3a f1 8a 78 2a  32 2c 79 2a 32 29 22 20  |B70:..x*2,y*2)" |
00000e80  20 22 8a 78 2a 32 2c 79  2a 32 2b 31 29 22 20 20  | ".x*2,y*2+1)"  |
00000e90  22 3a 78 3d 58 25 3a 79  3d 59 25 3a e7 a6 28 2d  |":x=X%:y=Y%:..(-|
00000ea0  39 38 29 20 58 32 3d 58  25 3a 59 32 3d 59 25 3a  |98) X2=X%:Y2=Y%:|
00000eb0  58 25 3d 31 34 3a 59 25  3d 31 33 0d 03 66 98 ed  |X%=14:Y%=13..f..|
00000ec0  2c 3a d4 26 31 31 2c 30  2c 30 2c 31 3a e7 58 32  |,:.&11,0,0,1:.X2|
00000ed0  3d 30 20 f2 42 41 28 31  34 2c 31 33 29 3a e1 20  |=0 .BA(14,13):. |
00000ee0  8b 20 d4 26 31 31 2c 33  2a 4b 25 2c 31 30 30 2c  |. .&11,3*K%,100,|
00000ef0  31 30 30 3a 58 25 3d 58  32 3a e3 59 25 3d 59 32  |100:X%=X2:.Y%=Y2|
00000f00  20 b8 31 34 3a 41 25 3d  35 3a d6 26 42 37 30 3a  | .14:A%=5:.&B70:|
00000f10  41 25 3d 31 3a 59 25 3d  59 25 2d 31 3a d6 26 42  |A%=1:Y%=Y%-1:.&B|
00000f20  37 30 3a 59 25 3d 59 25  2b 31 3a f2 59 28 32 35  |70:Y%=Y%+1:.Y(25|
00000f30  29 3a ed 3a d4 26 31 31  2c 30 2c 30 2c 31 3a e7  |):.:.&11,0,0,1:.|
00000f40  58 31 3c 3e 58 25 20 f2  42 41 28 58 25 2c 31 34  |X1<>X% .BA(X%,14|
00000f50  29 3a e1 0d 03 70 72 42  3d 34 2a 28 31 35 2d 59  |):...prB=4*(15-Y|
00000f60  32 29 3a f1 8a 31 31 2c  31 29 22 42 4f 4e 55 53  |2):..11,1)"BONUS|
00000f70  3d 22 3b 42 2a 31 30 30  3a ef 32 31 3a e3 42 25  |=";B*100:.21:.B%|
00000f80  3d 31 b8 42 3a 41 25 3d  31 36 30 3a d6 26 31 32  |=1.B:A%=160:.&12|
00000f90  41 39 3a ed 3a ef 36 3a  e3 42 25 3d 31 b8 31 30  |A9:.:.6:.B%=1.10|
00000fa0  30 30 31 88 34 35 3a d4  26 31 31 2c 2d 31 35 2a  |001.45:.&11,-15*|
00000fb0  4b 25 2c 42 25 2c 31 3a  e3 41 25 3d 31 b8 31 30  |K%,B%,1:.A%=1.10|
00000fc0  3a ed 2c 3a e1 0d 03 7a  15 dd f2 59 28 58 29 3a  |:.,:...z...Y(X):|
00000fd0  e3 4e 3d 31 b8 58 3a ed  3a e1 0d 03 e8 18 dd a4  |.N=1.X:.:.......|
00000fe0  41 28 58 2c 59 29 3d 26  45 30 30 2b 58 2b 31 36  |A(X,Y)=&E00+X+16|
00000ff0  2a 59 0d ff                                       |*Y..|
00000ff4
UXB.m0
UXB.m1
UXB.m2
UXB.m4
UXB.m5