Home » Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94 » !AWSept94/Goodies/QuickKey/!QuicKey/!RunImage

!AWSept94/Goodies/QuickKey/!QuicKey/!RunImage

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 » Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94
Filename: !AWSept94/Goodies/QuickKey/!QuicKey/!RunImage
Read OK:
File size: 0774 bytes
Load address: 0000
Exec address: 0000
File contents
   60ONERRORMODEMODE:REPORT:PRINT" at Line ";ERL:END
   90PROCUV:PROCUW:END
  140DEFPROCUV:UX=4:UY=2:UZ=1:Ua=-2:Ub$="QuicKey":Uc$="QuicKey":Ud=1*1024 :DIMUe Ud:Uf=1*1024 :DIMUg Uf:Uh=1*1024 :DIMUi Uh:Uj=1*1024 :DIMUk Uj:Ul=1*1024 :DIMUm Ul:Un=1:Uo= NOTTRUE:Up=FNUq(2*100,Uc$):Ur=FNUs(Ug):Ut=0:PROCUu:ENDPROC
  350DEFPROCUW:REPEAT:Uv=FNUw(Ue,Un):CASEUv OF
  390WHEN1:PROCUx(Ue)
  400WHEN2:PROCUy(Ue,Ug,-1,TRUE)
  410WHEN3:PROCUz(Ug,Ue!0)
  420WHEN6:PROCVU(Ue)
  430WHEN8:PROCVV(Ue)
  440WHEN9:PROCVW(Ue)
  450WHEN17:PROCVX(Ue)
  460WHEN18:PROCVX(Ue)
  470ENDCASE:UNTILUo:PROCVY(Up):ONERROREND
  510OSCLI"RmKill QuicKey":ENDPROC
  580DEFFNUs(VZ):VZ!0=-1:VZ!4=0:VZ!8=0:VZ!12=68:VZ!16=68:VZ!20=&3002:$(VZ+24)="!"+Ub$+CHR$0:SYS&400C2,,VZ TOVa:=Va
  700DEFPROCVU(Vb):Vc=Vb!0:Vd=Vb!4:Ve=Vb!8:Vf=Vb!12:Va=Vb!16:CASEVe OF
  770WHENUY:CASEVf OF
  780WHENUa:IFVa=Ur THENPROCVg(Vc)
  790ENDCASE
  800ENDCASE:ENDPROC
  840DEFPROCVX(Vb):CASEVb!16 OF
  860WHEN0:Uo=TRUE
  870ENDCASE:ENDPROC
  910DEFPROCUx(Vb):SYS&400C8,,Vb TOVh:ENDPROC
  960DEFPROCUu:Vi=Uk:PROCVj(Ug,"<"+Ub$+"$Dir>.Templates"):Vi=FNVk(Ui,Vi,Uk+Uj,"information"):Vl=FNVm(Ui):PROCVn:ENDPROC
 1050DEFPROCVg(Vc):Ut=1:PROCVo(Ub$,128,44):PROCVp("Info",0,Vl, NOTTRUE):PROCVp("Quit",128,-1, NOTTRUE):SYS&400D4,,Um,Vc-64,192:ENDPROC
 1140DEFPROCVo(Vq$,Vr,Vs):Vt=0:$(Um+Vt)=Vq$+CHR$0:?(Um+Vt+12)=7:?(Um+Vt+13)=2:?(Um+Vt+14)=7:?(Um+Vt+15)=0:!(Um+Vt+16)=Vr:!(Um+Vt+20)=Vs:!(Um+Vt+24)=0:Vt+=28:ENDPROC
 1280DEFPROCVp(Vu$,Vv,Vw,Vx):!(Um+Vt+0)=Vv:!(Um+Vt+4)=Vw:!(Um+Vt+8)=&07000001+ABSVx*2^22:$(Um+Vt+12)=Vu$+CHR$0:Vt+=24:ENDPROC
 1370DEFPROCVW(Vb):Vy=Vb!0:CASEUt OF
 1400WHEN1:CASEVy OF
 1410WHEN0
 1420WHEN1:Uo=TRUE
 1430ENDCASE
 1440ENDCASE:SYS&400CF,,Vb:Vc=Vb!0:Vd=Vb!4:Ve=Vb!8:IFVe=UZ THEN
 1500CASEUt OF
 1510WHEN1:PROCVg(Vc)
 1520ENDCASE
 1530ELSE:SYS&400D4,,-1:Ut=0
 1560ENDIF:ENDPROC
 1600DEFFNUq(Vz,WU$):LOCALWV,WW:SYS&400C0,Vz,&4B534154,WU$+CHR$0 TOWV,WW:WX=WW:=WX
 1670DEFPROCVY(WX):SYS&400DD,WX,"TASK":ENDPROC
 1720DEFPROCUy(Vb,VZ,Vf,WY):IFWY= NOTTRUE THEN
 1740VZ!0=Vf:SYS&400CB,,VZ:VZ!28=-1:SYS&400C5,,VZ
 1780ELSE:Vb!24=-1:SYS&400C5,,Vb
 1810ENDIF:ENDPROC
 1850DEFPROCUz(VZ,Vf):VZ!0=Vf:SYS&400C6,,VZ:ENDPROC
 1910DEFFNWZ(Vw):LOCALWa$:Wa$="":WHILE?Vw>31:Wa$+=CHR$?Vw:Vw+=1:ENDWHILE:=Wa$
 2010DEFPROCVj(VZ,Wb$):$VZ=Wb$+CHR$0:SYS&400D9,,VZ:ENDPROC
 2070DEFFNVk(Wc,Wd,We,Wf$):LOCALWg,Wh,Wi,Wj,Wk:SYS&400DB,,Wc,Wd,We,-1,Wf$,0 TO,,Wg:Wh=Wc!84:Wi=Wg:Wj=0:=Wi
 2180DEFFNVm(Wc):LOCALVf:SYS&400C1,,Wc TOVf:=Vf
 2240DEFPROCVn:SYS&400DA:ENDPROC
 2290DEFFNUw(Vb,Wl):LOCALWV:SYS&400C7,Wl,Vb TOWV:Wm=WV:=Wm
