Home » Archimedes archive » Acorn User » AU 1994-12.adf » !StarInfo_StarInfo » Kemp/!DrawSpace/!RunImage

Kemp/!DrawSpace/!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 » Acorn User » AU 1994-12.adf » !StarInfo_StarInfo
Filename: Kemp/!DrawSpace/!RunImage
Read OK:
File size: 366B bytes
Load address: 0000
Exec address: 0000
File contents
    1REM >!RunImage (DrawSpace)
    2REM by KCE Software (Andrew Kemp)
    3REM LEN March, May 1994
    4
    7ONERRORPROCUV
    8PROCUW:ONERRORPROCUX
   10WHILE NOTUY%:PROCUZ(FNUa(1)):ENDWHILE:PROCUY:END
   16DEFPROCUZ(UZ%):CASEUZ% OF
   18WHEN2:PROCUb(Ua%!0,TRUE,Ua%!28)
   19WHEN3:PROCUc(Ua%!0)
   20WHEN6:PROCUd(Ua%!0,Ua%!4,Ua%!8,Ua%!12,Ua%!16)
   21WHEN7:PROCUe(Ua%!0,Ua%!4,Ua%!8,Ua%!12)
   22WHEN8:PROCUf(Ua%!0,Ua%!4,Ua%!8,Ua%!12,Ua%!16,Ua%!20,Ua%!24)
   23WHEN9:PROCUg(Ua%)
   24WHEN17,18:PROCUh(Ua%!0,Ua%!4,Ua%!8,Ua%!12,Ua%!16,Ua%!20)
   25ENDCASE:ENDPROC
   28DEFFNUi(Uj%):LOCALUk%:SYS&6,161,Uj% TO,,Uk%:=Uk%
   33DEFPROCd(Ul$):VDU4:PRINTUl$:VDU5:ENDPROC
   39DEFPROCUe(Um%,Un%,Uo%,Up%):IFUq% THENSYS&42401:Uq%=FALSE
   41SYS&400CF,,Ur%:IFUr%!12<>Us% ANDUr%!12<>Ut% THEN
   43Ua%!0=56:Ua%!12=0:Ua%!16=1:Ua%!20=Ur%!12:Ua%!24=Ur%!16:Ua%!28=Ur%!0:Ua%!32=Ur%!4:Ua%!36=0:Ua%!40=&aff:$(Ua%+44)=FNUu(FNUv(Ut%,1))+CHR$(0):SYS&400E7,18,Ua%,Ua%!20,Ua%!24
   54ENDIF:ENDPROC
   57DEFPROCUw(Ux%):IFUx%=-1 THEN
   59PROCUy(Uz%,17,TRUE):PROCVU(Uz%,16,1,1):VV%=TRUE
   62ELSE:PROCUy(Uz%,17,FALSE):PROCVU(Uz%,16,7,Ux%):VV%=FALSE
   66ENDIF:VW%=ABS(Ux%):ENDPROC
   70DEFPROCVX(VY%,VZ$,Va%):VY%!0=0:VY%!4=Va%+8:VY%?8=1:$(VY%+9)=VZ$+STRING$(Va%-LEN(VZ$),CHR$(0)):ENDPROC
   77DEFPROCVb(VY%,Vc$,Vd%):$(VY%+0)="Draw":VY%!4=201:VY%!8=0:$(VY%+12)="DrawSpace   ":VY%!24=0:VY%!28=0:VY%!32=LEN(Vc$)*Vd%*640:VY%!36=Vd%*640:ENDPROC
   87DEFPROCVe(VY%,Vc$,Vd%,Vf%,Va%):VY%!0=12:VY%!4=Vf%-40-24-8-Va%+24:VY%!8=0:VY%!12=0:VY%!16=LEN(Vc$)*Vd%*640:VY%!20=Vd%*640:ENDPROC
   96DEFPROCVg(VY%,Vc$,Vd%,Vh%,Vi%):VY%!0=1<<16:VY%!4=0<<16:VY%!8=0<<16:VY%!12=1<<16:VY%!16=0:VY%!20=0:VY%!24=%01:VY%!28=FNVj(Vh%):VY%!32=FNVj(Vi%):VY%!36=1:VY%!40=Vd%*640:VY%!44=Vd%*640:VY%!48=0:VY%!52=0:$(VY%+56)=Vc$+STRING$(4-(LEN(Vc$) MOD4),CHR$(0)):ENDPROC
  114DEFPROCVk(Vl$):LOCALVm%,UX%:Vn%=FNVf(Vl$):IFVn%<>-1 THEN
  118Vo%=FNVp(Vq%,Vn%):IFVo%=-1 THEN
  120PROCVr(Vs%,"loadmem","","","","")
  121ELSE:SYS&20008,16,Vl$,Vo%,0 TOVm%;UX%:IF(UX% AND1) THEN
  124PROCVt(Vm%)
  125ELSE:PROCVu(Ut%,1,FNVv(Vs%,"pname","","","","")):SYS&400CF,,Ur%:PROCVw(Ur%!0-64,Ur%!4+32,Ut%):Vx%=1:PROCVy
  131ENDIF
  132ENDIF
  133ENDIF:ENDPROC
  136DEFPROCVz(RETURNVY%,RETURNVf%):LOCALWU%,WV%,WW%,WX%:Vf%=Vn%:VY%=FNVp(Vq%,Vf%):IFVY%=-1 THEN
  141PROCVr(Vs%,"processmem","","","","")
  142ELSE:PROCWY(Vo%,VY%,10):WU%=10*4:WV%=WU%:REPEAT:PROCWZ(Vo%+WU%,VY%+WV%,WU%,WV%,WW%):IFWW%>0 THEN
  148WX%=VY%:Vf%+=WW%:VY%=FNWa(Vq%,WW%,VY%)
  151ENDIF:UNTILWU%>=Vn% ORVY%=-1:IFVY%=-1 THEN
  154PROCVr(Vs%,"processmem","","","",""):PROCWb(Vq%,WX%)
  156ENDIF
  157ENDIF:ENDPROC
  160DEFPROCWZ(Wc%,Wd%,RETURNWU%,RETURNWV%,RETURNWW%):LOCALWe%,Wf%:WW%=0:Wf%=Wc%!0:IFWf%<>1 OR(Wf%=1 ANDWc%!(24+8)=0) THEN
  165PROCWY(Wc%,Wd%,(Wc%!4)/4):WU%+=Wc%!4:WV%+=Wc%!4
  167ENDIF:IFWf%=12 THENWd%!48=(Wd%!48 OR%01)
  169IFWf%=1 ANDWc%!(24+8)<>0 THEN
  170PROCWY(Wc%,Wd%,24/4):Wd%!0=12:Wd%!4=Wc%!4+28:Wd%!24=1<<16:Wd%!28=0<<16:Wd%!32=0<<16:Wd%!36=1<<16:Wd%!40=0:Wd%!44=0:Wd%!48=%01:PROCWY(Wc%+24,Wd%+52,(Wc%!4-24)/4):WU%+=Wc%!4:WV%+=Wc%!4+28:WW%=28
  179ENDIF:ENDPROC
  182DEFPROCWY(Wc%,Wd%,Wg%):LOCALWh%:FORWh%=0 TOWg%-1:Wd%!(Wh%*4)=Wc%!(Wh%*4):NEXTWh%:ENDPROC
  189DEFPROCWi(Vc$,VZ$,Vd%,Vh%,Vi%,RETURNVY%,RETURNVf%):LOCALVm%,Wj%:Vf%=40+24+56+LEN(Vc$):Vf%+=4-(Vf% MOD4)+8:Va%=LEN(VZ$)+1:Va%+=4-(Va% MOD4):Vf%+=Va%:VY%=FNVp(Vq%,Vf%):IFVY%=-1 THEN
  198PROCVr(Vs%,"filemem","","","","")
  199ELSE:PROCVb(VY%,Vc$,Vd%):PROCVX(VY%+40,VZ$,Va%):PROCVe(VY%+40+8+Va%,Vc$,Vd%,Vf%,Va%):PROCVg(VY%+40+8+Va%+24,Vc$,Vd%,Vh%,Vi%)
  204ENDIF:ENDPROC
  207DEFPROCWk(Vl$,VY%,Vf%):LOCALVm%,Wj%:SYS&20008,10,Vl$,&aff,,VY%,VY%+Vf% TOVm%;Wj%:IF(Wj% AND1) THENPROCVt(Vm%)
  211PROCWb(Vq%,VY%):ENDPROC
  214DEFPROCUY:PROCWl(Vs%):PROCWm:ENDPROC
  219DEFPROCUX:LOCALUX$:SYS&400D0,,-1:Ur%!0=ERR:$(Ur%+4)=REPORT$:$(Ur%+4)=REPORT$+" (Internal error code "+STR$(ERL)+") Quit?"+CHR$(0):SYS&400DF,Ur%,3,Wn$ TO,Wo%:Wp%+=1:IFUY% THENEND
  227IFWo%=1 ORWp%>2 THENUY%=TRUE:PROCUY:END
  228ENDPROC
  230DEFPROCVt(Vm%):SYS&400D0,,-1:SYS&400DF,Vm%,1,Wn$:ENDPROC
  235DEFPROCUV:VDU7:VDU4:PRINTREPORT$;" ";STR$(ERL):VDU5:END:ENDPROC
  241DEFFNUu(Wq$):WHILEINSTR(Wq$,":")>0:Wq$=MID$(Wq$,INSTR(Wq$,":")+1):ENDWHILE:WHILEINSTR(Wq$,".")>0:Wq$=MID$(Wq$,INSTR(Wq$,".")+1):ENDWHILE:=Wq$
  250DEFPROCWr(Vl$):LOCALUX%,Vm%:SYS&20008,6,Vl$ TOVm%;Wj%:IF(Wj% AND1) THENPROCVt(Vm%)
  254ENDPROC
  256DEFPROCWs(Vf%):Vn%=Vf%:Vo%=FNVp(Vq%,Vn%):IFVo%<>-1 THEN
  260PROCWt(Vo%,Vn%)
  261ELSE:Wu%=TRUE:PROCWv("<Wimp$Scrap>")
  264ENDIF:ENDPROC
  267DEFPROCWw:LOCALWX%:IF(Wx% ANDUa%!24<Vn%) OR(Ua%!24<100 AND NOTWx%) THEN
  270Wy%=FALSE:IFWx% THENVn%=Ua%!24ELSEVn%-=(100-Ua%!24)
  272PROCVu(Ut%,1,FNVv(Vs%,"pname","","","","")):SYS&400CF,,Ur%:PROCVw(Ur%!0-64,Ur%!4+32,Ut%):Vx%=1
  276ELSE:WX%=Vo%:Vo%=FNWa(Vq%,100,Vo%):IFVo%=-1 THEN
  280PROCWb(Vq%,WX%):Wy%=FALSE:PROCVr(Vs%,"loadmem","","","","")
  283ELSE:PROCWt(Vo%+Vn%,100):Vn%+=100
  286ENDIF
  287ENDIF:Wx%=FALSE:ENDPROC
  291DEFPROCWz(Vl$,XU%):LOCALVY%,Vf%:CASEVx% OF
  294WHEN0:PROCWi(FNUv(Us%,14),VZ$,VAL(FNUv(Us%,11)),Vh%,Vi%,VY%,Vf%):IFVY%<>-1 THENPROCWk(Vl$,VY%,Vf%)
  296WHEN1:PROCVz(VY%,Vf%):IFVY%<>-1 THENPROCWk(Vl$,VY%,Vf%)
  298ENDCASE:PROCXV:ENDPROC
  302DEFPROCXW:CASEVx% OF
  304WHEN0:PROCWi(FNUv(Us%,14),VZ$,VAL(FNUv(Us%,11)),Vh%,Vi%,XX%,XY%)
  305WHEN1:PROCVz(XX%,XY%)
  306ENDCASE:XZ%=XX%:IFVY%<>-1 THEN
  309SYS&406C0:Xa%=TRUE:PROCXb
  312ENDIF:ENDPROC
  315DEFPROCXc:PROCXb:ENDPROC
  319DEFPROCXd(Vl$):IFFNXe(Vl$) THENPROCWz(Vl$,TRUE)ELSEPROCVr(Vs%,"nodot","","","","")
  321ENDPROC
  323DEFPROCXf:Ua%!12=Ua%!8:Ua%!16=3:SYS&400E7,18,Ua%,Ua%!4:ENDPROC
  329DEFPROCVy:Ua%!12=Ua%!8:Ua%!16=4:SYS&400E7,17,Ua%,Ua%!4:ENDPROC
  335DEFPROCWv(Xg$):Ua%!0=44+LEN(Xg$):Ua%!0+=4-(Ua%!0 MOD4):Ua%!12=Ua%!8:Ua%!16=2:Ua%!36=-1:$(Ua%+44)=Xg$+CHR$(0):SYS&400E7,17,Ua%,Ua%!4:ENDPROC
  345DEFPROCWt(Vo%,Vn%):Ua%!0=28:Ua%!12=Ua%!8:Ua%!16=6:Ua%!20=Vo%:Ua%!24=Vn%:SYS&400E7,18,Ua%,Ua%!4:ENDPROC
  354DEFPROCXb:LOCALXh%,Xi%,Xj%:Xi%=Ua%!4:Xj%=Ua%!24:IFXj%>XY% THENXj%=XY%:Xh%=TRUE
  359SYS&400F1,Xk%,XX%,Xi%,Ua%!20,Xj%:Ua%!0=28:Ua%!12=Ua%!8:Ua%!16=7:Ua%!24=Xj%:XX%+=Xj%:XY%-=Xj%:IFXh% THEN
  367SYS&400E7,17,Ua%,Xi%:Xa%=FALSE:PROCWb(Vq%,XZ%):PROCXV:SYS&406C1
  372ELSE:SYS&400E7,18,Ua%,Xi%
  374ENDIF:ENDPROC
  377DEFFNVf(Vl$):LOCALVf%,UX%,Vm%:SYS&20008,17,Vl$ TOVm%,,,,Vf%;UX%:IF(UX% AND1) THEN
  381PROCVt(Vm%):Vf%=-1
  383ENDIF:=Vf%
  386DEFFNXe(Vl$):=(INSTR(Vl$,".")>0)
  389DEFFNXl:LOCALXm%,Xn%,Xo%,Xp%:Xm%=%01010000000000000000000:SYS&40091,,0,Xm%,,0,,1 TO,,,Xn%,,Xo%:Xp%=FNVp(Vq%,Xn%):Xq%=FNVp(Vq%,Xo%):SYS&40091,,Xp%,Xm%,Xn%,Xq%,Xo%,VZ$:=Xp%
  398DEFPROCXr:SYS&40091,,Ur%,0,-1:VZ$=FNXs(Ur%):Xp%=FNXl:ENDPROC
  404DEFPROCXt:LOCALXu%:PROCWb(Vq%,Xp%):PROCWb(Vq%,Xq%):Xp%=FNXl:ENDPROC
  411DEFFNXs(Xv%):LOCALUl$:WHILEXv%?0>31:Ul$+=CHR$(?Xv%):Xv%+=1:ENDWHILE:=Ul$
  419DEFFNXw(Xx%,Xy%):LOCALXz%,YU%:Xy%=((Xy%+(8*1024)-1)DIV(8*1024))*8*1024:SYS&600EC,-1,-1 TOYV%:IFYW%+Xy%>=YV% THEN
  424SYS&600EC,YW%+Xy%,-1 TOYU%;Xz%:Xz%=((Xz% AND1)=1):IFYU%<YW%+Xy% THENXz%=TRUE
  427ENDIF:IF NOTXz% THEN
  429SYS&1D,5,Xx%,,Xy%:YW%+=Xy%
  431ENDIF:=Xz%
  434DEFFNWa(Xx%,Xy%,Xv%):LOCALYX%,Xz%,YY%:REPEAT:SYS&2001D,4,Xx%,Xv%,Xy% TO,,YY%;YX%:YX%=((YX% AND1)=0):IF NOTYX% THENXz%=FNXw(Xx%,Xy%)
  440UNTILYX% ORXz%:IFXz% THEN
  442YY%=-1
  443ENDIF:=YY%
  446DEFPROCWb(Xx%,Xv%):LOCALXy%,YZ%:SYS&1D,3,Xx%,Xv%:REPEAT:SYS&2001D,5,Xx%,,-100 TO;Ya%:Ya%=((Ya% AND1)=1):IFYa%=0 THENYZ%+=100
  453UNTILYa%:IFYZ%>0 THEN
  455YW%-=YZ%:SYS&600EC,YW%,-1
  457ENDIF:ENDPROC
  460DEFFNVp(Xx%,Xy%):LOCALXz%,Yb%,Yc%,Xv%:Xy%=8+((Xy%+7)DIV8)*8:REPEAT:SYS&1D,1,Xx% TO,,Yb%:IFYb%>Xy% THEN
  466SYS&1D,2,Xx%,,Xy% TO,,Xv%:Yc%=TRUE
  468ELSE:Xz%=FNXw(Xx%,Xy%)
  470ENDIF:UNTILYc% ORXz%:IFXz% THENXv%=-1
  473=Xv%
  475DEFFNYd(Ye%):LOCALYf%:Yf%=HIMEM:SYS&400EC,-1,-1 TOYW%:SYS&400EC,YW%+Ye%,-1:SYS&1D,0,Yf%,,Ye%:YW%+=Ye%:=Yf%
  484DEFPROCYg(Yg$,Yh$,Yi$,Yj$,Yk$):Yg$=FNVv(Vs%,Yg$,Yh$,Yi$,Yj$,Yk$):Ua%!0=24+(LEN(Yg$) AND&FFFFFC):Ua%!12=Ua%!8:Ua%!16=&503:$(Ua%+20)=Yg$+CHR$(0):SYS&400E7,17,Ua%,Ua%!4:ENDPROC
  493DEFPROCYl(Ym%,Yn%):LOCALYo$:CASEYm% OF
  496WHENUt%:IFYn%>=0 THEN
  498PROCYg("saveh"+STR$(Yn%),"","","","")
  499ELSE:PROCYg("saveh","","","","")
  501ENDIF
  502WHENUz%:IFYn%>=0 ANDYn%<=15 THEN
  504PROCYg("colourhx",STR$(Yn%),"","","")
  505ELSE:IFYp%=0 THENYo$="fore"ELSEYo$="back"
  507Yo$=FNVv(Vs%,Yo$,"","","",""):IFYn%>=0 THEN
  509PROCYg("colourh"+STR$(Yn%),Yo$,"","","")
  510ELSE:PROCYg("colourh",Yo$,"","","")
  512ENDIF
  513ENDIF
  514WHENUs%:IFYn%>=5 THEN
  516PROCYg("optionsh"+STR$(Yn%),"","","","")
  517ELSE:PROCYg("optionsh","","","","")
  519ENDIF
  520WHENYq%:PROCYg("infoh","","","","")
  521OTHERWISE:IFUa%!36<>-1 THENPROCYg("fontmh","","","","")
  522ENDCASE:ENDPROC
  525DEFPROCVu(Ym%,Yn%,Yr$):Ur%!0=Ym%:Ur%!4=Yn%:SYS&400CE,,Ur%:$Ur%!28=Yr$:Ur%!8=0:Ur%!12=0:SYS&400CD,,Ur%:ENDPROC
  535DEFPROCVU(Ym%,Yn%,Ys%,Yt%):LOCALYu%:Ur%!0=Ym%:Ur%!4=Yn%:SYS&400CE,,Ur%:Yu%=Ur%!(8+16):Yu%=Yu% AND&FFFFFF:Yu%=Yu% ORYs%<<24 ORYt%<<28:PROCYv(Ym%,Yn%,Yu%,&FFFFFFFF):ENDPROC
  545DEFPROCYw(Ym%,Yn%,Yx%,Yy%,Yz$):LOCALZU%,ZV%,Uo%,Up%:Ur%!0=Ym%:SYS&400CB,,Ur%:ZU%=Ur%!4-Ur%!20:ZV%=Ur%!16-Ur%!24:Ur%!4=Yn%:SYS&400CE,,Ur%:Ur%!0=0:Ur%!4=5:Ur%!8+=ZU%:Ur%!12+=ZV%:Ur%!16+=ZU%:Ur%!20+=ZV%:IFYz$<>"" AND(FNUi(28) AND1<<1)>0 THEN
  557SYS&42400,&C5,1,Yz$,Ur%+8:Uq%=TRUE
  559ELSE:PROCZW(Uo%,Up%):Ur%!24=Ur%!8-Yx%:Ur%!28=Ur%!12-Yy%:Ur%!32=Uo%+(Ur%!16-Yx%)-2:Ur%!36=Up%+(Ur%!20-Yy%):SYS&400D0,,Ur%
  566ENDIF:ENDPROC
  569DEFPROCZX(Ym%,Yn%):SYS&400D2,Ym%,Yn%,,,-1,LEN(FNUv(Ym%,Yn%)):ENDPROC
  573DEFFNZY(Ym%,Yn%):Ur%!0=Ym%:Ur%!4=Yn%:SYS&400CE,,Ur%:=(Ur%!24 AND1<<21)>0
  579DEFPROCUy(Ym%,Yn%,ZZ%):IFFNZY(Ym%,Yn%)<>ZZ% THENPROCYv(Ym%,Yn%,ABS(ZZ%=TRUE)<<21,1<<21)
  581ENDPROC
  583DEFFNUv(Ym%,Yn%):Ur%!0=Ym%:Ur%!4=Yn%:SYS&400CE,,Ur%:=FNXs(Ur%!28)
  589DEFPROCYv(Ym%,Yn%,Za%,Zb%):Ur%!0=Ym%:Ur%!4=Yn%:Ur%!8=Za%:Ur%!12=Zb%:SYS&400CD,,Ur%:ENDPROC
  597DEFPROCUW:PROCZc:PROCZd:PROCZe:PROCZf:Vq%=FNYd(24):Vs%=FNZg(Zh$+".Messages"):PROCZi:PROCZj(Vs%):PROCXr:PROCVu(Us%,10,VZ$):PROCZk(Us%):PROCZX(Us%,14):PROCVu(Yq%,9,Zl$):Zm$=FNUv(Us%,11):Zn$=FNVv(Vs%,"colourwtf","","","",""):Zo$=FNVv(Vs%,"colourwtb","","","",""):Vh%=7:Vi%=0:ENDPROC
  617DEFPROCZe:DIMUa% &100,Ur% Zp%,Zq% 256:ENDPROC
  621DEFPROCZd:UY%=FALSE:Uq%=FALSE:Xa%=FALSE:Wu%=FALSE:Wy%=FALSE:Wx%=FALSE:ENDPROC
  630DEFPROCZc:Zl$="1.08c (29-May-94)":Zh$="<DrawSpace$Dir>":Wn$="DrawSpace":Zp%=&1000:Wp%=0:ENDPROC
  638DEFPROCUf(Ym%,Yn%,Zr%,Zs%,Zt%,Zu%,Zv%):CASEYm% OF
  640WHENUs%:PROCZw(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%)
  641WHENUt%:PROCZx(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%)
  642OTHERWISE:SYS&400DC,Zv%
  643ENDCASE:ENDPROC
  646DEFPROCZw(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%):CASEZv% OF
  648WHEN13:PROCUy(Us%,15,TRUE):IFFNUv(Us%,11)="" THEN
  650PROCVr(Vs%,"nosize","","","","")
  651ELSE:IFFNUv(Us%,14)="" THEN
  653PROCVr(Vs%,"notext","","","","")
  654ELSE:PROCVu(Ut%,1,FNVv(Vs%,"savew1","","","","")):Ur%!0=Us%:SYS&400CC,,Ur%:PROCVw(Ur%!(4+0)+128,Ur%!(4+12)-128,Ut%):Vx%=0
  660ENDIF
  661ENDIF:PROCUy(Us%,15,FALSE)
  663OTHERWISE:SYS&400DC,Zv%
  664ENDCASE:ENDPROC
  667DEFPROCZx(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%):CASEZv% OF
  669WHEN13:PROCUy(Ut%,3,TRUE):PROCXd(FNUv(Ut%,1)):PROCUy(Ut%,3,FALSE)
  672OTHERWISE:SYS&400DC,Zv%
  673ENDCASE:ENDPROC
  676DEFPROCXV:SYS&400D4,,-1:ENDPROC
  680DEFPROCUg(Xv%):LOCALYx%,Yy%,Zy%:SYS&400CF,,Ur%:Yx%=Ur%!0:Yy%=Ur%!4:Zy%=Ur%!8:SYS&400A0,0,Xp%,Xv%,Ur%,Zp%:VZ$=MID$(FNXs(Ur%),3):IFINSTR(VZ$,"\")>0 THEN
  687VZ$=LEFT$(VZ$,INSTR(VZ$,"\")-1)
  688ENDIF:PROCXt:IFZy%=1 THENPROCVw(Yx%-64,Yy%,Xp%)
  691PROCVu(Us%,10,VZ$):ENDPROC
  694DEFPROCVw(x%,y%,Zz%):SYS&400D4,,Zz%,x%,y%:ENDPROC
  698DEFFNaU(aV%,aW%):LOCALaX%:SYS&35,aV%,aW% TO,,aX%:=aX%
  703DEFPROCZW(RETURNUo%,RETURNUp%):Uo%=(FNaU(-1,11)+1)<<FNaU(-1,4):Up%=(FNaU(-1,12)+1)<<FNaU(-1,5):ENDPROC
  708DEFPROCUd(Yx%,Yy%,Zy%,Ym%,Yn%):CASEYm% OF
  710WHENUz%:PROCaY(Yx%,Yy%,Zy%,Yn%)
  711WHENUs%:PROCaZ(Yx%,Yy%,Zy%,Yn%)
  712WHENUt%:PROCaa(Yx%,Yy%,Zy%,Yn%)
  713ENDCASE:ENDPROC
  716DEFPROCaY(Yx%,Yy%,Zy%,Yn%):IFZy%<>2 THEN
  718IFYn%>=0 ANDYn%<=15 THEN
  719VW%=Yn%:IF NOTVV% THENPROCVU(Uz%,16,7,VW%)
  721ELSE:CASEYn% OF
  723WHEN17:VV%=FNZY(Uz%,17):IFVV% THENPROCVU(Uz%,16,1,1)ELSEPROCVU(Uz%,16,7,VW%)
  725WHEN18:IFYp%=0 THENVW%=Vh%ELSEVW%=Vi%
  726IFVW%=-1 THENPROCVU(Uz%,16,1,1)ELSEPROCVU(Uz%,16,7,VW%)
  727VV%=(VW%=-1):PROCUy(Uz%,17,VV%):IFZy%=4 THENPROCXV
  730WHEN19:IFVV% THENVW%=-1
  731IFYp%=0 THEN
  732Vh%=VW%:IFVh%=-1 THEN
  734PROCVU(Us%,8,7,1):PROCVu(Us%,8,"N")
  736ELSE:PROCVU(Us%,8,7,Vh%):PROCVu(Us%,8,"")
  739ENDIF
  740ELSE:Vi%=VW%:IFVi%=-1 THEN
  743PROCVU(Us%,9,7,1):PROCVu(Us%,9,"N")
  745ELSE:PROCVU(Us%,9,7,Vi%):PROCVu(Us%,9,"")
  748ENDIF
  749ENDIF:IFZy%=4 THENPROCXV
  751ENDCASE
  752ENDIF
  753ENDIF:ENDPROC
  756DEFPROCaZ(Yx%,Yy%,Zy%,Yn%):LOCALab%,ac%,ad%,ae%,Vd$,af%:IFZy%<>2 THEN
  759CASEYn% OF
  760WHEN5:PROCXt:PROCag(Us%,ad%,ae%):Ur%!0=Us%:Ur%!4=5:SYS&400CE,,Ur%:ab%=Ur%!(8+8)+ad%:ac%=Ur%!(8+12)+ae%:PROCVw(ab%,ac%,Xp%)
  766WHEN6,7:Vd$=FNUv(Us%,11):SYS&400D3,,Ur%:IFUr%!0=Us% ANDUr%!4=11 THENaf%=TRUE
  769IFVd$="" THEN
  770Vd$=Zm$
  771ELSE:Vd$=STR$(VAL(Vd$)+((Yn%=6)-(Yn%=7))*SGN(Zy%-2))
  773ENDIF:IFVAL(Vd$)<1 THENVd$="1"
  775PROCVu(Us%,11,Vd$):IFaf% THENPROCZX(Us%,11)
  777WHEN12:PROCah(Uz%,Zn$):PROCUw(Vh%):PROCVw(Yx%-128,Yy%+48,Uz%):Yp%=0
  781WHEN13:PROCah(Uz%,Zo$):PROCUw(Vi%):PROCVw(Yx%-128,Yy%+48,Uz%):Yp%=1
  785WHEN15:IFFNUv(Us%,11)="" THEN
  786PROCVr(Vs%,"nosize","","","","")
  787ELSE:IFFNUv(Us%,14)="" THEN
  789PROCVr(Vs%,"notext","","","","")
  790ELSE:PROCVu(Ut%,1,FNVv(Vs%,"savew1","","","","")):PROCVw(Yx%-64,Yy%+32,Ut%):Vx%=0
  794ENDIF
  795ENDIF
  796WHEN16:PROCVw(Yx%-256,Yy%+96,Yq%)
  797ENDCASE
  798ENDIF:ENDPROC
  801DEFPROCaa(Yx%,Yy%,Zy%,Yn%):CASEZy% OF
  803WHEN1,4:CASEYn% OF
  805WHEN2:CASEVx% OF
  806WHEN0:PROCVu(Ut%,1,FNVv(Vs%,"savew1","","","",""))
  807WHEN1:PROCVu(Ut%,1,FNVv(Vs%,"pname","","","",""))
  808ENDCASE:PROCZX(Ut%,1):IFZy%=4 THENPROCXV
  811WHEN3:PROCXd(FNUv(Ut%,1))
  812ENDCASE
  813WHEN64:IFYn%=0 THENPROCYw(Ut%,0,Yx%,Yy%,"file_aff")
  814ENDCASE:ENDPROC
  817DEFFNai(Vs%,aj$):LOCALak%:SYS&41502,Vs%,aj$,0,,0,0,0,0 TO,,ak%:=ak%
  822DEFPROCWl(Vs%):SYS&41504,Vs%:IFVs%!8<>0 THENPROCWb(Vq%,Vs%!8)
  825SYS&1E,7,,Vs%:ENDPROC
  828DEFPROCVr(Vs%,aj$,Yh$,Yi$,Yj$,Yk$):LOCALVm%:Ur%!0=17:$(Ur%+4)=aj$+CHR$(0):SYS&61506,Ur%,Vs%,0,,Yh$,Yi$,Yj$,Yk$ TOVm%:PROCVt(Vm%):ENDPROC
  835DEFFNal(Vs%,aj$,Yh$,Yi$,Yj$,Yk$,am%):LOCALVm%,an%:SYS&400D0,,-1:Ur%!0=17:$(Ur%+4)=aj$+CHR$(0):SYS&61506,Ur%,Vs%,0,,Yh$,Yi$,Yj$,Yk$ TOVm%:SYS&400DF,Vm%,am%+16,"Message from "+Wn$ TO,an%:=(an%=1)
  843DEFFNZg(Wq$):LOCALVs%,Xv%,Yu%,Xy%:SYS&41500,,Wq$ TOYu%,,Xy%:IFYu% AND1 THENXv%=0ELSEXv%=FNVp(Vq%,Xy%)
  847IFXv%=-1 THEN
  848PROCVr(Vs%,"memfull","","","",""):END
  850ELSE:SYS&1E,6,,,16 TO,,Vs%:SYS&41501,Vs%,Wq$,Xv%
  853ENDIF:=Vs%
  856DEFFNVv(Vs%,aj$,Yh$,Yi$,Yj$,Yk$):SYS&41502,Vs%,aj$,Zq%,256,Yh$,Yi$,Yj$,Yk$ TO,,ak%:=FNXs(Zq%)
  860DEFFNUa(ao%):SYS&400C7,ao%,Ua% TOap%:=ap%
  864DEFPROCZf:$(Ur%+0)="TASK":SYS&400C0,310,Ur%!0,Wn$,-1 TO,Xk%:ENDPROC
  869DEFPROCWm:$(Ur%+0)="TASK":SYS&400DD,Xk%,Ur%!0:ENDPROC
  874DEFPROCUh(Xy%,aq%,ar%,as%,at%,au%):LOCALVl$:CASEat% OF
  877WHEN0:UY%=TRUE
  878WHEN1:IFUa%!40=&aff THEN
  879PROCWs(Ua%!36):Wx%=TRUE
  881ELSE:PROCVr(Vs%,"notdraw","","","","")
  883ENDIF
  884WHEN2:PROCWz(FNXs(Ua%+44),Ua%!36<>-1):PROCXf
  886WHEN3:Vl$=FNXs(Ua%+44):IFUa%!40<>&aff THEN
  888PROCVr(Vs%,"notdraw","","","","")
  889ELSE:PROCVk(Vl$)
  891ENDIF:IFWu% THENPROCWr(Vl$):Wu%=FALSE
  893WHEN6:IF NOTWy% ANDUa%!4=Xk% THEN
  894Wu%=TRUE:PROCWv("<Wimp$Scrap>")
  896ELSE:IFUa%!4=Xk% THEN
  898PROCWb(Vq%,Vo%)
  899ELSE:IFXa% THENPROCXcELSEPROCXW
  901ENDIF
  902ENDIF
  903WHEN7:IFWx% THENWy%=TRUE
  904IFWy% THENPROCWw
  905WHEN&502:PROCYl(Ua%!32,Ua%!36)
  906WHEN&400C2:IFaq%<>Xk% ANDFNXs(Ua%+28)=Wn$ THENUY%=TRUE
  907ENDCASE:ENDPROC
  910DEFFNVj(av%):LOCALan%:IFav%<>-1 THEN
  913SYS&400E5,,Ur%:an%=(Ur%!(av%*4)) AND&FFFFFF00
  915ELSE:an%=&FFFFFFFF
  917ENDIF:=an%
  920DEFPROCUc(Ym%):Ur%!0=Ym%:SYS&400C6,,Ur%:IFYm%=Us% THENUY%=TRUE
  924ENDPROC
  926DEFFNwc(RETURNYm%,aw$,ax%):LOCALay%,az%,Xn%,Xo%:SYS&400DB,,-1,,,-1,aw$,0 TO,Xn%,Xo%:DIMay% Xn%,az% Xo%:SYS&400DB,,ay%,az%,az%+Xo%,-1,aw$,0:IFax% THENay%!64=bU%ELSEay%!64=1
  932SYS&400C1,,ay% TOYm%:=0
  935DEFPROCZj(Vs%):LOCALbV%:FORbV%=17 TO19:PROCVu(Uz%,bV%,FNVv(Vs%,"colourw"+STR$(bV%),"","","","")):NEXTbV%:FORbV%=0 TO3:PROCVu(Ut%,bV%,FNVv(Vs%,"savew"+STR$(bV%),"","","","")):NEXTbV%:PROCah(Ut%,FNVv(Vs%,"savewt","","","","")):FORbV%=1 TO4:PROCVu(Us%,bV%,FNVv(Vs%,"optionsw"+STR$(bV%),"","","",""))
  946NEXTbV%:FORbV%=10 TO16:PROCVu(Us%,bV%,FNVv(Vs%,"optionsw"+STR$(bV%),"","","","")):NEXTbV%:PROCah(Us%,FNVv(Vs%,"optionswt","","","","")):FORbV%=0 TO8:PROCVu(Yq%,bV%,FNVv(Vs%,"infow"+STR$(bV%),"","","","")):NEXTbV%:PROCah(Yq%,FNVv(Vs%,"infowt","","","","")):ENDPROC
  957DEFPROCZi:LOCALid$,bW%,bX$,sp%,bY%,bU%:SYS&400D9,,Zh$+".Templates":READbY%:IFbY% THENbU%=FNbZ(Zh$+".Sprites")
  962READbX$,id$,sp%:WHILEid$<>"�":IFsp% AND NOTbY% THENERROR17,"You must set the global sprites flag if you want sprites in windows!"
  965bW%=EVAL("FNwc("+bX$+",id$,sp%)"):READbX$,id$,sp%:ENDWHILE:SYS&400DA,,Zh$+".Templates":ENDPROC
  971DEFFNUb(Ym%):Ur%!0=Ym%:SYS&400CB,,Ur%:=(((Ur%!32) AND(1<<16))>0)
  976DEFPROCUb(Ym%,ba%,bb%):Ua%!0=Ym%:IF NOTba% THEN
  979SYS&400CB,,Ua%
  980ENDIF:Ua%!28=bb%:SYS&400C5,,Ua%:ENDPROC
  985DEFPROCZk(Ym%):LOCALbc%,bd%,Uo%,Up%:PROCZW(Uo%,Up%):Ur%!0=Ym%:SYS&400CB,0,Ur%:Ur%!28=-1:bc%=Ur%!12-Ur%!4:bd%=Ur%!16-Ur%!8:Ur%!4=(Uo%-bc%)/2:Ur%!8=(Up%-bd%)/2:Ur%!12=(Uo%+bc%)/2:Ur%!16=(Up%+bd%)/2:SYS&400C5,,Ur%:ENDPROC
 1000DEFPROCag(Ym%,RETURNx%,RETURNy%):Ur%!0=Ym%:SYS&400CC,,Ur%:x%=Ur%!(0+4)-Ur%!(16+4):y%=Ur%!(12+4)-Ur%!(20+4):ENDPROC
 1007DEFPROCah(Ym%,be$):Ur%!0=Ym%:SYS&400CC,,Ur%:$(Ur%!76)=be$:IFFNUb(Ym%) THENPROCbf(FALSE,Ur%!4,Ur%!16,Ur%!12,Ur%!16+44)
 1012ENDPROC
 1018DATA 0
 1019DATA Us%,"Options",0
 1020DATA Ut%,"Save",0
 1021DATA Uz%,"Colour",0
 1022DATA Yq%,"Info",0
 1024DATA "�","�",0
� >!RunImage (DrawSpace)
#� by KCE Software (Andrew Kemp)
� � March, May 1994

	��UV

�UW:��UX

ȕ �UY%:�UZ(�Ua(1)):�:�UY:�
��UZ(UZ%):ȎUZ% �
�2:�Ub(Ua%!0,�,Ua%!28)
�3:�Uc(Ua%!0)
+�6:�Ud(Ua%!0,Ua%!4,Ua%!8,Ua%!12,Ua%!16)
$�7:�Ue(Ua%!0,Ua%!4,Ua%!8,Ua%!12)
9�8:�Uf(Ua%!0,Ua%!4,Ua%!8,Ua%!12,Ua%!16,Ua%!20,Ua%!24)
�9:�Ug(Ua%)
6�17,18:�Uh(Ua%!0,Ua%!4,Ua%!8,Ua%!12,Ua%!16,Ua%!20)
�:�
+ݤUi(Uj%):�Uk%:ș&6,161,Uj% �,,Uk%:=Uk%
!��d(Ul$):�4:�Ul$:�5:�
'.��Ue(Um%,Un%,Uo%,Up%):�Uq% �ș&42401:Uq%=�
)-ș&400CF,,Ur%:�Ur%!12<>Us% �Ur%!12<>Ut% �
+�Ua%!0=56:Ua%!12=0:Ua%!16=1:Ua%!20=Ur%!12:Ua%!24=Ur%!16:Ua%!28=Ur%!0:Ua%!32=Ur%!4:Ua%!36=0:Ua%!40=&aff:$(Ua%+44)=�Uu(�Uv(Ut%,1))+�(0):ș&400E7,18,Ua%,Ua%!20,Ua%!24
6�:�
9��Uw(Ux%):�Ux%=-1 �
;'�Uy(Uz%,17,�):�VU(Uz%,16,1,1):VV%=�
>+�:�Uy(Uz%,17,�):�VU(Uz%,16,7,Ux%):VV%=�
B�:VW%=�(Ux%):�
FR��VX(VY%,VZ$,Va%):VY%!0=0:VY%!4=Va%+8:VY%?8=1:$(VY%+9)=VZ$+�Va%-�(VZ$),�(0)):�
M���Vb(VY%,Vc$,Vd%):$(VY%+0)="Draw":VY%!4=201:VY%!8=0:$(VY%+12)="DrawSpace   ":VY%!24=0:VY%!28=0:VY%!32=�(Vc$)*Vd%*640:VY%!36=Vd%*640:�
Ww��Ve(VY%,Vc$,Vd%,Vf%,Va%):VY%!0=12:VY%!4=Vf%-40-24-8-Va%+24:VY%!8=0:VY%!12=0:VY%!16=�(Vc$)*Vd%*640:VY%!20=Vd%*640:�
`���Vg(VY%,Vc$,Vd%,Vh%,Vi%):VY%!0=1<<16:VY%!4=0<<16:VY%!8=0<<16:VY%!12=1<<16:VY%!16=0:VY%!20=0:VY%!24=%01:VY%!28=�Vj(Vh%):VY%!32=�Vj(Vi%):VY%!36=1:VY%!40=Vd%*640:VY%!44=Vd%*640:VY%!48=0:VY%!52=0:$(VY%+56)=Vc$+�4-(�(Vc$) �4),�(0)):�
r.��Vk(Vl$):�Vm%,UX%:Vn%=�Vf(Vl$):�Vn%<>-1 �
vVo%=�Vp(Vq%,Vn%):�Vo%=-1 �
x"�Vr(Vs%,"loadmem","","","","")
y0�:ș&20008,16,Vl$,Vo%,0 �Vm%;UX%:�(UX% �1) �
|�Vt(Vm%)
}`�:�Vu(Ut%,1,�Vv(Vs%,"pname","","","","")):ș&400CF,,Ur%:�Vw(Ur%!0-64,Ur%!4+32,Ut%):Vx%=1:�Vy
��
��
��:�
�G��Vz(�VY%,�Vf%):�WU%,WV%,WW%,WX%:Vf%=Vn%:VY%=�Vp(Vq%,Vf%):�VY%=-1 �
�%�Vr(Vs%,"processmem","","","","")
�R�:�WY(Vo%,VY%,10):WU%=10*4:WV%=WU%:�:�WZ(Vo%+WU%,VY%+WV%,WU%,WV%,WW%):�WW%>0 �
�)WX%=VY%:Vf%+=WW%:VY%=�Wa(Vq%,WW%,VY%)
�!�:�WU%>=Vn% �VY%=-1:�VY%=-1 �
�2�Vr(Vs%,"processmem","","","",""):�Wb(Vq%,WX%)
��
��:�
�Z��WZ(Wc%,Wd%,�WU%,�WV%,�WW%):�We%,Wf%:WW%=0:Wf%=Wc%!0:�Wf%<>1 �(Wf%=1 �Wc%!(24+8)=0) �
�0�WY(Wc%,Wd%,(Wc%!4)/4):WU%+=Wc%!4:WV%+=Wc%!4
�#�:�Wf%=12 �Wd%!48=(Wd%!48 �%01)
��Wf%=1 �Wc%!(24+8)<>0 �
���WY(Wc%,Wd%,24/4):Wd%!0=12:Wd%!4=Wc%!4+28:Wd%!24=1<<16:Wd%!28=0<<16:Wd%!32=0<<16:Wd%!36=1<<16:Wd%!40=0:Wd%!44=0:Wd%!48=%01:�WY(Wc%+24,Wd%+52,(Wc%!4-24)/4):WU%+=Wc%!4:WV%+=Wc%!4+28:WW%=28
��:�
�G��WY(Wc%,Wd%,Wg%):�Wh%:�Wh%=0 �Wg%-1:Wd%!(Wh%*4)=Wc%!(Wh%*4):�Wh%:�
����Wi(Vc$,VZ$,Vd%,Vh%,Vi%,�VY%,�Vf%):�Vm%,Wj%:Vf%=40+24+56+�(Vc$):Vf%+=4-(Vf% �4)+8:Va%=�(VZ$)+1:Va%+=4-(Va% �4):Vf%+=Va%:VY%=�Vp(Vq%,Vf%):�VY%=-1 �
�"�Vr(Vs%,"filemem","","","","")
�q�:�Vb(VY%,Vc$,Vd%):�VX(VY%+40,VZ$,Va%):�Ve(VY%+40+8+Va%,Vc$,Vd%,Vf%,Va%):�Vg(VY%+40+8+Va%+24,Vc$,Vd%,Vh%,Vi%)
��:�
�]��Wk(Vl$,VY%,Vf%):�Vm%,Wj%:ș&20008,10,Vl$,&aff,,VY%,VY%+Vf% �Vm%;Wj%:�(Wj% �1) ��Vt(Vm%)
��Wb(Vq%,VY%):�
���UY:�Wl(Vs%):�Wm:�
ۏ��UX:�UX$:ș&400D0,,-1:Ur%!0=�:$(Ur%+4)=�$:$(Ur%+4)=�$+" (Internal error code "+�(�)+") Quit?"+�(0):ș&400DF,Ur%,3,Wn$ �,Wo%:Wp%+=1:�UY% ��
��Wo%=1 �Wp%>2 �UY%=�:�UY:�
��
�/��Vt(Vm%):ș&400D0,,-1:ș&400DF,Vm%,1,Wn$:�
�"��UV:�7:�4:�$;" ";�(�):�5:�:�
�^ݤUu(Wq$):ȕ�Wq$,":")>0:Wq$=�Wq$,�Wq$,":")+1):�:ȕ�Wq$,".")>0:Wq$=�Wq$,�Wq$,".")+1):�:=Wq$
�B��Wr(Vl$):�UX%,Vm%:ș&20008,6,Vl$ �Vm%;Wj%:�(Wj% �1) ��Vt(Vm%)
��
1��Ws(Vf%):Vn%=Vf%:Vo%=�Vp(Vq%,Vn%):�Vo%<>-1 �
�Wt(Vo%,Vn%)
�:Wu%=�:�Wv("<Wimp$Scrap>")
�:�
7��Ww:�WX%:�(Wx% �Ua%!24<Vn%) �(Ua%!24<100 � �Wx%) �
,Wy%=�:�Wx% �Vn%=Ua%!24�Vn%-=(100-Ua%!24)
Z�Vu(Ut%,1,�Vv(Vs%,"pname","","","","")):ș&400CF,,Ur%:�Vw(Ur%!0-64,Ur%!4+32,Ut%):Vx%=1
,�:WX%=Vo%:Vo%=�Wa(Vq%,100,Vo%):�Vo%=-1 �
5�Wb(Vq%,WX%):Wy%=�:�Vr(Vs%,"loadmem","","","","")
�:�Wt(Vo%+Vn%,100):Vn%+=100
�

