Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/Slide/!SlideShow/!Help/!Runimage
!AWFeb95/Goodies/Slide/!SlideShow/!Help/!Runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 |
| Filename: | !AWFeb95/Goodies/Slide/!SlideShow/!Help/!Runimage |
| Read OK: | ✔ |
| File size: | 2527 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94 » !AWSept94/Goodies/Ray3D/!Help+/!Runimage
- Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/Slide/!SlideShow/!Help/!Runimage
File contents
1
2b$="!Help+":n$="v1.00 (23 Jan 1993)":aa%=100::SYS"Hourglass_On":PROCm:PROCn("Help text displayer","(C) Robert Taylor"):SYS"Hourglass_Off"::ONERRORPROCo(ERR,REPORT$,ERL)
11g%=0:PROCa("contents"):REPEAT:SYS"Wimp_Poll",,b%TOd:CASE(d)OF
15WHEN1:PROCp(!b%)
17WHEN2:PROCg
18WHEN3:PROCb(!b%)
19WHEN6:PROCq(b%)
20WHEN8:PROCr(!b%,b%!4,b%!24)
21WHEN9:PROCs
22WHEN17,18:PROCt(b%!16)
23ENDCASE
23UNTILba%:PROCc:END
26DEFPROCm:DIMb% 4096,ca% 2048:DIMy% 256:DIMda% 1024:ea%=da%+1024:DIMr% 4000:DIMfa% 2000:DIMb$(50):g%=0:b$(0)="contents":DIMga% 255:DIMha% 10:DIMS% 1024:DIMia% 80*80:DIMa$(77):SYS"OS_File",16,"<Help2$Dir>.code",S%,0:$ha%="R1":ja%=804:i$="":e=S%+104:f=S%+328
48b=S%+364:ka%=0:la%=0::SYS"Wimp_Initialise",200,&4B534154,b$TO,ma%:PROCu:PROCv:PROCw:ba%=0:J%=0:u%=-1:na%=0:PROCx:PROCd("<Help2$Dir>.Help_On.!Help+"):ENDPROC
61DEFPROCn(o$,q$):PROCe(T%,4,b$):PROCe(T%,2,o$):PROCe(T%,5,q$):PROCe(T%,6,n$):ENDPROC
68DEFPROCo(a,d$,c)
71*CLOSE
71SYS"Hourglass_Smash":SYS"Wimp_CreateMenu",-1::CASEaOF
75WHEN1:d$=b$+" has suffered a fatal error ("+STR$(c):d$+=") and must exit immediately.":!b%=a:$(b%+4)=d$:SYS"Wimp_ReportError",b%,1,b$TO,N%:PROCc
82WHEN17:!b%=a:$(b%+4)=d$:SYS"Wimp_ReportError",b%,1,b$TO,N%:IFd$="Warning: Unequal number of @ symbols."THENPROCc
85OTHERWISE:d$+=" ("+STR$(c)+"). OK to continue, CANCEL to quit.":!b%=a:$(b%+4)=d$:SYS"Wimp_ReportError",b%,3,b$TO,N%:IFN%=2THENPROCc
90ENDCASE
91ENDPROC
92DEFPROCp(W%):LOCALoa%,pa%,U%,V%,qa%:!b%=W%:SYS"Wimp_RedrawWindow",,b%TOoa%:pa%=4+b%!4-b%!20:U%=b%!16-b%!24-4:WHILEoa%:IFW%=o%THEN
99IFna%THEN
100PROCh(12):RECTANGLEFILLpa%+O%-4,U%-ra%,sa%*16+8,36
103ENDIF
103PROCh(7):V%=(U%-b%!40)DIV40:qa%=(U%-b%!32)DIV40:IFV%>K%-1V%=K%-1
107IFqa%>K%-1qa%=K%-1
108D%=!(r%+V%*4):E%=!(r%+qa%*4+4):B%=pa%:C%=U%-(V%*40)-4:CALLe
114ENDIF
114SYS"Wimp_GetRectangle",,b%TOoa%:ENDWHILE:ENDPROC
117DEFPROCg:IF!b%=o%THEN
120PROCy(o%,ta%,0,0)
122ELSE:SYS"Wimp_OpenWindow",,b%
124ENDIF
124ENDPROC
125DEFPROCq(b%):LOCALua%,I%,A$,W%,N%,va%:I%=b%!16:W%=b%!12:N%=b%!8:CASEN%OF
130WHEN2:IFW%=-2THENva%=372ELSEva%=b%!4
132wa%=1:PROCi(" "+b$+" ","Info,Help On,Open root,Search,Print page,Quit,",!b%,va%)
134WHEN1:IFW%=-2THEN
134PROCf(k%):SYS"Wimp_SetCaretPosition",k%,0,0,0,-1,LEN(FNb(k%,0))
137ENDIF
137WHEN4:IFW%=-2THEN
139PROCf(o%)
141ENDIF
141IFI%<>-1THENPROCz(W%,I%)
142ENDCASE
143ENDPROC
144DEFPROCr(W%,I%,C%):LOCALA:IFC%=13ANDW%=k%THEN
148xa%=h%:PROCj(FNb(k%,0))
151ENDIF
151SYS"Wimp_ProcessKey",C%:ENDPROC
153DEFPROCs:LOCALN:IFwa%=1THEN
157CASE!b%OF
158WHEN1:IFb%!4<>-1THEN
159N=FNe(h%):PROCb(k%):PROCd("<Help2$Dir>.Help_On."+a$(1+b%!4)):g%=0:PROCa("contents")
164ENDIF
164WHEN2:g%=0:PROCa("contents")
167WHEN3:PROCf(k%):SYS"Wimp_SetCaretPosition",k%,0,0,0,-1,LEN(FNb(k%,0))
169WHEN4:PROCA
170WHEN5:ba%=-1
171ENDCASE
171ELSE:IFb%!0<>-1THEN
173N=FNe(h%):PROCb(k%):PROCd("<Help2$Dir>.Help_On."+a$(1+b%!0)):g%=0:PROCa("contents")
178ENDIF
178ENDIF
179ENDPROC
180DEFPROCt(M%):LOCALA$,C$,N,e$,p$:CASEM%OF
184WHEN0:ba%=-1
186WHEN39168:C$="":N=20:REPEAT:C$=C$+CHR$(b%?N):N+=1:UNTILb%?N=13:e$=LEFT$(C$,INSTR(C$,"@")-1):p$=RIGHT$(C$,LEN(C$)-INSTR(C$,"@")):IFFNc(e$)<>FNc(i$)THENg%=0:PROCd("<Help2$Dir>.Help_On."+e$)
190IFFNc(e$)=FNc(i$)THEN
191N=FNa("@page:"+p$+"@",h%,h%+J%):IFN<>0THENg%=1:b$(1)=p$:PROCa(p$)
193ENDIF
194ENDCASE
195ENDPROC
196DEFPROCu:SYS"Wimp_OpenTemplate",,"<Help2$Dir>.Templates":T%=FNd("info"):o%=FNd("main"):k%=FNd("search"):ta%=FNd("bar"):SYS"Wimp_CloseTemplate":ENDPROC
205DEFPROCv:b%!0=-1:b%!4=0:b%!8=0:b%!12=64:b%!16=64:b%!20=385888266:$(b%+24)=b$:SYS"Wimp_CreateIcon",,b%:ENDPROC
214DEFPROCx:LOCALf%,Z%,a$,X:SYS"OS_GBPB",10,"<Help2$Dir>.Help_On",b%,77,0,4096,"*"TO,,,ya%:a$()="":f%=b%:za%=ya%:X=1:WHILEza%>0:a$="":Z%=20:WHILEf%?Z%<>0:a$+=CHR$(f%?Z%):Z%+=1:ENDWHILE:IF((f%!0>>8)AND4095)=248THENa$(X)=a$:X+=1
226f%+=((Z%+4)DIV4)*4:za%-=1:ENDWHILE:ENDPROC
230DEFPROCz(W%,I%):LOCALAa%,A,Ba%,a$,p$,p%:CASEW%OF
234WHENo%:IFI%<Ca%THEN
236g%+=1:IFg%>50THENg%=50:ERROR17,"Cannot store a reference to the last page"
238p$="":p%=!(fa%+I%*4):WHILE?p%<>58:p$+=CHR$?p%:p%+=1:ENDWHILE:b$(g%)=p$:PROCa(p$)
243ENDIF
243WHENk%:IFI%=2THENPROCb(k%)
245IFI%=1THENPROCj(FNb(k%,0))
246WHENta%:CASEI%OF
248WHEN0:g%=0:PROCa("contents")
250WHEN1:g%+=1:b$(g%)="glossary":PROCa("glossary")
251WHEN2:IFg%>0THEN
251g%-=1:PROCa(b$(g%))
253ELSE:VDU7
254ENDIF
255WHEN3:PROCf(k%):SYS"Wimp_SetCaretPosition",k%,0,0,0,-1,LEN(FNb(k%,0))
258WHEN4:wa%=2:PROCi(" Help on ","@@,",b%!0,b%!4)
259ENDCASE
259ENDCASE
260ENDPROC
261DEFPROCd(f$):LOCALd%,C:C=OPENIN(f$):CLOSE#C:IFC=0THENENDPROC
266i$=FNh(f$):SYS"Hourglass_On":SYS"OS_File",17,f$TO,,,,J%:h%=FNi(J%):SYS"OS_File",16,f$,h%,0:v%=h%+J%:B%=h%:C%=v%:d%=USR(b):IFd%MOD2=1THENERROR17,"Warning: Unequal number of @ symbols."
274IFv%?-1<>10?v%=10:v%+=1:?v%=10
275C%=h%:B%=v%:CALLf:v%?-1=13
280ENDIF
280xa%=h%:Da%=h%+J%:d%=FNa("@page:glossary@",h%,h%+J%):IFd%=0THENb%!8=1<<22ELSEb%!8=0
284b%!0=ta%:b%!4=1:b%!12=1<<22:SYS"Wimp_SetIconState",,b%:SYS"Hourglass_Off":ENDPROC
290DEFFNd(a$):SYS"Wimp_LoadTemplate",,b%,da%,ea%,-1,a$,0TO,,da%,,,,P%:SYS"Wimp_CreateWindow",,b%TOEa%:=Ea%
301DEFPROCa(a$):LOCALN,s%,e%,_%,c$,f%:SYS"Hourglass_On":na%=0:IFu%<>-1THEN
305FORN=0TOu%-1:!b%=o%:b%!4=N:SYS"Wimp_DeleteIcon",,b%:NEXT
309ENDIF
309N=FNa("@page:"+a$+"@",h%,h%+J%):IFN=0THENERROR17,"Cannot find page. ("+a$+")"
314i%=(N)+6+LEN(a$):REPEAT:i%+=1:c$=c$+CHR$(?i%):UNTIL?i%=13:i%+=1:s%=i%:ka%=s%:v%=FNa("@end@",i%,h%+J%):e%=v%:la%=e%:K%=0:Fa%=r%:WHILEi%<v%:!Fa%=i%:Fa%+=4:K%+=1:IFFa%>r%+4000THENERROR1,"Too many lines"
327WHILE?i%<>13:i%+=1:ENDWHILE:i%+=1:ENDWHILE:!Fa%=v%:!b%=o%:SYS"Wimp_GetWindowInfo",,b%:ja%=-(b%!8-b%!16):_%=K%*40+84:IF_%<ja%THEN_%=ja%
337!b%=o%:b%!4=0:b%!8=-_%:b%!12=1236:b%!16=0:SYS"Wimp_SetExtent",o%,b%+4:SYS"Wimp_CloseWindow",,b%:SYS"Wimp_GetWindowInfo",,b%:$(b%!76)=c$:b%!20=0:b%!24=0:b%!28=-1:PROCg:SYS"Wimp_ForceRedraw",o%,0,-_%,1236,0
347u%=0:i%=s%:PROCB:Ca%=u%:i%=s%:PROCC:SYS"Hourglass_Off":ENDPROC
354DEFFNa(g$,Ga%,Ha%):LOCALN:IFg$=""THENERROR17,"Nothing to search for."
358FORN=1TOLEN(g$):?(ga%-1+N)=ASC(MID$(g$,N,1))OR32:NEXT:A%=b%:B%=Ha%:C%=Ga%:E%=ga%-1:F%=LEN(g$):CALLS%:=!b%
370DEFPROCB:LOCALN,Ia%,t$,w%,c%,x%:REPEAT:x%=FNa("@goto:",i%,e%):IFx%<>0THEN
374j%=x%:l%=0:t$="":FORN=0TOK%-1:IF!(r%+N*4)<=j%THENl%=N
378NEXT:w%=0:c%=!(r%+l%*4)-1:WHILEc%<j%-1:c%+=1:w%+=1:IF?c%=64THEN
383IF(32ORc%?1)=103THEN
384c%+=6:REPEAT:c%+=1:UNTIL?c%=58:w%+=1:REPEAT:w%+=1:c%+=1:UNTIL?c%=64:c%+=1
387ELSE:REPEAT:c%+=1:UNTIL?c%=64:c%+=1
389ENDIF
389ENDIF
390ENDWHILE:!(fa%+u%*4)=j%+6:j%+=6:REPEAT:j%+=1:UNTIL?j%=58:t$="":j%+=1:REPEAT:t$=t$+CHR$(?j%):j%+=1:UNTIL?j%=64:PROCD(o%,t$,w%*16+8,-(40+l%*40),LEN(t$)*16+24,40,335556893):u%+=1
397ENDIF
397i%=x%+1:UNTILx%=0:ENDPROC
400DEFPROCC:LOCALN,Ia%,t$,w%,c%,x%:REPEAT:x%=FNa("@sprite:",i%,e%):IFx%<>0THEN
406j%=x%:l%=0:t$="":FORN=0TOK%-1:IF!(r%+N*4)<=j%THENl%=N
409NEXT:w%=-1:c%=!(r%+l%*4)-1:WHILEc%<j%:c%+=1:w%+=1:IF?c%=64THEN
414IF(32ORc%?1)=103THEN
415c%+=6:REPEAT:c%+=1:UNTIL?c%=58:w%+=1:REPEAT:w%+=1:c%+=1:UNTIL?c%=64:c%+=1
418ELSE:REPEAT:c%+=1:UNTIL?c%=64:c%+=1
420ENDIF
420ENDIF
421ENDWHILE:j%+=8:REPEAT:t$=t$+CHR$(?j%):j%+=1:UNTIL?j%=64:SYS"Wimp_SpriteOp",256+40,,t$TO,,,Ja%,Ka%:!b%=o%:b%!4=w%*16+4:b%!8=-40-l%*40:b%!12=(b%!4)+Ja%*2:b%!16=(b%!8)+Ka%*4:b%!20=385888538:b%!28=1:b%!32=LEN(S$)+1:b%!24=ia%+u%*80
427$(ia%+u%*80)=t$:SYS"Wimp_CreateIcon",,b%TOI%:u%+=1
430ENDIF
430i%=x%+1:UNTILx%=0:ENDPROC
433DEFPROCj(k$):LOCALN,z%,d%:REPEAT:z%=FNa(k$,xa%,Da%):IFz%<>0THEN
439B%=h%:C%=z%-1:d%=USR(b):xa%=z%+1
443ENDIF
443UNTILd%MOD2=0ORz%=0:IFz%<>0THEN
445PROCE(z%):IFz%>!r%THENPROCF
447ELSE:VDU7
449ENDIF
450ENDPROC
451DEFPROCE(La%):LOCALh$,N,d%,`%:d%=FNa("@page:",h%,La%):IFd%=0THENVDU7:ENDPROC
456`%=d%:h$="":WHILE`%<>0:d%=`%:`%=FNa("@page:",`%+1,La%):ENDWHILE:d%+=6:WHILE?d%<>64:h$+=CHR$?d%:d%+=1:ENDWHILE:g%+=1:IFg%>50THENg%=50:ERROR17,"Cannot store a reference to the last page"
466b$(g%)=h$:PROCa(h$):ENDPROC
469DEFPROCF:LOCALN,d%,Ma%:na%=-1:sa%=LEN(k$):ra%=-44:N=-1:REPEAT:ra%+=40:N+=1:UNTILz%<!(r%+N*4):d%=!(r%-4+N*4):O%=0:WHILEd%<z%:IF?d%=64THEN
477IF(32ORd%?1)=103THEN
478d%+=6:REPEAT:d%+=1:UNTIL?d%=58:O%+=1:REPEAT:O%+=1:d%+=1:UNTIL?d%=64:d%+=1
481ELSE:REPEAT:d%+=1:UNTIL?d%=64:d%+=1
483ENDIF
483ENDIF
484O%+=1:d%+=1:ENDWHILE:O%=O%*16:Ma%=(b%!16-b%!8)-40:!b%=o%:SYS"Wimp_GetWindowInfo",,b%:b%!24=((-ra%+40)DIVMa%)*Ma%:SYS"Wimp_OpenWindow",,b%:ENDPROC
492DEFPROCA:LOCALNa%,m%,Q%:VDU2
496m%=ka%:REPEAT:Q%=?m%:IFQ%=64THEN
500Q%=(m%?1)OR32:IFCHR$(Q%)="g"THEN
502REPEAT:m%+=1:UNTIL?m%=58:REPEAT:m%+=1:UNTIL?m%=58:m%+=1:REPEAT:PRINTCHR$(?m%);:m%+=1:UNTIL?m%=64
507ELSE:REPEAT:m%+=1:UNTIL?m%=64
509ENDIF
509ELSE:IFQ%=13THENPRINTELSEPRINTCHR$(Q%);
511ENDIF
512m%+=1:UNTILm%>=la%:VDU3
515ENDPROC
516DEFPROCw:LOCALt%:SYS"OS_ReadMemMapInfo"TOOa%:G%=Oa%:SYS"Wimp_SlotSize",-1,-1TOt%:q%=t%+32768:SYS"Wimp_SlotSize",q%+G%-32768,-1:SYS"OS_Heap",0,q%,,G%:ENDPROC
525DEFFNi(Pa%):LOCALa%:SYS"XOS_Heap",2,q%,,Pa%TO,,a%:IFa%<>0THEN=a%
530IFFNf(Pa%)=FALSETHEN=0
531SYS"XOS_Heap",2,q%,,Pa%TO,,a%:PROCk:IFa%=0THENERROR1,"Cannot claim enough free memory."
534=a%
537DEFFNj(Qa%,Ra%):LOCALn%,f%,t%:SYS"XOS_Heap",4,q%,Qa%,Ra%TO,,n%;f%:IF(f%AND1)=0THEN=n%
540SYS"OS_Heap",6,q%,Qa%TO,,,t%:IFFNf(t%+Ra%)=FALSETHEN=0
542SYS"XOS_Heap",4,q%,Qa%,Ra%TO,,n%;f%:IF(f%AND1)=0THEN=n%
544=0
547DEFFNe(Qa%):SYS"OS_Heap",3,q%,Qa%:PROCk:=0
552DEFFNf(Pa%):LOCALs%,f%:s%=FNg(G%+Pa%):SYS"XWimp_SlotSize",q%+s%-32768,-1TO;f%:IF(f%AND1)=1THEN=FALSE
556SYS"OS_Heap",5,q%,,s%-G%:G%=s%:=TRUE
561DEFPROCk:LOCALs%,t%:s%=G%:SYS"XOS_Heap",5,q%,,-s%TO,,,t%:IFt%=-s%THENt%=s%
565G%=FNg(G%-t%):SYS"XOS_Heap",5,q%,,G%-(s%-t%):SYS"Wimp_SlotSize",q%+G%-32768,-1:ENDPROC
569DEFFNg(s%):LOCALt%:IF(s%MODOa%)<>0THEN
573t%=Oa%-(s%MODOa%):s%+=t%
576ENDIF
576=s%
579DEFFNk:LOCALt%:SYS"OS_Heap",1,q%TO,,t%:=t%
584DEFPROCi(c$,m$,X%,Y%):PROCl(ca%,c$,m$):SYS"Wimp_CreateMenu",,ca%,X%-ca%!16/2,Y%:A$="No printer":SYS655680,,,,,A$TO,,,,A$:ENDPROC
588DEFPROCl(M%,c$,m$):LOCALI%,R%,Sa%,r%,Ta%,N,X:Ta%=128:$M%=c$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:R%=LEN(c$)-2:REPEAT:A%=INSTR(m$,","):$(I%+12)=LEFT$(m$,A%-1):m$=MID$(m$,A%+1):IFA%>R%R%=A%
597!I%=0:I%!4=0::CASE$(I%+12)OF
600WHEN"Info":I%!4=T%
602WHEN"Help On":I%!4=ca%+200:PROCl(I%!4," Help On ","@@,")
604WHEN"@@":X=1:REPEAT:$(I%+12)=a$(X):IFLEN(a$(X))+1>R%THENR%=LEN(a$(X))+1
607!I%=0:I%!4=0:I%!8=&7000021:X+=1:IFa$(X)<>""THENI%+=24
610UNTILa$(X)=""
612ENDCASE
612:I%!8=&7000021:IF$(I%+12)="Extended"THENI%!8=&7400021
615I%+=24:UNTILm$="":!(I%-24)=Ta%:M%!16=R%*16:ENDPROC
619DEFPROCh(A):SYS"Wimp_SetColour",A:ENDPROC
624DEFPROCf(W%):!b%=W%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:PROCg:ENDPROC
629DEFFNb(Ua%,Va%):b%!0=Ua%:b%!4=Va%:SYS"Wimp_GetIconState",,b%:=$(b%!28)
636DEFPROCe(W%,I%,S$):b%!0=W%:b%!4=I%:SYS"Wimp_GetIconState",,b%:$(b%!28)=S$:b%!8=0:b%!12=0:SYS"Wimp_SetIconState",,b%:ENDPROC
642DEFPROCb(!b%):LOCALX,Y,Z:MOUSEX,Y,Z:IFZ<>1THEN
647SYS"Wimp_CloseWindow",,b%:IF!b%=o%THEN!b%=ta%:SYS"Wimp_CloseWindow",,b%
649ELSE:IFg%>0THEN
651g%-=1:PROCa(b$(g%))
653ELSE:VDU7
654ENDIF
655ENDIF
656ENDPROC
657DEFFNh(j$):LOCALF$,N:N=LEN(j$):WHILEMID$(j$,N,1)<>"."ANDN>0:F$=MID$(j$,N,1)+F$:N-=1:ENDWHILE:=F$
666DEFPROCc
667*CLOSE
667SYS"Hourglass_Smash":SYS"Wimp_CloseDown":END
670ENDPROC
671DEFPROCD(!b%,l$,L%,B%,W%,H%,b%!20):b%!4=L%:b%!8=B%:b%!12=L%+W%:b%!16=B%+H%:b%!24=ia%+u%*80:b%!28=ha%:b%!32=LEN(l$)+1:$(ia%+u%*80)=l$:SYS"Wimp_CreateIcon",,b%TOI%:ENDPROC
683DEFPROCy(Wa%,Xa%,Ya%,Za%):!y%=Xa%:SYS"Wimp_GetWindowState",,y%:y%!28=b%!28:y%!12=b%!12:y%!16=y%!16-y%!8+b%!8+Za%:y%!4=b%!4+Ya%:y%!8=b%!8+Za%:SYS"Wimp_OpenWindow",,y%:b%!28=Xa%:SYS"Wimp_OpenWindow",,b%:ENDPROC
696DEFFNc(A$):LOCALN,C,B$:IFA$=""THEN=""
700B$="":FORN=1TOLEN(A$):B$+=CHR$(ASC(MID$(A$,N,1))OR32):NEXT:=B$
�b$="!Help+":n$="v1.00 (23 Jan 1993)":aa%=100::ș"Hourglass_On":�m:�n("Help text displayer","(C) Robert Taylor"):ș"Hourglass_Off"::��o(�,�$,�)
4g%=0:�a("contents"):�:ș"Wimp_Poll",,b%�d:Ȏ(d)�
�1:�p(!b%)
�2:�g
�3:�b(!b%)
�6:�q(b%)
�8:�r(!b%,b%!4,b%!24)
�9:�s
�17,18:�t(b%!16)
�
�ba%:�c:�
���m:�b% 4096,ca% 2048:�y% 256:�da% 1024:ea%=da%+1024:�r% 4000:�fa% 2000:�b$(50):g%=0:b$(0)="contents":�ga% 255:�ha% 10:�S% 1024:�ia% 80*80:�a$(77):ș"OS_File",16,"<Help2$Dir>.code",S%,0:$ha%="R1":ja%=804:i$="":e=S%+104:f=S%+328
0�b=S%+364:ka%=0:la%=0::ș"Wimp_Initialise",200,&4B534154,b$�,ma%:�u:�v:�w:ba%=0:J%=0:u%=-1:na%=0:�x:�d("<Help2$Dir>.Help_On.!Help+"):�
=@��n(o$,q$):�e(T%,4,b$):�e(T%,2,o$):�e(T%,5,q$):�e(T%,6,n$):�
D��o(a,d$,c)
G
*CLOSE
G4ș"Hourglass_Smash":ș"Wimp_CreateMenu",-1::Ȏa�
K��1:d$=b$+" has suffered a fatal error ("+�(c):d$+=") and must exit immediately.":!b%=a:$(b%+4)=d$:ș"Wimp_ReportError",b%,1,b$�,N%:�c
Rh�17:!b%=a:$(b%+4)=d$:ș"Wimp_ReportError",b%,1,b$�,N%:�d$="Warning: Unequal number of @ symbols."��c
Us:d$+=" ("+�(c)+"). OK to continue, CANCEL to quit.":!b%=a:$(b%+4)=d$:ș"Wimp_ReportError",b%,3,b$�,N%:�N%=2��c
Z�
[�
\s��p(W%):�oa%,pa%,U%,V%,qa%:!b%=W%:ș"Wimp_RedrawWindow",,b%�oa%:pa%=4+b%!4-b%!20:U%=b%!16-b%!24-4:ȕoa%:�W%=o%�
c �na%�
d*�h(12):ȓȐpa%+O%-4,U%-ra%,sa%*16+8,36
g�
g<�h(7):V%=(U%-b%!40)�40:qa%=(U%-b%!32)�40:�V%>K%-1V%=K%-1
k�qa%>K%-1qa%=K%-1
l<D%=!(r%+V%*4):E%=!(r%+qa%*4+4):B%=pa%:C%=U%-(V%*40)-4:�e
r�
r%ș"Wimp_GetRectangle",,b%�oa%:�:�
u��g:�!b%=o%�
x�y(o%,ta%,0,0)
z �:ș"Wimp_OpenWindow",,b%
|�
|�
}@��q(b%):�ua%,I%,A$,W%,N%,va%:I%=b%!16:W%=b%!12:N%=b%!8:ȎN%�
� �2:�W%=-2�va%=372�va%=b%!4
�Swa%=1:�i(" "+b$+" ","Info,Help On,Open root,Search,Print page,Quit,",!b%,va%)
��1:�W%=-2�
�<�f(k%):ș"Wimp_SetCaretPosition",k%,0,0,0,-1,�(�b(k%,0))
��
��4:�W%=-2�
�
�f(o%)
��
��I%<>-1��z(W%,I%)
��
��
�"��r(W%,I%,C%):�A:�C%=13�W%=k%�
�xa%=h%:�j(�b(k%,0))
��
� ș"Wimp_ProcessKey",C%:�
���s:�N:�wa%=1�
�
Ȏ!b%�
��1:�b%!4<>-1�
�MN=�e(h%):�b(k%):�d("<Help2$Dir>.Help_On."+a$(1+b%!4)):g%=0:�a("contents")
��
��2:g%=0:�a("contents")
�?�3:�f(k%):ș"Wimp_SetCaretPosition",k%,0,0,0,-1,�(�b(k%,0))
� �4:�A
�
�5:ba%=-1
��
��:�b%!0<>-1�
�MN=�e(h%):�b(k%):�d("<Help2$Dir>.Help_On."+a$(1+b%!0)):g%=0:�a("contents")
��
��
��
� ��t(M%):�A$,C$,N,e$,p$:ȎM%�
�
�0:ba%=-1
���39168:C$="":N=20:�:C$=C$+�(b%?N):N+=1:�b%?N=13:e$=�C$,�C$,"@")-1):p$=�C$,�(C$)-�C$,"@")):�c(e$)<>�c(i$)�g%=0:�d("<Help2$Dir>.Help_On."+e$)
��c(e$)=�c(i$)�
�=N=�a("@page:"+p$+"@",h%,h%+J%):�N<>0�g%=1:b$(1)=p$:�a(p$)
��
��
��
ĉ��u:ș"Wimp_OpenTemplate",,"<Help2$Dir>.Templates":T%=�d("info"):o%=�d("main"):k%=�d("search"):ta%=�d("bar"):ș"Wimp_CloseTemplate":�
�e��v:b%!0=-1:b%!4=0:b%!8=0:b%!12=64:b%!16=64:b%!20=385888266:$(b%+24)=b$:ș"Wimp_CreateIcon",,b%:�
����x:�f%,Z%,a$,X:ș"OS_GBPB",10,"<Help2$Dir>.Help_On",b%,77,0,4096,"*"�,,,ya%:a$()="":f%=b%:za%=ya%:X=1:ȕza%>0:a$="":Z%=20:ȕf%?Z%<>0:a$+=�(f%?Z%):Z%+=1:�:�((f%!0>>8)�4095)=248�a$(X)=a$:X+=1
� f%+=((Z%+4)�4)*4:za%-=1:�:�
�(��z(W%,I%):�Aa%,A,Ba%,a$,p$,p%:ȎW%�
��o%:�I%<Ca%�
�Fg%+=1:�g%>50�g%=50:�17,"Cannot store a reference to the last page"
�Dp$="":p%=!(fa%+I%*4):ȕ?p%<>58:p$+=�?p%:p%+=1:�:b$(g%)=p$:�a(p$)
��
��k%:�I%=2��b(k%)
��I%=1��j(�b(k%,0))
��ta%:ȎI%�
��0:g%=0:�a("contents")
�-�1:g%+=1:b$(g%)="glossary":�a("glossary")
�
�2:�g%>0�
�g%-=1:�a(b$(g%))
��:�7
��
�?�3:�f(k%):ș"Wimp_SetCaretPosition",k%,0,0,0,-1,�(�b(k%,0))
,�4:wa%=2:�i(" Help on ","@@,",b%!0,b%!4)
�
�
�
$��d(f$):�d%,C:C=�(f$):�#C:�C=0��
�i$=�h(f$):ș"Hourglass_On":ș"OS_File",17,f$�,,,,J%:h%=�i(J%):ș"OS_File",16,f$,h%,0:v%=h%+J%:B%=h%:C%=v%:d%=�(b):�d%�2=1��17,"Warning: Unequal number of @ symbols."
!�v%?-1<>10?v%=10:v%+=1:?v%=10
C%=h%:B%=v%:�f:v%?-1=13
�
Nxa%=h%:Da%=h%+J%:d%=�a("@page:glossary@",h%,h%+J%):�d%=0�b%!8=1<<22�b%!8=0
Mb%!0=ta%:b%!4=1:b%!12=1<<22:ș"Wimp_SetIconState",,b%:ș"Hourglass_Off":�
"dݤd(a$):ș"Wimp_LoadTemplate",,b%,da%,ea%,-1,a$,0�,,da%,,,,P%:ș"Wimp_CreateWindow",,b%�Ea%:=Ea%
-=��a(a$):�N,s%,e%,_%,c$,f%:ș"Hourglass_On":na%=0:�u%<>-1�
15�N=0�u%-1:!b%=o%:b%!4=N:ș"Wimp_DeleteIcon",,b%:�
5�
5HN=�a("@page:"+a$+"@",h%,h%+J%):�N=0��17,"Cannot find page. ("+a$+")"
:�i%=(N)+6+�(a$):�:i%+=1:c$=c$+�(?i%):�?i%=13:i%+=1:s%=i%:ka%=s%:v%=�a("@end@",i%,h%+J%):e%=v%:la%=e%:K%=0:Fa%=r%:ȕi%<v%:!Fa%=i%:Fa%+=4:K%+=1:�Fa%>r%+4000��1,"Too many lines"
Gtȕ?i%<>13:i%+=1:�:i%+=1:�:!Fa%=v%:!b%=o%:ș"Wimp_GetWindowInfo",,b%:ja%=-(b%!8-b%!16):_%=K%*40+84:�_%<ja%�_%=ja%
Q�!b%=o%:b%!4=0:b%!8=-_%:b%!12=1236:b%!16=0:ș"Wimp_SetExtent",o%,b%+4:ș"Wimp_CloseWindow",,b%:ș"Wimp_GetWindowInfo",,b%:$(b%!76)=c$:b%!20=0:b%!24=0:b%!28=-1:�g:ș"Wimp_ForceRedraw",o%,0,-_%,1236,0
[5u%=0:i%=s%:�B:Ca%=u%:i%=s%:�C:ș"Hourglass_Off":�
b:ݤa(g$,Ga%,Ha%):�N:�g$=""��17,"Nothing to search for."
fY�N=1��(g$):?(ga%-1+N)=�(�g$,N,1))�32:�:A%=b%:B%=Ha%:C%=Ga%:E%=ga%-1:F%=�(g$):�S%:=!b%
r:��B:�N,Ia%,t$,w%,c%,x%:�:x%=�a("@goto:",i%,e%):�x%<>0�
v2j%=x%:l%=0:t$="":�N=0�K%-1:�!(r%+N*4)<=j%�l%=N
z9�:w%=0:c%=!(r%+l%*4)-1:ȕc%<j%-1:c%+=1:w%+=1:�?c%=64�
�(32�c%?1)=103�
�;c%+=6:�:c%+=1:�?c%=58:w%+=1:�:w%+=1:c%+=1:�?c%=64:c%+=1
��:�:c%+=1:�?c%=64:c%+=1
��
��
���:!(fa%+u%*4)=j%+6:j%+=6:�:j%+=1:�?j%=58:t$="":j%+=1:�:t$=t$+�(?j%):j%+=1:�?j%=64:�D(o%,t$,w%*16+8,-(40+l%*40),�(t$)*16+24,40,335556893):u%+=1
��
�i%=x%+1:�x%=0:�
�<��C:�N,Ia%,t$,w%,c%,x%:�:x%=�a("@sprite:",i%,e%):�x%<>0�
�2j%=x%:l%=0:t$="":�N=0�K%-1:�!(r%+N*4)<=j%�l%=N
�8�:w%=-1:c%=!(r%+l%*4)-1:ȕc%<j%:c%+=1:w%+=1:�?c%=64�
��(32�c%?1)=103�
�;c%+=6:�:c%+=1:�?c%=58:w%+=1:�:w%+=1:c%+=1:�?c%=64:c%+=1
��:�:c%+=1:�?c%=64:c%+=1
��
��
���:j%+=8:�:t$=t$+�(?j%):j%+=1:�?j%=64:ș"Wimp_SpriteOp",256+40,,t$�,,,Ja%,Ka%:!b%=o%:b%!4=w%*16+4:b%!8=-40-l%*40:b%!12=(b%!4)+Ja%*2:b%!16=(b%!8)+Ka%*4:b%!20=385888538:b%!28=1:b%!32=�(S$)+1:b%!24=ia%+u%*80
�4$(ia%+u%*80)=t$:ș"Wimp_CreateIcon",,b%�I%:u%+=1
��
�i%=x%+1:�x%=0:�
�0��j(k$):�N,z%,d%:�:z%=�a(k$,xa%,Da%):�z%<>0�
�"B%=h%:C%=z%-1:d%=�(b):xa%=z%+1
��
��d%�2=0�z%=0:�z%<>0�
��E(z%):�z%>!r%��F
��:�7
��
��
�:��E(La%):�h$,N,d%,`%:d%=�a("@page:",h%,La%):�d%=0��7:�
Ȝ`%=d%:h$="":ȕ`%<>0:d%=`%:`%=�a("@page:",`%+1,La%):�:d%+=6:ȕ?d%<>64:h$+=�?d%:d%+=1:�:g%+=1:�g%>50�g%=50:�17,"Cannot store a reference to the last page"
�b$(g%)=h$:�a(h$):�
�q��F:�N,d%,Ma%:na%=-1:sa%=�(k$):ra%=-44:N=-1:�:ra%+=40:N+=1:�z%<!(r%+N*4):d%=!(r%-4+N*4):O%=0:ȕd%<z%:�?d%=64�
��(32�d%?1)=103�
�;d%+=6:�:d%+=1:�?d%=58:O%+=1:�:O%+=1:d%+=1:�?d%=64:d%+=1
��:�:d%+=1:�?d%=64:d%+=1
��
��
�O%+=1:d%+=1:�:O%=O%*16:Ma%=(b%!16-b%!8)-40:!b%=o%:ș"Wimp_GetWindowInfo",,b%:b%!24=((-ra%+40)�Ma%)*Ma%:ș"Wimp_OpenWindow",,b%:�
���A:�Na%,m%,Q%:�2
�m%=ka%:�:Q%=?m%:�Q%=64�
� Q%=(m%?1)�32:�(Q%)="g"�
�B�:m%+=1:�?m%=58:�:m%+=1:�?m%=58:m%+=1:�:�(?m%);:m%+=1:�?m%=64
��:�:m%+=1:�?m%=64
��
��:�Q%=13���(Q%);
��
m%+=1:�m%>=la%:�3
�
���w:�t%:ș"OS_ReadMemMapInfo"�Oa%:G%=Oa%:ș"Wimp_SlotSize",-1,-1�t%:q%=t%+32768:ș"Wimp_SlotSize",q%+G%-32768,-1:ș"OS_Heap",0,q%,,G%:�
7ݤi(Pa%):�a%:ș"XOS_Heap",2,q%,,Pa%�,,a%:�a%<>0�=a%
�f(Pa%)=��=0
Nș"XOS_Heap",2,q%,,Pa%�,,a%:�k:�a%=0��1,"Cannot claim enough free memory."
=a%
Jݤj(Qa%,Ra%):�n%,f%,t%:ș"XOS_Heap",4,q%,Qa%,Ra%�,,n%;f%:�(f%�1)=0�=n%
/ș"OS_Heap",6,q%,Qa%�,,,t%:�f(t%+Ra%)=��=0
3ș"XOS_Heap",4,q%,Qa%,Ra%�,,n%;f%:�(f%�1)=0�=n%
=0
#'ݤe(Qa%):ș"OS_Heap",3,q%,Qa%:�k:=0
(Tݤf(Pa%):�s%,f%:s%=�g(G%+Pa%):ș"XWimp_SlotSize",q%+s%-32768,-1�;f%:�(f%�1)=1�=�
,$ș"OS_Heap",5,q%,,s%-G%:G%=s%:=�
1?��k:�s%,t%:s%=G%:ș"XOS_Heap",5,q%,,-s%�,,,t%:�t%=-s%�t%=s%
5QG%=�g(G%-t%):ș"XOS_Heap",5,q%,,G%-(s%-t%):ș"Wimp_SlotSize",q%+G%-32768,-1:�
9 ݤg(s%):�t%:�(s%�Oa%)<>0�
=t%=Oa%-(s%�Oa%):s%+=t%
@�
@=s%
C%ݤk:�t%:ș"OS_Heap",1,q%�,,t%:=t%
Hs��i(c$,m$,X%,Y%):�l(ca%,c$,m$):ș"Wimp_CreateMenu",,ca%,X%-ca%!16/2,Y%:A$="No printer":ș655680,,,,,A$�,,,,A$:�
L���l(M%,c$,m$):�I%,R%,Sa%,r%,Ta%,N,X:Ta%=128:$M%=c$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:R%=�(c$)-2:�:A%=�m$,","):$(I%+12)=�m$,A%-1):m$=�m$,A%+1):�A%>R%R%=A%
U !I%=0:I%!4=0::Ȏ$(I%+12)�
X�"Info":I%!4=T%
Z6�"Help On":I%!4=ca%+200:�l(I%!4," Help On ","@@,")
\;�"@@":X=1:�:$(I%+12)=a$(X):�(a$(X))+1>R%�R%=�(a$(X))+1
_5!I%=0:I%!4=0:I%!8=&7000021:X+=1:�a$(X)<>""�I%+=24
b
�a$(X)=""
d�
d5:I%!8=&7000021:�$(I%+12)="Extended"�I%!8=&7400021
g,I%+=24:�m$="":!(I%-24)=Ta%:M%!16=R%*16:�
k!��h(A):ș"Wimp_SetColour",A:�
p<��f(W%):!b%=W%:ș"Wimp_GetWindowState",,b%:b%!28=-1:�g:�
uFݤb(Ua%,Va%):b%!0=Ua%:b%!4=Va%:ș"Wimp_GetIconState",,b%:=$(b%!28)
|r��e(W%,I%,S$):b%!0=W%:b%!4=I%:ș"Wimp_GetIconState",,b%:$(b%!28)=S$:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�
�"��b(!b%):�X,Y,Z:ȗX,Y,Z:�Z<>1�
�Eș"Wimp_CloseWindow",,b%:�!b%=o%�!b%=ta%:ș"Wimp_CloseWindow",,b%
� �:�g%>0�
�g%-=1:�a(b$(g%))
��:�7
��
��
��
�Gݤh(j$):�F$,N:N=�(j$):ȕ�j$,N,1)<>"."�N>0:F$=�j$,N,1)+F$:N-=1:�:=F$
���c
�
*CLOSE
�,ș"Hourglass_Smash":ș"Wimp_CloseDown":�
��
����D(!b%,l$,L%,B%,W%,H%,b%!20):b%!4=L%:b%!8=B%:b%!12=L%+W%:b%!16=B%+H%:b%!24=ia%+u%*80:b%!28=ha%:b%!32=�(l$)+1:$(ia%+u%*80)=l$:ș"Wimp_CreateIcon",,b%�I%:�
����y(Wa%,Xa%,Ya%,Za%):!y%=Xa%:ș"Wimp_GetWindowState",,y%:y%!28=b%!28:y%!12=b%!12:y%!16=y%!16-y%!8+b%!8+Za%:y%!4=b%!4+Ya%:y%!8=b%!8+Za%:ș"Wimp_OpenWindow",,y%:b%!28=Xa%:ș"Wimp_OpenWindow",,b%:�
� ݤc(A$):�N,C,B$:�A$=""�=""
�0B$="":�N=1��(A$):B$+=�(�(�A$,N,1))�32):�:=B$
� 00000000 0d 00 01 04 0d 00 02 93 62 24 3d 22 21 48 65 6c |........b$="!Hel|
00000010 70 2b 22 3a 6e 24 3d 22 76 31 2e 30 30 20 28 32 |p+":n$="v1.00 (2|
00000020 33 20 4a 61 6e 20 31 39 39 33 29 22 3a 61 61 25 |3 Jan 1993)":aa%|
00000030 3d 31 30 30 3a 3a c8 99 22 48 6f 75 72 67 6c 61 |=100::.."Hourgla|
00000040 73 73 5f 4f 6e 22 3a f2 6d 3a f2 6e 28 22 48 65 |ss_On":.m:.n("He|
00000050 6c 70 20 74 65 78 74 20 64 69 73 70 6c 61 79 65 |lp text displaye|
00000060 72 22 2c 22 28 43 29 20 52 6f 62 65 72 74 20 54 |r","(C) Robert T|
00000070 61 79 6c 6f 72 22 29 3a c8 99 22 48 6f 75 72 67 |aylor"):.."Hourg|
00000080 6c 61 73 73 5f 4f 66 66 22 3a 3a ee 85 f2 6f 28 |lass_Off"::...o(|
00000090 9f 2c f6 24 2c 9e 29 0d 00 0b 34 67 25 3d 30 3a |.,.$,.)...4g%=0:|
000000a0 f2 61 28 22 63 6f 6e 74 65 6e 74 73 22 29 3a f5 |.a("contents"):.|
000000b0 3a c8 99 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 2c |:.."Wimp_Poll",,|
000000c0 62 25 b8 64 3a c8 8e 28 64 29 ca 0d 00 0f 0e c9 |b%.d:..(d)......|
000000d0 31 3a f2 70 28 21 62 25 29 0d 00 11 09 c9 32 3a |1:.p(!b%).....2:|
000000e0 f2 67 0d 00 12 0e c9 33 3a f2 62 28 21 62 25 29 |.g.....3:.b(!b%)|
000000f0 0d 00 13 0d c9 36 3a f2 71 28 62 25 29 0d 00 14 |.....6:.q(b%)...|
00000100 19 c9 38 3a f2 72 28 21 62 25 2c 62 25 21 34 2c |..8:.r(!b%,b%!4,|
00000110 62 25 21 32 34 29 0d 00 15 09 c9 39 3a f2 73 0d |b%!24).....9:.s.|
00000120 00 16 14 c9 31 37 2c 31 38 3a f2 74 28 62 25 21 |....17,18:.t(b%!|
00000130 31 36 29 0d 00 17 05 cb 0d 00 17 0d fd 62 61 25 |16)..........ba%|
00000140 3a f2 63 3a e0 0d 00 1a e7 dd f2 6d 3a de 62 25 |:.c:.......m:.b%|
00000150 20 34 30 39 36 2c 63 61 25 20 32 30 34 38 3a de | 4096,ca% 2048:.|
00000160 79 25 20 32 35 36 3a de 64 61 25 20 31 30 32 34 |y% 256:.da% 1024|
00000170 3a 65 61 25 3d 64 61 25 2b 31 30 32 34 3a de 72 |:ea%=da%+1024:.r|
00000180 25 20 34 30 30 30 3a de 66 61 25 20 32 30 30 30 |% 4000:.fa% 2000|
00000190 3a de 62 24 28 35 30 29 3a 67 25 3d 30 3a 62 24 |:.b$(50):g%=0:b$|
000001a0 28 30 29 3d 22 63 6f 6e 74 65 6e 74 73 22 3a de |(0)="contents":.|
000001b0 67 61 25 20 32 35 35 3a de 68 61 25 20 31 30 3a |ga% 255:.ha% 10:|
000001c0 de 53 25 20 31 30 32 34 3a de 69 61 25 20 38 30 |.S% 1024:.ia% 80|
000001d0 2a 38 30 3a de 61 24 28 37 37 29 3a c8 99 22 4f |*80:.a$(77):.."O|
000001e0 53 5f 46 69 6c 65 22 2c 31 36 2c 22 3c 48 65 6c |S_File",16,"<Hel|
000001f0 70 32 24 44 69 72 3e 2e 63 6f 64 65 22 2c 53 25 |p2$Dir>.code",S%|
00000200 2c 30 3a 24 68 61 25 3d 22 52 31 22 3a 6a 61 25 |,0:$ha%="R1":ja%|
00000210 3d 38 30 34 3a 69 24 3d 22 22 3a 65 3d 53 25 2b |=804:i$="":e=S%+|
00000220 31 30 34 3a 66 3d 53 25 2b 33 32 38 0d 00 30 89 |104:f=S%+328..0.|
00000230 62 3d 53 25 2b 33 36 34 3a 6b 61 25 3d 30 3a 6c |b=S%+364:ka%=0:l|
00000240 61 25 3d 30 3a 3a c8 99 22 57 69 6d 70 5f 49 6e |a%=0::.."Wimp_In|
00000250 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 26 34 |itialise",200,&4|
00000260 42 35 33 34 31 35 34 2c 62 24 b8 2c 6d 61 25 3a |B534154,b$.,ma%:|
00000270 f2 75 3a f2 76 3a f2 77 3a 62 61 25 3d 30 3a 4a |.u:.v:.w:ba%=0:J|
00000280 25 3d 30 3a 75 25 3d 2d 31 3a 6e 61 25 3d 30 3a |%=0:u%=-1:na%=0:|
00000290 f2 78 3a f2 64 28 22 3c 48 65 6c 70 32 24 44 69 |.x:.d("<Help2$Di|
000002a0 72 3e 2e 48 65 6c 70 5f 4f 6e 2e 21 48 65 6c 70 |r>.Help_On.!Help|
000002b0 2b 22 29 3a e1 0d 00 3d 40 dd f2 6e 28 6f 24 2c |+"):...=@..n(o$,|
000002c0 71 24 29 3a f2 65 28 54 25 2c 34 2c 62 24 29 3a |q$):.e(T%,4,b$):|
000002d0 f2 65 28 54 25 2c 32 2c 6f 24 29 3a f2 65 28 54 |.e(T%,2,o$):.e(T|
000002e0 25 2c 35 2c 71 24 29 3a f2 65 28 54 25 2c 36 2c |%,5,q$):.e(T%,6,|
000002f0 6e 24 29 3a e1 0d 00 44 0f dd f2 6f 28 61 2c 64 |n$):...D...o(a,d|
00000300 24 2c 63 29 0d 00 47 0a 2a 43 4c 4f 53 45 0d 00 |$,c)..G.*CLOSE..|
00000310 47 34 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 |G4.."Hourglass_S|
00000320 6d 61 73 68 22 3a c8 99 22 57 69 6d 70 5f 43 72 |mash":.."Wimp_Cr|
00000330 65 61 74 65 4d 65 6e 75 22 2c 2d 31 3a 3a c8 8e |eateMenu",-1::..|
00000340 61 ca 0d 00 4b 89 c9 31 3a 64 24 3d 62 24 2b 22 |a...K..1:d$=b$+"|
00000350 20 68 61 73 20 73 75 66 66 65 72 65 64 20 61 20 | has suffered a |
00000360 66 61 74 61 6c 20 65 72 72 6f 72 20 28 22 2b c3 |fatal error ("+.|
00000370 28 63 29 3a 64 24 2b 3d 22 29 20 61 6e 64 20 6d |(c):d$+=") and m|
00000380 75 73 74 20 65 78 69 74 20 69 6d 6d 65 64 69 61 |ust exit immedia|
00000390 74 65 6c 79 2e 22 3a 21 62 25 3d 61 3a 24 28 62 |tely.":!b%=a:$(b|
000003a0 25 2b 34 29 3d 64 24 3a c8 99 22 57 69 6d 70 5f |%+4)=d$:.."Wimp_|
000003b0 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 62 25 2c |ReportError",b%,|
000003c0 31 2c 62 24 b8 2c 4e 25 3a f2 63 0d 00 52 68 c9 |1,b$.,N%:.c..Rh.|
000003d0 31 37 3a 21 62 25 3d 61 3a 24 28 62 25 2b 34 29 |17:!b%=a:$(b%+4)|
000003e0 3d 64 24 3a c8 99 22 57 69 6d 70 5f 52 65 70 6f |=d$:.."Wimp_Repo|
000003f0 72 74 45 72 72 6f 72 22 2c 62 25 2c 31 2c 62 24 |rtError",b%,1,b$|
00000400 b8 2c 4e 25 3a e7 64 24 3d 22 57 61 72 6e 69 6e |.,N%:.d$="Warnin|
00000410 67 3a 20 55 6e 65 71 75 61 6c 20 6e 75 6d 62 65 |g: Unequal numbe|
00000420 72 20 6f 66 20 40 20 73 79 6d 62 6f 6c 73 2e 22 |r of @ symbols."|
00000430 8c f2 63 0d 00 55 73 7f 3a 64 24 2b 3d 22 20 28 |..c..Us.:d$+=" (|
00000440 22 2b c3 28 63 29 2b 22 29 2e 20 4f 4b 20 74 6f |"+.(c)+"). OK to|
00000450 20 63 6f 6e 74 69 6e 75 65 2c 20 43 41 4e 43 45 | continue, CANCE|
00000460 4c 20 74 6f 20 71 75 69 74 2e 22 3a 21 62 25 3d |L to quit.":!b%=|
00000470 61 3a 24 28 62 25 2b 34 29 3d 64 24 3a c8 99 22 |a:$(b%+4)=d$:.."|
00000480 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 |Wimp_ReportError|
00000490 22 2c 62 25 2c 33 2c 62 24 b8 2c 4e 25 3a e7 4e |",b%,3,b$.,N%:.N|
000004a0 25 3d 32 8c f2 63 0d 00 5a 05 cb 0d 00 5b 05 e1 |%=2..c..Z....[..|
000004b0 0d 00 5c 73 dd f2 70 28 57 25 29 3a ea 6f 61 25 |..\s..p(W%):.oa%|
000004c0 2c 70 61 25 2c 55 25 2c 56 25 2c 71 61 25 3a 21 |,pa%,U%,V%,qa%:!|
000004d0 62 25 3d 57 25 3a c8 99 22 57 69 6d 70 5f 52 65 |b%=W%:.."Wimp_Re|
000004e0 64 72 61 77 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 |drawWindow",,b%.|
000004f0 6f 61 25 3a 70 61 25 3d 34 2b 62 25 21 34 2d 62 |oa%:pa%=4+b%!4-b|
00000500 25 21 32 30 3a 55 25 3d 62 25 21 31 36 2d 62 25 |%!20:U%=b%!16-b%|
00000510 21 32 34 2d 34 3a c8 95 6f 61 25 3a e7 57 25 3d |!24-4:..oa%:.W%=|
00000520 6f 25 8c 0d 00 63 09 e7 6e 61 25 8c 0d 00 64 2a |o%...c..na%...d*|
00000530 f2 68 28 31 32 29 3a c8 93 c8 90 70 61 25 2b 4f |.h(12):....pa%+O|
00000540 25 2d 34 2c 55 25 2d 72 61 25 2c 73 61 25 2a 31 |%-4,U%-ra%,sa%*1|
00000550 36 2b 38 2c 33 36 0d 00 67 05 cd 0d 00 67 3c f2 |6+8,36..g....g<.|
00000560 68 28 37 29 3a 56 25 3d 28 55 25 2d 62 25 21 34 |h(7):V%=(U%-b%!4|
00000570 30 29 81 34 30 3a 71 61 25 3d 28 55 25 2d 62 25 |0).40:qa%=(U%-b%|
00000580 21 33 32 29 81 34 30 3a e7 56 25 3e 4b 25 2d 31 |!32).40:.V%>K%-1|
00000590 56 25 3d 4b 25 2d 31 0d 00 6b 15 e7 71 61 25 3e |V%=K%-1..k..qa%>|
000005a0 4b 25 2d 31 71 61 25 3d 4b 25 2d 31 0d 00 6c 3c |K%-1qa%=K%-1..l<|
000005b0 44 25 3d 21 28 72 25 2b 56 25 2a 34 29 3a 45 25 |D%=!(r%+V%*4):E%|
000005c0 3d 21 28 72 25 2b 71 61 25 2a 34 2b 34 29 3a 42 |=!(r%+qa%*4+4):B|
000005d0 25 3d 70 61 25 3a 43 25 3d 55 25 2d 28 56 25 2a |%=pa%:C%=U%-(V%*|
000005e0 34 30 29 2d 34 3a d6 65 0d 00 72 05 cd 0d 00 72 |40)-4:.e..r....r|
000005f0 25 c8 99 22 57 69 6d 70 5f 47 65 74 52 65 63 74 |%.."Wimp_GetRect|
00000600 61 6e 67 6c 65 22 2c 2c 62 25 b8 6f 61 25 3a ce |angle",,b%.oa%:.|
00000610 3a e1 0d 00 75 10 dd f2 67 3a e7 21 62 25 3d 6f |:...u...g:.!b%=o|
00000620 25 8c 0d 00 78 12 f2 79 28 6f 25 2c 74 61 25 2c |%...x..y(o%,ta%,|
00000630 30 2c 30 29 0d 00 7a 1d cc 3a c8 99 22 57 69 6d |0,0)..z..:.."Wim|
00000640 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 |p_OpenWindow",,b|
00000650 25 0d 00 7c 05 cd 0d 00 7c 05 e1 0d 00 7d 40 dd |%..|....|....}@.|
00000660 f2 71 28 62 25 29 3a ea 75 61 25 2c 49 25 2c 41 |.q(b%):.ua%,I%,A|
00000670 24 2c 57 25 2c 4e 25 2c 76 61 25 3a 49 25 3d 62 |$,W%,N%,va%:I%=b|
00000680 25 21 31 36 3a 57 25 3d 62 25 21 31 32 3a 4e 25 |%!16:W%=b%!12:N%|
00000690 3d 62 25 21 38 3a c8 8e 4e 25 ca 0d 00 82 1e c9 |=b%!8:..N%......|
000006a0 32 3a e7 57 25 3d 2d 32 8c 76 61 25 3d 33 37 32 |2:.W%=-2.va%=372|
000006b0 8b 76 61 25 3d 62 25 21 34 0d 00 84 53 77 61 25 |.va%=b%!4...Swa%|
000006c0 3d 31 3a f2 69 28 22 20 20 22 2b 62 24 2b 22 20 |=1:.i(" "+b$+" |
000006d0 20 22 2c 22 49 6e 66 6f 2c 48 65 6c 70 20 4f 6e | ","Info,Help On|
000006e0 2c 4f 70 65 6e 20 72 6f 6f 74 2c 53 65 61 72 63 |,Open root,Searc|
000006f0 68 2c 50 72 69 6e 74 20 70 61 67 65 2c 51 75 69 |h,Print page,Qui|
00000700 74 2c 22 2c 21 62 25 2c 76 61 25 29 0d 00 86 0e |t,",!b%,va%)....|
00000710 c9 31 3a e7 57 25 3d 2d 32 8c 0d 00 86 3c f2 66 |.1:.W%=-2....<.f|
00000720 28 6b 25 29 3a c8 99 22 57 69 6d 70 5f 53 65 74 |(k%):.."Wimp_Set|
00000730 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 6b |CaretPosition",k|
00000740 25 2c 30 2c 30 2c 30 2c 2d 31 2c a9 28 a4 62 28 |%,0,0,0,-1,.(.b(|
00000750 6b 25 2c 30 29 29 0d 00 89 05 cd 0d 00 89 0e c9 |k%,0))..........|
00000760 34 3a e7 57 25 3d 2d 32 8c 0d 00 8b 0a f2 66 28 |4:.W%=-2......f(|
00000770 6f 25 29 0d 00 8d 05 cd 0d 00 8d 15 e7 49 25 3c |o%)..........I%<|
00000780 3e 2d 31 8c f2 7a 28 57 25 2c 49 25 29 0d 00 8e |>-1..z(W%,I%)...|
00000790 05 cb 0d 00 8f 05 e1 0d 00 90 22 dd f2 72 28 57 |.........."..r(W|
000007a0 25 2c 49 25 2c 43 25 29 3a ea 41 3a e7 43 25 3d |%,I%,C%):.A:.C%=|
000007b0 31 33 80 57 25 3d 6b 25 8c 0d 00 94 17 78 61 25 |13.W%=k%.....xa%|
000007c0 3d 68 25 3a f2 6a 28 a4 62 28 6b 25 2c 30 29 29 |=h%:.j(.b(k%,0))|
000007d0 0d 00 97 05 cd 0d 00 97 1c c8 99 22 57 69 6d 70 |..........."Wimp|
000007e0 5f 50 72 6f 63 65 73 73 4b 65 79 22 2c 43 25 3a |_ProcessKey",C%:|
000007f0 e1 0d 00 99 12 dd f2 73 3a ea 4e 3a e7 77 61 25 |.......s:.N:.wa%|
00000800 3d 31 8c 0d 00 9d 0a c8 8e 21 62 25 ca 0d 00 9e |=1.......!b%....|
00000810 11 c9 31 3a e7 62 25 21 34 3c 3e 2d 31 8c 0d 00 |..1:.b%!4<>-1...|
00000820 9f 4d 4e 3d a4 65 28 68 25 29 3a f2 62 28 6b 25 |.MN=.e(h%):.b(k%|
00000830 29 3a f2 64 28 22 3c 48 65 6c 70 32 24 44 69 72 |):.d("<Help2$Dir|
00000840 3e 2e 48 65 6c 70 5f 4f 6e 2e 22 2b 61 24 28 31 |>.Help_On."+a$(1|
00000850 2b 62 25 21 34 29 29 3a 67 25 3d 30 3a f2 61 28 |+b%!4)):g%=0:.a(|
00000860 22 63 6f 6e 74 65 6e 74 73 22 29 0d 00 a4 05 cd |"contents").....|
00000870 0d 00 a4 1a c9 32 3a 67 25 3d 30 3a f2 61 28 22 |.....2:g%=0:.a("|
00000880 63 6f 6e 74 65 6e 74 73 22 29 0d 00 a7 3f c9 33 |contents")...?.3|
00000890 3a f2 66 28 6b 25 29 3a c8 99 22 57 69 6d 70 5f |:.f(k%):.."Wimp_|
000008a0 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e |SetCaretPosition|
000008b0 22 2c 6b 25 2c 30 2c 30 2c 30 2c 2d 31 2c a9 28 |",k%,0,0,0,-1,.(|
000008c0 a4 62 28 6b 25 2c 30 29 29 0d 00 a9 09 c9 34 3a |.b(k%,0)).....4:|
000008d0 f2 41 0d 00 aa 0d c9 35 3a 62 61 25 3d 2d 31 0d |.A.....5:ba%=-1.|
000008e0 00 ab 05 cb 0d 00 ab 10 cc 3a e7 62 25 21 30 3c |.........:.b%!0<|
000008f0 3e 2d 31 8c 0d 00 ad 4d 4e 3d a4 65 28 68 25 29 |>-1....MN=.e(h%)|
00000900 3a f2 62 28 6b 25 29 3a f2 64 28 22 3c 48 65 6c |:.b(k%):.d("<Hel|
00000910 70 32 24 44 69 72 3e 2e 48 65 6c 70 5f 4f 6e 2e |p2$Dir>.Help_On.|
00000920 22 2b 61 24 28 31 2b 62 25 21 30 29 29 3a 67 25 |"+a$(1+b%!0)):g%|
00000930 3d 30 3a f2 61 28 22 63 6f 6e 74 65 6e 74 73 22 |=0:.a("contents"|
00000940 29 0d 00 b2 05 cd 0d 00 b2 05 cd 0d 00 b3 05 e1 |)...............|
00000950 0d 00 b4 20 dd f2 74 28 4d 25 29 3a ea 41 24 2c |... ..t(M%):.A$,|
00000960 43 24 2c 4e 2c 65 24 2c 70 24 3a c8 8e 4d 25 ca |C$,N,e$,p$:..M%.|
00000970 0d 00 b8 0d c9 30 3a 62 61 25 3d 2d 31 0d 00 ba |.....0:ba%=-1...|
00000980 90 c9 33 39 31 36 38 3a 43 24 3d 22 22 3a 4e 3d |..39168:C$="":N=|
00000990 32 30 3a f5 3a 43 24 3d 43 24 2b bd 28 62 25 3f |20:.:C$=C$+.(b%?|
000009a0 4e 29 3a 4e 2b 3d 31 3a fd 62 25 3f 4e 3d 31 33 |N):N+=1:.b%?N=13|
000009b0 3a 65 24 3d c0 43 24 2c a7 43 24 2c 22 40 22 29 |:e$=.C$,.C$,"@")|
000009c0 2d 31 29 3a 70 24 3d c2 43 24 2c a9 28 43 24 29 |-1):p$=.C$,.(C$)|
000009d0 2d a7 43 24 2c 22 40 22 29 29 3a e7 a4 63 28 65 |-.C$,"@")):..c(e|
000009e0 24 29 3c 3e a4 63 28 69 24 29 8c 67 25 3d 30 3a |$)<>.c(i$).g%=0:|
000009f0 f2 64 28 22 3c 48 65 6c 70 32 24 44 69 72 3e 2e |.d("<Help2$Dir>.|
00000a00 48 65 6c 70 5f 4f 6e 2e 22 2b 65 24 29 0d 00 be |Help_On."+e$)...|
00000a10 13 e7 a4 63 28 65 24 29 3d a4 63 28 69 24 29 8c |...c(e$)=.c(i$).|
00000a20 0d 00 bf 3d 4e 3d a4 61 28 22 40 70 61 67 65 3a |...=N=.a("@page:|
00000a30 22 2b 70 24 2b 22 40 22 2c 68 25 2c 68 25 2b 4a |"+p$+"@",h%,h%+J|
00000a40 25 29 3a e7 4e 3c 3e 30 8c 67 25 3d 31 3a 62 24 |%):.N<>0.g%=1:b$|
00000a50 28 31 29 3d 70 24 3a f2 61 28 70 24 29 0d 00 c1 |(1)=p$:.a(p$)...|
00000a60 05 cd 0d 00 c2 05 cb 0d 00 c3 05 e1 0d 00 c4 89 |................|
00000a70 dd f2 75 3a c8 99 22 57 69 6d 70 5f 4f 70 65 6e |..u:.."Wimp_Open|
00000a80 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 48 65 6c |Template",,"<Hel|
00000a90 70 32 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 |p2$Dir>.Template|
00000aa0 73 22 3a 54 25 3d a4 64 28 22 69 6e 66 6f 22 29 |s":T%=.d("info")|
00000ab0 3a 6f 25 3d a4 64 28 22 6d 61 69 6e 22 29 3a 6b |:o%=.d("main"):k|
00000ac0 25 3d a4 64 28 22 73 65 61 72 63 68 22 29 3a 74 |%=.d("search"):t|
00000ad0 61 25 3d a4 64 28 22 62 61 72 22 29 3a c8 99 22 |a%=.d("bar"):.."|
00000ae0 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 |Wimp_CloseTempla|
00000af0 74 65 22 3a e1 0d 00 cd 65 dd f2 76 3a 62 25 21 |te":....e..v:b%!|
00000b00 30 3d 2d 31 3a 62 25 21 34 3d 30 3a 62 25 21 38 |0=-1:b%!4=0:b%!8|
00000b10 3d 30 3a 62 25 21 31 32 3d 36 34 3a 62 25 21 31 |=0:b%!12=64:b%!1|
00000b20 36 3d 36 34 3a 62 25 21 32 30 3d 33 38 35 38 38 |6=64:b%!20=38588|
00000b30 38 32 36 36 3a 24 28 62 25 2b 32 34 29 3d 62 24 |8266:$(b%+24)=b$|
00000b40 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 49 |:.."Wimp_CreateI|
00000b50 63 6f 6e 22 2c 2c 62 25 3a e1 0d 00 d6 c2 dd f2 |con",,b%:.......|
00000b60 78 3a ea 66 25 2c 5a 25 2c 61 24 2c 58 3a c8 99 |x:.f%,Z%,a$,X:..|
00000b70 22 4f 53 5f 47 42 50 42 22 2c 31 30 2c 22 3c 48 |"OS_GBPB",10,"<H|
00000b80 65 6c 70 32 24 44 69 72 3e 2e 48 65 6c 70 5f 4f |elp2$Dir>.Help_O|
00000b90 6e 22 2c 62 25 2c 37 37 2c 30 2c 34 30 39 36 2c |n",b%,77,0,4096,|
00000ba0 22 2a 22 b8 2c 2c 2c 79 61 25 3a 61 24 28 29 3d |"*".,,,ya%:a$()=|
00000bb0 22 22 3a 66 25 3d 62 25 3a 7a 61 25 3d 79 61 25 |"":f%=b%:za%=ya%|
00000bc0 3a 58 3d 31 3a c8 95 7a 61 25 3e 30 3a 61 24 3d |:X=1:..za%>0:a$=|
00000bd0 22 22 3a 5a 25 3d 32 30 3a c8 95 66 25 3f 5a 25 |"":Z%=20:..f%?Z%|
00000be0 3c 3e 30 3a 61 24 2b 3d bd 28 66 25 3f 5a 25 29 |<>0:a$+=.(f%?Z%)|
00000bf0 3a 5a 25 2b 3d 31 3a ce 3a e7 28 28 66 25 21 30 |:Z%+=1:.:.((f%!0|
00000c00 3e 3e 38 29 80 34 30 39 35 29 3d 32 34 38 8c 61 |>>8).4095)=248.a|
00000c10 24 28 58 29 3d 61 24 3a 58 2b 3d 31 0d 00 e2 1f |$(X)=a$:X+=1....|
00000c20 66 25 2b 3d 28 28 5a 25 2b 34 29 81 34 29 2a 34 |f%+=((Z%+4).4)*4|
00000c30 3a 7a 61 25 2d 3d 31 3a ce 3a e1 0d 00 e6 28 dd |:za%-=1:.:....(.|
00000c40 f2 7a 28 57 25 2c 49 25 29 3a ea 41 61 25 2c 41 |.z(W%,I%):.Aa%,A|
00000c50 2c 42 61 25 2c 61 24 2c 70 24 2c 70 25 3a c8 8e |,Ba%,a$,p$,p%:..|
00000c60 57 25 ca 0d 00 ea 10 c9 6f 25 3a e7 49 25 3c 43 |W%......o%:.I%<C|
00000c70 61 25 8c 0d 00 ec 46 67 25 2b 3d 31 3a e7 67 25 |a%....Fg%+=1:.g%|
00000c80 3e 35 30 8c 67 25 3d 35 30 3a 85 31 37 2c 22 43 |>50.g%=50:.17,"C|
00000c90 61 6e 6e 6f 74 20 73 74 6f 72 65 20 61 20 72 65 |annot store a re|
00000ca0 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 6c |ference to the l|
00000cb0 61 73 74 20 70 61 67 65 22 0d 00 ee 44 70 24 3d |ast page"...Dp$=|
00000cc0 22 22 3a 70 25 3d 21 28 66 61 25 2b 49 25 2a 34 |"":p%=!(fa%+I%*4|
00000cd0 29 3a c8 95 3f 70 25 3c 3e 35 38 3a 70 24 2b 3d |):..?p%<>58:p$+=|
00000ce0 bd 3f 70 25 3a 70 25 2b 3d 31 3a ce 3a 62 24 28 |.?p%:p%+=1:.:b$(|
00000cf0 67 25 29 3d 70 24 3a f2 61 28 70 24 29 0d 00 f3 |g%)=p$:.a(p$)...|
00000d00 05 cd 0d 00 f3 14 c9 6b 25 3a e7 49 25 3d 32 8c |.......k%:.I%=2.|
00000d10 f2 62 28 6b 25 29 0d 00 f5 16 e7 49 25 3d 31 8c |.b(k%).....I%=1.|
00000d20 f2 6a 28 a4 62 28 6b 25 2c 30 29 29 0d 00 f6 0e |.j(.b(k%,0))....|
00000d30 c9 74 61 25 3a c8 8e 49 25 ca 0d 00 f8 1a c9 30 |.ta%:..I%......0|
00000d40 3a 67 25 3d 30 3a f2 61 28 22 63 6f 6e 74 65 6e |:g%=0:.a("conten|
00000d50 74 73 22 29 0d 00 fa 2d c9 31 3a 67 25 2b 3d 31 |ts")...-.1:g%+=1|
00000d60 3a 62 24 28 67 25 29 3d 22 67 6c 6f 73 73 61 72 |:b$(g%)="glossar|
00000d70 79 22 3a f2 61 28 22 67 6c 6f 73 73 61 72 79 22 |y":.a("glossary"|
00000d80 29 0d 00 fb 0d c9 32 3a e7 67 25 3e 30 8c 0d 00 |).....2:.g%>0...|
00000d90 fb 14 67 25 2d 3d 31 3a f2 61 28 62 24 28 67 25 |..g%-=1:.a(b$(g%|
00000da0 29 29 0d 00 fd 08 cc 3a ef 37 0d 00 fe 05 cd 0d |)).....:.7......|
00000db0 00 ff 3f c9 33 3a f2 66 28 6b 25 29 3a c8 99 22 |..?.3:.f(k%):.."|
00000dc0 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 |Wimp_SetCaretPos|
00000dd0 69 74 69 6f 6e 22 2c 6b 25 2c 30 2c 30 2c 30 2c |ition",k%,0,0,0,|
00000de0 2d 31 2c a9 28 a4 62 28 6b 25 2c 30 29 29 0d 01 |-1,.(.b(k%,0))..|
00000df0 02 2c c9 34 3a 77 61 25 3d 32 3a f2 69 28 22 20 |.,.4:wa%=2:.i(" |
00000e00 48 65 6c 70 20 6f 6e 20 22 2c 22 40 40 2c 22 2c |Help on ","@@,",|
00000e10 62 25 21 30 2c 62 25 21 34 29 0d 01 03 05 cb 0d |b%!0,b%!4)......|
00000e20 01 03 05 cb 0d 01 04 05 e1 0d 01 05 24 dd f2 64 |............$..d|
00000e30 28 66 24 29 3a ea 64 25 2c 43 3a 43 3d 8e 28 66 |(f$):.d%,C:C=.(f|
00000e40 24 29 3a d9 23 43 3a e7 43 3d 30 8c e1 0d 01 0a |$):.#C:.C=0.....|
00000e50 a9 69 24 3d a4 68 28 66 24 29 3a c8 99 22 48 6f |.i$=.h(f$):.."Ho|
00000e60 75 72 67 6c 61 73 73 5f 4f 6e 22 3a c8 99 22 4f |urglass_On":.."O|
00000e70 53 5f 46 69 6c 65 22 2c 31 37 2c 66 24 b8 2c 2c |S_File",17,f$.,,|
00000e80 2c 2c 4a 25 3a 68 25 3d a4 69 28 4a 25 29 3a c8 |,,J%:h%=.i(J%):.|
00000e90 99 22 4f 53 5f 46 69 6c 65 22 2c 31 36 2c 66 24 |."OS_File",16,f$|
00000ea0 2c 68 25 2c 30 3a 76 25 3d 68 25 2b 4a 25 3a 42 |,h%,0:v%=h%+J%:B|
00000eb0 25 3d 68 25 3a 43 25 3d 76 25 3a 64 25 3d ba 28 |%=h%:C%=v%:d%=.(|
00000ec0 62 29 3a e7 64 25 83 32 3d 31 8c 85 31 37 2c 22 |b):.d%.2=1..17,"|
00000ed0 57 61 72 6e 69 6e 67 3a 20 55 6e 65 71 75 61 6c |Warning: Unequal|
00000ee0 20 6e 75 6d 62 65 72 20 6f 66 20 40 20 73 79 6d | number of @ sym|
00000ef0 62 6f 6c 73 2e 22 0d 01 12 21 e7 76 25 3f 2d 31 |bols."...!.v%?-1|
00000f00 3c 3e 31 30 3f 76 25 3d 31 30 3a 76 25 2b 3d 31 |<>10?v%=10:v%+=1|
00000f10 3a 3f 76 25 3d 31 30 0d 01 13 1b 43 25 3d 68 25 |:?v%=10....C%=h%|
00000f20 3a 42 25 3d 76 25 3a d6 66 3a 76 25 3f 2d 31 3d |:B%=v%:.f:v%?-1=|
00000f30 31 33 0d 01 18 05 cd 0d 01 18 4e 78 61 25 3d 68 |13........Nxa%=h|
00000f40 25 3a 44 61 25 3d 68 25 2b 4a 25 3a 64 25 3d a4 |%:Da%=h%+J%:d%=.|
00000f50 61 28 22 40 70 61 67 65 3a 67 6c 6f 73 73 61 72 |a("@page:glossar|
00000f60 79 40 22 2c 68 25 2c 68 25 2b 4a 25 29 3a e7 64 |y@",h%,h%+J%):.d|
00000f70 25 3d 30 8c 62 25 21 38 3d 31 3c 3c 32 32 8b 62 |%=0.b%!8=1<<22.b|
00000f80 25 21 38 3d 30 0d 01 1c 4d 62 25 21 30 3d 74 61 |%!8=0...Mb%!0=ta|
00000f90 25 3a 62 25 21 34 3d 31 3a 62 25 21 31 32 3d 31 |%:b%!4=1:b%!12=1|
00000fa0 3c 3c 32 32 3a c8 99 22 57 69 6d 70 5f 53 65 74 |<<22:.."Wimp_Set|
00000fb0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 3a c8 |IconState",,b%:.|
00000fc0 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 |."Hourglass_Off"|
00000fd0 3a e1 0d 01 22 64 dd a4 64 28 61 24 29 3a c8 99 |:..."d..d(a$):..|
00000fe0 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 |"Wimp_LoadTempla|
00000ff0 74 65 22 2c 2c 62 25 2c 64 61 25 2c 65 61 25 2c |te",,b%,da%,ea%,|
00001000 2d 31 2c 61 24 2c 30 b8 2c 2c 64 61 25 2c 2c 2c |-1,a$,0.,,da%,,,|
00001010 2c 50 25 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 |,P%:.."Wimp_Crea|
00001020 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 45 61 |teWindow",,b%.Ea|
00001030 25 3a 3d 45 61 25 0d 01 2d 3d dd f2 61 28 61 24 |%:=Ea%..-=..a(a$|
00001040 29 3a ea 4e 2c 73 25 2c 65 25 2c 5f 25 2c 63 24 |):.N,s%,e%,_%,c$|
00001050 2c 66 25 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 |,f%:.."Hourglass|
00001060 5f 4f 6e 22 3a 6e 61 25 3d 30 3a e7 75 25 3c 3e |_On":na%=0:.u%<>|
00001070 2d 31 8c 0d 01 31 35 e3 4e 3d 30 b8 75 25 2d 31 |-1...15.N=0.u%-1|
00001080 3a 21 62 25 3d 6f 25 3a 62 25 21 34 3d 4e 3a c8 |:!b%=o%:b%!4=N:.|
00001090 99 22 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f |."Wimp_DeleteIco|
000010a0 6e 22 2c 2c 62 25 3a ed 0d 01 35 05 cd 0d 01 35 |n",,b%:...5....5|
000010b0 48 4e 3d a4 61 28 22 40 70 61 67 65 3a 22 2b 61 |HN=.a("@page:"+a|
000010c0 24 2b 22 40 22 2c 68 25 2c 68 25 2b 4a 25 29 3a |$+"@",h%,h%+J%):|
000010d0 e7 4e 3d 30 8c 85 31 37 2c 22 43 61 6e 6e 6f 74 |.N=0..17,"Cannot|
000010e0 20 66 69 6e 64 20 70 61 67 65 2e 20 28 22 2b 61 | find page. ("+a|
000010f0 24 2b 22 29 22 0d 01 3a b1 69 25 3d 28 4e 29 2b |$+")"..:.i%=(N)+|
00001100 36 2b a9 28 61 24 29 3a f5 3a 69 25 2b 3d 31 3a |6+.(a$):.:i%+=1:|
00001110 63 24 3d 63 24 2b bd 28 3f 69 25 29 3a fd 3f 69 |c$=c$+.(?i%):.?i|
00001120 25 3d 31 33 3a 69 25 2b 3d 31 3a 73 25 3d 69 25 |%=13:i%+=1:s%=i%|
00001130 3a 6b 61 25 3d 73 25 3a 76 25 3d a4 61 28 22 40 |:ka%=s%:v%=.a("@|
00001140 65 6e 64 40 22 2c 69 25 2c 68 25 2b 4a 25 29 3a |end@",i%,h%+J%):|
00001150 65 25 3d 76 25 3a 6c 61 25 3d 65 25 3a 4b 25 3d |e%=v%:la%=e%:K%=|
00001160 30 3a 46 61 25 3d 72 25 3a c8 95 69 25 3c 76 25 |0:Fa%=r%:..i%<v%|
00001170 3a 21 46 61 25 3d 69 25 3a 46 61 25 2b 3d 34 3a |:!Fa%=i%:Fa%+=4:|
00001180 4b 25 2b 3d 31 3a e7 46 61 25 3e 72 25 2b 34 30 |K%+=1:.Fa%>r%+40|
00001190 30 30 8c 85 31 2c 22 54 6f 6f 20 6d 61 6e 79 20 |00..1,"Too many |
000011a0 6c 69 6e 65 73 22 0d 01 47 74 c8 95 3f 69 25 3c |lines"..Gt..?i%<|
000011b0 3e 31 33 3a 69 25 2b 3d 31 3a ce 3a 69 25 2b 3d |>13:i%+=1:.:i%+=|
000011c0 31 3a ce 3a 21 46 61 25 3d 76 25 3a 21 62 25 3d |1:.:!Fa%=v%:!b%=|
000011d0 6f 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |o%:.."Wimp_GetWi|
000011e0 6e 64 6f 77 49 6e 66 6f 22 2c 2c 62 25 3a 6a 61 |ndowInfo",,b%:ja|
000011f0 25 3d 2d 28 62 25 21 38 2d 62 25 21 31 36 29 3a |%=-(b%!8-b%!16):|
00001200 5f 25 3d 4b 25 2a 34 30 2b 38 34 3a e7 5f 25 3c |_%=K%*40+84:._%<|
00001210 6a 61 25 8c 5f 25 3d 6a 61 25 0d 01 51 c9 21 62 |ja%._%=ja%..Q.!b|
00001220 25 3d 6f 25 3a 62 25 21 34 3d 30 3a 62 25 21 38 |%=o%:b%!4=0:b%!8|
00001230 3d 2d 5f 25 3a 62 25 21 31 32 3d 31 32 33 36 3a |=-_%:b%!12=1236:|
00001240 62 25 21 31 36 3d 30 3a c8 99 22 57 69 6d 70 5f |b%!16=0:.."Wimp_|
00001250 53 65 74 45 78 74 65 6e 74 22 2c 6f 25 2c 62 25 |SetExtent",o%,b%|
00001260 2b 34 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 |+4:.."Wimp_Close|
00001270 57 69 6e 64 6f 77 22 2c 2c 62 25 3a c8 99 22 57 |Window",,b%:.."W|
00001280 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 |imp_GetWindowInf|
00001290 6f 22 2c 2c 62 25 3a 24 28 62 25 21 37 36 29 3d |o",,b%:$(b%!76)=|
000012a0 63 24 3a 62 25 21 32 30 3d 30 3a 62 25 21 32 34 |c$:b%!20=0:b%!24|
000012b0 3d 30 3a 62 25 21 32 38 3d 2d 31 3a f2 67 3a c8 |=0:b%!28=-1:.g:.|
000012c0 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 |."Wimp_ForceRedr|
000012d0 61 77 22 2c 6f 25 2c 30 2c 2d 5f 25 2c 31 32 33 |aw",o%,0,-_%,123|
000012e0 36 2c 30 0d 01 5b 35 75 25 3d 30 3a 69 25 3d 73 |6,0..[5u%=0:i%=s|
000012f0 25 3a f2 42 3a 43 61 25 3d 75 25 3a 69 25 3d 73 |%:.B:Ca%=u%:i%=s|
00001300 25 3a f2 43 3a c8 99 22 48 6f 75 72 67 6c 61 73 |%:.C:.."Hourglas|
00001310 73 5f 4f 66 66 22 3a e1 0d 01 62 3a dd a4 61 28 |s_Off":...b:..a(|
00001320 67 24 2c 47 61 25 2c 48 61 25 29 3a ea 4e 3a e7 |g$,Ga%,Ha%):.N:.|
00001330 67 24 3d 22 22 8c 85 31 37 2c 22 4e 6f 74 68 69 |g$=""..17,"Nothi|
00001340 6e 67 20 74 6f 20 73 65 61 72 63 68 20 66 6f 72 |ng to search for|
00001350 2e 22 0d 01 66 59 e3 4e 3d 31 b8 a9 28 67 24 29 |."..fY.N=1..(g$)|
00001360 3a 3f 28 67 61 25 2d 31 2b 4e 29 3d 97 28 c1 67 |:?(ga%-1+N)=.(.g|
00001370 24 2c 4e 2c 31 29 29 84 33 32 3a ed 3a 41 25 3d |$,N,1)).32:.:A%=|
00001380 62 25 3a 42 25 3d 48 61 25 3a 43 25 3d 47 61 25 |b%:B%=Ha%:C%=Ga%|
00001390 3a 45 25 3d 67 61 25 2d 31 3a 46 25 3d a9 28 67 |:E%=ga%-1:F%=.(g|
000013a0 24 29 3a d6 53 25 3a 3d 21 62 25 0d 01 72 3a dd |$):.S%:=!b%..r:.|
000013b0 f2 42 3a ea 4e 2c 49 61 25 2c 74 24 2c 77 25 2c |.B:.N,Ia%,t$,w%,|
000013c0 63 25 2c 78 25 3a f5 3a 78 25 3d a4 61 28 22 40 |c%,x%:.:x%=.a("@|
000013d0 67 6f 74 6f 3a 22 2c 69 25 2c 65 25 29 3a e7 78 |goto:",i%,e%):.x|
000013e0 25 3c 3e 30 8c 0d 01 76 32 6a 25 3d 78 25 3a 6c |%<>0...v2j%=x%:l|
000013f0 25 3d 30 3a 74 24 3d 22 22 3a e3 4e 3d 30 b8 4b |%=0:t$="":.N=0.K|
00001400 25 2d 31 3a e7 21 28 72 25 2b 4e 2a 34 29 3c 3d |%-1:.!(r%+N*4)<=|
00001410 6a 25 8c 6c 25 3d 4e 0d 01 7a 39 ed 3a 77 25 3d |j%.l%=N..z9.:w%=|
00001420 30 3a 63 25 3d 21 28 72 25 2b 6c 25 2a 34 29 2d |0:c%=!(r%+l%*4)-|
00001430 31 3a c8 95 63 25 3c 6a 25 2d 31 3a 63 25 2b 3d |1:..c%<j%-1:c%+=|
00001440 31 3a 77 25 2b 3d 31 3a e7 3f 63 25 3d 36 34 8c |1:w%+=1:.?c%=64.|
00001450 0d 01 7f 13 e7 28 33 32 84 63 25 3f 31 29 3d 31 |.....(32.c%?1)=1|
00001460 30 33 8c 0d 01 80 3b 63 25 2b 3d 36 3a f5 3a 63 |03....;c%+=6:.:c|
00001470 25 2b 3d 31 3a fd 3f 63 25 3d 35 38 3a 77 25 2b |%+=1:.?c%=58:w%+|
00001480 3d 31 3a f5 3a 77 25 2b 3d 31 3a 63 25 2b 3d 31 |=1:.:w%+=1:c%+=1|
00001490 3a fd 3f 63 25 3d 36 34 3a 63 25 2b 3d 31 0d 01 |:.?c%=64:c%+=1..|
000014a0 83 1b cc 3a f5 3a 63 25 2b 3d 31 3a fd 3f 63 25 |...:.:c%+=1:.?c%|
000014b0 3d 36 34 3a 63 25 2b 3d 31 0d 01 85 05 cd 0d 01 |=64:c%+=1.......|
000014c0 85 05 cd 0d 01 86 92 ce 3a 21 28 66 61 25 2b 75 |........:!(fa%+u|
000014d0 25 2a 34 29 3d 6a 25 2b 36 3a 6a 25 2b 3d 36 3a |%*4)=j%+6:j%+=6:|
000014e0 f5 3a 6a 25 2b 3d 31 3a fd 3f 6a 25 3d 35 38 3a |.:j%+=1:.?j%=58:|
000014f0 74 24 3d 22 22 3a 6a 25 2b 3d 31 3a f5 3a 74 24 |t$="":j%+=1:.:t$|
00001500 3d 74 24 2b bd 28 3f 6a 25 29 3a 6a 25 2b 3d 31 |=t$+.(?j%):j%+=1|
00001510 3a fd 3f 6a 25 3d 36 34 3a f2 44 28 6f 25 2c 74 |:.?j%=64:.D(o%,t|
00001520 24 2c 77 25 2a 31 36 2b 38 2c 2d 28 34 30 2b 6c |$,w%*16+8,-(40+l|
00001530 25 2a 34 30 29 2c a9 28 74 24 29 2a 31 36 2b 32 |%*40),.(t$)*16+2|
00001540 34 2c 34 30 2c 33 33 35 35 35 36 38 39 33 29 3a |4,40,335556893):|
00001550 75 25 2b 3d 31 0d 01 8d 05 cd 0d 01 8d 13 69 25 |u%+=1.........i%|
00001560 3d 78 25 2b 31 3a fd 78 25 3d 30 3a e1 0d 01 90 |=x%+1:.x%=0:....|
00001570 3c dd f2 43 3a ea 4e 2c 49 61 25 2c 74 24 2c 77 |<..C:.N,Ia%,t$,w|
00001580 25 2c 63 25 2c 78 25 3a f5 3a 78 25 3d a4 61 28 |%,c%,x%:.:x%=.a(|
00001590 22 40 73 70 72 69 74 65 3a 22 2c 69 25 2c 65 25 |"@sprite:",i%,e%|
000015a0 29 3a e7 78 25 3c 3e 30 8c 0d 01 96 32 6a 25 3d |):.x%<>0....2j%=|
000015b0 78 25 3a 6c 25 3d 30 3a 74 24 3d 22 22 3a e3 4e |x%:l%=0:t$="":.N|
000015c0 3d 30 b8 4b 25 2d 31 3a e7 21 28 72 25 2b 4e 2a |=0.K%-1:.!(r%+N*|
000015d0 34 29 3c 3d 6a 25 8c 6c 25 3d 4e 0d 01 99 38 ed |4)<=j%.l%=N...8.|
000015e0 3a 77 25 3d 2d 31 3a 63 25 3d 21 28 72 25 2b 6c |:w%=-1:c%=!(r%+l|
000015f0 25 2a 34 29 2d 31 3a c8 95 63 25 3c 6a 25 3a 63 |%*4)-1:..c%<j%:c|
00001600 25 2b 3d 31 3a 77 25 2b 3d 31 3a e7 3f 63 25 3d |%+=1:w%+=1:.?c%=|
00001610 36 34 8c 0d 01 9e 13 e7 28 33 32 84 63 25 3f 31 |64......(32.c%?1|
00001620 29 3d 31 30 33 8c 0d 01 9f 3b 63 25 2b 3d 36 3a |)=103....;c%+=6:|
00001630 f5 3a 63 25 2b 3d 31 3a fd 3f 63 25 3d 35 38 3a |.:c%+=1:.?c%=58:|
00001640 77 25 2b 3d 31 3a f5 3a 77 25 2b 3d 31 3a 63 25 |w%+=1:.:w%+=1:c%|
00001650 2b 3d 31 3a fd 3f 63 25 3d 36 34 3a 63 25 2b 3d |+=1:.?c%=64:c%+=|
00001660 31 0d 01 a2 1b cc 3a f5 3a 63 25 2b 3d 31 3a fd |1.....:.:c%+=1:.|
00001670 3f 63 25 3d 36 34 3a 63 25 2b 3d 31 0d 01 a4 05 |?c%=64:c%+=1....|
00001680 cd 0d 01 a4 05 cd 0d 01 a5 cf ce 3a 6a 25 2b 3d |...........:j%+=|
00001690 38 3a f5 3a 74 24 3d 74 24 2b bd 28 3f 6a 25 29 |8:.:t$=t$+.(?j%)|
000016a0 3a 6a 25 2b 3d 31 3a fd 3f 6a 25 3d 36 34 3a c8 |:j%+=1:.?j%=64:.|
000016b0 99 22 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 22 |."Wimp_SpriteOp"|
000016c0 2c 32 35 36 2b 34 30 2c 2c 74 24 b8 2c 2c 2c 4a |,256+40,,t$.,,,J|
000016d0 61 25 2c 4b 61 25 3a 21 62 25 3d 6f 25 3a 62 25 |a%,Ka%:!b%=o%:b%|
000016e0 21 34 3d 77 25 2a 31 36 2b 34 3a 62 25 21 38 3d |!4=w%*16+4:b%!8=|
000016f0 2d 34 30 2d 6c 25 2a 34 30 3a 62 25 21 31 32 3d |-40-l%*40:b%!12=|
00001700 28 62 25 21 34 29 2b 4a 61 25 2a 32 3a 62 25 21 |(b%!4)+Ja%*2:b%!|
00001710 31 36 3d 28 62 25 21 38 29 2b 4b 61 25 2a 34 3a |16=(b%!8)+Ka%*4:|
00001720 62 25 21 32 30 3d 33 38 35 38 38 38 35 33 38 3a |b%!20=385888538:|
00001730 62 25 21 32 38 3d 31 3a 62 25 21 33 32 3d a9 28 |b%!28=1:b%!32=.(|
00001740 53 24 29 2b 31 3a 62 25 21 32 34 3d 69 61 25 2b |S$)+1:b%!24=ia%+|
00001750 75 25 2a 38 30 0d 01 ab 34 24 28 69 61 25 2b 75 |u%*80...4$(ia%+u|
00001760 25 2a 38 30 29 3d 74 24 3a c8 99 22 57 69 6d 70 |%*80)=t$:.."Wimp|
00001770 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 62 25 |_CreateIcon",,b%|
00001780 b8 49 25 3a 75 25 2b 3d 31 0d 01 ae 05 cd 0d 01 |.I%:u%+=1.......|
00001790 ae 13 69 25 3d 78 25 2b 31 3a fd 78 25 3d 30 3a |..i%=x%+1:.x%=0:|
000017a0 e1 0d 01 b1 30 dd f2 6a 28 6b 24 29 3a ea 4e 2c |....0..j(k$):.N,|
000017b0 7a 25 2c 64 25 3a f5 3a 7a 25 3d a4 61 28 6b 24 |z%,d%:.:z%=.a(k$|
000017c0 2c 78 61 25 2c 44 61 25 29 3a e7 7a 25 3c 3e 30 |,xa%,Da%):.z%<>0|
000017d0 8c 0d 01 b7 22 42 25 3d 68 25 3a 43 25 3d 7a 25 |...."B%=h%:C%=z%|
000017e0 2d 31 3a 64 25 3d ba 28 62 29 3a 78 61 25 3d 7a |-1:d%=.(b):xa%=z|
000017f0 25 2b 31 0d 01 bb 05 cd 0d 01 bb 18 fd 64 25 83 |%+1..........d%.|
00001800 32 3d 30 84 7a 25 3d 30 3a e7 7a 25 3c 3e 30 8c |2=0.z%=0:.z%<>0.|
00001810 0d 01 bd 15 f2 45 28 7a 25 29 3a e7 7a 25 3e 21 |.....E(z%):.z%>!|
00001820 72 25 8c f2 46 0d 01 bf 08 cc 3a ef 37 0d 01 c1 |r%..F.....:.7...|
00001830 05 cd 0d 01 c2 05 e1 0d 01 c3 3a dd f2 45 28 4c |..........:..E(L|
00001840 61 25 29 3a ea 68 24 2c 4e 2c 64 25 2c 60 25 3a |a%):.h$,N,d%,`%:|
00001850 64 25 3d a4 61 28 22 40 70 61 67 65 3a 22 2c 68 |d%=.a("@page:",h|
00001860 25 2c 4c 61 25 29 3a e7 64 25 3d 30 8c ef 37 3a |%,La%):.d%=0..7:|
00001870 e1 0d 01 c8 9c 60 25 3d 64 25 3a 68 24 3d 22 22 |.....`%=d%:h$=""|
00001880 3a c8 95 60 25 3c 3e 30 3a 64 25 3d 60 25 3a 60 |:..`%<>0:d%=`%:`|
00001890 25 3d a4 61 28 22 40 70 61 67 65 3a 22 2c 60 25 |%=.a("@page:",`%|
000018a0 2b 31 2c 4c 61 25 29 3a ce 3a 64 25 2b 3d 36 3a |+1,La%):.:d%+=6:|
000018b0 c8 95 3f 64 25 3c 3e 36 34 3a 68 24 2b 3d bd 3f |..?d%<>64:h$+=.?|
000018c0 64 25 3a 64 25 2b 3d 31 3a ce 3a 67 25 2b 3d 31 |d%:d%+=1:.:g%+=1|
000018d0 3a e7 67 25 3e 35 30 8c 67 25 3d 35 30 3a 85 31 |:.g%>50.g%=50:.1|
000018e0 37 2c 22 43 61 6e 6e 6f 74 20 73 74 6f 72 65 20 |7,"Cannot store |
000018f0 61 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 74 |a reference to t|
00001900 68 65 20 6c 61 73 74 20 70 61 67 65 22 0d 01 d2 |he last page"...|
00001910 16 62 24 28 67 25 29 3d 68 24 3a f2 61 28 68 24 |.b$(g%)=h$:.a(h$|
00001920 29 3a e1 0d 01 d5 71 dd f2 46 3a ea 4e 2c 64 25 |):....q..F:.N,d%|
00001930 2c 4d 61 25 3a 6e 61 25 3d 2d 31 3a 73 61 25 3d |,Ma%:na%=-1:sa%=|
00001940 a9 28 6b 24 29 3a 72 61 25 3d 2d 34 34 3a 4e 3d |.(k$):ra%=-44:N=|
00001950 2d 31 3a f5 3a 72 61 25 2b 3d 34 30 3a 4e 2b 3d |-1:.:ra%+=40:N+=|
00001960 31 3a fd 7a 25 3c 21 28 72 25 2b 4e 2a 34 29 3a |1:.z%<!(r%+N*4):|
00001970 64 25 3d 21 28 72 25 2d 34 2b 4e 2a 34 29 3a 4f |d%=!(r%-4+N*4):O|
00001980 25 3d 30 3a c8 95 64 25 3c 7a 25 3a e7 3f 64 25 |%=0:..d%<z%:.?d%|
00001990 3d 36 34 8c 0d 01 dd 13 e7 28 33 32 84 64 25 3f |=64......(32.d%?|
000019a0 31 29 3d 31 30 33 8c 0d 01 de 3b 64 25 2b 3d 36 |1)=103....;d%+=6|
000019b0 3a f5 3a 64 25 2b 3d 31 3a fd 3f 64 25 3d 35 38 |:.:d%+=1:.?d%=58|
000019c0 3a 4f 25 2b 3d 31 3a f5 3a 4f 25 2b 3d 31 3a 64 |:O%+=1:.:O%+=1:d|
000019d0 25 2b 3d 31 3a fd 3f 64 25 3d 36 34 3a 64 25 2b |%+=1:.?d%=64:d%+|
000019e0 3d 31 0d 01 e1 1b cc 3a f5 3a 64 25 2b 3d 31 3a |=1.....:.:d%+=1:|
000019f0 fd 3f 64 25 3d 36 34 3a 64 25 2b 3d 31 0d 01 e3 |.?d%=64:d%+=1...|
00001a00 05 cd 0d 01 e3 05 cd 0d 01 e4 84 4f 25 2b 3d 31 |...........O%+=1|
00001a10 3a 64 25 2b 3d 31 3a ce 3a 4f 25 3d 4f 25 2a 31 |:d%+=1:.:O%=O%*1|
00001a20 36 3a 4d 61 25 3d 28 62 25 21 31 36 2d 62 25 21 |6:Ma%=(b%!16-b%!|
00001a30 38 29 2d 34 30 3a 21 62 25 3d 6f 25 3a c8 99 22 |8)-40:!b%=o%:.."|
00001a40 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e |Wimp_GetWindowIn|
00001a50 66 6f 22 2c 2c 62 25 3a 62 25 21 32 34 3d 28 28 |fo",,b%:b%!24=((|
00001a60 2d 72 61 25 2b 34 30 29 81 4d 61 25 29 2a 4d 61 |-ra%+40).Ma%)*Ma|
00001a70 25 3a c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |%:.."Wimp_OpenWi|
00001a80 6e 64 6f 77 22 2c 2c 62 25 3a e1 0d 01 ec 15 dd |ndow",,b%:......|
00001a90 f2 41 3a ea 4e 61 25 2c 6d 25 2c 51 25 3a ef 32 |.A:.Na%,m%,Q%:.2|
00001aa0 0d 01 f0 1b 6d 25 3d 6b 61 25 3a f5 3a 51 25 3d |....m%=ka%:.:Q%=|
00001ab0 3f 6d 25 3a e7 51 25 3d 36 34 8c 0d 01 f4 1c 51 |?m%:.Q%=64.....Q|
00001ac0 25 3d 28 6d 25 3f 31 29 84 33 32 3a e7 bd 28 51 |%=(m%?1).32:..(Q|
00001ad0 25 29 3d 22 67 22 8c 0d 01 f6 42 f5 3a 6d 25 2b |%)="g"....B.:m%+|
00001ae0 3d 31 3a fd 3f 6d 25 3d 35 38 3a f5 3a 6d 25 2b |=1:.?m%=58:.:m%+|
00001af0 3d 31 3a fd 3f 6d 25 3d 35 38 3a 6d 25 2b 3d 31 |=1:.?m%=58:m%+=1|
00001b00 3a f5 3a f1 bd 28 3f 6d 25 29 3b 3a 6d 25 2b 3d |:.:..(?m%);:m%+=|
00001b10 31 3a fd 3f 6d 25 3d 36 34 0d 01 fb 15 cc 3a f5 |1:.?m%=64.....:.|
00001b20 3a 6d 25 2b 3d 31 3a fd 3f 6d 25 3d 36 34 0d 01 |:m%+=1:.?m%=64..|
00001b30 fd 05 cd 0d 01 fd 16 cc 3a e7 51 25 3d 31 33 8c |........:.Q%=13.|
00001b40 f1 8b f1 bd 28 51 25 29 3b 0d 01 ff 05 cd 0d 02 |....(Q%);.......|
00001b50 00 15 6d 25 2b 3d 31 3a fd 6d 25 3e 3d 6c 61 25 |..m%+=1:.m%>=la%|
00001b60 3a ef 33 0d 02 03 05 e1 0d 02 04 8b dd f2 77 3a |:.3...........w:|
00001b70 ea 74 25 3a c8 99 22 4f 53 5f 52 65 61 64 4d 65 |.t%:.."OS_ReadMe|
00001b80 6d 4d 61 70 49 6e 66 6f 22 b8 4f 61 25 3a 47 25 |mMapInfo".Oa%:G%|
00001b90 3d 4f 61 25 3a c8 99 22 57 69 6d 70 5f 53 6c 6f |=Oa%:.."Wimp_Slo|
00001ba0 74 53 69 7a 65 22 2c 2d 31 2c 2d 31 b8 74 25 3a |tSize",-1,-1.t%:|
00001bb0 71 25 3d 74 25 2b 33 32 37 36 38 3a c8 99 22 57 |q%=t%+32768:.."W|
00001bc0 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 71 25 |imp_SlotSize",q%|
00001bd0 2b 47 25 2d 33 32 37 36 38 2c 2d 31 3a c8 99 22 |+G%-32768,-1:.."|
00001be0 4f 53 5f 48 65 61 70 22 2c 30 2c 71 25 2c 2c 47 |OS_Heap",0,q%,,G|
00001bf0 25 3a e1 0d 02 0d 37 dd a4 69 28 50 61 25 29 3a |%:....7..i(Pa%):|
00001c00 ea 61 25 3a c8 99 22 58 4f 53 5f 48 65 61 70 22 |.a%:.."XOS_Heap"|
00001c10 2c 32 2c 71 25 2c 2c 50 61 25 b8 2c 2c 61 25 3a |,2,q%,,Pa%.,,a%:|
00001c20 e7 61 25 3c 3e 30 8c 3d 61 25 0d 02 12 11 e7 a4 |.a%<>0.=a%......|
00001c30 66 28 50 61 25 29 3d a3 8c 3d 30 0d 02 13 4e c8 |f(Pa%)=..=0...N.|
00001c40 99 22 58 4f 53 5f 48 65 61 70 22 2c 32 2c 71 25 |."XOS_Heap",2,q%|
00001c50 2c 2c 50 61 25 b8 2c 2c 61 25 3a f2 6b 3a e7 61 |,,Pa%.,,a%:.k:.a|
00001c60 25 3d 30 8c 85 31 2c 22 43 61 6e 6e 6f 74 20 63 |%=0..1,"Cannot c|
00001c70 6c 61 69 6d 20 65 6e 6f 75 67 68 20 66 72 65 65 |laim enough free|
00001c80 20 6d 65 6d 6f 72 79 2e 22 0d 02 16 07 3d 61 25 | memory."....=a%|
00001c90 0d 02 19 4a dd a4 6a 28 51 61 25 2c 52 61 25 29 |...J..j(Qa%,Ra%)|
00001ca0 3a ea 6e 25 2c 66 25 2c 74 25 3a c8 99 22 58 4f |:.n%,f%,t%:.."XO|
00001cb0 53 5f 48 65 61 70 22 2c 34 2c 71 25 2c 51 61 25 |S_Heap",4,q%,Qa%|
00001cc0 2c 52 61 25 b8 2c 2c 6e 25 3b 66 25 3a e7 28 66 |,Ra%.,,n%;f%:.(f|
00001cd0 25 80 31 29 3d 30 8c 3d 6e 25 0d 02 1c 2f c8 99 |%.1)=0.=n%.../..|
00001ce0 22 4f 53 5f 48 65 61 70 22 2c 36 2c 71 25 2c 51 |"OS_Heap",6,q%,Q|
00001cf0 61 25 b8 2c 2c 2c 74 25 3a e7 a4 66 28 74 25 2b |a%.,,,t%:..f(t%+|
00001d00 52 61 25 29 3d a3 8c 3d 30 0d 02 1e 33 c8 99 22 |Ra%)=..=0...3.."|
00001d10 58 4f 53 5f 48 65 61 70 22 2c 34 2c 71 25 2c 51 |XOS_Heap",4,q%,Q|
00001d20 61 25 2c 52 61 25 b8 2c 2c 6e 25 3b 66 25 3a e7 |a%,Ra%.,,n%;f%:.|
00001d30 28 66 25 80 31 29 3d 30 8c 3d 6e 25 0d 02 20 06 |(f%.1)=0.=n%.. .|
00001d40 3d 30 0d 02 23 27 dd a4 65 28 51 61 25 29 3a c8 |=0..#'..e(Qa%):.|
00001d50 99 22 4f 53 5f 48 65 61 70 22 2c 33 2c 71 25 2c |."OS_Heap",3,q%,|
00001d60 51 61 25 3a f2 6b 3a 3d 30 0d 02 28 54 dd a4 66 |Qa%:.k:=0..(T..f|
00001d70 28 50 61 25 29 3a ea 73 25 2c 66 25 3a 73 25 3d |(Pa%):.s%,f%:s%=|
00001d80 a4 67 28 47 25 2b 50 61 25 29 3a c8 99 22 58 57 |.g(G%+Pa%):.."XW|
00001d90 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 71 25 |imp_SlotSize",q%|
00001da0 2b 73 25 2d 33 32 37 36 38 2c 2d 31 b8 3b 66 25 |+s%-32768,-1.;f%|
00001db0 3a e7 28 66 25 80 31 29 3d 31 8c 3d a3 0d 02 2c |:.(f%.1)=1.=...,|
00001dc0 24 c8 99 22 4f 53 5f 48 65 61 70 22 2c 35 2c 71 |$.."OS_Heap",5,q|
00001dd0 25 2c 2c 73 25 2d 47 25 3a 47 25 3d 73 25 3a 3d |%,,s%-G%:G%=s%:=|
00001de0 b9 0d 02 31 3f dd f2 6b 3a ea 73 25 2c 74 25 3a |...1?..k:.s%,t%:|
00001df0 73 25 3d 47 25 3a c8 99 22 58 4f 53 5f 48 65 61 |s%=G%:.."XOS_Hea|
00001e00 70 22 2c 35 2c 71 25 2c 2c 2d 73 25 b8 2c 2c 2c |p",5,q%,,-s%.,,,|
00001e10 74 25 3a e7 74 25 3d 2d 73 25 8c 74 25 3d 73 25 |t%:.t%=-s%.t%=s%|
00001e20 0d 02 35 51 47 25 3d a4 67 28 47 25 2d 74 25 29 |..5QG%=.g(G%-t%)|
00001e30 3a c8 99 22 58 4f 53 5f 48 65 61 70 22 2c 35 2c |:.."XOS_Heap",5,|
00001e40 71 25 2c 2c 47 25 2d 28 73 25 2d 74 25 29 3a c8 |q%,,G%-(s%-t%):.|
00001e50 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 |."Wimp_SlotSize"|
00001e60 2c 71 25 2b 47 25 2d 33 32 37 36 38 2c 2d 31 3a |,q%+G%-32768,-1:|
00001e70 e1 0d 02 39 1d dd a4 67 28 73 25 29 3a ea 74 25 |...9...g(s%):.t%|
00001e80 3a e7 28 73 25 83 4f 61 25 29 3c 3e 30 8c 0d 02 |:.(s%.Oa%)<>0...|
00001e90 3d 1a 74 25 3d 4f 61 25 2d 28 73 25 83 4f 61 25 |=.t%=Oa%-(s%.Oa%|
00001ea0 29 3a 73 25 2b 3d 74 25 0d 02 40 05 cd 0d 02 40 |):s%+=t%..@....@|
00001eb0 07 3d 73 25 0d 02 43 25 dd a4 6b 3a ea 74 25 3a |.=s%..C%..k:.t%:|
00001ec0 c8 99 22 4f 53 5f 48 65 61 70 22 2c 31 2c 71 25 |.."OS_Heap",1,q%|
00001ed0 b8 2c 2c 74 25 3a 3d 74 25 0d 02 48 73 dd f2 69 |.,,t%:=t%..Hs..i|
00001ee0 28 63 24 2c 6d 24 2c 58 25 2c 59 25 29 3a f2 6c |(c$,m$,X%,Y%):.l|
00001ef0 28 63 61 25 2c 63 24 2c 6d 24 29 3a c8 99 22 57 |(ca%,c$,m$):.."W|
00001f00 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
00001f10 2c 63 61 25 2c 58 25 2d 63 61 25 21 31 36 2f 32 |,ca%,X%-ca%!16/2|
00001f20 2c 59 25 3a 41 24 3d 22 4e 6f 20 70 72 69 6e 74 |,Y%:A$="No print|
00001f30 65 72 22 3a c8 99 36 35 35 36 38 30 2c 2c 2c 2c |er":..655680,,,,|
00001f40 2c 41 24 b8 2c 2c 2c 2c 41 24 3a e1 0d 02 4c a2 |,A$.,,,,A$:...L.|
00001f50 dd f2 6c 28 4d 25 2c 63 24 2c 6d 24 29 3a ea 49 |..l(M%,c$,m$):.I|
00001f60 25 2c 52 25 2c 53 61 25 2c 72 25 2c 54 61 25 2c |%,R%,Sa%,r%,Ta%,|
00001f70 4e 2c 58 3a 54 61 25 3d 31 32 38 3a 24 4d 25 3d |N,X:Ta%=128:$M%=|
00001f80 63 24 3a 4d 25 21 31 32 3d 34 35 39 32 37 31 3a |c$:M%!12=459271:|
00001f90 4d 25 21 32 30 3d 34 34 3a 4d 25 21 32 34 3d 30 |M%!20=44:M%!24=0|
00001fa0 3a 49 25 3d 4d 25 2b 32 38 3a 52 25 3d a9 28 63 |:I%=M%+28:R%=.(c|
00001fb0 24 29 2d 32 3a f5 3a 41 25 3d a7 6d 24 2c 22 2c |$)-2:.:A%=.m$,",|
00001fc0 22 29 3a 24 28 49 25 2b 31 32 29 3d c0 6d 24 2c |"):$(I%+12)=.m$,|
00001fd0 41 25 2d 31 29 3a 6d 24 3d c1 6d 24 2c 41 25 2b |A%-1):m$=.m$,A%+|
00001fe0 31 29 3a e7 41 25 3e 52 25 52 25 3d 41 25 0d 02 |1):.A%>R%R%=A%..|
00001ff0 55 1d 21 49 25 3d 30 3a 49 25 21 34 3d 30 3a 3a |U.!I%=0:I%!4=0::|
00002000 c8 8e 24 28 49 25 2b 31 32 29 ca 0d 02 58 13 c9 |..$(I%+12)...X..|
00002010 22 49 6e 66 6f 22 3a 49 25 21 34 3d 54 25 0d 02 |"Info":I%!4=T%..|
00002020 5a 36 c9 22 48 65 6c 70 20 4f 6e 22 3a 49 25 21 |Z6."Help On":I%!|
00002030 34 3d 63 61 25 2b 32 30 30 3a f2 6c 28 49 25 21 |4=ca%+200:.l(I%!|
00002040 34 2c 22 20 48 65 6c 70 20 4f 6e 20 22 2c 22 40 |4," Help On ","@|
00002050 40 2c 22 29 0d 02 5c 3b c9 22 40 40 22 3a 58 3d |@,")..\;."@@":X=|
00002060 31 3a f5 3a 24 28 49 25 2b 31 32 29 3d 61 24 28 |1:.:$(I%+12)=a$(|
00002070 58 29 3a e7 a9 28 61 24 28 58 29 29 2b 31 3e 52 |X):..(a$(X))+1>R|
00002080 25 8c 52 25 3d a9 28 61 24 28 58 29 29 2b 31 0d |%.R%=.(a$(X))+1.|
00002090 02 5f 35 21 49 25 3d 30 3a 49 25 21 34 3d 30 3a |._5!I%=0:I%!4=0:|
000020a0 49 25 21 38 3d 26 37 30 30 30 30 32 31 3a 58 2b |I%!8=&7000021:X+|
000020b0 3d 31 3a e7 61 24 28 58 29 3c 3e 22 22 8c 49 25 |=1:.a$(X)<>"".I%|
000020c0 2b 3d 32 34 0d 02 62 0d fd 61 24 28 58 29 3d 22 |+=24..b..a$(X)="|
000020d0 22 0d 02 64 05 cb 0d 02 64 35 3a 49 25 21 38 3d |"..d....d5:I%!8=|
000020e0 26 37 30 30 30 30 32 31 3a e7 24 28 49 25 2b 31 |&7000021:.$(I%+1|
000020f0 32 29 3d 22 45 78 74 65 6e 64 65 64 22 8c 49 25 |2)="Extended".I%|
00002100 21 38 3d 26 37 34 30 30 30 32 31 0d 02 67 2c 49 |!8=&7400021..g,I|
00002110 25 2b 3d 32 34 3a fd 6d 24 3d 22 22 3a 21 28 49 |%+=24:.m$="":!(I|
00002120 25 2d 32 34 29 3d 54 61 25 3a 4d 25 21 31 36 3d |%-24)=Ta%:M%!16=|
00002130 52 25 2a 31 36 3a e1 0d 02 6b 21 dd f2 68 28 41 |R%*16:...k!..h(A|
00002140 29 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c |):.."Wimp_SetCol|
00002150 6f 75 72 22 2c 41 3a e1 0d 02 70 3c dd f2 66 28 |our",A:...p<..f(|
00002160 57 25 29 3a 21 62 25 3d 57 25 3a c8 99 22 57 69 |W%):!b%=W%:.."Wi|
00002170 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
00002180 65 22 2c 2c 62 25 3a 62 25 21 32 38 3d 2d 31 3a |e",,b%:b%!28=-1:|
00002190 f2 67 3a e1 0d 02 75 46 dd a4 62 28 55 61 25 2c |.g:...uF..b(Ua%,|
000021a0 56 61 25 29 3a 62 25 21 30 3d 55 61 25 3a 62 25 |Va%):b%!0=Ua%:b%|
000021b0 21 34 3d 56 61 25 3a c8 99 22 57 69 6d 70 5f 47 |!4=Va%:.."Wimp_G|
000021c0 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 |etIconState",,b%|
000021d0 3a 3d 24 28 62 25 21 32 38 29 0d 02 7c 72 dd f2 |:=$(b%!28)..|r..|
000021e0 65 28 57 25 2c 49 25 2c 53 24 29 3a 62 25 21 30 |e(W%,I%,S$):b%!0|
000021f0 3d 57 25 3a 62 25 21 34 3d 49 25 3a c8 99 22 57 |=W%:b%!4=I%:.."W|
00002200 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00002210 22 2c 2c 62 25 3a 24 28 62 25 21 32 38 29 3d 53 |",,b%:$(b%!28)=S|
00002220 24 3a 62 25 21 38 3d 30 3a 62 25 21 31 32 3d 30 |$:b%!8=0:b%!12=0|
00002230 3a c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |:.."Wimp_SetIcon|
00002240 53 74 61 74 65 22 2c 2c 62 25 3a e1 0d 02 82 22 |State",,b%:...."|
00002250 dd f2 62 28 21 62 25 29 3a ea 58 2c 59 2c 5a 3a |..b(!b%):.X,Y,Z:|
00002260 c8 97 58 2c 59 2c 5a 3a e7 5a 3c 3e 31 8c 0d 02 |..X,Y,Z:.Z<>1...|
00002270 87 45 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |.E.."Wimp_CloseW|
00002280 69 6e 64 6f 77 22 2c 2c 62 25 3a e7 21 62 25 3d |indow",,b%:.!b%=|
00002290 6f 25 8c 21 62 25 3d 74 61 25 3a c8 99 22 57 69 |o%.!b%=ta%:.."Wi|
000022a0 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c |mp_CloseWindow",|
000022b0 2c 62 25 0d 02 89 0c cc 3a e7 67 25 3e 30 8c 0d |,b%.....:.g%>0..|
000022c0 02 8b 14 67 25 2d 3d 31 3a f2 61 28 62 24 28 67 |...g%-=1:.a(b$(g|
000022d0 25 29 29 0d 02 8d 08 cc 3a ef 37 0d 02 8e 05 cd |%)).....:.7.....|
000022e0 0d 02 8f 05 cd 0d 02 90 05 e1 0d 02 91 47 dd a4 |.............G..|
000022f0 68 28 6a 24 29 3a ea 46 24 2c 4e 3a 4e 3d a9 28 |h(j$):.F$,N:N=.(|
00002300 6a 24 29 3a c8 95 c1 6a 24 2c 4e 2c 31 29 3c 3e |j$):...j$,N,1)<>|
00002310 22 2e 22 80 4e 3e 30 3a 46 24 3d c1 6a 24 2c 4e |".".N>0:F$=.j$,N|
00002320 2c 31 29 2b 46 24 3a 4e 2d 3d 31 3a ce 3a 3d 46 |,1)+F$:N-=1:.:=F|
00002330 24 0d 02 9a 07 dd f2 63 0d 02 9b 0a 2a 43 4c 4f |$......c....*CLO|
00002340 53 45 0d 02 9b 2c c8 99 22 48 6f 75 72 67 6c 61 |SE...,.."Hourgla|
00002350 73 73 5f 53 6d 61 73 68 22 3a c8 99 22 57 69 6d |ss_Smash":.."Wim|
00002360 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 02 |p_CloseDown":...|
00002370 9e 05 e1 0d 02 9f 9e dd f2 44 28 21 62 25 2c 6c |.........D(!b%,l|
00002380 24 2c 4c 25 2c 42 25 2c 57 25 2c 48 25 2c 62 25 |$,L%,B%,W%,H%,b%|
00002390 21 32 30 29 3a 62 25 21 34 3d 4c 25 3a 62 25 21 |!20):b%!4=L%:b%!|
000023a0 38 3d 42 25 3a 62 25 21 31 32 3d 4c 25 2b 57 25 |8=B%:b%!12=L%+W%|
000023b0 3a 62 25 21 31 36 3d 42 25 2b 48 25 3a 62 25 21 |:b%!16=B%+H%:b%!|
000023c0 32 34 3d 69 61 25 2b 75 25 2a 38 30 3a 62 25 21 |24=ia%+u%*80:b%!|
000023d0 32 38 3d 68 61 25 3a 62 25 21 33 32 3d a9 28 6c |28=ha%:b%!32=.(l|
000023e0 24 29 2b 31 3a 24 28 69 61 25 2b 75 25 2a 38 30 |$)+1:$(ia%+u%*80|
000023f0 29 3d 6c 24 3a c8 99 22 57 69 6d 70 5f 43 72 65 |)=l$:.."Wimp_Cre|
00002400 61 74 65 49 63 6f 6e 22 2c 2c 62 25 b8 49 25 3a |ateIcon",,b%.I%:|
00002410 e1 0d 02 ab c6 dd f2 79 28 57 61 25 2c 58 61 25 |.......y(Wa%,Xa%|
00002420 2c 59 61 25 2c 5a 61 25 29 3a 21 79 25 3d 58 61 |,Ya%,Za%):!y%=Xa|
00002430 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |%:.."Wimp_GetWin|
00002440 64 6f 77 53 74 61 74 65 22 2c 2c 79 25 3a 79 25 |dowState",,y%:y%|
00002450 21 32 38 3d 62 25 21 32 38 3a 79 25 21 31 32 3d |!28=b%!28:y%!12=|
00002460 62 25 21 31 32 3a 79 25 21 31 36 3d 79 25 21 31 |b%!12:y%!16=y%!1|
00002470 36 2d 79 25 21 38 2b 62 25 21 38 2b 5a 61 25 3a |6-y%!8+b%!8+Za%:|
00002480 79 25 21 34 3d 62 25 21 34 2b 59 61 25 3a 79 25 |y%!4=b%!4+Ya%:y%|
00002490 21 38 3d 62 25 21 38 2b 5a 61 25 3a c8 99 22 57 |!8=b%!8+Za%:.."W|
000024a0 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",|
000024b0 2c 79 25 3a 62 25 21 32 38 3d 58 61 25 3a c8 99 |,y%:b%!28=Xa%:..|
000024c0 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 |"Wimp_OpenWindow|
000024d0 22 2c 2c 62 25 3a e1 0d 02 b8 1e dd a4 63 28 41 |",,b%:.......c(A|
000024e0 24 29 3a ea 4e 2c 43 2c 42 24 3a e7 41 24 3d 22 |$):.N,C,B$:.A$="|
000024f0 22 8c 3d 22 22 0d 02 bc 30 42 24 3d 22 22 3a e3 |".=""...0B$="":.|
00002500 4e 3d 31 b8 a9 28 41 24 29 3a 42 24 2b 3d bd 28 |N=1..(A$):B$+=.(|
00002510 97 28 c1 41 24 2c 4e 2c 31 29 29 84 33 32 29 3a |.(.A$,N,1)).32):|
00002520 ed 3a 3d 42 24 0d ff |.:=B$..|
00002527 
.