Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 » KeyStroke/!KeysDemo/!RUNIMAGE

KeyStroke/!KeysDemo/!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 Computing » 1993 06 Mega Disk.adf » 93_06
Filename: KeyStroke/!KeysDemo/!RUNIMAGE
Read OK:
File size: 9124 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM><Squish$Scrap> squished by MH's BASIC cruncher v1.20 14/5/89 On 08 Mar 1993
    2:PROCO:REPEAT:PROCg(6146):UNTILaa%:SYS"Wimp_CloseDown":SYS"OS_Exit"
  140DEFPROCg(ba%):SYS"Wimp_Poll",ba%,q%TOca%:CASEca%OF
  170WHEN0:IFNOTda%THENea%=-1:PROCP
  180WHEN2:PROCs
  200WHEN3:PROCQ
  210WHEN4:PROCR
  220WHEN5:PROCS
  230WHEN6:PROCT
  240WHEN7:PROCU
  250WHEN8:PROCV
  260WHEN9:PROCW
  270WHEN17,18:PROCX
  280ENDCASE
  280ENDPROC
  290
  330DEFPROCP:SYS"Wimp_GetCaretPosition",,b%:IF!b%=e%AND(b%!4)<>14THENfa%=TRUEELSEfa%=FALSE
  370da%=TRUE:ga%=FALSE:IFINKEY(-4)ANDINKEY(-7)THEN
  400PROCz
  420ELSE:SYS"OS_Byte",121,9TO,`%:IF`%<>255THEN
  440`%=c%(`%):IF`%<>-1THEN
  460ha%=-INKEY(-1)-2*INKEY(-2)-4*INKEY(-3):IFfa%AND`%<94THEN
  480$(a%+128)=FNc(e%,14):IFFNbTHENPROCh(a%,TRUE)
  500B%=`%:r%=ha%:WHILEa%(B%,r%)=-1:r%=(r%+1)MOD8:ENDWHILE:PROCi:PROCc
  580ELSE:IFa%(`%,ha%)<>-1THEN
  590IF!a%(`%,ha%)<>0THEN
  600c%=a%(`%,ha%)-4:s%=TRUE:REPEAT:c%=g%+c%!4:IFs%=TRUEOR((c%?3)AND32)=0THEN
  650IF(c%?1AND16)=16THEN
  660s%=TRUE
  680ELSE:PROCA(c%):PROCg(6146)
  710ENDIF
  710ENDIF
  720UNTILc%!4=-1:MOUSERECTANGLEia%,ja%,ka%-ia%,la%-ja%:IFNOTga%THEN
  750REPEAT:SYS"OS_Byte",122TO,ma%:UNTILma%=255
  790ENDIF
  790ENDIF
  800ENDIF
  810ENDIF
  820ENDIF
  830ENDIF
  840ENDIF
  850$(S%+128)="Keystroke$Do*":h$=FNh:WHILEh$<>"":SYS"OS_SetVarVal",S%+128,"Clear",-1,0,0:PROCB(h$):$(S%+128)="Keystroke$Do*":h$=FNh:ENDWHILE:$(S%+128)="Keystroke$Load*":t$=FNh:WHILEt$<>"":SYS"OS_SetVarVal",S%+128,"Clear",-1,0,0:PROCC(t$):$(S%+128)="Keystroke$Load*"
  990t$=FNh:ENDWHILE:IF(na%+oa%)<TIMETHENPROCB("Autoexec"):na%=TIME
 1020da%=FALSE:ENDPROC
 1040
 1060DEFPROCs:LOCALpa%,qa%,ra%,sa%:SYS"Wimp_OpenWindow",,q%:pa%=q%!4:qa%=q%!8:ra%=!q%:ta%=q%!28:IF!q%=e%THEN
 1120CASE((a%?2)MOD16)OF
 1130WHEN0:PROCk(m%):PROCk(M%):PROCd(t%):PROCd(G%):PROCd(j%)
 1200WHEN1,5:PROCk(m%):PROCk(G%):PROCd(M%):PROCd(t%):PROCd(j%)
 1260WHEN2,3:PROCk(t%):PROCd(m%):PROCd(M%):PROCd(G%):PROCd(j%)
 1320WHEN4:PROCk(m%):PROCk(j%):PROCd(t%):PROCd(M%):PROCd(G%)
 1380OTHERWISE:PROCd(m%):PROCd(M%):PROCd(t%):PROCd(G%):PROCd(j%)
 1440ENDCASE
 1440ENDIF
 1450ENDPROC
 1460
 1480DEFPROCQ:SYS"Wimp_CloseWindow",,q%:IF!q%=e%THEN
 1510PROCd(m%):PROCd(M%):PROCd(t%):PROCd(G%):PROCd(j%)
 1570ENDIF
 1570ENDPROC
 1580
 1600DEFPROCS:IF!q%=e%THEN
 1630SYS"Wimp_GetCaretPosition",,C%:IF((!C%)<>e%OR(C%!4)<>14)AND((!C%)<>t%OR(C%!4)<>1)THEN
 1650SYS"Wimp_SetCaretPosition",e%,-1
 1670ENDIF
 1670ENDIF
 1680ENDPROC
 1690
 1710DEFPROCR:SYS"Wimp_GetCaretPosition",,b%:IF!q%=e%ANDNOT((!b%)=e%AND(b%!4)=14)THEN
 1750SYS"XWimp_SetCaretPosition",!C%,C%!4,C%!8,C%!12,C%!16,C%!20
 1770ENDIF
 1770ENDPROC
 1780
 1800DEFPROCT:CASEq%!8OF
 1820WHEN2:PROCY
 1840WHEN1,4:PROCZ((q%!8)=1)
 1850ENDCASE
 1850ENDPROC
 1860
 1880DEFPROCY:CASEq%!12OF
 1900WHEN-2:PROCt(-2,(!q%)-64,384)
 1920WHENe%,m%,M%,t%,G%,j%:PROCt(q%!12,(!q%)-64,(q%!4)+44)
 1930ENDCASE
 1930ENDPROC
 1940
 1960DEFPROCZ(ua%):CASEq%!12OF
 1980WHEN-2:!q%=e%:SYS"Wimp_GetWindowState",,q%:q%!28=-1:PROCs
 2040WHENe%:CASEq%!16OF
 2050WHEN1:IFFNbTHENPROCh(a%,TRUE)
 2070r%=r%EOR4:PROCi:PROCc
 2090WHEN2:IFFNbTHENPROCh(a%,TRUE)
 2100r%=r%EOR2:PROCi:PROCc
 2120WHEN3:IFFNbTHENPROCh(a%,TRUE)
 2130r%=r%EOR1:PROCi:PROCc
 2150WHEN4:$(a%+128)=FNc(e%,14):IFFNbTHENPROCh(a%,TRUE)
 2170IFua%THENB%=96ELSEB%=94
 2180r%=-INKEY(-1)-2*INKEY(-2)-4*INKEY(-3):PROCi:PROCc
 2220WHEN6,7,8,9,10,11:PROCD(B%,r%,(q%!16)-6):w%=TRUE:PROCc
 2230WHEN12:IF(a%?3AND128)>0THEN
 2240a%=T%:T%=a%!8
 2270ELSE:a%=g%+a%!8:T%=a%!8
 2300ENDIF
 2300PROCc
 2320WHEN13:IFa%!4=-1THEN
 2330T%=a%:a%=FNf
 2360ELSE:a%=g%+a%!4:T%=a%!8
 2390ENDIF
 2390PROCc
 2410WHEN16:a%?3=(a%?3AND254)-FNd(e%,16,1<<21):w%=TRUE
 2440WHEN17:a%?3=(a%?3AND253)-2*FNd(e%,17,1<<21):w%=TRUE
 2470WHEN18:a%?3=(a%?3AND191)-64*FNd(e%,18,1<<21):w%=TRUE:SYS"Wimp_SetCaretPosition",e%,-1:PROCc
 2520WHEN20:a%?3=(a%?3AND223)-32*FNd(e%,20,1<<21):w%=TRUE
 2550WHEN21:a%?1=(a%?1AND247)-8*FNd(e%,21,1<<21):w%=TRUE
 2580WHEN22:a%?1=(a%?1AND239)-16*FNd(e%,22,1<<21):w%=TRUE
 2610ENDCASE
 2610WHENm%:IFq%!16<>20THENw%=TRUE
 2630CASEq%!16OF
 2640WHEN2:a%?3=(a%?3)OR28:a%?2=(a%?2)AND15:PROCc
 2660WHEN3:IF((a%?2)MOD16)=0THENh%=16ELSEh%=0
 2670a%?2=((a%?2)AND15)+(1<<4):a%?3=(((a%?3)ANDNOT16)+h%):PROCc
 2700WHEN4:a%?2=((a%?2)AND15)+(2<<4):a%?3=((a%?3)OR16):PROCc
 2730WHEN5:a%?2=((a%?2)AND15)+(3<<4):a%?3=((a%?3)OR16):PROCc
 2760WHEN6:a%?3=((a%?3)ANDNOT4)-4*FNd(m%,6,1<<21):IF(a%?3AND4)=4THEN
 2780PROCb(m%,9,FNa(a%+76))
 2800ELSE:PROCb(m%,9,"Irrelevant")
 2820ENDIF
 2820WHEN7:a%?3=((a%?3)ANDNOT8)-8*FNd(m%,7,1<<21):IF((a%?2MOD16)=0ANDa%!20<0)OR(a%?2MOD16)=4THEN
 2850IF(a%?3AND8)=8THEN
 2860PROCb(m%,1,FNa(a%+56))
 2880ELSE:PROCb(m%,1,"Irrelevant")
 2900ENDIF
 2900ENDIF
 2910WHEN20:va%=1:PROCE
 2930ENDCASE
 2930WHENM%:CASEq%!16OF
 2950WHEN1:a%?24=4:PROCc
 2970WHEN2:a%?24=1:PROCc
 2980WHEN3:a%?25=-FNd(M%,3,1<<21)
 2990ENDCASE
 2990w%=TRUE
 3010WHENG%:h%=(q%!16)-8:IFh%>-1ANDh%<7THEN
 3030IFua%THEN
 3040IFa%!((h%*4)+28)>-1THEN
 3050!(a%+28+(h%*4))=!(a%+28+(h%*4))-1:PROCb(G%,h%+8,STR$((a%!((h%*4)+28))+1)):IFh%<6ANDa%!((h%*4)+28)=-1THEN
 3080FORI%=h%+1TO6:PROCa(G%,I%+8,1<<22,TRUE):PROCb(G%,I%+8,"0"):!(a%+28+(I%*4))=-1:NEXTI%
 3140ENDIF
 3140ENDIF
 3150ELSE:IFa%!((h%*4)+28)<998THEN
 3170!(a%+28+(h%*4))=!(a%+28+(h%*4))+1:PROCb(G%,h%+8,STR$((a%!((h%*4)+28))+1)):IFh%<6THENPROCa(G%,h%+9,1<<22,FALSE)
 3200ENDIF
 3210ENDIF
 3220ENDIF
 3230w%=TRUE
 3250WHENt%:CASEq%!16OF
 3260WHEN2:PROCe("<Sys$Time>")
 3280WHEN3:PROCe("<Sys$Date>")
 3290WHEN4:PROCe("<Sys$Year>")
 3300WHEN5:PROCe("|M")
 3310WHEN6:PROCe("|U")
 3320WHEN7:PROCe("<Filer$Dir>")
 3330WHEN8:PROCe("Run ")
 3340WHEN9:PROCe("Filer_OpenDir ")
 3350WHEN10:PROCe("Load ")
 3360WHEN11,12,13,14:PROCe(CHR$((q%!16)+125))
 3370WHEN15:PROCe("<Keystroke$Input>")
 3380WHEN16:PROCe("<Keystroke%Var>")
 3390ENDCASE
 3390w%=TRUE
 3410WHENj%:CASEq%!16OF
 3420WHEN1:a%!28=a%!28ANDNOT1:PROCc
 3440WHEN2:a%!28=a%!28OR1:PROCc
 3450WHEN4:IFua%THEN
 3460a%!32=a%!32-N%:IFa%!32<-9999THENa%!32=-10000+N%
 3480ELSE:a%!32=a%!32+N%:IFa%!32>99999THENa%!32=100000-N%
 3510ENDIF
 3520PROCb(j%,4,STR$(a%!32))
 3540WHEN6:IFua%THEN
 3550a%!36=a%!36-O%:IFa%!36<-9999THENa%!36=-10000+O%
 3570ELSE:a%!36=a%!36+O%:IFa%!36>99999THENa%!36=100000-O%
 3600ENDIF
 3610PROCb(j%,6,STR$(a%!36))
 3630WHEN8:IFua%THEN
 3640a%!40=a%!40-N%:IFa%!40<-9999THENa%!40=-10000+N%
 3660ELSE:a%!40=a%!40+N%:IFa%!40>99999THENa%!40=100000-N%
 3690ENDIF
 3700PROCb(j%,8,STR$(a%!40))
 3720WHEN10:IFua%THEN
 3730a%!44=a%!44-O%:IFa%!44<-9999THENa%!44=-10000+O%
 3750ELSE:a%!44=a%!44+O%:IFa%!44>99999THENa%!44=100000-O%
 3780ENDIF
 3790PROCb(j%,10,STR$(a%!44))
 3810WHEN13:IFua%THEN
 3820a%!48=a%!48-N%:IFa%!48<-999999THENa%!48=-&F4240+N%
 3840ELSE:a%!48=a%!48+N%:IFa%!48>9999999THENa%!48=&989680-N%
 3870ENDIF
 3880PROCb(j%,13,STR$(a%!48))
 3900WHEN15:IFua%THEN
 3910a%!52=a%!52-O%:IFa%!52<-999999THENa%!52=-&F4240+O%
 3930ELSE:a%!52=a%!52+O%:IFa%!52>9999999THENa%!52=&989680-O%
 3960ENDIF
 3970PROCb(j%,15,STR$(a%!52))
 3990WHEN16:IFFNd(j%,16,1<<21)THEN
 4000a%!28=(a%!28)OR2
 4020ELSE:a%!28=(a%!28)ANDNOT2
 4040ENDIF
 4040PROCc
 4060WHEN17:IFFNd(j%,17,1<<21)THEN
 4070a%!28=(a%!28)OR4
 4090ELSE:a%!28=(a%!28)ANDNOT4
 4110ENDIF
 4110PROCc
 4130WHEN18:IFFNd(j%,18,1<<21)THEN
 4140a%!28=(a%!28)OR8
 4160ELSE:a%!28=(a%!28)ANDNOT8
 4180ENDIF
 4180PROCa(j%,4,1<<22,n%OR((a%!28)AND10)=0):PROCa(j%,6,1<<22,n%OR((a%!28)AND10)=0)
 4210ENDCASE
 4210WHENA%:CASEq%!16OF
 4230WHEN0:va%=U%+1:PROCE
 4270WHEN2:PROCm(FNc(A%,1))
 4280ENDCASE
 4280ENDCASE
 4290ENDPROC
 4300
 4320DEFPROCU:CASEva%OF
 4340WHEN1:PROCz
 4360WHEN2:PROCn(H%,4093)
 4370WHEN3:PROCn(0,4095)
 4380WHEN4:PROCn(256,4075)
 4390WHEN5:PROCn(2048,8192)
 4400ENDCASE
 4400va%=-1:ENDPROC
 4420
 4440DEFPROCV:ea%=q%!24:IFea%=13THEN
 4470CASE!q%OF
 4480WHENt%:CASEq%!4OF
 4500WHEN1:$(a%+12)=FNc(t%,1):w%=TRUE:PROCc
 4550ENDCASE
 4550WHENe%:IFq%!4=14THEN
 4570$(a%+128)=FNc(e%,14):w%=TRUE:REPEATUNTILNOTINKEY(-74)
 4610ENDIF
 4610WHENA%:PROCm(FNc(A%,1))
 4640WHENwa%:n$=FNc(wa%,0):!b%=wa%:SYS"Wimp_CloseWindow",,b%
 4680ENDCASE
 4680SYS"Wimp_GetPointerInfo",,b%:IFb%!12=e%THENSYS"Wimp_SetCaretPosition",e%,-1ELSESYS"Wimp_SetCaretPosition",-1
 4700ELSE:SYS"Wimp_ProcessKey",ea%
 4730ENDIF
 4730ENDPROC
 4740
 4760DEFPROCW:IFxa%=-2THENi$="Main.":ya%=u%ELSEi$="Edit.":ya%=i%
 4780SYS"Wimp_DecodeMenu",,ya%,q%,b%:i$+=FNa(b%):CASEi$OF
 4810WHEN"Main.Save.Keystrokes":U%=1:PROCm(l$)
 4830WHEN"Main.Save.Default":PROCu("<KeysDemo$Dir>.Default")
 4840WHEN"Main.Save.Executor":U%=4:PROCm(u$)
 4850WHEN"Main.Save.List":U%=2:PROCm(o$)
 4860WHEN"Edit.Copy":PROCF(a%):w%=TRUE
 4870WHEN"Edit.Copy Group":PROCG(a%):w%=TRUE
 4880WHEN"Edit.Insert":IF((a%?3)AND128)=128THEN
 4890PROCH(a%):PROCc
 4920ELSE:PROC_(a%):PROCc
 4950ENDIF
 4950w%=TRUE
 4970WHEN"Edit.Paste":PROCH(a%):w%=TRUE:PROCc
 5010WHEN"Edit.Cut":w%=TRUE:PROCF(a%):PROCh(a%,TRUE)
 5050WHEN"Edit.Cut Group":w%=TRUE:PROCG(a%):PROC`(a%)
 5090WHEN"Main.Clear All":IFw%THEN
 5100za%=FNi("Keystrokes not saved. Are you sure?")
 5120ELSE:za%=TRUE
 5140ENDIF
 5140IFza%THEN
 5150PROCI:PROCi:PROCc:u%!252=&7409001:w%=FALSE
 5210ENDIF
 5210WHEN"Main.Quit":IFw%THEN
 5230aa%=FNi("Keystrokes not saved. Are you sure?")
 5250ELSE:aa%=TRUE
 5270ENDIF
 5270OTHERWISE:IFLEFT$(i$,20)="Main.Prefs.Autoexec."THEN
 5290IFVAL(FNa(Aa%))=0THEN
 5300PROCf(0,"The minimum time is one minute",1):$Aa%=STR$(oa%DIV6000)
 5330ELSE:oa%=VAL(FNa(Aa%))*6000
 5350ENDIF
 5350ENDIF
 5360IFLEFT$(i$,20)="Main.Prefs.Variable."THENOSCLI("SetEval Keystroke%Var "+FNa(Ba%))
 5370IFLEFT$(i$,21)="Main.Prefs.Increment."THENOSCLI("SetEval Keystroke%Inc "+FNa(Ca%))
 5380ENDCASE
 5390SYS"Wimp_GetPointerInfo",,b%:IFb%!8=1THENPROCt(xa%,Da%,Ea%)
 5410ENDPROC
 5420
 5440DEFPROCX:CASE(q%!16)OF
 5460WHEN0:IFw%THEN
 5480aa%=FNi("Keystrokes not saved. Are you sure?")
 5500ELSE:aa%=TRUE
 5520ENDIF
 5520WHEN1:q%!12=q%!8:q%!16=2:!q%=256:$(q%+44)="<Wimp$Scrap>":SYS"Wimp_SendMessage",17,q%,q%!4
 5590WHEN2:a$=FNa(q%+44):CASEU%OF
 5610WHEN1:PROCu(a$):IFa$<>"<Wimp$Scrap>"THENl$=a$
 5620WHEN2:PROCJ(a$):IFa$<>"<Wimp$Scrap>"THENo$=a$
 5630WHEN3:PROCaa(a$)
 5650WHEN4:IFa$<>"<Wimp$Scrap>"THENPROCK(a$)
 5650ENDCASE
 5660SYS"Wimp_CreateMenu",,-1:q%!12=q%!8:q%!16=3:!q%=256:SYS"Wimp_SendMessage",18,q%,q%!4
 5720WHEN3:PROCba
 5740WHEN262336:IFq%!36=0THENU%=1
 5750IFq%!36=3THENU%=2
 5760IFq%!32=6THENU%=3
 5770IFq%!36=2THENU%=4
 5780CASEU%OF
 5790WHEN1:PROCb(A%,1,l$):PROCo(A%,0,"file_ffd"):PROCl(A%,1,15)
 5840WHEN2:PROCb(A%,1,o$):PROCo(A%,0,"file_fff"):PROCl(A%,1,15)
 5880WHEN3:PROCb(A%,1,"Action"):PROCo(A%,0,"file_feb"):PROCl(A%,1,15)
 5920WHEN4:PROCb(A%,1,u$):PROCo(A%,0,"!executor"):PROCl(A%,1,0)
 5960ENDCASE
 5960SYS"Wimp_CreateSubMenu",,q%!20,q%!24,q%!28
 5980WHEN262337:PROCL
 6000WHEN262338:PROCca(q%!4,FNa(q%+28))
 6020WHEN262339:PROCda(q%!4)
 6040WHEN262343:j$=FNa(q%+28)
 6060ENDCASE
 6060ENDPROC
 6070
 6110DEFPROCA(c%):IF(c%?1AND8)=8THEN
 6120MOUSEFa%,Ga%,Ha%:MOUSERECTANGLEFa%,Ga%,0,0
 6150ELSE:MOUSERECTANGLEia%,ja%,ka%-ia%,la%-ja%
 6170ENDIF
 6170IF(c%?3AND2)=0THEN
 6190Ia%=1:PROCg(6146)
 6220ELSE:!q%=0:$(q%+4)=FNa(c%+128)+"?":MOUSEFa%,Ga%,Ha%:SYS"Wimp_ReportError",q%,19,"Keystroke"TO,Ia%:MOUSETOFa%,Ga%:PROCg(6146)
 6280ENDIF
 6280IFIa%=1THEN
 6290s%=FALSE:IF((((c%!104)AND1048576)<>0)OR(c%?2MOD16)=3)AND(c%?2MOD16)<>2THENJa%=TRUEELSEJa%=FALSE
 6310CASE(c%?2MOD16)OF
 6320WHEN0:IF(c%!12)<>-1OR(((c%?3)AND8)=0ANDc%!20<0)THENPROCp(c%,c%!24)
 6330WHEN1:IF(c%!12)<>-1THENPROCp(c%,2)
 6340WHEN2:m$=FNa(c%+12):IFINSTR(m$,"<Keystroke$Input>")>0THENPROCM
 6370IFINSTR(m$,"<Filer$Dir>")>0THEN
 6380q$=FNj:IFq$<>""THEN
 6400OSCLI("Set Filer$Dir "+q$):OSCLI("WimpTask "+m$):s%=TRUE
 6440ENDIF
 6440ELSE:OSCLI("WimpTask "+m$):s%=TRUE
 6480ENDIF
 6480IFINSTR(m$,"<Keystroke%Var>")>0ANDs%THEN
 6490OSCLI("SetEval Keystroke%Var Keystroke%Var"+FNm):SYS"OS_GSTrans","<Keystroke%Var>",q%,8192:PROCb(t%,19,FNa(q%))
 6530ENDIF
 6530WHEN3:r$=FNa(c%+12):IFINSTR(r$,"<Keystroke$Input>")>0THENPROCM
 6560IFINSTR(r$,"<Filer$Dir>")>0THEN
 6570q$=FNj:IFq$<>""THENOSCLI("Set Filer$Dir "+FNj)ELSEOSCLI("Unset Filer$Dir")
 6590ENDIF
 6600SYS"OS_GSTrans",r$,q%,8192:o%=q%:SYS"OS_Byte",15:WHILE?o%<>0:IF?o%>135AND?o%<140THEN
 6650PROCg(6146):SYS"Wimp_ProcessKey",(?o%)+260
 6680ELSE:PROCg(6146):SYS"Wimp_ProcessKey",?o%
 6710ENDIF
 6710o%+=1:ENDWHILE:s%=TRUE:IFINSTR(r$,"<Keystroke%Var>")>0THEN
 6750OSCLI("SetEval Keystroke%Var Keystroke%Var"+FNm):SYS"OS_GSTrans","<Keystroke%Var>",q%,8192:PROCb(t%,19,FNa(q%))
 6790ENDIF
 6790WHEN4:IF(c%!12)<>-1THENPROCp(c%,-1)
 6810WHEN5:IF(c%!12)<>-1THENPROCp(c%,2)
 6830ENDCASE
 6840IFs%=TRUEAND(c%?3AND1)=1THENSOUND1,-15,100,5
 6850PROCg(6146)
 6870ENDIF
 6870ENDPROC
 6880
 6900DEFPROCc:n%=((a%?3)AND64)=64:PROCb(e%,4,a$(B%)):PROCa(e%,1,(1<<21),(r%AND4)<>0):PROCa(e%,2,(1<<21),(r%AND2)<>0):PROCa(e%,3,(1<<21),(r%AND1)<>0):IF(a%?3AND128)>0THEN
 6970FORI%=6TO11:PROCa(e%,I%,(1<<21),FALSE):PROCa(e%,I%,(1<<22),FALSE):NEXTI%:PROCb(e%,14,"")
 7030ELSE:FORI%=6TO11:PROCa(e%,I%,1<<21,(((a%?2)MOD16))=(I%-6)):PROCa(e%,I%,1<<22,n%):NEXTI%:PROCb(e%,14,FNa(a%+128))
 7090ENDIF
 7090PROCa(e%,12,1<<22,T%=-1):PROCa(e%,13,1<<22,(((a%?3)AND128)>0)ORFNb):IFa%!4=-1THENPROCb(e%,13,"New  �")ELSEPROCb(e%,13,"Next �")
 7120IF(((a%?3)AND128)>0)ORFNbORn%THENKa%=0ELSEKa%=15
 7130PROCl(e%,14,Ka%):PROCa(e%,16,1<<21,((a%?3)AND129)=1):PROCa(e%,16,1<<22,n%):PROCa(e%,17,1<<21,((a%?3)AND130)=2):PROCa(e%,17,1<<22,n%):PROCa(e%,18,1<<21,n%AND((a%?3)AND128)=0):PROCa(e%,18,1<<22,(((a%?3)AND128)>0)ORFNb)
 7200PROCa(e%,20,1<<21,((a%?3)AND160)=32):PROCa(e%,20,1<<22,T%=-1ORn%ORFNb):PROCa(e%,21,1<<21,((a%?1)AND8)=8):PROCa(e%,21,1<<22,n%ORFNb):PROCa(e%,22,1<<21,((a%?1)AND16)=16):PROCa(e%,22,1<<22,n%ORFNb):F%=((a%?2)MOD16):CASEF%OF
 7280WHEN0,1,4,5:IF(F%=0AND((a%?3)AND8)=0ANDa%!20<0)OR(F%=4AND((a%?3)AND8)=0)THEN
 7300PROCb(m%,1,"Irrelevant")
 7320ELSE:PROCb(m%,1,FNa(a%+56))
 7340ENDIF
 7340FORI%=0TO3:PROCa(m%,I%+2,1<<21,((a%?2)DIV16)=I%):PROCa(m%,I%+2,1<<22,n%):NEXTI%:PROCa(m%,6,1<<21,((a%?3)AND4)=4):PROCa(m%,6,1<<22,((a%?2)DIV16)=0ORn%):PROCa(m%,7,1<<21,((a%?3)AND8)=8):PROCa(m%,7,1<<22,((a%?2)DIV16)=0ORn%):IF(a%?3AND4)=4THEN
 7430PROCb(m%,9,FNa(a%+76))
 7450ELSE:PROCb(m%,9,"Irrelevant")
 7470ENDIF
 7470IFF%=4THEN
 7480PROCb(m%,17,"Irrelevant")
 7500ELSE:IF(a%?3AND16)=0THENPROCb(m%,17,"At pointer")ELSEPROCb(m%,17,FNa(a%+116))
 7510ENDIF
 7520PROCa(M%,1,1<<21,(a%?24)=4):PROCa(M%,2,1<<21,(a%?24)=1):PROCa(M%,3,1<<21,(a%?25)=1):FORI%=1TO3:PROCa(M%,I%,1<<22,n%):NEXTI%:IFF%=4THEN
 7590PROCa(j%,1,1<<21,((a%!28)AND1)=0):PROCa(j%,2,1<<21,((a%!28)AND1)=1):IF((a%!28)AND1)=0THEN
 7620PROCb(j%,3,"Move to:"):PROCb(j%,12,"Scroll to:")
 7650ELSE:PROCb(j%,3,"Move by:"):PROCb(j%,12,"Scroll by:")
 7680ENDIF
 7680PROCa(j%,16,1<<21,((a%!28)AND2)=2):PROCa(j%,17,1<<21,((a%!28)AND4)=4):PROCa(j%,18,1<<21,((a%!28)AND8)=8):PROCb(j%,4,STR$(a%!32)):PROCb(j%,6,STR$(a%!36)):PROCb(j%,8,STR$(a%!40)):PROCb(j%,10,STR$(a%!44)):PROCb(j%,13,STR$(a%!48)):PROCb(j%,15,STR$(a%!52))
 7770PROCa(j%,1,1<<22,n%):PROCa(j%,2,1<<22,n%):PROCa(j%,4,1<<22,n%OR((a%!28)AND10)=0):PROCa(j%,6,1<<22,n%OR((a%!28)AND10)=0):PROCa(j%,8,1<<22,n%OR((a%!28)AND2)=0):PROCa(j%,10,1<<22,n%OR((a%!28)AND2)=0):PROCa(j%,13,1<<22,n%OR((a%!28)AND4)=0)
 7840PROCa(j%,15,1<<22,n%OR((a%!28)AND4)=0):IF((a%!28)AND2)=0THEN
 7860PROCq(j%,7,17):PROCq(j%,11,17)
 7890ELSE:PROCq(j%,7,23):PROCq(j%,11,23)
 7920ENDIF
 7920FORI%=16TO18:PROCa(j%,I%,1<<22,n%):NEXTI%:IF((a%!28)AND6)=0THEN
 7960PROCb(m%,1,"Irrelevant"):PROCb(m%,9,"Irrelevant"):PROCb(m%,17,"Irrelevant"):FORI%=2TO7:PROCa(m%,I%,1<<22,TRUE):NEXTI%
 8030ENDIF
 8030ELSE:La%=FALSE:FORI%=0TO6:PROCa(G%,8+I%,1<<22,La%ORn%):PROCb(G%,8+I%,STR$((a%!((I%*4)+28))+1)):IFa%!((I%*4)+28)=-1THENLa%=TRUE
 8090NEXTI%
 8110ENDIF
 8110PROCa(m%,20,1<<22,n%)
 8130WHEN2,3:FORI%=2TO14:PROCa(t%,I%,(1<<22),n%):NEXTI%:FORI%=8TO10:PROCa(t%,I%,(1<<22),F%=3ORn%):NEXTI%:FORI%=11TO14:PROCa(t%,I%,(1<<22),F%=2ORn%):NEXTI%:FORI%=5TO6:PROCa(t%,I%,(1<<22),F%=2ORn%):NEXTI%:IFn%THENKa%=0ELSEKa%=15
 8260PROCl(t%,1,Ka%):PROCb(t%,1,FNa(a%+12))
 8290ENDCASE
 8290!q%=e%:SYS"Wimp_GetWindowState",,q%:IF((q%!32)AND65536)<>0THENPROCs
 8320ENDPROC
 8330
 8350DEFPROCB(h$):FORMa%=0TO96:FORNa%=0TO7:IFa%(Ma%,Na%)<>-1THEN
 8390IF!a%(Ma%,Na%)<>0THEN
 8400Oa%=a%(Ma%,Na%)-4:Pa%=FALSE:s%=FALSE:REPEAT:Oa%=g%+Oa%!4:IFPa%THENQa%=((Oa%?3)AND32)=32ELSEQa%=FALSE
 8450IFFNa(Oa%+128)=h$OR(h$="Autoexec"ANDLEFT$(FNa(Oa%+128),8)="Autoexec")ORQa%THEN
 8460PROCA(Oa%):PROCg(6146):Pa%=s%
 8500ENDIF
 8500UNTILOa%!4=-1
 8520ENDIF
 8520ENDIF
 8530NEXTNa%:NEXTMa%:MOUSERECTANGLEia%,ja%,ka%-ia%,la%-ja%:ENDPROC
 8570
 8590DEFPROCi:WHILEa%(B%,r%)=-1:r%=(r%+1)MOD8:ENDWHILE:a%=!a%(B%,r%):IFa%=0THEN
 8640a%=FNf:T%=-1
 8670ELSE:T%=!(g%+a%+8):a%+=g%
 8700ENDIF
 8700ENDPROC
 8710
 8730DEFFNf:Ra%=g%+2588:WHILE((Ra%?3)AND128)=0:Ra%+=k%:ENDWHILE:=Ra%
 8800DEFPROCD(B%,r%,F%):w%=TRUE:LOCALv%:IF(a%?3AND128)>0THENv%=TRUE
 8830IFv%ANDH%+g%+(2*k%)>g%+Sa%THEN
 8840PROCf(0,"Sorry, I have no more memory",1):Ta%=FALSE
 8870ELSE:IFv%THEN
 8880a%?128=13:IFa%+k%=g%+H%THEN
 8900H%+=k%:FORI%=a%+k%TOa%+(k%*2)-4:!I%=-1:NEXTI%
 8950ENDIF
 8950Ua%=-1
 8970ELSE:Ua%=((a%?2)MOD16)
 8990ENDIF
 8990?a%=B%:a%?1=r%:a%?2=((a%?2)AND240)+F%:IFv%THEN
 9030a%!4=-1:PROCea(B%,r%):IFVa%<>-1THEN
 9060Va%!4=a%-g%:a%!8=Va%-g%
 9090ELSE:!a%(B%,r%)=a%-g%:a%!8=-1
 9120ENDIF
 9120ENDIF
 9130CASEF%OF
 9140WHEN0,1,5:IFUa%=2ORUa%=3ORUa%=4ORv%THEN
 9160IFF%=0THEN
 9170a%?3=28:a%?2=F%
 9200ELSE:a%?3=24:a%?2=F%+32
 9230ENDIF
 9230a%!12=-1:a%!16=-1:a%!20=-1:a%!24=4:FORI%=28TO52STEP4:a%!I%=-1:NEXTI%:$(a%+56)="-":$(a%+76)="-":a%!104=0:a%!108=0:a%!112=0:$(a%+116)="-"
 9370ENDIF
 9370WHEN2,3:IFUa%=0ORUa%=1ORUa%=4ORUa%=5ORv%THEN
 9390FORI%=12TO124STEP4:a%!I%=0:NEXTI%:a%?3=0
 9420ENDIF
 9420WHEN4:IFUa%<>4ORv%THEN
 9440a%?2=F%+16:a%?3=0:a%!12=0:a%!16=-1:a%!20=-1:a%!24=0:a%!28=3:FORI%=32TO52STEP4:a%!I%=0:NEXTI%:$(a%+56)="Irrelevant":$(a%+76)="-":a%!104=0:a%!108=0:a%!112=0:$(a%+116)="-"
 9610ENDIF
 9610ENDCASE
 9620ENDIF
 9630ENDPROC
 9640
 9660DEFPROCea(B%,r%):IF!a%(B%,r%)=0THEN
 9670Va%=-1
 9690ELSE:Va%=!a%(B%,r%)+g%:WHILEVa%!4<>-1:Va%=g%+Va%!4:ENDWHILE
 9740ENDIF
 9740ENDPROC
 9750
 9770DEFPROCz:IF((((a%?2)MOD16))AND2)=0THEN
 9780SYS"Wimp_GetPointerInfo",,b%:IF((a%?2)AND15)=4AND((a%!28)AND14)=8THEN
 9800a%!32=!b%:a%!36=b%!4:PROCc
 9840ELSE:Wa%=b%!12:Xa%=b%!16:IF(Wa%<>m%ORXa%<>20)AND(F%<>4ORWa%>0)THEN
 9860w%=TRUE:a%!16=Wa%:a%!20=Xa%:!b%=0:b%!16=0:SYS"Wimp_SendMessage",19,q%,Wa%,Xa%TO,,Ya%:a%!12=Ya%:$(a%+56)=FNn(Ya%):$(a%+76)=LEFT$(FNg(Ya%,Wa%,FALSE),27):$(a%+116)=LEFT$(FNo(Ya%,Wa%,Xa%),11):PROCfa(Wa%):a%!104=Za%:a%!108=_a%:a%!112=`a%:IF((a%?2)MOD16)<>0THEN
 9990IFFNa(a%+76)="Icon bar"THEN
10000a%?2=(a%?2)AND15:a%?3=(a%?3)OR12
10030ELSE:IF(Za%AND(1<<20))=0THEN
10040a%?2=((a%?2)AND15)+(1<<4):a%?3=a%?3ANDNOT16
10070ELSE:a%?2=((a%?2)AND15)+(2<<4):a%?3=a%?3OR16
10100ENDIF
10100a%?3=((a%?3)AND243)+8
10120ENDIF
10120ELSE:IF(a%!20)<0THEN
10140a%?2=((a%?2)AND15)+(1<<4):a%?3=(a%?3)ANDNOT12
10170ENDIF
10170ENDIF
10180IF((a%?2)AND15)=4AND((a%!28)AND1)=0THEN
10190IF((a%!28)AND14)=8THEN
10200SYS"Wimp_GetPointerInfo",,b%:a%!32=!b%:a%!36=b%!4
10240ELSE:!b%=Wa%:SYS"Wimp_GetWindowState",,b%:a%!32=b%!4:a%!36=b%!8:a%!40=b%!12:a%!44=b%!16:a%!48=b%!20:a%!52=b%!24:a%!28=(a%!28)OR6
10340ENDIF
10340ENDIF
10350PROCc
10370ENDIF
10370ENDIF
10380ELSE:SYS"Wimp_GetPointerInfo",,b%:!q%=20:q%!16=0:q%!12=0:SYS"Wimp_SendMessage",19,q%,b%!12,b%!16TO,,l%:PROCe(FNg(l%,b%!12,TRUE))
10440ENDIF
10440ENDPROC
10450
10470DEFPROCp(c%,V%):SYS"Wimp_GetPointerInfo",,b%:ab%=!b%:bb%=b%!4:cb%=b%!12:db%=b%!16:!q%=20:q%!12=0:SYS"Wimp_SendMessage",19,q%,cb%,db%TO,,eb%:!b%=ab%:b%!4=bb%:CASE((c%?2)DIV16)OF
10520WHEN0:IFFNg(c%!12,c%!16,TRUE)<>FNa(c%+76)THEN
10540PROCf(0,"The specified window has been deleted. Change the keystroke to 'Any window' or 'Window at pointer'. See the manual for more help.",1)
10560ELSE:IFNOTJa%THENSYS"Wimp_GetCaretPosition",,C%:SYS"Wimp_SetCaretPosition",-1
10570PROCv(c%!12,c%!16,c%!20,V%,ab%,bb%):IFV%=2THENPROCw(c%)
10590s%=TRUE
10610ENDIF
10610WHEN1:IFdb%>-2THEN
10630IFeb%=c%!12OR(V%<>2ANDc%!20<-1AND(c%?3AND8)=0)OR(V%=-1AND(c%?3AND8)=0)THEN
10640IFcb%>0THEN
10650!q%=cb%:SYS"Wimp_GetWindowInfo",,q%:fb%=TRUE:IF(((q%!32)ANDgb%)<>(c%!104)OR(q%!36)<>(c%!108)OR(q%!40)<>(c%!112))AND(c%?3AND8)=8THENfb%=FALSE
10690IF((q%!60)AND256)=0THEN
10700d$=FNa(q%+76)
10720ELSE:d$=FNe(eb%,q%!76)
10740ENDIF
10740IFLEFT$(d$,27)<>FNa(c%+76)AND(c%?3AND4)=4THENfb%=FALSE
10750IFfb%THEN
10760IFNOTJa%THENSYS"Wimp_GetCaretPosition",,C%:SYS"Wimp_SetCaretPosition",-1
10770IF(c%?3AND16)=16THENhb%=c%!20ELSEhb%=db%
10780PROCv(eb%,cb%,hb%,V%,ab%,bb%):IFV%=2THENPROCw(c%)
10800s%=TRUE
10820ENDIF
10820ENDIF
10830ENDIF
10840ENDIF
10850WHEN2,3:W%=FNk:FORib%=0TO252STEP4:S%!ib%=W%:IFW%<>-1THENW%=FNl(W%)ELSEjb%=ib%
10900NEXTib%:kb%=FALSE:ib%=jb%:WHILEib%>0AND(NOTkb%OR((c%?2)DIV16)=3):W%=S%!ib%:!q%=20:q%!12=0:SYS"XWimp_SendMessage",19,q%,W%,-1TO,,lb%:IFlb%<>0ANDlb%<>W%THEN
10970!q%=W%:SYS"Wimp_GetWindowInfo",,q%:fb%=TRUE:IF((q%!32ANDgb%)<>(c%!104)OR(q%!36)<>(c%!108)OR(q%!40)<>(c%!112))AND(c%?3AND8)=8THENfb%=FALSE
11010IFLEFT$(FNg(lb%,W%,FALSE),27)<>FNa(c%+76)AND((c%?3)AND4)=4THENfb%=FALSE
11020IFNOT(lb%=c%!12OR(V%<>2ANDc%!20<-1AND(c%?3AND8)=0)OR(V%=-1AND(c%?3AND8)=0))THENfb%=FALSE
11030IFfb%THEN
11040IFNOTJa%THENSYS"Wimp_GetCaretPosition",,C%:SYS"Wimp_SetCaretPosition",-1
11050PROCv(lb%,W%,c%!20,V%,ab%,bb%):IFV%=2THENPROCw(c%)
11070kb%=TRUE:s%=TRUE
11100ENDIF
11100ENDIF
11110ib%-=4:ENDWHILE
11140ENDCASE
11140ENDPROC
11150
11170DEFPROCw(c%):CASE(c%?2MOD16)OF
11180WHEN1:FORI%=0TO24STEP4:b%!I%=c%!(I%+28):NEXTI%:b%!28=-1:SYS"Wimp_SendMessage",9,b%,c%!12:s%=TRUE:PROCg(6146):SYS"Wimp_CreateMenu",,-1
11280WHEN5:SYS"Wimp_CreateMenu",,-1:PROCg(6146):!b%=64:b%!12=0:b%!16=262336:b%!20=1:b%!24=ab%-64:b%!28=bb%+44:FORI%=0TO24STEP4:b%!(I%+32)=c%!(I%+28):NEXTI%:b%!60=-1:SYS"Wimp_SendMessage",17,b%,c%!12:s%=TRUE
11390ENDCASE
11390ENDPROC
11400
11420DEFPROCv(l%,f%,h%,mb%,x%,y%):IFf%>0THEN
11430!q%=f%:SYS"Wimp_GetWindowState",,q%:IF((q%!32)AND(1<<31))<>0THENv%=TRUEELSEv%=FALSE
11460nb%=(v%AND(q%!32AND(1<<30))<>0)OR(NOTv%AND(q%!32AND(1<<3))<>0):ob%=(v%AND(q%!32AND(1<<28))<>0)OR(NOTv%AND(q%!32AND(1<<2))<>0)
11490ELSE:nb%=FALSE:ob%=FALSE
11510ENDIF
11510IFmb%=-1THEN
11520IF((c%!28)AND6)=0THEN
11530IF((c%!28)AND8)=8THEN
11540IF((c%!28)AND1)=0THEN
11550MOUSETOc%!32,c%!36
11570ELSE:MOUSEFa%,Ga%,Ha%:MOUSETOFa%+c%!32,Ga%+c%!36:ga%=TRUE
11610ENDIF
11610ENDIF
11620ELSE:IFf%>0ANDl%>0THEN
11640!q%=f%:SYS"Wimp_GetWindowState",,q%:IF((c%!28)AND1)=0THEN
11670IF((c%!28)AND2)=2THEN
11680IF((c%!28)AND8)=8THEN
11690MOUSEFa%,Ga%,Ha%:pb%=(c%!32)-(q%!4):qb%=(c%!36)-(q%!8):MOUSETOFa%+pb%,Ga%+qb%
11740ENDIF
11740q%!4=c%!32:q%!8=c%!36:q%!12=c%!40:q%!16=c%!44
11790ELSE:IF((c%!28)AND8)=8THENMOUSETOc%!32,c%!36
11800ENDIF
11810IF((c%!28)AND4)=4THEN
11820IFnb%THENq%!20=c%!48
11830IFob%THENq%!24=c%!52
11840ENDIF
11850ELSE:IF((c%!28)AND2)=2THEN
11870q%!4=q%!4+c%!32:q%!8=q%!8+c%!36:q%!12=q%!12+c%!40:q%!16=q%!16+c%!44
11920ENDIF
11920IF((c%!28)AND4)=4THEN
11930IFnb%THENq%!20=q%!20+c%!48
11940IFob%THENq%!24=q%!24+c%!52
11950ENDIF
11960IF((c%!28)AND8)=8THEN
11970MOUSEFa%,Ga%,Ha%:pb%=c%!32:qb%=c%!36:MOUSETOFa%+pb%,Ga%+qb%
12020ENDIF
12020ga%=TRUE
12040ENDIF
12040SYS"Wimp_SendMessage",2,q%,l%
12060ENDIF
12060ENDIF
12070s%=TRUE
12090ELSE:IFh%<-1THEN
12100CASEh%OF
12110WHEN-2:!q%=f%:SYS"Wimp_GetWindowState",,q%:IF(v%AND(q%!32AND(1<<24))<>0)OR(NOTv%AND(q%!32AND(1<<7))=0)THEN
12150q%!28=-2:SYS"Wimp_SendMessage",2,q%,l%:s%=TRUE
12190ENDIF
12190WHEN-3:!q%=f%:SYS"Wimp_GetWindowState",,q%:IF(v%AND(q%!32AND(1<<25))<>0)OR(NOTv%AND(q%!32AND(1<<7))=0)THEN
12230SYS"Wimp_SendMessage",3,q%,l%:s%=TRUE
12260ENDIF
12260WHEN-4,-9:IF(mb%AND255)=4THEN
12280!q%=f%:SYS"Wimp_GetWindowState",,q%:IF(v%AND(q%!32AND(1<<26))<>0)OR(NOTv%AND(q%!32AND1)<>0)THEN
12310q%!28=-1:SYS"Wimp_SendMessage",2,q%,l%:s%=TRUE
12350ENDIF
12350ENDIF
12360WHEN-5:!q%=f%:SYS"Wimp_GetWindowState",,q%:IF((q%!32)AND(1<<18))<>0THEN
12400q%!8=q%!16:q%!12=q%!4
12430ELSE:q%!8=-4096:q%!12=4096
12460ENDIF
12460IF(v%AND(q%!32AND(1<<27))<>0)OR(NOTv%AND(q%!32AND1)<>0)THEN
12470SYS"Wimp_SendMessage",2,q%,l%:s%=TRUE
12500ENDIF
12500WHEN-6:!q%=f%:SYS"Wimp_GetWindowState",,q%:IFob%THEN
12540q%!24=(q%!24)+32:SYS"Wimp_SendMessage",2,q%,l%:ga%=TRUE:s%=TRUE
12590ENDIF
12590WHEN-8:!q%=f%:SYS"Wimp_GetWindowState",,q%:IFob%THEN
12630q%!24=(q%!24)-32:SYS"Wimp_SendMessage",2,q%,l%:ga%=TRUE:s%=TRUE
12680ENDIF
12680WHEN-10:!q%=f%:SYS"Wimp_GetWindowState",,q%:IFnb%THEN
12720q%!20=(q%!20)-32:SYS"Wimp_SendMessage",2,q%,l%:ga%=TRUE:s%=TRUE
12770ENDIF
12770WHEN-12:!q%=f%:SYS"Wimp_GetWindowState",,q%:IFnb%THEN
12810q%!20=(q%!20)+32:SYS"Wimp_SendMessage",2,q%,l%:ga%=TRUE:s%=TRUE
12860ENDIF
12860ENDCASE
12870ELSE:rb%=-1:IFh%=-1THEN
12900!q%=f%:SYS"Wimp_GetWindowInfo",,q%:rb%=(q%!64)>>12:sb%=-1
12950ELSE:!b%=f%:b%!4=h%:b%!24=0:SYS"XWimp_GetIconState",,b%:IFb%!24<>0THENrb%=(b%!24>>12)AND15:sb%=(b%!24>>16)AND31
13000ENDIF
13010IFrb%=-1THEN
13020PROCf(0,"The specific window has been deleted. Change the keystroke to 'Any window' or 'Window at pointer'. See the manual for more help.",1)
13040ELSE:tb%=mb%AND255:ub%=mb%>255:!b%=x%:b%!4=y%:b%!12=f%:b%!16=h%:IFtb%=2THEN
13110b%!8=2:SYS"Wimp_SendMessage",6,b%,l%
13140ELSE:CASErb%OF
13150WHEN0,12,13
13170WHEN1,2,3,4,6,9:b%!8=tb%:SYS"Wimp_SendMessage",6,b%,l%:s%=TRUE:IFrb%=2THENga%=TRUE
13210WHEN5,8:IFub%THEN
13230b%!8=tb%:SYS"Wimp_SendMessage",6,b%,l%:s%=TRUE
13270ELSE:IFtb%=4ANDsb%<>0THEN
13280PROCa(f%,h%,1<<21,TRUE)
13300ELSE:Ha%=FNp(f%,h%,1<<21)
13320ENDIF
13320ENDIF
13330WHEN7,11:b%!8=tb%:SYS"Wimp_SendMessage",6,b%,l%:s%=TRUE:IFtb%=4ANDsb%<>0THEN
13380PROCa(f%,h%,1<<21,TRUE)
13400ELSE:Ha%=FNp(f%,h%,1<<21)
13420ENDIF
13420WHEN10:IFub%THEN
13440b%!8=tb%
13460ELSE:b%!8=tb%*256
13480ENDIF
13480SYS"Wimp_SendMessage",6,b%,l%:s%=TRUE
13510WHEN14:b%!8=tb%:SYS"Wimp_SendMessage",6,b%,l%:s%=TRUE:SYS"Wimp_SetCaretPosition",f%,h%,-1,-1,NOT(1<<25),-1
13560WHEN15:SYS"Wimp_SetCaretPosition",f%,h%,-1,-1,NOT(1<<25),-1:s%=TRUE
13590ENDCASE
13590ENDIF
13600ENDIF
13610ENDIF
13620ENDIF
13630ENDPROC
13640
13660DEFPROCh(d%,vb%):IF(d%?3AND128)=0THEN
13670wb%=-((d%!4)<>-1)-2*((d%!8)<>-1):CASEwb%OF
13690WHEN0:!a%(?d%,((d%?1)AND7))=0
13720WHEN1:!a%(?d%,((d%?1)AND7))=d%!4:!(8+g%+d%!4)=-1
13750WHEN2:!(4+g%+d%!8)=-1
13770WHEN3:!(8+g%+d%!4)=d%!8:!(4+g%+d%!8)=d%!4
13800ENDCASE
13800d%?3=d%?3OR128:IFd%!8=-1THEN
13820PROCi
13840ELSE:IFd%!4=-1THENa%=g%+d%!8ELSEa%=g%+d%!4
13850ENDIF
13860IF(a%?3AND128)=0THENT%=a%!8ELSET%=-1
13870FORI%=4TOk%-4STEP4:d%!I%=-1:NEXTI%:d%?2=255:WHILE(?(g%+H%-(2*k%)+3)AND128)=128:!(g%+H%-(2*k%))=-1:H%-=k%:ENDWHILE:IFa%!8=-1AND((a%?3)AND128)=0THENa%?3=a%?3ANDNOT32
13960IFvb%THENPROCc
13970ENDIF
13980ENDPROC
13990
14010DEFPROCca(xb%,k$):PROCx(xb%,k$):FORd%=g%+2588TOg%+H%-k%STEPk%:IF((d%?3)AND128)=0THEN
14040IFFNa(d%+56)=k$AND((d%?2)MOD16)<>2AND((d%?2)MOD16)<>3THEN
14050d%!12=xb%:IF((d%?2)DIV16)=0THENd%!16=FNq(FNa(d%+76))
14070IFd%!16=-2THENd%!20=FNr(FNa(d%+116))
14080ENDIF
14090ENDIF
14100NEXTd%:ENDPROC
14120
14140DEFPROCda(xb%):FORd%=g%+2588TOg%+H%-k%STEPk%:IF((d%?3)AND128)=0AND((d%?2)MOD16)<>2AND((d%?2)MOD16)<>3ANDd%!12=xb%THEN
14160d%!12=-1:IF((d%?2)DIV16)=0THENd%!16=-1
14180ENDIF
14190NEXTd%:FORI%=0TOyb%:IFb%(I%)=xb%THENb%(I%)=0:b$(I%)=""
14220NEXTI%:ENDPROC
14240
14260DEFFNb:zb%=FALSE:IF(a%?3AND128)=0THEN
14280IF(((a%?2)MOD16)AND2)=2THEN
14290IFFNa(a%+12)=""THENzb%=TRUE
14300ELSE:IF((a%?2)MOD16)=4THEN
14320IF((a%!28)AND14)=0THENzb%=TRUE
14330IF((a%!28)AND1)=1ANDa%!32=0ANDa%!36=0ANDa%!48=0ANDa%!52=0THENzb%=TRUE
14340ELSE:IFFNa(a%+56)="-"THENzb%=TRUE
14360ENDIF
14370ENDIF
14380ENDIF
14390=zb%
14420DEFPROCba:IFq%!20=t%THEN
14430a$=FNa(q%+44):IF((a%?2)MOD16)=2THEN
14450IFa$<>"<Wimp$Scrap>"THEN
14460CASEq%!24OF
14470WHEN8:$(a%+12)="Run "+a$:PROCb(t%,1,FNa(a%+12))
14510WHEN9:CASEq%!40OF
14520WHEN4096,8192:$(a%+12)="Filer_OpenDir "+a$:PROCb(t%,1,FNa(a%+12))
14560WHEN3548:$(a%+12)="Run "+a$:PROCb(t%,1,FNa(a%+12))
14590OTHERWISE:o%=0:WHILEINSTR(a$,".",o%+1)<>0:o%=INSTR(a$,".",o%+1):ENDWHILE:$(a%+12)="Filer_OpenDir "+LEFT$(a$,o%-1):PROCb(t%,1,FNa(a%+12))
14660ENDCASE
14660WHEN10:IFq%!40<>4096ANDq%!40<>8192THEN
14680$(a%+12)="Load "+a$:PROCb(t%,1,FNa(a%+12))
14710ENDIF
14710OTHERWISE:PROCe(a$)
14730ENDCASE
14730PROCa(e%,13,(1<<22),(((a%?3)AND128)>0)ORFNb):PROCa(e%,18,1<<21,n%AND((a%?3)AND128)=0):PROCa(e%,18,1<<22,(((a%?3)AND128)>0)ORFNb):PROCa(e%,20,1<<21,((a%?3)AND160)=32):PROCa(e%,20,1<<22,T%=-1ORn%ORFNb):IF(((a%?3)AND128)>0)ORFNbORn%THENKa%=0ELSEKa%=15
14790PROCl(e%,14,Ka%)
14810ENDIF
14810ELSE:f$=FNc(t%,1):Ab%=115-LEN(f$):SYS"OS_File",5,a$TOBb%,,Cb%:Db%=(Cb%AND&FFF00)>>8:IFBb%=1AND(Db%=4095ORDb%=4094ORDb%=4075)THEN
14870SYS"OS_Find",64,a$TOEb%:IFEXT#Eb%<Ab%THENAb%=EXT#Eb%
14890o%=b%:WHILEAb%>0:SYS"OS_BGet",,Eb%TOFb%:IFFb%<32THEN
14930IFFb%=10THENFb%=13
14940?o%=ASC("|"):o%+=1:Ab%-=1:?o%=Fb%+64:o%+=1:Ab%-=1
14970ELSE:?o%=Fb%:o%+=1:Ab%-=1
15000ENDIF
15000ENDWHILE:SYS"OS_Find",0,Eb%:?o%=0:PROCe(FNa(b%))
15050ELSE:PROCe(a$)
15070ENDIF
15070ENDIF
15080q%!12=q%!8:q%!16=4:!q%=256:SYS"Wimp_SendMessage",17,q%,q%!4
15130ELSE:IFq%!40=4093THEN
15140a$=FNa(q%+44):q%!12=q%!8:q%!16=4:!q%=256:SYS"Wimp_SendMessage",17,q%,q%!4:PROCC(a$):SOUND1,-15,100,5:IFa$="<Wimp$Scrap>"THEN
15220SYS"OS_File",6,"<Wimp$Scrap>"
15240ELSE:l$=a$
15260ENDIF
15260ENDIF
15270ENDIF
15280ENDPROC
15290
15310DEFPROCn(Gb%,Hb%):SYS"Wimp_GetPointerInfo",,q%:IFq%!12<>A%THEN
15330q%!20=q%!12:q%!24=q%!16:q%!28=!q%:q%!32=q%!4:q%!36=Gb%:q%!40=Hb%:e$=FNc(A%,1):WHILEINSTR(e$,".")>0:e$=RIGHT$(e$,LEN(e$)-INSTR(e$,".")):ENDWHILE:IFLEN(e$)>0ANDLEN(e$)<11THEN
15440$(q%+44)=e$:q%!12=0:!q%=256:q%!16=1:SYS"Wimp_SendMessage",18,q%,q%!20,q%!24
15500ELSE:PROCf(0,"Please enter a filename of up to 10 letters",1)
15520ENDIF
15520ENDIF
15530ENDPROC
15540
15560DEFPROCJ(a$):SYS"OS_File",5,a$TO,,,,,Ib%:IF(Ib%AND8)=8THEN
15580PROCf(0,"The file '"+a$+"' is locked",1)
15600ELSE:SYS"OS_Find",128,a$TOJb%:PROCr("!KeysDemo V2.00, Demonstration version Beta",Jb%):PROCr("List of keystrokes",Jb%):SYS"OS_BPut",10,Jb%:FORKb%=0TO7:FORLb%=0TO96:IFa%(Lb%,Kb%)<>-1THEN
15670IF!a%(Lb%,Kb%)<>0THEN
15680X%=a%(Lb%,Kb%)-4:F$="":REPEAT:X%=g%+X%!4:c$="":IF(Kb%AND4)THENc$+="Alt+"
15740IF(Kb%AND2)THENc$+="Ctrl+"
15750IF(Kb%AND1)THENc$+="Shift+"
15760c$+=a$(Lb%)+": ":c$+=FNa(X%+128):IFNOT(((X%?2)MOD16)=0ANDX%!20<0AND(X%?3AND8)=0)THEN
15790IF((X%?2)AND2)=0THENc$+=" ("+FNa(X%+56)+")"
15800ENDIF
15810IF(X%?3AND32)=0THENPROCr(c$,Jb%)
15820UNTILX%!4=-1
15840ENDIF
15840ENDIF
15850NEXTLb%:NEXTKb%:SYS"OS_Find",0,Jb%:SYS"OS_File",18,a$,4095
15900ENDIF
15900ENDPROC
15910
15930DEFPROCu(a$):PROCf(0,"Saving is not possible on this demonstration version",1):ENDPROC
15950
15970DEFPROCC(a$):PROCf(0,"Loading is not possible on this demostration version",1):ENDPROC
15990
16010DEFPROCga:FORMb%=0TO63:q%!12=0:SYS"XWimp_SendMessage",19,q%,-2,Mb%TO,,l%:IFl%<>-2ANDl%<>0THENPROCx(l%,"")
16040NEXTMb%:Nb%=FNk:WHILENb%<>-1:q%!12=0:SYS"XWimp_SendMessage",19,q%,Nb%,-1TO,,l%:IFl%<>Nb%ANDl%<>0THENPROCx(l%,"")
16090Nb%=FNl(Nb%):ENDWHILE:ENDPROC
16120
16140DEFPROCx(xb%,k$):Ob%=-1:Pb%=-1:FORJ%=yb%TO0STEP-1:IFb%(J%)=0THENOb%=J%
16170IFb%(J%)=xb%THENPb%=J%
16180NEXTJ%:IFPb%=-1THEN
16200b%(Ob%)=xb%:IFk$=""THENk$=FNn(xb%)
16220b$(Ob%)=k$
16240ENDIF
16240ENDPROC
16250
16270DEFPROCI:$g%="Keystrokes"+z$:FORQb%=12TO2584STEP4:g%!Qb%=0:NEXTQb%:FORI%=2588TO2588+k%-4STEP4:g%!I%=-1:NEXTI%:H%=2588+k%:ENDPROC
16360
16380DEFPROCG(Y%):Rb%=p%:FORI%=0TOk%-4STEP4:p%!I%=Y%!I%:NEXTI%:Y%=g%+Y%!4:Rb%+=k%:WHILEY%>g%AND(Y%?3AND32)<>0ANDRb%<p%+k%*10:FORI%=0TOk%-4STEP4:Rb%!I%=Y%!I%:NEXTI%:Y%=g%+Y%!4:Rb%+=k%:ENDWHILE:IFRb%<p%+k%*10THEN
16520FORI%=Rb%TOp%+k%*9STEPk%:!I%=0:NEXTI%
16560ENDIF
16560ENDPROC
16570
16590DEFPROCF(Y%):FORI%=0TOk%-4STEP4:p%!I%=Y%!I%:NEXTI%:p%!k%=0:p%?3=(p%?3)ANDNOT32:ENDPROC
16650
16670DEFPROC`(Sb%):Tb%=Sb%!4:Ub%=(?(g%+Tb%+3)AND32):PROCh(Sb%,FALSE):Sb%=g%+Tb%:Vb%=1:WHILETb%>0ANDVb%<10ANDUb%<>0:Tb%=Sb%!4:Ub%=(?(g%+Tb%+3)AND32):PROCh(Sb%,FALSE):Sb%=g%+Tb%:Vb%+=1:ENDWHILE:PROCc:ENDPROC
16810
16830DEFPROCN(d%):kb%=TRUE:IFd%<>-1THEN
16850IF(d%?3AND64)<>0AND(d%?3AND128)=0THENkb%=FALSE
16860ENDIF
16870IFkb%THEN
16880Wb%=a%:a%=d%:Ta%=TRUE:PROCD(B%,r%,p%?2):IFTa%THEN
16930a%=Wb%:d%?3=p%?3:d%?2=p%?2:FORI%=12TOk%-4STEP4:d%!I%=p%!I%:NEXTI%
17000ENDIF
17000ELSE:PROCf(0,"This keystroke is locked",1)
17030ENDIF
17030ENDPROC
17040
17060DEFPROCH(d%):Xb%=k%:WHILE!(Xb%+p%+4)<>-1ANDXb%<(k%*10):Xb%+=k%:ENDWHILE:IF(g%+H%+Xb%+k%)>g%+Sa%THEN
17110PROCf(0,"Sorry, I have no more memory",1)
17130ELSE:PROCN(d%):Yb%=d%:Zb%=p%:p%+=k%:IFd%!4=-1THEN_b%=FNfELSE_b%=g%+d%!4
17180WHILEp%<Zb%+k%*10AND(p%?3AND32)<>0:IF(_b%?3AND128)=0THENPROCy(_b%)ELSEPROCN(_b%):_b%=FNf
17200p%+=k%:ENDWHILE:p%=Zb%:a%=Yb%:IFa%!8=-1THENa%?3=a%?3ANDNOT32
17250ENDIF
17260ENDPROC
17270
17290DEFPROCm(g$):IFINSTR(g$,".")=0THEN
17300PROCf(0,"To save, drag the file to a directory display",1)
17320ELSE:CASEU%OF
17330WHEN1:PROCu(g$):l$=g$
17350WHEN2:PROCJ(g$):o$=g$
17360WHEN4:PROCK(g$):u$=g$
17370ENDCASE
17370SYS"Wimp_CreateMenu",,-1
17390ENDIF
17390ENDPROC
17400
17420DEFPROCaa(a$):SYS"OS_Find",128,a$TO`b%:PROCr("Set Keystroke$Do0 "+FNa(a%+128),`b%):SYS"OS_Find",0,`b%:SYS"OS_File",18,a$,4075:ENDPROC
17470
17490DEFPROCy(ac%):IFH%+g%+k%>g%+Sa%THEN
17500PROCf(0,"Sorry, I have no more memory",1)
17520ELSE:Tb%=ac%-g%:bc%=ac%!8:d%=FNf:?d%=B%:d%?1=(d%?1AND248)+r%:d%?2=p%?2:d%?3=p%?3:d%!4=Tb%:d%!8=bc%:FORI%=12TOk%-4STEP4:d%!I%=p%!I%:NEXTI%:IFd%+k%=g%+H%THEN
17650H%+=k%:FORI%=d%+k%TOd%+(k%*2)-4:!I%=-1:NEXTI%
17700ENDIF
17700IFd%!4<>-1THEN!(8+g%+d%!4)=d%-g%
17710IFd%!8<>-1THEN
17720!(4+g%+d%!8)=d%-g%
17740ELSE:!a%(B%,r%)=d%-g%
17760ENDIF
17760a%=d%
17780ENDIF
17780ENDPROC
17790
17810DEFPROC_(d%):PROCy(d%):Yb%=d%:Zb%=p%:p%+=k%:d%=g%+d%!4:WHILEp%<Zb%+k%*10AND(p%?3AND32)<>0:PROCy(d%):p%+=k%:d%=g%+d%!4:ENDWHILE:a%=Yb%:p%=Zb%:ENDPROC
17940
17960DEFPROCK(a$):PROCf(0,"Saving is not possible on this demonstration version",1):ENDPROC
17980
18000DEFPROCt(cc%,dc%,ec%):SYS"OS_GSTrans","<Keystroke%Var>",Ba%,8:SYS"OS_GSTrans","<Keystroke%Inc>",Ca%,8:IFcc%=-2THEN
18030SYS"XOS_ReadVarVal","Executor$Dir",b%,-1,0TO,,fc%:IFfc%THENz%!84=&7009001ELSEz%!84=&7409001
18050IFH%>2588+k%THENu%!108=&7009001ELSEu%!108=&7409001
18060SYS"Wimp_CreateMenu",,u%,(!q%)-64,340:xa%=cc%:Da%=(!q%)-64:Ea%=340
18110ELSE:IFq%!12=e%ANDq%!16=4THEN
18120$(a%+128)=FNc(e%,14):IFFNbTHENPROCh(a%,TRUE)
18140B%=95:r%=-INKEY(-1)-2*INKEY(-2)-4*INKEY(-3):PROCi:PROCc
18190ELSE:IFFNa(a%+128)<>""THENi%!180=&7009001ELSEi%!180=&7409001
18200IF!p%=-1THENi%!132=&7409001:i%!156=&7409001ELSEi%!132=&7009001:i%!156=&7009001
18210IF(a%?3AND128)=0THENi%!36=&7009001:i%!60=&7009001:i%!84=&7009001:i%!108=&7009001ELSEi%!36=&7409001:i%!60=&7409001:i%!84=&7409001:i%!108=&7409001
18220SYS"Wimp_CreateMenu",,i%,(!q%)-64,(q%!4)+44:xa%=cc%:Da%=(!q%)-64:Ea%=(q%!4)+44
18270ENDIF
18270ENDIF
18280ENDPROC
18290
18310DEFPROCM:PROCb(wa%,0,""):!b%=wa%:SYS"Wimp_GetWindowState",,b%:SYS"Wimp_OpenWindow",,b%:SYS"Wimp_GetCaretPosition",,L%:SYS"Wimp_SetCaretPosition",wa%,0,-1,-1,NOT(1<<25),-1:n$="<None>":REPEAT:SYS"Wimp_Poll",6146,q%TOca%
18400IFca%=8AND!q%=wa%ANDq%!24=13THENn$=FNc(wa%,0)
18410IF(ca%=17ORca%=18)ANDq%!16=0THENSYS"OS_Exit"
18420UNTILn$<>"<None>":OSCLI("Set Keystroke$Input "+n$):SYS"Wimp_SetCaretPosition",!L%,L%!4,L%!8,L%!12,L%!16,L%!20:!b%=wa%:SYS"Wimp_CloseWindow",,b%:ENDPROC
18480
18500DEFFNm:LOCALL%:SYS"OS_GSTrans","<Keystroke%Inc>",q%,8192:L%=VAL(FNa(q%)):SYS"OS_GSTrans","<Keystroke%Var>",q%,8192:gc%=VAL(FNa(q%)):IFL%<0THEN
18560IFgc%+L%<-999THENs$=""ELSEs$=STR$L%
18570ELSE:IFgc%+L%>9999THENs$=""ELSEs$="+"+STR$L%
18590ENDIF
18600=s$
18650DEFPROCf(hc%,A$,ic%):!b%=hc%:$(b%+4)=A$:SYS"Wimp_ReportError",b%,ic%,"Keystroke"TO,jc%:IFjc%=2THENSYS"Wimp_CloseDown":SYS"OS_Exit"
18680da%=FALSE:ENDPROC
18700
18720DEFFNi(B$):!b%=0:$(b%+4)=B$:SYS"Wimp_ReportError",b%,3,"Keystroke"TO,jc%:=(jc%=1)
18770DEFPROCb(f%,h%,c$):!b%=f%:b%!4=h%:SYS"Wimp_GetIconState",,b%:$(b%!28)=LEFT$(c$,(b%!32)-1):b%!8=0:b%!12=0:SYS"Wimp_SetIconState",,b%:ENDPROC
18850
18870DEFPROCa(f%,h%,kc%,lc%):!b%=f%:b%!4=h%:b%!12=kc%:b%!8=-lc%*kc%:SYS"Wimp_SetIconState",,b%:ENDPROC
18930
18950DEFPROCl(f%,h%,mc%):!b%=f%:b%!4=h%:b%!8=mc%<<12:b%!12=61440:SYS"Wimp_SetIconState",,b%:IFmc%<14THEN
19010IF!C%=f%ANDC%!4=h%THEN!C%=-1ANDC%!4=-1
19020ENDIF
19030ENDPROC
19040
19060DEFPROCq(f%,h%,nc%):!b%=f%:b%!4=h%:b%!8=nc%<<24:b%!12=-16777216:SYS"Wimp_SetIconState",,b%:ENDPROC
19120
19140DEFFNd(f%,h%,kc%):!b%=f%:b%!4=h%:SYS"Wimp_GetIconState",,b%:=(b%!24ANDkc%)>0
19200DEFFNa(o%):p$="":WHILE(?o%>31AND?o%<256)ANDLEN(p$)<255:p$=p$+CHR$?o%:o%=o%+1:ENDWHILE:=p$
19280DEFFNe(l%,o%):SYS"Wimp_TransferBlock",l%,o%,oc%,b%,256:o%=b%:p$="":WHILE(?o%>31AND?o%<256)ANDLEN(p$)<255:p$=p$+CHR$?o%:o%=o%+1:ENDWHILE:=p$
19380DEFPROCk(f%):!q%=f%:SYS"Wimp_GetWindowState",,q%:pc%=pa%-(q%!4):qc%=qa%-(q%!16)-1:q%!4=(q%!4)+pc%:q%!8=(q%!8)+qc%:q%!12=(q%!12)+pc%:q%!16=(q%!16)+qc%:q%!28=ta%:SYS"Wimp_OpenWindow",,q%:pa%=q%!4:qa%=q%!8:ra%=!q%:ENDPROC
19490
19510DEFPROCd(f%):!b%=f%:SYS"Wimp_CloseWindow",,b%:ENDPROC
19540
19560DEFFNn(l%):!q%=24:q%!12=0:q%!16=262342:q%!20=l%:SYS"Wimp_SendMessage",18,q%,0:j$="":REPEAT:PROCg(6147):UNTILj$<>"":=j$
19650DEFFNg(l%,f%,rc%):CASEf%OF
19660WHEN-1:d$="Background"
19680WHEN-2:d$="Icon bar"
19690OTHERWISE:!q%=f%:IFrc%THEN
19710q%!32=0:SYS"XWimp_GetWindowInfo",,q%:IFq%!32=0THEN
19740d$="Nonexistent"
19760ELSE:v%=(((q%!32)AND(1<<31))<>0):IF(v%AND(q%!32AND(1<<26))<>0)OR(NOTv%AND(q%!32AND1)<>0)ORq%?36<>255THEN
19780IF((q%!60)AND256)=0THEN
19790d$=FNa(q%+76)
19810ELSE:d$=FNe(l%,q%!76)
19830ENDIF
19830ELSE:d$="No title"
19860ENDIF
19860ENDIF
19870ELSE:SYS"Wimp_GetWindowInfo",,q%:v%=(((q%!32)AND(1<<31))<>0):IF(v%AND(q%!32AND(1<<26))<>0)OR(NOTv%AND(q%!32AND1)<>0)ORq%?36<>255THEN
19910IF((q%!60)AND256)=0THEN
19920d$=FNa(q%+76)
19940ELSE:d$=FNe(l%,q%!76)
19960ENDIF
19960ELSE:d$="No title"
19990ENDIF
19990ENDIF
20000ENDCASE
20010=d$
20040DEFFNo(l%,f%,h%):CASEh%OF
20050WHEN-1:b$="Background"
20070WHEN-2:b$="Back Icon"
20080WHEN-3:b$="Close Icon"
20090WHEN-4:b$="Title Bar"
20100WHEN-5:b$="Toggle Icon"
20110WHEN-6:b$="Scroll Up"
20120WHEN-7:b$="V Bar"
20130WHEN-8:b$="Scroll Down"
20140WHEN-9:b$="Adjust Size"
20150WHEN-10:b$="ScrollRight"
20160WHEN-11:b$="H Bar"
20170WHEN-12:b$="Scroll Left"
20180OTHERWISE:!q%=f%:q%!4=h%:SYS"Wimp_GetIconState",,q%:IF(((q%!24)AND61440)>>12)>13THEN
20220b$="Variable"
20240ELSE:IF((q%!24)AND256)=0THEN
20250b$=FNa(q%+28)
20270ELSE:IF((q%!24)AND1)=0THEN
20280b$=FNe(l%,q%!28)
20300ELSE:IF(q%!32)=-1THENv$=""ELSEv$=FNe(l%,q%!32)
20310b$=FNe(l%,q%!28):IFb$=""THENb$=MID$(v$,2,INSTR(v$,",")-2)
20330ENDIF
20340ENDIF
20350ENDIF
20360ENDCASE
20370=b$
20400DEFPROCfa(f%):IFf%<0THEN
20410Za%=0:_a%=0:`a%=0
20450ELSE:!q%=f%:SYS"Wimp_GetWindowInfo",,q%:Za%=q%!32ANDgb%:_a%=q%!36:`a%=q%!40
20510ENDIF
20510ENDPROC
20520
20540DEFFNp(f%,h%,kc%):!b%=f%:b%!4=h%:b%!8=kc%:b%!12=0:SYS"Wimp_SetIconState",,b%:SYS"Wimp_GetIconState",,b%:=(b%!24ANDkc%)>0
20630DEFFNq(x$):CASEx$OF
20640WHEN"Background":sc%=-1
20660WHEN"Icon bar":sc%=-2
20670OTHERWISE:sc%=-1:K%=FNk:WHILEK%<>-1ANDsc%=-1:!q%=20:q%!12=0:SYS"XWimp_SendMessage",19,q%,K%,-1TO,,tc%:IFtc%<>0ANDtc%<>K%THEN
20720IFx$=LEFT$(FNg(tc%,K%,FALSE),27)THENsc%=K%
20730ENDIF
20740K%=FNl(K%):ENDWHILE
20770ENDCASE
20770=sc%
20800DEFFNr(C$):uc%=-1:vc%=0:WHILEvc%<256ANDuc%=-1:!q%=20:q%!12=0:SYS"XWimp_SendMessage",19,q%,-2,vc%TO,,wc%:IFwc%<>0ANDwc%<>-2THEN
20850IFC$=LEFT$(FNo(wc%,-2,vc%),11)THENuc%=vc%
20860ENDIF
20870vc%+=1:ENDWHILE:=uc%
20920DEFPROCE:SYS"Wimp_GetPointerInfo",,b%:q%!4=5:q%!8=(!b%)-34:q%!12=(b%!4)-34:q%!16=(!b%)+34:q%!20=(b%!4)+34:q%!24=ia%:q%!28=ja%:q%!32=ka%:q%!36=la%:SYS"Wimp_DragBox",,q%:ENDPROC
21040
21060DEFPROCL:!b%=128:b%!4=129:b%!8=130:b%!12=131:b%!16=4:b%!20=5:b%!24=-1:SYS"OS_ReadVduVariables",b%,b%+28:ia%=b%!28<<b%!44:ja%=b%!32<<b%!48:ka%=b%!36<<b%!44:la%=b%!40<<b%!48:N%=1<<b%!44:O%=1<<b%!48:ENDPROC
21210
21230DEFFNc(f%,h%):!b%=f%:b%!4=h%:SYS"Wimp_GetIconState",,b%:=FNa(b%!28)
21290DEFPROCe(c$):f$=FNc(t%,1):IFLEN(c$)+LEN(f$)<116THEN
21310SYS"Wimp_GetCaretPosition",,b%:IF!b%<>t%THENxc%=LEN(f$)ELSExc%=b%!20
21330y$=LEFT$(f$,xc%)+c$+RIGHT$(f$,LEN(f$)-xc%):PROCb(t%,1,y$):$(a%+12)=y$:SYS"Wimp_SetCaretPosition",t%,1,-1,-1,NOT(1<<25),xc%+LEN(c$)
21380ENDIF
21380ENDPROC
21390
21410DEFFNj:SYS"Wimp_GetPointerInfo",,b%:f%=b%!12:q%!12=0:SYS"Wimp_SendMessage",19,q%,f%,-1TO,,l%:!q%=24:q%!12=0:q%!16=262342:q%!20=l%:SYS"Wimp_SendMessage",18,q%,0:j$="":REPEAT:PROCg(6146):UNTILj$<>"":IFj$<>"Filer"THEN
21520w$=""
21540ELSE:!q%=f%:SYS"Wimp_GetWindowInfo",,q%:IF(q%!60AND256)=256THEN
21570w$=FNa(q%!76)
21590ELSE:w$=FNa(q%+76)
21610ENDIF
21610ENDIF
21620=w$
21650DEFPROCr(c$,Eb%):FORI%=1TOLEN(c$):SYS"OS_BPut",ASC(MID$(c$,I%,1)),Eb%:NEXTI%:SYS"OS_BPut",10,Eb%:ENDPROC
21700
21720DEFPROCo(f%,h%,D$):!b%=f%:b%!4=h%:SYS"Wimp_GetIconState",,b%:$(b%!32)="s"+D$:b%!8=0:b%!12=0:SYS"Wimp_SetIconState",,b%:ENDPROC
21800
21820DEFFNk:LOCALI%:!q%=yc%:SYS"Wimp_GetWindowState",,q%:FORI%=4TO16STEP4:q%!I%=(q%!I%)-4096:NEXTI%:q%!28=-2:SYS"Wimp_OpenWindow",,q%:SYS"Wimp_GetWindowState",,q%:zc%=q%!28:SYS"Wimp_CloseWindow",,q%:=zc%
21960DEFFNl(f%):!q%=f%:SYS"Wimp_GetWindowState",,q%:=q%!28
22010DEFFNh:SYS"XOS_ReadVarVal",S%+128,S%,256,0TO,,Ac%:=LEFT$($S%,Ac%)
22050DEFPROCj:q%!64=1:Bc%=q%!8-!q%:Cc%=q%!12-q%!4:q%?68=Bc%MOD256:q%?69=Bc%DIV256:q%?70=Cc%MOD256:q%?71=Cc%DIV256:ENDPROC
22130
22170DEFPROCO:IFINKEY(-256)=161ORINKEY(-256)=160THENDc%=FALSEELSEDc%=TRUE
22180da%=TRUE:Z%=2000:k%=160:z$="1":yb%=127:Sa%=2588+(151*k%):DIMg% Sa%:DIMq% 8192,b% 256,_% Z%,u% 148,C% 24,S% 256,L% 24:DIMP% 52,Aa% 8,Ec% 8,Ba% 8,Fc% 8,Ca% 8:DIMz% 124,i% 196,D% 100,Q% 52,R% 52
22280DIMp% k%*10,c%(127),a$(96),a%(96,7),b%(yb%),b$(yb%):SYS"Wimp_Initialise",200,&4B534154,"KeysDemo"TOGc%,oc%:IFGc%<200THENPROCf(0,"This program will only work on RISC OS 2.00 or later",2)
22310aa%=FALSE:!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=12290:$(q%+24)="!Keysdemo":SYS"Wimp_CreateIcon",,q%TOHc%:PROCL:SYS"Wimp_OpenTemplate",,"<KeysDemo$Dir>.Templates":E%=_%:SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Info",0TO,,E%
22380PROCj:SYS"Wimp_CreateWindow",,q%TOyc%:SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Type",0TO,,E%:PROCj:!q%=(ka%/2)-338:q%!8=(ka%/2)+338:SYS"Wimp_CreateWindow",,q%TOe%:SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Text",0TO,,E%
22420PROCj:SYS"Wimp_CreateWindow",,q%TOt%:SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Window/Icon",0TO,,E%:PROCj:SYS"Wimp_CreateWindow",,q%TOm%:SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Click",0TO,,E%:PROCj:SYS"Wimp_CreateWindow",,q%TOM%
22470SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Menus",0TO,,E%:PROCj:SYS"Wimp_CreateWindow",,q%TOG%:SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Save",0TO,,E%:PROCj:SYS"Wimp_CreateWindow",,q%TOA%
22510SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"MoveWind",0TO,,E%:PROCj:SYS"Wimp_CreateWindow",,q%TOj%:SYS"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Enter",0TO,,E%:PROCj:SYS"Wimp_CreateWindow",,q%TOwa%:SYS"Wimp_CloseTemplate":$u%="KeysDemo":u%!12=459271
22570u%!16=152:u%!20=44:u%!24=0:u%!28=0:u%!32=yc%:u%!36=&7009001:$(u%+40)="Info":u%!52=0:u%!56=z%:u%!60=&7009001:$(u%+64)="Save":u%!76=2:u%!80=D%:u%!84=&7009001:$(u%+88)="Prefs"
22610u%!100=0:u%!104=-1:u%!108=&7009001:$(u%+112)="Clear All":u%!124=128:u%!128=-1:u%!132=&7009001:$(u%+136)="Quit":$z%="Save":z%!12=459271:z%!16=184:z%!20=44:z%!24=0
22650z%!28=8:z%!32=A%:z%!36=&7009001:$(z%+40)="Keystrokes":z%!52=0:z%!56=-1:z%!60=&7009001:$(z%+64)="Default":z%!76=8:z%!80=A%:z%!84=&7009001:$(z%+88)="Executor":z%!100=136:z%!104=A%:z%!108=&7009001:$(z%+112)="List"
22690$i%="Edit":i%!12=459271:i%!16=168:i%!20=44:i%!24=0:i%!28=0:i%!32=-1:i%!36=&7009001:$(i%+40)="Copy":i%!52=0:i%!56=-1:i%!60=&7009001:$(i%+64)="Copy Group":i%!76=0:i%!80=-1:i%!84=&7009001:$(i%+88)="Cut"
22740i%!100=0:i%!104=-1:i%!108=&7009001:$(i%+112)="Cut Group":i%!124=0:i%!128=-1:i%!132=&7009001:$(i%+136)="Paste":i%!148=0:i%!152=-1:i%!156=&7009001:$(i%+160)="Insert"
22770i%!172=136:i%!176=A%:i%!180=&7009001:$(i%+184)="Action":$D%="Prefs":D%!12=459271:D%!16=168:D%!20=44:D%!24=0:D%!28=0:D%!32=P%:D%!36=&7009001:$(D%+40)="Autoexec"
22810D%!52=0:D%!56=Q%:D%!60=&7009001:$(D%+64)="Variable":D%!76=128:D%!80=R%:D%!84=&7009001:$(D%+88)="Increment":$P%="Minutes":P%!12=459271:P%!16=96:P%!20=44:P%!24=0:P%!28=132:P%!32=-1:P%!36=&7009101
22860P%!40=Aa%:P%!44=Ec%:P%!48=3:$Aa%="15":$Ec%="a0-9":oa%=90000:na%=TIME:$Q%="Variable":Q%!12=459271:Q%!16=96:Q%!20=44:Q%!24=0:Q%!28=132:Q%!32=-1:Q%!36=&7009101:Q%!40=Ba%:Q%!44=Fc%:Q%!48=8:SYS"OS_GSTrans","<Keystroke%Var>",q%,8192
22930$Ba%=FNa(q%):$Fc%="a0-9\-":$R%="Increment":R%!12=459271:R%!16=96:R%!20=44:R%!24=0:R%!28=132:R%!32=-1:R%!36=&7009101:R%!40=Ca%:R%!44=Fc%:R%!48=8:SYS"OS_GSTrans","<Keystroke%Inc>",Ca%,8:H%=2588+k%:B%=13:r%=2:PROCI:w%=FALSE:FORma%=0TO127:READc%(ma%):NEXTma%
23060FORma%=0TO96:READa$(ma%):NEXTma%:Ic%=g%+12:FORI%=0TO96:READE$:FORJ%=0TO7:IFMID$(E$,J%+1,1)="1"THENa%(I%,J%)=Ic%:Ic%+=4ELSEa%(I%,J%)=-1
23140NEXTJ%:NEXTI%:va%=-1:U%=-1:l$="Keydefs":o$="List":u$="!Executor":!p%=-1:Jc%=255:gb%=-15196225:FORI%=0TOyb%:b$(I%)="":NEXTI%:PROCga:PROCi:PROCa(e%,10,1<<22,TRUE):PROCc:Kc%=FALSE:IFDc%THEN
23330SYS"OS_ReadSysInfo",2TO,,Kc%:Kc%=(Kc%=1)
23360ENDIF
23360IFKc%THEN
23370a$(55)="#":a$(62)="\":c%(94)=62:c%(46)=-1
23420ENDIF
23420da%=FALSE:ENDPROC
23440
23480DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,94,95,96,-1,-1,-1,-1
23480DATA 29,42,43,44, 4,47, 7,50,45,75,83,84,11,12,10,-1
23490DATA  0,35,17,32,46,21,48,39,50,76,85,86,60,61,62,63
23500DATA 40,41,16,30,45,33,27,28,54,73,87,88,93,64,65,66
23510DATA -1,13,36,18,37,22,23,41,57,71,90,-1,89,-1,67,68
23520DATA -1,31,15,19,20,26,24,57,56,70,91,92,-1,51,-1,-1
23530DATA 59,38,69,34,14,25,49,52,53,72,77,78,80,-1,-1,-1
23540DATA 58, 1, 2, 3, 5, 6, 8, 9,55,74,81,82,79,-1,-1,-1
23550
23570DATA Print (F0),F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,A,B,C
23570DATA D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S
23580DATA T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8
23590DATA 9,",","-","=",".","/","[","\","]",";",Escape,Tab,Break,Back tick,"�",Back space
23600DATA Insert,Home,Page Up,Page Down,"'",Space bar,Delete,Return
23610DATA Copy,Up arrow,Right arrow,Left arrow,Down arrow,Keypad 0,Keypad 1,Keypad 2
23620DATA Keypad 3,Keypad 4,Keypad 5,Keypad 6,Keypad 7,Keypad 8,Keypad 9,Keypad +
23630DATA Keypad -,Keypad .,Keypad /,Keypad #,Keypad *,Keypad Enter,Select,Menu,Adjust
23640
23660DATA 11111111,11111111,11111111,11111111,11111111,11111111,11111111,11111111
23660DATA 11111111,11111111,11111111,11111111,11111111,00111111,00111111,00111111
23670DATA 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
23680DATA 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
23690DATA 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
23700DATA 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
23710DATA 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
23720DATA 00111111,00111111,11111111,11111111,10001000,00111111,00111111,00111111
23730DATA 11111111,11111111,11111111,11111111,00111111,00111111,00111111,00111111
23740DATA 00111111,11111111,11111111,11111111,11111111,01111111,01111111,01111111
23750DATA 01111111,01111111,01111111,01111111,01111111,01111111,01111111,01111111
23760DATA 01111111,01111111,01111111,01111111,01111111,01111111,01111111,01111111,01111111
Q�><Squish$Scrap> squished by MH's BASIC cruncher v1.20 14/5/89 On 08 Mar 1993
6:�O:�:�g(6146):�aa%:ș"Wimp_CloseDown":ș"OS_Exit"
�,��g(ba%):ș"Wimp_Poll",ba%,q%�ca%:Ȏca%�
��0:�da%�ea%=-1:�P
�	�2:�s
�	�3:�Q
�	�4:�R
�	�5:�S
�	�6:�T
�	�7:�U
�	�8:�V
	�9:�W

�17,18:�X
�
�
"
JD��P:ș"Wimp_GetCaretPosition",,b%:�!b%=e%�(b%!4)<>14�fa%=��fa%=�
rda%=�:ga%=�:�(-4)��(-7)�
��z
�%�:ș"OS_Byte",121,9�,`%:�`%<>255�
�`%=c%(`%):�`%<>-1�
�*ha%=-�(-1)-2*�(-2)-4*�(-3):�fa%�`%<94�
�$$(a%+128)=�c(e%,14):�b��h(a%,�)
�3B%=`%:r%=ha%:ȕa%(B%,r%)=-1:r%=(r%+1)�8:�:�i:�c
D�:�a%(`%,ha%)<>-1�
N�!a%(`%,ha%)<>0�
X:c%=a%(`%,ha%)-4:s%=�:�:c%=g%+c%!4:�s%=��((c%?3)�32)=0�
��(c%?1�16)=16�
�s%=�
��:�A(c%):�g(6146)
��
��
�/�c%!4=-1:ȗȓia%,ja%,ka%-ia%,la%-ja%:�ga%�
�#�:ș"OS_Byte",122�,ma%:�ma%=255
�
�
 �
*�
4�
>�
H�
R�$(S%+128)="Keystroke$Do*":h$=�h:ȕh$<>"":ș"OS_SetVarVal",S%+128,"Clear",-1,0,0:�B(h$):$(S%+128)="Keystroke$Do*":h$=�h:�:$(S%+128)="Keystroke$Load*":t$=�h:ȕt$<>"":ș"OS_SetVarVal",S%+128,"Clear",-1,0,0:�C(t$):$(S%+128)="Keystroke$Load*"
�-t$=�h:�:�(na%+oa%)<���B("Autoexec"):na%=�
�da%=�:�

$]��s:�pa%,qa%,ra%,sa%:ș"Wimp_OpenWindow",,q%:pa%=q%!4:qa%=q%!8:ra%=!q%:ta%=q%!28:�!q%=e%�
`Ȏ((a%?2)�16)�
j)�0:�k(m%):�k(M%):�d(t%):�d(G%):�d(j%)
�+�1,5:�k(m%):�k(G%):�d(M%):�d(t%):�d(j%)
�+�2,3:�k(t%):�d(m%):�d(M%):�d(G%):�d(j%)
()�4:�k(m%):�k(j%):�d(t%):�d(M%):�d(G%)
d(:�d(m%):�d(M%):�d(t%):�d(G%):�d(j%)
��
��
��
�
�)��Q:ș"Wimp_CloseWindow",,q%:�!q%=e%�
�&�d(m%):�d(M%):�d(t%):�d(G%):�d(j%)
"�
"�
,
@��S:�!q%=e%�
^Pș"Wimp_GetCaretPosition",,C%:�((!C%)<>e%�(C%!4)<>14)�((!C%)<>t%�(C%!4)<>1)�
r#ș"Wimp_SetCaretPosition",e%,-1
��
��
��
�
�D��R:ș"Wimp_GetCaretPosition",,b%:�!q%=e%��((!b%)=e%�(b%!4)=14)�
�>ș"XWimp_SetCaretPosition",!C%,C%!4,C%!8,C%!12,C%!16,C%!20
��
��
�
��T:Ȏq%!8�
	�2:�Y
0�1,4:�Z((q%!8)=1)
:�
:�
D
X��Y:Ȏq%!12�
l�-2:�t(-2,(!q%)-64,384)
�3�e%,m%,M%,t%,G%,j%:�t(q%!12,(!q%)-64,(q%!4)+44)
��
��
�
���Z(ua%):Ȏq%!12�
�6�-2:!q%=e%:ș"Wimp_GetWindowState",,q%:q%!28=-1:�s
��e%:Ȏq%!16�
�1:�b��h(a%,�)
r%=r%�4:�i:�c
*�2:�b��h(a%,�)
4r%=r%�2:�i:�c
H�3:�b��h(a%,�)
Rr%=r%�1:�i:�c
f'�4:$(a%+128)=�c(e%,14):�b��h(a%,�)
z�ua%�B%=96�B%=94
�#r%=-�(-1)-2*�(-2)-4*�(-3):�i:�c
�.�6,7,8,9,10,11:�D(B%,r%,(q%!16)-6):w%=�:�c
��12:�(a%?3�128)>0�
�a%=T%:T%=a%!8
��:a%=g%+a%!8:T%=a%!8
��
��c
	�13:�a%!4=-1�
	T%=a%:a%=�f
	8�:a%=g%+a%!4:T%=a%!8
	V�
	V�c
	j,�16:a%?3=(a%?3�254)-�d(e%,16,1<<21):w%=�
	�.�17:a%?3=(a%?3�253)-2*�d(e%,17,1<<21):w%=�
	�R�18:a%?3=(a%?3�191)-64*�d(e%,18,1<<21):w%=�:ș"Wimp_SetCaretPosition",e%,-1:�c
	�/�20:a%?3=(a%?3�223)-32*�d(e%,20,1<<21):w%=�
	�.�21:a%?1=(a%?1�247)-8*�d(e%,21,1<<21):w%=�
/�22:a%?1=(a%?1�239)-16*�d(e%,22,1<<21):w%=�
2�
2�m%:�q%!16<>20�w%=�
FȎq%!16�
P'�2:a%?3=(a%?3)�28:a%?2=(a%?2)�15:�c
d �3:�((a%?2)�16)=0�h%=16�h%=0
n5a%?2=((a%?2)�15)+(1<<4):a%?3=(((a%?3)��16)+h%):�c
�2�4:a%?2=((a%?2)�15)+(2<<4):a%?3=((a%?3)�16):�c
�2�5:a%?2=((a%?2)�15)+(3<<4):a%?3=((a%?3)�16):�c
�5�6:a%?3=((a%?3)��4)-4*�d(m%,6,1<<21):�(a%?3�4)=4�
��b(m%,9,�a(a%+76))
��:�b(m%,9,"Irrelevant")
�
L�7:a%?3=((a%?3)��8)-8*�d(m%,7,1<<21):�((a%?2�16)=0�a%!20<0)�(a%?2�16)=4�
"�(a%?3�8)=8�
,�b(m%,1,�a(a%+56))
@�:�b(m%,1,"Irrelevant")
T�
T�
^�20:va%=1:�E
r�
r�M%:Ȏq%!16�
��1:a%?24=4:�c
��2:a%?24=1:�c
��3:a%?25=-�d(M%,3,1<<21)
��
�w%=�
�!�G%:h%=(q%!16)-8:�h%>-1�h%<7�
�	�ua%�
��a%!((h%*4)+28)>-1�
�`!(a%+28+(h%*4))=!(a%+28+(h%*4))-1:�b(G%,h%+8,�((a%!((h%*4)+28))+1)):�h%<6�a%!((h%*4)+28)=-1�
I�I%=h%+1�6:�a(G%,I%+8,1<<22,�):�b(G%,I%+8,"0"):!(a%+28+(I%*4))=-1:�I%
D�
D�
N�:�a%!((h%*4)+28)<998�
ba!(a%+28+(h%*4))=!(a%+28+(h%*4))+1:�b(G%,h%+8,�((a%!((h%*4)+28))+1)):�h%<6��a(G%,h%+9,1<<22,�)
��
��
��
�w%=�
��t%:Ȏq%!16�
��2:�e("<Sys$Time>")
��3:�e("<Sys$Date>")
��4:�e("<Sys$Year>")
��5:�e("|M")
��6:�e("|U")
��7:�e("<Filer$Dir>")

�8:�e("Run ")

�9:�e("Filer_OpenDir ")

�10:�e("Load ")

 #�11,12,13,14:�e(�((q%!16)+125))

*�15:�e("<Keystroke$Input>")

4�16:�e("<Keystroke%Var>")

>�

>w%=�

R�j%:Ȏq%!16�

\�1:a%!28=a%!28��1:�c

p�2:a%!28=a%!28�1:�c

z�4:�ua%�

�/a%!32=a%!32-N%:�a%!32<-9999�a%!32=-10000+N%

�1�:a%!32=a%!32+N%:�a%!32>99999�a%!32=100000-N%

��

��b(j%,4,�(a%!32))

��6:�ua%�

�/a%!36=a%!36-O%:�a%!36<-9999�a%!36=-10000+O%

�1�:a%!36=a%!36+O%:�a%!36>99999�a%!36=100000-O%
�
�b(j%,6,�(a%!36))
.�8:�ua%�
8/a%!40=a%!40-N%:�a%!40<-9999�a%!40=-10000+N%
L1�:a%!40=a%!40+N%:�a%!40>99999�a%!40=100000-N%
j�
t�b(j%,8,�(a%!40))
�
�10:�ua%�
�/a%!44=a%!44-O%:�a%!44<-9999�a%!44=-10000+O%
�1�:a%!44=a%!44+O%:�a%!44>99999�a%!44=100000-O%
��
��b(j%,10,�(a%!44))
�
�13:�ua%�
�2a%!48=a%!48-N%:�a%!48<-999999�a%!48=-&F4240+N%
4�:a%!48=a%!48+N%:�a%!48>9999999�a%!48=&989680-N%
�
(�b(j%,13,�(a%!48))
<
�15:�ua%�
F2a%!52=a%!52-O%:�a%!52<-999999�a%!52=-&F4240+O%
Z4�:a%!52=a%!52+O%:�a%!52>9999999�a%!52=&989680-O%
x�
��b(j%,15,�(a%!52))
��16:�d(j%,16,1<<21)�
�a%!28=(a%!28)�2
��:a%!28=(a%!28)��2
��
��c
��17:�d(j%,17,1<<21)�
�a%!28=(a%!28)�4
��:a%!28=(a%!28)��4
�
�c
"�18:�d(j%,18,1<<21)�
,a%!28=(a%!28)�8
@�:a%!28=(a%!28)��8
T�
TE�a(j%,4,1<<22,n%�((a%!28)�10)=0):�a(j%,6,1<<22,n%�((a%!28)�10)=0)
r�
r�A%:Ȏq%!16�
��0:va%=U%+1:�E
��2:�m(�c(A%,1))
��
��
��
�
���U:Ȏva%�
�	�1:�z
�2:�n(H%,4093)
�3:�n(0,4095)
�4:�n(256,4075)
&�5:�n(2048,8192)
0�
0va%=-1:�
D
X��V:ea%=q%!24:�ea%=13�
v
Ȏ!q%�
��t%:Ȏq%!4�
� �1:$(a%+12)=�c(t%,1):w%=�:�c
��
��e%:�q%!4=14�
�&$(a%+128)=�c(e%,14):w%=�:����(-74)
�
�A%:�m(�c(A%,1))
 6�wa%:n$=�c(wa%,0):!b%=wa%:ș"Wimp_CloseWindow",,b%
H�
Hfș"Wimp_GetPointerInfo",,b%:�b%!12=e%�ș"Wimp_SetCaretPosition",e%,-1�ș"Wimp_SetCaretPosition",-1
\�:ș"Wimp_ProcessKey",ea%
z�
z�
�
�3��W:�xa%=-2�i$="Main.":ya%=u%�i$="Edit.":ya%=i%
�3ș"Wimp_DecodeMenu",,ya%,q%,b%:i$+=�a(b%):Ȏi$�
�'�"Main.Save.Keystrokes":U%=1:�m(l$)
�5�"Main.Save.Default":�u("<KeysDemo$Dir>.Default")
�%�"Main.Save.Executor":U%=4:�m(u$)
�!�"Main.Save.List":U%=2:�m(o$)
��"Edit.Copy":�F(a%):w%=�
"�"Edit.Copy Group":�G(a%):w%=�
%�"Edit.Insert":�((a%?3)�128)=128�

�H(a%):�c
8�:�_(a%):�c
V�
Vw%=�
j �"Edit.Paste":�H(a%):w%=�:�c
�$�"Edit.Cut":w%=�:�F(a%):�h(a%,�)
�(�"Edit.Cut Group":w%=�:�G(a%):�`(a%)
��"Main.Clear All":�w%�
�1za%=�i("Keystrokes not saved. Are you sure?")
�:za%=�
�
	�za%�
!�I:�i:�c:u%!252=&7409001:w%=�
Z�
Z�"Main.Quit":�w%�
n1aa%=�i("Keystrokes not saved. Are you sure?")
��:aa%=�
��
�&:�i$,20)="Main.Prefs.Autoexec."�
��(�a(Aa%))=0�
�=�f(0,"The minimum time is one minute",1):$Aa%=�(oa%�6000)
��:oa%=�(�a(Aa%))*6000
��
��
�G�i$,20)="Main.Prefs.Variable."��("SetEval Keystroke%Var "+�a(Ba%))
�H�i$,21)="Main.Prefs.Increment."��("SetEval Keystroke%Inc "+�a(Ca%))
�
7ș"Wimp_GetPointerInfo",,b%:�b%!8=1��t(xa%,Da%,Ea%)
"�
,
@��X:Ȏ(q%!16)�
T�0:�w%�
h1aa%=�i("Keystrokes not saved. Are you sure?")
|�:aa%=�
��
�Y�1:q%!12=q%!8:q%!16=2:!q%=256:$(q%+44)="<Wimp$Scrap>":ș"Wimp_SendMessage",17,q%,q%!4
��2:a$=�a(q%+44):ȎU%�
�'�1:�u(a$):�a$<>"<Wimp$Scrap>"�l$=a$
�'�2:�J(a$):�a$<>"<Wimp$Scrap>"�o$=a$
��3:�aa(a$)
!�4:�a$<>"<Wimp$Scrap>"��K(a$)
�
Vș"Wimp_CreateMenu",,-1:q%!12=q%!8:q%!16=3:!q%=256:ș"Wimp_SendMessage",18,q%,q%!4
X
�3:�ba
l�262336:�q%!36=0�U%=1
v�q%!36=3�U%=2
��q%!32=6�U%=3
��q%!36=2�U%=4
�	ȎU%�
�2�1:�b(A%,1,l$):�o(A%,0,"file_ffd"):�l(A%,1,15)
�2�2:�b(A%,1,o$):�o(A%,0,"file_fff"):�l(A%,1,15)
�8�3:�b(A%,1,"Action"):�o(A%,0,"file_feb"):�l(A%,1,15)
 2�4:�b(A%,1,u$):�o(A%,0,"!executor"):�l(A%,1,0)
H�
H-ș"Wimp_CreateSubMenu",,q%!20,q%!24,q%!28
\�262337:�L
p�262338:�ca(q%!4,�a(q%+28))
��262339:�da(q%!4)
��262343:j$=�a(q%+28)
��
��
�
���A(c%):�(c%?1�8)=8�
�!ȗFa%,Ga%,Ha%:ȗȓFa%,Ga%,0,0
!�:ȗȓia%,ja%,ka%-ia%,la%-ja%
�
�(c%?3�2)=0�
.Ia%=1:�g(6146)
Lp�:!q%=0:$(q%+4)=�a(c%+128)+"?":ȗFa%,Ga%,Ha%:ș"Wimp_ReportError",q%,19,"Keystroke"�,Ia%:ȗ�Fa%,Ga%:�g(6146)
��
��Ia%=1�
�Hs%=�:�((((c%!104)�1048576)<>0)�(c%?2�16)=3)�(c%?2�16)<>2�Ja%=��Ja%=�
�Ȏ(c%?2�16)�
�7�0:�(c%!12)<>-1�(((c%?3)�8)=0�c%!20<0)��p(c%,c%!24)
��1:�(c%!12)<>-1��p(c%,2)
�2�2:m$=�a(c%+12):�m$,"<Keystroke$Input>")>0��M
��m$,"<Filer$Dir>")>0�
�q$=�j:�q$<>""�
1�("Set Filer$Dir "+q$):�("WimpTask "+m$):s%=�
(�
(�:�("WimpTask "+m$):s%=�
P�
P!�m$,"<Keystroke%Var>")>0�s%�
Zi�("SetEval Keystroke%Var Keystroke%Var"+�m):ș"OS_GSTrans","<Keystroke%Var>",q%,8192:�b(t%,19,�a(q%))
��
�2�3:r$=�a(c%+12):�r$,"<Keystroke$Input>")>0��M
��r$,"<Filer$Dir>")>0�
�=q$=�j:�q$<>""��("Set Filer$Dir "+�j)��("Unset Filer$Dir")
��
�Mș"OS_GSTrans",r$,q%,8192:o%=q%:ș"OS_Byte",15:ȕ?o%<>0:�?o%>135�?o%<140�
�*�g(6146):ș"Wimp_ProcessKey",(?o%)+260
&�:�g(6146):ș"Wimp_ProcessKey",?o%
6�
6+o%+=1:�:s%=�:�r$,"<Keystroke%Var>")>0�
^i�("SetEval Keystroke%Var Keystroke%Var"+�m):ș"OS_GSTrans","<Keystroke%Var>",q%,8192:�b(t%,19,�a(q%))
��
��4:�(c%!12)<>-1��p(c%,-1)
��5:�(c%!12)<>-1��p(c%,2)
��
�!�s%=��(c%?3�1)=1��1,-15,100,5
��g(6146)
��
��
�
���c:n%=((a%?3)�64)=64:�b(e%,4,a$(B%)):�a(e%,1,(1<<21),(r%�4)<>0):�a(e%,2,(1<<21),(r%�2)<>0):�a(e%,3,(1<<21),(r%�1)<>0):�(a%?3�128)>0�
:E�I%=6�11:�a(e%,I%,(1<<21),�):�a(e%,I%,(1<<22),�):�I%:�b(e%,14,"")
v_�:�I%=6�11:�a(e%,I%,1<<21,(((a%?2)�16))=(I%-6)):�a(e%,I%,1<<22,n%):�I%:�b(e%,14,�a(a%+128))
��
�l�a(e%,12,1<<22,T%=-1):�a(e%,13,1<<22,(((a%?3)�128)>0)��b):�a%!4=-1��b(e%,13,"New  �")��b(e%,13,"Next �")
�(�(((a%?3)�128)>0)��b�n%�Ka%=0�Ka%=15
ڻ�l(e%,14,Ka%):�a(e%,16,1<<21,((a%?3)�129)=1):�a(e%,16,1<<22,n%):�a(e%,17,1<<21,((a%?3)�130)=2):�a(e%,17,1<<22,n%):�a(e%,18,1<<21,n%�((a%?3)�128)=0):�a(e%,18,1<<22,(((a%?3)�128)>0)��b)
 ��a(e%,20,1<<21,((a%?3)�160)=32):�a(e%,20,1<<22,T%=-1�n%��b):�a(e%,21,1<<21,((a%?1)�8)=8):�a(e%,21,1<<22,n%��b):�a(e%,22,1<<21,((a%?1)�16)=16):�a(e%,22,1<<22,n%��b):F%=((a%?2)�16):ȎF%�
p>�0,1,4,5:�(F%=0�((a%?3)�8)=0�a%!20<0)�(F%=4�((a%?3)�8)=0)�
��b(m%,1,"Irrelevant")
��:�b(m%,1,�a(a%+56))
��
���I%=0�3:�a(m%,I%+2,1<<21,((a%?2)�16)=I%):�a(m%,I%+2,1<<22,n%):�I%:�a(m%,6,1<<21,((a%?3)�4)=4):�a(m%,6,1<<22,((a%?2)�16)=0�n%):�a(m%,7,1<<21,((a%?3)�8)=8):�a(m%,7,1<<22,((a%?2)�16)=0�n%):�(a%?3�4)=4�
�b(m%,9,�a(a%+76))
�:�b(m%,9,"Irrelevant")
.�
.
�F%=4�
8�b(m%,17,"Irrelevant")
L>�:�(a%?3�16)=0��b(m%,17,"At pointer")��b(m%,17,�a(a%+116))
V�
`t�a(M%,1,1<<21,(a%?24)=4):�a(M%,2,1<<21,(a%?24)=1):�a(M%,3,1<<21,(a%?25)=1):�I%=1�3:�a(M%,I%,1<<22,n%):�I%:�F%=4�
�M�a(j%,1,1<<21,((a%!28)�1)=0):�a(j%,2,1<<21,((a%!28)�1)=1):�((a%!28)�1)=0�
�.�b(j%,3,"Move to:"):�b(j%,12,"Scroll to:")
�0�:�b(j%,3,"Move by:"):�b(j%,12,"Scroll by:")
�
��a(j%,16,1<<21,((a%!28)�2)=2):�a(j%,17,1<<21,((a%!28)�4)=4):�a(j%,18,1<<21,((a%!28)�8)=8):�b(j%,4,�(a%!32)):�b(j%,6,�(a%!36)):�b(j%,8,�(a%!40)):�b(j%,10,�(a%!44)):�b(j%,13,�(a%!48)):�b(j%,15,�(a%!52))
Z��a(j%,1,1<<22,n%):�a(j%,2,1<<22,n%):�a(j%,4,1<<22,n%�((a%!28)�10)=0):�a(j%,6,1<<22,n%�((a%!28)�10)=0):�a(j%,8,1<<22,n%�((a%!28)�2)=0):�a(j%,10,1<<22,n%�((a%!28)�2)=0):�a(j%,13,1<<22,n%�((a%!28)�4)=0)
�4�a(j%,15,1<<22,n%�((a%!28)�4)=0):�((a%!28)�2)=0�
��q(j%,7,17):�q(j%,11,17)
��:�q(j%,7,23):�q(j%,11,23)
��
�4�I%=16�18:�a(j%,I%,1<<22,n%):�I%:�((a%!28)�6)=0�
d�b(m%,1,"Irrelevant"):�b(m%,9,"Irrelevant"):�b(m%,17,"Irrelevant"):�I%=2�7:�a(m%,I%,1<<22,�):�I%
^�
^g�:La%=�:�I%=0�6:�a(G%,8+I%,1<<22,La%�n%):�b(G%,8+I%,�((a%!((I%*4)+28))+1)):�a%!((I%*4)+28)=-1�La%=�
��I%
��
��a(m%,20,1<<22,n%)
°�2,3:�I%=2�14:�a(t%,I%,(1<<22),n%):�I%:�I%=8�10:�a(t%,I%,(1<<22),F%=3�n%):�I%:�I%=11�14:�a(t%,I%,(1<<22),F%=2�n%):�I%:�I%=5�6:�a(t%,I%,(1<<22),F%=2�n%):�I%:�n%�Ka%=0�Ka%=15
 D#�l(t%,1,Ka%):�b(t%,1,�a(a%+12))
 b�
 b=!q%=e%:ș"Wimp_GetWindowState",,q%:�((q%!32)�65536)<>0��s
 ��
 �
 �0��B(h$):�Ma%=0�96:�Na%=0�7:�a%(Ma%,Na%)<>-1�
 ��!a%(Ma%,Na%)<>0�
 �NOa%=a%(Ma%,Na%)-4:Pa%=�:s%=�:�:Oa%=g%+Oa%!4:�Pa%�Qa%=((Oa%?3)�32)=32�Qa%=�
!C�a(Oa%+128)=h$�(h$="Autoexec"���a(Oa%+128),8)="Autoexec")�Qa%�
!�A(Oa%):�g(6146):Pa%=s%
!4�
!4
�Oa%!4=-1
!H�
!H�
!R+�Na%:�Ma%:ȗȓia%,ja%,ka%-ia%,la%-ja%:�
!z
!�9��i:ȕa%(B%,r%)=-1:r%=(r%+1)�8:�:a%=!a%(B%,r%):�a%=0�
!�a%=�f:T%=-1
!��:T%=!(g%+a%+8):a%+=g%
!��
!��
"
"4ݤf:Ra%=g%+2588:ȕ((Ra%?3)�128)=0:Ra%+=k%:�:=Ra%
"`-��D(B%,r%,F%):w%=�:�v%:�(a%?3�128)>0�v%=�
"~�v%�H%+g%+(2*k%)>g%+Sa%�
"�0�f(0,"Sorry, I have no more memory",1):Ta%=�
"�
�:�v%�
"�a%?128=13:�a%+k%=g%+H%�
"�+H%+=k%:�I%=a%+k%�a%+(k%*2)-4:!I%=-1:�I%
"��
"�
Ua%=-1
#
�:Ua%=((a%?2)�16)
#�
#,?a%=B%:a%?1=r%:a%?2=((a%?2)�240)+F%:�v%�
#F a%!4=-1:�ea(B%,r%):�Va%<>-1�
#dVa%!4=a%-g%:a%!8=Va%-g%
#��:!a%(B%,r%)=a%-g%:a%!8=-1
#��
#��
#�	ȎF%�
#�!�0,1,5:�Ua%=2�Ua%=3�Ua%=4�v%�
#�
�F%=0�
#�a%?3=28:a%?2=F%
#��:a%?3=24:a%?2=F%+32
$�
$�a%!12=-1:a%!16=-1:a%!20=-1:a%!24=4:�I%=28�52�4:a%!I%=-1:�I%:$(a%+56)="-":$(a%+76)="-":a%!104=0:a%!108=0:a%!112=0:$(a%+116)="-"
$��
$�%�2,3:�Ua%=0�Ua%=1�Ua%=4�Ua%=5�v%�
$�#�I%=12�124�4:a%!I%=0:�I%:a%?3=0
$��
$��4:�Ua%<>4�v%�
$�a%?2=F%+16:a%?3=0:a%!12=0:a%!16=-1:a%!20=-1:a%!24=0:a%!28=3:�I%=32�52�4:a%!I%=0:�I%:$(a%+56)="Irrelevant":$(a%+76)="-":a%!104=0:a%!108=0:a%!112=0:$(a%+116)="-"
%��
%��
%��
%��
%�
%���ea(B%,r%):�!a%(B%,r%)=0�
%�
Va%=-1
%�2�:Va%=!a%(B%,r%)+g%:ȕVa%!4<>-1:Va%=g%+Va%!4:�
&�
&�
&
&*��z:�((((a%?2)�16))�2)=0�
&4>ș"Wimp_GetPointerInfo",,b%:�((a%?2)�15)=4�((a%!28)�14)=8�
&Ha%!32=!b%:a%!36=b%!4:�c
&p;�:Wa%=b%!12:Xa%=b%!16:�(Wa%<>m%�Xa%<>20)�(F%<>4�Wa%>0)�
&��w%=�:a%!16=Wa%:a%!20=Xa%:!b%=0:b%!16=0:ș"Wimp_SendMessage",19,q%,Wa%,Xa%�,,Ya%:a%!12=Ya%:$(a%+56)=�n(Ya%):$(a%+76)=��g(Ya%,Wa%,�),27):$(a%+116)=��o(Ya%,Wa%,Xa%),11):�fa(Wa%):a%!104=Za%:a%!108=_a%:a%!112=`a%:�((a%?2)�16)<>0�
'�a(a%+76)="Icon bar"�
'!a%?2=(a%?2)�15:a%?3=(a%?3)�12
'.�:�(Za%�(1<<20))=0�
'8)a%?2=((a%?2)�15)+(1<<4):a%?3=a%?3��16
'V*�:a%?2=((a%?2)�15)+(2<<4):a%?3=a%?3�16
't�
'ta%?3=((a%?3)�243)+8
'��
'��:�(a%!20)<0�
'�+a%?2=((a%?2)�15)+(1<<4):a%?3=(a%?3)��12
'��
'��
'�!�((a%?2)�15)=4�((a%!28)�1)=0�
'��((a%!28)�14)=8�
'�4ș"Wimp_GetPointerInfo",,b%:a%!32=!b%:a%!36=b%!4
(�:!b%=Wa%:ș"Wimp_GetWindowState",,b%:a%!32=b%!4:a%!36=b%!8:a%!40=b%!12:a%!44=b%!16:a%!48=b%!20:a%!52=b%!24:a%!28=(a%!28)�6
(d�
(d�
(n�c
(��
(��
(�w�:ș"Wimp_GetPointerInfo",,b%:!q%=20:q%!16=0:q%!12=0:ș"Wimp_SendMessage",19,q%,b%!12,b%!16�,,l%:�e(�g(l%,b%!12,�))
(��
(��
(�
(���p(c%,V%):ș"Wimp_GetPointerInfo",,b%:ab%=!b%:bb%=b%!4:cb%=b%!12:db%=b%!16:!q%=20:q%!12=0:ș"Wimp_SendMessage",19,q%,cb%,db%�,,eb%:!b%=ab%:b%!4=bb%:Ȏ((c%?2)�16)�
)%�0:�g(c%!12,c%!16,�)<>�a(c%+76)�
),��f(0,"The specified window has been deleted. Change the keystroke to 'Any window' or 'Window at pointer'. See the manual for more help.",1)
)@F�:�Ja%�ș"Wimp_GetCaretPosition",,C%:ș"Wimp_SetCaretPosition",-1
)J1�v(c%!12,c%!16,c%!20,V%,ab%,bb%):�V%=2��w(c%)
)^s%=�
)r�
)r�1:�db%>-2�
)�>�eb%=c%!12�(V%<>2�c%!20<-1�(c%?3�8)=0)�(V%=-1�(c%?3�8)=0)�
)��cb%>0�
)�|!q%=cb%:ș"Wimp_GetWindowInfo",,q%:fb%=�:�(((q%!32)�gb%)<>(c%!104)�(q%!36)<>(c%!108)�(q%!40)<>(c%!112))�(c%?3�8)=8�fb%=�
)��((q%!60)�256)=0�
)�d$=�a(q%+76)
)��:d$=�e(eb%,q%!76)
)��
)�(�d$,27)<>�a(c%+76)�(c%?3�4)=4�fb%=�
)�	�fb%�
*D�Ja%�ș"Wimp_GetCaretPosition",,C%:ș"Wimp_SetCaretPosition",-1
*#�(c%?3�16)=16�hb%=c%!20�hb%=db%
*+�v(eb%,cb%,hb%,V%,ab%,bb%):�V%=2��w(c%)
*0s%=�
*D�
*D�
*N�
*X�
*b?�2,3:W%=�k:�ib%=0�252�4:S%!ib%=W%:�W%<>-1�W%=�l(W%)�jb%=ib%
*���ib%:kb%=�:ib%=jb%:ȕib%>0�(�kb%�((c%?2)�16)=3):W%=S%!ib%:!q%=20:q%!12=0:ș"XWimp_SendMessage",19,q%,W%,-1�,,lb%:�lb%<>0�lb%<>W%�
*�y!q%=W%:ș"Wimp_GetWindowInfo",,q%:fb%=�:�((q%!32�gb%)<>(c%!104)�(q%!36)<>(c%!108)�(q%!40)<>(c%!112))�(c%?3�8)=8�fb%=�
+4�g(lb%,W%,�),27)<>�a(c%+76)�((c%?3)�4)=4�fb%=�
+F�(lb%=c%!12�(V%<>2�c%!20<-1�(c%?3�8)=0)�(V%=-1�(c%?3�8)=0))�fb%=�
+	�fb%�
+ D�Ja%�ș"Wimp_GetCaretPosition",,C%:ș"Wimp_SetCaretPosition",-1
+*,�v(lb%,W%,c%!20,V%,ab%,bb%):�V%=2��w(c%)
+>kb%=�:s%=�
+\�
+\�
+fib%-=4:�
+��
+��
+�
+���w(c%):Ȏ(c%?2�16)�
+�u�1:�I%=0�24�4:b%!I%=c%!(I%+28):�I%:b%!28=-1:ș"Wimp_SendMessage",9,b%,c%!12:s%=�:�g(6146):ș"Wimp_CreateMenu",,-1
,��5:ș"Wimp_CreateMenu",,-1:�g(6146):!b%=64:b%!12=0:b%!16=262336:b%!20=1:b%!24=ab%-64:b%!28=bb%+44:�I%=0�24�4:b%!(I%+32)=c%!(I%+28):�I%:b%!60=-1:ș"Wimp_SendMessage",17,b%,c%!12:s%=�
,~�
,~�
,�
,�"��v(l%,f%,h%,mb%,x%,y%):�f%>0�
,�F!q%=f%:ș"Wimp_GetWindowState",,q%:�((q%!32)�(1<<31))<>0�v%=��v%=�
,�knb%=(v%�(q%!32�(1<<30))<>0)�(�v%�(q%!32�(1<<3))<>0):ob%=(v%�(q%!32�(1<<28))<>0)�(�v%�(q%!32�(1<<2))<>0)
,��:nb%=�:ob%=�
,��
,��mb%=-1�
-�((c%!28)�6)=0�
-
�((c%!28)�8)=8�
-�((c%!28)�1)=0�
-ȗ�c%!32,c%!36
-20�:ȗFa%,Ga%,Ha%:ȗ�Fa%+c%!32,Ga%+c%!36:ga%=�
-Z�
-Z�
-d�:�f%>0�l%>0�
-x6!q%=f%:ș"Wimp_GetWindowState",,q%:�((c%!28)�1)=0�
-��((c%!28)�2)=2�
-��((c%!28)�8)=8�
-�JȗFa%,Ga%,Ha%:pb%=(c%!32)-(q%!4):qb%=(c%!36)-(q%!8):ȗ�Fa%+pb%,Ga%+qb%
-��
-�1q%!4=c%!32:q%!8=c%!36:q%!12=c%!40:q%!16=c%!44
.#�:�((c%!28)�8)=8�ȗ�c%!32,c%!36
.�
."�((c%!28)�4)=4�
.,�nb%�q%!20=c%!48
.6�ob%�q%!24=c%!52
.@�
.J�:�((c%!28)�2)=2�
.^Gq%!4=q%!4+c%!32:q%!8=q%!8+c%!36:q%!12=q%!12+c%!40:q%!16=q%!16+c%!44
.��
.��((c%!28)�4)=4�
.��nb%�q%!20=q%!20+c%!48
.��ob%�q%!24=q%!24+c%!52
.��
.��((c%!28)�8)=8�
.�8ȗFa%,Ga%,Ha%:pb%=c%!32:qb%=c%!36:ȗ�Fa%+pb%,Ga%+qb%
.��
.�	ga%=�
/�
/ ș"Wimp_SendMessage",2,q%,l%
/�
/�
/&s%=�
/:
�:�h%<-1�
/D	Ȏh%�
/N[�-2:!q%=f%:ș"Wimp_GetWindowState",,q%:�(v%�(q%!32�(1<<24))<>0)�(�v%�(q%!32�(1<<7))=0)�
/v.q%!28=-2:ș"Wimp_SendMessage",2,q%,l%:s%=�
/��
/�[�-3:!q%=f%:ș"Wimp_GetWindowState",,q%:�(v%�(q%!32�(1<<25))<>0)�(�v%�(q%!32�(1<<7))=0)�
/�%ș"Wimp_SendMessage",3,q%,l%:s%=�
/��
/��-4,-9:�(mb%�255)=4�
/�S!q%=f%:ș"Wimp_GetWindowState",,q%:�(v%�(q%!32�(1<<26))<>0)�(�v%�(q%!32�1)<>0)�
0.q%!28=-1:ș"Wimp_SendMessage",2,q%,l%:s%=�
0>�
0>�
0HA�-5:!q%=f%:ș"Wimp_GetWindowState",,q%:�((q%!32)�(1<<18))<>0�
0pq%!8=q%!16:q%!12=q%!4
0��:q%!8=-4096:q%!12=4096
0��
0�0�(v%�(q%!32�(1<<27))<>0)�(�v%�(q%!32�1)<>0)�
0�%ș"Wimp_SendMessage",2,q%,l%:s%=�
0��
0�0�-6:!q%=f%:ș"Wimp_GetWindowState",,q%:�ob%�
0�<q%!24=(q%!24)+32:ș"Wimp_SendMessage",2,q%,l%:ga%=�:s%=�
1.�
1.0�-8:!q%=f%:ș"Wimp_GetWindowState",,q%:�ob%�
1V<q%!24=(q%!24)-32:ș"Wimp_SendMessage",2,q%,l%:ga%=�:s%=�
1��
1�1�-10:!q%=f%:ș"Wimp_GetWindowState",,q%:�nb%�
1�<q%!20=(q%!20)-32:ș"Wimp_SendMessage",2,q%,l%:ga%=�:s%=�
1��
1�1�-12:!q%=f%:ș"Wimp_GetWindowState",,q%:�nb%�
2
<q%!20=(q%!20)+32:ș"Wimp_SendMessage",2,q%,l%:ga%=�:s%=�
2<�
2<�
2F�:rb%=-1:�h%=-1�
2d<!q%=f%:ș"Wimp_GetWindowInfo",,q%:rb%=(q%!64)>>12:sb%=-1
2�g�:!b%=f%:b%!4=h%:b%!24=0:ș"XWimp_GetIconState",,b%:�b%!24<>0�rb%=(b%!24>>12)�15:sb%=(b%!24>>16)�31
2��
2��rb%=-1�
2܎�f(0,"The specific window has been deleted. Change the keystroke to 'Any window' or 'Window at pointer'. See the manual for more help.",1)
2�F�:tb%=mb%�255:ub%=mb%>255:!b%=x%:b%!4=y%:b%!12=f%:b%!16=h%:�tb%=2�
36'b%!8=2:ș"Wimp_SendMessage",6,b%,l%
3T�:Ȏrb%�
3^�0,12,13
3rH�1,2,3,4,6,9:b%!8=tb%:ș"Wimp_SendMessage",6,b%,l%:s%=�:�rb%=2�ga%=�
3��5,8:�ub%�
3�.b%!8=tb%:ș"Wimp_SendMessage",6,b%,l%:s%=�
3��:�tb%=4�sb%<>0�
3��a(f%,h%,1<<21,�)
3��:Ha%=�p(f%,h%,1<<21)
4�
4�
4C�7,11:b%!8=tb%:ș"Wimp_SendMessage",6,b%,l%:s%=�:�tb%=4�sb%<>0�
4D�a(f%,h%,1<<21,�)
4X�:Ha%=�p(f%,h%,1<<21)
4l�
4l
�10:�ub%�
4�b%!8=tb%
4��:b%!8=tb%*256
4��
4�%ș"Wimp_SendMessage",6,b%,l%:s%=�
4�d�14:b%!8=tb%:ș"Wimp_SendMessage",6,b%,l%:s%=�:ș"Wimp_SetCaretPosition",f%,h%,-1,-1,�(1<<25),-1
4�>�15:ș"Wimp_SetCaretPosition",f%,h%,-1,-1,�(1<<25),-1:s%=�
5�
5�
5 �
5*�
54�
5>�
5H
5\��h(d%,vb%):�(d%?3�128)=0�
5f+wb%=-((d%!4)<>-1)-2*((d%!8)<>-1):Ȏwb%�
5z�0:!a%(?d%,((d%?1)�7))=0
5�/�1:!a%(?d%,((d%?1)�7))=d%!4:!(8+g%+d%!4)=-1
5��2:!(4+g%+d%!8)=-1
5�*�3:!(8+g%+d%!4)=d%!8:!(4+g%+d%!8)=d%!4
5��
5�d%?3=d%?3�128:�d%!8=-1�
5��i
6$�:�d%!4=-1�a%=g%+d%!8�a%=g%+d%!4
6�
6$�(a%?3�128)=0�T%=a%!8�T%=-1
6.��I%=4�k%-4�4:d%!I%=-1:�I%:d%?2=255:ȕ(?(g%+H%-(2*k%)+3)�128)=128:!(g%+H%-(2*k%))=-1:H%-=k%:�:�a%!8=-1�((a%?3)�128)=0�a%?3=a%?3��32
6��vb%��c
6��
6��
6�
6�D��ca(xb%,k$):�x(xb%,k$):�d%=g%+2588�g%+H%-k%�k%:�((d%?3)�128)=0�
6�0�a(d%+56)=k$�((d%?2)�16)<>2�((d%?2)�16)<>3�
6�0d%!12=xb%:�((d%?2)�16)=0�d%!16=�q(�a(d%+76))
6�"�d%!16=-2�d%!20=�r(�a(d%+116))
7�
7
�
7	�d%:�
7(
7<^��da(xb%):�d%=g%+2588�g%+H%-k%�k%:�((d%?3)�128)=0�((d%?2)�16)<>2�((d%?2)�16)<>3�d%!12=xb%�
7P$d%!12=-1:�((d%?2)�16)=0�d%!16=-1
7d�
7n0�d%:�I%=0�yb%:�b%(I%)=xb%�b%(I%)=0:b$(I%)=""
7�	�I%:�
7�
7�ݤb:zb%=�:�(a%?3�128)=0�
7��(((a%?2)�16)�2)=2�
7��a(a%+12)=""�zb%=�
7��:�((a%?2)�16)=4�
7��((a%!28)�14)=0�zb%=�
7�8�((a%!28)�1)=1�a%!32=0�a%!36=0�a%!48=0�a%!52=0�zb%=�
8�:�a(a%+56)="-"�zb%=�
8�
8"�
8,�
86=zb%
8T��ba:�q%!20=t%�
8^ a$=�a(q%+44):�((a%?2)�16)=2�
8r�a$<>"<Wimp$Scrap>"�
8|Ȏq%!24�
8�,�8:$(a%+12)="Run "+a$:�b(t%,1,�a(a%+12))
8��9:Ȏq%!40�
8�>�4096,8192:$(a%+12)="Filer_OpenDir "+a$:�b(t%,1,�a(a%+12))
8�/�3548:$(a%+12)="Run "+a$:�b(t%,1,�a(a%+12))
8�g:o%=0:ȕ�a$,".",o%+1)<>0:o%=�a$,".",o%+1):�:$(a%+12)="Filer_OpenDir "+�a$,o%-1):�b(t%,1,�a(a%+12))
9D�
9D!�10:�q%!40<>4096�q%!40<>8192�
9X*$(a%+12)="Load "+a$:�b(t%,1,�a(a%+12))
9v�
9v:�e(a$)
9��
9���a(e%,13,(1<<22),(((a%?3)�128)>0)��b):�a(e%,18,1<<21,n%�((a%?3)�128)=0):�a(e%,18,1<<22,(((a%?3)�128)>0)��b):�a(e%,20,1<<21,((a%?3)�160)=32):�a(e%,20,1<<22,T%=-1�n%��b):�(((a%?3)�128)>0)��b�n%�Ka%=0�Ka%=15
9��l(e%,14,Ka%)
9��
9�r�:f$=�c(t%,1):Ab%=115-�(f$):ș"OS_File",5,a$�Bb%,,Cb%:Db%=(Cb%�&FFF00)>>8:�Bb%=1�(Db%=4095�Db%=4094�Db%=4075)�
:.ș"OS_Find",64,a$�Eb%:�#Eb%<Ab%�Ab%=�#Eb%
:*/o%=b%:ȕAb%>0:ș"OS_BGet",,Eb%�Fb%:�Fb%<32�
:R�Fb%=10�Fb%=13
:\3?o%=�("|"):o%+=1:Ab%-=1:?o%=Fb%+64:o%+=1:Ab%-=1
:z�:?o%=Fb%:o%+=1:Ab%-=1
:��
:�(�:ș"OS_Find",0,Eb%:?o%=0:�e(�a(b%))
:��:�e(a$)
:��
:��
:�>q%!12=q%!8:q%!16=4:!q%=256:ș"Wimp_SendMessage",17,q%,q%!4
;�:�q%!40=4093�
;$sa$=�a(q%+44):q%!12=q%!8:q%!16=4:!q%=256:ș"Wimp_SendMessage",17,q%,q%!4:�C(a$):�1,-15,100,5:�a$="<Wimp$Scrap>"�
;t ș"OS_File",6,"<Wimp$Scrap>"
;��:l$=a$
;��
;��
;��
;��
;�
;�8��n(Gb%,Hb%):ș"Wimp_GetPointerInfo",,q%:�q%!12<>A%�
;�q%!20=q%!12:q%!24=q%!16:q%!28=!q%:q%!32=q%!4:q%!36=Gb%:q%!40=Hb%:e$=�c(A%,1):ȕ�e$,".")>0:e$=�e$,�(e$)-�e$,".")):�:�(e$)>0��(e$)<11�
<PN$(q%+44)=e$:q%!12=0:!q%=256:q%!16=1:ș"Wimp_SendMessage",18,q%,q%!20,q%!24
<�;�:�f(0,"Please enter a filename of up to 10 letters",1)
<��
<��
<��
<�
<�1��J(a$):ș"OS_File",5,a$�,,,,,Ib%:�(Ib%�8)=8�
<�)�f(0,"The file '"+a$+"' is locked",1)
<��:ș"OS_Find",128,a$�Jb%:�r("!KeysDemo V2.00, Demonstration version Beta",Jb%):�r("List of keystrokes",Jb%):ș"OS_BPut",10,Jb%:�Kb%=0�7:�Lb%=0�96:�a%(Lb%,Kb%)<>-1�
=6�!a%(Lb%,Kb%)<>0�
=@AX%=a%(Lb%,Kb%)-4:F$="":�:X%=g%+X%!4:c$="":�(Kb%�4)�c$+="Alt+"
=|�(Kb%�2)�c$+="Ctrl+"
=��(Kb%�1)�c$+="Shift+"
=�Ic$+=a$(Lb%)+": ":c$+=�a(X%+128):�(((X%?2)�16)=0�X%!20<0�(X%?3�8)=0)�
=�(�((X%?2)�2)=0�c$+=" ("+�a(X%+56)+")"
=��
=��(X%?3�32)=0��r(c$,Jb%)
=��X%!4=-1
=��
=��
=�6�Lb%:�Kb%:ș"OS_Find",0,Jb%:ș"OS_File",18,a$,4095
>�
>�
>&
>:L��u(a$):�f(0,"Saving is not possible on this demonstration version",1):�
>N
>bL��C(a$):�f(0,"Loading is not possible on this demostration version",1):�
>v
>�Z��ga:�Mb%=0�63:q%!12=0:ș"XWimp_SendMessage",19,q%,-2,Mb%�,,l%:�l%<>-2�l%<>0��x(l%,"")
>�b�Mb%:Nb%=�k:ȕNb%<>-1:q%!12=0:ș"XWimp_SendMessage",19,q%,Nb%,-1�,,l%:�l%<>Nb%�l%<>0��x(l%,"")
>�Nb%=�l(Nb%):�:�
>�
?;��x(xb%,k$):Ob%=-1:Pb%=-1:�J%=yb%�0�-1:�b%(J%)=0�Ob%=J%
?*�b%(J%)=xb%�Pb%=J%
?4�J%:�Pb%=-1�
?H!b%(Ob%)=xb%:�k$=""�k$=�n(xb%)
?\b$(Ob%)=k$
?p�
?p�
?z
?�g��I:$g%="Keystrokes"+z$:�Qb%=12�2584�4:g%!Qb%=0:�Qb%:�I%=2588�2588+k%-4�4:g%!I%=-1:�I%:H%=2588+k%:�
?�
?����G(Y%):Rb%=p%:�I%=0�k%-4�4:p%!I%=Y%!I%:�I%:Y%=g%+Y%!4:Rb%+=k%:ȕY%>g%�(Y%?3�32)<>0�Rb%<p%+k%*10:�I%=0�k%-4�4:Rb%!I%=Y%!I%:�I%:Y%=g%+Y%!4:Rb%+=k%:�:�Rb%<p%+k%*10�
@� �I%=Rb%�p%+k%*9�k%:!I%=0:�I%
@��
@��
@�
@�B��F(Y%):�I%=0�k%-4�4:p%!I%=Y%!I%:�I%:p%!k%=0:p%?3=(p%?3)��32:�
A

A���`(Sb%):Tb%=Sb%!4:Ub%=(?(g%+Tb%+3)�32):�h(Sb%,�):Sb%=g%+Tb%:Vb%=1:ȕTb%>0�Vb%<10�Ub%<>0:Tb%=Sb%!4:Ub%=(?(g%+Tb%+3)�32):�h(Sb%,�):Sb%=g%+Tb%:Vb%+=1:�:�c:�
A�
A���N(d%):kb%=�:�d%<>-1�
A�$�(d%?3�64)<>0�(d%?3�128)=0�kb%=�
A��
A�	�kb%�
A�+Wb%=a%:a%=d%:Ta%=�:�D(B%,r%,p%?2):�Ta%�
B"<a%=Wb%:d%?3=p%?3:d%?2=p%?2:�I%=12�k%-4�4:d%!I%=p%!I%:�I%
Bh�
Bh(�:�f(0,"This keystroke is locked",1)
B��
B��
B�
B�R��H(d%):Xb%=k%:ȕ!(Xb%+p%+4)<>-1�Xb%<(k%*10):Xb%+=k%:�:�(g%+H%+Xb%+k%)>g%+Sa%�
B�*�f(0,"Sorry, I have no more memory",1)
B�=�:�N(d%):Yb%=d%:Zb%=p%:p%+=k%:�d%!4=-1�_b%=�f�_b%=g%+d%!4
CEȕp%<Zb%+k%*10�(p%?3�32)<>0:�(_b%?3�128)=0��y(_b%)��N(_b%):_b%=�f
C01p%+=k%:�:p%=Zb%:a%=Yb%:�a%!8=-1�a%?3=a%?3��32
Cb�
Cl�
Cv
C���m(g$):�g$,".")=0�
C�;�f(0,"To save, drag the file to a directory display",1)
C��:ȎU%�
C��1:�u(g$):l$=g$
C��2:�J(g$):o$=g$
C��4:�K(g$):u$=g$
C��
C�ș"Wimp_CreateMenu",,-1
C��
C��
C�
Dv��aa(a$):ș"OS_Find",128,a$�`b%:�r("Set Keystroke$Do0 "+�a(a%+128),`b%):ș"OS_Find",0,`b%:ș"OS_File",18,a$,4075:�
D>
DR��y(ac%):�H%+g%+k%>g%+Sa%�
D\*�f(0,"Sorry, I have no more memory",1)
Dp��:Tb%=ac%-g%:bc%=ac%!8:d%=�f:?d%=B%:d%?1=(d%?1�248)+r%:d%?2=p%?2:d%?3=p%?3:d%!4=Tb%:d%!8=bc%:�I%=12�k%-4�4:d%!I%=p%!I%:�I%:�d%+k%=g%+H%�
D�+H%+=k%:�I%=d%+k%�d%+(k%*2)-4:!I%=-1:�I%
E$�
E$ �d%!4<>-1�!(8+g%+d%!4)=d%-g%
E.�d%!8<>-1�
E8!(4+g%+d%!8)=d%-g%
EL�:!a%(B%,r%)=d%-g%
E`�
E`	a%=d%
Et�
Et�
E~
E�y��_(d%):�y(d%):Yb%=d%:Zb%=p%:p%+=k%:d%=g%+d%!4:ȕp%<Zb%+k%*10�(p%?3�32)<>0:�y(d%):p%+=k%:d%=g%+d%!4:�:a%=Yb%:p%=Zb%:�
F
F(L��K(a$):�f(0,"Saving is not possible on this demonstration version",1):�
F<
FPk��t(cc%,dc%,ec%):ș"OS_GSTrans","<Keystroke%Var>",Ba%,8:ș"OS_GSTrans","<Keystroke%Inc>",Ca%,8:�cc%=-2�
FnVș"XOS_ReadVarVal","Executor$Dir",b%,-1,0�,,fc%:�fc%�z%!84=&7009001�z%!84=&7409001
F�/�H%>2588+k%�u%!108=&7009001�u%!108=&7409001
F�Eș"Wimp_CreateMenu",,u%,(!q%)-64,340:xa%=cc%:Da%=(!q%)-64:Ea%=340
F��:�q%!12=e%�q%!16=4�
F�$$(a%+128)=�c(e%,14):�b��h(a%,�)
F�)B%=95:r%=-�(-1)-2*�(-2)-4*�(-3):�i:�c
G5�:�a(a%+128)<>""�i%!180=&7009001�i%!180=&7409001
GK�!p%=-1�i%!132=&7409001:i%!156=&7409001�i%!132=&7009001:i%!156=&7009001
G"��(a%?3�128)=0�i%!36=&7009001:i%!60=&7009001:i%!84=&7009001:i%!108=&7009001�i%!36=&7409001:i%!60=&7409001:i%!84=&7409001:i%!108=&7409001
G,Qș"Wimp_CreateMenu",,i%,(!q%)-64,(q%!4)+44:xa%=cc%:Da%=(!q%)-64:Ea%=(q%!4)+44
G^�
G^�
Gh�
Gr
G����M:�b(wa%,0,""):!b%=wa%:ș"Wimp_GetWindowState",,b%:ș"Wimp_OpenWindow",,b%:ș"Wimp_GetCaretPosition",,L%:ș"Wimp_SetCaretPosition",wa%,0,-1,-1,�(1<<25),-1:n$="<None>":�:ș"Wimp_Poll",6146,q%�ca%
G�(�ca%=8�!q%=wa%�q%!24=13�n$=�c(wa%,0)
G�(�(ca%=17�ca%=18)�q%!16=0�ș"OS_Exit"
G�n$<>"<None>":�("Set Keystroke$Input "+n$):ș"Wimp_SetCaretPosition",!L%,L%!4,L%!8,L%!12,L%!16,L%!20:!b%=wa%:ș"Wimp_CloseWindow",,b%:�
H0
HDݤm:�L%:ș"OS_GSTrans","<Keystroke%Inc>",q%,8192:L%=�(�a(q%)):ș"OS_GSTrans","<Keystroke%Var>",q%,8192:gc%=�(�a(q%)):�L%<0�
H��gc%+L%<-999�s$=""�s$=�L%
H�#�:�gc%+L%>9999�s$=""�s$="+"+�L%
H��
H�=s$
H�y��f(hc%,A$,ic%):!b%=hc%:$(b%+4)=A$:ș"Wimp_ReportError",b%,ic%,"Keystroke"�,jc%:�jc%=2�ș"Wimp_CloseDown":ș"OS_Exit"
H�da%=�:�
I
I Pݤi(B$):!b%=0:$(b%+4)=B$:ș"Wimp_ReportError",b%,3,"Keystroke"�,jc%:=(jc%=1)
IR}��b(f%,h%,c$):!b%=f%:b%!4=h%:ș"Wimp_GetIconState",,b%:$(b%!28)=�c$,(b%!32)-1):b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�
I�
I�Y��a(f%,h%,kc%,lc%):!b%=f%:b%!4=h%:b%!12=kc%:b%!8=-lc%*kc%:ș"Wimp_SetIconState",,b%:�
I�
J]��l(f%,h%,mc%):!b%=f%:b%!4=h%:b%!8=mc%<<12:b%!12=61440:ș"Wimp_SetIconState",,b%:�mc%<14�
JB"�!C%=f%�C%!4=h%�!C%=-1�C%!4=-1
JL�
JV�
J`
JtZ��q(f%,h%,nc%):!b%=f%:b%!4=h%:b%!8=nc%<<24:b%!12=-16777216:ș"Wimp_SetIconState",,b%:�
J�
J�Jݤd(f%,h%,kc%):!b%=f%:b%!4=h%:ș"Wimp_GetIconState",,b%:=(b%!24�kc%)>0
KGݤa(o%):p$="":ȕ(?o%>31�?o%<256)��(p$)<255:p$=p$+�?o%:o%=o%+1:�:=p$
KPxݤe(l%,o%):ș"Wimp_TransferBlock",l%,o%,oc%,b%,256:o%=b%:p$="":ȕ(?o%>31�?o%<256)��(p$)<255:p$=p$+�?o%:o%=o%+1:�:=p$
K����k(f%):!q%=f%:ș"Wimp_GetWindowState",,q%:pc%=pa%-(q%!4):qc%=qa%-(q%!16)-1:q%!4=(q%!4)+pc%:q%!8=(q%!8)+qc%:q%!12=(q%!12)+pc%:q%!16=(q%!16)+qc%:q%!28=ta%:ș"Wimp_OpenWindow",,q%:pa%=q%!4:qa%=q%!8:ra%=!q%:�
L"
L6-��d(f%):!b%=f%:ș"Wimp_CloseWindow",,b%:�
LT
Lhjݤn(l%):!q%=24:q%!12=0:q%!16=262342:q%!20=l%:ș"Wimp_SendMessage",18,q%,0:j$="":�:�g(6147):�j$<>"":=j$
L�ݤg(l%,f%,rc%):Ȏf%�
L��-1:d$="Background"
L��-2:d$="Icon bar"
L�:!q%=f%:�rc%�
L�1q%!32=0:ș"XWimp_GetWindowInfo",,q%:�q%!32=0�
Md$="Nonexistent"
M0W�:v%=(((q%!32)�(1<<31))<>0):�(v%�(q%!32�(1<<26))<>0)�(�v%�(q%!32�1)<>0)�q%?36<>255�
MD�((q%!60)�256)=0�
MNd$=�a(q%+76)
Mb�:d$=�e(l%,q%!76)
Mv�
Mv�:d$="No title"
M��
M��
M�r�:ș"Wimp_GetWindowInfo",,q%:v%=(((q%!32)�(1<<31))<>0):�(v%�(q%!32�(1<<26))<>0)�(�v%�(q%!32�1)<>0)�q%?36<>255�
M��((q%!60)�256)=0�
M�d$=�a(q%+76)
M��:d$=�e(l%,q%!76)
M��
M��:d$="No title"
N�
N�
N �
N*=d$
NHݤo(l%,f%,h%):Ȏh%�
NR�-1:b$="Background"
Nf�-2:b$="Back Icon"
Np�-3:b$="Close Icon"
Nz�-4:b$="Title Bar"
N��-5:b$="Toggle Icon"
N��-6:b$="Scroll Up"
N��-7:b$="V Bar"
N��-8:b$="Scroll Down"
N��-9:b$="Adjust Size"
N��-10:b$="ScrollRight"
N��-11:b$="H Bar"
N��-12:b$="Scroll Left"
N�I:!q%=f%:q%!4=h%:ș"Wimp_GetIconState",,q%:�(((q%!24)�61440)>>12)>13�
N�b$="Variable"
O�:�((q%!24)�256)=0�
Ob$=�a(q%+28)
O.�:�((q%!24)�1)=0�
O8b$=�e(l%,q%!28)
OL'�:�(q%!32)=-1�v$=""�v$=�e(l%,q%!32)
OV/b$=�e(l%,q%!28):�b$=""�b$=�v$,2,�v$,",")-2)
Oj�
Ot�
O~�
O��
O�=b$
O���fa(f%):�f%<0�
O�Za%=0:_a%=0:`a%=0
O�I�:!q%=f%:ș"Wimp_GetWindowInfo",,q%:Za%=q%!32�gb%:_a%=q%!36:`a%=q%!40
P�
P�
P(
P<uݤp(f%,h%,kc%):!b%=f%:b%!4=h%:b%!8=kc%:b%!12=0:ș"Wimp_SetIconState",,b%:ș"Wimp_GetIconState",,b%:=(b%!24�kc%)>0
P�ݤq(x$):Ȏx$�
P��"Background":sc%=-1
P��"Icon bar":sc%=-2
P�j:sc%=-1:K%=�k:ȕK%<>-1�sc%=-1:!q%=20:q%!12=0:ș"XWimp_SendMessage",19,q%,K%,-1�,,tc%:�tc%<>0�tc%<>K%�
P� �x$=��g(tc%,K%,�),27)�sc%=K%
P��
QK%=�l(K%):�
Q"�
Q"=sc%
Q@rݤr(C$):uc%=-1:vc%=0:ȕvc%<256�uc%=-1:!q%=20:q%!12=0:ș"XWimp_SendMessage",19,q%,-2,vc%�,,wc%:�wc%<>0�wc%<>-2�
Qr#�C$=��o(wc%,-2,vc%),11)�uc%=vc%
Q|�
Q�vc%+=1:�:=uc%
Q����E:ș"Wimp_GetPointerInfo",,b%:q%!4=5:q%!8=(!b%)-34:q%!12=(b%!4)-34:q%!16=(!b%)+34:q%!20=(b%!4)+34:q%!24=ia%:q%!28=ja%:q%!32=ka%:q%!36=la%:ș"Wimp_DragBox",,q%:�
R0
RD���L:!b%=128:b%!4=129:b%!8=130:b%!12=131:b%!16=4:b%!20=5:b%!24=-1:ș"OS_ReadVduVariables",b%,b%+28:ia%=b%!28<<b%!44:ja%=b%!32<<b%!48:ka%=b%!36<<b%!44:la%=b%!40<<b%!48:N%=1<<b%!44:O%=1<<b%!48:�
R�
R�Bݤc(f%,h%):!b%=f%:b%!4=h%:ș"Wimp_GetIconState",,b%:=�a(b%!28)
S*)��e(c$):f$=�c(t%,1):�(c$)+�(f$)<116�
S>>ș"Wimp_GetCaretPosition",,b%:�!b%<>t%�xc%=�(f$)�xc%=b%!20
SRqy$=�f$,xc%)+c$+�f$,�(f$)-xc%):�b(t%,1,y$):$(a%+12)=y$:ș"Wimp_SetCaretPosition",t%,1,-1,-1,�(1<<25),xc%+�(c$)
S��
S��
S�
S��ݤj:ș"Wimp_GetPointerInfo",,b%:f%=b%!12:q%!12=0:ș"Wimp_SendMessage",19,q%,f%,-1�,,l%:!q%=24:q%!12=0:q%!16=262342:q%!20=l%:ș"Wimp_SendMessage",18,q%,0:j$="":�:�g(6146):�j$<>"":�j$<>"Filer"�
T	w$=""
T$9�:!q%=f%:ș"Wimp_GetWindowInfo",,q%:�(q%!60�256)=256�
TBw$=�a(q%!76)
TV�:w$=�a(q%+76)
Tj�
Tj�
Tt=w$
T�Q��r(c$,Eb%):�I%=1��(c$):ș"OS_BPut",�(�c$,I%,1)),Eb%:�I%:ș"OS_BPut",10,Eb%:�
T�
T�u��o(f%,h%,D$):!b%=f%:b%!4=h%:ș"Wimp_GetIconState",,b%:$(b%!32)="s"+D$:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�
U(
U<�ݤk:�I%:!q%=yc%:ș"Wimp_GetWindowState",,q%:�I%=4�16�4:q%!I%=(q%!I%)-4096:�I%:q%!28=-2:ș"Wimp_OpenWindow",,q%:ș"Wimp_GetWindowState",,q%:zc%=q%!28:ș"Wimp_CloseWindow",,q%:=zc%
U�5ݤl(f%):!q%=f%:ș"Wimp_GetWindowState",,q%:=q%!28
U�;ݤh:ș"XOS_ReadVarVal",S%+128,S%,256,0�,,Ac%:=�$S%,Ac%)
V"e��j:q%!64=1:Bc%=q%!8-!q%:Cc%=q%!12-q%!4:q%?68=Bc%�256:q%?69=Bc%�256:q%?70=Cc%�256:q%?71=Cc%�256:�
Vr
V�,��O:�(-256)=161��(-256)=160�Dc%=��Dc%=�
V��da%=�:Z%=2000:k%=160:z$="1":yb%=127:Sa%=2588+(151*k%):�g% Sa%:�q% 8192,b% 256,_% Z%,u% 148,C% 24,S% 256,L% 24:�P% 52,Aa% 8,Ec% 8,Ba% 8,Fc% 8,Ca% 8:�z% 124,i% 196,D% 100,Q% 52,R% 52
W��p% k%*10,c%(127),a$(96),a%(96,7),b%(yb%),b$(yb%):ș"Wimp_Initialise",200,&4B534154,"KeysDemo"�Gc%,oc%:�Gc%<200��f(0,"This program will only work on RISC OS 2.00 or later",2)
W&�aa%=�:!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=12290:$(q%+24)="!Keysdemo":ș"Wimp_CreateIcon",,q%�Hc%:�L:ș"Wimp_OpenTemplate",,"<KeysDemo$Dir>.Templates":E%=_%:ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Info",0�,,E%
Wl��j:ș"Wimp_CreateWindow",,q%�yc%:ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Type",0�,,E%:�j:!q%=(ka%/2)-338:q%!8=(ka%/2)+338:ș"Wimp_CreateWindow",,q%�e%:ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Text",0�,,E%
W���j:ș"Wimp_CreateWindow",,q%�t%:ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Window/Icon",0�,,E%:�j:ș"Wimp_CreateWindow",,q%�m%:ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Click",0�,,E%:�j:ș"Wimp_CreateWindow",,q%�M%
WƬș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Menus",0�,,E%:�j:ș"Wimp_CreateWindow",,q%�G%:ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Save",0�,,E%:�j:ș"Wimp_CreateWindow",,q%�A%
W��ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"MoveWind",0�,,E%:�j:ș"Wimp_CreateWindow",,q%�j%:ș"Wimp_LoadTemplate",,q%,E%,_%+Z%,-1,"Enter",0�,,E%:�j:ș"Wimp_CreateWindow",,q%�wa%:ș"Wimp_CloseTemplate":$u%="KeysDemo":u%!12=459271
X*�u%!16=152:u%!20=44:u%!24=0:u%!28=0:u%!32=yc%:u%!36=&7009001:$(u%+40)="Info":u%!52=0:u%!56=z%:u%!60=&7009001:$(u%+64)="Save":u%!76=2:u%!80=D%:u%!84=&7009001:$(u%+88)="Prefs"
XR�u%!100=0:u%!104=-1:u%!108=&7009001:$(u%+112)="Clear All":u%!124=128:u%!128=-1:u%!132=&7009001:$(u%+136)="Quit":$z%="Save":z%!12=459271:z%!16=184:z%!20=44:z%!24=0
Xz�z%!28=8:z%!32=A%:z%!36=&7009001:$(z%+40)="Keystrokes":z%!52=0:z%!56=-1:z%!60=&7009001:$(z%+64)="Default":z%!76=8:z%!80=A%:z%!84=&7009001:$(z%+88)="Executor":z%!100=136:z%!104=A%:z%!108=&7009001:$(z%+112)="List"
X��$i%="Edit":i%!12=459271:i%!16=168:i%!20=44:i%!24=0:i%!28=0:i%!32=-1:i%!36=&7009001:$(i%+40)="Copy":i%!52=0:i%!56=-1:i%!60=&7009001:$(i%+64)="Copy Group":i%!76=0:i%!80=-1:i%!84=&7009001:$(i%+88)="Cut"
Xԧi%!100=0:i%!104=-1:i%!108=&7009001:$(i%+112)="Cut Group":i%!124=0:i%!128=-1:i%!132=&7009001:$(i%+136)="Paste":i%!148=0:i%!152=-1:i%!156=&7009001:$(i%+160)="Insert"
X�i%!172=136:i%!176=A%:i%!180=&7009001:$(i%+184)="Action":$D%="Prefs":D%!12=459271:D%!16=168:D%!20=44:D%!24=0:D%!28=0:D%!32=P%:D%!36=&7009001:$(D%+40)="Autoexec"
Y�D%!52=0:D%!56=Q%:D%!60=&7009001:$(D%+64)="Variable":D%!76=128:D%!80=R%:D%!84=&7009001:$(D%+88)="Increment":$P%="Minutes":P%!12=459271:P%!16=96:P%!20=44:P%!24=0:P%!28=132:P%!32=-1:P%!36=&7009101
YL�P%!40=Aa%:P%!44=Ec%:P%!48=3:$Aa%="15":$Ec%="a0-9":oa%=90000:na%=�:$Q%="Variable":Q%!12=459271:Q%!16=96:Q%!20=44:Q%!24=0:Q%!28=132:Q%!32=-1:Q%!36=&7009101:Q%!40=Ba%:Q%!44=Fc%:Q%!48=8:ș"OS_GSTrans","<Keystroke%Var>",q%,8192
Y��$Ba%=�a(q%):$Fc%="a0-9\-":$R%="Increment":R%!12=459271:R%!16=96:R%!20=44:R%!24=0:R%!28=132:R%!32=-1:R%!36=&7009101:R%!40=Ca%:R%!44=Fc%:R%!48=8:ș"OS_GSTrans","<Keystroke%Inc>",Ca%,8:H%=2588+k%:B%=13:r%=2:�I:w%=�:�ma%=0�127:�c%(ma%):�ma%
Zm�ma%=0�96:�a$(ma%):�ma%:Ic%=g%+12:�I%=0�96:�E$:�J%=0�7:�E$,J%+1,1)="1"�a%(I%,J%)=Ic%:Ic%+=4�a%(I%,J%)=-1
Zd��J%:�I%:va%=-1:U%=-1:l$="Keydefs":o$="List":u$="!Executor":!p%=-1:Jc%=255:gb%=-15196225:�I%=0�yb%:b$(I%)="":�I%:�ga:�i:�a(e%,10,1<<22,�):�c:Kc%=�:�Dc%�
["*ș"OS_ReadSysInfo",2�,,Kc%:Kc%=(Kc%=1)
[@�
[@	�Kc%�
[J-a$(55)="#":a$(62)="\":c%(94)=62:c%(46)=-1
[|�
[|da%=�:�
[�
[�5� -1,-1,-1,-1,-1,-1,-1,-1,-1,94,95,96,-1,-1,-1,-1
[�5� 29,42,43,44, 4,47, 7,50,45,75,83,84,11,12,10,-1
[�5�  0,35,17,32,46,21,48,39,50,76,85,86,60,61,62,63
[�5� 40,41,16,30,45,33,27,28,54,73,87,88,93,64,65,66
[�5� -1,13,36,18,37,22,23,41,57,71,90,-1,89,-1,67,68
[�5� -1,31,15,19,20,26,24,57,56,70,91,92,-1,51,-1,-1
[�5� 59,38,69,34,14,25,49,52,53,72,77,78,80,-1,-1,-1
[�5� 58, 1, 2, 3, 5, 6, 8, 9,55,74,81,82,79,-1,-1,-1
[�
\=� Print (F0),F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,A,B,C
\%� D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S
\%� T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8
\&U� 9,",","-","=",".","/","[","\","]",";",Escape,Tab,Break,Back tick,"�",Back space
\0?� Insert,Home,Page Up,Page Down,"'",Space bar,Delete,Return
\:P� Copy,Up arrow,Right arrow,Left arrow,Down arrow,Keypad 0,Keypad 1,Keypad 2
\DM� Keypad 3,Keypad 4,Keypad 5,Keypad 6,Keypad 7,Keypad 8,Keypad 9,Keypad +
\NR� Keypad -,Keypad .,Keypad /,Keypad #,Keypad *,Keypad Enter,Select,Menu,Adjust
\X
\lM� 11111111,11111111,11111111,11111111,11111111,11111111,11111111,11111111
\lM� 11111111,11111111,11111111,11111111,11111111,00111111,00111111,00111111
\vM� 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
\�M� 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
\�M� 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
\�M� 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
\�M� 00111111,00111111,00111111,00111111,00111111,00111111,00111111,00111111
\�M� 00111111,00111111,11111111,11111111,10001000,00111111,00111111,00111111
\�M� 11111111,11111111,11111111,11111111,00111111,00111111,00111111,00111111
\�M� 00111111,11111111,11111111,11111111,11111111,01111111,01111111,01111111
\�M� 01111111,01111111,01111111,01111111,01111111,01111111,01111111,01111111
\�V� 01111111,01111111,01111111,01111111,01111111,01111111,01111111,01111111,01111111
�
00000000  0d 00 01 51 f4 3e 3c 53  71 75 69 73 68 24 53 63  |...Q.><Squish$Sc|
00000010  72 61 70 3e 20 73 71 75  69 73 68 65 64 20 62 79  |rap> squished by|
00000020  20 4d 48 27 73 20 42 41  53 49 43 20 63 72 75 6e  | MH's BASIC crun|
00000030  63 68 65 72 20 76 31 2e  32 30 20 31 34 2f 35 2f  |cher v1.20 14/5/|
00000040  38 39 20 4f 6e 20 30 38  20 4d 61 72 20 31 39 39  |89 On 08 Mar 199|
00000050  33 0d 00 02 36 3a f2 4f  3a f5 3a f2 67 28 36 31  |3...6:.O:.:.g(61|
00000060  34 36 29 3a fd 61 61 25  3a c8 99 22 57 69 6d 70  |46):.aa%:.."Wimp|
00000070  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a c8 99 22 4f  |_CloseDown":.."O|
00000080  53 5f 45 78 69 74 22 0d  00 8c 2c dd f2 67 28 62  |S_Exit"...,..g(b|
00000090  61 25 29 3a c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |a%):.."Wimp_Poll|
000000a0  22 2c 62 61 25 2c 71 25  b8 63 61 25 3a c8 8e 63  |",ba%,q%.ca%:..c|
000000b0  61 25 ca 0d 00 aa 16 c9  30 3a e7 ac 64 61 25 8c  |a%......0:..da%.|
000000c0  65 61 25 3d 2d 31 3a f2  50 0d 00 b4 09 c9 32 3a  |ea%=-1:.P.....2:|
000000d0  f2 73 0d 00 c8 09 c9 33  3a f2 51 0d 00 d2 09 c9  |.s.....3:.Q.....|
000000e0  34 3a f2 52 0d 00 dc 09  c9 35 3a f2 53 0d 00 e6  |4:.R.....5:.S...|
000000f0  09 c9 36 3a f2 54 0d 00  f0 09 c9 37 3a f2 55 0d  |..6:.T.....7:.U.|
00000100  00 fa 09 c9 38 3a f2 56  0d 01 04 09 c9 39 3a f2  |....8:.V.....9:.|
00000110  57 0d 01 0e 0d c9 31 37  2c 31 38 3a f2 58 0d 01  |W.....17,18:.X..|
00000120  18 05 cb 0d 01 18 05 e1  0d 01 22 04 0d 01 4a 44  |.........."...JD|
00000130  dd f2 50 3a c8 99 22 57  69 6d 70 5f 47 65 74 43  |..P:.."Wimp_GetC|
00000140  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 2c 62  |aretPosition",,b|
00000150  25 3a e7 21 62 25 3d 65  25 80 28 62 25 21 34 29  |%:.!b%=e%.(b%!4)|
00000160  3c 3e 31 34 8c 66 61 25  3d b9 8b 66 61 25 3d a3  |<>14.fa%=..fa%=.|
00000170  0d 01 72 1d 64 61 25 3d  b9 3a 67 61 25 3d a3 3a  |..r.da%=.:ga%=.:|
00000180  e7 a6 28 2d 34 29 80 a6  28 2d 37 29 8c 0d 01 90  |..(-4)..(-7)....|
00000190  06 f2 7a 0d 01 a4 25 cc  3a c8 99 22 4f 53 5f 42  |..z...%.:.."OS_B|
000001a0  79 74 65 22 2c 31 32 31  2c 39 b8 2c 60 25 3a e7  |yte",121,9.,`%:.|
000001b0  60 25 3c 3e 32 35 35 8c  0d 01 b8 16 60 25 3d 63  |`%<>255.....`%=c|
000001c0  25 28 60 25 29 3a e7 60  25 3c 3e 2d 31 8c 0d 01  |%(`%):.`%<>-1...|
000001d0  cc 2a 68 61 25 3d 2d a6  28 2d 31 29 2d 32 2a a6  |.*ha%=-.(-1)-2*.|
000001e0  28 2d 32 29 2d 34 2a a6  28 2d 33 29 3a e7 66 61  |(-2)-4*.(-3):.fa|
000001f0  25 80 60 25 3c 39 34 8c  0d 01 e0 24 24 28 61 25  |%.`%<94....$$(a%|
00000200  2b 31 32 38 29 3d a4 63  28 65 25 2c 31 34 29 3a  |+128)=.c(e%,14):|
00000210  e7 a4 62 8c f2 68 28 61  25 2c b9 29 0d 01 f4 33  |..b..h(a%,.)...3|
00000220  42 25 3d 60 25 3a 72 25  3d 68 61 25 3a c8 95 61  |B%=`%:r%=ha%:..a|
00000230  25 28 42 25 2c 72 25 29  3d 2d 31 3a 72 25 3d 28  |%(B%,r%)=-1:r%=(|
00000240  72 25 2b 31 29 83 38 3a  ce 3a f2 69 3a f2 63 0d  |r%+1).8:.:.i:.c.|
00000250  02 44 16 cc 3a e7 61 25  28 60 25 2c 68 61 25 29  |.D..:.a%(`%,ha%)|
00000260  3c 3e 2d 31 8c 0d 02 4e  14 e7 21 61 25 28 60 25  |<>-1...N..!a%(`%|
00000270  2c 68 61 25 29 3c 3e 30  8c 0d 02 58 3a 63 25 3d  |,ha%)<>0...X:c%=|
00000280  61 25 28 60 25 2c 68 61  25 29 2d 34 3a 73 25 3d  |a%(`%,ha%)-4:s%=|
00000290  b9 3a f5 3a 63 25 3d 67  25 2b 63 25 21 34 3a e7  |.:.:c%=g%+c%!4:.|
000002a0  73 25 3d b9 84 28 28 63  25 3f 33 29 80 33 32 29  |s%=..((c%?3).32)|
000002b0  3d 30 8c 0d 02 8a 12 e7  28 63 25 3f 31 80 31 36  |=0......(c%?1.16|
000002c0  29 3d 31 36 8c 0d 02 94  08 73 25 3d b9 0d 02 a8  |)=16.....s%=....|
000002d0  15 cc 3a f2 41 28 63 25  29 3a f2 67 28 36 31 34  |..:.A(c%):.g(614|
000002e0  36 29 0d 02 c6 05 cd 0d  02 c6 05 cd 0d 02 d0 2f  |6)............./|
000002f0  fd 63 25 21 34 3d 2d 31  3a c8 97 c8 93 69 61 25  |.c%!4=-1:....ia%|
00000300  2c 6a 61 25 2c 6b 61 25  2d 69 61 25 2c 6c 61 25  |,ja%,ka%-ia%,la%|
00000310  2d 6a 61 25 3a e7 ac 67  61 25 8c 0d 02 ee 23 f5  |-ja%:..ga%....#.|
00000320  3a c8 99 22 4f 53 5f 42  79 74 65 22 2c 31 32 32  |:.."OS_Byte",122|
00000330  b8 2c 6d 61 25 3a fd 6d  61 25 3d 32 35 35 0d 03  |.,ma%:.ma%=255..|
00000340  16 05 cd 0d 03 16 05 cd  0d 03 20 05 cd 0d 03 2a  |.......... ....*|
00000350  05 cd 0d 03 34 05 cd 0d  03 3e 05 cd 0d 03 48 05  |....4....>....H.|
00000360  cd 0d 03 52 f1 24 28 53  25 2b 31 32 38 29 3d 22  |...R.$(S%+128)="|
00000370  4b 65 79 73 74 72 6f 6b  65 24 44 6f 2a 22 3a 68  |Keystroke$Do*":h|
00000380  24 3d a4 68 3a c8 95 68  24 3c 3e 22 22 3a c8 99  |$=.h:..h$<>"":..|
00000390  22 4f 53 5f 53 65 74 56  61 72 56 61 6c 22 2c 53  |"OS_SetVarVal",S|
000003a0  25 2b 31 32 38 2c 22 43  6c 65 61 72 22 2c 2d 31  |%+128,"Clear",-1|
000003b0  2c 30 2c 30 3a f2 42 28  68 24 29 3a 24 28 53 25  |,0,0:.B(h$):$(S%|
000003c0  2b 31 32 38 29 3d 22 4b  65 79 73 74 72 6f 6b 65  |+128)="Keystroke|
000003d0  24 44 6f 2a 22 3a 68 24  3d a4 68 3a ce 3a 24 28  |$Do*":h$=.h:.:$(|
000003e0  53 25 2b 31 32 38 29 3d  22 4b 65 79 73 74 72 6f  |S%+128)="Keystro|
000003f0  6b 65 24 4c 6f 61 64 2a  22 3a 74 24 3d a4 68 3a  |ke$Load*":t$=.h:|
00000400  c8 95 74 24 3c 3e 22 22  3a c8 99 22 4f 53 5f 53  |..t$<>"":.."OS_S|
00000410  65 74 56 61 72 56 61 6c  22 2c 53 25 2b 31 32 38  |etVarVal",S%+128|
00000420  2c 22 43 6c 65 61 72 22  2c 2d 31 2c 30 2c 30 3a  |,"Clear",-1,0,0:|
00000430  f2 43 28 74 24 29 3a 24  28 53 25 2b 31 32 38 29  |.C(t$):$(S%+128)|
00000440  3d 22 4b 65 79 73 74 72  6f 6b 65 24 4c 6f 61 64  |="Keystroke$Load|
00000450  2a 22 0d 03 de 2d 74 24  3d a4 68 3a ce 3a e7 28  |*"...-t$=.h:.:.(|
00000460  6e 61 25 2b 6f 61 25 29  3c 91 8c f2 42 28 22 41  |na%+oa%)<...B("A|
00000470  75 74 6f 65 78 65 63 22  29 3a 6e 61 25 3d 91 0d  |utoexec"):na%=..|
00000480  03 fc 0b 64 61 25 3d a3  3a e1 0d 04 10 04 0d 04  |...da%=.:.......|
00000490  24 5d dd f2 73 3a ea 70  61 25 2c 71 61 25 2c 72  |$]..s:.pa%,qa%,r|
000004a0  61 25 2c 73 61 25 3a c8  99 22 57 69 6d 70 5f 4f  |a%,sa%:.."Wimp_O|
000004b0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 3a 70  |penWindow",,q%:p|
000004c0  61 25 3d 71 25 21 34 3a  71 61 25 3d 71 25 21 38  |a%=q%!4:qa%=q%!8|
000004d0  3a 72 61 25 3d 21 71 25  3a 74 61 25 3d 71 25 21  |:ra%=!q%:ta%=q%!|
000004e0  32 38 3a e7 21 71 25 3d  65 25 8c 0d 04 60 12 c8  |28:.!q%=e%...`..|
000004f0  8e 28 28 61 25 3f 32 29  83 31 36 29 ca 0d 04 6a  |.((a%?2).16)...j|
00000500  29 c9 30 3a f2 6b 28 6d  25 29 3a f2 6b 28 4d 25  |).0:.k(m%):.k(M%|
00000510  29 3a f2 64 28 74 25 29  3a f2 64 28 47 25 29 3a  |):.d(t%):.d(G%):|
00000520  f2 64 28 6a 25 29 0d 04  b0 2b c9 31 2c 35 3a f2  |.d(j%)...+.1,5:.|
00000530  6b 28 6d 25 29 3a f2 6b  28 47 25 29 3a f2 64 28  |k(m%):.k(G%):.d(|
00000540  4d 25 29 3a f2 64 28 74  25 29 3a f2 64 28 6a 25  |M%):.d(t%):.d(j%|
00000550  29 0d 04 ec 2b c9 32 2c  33 3a f2 6b 28 74 25 29  |)...+.2,3:.k(t%)|
00000560  3a f2 64 28 6d 25 29 3a  f2 64 28 4d 25 29 3a f2  |:.d(m%):.d(M%):.|
00000570  64 28 47 25 29 3a f2 64  28 6a 25 29 0d 05 28 29  |d(G%):.d(j%)..()|
00000580  c9 34 3a f2 6b 28 6d 25  29 3a f2 6b 28 6a 25 29  |.4:.k(m%):.k(j%)|
00000590  3a f2 64 28 74 25 29 3a  f2 64 28 4d 25 29 3a f2  |:.d(t%):.d(M%):.|
000005a0  64 28 47 25 29 0d 05 64  28 7f 3a f2 64 28 6d 25  |d(G%)..d(.:.d(m%|
000005b0  29 3a f2 64 28 4d 25 29  3a f2 64 28 74 25 29 3a  |):.d(M%):.d(t%):|
000005c0  f2 64 28 47 25 29 3a f2  64 28 6a 25 29 0d 05 a0  |.d(G%):.d(j%)...|
000005d0  05 cb 0d 05 a0 05 cd 0d  05 aa 05 e1 0d 05 b4 04  |................|
000005e0  0d 05 c8 29 dd f2 51 3a  c8 99 22 57 69 6d 70 5f  |...)..Q:.."Wimp_|
000005f0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |CloseWindow",,q%|
00000600  3a e7 21 71 25 3d 65 25  8c 0d 05 e6 26 f2 64 28  |:.!q%=e%....&.d(|
00000610  6d 25 29 3a f2 64 28 4d  25 29 3a f2 64 28 74 25  |m%):.d(M%):.d(t%|
00000620  29 3a f2 64 28 47 25 29  3a f2 64 28 6a 25 29 0d  |):.d(G%):.d(j%).|
00000630  06 22 05 cd 0d 06 22 05  e1 0d 06 2c 04 0d 06 40  |."...."....,...@|
00000640  10 dd f2 53 3a e7 21 71  25 3d 65 25 8c 0d 06 5e  |...S:.!q%=e%...^|
00000650  50 c8 99 22 57 69 6d 70  5f 47 65 74 43 61 72 65  |P.."Wimp_GetCare|
00000660  74 50 6f 73 69 74 69 6f  6e 22 2c 2c 43 25 3a e7  |tPosition",,C%:.|
00000670  28 28 21 43 25 29 3c 3e  65 25 84 28 43 25 21 34  |((!C%)<>e%.(C%!4|
00000680  29 3c 3e 31 34 29 80 28  28 21 43 25 29 3c 3e 74  |)<>14).((!C%)<>t|
00000690  25 84 28 43 25 21 34 29  3c 3e 31 29 8c 0d 06 72  |%.(C%!4)<>1)...r|
000006a0  23 c8 99 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |#.."Wimp_SetCare|
000006b0  74 50 6f 73 69 74 69 6f  6e 22 2c 65 25 2c 2d 31  |tPosition",e%,-1|
000006c0  0d 06 86 05 cd 0d 06 86  05 cd 0d 06 90 05 e1 0d  |................|
000006d0  06 9a 04 0d 06 ae 44 dd  f2 52 3a c8 99 22 57 69  |......D..R:.."Wi|
000006e0  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
000006f0  69 6f 6e 22 2c 2c 62 25  3a e7 21 71 25 3d 65 25  |ion",,b%:.!q%=e%|
00000700  80 ac 28 28 21 62 25 29  3d 65 25 80 28 62 25 21  |..((!b%)=e%.(b%!|
00000710  34 29 3d 31 34 29 8c 0d  06 d6 3e c8 99 22 58 57  |4)=14)....>.."XW|
00000720  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00000730  74 69 6f 6e 22 2c 21 43  25 2c 43 25 21 34 2c 43  |tion",!C%,C%!4,C|
00000740  25 21 38 2c 43 25 21 31  32 2c 43 25 21 31 36 2c  |%!8,C%!12,C%!16,|
00000750  43 25 21 32 30 0d 06 ea  05 cd 0d 06 ea 05 e1 0d  |C%!20...........|
00000760  06 f4 04 0d 07 08 0f dd  f2 54 3a c8 8e 71 25 21  |.........T:..q%!|
00000770  38 ca 0d 07 1c 09 c9 32  3a f2 59 0d 07 30 15 c9  |8......2:.Y..0..|
00000780  31 2c 34 3a f2 5a 28 28  71 25 21 38 29 3d 31 29  |1,4:.Z((q%!8)=1)|
00000790  0d 07 3a 05 cb 0d 07 3a  05 e1 0d 07 44 04 0d 07  |..:....:....D...|
000007a0  58 10 dd f2 59 3a c8 8e  71 25 21 31 32 ca 0d 07  |X...Y:..q%!12...|
000007b0  6c 1b c9 2d 32 3a f2 74  28 2d 32 2c 28 21 71 25  |l..-2:.t(-2,(!q%|
000007c0  29 2d 36 34 2c 33 38 34  29 0d 07 80 33 c9 65 25  |)-64,384)...3.e%|
000007d0  2c 6d 25 2c 4d 25 2c 74  25 2c 47 25 2c 6a 25 3a  |,m%,M%,t%,G%,j%:|
000007e0  f2 74 28 71 25 21 31 32  2c 28 21 71 25 29 2d 36  |.t(q%!12,(!q%)-6|
000007f0  34 2c 28 71 25 21 34 29  2b 34 34 29 0d 07 8a 05  |4,(q%!4)+44)....|
00000800  cb 0d 07 8a 05 e1 0d 07  94 04 0d 07 a8 15 dd f2  |................|
00000810  5a 28 75 61 25 29 3a c8  8e 71 25 21 31 32 ca 0d  |Z(ua%):..q%!12..|
00000820  07 bc 36 c9 2d 32 3a 21  71 25 3d 65 25 3a c8 99  |..6.-2:!q%=e%:..|
00000830  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000840  74 61 74 65 22 2c 2c 71  25 3a 71 25 21 32 38 3d  |tate",,q%:q%!28=|
00000850  2d 31 3a f2 73 0d 07 f8  10 c9 65 25 3a c8 8e 71  |-1:.s.....e%:..q|
00000860  25 21 31 36 ca 0d 08 02  13 c9 31 3a e7 a4 62 8c  |%!16......1:..b.|
00000870  f2 68 28 61 25 2c b9 29  0d 08 16 11 72 25 3d 72  |.h(a%,.)....r%=r|
00000880  25 82 34 3a f2 69 3a f2  63 0d 08 2a 13 c9 32 3a  |%.4:.i:.c..*..2:|
00000890  e7 a4 62 8c f2 68 28 61  25 2c b9 29 0d 08 34 11  |..b..h(a%,.)..4.|
000008a0  72 25 3d 72 25 82 32 3a  f2 69 3a f2 63 0d 08 48  |r%=r%.2:.i:.c..H|
000008b0  13 c9 33 3a e7 a4 62 8c  f2 68 28 61 25 2c b9 29  |..3:..b..h(a%,.)|
000008c0  0d 08 52 11 72 25 3d 72  25 82 31 3a f2 69 3a f2  |..R.r%=r%.1:.i:.|
000008d0  63 0d 08 66 27 c9 34 3a  24 28 61 25 2b 31 32 38  |c..f'.4:$(a%+128|
000008e0  29 3d a4 63 28 65 25 2c  31 34 29 3a e7 a4 62 8c  |)=.c(e%,14):..b.|
000008f0  f2 68 28 61 25 2c b9 29  0d 08 7a 14 e7 75 61 25  |.h(a%,.)..z..ua%|
00000900  8c 42 25 3d 39 36 8b 42  25 3d 39 34 0d 08 84 23  |.B%=96.B%=94...#|
00000910  72 25 3d 2d a6 28 2d 31  29 2d 32 2a a6 28 2d 32  |r%=-.(-1)-2*.(-2|
00000920  29 2d 34 2a a6 28 2d 33  29 3a f2 69 3a f2 63 0d  |)-4*.(-3):.i:.c.|
00000930  08 ac 2e c9 36 2c 37 2c  38 2c 39 2c 31 30 2c 31  |....6,7,8,9,10,1|
00000940  31 3a f2 44 28 42 25 2c  72 25 2c 28 71 25 21 31  |1:.D(B%,r%,(q%!1|
00000950  36 29 2d 36 29 3a 77 25  3d b9 3a f2 63 0d 08 b6  |6)-6):w%=.:.c...|
00000960  16 c9 31 32 3a e7 28 61  25 3f 33 80 31 32 38 29  |..12:.(a%?3.128)|
00000970  3e 30 8c 0d 08 c0 11 61  25 3d 54 25 3a 54 25 3d  |>0.....a%=T%:T%=|
00000980  61 25 21 38 0d 08 de 18  cc 3a 61 25 3d 67 25 2b  |a%!8.....:a%=g%+|
00000990  61 25 21 38 3a 54 25 3d  61 25 21 38 0d 08 fc 05  |a%!8:T%=a%!8....|
000009a0  cd 0d 08 fc 06 f2 63 0d  09 10 11 c9 31 33 3a e7  |......c.....13:.|
000009b0  61 25 21 34 3d 2d 31 8c  0d 09 1a 0f 54 25 3d 61  |a%!4=-1.....T%=a|
000009c0  25 3a 61 25 3d a4 66 0d  09 38 18 cc 3a 61 25 3d  |%:a%=.f..8..:a%=|
000009d0  67 25 2b 61 25 21 34 3a  54 25 3d 61 25 21 38 0d  |g%+a%!4:T%=a%!8.|
000009e0  09 56 05 cd 0d 09 56 06  f2 63 0d 09 6a 2c c9 31  |.V....V..c..j,.1|
000009f0  36 3a 61 25 3f 33 3d 28  61 25 3f 33 80 32 35 34  |6:a%?3=(a%?3.254|
00000a00  29 2d a4 64 28 65 25 2c  31 36 2c 31 3c 3c 32 31  |)-.d(e%,16,1<<21|
00000a10  29 3a 77 25 3d b9 0d 09  88 2e c9 31 37 3a 61 25  |):w%=......17:a%|
00000a20  3f 33 3d 28 61 25 3f 33  80 32 35 33 29 2d 32 2a  |?3=(a%?3.253)-2*|
00000a30  a4 64 28 65 25 2c 31 37  2c 31 3c 3c 32 31 29 3a  |.d(e%,17,1<<21):|
00000a40  77 25 3d b9 0d 09 a6 52  c9 31 38 3a 61 25 3f 33  |w%=....R.18:a%?3|
00000a50  3d 28 61 25 3f 33 80 31  39 31 29 2d 36 34 2a a4  |=(a%?3.191)-64*.|
00000a60  64 28 65 25 2c 31 38 2c  31 3c 3c 32 31 29 3a 77  |d(e%,18,1<<21):w|
00000a70  25 3d b9 3a c8 99 22 57  69 6d 70 5f 53 65 74 43  |%=.:.."Wimp_SetC|
00000a80  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 65 25  |aretPosition",e%|
00000a90  2c 2d 31 3a f2 63 0d 09  d8 2f c9 32 30 3a 61 25  |,-1:.c.../.20:a%|
00000aa0  3f 33 3d 28 61 25 3f 33  80 32 32 33 29 2d 33 32  |?3=(a%?3.223)-32|
00000ab0  2a a4 64 28 65 25 2c 32  30 2c 31 3c 3c 32 31 29  |*.d(e%,20,1<<21)|
00000ac0  3a 77 25 3d b9 0d 09 f6  2e c9 32 31 3a 61 25 3f  |:w%=......21:a%?|
00000ad0  31 3d 28 61 25 3f 31 80  32 34 37 29 2d 38 2a a4  |1=(a%?1.247)-8*.|
00000ae0  64 28 65 25 2c 32 31 2c  31 3c 3c 32 31 29 3a 77  |d(e%,21,1<<21):w|
00000af0  25 3d b9 0d 0a 14 2f c9  32 32 3a 61 25 3f 31 3d  |%=..../.22:a%?1=|
00000b00  28 61 25 3f 31 80 32 33  39 29 2d 31 36 2a a4 64  |(a%?1.239)-16*.d|
00000b10  28 65 25 2c 32 32 2c 31  3c 3c 32 31 29 3a 77 25  |(e%,22,1<<21):w%|
00000b20  3d b9 0d 0a 32 05 cb 0d  0a 32 17 c9 6d 25 3a e7  |=...2....2..m%:.|
00000b30  71 25 21 31 36 3c 3e 32  30 8c 77 25 3d b9 0d 0a  |q%!16<>20.w%=...|
00000b40  46 0c c8 8e 71 25 21 31  36 ca 0d 0a 50 27 c9 32  |F...q%!16...P'.2|
00000b50  3a 61 25 3f 33 3d 28 61  25 3f 33 29 84 32 38 3a  |:a%?3=(a%?3).28:|
00000b60  61 25 3f 32 3d 28 61 25  3f 32 29 80 31 35 3a f2  |a%?2=(a%?2).15:.|
00000b70  63 0d 0a 64 20 c9 33 3a  e7 28 28 61 25 3f 32 29  |c..d .3:.((a%?2)|
00000b80  83 31 36 29 3d 30 8c 68  25 3d 31 36 8b 68 25 3d  |.16)=0.h%=16.h%=|
00000b90  30 0d 0a 6e 35 61 25 3f  32 3d 28 28 61 25 3f 32  |0..n5a%?2=((a%?2|
00000ba0  29 80 31 35 29 2b 28 31  3c 3c 34 29 3a 61 25 3f  |).15)+(1<<4):a%?|
00000bb0  33 3d 28 28 28 61 25 3f  33 29 80 ac 31 36 29 2b  |3=(((a%?3)..16)+|
00000bc0  68 25 29 3a f2 63 0d 0a  8c 32 c9 34 3a 61 25 3f  |h%):.c...2.4:a%?|
00000bd0  32 3d 28 28 61 25 3f 32  29 80 31 35 29 2b 28 32  |2=((a%?2).15)+(2|
00000be0  3c 3c 34 29 3a 61 25 3f  33 3d 28 28 61 25 3f 33  |<<4):a%?3=((a%?3|
00000bf0  29 84 31 36 29 3a f2 63  0d 0a aa 32 c9 35 3a 61  |).16):.c...2.5:a|
00000c00  25 3f 32 3d 28 28 61 25  3f 32 29 80 31 35 29 2b  |%?2=((a%?2).15)+|
00000c10  28 33 3c 3c 34 29 3a 61  25 3f 33 3d 28 28 61 25  |(3<<4):a%?3=((a%|
00000c20  3f 33 29 84 31 36 29 3a  f2 63 0d 0a c8 35 c9 36  |?3).16):.c...5.6|
00000c30  3a 61 25 3f 33 3d 28 28  61 25 3f 33 29 80 ac 34  |:a%?3=((a%?3)..4|
00000c40  29 2d 34 2a a4 64 28 6d  25 2c 36 2c 31 3c 3c 32  |)-4*.d(m%,6,1<<2|
00000c50  31 29 3a e7 28 61 25 3f  33 80 34 29 3d 34 8c 0d  |1):.(a%?3.4)=4..|
00000c60  0a dc 16 f2 62 28 6d 25  2c 39 2c a4 61 28 61 25  |....b(m%,9,.a(a%|
00000c70  2b 37 36 29 29 0d 0a f0  1b cc 3a f2 62 28 6d 25  |+76)).....:.b(m%|
00000c80  2c 39 2c 22 49 72 72 65  6c 65 76 61 6e 74 22 29  |,9,"Irrelevant")|
00000c90  0d 0b 04 05 cd 0d 0b 04  4c c9 37 3a 61 25 3f 33  |........L.7:a%?3|
00000ca0  3d 28 28 61 25 3f 33 29  80 ac 38 29 2d 38 2a a4  |=((a%?3)..8)-8*.|
00000cb0  64 28 6d 25 2c 37 2c 31  3c 3c 32 31 29 3a e7 28  |d(m%,7,1<<21):.(|
00000cc0  28 61 25 3f 32 83 31 36  29 3d 30 80 61 25 21 32  |(a%?2.16)=0.a%!2|
00000cd0  30 3c 30 29 84 28 61 25  3f 32 83 31 36 29 3d 34  |0<0).(a%?2.16)=4|
00000ce0  8c 0d 0b 22 10 e7 28 61  25 3f 33 80 38 29 3d 38  |..."..(a%?3.8)=8|
00000cf0  8c 0d 0b 2c 16 f2 62 28  6d 25 2c 31 2c a4 61 28  |...,..b(m%,1,.a(|
00000d00  61 25 2b 35 36 29 29 0d  0b 40 1b cc 3a f2 62 28  |a%+56))..@..:.b(|
00000d10  6d 25 2c 31 2c 22 49 72  72 65 6c 65 76 61 6e 74  |m%,1,"Irrelevant|
00000d20  22 29 0d 0b 54 05 cd 0d  0b 54 05 cd 0d 0b 5e 10  |")..T....T....^.|
00000d30  c9 32 30 3a 76 61 25 3d  31 3a f2 45 0d 0b 72 05  |.20:va%=1:.E..r.|
00000d40  cb 0d 0b 72 10 c9 4d 25  3a c8 8e 71 25 21 31 36  |...r..M%:..q%!16|
00000d50  ca 0d 0b 86 11 c9 31 3a  61 25 3f 32 34 3d 34 3a  |......1:a%?24=4:|
00000d60  f2 63 0d 0b 9a 11 c9 32  3a 61 25 3f 32 34 3d 31  |.c.....2:a%?24=1|
00000d70  3a f2 63 0d 0b a4 1c c9  33 3a 61 25 3f 32 35 3d  |:.c.....3:a%?25=|
00000d80  2d a4 64 28 4d 25 2c 33  2c 31 3c 3c 32 31 29 0d  |-.d(M%,3,1<<21).|
00000d90  0b ae 05 cb 0d 0b ae 08  77 25 3d b9 0d 0b c2 21  |........w%=....!|
00000da0  c9 47 25 3a 68 25 3d 28  71 25 21 31 36 29 2d 38  |.G%:h%=(q%!16)-8|
00000db0  3a e7 68 25 3e 2d 31 80  68 25 3c 37 8c 0d 0b d6  |:.h%>-1.h%<7....|
00000dc0  09 e7 75 61 25 8c 0d 0b  e0 17 e7 61 25 21 28 28  |..ua%......a%!((|
00000dd0  68 25 2a 34 29 2b 32 38  29 3e 2d 31 8c 0d 0b ea  |h%*4)+28)>-1....|
00000de0  60 21 28 61 25 2b 32 38  2b 28 68 25 2a 34 29 29  |`!(a%+28+(h%*4))|
00000df0  3d 21 28 61 25 2b 32 38  2b 28 68 25 2a 34 29 29  |=!(a%+28+(h%*4))|
00000e00  2d 31 3a f2 62 28 47 25  2c 68 25 2b 38 2c c3 28  |-1:.b(G%,h%+8,.(|
00000e10  28 61 25 21 28 28 68 25  2a 34 29 2b 32 38 29 29  |(a%!((h%*4)+28))|
00000e20  2b 31 29 29 3a e7 68 25  3c 36 80 61 25 21 28 28  |+1)):.h%<6.a%!((|
00000e30  68 25 2a 34 29 2b 32 38  29 3d 2d 31 8c 0d 0c 08  |h%*4)+28)=-1....|
00000e40  49 e3 49 25 3d 68 25 2b  31 b8 36 3a f2 61 28 47  |I.I%=h%+1.6:.a(G|
00000e50  25 2c 49 25 2b 38 2c 31  3c 3c 32 32 2c b9 29 3a  |%,I%+8,1<<22,.):|
00000e60  f2 62 28 47 25 2c 49 25  2b 38 2c 22 30 22 29 3a  |.b(G%,I%+8,"0"):|
00000e70  21 28 61 25 2b 32 38 2b  28 49 25 2a 34 29 29 3d  |!(a%+28+(I%*4))=|
00000e80  2d 31 3a ed 49 25 0d 0c  44 05 cd 0d 0c 44 05 cd  |-1:.I%..D....D..|
00000e90  0d 0c 4e 1a cc 3a e7 61  25 21 28 28 68 25 2a 34  |..N..:.a%!((h%*4|
00000ea0  29 2b 32 38 29 3c 39 39  38 8c 0d 0c 62 61 21 28  |)+28)<998...ba!(|
00000eb0  61 25 2b 32 38 2b 28 68  25 2a 34 29 29 3d 21 28  |a%+28+(h%*4))=!(|
00000ec0  61 25 2b 32 38 2b 28 68  25 2a 34 29 29 2b 31 3a  |a%+28+(h%*4))+1:|
00000ed0  f2 62 28 47 25 2c 68 25  2b 38 2c c3 28 28 61 25  |.b(G%,h%+8,.((a%|
00000ee0  21 28 28 68 25 2a 34 29  2b 32 38 29 29 2b 31 29  |!((h%*4)+28))+1)|
00000ef0  29 3a e7 68 25 3c 36 8c  f2 61 28 47 25 2c 68 25  |):.h%<6..a(G%,h%|
00000f00  2b 39 2c 31 3c 3c 32 32  2c a3 29 0d 0c 80 05 cd  |+9,1<<22,.).....|
00000f10  0d 0c 8a 05 cd 0d 0c 94  05 cd 0d 0c 9e 08 77 25  |..............w%|
00000f20  3d b9 0d 0c b2 10 c9 74  25 3a c8 8e 71 25 21 31  |=......t%:..q%!1|
00000f30  36 ca 0d 0c bc 17 c9 32  3a f2 65 28 22 3c 53 79  |6......2:.e("<Sy|
00000f40  73 24 54 69 6d 65 3e 22  29 0d 0c d0 17 c9 33 3a  |s$Time>").....3:|
00000f50  f2 65 28 22 3c 53 79 73  24 44 61 74 65 3e 22 29  |.e("<Sys$Date>")|
00000f60  0d 0c da 17 c9 34 3a f2  65 28 22 3c 53 79 73 24  |.....4:.e("<Sys$|
00000f70  59 65 61 72 3e 22 29 0d  0c e4 0f c9 35 3a f2 65  |Year>").....5:.e|
00000f80  28 22 7c 4d 22 29 0d 0c  ee 0f c9 36 3a f2 65 28  |("|M").....6:.e(|
00000f90  22 7c 55 22 29 0d 0c f8  18 c9 37 3a f2 65 28 22  |"|U").....7:.e("|
00000fa0  3c 46 69 6c 65 72 24 44  69 72 3e 22 29 0d 0d 02  |<Filer$Dir>")...|
00000fb0  11 c9 38 3a f2 65 28 22  52 75 6e 20 22 29 0d 0d  |..8:.e("Run ")..|
00000fc0  0c 1b c9 39 3a f2 65 28  22 46 69 6c 65 72 5f 4f  |...9:.e("Filer_O|
00000fd0  70 65 6e 44 69 72 20 22  29 0d 0d 16 13 c9 31 30  |penDir ").....10|
00000fe0  3a f2 65 28 22 4c 6f 61  64 20 22 29 0d 0d 20 23  |:.e("Load ").. #|
00000ff0  c9 31 31 2c 31 32 2c 31  33 2c 31 34 3a f2 65 28  |.11,12,13,14:.e(|
00001000  bd 28 28 71 25 21 31 36  29 2b 31 32 35 29 29 0d  |.((q%!16)+125)).|
00001010  0d 2a 1f c9 31 35 3a f2  65 28 22 3c 4b 65 79 73  |.*..15:.e("<Keys|
00001020  74 72 6f 6b 65 24 49 6e  70 75 74 3e 22 29 0d 0d  |troke$Input>")..|
00001030  34 1d c9 31 36 3a f2 65  28 22 3c 4b 65 79 73 74  |4..16:.e("<Keyst|
00001040  72 6f 6b 65 25 56 61 72  3e 22 29 0d 0d 3e 05 cb  |roke%Var>")..>..|
00001050  0d 0d 3e 08 77 25 3d b9  0d 0d 52 10 c9 6a 25 3a  |..>.w%=...R..j%:|
00001060  c8 8e 71 25 21 31 36 ca  0d 0d 5c 18 c9 31 3a 61  |..q%!16...\..1:a|
00001070  25 21 32 38 3d 61 25 21  32 38 80 ac 31 3a f2 63  |%!28=a%!28..1:.c|
00001080  0d 0d 70 17 c9 32 3a 61  25 21 32 38 3d 61 25 21  |..p..2:a%!28=a%!|
00001090  32 38 84 31 3a f2 63 0d  0d 7a 0c c9 34 3a e7 75  |28.1:.c..z..4:.u|
000010a0  61 25 8c 0d 0d 84 2f 61  25 21 33 32 3d 61 25 21  |a%..../a%!32=a%!|
000010b0  33 32 2d 4e 25 3a e7 61  25 21 33 32 3c 2d 39 39  |32-N%:.a%!32<-99|
000010c0  39 39 8c 61 25 21 33 32  3d 2d 31 30 30 30 30 2b  |99.a%!32=-10000+|
000010d0  4e 25 0d 0d 98 31 cc 3a  61 25 21 33 32 3d 61 25  |N%...1.:a%!32=a%|
000010e0  21 33 32 2b 4e 25 3a e7  61 25 21 33 32 3e 39 39  |!32+N%:.a%!32>99|
000010f0  39 39 39 8c 61 25 21 33  32 3d 31 30 30 30 30 30  |999.a%!32=100000|
00001100  2d 4e 25 0d 0d b6 05 cd  0d 0d c0 15 f2 62 28 6a  |-N%..........b(j|
00001110  25 2c 34 2c c3 28 61 25  21 33 32 29 29 0d 0d d4  |%,4,.(a%!32))...|
00001120  0c c9 36 3a e7 75 61 25  8c 0d 0d de 2f 61 25 21  |..6:.ua%..../a%!|
00001130  33 36 3d 61 25 21 33 36  2d 4f 25 3a e7 61 25 21  |36=a%!36-O%:.a%!|
00001140  33 36 3c 2d 39 39 39 39  8c 61 25 21 33 36 3d 2d  |36<-9999.a%!36=-|
00001150  31 30 30 30 30 2b 4f 25  0d 0d f2 31 cc 3a 61 25  |10000+O%...1.:a%|
00001160  21 33 36 3d 61 25 21 33  36 2b 4f 25 3a e7 61 25  |!36=a%!36+O%:.a%|
00001170  21 33 36 3e 39 39 39 39  39 8c 61 25 21 33 36 3d  |!36>99999.a%!36=|
00001180  31 30 30 30 30 30 2d 4f  25 0d 0e 10 05 cd 0d 0e  |100000-O%.......|
00001190  1a 15 f2 62 28 6a 25 2c  36 2c c3 28 61 25 21 33  |...b(j%,6,.(a%!3|
000011a0  36 29 29 0d 0e 2e 0c c9  38 3a e7 75 61 25 8c 0d  |6)).....8:.ua%..|
000011b0  0e 38 2f 61 25 21 34 30  3d 61 25 21 34 30 2d 4e  |.8/a%!40=a%!40-N|
000011c0  25 3a e7 61 25 21 34 30  3c 2d 39 39 39 39 8c 61  |%:.a%!40<-9999.a|
000011d0  25 21 34 30 3d 2d 31 30  30 30 30 2b 4e 25 0d 0e  |%!40=-10000+N%..|
000011e0  4c 31 cc 3a 61 25 21 34  30 3d 61 25 21 34 30 2b  |L1.:a%!40=a%!40+|
000011f0  4e 25 3a e7 61 25 21 34  30 3e 39 39 39 39 39 8c  |N%:.a%!40>99999.|
00001200  61 25 21 34 30 3d 31 30  30 30 30 30 2d 4e 25 0d  |a%!40=100000-N%.|
00001210  0e 6a 05 cd 0d 0e 74 15  f2 62 28 6a 25 2c 38 2c  |.j....t..b(j%,8,|
00001220  c3 28 61 25 21 34 30 29  29 0d 0e 88 0d c9 31 30  |.(a%!40)).....10|
00001230  3a e7 75 61 25 8c 0d 0e  92 2f 61 25 21 34 34 3d  |:.ua%..../a%!44=|
00001240  61 25 21 34 34 2d 4f 25  3a e7 61 25 21 34 34 3c  |a%!44-O%:.a%!44<|
00001250  2d 39 39 39 39 8c 61 25  21 34 34 3d 2d 31 30 30  |-9999.a%!44=-100|
00001260  30 30 2b 4f 25 0d 0e a6  31 cc 3a 61 25 21 34 34  |00+O%...1.:a%!44|
00001270  3d 61 25 21 34 34 2b 4f  25 3a e7 61 25 21 34 34  |=a%!44+O%:.a%!44|
00001280  3e 39 39 39 39 39 8c 61  25 21 34 34 3d 31 30 30  |>99999.a%!44=100|
00001290  30 30 30 2d 4f 25 0d 0e  c4 05 cd 0d 0e ce 16 f2  |000-O%..........|
000012a0  62 28 6a 25 2c 31 30 2c  c3 28 61 25 21 34 34 29  |b(j%,10,.(a%!44)|
000012b0  29 0d 0e e2 0d c9 31 33  3a e7 75 61 25 8c 0d 0e  |).....13:.ua%...|
000012c0  ec 32 61 25 21 34 38 3d  61 25 21 34 38 2d 4e 25  |.2a%!48=a%!48-N%|
000012d0  3a e7 61 25 21 34 38 3c  2d 39 39 39 39 39 39 8c  |:.a%!48<-999999.|
000012e0  61 25 21 34 38 3d 2d 26  46 34 32 34 30 2b 4e 25  |a%!48=-&F4240+N%|
000012f0  0d 0f 00 34 cc 3a 61 25  21 34 38 3d 61 25 21 34  |...4.:a%!48=a%!4|
00001300  38 2b 4e 25 3a e7 61 25  21 34 38 3e 39 39 39 39  |8+N%:.a%!48>9999|
00001310  39 39 39 8c 61 25 21 34  38 3d 26 39 38 39 36 38  |999.a%!48=&98968|
00001320  30 2d 4e 25 0d 0f 1e 05  cd 0d 0f 28 16 f2 62 28  |0-N%.......(..b(|
00001330  6a 25 2c 31 33 2c c3 28  61 25 21 34 38 29 29 0d  |j%,13,.(a%!48)).|
00001340  0f 3c 0d c9 31 35 3a e7  75 61 25 8c 0d 0f 46 32  |.<..15:.ua%...F2|
00001350  61 25 21 35 32 3d 61 25  21 35 32 2d 4f 25 3a e7  |a%!52=a%!52-O%:.|
00001360  61 25 21 35 32 3c 2d 39  39 39 39 39 39 8c 61 25  |a%!52<-999999.a%|
00001370  21 35 32 3d 2d 26 46 34  32 34 30 2b 4f 25 0d 0f  |!52=-&F4240+O%..|
00001380  5a 34 cc 3a 61 25 21 35  32 3d 61 25 21 35 32 2b  |Z4.:a%!52=a%!52+|
00001390  4f 25 3a e7 61 25 21 35  32 3e 39 39 39 39 39 39  |O%:.a%!52>999999|
000013a0  39 8c 61 25 21 35 32 3d  26 39 38 39 36 38 30 2d  |9.a%!52=&989680-|
000013b0  4f 25 0d 0f 78 05 cd 0d  0f 82 16 f2 62 28 6a 25  |O%..x.......b(j%|
000013c0  2c 31 35 2c c3 28 61 25  21 35 32 29 29 0d 0f 96  |,15,.(a%!52))...|
000013d0  19 c9 31 36 3a e7 a4 64  28 6a 25 2c 31 36 2c 31  |..16:..d(j%,16,1|
000013e0  3c 3c 32 31 29 8c 0d 0f  a0 13 61 25 21 32 38 3d  |<<21).....a%!28=|
000013f0  28 61 25 21 32 38 29 84  32 0d 0f b4 16 cc 3a 61  |(a%!28).2.....:a|
00001400  25 21 32 38 3d 28 61 25  21 32 38 29 80 ac 32 0d  |%!28=(a%!28)..2.|
00001410  0f c8 05 cd 0d 0f c8 06  f2 63 0d 0f dc 19 c9 31  |.........c.....1|
00001420  37 3a e7 a4 64 28 6a 25  2c 31 37 2c 31 3c 3c 32  |7:..d(j%,17,1<<2|
00001430  31 29 8c 0d 0f e6 13 61  25 21 32 38 3d 28 61 25  |1).....a%!28=(a%|
00001440  21 32 38 29 84 34 0d 0f  fa 16 cc 3a 61 25 21 32  |!28).4.....:a%!2|
00001450  38 3d 28 61 25 21 32 38  29 80 ac 34 0d 10 0e 05  |8=(a%!28)..4....|
00001460  cd 0d 10 0e 06 f2 63 0d  10 22 19 c9 31 38 3a e7  |......c.."..18:.|
00001470  a4 64 28 6a 25 2c 31 38  2c 31 3c 3c 32 31 29 8c  |.d(j%,18,1<<21).|
00001480  0d 10 2c 13 61 25 21 32  38 3d 28 61 25 21 32 38  |..,.a%!28=(a%!28|
00001490  29 84 38 0d 10 40 16 cc  3a 61 25 21 32 38 3d 28  |).8..@..:a%!28=(|
000014a0  61 25 21 32 38 29 80 ac  38 0d 10 54 05 cd 0d 10  |a%!28)..8..T....|
000014b0  54 45 f2 61 28 6a 25 2c  34 2c 31 3c 3c 32 32 2c  |TE.a(j%,4,1<<22,|
000014c0  6e 25 84 28 28 61 25 21  32 38 29 80 31 30 29 3d  |n%.((a%!28).10)=|
000014d0  30 29 3a f2 61 28 6a 25  2c 36 2c 31 3c 3c 32 32  |0):.a(j%,6,1<<22|
000014e0  2c 6e 25 84 28 28 61 25  21 32 38 29 80 31 30 29  |,n%.((a%!28).10)|
000014f0  3d 30 29 0d 10 72 05 cb  0d 10 72 10 c9 41 25 3a  |=0)..r....r..A%:|
00001500  c8 8e 71 25 21 31 36 ca  0d 10 86 12 c9 30 3a 76  |..q%!16......0:v|
00001510  61 25 3d 55 25 2b 31 3a  f2 45 0d 10 ae 13 c9 32  |a%=U%+1:.E.....2|
00001520  3a f2 6d 28 a4 63 28 41  25 2c 31 29 29 0d 10 b8  |:.m(.c(A%,1))...|
00001530  05 cb 0d 10 b8 05 cb 0d  10 c2 05 e1 0d 10 cc 04  |................|
00001540  0d 10 e0 0e dd f2 55 3a  c8 8e 76 61 25 ca 0d 10  |......U:..va%...|
00001550  f4 09 c9 31 3a f2 7a 0d  11 08 12 c9 32 3a f2 6e  |...1:.z.....2:.n|
00001560  28 48 25 2c 34 30 39 33  29 0d 11 12 11 c9 33 3a  |(H%,4093).....3:|
00001570  f2 6e 28 30 2c 34 30 39  35 29 0d 11 1c 13 c9 34  |.n(0,4095).....4|
00001580  3a f2 6e 28 32 35 36 2c  34 30 37 35 29 0d 11 26  |:.n(256,4075)..&|
00001590  14 c9 35 3a f2 6e 28 32  30 34 38 2c 38 31 39 32  |..5:.n(2048,8192|
000015a0  29 0d 11 30 05 cb 0d 11  30 0c 76 61 25 3d 2d 31  |)..0....0.va%=-1|
000015b0  3a e1 0d 11 44 04 0d 11  58 1a dd f2 56 3a 65 61  |:...D...X...V:ea|
000015c0  25 3d 71 25 21 32 34 3a  e7 65 61 25 3d 31 33 8c  |%=q%!24:.ea%=13.|
000015d0  0d 11 76 0a c8 8e 21 71  25 ca 0d 11 80 0f c9 74  |..v...!q%......t|
000015e0  25 3a c8 8e 71 25 21 34  ca 0d 11 94 20 c9 31 3a  |%:..q%!4.... .1:|
000015f0  24 28 61 25 2b 31 32 29  3d a4 63 28 74 25 2c 31  |$(a%+12)=.c(t%,1|
00001600  29 3a 77 25 3d b9 3a f2  63 0d 11 c6 05 cb 0d 11  |):w%=.:.c.......|
00001610  c6 11 c9 65 25 3a e7 71  25 21 34 3d 31 34 8c 0d  |...e%:.q%!4=14..|
00001620  11 da 26 24 28 61 25 2b  31 32 38 29 3d a4 63 28  |..&$(a%+128)=.c(|
00001630  65 25 2c 31 34 29 3a 77  25 3d b9 3a f5 fd ac a6  |e%,14):w%=.:....|
00001640  28 2d 37 34 29 0d 12 02  05 cd 0d 12 02 14 c9 41  |(-74)..........A|
00001650  25 3a f2 6d 28 a4 63 28  41 25 2c 31 29 29 0d 12  |%:.m(.c(A%,1))..|
00001660  20 36 c9 77 61 25 3a 6e  24 3d a4 63 28 77 61 25  | 6.wa%:n$=.c(wa%|
00001670  2c 30 29 3a 21 62 25 3d  77 61 25 3a c8 99 22 57  |,0):!b%=wa%:.."W|
00001680  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00001690  2c 2c 62 25 0d 12 48 05  cb 0d 12 48 66 c8 99 22  |,,b%..H....Hf.."|
000016a0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
000016b0  6e 66 6f 22 2c 2c 62 25  3a e7 62 25 21 31 32 3d  |nfo",,b%:.b%!12=|
000016c0  65 25 8c c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |e%..."Wimp_SetCa|
000016d0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 65 25 2c  |retPosition",e%,|
000016e0  2d 31 8b c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |-1..."Wimp_SetCa|
000016f0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2d 31 0d  |retPosition",-1.|
00001700  12 5c 1d cc 3a c8 99 22  57 69 6d 70 5f 50 72 6f  |.\..:.."Wimp_Pro|
00001710  63 65 73 73 4b 65 79 22  2c 65 61 25 0d 12 7a 05  |cessKey",ea%..z.|
00001720  cd 0d 12 7a 05 e1 0d 12  84 04 0d 12 98 33 dd f2  |...z.........3..|
00001730  57 3a e7 78 61 25 3d 2d  32 8c 69 24 3d 22 4d 61  |W:.xa%=-2.i$="Ma|
00001740  69 6e 2e 22 3a 79 61 25  3d 75 25 8b 69 24 3d 22  |in.":ya%=u%.i$="|
00001750  45 64 69 74 2e 22 3a 79  61 25 3d 69 25 0d 12 ac  |Edit.":ya%=i%...|
00001760  33 c8 99 22 57 69 6d 70  5f 44 65 63 6f 64 65 4d  |3.."Wimp_DecodeM|
00001770  65 6e 75 22 2c 2c 79 61  25 2c 71 25 2c 62 25 3a  |enu",,ya%,q%,b%:|
00001780  69 24 2b 3d a4 61 28 62  25 29 3a c8 8e 69 24 ca  |i$+=.a(b%):..i$.|
00001790  0d 12 ca 27 c9 22 4d 61  69 6e 2e 53 61 76 65 2e  |...'."Main.Save.|
000017a0  4b 65 79 73 74 72 6f 6b  65 73 22 3a 55 25 3d 31  |Keystrokes":U%=1|
000017b0  3a f2 6d 28 6c 24 29 0d  12 de 35 c9 22 4d 61 69  |:.m(l$)...5."Mai|
000017c0  6e 2e 53 61 76 65 2e 44  65 66 61 75 6c 74 22 3a  |n.Save.Default":|
000017d0  f2 75 28 22 3c 4b 65 79  73 44 65 6d 6f 24 44 69  |.u("<KeysDemo$Di|
000017e0  72 3e 2e 44 65 66 61 75  6c 74 22 29 0d 12 e8 25  |r>.Default")...%|
000017f0  c9 22 4d 61 69 6e 2e 53  61 76 65 2e 45 78 65 63  |."Main.Save.Exec|
00001800  75 74 6f 72 22 3a 55 25  3d 34 3a f2 6d 28 75 24  |utor":U%=4:.m(u$|
00001810  29 0d 12 f2 21 c9 22 4d  61 69 6e 2e 53 61 76 65  |)...!."Main.Save|
00001820  2e 4c 69 73 74 22 3a 55  25 3d 32 3a f2 6d 28 6f  |.List":U%=2:.m(o|
00001830  24 29 0d 12 fc 1c c9 22  45 64 69 74 2e 43 6f 70  |$)....."Edit.Cop|
00001840  79 22 3a f2 46 28 61 25  29 3a 77 25 3d b9 0d 13  |y":.F(a%):w%=...|
00001850  06 22 c9 22 45 64 69 74  2e 43 6f 70 79 20 47 72  |."."Edit.Copy Gr|
00001860  6f 75 70 22 3a f2 47 28  61 25 29 3a 77 25 3d b9  |oup":.G(a%):w%=.|
00001870  0d 13 10 25 c9 22 45 64  69 74 2e 49 6e 73 65 72  |...%."Edit.Inser|
00001880  74 22 3a e7 28 28 61 25  3f 33 29 80 31 32 38 29  |t":.((a%?3).128)|
00001890  3d 31 32 38 8c 0d 13 1a  0d f2 48 28 61 25 29 3a  |=128......H(a%):|
000018a0  f2 63 0d 13 38 0f cc 3a  f2 5f 28 61 25 29 3a f2  |.c..8..:._(a%):.|
000018b0  63 0d 13 56 05 cd 0d 13  56 08 77 25 3d b9 0d 13  |c..V....V.w%=...|
000018c0  6a 20 c9 22 45 64 69 74  2e 50 61 73 74 65 22 3a  |j ."Edit.Paste":|
000018d0  f2 48 28 61 25 29 3a 77  25 3d b9 3a f2 63 0d 13  |.H(a%):w%=.:.c..|
000018e0  92 24 c9 22 45 64 69 74  2e 43 75 74 22 3a 77 25  |.$."Edit.Cut":w%|
000018f0  3d b9 3a f2 46 28 61 25  29 3a f2 68 28 61 25 2c  |=.:.F(a%):.h(a%,|
00001900  b9 29 0d 13 ba 28 c9 22  45 64 69 74 2e 43 75 74  |.)...(."Edit.Cut|
00001910  20 47 72 6f 75 70 22 3a  77 25 3d b9 3a f2 47 28  | Group":w%=.:.G(|
00001920  61 25 29 3a f2 60 28 61  25 29 0d 13 e2 1a c9 22  |a%):.`(a%)....."|
00001930  4d 61 69 6e 2e 43 6c 65  61 72 20 41 6c 6c 22 3a  |Main.Clear All":|
00001940  e7 77 25 8c 0d 13 ec 31  7a 61 25 3d a4 69 28 22  |.w%....1za%=.i("|
00001950  4b 65 79 73 74 72 6f 6b  65 73 20 6e 6f 74 20 73  |Keystrokes not s|
00001960  61 76 65 64 2e 20 41 72  65 20 79 6f 75 20 73 75  |aved. Are you su|
00001970  72 65 3f 22 29 0d 14 00  0b cc 3a 7a 61 25 3d b9  |re?").....:za%=.|
00001980  0d 14 14 05 cd 0d 14 14  09 e7 7a 61 25 8c 0d 14  |..........za%...|
00001990  1e 21 f2 49 3a f2 69 3a  f2 63 3a 75 25 21 32 35  |.!.I:.i:.c:u%!25|
000019a0  32 3d 26 37 34 30 39 30  30 31 3a 77 25 3d a3 0d  |2=&7409001:w%=..|
000019b0  14 5a 05 cd 0d 14 5a 15  c9 22 4d 61 69 6e 2e 51  |.Z....Z.."Main.Q|
000019c0  75 69 74 22 3a e7 77 25  8c 0d 14 6e 31 61 61 25  |uit":.w%...n1aa%|
000019d0  3d a4 69 28 22 4b 65 79  73 74 72 6f 6b 65 73 20  |=.i("Keystrokes |
000019e0  6e 6f 74 20 73 61 76 65  64 2e 20 41 72 65 20 79  |not saved. Are y|
000019f0  6f 75 20 73 75 72 65 3f  22 29 0d 14 82 0b cc 3a  |ou sure?").....:|
00001a00  61 61 25 3d b9 0d 14 96  05 cd 0d 14 96 26 7f 3a  |aa%=.........&.:|
00001a10  e7 c0 69 24 2c 32 30 29  3d 22 4d 61 69 6e 2e 50  |..i$,20)="Main.P|
00001a20  72 65 66 73 2e 41 75 74  6f 65 78 65 63 2e 22 8c  |refs.Autoexec.".|
00001a30  0d 14 aa 12 e7 bb 28 a4  61 28 41 61 25 29 29 3d  |......(.a(Aa%))=|
00001a40  30 8c 0d 14 b4 3d f2 66  28 30 2c 22 54 68 65 20  |0....=.f(0,"The |
00001a50  6d 69 6e 69 6d 75 6d 20  74 69 6d 65 20 69 73 20  |minimum time is |
00001a60  6f 6e 65 20 6d 69 6e 75  74 65 22 2c 31 29 3a 24  |one minute",1):$|
00001a70  41 61 25 3d c3 28 6f 61  25 81 36 30 30 30 29 0d  |Aa%=.(oa%.6000).|
00001a80  14 d2 19 cc 3a 6f 61 25  3d bb 28 a4 61 28 41 61  |....:oa%=.(.a(Aa|
00001a90  25 29 29 2a 36 30 30 30  0d 14 e6 05 cd 0d 14 e6  |%))*6000........|
00001aa0  05 cd 0d 14 f0 47 e7 c0  69 24 2c 32 30 29 3d 22  |.....G..i$,20)="|
00001ab0  4d 61 69 6e 2e 50 72 65  66 73 2e 56 61 72 69 61  |Main.Prefs.Varia|
00001ac0  62 6c 65 2e 22 8c ff 28  22 53 65 74 45 76 61 6c  |ble."..("SetEval|
00001ad0  20 4b 65 79 73 74 72 6f  6b 65 25 56 61 72 20 22  | Keystroke%Var "|
00001ae0  2b a4 61 28 42 61 25 29  29 0d 14 fa 48 e7 c0 69  |+.a(Ba%))...H..i|
00001af0  24 2c 32 31 29 3d 22 4d  61 69 6e 2e 50 72 65 66  |$,21)="Main.Pref|
00001b00  73 2e 49 6e 63 72 65 6d  65 6e 74 2e 22 8c ff 28  |s.Increment."..(|
00001b10  22 53 65 74 45 76 61 6c  20 4b 65 79 73 74 72 6f  |"SetEval Keystro|
00001b20  6b 65 25 49 6e 63 20 22  2b a4 61 28 43 61 25 29  |ke%Inc "+.a(Ca%)|
00001b30  29 0d 15 04 05 cb 0d 15  0e 37 c8 99 22 57 69 6d  |)........7.."Wim|
00001b40  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00001b50  22 2c 2c 62 25 3a e7 62  25 21 38 3d 31 8c f2 74  |",,b%:.b%!8=1..t|
00001b60  28 78 61 25 2c 44 61 25  2c 45 61 25 29 0d 15 22  |(xa%,Da%,Ea%).."|
00001b70  05 e1 0d 15 2c 04 0d 15  40 12 dd f2 58 3a c8 8e  |....,...@...X:..|
00001b80  28 71 25 21 31 36 29 ca  0d 15 54 0b c9 30 3a e7  |(q%!16)...T..0:.|
00001b90  77 25 8c 0d 15 68 31 61  61 25 3d a4 69 28 22 4b  |w%...h1aa%=.i("K|
00001ba0  65 79 73 74 72 6f 6b 65  73 20 6e 6f 74 20 73 61  |eystrokes not sa|
00001bb0  76 65 64 2e 20 41 72 65  20 79 6f 75 20 73 75 72  |ved. Are you sur|
00001bc0  65 3f 22 29 0d 15 7c 0b  cc 3a 61 61 25 3d b9 0d  |e?")..|..:aa%=..|
00001bd0  15 90 05 cd 0d 15 90 59  c9 31 3a 71 25 21 31 32  |.......Y.1:q%!12|
00001be0  3d 71 25 21 38 3a 71 25  21 31 36 3d 32 3a 21 71  |=q%!8:q%!16=2:!q|
00001bf0  25 3d 32 35 36 3a 24 28  71 25 2b 34 34 29 3d 22  |%=256:$(q%+44)="|
00001c00  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 3a c8 99  |<Wimp$Scrap>":..|
00001c10  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001c20  65 22 2c 31 37 2c 71 25  2c 71 25 21 34 0d 15 d6  |e",17,q%,q%!4...|
00001c30  19 c9 32 3a 61 24 3d a4  61 28 71 25 2b 34 34 29  |..2:a$=.a(q%+44)|
00001c40  3a c8 8e 55 25 ca 0d 15  ea 27 c9 31 3a f2 75 28  |:..U%....'.1:.u(|
00001c50  61 24 29 3a e7 61 24 3c  3e 22 3c 57 69 6d 70 24  |a$):.a$<>"<Wimp$|
00001c60  53 63 72 61 70 3e 22 8c  6c 24 3d 61 24 0d 15 f4  |Scrap>".l$=a$...|
00001c70  27 c9 32 3a f2 4a 28 61  24 29 3a e7 61 24 3c 3e  |'.2:.J(a$):.a$<>|
00001c80  22 3c 57 69 6d 70 24 53  63 72 61 70 3e 22 8c 6f  |"<Wimp$Scrap>".o|
00001c90  24 3d 61 24 0d 15 fe 0e  c9 33 3a f2 61 61 28 61  |$=a$.....3:.aa(a|
00001ca0  24 29 0d 16 12 21 c9 34  3a e7 61 24 3c 3e 22 3c  |$)...!.4:.a$<>"<|
00001cb0  57 69 6d 70 24 53 63 72  61 70 3e 22 8c f2 4b 28  |Wimp$Scrap>"..K(|
00001cc0  61 24 29 0d 16 12 05 cb  0d 16 1c 56 c8 99 22 57  |a$)........V.."W|
00001cd0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001ce0  2c 2d 31 3a 71 25 21 31  32 3d 71 25 21 38 3a 71  |,-1:q%!12=q%!8:q|
00001cf0  25 21 31 36 3d 33 3a 21  71 25 3d 32 35 36 3a c8  |%!16=3:!q%=256:.|
00001d00  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00001d10  67 65 22 2c 31 38 2c 71  25 2c 71 25 21 34 0d 16  |ge",18,q%,q%!4..|
00001d20  58 0a c9 33 3a f2 62 61  0d 16 6c 19 c9 32 36 32  |X..3:.ba..l..262|
00001d30  33 33 36 3a e7 71 25 21  33 36 3d 30 8c 55 25 3d  |336:.q%!36=0.U%=|
00001d40  31 0d 16 76 11 e7 71 25  21 33 36 3d 33 8c 55 25  |1..v..q%!36=3.U%|
00001d50  3d 32 0d 16 80 11 e7 71  25 21 33 32 3d 36 8c 55  |=2.....q%!32=6.U|
00001d60  25 3d 33 0d 16 8a 11 e7  71 25 21 33 36 3d 32 8c  |%=3.....q%!36=2.|
00001d70  55 25 3d 34 0d 16 94 09  c8 8e 55 25 ca 0d 16 9e  |U%=4......U%....|
00001d80  32 c9 31 3a f2 62 28 41  25 2c 31 2c 6c 24 29 3a  |2.1:.b(A%,1,l$):|
00001d90  f2 6f 28 41 25 2c 30 2c  22 66 69 6c 65 5f 66 66  |.o(A%,0,"file_ff|
00001da0  64 22 29 3a f2 6c 28 41  25 2c 31 2c 31 35 29 0d  |d"):.l(A%,1,15).|
00001db0  16 d0 32 c9 32 3a f2 62  28 41 25 2c 31 2c 6f 24  |..2.2:.b(A%,1,o$|
00001dc0  29 3a f2 6f 28 41 25 2c  30 2c 22 66 69 6c 65 5f  |):.o(A%,0,"file_|
00001dd0  66 66 66 22 29 3a f2 6c  28 41 25 2c 31 2c 31 35  |fff"):.l(A%,1,15|
00001de0  29 0d 16 f8 38 c9 33 3a  f2 62 28 41 25 2c 31 2c  |)...8.3:.b(A%,1,|
00001df0  22 41 63 74 69 6f 6e 22  29 3a f2 6f 28 41 25 2c  |"Action"):.o(A%,|
00001e00  30 2c 22 66 69 6c 65 5f  66 65 62 22 29 3a f2 6c  |0,"file_feb"):.l|
00001e10  28 41 25 2c 31 2c 31 35  29 0d 17 20 32 c9 34 3a  |(A%,1,15).. 2.4:|
00001e20  f2 62 28 41 25 2c 31 2c  75 24 29 3a f2 6f 28 41  |.b(A%,1,u$):.o(A|
00001e30  25 2c 30 2c 22 21 65 78  65 63 75 74 6f 72 22 29  |%,0,"!executor")|
00001e40  3a f2 6c 28 41 25 2c 31  2c 30 29 0d 17 48 05 cb  |:.l(A%,1,0)..H..|
00001e50  0d 17 48 2d c8 99 22 57  69 6d 70 5f 43 72 65 61  |..H-.."Wimp_Crea|
00001e60  74 65 53 75 62 4d 65 6e  75 22 2c 2c 71 25 21 32  |teSubMenu",,q%!2|
00001e70  30 2c 71 25 21 32 34 2c  71 25 21 32 38 0d 17 5c  |0,q%!24,q%!28..\|
00001e80  0e c9 32 36 32 33 33 37  3a f2 4c 0d 17 70 1f c9  |..262337:.L..p..|
00001e90  32 36 32 33 33 38 3a f2  63 61 28 71 25 21 34 2c  |262338:.ca(q%!4,|
00001ea0  a4 61 28 71 25 2b 32 38  29 29 0d 17 84 15 c9 32  |.a(q%+28)).....2|
00001eb0  36 32 33 33 39 3a f2 64  61 28 71 25 21 34 29 0d  |62339:.da(q%!4).|
00001ec0  17 98 18 c9 32 36 32 33  34 33 3a 6a 24 3d a4 61  |....262343:j$=.a|
00001ed0  28 71 25 2b 32 38 29 0d  17 ac 05 cb 0d 17 ac 05  |(q%+28).........|
00001ee0  e1 0d 17 b6 04 0d 17 de  18 dd f2 41 28 63 25 29  |...........A(c%)|
00001ef0  3a e7 28 63 25 3f 31 80  38 29 3d 38 8c 0d 17 e8  |:.(c%?1.8)=8....|
00001f00  21 c8 97 46 61 25 2c 47  61 25 2c 48 61 25 3a c8  |!..Fa%,Ga%,Ha%:.|
00001f10  97 c8 93 46 61 25 2c 47  61 25 2c 30 2c 30 0d 18  |...Fa%,Ga%,0,0..|
00001f20  06 21 cc 3a c8 97 c8 93  69 61 25 2c 6a 61 25 2c  |.!.:....ia%,ja%,|
00001f30  6b 61 25 2d 69 61 25 2c  6c 61 25 2d 6a 61 25 0d  |ka%-ia%,la%-ja%.|
00001f40  18 1a 05 cd 0d 18 1a 10  e7 28 63 25 3f 33 80 32  |.........(c%?3.2|
00001f50  29 3d 30 8c 0d 18 2e 12  49 61 25 3d 31 3a f2 67  |)=0.....Ia%=1:.g|
00001f60  28 36 31 34 36 29 0d 18  4c 70 cc 3a 21 71 25 3d  |(6146)..Lp.:!q%=|
00001f70  30 3a 24 28 71 25 2b 34  29 3d a4 61 28 63 25 2b  |0:$(q%+4)=.a(c%+|
00001f80  31 32 38 29 2b 22 3f 22  3a c8 97 46 61 25 2c 47  |128)+"?":..Fa%,G|
00001f90  61 25 2c 48 61 25 3a c8  99 22 57 69 6d 70 5f 52  |a%,Ha%:.."Wimp_R|
00001fa0  65 70 6f 72 74 45 72 72  6f 72 22 2c 71 25 2c 31  |eportError",q%,1|
00001fb0  39 2c 22 4b 65 79 73 74  72 6f 6b 65 22 b8 2c 49  |9,"Keystroke".,I|
00001fc0  61 25 3a c8 97 b8 46 61  25 2c 47 61 25 3a f2 67  |a%:...Fa%,Ga%:.g|
00001fd0  28 36 31 34 36 29 0d 18  88 05 cd 0d 18 88 0b e7  |(6146)..........|
00001fe0  49 61 25 3d 31 8c 0d 18  92 48 73 25 3d a3 3a e7  |Ia%=1....Hs%=.:.|
00001ff0  28 28 28 28 63 25 21 31  30 34 29 80 31 30 34 38  |((((c%!104).1048|
00002000  35 37 36 29 3c 3e 30 29  84 28 63 25 3f 32 83 31  |576)<>0).(c%?2.1|
00002010  36 29 3d 33 29 80 28 63  25 3f 32 83 31 36 29 3c  |6)=3).(c%?2.16)<|
00002020  3e 32 8c 4a 61 25 3d b9  8b 4a 61 25 3d a3 0d 18  |>2.Ja%=..Ja%=...|
00002030  a6 10 c8 8e 28 63 25 3f  32 83 31 36 29 ca 0d 18  |....(c%?2.16)...|
00002040  b0 37 c9 30 3a e7 28 63  25 21 31 32 29 3c 3e 2d  |.7.0:.(c%!12)<>-|
00002050  31 84 28 28 28 63 25 3f  33 29 80 38 29 3d 30 80  |1.(((c%?3).8)=0.|
00002060  63 25 21 32 30 3c 30 29  8c f2 70 28 63 25 2c 63  |c%!20<0)..p(c%,c|
00002070  25 21 32 34 29 0d 18 ba  1c c9 31 3a e7 28 63 25  |%!24).....1:.(c%|
00002080  21 31 32 29 3c 3e 2d 31  8c f2 70 28 63 25 2c 32  |!12)<>-1..p(c%,2|
00002090  29 0d 18 c4 32 c9 32 3a  6d 24 3d a4 61 28 63 25  |)...2.2:m$=.a(c%|
000020a0  2b 31 32 29 3a e7 a7 6d  24 2c 22 3c 4b 65 79 73  |+12):..m$,"<Keys|
000020b0  74 72 6f 6b 65 24 49 6e  70 75 74 3e 22 29 3e 30  |troke$Input>")>0|
000020c0  8c f2 4d 0d 18 e2 1a e7  a7 6d 24 2c 22 3c 46 69  |..M......m$,"<Fi|
000020d0  6c 65 72 24 44 69 72 3e  22 29 3e 30 8c 0d 18 ec  |ler$Dir>")>0....|
000020e0  12 71 24 3d a4 6a 3a e7  71 24 3c 3e 22 22 8c 0d  |.q$=.j:.q$<>""..|
000020f0  19 00 31 ff 28 22 53 65  74 20 46 69 6c 65 72 24  |..1.("Set Filer$|
00002100  44 69 72 20 22 2b 71 24  29 3a ff 28 22 57 69 6d  |Dir "+q$):.("Wim|
00002110  70 54 61 73 6b 20 22 2b  6d 24 29 3a 73 25 3d b9  |pTask "+m$):s%=.|
00002120  0d 19 28 05 cd 0d 19 28  1c cc 3a ff 28 22 57 69  |..(....(..:.("Wi|
00002130  6d 70 54 61 73 6b 20 22  2b 6d 24 29 3a 73 25 3d  |mpTask "+m$):s%=|
00002140  b9 0d 19 50 05 cd 0d 19  50 21 e7 a7 6d 24 2c 22  |...P....P!..m$,"|
00002150  3c 4b 65 79 73 74 72 6f  6b 65 25 56 61 72 3e 22  |<Keystroke%Var>"|
00002160  29 3e 30 80 73 25 8c 0d  19 5a 69 ff 28 22 53 65  |)>0.s%...Zi.("Se|
00002170  74 45 76 61 6c 20 4b 65  79 73 74 72 6f 6b 65 25  |tEval Keystroke%|
00002180  56 61 72 20 4b 65 79 73  74 72 6f 6b 65 25 56 61  |Var Keystroke%Va|
00002190  72 22 2b a4 6d 29 3a c8  99 22 4f 53 5f 47 53 54  |r"+.m):.."OS_GST|
000021a0  72 61 6e 73 22 2c 22 3c  4b 65 79 73 74 72 6f 6b  |rans","<Keystrok|
000021b0  65 25 56 61 72 3e 22 2c  71 25 2c 38 31 39 32 3a  |e%Var>",q%,8192:|
000021c0  f2 62 28 74 25 2c 31 39  2c a4 61 28 71 25 29 29  |.b(t%,19,.a(q%))|
000021d0  0d 19 82 05 cd 0d 19 82  32 c9 33 3a 72 24 3d a4  |........2.3:r$=.|
000021e0  61 28 63 25 2b 31 32 29  3a e7 a7 72 24 2c 22 3c  |a(c%+12):..r$,"<|
000021f0  4b 65 79 73 74 72 6f 6b  65 24 49 6e 70 75 74 3e  |Keystroke$Input>|
00002200  22 29 3e 30 8c f2 4d 0d  19 a0 1a e7 a7 72 24 2c  |")>0..M......r$,|
00002210  22 3c 46 69 6c 65 72 24  44 69 72 3e 22 29 3e 30  |"<Filer$Dir>")>0|
00002220  8c 0d 19 aa 3d 71 24 3d  a4 6a 3a e7 71 24 3c 3e  |....=q$=.j:.q$<>|
00002230  22 22 8c ff 28 22 53 65  74 20 46 69 6c 65 72 24  |""..("Set Filer$|
00002240  44 69 72 20 22 2b a4 6a  29 8b ff 28 22 55 6e 73  |Dir "+.j)..("Uns|
00002250  65 74 20 46 69 6c 65 72  24 44 69 72 22 29 0d 19  |et Filer$Dir")..|
00002260  be 05 cd 0d 19 c8 4d c8  99 22 4f 53 5f 47 53 54  |......M.."OS_GST|
00002270  72 61 6e 73 22 2c 72 24  2c 71 25 2c 38 31 39 32  |rans",r$,q%,8192|
00002280  3a 6f 25 3d 71 25 3a c8  99 22 4f 53 5f 42 79 74  |:o%=q%:.."OS_Byt|
00002290  65 22 2c 31 35 3a c8 95  3f 6f 25 3c 3e 30 3a e7  |e",15:..?o%<>0:.|
000022a0  3f 6f 25 3e 31 33 35 80  3f 6f 25 3c 31 34 30 8c  |?o%>135.?o%<140.|
000022b0  0d 19 fa 2a f2 67 28 36  31 34 36 29 3a c8 99 22  |...*.g(6146):.."|
000022c0  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
000022d0  2c 28 3f 6f 25 29 2b 32  36 30 0d 1a 18 26 cc 3a  |,(?o%)+260...&.:|
000022e0  f2 67 28 36 31 34 36 29  3a c8 99 22 57 69 6d 70  |.g(6146):.."Wimp|
000022f0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 3f 6f 25  |_ProcessKey",?o%|
00002300  0d 1a 36 05 cd 0d 1a 36  2b 6f 25 2b 3d 31 3a ce  |..6....6+o%+=1:.|
00002310  3a 73 25 3d b9 3a e7 a7  72 24 2c 22 3c 4b 65 79  |:s%=.:..r$,"<Key|
00002320  73 74 72 6f 6b 65 25 56  61 72 3e 22 29 3e 30 8c  |stroke%Var>")>0.|
00002330  0d 1a 5e 69 ff 28 22 53  65 74 45 76 61 6c 20 4b  |..^i.("SetEval K|
00002340  65 79 73 74 72 6f 6b 65  25 56 61 72 20 4b 65 79  |eystroke%Var Key|
00002350  73 74 72 6f 6b 65 25 56  61 72 22 2b a4 6d 29 3a  |stroke%Var"+.m):|
00002360  c8 99 22 4f 53 5f 47 53  54 72 61 6e 73 22 2c 22  |.."OS_GSTrans","|
00002370  3c 4b 65 79 73 74 72 6f  6b 65 25 56 61 72 3e 22  |<Keystroke%Var>"|
00002380  2c 71 25 2c 38 31 39 32  3a f2 62 28 74 25 2c 31  |,q%,8192:.b(t%,1|
00002390  39 2c a4 61 28 71 25 29  29 0d 1a 86 05 cd 0d 1a  |9,.a(q%)).......|
000023a0  86 1d c9 34 3a e7 28 63  25 21 31 32 29 3c 3e 2d  |...4:.(c%!12)<>-|
000023b0  31 8c f2 70 28 63 25 2c  2d 31 29 0d 1a 9a 1c c9  |1..p(c%,-1).....|
000023c0  35 3a e7 28 63 25 21 31  32 29 3c 3e 2d 31 8c f2  |5:.(c%!12)<>-1..|
000023d0  70 28 63 25 2c 32 29 0d  1a ae 05 cb 0d 1a b8 21  |p(c%,2)........!|
000023e0  e7 73 25 3d b9 80 28 63  25 3f 33 80 31 29 3d 31  |.s%=..(c%?3.1)=1|
000023f0  8c d4 31 2c 2d 31 35 2c  31 30 30 2c 35 0d 1a c2  |..1,-15,100,5...|
00002400  0c f2 67 28 36 31 34 36  29 0d 1a d6 05 cd 0d 1a  |..g(6146).......|
00002410  d6 05 e1 0d 1a e0 04 0d  1a f4 89 dd f2 63 3a 6e  |.............c:n|
00002420  25 3d 28 28 61 25 3f 33  29 80 36 34 29 3d 36 34  |%=((a%?3).64)=64|
00002430  3a f2 62 28 65 25 2c 34  2c 61 24 28 42 25 29 29  |:.b(e%,4,a$(B%))|
00002440  3a f2 61 28 65 25 2c 31  2c 28 31 3c 3c 32 31 29  |:.a(e%,1,(1<<21)|
00002450  2c 28 72 25 80 34 29 3c  3e 30 29 3a f2 61 28 65  |,(r%.4)<>0):.a(e|
00002460  25 2c 32 2c 28 31 3c 3c  32 31 29 2c 28 72 25 80  |%,2,(1<<21),(r%.|
00002470  32 29 3c 3e 30 29 3a f2  61 28 65 25 2c 33 2c 28  |2)<>0):.a(e%,3,(|
00002480  31 3c 3c 32 31 29 2c 28  72 25 80 31 29 3c 3e 30  |1<<21),(r%.1)<>0|
00002490  29 3a e7 28 61 25 3f 33  80 31 32 38 29 3e 30 8c  |):.(a%?3.128)>0.|
000024a0  0d 1b 3a 45 e3 49 25 3d  36 b8 31 31 3a f2 61 28  |..:E.I%=6.11:.a(|
000024b0  65 25 2c 49 25 2c 28 31  3c 3c 32 31 29 2c a3 29  |e%,I%,(1<<21),.)|
000024c0  3a f2 61 28 65 25 2c 49  25 2c 28 31 3c 3c 32 32  |:.a(e%,I%,(1<<22|
000024d0  29 2c a3 29 3a ed 49 25  3a f2 62 28 65 25 2c 31  |),.):.I%:.b(e%,1|
000024e0  34 2c 22 22 29 0d 1b 76  5f cc 3a e3 49 25 3d 36  |4,"")..v_.:.I%=6|
000024f0  b8 31 31 3a f2 61 28 65  25 2c 49 25 2c 31 3c 3c  |.11:.a(e%,I%,1<<|
00002500  32 31 2c 28 28 28 61 25  3f 32 29 83 31 36 29 29  |21,(((a%?2).16))|
00002510  3d 28 49 25 2d 36 29 29  3a f2 61 28 65 25 2c 49  |=(I%-6)):.a(e%,I|
00002520  25 2c 31 3c 3c 32 32 2c  6e 25 29 3a ed 49 25 3a  |%,1<<22,n%):.I%:|
00002530  f2 62 28 65 25 2c 31 34  2c a4 61 28 61 25 2b 31  |.b(e%,14,.a(a%+1|
00002540  32 38 29 29 0d 1b b2 05  cd 0d 1b b2 6c f2 61 28  |28))........l.a(|
00002550  65 25 2c 31 32 2c 31 3c  3c 32 32 2c 54 25 3d 2d  |e%,12,1<<22,T%=-|
00002560  31 29 3a f2 61 28 65 25  2c 31 33 2c 31 3c 3c 32  |1):.a(e%,13,1<<2|
00002570  32 2c 28 28 28 61 25 3f  33 29 80 31 32 38 29 3e  |2,(((a%?3).128)>|
00002580  30 29 84 a4 62 29 3a e7  61 25 21 34 3d 2d 31 8c  |0)..b):.a%!4=-1.|
00002590  f2 62 28 65 25 2c 31 33  2c 22 4e 65 77 20 20 89  |.b(e%,13,"New  .|
000025a0  22 29 8b f2 62 28 65 25  2c 31 33 2c 22 4e 65 78  |")..b(e%,13,"Nex|
000025b0  74 20 89 22 29 0d 1b d0  28 e7 28 28 28 61 25 3f  |t .")...(.(((a%?|
000025c0  33 29 80 31 32 38 29 3e  30 29 84 a4 62 84 6e 25  |3).128)>0)..b.n%|
000025d0  8c 4b 61 25 3d 30 8b 4b  61 25 3d 31 35 0d 1b da  |.Ka%=0.Ka%=15...|
000025e0  bb f2 6c 28 65 25 2c 31  34 2c 4b 61 25 29 3a f2  |..l(e%,14,Ka%):.|
000025f0  61 28 65 25 2c 31 36 2c  31 3c 3c 32 31 2c 28 28  |a(e%,16,1<<21,((|
00002600  61 25 3f 33 29 80 31 32  39 29 3d 31 29 3a f2 61  |a%?3).129)=1):.a|
00002610  28 65 25 2c 31 36 2c 31  3c 3c 32 32 2c 6e 25 29  |(e%,16,1<<22,n%)|
00002620  3a f2 61 28 65 25 2c 31  37 2c 31 3c 3c 32 31 2c  |:.a(e%,17,1<<21,|
00002630  28 28 61 25 3f 33 29 80  31 33 30 29 3d 32 29 3a  |((a%?3).130)=2):|
00002640  f2 61 28 65 25 2c 31 37  2c 31 3c 3c 32 32 2c 6e  |.a(e%,17,1<<22,n|
00002650  25 29 3a f2 61 28 65 25  2c 31 38 2c 31 3c 3c 32  |%):.a(e%,18,1<<2|
00002660  31 2c 6e 25 80 28 28 61  25 3f 33 29 80 31 32 38  |1,n%.((a%?3).128|
00002670  29 3d 30 29 3a f2 61 28  65 25 2c 31 38 2c 31 3c  |)=0):.a(e%,18,1<|
00002680  3c 32 32 2c 28 28 28 61  25 3f 33 29 80 31 32 38  |<22,(((a%?3).128|
00002690  29 3e 30 29 84 a4 62 29  0d 1c 20 bc f2 61 28 65  |)>0)..b).. ..a(e|
000026a0  25 2c 32 30 2c 31 3c 3c  32 31 2c 28 28 61 25 3f  |%,20,1<<21,((a%?|
000026b0  33 29 80 31 36 30 29 3d  33 32 29 3a f2 61 28 65  |3).160)=32):.a(e|
000026c0  25 2c 32 30 2c 31 3c 3c  32 32 2c 54 25 3d 2d 31  |%,20,1<<22,T%=-1|
000026d0  84 6e 25 84 a4 62 29 3a  f2 61 28 65 25 2c 32 31  |.n%..b):.a(e%,21|
000026e0  2c 31 3c 3c 32 31 2c 28  28 61 25 3f 31 29 80 38  |,1<<21,((a%?1).8|
000026f0  29 3d 38 29 3a f2 61 28  65 25 2c 32 31 2c 31 3c  |)=8):.a(e%,21,1<|
00002700  3c 32 32 2c 6e 25 84 a4  62 29 3a f2 61 28 65 25  |<22,n%..b):.a(e%|
00002710  2c 32 32 2c 31 3c 3c 32  31 2c 28 28 61 25 3f 31  |,22,1<<21,((a%?1|
00002720  29 80 31 36 29 3d 31 36  29 3a f2 61 28 65 25 2c  |).16)=16):.a(e%,|
00002730  32 32 2c 31 3c 3c 32 32  2c 6e 25 84 a4 62 29 3a  |22,1<<22,n%..b):|
00002740  46 25 3d 28 28 61 25 3f  32 29 83 31 36 29 3a c8  |F%=((a%?2).16):.|
00002750  8e 46 25 ca 0d 1c 70 3e  c9 30 2c 31 2c 34 2c 35  |.F%...p>.0,1,4,5|
00002760  3a e7 28 46 25 3d 30 80  28 28 61 25 3f 33 29 80  |:.(F%=0.((a%?3).|
00002770  38 29 3d 30 80 61 25 21  32 30 3c 30 29 84 28 46  |8)=0.a%!20<0).(F|
00002780  25 3d 34 80 28 28 61 25  3f 33 29 80 38 29 3d 30  |%=4.((a%?3).8)=0|
00002790  29 8c 0d 1c 84 19 f2 62  28 6d 25 2c 31 2c 22 49  |)......b(m%,1,"I|
000027a0  72 72 65 6c 65 76 61 6e  74 22 29 0d 1c 98 18 cc  |rrelevant").....|
000027b0  3a f2 62 28 6d 25 2c 31  2c a4 61 28 61 25 2b 35  |:.b(m%,1,.a(a%+5|
000027c0  36 29 29 0d 1c ac 05 cd  0d 1c ac ca e3 49 25 3d  |6))..........I%=|
000027d0  30 b8 33 3a f2 61 28 6d  25 2c 49 25 2b 32 2c 31  |0.3:.a(m%,I%+2,1|
000027e0  3c 3c 32 31 2c 28 28 61  25 3f 32 29 81 31 36 29  |<<21,((a%?2).16)|
000027f0  3d 49 25 29 3a f2 61 28  6d 25 2c 49 25 2b 32 2c  |=I%):.a(m%,I%+2,|
00002800  31 3c 3c 32 32 2c 6e 25  29 3a ed 49 25 3a f2 61  |1<<22,n%):.I%:.a|
00002810  28 6d 25 2c 36 2c 31 3c  3c 32 31 2c 28 28 61 25  |(m%,6,1<<21,((a%|
00002820  3f 33 29 80 34 29 3d 34  29 3a f2 61 28 6d 25 2c  |?3).4)=4):.a(m%,|
00002830  36 2c 31 3c 3c 32 32 2c  28 28 61 25 3f 32 29 81  |6,1<<22,((a%?2).|
00002840  31 36 29 3d 30 84 6e 25  29 3a f2 61 28 6d 25 2c  |16)=0.n%):.a(m%,|
00002850  37 2c 31 3c 3c 32 31 2c  28 28 61 25 3f 33 29 80  |7,1<<21,((a%?3).|
00002860  38 29 3d 38 29 3a f2 61  28 6d 25 2c 37 2c 31 3c  |8)=8):.a(m%,7,1<|
00002870  3c 32 32 2c 28 28 61 25  3f 32 29 81 31 36 29 3d  |<22,((a%?2).16)=|
00002880  30 84 6e 25 29 3a e7 28  61 25 3f 33 80 34 29 3d  |0.n%):.(a%?3.4)=|
00002890  34 8c 0d 1d 06 16 f2 62  28 6d 25 2c 39 2c a4 61  |4......b(m%,9,.a|
000028a0  28 61 25 2b 37 36 29 29  0d 1d 1a 1b cc 3a f2 62  |(a%+76)).....:.b|
000028b0  28 6d 25 2c 39 2c 22 49  72 72 65 6c 65 76 61 6e  |(m%,9,"Irrelevan|
000028c0  74 22 29 0d 1d 2e 05 cd  0d 1d 2e 0a e7 46 25 3d  |t")..........F%=|
000028d0  34 8c 0d 1d 38 1a f2 62  28 6d 25 2c 31 37 2c 22  |4...8..b(m%,17,"|
000028e0  49 72 72 65 6c 65 76 61  6e 74 22 29 0d 1d 4c 3e  |Irrelevant")..L>|
000028f0  cc 3a e7 28 61 25 3f 33  80 31 36 29 3d 30 8c f2  |.:.(a%?3.16)=0..|
00002900  62 28 6d 25 2c 31 37 2c  22 41 74 20 70 6f 69 6e  |b(m%,17,"At poin|
00002910  74 65 72 22 29 8b f2 62  28 6d 25 2c 31 37 2c a4  |ter")..b(m%,17,.|
00002920  61 28 61 25 2b 31 31 36  29 29 0d 1d 56 05 cd 0d  |a(a%+116))..V...|
00002930  1d 60 74 f2 61 28 4d 25  2c 31 2c 31 3c 3c 32 31  |.`t.a(M%,1,1<<21|
00002940  2c 28 61 25 3f 32 34 29  3d 34 29 3a f2 61 28 4d  |,(a%?24)=4):.a(M|
00002950  25 2c 32 2c 31 3c 3c 32  31 2c 28 61 25 3f 32 34  |%,2,1<<21,(a%?24|
00002960  29 3d 31 29 3a f2 61 28  4d 25 2c 33 2c 31 3c 3c  |)=1):.a(M%,3,1<<|
00002970  32 31 2c 28 61 25 3f 32  35 29 3d 31 29 3a e3 49  |21,(a%?25)=1):.I|
00002980  25 3d 31 b8 33 3a f2 61  28 4d 25 2c 49 25 2c 31  |%=1.3:.a(M%,I%,1|
00002990  3c 3c 32 32 2c 6e 25 29  3a ed 49 25 3a e7 46 25  |<<22,n%):.I%:.F%|
000029a0  3d 34 8c 0d 1d a6 4d f2  61 28 6a 25 2c 31 2c 31  |=4....M.a(j%,1,1|
000029b0  3c 3c 32 31 2c 28 28 61  25 21 32 38 29 80 31 29  |<<21,((a%!28).1)|
000029c0  3d 30 29 3a f2 61 28 6a  25 2c 32 2c 31 3c 3c 32  |=0):.a(j%,2,1<<2|
000029d0  31 2c 28 28 61 25 21 32  38 29 80 31 29 3d 31 29  |1,((a%!28).1)=1)|
000029e0  3a e7 28 28 61 25 21 32  38 29 80 31 29 3d 30 8c  |:.((a%!28).1)=0.|
000029f0  0d 1d c4 2e f2 62 28 6a  25 2c 33 2c 22 4d 6f 76  |.....b(j%,3,"Mov|
00002a00  65 20 74 6f 3a 22 29 3a  f2 62 28 6a 25 2c 31 32  |e to:"):.b(j%,12|
00002a10  2c 22 53 63 72 6f 6c 6c  20 74 6f 3a 22 29 0d 1d  |,"Scroll to:")..|
00002a20  e2 30 cc 3a f2 62 28 6a  25 2c 33 2c 22 4d 6f 76  |.0.:.b(j%,3,"Mov|
00002a30  65 20 62 79 3a 22 29 3a  f2 62 28 6a 25 2c 31 32  |e by:"):.b(j%,12|
00002a40  2c 22 53 63 72 6f 6c 6c  20 62 79 3a 22 29 0d 1e  |,"Scroll by:")..|
00002a50  00 05 cd 0d 1e 00 cc f2  61 28 6a 25 2c 31 36 2c  |........a(j%,16,|
00002a60  31 3c 3c 32 31 2c 28 28  61 25 21 32 38 29 80 32  |1<<21,((a%!28).2|
00002a70  29 3d 32 29 3a f2 61 28  6a 25 2c 31 37 2c 31 3c  |)=2):.a(j%,17,1<|
00002a80  3c 32 31 2c 28 28 61 25  21 32 38 29 80 34 29 3d  |<21,((a%!28).4)=|
00002a90  34 29 3a f2 61 28 6a 25  2c 31 38 2c 31 3c 3c 32  |4):.a(j%,18,1<<2|
00002aa0  31 2c 28 28 61 25 21 32  38 29 80 38 29 3d 38 29  |1,((a%!28).8)=8)|
00002ab0  3a f2 62 28 6a 25 2c 34  2c c3 28 61 25 21 33 32  |:.b(j%,4,.(a%!32|
00002ac0  29 29 3a f2 62 28 6a 25  2c 36 2c c3 28 61 25 21  |)):.b(j%,6,.(a%!|
00002ad0  33 36 29 29 3a f2 62 28  6a 25 2c 38 2c c3 28 61  |36)):.b(j%,8,.(a|
00002ae0  25 21 34 30 29 29 3a f2  62 28 6a 25 2c 31 30 2c  |%!40)):.b(j%,10,|
00002af0  c3 28 61 25 21 34 34 29  29 3a f2 62 28 6a 25 2c  |.(a%!44)):.b(j%,|
00002b00  31 33 2c c3 28 61 25 21  34 38 29 29 3a f2 62 28  |13,.(a%!48)):.b(|
00002b10  6a 25 2c 31 35 2c c3 28  61 25 21 35 32 29 29 0d  |j%,15,.(a%!52)).|
00002b20  1e 5a cb f2 61 28 6a 25  2c 31 2c 31 3c 3c 32 32  |.Z..a(j%,1,1<<22|
00002b30  2c 6e 25 29 3a f2 61 28  6a 25 2c 32 2c 31 3c 3c  |,n%):.a(j%,2,1<<|
00002b40  32 32 2c 6e 25 29 3a f2  61 28 6a 25 2c 34 2c 31  |22,n%):.a(j%,4,1|
00002b50  3c 3c 32 32 2c 6e 25 84  28 28 61 25 21 32 38 29  |<<22,n%.((a%!28)|
00002b60  80 31 30 29 3d 30 29 3a  f2 61 28 6a 25 2c 36 2c  |.10)=0):.a(j%,6,|
00002b70  31 3c 3c 32 32 2c 6e 25  84 28 28 61 25 21 32 38  |1<<22,n%.((a%!28|
00002b80  29 80 31 30 29 3d 30 29  3a f2 61 28 6a 25 2c 38  |).10)=0):.a(j%,8|
00002b90  2c 31 3c 3c 32 32 2c 6e  25 84 28 28 61 25 21 32  |,1<<22,n%.((a%!2|
00002ba0  38 29 80 32 29 3d 30 29  3a f2 61 28 6a 25 2c 31  |8).2)=0):.a(j%,1|
00002bb0  30 2c 31 3c 3c 32 32 2c  6e 25 84 28 28 61 25 21  |0,1<<22,n%.((a%!|
00002bc0  32 38 29 80 32 29 3d 30  29 3a f2 61 28 6a 25 2c  |28).2)=0):.a(j%,|
00002bd0  31 33 2c 31 3c 3c 32 32  2c 6e 25 84 28 28 61 25  |13,1<<22,n%.((a%|
00002be0  21 32 38 29 80 34 29 3d  30 29 0d 1e a0 34 f2 61  |!28).4)=0)...4.a|
00002bf0  28 6a 25 2c 31 35 2c 31  3c 3c 32 32 2c 6e 25 84  |(j%,15,1<<22,n%.|
00002c00  28 28 61 25 21 32 38 29  80 34 29 3d 30 29 3a e7  |((a%!28).4)=0):.|
00002c10  28 28 61 25 21 32 38 29  80 32 29 3d 30 8c 0d 1e  |((a%!28).2)=0...|
00002c20  b4 1c f2 71 28 6a 25 2c  37 2c 31 37 29 3a f2 71  |...q(j%,7,17):.q|
00002c30  28 6a 25 2c 31 31 2c 31  37 29 0d 1e d2 1e cc 3a  |(j%,11,17).....:|
00002c40  f2 71 28 6a 25 2c 37 2c  32 33 29 3a f2 71 28 6a  |.q(j%,7,23):.q(j|
00002c50  25 2c 31 31 2c 32 33 29  0d 1e f0 05 cd 0d 1e f0  |%,11,23)........|
00002c60  34 e3 49 25 3d 31 36 b8  31 38 3a f2 61 28 6a 25  |4.I%=16.18:.a(j%|
00002c70  2c 49 25 2c 31 3c 3c 32  32 2c 6e 25 29 3a ed 49  |,I%,1<<22,n%):.I|
00002c80  25 3a e7 28 28 61 25 21  32 38 29 80 36 29 3d 30  |%:.((a%!28).6)=0|
00002c90  8c 0d 1f 18 64 f2 62 28  6d 25 2c 31 2c 22 49 72  |....d.b(m%,1,"Ir|
00002ca0  72 65 6c 65 76 61 6e 74  22 29 3a f2 62 28 6d 25  |relevant"):.b(m%|
00002cb0  2c 39 2c 22 49 72 72 65  6c 65 76 61 6e 74 22 29  |,9,"Irrelevant")|
00002cc0  3a f2 62 28 6d 25 2c 31  37 2c 22 49 72 72 65 6c  |:.b(m%,17,"Irrel|
00002cd0  65 76 61 6e 74 22 29 3a  e3 49 25 3d 32 b8 37 3a  |evant"):.I%=2.7:|
00002ce0  f2 61 28 6d 25 2c 49 25  2c 31 3c 3c 32 32 2c b9  |.a(m%,I%,1<<22,.|
00002cf0  29 3a ed 49 25 0d 1f 5e  05 cd 0d 1f 5e 67 cc 3a  |):.I%..^....^g.:|
00002d00  4c 61 25 3d a3 3a e3 49  25 3d 30 b8 36 3a f2 61  |La%=.:.I%=0.6:.a|
00002d10  28 47 25 2c 38 2b 49 25  2c 31 3c 3c 32 32 2c 4c  |(G%,8+I%,1<<22,L|
00002d20  61 25 84 6e 25 29 3a f2  62 28 47 25 2c 38 2b 49  |a%.n%):.b(G%,8+I|
00002d30  25 2c c3 28 28 61 25 21  28 28 49 25 2a 34 29 2b  |%,.((a%!((I%*4)+|
00002d40  32 38 29 29 2b 31 29 29  3a e7 61 25 21 28 28 49  |28))+1)):.a%!((I|
00002d50  25 2a 34 29 2b 32 38 29  3d 2d 31 8c 4c 61 25 3d  |%*4)+28)=-1.La%=|
00002d60  b9 0d 1f 9a 07 ed 49 25  0d 1f ae 05 cd 0d 1f ae  |......I%........|
00002d70  16 f2 61 28 6d 25 2c 32  30 2c 31 3c 3c 32 32 2c  |..a(m%,20,1<<22,|
00002d80  6e 25 29 0d 1f c2 b0 c9  32 2c 33 3a e3 49 25 3d  |n%).....2,3:.I%=|
00002d90  32 b8 31 34 3a f2 61 28  74 25 2c 49 25 2c 28 31  |2.14:.a(t%,I%,(1|
00002da0  3c 3c 32 32 29 2c 6e 25  29 3a ed 49 25 3a e3 49  |<<22),n%):.I%:.I|
00002db0  25 3d 38 b8 31 30 3a f2  61 28 74 25 2c 49 25 2c  |%=8.10:.a(t%,I%,|
00002dc0  28 31 3c 3c 32 32 29 2c  46 25 3d 33 84 6e 25 29  |(1<<22),F%=3.n%)|
00002dd0  3a ed 49 25 3a e3 49 25  3d 31 31 b8 31 34 3a f2  |:.I%:.I%=11.14:.|
00002de0  61 28 74 25 2c 49 25 2c  28 31 3c 3c 32 32 29 2c  |a(t%,I%,(1<<22),|
00002df0  46 25 3d 32 84 6e 25 29  3a ed 49 25 3a e3 49 25  |F%=2.n%):.I%:.I%|
00002e00  3d 35 b8 36 3a f2 61 28  74 25 2c 49 25 2c 28 31  |=5.6:.a(t%,I%,(1|
00002e10  3c 3c 32 32 29 2c 46 25  3d 32 84 6e 25 29 3a ed  |<<22),F%=2.n%):.|
00002e20  49 25 3a e7 6e 25 8c 4b  61 25 3d 30 8b 4b 61 25  |I%:.n%.Ka%=0.Ka%|
00002e30  3d 31 35 0d 20 44 23 f2  6c 28 74 25 2c 31 2c 4b  |=15. D#.l(t%,1,K|
00002e40  61 25 29 3a f2 62 28 74  25 2c 31 2c a4 61 28 61  |a%):.b(t%,1,.a(a|
00002e50  25 2b 31 32 29 29 0d 20  62 05 cb 0d 20 62 3d 21  |%+12)). b... b=!|
00002e60  71 25 3d 65 25 3a c8 99  22 57 69 6d 70 5f 47 65  |q%=e%:.."Wimp_Ge|
00002e70  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00002e80  25 3a e7 28 28 71 25 21  33 32 29 80 36 35 35 33  |%:.((q%!32).6553|
00002e90  36 29 3c 3e 30 8c f2 73  0d 20 80 05 e1 0d 20 8a  |6)<>0..s. .... .|
00002ea0  04 0d 20 9e 30 dd f2 42  28 68 24 29 3a e3 4d 61  |.. .0..B(h$):.Ma|
00002eb0  25 3d 30 b8 39 36 3a e3  4e 61 25 3d 30 b8 37 3a  |%=0.96:.Na%=0.7:|
00002ec0  e7 61 25 28 4d 61 25 2c  4e 61 25 29 3c 3e 2d 31  |.a%(Ma%,Na%)<>-1|
00002ed0  8c 0d 20 c6 15 e7 21 61  25 28 4d 61 25 2c 4e 61  |.. ...!a%(Ma%,Na|
00002ee0  25 29 3c 3e 30 8c 0d 20  d0 4e 4f 61 25 3d 61 25  |%)<>0.. .NOa%=a%|
00002ef0  28 4d 61 25 2c 4e 61 25  29 2d 34 3a 50 61 25 3d  |(Ma%,Na%)-4:Pa%=|
00002f00  a3 3a 73 25 3d a3 3a f5  3a 4f 61 25 3d 67 25 2b  |.:s%=.:.:Oa%=g%+|
00002f10  4f 61 25 21 34 3a e7 50  61 25 8c 51 61 25 3d 28  |Oa%!4:.Pa%.Qa%=(|
00002f20  28 4f 61 25 3f 33 29 80  33 32 29 3d 33 32 8b 51  |(Oa%?3).32)=32.Q|
00002f30  61 25 3d a3 0d 21 02 43  e7 a4 61 28 4f 61 25 2b  |a%=..!.C..a(Oa%+|
00002f40  31 32 38 29 3d 68 24 84  28 68 24 3d 22 41 75 74  |128)=h$.(h$="Aut|
00002f50  6f 65 78 65 63 22 80 c0  a4 61 28 4f 61 25 2b 31  |oexec"...a(Oa%+1|
00002f60  32 38 29 2c 38 29 3d 22  41 75 74 6f 65 78 65 63  |28),8)="Autoexec|
00002f70  22 29 84 51 61 25 8c 0d  21 0c 1b f2 41 28 4f 61  |").Qa%..!...A(Oa|
00002f80  25 29 3a f2 67 28 36 31  34 36 29 3a 50 61 25 3d  |%):.g(6146):Pa%=|
00002f90  73 25 0d 21 34 05 cd 0d  21 34 0d fd 4f 61 25 21  |s%.!4...!4..Oa%!|
00002fa0  34 3d 2d 31 0d 21 48 05  cd 0d 21 48 05 cd 0d 21  |4=-1.!H...!H...!|
00002fb0  52 2b ed 4e 61 25 3a ed  4d 61 25 3a c8 97 c8 93  |R+.Na%:.Ma%:....|
00002fc0  69 61 25 2c 6a 61 25 2c  6b 61 25 2d 69 61 25 2c  |ia%,ja%,ka%-ia%,|
00002fd0  6c 61 25 2d 6a 61 25 3a  e1 0d 21 7a 04 0d 21 8e  |la%-ja%:..!z..!.|
00002fe0  39 dd f2 69 3a c8 95 61  25 28 42 25 2c 72 25 29  |9..i:..a%(B%,r%)|
00002ff0  3d 2d 31 3a 72 25 3d 28  72 25 2b 31 29 83 38 3a  |=-1:r%=(r%+1).8:|
00003000  ce 3a 61 25 3d 21 61 25  28 42 25 2c 72 25 29 3a  |.:a%=!a%(B%,r%):|
00003010  e7 61 25 3d 30 8c 0d 21  c0 0f 61 25 3d a4 66 3a  |.a%=0..!..a%=.f:|
00003020  54 25 3d 2d 31 0d 21 de  1a cc 3a 54 25 3d 21 28  |T%=-1.!...:T%=!(|
00003030  67 25 2b 61 25 2b 38 29  3a 61 25 2b 3d 67 25 0d  |g%+a%+8):a%+=g%.|
00003040  21 fc 05 cd 0d 21 fc 05  e1 0d 22 06 04 0d 22 1a  |!....!...."...".|
00003050  34 dd a4 66 3a 52 61 25  3d 67 25 2b 32 35 38 38  |4..f:Ra%=g%+2588|
00003060  3a c8 95 28 28 52 61 25  3f 33 29 80 31 32 38 29  |:..((Ra%?3).128)|
00003070  3d 30 3a 52 61 25 2b 3d  6b 25 3a ce 3a 3d 52 61  |=0:Ra%+=k%:.:=Ra|
00003080  25 0d 22 60 2d dd f2 44  28 42 25 2c 72 25 2c 46  |%."`-..D(B%,r%,F|
00003090  25 29 3a 77 25 3d b9 3a  ea 76 25 3a e7 28 61 25  |%):w%=.:.v%:.(a%|
000030a0  3f 33 80 31 32 38 29 3e  30 8c 76 25 3d b9 0d 22  |?3.128)>0.v%=.."|
000030b0  7e 1c e7 76 25 80 48 25  2b 67 25 2b 28 32 2a 6b  |~..v%.H%+g%+(2*k|
000030c0  25 29 3e 67 25 2b 53 61  25 8c 0d 22 88 30 f2 66  |%)>g%+Sa%..".0.f|
000030d0  28 30 2c 22 53 6f 72 72  79 2c 20 49 20 68 61 76  |(0,"Sorry, I hav|
000030e0  65 20 6e 6f 20 6d 6f 72  65 20 6d 65 6d 6f 72 79  |e no more memory|
000030f0  22 2c 31 29 3a 54 61 25  3d a3 0d 22 a6 0a cc 3a  |",1):Ta%=.."...:|
00003100  e7 76 25 8c 0d 22 b0 1b  61 25 3f 31 32 38 3d 31  |.v%.."..a%?128=1|
00003110  33 3a e7 61 25 2b 6b 25  3d 67 25 2b 48 25 8c 0d  |3:.a%+k%=g%+H%..|
00003120  22 c4 2b 48 25 2b 3d 6b  25 3a e3 49 25 3d 61 25  |".+H%+=k%:.I%=a%|
00003130  2b 6b 25 b8 61 25 2b 28  6b 25 2a 32 29 2d 34 3a  |+k%.a%+(k%*2)-4:|
00003140  21 49 25 3d 2d 31 3a ed  49 25 0d 22 f6 05 cd 0d  |!I%=-1:.I%."....|
00003150  22 f6 0a 55 61 25 3d 2d  31 0d 23 0a 15 cc 3a 55  |"..Ua%=-1.#...:U|
00003160  61 25 3d 28 28 61 25 3f  32 29 83 31 36 29 0d 23  |a%=((a%?2).16).#|
00003170  1e 05 cd 0d 23 1e 2c 3f  61 25 3d 42 25 3a 61 25  |....#.,?a%=B%:a%|
00003180  3f 31 3d 72 25 3a 61 25  3f 32 3d 28 28 61 25 3f  |?1=r%:a%?2=((a%?|
00003190  32 29 80 32 34 30 29 2b  46 25 3a e7 76 25 8c 0d  |2).240)+F%:.v%..|
000031a0  23 46 20 61 25 21 34 3d  2d 31 3a f2 65 61 28 42  |#F a%!4=-1:.ea(B|
000031b0  25 2c 72 25 29 3a e7 56  61 25 3c 3e 2d 31 8c 0d  |%,r%):.Va%<>-1..|
000031c0  23 64 1b 56 61 25 21 34  3d 61 25 2d 67 25 3a 61  |#d.Va%!4=a%-g%:a|
000031d0  25 21 38 3d 56 61 25 2d  67 25 0d 23 82 1e cc 3a  |%!8=Va%-g%.#...:|
000031e0  21 61 25 28 42 25 2c 72  25 29 3d 61 25 2d 67 25  |!a%(B%,r%)=a%-g%|
000031f0  3a 61 25 21 38 3d 2d 31  0d 23 a0 05 cd 0d 23 a0  |:a%!8=-1.#....#.|
00003200  05 cd 0d 23 aa 09 c8 8e  46 25 ca 0d 23 b4 21 c9  |...#....F%..#.!.|
00003210  30 2c 31 2c 35 3a e7 55  61 25 3d 32 84 55 61 25  |0,1,5:.Ua%=2.Ua%|
00003220  3d 33 84 55 61 25 3d 34  84 76 25 8c 0d 23 c8 0a  |=3.Ua%=4.v%..#..|
00003230  e7 46 25 3d 30 8c 0d 23  d2 13 61 25 3f 33 3d 32  |.F%=0..#..a%?3=2|
00003240  38 3a 61 25 3f 32 3d 46  25 0d 23 f0 18 cc 3a 61  |8:a%?2=F%.#...:a|
00003250  25 3f 33 3d 32 34 3a 61  25 3f 32 3d 46 25 2b 33  |%?3=24:a%?2=F%+3|
00003260  32 0d 24 0e 05 cd 0d 24  0e 82 61 25 21 31 32 3d  |2.$....$..a%!12=|
00003270  2d 31 3a 61 25 21 31 36  3d 2d 31 3a 61 25 21 32  |-1:a%!16=-1:a%!2|
00003280  30 3d 2d 31 3a 61 25 21  32 34 3d 34 3a e3 49 25  |0=-1:a%!24=4:.I%|
00003290  3d 32 38 b8 35 32 88 34  3a 61 25 21 49 25 3d 2d  |=28.52.4:a%!I%=-|
000032a0  31 3a ed 49 25 3a 24 28  61 25 2b 35 36 29 3d 22  |1:.I%:$(a%+56)="|
000032b0  2d 22 3a 24 28 61 25 2b  37 36 29 3d 22 2d 22 3a  |-":$(a%+76)="-":|
000032c0  61 25 21 31 30 34 3d 30  3a 61 25 21 31 30 38 3d  |a%!104=0:a%!108=|
000032d0  30 3a 61 25 21 31 31 32  3d 30 3a 24 28 61 25 2b  |0:a%!112=0:$(a%+|
000032e0  31 31 36 29 3d 22 2d 22  0d 24 9a 05 cd 0d 24 9a  |116)="-".$....$.|
000032f0  25 c9 32 2c 33 3a e7 55  61 25 3d 30 84 55 61 25  |%.2,3:.Ua%=0.Ua%|
00003300  3d 31 84 55 61 25 3d 34  84 55 61 25 3d 35 84 76  |=1.Ua%=4.Ua%=5.v|
00003310  25 8c 0d 24 ae 23 e3 49  25 3d 31 32 b8 31 32 34  |%..$.#.I%=12.124|
00003320  88 34 3a 61 25 21 49 25  3d 30 3a ed 49 25 3a 61  |.4:a%!I%=0:.I%:a|
00003330  25 3f 33 3d 30 0d 24 cc  05 cd 0d 24 cc 12 c9 34  |%?3=0.$....$...4|
00003340  3a e7 55 61 25 3c 3e 34  84 76 25 8c 0d 24 e0 a3  |:.Ua%<>4.v%..$..|
00003350  61 25 3f 32 3d 46 25 2b  31 36 3a 61 25 3f 33 3d  |a%?2=F%+16:a%?3=|
00003360  30 3a 61 25 21 31 32 3d  30 3a 61 25 21 31 36 3d  |0:a%!12=0:a%!16=|
00003370  2d 31 3a 61 25 21 32 30  3d 2d 31 3a 61 25 21 32  |-1:a%!20=-1:a%!2|
00003380  34 3d 30 3a 61 25 21 32  38 3d 33 3a e3 49 25 3d  |4=0:a%!28=3:.I%=|
00003390  33 32 b8 35 32 88 34 3a  61 25 21 49 25 3d 30 3a  |32.52.4:a%!I%=0:|
000033a0  ed 49 25 3a 24 28 61 25  2b 35 36 29 3d 22 49 72  |.I%:$(a%+56)="Ir|
000033b0  72 65 6c 65 76 61 6e 74  22 3a 24 28 61 25 2b 37  |relevant":$(a%+7|
000033c0  36 29 3d 22 2d 22 3a 61  25 21 31 30 34 3d 30 3a  |6)="-":a%!104=0:|
000033d0  61 25 21 31 30 38 3d 30  3a 61 25 21 31 31 32 3d  |a%!108=0:a%!112=|
000033e0  30 3a 24 28 61 25 2b 31  31 36 29 3d 22 2d 22 0d  |0:$(a%+116)="-".|
000033f0  25 8a 05 cd 0d 25 8a 05  cb 0d 25 94 05 cd 0d 25  |%....%....%....%|
00003400  9e 05 e1 0d 25 a8 04 0d  25 bc 1e dd f2 65 61 28  |....%...%....ea(|
00003410  42 25 2c 72 25 29 3a e7  21 61 25 28 42 25 2c 72  |B%,r%):.!a%(B%,r|
00003420  25 29 3d 30 8c 0d 25 c6  0a 56 61 25 3d 2d 31 0d  |%)=0..%..Va%=-1.|
00003430  25 da 32 cc 3a 56 61 25  3d 21 61 25 28 42 25 2c  |%.2.:Va%=!a%(B%,|
00003440  72 25 29 2b 67 25 3a c8  95 56 61 25 21 34 3c 3e  |r%)+g%:..Va%!4<>|
00003450  2d 31 3a 56 61 25 3d 67  25 2b 56 61 25 21 34 3a  |-1:Va%=g%+Va%!4:|
00003460  ce 0d 26 0c 05 cd 0d 26  0c 05 e1 0d 26 16 04 0d  |..&....&....&...|
00003470  26 2a 1d dd f2 7a 3a e7  28 28 28 28 61 25 3f 32  |&*...z:.((((a%?2|
00003480  29 83 31 36 29 29 80 32  29 3d 30 8c 0d 26 34 3e  |).16)).2)=0..&4>|
00003490  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
000034a0  65 72 49 6e 66 6f 22 2c  2c 62 25 3a e7 28 28 61  |erInfo",,b%:.((a|
000034b0  25 3f 32 29 80 31 35 29  3d 34 80 28 28 61 25 21  |%?2).15)=4.((a%!|
000034c0  32 38 29 80 31 34 29 3d  38 8c 0d 26 48 1b 61 25  |28).14)=8..&H.a%|
000034d0  21 33 32 3d 21 62 25 3a  61 25 21 33 36 3d 62 25  |!32=!b%:a%!36=b%|
000034e0  21 34 3a f2 63 0d 26 70  3b cc 3a 57 61 25 3d 62  |!4:.c.&p;.:Wa%=b|
000034f0  25 21 31 32 3a 58 61 25  3d 62 25 21 31 36 3a e7  |%!12:Xa%=b%!16:.|
00003500  28 57 61 25 3c 3e 6d 25  84 58 61 25 3c 3e 32 30  |(Wa%<>m%.Xa%<>20|
00003510  29 80 28 46 25 3c 3e 34  84 57 61 25 3e 30 29 8c  |).(F%<>4.Wa%>0).|
00003520  0d 26 84 e4 77 25 3d b9  3a 61 25 21 31 36 3d 57  |.&..w%=.:a%!16=W|
00003530  61 25 3a 61 25 21 32 30  3d 58 61 25 3a 21 62 25  |a%:a%!20=Xa%:!b%|
00003540  3d 30 3a 62 25 21 31 36  3d 30 3a c8 99 22 57 69  |=0:b%!16=0:.."Wi|
00003550  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00003560  31 39 2c 71 25 2c 57 61  25 2c 58 61 25 b8 2c 2c  |19,q%,Wa%,Xa%.,,|
00003570  59 61 25 3a 61 25 21 31  32 3d 59 61 25 3a 24 28  |Ya%:a%!12=Ya%:$(|
00003580  61 25 2b 35 36 29 3d a4  6e 28 59 61 25 29 3a 24  |a%+56)=.n(Ya%):$|
00003590  28 61 25 2b 37 36 29 3d  c0 a4 67 28 59 61 25 2c  |(a%+76)=..g(Ya%,|
000035a0  57 61 25 2c a3 29 2c 32  37 29 3a 24 28 61 25 2b  |Wa%,.),27):$(a%+|
000035b0  31 31 36 29 3d c0 a4 6f  28 59 61 25 2c 57 61 25  |116)=..o(Ya%,Wa%|
000035c0  2c 58 61 25 29 2c 31 31  29 3a f2 66 61 28 57 61  |,Xa%),11):.fa(Wa|
000035d0  25 29 3a 61 25 21 31 30  34 3d 5a 61 25 3a 61 25  |%):a%!104=Za%:a%|
000035e0  21 31 30 38 3d 5f 61 25  3a 61 25 21 31 31 32 3d  |!108=_a%:a%!112=|
000035f0  60 61 25 3a e7 28 28 61  25 3f 32 29 83 31 36 29  |`a%:.((a%?2).16)|
00003600  3c 3e 30 8c 0d 27 06 1a  e7 a4 61 28 61 25 2b 37  |<>0..'....a(a%+7|
00003610  36 29 3d 22 49 63 6f 6e  20 62 61 72 22 8c 0d 27  |6)="Icon bar"..'|
00003620  10 21 61 25 3f 32 3d 28  61 25 3f 32 29 80 31 35  |.!a%?2=(a%?2).15|
00003630  3a 61 25 3f 33 3d 28 61  25 3f 33 29 84 31 32 0d  |:a%?3=(a%?3).12.|
00003640  27 2e 17 cc 3a e7 28 5a  61 25 80 28 31 3c 3c 32  |'...:.(Za%.(1<<2|
00003650  30 29 29 3d 30 8c 0d 27  38 29 61 25 3f 32 3d 28  |0))=0..'8)a%?2=(|
00003660  28 61 25 3f 32 29 80 31  35 29 2b 28 31 3c 3c 34  |(a%?2).15)+(1<<4|
00003670  29 3a 61 25 3f 33 3d 61  25 3f 33 80 ac 31 36 0d  |):a%?3=a%?3..16.|
00003680  27 56 2a cc 3a 61 25 3f  32 3d 28 28 61 25 3f 32  |'V*.:a%?2=((a%?2|
00003690  29 80 31 35 29 2b 28 32  3c 3c 34 29 3a 61 25 3f  |).15)+(2<<4):a%?|
000036a0  33 3d 61 25 3f 33 84 31  36 0d 27 74 05 cd 0d 27  |3=a%?3.16.'t...'|
000036b0  74 17 61 25 3f 33 3d 28  28 61 25 3f 33 29 80 32  |t.a%?3=((a%?3).2|
000036c0  34 33 29 2b 38 0d 27 88  05 cd 0d 27 88 11 cc 3a  |43)+8.'....'...:|
000036d0  e7 28 61 25 21 32 30 29  3c 30 8c 0d 27 9c 2b 61  |.(a%!20)<0..'.+a|
000036e0  25 3f 32 3d 28 28 61 25  3f 32 29 80 31 35 29 2b  |%?2=((a%?2).15)+|
000036f0  28 31 3c 3c 34 29 3a 61  25 3f 33 3d 28 61 25 3f  |(1<<4):a%?3=(a%?|
00003700  33 29 80 ac 31 32 0d 27  ba 05 cd 0d 27 ba 05 cd  |3)..12.'....'...|
00003710  0d 27 c4 21 e7 28 28 61  25 3f 32 29 80 31 35 29  |.'.!.((a%?2).15)|
00003720  3d 34 80 28 28 61 25 21  32 38 29 80 31 29 3d 30  |=4.((a%!28).1)=0|
00003730  8c 0d 27 ce 14 e7 28 28  61 25 21 32 38 29 80 31  |..'...((a%!28).1|
00003740  34 29 3d 38 8c 0d 27 d8  34 c8 99 22 57 69 6d 70  |4)=8..'.4.."Wimp|
00003750  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00003760  2c 2c 62 25 3a 61 25 21  33 32 3d 21 62 25 3a 61  |,,b%:a%!32=!b%:a|
00003770  25 21 33 36 3d 62 25 21  34 0d 28 00 7f cc 3a 21  |%!36=b%!4.(...:!|
00003780  62 25 3d 57 61 25 3a c8  99 22 57 69 6d 70 5f 47  |b%=Wa%:.."Wimp_G|
00003790  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000037a0  62 25 3a 61 25 21 33 32  3d 62 25 21 34 3a 61 25  |b%:a%!32=b%!4:a%|
000037b0  21 33 36 3d 62 25 21 38  3a 61 25 21 34 30 3d 62  |!36=b%!8:a%!40=b|
000037c0  25 21 31 32 3a 61 25 21  34 34 3d 62 25 21 31 36  |%!12:a%!44=b%!16|
000037d0  3a 61 25 21 34 38 3d 62  25 21 32 30 3a 61 25 21  |:a%!48=b%!20:a%!|
000037e0  35 32 3d 62 25 21 32 34  3a 61 25 21 32 38 3d 28  |52=b%!24:a%!28=(|
000037f0  61 25 21 32 38 29 84 36  0d 28 64 05 cd 0d 28 64  |a%!28).6.(d...(d|
00003800  05 cd 0d 28 6e 06 f2 63  0d 28 82 05 cd 0d 28 82  |...(n..c.(....(.|
00003810  05 cd 0d 28 8c 77 cc 3a  c8 99 22 57 69 6d 70 5f  |...(.w.:.."Wimp_|
00003820  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00003830  2c 62 25 3a 21 71 25 3d  32 30 3a 71 25 21 31 36  |,b%:!q%=20:q%!16|
00003840  3d 30 3a 71 25 21 31 32  3d 30 3a c8 99 22 57 69  |=0:q%!12=0:.."Wi|
00003850  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00003860  31 39 2c 71 25 2c 62 25  21 31 32 2c 62 25 21 31  |19,q%,b%!12,b%!1|
00003870  36 b8 2c 2c 6c 25 3a f2  65 28 a4 67 28 6c 25 2c  |6.,,l%:.e(.g(l%,|
00003880  62 25 21 31 32 2c b9 29  29 0d 28 c8 05 cd 0d 28  |b%!12,.)).(....(|
00003890  c8 05 e1 0d 28 d2 04 0d  28 e6 a7 dd f2 70 28 63  |....(...(....p(c|
000038a0  25 2c 56 25 29 3a c8 99  22 57 69 6d 70 5f 47 65  |%,V%):.."Wimp_Ge|
000038b0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 62  |tPointerInfo",,b|
000038c0  25 3a 61 62 25 3d 21 62  25 3a 62 62 25 3d 62 25  |%:ab%=!b%:bb%=b%|
000038d0  21 34 3a 63 62 25 3d 62  25 21 31 32 3a 64 62 25  |!4:cb%=b%!12:db%|
000038e0  3d 62 25 21 31 36 3a 21  71 25 3d 32 30 3a 71 25  |=b%!16:!q%=20:q%|
000038f0  21 31 32 3d 30 3a c8 99  22 57 69 6d 70 5f 53 65  |!12=0:.."Wimp_Se|
00003900  6e 64 4d 65 73 73 61 67  65 22 2c 31 39 2c 71 25  |ndMessage",19,q%|
00003910  2c 63 62 25 2c 64 62 25  b8 2c 2c 65 62 25 3a 21  |,cb%,db%.,,eb%:!|
00003920  62 25 3d 61 62 25 3a 62  25 21 34 3d 62 62 25 3a  |b%=ab%:b%!4=bb%:|
00003930  c8 8e 28 28 63 25 3f 32  29 81 31 36 29 ca 0d 29  |..((c%?2).16)..)|
00003940  18 25 c9 30 3a e7 a4 67  28 63 25 21 31 32 2c 63  |.%.0:..g(c%!12,c|
00003950  25 21 31 36 2c b9 29 3c  3e a4 61 28 63 25 2b 37  |%!16,.)<>.a(c%+7|
00003960  36 29 8c 0d 29 2c 8f f2  66 28 30 2c 22 54 68 65  |6)..),..f(0,"The|
00003970  20 73 70 65 63 69 66 69  65 64 20 77 69 6e 64 6f  | specified windo|
00003980  77 20 68 61 73 20 62 65  65 6e 20 64 65 6c 65 74  |w has been delet|
00003990  65 64 2e 20 43 68 61 6e  67 65 20 74 68 65 20 6b  |ed. Change the k|
000039a0  65 79 73 74 72 6f 6b 65  20 74 6f 20 27 41 6e 79  |eystroke to 'Any|
000039b0  20 77 69 6e 64 6f 77 27  20 6f 72 20 27 57 69 6e  | window' or 'Win|
000039c0  64 6f 77 20 61 74 20 70  6f 69 6e 74 65 72 27 2e  |dow at pointer'.|
000039d0  20 53 65 65 20 74 68 65  20 6d 61 6e 75 61 6c 20  | See the manual |
000039e0  66 6f 72 20 6d 6f 72 65  20 68 65 6c 70 2e 22 2c  |for more help.",|
000039f0  31 29 0d 29 40 46 cc 3a  e7 ac 4a 61 25 8c c8 99  |1).)@F.:..Ja%...|
00003a00  22 57 69 6d 70 5f 47 65  74 43 61 72 65 74 50 6f  |"Wimp_GetCaretPo|
00003a10  73 69 74 69 6f 6e 22 2c  2c 43 25 3a c8 99 22 57  |sition",,C%:.."W|
00003a20  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00003a30  74 69 6f 6e 22 2c 2d 31  0d 29 4a 31 f2 76 28 63  |tion",-1.)J1.v(c|
00003a40  25 21 31 32 2c 63 25 21  31 36 2c 63 25 21 32 30  |%!12,c%!16,c%!20|
00003a50  2c 56 25 2c 61 62 25 2c  62 62 25 29 3a e7 56 25  |,V%,ab%,bb%):.V%|
00003a60  3d 32 8c f2 77 28 63 25  29 0d 29 5e 08 73 25 3d  |=2..w(c%).)^.s%=|
00003a70  b9 0d 29 72 05 cd 0d 29  72 0f c9 31 3a e7 64 62  |..)r...)r..1:.db|
00003a80  25 3e 2d 32 8c 0d 29 86  3e e7 65 62 25 3d 63 25  |%>-2..).>.eb%=c%|
00003a90  21 31 32 84 28 56 25 3c  3e 32 80 63 25 21 32 30  |!12.(V%<>2.c%!20|
00003aa0  3c 2d 31 80 28 63 25 3f  33 80 38 29 3d 30 29 84  |<-1.(c%?3.8)=0).|
00003ab0  28 56 25 3d 2d 31 80 28  63 25 3f 33 80 38 29 3d  |(V%=-1.(c%?3.8)=|
00003ac0  30 29 8c 0d 29 90 0b e7  63 62 25 3e 30 8c 0d 29  |0)..)...cb%>0..)|
00003ad0  9a 7c 21 71 25 3d 63 62  25 3a c8 99 22 57 69 6d  |.|!q%=cb%:.."Wim|
00003ae0  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
00003af0  2c 2c 71 25 3a 66 62 25  3d b9 3a e7 28 28 28 71  |,,q%:fb%=.:.(((q|
00003b00  25 21 33 32 29 80 67 62  25 29 3c 3e 28 63 25 21  |%!32).gb%)<>(c%!|
00003b10  31 30 34 29 84 28 71 25  21 33 36 29 3c 3e 28 63  |104).(q%!36)<>(c|
00003b20  25 21 31 30 38 29 84 28  71 25 21 34 30 29 3c 3e  |%!108).(q%!40)<>|
00003b30  28 63 25 21 31 31 32 29  29 80 28 63 25 3f 33 80  |(c%!112)).(c%?3.|
00003b40  38 29 3d 38 8c 66 62 25  3d a3 0d 29 c2 15 e7 28  |8)=8.fb%=..)...(|
00003b50  28 71 25 21 36 30 29 80  32 35 36 29 3d 30 8c 0d  |(q%!60).256)=0..|
00003b60  29 cc 10 64 24 3d a4 61  28 71 25 2b 37 36 29 0d  |)..d$=.a(q%+76).|
00003b70  29 e0 16 cc 3a 64 24 3d  a4 65 28 65 62 25 2c 71  |)...:d$=.e(eb%,q|
00003b80  25 21 37 36 29 0d 29 f4  05 cd 0d 29 f4 28 e7 c0  |%!76).)....).(..|
00003b90  64 24 2c 32 37 29 3c 3e  a4 61 28 63 25 2b 37 36  |d$,27)<>.a(c%+76|
00003ba0  29 80 28 63 25 3f 33 80  34 29 3d 34 8c 66 62 25  |).(c%?3.4)=4.fb%|
00003bb0  3d a3 0d 29 fe 09 e7 66  62 25 8c 0d 2a 08 44 e7  |=..)...fb%..*.D.|
00003bc0  ac 4a 61 25 8c c8 99 22  57 69 6d 70 5f 47 65 74  |.Ja%..."Wimp_Get|
00003bd0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2c  |CaretPosition",,|
00003be0  43 25 3a c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |C%:.."Wimp_SetCa|
00003bf0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2d 31 0d  |retPosition",-1.|
00003c00  2a 12 23 e7 28 63 25 3f  33 80 31 36 29 3d 31 36  |*.#.(c%?3.16)=16|
00003c10  8c 68 62 25 3d 63 25 21  32 30 8b 68 62 25 3d 64  |.hb%=c%!20.hb%=d|
00003c20  62 25 0d 2a 1c 2b f2 76  28 65 62 25 2c 63 62 25  |b%.*.+.v(eb%,cb%|
00003c30  2c 68 62 25 2c 56 25 2c  61 62 25 2c 62 62 25 29  |,hb%,V%,ab%,bb%)|
00003c40  3a e7 56 25 3d 32 8c f2  77 28 63 25 29 0d 2a 30  |:.V%=2..w(c%).*0|
00003c50  08 73 25 3d b9 0d 2a 44  05 cd 0d 2a 44 05 cd 0d  |.s%=..*D...*D...|
00003c60  2a 4e 05 cd 0d 2a 58 05  cd 0d 2a 62 3f c9 32 2c  |*N...*X...*b?.2,|
00003c70  33 3a 57 25 3d a4 6b 3a  e3 69 62 25 3d 30 b8 32  |3:W%=.k:.ib%=0.2|
00003c80  35 32 88 34 3a 53 25 21  69 62 25 3d 57 25 3a e7  |52.4:S%!ib%=W%:.|
00003c90  57 25 3c 3e 2d 31 8c 57  25 3d a4 6c 28 57 25 29  |W%<>-1.W%=.l(W%)|
00003ca0  8b 6a 62 25 3d 69 62 25  0d 2a 94 85 ed 69 62 25  |.jb%=ib%.*...ib%|
00003cb0  3a 6b 62 25 3d a3 3a 69  62 25 3d 6a 62 25 3a c8  |:kb%=.:ib%=jb%:.|
00003cc0  95 69 62 25 3e 30 80 28  ac 6b 62 25 84 28 28 63  |.ib%>0.(.kb%.((c|
00003cd0  25 3f 32 29 81 31 36 29  3d 33 29 3a 57 25 3d 53  |%?2).16)=3):W%=S|
00003ce0  25 21 69 62 25 3a 21 71  25 3d 32 30 3a 71 25 21  |%!ib%:!q%=20:q%!|
00003cf0  31 32 3d 30 3a c8 99 22  58 57 69 6d 70 5f 53 65  |12=0:.."XWimp_Se|
00003d00  6e 64 4d 65 73 73 61 67  65 22 2c 31 39 2c 71 25  |ndMessage",19,q%|
00003d10  2c 57 25 2c 2d 31 b8 2c  2c 6c 62 25 3a e7 6c 62  |,W%,-1.,,lb%:.lb|
00003d20  25 3c 3e 30 80 6c 62 25  3c 3e 57 25 8c 0d 2a da  |%<>0.lb%<>W%..*.|
00003d30  79 21 71 25 3d 57 25 3a  c8 99 22 57 69 6d 70 5f  |y!q%=W%:.."Wimp_|
00003d40  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
00003d50  71 25 3a 66 62 25 3d b9  3a e7 28 28 71 25 21 33  |q%:fb%=.:.((q%!3|
00003d60  32 80 67 62 25 29 3c 3e  28 63 25 21 31 30 34 29  |2.gb%)<>(c%!104)|
00003d70  84 28 71 25 21 33 36 29  3c 3e 28 63 25 21 31 30  |.(q%!36)<>(c%!10|
00003d80  38 29 84 28 71 25 21 34  30 29 3c 3e 28 63 25 21  |8).(q%!40)<>(c%!|
00003d90  31 31 32 29 29 80 28 63  25 3f 33 80 38 29 3d 38  |112)).(c%?3.8)=8|
00003da0  8c 66 62 25 3d a3 0d 2b  02 34 e7 c0 a4 67 28 6c  |.fb%=..+.4...g(l|
00003db0  62 25 2c 57 25 2c a3 29  2c 32 37 29 3c 3e a4 61  |b%,W%,.),27)<>.a|
00003dc0  28 63 25 2b 37 36 29 80  28 28 63 25 3f 33 29 80  |(c%+76).((c%?3).|
00003dd0  34 29 3d 34 8c 66 62 25  3d a3 0d 2b 0c 46 e7 ac  |4)=4.fb%=..+.F..|
00003de0  28 6c 62 25 3d 63 25 21  31 32 84 28 56 25 3c 3e  |(lb%=c%!12.(V%<>|
00003df0  32 80 63 25 21 32 30 3c  2d 31 80 28 63 25 3f 33  |2.c%!20<-1.(c%?3|
00003e00  80 38 29 3d 30 29 84 28  56 25 3d 2d 31 80 28 63  |.8)=0).(V%=-1.(c|
00003e10  25 3f 33 80 38 29 3d 30  29 29 8c 66 62 25 3d a3  |%?3.8)=0)).fb%=.|
00003e20  0d 2b 16 09 e7 66 62 25  8c 0d 2b 20 44 e7 ac 4a  |.+...fb%..+ D..J|
00003e30  61 25 8c c8 99 22 57 69  6d 70 5f 47 65 74 43 61  |a%..."Wimp_GetCa|
00003e40  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 43 25  |retPosition",,C%|
00003e50  3a c8 99 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |:.."Wimp_SetCare|
00003e60  74 50 6f 73 69 74 69 6f  6e 22 2c 2d 31 0d 2b 2a  |tPosition",-1.+*|
00003e70  2c f2 76 28 6c 62 25 2c  57 25 2c 63 25 21 32 30  |,.v(lb%,W%,c%!20|
00003e80  2c 56 25 2c 61 62 25 2c  62 62 25 29 3a e7 56 25  |,V%,ab%,bb%):.V%|
00003e90  3d 32 8c f2 77 28 63 25  29 0d 2b 3e 0e 6b 62 25  |=2..w(c%).+>.kb%|
00003ea0  3d b9 3a 73 25 3d b9 0d  2b 5c 05 cd 0d 2b 5c 05  |=.:s%=..+\...+\.|
00003eb0  cd 0d 2b 66 0c 69 62 25  2d 3d 34 3a ce 0d 2b 84  |..+f.ib%-=4:..+.|
00003ec0  05 cb 0d 2b 84 05 e1 0d  2b 8e 04 0d 2b a2 18 dd  |...+....+...+...|
00003ed0  f2 77 28 63 25 29 3a c8  8e 28 63 25 3f 32 83 31  |.w(c%):..(c%?2.1|
00003ee0  36 29 ca 0d 2b ac 75 c9  31 3a e3 49 25 3d 30 b8  |6)..+.u.1:.I%=0.|
00003ef0  32 34 88 34 3a 62 25 21  49 25 3d 63 25 21 28 49  |24.4:b%!I%=c%!(I|
00003f00  25 2b 32 38 29 3a ed 49  25 3a 62 25 21 32 38 3d  |%+28):.I%:b%!28=|
00003f10  2d 31 3a c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |-1:.."Wimp_SendM|
00003f20  65 73 73 61 67 65 22 2c  39 2c 62 25 2c 63 25 21  |essage",9,b%,c%!|
00003f30  31 32 3a 73 25 3d b9 3a  f2 67 28 36 31 34 36 29  |12:s%=.:.g(6146)|
00003f40  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |:.."Wimp_CreateM|
00003f50  65 6e 75 22 2c 2c 2d 31  0d 2c 10 b9 c9 35 3a c8  |enu",,-1.,...5:.|
00003f60  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00003f70  75 22 2c 2c 2d 31 3a f2  67 28 36 31 34 36 29 3a  |u",,-1:.g(6146):|
00003f80  21 62 25 3d 36 34 3a 62  25 21 31 32 3d 30 3a 62  |!b%=64:b%!12=0:b|
00003f90  25 21 31 36 3d 32 36 32  33 33 36 3a 62 25 21 32  |%!16=262336:b%!2|
00003fa0  30 3d 31 3a 62 25 21 32  34 3d 61 62 25 2d 36 34  |0=1:b%!24=ab%-64|
00003fb0  3a 62 25 21 32 38 3d 62  62 25 2b 34 34 3a e3 49  |:b%!28=bb%+44:.I|
00003fc0  25 3d 30 b8 32 34 88 34  3a 62 25 21 28 49 25 2b  |%=0.24.4:b%!(I%+|
00003fd0  33 32 29 3d 63 25 21 28  49 25 2b 32 38 29 3a ed  |32)=c%!(I%+28):.|
00003fe0  49 25 3a 62 25 21 36 30  3d 2d 31 3a c8 99 22 57  |I%:b%!60=-1:.."W|
00003ff0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00004000  2c 31 37 2c 62 25 2c 63  25 21 31 32 3a 73 25 3d  |,17,b%,c%!12:s%=|
00004010  b9 0d 2c 7e 05 cb 0d 2c  7e 05 e1 0d 2c 88 04 0d  |..,~...,~...,...|
00004020  2c 9c 22 dd f2 76 28 6c  25 2c 66 25 2c 68 25 2c  |,."..v(l%,f%,h%,|
00004030  6d 62 25 2c 78 25 2c 79  25 29 3a e7 66 25 3e 30  |mb%,x%,y%):.f%>0|
00004040  8c 0d 2c a6 46 21 71 25  3d 66 25 3a c8 99 22 57  |..,.F!q%=f%:.."W|
00004050  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00004060  74 65 22 2c 2c 71 25 3a  e7 28 28 71 25 21 33 32  |te",,q%:.((q%!32|
00004070  29 80 28 31 3c 3c 33 31  29 29 3c 3e 30 8c 76 25  |).(1<<31))<>0.v%|
00004080  3d b9 8b 76 25 3d a3 0d  2c c4 6b 6e 62 25 3d 28  |=..v%=..,.knb%=(|
00004090  76 25 80 28 71 25 21 33  32 80 28 31 3c 3c 33 30  |v%.(q%!32.(1<<30|
000040a0  29 29 3c 3e 30 29 84 28  ac 76 25 80 28 71 25 21  |))<>0).(.v%.(q%!|
000040b0  33 32 80 28 31 3c 3c 33  29 29 3c 3e 30 29 3a 6f  |32.(1<<3))<>0):o|
000040c0  62 25 3d 28 76 25 80 28  71 25 21 33 32 80 28 31  |b%=(v%.(q%!32.(1|
000040d0  3c 3c 32 38 29 29 3c 3e  30 29 84 28 ac 76 25 80  |<<28))<>0).(.v%.|
000040e0  28 71 25 21 33 32 80 28  31 3c 3c 32 29 29 3c 3e  |(q%!32.(1<<2))<>|
000040f0  30 29 0d 2c e2 11 cc 3a  6e 62 25 3d a3 3a 6f 62  |0).,...:nb%=.:ob|
00004100  25 3d a3 0d 2c f6 05 cd  0d 2c f6 0c e7 6d 62 25  |%=..,....,...mb%|
00004110  3d 2d 31 8c 0d 2d 00 13  e7 28 28 63 25 21 32 38  |=-1..-...((c%!28|
00004120  29 80 36 29 3d 30 8c 0d  2d 0a 13 e7 28 28 63 25  |).6)=0..-...((c%|
00004130  21 32 38 29 80 38 29 3d  38 8c 0d 2d 14 13 e7 28  |!28).8)=8..-...(|
00004140  28 63 25 21 32 38 29 80  31 29 3d 30 8c 0d 2d 1e  |(c%!28).1)=0..-.|
00004150  12 c8 97 b8 63 25 21 33  32 2c 63 25 21 33 36 0d  |....c%!32,c%!36.|
00004160  2d 32 30 cc 3a c8 97 46  61 25 2c 47 61 25 2c 48  |-20.:..Fa%,Ga%,H|
00004170  61 25 3a c8 97 b8 46 61  25 2b 63 25 21 33 32 2c  |a%:...Fa%+c%!32,|
00004180  47 61 25 2b 63 25 21 33  36 3a 67 61 25 3d b9 0d  |Ga%+c%!36:ga%=..|
00004190  2d 5a 05 cd 0d 2d 5a 05  cd 0d 2d 64 11 cc 3a e7  |-Z...-Z...-d..:.|
000041a0  66 25 3e 30 80 6c 25 3e  30 8c 0d 2d 78 36 21 71  |f%>0.l%>0..-x6!q|
000041b0  25 3d 66 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |%=f%:.."Wimp_Get|
000041c0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
000041d0  3a e7 28 28 63 25 21 32  38 29 80 31 29 3d 30 8c  |:.((c%!28).1)=0.|
000041e0  0d 2d 96 13 e7 28 28 63  25 21 32 38 29 80 32 29  |.-...((c%!28).2)|
000041f0  3d 32 8c 0d 2d a0 13 e7  28 28 63 25 21 32 38 29  |=2..-...((c%!28)|
00004200  80 38 29 3d 38 8c 0d 2d  aa 4a c8 97 46 61 25 2c  |.8)=8..-.J..Fa%,|
00004210  47 61 25 2c 48 61 25 3a  70 62 25 3d 28 63 25 21  |Ga%,Ha%:pb%=(c%!|
00004220  33 32 29 2d 28 71 25 21  34 29 3a 71 62 25 3d 28  |32)-(q%!4):qb%=(|
00004230  63 25 21 33 36 29 2d 28  71 25 21 38 29 3a c8 97  |c%!36)-(q%!8):..|
00004240  b8 46 61 25 2b 70 62 25  2c 47 61 25 2b 71 62 25  |.Fa%+pb%,Ga%+qb%|
00004250  0d 2d dc 05 cd 0d 2d dc  31 71 25 21 34 3d 63 25  |.-....-.1q%!4=c%|
00004260  21 33 32 3a 71 25 21 38  3d 63 25 21 33 36 3a 71  |!32:q%!8=c%!36:q|
00004270  25 21 31 32 3d 63 25 21  34 30 3a 71 25 21 31 36  |%!12=c%!40:q%!16|
00004280  3d 63 25 21 34 34 0d 2e  0e 23 cc 3a e7 28 28 63  |=c%!44...#.:.((c|
00004290  25 21 32 38 29 80 38 29  3d 38 8c c8 97 b8 63 25  |%!28).8)=8....c%|
000042a0  21 33 32 2c 63 25 21 33  36 0d 2e 18 05 cd 0d 2e  |!32,c%!36.......|
000042b0  22 13 e7 28 28 63 25 21  32 38 29 80 34 29 3d 34  |"..((c%!28).4)=4|
000042c0  8c 0d 2e 2c 14 e7 6e 62  25 8c 71 25 21 32 30 3d  |...,..nb%.q%!20=|
000042d0  63 25 21 34 38 0d 2e 36  14 e7 6f 62 25 8c 71 25  |c%!48..6..ob%.q%|
000042e0  21 32 34 3d 63 25 21 35  32 0d 2e 40 05 cd 0d 2e  |!24=c%!52..@....|
000042f0  4a 15 cc 3a e7 28 28 63  25 21 32 38 29 80 32 29  |J..:.((c%!28).2)|
00004300  3d 32 8c 0d 2e 5e 47 71  25 21 34 3d 71 25 21 34  |=2...^Gq%!4=q%!4|
00004310  2b 63 25 21 33 32 3a 71  25 21 38 3d 71 25 21 38  |+c%!32:q%!8=q%!8|
00004320  2b 63 25 21 33 36 3a 71  25 21 31 32 3d 71 25 21  |+c%!36:q%!12=q%!|
00004330  31 32 2b 63 25 21 34 30  3a 71 25 21 31 36 3d 71  |12+c%!40:q%!16=q|
00004340  25 21 31 36 2b 63 25 21  34 34 0d 2e 90 05 cd 0d  |%!16+c%!44......|
00004350  2e 90 13 e7 28 28 63 25  21 32 38 29 80 34 29 3d  |....((c%!28).4)=|
00004360  34 8c 0d 2e 9a 1a e7 6e  62 25 8c 71 25 21 32 30  |4......nb%.q%!20|
00004370  3d 71 25 21 32 30 2b 63  25 21 34 38 0d 2e a4 1a  |=q%!20+c%!48....|
00004380  e7 6f 62 25 8c 71 25 21  32 34 3d 71 25 21 32 34  |.ob%.q%!24=q%!24|
00004390  2b 63 25 21 35 32 0d 2e  ae 05 cd 0d 2e b8 13 e7  |+c%!52..........|
000043a0  28 28 63 25 21 32 38 29  80 38 29 3d 38 8c 0d 2e  |((c%!28).8)=8...|
000043b0  c2 38 c8 97 46 61 25 2c  47 61 25 2c 48 61 25 3a  |.8..Fa%,Ga%,Ha%:|
000043c0  70 62 25 3d 63 25 21 33  32 3a 71 62 25 3d 63 25  |pb%=c%!32:qb%=c%|
000043d0  21 33 36 3a c8 97 b8 46  61 25 2b 70 62 25 2c 47  |!36:...Fa%+pb%,G|
000043e0  61 25 2b 71 62 25 0d 2e  f4 05 cd 0d 2e f4 09 67  |a%+qb%.........g|
000043f0  61 25 3d b9 0d 2f 08 05  cd 0d 2f 08 20 c8 99 22  |a%=../..../. .."|
00004400  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00004410  22 2c 32 2c 71 25 2c 6c  25 0d 2f 1c 05 cd 0d 2f  |",2,q%,l%./..../|
00004420  1c 05 cd 0d 2f 26 08 73  25 3d b9 0d 2f 3a 0d cc  |..../&.s%=../:..|
00004430  3a e7 68 25 3c 2d 31 8c  0d 2f 44 09 c8 8e 68 25  |:.h%<-1../D...h%|
00004440  ca 0d 2f 4e 5b c9 2d 32  3a 21 71 25 3d 66 25 3a  |../N[.-2:!q%=f%:|
00004450  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00004460  77 53 74 61 74 65 22 2c  2c 71 25 3a e7 28 76 25  |wState",,q%:.(v%|
00004470  80 28 71 25 21 33 32 80  28 31 3c 3c 32 34 29 29  |.(q%!32.(1<<24))|
00004480  3c 3e 30 29 84 28 ac 76  25 80 28 71 25 21 33 32  |<>0).(.v%.(q%!32|
00004490  80 28 31 3c 3c 37 29 29  3d 30 29 8c 0d 2f 76 2e  |.(1<<7))=0)../v.|
000044a0  71 25 21 32 38 3d 2d 32  3a c8 99 22 57 69 6d 70  |q%!28=-2:.."Wimp|
000044b0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 32 2c  |_SendMessage",2,|
000044c0  71 25 2c 6c 25 3a 73 25  3d b9 0d 2f 9e 05 cd 0d  |q%,l%:s%=../....|
000044d0  2f 9e 5b c9 2d 33 3a 21  71 25 3d 66 25 3a c8 99  |/.[.-3:!q%=f%:..|
000044e0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000044f0  74 61 74 65 22 2c 2c 71  25 3a e7 28 76 25 80 28  |tate",,q%:.(v%.(|
00004500  71 25 21 33 32 80 28 31  3c 3c 32 35 29 29 3c 3e  |q%!32.(1<<25))<>|
00004510  30 29 84 28 ac 76 25 80  28 71 25 21 33 32 80 28  |0).(.v%.(q%!32.(|
00004520  31 3c 3c 37 29 29 3d 30  29 8c 0d 2f c6 25 c8 99  |1<<7))=0)../.%..|
00004530  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00004540  65 22 2c 33 2c 71 25 2c  6c 25 3a 73 25 3d b9 0d  |e",3,q%,l%:s%=..|
00004550  2f e4 05 cd 0d 2f e4 18  c9 2d 34 2c 2d 39 3a e7  |/..../...-4,-9:.|
00004560  28 6d 62 25 80 32 35 35  29 3d 34 8c 0d 2f f8 53  |(mb%.255)=4../.S|
00004570  21 71 25 3d 66 25 3a c8  99 22 57 69 6d 70 5f 47  |!q%=f%:.."Wimp_G|
00004580  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00004590  71 25 3a e7 28 76 25 80  28 71 25 21 33 32 80 28  |q%:.(v%.(q%!32.(|
000045a0  31 3c 3c 32 36 29 29 3c  3e 30 29 84 28 ac 76 25  |1<<26))<>0).(.v%|
000045b0  80 28 71 25 21 33 32 80  31 29 3c 3e 30 29 8c 0d  |.(q%!32.1)<>0)..|
000045c0  30 16 2e 71 25 21 32 38  3d 2d 31 3a c8 99 22 57  |0..q%!28=-1:.."W|
000045d0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000045e0  2c 32 2c 71 25 2c 6c 25  3a 73 25 3d b9 0d 30 3e  |,2,q%,l%:s%=..0>|
000045f0  05 cd 0d 30 3e 05 cd 0d  30 48 41 c9 2d 35 3a 21  |...0>...0HA.-5:!|
00004600  71 25 3d 66 25 3a c8 99  22 57 69 6d 70 5f 47 65  |q%=f%:.."Wimp_Ge|
00004610  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00004620  25 3a e7 28 28 71 25 21  33 32 29 80 28 31 3c 3c  |%:.((q%!32).(1<<|
00004630  31 38 29 29 3c 3e 30 8c  0d 30 70 19 71 25 21 38  |18))<>0..0p.q%!8|
00004640  3d 71 25 21 31 36 3a 71  25 21 31 32 3d 71 25 21  |=q%!16:q%!12=q%!|
00004650  34 0d 30 8e 1b cc 3a 71  25 21 38 3d 2d 34 30 39  |4.0...:q%!8=-409|
00004660  36 3a 71 25 21 31 32 3d  34 30 39 36 0d 30 ac 05  |6:q%!12=4096.0..|
00004670  cd 0d 30 ac 30 e7 28 76  25 80 28 71 25 21 33 32  |..0.0.(v%.(q%!32|
00004680  80 28 31 3c 3c 32 37 29  29 3c 3e 30 29 84 28 ac  |.(1<<27))<>0).(.|
00004690  76 25 80 28 71 25 21 33  32 80 31 29 3c 3e 30 29  |v%.(q%!32.1)<>0)|
000046a0  8c 0d 30 b6 25 c8 99 22  57 69 6d 70 5f 53 65 6e  |..0.%.."Wimp_Sen|
000046b0  64 4d 65 73 73 61 67 65  22 2c 32 2c 71 25 2c 6c  |dMessage",2,q%,l|
000046c0  25 3a 73 25 3d b9 0d 30  d4 05 cd 0d 30 d4 30 c9  |%:s%=..0....0.0.|
000046d0  2d 36 3a 21 71 25 3d 66  25 3a c8 99 22 57 69 6d  |-6:!q%=f%:.."Wim|
000046e0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000046f0  22 2c 2c 71 25 3a e7 6f  62 25 8c 0d 30 fc 3c 71  |",,q%:.ob%..0.<q|
00004700  25 21 32 34 3d 28 71 25  21 32 34 29 2b 33 32 3a  |%!24=(q%!24)+32:|
00004710  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00004720  61 67 65 22 2c 32 2c 71  25 2c 6c 25 3a 67 61 25  |age",2,q%,l%:ga%|
00004730  3d b9 3a 73 25 3d b9 0d  31 2e 05 cd 0d 31 2e 30  |=.:s%=..1....1.0|
00004740  c9 2d 38 3a 21 71 25 3d  66 25 3a c8 99 22 57 69  |.-8:!q%=f%:.."Wi|
00004750  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00004760  65 22 2c 2c 71 25 3a e7  6f 62 25 8c 0d 31 56 3c  |e",,q%:.ob%..1V<|
00004770  71 25 21 32 34 3d 28 71  25 21 32 34 29 2d 33 32  |q%!24=(q%!24)-32|
00004780  3a c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |:.."Wimp_SendMes|
00004790  73 61 67 65 22 2c 32 2c  71 25 2c 6c 25 3a 67 61  |sage",2,q%,l%:ga|
000047a0  25 3d b9 3a 73 25 3d b9  0d 31 88 05 cd 0d 31 88  |%=.:s%=..1....1.|
000047b0  31 c9 2d 31 30 3a 21 71  25 3d 66 25 3a c8 99 22  |1.-10:!q%=f%:.."|
000047c0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000047d0  61 74 65 22 2c 2c 71 25  3a e7 6e 62 25 8c 0d 31  |ate",,q%:.nb%..1|
000047e0  b0 3c 71 25 21 32 30 3d  28 71 25 21 32 30 29 2d  |.<q%!20=(q%!20)-|
000047f0  33 32 3a c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |32:.."Wimp_SendM|
00004800  65 73 73 61 67 65 22 2c  32 2c 71 25 2c 6c 25 3a  |essage",2,q%,l%:|
00004810  67 61 25 3d b9 3a 73 25  3d b9 0d 31 e2 05 cd 0d  |ga%=.:s%=..1....|
00004820  31 e2 31 c9 2d 31 32 3a  21 71 25 3d 66 25 3a c8  |1.1.-12:!q%=f%:.|
00004830  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00004840  53 74 61 74 65 22 2c 2c  71 25 3a e7 6e 62 25 8c  |State",,q%:.nb%.|
00004850  0d 32 0a 3c 71 25 21 32  30 3d 28 71 25 21 32 30  |.2.<q%!20=(q%!20|
00004860  29 2b 33 32 3a c8 99 22  57 69 6d 70 5f 53 65 6e  |)+32:.."Wimp_Sen|
00004870  64 4d 65 73 73 61 67 65  22 2c 32 2c 71 25 2c 6c  |dMessage",2,q%,l|
00004880  25 3a 67 61 25 3d b9 3a  73 25 3d b9 0d 32 3c 05  |%:ga%=.:s%=..2<.|
00004890  cd 0d 32 3c 05 cb 0d 32  46 14 cc 3a 72 62 25 3d  |..2<...2F..:rb%=|
000048a0  2d 31 3a e7 68 25 3d 2d  31 8c 0d 32 64 3c 21 71  |-1:.h%=-1..2d<!q|
000048b0  25 3d 66 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |%=f%:.."Wimp_Get|
000048c0  57 69 6e 64 6f 77 49 6e  66 6f 22 2c 2c 71 25 3a  |WindowInfo",,q%:|
000048d0  72 62 25 3d 28 71 25 21  36 34 29 3e 3e 31 32 3a  |rb%=(q%!64)>>12:|
000048e0  73 62 25 3d 2d 31 0d 32  96 67 cc 3a 21 62 25 3d  |sb%=-1.2.g.:!b%=|
000048f0  66 25 3a 62 25 21 34 3d  68 25 3a 62 25 21 32 34  |f%:b%!4=h%:b%!24|
00004900  3d 30 3a c8 99 22 58 57  69 6d 70 5f 47 65 74 49  |=0:.."XWimp_GetI|
00004910  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a e7 62  |conState",,b%:.b|
00004920  25 21 32 34 3c 3e 30 8c  72 62 25 3d 28 62 25 21  |%!24<>0.rb%=(b%!|
00004930  32 34 3e 3e 31 32 29 80  31 35 3a 73 62 25 3d 28  |24>>12).15:sb%=(|
00004940  62 25 21 32 34 3e 3e 31  36 29 80 33 31 0d 32 c8  |b%!24>>16).31.2.|
00004950  05 cd 0d 32 d2 0c e7 72  62 25 3d 2d 31 8c 0d 32  |...2...rb%=-1..2|
00004960  dc 8e f2 66 28 30 2c 22  54 68 65 20 73 70 65 63  |...f(0,"The spec|
00004970  69 66 69 63 20 77 69 6e  64 6f 77 20 68 61 73 20  |ific window has |
00004980  62 65 65 6e 20 64 65 6c  65 74 65 64 2e 20 43 68  |been deleted. Ch|
00004990  61 6e 67 65 20 74 68 65  20 6b 65 79 73 74 72 6f  |ange the keystro|
000049a0  6b 65 20 74 6f 20 27 41  6e 79 20 77 69 6e 64 6f  |ke to 'Any windo|
000049b0  77 27 20 6f 72 20 27 57  69 6e 64 6f 77 20 61 74  |w' or 'Window at|
000049c0  20 70 6f 69 6e 74 65 72  27 2e 20 53 65 65 20 74  | pointer'. See t|
000049d0  68 65 20 6d 61 6e 75 61  6c 20 66 6f 72 20 6d 6f  |he manual for mo|
000049e0  72 65 20 68 65 6c 70 2e  22 2c 31 29 0d 32 f0 46  |re help.",1).2.F|
000049f0  cc 3a 74 62 25 3d 6d 62  25 80 32 35 35 3a 75 62  |.:tb%=mb%.255:ub|
00004a00  25 3d 6d 62 25 3e 32 35  35 3a 21 62 25 3d 78 25  |%=mb%>255:!b%=x%|
00004a10  3a 62 25 21 34 3d 79 25  3a 62 25 21 31 32 3d 66  |:b%!4=y%:b%!12=f|
00004a20  25 3a 62 25 21 31 36 3d  68 25 3a e7 74 62 25 3d  |%:b%!16=h%:.tb%=|
00004a30  32 8c 0d 33 36 27 62 25  21 38 3d 32 3a c8 99 22  |2..36'b%!8=2:.."|
00004a40  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00004a50  22 2c 36 2c 62 25 2c 6c  25 0d 33 54 0c cc 3a c8  |",6,b%,l%.3T..:.|
00004a60  8e 72 62 25 ca 0d 33 5e  0c c9 30 2c 31 32 2c 31  |.rb%..3^..0,12,1|
00004a70  33 0d 33 72 48 c9 31 2c  32 2c 33 2c 34 2c 36 2c  |3.3rH.1,2,3,4,6,|
00004a80  39 3a 62 25 21 38 3d 74  62 25 3a c8 99 22 57 69  |9:b%!8=tb%:.."Wi|
00004a90  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00004aa0  36 2c 62 25 2c 6c 25 3a  73 25 3d b9 3a e7 72 62  |6,b%,l%:s%=.:.rb|
00004ab0  25 3d 32 8c 67 61 25 3d  b9 0d 33 9a 0e c9 35 2c  |%=2.ga%=..3...5,|
00004ac0  38 3a e7 75 62 25 8c 0d  33 ae 2e 62 25 21 38 3d  |8:.ub%..3..b%!8=|
00004ad0  74 62 25 3a c8 99 22 57  69 6d 70 5f 53 65 6e 64  |tb%:.."Wimp_Send|
00004ae0  4d 65 73 73 61 67 65 22  2c 36 2c 62 25 2c 6c 25  |Message",6,b%,l%|
00004af0  3a 73 25 3d b9 0d 33 d6  14 cc 3a e7 74 62 25 3d  |:s%=..3...:.tb%=|
00004b00  34 80 73 62 25 3c 3e 30  8c 0d 33 e0 15 f2 61 28  |4.sb%<>0..3...a(|
00004b10  66 25 2c 68 25 2c 31 3c  3c 32 31 2c b9 29 0d 33  |f%,h%,1<<21,.).3|
00004b20  f4 19 cc 3a 48 61 25 3d  a4 70 28 66 25 2c 68 25  |...:Ha%=.p(f%,h%|
00004b30  2c 31 3c 3c 32 31 29 0d  34 08 05 cd 0d 34 08 05  |,1<<21).4....4..|
00004b40  cd 0d 34 12 43 c9 37 2c  31 31 3a 62 25 21 38 3d  |..4.C.7,11:b%!8=|
00004b50  74 62 25 3a c8 99 22 57  69 6d 70 5f 53 65 6e 64  |tb%:.."Wimp_Send|
00004b60  4d 65 73 73 61 67 65 22  2c 36 2c 62 25 2c 6c 25  |Message",6,b%,l%|
00004b70  3a 73 25 3d b9 3a e7 74  62 25 3d 34 80 73 62 25  |:s%=.:.tb%=4.sb%|
00004b80  3c 3e 30 8c 0d 34 44 15  f2 61 28 66 25 2c 68 25  |<>0..4D..a(f%,h%|
00004b90  2c 31 3c 3c 32 31 2c b9  29 0d 34 58 19 cc 3a 48  |,1<<21,.).4X..:H|
00004ba0  61 25 3d a4 70 28 66 25  2c 68 25 2c 31 3c 3c 32  |a%=.p(f%,h%,1<<2|
00004bb0  31 29 0d 34 6c 05 cd 0d  34 6c 0d c9 31 30 3a e7  |1).4l...4l..10:.|
00004bc0  75 62 25 8c 0d 34 80 0c  62 25 21 38 3d 74 62 25  |ub%..4..b%!8=tb%|
00004bd0  0d 34 94 12 cc 3a 62 25  21 38 3d 74 62 25 2a 32  |.4...:b%!8=tb%*2|
00004be0  35 36 0d 34 a8 05 cd 0d  34 a8 25 c8 99 22 57 69  |56.4....4.%.."Wi|
00004bf0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00004c00  36 2c 62 25 2c 6c 25 3a  73 25 3d b9 0d 34 c6 64  |6,b%,l%:s%=..4.d|
00004c10  c9 31 34 3a 62 25 21 38  3d 74 62 25 3a c8 99 22  |.14:b%!8=tb%:.."|
00004c20  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00004c30  22 2c 36 2c 62 25 2c 6c  25 3a 73 25 3d b9 3a c8  |",6,b%,l%:s%=.:.|
00004c40  99 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |."Wimp_SetCaretP|
00004c50  6f 73 69 74 69 6f 6e 22  2c 66 25 2c 68 25 2c 2d  |osition",f%,h%,-|
00004c60  31 2c 2d 31 2c ac 28 31  3c 3c 32 35 29 2c 2d 31  |1,-1,.(1<<25),-1|
00004c70  0d 34 f8 3e c9 31 35 3a  c8 99 22 57 69 6d 70 5f  |.4.>.15:.."Wimp_|
00004c80  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00004c90  22 2c 66 25 2c 68 25 2c  2d 31 2c 2d 31 2c ac 28  |",f%,h%,-1,-1,.(|
00004ca0  31 3c 3c 32 35 29 2c 2d  31 3a 73 25 3d b9 0d 35  |1<<25),-1:s%=..5|
00004cb0  16 05 cb 0d 35 16 05 cd  0d 35 20 05 cd 0d 35 2a  |....5....5 ...5*|
00004cc0  05 cd 0d 35 34 05 cd 0d  35 3e 05 e1 0d 35 48 04  |...54...5>...5H.|
00004cd0  0d 35 5c 1e dd f2 68 28  64 25 2c 76 62 25 29 3a  |.5\...h(d%,vb%):|
00004ce0  e7 28 64 25 3f 33 80 31  32 38 29 3d 30 8c 0d 35  |.(d%?3.128)=0..5|
00004cf0  66 2b 77 62 25 3d 2d 28  28 64 25 21 34 29 3c 3e  |f+wb%=-((d%!4)<>|
00004d00  2d 31 29 2d 32 2a 28 28  64 25 21 38 29 3c 3e 2d  |-1)-2*((d%!8)<>-|
00004d10  31 29 3a c8 8e 77 62 25  ca 0d 35 7a 1c c9 30 3a  |1):..wb%..5z..0:|
00004d20  21 61 25 28 3f 64 25 2c  28 28 64 25 3f 31 29 80  |!a%(?d%,((d%?1).|
00004d30  37 29 29 3d 30 0d 35 98  2f c9 31 3a 21 61 25 28  |7))=0.5./.1:!a%(|
00004d40  3f 64 25 2c 28 28 64 25  3f 31 29 80 37 29 29 3d  |?d%,((d%?1).7))=|
00004d50  64 25 21 34 3a 21 28 38  2b 67 25 2b 64 25 21 34  |d%!4:!(8+g%+d%!4|
00004d60  29 3d 2d 31 0d 35 b6 16  c9 32 3a 21 28 34 2b 67  |)=-1.5...2:!(4+g|
00004d70  25 2b 64 25 21 38 29 3d  2d 31 0d 35 ca 2a c9 33  |%+d%!8)=-1.5.*.3|
00004d80  3a 21 28 38 2b 67 25 2b  64 25 21 34 29 3d 64 25  |:!(8+g%+d%!4)=d%|
00004d90  21 38 3a 21 28 34 2b 67  25 2b 64 25 21 38 29 3d  |!8:!(4+g%+d%!8)=|
00004da0  64 25 21 34 0d 35 e8 05  cb 0d 35 e8 1b 64 25 3f  |d%!4.5....5..d%?|
00004db0  33 3d 64 25 3f 33 84 31  32 38 3a e7 64 25 21 38  |3=d%?3.128:.d%!8|
00004dc0  3d 2d 31 8c 0d 35 fc 06  f2 69 0d 36 10 24 cc 3a  |=-1..5...i.6.$.:|
00004dd0  e7 64 25 21 34 3d 2d 31  8c 61 25 3d 67 25 2b 64  |.d%!4=-1.a%=g%+d|
00004de0  25 21 38 8b 61 25 3d 67  25 2b 64 25 21 34 0d 36  |%!8.a%=g%+d%!4.6|
00004df0  1a 05 cd 0d 36 24 1f e7  28 61 25 3f 33 80 31 32  |....6$..(a%?3.12|
00004e00  38 29 3d 30 8c 54 25 3d  61 25 21 38 8b 54 25 3d  |8)=0.T%=a%!8.T%=|
00004e10  2d 31 0d 36 2e 86 e3 49  25 3d 34 b8 6b 25 2d 34  |-1.6...I%=4.k%-4|
00004e20  88 34 3a 64 25 21 49 25  3d 2d 31 3a ed 49 25 3a  |.4:d%!I%=-1:.I%:|
00004e30  64 25 3f 32 3d 32 35 35  3a c8 95 28 3f 28 67 25  |d%?2=255:..(?(g%|
00004e40  2b 48 25 2d 28 32 2a 6b  25 29 2b 33 29 80 31 32  |+H%-(2*k%)+3).12|
00004e50  38 29 3d 31 32 38 3a 21  28 67 25 2b 48 25 2d 28  |8)=128:!(g%+H%-(|
00004e60  32 2a 6b 25 29 29 3d 2d  31 3a 48 25 2d 3d 6b 25  |2*k%))=-1:H%-=k%|
00004e70  3a ce 3a e7 61 25 21 38  3d 2d 31 80 28 28 61 25  |:.:.a%!8=-1.((a%|
00004e80  3f 33 29 80 31 32 38 29  3d 30 8c 61 25 3f 33 3d  |?3).128)=0.a%?3=|
00004e90  61 25 3f 33 80 ac 33 32  0d 36 88 0b e7 76 62 25  |a%?3..32.6...vb%|
00004ea0  8c f2 63 0d 36 92 05 cd  0d 36 9c 05 e1 0d 36 a6  |..c.6....6....6.|
00004eb0  04 0d 36 ba 44 dd f2 63  61 28 78 62 25 2c 6b 24  |..6.D..ca(xb%,k$|
00004ec0  29 3a f2 78 28 78 62 25  2c 6b 24 29 3a e3 64 25  |):.x(xb%,k$):.d%|
00004ed0  3d 67 25 2b 32 35 38 38  b8 67 25 2b 48 25 2d 6b  |=g%+2588.g%+H%-k|
00004ee0  25 88 6b 25 3a e7 28 28  64 25 3f 33 29 80 31 32  |%.k%:.((d%?3).12|
00004ef0  38 29 3d 30 8c 0d 36 d8  30 e7 a4 61 28 64 25 2b  |8)=0..6.0..a(d%+|
00004f00  35 36 29 3d 6b 24 80 28  28 64 25 3f 32 29 83 31  |56)=k$.((d%?2).1|
00004f10  36 29 3c 3e 32 80 28 28  64 25 3f 32 29 83 31 36  |6)<>2.((d%?2).16|
00004f20  29 3c 3e 33 8c 0d 36 e2  30 64 25 21 31 32 3d 78  |)<>3..6.0d%!12=x|
00004f30  62 25 3a e7 28 28 64 25  3f 32 29 81 31 36 29 3d  |b%:.((d%?2).16)=|
00004f40  30 8c 64 25 21 31 36 3d  a4 71 28 a4 61 28 64 25  |0.d%!16=.q(.a(d%|
00004f50  2b 37 36 29 29 0d 36 f6  22 e7 64 25 21 31 36 3d  |+76)).6.".d%!16=|
00004f60  2d 32 8c 64 25 21 32 30  3d a4 72 28 a4 61 28 64  |-2.d%!20=.r(.a(d|
00004f70  25 2b 31 31 36 29 29 0d  37 00 05 cd 0d 37 0a 05  |%+116)).7....7..|
00004f80  cd 0d 37 14 09 ed 64 25  3a e1 0d 37 28 04 0d 37  |..7...d%:..7(..7|
00004f90  3c 5e dd f2 64 61 28 78  62 25 29 3a e3 64 25 3d  |<^..da(xb%):.d%=|
00004fa0  67 25 2b 32 35 38 38 b8  67 25 2b 48 25 2d 6b 25  |g%+2588.g%+H%-k%|
00004fb0  88 6b 25 3a e7 28 28 64  25 3f 33 29 80 31 32 38  |.k%:.((d%?3).128|
00004fc0  29 3d 30 80 28 28 64 25  3f 32 29 83 31 36 29 3c  |)=0.((d%?2).16)<|
00004fd0  3e 32 80 28 28 64 25 3f  32 29 83 31 36 29 3c 3e  |>2.((d%?2).16)<>|
00004fe0  33 80 64 25 21 31 32 3d  78 62 25 8c 0d 37 50 24  |3.d%!12=xb%..7P$|
00004ff0  64 25 21 31 32 3d 2d 31  3a e7 28 28 64 25 3f 32  |d%!12=-1:.((d%?2|
00005000  29 81 31 36 29 3d 30 8c  64 25 21 31 36 3d 2d 31  |).16)=0.d%!16=-1|
00005010  0d 37 64 05 cd 0d 37 6e  30 ed 64 25 3a e3 49 25  |.7d...7n0.d%:.I%|
00005020  3d 30 b8 79 62 25 3a e7  62 25 28 49 25 29 3d 78  |=0.yb%:.b%(I%)=x|
00005030  62 25 8c 62 25 28 49 25  29 3d 30 3a 62 24 28 49  |b%.b%(I%)=0:b$(I|
00005040  25 29 3d 22 22 0d 37 8c  09 ed 49 25 3a e1 0d 37  |%)="".7...I%:..7|
00005050  a0 04 0d 37 b4 1c dd a4  62 3a 7a 62 25 3d a3 3a  |...7....b:zb%=.:|
00005060  e7 28 61 25 3f 33 80 31  32 38 29 3d 30 8c 0d 37  |.(a%?3.128)=0..7|
00005070  c8 17 e7 28 28 28 61 25  3f 32 29 83 31 36 29 80  |...(((a%?2).16).|
00005080  32 29 3d 32 8c 0d 37 d2  17 e7 a4 61 28 61 25 2b  |2)=2..7....a(a%+|
00005090  31 32 29 3d 22 22 8c 7a  62 25 3d b9 0d 37 dc 15  |12)="".zb%=..7..|
000050a0  cc 3a e7 28 28 61 25 3f  32 29 83 31 36 29 3d 34  |.:.((a%?2).16)=4|
000050b0  8c 0d 37 f0 19 e7 28 28  61 25 21 32 38 29 80 31  |..7...((a%!28).1|
000050c0  34 29 3d 30 8c 7a 62 25  3d b9 0d 37 fa 38 e7 28  |4)=0.zb%=..7.8.(|
000050d0  28 61 25 21 32 38 29 80  31 29 3d 31 80 61 25 21  |(a%!28).1)=1.a%!|
000050e0  33 32 3d 30 80 61 25 21  33 36 3d 30 80 61 25 21  |32=0.a%!36=0.a%!|
000050f0  34 38 3d 30 80 61 25 21  35 32 3d 30 8c 7a 62 25  |48=0.a%!52=0.zb%|
00005100  3d b9 0d 38 04 1a cc 3a  e7 a4 61 28 61 25 2b 35  |=..8...:..a(a%+5|
00005110  36 29 3d 22 2d 22 8c 7a  62 25 3d b9 0d 38 18 05  |6)="-".zb%=..8..|
00005120  cd 0d 38 22 05 cd 0d 38  2c 05 cd 0d 38 36 08 3d  |..8"...8,...86.=|
00005130  7a 62 25 0d 38 54 13 dd  f2 62 61 3a e7 71 25 21  |zb%.8T...ba:.q%!|
00005140  32 30 3d 74 25 8c 0d 38  5e 20 61 24 3d a4 61 28  |20=t%..8^ a$=.a(|
00005150  71 25 2b 34 34 29 3a e7  28 28 61 25 3f 32 29 83  |q%+44):.((a%?2).|
00005160  31 36 29 3d 32 8c 0d 38  72 18 e7 61 24 3c 3e 22  |16)=2..8r..a$<>"|
00005170  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 8c 0d 38  |<Wimp$Scrap>"..8|
00005180  7c 0c c8 8e 71 25 21 32  34 ca 0d 38 86 2c c9 38  ||...q%!24..8.,.8|
00005190  3a 24 28 61 25 2b 31 32  29 3d 22 52 75 6e 20 22  |:$(a%+12)="Run "|
000051a0  2b 61 24 3a f2 62 28 74  25 2c 31 2c a4 61 28 61  |+a$:.b(t%,1,.a(a|
000051b0  25 2b 31 32 29 29 0d 38  ae 0f c9 39 3a c8 8e 71  |%+12)).8...9:..q|
000051c0  25 21 34 30 ca 0d 38 b8  3e c9 34 30 39 36 2c 38  |%!40..8.>.4096,8|
000051d0  31 39 32 3a 24 28 61 25  2b 31 32 29 3d 22 46 69  |192:$(a%+12)="Fi|
000051e0  6c 65 72 5f 4f 70 65 6e  44 69 72 20 22 2b 61 24  |ler_OpenDir "+a$|
000051f0  3a f2 62 28 74 25 2c 31  2c a4 61 28 61 25 2b 31  |:.b(t%,1,.a(a%+1|
00005200  32 29 29 0d 38 e0 2f c9  33 35 34 38 3a 24 28 61  |2)).8./.3548:$(a|
00005210  25 2b 31 32 29 3d 22 52  75 6e 20 22 2b 61 24 3a  |%+12)="Run "+a$:|
00005220  f2 62 28 74 25 2c 31 2c  a4 61 28 61 25 2b 31 32  |.b(t%,1,.a(a%+12|
00005230  29 29 0d 38 fe 67 7f 3a  6f 25 3d 30 3a c8 95 a7  |)).8.g.:o%=0:...|
00005240  61 24 2c 22 2e 22 2c 6f  25 2b 31 29 3c 3e 30 3a  |a$,".",o%+1)<>0:|
00005250  6f 25 3d a7 61 24 2c 22  2e 22 2c 6f 25 2b 31 29  |o%=.a$,".",o%+1)|
00005260  3a ce 3a 24 28 61 25 2b  31 32 29 3d 22 46 69 6c  |:.:$(a%+12)="Fil|
00005270  65 72 5f 4f 70 65 6e 44  69 72 20 22 2b c0 61 24  |er_OpenDir "+.a$|
00005280  2c 6f 25 2d 31 29 3a f2  62 28 74 25 2c 31 2c a4  |,o%-1):.b(t%,1,.|
00005290  61 28 61 25 2b 31 32 29  29 0d 39 44 05 cb 0d 39  |a(a%+12)).9D...9|
000052a0  44 21 c9 31 30 3a e7 71  25 21 34 30 3c 3e 34 30  |D!.10:.q%!40<>40|
000052b0  39 36 80 71 25 21 34 30  3c 3e 38 31 39 32 8c 0d  |96.q%!40<>8192..|
000052c0  39 58 2a 24 28 61 25 2b  31 32 29 3d 22 4c 6f 61  |9X*$(a%+12)="Loa|
000052d0  64 20 22 2b 61 24 3a f2  62 28 74 25 2c 31 2c a4  |d "+a$:.b(t%,1,.|
000052e0  61 28 61 25 2b 31 32 29  29 0d 39 76 05 cd 0d 39  |a(a%+12)).9v...9|
000052f0  76 0c 7f 3a f2 65 28 61  24 29 0d 39 8a 05 cb 0d  |v..:.e(a$).9....|
00005300  39 8a d0 f2 61 28 65 25  2c 31 33 2c 28 31 3c 3c  |9...a(e%,13,(1<<|
00005310  32 32 29 2c 28 28 28 61  25 3f 33 29 80 31 32 38  |22),(((a%?3).128|
00005320  29 3e 30 29 84 a4 62 29  3a f2 61 28 65 25 2c 31  |)>0)..b):.a(e%,1|
00005330  38 2c 31 3c 3c 32 31 2c  6e 25 80 28 28 61 25 3f  |8,1<<21,n%.((a%?|
00005340  33 29 80 31 32 38 29 3d  30 29 3a f2 61 28 65 25  |3).128)=0):.a(e%|
00005350  2c 31 38 2c 31 3c 3c 32  32 2c 28 28 28 61 25 3f  |,18,1<<22,(((a%?|
00005360  33 29 80 31 32 38 29 3e  30 29 84 a4 62 29 3a f2  |3).128)>0)..b):.|
00005370  61 28 65 25 2c 32 30 2c  31 3c 3c 32 31 2c 28 28  |a(e%,20,1<<21,((|
00005380  61 25 3f 33 29 80 31 36  30 29 3d 33 32 29 3a f2  |a%?3).160)=32):.|
00005390  61 28 65 25 2c 32 30 2c  31 3c 3c 32 32 2c 54 25  |a(e%,20,1<<22,T%|
000053a0  3d 2d 31 84 6e 25 84 a4  62 29 3a e7 28 28 28 61  |=-1.n%..b):.(((a|
000053b0  25 3f 33 29 80 31 32 38  29 3e 30 29 84 a4 62 84  |%?3).128)>0)..b.|
000053c0  6e 25 8c 4b 61 25 3d 30  8b 4b 61 25 3d 31 35 0d  |n%.Ka%=0.Ka%=15.|
000053d0  39 c6 11 f2 6c 28 65 25  2c 31 34 2c 4b 61 25 29  |9...l(e%,14,Ka%)|
000053e0  0d 39 da 05 cd 0d 39 da  72 cc 3a 66 24 3d a4 63  |.9....9.r.:f$=.c|
000053f0  28 74 25 2c 31 29 3a 41  62 25 3d 31 31 35 2d a9  |(t%,1):Ab%=115-.|
00005400  28 66 24 29 3a c8 99 22  4f 53 5f 46 69 6c 65 22  |(f$):.."OS_File"|
00005410  2c 35 2c 61 24 b8 42 62  25 2c 2c 43 62 25 3a 44  |,5,a$.Bb%,,Cb%:D|
00005420  62 25 3d 28 43 62 25 80  26 46 46 46 30 30 29 3e  |b%=(Cb%.&FFF00)>|
00005430  3e 38 3a e7 42 62 25 3d  31 80 28 44 62 25 3d 34  |>8:.Bb%=1.(Db%=4|
00005440  30 39 35 84 44 62 25 3d  34 30 39 34 84 44 62 25  |095.Db%=4094.Db%|
00005450  3d 34 30 37 35 29 8c 0d  3a 16 2e c8 99 22 4f 53  |=4075)..:...."OS|
00005460  5f 46 69 6e 64 22 2c 36  34 2c 61 24 b8 45 62 25  |_Find",64,a$.Eb%|
00005470  3a e7 a2 23 45 62 25 3c  41 62 25 8c 41 62 25 3d  |:..#Eb%<Ab%.Ab%=|
00005480  a2 23 45 62 25 0d 3a 2a  2f 6f 25 3d 62 25 3a c8  |.#Eb%.:*/o%=b%:.|
00005490  95 41 62 25 3e 30 3a c8  99 22 4f 53 5f 42 47 65  |.Ab%>0:.."OS_BGe|
000054a0  74 22 2c 2c 45 62 25 b8  46 62 25 3a e7 46 62 25  |t",,Eb%.Fb%:.Fb%|
000054b0  3c 33 32 8c 0d 3a 52 12  e7 46 62 25 3d 31 30 8c  |<32..:R..Fb%=10.|
000054c0  46 62 25 3d 31 33 0d 3a  5c 33 3f 6f 25 3d 97 28  |Fb%=13.:\3?o%=.(|
000054d0  22 7c 22 29 3a 6f 25 2b  3d 31 3a 41 62 25 2d 3d  |"|"):o%+=1:Ab%-=|
000054e0  31 3a 3f 6f 25 3d 46 62  25 2b 36 34 3a 6f 25 2b  |1:?o%=Fb%+64:o%+|
000054f0  3d 31 3a 41 62 25 2d 3d  31 0d 3a 7a 1a cc 3a 3f  |=1:Ab%-=1.:z..:?|
00005500  6f 25 3d 46 62 25 3a 6f  25 2b 3d 31 3a 41 62 25  |o%=Fb%:o%+=1:Ab%|
00005510  2d 3d 31 0d 3a 98 05 cd  0d 3a 98 28 ce 3a c8 99  |-=1.:....:.(.:..|
00005520  22 4f 53 5f 46 69 6e 64  22 2c 30 2c 45 62 25 3a  |"OS_Find",0,Eb%:|
00005530  3f 6f 25 3d 30 3a f2 65  28 a4 61 28 62 25 29 29  |?o%=0:.e(.a(b%))|
00005540  0d 3a ca 0c cc 3a f2 65  28 61 24 29 0d 3a de 05  |.:...:.e(a$).:..|
00005550  cd 0d 3a de 05 cd 0d 3a  e8 3e 71 25 21 31 32 3d  |..:....:.>q%!12=|
00005560  71 25 21 38 3a 71 25 21  31 36 3d 34 3a 21 71 25  |q%!8:q%!16=4:!q%|
00005570  3d 32 35 36 3a c8 99 22  57 69 6d 70 5f 53 65 6e  |=256:.."Wimp_Sen|
00005580  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
00005590  71 25 21 34 0d 3b 1a 12  cc 3a e7 71 25 21 34 30  |q%!4.;...:.q%!40|
000055a0  3d 34 30 39 33 8c 0d 3b  24 73 61 24 3d a4 61 28  |=4093..;$sa$=.a(|
000055b0  71 25 2b 34 34 29 3a 71  25 21 31 32 3d 71 25 21  |q%+44):q%!12=q%!|
000055c0  38 3a 71 25 21 31 36 3d  34 3a 21 71 25 3d 32 35  |8:q%!16=4:!q%=25|
000055d0  36 3a c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |6:.."Wimp_SendMe|
000055e0  73 73 61 67 65 22 2c 31  37 2c 71 25 2c 71 25 21  |ssage",17,q%,q%!|
000055f0  34 3a f2 43 28 61 24 29  3a d4 31 2c 2d 31 35 2c  |4:.C(a$):.1,-15,|
00005600  31 30 30 2c 35 3a e7 61  24 3d 22 3c 57 69 6d 70  |100,5:.a$="<Wimp|
00005610  24 53 63 72 61 70 3e 22  8c 0d 3b 74 20 c8 99 22  |$Scrap>"..;t .."|
00005620  4f 53 5f 46 69 6c 65 22  2c 36 2c 22 3c 57 69 6d  |OS_File",6,"<Wim|
00005630  70 24 53 63 72 61 70 3e  22 0d 3b 88 0b cc 3a 6c  |p$Scrap>".;...:l|
00005640  24 3d 61 24 0d 3b 9c 05  cd 0d 3b 9c 05 cd 0d 3b  |$=a$.;....;....;|
00005650  a6 05 cd 0d 3b b0 05 e1  0d 3b ba 04 0d 3b ce 38  |....;....;...;.8|
00005660  dd f2 6e 28 47 62 25 2c  48 62 25 29 3a c8 99 22  |..n(Gb%,Hb%):.."|
00005670  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00005680  6e 66 6f 22 2c 2c 71 25  3a e7 71 25 21 31 32 3c  |nfo",,q%:.q%!12<|
00005690  3e 41 25 8c 0d 3b e2 89  71 25 21 32 30 3d 71 25  |>A%..;..q%!20=q%|
000056a0  21 31 32 3a 71 25 21 32  34 3d 71 25 21 31 36 3a  |!12:q%!24=q%!16:|
000056b0  71 25 21 32 38 3d 21 71  25 3a 71 25 21 33 32 3d  |q%!28=!q%:q%!32=|
000056c0  71 25 21 34 3a 71 25 21  33 36 3d 47 62 25 3a 71  |q%!4:q%!36=Gb%:q|
000056d0  25 21 34 30 3d 48 62 25  3a 65 24 3d a4 63 28 41  |%!40=Hb%:e$=.c(A|
000056e0  25 2c 31 29 3a c8 95 a7  65 24 2c 22 2e 22 29 3e  |%,1):...e$,".")>|
000056f0  30 3a 65 24 3d c2 65 24  2c a9 28 65 24 29 2d a7  |0:e$=.e$,.(e$)-.|
00005700  65 24 2c 22 2e 22 29 29  3a ce 3a e7 a9 28 65 24  |e$,".")):.:..(e$|
00005710  29 3e 30 80 a9 28 65 24  29 3c 31 31 8c 0d 3c 50  |)>0..(e$)<11..<P|
00005720  4e 24 28 71 25 2b 34 34  29 3d 65 24 3a 71 25 21  |N$(q%+44)=e$:q%!|
00005730  31 32 3d 30 3a 21 71 25  3d 32 35 36 3a 71 25 21  |12=0:!q%=256:q%!|
00005740  31 36 3d 31 3a c8 99 22  57 69 6d 70 5f 53 65 6e  |16=1:.."Wimp_Sen|
00005750  64 4d 65 73 73 61 67 65  22 2c 31 38 2c 71 25 2c  |dMessage",18,q%,|
00005760  71 25 21 32 30 2c 71 25  21 32 34 0d 3c 8c 3b cc  |q%!20,q%!24.<.;.|
00005770  3a f2 66 28 30 2c 22 50  6c 65 61 73 65 20 65 6e  |:.f(0,"Please en|
00005780  74 65 72 20 61 20 66 69  6c 65 6e 61 6d 65 20 6f  |ter a filename o|
00005790  66 20 75 70 20 74 6f 20  31 30 20 6c 65 74 74 65  |f up to 10 lette|
000057a0  72 73 22 2c 31 29 0d 3c  a0 05 cd 0d 3c a0 05 cd  |rs",1).<....<...|
000057b0  0d 3c aa 05 e1 0d 3c b4  04 0d 3c c8 31 dd f2 4a  |.<....<...<.1..J|
000057c0  28 61 24 29 3a c8 99 22  4f 53 5f 46 69 6c 65 22  |(a$):.."OS_File"|
000057d0  2c 35 2c 61 24 b8 2c 2c  2c 2c 2c 49 62 25 3a e7  |,5,a$.,,,,,Ib%:.|
000057e0  28 49 62 25 80 38 29 3d  38 8c 0d 3c dc 29 f2 66  |(Ib%.8)=8..<.).f|
000057f0  28 30 2c 22 54 68 65 20  66 69 6c 65 20 27 22 2b  |(0,"The file '"+|
00005800  61 24 2b 22 27 20 69 73  20 6c 6f 63 6b 65 64 22  |a$+"' is locked"|
00005810  2c 31 29 0d 3c f0 a7 cc  3a c8 99 22 4f 53 5f 46  |,1).<...:.."OS_F|
00005820  69 6e 64 22 2c 31 32 38  2c 61 24 b8 4a 62 25 3a  |ind",128,a$.Jb%:|
00005830  f2 72 28 22 21 4b 65 79  73 44 65 6d 6f 20 56 32  |.r("!KeysDemo V2|
00005840  2e 30 30 2c 20 44 65 6d  6f 6e 73 74 72 61 74 69  |.00, Demonstrati|
00005850  6f 6e 20 76 65 72 73 69  6f 6e 20 42 65 74 61 22  |on version Beta"|
00005860  2c 4a 62 25 29 3a f2 72  28 22 4c 69 73 74 20 6f  |,Jb%):.r("List o|
00005870  66 20 6b 65 79 73 74 72  6f 6b 65 73 22 2c 4a 62  |f keystrokes",Jb|
00005880  25 29 3a c8 99 22 4f 53  5f 42 50 75 74 22 2c 31  |%):.."OS_BPut",1|
00005890  30 2c 4a 62 25 3a e3 4b  62 25 3d 30 b8 37 3a e3  |0,Jb%:.Kb%=0.7:.|
000058a0  4c 62 25 3d 30 b8 39 36  3a e7 61 25 28 4c 62 25  |Lb%=0.96:.a%(Lb%|
000058b0  2c 4b 62 25 29 3c 3e 2d  31 8c 0d 3d 36 15 e7 21  |,Kb%)<>-1..=6..!|
000058c0  61 25 28 4c 62 25 2c 4b  62 25 29 3c 3e 30 8c 0d  |a%(Lb%,Kb%)<>0..|
000058d0  3d 40 41 58 25 3d 61 25  28 4c 62 25 2c 4b 62 25  |=@AX%=a%(Lb%,Kb%|
000058e0  29 2d 34 3a 46 24 3d 22  22 3a f5 3a 58 25 3d 67  |)-4:F$="":.:X%=g|
000058f0  25 2b 58 25 21 34 3a 63  24 3d 22 22 3a e7 28 4b  |%+X%!4:c$="":.(K|
00005900  62 25 80 34 29 8c 63 24  2b 3d 22 41 6c 74 2b 22  |b%.4).c$+="Alt+"|
00005910  0d 3d 7c 18 e7 28 4b 62  25 80 32 29 8c 63 24 2b  |.=|..(Kb%.2).c$+|
00005920  3d 22 43 74 72 6c 2b 22  0d 3d 86 19 e7 28 4b 62  |="Ctrl+".=...(Kb|
00005930  25 80 31 29 8c 63 24 2b  3d 22 53 68 69 66 74 2b  |%.1).c$+="Shift+|
00005940  22 0d 3d 90 49 63 24 2b  3d 61 24 28 4c 62 25 29  |".=.Ic$+=a$(Lb%)|
00005950  2b 22 3a 20 22 3a 63 24  2b 3d a4 61 28 58 25 2b  |+": ":c$+=.a(X%+|
00005960  31 32 38 29 3a e7 ac 28  28 28 58 25 3f 32 29 83  |128):..(((X%?2).|
00005970  31 36 29 3d 30 80 58 25  21 32 30 3c 30 80 28 58  |16)=0.X%!20<0.(X|
00005980  25 3f 33 80 38 29 3d 30  29 8c 0d 3d ae 28 e7 28  |%?3.8)=0)..=.(.(|
00005990  28 58 25 3f 32 29 80 32  29 3d 30 8c 63 24 2b 3d  |(X%?2).2)=0.c$+=|
000059a0  22 20 28 22 2b a4 61 28  58 25 2b 35 36 29 2b 22  |" ("+.a(X%+56)+"|
000059b0  29 22 0d 3d b8 05 cd 0d  3d c2 1b e7 28 58 25 3f  |)".=....=...(X%?|
000059c0  33 80 33 32 29 3d 30 8c  f2 72 28 63 24 2c 4a 62  |3.32)=0..r(c$,Jb|
000059d0  25 29 0d 3d cc 0c fd 58  25 21 34 3d 2d 31 0d 3d  |%).=...X%!4=-1.=|
000059e0  e0 05 cd 0d 3d e0 05 cd  0d 3d ea 36 ed 4c 62 25  |....=....=.6.Lb%|
000059f0  3a ed 4b 62 25 3a c8 99  22 4f 53 5f 46 69 6e 64  |:.Kb%:.."OS_Find|
00005a00  22 2c 30 2c 4a 62 25 3a  c8 99 22 4f 53 5f 46 69  |",0,Jb%:.."OS_Fi|
00005a10  6c 65 22 2c 31 38 2c 61  24 2c 34 30 39 35 0d 3e  |le",18,a$,4095.>|
00005a20  1c 05 cd 0d 3e 1c 05 e1  0d 3e 26 04 0d 3e 3a 4c  |....>....>&..>:L|
00005a30  dd f2 75 28 61 24 29 3a  f2 66 28 30 2c 22 53 61  |..u(a$):.f(0,"Sa|
00005a40  76 69 6e 67 20 69 73 20  6e 6f 74 20 70 6f 73 73  |ving is not poss|
00005a50  69 62 6c 65 20 6f 6e 20  74 68 69 73 20 64 65 6d  |ible on this dem|
00005a60  6f 6e 73 74 72 61 74 69  6f 6e 20 76 65 72 73 69  |onstration versi|
00005a70  6f 6e 22 2c 31 29 3a e1  0d 3e 4e 04 0d 3e 62 4c  |on",1):..>N..>bL|
00005a80  dd f2 43 28 61 24 29 3a  f2 66 28 30 2c 22 4c 6f  |..C(a$):.f(0,"Lo|
00005a90  61 64 69 6e 67 20 69 73  20 6e 6f 74 20 70 6f 73  |ading is not pos|
00005aa0  73 69 62 6c 65 20 6f 6e  20 74 68 69 73 20 64 65  |sible on this de|
00005ab0  6d 6f 73 74 72 61 74 69  6f 6e 20 76 65 72 73 69  |mostration versi|
00005ac0  6f 6e 22 2c 31 29 3a e1  0d 3e 76 04 0d 3e 8a 5a  |on",1):..>v..>.Z|
00005ad0  dd f2 67 61 3a e3 4d 62  25 3d 30 b8 36 33 3a 71  |..ga:.Mb%=0.63:q|
00005ae0  25 21 31 32 3d 30 3a c8  99 22 58 57 69 6d 70 5f  |%!12=0:.."XWimp_|
00005af0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 39 2c  |SendMessage",19,|
00005b00  71 25 2c 2d 32 2c 4d 62  25 b8 2c 2c 6c 25 3a e7  |q%,-2,Mb%.,,l%:.|
00005b10  6c 25 3c 3e 2d 32 80 6c  25 3c 3e 30 8c f2 78 28  |l%<>-2.l%<>0..x(|
00005b20  6c 25 2c 22 22 29 0d 3e  a8 62 ed 4d 62 25 3a 4e  |l%,"").>.b.Mb%:N|
00005b30  62 25 3d a4 6b 3a c8 95  4e 62 25 3c 3e 2d 31 3a  |b%=.k:..Nb%<>-1:|
00005b40  71 25 21 31 32 3d 30 3a  c8 99 22 58 57 69 6d 70  |q%!12=0:.."XWimp|
00005b50  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 39  |_SendMessage",19|
00005b60  2c 71 25 2c 4e 62 25 2c  2d 31 b8 2c 2c 6c 25 3a  |,q%,Nb%,-1.,,l%:|
00005b70  e7 6c 25 3c 3e 4e 62 25  80 6c 25 3c 3e 30 8c f2  |.l%<>Nb%.l%<>0..|
00005b80  78 28 6c 25 2c 22 22 29  0d 3e da 13 4e 62 25 3d  |x(l%,"").>..Nb%=|
00005b90  a4 6c 28 4e 62 25 29 3a  ce 3a e1 0d 3e f8 04 0d  |.l(Nb%):.:..>...|
00005ba0  3f 0c 3b dd f2 78 28 78  62 25 2c 6b 24 29 3a 4f  |?.;..x(xb%,k$):O|
00005bb0  62 25 3d 2d 31 3a 50 62  25 3d 2d 31 3a e3 4a 25  |b%=-1:Pb%=-1:.J%|
00005bc0  3d 79 62 25 b8 30 88 2d  31 3a e7 62 25 28 4a 25  |=yb%.0.-1:.b%(J%|
00005bd0  29 3d 30 8c 4f 62 25 3d  4a 25 0d 3f 2a 16 e7 62  |)=0.Ob%=J%.?*..b|
00005be0  25 28 4a 25 29 3d 78 62  25 8c 50 62 25 3d 4a 25  |%(J%)=xb%.Pb%=J%|
00005bf0  0d 3f 34 10 ed 4a 25 3a  e7 50 62 25 3d 2d 31 8c  |.?4..J%:.Pb%=-1.|
00005c00  0d 3f 48 21 62 25 28 4f  62 25 29 3d 78 62 25 3a  |.?H!b%(Ob%)=xb%:|
00005c10  e7 6b 24 3d 22 22 8c 6b  24 3d a4 6e 28 78 62 25  |.k$="".k$=.n(xb%|
00005c20  29 0d 3f 5c 0e 62 24 28  4f 62 25 29 3d 6b 24 0d  |).?\.b$(Ob%)=k$.|
00005c30  3f 70 05 cd 0d 3f 70 05  e1 0d 3f 7a 04 0d 3f 8e  |?p...?p...?z..?.|
00005c40  67 dd f2 49 3a 24 67 25  3d 22 4b 65 79 73 74 72  |g..I:$g%="Keystr|
00005c50  6f 6b 65 73 22 2b 7a 24  3a e3 51 62 25 3d 31 32  |okes"+z$:.Qb%=12|
00005c60  b8 32 35 38 34 88 34 3a  67 25 21 51 62 25 3d 30  |.2584.4:g%!Qb%=0|
00005c70  3a ed 51 62 25 3a e3 49  25 3d 32 35 38 38 b8 32  |:.Qb%:.I%=2588.2|
00005c80  35 38 38 2b 6b 25 2d 34  88 34 3a 67 25 21 49 25  |588+k%-4.4:g%!I%|
00005c90  3d 2d 31 3a ed 49 25 3a  48 25 3d 32 35 38 38 2b  |=-1:.I%:H%=2588+|
00005ca0  6b 25 3a e1 0d 3f e8 04  0d 3f fc a6 dd f2 47 28  |k%:..?...?....G(|
00005cb0  59 25 29 3a 52 62 25 3d  70 25 3a e3 49 25 3d 30  |Y%):Rb%=p%:.I%=0|
00005cc0  b8 6b 25 2d 34 88 34 3a  70 25 21 49 25 3d 59 25  |.k%-4.4:p%!I%=Y%|
00005cd0  21 49 25 3a ed 49 25 3a  59 25 3d 67 25 2b 59 25  |!I%:.I%:Y%=g%+Y%|
00005ce0  21 34 3a 52 62 25 2b 3d  6b 25 3a c8 95 59 25 3e  |!4:Rb%+=k%:..Y%>|
00005cf0  67 25 80 28 59 25 3f 33  80 33 32 29 3c 3e 30 80  |g%.(Y%?3.32)<>0.|
00005d00  52 62 25 3c 70 25 2b 6b  25 2a 31 30 3a e3 49 25  |Rb%<p%+k%*10:.I%|
00005d10  3d 30 b8 6b 25 2d 34 88  34 3a 52 62 25 21 49 25  |=0.k%-4.4:Rb%!I%|
00005d20  3d 59 25 21 49 25 3a ed  49 25 3a 59 25 3d 67 25  |=Y%!I%:.I%:Y%=g%|
00005d30  2b 59 25 21 34 3a 52 62  25 2b 3d 6b 25 3a ce 3a  |+Y%!4:Rb%+=k%:.:|
00005d40  e7 52 62 25 3c 70 25 2b  6b 25 2a 31 30 8c 0d 40  |.Rb%<p%+k%*10..@|
00005d50  88 20 e3 49 25 3d 52 62  25 b8 70 25 2b 6b 25 2a  |. .I%=Rb%.p%+k%*|
00005d60  39 88 6b 25 3a 21 49 25  3d 30 3a ed 49 25 0d 40  |9.k%:!I%=0:.I%.@|
00005d70  b0 05 cd 0d 40 b0 05 e1  0d 40 ba 04 0d 40 ce 42  |....@....@...@.B|
00005d80  dd f2 46 28 59 25 29 3a  e3 49 25 3d 30 b8 6b 25  |..F(Y%):.I%=0.k%|
00005d90  2d 34 88 34 3a 70 25 21  49 25 3d 59 25 21 49 25  |-4.4:p%!I%=Y%!I%|
00005da0  3a ed 49 25 3a 70 25 21  6b 25 3d 30 3a 70 25 3f  |:.I%:p%!k%=0:p%?|
00005db0  33 3d 28 70 25 3f 33 29  80 ac 33 32 3a e1 0d 41  |3=(p%?3)..32:..A|
00005dc0  0a 04 0d 41 1e 9e dd f2  60 28 53 62 25 29 3a 54  |...A....`(Sb%):T|
00005dd0  62 25 3d 53 62 25 21 34  3a 55 62 25 3d 28 3f 28  |b%=Sb%!4:Ub%=(?(|
00005de0  67 25 2b 54 62 25 2b 33  29 80 33 32 29 3a f2 68  |g%+Tb%+3).32):.h|
00005df0  28 53 62 25 2c a3 29 3a  53 62 25 3d 67 25 2b 54  |(Sb%,.):Sb%=g%+T|
00005e00  62 25 3a 56 62 25 3d 31  3a c8 95 54 62 25 3e 30  |b%:Vb%=1:..Tb%>0|
00005e10  80 56 62 25 3c 31 30 80  55 62 25 3c 3e 30 3a 54  |.Vb%<10.Ub%<>0:T|
00005e20  62 25 3d 53 62 25 21 34  3a 55 62 25 3d 28 3f 28  |b%=Sb%!4:Ub%=(?(|
00005e30  67 25 2b 54 62 25 2b 33  29 80 33 32 29 3a f2 68  |g%+Tb%+3).32):.h|
00005e40  28 53 62 25 2c a3 29 3a  53 62 25 3d 67 25 2b 54  |(Sb%,.):Sb%=g%+T|
00005e50  62 25 3a 56 62 25 2b 3d  31 3a ce 3a f2 63 3a e1  |b%:Vb%+=1:.:.c:.|
00005e60  0d 41 aa 04 0d 41 be 1a  dd f2 4e 28 64 25 29 3a  |.A...A....N(d%):|
00005e70  6b 62 25 3d b9 3a e7 64  25 3c 3e 2d 31 8c 0d 41  |kb%=.:.d%<>-1..A|
00005e80  d2 24 e7 28 64 25 3f 33  80 36 34 29 3c 3e 30 80  |.$.(d%?3.64)<>0.|
00005e90  28 64 25 3f 33 80 31 32  38 29 3d 30 8c 6b 62 25  |(d%?3.128)=0.kb%|
00005ea0  3d a3 0d 41 dc 05 cd 0d  41 e6 09 e7 6b 62 25 8c  |=..A....A...kb%.|
00005eb0  0d 41 f0 2b 57 62 25 3d  61 25 3a 61 25 3d 64 25  |.A.+Wb%=a%:a%=d%|
00005ec0  3a 54 61 25 3d b9 3a f2  44 28 42 25 2c 72 25 2c  |:Ta%=.:.D(B%,r%,|
00005ed0  70 25 3f 32 29 3a e7 54  61 25 8c 0d 42 22 3c 61  |p%?2):.Ta%..B"<a|
00005ee0  25 3d 57 62 25 3a 64 25  3f 33 3d 70 25 3f 33 3a  |%=Wb%:d%?3=p%?3:|
00005ef0  64 25 3f 32 3d 70 25 3f  32 3a e3 49 25 3d 31 32  |d%?2=p%?2:.I%=12|
00005f00  b8 6b 25 2d 34 88 34 3a  64 25 21 49 25 3d 70 25  |.k%-4.4:d%!I%=p%|
00005f10  21 49 25 3a ed 49 25 0d  42 68 05 cd 0d 42 68 28  |!I%:.I%.Bh...Bh(|
00005f20  cc 3a f2 66 28 30 2c 22  54 68 69 73 20 6b 65 79  |.:.f(0,"This key|
00005f30  73 74 72 6f 6b 65 20 69  73 20 6c 6f 63 6b 65 64  |stroke is locked|
00005f40  22 2c 31 29 0d 42 86 05  cd 0d 42 86 05 e1 0d 42  |",1).B....B....B|
00005f50  90 04 0d 42 a4 52 dd f2  48 28 64 25 29 3a 58 62  |...B.R..H(d%):Xb|
00005f60  25 3d 6b 25 3a c8 95 21  28 58 62 25 2b 70 25 2b  |%=k%:..!(Xb%+p%+|
00005f70  34 29 3c 3e 2d 31 80 58  62 25 3c 28 6b 25 2a 31  |4)<>-1.Xb%<(k%*1|
00005f80  30 29 3a 58 62 25 2b 3d  6b 25 3a ce 3a e7 28 67  |0):Xb%+=k%:.:.(g|
00005f90  25 2b 48 25 2b 58 62 25  2b 6b 25 29 3e 67 25 2b  |%+H%+Xb%+k%)>g%+|
00005fa0  53 61 25 8c 0d 42 d6 2a  f2 66 28 30 2c 22 53 6f  |Sa%..B.*.f(0,"So|
00005fb0  72 72 79 2c 20 49 20 68  61 76 65 20 6e 6f 20 6d  |rry, I have no m|
00005fc0  6f 72 65 20 6d 65 6d 6f  72 79 22 2c 31 29 0d 42  |ore memory",1).B|
00005fd0  ea 3d cc 3a f2 4e 28 64  25 29 3a 59 62 25 3d 64  |.=.:.N(d%):Yb%=d|
00005fe0  25 3a 5a 62 25 3d 70 25  3a 70 25 2b 3d 6b 25 3a  |%:Zb%=p%:p%+=k%:|
00005ff0  e7 64 25 21 34 3d 2d 31  8c 5f 62 25 3d a4 66 8b  |.d%!4=-1._b%=.f.|
00006000  5f 62 25 3d 67 25 2b 64  25 21 34 0d 43 1c 45 c8  |_b%=g%+d%!4.C.E.|
00006010  95 70 25 3c 5a 62 25 2b  6b 25 2a 31 30 80 28 70  |.p%<Zb%+k%*10.(p|
00006020  25 3f 33 80 33 32 29 3c  3e 30 3a e7 28 5f 62 25  |%?3.32)<>0:.(_b%|
00006030  3f 33 80 31 32 38 29 3d  30 8c f2 79 28 5f 62 25  |?3.128)=0..y(_b%|
00006040  29 8b f2 4e 28 5f 62 25  29 3a 5f 62 25 3d a4 66  |)..N(_b%):_b%=.f|
00006050  0d 43 30 31 70 25 2b 3d  6b 25 3a ce 3a 70 25 3d  |.C01p%+=k%:.:p%=|
00006060  5a 62 25 3a 61 25 3d 59  62 25 3a e7 61 25 21 38  |Zb%:a%=Yb%:.a%!8|
00006070  3d 2d 31 8c 61 25 3f 33  3d 61 25 3f 33 80 ac 33  |=-1.a%?3=a%?3..3|
00006080  32 0d 43 62 05 cd 0d 43  6c 05 e1 0d 43 76 04 0d  |2.Cb...Cl...Cv..|
00006090  43 8a 18 dd f2 6d 28 67  24 29 3a e7 a7 67 24 2c  |C....m(g$):..g$,|
000060a0  22 2e 22 29 3d 30 8c 0d  43 94 3b f2 66 28 30 2c  |".")=0..C.;.f(0,|
000060b0  22 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  |"To save, drag t|
000060c0  68 65 20 66 69 6c 65 20  74 6f 20 61 20 64 69 72  |he file to a dir|
000060d0  65 63 74 6f 72 79 20 64  69 73 70 6c 61 79 22 2c  |ectory display",|
000060e0  31 29 0d 43 a8 0b cc 3a  c8 8e 55 25 ca 0d 43 b2  |1).C...:..U%..C.|
000060f0  13 c9 31 3a f2 75 28 67  24 29 3a 6c 24 3d 67 24  |..1:.u(g$):l$=g$|
00006100  0d 43 c6 13 c9 32 3a f2  4a 28 67 24 29 3a 6f 24  |.C...2:.J(g$):o$|
00006110  3d 67 24 0d 43 d0 13 c9  34 3a f2 4b 28 67 24 29  |=g$.C...4:.K(g$)|
00006120  3a 75 24 3d 67 24 0d 43  da 05 cb 0d 43 da 1b c8  |:u$=g$.C....C...|
00006130  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00006140  75 22 2c 2c 2d 31 0d 43  ee 05 cd 0d 43 ee 05 e1  |u",,-1.C....C...|
00006150  0d 43 f8 04 0d 44 0c 76  dd f2 61 61 28 61 24 29  |.C...D.v..aa(a$)|
00006160  3a c8 99 22 4f 53 5f 46  69 6e 64 22 2c 31 32 38  |:.."OS_Find",128|
00006170  2c 61 24 b8 60 62 25 3a  f2 72 28 22 53 65 74 20  |,a$.`b%:.r("Set |
00006180  4b 65 79 73 74 72 6f 6b  65 24 44 6f 30 20 22 2b  |Keystroke$Do0 "+|
00006190  a4 61 28 61 25 2b 31 32  38 29 2c 60 62 25 29 3a  |.a(a%+128),`b%):|
000061a0  c8 99 22 4f 53 5f 46 69  6e 64 22 2c 30 2c 60 62  |.."OS_Find",0,`b|
000061b0  25 3a c8 99 22 4f 53 5f  46 69 6c 65 22 2c 31 38  |%:.."OS_File",18|
000061c0  2c 61 24 2c 34 30 37 35  3a e1 0d 44 3e 04 0d 44  |,a$,4075:..D>..D|
000061d0  52 1e dd f2 79 28 61 63  25 29 3a e7 48 25 2b 67  |R...y(ac%):.H%+g|
000061e0  25 2b 6b 25 3e 67 25 2b  53 61 25 8c 0d 44 5c 2a  |%+k%>g%+Sa%..D\*|
000061f0  f2 66 28 30 2c 22 53 6f  72 72 79 2c 20 49 20 68  |.f(0,"Sorry, I h|
00006200  61 76 65 20 6e 6f 20 6d  6f 72 65 20 6d 65 6d 6f  |ave no more memo|
00006210  72 79 22 2c 31 29 0d 44  70 8c cc 3a 54 62 25 3d  |ry",1).Dp..:Tb%=|
00006220  61 63 25 2d 67 25 3a 62  63 25 3d 61 63 25 21 38  |ac%-g%:bc%=ac%!8|
00006230  3a 64 25 3d a4 66 3a 3f  64 25 3d 42 25 3a 64 25  |:d%=.f:?d%=B%:d%|
00006240  3f 31 3d 28 64 25 3f 31  80 32 34 38 29 2b 72 25  |?1=(d%?1.248)+r%|
00006250  3a 64 25 3f 32 3d 70 25  3f 32 3a 64 25 3f 33 3d  |:d%?2=p%?2:d%?3=|
00006260  70 25 3f 33 3a 64 25 21  34 3d 54 62 25 3a 64 25  |p%?3:d%!4=Tb%:d%|
00006270  21 38 3d 62 63 25 3a e3  49 25 3d 31 32 b8 6b 25  |!8=bc%:.I%=12.k%|
00006280  2d 34 88 34 3a 64 25 21  49 25 3d 70 25 21 49 25  |-4.4:d%!I%=p%!I%|
00006290  3a ed 49 25 3a e7 64 25  2b 6b 25 3d 67 25 2b 48  |:.I%:.d%+k%=g%+H|
000062a0  25 8c 0d 44 f2 2b 48 25  2b 3d 6b 25 3a e3 49 25  |%..D.+H%+=k%:.I%|
000062b0  3d 64 25 2b 6b 25 b8 64  25 2b 28 6b 25 2a 32 29  |=d%+k%.d%+(k%*2)|
000062c0  2d 34 3a 21 49 25 3d 2d  31 3a ed 49 25 0d 45 24  |-4:!I%=-1:.I%.E$|
000062d0  05 cd 0d 45 24 20 e7 64  25 21 34 3c 3e 2d 31 8c  |...E$ .d%!4<>-1.|
000062e0  21 28 38 2b 67 25 2b 64  25 21 34 29 3d 64 25 2d  |!(8+g%+d%!4)=d%-|
000062f0  67 25 0d 45 2e 0e e7 64  25 21 38 3c 3e 2d 31 8c  |g%.E...d%!8<>-1.|
00006300  0d 45 38 16 21 28 34 2b  67 25 2b 64 25 21 38 29  |.E8.!(4+g%+d%!8)|
00006310  3d 64 25 2d 67 25 0d 45  4c 16 cc 3a 21 61 25 28  |=d%-g%.EL..:!a%(|
00006320  42 25 2c 72 25 29 3d 64  25 2d 67 25 0d 45 60 05  |B%,r%)=d%-g%.E`.|
00006330  cd 0d 45 60 09 61 25 3d  64 25 0d 45 74 05 cd 0d  |..E`.a%=d%.Et...|
00006340  45 74 05 e1 0d 45 7e 04  0d 45 92 79 dd f2 5f 28  |Et...E~..E.y.._(|
00006350  64 25 29 3a f2 79 28 64  25 29 3a 59 62 25 3d 64  |d%):.y(d%):Yb%=d|
00006360  25 3a 5a 62 25 3d 70 25  3a 70 25 2b 3d 6b 25 3a  |%:Zb%=p%:p%+=k%:|
00006370  64 25 3d 67 25 2b 64 25  21 34 3a c8 95 70 25 3c  |d%=g%+d%!4:..p%<|
00006380  5a 62 25 2b 6b 25 2a 31  30 80 28 70 25 3f 33 80  |Zb%+k%*10.(p%?3.|
00006390  33 32 29 3c 3e 30 3a f2  79 28 64 25 29 3a 70 25  |32)<>0:.y(d%):p%|
000063a0  2b 3d 6b 25 3a 64 25 3d  67 25 2b 64 25 21 34 3a  |+=k%:d%=g%+d%!4:|
000063b0  ce 3a 61 25 3d 59 62 25  3a 70 25 3d 5a 62 25 3a  |.:a%=Yb%:p%=Zb%:|
000063c0  e1 0d 46 14 04 0d 46 28  4c dd f2 4b 28 61 24 29  |..F...F(L..K(a$)|
000063d0  3a f2 66 28 30 2c 22 53  61 76 69 6e 67 20 69 73  |:.f(0,"Saving is|
000063e0  20 6e 6f 74 20 70 6f 73  73 69 62 6c 65 20 6f 6e  | not possible on|
000063f0  20 74 68 69 73 20 64 65  6d 6f 6e 73 74 72 61 74  | this demonstrat|
00006400  69 6f 6e 20 76 65 72 73  69 6f 6e 22 2c 31 29 3a  |ion version",1):|
00006410  e1 0d 46 3c 04 0d 46 50  6b dd f2 74 28 63 63 25  |..F<..FPk..t(cc%|
00006420  2c 64 63 25 2c 65 63 25  29 3a c8 99 22 4f 53 5f  |,dc%,ec%):.."OS_|
00006430  47 53 54 72 61 6e 73 22  2c 22 3c 4b 65 79 73 74  |GSTrans","<Keyst|
00006440  72 6f 6b 65 25 56 61 72  3e 22 2c 42 61 25 2c 38  |roke%Var>",Ba%,8|
00006450  3a c8 99 22 4f 53 5f 47  53 54 72 61 6e 73 22 2c  |:.."OS_GSTrans",|
00006460  22 3c 4b 65 79 73 74 72  6f 6b 65 25 49 6e 63 3e  |"<Keystroke%Inc>|
00006470  22 2c 43 61 25 2c 38 3a  e7 63 63 25 3d 2d 32 8c  |",Ca%,8:.cc%=-2.|
00006480  0d 46 6e 56 c8 99 22 58  4f 53 5f 52 65 61 64 56  |.FnV.."XOS_ReadV|
00006490  61 72 56 61 6c 22 2c 22  45 78 65 63 75 74 6f 72  |arVal","Executor|
000064a0  24 44 69 72 22 2c 62 25  2c 2d 31 2c 30 b8 2c 2c  |$Dir",b%,-1,0.,,|
000064b0  66 63 25 3a e7 66 63 25  8c 7a 25 21 38 34 3d 26  |fc%:.fc%.z%!84=&|
000064c0  37 30 30 39 30 30 31 8b  7a 25 21 38 34 3d 26 37  |7009001.z%!84=&7|
000064d0  34 30 39 30 30 31 0d 46  82 2f e7 48 25 3e 32 35  |409001.F./.H%>25|
000064e0  38 38 2b 6b 25 8c 75 25  21 31 30 38 3d 26 37 30  |88+k%.u%!108=&70|
000064f0  30 39 30 30 31 8b 75 25  21 31 30 38 3d 26 37 34  |09001.u%!108=&74|
00006500  30 39 30 30 31 0d 46 8c  45 c8 99 22 57 69 6d 70  |09001.F.E.."Wimp|
00006510  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 75 25  |_CreateMenu",,u%|
00006520  2c 28 21 71 25 29 2d 36  34 2c 33 34 30 3a 78 61  |,(!q%)-64,340:xa|
00006530  25 3d 63 63 25 3a 44 61  25 3d 28 21 71 25 29 2d  |%=cc%:Da%=(!q%)-|
00006540  36 34 3a 45 61 25 3d 33  34 30 0d 46 be 18 cc 3a  |64:Ea%=340.F...:|
00006550  e7 71 25 21 31 32 3d 65  25 80 71 25 21 31 36 3d  |.q%!12=e%.q%!16=|
00006560  34 8c 0d 46 c8 24 24 28  61 25 2b 31 32 38 29 3d  |4..F.$$(a%+128)=|
00006570  a4 63 28 65 25 2c 31 34  29 3a e7 a4 62 8c f2 68  |.c(e%,14):..b..h|
00006580  28 61 25 2c b9 29 0d 46  dc 29 42 25 3d 39 35 3a  |(a%,.).F.)B%=95:|
00006590  72 25 3d 2d a6 28 2d 31  29 2d 32 2a a6 28 2d 32  |r%=-.(-1)-2*.(-2|
000065a0  29 2d 34 2a a6 28 2d 33  29 3a f2 69 3a f2 63 0d  |)-4*.(-3):.i:.c.|
000065b0  47 0e 35 cc 3a e7 a4 61  28 61 25 2b 31 32 38 29  |G.5.:..a(a%+128)|
000065c0  3c 3e 22 22 8c 69 25 21  31 38 30 3d 26 37 30 30  |<>"".i%!180=&700|
000065d0  39 30 30 31 8b 69 25 21  31 38 30 3d 26 37 34 30  |9001.i%!180=&740|
000065e0  39 30 30 31 0d 47 18 4b  e7 21 70 25 3d 2d 31 8c  |9001.G.K.!p%=-1.|
000065f0  69 25 21 31 33 32 3d 26  37 34 30 39 30 30 31 3a  |i%!132=&7409001:|
00006600  69 25 21 31 35 36 3d 26  37 34 30 39 30 30 31 8b  |i%!156=&7409001.|
00006610  69 25 21 31 33 32 3d 26  37 30 30 39 30 30 31 3a  |i%!132=&7009001:|
00006620  69 25 21 31 35 36 3d 26  37 30 30 39 30 30 31 0d  |i%!156=&7009001.|
00006630  47 22 8b e7 28 61 25 3f  33 80 31 32 38 29 3d 30  |G"..(a%?3.128)=0|
00006640  8c 69 25 21 33 36 3d 26  37 30 30 39 30 30 31 3a  |.i%!36=&7009001:|
00006650  69 25 21 36 30 3d 26 37  30 30 39 30 30 31 3a 69  |i%!60=&7009001:i|
00006660  25 21 38 34 3d 26 37 30  30 39 30 30 31 3a 69 25  |%!84=&7009001:i%|
00006670  21 31 30 38 3d 26 37 30  30 39 30 30 31 8b 69 25  |!108=&7009001.i%|
00006680  21 33 36 3d 26 37 34 30  39 30 30 31 3a 69 25 21  |!36=&7409001:i%!|
00006690  36 30 3d 26 37 34 30 39  30 30 31 3a 69 25 21 38  |60=&7409001:i%!8|
000066a0  34 3d 26 37 34 30 39 30  30 31 3a 69 25 21 31 30  |4=&7409001:i%!10|
000066b0  38 3d 26 37 34 30 39 30  30 31 0d 47 2c 51 c8 99  |8=&7409001.G,Q..|
000066c0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
000066d0  22 2c 2c 69 25 2c 28 21  71 25 29 2d 36 34 2c 28  |",,i%,(!q%)-64,(|
000066e0  71 25 21 34 29 2b 34 34  3a 78 61 25 3d 63 63 25  |q%!4)+44:xa%=cc%|
000066f0  3a 44 61 25 3d 28 21 71  25 29 2d 36 34 3a 45 61  |:Da%=(!q%)-64:Ea|
00006700  25 3d 28 71 25 21 34 29  2b 34 34 0d 47 5e 05 cd  |%=(q%!4)+44.G^..|
00006710  0d 47 5e 05 cd 0d 47 68  05 e1 0d 47 72 04 0d 47  |.G^...Gh...Gr..G|
00006720  86 c8 dd f2 4d 3a f2 62  28 77 61 25 2c 30 2c 22  |....M:.b(wa%,0,"|
00006730  22 29 3a 21 62 25 3d 77  61 25 3a c8 99 22 57 69  |"):!b%=wa%:.."Wi|
00006740  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00006750  65 22 2c 2c 62 25 3a c8  99 22 57 69 6d 70 5f 4f  |e",,b%:.."Wimp_O|
00006760  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 25 3a c8  |penWindow",,b%:.|
00006770  99 22 57 69 6d 70 5f 47  65 74 43 61 72 65 74 50  |."Wimp_GetCaretP|
00006780  6f 73 69 74 69 6f 6e 22  2c 2c 4c 25 3a c8 99 22  |osition",,L%:.."|
00006790  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
000067a0  69 74 69 6f 6e 22 2c 77  61 25 2c 30 2c 2d 31 2c  |ition",wa%,0,-1,|
000067b0  2d 31 2c ac 28 31 3c 3c  32 35 29 2c 2d 31 3a 6e  |-1,.(1<<25),-1:n|
000067c0  24 3d 22 3c 4e 6f 6e 65  3e 22 3a f5 3a c8 99 22  |$="<None>":.:.."|
000067d0  57 69 6d 70 5f 50 6f 6c  6c 22 2c 36 31 34 36 2c  |Wimp_Poll",6146,|
000067e0  71 25 b8 63 61 25 0d 47  e0 28 e7 63 61 25 3d 38  |q%.ca%.G.(.ca%=8|
000067f0  80 21 71 25 3d 77 61 25  80 71 25 21 32 34 3d 31  |.!q%=wa%.q%!24=1|
00006800  33 8c 6e 24 3d a4 63 28  77 61 25 2c 30 29 0d 47  |3.n$=.c(wa%,0).G|
00006810  ea 28 e7 28 63 61 25 3d  31 37 84 63 61 25 3d 31  |.(.(ca%=17.ca%=1|
00006820  38 29 80 71 25 21 31 36  3d 30 8c c8 99 22 4f 53  |8).q%!16=0..."OS|
00006830  5f 45 78 69 74 22 0d 47  f4 8b fd 6e 24 3c 3e 22  |_Exit".G...n$<>"|
00006840  3c 4e 6f 6e 65 3e 22 3a  ff 28 22 53 65 74 20 4b  |<None>":.("Set K|
00006850  65 79 73 74 72 6f 6b 65  24 49 6e 70 75 74 20 22  |eystroke$Input "|
00006860  2b 6e 24 29 3a c8 99 22  57 69 6d 70 5f 53 65 74  |+n$):.."Wimp_Set|
00006870  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 21  |CaretPosition",!|
00006880  4c 25 2c 4c 25 21 34 2c  4c 25 21 38 2c 4c 25 21  |L%,L%!4,L%!8,L%!|
00006890  31 32 2c 4c 25 21 31 36  2c 4c 25 21 32 30 3a 21  |12,L%!16,L%!20:!|
000068a0  62 25 3d 77 61 25 3a c8  99 22 57 69 6d 70 5f 43  |b%=wa%:.."Wimp_C|
000068b0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 25 3a  |loseWindow",,b%:|
000068c0  e1 0d 48 30 04 0d 48 44  7f dd a4 6d 3a ea 4c 25  |..H0..HD...m:.L%|
000068d0  3a c8 99 22 4f 53 5f 47  53 54 72 61 6e 73 22 2c  |:.."OS_GSTrans",|
000068e0  22 3c 4b 65 79 73 74 72  6f 6b 65 25 49 6e 63 3e  |"<Keystroke%Inc>|
000068f0  22 2c 71 25 2c 38 31 39  32 3a 4c 25 3d bb 28 a4  |",q%,8192:L%=.(.|
00006900  61 28 71 25 29 29 3a c8  99 22 4f 53 5f 47 53 54  |a(q%)):.."OS_GST|
00006910  72 61 6e 73 22 2c 22 3c  4b 65 79 73 74 72 6f 6b  |rans","<Keystrok|
00006920  65 25 56 61 72 3e 22 2c  71 25 2c 38 31 39 32 3a  |e%Var>",q%,8192:|
00006930  67 63 25 3d bb 28 a4 61  28 71 25 29 29 3a e7 4c  |gc%=.(.a(q%)):.L|
00006940  25 3c 30 8c 0d 48 80 1d  e7 67 63 25 2b 4c 25 3c  |%<0..H...gc%+L%<|
00006950  2d 39 39 39 8c 73 24 3d  22 22 8b 73 24 3d c3 4c  |-999.s$="".s$=.L|
00006960  25 0d 48 8a 23 cc 3a e7  67 63 25 2b 4c 25 3e 39  |%.H.#.:.gc%+L%>9|
00006970  39 39 39 8c 73 24 3d 22  22 8b 73 24 3d 22 2b 22  |999.s$="".s$="+"|
00006980  2b c3 4c 25 0d 48 9e 05  cd 0d 48 a8 07 3d 73 24  |+.L%.H....H..=s$|
00006990  0d 48 da 79 dd f2 66 28  68 63 25 2c 41 24 2c 69  |.H.y..f(hc%,A$,i|
000069a0  63 25 29 3a 21 62 25 3d  68 63 25 3a 24 28 62 25  |c%):!b%=hc%:$(b%|
000069b0  2b 34 29 3d 41 24 3a c8  99 22 57 69 6d 70 5f 52  |+4)=A$:.."Wimp_R|
000069c0  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 25 2c 69  |eportError",b%,i|
000069d0  63 25 2c 22 4b 65 79 73  74 72 6f 6b 65 22 b8 2c  |c%,"Keystroke".,|
000069e0  6a 63 25 3a e7 6a 63 25  3d 32 8c c8 99 22 57 69  |jc%:.jc%=2..."Wi|
000069f0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a c8 99  |mp_CloseDown":..|
00006a00  22 4f 53 5f 45 78 69 74  22 0d 48 f8 0b 64 61 25  |"OS_Exit".H..da%|
00006a10  3d a3 3a e1 0d 49 0c 04  0d 49 20 50 dd a4 69 28  |=.:..I...I P..i(|
00006a20  42 24 29 3a 21 62 25 3d  30 3a 24 28 62 25 2b 34  |B$):!b%=0:$(b%+4|
00006a30  29 3d 42 24 3a c8 99 22  57 69 6d 70 5f 52 65 70  |)=B$:.."Wimp_Rep|
00006a40  6f 72 74 45 72 72 6f 72  22 2c 62 25 2c 33 2c 22  |ortError",b%,3,"|
00006a50  4b 65 79 73 74 72 6f 6b  65 22 b8 2c 6a 63 25 3a  |Keystroke".,jc%:|
00006a60  3d 28 6a 63 25 3d 31 29  0d 49 52 7d dd f2 62 28  |=(jc%=1).IR}..b(|
00006a70  66 25 2c 68 25 2c 63 24  29 3a 21 62 25 3d 66 25  |f%,h%,c$):!b%=f%|
00006a80  3a 62 25 21 34 3d 68 25  3a c8 99 22 57 69 6d 70  |:b%!4=h%:.."Wimp|
00006a90  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00006aa0  62 25 3a 24 28 62 25 21  32 38 29 3d c0 63 24 2c  |b%:$(b%!28)=.c$,|
00006ab0  28 62 25 21 33 32 29 2d  31 29 3a 62 25 21 38 3d  |(b%!32)-1):b%!8=|
00006ac0  30 3a 62 25 21 31 32 3d  30 3a c8 99 22 57 69 6d  |0:b%!12=0:.."Wim|
00006ad0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00006ae0  2c 62 25 3a e1 0d 49 a2  04 0d 49 b6 59 dd f2 61  |,b%:..I...I.Y..a|
00006af0  28 66 25 2c 68 25 2c 6b  63 25 2c 6c 63 25 29 3a  |(f%,h%,kc%,lc%):|
00006b00  21 62 25 3d 66 25 3a 62  25 21 34 3d 68 25 3a 62  |!b%=f%:b%!4=h%:b|
00006b10  25 21 31 32 3d 6b 63 25  3a 62 25 21 38 3d 2d 6c  |%!12=kc%:b%!8=-l|
00006b20  63 25 2a 6b 63 25 3a c8  99 22 57 69 6d 70 5f 53  |c%*kc%:.."Wimp_S|
00006b30  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 25  |etIconState",,b%|
00006b40  3a e1 0d 49 f2 04 0d 4a  06 5d dd f2 6c 28 66 25  |:..I...J.]..l(f%|
00006b50  2c 68 25 2c 6d 63 25 29  3a 21 62 25 3d 66 25 3a  |,h%,mc%):!b%=f%:|
00006b60  62 25 21 34 3d 68 25 3a  62 25 21 38 3d 6d 63 25  |b%!4=h%:b%!8=mc%|
00006b70  3c 3c 31 32 3a 62 25 21  31 32 3d 36 31 34 34 30  |<<12:b%!12=61440|
00006b80  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00006b90  53 74 61 74 65 22 2c 2c  62 25 3a e7 6d 63 25 3c  |State",,b%:.mc%<|
00006ba0  31 34 8c 0d 4a 42 22 e7  21 43 25 3d 66 25 80 43  |14..JB".!C%=f%.C|
00006bb0  25 21 34 3d 68 25 8c 21  43 25 3d 2d 31 80 43 25  |%!4=h%.!C%=-1.C%|
00006bc0  21 34 3d 2d 31 0d 4a 4c  05 cd 0d 4a 56 05 e1 0d  |!4=-1.JL...JV...|
00006bd0  4a 60 04 0d 4a 74 5a dd  f2 71 28 66 25 2c 68 25  |J`..JtZ..q(f%,h%|
00006be0  2c 6e 63 25 29 3a 21 62  25 3d 66 25 3a 62 25 21  |,nc%):!b%=f%:b%!|
00006bf0  34 3d 68 25 3a 62 25 21  38 3d 6e 63 25 3c 3c 32  |4=h%:b%!8=nc%<<2|
00006c00  34 3a 62 25 21 31 32 3d  2d 31 36 37 37 37 32 31  |4:b%!12=-1677721|
00006c10  36 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |6:.."Wimp_SetIco|
00006c20  6e 53 74 61 74 65 22 2c  2c 62 25 3a e1 0d 4a b0  |nState",,b%:..J.|
00006c30  04 0d 4a c4 4a dd a4 64  28 66 25 2c 68 25 2c 6b  |..J.J..d(f%,h%,k|
00006c40  63 25 29 3a 21 62 25 3d  66 25 3a 62 25 21 34 3d  |c%):!b%=f%:b%!4=|
00006c50  68 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |h%:.."Wimp_GetIc|
00006c60  6f 6e 53 74 61 74 65 22  2c 2c 62 25 3a 3d 28 62  |onState",,b%:=(b|
00006c70  25 21 32 34 80 6b 63 25  29 3e 30 0d 4b 00 47 dd  |%!24.kc%)>0.K.G.|
00006c80  a4 61 28 6f 25 29 3a 70  24 3d 22 22 3a c8 95 28  |.a(o%):p$="":..(|
00006c90  3f 6f 25 3e 33 31 80 3f  6f 25 3c 32 35 36 29 80  |?o%>31.?o%<256).|
00006ca0  a9 28 70 24 29 3c 32 35  35 3a 70 24 3d 70 24 2b  |.(p$)<255:p$=p$+|
00006cb0  bd 3f 6f 25 3a 6f 25 3d  6f 25 2b 31 3a ce 3a 3d  |.?o%:o%=o%+1:.:=|
00006cc0  70 24 0d 4b 50 78 dd a4  65 28 6c 25 2c 6f 25 29  |p$.KPx..e(l%,o%)|
00006cd0  3a c8 99 22 57 69 6d 70  5f 54 72 61 6e 73 66 65  |:.."Wimp_Transfe|
00006ce0  72 42 6c 6f 63 6b 22 2c  6c 25 2c 6f 25 2c 6f 63  |rBlock",l%,o%,oc|
00006cf0  25 2c 62 25 2c 32 35 36  3a 6f 25 3d 62 25 3a 70  |%,b%,256:o%=b%:p|
00006d00  24 3d 22 22 3a c8 95 28  3f 6f 25 3e 33 31 80 3f  |$="":..(?o%>31.?|
00006d10  6f 25 3c 32 35 36 29 80  a9 28 70 24 29 3c 32 35  |o%<256)..(p$)<25|
00006d20  35 3a 70 24 3d 70 24 2b  bd 3f 6f 25 3a 6f 25 3d  |5:p$=p$+.?o%:o%=|
00006d30  6f 25 2b 31 3a ce 3a 3d  70 24 0d 4b b4 d1 dd f2  |o%+1:.:=p$.K....|
00006d40  6b 28 66 25 29 3a 21 71  25 3d 66 25 3a c8 99 22  |k(f%):!q%=f%:.."|
00006d50  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00006d60  61 74 65 22 2c 2c 71 25  3a 70 63 25 3d 70 61 25  |ate",,q%:pc%=pa%|
00006d70  2d 28 71 25 21 34 29 3a  71 63 25 3d 71 61 25 2d  |-(q%!4):qc%=qa%-|
00006d80  28 71 25 21 31 36 29 2d  31 3a 71 25 21 34 3d 28  |(q%!16)-1:q%!4=(|
00006d90  71 25 21 34 29 2b 70 63  25 3a 71 25 21 38 3d 28  |q%!4)+pc%:q%!8=(|
00006da0  71 25 21 38 29 2b 71 63  25 3a 71 25 21 31 32 3d  |q%!8)+qc%:q%!12=|
00006db0  28 71 25 21 31 32 29 2b  70 63 25 3a 71 25 21 31  |(q%!12)+pc%:q%!1|
00006dc0  36 3d 28 71 25 21 31 36  29 2b 71 63 25 3a 71 25  |6=(q%!16)+qc%:q%|
00006dd0  21 32 38 3d 74 61 25 3a  c8 99 22 57 69 6d 70 5f  |!28=ta%:.."Wimp_|
00006de0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 3a  |OpenWindow",,q%:|
00006df0  70 61 25 3d 71 25 21 34  3a 71 61 25 3d 71 25 21  |pa%=q%!4:qa%=q%!|
00006e00  38 3a 72 61 25 3d 21 71  25 3a e1 0d 4c 22 04 0d  |8:ra%=!q%:..L"..|
00006e10  4c 36 2d dd f2 64 28 66  25 29 3a 21 62 25 3d 66  |L6-..d(f%):!b%=f|
00006e20  25 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |%:.."Wimp_CloseW|
00006e30  69 6e 64 6f 77 22 2c 2c  62 25 3a e1 0d 4c 54 04  |indow",,b%:..LT.|
00006e40  0d 4c 68 6a dd a4 6e 28  6c 25 29 3a 21 71 25 3d  |.Lhj..n(l%):!q%=|
00006e50  32 34 3a 71 25 21 31 32  3d 30 3a 71 25 21 31 36  |24:q%!12=0:q%!16|
00006e60  3d 32 36 32 33 34 32 3a  71 25 21 32 30 3d 6c 25  |=262342:q%!20=l%|
00006e70  3a c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |:.."Wimp_SendMes|
00006e80  73 61 67 65 22 2c 31 38  2c 71 25 2c 30 3a 6a 24  |sage",18,q%,0:j$|
00006e90  3d 22 22 3a f5 3a f2 67  28 36 31 34 37 29 3a fd  |="":.:.g(6147):.|
00006ea0  6a 24 3c 3e 22 22 3a 3d  6a 24 0d 4c c2 18 dd a4  |j$<>"":=j$.L....|
00006eb0  67 28 6c 25 2c 66 25 2c  72 63 25 29 3a c8 8e 66  |g(l%,f%,rc%):..f|
00006ec0  25 ca 0d 4c cc 17 c9 2d  31 3a 64 24 3d 22 42 61  |%..L...-1:d$="Ba|
00006ed0  63 6b 67 72 6f 75 6e 64  22 0d 4c e0 15 c9 2d 32  |ckground".L...-2|
00006ee0  3a 64 24 3d 22 49 63 6f  6e 20 62 61 72 22 0d 4c  |:d$="Icon bar".L|
00006ef0  ea 12 7f 3a 21 71 25 3d  66 25 3a e7 72 63 25 8c  |...:!q%=f%:.rc%.|
00006f00  0d 4c fe 31 71 25 21 33  32 3d 30 3a c8 99 22 58  |.L.1q%!32=0:.."X|
00006f10  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00006f20  66 6f 22 2c 2c 71 25 3a  e7 71 25 21 33 32 3d 30  |fo",,q%:.q%!32=0|
00006f30  8c 0d 4d 1c 14 64 24 3d  22 4e 6f 6e 65 78 69 73  |..M..d$="Nonexis|
00006f40  74 65 6e 74 22 0d 4d 30  57 cc 3a 76 25 3d 28 28  |tent".M0W.:v%=((|
00006f50  28 71 25 21 33 32 29 80  28 31 3c 3c 33 31 29 29  |(q%!32).(1<<31))|
00006f60  3c 3e 30 29 3a e7 28 76  25 80 28 71 25 21 33 32  |<>0):.(v%.(q%!32|
00006f70  80 28 31 3c 3c 32 36 29  29 3c 3e 30 29 84 28 ac  |.(1<<26))<>0).(.|
00006f80  76 25 80 28 71 25 21 33  32 80 31 29 3c 3e 30 29  |v%.(q%!32.1)<>0)|
00006f90  84 71 25 3f 33 36 3c 3e  32 35 35 8c 0d 4d 44 15  |.q%?36<>255..MD.|
00006fa0  e7 28 28 71 25 21 36 30  29 80 32 35 36 29 3d 30  |.((q%!60).256)=0|
00006fb0  8c 0d 4d 4e 10 64 24 3d  a4 61 28 71 25 2b 37 36  |..MN.d$=.a(q%+76|
00006fc0  29 0d 4d 62 15 cc 3a 64  24 3d a4 65 28 6c 25 2c  |).Mb..:d$=.e(l%,|
00006fd0  71 25 21 37 36 29 0d 4d  76 05 cd 0d 4d 76 13 cc  |q%!76).Mv...Mv..|
00006fe0  3a 64 24 3d 22 4e 6f 20  74 69 74 6c 65 22 0d 4d  |:d$="No title".M|
00006ff0  94 05 cd 0d 4d 94 05 cd  0d 4d 9e 72 cc 3a c8 99  |....M....M.r.:..|
00007000  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00007010  6e 66 6f 22 2c 2c 71 25  3a 76 25 3d 28 28 28 71  |nfo",,q%:v%=(((q|
00007020  25 21 33 32 29 80 28 31  3c 3c 33 31 29 29 3c 3e  |%!32).(1<<31))<>|
00007030  30 29 3a e7 28 76 25 80  28 71 25 21 33 32 80 28  |0):.(v%.(q%!32.(|
00007040  31 3c 3c 32 36 29 29 3c  3e 30 29 84 28 ac 76 25  |1<<26))<>0).(.v%|
00007050  80 28 71 25 21 33 32 80  31 29 3c 3e 30 29 84 71  |.(q%!32.1)<>0).q|
00007060  25 3f 33 36 3c 3e 32 35  35 8c 0d 4d c6 15 e7 28  |%?36<>255..M...(|
00007070  28 71 25 21 36 30 29 80  32 35 36 29 3d 30 8c 0d  |(q%!60).256)=0..|
00007080  4d d0 10 64 24 3d a4 61  28 71 25 2b 37 36 29 0d  |M..d$=.a(q%+76).|
00007090  4d e4 15 cc 3a 64 24 3d  a4 65 28 6c 25 2c 71 25  |M...:d$=.e(l%,q%|
000070a0  21 37 36 29 0d 4d f8 05  cd 0d 4d f8 13 cc 3a 64  |!76).M....M...:d|
000070b0  24 3d 22 4e 6f 20 74 69  74 6c 65 22 0d 4e 16 05  |$="No title".N..|
000070c0  cd 0d 4e 16 05 cd 0d 4e  20 05 cb 0d 4e 2a 07 3d  |..N....N ...N*.=|
000070d0  64 24 0d 4e 48 17 dd a4  6f 28 6c 25 2c 66 25 2c  |d$.NH...o(l%,f%,|
000070e0  68 25 29 3a c8 8e 68 25  ca 0d 4e 52 17 c9 2d 31  |h%):..h%..NR..-1|
000070f0  3a 62 24 3d 22 42 61 63  6b 67 72 6f 75 6e 64 22  |:b$="Background"|
00007100  0d 4e 66 16 c9 2d 32 3a  62 24 3d 22 42 61 63 6b  |.Nf..-2:b$="Back|
00007110  20 49 63 6f 6e 22 0d 4e  70 17 c9 2d 33 3a 62 24  | Icon".Np..-3:b$|
00007120  3d 22 43 6c 6f 73 65 20  49 63 6f 6e 22 0d 4e 7a  |="Close Icon".Nz|
00007130  16 c9 2d 34 3a 62 24 3d  22 54 69 74 6c 65 20 42  |..-4:b$="Title B|
00007140  61 72 22 0d 4e 84 18 c9  2d 35 3a 62 24 3d 22 54  |ar".N...-5:b$="T|
00007150  6f 67 67 6c 65 20 49 63  6f 6e 22 0d 4e 8e 16 c9  |oggle Icon".N...|
00007160  2d 36 3a 62 24 3d 22 53  63 72 6f 6c 6c 20 55 70  |-6:b$="Scroll Up|
00007170  22 0d 4e 98 12 c9 2d 37  3a 62 24 3d 22 56 20 42  |".N...-7:b$="V B|
00007180  61 72 22 0d 4e a2 18 c9  2d 38 3a 62 24 3d 22 53  |ar".N...-8:b$="S|
00007190  63 72 6f 6c 6c 20 44 6f  77 6e 22 0d 4e ac 18 c9  |croll Down".N...|
000071a0  2d 39 3a 62 24 3d 22 41  64 6a 75 73 74 20 53 69  |-9:b$="Adjust Si|
000071b0  7a 65 22 0d 4e b6 19 c9  2d 31 30 3a 62 24 3d 22  |ze".N...-10:b$="|
000071c0  53 63 72 6f 6c 6c 52 69  67 68 74 22 0d 4e c0 13  |ScrollRight".N..|
000071d0  c9 2d 31 31 3a 62 24 3d  22 48 20 42 61 72 22 0d  |.-11:b$="H Bar".|
000071e0  4e ca 19 c9 2d 31 32 3a  62 24 3d 22 53 63 72 6f  |N...-12:b$="Scro|
000071f0  6c 6c 20 4c 65 66 74 22  0d 4e d4 49 7f 3a 21 71  |ll Left".N.I.:!q|
00007200  25 3d 66 25 3a 71 25 21  34 3d 68 25 3a c8 99 22  |%=f%:q%!4=h%:.."|
00007210  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00007220  65 22 2c 2c 71 25 3a e7  28 28 28 71 25 21 32 34  |e",,q%:.(((q%!24|
00007230  29 80 36 31 34 34 30 29  3e 3e 31 32 29 3e 31 33  |).61440)>>12)>13|
00007240  8c 0d 4e fc 11 62 24 3d  22 56 61 72 69 61 62 6c  |..N..b$="Variabl|
00007250  65 22 0d 4f 10 17 cc 3a  e7 28 28 71 25 21 32 34  |e".O...:.((q%!24|
00007260  29 80 32 35 36 29 3d 30  8c 0d 4f 1a 10 62 24 3d  |).256)=0..O..b$=|
00007270  a4 61 28 71 25 2b 32 38  29 0d 4f 2e 15 cc 3a e7  |.a(q%+28).O...:.|
00007280  28 28 71 25 21 32 34 29  80 31 29 3d 30 8c 0d 4f  |((q%!24).1)=0..O|
00007290  38 13 62 24 3d a4 65 28  6c 25 2c 71 25 21 32 38  |8.b$=.e(l%,q%!28|
000072a0  29 0d 4f 4c 27 cc 3a e7  28 71 25 21 33 32 29 3d  |).OL'.:.(q%!32)=|
000072b0  2d 31 8c 76 24 3d 22 22  8b 76 24 3d a4 65 28 6c  |-1.v$="".v$=.e(l|
000072c0  25 2c 71 25 21 33 32 29  0d 4f 56 2f 62 24 3d a4  |%,q%!32).OV/b$=.|
000072d0  65 28 6c 25 2c 71 25 21  32 38 29 3a e7 62 24 3d  |e(l%,q%!28):.b$=|
000072e0  22 22 8c 62 24 3d c1 76  24 2c 32 2c a7 76 24 2c  |"".b$=.v$,2,.v$,|
000072f0  22 2c 22 29 2d 32 29 0d  4f 6a 05 cd 0d 4f 74 05  |",")-2).Oj...Ot.|
00007300  cd 0d 4f 7e 05 cd 0d 4f  88 05 cb 0d 4f 92 07 3d  |..O~...O....O..=|
00007310  62 24 0d 4f b0 13 dd f2  66 61 28 66 25 29 3a e7  |b$.O....fa(f%):.|
00007320  66 25 3c 30 8c 0d 4f ba  15 5a 61 25 3d 30 3a 5f  |f%<0..O..Za%=0:_|
00007330  61 25 3d 30 3a 60 61 25  3d 30 0d 4f e2 49 cc 3a  |a%=0:`a%=0.O.I.:|
00007340  21 71 25 3d 66 25 3a c8  99 22 57 69 6d 70 5f 47  |!q%=f%:.."Wimp_G|
00007350  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 71  |etWindowInfo",,q|
00007360  25 3a 5a 61 25 3d 71 25  21 33 32 80 67 62 25 3a  |%:Za%=q%!32.gb%:|
00007370  5f 61 25 3d 71 25 21 33  36 3a 60 61 25 3d 71 25  |_a%=q%!36:`a%=q%|
00007380  21 34 30 0d 50 1e 05 cd  0d 50 1e 05 e1 0d 50 28  |!40.P....P....P(|
00007390  04 0d 50 3c 75 dd a4 70  28 66 25 2c 68 25 2c 6b  |..P<u..p(f%,h%,k|
000073a0  63 25 29 3a 21 62 25 3d  66 25 3a 62 25 21 34 3d  |c%):!b%=f%:b%!4=|
000073b0  68 25 3a 62 25 21 38 3d  6b 63 25 3a 62 25 21 31  |h%:b%!8=kc%:b%!1|
000073c0  32 3d 30 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=0:.."Wimp_SetI|
000073d0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a c8 99  |conState",,b%:..|
000073e0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000073f0  74 65 22 2c 2c 62 25 3a  3d 28 62 25 21 32 34 80  |te",,b%:=(b%!24.|
00007400  6b 63 25 29 3e 30 0d 50  96 11 dd a4 71 28 78 24  |kc%)>0.P....q(x$|
00007410  29 3a c8 8e 78 24 ca 0d  50 a0 18 c9 22 42 61 63  |):..x$..P..."Bac|
00007420  6b 67 72 6f 75 6e 64 22  3a 73 63 25 3d 2d 31 0d  |kground":sc%=-1.|
00007430  50 b4 16 c9 22 49 63 6f  6e 20 62 61 72 22 3a 73  |P..."Icon bar":s|
00007440  63 25 3d 2d 32 0d 50 be  6a 7f 3a 73 63 25 3d 2d  |c%=-2.P.j.:sc%=-|
00007450  31 3a 4b 25 3d a4 6b 3a  c8 95 4b 25 3c 3e 2d 31  |1:K%=.k:..K%<>-1|
00007460  80 73 63 25 3d 2d 31 3a  21 71 25 3d 32 30 3a 71  |.sc%=-1:!q%=20:q|
00007470  25 21 31 32 3d 30 3a c8  99 22 58 57 69 6d 70 5f  |%!12=0:.."XWimp_|
00007480  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 39 2c  |SendMessage",19,|
00007490  71 25 2c 4b 25 2c 2d 31  b8 2c 2c 74 63 25 3a e7  |q%,K%,-1.,,tc%:.|
000074a0  74 63 25 3c 3e 30 80 74  63 25 3c 3e 4b 25 8c 0d  |tc%<>0.tc%<>K%..|
000074b0  50 f0 20 e7 78 24 3d c0  a4 67 28 74 63 25 2c 4b  |P. .x$=..g(tc%,K|
000074c0  25 2c a3 29 2c 32 37 29  8c 73 63 25 3d 4b 25 0d  |%,.),27).sc%=K%.|
000074d0  50 fa 05 cd 0d 51 04 0f  4b 25 3d a4 6c 28 4b 25  |P....Q..K%=.l(K%|
000074e0  29 3a ce 0d 51 22 05 cb  0d 51 22 08 3d 73 63 25  |):..Q"...Q".=sc%|
000074f0  0d 51 40 72 dd a4 72 28  43 24 29 3a 75 63 25 3d  |.Q@r..r(C$):uc%=|
00007500  2d 31 3a 76 63 25 3d 30  3a c8 95 76 63 25 3c 32  |-1:vc%=0:..vc%<2|
00007510  35 36 80 75 63 25 3d 2d  31 3a 21 71 25 3d 32 30  |56.uc%=-1:!q%=20|
00007520  3a 71 25 21 31 32 3d 30  3a c8 99 22 58 57 69 6d  |:q%!12=0:.."XWim|
00007530  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00007540  39 2c 71 25 2c 2d 32 2c  76 63 25 b8 2c 2c 77 63  |9,q%,-2,vc%.,,wc|
00007550  25 3a e7 77 63 25 3c 3e  30 80 77 63 25 3c 3e 2d  |%:.wc%<>0.wc%<>-|
00007560  32 8c 0d 51 72 23 e7 43  24 3d c0 a4 6f 28 77 63  |2..Qr#.C$=..o(wc|
00007570  25 2c 2d 32 2c 76 63 25  29 2c 31 31 29 8c 75 63  |%,-2,vc%),11).uc|
00007580  25 3d 76 63 25 0d 51 7c  05 cd 0d 51 86 11 76 63  |%=vc%.Q|...Q..vc|
00007590  25 2b 3d 31 3a ce 3a 3d  75 63 25 0d 51 b8 a6 dd  |%+=1:.:=uc%.Q...|
000075a0  f2 45 3a c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |.E:.."Wimp_GetPo|
000075b0  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 62 25 3a 71  |interInfo",,b%:q|
000075c0  25 21 34 3d 35 3a 71 25  21 38 3d 28 21 62 25 29  |%!4=5:q%!8=(!b%)|
000075d0  2d 33 34 3a 71 25 21 31  32 3d 28 62 25 21 34 29  |-34:q%!12=(b%!4)|
000075e0  2d 33 34 3a 71 25 21 31  36 3d 28 21 62 25 29 2b  |-34:q%!16=(!b%)+|
000075f0  33 34 3a 71 25 21 32 30  3d 28 62 25 21 34 29 2b  |34:q%!20=(b%!4)+|
00007600  33 34 3a 71 25 21 32 34  3d 69 61 25 3a 71 25 21  |34:q%!24=ia%:q%!|
00007610  32 38 3d 6a 61 25 3a 71  25 21 33 32 3d 6b 61 25  |28=ja%:q%!32=ka%|
00007620  3a 71 25 21 33 36 3d 6c  61 25 3a c8 99 22 57 69  |:q%!36=la%:.."Wi|
00007630  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 71 25 3a  |mp_DragBox",,q%:|
00007640  e1 0d 52 30 04 0d 52 44  c3 dd f2 4c 3a 21 62 25  |..R0..RD...L:!b%|
00007650  3d 31 32 38 3a 62 25 21  34 3d 31 32 39 3a 62 25  |=128:b%!4=129:b%|
00007660  21 38 3d 31 33 30 3a 62  25 21 31 32 3d 31 33 31  |!8=130:b%!12=131|
00007670  3a 62 25 21 31 36 3d 34  3a 62 25 21 32 30 3d 35  |:b%!16=4:b%!20=5|
00007680  3a 62 25 21 32 34 3d 2d  31 3a c8 99 22 4f 53 5f  |:b%!24=-1:.."OS_|
00007690  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
000076a0  22 2c 62 25 2c 62 25 2b  32 38 3a 69 61 25 3d 62  |",b%,b%+28:ia%=b|
000076b0  25 21 32 38 3c 3c 62 25  21 34 34 3a 6a 61 25 3d  |%!28<<b%!44:ja%=|
000076c0  62 25 21 33 32 3c 3c 62  25 21 34 38 3a 6b 61 25  |b%!32<<b%!48:ka%|
000076d0  3d 62 25 21 33 36 3c 3c  62 25 21 34 34 3a 6c 61  |=b%!36<<b%!44:la|
000076e0  25 3d 62 25 21 34 30 3c  3c 62 25 21 34 38 3a 4e  |%=b%!40<<b%!48:N|
000076f0  25 3d 31 3c 3c 62 25 21  34 34 3a 4f 25 3d 31 3c  |%=1<<b%!44:O%=1<|
00007700  3c 62 25 21 34 38 3a e1  0d 52 da 04 0d 52 ee 42  |<b%!48:..R...R.B|
00007710  dd a4 63 28 66 25 2c 68  25 29 3a 21 62 25 3d 66  |..c(f%,h%):!b%=f|
00007720  25 3a 62 25 21 34 3d 68  25 3a c8 99 22 57 69 6d  |%:b%!4=h%:.."Wim|
00007730  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00007740  2c 62 25 3a 3d a4 61 28  62 25 21 32 38 29 0d 53  |,b%:=.a(b%!28).S|
00007750  2a 29 dd f2 65 28 63 24  29 3a 66 24 3d a4 63 28  |*)..e(c$):f$=.c(|
00007760  74 25 2c 31 29 3a e7 a9  28 63 24 29 2b a9 28 66  |t%,1):..(c$)+.(f|
00007770  24 29 3c 31 31 36 8c 0d  53 3e 3e c8 99 22 57 69  |$)<116..S>>.."Wi|
00007780  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00007790  69 6f 6e 22 2c 2c 62 25  3a e7 21 62 25 3c 3e 74  |ion",,b%:.!b%<>t|
000077a0  25 8c 78 63 25 3d a9 28  66 24 29 8b 78 63 25 3d  |%.xc%=.(f$).xc%=|
000077b0  62 25 21 32 30 0d 53 52  71 79 24 3d c0 66 24 2c  |b%!20.SRqy$=.f$,|
000077c0  78 63 25 29 2b 63 24 2b  c2 66 24 2c a9 28 66 24  |xc%)+c$+.f$,.(f$|
000077d0  29 2d 78 63 25 29 3a f2  62 28 74 25 2c 31 2c 79  |)-xc%):.b(t%,1,y|
000077e0  24 29 3a 24 28 61 25 2b  31 32 29 3d 79 24 3a c8  |$):$(a%+12)=y$:.|
000077f0  99 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |."Wimp_SetCaretP|
00007800  6f 73 69 74 69 6f 6e 22  2c 74 25 2c 31 2c 2d 31  |osition",t%,1,-1|
00007810  2c 2d 31 2c ac 28 31 3c  3c 32 35 29 2c 78 63 25  |,-1,.(1<<25),xc%|
00007820  2b a9 28 63 24 29 0d 53  84 05 cd 0d 53 84 05 e1  |+.(c$).S....S...|
00007830  0d 53 8e 04 0d 53 a2 c3  dd a4 6a 3a c8 99 22 57  |.S...S....j:.."W|
00007840  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00007850  66 6f 22 2c 2c 62 25 3a  66 25 3d 62 25 21 31 32  |fo",,b%:f%=b%!12|
00007860  3a 71 25 21 31 32 3d 30  3a c8 99 22 57 69 6d 70  |:q%!12=0:.."Wimp|
00007870  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 39  |_SendMessage",19|
00007880  2c 71 25 2c 66 25 2c 2d  31 b8 2c 2c 6c 25 3a 21  |,q%,f%,-1.,,l%:!|
00007890  71 25 3d 32 34 3a 71 25  21 31 32 3d 30 3a 71 25  |q%=24:q%!12=0:q%|
000078a0  21 31 36 3d 32 36 32 33  34 32 3a 71 25 21 32 30  |!16=262342:q%!20|
000078b0  3d 6c 25 3a c8 99 22 57  69 6d 70 5f 53 65 6e 64  |=l%:.."Wimp_Send|
000078c0  4d 65 73 73 61 67 65 22  2c 31 38 2c 71 25 2c 30  |Message",18,q%,0|
000078d0  3a 6a 24 3d 22 22 3a f5  3a f2 67 28 36 31 34 36  |:j$="":.:.g(6146|
000078e0  29 3a fd 6a 24 3c 3e 22  22 3a e7 6a 24 3c 3e 22  |):.j$<>"":.j$<>"|
000078f0  46 69 6c 65 72 22 8c 0d  54 10 09 77 24 3d 22 22  |Filer"..T..w$=""|
00007900  0d 54 24 39 cc 3a 21 71  25 3d 66 25 3a c8 99 22  |.T$9.:!q%=f%:.."|
00007910  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00007920  66 6f 22 2c 2c 71 25 3a  e7 28 71 25 21 36 30 80  |fo",,q%:.(q%!60.|
00007930  32 35 36 29 3d 32 35 36  8c 0d 54 42 10 77 24 3d  |256)=256..TB.w$=|
00007940  a4 61 28 71 25 21 37 36  29 0d 54 56 12 cc 3a 77  |.a(q%!76).TV..:w|
00007950  24 3d a4 61 28 71 25 2b  37 36 29 0d 54 6a 05 cd  |$=.a(q%+76).Tj..|
00007960  0d 54 6a 05 cd 0d 54 74  07 3d 77 24 0d 54 92 51  |.Tj...Tt.=w$.T.Q|
00007970  dd f2 72 28 63 24 2c 45  62 25 29 3a e3 49 25 3d  |..r(c$,Eb%):.I%=|
00007980  31 b8 a9 28 63 24 29 3a  c8 99 22 4f 53 5f 42 50  |1..(c$):.."OS_BP|
00007990  75 74 22 2c 97 28 c1 63  24 2c 49 25 2c 31 29 29  |ut",.(.c$,I%,1))|
000079a0  2c 45 62 25 3a ed 49 25  3a c8 99 22 4f 53 5f 42  |,Eb%:.I%:.."OS_B|
000079b0  50 75 74 22 2c 31 30 2c  45 62 25 3a e1 0d 54 c4  |Put",10,Eb%:..T.|
000079c0  04 0d 54 d8 75 dd f2 6f  28 66 25 2c 68 25 2c 44  |..T.u..o(f%,h%,D|
000079d0  24 29 3a 21 62 25 3d 66  25 3a 62 25 21 34 3d 68  |$):!b%=f%:b%!4=h|
000079e0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
000079f0  6e 53 74 61 74 65 22 2c  2c 62 25 3a 24 28 62 25  |nState",,b%:$(b%|
00007a00  21 33 32 29 3d 22 73 22  2b 44 24 3a 62 25 21 38  |!32)="s"+D$:b%!8|
00007a10  3d 30 3a 62 25 21 31 32  3d 30 3a c8 99 22 57 69  |=0:b%!12=0:.."Wi|
00007a20  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00007a30  2c 2c 62 25 3a e1 0d 55  28 04 0d 55 3c b6 dd a4  |,,b%:..U(..U<...|
00007a40  6b 3a ea 49 25 3a 21 71  25 3d 79 63 25 3a c8 99  |k:.I%:!q%=yc%:..|
00007a50  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00007a60  74 61 74 65 22 2c 2c 71  25 3a e3 49 25 3d 34 b8  |tate",,q%:.I%=4.|
00007a70  31 36 88 34 3a 71 25 21  49 25 3d 28 71 25 21 49  |16.4:q%!I%=(q%!I|
00007a80  25 29 2d 34 30 39 36 3a  ed 49 25 3a 71 25 21 32  |%)-4096:.I%:q%!2|
00007a90  38 3d 2d 32 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-2:.."Wimp_Ope|
00007aa0  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 3a c8 99 22  |nWindow",,q%:.."|
00007ab0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00007ac0  61 74 65 22 2c 2c 71 25  3a 7a 63 25 3d 71 25 21  |ate",,q%:zc%=q%!|
00007ad0  32 38 3a c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |28:.."Wimp_Close|
00007ae0  57 69 6e 64 6f 77 22 2c  2c 71 25 3a 3d 7a 63 25  |Window",,q%:=zc%|
00007af0  0d 55 c8 35 dd a4 6c 28  66 25 29 3a 21 71 25 3d  |.U.5..l(f%):!q%=|
00007b00  66 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |f%:.."Wimp_GetWi|
00007b10  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 25 3a 3d  |ndowState",,q%:=|
00007b20  71 25 21 32 38 0d 55 fa  3b dd a4 68 3a c8 99 22  |q%!28.U.;..h:.."|
00007b30  58 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |XOS_ReadVarVal",|
00007b40  53 25 2b 31 32 38 2c 53  25 2c 32 35 36 2c 30 b8  |S%+128,S%,256,0.|
00007b50  2c 2c 41 63 25 3a 3d c0  24 53 25 2c 41 63 25 29  |,,Ac%:=.$S%,Ac%)|
00007b60  0d 56 22 65 dd f2 6a 3a  71 25 21 36 34 3d 31 3a  |.V"e..j:q%!64=1:|
00007b70  42 63 25 3d 71 25 21 38  2d 21 71 25 3a 43 63 25  |Bc%=q%!8-!q%:Cc%|
00007b80  3d 71 25 21 31 32 2d 71  25 21 34 3a 71 25 3f 36  |=q%!12-q%!4:q%?6|
00007b90  38 3d 42 63 25 83 32 35  36 3a 71 25 3f 36 39 3d  |8=Bc%.256:q%?69=|
00007ba0  42 63 25 81 32 35 36 3a  71 25 3f 37 30 3d 43 63  |Bc%.256:q%?70=Cc|
00007bb0  25 83 32 35 36 3a 71 25  3f 37 31 3d 43 63 25 81  |%.256:q%?71=Cc%.|
00007bc0  32 35 36 3a e1 0d 56 72  04 0d 56 9a 2c dd f2 4f  |256:..Vr..V.,..O|
00007bd0  3a e7 a6 28 2d 32 35 36  29 3d 31 36 31 84 a6 28  |:..(-256)=161..(|
00007be0  2d 32 35 36 29 3d 31 36  30 8c 44 63 25 3d a3 8b  |-256)=160.Dc%=..|
00007bf0  44 63 25 3d b9 0d 56 a4  b8 64 61 25 3d b9 3a 5a  |Dc%=..V..da%=.:Z|
00007c00  25 3d 32 30 30 30 3a 6b  25 3d 31 36 30 3a 7a 24  |%=2000:k%=160:z$|
00007c10  3d 22 31 22 3a 79 62 25  3d 31 32 37 3a 53 61 25  |="1":yb%=127:Sa%|
00007c20  3d 32 35 38 38 2b 28 31  35 31 2a 6b 25 29 3a de  |=2588+(151*k%):.|
00007c30  67 25 20 53 61 25 3a de  71 25 20 38 31 39 32 2c  |g% Sa%:.q% 8192,|
00007c40  62 25 20 32 35 36 2c 5f  25 20 5a 25 2c 75 25 20  |b% 256,_% Z%,u% |
00007c50  31 34 38 2c 43 25 20 32  34 2c 53 25 20 32 35 36  |148,C% 24,S% 256|
00007c60  2c 4c 25 20 32 34 3a de  50 25 20 35 32 2c 41 61  |,L% 24:.P% 52,Aa|
00007c70  25 20 38 2c 45 63 25 20  38 2c 42 61 25 20 38 2c  |% 8,Ec% 8,Ba% 8,|
00007c80  46 63 25 20 38 2c 43 61  25 20 38 3a de 7a 25 20  |Fc% 8,Ca% 8:.z% |
00007c90  31 32 34 2c 69 25 20 31  39 36 2c 44 25 20 31 30  |124,i% 196,D% 10|
00007ca0  30 2c 51 25 20 35 32 2c  52 25 20 35 32 0d 57 08  |0,Q% 52,R% 52.W.|
00007cb0  b2 de 70 25 20 6b 25 2a  31 30 2c 63 25 28 31 32  |..p% k%*10,c%(12|
00007cc0  37 29 2c 61 24 28 39 36  29 2c 61 25 28 39 36 2c  |7),a$(96),a%(96,|
00007cd0  37 29 2c 62 25 28 79 62  25 29 2c 62 24 28 79 62  |7),b%(yb%),b$(yb|
00007ce0  25 29 3a c8 99 22 57 69  6d 70 5f 49 6e 69 74 69  |%):.."Wimp_Initi|
00007cf0  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
00007d00  34 31 35 34 2c 22 4b 65  79 73 44 65 6d 6f 22 b8  |4154,"KeysDemo".|
00007d10  47 63 25 2c 6f 63 25 3a  e7 47 63 25 3c 32 30 30  |Gc%,oc%:.Gc%<200|
00007d20  8c f2 66 28 30 2c 22 54  68 69 73 20 70 72 6f 67  |..f(0,"This prog|
00007d30  72 61 6d 20 77 69 6c 6c  20 6f 6e 6c 79 20 77 6f  |ram will only wo|
00007d40  72 6b 20 6f 6e 20 52 49  53 43 20 4f 53 20 32 2e  |rk on RISC OS 2.|
00007d50  30 30 20 6f 72 20 6c 61  74 65 72 22 2c 32 29 0d  |00 or later",2).|
00007d60  57 26 dc 61 61 25 3d a3  3a 21 71 25 3d 2d 31 3a  |W&.aa%=.:!q%=-1:|
00007d70  71 25 21 34 3d 30 3a 71  25 21 38 3d 30 3a 71 25  |q%!4=0:q%!8=0:q%|
00007d80  21 31 32 3d 36 38 3a 71  25 21 31 36 3d 36 38 3a  |!12=68:q%!16=68:|
00007d90  71 25 21 32 30 3d 31 32  32 39 30 3a 24 28 71 25  |q%!20=12290:$(q%|
00007da0  2b 32 34 29 3d 22 21 4b  65 79 73 64 65 6d 6f 22  |+24)="!Keysdemo"|
00007db0  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |:.."Wimp_CreateI|
00007dc0  63 6f 6e 22 2c 2c 71 25  b8 48 63 25 3a f2 4c 3a  |con",,q%.Hc%:.L:|
00007dd0  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |.."Wimp_OpenTemp|
00007de0  6c 61 74 65 22 2c 2c 22  3c 4b 65 79 73 44 65 6d  |late",,"<KeysDem|
00007df0  6f 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |o$Dir>.Templates|
00007e00  22 3a 45 25 3d 5f 25 3a  c8 99 22 57 69 6d 70 5f  |":E%=_%:.."Wimp_|
00007e10  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00007e20  25 2c 45 25 2c 5f 25 2b  5a 25 2c 2d 31 2c 22 49  |%,E%,_%+Z%,-1,"I|
00007e30  6e 66 6f 22 2c 30 b8 2c  2c 45 25 0d 57 6c cd f2  |nfo",0.,,E%.Wl..|
00007e40  6a 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |j:.."Wimp_Create|
00007e50  57 69 6e 64 6f 77 22 2c  2c 71 25 b8 79 63 25 3a  |Window",,q%.yc%:|
00007e60  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00007e70  6c 61 74 65 22 2c 2c 71  25 2c 45 25 2c 5f 25 2b  |late",,q%,E%,_%+|
00007e80  5a 25 2c 2d 31 2c 22 54  79 70 65 22 2c 30 b8 2c  |Z%,-1,"Type",0.,|
00007e90  2c 45 25 3a f2 6a 3a 21  71 25 3d 28 6b 61 25 2f  |,E%:.j:!q%=(ka%/|
00007ea0  32 29 2d 33 33 38 3a 71  25 21 38 3d 28 6b 61 25  |2)-338:q%!8=(ka%|
00007eb0  2f 32 29 2b 33 33 38 3a  c8 99 22 57 69 6d 70 5f  |/2)+338:.."Wimp_|
00007ec0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
00007ed0  25 b8 65 25 3a c8 99 22  57 69 6d 70 5f 4c 6f 61  |%.e%:.."Wimp_Loa|
00007ee0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 71 25 2c 45  |dTemplate",,q%,E|
00007ef0  25 2c 5f 25 2b 5a 25 2c  2d 31 2c 22 54 65 78 74  |%,_%+Z%,-1,"Text|
00007f00  22 2c 30 b8 2c 2c 45 25  0d 57 94 d3 f2 6a 3a c8  |",0.,,E%.W...j:.|
00007f10  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00007f20  64 6f 77 22 2c 2c 71 25  b8 74 25 3a c8 99 22 57  |dow",,q%.t%:.."W|
00007f30  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00007f40  22 2c 2c 71 25 2c 45 25  2c 5f 25 2b 5a 25 2c 2d  |",,q%,E%,_%+Z%,-|
00007f50  31 2c 22 57 69 6e 64 6f  77 2f 49 63 6f 6e 22 2c  |1,"Window/Icon",|
00007f60  30 b8 2c 2c 45 25 3a f2  6a 3a c8 99 22 57 69 6d  |0.,,E%:.j:.."Wim|
00007f70  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00007f80  2c 71 25 b8 6d 25 3a c8  99 22 57 69 6d 70 5f 4c  |,q%.m%:.."Wimp_L|
00007f90  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 71 25  |oadTemplate",,q%|
00007fa0  2c 45 25 2c 5f 25 2b 5a  25 2c 2d 31 2c 22 43 6c  |,E%,_%+Z%,-1,"Cl|
00007fb0  69 63 6b 22 2c 30 b8 2c  2c 45 25 3a f2 6a 3a c8  |ick",0.,,E%:.j:.|
00007fc0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00007fd0  64 6f 77 22 2c 2c 71 25  b8 4d 25 0d 57 c6 ac c8  |dow",,q%.M%.W...|
00007fe0  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00007ff0  61 74 65 22 2c 2c 71 25  2c 45 25 2c 5f 25 2b 5a  |ate",,q%,E%,_%+Z|
00008000  25 2c 2d 31 2c 22 4d 65  6e 75 73 22 2c 30 b8 2c  |%,-1,"Menus",0.,|
00008010  2c 45 25 3a f2 6a 3a c8  99 22 57 69 6d 70 5f 43  |,E%:.j:.."Wimp_C|
00008020  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00008030  b8 47 25 3a c8 99 22 57  69 6d 70 5f 4c 6f 61 64  |.G%:.."Wimp_Load|
00008040  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 45 25  |Template",,q%,E%|
00008050  2c 5f 25 2b 5a 25 2c 2d  31 2c 22 53 61 76 65 22  |,_%+Z%,-1,"Save"|
00008060  2c 30 b8 2c 2c 45 25 3a  f2 6a 3a c8 99 22 57 69  |,0.,,E%:.j:.."Wi|
00008070  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00008080  2c 2c 71 25 b8 41 25 0d  57 ee e4 c8 99 22 57 69  |,,q%.A%.W...."Wi|
00008090  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000080a0  2c 2c 71 25 2c 45 25 2c  5f 25 2b 5a 25 2c 2d 31  |,,q%,E%,_%+Z%,-1|
000080b0  2c 22 4d 6f 76 65 57 69  6e 64 22 2c 30 b8 2c 2c  |,"MoveWind",0.,,|
000080c0  45 25 3a f2 6a 3a c8 99  22 57 69 6d 70 5f 43 72  |E%:.j:.."Wimp_Cr|
000080d0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 b8  |eateWindow",,q%.|
000080e0  6a 25 3a c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |j%:.."Wimp_LoadT|
000080f0  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 45 25 2c  |emplate",,q%,E%,|
00008100  5f 25 2b 5a 25 2c 2d 31  2c 22 45 6e 74 65 72 22  |_%+Z%,-1,"Enter"|
00008110  2c 30 b8 2c 2c 45 25 3a  f2 6a 3a c8 99 22 57 69  |,0.,,E%:.j:.."Wi|
00008120  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00008130  2c 2c 71 25 b8 77 61 25  3a c8 99 22 57 69 6d 70  |,,q%.wa%:.."Wimp|
00008140  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 3a  |_CloseTemplate":|
00008150  24 75 25 3d 22 4b 65 79  73 44 65 6d 6f 22 3a 75  |$u%="KeysDemo":u|
00008160  25 21 31 32 3d 34 35 39  32 37 31 0d 58 2a b0 75  |%!12=459271.X*.u|
00008170  25 21 31 36 3d 31 35 32  3a 75 25 21 32 30 3d 34  |%!16=152:u%!20=4|
00008180  34 3a 75 25 21 32 34 3d  30 3a 75 25 21 32 38 3d  |4:u%!24=0:u%!28=|
00008190  30 3a 75 25 21 33 32 3d  79 63 25 3a 75 25 21 33  |0:u%!32=yc%:u%!3|
000081a0  36 3d 26 37 30 30 39 30  30 31 3a 24 28 75 25 2b  |6=&7009001:$(u%+|
000081b0  34 30 29 3d 22 49 6e 66  6f 22 3a 75 25 21 35 32  |40)="Info":u%!52|
000081c0  3d 30 3a 75 25 21 35 36  3d 7a 25 3a 75 25 21 36  |=0:u%!56=z%:u%!6|
000081d0  30 3d 26 37 30 30 39 30  30 31 3a 24 28 75 25 2b  |0=&7009001:$(u%+|
000081e0  36 34 29 3d 22 53 61 76  65 22 3a 75 25 21 37 36  |64)="Save":u%!76|
000081f0  3d 32 3a 75 25 21 38 30  3d 44 25 3a 75 25 21 38  |=2:u%!80=D%:u%!8|
00008200  34 3d 26 37 30 30 39 30  30 31 3a 24 28 75 25 2b  |4=&7009001:$(u%+|
00008210  38 38 29 3d 22 50 72 65  66 73 22 0d 58 52 a5 75  |88)="Prefs".XR.u|
00008220  25 21 31 30 30 3d 30 3a  75 25 21 31 30 34 3d 2d  |%!100=0:u%!104=-|
00008230  31 3a 75 25 21 31 30 38  3d 26 37 30 30 39 30 30  |1:u%!108=&700900|
00008240  31 3a 24 28 75 25 2b 31  31 32 29 3d 22 43 6c 65  |1:$(u%+112)="Cle|
00008250  61 72 20 41 6c 6c 22 3a  75 25 21 31 32 34 3d 31  |ar All":u%!124=1|
00008260  32 38 3a 75 25 21 31 32  38 3d 2d 31 3a 75 25 21  |28:u%!128=-1:u%!|
00008270  31 33 32 3d 26 37 30 30  39 30 30 31 3a 24 28 75  |132=&7009001:$(u|
00008280  25 2b 31 33 36 29 3d 22  51 75 69 74 22 3a 24 7a  |%+136)="Quit":$z|
00008290  25 3d 22 53 61 76 65 22  3a 7a 25 21 31 32 3d 34  |%="Save":z%!12=4|
000082a0  35 39 32 37 31 3a 7a 25  21 31 36 3d 31 38 34 3a  |59271:z%!16=184:|
000082b0  7a 25 21 32 30 3d 34 34  3a 7a 25 21 32 34 3d 30  |z%!20=44:z%!24=0|
000082c0  0d 58 7a d6 7a 25 21 32  38 3d 38 3a 7a 25 21 33  |.Xz.z%!28=8:z%!3|
000082d0  32 3d 41 25 3a 7a 25 21  33 36 3d 26 37 30 30 39  |2=A%:z%!36=&7009|
000082e0  30 30 31 3a 24 28 7a 25  2b 34 30 29 3d 22 4b 65  |001:$(z%+40)="Ke|
000082f0  79 73 74 72 6f 6b 65 73  22 3a 7a 25 21 35 32 3d  |ystrokes":z%!52=|
00008300  30 3a 7a 25 21 35 36 3d  2d 31 3a 7a 25 21 36 30  |0:z%!56=-1:z%!60|
00008310  3d 26 37 30 30 39 30 30  31 3a 24 28 7a 25 2b 36  |=&7009001:$(z%+6|
00008320  34 29 3d 22 44 65 66 61  75 6c 74 22 3a 7a 25 21  |4)="Default":z%!|
00008330  37 36 3d 38 3a 7a 25 21  38 30 3d 41 25 3a 7a 25  |76=8:z%!80=A%:z%|
00008340  21 38 34 3d 26 37 30 30  39 30 30 31 3a 24 28 7a  |!84=&7009001:$(z|
00008350  25 2b 38 38 29 3d 22 45  78 65 63 75 74 6f 72 22  |%+88)="Executor"|
00008360  3a 7a 25 21 31 30 30 3d  31 33 36 3a 7a 25 21 31  |:z%!100=136:z%!1|
00008370  30 34 3d 41 25 3a 7a 25  21 31 30 38 3d 26 37 30  |04=A%:z%!108=&70|
00008380  30 39 30 30 31 3a 24 28  7a 25 2b 31 31 32 29 3d  |09001:$(z%+112)=|
00008390  22 4c 69 73 74 22 0d 58  a2 cb 24 69 25 3d 22 45  |"List".X..$i%="E|
000083a0  64 69 74 22 3a 69 25 21  31 32 3d 34 35 39 32 37  |dit":i%!12=45927|
000083b0  31 3a 69 25 21 31 36 3d  31 36 38 3a 69 25 21 32  |1:i%!16=168:i%!2|
000083c0  30 3d 34 34 3a 69 25 21  32 34 3d 30 3a 69 25 21  |0=44:i%!24=0:i%!|
000083d0  32 38 3d 30 3a 69 25 21  33 32 3d 2d 31 3a 69 25  |28=0:i%!32=-1:i%|
000083e0  21 33 36 3d 26 37 30 30  39 30 30 31 3a 24 28 69  |!36=&7009001:$(i|
000083f0  25 2b 34 30 29 3d 22 43  6f 70 79 22 3a 69 25 21  |%+40)="Copy":i%!|
00008400  35 32 3d 30 3a 69 25 21  35 36 3d 2d 31 3a 69 25  |52=0:i%!56=-1:i%|
00008410  21 36 30 3d 26 37 30 30  39 30 30 31 3a 24 28 69  |!60=&7009001:$(i|
00008420  25 2b 36 34 29 3d 22 43  6f 70 79 20 47 72 6f 75  |%+64)="Copy Grou|
00008430  70 22 3a 69 25 21 37 36  3d 30 3a 69 25 21 38 30  |p":i%!76=0:i%!80|
00008440  3d 2d 31 3a 69 25 21 38  34 3d 26 37 30 30 39 30  |=-1:i%!84=&70090|
00008450  30 31 3a 24 28 69 25 2b  38 38 29 3d 22 43 75 74  |01:$(i%+88)="Cut|
00008460  22 0d 58 d4 a7 69 25 21  31 30 30 3d 30 3a 69 25  |".X..i%!100=0:i%|
00008470  21 31 30 34 3d 2d 31 3a  69 25 21 31 30 38 3d 26  |!104=-1:i%!108=&|
00008480  37 30 30 39 30 30 31 3a  24 28 69 25 2b 31 31 32  |7009001:$(i%+112|
00008490  29 3d 22 43 75 74 20 47  72 6f 75 70 22 3a 69 25  |)="Cut Group":i%|
000084a0  21 31 32 34 3d 30 3a 69  25 21 31 32 38 3d 2d 31  |!124=0:i%!128=-1|
000084b0  3a 69 25 21 31 33 32 3d  26 37 30 30 39 30 30 31  |:i%!132=&7009001|
000084c0  3a 24 28 69 25 2b 31 33  36 29 3d 22 50 61 73 74  |:$(i%+136)="Past|
000084d0  65 22 3a 69 25 21 31 34  38 3d 30 3a 69 25 21 31  |e":i%!148=0:i%!1|
000084e0  35 32 3d 2d 31 3a 69 25  21 31 35 36 3d 26 37 30  |52=-1:i%!156=&70|
000084f0  30 39 30 30 31 3a 24 28  69 25 2b 31 36 30 29 3d  |09001:$(i%+160)=|
00008500  22 49 6e 73 65 72 74 22  0d 58 f2 a3 69 25 21 31  |"Insert".X..i%!1|
00008510  37 32 3d 31 33 36 3a 69  25 21 31 37 36 3d 41 25  |72=136:i%!176=A%|
00008520  3a 69 25 21 31 38 30 3d  26 37 30 30 39 30 30 31  |:i%!180=&7009001|
00008530  3a 24 28 69 25 2b 31 38  34 29 3d 22 41 63 74 69  |:$(i%+184)="Acti|
00008540  6f 6e 22 3a 24 44 25 3d  22 50 72 65 66 73 22 3a  |on":$D%="Prefs":|
00008550  44 25 21 31 32 3d 34 35  39 32 37 31 3a 44 25 21  |D%!12=459271:D%!|
00008560  31 36 3d 31 36 38 3a 44  25 21 32 30 3d 34 34 3a  |16=168:D%!20=44:|
00008570  44 25 21 32 34 3d 30 3a  44 25 21 32 38 3d 30 3a  |D%!24=0:D%!28=0:|
00008580  44 25 21 33 32 3d 50 25  3a 44 25 21 33 36 3d 26  |D%!32=P%:D%!36=&|
00008590  37 30 30 39 30 30 31 3a  24 28 44 25 2b 34 30 29  |7009001:$(D%+40)|
000085a0  3d 22 41 75 74 6f 65 78  65 63 22 0d 59 1a c5 44  |="Autoexec".Y..D|
000085b0  25 21 35 32 3d 30 3a 44  25 21 35 36 3d 51 25 3a  |%!52=0:D%!56=Q%:|
000085c0  44 25 21 36 30 3d 26 37  30 30 39 30 30 31 3a 24  |D%!60=&7009001:$|
000085d0  28 44 25 2b 36 34 29 3d  22 56 61 72 69 61 62 6c  |(D%+64)="Variabl|
000085e0  65 22 3a 44 25 21 37 36  3d 31 32 38 3a 44 25 21  |e":D%!76=128:D%!|
000085f0  38 30 3d 52 25 3a 44 25  21 38 34 3d 26 37 30 30  |80=R%:D%!84=&700|
00008600  39 30 30 31 3a 24 28 44  25 2b 38 38 29 3d 22 49  |9001:$(D%+88)="I|
00008610  6e 63 72 65 6d 65 6e 74  22 3a 24 50 25 3d 22 4d  |ncrement":$P%="M|
00008620  69 6e 75 74 65 73 22 3a  50 25 21 31 32 3d 34 35  |inutes":P%!12=45|
00008630  39 32 37 31 3a 50 25 21  31 36 3d 39 36 3a 50 25  |9271:P%!16=96:P%|
00008640  21 32 30 3d 34 34 3a 50  25 21 32 34 3d 30 3a 50  |!20=44:P%!24=0:P|
00008650  25 21 32 38 3d 31 33 32  3a 50 25 21 33 32 3d 2d  |%!28=132:P%!32=-|
00008660  31 3a 50 25 21 33 36 3d  26 37 30 30 39 31 30 31  |1:P%!36=&7009101|
00008670  0d 59 4c e2 50 25 21 34  30 3d 41 61 25 3a 50 25  |.YL.P%!40=Aa%:P%|
00008680  21 34 34 3d 45 63 25 3a  50 25 21 34 38 3d 33 3a  |!44=Ec%:P%!48=3:|
00008690  24 41 61 25 3d 22 31 35  22 3a 24 45 63 25 3d 22  |$Aa%="15":$Ec%="|
000086a0  61 30 2d 39 22 3a 6f 61  25 3d 39 30 30 30 30 3a  |a0-9":oa%=90000:|
000086b0  6e 61 25 3d 91 3a 24 51  25 3d 22 56 61 72 69 61  |na%=.:$Q%="Varia|
000086c0  62 6c 65 22 3a 51 25 21  31 32 3d 34 35 39 32 37  |ble":Q%!12=45927|
000086d0  31 3a 51 25 21 31 36 3d  39 36 3a 51 25 21 32 30  |1:Q%!16=96:Q%!20|
000086e0  3d 34 34 3a 51 25 21 32  34 3d 30 3a 51 25 21 32  |=44:Q%!24=0:Q%!2|
000086f0  38 3d 31 33 32 3a 51 25  21 33 32 3d 2d 31 3a 51  |8=132:Q%!32=-1:Q|
00008700  25 21 33 36 3d 26 37 30  30 39 31 30 31 3a 51 25  |%!36=&7009101:Q%|
00008710  21 34 30 3d 42 61 25 3a  51 25 21 34 34 3d 46 63  |!40=Ba%:Q%!44=Fc|
00008720  25 3a 51 25 21 34 38 3d  38 3a c8 99 22 4f 53 5f  |%:Q%!48=8:.."OS_|
00008730  47 53 54 72 61 6e 73 22  2c 22 3c 4b 65 79 73 74  |GSTrans","<Keyst|
00008740  72 6f 6b 65 25 56 61 72  3e 22 2c 71 25 2c 38 31  |roke%Var>",q%,81|
00008750  39 32 0d 59 92 f0 24 42  61 25 3d a4 61 28 71 25  |92.Y..$Ba%=.a(q%|
00008760  29 3a 24 46 63 25 3d 22  61 30 2d 39 5c 2d 22 3a  |):$Fc%="a0-9\-":|
00008770  24 52 25 3d 22 49 6e 63  72 65 6d 65 6e 74 22 3a  |$R%="Increment":|
00008780  52 25 21 31 32 3d 34 35  39 32 37 31 3a 52 25 21  |R%!12=459271:R%!|
00008790  31 36 3d 39 36 3a 52 25  21 32 30 3d 34 34 3a 52  |16=96:R%!20=44:R|
000087a0  25 21 32 34 3d 30 3a 52  25 21 32 38 3d 31 33 32  |%!24=0:R%!28=132|
000087b0  3a 52 25 21 33 32 3d 2d  31 3a 52 25 21 33 36 3d  |:R%!32=-1:R%!36=|
000087c0  26 37 30 30 39 31 30 31  3a 52 25 21 34 30 3d 43  |&7009101:R%!40=C|
000087d0  61 25 3a 52 25 21 34 34  3d 46 63 25 3a 52 25 21  |a%:R%!44=Fc%:R%!|
000087e0  34 38 3d 38 3a c8 99 22  4f 53 5f 47 53 54 72 61  |48=8:.."OS_GSTra|
000087f0  6e 73 22 2c 22 3c 4b 65  79 73 74 72 6f 6b 65 25  |ns","<Keystroke%|
00008800  49 6e 63 3e 22 2c 43 61  25 2c 38 3a 48 25 3d 32  |Inc>",Ca%,8:H%=2|
00008810  35 38 38 2b 6b 25 3a 42  25 3d 31 33 3a 72 25 3d  |588+k%:B%=13:r%=|
00008820  32 3a f2 49 3a 77 25 3d  a3 3a e3 6d 61 25 3d 30  |2:.I:w%=.:.ma%=0|
00008830  b8 31 32 37 3a f3 63 25  28 6d 61 25 29 3a ed 6d  |.127:.c%(ma%):.m|
00008840  61 25 0d 5a 14 6d e3 6d  61 25 3d 30 b8 39 36 3a  |a%.Z.m.ma%=0.96:|
00008850  f3 61 24 28 6d 61 25 29  3a ed 6d 61 25 3a 49 63  |.a$(ma%):.ma%:Ic|
00008860  25 3d 67 25 2b 31 32 3a  e3 49 25 3d 30 b8 39 36  |%=g%+12:.I%=0.96|
00008870  3a f3 45 24 3a e3 4a 25  3d 30 b8 37 3a e7 c1 45  |:.E$:.J%=0.7:..E|
00008880  24 2c 4a 25 2b 31 2c 31  29 3d 22 31 22 8c 61 25  |$,J%+1,1)="1".a%|
00008890  28 49 25 2c 4a 25 29 3d  49 63 25 3a 49 63 25 2b  |(I%,J%)=Ic%:Ic%+|
000088a0  3d 34 8b 61 25 28 49 25  2c 4a 25 29 3d 2d 31 0d  |=4.a%(I%,J%)=-1.|
000088b0  5a 64 9b ed 4a 25 3a ed  49 25 3a 76 61 25 3d 2d  |Zd..J%:.I%:va%=-|
000088c0  31 3a 55 25 3d 2d 31 3a  6c 24 3d 22 4b 65 79 64  |1:U%=-1:l$="Keyd|
000088d0  65 66 73 22 3a 6f 24 3d  22 4c 69 73 74 22 3a 75  |efs":o$="List":u|
000088e0  24 3d 22 21 45 78 65 63  75 74 6f 72 22 3a 21 70  |$="!Executor":!p|
000088f0  25 3d 2d 31 3a 4a 63 25  3d 32 35 35 3a 67 62 25  |%=-1:Jc%=255:gb%|
00008900  3d 2d 31 35 31 39 36 32  32 35 3a e3 49 25 3d 30  |=-15196225:.I%=0|
00008910  b8 79 62 25 3a 62 24 28  49 25 29 3d 22 22 3a ed  |.yb%:b$(I%)="":.|
00008920  49 25 3a f2 67 61 3a f2  69 3a f2 61 28 65 25 2c  |I%:.ga:.i:.a(e%,|
00008930  31 30 2c 31 3c 3c 32 32  2c b9 29 3a f2 63 3a 4b  |10,1<<22,.):.c:K|
00008940  63 25 3d a3 3a e7 44 63  25 8c 0d 5b 22 2a c8 99  |c%=.:.Dc%..["*..|
00008950  22 4f 53 5f 52 65 61 64  53 79 73 49 6e 66 6f 22  |"OS_ReadSysInfo"|
00008960  2c 32 b8 2c 2c 4b 63 25  3a 4b 63 25 3d 28 4b 63  |,2.,,Kc%:Kc%=(Kc|
00008970  25 3d 31 29 0d 5b 40 05  cd 0d 5b 40 09 e7 4b 63  |%=1).[@...[@..Kc|
00008980  25 8c 0d 5b 4a 2d 61 24  28 35 35 29 3d 22 23 22  |%..[J-a$(55)="#"|
00008990  3a 61 24 28 36 32 29 3d  22 5c 22 3a 63 25 28 39  |:a$(62)="\":c%(9|
000089a0  34 29 3d 36 32 3a 63 25  28 34 36 29 3d 2d 31 0d  |4)=62:c%(46)=-1.|
000089b0  5b 7c 05 cd 0d 5b 7c 0b  64 61 25 3d a3 3a e1 0d  |[|...[|.da%=.:..|
000089c0  5b 90 04 0d 5b b8 35 dc  20 2d 31 2c 2d 31 2c 2d  |[...[.5. -1,-1,-|
000089d0  31 2c 2d 31 2c 2d 31 2c  2d 31 2c 2d 31 2c 2d 31  |1,-1,-1,-1,-1,-1|
000089e0  2c 2d 31 2c 39 34 2c 39  35 2c 39 36 2c 2d 31 2c  |,-1,94,95,96,-1,|
000089f0  2d 31 2c 2d 31 2c 2d 31  0d 5b b8 35 dc 20 32 39  |-1,-1,-1.[.5. 29|
00008a00  2c 34 32 2c 34 33 2c 34  34 2c 20 34 2c 34 37 2c  |,42,43,44, 4,47,|
00008a10  20 37 2c 35 30 2c 34 35  2c 37 35 2c 38 33 2c 38  | 7,50,45,75,83,8|
00008a20  34 2c 31 31 2c 31 32 2c  31 30 2c 2d 31 0d 5b c2  |4,11,12,10,-1.[.|
00008a30  35 dc 20 20 30 2c 33 35  2c 31 37 2c 33 32 2c 34  |5.  0,35,17,32,4|
00008a40  36 2c 32 31 2c 34 38 2c  33 39 2c 35 30 2c 37 36  |6,21,48,39,50,76|
00008a50  2c 38 35 2c 38 36 2c 36  30 2c 36 31 2c 36 32 2c  |,85,86,60,61,62,|
00008a60  36 33 0d 5b cc 35 dc 20  34 30 2c 34 31 2c 31 36  |63.[.5. 40,41,16|
00008a70  2c 33 30 2c 34 35 2c 33  33 2c 32 37 2c 32 38 2c  |,30,45,33,27,28,|
00008a80  35 34 2c 37 33 2c 38 37  2c 38 38 2c 39 33 2c 36  |54,73,87,88,93,6|
00008a90  34 2c 36 35 2c 36 36 0d  5b d6 35 dc 20 2d 31 2c  |4,65,66.[.5. -1,|
00008aa0  31 33 2c 33 36 2c 31 38  2c 33 37 2c 32 32 2c 32  |13,36,18,37,22,2|
00008ab0  33 2c 34 31 2c 35 37 2c  37 31 2c 39 30 2c 2d 31  |3,41,57,71,90,-1|
00008ac0  2c 38 39 2c 2d 31 2c 36  37 2c 36 38 0d 5b e0 35  |,89,-1,67,68.[.5|
00008ad0  dc 20 2d 31 2c 33 31 2c  31 35 2c 31 39 2c 32 30  |. -1,31,15,19,20|
00008ae0  2c 32 36 2c 32 34 2c 35  37 2c 35 36 2c 37 30 2c  |,26,24,57,56,70,|
00008af0  39 31 2c 39 32 2c 2d 31  2c 35 31 2c 2d 31 2c 2d  |91,92,-1,51,-1,-|
00008b00  31 0d 5b ea 35 dc 20 35  39 2c 33 38 2c 36 39 2c  |1.[.5. 59,38,69,|
00008b10  33 34 2c 31 34 2c 32 35  2c 34 39 2c 35 32 2c 35  |34,14,25,49,52,5|
00008b20  33 2c 37 32 2c 37 37 2c  37 38 2c 38 30 2c 2d 31  |3,72,77,78,80,-1|
00008b30  2c 2d 31 2c 2d 31 0d 5b  f4 35 dc 20 35 38 2c 20  |,-1,-1.[.5. 58, |
00008b40  31 2c 20 32 2c 20 33 2c  20 35 2c 20 36 2c 20 38  |1, 2, 3, 5, 6, 8|
00008b50  2c 20 39 2c 35 35 2c 37  34 2c 38 31 2c 38 32 2c  |, 9,55,74,81,82,|
00008b60  37 39 2c 2d 31 2c 2d 31  2c 2d 31 0d 5b fe 04 0d  |79,-1,-1,-1.[...|
00008b70  5c 12 3d dc 20 50 72 69  6e 74 20 28 46 30 29 2c  |\.=. Print (F0),|
00008b80  46 31 2c 46 32 2c 46 33  2c 46 34 2c 46 35 2c 46  |F1,F2,F3,F4,F5,F|
00008b90  36 2c 46 37 2c 46 38 2c  46 39 2c 46 31 30 2c 46  |6,F7,F8,F9,F10,F|
00008ba0  31 31 2c 46 31 32 2c 41  2c 42 2c 43 0d 5c 12 25  |11,F12,A,B,C.\.%|
00008bb0  dc 20 44 2c 45 2c 46 2c  47 2c 48 2c 49 2c 4a 2c  |. D,E,F,G,H,I,J,|
00008bc0  4b 2c 4c 2c 4d 2c 4e 2c  4f 2c 50 2c 51 2c 52 2c  |K,L,M,N,O,P,Q,R,|
00008bd0  53 0d 5c 1c 25 dc 20 54  2c 55 2c 56 2c 57 2c 58  |S.\.%. T,U,V,W,X|
00008be0  2c 59 2c 5a 2c 30 2c 31  2c 32 2c 33 2c 34 2c 35  |,Y,Z,0,1,2,3,4,5|
00008bf0  2c 36 2c 37 2c 38 0d 5c  26 55 dc 20 39 2c 22 2c  |,6,7,8.\&U. 9,",|
00008c00  22 2c 22 2d 22 2c 22 3d  22 2c 22 2e 22 2c 22 2f  |","-","=",".","/|
00008c10  22 2c 22 5b 22 2c 22 5c  22 2c 22 5d 22 2c 22 3b  |","[","\","]",";|
00008c20  22 2c 45 73 63 61 70 65  2c 54 61 62 2c 42 72 65  |",Escape,Tab,Bre|
00008c30  61 6b 2c 42 61 63 6b 20  74 69 63 6b 2c 22 a3 22  |ak,Back tick,"."|
00008c40  2c 42 61 63 6b 20 73 70  61 63 65 0d 5c 30 3f dc  |,Back space.\0?.|
00008c50  20 49 6e 73 65 72 74 2c  48 6f 6d 65 2c 50 61 67  | Insert,Home,Pag|
00008c60  65 20 55 70 2c 50 61 67  65 20 44 6f 77 6e 2c 22  |e Up,Page Down,"|
00008c70  27 22 2c 53 70 61 63 65  20 62 61 72 2c 44 65 6c  |'",Space bar,Del|
00008c80  65 74 65 2c 52 65 74 75  72 6e 0d 5c 3a 50 dc 20  |ete,Return.\:P. |
00008c90  43 6f 70 79 2c 55 70 20  61 72 72 6f 77 2c 52 69  |Copy,Up arrow,Ri|
00008ca0  67 68 74 20 61 72 72 6f  77 2c 4c 65 66 74 20 61  |ght arrow,Left a|
00008cb0  72 72 6f 77 2c 44 6f 77  6e 20 61 72 72 6f 77 2c  |rrow,Down arrow,|
00008cc0  4b 65 79 70 61 64 20 30  2c 4b 65 79 70 61 64 20  |Keypad 0,Keypad |
00008cd0  31 2c 4b 65 79 70 61 64  20 32 0d 5c 44 4d dc 20  |1,Keypad 2.\DM. |
00008ce0  4b 65 79 70 61 64 20 33  2c 4b 65 79 70 61 64 20  |Keypad 3,Keypad |
00008cf0  34 2c 4b 65 79 70 61 64  20 35 2c 4b 65 79 70 61  |4,Keypad 5,Keypa|
00008d00  64 20 36 2c 4b 65 79 70  61 64 20 37 2c 4b 65 79  |d 6,Keypad 7,Key|
00008d10  70 61 64 20 38 2c 4b 65  79 70 61 64 20 39 2c 4b  |pad 8,Keypad 9,K|
00008d20  65 79 70 61 64 20 2b 0d  5c 4e 52 dc 20 4b 65 79  |eypad +.\NR. Key|
00008d30  70 61 64 20 2d 2c 4b 65  79 70 61 64 20 2e 2c 4b  |pad -,Keypad .,K|
00008d40  65 79 70 61 64 20 2f 2c  4b 65 79 70 61 64 20 23  |eypad /,Keypad #|
00008d50  2c 4b 65 79 70 61 64 20  2a 2c 4b 65 79 70 61 64  |,Keypad *,Keypad|
00008d60  20 45 6e 74 65 72 2c 53  65 6c 65 63 74 2c 4d 65  | Enter,Select,Me|
00008d70  6e 75 2c 41 64 6a 75 73  74 0d 5c 58 04 0d 5c 6c  |nu,Adjust.\X..\l|
00008d80  4d dc 20 31 31 31 31 31  31 31 31 2c 31 31 31 31  |M. 11111111,1111|
00008d90  31 31 31 31 2c 31 31 31  31 31 31 31 31 2c 31 31  |1111,11111111,11|
00008da0  31 31 31 31 31 31 2c 31  31 31 31 31 31 31 31 2c  |111111,11111111,|
00008db0  31 31 31 31 31 31 31 31  2c 31 31 31 31 31 31 31  |11111111,1111111|
00008dc0  31 2c 31 31 31 31 31 31  31 31 0d 5c 6c 4d dc 20  |1,11111111.\lM. |
00008dd0  31 31 31 31 31 31 31 31  2c 31 31 31 31 31 31 31  |11111111,1111111|
00008de0  31 2c 31 31 31 31 31 31  31 31 2c 31 31 31 31 31  |1,11111111,11111|
00008df0  31 31 31 2c 31 31 31 31  31 31 31 31 2c 30 30 31  |111,11111111,001|
00008e00  31 31 31 31 31 2c 30 30  31 31 31 31 31 31 2c 30  |11111,00111111,0|
00008e10  30 31 31 31 31 31 31 0d  5c 76 4d dc 20 30 30 31  |0111111.\vM. 001|
00008e20  31 31 31 31 31 2c 30 30  31 31 31 31 31 31 2c 30  |11111,00111111,0|
00008e30  30 31 31 31 31 31 31 2c  30 30 31 31 31 31 31 31  |0111111,00111111|
00008e40  2c 30 30 31 31 31 31 31  31 2c 30 30 31 31 31 31  |,00111111,001111|
00008e50  31 31 2c 30 30 31 31 31  31 31 31 2c 30 30 31 31  |11,00111111,0011|
00008e60  31 31 31 31 0d 5c 80 4d  dc 20 30 30 31 31 31 31  |1111.\.M. 001111|
00008e70  31 31 2c 30 30 31 31 31  31 31 31 2c 30 30 31 31  |11,00111111,0011|
00008e80  31 31 31 31 2c 30 30 31  31 31 31 31 31 2c 30 30  |1111,00111111,00|
00008e90  31 31 31 31 31 31 2c 30  30 31 31 31 31 31 31 2c  |111111,00111111,|
00008ea0  30 30 31 31 31 31 31 31  2c 30 30 31 31 31 31 31  |00111111,0011111|
00008eb0  31 0d 5c 8a 4d dc 20 30  30 31 31 31 31 31 31 2c  |1.\.M. 00111111,|
00008ec0  30 30 31 31 31 31 31 31  2c 30 30 31 31 31 31 31  |00111111,0011111|
00008ed0  31 2c 30 30 31 31 31 31  31 31 2c 30 30 31 31 31  |1,00111111,00111|
00008ee0  31 31 31 2c 30 30 31 31  31 31 31 31 2c 30 30 31  |111,00111111,001|
00008ef0  31 31 31 31 31 2c 30 30  31 31 31 31 31 31 0d 5c  |11111,00111111.\|
00008f00  94 4d dc 20 30 30 31 31  31 31 31 31 2c 30 30 31  |.M. 00111111,001|
00008f10  31 31 31 31 31 2c 30 30  31 31 31 31 31 31 2c 30  |11111,00111111,0|
00008f20  30 31 31 31 31 31 31 2c  30 30 31 31 31 31 31 31  |0111111,00111111|
00008f30  2c 30 30 31 31 31 31 31  31 2c 30 30 31 31 31 31  |,00111111,001111|
00008f40  31 31 2c 30 30 31 31 31  31 31 31 0d 5c 9e 4d dc  |11,00111111.\.M.|
00008f50  20 30 30 31 31 31 31 31  31 2c 30 30 31 31 31 31  | 00111111,001111|
00008f60  31 31 2c 30 30 31 31 31  31 31 31 2c 30 30 31 31  |11,00111111,0011|
00008f70  31 31 31 31 2c 30 30 31  31 31 31 31 31 2c 30 30  |1111,00111111,00|
00008f80  31 31 31 31 31 31 2c 30  30 31 31 31 31 31 31 2c  |111111,00111111,|
00008f90  30 30 31 31 31 31 31 31  0d 5c a8 4d dc 20 30 30  |00111111.\.M. 00|
00008fa0  31 31 31 31 31 31 2c 30  30 31 31 31 31 31 31 2c  |111111,00111111,|
00008fb0  31 31 31 31 31 31 31 31  2c 31 31 31 31 31 31 31  |11111111,1111111|
00008fc0  31 2c 31 30 30 30 31 30  30 30 2c 30 30 31 31 31  |1,10001000,00111|
00008fd0  31 31 31 2c 30 30 31 31  31 31 31 31 2c 30 30 31  |111,00111111,001|
00008fe0  31 31 31 31 31 0d 5c b2  4d dc 20 31 31 31 31 31  |11111.\.M. 11111|
00008ff0  31 31 31 2c 31 31 31 31  31 31 31 31 2c 31 31 31  |111,11111111,111|
00009000  31 31 31 31 31 2c 31 31  31 31 31 31 31 31 2c 30  |11111,11111111,0|
00009010  30 31 31 31 31 31 31 2c  30 30 31 31 31 31 31 31  |0111111,00111111|
00009020  2c 30 30 31 31 31 31 31  31 2c 30 30 31 31 31 31  |,00111111,001111|
00009030  31 31 0d 5c bc 4d dc 20  30 30 31 31 31 31 31 31  |11.\.M. 00111111|
00009040  2c 31 31 31 31 31 31 31  31 2c 31 31 31 31 31 31  |,11111111,111111|
00009050  31 31 2c 31 31 31 31 31  31 31 31 2c 31 31 31 31  |11,11111111,1111|
00009060  31 31 31 31 2c 30 31 31  31 31 31 31 31 2c 30 31  |1111,01111111,01|
00009070  31 31 31 31 31 31 2c 30  31 31 31 31 31 31 31 0d  |111111,01111111.|
00009080  5c c6 4d dc 20 30 31 31  31 31 31 31 31 2c 30 31  |\.M. 01111111,01|
00009090  31 31 31 31 31 31 2c 30  31 31 31 31 31 31 31 2c  |111111,01111111,|
000090a0  30 31 31 31 31 31 31 31  2c 30 31 31 31 31 31 31  |01111111,0111111|
000090b0  31 2c 30 31 31 31 31 31  31 31 2c 30 31 31 31 31  |1,01111111,01111|
000090c0  31 31 31 2c 30 31 31 31  31 31 31 31 0d 5c d0 56  |111,01111111.\.V|
000090d0  dc 20 30 31 31 31 31 31  31 31 2c 30 31 31 31 31  |. 01111111,01111|
000090e0  31 31 31 2c 30 31 31 31  31 31 31 31 2c 30 31 31  |111,01111111,011|
000090f0  31 31 31 31 31 2c 30 31  31 31 31 31 31 31 2c 30  |11111,01111111,0|
00009100  31 31 31 31 31 31 31 2c  30 31 31 31 31 31 31 31  |1111111,01111111|
00009110  2c 30 31 31 31 31 31 31  31 2c 30 31 31 31 31 31  |,01111111,011111|
00009120  31 31 0d ff                                       |11..|
00009124