Home » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars » StarInfo/L-Jones/!Quotes/!RunImage

StarInfo/L-Jones/!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 » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars
Filename: StarInfo/L-Jones/!Quotes/!RunImage
Read OK:
File size: 112D bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > !RunImage
   20REM   Smart Quotes
   30REM   The Flying Pig!
   40REM   26/7/1994 Version 1.00
   50
   60a$="<Obey$Dir>.Sprites":b$=a$
   70SYS"XWimp_ReadSysInfo",2 TO R0;V:IF(V AND 1)=0 a$+=CHR$?R0+CHR$R0?1
   80S%=OPENINa$:IFS%=0 a$=b$:S%=OPENINa$
   90T%=EXT#S%+16:CLOSE#S%
  100DIMsprites%T%
  110!sprites%=T%:sprites%!8=1
  120SYS"OS_SpriteOp",&109,sprites%
  130SYS"OS_SpriteOp",&10A,sprites%,a$
  140
  150DIMq%768,d%512,aa%-1,link%(128),e%256
  160!q%=10:q%!4=1282:q%!8=0:N$="<Obey$Dir>.Messages"
  170SYS30,6,,,17+LEN(N$)TO,,k%:$(k%+16)=N$:SYS267521,k%,k%+16,0
  180j$=FNa("Tsk"):SYS262336,300,1263747412,j$,q%TOz%,ca%:e=0:p=12:q=4:r=2:f=7:g=7:s=13:t=12
  190PROCset:IFz%>=310DIMI%128
  200SYS262361,,"<Obey$Dir>.Templates"
  210g%=FNc("Insert"):DIMJ%g%:SYS262363,,q%,J%,J%+g%,-1,"Insert",0TO,,,,,,F%:IFF%=0THENSYS262362:ERROR1,FNb("TNF","Insert"):PROCc:END
  220FORa%=0TO5:q%!(112+a%*32)=sprites%:NEXT
  230SYS262337,,q%TOf%:g%=FNc("Info"):DIMK%g%:SYS262363,,q%,K%,K%+g%,-1,"Info",0TO,,,,,,F%:IFF%=0THENSYS262362:ERROR1,FNb("TNF","Info"):PROCc:END
  240SYS262337,,q%TOM%:SYS262362:ONERRORPROCerror
  250da%=FNicon(1):SYSc,,-1
  260OSCLI("RmEnsure SmartQuotes 1.00 RmRun <Obey$Dir>.SmartQuote")
  270OSCLI("Quotes ON"):convert%=TRUE
  280:
  290REPEAT:SYSpoll%,0,q%TOA%:CASEA%OF
  300WHEN2:SYS&400C5,,q%
  310WHEN3:SYSclose,,q%
  320WHEN6:PROCmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
  330WHEN9:PROCmenu(q%)
  340WHEN17,18:PROCreceive(q%)
  350ENDCASE
  360UNTILFALSE
  370:
  380DEFPROCreceive(q%):CASEq%!16OF
  390WHEN0:PROCend:END
  400WHEN1282:PROChelp
  410ENDCASE
  420ENDPROC
  430:
  440DEFFNc(o$):LOCALN%:SYS262363,,0,,,,o$,0TO,,N%:=N%
  450:
  460DEFPROCmouse(D%,O%,b%,a%,w%,V%)
  470!q%=f%:SYSwinfo,,q%
  480CASEa%OF
  490WHEN-2
  500IF(b%AND2)THEN
  510PROCcmenu(101,FNa("M1"),FNa("M2"))
  520ENDIF
  530IF(b%AND1)q%!28=-1:SYS&400C5,,q%
  540IF(b%AND4)PROCconvert
  550WHENf%
  560IF(b%AND5)THEN
  570CASEw%OF
  580WHEN6:PROCin("�")
  590WHEN7:PROCin("�")
  600WHEN8:PROCin("�")
  610WHEN9:PROCin("�")
  620WHEN10:PROCin("""")
  630WHEN11:PROCin("'")
  640ENDCASE
  650ENDIF
  660ENDCASE
  670ENDPROC
  680:
  690DEFPROCin(c$)
  700SYS"Wimp_ProcessKey",ASC(c$)
  710ENDPROC
  720
  730DEFPROCkey(h%,s%)
  740ENDPROC
  750:
  760DEFPROCend:IFk%<>0THEN
  770SYS267524,k%:SYS30,7,,k%
  780ENDIF
  790OSCLI("RmKill SmartQuotes")
  800SYS262365:ENDPROC
  810:
  820DEFPROChide:IFk%<>0THEN
  830SYS267524,k%:SYS30,7,,k%
  840ENDIF
  850SYS262365:ENDPROC
  860:
  870DEFPROCcmenu(a%,m$,f$):LOCALm%,P%,x%:x%=0:W%=a%:c%=d%:i%=0:c%!20=40:IFz%<310ORLENf$<=12THEN
  880$c%=LEFT$(f$,12)
  890ELSE:$I%=f$:c%!0=I%:x%=1<<8
  900ENDIF
  910ENDIF
  920c%?12=g:c%?13=2:c%?14=f:c%?15=e:c%!24=0:P%=c%:c%+=28:m%=0
  930REPEAT
  940G%=i%+1:i%=INSTR(m$+",",",",G%):g$=MID$(m$,G%,i%-G%)
  950IFLENg$>m%THEN
  960m%=LENg$:IFLEFT$(g$,1)=">"THEN
  970m%-=1
  980ENDIF
  990ENDIF
 1000IFg$=FNa("C")ANDconvert%x%=&01
 1010!c%=x%:IFx%>0THENx%=0
 1020PROCz(g$):UNTILg$="":IFz%<310THEN
 1030IFm%<LEN(LEFT$(f$,12))THEN
 1040m%=LEN(LEFT$(f$))
 1050ENDIF
 1060ELSE:IFm%<LENf$THEN
 1070m%=LENf$
 1080ENDIF
 1090ENDIF
 1100P%!16=(m%+1)*16:c%!-24=(c%!-24)OR128:SYSh,,d%,D%-64,96+200
 1110ENDPROC
 1120:
 1130DEFPROCz(h$):LOCALg%,t$:IFh$=""ENDPROC
 1140IFLEFT$(h$,1)=">"c%!4=M%ELSEc%!4=-1
 1150c%!8=117440545:IFLEFT$(h$,1)=">"THEN
 1160t$=MID$(h$,2)
 1170ELSE:t$=h$
 1180ENDIF
 1190IFLENt$>12THEN
 1200c%!8=c%!8OR256:DIMg%LENt$+1:$g%=t$:c%!12=g%:c%!16=-1:c%!20=LENt$+1
 1210ELSE:$(c%+12)=t$
 1220ENDIF
 1230c%+=24:ENDPROC
 1240:
 1250DEFPROCmenu(X%):SYSmi,,d%,X%,STRING$(200," ")TO,,,a$:IFa$=""THENENDPROC
 1260CASEW%OF
 1270WHEN101
 1280IFa$=FNa("Q")PROCend:END
 1290IFa$=FNa("C")PROCconvert
 1300IFa$=FNa("I")!q%=f%:SYS262347,,q%:q%!28=-1:SYS&400C5,,q%
 1310IFa$=FNa("H")PROChide:END
 1320ENDCASE
 1330SYS262351,,q%:IFq%?8AND1THENPROCcmenu(101,FNa("M1"),FNa("M2"))
 1340ENDPROC
 1350:
 1360DEFPROCset:a=(1<<18)+(3<<6):close=a+6:poll%=a+7:m=a+8:l=a+9:Z%=a+10:winfo=a+11:o=a+15:c=a+16:h=a+20:mi=a+21:SYS57,,"Wimp_SetColour"TOQ%:ENDPROC
 1370:
 1380DEFPROCerror:LOCALERROR:ONERRORERROREXT1,REPORT$
 1390SYS&400D0,,-1:!d%=ERR:$(d%+4)=FNf("FIE",REPORT$,STR$ERL)+CHR$0:SYS262367,d%,1,FNa("Tsk"):PROCend:END
 1400ENDPROC
 1410:
 1420DEFFNicon(i%):!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=8450:k$=FNg("SN"+STR$(i%)):DIMradio%12:q%!24=radio%:$radio%=k$:q%!28=sprites%:q%!32=12:SYS262338,,q%TOha%:=ha%
 1430:
 1440DEFFNg(T$):LOCALF%,L%:SYS267522,k%,T$,e%,256,"",""TO,,,L%;F%:IFF%AND1THEN$e%=T$ELSEe%?L%=13
 1450=$e%
 1460:
 1470DEFFNa(T$):LOCALF%,L%,y%:SYS398594,k%,T$,e%,256,"",0,0,0TOy%,,,L%;F%:IFF%AND1THEN
 1480SYS262367,y%,1,j$:$e%=T$
 1490ELSE:e%?L%=13
 1500ENDIF
 1510=$e%
 1520:
 1530DEFFNf(T$,S$,p$):LOCALF%,L%,y%:SYS398594,k%,T$,e%,256,S$,p$,0,0TOy%,,,L%;F%:IFF%AND1THEN
 1540SYS262367,y%,1,j$:$e%=T$
 1550ELSE:e%?L%=13
 1560ENDIF
 1570=$e%
 1580:
 1590DEFPROChelp:e$="":CASEq%!32OF
 1600WHENf%:e$=FNa("HC")
 1610IFq%!36>=6ANDq%!36<=11 e$+=FNa("HI"+STR$(q%!36))
 1620WHENM%:e$=FNa("II")
 1630WHEN-2:e$=FNa("HI")
 1640OTHERWISE:IFz%>=218ANDq%!36<>-1THEN
 1650SYS262388,1,d%,q%!32,q%!36:CASE!d%OF
 1660WHEN0:IFd%!4=-1THENe$=FNa("MH1")
 1670WHEN1:e$=FNa("MH2")
 1680WHEN2:e$=FNa("MH3")
 1690WHEN3:e$=FNa("MH4")
 1700WHEN4:e$=FNa("MH5")
 1710ENDCASE
 1720ENDIF
 1730ENDCASE
 1740q%!0=((20+LENe$+1)+3)ANDNOT3:q%!12=q%!8:q%!16=1283:$(q%+20)=e$:q%?(20+LENe$)=0:SYS262375,17,q%,q%!4:ENDPROC
 1750:
 1760DEFPROCconvert
 1770convert%=NOTconvert%
 1780IFconvert%THEN
 1790OSCLI("Quotes ON")
 1800$radio%=FNg("SN1")
 1810!q%=-1:q%!4=da%:SYS262350,,q%:SYS262353,-2,q%!8,q%!12,q%!16,q%!20
 1820ENDIF
 1830IFNOTconvert%THEN
 1840OSCLI("Quotes OFF")
 1850$radio%=FNg("SN2")
 1860!q%=-1:q%!4=da%:SYS262350,,q%:SYS262353,-2,q%!8,q%!12,q%!16,q%!20
 1870ENDIF
 1880ENDPROC

� > !RunImage
�   Smart Quotes
�   The Flying Pig!
(�   26/7/1994 Version 1.00
2
<!a$="<Obey$Dir>.Sprites":b$=a$
F<ș"XWimp_ReadSysInfo",2 � R0;V:�(V � 1)=0 a$+=�?R0+�R0?1
PS%=�a$:�S%=0 a$=b$:S%=�a$
ZT%=�#S%+16:�#S%
d�sprites%T%
n!sprites%=T%:sprites%!8=1
x!ș"OS_SpriteOp",&109,sprites%
�$ș"OS_SpriteOp",&10A,sprites%,a$
�
�'�q%768,d%512,aa%-1,link%(128),e%256
�4!q%=10:q%!4=1282:q%!8=0:N$="<Obey$Dir>.Messages"
�:ș30,6,,,17+�(N$)�,,k%:$(k%+16)=N$:ș267521,k%,k%+16,0
�Xj$=�a("Tsk"):ș262336,300,1263747412,j$,q%�z%,ca%:e=0:p=12:q=4:r=2:f=7:g=7:s=13:t=12
��set:�z%>=310�I%128
�$ș262361,,"<Obey$Dir>.Templates"
�pg%=�c("Insert"):�J%g%:ș262363,,q%,J%,J%+g%,-1,"Insert",0�,,,,,,F%:�F%=0�ș262362:�1,�b("TNF","Insert"):�c:�
�%�a%=0�5:q%!(112+a%*32)=sprites%:�
�zș262337,,q%�f%:g%=�c("Info"):�K%g%:ș262363,,q%,K%,K%+g%,-1,"Info",0�,,,,,,F%:�F%=0�ș262362:�1,�b("TNF","Info"):�c:�
�%ș262337,,q%�M%:ș262362:��error
�da%=�icon(1):șc,,-1
>�("RmEnsure SmartQuotes 1.00 RmRun <Obey$Dir>.SmartQuote")
�("Quotes ON"):convert%=�
:
"�:șpoll%,0,q%�A%:ȎA%�
,�2:ș&400C5,,q%
6�3:șclose,,q%
@.�6:�mouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
J�9:�menu(q%)
T�17,18:�receive(q%)
^�
h��
r:
|��receive(q%):Ȏq%!16�
�
�0:�end:�
��1282:�help
��
��
�:
�,ݤc(o$):�N%:ș262363,,0,,,,o$,0�,,N%:=N%
�:
���mouse(D%,O%,b%,a%,w%,V%)
�!q%=f%:șwinfo,,q%
�	Ȏa%�
��-2
��(b%�2)�
�!�cmenu(101,�a("M1"),�a("M2"))
�
 �(b%�1)q%!28=-1:ș&400C5,,q%
�(b%�4)�convert
&�f%
0�(b%�5)�
:	Ȏw%�
D�6:�in("�")
N�7:�in("�")
X�8:�in("�")
b�9:�in("�")
l�10:�in("""")
v�11:�in("'")
��
��
��
��
�:
���in(c$)
�ș"Wimp_ProcessKey",�(c$)
��
�
���key(h%,s%)
��
�:
���end:�k%<>0�
ș267524,k%:ș30,7,,k%
�
�("RmKill SmartQuotes")
 ș262365:�
*:
4��hide:�k%<>0�
>ș267524,k%:ș30,7,,k%
H�
Rș262365:�
\:
fO��cmenu(a%,m$,f$):�m%,P%,x%:x%=0:W%=a%:c%=d%:i%=0:c%!20=40:�z%<310��f$<=12�
p$c%=�f$,12)
z�:$I%=f$:c%!0=I%:x%=1<<8
��
��
�=c%?12=g:c%?13=2:c%?14=f:c%?15=e:c%!24=0:P%=c%:c%+=28:m%=0
��
�/G%=i%+1:i%=�m$+",",",",G%):g$=�m$,G%,i%-G%)
��g$>m%�
�m%=�g$:�g$,1)=">"�
�	m%-=1
��
��
��g$=�a("C")�convert%x%=&01
�!c%=x%:�x%>0�x%=0
��z(g$):�g$="":�z%<310�
�m%<�(�f$,12))�
m%=�(�f$))
�
$�:�m%<�f$�
.
m%=�f$
8�
B�
L<P%!16=(m%+1)*16:c%!-24=(c%!-24)�128:șh,,d%,D%-64,96+200
V�
`:
j��z(h$):�g%,t$:�h$=""�
t�h$,1)=">"c%!4=M%�c%!4=-1
~c%!8=117440545:�h$,1)=">"�
�
t$=�h$,2)
��:t$=h$
��
��t$>12�
�?c%!8=c%!8�256:�g%�t$+1:$g%=t$:c%!12=g%:c%!16=-1:c%!20=�t$+1
��:$(c%+12)=t$
��
�c%+=24:�
�:
�3��menu(X%):șmi,,d%,X%,�200," ")�,,,a$:�a$=""��
�	ȎW%�
��101
�a$=�a("Q")�end:�

�a$=�a("C")�convert
8�a$=�a("I")!q%=f%:ș262347,,q%:q%!28=-1:ș&400C5,,q%
�a$=�a("H")�hide:�
(�
26ș262351,,q%:�q%?8�1��cmenu(101,�a("M1"),�a("M2"))
<�
F:
P���set:a=(1<<18)+(3<<6):close=a+6:poll%=a+7:m=a+8:l=a+9:Z%=a+10:winfo=a+11:o=a+15:c=a+16:h=a+20:mi=a+21:ș57,,"Wimp_SetColour"�Q%:�
Z:
d��error:�:EXT1,�$
nPș&400D0,,-1:!d%=�:$(d%+4)=�f("FIE",�$,Þ)+�0:ș262367,d%,1,�a("Tsk"):�end:�
x�
�:
��ݤicon(i%):!q%=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=8450:k$=�g("SN"+�(i%)):�radio%12:q%!24=radio%:$radio%=k$:q%!28=sprites%:q%!32=12:ș262338,,q%�ha%:=ha%
�:
�Mݤg(T$):�F%,L%:ș267522,k%,T$,e%,256,"",""�,,,L%;F%:�F%�1�$e%=T$�e%?L%=13
�=$e%
�:
�Fݤa(T$):�F%,L%,y%:ș398594,k%,T$,e%,256,"",0,0,0�y%,,,L%;F%:�F%�1�
�ș262367,y%,1,j$:$e%=T$
��:e%?L%=13
��
�=$e%
�:
�Mݤf(T$,S$,p$):�F%,L%,y%:ș398594,k%,T$,e%,256,S$,p$,0,0�y%,,,L%;F%:�F%�1�
ș262367,y%,1,j$:$e%=T$
�:e%?L%=13
�
"=$e%
,:
6��help:e$="":Ȏq%!32�
@�f%:e$=�a("HC")
J-�q%!36>=6�q%!36<=11 e$+=�a("HI"+�(q%!36))
T�M%:e$=�a("II")
^�-2:e$=�a("HI")
h:�z%>=218�q%!36<>-1�
r$ș262388,1,d%,q%!32,q%!36:Ȏ!d%�
|�0:�d%!4=-1�e$=�a("MH1")
��1:e$=�a("MH2")
��2:e$=�a("MH3")
��3:e$=�a("MH4")
��4:e$=�a("MH5")
��
��
��
�`q%!0=((20+�e$+1)+3)��3:q%!12=q%!8:q%!16=1283:$(q%+20)=e$:q%?(20+�e$)=0:ș262375,17,q%,q%!4:�
�:
�
��convert
�convert%=�convert%
��convert%�
��("Quotes ON")
$radio%=�g("SN1")
C!q%=-1:q%!4=da%:ș262350,,q%:ș262353,-2,q%!8,q%!12,q%!16,q%!20
�
&�convert%�
0�("Quotes OFF")
:$radio%=�g("SN2")
DC!q%=-1:q%!4=da%:ș262350,,q%:ș262353,-2,q%!8,q%!12,q%!16,q%!20
N�
X�
�
00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 14 f4 20 20  20 53 6d 61 72 74 20 51  |e.....   Smart Q|
00000020  75 6f 74 65 73 0d 00 1e  17 f4 20 20 20 54 68 65  |uotes.....   The|
00000030  20 46 6c 79 69 6e 67 20  50 69 67 21 0d 00 28 1e  | Flying Pig!..(.|
00000040  f4 20 20 20 32 36 2f 37  2f 31 39 39 34 20 56 65  |.   26/7/1994 Ve|
00000050  72 73 69 6f 6e 20 31 2e  30 30 0d 00 32 04 0d 00  |rsion 1.00..2...|
00000060  3c 21 61 24 3d 22 3c 4f  62 65 79 24 44 69 72 3e  |<!a$="<Obey$Dir>|
00000070  2e 53 70 72 69 74 65 73  22 3a 62 24 3d 61 24 0d  |.Sprites":b$=a$.|
00000080  00 46 3c c8 99 22 58 57  69 6d 70 5f 52 65 61 64  |.F<.."XWimp_Read|
00000090  53 79 73 49 6e 66 6f 22  2c 32 20 b8 20 52 30 3b  |SysInfo",2 . R0;|
000000a0  56 3a e7 28 56 20 80 20  31 29 3d 30 20 61 24 2b  |V:.(V . 1)=0 a$+|
000000b0  3d bd 3f 52 30 2b bd 52  30 3f 31 0d 00 50 1d 53  |=.?R0+.R0?1..P.S|
000000c0  25 3d 8e 61 24 3a e7 53  25 3d 30 20 61 24 3d 62  |%=.a$:.S%=0 a$=b|
000000d0  24 3a 53 25 3d 8e 61 24  0d 00 5a 13 54 25 3d a2  |$:S%=.a$..Z.T%=.|
000000e0  23 53 25 2b 31 36 3a d9  23 53 25 0d 00 64 0f de  |#S%+16:.#S%..d..|
000000f0  73 70 72 69 74 65 73 25  54 25 0d 00 6e 1d 21 73  |sprites%T%..n.!s|
00000100  70 72 69 74 65 73 25 3d  54 25 3a 73 70 72 69 74  |prites%=T%:sprit|
00000110  65 73 25 21 38 3d 31 0d  00 78 21 c8 99 22 4f 53  |es%!8=1..x!.."OS|
00000120  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00000130  73 70 72 69 74 65 73 25  0d 00 82 24 c8 99 22 4f  |sprites%...$.."O|
00000140  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 41  |S_SpriteOp",&10A|
00000150  2c 73 70 72 69 74 65 73  25 2c 61 24 0d 00 8c 04  |,sprites%,a$....|
00000160  0d 00 96 27 de 71 25 37  36 38 2c 64 25 35 31 32  |...'.q%768,d%512|
00000170  2c 61 61 25 2d 31 2c 6c  69 6e 6b 25 28 31 32 38  |,aa%-1,link%(128|
00000180  29 2c 65 25 32 35 36 0d  00 a0 34 21 71 25 3d 31  |),e%256...4!q%=1|
00000190  30 3a 71 25 21 34 3d 31  32 38 32 3a 71 25 21 38  |0:q%!4=1282:q%!8|
000001a0  3d 30 3a 4e 24 3d 22 3c  4f 62 65 79 24 44 69 72  |=0:N$="<Obey$Dir|
000001b0  3e 2e 4d 65 73 73 61 67  65 73 22 0d 00 aa 3a c8  |>.Messages"...:.|
000001c0  99 33 30 2c 36 2c 2c 2c  31 37 2b a9 28 4e 24 29  |.30,6,,,17+.(N$)|
000001d0  b8 2c 2c 6b 25 3a 24 28  6b 25 2b 31 36 29 3d 4e  |.,,k%:$(k%+16)=N|
000001e0  24 3a c8 99 32 36 37 35  32 31 2c 6b 25 2c 6b 25  |$:..267521,k%,k%|
000001f0  2b 31 36 2c 30 0d 00 b4  58 6a 24 3d a4 61 28 22  |+16,0...Xj$=.a("|
00000200  54 73 6b 22 29 3a c8 99  32 36 32 33 33 36 2c 33  |Tsk"):..262336,3|
00000210  30 30 2c 31 32 36 33 37  34 37 34 31 32 2c 6a 24  |00,1263747412,j$|
00000220  2c 71 25 b8 7a 25 2c 63  61 25 3a 65 3d 30 3a 70  |,q%.z%,ca%:e=0:p|
00000230  3d 31 32 3a 71 3d 34 3a  72 3d 32 3a 66 3d 37 3a  |=12:q=4:r=2:f=7:|
00000240  67 3d 37 3a 73 3d 31 33  3a 74 3d 31 32 0d 00 be  |g=7:s=13:t=12...|
00000250  17 f2 73 65 74 3a e7 7a  25 3e 3d 33 31 30 de 49  |..set:.z%>=310.I|
00000260  25 31 32 38 0d 00 c8 24  c8 99 32 36 32 33 36 31  |%128...$..262361|
00000270  2c 2c 22 3c 4f 62 65 79  24 44 69 72 3e 2e 54 65  |,,"<Obey$Dir>.Te|
00000280  6d 70 6c 61 74 65 73 22  0d 00 d2 70 67 25 3d a4  |mplates"...pg%=.|
00000290  63 28 22 49 6e 73 65 72  74 22 29 3a de 4a 25 67  |c("Insert"):.J%g|
000002a0  25 3a c8 99 32 36 32 33  36 33 2c 2c 71 25 2c 4a  |%:..262363,,q%,J|
000002b0  25 2c 4a 25 2b 67 25 2c  2d 31 2c 22 49 6e 73 65  |%,J%+g%,-1,"Inse|
000002c0  72 74 22 2c 30 b8 2c 2c  2c 2c 2c 2c 46 25 3a e7  |rt",0.,,,,,,F%:.|
000002d0  46 25 3d 30 8c c8 99 32  36 32 33 36 32 3a 85 31  |F%=0...262362:.1|
000002e0  2c a4 62 28 22 54 4e 46  22 2c 22 49 6e 73 65 72  |,.b("TNF","Inser|
000002f0  74 22 29 3a f2 63 3a e0  0d 00 dc 25 e3 61 25 3d  |t"):.c:....%.a%=|
00000300  30 b8 35 3a 71 25 21 28  31 31 32 2b 61 25 2a 33  |0.5:q%!(112+a%*3|
00000310  32 29 3d 73 70 72 69 74  65 73 25 3a ed 0d 00 e6  |2)=sprites%:....|
00000320  7a c8 99 32 36 32 33 33  37 2c 2c 71 25 b8 66 25  |z..262337,,q%.f%|
00000330  3a 67 25 3d a4 63 28 22  49 6e 66 6f 22 29 3a de  |:g%=.c("Info"):.|
00000340  4b 25 67 25 3a c8 99 32  36 32 33 36 33 2c 2c 71  |K%g%:..262363,,q|
00000350  25 2c 4b 25 2c 4b 25 2b  67 25 2c 2d 31 2c 22 49  |%,K%,K%+g%,-1,"I|
00000360  6e 66 6f 22 2c 30 b8 2c  2c 2c 2c 2c 2c 46 25 3a  |nfo",0.,,,,,,F%:|
00000370  e7 46 25 3d 30 8c c8 99  32 36 32 33 36 32 3a 85  |.F%=0...262362:.|
00000380  31 2c a4 62 28 22 54 4e  46 22 2c 22 49 6e 66 6f  |1,.b("TNF","Info|
00000390  22 29 3a f2 63 3a e0 0d  00 f0 25 c8 99 32 36 32  |"):.c:....%..262|
000003a0  33 33 37 2c 2c 71 25 b8  4d 25 3a c8 99 32 36 32  |337,,q%.M%:..262|
000003b0  33 36 32 3a ee 85 f2 65  72 72 6f 72 0d 00 fa 18  |362:...error....|
000003c0  64 61 25 3d a4 69 63 6f  6e 28 31 29 3a c8 99 63  |da%=.icon(1):..c|
000003d0  2c 2c 2d 31 0d 01 04 3e  ff 28 22 52 6d 45 6e 73  |,,-1...>.("RmEns|
000003e0  75 72 65 20 53 6d 61 72  74 51 75 6f 74 65 73 20  |ure SmartQuotes |
000003f0  31 2e 30 30 20 52 6d 52  75 6e 20 3c 4f 62 65 79  |1.00 RmRun <Obey|
00000400  24 44 69 72 3e 2e 53 6d  61 72 74 51 75 6f 74 65  |$Dir>.SmartQuote|
00000410  22 29 0d 01 0e 1d ff 28  22 51 75 6f 74 65 73 20  |").....("Quotes |
00000420  4f 4e 22 29 3a 63 6f 6e  76 65 72 74 25 3d b9 0d  |ON"):convert%=..|
00000430  01 18 05 3a 0d 01 22 1b  f5 3a c8 99 70 6f 6c 6c  |...:.."..:..poll|
00000440  25 2c 30 2c 71 25 b8 41  25 3a c8 8e 41 25 ca 0d  |%,0,q%.A%:..A%..|
00000450  01 2c 13 c9 32 3a c8 99  26 34 30 30 43 35 2c 2c  |.,..2:..&400C5,,|
00000460  71 25 0d 01 36 12 c9 33  3a c8 99 63 6c 6f 73 65  |q%..6..3:..close|
00000470  2c 2c 71 25 0d 01 40 2e  c9 36 3a f2 6d 6f 75 73  |,,q%..@..6:.mous|
00000480  65 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |e(!q%,q%!4,q%!8,|
00000490  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
000004a0  30 29 0d 01 4a 10 c9 39  3a f2 6d 65 6e 75 28 71  |0)..J..9:.menu(q|
000004b0  25 29 0d 01 54 17 c9 31  37 2c 31 38 3a f2 72 65  |%)..T..17,18:.re|
000004c0  63 65 69 76 65 28 71 25  29 0d 01 5e 05 cb 0d 01  |ceive(q%)..^....|
000004d0  68 06 fd a3 0d 01 72 05  3a 0d 01 7c 1a dd f2 72  |h.....r.:..|...r|
000004e0  65 63 65 69 76 65 28 71  25 29 3a c8 8e 71 25 21  |eceive(q%):..q%!|
000004f0  31 36 ca 0d 01 86 0d c9  30 3a f2 65 6e 64 3a e0  |16......0:.end:.|
00000500  0d 01 90 0f c9 31 32 38  32 3a f2 68 65 6c 70 0d  |.....1282:.help.|
00000510  01 9a 05 cb 0d 01 a4 05  e1 0d 01 ae 05 3a 0d 01  |.............:..|
00000520  b8 2c dd a4 63 28 6f 24  29 3a ea 4e 25 3a c8 99  |.,..c(o$):.N%:..|
00000530  32 36 32 33 36 33 2c 2c  30 2c 2c 2c 2c 6f 24 2c  |262363,,0,,,,o$,|
00000540  30 b8 2c 2c 4e 25 3a 3d  4e 25 0d 01 c2 05 3a 0d  |0.,,N%:=N%....:.|
00000550  01 cc 1e dd f2 6d 6f 75  73 65 28 44 25 2c 4f 25  |.....mouse(D%,O%|
00000560  2c 62 25 2c 61 25 2c 77  25 2c 56 25 29 0d 01 d6  |,b%,a%,w%,V%)...|
00000570  16 21 71 25 3d 66 25 3a  c8 99 77 69 6e 66 6f 2c  |.!q%=f%:..winfo,|
00000580  2c 71 25 0d 01 e0 09 c8  8e 61 25 ca 0d 01 ea 07  |,q%......a%.....|
00000590  c9 2d 32 0d 01 f4 0c e7  28 62 25 80 32 29 8c 0d  |.-2.....(b%.2)..|
000005a0  01 fe 21 f2 63 6d 65 6e  75 28 31 30 31 2c a4 61  |..!.cmenu(101,.a|
000005b0  28 22 4d 31 22 29 2c a4  61 28 22 4d 32 22 29 29  |("M1"),.a("M2"))|
000005c0  0d 02 08 05 cd 0d 02 12  20 e7 28 62 25 80 31 29  |........ .(b%.1)|
000005d0  71 25 21 32 38 3d 2d 31  3a c8 99 26 34 30 30 43  |q%!28=-1:..&400C|
000005e0  35 2c 2c 71 25 0d 02 1c  13 e7 28 62 25 80 34 29  |5,,q%.....(b%.4)|
000005f0  f2 63 6f 6e 76 65 72 74  0d 02 26 07 c9 66 25 0d  |.convert..&..f%.|
00000600  02 30 0c e7 28 62 25 80  35 29 8c 0d 02 3a 09 c8  |.0..(b%.5)...:..|
00000610  8e 77 25 ca 0d 02 44 0f  c9 36 3a f2 69 6e 28 22  |.w%...D..6:.in("|
00000620  94 22 29 0d 02 4e 0f c9  37 3a f2 69 6e 28 22 95  |.")..N..7:.in(".|
00000630  22 29 0d 02 58 0f c9 38  3a f2 69 6e 28 22 90 22  |")..X..8:.in("."|
00000640  29 0d 02 62 0f c9 39 3a  f2 69 6e 28 22 91 22 29  |)..b..9:.in(".")|
00000650  0d 02 6c 11 c9 31 30 3a  f2 69 6e 28 22 22 22 22  |..l..10:.in(""""|
00000660  29 0d 02 76 10 c9 31 31  3a f2 69 6e 28 22 27 22  |)..v..11:.in("'"|
00000670  29 0d 02 80 05 cb 0d 02  8a 05 cd 0d 02 94 05 cb  |)...............|
00000680  0d 02 9e 05 e1 0d 02 a8  05 3a 0d 02 b2 0c dd f2  |.........:......|
00000690  69 6e 28 63 24 29 0d 02  bc 1d c8 99 22 57 69 6d  |in(c$)......"Wim|
000006a0  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 97 28  |p_ProcessKey",.(|
000006b0  63 24 29 0d 02 c6 05 e1  0d 02 d0 04 0d 02 da 10  |c$).............|
000006c0  dd f2 6b 65 79 28 68 25  2c 73 25 29 0d 02 e4 05  |..key(h%,s%)....|
000006d0  e1 0d 02 ee 05 3a 0d 02  f8 11 dd f2 65 6e 64 3a  |.....:......end:|
000006e0  e7 6b 25 3c 3e 30 8c 0d  03 02 1a c8 99 32 36 37  |.k%<>0.......267|
000006f0  35 32 34 2c 6b 25 3a c8  99 33 30 2c 37 2c 2c 6b  |524,k%:..30,7,,k|
00000700  25 0d 03 0c 05 cd 0d 03  16 1b ff 28 22 52 6d 4b  |%..........("RmK|
00000710  69 6c 6c 20 53 6d 61 72  74 51 75 6f 74 65 73 22  |ill SmartQuotes"|
00000720  29 0d 03 20 0e c8 99 32  36 32 33 36 35 3a e1 0d  |).. ...262365:..|
00000730  03 2a 05 3a 0d 03 34 12  dd f2 68 69 64 65 3a e7  |.*.:..4...hide:.|
00000740  6b 25 3c 3e 30 8c 0d 03  3e 1a c8 99 32 36 37 35  |k%<>0...>...2675|
00000750  32 34 2c 6b 25 3a c8 99  33 30 2c 37 2c 2c 6b 25  |24,k%:..30,7,,k%|
00000760  0d 03 48 05 cd 0d 03 52  0e c8 99 32 36 32 33 36  |..H....R...26236|
00000770  35 3a e1 0d 03 5c 05 3a  0d 03 66 4f dd f2 63 6d  |5:...\.:..fO..cm|
00000780  65 6e 75 28 61 25 2c 6d  24 2c 66 24 29 3a ea 6d  |enu(a%,m$,f$):.m|
00000790  25 2c 50 25 2c 78 25 3a  78 25 3d 30 3a 57 25 3d  |%,P%,x%:x%=0:W%=|
000007a0  61 25 3a 63 25 3d 64 25  3a 69 25 3d 30 3a 63 25  |a%:c%=d%:i%=0:c%|
000007b0  21 32 30 3d 34 30 3a e7  7a 25 3c 33 31 30 84 a9  |!20=40:.z%<310..|
000007c0  66 24 3c 3d 31 32 8c 0d  03 70 0f 24 63 25 3d c0  |f$<=12...p.$c%=.|
000007d0  66 24 2c 31 32 29 0d 03  7a 1c cc 3a 24 49 25 3d  |f$,12)..z..:$I%=|
000007e0  66 24 3a 63 25 21 30 3d  49 25 3a 78 25 3d 31 3c  |f$:c%!0=I%:x%=1<|
000007f0  3c 38 0d 03 84 05 cd 0d  03 8e 05 cd 0d 03 98 3d  |<8.............=|
00000800  63 25 3f 31 32 3d 67 3a  63 25 3f 31 33 3d 32 3a  |c%?12=g:c%?13=2:|
00000810  63 25 3f 31 34 3d 66 3a  63 25 3f 31 35 3d 65 3a  |c%?14=f:c%?15=e:|
00000820  63 25 21 32 34 3d 30 3a  50 25 3d 63 25 3a 63 25  |c%!24=0:P%=c%:c%|
00000830  2b 3d 32 38 3a 6d 25 3d  30 0d 03 a2 05 f5 0d 03  |+=28:m%=0.......|
00000840  ac 2f 47 25 3d 69 25 2b  31 3a 69 25 3d a7 6d 24  |./G%=i%+1:i%=.m$|
00000850  2b 22 2c 22 2c 22 2c 22  2c 47 25 29 3a 67 24 3d  |+",",",",G%):g$=|
00000860  c1 6d 24 2c 47 25 2c 69  25 2d 47 25 29 0d 03 b6  |.m$,G%,i%-G%)...|
00000870  0c e7 a9 67 24 3e 6d 25  8c 0d 03 c0 17 6d 25 3d  |...g$>m%.....m%=|
00000880  a9 67 24 3a e7 c0 67 24  2c 31 29 3d 22 3e 22 8c  |.g$:..g$,1)=">".|
00000890  0d 03 ca 09 6d 25 2d 3d  31 0d 03 d4 05 cd 0d 03  |....m%-=1.......|
000008a0  de 05 cd 0d 03 e8 1e e7  67 24 3d a4 61 28 22 43  |........g$=.a("C|
000008b0  22 29 80 63 6f 6e 76 65  72 74 25 78 25 3d 26 30  |").convert%x%=&0|
000008c0  31 0d 03 f2 15 21 63 25  3d 78 25 3a e7 78 25 3e  |1....!c%=x%:.x%>|
000008d0  30 8c 78 25 3d 30 0d 03  fc 1a f2 7a 28 67 24 29  |0.x%=0.....z(g$)|
000008e0  3a fd 67 24 3d 22 22 3a  e7 7a 25 3c 33 31 30 8c  |:.g$="":.z%<310.|
000008f0  0d 04 06 13 e7 6d 25 3c  a9 28 c0 66 24 2c 31 32  |.....m%<.(.f$,12|
00000900  29 29 8c 0d 04 10 0e 6d  25 3d a9 28 c0 66 24 29  |)).....m%=.(.f$)|
00000910  29 0d 04 1a 05 cd 0d 04  24 0e cc 3a e7 6d 25 3c  |).......$..:.m%<|
00000920  a9 66 24 8c 0d 04 2e 0a  6d 25 3d a9 66 24 0d 04  |.f$.....m%=.f$..|
00000930  38 05 cd 0d 04 42 05 cd  0d 04 4c 3c 50 25 21 31  |8....B....L<P%!1|
00000940  36 3d 28 6d 25 2b 31 29  2a 31 36 3a 63 25 21 2d  |6=(m%+1)*16:c%!-|
00000950  32 34 3d 28 63 25 21 2d  32 34 29 84 31 32 38 3a  |24=(c%!-24).128:|
00000960  c8 99 68 2c 2c 64 25 2c  44 25 2d 36 34 2c 39 36  |..h,,d%,D%-64,96|
00000970  2b 32 30 30 0d 04 56 05  e1 0d 04 60 05 3a 0d 04  |+200..V....`.:..|
00000980  6a 1a dd f2 7a 28 68 24  29 3a ea 67 25 2c 74 24  |j...z(h$):.g%,t$|
00000990  3a e7 68 24 3d 22 22 e1  0d 04 74 1e e7 c0 68 24  |:.h$=""...t...h$|
000009a0  2c 31 29 3d 22 3e 22 63  25 21 34 3d 4d 25 8b 63  |,1)=">"c%!4=M%.c|
000009b0  25 21 34 3d 2d 31 0d 04  7e 1f 63 25 21 38 3d 31  |%!4=-1..~.c%!8=1|
000009c0  31 37 34 34 30 35 34 35  3a e7 c0 68 24 2c 31 29  |17440545:..h$,1)|
000009d0  3d 22 3e 22 8c 0d 04 88  0d 74 24 3d c1 68 24 2c  |=">".....t$=.h$,|
000009e0  32 29 0d 04 92 0b cc 3a  74 24 3d 68 24 0d 04 9c  |2).....:t$=h$...|
000009f0  05 cd 0d 04 a6 0c e7 a9  74 24 3e 31 32 8c 0d 04  |........t$>12...|
00000a00  b0 3f 63 25 21 38 3d 63  25 21 38 84 32 35 36 3a  |.?c%!8=c%!8.256:|
00000a10  de 67 25 a9 74 24 2b 31  3a 24 67 25 3d 74 24 3a  |.g%.t$+1:$g%=t$:|
00000a20  63 25 21 31 32 3d 67 25  3a 63 25 21 31 36 3d 2d  |c%!12=g%:c%!16=-|
00000a30  31 3a 63 25 21 32 30 3d  a9 74 24 2b 31 0d 04 ba  |1:c%!20=.t$+1...|
00000a40  11 cc 3a 24 28 63 25 2b  31 32 29 3d 74 24 0d 04  |..:$(c%+12)=t$..|
00000a50  c4 05 cd 0d 04 ce 0c 63  25 2b 3d 32 34 3a e1 0d  |.......c%+=24:..|
00000a60  04 d8 05 3a 0d 04 e2 33  dd f2 6d 65 6e 75 28 58  |...:...3..menu(X|
00000a70  25 29 3a c8 99 6d 69 2c  2c 64 25 2c 58 25 2c c4  |%):..mi,,d%,X%,.|
00000a80  32 30 30 2c 22 20 22 29  b8 2c 2c 2c 61 24 3a e7  |200," ").,,,a$:.|
00000a90  61 24 3d 22 22 8c e1 0d  04 ec 09 c8 8e 57 25 ca  |a$=""........W%.|
00000aa0  0d 04 f6 08 c9 31 30 31  0d 05 00 15 e7 61 24 3d  |.....101.....a$=|
00000ab0  a4 61 28 22 51 22 29 f2  65 6e 64 3a e0 0d 05 0a  |.a("Q").end:....|
00000ac0  17 e7 61 24 3d a4 61 28  22 43 22 29 f2 63 6f 6e  |..a$=.a("C").con|
00000ad0  76 65 72 74 0d 05 14 38  e7 61 24 3d a4 61 28 22  |vert...8.a$=.a("|
00000ae0  49 22 29 21 71 25 3d 66  25 3a c8 99 32 36 32 33  |I")!q%=f%:..2623|
00000af0  34 37 2c 2c 71 25 3a 71  25 21 32 38 3d 2d 31 3a  |47,,q%:q%!28=-1:|
00000b00  c8 99 26 34 30 30 43 35  2c 2c 71 25 0d 05 1e 16  |..&400C5,,q%....|
00000b10  e7 61 24 3d a4 61 28 22  48 22 29 f2 68 69 64 65  |.a$=.a("H").hide|
00000b20  3a e0 0d 05 28 05 cb 0d  05 32 36 c8 99 32 36 32  |:...(....26..262|
00000b30  33 35 31 2c 2c 71 25 3a  e7 71 25 3f 38 80 31 8c  |351,,q%:.q%?8.1.|
00000b40  f2 63 6d 65 6e 75 28 31  30 31 2c a4 61 28 22 4d  |.cmenu(101,.a("M|
00000b50  31 22 29 2c a4 61 28 22  4d 32 22 29 29 0d 05 3c  |1"),.a("M2"))..<|
00000b60  05 e1 0d 05 46 05 3a 0d  05 50 86 dd f2 73 65 74  |....F.:..P...set|
00000b70  3a 61 3d 28 31 3c 3c 31  38 29 2b 28 33 3c 3c 36  |:a=(1<<18)+(3<<6|
00000b80  29 3a 63 6c 6f 73 65 3d  61 2b 36 3a 70 6f 6c 6c  |):close=a+6:poll|
00000b90  25 3d 61 2b 37 3a 6d 3d  61 2b 38 3a 6c 3d 61 2b  |%=a+7:m=a+8:l=a+|
00000ba0  39 3a 5a 25 3d 61 2b 31  30 3a 77 69 6e 66 6f 3d  |9:Z%=a+10:winfo=|
00000bb0  61 2b 31 31 3a 6f 3d 61  2b 31 35 3a 63 3d 61 2b  |a+11:o=a+15:c=a+|
00000bc0  31 36 3a 68 3d 61 2b 32  30 3a 6d 69 3d 61 2b 32  |16:h=a+20:mi=a+2|
00000bd0  31 3a c8 99 35 37 2c 2c  22 57 69 6d 70 5f 53 65  |1:..57,,"Wimp_Se|
00000be0  74 43 6f 6c 6f 75 72 22  b8 51 25 3a e1 0d 05 5a  |tColour".Q%:...Z|
00000bf0  05 3a 0d 05 64 19 dd f2  65 72 72 6f 72 3a ea 85  |.:..d...error:..|
00000c00  3a ee 85 85 45 58 54 31  2c f6 24 0d 05 6e 50 c8  |:...EXT1,.$..nP.|
00000c10  99 26 34 30 30 44 30 2c  2c 2d 31 3a 21 64 25 3d  |.&400D0,,-1:!d%=|
00000c20  9f 3a 24 28 64 25 2b 34  29 3d a4 66 28 22 46 49  |.:$(d%+4)=.f("FI|
00000c30  45 22 2c f6 24 2c c3 9e  29 2b bd 30 3a c8 99 32  |E",.$,..)+.0:..2|
00000c40  36 32 33 36 37 2c 64 25  2c 31 2c a4 61 28 22 54  |62367,d%,1,.a("T|
00000c50  73 6b 22 29 3a f2 65 6e  64 3a e0 0d 05 78 05 e1  |sk"):.end:...x..|
00000c60  0d 05 82 05 3a 0d 05 8c  a2 dd a4 69 63 6f 6e 28  |....:......icon(|
00000c70  69 25 29 3a 21 71 25 3d  2d 31 3a 71 25 21 34 3d  |i%):!q%=-1:q%!4=|
00000c80  30 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 36  |0:q%!8=0:q%!12=6|
00000c90  38 3a 71 25 21 31 36 3d  36 38 3a 71 25 21 32 30  |8:q%!16=68:q%!20|
00000ca0  3d 38 34 35 30 3a 6b 24  3d a4 67 28 22 53 4e 22  |=8450:k$=.g("SN"|
00000cb0  2b c3 28 69 25 29 29 3a  de 72 61 64 69 6f 25 31  |+.(i%)):.radio%1|
00000cc0  32 3a 71 25 21 32 34 3d  72 61 64 69 6f 25 3a 24  |2:q%!24=radio%:$|
00000cd0  72 61 64 69 6f 25 3d 6b  24 3a 71 25 21 32 38 3d  |radio%=k$:q%!28=|
00000ce0  73 70 72 69 74 65 73 25  3a 71 25 21 33 32 3d 31  |sprites%:q%!32=1|
00000cf0  32 3a c8 99 32 36 32 33  33 38 2c 2c 71 25 b8 68  |2:..262338,,q%.h|
00000d00  61 25 3a 3d 68 61 25 0d  05 96 05 3a 0d 05 a0 4d  |a%:=ha%....:...M|
00000d10  dd a4 67 28 54 24 29 3a  ea 46 25 2c 4c 25 3a c8  |..g(T$):.F%,L%:.|
00000d20  99 32 36 37 35 32 32 2c  6b 25 2c 54 24 2c 65 25  |.267522,k%,T$,e%|
00000d30  2c 32 35 36 2c 22 22 2c  22 22 b8 2c 2c 2c 4c 25  |,256,"","".,,,L%|
00000d40  3b 46 25 3a e7 46 25 80  31 8c 24 65 25 3d 54 24  |;F%:.F%.1.$e%=T$|
00000d50  8b 65 25 3f 4c 25 3d 31  33 0d 05 aa 08 3d 24 65  |.e%?L%=13....=$e|
00000d60  25 0d 05 b4 05 3a 0d 05  be 46 dd a4 61 28 54 24  |%....:...F..a(T$|
00000d70  29 3a ea 46 25 2c 4c 25  2c 79 25 3a c8 99 33 39  |):.F%,L%,y%:..39|
00000d80  38 35 39 34 2c 6b 25 2c  54 24 2c 65 25 2c 32 35  |8594,k%,T$,e%,25|
00000d90  36 2c 22 22 2c 30 2c 30  2c 30 b8 79 25 2c 2c 2c  |6,"",0,0,0.y%,,,|
00000da0  4c 25 3b 46 25 3a e7 46  25 80 31 8c 0d 05 c8 1b  |L%;F%:.F%.1.....|
00000db0  c8 99 32 36 32 33 36 37  2c 79 25 2c 31 2c 6a 24  |..262367,y%,1,j$|
00000dc0  3a 24 65 25 3d 54 24 0d  05 d2 0e cc 3a 65 25 3f  |:$e%=T$.....:e%?|
00000dd0  4c 25 3d 31 33 0d 05 dc  05 cd 0d 05 e6 08 3d 24  |L%=13.........=$|
00000de0  65 25 0d 05 f0 05 3a 0d  05 fa 4d dd a4 66 28 54  |e%....:...M..f(T|
00000df0  24 2c 53 24 2c 70 24 29  3a ea 46 25 2c 4c 25 2c  |$,S$,p$):.F%,L%,|
00000e00  79 25 3a c8 99 33 39 38  35 39 34 2c 6b 25 2c 54  |y%:..398594,k%,T|
00000e10  24 2c 65 25 2c 32 35 36  2c 53 24 2c 70 24 2c 30  |$,e%,256,S$,p$,0|
00000e20  2c 30 b8 79 25 2c 2c 2c  4c 25 3b 46 25 3a e7 46  |,0.y%,,,L%;F%:.F|
00000e30  25 80 31 8c 0d 06 04 1b  c8 99 32 36 32 33 36 37  |%.1.......262367|
00000e40  2c 79 25 2c 31 2c 6a 24  3a 24 65 25 3d 54 24 0d  |,y%,1,j$:$e%=T$.|
00000e50  06 0e 0e cc 3a 65 25 3f  4c 25 3d 31 33 0d 06 18  |....:e%?L%=13...|
00000e60  05 cd 0d 06 22 08 3d 24  65 25 0d 06 2c 05 3a 0d  |....".=$e%..,.:.|
00000e70  06 36 19 dd f2 68 65 6c  70 3a 65 24 3d 22 22 3a  |.6...help:e$="":|
00000e80  c8 8e 71 25 21 33 32 ca  0d 06 40 13 c9 66 25 3a  |..q%!32...@..f%:|
00000e90  65 24 3d a4 61 28 22 48  43 22 29 0d 06 4a 2d e7  |e$=.a("HC")..J-.|
00000ea0  71 25 21 33 36 3e 3d 36  80 71 25 21 33 36 3c 3d  |q%!36>=6.q%!36<=|
00000eb0  31 31 20 65 24 2b 3d a4  61 28 22 48 49 22 2b c3  |11 e$+=.a("HI"+.|
00000ec0  28 71 25 21 33 36 29 29  0d 06 54 13 c9 4d 25 3a  |(q%!36))..T..M%:|
00000ed0  65 24 3d a4 61 28 22 49  49 22 29 0d 06 5e 13 c9  |e$=.a("II")..^..|
00000ee0  2d 32 3a 65 24 3d a4 61  28 22 48 49 22 29 0d 06  |-2:e$=.a("HI")..|
00000ef0  68 19 7f 3a e7 7a 25 3e  3d 32 31 38 80 71 25 21  |h..:.z%>=218.q%!|
00000f00  33 36 3c 3e 2d 31 8c 0d  06 72 24 c8 99 32 36 32  |36<>-1...r$..262|
00000f10  33 38 38 2c 31 2c 64 25  2c 71 25 21 33 32 2c 71  |388,1,d%,q%!32,q|
00000f20  25 21 33 36 3a c8 8e 21  64 25 ca 0d 06 7c 1c c9  |%!36:..!d%...|..|
00000f30  30 3a e7 64 25 21 34 3d  2d 31 8c 65 24 3d a4 61  |0:.d%!4=-1.e$=.a|
00000f40  28 22 4d 48 31 22 29 0d  06 86 13 c9 31 3a 65 24  |("MH1").....1:e$|
00000f50  3d a4 61 28 22 4d 48 32  22 29 0d 06 90 13 c9 32  |=.a("MH2").....2|
00000f60  3a 65 24 3d a4 61 28 22  4d 48 33 22 29 0d 06 9a  |:e$=.a("MH3")...|
00000f70  13 c9 33 3a 65 24 3d a4  61 28 22 4d 48 34 22 29  |..3:e$=.a("MH4")|
00000f80  0d 06 a4 13 c9 34 3a 65  24 3d a4 61 28 22 4d 48  |.....4:e$=.a("MH|
00000f90  35 22 29 0d 06 ae 05 cb  0d 06 b8 05 cd 0d 06 c2  |5").............|
00000fa0  05 cb 0d 06 cc 60 71 25  21 30 3d 28 28 32 30 2b  |.....`q%!0=((20+|
00000fb0  a9 65 24 2b 31 29 2b 33  29 80 ac 33 3a 71 25 21  |.e$+1)+3)..3:q%!|
00000fc0  31 32 3d 71 25 21 38 3a  71 25 21 31 36 3d 31 32  |12=q%!8:q%!16=12|
00000fd0  38 33 3a 24 28 71 25 2b  32 30 29 3d 65 24 3a 71  |83:$(q%+20)=e$:q|
00000fe0  25 3f 28 32 30 2b a9 65  24 29 3d 30 3a c8 99 32  |%?(20+.e$)=0:..2|
00000ff0  36 32 33 37 35 2c 31 37  2c 71 25 2c 71 25 21 34  |62375,17,q%,q%!4|
00001000  3a e1 0d 06 d6 05 3a 0d  06 e0 0d dd f2 63 6f 6e  |:.....:......con|
00001010  76 65 72 74 0d 06 ea 16  63 6f 6e 76 65 72 74 25  |vert....convert%|
00001020  3d ac 63 6f 6e 76 65 72  74 25 0d 06 f4 0e e7 63  |=.convert%.....c|
00001030  6f 6e 76 65 72 74 25 8c  0d 06 fe 12 ff 28 22 51  |onvert%......("Q|
00001040  75 6f 74 65 73 20 4f 4e  22 29 0d 07 08 15 24 72  |uotes ON")....$r|
00001050  61 64 69 6f 25 3d a4 67  28 22 53 4e 31 22 29 0d  |adio%=.g("SN1").|
00001060  07 12 43 21 71 25 3d 2d  31 3a 71 25 21 34 3d 64  |..C!q%=-1:q%!4=d|
00001070  61 25 3a c8 99 32 36 32  33 35 30 2c 2c 71 25 3a  |a%:..262350,,q%:|
00001080  c8 99 32 36 32 33 35 33  2c 2d 32 2c 71 25 21 38  |..262353,-2,q%!8|
00001090  2c 71 25 21 31 32 2c 71  25 21 31 36 2c 71 25 21  |,q%!12,q%!16,q%!|
000010a0  32 30 0d 07 1c 05 cd 0d  07 26 0f e7 ac 63 6f 6e  |20.......&...con|
000010b0  76 65 72 74 25 8c 0d 07  30 13 ff 28 22 51 75 6f  |vert%...0..("Quo|
000010c0  74 65 73 20 4f 46 46 22  29 0d 07 3a 15 24 72 61  |tes OFF")..:.$ra|
000010d0  64 69 6f 25 3d a4 67 28  22 53 4e 32 22 29 0d 07  |dio%=.g("SN2")..|
000010e0  44 43 21 71 25 3d 2d 31  3a 71 25 21 34 3d 64 61  |DC!q%=-1:q%!4=da|
000010f0  25 3a c8 99 32 36 32 33  35 30 2c 2c 71 25 3a c8  |%:..262350,,q%:.|
00001100  99 32 36 32 33 35 33 2c  2d 32 2c 71 25 21 38 2c  |.262353,-2,q%!8,|
00001110  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00001120  30 0d 07 4e 05 cd 0d 07  58 05 e1 0d ff           |0..N....X....|
0000112d