�:Wx%=�:�
#"��Wz(Vl$,XU%):�VY%,Vf%:ȎVx% �
&U�0:�Wi(�Uv(Us%,14),VZ$,�(�Uv(Us%,11)),Vh%,Vi%,VY%,Vf%):�VY%<>-1 ��Wk(Vl$,VY%,Vf%)
(.�1:�Vz(VY%,Vf%):�VY%<>-1 ��Wk(Vl$,VY%,Vf%)
*�:�XV:�
.��XW:ȎVx% �
0:�0:�Wi(�Uv(Us%,14),VZ$,�(�Uv(Us%,11)),Vh%,Vi%,XX%,XY%)
1�1:�Vz(XX%,XY%)
2�:XZ%=XX%:�VY%<>-1 �
5ș&406C0:Xa%=�:�Xb
8�:�
;��Xc:�Xb:�
?@��Xd(Vl$):�Xe(Vl$) ��Wz(Vl$,�)��Vr(Vs%,"nodot","","","","")
A�
C6��Xf:Ua%!12=Ua%!8:Ua%!16=3:ș&400E7,18,Ua%,Ua%!4:�
I6��Vy:Ua%!12=Ua%!8:Ua%!16=4:ș&400E7,17,Ua%,Ua%!4:�
O|��Wv(Xg$):Ua%!0=44+�(Xg$):Ua%!0+=4-(Ua%!0 �4):Ua%!12=Ua%!8:Ua%!16=2:Ua%!36=-1:$(Ua%+44)=Xg$+�(0):ș&400E7,17,Ua%,Ua%!4:�
Y^��Wt(Vo%,Vn%):Ua%!0=28:Ua%!12=Ua%!8:Ua%!16=6:Ua%!20=Vo%:Ua%!24=Vn%:ș&400E7,18,Ua%,Ua%!4:�
bB��Xb:�Xh%,Xi%,Xj%:Xi%=Ua%!4:Xj%=Ua%!24:�Xj%>XY% �Xj%=XY%:Xh%=�
gfș&400F1,Xk%,XX%,Xi%,Ua%!20,Xj%:Ua%!0=28:Ua%!12=Ua%!8:Ua%!16=7:Ua%!24=Xj%:XX%+=Xj%:XY%-=Xj%:�Xh% �
o7ș&400E7,17,Ua%,Xi%:Xa%=�:�Wb(Vq%,XZ%):�XV:ș&406C1
t�:ș&400E7,18,Ua%,Xi%
v�:�
yFݤVf(Vl$):�Vf%,UX%,Vm%:ș&20008,17,Vl$ �Vm%,,,,Vf%;UX%:�(UX% �1) �
}�Vt(Vm%):Vf%=-1

