Home » Personal collection » Acorn DFS disks » dfs_box03_disk04b_games_2_backup.scp » 1.UXB

1.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 DFS disks » dfs_box03_disk04b_games_2_backup.scp
Filename: 1.UXB
Read OK: ✔
File size: 186A bytes
Load address: FF3000
Exec address: FF801F
Duplicates

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

File contents
    1 FORZ%=0TO&1900STEP4:Z%!&E00=Z%!&3073:NEXT:*TAPE
    2*FX138,0,82
    3*FX138,0,85
    4*FX138,0,78
    5*FX138,0,13
    6PAGE=&E00:END
    8 FORZ%=0TO&2C0STEP4:Z%!&B00=Z%!&6000:NEXT
   20CLEAR:DIMA%(15,15),HI%(6,2),N$(6,2),R$(6,2),XB%(4),YB%(4),SX%(6),SY%(6),B%(4),C%(4),D%(4):B%(1)=1:C%(1)=0:B%(2)=-1:C%(2)=0:B%(3)=0:C%(3)=1:B%(4)=0:C%(4)=-1:FORA=0TO6:FORB=0TO2:R$(A,B)=STRING$(6,"-"):N$(A,B)="TheComputer":HI%(A,B)=1000:NEXT:NEXT
   30MODE7:FORY%=3TO21:PRINTTAB(10,Y%)CHR$154CHR$148:SOUND&11,2,8*Y%,10:FORX%=12TO26:PRINTTAB(X%,Y%)CHR$(RND(26)+96):NEXT:NEXT:FORA=7TO8:PRINTTAB(9,A)CHR$133CHR$141"D A N G E R  U X B":NEXT 
   40PRINTTAB(6,10)CHR$131"DO YOU WANT SOUND  (Y/N)?";:REPEAT:A=GET:UNTILA=89ORA=78:IFA=89K%=1ELSEK%=0
   45PRINTTAB(3,13)CHR$131"WHAT IS YOUR SKILL LEVEL (1-3)?";:REPEAT:Ll%=GET-48:UNTIL Ll%>0ANDLl%<4:PRINT'''"   PRESS ANY KEY WHEN READY TO PLAY";:A=GET:MODE1:PROCI:VDU28,4,31,36,0,23;8202;0;0;0;19,3,4;0;
   50PROCB:PROCY(3000)
   60REPEAT:PROCM:IFD%THEN190
   70BC%=BC%-1:NUM$=RED$+STR$(BC%):IFBC%<10THEN NUM$=" "+NUM$
   80PRINTTAB(L%,M%)NUM$:IFBC%=0 D%=3
   90IFS%>4 UNTILD%:GOTO200
  100IFLl%<3 PROCY(80):UNTILD%:GOTO200
  110N%=N%+1:IFN%>S% N%=1
  120B%=0:A%=0:X%=XB%(N%):Y%=YB%(N%):IFX%<14 Z%=A%(X%+1,Y%):A%=-(Z%=5):IFZ%=3 B%=B%+1:D%(B%)=1
  130IFX%>1 Z%=A%(X%-1,Y%):A%=A%-2*(Z%=5):IFZ%=3 B%=B%+1:D%(B%)=2
  140IFY%<14 Z%=A%(X%,Y%+1):A%=A%-3*(Z%=5):IFZ%=3 B%=B%+1:D%(B%)=3
  150IFY%>1 Z%=A%(X%,Y%-1):A%=A%-4*(Z%=5):IFZ%=3 B%=B%+1:D%(B%)=4
  160IFA%D%=2 ELSE IFB%=0THEN190
  170IFA%=0 A%=D%(1):IFB%<>1 A%=D%(RND(B%))
  180A%(X%,Y%)=3:XB%(N%)=X%+B%(A%):YB%(N%)=Y%+C%(A%):A%(XB%(N%),YB%(N%))=11:A%=3:CALL&B70:A%=11:X%=XB%(N%):Y%=YB%(N%):CALL&B70
  190UNTILD%
  200IFD%=4 S%=S%-(S%<15):LF%=LF%-(S%=5):FORA=4TO54:SOUNDA MOD3+1,(A MOD4+1)*K%,4*A,3:NEXT:PROCX:GOTO50
  210IFD%=1PROCBA(XM%,YM%)
  220IFD%=3PROCTOOLATE(32*L%,32*M%,64*XM%,64*YM%)
  230IFD%=2PROCBC(XB%(N%),YB%(N%))
  240IFD%=5PROCBC(XM%,YM%)
  250PROCY(1500):SOUND&11,-14*K%,37,20:SOUND&12,-14*K%,85,20:SOUND1,0,0,1:FORA=&B5CTO&B6D STEP2:SOUND1,-14*K%,?A,?(A+1):SOUND2,-12*K%,?A+48,?(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(15,1);0:PROCY(8000):IFSC%>HI%(5,Ll%-1) PROCNEWHI
  270PROCHSS:LF%=3:S%=1:SC%=0:GOTO50
  280DEFPROCM:IFINKEY(-82) PROCL(YM%):ENDPROC ELSE IFINKEY(-51) PROCR(YM%):ENDPROC
  290P%=INKEY(-98)-INKEY(-67):Q%=INKEY(-73)-INKEY(-105):IFP% Q%=0
  300X%=XM%:Y%=YM%:XM%=XM%+P%:YM%=YM%+Q%:IFXM%=15XM%=1ELSEIFXM%=0XM%=14ELSEIFYM%=0YM%=14ELSEIFYM%=15YM%=1
  310IFA%(XM%,YM%)=5ORA%(XM%,YM%)=1 XM%=X%:YM%=Y%:FORA=1TO120:NEXT:ENDPROC
  320R%=?Dt%:Dt%=Dt%+1:IFDt%=&B3C Dt%=&B00
  330SOUND&12,K%,R%,3:A%=1:CALL&B70:A%(X%,Y%)=1:IFA%(XM%,YM%)=3 A%(XM%,YM%)=5:SC%=SC%+20:A%=5:X%=XM%:Y%=YM%:CALL&B70:COLOUR2:PRINTTAB(24,1);SC%:ENDPROC
  340IFA%(XM%,YM%)=7 D%=1:ENDPROC
  350IFA%(XM%,YM%)=11 D%=5:ENDPROC
  360IFA%(XM%,YM%)=13 SOUND&13,4*K%,25,5:SOUND&12,4*K%,30,5:SC%=SC%+500:A%=5:X%=XM%:Y%=YM%:CALL&B70:COLOUR2:PRINTTAB(24,1);SC%:A%(XM%,YM%)=5:ENDPROC
  370SC%=SC%+10*BC%:A%=5:X%=XM%:Y%=YM%:CALL&B70:COLOUR2:PRINTTAB(24,1);SC%:SOUND&12,4*K%,0,20:SOUND&13,4*K%,48,20:SOUND&11,4*K%,250,20:DD%=DD%+1:IFDD%=6 D%=4:ENDPROC
  380A%(XM%,YM%)=7:A%=7:X%=XM%:Y%=YM%:CALL&B70:A%=1:B%=1
  390REPEAT:IFXM%+A%<15 IFA%(XM%+A%,YM%)<4 XM%=XM%+A%:B%=0
  400IFB%ANDXM%-A%>0 IFA%(XM%-A%,YM%)<4 XM%=XM%-A%:B%=0
  410A%=A%+1:UNTILA%=15ORB%=0
  420IFA%=14 REPEAT:XM%=RND(14):YM%=RND(14):UNTILA%(XM%,YM%)<4
  430A%(XM%,YM%)=5:A%=5:X%=XM%:Y%=YM%:CALL&B70:PROCY(2000)
  440BC%=41-20*(Ll%=1):REPEAT:B%=RND(6):UNTILB%<>SB%:SB%=B%:L%=SX%(SB%)*2:M%=SY%(SB%)*2:A%=9:X%=L%/2:Y%=M%/2:CALL&B70:A%(X%,Y%)=9:ENDPROC
  450DEFPROCL(Y%):A%(15,Y%)=A%(1,Y%):IFS%>4THEN480
  460FORB%=1TOS%:IFYB%(B%)=Y% XB%(B%)=XB%(B%)-1:IFXB%(B%)=0 XB%(B%)=14
  470NEXT
  480FORB%=1TO6:IFSY%(B%)=Y% SX%(B%)=SX%(B%)-1:IFSX%(B%)=0 SX%(B%)=14
  490NEXT
  500XM%=XM%-1:IFXM%=0 XM%=14
  510FORX%=1TO14:A%(X%,Y%)=A%(X%+1,Y%):NEXT:SOUND0,-8*K%,5,3:L%=SX%(SB%)*2:FORX%=1TO14:A%=A%(X%,Y%):CALL&B70:NEXT:ENDPROC
  520DEFPROCR(Y%):A%(0,Y%)=A%(14,Y%):IFS%>4THEN550
  530FORB%=1TOS%:IFYB%(B%)=Y% XB%(B%)=XB%(B%)+1:IFXB%(B%)=15 XB%(B%)=1
  540NEXT
  550FORB%=1TO6:IFSY%(B%)=Y% SX%(B%)=SX%(B%)+1:IFSX%(B%)=15 SX%(B%)=1
  560NEXT
  570XM%=XM%+1:IFXM%=15 XM%=1
  580FORX%=14TO1STEP-1:A%(X%,Y%)=A%(X%-1,Y%):NEXT:SOUND0,-8*K%,5,3:L%=SX%(SB%)*2:FORX%=1TO14:A%=A%(X%,Y%):CALL&B70:NEXT:ENDPROC
  590DEFPROCI:LF%=3:S%=1:SC%=0:SK$=CHR$224+CHR$225+CHR$10+CHR$8+CHR$8+CHR$226+CHR$227:RED$=CHR$17+CHR$1:ENDPROC
  600DEFPROCB:Dt%=&B00:CLS:N%=1:COLOUR2:PRINTTAB(2,0)"<SHEET>   <LIVES>    <SCORE>"TAB(5,1);S%TAB(15,1)LF%TAB(24,1);SC%:DD%=0:D%=0
  610A%=3:FORX%=1TO14:FORY%=1TO14:CALL&B70:A%(X%,Y%)=3:NEXT:NEXT:A%=7:B%=1:FORX1%=0TO10STEP5:FORY1%=0TO7STEP7:X%=RND(4)+X1%:Y%=RND(7)+Y1%:A%(X%,Y%)=7:SX%(B%)=X%:SY%(B%)=Y%:B%=B%+1:CALL&B70:NEXT:NEXT
  620IFA%(8,7)=3 XM%=8:YM%=7:A%(8,7)=5 ELSEXM%=7:YM%=7:A%(7,7)=5
  630A%=5:X%=XM%:Y%=YM%:CALL&B70
  640IFS%>4ORLl%<3THEN670
  650A%(5,1)=11:X%=5:Y%=1:A%=11:CALL&B70:XB%(1)=5:YB%(1)=1
  660IFS%>1 A%(5,14)=11:X%=5:Y%=14:CALL&B70:XB%(2)=5:YB%(2)=14:IFS%>2 A%(10,1)=11:X%=10:Y%=1:CALL&B70:XB%(3)=10:YB%(3)=1:IFS%>3 A%(10,14)=11:X%=10:Y%=14:CALL&B70:XB%(4)=10:YB%(4)=14
  670BC%=41-20*(Ll%=1):SB%=RND(6):L%=SX%(SB%)*2:M%=SY%(SB%)*2:X%=L%/2:Y%=M%/2:A%=9:CALL&B70:A%(X%,Y%)=9
  680A%=13:FORX1%=1TO(S%+2-2*(S%>5)):REPEAT:X%=RND(14):Y%=RND(14):UNTILA%(X%,Y%)=3:CALL&B70:A%(X%,Y%)=13:NEXT
  690IFS%<5 ENDPROC
  700A%=7:FORX1%=1TO(S%-4)*2:REPEAT:X%=RND(14):Y%=RND(14):UNTILA%(X%,Y%)=3:A%(X%,Y%)=7:CALL&B70:NEXT:ENDPROC
  710DEFPROCBA(X%,Y%):VDU19,0,7,0;0:A%=7:CALL&B70:SOUND&10,2*K%,6,50:SOUND&11,2*K%,0,5:FORX1=1TO100:NEXT:VDU19,0;0;0:ENDPROC
  720DEFPROCBC(X%,Y%):SOUND&11,3*K%,0,70:FORA=1TO200:A%=5:CALL&B70:A%=11:CALL&B70:NEXT:ENDPROC
  730DEFPROCHSS:CLS:COLOUR3:PRINTTAB(4,2)"BLOCKMAN LEVEL ";Ll%" TOP SIX"TAB(4,3)STRING$(24,"_")RED$TAB(5,6)"SCORE     NAME      RATING":COLOUR2
  740A=Ll%-1:FORA%=0TO5:B%=9+3*A%:PRINTTAB(1,B%);A%+1"."TAB(5,B%);HI%(A%,A)TAB(12,B%)N$(A%,A)TAB(25,B%)R$(A%,A):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&13,K%,121,6:SOUND&12,K%,73,6:FORX1%=&B3CTO&B5B STEP2:X%=?X1%:Y%=?(X1%+1)*2:SOUND3,K%,X%,Y%
  760SOUND2,K%,X%-48,Y%:NEXT:PRINTTAB(5,12)"PLEASE ENTER YOUR NAME"TAB(9,20)STRING$(11,"-")
  770REPEAT:UNTILINKEY$(0)="":N$="":PRINTTAB(9,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:A=SC%/1000:IFA>100R$="KING"ELSEIFA>50R$="MASTER"ELSEIFA>35R$="V.GOOD"ELSEIFA>20R$="GOOD"ELSEIFA>10R$="FAIR"ELSER$="POOR"
  800A=Ll%-1:FORA%=5TO0STEP-1:IFSC%>HI%(A%,A) HI%(A%+1,A)=HI%(A%,A):N$(A%+1,A)=N$(A%,A):R$(A%+1,A)=R$(A%,A):HI%(A%,A)=SC%:N$(A%,A)=N$:R$(A%,A)=R$
  810NEXT:CLS:VDU19,1,1,0;0:ENDPROC
  820DEFPROCTOOLATE(A,B,I,J):VDU5,29,128;1020;:GCOL3,1:SOUND&13,3*K%,100,255:SOUND&12,3*K%,108,50:MOVEA,-B:PRINTSK$
  830XA%=32*SGN(I-A):IFI=A YA%=32*SGN(J-B) ELSE YA%=32*ABS((J-B)/(I-A))*SGN(J-B)
  840REPEAT:MOVEA,-B:PRINTSK$:A=A+XA%:B=B+YA%:MOVEA,-B:PRINTSK$:UNTILA>I-25ANDA<I+25ANDB>J-25ANDB<J+25:MOVEA,-B:PRINTSK$:SOUND&13,0,0,1:VDU4:PROCBA(XM%,YM%):ENDPROC
  850 DEFPROCX:CLS:A%=3:FORX%=1TO14:FORY%=1TO13:CALL&B70:NEXT:NEXT:X1=RND(14):FORX%=1TO14:A%=7-6*(X%=X1):CALL&B70:NEXT
  860PRINTTAB(3,31)"PRESS SPACE WHEN MAN MOVES";:PROCY(7000):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%:PROCY(60):IFINKEY(-99) X2=X%:Y2=Y%:X%=14:Y%=13
  870NEXT:NEXT:IFX2=0 PROCBA(14,13):ENDPROC ELSE X%=X2:FORY%=Y2 TO14:A%=5:CALL&B70:A%=1:Y%=Y%-1:CALL&B70:Y%=Y%+1:PROCY(150):NEXT:IFX1<>X% PROCBA(X%,14):ENDPROC
  880B=400*(15-Y2):PRINTTAB(11,1)"BONUS=";B:SC%=SC%+B:FORN=1TO399:SOUND&10+RND(3),-15*K%,N MOD50,1:NEXT:ENDPROC
  890DEFPROCY(X):FORN=1TOX:NEXT:ENDPROC

+ �Z%=0�&1900�4:Z%!&E00=Z%!&3073:�:*TAPE
*FX138,0,82
*FX138,0,85
*FX138,0,78
*FX138,0,13
�=&E00:�
$ �Z%=0�&2C0�4:Z%!&B00=Z%!&6000:�
��:�A%(15,15),HI%(6,2),N$(6,2),R$(6,2),XB%(4),YB%(4),SX%(6),SY%(6),B%(4),C%(4),D%(4):B%(1)=1:C%(1)=0:B%(2)=-1:C%(2)=0:B%(3)=0:C%(3)=1:B%(4)=0:C%(4)=-1:�A=0�6:�B=0�2:R$(A,B)=�6,"-"):N$(A,B)="TheComputer":HI%(A,B)=1000:�:�
~�7:�Y%=3�21:�10,Y%)�154�148:�&11,2,8*Y%,10:�X%=12�26:�X%,Y%)�(�(26)+96):�:�:�A=7�8:�9,A)�133�141"D A N G E R  U X B":� 
(K�6,10)�131"DO YOU WANT SOUND  (Y/N)?";:�:A=�:�A=89�A=78:�A=89K%=1�K%=0
-��3,13)�131"WHAT IS YOUR SKILL LEVEL (1-3)?";:�:Ll%=�-48:� Ll%>0�Ll%<4:�'''"   PRESS ANY KEY WHEN READY TO PLAY";:A=�:�1:�I:�28,4,31,36,0,23;8202;0;0;0;19,3,4;0;
2�B:�Y(3000)
<�:�M:�D%��t~@
F5BC%=BC%-1:NUM$=RED$+�(BC%):�BC%<10� NUM$=" "+NUM$
P�L%,M%)NUM$:�BC%=0 D%=3
Z�S%>4 �D%:�dH@
d�Ll%<3 �Y(80):�D%:�dH@
nN%=N%+1:�N%>S% N%=1
x[B%=0:A%=0:X%=XB%(N%):Y%=YB%(N%):�X%<14 Z%=A%(X%+1,Y%):A%=-(Z%=5):�Z%=3 B%=B%+1:D%(B%)=1
�>�X%>1 Z%=A%(X%-1,Y%):A%=A%-2*(Z%=5):�Z%=3 B%=B%+1:D%(B%)=2
�?�Y%<14 Z%=A%(X%,Y%+1):A%=A%-3*(Z%=5):�Z%=3 B%=B%+1:D%(B%)=3
�>�Y%>1 Z%=A%(X%,Y%-1):A%=A%-4*(Z%=5):�Z%=3 B%=B%+1:D%(B%)=4
��A%D%=2 � �B%=0��t~@
�&�A%=0 A%=D%(1):�B%<>1 A%=D%(�(B%))
�wA%(X%,Y%)=3:XB%(N%)=X%+B%(A%):YB%(N%)=Y%+C%(A%):A%(XB%(N%),YB%(N%))=11:A%=3:�&B70:A%=11:X%=XB%(N%):Y%=YB%(N%):�&B70
��D%
�S�D%=4 S%=S%-(S%<15):LF%=LF%-(S%=5):�A=4�54:�A �3+1,(A �4+1)*K%,4*A,3:�:�X:�Tr@
��D%=1�BA(XM%,YM%)
�,�D%=3�TOOLATE(32*L%,32*M%,64*XM%,64*YM%)
��D%=2�BC(XB%(N%),YB%(N%))
��D%=5�BC(XM%,YM%)
���Y(1500):�&11,-14*K%,37,20:�&12,-14*K%,85,20:�1,0,0,1:�A=&B5C�&B6D �2:�1,-14*K%,?A,?(A+1):�2,-12*K%,?A+48,?(A+1):�:LF%=LF%-1:�LF%>0��Tr@
_�2:�11,14)�(12)�11,16)�(12)�11,15)" GAME  OVER "�15,1);0:�Y(8000):�SC%>HI%(5,Ll%-1) �NEWHI
�HSS:LF%=3:S%=1:SC%=0:�Tr@
-��M:�(-82) �L(YM%):� � �(-51) �R(YM%):�
"/P%=�(-98)-�(-67):Q%=�(-73)-�(-105):�P% Q%=0
,[X%=XM%:Y%=YM%:XM%=XM%+P%:YM%=YM%+Q%:�XM%=15XM%=1��XM%=0XM%=14��YM%=0YM%=14��YM%=15YM%=1
6;�A%(XM%,YM%)=5�A%(XM%,YM%)=1 XM%=X%:YM%=Y%:�A=1�120:�:�
@(R%=?Dt%:Dt%=Dt%+1:�Dt%=&B3C Dt%=&B00
Jy�&12,K%,R%,3:A%=1:�&B70:A%(X%,Y%)=1:�A%(XM%,YM%)=3 A%(XM%,YM%)=5:SC%=SC%+20:A%=5:X%=XM%:Y%=YM%:�&B70:�2:�24,1);SC%:�
T�A%(XM%,YM%)=7 D%=1:�
^�A%(XM%,YM%)=11 D%=5:�
hu�A%(XM%,YM%)=13 �&13,4*K%,25,5:�&12,4*K%,30,5:SC%=SC%+500:A%=5:X%=XM%:Y%=YM%:�&B70:�2:�24,1);SC%:A%(XM%,YM%)=5:�
r�SC%=SC%+10*BC%:A%=5:X%=XM%:Y%=YM%:�&B70:�2:�24,1);SC%:�&12,4*K%,0,20:�&13,4*K%,48,20:�&11,4*K%,250,20:DD%=DD%+1:�DD%=6 D%=4:�
|4A%(XM%,YM%)=7:A%=7:X%=XM%:Y%=YM%:�&B70:A%=1:B%=1
�2�:�XM%+A%<15 �A%(XM%+A%,YM%)<4 XM%=XM%+A%:B%=0
�2�B%�XM%-A%>0 �A%(XM%-A%,YM%)<4 XM%=XM%-A%:B%=0
�A%=A%+1:�A%=15�B%=0
�/�A%=14 �:XM%=�(14):YM%=�(14):�A%(XM%,YM%)<4
�3A%(XM%,YM%)=5:A%=5:X%=XM%:Y%=YM%:�&B70:�Y(2000)
�tBC%=41-20*(Ll%=1):�:B%=�(6):�B%<>SB%:SB%=B%:L%=SX%(SB%)*2:M%=SY%(SB%)*2:A%=9:X%=L%/2:Y%=M%/2:�&B70:A%(X%,Y%)=9:�
�)��L(Y%):A%(15,Y%)=A%(1,Y%):�S%>4��d`A
�@�B%=1�S%:�YB%(B%)=Y% XB%(B%)=XB%(B%)-1:�XB%(B%)=0 XB%(B%)=14
��
�?�B%=1�6:�SY%(B%)=Y% SX%(B%)=SX%(B%)-1:�SX%(B%)=0 SX%(B%)=14
��
�XM%=XM%-1:�XM%=0 XM%=14
�_�X%=1�14:A%(X%,Y%)=A%(X%+1,Y%):�:�0,-8*K%,5,3:L%=SX%(SB%)*2:�X%=1�14:A%=A%(X%,Y%):�&B70:�:�
)��R(Y%):A%(0,Y%)=A%(14,Y%):�S%>4��TfB
@�B%=1�S%:�YB%(B%)=Y% XB%(B%)=XB%(B%)+1:�XB%(B%)=15 XB%(B%)=1
�
&?�B%=1�6:�SY%(B%)=Y% SX%(B%)=SX%(B%)+1:�SX%(B%)=15 SX%(B%)=1
0�
:XM%=XM%+1:�XM%=15 XM%=1
Db�X%=14�1�-1:A%(X%,Y%)=A%(X%-1,Y%):�:�0,-8*K%,5,3:L%=SX%(SB%)*2:�X%=1�14:A%=A%(X%,Y%):�&B70:�:�
NH��I:LF%=3:S%=1:SC%=0:SK$=�224+�225+�10+�8+�8+�226+�227:RED$=�17+�1:�
Xe��B:Dt%=&B00:�:N%=1:�2:�2,0)"<SHEET>   <LIVES>    <SCORE>"�5,1);S%�15,1)LF%�24,1);SC%:DD%=0:D%=0
b�A%=3:�X%=1�14:�Y%=1�14:�&B70:A%(X%,Y%)=3:�:�:A%=7:B%=1:�X1%=0�10�5:�Y1%=0�7�7:X%=�(4)+X1%:Y%=�(7)+Y1%:A%(X%,Y%)=7:SX%(B%)=X%:SY%(B%)=Y%:B%=B%+1:�&B70:�:�
l;�A%(8,7)=3 XM%=8:YM%=7:A%(8,7)=5 �XM%=7:YM%=7:A%(7,7)=5
vA%=5:X%=XM%:Y%=YM%:�&B70
��S%>4�Ll%<3��t^B
�6A%(5,1)=11:X%=5:Y%=1:A%=11:�&B70:XB%(1)=5:YB%(1)=1
���S%>1 A%(5,14)=11:X%=5:Y%=14:�&B70:XB%(2)=5:YB%(2)=14:�S%>2 A%(10,1)=11:X%=10:Y%=1:�&B70:XB%(3)=10:YB%(3)=1:�S%>3 A%(10,14)=11:X%=10:Y%=14:�&B70:XB%(4)=10:YB%(4)=14
�aBC%=41-20*(Ll%=1):SB%=�(6):L%=SX%(SB%)*2:M%=SY%(SB%)*2:X%=L%/2:Y%=M%/2:A%=9:�&B70:A%(X%,Y%)=9
�VA%=13:�X1%=1�(S%+2-2*(S%>5)):�:X%=�(14):Y%=�(14):�A%(X%,Y%)=3:�&B70:A%(X%,Y%)=13:�
��S%<5 �
�OA%=7:�X1%=1�(S%-4)*2:�:X%=�(14):Y%=�(14):�A%(X%,Y%)=3:A%(X%,Y%)=7:�&B70:�:�
�[��BA(X%,Y%):�19,0,7,0;0:A%=7:�&B70:�&10,2*K%,6,50:�&11,2*K%,0,5:�X1=1�100:�:�19,0;0;0:�
�B��BC(X%,Y%):�&11,3*K%,0,70:�A=1�200:A%=5:�&B70:A%=11:�&B70:�:�
�i��HSS:�:�3:�4,2)"BLOCKMAN LEVEL ";Ll%" TOP SIX"�4,3)�24,"_")RED$�5,6)"SCORE     NAME      RATING":�2
�A=Ll%-1:�A%=0�5:B%=9+3*A%:�1,B%);A%+1"."�5,B%);HI%(A%,A)�12,B%)N$(A%,A)�25,B%)R$(A%,A):�:�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":�&13,K%,121,6:�&12,K%,73,6:�X1%=&B3C�&B5B �2:X%=?X1%:Y%=?(X1%+1)*2:�3,K%,X%,Y%
�B�2,K%,X%-48,Y%:�:�5,12)"PLEASE ENTER YOUR NAME"�9,20)�11,"-")
F�:��(0)="":N$="":�9,20);:�:A%=�:�A%>31�A%<123 �(A%);:N$=N$+�(A%)
3�A%=127��(N$)>0 �127;"-";�8;:N$=�N$,(�(N$)-1))
x��(N$)=11�A%=13:A=SC%/1000:�A>100R$="KING"��A>50R$="MASTER"��A>35R$="V.GOOD"��A>20R$="GOOD"��A>10R$="FAIR"�R$="POOR"
 �A=Ll%-1:�A%=5�0�-1:�SC%>HI%(A%,A) HI%(A%+1,A)=HI%(A%,A):N$(A%+1,A)=N$(A%,A):R$(A%+1,A)=R$(A%,A):HI%(A%,A)=SC%:N$(A%,A)=N$:R$(A%,A)=R$
*�:�:�19,1,1,0;0:�
4Y��TOOLATE(A,B,I,J):�5,29,128;1020;:�3,1:�&13,3*K%,100,255:�&12,3*K%,108,50:�A,-B:�SK$
>CXA%=32*�(I-A):�I=A YA%=32*�(J-B) � YA%=32*�((J-B)/(I-A))*�(J-B)
Hp�:�A,-B:�SK$:A=A+XA%:B=B+YA%:�A,-B:�SK$:�A>I-25�A<I+25�B>J-25�B<J+25:�A,-B:�SK$:�&13,0,0,1:�4:�BA(XM%,YM%):�
RT ��X:�:A%=3:�X%=1�14:�Y%=1�13:�&B70:�:�:X1=�(14):�X%=1�14:A%=7-6*(X%=X1):�&B70:�
\��3,31)"PRESS SPACE WHEN MAN MOVES";:�Y(7000):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%:�Y(60):�(-99) X2=X%:Y2=Y%:X%=14:Y%=13
fr�:�:�X2=0 �BA(14,13):� � X%=X2:�Y%=Y2 �14:A%=5:�&B70:A%=1:Y%=Y%-1:�&B70:Y%=Y%+1:�Y(150):�:�X1<>X% �BA(X%,14):�
pSB=400*(15-Y2):�11,1)"BONUS=";B:SC%=SC%+B:�N=1�399:�&10+�(3),-15*K%,N �50,1:�:�
z��Y(X):�N=1�X:�:�
�
00000000  0d 00 01 2b 20 e3 5a 25  3d 30 b8 26 31 39 30 30  |...+ .Z%=0.&1900|
00000010  88 34 3a 5a 25 21 26 45  30 30 3d 5a 25 21 26 33  |.4:Z%!&E00=Z%!&3|
00000020  30 37 33 3a ed 3a 2a 54  41 50 45 0d 00 02 0f 2a  |073:.:*TAPE....*|
00000030  46 58 31 33 38 2c 30 2c  38 32 0d 00 03 0f 2a 46  |FX138,0,82....*F|
00000040  58 31 33 38 2c 30 2c 38  35 0d 00 04 0f 2a 46 58  |X138,0,85....*FX|
00000050  31 33 38 2c 30 2c 37 38  0d 00 05 0f 2a 46 58 31  |138,0,78....*FX1|
00000060  33 38 2c 30 2c 31 33 0d  00 06 0c d0 3d 26 45 30  |38,0,13.....=&E0|
00000070  30 3a e0 0d 00 08 24 20  e3 5a 25 3d 30 b8 26 32  |0:....$ .Z%=0.&2|
00000080  43 30 88 34 3a 5a 25 21  26 42 30 30 3d 5a 25 21  |C0.4:Z%!&B00=Z%!|
00000090  26 36 30 30 30 3a ed 0d  00 14 df d8 3a de 41 25  |&6000:......:.A%|
000000a0  28 31 35 2c 31 35 29 2c  48 49 25 28 36 2c 32 29  |(15,15),HI%(6,2)|
000000b0  2c 4e 24 28 36 2c 32 29  2c 52 24 28 36 2c 32 29  |,N$(6,2),R$(6,2)|
000000c0  2c 58 42 25 28 34 29 2c  59 42 25 28 34 29 2c 53  |,XB%(4),YB%(4),S|
000000d0  58 25 28 36 29 2c 53 59  25 28 36 29 2c 42 25 28  |X%(6),SY%(6),B%(|
000000e0  34 29 2c 43 25 28 34 29  2c 44 25 28 34 29 3a 42  |4),C%(4),D%(4):B|
000000f0  25 28 31 29 3d 31 3a 43  25 28 31 29 3d 30 3a 42  |%(1)=1:C%(1)=0:B|
00000100  25 28 32 29 3d 2d 31 3a  43 25 28 32 29 3d 30 3a  |%(2)=-1:C%(2)=0:|
00000110  42 25 28 33 29 3d 30 3a  43 25 28 33 29 3d 31 3a  |B%(3)=0:C%(3)=1:|
00000120  42 25 28 34 29 3d 30 3a  43 25 28 34 29 3d 2d 31  |B%(4)=0:C%(4)=-1|
00000130  3a e3 41 3d 30 b8 36 3a  e3 42 3d 30 b8 32 3a 52  |:.A=0.6:.B=0.2:R|
00000140  24 28 41 2c 42 29 3d c4  36 2c 22 2d 22 29 3a 4e  |$(A,B)=.6,"-"):N|
00000150  24 28 41 2c 42 29 3d 22  54 68 65 43 6f 6d 70 75  |$(A,B)="TheCompu|
00000160  74 65 72 22 3a 48 49 25  28 41 2c 42 29 3d 31 30  |ter":HI%(A,B)=10|
00000170  30 30 3a ed 3a ed 0d 00  1e 7e eb 37 3a e3 59 25  |00:.:....~.7:.Y%|
00000180  3d 33 b8 32 31 3a f1 8a  31 30 2c 59 25 29 bd 31  |=3.21:..10,Y%).1|
00000190  35 34 bd 31 34 38 3a d4  26 31 31 2c 32 2c 38 2a  |54.148:.&11,2,8*|
000001a0  59 25 2c 31 30 3a e3 58  25 3d 31 32 b8 32 36 3a  |Y%,10:.X%=12.26:|
000001b0  f1 8a 58 25 2c 59 25 29  bd 28 b3 28 32 36 29 2b  |..X%,Y%).(.(26)+|
000001c0  39 36 29 3a ed 3a ed 3a  e3 41 3d 37 b8 38 3a f1  |96):.:.:.A=7.8:.|
000001d0  8a 39 2c 41 29 bd 31 33  33 bd 31 34 31 22 44 20  |.9,A).133.141"D |
000001e0  41 20 4e 20 47 20 45 20  52 20 20 55 20 58 20 42  |A N G E R  U X B|
000001f0  22 3a ed 20 0d 00 28 4b  f1 8a 36 2c 31 30 29 bd  |":. ..(K..6,10).|
00000200  31 33 31 22 44 4f 20 59  4f 55 20 57 41 4e 54 20  |131"DO YOU WANT |
00000210  53 4f 55 4e 44 20 20 28  59 2f 4e 29 3f 22 3b 3a  |SOUND  (Y/N)?";:|
00000220  f5 3a 41 3d a5 3a fd 41  3d 38 39 84 41 3d 37 38  |.:A=.:.A=89.A=78|
00000230  3a e7 41 3d 38 39 4b 25  3d 31 8b 4b 25 3d 30 0d  |:.A=89K%=1.K%=0.|
00000240  00 2d a5 f1 8a 33 2c 31  33 29 bd 31 33 31 22 57  |.-...3,13).131"W|
00000250  48 41 54 20 49 53 20 59  4f 55 52 20 53 4b 49 4c  |HAT IS YOUR SKIL|
00000260  4c 20 4c 45 56 45 4c 20  28 31 2d 33 29 3f 22 3b  |L LEVEL (1-3)?";|
00000270  3a f5 3a 4c 6c 25 3d a5  2d 34 38 3a fd 20 4c 6c  |:.:Ll%=.-48:. Ll|
00000280  25 3e 30 80 4c 6c 25 3c  34 3a f1 27 27 27 22 20  |%>0.Ll%<4:.'''" |
00000290  20 20 50 52 45 53 53 20  41 4e 59 20 4b 45 59 20  |  PRESS ANY KEY |
000002a0  57 48 45 4e 20 52 45 41  44 59 20 54 4f 20 50 4c  |WHEN READY TO PL|
000002b0  41 59 22 3b 3a 41 3d a5  3a eb 31 3a f2 49 3a ef  |AY";:A=.:.1:.I:.|
000002c0  32 38 2c 34 2c 33 31 2c  33 36 2c 30 2c 32 33 3b  |28,4,31,36,0,23;|
000002d0  38 32 30 32 3b 30 3b 30  3b 30 3b 31 39 2c 33 2c  |8202;0;0;0;19,3,|
000002e0  34 3b 30 3b 0d 00 32 0f  f2 42 3a f2 59 28 33 30  |4;0;..2..B:.Y(30|
000002f0  30 30 29 0d 00 3c 11 f5  3a f2 4d 3a e7 44 25 8c  |00)..<..:.M:.D%.|
00000300  8d 74 7e 40 0d 00 46 35  42 43 25 3d 42 43 25 2d  |.t~@..F5BC%=BC%-|
00000310  31 3a 4e 55 4d 24 3d 52  45 44 24 2b c3 28 42 43  |1:NUM$=RED$+.(BC|
00000320  25 29 3a e7 42 43 25 3c  31 30 8c 20 4e 55 4d 24  |%):.BC%<10. NUM$|
00000330  3d 22 20 22 2b 4e 55 4d  24 0d 00 50 1c f1 8a 4c  |=" "+NUM$..P...L|
00000340  25 2c 4d 25 29 4e 55 4d  24 3a e7 42 43 25 3d 30  |%,M%)NUM$:.BC%=0|
00000350  20 44 25 3d 33 0d 00 5a  13 e7 53 25 3e 34 20 fd  | D%=3..Z..S%>4 .|
00000360  44 25 3a e5 8d 64 48 40  0d 00 64 1b e7 4c 6c 25  |D%:..dH@..d..Ll%|
00000370  3c 33 20 f2 59 28 38 30  29 3a fd 44 25 3a e5 8d  |<3 .Y(80):.D%:..|
00000380  64 48 40 0d 00 6e 17 4e  25 3d 4e 25 2b 31 3a e7  |dH@..n.N%=N%+1:.|
00000390  4e 25 3e 53 25 20 4e 25  3d 31 0d 00 78 5b 42 25  |N%>S% N%=1..x[B%|
000003a0  3d 30 3a 41 25 3d 30 3a  58 25 3d 58 42 25 28 4e  |=0:A%=0:X%=XB%(N|
000003b0  25 29 3a 59 25 3d 59 42  25 28 4e 25 29 3a e7 58  |%):Y%=YB%(N%):.X|
000003c0  25 3c 31 34 20 5a 25 3d  41 25 28 58 25 2b 31 2c  |%<14 Z%=A%(X%+1,|
000003d0  59 25 29 3a 41 25 3d 2d  28 5a 25 3d 35 29 3a e7  |Y%):A%=-(Z%=5):.|
000003e0  5a 25 3d 33 20 42 25 3d  42 25 2b 31 3a 44 25 28  |Z%=3 B%=B%+1:D%(|
000003f0  42 25 29 3d 31 0d 00 82  3e e7 58 25 3e 31 20 5a  |B%)=1...>.X%>1 Z|
00000400  25 3d 41 25 28 58 25 2d  31 2c 59 25 29 3a 41 25  |%=A%(X%-1,Y%):A%|
00000410  3d 41 25 2d 32 2a 28 5a  25 3d 35 29 3a e7 5a 25  |=A%-2*(Z%=5):.Z%|
00000420  3d 33 20 42 25 3d 42 25  2b 31 3a 44 25 28 42 25  |=3 B%=B%+1:D%(B%|
00000430  29 3d 32 0d 00 8c 3f e7  59 25 3c 31 34 20 5a 25  |)=2...?.Y%<14 Z%|
00000440  3d 41 25 28 58 25 2c 59  25 2b 31 29 3a 41 25 3d  |=A%(X%,Y%+1):A%=|
00000450  41 25 2d 33 2a 28 5a 25  3d 35 29 3a e7 5a 25 3d  |A%-3*(Z%=5):.Z%=|
00000460  33 20 42 25 3d 42 25 2b  31 3a 44 25 28 42 25 29  |3 B%=B%+1:D%(B%)|
00000470  3d 33 0d 00 96 3e e7 59  25 3e 31 20 5a 25 3d 41  |=3...>.Y%>1 Z%=A|
00000480  25 28 58 25 2c 59 25 2d  31 29 3a 41 25 3d 41 25  |%(X%,Y%-1):A%=A%|
00000490  2d 34 2a 28 5a 25 3d 35  29 3a e7 5a 25 3d 33 20  |-4*(Z%=5):.Z%=3 |
000004a0  42 25 3d 42 25 2b 31 3a  44 25 28 42 25 29 3d 34  |B%=B%+1:D%(B%)=4|
000004b0  0d 00 a0 18 e7 41 25 44  25 3d 32 20 8b 20 e7 42  |.....A%D%=2 . .B|
000004c0  25 3d 30 8c 8d 74 7e 40  0d 00 aa 26 e7 41 25 3d  |%=0..t~@...&.A%=|
000004d0  30 20 41 25 3d 44 25 28  31 29 3a e7 42 25 3c 3e  |0 A%=D%(1):.B%<>|
000004e0  31 20 41 25 3d 44 25 28  b3 28 42 25 29 29 0d 00  |1 A%=D%(.(B%))..|
000004f0  b4 77 41 25 28 58 25 2c  59 25 29 3d 33 3a 58 42  |.wA%(X%,Y%)=3:XB|
00000500  25 28 4e 25 29 3d 58 25  2b 42 25 28 41 25 29 3a  |%(N%)=X%+B%(A%):|
00000510  59 42 25 28 4e 25 29 3d  59 25 2b 43 25 28 41 25  |YB%(N%)=Y%+C%(A%|
00000520  29 3a 41 25 28 58 42 25  28 4e 25 29 2c 59 42 25  |):A%(XB%(N%),YB%|
00000530  28 4e 25 29 29 3d 31 31  3a 41 25 3d 33 3a d6 26  |(N%))=11:A%=3:.&|
00000540  42 37 30 3a 41 25 3d 31  31 3a 58 25 3d 58 42 25  |B70:A%=11:X%=XB%|
00000550  28 4e 25 29 3a 59 25 3d  59 42 25 28 4e 25 29 3a  |(N%):Y%=YB%(N%):|
00000560  d6 26 42 37 30 0d 00 be  07 fd 44 25 0d 00 c8 53  |.&B70.....D%...S|
00000570  e7 44 25 3d 34 20 53 25  3d 53 25 2d 28 53 25 3c  |.D%=4 S%=S%-(S%<|
00000580  31 35 29 3a 4c 46 25 3d  4c 46 25 2d 28 53 25 3d  |15):LF%=LF%-(S%=|
00000590  35 29 3a e3 41 3d 34 b8  35 34 3a d4 41 20 83 33  |5):.A=4.54:.A .3|
000005a0  2b 31 2c 28 41 20 83 34  2b 31 29 2a 4b 25 2c 34  |+1,(A .4+1)*K%,4|
000005b0  2a 41 2c 33 3a ed 3a f2  58 3a e5 8d 54 72 40 0d  |*A,3:.:.X:..Tr@.|
000005c0  00 d2 15 e7 44 25 3d 31  f2 42 41 28 58 4d 25 2c  |....D%=1.BA(XM%,|
000005d0  59 4d 25 29 0d 00 dc 2c  e7 44 25 3d 33 f2 54 4f  |YM%)...,.D%=3.TO|
000005e0  4f 4c 41 54 45 28 33 32  2a 4c 25 2c 33 32 2a 4d  |OLATE(32*L%,32*M|
000005f0  25 2c 36 34 2a 58 4d 25  2c 36 34 2a 59 4d 25 29  |%,64*XM%,64*YM%)|
00000600  0d 00 e6 1d e7 44 25 3d  32 f2 42 43 28 58 42 25  |.....D%=2.BC(XB%|
00000610  28 4e 25 29 2c 59 42 25  28 4e 25 29 29 0d 00 f0  |(N%),YB%(N%))...|
00000620  15 e7 44 25 3d 35 f2 42  43 28 58 4d 25 2c 59 4d  |..D%=5.BC(XM%,YM|
00000630  25 29 0d 00 fa 8c f2 59  28 31 35 30 30 29 3a d4  |%).....Y(1500):.|
00000640  26 31 31 2c 2d 31 34 2a  4b 25 2c 33 37 2c 32 30  |&11,-14*K%,37,20|
00000650  3a d4 26 31 32 2c 2d 31  34 2a 4b 25 2c 38 35 2c  |:.&12,-14*K%,85,|
00000660  32 30 3a d4 31 2c 30 2c  30 2c 31 3a e3 41 3d 26  |20:.1,0,0,1:.A=&|
00000670  42 35 43 b8 26 42 36 44  20 88 32 3a d4 31 2c 2d  |B5C.&B6D .2:.1,-|
00000680  31 34 2a 4b 25 2c 3f 41  2c 3f 28 41 2b 31 29 3a  |14*K%,?A,?(A+1):|
00000690  d4 32 2c 2d 31 32 2a 4b  25 2c 3f 41 2b 34 38 2c  |.2,-12*K%,?A+48,|
000006a0  3f 28 41 2b 31 29 3a ed  3a 4c 46 25 3d 4c 46 25  |?(A+1):.:LF%=LF%|
000006b0  2d 31 3a e7 4c 46 25 3e  30 8c 8d 54 72 40 0d 01  |-1:.LF%>0..Tr@..|
000006c0  04 5f fb 32 3a f1 8a 31  31 2c 31 34 29 89 28 31  |._.2:..11,14).(1|
000006d0  32 29 8a 31 31 2c 31 36  29 89 28 31 32 29 8a 31  |2).11,16).(12).1|
000006e0  31 2c 31 35 29 22 20 47  41 4d 45 20 20 4f 56 45  |1,15)" GAME  OVE|
000006f0  52 20 22 8a 31 35 2c 31  29 3b 30 3a f2 59 28 38  |R ".15,1);0:.Y(8|
00000700  30 30 30 29 3a e7 53 43  25 3e 48 49 25 28 35 2c  |000):.SC%>HI%(5,|
00000710  4c 6c 25 2d 31 29 20 f2  4e 45 57 48 49 0d 01 0e  |Ll%-1) .NEWHI...|
00000720  1f f2 48 53 53 3a 4c 46  25 3d 33 3a 53 25 3d 31  |..HSS:LF%=3:S%=1|
00000730  3a 53 43 25 3d 30 3a e5  8d 54 72 40 0d 01 18 2d  |:SC%=0:..Tr@...-|
00000740  dd f2 4d 3a e7 a6 28 2d  38 32 29 20 f2 4c 28 59  |..M:..(-82) .L(Y|
00000750  4d 25 29 3a e1 20 8b 20  e7 a6 28 2d 35 31 29 20  |M%):. . ..(-51) |
00000760  f2 52 28 59 4d 25 29 3a  e1 0d 01 22 2f 50 25 3d  |.R(YM%):..."/P%=|
00000770  a6 28 2d 39 38 29 2d a6  28 2d 36 37 29 3a 51 25  |.(-98)-.(-67):Q%|
00000780  3d a6 28 2d 37 33 29 2d  a6 28 2d 31 30 35 29 3a  |=.(-73)-.(-105):|
00000790  e7 50 25 20 51 25 3d 30  0d 01 2c 5b 58 25 3d 58  |.P% Q%=0..,[X%=X|
000007a0  4d 25 3a 59 25 3d 59 4d  25 3a 58 4d 25 3d 58 4d  |M%:Y%=YM%:XM%=XM|
000007b0  25 2b 50 25 3a 59 4d 25  3d 59 4d 25 2b 51 25 3a  |%+P%:YM%=YM%+Q%:|
000007c0  e7 58 4d 25 3d 31 35 58  4d 25 3d 31 8b e7 58 4d  |.XM%=15XM%=1..XM|
000007d0  25 3d 30 58 4d 25 3d 31  34 8b e7 59 4d 25 3d 30  |%=0XM%=14..YM%=0|
000007e0  59 4d 25 3d 31 34 8b e7  59 4d 25 3d 31 35 59 4d  |YM%=14..YM%=15YM|
000007f0  25 3d 31 0d 01 36 3b e7  41 25 28 58 4d 25 2c 59  |%=1..6;.A%(XM%,Y|
00000800  4d 25 29 3d 35 84 41 25  28 58 4d 25 2c 59 4d 25  |M%)=5.A%(XM%,YM%|
00000810  29 3d 31 20 58 4d 25 3d  58 25 3a 59 4d 25 3d 59  |)=1 XM%=X%:YM%=Y|
00000820  25 3a e3 41 3d 31 b8 31  32 30 3a ed 3a e1 0d 01  |%:.A=1.120:.:...|
00000830  40 28 52 25 3d 3f 44 74  25 3a 44 74 25 3d 44 74  |@(R%=?Dt%:Dt%=Dt|
00000840  25 2b 31 3a e7 44 74 25  3d 26 42 33 43 20 44 74  |%+1:.Dt%=&B3C Dt|
00000850  25 3d 26 42 30 30 0d 01  4a 79 d4 26 31 32 2c 4b  |%=&B00..Jy.&12,K|
00000860  25 2c 52 25 2c 33 3a 41  25 3d 31 3a d6 26 42 37  |%,R%,3:A%=1:.&B7|
00000870  30 3a 41 25 28 58 25 2c  59 25 29 3d 31 3a e7 41  |0:A%(X%,Y%)=1:.A|
00000880  25 28 58 4d 25 2c 59 4d  25 29 3d 33 20 41 25 28  |%(XM%,YM%)=3 A%(|
00000890  58 4d 25 2c 59 4d 25 29  3d 35 3a 53 43 25 3d 53  |XM%,YM%)=5:SC%=S|
000008a0  43 25 2b 32 30 3a 41 25  3d 35 3a 58 25 3d 58 4d  |C%+20:A%=5:X%=XM|
000008b0  25 3a 59 25 3d 59 4d 25  3a d6 26 42 37 30 3a fb  |%:Y%=YM%:.&B70:.|
000008c0  32 3a f1 8a 32 34 2c 31  29 3b 53 43 25 3a e1 0d  |2:..24,1);SC%:..|
000008d0  01 54 19 e7 41 25 28 58  4d 25 2c 59 4d 25 29 3d  |.T..A%(XM%,YM%)=|
000008e0  37 20 44 25 3d 31 3a e1  0d 01 5e 1a e7 41 25 28  |7 D%=1:...^..A%(|
000008f0  58 4d 25 2c 59 4d 25 29  3d 31 31 20 44 25 3d 35  |XM%,YM%)=11 D%=5|
00000900  3a e1 0d 01 68 75 e7 41  25 28 58 4d 25 2c 59 4d  |:...hu.A%(XM%,YM|
00000910  25 29 3d 31 33 20 d4 26  31 33 2c 34 2a 4b 25 2c  |%)=13 .&13,4*K%,|
00000920  32 35 2c 35 3a d4 26 31  32 2c 34 2a 4b 25 2c 33  |25,5:.&12,4*K%,3|
00000930  30 2c 35 3a 53 43 25 3d  53 43 25 2b 35 30 30 3a  |0,5:SC%=SC%+500:|
00000940  41 25 3d 35 3a 58 25 3d  58 4d 25 3a 59 25 3d 59  |A%=5:X%=XM%:Y%=Y|
00000950  4d 25 3a d6 26 42 37 30  3a fb 32 3a f1 8a 32 34  |M%:.&B70:.2:..24|
00000960  2c 31 29 3b 53 43 25 3a  41 25 28 58 4d 25 2c 59  |,1);SC%:A%(XM%,Y|
00000970  4d 25 29 3d 35 3a e1 0d  01 72 82 53 43 25 3d 53  |M%)=5:...r.SC%=S|
00000980  43 25 2b 31 30 2a 42 43  25 3a 41 25 3d 35 3a 58  |C%+10*BC%:A%=5:X|
00000990  25 3d 58 4d 25 3a 59 25  3d 59 4d 25 3a d6 26 42  |%=XM%:Y%=YM%:.&B|
000009a0  37 30 3a fb 32 3a f1 8a  32 34 2c 31 29 3b 53 43  |70:.2:..24,1);SC|
000009b0  25 3a d4 26 31 32 2c 34  2a 4b 25 2c 30 2c 32 30  |%:.&12,4*K%,0,20|
000009c0  3a d4 26 31 33 2c 34 2a  4b 25 2c 34 38 2c 32 30  |:.&13,4*K%,48,20|
000009d0  3a d4 26 31 31 2c 34 2a  4b 25 2c 32 35 30 2c 32  |:.&11,4*K%,250,2|
000009e0  30 3a 44 44 25 3d 44 44  25 2b 31 3a e7 44 44 25  |0:DD%=DD%+1:.DD%|
000009f0  3d 36 20 44 25 3d 34 3a  e1 0d 01 7c 34 41 25 28  |=6 D%=4:...|4A%(|
00000a00  58 4d 25 2c 59 4d 25 29  3d 37 3a 41 25 3d 37 3a  |XM%,YM%)=7:A%=7:|
00000a10  58 25 3d 58 4d 25 3a 59  25 3d 59 4d 25 3a d6 26  |X%=XM%:Y%=YM%:.&|
00000a20  42 37 30 3a 41 25 3d 31  3a 42 25 3d 31 0d 01 86  |B70:A%=1:B%=1...|
00000a30  32 f5 3a e7 58 4d 25 2b  41 25 3c 31 35 20 e7 41  |2.:.XM%+A%<15 .A|
00000a40  25 28 58 4d 25 2b 41 25  2c 59 4d 25 29 3c 34 20  |%(XM%+A%,YM%)<4 |
00000a50  58 4d 25 3d 58 4d 25 2b  41 25 3a 42 25 3d 30 0d  |XM%=XM%+A%:B%=0.|
00000a60  01 90 32 e7 42 25 80 58  4d 25 2d 41 25 3e 30 20  |..2.B%.XM%-A%>0 |
00000a70  e7 41 25 28 58 4d 25 2d  41 25 2c 59 4d 25 29 3c  |.A%(XM%-A%,YM%)<|
00000a80  34 20 58 4d 25 3d 58 4d  25 2d 41 25 3a 42 25 3d  |4 XM%=XM%-A%:B%=|
00000a90  30 0d 01 9a 17 41 25 3d  41 25 2b 31 3a fd 41 25  |0....A%=A%+1:.A%|
00000aa0  3d 31 35 84 42 25 3d 30  0d 01 a4 2f e7 41 25 3d  |=15.B%=0.../.A%=|
00000ab0  31 34 20 f5 3a 58 4d 25  3d b3 28 31 34 29 3a 59  |14 .:XM%=.(14):Y|
00000ac0  4d 25 3d b3 28 31 34 29  3a fd 41 25 28 58 4d 25  |M%=.(14):.A%(XM%|
00000ad0  2c 59 4d 25 29 3c 34 0d  01 ae 33 41 25 28 58 4d  |,YM%)<4...3A%(XM|
00000ae0  25 2c 59 4d 25 29 3d 35  3a 41 25 3d 35 3a 58 25  |%,YM%)=5:A%=5:X%|
00000af0  3d 58 4d 25 3a 59 25 3d  59 4d 25 3a d6 26 42 37  |=XM%:Y%=YM%:.&B7|
00000b00  30 3a f2 59 28 32 30 30  30 29 0d 01 b8 74 42 43  |0:.Y(2000)...tBC|
00000b10  25 3d 34 31 2d 32 30 2a  28 4c 6c 25 3d 31 29 3a  |%=41-20*(Ll%=1):|
00000b20  f5 3a 42 25 3d b3 28 36  29 3a fd 42 25 3c 3e 53  |.:B%=.(6):.B%<>S|
00000b30  42 25 3a 53 42 25 3d 42  25 3a 4c 25 3d 53 58 25  |B%:SB%=B%:L%=SX%|
00000b40  28 53 42 25 29 2a 32 3a  4d 25 3d 53 59 25 28 53  |(SB%)*2:M%=SY%(S|
00000b50  42 25 29 2a 32 3a 41 25  3d 39 3a 58 25 3d 4c 25  |B%)*2:A%=9:X%=L%|
00000b60  2f 32 3a 59 25 3d 4d 25  2f 32 3a d6 26 42 37 30  |/2:Y%=M%/2:.&B70|
00000b70  3a 41 25 28 58 25 2c 59  25 29 3d 39 3a e1 0d 01  |:A%(X%,Y%)=9:...|
00000b80  c2 29 dd f2 4c 28 59 25  29 3a 41 25 28 31 35 2c  |.)..L(Y%):A%(15,|
00000b90  59 25 29 3d 41 25 28 31  2c 59 25 29 3a e7 53 25  |Y%)=A%(1,Y%):.S%|
00000ba0  3e 34 8c 8d 64 60 41 0d  01 cc 40 e3 42 25 3d 31  |>4..d`A...@.B%=1|
00000bb0  b8 53 25 3a e7 59 42 25  28 42 25 29 3d 59 25 20  |.S%:.YB%(B%)=Y% |
00000bc0  58 42 25 28 42 25 29 3d  58 42 25 28 42 25 29 2d  |XB%(B%)=XB%(B%)-|
00000bd0  31 3a e7 58 42 25 28 42  25 29 3d 30 20 58 42 25  |1:.XB%(B%)=0 XB%|
00000be0  28 42 25 29 3d 31 34 0d  01 d6 05 ed 0d 01 e0 3f  |(B%)=14........?|
00000bf0  e3 42 25 3d 31 b8 36 3a  e7 53 59 25 28 42 25 29  |.B%=1.6:.SY%(B%)|
00000c00  3d 59 25 20 53 58 25 28  42 25 29 3d 53 58 25 28  |=Y% SX%(B%)=SX%(|
00000c10  42 25 29 2d 31 3a e7 53  58 25 28 42 25 29 3d 30  |B%)-1:.SX%(B%)=0|
00000c20  20 53 58 25 28 42 25 29  3d 31 34 0d 01 ea 05 ed  | SX%(B%)=14.....|
00000c30  0d 01 f4 1b 58 4d 25 3d  58 4d 25 2d 31 3a e7 58  |....XM%=XM%-1:.X|
00000c40  4d 25 3d 30 20 58 4d 25  3d 31 34 0d 01 fe 5f e3  |M%=0 XM%=14..._.|
00000c50  58 25 3d 31 b8 31 34 3a  41 25 28 58 25 2c 59 25  |X%=1.14:A%(X%,Y%|
00000c60  29 3d 41 25 28 58 25 2b  31 2c 59 25 29 3a ed 3a  |)=A%(X%+1,Y%):.:|
00000c70  d4 30 2c 2d 38 2a 4b 25  2c 35 2c 33 3a 4c 25 3d  |.0,-8*K%,5,3:L%=|
00000c80  53 58 25 28 53 42 25 29  2a 32 3a e3 58 25 3d 31  |SX%(SB%)*2:.X%=1|
00000c90  b8 31 34 3a 41 25 3d 41  25 28 58 25 2c 59 25 29  |.14:A%=A%(X%,Y%)|
00000ca0  3a d6 26 42 37 30 3a ed  3a e1 0d 02 08 29 dd f2  |:.&B70:.:....)..|
00000cb0  52 28 59 25 29 3a 41 25  28 30 2c 59 25 29 3d 41  |R(Y%):A%(0,Y%)=A|
00000cc0  25 28 31 34 2c 59 25 29  3a e7 53 25 3e 34 8c 8d  |%(14,Y%):.S%>4..|
00000cd0  54 66 42 0d 02 12 40 e3  42 25 3d 31 b8 53 25 3a  |TfB...@.B%=1.S%:|
00000ce0  e7 59 42 25 28 42 25 29  3d 59 25 20 58 42 25 28  |.YB%(B%)=Y% XB%(|
00000cf0  42 25 29 3d 58 42 25 28  42 25 29 2b 31 3a e7 58  |B%)=XB%(B%)+1:.X|
00000d00  42 25 28 42 25 29 3d 31  35 20 58 42 25 28 42 25  |B%(B%)=15 XB%(B%|
00000d10  29 3d 31 0d 02 1c 05 ed  0d 02 26 3f e3 42 25 3d  |)=1.......&?.B%=|
00000d20  31 b8 36 3a e7 53 59 25  28 42 25 29 3d 59 25 20  |1.6:.SY%(B%)=Y% |
00000d30  53 58 25 28 42 25 29 3d  53 58 25 28 42 25 29 2b  |SX%(B%)=SX%(B%)+|
00000d40  31 3a e7 53 58 25 28 42  25 29 3d 31 35 20 53 58  |1:.SX%(B%)=15 SX|
00000d50  25 28 42 25 29 3d 31 0d  02 30 05 ed 0d 02 3a 1b  |%(B%)=1..0....:.|
00000d60  58 4d 25 3d 58 4d 25 2b  31 3a e7 58 4d 25 3d 31  |XM%=XM%+1:.XM%=1|
00000d70  35 20 58 4d 25 3d 31 0d  02 44 62 e3 58 25 3d 31  |5 XM%=1..Db.X%=1|
00000d80  34 b8 31 88 2d 31 3a 41  25 28 58 25 2c 59 25 29  |4.1.-1:A%(X%,Y%)|
00000d90  3d 41 25 28 58 25 2d 31  2c 59 25 29 3a ed 3a d4  |=A%(X%-1,Y%):.:.|
00000da0  30 2c 2d 38 2a 4b 25 2c  35 2c 33 3a 4c 25 3d 53  |0,-8*K%,5,3:L%=S|
00000db0  58 25 28 53 42 25 29 2a  32 3a e3 58 25 3d 31 b8  |X%(SB%)*2:.X%=1.|
00000dc0  31 34 3a 41 25 3d 41 25  28 58 25 2c 59 25 29 3a  |14:A%=A%(X%,Y%):|
00000dd0  d6 26 42 37 30 3a ed 3a  e1 0d 02 4e 48 dd f2 49  |.&B70:.:...NH..I|
00000de0  3a 4c 46 25 3d 33 3a 53  25 3d 31 3a 53 43 25 3d  |:LF%=3:S%=1:SC%=|
00000df0  30 3a 53 4b 24 3d bd 32  32 34 2b bd 32 32 35 2b  |0:SK$=.224+.225+|
00000e00  bd 31 30 2b bd 38 2b bd  38 2b bd 32 32 36 2b bd  |.10+.8+.8+.226+.|
00000e10  32 32 37 3a 52 45 44 24  3d bd 31 37 2b bd 31 3a  |227:RED$=.17+.1:|
00000e20  e1 0d 02 58 65 dd f2 42  3a 44 74 25 3d 26 42 30  |...Xe..B:Dt%=&B0|
00000e30  30 3a db 3a 4e 25 3d 31  3a fb 32 3a f1 8a 32 2c  |0:.:N%=1:.2:..2,|
00000e40  30 29 22 3c 53 48 45 45  54 3e 20 20 20 3c 4c 49  |0)"<SHEET>   <LI|
00000e50  56 45 53 3e 20 20 20 20  3c 53 43 4f 52 45 3e 22  |VES>    <SCORE>"|
00000e60  8a 35 2c 31 29 3b 53 25  8a 31 35 2c 31 29 4c 46  |.5,1);S%.15,1)LF|
00000e70  25 8a 32 34 2c 31 29 3b  53 43 25 3a 44 44 25 3d  |%.24,1);SC%:DD%=|
00000e80  30 3a 44 25 3d 30 0d 02  62 9d 41 25 3d 33 3a e3  |0:D%=0..b.A%=3:.|
00000e90  58 25 3d 31 b8 31 34 3a  e3 59 25 3d 31 b8 31 34  |X%=1.14:.Y%=1.14|
00000ea0  3a d6 26 42 37 30 3a 41  25 28 58 25 2c 59 25 29  |:.&B70:A%(X%,Y%)|
00000eb0  3d 33 3a ed 3a ed 3a 41  25 3d 37 3a 42 25 3d 31  |=3:.:.:A%=7:B%=1|
00000ec0  3a e3 58 31 25 3d 30 b8  31 30 88 35 3a e3 59 31  |:.X1%=0.10.5:.Y1|
00000ed0  25 3d 30 b8 37 88 37 3a  58 25 3d b3 28 34 29 2b  |%=0.7.7:X%=.(4)+|
00000ee0  58 31 25 3a 59 25 3d b3  28 37 29 2b 59 31 25 3a  |X1%:Y%=.(7)+Y1%:|
00000ef0  41 25 28 58 25 2c 59 25  29 3d 37 3a 53 58 25 28  |A%(X%,Y%)=7:SX%(|
00000f00  42 25 29 3d 58 25 3a 53  59 25 28 42 25 29 3d 59  |B%)=X%:SY%(B%)=Y|
00000f10  25 3a 42 25 3d 42 25 2b  31 3a d6 26 42 37 30 3a  |%:B%=B%+1:.&B70:|
00000f20  ed 3a ed 0d 02 6c 3b e7  41 25 28 38 2c 37 29 3d  |.:...l;.A%(8,7)=|
00000f30  33 20 58 4d 25 3d 38 3a  59 4d 25 3d 37 3a 41 25  |3 XM%=8:YM%=7:A%|
00000f40  28 38 2c 37 29 3d 35 20  8b 58 4d 25 3d 37 3a 59  |(8,7)=5 .XM%=7:Y|
00000f50  4d 25 3d 37 3a 41 25 28  37 2c 37 29 3d 35 0d 02  |M%=7:A%(7,7)=5..|
00000f60  76 1c 41 25 3d 35 3a 58  25 3d 58 4d 25 3a 59 25  |v.A%=5:X%=XM%:Y%|
00000f70  3d 59 4d 25 3a d6 26 42  37 30 0d 02 80 14 e7 53  |=YM%:.&B70.....S|
00000f80  25 3e 34 84 4c 6c 25 3c  33 8c 8d 74 5e 42 0d 02  |%>4.Ll%<3..t^B..|
00000f90  8a 36 41 25 28 35 2c 31  29 3d 31 31 3a 58 25 3d  |.6A%(5,1)=11:X%=|
00000fa0  35 3a 59 25 3d 31 3a 41  25 3d 31 31 3a d6 26 42  |5:Y%=1:A%=11:.&B|
00000fb0  37 30 3a 58 42 25 28 31  29 3d 35 3a 59 42 25 28  |70:XB%(1)=5:YB%(|
00000fc0  31 29 3d 31 0d 02 94 a8  e7 53 25 3e 31 20 41 25  |1)=1.....S%>1 A%|
00000fd0  28 35 2c 31 34 29 3d 31  31 3a 58 25 3d 35 3a 59  |(5,14)=11:X%=5:Y|
00000fe0  25 3d 31 34 3a d6 26 42  37 30 3a 58 42 25 28 32  |%=14:.&B70:XB%(2|
00000ff0  29 3d 35 3a 59 42 25 28  32 29 3d 31 34 3a e7 53  |)=5:YB%(2)=14:.S|
00001000  25 3e 32 20 41 25 28 31  30 2c 31 29 3d 31 31 3a  |%>2 A%(10,1)=11:|
00001010  58 25 3d 31 30 3a 59 25  3d 31 3a d6 26 42 37 30  |X%=10:Y%=1:.&B70|
00001020  3a 58 42 25 28 33 29 3d  31 30 3a 59 42 25 28 33  |:XB%(3)=10:YB%(3|
00001030  29 3d 31 3a e7 53 25 3e  33 20 41 25 28 31 30 2c  |)=1:.S%>3 A%(10,|
00001040  31 34 29 3d 31 31 3a 58  25 3d 31 30 3a 59 25 3d  |14)=11:X%=10:Y%=|
00001050  31 34 3a d6 26 42 37 30  3a 58 42 25 28 34 29 3d  |14:.&B70:XB%(4)=|
00001060  31 30 3a 59 42 25 28 34  29 3d 31 34 0d 02 9e 61  |10:YB%(4)=14...a|
00001070  42 43 25 3d 34 31 2d 32  30 2a 28 4c 6c 25 3d 31  |BC%=41-20*(Ll%=1|
00001080  29 3a 53 42 25 3d b3 28  36 29 3a 4c 25 3d 53 58  |):SB%=.(6):L%=SX|
00001090  25 28 53 42 25 29 2a 32  3a 4d 25 3d 53 59 25 28  |%(SB%)*2:M%=SY%(|
000010a0  53 42 25 29 2a 32 3a 58  25 3d 4c 25 2f 32 3a 59  |SB%)*2:X%=L%/2:Y|
000010b0  25 3d 4d 25 2f 32 3a 41  25 3d 39 3a d6 26 42 37  |%=M%/2:A%=9:.&B7|
000010c0  30 3a 41 25 28 58 25 2c  59 25 29 3d 39 0d 02 a8  |0:A%(X%,Y%)=9...|
000010d0  56 41 25 3d 31 33 3a e3  58 31 25 3d 31 b8 28 53  |VA%=13:.X1%=1.(S|
000010e0  25 2b 32 2d 32 2a 28 53  25 3e 35 29 29 3a f5 3a  |%+2-2*(S%>5)):.:|
000010f0  58 25 3d b3 28 31 34 29  3a 59 25 3d b3 28 31 34  |X%=.(14):Y%=.(14|
00001100  29 3a fd 41 25 28 58 25  2c 59 25 29 3d 33 3a d6  |):.A%(X%,Y%)=3:.|
00001110  26 42 37 30 3a 41 25 28  58 25 2c 59 25 29 3d 31  |&B70:A%(X%,Y%)=1|
00001120  33 3a ed 0d 02 b2 0b e7  53 25 3c 35 20 e1 0d 02  |3:......S%<5 ...|
00001130  bc 4f 41 25 3d 37 3a e3  58 31 25 3d 31 b8 28 53  |.OA%=7:.X1%=1.(S|
00001140  25 2d 34 29 2a 32 3a f5  3a 58 25 3d b3 28 31 34  |%-4)*2:.:X%=.(14|
00001150  29 3a 59 25 3d b3 28 31  34 29 3a fd 41 25 28 58  |):Y%=.(14):.A%(X|
00001160  25 2c 59 25 29 3d 33 3a  41 25 28 58 25 2c 59 25  |%,Y%)=3:A%(X%,Y%|
00001170  29 3d 37 3a d6 26 42 37  30 3a ed 3a e1 0d 02 c6  |)=7:.&B70:.:....|
00001180  5b dd f2 42 41 28 58 25  2c 59 25 29 3a ef 31 39  |[..BA(X%,Y%):.19|
00001190  2c 30 2c 37 2c 30 3b 30  3a 41 25 3d 37 3a d6 26  |,0,7,0;0:A%=7:.&|
000011a0  42 37 30 3a d4 26 31 30  2c 32 2a 4b 25 2c 36 2c  |B70:.&10,2*K%,6,|
000011b0  35 30 3a d4 26 31 31 2c  32 2a 4b 25 2c 30 2c 35  |50:.&11,2*K%,0,5|
000011c0  3a e3 58 31 3d 31 b8 31  30 30 3a ed 3a ef 31 39  |:.X1=1.100:.:.19|
000011d0  2c 30 3b 30 3b 30 3a e1  0d 02 d0 42 dd f2 42 43  |,0;0;0:....B..BC|
000011e0  28 58 25 2c 59 25 29 3a  d4 26 31 31 2c 33 2a 4b  |(X%,Y%):.&11,3*K|
000011f0  25 2c 30 2c 37 30 3a e3  41 3d 31 b8 32 30 30 3a  |%,0,70:.A=1.200:|
00001200  41 25 3d 35 3a d6 26 42  37 30 3a 41 25 3d 31 31  |A%=5:.&B70:A%=11|
00001210  3a d6 26 42 37 30 3a ed  3a e1 0d 02 da 69 dd f2  |:.&B70:.:....i..|
00001220  48 53 53 3a db 3a fb 33  3a f1 8a 34 2c 32 29 22  |HSS:.:.3:..4,2)"|
00001230  42 4c 4f 43 4b 4d 41 4e  20 4c 45 56 45 4c 20 22  |BLOCKMAN LEVEL "|
00001240  3b 4c 6c 25 22 20 54 4f  50 20 53 49 58 22 8a 34  |;Ll%" TOP SIX".4|
00001250  2c 33 29 c4 32 34 2c 22  5f 22 29 52 45 44 24 8a  |,3).24,"_")RED$.|
00001260  35 2c 36 29 22 53 43 4f  52 45 20 20 20 20 20 4e  |5,6)"SCORE     N|
00001270  41 4d 45 20 20 20 20 20  20 52 41 54 49 4e 47 22  |AME      RATING"|
00001280  3a fb 32 0d 02 e4 91 41  3d 4c 6c 25 2d 31 3a e3  |:.2....A=Ll%-1:.|
00001290  41 25 3d 30 b8 35 3a 42  25 3d 39 2b 33 2a 41 25  |A%=0.5:B%=9+3*A%|
000012a0  3a f1 8a 31 2c 42 25 29  3b 41 25 2b 31 22 2e 22  |:..1,B%);A%+1"."|
000012b0  8a 35 2c 42 25 29 3b 48  49 25 28 41 25 2c 41 29  |.5,B%);HI%(A%,A)|
000012c0  8a 31 32 2c 42 25 29 4e  24 28 41 25 2c 41 29 8a  |.12,B%)N$(A%,A).|
000012d0  32 35 2c 42 25 29 52 24  28 41 25 2c 41 29 3a ed  |25,B%)R$(A%,A):.|
000012e0  3a fb 33 3a f1 8a 32 2c  33 30 29 22 54 79 70 65  |:.3:..2,30)"Type|
000012f0  20 53 50 41 43 45 42 41  52 20 74 6f 20 70 6c 61  | SPACEBAR to pla|
00001300  79 20 61 67 61 69 6e 2e  22 3a f5 fd a6 28 2d 39  |y again.":...(-9|
00001310  39 29 3a e1 0d 02 ee 9f  dd f2 4e 45 57 48 49 3a  |9):.......NEWHI:|
00001320  db 3a ef 31 39 2c 31 2c  31 34 2c 30 3b 30 3a fb  |.:.19,1,14,0;0:.|
00001330  31 3a f1 8a 31 31 2c 31  30 29 22 57 45 4c 4c 20  |1:..11,10)"WELL |
00001340  44 4f 4e 45 21 22 8a 35  2c 31 31 29 22 59 4f 55  |DONE!".5,11)"YOU|
00001350  20 41 52 45 20 49 4e 20  54 48 45 20 54 4f 50 20  | ARE IN THE TOP |
00001360  53 49 58 22 3a d4 26 31  33 2c 4b 25 2c 31 32 31  |SIX":.&13,K%,121|
00001370  2c 36 3a d4 26 31 32 2c  4b 25 2c 37 33 2c 36 3a  |,6:.&12,K%,73,6:|
00001380  e3 58 31 25 3d 26 42 33  43 b8 26 42 35 42 20 88  |.X1%=&B3C.&B5B .|
00001390  32 3a 58 25 3d 3f 58 31  25 3a 59 25 3d 3f 28 58  |2:X%=?X1%:Y%=?(X|
000013a0  31 25 2b 31 29 2a 32 3a  d4 33 2c 4b 25 2c 58 25  |1%+1)*2:.3,K%,X%|
000013b0  2c 59 25 0d 02 f8 42 d4  32 2c 4b 25 2c 58 25 2d  |,Y%...B.2,K%,X%-|
000013c0  34 38 2c 59 25 3a ed 3a  f1 8a 35 2c 31 32 29 22  |48,Y%:.:..5,12)"|
000013d0  50 4c 45 41 53 45 20 45  4e 54 45 52 20 59 4f 55  |PLEASE ENTER YOU|
000013e0  52 20 4e 41 4d 45 22 8a  39 2c 32 30 29 c4 31 31  |R NAME".9,20).11|
000013f0  2c 22 2d 22 29 0d 03 02  46 f5 3a fd bf 28 30 29  |,"-")...F.:..(0)|
00001400  3d 22 22 3a 4e 24 3d 22  22 3a f1 8a 39 2c 32 30  |="":N$="":..9,20|
00001410  29 3b 3a f5 3a 41 25 3d  a5 3a e7 41 25 3e 33 31  |);:.:A%=.:.A%>31|
00001420  80 41 25 3c 31 32 33 20  f1 bd 28 41 25 29 3b 3a  |.A%<123 ..(A%);:|
00001430  4e 24 3d 4e 24 2b bd 28  41 25 29 0d 03 0c 33 e7  |N$=N$+.(A%)...3.|
00001440  41 25 3d 31 32 37 80 a9  28 4e 24 29 3e 30 20 f1  |A%=127..(N$)>0 .|
00001450  bd 31 32 37 3b 22 2d 22  3b bd 38 3b 3a 4e 24 3d  |.127;"-";.8;:N$=|
00001460  c0 4e 24 2c 28 a9 28 4e  24 29 2d 31 29 29 0d 03  |.N$,(.(N$)-1))..|
00001470  16 78 fd a9 28 4e 24 29  3d 31 31 84 41 25 3d 31  |.x..(N$)=11.A%=1|
00001480  33 3a 41 3d 53 43 25 2f  31 30 30 30 3a e7 41 3e  |3:A=SC%/1000:.A>|
00001490  31 30 30 52 24 3d 22 4b  49 4e 47 22 8b e7 41 3e  |100R$="KING"..A>|
000014a0  35 30 52 24 3d 22 4d 41  53 54 45 52 22 8b e7 41  |50R$="MASTER"..A|
000014b0  3e 33 35 52 24 3d 22 56  2e 47 4f 4f 44 22 8b e7  |>35R$="V.GOOD"..|
000014c0  41 3e 32 30 52 24 3d 22  47 4f 4f 44 22 8b e7 41  |A>20R$="GOOD"..A|
000014d0  3e 31 30 52 24 3d 22 46  41 49 52 22 8b 52 24 3d  |>10R$="FAIR".R$=|
000014e0  22 50 4f 4f 52 22 0d 03  20 89 41 3d 4c 6c 25 2d  |"POOR".. .A=Ll%-|
000014f0  31 3a e3 41 25 3d 35 b8  30 88 2d 31 3a e7 53 43  |1:.A%=5.0.-1:.SC|
00001500  25 3e 48 49 25 28 41 25  2c 41 29 20 48 49 25 28  |%>HI%(A%,A) HI%(|
00001510  41 25 2b 31 2c 41 29 3d  48 49 25 28 41 25 2c 41  |A%+1,A)=HI%(A%,A|
00001520  29 3a 4e 24 28 41 25 2b  31 2c 41 29 3d 4e 24 28  |):N$(A%+1,A)=N$(|
00001530  41 25 2c 41 29 3a 52 24  28 41 25 2b 31 2c 41 29  |A%,A):R$(A%+1,A)|
00001540  3d 52 24 28 41 25 2c 41  29 3a 48 49 25 28 41 25  |=R$(A%,A):HI%(A%|
00001550  2c 41 29 3d 53 43 25 3a  4e 24 28 41 25 2c 41 29  |,A)=SC%:N$(A%,A)|
00001560  3d 4e 24 3a 52 24 28 41  25 2c 41 29 3d 52 24 0d  |=N$:R$(A%,A)=R$.|
00001570  03 2a 15 ed 3a db 3a ef  31 39 2c 31 2c 31 2c 30  |.*..:.:.19,1,1,0|
00001580  3b 30 3a e1 0d 03 34 59  dd f2 54 4f 4f 4c 41 54  |;0:...4Y..TOOLAT|
00001590  45 28 41 2c 42 2c 49 2c  4a 29 3a ef 35 2c 32 39  |E(A,B,I,J):.5,29|
000015a0  2c 31 32 38 3b 31 30 32  30 3b 3a e6 33 2c 31 3a  |,128;1020;:.3,1:|
000015b0  d4 26 31 33 2c 33 2a 4b  25 2c 31 30 30 2c 32 35  |.&13,3*K%,100,25|
000015c0  35 3a d4 26 31 32 2c 33  2a 4b 25 2c 31 30 38 2c  |5:.&12,3*K%,108,|
000015d0  35 30 3a ec 41 2c 2d 42  3a f1 53 4b 24 0d 03 3e  |50:.A,-B:.SK$..>|
000015e0  43 58 41 25 3d 33 32 2a  b4 28 49 2d 41 29 3a e7  |CXA%=32*.(I-A):.|
000015f0  49 3d 41 20 59 41 25 3d  33 32 2a b4 28 4a 2d 42  |I=A YA%=32*.(J-B|
00001600  29 20 8b 20 59 41 25 3d  33 32 2a 94 28 28 4a 2d  |) . YA%=32*.((J-|
00001610  42 29 2f 28 49 2d 41 29  29 2a b4 28 4a 2d 42 29  |B)/(I-A))*.(J-B)|
00001620  0d 03 48 70 f5 3a ec 41  2c 2d 42 3a f1 53 4b 24  |..Hp.:.A,-B:.SK$|
00001630  3a 41 3d 41 2b 58 41 25  3a 42 3d 42 2b 59 41 25  |:A=A+XA%:B=B+YA%|
00001640  3a ec 41 2c 2d 42 3a f1  53 4b 24 3a fd 41 3e 49  |:.A,-B:.SK$:.A>I|
00001650  2d 32 35 80 41 3c 49 2b  32 35 80 42 3e 4a 2d 32  |-25.A<I+25.B>J-2|
00001660  35 80 42 3c 4a 2b 32 35  3a ec 41 2c 2d 42 3a f1  |5.B<J+25:.A,-B:.|
00001670  53 4b 24 3a d4 26 31 33  2c 30 2c 30 2c 31 3a ef  |SK$:.&13,0,0,1:.|
00001680  34 3a f2 42 41 28 58 4d  25 2c 59 4d 25 29 3a e1  |4:.BA(XM%,YM%):.|
00001690  0d 03 52 54 20 dd f2 58  3a db 3a 41 25 3d 33 3a  |..RT ..X:.:A%=3:|
000016a0  e3 58 25 3d 31 b8 31 34  3a e3 59 25 3d 31 b8 31  |.X%=1.14:.Y%=1.1|
000016b0  33 3a d6 26 42 37 30 3a  ed 3a ed 3a 58 31 3d b3  |3:.&B70:.:.:X1=.|
000016c0  28 31 34 29 3a e3 58 25  3d 31 b8 31 34 3a 41 25  |(14):.X%=1.14:A%|
000016d0  3d 37 2d 36 2a 28 58 25  3d 58 31 29 3a d6 26 42  |=7-6*(X%=X1):.&B|
000016e0  37 30 3a ed 0d 03 5c aa  f1 8a 33 2c 33 31 29 22  |70:...\...3,31)"|
000016f0  50 52 45 53 53 20 53 50  41 43 45 20 57 48 45 4e  |PRESS SPACE WHEN|
00001700  20 4d 41 4e 20 4d 4f 56  45 53 22 3b 3a f2 59 28  | MAN MOVES";:.Y(|
00001710  37 30 30 30 29 3a 58 32  3d 30 3a 41 25 3d 35 3a  |7000):X2=0:A%=5:|
00001720  78 3d 30 3a 79 3d 30 3a  e3 59 25 3d 31 b8 31 33  |x=0:y=0:.Y%=1.13|
00001730  3a e3 58 25 3d 31 b8 31  34 3a d6 26 42 37 30 3a  |:.X%=1.14:.&B70:|
00001740  f1 8a 78 2a 32 2c 79 2a  32 29 22 20 20 22 8a 78  |..x*2,y*2)"  ".x|
00001750  2a 32 2c 79 2a 32 2b 31  29 22 20 20 22 3a 78 3d  |*2,y*2+1)"  ":x=|
00001760  58 25 3a 79 3d 59 25 3a  f2 59 28 36 30 29 3a e7  |X%:y=Y%:.Y(60):.|
00001770  a6 28 2d 39 39 29 20 58  32 3d 58 25 3a 59 32 3d  |.(-99) X2=X%:Y2=|
00001780  59 25 3a 58 25 3d 31 34  3a 59 25 3d 31 33 0d 03  |Y%:X%=14:Y%=13..|
00001790  66 72 ed 3a ed 3a e7 58  32 3d 30 20 f2 42 41 28  |fr.:.:.X2=0 .BA(|
000017a0  31 34 2c 31 33 29 3a e1  20 8b 20 58 25 3d 58 32  |14,13):. . X%=X2|
000017b0  3a e3 59 25 3d 59 32 20  b8 31 34 3a 41 25 3d 35  |:.Y%=Y2 .14:A%=5|
000017c0  3a d6 26 42 37 30 3a 41  25 3d 31 3a 59 25 3d 59  |:.&B70:A%=1:Y%=Y|
000017d0  25 2d 31 3a d6 26 42 37  30 3a 59 25 3d 59 25 2b  |%-1:.&B70:Y%=Y%+|
000017e0  31 3a f2 59 28 31 35 30  29 3a ed 3a e7 58 31 3c  |1:.Y(150):.:.X1<|
000017f0  3e 58 25 20 f2 42 41 28  58 25 2c 31 34 29 3a e1  |>X% .BA(X%,14):.|
00001800  0d 03 70 53 42 3d 34 30  30 2a 28 31 35 2d 59 32  |..pSB=400*(15-Y2|
00001810  29 3a f1 8a 31 31 2c 31  29 22 42 4f 4e 55 53 3d  |):..11,1)"BONUS=|
00001820  22 3b 42 3a 53 43 25 3d  53 43 25 2b 42 3a e3 4e  |";B:SC%=SC%+B:.N|
00001830  3d 31 b8 33 39 39 3a d4  26 31 30 2b b3 28 33 29  |=1.399:.&10+.(3)|
00001840  2c 2d 31 35 2a 4b 25 2c  4e 20 83 35 30 2c 31 3a  |,-15*K%,N .50,1:|
00001850  ed 3a e1 0d 03 7a 15 dd  f2 59 28 58 29 3a e3 4e  |.:...z...Y(X):.N|
00001860  3d 31 b8 58 3a ed 3a e1  0d ff                    |=1.X:.:...|
0000186a
1.UXB.m0
1.UXB.m1
1.UXB.m2
1.UXB.m4
1.UXB.m5

© Dominic Ford 2021–2024.

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