Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199510.adf » AW1095_1 » Freeware/Shareware/Smartquote/!Quotes/!Runimage
Freeware/Shareware/Smartquote/!Quotes/!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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199510.adf » AW1095_1 |
| Filename: | Freeware/Shareware/Smartquote/!Quotes/!Runimage |
| Read OK: | ✔ |
| File size: | 3012 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>!RunImage
2REMProduced by BasCompress v1.60 (03 Feb 1995)
3DIME$(4),A$(4):C$="<"+"SmartQuotes"+"$Dir>":A$="<"+"SmartQuotes"+"$"+"Choices"+"Dir>":Q$=" This is a fatal error, "+"Smart Quotes"+" will quit immediately.":cy=FALSE:s=TRUE:ky=0:ONERRORONERROROFF:OSCLI("RmKill "+"SmartQuotes"):ERROREXTERR,REPORT$+" at line "+STR$(ERL):END
4DIME 256,h 24,C 8,ey 4,R &d,S 32:$ey="":X$="Run "+FNE("Dir"):PROCg:o=0:!h=&a:h!4=&400c2:h!8=&502:h!&c=&400c1:h!16=9:h!20=0:SYS&400c0,310,&4b534154,"Smart Quotes",hTO,ky:ONERRORONERROROFF:PROCN:END
5n=TRUE:ty=FALSE:Ty=42:i=FALSE:Ey=FALSE:v_=FALSE:H=7:ly=7:Sy=0:sy=42:V=TRUE:q=TRUE:K=TRUE:f=TRUE:x=FALSE:qy=FALSE:dy=FALSE:Ly=FALSE:zy=FALSE:Qy=FALSE:PROCUy(C$+".Sprites"):PROCY:PROCk:SYS&400c7,&e3972,E:X=-2:a=FALSE:PROCo:PROCNy:IFNOTaTHEN
6PROCH("!quotes",0)
7ELSE:SYS&400c5,,S:_=0:X=T
8ENDIF:PROCG:PROCK:PROCi:PROCGy:PROCBy:PROCJy:PROCu:PROCW:END
9DEFPROCg:SYS&2001e,18,"SmartQuotes"TO,,,,L_:w=L_+256:y=w+&80*8:ENDPROC
10DEFPROCu:LOCALM_,Z_,Q:REPEAT:SYS66TOZ_:SYS&400e1,&3830,E,Z_+30TOM_:CASEM_OF
11WHEN0:IFtyTHENPROCAyELSEPROCG
12WHEN1:PROCh
13WHEN2:IF!E=TTHEN
14E!28=-1:IFE!8>=&84THEN
15SYS&400c5,,E:FORQ=0TO28STEP4:S!Q=E!Q:NEXT
16ELSE:PROCE(T):a=FALSE:PROCc
17ENDIF
18ELSE:SYS&400c5,,E:IF!E=GTHENi=TRUE
19IF!E=JTHENEy=TRUE
20ENDIF
21WHEN3:SYS&400cf,,E+&80:IFE!&88=1THEN
22IFINKEY-1THEN
23OSCLI("*WimpTask <"+"SmartQuotes"+"$RunChars>")
24ELSE:OSCLI("Filer_OpenDir "+A$)
25ENDIF
26ELSE:SYS&400c6,,E:IF!E=JTHENPROCE(F)
27IF!E=GTHENi=FALSE
28IFINKEY-2THEN
29PROCE(W):PROCE(Y):PROCE(J):PROCE(F):PROCE(G):i=FALSE
30ENDIF
31ENDIF
32WHEN6:IFE!8<>2THEN
33PROCMy
34ELSE:Iy=E!4:IFE!&c=-2THENB=360ELSEB=Iy
35N_=!E-64:U_=B:IFE!&c=JORE!&c=FTHEN
36Zy=u:IFP=0THENu!84=&7400021ELSEu!84=&7000021
37IFP=&80THENu!60=&7400021ELSEu!60=&7000021
38ELSE:Zy=ry
39ENDIF:SYS&400d4,,Zy,!E-64,B
40ENDIF
41WHEN7:PROC`
42WHEN8:PROCp
43WHEN9:SYS&400cf,,E+&80:CASEZyOF
44WHENry:CASE!EOF
45WHEN0:SYS&400d4,,Vy,E!&80,E!&84
46WHEN1:PROCJ(G):i=TRUE
47WHEN2:PROCJ(Y)
48WHEN3:PROCF:PROCJ(W):PROCX(W,8,1)
49WHEN4:PROCa:PROCJ(J)
50WHEN5:PROCW
51ENDCASE
52WHENu:CASE!EOF
53WHEN0:Jy=FALSE:PROC_(FNS(Iy))
54WHEN1:PROCDy
55WHEN2:PROCXy(FNS(Iy)):PROCE(F):PROCt
56WHEN3:PROCEy
57WHEN4:PROCg:PROCa:PROCJ(J):PROCt
58ENDCASE
59ENDCASE:M%=E!&88:IF(M%AND1)=1THENSYS&400d4,,Zy,N_,U_
60WHEN17,18:CASEE!16OF
61WHEN0:PROCW
62WHEN&a:PROCl
63WHEN&400c2:PROCZy
64WHEN&400c1,9:PROCR:PROCY
65ENDCASE
66ENDCASE:UNTILFALSE:ENDPROC
67DEFPROCt:!E=J:SYS&400cb,,E:SYS&400d1,J,E!4,E!8,E!&c,E!16:ENDPROC
68DEFPROCJ(N):LOCALb,D,B,gy,vy:!E=N:SYS&400cb,,E:b=FALSE:IFqyANDN=YTHEN
69D=E_:B=T_:b=TRUE:qy=FALSE
70ENDIF:IFdyANDN=GTHEN
71D=X_:B=D_:b=TRUE:dy=FALSE
72ENDIF:IFQyANDN=WTHEN
73D=K_:B=O_:b=TRUE:Qy=FALSE
74ENDIF:IFLyANDN=JTHEN
75D=s_:B=w_:b=TRUE:Ly=FALSE
76ENDIF:IFzyANDN=FTHEN
77D=z_:B=x_:b=TRUE:zy=FALSE
78ENDIF:IFbTHEN
79gy=D-E!4:vy=B-E!16:E!4+=gy:E!8+=vy:E!&c+=gy:E!16+=vy
80ENDIF:E!28=-1:SYS&400c5,,E:ENDPROC
81DEFPROCE(N):!E=N:SYS&400c6,,E:ENDPROC
82DEFPROCW:PROCR:IFsTHEN*RMKill SmartQuotes
83END:ENDPROC
84DEFPROCN:LOCALk:ONERRORONERROROFF:OSCLI("RmKill "+"SmartQuotes"):ERROREXTERR,REPORT$+" at line "+STR$(ERL):END
85!E=ERR:$(E+4)="Internal error code "+STR$(ERL)+": "+REPORT$+CHR$0:SYS&400df,E,3,"Smart Quotes"TO,k:IFk=2THENPROCf
86ONERRORONERROROFF:PROCN:END
87PROCu:ENDPROC
88DEFPROCf:LOCALk:!E=0:$(E+4)="Are you sure you want to quit the program? Click OK to quit, Cancel to return to the program.":SYS&400df,E,23,"Smart Quotes"TO,k:IFk=1THENPROCW
89ENDPROC
90DEFPROCS(I$,f_,h_):!E=0:$(E+4)=I$:SYS&400df,E,3+f_*2-h_*16,"Smart Quotes"TO,k:IFk=2THENPROCf
91ENDPROC
92DEFPROCd(Z$):ONERRORONERROROFF:PROCS("Couldn't load "+Z$+" ("+REPORT$+", "+STR$(ERL)+")."+Q$,-1,0):PROCW
93ENDPROC
94DEFPROCQy(N,RETURNmy):IFmyTHEN
95PROCE(N)
96ELSE:PROCJ(N)
97ENDIF:my=NOTmy:ENDPROC
98DEFPROCFy:IFH>0THEN
99ly=H:PROCA("Options","0")
100ELSE:PROCA("Options",STR$(ly))
101ENDIF:PROCG:ENDPROC
102DEFPROCMy:LOCALZ,wy,Gy,ay,M$,g_,Dy,Xy,fy:Z=E!16:Gy=E!&c:ay=E!8:CASEGyOF
103WHENX:Dy=INKEY-1:Xy=INKEY-2:fy=INKEY-3:IFDy+Xy+fy<>0THEN
104IFDyANDXyTHEN
105IFay=4THEN
106IFX=-2THEN
107PROCc
108ELSE:!E=T:E!4=T:SYS&400cb,,E+4:E!4=1:SYS&400d0,,E
109ENDIF
110ELSE:IFX=-2THEN
111a=TRUE:!E=-2:E!4=_:SYS&400c4,,E:X=T
112ELSE:a=FALSE:X=-2:PROCH($R,0):PROCE(T)
113ENDIF
114ENDIF
115ELSE:IFDyTHEN
116V=NOTV
117ENDIF:IFXyTHEN
118K=NOTK
119ENDIF:IFfyTHEN
120q=NOTq
121ENDIF:PROCe
122ENDIF
123ELSE:CASEayOF
124WHEN1:PROCFy
125WHEN4:PROCQy(G,i)
126ENDCASE
127ENDIF
128WHENG:E!0=G:E!4=Z:PROCM(G,Z,1):CASEZOF
129WHEN7:V=TRUE
130WHEN8:V=FALSE
131WHEN9:K=TRUE
132WHEN6:K=FALSE
133WHEN&e:q=TRUE
134WHEN&d:q=FALSE
135ENDCASE:PROCe
136WHENY:E!0=Y:E!4=Z:SYS&400ce,,E:wy=(E!24AND(1<<21))>0:CASEZOF
137WHEN0:f=wy:IFf=FALSETHENPROCWyELSEn=TRUE:PROCO
138WHEN1:x=wy:IFxTHENPROCqELSEPROCr
139WHEN2:s=wy
140WHEN3:OSCLI("Filer_Run <"+"SmartQuotes"+"Setup$Dir>.!Run")
141WHEN4:PROCV
142WHEN5:PROCI
143ENDCASE
144WHENW:CASEZOF
145WHEN&c:PROCPy
146WHEN&d:PROCn
147WHEN&e:PROCF:PROCm:SYS&400d3,,E:IF!E=WTHENPROCX(W,E!4,1)
148ENDCASE
149WHENJ:Jy=FALSE:PROC_(FNS(E!4))
150WHENF:CASEZOF
151WHEN2:PROCE(F)
152WHEN3:IFay=4THENPROCE(F)
153PROCy
154ENDCASE
155ENDCASE:ENDPROC
156DEFPROCAy:PROCA("Options",STR$(H)):ty=FALSE:ENDPROC
157DEFPROCq:SYS&20005,"MoreHelp_"+"AddTask "+CHR$34+"Smart Quotes"+CHR$34+" "+C$+".!IntHelp":SYS&20005,"MoreHelp_"+"AddTask "+CHR$34+"Smart Quotes"+" setup"+CHR$34+" <"+"SmartQuotes"+"Setup$Dir>.!IntHelp":ENDPROC
158DEFPROCr:SYS&20005,"MoreHelp_"+"RemoveTask "+CHR$34+"Smart Quotes"+CHR$34:SYS&20005,"MoreHelp_"+"RemoveTask "+CHR$34+"Smart Quotes"+" setup"+CHR$34:ENDPROC
159DEFPROCp:LOCALe,Gy,Z,Ny,l:Gy=!E:Z=E!4:e=E!24:Ny=TRUE:CASEGyOF
160WHENW:CASEZOF
161WHEN8:l=`
162WHEN9:l=Cy
163WHEN&a:l=Py
164WHEN&b:l=Fy
165ENDCASE:IF$l=""THENe=32
166CASEeOF
167WHEN27:PROCE(W)
168OTHERWISE:IFe>=32ANDe<=&ffTHEN
169$l=CHR$(e):PROCSy:PROCF:PROCU(W,Z):PROCX(W,Z,1)
170ELSE:Ny=FALSE
171ENDIF
172ENDCASE
173WHENF:CASEeOF
174WHEN&d:PROCy:PROCE(F)
175WHEN27:PROCE(F)
176OTHERWISE:Ny=FALSE
177ENDCASE
178ENDCASE:IFNOTNyTHENSYS&400dc,e
179ENDPROC
180DEFPROCX(N,Z,U):SYS&400d2,N,Z,-1,-1,-1,U:ENDPROC
181DEFPROCSy:PROCA("OpenDouble",$`):PROCA("ClosedDouble",$Cy):PROCA("OpenSingle",$Py):PROCA("ClosedSingle",$Fy):PROCF:ENDPROC
182DEFPROCF:LOCALZ:$`=FNE("OpenDouble"):$Cy=FNE("ClosedDouble"):$Py=FNE("OpenSingle"):$Fy=FNE("ClosedSingle"):ENDPROC
183DEFPROCm:FORZ=8TO&b:PROCU(W,Z):NEXT:ENDPROC
184DEFPROCi:`=FNA(W,8):Cy=FNA(W,9):Py=FNA(W,&a):Fy=FNA(W,&b):ENDPROC
185DEFPROCPy:PROCA("OpenDouble",""):PROCA("ClosedDouble",""):PROCA("OpenSingle",""):PROCA("ClosedSingle",""):PROCF:PROCm:ENDPROC
186DEFPROCn:LOCALA:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCS("Couldn�t save "+"Chars file: "+REPORT$+" ("+STR$(ERL)+").",-1,0):ENDPROC
187A=OPENOUT(A$+".Chars"):ONERRORLOCALRESTOREERROR:CLOSE#A:PROCS("Couldn�t save "+"Chars file: "+REPORT$+" ("+STR$(ERL)+").",-1,0):ENDPROC
188PROCQ("OpenDouble",$`):PROCQ("ClosedDouble",$Cy):PROCQ("OpenSingle",$Py):PROCQ("ClosedSingle",$Fy):CLOSE#A:OSCLI("SetType "+A$+".Chars Obey"):ENDPROC
189DEFPROCQ(M$,W$):BPUT#A,"Set "+"SmartQuotes"+"$"+M$+" "+W$:ENDPROC
190DEFPROCGy:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCL("Chars"):PROCF:PROCn:ENDPROC
191OSCLI("Run "+A$+".Chars"):PROCF:ENDPROC
192DEFFNA(N,Z):!E=N:E!4=Z:SYS&400ce,,E:=E!28
193DEFPROCM(N,Z,n_):PROCv(N,Z,1<<21,n_*1<<21):ENDPROC
194DEFPROCU(N,Z):PROCv(N,Z,0,0):ENDPROC
195DEFPROCv(N,Z,t_,d_):!E=N:E!4=Z:E!8=d_:E!&c=t_:SYS&400cd,,E:ENDPROC
196DEFPROCCy:PROCM(G,7,-V):PROCM(G,8,-(NOTV)):PROCM(G,6,-(NOTK)):PROCM(G,9,-K):PROCM(G,&d,-(NOTq)):PROCM(G,&e,-q):ENDPROC
197DEFPROCK:PROCM(Y,0,-f):PROCM(Y,1,-x):PROCM(Y,2,-s):ENDPROC
198DEFPROCA(M$,W$):SYS&20024,"SmartQuotes"+"$"+M$,W$,LEN(W$),0,0:ENDPROC
199DEFPROCI:LOCALA:LOCALERROR:PROCG:ONERRORLOCALRESTOREERROR:PROCS("Couldn�t save "+"Choices"+" file: "+REPORT$+" ("+STR$(ERL)+")",-1,0):ENDPROC
200A=OPENOUT(A$+"."+"Choices"):ONERRORLOCALRESTOREERROR:CLOSE#A:PROCS("Couldn�t save "+"Choices"+" file: "+REPORT$+" ("+STR$(ERL)+")",-1,0):ENDPROC
201PRINT#A,H,f,s,x:PROCP(A,G):PROCP(A,Y):PROCP(A,W):PROCP(A,J):PROCP(A,F):PROCP(A,T):PRINT#A,a:CLOSE#A:ENDPROC
202DEFPROCP(L,N):!E=N:SYS&400cb,,E:PRINT#L,E!4,E!16:ENDPROC
203DEFPROCL(Z$):PROCS("Couldn�t load "+Z$+" file (code "+STR$(ERR)+", "+STR$(ERL)+") - trying to create a default one.",-1,0):ENDPROC
204DEFPROCNy:LOCALA,Y_,I_:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCL("Choices"):PROCV:PROCI:ENDPROC
205A=OPENIN(A$+"."+"Choices"):ONERRORLOCALRESTOREERROR:CLOSE#A:PROCL("Choices"):PROCV:PROCI:ENDPROC
206INPUT#A,H,f,s,x:INPUT#A,X_,D_,E_,T_:INPUT#A,K_,O_,s_,w_,z_,x_,Y_,I_,a:RESTOREERROR:qy=TRUE:dy=TRUE:Qy=TRUE:Ly=TRUE:zy=TRUE:IFxTHENPROCqELSEPROCr
207!S=T:SYS&400cb,,S:S!4=Y_:S!16=I_:S!&c=S!4+80:S!8=S!16-80:PROCA("Options",STR$(H)):PROCK:CLOSE#A:ENDPROC
208DEFPROCe:LOCALW_:W_=-V+(-K*2)+(-q*4):PROCA("Options",STR$(W_)):ENDPROC
209DEFPROCG:SYS35,"SmartQuotes"+"$"+"Options",C,8,0:C?5=&d:H=EVAL("%"+$(C+2)):IFH<>TyTHEN
210V=(C?4=49):K=(C?3=49):q=(C?2=49):PROCCy
211ENDIF:Sy=VAL(FNE("BufferLength")):IFfTHENPROCO
212sy=Sy:Ty=H:IFFNE("NormFont")<>J$ORFNE("HeadFont")<>P$ORVAL(FNE("FontSize"))<>jTHEN
213PROCR:PROCY:IFEyTHENPROCa:PROCh
214ENDIF:IFaTHENSYS&400c5,,S
215ENDPROC
216DEFPROCV:PROCA("Options","7"):H=7:V=TRUE:q=TRUE:K=TRUE:f=TRUE:s=TRUE:x=TRUE:PROCq:n=TRUE:PROCO:PROCK:ENDPROC
217DEFFNE(M$):LOCALH_:SYS&20023,"SmartQuotes"+"$"+M$,E,&ff,0,3TO,,H_:E?H_=&d:=$E
218DEFPROCl:LOCALA:A=E!20:BPUT#A,X$:PROCB("Options"):PROCB("OpenDouble"):PROCB("ClosedDouble"):PROCB("OpenSingle"):PROCB("ClosedSingle"):ENDPROC
219DEFPROCB(M$):BPUT#A,"Set "+"SmartQuotes"+"$"+M$+" "+FNE(M$):ENDPROC
220DEFPROCH(L$,U):LOCAL_y:IFU<>0THEN!E=-3ELSE!E=-7
221E!4=0:E!8=0:E!&c=45*2:E!16=96:E!20=&310a:E!24=R:$R=L$:E!28=E%:E!32=&d:SYS&600c2,U,ETO_;_y:IF(_yAND1)>0THEN
222!E=-7:SYS&400c2,0,b_ _
223ENDIF:ENDPROC
224DEFPROCUy(Z$):LOCALA%,Z%,Ry,B$:SYS&400f2,2TORy:B$="":WHILE?Ry<>0:B$+=CHR$(?Ry):Ry+=1:ENDWHILE:PROCd("Sprites"):A%=OPENIN(Z$+B$):IFA%=0THENA%=OPENIN(Z$)
225Z%=EXT#A%+16:CLOSE#A%:DIME%Z%:!E%=Z%:E%!8=16:SYS46,256+9,E%:SYS46,256+&a,E%,Z$:ONERRORONERROROFF:PROCN:END
226ENDPROC
227DEFPROCO:IFSy=0ANDsy<>0AND(VORK)THENn=TRUE
228IFH=TyANDNOTnTHENENDPROC
229n=FALSE:IFSy=0ANDsy<>0THEN
230$R="dunno":n=TRUE
231ELSE:IFVTHEN$R="dopen"ELSE$R="dneutral"
232ENDIF:PROCj:ENDPROC
233DEFPROCj:!E=X:E!4=_:SYS&400ce,,E:SYS&400d1,X,E!8,E!&c,E!16,E!20:ENDPROC
234DEFPROCWy:$R="!quotes":PROCj:ENDPROC
235DEFPROCk:LOCALv,By,a_:PROCd("Templates"):SYS&400d9,,C$+".Templates":SYS&400ec,-1,-1TOa_,,By:IFBy<>0THEN
236v=HIMEM:IFBy>32*&400THENBy=32*&400
237END=PAGE+a_+By
238ELSE:v=0
239ENDIF:PROCC("Control",E%,G):PROCC("Editdiph",E%,F):PROCC("Expand"+"s",1,J):PROCC("Info",1,Vy):PROCC("Chars",1,W):PROCC("Choices",1,Y):PROCC("IconWindow",E%,T):IFv<>0THENEND=v
240SYS&400da:ONERRORONERROROFF:PROCN:END
241!E=Vy:SYS&400cc,,EOR1:IFE!88>&aTHENPROCS("This is an unregistered copy of "+"Smart Quotes"+". After a fortnight's evaluation period, you must either register or destroy this copy. See �Docs.Register� for more details.",-1,0)
242ENDPROC
243DEFPROCC(S$,`y,RETURNN):LOCALQ,U,py,yy,C,F_:SYS&400db,,-1,,,,S$,0TO,py,yy:IFv=0THEN
244DIMC py
245ELSE:C=v
246ENDIF:DIMF_ yy:SYS&400db,,C,F_,F_+yy,-1,S$,0:C!64=`y:IFS$="Editdiph"THEN
247FORQ=0TO1:U=C+(&68+Q*32):!U=((!UAND((1<<24)-1))OR(1<<6))+(L<<24):NEXT
248ENDIF:IFS$="Chars"THEN
249FORQ=8TO&b:U=C+(&68+Q*32):!U=((!UAND((1<<24)-1))OR(1<<6))+(L<<24):NEXT
250ENDIF:IFS$="IconWindow"THEN
251C!&6c=R:C!&70=`y:C!&74=&d
252ENDIF:SYS&400c1,,vTON:ENDPROC
253DEFPROCx(RETURNc,G$,y_,c_):DIMc 28+y_*24:DIMCLEN (G$)+1:$C=G$:!c=C:c!4=ey:c!8=LEN(G$)+1:c!&c=&70207:c!16=16+c_*16:c!20=44:c!24=0:I=c+28:R_=TRUE:ENDPROC
254DEFPROCZ(F$,r_):LOCALC:!I=0:I!4=r_:I!8=&7000021:IFR_THEN!I=1<<8
255IFLEN(F$)<=&cTHEN
256$(I+&c)=F$
257ELSE:DIMCLEN (F$)+1:$C=F$:I!&c=C:I!16=ey:I!20=LEN(F$)+1:I!8+=2^8
258ENDIF:I+=24:ENDPROC
259DEFPROCb:I!(-24)=1<<7:ENDPROC
260DEFPROCo:LOCALC,I:PROCx(ry,"Smart Quotes",6,&d):PROCZ("Info",Vy):PROCZ("Settings...",-1):PROCZ("Choices"+"...",-1):PROCZ("Characters...",-1):PROCZ("Expand"+"s...",-1):PROCZ("Quit",-1):PROCb:PROCx(u,"Expand",5,&a):PROCZ("Edit...",-1):PROCZ("Add...",-1):PROCZ("Delete",-1):PROCZ("Save",-1)
261PROCZ("Refresh",-1):PROCb:ENDPROC
262DEFFNZ(m):LOCALE$:WHILE?m>=32:E$+=CHR$(?m):m+=1:ENDWHILE:=E$
263DEFPROCZy:LOCALD$,U:D$=FNZ(E+28):IFD$="Smart Quotes"ANDE!4<>kyTHEN
264s=FALSE:PROCW
265ENDIF:ENDPROC
266DEFPROCh:LOCALoy,__,q_,t,Oy,z,D,B,O,M:SYS&400c8,,ETOoy:WHILEoy:SYS&400e6,7:O=(E!16-E!24):__=E!32-O:q_=E!40-O:t=INT(-q_/d-0.5):Oy=INT(-__/d+0.99):IFOy>PTHENOy=P
267IFt>PTHENt=P
268IFt<=0THENt=0
269D=E!4+4-E!20:M=(t-1)*8:FORz=tTOOy:B=O-8-(z+1)*d:IFz=0THEN
270PROCs("Found","Subst",D,B,Wy)
271ELSE:PROCs(FNM(w+M),FNZ(y+M),D,B,L)
272ENDIF:M+=8:NEXT:SYS&400ca,,ETOoy:ENDWHILE:ENDPROC
273DEFPROCs(H$,T$,D,B,Hy):SYS&4008a,Hy:SYS&4074f,Hy,-256,0,&e:SYS&40086,Hy,H$,(1<<4)+(1<<9),D,B:SYS&40086,Hy,T$,(1<<4)+(1<<9),D+S_,B:ENDPROC
274DEFFNM(m):LOCALE$:WHILE?m=0:m+=1:ENDWHILE:=FNZ(m)
275DEFPROCa:LOCALQ,O,My,Yy:PROCD("Found",Wy,My,O):PROCD("Subst",Wy,Yy,O):P=0:M=y:WHILE?M<>0:PROCD(FNZ(M),L,Yy,O):M+=8:P+=1:ENDWHILE:M=w:FORQ=1TOP:PROCD(FNM(M),L,My,O):M+=8:NEXT:PROCw(O):PROCw(My):PROCw(Yy):d=INT(O*1.2):S_=My+64:B_=My+Yy+96:Ey=TRUE:PROCT:ENDPROC
276DEFPROCT:LOCALC_,P_,G_,A_,Ay,Uy:!E=J:SYS&400cb,,E:Ay=E!4:Uy=E!16:IF(E!32AND(1<<18))>0THEN
277C_=TRUE:P_=E!20:G_=E!24:A_=E!28
278ENDIF:E!4=0:E!8=-(P+1)*d-16:E!&c=B_:E!16=0:SYS&400d7,J,E+4:IFC_ANDEyTHEN
279!E=J:E!4+=Ay:E!8=&84:E!&c+=Ay:E!16+=Uy:E!20=P_:E!24=G_:E!28=A_:SYS&400c5,,E:E!4-=Ay:E!8-=Uy:E!&c-=Ay:E!16-=Uy
280ENDIF:SYS&400d1,J,E!4,E!8,E!&c,E!16:ENDPROC
281DEFPROCD(E$,L,RETURND,RETURNB):LOCALQ,hy,by,r:r=E+&80:FORQ=0TO&cSTEP4:r!Q=0:NEXT:r!16=-1:SYS&4008a,L:SYS&400a1,L,E$,(1<<5)+(1<<9)+(1<<18),&c3500,&c3500,r:hy=r!28-r!20:by=r!32-r!24:IFD<hyTHEND=hy
282IFB<byTHENB=by
283ENDPROC
284DEFPROCw(RETURNe_):SYS&40088,,e_,0TO,e_:ENDPROC
285DEFPROCBy:g=FNA(F,0):p=FNA(F,1):ENDPROC
286DEFPROCY:J$=FNE("NormFont"):P$=FNE("HeadFont"):j=VAL(FNE("FontSize")):IFj=0THENj=256
287PROCz(J$,L,"Trinity.Medium"):PROCz(P$,Wy,"Homerton.Bold"):cy=TRUE:ENDPROC
288DEFPROCz(RETURNV$,RETURNL,U$):LOCAL_y:SYS&60081,,V$,j,j,0,0TOL;_y:IF(_yAND1)>0THENPROCz(U$,L,U$)
289ENDPROC
290DEFPROCR:IFNOTcyTHENENDPROC
291SYS&40082,L:SYS&40082,Wy:ENDPROC
292DEFFNS(g_):LOCALQ_:!E=J:SYS&400cb,,E:Q_=g_-(E!16-E!24)+16:=INT(-Q_/d)
293DEFPROC_(z):LOCALM:IF(z<1ORz>P)ANDz<>-1THENENDPROC
294IFz<>-1THEN
295M=(z-1)*8:$g=FNM(w+M):$p=FNZ(y+M)
296ELSE:$g="":$p=""
297ENDIF:PROCU(F,0):PROCU(F,1):PROCJ(F):SYS&400c7,&e3972,E:PROCX(F,0,LEN($g)):o=z:ENDPROC
298DEFPROCy:LOCALM,g_:IFJyTHEN
299OSCLI("AddExpand -f � -r SK1995"):P+=1:o=P:Jy=FALSE:PROCT
300ENDIF:M=(o-1)*8:$(w+M+8-LEN($g))=$g:w?(M+7-LEN($g))=0:w?(M+8)=0:$(y+M)=$p:y?(M+LEN($p))=0:SYS&400d1,J,0,-(o+2)*d,&8000,-o*d:ENDPROC
301DEFPROCDy:LOCALM:IFP=&80THENENDPROC
302Jy=TRUE:PROC_(-1):ENDPROC
303DEFPROCXy(J_):LOCALQ,A,Z$:Z$="Pipe:$.Expands":A=OPENOUT(Z$):SYS&406c0:FORQ=1TOP:IFQ<>J_THENBPUT#A,FNF(Q)
304SYS&406c4,Q/P*&64:NEXT:CLOSE#A:*ClearExpands
305OSCLI("Obey "+Z$):SYS&406c1:P-=1:PROCT:ENDPROC
306DEFPROCEy:LOCALA,Q:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCS("Couldn�t save "+"Expand"+"s file: "+REPORT$+" ("+STR$(ERL)+").",-1,0):ENDPROC
307A=OPENOUT(A$+"."+"Expand"+"s"):ONERRORLOCALRESTOREERROR:CLOSE#A:PROCS("Couldn�t save "+"Expand"+"s file: "+REPORT$+" ("+STR$(ERL)+").",-1,0):ENDPROC
308BPUT#A,"Clear"+"Expand"+"s":FORQ=1TOP:BPUT#A,FNF(Q):NEXT:CLOSE#A:OSCLI("SetType "+A$+"."+"Expand"+"s Obey"):ENDPROC
309DEFFNF(J_):LOCALM:M=(J_-1)*8:="Add"+"Expand"+" -f """+FNC(FNM(w+M))+""" -r """+FNC(FNZ(y+M))+""""
310DEFFNC(E$):=FNJ(FNJ(E$,"%"),"""")
311DEFFNJ(E$,N$):LOCALU:U=INSTR(E$,N$):WHILEU>0:E$=LEFT$(E$,U)+N$+MID$(E$,U+1):U=INSTR(E$,N$,U+2):ENDWHILE:=E$
312DEFPROCJy:SYS&20005,"Run "+A$+"."+"Expand"+"s":ENDPROC
313DEFPROCc:!E=X:SYS&400cb,,E:E!36=X:E!40=_:SYS&400ce,,E+36:E!44+=E!4-E!20:E!48+=E!16-E!24:E!52+=E!4-E!20:E!56+=E!16-E!24:SYS&42400,&80,E%,$R,E+44:ENDPROC
314DEFPROC`:LOCALxy,iy,Z:LOCALV_,Ky,ny,jy,uy:SYS&400cf,,E:xy=!E:iy=E!4:IFX=-2THEN
315!E=-2:E!4=_:SYS&400c4,,E
316ENDIF:IFE!&c<>-2THEN
317!S=T:SYS&400cb,,S:S!4=xy-40:S!8=iy-40:S!&c=xy+40:S!16=iy+40:S!28=-1:SYS&400c5,,S:X=T:a=TRUE:_=0
318ELSE:Z=E!16:IFZ=_THENZ=-1
319IFZ<0THEN
320ny=0:jy=&8000:!E=-2:SYS&400cc,,EOR1:uy=xy-E!4+E!20:V_=E!88:FORKy=0TOV_-1:IFKy<>_THEN
321E!4=Ky:SYS&400ce,,E:IFABS(E!8-uy)<jyTHEN
322jy=ABS(E!8-uy):ny=Ky
323ENDIF
324ENDIF:NEXT:Z=ny:IFZ<0THENZ=0
325ENDIF:PROCH($R,Z):X=-2
326ENDIF:ENDPROC
�>!RunImage
0�Produced by BasCompress v1.60 (03 Feb 1995)
��E$(4),A$(4):C$="<"+"SmartQuotes"+"$Dir>":A$="<"+"SmartQuotes"+"$"+"Choices"+"Dir>":Q$=" This is a fatal error, "+"Smart Quotes"+" will quit immediately.":cy=�:s=�:ky=0:�:�("RmKill "+"SmartQuotes"):���,�$+" at line "+�(�):�
��E 256,h 24,C 8,ey 4,R &d,S 32:$ey="":X$="Run "+�E("Dir"):�g:o=0:!h=&a:h!4=&400c2:h!8=&502:h!&c=&400c1:h!16=9:h!20=0:ș&400c0,310,&4b534154,"Smart Quotes",h�,ky:�:�N:�
�n=�:ty=�:Ty=42:i=�:Ey=�:v_=�:H=7:ly=7:Sy=0:sy=42:V=�:q=�:K=�:f=�:x=�:qy=�:dy=�:Ly=�:zy=�:Qy=�:�Uy(C$+".Sprites"):�Y:�k:ș&400c7,&e3972,E:X=-2:a=�:�o:�Ny:�a�
�H("!quotes",0)
�:ș&400c5,,S:_=0:X=T
"�:�G:�K:�i:�Gy:�By:�Jy:�u:�W:�
=��g:ș&2001e,18,"SmartQuotes"�,,,,L_:w=L_+256:y=w+&80*8:�
:��u:�M_,Z_,Q:�:ș66�Z_:ș&400e1,&3830,E,Z_+30�M_:ȎM_�
�0:�ty��Ay��G
�1:�h
�2:�!E=T�
E!28=-1:�E!8>=&84�
#ș&400c5,,E:�Q=0�28�4:S!Q=E!Q:�
�:�E(T):a=�:�c
�
�:ș&400c5,,E:�!E=G�i=�
�!E=J�Ey=�
�
�3:ș&400cf,,E+&80:�E!&88=1�
�-1�
/�("*WimpTask <"+"SmartQuotes"+"$RunChars>")
�:�("Filer_OpenDir "+A$)
�
�:ș&400c6,,E:�!E=J��E(F)
�!E=G�i=�
�-2�
%�E(W):�E(Y):�E(J):�E(F):�E(G):i=�
�
�
�6:�E!8<>2�
!�My
" �:Iy=E!4:�E!&c=-2�B=360�B=Iy
#!N_=!E-64:U_=B:�E!&c=J�E!&c=F�
$)Zy=u:�P=0�u!84=&7400021�u!84=&7000021
%&�P=&80�u!60=&7400021�u!60=&7000021
& �:Zy=ry
'�:ș&400d4,,Zy,!E-64,B
(�
) �7:�`
* �8:�p
+ �9:ș&400cf,,E+&80:ȎZy�
,
�ry:Ȏ!E�
- �0:ș&400d4,,Vy,E!&80,E!&84
.�1:�J(G):i=�
/ �2:�J(Y)
0�3:�F:�J(W):�X(W,8,1)
1�4:�a:�J(J)
2 �5:�W
3�
4 �u:Ȏ!E�
5�0:Jy=�:�_(�S(Iy))
6
�1:�Dy
7�2:�Xy(�S(Iy)):�E(F):�t
8
�3:�Ey
9�4:�g:�a:�J(J):�t
:�
;+�:M%=E!&88:�(M%�1)=1�ș&400d4,,Zy,N_,U_
<�17,18:ȎE!16�
= �0:�W
>
�&a:�l
?�&400c2:�Zy
@�&400c1,9:�R:�Y
A�
B
�:��:�
C7��t:!E=J:ș&400cb,,E:ș&400d1,J,E!4,E!8,E!&c,E!16:�
D5��J(N):�b,D,B,gy,vy:!E=N:ș&400cb,,E:b=�:�qy�N=Y�
ED=E_:B=T_:b=�:qy=�
F�:�dy�N=G�
GD=X_:B=D_:b=�:dy=�
H�:�Qy�N=W�
ID=K_:B=O_:b=�:Qy=�
J�:�Ly�N=J�
KD=s_:B=w_:b=�:Ly=�
L�:�zy�N=F�
MD=z_:B=x_:b=�:zy=�
N �:�b�
O8gy=D-E!4:vy=B-E!16:E!4+=gy:E!8+=vy:E!&c+=gy:E!16+=vy
P�:E!28=-1:ș&400c5,,E:�
Q ��E(N):!E=N:ș&400c6,,E:�
R!��W:�R:�s�*RMKill SmartQuotes
S�:�
TE��N:�k:�:�("RmKill "+"SmartQuotes"):���,�$+" at line "+�(�):�
U]!E=�:$(E+4)="Internal error code "+�(�)+": "+�$+�0:ș&400df,E,3,"Smart Quotes"�,k:�k=2��f
V�:�N:�
W�u:�
X���f:�k:!E=0:$(E+4)="Are you sure you want to quit the program? Click OK to quit, Cancel to return to the program.":ș&400df,E,23,"Smart Quotes"�,k:�k=1��W
Y�
ZR��S(I$,f_,h_):!E=0:$(E+4)=I$:ș&400df,E,3+f_*2-h_*16,"Smart Quotes"�,k:�k=2��f
[�
\K��d(Z$):�:�S("Couldn't load "+Z$+" ("+�$+", "+�(�)+")."+Q$,-1,0):�W
]�
^��Qy(N,�my):�my�
_ �E(N)
` �:�J(N)
a�:my=�my:�
b��Fy:�H>0�
cly=H:�A("Options","0")
d�:�A("Options",�(ly))
e
�:�G:�
f?��My:�Z,wy,Gy,ay,M$,g_,Dy,Xy,fy:Z=E!16:Gy=E!&c:ay=E!8:ȎGy�
g)�X:Dy=�-1:Xy=�-2:fy=�-3:�Dy+Xy+fy<>0�
h �Dy�Xy�
i
�ay=4�
j
�X=-2�
k�c
l0�:!E=T:E!4=T:ș&400cb,,E+4:E!4=1:ș&400d0,,E
m�
n �:�X=-2�
o#a=�:!E=-2:E!4=_:ș&400c4,,E:X=T
p �:a=�:X=-2:�H($R,0):�E(T)
q�
r�
s
�:�Dy�
tV=�V
u
�:�Xy�
vK=�K
w
�:�fy�
xq=�q
y�:�e
z�
{ �:Ȏay�
|
�1:�Fy
}�4:�Qy(G,i)
~�
�
�!�G:E!0=G:E!4=Z:�M(G,Z,1):ȎZ�
�
�7:V=�
�
�8:V=�
�
�9:K=�
�
�6:K=�
� �&e:q=�
� �&d:q=�
��:�e
�7�Y:E!0=Y:E!4=Z:ș&400ce,,E:wy=(E!24�(1<<21))>0:ȎZ�
��0:f=wy:�f=���Wy�n=�:�O
��1:x=wy:�x��q��r
� �2:s=wy
�7�3:�("Filer_Run <"+"SmartQuotes"+"Setup$Dir>.!Run")
� �4:�V
� �5:�I
��
� �W:ȎZ�
� �&c:�Py
�
�&d:�n
�+�&e:�F:�m:ș&400d3,,E:�!E=W��X(W,E!4,1)
��
��J:Jy=�:�_(�S(E!4))
� �F:ȎZ�
� �2:�E(F)
��3:�ay=4��E(F)
��y
��
��:�
�"��Ay:�A("Options",�(H)):ty=�:�
����q:ș&20005,"MoreHelp_"+"AddTask "+�34+"Smart Quotes"+�34+" "+C$+".!IntHelp":ș&20005,"MoreHelp_"+"AddTask "+�34+"Smart Quotes"+" setup"+�34+" <"+"SmartQuotes"+"Setup$Dir>.!IntHelp":�
����r:ș&20005,"MoreHelp_"+"RemoveTask "+�34+"Smart Quotes"+�34:ș&20005,"MoreHelp_"+"RemoveTask "+�34+"Smart Quotes"+" setup"+�34:�
�2��p:�e,Gy,Z,Ny,l:Gy=!E:Z=E!4:e=E!24:Ny=�:ȎGy�
� �W:ȎZ�
�
�8:l=`
� �9:l=Cy
� �&a:l=Py
� �&b:l=Fy
��:�$l=""�e=32
�Ȏe�
�
�27:�E(W)
�:�e>=32�e<=&ff�
�$$l=�(e):�Sy:�F:�U(W,Z):�X(W,Z,1)
�
�:Ny=�
��
��
� �F:Ȏe�
��&d:�y:�E(F)
�
�27:�E(F)
�
:Ny=�
��
��:�Ny�ș&400dc,e
��
�(��X(N,Z,U):ș&400d2,N,Z,-1,-1,-1,U:�
�d��Sy:�A("OpenDouble",$`):�A("ClosedDouble",$Cy):�A("OpenSingle",$Py):�A("ClosedSingle",$Fy):�F:�
�c��F:�Z:$`=�E("OpenDouble"):$Cy=�E("ClosedDouble"):$Py=�E("OpenSingle"):$Fy=�E("ClosedSingle"):�
���m:�Z=8�&b:�U(W,Z):�:�
�6��i:`=�A(W,8):Cy=�A(W,9):Py=�A(W,&a):Fy=�A(W,&b):�
�d��Py:�A("OpenDouble",""):�A("ClosedDouble",""):�A("OpenSingle",""):�A("ClosedSingle",""):�F:�m:�
�P��n:�A:�:��:�S("Couldn�t save "+"Chars file: "+�$+" ("+�(�)+").",-1,0):�
�[A=�(A$+".Chars"):��:�#A:�S("Couldn�t save "+"Chars file: "+�$+" ("+�(�)+").",-1,0):�
��Q("OpenDouble",$`):�Q("ClosedDouble",$Cy):�Q("OpenSingle",$Py):�Q("ClosedSingle",$Fy):�#A:�("SetType "+A$+".Chars Obey"):�
�7��Q(M$,W$):�#A,"Set "+"SmartQuotes"+"$"+M$+" "+W$:�
�%��Gy:�:��:�L("Chars"):�F:�n:�
� �("Run "+A$+".Chars"):�F:�
�)ݤA(N,Z):!E=N:E!4=Z:ș&400ce,,E:=E!28
�(��M(N,Z,n_):�v(N,Z,1<<21,n_*1<<21):�
���U(N,Z):�v(N,Z,0,0):�
�:��v(N,Z,t_,d_):!E=N:E!4=Z:E!8=d_:E!&c=t_:ș&400cd,,E:�
�W��Cy:�M(G,7,-V):�M(G,8,-(�V)):�M(G,6,-(�K)):�M(G,9,-K):�M(G,&d,-(�q)):�M(G,&e,-q):�
�*��K:�M(Y,0,-f):�M(Y,1,-x):�M(Y,2,-s):�
�;��A(M$,W$):ș&20024,"SmartQuotes"+"$"+M$,W$,�(W$),0,0:�
�W��I:�A:�:�G:��:�S("Couldn�t save "+"Choices"+" file: "+�$+" ("+�(�)+")",-1,0):�
�dA=�(A$+"."+"Choices"):��:�#A:�S("Couldn�t save "+"Choices"+" file: "+�$+" ("+�(�)+")",-1,0):�
�K�#A,H,f,s,x:�P(A,G):�P(A,Y):�P(A,W):�P(A,J):�P(A,F):�P(A,T):�#A,a:�#A:�
�,��P(L,N):!E=N:ș&400cb,,E:�#L,E!4,E!16:�
�n��L(Z$):�S("Couldn�t load "+Z$+" file (code "+�(�)+", "+�(�)+") - trying to create a default one.",-1,0):�
�0��Ny:�A,Y_,I_:�:��:�L("Choices"):�V:�I:�
�9A=�(A$+"."+"Choices"):��:�#A:�L("Choices"):�V:�I:�
�b�#A,H,f,s,x:�#A,X_,D_,E_,T_:�#A,K_,O_,s_,w_,z_,x_,Y_,I_,a:��:qy=�:dy=�:Qy=�:Ly=�:zy=�:�x��q��r
�W!S=T:ș&400cb,,S:S!4=Y_:S!16=I_:S!&c=S!4+80:S!8=S!16-80:�A("Options",�(H)):�K:�#A:�
�5��e:�W_:W_=-V+(-K*2)+(-q*4):�A("Options",�(W_)):�
�M��G:ș35,"SmartQuotes"+"$"+"Options",C,8,0:C?5=&d:H=�("%"+$(C+2)):�H<>Ty�
�(V=(C?4=49):K=(C?3=49):q=(C?2=49):�Cy
�$�:Sy=�(�E("BufferLength")):�f��O
�Ksy=Sy:Ty=H:�E("NormFont")<>J$��E("HeadFont")<>P$��(�E("FontSize"))<>j�
��R:�Y:�Ey��a:�h
��:�a�ș&400c5,,S
��
�D��V:�A("Options","7"):H=7:V=�:q=�:K=�:f=�:s=�:x=�:�q:n=�:�O:�K:�
�HݤE(M$):�H_:ș&20023,"SmartQuotes"+"$"+M$,E,&ff,0,3�,,H_:E?H_=&d:=$E
�p��l:�A:A=E!20:�#A,X$:�B("Options"):�B("OpenDouble"):�B("ClosedDouble"):�B("OpenSingle"):�B("ClosedSingle"):�
�8��B(M$):�#A,"Set "+"SmartQuotes"+"$"+M$+" "+�E(M$):�
�#��H(L$,U):�_y:�U<>0�!E=-3�!E=-7
�fE!4=0:E!8=0:E!&c=45*2:E!16=96:E!20=&310a:E!24=R:$R=L$:E!28=E%:E!32=&d:ș&600c2,U,E�_;_y:�(_y�1)>0�
�!E=-7:ș&400c2,0,b_ _
��:�
�r��Uy(Z$):�A%,Z%,Ry,B$:ș&400f2,2�Ry:B$="":ȕ?Ry<>0:B$+=�(?Ry):Ry+=1:�:�d("Sprites"):A%=�(Z$+B$):�A%=0�A%=�(Z$)
�SZ%=�#A%+16:�#A%:�E%Z%:!E%=Z%:E%!8=16:ș46,256+9,E%:ș46,256+&a,E%,Z$:�:�N:�
��
� ��O:�Sy=0�sy<>0�(V�K)�n=�
��H=Ty��n��
�n=�:�Sy=0�sy<>0�
�$R="dunno":n=�
�!�:�V�$R="dopen"�$R="dneutral"
�
�:�j:�
�>��j:!E=X:E!4=_:ș&400ce,,E:ș&400d1,X,E!8,E!&c,E!16,E!20:�
���Wy:$R="!quotes":�j:�
�X��k:�v,By,a_:�d("Templates"):ș&400d9,,C$+".Templates":ș&400ec,-1,-1�a_,,By:�By<>0�
� v=�:�By>32*&400�By=32*&400
�
�=�+a_+By
� �:v=0
��:�C("Control",E%,G):�C("Editdiph",E%,F):�C("Expand"+"s",1,J):�C("Info",1,Vy):�C("Chars",1,W):�C("Choices",1,Y):�C("IconWindow",E%,T):�v<>0��=v
�ș&400da:�:�N:�
��!E=Vy:ș&400cc,,E�1:�E!88>&a��S("This is an unregistered copy of "+"Smart Quotes"+". After a fortnight's evaluation period, you must either register or destroy this copy. See �Docs.Register� for more details.",-1,0)
��
�C��C(S$,`y,�N):�Q,U,py,yy,C,F_:ș&400db,,-1,,,,S$,0�,py,yy:�v=0�
� �C py
� �:C=v
�A�:�F_ yy:ș&400db,,C,F_,F_+yy,-1,S$,0:C!64=`y:�S$="Editdiph"�
�@�Q=0�1:U=C+(&68+Q*32):!U=((!U�((1<<24)-1))�(1<<6))+(L<<24):�
��:�S$="Chars"�
�A�Q=8�&b:U=C+(&68+Q*32):!U=((!U�((1<<24)-1))�(1<<6))+(L<<24):�
��:�S$="IconWindow"�
� C!&6c=R:C!&70=`y:C!&74=&d
��:ș&400c1,,v�N:�
����x(�c,G$,y_,c_):�c 28+y_*24:�C� (G$)+1:$C=G$:!c=C:c!4=ey:c!8=�(G$)+1:c!&c=&70207:c!16=16+c_*16:c!20=44:c!24=0:I=c+28:R_=�:�
�6��Z(F$,r_):�C:!I=0:I!4=r_:I!8=&7000021:�R_�!I=1<<8
��(F$)<=&c�
$(I+&c)=F$
;�:�C� (F$)+1:$C=F$:I!&c=C:I!16=ey:I!20=�(F$)+1:I!8+=2^8
�:I+=24:�
��b:I!(-24)=1<<7:�
���o:�C,I:�x(ry,"Smart Quotes",6,&d):�Z("Info",Vy):�Z("Settings...",-1):�Z("Choices"+"...",-1):�Z("Characters...",-1):�Z("Expand"+"s...",-1):�Z("Quit",-1):�b:�x(u,"Expand",5,&a):�Z("Edit...",-1):�Z("Add...",-1):�Z("Delete",-1):�Z("Save",-1)
�Z("Refresh",-1):�b:�
,ݤZ(m):�E$:ȕ?m>=32:E$+=�(?m):m+=1:�:=E$
6��Zy:�D$,U:D$=�Z(E+28):�D$="Smart Quotes"�E!4<>ky�
s=�:�W
�:�
���h:�oy,__,q_,t,Oy,z,D,B,O,M:ș&400c8,,E�oy:ȕoy:ș&400e6,7:O=(E!16-E!24):__=E!32-O:q_=E!40-O:t=�(-q_/d-0.5):Oy=�(-__/d+0.99):�Oy>P�Oy=P
�t>P�t=P
�t<=0�t=0
6D=E!4+4-E!20:M=(t-1)*8:�z=t�Oy:B=O-8-(z+1)*d:�z=0�
�s("Found","Subst",D,B,Wy)
�:�s(�M(w+M),�Z(y+M),D,B,L)
�:M+=8:�:ș&400ca,,E�oy:�:�
~��s(H$,T$,D,B,Hy):ș&4008a,Hy:ș&4074f,Hy,-256,0,&e:ș&40086,Hy,H$,(1<<4)+(1<<9),D,B:ș&40086,Hy,T$,(1<<4)+(1<<9),D+S_,B:�
#ݤM(m):�E$:ȕ?m=0:m+=1:�:=�Z(m)
���a:�Q,O,My,Yy:�D("Found",Wy,My,O):�D("Subst",Wy,Yy,O):P=0:M=y:ȕ?M<>0:�D(�Z(M),L,Yy,O):M+=8:P+=1:�:M=w:�Q=1�P:�D(�M(M),L,My,O):M+=8:�:�w(O):�w(My):�w(Yy):d=�(O*1.2):S_=My+64:B_=My+Yy+96:Ey=�:�T:�
M��T:�C_,P_,G_,A_,Ay,Uy:!E=J:ș&400cb,,E:Ay=E!4:Uy=E!16:�(E!32�(1<<18))>0�
C_=�:P_=E!20:G_=E!24:A_=E!28
A�:E!4=0:E!8=-(P+1)*d-16:E!&c=B_:E!16=0:ș&400d7,J,E+4:�C_�Ey�
p!E=J:E!4+=Ay:E!8=&84:E!&c+=Ay:E!16+=Uy:E!20=P_:E!24=G_:E!28=A_:ș&400c5,,E:E!4-=Ay:E!8-=Uy:E!&c-=Ay:E!16-=Uy
$�:ș&400d1,J,E!4,E!8,E!&c,E!16:�
���D(E$,L,�D,�B):�Q,hy,by,r:r=E+&80:�Q=0�&c�4:r!Q=0:�:r!16=-1:ș&4008a,L:ș&400a1,L,E$,(1<<5)+(1<<9)+(1<<18),&c3500,&c3500,r:hy=r!28-r!20:by=r!32-r!24:�D<hy�D=hy
�B<by�B=by
�
!��w(�e_):ș&40088,,e_,0�,e_:�
��By:g=�A(F,0):p=�A(F,1):�
J��Y:J$=�E("NormFont"):P$=�E("HeadFont"):j=�(�E("FontSize")):�j=0�j=256
>�z(J$,L,"Trinity.Medium"):�z(P$,Wy,"Homerton.Bold"):cy=�:�
F��z(�V$,�L,U$):�_y:ș&60081,,V$,j,j,0,0�L;_y:�(_y�1)>0��z(U$,L,U$)
!�
"��R:�cy��
# ș&40082,L:ș&40082,Wy:�
$?ݤS(g_):�Q_:!E=J:ș&400cb,,E:Q_=g_-(E!16-E!24)+16:=�(-Q_/d)
% ��_(z):�M:�(z<1�z>P)�z<>-1��
& �z<>-1�
'#M=(z-1)*8:$g=�M(w+M):$p=�Z(y+M)
(�:$g="":$p=""
)A�:�U(F,0):�U(F,1):�J(F):ș&400c7,&e3972,E:�X(F,0,�($g)):o=z:�
*��y:�M,g_:�Jy�
+2�("AddExpand -f � -r SK1995"):P+=1:o=P:Jy=�:�T
,v�:M=(o-1)*8:$(w+M+8-�($g))=$g:w?(M+7-�($g))=0:w?(M+8)=0:$(y+M)=$p:y?(M+�($p))=0:ș&400d1,J,0,-(o+2)*d,&8000,-o*d:�
-��Dy:�M:�P=&80��
.Jy=�:�_(-1):�
/Q��Xy(J_):�Q,A,Z$:Z$="Pipe:$.Expands":A=�(Z$):ș&406c0:�Q=1�P:�Q<>J_��#A,�F(Q)
0(ș&406c4,Q/P*&64:�:�#A:*ClearExpands
1$�("Obey "+Z$):ș&406c1:P-=1:�T:�
2X��Ey:�A,Q:�:��:�S("Couldn�t save "+"Expand"+"s file: "+�$+" ("+�(�)+").",-1,0):�
3hA=�(A$+"."+"Expand"+"s"):��:�#A:�S("Couldn�t save "+"Expand"+"s file: "+�$+" ("+�(�)+").",-1,0):�
4\�#A,"Clear"+"Expand"+"s":�Q=1�P:�#A,�F(Q):�:�#A:�("SetType "+A$+"."+"Expand"+"s Obey"):�
5ZݤF(J_):�M:M=(J_-1)*8:="Add"+"Expand"+" -f """+�C(�M(w+M))+""" -r """+�C(�Z(y+M))+""""
6 ݤC(E$):=�J(�J(E$,"%"),"""")
7KݤJ(E$,N$):�U:U=�E$,N$):ȕU>0:E$=�E$,U)+N$+�E$,U+1):U=�E$,N$,U+2):�:=E$
8.��Jy:ș&20005,"Run "+A$+"."+"Expand"+"s":�
9���c:!E=X:ș&400cb,,E:E!36=X:E!40=_:ș&400ce,,E+36:E!44+=E!4-E!20:E!48+=E!16-E!24:E!52+=E!4-E!20:E!56+=E!16-E!24:ș&42400,&80,E%,$R,E+44:�
:@��`:�xy,iy,Z:�V_,Ky,ny,jy,uy:ș&400cf,,E:xy=!E:iy=E!4:�X=-2�
;!E=-2:E!4=_:ș&400c4,,E
<�:�E!&c<>-2�
=^!S=T:ș&400cb,,S:S!4=xy-40:S!8=iy-40:S!&c=xy+40:S!16=iy+40:S!28=-1:ș&400c5,,S:X=T:a=�:_=0
>�:Z=E!16:�Z=_�Z=-1
? �Z<0�
@Ony=0:jy=&8000:!E=-2:ș&400cc,,E�1:uy=xy-E!4+E!20:V_=E!88:�Ky=0�V_-1:�Ky<>_�
A%E!4=Ky:ș&400ce,,E:�(E!8-uy)<jy�
Bjy=�(E!8-uy):ny=Ky
C�
D�:�:Z=ny:�Z<0�Z=0
E�:�H($R,Z):X=-2
F�:�
� 00000000 0d 00 01 0f f4 3e 21 52 75 6e 49 6d 61 67 65 0d |.....>!RunImage.|
00000010 00 02 30 f4 50 72 6f 64 75 63 65 64 20 62 79 20 |..0.Produced by |
00000020 42 61 73 43 6f 6d 70 72 65 73 73 20 76 31 2e 36 |BasCompress v1.6|
00000030 30 20 28 30 33 20 46 65 62 20 31 39 39 35 29 0d |0 (03 Feb 1995).|
00000040 00 03 e7 de 45 24 28 34 29 2c 41 24 28 34 29 3a |....E$(4),A$(4):|
00000050 43 24 3d 22 3c 22 2b 22 53 6d 61 72 74 51 75 6f |C$="<"+"SmartQuo|
00000060 74 65 73 22 2b 22 24 44 69 72 3e 22 3a 41 24 3d |tes"+"$Dir>":A$=|
00000070 22 3c 22 2b 22 53 6d 61 72 74 51 75 6f 74 65 73 |"<"+"SmartQuotes|
00000080 22 2b 22 24 22 2b 22 43 68 6f 69 63 65 73 22 2b |"+"$"+"Choices"+|
00000090 22 44 69 72 3e 22 3a 51 24 3d 22 20 54 68 69 73 |"Dir>":Q$=" This|
000000a0 20 69 73 20 61 20 66 61 74 61 6c 20 65 72 72 6f | is a fatal erro|
000000b0 72 2c 20 22 2b 22 53 6d 61 72 74 20 51 75 6f 74 |r, "+"Smart Quot|
000000c0 65 73 22 2b 22 20 77 69 6c 6c 20 71 75 69 74 20 |es"+" will quit |
000000d0 69 6d 6d 65 64 69 61 74 65 6c 79 2e 22 3a 63 79 |immediately.":cy|
000000e0 3d a3 3a 73 3d b9 3a 6b 79 3d 30 3a ee 85 ee 85 |=.:s=.:ky=0:....|
000000f0 87 3a ff 28 22 52 6d 4b 69 6c 6c 20 22 2b 22 53 |.:.("RmKill "+"S|
00000100 6d 61 72 74 51 75 6f 74 65 73 22 29 3a 85 a2 9f |martQuotes"):...|
00000110 2c f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b |,.$+" at line "+|
00000120 c3 28 9e 29 3a e0 0d 00 04 af de 45 20 32 35 36 |.(.):......E 256|
00000130 2c 68 20 32 34 2c 43 20 38 2c 65 79 20 34 2c 52 |,h 24,C 8,ey 4,R|
00000140 20 26 64 2c 53 20 33 32 3a 24 65 79 3d 22 22 3a | &d,S 32:$ey="":|
00000150 58 24 3d 22 52 75 6e 20 22 2b a4 45 28 22 44 69 |X$="Run "+.E("Di|
00000160 72 22 29 3a f2 67 3a 6f 3d 30 3a 21 68 3d 26 61 |r"):.g:o=0:!h=&a|
00000170 3a 68 21 34 3d 26 34 30 30 63 32 3a 68 21 38 3d |:h!4=&400c2:h!8=|
00000180 26 35 30 32 3a 68 21 26 63 3d 26 34 30 30 63 31 |&502:h!&c=&400c1|
00000190 3a 68 21 31 36 3d 39 3a 68 21 32 30 3d 30 3a c8 |:h!16=9:h!20=0:.|
000001a0 99 26 34 30 30 63 30 2c 33 31 30 2c 26 34 62 35 |.&400c0,310,&4b5|
000001b0 33 34 31 35 34 2c 22 53 6d 61 72 74 20 51 75 6f |34154,"Smart Quo|
000001c0 74 65 73 22 2c 68 b8 2c 6b 79 3a ee 85 ee 85 87 |tes",h.,ky:.....|
000001d0 3a f2 4e 3a e0 0d 00 05 a1 6e 3d b9 3a 74 79 3d |:.N:.....n=.:ty=|
000001e0 a3 3a 54 79 3d 34 32 3a 69 3d a3 3a 45 79 3d a3 |.:Ty=42:i=.:Ey=.|
000001f0 3a 76 5f 3d a3 3a 48 3d 37 3a 6c 79 3d 37 3a 53 |:v_=.:H=7:ly=7:S|
00000200 79 3d 30 3a 73 79 3d 34 32 3a 56 3d b9 3a 71 3d |y=0:sy=42:V=.:q=|
00000210 b9 3a 4b 3d b9 3a 66 3d b9 3a 78 3d a3 3a 71 79 |.:K=.:f=.:x=.:qy|
00000220 3d a3 3a 64 79 3d a3 3a 4c 79 3d a3 3a 7a 79 3d |=.:dy=.:Ly=.:zy=|
00000230 a3 3a 51 79 3d a3 3a f2 55 79 28 43 24 2b 22 2e |.:Qy=.:.Uy(C$+".|
00000240 53 70 72 69 74 65 73 22 29 3a f2 59 3a f2 6b 3a |Sprites"):.Y:.k:|
00000250 c8 99 26 34 30 30 63 37 2c 26 65 33 39 37 32 2c |..&400c7,&e3972,|
00000260 45 3a 58 3d 2d 32 3a 61 3d a3 3a f2 6f 3a f2 4e |E:X=-2:a=.:.o:.N|
00000270 79 3a e7 ac 61 8c 0d 00 06 13 f2 48 28 22 21 71 |y:..a......H("!q|
00000280 75 6f 74 65 73 22 2c 30 29 0d 00 07 19 cc 3a c8 |uotes",0).....:.|
00000290 99 26 34 30 30 63 35 2c 2c 53 3a 5f 3d 30 3a 58 |.&400c5,,S:_=0:X|
000002a0 3d 54 0d 00 08 22 cd 3a f2 47 3a f2 4b 3a f2 69 |=T...".:.G:.K:.i|
000002b0 3a f2 47 79 3a f2 42 79 3a f2 4a 79 3a f2 75 3a |:.Gy:.By:.Jy:.u:|
000002c0 f2 57 3a e0 0d 00 09 3d dd f2 67 3a c8 99 26 32 |.W:....=..g:..&2|
000002d0 30 30 31 65 2c 31 38 2c 22 53 6d 61 72 74 51 75 |001e,18,"SmartQu|
000002e0 6f 74 65 73 22 b8 2c 2c 2c 2c 4c 5f 3a 77 3d 4c |otes".,,,,L_:w=L|
000002f0 5f 2b 32 35 36 3a 79 3d 77 2b 26 38 30 2a 38 3a |_+256:y=w+&80*8:|
00000300 e1 0d 00 0a 3a dd f2 75 3a ea 4d 5f 2c 5a 5f 2c |....:..u:.M_,Z_,|
00000310 51 3a f5 3a c8 99 36 36 b8 5a 5f 3a c8 99 26 34 |Q:.:..66.Z_:..&4|
00000320 30 30 65 31 2c 26 33 38 33 30 2c 45 2c 5a 5f 2b |00e1,&3830,E,Z_+|
00000330 33 30 b8 4d 5f 3a c8 8e 4d 5f ca 0d 00 0b 11 c9 |30.M_:..M_......|
00000340 30 3a e7 74 79 8c f2 41 79 8b f2 47 0d 00 0c 09 |0:.ty..Ay..G....|
00000350 c9 31 3a f2 68 0d 00 0d 0d c9 32 3a e7 21 45 3d |.1:.h.....2:.!E=|
00000360 54 8c 0d 00 0e 16 45 21 32 38 3d 2d 31 3a e7 45 |T.....E!28=-1:.E|
00000370 21 38 3e 3d 26 38 34 8c 0d 00 0f 23 c8 99 26 34 |!8>=&84....#..&4|
00000380 30 30 63 35 2c 2c 45 3a e3 51 3d 30 b8 32 38 88 |00c5,,E:.Q=0.28.|
00000390 34 3a 53 21 51 3d 45 21 51 3a ed 0d 00 10 12 cc |4:S!Q=E!Q:......|
000003a0 3a f2 45 28 54 29 3a 61 3d a3 3a f2 63 0d 00 11 |:.E(T):a=.:.c...|
000003b0 05 cd 0d 00 12 1b cc 3a c8 99 26 34 30 30 63 35 |.......:..&400c5|
000003c0 2c 2c 45 3a e7 21 45 3d 47 8c 69 3d b9 0d 00 13 |,,E:.!E=G.i=....|
000003d0 0e e7 21 45 3d 4a 8c 45 79 3d b9 0d 00 14 05 cd |..!E=J.Ey=......|
000003e0 0d 00 15 20 c9 33 3a c8 99 26 34 30 30 63 66 2c |... .3:..&400cf,|
000003f0 2c 45 2b 26 38 30 3a e7 45 21 26 38 38 3d 31 8c |,E+&80:.E!&88=1.|
00000400 0d 00 16 09 e7 a6 2d 31 8c 0d 00 17 2f ff 28 22 |......-1..../.("|
00000410 2a 57 69 6d 70 54 61 73 6b 20 3c 22 2b 22 53 6d |*WimpTask <"+"Sm|
00000420 61 72 74 51 75 6f 74 65 73 22 2b 22 24 52 75 6e |artQuotes"+"$Run|
00000430 43 68 61 72 73 3e 22 29 0d 00 18 1c cc 3a ff 28 |Chars>").....:.(|
00000440 22 46 69 6c 65 72 5f 4f 70 65 6e 44 69 72 20 22 |"Filer_OpenDir "|
00000450 2b 41 24 29 0d 00 19 05 cd 0d 00 1a 1d cc 3a c8 |+A$)..........:.|
00000460 99 26 34 30 30 63 36 2c 2c 45 3a e7 21 45 3d 4a |.&400c6,,E:.!E=J|
00000470 8c f2 45 28 46 29 0d 00 1b 0d e7 21 45 3d 47 8c |..E(F).....!E=G.|
00000480 69 3d a3 0d 00 1c 09 e7 a6 2d 32 8c 0d 00 1d 25 |i=.......-2....%|
00000490 f2 45 28 57 29 3a f2 45 28 59 29 3a f2 45 28 4a |.E(W):.E(Y):.E(J|
000004a0 29 3a f2 45 28 46 29 3a f2 45 28 47 29 3a 69 3d |):.E(F):.E(G):i=|
000004b0 a3 0d 00 1e 05 cd 0d 00 1f 05 cd 0d 00 20 0f c9 |............. ..|
000004c0 36 3a e7 45 21 38 3c 3e 32 8c 0d 00 21 07 f2 4d |6:.E!8<>2...!..M|
000004d0 79 0d 00 22 20 cc 3a 49 79 3d 45 21 34 3a e7 45 |y.." .:Iy=E!4:.E|
000004e0 21 26 63 3d 2d 32 8c 42 3d 33 36 30 8b 42 3d 49 |!&c=-2.B=360.B=I|
000004f0 79 0d 00 23 21 4e 5f 3d 21 45 2d 36 34 3a 55 5f |y..#!N_=!E-64:U_|
00000500 3d 42 3a e7 45 21 26 63 3d 4a 84 45 21 26 63 3d |=B:.E!&c=J.E!&c=|
00000510 46 8c 0d 00 24 29 5a 79 3d 75 3a e7 50 3d 30 8c |F...$)Zy=u:.P=0.|
00000520 75 21 38 34 3d 26 37 34 30 30 30 32 31 8b 75 21 |u!84=&7400021.u!|
00000530 38 34 3d 26 37 30 30 30 30 32 31 0d 00 25 26 e7 |84=&7000021..%&.|
00000540 50 3d 26 38 30 8c 75 21 36 30 3d 26 37 34 30 30 |P=&80.u!60=&7400|
00000550 30 32 31 8b 75 21 36 30 3d 26 37 30 30 30 30 32 |021.u!60=&700002|
00000560 31 0d 00 26 0b cc 3a 5a 79 3d 72 79 0d 00 27 1a |1..&..:Zy=ry..'.|
00000570 cd 3a c8 99 26 34 30 30 64 34 2c 2c 5a 79 2c 21 |.:..&400d4,,Zy,!|
00000580 45 2d 36 34 2c 42 0d 00 28 05 cd 0d 00 29 09 c9 |E-64,B..(....)..|
00000590 37 3a f2 60 0d 00 2a 09 c9 38 3a f2 70 0d 00 2b |7:.`..*..8:.p..+|
000005a0 1c c9 39 3a c8 99 26 34 30 30 63 66 2c 2c 45 2b |..9:..&400cf,,E+|
000005b0 26 38 30 3a c8 8e 5a 79 ca 0d 00 2c 0d c9 72 79 |&80:..Zy...,..ry|
000005c0 3a c8 8e 21 45 ca 0d 00 2d 1f c9 30 3a c8 99 26 |:..!E...-..0:..&|
000005d0 34 30 30 64 34 2c 2c 56 79 2c 45 21 26 38 30 2c |400d4,,Vy,E!&80,|
000005e0 45 21 26 38 34 0d 00 2e 10 c9 31 3a f2 4a 28 47 |E!&84.....1:.J(G|
000005f0 29 3a 69 3d b9 0d 00 2f 0c c9 32 3a f2 4a 28 59 |):i=.../..2:.J(Y|
00000600 29 0d 00 30 19 c9 33 3a f2 46 3a f2 4a 28 57 29 |)..0..3:.F:.J(W)|
00000610 3a f2 58 28 57 2c 38 2c 31 29 0d 00 31 0f c9 34 |:.X(W,8,1)..1..4|
00000620 3a f2 61 3a f2 4a 28 4a 29 0d 00 32 09 c9 35 3a |:.a:.J(J)..2..5:|
00000630 f2 57 0d 00 33 05 cb 0d 00 34 0c c9 75 3a c8 8e |.W..3....4..u:..|
00000640 21 45 ca 0d 00 35 16 c9 30 3a 4a 79 3d a3 3a f2 |!E...5..0:Jy=.:.|
00000650 5f 28 a4 53 28 49 79 29 29 0d 00 36 0a c9 31 3a |_(.S(Iy))..6..1:|
00000660 f2 44 79 0d 00 37 1b c9 32 3a f2 58 79 28 a4 53 |.Dy..7..2:.Xy(.S|
00000670 28 49 79 29 29 3a f2 45 28 46 29 3a f2 74 0d 00 |(Iy)):.E(F):.t..|
00000680 38 0a c9 33 3a f2 45 79 0d 00 39 15 c9 34 3a f2 |8..3:.Ey..9..4:.|
00000690 67 3a f2 61 3a f2 4a 28 4a 29 3a f2 74 0d 00 3a |g:.a:.J(J):.t..:|
000006a0 05 cb 0d 00 3b 2b cb 3a 4d 25 3d 45 21 26 38 38 |....;+.:M%=E!&88|
000006b0 3a e7 28 4d 25 80 31 29 3d 31 8c c8 99 26 34 30 |:.(M%.1)=1...&40|
000006c0 30 64 34 2c 2c 5a 79 2c 4e 5f 2c 55 5f 0d 00 3c |0d4,,Zy,N_,U_..<|
000006d0 12 c9 31 37 2c 31 38 3a c8 8e 45 21 31 36 ca 0d |..17,18:..E!16..|
000006e0 00 3d 09 c9 30 3a f2 57 0d 00 3e 0a c9 26 61 3a |.=..0:.W..>..&a:|
000006f0 f2 6c 0d 00 3f 0f c9 26 34 30 30 63 32 3a f2 5a |.l..?..&400c2:.Z|
00000700 79 0d 00 40 13 c9 26 34 30 30 63 31 2c 39 3a f2 |y..@..&400c1,9:.|
00000710 52 3a f2 59 0d 00 41 05 cb 0d 00 42 0a cb 3a fd |R:.Y..A....B..:.|
00000720 a3 3a e1 0d 00 43 37 dd f2 74 3a 21 45 3d 4a 3a |.:...C7..t:!E=J:|
00000730 c8 99 26 34 30 30 63 62 2c 2c 45 3a c8 99 26 34 |..&400cb,,E:..&4|
00000740 30 30 64 31 2c 4a 2c 45 21 34 2c 45 21 38 2c 45 |00d1,J,E!4,E!8,E|
00000750 21 26 63 2c 45 21 31 36 3a e1 0d 00 44 35 dd f2 |!&c,E!16:...D5..|
00000760 4a 28 4e 29 3a ea 62 2c 44 2c 42 2c 67 79 2c 76 |J(N):.b,D,B,gy,v|
00000770 79 3a 21 45 3d 4e 3a c8 99 26 34 30 30 63 62 2c |y:!E=N:..&400cb,|
00000780 2c 45 3a 62 3d a3 3a e7 71 79 80 4e 3d 59 8c 0d |,E:b=.:.qy.N=Y..|
00000790 00 45 16 44 3d 45 5f 3a 42 3d 54 5f 3a 62 3d b9 |.E.D=E_:B=T_:b=.|
000007a0 3a 71 79 3d a3 0d 00 46 0e cd 3a e7 64 79 80 4e |:qy=...F..:.dy.N|
000007b0 3d 47 8c 0d 00 47 16 44 3d 58 5f 3a 42 3d 44 5f |=G...G.D=X_:B=D_|
000007c0 3a 62 3d b9 3a 64 79 3d a3 0d 00 48 0e cd 3a e7 |:b=.:dy=...H..:.|
000007d0 51 79 80 4e 3d 57 8c 0d 00 49 16 44 3d 4b 5f 3a |Qy.N=W...I.D=K_:|
000007e0 42 3d 4f 5f 3a 62 3d b9 3a 51 79 3d a3 0d 00 4a |B=O_:b=.:Qy=...J|
000007f0 0e cd 3a e7 4c 79 80 4e 3d 4a 8c 0d 00 4b 16 44 |..:.Ly.N=J...K.D|
00000800 3d 73 5f 3a 42 3d 77 5f 3a 62 3d b9 3a 4c 79 3d |=s_:B=w_:b=.:Ly=|
00000810 a3 0d 00 4c 0e cd 3a e7 7a 79 80 4e 3d 46 8c 0d |...L..:.zy.N=F..|
00000820 00 4d 16 44 3d 7a 5f 3a 42 3d 78 5f 3a 62 3d b9 |.M.D=z_:B=x_:b=.|
00000830 3a 7a 79 3d a3 0d 00 4e 09 cd 3a e7 62 8c 0d 00 |:zy=...N..:.b...|
00000840 4f 38 67 79 3d 44 2d 45 21 34 3a 76 79 3d 42 2d |O8gy=D-E!4:vy=B-|
00000850 45 21 31 36 3a 45 21 34 2b 3d 67 79 3a 45 21 38 |E!16:E!4+=gy:E!8|
00000860 2b 3d 76 79 3a 45 21 26 63 2b 3d 67 79 3a 45 21 |+=vy:E!&c+=gy:E!|
00000870 31 36 2b 3d 76 79 0d 00 50 1b cd 3a 45 21 32 38 |16+=vy..P..:E!28|
00000880 3d 2d 31 3a c8 99 26 34 30 30 63 35 2c 2c 45 3a |=-1:..&400c5,,E:|
00000890 e1 0d 00 51 1d dd f2 45 28 4e 29 3a 21 45 3d 4e |...Q...E(N):!E=N|
000008a0 3a c8 99 26 34 30 30 63 36 2c 2c 45 3a e1 0d 00 |:..&400c6,,E:...|
000008b0 52 21 dd f2 57 3a f2 52 3a e7 73 8c 2a 52 4d 4b |R!..W:.R:.s.*RMK|
000008c0 69 6c 6c 20 53 6d 61 72 74 51 75 6f 74 65 73 0d |ill SmartQuotes.|
000008d0 00 53 07 e0 3a e1 0d 00 54 45 dd f2 4e 3a ea 6b |.S..:...TE..N:.k|
000008e0 3a ee 85 ee 85 87 3a ff 28 22 52 6d 4b 69 6c 6c |:.....:.("RmKill|
000008f0 20 22 2b 22 53 6d 61 72 74 51 75 6f 74 65 73 22 | "+"SmartQuotes"|
00000900 29 3a 85 a2 9f 2c f6 24 2b 22 20 61 74 20 6c 69 |):...,.$+" at li|
00000910 6e 65 20 22 2b c3 28 9e 29 3a e0 0d 00 55 5d 21 |ne "+.(.):...U]!|
00000920 45 3d 9f 3a 24 28 45 2b 34 29 3d 22 49 6e 74 65 |E=.:$(E+4)="Inte|
00000930 72 6e 61 6c 20 65 72 72 6f 72 20 63 6f 64 65 20 |rnal error code |
00000940 22 2b c3 28 9e 29 2b 22 3a 20 22 2b f6 24 2b bd |"+.(.)+": "+.$+.|
00000950 30 3a c8 99 26 34 30 30 64 66 2c 45 2c 33 2c 22 |0:..&400df,E,3,"|
00000960 53 6d 61 72 74 20 51 75 6f 74 65 73 22 b8 2c 6b |Smart Quotes".,k|
00000970 3a e7 6b 3d 32 8c f2 66 0d 00 56 0e ee 85 ee 85 |:.k=2..f..V.....|
00000980 87 3a f2 4e 3a e0 0d 00 57 08 f2 75 3a e1 0d 00 |.:.N:...W..u:...|
00000990 58 9e dd f2 66 3a ea 6b 3a 21 45 3d 30 3a 24 28 |X...f:.k:!E=0:$(|
000009a0 45 2b 34 29 3d 22 41 72 65 20 79 6f 75 20 73 75 |E+4)="Are you su|
000009b0 72 65 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 71 |re you want to q|
000009c0 75 69 74 20 74 68 65 20 70 72 6f 67 72 61 6d 3f |uit the program?|
000009d0 20 43 6c 69 63 6b 20 4f 4b 20 74 6f 20 71 75 69 | Click OK to qui|
000009e0 74 2c 20 43 61 6e 63 65 6c 20 74 6f 20 72 65 74 |t, Cancel to ret|
000009f0 75 72 6e 20 74 6f 20 74 68 65 20 70 72 6f 67 72 |urn to the progr|
00000a00 61 6d 2e 22 3a c8 99 26 34 30 30 64 66 2c 45 2c |am.":..&400df,E,|
00000a10 32 33 2c 22 53 6d 61 72 74 20 51 75 6f 74 65 73 |23,"Smart Quotes|
00000a20 22 b8 2c 6b 3a e7 6b 3d 31 8c f2 57 0d 00 59 05 |".,k:.k=1..W..Y.|
00000a30 e1 0d 00 5a 52 dd f2 53 28 49 24 2c 66 5f 2c 68 |...ZR..S(I$,f_,h|
00000a40 5f 29 3a 21 45 3d 30 3a 24 28 45 2b 34 29 3d 49 |_):!E=0:$(E+4)=I|
00000a50 24 3a c8 99 26 34 30 30 64 66 2c 45 2c 33 2b 66 |$:..&400df,E,3+f|
00000a60 5f 2a 32 2d 68 5f 2a 31 36 2c 22 53 6d 61 72 74 |_*2-h_*16,"Smart|
00000a70 20 51 75 6f 74 65 73 22 b8 2c 6b 3a e7 6b 3d 32 | Quotes".,k:.k=2|
00000a80 8c f2 66 0d 00 5b 05 e1 0d 00 5c 4b dd f2 64 28 |..f..[....\K..d(|
00000a90 5a 24 29 3a ee 85 ee 85 87 3a f2 53 28 22 43 6f |Z$):.....:.S("Co|
00000aa0 75 6c 64 6e 27 74 20 6c 6f 61 64 20 22 2b 5a 24 |uldn't load "+Z$|
00000ab0 2b 22 20 28 22 2b f6 24 2b 22 2c 20 22 2b c3 28 |+" ("+.$+", "+.(|
00000ac0 9e 29 2b 22 29 2e 22 2b 51 24 2c 2d 31 2c 30 29 |.)+")."+Q$,-1,0)|
00000ad0 3a f2 57 0d 00 5d 05 e1 0d 00 5e 14 dd f2 51 79 |:.W..]....^...Qy|
00000ae0 28 4e 2c f8 6d 79 29 3a e7 6d 79 8c 0d 00 5f 09 |(N,.my):.my..._.|
00000af0 f2 45 28 4e 29 0d 00 60 0b cc 3a f2 4a 28 4e 29 |.E(N)..`..:.J(N)|
00000b00 0d 00 61 0e cd 3a 6d 79 3d ac 6d 79 3a e1 0d 00 |..a..:my=.my:...|
00000b10 62 0e dd f2 46 79 3a e7 48 3e 30 8c 0d 00 63 1a |b...Fy:.H>0...c.|
00000b20 6c 79 3d 48 3a f2 41 28 22 4f 70 74 69 6f 6e 73 |ly=H:.A("Options|
00000b30 22 2c 22 30 22 29 0d 00 64 19 cc 3a f2 41 28 22 |","0")..d..:.A("|
00000b40 4f 70 74 69 6f 6e 73 22 2c c3 28 6c 79 29 29 0d |Options",.(ly)).|
00000b50 00 65 0a cd 3a f2 47 3a e1 0d 00 66 3f dd f2 4d |.e..:.G:...f?..M|
00000b60 79 3a ea 5a 2c 77 79 2c 47 79 2c 61 79 2c 4d 24 |y:.Z,wy,Gy,ay,M$|
00000b70 2c 67 5f 2c 44 79 2c 58 79 2c 66 79 3a 5a 3d 45 |,g_,Dy,Xy,fy:Z=E|
00000b80 21 31 36 3a 47 79 3d 45 21 26 63 3a 61 79 3d 45 |!16:Gy=E!&c:ay=E|
00000b90 21 38 3a c8 8e 47 79 ca 0d 00 67 29 c9 58 3a 44 |!8:..Gy...g).X:D|
00000ba0 79 3d a6 2d 31 3a 58 79 3d a6 2d 32 3a 66 79 3d |y=.-1:Xy=.-2:fy=|
00000bb0 a6 2d 33 3a e7 44 79 2b 58 79 2b 66 79 3c 3e 30 |.-3:.Dy+Xy+fy<>0|
00000bc0 8c 0d 00 68 0b e7 44 79 80 58 79 8c 0d 00 69 0a |...h..Dy.Xy...i.|
00000bd0 e7 61 79 3d 34 8c 0d 00 6a 0a e7 58 3d 2d 32 8c |.ay=4...j..X=-2.|
00000be0 0d 00 6b 06 f2 63 0d 00 6c 30 cc 3a 21 45 3d 54 |..k..c..l0.:!E=T|
00000bf0 3a 45 21 34 3d 54 3a c8 99 26 34 30 30 63 62 2c |:E!4=T:..&400cb,|
00000c00 2c 45 2b 34 3a 45 21 34 3d 31 3a c8 99 26 34 30 |,E+4:E!4=1:..&40|
00000c10 30 64 30 2c 2c 45 0d 00 6d 05 cd 0d 00 6e 0c cc |0d0,,E..m....n..|
00000c20 3a e7 58 3d 2d 32 8c 0d 00 6f 23 61 3d b9 3a 21 |:.X=-2...o#a=.:!|
00000c30 45 3d 2d 32 3a 45 21 34 3d 5f 3a c8 99 26 34 30 |E=-2:E!4=_:..&40|
00000c40 30 63 34 2c 2c 45 3a 58 3d 54 0d 00 70 1d cc 3a |0c4,,E:X=T..p..:|
00000c50 61 3d a3 3a 58 3d 2d 32 3a f2 48 28 24 52 2c 30 |a=.:X=-2:.H($R,0|
00000c60 29 3a f2 45 28 54 29 0d 00 71 05 cd 0d 00 72 05 |):.E(T)..q....r.|
00000c70 cd 0d 00 73 0a cc 3a e7 44 79 8c 0d 00 74 08 56 |...s..:.Dy...t.V|
00000c80 3d ac 56 0d 00 75 0a cd 3a e7 58 79 8c 0d 00 76 |=.V..u..:.Xy...v|
00000c90 08 4b 3d ac 4b 0d 00 77 0a cd 3a e7 66 79 8c 0d |.K=.K..w..:.fy..|
00000ca0 00 78 08 71 3d ac 71 0d 00 79 08 cd 3a f2 65 0d |.x.q=.q..y..:.e.|
00000cb0 00 7a 05 cd 0d 00 7b 0b cc 3a c8 8e 61 79 ca 0d |.z....{..:..ay..|
00000cc0 00 7c 0a c9 31 3a f2 46 79 0d 00 7d 0f c9 34 3a |.|..1:.Fy..}..4:|
00000cd0 f2 51 79 28 47 2c 69 29 0d 00 7e 05 cb 0d 00 7f |.Qy(G,i)..~.....|
00000ce0 05 cd 0d 00 80 21 c9 47 3a 45 21 30 3d 47 3a 45 |.....!.G:E!0=G:E|
00000cf0 21 34 3d 5a 3a f2 4d 28 47 2c 5a 2c 31 29 3a c8 |!4=Z:.M(G,Z,1):.|
00000d00 8e 5a ca 0d 00 81 0a c9 37 3a 56 3d b9 0d 00 82 |.Z......7:V=....|
00000d10 0a c9 38 3a 56 3d a3 0d 00 83 0a c9 39 3a 4b 3d |..8:V=......9:K=|
00000d20 b9 0d 00 84 0a c9 36 3a 4b 3d a3 0d 00 85 0b c9 |......6:K=......|
00000d30 26 65 3a 71 3d b9 0d 00 86 0b c9 26 64 3a 71 3d |&e:q=......&d:q=|
00000d40 a3 0d 00 87 08 cb 3a f2 65 0d 00 88 37 c9 59 3a |......:.e...7.Y:|
00000d50 45 21 30 3d 59 3a 45 21 34 3d 5a 3a c8 99 26 34 |E!0=Y:E!4=Z:..&4|
00000d60 30 30 63 65 2c 2c 45 3a 77 79 3d 28 45 21 32 34 |00ce,,E:wy=(E!24|
00000d70 80 28 31 3c 3c 32 31 29 29 3e 30 3a c8 8e 5a ca |.(1<<21))>0:..Z.|
00000d80 0d 00 89 1b c9 30 3a 66 3d 77 79 3a e7 66 3d a3 |.....0:f=wy:.f=.|
00000d90 8c f2 57 79 8b 6e 3d b9 3a f2 4f 0d 00 8a 14 c9 |..Wy.n=.:.O.....|
00000da0 31 3a 78 3d 77 79 3a e7 78 8c f2 71 8b f2 72 0d |1:x=wy:.x..q..r.|
00000db0 00 8b 0b c9 32 3a 73 3d 77 79 0d 00 8c 37 c9 33 |....2:s=wy...7.3|
00000dc0 3a ff 28 22 46 69 6c 65 72 5f 52 75 6e 20 3c 22 |:.("Filer_Run <"|
00000dd0 2b 22 53 6d 61 72 74 51 75 6f 74 65 73 22 2b 22 |+"SmartQuotes"+"|
00000de0 53 65 74 75 70 24 44 69 72 3e 2e 21 52 75 6e 22 |Setup$Dir>.!Run"|
00000df0 29 0d 00 8d 09 c9 34 3a f2 56 0d 00 8e 09 c9 35 |).....4:.V.....5|
00000e00 3a f2 49 0d 00 8f 05 cb 0d 00 90 0b c9 57 3a c8 |:.I..........W:.|
00000e10 8e 5a ca 0d 00 91 0b c9 26 63 3a f2 50 79 0d 00 |.Z......&c:.Py..|
00000e20 92 0a c9 26 64 3a f2 6e 0d 00 93 2b c9 26 65 3a |...&d:.n...+.&e:|
00000e30 f2 46 3a f2 6d 3a c8 99 26 34 30 30 64 33 2c 2c |.F:.m:..&400d3,,|
00000e40 45 3a e7 21 45 3d 57 8c f2 58 28 57 2c 45 21 34 |E:.!E=W..X(W,E!4|
00000e50 2c 31 29 0d 00 94 05 cb 0d 00 95 17 c9 4a 3a 4a |,1)..........J:J|
00000e60 79 3d a3 3a f2 5f 28 a4 53 28 45 21 34 29 29 0d |y=.:._(.S(E!4)).|
00000e70 00 96 0b c9 46 3a c8 8e 5a ca 0d 00 97 0c c9 32 |....F:..Z......2|
00000e80 3a f2 45 28 46 29 0d 00 98 12 c9 33 3a e7 61 79 |:.E(F).....3:.ay|
00000e90 3d 34 8c f2 45 28 46 29 0d 00 99 06 f2 79 0d 00 |=4..E(F).....y..|
00000ea0 9a 05 cb 0d 00 9b 07 cb 3a e1 0d 00 9c 22 dd f2 |........:...."..|
00000eb0 41 79 3a f2 41 28 22 4f 70 74 69 6f 6e 73 22 2c |Ay:.A("Options",|
00000ec0 c3 28 48 29 29 3a 74 79 3d a3 3a e1 0d 00 9d bc |.(H)):ty=.:.....|
00000ed0 dd f2 71 3a c8 99 26 32 30 30 30 35 2c 22 4d 6f |..q:..&20005,"Mo|
00000ee0 72 65 48 65 6c 70 5f 22 2b 22 41 64 64 54 61 73 |reHelp_"+"AddTas|
00000ef0 6b 20 22 2b bd 33 34 2b 22 53 6d 61 72 74 20 51 |k "+.34+"Smart Q|
00000f00 75 6f 74 65 73 22 2b bd 33 34 2b 22 20 22 2b 43 |uotes"+.34+" "+C|
00000f10 24 2b 22 2e 21 49 6e 74 48 65 6c 70 22 3a c8 99 |$+".!IntHelp":..|
00000f20 26 32 30 30 30 35 2c 22 4d 6f 72 65 48 65 6c 70 |&20005,"MoreHelp|
00000f30 5f 22 2b 22 41 64 64 54 61 73 6b 20 22 2b bd 33 |_"+"AddTask "+.3|
00000f40 34 2b 22 53 6d 61 72 74 20 51 75 6f 74 65 73 22 |4+"Smart Quotes"|
00000f50 2b 22 20 73 65 74 75 70 22 2b bd 33 34 2b 22 20 |+" setup"+.34+" |
00000f60 3c 22 2b 22 53 6d 61 72 74 51 75 6f 74 65 73 22 |<"+"SmartQuotes"|
00000f70 2b 22 53 65 74 75 70 24 44 69 72 3e 2e 21 49 6e |+"Setup$Dir>.!In|
00000f80 74 48 65 6c 70 22 3a e1 0d 00 9e 86 dd f2 72 3a |tHelp":.......r:|
00000f90 c8 99 26 32 30 30 30 35 2c 22 4d 6f 72 65 48 65 |..&20005,"MoreHe|
00000fa0 6c 70 5f 22 2b 22 52 65 6d 6f 76 65 54 61 73 6b |lp_"+"RemoveTask|
00000fb0 20 22 2b bd 33 34 2b 22 53 6d 61 72 74 20 51 75 | "+.34+"Smart Qu|
00000fc0 6f 74 65 73 22 2b bd 33 34 3a c8 99 26 32 30 30 |otes"+.34:..&200|
00000fd0 30 35 2c 22 4d 6f 72 65 48 65 6c 70 5f 22 2b 22 |05,"MoreHelp_"+"|
00000fe0 52 65 6d 6f 76 65 54 61 73 6b 20 22 2b bd 33 34 |RemoveTask "+.34|
00000ff0 2b 22 53 6d 61 72 74 20 51 75 6f 74 65 73 22 2b |+"Smart Quotes"+|
00001000 22 20 73 65 74 75 70 22 2b bd 33 34 3a e1 0d 00 |" setup"+.34:...|
00001010 9f 32 dd f2 70 3a ea 65 2c 47 79 2c 5a 2c 4e 79 |.2..p:.e,Gy,Z,Ny|
00001020 2c 6c 3a 47 79 3d 21 45 3a 5a 3d 45 21 34 3a 65 |,l:Gy=!E:Z=E!4:e|
00001030 3d 45 21 32 34 3a 4e 79 3d b9 3a c8 8e 47 79 ca |=E!24:Ny=.:..Gy.|
00001040 0d 00 a0 0b c9 57 3a c8 8e 5a ca 0d 00 a1 0a c9 |.....W:..Z......|
00001050 38 3a 6c 3d 60 0d 00 a2 0b c9 39 3a 6c 3d 43 79 |8:l=`.....9:l=Cy|
00001060 0d 00 a3 0c c9 26 61 3a 6c 3d 50 79 0d 00 a4 0c |.....&a:l=Py....|
00001070 c9 26 62 3a 6c 3d 46 79 0d 00 a5 11 cb 3a e7 24 |.&b:l=Fy.....:.$|
00001080 6c 3d 22 22 8c 65 3d 33 32 0d 00 a6 08 c8 8e 65 |l="".e=32......e|
00001090 ca 0d 00 a7 0d c9 32 37 3a f2 45 28 57 29 0d 00 |......27:.E(W)..|
000010a0 a8 14 7f 3a e7 65 3e 3d 33 32 80 65 3c 3d 26 66 |...:.e>=32.e<=&f|
000010b0 66 8c 0d 00 a9 24 24 6c 3d bd 28 65 29 3a f2 53 |f....$$l=.(e):.S|
000010c0 79 3a f2 46 3a f2 55 28 57 2c 5a 29 3a f2 58 28 |y:.F:.U(W,Z):.X(|
000010d0 57 2c 5a 2c 31 29 0d 00 aa 0a cc 3a 4e 79 3d a3 |W,Z,1).....:Ny=.|
000010e0 0d 00 ab 05 cd 0d 00 ac 05 cb 0d 00 ad 0b c9 46 |...............F|
000010f0 3a c8 8e 65 ca 0d 00 ae 10 c9 26 64 3a f2 79 3a |:..e......&d:.y:|
00001100 f2 45 28 46 29 0d 00 af 0d c9 32 37 3a f2 45 28 |.E(F).....27:.E(|
00001110 46 29 0d 00 b0 0a 7f 3a 4e 79 3d a3 0d 00 b1 05 |F).....:Ny=.....|
00001120 cb 0d 00 b2 15 cb 3a e7 ac 4e 79 8c c8 99 26 34 |......:..Ny...&4|
00001130 30 30 64 63 2c 65 0d 00 b3 05 e1 0d 00 b4 28 dd |00dc,e........(.|
00001140 f2 58 28 4e 2c 5a 2c 55 29 3a c8 99 26 34 30 30 |.X(N,Z,U):..&400|
00001150 64 32 2c 4e 2c 5a 2c 2d 31 2c 2d 31 2c 2d 31 2c |d2,N,Z,-1,-1,-1,|
00001160 55 3a e1 0d 00 b5 64 dd f2 53 79 3a f2 41 28 22 |U:....d..Sy:.A("|
00001170 4f 70 65 6e 44 6f 75 62 6c 65 22 2c 24 60 29 3a |OpenDouble",$`):|
00001180 f2 41 28 22 43 6c 6f 73 65 64 44 6f 75 62 6c 65 |.A("ClosedDouble|
00001190 22 2c 24 43 79 29 3a f2 41 28 22 4f 70 65 6e 53 |",$Cy):.A("OpenS|
000011a0 69 6e 67 6c 65 22 2c 24 50 79 29 3a f2 41 28 22 |ingle",$Py):.A("|
000011b0 43 6c 6f 73 65 64 53 69 6e 67 6c 65 22 2c 24 46 |ClosedSingle",$F|
000011c0 79 29 3a f2 46 3a e1 0d 00 b6 63 dd f2 46 3a ea |y):.F:....c..F:.|
000011d0 5a 3a 24 60 3d a4 45 28 22 4f 70 65 6e 44 6f 75 |Z:$`=.E("OpenDou|
000011e0 62 6c 65 22 29 3a 24 43 79 3d a4 45 28 22 43 6c |ble"):$Cy=.E("Cl|
000011f0 6f 73 65 64 44 6f 75 62 6c 65 22 29 3a 24 50 79 |osedDouble"):$Py|
00001200 3d a4 45 28 22 4f 70 65 6e 53 69 6e 67 6c 65 22 |=.E("OpenSingle"|
00001210 29 3a 24 46 79 3d a4 45 28 22 43 6c 6f 73 65 64 |):$Fy=.E("Closed|
00001220 53 69 6e 67 6c 65 22 29 3a e1 0d 00 b7 1b dd f2 |Single"):.......|
00001230 6d 3a e3 5a 3d 38 b8 26 62 3a f2 55 28 57 2c 5a |m:.Z=8.&b:.U(W,Z|
00001240 29 3a ed 3a e1 0d 00 b8 36 dd f2 69 3a 60 3d a4 |):.:....6..i:`=.|
00001250 41 28 57 2c 38 29 3a 43 79 3d a4 41 28 57 2c 39 |A(W,8):Cy=.A(W,9|
00001260 29 3a 50 79 3d a4 41 28 57 2c 26 61 29 3a 46 79 |):Py=.A(W,&a):Fy|
00001270 3d a4 41 28 57 2c 26 62 29 3a e1 0d 00 b9 64 dd |=.A(W,&b):....d.|
00001280 f2 50 79 3a f2 41 28 22 4f 70 65 6e 44 6f 75 62 |.Py:.A("OpenDoub|
00001290 6c 65 22 2c 22 22 29 3a f2 41 28 22 43 6c 6f 73 |le",""):.A("Clos|
000012a0 65 64 44 6f 75 62 6c 65 22 2c 22 22 29 3a f2 41 |edDouble",""):.A|
000012b0 28 22 4f 70 65 6e 53 69 6e 67 6c 65 22 2c 22 22 |("OpenSingle",""|
000012c0 29 3a f2 41 28 22 43 6c 6f 73 65 64 53 69 6e 67 |):.A("ClosedSing|
000012d0 6c 65 22 2c 22 22 29 3a f2 46 3a f2 6d 3a e1 0d |le",""):.F:.m:..|
000012e0 00 ba 50 dd f2 6e 3a ea 41 3a ea 85 3a ee 85 ea |..P..n:.A:..:...|
000012f0 f7 85 3a f2 53 28 22 43 6f 75 6c 64 6e 91 74 20 |..:.S("Couldn.t |
00001300 73 61 76 65 20 22 2b 22 43 68 61 72 73 20 66 69 |save "+"Chars fi|
00001310 6c 65 3a 20 22 2b f6 24 2b 22 20 28 22 2b c3 28 |le: "+.$+" ("+.(|
00001320 9e 29 2b 22 29 2e 22 2c 2d 31 2c 30 29 3a e1 0d |.)+").",-1,0):..|
00001330 00 bb 5b 41 3d ae 28 41 24 2b 22 2e 43 68 61 72 |..[A=.(A$+".Char|
00001340 73 22 29 3a ee 85 ea f7 85 3a d9 23 41 3a f2 53 |s"):.....:.#A:.S|
00001350 28 22 43 6f 75 6c 64 6e 91 74 20 73 61 76 65 20 |("Couldn.t save |
00001360 22 2b 22 43 68 61 72 73 20 66 69 6c 65 3a 20 22 |"+"Chars file: "|
00001370 2b f6 24 2b 22 20 28 22 2b c3 28 9e 29 2b 22 29 |+.$+" ("+.(.)+")|
00001380 2e 22 2c 2d 31 2c 30 29 3a e1 0d 00 bc 7f f2 51 |.",-1,0):......Q|
00001390 28 22 4f 70 65 6e 44 6f 75 62 6c 65 22 2c 24 60 |("OpenDouble",$`|
000013a0 29 3a f2 51 28 22 43 6c 6f 73 65 64 44 6f 75 62 |):.Q("ClosedDoub|
000013b0 6c 65 22 2c 24 43 79 29 3a f2 51 28 22 4f 70 65 |le",$Cy):.Q("Ope|
000013c0 6e 53 69 6e 67 6c 65 22 2c 24 50 79 29 3a f2 51 |nSingle",$Py):.Q|
000013d0 28 22 43 6c 6f 73 65 64 53 69 6e 67 6c 65 22 2c |("ClosedSingle",|
000013e0 24 46 79 29 3a d9 23 41 3a ff 28 22 53 65 74 54 |$Fy):.#A:.("SetT|
000013f0 79 70 65 20 22 2b 41 24 2b 22 2e 43 68 61 72 73 |ype "+A$+".Chars|
00001400 20 4f 62 65 79 22 29 3a e1 0d 00 bd 37 dd f2 51 | Obey"):....7..Q|
00001410 28 4d 24 2c 57 24 29 3a d5 23 41 2c 22 53 65 74 |(M$,W$):.#A,"Set|
00001420 20 22 2b 22 53 6d 61 72 74 51 75 6f 74 65 73 22 | "+"SmartQuotes"|
00001430 2b 22 24 22 2b 4d 24 2b 22 20 22 2b 57 24 3a e1 |+"$"+M$+" "+W$:.|
00001440 0d 00 be 25 dd f2 47 79 3a ea 85 3a ee 85 ea f7 |...%..Gy:..:....|
00001450 85 3a f2 4c 28 22 43 68 61 72 73 22 29 3a f2 46 |.:.L("Chars"):.F|
00001460 3a f2 6e 3a e1 0d 00 bf 1e ff 28 22 52 75 6e 20 |:.n:......("Run |
00001470 22 2b 41 24 2b 22 2e 43 68 61 72 73 22 29 3a f2 |"+A$+".Chars"):.|
00001480 46 3a e1 0d 00 c0 29 dd a4 41 28 4e 2c 5a 29 3a |F:....)..A(N,Z):|
00001490 21 45 3d 4e 3a 45 21 34 3d 5a 3a c8 99 26 34 30 |!E=N:E!4=Z:..&40|
000014a0 30 63 65 2c 2c 45 3a 3d 45 21 32 38 0d 00 c1 28 |0ce,,E:=E!28...(|
000014b0 dd f2 4d 28 4e 2c 5a 2c 6e 5f 29 3a f2 76 28 4e |..M(N,Z,n_):.v(N|
000014c0 2c 5a 2c 31 3c 3c 32 31 2c 6e 5f 2a 31 3c 3c 32 |,Z,1<<21,n_*1<<2|
000014d0 31 29 3a e1 0d 00 c2 1a dd f2 55 28 4e 2c 5a 29 |1):.......U(N,Z)|
000014e0 3a f2 76 28 4e 2c 5a 2c 30 2c 30 29 3a e1 0d 00 |:.v(N,Z,0,0):...|
000014f0 c3 3a dd f2 76 28 4e 2c 5a 2c 74 5f 2c 64 5f 29 |.:..v(N,Z,t_,d_)|
00001500 3a 21 45 3d 4e 3a 45 21 34 3d 5a 3a 45 21 38 3d |:!E=N:E!4=Z:E!8=|
00001510 64 5f 3a 45 21 26 63 3d 74 5f 3a c8 99 26 34 30 |d_:E!&c=t_:..&40|
00001520 30 63 64 2c 2c 45 3a e1 0d 00 c4 57 dd f2 43 79 |0cd,,E:....W..Cy|
00001530 3a f2 4d 28 47 2c 37 2c 2d 56 29 3a f2 4d 28 47 |:.M(G,7,-V):.M(G|
00001540 2c 38 2c 2d 28 ac 56 29 29 3a f2 4d 28 47 2c 36 |,8,-(.V)):.M(G,6|
00001550 2c 2d 28 ac 4b 29 29 3a f2 4d 28 47 2c 39 2c 2d |,-(.K)):.M(G,9,-|
00001560 4b 29 3a f2 4d 28 47 2c 26 64 2c 2d 28 ac 71 29 |K):.M(G,&d,-(.q)|
00001570 29 3a f2 4d 28 47 2c 26 65 2c 2d 71 29 3a e1 0d |):.M(G,&e,-q):..|
00001580 00 c5 2a dd f2 4b 3a f2 4d 28 59 2c 30 2c 2d 66 |..*..K:.M(Y,0,-f|
00001590 29 3a f2 4d 28 59 2c 31 2c 2d 78 29 3a f2 4d 28 |):.M(Y,1,-x):.M(|
000015a0 59 2c 32 2c 2d 73 29 3a e1 0d 00 c6 3b dd f2 41 |Y,2,-s):....;..A|
000015b0 28 4d 24 2c 57 24 29 3a c8 99 26 32 30 30 32 34 |(M$,W$):..&20024|
000015c0 2c 22 53 6d 61 72 74 51 75 6f 74 65 73 22 2b 22 |,"SmartQuotes"+"|
000015d0 24 22 2b 4d 24 2c 57 24 2c a9 28 57 24 29 2c 30 |$"+M$,W$,.(W$),0|
000015e0 2c 30 3a e1 0d 00 c7 57 dd f2 49 3a ea 41 3a ea |,0:....W..I:.A:.|
000015f0 85 3a f2 47 3a ee 85 ea f7 85 3a f2 53 28 22 43 |.:.G:.....:.S("C|
00001600 6f 75 6c 64 6e 91 74 20 73 61 76 65 20 22 2b 22 |ouldn.t save "+"|
00001610 43 68 6f 69 63 65 73 22 2b 22 20 66 69 6c 65 3a |Choices"+" file:|
00001620 20 22 2b f6 24 2b 22 20 28 22 2b c3 28 9e 29 2b | "+.$+" ("+.(.)+|
00001630 22 29 22 2c 2d 31 2c 30 29 3a e1 0d 00 c8 64 41 |")",-1,0):....dA|
00001640 3d ae 28 41 24 2b 22 2e 22 2b 22 43 68 6f 69 63 |=.(A$+"."+"Choic|
00001650 65 73 22 29 3a ee 85 ea f7 85 3a d9 23 41 3a f2 |es"):.....:.#A:.|
00001660 53 28 22 43 6f 75 6c 64 6e 91 74 20 73 61 76 65 |S("Couldn.t save|
00001670 20 22 2b 22 43 68 6f 69 63 65 73 22 2b 22 20 66 | "+"Choices"+" f|
00001680 69 6c 65 3a 20 22 2b f6 24 2b 22 20 28 22 2b c3 |ile: "+.$+" ("+.|
00001690 28 9e 29 2b 22 29 22 2c 2d 31 2c 30 29 3a e1 0d |(.)+")",-1,0):..|
000016a0 00 c9 4b f1 23 41 2c 48 2c 66 2c 73 2c 78 3a f2 |..K.#A,H,f,s,x:.|
000016b0 50 28 41 2c 47 29 3a f2 50 28 41 2c 59 29 3a f2 |P(A,G):.P(A,Y):.|
000016c0 50 28 41 2c 57 29 3a f2 50 28 41 2c 4a 29 3a f2 |P(A,W):.P(A,J):.|
000016d0 50 28 41 2c 46 29 3a f2 50 28 41 2c 54 29 3a f1 |P(A,F):.P(A,T):.|
000016e0 23 41 2c 61 3a d9 23 41 3a e1 0d 00 ca 2c dd f2 |#A,a:.#A:....,..|
000016f0 50 28 4c 2c 4e 29 3a 21 45 3d 4e 3a c8 99 26 34 |P(L,N):!E=N:..&4|
00001700 30 30 63 62 2c 2c 45 3a f1 23 4c 2c 45 21 34 2c |00cb,,E:.#L,E!4,|
00001710 45 21 31 36 3a e1 0d 00 cb 6e dd f2 4c 28 5a 24 |E!16:....n..L(Z$|
00001720 29 3a f2 53 28 22 43 6f 75 6c 64 6e 91 74 20 6c |):.S("Couldn.t l|
00001730 6f 61 64 20 22 2b 5a 24 2b 22 20 66 69 6c 65 20 |oad "+Z$+" file |
00001740 28 63 6f 64 65 20 22 2b c3 28 9f 29 2b 22 2c 20 |(code "+.(.)+", |
00001750 22 2b c3 28 9e 29 2b 22 29 20 2d 20 74 72 79 69 |"+.(.)+") - tryi|
00001760 6e 67 20 74 6f 20 63 72 65 61 74 65 20 61 20 64 |ng to create a d|
00001770 65 66 61 75 6c 74 20 6f 6e 65 2e 22 2c 2d 31 2c |efault one.",-1,|
00001780 30 29 3a e1 0d 00 cc 30 dd f2 4e 79 3a ea 41 2c |0):....0..Ny:.A,|
00001790 59 5f 2c 49 5f 3a ea 85 3a ee 85 ea f7 85 3a f2 |Y_,I_:..:.....:.|
000017a0 4c 28 22 43 68 6f 69 63 65 73 22 29 3a f2 56 3a |L("Choices"):.V:|
000017b0 f2 49 3a e1 0d 00 cd 39 41 3d 8e 28 41 24 2b 22 |.I:....9A=.(A$+"|
000017c0 2e 22 2b 22 43 68 6f 69 63 65 73 22 29 3a ee 85 |."+"Choices"):..|
000017d0 ea f7 85 3a d9 23 41 3a f2 4c 28 22 43 68 6f 69 |...:.#A:.L("Choi|
000017e0 63 65 73 22 29 3a f2 56 3a f2 49 3a e1 0d 00 ce |ces"):.V:.I:....|
000017f0 62 e8 23 41 2c 48 2c 66 2c 73 2c 78 3a e8 23 41 |b.#A,H,f,s,x:.#A|
00001800 2c 58 5f 2c 44 5f 2c 45 5f 2c 54 5f 3a e8 23 41 |,X_,D_,E_,T_:.#A|
00001810 2c 4b 5f 2c 4f 5f 2c 73 5f 2c 77 5f 2c 7a 5f 2c |,K_,O_,s_,w_,z_,|
00001820 78 5f 2c 59 5f 2c 49 5f 2c 61 3a f7 85 3a 71 79 |x_,Y_,I_,a:..:qy|
00001830 3d b9 3a 64 79 3d b9 3a 51 79 3d b9 3a 4c 79 3d |=.:dy=.:Qy=.:Ly=|
00001840 b9 3a 7a 79 3d b9 3a e7 78 8c f2 71 8b f2 72 0d |.:zy=.:.x..q..r.|
00001850 00 cf 57 21 53 3d 54 3a c8 99 26 34 30 30 63 62 |..W!S=T:..&400cb|
00001860 2c 2c 53 3a 53 21 34 3d 59 5f 3a 53 21 31 36 3d |,,S:S!4=Y_:S!16=|
00001870 49 5f 3a 53 21 26 63 3d 53 21 34 2b 38 30 3a 53 |I_:S!&c=S!4+80:S|
00001880 21 38 3d 53 21 31 36 2d 38 30 3a f2 41 28 22 4f |!8=S!16-80:.A("O|
00001890 70 74 69 6f 6e 73 22 2c c3 28 48 29 29 3a f2 4b |ptions",.(H)):.K|
000018a0 3a d9 23 41 3a e1 0d 00 d0 35 dd f2 65 3a ea 57 |:.#A:....5..e:.W|
000018b0 5f 3a 57 5f 3d 2d 56 2b 28 2d 4b 2a 32 29 2b 28 |_:W_=-V+(-K*2)+(|
000018c0 2d 71 2a 34 29 3a f2 41 28 22 4f 70 74 69 6f 6e |-q*4):.A("Option|
000018d0 73 22 2c c3 28 57 5f 29 29 3a e1 0d 00 d1 4d dd |s",.(W_)):....M.|
000018e0 f2 47 3a c8 99 33 35 2c 22 53 6d 61 72 74 51 75 |.G:..35,"SmartQu|
000018f0 6f 74 65 73 22 2b 22 24 22 2b 22 4f 70 74 69 6f |otes"+"$"+"Optio|
00001900 6e 73 22 2c 43 2c 38 2c 30 3a 43 3f 35 3d 26 64 |ns",C,8,0:C?5=&d|
00001910 3a 48 3d a0 28 22 25 22 2b 24 28 43 2b 32 29 29 |:H=.("%"+$(C+2))|
00001920 3a e7 48 3c 3e 54 79 8c 0d 00 d2 28 56 3d 28 43 |:.H<>Ty....(V=(C|
00001930 3f 34 3d 34 39 29 3a 4b 3d 28 43 3f 33 3d 34 39 |?4=49):K=(C?3=49|
00001940 29 3a 71 3d 28 43 3f 32 3d 34 39 29 3a f2 43 79 |):q=(C?2=49):.Cy|
00001950 0d 00 d3 24 cd 3a 53 79 3d bb 28 a4 45 28 22 42 |...$.:Sy=.(.E("B|
00001960 75 66 66 65 72 4c 65 6e 67 74 68 22 29 29 3a e7 |ufferLength")):.|
00001970 66 8c f2 4f 0d 00 d4 4b 73 79 3d 53 79 3a 54 79 |f..O...Ksy=Sy:Ty|
00001980 3d 48 3a e7 a4 45 28 22 4e 6f 72 6d 46 6f 6e 74 |=H:..E("NormFont|
00001990 22 29 3c 3e 4a 24 84 a4 45 28 22 48 65 61 64 46 |")<>J$..E("HeadF|
000019a0 6f 6e 74 22 29 3c 3e 50 24 84 bb 28 a4 45 28 22 |ont")<>P$..(.E("|
000019b0 46 6f 6e 74 53 69 7a 65 22 29 29 3c 3e 6a 8c 0d |FontSize"))<>j..|
000019c0 00 d5 13 f2 52 3a f2 59 3a e7 45 79 8c f2 61 3a |....R:.Y:.Ey..a:|
000019d0 f2 68 0d 00 d6 14 cd 3a e7 61 8c c8 99 26 34 30 |.h.....:.a...&40|
000019e0 30 63 35 2c 2c 53 0d 00 d7 05 e1 0d 00 d8 44 dd |0c5,,S........D.|
000019f0 f2 56 3a f2 41 28 22 4f 70 74 69 6f 6e 73 22 2c |.V:.A("Options",|
00001a00 22 37 22 29 3a 48 3d 37 3a 56 3d b9 3a 71 3d b9 |"7"):H=7:V=.:q=.|
00001a10 3a 4b 3d b9 3a 66 3d b9 3a 73 3d b9 3a 78 3d b9 |:K=.:f=.:s=.:x=.|
00001a20 3a f2 71 3a 6e 3d b9 3a f2 4f 3a f2 4b 3a e1 0d |:.q:n=.:.O:.K:..|
00001a30 00 d9 48 dd a4 45 28 4d 24 29 3a ea 48 5f 3a c8 |..H..E(M$):.H_:.|
00001a40 99 26 32 30 30 32 33 2c 22 53 6d 61 72 74 51 75 |.&20023,"SmartQu|
00001a50 6f 74 65 73 22 2b 22 24 22 2b 4d 24 2c 45 2c 26 |otes"+"$"+M$,E,&|
00001a60 66 66 2c 30 2c 33 b8 2c 2c 48 5f 3a 45 3f 48 5f |ff,0,3.,,H_:E?H_|
00001a70 3d 26 64 3a 3d 24 45 0d 00 da 70 dd f2 6c 3a ea |=&d:=$E...p..l:.|
00001a80 41 3a 41 3d 45 21 32 30 3a d5 23 41 2c 58 24 3a |A:A=E!20:.#A,X$:|
00001a90 f2 42 28 22 4f 70 74 69 6f 6e 73 22 29 3a f2 42 |.B("Options"):.B|
00001aa0 28 22 4f 70 65 6e 44 6f 75 62 6c 65 22 29 3a f2 |("OpenDouble"):.|
00001ab0 42 28 22 43 6c 6f 73 65 64 44 6f 75 62 6c 65 22 |B("ClosedDouble"|
00001ac0 29 3a f2 42 28 22 4f 70 65 6e 53 69 6e 67 6c 65 |):.B("OpenSingle|
00001ad0 22 29 3a f2 42 28 22 43 6c 6f 73 65 64 53 69 6e |"):.B("ClosedSin|
00001ae0 67 6c 65 22 29 3a e1 0d 00 db 38 dd f2 42 28 4d |gle"):....8..B(M|
00001af0 24 29 3a d5 23 41 2c 22 53 65 74 20 22 2b 22 53 |$):.#A,"Set "+"S|
00001b00 6d 61 72 74 51 75 6f 74 65 73 22 2b 22 24 22 2b |martQuotes"+"$"+|
00001b10 4d 24 2b 22 20 22 2b a4 45 28 4d 24 29 3a e1 0d |M$+" "+.E(M$):..|
00001b20 00 dc 23 dd f2 48 28 4c 24 2c 55 29 3a ea 5f 79 |..#..H(L$,U):._y|
00001b30 3a e7 55 3c 3e 30 8c 21 45 3d 2d 33 8b 21 45 3d |:.U<>0.!E=-3.!E=|
00001b40 2d 37 0d 00 dd 66 45 21 34 3d 30 3a 45 21 38 3d |-7...fE!4=0:E!8=|
00001b50 30 3a 45 21 26 63 3d 34 35 2a 32 3a 45 21 31 36 |0:E!&c=45*2:E!16|
00001b60 3d 39 36 3a 45 21 32 30 3d 26 33 31 30 61 3a 45 |=96:E!20=&310a:E|
00001b70 21 32 34 3d 52 3a 24 52 3d 4c 24 3a 45 21 32 38 |!24=R:$R=L$:E!28|
00001b80 3d 45 25 3a 45 21 33 32 3d 26 64 3a c8 99 26 36 |=E%:E!32=&d:..&6|
00001b90 30 30 63 32 2c 55 2c 45 b8 5f 3b 5f 79 3a e7 28 |00c2,U,E._;_y:.(|
00001ba0 5f 79 80 31 29 3e 30 8c 0d 00 de 19 21 45 3d 2d |_y.1)>0.....!E=-|
00001bb0 37 3a c8 99 26 34 30 30 63 32 2c 30 2c 62 5f 20 |7:..&400c2,0,b_ |
00001bc0 5f 0d 00 df 07 cd 3a e1 0d 00 e0 72 dd f2 55 79 |_.....:....r..Uy|
00001bd0 28 5a 24 29 3a ea 41 25 2c 5a 25 2c 52 79 2c 42 |(Z$):.A%,Z%,Ry,B|
00001be0 24 3a c8 99 26 34 30 30 66 32 2c 32 b8 52 79 3a |$:..&400f2,2.Ry:|
00001bf0 42 24 3d 22 22 3a c8 95 3f 52 79 3c 3e 30 3a 42 |B$="":..?Ry<>0:B|
00001c00 24 2b 3d bd 28 3f 52 79 29 3a 52 79 2b 3d 31 3a |$+=.(?Ry):Ry+=1:|
00001c10 ce 3a f2 64 28 22 53 70 72 69 74 65 73 22 29 3a |.:.d("Sprites"):|
00001c20 41 25 3d 8e 28 5a 24 2b 42 24 29 3a e7 41 25 3d |A%=.(Z$+B$):.A%=|
00001c30 30 8c 41 25 3d 8e 28 5a 24 29 0d 00 e1 53 5a 25 |0.A%=.(Z$)...SZ%|
00001c40 3d a2 23 41 25 2b 31 36 3a d9 23 41 25 3a de 45 |=.#A%+16:.#A%:.E|
00001c50 25 5a 25 3a 21 45 25 3d 5a 25 3a 45 25 21 38 3d |%Z%:!E%=Z%:E%!8=|
00001c60 31 36 3a c8 99 34 36 2c 32 35 36 2b 39 2c 45 25 |16:..46,256+9,E%|
00001c70 3a c8 99 34 36 2c 32 35 36 2b 26 61 2c 45 25 2c |:..46,256+&a,E%,|
00001c80 5a 24 3a ee 85 ee 85 87 3a f2 4e 3a e0 0d 00 e2 |Z$:.....:.N:....|
00001c90 05 e1 0d 00 e3 1d dd f2 4f 3a e7 53 79 3d 30 80 |........O:.Sy=0.|
00001ca0 73 79 3c 3e 30 80 28 56 84 4b 29 8c 6e 3d b9 0d |sy<>0.(V.K).n=..|
00001cb0 00 e4 0e e7 48 3d 54 79 80 ac 6e 8c e1 0d 00 e5 |....H=Ty..n.....|
00001cc0 14 6e 3d a3 3a e7 53 79 3d 30 80 73 79 3c 3e 30 |.n=.:.Sy=0.sy<>0|
00001cd0 8c 0d 00 e6 12 24 52 3d 22 64 75 6e 6e 6f 22 3a |.....$R="dunno":|
00001ce0 6e 3d b9 0d 00 e7 21 cc 3a e7 56 8c 24 52 3d 22 |n=....!.:.V.$R="|
00001cf0 64 6f 70 65 6e 22 8b 24 52 3d 22 64 6e 65 75 74 |dopen".$R="dneut|
00001d00 72 61 6c 22 0d 00 e8 0a cd 3a f2 6a 3a e1 0d 00 |ral".....:.j:...|
00001d10 e9 3e dd f2 6a 3a 21 45 3d 58 3a 45 21 34 3d 5f |.>..j:!E=X:E!4=_|
00001d20 3a c8 99 26 34 30 30 63 65 2c 2c 45 3a c8 99 26 |:..&400ce,,E:..&|
00001d30 34 30 30 64 31 2c 58 2c 45 21 38 2c 45 21 26 63 |400d1,X,E!8,E!&c|
00001d40 2c 45 21 31 36 2c 45 21 32 30 3a e1 0d 00 ea 1a |,E!16,E!20:.....|
00001d50 dd f2 57 79 3a 24 52 3d 22 21 71 75 6f 74 65 73 |..Wy:$R="!quotes|
00001d60 22 3a f2 6a 3a e1 0d 00 eb 58 dd f2 6b 3a ea 76 |":.j:....X..k:.v|
00001d70 2c 42 79 2c 61 5f 3a f2 64 28 22 54 65 6d 70 6c |,By,a_:.d("Templ|
00001d80 61 74 65 73 22 29 3a c8 99 26 34 30 30 64 39 2c |ates"):..&400d9,|
00001d90 2c 43 24 2b 22 2e 54 65 6d 70 6c 61 74 65 73 22 |,C$+".Templates"|
00001da0 3a c8 99 26 34 30 30 65 63 2c 2d 31 2c 2d 31 b8 |:..&400ec,-1,-1.|
00001db0 61 5f 2c 2c 42 79 3a e7 42 79 3c 3e 30 8c 0d 00 |a_,,By:.By<>0...|
00001dc0 ec 1e 76 3d 93 3a e7 42 79 3e 33 32 2a 26 34 30 |..v=.:.By>32*&40|
00001dd0 30 8c 42 79 3d 33 32 2a 26 34 30 30 0d 00 ed 0d |0.By=32*&400....|
00001de0 e0 3d 90 2b 61 5f 2b 42 79 0d 00 ee 09 cc 3a 76 |.=.+a_+By.....:v|
00001df0 3d 30 0d 00 ef 93 cd 3a f2 43 28 22 43 6f 6e 74 |=0.....:.C("Cont|
00001e00 72 6f 6c 22 2c 45 25 2c 47 29 3a f2 43 28 22 45 |rol",E%,G):.C("E|
00001e10 64 69 74 64 69 70 68 22 2c 45 25 2c 46 29 3a f2 |ditdiph",E%,F):.|
00001e20 43 28 22 45 78 70 61 6e 64 22 2b 22 73 22 2c 31 |C("Expand"+"s",1|
00001e30 2c 4a 29 3a f2 43 28 22 49 6e 66 6f 22 2c 31 2c |,J):.C("Info",1,|
00001e40 56 79 29 3a f2 43 28 22 43 68 61 72 73 22 2c 31 |Vy):.C("Chars",1|
00001e50 2c 57 29 3a f2 43 28 22 43 68 6f 69 63 65 73 22 |,W):.C("Choices"|
00001e60 2c 31 2c 59 29 3a f2 43 28 22 49 63 6f 6e 57 69 |,1,Y):.C("IconWi|
00001e70 6e 64 6f 77 22 2c 45 25 2c 54 29 3a e7 76 3c 3e |ndow",E%,T):.v<>|
00001e80 30 8c e0 3d 76 0d 00 f0 17 c8 99 26 34 30 30 64 |0..=v......&400d|
00001e90 61 3a ee 85 ee 85 87 3a f2 4e 3a e0 0d 00 f1 db |a:.....:.N:.....|
00001ea0 21 45 3d 56 79 3a c8 99 26 34 30 30 63 63 2c 2c |!E=Vy:..&400cc,,|
00001eb0 45 84 31 3a e7 45 21 38 38 3e 26 61 8c f2 53 28 |E.1:.E!88>&a..S(|
00001ec0 22 54 68 69 73 20 69 73 20 61 6e 20 75 6e 72 65 |"This is an unre|
00001ed0 67 69 73 74 65 72 65 64 20 63 6f 70 79 20 6f 66 |gistered copy of|
00001ee0 20 22 2b 22 53 6d 61 72 74 20 51 75 6f 74 65 73 | "+"Smart Quotes|
00001ef0 22 2b 22 2e 20 41 66 74 65 72 20 61 20 66 6f 72 |"+". After a for|
00001f00 74 6e 69 67 68 74 27 73 20 65 76 61 6c 75 61 74 |tnight's evaluat|
00001f10 69 6f 6e 20 70 65 72 69 6f 64 2c 20 79 6f 75 20 |ion period, you |
00001f20 6d 75 73 74 20 65 69 74 68 65 72 20 72 65 67 69 |must either regi|
00001f30 73 74 65 72 20 6f 72 20 64 65 73 74 72 6f 79 20 |ster or destroy |
00001f40 74 68 69 73 20 63 6f 70 79 2e 20 53 65 65 20 94 |this copy. See .|
00001f50 44 6f 63 73 2e 52 65 67 69 73 74 65 72 95 20 66 |Docs.Register. f|
00001f60 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e |or more details.|
00001f70 22 2c 2d 31 2c 30 29 0d 00 f2 05 e1 0d 00 f3 43 |",-1,0)........C|
00001f80 dd f2 43 28 53 24 2c 60 79 2c f8 4e 29 3a ea 51 |..C(S$,`y,.N):.Q|
00001f90 2c 55 2c 70 79 2c 79 79 2c 43 2c 46 5f 3a c8 99 |,U,py,yy,C,F_:..|
00001fa0 26 34 30 30 64 62 2c 2c 2d 31 2c 2c 2c 2c 53 24 |&400db,,-1,,,,S$|
00001fb0 2c 30 b8 2c 70 79 2c 79 79 3a e7 76 3d 30 8c 0d |,0.,py,yy:.v=0..|
00001fc0 00 f4 09 de 43 20 70 79 0d 00 f5 09 cc 3a 43 3d |....C py.....:C=|
00001fd0 76 0d 00 f6 41 cd 3a de 46 5f 20 79 79 3a c8 99 |v...A.:.F_ yy:..|
00001fe0 26 34 30 30 64 62 2c 2c 43 2c 46 5f 2c 46 5f 2b |&400db,,C,F_,F_+|
00001ff0 79 79 2c 2d 31 2c 53 24 2c 30 3a 43 21 36 34 3d |yy,-1,S$,0:C!64=|
00002000 60 79 3a e7 53 24 3d 22 45 64 69 74 64 69 70 68 |`y:.S$="Editdiph|
00002010 22 8c 0d 00 f7 40 e3 51 3d 30 b8 31 3a 55 3d 43 |"....@.Q=0.1:U=C|
00002020 2b 28 26 36 38 2b 51 2a 33 32 29 3a 21 55 3d 28 |+(&68+Q*32):!U=(|
00002030 28 21 55 80 28 28 31 3c 3c 32 34 29 2d 31 29 29 |(!U.((1<<24)-1))|
00002040 84 28 31 3c 3c 36 29 29 2b 28 4c 3c 3c 32 34 29 |.(1<<6))+(L<<24)|
00002050 3a ed 0d 00 f8 12 cd 3a e7 53 24 3d 22 43 68 61 |:......:.S$="Cha|
00002060 72 73 22 8c 0d 00 f9 41 e3 51 3d 38 b8 26 62 3a |rs"....A.Q=8.&b:|
00002070 55 3d 43 2b 28 26 36 38 2b 51 2a 33 32 29 3a 21 |U=C+(&68+Q*32):!|
00002080 55 3d 28 28 21 55 80 28 28 31 3c 3c 32 34 29 2d |U=((!U.((1<<24)-|
00002090 31 29 29 84 28 31 3c 3c 36 29 29 2b 28 4c 3c 3c |1)).(1<<6))+(L<<|
000020a0 32 34 29 3a ed 0d 00 fa 17 cd 3a e7 53 24 3d 22 |24):......:.S$="|
000020b0 49 63 6f 6e 57 69 6e 64 6f 77 22 8c 0d 00 fb 1d |IconWindow".....|
000020c0 43 21 26 36 63 3d 52 3a 43 21 26 37 30 3d 60 79 |C!&6c=R:C!&70=`y|
000020d0 3a 43 21 26 37 34 3d 26 64 0d 00 fc 15 cd 3a c8 |:C!&74=&d.....:.|
000020e0 99 26 34 30 30 63 31 2c 2c 76 b8 4e 3a e1 0d 00 |.&400c1,,v.N:...|
000020f0 fd 80 dd f2 78 28 f8 63 2c 47 24 2c 79 5f 2c 63 |....x(.c,G$,y_,c|
00002100 5f 29 3a de 63 20 32 38 2b 79 5f 2a 32 34 3a de |_):.c 28+y_*24:.|
00002110 43 a9 20 28 47 24 29 2b 31 3a 24 43 3d 47 24 3a |C. (G$)+1:$C=G$:|
00002120 21 63 3d 43 3a 63 21 34 3d 65 79 3a 63 21 38 3d |!c=C:c!4=ey:c!8=|
00002130 a9 28 47 24 29 2b 31 3a 63 21 26 63 3d 26 37 30 |.(G$)+1:c!&c=&70|
00002140 32 30 37 3a 63 21 31 36 3d 31 36 2b 63 5f 2a 31 |207:c!16=16+c_*1|
00002150 36 3a 63 21 32 30 3d 34 34 3a 63 21 32 34 3d 30 |6:c!20=44:c!24=0|
00002160 3a 49 3d 63 2b 32 38 3a 52 5f 3d b9 3a e1 0d 00 |:I=c+28:R_=.:...|
00002170 fe 36 dd f2 5a 28 46 24 2c 72 5f 29 3a ea 43 3a |.6..Z(F$,r_):.C:|
00002180 21 49 3d 30 3a 49 21 34 3d 72 5f 3a 49 21 38 3d |!I=0:I!4=r_:I!8=|
00002190 26 37 30 30 30 30 32 31 3a e7 52 5f 8c 21 49 3d |&7000021:.R_.!I=|
000021a0 31 3c 3c 38 0d 00 ff 0f e7 a9 28 46 24 29 3c 3d |1<<8......(F$)<=|
000021b0 26 63 8c 0d 01 00 0e 24 28 49 2b 26 63 29 3d 46 |&c.....$(I+&c)=F|
000021c0 24 0d 01 01 3b cc 3a de 43 a9 20 28 46 24 29 2b |$...;.:.C. (F$)+|
000021d0 31 3a 24 43 3d 46 24 3a 49 21 26 63 3d 43 3a 49 |1:$C=F$:I!&c=C:I|
000021e0 21 31 36 3d 65 79 3a 49 21 32 30 3d a9 28 46 24 |!16=ey:I!20=.(F$|
000021f0 29 2b 31 3a 49 21 38 2b 3d 32 5e 38 0d 01 02 0d |)+1:I!8+=2^8....|
00002200 cd 3a 49 2b 3d 32 34 3a e1 0d 01 03 16 dd f2 62 |.:I+=24:.......b|
00002210 3a 49 21 28 2d 32 34 29 3d 31 3c 3c 37 3a e1 0d |:I!(-24)=1<<7:..|
00002220 01 04 f3 dd f2 6f 3a ea 43 2c 49 3a f2 78 28 72 |.....o:.C,I:.x(r|
00002230 79 2c 22 53 6d 61 72 74 20 51 75 6f 74 65 73 22 |y,"Smart Quotes"|
00002240 2c 36 2c 26 64 29 3a f2 5a 28 22 49 6e 66 6f 22 |,6,&d):.Z("Info"|
00002250 2c 56 79 29 3a f2 5a 28 22 53 65 74 74 69 6e 67 |,Vy):.Z("Setting|
00002260 73 2e 2e 2e 22 2c 2d 31 29 3a f2 5a 28 22 43 68 |s...",-1):.Z("Ch|
00002270 6f 69 63 65 73 22 2b 22 2e 2e 2e 22 2c 2d 31 29 |oices"+"...",-1)|
00002280 3a f2 5a 28 22 43 68 61 72 61 63 74 65 72 73 2e |:.Z("Characters.|
00002290 2e 2e 22 2c 2d 31 29 3a f2 5a 28 22 45 78 70 61 |..",-1):.Z("Expa|
000022a0 6e 64 22 2b 22 73 2e 2e 2e 22 2c 2d 31 29 3a f2 |nd"+"s...",-1):.|
000022b0 5a 28 22 51 75 69 74 22 2c 2d 31 29 3a f2 62 3a |Z("Quit",-1):.b:|
000022c0 f2 78 28 75 2c 22 45 78 70 61 6e 64 22 2c 35 2c |.x(u,"Expand",5,|
000022d0 26 61 29 3a f2 5a 28 22 45 64 69 74 2e 2e 2e 22 |&a):.Z("Edit..."|
000022e0 2c 2d 31 29 3a f2 5a 28 22 41 64 64 2e 2e 2e 22 |,-1):.Z("Add..."|
000022f0 2c 2d 31 29 3a f2 5a 28 22 44 65 6c 65 74 65 22 |,-1):.Z("Delete"|
00002300 2c 2d 31 29 3a f2 5a 28 22 53 61 76 65 22 2c 2d |,-1):.Z("Save",-|
00002310 31 29 0d 01 05 19 f2 5a 28 22 52 65 66 72 65 73 |1).....Z("Refres|
00002320 68 22 2c 2d 31 29 3a f2 62 3a e1 0d 01 06 2c dd |h",-1):.b:....,.|
00002330 a4 5a 28 6d 29 3a ea 45 24 3a c8 95 3f 6d 3e 3d |.Z(m):.E$:..?m>=|
00002340 33 32 3a 45 24 2b 3d bd 28 3f 6d 29 3a 6d 2b 3d |32:E$+=.(?m):m+=|
00002350 31 3a ce 3a 3d 45 24 0d 01 07 36 dd f2 5a 79 3a |1:.:=E$...6..Zy:|
00002360 ea 44 24 2c 55 3a 44 24 3d a4 5a 28 45 2b 32 38 |.D$,U:D$=.Z(E+28|
00002370 29 3a e7 44 24 3d 22 53 6d 61 72 74 20 51 75 6f |):.D$="Smart Quo|
00002380 74 65 73 22 80 45 21 34 3c 3e 6b 79 8c 0d 01 08 |tes".E!4<>ky....|
00002390 0a 73 3d a3 3a f2 57 0d 01 09 07 cd 3a e1 0d 01 |.s=.:.W.....:...|
000023a0 0a 8c dd f2 68 3a ea 6f 79 2c 5f 5f 2c 71 5f 2c |....h:.oy,__,q_,|
000023b0 74 2c 4f 79 2c 7a 2c 44 2c 42 2c 4f 2c 4d 3a c8 |t,Oy,z,D,B,O,M:.|
000023c0 99 26 34 30 30 63 38 2c 2c 45 b8 6f 79 3a c8 95 |.&400c8,,E.oy:..|
000023d0 6f 79 3a c8 99 26 34 30 30 65 36 2c 37 3a 4f 3d |oy:..&400e6,7:O=|
000023e0 28 45 21 31 36 2d 45 21 32 34 29 3a 5f 5f 3d 45 |(E!16-E!24):__=E|
000023f0 21 33 32 2d 4f 3a 71 5f 3d 45 21 34 30 2d 4f 3a |!32-O:q_=E!40-O:|
00002400 74 3d a8 28 2d 71 5f 2f 64 2d 30 2e 35 29 3a 4f |t=.(-q_/d-0.5):O|
00002410 79 3d a8 28 2d 5f 5f 2f 64 2b 30 2e 39 39 29 3a |y=.(-__/d+0.99):|
00002420 e7 4f 79 3e 50 8c 4f 79 3d 50 0d 01 0b 0c e7 74 |.Oy>P.Oy=P.....t|
00002430 3e 50 8c 74 3d 50 0d 01 0c 0d e7 74 3c 3d 30 8c |>P.t=P.....t<=0.|
00002440 74 3d 30 0d 01 0d 36 44 3d 45 21 34 2b 34 2d 45 |t=0...6D=E!4+4-E|
00002450 21 32 30 3a 4d 3d 28 74 2d 31 29 2a 38 3a e3 7a |!20:M=(t-1)*8:.z|
00002460 3d 74 b8 4f 79 3a 42 3d 4f 2d 38 2d 28 7a 2b 31 |=t.Oy:B=O-8-(z+1|
00002470 29 2a 64 3a e7 7a 3d 30 8c 0d 01 0e 1e f2 73 28 |)*d:.z=0......s(|
00002480 22 46 6f 75 6e 64 22 2c 22 53 75 62 73 74 22 2c |"Found","Subst",|
00002490 44 2c 42 2c 57 79 29 0d 01 0f 1f cc 3a f2 73 28 |D,B,Wy).....:.s(|
000024a0 a4 4d 28 77 2b 4d 29 2c a4 5a 28 79 2b 4d 29 2c |.M(w+M),.Z(y+M),|
000024b0 44 2c 42 2c 4c 29 0d 01 10 1f cd 3a 4d 2b 3d 38 |D,B,L).....:M+=8|
000024c0 3a ed 3a c8 99 26 34 30 30 63 61 2c 2c 45 b8 6f |:.:..&400ca,,E.o|
000024d0 79 3a ce 3a e1 0d 01 11 7e dd f2 73 28 48 24 2c |y:.:....~..s(H$,|
000024e0 54 24 2c 44 2c 42 2c 48 79 29 3a c8 99 26 34 30 |T$,D,B,Hy):..&40|
000024f0 30 38 61 2c 48 79 3a c8 99 26 34 30 37 34 66 2c |08a,Hy:..&4074f,|
00002500 48 79 2c 2d 32 35 36 2c 30 2c 26 65 3a c8 99 26 |Hy,-256,0,&e:..&|
00002510 34 30 30 38 36 2c 48 79 2c 48 24 2c 28 31 3c 3c |40086,Hy,H$,(1<<|
00002520 34 29 2b 28 31 3c 3c 39 29 2c 44 2c 42 3a c8 99 |4)+(1<<9),D,B:..|
00002530 26 34 30 30 38 36 2c 48 79 2c 54 24 2c 28 31 3c |&40086,Hy,T$,(1<|
00002540 3c 34 29 2b 28 31 3c 3c 39 29 2c 44 2b 53 5f 2c |<4)+(1<<9),D+S_,|
00002550 42 3a e1 0d 01 12 23 dd a4 4d 28 6d 29 3a ea 45 |B:....#..M(m):.E|
00002560 24 3a c8 95 3f 6d 3d 30 3a 6d 2b 3d 31 3a ce 3a |$:..?m=0:m+=1:.:|
00002570 3d a4 5a 28 6d 29 0d 01 13 c8 dd f2 61 3a ea 51 |=.Z(m)......a:.Q|
00002580 2c 4f 2c 4d 79 2c 59 79 3a f2 44 28 22 46 6f 75 |,O,My,Yy:.D("Fou|
00002590 6e 64 22 2c 57 79 2c 4d 79 2c 4f 29 3a f2 44 28 |nd",Wy,My,O):.D(|
000025a0 22 53 75 62 73 74 22 2c 57 79 2c 59 79 2c 4f 29 |"Subst",Wy,Yy,O)|
000025b0 3a 50 3d 30 3a 4d 3d 79 3a c8 95 3f 4d 3c 3e 30 |:P=0:M=y:..?M<>0|
000025c0 3a f2 44 28 a4 5a 28 4d 29 2c 4c 2c 59 79 2c 4f |:.D(.Z(M),L,Yy,O|
000025d0 29 3a 4d 2b 3d 38 3a 50 2b 3d 31 3a ce 3a 4d 3d |):M+=8:P+=1:.:M=|
000025e0 77 3a e3 51 3d 31 b8 50 3a f2 44 28 a4 4d 28 4d |w:.Q=1.P:.D(.M(M|
000025f0 29 2c 4c 2c 4d 79 2c 4f 29 3a 4d 2b 3d 38 3a ed |),L,My,O):M+=8:.|
00002600 3a f2 77 28 4f 29 3a f2 77 28 4d 79 29 3a f2 77 |:.w(O):.w(My):.w|
00002610 28 59 79 29 3a 64 3d a8 28 4f 2a 31 2e 32 29 3a |(Yy):d=.(O*1.2):|
00002620 53 5f 3d 4d 79 2b 36 34 3a 42 5f 3d 4d 79 2b 59 |S_=My+64:B_=My+Y|
00002630 79 2b 39 36 3a 45 79 3d b9 3a f2 54 3a e1 0d 01 |y+96:Ey=.:.T:...|
00002640 14 4d dd f2 54 3a ea 43 5f 2c 50 5f 2c 47 5f 2c |.M..T:.C_,P_,G_,|
00002650 41 5f 2c 41 79 2c 55 79 3a 21 45 3d 4a 3a c8 99 |A_,Ay,Uy:!E=J:..|
00002660 26 34 30 30 63 62 2c 2c 45 3a 41 79 3d 45 21 34 |&400cb,,E:Ay=E!4|
00002670 3a 55 79 3d 45 21 31 36 3a e7 28 45 21 33 32 80 |:Uy=E!16:.(E!32.|
00002680 28 31 3c 3c 31 38 29 29 3e 30 8c 0d 01 15 20 43 |(1<<18))>0.... C|
00002690 5f 3d b9 3a 50 5f 3d 45 21 32 30 3a 47 5f 3d 45 |_=.:P_=E!20:G_=E|
000026a0 21 32 34 3a 41 5f 3d 45 21 32 38 0d 01 16 41 cd |!24:A_=E!28...A.|
000026b0 3a 45 21 34 3d 30 3a 45 21 38 3d 2d 28 50 2b 31 |:E!4=0:E!8=-(P+1|
000026c0 29 2a 64 2d 31 36 3a 45 21 26 63 3d 42 5f 3a 45 |)*d-16:E!&c=B_:E|
000026d0 21 31 36 3d 30 3a c8 99 26 34 30 30 64 37 2c 4a |!16=0:..&400d7,J|
000026e0 2c 45 2b 34 3a e7 43 5f 80 45 79 8c 0d 01 17 70 |,E+4:.C_.Ey....p|
000026f0 21 45 3d 4a 3a 45 21 34 2b 3d 41 79 3a 45 21 38 |!E=J:E!4+=Ay:E!8|
00002700 3d 26 38 34 3a 45 21 26 63 2b 3d 41 79 3a 45 21 |=&84:E!&c+=Ay:E!|
00002710 31 36 2b 3d 55 79 3a 45 21 32 30 3d 50 5f 3a 45 |16+=Uy:E!20=P_:E|
00002720 21 32 34 3d 47 5f 3a 45 21 32 38 3d 41 5f 3a c8 |!24=G_:E!28=A_:.|
00002730 99 26 34 30 30 63 35 2c 2c 45 3a 45 21 34 2d 3d |.&400c5,,E:E!4-=|
00002740 41 79 3a 45 21 38 2d 3d 55 79 3a 45 21 26 63 2d |Ay:E!8-=Uy:E!&c-|
00002750 3d 41 79 3a 45 21 31 36 2d 3d 55 79 0d 01 18 24 |=Ay:E!16-=Uy...$|
00002760 cd 3a c8 99 26 34 30 30 64 31 2c 4a 2c 45 21 34 |.:..&400d1,J,E!4|
00002770 2c 45 21 38 2c 45 21 26 63 2c 45 21 31 36 3a e1 |,E!8,E!&c,E!16:.|
00002780 0d 01 19 a4 dd f2 44 28 45 24 2c 4c 2c f8 44 2c |......D(E$,L,.D,|
00002790 f8 42 29 3a ea 51 2c 68 79 2c 62 79 2c 72 3a 72 |.B):.Q,hy,by,r:r|
000027a0 3d 45 2b 26 38 30 3a e3 51 3d 30 b8 26 63 88 34 |=E+&80:.Q=0.&c.4|
000027b0 3a 72 21 51 3d 30 3a ed 3a 72 21 31 36 3d 2d 31 |:r!Q=0:.:r!16=-1|
000027c0 3a c8 99 26 34 30 30 38 61 2c 4c 3a c8 99 26 34 |:..&4008a,L:..&4|
000027d0 30 30 61 31 2c 4c 2c 45 24 2c 28 31 3c 3c 35 29 |00a1,L,E$,(1<<5)|
000027e0 2b 28 31 3c 3c 39 29 2b 28 31 3c 3c 31 38 29 2c |+(1<<9)+(1<<18),|
000027f0 26 63 33 35 30 30 2c 26 63 33 35 30 30 2c 72 3a |&c3500,&c3500,r:|
00002800 68 79 3d 72 21 32 38 2d 72 21 32 30 3a 62 79 3d |hy=r!28-r!20:by=|
00002810 72 21 33 32 2d 72 21 32 34 3a e7 44 3c 68 79 8c |r!32-r!24:.D<hy.|
00002820 44 3d 68 79 0d 01 1a 0e e7 42 3c 62 79 8c 42 3d |D=hy.....B<by.B=|
00002830 62 79 0d 01 1b 05 e1 0d 01 1c 21 dd f2 77 28 f8 |by........!..w(.|
00002840 65 5f 29 3a c8 99 26 34 30 30 38 38 2c 2c 65 5f |e_):..&40088,,e_|
00002850 2c 30 b8 2c 65 5f 3a e1 0d 01 1d 1e dd f2 42 79 |,0.,e_:.......By|
00002860 3a 67 3d a4 41 28 46 2c 30 29 3a 70 3d a4 41 28 |:g=.A(F,0):p=.A(|
00002870 46 2c 31 29 3a e1 0d 01 1e 4a dd f2 59 3a 4a 24 |F,1):....J..Y:J$|
00002880 3d a4 45 28 22 4e 6f 72 6d 46 6f 6e 74 22 29 3a |=.E("NormFont"):|
00002890 50 24 3d a4 45 28 22 48 65 61 64 46 6f 6e 74 22 |P$=.E("HeadFont"|
000028a0 29 3a 6a 3d bb 28 a4 45 28 22 46 6f 6e 74 53 69 |):j=.(.E("FontSi|
000028b0 7a 65 22 29 29 3a e7 6a 3d 30 8c 6a 3d 32 35 36 |ze")):.j=0.j=256|
000028c0 0d 01 1f 3e f2 7a 28 4a 24 2c 4c 2c 22 54 72 69 |...>.z(J$,L,"Tri|
000028d0 6e 69 74 79 2e 4d 65 64 69 75 6d 22 29 3a f2 7a |nity.Medium"):.z|
000028e0 28 50 24 2c 57 79 2c 22 48 6f 6d 65 72 74 6f 6e |(P$,Wy,"Homerton|
000028f0 2e 42 6f 6c 64 22 29 3a 63 79 3d b9 3a e1 0d 01 |.Bold"):cy=.:...|
00002900 20 46 dd f2 7a 28 f8 56 24 2c f8 4c 2c 55 24 29 | F..z(.V$,.L,U$)|
00002910 3a ea 5f 79 3a c8 99 26 36 30 30 38 31 2c 2c 56 |:._y:..&60081,,V|
00002920 24 2c 6a 2c 6a 2c 30 2c 30 b8 4c 3b 5f 79 3a e7 |$,j,j,0,0.L;_y:.|
00002930 28 5f 79 80 31 29 3e 30 8c f2 7a 28 55 24 2c 4c |(_y.1)>0..z(U$,L|
00002940 2c 55 24 29 0d 01 21 05 e1 0d 01 22 0e dd f2 52 |,U$)..!...."...R|
00002950 3a e7 ac 63 79 8c e1 0d 01 23 1c c8 99 26 34 30 |:..cy....#...&40|
00002960 30 38 32 2c 4c 3a c8 99 26 34 30 30 38 32 2c 57 |082,L:..&40082,W|
00002970 79 3a e1 0d 01 24 3f dd a4 53 28 67 5f 29 3a ea |y:...$?..S(g_):.|
00002980 51 5f 3a 21 45 3d 4a 3a c8 99 26 34 30 30 63 62 |Q_:!E=J:..&400cb|
00002990 2c 2c 45 3a 51 5f 3d 67 5f 2d 28 45 21 31 36 2d |,,E:Q_=g_-(E!16-|
000029a0 45 21 32 34 29 2b 31 36 3a 3d a8 28 2d 51 5f 2f |E!24)+16:=.(-Q_/|
000029b0 64 29 0d 01 25 20 dd f2 5f 28 7a 29 3a ea 4d 3a |d)..% .._(z):.M:|
000029c0 e7 28 7a 3c 31 84 7a 3e 50 29 80 7a 3c 3e 2d 31 |.(z<1.z>P).z<>-1|
000029d0 8c e1 0d 01 26 0b e7 7a 3c 3e 2d 31 8c 0d 01 27 |....&..z<>-1...'|
000029e0 23 4d 3d 28 7a 2d 31 29 2a 38 3a 24 67 3d a4 4d |#M=(z-1)*8:$g=.M|
000029f0 28 77 2b 4d 29 3a 24 70 3d a4 5a 28 79 2b 4d 29 |(w+M):$p=.Z(y+M)|
00002a00 0d 01 28 11 cc 3a 24 67 3d 22 22 3a 24 70 3d 22 |..(..:$g="":$p="|
00002a10 22 0d 01 29 41 cd 3a f2 55 28 46 2c 30 29 3a f2 |"..)A.:.U(F,0):.|
00002a20 55 28 46 2c 31 29 3a f2 4a 28 46 29 3a c8 99 26 |U(F,1):.J(F):..&|
00002a30 34 30 30 63 37 2c 26 65 33 39 37 32 2c 45 3a f2 |400c7,&e3972,E:.|
00002a40 58 28 46 2c 30 2c a9 28 24 67 29 29 3a 6f 3d 7a |X(F,0,.($g)):o=z|
00002a50 3a e1 0d 01 2a 12 dd f2 79 3a ea 4d 2c 67 5f 3a |:...*...y:.M,g_:|
00002a60 e7 4a 79 8c 0d 01 2b 32 ff 28 22 41 64 64 45 78 |.Jy...+2.("AddEx|
00002a70 70 61 6e 64 20 2d 66 20 a9 20 2d 72 20 53 4b 31 |pand -f . -r SK1|
00002a80 39 39 35 22 29 3a 50 2b 3d 31 3a 6f 3d 50 3a 4a |995"):P+=1:o=P:J|
00002a90 79 3d a3 3a f2 54 0d 01 2c 76 cd 3a 4d 3d 28 6f |y=.:.T..,v.:M=(o|
00002aa0 2d 31 29 2a 38 3a 24 28 77 2b 4d 2b 38 2d a9 28 |-1)*8:$(w+M+8-.(|
00002ab0 24 67 29 29 3d 24 67 3a 77 3f 28 4d 2b 37 2d a9 |$g))=$g:w?(M+7-.|
00002ac0 28 24 67 29 29 3d 30 3a 77 3f 28 4d 2b 38 29 3d |($g))=0:w?(M+8)=|
00002ad0 30 3a 24 28 79 2b 4d 29 3d 24 70 3a 79 3f 28 4d |0:$(y+M)=$p:y?(M|
00002ae0 2b a9 28 24 70 29 29 3d 30 3a c8 99 26 34 30 30 |+.($p))=0:..&400|
00002af0 64 31 2c 4a 2c 30 2c 2d 28 6f 2b 32 29 2a 64 2c |d1,J,0,-(o+2)*d,|
00002b00 26 38 30 30 30 2c 2d 6f 2a 64 3a e1 0d 01 2d 14 |&8000,-o*d:...-.|
00002b10 dd f2 44 79 3a ea 4d 3a e7 50 3d 26 38 30 8c e1 |..Dy:.M:.P=&80..|
00002b20 0d 01 2e 11 4a 79 3d b9 3a f2 5f 28 2d 31 29 3a |....Jy=.:._(-1):|
00002b30 e1 0d 01 2f 51 dd f2 58 79 28 4a 5f 29 3a ea 51 |.../Q..Xy(J_):.Q|
00002b40 2c 41 2c 5a 24 3a 5a 24 3d 22 50 69 70 65 3a 24 |,A,Z$:Z$="Pipe:$|
00002b50 2e 45 78 70 61 6e 64 73 22 3a 41 3d ae 28 5a 24 |.Expands":A=.(Z$|
00002b60 29 3a c8 99 26 34 30 36 63 30 3a e3 51 3d 31 b8 |):..&406c0:.Q=1.|
00002b70 50 3a e7 51 3c 3e 4a 5f 8c d5 23 41 2c a4 46 28 |P:.Q<>J_..#A,.F(|
00002b80 51 29 0d 01 30 28 c8 99 26 34 30 36 63 34 2c 51 |Q)..0(..&406c4,Q|
00002b90 2f 50 2a 26 36 34 3a ed 3a d9 23 41 3a 2a 43 6c |/P*&64:.:.#A:*Cl|
00002ba0 65 61 72 45 78 70 61 6e 64 73 0d 01 31 24 ff 28 |earExpands..1$.(|
00002bb0 22 4f 62 65 79 20 22 2b 5a 24 29 3a c8 99 26 34 |"Obey "+Z$):..&4|
00002bc0 30 36 63 31 3a 50 2d 3d 31 3a f2 54 3a e1 0d 01 |06c1:P-=1:.T:...|
00002bd0 32 58 dd f2 45 79 3a ea 41 2c 51 3a ea 85 3a ee |2X..Ey:.A,Q:..:.|
00002be0 85 ea f7 85 3a f2 53 28 22 43 6f 75 6c 64 6e 91 |....:.S("Couldn.|
00002bf0 74 20 73 61 76 65 20 22 2b 22 45 78 70 61 6e 64 |t save "+"Expand|
00002c00 22 2b 22 73 20 66 69 6c 65 3a 20 22 2b f6 24 2b |"+"s file: "+.$+|
00002c10 22 20 28 22 2b c3 28 9e 29 2b 22 29 2e 22 2c 2d |" ("+.(.)+").",-|
00002c20 31 2c 30 29 3a e1 0d 01 33 68 41 3d ae 28 41 24 |1,0):...3hA=.(A$|
00002c30 2b 22 2e 22 2b 22 45 78 70 61 6e 64 22 2b 22 73 |+"."+"Expand"+"s|
00002c40 22 29 3a ee 85 ea f7 85 3a d9 23 41 3a f2 53 28 |"):.....:.#A:.S(|
00002c50 22 43 6f 75 6c 64 6e 91 74 20 73 61 76 65 20 22 |"Couldn.t save "|
00002c60 2b 22 45 78 70 61 6e 64 22 2b 22 73 20 66 69 6c |+"Expand"+"s fil|
00002c70 65 3a 20 22 2b f6 24 2b 22 20 28 22 2b c3 28 9e |e: "+.$+" ("+.(.|
00002c80 29 2b 22 29 2e 22 2c 2d 31 2c 30 29 3a e1 0d 01 |)+").",-1,0):...|
00002c90 34 5c d5 23 41 2c 22 43 6c 65 61 72 22 2b 22 45 |4\.#A,"Clear"+"E|
00002ca0 78 70 61 6e 64 22 2b 22 73 22 3a e3 51 3d 31 b8 |xpand"+"s":.Q=1.|
00002cb0 50 3a d5 23 41 2c a4 46 28 51 29 3a ed 3a d9 23 |P:.#A,.F(Q):.:.#|
00002cc0 41 3a ff 28 22 53 65 74 54 79 70 65 20 22 2b 41 |A:.("SetType "+A|
00002cd0 24 2b 22 2e 22 2b 22 45 78 70 61 6e 64 22 2b 22 |$+"."+"Expand"+"|
00002ce0 73 20 4f 62 65 79 22 29 3a e1 0d 01 35 5a dd a4 |s Obey"):...5Z..|
00002cf0 46 28 4a 5f 29 3a ea 4d 3a 4d 3d 28 4a 5f 2d 31 |F(J_):.M:M=(J_-1|
00002d00 29 2a 38 3a 3d 22 41 64 64 22 2b 22 45 78 70 61 |)*8:="Add"+"Expa|
00002d10 6e 64 22 2b 22 20 2d 66 20 22 22 22 2b a4 43 28 |nd"+" -f """+.C(|
00002d20 a4 4d 28 77 2b 4d 29 29 2b 22 22 22 20 2d 72 20 |.M(w+M))+""" -r |
00002d30 22 22 22 2b a4 43 28 a4 5a 28 79 2b 4d 29 29 2b |"""+.C(.Z(y+M))+|
00002d40 22 22 22 22 0d 01 36 20 dd a4 43 28 45 24 29 3a |""""..6 ..C(E$):|
00002d50 3d a4 4a 28 a4 4a 28 45 24 2c 22 25 22 29 2c 22 |=.J(.J(E$,"%"),"|
00002d60 22 22 22 29 0d 01 37 4b dd a4 4a 28 45 24 2c 4e |""")..7K..J(E$,N|
00002d70 24 29 3a ea 55 3a 55 3d a7 45 24 2c 4e 24 29 3a |$):.U:U=.E$,N$):|
00002d80 c8 95 55 3e 30 3a 45 24 3d c0 45 24 2c 55 29 2b |..U>0:E$=.E$,U)+|
00002d90 4e 24 2b c1 45 24 2c 55 2b 31 29 3a 55 3d a7 45 |N$+.E$,U+1):U=.E|
00002da0 24 2c 4e 24 2c 55 2b 32 29 3a ce 3a 3d 45 24 0d |$,N$,U+2):.:=E$.|
00002db0 01 38 2e dd f2 4a 79 3a c8 99 26 32 30 30 30 35 |.8...Jy:..&20005|
00002dc0 2c 22 52 75 6e 20 22 2b 41 24 2b 22 2e 22 2b 22 |,"Run "+A$+"."+"|
00002dd0 45 78 70 61 6e 64 22 2b 22 73 22 3a e1 0d 01 39 |Expand"+"s":...9|
00002de0 8d dd f2 63 3a 21 45 3d 58 3a c8 99 26 34 30 30 |...c:!E=X:..&400|
00002df0 63 62 2c 2c 45 3a 45 21 33 36 3d 58 3a 45 21 34 |cb,,E:E!36=X:E!4|
00002e00 30 3d 5f 3a c8 99 26 34 30 30 63 65 2c 2c 45 2b |0=_:..&400ce,,E+|
00002e10 33 36 3a 45 21 34 34 2b 3d 45 21 34 2d 45 21 32 |36:E!44+=E!4-E!2|
00002e20 30 3a 45 21 34 38 2b 3d 45 21 31 36 2d 45 21 32 |0:E!48+=E!16-E!2|
00002e30 34 3a 45 21 35 32 2b 3d 45 21 34 2d 45 21 32 30 |4:E!52+=E!4-E!20|
00002e40 3a 45 21 35 36 2b 3d 45 21 31 36 2d 45 21 32 34 |:E!56+=E!16-E!24|
00002e50 3a c8 99 26 34 32 34 30 30 2c 26 38 30 2c 45 25 |:..&42400,&80,E%|
00002e60 2c 24 52 2c 45 2b 34 34 3a e1 0d 01 3a 40 dd f2 |,$R,E+44:...:@..|
00002e70 60 3a ea 78 79 2c 69 79 2c 5a 3a ea 56 5f 2c 4b |`:.xy,iy,Z:.V_,K|
00002e80 79 2c 6e 79 2c 6a 79 2c 75 79 3a c8 99 26 34 30 |y,ny,jy,uy:..&40|
00002e90 30 63 66 2c 2c 45 3a 78 79 3d 21 45 3a 69 79 3d |0cf,,E:xy=!E:iy=|
00002ea0 45 21 34 3a e7 58 3d 2d 32 8c 0d 01 3b 1b 21 45 |E!4:.X=-2...;.!E|
00002eb0 3d 2d 32 3a 45 21 34 3d 5f 3a c8 99 26 34 30 30 |=-2:E!4=_:..&400|
00002ec0 63 34 2c 2c 45 0d 01 3c 10 cd 3a e7 45 21 26 63 |c4,,E..<..:.E!&c|
00002ed0 3c 3e 2d 32 8c 0d 01 3d 5e 21 53 3d 54 3a c8 99 |<>-2...=^!S=T:..|
00002ee0 26 34 30 30 63 62 2c 2c 53 3a 53 21 34 3d 78 79 |&400cb,,S:S!4=xy|
00002ef0 2d 34 30 3a 53 21 38 3d 69 79 2d 34 30 3a 53 21 |-40:S!8=iy-40:S!|
00002f00 26 63 3d 78 79 2b 34 30 3a 53 21 31 36 3d 69 79 |&c=xy+40:S!16=iy|
00002f10 2b 34 30 3a 53 21 32 38 3d 2d 31 3a c8 99 26 34 |+40:S!28=-1:..&4|
00002f20 30 30 63 35 2c 2c 53 3a 58 3d 54 3a 61 3d b9 3a |00c5,,S:X=T:a=.:|
00002f30 5f 3d 30 0d 01 3e 16 cc 3a 5a 3d 45 21 31 36 3a |_=0..>..:Z=E!16:|
00002f40 e7 5a 3d 5f 8c 5a 3d 2d 31 0d 01 3f 09 e7 5a 3c |.Z=_.Z=-1..?..Z<|
00002f50 30 8c 0d 01 40 4f 6e 79 3d 30 3a 6a 79 3d 26 38 |0...@Ony=0:jy=&8|
00002f60 30 30 30 3a 21 45 3d 2d 32 3a c8 99 26 34 30 30 |000:!E=-2:..&400|
00002f70 63 63 2c 2c 45 84 31 3a 75 79 3d 78 79 2d 45 21 |cc,,E.1:uy=xy-E!|
00002f80 34 2b 45 21 32 30 3a 56 5f 3d 45 21 38 38 3a e3 |4+E!20:V_=E!88:.|
00002f90 4b 79 3d 30 b8 56 5f 2d 31 3a e7 4b 79 3c 3e 5f |Ky=0.V_-1:.Ky<>_|
00002fa0 8c 0d 01 41 25 45 21 34 3d 4b 79 3a c8 99 26 34 |...A%E!4=Ky:..&4|
00002fb0 30 30 63 65 2c 2c 45 3a e7 94 28 45 21 38 2d 75 |00ce,,E:..(E!8-u|
00002fc0 79 29 3c 6a 79 8c 0d 01 42 16 6a 79 3d 94 28 45 |y)<jy...B.jy=.(E|
00002fd0 21 38 2d 75 79 29 3a 6e 79 3d 4b 79 0d 01 43 05 |!8-uy):ny=Ky..C.|
00002fe0 cd 0d 01 44 15 cd 3a ed 3a 5a 3d 6e 79 3a e7 5a |...D..:.:Z=ny:.Z|
00002ff0 3c 30 8c 5a 3d 30 0d 01 45 13 cd 3a f2 48 28 24 |<0.Z=0..E..:.H($|
00003000 52 2c 5a 29 3a 58 3d 2d 32 0d 01 46 07 cd 3a e1 |R,Z):X=-2..F..:.|
00003010 0d ff |..|
00003012 
.