Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/Slide/!SlideShow/!RunImage
!AWFeb95/Goodies/Slide/!SlideShow/!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/!RunImage |
| Read OK: | ✔ |
| File size: | 2213 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1
2b$="!SlideShow":h$="v1.10 (13 Aug 1994)":aa%=100::SYS"Hourglass_On":PROCq:PROCr("Picture Displayer","(A) Robert Taylor"):SYS"Hourglass_Off"::ONERRORPROCs(ERR,REPORT$,ERL)
11REPEAT:SYS"Wimp_Poll",,b%TOi:CASE(i)OF
14WHEN1:PROCt(!b%)
16WHEN2:PROCf
17WHEN3:PROCu(!b%)
18WHEN6:PROCv(b%)
19WHEN8:PROCw(!b%,b%!4,b%!24)
20WHEN9:PROCx
21WHEN17,18:PROCy(b%!16)
22ENDCASE
22UNTILba%:PROCc:END
25DEFPROCq
28*KEY 1 EDIT|M
28ca%=400:DIMb% 4096,da% 2048:DIMq% 1024:DIMea% 768:fa%=ea%+768:DIMa$(ca%):SYS"Wimp_Initialise",200,&4B534154,b$TO,ga%:PROCz:PROCA:PROCB:ba%=0:e%=0:ha%=99999:ia%=99999:n%=0:ja%=1:ka%=16:la%=1:ma%=16:na%=24
45oa%=32:pa%=50:qa%=1:ra%=2:PROCC:T=TIME+100:a=0:REPEAT:a+=1:UNTILTIME>T:a=a/40:ENDPROC
54DEFPROCr(i$,j$):PROCb(_%,4,b$):PROCb(_%,2,i$):PROCb(_%,5,j$):PROCb(_%,6,h$):ENDPROC
61DEFPROCs(f,c$,g)
64*CLOSE
64SYS"Hourglass_Smash":SYS"Wimp_CreateMenu",-1::CASEfOF
68WHEN1:c$=b$+" has suffered a fatal error ("+STR$(g):c$+=") and must exit immediately.":!b%=f:$(b%+4)=c$:SYS"Wimp_ReportError",b%,1,b$TO,z%:PROCc
75WHEN17:!b%=f:$(b%+4)=c$:SYS"Wimp_ReportError",b%,1,b$TO,z%
78OTHERWISE:c$+=" ("+STR$(g)+"). OK to continue, CANCEL to quit.":!b%=f:$(b%+4)=c$:SYS"Wimp_ReportError",b%,3,b$TO,z%:IFz%=2THENPROCc
82ENDCASE
83ENDPROC
84DEFPROCt(W%):LOCALsa%,ta%,H%,ua%,va%:!b%=W%:SYS"Wimp_RedrawWindow",,b%TOsa%:ta%=4+b%!4-b%!20:H%=b%!16-b%!24-4:WHILEsa%:ua%=((H%-b%!40)DIV36):va%=((H%-b%!32)DIV36)+1:IFW%=J%ANDe%>0THEN
93IFva%>e%THENva%=e%
94IFua%<1THENua%=1
95FORN=ua%TOva%:MOVEta%+16,H%-(N*36)+32:PRINTFNa(a$(N)):NEXT
100ENDIF
100SYS"Wimp_GetRectangle",,b%TOsa%:ENDWHILE:ENDPROC
103DEFPROCf:IF!b%=K%THENPROCD(K%,J%,16,20)
106SYS"Wimp_OpenWindow",,b%:ENDPROC
108DEFPROCv(b%):LOCALwa%,I%,A$,W%,z%:I%=b%!16:W%=b%!12:z%=b%!8:CASEz%OF
113WHEN2:IFW%=-2THENPROCE(" "+b$+" ","Info,View,Quit,",!b%,242)
115WHEN1,4:IFW%=-2THEN
117PROCd(K%)
119ENDIF
119IFI%=-1THENPROCF(W%,z%)
120IFW%=K%THEN
121CASEI%OF
122WHEN5:IFe%>0THENPROCg
123WHEN6:e%=0:PROCa(e%)
125WHEN7:FORN=1TOe%:A=RND(e%):B=RND(e%):SWAPa$(A),a$(B):PROCa(e%):NEXT
130ENDCASE
130ENDIF
131ENDCASE
132ENDPROC
133DEFPROCw(W%,I%,C%):LOCALA:SYS"Wimp_ProcessKey",C%:ENDPROC
138DEFPROCx:LOCALN,Q,M%,`%,T,X,Y,Z,I:CASE!b%OF
142WHEN1:IFe%>0THENPROCg
143WHEN2:ba%=-1
145ENDCASE
145ENDPROC
146DEFPROCy(M%):LOCALA$:CASEM%OF
150WHEN0:ba%=-1
152WHEN3:IFb%!40=4089THEN
152e%+=1:a$(e%)=FNd(b%+44):PROCa(e%):PROCd(K%)
156ENDIF
156IFb%!40=4096THEN
157e$=FNd(b%+44):PROCG(e$):PROCd(K%)
161ENDIF
161ENDCASE
162ENDPROC
163DEFPROCA:SYS"Wimp_OpenTemplate",,"<Obey$Dir>.Templates":_%=FNc("info"):J%=FNc("main"):K%=FNc("BACK"):SYS"Wimp_CloseTemplate":ENDPROC
171DEFPROCB: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
180DEFPROCF(W%,z%):LOCALx%,y%,ta%,H%:x%=!b%:y%=b%!4:!b%=W%:SYS"Wimp_GetWindowState",,b%:ta%=b%!4-b%!20:H%=b%!16-b%!24:CASEW%OF
187WHENJ%:CASEz%OF
189WHEN1:PROCH(((H%-y%)DIV36)+1)
191WHEN4:PROCI(((H%-y%)DIV36)+1)
192ENDCASE
192ENDCASE
193ENDPROC
194DEFFNc(d$):SYS"Wimp_LoadTemplate",,b%,ea%,fa%,-1,d$,0TO,,ea%,,,,P%:SYS"Wimp_CreateWindow",,b%TOxa%:=xa%
201DEFFNd(A):LOCALS$,N:WHILE(A!NMOD256)<>13AND(A!NMOD256)<>0:S$+=CHR$(A!N):N+=1:ENDWHILE:=S$
209DEFFNa(f$):WHILEINSTR(f$,".")>0:f$=RIGHT$(f$,LEN(f$)-INSTR(f$,".")):ENDWHILE:=f$
211DEFPROCa(ya%):LOCALza%,Aa%:!b%=J%:SYS"Wimp_GetWindowInfo",,b%:za%=-(b%!8-b%!16):Aa%=e%*36+4:IFAa%<za%THENAa%=za%
216!b%=J%:b%!4=0:b%!8=-Aa%:b%!12=306:b%!16=0:SYS"Wimp_SetExtent",J%,b%+4:SYS"Wimp_ForceRedraw",J%,0,-Aa%-40,1236,0:ENDPROC
221DEFPROCH(X):IFX>e%ORX<1THENENDPROC
224LOCALN:IFe%=0THENENDPROC
226FORN=XTOe%-1:a$(N)=a$(N+1):NEXT:e%-=1:PROCa(e%):ENDPROC
229DEFPROCJ(a$):LOCALC,r%:C=OPENIN(a$):r%=EXT#C:CLOSE#C:Ba%=n%:r%+=256:n%=FNf(r%):IFn%=0THENPROCK
236!n%=r%:SYS"OS_SpriteOp",256+10,n%,a$:Ca%=n%+n%!8:Da%=o%:u%=n%+(n%!8):j%=(u%!16)*4+4:Ea%=n%+44:u%=n%+(u%!32)+16:IFEa%=u%-16THENEa%=0
244SYS"OS_SpriteOp",512+40,n%,Ca%TO,,,Fa%,O%,,o%:SYS"OS_CheckModeValid",o%TOGa%:IFGa%=-1THEN
247N%=FNb(n%):SYS"Wimp_SetMode",M%:ERROR17,"Cannot display "+FNa(a$)+". Unable to change to correct mode"
251ENDIF
251SYS"OS_ReadModeVariable",o%,4TO,,h%:h%=2^h%:SYS"OS_ReadModeVariable",o%,5TO,,m%:m%=2^m%:SYS"OS_ReadModeVariable",o%,11TO,,k%:k%+=1:SYS"OS_ReadModeVariable",o%,12TO,,i%:i%+=1:ENDPROC
256DEFPROCI(P):LOCALX,Y,Z:IFP>0ANDP<e%+1THEN
260Fa%=0:m%=0:M%=MODE:O%=0:o%=0:h%=0:Ha%=-1:PROCh(a$(P)):REPEAT:MOUSEX,Y,Z:I=INKEY(0):UNTILI<>-1ORZ<>0:SYS"Wimp_SetMode",M%
267ENDIF
267ENDPROC
268DEFPROCg:LOCAL`%,Q:Q=1:`%=0:Ha%=-1:Fa%=0:m%=0:M%=MODE:O%=0:o%=0:h%=0:Ia%=100*VAL(FNg(K%,1)):REPEAT:PROCh(a$(Q)):IFIa%=0THENT=TIME-1ELSET=TIME+Ia%
278REPEAT:MOUSEX,Y,Z:I=INKEY(1):IFINKEY(-113)THEN`%=-1
281IFI=32THENI=GET
282UNTILI<>-1ORZ<>0ORTIME>=TOR`%:Q+=1:IFQ>e%THENQ=1
284UNTIL`%:SYS"Wimp_SetMode",M%:ENDPROC
287DEFPROCh(a$):LOCALN%,F%,t%,c%,Z%:PROCJ(a$):IFHa%THEN
292MODEo%:OFF:Ha%=0:IFMODE<>o%THENPROCi
294PROCj:PROCe
297ELSE:IFMODE=o%THEN
298PROCe
300ELSE:PROCk:MODEo%:OFF:IFMODE<>o%THENPROCi
303PROCj:PROCe
306ENDIF
306ENDIF
307N%=FNb(n%):ENDPROC
309DEFPROCe:LOCALN,F:IFJa%=4ANDEa%<>0THEN
313CLS:PRINTTAB(0,20);:FORN=0TO15:F=!(Ea%+N*8+16):VDU19,N,16,F>>8AND255,F>>16AND255,F>>24AND255
317NEXT
319ENDIF
319N=RND(5):CASENOF
321WHEN1:PROCl
323WHEN2:PROCm
324WHEN3,4:PROCn
325WHEN5:PROCk:F=RND(3):CASEFOF
327WHEN1:PROCl
329WHEN2:PROCm
330WHEN3,4:PROCn
331ENDCASE
331ENDCASE
332ENDPROC
333DEFPROCk:LOCALN:N=RND(6):CASENOF
338WHEN1:PROCL
340WHEN2:PROCM
341WHEN3:PROCN
342WHEN4:PROCo
343WHEN5:PROCO
344WHEN6:PROCP
345ENDCASE
345ENDPROC
346DEFPROCL:LOCALN%,g%,d%:g%=k%*h%:d%=i%*m%:GCOL0TINT0:FORN%=0TOd%DIV2STEPm%:FORL=1TOa*2:NEXT:LINE0,N%,g%,N%:LINE0,d%-N%,g%,d%-N%:NEXT:ENDPROC
358DEFPROCM:LOCALN%,g%,d%:IFi%MOD2=0THENi%+=1
362g%=k%*h%:d%=i%*m%:GCOL0TINT0:FORN%=0TOd%STEPm%*2:FORL=1TOa*2:NEXT:LINE0,N%,g%,N%:LINE0,d%-N%,g%,d%-N%:NEXT:ENDPROC
371DEFPROCN:LOCALN%,g%,d%,R%,S%,T%:g%=k%*h%:d%=i%*m%:R%=g%/2:S%=d%/2:GCOL0TINT0:FORN%=R%TOg%STEPh%*4:LINER%,S%,N%,d%:NEXT:FORN%=d%TO0STEP-m%*4:LINER%,S%,g%,N%:NEXT:FORN%=g%TO0STEP-h%*4:LINER%,S%,N%,0:NEXT:FORN%=0TOd%STEPm%*4:LINER%,S%,0,N%:NEXT:FORN%=0TOR%STEPh%*4:LINER%,S%,N%,d%:NEXT:PROCo:ENDPROC
385DEFPROCo:LOCALN%,g%,d%,b,c,P%,Q%:g%=k%*h%:d%=i%*m%:b=h%:c=d%/k%:GCOL0TINT0:FORN%=0TOk%>>1:FORL=1TOa:NEXT:P%=b*N%:Q%=c*N%:RECTANGLEP%,Q%,g%-(P%<<1),d%-(Q%<<1):NEXT:ENDPROC
397DEFPROCO:LOCALN%,g%,d%,b,c,P%,Q%:g%=k%*h%:d%=i%*m%:b=h%:c=d%/k%:GCOL0TINT0:FORN%=k%>>1TO0STEP-1:FORL=1TOa:NEXT:P%=b*N%:Q%=c*N%:RECTANGLEP%,Q%,g%-(P%<<1),d%-(Q%<<1):NEXT:ENDPROC
409DEFPROCP:LOCALN%,g%,d%,b,c,P%,Q%:g%=k%*h%:d%=i%*m%:b=h%:c=d%/k%:GCOL0TINT0:FORN%=0TOk%>>1STEP2:FORL=1TOa:NEXT:P%=b*N%:Q%=c*N%:RECTANGLEP%,Q%,g%-(P%<<1),d%-(Q%<<1):NEXT:FORN%=1TOk%>>1STEP2:FORL=1TOa:NEXT:P%=b*N%:Q%=c*N%:RECTANGLEP%,Q%,g%-(P%<<1),d%-(Q%<<1):NEXT:ENDPROC
425DEFPROCl:LOCALY%,U%,p%:IFO%>=i%THENU%=i%-1ELSEU%=O%
429IFj%>=l%THENp%=l%-1ELSEp%=j%
430FORY%=0TOU%-ka%STEPka%:FORL=1TOa*2:NEXT:A%=u%+Y%*j%:B%=V%+Y%*l%:C%=p%:D%=ka%:E%=l%:F%=j%:G%=1:CALLe:NEXT:IFY%<>U%THEN
438A%=u%+Y%*j%:B%=V%+Y%*l%:C%=p%:D%=U%-Y%:E%=l%:F%=j%:G%=1:CALLe
443ENDIF
443GCOL0TINT0:IFU%=i%-1THENENDPROC
445RECTANGLEFILL0,0,k%*h%,(i%-Y%)*m%:ENDPROC
447DEFPROCm:LOCALN%,g%,d%:IFj%>=l%THENp%=l%-1ELSEp%=j%
451IFO%>=i%THENd%=i%-1ELSEd%=O%-1
452GCOL0TINT0:RECTANGLEFILL0,0,k%*h%,(i%-d%)*m%:FORN%=0TOd%/2:FORL=1TOa*2:NEXT:A%=u%+N%*j%:B%=V%+N%*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:CALLe:A%=u%+(d%-N%)*j%:B%=V%+(d%-N%)*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:CALLe:NEXT:ENDPROC
466DEFPROCn:LOCALN%,g%,d%:IFj%>=l%THENp%=l%-1ELSEp%=j%
470IFO%>=i%THENd%=i%-1ELSEd%=O%-1
471IFd%MOD2=0THENd%-=1
472GCOL0TINT0:RECTANGLEFILL0,0,k%*h%,(i%-d%)*m%:FORN%=0TOd%STEP2:WAIT:A%=u%+N%*j%:B%=V%+N%*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:CALLe:A%=u%+(d%-N%)*j%:B%=V%+(d%-N%)*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:CALLe:NEXT:ENDPROC
486DEFPROCj:SYS"OS_ReadModeVariable",-1,9TO,,Ja%:Ja%=2^Ja%:IFJa%<4THEN
491N%=FNb(n%):SYS"Wimp_SetMode",M%:ERROR17,"This sprite ('"+a$(Q)+"') has less than 16 colours."
495ENDIF
495!b%=149:b%!4=-1:SYS"OS_ReadVduVariables",b%,b%+8:V%=b%!8:l%=Ja%*k%/8:ENDPROC
500DEFPROCK:SYS"Wimp_SetMode",M%:ERROR17,"Not enough memory to load picture "+FNa(a$):ENDPROC
505DEFPROCD(Ka%,La%,Ma%,Na%):!q%=La%:SYS"Wimp_GetWindowState",,q%:q%!28=b%!28:q%!12=b%!12:q%!16=q%!16-q%!8+b%!8+Na%:q%!4=b%!4+Ma%:q%!8=b%!8+Na%:SYS"Wimp_OpenWindow",,q%:b%!28=La%:SYS"Wimp_OpenWindow",,b%:ENDPROC
518DEFPROCG(e$):LOCALf%,Oa%,d$,d:SYS"OS_GBPB",10,e$,b%,77,0,4096,"*"TOd,d,d,Pa%:f%=b%:Qa%=Pa%:WHILEQa%>0:d$="":Oa%=20:WHILEf%?Oa%<>0:d$+=CHR$(f%?Oa%):Oa%+=1:ENDWHILE:IFf%!16=1AND(f%!0>>8)AND4089THENe%+=1:a$(e%)=e$+"."+d$
530f%+=((Oa%+4)DIV4)*4:Qa%-=1:ENDWHILE:PROCa(e%):ENDPROC
534DEFPROCi:N%=FNb(n%):SYS"Wimp_SetMode",M%:ERROR17,"Unable to change to correct mode (not enough memory)":ENDPROC
540DEFPROCC:DIMRa% 1000,L% -1:FORI%=8TO10STEP2:P%=Ra%:[OPT I%:.j:ADD12, 12, 10:.k:LDRB9, [10], #1:STRB9, [11], #1:TEQ10, 12:BNE k:MOV pc, 14:.l:MOV9,#0:ADD12, 12, 11:.m:STRB9, [11], #1:CMP11, 12:BLT m:MOV pc, 14:.e:STR14,h:.n
576MOV10,0:MOV11,1:MOV12,2:BL j:SUB12,4,2:CMP6,#1:BLEQ l:ADD0,0,5:ADD1,1,4:SUB3,3,#1:CMP3,#0:BNE n:LDR PC,h:.h:EQUD0: ]:NEXT:ENDPROC
589DEFPROCz:LOCALt%:SYS"OS_ReadMemMapInfo"TOSa%:v%=Sa%:SYS"Wimp_SlotSize",-1,-1TOt%:w%=t%+32768:SYS"Wimp_SlotSize",w%+v%-32768,-1:SYS"OS_Heap",0,w%,,v%:ENDPROC
599DEFFNf(r%):LOCALa%:SYS"XOS_Heap",2,w%,,r%TO,,a%:IFa%<>0THEN=a%
604IFFNh(r%)=0THEN=0
605SYS"XOS_Heap",2,w%,,r%TO,,a%:PROCp:=a%
610DEFFNb(Ta%):SYS"OS_Heap",3,w%,Ta%:PROCp:=0
615DEFFNh(r%):LOCALs%,f%:s%=FNe(v%+r%):SYS"XWimp_SlotSize",w%+s%-32768,-1TO;f%:IF(f%AND1)=1THEN=0
619SYS"XOS_Heap",5,w%,,s%-v%:v%=s%:=TRUE
624DEFPROCp:LOCALs%,t%:s%=v%:SYS"XOS_Heap",5,w%,,-s%TO,,,t%:IFt%=-s%THENt%=s%
628v%=FNe(v%-t%):SYS"XOS_Heap",5,w%,,v%-(s%-t%):SYS"XWimp_SlotSize",w%+v%-32768,-1:ENDPROC
632DEFFNe(s%):LOCALt%:IF(s%MODSa%)<>0THEN
636t%=Sa%-(s%MODSa%):s%+=t%
639ENDIF
639=s%
641DEFPROCE(g$,m$,X%,Y%):PROCQ(da%,g$,m$):SYS"Wimp_CreateMenu",,da%,X%-da%!16/2,Y%:A$="No printer":SYS655680,,,,,A$TO,,,,A$:ENDPROC
645DEFPROCQ(M%,g$,m$):LOCALI%,Ua%,Va%,Wa%,Xa%,N,X:Xa%=128:$M%=g$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:Ua%=LEN(g$)-2:REPEAT:A%=INSTR(m$,","):$(I%+12)=LEFT$(m$,A%-1):m$=MID$(m$,A%+1):IFA%>Ua%Ua%=A%
654!I%=0:I%!4=0::CASE$(I%+12)OF
657WHEN"Info":I%!4=_%
659ENDCASE
659:I%!8=&7000021:IF$(I%+12)="Extended"THENI%!8=&7400021
662I%+=24:UNTILm$="":!(I%-24)=Xa%:M%!16=Ua%*16:ENDPROC
666DEFPROCR(A):SYS"Wimp_SetColour",A:ENDPROC
671DEFPROCd(W%):!b%=W%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:PROCf:ENDPROC
676DEFFNg(Ya%,Za%):b%!0=Ya%:b%!4=Za%:SYS"Wimp_GetIconState",,b%:=$(b%!28)
683DEFPROCb(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
689DEFPROCu(!b%):LOCALX,Y,Z:SYS"Wimp_CloseWindow",,b%:IF!b%=K%THEN!b%=J%:SYS"Wimp_CloseWindow",,b%
694ENDPROC
695DEFFNa(a$):LOCALF$,N:N=LEN(a$):WHILEMID$(a$,N,1)<>"."ANDN>0:F$=MID$(a$,N,1)+F$:N-=1:ENDWHILE:=F$
704DEFFNi(a$):=LEFT$(a$,LEN(a$)-LEN(FNa(a$))-1)
707DEFPROCc
708*CLOSE
708SYS"Hourglass_Smash":SYS"Wimp_CloseDown":END
711ENDPROC
�b$="!SlideShow":h$="v1.10 (13 Aug 1994)":aa%=100::ș"Hourglass_On":�q:�r("Picture Displayer","(A) Robert Taylor"):ș"Hourglass_Off"::��s(�,�$,�)
�:ș"Wimp_Poll",,b%�i:Ȏ(i)�
�1:�t(!b%)
�2:�f
�3:�u(!b%)
�6:�v(b%)
�8:�w(!b%,b%!4,b%!24)
�9:�x
�17,18:�y(b%!16)
�
�ba%:�c:�
��q
*KEY 1 EDIT|M
�ca%=400:�b% 4096,da% 2048:�q% 1024:�ea% 768:fa%=ea%+768:�a$(ca%):ș"Wimp_Initialise",200,&4B534154,b$�,ga%:�z:�A:�B:ba%=0:e%=0:ha%=99999:ia%=99999:n%=0:ja%=1:ka%=16:la%=1:ma%=16:na%=24
-Aoa%=32:pa%=50:qa%=1:ra%=2:�C:T=�+100:a=0:�:a+=1:��>T:a=a/40:�
6@��r(i$,j$):�b(_%,4,b$):�b(_%,2,i$):�b(_%,5,j$):�b(_%,6,h$):�
=��s(f,c$,g)
@
*CLOSE
@4ș"Hourglass_Smash":ș"Wimp_CreateMenu",-1::Ȏf�
D��1:c$=b$+" has suffered a fatal error ("+�(g):c$+=") and must exit immediately.":!b%=f:$(b%+4)=c$:ș"Wimp_ReportError",b%,1,b$�,z%:�c
K9�17:!b%=f:$(b%+4)=c$:ș"Wimp_ReportError",b%,1,b$�,z%
Ns:c$+=" ("+�(g)+"). OK to continue, CANCEL to quit.":!b%=f:$(b%+4)=c$:ș"Wimp_ReportError",b%,3,b$�,z%:�z%=2��c
R�
S�
T���t(W%):�sa%,ta%,H%,ua%,va%:!b%=W%:ș"Wimp_RedrawWindow",,b%�sa%:ta%=4+b%!4-b%!20:H%=b%!16-b%!24-4:ȕsa%:ua%=((H%-b%!40)�36):va%=((H%-b%!32)�36)+1:�W%=J%�e%>0�
]�va%>e%�va%=e%
^�ua%<1�ua%=1
_0�N=ua%�va%:�ta%+16,H%-(N*36)+32:�a(a$(N)):�
d�
d%ș"Wimp_GetRectangle",,b%�sa%:�:�
g ��f:�!b%=K%��D(K%,J%,16,20)
j ș"Wimp_OpenWindow",,b%:�
l<��v(b%):�wa%,I%,A$,W%,z%:I%=b%!16:W%=b%!12:z%=b%!8:Ȏz%�
q6�2:�W%=-2��E(" "+b$+" ","Info,View,Quit,",!b%,242)
s�1,4:�W%=-2�
u
�d(K%)
w�
w�I%=-1��F(W%,z%)
x �W%=K%�
y ȎI%�
z�5:�e%>0��g
{�6:e%=0:�a(e%)
}5�7:�N=1�e%:A=�(e%):B=�(e%):Ȕa$(A),a$(B):�a(e%):�
��
��
��
��
�-��w(W%,I%,C%):�A:ș"Wimp_ProcessKey",C%:�
�#��x:�N,Q,M%,`%,T,X,Y,Z,I:Ȏ!b%�
��1:�e%>0��g
�
�2:ba%=-1
��
��
���y(M%):�A$:ȎM%�
�
�0:ba%=-1
��3:�b%!40=4089�
�(e%+=1:a$(e%)=�d(b%+44):�a(e%):�d(K%)
��
��b%!40=4096�
� e$=�d(b%+44):�G(e$):�d(K%)
��
��
��
�x��A:ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates":_%=�c("info"):J%=�c("main"):K%=�c("BACK"):ș"Wimp_CloseTemplate":�
�e��B:b%!0=-1:b%!4=0:b%!8=0:b%!12=64:b%!16=64:b%!20=385888266:$(b%+24)=b$:ș"Wimp_CreateIcon",,b%:�
�r��F(W%,z%):�x%,y%,ta%,H%:x%=!b%:y%=b%!4:!b%=W%:ș"Wimp_GetWindowState",,b%:ta%=b%!4-b%!20:H%=b%!16-b%!24:ȎW%�
�
�J%:Ȏz%�
��1:�H(((H%-y%)�36)+1)
��4:�I(((H%-y%)�36)+1)
��
��
��
�dݤc(d$):ș"Wimp_LoadTemplate",,b%,ea%,fa%,-1,d$,0�,,ea%,,,,P%:ș"Wimp_CreateWindow",,b%�xa%:=xa%
�Cݤd(A):�S$,N:ȕ(A!N�256)<>13�(A!N�256)<>0:S$+=�(A!N):N+=1:�:=S$
�5ݤa(f$):ȕ�f$,".")>0:f$=�f$,�(f$)-�f$,".")):�:=f$
�f��a(ya%):�za%,Aa%:!b%=J%:ș"Wimp_GetWindowInfo",,b%:za%=-(b%!8-b%!16):Aa%=e%*36+4:�Aa%<za%�Aa%=za%
�s!b%=J%:b%!4=0:b%!8=-Aa%:b%!12=306:b%!16=0:ș"Wimp_SetExtent",J%,b%+4:ș"Wimp_ForceRedraw",J%,0,-Aa%-40,1236,0:�
���H(X):�X>e%�X<1��
��N:�e%=0��
�,�N=X�e%-1:a$(N)=a$(N+1):�:e%-=1:�a(e%):�
�F��J(a$):�C,r%:C=�(a$):r%=�#C:�#C:Ba%=n%:r%+=256:n%=�f(r%):�n%=0��K
�!n%=r%:ș"OS_SpriteOp",256+10,n%,a$:Ca%=n%+n%!8:Da%=o%:u%=n%+(n%!8):j%=(u%!16)*4+4:Ea%=n%+44:u%=n%+(u%!32)+16:�Ea%=u%-16�Ea%=0
�Uș"OS_SpriteOp",512+40,n%,Ca%�,,,Fa%,O%,,o%:ș"OS_CheckModeValid",o%�Ga%:�Ga%=-1�
�cN%=�b(n%):ș"Wimp_SetMode",M%:�17,"Cannot display "+�a(a$)+". Unable to change to correct mode"
��
��ș"OS_ReadModeVariable",o%,4�,,h%:h%=2^h%:ș"OS_ReadModeVariable",o%,5�,,m%:m%=2^m%:ș"OS_ReadModeVariable",o%,11�,,k%:k%+=1:ș"OS_ReadModeVariable",o%,12�,,i%:i%+=1:�
��I(P):�X,Y,Z:�P>0�P<e%+1�
dFa%=0:m%=0:M%=�:O%=0:o%=0:h%=0:Ha%=-1:�h(a$(P)):�:ȗX,Y,Z:I=�(0):�I<>-1�Z<>0:ș"Wimp_SetMode",M%
�
�
q��g:�`%,Q:Q=1:`%=0:Ha%=-1:Fa%=0:m%=0:M%=�:O%=0:o%=0:h%=0:Ia%=100*�(�g(K%,1)):�:�h(a$(Q)):�Ia%=0�T=�-1�T=�+Ia%
#�:ȗX,Y,Z:I=�(1):�(-113)�`%=-1
�I=32�I=�
&�I<>-1�Z<>0��>=T�`%:Q+=1:�Q>e%�Q=1
�`%:ș"Wimp_SetMode",M%:�
(��h(a$):�N%,F%,t%,c%,Z%:�J(a$):�Ha%�
$�o%:�:Ha%=0:��<>o%��i
& �j:�e
) �:��=o%�
*�e
,�:�k:�o%:�:��<>o%��i
/ �j:�e
2�
2�
3N%=�b(n%):�
5��e:�N,F:�Ja%=4�Ea%<>0�
9L�:�0,20);:�N=0�15:F=!(Ea%+N*8+16):�19,N,16,F>>8�255,F>>16�255,F>>24�255
=�
?�
?N=�(5):ȎN�
A �1:�l
C �2:�m
D �3,4:�n
E�5:�k:F=�(3):ȎF�
G �1:�l
I �2:�m
J �3,4:�n
K�
K�
L�
M��k:�N:N=�(6):ȎN�
R �1:�L
T �2:�M
U �3:�N
V �4:�o
W �5:�O
X �6:�P
Y�
Y�
Zd��L:�N%,g%,d%:g%=k%*h%:d%=i%*m%:�0Ȝ0:�N%=0�d%�2�m%:�L=1�a*2:�:�0,N%,g%,N%:�0,d%-N%,g%,d%-N%:�:�
f ��M:�N%,g%,d%:�i%�2=0�i%+=1
jVg%=k%*h%:d%=i%*m%:�0Ȝ0:�N%=0�d%�m%*2:�L=1�a*2:�:�0,N%,g%,N%:�0,d%-N%,g%,d%-N%:�:�
s���N:�N%,g%,d%,R%,S%,T%:g%=k%*h%:d%=i%*m%:R%=g%/2:S%=d%/2:�0Ȝ0:�N%=R%�g%�h%*4:�R%,S%,N%,d%:�:�N%=d%�0�-m%*4:�R%,S%,g%,N%:�:�N%=g%�0�-h%*4:�R%,S%,N%,0:�:�N%=0�d%�m%*4:�R%,S%,0,N%:�:�N%=0�R%�h%*4:�R%,S%,N%,d%:�:�o:�
����o:�N%,g%,d%,b,c,P%,Q%:g%=k%*h%:d%=i%*m%:b=h%:c=d%/k%:�0Ȝ0:�N%=0�k%>>1:�L=1�a:�:P%=b*N%:Q%=c*N%:ȓP%,Q%,g%-(P%<<1),d%-(Q%<<1):�:�
����O:�N%,g%,d%,b,c,P%,Q%:g%=k%*h%:d%=i%*m%:b=h%:c=d%/k%:�0Ȝ0:�N%=k%>>1�0�-1:�L=1�a:�:P%=b*N%:Q%=c*N%:ȓP%,Q%,g%-(P%<<1),d%-(Q%<<1):�:�
����P:�N%,g%,d%,b,c,P%,Q%:g%=k%*h%:d%=i%*m%:b=h%:c=d%/k%:�0Ȝ0:�N%=0�k%>>1�2:�L=1�a:�:P%=b*N%:Q%=c*N%:ȓP%,Q%,g%-(P%<<1),d%-(Q%<<1):�:�N%=1�k%>>1�2:�L=1�a:�:P%=b*N%:Q%=c*N%:ȓP%,Q%,g%-(P%<<1),d%-(Q%<<1):�:�
�'��l:�Y%,U%,p%:�O%>=i%�U%=i%-1�U%=O%
��j%>=l%�p%=l%-1�p%=j%
�c�Y%=0�U%-ka%�ka%:�L=1�a*2:�:A%=u%+Y%*j%:B%=V%+Y%*l%:C%=p%:D%=ka%:E%=l%:F%=j%:G%=1:�e:�:�Y%<>U%�
�>A%=u%+Y%*j%:B%=V%+Y%*l%:C%=p%:D%=U%-Y%:E%=l%:F%=j%:G%=1:�e
��
��0Ȝ0:�U%=i%-1��
� ȓȐ0,0,k%*h%,(i%-Y%)*m%:�
�'��m:�N%,g%,d%:�j%>=l%�p%=l%-1�p%=j%
��O%>=i%�d%=i%-1�d%=O%-1
Ĵ�0Ȝ0:ȓȐ0,0,k%*h%,(i%-d%)*m%:�N%=0�d%/2:�L=1�a*2:�:A%=u%+N%*j%:B%=V%+N%*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:�e:A%=u%+(d%-N%)*j%:B%=V%+(d%-N%)*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:�e:�:�
�'��n:�N%,g%,d%:�j%>=l%�p%=l%-1�p%=j%
��O%>=i%�d%=i%-1�d%=O%-1
��d%�2=0�d%-=1
ج�0Ȝ0:ȓȐ0,0,k%*h%,(i%-d%)*m%:�N%=0�d%�2:Ȗ:A%=u%+N%*j%:B%=V%+N%*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:�e:A%=u%+(d%-N%)*j%:B%=V%+(d%-N%)*l%:C%=p%:D%=1:E%=l%:F%=j%:G%=1:�e:�:�
�<��j:ș"OS_ReadModeVariable",-1,9�,,Ja%:Ja%=2^Ja%:�Ja%<4�
�[N%=�b(n%):ș"Wimp_SetMode",M%:�17,"This sprite ('"+a$(Q)+"') has less than 16 colours."
��
�I!b%=149:b%!4=-1:ș"OS_ReadVduVariables",b%,b%+8:V%=b%!8:l%=Ja%*k%/8:�
�M��K:ș"Wimp_SetMode",M%:�17,"Not enough memory to load picture "+�a(a$):�
����D(Ka%,La%,Ma%,Na%):!q%=La%:ș"Wimp_GetWindowState",,q%:q%!28=b%!28:q%!12=b%!12:q%!16=q%!16-q%!8+b%!8+Na%:q%!4=b%!4+Ma%:q%!8=b%!8+Na%:ș"Wimp_OpenWindow",,q%:b%!28=La%:ș"Wimp_OpenWindow",,b%:�
���G(e$):�f%,Oa%,d$,d:ș"OS_GBPB",10,e$,b%,77,0,4096,"*"�d,d,d,Pa%:f%=b%:Qa%=Pa%:ȕQa%>0:d$="":Oa%=20:ȕf%?Oa%<>0:d$+=�(f%?Oa%):Oa%+=1:�:�f%!16=1�(f%!0>>8)�4089�e%+=1:a$(e%)=e$+"."+d$
'f%+=((Oa%+4)�4)*4:Qa%-=1:�:�a(e%):�
b��i:N%=�b(n%):ș"Wimp_SetMode",M%:�17,"Unable to change to correct mode (not enough memory)":�
���C:�Ra% 1000,L% -1:�I%=8�10�2:P%=Ra%:[OPT I%:.j:ADD12, 12, 10:.k:LDRB9, [10], #1:STRB9, [11], #1:TEQ10, 12:BNE k:MOV pc, 14:.l:MOV9,#0:ADD12, 12, 11:.m:STRB9, [11], #1:CMP11, 12:BLT m:MOV pc, 14:.e:STR14,h:.n
@|MOV10,0:MOV11,1:MOV12,2:BL j:SUB12,4,2:CMP6,#1:BLEQ l:ADD0,0,5:ADD1,1,4:SUB3,3,#1:CMP3,#0:BNE n:LDR PC,h:.h:EQUD0: ]:�:�
M���z:�t%:ș"OS_ReadMemMapInfo"�Sa%:v%=Sa%:ș"Wimp_SlotSize",-1,-1�t%:w%=t%+32768:ș"Wimp_SlotSize",w%+v%-32768,-1:ș"OS_Heap",0,w%,,v%:�
W5ݤf(r%):�a%:ș"XOS_Heap",2,w%,,r%�,,a%:�a%<>0�=a%
\�h(r%)=0�=0
]%ș"XOS_Heap",2,w%,,r%�,,a%:�p:=a%
b'ݤb(Ta%):ș"OS_Heap",3,w%,Ta%:�p:=0
gRݤh(r%):�s%,f%:s%=�e(v%+r%):ș"XWimp_SlotSize",w%+s%-32768,-1�;f%:�(f%�1)=1�=0
k%ș"XOS_Heap",5,w%,,s%-v%:v%=s%:=�
p?��p:�s%,t%:s%=v%:ș"XOS_Heap",5,w%,,-s%�,,,t%:�t%=-s%�t%=s%
tRv%=�e(v%-t%):ș"XOS_Heap",5,w%,,v%-(s%-t%):ș"XWimp_SlotSize",w%+v%-32768,-1:�
x ݤe(s%):�t%:�(s%�Sa%)<>0�
|t%=Sa%-(s%�Sa%):s%+=t%
�
=s%
�s��E(g$,m$,X%,Y%):�Q(da%,g$,m$):ș"Wimp_CreateMenu",,da%,X%-da%!16/2,Y%:A$="No printer":ș655680,,,,,A$�,,,,A$:�
����Q(M%,g$,m$):�I%,Ua%,Va%,Wa%,Xa%,N,X:Xa%=128:$M%=g$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:Ua%=�(g$)-2:�:A%=�m$,","):$(I%+12)=�m$,A%-1):m$=�m$,A%+1):�A%>Ua%Ua%=A%
� !I%=0:I%!4=0::Ȏ$(I%+12)�
��"Info":I%!4=_%
��
�5:I%!8=&7000021:�$(I%+12)="Extended"�I%!8=&7400021
�-I%+=24:�m$="":!(I%-24)=Xa%:M%!16=Ua%*16:�
�!��R(A):ș"Wimp_SetColour",A:�
�<��d(W%):!b%=W%:ș"Wimp_GetWindowState",,b%:b%!28=-1:�f:�
�Fݤg(Ya%,Za%):b%!0=Ya%:b%!4=Za%:ș"Wimp_GetIconState",,b%:=$(b%!28)
�r��b(W%,I%,S$):b%!0=W%:b%!4=I%:ș"Wimp_GetIconState",,b%:$(b%!28)=S$:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�
�T��u(!b%):�X,Y,Z:ș"Wimp_CloseWindow",,b%:�!b%=K%�!b%=J%:ș"Wimp_CloseWindow",,b%
��
�Gݤa(a$):�F$,N:N=�(a$):ȕ�a$,N,1)<>"."�N>0:F$=�a$,N,1)+F$:N-=1:�:=F$
�#ݤi(a$):=�a$,�(a$)-�(�a(a$))-1)
���c
�
*CLOSE
�,ș"Hourglass_Smash":ș"Wimp_CloseDown":�
��
� 00000000 0d 00 01 04 0d 00 02 95 62 24 3d 22 21 53 6c 69 |........b$="!Sli|
00000010 64 65 53 68 6f 77 22 3a 68 24 3d 22 76 31 2e 31 |deShow":h$="v1.1|
00000020 30 20 28 31 33 20 41 75 67 20 31 39 39 34 29 22 |0 (13 Aug 1994)"|
00000030 3a 61 61 25 3d 31 30 30 3a 3a c8 99 22 48 6f 75 |:aa%=100::.."Hou|
00000040 72 67 6c 61 73 73 5f 4f 6e 22 3a f2 71 3a f2 72 |rglass_On":.q:.r|
00000050 28 22 50 69 63 74 75 72 65 20 44 69 73 70 6c 61 |("Picture Displa|
00000060 79 65 72 22 2c 22 28 41 29 20 52 6f 62 65 72 74 |yer","(A) Robert|
00000070 20 54 61 79 6c 6f 72 22 29 3a c8 99 22 48 6f 75 | Taylor"):.."Hou|
00000080 72 67 6c 61 73 73 5f 4f 66 66 22 3a 3a ee 85 f2 |rglass_Off"::...|
00000090 73 28 9f 2c f6 24 2c 9e 29 0d 00 0b 20 f5 3a c8 |s(.,.$,.)... .:.|
000000a0 99 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 2c 62 25 |."Wimp_Poll",,b%|
000000b0 b8 69 3a c8 8e 28 69 29 ca 0d 00 0e 0e c9 31 3a |.i:..(i)......1:|
000000c0 f2 74 28 21 62 25 29 0d 00 10 09 c9 32 3a f2 66 |.t(!b%).....2:.f|
000000d0 0d 00 11 0e c9 33 3a f2 75 28 21 62 25 29 0d 00 |.....3:.u(!b%)..|
000000e0 12 0d c9 36 3a f2 76 28 62 25 29 0d 00 13 19 c9 |...6:.v(b%).....|
000000f0 38 3a f2 77 28 21 62 25 2c 62 25 21 34 2c 62 25 |8:.w(!b%,b%!4,b%|
00000100 21 32 34 29 0d 00 14 09 c9 39 3a f2 78 0d 00 15 |!24).....9:.x...|
00000110 14 c9 31 37 2c 31 38 3a f2 79 28 62 25 21 31 36 |..17,18:.y(b%!16|
00000120 29 0d 00 16 05 cb 0d 00 16 0d fd 62 61 25 3a f2 |)..........ba%:.|
00000130 63 3a e0 0d 00 19 07 dd f2 71 0d 00 1c 11 2a 4b |c:.......q....*K|
00000140 45 59 20 31 20 45 44 49 54 7c 4d 0d 00 1c bc 63 |EY 1 EDIT|M....c|
00000150 61 25 3d 34 30 30 3a de 62 25 20 34 30 39 36 2c |a%=400:.b% 4096,|
00000160 64 61 25 20 32 30 34 38 3a de 71 25 20 31 30 32 |da% 2048:.q% 102|
00000170 34 3a de 65 61 25 20 37 36 38 3a 66 61 25 3d 65 |4:.ea% 768:fa%=e|
00000180 61 25 2b 37 36 38 3a de 61 24 28 63 61 25 29 3a |a%+768:.a$(ca%):|
00000190 c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 |.."Wimp_Initiali|
000001a0 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 |se",200,&4B53415|
000001b0 34 2c 62 24 b8 2c 67 61 25 3a f2 7a 3a f2 41 3a |4,b$.,ga%:.z:.A:|
000001c0 f2 42 3a 62 61 25 3d 30 3a 65 25 3d 30 3a 68 61 |.B:ba%=0:e%=0:ha|
000001d0 25 3d 39 39 39 39 39 3a 69 61 25 3d 39 39 39 39 |%=99999:ia%=9999|
000001e0 39 3a 6e 25 3d 30 3a 6a 61 25 3d 31 3a 6b 61 25 |9:n%=0:ja%=1:ka%|
000001f0 3d 31 36 3a 6c 61 25 3d 31 3a 6d 61 25 3d 31 36 |=16:la%=1:ma%=16|
00000200 3a 6e 61 25 3d 32 34 0d 00 2d 41 6f 61 25 3d 33 |:na%=24..-Aoa%=3|
00000210 32 3a 70 61 25 3d 35 30 3a 71 61 25 3d 31 3a 72 |2:pa%=50:qa%=1:r|
00000220 61 25 3d 32 3a f2 43 3a 54 3d 91 2b 31 30 30 3a |a%=2:.C:T=.+100:|
00000230 61 3d 30 3a f5 3a 61 2b 3d 31 3a fd 91 3e 54 3a |a=0:.:a+=1:..>T:|
00000240 61 3d 61 2f 34 30 3a e1 0d 00 36 40 dd f2 72 28 |a=a/40:...6@..r(|
00000250 69 24 2c 6a 24 29 3a f2 62 28 5f 25 2c 34 2c 62 |i$,j$):.b(_%,4,b|
00000260 24 29 3a f2 62 28 5f 25 2c 32 2c 69 24 29 3a f2 |$):.b(_%,2,i$):.|
00000270 62 28 5f 25 2c 35 2c 6a 24 29 3a f2 62 28 5f 25 |b(_%,5,j$):.b(_%|
00000280 2c 36 2c 68 24 29 3a e1 0d 00 3d 0f dd f2 73 28 |,6,h$):...=...s(|
00000290 66 2c 63 24 2c 67 29 0d 00 40 0a 2a 43 4c 4f 53 |f,c$,g)..@.*CLOS|
000002a0 45 0d 00 40 34 c8 99 22 48 6f 75 72 67 6c 61 73 |E..@4.."Hourglas|
000002b0 73 5f 53 6d 61 73 68 22 3a c8 99 22 57 69 6d 70 |s_Smash":.."Wimp|
000002c0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 3a |_CreateMenu",-1:|
000002d0 3a c8 8e 66 ca 0d 00 44 89 c9 31 3a 63 24 3d 62 |:..f...D..1:c$=b|
000002e0 24 2b 22 20 68 61 73 20 73 75 66 66 65 72 65 64 |$+" has suffered|
000002f0 20 61 20 66 61 74 61 6c 20 65 72 72 6f 72 20 28 | a fatal error (|
00000300 22 2b c3 28 67 29 3a 63 24 2b 3d 22 29 20 61 6e |"+.(g):c$+=") an|
00000310 64 20 6d 75 73 74 20 65 78 69 74 20 69 6d 6d 65 |d must exit imme|
00000320 64 69 61 74 65 6c 79 2e 22 3a 21 62 25 3d 66 3a |diately.":!b%=f:|
00000330 24 28 62 25 2b 34 29 3d 63 24 3a c8 99 22 57 69 |$(b%+4)=c$:.."Wi|
00000340 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c |mp_ReportError",|
00000350 62 25 2c 31 2c 62 24 b8 2c 7a 25 3a f2 63 0d 00 |b%,1,b$.,z%:.c..|
00000360 4b 39 c9 31 37 3a 21 62 25 3d 66 3a 24 28 62 25 |K9.17:!b%=f:$(b%|
00000370 2b 34 29 3d 63 24 3a c8 99 22 57 69 6d 70 5f 52 |+4)=c$:.."Wimp_R|
00000380 65 70 6f 72 74 45 72 72 6f 72 22 2c 62 25 2c 31 |eportError",b%,1|
00000390 2c 62 24 b8 2c 7a 25 0d 00 4e 73 7f 3a 63 24 2b |,b$.,z%..Ns.:c$+|
000003a0 3d 22 20 28 22 2b c3 28 67 29 2b 22 29 2e 20 4f |=" ("+.(g)+"). O|
000003b0 4b 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2c 20 43 |K to continue, C|
000003c0 41 4e 43 45 4c 20 74 6f 20 71 75 69 74 2e 22 3a |ANCEL to quit.":|
000003d0 21 62 25 3d 66 3a 24 28 62 25 2b 34 29 3d 63 24 |!b%=f:$(b%+4)=c$|
000003e0 3a c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 |:.."Wimp_ReportE|
000003f0 72 72 6f 72 22 2c 62 25 2c 33 2c 62 24 b8 2c 7a |rror",b%,3,b$.,z|
00000400 25 3a e7 7a 25 3d 32 8c f2 63 0d 00 52 05 cb 0d |%:.z%=2..c..R...|
00000410 00 53 05 e1 0d 00 54 a3 dd f2 74 28 57 25 29 3a |.S....T...t(W%):|
00000420 ea 73 61 25 2c 74 61 25 2c 48 25 2c 75 61 25 2c |.sa%,ta%,H%,ua%,|
00000430 76 61 25 3a 21 62 25 3d 57 25 3a c8 99 22 57 69 |va%:!b%=W%:.."Wi|
00000440 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 22 |mp_RedrawWindow"|
00000450 2c 2c 62 25 b8 73 61 25 3a 74 61 25 3d 34 2b 62 |,,b%.sa%:ta%=4+b|
00000460 25 21 34 2d 62 25 21 32 30 3a 48 25 3d 62 25 21 |%!4-b%!20:H%=b%!|
00000470 31 36 2d 62 25 21 32 34 2d 34 3a c8 95 73 61 25 |16-b%!24-4:..sa%|
00000480 3a 75 61 25 3d 28 28 48 25 2d 62 25 21 34 30 29 |:ua%=((H%-b%!40)|
00000490 81 33 36 29 3a 76 61 25 3d 28 28 48 25 2d 62 25 |.36):va%=((H%-b%|
000004a0 21 33 32 29 81 33 36 29 2b 31 3a e7 57 25 3d 4a |!32).36)+1:.W%=J|
000004b0 25 80 65 25 3e 30 8c 0d 00 5d 12 e7 76 61 25 3e |%.e%>0...]..va%>|
000004c0 65 25 8c 76 61 25 3d 65 25 0d 00 5e 10 e7 75 61 |e%.va%=e%..^..ua|
000004d0 25 3c 31 8c 75 61 25 3d 31 0d 00 5f 30 e3 4e 3d |%<1.ua%=1.._0.N=|
000004e0 75 61 25 b8 76 61 25 3a ec 74 61 25 2b 31 36 2c |ua%.va%:.ta%+16,|
000004f0 48 25 2d 28 4e 2a 33 36 29 2b 33 32 3a f1 a4 61 |H%-(N*36)+32:..a|
00000500 28 61 24 28 4e 29 29 3a ed 0d 00 64 05 cd 0d 00 |(a$(N)):...d....|
00000510 64 25 c8 99 22 57 69 6d 70 5f 47 65 74 52 65 63 |d%.."Wimp_GetRec|
00000520 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 73 61 25 3a |tangle",,b%.sa%:|
00000530 ce 3a e1 0d 00 67 1f dd f2 66 3a e7 21 62 25 3d |.:...g...f:.!b%=|
00000540 4b 25 8c f2 44 28 4b 25 2c 4a 25 2c 31 36 2c 32 |K%..D(K%,J%,16,2|
00000550 30 29 0d 00 6a 1d c8 99 22 57 69 6d 70 5f 4f 70 |0)..j..."Wimp_Op|
00000560 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 25 3a e1 0d |enWindow",,b%:..|
00000570 00 6c 3c dd f2 76 28 62 25 29 3a ea 77 61 25 2c |.l<..v(b%):.wa%,|
00000580 49 25 2c 41 24 2c 57 25 2c 7a 25 3a 49 25 3d 62 |I%,A$,W%,z%:I%=b|
00000590 25 21 31 36 3a 57 25 3d 62 25 21 31 32 3a 7a 25 |%!16:W%=b%!12:z%|
000005a0 3d 62 25 21 38 3a c8 8e 7a 25 ca 0d 00 71 36 c9 |=b%!8:..z%...q6.|
000005b0 32 3a e7 57 25 3d 2d 32 8c f2 45 28 22 20 22 2b |2:.W%=-2..E(" "+|
000005c0 62 24 2b 22 20 22 2c 22 49 6e 66 6f 2c 56 69 65 |b$+" ","Info,Vie|
000005d0 77 2c 51 75 69 74 2c 22 2c 21 62 25 2c 32 34 32 |w,Quit,",!b%,242|
000005e0 29 0d 00 73 10 c9 31 2c 34 3a e7 57 25 3d 2d 32 |)..s..1,4:.W%=-2|
000005f0 8c 0d 00 75 0a f2 64 28 4b 25 29 0d 00 77 05 cd |...u..d(K%)..w..|
00000600 0d 00 77 14 e7 49 25 3d 2d 31 8c f2 46 28 57 25 |..w..I%=-1..F(W%|
00000610 2c 7a 25 29 0d 00 78 0b e7 57 25 3d 4b 25 8c 0d |,z%)..x..W%=K%..|
00000620 00 79 09 c8 8e 49 25 ca 0d 00 7a 0f c9 35 3a e7 |.y...I%...z..5:.|
00000630 65 25 3e 30 8c f2 67 0d 00 7b 12 c9 36 3a 65 25 |e%>0..g..{..6:e%|
00000640 3d 30 3a f2 61 28 65 25 29 0d 00 7d 35 c9 37 3a |=0:.a(e%)..}5.7:|
00000650 e3 4e 3d 31 b8 65 25 3a 41 3d b3 28 65 25 29 3a |.N=1.e%:A=.(e%):|
00000660 42 3d b3 28 65 25 29 3a c8 94 61 24 28 41 29 2c |B=.(e%):..a$(A),|
00000670 61 24 28 42 29 3a f2 61 28 65 25 29 3a ed 0d 00 |a$(B):.a(e%):...|
00000680 82 05 cb 0d 00 82 05 cd 0d 00 83 05 cb 0d 00 84 |................|
00000690 05 e1 0d 00 85 2d dd f2 77 28 57 25 2c 49 25 2c |.....-..w(W%,I%,|
000006a0 43 25 29 3a ea 41 3a c8 99 22 57 69 6d 70 5f 50 |C%):.A:.."Wimp_P|
000006b0 72 6f 63 65 73 73 4b 65 79 22 2c 43 25 3a e1 0d |rocessKey",C%:..|
000006c0 00 8a 23 dd f2 78 3a ea 4e 2c 51 2c 4d 25 2c 60 |..#..x:.N,Q,M%,`|
000006d0 25 2c 54 2c 58 2c 59 2c 5a 2c 49 3a c8 8e 21 62 |%,T,X,Y,Z,I:..!b|
000006e0 25 ca 0d 00 8e 0f c9 31 3a e7 65 25 3e 30 8c f2 |%......1:.e%>0..|
000006f0 67 0d 00 8f 0d c9 32 3a 62 61 25 3d 2d 31 0d 00 |g.....2:ba%=-1..|
00000700 91 05 cb 0d 00 91 05 e1 0d 00 92 15 dd f2 79 28 |..............y(|
00000710 4d 25 29 3a ea 41 24 3a c8 8e 4d 25 ca 0d 00 96 |M%):.A$:..M%....|
00000720 0d c9 30 3a 62 61 25 3d 2d 31 0d 00 98 13 c9 33 |..0:ba%=-1.....3|
00000730 3a e7 62 25 21 34 30 3d 34 30 38 39 8c 0d 00 98 |:.b%!40=4089....|
00000740 28 65 25 2b 3d 31 3a 61 24 28 65 25 29 3d a4 64 |(e%+=1:a$(e%)=.d|
00000750 28 62 25 2b 34 34 29 3a f2 61 28 65 25 29 3a f2 |(b%+44):.a(e%):.|
00000760 64 28 4b 25 29 0d 00 9c 05 cd 0d 00 9c 10 e7 62 |d(K%)..........b|
00000770 25 21 34 30 3d 34 30 39 36 8c 0d 00 9d 1e 65 24 |%!40=4096.....e$|
00000780 3d a4 64 28 62 25 2b 34 34 29 3a f2 47 28 65 24 |=.d(b%+44):.G(e$|
00000790 29 3a f2 64 28 4b 25 29 0d 00 a1 05 cd 0d 00 a1 |):.d(K%)........|
000007a0 05 cb 0d 00 a2 05 e1 0d 00 a3 78 dd f2 41 3a c8 |..........x..A:.|
000007b0 99 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c |."Wimp_OpenTempl|
000007c0 61 74 65 22 2c 2c 22 3c 4f 62 65 79 24 44 69 72 |ate",,"<Obey$Dir|
000007d0 3e 2e 54 65 6d 70 6c 61 74 65 73 22 3a 5f 25 3d |>.Templates":_%=|
000007e0 a4 63 28 22 69 6e 66 6f 22 29 3a 4a 25 3d a4 63 |.c("info"):J%=.c|
000007f0 28 22 6d 61 69 6e 22 29 3a 4b 25 3d a4 63 28 22 |("main"):K%=.c("|
00000800 42 41 43 4b 22 29 3a c8 99 22 57 69 6d 70 5f 43 |BACK"):.."Wimp_C|
00000810 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 3a e1 0d |loseTemplate":..|
00000820 00 ab 65 dd f2 42 3a 62 25 21 30 3d 2d 31 3a 62 |..e..B:b%!0=-1:b|
00000830 25 21 34 3d 30 3a 62 25 21 38 3d 30 3a 62 25 21 |%!4=0:b%!8=0:b%!|
00000840 31 32 3d 36 34 3a 62 25 21 31 36 3d 36 34 3a 62 |12=64:b%!16=64:b|
00000850 25 21 32 30 3d 33 38 35 38 38 38 32 36 36 3a 24 |%!20=385888266:$|
00000860 28 62 25 2b 32 34 29 3d 62 24 3a c8 99 22 57 69 |(b%+24)=b$:.."Wi|
00000870 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c |mp_CreateIcon",,|
00000880 62 25 3a e1 0d 00 b4 72 dd f2 46 28 57 25 2c 7a |b%:....r..F(W%,z|
00000890 25 29 3a ea 78 25 2c 79 25 2c 74 61 25 2c 48 25 |%):.x%,y%,ta%,H%|
000008a0 3a 78 25 3d 21 62 25 3a 79 25 3d 62 25 21 34 3a |:x%=!b%:y%=b%!4:|
000008b0 21 62 25 3d 57 25 3a c8 99 22 57 69 6d 70 5f 47 |!b%=W%:.."Wimp_G|
000008c0 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
000008d0 62 25 3a 74 61 25 3d 62 25 21 34 2d 62 25 21 32 |b%:ta%=b%!4-b%!2|
000008e0 30 3a 48 25 3d 62 25 21 31 36 2d 62 25 21 32 34 |0:H%=b%!16-b%!24|
000008f0 3a c8 8e 57 25 ca 0d 00 bb 0d c9 4a 25 3a c8 8e |:..W%......J%:..|
00000900 7a 25 ca 0d 00 bd 19 c9 31 3a f2 48 28 28 28 48 |z%......1:.H(((H|
00000910 25 2d 79 25 29 81 33 36 29 2b 31 29 0d 00 bf 19 |%-y%).36)+1)....|
00000920 c9 34 3a f2 49 28 28 28 48 25 2d 79 25 29 81 33 |.4:.I(((H%-y%).3|
00000930 36 29 2b 31 29 0d 00 c0 05 cb 0d 00 c0 05 cb 0d |6)+1)...........|
00000940 00 c1 05 e1 0d 00 c2 64 dd a4 63 28 64 24 29 3a |.......d..c(d$):|
00000950 c8 99 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 |.."Wimp_LoadTemp|
00000960 6c 61 74 65 22 2c 2c 62 25 2c 65 61 25 2c 66 61 |late",,b%,ea%,fa|
00000970 25 2c 2d 31 2c 64 24 2c 30 b8 2c 2c 65 61 25 2c |%,-1,d$,0.,,ea%,|
00000980 2c 2c 2c 50 25 3a c8 99 22 57 69 6d 70 5f 43 72 |,,,P%:.."Wimp_Cr|
00000990 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 |eateWindow",,b%.|
000009a0 78 61 25 3a 3d 78 61 25 0d 00 c9 43 dd a4 64 28 |xa%:=xa%...C..d(|
000009b0 41 29 3a ea 53 24 2c 4e 3a c8 95 28 41 21 4e 83 |A):.S$,N:..(A!N.|
000009c0 32 35 36 29 3c 3e 31 33 80 28 41 21 4e 83 32 35 |256)<>13.(A!N.25|
000009d0 36 29 3c 3e 30 3a 53 24 2b 3d bd 28 41 21 4e 29 |6)<>0:S$+=.(A!N)|
000009e0 3a 4e 2b 3d 31 3a ce 3a 3d 53 24 0d 00 d1 35 dd |:N+=1:.:=S$...5.|
000009f0 a4 61 28 66 24 29 3a c8 95 a7 66 24 2c 22 2e 22 |.a(f$):...f$,"."|
00000a00 29 3e 30 3a 66 24 3d c2 66 24 2c a9 28 66 24 29 |)>0:f$=.f$,.(f$)|
00000a10 2d a7 66 24 2c 22 2e 22 29 29 3a ce 3a 3d 66 24 |-.f$,".")):.:=f$|
00000a20 0d 00 d3 66 dd f2 61 28 79 61 25 29 3a ea 7a 61 |...f..a(ya%):.za|
00000a30 25 2c 41 61 25 3a 21 62 25 3d 4a 25 3a c8 99 22 |%,Aa%:!b%=J%:.."|
00000a40 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e |Wimp_GetWindowIn|
00000a50 66 6f 22 2c 2c 62 25 3a 7a 61 25 3d 2d 28 62 25 |fo",,b%:za%=-(b%|
00000a60 21 38 2d 62 25 21 31 36 29 3a 41 61 25 3d 65 25 |!8-b%!16):Aa%=e%|
00000a70 2a 33 36 2b 34 3a e7 41 61 25 3c 7a 61 25 8c 41 |*36+4:.Aa%<za%.A|
00000a80 61 25 3d 7a 61 25 0d 00 d8 73 21 62 25 3d 4a 25 |a%=za%...s!b%=J%|
00000a90 3a 62 25 21 34 3d 30 3a 62 25 21 38 3d 2d 41 61 |:b%!4=0:b%!8=-Aa|
00000aa0 25 3a 62 25 21 31 32 3d 33 30 36 3a 62 25 21 31 |%:b%!12=306:b%!1|
00000ab0 36 3d 30 3a c8 99 22 57 69 6d 70 5f 53 65 74 45 |6=0:.."Wimp_SetE|
00000ac0 78 74 65 6e 74 22 2c 4a 25 2c 62 25 2b 34 3a c8 |xtent",J%,b%+4:.|
00000ad0 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 |."Wimp_ForceRedr|
00000ae0 61 77 22 2c 4a 25 2c 30 2c 2d 41 61 25 2d 34 30 |aw",J%,0,-Aa%-40|
00000af0 2c 31 32 33 36 2c 30 3a e1 0d 00 dd 16 dd f2 48 |,1236,0:.......H|
00000b00 28 58 29 3a e7 58 3e 65 25 84 58 3c 31 8c e1 0d |(X):.X>e%.X<1...|
00000b10 00 e0 0e ea 4e 3a e7 65 25 3d 30 8c e1 0d 00 e2 |....N:.e%=0.....|
00000b20 2c e3 4e 3d 58 b8 65 25 2d 31 3a 61 24 28 4e 29 |,.N=X.e%-1:a$(N)|
00000b30 3d 61 24 28 4e 2b 31 29 3a ed 3a 65 25 2d 3d 31 |=a$(N+1):.:e%-=1|
00000b40 3a f2 61 28 65 25 29 3a e1 0d 00 e5 46 dd f2 4a |:.a(e%):....F..J|
00000b50 28 61 24 29 3a ea 43 2c 72 25 3a 43 3d 8e 28 61 |(a$):.C,r%:C=.(a|
00000b60 24 29 3a 72 25 3d a2 23 43 3a d9 23 43 3a 42 61 |$):r%=.#C:.#C:Ba|
00000b70 25 3d 6e 25 3a 72 25 2b 3d 32 35 36 3a 6e 25 3d |%=n%:r%+=256:n%=|
00000b80 a4 66 28 72 25 29 3a e7 6e 25 3d 30 8c f2 4b 0d |.f(r%):.n%=0..K.|
00000b90 00 ec 82 21 6e 25 3d 72 25 3a c8 99 22 4f 53 5f |...!n%=r%:.."OS_|
00000ba0 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 31 30 |SpriteOp",256+10|
00000bb0 2c 6e 25 2c 61 24 3a 43 61 25 3d 6e 25 2b 6e 25 |,n%,a$:Ca%=n%+n%|
00000bc0 21 38 3a 44 61 25 3d 6f 25 3a 75 25 3d 6e 25 2b |!8:Da%=o%:u%=n%+|
00000bd0 28 6e 25 21 38 29 3a 6a 25 3d 28 75 25 21 31 36 |(n%!8):j%=(u%!16|
00000be0 29 2a 34 2b 34 3a 45 61 25 3d 6e 25 2b 34 34 3a |)*4+4:Ea%=n%+44:|
00000bf0 75 25 3d 6e 25 2b 28 75 25 21 33 32 29 2b 31 36 |u%=n%+(u%!32)+16|
00000c00 3a e7 45 61 25 3d 75 25 2d 31 36 8c 45 61 25 3d |:.Ea%=u%-16.Ea%=|
00000c10 30 0d 00 f4 55 c8 99 22 4f 53 5f 53 70 72 69 74 |0...U.."OS_Sprit|
00000c20 65 4f 70 22 2c 35 31 32 2b 34 30 2c 6e 25 2c 43 |eOp",512+40,n%,C|
00000c30 61 25 b8 2c 2c 2c 46 61 25 2c 4f 25 2c 2c 6f 25 |a%.,,,Fa%,O%,,o%|
00000c40 3a c8 99 22 4f 53 5f 43 68 65 63 6b 4d 6f 64 65 |:.."OS_CheckMode|
00000c50 56 61 6c 69 64 22 2c 6f 25 b8 47 61 25 3a e7 47 |Valid",o%.Ga%:.G|
00000c60 61 25 3d 2d 31 8c 0d 00 f7 63 4e 25 3d a4 62 28 |a%=-1....cN%=.b(|
00000c70 6e 25 29 3a c8 99 22 57 69 6d 70 5f 53 65 74 4d |n%):.."Wimp_SetM|
00000c80 6f 64 65 22 2c 4d 25 3a 85 31 37 2c 22 43 61 6e |ode",M%:.17,"Can|
00000c90 6e 6f 74 20 64 69 73 70 6c 61 79 20 22 2b a4 61 |not display "+.a|
00000ca0 28 61 24 29 2b 22 2e 20 55 6e 61 62 6c 65 20 74 |(a$)+". Unable t|
00000cb0 6f 20 63 68 61 6e 67 65 20 74 6f 20 63 6f 72 72 |o change to corr|
00000cc0 65 63 74 20 6d 6f 64 65 22 0d 00 fb 05 cd 0d 00 |ect mode".......|
00000cd0 fb ab c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 |...."OS_ReadMode|
00000ce0 56 61 72 69 61 62 6c 65 22 2c 6f 25 2c 34 b8 2c |Variable",o%,4.,|
00000cf0 2c 68 25 3a 68 25 3d 32 5e 68 25 3a c8 99 22 4f |,h%:h%=2^h%:.."O|
00000d00 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
00000d10 6c 65 22 2c 6f 25 2c 35 b8 2c 2c 6d 25 3a 6d 25 |le",o%,5.,,m%:m%|
00000d20 3d 32 5e 6d 25 3a c8 99 22 4f 53 5f 52 65 61 64 |=2^m%:.."OS_Read|
00000d30 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 6f 25 |ModeVariable",o%|
00000d40 2c 31 31 b8 2c 2c 6b 25 3a 6b 25 2b 3d 31 3a c8 |,11.,,k%:k%+=1:.|
00000d50 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 |."OS_ReadModeVar|
00000d60 69 61 62 6c 65 22 2c 6f 25 2c 31 32 b8 2c 2c 69 |iable",o%,12.,,i|
00000d70 25 3a 69 25 2b 3d 31 3a e1 0d 01 00 1e dd f2 49 |%:i%+=1:.......I|
00000d80 28 50 29 3a ea 58 2c 59 2c 5a 3a e7 50 3e 30 80 |(P):.X,Y,Z:.P>0.|
00000d90 50 3c 65 25 2b 31 8c 0d 01 04 64 46 61 25 3d 30 |P<e%+1....dFa%=0|
00000da0 3a 6d 25 3d 30 3a 4d 25 3d eb 3a 4f 25 3d 30 3a |:m%=0:M%=.:O%=0:|
00000db0 6f 25 3d 30 3a 68 25 3d 30 3a 48 61 25 3d 2d 31 |o%=0:h%=0:Ha%=-1|
00000dc0 3a f2 68 28 61 24 28 50 29 29 3a f5 3a c8 97 58 |:.h(a$(P)):.:..X|
00000dd0 2c 59 2c 5a 3a 49 3d a6 28 30 29 3a fd 49 3c 3e |,Y,Z:I=.(0):.I<>|
00000de0 2d 31 84 5a 3c 3e 30 3a c8 99 22 57 69 6d 70 5f |-1.Z<>0:.."Wimp_|
00000df0 53 65 74 4d 6f 64 65 22 2c 4d 25 0d 01 0b 05 cd |SetMode",M%.....|
00000e00 0d 01 0b 05 e1 0d 01 0c 71 dd f2 67 3a ea 60 25 |........q..g:.`%|
00000e10 2c 51 3a 51 3d 31 3a 60 25 3d 30 3a 48 61 25 3d |,Q:Q=1:`%=0:Ha%=|
00000e20 2d 31 3a 46 61 25 3d 30 3a 6d 25 3d 30 3a 4d 25 |-1:Fa%=0:m%=0:M%|
00000e30 3d eb 3a 4f 25 3d 30 3a 6f 25 3d 30 3a 68 25 3d |=.:O%=0:o%=0:h%=|
00000e40 30 3a 49 61 25 3d 31 30 30 2a bb 28 a4 67 28 4b |0:Ia%=100*.(.g(K|
00000e50 25 2c 31 29 29 3a f5 3a f2 68 28 61 24 28 51 29 |%,1)):.:.h(a$(Q)|
00000e60 29 3a e7 49 61 25 3d 30 8c 54 3d 91 2d 31 8b 54 |):.Ia%=0.T=.-1.T|
00000e70 3d 91 2b 49 61 25 0d 01 16 23 f5 3a c8 97 58 2c |=.+Ia%...#.:..X,|
00000e80 59 2c 5a 3a 49 3d a6 28 31 29 3a e7 a6 28 2d 31 |Y,Z:I=.(1):..(-1|
00000e90 31 33 29 8c 60 25 3d 2d 31 0d 01 19 0d e7 49 3d |13).`%=-1.....I=|
00000ea0 33 32 8c 49 3d a5 0d 01 1a 26 fd 49 3c 3e 2d 31 |32.I=....&.I<>-1|
00000eb0 84 5a 3c 3e 30 84 91 3e 3d 54 84 60 25 3a 51 2b |.Z<>0..>=T.`%:Q+|
00000ec0 3d 31 3a e7 51 3e 65 25 8c 51 3d 31 0d 01 1c 1d |=1:.Q>e%.Q=1....|
00000ed0 fd 60 25 3a c8 99 22 57 69 6d 70 5f 53 65 74 4d |.`%:.."Wimp_SetM|
00000ee0 6f 64 65 22 2c 4d 25 3a e1 0d 01 1f 28 dd f2 68 |ode",M%:....(..h|
00000ef0 28 61 24 29 3a ea 4e 25 2c 46 25 2c 74 25 2c 63 |(a$):.N%,F%,t%,c|
00000f00 25 2c 5a 25 3a f2 4a 28 61 24 29 3a e7 48 61 25 |%,Z%:.J(a$):.Ha%|
00000f10 8c 0d 01 24 19 eb 6f 25 3a 87 3a 48 61 25 3d 30 |...$..o%:.:Ha%=0|
00000f20 3a e7 eb 3c 3e 6f 25 8c f2 69 0d 01 26 09 f2 6a |:..<>o%..i..&..j|
00000f30 3a f2 65 0d 01 29 0c cc 3a e7 eb 3d 6f 25 8c 0d |:.e..)..:..=o%..|
00000f40 01 2a 06 f2 65 0d 01 2c 18 cc 3a f2 6b 3a eb 6f |.*..e..,..:.k:.o|
00000f50 25 3a 87 3a e7 eb 3c 3e 6f 25 8c f2 69 0d 01 2f |%:.:..<>o%..i../|
00000f60 09 f2 6a 3a f2 65 0d 01 32 05 cd 0d 01 32 05 cd |..j:.e..2....2..|
00000f70 0d 01 33 0f 4e 25 3d a4 62 28 6e 25 29 3a e1 0d |..3.N%=.b(n%):..|
00000f80 01 35 1b dd f2 65 3a ea 4e 2c 46 3a e7 4a 61 25 |.5...e:.N,F:.Ja%|
00000f90 3d 34 80 45 61 25 3c 3e 30 8c 0d 01 39 4c db 3a |=4.Ea%<>0...9L.:|
00000fa0 f1 8a 30 2c 32 30 29 3b 3a e3 4e 3d 30 b8 31 35 |..0,20);:.N=0.15|
00000fb0 3a 46 3d 21 28 45 61 25 2b 4e 2a 38 2b 31 36 29 |:F=!(Ea%+N*8+16)|
00000fc0 3a ef 31 39 2c 4e 2c 31 36 2c 46 3e 3e 38 80 32 |:.19,N,16,F>>8.2|
00000fd0 35 35 2c 46 3e 3e 31 36 80 32 35 35 2c 46 3e 3e |55,F>>16.255,F>>|
00000fe0 32 34 80 32 35 35 0d 01 3d 05 ed 0d 01 3f 05 cd |24.255..=....?..|
00000ff0 0d 01 3f 0f 4e 3d b3 28 35 29 3a c8 8e 4e ca 0d |..?.N=.(5):..N..|
00001000 01 41 09 c9 31 3a f2 6c 0d 01 43 09 c9 32 3a f2 |.A..1:.l..C..2:.|
00001010 6d 0d 01 44 0b c9 33 2c 34 3a f2 6e 0d 01 45 15 |m..D..3,4:.n..E.|
00001020 c9 35 3a f2 6b 3a 46 3d b3 28 33 29 3a c8 8e 46 |.5:.k:F=.(3):..F|
00001030 ca 0d 01 47 09 c9 31 3a f2 6c 0d 01 49 09 c9 32 |...G..1:.l..I..2|
00001040 3a f2 6d 0d 01 4a 0b c9 33 2c 34 3a f2 6e 0d 01 |:.m..J..3,4:.n..|
00001050 4b 05 cb 0d 01 4b 05 cb 0d 01 4c 05 e1 0d 01 4d |K....K....L....M|
00001060 16 dd f2 6b 3a ea 4e 3a 4e 3d b3 28 36 29 3a c8 |...k:.N:N=.(6):.|
00001070 8e 4e ca 0d 01 52 09 c9 31 3a f2 4c 0d 01 54 09 |.N...R..1:.L..T.|
00001080 c9 32 3a f2 4d 0d 01 55 09 c9 33 3a f2 4e 0d 01 |.2:.M..U..3:.N..|
00001090 56 09 c9 34 3a f2 6f 0d 01 57 09 c9 35 3a f2 4f |V..4:.o..W..5:.O|
000010a0 0d 01 58 09 c9 36 3a f2 50 0d 01 59 05 cb 0d 01 |..X..6:.P..Y....|
000010b0 59 05 e1 0d 01 5a 64 dd f2 4c 3a ea 4e 25 2c 67 |Y....Zd..L:.N%,g|
000010c0 25 2c 64 25 3a 67 25 3d 6b 25 2a 68 25 3a 64 25 |%,d%:g%=k%*h%:d%|
000010d0 3d 69 25 2a 6d 25 3a e6 30 c8 9c 30 3a e3 4e 25 |=i%*m%:.0..0:.N%|
000010e0 3d 30 b8 64 25 81 32 88 6d 25 3a e3 4c 3d 31 b8 |=0.d%.2.m%:.L=1.|
000010f0 61 2a 32 3a ed 3a 86 30 2c 4e 25 2c 67 25 2c 4e |a*2:.:.0,N%,g%,N|
00001100 25 3a 86 30 2c 64 25 2d 4e 25 2c 67 25 2c 64 25 |%:.0,d%-N%,g%,d%|
00001110 2d 4e 25 3a ed 3a e1 0d 01 66 1f dd f2 4d 3a ea |-N%:.:...f...M:.|
00001120 4e 25 2c 67 25 2c 64 25 3a e7 69 25 83 32 3d 30 |N%,g%,d%:.i%.2=0|
00001130 8c 69 25 2b 3d 31 0d 01 6a 56 67 25 3d 6b 25 2a |.i%+=1..jVg%=k%*|
00001140 68 25 3a 64 25 3d 69 25 2a 6d 25 3a e6 30 c8 9c |h%:d%=i%*m%:.0..|
00001150 30 3a e3 4e 25 3d 30 b8 64 25 88 6d 25 2a 32 3a |0:.N%=0.d%.m%*2:|
00001160 e3 4c 3d 31 b8 61 2a 32 3a ed 3a 86 30 2c 4e 25 |.L=1.a*2:.:.0,N%|
00001170 2c 67 25 2c 4e 25 3a 86 30 2c 64 25 2d 4e 25 2c |,g%,N%:.0,d%-N%,|
00001180 67 25 2c 64 25 2d 4e 25 3a ed 3a e1 0d 01 73 d9 |g%,d%-N%:.:...s.|
00001190 dd f2 4e 3a ea 4e 25 2c 67 25 2c 64 25 2c 52 25 |..N:.N%,g%,d%,R%|
000011a0 2c 53 25 2c 54 25 3a 67 25 3d 6b 25 2a 68 25 3a |,S%,T%:g%=k%*h%:|
000011b0 64 25 3d 69 25 2a 6d 25 3a 52 25 3d 67 25 2f 32 |d%=i%*m%:R%=g%/2|
000011c0 3a 53 25 3d 64 25 2f 32 3a e6 30 c8 9c 30 3a e3 |:S%=d%/2:.0..0:.|
000011d0 4e 25 3d 52 25 b8 67 25 88 68 25 2a 34 3a 86 52 |N%=R%.g%.h%*4:.R|
000011e0 25 2c 53 25 2c 4e 25 2c 64 25 3a ed 3a e3 4e 25 |%,S%,N%,d%:.:.N%|
000011f0 3d 64 25 b8 30 88 2d 6d 25 2a 34 3a 86 52 25 2c |=d%.0.-m%*4:.R%,|
00001200 53 25 2c 67 25 2c 4e 25 3a ed 3a e3 4e 25 3d 67 |S%,g%,N%:.:.N%=g|
00001210 25 b8 30 88 2d 68 25 2a 34 3a 86 52 25 2c 53 25 |%.0.-h%*4:.R%,S%|
00001220 2c 4e 25 2c 30 3a ed 3a e3 4e 25 3d 30 b8 64 25 |,N%,0:.:.N%=0.d%|
00001230 88 6d 25 2a 34 3a 86 52 25 2c 53 25 2c 30 2c 4e |.m%*4:.R%,S%,0,N|
00001240 25 3a ed 3a e3 4e 25 3d 30 b8 52 25 88 68 25 2a |%:.:.N%=0.R%.h%*|
00001250 34 3a 86 52 25 2c 53 25 2c 4e 25 2c 64 25 3a ed |4:.R%,S%,N%,d%:.|
00001260 3a f2 6f 3a e1 0d 01 81 87 dd f2 6f 3a ea 4e 25 |:.o:.......o:.N%|
00001270 2c 67 25 2c 64 25 2c 62 2c 63 2c 50 25 2c 51 25 |,g%,d%,b,c,P%,Q%|
00001280 3a 67 25 3d 6b 25 2a 68 25 3a 64 25 3d 69 25 2a |:g%=k%*h%:d%=i%*|
00001290 6d 25 3a 62 3d 68 25 3a 63 3d 64 25 2f 6b 25 3a |m%:b=h%:c=d%/k%:|
000012a0 e6 30 c8 9c 30 3a e3 4e 25 3d 30 b8 6b 25 3e 3e |.0..0:.N%=0.k%>>|
000012b0 31 3a e3 4c 3d 31 b8 61 3a ed 3a 50 25 3d 62 2a |1:.L=1.a:.:P%=b*|
000012c0 4e 25 3a 51 25 3d 63 2a 4e 25 3a c8 93 50 25 2c |N%:Q%=c*N%:..P%,|
000012d0 51 25 2c 67 25 2d 28 50 25 3c 3c 31 29 2c 64 25 |Q%,g%-(P%<<1),d%|
000012e0 2d 28 51 25 3c 3c 31 29 3a ed 3a e1 0d 01 8d 8a |-(Q%<<1):.:.....|
000012f0 dd f2 4f 3a ea 4e 25 2c 67 25 2c 64 25 2c 62 2c |..O:.N%,g%,d%,b,|
00001300 63 2c 50 25 2c 51 25 3a 67 25 3d 6b 25 2a 68 25 |c,P%,Q%:g%=k%*h%|
00001310 3a 64 25 3d 69 25 2a 6d 25 3a 62 3d 68 25 3a 63 |:d%=i%*m%:b=h%:c|
00001320 3d 64 25 2f 6b 25 3a e6 30 c8 9c 30 3a e3 4e 25 |=d%/k%:.0..0:.N%|
00001330 3d 6b 25 3e 3e 31 b8 30 88 2d 31 3a e3 4c 3d 31 |=k%>>1.0.-1:.L=1|
00001340 b8 61 3a ed 3a 50 25 3d 62 2a 4e 25 3a 51 25 3d |.a:.:P%=b*N%:Q%=|
00001350 63 2a 4e 25 3a c8 93 50 25 2c 51 25 2c 67 25 2d |c*N%:..P%,Q%,g%-|
00001360 28 50 25 3c 3c 31 29 2c 64 25 2d 28 51 25 3c 3c |(P%<<1),d%-(Q%<<|
00001370 31 29 3a ed 3a e1 0d 01 99 d0 dd f2 50 3a ea 4e |1):.:.......P:.N|
00001380 25 2c 67 25 2c 64 25 2c 62 2c 63 2c 50 25 2c 51 |%,g%,d%,b,c,P%,Q|
00001390 25 3a 67 25 3d 6b 25 2a 68 25 3a 64 25 3d 69 25 |%:g%=k%*h%:d%=i%|
000013a0 2a 6d 25 3a 62 3d 68 25 3a 63 3d 64 25 2f 6b 25 |*m%:b=h%:c=d%/k%|
000013b0 3a e6 30 c8 9c 30 3a e3 4e 25 3d 30 b8 6b 25 3e |:.0..0:.N%=0.k%>|
000013c0 3e 31 88 32 3a e3 4c 3d 31 b8 61 3a ed 3a 50 25 |>1.2:.L=1.a:.:P%|
000013d0 3d 62 2a 4e 25 3a 51 25 3d 63 2a 4e 25 3a c8 93 |=b*N%:Q%=c*N%:..|
000013e0 50 25 2c 51 25 2c 67 25 2d 28 50 25 3c 3c 31 29 |P%,Q%,g%-(P%<<1)|
000013f0 2c 64 25 2d 28 51 25 3c 3c 31 29 3a ed 3a e3 4e |,d%-(Q%<<1):.:.N|
00001400 25 3d 31 b8 6b 25 3e 3e 31 88 32 3a e3 4c 3d 31 |%=1.k%>>1.2:.L=1|
00001410 b8 61 3a ed 3a 50 25 3d 62 2a 4e 25 3a 51 25 3d |.a:.:P%=b*N%:Q%=|
00001420 63 2a 4e 25 3a c8 93 50 25 2c 51 25 2c 67 25 2d |c*N%:..P%,Q%,g%-|
00001430 28 50 25 3c 3c 31 29 2c 64 25 2d 28 51 25 3c 3c |(P%<<1),d%-(Q%<<|
00001440 31 29 3a ed 3a e1 0d 01 a9 27 dd f2 6c 3a ea 59 |1):.:....'..l:.Y|
00001450 25 2c 55 25 2c 70 25 3a e7 4f 25 3e 3d 69 25 8c |%,U%,p%:.O%>=i%.|
00001460 55 25 3d 69 25 2d 31 8b 55 25 3d 4f 25 0d 01 ad |U%=i%-1.U%=O%...|
00001470 19 e7 6a 25 3e 3d 6c 25 8c 70 25 3d 6c 25 2d 31 |..j%>=l%.p%=l%-1|
00001480 8b 70 25 3d 6a 25 0d 01 ae 63 e3 59 25 3d 30 b8 |.p%=j%...c.Y%=0.|
00001490 55 25 2d 6b 61 25 88 6b 61 25 3a e3 4c 3d 31 b8 |U%-ka%.ka%:.L=1.|
000014a0 61 2a 32 3a ed 3a 41 25 3d 75 25 2b 59 25 2a 6a |a*2:.:A%=u%+Y%*j|
000014b0 25 3a 42 25 3d 56 25 2b 59 25 2a 6c 25 3a 43 25 |%:B%=V%+Y%*l%:C%|
000014c0 3d 70 25 3a 44 25 3d 6b 61 25 3a 45 25 3d 6c 25 |=p%:D%=ka%:E%=l%|
000014d0 3a 46 25 3d 6a 25 3a 47 25 3d 31 3a d6 65 3a ed |:F%=j%:G%=1:.e:.|
000014e0 3a e7 59 25 3c 3e 55 25 8c 0d 01 b6 3e 41 25 3d |:.Y%<>U%....>A%=|
000014f0 75 25 2b 59 25 2a 6a 25 3a 42 25 3d 56 25 2b 59 |u%+Y%*j%:B%=V%+Y|
00001500 25 2a 6c 25 3a 43 25 3d 70 25 3a 44 25 3d 55 25 |%*l%:C%=p%:D%=U%|
00001510 2d 59 25 3a 45 25 3d 6c 25 3a 46 25 3d 6a 25 3a |-Y%:E%=l%:F%=j%:|
00001520 47 25 3d 31 3a d6 65 0d 01 bb 05 cd 0d 01 bb 14 |G%=1:.e.........|
00001530 e6 30 c8 9c 30 3a e7 55 25 3d 69 25 2d 31 8c e1 |.0..0:.U%=i%-1..|
00001540 0d 01 bd 1e c8 93 c8 90 30 2c 30 2c 6b 25 2a 68 |........0,0,k%*h|
00001550 25 2c 28 69 25 2d 59 25 29 2a 6d 25 3a e1 0d 01 |%,(i%-Y%)*m%:...|
00001560 bf 27 dd f2 6d 3a ea 4e 25 2c 67 25 2c 64 25 3a |.'..m:.N%,g%,d%:|
00001570 e7 6a 25 3e 3d 6c 25 8c 70 25 3d 6c 25 2d 31 8b |.j%>=l%.p%=l%-1.|
00001580 70 25 3d 6a 25 0d 01 c3 1b e7 4f 25 3e 3d 69 25 |p%=j%.....O%>=i%|
00001590 8c 64 25 3d 69 25 2d 31 8b 64 25 3d 4f 25 2d 31 |.d%=i%-1.d%=O%-1|
000015a0 0d 01 c4 b4 e6 30 c8 9c 30 3a c8 93 c8 90 30 2c |.....0..0:....0,|
000015b0 30 2c 6b 25 2a 68 25 2c 28 69 25 2d 64 25 29 2a |0,k%*h%,(i%-d%)*|
000015c0 6d 25 3a e3 4e 25 3d 30 b8 64 25 2f 32 3a e3 4c |m%:.N%=0.d%/2:.L|
000015d0 3d 31 b8 61 2a 32 3a ed 3a 41 25 3d 75 25 2b 4e |=1.a*2:.:A%=u%+N|
000015e0 25 2a 6a 25 3a 42 25 3d 56 25 2b 4e 25 2a 6c 25 |%*j%:B%=V%+N%*l%|
000015f0 3a 43 25 3d 70 25 3a 44 25 3d 31 3a 45 25 3d 6c |:C%=p%:D%=1:E%=l|
00001600 25 3a 46 25 3d 6a 25 3a 47 25 3d 31 3a d6 65 3a |%:F%=j%:G%=1:.e:|
00001610 41 25 3d 75 25 2b 28 64 25 2d 4e 25 29 2a 6a 25 |A%=u%+(d%-N%)*j%|
00001620 3a 42 25 3d 56 25 2b 28 64 25 2d 4e 25 29 2a 6c |:B%=V%+(d%-N%)*l|
00001630 25 3a 43 25 3d 70 25 3a 44 25 3d 31 3a 45 25 3d |%:C%=p%:D%=1:E%=|
00001640 6c 25 3a 46 25 3d 6a 25 3a 47 25 3d 31 3a d6 65 |l%:F%=j%:G%=1:.e|
00001650 3a ed 3a e1 0d 01 d2 27 dd f2 6e 3a ea 4e 25 2c |:.:....'..n:.N%,|
00001660 67 25 2c 64 25 3a e7 6a 25 3e 3d 6c 25 8c 70 25 |g%,d%:.j%>=l%.p%|
00001670 3d 6c 25 2d 31 8b 70 25 3d 6a 25 0d 01 d6 1b e7 |=l%-1.p%=j%.....|
00001680 4f 25 3e 3d 69 25 8c 64 25 3d 69 25 2d 31 8b 64 |O%>=i%.d%=i%-1.d|
00001690 25 3d 4f 25 2d 31 0d 01 d7 11 e7 64 25 83 32 3d |%=O%-1.....d%.2=|
000016a0 30 8c 64 25 2d 3d 31 0d 01 d8 ac e6 30 c8 9c 30 |0.d%-=1.....0..0|
000016b0 3a c8 93 c8 90 30 2c 30 2c 6b 25 2a 68 25 2c 28 |:....0,0,k%*h%,(|
000016c0 69 25 2d 64 25 29 2a 6d 25 3a e3 4e 25 3d 30 b8 |i%-d%)*m%:.N%=0.|
000016d0 64 25 88 32 3a c8 96 3a 41 25 3d 75 25 2b 4e 25 |d%.2:..:A%=u%+N%|
000016e0 2a 6a 25 3a 42 25 3d 56 25 2b 4e 25 2a 6c 25 3a |*j%:B%=V%+N%*l%:|
000016f0 43 25 3d 70 25 3a 44 25 3d 31 3a 45 25 3d 6c 25 |C%=p%:D%=1:E%=l%|
00001700 3a 46 25 3d 6a 25 3a 47 25 3d 31 3a d6 65 3a 41 |:F%=j%:G%=1:.e:A|
00001710 25 3d 75 25 2b 28 64 25 2d 4e 25 29 2a 6a 25 3a |%=u%+(d%-N%)*j%:|
00001720 42 25 3d 56 25 2b 28 64 25 2d 4e 25 29 2a 6c 25 |B%=V%+(d%-N%)*l%|
00001730 3a 43 25 3d 70 25 3a 44 25 3d 31 3a 45 25 3d 6c |:C%=p%:D%=1:E%=l|
00001740 25 3a 46 25 3d 6a 25 3a 47 25 3d 31 3a d6 65 3a |%:F%=j%:G%=1:.e:|
00001750 ed 3a e1 0d 01 e6 3c dd f2 6a 3a c8 99 22 4f 53 |.:....<..j:.."OS|
00001760 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c |_ReadModeVariabl|
00001770 65 22 2c 2d 31 2c 39 b8 2c 2c 4a 61 25 3a 4a 61 |e",-1,9.,,Ja%:Ja|
00001780 25 3d 32 5e 4a 61 25 3a e7 4a 61 25 3c 34 8c 0d |%=2^Ja%:.Ja%<4..|
00001790 01 eb 5b 4e 25 3d a4 62 28 6e 25 29 3a c8 99 22 |..[N%=.b(n%):.."|
000017a0 57 69 6d 70 5f 53 65 74 4d 6f 64 65 22 2c 4d 25 |Wimp_SetMode",M%|
000017b0 3a 85 31 37 2c 22 54 68 69 73 20 73 70 72 69 74 |:.17,"This sprit|
000017c0 65 20 28 27 22 2b 61 24 28 51 29 2b 22 27 29 20 |e ('"+a$(Q)+"') |
000017d0 68 61 73 20 6c 65 73 73 20 74 68 61 6e 20 31 36 |has less than 16|
000017e0 20 63 6f 6c 6f 75 72 73 2e 22 0d 01 ef 05 cd 0d | colours."......|
000017f0 01 ef 49 21 62 25 3d 31 34 39 3a 62 25 21 34 3d |..I!b%=149:b%!4=|
00001800 2d 31 3a c8 99 22 4f 53 5f 52 65 61 64 56 64 75 |-1:.."OS_ReadVdu|
00001810 56 61 72 69 61 62 6c 65 73 22 2c 62 25 2c 62 25 |Variables",b%,b%|
00001820 2b 38 3a 56 25 3d 62 25 21 38 3a 6c 25 3d 4a 61 |+8:V%=b%!8:l%=Ja|
00001830 25 2a 6b 25 2f 38 3a e1 0d 01 f4 4d dd f2 4b 3a |%*k%/8:....M..K:|
00001840 c8 99 22 57 69 6d 70 5f 53 65 74 4d 6f 64 65 22 |.."Wimp_SetMode"|
00001850 2c 4d 25 3a 85 31 37 2c 22 4e 6f 74 20 65 6e 6f |,M%:.17,"Not eno|
00001860 75 67 68 20 6d 65 6d 6f 72 79 20 74 6f 20 6c 6f |ugh memory to lo|
00001870 61 64 20 70 69 63 74 75 72 65 20 22 2b a4 61 28 |ad picture "+.a(|
00001880 61 24 29 3a e1 0d 01 f9 c6 dd f2 44 28 4b 61 25 |a$):.......D(Ka%|
00001890 2c 4c 61 25 2c 4d 61 25 2c 4e 61 25 29 3a 21 71 |,La%,Ma%,Na%):!q|
000018a0 25 3d 4c 61 25 3a c8 99 22 57 69 6d 70 5f 47 65 |%=La%:.."Wimp_Ge|
000018b0 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 71 |tWindowState",,q|
000018c0 25 3a 71 25 21 32 38 3d 62 25 21 32 38 3a 71 25 |%:q%!28=b%!28:q%|
000018d0 21 31 32 3d 62 25 21 31 32 3a 71 25 21 31 36 3d |!12=b%!12:q%!16=|
000018e0 71 25 21 31 36 2d 71 25 21 38 2b 62 25 21 38 2b |q%!16-q%!8+b%!8+|
000018f0 4e 61 25 3a 71 25 21 34 3d 62 25 21 34 2b 4d 61 |Na%:q%!4=b%!4+Ma|
00001900 25 3a 71 25 21 38 3d 62 25 21 38 2b 4e 61 25 3a |%:q%!8=b%!8+Na%:|
00001910 c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 |.."Wimp_OpenWind|
00001920 6f 77 22 2c 2c 71 25 3a 62 25 21 32 38 3d 4c 61 |ow",,q%:b%!28=La|
00001930 25 3a c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |%:.."Wimp_OpenWi|
00001940 6e 64 6f 77 22 2c 2c 62 25 3a e1 0d 02 06 ba dd |ndow",,b%:......|
00001950 f2 47 28 65 24 29 3a ea 66 25 2c 4f 61 25 2c 64 |.G(e$):.f%,Oa%,d|
00001960 24 2c 64 3a c8 99 22 4f 53 5f 47 42 50 42 22 2c |$,d:.."OS_GBPB",|
00001970 31 30 2c 65 24 2c 62 25 2c 37 37 2c 30 2c 34 30 |10,e$,b%,77,0,40|
00001980 39 36 2c 22 2a 22 b8 64 2c 64 2c 64 2c 50 61 25 |96,"*".d,d,d,Pa%|
00001990 3a 66 25 3d 62 25 3a 51 61 25 3d 50 61 25 3a c8 |:f%=b%:Qa%=Pa%:.|
000019a0 95 51 61 25 3e 30 3a 64 24 3d 22 22 3a 4f 61 25 |.Qa%>0:d$="":Oa%|
000019b0 3d 32 30 3a c8 95 66 25 3f 4f 61 25 3c 3e 30 3a |=20:..f%?Oa%<>0:|
000019c0 64 24 2b 3d bd 28 66 25 3f 4f 61 25 29 3a 4f 61 |d$+=.(f%?Oa%):Oa|
000019d0 25 2b 3d 31 3a ce 3a e7 66 25 21 31 36 3d 31 80 |%+=1:.:.f%!16=1.|
000019e0 28 66 25 21 30 3e 3e 38 29 80 34 30 38 39 8c 65 |(f%!0>>8).4089.e|
000019f0 25 2b 3d 31 3a 61 24 28 65 25 29 3d 65 24 2b 22 |%+=1:a$(e%)=e$+"|
00001a00 2e 22 2b 64 24 0d 02 12 27 66 25 2b 3d 28 28 4f |."+d$...'f%+=((O|
00001a10 61 25 2b 34 29 81 34 29 2a 34 3a 51 61 25 2d 3d |a%+4).4)*4:Qa%-=|
00001a20 31 3a ce 3a f2 61 28 65 25 29 3a e1 0d 02 16 62 |1:.:.a(e%):....b|
00001a30 dd f2 69 3a 4e 25 3d a4 62 28 6e 25 29 3a c8 99 |..i:N%=.b(n%):..|
00001a40 22 57 69 6d 70 5f 53 65 74 4d 6f 64 65 22 2c 4d |"Wimp_SetMode",M|
00001a50 25 3a 85 31 37 2c 22 55 6e 61 62 6c 65 20 74 6f |%:.17,"Unable to|
00001a60 20 63 68 61 6e 67 65 20 74 6f 20 63 6f 72 72 65 | change to corre|
00001a70 63 74 20 6d 6f 64 65 20 28 6e 6f 74 20 65 6e 6f |ct mode (not eno|
00001a80 75 67 68 20 6d 65 6d 6f 72 79 29 22 3a e1 0d 02 |ugh memory)":...|
00001a90 1c d5 dd f2 43 3a de 52 61 25 20 31 30 30 30 2c |....C:.Ra% 1000,|
00001aa0 4c 25 20 2d 31 3a e3 49 25 3d 38 b8 31 30 88 32 |L% -1:.I%=8.10.2|
00001ab0 3a 50 25 3d 52 61 25 3a 5b 4f 50 54 20 49 25 3a |:P%=Ra%:[OPT I%:|
00001ac0 2e 6a 3a 41 44 44 31 32 2c 20 31 32 2c 20 31 30 |.j:ADD12, 12, 10|
00001ad0 3a 2e 6b 3a 4c 44 52 42 39 2c 20 5b 31 30 5d 2c |:.k:LDRB9, [10],|
00001ae0 20 23 31 3a 53 54 52 42 39 2c 20 5b 31 31 5d 2c | #1:STRB9, [11],|
00001af0 20 23 31 3a 54 45 51 31 30 2c 20 31 32 3a 42 4e | #1:TEQ10, 12:BN|
00001b00 45 20 6b 3a 4d 4f 56 20 70 63 2c 20 31 34 3a 2e |E k:MOV pc, 14:.|
00001b10 6c 3a 4d 4f 56 39 2c 23 30 3a 41 44 44 31 32 2c |l:MOV9,#0:ADD12,|
00001b20 20 31 32 2c 20 31 31 3a 2e 6d 3a 53 54 52 42 39 | 12, 11:.m:STRB9|
00001b30 2c 20 5b 31 31 5d 2c 20 23 31 3a 43 4d 50 31 31 |, [11], #1:CMP11|
00001b40 2c 20 31 32 3a 42 4c 54 20 6d 3a 4d 4f 56 20 70 |, 12:BLT m:MOV p|
00001b50 63 2c 20 31 34 3a 2e 65 3a 53 54 52 31 34 2c 68 |c, 14:.e:STR14,h|
00001b60 3a 2e 6e 0d 02 40 7c 4d 4f 56 31 30 2c 30 3a 4d |:.n..@|MOV10,0:M|
00001b70 4f 56 31 31 2c 31 3a 4d 4f 56 31 32 2c 32 3a 42 |OV11,1:MOV12,2:B|
00001b80 4c 20 6a 3a 53 55 42 31 32 2c 34 2c 32 3a 43 4d |L j:SUB12,4,2:CM|
00001b90 50 36 2c 23 31 3a 42 4c 45 51 20 6c 3a 41 44 44 |P6,#1:BLEQ l:ADD|
00001ba0 30 2c 30 2c 35 3a 41 44 44 31 2c 31 2c 34 3a 53 |0,0,5:ADD1,1,4:S|
00001bb0 55 42 33 2c 33 2c 23 31 3a 43 4d 50 33 2c 23 30 |UB3,3,#1:CMP3,#0|
00001bc0 3a 42 4e 45 20 6e 3a 4c 44 52 20 50 43 2c 68 3a |:BNE n:LDR PC,h:|
00001bd0 2e 68 3a 45 51 55 44 30 3a 20 5d 3a ed 3a e1 0d |.h:EQUD0: ]:.:..|
00001be0 02 4d 8b dd f2 7a 3a ea 74 25 3a c8 99 22 4f 53 |.M...z:.t%:.."OS|
00001bf0 5f 52 65 61 64 4d 65 6d 4d 61 70 49 6e 66 6f 22 |_ReadMemMapInfo"|
00001c00 b8 53 61 25 3a 76 25 3d 53 61 25 3a c8 99 22 57 |.Sa%:v%=Sa%:.."W|
00001c10 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 |imp_SlotSize",-1|
00001c20 2c 2d 31 b8 74 25 3a 77 25 3d 74 25 2b 33 32 37 |,-1.t%:w%=t%+327|
00001c30 36 38 3a c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 |68:.."Wimp_SlotS|
00001c40 69 7a 65 22 2c 77 25 2b 76 25 2d 33 32 37 36 38 |ize",w%+v%-32768|
00001c50 2c 2d 31 3a c8 99 22 4f 53 5f 48 65 61 70 22 2c |,-1:.."OS_Heap",|
00001c60 30 2c 77 25 2c 2c 76 25 3a e1 0d 02 57 35 dd a4 |0,w%,,v%:...W5..|
00001c70 66 28 72 25 29 3a ea 61 25 3a c8 99 22 58 4f 53 |f(r%):.a%:.."XOS|
00001c80 5f 48 65 61 70 22 2c 32 2c 77 25 2c 2c 72 25 b8 |_Heap",2,w%,,r%.|
00001c90 2c 2c 61 25 3a e7 61 25 3c 3e 30 8c 3d 61 25 0d |,,a%:.a%<>0.=a%.|
00001ca0 02 5c 10 e7 a4 68 28 72 25 29 3d 30 8c 3d 30 0d |.\...h(r%)=0.=0.|
00001cb0 02 5d 25 c8 99 22 58 4f 53 5f 48 65 61 70 22 2c |.]%.."XOS_Heap",|
00001cc0 32 2c 77 25 2c 2c 72 25 b8 2c 2c 61 25 3a f2 70 |2,w%,,r%.,,a%:.p|
00001cd0 3a 3d 61 25 0d 02 62 27 dd a4 62 28 54 61 25 29 |:=a%..b'..b(Ta%)|
00001ce0 3a c8 99 22 4f 53 5f 48 65 61 70 22 2c 33 2c 77 |:.."OS_Heap",3,w|
00001cf0 25 2c 54 61 25 3a f2 70 3a 3d 30 0d 02 67 52 dd |%,Ta%:.p:=0..gR.|
00001d00 a4 68 28 72 25 29 3a ea 73 25 2c 66 25 3a 73 25 |.h(r%):.s%,f%:s%|
00001d10 3d a4 65 28 76 25 2b 72 25 29 3a c8 99 22 58 57 |=.e(v%+r%):.."XW|
00001d20 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 77 25 |imp_SlotSize",w%|
00001d30 2b 73 25 2d 33 32 37 36 38 2c 2d 31 b8 3b 66 25 |+s%-32768,-1.;f%|
00001d40 3a e7 28 66 25 80 31 29 3d 31 8c 3d 30 0d 02 6b |:.(f%.1)=1.=0..k|
00001d50 25 c8 99 22 58 4f 53 5f 48 65 61 70 22 2c 35 2c |%.."XOS_Heap",5,|
00001d60 77 25 2c 2c 73 25 2d 76 25 3a 76 25 3d 73 25 3a |w%,,s%-v%:v%=s%:|
00001d70 3d b9 0d 02 70 3f dd f2 70 3a ea 73 25 2c 74 25 |=...p?..p:.s%,t%|
00001d80 3a 73 25 3d 76 25 3a c8 99 22 58 4f 53 5f 48 65 |:s%=v%:.."XOS_He|
00001d90 61 70 22 2c 35 2c 77 25 2c 2c 2d 73 25 b8 2c 2c |ap",5,w%,,-s%.,,|
00001da0 2c 74 25 3a e7 74 25 3d 2d 73 25 8c 74 25 3d 73 |,t%:.t%=-s%.t%=s|
00001db0 25 0d 02 74 52 76 25 3d a4 65 28 76 25 2d 74 25 |%..tRv%=.e(v%-t%|
00001dc0 29 3a c8 99 22 58 4f 53 5f 48 65 61 70 22 2c 35 |):.."XOS_Heap",5|
00001dd0 2c 77 25 2c 2c 76 25 2d 28 73 25 2d 74 25 29 3a |,w%,,v%-(s%-t%):|
00001de0 c8 99 22 58 57 69 6d 70 5f 53 6c 6f 74 53 69 7a |.."XWimp_SlotSiz|
00001df0 65 22 2c 77 25 2b 76 25 2d 33 32 37 36 38 2c 2d |e",w%+v%-32768,-|
00001e00 31 3a e1 0d 02 78 1d dd a4 65 28 73 25 29 3a ea |1:...x...e(s%):.|
00001e10 74 25 3a e7 28 73 25 83 53 61 25 29 3c 3e 30 8c |t%:.(s%.Sa%)<>0.|
00001e20 0d 02 7c 1a 74 25 3d 53 61 25 2d 28 73 25 83 53 |..|.t%=Sa%-(s%.S|
00001e30 61 25 29 3a 73 25 2b 3d 74 25 0d 02 7f 05 cd 0d |a%):s%+=t%......|
00001e40 02 7f 07 3d 73 25 0d 02 81 73 dd f2 45 28 67 24 |...=s%...s..E(g$|
00001e50 2c 6d 24 2c 58 25 2c 59 25 29 3a f2 51 28 64 61 |,m$,X%,Y%):.Q(da|
00001e60 25 2c 67 24 2c 6d 24 29 3a c8 99 22 57 69 6d 70 |%,g$,m$):.."Wimp|
00001e70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 64 61 |_CreateMenu",,da|
00001e80 25 2c 58 25 2d 64 61 25 21 31 36 2f 32 2c 59 25 |%,X%-da%!16/2,Y%|
00001e90 3a 41 24 3d 22 4e 6f 20 70 72 69 6e 74 65 72 22 |:A$="No printer"|
00001ea0 3a c8 99 36 35 35 36 38 30 2c 2c 2c 2c 2c 41 24 |:..655680,,,,,A$|
00001eb0 b8 2c 2c 2c 2c 41 24 3a e1 0d 02 85 a7 dd f2 51 |.,,,,A$:.......Q|
00001ec0 28 4d 25 2c 67 24 2c 6d 24 29 3a ea 49 25 2c 55 |(M%,g$,m$):.I%,U|
00001ed0 61 25 2c 56 61 25 2c 57 61 25 2c 58 61 25 2c 4e |a%,Va%,Wa%,Xa%,N|
00001ee0 2c 58 3a 58 61 25 3d 31 32 38 3a 24 4d 25 3d 67 |,X:Xa%=128:$M%=g|
00001ef0 24 3a 4d 25 21 31 32 3d 34 35 39 32 37 31 3a 4d |$:M%!12=459271:M|
00001f00 25 21 32 30 3d 34 34 3a 4d 25 21 32 34 3d 30 3a |%!20=44:M%!24=0:|
00001f10 49 25 3d 4d 25 2b 32 38 3a 55 61 25 3d a9 28 67 |I%=M%+28:Ua%=.(g|
00001f20 24 29 2d 32 3a f5 3a 41 25 3d a7 6d 24 2c 22 2c |$)-2:.:A%=.m$,",|
00001f30 22 29 3a 24 28 49 25 2b 31 32 29 3d c0 6d 24 2c |"):$(I%+12)=.m$,|
00001f40 41 25 2d 31 29 3a 6d 24 3d c1 6d 24 2c 41 25 2b |A%-1):m$=.m$,A%+|
00001f50 31 29 3a e7 41 25 3e 55 61 25 55 61 25 3d 41 25 |1):.A%>Ua%Ua%=A%|
00001f60 0d 02 8e 1d 21 49 25 3d 30 3a 49 25 21 34 3d 30 |....!I%=0:I%!4=0|
00001f70 3a 3a c8 8e 24 28 49 25 2b 31 32 29 ca 0d 02 91 |::..$(I%+12)....|
00001f80 13 c9 22 49 6e 66 6f 22 3a 49 25 21 34 3d 5f 25 |.."Info":I%!4=_%|
00001f90 0d 02 93 05 cb 0d 02 93 35 3a 49 25 21 38 3d 26 |........5:I%!8=&|
00001fa0 37 30 30 30 30 32 31 3a e7 24 28 49 25 2b 31 32 |7000021:.$(I%+12|
00001fb0 29 3d 22 45 78 74 65 6e 64 65 64 22 8c 49 25 21 |)="Extended".I%!|
00001fc0 38 3d 26 37 34 30 30 30 32 31 0d 02 96 2d 49 25 |8=&7400021...-I%|
00001fd0 2b 3d 32 34 3a fd 6d 24 3d 22 22 3a 21 28 49 25 |+=24:.m$="":!(I%|
00001fe0 2d 32 34 29 3d 58 61 25 3a 4d 25 21 31 36 3d 55 |-24)=Xa%:M%!16=U|
00001ff0 61 25 2a 31 36 3a e1 0d 02 9a 21 dd f2 52 28 41 |a%*16:....!..R(A|
00002000 29 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c |):.."Wimp_SetCol|
00002010 6f 75 72 22 2c 41 3a e1 0d 02 9f 3c dd f2 64 28 |our",A:....<..d(|
00002020 57 25 29 3a 21 62 25 3d 57 25 3a c8 99 22 57 69 |W%):!b%=W%:.."Wi|
00002030 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
00002040 65 22 2c 2c 62 25 3a 62 25 21 32 38 3d 2d 31 3a |e",,b%:b%!28=-1:|
00002050 f2 66 3a e1 0d 02 a4 46 dd a4 67 28 59 61 25 2c |.f:....F..g(Ya%,|
00002060 5a 61 25 29 3a 62 25 21 30 3d 59 61 25 3a 62 25 |Za%):b%!0=Ya%:b%|
00002070 21 34 3d 5a 61 25 3a c8 99 22 57 69 6d 70 5f 47 |!4=Za%:.."Wimp_G|
00002080 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 |etIconState",,b%|
00002090 3a 3d 24 28 62 25 21 32 38 29 0d 02 ab 72 dd f2 |:=$(b%!28)...r..|
000020a0 62 28 57 25 2c 49 25 2c 53 24 29 3a 62 25 21 30 |b(W%,I%,S$):b%!0|
000020b0 3d 57 25 3a 62 25 21 34 3d 49 25 3a c8 99 22 57 |=W%:b%!4=I%:.."W|
000020c0 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
000020d0 22 2c 2c 62 25 3a 24 28 62 25 21 32 38 29 3d 53 |",,b%:$(b%!28)=S|
000020e0 24 3a 62 25 21 38 3d 30 3a 62 25 21 31 32 3d 30 |$:b%!8=0:b%!12=0|
000020f0 3a c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |:.."Wimp_SetIcon|
00002100 53 74 61 74 65 22 2c 2c 62 25 3a e1 0d 02 b1 54 |State",,b%:....T|
00002110 dd f2 75 28 21 62 25 29 3a ea 58 2c 59 2c 5a 3a |..u(!b%):.X,Y,Z:|
00002120 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e |.."Wimp_CloseWin|
00002130 64 6f 77 22 2c 2c 62 25 3a e7 21 62 25 3d 4b 25 |dow",,b%:.!b%=K%|
00002140 8c 21 62 25 3d 4a 25 3a c8 99 22 57 69 6d 70 5f |.!b%=J%:.."Wimp_|
00002150 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 |CloseWindow",,b%|
00002160 0d 02 b6 05 e1 0d 02 b7 47 dd a4 61 28 61 24 29 |........G..a(a$)|
00002170 3a ea 46 24 2c 4e 3a 4e 3d a9 28 61 24 29 3a c8 |:.F$,N:N=.(a$):.|
00002180 95 c1 61 24 2c 4e 2c 31 29 3c 3e 22 2e 22 80 4e |..a$,N,1)<>".".N|
00002190 3e 30 3a 46 24 3d c1 61 24 2c 4e 2c 31 29 2b 46 |>0:F$=.a$,N,1)+F|
000021a0 24 3a 4e 2d 3d 31 3a ce 3a 3d 46 24 0d 02 c0 23 |$:N-=1:.:=F$...#|
000021b0 dd a4 69 28 61 24 29 3a 3d c0 61 24 2c a9 28 61 |..i(a$):=.a$,.(a|
000021c0 24 29 2d a9 28 a4 61 28 61 24 29 29 2d 31 29 0d |$)-.(.a(a$))-1).|
000021d0 02 c3 07 dd f2 63 0d 02 c4 0a 2a 43 4c 4f 53 45 |.....c....*CLOSE|
000021e0 0d 02 c4 2c c8 99 22 48 6f 75 72 67 6c 61 73 73 |...,.."Hourglass|
000021f0 5f 53 6d 61 73 68 22 3a c8 99 22 57 69 6d 70 5f |_Smash":.."Wimp_|
00002200 43 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 02 c7 05 |CloseDown":.....|
00002210 e1 0d ff |...|
00002213 
.