�:=Vf%
�ݤXe(Vl$):=(�Vl$,".")>0)
��ݤXl:�Xm%,Xn%,Xo%,Xp%:Xm%=%01010000000000000000000:ș&40091,,0,Xm%,,0,,1 �,,,Xn%,,Xo%:Xp%=�Vp(Vq%,Xn%):Xq%=�Vp(Vq%,Xo%):ș&40091,,Xp%,Xm%,Xn%,Xq%,Xo%,VZ$:=Xp%
�2��Xr:ș&40091,,Ur%,0,-1:VZ$=�Xs(Ur%):Xp%=�Xl:�
�1��Xt:�Xu%:�Wb(Vq%,Xp%):�Wb(Vq%,Xq%):Xp%=�Xl:�
�8ݤXs(Xv%):�Ul$:ȕXv%?0>31:Ul$+=�(?Xv%):Xv%+=1:�:=Ul$
�eݤXw(Xx%,Xy%):�Xz%,YU%:Xy%=((Xy%+(8*1024)-1)�(8*1024))*8*1024:ș&600EC,-1,-1 �YV%:�YW%+Xy%>=YV% �
�Eș&600EC,YW%+Xy%,-1 �YU%;Xz%:Xz%=((Xz% �1)=1):�YU%<YW%+Xy% �Xz%=�
��:� �Xz% �
�ș&1D,5,Xx%,,Xy%:YW%+=Xy%
�
�:=Xz%
�pݤWa(Xx%,Xy%,Xv%):�YX%,Xz%,YY%:�:ș&2001D,4,Xx%,Xv%,Xy% �,,YY%;YX%:YX%=((YX% �1)=0):� �YX% �Xz%=�Xw(Xx%,Xy%)
��YX% �Xz%:�Xz% �
�
YY%=-1
�
�:=YY%
�i��Wb(Xx%,Xv%):�Xy%,YZ%:ș&1D,3,Xx%,Xv%:�:ș&2001D,5,Xx%,,-100 �;Ya%:Ya%=((Ya% �1)=1):�Ya%=0 �YZ%+=100
��Ya%:�YZ%>0 �
�YW%-=YZ%:ș&600EC,YW%,-1
��:�
�VݤVp(Xx%,Xy%):�Xz%,Yb%,Yc%,Xv%:Xy%=8+((Xy%+7)�8)*8:�:ș&1D,1,Xx% �,,Yb%:�Yb%>Xy% �
�!ș&1D,2,Xx%,,Xy% �,,Xv%:Yc%=�
��:Xz%=�Xw(Xx%,Xy%)
��:�Yc% �Xz%:�Xz% �Xv%=-1
�=Xv%
�_ݤYd(Ye%):�Yf%:Yf%=�:ș&400EC,-1,-1 �YW%:ș&400EC,YW%+Ye%,-1:ș&1D,0,Yf%,,Ye%:YW%+=Ye%:=Yf%
���Yg(Yg$,Yh$,Yi$,Yj$,Yk$):Yg$=�Vv(Vs%,Yg$,Yh$,Yi$,Yj$,Yk$):Ua%!0=24+(�(Yg$) �&FFFFFC):Ua%!12=Ua%!8:Ua%!16=&503:$(Ua%+20)=Yg$+�(0):ș&400E7,17,Ua%,Ua%!4:�
���Yl(Ym%,Yn%):�Yo$:ȎYm% �
��Ut%:�Yn%>=0 �
�#�Yg("saveh"+�(Yn%),"","","","")
��:�Yg("saveh","","","","")
��
��Uz%:�Yn%>=0 �Yn%<=15 �
�#�Yg("colourhx",�(Yn%),"","","")
�#�:�Yp%=0 �Yo$="fore"�Yo$="back"
�*Yo$=�Vv(Vs%,Yo$,"","","",""):�Yn%>=0 �
�&�Yg("colourh"+�(Yn%),Yo$,"","","")
�!�:�Yg("colourh",Yo$,"","","")
�
�
�Us%:�Yn%>=5 �
&�Yg("optionsh"+�(Yn%),"","","","")
!�:�Yg("optionsh","","","","")
�
!�Yq%:�Yg("infoh","","","","")
	,:�Ua%!36<>-1 ��Yg("fontmh","","","","")

�:�

d��Vu(Ym%,Yn%,Yr$):Ur%!0=Ym%:Ur%!4=Yn%:ș&400CE,,Ur%:$Ur%!28=Yr$:Ur%!8=0:Ur%!12=0:ș&400CD,,Ur%:�
���VU(Ym%,Yn%,Ys%,Yt%):�Yu%:Ur%!0=Ym%:Ur%!4=Yn%:ș&400CE,,Ur%:Yu%=Ur%!(8+16):Yu%=Yu% �&FFFFFF:Yu%=Yu% �Ys%<<24 �Yt%<<28:�Yv(Ym%,Yn%,Yu%,&FFFFFFFF):�
!���Yw(Ym%,Yn%,Yx%,Yy%,Yz$):�ZU%,ZV%,Uo%,Up%:Ur%!0=Ym%:ș&400CB,,Ur%:ZU%=Ur%!4-Ur%!20:ZV%=Ur%!16-Ur%!24:Ur%!4=Yn%:ș&400CE,,Ur%:Ur%!0=0:Ur%!4=5:Ur%!8+=ZU%:Ur%!12+=ZV%:Ur%!16+=ZU%:Ur%!20+=ZV%:�Yz$<>"" �(�Ui(28) �1<<1)>0 �
-"ș&42400,&C5,1,Yz$,Ur%+8:Uq%=�
/u�:�ZW(Uo%,Up%):Ur%!24=Ur%!8-Yx%:Ur%!28=Ur%!12-Yy%:Ur%!32=Uo%+(Ur%!16-Yx%)-2:Ur%!36=Up%+(Ur%!20-Yy%):ș&400D0,,Ur%
6�:�
99��ZX(Ym%,Yn%):ș&400D2,Ym%,Yn%,,,-1,�(�Uv(Ym%,Yn%)):�
=FݤZY(Ym%,Yn%):Ur%!0=Ym%:Ur%!4=Yn%:ș&400CE,,Ur%:=(Ur%!24 �1<<21)>0
CI��Uy(Ym%,Yn%,ZZ%):�ZY(Ym%,Yn%)<>ZZ% ��Yv(Ym%,Yn%,�(ZZ%=�)<<21,1<<21)
E�
G@ݤUv(Ym%,Yn%):Ur%!0=Ym%:Ur%!4=Yn%:ș&400CE,,Ur%:=�Xs(Ur%!28)
MR��Yv(Ym%,Yn%,Za%,Zb%):Ur%!0=Ym%:Ur%!4=Yn%:Ur%!8=Za%:Ur%!12=Zb%:ș&400CD,,Ur%:�
U���UW:�Zc:�Zd:�Ze:�Zf:Vq%=�Yd(24):Vs%=�Zg(Zh$+".Messages"):�Zi:�Zj(Vs%):�Xr:�Vu(Us%,10,VZ$):�Zk(Us%):�ZX(Us%,14):�Vu(Yq%,9,Zl$):Zm$=�Uv(Us%,11):Zn$=�Vv(Vs%,"colourwtf","","","",""):Zo$=�Vv(Vs%,"colourwtb","","","",""):Vh%=7:Vi%=0:�
i$��Ze:�Ua% &100,Ur% Zp%,Zq% 256:�
m.��Zd:UY%=�:Uq%=�:Xa%=�:Wu%=�:Wy%=�:Wx%=�:�
vX��Zc:Zl$="1.08c (29-May-94)":Zh$="<DrawSpace$Dir>":Wn$="DrawSpace":Zp%=&1000:Wp%=0:�
~-��Uf(Ym%,Yn%,Zr%,Zs%,Zt%,Zu%,Zv%):ȎYm% �
�%�Us%:�Zw(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%)
�%�Ut%:�Zx(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%)
�:ș&400DC,Zv%
��:�
�)��Zw(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%):ȎZv% �
�'�13:�Uy(Us%,15,�):�Uv(Us%,11)="" �
�!�Vr(Vs%,"nosize","","","","")
��:�Uv(Us%,14)="" �
�!�Vr(Vs%,"notext","","","","")
�r�:�Vu(Ut%,1,�Vv(Vs%,"savew1","","","","")):Ur%!0=Us%:ș&400CC,,Ur%:�Vw(Ur%!(4+0)+128,Ur%!(4+12)-128,Ut%):Vx%=0
��
��:�Uy(Us%,15,�)
�:ș&400DC,Zv%
��:�
�)��Zx(Yn%,Zr%,Zs%,Zt%,Zu%,Zv%):ȎZv% �
�1�13:�Uy(Ut%,3,�):�Xd(�Uv(Ut%,1)):�Uy(Ut%,3,�)
�:ș&400DC,Zv%
��:�
���XV:ș&400D4,,-1:�
����Ug(Xv%):�Yx%,Yy%,Zy%:ș&400CF,,Ur%:Yx%=Ur%!0:Yy%=Ur%!4:Zy%=Ur%!8:ș&400A0,0,Xp%,Xv%,Ur%,Zp%:VZ$=��Xs(Ur%),3):�VZ$,"\")>0 �
�VZ$=�VZ$,�VZ$,"\")-1)
�%�:�Xt:�Zy%=1 ��Vw(Yx%-64,Yy%,Xp%)
��Vu(Us%,10,VZ$):�
�)��Vw(x%,y%,Zz%):ș&400D4,,Zz%,x%,y%:�
�0ݤaU(aV%,aW%):�aX%:ș&35,aV%,aW% �,,aX%:=aX%
�Q��ZW(�Uo%,�Up%):Uo%=(�aU(-1,11)+1)<<�aU(-1,4):Up%=(�aU(-1,12)+1)<<�aU(-1,5):�
�%��Ud(Yx%,Yy%,Zy%,Ym%,Yn%):ȎYm% �
��Uz%:�aY(Yx%,Yy%,Zy%,Yn%)
��Us%:�aZ(Yx%,Yy%,Zy%,Yn%)
��Ut%:�aa(Yx%,Yy%,Zy%,Yn%)
��:�
�#��aY(Yx%,Yy%,Zy%,Yn%):�Zy%<>2 �
��Yn%>=0 �Yn%<=15 �
�%VW%=Yn%:� �VV% ��VU(Uz%,16,7,VW%)
�
�:ȎYn% �
�?�17:VV%=�ZY(Uz%,17):�VV% ��VU(Uz%,16,1,1)��VU(Uz%,16,7,VW%)
��18:�Yp%=0 �VW%=Vh%�VW%=Vi%
�.�VW%=-1 ��VU(Uz%,16,1,1)��VU(Uz%,16,7,VW%)
�,VV%=(VW%=-1):�Uy(Uz%,17,VV%):�Zy%=4 ��XV
��19:�VV% �VW%=-1
��Yp%=0 �
�Vh%=VW%:�Vh%=-1 �
�!�VU(Us%,8,7,1):�Vu(Us%,8,"N")
�$�:�VU(Us%,8,7,Vh%):�Vu(Us%,8,"")
��
��:Vi%=VW%:�Vi%=-1 �
�!�VU(Us%,9,7,1):�Vu(Us%,9,"N")
�$�:�VU(Us%,9,7,Vi%):�Vu(Us%,9,"")
��
��:�Zy%=4 ��XV
��
��
��:�
�<��aZ(Yx%,Yy%,Zy%,Yn%):�ab%,ac%,ad%,ae%,Vd$,af%:�Zy%<>2 �
�ȎYn% �
�q�5:�Xt:�ag(Us%,ad%,ae%):Ur%!0=Us%:Ur%!4=5:ș&400CE,,Ur%:ab%=Ur%!(8+8)+ad%:ac%=Ur%!(8+12)+ae%:�Vw(ab%,ac%,Xp%)
�B�6,7:Vd$=�Uv(Us%,11):ș&400D3,,Ur%:�Ur%!0=Us% �Ur%!4=11 �af%=�

�Vd$="" �
Vd$=Zm$
.�:Vd$=�(�(Vd$)+((Yn%=6)-(Yn%=7))*�(Zy%-2))
�:�(Vd$)<1 �Vd$="1"
%�Vu(Us%,11,Vd$):�af% ��ZX(Us%,11)
	;�12:�ah(Uz%,Zn$):�Uw(Vh%):�Vw(Yx%-128,Yy%+48,Uz%):Yp%=0

