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