Alpha/EMBA2

Home » Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Alpha/EMBA2

Alpha/EMBA2

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 ADFS disks » Electron » Micropower.ADF
Filename:	Alpha/EMBA2
Read OK:	✔
File size:	16F1 bytes
Load address:	1900
Exec address:	1900

Duplicates

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

AEW website » micropower » micropower_tapes_Escape-From-Moonbase-Alpha_EscapeFromMoonbaseAlpha_E.uef » EMBA2
Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Alpha/EMBA2
Personal collection » Acorn hard disk » zipped_disks » elk08 » micropower/Alpha/EMBA2
Personal collection » Acorn tapes » Commercial_Releases » micropower_tape13a_acorn_escape_moonbase_alpha.wav » EMBA2
Personal collection » Acorn tapes » Commercial_Releases » micropower_tape13a_acorn_escape_moonbase_alpha.wav » EMBA2

File contents

   10CLEAR:MODE6:HIMEM=&2800:DIMR%(3,3,3):Q%=&C00:CL=&CAB:cl=&CCC
  700C%=0:G%=0:P%=5:@%=4:S%=50:H%=0:F%=0:WX=FNR:WY=FNR
  790DEFFNR=RND(4)-1
  795DEFFNr=RND(2)-1
  800X=FNR:Y=FNR:Z=0:COLOUR1:VDU23;8202;0;0;0;:FORI=1TO64:VDU19,1,I MOD7;0;:PRINTTAB(17,10)64-I
  810REPEATD=RND(6)-1:NX=X+(D=1)-(D=0):NY=Y+(D=3)-(D=2):NZ=Z+(D=5)-(D=4):UNTILNX>=0ANDNX<4ANDNY>=0ANDNY<4ANDNZ>=0ANDNZ<4:R%(X,Y,Z)=R%(X,Y,Z)OR2^D:X=NX:Y=NY:Z=NZ:R%(X,Y,Z)=R%(X,Y,Z)OR2^(D EOR1):NEXT 
  820VDU19,1,9,0,0,0:PRINTTAB(13,10)" TAKE-OFF"
  830PROCF3
  840FORK=0TO3:PROCRG(K):NEXT
  850VDU22,2:VDU19,1,1,0,0,0 
  860VDU19,15,7;0;19,14,2;0;23;8202;0;0;0;:GCOL0,14:MOVE64,512:PLOT1,0,-96:PLOT1,1024,0:PLOT1,0,-160:PLOT1,-64,-64:MOVE128,512:PLOT1,0,-32:PLOT1,1024,0:PLOT1,0,-224:PLOT1,64,-64
  890COLOUR15:PRINTTAB(0,21)"Room"'"Hulk pills"TAB(11)P%'"Strength"TAB(11)S%'"Gold"TAB(11)G%
  900Z=0:BZ=0:REPEATX=FNR:Y=FNR:UNTILR%(X,Y,Z)AND63:R%(X,Y,Z)=R%(X,Y,Z)AND&FFFFF9FF:RX=0:RZ=12:RY=-4:PROCR(4)
  910REPEATIFM%GOSUBM%*1000-4990ELSEIFRND(300)=1M%=RND(4)+6:PROCm
  915IFH%IFTIME-T>500H%=0:S%=S%DIV3:PRINTTAB(11,23)S%:CALLCL:PROCDM(4) 
  930PROCM:UNTILS%<0
  940VDU5:GCOL0,2:MOVE192,992:PRINT"YOU ARE DEAD!!"'':GCOL0,3
  945PRINT"  Another go (Y/N)?":*FX15 1
  950REPEATA=GET:IFA=89RUN ELSEUNTILA=78:MODE7:END
 1000RETURN
 1010IFRX<>MX ORRZ<>MZ ORG%<10RETURN
 1020FORJ=1TO10:PROCd:FORI=1TO1000:NEXT:NEXT:CALLCL:CALLcl:C%=1:PROCD(RX,-4,RZ,8):GOSUB3000:FORI=1TO2000:NEXT:CALLcl:FORI=1TO2000:NEXT:CLG:COLOUR11:PRINTTAB(0,5)"  CONGRATULATIONS"'''':COLOUR1:GOTO945
 2000FORI=1TO6:VDU19,I,7;0;:NEXT:SOUND1,1,200,2:FORI=1TO500:NEXT:FORI=1TO6:VDU19,I,I;0;:NEXT:RETURN
 2010IFRX<>MX ORRZ<>MZ ORG%=0RETURN
 2020PROCd:IFF%F%=0ELSEP%=P%+1:PRINTTAB(11,22)P%
 2030CALLCL:CALLcl:PROCDM(4):M%=0:RETURN
 3000FORI=1TO3:SOUND0,-10,6,20:SOUND0,-10,5,20:SOUND0,0,5,10:NEXT:RETURN
 3010IFRX=MX ANDRZ=MZ CALLCL:GOSUB3000:REPEATX=FNR:Y=FNR:UNTIL(R%(X,Y,Z)AND1536)=0:RX=-1:RZ=8:PROCR(4):M%=8:PROCm
 3020IFRND(100)=1CALLCL:CALLcl:PROCDM(4):M%=0
 3030RETURN
 4000RETURN
 4010IFRND(100)=1IFG%PROCd
 4020IFRX=MX ANDRZ=MZ S%=S%-100:PRINTTAB(11,23)S%:CALLCL:CALLcl:PROCDM(4):M%=0
 4030RETURN
 5000SOUND1,-10,0,20:TM=TIME:RETURN
 5010IFTIME-TM>100S%=S%-10:PRINTTAB(11,23)S%:TM=TIME
 5020RETURN
 7000RESTORE7005:FORI=1TO6:READJ,K:SOUND0,-10,1,J:SOUND0,0,0,K:NEXT:RETURN
 7005DATA10,3,10,3,10,3,10,2,5,1,10,0
 7010PROCC:RETURN
 7020FORI=1TO7:VDU19,I,6;0;:NEXT:SOUND1,2,200,7:FORI=1TO500:NEXT:FORI=1TO7:VDU19,I,I;0;:NEXT:RETURN
 8000SOUND0,-10,4,10:FORI=1TO1000:NEXT:RETURN
 8010PROCC:RETURN
 8020F%=1:SOUND0,1,4,1:RETURN
 9000SOUND&110,-15,7,50:SOUND&111,3,150,50:FORI=1TO1000:NEXT:RETURN
 9010PROCC
 9020RETURN
10000DEFPROCR(B%)
10001PRINTTAB(0,25)SPC16
10002IFZ=4PROCNF
10005R%=R%(X,Y,Z):@%=2:PRINTTAB(11,21);X",";Y",",Z+BZ:@%=4:FORI=0TO7:VDU19,I;0;0:NEXT
10010VDU18,0,7,25,4,0;512;25,4,1280;512;25,85,320;640;25,85,960;640;25,4,0;1024;25,4,1280;1024;25,85,320;896;25,85,960;896;
10012VDU18,0,6-SGN(R%AND256),25,4,0;512;25,4,320;640;25,85,0;1024;25,85,320;896;25,4,1280;512;25,4,960;640;25,85,1280;1024;25,85,960;896;
10020VDU18,0,4-3*SGN(R%AND256),25,4,320;640;25,4,320;896;25,85,960;640;25,85,960;896;
10030FORI=0TO7:VDU19,I,I;0;:NEXT
10040IFR%AND1VDU25,4,1105;582;25,4,1105;815;25,87,1034;610;25,87,1034;807;
10050IFR%AND2VDU25,4,175;582;25,4,175;815;25,87,246;610;25,87,246;807;
10060IFR%AND4VDU25,4,560;640;25,4,560;800;25,87,720;640;25,87,720;800;
10065IFR%AND8VDU25,4,480;512;25,4,800;512;25,87,489;527;25,87,791;527;
10070IFR%AND16VDU25,4,720;640;25,4,738;610;25,87,960;640;25,87,1034;610;
10080IFR%AND32PROCRUP
10090RG=R%DIV64AND3:IFRG>0FORI=1TORG:PROCD(I-5,-4,16,15):NEXT
10110PROCDM(B%):IFX=WX ANDY=WY ANDZ+BZ=7M%=6:PROCm ELSEM%=R%DIV512AND3:IFM%M%=M%+11:MS=(Z+BZ+1)*(R%DIV2048AND255):PRINTTAB(0,25)"Mon. str.  "MS:PROCm
10200ENDPROC
12000DEFPROCRUP
12010VDU25,4,720;896;25,4,738;925;25,87,960;896;25,87,1034;925;18,0,3,25,5,738;610;25,4,960;896;25,5,720;640;25,4,788;663;25,5,760;683;25,4,837;715;25,5,800;725;25,4,886;768;25,5,840;768;25,4,935;821;25,5,880;811;25,4,985;873;25,5,920;853;
12020ENDPROC
13100DEFPROCM
13110IFINKEY-73PROCf
13120IFINKEY-105PROCb
13130IFINKEY-98PROCl
13140IFINKEY-67PROCr
13150IFINKEY-56PROCp
13155IFINKEY-36IFF%=0IFP%>0IFH%=0H%=1:P%=P%-1:CALLCL:PROCDM(0):T=TIME:S%=S%*2:PRINTTAB(11,22)P%TAB(11,23)S%
13160ENDPROC
13200DEFPROCf IFRZ=16ANDRX>-2ANDRX<1AND((R%AND4)OR(H%ANDY<3))Y=Y+1:RZ=8:R%(X,Y,Z)=R%(X,Y,Z)OR8:PROCR(5):IF(R%(X,Y-1,Z)AND4)=0S%=S%-100:PRINTTAB(11,23)S%:R%(X,Y-1,Z)=R%(X,Y-1,Z)OR4
13210IFRZ=16ENDPROC
13220IFRX<1ORRZ<13OR(R%AND48)=0CALLCL:RZ=RZ+1:PROCDM(5):ENDPROC
13230IFR%AND16PROCdown
13240ENDPROC
13300DEFPROCb IFRZ>8CALLCL:RZ=RZ-1:PROCDM(4):ENDPROC
13310IFRX>-2ANDRX<1AND((R%AND8)OR(H%ANDY>0))Y=Y-1:RZ=16:R%(X,Y,Z)=R%(X,Y,Z)OR4:PROCR(4):IF(R%(X,Y+1,Z)AND8)=0S%=S%-100:PRINTTAB(11,23)S%:R%(X,Y+1,Z)=R%(X,Y+1,Z)OR8
13320ENDPROC
13400DEFPROCl IFRX>-4CALLCL:RX=RX-1:PROCDM(1):ENDPROC
13410IFRZ>10ANDRZ<13AND((R%AND2)OR(H%ANDX>0))X=X-1:RX=3:R%(X,Y,Z)=R%(X,Y,Z)OR1:PROCR(1):IF(R%(X+1,Y,Z)AND2)=0S%=S%-100:PRINTTAB(11,23)S%:R%(X+1,Y,Z)=R%(X+1,Y,Z)OR2
13420ENDPROC
13500DEFPROCr IFRX=3ANDRZ>10ANDRZ<13AND((R%AND1)OR(H%ANDX<3))X=X+1:RX=-4:R%(X,Y,Z)=R%(X,Y,Z)OR2:PROCR(0):IF(R%(X-1,Y,Z)AND1)=0S%=S%-100:PRINTTAB(11,23)S%:R%(X-1,Y,Z)=R%(X-1,Y,Z)OR1
13510IFRX=3ENDPROC
13520IFRX<0ORRZ<13OR(R%AND48)=0CALLCL:RX=RX+1:PROCDM(0):ENDPROC
13530IF(R%AND48)=16PROCdown:ENDPROC
13550FORI=1TO5:CALLCL:RX=I/2:RY=I-4:RZ=14:PROCDM(0):FORJ=1TO150:NEXT:NEXT:RX=3:RZ=11:RY=-4:Z=Z-1:PROCR(4):ENDPROC
13600DEFPROCdown Z=Z+1:RX=2:RZ=14:RY=.5:PROCR(1):FORI=1TO4:FORJ=1TO150:NEXT:CALLCL:RX=2-I/2:RY=-I:RZ=14:PROCDM(1):NEXT:RX=0:RY=-4:ENDPROC 
13700DEFPROCp
13710IFRZ<16ORRX>-2ORRG=0ORM%ORF%ENDPROC
13720SOUND1,4,50,40:J=&3030303*(16-15*SGN(R%AND256)):FORI=&D80TO&DFFSTEP4:!I=J:NEXT:CALLCL:PROCD(RG-5,-4,16,15):!&52=!&50:CALLcl:PROCDM(4)
13730C%=1:FORI=-4TO4.1STEP.4:PROCD(-3.5,4-I*I/2,12-I,15):CALLcl:NEXT:RG=RG-1:R%(X,Y,Z)=R%(X,Y,Z)AND&FFFFFF3FOR64*RG
13740A%=15:Y%=15:FORX%=4TO66STEP2:CALLQ%:CALLcl:NEXT:FORY%=15TO28-G%DIV20*2:CALLQ%:CALLcl:NEXT:SOUND2,1,190,3 
13750IFG%<60Y%=28-G%DIV20*2:X%=(19-G%MOD20)*4:CALLQ%
13760G%=G%+1:C%=0:S%=S%+(2+RND(8))*(Z+BZ+1):PRINTTAB(11,23)S%TAB(11,24)G%:ENDPROC
16000DEFPROCNF FORI=0TO2:FORJ=0TO3:FORK=0TO3:R%(J,K,I)=R%(J,K,I+1):NEXT,,
16020FORI=0TO3:FORJ=0TO3:R%(I,J,0)=R%(I,J,0)AND&FFFFFFDF:R%(I,J,3)=(R%(I,J,2)AND16)*2:NEXT,
16030PROCRG(3):J=FNR:K=FNR:FORI=1TO16:REPEATD=FNR:NX=J+(D=1)-(D=0):NY=K+(D=3)-(D=2):UNTILNX>=0ANDNX<4ANDNY>=0ANDNY<4:R%(J,K,3)=R%(J,K,3)OR2^D:J=NX:K=NY:R%(J,K,3)=R%(J,K,3)OR2^(D EOR1):NEXT
16040PROCF3:BZ=BZ+1:Z=3:ENDPROC
17000DEFPROCF3 FORI=1TORND(16):J=FNR:K=FNR:R%(J,K,3)=R%(J,K,3)OR16:NEXT:ENDPROC
17100DEFPROCRG(Z)FORI=0TO3:FORJ=0TO3:R%(I,J,Z)=R%(I,J,Z)OR64*FNr*(RND(3)+8*FNr*RND(3))OR256*(FNr+2*FNr*RND(3)+8*RND(100)):NEXT:NEXT:ENDPROC
18000DEFPROCm MX=RND(8)-5:MZ=RND(6)+7:CALLCL:C%=1:PROCD(MX,-4,MZ,M%):C%=0:PROCDM(Z%):GOSUBM%*1000-5000:ENDPROC
19000DEFPROCd G%=G%-1:PRINTTAB(11,24)G%:SOUND1,-10,200,5
19010IFG%<61Y%=28-G%DIV20*2:X%=(19-G%MOD20)*4:A%=15:CALLCL:CALLQ%:FORI=&D00TO&D7FSTEP4:!I=0:NEXT:CALLCL:PROCDM(Z%):ENDPROC
20000DEFPROCP(P,X,Y,Z)PRINTP,640+1280*X/Z,768+512*Y/Z:ENDPROC 
20010DEFPROCD(X,Y,Z,A%)X%=40.5+80*X/Z:Y%=4.5-16*Y/Z:CALLQ%:ENDPROC
20020DEFPROCDM(B%)IFF%B%=11ELSEIFH%B%=2
20030PROCD(RX,RY,RZ,B%):Z%=B%:ENDPROC
21000DEFPROCC
21010MX=MX+SGN(RX-MX)/2:MZ=MZ+SGN(RZ-MZ)/2:C%=1:CALLCL:CALLcl:PROCD(MX,-4,MZ,M%):C%=0:PROCDM(Z%)
21020IFRX<>MX ORRZ<>MZ ENDPROC
21030T%=S%-MS/(2+RND(1)):MS=INT(MS-S%/(2+RND(1))):S%=T%:PRINTTAB(11,23)S%TAB(11,25)MS:SOUND0,1,6,1
21035IFMS>0R%(X,Y,Z)=R%(X,Y,Z)AND&FFF807FFORMS DIV(Z+BZ+1)*2048:GOSUBM%*1000-4980:ENDPROC
21050CALLCL:CALLcl:PROCDM(4):C%=1:PROCD(RX,-2,RZ,M%):FORI=1TO2000:NEXT:CALLcl:PROCD(RX,-4,RZ,M%):SOUND0,1,6,1:FORI=1TO2000:NEXT:CALLcl:R%(X,Y,Z)=R%(X,Y,Z)AND&FFF9FF:C%=0:M%=0:PRINTTAB(0,25)SPC16
21060ENDPROC


3�:�6:�=&2800:�R%(3,3,3):Q%=&C00:CL=&CAB:cl=&CCC
�3C%=0:G%=0:P%=5:@%=4:S%=50:H%=0:F%=0:WX=�R:WY=�R
ݤR=�(4)-1
ݤr=�(2)-1
 GX=�R:Y=�R:Z=0:�1:�23;8202;0;0;0;:�I=1�64:�19,1,I �7;0;:�17,10)64-I
*��D=�(6)-1:NX=X+(D=1)-(D=0):NY=Y+(D=3)-(D=2):NZ=Z+(D=5)-(D=4):�NX>=0�NX<4�NY>=0�NY<4�NZ>=0�NZ<4:R%(X,Y,Z)=R%(X,Y,Z)�2^D:X=NX:Y=NY:Z=NZ:R%(X,Y,Z)=R%(X,Y,Z)�2^(D �1):� 
4%�19,1,9,0,0,0:�13,10)" TAKE-OFF"
>�F3
H�K=0�3:�RG(K):�
R�22,2:�19,1,1,0,0,0 
\��19,15,7;0;19,14,2;0;23;8202;0;0;0;:�0,14:�64,512:�1,0,-96:�1,1024,0:�1,0,-160:�1,-64,-64:�128,512:�1,0,-32:�1,1024,0:�1,0,-224:�1,64,-64
zF�15:�0,21)"Room"'"Hulk pills"�11)P%'"Strength"�11)S%'"Gold"�11)G%
�ZZ=0:BZ=0:�X=�R:Y=�R:�R%(X,Y,Z)�63:R%(X,Y,Z)=R%(X,Y,Z)�&FFFFF9FF:RX=0:RZ=12:RY=-4:�R(4)
�+��M%�M%*1000-4990��(300)=1M%=�(4)+6:�m
�2�H%�-T>500H%=0:S%=S%�3:�11,23)S%:�CL:�DM(4) 
��M:�S%<0
�-�5:�0,2:�192,992:�"YOU ARE DEAD!!"'':�0,3
�"�"  Another go (Y/N)?":*FX15 1
��A=�:�A=89� ��A=78:�7:�
��
��RX<>MX �RZ<>MZ �G%<10�
���J=1�10:�d:�I=1�1000:�:�:�CL:�cl:C%=1:�D(RX,-4,RZ,8):�txK:�I=1�2000:�:�cl:�I=1�2000:�:�:�11:�0,5)"  CONGRATULATIONS"'''':�1:�tqC
�C�I=1�6:�19,I,7;0;:�:�1,1,200,2:�I=1�500:�:�I=1�6:�19,I,I;0;:�:�
��RX<>MX �RZ<>MZ �G%=0�
�!�d:�F%F%=0�P%=P%+1:�11,22)P%
��CL:�cl:�DM(4):M%=0:�
�0�I=1�3:�0,-10,6,20:�0,-10,5,20:�0,0,5,10:�:�
�S�RX=MX �RZ=MZ �CL:�txK:�X=�R:Y=�R:�(R%(X,Y,Z)�1536)=0:RX=-1:RZ=8:�R(4):M%=8:�m
� �(100)=1�CL:�cl:�DM(4):M%=0
��
��
��(100)=1�G%�d
�:�RX=MX �RZ=MZ S%=S%-100:�11,23)S%:�CL:�cl:�DM(4):M%=0
��
��1,-10,0,20:TM=�:�
�%�-TM>100S%=S%-10:�11,23)S%:TM=�
��
X-��D][:�I=1�6:�J,K:�0,-10,1,J:�0,0,0,K:�:�
]!�10,3,10,3,10,3,10,2,5,1,10,0
b�C:�
lC�I=1�7:�19,I,6;0;:�:�1,2,200,7:�I=1�500:�:�I=1�7:�19,I,I;0;:�:�
@�0,-10,4,10:�I=1�1000:�:�
J�C:�
TF%=1:�0,1,4,1:�
#(/�&110,-15,7,50:�&111,3,150,50:�I=1�1000:�:�
#2�C
#<�
'��R(B%)
'�0,25)�16
'�Z=4�NF
'ER%=R%(X,Y,Z):@%=2:�11,21);X",";Y",",Z+BZ:@%=4:�I=0�7:�19,I;0;0:�
'x�18,0,7,25,4,0;512;25,4,1280;512;25,85,320;640;25,85,960;640;25,4,0;1024;25,4,1280;1024;25,85,320;896;25,85,960;896;
'��18,0,6-�(R%�256),25,4,0;512;25,4,320;640;25,85,0;1024;25,85,320;896;25,4,1280;512;25,4,960;640;25,85,1280;1024;25,85,960;896;
'$N�18,0,4-3*�(R%�256),25,4,320;640;25,4,320;896;25,85,960;640;25,85,960;896;
'.�I=0�7:�19,I,I;0;:�
'8D�R%�1�25,4,1105;582;25,4,1105;815;25,87,1034;610;25,87,1034;807;
'B@�R%�2�25,4,175;582;25,4,175;815;25,87,246;610;25,87,246;807;
'L@�R%�4�25,4,560;640;25,4,560;800;25,87,720;640;25,87,720;800;
'Q@�R%�8�25,4,480;512;25,4,800;512;25,87,489;527;25,87,791;527;
'VB�R%�16�25,4,720;640;25,4,738;610;25,87,960;640;25,87,1034;610;
'`�R%�32�RUP
'j.RG=R%�64�3:�RG>0�I=1�RG:�D(I-5,-4,16,15):�
'~s�DM(B%):�X=WX �Y=WY �Z+BZ=7M%=6:�m �M%=R%�512�3:�M%M%=M%+11:MS=(Z+BZ+1)*(R%�2048�255):�0,25)"Mon. str.  "MS:�m
'��
.�	��RUP
.���25,4,720;896;25,4,738;925;25,87,960;896;25,87,1034;925;18,0,3,25,5,738;610;25,4,960;896;25,5,720;640;25,4,788;663;25,5,760;683;25,4,837;715;25,5,800;725;25,4,886;768;25,5,840;768;25,4,935;821;25,5,880;811;25,4,985;873;25,5,920;853;
.��
3,��M
36�-73�f
3@�-105�b
3J�-98�l
3T�-67�r
3^�-56�p
3cO�-36�F%=0�P%>0�H%=0H%=1:P%=P%-1:�CL:�DM(0):T=�:S%=S%*2:�11,22)P%�11,23)S%
3h�
3����f �RZ=16�RX>-2�RX<1�((R%�4)�(H%�Y<3))Y=Y+1:RZ=8:R%(X,Y,Z)=R%(X,Y,Z)�8:�R(5):�(R%(X,Y-1,Z)�4)=0S%=S%-100:�11,23)S%:R%(X,Y-1,Z)=R%(X,Y-1,Z)�4
3��RZ=16�
3�-�RX<1�RZ<13�(R%�48)=0�CL:RZ=RZ+1:�DM(5):�
3��R%�16�down
3��
3�!��b �RZ>8�CL:RZ=RZ-1:�DM(4):�
3���RX>-2�RX<1�((R%�8)�(H%�Y>0))Y=Y-1:RZ=16:R%(X,Y,Z)=R%(X,Y,Z)�4:�R(4):�(R%(X,Y+1,Z)�8)=0S%=S%-100:�11,23)S%:R%(X,Y+1,Z)=R%(X,Y+1,Z)�8
4�
4X"��l �RX>-4�CL:RX=RX-1:�DM(1):�
4b��RZ>10�RZ<13�((R%�2)�(H%�X>0))X=X-1:RX=3:R%(X,Y,Z)=R%(X,Y,Z)�1:�R(1):�(R%(X+1,Y,Z)�2)=0S%=S%-100:�11,23)S%:R%(X+1,Y,Z)=R%(X+1,Y,Z)�2
4l�
4����r �RX=3�RZ>10�RZ<13�((R%�1)�(H%�X<3))X=X+1:RX=-4:R%(X,Y,Z)=R%(X,Y,Z)�2:�R(0):�(R%(X-1,Y,Z)�1)=0S%=S%-100:�11,23)S%:R%(X-1,Y,Z)=R%(X-1,Y,Z)�1
4�
�RX=3�
4�-�RX<0�RZ<13�(R%�48)=0�CL:RX=RX+1:�DM(0):�
4��(R%�48)=16�down:�
4�U�I=1�5:�CL:RX=I/2:RY=I-4:RZ=14:�DM(0):�J=1�150:�:�:RX=3:RZ=11:RY=-4:Z=Z-1:�R(4):�
5 i��down Z=Z+1:RX=2:RZ=14:RY=.5:�R(1):�I=1�4:�J=1�150:�:�CL:RX=2-I/2:RY=-I:RZ=14:�DM(1):�:RX=0:RY=-4:� 
5���p
5��RZ<16�RX>-2�RG=0�M%�F%�
5�l�1,4,50,40:J=&3030303*(16-15*�(R%�256)):�I=&D80�&DFF�4:!I=J:�:�CL:�D(RG-5,-4,16,15):!&52=!&50:�cl:�DM(4)
5�`C%=1:�I=-4�4.1�.4:�D(-3.5,4-I*I/2,12-I,15):�cl:�:RG=RG-1:R%(X,Y,Z)=R%(X,Y,Z)�&FFFFFF3F�64*RG
5�LA%=15:Y%=15:�X%=4�66�2:�Q%:�cl:�:�Y%=15�28-G%�20*2:�Q%:�cl:�:�2,1,190,3 
5�+�G%<60Y%=28-G%�20*2:X%=(19-G%�20)*4:�Q%
5�>G%=G%+1:C%=0:S%=S%+(2+�(8))*(Z+BZ+1):�11,23)S%�11,24)G%:�
>�7��NF �I=0�2:�J=0�3:�K=0�3:R%(J,K,I)=R%(J,K,I+1):�,,
>�M�I=0�3:�J=0�3:R%(I,J,0)=R%(I,J,0)�&FFFFFFDF:R%(I,J,3)=(R%(I,J,2)�16)*2:�,
>���RG(3):J=�R:K=�R:�I=1�16:�D=�R:NX=J+(D=1)-(D=0):NY=K+(D=3)-(D=2):�NX>=0�NX<4�NY>=0�NY<4:R%(J,K,3)=R%(J,K,3)�2^D:J=NX:K=NY:R%(J,K,3)=R%(J,K,3)�2^(D �1):�
>��F3:BZ=BZ+1:Z=3:�
Bh8��F3 �I=1��(16):J=�R:K=�R:R%(J,K,3)=R%(J,K,3)�16:�:�
B�e��RG(Z)�I=0�3:�J=0�3:R%(I,J,Z)=R%(I,J,Z)�64*�r*(�(3)+8*�r*�(3))�256*(�r+2*�r*�(3)+8*�(100)):�:�:�
FPQ��m MX=�(8)-5:MZ=�(6)+7:�CL:C%=1:�D(MX,-4,MZ,M%):C%=0:�DM(Z%):�M%*1000-5000:�
J8'��d G%=G%-1:�11,24)G%:�1,-10,200,5
JBY�G%<61Y%=28-G%�20*2:X%=(19-G%�20)*4:A%=15:�CL:�Q%:�I=&D00�&D7F�4:!I=0:�:�CL:�DM(Z%):�
N .��P(P,X,Y,Z)�P,640+1280*X/Z,768+512*Y/Z:� 
N*3��D(X,Y,Z,A%)X%=40.5+80*X/Z:Y%=4.5-16*Y/Z:�Q%:�
N4��DM(B%)�F%B%=11��H%B%=2
N>�D(RX,RY,RZ,B%):Z%=B%:�
R��C
ROMX=MX+�(RX-MX)/2:MZ=MZ+�(RZ-MZ)/2:C%=1:�CL:�cl:�D(MX,-4,MZ,M%):C%=0:�DM(Z%)
R�RX<>MX �RZ<>MZ �
R&MT%=S%-MS/(2+�(1)):MS=�(MS-S%/(2+�(1))):S%=T%:�11,23)S%�11,25)MS:�0,1,6,1
R+H�MS>0R%(X,Y,Z)=R%(X,Y,Z)�&FFF807FF�MS �(Z+BZ+1)*2048:�M%*1000-4980:�
R:��CL:�cl:�DM(4):C%=1:�D(RX,-2,RZ,M%):�I=1�2000:�:�cl:�D(RX,-4,RZ,M%):�0,1,6,1:�I=1�2000:�:�cl:R%(X,Y,Z)=R%(X,Y,Z)�&FFF9FF:C%=0:M%=0:�0,25)�16
RD�
�

00000000  0d 00 0a 33 d8 3a eb 36  3a d3 3d 26 32 38 30 30  |...3.:.6:.=&2800|
00000010  3a de 52 25 28 33 2c 33  2c 33 29 3a 51 25 3d 26  |:.R%(3,3,3):Q%=&|
00000020  43 30 30 3a 43 4c 3d 26  43 41 42 3a 63 6c 3d 26  |C00:CL=&CAB:cl=&|
00000030  43 43 43 0d 02 bc 33 43  25 3d 30 3a 47 25 3d 30  |CCC...3C%=0:G%=0|
00000040  3a 50 25 3d 35 3a 40 25  3d 34 3a 53 25 3d 35 30  |:P%=5:@%=4:S%=50|
00000050  3a 48 25 3d 30 3a 46 25  3d 30 3a 57 58 3d a4 52  |:H%=0:F%=0:WX=.R|
00000060  3a 57 59 3d a4 52 0d 03  16 0e dd a4 52 3d b3 28  |:WY=.R......R=.(|
00000070  34 29 2d 31 0d 03 1b 0e  dd a4 72 3d b3 28 32 29  |4)-1......r=.(2)|
00000080  2d 31 0d 03 20 47 58 3d  a4 52 3a 59 3d a4 52 3a  |-1.. GX=.R:Y=.R:|
00000090  5a 3d 30 3a fb 31 3a ef  32 33 3b 38 32 30 32 3b  |Z=0:.1:.23;8202;|
000000a0  30 3b 30 3b 30 3b 3a e3  49 3d 31 b8 36 34 3a ef  |0;0;0;:.I=1.64:.|
000000b0  31 39 2c 31 2c 49 20 83  37 3b 30 3b 3a f1 8a 31  |19,1,I .7;0;:..1|
000000c0  37 2c 31 30 29 36 34 2d  49 0d 03 2a a9 f5 44 3d  |7,10)64-I..*..D=|
000000d0  b3 28 36 29 2d 31 3a 4e  58 3d 58 2b 28 44 3d 31  |.(6)-1:NX=X+(D=1|
000000e0  29 2d 28 44 3d 30 29 3a  4e 59 3d 59 2b 28 44 3d  |)-(D=0):NY=Y+(D=|
000000f0  33 29 2d 28 44 3d 32 29  3a 4e 5a 3d 5a 2b 28 44  |3)-(D=2):NZ=Z+(D|
00000100  3d 35 29 2d 28 44 3d 34  29 3a fd 4e 58 3e 3d 30  |=5)-(D=4):.NX>=0|
00000110  80 4e 58 3c 34 80 4e 59  3e 3d 30 80 4e 59 3c 34  |.NX<4.NY>=0.NY<4|
00000120  80 4e 5a 3e 3d 30 80 4e  5a 3c 34 3a 52 25 28 58  |.NZ>=0.NZ<4:R%(X|
00000130  2c 59 2c 5a 29 3d 52 25  28 58 2c 59 2c 5a 29 84  |,Y,Z)=R%(X,Y,Z).|
00000140  32 5e 44 3a 58 3d 4e 58  3a 59 3d 4e 59 3a 5a 3d  |2^D:X=NX:Y=NY:Z=|
00000150  4e 5a 3a 52 25 28 58 2c  59 2c 5a 29 3d 52 25 28  |NZ:R%(X,Y,Z)=R%(|
00000160  58 2c 59 2c 5a 29 84 32  5e 28 44 20 82 31 29 3a  |X,Y,Z).2^(D .1):|
00000170  ed 20 0d 03 34 25 ef 31  39 2c 31 2c 39 2c 30 2c  |. ..4%.19,1,9,0,|
00000180  30 2c 30 3a f1 8a 31 33  2c 31 30 29 22 20 54 41  |0,0:..13,10)" TA|
00000190  4b 45 2d 4f 46 46 22 0d  03 3e 07 f2 46 33 0d 03  |KE-OFF"..>..F3..|
000001a0  48 13 e3 4b 3d 30 b8 33  3a f2 52 47 28 4b 29 3a  |H..K=0.3:.RG(K):|
000001b0  ed 0d 03 52 18 ef 32 32  2c 32 3a ef 31 39 2c 31  |...R..22,2:.19,1|
000001c0  2c 31 2c 30 2c 30 2c 30  20 0d 03 5c 8d ef 31 39  |,1,0,0,0 ..\..19|
000001d0  2c 31 35 2c 37 3b 30 3b  31 39 2c 31 34 2c 32 3b  |,15,7;0;19,14,2;|
000001e0  30 3b 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |0;23;8202;0;0;0;|
000001f0  3a e6 30 2c 31 34 3a ec  36 34 2c 35 31 32 3a f0  |:.0,14:.64,512:.|
00000200  31 2c 30 2c 2d 39 36 3a  f0 31 2c 31 30 32 34 2c  |1,0,-96:.1,1024,|
00000210  30 3a f0 31 2c 30 2c 2d  31 36 30 3a f0 31 2c 2d  |0:.1,0,-160:.1,-|
00000220  36 34 2c 2d 36 34 3a ec  31 32 38 2c 35 31 32 3a  |64,-64:.128,512:|
00000230  f0 31 2c 30 2c 2d 33 32  3a f0 31 2c 31 30 32 34  |.1,0,-32:.1,1024|
00000240  2c 30 3a f0 31 2c 30 2c  2d 32 32 34 3a f0 31 2c  |,0:.1,0,-224:.1,|
00000250  36 34 2c 2d 36 34 0d 03  7a 46 fb 31 35 3a f1 8a  |64,-64..zF.15:..|
00000260  30 2c 32 31 29 22 52 6f  6f 6d 22 27 22 48 75 6c  |0,21)"Room"'"Hul|
00000270  6b 20 70 69 6c 6c 73 22  8a 31 31 29 50 25 27 22  |k pills".11)P%'"|
00000280  53 74 72 65 6e 67 74 68  22 8a 31 31 29 53 25 27  |Strength".11)S%'|
00000290  22 47 6f 6c 64 22 8a 31  31 29 47 25 0d 03 84 5a  |"Gold".11)G%...Z|
000002a0  5a 3d 30 3a 42 5a 3d 30  3a f5 58 3d a4 52 3a 59  |Z=0:BZ=0:.X=.R:Y|
000002b0  3d a4 52 3a fd 52 25 28  58 2c 59 2c 5a 29 80 36  |=.R:.R%(X,Y,Z).6|
000002c0  33 3a 52 25 28 58 2c 59  2c 5a 29 3d 52 25 28 58  |3:R%(X,Y,Z)=R%(X|
000002d0  2c 59 2c 5a 29 80 26 46  46 46 46 46 39 46 46 3a  |,Y,Z).&FFFFF9FF:|
000002e0  52 58 3d 30 3a 52 5a 3d  31 32 3a 52 59 3d 2d 34  |RX=0:RZ=12:RY=-4|
000002f0  3a f2 52 28 34 29 0d 03  8e 2b f5 e7 4d 25 e4 4d  |:.R(4)...+..M%.M|
00000300  25 2a 31 30 30 30 2d 34  39 39 30 8b e7 b3 28 33  |%*1000-4990...(3|
00000310  30 30 29 3d 31 4d 25 3d  b3 28 34 29 2b 36 3a f2  |00)=1M%=.(4)+6:.|
00000320  6d 0d 03 93 32 e7 48 25  e7 91 2d 54 3e 35 30 30  |m...2.H%..-T>500|
00000330  48 25 3d 30 3a 53 25 3d  53 25 81 33 3a f1 8a 31  |H%=0:S%=S%.3:..1|
00000340  31 2c 32 33 29 53 25 3a  d6 43 4c 3a f2 44 4d 28  |1,23)S%:.CL:.DM(|
00000350  34 29 20 0d 03 a2 0c f2  4d 3a fd 53 25 3c 30 0d  |4) .....M:.S%<0.|
00000360  03 ac 2d ef 35 3a e6 30  2c 32 3a ec 31 39 32 2c  |..-.5:.0,2:.192,|
00000370  39 39 32 3a f1 22 59 4f  55 20 41 52 45 20 44 45  |992:."YOU ARE DE|
00000380  41 44 21 21 22 27 27 3a  e6 30 2c 33 0d 03 b1 22  |AD!!"'':.0,3..."|
00000390  f1 22 20 20 41 6e 6f 74  68 65 72 20 67 6f 20 28  |."  Another go (|
000003a0  59 2f 4e 29 3f 22 3a 2a  46 58 31 35 20 31 0d 03  |Y/N)?":*FX15 1..|
000003b0  b6 1b f5 41 3d a5 3a e7  41 3d 38 39 f9 20 8b fd  |...A=.:.A=89. ..|
000003c0  41 3d 37 38 3a eb 37 3a  e0 0d 03 e8 05 f8 0d 03  |A=78:.7:........|
000003d0  f2 1b e7 52 58 3c 3e 4d  58 20 84 52 5a 3c 3e 4d  |...RX<>MX .RZ<>M|
000003e0  5a 20 84 47 25 3c 31 30  f8 0d 03 fc 87 e3 4a 3d  |Z .G%<10......J=|
000003f0  31 b8 31 30 3a f2 64 3a  e3 49 3d 31 b8 31 30 30  |1.10:.d:.I=1.100|
00000400  30 3a ed 3a ed 3a d6 43  4c 3a d6 63 6c 3a 43 25  |0:.:.:.CL:.cl:C%|
00000410  3d 31 3a f2 44 28 52 58  2c 2d 34 2c 52 5a 2c 38  |=1:.D(RX,-4,RZ,8|
00000420  29 3a e4 8d 74 78 4b 3a  e3 49 3d 31 b8 32 30 30  |):..txK:.I=1.200|
00000430  30 3a ed 3a d6 63 6c 3a  e3 49 3d 31 b8 32 30 30  |0:.:.cl:.I=1.200|
00000440  30 3a ed 3a da 3a fb 31  31 3a f1 8a 30 2c 35 29  |0:.:.:.11:..0,5)|
00000450  22 20 20 43 4f 4e 47 52  41 54 55 4c 41 54 49 4f  |"  CONGRATULATIO|
00000460  4e 53 22 27 27 27 27 3a  fb 31 3a e5 8d 74 71 43  |NS"'''':.1:..tqC|
00000470  0d 07 d0 43 e3 49 3d 31  b8 36 3a ef 31 39 2c 49  |...C.I=1.6:.19,I|
00000480  2c 37 3b 30 3b 3a ed 3a  d4 31 2c 31 2c 32 30 30  |,7;0;:.:.1,1,200|
00000490  2c 32 3a e3 49 3d 31 b8  35 30 30 3a ed 3a e3 49  |,2:.I=1.500:.:.I|
000004a0  3d 31 b8 36 3a ef 31 39  2c 49 2c 49 3b 30 3b 3a  |=1.6:.19,I,I;0;:|
000004b0  ed 3a f8 0d 07 da 1a e7  52 58 3c 3e 4d 58 20 84  |.:......RX<>MX .|
000004c0  52 5a 3c 3e 4d 5a 20 84  47 25 3d 30 f8 0d 07 e4  |RZ<>MZ .G%=0....|
000004d0  21 f2 64 3a e7 46 25 46  25 3d 30 8b 50 25 3d 50  |!.d:.F%F%=0.P%=P|
000004e0  25 2b 31 3a f1 8a 31 31  2c 32 32 29 50 25 0d 07  |%+1:..11,22)P%..|
000004f0  ee 19 d6 43 4c 3a d6 63  6c 3a f2 44 4d 28 34 29  |...CL:.cl:.DM(4)|
00000500  3a 4d 25 3d 30 3a f8 0d  0b b8 30 e3 49 3d 31 b8  |:M%=0:....0.I=1.|
00000510  33 3a d4 30 2c 2d 31 30  2c 36 2c 32 30 3a d4 30  |3:.0,-10,6,20:.0|
00000520  2c 2d 31 30 2c 35 2c 32  30 3a d4 30 2c 30 2c 35  |,-10,5,20:.0,0,5|
00000530  2c 31 30 3a ed 3a f8 0d  0b c2 53 e7 52 58 3d 4d  |,10:.:....S.RX=M|
00000540  58 20 80 52 5a 3d 4d 5a  20 d6 43 4c 3a e4 8d 74  |X .RZ=MZ .CL:..t|
00000550  78 4b 3a f5 58 3d a4 52  3a 59 3d a4 52 3a fd 28  |xK:.X=.R:Y=.R:.(|
00000560  52 25 28 58 2c 59 2c 5a  29 80 31 35 33 36 29 3d  |R%(X,Y,Z).1536)=|
00000570  30 3a 52 58 3d 2d 31 3a  52 5a 3d 38 3a f2 52 28  |0:RX=-1:RZ=8:.R(|
00000580  34 29 3a 4d 25 3d 38 3a  f2 6d 0d 0b cc 20 e7 b3  |4):M%=8:.m... ..|
00000590  28 31 30 30 29 3d 31 d6  43 4c 3a d6 63 6c 3a f2  |(100)=1.CL:.cl:.|
000005a0  44 4d 28 34 29 3a 4d 25  3d 30 0d 0b d6 05 f8 0d  |DM(4):M%=0......|
000005b0  0f a0 05 f8 0d 0f aa 12  e7 b3 28 31 30 30 29 3d  |..........(100)=|
000005c0  31 e7 47 25 f2 64 0d 0f  b4 3a e7 52 58 3d 4d 58  |1.G%.d...:.RX=MX|
000005d0  20 80 52 5a 3d 4d 5a 20  53 25 3d 53 25 2d 31 30  | .RZ=MZ S%=S%-10|
000005e0  30 3a f1 8a 31 31 2c 32  33 29 53 25 3a d6 43 4c  |0:..11,23)S%:.CL|
000005f0  3a d6 63 6c 3a f2 44 4d  28 34 29 3a 4d 25 3d 30  |:.cl:.DM(4):M%=0|
00000600  0d 0f be 05 f8 0d 13 88  16 d4 31 2c 2d 31 30 2c  |..........1,-10,|
00000610  30 2c 32 30 3a 54 4d 3d  91 3a f8 0d 13 92 25 e7  |0,20:TM=.:....%.|
00000620  91 2d 54 4d 3e 31 30 30  53 25 3d 53 25 2d 31 30  |.-TM>100S%=S%-10|
00000630  3a f1 8a 31 31 2c 32 33  29 53 25 3a 54 4d 3d 91  |:..11,23)S%:TM=.|
00000640  0d 13 9c 05 f8 0d 1b 58  2d f7 8d 44 5d 5b 3a e3  |.......X-..D][:.|
00000650  49 3d 31 b8 36 3a f3 4a  2c 4b 3a d4 30 2c 2d 31  |I=1.6:.J,K:.0,-1|
00000660  30 2c 31 2c 4a 3a d4 30  2c 30 2c 30 2c 4b 3a ed  |0,1,J:.0,0,0,K:.|
00000670  3a f8 0d 1b 5d 21 dc 31  30 2c 33 2c 31 30 2c 33  |:...]!.10,3,10,3|
00000680  2c 31 30 2c 33 2c 31 30  2c 32 2c 35 2c 31 2c 31  |,10,3,10,2,5,1,1|
00000690  30 2c 30 0d 1b 62 08 f2  43 3a f8 0d 1b 6c 43 e3  |0,0..b..C:...lC.|
000006a0  49 3d 31 b8 37 3a ef 31  39 2c 49 2c 36 3b 30 3b  |I=1.7:.19,I,6;0;|
000006b0  3a ed 3a d4 31 2c 32 2c  32 30 30 2c 37 3a e3 49  |:.:.1,2,200,7:.I|
000006c0  3d 31 b8 35 30 30 3a ed  3a e3 49 3d 31 b8 37 3a  |=1.500:.:.I=1.7:|
000006d0  ef 31 39 2c 49 2c 49 3b  30 3b 3a ed 3a f8 0d 1f  |.19,I,I;0;:.:...|
000006e0  40 1d d4 30 2c 2d 31 30  2c 34 2c 31 30 3a e3 49  |@..0,-10,4,10:.I|
000006f0  3d 31 b8 31 30 30 30 3a  ed 3a f8 0d 1f 4a 08 f2  |=1.1000:.:...J..|
00000700  43 3a f8 0d 1f 54 13 46  25 3d 31 3a d4 30 2c 31  |C:...T.F%=1:.0,1|
00000710  2c 34 2c 31 3a f8 0d 23  28 2f d4 26 31 31 30 2c  |,4,1:..#(/.&110,|
00000720  2d 31 35 2c 37 2c 35 30  3a d4 26 31 31 31 2c 33  |-15,7,50:.&111,3|
00000730  2c 31 35 30 2c 35 30 3a  e3 49 3d 31 b8 31 30 30  |,150,50:.I=1.100|
00000740  30 3a ed 3a f8 0d 23 32  06 f2 43 0d 23 3c 05 f8  |0:.:..#2..C.#<..|
00000750  0d 27 10 0b dd f2 52 28  42 25 29 0d 27 11 0e f1  |.'....R(B%).'...|
00000760  8a 30 2c 32 35 29 89 31  36 0d 27 12 0b e7 5a 3d  |.0,25).16.'...Z=|
00000770  34 f2 4e 46 0d 27 15 45  52 25 3d 52 25 28 58 2c  |4.NF.'.ER%=R%(X,|
00000780  59 2c 5a 29 3a 40 25 3d  32 3a f1 8a 31 31 2c 32  |Y,Z):@%=2:..11,2|
00000790  31 29 3b 58 22 2c 22 3b  59 22 2c 22 2c 5a 2b 42  |1);X",";Y",",Z+B|
000007a0  5a 3a 40 25 3d 34 3a e3  49 3d 30 b8 37 3a ef 31  |Z:@%=4:.I=0.7:.1|
000007b0  39 2c 49 3b 30 3b 30 3a  ed 0d 27 1a 78 ef 31 38  |9,I;0;0:..'.x.18|
000007c0  2c 30 2c 37 2c 32 35 2c  34 2c 30 3b 35 31 32 3b  |,0,7,25,4,0;512;|
000007d0  32 35 2c 34 2c 31 32 38  30 3b 35 31 32 3b 32 35  |25,4,1280;512;25|
000007e0  2c 38 35 2c 33 32 30 3b  36 34 30 3b 32 35 2c 38  |,85,320;640;25,8|
000007f0  35 2c 39 36 30 3b 36 34  30 3b 32 35 2c 34 2c 30  |5,960;640;25,4,0|
00000800  3b 31 30 32 34 3b 32 35  2c 34 2c 31 32 38 30 3b  |;1024;25,4,1280;|
00000810  31 30 32 34 3b 32 35 2c  38 35 2c 33 32 30 3b 38  |1024;25,85,320;8|
00000820  39 36 3b 32 35 2c 38 35  2c 39 36 30 3b 38 39 36  |96;25,85,960;896|
00000830  3b 0d 27 1c 82 ef 31 38  2c 30 2c 36 2d b4 28 52  |;.'...18,0,6-.(R|
00000840  25 80 32 35 36 29 2c 32  35 2c 34 2c 30 3b 35 31  |%.256),25,4,0;51|
00000850  32 3b 32 35 2c 34 2c 33  32 30 3b 36 34 30 3b 32  |2;25,4,320;640;2|
00000860  35 2c 38 35 2c 30 3b 31  30 32 34 3b 32 35 2c 38  |5,85,0;1024;25,8|
00000870  35 2c 33 32 30 3b 38 39  36 3b 32 35 2c 34 2c 31  |5,320;896;25,4,1|
00000880  32 38 30 3b 35 31 32 3b  32 35 2c 34 2c 39 36 30  |280;512;25,4,960|
00000890  3b 36 34 30 3b 32 35 2c  38 35 2c 31 32 38 30 3b  |;640;25,85,1280;|
000008a0  31 30 32 34 3b 32 35 2c  38 35 2c 39 36 30 3b 38  |1024;25,85,960;8|
000008b0  39 36 3b 0d 27 24 4e ef  31 38 2c 30 2c 34 2d 33  |96;.'$N.18,0,4-3|
000008c0  2a b4 28 52 25 80 32 35  36 29 2c 32 35 2c 34 2c  |*.(R%.256),25,4,|
000008d0  33 32 30 3b 36 34 30 3b  32 35 2c 34 2c 33 32 30  |320;640;25,4,320|
000008e0  3b 38 39 36 3b 32 35 2c  38 35 2c 39 36 30 3b 36  |;896;25,85,960;6|
000008f0  34 30 3b 32 35 2c 38 35  2c 39 36 30 3b 38 39 36  |40;25,85,960;896|
00000900  3b 0d 27 2e 17 e3 49 3d  30 b8 37 3a ef 31 39 2c  |;.'...I=0.7:.19,|
00000910  49 2c 49 3b 30 3b 3a ed  0d 27 38 44 e7 52 25 80  |I,I;0;:..'8D.R%.|
00000920  31 ef 32 35 2c 34 2c 31  31 30 35 3b 35 38 32 3b  |1.25,4,1105;582;|
00000930  32 35 2c 34 2c 31 31 30  35 3b 38 31 35 3b 32 35  |25,4,1105;815;25|
00000940  2c 38 37 2c 31 30 33 34  3b 36 31 30 3b 32 35 2c  |,87,1034;610;25,|
00000950  38 37 2c 31 30 33 34 3b  38 30 37 3b 0d 27 42 40  |87,1034;807;.'B@|
00000960  e7 52 25 80 32 ef 32 35  2c 34 2c 31 37 35 3b 35  |.R%.2.25,4,175;5|
00000970  38 32 3b 32 35 2c 34 2c  31 37 35 3b 38 31 35 3b  |82;25,4,175;815;|
00000980  32 35 2c 38 37 2c 32 34  36 3b 36 31 30 3b 32 35  |25,87,246;610;25|
00000990  2c 38 37 2c 32 34 36 3b  38 30 37 3b 0d 27 4c 40  |,87,246;807;.'L@|
000009a0  e7 52 25 80 34 ef 32 35  2c 34 2c 35 36 30 3b 36  |.R%.4.25,4,560;6|
000009b0  34 30 3b 32 35 2c 34 2c  35 36 30 3b 38 30 30 3b  |40;25,4,560;800;|
000009c0  32 35 2c 38 37 2c 37 32  30 3b 36 34 30 3b 32 35  |25,87,720;640;25|
000009d0  2c 38 37 2c 37 32 30 3b  38 30 30 3b 0d 27 51 40  |,87,720;800;.'Q@|
000009e0  e7 52 25 80 38 ef 32 35  2c 34 2c 34 38 30 3b 35  |.R%.8.25,4,480;5|
000009f0  31 32 3b 32 35 2c 34 2c  38 30 30 3b 35 31 32 3b  |12;25,4,800;512;|
00000a00  32 35 2c 38 37 2c 34 38  39 3b 35 32 37 3b 32 35  |25,87,489;527;25|
00000a10  2c 38 37 2c 37 39 31 3b  35 32 37 3b 0d 27 56 42  |,87,791;527;.'VB|
00000a20  e7 52 25 80 31 36 ef 32  35 2c 34 2c 37 32 30 3b  |.R%.16.25,4,720;|
00000a30  36 34 30 3b 32 35 2c 34  2c 37 33 38 3b 36 31 30  |640;25,4,738;610|
00000a40  3b 32 35 2c 38 37 2c 39  36 30 3b 36 34 30 3b 32  |;25,87,960;640;2|
00000a50  35 2c 38 37 2c 31 30 33  34 3b 36 31 30 3b 0d 27  |5,87,1034;610;.'|
00000a60  60 0e e7 52 25 80 33 32  f2 52 55 50 0d 27 6a 2e  |`..R%.32.RUP.'j.|
00000a70  52 47 3d 52 25 81 36 34  80 33 3a e7 52 47 3e 30  |RG=R%.64.3:.RG>0|
00000a80  e3 49 3d 31 b8 52 47 3a  f2 44 28 49 2d 35 2c 2d  |.I=1.RG:.D(I-5,-|
00000a90  34 2c 31 36 2c 31 35 29  3a ed 0d 27 7e 73 f2 44  |4,16,15):..'~s.D|
00000aa0  4d 28 42 25 29 3a e7 58  3d 57 58 20 80 59 3d 57  |M(B%):.X=WX .Y=W|
00000ab0  59 20 80 5a 2b 42 5a 3d  37 4d 25 3d 36 3a f2 6d  |Y .Z+BZ=7M%=6:.m|
00000ac0  20 8b 4d 25 3d 52 25 81  35 31 32 80 33 3a e7 4d  | .M%=R%.512.3:.M|
00000ad0  25 4d 25 3d 4d 25 2b 31  31 3a 4d 53 3d 28 5a 2b  |%M%=M%+11:MS=(Z+|
00000ae0  42 5a 2b 31 29 2a 28 52  25 81 32 30 34 38 80 32  |BZ+1)*(R%.2048.2|
00000af0  35 35 29 3a f1 8a 30 2c  32 35 29 22 4d 6f 6e 2e  |55):..0,25)"Mon.|
00000b00  20 73 74 72 2e 20 20 22  4d 53 3a f2 6d 0d 27 d8  | str.  "MS:.m.'.|
00000b10  05 e1 0d 2e e0 09 dd f2  52 55 50 0d 2e ea ec ef  |........RUP.....|
00000b20  32 35 2c 34 2c 37 32 30  3b 38 39 36 3b 32 35 2c  |25,4,720;896;25,|
00000b30  34 2c 37 33 38 3b 39 32  35 3b 32 35 2c 38 37 2c  |4,738;925;25,87,|
00000b40  39 36 30 3b 38 39 36 3b  32 35 2c 38 37 2c 31 30  |960;896;25,87,10|
00000b50  33 34 3b 39 32 35 3b 31  38 2c 30 2c 33 2c 32 35  |34;925;18,0,3,25|
00000b60  2c 35 2c 37 33 38 3b 36  31 30 3b 32 35 2c 34 2c  |,5,738;610;25,4,|
00000b70  39 36 30 3b 38 39 36 3b  32 35 2c 35 2c 37 32 30  |960;896;25,5,720|
00000b80  3b 36 34 30 3b 32 35 2c  34 2c 37 38 38 3b 36 36  |;640;25,4,788;66|
00000b90  33 3b 32 35 2c 35 2c 37  36 30 3b 36 38 33 3b 32  |3;25,5,760;683;2|
00000ba0  35 2c 34 2c 38 33 37 3b  37 31 35 3b 32 35 2c 35  |5,4,837;715;25,5|
00000bb0  2c 38 30 30 3b 37 32 35  3b 32 35 2c 34 2c 38 38  |,800;725;25,4,88|
00000bc0  36 3b 37 36 38 3b 32 35  2c 35 2c 38 34 30 3b 37  |6;768;25,5,840;7|
00000bd0  36 38 3b 32 35 2c 34 2c  39 33 35 3b 38 32 31 3b  |68;25,4,935;821;|
00000be0  32 35 2c 35 2c 38 38 30  3b 38 31 31 3b 32 35 2c  |25,5,880;811;25,|
00000bf0  34 2c 39 38 35 3b 38 37  33 3b 32 35 2c 35 2c 39  |4,985;873;25,5,9|
00000c00  32 30 3b 38 35 33 3b 0d  2e f4 05 e1 0d 33 2c 07  |20;853;......3,.|
00000c10  dd f2 4d 0d 33 36 0b e7  a6 2d 37 33 f2 66 0d 33  |..M.36...-73.f.3|
00000c20  40 0c e7 a6 2d 31 30 35  f2 62 0d 33 4a 0b e7 a6  |@...-105.b.3J...|
00000c30  2d 39 38 f2 6c 0d 33 54  0b e7 a6 2d 36 37 f2 72  |-98.l.3T...-67.r|
00000c40  0d 33 5e 0b e7 a6 2d 35  36 f2 70 0d 33 63 4f e7  |.3^...-56.p.3cO.|
00000c50  a6 2d 33 36 e7 46 25 3d  30 e7 50 25 3e 30 e7 48  |.-36.F%=0.P%>0.H|
00000c60  25 3d 30 48 25 3d 31 3a  50 25 3d 50 25 2d 31 3a  |%=0H%=1:P%=P%-1:|
00000c70  d6 43 4c 3a f2 44 4d 28  30 29 3a 54 3d 91 3a 53  |.CL:.DM(0):T=.:S|
00000c80  25 3d 53 25 2a 32 3a f1  8a 31 31 2c 32 32 29 50  |%=S%*2:..11,22)P|
00000c90  25 8a 31 31 2c 32 33 29  53 25 0d 33 68 05 e1 0d  |%.11,23)S%.3h...|
00000ca0  33 90 92 dd f2 66 20 e7  52 5a 3d 31 36 80 52 58  |3....f .RZ=16.RX|
00000cb0  3e 2d 32 80 52 58 3c 31  80 28 28 52 25 80 34 29  |>-2.RX<1.((R%.4)|
00000cc0  84 28 48 25 80 59 3c 33  29 29 59 3d 59 2b 31 3a  |.(H%.Y<3))Y=Y+1:|
00000cd0  52 5a 3d 38 3a 52 25 28  58 2c 59 2c 5a 29 3d 52  |RZ=8:R%(X,Y,Z)=R|
00000ce0  25 28 58 2c 59 2c 5a 29  84 38 3a f2 52 28 35 29  |%(X,Y,Z).8:.R(5)|
00000cf0  3a e7 28 52 25 28 58 2c  59 2d 31 2c 5a 29 80 34  |:.(R%(X,Y-1,Z).4|
00000d00  29 3d 30 53 25 3d 53 25  2d 31 30 30 3a f1 8a 31  |)=0S%=S%-100:..1|
00000d10  31 2c 32 33 29 53 25 3a  52 25 28 58 2c 59 2d 31  |1,23)S%:R%(X,Y-1|
00000d20  2c 5a 29 3d 52 25 28 58  2c 59 2d 31 2c 5a 29 84  |,Z)=R%(X,Y-1,Z).|
00000d30  34 0d 33 9a 0b e7 52 5a  3d 31 36 e1 0d 33 a4 2d  |4.3...RZ=16..3.-|
00000d40  e7 52 58 3c 31 84 52 5a  3c 31 33 84 28 52 25 80  |.RX<1.RZ<13.(R%.|
00000d50  34 38 29 3d 30 d6 43 4c  3a 52 5a 3d 52 5a 2b 31  |48)=0.CL:RZ=RZ+1|
00000d60  3a f2 44 4d 28 35 29 3a  e1 0d 33 ae 0f e7 52 25  |:.DM(5):..3...R%|
00000d70  80 31 36 f2 64 6f 77 6e  0d 33 b8 05 e1 0d 33 f4  |.16.down.3....3.|
00000d80  21 dd f2 62 20 e7 52 5a  3e 38 d6 43 4c 3a 52 5a  |!..b .RZ>8.CL:RZ|
00000d90  3d 52 5a 2d 31 3a f2 44  4d 28 34 29 3a e1 0d 33  |=RZ-1:.DM(4):..3|
00000da0  fe 89 e7 52 58 3e 2d 32  80 52 58 3c 31 80 28 28  |...RX>-2.RX<1.((|
00000db0  52 25 80 38 29 84 28 48  25 80 59 3e 30 29 29 59  |R%.8).(H%.Y>0))Y|
00000dc0  3d 59 2d 31 3a 52 5a 3d  31 36 3a 52 25 28 58 2c  |=Y-1:RZ=16:R%(X,|
00000dd0  59 2c 5a 29 3d 52 25 28  58 2c 59 2c 5a 29 84 34  |Y,Z)=R%(X,Y,Z).4|
00000de0  3a f2 52 28 34 29 3a e7  28 52 25 28 58 2c 59 2b  |:.R(4):.(R%(X,Y+|
00000df0  31 2c 5a 29 80 38 29 3d  30 53 25 3d 53 25 2d 31  |1,Z).8)=0S%=S%-1|
00000e00  30 30 3a f1 8a 31 31 2c  32 33 29 53 25 3a 52 25  |00:..11,23)S%:R%|
00000e10  28 58 2c 59 2b 31 2c 5a  29 3d 52 25 28 58 2c 59  |(X,Y+1,Z)=R%(X,Y|
00000e20  2b 31 2c 5a 29 84 38 0d  34 08 05 e1 0d 34 58 22  |+1,Z).8.4....4X"|
00000e30  dd f2 6c 20 e7 52 58 3e  2d 34 d6 43 4c 3a 52 58  |..l .RX>-4.CL:RX|
00000e40  3d 52 58 2d 31 3a f2 44  4d 28 31 29 3a e1 0d 34  |=RX-1:.DM(1):..4|
00000e50  62 89 e7 52 5a 3e 31 30  80 52 5a 3c 31 33 80 28  |b..RZ>10.RZ<13.(|
00000e60  28 52 25 80 32 29 84 28  48 25 80 58 3e 30 29 29  |(R%.2).(H%.X>0))|
00000e70  58 3d 58 2d 31 3a 52 58  3d 33 3a 52 25 28 58 2c  |X=X-1:RX=3:R%(X,|
00000e80  59 2c 5a 29 3d 52 25 28  58 2c 59 2c 5a 29 84 31  |Y,Z)=R%(X,Y,Z).1|
00000e90  3a f2 52 28 31 29 3a e7  28 52 25 28 58 2b 31 2c  |:.R(1):.(R%(X+1,|
00000ea0  59 2c 5a 29 80 32 29 3d  30 53 25 3d 53 25 2d 31  |Y,Z).2)=0S%=S%-1|
00000eb0  30 30 3a f1 8a 31 31 2c  32 33 29 53 25 3a 52 25  |00:..11,23)S%:R%|
00000ec0  28 58 2b 31 2c 59 2c 5a  29 3d 52 25 28 58 2b 31  |(X+1,Y,Z)=R%(X+1|
00000ed0  2c 59 2c 5a 29 84 32 0d  34 6c 05 e1 0d 34 bc 93  |,Y,Z).2.4l...4..|
00000ee0  dd f2 72 20 e7 52 58 3d  33 80 52 5a 3e 31 30 80  |..r .RX=3.RZ>10.|
00000ef0  52 5a 3c 31 33 80 28 28  52 25 80 31 29 84 28 48  |RZ<13.((R%.1).(H|
00000f00  25 80 58 3c 33 29 29 58  3d 58 2b 31 3a 52 58 3d  |%.X<3))X=X+1:RX=|
00000f10  2d 34 3a 52 25 28 58 2c  59 2c 5a 29 3d 52 25 28  |-4:R%(X,Y,Z)=R%(|
00000f20  58 2c 59 2c 5a 29 84 32  3a f2 52 28 30 29 3a e7  |X,Y,Z).2:.R(0):.|
00000f30  28 52 25 28 58 2d 31 2c  59 2c 5a 29 80 31 29 3d  |(R%(X-1,Y,Z).1)=|
00000f40  30 53 25 3d 53 25 2d 31  30 30 3a f1 8a 31 31 2c  |0S%=S%-100:..11,|
00000f50  32 33 29 53 25 3a 52 25  28 58 2d 31 2c 59 2c 5a  |23)S%:R%(X-1,Y,Z|
00000f60  29 3d 52 25 28 58 2d 31  2c 59 2c 5a 29 84 31 0d  |)=R%(X-1,Y,Z).1.|
00000f70  34 c6 0a e7 52 58 3d 33  e1 0d 34 d0 2d e7 52 58  |4...RX=3..4.-.RX|
00000f80  3c 30 84 52 5a 3c 31 33  84 28 52 25 80 34 38 29  |<0.RZ<13.(R%.48)|
00000f90  3d 30 d6 43 4c 3a 52 58  3d 52 58 2b 31 3a f2 44  |=0.CL:RX=RX+1:.D|
00000fa0  4d 28 30 29 3a e1 0d 34  da 16 e7 28 52 25 80 34  |M(0):..4...(R%.4|
00000fb0  38 29 3d 31 36 f2 64 6f  77 6e 3a e1 0d 34 ee 55  |8)=16.down:..4.U|
00000fc0  e3 49 3d 31 b8 35 3a d6  43 4c 3a 52 58 3d 49 2f  |.I=1.5:.CL:RX=I/|
00000fd0  32 3a 52 59 3d 49 2d 34  3a 52 5a 3d 31 34 3a f2  |2:RY=I-4:RZ=14:.|
00000fe0  44 4d 28 30 29 3a e3 4a  3d 31 b8 31 35 30 3a ed  |DM(0):.J=1.150:.|
00000ff0  3a ed 3a 52 58 3d 33 3a  52 5a 3d 31 31 3a 52 59  |:.:RX=3:RZ=11:RY|
00001000  3d 2d 34 3a 5a 3d 5a 2d  31 3a f2 52 28 34 29 3a  |=-4:Z=Z-1:.R(4):|
00001010  e1 0d 35 20 69 dd f2 64  6f 77 6e 20 5a 3d 5a 2b  |..5 i..down Z=Z+|
00001020  31 3a 52 58 3d 32 3a 52  5a 3d 31 34 3a 52 59 3d  |1:RX=2:RZ=14:RY=|
00001030  2e 35 3a f2 52 28 31 29  3a e3 49 3d 31 b8 34 3a  |.5:.R(1):.I=1.4:|
00001040  e3 4a 3d 31 b8 31 35 30  3a ed 3a d6 43 4c 3a 52  |.J=1.150:.:.CL:R|
00001050  58 3d 32 2d 49 2f 32 3a  52 59 3d 2d 49 3a 52 5a  |X=2-I/2:RY=-I:RZ|
00001060  3d 31 34 3a f2 44 4d 28  31 29 3a ed 3a 52 58 3d  |=14:.DM(1):.:RX=|
00001070  30 3a 52 59 3d 2d 34 3a  e1 20 0d 35 84 07 dd f2  |0:RY=-4:. .5....|
00001080  70 0d 35 8e 1c e7 52 5a  3c 31 36 84 52 58 3e 2d  |p.5...RZ<16.RX>-|
00001090  32 84 52 47 3d 30 84 4d  25 84 46 25 e1 0d 35 98  |2.RG=0.M%.F%..5.|
000010a0  6c d4 31 2c 34 2c 35 30  2c 34 30 3a 4a 3d 26 33  |l.1,4,50,40:J=&3|
000010b0  30 33 30 33 30 33 2a 28  31 36 2d 31 35 2a b4 28  |030303*(16-15*.(|
000010c0  52 25 80 32 35 36 29 29  3a e3 49 3d 26 44 38 30  |R%.256)):.I=&D80|
000010d0  b8 26 44 46 46 88 34 3a  21 49 3d 4a 3a ed 3a d6  |.&DFF.4:!I=J:.:.|
000010e0  43 4c 3a f2 44 28 52 47  2d 35 2c 2d 34 2c 31 36  |CL:.D(RG-5,-4,16|
000010f0  2c 31 35 29 3a 21 26 35  32 3d 21 26 35 30 3a d6  |,15):!&52=!&50:.|
00001100  63 6c 3a f2 44 4d 28 34  29 0d 35 a2 60 43 25 3d  |cl:.DM(4).5.`C%=|
00001110  31 3a e3 49 3d 2d 34 b8  34 2e 31 88 2e 34 3a f2  |1:.I=-4.4.1..4:.|
00001120  44 28 2d 33 2e 35 2c 34  2d 49 2a 49 2f 32 2c 31  |D(-3.5,4-I*I/2,1|
00001130  32 2d 49 2c 31 35 29 3a  d6 63 6c 3a ed 3a 52 47  |2-I,15):.cl:.:RG|
00001140  3d 52 47 2d 31 3a 52 25  28 58 2c 59 2c 5a 29 3d  |=RG-1:R%(X,Y,Z)=|
00001150  52 25 28 58 2c 59 2c 5a  29 80 26 46 46 46 46 46  |R%(X,Y,Z).&FFFFF|
00001160  46 33 46 84 36 34 2a 52  47 0d 35 ac 4c 41 25 3d  |F3F.64*RG.5.LA%=|
00001170  31 35 3a 59 25 3d 31 35  3a e3 58 25 3d 34 b8 36  |15:Y%=15:.X%=4.6|
00001180  36 88 32 3a d6 51 25 3a  d6 63 6c 3a ed 3a e3 59  |6.2:.Q%:.cl:.:.Y|
00001190  25 3d 31 35 b8 32 38 2d  47 25 81 32 30 2a 32 3a  |%=15.28-G%.20*2:|
000011a0  d6 51 25 3a d6 63 6c 3a  ed 3a d4 32 2c 31 2c 31  |.Q%:.cl:.:.2,1,1|
000011b0  39 30 2c 33 20 0d 35 b6  2b e7 47 25 3c 36 30 59  |90,3 .5.+.G%<60Y|
000011c0  25 3d 32 38 2d 47 25 81  32 30 2a 32 3a 58 25 3d  |%=28-G%.20*2:X%=|
000011d0  28 31 39 2d 47 25 83 32  30 29 2a 34 3a d6 51 25  |(19-G%.20)*4:.Q%|
000011e0  0d 35 c0 3e 47 25 3d 47  25 2b 31 3a 43 25 3d 30  |.5.>G%=G%+1:C%=0|
000011f0  3a 53 25 3d 53 25 2b 28  32 2b b3 28 38 29 29 2a  |:S%=S%+(2+.(8))*|
00001200  28 5a 2b 42 5a 2b 31 29  3a f1 8a 31 31 2c 32 33  |(Z+BZ+1):..11,23|
00001210  29 53 25 8a 31 31 2c 32  34 29 47 25 3a e1 0d 3e  |)S%.11,24)G%:..>|
00001220  80 37 dd f2 4e 46 20 e3  49 3d 30 b8 32 3a e3 4a  |.7..NF .I=0.2:.J|
00001230  3d 30 b8 33 3a e3 4b 3d  30 b8 33 3a 52 25 28 4a  |=0.3:.K=0.3:R%(J|
00001240  2c 4b 2c 49 29 3d 52 25  28 4a 2c 4b 2c 49 2b 31  |,K,I)=R%(J,K,I+1|
00001250  29 3a ed 2c 2c 0d 3e 94  4d e3 49 3d 30 b8 33 3a  |):.,,.>.M.I=0.3:|
00001260  e3 4a 3d 30 b8 33 3a 52  25 28 49 2c 4a 2c 30 29  |.J=0.3:R%(I,J,0)|
00001270  3d 52 25 28 49 2c 4a 2c  30 29 80 26 46 46 46 46  |=R%(I,J,0).&FFFF|
00001280  46 46 44 46 3a 52 25 28  49 2c 4a 2c 33 29 3d 28  |FFDF:R%(I,J,3)=(|
00001290  52 25 28 49 2c 4a 2c 32  29 80 31 36 29 2a 32 3a  |R%(I,J,2).16)*2:|
000012a0  ed 2c 0d 3e 9e 9c f2 52  47 28 33 29 3a 4a 3d a4  |.,.>...RG(3):J=.|
000012b0  52 3a 4b 3d a4 52 3a e3  49 3d 31 b8 31 36 3a f5  |R:K=.R:.I=1.16:.|
000012c0  44 3d a4 52 3a 4e 58 3d  4a 2b 28 44 3d 31 29 2d  |D=.R:NX=J+(D=1)-|
000012d0  28 44 3d 30 29 3a 4e 59  3d 4b 2b 28 44 3d 33 29  |(D=0):NY=K+(D=3)|
000012e0  2d 28 44 3d 32 29 3a fd  4e 58 3e 3d 30 80 4e 58  |-(D=2):.NX>=0.NX|
000012f0  3c 34 80 4e 59 3e 3d 30  80 4e 59 3c 34 3a 52 25  |<4.NY>=0.NY<4:R%|
00001300  28 4a 2c 4b 2c 33 29 3d  52 25 28 4a 2c 4b 2c 33  |(J,K,3)=R%(J,K,3|
00001310  29 84 32 5e 44 3a 4a 3d  4e 58 3a 4b 3d 4e 59 3a  |).2^D:J=NX:K=NY:|
00001320  52 25 28 4a 2c 4b 2c 33  29 3d 52 25 28 4a 2c 4b  |R%(J,K,3)=R%(J,K|
00001330  2c 33 29 84 32 5e 28 44  20 82 31 29 3a ed 0d 3e  |,3).2^(D .1):..>|
00001340  a8 15 f2 46 33 3a 42 5a  3d 42 5a 2b 31 3a 5a 3d  |...F3:BZ=BZ+1:Z=|
00001350  33 3a e1 0d 42 68 38 dd  f2 46 33 20 e3 49 3d 31  |3:..Bh8..F3 .I=1|
00001360  b8 b3 28 31 36 29 3a 4a  3d a4 52 3a 4b 3d a4 52  |..(16):J=.R:K=.R|
00001370  3a 52 25 28 4a 2c 4b 2c  33 29 3d 52 25 28 4a 2c  |:R%(J,K,3)=R%(J,|
00001380  4b 2c 33 29 84 31 36 3a  ed 3a e1 0d 42 cc 65 dd  |K,3).16:.:..B.e.|
00001390  f2 52 47 28 5a 29 e3 49  3d 30 b8 33 3a e3 4a 3d  |.RG(Z).I=0.3:.J=|
000013a0  30 b8 33 3a 52 25 28 49  2c 4a 2c 5a 29 3d 52 25  |0.3:R%(I,J,Z)=R%|
000013b0  28 49 2c 4a 2c 5a 29 84  36 34 2a a4 72 2a 28 b3  |(I,J,Z).64*.r*(.|
000013c0  28 33 29 2b 38 2a a4 72  2a b3 28 33 29 29 84 32  |(3)+8*.r*.(3)).2|
000013d0  35 36 2a 28 a4 72 2b 32  2a a4 72 2a b3 28 33 29  |56*(.r+2*.r*.(3)|
000013e0  2b 38 2a b3 28 31 30 30  29 29 3a ed 3a ed 3a e1  |+8*.(100)):.:.:.|
000013f0  0d 46 50 51 dd f2 6d 20  4d 58 3d b3 28 38 29 2d  |.FPQ..m MX=.(8)-|
00001400  35 3a 4d 5a 3d b3 28 36  29 2b 37 3a d6 43 4c 3a  |5:MZ=.(6)+7:.CL:|
00001410  43 25 3d 31 3a f2 44 28  4d 58 2c 2d 34 2c 4d 5a  |C%=1:.D(MX,-4,MZ|
00001420  2c 4d 25 29 3a 43 25 3d  30 3a f2 44 4d 28 5a 25  |,M%):C%=0:.DM(Z%|
00001430  29 3a e4 4d 25 2a 31 30  30 30 2d 35 30 30 30 3a  |):.M%*1000-5000:|
00001440  e1 0d 4a 38 27 dd f2 64  20 47 25 3d 47 25 2d 31  |..J8'..d G%=G%-1|
00001450  3a f1 8a 31 31 2c 32 34  29 47 25 3a d4 31 2c 2d  |:..11,24)G%:.1,-|
00001460  31 30 2c 32 30 30 2c 35  0d 4a 42 59 e7 47 25 3c  |10,200,5.JBY.G%<|
00001470  36 31 59 25 3d 32 38 2d  47 25 81 32 30 2a 32 3a  |61Y%=28-G%.20*2:|
00001480  58 25 3d 28 31 39 2d 47  25 83 32 30 29 2a 34 3a  |X%=(19-G%.20)*4:|
00001490  41 25 3d 31 35 3a d6 43  4c 3a d6 51 25 3a e3 49  |A%=15:.CL:.Q%:.I|
000014a0  3d 26 44 30 30 b8 26 44  37 46 88 34 3a 21 49 3d  |=&D00.&D7F.4:!I=|
000014b0  30 3a ed 3a d6 43 4c 3a  f2 44 4d 28 5a 25 29 3a  |0:.:.CL:.DM(Z%):|
000014c0  e1 0d 4e 20 2e dd f2 50  28 50 2c 58 2c 59 2c 5a  |..N ...P(P,X,Y,Z|
000014d0  29 f1 50 2c 36 34 30 2b  31 32 38 30 2a 58 2f 5a  |).P,640+1280*X/Z|
000014e0  2c 37 36 38 2b 35 31 32  2a 59 2f 5a 3a e1 20 0d  |,768+512*Y/Z:. .|
000014f0  4e 2a 33 dd f2 44 28 58  2c 59 2c 5a 2c 41 25 29  |N*3..D(X,Y,Z,A%)|
00001500  58 25 3d 34 30 2e 35 2b  38 30 2a 58 2f 5a 3a 59  |X%=40.5+80*X/Z:Y|
00001510  25 3d 34 2e 35 2d 31 36  2a 59 2f 5a 3a d6 51 25  |%=4.5-16*Y/Z:.Q%|
00001520  3a e1 0d 4e 34 1c dd f2  44 4d 28 42 25 29 e7 46  |:..N4...DM(B%).F|
00001530  25 42 25 3d 31 31 8b e7  48 25 42 25 3d 32 0d 4e  |%B%=11..H%B%=2.N|
00001540  3e 1b f2 44 28 52 58 2c  52 59 2c 52 5a 2c 42 25  |>..D(RX,RY,RZ,B%|
00001550  29 3a 5a 25 3d 42 25 3a  e1 0d 52 08 07 dd f2 43  |):Z%=B%:..R....C|
00001560  0d 52 12 4f 4d 58 3d 4d  58 2b b4 28 52 58 2d 4d  |.R.OMX=MX+.(RX-M|
00001570  58 29 2f 32 3a 4d 5a 3d  4d 5a 2b b4 28 52 5a 2d  |X)/2:MZ=MZ+.(RZ-|
00001580  4d 5a 29 2f 32 3a 43 25  3d 31 3a d6 43 4c 3a d6  |MZ)/2:C%=1:.CL:.|
00001590  63 6c 3a f2 44 28 4d 58  2c 2d 34 2c 4d 5a 2c 4d  |cl:.D(MX,-4,MZ,M|
000015a0  25 29 3a 43 25 3d 30 3a  f2 44 4d 28 5a 25 29 0d  |%):C%=0:.DM(Z%).|
000015b0  52 1c 15 e7 52 58 3c 3e  4d 58 20 84 52 5a 3c 3e  |R...RX<>MX .RZ<>|
000015c0  4d 5a 20 e1 0d 52 26 4d  54 25 3d 53 25 2d 4d 53  |MZ ..R&MT%=S%-MS|
000015d0  2f 28 32 2b b3 28 31 29  29 3a 4d 53 3d a8 28 4d  |/(2+.(1)):MS=.(M|
000015e0  53 2d 53 25 2f 28 32 2b  b3 28 31 29 29 29 3a 53  |S-S%/(2+.(1))):S|
000015f0  25 3d 54 25 3a f1 8a 31  31 2c 32 33 29 53 25 8a  |%=T%:..11,23)S%.|
00001600  31 31 2c 32 35 29 4d 53  3a d4 30 2c 31 2c 36 2c  |11,25)MS:.0,1,6,|
00001610  31 0d 52 2b 48 e7 4d 53  3e 30 52 25 28 58 2c 59  |1.R+H.MS>0R%(X,Y|
00001620  2c 5a 29 3d 52 25 28 58  2c 59 2c 5a 29 80 26 46  |,Z)=R%(X,Y,Z).&F|
00001630  46 46 38 30 37 46 46 84  4d 53 20 81 28 5a 2b 42  |FF807FF.MS .(Z+B|
00001640  5a 2b 31 29 2a 32 30 34  38 3a e4 4d 25 2a 31 30  |Z+1)*2048:.M%*10|
00001650  30 30 2d 34 39 38 30 3a  e1 0d 52 3a 91 d6 43 4c  |00-4980:..R:..CL|
00001660  3a d6 63 6c 3a f2 44 4d  28 34 29 3a 43 25 3d 31  |:.cl:.DM(4):C%=1|
00001670  3a f2 44 28 52 58 2c 2d  32 2c 52 5a 2c 4d 25 29  |:.D(RX,-2,RZ,M%)|
00001680  3a e3 49 3d 31 b8 32 30  30 30 3a ed 3a d6 63 6c  |:.I=1.2000:.:.cl|
00001690  3a f2 44 28 52 58 2c 2d  34 2c 52 5a 2c 4d 25 29  |:.D(RX,-4,RZ,M%)|
000016a0  3a d4 30 2c 31 2c 36 2c  31 3a e3 49 3d 31 b8 32  |:.0,1,6,1:.I=1.2|
000016b0  30 30 30 3a ed 3a d6 63  6c 3a 52 25 28 58 2c 59  |000:.:.cl:R%(X,Y|
000016c0  2c 5a 29 3d 52 25 28 58  2c 59 2c 5a 29 80 26 46  |,Z)=R%(X,Y,Z).&F|
000016d0  46 46 39 46 46 3a 43 25  3d 30 3a 4d 25 3d 30 3a  |FF9FF:C%=0:M%=0:|
000016e0  f1 8a 30 2c 32 35 29 89  31 36 0d 52 44 05 e1 0d  |..0,25).16.RD...|
000016f0  ff                                                |.|
000016f1

Alpha/EMBA2.m0

Alpha/EMBA2.m1

Alpha/EMBA2.m2

Alpha/EMBA2.m4

Alpha/EMBA2.m5

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