<���:�:�" at Line ";�:�
Z
�UV:�UW:�
����UV:UX=4:UY=2:UZ=1:Ua=-2:Ub$="QuicKey":Uc$="QuicKey":Ud=1*1024 :�Ue Ud:Uf=1*1024 :�Ug Uf:Uh=1*1024 :�Ui Uh:Uj=1*1024 :�Uk Uj:Ul=1*1024 :�Um Ul:Un=1:Uo= ��:Up=�Uq(2*100,Uc$):Ur=�Us(Ug):Ut=0:�Uu:�
^��UW:�:Uv=�Uw(Ue,Un):ȎUv �
��1:�Ux(Ue)
��2:�Uy(Ue,Ug,-1,�)
��3:�Uz(Ug,Ue!0)
��6:�VU(Ue)
��8:�VV(Ue)
��9:�VW(Ue)
��17:�VX(Ue)
��18:�VX(Ue)
��:�Uo:�VY(Up):��
��"RmKill QuicKey":�
DiݤUs(VZ):VZ!0=-1:VZ!4=0:VZ!8=0:VZ!12=68:VZ!16=68:VZ!20=&3002:$(VZ+24)="!"+Ub$+�0:ș&400C2,,VZ �Va:=Va
�=��VU(Vb):Vc=Vb!0:Vd=Vb!4:Ve=Vb!8:Vf=Vb!12:Va=Vb!16:ȎVe �
�UY:ȎVf �
�Ua:�Va=Ur ��Vg(Vc)
�
 �:�
H��VX(Vb):ȎVb!16 �
\�0:Uo=�
f�:�
���Ux(Vb):ș&400C8,,Vb �Vh:�
�c��Uu:Vi=Uk:�Vj(Ug,"<"+Ub$+"$Dir>.Templates"):Vi=�Vk(Ui,Vi,Uk+Uj,"information"):Vl=�Vm(Ui):�Vn:�
f��Vg(Vc):Ut=1:�Vo(Ub$,128,44):�Vp("Info",0,Vl, ��):�Vp("Quit",128,-1, ��):ș&400D4,,Um,Vc-64,192:�
t���Vo(Vq$,Vr,Vs):Vt=0:$(Um+Vt)=Vq$+�0:?(Um+Vt+12)=7:?(Um+Vt+13)=2:?(Um+Vt+14)=7:?(Um+Vt+15)=0:!(Um+Vt+16)=Vr:!(Um+Vt+20)=Vs:!(Um+Vt+24)=0:Vt+=28:�
l��Vp(Vu$,Vv,Vw,Vx):!(Um+Vt+0)=Vv:!(Um+Vt+4)=Vw:!(Um+Vt+8)=&07000001+�Vx*2^22:$(Um+Vt+12)=Vu$+�0:Vt+=24:�
Z��VW(Vb):Vy=Vb!0:ȎUt �
x
�1:ȎVy �
��0
��1:Uo=�
��
�3�:ș&400CF,,Vb:Vc=Vb!0:Vd=Vb!4:Ve=Vb!8:�Ve=UZ �
�
ȎUt �
��1:�Vg(Vc)
��
��:ș&400D4,,-1:Ut=0
�:�
@EݤUq(Vz,WU$):�WV,WW:ș&400C0,Vz,&4B534154,WU$+�0 �WV,WW:WX=WW:=WX
�!��VY(WX):ș&400DD,WX,"TASK":�
���Uy(Vb,VZ,Vf,WY):�WY= �� �
�.VZ!0=Vf:ș&400CB,,VZ:VZ!28=-1:ș&400C5,,VZ
��:Vb!24=-1:ș&400C5,,Vb
�:�
:&��Uz(VZ,Vf):VZ!0=Vf:ș&400C6,,VZ:�
v8ݤWZ(Vw):�Wa$:Wa$="":ȕ?Vw>31:Wa$+=�?Vw:Vw+=1:�:=Wa$
�*��Vj(VZ,Wb$):$VZ=Wb$+�0:ș&400D9,,VZ:�
`ݤVk(Wc,Wd,We,Wf$):�Wg,Wh,Wi,Wj,Wk:ș&400DB,,Wc,Wd,We,-1,Wf$,0 �,,Wg:Wh=Wc!84:Wi=Wg:Wj=0:=Wi
�%ݤVm(Wc):�Vf:ș&400C1,,Wc �Vf:=Vf
���Vn:ș&400DA:�
�0ݤUw(Vb,Wl):�WV:ș&400C7,Wl,Vb �WV:Wm=WV:=Wm
�
00000000  0d 00 3c 1b ee 85 eb eb  3a f6 3a f1 22 20 61 74  |..<.....:.:." at|
00000010  20 4c 69 6e 65 20 22 3b  9e 3a e0 0d 00 5a 0d f2  | Line ";.:...Z..|
00000020  55 56 3a f2 55 57 3a e0  0d 00 8c c7 dd f2 55 56  |UV:.UW:.......UV|
00000030  3a 55 58 3d 34 3a 55 59  3d 32 3a 55 5a 3d 31 3a  |:UX=4:UY=2:UZ=1:|
00000040  55 61 3d 2d 32 3a 55 62  24 3d 22 51 75 69 63 4b  |Ua=-2:Ub$="QuicK|
00000050  65 79 22 3a 55 63 24 3d  22 51 75 69 63 4b 65 79  |ey":Uc$="QuicKey|
00000060  22 3a 55 64 3d 31 2a 31  30 32 34 20 3a de 55 65  |":Ud=1*1024 :.Ue|
00000070  20 55 64 3a 55 66 3d 31  2a 31 30 32 34 20 3a de  | Ud:Uf=1*1024 :.|
00000080  55 67 20 55 66 3a 55 68  3d 31 2a 31 30 32 34 20  |Ug Uf:Uh=1*1024 |
00000090  3a de 55 69 20 55 68 3a  55 6a 3d 31 2a 31 30 32  |:.Ui Uh:Uj=1*102|
000000a0  34 20 3a de 55 6b 20 55  6a 3a 55 6c 3d 31 2a 31  |4 :.Uk Uj:Ul=1*1|
000000b0  30 32 34 20 3a de 55 6d  20 55 6c 3a 55 6e 3d 31  |024 :.Um Ul:Un=1|
000000c0  3a 55 6f 3d 20 ac b9 3a  55 70 3d a4 55 71 28 32  |:Uo= ..:Up=.Uq(2|
000000d0  2a 31 30 30 2c 55 63 24  29 3a 55 72 3d a4 55 73  |*100,Uc$):Ur=.Us|
000000e0  28 55 67 29 3a 55 74 3d  30 3a f2 55 75 3a e1 0d  |(Ug):Ut=0:.Uu:..|
000000f0  01 5e 1f dd f2 55 57 3a  f5 3a 55 76 3d a4 55 77  |.^...UW:.:Uv=.Uw|
00000100  28 55 65 2c 55 6e 29 3a  c8 8e 55 76 20 ca 0d 01  |(Ue,Un):..Uv ...|
00000110  86 0e c9 31 3a f2 55 78  28 55 65 29 0d 01 90 16  |...1:.Ux(Ue)....|
00000120  c9 32 3a f2 55 79 28 55  65 2c 55 67 2c 2d 31 2c  |.2:.Uy(Ue,Ug,-1,|
00000130  b9 29 0d 01 9a 13 c9 33  3a f2 55 7a 28 55 67 2c  |.).....3:.Uz(Ug,|
00000140  55 65 21 30 29 0d 01 a4  0e c9 36 3a f2 56 55 28  |Ue!0).....6:.VU(|
00000150  55 65 29 0d 01 ae 0e c9  38 3a f2 56 56 28 55 65  |Ue).....8:.VV(Ue|
00000160  29 0d 01 b8 0e c9 39 3a  f2 56 57 28 55 65 29 0d  |).....9:.VW(Ue).|
00000170  01 c2 0f c9 31 37 3a f2  56 58 28 55 65 29 0d 01  |....17:.VX(Ue)..|
00000180  cc 0f c9 31 38 3a f2 56  58 28 55 65 29 0d 01 d6  |...18:.VX(Ue)...|
00000190  15 cb 3a fd 55 6f 3a f2  56 59 28 55 70 29 3a ee  |..:.Uo:.VY(Up):.|
000001a0  85 e0 0d 01 fe 17 ff 22  52 6d 4b 69 6c 6c 20 51  |......."RmKill Q|
000001b0  75 69 63 4b 65 79 22 3a  e1 0d 02 44 69 dd a4 55  |uicKey":...Di..U|
000001c0  73 28 56 5a 29 3a 56 5a  21 30 3d 2d 31 3a 56 5a  |s(VZ):VZ!0=-1:VZ|
000001d0  21 34 3d 30 3a 56 5a 21  38 3d 30 3a 56 5a 21 31  |!4=0:VZ!8=0:VZ!1|
000001e0  32 3d 36 38 3a 56 5a 21  31 36 3d 36 38 3a 56 5a  |2=68:VZ!16=68:VZ|
000001f0  21 32 30 3d 26 33 30 30  32 3a 24 28 56 5a 2b 32  |!20=&3002:$(VZ+2|
00000200  34 29 3d 22 21 22 2b 55  62 24 2b bd 30 3a c8 99  |4)="!"+Ub$+.0:..|
00000210  26 34 30 30 43 32 2c 2c  56 5a 20 b8 56 61 3a 3d  |&400C2,,VZ .Va:=|
00000220  56 61 0d 02 bc 3d dd f2  56 55 28 56 62 29 3a 56  |Va...=..VU(Vb):V|
00000230  63 3d 56 62 21 30 3a 56  64 3d 56 62 21 34 3a 56  |c=Vb!0:Vd=Vb!4:V|
00000240  65 3d 56 62 21 38 3a 56  66 3d 56 62 21 31 32 3a  |e=Vb!8:Vf=Vb!12:|
00000250  56 61 3d 56 62 21 31 36  3a c8 8e 56 65 20 ca 0d  |Va=Vb!16:..Ve ..|
00000260  03 02 0e c9 55 59 3a c8  8e 56 66 20 ca 0d 03 0c  |....UY:..Vf ....|
00000270  17 c9 55 61 3a e7 56 61  3d 55 72 20 8c f2 56 67  |..Ua:.Va=Ur ..Vg|
00000280  28 56 63 29 0d 03 16 05  cb 0d 03 20 07 cb 3a e1  |(Vc)....... ..:.|
00000290  0d 03 48 16 dd f2 56 58  28 56 62 29 3a c8 8e 56  |..H...VX(Vb):..V|
000002a0  62 21 31 36 20 ca 0d 03  5c 0b c9 30 3a 55 6f 3d  |b!16 ...\..0:Uo=|
000002b0  b9 0d 03 66 07 cb 3a e1  0d 03 8e 1f dd f2 55 78  |...f..:.......Ux|
000002c0  28 56 62 29 3a c8 99 26  34 30 30 43 38 2c 2c 56  |(Vb):..&400C8,,V|
000002d0  62 20 b8 56 68 3a e1 0d  03 c0 63 dd f2 55 75 3a  |b .Vh:....c..Uu:|
000002e0  56 69 3d 55 6b 3a f2 56  6a 28 55 67 2c 22 3c 22  |Vi=Uk:.Vj(Ug,"<"|
000002f0  2b 55 62 24 2b 22 24 44  69 72 3e 2e 54 65 6d 70  |+Ub$+"$Dir>.Temp|
00000300  6c 61 74 65 73 22 29 3a  56 69 3d a4 56 6b 28 55  |lates"):Vi=.Vk(U|
00000310  69 2c 56 69 2c 55 6b 2b  55 6a 2c 22 69 6e 66 6f  |i,Vi,Uk+Uj,"info|
00000320  72 6d 61 74 69 6f 6e 22  29 3a 56 6c 3d a4 56 6d  |rmation"):Vl=.Vm|
00000330  28 55 69 29 3a f2 56 6e  3a e1 0d 04 1a 66 dd f2  |(Ui):.Vn:....f..|
00000340  56 67 28 56 63 29 3a 55  74 3d 31 3a f2 56 6f 28  |Vg(Vc):Ut=1:.Vo(|
00000350  55 62 24 2c 31 32 38 2c  34 34 29 3a f2 56 70 28  |Ub$,128,44):.Vp(|
00000360  22 49 6e 66 6f 22 2c 30  2c 56 6c 2c 20 ac b9 29  |"Info",0,Vl, ..)|
00000370  3a f2 56 70 28 22 51 75  69 74 22 2c 31 32 38 2c  |:.Vp("Quit",128,|
00000380  2d 31 2c 20 ac b9 29 3a  c8 99 26 34 30 30 44 34  |-1, ..):..&400D4|
00000390  2c 2c 55 6d 2c 56 63 2d  36 34 2c 31 39 32 3a e1  |,,Um,Vc-64,192:.|
000003a0  0d 04 74 95 dd f2 56 6f  28 56 71 24 2c 56 72 2c  |..t...Vo(Vq$,Vr,|
000003b0  56 73 29 3a 56 74 3d 30  3a 24 28 55 6d 2b 56 74  |Vs):Vt=0:$(Um+Vt|
000003c0  29 3d 56 71 24 2b bd 30  3a 3f 28 55 6d 2b 56 74  |)=Vq$+.0:?(Um+Vt|
000003d0  2b 31 32 29 3d 37 3a 3f  28 55 6d 2b 56 74 2b 31  |+12)=7:?(Um+Vt+1|
000003e0  33 29 3d 32 3a 3f 28 55  6d 2b 56 74 2b 31 34 29  |3)=2:?(Um+Vt+14)|
000003f0  3d 37 3a 3f 28 55 6d 2b  56 74 2b 31 35 29 3d 30  |=7:?(Um+Vt+15)=0|
00000400  3a 21 28 55 6d 2b 56 74  2b 31 36 29 3d 56 72 3a  |:!(Um+Vt+16)=Vr:|
00000410  21 28 55 6d 2b 56 74 2b  32 30 29 3d 56 73 3a 21  |!(Um+Vt+20)=Vs:!|
00000420  28 55 6d 2b 56 74 2b 32  34 29 3d 30 3a 56 74 2b  |(Um+Vt+24)=0:Vt+|
00000430  3d 32 38 3a e1 0d 05 00  6c dd f2 56 70 28 56 75  |=28:....l..Vp(Vu|
00000440  24 2c 56 76 2c 56 77 2c  56 78 29 3a 21 28 55 6d  |$,Vv,Vw,Vx):!(Um|
00000450  2b 56 74 2b 30 29 3d 56  76 3a 21 28 55 6d 2b 56  |+Vt+0)=Vv:!(Um+V|
00000460  74 2b 34 29 3d 56 77 3a  21 28 55 6d 2b 56 74 2b  |t+4)=Vw:!(Um+Vt+|
00000470  38 29 3d 26 30 37 30 30  30 30 30 31 2b 94 56 78  |8)=&07000001+.Vx|
00000480  2a 32 5e 32 32 3a 24 28  55 6d 2b 56 74 2b 31 32  |*2^22:$(Um+Vt+12|
00000490  29 3d 56 75 24 2b bd 30  3a 56 74 2b 3d 32 34 3a  |)=Vu$+.0:Vt+=24:|
000004a0  e1 0d 05 5a 1b dd f2 56  57 28 56 62 29 3a 56 79  |...Z...VW(Vb):Vy|
000004b0  3d 56 62 21 30 3a c8 8e  55 74 20 ca 0d 05 78 0d  |=Vb!0:..Ut ...x.|
000004c0  c9 31 3a c8 8e 56 79 20  ca 0d 05 82 06 c9 30 0d  |.1:..Vy ......0.|
000004d0  05 8c 0b c9 31 3a 55 6f  3d b9 0d 05 96 05 cb 0d  |....1:Uo=.......|
000004e0  05 a0 33 cb 3a c8 99 26  34 30 30 43 46 2c 2c 56  |..3.:..&400CF,,V|
000004f0  62 3a 56 63 3d 56 62 21  30 3a 56 64 3d 56 62 21  |b:Vc=Vb!0:Vd=Vb!|
00000500  34 3a 56 65 3d 56 62 21  38 3a e7 56 65 3d 55 5a  |4:Ve=Vb!8:.Ve=UZ|
00000510  20 8c 0d 05 dc 0a c8 8e  55 74 20 ca 0d 05 e6 0e  | .......Ut .....|
00000520  c9 31 3a f2 56 67 28 56  63 29 0d 05 f0 05 cb 0d  |.1:.Vg(Vc)......|
00000530  05 fa 17 cc 3a c8 99 26  34 30 30 44 34 2c 2c 2d  |....:..&400D4,,-|
00000540  31 3a 55 74 3d 30 0d 06  18 07 cd 3a e1 0d 06 40  |1:Ut=0.....:...@|
00000550  45 dd a4 55 71 28 56 7a  2c 57 55 24 29 3a ea 57  |E..Uq(Vz,WU$):.W|
00000560  56 2c 57 57 3a c8 99 26  34 30 30 43 30 2c 56 7a  |V,WW:..&400C0,Vz|
00000570  2c 26 34 42 35 33 34 31  35 34 2c 57 55 24 2b bd  |,&4B534154,WU$+.|
00000580  30 20 b8 57 56 2c 57 57  3a 57 58 3d 57 57 3a 3d  |0 .WV,WW:WX=WW:=|
00000590  57 58 0d 06 86 21 dd f2  56 59 28 57 58 29 3a c8  |WX...!..VY(WX):.|
000005a0  99 26 34 30 30 44 44 2c  57 58 2c 22 54 41 53 4b  |.&400DD,WX,"TASK|
000005b0  22 3a e1 0d 06 b8 1f dd  f2 55 79 28 56 62 2c 56  |":.......Uy(Vb,V|
000005c0  5a 2c 56 66 2c 57 59 29  3a e7 57 59 3d 20 ac b9  |Z,Vf,WY):.WY= ..|
000005d0  20 8c 0d 06 cc 2e 56 5a  21 30 3d 56 66 3a c8 99  | .....VZ!0=Vf:..|
000005e0  26 34 30 30 43 42 2c 2c  56 5a 3a 56 5a 21 32 38  |&400CB,,VZ:VZ!28|
000005f0  3d 2d 31 3a c8 99 26 34  30 30 43 35 2c 2c 56 5a  |=-1:..&400C5,,VZ|
00000600  0d 06 f4 1b cc 3a 56 62  21 32 34 3d 2d 31 3a c8  |.....:Vb!24=-1:.|
00000610  99 26 34 30 30 43 35 2c  2c 56 62 0d 07 12 07 cd  |.&400C5,,Vb.....|
00000620  3a e1 0d 07 3a 26 dd f2  55 7a 28 56 5a 2c 56 66  |:...:&..Uz(VZ,Vf|
00000630  29 3a 56 5a 21 30 3d 56  66 3a c8 99 26 34 30 30  |):VZ!0=Vf:..&400|
00000640  43 36 2c 2c 56 5a 3a e1  0d 07 76 38 dd a4 57 5a  |C6,,VZ:...v8..WZ|
00000650  28 56 77 29 3a ea 57 61  24 3a 57 61 24 3d 22 22  |(Vw):.Wa$:Wa$=""|
00000660  3a c8 95 3f 56 77 3e 33  31 3a 57 61 24 2b 3d bd  |:..?Vw>31:Wa$+=.|
00000670  3f 56 77 3a 56 77 2b 3d  31 3a ce 3a 3d 57 61 24  |?Vw:Vw+=1:.:=Wa$|
00000680  0d 07 da 2a dd f2 56 6a  28 56 5a 2c 57 62 24 29  |...*..Vj(VZ,Wb$)|
00000690  3a 24 56 5a 3d 57 62 24  2b bd 30 3a c8 99 26 34  |:$VZ=Wb$+.0:..&4|
000006a0  30 30 44 39 2c 2c 56 5a  3a e1 0d 08 16 60 dd a4  |00D9,,VZ:....`..|
000006b0  56 6b 28 57 63 2c 57 64  2c 57 65 2c 57 66 24 29  |Vk(Wc,Wd,We,Wf$)|
000006c0  3a ea 57 67 2c 57 68 2c  57 69 2c 57 6a 2c 57 6b  |:.Wg,Wh,Wi,Wj,Wk|
000006d0  3a c8 99 26 34 30 30 44  42 2c 2c 57 63 2c 57 64  |:..&400DB,,Wc,Wd|
000006e0  2c 57 65 2c 2d 31 2c 57  66 24 2c 30 20 b8 2c 2c  |,We,-1,Wf$,0 .,,|
000006f0  57 67 3a 57 68 3d 57 63  21 38 34 3a 57 69 3d 57  |Wg:Wh=Wc!84:Wi=W|
00000700  67 3a 57 6a 3d 30 3a 3d  57 69 0d 08 84 25 dd a4  |g:Wj=0:=Wi...%..|
00000710  56 6d 28 57 63 29 3a ea  56 66 3a c8 99 26 34 30  |Vm(Wc):.Vf:..&40|
00000720  30 43 31 2c 2c 57 63 20  b8 56 66 3a 3d 56 66 0d  |0C1,,Wc .Vf:=Vf.|
00000730  08 c0 13 dd f2 56 6e 3a  c8 99 26 34 30 30 44 41  |.....Vn:..&400DA|
00000740  3a e1 0d 08 f2 30 dd a4  55 77 28 56 62 2c 57 6c  |:....0..Uw(Vb,Wl|
00000750  29 3a ea 57 56 3a c8 99  26 34 30 30 43 37 2c 57  |):.WV:..&400C7,W|
00000760  6c 2c 56 62 20 b8 57 56  3a 57 6d 3d 57 56 3a 3d  |l,Vb .WV:Wm=WV:=|
00000770  57 6d 0d ff                                       |Wm..|
00000774