;�13:�ah(Uz%,Zo$):�Uw(Vi%):�Vw(Yx%-128,Yy%+48,Uz%):Yp%=1
�15:�Uv(Us%,11)="" �
!�Vr(Vs%,"nosize","","","","")
�:�Uv(Us%,14)="" �
!�Vr(Vs%,"notext","","","","")
K�:�Vu(Ut%,1,�Vv(Vs%,"savew1","","","","")):�Vw(Yx%-64,Yy%+32,Ut%):Vx%=0
�
�
�16:�Vw(Yx%-256,Yy%+96,Yq%)
�
�:�
!!��aa(Yx%,Yy%,Zy%,Yn%):ȎZy% �
#�1,4:ȎYn% �
%�2:ȎVx% �
&/�0:�Vu(Ut%,1,�Vv(Vs%,"savew1","","","",""))
'.�1:�Vu(Ut%,1,�Vv(Vs%,"pname","","","",""))
(�:�ZX(Ut%,1):�Zy%=4 ��XV
+�3:�Xd(�Uv(Ut%,1))
,�
--�64:�Yn%=0 ��Yw(Ut%,0,Yx%,Yy%,"file_aff")
.�:�
1>ݤai(Vs%,aj$):�ak%:ș&41502,Vs%,aj$,0,,0,0,0,0 �,,ak%:=ak%
64��Wl(Vs%):ș&41504,Vs%:�Vs%!8<>0 ��Wb(Vq%,Vs%!8)
9ș&1E,7,,Vs%:�
<u��Vr(Vs%,aj$,Yh$,Yi$,Yj$,Yk$):�Vm%:Ur%!0=17:$(Ur%+4)=aj$+�(0):ș&61506,Ur%,Vs%,0,,Yh$,Yi$,Yj$,Yk$ �Vm%:�Vt(Vm%):�
C�ݤal(Vs%,aj$,Yh$,Yi$,Yj$,Yk$,am%):�Vm%,an%:ș&400D0,,-1:Ur%!0=17:$(Ur%+4)=aj$+�(0):ș&61506,Ur%,Vs%,0,,Yh$,Yi$,Yj$,Yk$ �Vm%:ș&400DF,Vm%,am%+16,"Message from "+Wn$ �,an%:=(an%=1)
KVݤZg(Wq$):�Vs%,Xv%,Yu%,Xy%:ș&41500,,Wq$ �Yu%,,Xy%:�Yu% �1 �Xv%=0�Xv%=�Vp(Vq%,Xy%)
O
�Xv%=-1 �
P$�Vr(Vs%,"memfull","","","",""):�
R.�:ș&1E,6,,,16 �,,Vs%:ș&41501,Vs%,Wq$,Xv%
U
�:=Vs%
X[ݤVv(Vs%,aj$,Yh$,Yi$,Yj$,Yk$):ș&41502,Vs%,aj$,Zq%,256,Yh$,Yi$,Yj$,Yk$ �,,ak%:=�Xs(Zq%)
\(ݤUa(ao%):ș&400C7,ao%,Ua% �ap%:=ap%
`:��Zf:$(Ur%+0)="TASK":ș&400C0,310,Ur%!0,Wn$,-1 �,Xk%:�
e-��Wm:$(Ur%+0)="TASK":ș&400DD,Xk%,Ur%!0:�
j.��Uh(Xy%,aq%,ar%,as%,at%,au%):�Vl$:Ȏat% �
m�0:UY%=�
n�1:�Ua%!40=&aff �
o�Ws(Ua%!36):Wx%=�
q$�:�Vr(Vs%,"notdraw","","","","")
s�
t&�2:�Wz(�Xs(Ua%+44),Ua%!36<>-1):�Xf
v&�3:Vl$=�Xs(Ua%+44):�Ua%!40<>&aff �
x"�Vr(Vs%,"notdraw","","","","")
y�:�Vk(Vl$)
{�:�Wu% ��Wr(Vl$):Wu%=�
}�6:� �Wy% �Ua%!4=Xk% �
~Wu%=�:�Wv("<Wimp$Scrap>")
��:�Ua%!4=Xk% �
��Wb(Vq%,Vo%)
��:�Xa% ��Xc��XW
��
��
��7:�Wx% �Wy%=�
�
�Wy% ��Ww
��&502:�Yl(Ua%!32,Ua%!36)
�-�&400C2:�aq%<>Xk% ��Xs(Ua%+28)=Wn$ �UY%=�
��:�
�ݤVj(av%):�an%:�av%<>-1 �
�.ș&400E5,,Ur%:an%=(Ur%!(av%*4)) �&FFFFFF00
��:an%=&FFFFFFFF
�
�:=an%
�5��Uc(Ym%):Ur%!0=Ym%:ș&400C6,,Ur%:�Ym%=Us% �UY%=�
��
��ݤwc(�Ym%,aw$,ax%):�ay%,az%,Xn%,Xo%:ș&400DB,,-1,,,-1,aw$,0 �,Xn%,Xo%:�ay% Xn%,az% Xo%:ș&400DB,,ay%,az%,az%+Xo%,-1,aw$,0:�ax% �ay%!64=bU%�ay%!64=1
�ș&400C1,,ay% �Ym%:=0
����Zj(Vs%):�bV%:�bV%=17 �19:�Vu(Uz%,bV%,�Vv(Vs%,"colourw"+�(bV%),"","","","")):�bV%:�bV%=0 �3:�Vu(Ut%,bV%,�Vv(Vs%,"savew"+�(bV%),"","","","")):�bV%:�ah(Ut%,�Vv(Vs%,"savewt","","","","")):�bV%=1 �4:�Vu(Us%,bV%,�Vv(Vs%,"optionsw"+�(bV%),"","","",""))
���bV%:�bV%=10 �16:�Vu(Us%,bV%,�Vv(Vs%,"optionsw"+�(bV%),"","","","")):�bV%:�ah(Us%,�Vv(Vs%,"optionswt","","","","")):�bV%=0 �8:�Vu(Yq%,bV%,�Vv(Vs%,"infow"+�(bV%),"","","","")):�bV%:�ah(Yq%,�Vv(Vs%,"infowt","","","","")):�
�_��Zi:�id$,bW%,bX$,sp%,bY%,bU%:ș&400D9,,Zh$+".Templates":�bY%:�bY% �bU%=�bZ(Zh$+".Sprites")
�s�bX$,id$,sp%:ȕid$<>"�":�sp% � �bY% ��17,"You must set the global sprites flag if you want sprites in windows!"
�NbW%=�("FNwc("+bX$+",id$,sp%)"):�bX$,id$,sp%:�:ș&400DA,,Zh$+".Templates":�
�>ݤUb(Ym%):Ur%!0=Ym%:ș&400CB,,Ur%:=(((Ur%!32) �(1<<16))>0)
�(��Ub(Ym%,ba%,bb%):Ua%!0=Ym%:� �ba% �
�ș&400CB,,Ua%
� �:Ua%!28=bb%:ș&400C5,,Ua%:�
����Zk(Ym%):�bc%,bd%,Uo%,Up%:�ZW(Uo%,Up%):Ur%!0=Ym%:ș&400CB,0,Ur%:Ur%!28=-1:bc%=Ur%!12-Ur%!4:bd%=Ur%!16-Ur%!8:Ur%!4=(Uo%-bc%)/2:Ur%!8=(Up%-bd%)/2:Ur%!12=(Uo%+bc%)/2:Ur%!16=(Up%+bd%)/2:ș&400C5,,Ur%:�
�`��ag(Ym%,�x%,�y%):Ur%!0=Ym%:ș&400CC,,Ur%:x%=Ur%!(0+4)-Ur%!(16+4):y%=Ur%!(12+4)-Ur%!(20+4):�
�g��ah(Ym%,be$):Ur%!0=Ym%:ș&400CC,,Ur%:$(Ur%!76)=be$:�Ub(Ym%) ��bf(�,Ur%!4,Ur%!16,Ur%!12,Ur%!16+44)
��
�� 0
�� Us%,"Options",0
�� Ut%,"Save",0
�� Uz%,"Colour",0
�� Yq%,"Info",0
� "�","�",0
�
00000000  0d 00 01 1c f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  20 28 44 72 61 77 53 70  61 63 65 29 0d 00 02 23  | (DrawSpace)...#|
00000020  f4 20 62 79 20 4b 43 45  20 53 6f 66 74 77 61 72  |. by KCE Softwar|
00000030  65 20 28 41 6e 64 72 65  77 20 4b 65 6d 70 29 0d  |e (Andrew Kemp).|
00000040  00 03 17 f4 20 a9 20 4d  61 72 63 68 2c 20 4d 61  |.... . March, Ma|
00000050  79 20 31 39 39 34 0d 00  04 04 0d 00 07 09 ee 85  |y 1994..........|
00000060  f2 55 56 0d 00 08 0d f2  55 57 3a ee 85 f2 55 58  |.UV.....UW:...UX|
00000070  0d 00 0a 1f c8 95 20 ac  55 59 25 3a f2 55 5a 28  |...... .UY%:.UZ(|
00000080  a4 55 61 28 31 29 29 3a  ce 3a f2 55 59 3a e0 0d  |.Ua(1)):.:.UY:..|
00000090  00 10 15 dd f2 55 5a 28  55 5a 25 29 3a c8 8e 55  |.....UZ(UZ%):..U|
000000a0  5a 25 20 ca 0d 00 12 1a  c9 32 3a f2 55 62 28 55  |Z% ......2:.Ub(U|
000000b0  61 25 21 30 2c b9 2c 55  61 25 21 32 38 29 0d 00  |a%!0,.,Ua%!28)..|
000000c0  13 11 c9 33 3a f2 55 63  28 55 61 25 21 30 29 0d  |...3:.Uc(Ua%!0).|
000000d0  00 14 2b c9 36 3a f2 55  64 28 55 61 25 21 30 2c  |..+.6:.Ud(Ua%!0,|
000000e0  55 61 25 21 34 2c 55 61  25 21 38 2c 55 61 25 21  |Ua%!4,Ua%!8,Ua%!|
000000f0  31 32 2c 55 61 25 21 31  36 29 0d 00 15 24 c9 37  |12,Ua%!16)...$.7|
00000100  3a f2 55 65 28 55 61 25  21 30 2c 55 61 25 21 34  |:.Ue(Ua%!0,Ua%!4|
00000110  2c 55 61 25 21 38 2c 55  61 25 21 31 32 29 0d 00  |,Ua%!8,Ua%!12)..|
00000120  16 39 c9 38 3a f2 55 66  28 55 61 25 21 30 2c 55  |.9.8:.Uf(Ua%!0,U|
00000130  61 25 21 34 2c 55 61 25  21 38 2c 55 61 25 21 31  |a%!4,Ua%!8,Ua%!1|
00000140  32 2c 55 61 25 21 31 36  2c 55 61 25 21 32 30 2c  |2,Ua%!16,Ua%!20,|
00000150  55 61 25 21 32 34 29 0d  00 17 0f c9 39 3a f2 55  |Ua%!24).....9:.U|
00000160  67 28 55 61 25 29 0d 00  18 36 c9 31 37 2c 31 38  |g(Ua%)...6.17,18|
00000170  3a f2 55 68 28 55 61 25  21 30 2c 55 61 25 21 34  |:.Uh(Ua%!0,Ua%!4|
00000180  2c 55 61 25 21 38 2c 55  61 25 21 31 32 2c 55 61  |,Ua%!8,Ua%!12,Ua|
00000190  25 21 31 36 2c 55 61 25  21 32 30 29 0d 00 19 07  |%!16,Ua%!20)....|
000001a0  cb 3a e1 0d 00 1c 2b dd  a4 55 69 28 55 6a 25 29  |.:....+..Ui(Uj%)|
000001b0  3a ea 55 6b 25 3a c8 99  26 36 2c 31 36 31 2c 55  |:.Uk%:..&6,161,U|
000001c0  6a 25 20 b8 2c 2c 55 6b  25 3a 3d 55 6b 25 0d 00  |j% .,,Uk%:=Uk%..|
000001d0  21 19 dd f2 64 28 55 6c  24 29 3a ef 34 3a f1 55  |!...d(Ul$):.4:.U|
000001e0  6c 24 3a ef 35 3a e1 0d  00 27 2e dd f2 55 65 28  |l$:.5:...'...Ue(|
000001f0  55 6d 25 2c 55 6e 25 2c  55 6f 25 2c 55 70 25 29  |Um%,Un%,Uo%,Up%)|
00000200  3a e7 55 71 25 20 8c c8  99 26 34 32 34 30 31 3a  |:.Uq% ...&42401:|
00000210  55 71 25 3d a3 0d 00 29  2d c8 99 26 34 30 30 43  |Uq%=...)-..&400C|
00000220  46 2c 2c 55 72 25 3a e7  55 72 25 21 31 32 3c 3e  |F,,Ur%:.Ur%!12<>|
00000230  55 73 25 20 80 55 72 25  21 31 32 3c 3e 55 74 25  |Us% .Ur%!12<>Ut%|
00000240  20 8c 0d 00 2b a6 55 61  25 21 30 3d 35 36 3a 55  | ...+.Ua%!0=56:U|
00000250  61 25 21 31 32 3d 30 3a  55 61 25 21 31 36 3d 31  |a%!12=0:Ua%!16=1|
00000260  3a 55 61 25 21 32 30 3d  55 72 25 21 31 32 3a 55  |:Ua%!20=Ur%!12:U|
00000270  61 25 21 32 34 3d 55 72  25 21 31 36 3a 55 61 25  |a%!24=Ur%!16:Ua%|
00000280  21 32 38 3d 55 72 25 21  30 3a 55 61 25 21 33 32  |!28=Ur%!0:Ua%!32|
00000290  3d 55 72 25 21 34 3a 55  61 25 21 33 36 3d 30 3a  |=Ur%!4:Ua%!36=0:|
000002a0  55 61 25 21 34 30 3d 26  61 66 66 3a 24 28 55 61  |Ua%!40=&aff:$(Ua|
000002b0  25 2b 34 34 29 3d a4 55  75 28 a4 55 76 28 55 74  |%+44)=.Uu(.Uv(Ut|
000002c0  25 2c 31 29 29 2b bd 28  30 29 3a c8 99 26 34 30  |%,1))+.(0):..&40|
000002d0  30 45 37 2c 31 38 2c 55  61 25 2c 55 61 25 21 32  |0E7,18,Ua%,Ua%!2|
000002e0  30 2c 55 61 25 21 32 34  0d 00 36 07 cd 3a e1 0d  |0,Ua%!24..6..:..|
000002f0  00 39 17 dd f2 55 77 28  55 78 25 29 3a e7 55 78  |.9...Uw(Ux%):.Ux|
00000300  25 3d 2d 31 20 8c 0d 00  3b 27 f2 55 79 28 55 7a  |%=-1 ...;'.Uy(Uz|
00000310  25 2c 31 37 2c b9 29 3a  f2 56 55 28 55 7a 25 2c  |%,17,.):.VU(Uz%,|
00000320  31 36 2c 31 2c 31 29 3a  56 56 25 3d b9 0d 00 3e  |16,1,1):VV%=...>|
00000330  2b cc 3a f2 55 79 28 55  7a 25 2c 31 37 2c a3 29  |+.:.Uy(Uz%,17,.)|
00000340  3a f2 56 55 28 55 7a 25  2c 31 36 2c 37 2c 55 78  |:.VU(Uz%,16,7,Ux|
00000350  25 29 3a 56 56 25 3d a3  0d 00 42 12 cd 3a 56 57  |%):VV%=...B..:VW|
00000360  25 3d 94 28 55 78 25 29  3a e1 0d 00 46 52 dd f2  |%=.(Ux%):...FR..|
00000370  56 58 28 56 59 25 2c 56  5a 24 2c 56 61 25 29 3a  |VX(VY%,VZ$,Va%):|
00000380  56 59 25 21 30 3d 30 3a  56 59 25 21 34 3d 56 61  |VY%!0=0:VY%!4=Va|
00000390  25 2b 38 3a 56 59 25 3f  38 3d 31 3a 24 28 56 59  |%+8:VY%?8=1:$(VY|
000003a0  25 2b 39 29 3d 56 5a 24  2b c4 56 61 25 2d a9 28  |%+9)=VZ$+.Va%-.(|
000003b0  56 5a 24 29 2c bd 28 30  29 29 3a e1 0d 00 4d 89  |VZ$),.(0)):...M.|
000003c0  dd f2 56 62 28 56 59 25  2c 56 63 24 2c 56 64 25  |..Vb(VY%,Vc$,Vd%|
000003d0  29 3a 24 28 56 59 25 2b  30 29 3d 22 44 72 61 77  |):$(VY%+0)="Draw|
000003e0  22 3a 56 59 25 21 34 3d  32 30 31 3a 56 59 25 21  |":VY%!4=201:VY%!|
000003f0  38 3d 30 3a 24 28 56 59  25 2b 31 32 29 3d 22 44  |8=0:$(VY%+12)="D|
00000400  72 61 77 53 70 61 63 65  20 20 20 22 3a 56 59 25  |rawSpace   ":VY%|
00000410  21 32 34 3d 30 3a 56 59  25 21 32 38 3d 30 3a 56  |!24=0:VY%!28=0:V|
00000420  59 25 21 33 32 3d a9 28  56 63 24 29 2a 56 64 25  |Y%!32=.(Vc$)*Vd%|
00000430  2a 36 34 30 3a 56 59 25  21 33 36 3d 56 64 25 2a  |*640:VY%!36=Vd%*|
00000440  36 34 30 3a e1 0d 00 57  77 dd f2 56 65 28 56 59  |640:...Ww..Ve(VY|
00000450  25 2c 56 63 24 2c 56 64  25 2c 56 66 25 2c 56 61  |%,Vc$,Vd%,Vf%,Va|
00000460  25 29 3a 56 59 25 21 30  3d 31 32 3a 56 59 25 21  |%):VY%!0=12:VY%!|
00000470  34 3d 56 66 25 2d 34 30  2d 32 34 2d 38 2d 56 61  |4=Vf%-40-24-8-Va|
00000480  25 2b 32 34 3a 56 59 25  21 38 3d 30 3a 56 59 25  |%+24:VY%!8=0:VY%|
00000490  21 31 32 3d 30 3a 56 59  25 21 31 36 3d a9 28 56  |!12=0:VY%!16=.(V|
000004a0  63 24 29 2a 56 64 25 2a  36 34 30 3a 56 59 25 21  |c$)*Vd%*640:VY%!|
000004b0  32 30 3d 56 64 25 2a 36  34 30 3a e1 0d 00 60 e9  |20=Vd%*640:...`.|
000004c0  dd f2 56 67 28 56 59 25  2c 56 63 24 2c 56 64 25  |..Vg(VY%,Vc$,Vd%|
000004d0  2c 56 68 25 2c 56 69 25  29 3a 56 59 25 21 30 3d  |,Vh%,Vi%):VY%!0=|
000004e0  31 3c 3c 31 36 3a 56 59  25 21 34 3d 30 3c 3c 31  |1<<16:VY%!4=0<<1|
000004f0  36 3a 56 59 25 21 38 3d  30 3c 3c 31 36 3a 56 59  |6:VY%!8=0<<16:VY|
00000500  25 21 31 32 3d 31 3c 3c  31 36 3a 56 59 25 21 31  |%!12=1<<16:VY%!1|
00000510  36 3d 30 3a 56 59 25 21  32 30 3d 30 3a 56 59 25  |6=0:VY%!20=0:VY%|
00000520  21 32 34 3d 25 30 31 3a  56 59 25 21 32 38 3d a4  |!24=%01:VY%!28=.|
00000530  56 6a 28 56 68 25 29 3a  56 59 25 21 33 32 3d a4  |Vj(Vh%):VY%!32=.|
00000540  56 6a 28 56 69 25 29 3a  56 59 25 21 33 36 3d 31  |Vj(Vi%):VY%!36=1|
00000550  3a 56 59 25 21 34 30 3d  56 64 25 2a 36 34 30 3a  |:VY%!40=Vd%*640:|
00000560  56 59 25 21 34 34 3d 56  64 25 2a 36 34 30 3a 56  |VY%!44=Vd%*640:V|
00000570  59 25 21 34 38 3d 30 3a  56 59 25 21 35 32 3d 30  |Y%!48=0:VY%!52=0|
00000580  3a 24 28 56 59 25 2b 35  36 29 3d 56 63 24 2b c4  |:$(VY%+56)=Vc$+.|
00000590  34 2d 28 a9 28 56 63 24  29 20 83 34 29 2c bd 28  |4-(.(Vc$) .4),.(|
000005a0  30 29 29 3a e1 0d 00 72  2e dd f2 56 6b 28 56 6c  |0)):...r...Vk(Vl|
000005b0  24 29 3a ea 56 6d 25 2c  55 58 25 3a 56 6e 25 3d  |$):.Vm%,UX%:Vn%=|
000005c0  a4 56 66 28 56 6c 24 29  3a e7 56 6e 25 3c 3e 2d  |.Vf(Vl$):.Vn%<>-|
000005d0  31 20 8c 0d 00 76 1e 56  6f 25 3d a4 56 70 28 56  |1 ...v.Vo%=.Vp(V|
000005e0  71 25 2c 56 6e 25 29 3a  e7 56 6f 25 3d 2d 31 20  |q%,Vn%):.Vo%=-1 |
000005f0  8c 0d 00 78 22 f2 56 72  28 56 73 25 2c 22 6c 6f  |...x".Vr(Vs%,"lo|
00000600  61 64 6d 65 6d 22 2c 22  22 2c 22 22 2c 22 22 2c  |admem","","","",|
00000610  22 22 29 0d 00 79 30 cc  3a c8 99 26 32 30 30 30  |"")..y0.:..&2000|
00000620  38 2c 31 36 2c 56 6c 24  2c 56 6f 25 2c 30 20 b8  |8,16,Vl$,Vo%,0 .|
00000630  56 6d 25 3b 55 58 25 3a  e7 28 55 58 25 20 80 31  |Vm%;UX%:.(UX% .1|
00000640  29 20 8c 0d 00 7c 0c f2  56 74 28 56 6d 25 29 0d  |) ...|..Vt(Vm%).|
00000650  00 7d 60 cc 3a f2 56 75  28 55 74 25 2c 31 2c a4  |.}`.:.Vu(Ut%,1,.|
00000660  56 76 28 56 73 25 2c 22  70 6e 61 6d 65 22 2c 22  |Vv(Vs%,"pname","|
00000670  22 2c 22 22 2c 22 22 2c  22 22 29 29 3a c8 99 26  |","","","")):..&|
00000680  34 30 30 43 46 2c 2c 55  72 25 3a f2 56 77 28 55  |400CF,,Ur%:.Vw(U|
00000690  72 25 21 30 2d 36 34 2c  55 72 25 21 34 2b 33 32  |r%!0-64,Ur%!4+32|
000006a0  2c 55 74 25 29 3a 56 78  25 3d 31 3a f2 56 79 0d  |,Ut%):Vx%=1:.Vy.|
000006b0  00 83 05 cd 0d 00 84 05  cd 0d 00 85 07 cd 3a e1  |..............:.|
000006c0  0d 00 88 47 dd f2 56 7a  28 f8 56 59 25 2c f8 56  |...G..Vz(.VY%,.V|
000006d0  66 25 29 3a ea 57 55 25  2c 57 56 25 2c 57 57 25  |f%):.WU%,WV%,WW%|
000006e0  2c 57 58 25 3a 56 66 25  3d 56 6e 25 3a 56 59 25  |,WX%:Vf%=Vn%:VY%|
000006f0  3d a4 56 70 28 56 71 25  2c 56 66 25 29 3a e7 56  |=.Vp(Vq%,Vf%):.V|
00000700  59 25 3d 2d 31 20 8c 0d  00 8d 25 f2 56 72 28 56  |Y%=-1 ....%.Vr(V|
00000710  73 25 2c 22 70 72 6f 63  65 73 73 6d 65 6d 22 2c  |s%,"processmem",|
00000720  22 22 2c 22 22 2c 22 22  2c 22 22 29 0d 00 8e 52  |"","","","")...R|
00000730  cc 3a f2 57 59 28 56 6f  25 2c 56 59 25 2c 31 30  |.:.WY(Vo%,VY%,10|
00000740  29 3a 57 55 25 3d 31 30  2a 34 3a 57 56 25 3d 57  |):WU%=10*4:WV%=W|
00000750  55 25 3a f5 3a f2 57 5a  28 56 6f 25 2b 57 55 25  |U%:.:.WZ(Vo%+WU%|
00000760  2c 56 59 25 2b 57 56 25  2c 57 55 25 2c 57 56 25  |,VY%+WV%,WU%,WV%|
00000770  2c 57 57 25 29 3a e7 57  57 25 3e 30 20 8c 0d 00  |,WW%):.WW%>0 ...|
00000780  94 29 57 58 25 3d 56 59  25 3a 56 66 25 2b 3d 57  |.)WX%=VY%:Vf%+=W|
00000790  57 25 3a 56 59 25 3d a4  57 61 28 56 71 25 2c 57  |W%:VY%=.Wa(Vq%,W|
000007a0  57 25 2c 56 59 25 29 0d  00 97 21 cd 3a fd 57 55  |W%,VY%)...!.:.WU|
000007b0  25 3e 3d 56 6e 25 20 84  56 59 25 3d 2d 31 3a e7  |%>=Vn% .VY%=-1:.|
000007c0  56 59 25 3d 2d 31 20 8c  0d 00 9a 32 f2 56 72 28  |VY%=-1 ....2.Vr(|
000007d0  56 73 25 2c 22 70 72 6f  63 65 73 73 6d 65 6d 22  |Vs%,"processmem"|
000007e0  2c 22 22 2c 22 22 2c 22  22 2c 22 22 29 3a f2 57  |,"","","",""):.W|
000007f0  62 28 56 71 25 2c 57 58  25 29 0d 00 9c 05 cd 0d  |b(Vq%,WX%)......|
00000800  00 9d 07 cd 3a e1 0d 00  a0 5a dd f2 57 5a 28 57  |....:....Z..WZ(W|
00000810  63 25 2c 57 64 25 2c f8  57 55 25 2c f8 57 56 25  |c%,Wd%,.WU%,.WV%|
00000820  2c f8 57 57 25 29 3a ea  57 65 25 2c 57 66 25 3a  |,.WW%):.We%,Wf%:|
00000830  57 57 25 3d 30 3a 57 66  25 3d 57 63 25 21 30 3a  |WW%=0:Wf%=Wc%!0:|
00000840  e7 57 66 25 3c 3e 31 20  84 28 57 66 25 3d 31 20  |.Wf%<>1 .(Wf%=1 |
00000850  80 57 63 25 21 28 32 34  2b 38 29 3d 30 29 20 8c  |.Wc%!(24+8)=0) .|
00000860  0d 00 a5 30 f2 57 59 28  57 63 25 2c 57 64 25 2c  |...0.WY(Wc%,Wd%,|
00000870  28 57 63 25 21 34 29 2f  34 29 3a 57 55 25 2b 3d  |(Wc%!4)/4):WU%+=|
00000880  57 63 25 21 34 3a 57 56  25 2b 3d 57 63 25 21 34  |Wc%!4:WV%+=Wc%!4|
00000890  0d 00 a7 23 cd 3a e7 57  66 25 3d 31 32 20 8c 57  |...#.:.Wf%=12 .W|
000008a0  64 25 21 34 38 3d 28 57  64 25 21 34 38 20 84 25  |d%!48=(Wd%!48 .%|
000008b0  30 31 29 0d 00 a9 1b e7  57 66 25 3d 31 20 80 57  |01).....Wf%=1 .W|
000008c0  63 25 21 28 32 34 2b 38  29 3c 3e 30 20 8c 0d 00  |c%!(24+8)<>0 ...|
000008d0  aa be f2 57 59 28 57 63  25 2c 57 64 25 2c 32 34  |...WY(Wc%,Wd%,24|
000008e0  2f 34 29 3a 57 64 25 21  30 3d 31 32 3a 57 64 25  |/4):Wd%!0=12:Wd%|
000008f0  21 34 3d 57 63 25 21 34  2b 32 38 3a 57 64 25 21  |!4=Wc%!4+28:Wd%!|
00000900  32 34 3d 31 3c 3c 31 36  3a 57 64 25 21 32 38 3d  |24=1<<16:Wd%!28=|
00000910  30 3c 3c 31 36 3a 57 64  25 21 33 32 3d 30 3c 3c  |0<<16:Wd%!32=0<<|
00000920  31 36 3a 57 64 25 21 33  36 3d 31 3c 3c 31 36 3a  |16:Wd%!36=1<<16:|
00000930  57 64 25 21 34 30 3d 30  3a 57 64 25 21 34 34 3d  |Wd%!40=0:Wd%!44=|
00000940  30 3a 57 64 25 21 34 38  3d 25 30 31 3a f2 57 59  |0:Wd%!48=%01:.WY|
00000950  28 57 63 25 2b 32 34 2c  57 64 25 2b 35 32 2c 28  |(Wc%+24,Wd%+52,(|
00000960  57 63 25 21 34 2d 32 34  29 2f 34 29 3a 57 55 25  |Wc%!4-24)/4):WU%|
00000970  2b 3d 57 63 25 21 34 3a  57 56 25 2b 3d 57 63 25  |+=Wc%!4:WV%+=Wc%|
00000980  21 34 2b 32 38 3a 57 57  25 3d 32 38 0d 00 b3 07  |!4+28:WW%=28....|
00000990  cd 3a e1 0d 00 b6 47 dd  f2 57 59 28 57 63 25 2c  |.:....G..WY(Wc%,|
000009a0  57 64 25 2c 57 67 25 29  3a ea 57 68 25 3a e3 57  |Wd%,Wg%):.Wh%:.W|
000009b0  68 25 3d 30 20 b8 57 67  25 2d 31 3a 57 64 25 21  |h%=0 .Wg%-1:Wd%!|
000009c0  28 57 68 25 2a 34 29 3d  57 63 25 21 28 57 68 25  |(Wh%*4)=Wc%!(Wh%|
000009d0  2a 34 29 3a ed 57 68 25  3a e1 0d 00 bd 97 dd f2  |*4):.Wh%:.......|
000009e0  57 69 28 56 63 24 2c 56  5a 24 2c 56 64 25 2c 56  |Wi(Vc$,VZ$,Vd%,V|
000009f0  68 25 2c 56 69 25 2c f8  56 59 25 2c f8 56 66 25  |h%,Vi%,.VY%,.Vf%|
00000a00  29 3a ea 56 6d 25 2c 57  6a 25 3a 56 66 25 3d 34  |):.Vm%,Wj%:Vf%=4|
00000a10  30 2b 32 34 2b 35 36 2b  a9 28 56 63 24 29 3a 56  |0+24+56+.(Vc$):V|
00000a20  66 25 2b 3d 34 2d 28 56  66 25 20 83 34 29 2b 38  |f%+=4-(Vf% .4)+8|
00000a30  3a 56 61 25 3d a9 28 56  5a 24 29 2b 31 3a 56 61  |:Va%=.(VZ$)+1:Va|
00000a40  25 2b 3d 34 2d 28 56 61  25 20 83 34 29 3a 56 66  |%+=4-(Va% .4):Vf|
00000a50  25 2b 3d 56 61 25 3a 56  59 25 3d a4 56 70 28 56  |%+=Va%:VY%=.Vp(V|
00000a60  71 25 2c 56 66 25 29 3a  e7 56 59 25 3d 2d 31 20  |q%,Vf%):.VY%=-1 |
00000a70  8c 0d 00 c6 22 f2 56 72  28 56 73 25 2c 22 66 69  |....".Vr(Vs%,"fi|
00000a80  6c 65 6d 65 6d 22 2c 22  22 2c 22 22 2c 22 22 2c  |lemem","","","",|
00000a90  22 22 29 0d 00 c7 71 cc  3a f2 56 62 28 56 59 25  |"")...q.:.Vb(VY%|
00000aa0  2c 56 63 24 2c 56 64 25  29 3a f2 56 58 28 56 59  |,Vc$,Vd%):.VX(VY|
00000ab0  25 2b 34 30 2c 56 5a 24  2c 56 61 25 29 3a f2 56  |%+40,VZ$,Va%):.V|
00000ac0  65 28 56 59 25 2b 34 30  2b 38 2b 56 61 25 2c 56  |e(VY%+40+8+Va%,V|
00000ad0  63 24 2c 56 64 25 2c 56  66 25 2c 56 61 25 29 3a  |c$,Vd%,Vf%,Va%):|
00000ae0  f2 56 67 28 56 59 25 2b  34 30 2b 38 2b 56 61 25  |.Vg(VY%+40+8+Va%|
00000af0  2b 32 34 2c 56 63 24 2c  56 64 25 2c 56 68 25 2c  |+24,Vc$,Vd%,Vh%,|
00000b00  56 69 25 29 0d 00 cc 07  cd 3a e1 0d 00 cf 5d dd  |Vi%).....:....].|
00000b10  f2 57 6b 28 56 6c 24 2c  56 59 25 2c 56 66 25 29  |.Wk(Vl$,VY%,Vf%)|
00000b20  3a ea 56 6d 25 2c 57 6a  25 3a c8 99 26 32 30 30  |:.Vm%,Wj%:..&200|
00000b30  30 38 2c 31 30 2c 56 6c  24 2c 26 61 66 66 2c 2c  |08,10,Vl$,&aff,,|
00000b40  56 59 25 2c 56 59 25 2b  56 66 25 20 b8 56 6d 25  |VY%,VY%+Vf% .Vm%|
00000b50  3b 57 6a 25 3a e7 28 57  6a 25 20 80 31 29 20 8c  |;Wj%:.(Wj% .1) .|
00000b60  f2 56 74 28 56 6d 25 29  0d 00 d3 12 f2 57 62 28  |.Vt(Vm%).....Wb(|
00000b70  56 71 25 2c 56 59 25 29  3a e1 0d 00 d6 17 dd f2  |Vq%,VY%):.......|
00000b80  55 59 3a f2 57 6c 28 56  73 25 29 3a f2 57 6d 3a  |UY:.Wl(Vs%):.Wm:|
00000b90  e1 0d 00 db 8f dd f2 55  58 3a ea 55 58 24 3a c8  |.......UX:.UX$:.|
00000ba0  99 26 34 30 30 44 30 2c  2c 2d 31 3a 55 72 25 21  |.&400D0,,-1:Ur%!|
00000bb0  30 3d 9f 3a 24 28 55 72  25 2b 34 29 3d f6 24 3a  |0=.:$(Ur%+4)=.$:|
00000bc0  24 28 55 72 25 2b 34 29  3d f6 24 2b 22 20 28 49  |$(Ur%+4)=.$+" (I|
00000bd0  6e 74 65 72 6e 61 6c 20  65 72 72 6f 72 20 63 6f  |nternal error co|
00000be0  64 65 20 22 2b c3 28 9e  29 2b 22 29 20 51 75 69  |de "+.(.)+") Qui|
00000bf0  74 3f 22 2b bd 28 30 29  3a c8 99 26 34 30 30 44  |t?"+.(0):..&400D|
00000c00  46 2c 55 72 25 2c 33 2c  57 6e 24 20 b8 2c 57 6f  |F,Ur%,3,Wn$ .,Wo|
00000c10  25 3a 57 70 25 2b 3d 31  3a e7 55 59 25 20 8c e0  |%:Wp%+=1:.UY% ..|
00000c20  0d 00 e3 1e e7 57 6f 25  3d 31 20 84 57 70 25 3e  |.....Wo%=1 .Wp%>|
00000c30  32 20 8c 55 59 25 3d b9  3a f2 55 59 3a e0 0d 00  |2 .UY%=.:.UY:...|
00000c40  e4 05 e1 0d 00 e6 2f dd  f2 56 74 28 56 6d 25 29  |....../..Vt(Vm%)|
00000c50  3a c8 99 26 34 30 30 44  30 2c 2c 2d 31 3a c8 99  |:..&400D0,,-1:..|
00000c60  26 34 30 30 44 46 2c 56  6d 25 2c 31 2c 57 6e 24  |&400DF,Vm%,1,Wn$|
00000c70  3a e1 0d 00 eb 22 dd f2  55 56 3a ef 37 3a ef 34  |:...."..UV:.7:.4|
00000c80  3a f1 f6 24 3b 22 20 22  3b c3 28 9e 29 3a ef 35  |:..$;" ";.(.):.5|
00000c90  3a e0 3a e1 0d 00 f1 5e  dd a4 55 75 28 57 71 24  |:.:....^..Uu(Wq$|
00000ca0  29 3a c8 95 a7 57 71 24  2c 22 3a 22 29 3e 30 3a  |):...Wq$,":")>0:|
00000cb0  57 71 24 3d c1 57 71 24  2c a7 57 71 24 2c 22 3a  |Wq$=.Wq$,.Wq$,":|
00000cc0  22 29 2b 31 29 3a ce 3a  c8 95 a7 57 71 24 2c 22  |")+1):.:...Wq$,"|
00000cd0  2e 22 29 3e 30 3a 57 71  24 3d c1 57 71 24 2c a7  |.")>0:Wq$=.Wq$,.|
00000ce0  57 71 24 2c 22 2e 22 29  2b 31 29 3a ce 3a 3d 57  |Wq$,".")+1):.:=W|
00000cf0  71 24 0d 00 fa 42 dd f2  57 72 28 56 6c 24 29 3a  |q$...B..Wr(Vl$):|
00000d00  ea 55 58 25 2c 56 6d 25  3a c8 99 26 32 30 30 30  |.UX%,Vm%:..&2000|
00000d10  38 2c 36 2c 56 6c 24 20  b8 56 6d 25 3b 57 6a 25  |8,6,Vl$ .Vm%;Wj%|
00000d20  3a e7 28 57 6a 25 20 80  31 29 20 8c f2 56 74 28  |:.(Wj% .1) ..Vt(|
00000d30  56 6d 25 29 0d 00 fe 05  e1 0d 01 00 31 dd f2 57  |Vm%)........1..W|
00000d40  73 28 56 66 25 29 3a 56  6e 25 3d 56 66 25 3a 56  |s(Vf%):Vn%=Vf%:V|
00000d50  6f 25 3d a4 56 70 28 56  71 25 2c 56 6e 25 29 3a  |o%=.Vp(Vq%,Vn%):|
00000d60  e7 56 6f 25 3c 3e 2d 31  20 8c 0d 01 04 10 f2 57  |.Vo%<>-1 ......W|
00000d70  74 28 56 6f 25 2c 56 6e  25 29 0d 01 05 1f cc 3a  |t(Vo%,Vn%).....:|
00000d80  57 75 25 3d b9 3a f2 57  76 28 22 3c 57 69 6d 70  |Wu%=.:.Wv("<Wimp|
00000d90  24 53 63 72 61 70 3e 22  29 0d 01 08 07 cd 3a e1  |$Scrap>").....:.|
00000da0  0d 01 0b 37 dd f2 57 77  3a ea 57 58 25 3a e7 28  |...7..Ww:.WX%:.(|
00000db0  57 78 25 20 80 55 61 25  21 32 34 3c 56 6e 25 29  |Wx% .Ua%!24<Vn%)|
00000dc0  20 84 28 55 61 25 21 32  34 3c 31 30 30 20 80 20  | .(Ua%!24<100 . |
00000dd0  ac 57 78 25 29 20 8c 0d  01 0e 2c 57 79 25 3d a3  |.Wx%) ....,Wy%=.|
00000de0  3a e7 57 78 25 20 8c 56  6e 25 3d 55 61 25 21 32  |:.Wx% .Vn%=Ua%!2|
00000df0  34 8b 56 6e 25 2d 3d 28  31 30 30 2d 55 61 25 21  |4.Vn%-=(100-Ua%!|
00000e00  32 34 29 0d 01 10 5a f2  56 75 28 55 74 25 2c 31  |24)...Z.Vu(Ut%,1|
00000e10  2c a4 56 76 28 56 73 25  2c 22 70 6e 61 6d 65 22  |,.Vv(Vs%,"pname"|
00000e20  2c 22 22 2c 22 22 2c 22  22 2c 22 22 29 29 3a c8  |,"","","","")):.|
00000e30  99 26 34 30 30 43 46 2c  2c 55 72 25 3a f2 56 77  |.&400CF,,Ur%:.Vw|
00000e40  28 55 72 25 21 30 2d 36  34 2c 55 72 25 21 34 2b  |(Ur%!0-64,Ur%!4+|
00000e50  33 32 2c 55 74 25 29 3a  56 78 25 3d 31 0d 01 14  |32,Ut%):Vx%=1...|
00000e60  2c cc 3a 57 58 25 3d 56  6f 25 3a 56 6f 25 3d a4  |,.:WX%=Vo%:Vo%=.|
00000e70  57 61 28 56 71 25 2c 31  30 30 2c 56 6f 25 29 3a  |Wa(Vq%,100,Vo%):|
00000e80  e7 56 6f 25 3d 2d 31 20  8c 0d 01 18 35 f2 57 62  |.Vo%=-1 ....5.Wb|
00000e90  28 56 71 25 2c 57 58 25  29 3a 57 79 25 3d a3 3a  |(Vq%,WX%):Wy%=.:|
00000ea0  f2 56 72 28 56 73 25 2c  22 6c 6f 61 64 6d 65 6d  |.Vr(Vs%,"loadmem|
00000eb0  22 2c 22 22 2c 22 22 2c  22 22 2c 22 22 29 0d 01  |","","","","")..|
00000ec0  1b 1f cc 3a f2 57 74 28  56 6f 25 2b 56 6e 25 2c  |...:.Wt(Vo%+Vn%,|
00000ed0  31 30 30 29 3a 56 6e 25  2b 3d 31 30 30 0d 01 1e  |100):Vn%+=100...|
00000ee0  05 cd 0d 01 1f 0d cd 3a  57 78 25 3d a3 3a e1 0d  |.......:Wx%=.:..|
00000ef0  01 23 22 dd f2 57 7a 28  56 6c 24 2c 58 55 25 29  |.#"..Wz(Vl$,XU%)|
00000f00  3a ea 56 59 25 2c 56 66  25 3a c8 8e 56 78 25 20  |:.VY%,Vf%:..Vx% |
00000f10  ca 0d 01 26 55 c9 30 3a  f2 57 69 28 a4 55 76 28  |...&U.0:.Wi(.Uv(|
00000f20  55 73 25 2c 31 34 29 2c  56 5a 24 2c bb 28 a4 55  |Us%,14),VZ$,.(.U|
00000f30  76 28 55 73 25 2c 31 31  29 29 2c 56 68 25 2c 56  |v(Us%,11)),Vh%,V|
00000f40  69 25 2c 56 59 25 2c 56  66 25 29 3a e7 56 59 25  |i%,VY%,Vf%):.VY%|
00000f50  3c 3e 2d 31 20 8c f2 57  6b 28 56 6c 24 2c 56 59  |<>-1 ..Wk(Vl$,VY|
00000f60  25 2c 56 66 25 29 0d 01  28 2e c9 31 3a f2 56 7a  |%,Vf%)..(..1:.Vz|
00000f70  28 56 59 25 2c 56 66 25  29 3a e7 56 59 25 3c 3e  |(VY%,Vf%):.VY%<>|
00000f80  2d 31 20 8c f2 57 6b 28  56 6c 24 2c 56 59 25 2c  |-1 ..Wk(Vl$,VY%,|
00000f90  56 66 25 29 0d 01 2a 0b  cb 3a f2 58 56 3a e1 0d  |Vf%)..*..:.XV:..|
00000fa0  01 2e 10 dd f2 58 57 3a  c8 8e 56 78 25 20 ca 0d  |.....XW:..Vx% ..|
00000fb0  01 30 3a c9 30 3a f2 57  69 28 a4 55 76 28 55 73  |.0:.0:.Wi(.Uv(Us|
00000fc0  25 2c 31 34 29 2c 56 5a  24 2c bb 28 a4 55 76 28  |%,14),VZ$,.(.Uv(|
00000fd0  55 73 25 2c 31 31 29 29  2c 56 68 25 2c 56 69 25  |Us%,11)),Vh%,Vi%|
00000fe0  2c 58 58 25 2c 58 59 25  29 0d 01 31 13 c9 31 3a  |,XX%,XY%)..1..1:|
00000ff0  f2 56 7a 28 58 58 25 2c  58 59 25 29 0d 01 32 18  |.Vz(XX%,XY%)..2.|
00001000  cb 3a 58 5a 25 3d 58 58  25 3a e7 56 59 25 3c 3e  |.:XZ%=XX%:.VY%<>|
00001010  2d 31 20 8c 0d 01 35 16  c8 99 26 34 30 36 43 30  |-1 ...5...&406C0|
00001020  3a 58 61 25 3d b9 3a f2  58 62 0d 01 38 07 cd 3a  |:Xa%=.:.Xb..8..:|
00001030  e1 0d 01 3b 0e dd f2 58  63 3a f2 58 62 3a e1 0d  |...;...Xc:.Xb:..|
00001040  01 3f 40 dd f2 58 64 28  56 6c 24 29 3a e7 a4 58  |.?@..Xd(Vl$):..X|
00001050  65 28 56 6c 24 29 20 8c  f2 57 7a 28 56 6c 24 2c  |e(Vl$) ..Wz(Vl$,|
00001060  b9 29 8b f2 56 72 28 56  73 25 2c 22 6e 6f 64 6f  |.)..Vr(Vs%,"nodo|
00001070  74 22 2c 22 22 2c 22 22  2c 22 22 2c 22 22 29 0d  |t","","","","").|
00001080  01 41 05 e1 0d 01 43 36  dd f2 58 66 3a 55 61 25  |.A....C6..Xf:Ua%|
00001090  21 31 32 3d 55 61 25 21  38 3a 55 61 25 21 31 36  |!12=Ua%!8:Ua%!16|
000010a0  3d 33 3a c8 99 26 34 30  30 45 37 2c 31 38 2c 55  |=3:..&400E7,18,U|
000010b0  61 25 2c 55 61 25 21 34  3a e1 0d 01 49 36 dd f2  |a%,Ua%!4:...I6..|
000010c0  56 79 3a 55 61 25 21 31  32 3d 55 61 25 21 38 3a  |Vy:Ua%!12=Ua%!8:|
000010d0  55 61 25 21 31 36 3d 34  3a c8 99 26 34 30 30 45  |Ua%!16=4:..&400E|
000010e0  37 2c 31 37 2c 55 61 25  2c 55 61 25 21 34 3a e1  |7,17,Ua%,Ua%!4:.|
000010f0  0d 01 4f 7c dd f2 57 76  28 58 67 24 29 3a 55 61  |..O|..Wv(Xg$):Ua|
00001100  25 21 30 3d 34 34 2b a9  28 58 67 24 29 3a 55 61  |%!0=44+.(Xg$):Ua|
00001110  25 21 30 2b 3d 34 2d 28  55 61 25 21 30 20 83 34  |%!0+=4-(Ua%!0 .4|
00001120  29 3a 55 61 25 21 31 32  3d 55 61 25 21 38 3a 55  |):Ua%!12=Ua%!8:U|
00001130  61 25 21 31 36 3d 32 3a  55 61 25 21 33 36 3d 2d  |a%!16=2:Ua%!36=-|
00001140  31 3a 24 28 55 61 25 2b  34 34 29 3d 58 67 24 2b  |1:$(Ua%+44)=Xg$+|
00001150  bd 28 30 29 3a c8 99 26  34 30 30 45 37 2c 31 37  |.(0):..&400E7,17|
00001160  2c 55 61 25 2c 55 61 25  21 34 3a e1 0d 01 59 5e  |,Ua%,Ua%!4:...Y^|
00001170  dd f2 57 74 28 56 6f 25  2c 56 6e 25 29 3a 55 61  |..Wt(Vo%,Vn%):Ua|
00001180  25 21 30 3d 32 38 3a 55  61 25 21 31 32 3d 55 61  |%!0=28:Ua%!12=Ua|
00001190  25 21 38 3a 55 61 25 21  31 36 3d 36 3a 55 61 25  |%!8:Ua%!16=6:Ua%|
000011a0  21 32 30 3d 56 6f 25 3a  55 61 25 21 32 34 3d 56  |!20=Vo%:Ua%!24=V|
000011b0  6e 25 3a c8 99 26 34 30  30 45 37 2c 31 38 2c 55  |n%:..&400E7,18,U|
000011c0  61 25 2c 55 61 25 21 34  3a e1 0d 01 62 42 dd f2  |a%,Ua%!4:...bB..|
000011d0  58 62 3a ea 58 68 25 2c  58 69 25 2c 58 6a 25 3a  |Xb:.Xh%,Xi%,Xj%:|
000011e0  58 69 25 3d 55 61 25 21  34 3a 58 6a 25 3d 55 61  |Xi%=Ua%!4:Xj%=Ua|
000011f0  25 21 32 34 3a e7 58 6a  25 3e 58 59 25 20 8c 58  |%!24:.Xj%>XY% .X|
00001200  6a 25 3d 58 59 25 3a 58  68 25 3d b9 0d 01 67 66  |j%=XY%:Xh%=...gf|
00001210  c8 99 26 34 30 30 46 31  2c 58 6b 25 2c 58 58 25  |..&400F1,Xk%,XX%|
00001220  2c 58 69 25 2c 55 61 25  21 32 30 2c 58 6a 25 3a  |,Xi%,Ua%!20,Xj%:|
00001230  55 61 25 21 30 3d 32 38  3a 55 61 25 21 31 32 3d  |Ua%!0=28:Ua%!12=|
00001240  55 61 25 21 38 3a 55 61  25 21 31 36 3d 37 3a 55  |Ua%!8:Ua%!16=7:U|
00001250  61 25 21 32 34 3d 58 6a  25 3a 58 58 25 2b 3d 58  |a%!24=Xj%:XX%+=X|
00001260  6a 25 3a 58 59 25 2d 3d  58 6a 25 3a e7 58 68 25  |j%:XY%-=Xj%:.Xh%|
00001270  20 8c 0d 01 6f 37 c8 99  26 34 30 30 45 37 2c 31  | ...o7..&400E7,1|
00001280  37 2c 55 61 25 2c 58 69  25 3a 58 61 25 3d a3 3a  |7,Ua%,Xi%:Xa%=.:|
00001290  f2 57 62 28 56 71 25 2c  58 5a 25 29 3a f2 58 56  |.Wb(Vq%,XZ%):.XV|
000012a0  3a c8 99 26 34 30 36 43  31 0d 01 74 19 cc 3a c8  |:..&406C1..t..:.|
000012b0  99 26 34 30 30 45 37 2c  31 38 2c 55 61 25 2c 58  |.&400E7,18,Ua%,X|
000012c0  69 25 0d 01 76 07 cd 3a  e1 0d 01 79 46 dd a4 56  |i%..v..:...yF..V|
000012d0  66 28 56 6c 24 29 3a ea  56 66 25 2c 55 58 25 2c  |f(Vl$):.Vf%,UX%,|
000012e0  56 6d 25 3a c8 99 26 32  30 30 30 38 2c 31 37 2c  |Vm%:..&20008,17,|
000012f0  56 6c 24 20 b8 56 6d 25  2c 2c 2c 2c 56 66 25 3b  |Vl$ .Vm%,,,,Vf%;|
00001300  55 58 25 3a e7 28 55 58  25 20 80 31 29 20 8c 0d  |UX%:.(UX% .1) ..|
00001310  01 7d 13 f2 56 74 28 56  6d 25 29 3a 56 66 25 3d  |.}..Vt(Vm%):Vf%=|
00001320  2d 31 0d 01 7f 0a cd 3a  3d 56 66 25 0d 01 82 1c  |-1.....:=Vf%....|
00001330  dd a4 58 65 28 56 6c 24  29 3a 3d 28 a7 56 6c 24  |..Xe(Vl$):=(.Vl$|
00001340  2c 22 2e 22 29 3e 30 29  0d 01 85 a2 dd a4 58 6c  |,".")>0)......Xl|
00001350  3a ea 58 6d 25 2c 58 6e  25 2c 58 6f 25 2c 58 70  |:.Xm%,Xn%,Xo%,Xp|
00001360  25 3a 58 6d 25 3d 25 30  31 30 31 30 30 30 30 30  |%:Xm%=%010100000|
00001370  30 30 30 30 30 30 30 30  30 30 30 30 30 30 3a c8  |00000000000000:.|
00001380  99 26 34 30 30 39 31 2c  2c 30 2c 58 6d 25 2c 2c  |.&40091,,0,Xm%,,|
00001390  30 2c 2c 31 20 b8 2c 2c  2c 58 6e 25 2c 2c 58 6f  |0,,1 .,,,Xn%,,Xo|
000013a0  25 3a 58 70 25 3d a4 56  70 28 56 71 25 2c 58 6e  |%:Xp%=.Vp(Vq%,Xn|
000013b0  25 29 3a 58 71 25 3d a4  56 70 28 56 71 25 2c 58  |%):Xq%=.Vp(Vq%,X|
000013c0  6f 25 29 3a c8 99 26 34  30 30 39 31 2c 2c 58 70  |o%):..&40091,,Xp|
000013d0  25 2c 58 6d 25 2c 58 6e  25 2c 58 71 25 2c 58 6f  |%,Xm%,Xn%,Xq%,Xo|
000013e0  25 2c 56 5a 24 3a 3d 58  70 25 0d 01 8e 32 dd f2  |%,VZ$:=Xp%...2..|
000013f0  58 72 3a c8 99 26 34 30  30 39 31 2c 2c 55 72 25  |Xr:..&40091,,Ur%|
00001400  2c 30 2c 2d 31 3a 56 5a  24 3d a4 58 73 28 55 72  |,0,-1:VZ$=.Xs(Ur|
00001410  25 29 3a 58 70 25 3d a4  58 6c 3a e1 0d 01 94 31  |%):Xp%=.Xl:....1|
00001420  dd f2 58 74 3a ea 58 75  25 3a f2 57 62 28 56 71  |..Xt:.Xu%:.Wb(Vq|
00001430  25 2c 58 70 25 29 3a f2  57 62 28 56 71 25 2c 58  |%,Xp%):.Wb(Vq%,X|
00001440  71 25 29 3a 58 70 25 3d  a4 58 6c 3a e1 0d 01 9b  |q%):Xp%=.Xl:....|
00001450  38 dd a4 58 73 28 58 76  25 29 3a ea 55 6c 24 3a  |8..Xs(Xv%):.Ul$:|
00001460  c8 95 58 76 25 3f 30 3e  33 31 3a 55 6c 24 2b 3d  |..Xv%?0>31:Ul$+=|
00001470  bd 28 3f 58 76 25 29 3a  58 76 25 2b 3d 31 3a ce  |.(?Xv%):Xv%+=1:.|
00001480  3a 3d 55 6c 24 0d 01 a3  65 dd a4 58 77 28 58 78  |:=Ul$...e..Xw(Xx|
00001490  25 2c 58 79 25 29 3a ea  58 7a 25 2c 59 55 25 3a  |%,Xy%):.Xz%,YU%:|
000014a0  58 79 25 3d 28 28 58 79  25 2b 28 38 2a 31 30 32  |Xy%=((Xy%+(8*102|
000014b0  34 29 2d 31 29 81 28 38  2a 31 30 32 34 29 29 2a  |4)-1).(8*1024))*|
000014c0  38 2a 31 30 32 34 3a c8  99 26 36 30 30 45 43 2c  |8*1024:..&600EC,|
000014d0  2d 31 2c 2d 31 20 b8 59  56 25 3a e7 59 57 25 2b  |-1,-1 .YV%:.YW%+|
000014e0  58 79 25 3e 3d 59 56 25  20 8c 0d 01 a8 45 c8 99  |Xy%>=YV% ....E..|
000014f0  26 36 30 30 45 43 2c 59  57 25 2b 58 79 25 2c 2d  |&600EC,YW%+Xy%,-|
00001500  31 20 b8 59 55 25 3b 58  7a 25 3a 58 7a 25 3d 28  |1 .YU%;Xz%:Xz%=(|
00001510  28 58 7a 25 20 80 31 29  3d 31 29 3a e7 59 55 25  |(Xz% .1)=1):.YU%|
00001520  3c 59 57 25 2b 58 79 25  20 8c 58 7a 25 3d b9 0d  |<YW%+Xy% .Xz%=..|
00001530  01 ab 0e cd 3a e7 20 ac  58 7a 25 20 8c 0d 01 ad  |....:. .Xz% ....|
00001540  1d c8 99 26 31 44 2c 35  2c 58 78 25 2c 2c 58 79  |...&1D,5,Xx%,,Xy|
00001550  25 3a 59 57 25 2b 3d 58  79 25 0d 01 af 0a cd 3a  |%:YW%+=Xy%.....:|
00001560  3d 58 7a 25 0d 01 b2 70  dd a4 57 61 28 58 78 25  |=Xz%...p..Wa(Xx%|
00001570  2c 58 79 25 2c 58 76 25  29 3a ea 59 58 25 2c 58  |,Xy%,Xv%):.YX%,X|
00001580  7a 25 2c 59 59 25 3a f5  3a c8 99 26 32 30 30 31  |z%,YY%:.:..&2001|
00001590  44 2c 34 2c 58 78 25 2c  58 76 25 2c 58 79 25 20  |D,4,Xx%,Xv%,Xy% |
000015a0  b8 2c 2c 59 59 25 3b 59  58 25 3a 59 58 25 3d 28  |.,,YY%;YX%:YX%=(|
000015b0  28 59 58 25 20 80 31 29  3d 30 29 3a e7 20 ac 59  |(YX% .1)=0):. .Y|
000015c0  58 25 20 8c 58 7a 25 3d  a4 58 77 28 58 78 25 2c  |X% .Xz%=.Xw(Xx%,|
000015d0  58 79 25 29 0d 01 b8 14  fd 59 58 25 20 84 58 7a  |Xy%).....YX% .Xz|
000015e0  25 3a e7 58 7a 25 20 8c  0d 01 ba 0a 59 59 25 3d  |%:.Xz% .....YY%=|
000015f0  2d 31 0d 01 bb 0a cd 3a  3d 59 59 25 0d 01 be 69  |-1.....:=YY%...i|
00001600  dd f2 57 62 28 58 78 25  2c 58 76 25 29 3a ea 58  |..Wb(Xx%,Xv%):.X|
00001610  79 25 2c 59 5a 25 3a c8  99 26 31 44 2c 33 2c 58  |y%,YZ%:..&1D,3,X|
00001620  78 25 2c 58 76 25 3a f5  3a c8 99 26 32 30 30 31  |x%,Xv%:.:..&2001|
00001630  44 2c 35 2c 58 78 25 2c  2c 2d 31 30 30 20 b8 3b  |D,5,Xx%,,-100 .;|
00001640  59 61 25 3a 59 61 25 3d  28 28 59 61 25 20 80 31  |Ya%:Ya%=((Ya% .1|
00001650  29 3d 31 29 3a e7 59 61  25 3d 30 20 8c 59 5a 25  |)=1):.Ya%=0 .YZ%|
00001660  2b 3d 31 30 30 0d 01 c5  11 fd 59 61 25 3a e7 59  |+=100.....Ya%:.Y|
00001670  5a 25 3e 30 20 8c 0d 01  c7 1c 59 57 25 2d 3d 59  |Z%>0 .....YW%-=Y|
00001680  5a 25 3a c8 99 26 36 30  30 45 43 2c 59 57 25 2c  |Z%:..&600EC,YW%,|
00001690  2d 31 0d 01 c9 07 cd 3a  e1 0d 01 cc 56 dd a4 56  |-1.....:....V..V|
000016a0  70 28 58 78 25 2c 58 79  25 29 3a ea 58 7a 25 2c  |p(Xx%,Xy%):.Xz%,|
000016b0  59 62 25 2c 59 63 25 2c  58 76 25 3a 58 79 25 3d  |Yb%,Yc%,Xv%:Xy%=|
000016c0  38 2b 28 28 58 79 25 2b  37 29 81 38 29 2a 38 3a  |8+((Xy%+7).8)*8:|
000016d0  f5 3a c8 99 26 31 44 2c  31 2c 58 78 25 20 b8 2c  |.:..&1D,1,Xx% .,|
000016e0  2c 59 62 25 3a e7 59 62  25 3e 58 79 25 20 8c 0d  |,Yb%:.Yb%>Xy% ..|
000016f0  01 d2 21 c8 99 26 31 44  2c 32 2c 58 78 25 2c 2c  |..!..&1D,2,Xx%,,|
00001700  58 79 25 20 b8 2c 2c 58  76 25 3a 59 63 25 3d b9  |Xy% .,,Xv%:Yc%=.|
00001710  0d 01 d4 16 cc 3a 58 7a  25 3d a4 58 77 28 58 78  |.....:Xz%=.Xw(Xx|
00001720  25 2c 58 79 25 29 0d 01  d6 1c cd 3a fd 59 63 25  |%,Xy%).....:.Yc%|
00001730  20 84 58 7a 25 3a e7 58  7a 25 20 8c 58 76 25 3d  | .Xz%:.Xz% .Xv%=|
00001740  2d 31 0d 01 d9 08 3d 58  76 25 0d 01 db 5f dd a4  |-1....=Xv%..._..|
00001750  59 64 28 59 65 25 29 3a  ea 59 66 25 3a 59 66 25  |Yd(Ye%):.Yf%:Yf%|
00001760  3d 93 3a c8 99 26 34 30  30 45 43 2c 2d 31 2c 2d  |=.:..&400EC,-1,-|
00001770  31 20 b8 59 57 25 3a c8  99 26 34 30 30 45 43 2c  |1 .YW%:..&400EC,|
00001780  59 57 25 2b 59 65 25 2c  2d 31 3a c8 99 26 31 44  |YW%+Ye%,-1:..&1D|
00001790  2c 30 2c 59 66 25 2c 2c  59 65 25 3a 59 57 25 2b  |,0,Yf%,,Ye%:YW%+|
000017a0  3d 59 65 25 3a 3d 59 66  25 0d 01 e4 9d dd f2 59  |=Ye%:=Yf%......Y|
000017b0  67 28 59 67 24 2c 59 68  24 2c 59 69 24 2c 59 6a  |g(Yg$,Yh$,Yi$,Yj|
000017c0  24 2c 59 6b 24 29 3a 59  67 24 3d a4 56 76 28 56  |$,Yk$):Yg$=.Vv(V|
000017d0  73 25 2c 59 67 24 2c 59  68 24 2c 59 69 24 2c 59  |s%,Yg$,Yh$,Yi$,Y|
000017e0  6a 24 2c 59 6b 24 29 3a  55 61 25 21 30 3d 32 34  |j$,Yk$):Ua%!0=24|
000017f0  2b 28 a9 28 59 67 24 29  20 80 26 46 46 46 46 46  |+(.(Yg$) .&FFFFF|
00001800  43 29 3a 55 61 25 21 31  32 3d 55 61 25 21 38 3a  |C):Ua%!12=Ua%!8:|
00001810  55 61 25 21 31 36 3d 26  35 30 33 3a 24 28 55 61  |Ua%!16=&503:$(Ua|
00001820  25 2b 32 30 29 3d 59 67  24 2b bd 28 30 29 3a c8  |%+20)=Yg$+.(0):.|
00001830  99 26 34 30 30 45 37 2c  31 37 2c 55 61 25 2c 55  |.&400E7,17,Ua%,U|
00001840  61 25 21 34 3a e1 0d 01  ed 1e dd f2 59 6c 28 59  |a%!4:.......Yl(Y|
00001850  6d 25 2c 59 6e 25 29 3a  ea 59 6f 24 3a c8 8e 59  |m%,Yn%):.Yo$:..Y|
00001860  6d 25 20 ca 0d 01 f0 12  c9 55 74 25 3a e7 59 6e  |m% ......Ut%:.Yn|
00001870  25 3e 3d 30 20 8c 0d 01  f2 23 f2 59 67 28 22 73  |%>=0 ....#.Yg("s|
00001880  61 76 65 68 22 2b c3 28  59 6e 25 29 2c 22 22 2c  |aveh"+.(Yn%),"",|
00001890  22 22 2c 22 22 2c 22 22  29 0d 01 f3 1e cc 3a f2  |"","","").....:.|
000018a0  59 67 28 22 73 61 76 65  68 22 2c 22 22 2c 22 22  |Yg("saveh","",""|
000018b0  2c 22 22 2c 22 22 29 0d  01 f5 05 cd 0d 01 f6 1b  |,"","").........|
000018c0  c9 55 7a 25 3a e7 59 6e  25 3e 3d 30 20 80 59 6e  |.Uz%:.Yn%>=0 .Yn|
000018d0  25 3c 3d 31 35 20 8c 0d  01 f8 23 f2 59 67 28 22  |%<=15 ....#.Yg("|
000018e0  63 6f 6c 6f 75 72 68 78  22 2c c3 28 59 6e 25 29  |colourhx",.(Yn%)|
000018f0  2c 22 22 2c 22 22 2c 22  22 29 0d 01 f9 23 cc 3a  |,"","","")...#.:|
00001900  e7 59 70 25 3d 30 20 8c  59 6f 24 3d 22 66 6f 72  |.Yp%=0 .Yo$="for|
00001910  65 22 8b 59 6f 24 3d 22  62 61 63 6b 22 0d 01 fb  |e".Yo$="back"...|
00001920  2a 59 6f 24 3d a4 56 76  28 56 73 25 2c 59 6f 24  |*Yo$=.Vv(Vs%,Yo$|
00001930  2c 22 22 2c 22 22 2c 22  22 2c 22 22 29 3a e7 59  |,"","","",""):.Y|
00001940  6e 25 3e 3d 30 20 8c 0d  01 fd 26 f2 59 67 28 22  |n%>=0 ....&.Yg("|
00001950  63 6f 6c 6f 75 72 68 22  2b c3 28 59 6e 25 29 2c  |colourh"+.(Yn%),|
00001960  59 6f 24 2c 22 22 2c 22  22 2c 22 22 29 0d 01 fe  |Yo$,"","","")...|
00001970  21 cc 3a f2 59 67 28 22  63 6f 6c 6f 75 72 68 22  |!.:.Yg("colourh"|
00001980  2c 59 6f 24 2c 22 22 2c  22 22 2c 22 22 29 0d 02  |,Yo$,"","","")..|
00001990  00 05 cd 0d 02 01 05 cd  0d 02 02 12 c9 55 73 25  |.............Us%|
000019a0  3a e7 59 6e 25 3e 3d 35  20 8c 0d 02 04 26 f2 59  |:.Yn%>=5 ....&.Y|
000019b0  67 28 22 6f 70 74 69 6f  6e 73 68 22 2b c3 28 59  |g("optionsh"+.(Y|
000019c0  6e 25 29 2c 22 22 2c 22  22 2c 22 22 2c 22 22 29  |n%),"","","","")|
000019d0  0d 02 05 21 cc 3a f2 59  67 28 22 6f 70 74 69 6f  |...!.:.Yg("optio|
000019e0  6e 73 68 22 2c 22 22 2c  22 22 2c 22 22 2c 22 22  |nsh","","","",""|
000019f0  29 0d 02 07 05 cd 0d 02  08 21 c9 59 71 25 3a f2  |)........!.Yq%:.|
00001a00  59 67 28 22 69 6e 66 6f  68 22 2c 22 22 2c 22 22  |Yg("infoh","",""|
00001a10  2c 22 22 2c 22 22 29 0d  02 09 2c 7f 3a e7 55 61  |,"","")...,.:.Ua|
00001a20  25 21 33 36 3c 3e 2d 31  20 8c f2 59 67 28 22 66  |%!36<>-1 ..Yg("f|
00001a30  6f 6e 74 6d 68 22 2c 22  22 2c 22 22 2c 22 22 2c  |ontmh","","","",|
00001a40  22 22 29 0d 02 0a 07 cb  3a e1 0d 02 0d 64 dd f2  |"").....:....d..|
00001a50  56 75 28 59 6d 25 2c 59  6e 25 2c 59 72 24 29 3a  |Vu(Ym%,Yn%,Yr$):|
00001a60  55 72 25 21 30 3d 59 6d  25 3a 55 72 25 21 34 3d  |Ur%!0=Ym%:Ur%!4=|
00001a70  59 6e 25 3a c8 99 26 34  30 30 43 45 2c 2c 55 72  |Yn%:..&400CE,,Ur|
00001a80  25 3a 24 55 72 25 21 32  38 3d 59 72 24 3a 55 72  |%:$Ur%!28=Yr$:Ur|
00001a90  25 21 38 3d 30 3a 55 72  25 21 31 32 3d 30 3a c8  |%!8=0:Ur%!12=0:.|
00001aa0  99 26 34 30 30 43 44 2c  2c 55 72 25 3a e1 0d 02  |.&400CD,,Ur%:...|
00001ab0  17 97 dd f2 56 55 28 59  6d 25 2c 59 6e 25 2c 59  |....VU(Ym%,Yn%,Y|
00001ac0  73 25 2c 59 74 25 29 3a  ea 59 75 25 3a 55 72 25  |s%,Yt%):.Yu%:Ur%|
00001ad0  21 30 3d 59 6d 25 3a 55  72 25 21 34 3d 59 6e 25  |!0=Ym%:Ur%!4=Yn%|
00001ae0  3a c8 99 26 34 30 30 43  45 2c 2c 55 72 25 3a 59  |:..&400CE,,Ur%:Y|
00001af0  75 25 3d 55 72 25 21 28  38 2b 31 36 29 3a 59 75  |u%=Ur%!(8+16):Yu|
00001b00  25 3d 59 75 25 20 80 26  46 46 46 46 46 46 3a 59  |%=Yu% .&FFFFFF:Y|
00001b10  75 25 3d 59 75 25 20 84  59 73 25 3c 3c 32 34 20  |u%=Yu% .Ys%<<24 |
00001b20  84 59 74 25 3c 3c 32 38  3a f2 59 76 28 59 6d 25  |.Yt%<<28:.Yv(Ym%|
00001b30  2c 59 6e 25 2c 59 75 25  2c 26 46 46 46 46 46 46  |,Yn%,Yu%,&FFFFFF|
00001b40  46 46 29 3a e1 0d 02 21  de dd f2 59 77 28 59 6d  |FF):...!...Yw(Ym|
00001b50  25 2c 59 6e 25 2c 59 78  25 2c 59 79 25 2c 59 7a  |%,Yn%,Yx%,Yy%,Yz|
00001b60  24 29 3a ea 5a 55 25 2c  5a 56 25 2c 55 6f 25 2c  |$):.ZU%,ZV%,Uo%,|
00001b70  55 70 25 3a 55 72 25 21  30 3d 59 6d 25 3a c8 99  |Up%:Ur%!0=Ym%:..|
00001b80  26 34 30 30 43 42 2c 2c  55 72 25 3a 5a 55 25 3d  |&400CB,,Ur%:ZU%=|
00001b90  55 72 25 21 34 2d 55 72  25 21 32 30 3a 5a 56 25  |Ur%!4-Ur%!20:ZV%|
00001ba0  3d 55 72 25 21 31 36 2d  55 72 25 21 32 34 3a 55  |=Ur%!16-Ur%!24:U|
00001bb0  72 25 21 34 3d 59 6e 25  3a c8 99 26 34 30 30 43  |r%!4=Yn%:..&400C|
00001bc0  45 2c 2c 55 72 25 3a 55  72 25 21 30 3d 30 3a 55  |E,,Ur%:Ur%!0=0:U|
00001bd0  72 25 21 34 3d 35 3a 55  72 25 21 38 2b 3d 5a 55  |r%!4=5:Ur%!8+=ZU|
00001be0  25 3a 55 72 25 21 31 32  2b 3d 5a 56 25 3a 55 72  |%:Ur%!12+=ZV%:Ur|
00001bf0  25 21 31 36 2b 3d 5a 55  25 3a 55 72 25 21 32 30  |%!16+=ZU%:Ur%!20|
00001c00  2b 3d 5a 56 25 3a e7 59  7a 24 3c 3e 22 22 20 80  |+=ZV%:.Yz$<>"" .|
00001c10  28 a4 55 69 28 32 38 29  20 80 31 3c 3c 31 29 3e  |(.Ui(28) .1<<1)>|
00001c20  30 20 8c 0d 02 2d 22 c8  99 26 34 32 34 30 30 2c  |0 ...-"..&42400,|
00001c30  26 43 35 2c 31 2c 59 7a  24 2c 55 72 25 2b 38 3a  |&C5,1,Yz$,Ur%+8:|
00001c40  55 71 25 3d b9 0d 02 2f  75 cc 3a f2 5a 57 28 55  |Uq%=.../u.:.ZW(U|
00001c50  6f 25 2c 55 70 25 29 3a  55 72 25 21 32 34 3d 55  |o%,Up%):Ur%!24=U|
00001c60  72 25 21 38 2d 59 78 25  3a 55 72 25 21 32 38 3d  |r%!8-Yx%:Ur%!28=|
00001c70  55 72 25 21 31 32 2d 59  79 25 3a 55 72 25 21 33  |Ur%!12-Yy%:Ur%!3|
00001c80  32 3d 55 6f 25 2b 28 55  72 25 21 31 36 2d 59 78  |2=Uo%+(Ur%!16-Yx|
00001c90  25 29 2d 32 3a 55 72 25  21 33 36 3d 55 70 25 2b  |%)-2:Ur%!36=Up%+|
00001ca0  28 55 72 25 21 32 30 2d  59 79 25 29 3a c8 99 26  |(Ur%!20-Yy%):..&|
00001cb0  34 30 30 44 30 2c 2c 55  72 25 0d 02 36 07 cd 3a  |400D0,,Ur%..6..:|
00001cc0  e1 0d 02 39 39 dd f2 5a  58 28 59 6d 25 2c 59 6e  |...99..ZX(Ym%,Yn|
00001cd0  25 29 3a c8 99 26 34 30  30 44 32 2c 59 6d 25 2c  |%):..&400D2,Ym%,|
00001ce0  59 6e 25 2c 2c 2c 2d 31  2c a9 28 a4 55 76 28 59  |Yn%,,,-1,.(.Uv(Y|
00001cf0  6d 25 2c 59 6e 25 29 29  3a e1 0d 02 3d 46 dd a4  |m%,Yn%)):...=F..|
00001d00  5a 59 28 59 6d 25 2c 59  6e 25 29 3a 55 72 25 21  |ZY(Ym%,Yn%):Ur%!|
00001d10  30 3d 59 6d 25 3a 55 72  25 21 34 3d 59 6e 25 3a  |0=Ym%:Ur%!4=Yn%:|
00001d20  c8 99 26 34 30 30 43 45  2c 2c 55 72 25 3a 3d 28  |..&400CE,,Ur%:=(|
00001d30  55 72 25 21 32 34 20 80  31 3c 3c 32 31 29 3e 30  |Ur%!24 .1<<21)>0|
00001d40  0d 02 43 49 dd f2 55 79  28 59 6d 25 2c 59 6e 25  |..CI..Uy(Ym%,Yn%|
00001d50  2c 5a 5a 25 29 3a e7 a4  5a 59 28 59 6d 25 2c 59  |,ZZ%):..ZY(Ym%,Y|
00001d60  6e 25 29 3c 3e 5a 5a 25  20 8c f2 59 76 28 59 6d  |n%)<>ZZ% ..Yv(Ym|
00001d70  25 2c 59 6e 25 2c 94 28  5a 5a 25 3d b9 29 3c 3c  |%,Yn%,.(ZZ%=.)<<|
00001d80  32 31 2c 31 3c 3c 32 31  29 0d 02 45 05 e1 0d 02  |21,1<<21)..E....|
00001d90  47 40 dd a4 55 76 28 59  6d 25 2c 59 6e 25 29 3a  |G@..Uv(Ym%,Yn%):|
00001da0  55 72 25 21 30 3d 59 6d  25 3a 55 72 25 21 34 3d  |Ur%!0=Ym%:Ur%!4=|
00001db0  59 6e 25 3a c8 99 26 34  30 30 43 45 2c 2c 55 72  |Yn%:..&400CE,,Ur|
00001dc0  25 3a 3d a4 58 73 28 55  72 25 21 32 38 29 0d 02  |%:=.Xs(Ur%!28)..|
00001dd0  4d 52 dd f2 59 76 28 59  6d 25 2c 59 6e 25 2c 5a  |MR..Yv(Ym%,Yn%,Z|
00001de0  61 25 2c 5a 62 25 29 3a  55 72 25 21 30 3d 59 6d  |a%,Zb%):Ur%!0=Ym|
00001df0  25 3a 55 72 25 21 34 3d  59 6e 25 3a 55 72 25 21  |%:Ur%!4=Yn%:Ur%!|
00001e00  38 3d 5a 61 25 3a 55 72  25 21 31 32 3d 5a 62 25  |8=Za%:Ur%!12=Zb%|
00001e10  3a c8 99 26 34 30 30 43  44 2c 2c 55 72 25 3a e1  |:..&400CD,,Ur%:.|
00001e20  0d 02 55 ea dd f2 55 57  3a f2 5a 63 3a f2 5a 64  |..U...UW:.Zc:.Zd|
00001e30  3a f2 5a 65 3a f2 5a 66  3a 56 71 25 3d a4 59 64  |:.Ze:.Zf:Vq%=.Yd|
00001e40  28 32 34 29 3a 56 73 25  3d a4 5a 67 28 5a 68 24  |(24):Vs%=.Zg(Zh$|
00001e50  2b 22 2e 4d 65 73 73 61  67 65 73 22 29 3a f2 5a  |+".Messages"):.Z|
00001e60  69 3a f2 5a 6a 28 56 73  25 29 3a f2 58 72 3a f2  |i:.Zj(Vs%):.Xr:.|
00001e70  56 75 28 55 73 25 2c 31  30 2c 56 5a 24 29 3a f2  |Vu(Us%,10,VZ$):.|
00001e80  5a 6b 28 55 73 25 29 3a  f2 5a 58 28 55 73 25 2c  |Zk(Us%):.ZX(Us%,|
00001e90  31 34 29 3a f2 56 75 28  59 71 25 2c 39 2c 5a 6c  |14):.Vu(Yq%,9,Zl|
00001ea0  24 29 3a 5a 6d 24 3d a4  55 76 28 55 73 25 2c 31  |$):Zm$=.Uv(Us%,1|
00001eb0  31 29 3a 5a 6e 24 3d a4  56 76 28 56 73 25 2c 22  |1):Zn$=.Vv(Vs%,"|
00001ec0  63 6f 6c 6f 75 72 77 74  66 22 2c 22 22 2c 22 22  |colourwtf","",""|
00001ed0  2c 22 22 2c 22 22 29 3a  5a 6f 24 3d a4 56 76 28  |,"",""):Zo$=.Vv(|
00001ee0  56 73 25 2c 22 63 6f 6c  6f 75 72 77 74 62 22 2c  |Vs%,"colourwtb",|
00001ef0  22 22 2c 22 22 2c 22 22  2c 22 22 29 3a 56 68 25  |"","","",""):Vh%|
00001f00  3d 37 3a 56 69 25 3d 30  3a e1 0d 02 69 24 dd f2  |=7:Vi%=0:...i$..|
00001f10  5a 65 3a de 55 61 25 20  26 31 30 30 2c 55 72 25  |Ze:.Ua% &100,Ur%|
00001f20  20 5a 70 25 2c 5a 71 25  20 32 35 36 3a e1 0d 02  | Zp%,Zq% 256:...|
00001f30  6d 2e dd f2 5a 64 3a 55  59 25 3d a3 3a 55 71 25  |m...Zd:UY%=.:Uq%|
00001f40  3d a3 3a 58 61 25 3d a3  3a 57 75 25 3d a3 3a 57  |=.:Xa%=.:Wu%=.:W|
00001f50  79 25 3d a3 3a 57 78 25  3d a3 3a e1 0d 02 76 58  |y%=.:Wx%=.:...vX|
00001f60  dd f2 5a 63 3a 5a 6c 24  3d 22 31 2e 30 38 63 20  |..Zc:Zl$="1.08c |
00001f70  28 32 39 2d 4d 61 79 2d  39 34 29 22 3a 5a 68 24  |(29-May-94)":Zh$|
00001f80  3d 22 3c 44 72 61 77 53  70 61 63 65 24 44 69 72  |="<DrawSpace$Dir|
00001f90  3e 22 3a 57 6e 24 3d 22  44 72 61 77 53 70 61 63  |>":Wn$="DrawSpac|
00001fa0  65 22 3a 5a 70 25 3d 26  31 30 30 30 3a 57 70 25  |e":Zp%=&1000:Wp%|
00001fb0  3d 30 3a e1 0d 02 7e 2d  dd f2 55 66 28 59 6d 25  |=0:...~-..Uf(Ym%|
00001fc0  2c 59 6e 25 2c 5a 72 25  2c 5a 73 25 2c 5a 74 25  |,Yn%,Zr%,Zs%,Zt%|
00001fd0  2c 5a 75 25 2c 5a 76 25  29 3a c8 8e 59 6d 25 20  |,Zu%,Zv%):..Ym% |
00001fe0  ca 0d 02 80 25 c9 55 73  25 3a f2 5a 77 28 59 6e  |....%.Us%:.Zw(Yn|
00001ff0  25 2c 5a 72 25 2c 5a 73  25 2c 5a 74 25 2c 5a 75  |%,Zr%,Zs%,Zt%,Zu|
00002000  25 2c 5a 76 25 29 0d 02  81 25 c9 55 74 25 3a f2  |%,Zv%)...%.Ut%:.|
00002010  5a 78 28 59 6e 25 2c 5a  72 25 2c 5a 73 25 2c 5a  |Zx(Yn%,Zr%,Zs%,Z|
00002020  74 25 2c 5a 75 25 2c 5a  76 25 29 0d 02 82 12 7f  |t%,Zu%,Zv%).....|
00002030  3a c8 99 26 34 30 30 44  43 2c 5a 76 25 0d 02 83  |:..&400DC,Zv%...|
00002040  07 cb 3a e1 0d 02 86 29  dd f2 5a 77 28 59 6e 25  |..:....)..Zw(Yn%|
00002050  2c 5a 72 25 2c 5a 73 25  2c 5a 74 25 2c 5a 75 25  |,Zr%,Zs%,Zt%,Zu%|
00002060  2c 5a 76 25 29 3a c8 8e  5a 76 25 20 ca 0d 02 88  |,Zv%):..Zv% ....|
00002070  27 c9 31 33 3a f2 55 79  28 55 73 25 2c 31 35 2c  |'.13:.Uy(Us%,15,|
00002080  b9 29 3a e7 a4 55 76 28  55 73 25 2c 31 31 29 3d  |.):..Uv(Us%,11)=|
00002090  22 22 20 8c 0d 02 8a 21  f2 56 72 28 56 73 25 2c  |"" ....!.Vr(Vs%,|
000020a0  22 6e 6f 73 69 7a 65 22  2c 22 22 2c 22 22 2c 22  |"nosize","","","|
000020b0  22 2c 22 22 29 0d 02 8b  17 cc 3a e7 a4 55 76 28  |","").....:..Uv(|
000020c0  55 73 25 2c 31 34 29 3d  22 22 20 8c 0d 02 8d 21  |Us%,14)="" ....!|
000020d0  f2 56 72 28 56 73 25 2c  22 6e 6f 74 65 78 74 22  |.Vr(Vs%,"notext"|
000020e0  2c 22 22 2c 22 22 2c 22  22 2c 22 22 29 0d 02 8e  |,"","","","")...|
000020f0  72 cc 3a f2 56 75 28 55  74 25 2c 31 2c a4 56 76  |r.:.Vu(Ut%,1,.Vv|
00002100  28 56 73 25 2c 22 73 61  76 65 77 31 22 2c 22 22  |(Vs%,"savew1",""|
00002110  2c 22 22 2c 22 22 2c 22  22 29 29 3a 55 72 25 21  |,"","","")):Ur%!|
00002120  30 3d 55 73 25 3a c8 99  26 34 30 30 43 43 2c 2c  |0=Us%:..&400CC,,|
00002130  55 72 25 3a f2 56 77 28  55 72 25 21 28 34 2b 30  |Ur%:.Vw(Ur%!(4+0|
00002140  29 2b 31 32 38 2c 55 72  25 21 28 34 2b 31 32 29  |)+128,Ur%!(4+12)|
00002150  2d 31 32 38 2c 55 74 25  29 3a 56 78 25 3d 30 0d  |-128,Ut%):Vx%=0.|
00002160  02 94 05 cd 0d 02 95 13  cd 3a f2 55 79 28 55 73  |.........:.Uy(Us|
00002170  25 2c 31 35 2c a3 29 0d  02 97 12 7f 3a c8 99 26  |%,15,.).....:..&|
00002180  34 30 30 44 43 2c 5a 76  25 0d 02 98 07 cb 3a e1  |400DC,Zv%.....:.|
00002190  0d 02 9b 29 dd f2 5a 78  28 59 6e 25 2c 5a 72 25  |...)..Zx(Yn%,Zr%|
000021a0  2c 5a 73 25 2c 5a 74 25  2c 5a 75 25 2c 5a 76 25  |,Zs%,Zt%,Zu%,Zv%|
000021b0  29 3a c8 8e 5a 76 25 20  ca 0d 02 9d 31 c9 31 33  |):..Zv% ....1.13|
000021c0  3a f2 55 79 28 55 74 25  2c 33 2c b9 29 3a f2 58  |:.Uy(Ut%,3,.):.X|
000021d0  64 28 a4 55 76 28 55 74  25 2c 31 29 29 3a f2 55  |d(.Uv(Ut%,1)):.U|
000021e0  79 28 55 74 25 2c 33 2c  a3 29 0d 02 a0 12 7f 3a  |y(Ut%,3,.).....:|
000021f0  c8 99 26 34 30 30 44 43  2c 5a 76 25 0d 02 a1 07  |..&400DC,Zv%....|
00002200  cb 3a e1 0d 02 a4 17 dd  f2 58 56 3a c8 99 26 34  |.:.......XV:..&4|
00002210  30 30 44 34 2c 2c 2d 31  3a e1 0d 02 a8 81 dd f2  |00D4,,-1:.......|
00002220  55 67 28 58 76 25 29 3a  ea 59 78 25 2c 59 79 25  |Ug(Xv%):.Yx%,Yy%|
00002230  2c 5a 79 25 3a c8 99 26  34 30 30 43 46 2c 2c 55  |,Zy%:..&400CF,,U|
00002240  72 25 3a 59 78 25 3d 55  72 25 21 30 3a 59 79 25  |r%:Yx%=Ur%!0:Yy%|
00002250  3d 55 72 25 21 34 3a 5a  79 25 3d 55 72 25 21 38  |=Ur%!4:Zy%=Ur%!8|
00002260  3a c8 99 26 34 30 30 41  30 2c 30 2c 58 70 25 2c  |:..&400A0,0,Xp%,|
00002270  58 76 25 2c 55 72 25 2c  5a 70 25 3a 56 5a 24 3d  |Xv%,Ur%,Zp%:VZ$=|
00002280  c1 a4 58 73 28 55 72 25  29 2c 33 29 3a e7 a7 56  |..Xs(Ur%),3):..V|
00002290  5a 24 2c 22 5c 22 29 3e  30 20 8c 0d 02 af 19 56  |Z$,"\")>0 .....V|
000022a0  5a 24 3d c0 56 5a 24 2c  a7 56 5a 24 2c 22 5c 22  |Z$=.VZ$,.VZ$,"\"|
000022b0  29 2d 31 29 0d 02 b0 25  cd 3a f2 58 74 3a e7 5a  |)-1)...%.:.Xt:.Z|
000022c0  79 25 3d 31 20 8c f2 56  77 28 59 78 25 2d 36 34  |y%=1 ..Vw(Yx%-64|
000022d0  2c 59 79 25 2c 58 70 25  29 0d 02 b3 15 f2 56 75  |,Yy%,Xp%).....Vu|
000022e0  28 55 73 25 2c 31 30 2c  56 5a 24 29 3a e1 0d 02  |(Us%,10,VZ$):...|
000022f0  b6 29 dd f2 56 77 28 78  25 2c 79 25 2c 5a 7a 25  |.)..Vw(x%,y%,Zz%|
00002300  29 3a c8 99 26 34 30 30  44 34 2c 2c 5a 7a 25 2c  |):..&400D4,,Zz%,|
00002310  78 25 2c 79 25 3a e1 0d  02 ba 30 dd a4 61 55 28  |x%,y%:....0..aU(|
00002320  61 56 25 2c 61 57 25 29  3a ea 61 58 25 3a c8 99  |aV%,aW%):.aX%:..|
00002330  26 33 35 2c 61 56 25 2c  61 57 25 20 b8 2c 2c 61  |&35,aV%,aW% .,,a|
00002340  58 25 3a 3d 61 58 25 0d  02 bf 51 dd f2 5a 57 28  |X%:=aX%...Q..ZW(|
00002350  f8 55 6f 25 2c f8 55 70  25 29 3a 55 6f 25 3d 28  |.Uo%,.Up%):Uo%=(|
00002360  a4 61 55 28 2d 31 2c 31  31 29 2b 31 29 3c 3c a4  |.aU(-1,11)+1)<<.|
00002370  61 55 28 2d 31 2c 34 29  3a 55 70 25 3d 28 a4 61  |aU(-1,4):Up%=(.a|
00002380  55 28 2d 31 2c 31 32 29  2b 31 29 3c 3c a4 61 55  |U(-1,12)+1)<<.aU|
00002390  28 2d 31 2c 35 29 3a e1  0d 02 c4 25 dd f2 55 64  |(-1,5):....%..Ud|
000023a0  28 59 78 25 2c 59 79 25  2c 5a 79 25 2c 59 6d 25  |(Yx%,Yy%,Zy%,Ym%|
000023b0  2c 59 6e 25 29 3a c8 8e  59 6d 25 20 ca 0d 02 c6  |,Yn%):..Ym% ....|
000023c0  1d c9 55 7a 25 3a f2 61  59 28 59 78 25 2c 59 79  |..Uz%:.aY(Yx%,Yy|
000023d0  25 2c 5a 79 25 2c 59 6e  25 29 0d 02 c7 1d c9 55  |%,Zy%,Yn%).....U|
000023e0  73 25 3a f2 61 5a 28 59  78 25 2c 59 79 25 2c 5a  |s%:.aZ(Yx%,Yy%,Z|
000023f0  79 25 2c 59 6e 25 29 0d  02 c8 1d c9 55 74 25 3a  |y%,Yn%).....Ut%:|
00002400  f2 61 61 28 59 78 25 2c  59 79 25 2c 5a 79 25 2c  |.aa(Yx%,Yy%,Zy%,|
00002410  59 6e 25 29 0d 02 c9 07  cb 3a e1 0d 02 cc 23 dd  |Yn%).....:....#.|
00002420  f2 61 59 28 59 78 25 2c  59 79 25 2c 5a 79 25 2c  |.aY(Yx%,Yy%,Zy%,|
00002430  59 6e 25 29 3a e7 5a 79  25 3c 3e 32 20 8c 0d 02  |Yn%):.Zy%<>2 ...|
00002440  ce 16 e7 59 6e 25 3e 3d  30 20 80 59 6e 25 3c 3d  |...Yn%>=0 .Yn%<=|
00002450  31 35 20 8c 0d 02 cf 25  56 57 25 3d 59 6e 25 3a  |15 ....%VW%=Yn%:|
00002460  e7 20 ac 56 56 25 20 8c  f2 56 55 28 55 7a 25 2c  |. .VV% ..VU(Uz%,|
00002470  31 36 2c 37 2c 56 57 25  29 0d 02 d1 0d cc 3a c8  |16,7,VW%).....:.|
00002480  8e 59 6e 25 20 ca 0d 02  d3 3f c9 31 37 3a 56 56  |.Yn% ....?.17:VV|
00002490  25 3d a4 5a 59 28 55 7a  25 2c 31 37 29 3a e7 56  |%=.ZY(Uz%,17):.V|
000024a0  56 25 20 8c f2 56 55 28  55 7a 25 2c 31 36 2c 31  |V% ..VU(Uz%,16,1|
000024b0  2c 31 29 8b f2 56 55 28  55 7a 25 2c 31 36 2c 37  |,1)..VU(Uz%,16,7|
000024c0  2c 56 57 25 29 0d 02 d5  1f c9 31 38 3a e7 59 70  |,VW%).....18:.Yp|
000024d0  25 3d 30 20 8c 56 57 25  3d 56 68 25 8b 56 57 25  |%=0 .VW%=Vh%.VW%|
000024e0  3d 56 69 25 0d 02 d6 2e  e7 56 57 25 3d 2d 31 20  |=Vi%.....VW%=-1 |
000024f0  8c f2 56 55 28 55 7a 25  2c 31 36 2c 31 2c 31 29  |..VU(Uz%,16,1,1)|
00002500  8b f2 56 55 28 55 7a 25  2c 31 36 2c 37 2c 56 57  |..VU(Uz%,16,7,VW|
00002510  25 29 0d 02 d7 2c 56 56  25 3d 28 56 57 25 3d 2d  |%)...,VV%=(VW%=-|
00002520  31 29 3a f2 55 79 28 55  7a 25 2c 31 37 2c 56 56  |1):.Uy(Uz%,17,VV|
00002530  25 29 3a e7 5a 79 25 3d  34 20 8c f2 58 56 0d 02  |%):.Zy%=4 ..XV..|
00002540  da 14 c9 31 39 3a e7 56  56 25 20 8c 56 57 25 3d  |...19:.VV% .VW%=|
00002550  2d 31 0d 02 db 0c e7 59  70 25 3d 30 20 8c 0d 02  |-1.....Yp%=0 ...|
00002560  dc 15 56 68 25 3d 56 57  25 3a e7 56 68 25 3d 2d  |..Vh%=VW%:.Vh%=-|
00002570  31 20 8c 0d 02 de 21 f2  56 55 28 55 73 25 2c 38  |1 ....!.VU(Us%,8|
00002580  2c 37 2c 31 29 3a f2 56  75 28 55 73 25 2c 38 2c  |,7,1):.Vu(Us%,8,|
00002590  22 4e 22 29 0d 02 e0 24  cc 3a f2 56 55 28 55 73  |"N")...$.:.VU(Us|
000025a0  25 2c 38 2c 37 2c 56 68  25 29 3a f2 56 75 28 55  |%,8,7,Vh%):.Vu(U|
000025b0  73 25 2c 38 2c 22 22 29  0d 02 e3 05 cd 0d 02 e4  |s%,8,"")........|
000025c0  17 cc 3a 56 69 25 3d 56  57 25 3a e7 56 69 25 3d  |..:Vi%=VW%:.Vi%=|
000025d0  2d 31 20 8c 0d 02 e7 21  f2 56 55 28 55 73 25 2c  |-1 ....!.VU(Us%,|
000025e0  39 2c 37 2c 31 29 3a f2  56 75 28 55 73 25 2c 39  |9,7,1):.Vu(Us%,9|
000025f0  2c 22 4e 22 29 0d 02 e9  24 cc 3a f2 56 55 28 55  |,"N")...$.:.VU(U|
00002600  73 25 2c 39 2c 37 2c 56  69 25 29 3a f2 56 75 28  |s%,9,7,Vi%):.Vu(|
00002610  55 73 25 2c 39 2c 22 22  29 0d 02 ec 05 cd 0d 02  |Us%,9,"").......|
00002620  ed 11 cd 3a e7 5a 79 25  3d 34 20 8c f2 58 56 0d  |...:.Zy%=4 ..XV.|
00002630  02 ef 05 cb 0d 02 f0 05  cd 0d 02 f1 07 cd 3a e1  |..............:.|
00002640  0d 02 f4 3c dd f2 61 5a  28 59 78 25 2c 59 79 25  |...<..aZ(Yx%,Yy%|
00002650  2c 5a 79 25 2c 59 6e 25  29 3a ea 61 62 25 2c 61  |,Zy%,Yn%):.ab%,a|
00002660  63 25 2c 61 64 25 2c 61  65 25 2c 56 64 24 2c 61  |c%,ad%,ae%,Vd$,a|
00002670  66 25 3a e7 5a 79 25 3c  3e 32 20 8c 0d 02 f7 0b  |f%:.Zy%<>2 .....|
00002680  c8 8e 59 6e 25 20 ca 0d  02 f8 71 c9 35 3a f2 58  |..Yn% ....q.5:.X|
00002690  74 3a f2 61 67 28 55 73  25 2c 61 64 25 2c 61 65  |t:.ag(Us%,ad%,ae|
000026a0  25 29 3a 55 72 25 21 30  3d 55 73 25 3a 55 72 25  |%):Ur%!0=Us%:Ur%|
000026b0  21 34 3d 35 3a c8 99 26  34 30 30 43 45 2c 2c 55  |!4=5:..&400CE,,U|
000026c0  72 25 3a 61 62 25 3d 55  72 25 21 28 38 2b 38 29  |r%:ab%=Ur%!(8+8)|
000026d0  2b 61 64 25 3a 61 63 25  3d 55 72 25 21 28 38 2b  |+ad%:ac%=Ur%!(8+|
000026e0  31 32 29 2b 61 65 25 3a  f2 56 77 28 61 62 25 2c  |12)+ae%:.Vw(ab%,|
000026f0  61 63 25 2c 58 70 25 29  0d 02 fe 42 c9 36 2c 37  |ac%,Xp%)...B.6,7|
00002700  3a 56 64 24 3d a4 55 76  28 55 73 25 2c 31 31 29  |:Vd$=.Uv(Us%,11)|
00002710  3a c8 99 26 34 30 30 44  33 2c 2c 55 72 25 3a e7  |:..&400D3,,Ur%:.|
00002720  55 72 25 21 30 3d 55 73  25 20 80 55 72 25 21 34  |Ur%!0=Us% .Ur%!4|
00002730  3d 31 31 20 8c 61 66 25  3d b9 0d 03 01 0d e7 56  |=11 .af%=......V|
00002740  64 24 3d 22 22 20 8c 0d  03 02 0b 56 64 24 3d 5a  |d$="" .....Vd$=Z|
00002750  6d 24 0d 03 03 2e cc 3a  56 64 24 3d c3 28 bb 28  |m$.....:Vd$=.(.(|
00002760  56 64 24 29 2b 28 28 59  6e 25 3d 36 29 2d 28 59  |Vd$)+((Yn%=6)-(Y|
00002770  6e 25 3d 37 29 29 2a b4  28 5a 79 25 2d 32 29 29  |n%=7))*.(Zy%-2))|
00002780  0d 03 05 18 cd 3a e7 bb  28 56 64 24 29 3c 31 20  |.....:..(Vd$)<1 |
00002790  8c 56 64 24 3d 22 31 22  0d 03 07 25 f2 56 75 28  |.Vd$="1"...%.Vu(|
000027a0  55 73 25 2c 31 31 2c 56  64 24 29 3a e7 61 66 25  |Us%,11,Vd$):.af%|
000027b0  20 8c f2 5a 58 28 55 73  25 2c 31 31 29 0d 03 09  | ..ZX(Us%,11)...|
000027c0  3b c9 31 32 3a f2 61 68  28 55 7a 25 2c 5a 6e 24  |;.12:.ah(Uz%,Zn$|
000027d0  29 3a f2 55 77 28 56 68  25 29 3a f2 56 77 28 59  |):.Uw(Vh%):.Vw(Y|
000027e0  78 25 2d 31 32 38 2c 59  79 25 2b 34 38 2c 55 7a  |x%-128,Yy%+48,Uz|
000027f0  25 29 3a 59 70 25 3d 30  0d 03 0d 3b c9 31 33 3a  |%):Yp%=0...;.13:|
00002800  f2 61 68 28 55 7a 25 2c  5a 6f 24 29 3a f2 55 77  |.ah(Uz%,Zo$):.Uw|
00002810  28 56 69 25 29 3a f2 56  77 28 59 78 25 2d 31 32  |(Vi%):.Vw(Yx%-12|
00002820  38 2c 59 79 25 2b 34 38  2c 55 7a 25 29 3a 59 70  |8,Yy%+48,Uz%):Yp|
00002830  25 3d 31 0d 03 11 19 c9  31 35 3a e7 a4 55 76 28  |%=1.....15:..Uv(|
00002840  55 73 25 2c 31 31 29 3d  22 22 20 8c 0d 03 12 21  |Us%,11)="" ....!|
00002850  f2 56 72 28 56 73 25 2c  22 6e 6f 73 69 7a 65 22  |.Vr(Vs%,"nosize"|
00002860  2c 22 22 2c 22 22 2c 22  22 2c 22 22 29 0d 03 13  |,"","","","")...|
00002870  17 cc 3a e7 a4 55 76 28  55 73 25 2c 31 34 29 3d  |..:..Uv(Us%,14)=|
00002880  22 22 20 8c 0d 03 15 21  f2 56 72 28 56 73 25 2c  |"" ....!.Vr(Vs%,|
00002890  22 6e 6f 74 65 78 74 22  2c 22 22 2c 22 22 2c 22  |"notext","","","|
000028a0  22 2c 22 22 29 0d 03 16  4b cc 3a f2 56 75 28 55  |","")...K.:.Vu(U|
000028b0  74 25 2c 31 2c a4 56 76  28 56 73 25 2c 22 73 61  |t%,1,.Vv(Vs%,"sa|
000028c0  76 65 77 31 22 2c 22 22  2c 22 22 2c 22 22 2c 22  |vew1","","","","|
000028d0  22 29 29 3a f2 56 77 28  59 78 25 2d 36 34 2c 59  |")):.Vw(Yx%-64,Y|
000028e0  79 25 2b 33 32 2c 55 74  25 29 3a 56 78 25 3d 30  |y%+32,Ut%):Vx%=0|
000028f0  0d 03 1a 05 cd 0d 03 1b  05 cd 0d 03 1c 1f c9 31  |...............1|
00002900  36 3a f2 56 77 28 59 78  25 2d 32 35 36 2c 59 79  |6:.Vw(Yx%-256,Yy|
00002910  25 2b 39 36 2c 59 71 25  29 0d 03 1d 05 cb 0d 03  |%+96,Yq%).......|
00002920  1e 07 cd 3a e1 0d 03 21  21 dd f2 61 61 28 59 78  |...:...!!..aa(Yx|
00002930  25 2c 59 79 25 2c 5a 79  25 2c 59 6e 25 29 3a c8  |%,Yy%,Zy%,Yn%):.|
00002940  8e 5a 79 25 20 ca 0d 03  23 10 c9 31 2c 34 3a c8  |.Zy% ...#..1,4:.|
00002950  8e 59 6e 25 20 ca 0d 03  25 0e c9 32 3a c8 8e 56  |.Yn% ...%..2:..V|
00002960  78 25 20 ca 0d 03 26 2f  c9 30 3a f2 56 75 28 55  |x% ...&/.0:.Vu(U|
00002970  74 25 2c 31 2c a4 56 76  28 56 73 25 2c 22 73 61  |t%,1,.Vv(Vs%,"sa|
00002980  76 65 77 31 22 2c 22 22  2c 22 22 2c 22 22 2c 22  |vew1","","","","|
00002990  22 29 29 0d 03 27 2e c9  31 3a f2 56 75 28 55 74  |"))..'..1:.Vu(Ut|
000029a0  25 2c 31 2c a4 56 76 28  56 73 25 2c 22 70 6e 61  |%,1,.Vv(Vs%,"pna|
000029b0  6d 65 22 2c 22 22 2c 22  22 2c 22 22 2c 22 22 29  |me","","","","")|
000029c0  29 0d 03 28 1c cb 3a f2  5a 58 28 55 74 25 2c 31  |)..(..:.ZX(Ut%,1|
000029d0  29 3a e7 5a 79 25 3d 34  20 8c f2 58 56 0d 03 2b  |):.Zy%=4 ..XV..+|
000029e0  16 c9 33 3a f2 58 64 28  a4 55 76 28 55 74 25 2c  |..3:.Xd(.Uv(Ut%,|
000029f0  31 29 29 0d 03 2c 05 cb  0d 03 2d 2d c9 36 34 3a  |1))..,....--.64:|
00002a00  e7 59 6e 25 3d 30 20 8c  f2 59 77 28 55 74 25 2c  |.Yn%=0 ..Yw(Ut%,|
00002a10  30 2c 59 78 25 2c 59 79  25 2c 22 66 69 6c 65 5f  |0,Yx%,Yy%,"file_|
00002a20  61 66 66 22 29 0d 03 2e  07 cb 3a e1 0d 03 31 3e  |aff").....:...1>|
00002a30  dd a4 61 69 28 56 73 25  2c 61 6a 24 29 3a ea 61  |..ai(Vs%,aj$):.a|
00002a40  6b 25 3a c8 99 26 34 31  35 30 32 2c 56 73 25 2c  |k%:..&41502,Vs%,|
00002a50  61 6a 24 2c 30 2c 2c 30  2c 30 2c 30 2c 30 20 b8  |aj$,0,,0,0,0,0 .|
00002a60  2c 2c 61 6b 25 3a 3d 61  6b 25 0d 03 36 34 dd f2  |,,ak%:=ak%..64..|
00002a70  57 6c 28 56 73 25 29 3a  c8 99 26 34 31 35 30 34  |Wl(Vs%):..&41504|
00002a80  2c 56 73 25 3a e7 56 73  25 21 38 3c 3e 30 20 8c  |,Vs%:.Vs%!8<>0 .|
00002a90  f2 57 62 28 56 71 25 2c  56 73 25 21 38 29 0d 03  |.Wb(Vq%,Vs%!8)..|
00002aa0  39 12 c8 99 26 31 45 2c  37 2c 2c 56 73 25 3a e1  |9...&1E,7,,Vs%:.|
00002ab0  0d 03 3c 75 dd f2 56 72  28 56 73 25 2c 61 6a 24  |..<u..Vr(Vs%,aj$|
00002ac0  2c 59 68 24 2c 59 69 24  2c 59 6a 24 2c 59 6b 24  |,Yh$,Yi$,Yj$,Yk$|
00002ad0  29 3a ea 56 6d 25 3a 55  72 25 21 30 3d 31 37 3a  |):.Vm%:Ur%!0=17:|
00002ae0  24 28 55 72 25 2b 34 29  3d 61 6a 24 2b bd 28 30  |$(Ur%+4)=aj$+.(0|
00002af0  29 3a c8 99 26 36 31 35  30 36 2c 55 72 25 2c 56  |):..&61506,Ur%,V|
00002b00  73 25 2c 30 2c 2c 59 68  24 2c 59 69 24 2c 59 6a  |s%,0,,Yh$,Yi$,Yj|
00002b10  24 2c 59 6b 24 20 b8 56  6d 25 3a f2 56 74 28 56  |$,Yk$ .Vm%:.Vt(V|
00002b20  6d 25 29 3a e1 0d 03 43  b6 dd a4 61 6c 28 56 73  |m%):...C...al(Vs|
00002b30  25 2c 61 6a 24 2c 59 68  24 2c 59 69 24 2c 59 6a  |%,aj$,Yh$,Yi$,Yj|
00002b40  24 2c 59 6b 24 2c 61 6d  25 29 3a ea 56 6d 25 2c  |$,Yk$,am%):.Vm%,|
00002b50  61 6e 25 3a c8 99 26 34  30 30 44 30 2c 2c 2d 31  |an%:..&400D0,,-1|
00002b60  3a 55 72 25 21 30 3d 31  37 3a 24 28 55 72 25 2b  |:Ur%!0=17:$(Ur%+|
00002b70  34 29 3d 61 6a 24 2b bd  28 30 29 3a c8 99 26 36  |4)=aj$+.(0):..&6|
00002b80  31 35 30 36 2c 55 72 25  2c 56 73 25 2c 30 2c 2c  |1506,Ur%,Vs%,0,,|
00002b90  59 68 24 2c 59 69 24 2c  59 6a 24 2c 59 6b 24 20  |Yh$,Yi$,Yj$,Yk$ |
00002ba0  b8 56 6d 25 3a c8 99 26  34 30 30 44 46 2c 56 6d  |.Vm%:..&400DF,Vm|
00002bb0  25 2c 61 6d 25 2b 31 36  2c 22 4d 65 73 73 61 67  |%,am%+16,"Messag|
00002bc0  65 20 66 72 6f 6d 20 22  2b 57 6e 24 20 b8 2c 61  |e from "+Wn$ .,a|
00002bd0  6e 25 3a 3d 28 61 6e 25  3d 31 29 0d 03 4b 56 dd  |n%:=(an%=1)..KV.|
00002be0  a4 5a 67 28 57 71 24 29  3a ea 56 73 25 2c 58 76  |.Zg(Wq$):.Vs%,Xv|
00002bf0  25 2c 59 75 25 2c 58 79  25 3a c8 99 26 34 31 35  |%,Yu%,Xy%:..&415|
00002c00  30 30 2c 2c 57 71 24 20  b8 59 75 25 2c 2c 58 79  |00,,Wq$ .Yu%,,Xy|
00002c10  25 3a e7 59 75 25 20 80  31 20 8c 58 76 25 3d 30  |%:.Yu% .1 .Xv%=0|
00002c20  8b 58 76 25 3d a4 56 70  28 56 71 25 2c 58 79 25  |.Xv%=.Vp(Vq%,Xy%|
00002c30  29 0d 03 4f 0d e7 58 76  25 3d 2d 31 20 8c 0d 03  |)..O..Xv%=-1 ...|
00002c40  50 24 f2 56 72 28 56 73  25 2c 22 6d 65 6d 66 75  |P$.Vr(Vs%,"memfu|
00002c50  6c 6c 22 2c 22 22 2c 22  22 2c 22 22 2c 22 22 29  |ll","","","","")|
00002c60  3a e0 0d 03 52 2e cc 3a  c8 99 26 31 45 2c 36 2c  |:...R..:..&1E,6,|
00002c70  2c 2c 31 36 20 b8 2c 2c  56 73 25 3a c8 99 26 34  |,,16 .,,Vs%:..&4|
00002c80  31 35 30 31 2c 56 73 25  2c 57 71 24 2c 58 76 25  |1501,Vs%,Wq$,Xv%|
00002c90  0d 03 55 0a cd 3a 3d 56  73 25 0d 03 58 5b dd a4  |..U..:=Vs%..X[..|
00002ca0  56 76 28 56 73 25 2c 61  6a 24 2c 59 68 24 2c 59  |Vv(Vs%,aj$,Yh$,Y|
00002cb0  69 24 2c 59 6a 24 2c 59  6b 24 29 3a c8 99 26 34  |i$,Yj$,Yk$):..&4|
00002cc0  31 35 30 32 2c 56 73 25  2c 61 6a 24 2c 5a 71 25  |1502,Vs%,aj$,Zq%|
00002cd0  2c 32 35 36 2c 59 68 24  2c 59 69 24 2c 59 6a 24  |,256,Yh$,Yi$,Yj$|
00002ce0  2c 59 6b 24 20 b8 2c 2c  61 6b 25 3a 3d a4 58 73  |,Yk$ .,,ak%:=.Xs|
00002cf0  28 5a 71 25 29 0d 03 5c  28 dd a4 55 61 28 61 6f  |(Zq%)..\(..Ua(ao|
00002d00  25 29 3a c8 99 26 34 30  30 43 37 2c 61 6f 25 2c  |%):..&400C7,ao%,|
00002d10  55 61 25 20 b8 61 70 25  3a 3d 61 70 25 0d 03 60  |Ua% .ap%:=ap%..`|
00002d20  3a dd f2 5a 66 3a 24 28  55 72 25 2b 30 29 3d 22  |:..Zf:$(Ur%+0)="|
00002d30  54 41 53 4b 22 3a c8 99  26 34 30 30 43 30 2c 33  |TASK":..&400C0,3|
00002d40  31 30 2c 55 72 25 21 30  2c 57 6e 24 2c 2d 31 20  |10,Ur%!0,Wn$,-1 |
00002d50  b8 2c 58 6b 25 3a e1 0d  03 65 2d dd f2 57 6d 3a  |.,Xk%:...e-..Wm:|
00002d60  24 28 55 72 25 2b 30 29  3d 22 54 41 53 4b 22 3a  |$(Ur%+0)="TASK":|
00002d70  c8 99 26 34 30 30 44 44  2c 58 6b 25 2c 55 72 25  |..&400DD,Xk%,Ur%|
00002d80  21 30 3a e1 0d 03 6a 2e  dd f2 55 68 28 58 79 25  |!0:...j...Uh(Xy%|
00002d90  2c 61 71 25 2c 61 72 25  2c 61 73 25 2c 61 74 25  |,aq%,ar%,as%,at%|
00002da0  2c 61 75 25 29 3a ea 56  6c 24 3a c8 8e 61 74 25  |,au%):.Vl$:..at%|
00002db0  20 ca 0d 03 6d 0c c9 30  3a 55 59 25 3d b9 0d 03  | ...m..0:UY%=...|
00002dc0  6e 15 c9 31 3a e7 55 61  25 21 34 30 3d 26 61 66  |n..1:.Ua%!40=&af|
00002dd0  66 20 8c 0d 03 6f 15 f2  57 73 28 55 61 25 21 33  |f ...o..Ws(Ua%!3|
00002de0  36 29 3a 57 78 25 3d b9  0d 03 71 24 cc 3a f2 56  |6):Wx%=...q$.:.V|
00002df0  72 28 56 73 25 2c 22 6e  6f 74 64 72 61 77 22 2c  |r(Vs%,"notdraw",|
00002e00  22 22 2c 22 22 2c 22 22  2c 22 22 29 0d 03 73 05  |"","","","")..s.|
00002e10  cd 0d 03 74 26 c9 32 3a  f2 57 7a 28 a4 58 73 28  |...t&.2:.Wz(.Xs(|
00002e20  55 61 25 2b 34 34 29 2c  55 61 25 21 33 36 3c 3e  |Ua%+44),Ua%!36<>|
00002e30  2d 31 29 3a f2 58 66 0d  03 76 26 c9 33 3a 56 6c  |-1):.Xf..v&.3:Vl|
00002e40  24 3d a4 58 73 28 55 61  25 2b 34 34 29 3a e7 55  |$=.Xs(Ua%+44):.U|
00002e50  61 25 21 34 30 3c 3e 26  61 66 66 20 8c 0d 03 78  |a%!40<>&aff ...x|
00002e60  22 f2 56 72 28 56 73 25  2c 22 6e 6f 74 64 72 61  |".Vr(Vs%,"notdra|
00002e70  77 22 2c 22 22 2c 22 22  2c 22 22 2c 22 22 29 0d  |w","","","","").|
00002e80  03 79 0e cc 3a f2 56 6b  28 56 6c 24 29 0d 03 7b  |.y..:.Vk(Vl$)..{|
00002e90  1a cd 3a e7 57 75 25 20  8c f2 57 72 28 56 6c 24  |..:.Wu% ..Wr(Vl$|
00002ea0  29 3a 57 75 25 3d a3 0d  03 7d 1a c9 36 3a e7 20  |):Wu%=...}..6:. |
00002eb0  ac 57 79 25 20 80 55 61  25 21 34 3d 58 6b 25 20  |.Wy% .Ua%!4=Xk% |
00002ec0  8c 0d 03 7e 1d 57 75 25  3d b9 3a f2 57 76 28 22  |...~.Wu%=.:.Wv("|
00002ed0  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 29 0d 03  |<Wimp$Scrap>")..|
00002ee0  80 12 cc 3a e7 55 61 25  21 34 3d 58 6b 25 20 8c  |...:.Ua%!4=Xk% .|
00002ef0  0d 03 82 10 f2 57 62 28  56 71 25 2c 56 6f 25 29  |.....Wb(Vq%,Vo%)|
00002f00  0d 03 83 13 cc 3a e7 58  61 25 20 8c f2 58 63 8b  |.....:.Xa% ..Xc.|
00002f10  f2 58 57 0d 03 85 05 cd  0d 03 86 05 cd 0d 03 87  |.XW.............|
00002f20  12 c9 37 3a e7 57 78 25  20 8c 57 79 25 3d b9 0d  |..7:.Wx% .Wy%=..|
00002f30  03 88 0d e7 57 79 25 20  8c f2 57 77 0d 03 89 1c  |....Wy% ..Ww....|
00002f40  c9 26 35 30 32 3a f2 59  6c 28 55 61 25 21 33 32  |.&502:.Yl(Ua%!32|
00002f50  2c 55 61 25 21 33 36 29  0d 03 8a 2d c9 26 34 30  |,Ua%!36)...-.&40|
00002f60  30 43 32 3a e7 61 71 25  3c 3e 58 6b 25 20 80 a4  |0C2:.aq%<>Xk% ..|
00002f70  58 73 28 55 61 25 2b 32  38 29 3d 57 6e 24 20 8c  |Xs(Ua%+28)=Wn$ .|
00002f80  55 59 25 3d b9 0d 03 8b  07 cb 3a e1 0d 03 8e 1d  |UY%=......:.....|
00002f90  dd a4 56 6a 28 61 76 25  29 3a ea 61 6e 25 3a e7  |..Vj(av%):.an%:.|
00002fa0  61 76 25 3c 3e 2d 31 20  8c 0d 03 91 2e c8 99 26  |av%<>-1 .......&|
00002fb0  34 30 30 45 35 2c 2c 55  72 25 3a 61 6e 25 3d 28  |400E5,,Ur%:an%=(|
00002fc0  55 72 25 21 28 61 76 25  2a 34 29 29 20 80 26 46  |Ur%!(av%*4)) .&F|
00002fd0  46 46 46 46 46 30 30 0d  03 93 13 cc 3a 61 6e 25  |FFFFF00.....:an%|
00002fe0  3d 26 46 46 46 46 46 46  46 46 0d 03 95 0a cd 3a  |=&FFFFFFFF.....:|
00002ff0  3d 61 6e 25 0d 03 98 35  dd f2 55 63 28 59 6d 25  |=an%...5..Uc(Ym%|
00003000  29 3a 55 72 25 21 30 3d  59 6d 25 3a c8 99 26 34  |):Ur%!0=Ym%:..&4|
00003010  30 30 43 36 2c 2c 55 72  25 3a e7 59 6d 25 3d 55  |00C6,,Ur%:.Ym%=U|
00003020  73 25 20 8c 55 59 25 3d  b9 0d 03 9c 05 e1 0d 03  |s% .UY%=........|
00003030  9e 97 dd a4 77 63 28 f8  59 6d 25 2c 61 77 24 2c  |....wc(.Ym%,aw$,|
00003040  61 78 25 29 3a ea 61 79  25 2c 61 7a 25 2c 58 6e  |ax%):.ay%,az%,Xn|
00003050  25 2c 58 6f 25 3a c8 99  26 34 30 30 44 42 2c 2c  |%,Xo%:..&400DB,,|
00003060  2d 31 2c 2c 2c 2d 31 2c  61 77 24 2c 30 20 b8 2c  |-1,,,-1,aw$,0 .,|
00003070  58 6e 25 2c 58 6f 25 3a  de 61 79 25 20 58 6e 25  |Xn%,Xo%:.ay% Xn%|
00003080  2c 61 7a 25 20 58 6f 25  3a c8 99 26 34 30 30 44  |,az% Xo%:..&400D|
00003090  42 2c 2c 61 79 25 2c 61  7a 25 2c 61 7a 25 2b 58  |B,,ay%,az%,az%+X|
000030a0  6f 25 2c 2d 31 2c 61 77  24 2c 30 3a e7 61 78 25  |o%,-1,aw$,0:.ax%|
000030b0  20 8c 61 79 25 21 36 34  3d 62 55 25 8b 61 79 25  | .ay%!64=bU%.ay%|
000030c0  21 36 34 3d 31 0d 03 a4  19 c8 99 26 34 30 30 43  |!64=1......&400C|
000030d0  31 2c 2c 61 79 25 20 b8  59 6d 25 3a 3d 30 0d 03  |1,,ay% .Ym%:=0..|
000030e0  a7 fb dd f2 5a 6a 28 56  73 25 29 3a ea 62 56 25  |....Zj(Vs%):.bV%|
000030f0  3a e3 62 56 25 3d 31 37  20 b8 31 39 3a f2 56 75  |:.bV%=17 .19:.Vu|
00003100  28 55 7a 25 2c 62 56 25  2c a4 56 76 28 56 73 25  |(Uz%,bV%,.Vv(Vs%|
00003110  2c 22 63 6f 6c 6f 75 72  77 22 2b c3 28 62 56 25  |,"colourw"+.(bV%|
00003120  29 2c 22 22 2c 22 22 2c  22 22 2c 22 22 29 29 3a  |),"","","","")):|
00003130  ed 62 56 25 3a e3 62 56  25 3d 30 20 b8 33 3a f2  |.bV%:.bV%=0 .3:.|
00003140  56 75 28 55 74 25 2c 62  56 25 2c a4 56 76 28 56  |Vu(Ut%,bV%,.Vv(V|
00003150  73 25 2c 22 73 61 76 65  77 22 2b c3 28 62 56 25  |s%,"savew"+.(bV%|
00003160  29 2c 22 22 2c 22 22 2c  22 22 2c 22 22 29 29 3a  |),"","","","")):|
00003170  ed 62 56 25 3a f2 61 68  28 55 74 25 2c a4 56 76  |.bV%:.ah(Ut%,.Vv|
00003180  28 56 73 25 2c 22 73 61  76 65 77 74 22 2c 22 22  |(Vs%,"savewt",""|
00003190  2c 22 22 2c 22 22 2c 22  22 29 29 3a e3 62 56 25  |,"","","")):.bV%|
000031a0  3d 31 20 b8 34 3a f2 56  75 28 55 73 25 2c 62 56  |=1 .4:.Vu(Us%,bV|
000031b0  25 2c a4 56 76 28 56 73  25 2c 22 6f 70 74 69 6f  |%,.Vv(Vs%,"optio|
000031c0  6e 73 77 22 2b c3 28 62  56 25 29 2c 22 22 2c 22  |nsw"+.(bV%),"","|
000031d0  22 2c 22 22 2c 22 22 29  29 0d 03 b2 e0 ed 62 56  |","","")).....bV|
000031e0  25 3a e3 62 56 25 3d 31  30 20 b8 31 36 3a f2 56  |%:.bV%=10 .16:.V|
000031f0  75 28 55 73 25 2c 62 56  25 2c a4 56 76 28 56 73  |u(Us%,bV%,.Vv(Vs|
00003200  25 2c 22 6f 70 74 69 6f  6e 73 77 22 2b c3 28 62  |%,"optionsw"+.(b|
00003210  56 25 29 2c 22 22 2c 22  22 2c 22 22 2c 22 22 29  |V%),"","","","")|
00003220  29 3a ed 62 56 25 3a f2  61 68 28 55 73 25 2c a4  |):.bV%:.ah(Us%,.|
00003230  56 76 28 56 73 25 2c 22  6f 70 74 69 6f 6e 73 77  |Vv(Vs%,"optionsw|
00003240  74 22 2c 22 22 2c 22 22  2c 22 22 2c 22 22 29 29  |t","","","",""))|
00003250  3a e3 62 56 25 3d 30 20  b8 38 3a f2 56 75 28 59  |:.bV%=0 .8:.Vu(Y|
00003260  71 25 2c 62 56 25 2c a4  56 76 28 56 73 25 2c 22  |q%,bV%,.Vv(Vs%,"|
00003270  69 6e 66 6f 77 22 2b c3  28 62 56 25 29 2c 22 22  |infow"+.(bV%),""|
00003280  2c 22 22 2c 22 22 2c 22  22 29 29 3a ed 62 56 25  |,"","","")):.bV%|
00003290  3a f2 61 68 28 59 71 25  2c a4 56 76 28 56 73 25  |:.ah(Yq%,.Vv(Vs%|
000032a0  2c 22 69 6e 66 6f 77 74  22 2c 22 22 2c 22 22 2c  |,"infowt","","",|
000032b0  22 22 2c 22 22 29 29 3a  e1 0d 03 bd 5f dd f2 5a  |"","")):...._..Z|
000032c0  69 3a ea 69 64 24 2c 62  57 25 2c 62 58 24 2c 73  |i:.id$,bW%,bX$,s|
000032d0  70 25 2c 62 59 25 2c 62  55 25 3a c8 99 26 34 30  |p%,bY%,bU%:..&40|
000032e0  30 44 39 2c 2c 5a 68 24  2b 22 2e 54 65 6d 70 6c  |0D9,,Zh$+".Templ|
000032f0  61 74 65 73 22 3a f3 62  59 25 3a e7 62 59 25 20  |ates":.bY%:.bY% |
00003300  8c 62 55 25 3d a4 62 5a  28 5a 68 24 2b 22 2e 53  |.bU%=.bZ(Zh$+".S|
00003310  70 72 69 74 65 73 22 29  0d 03 c2 73 f3 62 58 24  |prites")...s.bX$|
00003320  2c 69 64 24 2c 73 70 25  3a c8 95 69 64 24 3c 3e  |,id$,sp%:..id$<>|
00003330  22 a4 22 3a e7 73 70 25  20 80 20 ac 62 59 25 20  |".":.sp% . .bY% |
00003340  8c 85 31 37 2c 22 59 6f  75 20 6d 75 73 74 20 73  |..17,"You must s|
00003350  65 74 20 74 68 65 20 67  6c 6f 62 61 6c 20 73 70  |et the global sp|
00003360  72 69 74 65 73 20 66 6c  61 67 20 69 66 20 79 6f  |rites flag if yo|
00003370  75 20 77 61 6e 74 20 73  70 72 69 74 65 73 20 69  |u want sprites i|
00003380  6e 20 77 69 6e 64 6f 77  73 21 22 0d 03 c5 4e 62  |n windows!"...Nb|
00003390  57 25 3d a0 28 22 46 4e  77 63 28 22 2b 62 58 24  |W%=.("FNwc("+bX$|
000033a0  2b 22 2c 69 64 24 2c 73  70 25 29 22 29 3a f3 62  |+",id$,sp%)"):.b|
000033b0  58 24 2c 69 64 24 2c 73  70 25 3a ce 3a c8 99 26  |X$,id$,sp%:.:..&|
000033c0  34 30 30 44 41 2c 2c 5a  68 24 2b 22 2e 54 65 6d  |400DA,,Zh$+".Tem|
000033d0  70 6c 61 74 65 73 22 3a  e1 0d 03 cb 3e dd a4 55  |plates":....>..U|
000033e0  62 28 59 6d 25 29 3a 55  72 25 21 30 3d 59 6d 25  |b(Ym%):Ur%!0=Ym%|
000033f0  3a c8 99 26 34 30 30 43  42 2c 2c 55 72 25 3a 3d  |:..&400CB,,Ur%:=|
00003400  28 28 28 55 72 25 21 33  32 29 20 80 28 31 3c 3c  |(((Ur%!32) .(1<<|
00003410  31 36 29 29 3e 30 29 0d  03 d0 28 dd f2 55 62 28  |16))>0)...(..Ub(|
00003420  59 6d 25 2c 62 61 25 2c  62 62 25 29 3a 55 61 25  |Ym%,ba%,bb%):Ua%|
00003430  21 30 3d 59 6d 25 3a e7  20 ac 62 61 25 20 8c 0d  |!0=Ym%:. .ba% ..|
00003440  03 d3 11 c8 99 26 34 30  30 43 42 2c 2c 55 61 25  |.....&400CB,,Ua%|
00003450  0d 03 d4 20 cd 3a 55 61  25 21 32 38 3d 62 62 25  |... .:Ua%!28=bb%|
00003460  3a c8 99 26 34 30 30 43  35 2c 2c 55 61 25 3a e1  |:..&400C5,,Ua%:.|
00003470  0d 03 d9 ca dd f2 5a 6b  28 59 6d 25 29 3a ea 62  |......Zk(Ym%):.b|
00003480  63 25 2c 62 64 25 2c 55  6f 25 2c 55 70 25 3a f2  |c%,bd%,Uo%,Up%:.|
00003490  5a 57 28 55 6f 25 2c 55  70 25 29 3a 55 72 25 21  |ZW(Uo%,Up%):Ur%!|
000034a0  30 3d 59 6d 25 3a c8 99  26 34 30 30 43 42 2c 30  |0=Ym%:..&400CB,0|
000034b0  2c 55 72 25 3a 55 72 25  21 32 38 3d 2d 31 3a 62  |,Ur%:Ur%!28=-1:b|
000034c0  63 25 3d 55 72 25 21 31  32 2d 55 72 25 21 34 3a  |c%=Ur%!12-Ur%!4:|
000034d0  62 64 25 3d 55 72 25 21  31 36 2d 55 72 25 21 38  |bd%=Ur%!16-Ur%!8|
000034e0  3a 55 72 25 21 34 3d 28  55 6f 25 2d 62 63 25 29  |:Ur%!4=(Uo%-bc%)|
000034f0  2f 32 3a 55 72 25 21 38  3d 28 55 70 25 2d 62 64  |/2:Ur%!8=(Up%-bd|
00003500  25 29 2f 32 3a 55 72 25  21 31 32 3d 28 55 6f 25  |%)/2:Ur%!12=(Uo%|
00003510  2b 62 63 25 29 2f 32 3a  55 72 25 21 31 36 3d 28  |+bc%)/2:Ur%!16=(|
00003520  55 70 25 2b 62 64 25 29  2f 32 3a c8 99 26 34 30  |Up%+bd%)/2:..&40|
00003530  30 43 35 2c 2c 55 72 25  3a e1 0d 03 e8 60 dd f2  |0C5,,Ur%:....`..|
00003540  61 67 28 59 6d 25 2c f8  78 25 2c f8 79 25 29 3a  |ag(Ym%,.x%,.y%):|
00003550  55 72 25 21 30 3d 59 6d  25 3a c8 99 26 34 30 30  |Ur%!0=Ym%:..&400|
00003560  43 43 2c 2c 55 72 25 3a  78 25 3d 55 72 25 21 28  |CC,,Ur%:x%=Ur%!(|
00003570  30 2b 34 29 2d 55 72 25  21 28 31 36 2b 34 29 3a  |0+4)-Ur%!(16+4):|
00003580  79 25 3d 55 72 25 21 28  31 32 2b 34 29 2d 55 72  |y%=Ur%!(12+4)-Ur|
00003590  25 21 28 32 30 2b 34 29  3a e1 0d 03 ef 67 dd f2  |%!(20+4):....g..|
000035a0  61 68 28 59 6d 25 2c 62  65 24 29 3a 55 72 25 21  |ah(Ym%,be$):Ur%!|
000035b0  30 3d 59 6d 25 3a c8 99  26 34 30 30 43 43 2c 2c  |0=Ym%:..&400CC,,|
000035c0  55 72 25 3a 24 28 55 72  25 21 37 36 29 3d 62 65  |Ur%:$(Ur%!76)=be|
000035d0  24 3a e7 a4 55 62 28 59  6d 25 29 20 8c f2 62 66  |$:..Ub(Ym%) ..bf|
000035e0  28 a3 2c 55 72 25 21 34  2c 55 72 25 21 31 36 2c  |(.,Ur%!4,Ur%!16,|
000035f0  55 72 25 21 31 32 2c 55  72 25 21 31 36 2b 34 34  |Ur%!12,Ur%!16+44|
00003600  29 0d 03 f4 05 e1 0d 03  fa 07 dc 20 30 0d 03 fb  |).......... 0...|
00003610  15 dc 20 55 73 25 2c 22  4f 70 74 69 6f 6e 73 22  |.. Us%,"Options"|
00003620  2c 30 0d 03 fc 12 dc 20  55 74 25 2c 22 53 61 76  |,0..... Ut%,"Sav|
00003630  65 22 2c 30 0d 03 fd 14  dc 20 55 7a 25 2c 22 43  |e",0..... Uz%,"C|
00003640  6f 6c 6f 75 72 22 2c 30  0d 03 fe 12 dc 20 59 71  |olour",0..... Yq|
00003650  25 2c 22 49 6e 66 6f 22  2c 30 0d 04 00 0f dc 20  |%,"Info",0..... |
00003660  22 a4 22 2c 22 a4 22 2c  30 0d ff                 |".",".",0..|
0000366b