Home » Archimedes archive » Acorn User » AU 1996-05.adf » Optical » !OptclDemo/Resources/!RunImage

!OptclDemo/Resources/!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-05.adf » Optical
Filename: !OptclDemo/Resources/!RunImage
Read OK:
File size: 30DA6 bytes
Load address: 0000
Exec address: 0000
File contents
    1REMOptical Professional Demo
    2REM(c) Martin Dawe 1993-1996
    3Qy$="4.21D (15th January, 1996)":SYS&406c0:SYS&406c4,0:Ke%=TRUE:ONERRORVDU26,4:PRINTREPORT$;" at line ";STR$(ERL):SYS&406c2:PROCry:PROCQy:END
    4SYS&406c4,10:PROCGi("Optical Pro Demo",12288,12200):PROCwl:SYS&406c4,20:PROCgl:ONERRORERROR0,REPORT$+" at line "+STR$(ERL):END
    5SYS&406c4,30:PROCRa:SYS&406c4,40:PROCma:SYS&406c4,50:PROCA(Info_Window%,5,"� Martin Dawe 1993�1996"):PROCA(Info_Window%,4,Qy$):PROCWi:SYS&406c4,60:PROCKl:SYS&406c4,70:PROCfy:PROCry:PROCDi:IFe$=""THENPROCny("<OptclPro$Dir>.DefFonts")ELSEPROCny(e$)
    6SYS&406c4,80:PROCH:PROCAn:K$=FNh:PROCqu:SYS&406c4,90:IFwn%PROCNaELSEFy%=0:PROCsy
    7PROCS(`_%,1,1):PROCS(`_%,2,0):PROCS(`_%,3,0):PROCK(f_%,4):PROCV(f_%,5):PROCV(f_%,6):SYS&406c4,99:PROCD_:PROCH:IFe$<>""THEN
    8PROCA(g%,16,"No letter marked"):PROCZ(g%,12):PROCD(g%)
    9ENDIF:PROC_:M%!0=e%:SYS&400cb,,M%:IFvy%THEN
   10p_%=(M%!12-M%!4-4)/16
   11ELSE:p_%=M%!12-M%!4-4
   12ENDIF:SYS&406c1:IFhi%THEN
   13IFyl%THEN
   14Ku%=FNS(iy%):PROCIy
   15ELSE:i_%=FALSE:PROCl
   16ENDIF
   17ENDIF:ONERRORIFFNU("Internal Error from Optical",REPORT$+" at line "+STR$(ERL)+". Click on OK to continue running, or Cancel to quit.")=FALSETHENSYS&406c2:PROCQy:END
   18Wy%=0:!A=0:IFKe%OSCLI("RMKill NeurotronSample"):Ke%=FALSE
   19PROCvi:PROCQy:END
   20DEFPROCwl:LOCALay%:Kr%=640:DIMuZ%Kr%:UO%=0:xJ%=256:pl%=256:SYS16TOq$,Ae%:IFINSTR(q$,"-fonts ")THEN
   21e$=MID$(q$,INSTR(q$,"-fonts ")+7)
   22ELSE:e$=""
   23ENDIF:SYS&400ec,-1,-1TOjn%:al%=23:DIMZ%(al%-1),A%(al%-1),nn%4*al%,ci%4*al%:PROCBJ:IFFNm(al%)=FALSETHENPROCry:PROCQy:END
   24SYS&20023,"Obey$Dir",M%,256,0,0TO,,ay%:M%?ay%=13:By$=$M%:PROCZn:PROCel:PROCPl:PROCwi:ENDPROC
   25DEFPROCBJ:Ti%=0:`%=1:WJ%=2:ju%=3:Ny%=4:MJ%=5:X_%=6:Nu%=7:J_%=8:Ki%=9:ke%=9:u%=10:uu%=11:qJ%=12:eP%=13:`y%=14:qy%=15:e`%=16:a`%=17:W`%=18:m`%=19:pn%=20:go%=21:M_%=22:ENDPROC
   26DEFPROCel:DIMgy%36:DIMYZ%36:DIMAP%36:DIMkr%36:oB%=0:hO%=1:Dr%=2:sB%=3:Io%=4:tB%=5:Ne%=6:uB%=7:ha%=8:Vu%=9:dk%=10:ua%=12:gy%!0=65793:gy%!4=&1010001:gy%!8=0:gy%?ha%=ASC("?"):$(gy%+ua%)=CHR$9+CHR$0:!ii=gy%:!Vu=AP%:qo%=FALSE:Z`%=FALSE:DIMB%(1):DIMJ%(1):DIMN%(1,15):DIMQ%(1,15):DIMU%(1,15)
   27DIMX%(1,15):xO%=FALSE:Ui%=0:YB%=FALSE:an%=0:hn%=0:ou%=0:PP%=FALSE:t`%=FALSE:vl%=TRUE:Iy%=FALSE:rJ%=-1:PROC_J:Ai%=FALSE:F_%=FALSE:jy%=FALSE:Hn%=FALSE:ZO%=FALSE:BB%=TRUE:ek%=FALSE:Wi%=FALSE:Ho%=FALSE:YO%=FALSE:DIMZ 60:Z!0=0:Z!4=0:Z!8=0:Z!12=0:Z!16=0:Z!20=0:Z!24=PJ:Z!28=NJ:Z!32=s_:Z!36=__:Z!40=x_:Z!44=FJ:Z!48=b_:Z!52=0
   28Z!56=0:Ul%=0:r$="":!I_=0:DIMSu%28:AB%=FALSE:DIMJn%36:Cy$="Trinity.Medium":QP%=1280:DIMb`%20:Zu%=FALSE:zn%=100:DIMH%(zn%-1):DIMI%(zn%-1):DIML%(zn%-1):IO%=FALSE:RO%=FALSE:DIMfk%128:DIMM`%40:Bo%=FALSE:V=0:Fu%=0:DIMiZ%40:DIMil%24:DIMRp%24:D_%=1:O_%=-1:Ao%=0:DIMM$(19):DIMZ$(19):DIMG%(19):DIMP%(19)
   29DIMP$(19):DIMC$(19):DIMD%(19):DIMV%(19):DIMBP%256:br%=-1:yr%=-1:Vo%=FALSE:Ck%=FALSE:g_%=0:i_%=FALSE:on%=-1:_B%=-1:DIMS_%36:sl%=0:Ci%=0:k`%=0:_`%=FALSE:NB%=FALSE:r`%=FALSE:QB%=-1:Dy%=FALSE:xo%=FALSE:lo%=FALSE:Sy$="BOLLOCKS":k$="MARVIN MARV DAVE MART MARTIN":tP%=FALSE:xP%=FALSE:S`%=FALSE:Ju%=-1:NJ%=0:P_%=1
   30yO%=FALSE:S=2794/110:UP%=0:no%=FALSE:Uu%=TRUE:cZ%=TRUE:i`%=FALSE:U%=100:yJ%=TRUE:Qi%=100:DIMKp%40:wo%=FALSE:ry%=FALSE:Yn%=FALSE:Wy%=FALSE:_J%=FALSE:mu%=FALSE:Ol%=FALSE:Pl%=FALSE:Zl%=FALSE:Ga%=FALSE:VO%=FALSE:MP%=0:Qa%=TRUE:DIMW%(26):oJ%=-1:lJ%=-1:Mp%=FALSE:sn%=500:DIMyP%256:!zi=yP%:DIMbn%sn%*4:DIMFp%sn%*4:DIMWr% (sn%+1)*4:ya%=40
   31DIMkO%ya%:!da=kO%:DIMGr%256:!ui=Gr%:FORp%=0TO255STEP4:Gr%!p%=0:NEXT:REPEAT:READUa%,T$:Gr%?(ASC(T$))=Ua%:UNTILUa%=0:DIMQr%256:!mi=Qr%:FORp%=0TO255STEP4:Qr%!p%=0:NEXT:REPEAT:READUa%,T$:Qr%?(ASC(T$))=Ua%:UNTILUa%=0:DIMH`%256:!Gu=H`%:DIMN`%256:!el=N`%:FORp%=0TO255STEP4:H`%!p%=0:NEXT:FORp%=0TO255STEP4:N`%!p%=0:NEXT:REPEAT
   32READT$,p%,Zi%:H`%?(ASC(T$))=256*p%/100:N`%?(ASC(T$))=256*Zi%/100:UNTILT$=" ":O%=ASC("0"):REPEAT:READp%,Zi%:H`%?(O%)=256*p%/100:N`%?(O%)=256*Zi%/100:O%+=1:UNTILO%>ASC("9"):O%=ASC("A"):REPEAT:READp%,Zi%:H`%?(O%)=256*p%/100:N`%?(O%)=256*Zi%/100:O%+=1:UNTILO%>ASC("Z"):O%=ASC("a"):REPEAT:READp%,Zi%
   33H`%?(O%)=256*p%/100:N`%?(O%)=256*Zi%/100:O%+=1:UNTILO%>ASC("z"):DIMKA%256:!eu=KA%:OSCLI("Load <OptclPro$Dir>.SData "+STR$~(KA%)):DIMsP% (ya%+1)*4:DIMM%(25):DIMGJ%24:bl%=40:!Zu=bl%:Ay%=-1:W_%=-1:DIMQ% (bl%+1)*16:DIMca% (bl%+1)*16:DIMJP% (bl%+1)*16:DIMf% (bl%+1)*16:DIMio%bl%*16
   34DIMfl%256:DIMie%256:t_%=0:Za%=12:SP%=12:a_%=FALSE:P%=-1:Fn%=-1:xy%=-1:Qy%=0:_%=0:k_%=0:DIMHl%16:DIMkk%16:DIMlk%4:bJ%=0:uJ%=0:Py%=0:An%=10000:Ur%=10000:Aa%=300:DIMPu%An%:DIMMy%An%*2:DIMfJ%Aa%*4:DIMru%Aa%*4:!Ja=ru%:DIMLP%Aa%*4:DIMRP%Aa%:DIMvi%Aa%:DIMKy%Aa%*4:DIMr_%Aa%*4:!O=r_%
   35!x=r_%:DIMJJ%Aa%*4:!z=JJ%:!_=JJ%:DIMa%Ur%*8:DIMYP%100*8:DIMrr%8:DIMVP%8*30:DIMsO%8*30:KJ%=24:DIMgJ%28+ (KJ%+4)*24:DIMVB%28+ (KJ%+4)*24:DIMgn%28+ (KJ%+4)*24:DIMOr%28+ (KJ%+4)*24:DIMA$(KJ%):DIMS$(KJ%):DIMba%KJ%+1:FORq%=0TOKJ%:ba%?q%=255:NEXT:DIMS%(KJ%):DIMaJ%KJ%+1:!Kl=aJ%:DIMjB%KJ%+1
   36L`%=KJ%+4:DIMl`%40*L`%:S%()=TRUE:A$(0)="Times":i%=0:b_%=0:Cy%=0:cl%=TRUE:pi%=TRUE:Ta%=TRUE:fa%=TRUE:X$="":M$="":WP%=53:m%=0:Xu%=0:aa%=1:NP%=1:L_%=0:ENDPROC
   37DATA 1,1,1,!,1,INKEY,1,I,1,i,1,l,1,ELSE,1,ENDIF,1,ENDWHILE,1,PTR,1,MOVE,1,NEXT,1,ON,1,VDU,1,t,1,f,1,ERL,1,ERR
   38DATA 2,b,2,h,2,n,2,u,2,RUN,2,STOP,2,COLOUR,2,TRACE
   39DATA 3,e,3,c,3,o,3,0,3,O,3,Q,3,LOMEM,3,HIMEM,3,SOUND,3,BPUT,3,CALL,3,PROC,3,READ,3,REM,3,REPEAT,3,REPORT,3,INPUT,3,LET,3,LOCAL,3,MODE,3,IF
   40DATA 4,a,4,END,4,ENDPROC,4,ENVELOPE,4,FOR,4,GOSUB,4,GOTO
   41DATA 5,q,5,g
   42DATA 0," "
   43DATA 1,t,1,r
   44DATA 2,k,2,h,2,b,2,o
   45DATA 0," "
   46DATA !,35,35,(,0,20,),20,0,FALSE,0,15,:,30,30,;,30,30,?,15,10,[,0,35,],35,0,{,0,35,},35,0,ERL,20,0,ERR,20,10," ",0,0
   47DATA 10,10,25,25,20,10,25,10,10,10,15,15,10,10,0,10,15,10,10,10
   48DATA 0,0,25,10,0,10,25,0,20,15,20,15,0,15,12,12,35,35,20,20,15,15,25,0,15,15,15,20,10,10,25,15,0,10,25,10,10,10,20,20,10,20,0,20,0,10,10,10,0,20,10,10
   49DATA 0,0,10,0,5,10,15,15,10,10,25,25,15,15,15,0,0,15,20,20,15,10,25,25,0,0,5,0,10,10,25,15,15,15,10,15,10,10,10,25,0,0,0,0,0,0,15,15,15,15,10,10
   50DEFPROCwi:LOCALmk%,zr%:SYS&20039,,"DragASprite_Start"TO;wy%:IFwy%AND1THENNo%=FALSEELSENo%=TRUE
   51!c=0:Qe%=4:!A=0:!Ql=0:DIMhu%14:DIMja%16:DIMle%16:DIM`u%255,Ql%255:FORp%=0TO13:READJ$:hu%?p%=ASC(J$):NEXT:FORp%=0TO15:READJ$:ja%?p%=ASC(J$):NEXT:FORp%=0TO15:READJ$:le%?p%=ASC(J$):NEXT:DIMSa%2048:OSCLI("Load <OptclPro$Dir>.Tables "+STR$~(Sa%)):DIMGo%15:FORp%=0TO15:READGo%?p%:NEXT:!Ga=Sa%:!ci=Go%:DIMWe%512
   52We%+=256:FORh%=-7TO7:FORy%=0TO7:We%!(4*(y%+h%*8))=SQR(y%*y%+h%*h%)*(1<<16):NEXT:NEXT:!Uu=We%:DIMgZ%8192:FORmk%=0TO255:FORzr%=0TO31:gZ%?(32*mk%+zr%)=(zr%/32)*mk%:NEXT:NEXT:!wa=gZ%:DIMiO%64:!pu=iO%:DIM_P%256:!bi=_P%:DIMlP%256:!Ha=lP%:DIMuP%256:!Yl=uP%:DIMiA%256:!ha=iA%:DIMOP%58:DIMcP%1024
   53!kl=OP%:!za=cP%:!iJ=le%:!Pi=le%:DIMo_ 4096:FORy%=0TO63:FORh%=0TO63:IFy%=0THEN
   54o_?(y%+h%*64)=90
   55ELSE:o_?(y%+h%*64)=DEG(ATN(h%/y%))
   56ENDIF:NEXT:NEXT:!Xl=o_:jP%=FALSE:kP%=7:DIMT%(15):T%()=0:DIMKa%16*4:DIMOe%2*4:Oe%!0=-256:Oe%!4=0:DIMtZ%2*4:DIMJA%4*4:DIMdA%16*4:FORp%=0TO1:READ_y%:tZ%!(p%*4)=_y%:NEXT:FORp%=0TO3:READ_y%:JA%!(p%*4)=_y%:NEXT:FORp%=0TO15:READ_y%:dA%!(p%*4)=_y%:NEXT:!Ml=6:!ya=6:ENDPROC
   57DATA a,c,d,e,i,l,m,n,o,p,r,s,t,u
   58DATA b,f,g,h,j,k,q,v,w,x,y,z,e,e,e,i
   59DATA a,a,a,a,a,a,a,a,a,a,a,a,r,d,s,n
   60DATA 0,4,6,5,0,0,7,0,2,3,0,0,1,0,0,0
   61DATA &FFFFFF00,&00000000
   62DATA &FFFFFF00,&BBBBBB00,&77777700,&00000000
   63DATA &FFFFFF00,&DDDDDD00,&BBBBBB00,&99999900,&77777700,&55555500,&33333300,&00000000,&99440000,&00EEEE00,&00CC0000,&0000DD00,&BBEEEE00,&00885500,&00BBFF00,&FFBB0000
   64DEFPROCPl:SYS57,,"OS_SpriteOp"TOtJ%:or%=256+10:C`%=256+9:Nl%=256+40:po%=256+13:Wk%=256+15:FO%=256+24:DP%=512+41:uA%=512+42:IP%=512+52:qP%=256+60:wi%=8192:DIMz%16:DIMOi%16:z%!0=1:z%!4=1:z%!8=1:z%!12=1:DIMy`%256:NO%=0:ENDPROC
   65DEFPROCZn:F%=OPENUP("<OptclPro$Dir>.Code"):Yy%=EXT#F%:CLOSE#F%:DIMJ%Yy%:OSCLI("Load <OptclPro$Dir>.Code "+STR$~(J%)):PROCba:ENDPROC
   66DEFPROCRa:SYS&400d9,,"<OptclPro$Dir>."+y$:Bk%=0:UA%=FNSy("!OptclDemo"):eJ%=FNC("AutoColumn"):`l%=FNC("Bubble"):fy%=FNC("CharCh"):sJ%=FNC("Chars"):By%=FNC("Choices"):eZ%=-3:iy%=FNC("Colour"):HJ%=FNC("Conversion"):u_%=FNC("Dpi"):x%=FNC("Enhance"):k%=FNC("Frame")
   67`_%=FNC("FrButtons"):R`%=FNC("HeapUsage"):Info_Window%=FNC("Info"):Nn%=FNC("LearnAcorn"):g%=FNC("Learner"):H_%=FNC("Merge"):iJ%=FNC("Message"):IJ%=FNC("MLE"):jJ%=FNC("MLEScroll"):Q_%=FNC("Picture"):w_%=FNC("Process"):SaveF_Window%=FNC("SaveF")
   68SaveText_Window%=FNC("SaveText"):W%=FNC("Scanner"):kl%=FNC("ScProgress"):N_%=FNC("Select"):w%=FNC("Spell"):zu%=FNC("Splitter"):Stats_Window%=FNC("Statistics"):e%=FNC("Text"):R_%=FNC("TScan"):Mo%=FNC("TText"):V_%=FNC("Words"):Zoom_Window%=FNC("Zoom"):SYS&400da
   69Z%!0=w%:SYS&400cb,,Z%:M%!0=V_%:SYS&400cb,,M%:eB%=M%!4-Z%!4:lB%=M%!8-Z%!8:Z%!0=IJ%:SYS&400cb,,Z%:M%!0=jJ%:SYS&400cb,,M%:MO%=M%!4-Z%!4:iB%=M%!8-Z%!8:ENDPROC
   70DEFFNd(Y%):CASEY%OF
   71WHENSaveText_Window%:=TRUE
   72WHENSaveF_Window%:=TRUE
   73OTHERWISE=FALSE
   74ENDCASE:=FALSE
   75DEFFNb(Y%)=K_%
   76DEFPROCma:DIMUserDict_Menu%28+ (8+4)*24:Dict_Menu%=FNB("Optical's,Load lexicon,Remove lexicon"):PlainDict_Menu%=FNB("Plain text,Remove lexicon"):TJ%=FNB("Lexicon used,Optical's>Dict_Menu%,Impression's>UserDict_Menu%,Plain text>PlainDict_Menu%")
   77Image_Menu%=FNB("Image,Show,Remove"):Bl%=FNB("Optical Pro,Info...>Info_Window%,Scanned image...>Image_Menu%,OCRed text...,Font manager...,Preferences...,Quit")
   78File_Menu%=FNB("File,To caret... �^F3,Save...       F3>SaveText_Window%,Append        ^A,Statistics    ^S>Stats_Window%"):Edit_Menu%=FNB("Edit / teach,Spelling...   F7,Type teach   �F5")
   79Display_Menu%=FNB("Display,Show full quality     ^Q,Show image bubble     ^B,Show image...         ^I"):Misc_Menu%=FNB("Misc,Format...  �F9,Read out... F8,Re-OCR...   ^R")
   80uk%=FNB("OCRed text,File>File_Menu%,Edit / teach>Edit_Menu%,Display>Display_Menu%,Misc>Misc_Menu%")
   81f_%=FNB("Image,Read page,Font manager...,Scale image...>Zoom_Window%,Edit columns,Delete columns,Rotate image,Map colours...,Re-scan image,Show toolbox"):gB%=FNB("Image,All background,All text,Invert,Update page,Scale...>Zoom_Window%")
   82hk%=FNB("Image,Scale...>Zoom_Window%"):en%=FNB("Synthesizers,ARCticulate,Speech!,SpeechSystem"):cB%=FNB("Splitter,Simple,Advanced"):Lo%=FNB("Scan page,Select source...,Acquire..."):PROCU(Dict_Menu%,2):PROCf(gB%,4):PROCf(f_%,1):PROCf(f_%,3):PROCf(f_%,7):PROCf(f_%,8)
   83PROCf(Bl%,1):PROCf(Bl%,5):PROCf(File_Menu%,2):PROCf(Display_Menu%,2):PROCB(f_%,4):PROCB(f_%,9):ao%=22000:DIMgi%ao%:Pk%=4096:DIMRB%Pk%:qa%=FNj:ENDPROC
   84DEFFNt(Y%):CASEY%OF
   85WHENHr%:PROCA(Info_Window%,5,"� Martin Dawe 1993�1996"):IFZ%(`%)>10000THEN
   86PROCR(Bl%,2)
   87ELSE:PROCU(Bl%,2)
   88ENDIF:=Bl%
   89WHENe%:IFm%THEN
   90PROCR(Misc_Menu%,1):PROCR(File_Menu%,4):PROCR(Edit_Menu%,2)
   91ELSE:PROCU(Misc_Menu%,1):PROCU(File_Menu%,4):PROCU(Edit_Menu%,2)
   92ENDIF:IFQy%=m%ANDno%=FALSETHENPROCU(Misc_Menu%,2)ELSEPROCR(Misc_Menu%,2)
   93IFQy%=m%THENPROCU(File_Menu%,1)ELSEPROCR(File_Menu%,1)
   94IFa_%=FALSETHEN
   95PROCU(Misc_Menu%,1):PROCU(Edit_Menu%,2):PROCU(Misc_Menu%,3)
   96ELSE:PROCR(Misc_Menu%,3)
   97ENDIF:IFZ%(`%)>10000THEN
   98PROCR(Display_Menu%,3)
   99ELSE:PROCU(Display_Menu%,3)
  100ENDIF:IFno%THEN
  101PROCC_(Misc_Menu%,2,"Silence!    F8")
  102ELSE:PROCC_(Misc_Menu%,2,"Read out... F8")
  103ENDIF:IFDy%THEN
  104PROCU(Display_Menu%,1):PROCU(Display_Menu%,2):PROCU(Edit_Menu%,1)
  105ELSE:PROCR(Display_Menu%,1):PROCR(Display_Menu%,2):PROCR(Edit_Menu%,1)
  106ENDIF:IFWy%<>0OR!A<>0ORIy%THEN
  107PROCU(Edit_Menu%,1):PROCU(Edit_Menu%,2)
  108ENDIF:=uk%
  109WHENR_%:PROCu:PROCU(gJ%,2+Cy%):PROCU(gJ%,4+Cy%):IFCy%>-1PROCB(gJ%,i%+1)
  110=gJ%
  111WHENk%:IFFi%PROCR(f_%,8)ELSEPROCU(f_%,8)
  112=f_%
  113WHENQ_%:=gB%
  114WHENw_%:=gB%
  115WHENH_%:=hk%
  116WHENV_%:PROCjJ:=TJ%
  117OTHERWISE=FALSE
  118ENDCASE:=0
  119DEFFNi(Y%,vZ%):CASEY%OF
  120WHENg%:PROCM(g%):PROCM(sJ%):PROCM(HJ%):PROCM(fy%):K%=FNA(1,Nu%)
  121WHENQ_%,w_%,iy%:i_%=FALSE:PROCM(iy%):PROCH
  122WHENk%:IFa_%=FALSEi_%=FALSE:PROCHELSEPROCM(`_%)
  123WHENH_%:CASEKu%OF
  124WHENFALSE:PROCL(k%,FNJ(n%*R%),FNJ(t%*V%)):PROCN(k%,"Process '"+X$+"' ("+M$+")"):IFUu%PROCw(k%)
  125PROCG(k%,-1,-1)
  126WHENTRUE:PROCL(Q_%,FNJ(n%*R%),FNJ(t%*V%)):PROCL(w_%,FNJ(n%*R%),FNJ(t%*V%)):PROCD(iy%):PROCN(Q_%,"Original image"):PROCN(w_%,"Processed image"):PROCG(iy%,-1,-1)
  127ENDCASE:K%=FNA(1,Ny%)
  128WHENe%:PROCM(w%):PROCM(V_%)
  129ENDCASE:=TRUE
  130DEFPROCKi(Y%,L%,X%):CASEY%OF
  131WHENe%:PROCJl
  132WHENQ_%:PROCpa
  133WHENR_%:PROCti
  134WHENw_%:PROCxl
  135WHENsJ%:PROCQi
  136WHENN_%:PROCta
  137WHENV_%:PROCnl
  138WHENiy%:PROCVl
  139WHENk%:PROCFl
  140WHENH_%:PROCCn
  141WHENfy%:PROCGu
  142WHENjJ%:PROCRl
  143WHENzu%:PROCQa
  144WHENBy%:PROCTl
  145WHEN`l%:PROC_u
  146ENDCASE:ENDPROC
  147DEFPROCsJ(Y%,I%,b%,y%,h%):CASEY%OF
  148WHENHr%:PROCoi
  149WHENe%:PROCe(b%,I%)
  150WHENInfo_Window%:PROCMl(b%,I%)
  151WHENg%:PROCUi(b%,I%)
  152WHENw%:PROCJu(b%,I%)
  153WHENsJ%:PROCda(b%,I%)
  154WHENiy%:PROCHu(b%,I%)
  155WHENR_%:PROCtl(b%,I%)
  156WHENN_%:PROCMn(b%,I%)
  157WHENeZ%:PROCRi(b%,I%)
  158WHENV_%:PROC`l(b%,I%)
  159WHENQ_%:PROCb_
  160WHENw_%:PROCb_
  161WHENBy%:PROCmi(b%,I%)
  162WHENk%:PROCTi(b%,I%)
  163WHEN`_%:PROCLa(b%,I%)
  164WHENH_%:PROCo_
  165WHENfy%:PROCLl(b%,I%)
  166WHENZoom_Window%:PROCui(b%,I%)
  167WHENW%:PROCCl(b%,I%)
  168WHENCi%:PROCMi(b%,I%)
  169WHENIJ%:PROCDu(b%,I%)
  170WHENjJ%:PROCNi(b%,I%)
  171WHENiJ%:PROCaJ(b%,I%)
  172WHENx%:PROCxi(b%,I%)
  173WHENeJ%:PROCql(b%,I%)
  174WHENzu%:PROCIu(b%,I%)
  175WHENu_%:PROCGa(b%,I%)
  176WHENHJ%:PROCau(b%,I%)
  177ENDCASE:ENDPROC
  178DEFPROCoi:LOCALkn%:IF(b%AND1)THENi_%=FALSE:PROCl
  179IF(b%AND4)THEN
  180IFFNS(e%)PROCD(e%):PROCG(e%,-1,-1):PROChyELSEPROCBy
  181ENDIF:ENDPROC
  182DEFPROCe(b%,I%):LOCALOa%,Mi%,Me%,LO%:IFb%=64ANDZO%=TRUETHENZO%=FALSE:ENDPROC
  183ZO%=FALSE:IFINKEY-3Mi%=TRUEELSEMi%=FALSE
  184IFINKEY-2Oa%=TRUEELSEOa%=FALSE
  185IFINKEY-1Me%=TRUEELSEMe%=FALSE
  186IFDy%=FALSEANDb%<>100PROCG(e%,-1,-1)
  187IFvy%=FALSEAND(b%AND4)ANDMi%=FALSEANDOa%=FALSEPROCTy:ENDPROC
  188IFgy%?Vu%<>0AND(b%AND4)ANDF_%=FALSEANDMi%=FALSEANDOa%=FALSEPROCTy:ENDPROC
  189IFvy%=FALSEPROCG(e%,-1,-1):ENDPROC
  190IFgy%?Vu%<>0THENENDPROC
  191IFZ%(`%)=0ENDPROC
  192LOCALkn%:IF_%<=0ORa_%=FALSETHENENDPROC
  193IFb%=100THEN
  194xy%=P%:IFxy%>=0THENMB%=uJ%:ZB%=bJ%
  195IFI%=200THENP%=QB%
  196IFI%=100THEN
  197IFF_%THEN
  198F_%=FALSE
  199ELSE:IFFNe(P%)THENF_%=TRUE
  200P%+=1
  201ENDIF
  202ENDIF:IFI%=50THEN
  203IFF_%THEN
  204F_%=FALSE:P%-=1:IFP%<0THENP%=0:F_%=TRUE
  205ELSE:IFFNO(P%)THEN
  206F_%=TRUE
  207ELSE:P%-=1:IFP%<0THENP%=0:F_%=TRUE
  208ENDIF
  209ENDIF
  210ENDIF:IFvy%LO%=36ELSELO%=L_%
  211IFI%=110THEN
  212IFDy%ORjy%THEN
  213PROCa(P%):s%=2+16*uJ%:v%=2+36*(bJ%+t_%):Z_%=s%:uy%=v%-36
  214ELSE:SYS&400d3,,Z%:s%=Z%!8:v%=Z%!12+32:Z_%=s%-8:uy%=-v%-LO%
  215ENDIF:F_%=FALSE:xy%=P%:IFxy%>=0THENMB%=uJ%:ZB%=bJ%
  216P%=FNT(Z_%,uy%):IFP%<0THENP%=0:F_%=TRUE
  217ENDIF:IFI%=120THEN
  218IFDy%ORjy%THEN
  219PROCa(P%):s%=2+16*uJ%:v%=2+36*(bJ%+t_%):Z_%=s%:uy%=v%+36
  220ELSE:SYS&400d3,,Z%:s%=Z%!8:v%=Z%!12+32:Z_%=s%-8:uy%=-v%+LO%
  221ENDIF:F_%=FALSE:xy%=P%:IFxy%>=0THENMB%=uJ%:ZB%=bJ%
  222P%=FNT(Z_%,uy%):IF!Ka<>0THENP%=FNT(Z_%,uy%+LO%)
  223ENDIF:IFDy%THENF_%=FALSE
  224IFP%>=_%THENP%=_%-1:F_%=FALSE
  225IF(Wy%<>0OR!A<>0ORIy%)IFP%>=Ln%THENP%=Ln%-1:F_%=FALSE
  226IF!(a%+P%*8)=-1AND!(a%+4+P%*8)=-1THEN
  227CASEI%OF
  228WHEN100:WHILE!(a%+P%*8)=-1AND!(a%+4+P%*8)=-1ANDP%<_%:P%+=1:ENDWHILE:IFP%>=_%P%=0
  229WHEN50:WHILE!(a%+P%*8)=-1AND!(a%+4+P%*8)=-1ANDP%>0:P%-=1:ENDWHILE:IFP%=0P%=_%-1
  230ENDCASE
  231ENDIF:IFP%>=0THEN
  232A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:CALLg:uJ%=!b:bJ%=!u:Py%=!w
  233ENDIF:SYS&600d3,,GJ%:IFDy%ANDGJ%!0<>R_%THEN
  234To%=GJ%!0:ak%=GJ%!4:xk%=GJ%!20:PROCG(R_%,-1,-1)
  235ENDIF
  236ELSE:Z%!0=e%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:IFDy%=FALSEANDjy%=FALSEANDMi%=FALSEANDOa%=FALSETHENs%-=8:IFs%<0THENs%=0
  237Z_%=s%-L%:uy%=X%-v%:F_%=FALSE:xy%=P%:IFxy%>=0THENMB%=uJ%:ZB%=bJ%
  238P%=FNT(Z_%,uy%):IF!(a%+P%*8)=-1AND!(a%+4+P%*8)=-1THENP%=-1
  239ENDIF:IFDy%ANDb%<>100THEN
  240SYS&600d3,,GJ%:IFGJ%!0<>R_%THEN
  241To%=GJ%!0:ak%=GJ%!4:xk%=GJ%!20:PROCG(R_%,-1,-1)
  242ENDIF
  243ENDIF:IFDy%=FALSEANDjy%=FALSEIF(My%?(P%*2+1))AND28THENPROCXa(P%)
  244IFb%=256PROCHJ(xy%,P%)
  245IFP%=xy%ANDDy%=FALSEANDF_%=FALSEAND(b%AND4)ANDb%<>100ANDMi%=FALSEANDOa%=FALSEPROCTy:ENDPROC
  246IFP%=xy%ANDP%=-1ANDDy%AND(b%AND4)ANDb%<>100ANDMi%=FALSEANDOa%=FALSEPROCy:ENDPROC
  247IFP%=-1THENP%=xy%:PROCNy:ENDPROC
  248IFDy%ANDMe%ANDb%<>100THENAB%=TRUE
  249IFDy%=FALSEORb%<>100THEN
  250Py%=!w
  251ENDIF:IFFNS(R_%)THEN
  252SWAPoi%,U%:Z%!0=R_%:Z%!4=0:Z%!8=-t%*V%*U%/100:Z%!12=n%*R%*U%/100:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:IFxy%>=0PROCty(xy%,-1)
  253PROCty(P%,-1):SYS&400ca,,Z%TOd%:ENDWHILE:oy%=(!(a%+P%*8)AND65535)*U%/100*R%:dJ%=(!(a%+2+P%*8)AND65535)*U%/100*R%:T_%=(!(a%+4+P%*8)AND65535)*U%/100*V%:Yu%=(!(a%+6+P%*8)AND65535)*U%/100*V%:Z%!0=R_%:SYS&400cb,,Z%:tk%=Z%!20:bk%=Z%!20+Z%!12-Z%!4:jO%=-Z%!24
  254mO%=-Z%!24+Z%!16-Z%!8:IFoy%<tk%ORdJ%>bk%ORT_%<jO%ORYu%>mO%THEN
  255IFoy%<tk%ORdJ%>bk%THEN
  256Z%!20=oy%-((bk%-tk%)-(dJ%-oy%))/2
  257ENDIF:IFT_%<jO%ORYu%>mO%THEN
  258Z%!24=((mO%-jO%)-(Yu%-T_%))/2-T_%
  259ENDIF:SYS&400c5,,Z%
  260ENDIF:SWAPoi%,U%
  261ENDIF:IFDy%OR(jy%ANDWy%=0AND!A=0ANDIy%=0)THEN
  262Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=TRUE:WHILEd%:IFxy%>=0PROCg(xy%,-1)
  263IFP%>=0PROCg(P%,-1)
  264SYS&400ca,,Z%TOd%:ENDWHILE
  265ENDIF:PROCO(P%):PROCA_:IFWy%<>0OR!A<>0ORIy%<>0ENDPROC
  266IFDy%ORMi%OROa%PROCzy
  267IFMi%ANDb%=1024PROCVJ
  268IFOa%ANDb%=1024ANDDy%=FALSEPROCFu
  269ENDPROC
  270DEFPROCfi:LOCALF_%,h%:Z%!0=e%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:PROCq:IFs%>Z%!12ORs%<Z%!4ORv%>Z%!16ORv%<Z%!8ORZo%<>e%PROCc:ENDPROC
  271Xi%=P%:IF!(a%+Xi%*8)=-1AND!(a%+4+Xi%*8)=-1THENXi%=-1
  272IFXi%=-1ORvy%=FALSEORgy%?Vu%<>0THENPROCc:ENDPROC
  273PROCMy(Xi%,Xi%):h%=X%-rJ%:IFh%>Z%!16THENh%=Z%!16
  274IFh%<Z%!8THENh%=Z%!8
  275PROCru(L%+Ou%+10,h%,480,64):ENDPROC
  276DEFPROCXa(yu%):LOCALPr%,Re%:Pr%=My%?(yu%*2+1)AND28:Re%=FALSE:WHILEyu%>0ANDRe%=FALSE:yu%-=1:IF(My%?(yu%*2+1)AND28)<>Pr%THENyu%+=1:Re%=TRUE
  277ENDWHILE:REPEAT:My%?(yu%*2+1)=My%?(yu%*2+1)AND227:IFvy%PROCAy(yu%)
  278yu%+=1:UNTILyu%>=_%OR(My%?(yu%*2+1)AND28)<>Pr%:IFvy%=FALSETHENm%=Qy%:PROCr:PROCJ(e%)
  279ENDPROC
  280DEFPROCMl(b%,I%):CASEI%OF
  281ENDCASE:ENDPROC
  282DEFPROC`i(Y%,I%,j%):CASEY%OF
  283WHENg%:PROCjl(I%,j%)
  284WHENw%:PROCFa(I%,j%)
  285WHENBy%:PROCSi(I%,j%)
  286WHENH_%:PROCyl(I%,j%)
  287WHENZoom_Window%:PROChl(I%,j%)
  288WHENW%:PROCPi(I%,j%)
  289WHENfy%:PROCil(I%,j%)
  290WHENe%:PROCTJ(I%,j%)
  291WHENR_%:PROCTJ(I%,j%)
  292WHENiJ%:PROCZl(I%,j%)
  293WHENx%:PROCDl(I%,j%)
  294WHENeJ%:PROCwa(I%,j%)
  295WHENu_%:PROCpi(I%,j%)
  296WHENk%:PROCIl(I%,j%)
  297WHENiy%:PROC_a(I%,j%)
  298OTHERWISEPROCv(j%)
  299ENDCASE:ENDPROC
  300DEFPROCBu(Jy%):CASEJy%OF
  301WHENBl%:PROCNl
  302WHENuk%:PROCBa
  303WHENgJ%:PROCXu
  304WHENVB%:PROCJa
  305WHENgn%:PROCPa
  306WHENOr%:PROCWa
  307WHENqa%:PROCai
  308WHENf_%:PROCli
  309WHENgB%:PROCAa
  310WHENen%:PROCBl
  311WHENhk%:PROCsa
  312WHENcB%:PROCju
  313WHENqn%:PROCOa
  314WHENfi%:PROCul
  315WHENBn%:PROCha
  316WHENLo%:PROCsl
  317WHENTJ%:PROCYa
  318ENDCASE:PROCCJ(Jy%):ENDPROC
  319DEFPROCNl:LOCALkn%:CASEFNP(0)OF
  320WHEN1:SYS&400cf,,Z%:y%=Z%!0:h%=Z%!4:PROCT(Info_Window%,y%,h%):PROCRJ
  321WHEN2:CASEFNP(1)OF
  322WHEN2:PROCM(sJ%):PROCM(HJ%):PROCM(fy%):PROCNy:PROCH:PROCZ(w%,2):PROCZ(w%,5):PROCZ(w%,6):PROCZ(w%,7):PROCZ(w%,10):PROCZ(w%,11):i_%=FALSE:PROCU(Bl%,2):PROCZ(g%,3):Qy%=m%
  323OTHERWISE:PROCW_
  324ENDCASE
  325WHEN3:IFFNS(e%)PROChyELSEPROCBy
  326WHEN4:PROCB_(TRUE)
  327WHEN5:PROCI_:PROCD(By%)
  328WHEN6:g`%=-1:PROCYJ
  329ENDCASE:ENDPROC
  330DEFPROCBa:CASEFNP(0)OF
  331WHEN1:CASEFNP(1)OF
  332WHEN1:PROCAl
  333WHEN2:PROCoy
  334WHEN3:IFcl%cl%=FALSEELSEcl%=TRUE
  335IFcl%PROCK(File_Menu%,3)ELSEPROCV(File_Menu%,3)
  336WHEN4
  337ENDCASE
  338WHEN2:CASEFNP(1)OF
  339WHEN1:PROCz
  340WHEN2:IFDy%PROCyELSEPROCTy
  341ENDCASE
  342WHEN3:CASEFNP(1)OF
  343WHEN1:PROCxy
  344WHEN2:IFvl%vl%=FALSEELSEvl%=TRUE
  345IFvl%PROCK(Display_Menu%,2)ELSEPROCV(Display_Menu%,2):PROCc
  346WHEN3:PROCW_
  347ENDCASE
  348WHEN4:CASEFNP(1)OF
  349WHEN1:PROCnJ
  350WHEN2:PROCF_
  351WHEN3:PROCiJ
  352ENDCASE
  353ENDCASE:ENDPROC
  354DEFPROCW_:PROCD(k%):PROCL(k%,FNJ(n%*R%),FNJ(t%*V%)):PROCN(k%,"'"+X$+"' ("+M$+")"):PROCJ(k%):IFcZ%PROCw(k%)
  355PROCG(k%,-1,-1):ENDPROC
  356DEFPROCiJ:IFDy%PROCy
  357IFa_%=FALSEENDPROC
  358PROCNy:PROCM(w%):PROCM(N_%):Je%=TIME:PROCWy:ENDPROC
  359DEFPROCnJ:PROCZy(gy%):IFa_%AND_%>=0PROCP(x%,22,FALSE)ELSEPROCP(x%,22,TRUE)
  360PROCq:IFFNZ(By%,10)PROCT(x%,s%,v%)
  361ENDPROC
  362DEFPROCaa(S$,R$,Y%):PROCM(`l%):IFR$="OptFonts"AND(Y%=-2ORY%=g%)PROCZu(S$):ENDPROC
  363IFR$="Scanner"PROCCi(S$):ENDPROC
  364IFR$="Impression"PROCp_(S$):ENDPROC
  365IFR$="UserDict"PROCVi(S$):ENDPROC
  366IFR$="Text"PROCzJ(S$):ENDPROC
  367IFR$<>"Sprite"ORWy%OR!AENDPROC
  368i_%=FALSE:Ku%=FALSE:CASEY%OF
  369WHENw_%,Q_%,k%:PROCqy("Message from Optical","Do you want this sprite file to merge with the current one, or replace it?","Merge","Replace","Cancel",0):_$=S$:ENDPROC
  370WHEN-2,e%,`l%
  371OTHERWISEENDPROC
  372ENDCASE:PROCSJ:ENDPROC
  373DEFPROCSJ:V=0:IFui%=FALSEAy%=-1:W_%=-1
  374PROCy:PROCM(sJ%):PROCM(HJ%):PROCM(fy%):PROCNy:PROCH:PROCZ(w%,2):PROCZ(w%,5):PROCZ(w%,6):PROCZ(w%,7):PROCZ(w%,10):PROCZ(w%,11):PROCM(iy%):PROCM(w%):PROCM(Q_%):PROCM(N_%):a_%=FALSE:X$=FNQ(S$):SYS&406c0:F%=OPENUP(S$):ta%=EXT#F%:PTR#F%=4:na%=BGET#F%:PTR#F%=na%+12:Uy%=BGET#F%+BGET#F%*(1<<8)+BGET#F%*(1<<16)+BGET#F%*(1<<24)
  375yy%=BGET#F%+BGET#F%*(1<<8)+BGET#F%*(1<<16)+BGET#F%*(1<<24):CLOSE#F%:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):K%=FNA(ta%+Ru%+8,`%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store the sprite. Need "+STR$((ta%+Ru%+8)DIV1024)+"K."):PROCH:ENDPROC
  376!(A%(`%))=Z%(`%):SYStJ%,C`%,A%(`%):SYStJ%,or%,A%(`%),S$:PROCJ(e%):PROCy_:ENDPROC
  377DEFPROCZa:PROCM(`l%):IFWy%OR!AENDPROC
  378za%=Z%!40:IFza%<>4089THENENDPROC
  379i_%=FALSE:Ku%=FALSE:CASEZ%!20OF
  380WHENw_%,Q_%,k%:PROCqy("Message from Optical","Do you want this sprite file to merge with the current one, or replace it?","Merge","Replace","Cancel",1):_$=S$:ENDPROC
  381WHEN-2,e%,`l%
  382OTHERWISEENDPROC
  383ENDCASE:PROCmJ:ENDPROC
  384DEFPROCmJ:_`%=FALSE:PROCM(sJ%):PROCM(HJ%):PROCM(fy%):PROCNy:PROCH:PROCZ(w%,2):PROCZ(w%,5):PROCZ(w%,6):PROCZ(w%,7):PROCZ(w%,10):PROCZ(w%,11):`B%=TRUE:PROCM(e%):IFui%=FALSEAy%=-1:W_%=-1
  385ta%=Z%!36:v$=FNx:`n%=Z%!8:_O%=Z%!4:PROCM(iy%):PROCM(w%):PROCM(Q_%):PROCM(N_%):a_%=FALSE:X$=FNQ(v$):K%=FNA(ta%+8,`%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store the sprite."):PROCH:ENDPROC
  386!(A%(`%))=Z%(`%):SYStJ%,C`%,A%(`%):PO%=0:dn%=ta%:p`%=TRUE:Z%!8=`n%:PROCa_:ENDPROC
  387DEFPROCa_:!Z%=64:Z%!12=Z%!8:Z%!16=6:IF_`%THEN
  388Z%!20=A%(Ny%)+4+PO%
  389ELSE:Z%!20=A%(`%)+4+PO%
  390ENDIF:Z%!24=dn%:SYS&400e7,18,Z%,_O%:ENDPROC
  391DEFPROCSu:CASE_`%OF
  392WHENTRUE:CASEp`%OF
  393WHENTRUE:na%=!(A%(Ny%)+8):Uy%=!(A%(Ny%)+na%+16):yy%=!(A%(Ny%)+na%+20):dn%=Ia%:p`%=FALSE:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):K%=FNA(Ia%+Ru%+8,Ny%)
  394IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to merge the sprite. Need "+STR$((Ia%+Ru%+8)DIV1024)+"K."):K%=FNA(1,Ny%):ENDPROC
  395!(A%(Ny%))=Z%(Ny%)
  396ENDCASE
  397WHENFALSE:CASEp`%OF
  398WHENTRUE:na%=!(A%(`%)+8):Uy%=!(A%(`%)+na%+16):yy%=!(A%(`%)+na%+20):dn%=ta%:p`%=FALSE:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):K%=FNA(ta%+Ru%+8,`%)
  399IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store the sprite. Need "+STR$((ta%+Ru%+8)DIV1024)+"K."):PROCH:ENDPROC
  400!(A%(`%))=Z%(`%)
  401ENDCASE
  402ENDCASE:za%=Z%!24:IFza%=dn%THENdn%=4:PO%+=za%:PROCa_:ENDPROC
  403IF`B%AND_`%PROCSl:ENDPROC
  404IF`B%THENPROCy_
  405ENDPROC
  406DEFFNx:LOCALr%:My$="":r%=Z%+44:WHILE?r%<>0AND?r%<>13:My$+=CHR$(?r%):r%+=1:ENDWHILE:=My$
  407DEFPROCXy:IFS`%ENDPROC
  408SYStJ%,po%,A%(`%),y`%,16,1TO,,,ky%:M$="":FOR_y%=0TOky%-1:M$+=CHR$(y`%?_y%):NEXT:PROCN(k%,"'"+X$+"' ("+M$+")"):SYStJ%,Nl%,A%(`%),M$TO,,,n%,t%,,Ju%:SYS53,Ju%,9TO,,m_%:_Z%=2^(2^m_%):IF_Z%=256THENPROCC("Optical","I cannot read 256 colour sprites."):PROCH:ENDPROC
  409SYStJ%,FO%,A%(`%),M$TO,,ZP%:_%=0:SYS53,Ju%,5TO,,V%:SYS53,Ju%,4TO,,R%:R%=1<<R%:V%=1<<V%:SYS53,Ju%,3TO,,m_%:PROCM(sJ%):PROCM(HJ%):K%=FNA(1,Nu%):SYS53,Ju%,3TO,,m_%:SYS46,24+256,A%(`%),M$TO,,c%:Uy%=c%!16:yy%=c%!20:Hu%=c%-A%(`%)+c%!32:G_%=c%+44:FOR_y%=0TOm_%
  410Ka%!(_y%*4)=G_%!(_y%*8):NEXT:IFG_%=c%+c%!32THENPROCDJ(m_%)
  411PROCoa:zy%=FALSE:IF(FNG(G_%!0)>FNG(&80808000)ANDFNG(G_%!4)>FNG(&80808000)ANDFNG(G_%!8)<FNG(&80808000)ANDFNG(G_%!12)<FNG(&8080800))ORG_%=c%+c%!32THEN
  412IFm_%=1ANDti%=FALSEANDKu%=FALSETHEN
  413IFql%PROCdy(-1,256+4)
  414PROCWy:SYS&406c1:zy%=TRUE
  415ENDIF:IFm_%=1ANDti%ANDKu%=FALSETHEN
  416IFql%PROCdy(-1,256+4):PROCmyELSEPROCyJ
  417SYS&406c1:zy%=TRUE
  418ENDIF
  419ELSE:IFm_%=1THEN
  420SYS46,60+256,A%(`%),M$,0TOJ,G,B,P:GCOL4,0:RECTANGLEFILL0,0,n%*R%,t%*V%:SYS46,J,G,B,P:G_%!0=FNN(G_%!0):G_%!4=FNN(G_%!4):G_%!8=FNN(G_%!8):G_%!12=FNN(G_%!12):IFql%PROCdy(-1,256+4)
  421IFti%=FALSETHEN
  422PROCWy
  423ELSE:IFql%PROCmyELSEPROCyJ
  424ENDIF:SYS&406c1:zy%=TRUE
  425ENDIF
  426ENDIF:IFzy%ENDPROC
  427PROCT_:SYS&406c1:ENDPROC
  428DEFPROCLu:zy%=FALSE:SYS46,Nl%,A%(`%),M$TO,,,n%,t%:qu%=1024+((n%+32)*(t%+16))DIV8:K%=FNA(qu%+8,WJ%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to colour map this image. Need "+STR$((qu%+8)DIV1024)+"K."):K%=FNA(1,WJ%):zy%=TRUE:ENDPROC
  429!(A%(WJ%))=Z%(WJ%):!(A%(WJ%)+8)=16:IFV%=4THENMa%=0:Ni%=4:Na%=2ELSEMa%=18:Ni%=2:Na%=2
  430IFR%=4THENMa%=4:Ni%=4:Na%=4
  431SYS46,9+256,A%(WJ%):SYS46,15+256,A%(WJ%),M$,1,n%,t%,Ma%:IFR%>Na%THEN
  432z%!0=R%/Na%:z%!8=1
  433ELSE:z%!0=1:z%!8=Na%/R%
  434ENDIF:IFV%>Ni%THEN
  435z%!4=V%/Ni%:z%!12=1
  436ELSE:z%!4=1:z%!12=Ni%/V%
  437ENDIF:SYS46,24+256,A%(WJ%),M$TO,,c%:G_%=c%+44:G_%!0=-256:G_%!4=-256:G_%!8=0:G_%!12=0:SYS&40740,Ju%,Ka%,Ma%,Oe%,Hl%:SYS46,60+256,A%(WJ%),M$,0TOJ,G,B,P:SYS46,52+256,A%(`%),M$,0,0,0,z%,Hl%:SYS46,J,G,B,P:ENDPROC
  438DEFPROCT_:SYS&406c0:m%=Qy%:_%=0:P%=-1:PROCJ(e%):PROCO(P%):PROCLu:IFzy%SYS&406c1:ENDPROC
  439PROCM(k%):PROCM(`_%):FORhy%=0TOm_%:PROCF(iy%,hy%):IFHl%?hy%THEN
  440PROCA(iy%,hy%,"Text"):Z%!0=iy%:Z%!4=hy%:Z%!12=&f000000:Z%!8=0<<24:SYS&400cd,,Z%
  441ELSE:PROCA(iy%,hy%,"Background"):Z%!0=iy%:Z%!4=hy%:Z%!12=&f000000:Z%!8=7<<24:SYS&400cd,,Z%
  442ENDIF:NEXT:IFm_%<15THEN
  443FORhy%=m_%+1TO15:PROCA(iy%,hy%,""):PROCZ(iy%,hy%):NEXT
  444ENDIF:PROCL(Q_%,FNJ(n%*R%),FNJ(t%*V%)):PROCL(w_%,FNJ(n%*R%),FNJ(t%*V%)):PROCN(Q_%,"Original image"):PROCN(w_%,"Processed image"):PROCD(iy%):PROCG(iy%,-1,-1):PROCQ_:SYS&406c1:ENDPROC
  445DEFPROClu(S$,Y%):CASEY%OF
  446WHENSaveText_Window%:IFIO%=FALSEPROCb
  447WHENSaveF_Window%:PROCM(SaveF_Window%):PROCb
  448ENDCASE:ENDPROC
  449DEFPROCJl:IFm%=0ENDPROC
  450IFvy%PROCLiELSEPROCrl
  451ENDPROC
  452DEFPROCL(Y%,y%,h%):LOCALPi%,xe%,ey%,V%,PB%:IFY%=e%y%+=2
  453xe%=LEN("OCRed text")+6:IFY%=e%ANDy%<xe%*2*8+4THENy%=xe%*2*8+4
  454Pi%=LEN("Original Image: '"+X$+"' ("+M$+")")+6:IFY%=Q_%ANDy%<Pi%*2*8THENy%=Pi%*2*8
  455Pi%=LEN("Image name: '"+X$+"' ("+M$+")")+6:IFY%=w_%ANDy%<Pi%*2*8THENy%=Pi%*2*8
  456Pi%=LEN("Define Text Columns")+6:IFY%=k%ANDy%<Pi%*2*8THENy%=Pi%*2*8
  457Pi%=LEN("Merge Scanned Sprites")+6:IFY%=H_%ANDy%<Pi%*2*8THENy%=Pi%*2*8
  458SYS53,-1,12TO,,ey%:SYS53,-1,5TO,,V%:V%=1<<V%:ey%=ey%*V%:IFY%=e%h%+=8*32
  459IFY%=e%ANDh%<ey%-84h%=ey%-84
  460IFy%>0ANDy%<120THENy%=120
  461IFh%>0ANDh%<116THENh%=116
  462PB%=NOT(Uu%):IFPB%=FALSEANDY%=k%ANDy%<1000THENy%=1000
  463IFy%<>0ANDh%<>0THEN
  464Z%!0=0:Z%!12=0:IFPB%=FALSEANDY%=k%THENZ%!12=86
  465Z%!8=y%:Z%!4=-h%:SYS&400d7,Y%,Z%
  466ENDIF:IFY%=Mo%ENDPROC
  467IFY%=e%PROCgJ:ENDPROC
  468!Z%=Y%:SYS&400cb,,Z%:IFr`%=FALSETHEN
  469IFh%<>0THENZ%!16=Z%!8+h%
  470IFy%<>0THENZ%!12=Z%!4+y%
  471IFy%<>0THENZ%!52=y%
  472IFh%<>0THENZ%!48=-h%
  473Z%!24=0:IFPB%=FALSEANDY%=k%THENZ%!16+=86:Z%!48-=86:Z%!24=86
  474PROCAJ
  475ENDIF:SYS&400c5,,Z%:ENDPROC
  476DEFPROCgJ:LOCALR%,V%,sy%,ey%,AO%:IFFNS(e%)THEN
  477ELSE:SYS53,-1,11TO,,sy%:SYS53,-1,12TO,,ey%:SYS53,-1,4TO,,R%:SYS53,-1,5TO,,V%:R%=1<<R%:V%=1<<V%:sy%=sy%*R%:ey%=ey%*V%:Z%!0=e%:AO%=sy%*.16:Z%!4=AO%:Z%!8=AO%+42:Z%!12=sy%-AO%-42:Z%!16=ey%-AO%-42:Z%!24=-(4*8*t_%-16):Z%!28=-1:SYS&400c5,,Z%
  478ENDIF:ENDPROC
  479DEFPROCN(Y%,Q$):CASEY%OF
  480WHENw_%,Q_%,k%,H_%:Q$=Q$+" - at "+STR$(U%)+"%"
  481ENDCASE:PROCu_(Y%,Q$):IFY%=sJ%PROCJ(Y%)
  482ENDPROC
  483DEFPROCLJ:LOCALZa%,SP%,N%:IF_%<1PROCt:a_%=TRUE:ENDPROC
  484K%=FNA(1,Nu%):IFa_%Xu%-=1
  485B%=_%-1:C%=a%:Yy%=USR(Jy)*2:K%=FNA(Yy%,J_%):K%=FNA(Yy%,`y%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to read the sprite. Need "+STR$((2*Yy%)DIV1024)+"K."):K%=FNA(1,J_%):K%=FNA(1,`y%):ENDPROC
  486B%=a%:C%=_%:F`%=USR(YJ):My%?1=1:!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!f_=Pu%:!r_=My%:!sy=An%:!d=0:!Zy=fJ%:!Fy=a%:!p=Ky%:!U_=vi%:B%=_%:F%=Bu%:G%=SJ%:H%=a%:IFLi%THEN!Y_=50:!GJ=50:!R=1:!U=0:!M=0:Wy%=2:PROC`J:ENDPROC
  487!Y_=50:!GJ=50:!R=0:CALLc_:_%=!RJ:IF!sy=0PROCX("Optical","Not all of the text could be handled, possibly due to a bad quality scanned image.")
  488IF!`_ Wy%=0:!i=TRUE
  489K%=FNA(1,J_%):ENDPROC
  490DEFPROCza:LOCALMl%,F`%,h`%,T`%,GB%,FJ%,CJ%:IFxO%PROCO(P%):xO%=FALSE
  491IFqo%M%!0=e%:SYS&400cb,,M%:M%!24=ee%:SYS&400c5,,M%:qo%=FALSE
  492PROCq:Y%=Zo%:I%=Sk%:IFHn%PROCBi
  493IFYO%PROCn:PROCJ(e%):YO%=FALSE
  494CASEZo%OF
  495WHENH_%:PROCku
  496WHENk%:PROCMJ
  497WHENzu%:PROCpl
  498ENDCASE:PROCga:IFO_%>=0Yo%=TRUE:PROCWJ:ENDPROC
  499IFDy%ENDPROC
  500IFt`%PROCduELSEIFvl%PROCfi
  501IFWy%=1PROCq_:ENDPROC
  502IFWy%=2PROCv_:ENDPROC
  503IF!APROCH_:ENDPROC
  504IFHo%PROCV_
  505IFlo%PROCxa:ENDPROC
  506IFyO%PROCNu:ENDPROC
  507IFxo%SYS&406c1:xo%=FALSE
  508SYS&600d3,,GJ%:IFGJ%!0=g%IFGJ%!4=19IFFNM(g%,19)<>Sy$Sy$=FNM(g%,19):PROC_
  509IFGJ%!0=w%IFGJ%!4=1IFFy%>0IFFNM(w%,1)<>k$k$=FNM(w%,1):PROCd_
  510IFFNS(W%)THEN
  511PROCvu:IFyo%PROCz_
  512IFIk%PROCpJ
  513ELSE:IFxJ%<>256SYS"Scan_Stop"
  514ENDIF:Z%!0=20:Z%!12=0:SYS&600e7,19,Z%,Y%TO,,xi%:IFxi%<>0Ao%=Y%
  515Be%=FALSE:IFsl%IFFNq(sl%)=FALSEPROCM(Ci%):sl%=FALSE:Be%=TRUE
  516IFsl%PROCdl:PROCGl
  517IF(Be%ORY%<>k`%)ANDsl%=FALSETHEN
  518k`%=Y%:Z%!0=20:Z%!12=0:SYS&600e7,19,Z%,Ao%TO,,xi%:Z%!0=24:Z%!12=0:Z%!16=&400c6:Z%!20=xi%:SYS&400e7,17,Z%,0
  519ENDIF:IFY%=Ci%PROCHl(Y%,I%)
  520ENDPROC
  521DEFPROCga:LOCALUJ%,x_%,FJ%,CJ%:IFmu%OROl%ORPl%ORZl%<>0THEN
  522SYS53,-1,4TO,,UJ%:SYS53,-1,5TO,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:Z%!0=__%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24
  523ENDIF:IFmu%PROCFn
  524IFOl%PROCka
  525IFPl%PROCOi
  526IFZl%PROCUa
  527IFVO%PROCal
  528ENDPROC
  529DEFPROCFn:FJ%=s%-L%:IFFJ%<0FJ%=0
  530IFFJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100
  531CJ%=X%-v%:IFCJ%<x_%CJ%=x_%
  532IFCJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100
  533IFby%<>FJ%ORty%<>CJ%THEN
  534Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:Z%!0=__%:SYS&400cc,,Z%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11)
  535RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE
  536ENDIF:PROCL_:ENDPROC
  537DEFPROCka:FJ%=s%-ze%-L%+(by%-Vy%):SO%=s%-ze%-L%:IFSO%<0SO%=0:FJ%=by%-Vy%
  538IFFJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100:SO%=FJ%-by%+Vy%
  539CJ%=X%-we%-v%+(ty%-Hy%):c`%=X%-we%-v%:IFc`%<x_%c`%=x_%:CJ%=c`%+ty%-Hy%
  540IFCJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100:c`%=CJ%-ty%+Hy%
  541IFby%<>FJ%ORty%<>CJ%THEN
  542Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:Z%!0=__%:SYS&400cc,,Z%:Vy%=SO%:Hy%=c`%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%
  543WHILEd%:PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE
  544ENDIF:!Z%=__%:SYS&400cb,,Z%:F`%=Z%!4:h`%=Z%!8:T`%=Z%!12:GB%=Z%!16:Ml%=FALSE:IFs%+(by%-Vy%)/2+UJ%>T`%THEN
  545Z%!20+=s%-T`%+(by%-Vy%)/2+UJ%:Ml%=TRUE
  546ENDIF:IFv%+(ty%-Hy%)/2+x_%>GB%THEN
  547Z%!24+=v%-GB%+(ty%-Hy%)/2+x_%:Ml%=TRUE
  548ENDIF:IFs%-(by%-Vy%)/2<F`%THEN
  549Z%!20-=F`%-s%+(by%-Vy%)/2:Ml%=TRUE
  550ENDIF:IFv%-(ty%-Hy%)/2<h`%THEN
  551Z%!24-=h`%-v%+(ty%-Hy%)/2:Ml%=TRUE
  552ENDIF:IFMl%THEN
  553PROCDy:SYS&400c5,,Z%
  554ENDIF:ENDPROC
  555DEFPROCOi:FJ%=s%-L%:IFFJ%<0FJ%=0
  556IFFJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100
  557CJ%=X%-v%:IFCJ%<x_%CJ%=x_%
  558IFCJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100
  559IFby%<>FJ%ORty%<>CJ%THEN
  560Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):LINEVy%+L%,X%-Hy%,L%+by%,X%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:Z%!0=__%:SYS&400cc,,Z%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11)
  561LINEVy%+L%,X%-Hy%,L%+by%,X%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE
  562ENDIF:PROCL_:ENDPROC
  563DEFPROCUa:FJ%=s%-L%:IFFJ%<0FJ%=0
  564IFFJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100
  565CJ%=X%-v%:IFCJ%<x_%CJ%=x_%
  566IFCJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100
  567IFby%<>FJ%ORty%<>CJ%THEN
  568Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):LINEVy%+L%,X%-Hy%,L%+by%,X%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:Z%!0=__%:SYS&400cc,,Z%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11)
  569LINEVy%+L%,X%-Hy%,L%+by%,X%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE
  570ENDIF:PROCL_:ENDPROC
  571DEFPROCL_:!Z%=__%:SYS&400cb,,Z%:F`%=Z%!4:h`%=Z%!8:T`%=Z%!12:GB%=Z%!16:Ml%=FALSE:IFs%+UJ%>T`%THEN
  572Z%!20+=s%-T`%+UJ%:Ml%=TRUE
  573ENDIF:IFv%+x_%>GB%THEN
  574Z%!24+=v%-GB%+x_%:Ml%=TRUE
  575ENDIF:IFs%<F`%THEN
  576Z%!20-=F`%-s%:Ml%=TRUE
  577ENDIF:IFv%<h`%THEN
  578Z%!24-=h`%-v%:Ml%=TRUE
  579ENDIF:IFMl%THEN
  580PROCDy:SYS&400c5,,Z%
  581ENDIF:ENDPROC
  582DEFPROCD_:CASEZ%!0OF
  583WHENH_%:SYS&600d3,,GJ%:SYS&600d2,Z%!0,-1
  584ENDCASE:ENDPROC
  585DEFPROCJn:CASEZ%!0OF
  586WHENH_%:PROCY(""):SYS&600d2,GJ%!0,GJ%!4,GJ%!8,GJ%!12,GJ%!16,GJ%!20
  587WHENk%:IFmu%=FALSEANDOl%=FALSEANDPl%=FALSEANDZl%=FALSEPROCY(""):_J%=0
  588WHENe%:PROCc
  589ENDCASE:ENDPROC
  590DEFPROCpa:PROCUy:my%=L%:A_%=X%-t%*V%*U%/100:PROCI(A%(`%),M$,my%,A_%,0,z%):IFmu%IF__%=Q_%PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%
  591ENDPROC
  592DEFPROCFl:LOCALN%:PROCUy:my%=L%:A_%=X%-t%*V%*U%/100:PROCI(A%(`%),M$,my%,A_%,0,z%):IFAk%PROClJ
  593Gy%=(Z%!16-Z%!24-Z%!32)/V%:Ly%=(Z%!16-Z%!24-Z%!40)/V%:Oy%=(Z%!28-Z%!4+Z%!20)/R%:dy%=(Z%!36-Z%!4+Z%!20)/R%:IFGy%<0Gy%=0
  594IFLy%<0Ly%=0
  595IFOy%<0Oy%=0
  596IFdy%<0dy%=0
  597IFAy%>=0THEN
  598FORN%=0TOAy%:IF(Q%!(N%*16)*U%/100<dy%+16/R%ANDQ%!(N%*16+8)*U%/100>Oy%-16/R%)OR(Q%!(N%*16+4)*U%/100<Ly%+16/V%ANDQ%!(N%*16+12)*U%/100>Gy%-16/V%)THEN
  599PROCW(3,10):RECTANGLEL%+Q%!(N%*16)*R%*U%/100,X%-Q%!(N%*16+4)*V%*U%/100,(Q%!(N%*16+8)-Q%!(N%*16))*R%*U%/100,-(Q%!(N%*16+12)-Q%!(N%*16+4))*V%*U%/100:PROCW(3,8):RECTANGLEL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
  600RECTANGLEL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:RECTANGLEL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:RECTANGLEL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16
  601ENDIF:NEXT:IFAy%>0THEN
  602PROCW(3,11):FORN%=1TOAy%:LINEL%+Q%!(N%*16-8)*R%*U%/100-32,X%-Q%!(N%*16-4)*V%*U%/100,L%+Q%!(N%*16)*R%*U%/100+32,X%-Q%!(N%*16+4)*V%*U%/100:RECTANGLEFILLL%+Q%!(N%*16-8)*R%*U%/100-8-32,X%-Q%!(N%*16-4)*V%*U%/100-8,16,16
  603RECTANGLEFILLL%+Q%!(N%*16)*R%*U%/100-8+32,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:NEXT
  604ENDIF
  605ENDIF:IFW_%>-1THEN
  606FORN%=0TOW_%:PROCW(3,11):RECTANGLEL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,(f%!(N%*16+8)-f%!(N%*16))*R%*U%/100,-(f%!(N%*16+12)-f%!(N%*16+4))*V%*U%/100:RECTANGLEL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16
  607RECTANGLEL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16:RECTANGLEL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16:RECTANGLEL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16
  608LINEL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:LINEL%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:NEXT
  609ENDIF:IFmu%OROl%PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%
  610IFPl%ORZl%<>0PROCW(3,11):LINEVy%+L%,X%-Hy%,by%+L%,X%-ty%
  611ENDPROC
  612DEFPROCxl:PROCUy:my%=L%:A_%=X%-t%*V%*U%/100:PROCI(A%(WJ%),M$,my%,A_%,0,z%):IFmu%IF__%=w_%PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%
  613ENDPROC
  614DEFPROCti:SWAPU%,oi%:PROCUy:my%=L%:A_%=X%-t%*V%*U%/100:PROCI(A%(`%),M$,my%,A_%,0,z%):IFAk%PROClJ
  615IF_%>1ANDP%>=0PROCty(P%,-1)
  616SWAPU%,oi%:ENDPROC
  617DEFPROClJ:IF_%<=0ENDPROC
  618Gy%=(Z%!16-Z%!24-Z%!32)/V%:Ly%=(Z%!16-Z%!24-Z%!40)/V%:Oy%=(Z%!28-Z%!4+Z%!20)/R%:dy%=(Z%!36-Z%!4+Z%!20)/R%:IFGy%<0Gy%=0
  619IFLy%<0Ly%=0
  620IFOy%<0Oy%=0
  621IFdy%<0dy%=0
  622PROCW(3,8):A%=a%:B%=_%:C%=Gy%:D%=Ly%:E%=Oy%:F%=dy%:G%=R%:H%=V%:!Hi=L%:!Ai=X%:!Di=U%:CALLCa:ENDPROC
  623DEFPROCtl(b%,I%):LOCALkn%,pe%,Mi%:IF!A<>0ENDPROC
  624IFINKEY-3Mi%=TRUEELSEMi%=FALSE
  625IFgy%?Vu%<>0THENENDPROC
  626IF_%<=0THENENDPROC
  627SWAPoi%,U%:IFDy%THEN
  628SYS&600d3,,GJ%:IFGJ%!0<>R_%THEN
  629To%=GJ%!0:ak%=GJ%!4:xk%=GJ%!20:PROCG(R_%,-1,-1)
  630ENDIF
  631ENDIF:Z%!0=R_%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%*100/U%:uy%=(X%-v%)/V%*100/U%:xy%=P%:B%=a%:C%=_%-1:D%=Z_%:E%=uy%:pe%=USR(ba):IFb%=256PROCHJ(P%,pe%)
  632P%=pe%:IFP%=-1P%=xy%:PROCNy:SWAPoi%,U%:ENDPROC
  633Z%!0=R_%:Z%!4=0:Z%!8=-t%*V%*U%/100:Z%!12=n%*R%*U%/100:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:IFxy%>=0PROCty(xy%,-1)
  634PROCty(P%,-1):SYS&400ca,,Z%TOd%:ENDWHILE:IFDy%ORjy%THEN
  635Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=TRUE:WHILEd%:IFxy%>=0PROCg(xy%,-1)
  636PROCg(P%,-1):SYS&400ca,,Z%TOd%:ENDWHILE
  637ENDIF:PROCO(P%):PROCA_:IFDy%ORMi%PROCzy
  638IFINKEY-3PROCVJ
  639SWAPoi%,U%:ENDPROC
  640DEFPROCzy:LOCALO%,Wp%,Qp%,ro%,je%,Yy%,Gl%,ZA%,OB%,Tu%:IFP%=-1ENDPROC
  641IF(My%?(P%*2+1)AND2)THENENDPROC
  642SYS&406c0:Fn%=P%:oy%=(!(a%+P%*8)AND65535)-1:dJ%=(!(a%+2+P%*8)AND65535)+1:T_%=(!(a%+4+P%*8)AND65535)-1:Yu%=(!(a%+6+P%*8)AND65535)+1:!J_=oy%:!T_=dJ%:!`y=T_%:!Q_=Yu%:Yy%=(ABS(dJ%-oy%)+1)*(ABS(Yu%-T_%)+1):IFZ%(J_%)<Yy%THENK%=FNA(Yy%,J_%)ELSEK%=TRUE
  643IFZ%(`y%)<Yy%THENK%=FNA(Yy%,`y%)ELSEK%=TRUE
  644IFK%=FALSEPROCC("Optical","There is not enough free memory available to display the character. Need "+STR$(Yy%DIV1024)+"K."):K%=FNA(1,J_%):PROCZ(g%,12):ENDPROC
  645A%=Uy%+1:G%=A%(J_%):H%=A%(`%)+Hu%:CALLA_:U_%=dJ%-oy%+1:I_%=Yu%-T_%+1:IFZ%(Nu%)<U_%*I_%THENK%=FNA(U_%*I_%,Nu%)ELSEK%=TRUE
  646IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to display the character. Need "+STR$((U_%*I_%)DIV1024)+"K."):K%=FNA(1,Nu%):ENDPROC
  647IFU_%<20ORI_%<20THEN!(A%(Nu%))=1024ELSE!(A%(Nu%))=U_%*I_%
  648!(A%(Nu%)+4)=0:!(A%(Nu%)+8)=16:SYStJ%,C`%,A%(Nu%):IFV%=4THENMa%=0ELSEMa%=18
  649IFR%=4THENMa%=4
  650SYStJ%,Wk%,A%(Nu%),"Learner",0,U_%,I_%,Ma%:SYStJ%,FO%,A%(Nu%),"Learner"TO,,RA%:A%=512+42:B%=A%(Nu%):C%=RA%:D%=U_%-1:E%=I_%-1:F%=U_%:G%=A%(J_%):CALLgl:IFP%=-1SYS&406c1:ENDPROC
  651IF!(A%(u%))>0THEN
  652B%=_%-1:C%=a%:Yy%=USR(Jy)*2:IFZ%(J_%)<Yy%THENK%=FNA(Yy%,J_%)ELSEK%=TRUE
  653IFZ%(`y%)<Yy%THENK%=FNA(Yy%,`y%)ELSEK%=TRUE
  654IFK%=FALSEPROCC("Optical","There is not enough free memory available to calculate this letter. Need "+STR$((Yy%*2)DIV1024)+"K."):K%=FNA(1,J_%):K%=FNA(1,`y%):SYS&406c1:ENDPROC
  655D%=Ky%:E%=P%:!M=USR(Ay):!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!p=Ky%:!Uy=P%:!Xy=P%:!Zy=fJ%:!Fy=a%:!c=1:B%=_%:F%=Bu%:G%=SJ%:H%=a%:Gl%=USR(L_)
  656ELSE:Gl%=3:?s=0
  657ENDIF:!c=0:IF?s=0THENz$="???"ELSEz$=CHR$(!s)
  658IFP%>=0AND(Dy%ORNB%)THENPROCc_(P%)
  659IFz$<>"???"ANDAB%PROCt_(Gl%DIV4+1):AB%=FALSE
  660PROCA(g%,19,z$):PROCA(g%,16,""):PROCF(g%,12):PROC_:SYS&406c1:ENDPROC
  661DEFPROCc_(nl%):NB%=FALSE:C_%=A%(qy%):PROCa(nl%):XA%=C_%?(Py%-1):DA%=C_%?Py%:ZA%=My%?(nl%*2):My%?(nl%*2)=Gl%:OB%=My%?(nl%*2+1)AND159:IF!sJ=1THENOB%+=(1<<5)
  662IF!sJ=2THENOB%+=(1<<6)
  663IF?s=0THEN!s=gy%?ha%:OB%=OB%AND131
  664My%?(nl%*2+1)=OB%:LA%=C_%?(Py%+1):C_%?Py%=?s:ro%=Py%-4:IFro%<Qy%ro%=Qy%
  665je%=Py%+4:IFje%>m%je%=m%
  666IF(gy%?uB%<>0)AND(gy%?oB%<>0)ANDDy%=FALSETHEN
  667A%=Qy%:B%=m%:C%=A%(qy%):CALLq_
  668ENDIF:IFC_%?(Py%-1)<>XA%PROCAy(nl%-1)
  669IFC_%?Py%<>DA%ORGl%<>ZA%PROCAy(nl%)
  670IFC_%?(Py%+1)<>LA%PROCAy(nl%+1)
  671ENDPROC
  672DEFPROCAy(Wa%):LOCALuJ%,bJ%,Py%,hy%,Gl%,n`%,uO%,Uo%:PROCa(Wa%):IF!V_<>0ENDPROC
  673J$=CHR$(?(A%(qy%)+Py%)):Pu%?Wa%=ASC(J$):PROCt:IFvy%=FALSEENDPROC
  674Gl%=My%?(Wa%*2):CASE(Gl%AND3)OF
  675WHEN0:hy%=1
  676WHEN1:hy%=2
  677WHEN2:hy%=4
  678WHEN3:hy%=7
  679ENDCASE:Gl%=(My%?(Wa%*2+1))DIV4:CASE(Gl%AND7)OF
  680WHEN1:n`%=11
  681WHEN2:n`%=14
  682WHEN4:n`%=10
  683OTHERWISEn`%=7
  684ENDCASE:IFJ$=CHR$14THENhy%=11:n`%=2:J$="_"
  685Gl%=My%?(Wa%*2+1):uO%=Gl%AND(1<<5):Uo%=Gl%AND(1<<6):IFuO%<>0ORUo%<>0THENVDU23,17,7,2,8;!Cy*.75;0;
  686Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=TRUE:WHILEd%:SYS&400e6,0:RECTANGLEFILLL%+2+16*uJ%,X%-2-36*(bJ%+t_%),14,-34:MOVEL%+2+16*uJ%,X%-6-36*(bJ%+t_%):IFuO%THENVDU25,0,0;4;
  687IFUo%THENVDU25,0,0;-8;
  688IFJ$="???"ORJ$=CHR$0THEN
  689SYS&400e6,8:IFgy%?ha%=0THENVDUASC("?")ELSEVDUgy%?ha%
  690ELSE:IFYB%THEN
  691SYS&400e6,hy%
  692ELSE:SYS&400e6,n`%
  693ENDIF:VDUASC(J$)
  694ENDIF:IFWa%=P%ANDDy%PROCg(P%,-1)
  695SYS&400ca,,Z%TOd%:ENDWHILE:IFuO%<>0ORUo%<>0THENVDU23,17,7,2,8;!Cy;0;
  696ENDPROC
  697DEFPROCNy:IFP%=-1OR_%<1ENDPROC
  698IFa_%THEN
  699IFDy%ORjy%THEN
  700Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=TRUE:WHILEd%:PROCg(P%,-1):SYS&400ca,,Z%TOd%:ENDWHILE
  701ELSE:SYS&600d2,e%,-1,-1,-1,-1,-1
  702ENDIF
  703ENDIF:P%=-1:ENDPROC
  704DEFPROCSi(I%,j%):IF(I%<>23ANDI%<>24ANDI%<>25)ORj%<>13SYS&400dc,j%:ENDPROC
  705CASEI%OF
  706WHEN22:PROCLy(By%,23)
  707WHEN23:PROCLy(By%,22)
  708ENDCASE:ENDPROC
  709DEFPROCMn(b%,I%):CASEI%OF
  710WHEN4:PROCM(N_%)
  711WHEN3,5:PROCrJ:PROCT(gn%,y%,h%)
  712WHEN1:PROCyi:PROCT(VB%,y%,h%)
  713WHEN8:PROCk(b_%,65,90):PROCJ(N_%)
  714WHEN9:PROCk(b_%,97,122):PROCJ(N_%)
  715WHEN10:PROCk(b_%,48,57):PROCJ(N_%)
  716WHEN11:PROCk(b_%,33,47):PROCk(b_%,58,64):PROCk(b_%,91,96):PROCk(b_%,123,126):PROCJ(N_%)
  717WHEN12:PROCk(b_%,127,191):PROCJ(N_%)
  718WHEN7:PROCk(b_%,192,255):PROCJ(N_%)
  719OTHERWISE:PROChu
  720ENDCASE:ENDPROC
  721DEFPROCta:Gy%=X%-Z%!32:Ly%=X%-Z%!40:IFGy%>=0ORLy%>=0PROCqa
  722ENDPROC
  723DEFPROCyi:PROCvl:FORSy%=0TOCy%:IFS%(Sy%)THENPROCK(VB%,Sy%+1)ELSEPROCV(VB%,Sy%+1)
  724NEXT:ENDPROC
  725DEFPROCvl:Z$="Fonts":FORSy%=0TOCy%:Z$+=","+A$(Sy%):NEXT:PROCyy(VB%,Z$):ENDPROC
  726DEFPROCrJ:Z$="Fonts":Mk%=FALSE:l%=0:FORSy%=0TOCy%:IFS%(Sy%)THEN
  727l%+=1:Z$+=","+A$(Sy%):IFb_%=Sy%THENMk%=l%
  728ENDIF:NEXT:IFl%=0THEN
  729Z$+=",None selected":PROCyy(gn%,Z$):PROCU(gn%,1)
  730ELSE:PROCyy(gn%,Z$):FORSy%=1TOl%:PROCV(gn%,Sy%):NEXT:IFMk%PROCK(gn%,Mk%)
  731ENDIF:ENDPROC
  732DEFPROCJa:Sy%=FNP(0)-1:IFS%(Sy%)THENS%(Sy%)=FALSEELSES%(Sy%)=TRUE
  733PROCB(VB%,Sy%+1):IFS%(Sy%)=FALSETHEN
  734PROCll(Sy%):b_%=0:Sy%=0:REPEAT:IFS%(Sy%)THENb_%=Sy%
  735Sy%+=1:UNTILS%(Sy%-1)ORSy%>Cy%:PROCA(N_%,3,A$(b_%))
  736ELSE:PROCHi(Sy%)
  737ENDIF:PROCJ(N_%):ENDPROC
  738DEFPROCPa:py%=FNP(0)-1:Xe%=-1:FORSy%=0TOCy%:IFS%(Sy%)THENXe%+=1
  739IFXe%=py%THEN
  740b_%=Sy%:PROCA(N_%,3,A$(b_%)):PROCJ(N_%):PROCrJ:Sy%=Cy%
  741ENDIF:NEXT:ENDPROC
  742DEFPROCHi(ir%):IF!(A%(u%))>0THEN
  743FORl%=0TO!(A%(u%))-1:IF(?(A%(u%)+5+l%*8)AND127)=ir%THEN?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)AND127)+128
  744NEXT
  745ENDIF:ENDPROC
  746DEFPROCll(ir%):IF!(A%(u%))>0THEN
  747FORl%=0TO!(A%(u%))-1:IF(?(A%(u%)+5+l%*8)AND127)=ir%THEN?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)AND127)
  748NEXT
  749ENDIF:ENDPROC
  750DEFPROCk(ir%,cn%,yA%):CASEb%OF
  751WHEN1:sr%=0
  752WHEN4:sr%=128
  753OTHERWISEENDPROC
  754ENDCASE:IF!(A%(u%))>0THEN
  755FORl%=0TO!(A%(u%))-1:IF(?(A%(u%)+5+l%*8)AND127)=ir%IF?(A%(u%)+4+l%*8)>=cn%IF?(A%(u%)+4+l%*8)<=yA%THEN?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)AND127)+sr%
  756NEXT
  757ENDIF:ENDPROC
  758DEFPROCqa:LOCALoA%,bA%,j_%:SYS&400e6,2:RECTANGLEFILLL%,X%-4,1200,-32:RECTANGLEFILLL%,X%-4,22,-360:SYS&400e6,7:_l%=L%+4:Rl%=X%-8:FORq%=3TO25:MOVE_l%+32+(q%-3)*3*16,Rl%:PRINT;q%:NEXT:FORq%=0TO9:MOVE_l%,Rl%-32-q%*32:PRINT;q%:NEXT:G%=_l%:H%=Rl%:!my=A%(u%):!ty=b_%:CALLxJ:PROCW(3,7):oA%=_l%+24-144:bA%=Rl%-30
  759!my=A%(u%):!ty=b_%:G%=_l%:H%=Rl%:CALLwl:ENDPROC
  760DEFPROChu:IF!(A%(u%))<1ENDPROC
  761Z%!0=N_%:SYS&400e0,,Z%:I`%=Z%!4+4:V`%=Z%!8+356-8:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:IFs%-I`%>31ANDV`%-v%>31THENO%=30+INT((s%-I`%-16)/48)*10+INT((V`%-v%-30)/32)ELSEENDPROC
  762d_%=FALSE:FORl%=0TO!(A%(u%)):IF(?(A%(u%)+5+l%*8)AND127)=b_%AND?(A%(u%)+4+l%*8)=O%THEN
  763CASEb%OF
  764WHEN4:IF(?(A%(u%)+5+l%*8)AND128)=FALSETHENDi%=TRUEELSEDi%=FALSE
  765S%(b_%)=TRUE
  766WHEN1:IF(?(A%(u%)+5+l%*8)AND128)THENDi%=TRUEELSEDi%=FALSE
  767OTHERWISEDi%=FALSE
  768ENDCASE:IFDi%THEN
  769IF(?(A%(u%)+5+l%*8)AND128)THEN
  770FORj_%=0TO!(A%(u%)):IF(?(A%(u%)+5+j_%*8)AND127)=b_%AND?(A%(u%)+4+j_%*8)=O%THEN?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)AND127)
  771NEXT
  772ELSE:FORj_%=0TO!(A%(u%)):IF(?(A%(u%)+5+j_%*8)AND127)=b_%AND?(A%(u%)+4+j_%*8)=O%THEN?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)AND127)+128
  773NEXT
  774ENDIF:PROCW(3,7):Z%!0=N_%:Z%!4=0:Z%!8=-360:Z%!12=1200:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:PROCW(3,7):RECTANGLEFILLL%+28+((?(A%(u%)+4+l%*8)DIV10)-3)*3*16,X%-40-(?(A%(u%)+4+l%*8)MOD10)*32,30,-30:SYS&400ca,,Z%TOd%:ENDWHILE
  775ENDIF:l%=!(A%(u%)):d_%=TRUE
  776ENDIF:NEXT:ENDPROC
  777DEFPROCuJ:LOCALf`%,In%,Tn%,p%,rA%,q%,Yk%:IF_%<1ENDPROC
  778A%=a%:B%=_%-1:!_J=f%:!w_=W_%:f`%=USR(WJ):Bu%=(!Ky)/f`%:SJ%=(!Yy)/f`%:!QJ=Bu%:!O_=SJ%:!OJ=SJ%:!Yy=SJ%:!Ky=Bu%:A%=W_%:B%=_%-1:C%=f%:D%=a%:E%=Bu%*2:F%=SJ%*3:W_%=USR(Ji):A%=_%:B%=a%:D%=Ky%:E%=YP%:F%=fJ%:!Ba=Uy%+1:!hl=A%(`%)+Hu%:!uJ=n%:!Nl=yy%:!yJ=SJ%/10
  779!Ri=Aa%:!U_=vi%:!Gi=f%:!Il=W_%:!z=JJ%:!O=r_%:!fi=A%(pn%):!Yu=a%:!Ni=SJ%/2:!zu=RP%:!Zi=LP%:!qy=Bu%*8:IFRn%THEN!MJ=2/100*256ELSE!MJ=10/100*256
  780!k_=(!L-!D)/!qy:IF(!L-!D)/!qy<>INT((!L-!D)/!qy)THEN!k_+=1
  781!Ti=ru%:SYS&406c5,3,3:_%=USR(Qi):SYS&406c5,0,0:e_%=!W:Gi%+=e_%:!D_=Ky%:!Z_=e_%:ENDPROC
  782DEFPROCoJ:PROCNJ(r_%,SJ%/8,SJ%*(1<<16)):PROCNJ(JJ%,Bu%/3,Bu%*(1<<16)):ENDPROC
  783DEFPROCNJ(nl%,lA%,CP%):A%=nl%:B%=e_%:C%=CP%:D%=lA%:CALLml:ENDPROC
  784DEFPROCUJ:LOCALf`%,KO%:IF_%<1ENDPROC
  785!_J=f%:!w_=W_%:A%=a%:B%=SJ%:C%=Ky%:D%=_%:CALLa_:PROCoJ:!z=JJ%:!O=r_%:!M_=_%:A%=A%(pn%):B%=Ky%:C%=e_%:D%=Bu%:SYS&406c5,2,2:CALLni:SYS&406c5,0,0:Zp%=_%-!M_:_%=!M_:IF_%<=1ENDPROC
  786A%=a%:B%=_%-1:f`%=USR(WJ):Bu%=(!Ky)/f`%:SJ%=(!Yy)/f`%:!QJ=Bu%:!O_=SJ%:!OJ=SJ%:!Ky=Bu%:!Yy=SJ%:A%=a%:B%=SJ%:C%=Ky%:D%=_%:CALLa_:PROCoJ:A%=a%:B%=Ky%:C%=_%:D%=fJ%:E%=r_%:IFe_%<2THENRa%=0:ENDPROC
  787Ra%=0:KO%=qO%:FORp%=0TOe_%-2:In%=KO%!(8*Ky%!(p%*4)):In%=In%/(1<<16):Tn%=KO%!(8*Ky%!((p%+1)*4)):Tn%=Tn%/(1<<16):Ra%+=(fJ%!((p%+1)*4)+ru%!((p%+1)*4)*Tn%/1024)-(fJ%!(p%*4)+ru%!(p%*4)*In%/1024):NEXT:rA%=Ra%/(e_%-1):q%=0:Ra%=0:FORp%=0TOe_%-2
  788In%=KO%!(8*Ky%!(p%*4)):In%=In%/(1<<16):Tn%=KO%!(8*Ky%!((p%+1)*4)):Tn%=Tn%/(1<<16):Yk%=(fJ%!((p%+1)*4)+ru%!((p%+1)*4)*Tn%/1024)-(fJ%!(p%*4)+ru%!(p%*4)*In%/1024):IFYk%<rA%*1.2THENRa%+=Yk%:q%+=1
  789NEXT:IFq%THENRa%=Ra%/q%
  790ENDPROC
  791DEFPROCr:IF_%<1ENDPROC
  792TA%=Fu%:K%=FNA(m%+An%*2,qy%):IFK%=FALSETHENPROCC("Optical","Column "+STR$(TA%+1)+": There is not enough free memory available to store the text. Need "+STR$((m%+An%*2)DIV1024)+"K.")
  793IFK%=FALSEANDLi%=FALSESYS&406c0
  794IFK%=FALSEENDPROC
  795Qy%=m%:!Vi=Pu%:!Al=My%:B%=a%:G%=e_%:D%=Ky%:!W=e_%:CALLki:B%=a%:C%=_%:!eJ=USR(YJ):A%=a%:B%=A%(qy%):C%=m%:E%=Ky%:F%=Ra%*1.2:G%=Bu%:!Ci=e_%:!al=fJ%:!yu=ru%:!Oa=vi%:!KJ=_%:!hu=a%:!Fa=Ay%:!aa=io%:!Na=(72/Ll%)*(1<<16):!si=r_%:!Vl=Q%:CALLDu:m%=!ai:?(A%(qy%)+m%)=10
  796m%+=1:Xu%=!Va:_%=!KJ:IF(gy%?uB%<>0)AND(gy%?oB%<>0)THEN
  797A%=Qy%:B%=m%:C%=A%(qy%):CALLq_
  798ENDIF:PROCey(p_%):ENDPROC
  799DEFPROCry:SYS53,-1,11TO,,sy%:SYS53,-1,12TO,,ey%:SYS53,-1,4TO,,R%:SYS53,-1,5TO,,V%:R%=1<<R%:V%=1<<V%:my%=((sy%+1)*R%-892-32)/2:A_%=((ey%+1)*V%-528-32)/2+80:SYS&400d1,-1,my%,A_%,my%+892+32,A_%+528+32:ENDPROC
29531DEFPROCX(Q$,O$):PROCY(""):Z%!0=0:$(Z%+4)=O$+CHR$0:SYS&400df,Z%,17,Q$:ENDPROC
29532DEFPROCs(Q$,O$,HP%):g`%=HP%:CASEg`%OF
29533WHEN0,1,2:PROCqy(Q$,O$,"Quit","Cancel","Save",3)
29534WHEN3,4:PROCqy(Q$,O$,"Quit","Cancel","",3)
29535ENDCASE:ENDPROC
29536DEFFNU(Q$,O$):PROCY(""):Z%!0=0:$(Z%+4)=O$+CHR$0:SYS&400df,Z%,19,Q$TO,Ya%:IFYa%=1THEN=TRUE
29537=FALSE
29538DEFPROCC(Q$,O$):Q$="OptclPro":Z%!0=&3020100:SYS&400e9,36,,"ptr_default",2,0,0,0,Z%:SYS&406c2:Z%!0=0:$(Z%+4)=O$+CHR$0:SYS&400df,Z%,2,Q$:ENDPROC
29539DEFFNC(Hy$):=FNCy(Hy$,"<OptclPro$Dir>."+y$)
29540DEFFNs(Y%):LOCALB_%:Z%!0=Y%:SYS&600cc,,Z%TO;wy%:IFwy%AND1THEN=""
29541B_%=Z%!32:B_%=Z%!60:IF(B_%AND(1<<8))<>0AND(B_%AND(1<<0))<>0THEN=FNF(Z%!76)
29542IF(B_%AND(1<<8))=0AND(B_%AND(1<<0))<>0THEN=FNF(Z%+76)
29543=""
29544DEFFNl(Y%):LOCALB_%:Z%!0=Y%:SYS&600cc,,Z%TO;wy%:IFwy%AND1THEN=""
29545B_%=Z%!32:B_%=Z%!60:IF(B_%AND(1<<8))=0AND(B_%AND(1<<0))<>0THEN=FNF(Z%+76)
29546=""
29547DEFFNCy(Hy$,y$):LOCAL_y%,ko%,q%,ea%,p$,Ay$:SYS&400db,,Z%,mr%,sA%,BP%,Hy$,Bk%TO,,mr%,,,,Bk%:IFBk%=0THENPROCC("Optical","Template '"+y$+"' could not be loaded!"):ENDPROC
29548CASEK_%OF
29549WHEN1:Z%!64=K_%
29550OTHERWISEZ%!64=FNb(Y%)
29551ENDCASE:SYS&400c1,,Z%TO_y%:SYS&400d6,_y%,Z%+40,1+2+(1<<8),2+(1<<8):CASEZ%!40OF
29552WHEN-1
29553OTHERWISEko%=40:REPEAT:Z%!4=Z%!ko%:Z%!0=_y%:SYS&400ce,,Z%:p$=FNF(Z%!28):SYS&400c4,,Z%:CASEK_%OF
29554WHEN1:Z%!32=1
29555OTHERWISE:SYS46,264,K_%TO,,,q%:ea%=0:REPEATea%+=1:SYS46,269,K_%,KB%,20,ea%:Ay$=FNF(KB%):UNTILea%=q%ORp$=Ay$:IFp$=Ay$THENZ%!32=K_%ELSEZ%!32=1
29556ENDCASE:Z%!4=_y%:SYS&400c2,,Z%+4TOpB%:ko%+=4:UNTIL(Z%!ko%)=-1
29557ENDCASE:=_y%
29558DEFPROCD(Y%):!Z%=Y%:SYS&400cb,,Z%:Z%!28=-1:IF(Z%!32AND(1<<16))=0ORY%=V_%ORY%=jJ%PROCAJ
29559SYS&400c5,,Z%:IFY%=w%PROCD(V_%)
29560IFY%=IJ%PROCD(jJ%)
29561ENDPROC
29562DEFPROCM(Y%):LOCALkn%:IFFNS(Y%)THEN
29563!Z%=Y%:SYS&400c6,,Z%:IFY%=k%PROCY(""):_J%=0
29564IFY%=w%PROCM(V_%):O_%=-1:Wi%=FALSE:jy%=FALSE
29565IFY%=IJ%PROCM(jJ%)
29566ENDIF:ENDPROC
29567DEFPROCJ(Y%):IFY%=e%IFFNS(`l%)PROCc
29568CASEY%OF
29569WHEN-1:SYS&400d1,-1,0,0,1<<30,1<<30
29570OTHERWISESYS&400d1,Y%,0,-1<<30,1<<30,0
29571ENDCASE:ENDPROC
29572DEFFNSy(Iy$):LOCALI%:Z%!0=-1:Z%!4=0:Z%!8=0:Z%!12=68:Z%!16=68:Z%!20=12290:$(Z%+24)=Iy$:SYS&400c2,,Z%TOI%:=I%
29573DEFPROCG(Y%,I%,wP%):SYS&600d2,Y%,I%,-1,-1,-1,wP%:ENDPROC
29574DEFFNM(Y%,I%):Z%!0=Y%:Z%!4=I%:SYS&400ce,,Z%:IF((Z%!24)AND256)=0ERROR1,"Icon isn't indirected"
29575=$(Z%!28)
29576DEFFNw(Y%,I%):Z%!0=Y%:Z%!4=I%:SYS&400ce,,Z%:IF((Z%!24)AND256)=0ERROR1,"Icon isn't indirected"
29577=$(Z%!32)
29578DEFPROCZ(Y%,I%):PROCP(Y%,I%,TRUE):ENDPROC
29579DEFPROCF(Y%,I%):PROCP(Y%,I%,FALSE):ENDPROC
29580DEFPROCA(Y%,I%,Y$):IFFNM(Y%,I%)=Y$ANDY$<>""ANDY$<>"No letter marked"ENDPROC
29581IFY%=w%ANDI%=1THENk$=Y$
29582Z%!0=Y%:Z%!4=I%:SYS&400ce,,Z%:IF((Z%!24)AND256)=0ENDPROC
29583$(Z%!28)=Y$:Z%!0=Y%:Z%!4=I%:Z%!8=0:Z%!12=0:SYS&400cd,,Z%:SYS&400d3,,Z%:IFZ%!0=Y%ANDZ%!4=I%THEN
29584IFZ%!20>LEN(Y$)THENSYS&600d2,Y%,I%,-1,-1,-1,LEN(Y$)ELSEPROCG(Y%,I%,Z%!20)
29585ENDIF:ENDPROC
29586DEFPROCCJ(Jy%):SYS&400cf,,KB%:IF((KB%!8)AND1)=1THENSYS&400d4,,Jy%,KB%!0,KB%!4
29587ENDPROC
29588DEFFNP(aP%):=(Z%!(4*aP%))+1
29589DEFFNB(Z$):LOCALJy%,Xy%,Uy%,ky%,Wu%,ka%:DIMJy%28+FNf (Z$)*24:$Jy%=LEFT$(Z$,INSTR(Z$,",")-1):Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:Uy%=LEN(LEFT$(Z$,INSTR(Z$,",")-1)):Z$+=",":`o%=0:WHILEZ$<>"":Z$=MID$(Z$,INSTR(Z$,",")+1):CASEZ$OF
29590WHEN""
29591OTHERWISE:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=INSTR(Z$,",")-1:Wu%=INSTR(LEFT$(Z$,ky%),">"):CASEWu%OF
29592WHEN0
29593OTHERWISE:ka%=EVAL(MID$(Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1:Xy%!0=1<<3
29594ENDCASE:IFky%>12THEN
29595IFUO%+ky%+1>Kr%THENPROCC("Optical","Not enough memory to make menus!"):END
29596Xy%!8+=1<<8:Xy%!12=uZ%+UO%:Xy%!16=-1:Xy%!20=ky%+1:$(uZ%+UO%)=LEFT$(Z$,ky%)+CHR$0:UO%+=ky%+1
29597ELSE:$(Xy%+12)=LEFT$(Z$,ky%)
29598ENDIF:IFky%>Uy%THENUy%=ky%
29599Xy%+=24
29600ENDCASE:ENDWHILE:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24OR128:=Jy%
29601DEFFNf(Z$):LOCALq%,ea%:q%=0:ea%=0:REPEAT:ea%=INSTR(Z$,",",ea%+1):IFea%<>0THENq%+=1
29602UNTILea%=0:=q%
29603DEFPROCb:SYS&400d4,-1:ENDPROC
29604DEFPROCU(Jy%,BJ%):Jy%!(36+(BJ%-1)*24)=Jy%!(36+(BJ%-1)*24)OR(1<<22):ENDPROC
29605DEFPROCf(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))OR2:ENDPROC
29606DEFPROCR(Jy%,BJ%):PROCU(Jy%,BJ%):Jy%!(36+(BJ%-1)*24)=Jy%!(36+(BJ%-1)*24)EOR(1<<22):ENDPROC
29607DEFPROCC_(Jy%,BJ%,x$):LOCALr%,Yy%:IF(!(Jy%+(36+(BJ%-1)*24))AND(1<<8))THENYy%=!(Jy%+(40+(BJ%-1)*24))ELSEYy%=Jy%+(40+(BJ%-1)*24)
29608FORr%=0TOLEN(x$)-1:Yy%?r%=ASC(MID$(x$,r%+1,1)):NEXT:ENDPROC
29609DEFPROCT(zP%,y%,h%):Jy%=zP%:SYS&400d4,,Jy%,y%-64,h%+20:ENDPROC
29610DEFPROCB(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))EOR1:ENDPROC
29611DEFPROCK(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))OR1:ENDPROC
29612DEFPROCV(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))AND(NOT1):ENDPROC
29613DEFPROCsu(Jy%,BJ%,tA%,DJ%,dP%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))OR4:Jy%!(36+(BJ%-1)*24)=Jy%!(36+(BJ%-1)*24)OR256:Jy%!(40+(BJ%-1)*24)=tA%:Jy%!(44+(BJ%-1)*24)=DJ%:Jy%!(48+(BJ%-1)*24)=dP%:ENDPROC
29614DEFPROCgl:PROChi("<OptclPro$Dir>.Sprites"):zA%=K_%:ENDPROC
29615DEFPROChi(Ry$):LOCALS%,T%:S%=OPENIN"<OptclPro$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%:DIMK_%T%,Up%12:!K_%=T%:K_%!8=0:SYS46,265,K_%:SYS46,266,K_%,Ry$:ENDPROC
29616DEFFNBy(sZ%):CASEsZ%OF
29617WHEN4095:="Text"
29618WHEN4093:="Data"
29619WHEN4091:="Basic"
29620WHEN4089:="Sprite"
29621WHEN4077:="Palette"
29622WHEN4076:="Template"
29623WHEN2959:="OptFonts"
29624WHEN2815:="Draw"
29625WHEN3460:="UserDict"
29626WHEN4096:="Folder"
29627WHEN8192:CASEFNQ(S$)OF
29628WHEN"!Scanner":="Scanner"
29629WHEN"!Junior":="Impression"
29630WHEN"!Impression":="Impression"
29631WHEN"!Style":="Impression"
29632WHEN"!Publisher":="Impression"
29633WHEN"!Publishr+":="Impression"
29634OTHERWISE="Application"
29635ENDCASE
29636OTHERWISE=STR$~(sZ%)
29637ENDCASE:=FALSE
29638DEFFNF(bo%):LOCALH$,_y%:H$="":_y%=0:WHILE(?bo%<>13)AND(?bo%<>0)AND_y%<256:H$+=CHR$(?bo%):bo%+=1:_y%+=1:ENDWHILE:=H$
29639DEFFNQ(d$):CASEINSTR(d$,".")OF
29640WHEN0:=d$
29641OTHERWISE=FNQ(RIGHT$(d$,LEN(d$)-INSTR(d$,".")))
29642ENDCASE:=FALSE
29643DEFPROCGi(Xy$,vP%,I%):DIMZ%vP%+4,M%1024,mr%I%:Z%+=4:sA%=mr%+I%:Fy$=Xy$:hA%=1:zA%=1:PROCfa:ONERRORPROCzu:END
29644SYS&400c0,200,&4b534154,Xy$TOSe%,rn%:y$="Templates":SYS&836c0,rn%:ENDPROC
29645DEFPROCfa:DIMKB%20:Y%=0:Hr%=-2:UA%=0:Bl%=0:L%=0:X%=0:ue%=FALSE:ENDPROC
29646DEFPROCzu:LOCALUy$,y%:ONERROROFF
29647y%=ERL:Uy$=REPORT$+"atline"+STR$(y%DIV10):DIMv`%36:v`%!0=36:v`%!12=0:v`%!16=&81080:v`%!20=y%:$(v`%+24)="!RunImage":SYS&400e7,17,v`%:PROCX(Fy$,Uy$):PROCQy:ENDPROC
29648DEFPROCQy:IFxJ%<>256SYS"XScan_Stop"
29649IFpl%<>256ANDly%<xJ%SYS&61dc5,ly%
29650PROCY(""):SYS&836c1,rn%:SYS&400dd,rn%,"TASK":ENDPROC
29651DEFPROCvi:LOCALjZ%,Pe%,FA%:ma%=FALSE:TP%=FALSE:jZ%=6144:REPEAT:SYS&400c7,jZ%,Z%TOPe%,vo%:IF!i_<>0AND!xy<>0AND!v<>0ANDv!4<>0ANDv!8<>0THENPROCYu
29652IF!xyTHEN!xy=0:i_%=FALSE
29653!(Z%-4)=Pe%:SYS&836c2,Z%-4TOFA%:IFFA%=FALSETHEN
29654CASEPe%OF
29655WHEN0:PROCza
29656WHEN1:PROC_l
29657WHEN2:PROCq:PROCDy:IFPn%THEN
29658M%!4=Z%!4:M%!8=Z%!8:M%!12=Z%!12:M%!16=Z%!16:SYS&400c5,,Z%:IFZ%!0=k%THEN
29659SYS&400cb,,Z%:IFM%!4<>Z%!4ORM%!8<>Z%!8ORM%!12<>Z%!12ORM%!16<>Z%!16PROCDy:SYS&400c5,,Z%
29660ENDIF
29661ENDIF:IFZ%!0=e%ANDSk%=-5PROCFJ
29662WHEN3:PROCuu
29663WHEN4:PROCJn
29664WHEN5:PROCD_
29665WHEN6:PROCol
29666WHEN7:PROCsi
29667WHEN8:PROCja
29668WHEN9:PROCBu(Jy%)
29669WHEN10:PROCUl
29670WHEN11
29671WHEN12
29672WHEN17,18:PROCia
29673WHEN19
29674ENDCASE
29675ENDIF:UNTILma%:ENDPROC
29676DEFPROC_l:LOCALd%:IFHo%PROCV_
29677SYS&400c8,,Z%TOd%:Y%=Z%!0:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Oy%=Z%!28-(Z%!4-Z%!20):dy%=Z%!36-(Z%!4-Z%!20):Gy%=X%-Z%!32:Ly%=X%-Z%!40:IFY%=e%AND(jy%ORDy%)Xa%=TRUE
29678WHILEd%:PROCKi(Y%,L%,X%):SYS&400ca,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Oy%=Z%!28-(Z%!4-Z%!20):dy%=Z%!36-(Z%!4-Z%!20):Gy%=X%-Z%!32:Ly%=X%-Z%!40:ENDWHILE:ENDPROC
29679DEFPROCuu:SYS&400cf,,Z%:Y%=Z%!12:vZ%=Z%!8:IFFNi(Y%,vZ%)THEN
29680IFFNS(Y%)THEN
29681!Z%=Y%:SYS&400c6,,Z%
29682ENDIF
29683ENDIF:ENDPROC
29684DEFPROCol:b%=Z%!8:Y%=Z%!12:I%=Z%!16:y%=Z%!0:h%=Z%!4:CASEb%OF
29685WHEN2:PROCla
29686OTHERWISECASEFNd(Y%)OF
29687WHENTRUE:PROC`a
29688WHENFALSE:IFY%=IJ%ANDI%=4AND(b%AND80)PROCXJ(Y%,I%,"switcher"):Ck%=TRUE:ENDPROC
29689PROCsJ(Y%,I%,b%,y%,h%)
29690ENDCASE
29691ENDCASE:ENDPROC
29692DEFFNu(Y%,I%):Z%!0=Y%:Z%!4=I%:SYS&400ce,,Z%:IF((Z%!24)AND256)=0OR((Z%!24)AND1)=0ORZ%!32=-1THEN=FALSE
29693=INSTR($(Z%!32),"ptr_menu")
29694DEFPROCla:Jy%=FNt(Y%):CASEJy%OF
29695WHENFALSE:IFFNu(Y%,I%)THENPROCsJ(Y%,I%,b%,y%,h%)
29696OTHERWISE:CASEY%OF
29697WHEN-2:q%=0:WHILE((Bl%!(28+q%*24))AND128)=0:q%+=1:ENDWHILE:SYS&400d4,,Bl%,y%-64,140+q%*44+2*24
29698OTHERWISESYS&400d4,,Jy%,y%-64,h%+20
29699ENDCASE
29700ENDCASE:ENDPROC
29701DEFPROC`a:IFI%>=4ANDI%<=7ANDb%=1PROCS(SaveText_Window%,I%,TRUE)
29702CASEI%OF
29703WHEN3:IFY%=SaveText_Window%THENPROCoy:ENDPROC
29704IFY%=SaveF_Window%THENPROCwy:ENDPROC
29705IFb%AND80THENPROCiu(Y%)
29706WHEN2:IFY%=SaveText_Window%THENPROCoy:ENDPROC
29707IFY%=SaveF_Window%THENPROCwy:ENDPROC
29708IFb%AND5THENPROCxJ(Y%)
29709WHEN4:PROCo(SaveText_Window%,3,"Sfile_fff"):PROCZ(SaveText_Window%,10):PROCZ(SaveText_Window%,11):PROCZ(SaveText_Window%,12)
29710WHEN5:PROCo(SaveText_Window%,3,"Sfile_fe4"):PROCF(SaveText_Window%,10):PROCF(SaveText_Window%,11):PROCF(SaveText_Window%,12)
29711WHEN6:PROCo(SaveText_Window%,3,"Sfile_fff"):PROCF(SaveText_Window%,10):PROCF(SaveText_Window%,11):PROCF(SaveText_Window%,12)
29712WHEN7:PROCo(SaveText_Window%,3,"Sfile_dfe"):PROCZ(SaveText_Window%,10):PROCZ(SaveText_Window%,11):PROCZ(SaveText_Window%,12)
29713ENDCASE:ENDPROC
29714DEFPROCoy:PROCX("Message from Optical","Text cannot be saved from this version of Optical. For a full version please contact Neurotron Software."):ENDPROC
29715DEFPROCxJ(Y%):LOCALS$:Z%!0=Y%:Z%!4=1:SYS&400ce,,Z%:S$=$(Z%!28):IFINSTR(S$,".")=0THEN
29716PROCX("Message from Optical","To save, drag the icon to a directory window")
29717ELSE:CASEY%OF
29718WHENSaveText_Window%:PROCoy:PROCM(SaveText_Window%):PROCb
29719WHENSaveF_Window%:PROCwy:PROCM(SaveF_Window%):PROCb
29720ENDCASE
29721ENDIF:ENDPROC
29722DEFPROCiu(Y%):ue%=TRUE:PROCXJ(Y%,I%,RIGHT$(FNw(Y%,3),8)):ga%=Y%:ENDPROC
29723DEFPROCja:Y%=Z%!0:I%=Z%!4:j%=Z%!24:CASEFNd(Y%)OF
29724WHENTRUE:IFj%=13PROCS(Y%,2,1):PROCxJ(Y%):PROCS(Y%,2,0)ELSESYS&400dc,j%
29725WHENFALSE:PROC`i(Y%,I%,j%)
29726ENDCASE:ENDPROC
29727DEFPROCsi:IFNo%SYS&62401
29728IFmu%OROl%THENPROCPn:mu%=FALSE:Ol%=FALSE:ENDPROC
29729IFPl%THENPl%=FALSE:PROCkl:ENDPROC
29730IFZl%THENPROCMa:Zl%=FALSE:ENDPROC
29731IFGa%THENPROCOl:Ga%=FALSE:ENDPROC
29732IFVO%THENVO%=FALSE:ENDPROC
29733LOCALS$,Y%,I%,y%,h%:SYS&400cf,,Z%:Y%=Z%!12:I%=Z%!16:y%=Z%!0:h%=Z%!4:IFCk%PROCki(Y%,I%,y%,h%):ENDPROC
29734dr%=0:IFga%=SaveF_Window%THENcO%=4+8*!(A%(u%))
29735Rk%=Y%:eo%=I%:GZ%=y%:NZ%=h%:Z%!0=ga%:Z%!4=1:SYS&400ce,,Z%:S$=$(Z%!28):S$=FNQ(S$):VZ%=EVAL("&"+RIGHT$(FNw(ga%,3),3)):Z%!0=64:Z%!12=0:Z%!16=1:Z%!20=Rk%:Z%!24=eo%:Z%!28=GZ%:Z%!32=NZ%:Z%!36=cO%:Z%!40=VZ%:$(Z%+44)=S$:SYS&400e7,18,Z%,Rk%,eo%:ENDPROC
29736DEFPROCia:ue%=FALSE:LOCALS$,Oy$,DZ%:CASEZ%!16OF
29737WHEN0:ma%=TRUE
29738WHEN1:S$=FNF(Z%+44):PROCZa
29739WHEN2:S$=FNF(Z%+44):`n%=Z%!8:mA%=Z%!4:IFS$<>"<Wimp$Scrap>"THEN
29740Z%!0=ga%:Z%!4=1:SYS&400ce,,Z%:$(Z%!28)=S$:Z%!0=ga%:Z%!4=1:Z%!8=0:Z%!12=0:SYS&400cd,,Z%:SYS&600d2,ga%,1,,,-1,LENS$
29741ENDIF:PROClu(S$,ga%)
29742WHEN3:S$=FNF(Z%+44):R$=FNBy(Z%!40):Y%=Z%!20:Z%!12=Z%!8:Z%!16=4:SYS&400e7,19,Z%,Z%!4:PROCaa(S$,R$,Y%)
29743WHEN5:IFFNnTHEN
29744S$=FNF(Z%+44):SYS&406c0:PROCZu(S$):SYS&406c1
29745ENDIF
29746WHEN6:S$=FNF(Z%+44):IFga%=SaveText_Window%PROCyu
29747WHEN7:S$=FNF(Z%+44):PROCSu
29748WHEN8:_A%=Z%!4:RO%=TRUE:IFpi%=FALSEPROCRy:PROCs("Warning from Optical","The text has been updated. Are you sure you want to quit?",0):ENDPROC
29749IFTa%=FALSEPROCRy:PROCs("Warning from Optical","You have not saved your updated character definitions. Are you sure you want to quit?",1):ENDPROC
29750IFfa%=FALSEPROCRy:PROCs("Warning from Optical","The lexicon has been updated. Are you sure you want to quit?",2):ENDPROC
29751IFWy%PROCRy:PROCs("Warning from Optical","Optical is currently reading. Are you sure you want to quit?",3):ENDPROC
29752IF!APROCRy:PROCs("Warning from Optical","Optical is currently spell checking. Are you sure you want to quit?",4):ENDPROC
29753WHEN10:PROCVu(Z%!20)
29754WHEN&400c7:IFVo%THENPROCva(FNF(Z%+28))
29755PROCri(FNF(Z%+28),Z%!20)
29756WHEN&400c1:DZ%=!Cy:PROC_J:IFDZ%<>!CyTHENPROCN_(0,Cy%)
29757PROCn:IFFNS(R_%)Pn%=TRUE:PROCw(e%)
29758IFFNS(k%)Pn%=TRUE:PROCw(k%)
29759IFFNS(w%)Pn%=TRUE:PROCw(w%)
29760IFFNS(IJ%)Pn%=TRUE:PROCw(IJ%)
29761WHEN&400c0:SYS&400e8,,Z%!20,Z%!24,Z%!28:IFZ%!20=Info_Window%THENPROCRJ
29762ENDCASE:ENDPROC
29763DEFFNn:IFZ%!40<>2959THEN=0
29764Z%!12=Z%!8:Z%!16=4:SYS&400e7,17,Z%,Z%!4:=1
29765DEFPROCri(Zy$,xi%):LOCALq%,s%,v%:IFg_%<1ENDPROC
29766sl%=0:Z%!0=k`%:SYS&600cb,,Z%TO;wy%:IFwy%AND1ENDPROC
29767s%=Z%!12-Z%!4:v%=Z%!16-Z%!8:FORq%=0TOg_%-1:IFZy$=M$(q%)ANDFNl(k`%)=Z$(q%)ANDv%=P%(q%)THEN
29768Ty$=Zy$:sl%=k`%:Ly$=Z$(q%):WZ%=xi%:gA%=s%:MZ%=v%:PROCwu(sl%):q%=g_%-1
29769ENDIF:NEXT:ENDPROC
29770DEFPROCyu:LOCALB_%:Lr%=Z%!20:jo%=Z%!24:_O%=Z%!4:`n%=Z%!8:Z%!0=256:Z%!12=`n%:Z%!16=7:Z%!20=Lr%:IFjo%>cO%THENmB%=cO%:za%=17ELSEmB%=jo%:za%=18
29771Z%!24=mB%:SYS&600f1,rn%,A%(ke%)+dr%,_O%,Lr%,jo%TOwy%;B_%:IFB_%AND1PROCC("Optical",FNF(wy%+4)):`B%=FALSE:IO%=FALSE:ENDPROC
29772SYS&400e7,za%,Z%,Rk%,eo%:cO%-=mB%:dr%+=mB%:IFza%=17THEN
29773PROCM(SaveText_Window%):IFIO%=FALSEPROCb
29774IO%=FALSE:PROCV_
29775ENDIF:ENDPROC
29776DEFPROCRy:vo%!12=vo%!8:SYS&400e7,19,vo%:ENDPROC
29777DEFPROCzi:SYS&400d3,,M%:M%!24=508:SYS&400e7,8,M%,_A%:ENDPROC
29778DEFPROCba:AJ=J%+5452:LJ=J%+5456:`=J%+4080:bn=J%+10792:TJ=J%+8488:oa=J%+5460:s=J%+5404:c_=J%+1496:Jy=J%+20376:WJ=J%+21100:Ky=J%+21804:Yy=J%+21808:ba=J%+20488:oy=J%+18516:nJ=J%+40320:u_=J%+41228:l_=J%+41232:C_=J%+22840:m=J%+5316:r=J%+5320:f=J%+5324
29779Sy=J%+5328:`n=J%+5332:ka=J%+5336:un=J%+5340:f_=J%+5344:r_=J%+5348:d=J%+5352:vy=J%+18512:g=J%+20616:b=J%+20604:u=J%+20608:w=J%+20612:kJ=J%+20832:K=J%+21096:Qi=J%+21812:W=J%+25912:Ba=J%+25872:hl=J%+25876:uJ=J%+25880:Nl=J%+25884:ni=J%+26316:M_=J%+26732
29780YJ=J%+26756:Du=J%+27272:ai=J%+29740:Va=J%+29744:Ci=J%+29752:al=J%+29756:ma=J%+29760:KJ=J%+29764:eJ=J%+29768:Wu=J%+16188:gJ=J%+15444:Ra=J%+15828:e_=J%+12884:Vn=J%+12876:na=J%+12880:Ln=J%+13940:Qn=J%+12288:xu=J%+15116:L_=J%+3004:Uy=J%+5360:on=J%+7800
29781cu=J%+5364:Nn=J%+7804:Ay=J%+34064:Wn=J%+34136:A`=J%+34148:Ca=J%+31072:Hi=J%+31612:Ai=J%+31616:q_=J%+31872:B_=J%+20336:ny=J%+20340:Y_=J%+2804:GJ=J%+2808:yJ=J%+25888:U=J%+2716:R=J%+2836:Ml=J%+2852:pa=J%+2856:K_=J%+18524:dy=J%+18520:ya=J%+18556
29782W_=J%+18560:Vi=J%+26872:Al=J%+26876:hu=J%+29736:Zy=J%+5908:Fy=J%+5912:p=J%+2508:M=J%+5448:Xy=J%+5904:iJ=J%+14720:Kn=J%+34164:Pi=J%+34168:k=J%+18492:_a=J%+18496:nu=J%+14732:DJ=J%+18608:J_=J%+4948:T_=J%+4944:`y=J%+4940:Q_=J%+4952:uy=J%+18500:A_=J%+836
29783Q=J%+34512:jn=J%+34532:gl=J%+34684:i=J%+19304:`_=J%+2812:Bu=J%+34172:ja=J%+20356:An=J%+20360:Ql=J%+2816:_n=J%+34760:Rl=J%+34852:hi=J%+34976:xJ=J%+35108:wl=J%+35264:my=J%+35100:ty=J%+35104:Di=J%+31636:qi=J%+35436:QJ=J%+2500:O_=J%+2504:P_=J%+35736
29784My=J%+38180:qJ=J%+38184:wy=J%+38188:ay=J%+38200:R_=J%+38204:gi=J%+38176:IJ=J%+38212:j_=J%+38216:SJ=J%+38220:n_=J%+38224:UJ=J%+38172:A=J%+35716:D_=J%+5216:Z_=J%+5220:gn=J%+26880:Oi=J%+7320:yl=J%+7324:oJ=J%+7328:wu=J%+7332:qn=J%+9508:Hn=J%+9512
29785Xi=J%+42580:xa=J%+38464:Ta=J%+38636:JJ=J%+38732:t=J%+5280:T=J%+34596:RJ=J%+2520:D=J%+21800:I=J%+20364:L=J%+20368:e=J%+20372:cy=J%+39020:By=J%+20344:Ry=J%+20348:Sa=J%+26736:ea=J%+26740:ll=J%+7356:Ga=J%+9720:ci=J%+9724:Xl=J%+9700:mn=J%+9776:cn=J%+9704
29786la=J%+10292:Sn=J%+10300:fn=J%+10296:Bn=J%+10304:c=J%+2988:wn=J%+38904:j=J%+5228:Uu=J%+9760:au=J%+41252:Gn=J%+41336:Gi=J%+21748:Il=J%+21752:Ji=J%+41420:S_=J%+20324:Ny=J%+20328:yy=J%+20332:kl=J%+9768:za=J%+9772:Xa=J%+40028:en=J%+40304:Bi=J%+40308
29787Li=J%+40312:`J=J%+34656:Ia=J%+34624:ii=J%+26888:Vu=J%+26892:ri=J%+40300:vn=J%+10764:jJ=J%+2720:sy=J%+2832:Ri=J%+23828:F_=J%+23824:U_=J%+25856:Oa=J%+29772:nn=J%+13084:I_=J%+8780:CJ=J%+18604:Fi=J%+40012:Pl=J%+40016:Fa=J%+31048:aa=J%+31052:OJ=J%+29776
29788il=J%+41568:fl=J%+42564:Au=J%+42568:PJ=J%+49652:NJ=J%+49676:s_=J%+49780:__=J%+50056:FJ=J%+50432:b_=J%+50568:xy=J%+49672:i_=J%+49760:ca=J%+50048:v=J%+50376:p_=J%+50492:ga=J%+50592:su=J%+50428:x_=J%+50404:ku=J%+50612:N_=J%+50868:v_=J%+50872
29789Iu=J%+50876:ju=J%+50880:qu=J%+50884:dl=J%+50888:wJ=J%+50892:Cl=J%+50044:Qu=J%+50424:hn=J%+50600:zl=J%+42760:gy=J%+44268:Gy=J%+44884:Hy=J%+44888:Ly=J%+44892:ly=J%+44896:G_=J%+44900:Wy=J%+44904:Py=J%+44908:_y=J%+44912:Ty=J%+44916:VJ=J%+46628
29790h_=J%+5384:XJ=J%+5388:Zn=J%+46756:Rn=J%+46932:tn=J%+47712:On=J%+47716:Oy=J%+4068:Bl=J%+48188:an=J%+2468:yn=J%+2472:aJ=J%+1960:`a=J%+4056:zn=J%+5400:Pn=J%+13200:Ki=J%+13160:`u=J%+13164:rJ=J%+13168:Fl=J%+13172:va=J%+13176:Pu=J%+13180:ra=J%+13184
29791Aa=J%+13188:Ul=J%+13192:Tl=J%+13196:xl=J%+13892:Sl=J%+13896:pJ=J%+13616:Wl=J%+13588:vu=J%+13592:ru=J%+13596:Nu=J%+13600:Ku=J%+13604:Hu=J%+13608:d_=J%+13612:`i=J%+12892:Un=J%+7360:kn=J%+7616:Xn=J%+8776:Ou=J%+7832:La=J%+7836:vJ=J%+7840:Jl=J%+7844
29792Si=J%+7808:rl=J%+7812:cl=J%+7816:ul=J%+7820:wi=J%+7824:sl=J%+7828:Yn=J%+16604:Cn=J%+15552:Gl=J%+15568:Ma=J%+15572:ta=J%+15576:Tu=J%+15592:Ya=J%+15580:Wa=J%+15584:_u=J%+15588:Jn=J%+15556:Dn=J%+15560:ln=J%+15548:in=J%+15564:fa=J%+11352:Ol=J%+12204
29793Pa=J%+12200:Ju=J%+12192:Yi=J%+12196:_l=J%+12276:`l=J%+12280:nl=J%+12284:BJ=J%+12188:Mi=J%+12180:xi=J%+12212:Za=J%+11348:qa=J%+18392:ei=J%+21676:q=J%+35700:Dl=J%+10780:tu=J%+10784:X=J%+35704:_i=J%+13580:HJ=J%+35708:jl=J%+13584:oi=J%+17764:In=J%+48676
29794by=J%+48732:lu=J%+48876:Lu=J%+16408:fJ=J%+48884:Mu=J%+48948:dJ=J%+38276:Ru=J%+49136:jy=J%+49356:iy=J%+49412:pn=J%+34364:o=J%+35712:Xu=J%+17760:fy=J%+38168:ua=J%+46920:Z`=J%+46924:Fn=J%+46928:y_=J%+20824:Ka=J%+20828:sJ=J%+6092:Ui=J%+42660:di=J%+42664
29795vi=J%+42668:iu=J%+42676:uu=J%+42680:sa=J%+42684:pl=J%+42692:vl=J%+42696:bl=J%+42700:pi=J%+42644:Wi=J%+42648:Fu=J%+42652:bJ=J%+42728:du=J%+42732:tJ=J%+42736:mJ=J%+1492:Na=J%+26912:gu=J%+42704:Zl=J%+42708:mu=J%+42712:yi=J%+42744:lJ=J%+42716
29796Su=J%+42720:Cu=J%+42724:n=J%+832:hJ=J%+42748:Cy=J%+41564:O=J%+23844:z=J%+23848:_=J%+5436:x=J%+5440:a_=J%+25416:ml=J%+25916:si=J%+26916:fi=J%+22828:Yu=J%+22832:li=J%+44928:Ll=J%+44920:ti=J%+44924:m_=J%+45608:t_=J%+46448:xn=J%+46468:ZJ=J%+46452
29797Ii=J%+46456:zJ=J%+46460:ky=J%+45604:Ni=J%+21764:zu=J%+21768:Zi=J%+21772:qy=J%+21776:Ti=J%+21796:Mn=J%+21664:k_=J%+21788:MJ=J%+22836:Ja=J%+5444:_J=J%+25408:w_=J%+25412:a=J%+42608:sn=J%+4076:z_=J%+50504:yu=J%+26884:wa=J%+7848:pu=J%+7852:Vy=J%+10772
29798bi=J%+8472:Ha=J%+8476:Yl=J%+8480:ha=J%+8484:Iy=J%+6144:Y=J%+7868:ey=J%+10776:V_=J%+20820:hy=J%+41212:X_=J%+41216:Zu=J%+41184:ql=J%+41176:Hl=J%+41180:Dy=J%+41168:Qy=J%+41172:ji=J%+41164:H_=J%+41160:dn=J%+49416:rn=J%+49524:ia=J%+49648:Qa=J%+43164
29799y=J%+23288:da=J%+16396:ui=J%+16400:mi=J%+16404:zi=J%+36588:bu=J%+36232:ry=J%+5900:zy=J%+4096:Gu=J%+26928:el=J%+26932:Kl=J%+26936:ki=J%+24364:eu=J%+26948:Tn=J%+24952:Vl=J%+29912:ENDPROC
29800DEFPROCUi(b%,I%):IFb%=1ANDI%=9I%=10ELSEIFb%=1ANDI%=10I%=9
29801CASEI%OF
29802WHEN7:PROCu:IFCy%<0ORDy%PROCU(gJ%,2+Cy%)ELSEPROCR(gJ%,2+Cy%)
29803IFDy%PROCU(gJ%,4+Cy%)
29804IFCy%>-1PROCB(gJ%,i%+1)
29805PROCT(gJ%,y%,h%)
29806WHEN9:C$=FNM(g%,19):IFLEN(C$)>1THENO%=VAL(C$)ELSEO%=ASC(C$)
29807IFO%>33THENPROCA(g%,19,CHR$(O%-1))
29808PROC_
29809WHEN10:C$=FNM(g%,19):IFLEN(C$)>1THENO%=VAL(C$)ELSEO%=ASC(C$)
29810IFO%<255THENPROCA(g%,19,CHR$(O%+1))
29811PROC_
29812WHEN5:Jk%=1:PROCT(qa%,y%,h%)
29813WHEN8:PROCPy(HJ%,y%-64,h%+64)
29814WHEN11:PROCPy(sJ%,y%-64,h%+64)
29815WHEN13:PROCxu
29816WHEN12:PROCP_
29817WHEN18:PROCk_
29818WHEN3:IFDy%PROCyELSEPROCTy
29819WHEN22:PROCM(g%):PROCM(HJ%)
29820ENDCASE:ENDPROC
29821DEFPROCjl(I%,j%):IFj%<>13SYS&400dc,j%:ENDPROC
29822CASEI%OF
29823WHEN19:PROCS(Y%,12,1):PROCP_:PROCS(Y%,12,0)
29824WHEN6:PROCci
29825WHEN21:PROCky(FNM(HJ%,3))
29826OTHERWISESYS&400dc,j%
29827ENDCASE:ENDPROC
29828DEFPROCXu:CASEFNP(0)OF
29829WHEN2+Cy%:PROCea
29830WHEN3+Cy%:CASEFNP(1)OF
29831WHEN1:PROCU_
29832ENDCASE
29833WHEN4+Cy%:IFTa%=FALSETHEN
29834IFFNU("Warning from Optical","Are you sure you want to load the default font set, as there are unsaved amendments in memory. Click on OK to load.")SYS&406c0:PROCny("<OptclPro$Dir>.DefFonts"):SYS&406c1
29835ELSE:SYS&406c0:PROCny("<OptclPro$Dir>.DefFonts"):SYS&406c1
29836ENDIF
29837WHEN5+Cy%:PROCwy
29838WHEN6+Cy%:PROCwy
29839OTHERWISEPROCt_(FNP(0))
29840ENDCASE:ENDPROC
29841DEFPROCwy:PROCX("Message from Optical","It is not possible to save font definitions with this version of Optical. For a full version please contact Neurotron Software."):ENDPROC
29842DEFPROCDi:NewF_Menu%=FNB("New font,12345678901234567890"):PROCu:DIMhB%40:FORFa%=0TO39STEP4:hB%!Fa%=0:NEXT:IFCy%>=0PROCB(gJ%,1)
29843PROCsu(NewF_Menu%,1,hB%,-1,40):ENDPROC
29844DEFPROCu:LOCALXy%,Uy%,ky%,Wu%,ka%,Lu%:Jy%=gJ%:Lu%=0:Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:$Jy%="OCR fonts":Uy%=LEN("OCR fonts"):`o%=0:IFCy%>=0THEN
29845FORSy%=0TOCy%:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=LEN(A$(Sy%)):IFLu%<L`%THEN
29846Xy%!8+=1<<8:Xy%!12=l`%+Lu%*40:Xy%!16=0:Xy%!20=21:$(l`%+Lu%*40)=A$(Sy%):Lu%+=1
29847ELSE:$(Xy%+12)=LEFT$(A$(Sy%))
29848ENDIF:IFky%>Uy%THENUy%=ky%
29849Xy%+=24:NEXT
29850ENDIF:Z$=",Delete font,New font>NewF_Menu%,Load defaults,Save defaults,Save fonts...>SaveF_Window%,":WHILEZ$<>"":Z$=MID$(Z$,INSTR(Z$,",")+1):CASEZ$OF
29851WHEN""
29852OTHERWISE:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=INSTR(Z$,",")-1:Wu%=INSTR(LEFT$(Z$,ky%),">"):CASEWu%OF
29853WHEN0
29854OTHERWISE:ka%=EVAL(MID$(Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1
29855ENDCASE:IFLu%<L`%THEN
29856Xy%!8+=1<<8:Xy%!12=l`%+Lu%*40:Xy%!16=0:Xy%!20=21:$(l`%+Lu%*40)=LEFT$(Z$,ky%):Lu%+=1
29857ELSE:$(Xy%+12)=LEFT$(Z$,12)
29858ENDIF:IFky%>Uy%THENUy%=ky%
29859Xy%+=24
29860ENDCASE:ENDWHILE:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24OR128:PROCf(gJ%,Cy%+1):ENDPROC
29861DEFPROCU_:IFCy%=KJ%-1THENPROCX("Message from Optical","You can only have a maximum of "+STR$(KJ%)+" fonts."):ENDPROC
29862PROCF(g%,6):PROCF(g%,8):IFFNM(g%,16)=""PROCF(g%,12)
29863PROCF(g%,18):PROCF(fy%,6):Cy%+=1:i%=Cy%:A$(i%)=FNF(hB%):PROCky(Cy$):PROCu:PROCB(gJ%,i%+1):PROCpy(i%):PROCFy(i%):S%(i%)=TRUE:PROCp:PROC_:IFDy%PROCN(R_%,"Type teaching font '"+A$(i%)+"'")
29864ENDPROC
29865DEFPROCea:LOCALSy%:IFDy%ANDCy%<1PROCX("Message from Optical","This font cannot be deleted whilst in Type Teaching mode."):ENDPROC
29866IFFNU("Warning from Optical","This action will delete all character definitions in the current font. Click on OK to delete.")=FALSEENDPROC
29867SYS&406c0:A%=A%(u%):B%=i%:F%=A%(uu%):CALLxa:IFCy%-1>=i%THEN
29868FORv_%=i%TOCy%-1:A$(v_%)=A$(v_%+1):S%(v_%)=S%(v_%+1):S$(v_%)=S$(v_%+1):aJ%?v_%=aJ%?(v_%+1):NEXT
29869ENDIF:IFi%=b_%THEN
29870Sy%=0:REPEAT:IFS%(Sy%)THENb_%=Sy%
29871Sy%+=1:UNTILS%(Sy%-1)ORSy%>Cy%:PROCA(N_%,3,A$(b_%)):PROCJ(N_%)
29872ENDIF:Cy%-=1:IFCy%>=0THEN
29873i%=0:PROCFy(i%):PROCF(g%,6):PROCF(g%,8):PROCF(g%,11):IFFNM(g%,16)=""PROCF(g%,12)
29874PROCF(fy%,6):PROCF(g%,18)
29875ELSE:i%=-1:PROCA(g%,6,""):PROCA(HJ%,3,""):PROCM(sJ%):PROCZ(g%,6):PROCZ(g%,8):PROCM(HJ%):PROCZ(g%,11):PROCZ(g%,12):PROCZ(fy%,6):PROCZ(g%,18):PROCM(N_%)
29876ENDIF:PROCu:IFi%>=0PROCB(gJ%,i%+1)
29877K%=FNA(4+8*!(A%(u%)),u%):IFCy%<0PROCU(gJ%,2+Cy%)ELSEPROCR(gJ%,2+Cy%)
29878PROCp:PROC_:IFDy%PROCN(R_%,"Type teaching font '"+A$(i%)+"'")
29879SYS&406c1:ENDPROC
29880DEFPROCt_(l%):IFl%-1=i%ENDPROC
29881PROCB(gJ%,i%+1):i%=l%-1:PROCB(gJ%,i%+1):PROCFy(i%):PROC_:IFDy%PROCN(R_%,"Type teaching font '"+A$(i%)+"'")
29882AB%=FALSE:ENDPROC
29883DEFPROCci:IFi%<0ENDPROC
29884A$(i%)=FNM(g%,6):IFFNM(g%,6)<>A$(i%)PROCA(g%,6,A$(i%))
29885PROCu:PROCB(gJ%,i%+1):PROCG(g%,6,LEN(FNM(g%,6))):PROCN(sJ%,"Defined characters in '"+A$(i%)+"'"):IFi%=b_%THENPROCA(N_%,3,A$(b_%))
29886PROC_:PROCp:IFDy%PROCN(R_%,"Type teaching font '"+A$(i%)+"'")
29887ENDPROC
29888DEFPROCyy(Jy%,Z$):LOCALXy%,Uy%,ky%,Wu%,ka%,Lu%:Lu%=0:$Jy%=LEFT$(Z$,INSTR(Z$,",")-1):Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:Uy%=LEN(LEFT$(Z$,INSTR(Z$,",")-1)):Z$+=",":`o%=0:WHILEZ$<>"":Z$=MID$(Z$,INSTR(Z$,",")+1):CASEZ$OF
29889WHEN""
29890OTHERWISE:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=INSTR(Z$,",")-1:Wu%=INSTR(LEFT$(Z$,ky%),">"):CASEWu%OF
29891WHEN0
29892OTHERWISE:ka%=EVAL(MID$(Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1
29893ENDCASE:IFLu%<L`%THEN
29894Xy%!8+=1<<8:Xy%!12=l`%+Lu%*40:Xy%!16=0:Xy%!20=21:$(l`%+Lu%*40)=LEFT$(Z$,ky%):Lu%+=1
29895ELSE:$(Xy%+12)=LEFT$(Z$,12)
29896ENDIF:IFky%>Uy%THENUy%=ky%
29897Xy%+=24
29898ENDCASE:ENDWHILE:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24OR128:ENDPROC
29899DEFPROCda(b%,I%):Z%!0=sJ%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=s%-L%:uy%=X%-v%-12:IFZ_%>31ANDuy%>31THENO%=30+INT((Z_%-16)/48)*10+INT((uy%-28)/32)ELSEENDPROC
29900A%=A%(u%):B%=O%:C%=i%:IFO%>32ANDO%<256ANDO%<>127PROCA(g%,19,CHR$(O%))
29901PROC_:ENDPROC
29902DEFPROCQi:SYS&400e6,2:RECTANGLEFILLL%,X%-4,1200,-32:RECTANGLEFILLL%,X%-4,22,-360:SYS&400e6,7:_l%=L%+4:Rl%=X%-8:FORq%=3TO25:MOVE_l%+32+(q%-3)*3*16,Rl%:PRINT;q%:NEXT:FORq%=0TO9:MOVE_l%,Rl%-32-q%*32:PRINT;q%:NEXT:G%=_l%:H%=Rl%:!my=A%(u%):!ty=i%:CALLxJ:ENDPROC
29903DEFPROC_:LOCALC$,O%,d_%:C$=FNM(g%,19):IFLEN(C$)>1THENO%=VAL(C$)ELSEO%=ASC(C$)
29904IFO%>32ANDO%<256ANDO%<>127THEN
29905IFFNM(g%,16)=""PROCF(g%,12)
29906ELSE:PROCZ(g%,12)
29907ENDIF:A%=A%(u%):B%=O%:C%=i%:d_%=USR(Ta):IFd_%>-1THEN
29908PROCF(g%,13):Za%=?(A%(u%)+6+d_%*8):sa%=?(A%(u%)+7+d_%*8):va%=?(A%(u%)+8+d_%*8)
29909ELSE:PROCZ(g%,13)
29910ENDIF:IFCy%>=0THEN
29911PROCF(g%,8):PROCF(g%,11)
29912ELSE:PROCZ(g%,8):PROCZ(g%,11)
29913ENDIF:IFa_%=FALSEPROCZ(g%,3)ELSEPROCF(g%,3)
29914ENDPROC
29915DEFPROCp:IFTa%=FALSEENDPROC
29916PROCN(g%,"Font manager *"):Ta%=FALSE:ENDPROC
29917DEFPROCfy:IFTa%ENDPROC
29918PROCN(g%,"Font manager"):Ta%=TRUE:ENDPROC
29919DEFFNPy:LOCALl%,U_%:Bu%=JJ%!(!M*4):U_%=!yl-!Oi:l%=U_%/Bu%*30:IFl%>99THEN=99
29920IFl%<1THEN=1
29921=l%
29922DEFFNk:LOCALl%,Tk%,oy%,dJ%,Ro%,fo%,co%:oy%=a%!(Fn%*8)AND65535:dJ%=(a%!(Fn%*8))>>16:Tk%=oy%+(dJ%-oy%)/2:fo%=fJ%!(!M*4):co%=(ru%!(!M*4)*Tk%)>>10:Ro%=fo%+co%:SJ%=r_%!(!M*4):l%=(Ro%+SJ%-(a%!(Fn%*8+4)AND65535)-(I_%-!wu))/SJ%*100:IFl%>255THEN=255
29923IFl%<0THEN=0
29924=l%
29925DEFFNFy:LOCALl%,Tk%,oy%,dJ%,Ro%,fo%,co%:oy%=a%!(Fn%*8)AND65535:dJ%=(a%!(Fn%*8))>>16:Tk%=oy%+(dJ%-oy%)/2:fo%=fJ%!(!M*4):co%=(ru%!(!M*4)*Tk%)>>10:Ro%=fo%+co%:SJ%=r_%!(!M*4):l%=(Ro%+SJ%-(a%!(Fn%*8+6)AND65535)+!oJ)/SJ%*100:IFl%>255THEN=255
29926IFl%<0THEN=0
29927=l%
29928DEFPROCny(S$):LOCALay%:PROCM(N_%):b_%=0:F%=OPENIN(S$):INPUT#F%,Cy%:IFCy%>=0THEN
29929FORv_%=0TOCy%:INPUT#F%,A$(v_%),S$(v_%),S%(v_%),aJ%?v_%:NEXT:PROCN_(0,Cy%):i%=0:PROCFy(i%):IFDy%PROCN(R_%,"Type teaching font '"+A$(i%)+"'")
29930PROCF(g%,6):PROCF(g%,8):PROCF(g%,11):IFFNM(g%,16)=""PROCF(g%,12)
29931PROCF(fy%,6):PROCF(g%,18)
29932ELSE:PROCw_
29933ENDIF:INPUT#F%,ay%:IFay%>4K%=FNA(ay%,u%)ELSEK%=FNA(1,u%)
29934IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to load font definitions. Need "+STR$(ay%DIV1024)+"K."):Cy%=-1:PROCw_:ay%=0
29935IFay%>4THEN
29936FORr%=A%(u%)TOA%(u%)+ay%-1:?r%=BGET#F%:NEXT:K%=FNA(64*!(A%(u%)),uu%):IFK%=FALSETHEN
29937PROCC("Optical","There is not enough free memory available to load font definitions. Need "+STR$((64*!(A%(u%)))DIV1024)+"K."):Cy%=-1:PROCw_:ay%=0
29938ELSE:FORr%=A%(uu%)TOA%(uu%)+64*!(A%(u%))-1:?r%=BGET#F%:NEXT
29939ENDIF
29940ELSE:!(A%(u%))=0
29941ENDIF:CLOSE#F%:PROCu:PROC_:PROCfy:IFCy%<0PROCU(gJ%,2+Cy%)ELSEPROCR(gJ%,2+Cy%)
29942IFS$<>"<OptclPro$Dir>.DefFonts"PROCA(SaveF_Window%,1,S$)
29943ENDPROC
29944DEFPROCw_:i%=-1:PROCA(g%,6,""):PROCN(sJ%,"Defined characters in ''"):PROCZ(g%,6):PROCZ(g%,8):PROCZ(g%,11):PROCZ(g%,12):PROCZ(fy%,6):PROCZ(g%,18):PROCM(N_%):PROCM(sJ%):PROCM(HJ%):ENDPROC
29945DEFPROCna(S$):LOCALay%,P`%,Fa%,SB%,U`%,zB%,u`%,TZ%:PROCM(N_%):F%=OPENIN(S$):INPUT#F%,SB%:IFSB%<0CLOSE#F%:ENDPROC
29946IFCy%+1+SB%>=KJ%THENPROCX("Message from Optical","You can only have a maximum of "+STR$(KJ%)+" fonts, therefore this file will not be fully loaded.")
29947FORv_%=Cy%+1TOCy%+1+SB%:INPUT#F%,q$,Gy$,U`%,zB%:IFv_%<KJ%THENA$(v_%)=q$:S$(v_%)=Gy$:S%(v_%)=U`%:aJ%?v_%=zB%
29948NEXT:PROCN_(Cy%+1,Cy%+1+SB%):i%=0:PROCFy(i%):IFDy%PROCN(R_%,"Type teaching font '"+A$(i%)+"'")
29949PROCF(g%,6):PROCF(g%,8):PROCF(g%,11):IFFNM(g%,16)=""PROCF(g%,12)
29950PROCF(fy%,6):PROCF(g%,18):INPUT#F%,ay%:IFay%>4K%=FNA(ay%+4+8*!(A%(u%)),u%)ELSEENDPROC
29951IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to merge font definitions. Need "+STR$(ay%DIV1024)+"K."):CLOSE#F%:ENDPROC
29952u`%=BGET#F%+(1<<8)*BGET#F%+(1<<16)*BGET#F%+(1<<24)*BGET#F%:K%=FNA(64*(u`%+!(A%(u%))),uu%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to load font definitions. Need "+STR$((64*u`%)DIV1024)+"K."):CLOSE#F%:ENDPROC
29953P`%=A%(u%)+4+8*!(A%(u%)):TZ%=!(A%(u%)):!(A%(u%))+=u`%:FORr%=P`%TOP`%+u`%*8-1:?r%=BGET#F%:IF((r%-P`%)MOD8)=1THEN?r%+=Cy%+1
29954NEXT:P`%=A%(uu%)+64*TZ%:FORr%=P`%TOP`%+u`%*64-1:?r%=BGET#F%:NEXT:CLOSE#F%:Cy%+=SB%+1:IFCy%>=KJ%Cy%=KJ%-1
29955PROCu:PROC_:PROCp:ENDPROC
29956DEFPROCxu:C$=FNM(g%,19):IFLEN(C$)>1THENO%=VAL(C$)ELSEO%=ASC(C$)
29957IFFNU("Warning from Optical","This action will delete all the '"+CHR$(O%)+"'s in the current font. Click on OK to delete.")=FALSEENDPROC
29958A%=A%(u%):B%=O%:C%=i%:F%=A%(uu%):REPEATUNTILUSR(JJ)=FALSE:PROCJ(sJ%):PROCJ(N_%):PROC_:PROCp:ENDPROC
29959DEFPROCP_:LOCALqp%,Op%,QJ%,wp%,Qp%,ro%,je%,Bp%,ZA%,Gl%,y%,h%,nl%,Vp%,Ip%,Tu%:IFCy%<0THEN
29960$hB%="(Unnamed)"+CHR$0:PROCU_
29961ENDIF:C$=FNM(g%,19):IFLEN(C$)>1THENO%=VAL(C$)ELSEO%=ASC(C$)
29962IFO%<33ORO%=127ORO%>255ENDPROC
29963IFDy%PROCQu(P%,O%)
29964!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+ci%!(`y%*4):!AJ=U_%:!LJ=I_%:A%=1:B%=U_%-2:C%=0:D%=I_%-1:Tu%=!Y:!Y=0:CALLTJ:!Y=Tu%:QJ%=!(A%(u%)):K%=FNA(12+QJ%*8,u%)
29965IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store this font definition. Need "+STR$((76+QJ%*8+QJ%*64)DIV1024)+"K."):ENDPROC
29966K%=FNA(QJ%*64,uu%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store this font definition. Need "+STR$((76+QJ%*8+QJ%*64)DIV1024)+"K."):ENDPROC
29967C$=FNM(g%,19):IFLEN(C$)>1THENO%=VAL(C$)ELSEO%=ASC(C$)
29968?(A%(u%)+4+QJ%*8)=O%:?(A%(u%)+5+QJ%*8)=i%+128:D%=Ky%:E%=P%:!M=USR(Ay):Za%=FNPy:sa%=FNk:va%=FNFy:?(A%(u%)+6+QJ%*8)=Za%:?(A%(u%)+7+QJ%*8)=sa%:?(A%(u%)+8+QJ%*8)=va%:nl%=A%(uu%)+QJ%*64:FORXB%=0TO63:nl%?XB%=iO%?XB%:NEXT:!(A%(u%))+=1:IFP%>=0THEN
29969B%=_%-1:C%=a%:Yy%=USR(Jy):IFZ%(J_%)<Yy%THENK%=FNA(Yy%,J_%)ELSEK%=TRUE
29970IFZ%(`y%)<Yy%THENK%=FNA(Yy%,`y%)ELSEK%=TRUE
29971IFK%=FALSEPROCC("Optical","There is not enough free memory available to calculate this letter. Need "+STR$((Yy%*2)DIV1024)+"K."):K%=FNA(1,J_%):K%=FNA(1,`y%):SYS&406c1:ENDPROC
29972D%=Ky%:E%=P%:!M=USR(Ay):!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!p=Ky%:!Uy=P%:!Xy=P%:!Zy=fJ%:!Fy=a%:!c=1:!_=JJ%:!x=r_%:B%=_%:F%=Bu%:G%=SJ%:H%=a%:Gl%=USR(L_):!c=0:IF?s=0THENz$="???"ELSEz$=CHR$(!s)
29973IFP%>=0THENPROCc_(P%)
29974ENDIF:PROCJ(sJ%):PROCJ(N_%):PROC_:PROCp:ENDPROC
29975DEFPROCZu(S$):PROCqy("Message from Optical","Do you want this font file to replace the current one, or to merge with it?","Replace","Merge","Cancel",2):_$=S$:ENDPROC
29976DEFPROCau(b%,I%):LOCALOn%:IF(I%>=9ORI%<=15)ANDb%=1PROCS(HJ%,I%,TRUE)
29977On%=(aJ%?i%)AND(8+16):CASEI%OF
29978WHEN3,4:Jk%=2:PROCT(qa%,y%,h%)
29979WHEN7:aJ%?i%=(aJ%?i%)EOR8
29980WHEN8:aJ%?i%=(aJ%?i%)EOR16
29981WHEN9:aJ%?i%=0+On%
29982WHEN10:aJ%?i%=1+On%
29983WHEN11:aJ%?i%=2+On%
29984WHEN12:aJ%?i%=3+On%
29985WHEN13:aJ%?i%=4+On%
29986WHEN14:aJ%?i%=5+On%
29987WHEN15:aJ%?i%=6+On%
29988WHEN16:PROCM(HJ%)
29989WHEN17:PROCpy(i%):NO%=(aJ%?i%)AND7:PROCS(HJ%,9+NO%,TRUE):PROCS(HJ%,7,(aJ%?i%)AND8):PROCS(HJ%,8,(aJ%?i%)AND16)
29990ENDCASE:ENDPROC
29991DEFPROCFy(N%):LOCALNO%:PROCA(g%,6,A$(N%)):PROCA(HJ%,3,S$(N%)):PROCN(sJ%,"Defined characters in '"+A$(N%)+"'"):NO%=(aJ%?N%)AND7:PROCS(HJ%,9+NO%,TRUE):PROCS(HJ%,7,(aJ%?N%)AND8):PROCS(HJ%,8,(aJ%?N%)AND16):ENDPROC
29992DEFPROCpy(N%):LOCALG$,Jl%,p%:G$=S$(N%):IFG$=""ENDPROC
29993FORp%=1TOLEN(G$):O%=ASC(MID$(G$,p%,1)):IFO%>=ASC("a")ANDO%<=ASC("z")MID$(G$,p%)=CHR$(O%-32)
29994NEXT:Jl%=0:IFINSTR(G$,"BOLD")>1ORINSTR(G$,"DEMI")>1ORINSTR(G$,"BLACK")>1ORINSTR(G$,"HEAVY")>1THENJl%+=8
29995IFINSTR(G$,"ITALIC")>1ORINSTR(G$,"OBLIQUE")>1THENJl%+=16
29996IFINSTR(G$,"MONOSPACED")>1ORINSTR(G$,"FIXED")>1THEN
29997Jl%+=3
29998ELSE:G$=LEFT$(G$,INSTR(G$,".")-1):CASEG$OF
29999WHEN"TRINITY":Jl%+=1
30000WHEN"PEMBROKE":Jl%+=1
30001WHEN"NEWHALL":Jl%+=1
30002WHEN"HOMERTON":Jl%+=2
30003WHEN"AVANTG":Jl%+=2
30004WHEN"CORPUS":Jl%+=3
30005WHEN"LEGACY":Jl%+=4
30006WHEN"SELWYN":Jl%+=6
30007WHEN"SIDNEY":Jl%+=6
30008WHEN"GREEK":Jl%+=6
30009ENDCASE
30010ENDIF:aJ%?N%=Jl%:ENDPROC
30011DEFPROCB_(kA%):PROCA(g%,16,"No letter marked"):PROCZ(g%,12):IFkA%THEN
30012PROCD(g%)
30013ELSE:PROCq:PROCPy(g%,s%-64,v%+64)
30014ENDIF:PROC_:ENDPROC
30015DEFPROCVl:FORhy%=0TOm_%:PROCbl(Ka%!(hy%*4)):RECTANGLEFILLL%+(hy%DIV8)*220+16,X%-10-(hy%MOD8)*56,204,-42:NEXT:ENDPROC
30016DEFPROCg_(kJ%):IFHl%?kJ%THEN
30017Hl%?kJ%=0:PROCA(iy%,kJ%,"Background")
30018ELSE:Hl%?kJ%=1:PROCA(iy%,kJ%,"Text")
30019ENDIF:ENDPROC
30020DEFPROCCn:PROCUy:my%=L%:A_%=X%-t%*V%*U%/100:PROCI(A%(`%),M$,my%+200,A_%-200,0,z%):my%+=xu%:A_%+=su%:PROCI(A%(Ny%),N$,my%,A_%,3,z%):ENDPROC
30021DEFPROC_a(I%,j%):CASEj%OF
30022WHEN13:PROCS(iy%,17,1):PROCtJ:PROCS(iy%,17,0)
30023OTHERWISEPROCv(j%)
30024ENDCASE:ENDPROC
30025DEFPROCtJ:SWAP`%,WJ%:K%=FNA(1,WJ%):Ju%=Ma%:m_%=1:Ka%!0=-256:Ka%!4=0:IFql%PROCdy(-1,4)
30026IFti%THENPROCmyELSEPROCWy
30027ENDPROC
30028DEFPROCAa:CASEFNP(0)OF
30029WHEN1:FORhy%=0TOm_%:Hl%?hy%=0:PROCA(iy%,hy%,"Background"):NEXT
30030WHEN2:FORhy%=0TOm_%:Hl%?hy%=1:PROCA(iy%,hy%,"Text"):NEXT
30031WHEN3:SYS&406c3:FORhy%=0TOm_%:PROCg_(hy%):NEXT:SYS&406c1
30032WHEN4:SYS&406c0:z%!0=1:z%!4=1:z%!8=1:z%!12=1:SYS46,60+256,A%(WJ%),M$,0TOJ,G,B,P:SYS46,52+256,A%(`%),M$,0,0,0,z%,Hl%:SYS46,J,G,B,P:PROCJ(w_%):SYS&406c1
30033WHEN5:PROCD(Zoom_Window%)
30034ENDCASE:ENDPROC
30035DEFPROCHu(b%,I%):LOCALhy%:CASEI%OF
30036WHEN17:PROCtJ
30037WHEN22:SYS&406c0:z%!0=1:z%!4=1:z%!8=1:z%!12=1:SYS46,60+256,A%(WJ%),M$,0TOJ,G,B,P:SYS46,52+256,A%(`%),M$,0,0,0,z%,Hl%:SYS46,J,G,B,P:PROCJ(w_%):SYS&406c1
30038WHEN19:SYS&406c3:FORhy%=0TOm_%:PROCg_(hy%):NEXT:SYS&406c1
30039WHEN20:FORhy%=0TOm_%:Hl%?hy%=0:PROCA(iy%,hy%,"Background"):NEXT
30040WHEN21:FORhy%=0TOm_%:Hl%?hy%=1:PROCA(iy%,hy%,"Text"):NEXT
30041WHEN18:PROCT(Zoom_Window%,y%,h%)
30042OTHERWISE:IFI%<=m_%ANDI%>=0THENPROCg_(I%)
30043ENDCASE:ENDPROC
30044DEFPROCsa:CASEFNP(0)OF
30045WHEN1:PROCD(Zoom_Window%)
30046ENDCASE:ENDPROC
30047DEFPROCAi:X$=FNQ(S$):SYS&406c0:F%=OPENUP(S$):Ia%=EXT#F%:CLOSE#F%:K%=FNA(Ia%+8,Ny%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to merge this sprite. Need "+STR$((Ia%+8)DIV1024)+"K."):K%=FNA(1,Ny%):ENDPROC
30048!(A%(Ny%))=Z%(Ny%):SYStJ%,C`%,A%(Ny%):SYStJ%,or%,A%(Ny%),S$:SYStJ%,po%,A%(Ny%),y`%,16,1TO,,,ky%:N$="":FOR_y%=0TOky%-1:N$+=CHR$(y`%?_y%):NEXT:SYStJ%,Nl%,A%(Ny%),N$TO,,,ku%,nJ%,,di%
30049IFdi%<>Ju%PROCC("Optical","The sprite to merge must be in the same mode as the current one."):K%=FNA(1,Ny%):ENDPROC
30050PROCQ_:PROCM_:ENDPROC
30051DEFPROCQl:_`%=TRUE:`B%=TRUE:Ia%=Z%!36:v$=FNx:`n%=Z%!8:_O%=Z%!4:X$=FNQ(v$):K%=FNA(Ia%+8,Ny%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to merge this sprite."):K%=FNA(1,Ny%):ENDPROC
30052!(A%(Ny%))=Z%(Ny%):SYStJ%,C`%,A%(Ny%):PO%=0:dn%=Ia%:p`%=TRUE:Z%!8=`n%:PROCa_:ENDPROC
30053DEFPROCSl:SYStJ%,po%,A%(Ny%),y`%,16,1TO,,,ky%:N$="":FOR_y%=0TOky%-1:N$+=CHR$(y`%?_y%):NEXT:SYStJ%,Nl%,A%(Ny%),N$TO,,,ku%,nJ%,,di%:IFdi%<>Ju%PROCC("Optical","The sprite to merge must be in the same mode as the current one."):K%=FNA(1,Ny%):ENDPROC
30054PROCQ_:PROCM_:ENDPROC
30055DEFPROCM_:ONERRORLOCALERROR0,REPORT$+" at line "+STR$(ERL):ENDPROC
30056SYStJ%,FO%,A%(Ny%),N$TO,,jA%:Z%!0=H_%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=-ku%*R%/2*U%/100:Ii%=-nJ%*V%/2*U%/100:xu%=(s%-L%+Ri%-R%):su%=t%*V%*U%/100-(X%-v%-Ii%):mi%=xu%:ki%=su%
30057SYS53,di%,3TO,,Zk%:SYS46,24+256,A%(Ny%),N$TO,,q`%:G_%=q`%+44:FOR_y%=0TOZk%:Ka%!(_y%*4)=G_%!(_y%*8):NEXT:IFG_%=q`%+q`%!32THENPROCDJ(Zk%)
30058IFNOT((FNG(G_%!0)>FNG(&80808000)ANDFNG(G_%!4)>FNG(&80808000)ANDFNG(G_%!8)<FNG(&80808000)ANDFNG(G_%!12)<FNG(&8080800))ORG_%=q`%+q`%!32)THEN
30059IFZk%=1THEN
30060SYS46,60+256,A%(Ny%),N$,0TOJ,G,B,P:GCOL4,0:RECTANGLEFILL0,0,ku%*R%,nJ%*V%:SYS46,J,G,B,P:G_%!0=FNN(G_%!0):G_%!4=FNN(G_%!4):G_%!8=FNN(G_%!8):G_%!12=FNN(G_%!12):SYS&406c1
30061ENDIF
30062ENDIF:PROCM(k%):PROCM(`_%):PROCM(w_%):PROCM(Q_%):PROCM(iy%):PROCN(H_%,"Merge images"):PROCL(H_%,FNJ(n%*R%)+400,FNJ(t%*V%)+400):SYS&406c1:ENDPROC
30063DEFPROCku:LOCALaA%:Z%!0=H_%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:IFs%<Z%!4ORs%>Z%!12ORv%<Z%!8ORv%>Z%!16ENDPROC
30064SYS6,121,0EOR128TO,aA%:IFaA%PROCcu:ENDPROC
30065IF_J%PROCm:PROCY(""):_J%=FALSE
30066mi%=xu%:ki%=su%:Z%!0=H_%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:xu%=(s%-L%+Ri%):su%=t%*V%*U%/100-(X%-v%-Ii%):IFxu%=mi%ANDsu%=ki%ENDPROC
30067PROCby:ENDPROC
30068DEFPROCcu:IF_J%=FALSEPROCn_(H_%):PROCY("ptr_adjust"):_J%=TRUE
30069Z%!0=H_%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=xu%-s%+L%:Ii%=su%-t%*V%*U%/100+X%-v%:ENDPROC
30070DEFPROCyl(I%,j%):LOCALwl%,Gu%,s%,v%:SYS53,-1,4TO,,wl%:SYS53,-1,5TO,,Gu%:wl%=1<<wl%:Gu%=1<<Gu%:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:M%?0=3:OSCLI("FX21"):CASEj%OF
30071WHEN27:PROCM(H_%):CASEKu%OF
30072WHENFALSE:PROCL(k%,FNJ(n%*R%),FNJ(t%*V%)):PROCN(k%,"Process '"+X$+"' ("+M$+")"):IFUu%PROCw(k%)
30073WHENTRUE:PROCL(Q_%,FNJ(n%*R%),FNJ(t%*V%)):PROCL(w_%,FNJ(n%*R%),FNJ(t%*V%)):PROCD(iy%):PROCN(Q_%,"Original image"):PROCN(w_%,"Processed image")
30074ENDCASE:K%=FNA(1,Ny%)
30075WHEN399:ki%=su%:mi%=xu%:su%+=Gu%:v%+=Gu%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%:PROCby
30076WHEN398:ki%=su%:mi%=xu%:su%-=Gu%:v%-=Gu%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%:PROCby
30077WHEN396:mi%=xu%:ki%=su%:xu%-=wl%:s%-=wl%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%:PROCby
30078WHEN397:mi%=xu%:ki%=su%:xu%+=wl%:s%+=wl%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%:PROCby
30079WHEN415:Ii%+=Gu%:v%+=Gu%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%
30080WHEN414:Ii%-=Gu%:v%-=Gu%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%
30081WHEN412:Ri%-=wl%:s%-=wl%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%
30082WHEN413:Ri%+=wl%:s%+=wl%:M%?1=s%MOD256:M%?2=s%DIV256:M%?3=v%MOD256:M%?4=v%DIV256:SYS7,21,M%
30083WHEN13:PROCo_
30084WHEN386:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:PROCT(Zoom_Window%,s%,v%)
30085OTHERWISESYS&400dc,j%
30086ENDCASE:ENDPROC
30087DEFPROCby:PROCUy:Z%!0=H_%:Z%!4=0:Z%!8=-t%*V%*U%/100-400:Z%!12=n%*R%*U%/100+400:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:my%=L%+mi%:A_%=X%-t%*V%*U%/100+ki%:PROCI(A%(Ny%),N$,my%,A_%,3,z%):SYS&400ca,,Z%TOd%:ENDWHILE:Z%!0=H_%:Z%!4=0:Z%!8=-t%*V%*U%/100-400
30088Z%!12=n%*R%*U%/100+400:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:my%=L%+xu%:A_%=X%-t%*V%*U%/100+su%:PROCI(A%(Ny%),N$,my%,A_%,3,z%):SYS&400ca,,Z%TOd%:ENDWHILE:ENDPROC
30089DEFPROCo_:LOCALhl%,rl%,s%,v%,Z_%,uy%,J,G,B,P,oy%,dJ%,T_%,Yu%,hy%,Jp%,UJ%,yi%,cu%:Z%!0=H_%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:SYS53,-1,4TO,,UJ%:UJ%=1<<UJ%:Z_%=(s%-L%-200-UJ%+Ri%)/R%*100/U%
30090uy%=(t%*V%*U%/100-(X%-v%-Ii%)+200)/V%*100/U%:IFZ_%<0oy%=Z_%ELSEoy%=0
30091IFZ_%+ku%>n%dJ%=Z_%+ku%ELSEdJ%=n%
30092IFuy%<0T_%=uy%ELSET_%=0
30093IFuy%+nJ%>t%Yu%=uy%+nJ%ELSEYu%=t%
30094Yy%=FNg(dJ%-oy%+36,Yu%-T_%+8,A%(`%),M$):K%=FNA(Yy%,`%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to merge the sprite. Need "+STR$((Yy%)DIV1024)+"K."):ENDPROC
30095!(A%(`%))=Z%(`%):IFKu%THEN
30096K%=FNA(Yy%,WJ%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to merge the sprite. Need "+STR$((Yy%)DIV1024)+"K.")ELSE!(A%(WJ%))=Z%(WJ%)
30097ENDIF:IFK%=FALSEENDPROC
30098yi%=-oy%+dJ%-n%-T_%+Yu%-t%:IFKu%yi%=yi%*2
30099cu%=0:SYS&406c0:IFoy%<0THEN
30100FORhy%=oy%TO-1:SYS&2002e,45+256,A%(`%),M$,0:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30101ENDIF:IFdJ%>n%THEN
30102FORhy%=n%TOdJ%-1:SYS&2002e,45+256,A%(`%),M$,n%-oy%:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30103ENDIF:IFT_%<0THEN
30104FORhy%=T_%TO-1:SYS&2002e,31+256,A%(`%),M$,0:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30105ENDIF:IFYu%>t%THEN
30106FORhy%=t%TOYu%-1:SYS&2002e,31+256,A%(`%),M$,t%-T_%:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30107ENDIF:IFKu%THEN
30108IFoy%<0THEN
30109FORhy%=oy%TO-1:SYS&2002e,45+256,A%(WJ%),M$,0:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30110ENDIF:IFdJ%>n%THEN
30111FORhy%=n%TOdJ%-1:SYS&2002e,45+256,A%(WJ%),M$,n%-oy%:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30112ENDIF:IFT_%<0THEN
30113FORhy%=T_%TO-1:SYS&2002e,31+256,A%(WJ%),M$,0:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30114ENDIF:IFYu%>t%THEN
30115FORhy%=t%TOYu%-1:SYS&2002e,31+256,A%(WJ%),M$,t%-T_%:cu%+=1:SYS&406c4,cu%/yi%*100:NEXT
30116ENDIF
30117ENDIF:SYS&406c4,100:SYS46,60+256,A%(`%),M$,0TOJ,G,B,P:SYS46,34+256,A%(Ny%),N$,(Z_%-oy%)*R%,(uy%-T_%)*V%,1:SYS46,J,G,B,P:IFKu%THEN
30118SYS46,60+256,A%(WJ%),M$,0TOJ,G,B,P:z%!0=1:z%!4=1:z%!8=1:z%!12=1:SYS46,52+256,A%(Ny%),N$,(Z_%-oy%)*R%,(uy%-T_%)*V%,1,z%,Hl%:SYS46,J,G,B,P
30119ENDIF:SYS&406c1:SYStJ%,Nl%,A%(`%),M$TO,,,n%,t%:PROCM(H_%):CASEKu%OF
30120WHENFALSE:PROCL(k%,FNJ(n%*R%),FNJ(t%*V%)):PROCN(k%,"Process '"+X$+"' ("+M$+")"):IFUu%PROCw(k%)
30121WHENTRUE:PROCL(Q_%,FNJ(n%*R%),FNJ(t%*V%)):PROCL(w_%,FNJ(n%*R%),FNJ(t%*V%)):PROCD(iy%):PROCN(Q_%,"Original image"):PROCN(w_%,"Processed image")
30122ENDCASE:K%=FNA(1,Ny%):ENDPROC
30123DEFPROCBl:IFFNP(0)=Yi%ENDPROC
30124IFno%PROCX("Message from Optical","You cannot change speech synthesizer whilst Optical is talking"):ENDPROC
30125PROCB(en%,Yi%):Yi%=FNP(0):PROCB(en%,Yi%):ENDPROC
30126DEFPROCF_:PROCX("Message from Optical","Text cannot be read out with this version of Optical. For a full version please contact Neurotron Software."):ENDPROC
30127DEFPROCqu:FB%=32:Co%=32:wB%=32:DIMqn%28+ (FB%+4)*32:DIMfi%28+ (Co%+4)*32:DIMBn%28+ (wB%+4)*12:DIMnA% (wB%+4)*12:DIMHA% (FB%+4)*32:DIMqZ% (Co%+4)*32:DIMJ$(FB%):DIMF$(Co%):DIMC%(wB%):DIMF%(wB%):DIMTy%32:PROCS(W%,36,1):PROCS(W%,17,0):PROCS(W%,38,1):PROCS(W%,19,0):PROCS(W%,39,1):PROCS(W%,10,1)
30128PROCA(W%,22,"50"):PROCA(W%,23,"50"):un%=32*1024+1024:to%=TRUE:Fi%=FALSE:li%=FALSE:oo%=FALSE:Va%=0:Zr%=0:PROCKa:pl%=256:xJ%=256:SYS&20039,,"Scanner_Names"TO;wy%:IF(wy%AND1)=FALSEPROCs_:ENDPROC
30129SYS&20039,,"Scan_Start"TO;wy%:IF(wy%AND1)=FALSEPROCs_:ENDPROC
30130ENDPROC
30131DEFPROCl:LOCALvJ%:Ku%=FNS(iy%):IF(i_%<>0ORFi%)ANDyl%<>0PROCIy:ENDPROC
30132IFyl%THENSYS&400d4,,Lo%,y%-64,184:Jy%=Lo%:ENDPROC
30133PROCWu:zy%=FALSE:IFly%<xJ%THEN
30134SYS&20039,,"Scanner_Names"TO;wy%:IF(wy%AND1)PROCe_:zy%=TRUE
30135IFS`%zy%=TRUE
30136vJ%=FNZ(W%,38)
30137ENDIF:IFzy%ENDPROC
30138IFly%<xJ%IFli%ANDvJ%<>0PROCbJ:ENDPROC
30139IF(Z%(`%)<=1024ANDZ%(WJ%)<=1024ANDZ%(Ny%)<=1024)ORa_%=TRUETHEN
30140PROCZ(W%,36):Zu%=FALSE
30141ELSE:PROCF(W%,36):Zu%=FNZ(W%,36)
30142ENDIF:IFoo%=FALSEPROCs_:IFok%ENDPROC
30143PROCD(W%):IFly%<xJ%ANDFi%ANDXo%THEN
30144PROCZ(W%,28):PROCZ(W%,31):PROCZ(W%,32):PROCF(W%,43):PROCS(W%,43,1)
30145ELSE:PROCF(W%,28):PROCF(W%,31):PROCF(W%,32):PROCZ(W%,43):PROCS(W%,43,0)
30146ENDIF:PROCay:ENDPROC
30147DEFPROCs_:ONERRORLOCALVDU26,4:PRINTREPORT$;ERL:ma%=TRUE:END
30148ok%=FALSE:SYS&20039,,"Scanner_Names"TO;wy%:IF(wy%AND1)pl%=256ELSEpl%=0
30149SYS&20039,,"Scan_Start"TO;wy%:IF(wy%AND1)xJ%=256ELSExJ%=0
30150IFpl%=256ANDxJ%=256PROCe_:ENDPROC
30151IFpl%<>256PROCua
30152IFpl%=256ANDxJ%=256PROCe_:ENDPROC
30153IFxJ%<>256ANDpl%=256PROCCu:ENDPROC
30154ENDPROC
30155DEFPROCK_:IFly%>=xJ%PROCii:ENDPROC
30156IFly%>=pl%PROCtu:ENDPROC
30157ENDPROC
30158DEFPROCtu:LOCALAZ%,ei%:SYS&41dc1,ly%TO,yB%,Iu%,Un%,_u%:Xl%=Un%!0:Cu%=Un%!4:ml%=Un%!8:tl%=Un%!12:Fk%=_u%AND(1<<2):IFFk%PROCF(W%,17)ELSEPROCZ(W%,17)
30159PROCZ(W%,18):PROCZ(W%,19):PROCZ(W%,20):PROCZ(W%,21):PROCZ(W%,22):PROCZ(W%,47):PROCZ(W%,48):PROCZ(W%,23):PROCZ(W%,24):PROCZ(W%,49):PROCZ(W%,50):WB%=_u%AND(1<<3):IFWB%THEN
30160PROCF(W%,18):PROCF(W%,21):PROCS(W%,18,1):PROCS(W%,21,1)
30161ELSE:PROCS(W%,20,1)
30162ENDIF:bi%=_u%AND(1<<23):IFbi%THEN
30163PROCF(W%,18):PROCF(W%,19):PROCF(W%,20):PROCF(W%,22):PROCF(W%,47):PROCF(W%,48):PROCF(W%,23):PROCF(W%,24):PROCF(W%,49):PROCF(W%,50):PROCS(W%,18,1):PROCS(W%,19,1)
30164ENDIF:rZ%=_u%AND(1<<8):yo%=_u%AND(1<<17):IFyo%PROCz_
30165Ik%=_u%AND(1<<19):IFIk%PROCpJ
30166li%=_u%AND(1<<21):IFli%PROCF(W%,38)ELSEPROCZ(W%,38)
30167c_%=0:Z$="Modes:":WHILE!(Iu%+32*c_%)<>0:F$(c_%)=FNF(Iu%!(4+32*c_%)+Iu%):Z$+="|"+F$(c_%):c_%+=1:ENDWHILE:ce%=c_%:PROCcy(fi%,Z$,qZ%):nO%=FALSE:ei%=FALSE:c_%=0:WHILE!(Iu%+32*c_%)<>0:Wn%=Iu%!(24+32*c_%)+Iu%:uo%=FALSE:r%=0:WHILE?(Wn%+r%)<>0ANDuo%=FALSE:IF?(Wn%+r%)<=4THEN
30168uo%=TRUE:IFnO%=FALSETHEN
30169nO%=TRUE:AZ%=c_%
30170ENDIF
30171ENDIF:r%+=1:ENDWHILE:IFuo%=FALSETHEN
30172PROCU(fi%,c_%+1):IFc_%=`J%ei%=TRUE
30173ENDIF:c_%+=1:ENDWHILE:IFnO%=FALSETHEN
30174PROCZ(W%,34):`J%=0:PROCA(W%,3,"No suitable modes")
30175ELSE:PROCF(W%,34):IFei%OR`J%>=c_%`J%=AZ%
30176PROCB(fi%,`J%+1):PROCA(W%,3,F$(`J%))
30177ENDIF:IFto%THEN
30178cy%=Xl%:IFCu%=-1Ry%=FNYELSERy%=Cu%
30179PROCay:IFFNM(W%,28)="Inches"VJ%=TRUEELSEVJ%=FALSE
30180IFVJ%THEN
30181PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000)),7))
30182ELSE:PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000*S)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000*S)),7))
30183ENDIF:PROCx
30184ENDIF:ENDPROC
30185DEFPROCX_:LOCALii%,c_%,gl%,q%,r%:IFly%>=xJ%ENDPROC
30186SYS&41dc1,ly%TO,yB%,Iu%,Un%,_u%:IFWB%THEN
30187PROCF(W%,18):PROCF(W%,21):PROCS(W%,18,1):PROCS(W%,21,1)
30188ELSE:PROCS(W%,20,1)
30189ENDIF:IFbi%THEN
30190PROCF(W%,18):PROCF(W%,19):PROCF(W%,20):PROCF(W%,22):PROCF(W%,47):PROCF(W%,48):PROCF(W%,23):PROCF(W%,24):PROCF(W%,49):PROCF(W%,50):PROCS(W%,18,1):PROCS(W%,19,1)
30191ENDIF:SYS&41dc1,ly%TO,yB%,Iu%,Un%,_u%:PROCZ(W%,8):PROCZ(W%,9):PROCZ(W%,10):PROCZ(W%,39):PROCZ(W%,40):PROCZ(W%,41):PROCF(W%,11):PROCF(W%,12):PROCF(W%,13):PROCF(W%,14):Wn%=Iu%!(24+32*`J%)+Iu%:ii%=FALSE:h_%=0:WHILE?(Wn%+h_%)<>0:CASE?(Wn%+h_%)OF
30192WHEN1:ny%=FNZ(W%,39):IFny%ii%=TRUE
30193WHEN2:ny%=FNZ(W%,40):IFny%ii%=TRUE
30194WHEN4:ny%=FNZ(W%,41):IFny%ii%=TRUE
30195ENDCASE:h_%+=1:ENDWHILE:r%=0:WHILE?(Wn%+r%)<>0:CASE?(Wn%+r%)OF
30196WHEN1:PROCF(W%,39):IFii%=FALSEPROCS(W%,39,1)
30197ii%=TRUE
30198WHEN2:PROCF(W%,40):IFii%=FALSEPROCS(W%,40,1)
30199ii%=TRUE
30200WHEN4:PROCF(W%,41):IFii%=FALSEPROCS(W%,41,1)
30201ii%=TRUE
30202ENDCASE:r%+=1:ENDWHILE:Va%=Iu%!(8+32*`J%):IF(Va%AND(1<<5))<>0OR(Va%AND(1<<6))<>0Xo%=FALSEELSEXo%=TRUE
30203IF(Va%AND(1<<2))=FALSETHEN
30204PROCZ(W%,18):PROCZ(W%,20):PROCZ(W%,21):PROCZ(W%,22):PROCZ(W%,47):PROCZ(W%,48)
30205ENDIF:IF(Va%AND(1<<3))=FALSETHEN
30206PROCZ(W%,19):PROCZ(W%,23):PROCZ(W%,24):PROCZ(W%,49):PROCZ(W%,50)
30207ENDIF:IF(Va%AND(1<<4))THEN
30208PROCZ(W%,28):PROCZ(W%,31):PROCZ(W%,32)
30209ELSE:PROCF(W%,28):PROCF(W%,31):PROCF(W%,32)
30210ENDIF:Z$="Resolutions":Po%=Iu%!(28+32*`J%)+Iu%:h_%=0:WHILE!(Po%+h_%)<>0:C%(h_%/4)=!(Po%+h_%)MOD(1<<16):F%(h_%/4)=!(Po%+h_%)DIV(1<<16):Z$+="|"+STR$(C%(h_%/4))+" x "+STR$(F%(h_%/4)):IFC%(h_%/4)=200ANDF%(h_%/4)=200PROCF(W%,8)
30211IFC%(h_%/4)=300ANDF%(h_%/4)=300PROCF(W%,9)
30212IFC%(h_%/4)=400ANDF%(h_%/4)=400PROCF(W%,10)
30213h_%+=4:ENDWHILE:kB%=h_%/4:PROCcy(Bn%,Z$,nA%):gl%=FALSE:ny%=FNZ(W%,8):s_%=FNZ(W%,9):wJ%=FNZ(W%,10):lu%=FNZ(W%,11):PROCB(Bn%,Mu%+1):PROCA(W%,12,STR$(C%(Mu%))):PROCA(W%,13,STR$(F%(Mu%))):FORc_%=0TOkB%-1:IFny%ANDgl%=FALSEIFC%(c_%)=200ANDF%(c_%)=200gl%=TRUE
30214IFs_%ANDgl%=FALSEIFC%(c_%)=300ANDF%(c_%)=300gl%=TRUE
30215IFwJ%ANDgl%=FALSEIFC%(c_%)=400ANDF%(c_%)=400gl%=TRUE
30216IFlu%ANDgl%=FALSEANDC%(c_%)=VAL(FNM(W%,12))ANDF%(c_%)=VAL(FNM(W%,13))THEN
30217Mu%=c_%:gl%=TRUE
30218ENDIF:NEXT:IFgl%=FALSETHEN
30219FORc_%=0TOkB%-1:IFC%(c_%)=400ANDF%(c_%)=400THEN
30220PROCS(W%,10,1):gl%=TRUE
30221ENDIF:NEXT
30222ENDIF:IFgl%=FALSETHEN
30223FORc_%=0TOkB%-1:IFC%(c_%)=300ANDF%(c_%)=300THEN
30224PROCS(W%,9,1):gl%=TRUE
30225ENDIF:NEXT
30226ENDIF:ENDPROC
30227DEFPROCe_:PROCX("Optical","There are no scanners connected which can be directly interfaced with Optical."):PROCM(W%):ok%=TRUE:ENDPROC
30228DEFFNY:=11.68*72000
30229DEFPROCCl(b%,I%):LOCALvJ%:IFb%=1ANDI%=47I%=48ELSEIFb%=1ANDI%=48I%=47
30230IFb%=1ANDI%=49I%=50ELSEIFb%=1ANDI%=50I%=49
30231IF((I%>=8ANDI%<=11)ORI%=20ORI%=21OR(I%>=39ANDI%<=41))ANDb%=1PROCS(W%,I%,TRUE)
30232CASEI%OF
30233WHEN4,2:PROCT(qn%,y%,h%)
30234WHEN5,3:PROCT(fi%,y%,h%)
30235WHEN14,12,13:PROCT(Bn%,y%,h%)
30236WHEN28:PROCOu
30237WHEN35:i_%=FALSE:PROCM(W%)
30238WHEN34:PROCQJ
30239WHEN42:PROCVa
30240WHEN18:vJ%=FNZ(W%,18):IFvJ%THEN
30241IFWB%PROCF(W%,21)
30242IFbi%PROCF(W%,20):PROCF(W%,22):PROCF(W%,47):PROCF(W%,48)
30243ELSE:PROCZ(W%,20):PROCZ(W%,21):PROCZ(W%,22):PROCZ(W%,47):PROCZ(W%,48)
30244ENDIF
30245WHEN19:vJ%=FNZ(W%,19):IFvJ%THEN
30246PROCF(W%,23):PROCF(W%,24):PROCF(W%,49):PROCF(W%,50)
30247ELSE:PROCZ(W%,23):PROCZ(W%,24):PROCZ(W%,49):PROCZ(W%,50)
30248ENDIF
30249WHEN43:vJ%=FNZ(W%,43):IFvJ%THEN
30250PROCZ(W%,28):PROCZ(W%,31):PROCZ(W%,32)
30251ELSE:PROCF(W%,28):PROCF(W%,31):PROCF(W%,32)
30252ENDIF:PROCx
30253WHEN8,9,10,11,39,40,41:PROCx
30254WHEN47:PROCi(W%,22,100,1)
30255WHEN48:PROCh(W%,22,1,1)
30256WHEN49:PROCi(W%,23,100,1)
30257WHEN50:PROCh(W%,23,1,1)
30258WHEN51:PROCXl
30259ENDCASE:ENDPROC
30260DEFPROCOu:IFFNM(W%,28)="Inches"VJ%=TRUEELSEVJ%=FALSE
30261IFVJ%THEN
30262cy%=VAL(FNM(W%,31))*72000:Ry%=VAL(FNM(W%,32))*72000
30263ELSE:cy%=VAL(FNM(W%,31))*72000/S:Ry%=VAL(FNM(W%,32))*72000/S
30264ENDIF:VJ%=NOT(VJ%):@%=1024:IFVJ%THEN
30265PROCA(W%,28,"Inches"):PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000)),7))
30266ELSE:PROCA(W%,28,"Mm"):PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000*S)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000*S)),7))
30267ENDIF:@%=2314:ENDPROC
30268DEFPROCOa:LOCALOk%:Ok%=FNP(0):IFOk%=ly%+1ENDPROC
30269PROCB(qn%,ly%+1):PROCB(qn%,Ok%):ly%=Ok%-1:PROCA(W%,2,J$(ly%)):to%=TRUE:IFly%<>xJ%ANDxJ%<>256THENSYS"Scan_Stop"
30270PROCK_:PROCX_:PROCXi:ENDPROC
30271DEFPROCul:LOCALsk%:sk%=FNP(0):IFsk%=`J%+1ENDPROC
30272PROCB(fi%,`J%+1):PROCB(fi%,sk%):`J%=sk%-1:PROCA(W%,3,F$(`J%)):PROCX_:PROCx:ENDPROC
30273DEFPROCha:LOCALfr%:fr%=FNP(0):PROCV(Bn%,Mu%+1):PROCK(Bn%,fr%):Mu%=fr%-1:PROCA(W%,12,STR$(C%(Mu%))):PROCA(W%,13,STR$(F%(Mu%))):PROCS(W%,11,1):PROCx:ENDPROC
30274DEFPROCcy(Jy%,Z$,aZ%):LOCALXy%,Uy%,ky%,Wu%,ka%,Lu%:Lu%=0:Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:$Jy%=LEFT$(Z$,INSTR(Z$,"|")-1):Uy%=LEN(LEFT$(Z$,INSTR(Z$,"|")-1)):Z$+="|":`o%=0:WHILEZ$<>"":Z$=MID$(Z$,INSTR(Z$,"|")+1):CASEZ$OF
30275WHEN""
30276OTHERWISE:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=INSTR(Z$,"|")-1:Wu%=INSTR(LEFT$(Z$,ky%),">"):CASEWu%OF
30277WHEN0
30278OTHERWISE:ka%=EVAL(MID$(Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1
30279ENDCASE:IFLu%<L`%THEN
30280Xy%!8+=1<<8:Xy%!12=aZ%+Lu%*32:Xy%!16=0:Xy%!20=21:$(aZ%+Lu%*32)=LEFT$(Z$,ky%):Lu%+=1
30281ELSE:$(Xy%+12)=LEFT$(Z$,12)
30282ENDIF:IFky%>Uy%THENUy%=ky%
30283Xy%+=24
30284ENDCASE:ENDWHILE:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24OR128:ENDPROC
30285DEFPROCPi(I%,j%):IFj%=27PROCS(Y%,35,1):PROCM(W%):PROCS(Y%,35,0):ENDPROC
30286IFj%<>13SYS&400dc,j%:ENDPROC
30287CASEI%OF
30288WHEN22:DJ%=VAL(FNM(W%,22)):IFDJ%<1DJ%=1
30289IFDJ%>100DJ%=100
30290PROCA(W%,22,STR$(DJ%)):PROCLy(W%,23)
30291WHEN23:DJ%=VAL(FNM(W%,23)):IFDJ%<1DJ%=1
30292IFDJ%>100DJ%=100
30293PROCA(W%,23,STR$(DJ%)):PROCLy(W%,22)
30294WHEN31:PROCx:PROCLy(W%,32)
30295WHEN32:PROCx:PROCLy(W%,31)
30296WHEN34:PROCS(Y%,34,1):PROCQJ:PROCS(Y%,34,0)
30297ENDCASE:ENDPROC
30298DEFFNW(tl)=FNJy(tl,2)
30299DEFFNJy(tl,ZZ%)=INT(tl*10^ZZ%)/10^ZZ%
30300DEFPROCQJ:NJ%=0:Zu%=FNZ(W%,36):IFZu%IF(Z%(`%)<=1024ANDZ%(WJ%)<=1024ANDZ%(Ny%)<=1024)ORa_%=TRUEZu%=FALSE
30301PROCM(W%):IF_u%AND(1<<0)THEN
30302PROCD(kl%):PROCgi
30303ENDIF:yO%=TRUE:ENDPROC
30304DEFPROCNu:yO%=FALSE:IFly%>=xJ%PROCTu:ENDPROC
30305IFly%>=pl%PROCbJ:ENDPROC
30306ENDPROC
30307DEFPROCTu:LOCALc%,Tu%:SYS"XScan_PollDPI"TOTl%:Tl%=Tl%*100:Al%=Tl%:Ll%=Tl%:IFVJ%THEN
30308cy%=VAL(FNM(W%,31))*72000:Ry%=VAL(FNM(W%,32))*72000
30309ELSE:cy%=VAL(FNM(W%,31))*72000/S:Ry%=VAL(FNM(W%,32))*72000/S
30310ENDIF:vu%=(cy%/72000)*Tl%/8:IF(vu%AND3)vu%=(vu%ANDNOT(3))+4
30311IFvu%>Tl%/100*52vu%=Tl%/100*52
30312P_%=(Ry%/72000)*Tl%:z_%=1:Ji%=FNV:bu%=cy%*Tl%/72000:IFBo%THENzk%=(Ji%-un%)/((4+bu%/8)+(4+bu%/8))-4ELSEzk%=(Ji%-un%)/(4+bu%/8)-4
30313IFP_%>zk%THENP_%=zk%
30314IFP_%<1PROCC("Optical","There is not enough available memory to scan the image."):SYS"Scan_Stop":ENDPROC
30315Dn%=vu%*P_%:IFZu%THEN
30316ku%=vu%*8:nJ%=P_%:Uy%=(vu%*8)/4-1:yy%=nJ%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=FNA(qu%+8,Ny%)
30317IFK%=FALSEPROCC("Optical","There is not enough free memory available to scan an area that size. Need "+STR$((qu%+8)DIV1024)+"K."):K%=FNA(1,Ny%):PROCM(kl%):li%=FALSE:ENDPROC
30318!(A%(Ny%))=Z%(Ny%):!(A%(Ny%)+8)=16:di%=18:SYS46,9+256,A%(Ny%):SYS46,15+256,A%(Ny%),"Scanned",1,ku%,nJ%,di%:SYS46,24+256,A%(Ny%),"Scanned"TO,,c%:PROC`y:N$="Scanned":j`%=c%+c%!32
30319ELSE:n%=vu%*8:t%=P_%:Uy%=(vu%*8)/4-1:yy%=t%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=FNA(qu%+8,M_%)
30320IFK%=FALSEPROCC("Optical","There is not enough free memory available to scan an area that size. Need "+STR$((qu%+8)DIV1024)+"K."):PROCM(kl%):PROCH:li%=FALSE:ENDPROC
30321!(A%(M_%))=Z%(M_%):!(A%(M_%)+8)=16:Ju%=18:V%=2:R%=2:SYS46,9+256,A%(M_%):SYS46,15+256,A%(M_%),"Scanned",1,n%,t%,Ju%:SYS46,24+256,A%(M_%),"Scanned"TO,,c%:PROC`y:M$="Scanned":j`%=c%+c%!32
30322ENDIF:zy%=FALSE:X$="Watford":SYS"XScan_Start",vu%,P_%,j`%TO_a%;wy%:IF(wy%AND1)THEN
30323PROCC("Optical",FNF(_a%+4)):IFZu%K%=FNA(1,Ny%)ELSEPROCH
30324zy%=TRUE:SYS"XScan_Stop"
30325ENDIF:IFzy%ENDPROC
30326SYS&406c0:zy%=FALSE:mP%=-1:de%=0:re%=TIME:WHILENJ%<P_%AND(TIME<re%+300ORNJ%<=1):IFINKEY-113THEN
30327SYS"XScan_Stop":IFZu%K%=FNA(1,Ny%)ELSEPROCH
30328zy%=TRUE:NJ%=P_%
30329ELSE:SYS"XScan_Poll"TONJ%;wy%:IFNJ%<>de%THENde%=NJ%:re%=TIME
30330IF(wy%AND1)THEN
30331SYS"XScan_Stop":PROCC("Optical",FNF(_a%+4)):IFZu%K%=FNA(1,Ny%)ELSETu%=i_%:PROCH:i_%=Tu%
30332zy%=TRUE:NJ%=P_%:Qn%=FALSE
30333ELSE:NJ%+=1
30334ENDIF:SYS&406c4,(NJ%/P_%)*100:PROCeJ:IFWy%=1PROCq_
30335IFWy%=2PROCv_
30336IF!APROCH_
30337ENDIF:ENDWHILE:IFNJ%<P_%THEN
30338IFZu%THEN
30339SYS46,Nl%,A%(Ny%),"Scanned"TO,,,ku%,nJ%:SYS46,24+256,A%(Ny%),"Scanned"TO,,c%:nJ%=NJ%:c%!20=nJ%-1
30340ELSE:SYS46,Nl%,A%(M_%),"Scanned"TO,,,n%,t%:SYS46,24+256,A%(M_%),"Scanned"TO,,c%:t%=NJ%:c%!20=t%-1
30341ENDIF
30342ENDIF:SYS&406c1:SYS"XScan_Stop":PROCM(kl%):IFzy%ENDPROC
30343Fi%=TRUE:SYS&406c0:V=0:IFZu%THENPROCM_ELSEPROCgy:PROCXy
30344ENDPROC
30345DEFPROCbJ:LOCALny%,s_%,wJ%,lu%,z_%,s`%,c%,Tu%:IFZu%=FALSETu%=i_%:PROCH:i_%=Tu%
30346PROCx:s`%=!(Iu%+32*`J%):Ty%!0=s`%:Ty%!4=0:Ty%!8=100:Ty%!12=100:ny%=FNZ(W%,18):s_%=FNZ(W%,19):IFbi%<>0ANDny%<>0THENTy%!16=VAL(FNM(W%,22))ELSETy%!16=100
30347IFbi%<>0ANDs_%<>0THENTy%!16+=VAL(FNM(W%,23))*(1<<16)ELSETy%!16+=100*(1<<16)
30348Ty%!20=0:ny%=FNZ(W%,39):s_%=FNZ(W%,40):wJ%=FNZ(W%,41):IFny%Ty%!24=1:z_%=1
30349IFs_%Ty%!24=2:z_%=2
30350IFwJ%Ty%!24=4:z_%=4
30351ny%=FNZ(W%,8):s_%=FNZ(W%,9):wJ%=FNZ(W%,10):lu%=FNZ(W%,11):IFny%Ty%!28=200+200*(1<<16)
30352IFs_%Ty%!28=300+300*(1<<16)
30353IFwJ%Ty%!28=400+400*(1<<16)
30354IFlu%THENTy%!28=C%(Mu%)+F%(Mu%)*(1<<16)
30355ny%=FNZ(W%,43):IFny%<>0ANDFi%THEN
30356PROCou
30357ELSE:IFFNM(W%,28)="Inches"VJ%=TRUEELSEVJ%=FALSE
30358PROCx:Kl%=0:Si%=0
30359ENDIF:Ji%=FNV:bu%=cy%*(Ty%!28MOD(1<<16))/72000:IFz_%>1ORBo%THENP_%=(Ji%-un%)/((4+bu%*z_%/8)+(4+bu%/8))-4ELSEP_%=(Ji%-un%)/(4+bu%/8)-4
30360IFP_%<1PROCC("Optical","There is not enough available memory to scan the image."):ENDPROC
30361P_%=P_%*72000/(Ty%!28DIV(1<<16)):IFRy%>P_%Ry%=P_%
30362Z%!0=Kl%:Z%!4=Si%:Z%!8=cy%:Z%!12=Ry%:SYS&61dc2,ly%,Ty%,Z%TO_a%,,,vu%,P_%,Dn%;wy%:IFwy%AND1PROCC("Optical",FNF(_a%+4)):PROCD(W%):ENDPROC
30363IFZu%THEN
30364ku%=vu%*8/z_%:nJ%=P_%:Uy%=(vu%*8/z_%)/4-1:yy%=nJ%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=FNA(qu%+8,Ny%)
30365IFK%=FALSEPROCC("Optical","There is not enough free memory available to scan an area that size. Need "+STR$((qu%+8)DIV1024)+"K."):K%=FNA(1,Ny%):PROCM(kl%):li%=FALSE:ENDPROC
30366!(A%(Ny%))=Z%(Ny%):!(A%(Ny%)+8)=16:CASEz_%OF
30367WHEN1:di%=18
30368WHEN2:di%=19
30369WHEN4:di%=20
30370ENDCASE:SYS46,9+256,A%(Ny%):SYS46,15+256,A%(Ny%),"Scanned",1,ku%,nJ%,di%:SYS46,24+256,A%(Ny%),"Scanned"TO,,c%:PROC`y:N$="Scanned":j`%=c%+c%!32
30371ELSE:n%=vu%*8/z_%:t%=P_%:Uy%=(vu%*8/z_%)/4-1:yy%=t%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=FNA(qu%+8,M_%)
30372IFK%=FALSEPROCC("Optical","There is not enough free memory available to scan an area that size. Need "+STR$((qu%+8)DIV1024)+"K."):PROCM(kl%):PROCH:li%=FALSE:ENDPROC
30373!(A%(M_%))=Z%(M_%):!(A%(M_%)+8)=16:CASEz_%OF
30374WHEN1:Ju%=18
30375WHEN2:Ju%=19
30376WHEN4:Ju%=20
30377ENDCASE:V%=2:R%=2:SYS46,9+256,A%(M_%):SYS46,15+256,A%(M_%),"Scanned",1,n%,t%,Ju%:SYS46,24+256,A%(M_%),"Scanned"TO,,c%:PROC`y:M$="Scanned":j`%=c%+c%!32
30378ENDIF:ny%=FNZ(W%,17):s_%=FNZ(W%,21):B_%=128:IF_u%AND(1<<0)THENB_%+=1
30379IFny%<>0ANDFk%<>0THENB_%+=4
30380IFs_%<>0ANDWB%<>0THENB_%+=8
30381IF_u%AND(1<<6)THENB_%+=64
30382SYS&41dc4,ly%,,j`%,B_%TO,,Qn%,`P%,pP%:IFQn%SYS&406c0
30383zy%=FALSE:WHILEQn%:IFINKEY-113AND(_u%AND(1<<0))THEN
30384SYS&61dc5,ly%:SYS&61dc3,ly%TO_a%,,Qn%,NJ%,g_;wy%
30385ELSE:SYS&61dc3,ly%TO_a%,,Qn%,NJ%,g_;wy%:IF(wy%AND1)THEN
30386SYS&61dc5,ly%:PROCC("Optical",FNF(_a%+4)):IFZu%K%=FNA(1,Ny%)ELSETu%=i_%:PROCH:i_%=Tu%
30387zy%=TRUE:NJ%=P_%:Qn%=FALSE:li%=FALSE
30388ELSE:NJ%+=1
30389ENDIF:SYS&406c4,(NJ%/P_%)*100:PROCeJ:IFWy%=1PROCq_
30390IFWy%=2PROCv_
30391IF!APROCH_
30392ENDIF:ENDWHILE:IF(_u%AND(1<<0))=FALSESYS&61dc3,ly%TO_a%,,Qn%,NJ%,g_;wy%
30393IFNJ%<P_%THEN
30394IFZu%THEN
30395SYS46,Nl%,A%(Ny%),"Scanned"TO,,,ku%,nJ%:SYS46,24+256,A%(Ny%),"Scanned"TO,,c%:nJ%=NJ%:c%!20=nJ%-1
30396ELSE:SYS46,Nl%,A%(M_%),"Scanned"TO,,,n%,t%:SYS46,24+256,A%(M_%),"Scanned"TO,,c%:t%=NJ%:c%!20=t%-1
30397ENDIF
30398ENDIF:SYS&406c1:SYS&61dc5,ly%:IF_u%AND(1<<0)PROCM(kl%)
30399IFzy%ENDPROC
30400SYS&406c0:Fi%=TRUE:nu%=Ty%!28MOD(1<<16):du%=Ty%!28DIV(1<<16):Al%=nu%:Ll%=du%:oa%=Kl%:la%=Si%:V=0:IFZu%THENPROCM_ELSEPROCgy:PROCXy
30401ENDPROC
30402DEFPROCgi:VDU26:Z%!0=kl%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!0=kl%:Z%!4=0:SYS&400ce,,Z%:CA%=L%+Z%!8+8:FZ%=X%+Z%!12+8:SYS53,-1,4TO,,ia%:SYS53,-1,5TO,,vn%:ia%=1<<ia%:vn%=1<<vn%:`Z%=(Z%!16-Z%!8-16)/ia%:lZ%=(Z%!20-Z%!12-16)/vn%:wr%=(Z%!16-Z%!8-16)
30403GA%=(Z%!20-Z%!12-16):Z%!0=kl%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!0=kl%:Z%!4=1:SYS&400ce,,Z%:WA%=L%+Z%!8+8:JZ%=X%+Z%!12+8:SYS53,-1,4TO,,ia%:SYS53,-1,5TO,,vn%:ia%=1<<ia%:vn%=1<<vn%:AA%=(Z%!16-Z%!8-16)/ia%:pZ%=(Z%!20-Z%!12-16)/2
30404QA%=(Z%!16-Z%!8-16):rP%=(Z%!20-Z%!12-16):oe%=0:ENDPROC
30405DEFPROCeJ:LOCALU_%,I_%,Ml%,MA%:my%=CA%:A_%=FZ%:n_%=`Z%:cJ%=lZ%:VDU26,24,my%;A_%;my%+wr%-4;A_%+GA%-4;:IFZu%THENU_%=ku%:I_%=nJ%ELSEU_%=n%:I_%=t%
30406z%!0=1:z%!4=1:z%!8=1:z%!12=1:A_%-=(P_%-NJ%)*2:my%-=(U_%*2-wr%)/2:IFZu%THEN
30407PROCI(A%(Ny%),"Scanned",my%,A_%,0,z%)
30408ELSE:PROCI(A%(M_%),"Scanned",my%,A_%,0,z%)
30409ENDIF:my%=WA%:A_%=JZ%:n_%=AA%:cJ%=pZ%:Ml%=(cJ%/I_%)*(P_%-NJ%)*2-4:MA%=(cJ%/I_%)*(NJ%-oe%)*2+4:VDU26,24,my%;A_%+Ml%;my%+QA%-8;A_%+Ml%+MA%;:oe%=NJ%:IFZu%THENU_%=ku%:I_%=nJ%ELSEU_%=n%:I_%=t%
30410IFU_%>n_%THEN
30411H=(1<<16)/n_%*U_%:n_%=(1<<16)/H*(1<<16):z%!0=n_%:z%!8=(1<<16)
30412ELSE:H=(1<<16)/n_%*U_%:z%!0=(1<<16):z%!8=H
30413ENDIF:IFI_%>cJ%THEN
30414h=(1<<16)/cJ%*I_%:cJ%=(1<<16)/h*(1<<16):z%!4=cJ%:z%!12=(1<<16)
30415ELSE:h=(1<<16)/cJ%*I_%:z%!4=(1<<16):z%!12=h
30416ENDIF:IFZu%THEN
30417PROCI(A%(Ny%),"Scanned",my%,A_%,0,z%)
30418ELSE:PROCI(A%(M_%),"Scanned",my%,A_%,0,z%)
30419ENDIF:ENDPROC
30420DEFPROCXi:cy%=Xl%:IFCu%=-1Ry%=FNYELSERy%=Cu%
30421IFly%<xJ%THEN
30422s`%=!(Iu%+32*`J%):Ty%!0=s`%:Ty%!4=0:Ty%!8=100:Ty%!12=100:ny%=FNZ(W%,18):s_%=FNZ(W%,19):IFbi%<>0ANDny%<>0THENTy%!16=VAL(FNM(W%,22))ELSETy%!16=100
30423IFbi%<>0ANDs_%<>0THENTy%!16+=VAL(FNM(W%,23))*(1<<16)ELSETy%!16+=100*(1<<16)
30424Ty%!20=0:ny%=FNZ(W%,39):s_%=FNZ(W%,40):wJ%=FNZ(W%,41):IFny%Ty%!24=1:z_%=1
30425IFs_%Ty%!24=2:z_%=2
30426IFwJ%Ty%!24=4:z_%=4
30427ny%=FNZ(W%,8):s_%=FNZ(W%,9):wJ%=FNZ(W%,10):lu%=FNZ(W%,11):IFny%Ty%!28=200+200*(1<<16)
30428IFs_%Ty%!28=300+300*(1<<16)
30429IFwJ%Ty%!28=400+400*(1<<16)
30430IFlu%THENTy%!28=C%(Mu%)+F%(Mu%)*(1<<16)
30431Z%!0=0:Z%!4=0:Z%!8=cy%:Z%!12=Ry%:SYS&61dc2,ly%,Ty%,Z%TO,,,eA%,IA%,Dn%:cy%=Z%!8:Ry%=Z%!12
30432ENDIF:IFFNM(W%,28)="Inches"VJ%=TRUEELSEVJ%=FALSE
30433IFVJ%THEN
30434PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000)),7))
30435ELSE:PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000*S)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000*S)),7))
30436ENDIF:ENDPROC
30437DEFPROCx:LOCALJi%,ny%:PROCay:ny%=FNZ(W%,43):IF(Fi%ANDny%<>0)OR(Va%AND(1<<4))ENDPROC
30438IFFNM(W%,28)="Inches"VJ%=TRUEELSEVJ%=FALSE
30439IFVJ%THEN
30440cy%=VAL(FNM(W%,31))*72000:Ry%=VAL(FNM(W%,32))*72000
30441ELSE:cy%=VAL(FNM(W%,31))*72000/S:Ry%=VAL(FNM(W%,32))*72000/S
30442ENDIF:IFcy%>Xl%cy%=Xl%
30443IFcy%<ml%cy%=ml%
30444IFRy%>Cu%ANDCu%<>-1Ry%=Cu%
30445IFRy%<tl%Ry%=tl%
30446IFly%<xJ%THEN
30447s`%=!(Iu%+32*`J%):Ty%!0=s`%:Ty%!4=0:Ty%!8=100:Ty%!12=100:ny%=FNZ(W%,18):s_%=FNZ(W%,19):IFbi%<>0ANDny%<>0THENTy%!16=VAL(FNM(W%,22))ELSETy%!16=100
30448IFbi%<>0ANDs_%<>0THENTy%!16+=VAL(FNM(W%,23))*(1<<16)ELSETy%!16+=100*(1<<16)
30449Ty%!20=0:ny%=FNZ(W%,39):s_%=FNZ(W%,40):wJ%=FNZ(W%,41):IFny%Ty%!24=1:z_%=1
30450IFs_%Ty%!24=2:z_%=2
30451IFwJ%Ty%!24=4:z_%=4
30452ny%=FNZ(W%,8):s_%=FNZ(W%,9):wJ%=FNZ(W%,10):lu%=FNZ(W%,11):IFny%Ty%!28=200+200*(1<<16)
30453IFs_%Ty%!28=300+300*(1<<16)
30454IFwJ%Ty%!28=400+400*(1<<16)
30455IFlu%THENTy%!28=C%(Mu%)+F%(Mu%)*(1<<16)
30456Z%!0=0:Z%!4=0:Z%!8=cy%:Z%!12=Ry%:SYS&61dc2,ly%,Ty%,Z%TO,,,eA%,IA%,Dn%:cy%=Z%!8:Ry%=Z%!12
30457ENDIF:IFVJ%THEN
30458PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000)),7))
30459ELSE:PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000*S)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000*S)),7))
30460ENDIF:ENDPROC
30461DEFPROC`y:IFly%>=xJ%THEN
30462c%!44=16:c%!48=16:c%!52=-240:c%!56=-240
30463ELSE:CASEz_%OF
30464WHEN1:c%!44=-240:c%!48=-240:c%!52=16:c%!56=16
30465WHEN2:c%!48=-240:c%!52=-240:c%!56=&aaaaaa10:c%!60=&aaaaaa10:c%!64=&55555510:c%!68=&55555510:c%!72=16:c%!76=16
30466WHEN4:c%!44=-240:c%!48=-240:c%!52=&eeeeee10:c%!56=&eeeeee10:c%!60=&dddddd10:c%!64=&dddddd10:c%!68=&cccccc10:c%!72=&cccccc10:c%!76=&bbbbbb10:c%!80=&bbbbbb10:c%!84=&aaaaaa10:c%!88=&aaaaaa10:c%!92=&99999910:c%!96=&99999910:c%!100=&88888810
30467c%!104=&88888810:c%!108=&77777710:c%!112=&77777710:c%!116=&66666610:c%!120=&66666610:c%!124=&55555510:c%!128=&55555510:c%!132=&44444410:c%!136=&44444410:c%!140=&33333310:c%!144=&33333310:c%!148=&22222210:c%!152=&22222210:c%!156=&11111110
30468c%!160=&11111110:c%!164=16:c%!168=16
30469ENDCASE
30470ENDIF:ENDPROC
30471DEFPROCpJ:LOCALSa%,q%:SYS&41dc3,ly%TO,Sa%:FORq%=0TOce%-1:IF!Sa%=!(Iu%+32*q%)THEN
30472PROCV(fi%,`J%+1):`J%=q%:PROCK(fi%,`J%+1):PROCA(W%,3,F$(`J%))
30473ENDIF:NEXT:ENDPROC
30474DEFPROCz_:LOCALSa%,q%,Tl%:IFly%>=xJ%THEN
30475SYS"XScan_PollDPI"TOTl%:CASETl%OF
30476WHEN2:PROCS(W%,8,1)
30477WHEN3:PROCS(W%,9,1)
30478WHEN4:PROCS(W%,10,1)
30479OTHERWISEPROCS(W%,11,1)
30480ENDCASE:PROCA(W%,12,STR$(Tl%*100)):PROCA(W%,13,STR$(Tl%*100))
30481ELSE:SYS&41dc3,ly%TO,Sa%:CASESa%!28OF
30482WHEN200+200*(1<<16):PROCS(W%,8,1)
30483WHEN300+300*(1<<16):PROCS(W%,9,1)
30484WHEN400+400*(1<<16):PROCS(W%,10,1)
30485OTHERWISE:FORq%=0TOkB%-1:IF(Sa%!28MOD(1<<16))=C%(q%)AND(Sa%!28DIV(1<<16))=F%(q%)THEN
30486PROCV(Bn%,Mu%+1):Mu%=q%:PROCK(Bn%,Mu%+1):PROCS(W%,11,1):PROCA(W%,12,STR$(C%(q%))):PROCA(W%,13,STR$(F%(q%)))
30487ENDIF:NEXT
30488ENDCASE
30489ENDIF:PROCay:ENDPROC
30490DEFPROCgy:S`%=FALSE:IFWy%OR!ATHEN
30491S`%=TRUE
30492ELSE:SWAP`%,M_%:K%=FNA(1,M_%)
30493ENDIF:ENDPROC
30494DEFPROCVa:LOCALny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%,t$,g$,b$,o$,f$,w$,s$:ny%=FNZ(W%,17):s_%=FNZ(W%,18):wJ%=FNZ(W%,20):lu%=FNZ(W%,21):tO%=FNZ(W%,19):gO%=FNZ(W%,8):bO%=FNZ(W%,9):Qo%=FNZ(W%,10):vO%=FNZ(W%,11):Hk%=FNZ(W%,36):Vk%=FNZ(W%,38):Dk%=FNZ(W%,39)
30495Lk%=FNZ(W%,40):Xk%=FNZ(W%,41):t$=FNM(W%,22):g$=FNM(W%,23):b$=FNM(W%,12):o$=FNM(W%,13):f$=FNM(W%,28):w$=FNM(W%,31):s$=FNM(W%,32):F%=OPENOUT("<OptclPro$Dir>.ScDefaults"):PRINT#F%,ly%,`J%,Mu%:PRINT#F%,ny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%
30496PRINT#F%,t$,g$,b$,o$,f$,w$,s$:CLOSE#F%:ENDPROC
30497DEFPROCKa:LOCALny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%,t$,g$,b$,o$,f$,w$,s$:F%=OPENIN("<OptclPro$Dir>.ScDefaults"):INPUT#F%,ly%,`J%,Mu%:INPUT#F%,ny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%:INPUT#F%,t$,g$,b$,o$,f$,w$,s$:CLOSE#F%:PROCS(W%,17,ny%)
30498PROCS(W%,18,s_%):PROCS(W%,20,wJ%):PROCS(W%,21,lu%):PROCS(W%,19,tO%):PROCS(W%,8,gO%):PROCS(W%,9,bO%):PROCS(W%,10,Qo%):PROCS(W%,11,vO%):PROCS(W%,36,Hk%):PROCS(W%,38,Vk%):PROCS(W%,39,Dk%):PROCS(W%,40,Lk%):PROCS(W%,41,Xk%):PROCA(W%,22,t$):PROCA(W%,23,g$):PROCA(W%,12,b$):PROCA(W%,13,o$):PROCA(W%,28,f$)
30499PROCA(W%,31,w$):PROCA(W%,32,s$):cy%=VAL(w$):Ry%=VAL(s$):ENDPROC
30500DEFFNV:LOCALin%:SYS&400ec,-1,-1TO,,in%:=in%
30501DEFPROCou:LOCALo%,Oy%,Gy%,dy%,Ly%,AJ%,ZJ%,ny%,s_%,wJ%,lu%:Oy%=1<<30:dy%=0:Gy%=1<<30:Ly%=0:IFAy%>=0THEN
30502FORo%=0TOAy%:Q%!(o%*16)=Q%!(o%*16)-2:IFQ%!(o%*16)<0THENQ%!(o%*16)=0
30503IFQ%!(o%*16)<Oy%Oy%=Q%!(o%*16)
30504Q%!(o%*16+4)=Q%!(o%*16+4)-2:IFQ%!(o%*16+4)<0THENQ%!(o%*16+4)=0
30505IFQ%!(o%*16+4)<Gy%Gy%=Q%!(o%*16+4)
30506Q%!(o%*16+8)=Q%!(o%*16+8)+4:IFQ%!(o%*16+8)>dy%dy%=Q%!(o%*16+8)
30507Q%!(o%*16+12)=Q%!(o%*16+12)+2:IFQ%!(o%*16+12)>Ly%Ly%=Q%!(o%*16+12)
30508NEXT
30509ELSE:Oy%=0:Gy%=0:dy%=n%:Ly%=yy%
30510ENDIF:ny%=FNZ(W%,8):s_%=FNZ(W%,9):wJ%=FNZ(W%,10):lu%=FNZ(W%,11):IFny%AJ%=200:ZJ%=200
30511IFs_%AJ%=300:ZJ%=300
30512IFwJ%AJ%=400:ZJ%=400
30513IFlu%AJ%=C%(Mu%):ZJ%=F%(Mu%)
30514IFZJ%=0ORAJ%=0THENZJ%=100:AJ%=100
30515IFAy%>=0THEN
30516FORo%=0TOAy%:Q%!(o%*16)=(Q%!(o%*16)-Oy%)*AJ%/nu%:Q%!(o%*16+4)=(Q%!(o%*16+4)-Gy%)*ZJ%/du%:Q%!(o%*16+8)=(Q%!(o%*16+8)-Oy%)*AJ%/nu%:Q%!(o%*16+12)=(Q%!(o%*16+12)-Gy%)*ZJ%/du%:NEXT
30517ENDIF:IFW_%>=0THEN
30518FORo%=0TOW_%:f%!(o%*16)=(f%!(o%*16)-Oy%)*AJ%/nu%:f%!(o%*16+4)=(f%!(o%*16+4)-Gy%)*ZJ%/du%:f%!(o%*16+8)=(f%!(o%*16+8)-Oy%)*AJ%/nu%:f%!(o%*16+12)=(f%!(o%*16+12)-Gy%)*ZJ%/du%:NEXT
30519ENDIF:Oy%=Oy%*72000/nu%+oa%:Gy%=Gy%*72000/du%+la%:dy%=dy%*72000/nu%+oa%:Ly%=Ly%*72000/du%+la%:cy%=dy%-Oy%:Ry%=Ly%-Gy%:Kl%=Oy%:Si%=Gy%:IFcy%+Kl%>Xl%cy%=Xl%-Kl%
30520IFKl%<ml%cy%-=ml%-Kl%:Kl%=ml%
30521IFRy%+Si%>Cu%ANDCu%<>-1Ry%=Cu%-Si%
30522IFRy%<tl%Ry%-=tl%-Si%:Si%=tl%
30523ENDPROC
30524DEFPROCay:LOCALz_%,AJ%,ZJ%,ny%,s_%,wJ%,lu%,bu%,Ji%,P_%,Ve%,xZ%:IF(Va%AND(1<<4))ENDPROC
30525z_%=1:AJ%=100:ZJ%=100:ny%=FNZ(W%,39):s_%=FNZ(W%,40):wJ%=FNZ(W%,41):IFny%z_%=1
30526IFs_%z_%=2
30527IFwJ%z_%=4
30528ny%=FNZ(W%,8):s_%=FNZ(W%,9):wJ%=FNZ(W%,10):lu%=FNZ(W%,11):IFny%AJ%=200:ZJ%=200
30529IFs_%AJ%=300:ZJ%=300
30530IFwJ%AJ%=400:ZJ%=400
30531IFlu%AJ%=VAL(FNM(W%,12)):ZJ%=VAL(FNM(W%,13))
30532IFZJ%=0ORAJ%=0THENZJ%=100:AJ%=100
30533Ji%=FNV:ny%=FNZ(W%,43):IFFi%ANDny%<>0THEN
30534Oy%=1<<30:dy%=0:Gy%=1<<30:Ly%=0:IFAy%>=0THEN
30535FORo%=0TOAy%:IFQ%!(o%*16)<Oy%Oy%=Q%!(o%*16)
30536IFQ%!(o%*16+4)<Gy%Gy%=Q%!(o%*16+4)
30537IFQ%!(o%*16+8)>dy%dy%=Q%!(o%*16+8)
30538IFQ%!(o%*16+12)>Ly%Ly%=Q%!(o%*16+12)
30539NEXT
30540ELSE:Oy%=0:Gy%=0:dy%=n%:Ly%=yy%
30541ENDIF:Oy%=Oy%*72000/nu%+oa%:Gy%=Gy%*72000/du%+la%:dy%=dy%*72000/nu%+oa%:Ly%=Ly%*72000/du%+la%:cy%=dy%-Oy%:Ry%=Ly%-Gy%:IFcy%+Kl%>Xl%cy%=Xl%-Kl%
30542IFKl%<ml%cy%-=ml%-Kl%:Kl%=ml%
30543IFRy%+Si%>Cu%ANDCu%<>-1Ry%=Cu%-Si%
30544IFRy%<tl%Ry%-=tl%-Si%:Si%=tl%
30545ELSE:IFFNM(W%,28)="Inches"VJ%=TRUEELSEVJ%=FALSE
30546IFVJ%THEN
30547cy%=VAL(FNM(W%,31))*72000:Ry%=VAL(FNM(W%,32))*72000
30548ELSE:cy%=VAL(FNM(W%,31))*72000/S:Ry%=VAL(FNM(W%,32))*72000/S
30549ENDIF:IFcy%>Xl%cy%=Xl%
30550IFcy%<ml%cy%=ml%
30551IFRy%>Cu%ANDCu%<>-1Ry%=Cu%
30552IFRy%<tl%Ry%=tl%
30553ENDIF:bu%=cy%*AJ%/72000:IFz_%>1ORBo%THENP_%=(Ji%-un%)/((4+bu%*z_%/8)+(4+bu%/8))-4ELSEP_%=(Ji%-un%)/(4+bu%/8)-4
30554IFP_%<1P_%=0
30555P_%=P_%*72000/ZJ%:IFRy%>P_%Ve%=P_%ELSEVe%=Ry%
30556IFRy%=0ENDPROC
30557xZ%=(Ve%/Ry%)*100:PROCA(W%,45,STR$(xZ%)):ENDPROC
30558DEFPROCvu:Ji%=FNV:IFJi%<>Zr%Zr%=Ji%:PROCx
30559ENDPROC
30560DEFPROCua:LOCALq%,nO%,uo%,c_%,r%:Gn%=0:SYS&61dc0TOXZ%,Gn%,GP%,iP%;wy%:IF(wy%AND1)ORGn%=0pl%=256:ENDPROC
30561IFGn%>FB%Gn%=FB%
30562PROCF(W%,4):PROCF(W%,5):Z$="Scanners:":FORq%=0TOGn%-1:J$(q%)=FNF(!(XZ%+q%*4)):Z$+="|"+J$(q%):NEXT:IFxJ%<>256Z$+="|Watford hand held MkII":xJ%=Gn%
30563PROCcy(qn%,Z$,HA%):IFly%>Gn%-1ly%=0
30564PROCB(qn%,ly%+1):SYS&41dc1,ly%TO,yB%,Iu%,Un%,_u%:PROCA(W%,2,FNF(yB%)):PROCK_:PROCX_:oo%=TRUE:ENDPROC
30565DEFPROCCu:Z$="Scanners:|Watford hand held MkII":PROCcy(qn%,Z$,HA%):ly%=0:PROCB(qn%,ly%+1):PROCA(W%,2,"Watford hand held MkII"):ml%=0:tl%=0:Xl%=4.16*72000:Cu%=-1:PROCK_:oo%=TRUE:ENDPROC
30566DEFPROCii:yo%=TRUE:PROCz_:c_%=0:Z$="Modes:|Monochrome":ce%=1:PROCcy(fi%,Z$,qZ%):PROCB(fi%,1):PROCA(W%,3,"Monochrome"):PROCA(W%,2,"Watford hand held MkII"):PROCZ(W%,17):PROCZ(W%,18):PROCZ(W%,19):PROCZ(W%,20):PROCZ(W%,21):PROCZ(W%,22):PROCZ(W%,47):PROCZ(W%,48):PROCZ(W%,23):PROCZ(W%,24):PROCZ(W%,49)
30567PROCZ(W%,50):PROCZ(W%,8):PROCZ(W%,9):PROCZ(W%,10):PROCZ(W%,11):PROCZ(W%,12):PROCZ(W%,13):PROCZ(W%,14):PROCZ(W%,43):PROCZ(W%,38):PROCF(W%,39):PROCZ(W%,40):PROCZ(W%,41):ml%=0:tl%=0:Xl%=4.16*72000:Cu%=-1:IFto%THEN
30568cy%=Xl%:IFCu%=-1Ry%=FNYELSERy%=Cu%
30569PROCay:IFFNM(W%,28)="Inches"VJ%=TRUEELSEVJ%=FALSE
30570IFVJ%THEN
30571PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000)),7))
30572ELSE:PROCA(W%,31,LEFT$(STR$(FNW(cy%/72000*S)),7)):PROCA(W%,32,LEFT$(STR$(FNW(Ry%/72000*S)),7))
30573ENDIF:PROCx
30574ENDIF:Fk%=FALSE:WB%=FALSE:bi%=FALSE:rZ%=FALSE:Ik%=FALSE:li%=FALSE:Xo%=FALSE:_u%=1:ENDPROC
30575DEFPROCCi(S$):F%=OPENOUT("<OptclPro$Dir>.ScLocation"):PRINT#F%,S$:CLOSE#F%:K$=S$:PROCX("Message from Optical","!Scanner application path has been changed to "+K$+"."):ENDPROC
30576DEFFNh:LOCALS$:F%=OPENIN("<OptclPro$Dir>.ScLocation"):INPUT#F%,S$:CLOSE#F%:=S$
30577DEFPROCWu:IFK$=""ENDPROC
30578SYS&406c0:SYS&20005,"Set Optical$ModPres 1":SYS&20005,"RMEnsure SAM 0.00 Set Optical$ModPres 0":SYS35,"Optical$ModPres",M%,10,0:SYS&20005,"Unset Optical$ModPres":IF?M%=ASC("0")THENSYS&2001e,1,K$+".Drivers.!Sam"TOHa%;wy%:IFwy%AND1THENPROCC("Optical",FNF(Ha%+4)):SYS&406c2:ENDPROC
30579SYS&20005,"Set Optical$ModPres 1":SYS&20005,"RMEnsure ScannerSCSI 0.00 Set Optical$ModPres 0":SYS35,"Optical$ModPres",M%,10,0:SYS&20005,"Unset Optical$ModPres":IF?M%=ASC("0")THENSYS&20005,"Run "+K$+".RunInst"TOHa%;wy%:IFwy%AND1THENPROCC("scanner interface",FNF(Ha%+4))
30580SYS&406c1:ENDPROC
30581DEFPROCXl:IFFNU("Warning from Optical","This action will reset the !Scanner application path. Click on OK to reset.")=FALSEENDPROC
30582F%=OPENOUT("<OptclPro$Dir>.ScLocation"):PRINT#F%,"":CLOSE#F%:K$="":ENDPROC
30583DEFPROCsl:CASEFNP(0)OF
30584WHEN1:SYS&836c3
30585WHEN2:PROCIy
30586ENDCASE:ENDPROC
30587DEFPROCIy:LOCALbZ%:bZ%=i_%:PROCH:i_%=bZ%:Ku%=FNS(iy%):PROCBJ:!N_=A%(M_%):!v_=Z%(M_%):!Iu=ci%:!qu=M_%:!dl=al%:!ju=jn%:!ku=Z:IFFi%ANDAy%>=0THEN
30588Oy%=1<<30:dy%=0:Gy%=1<<30:Ly%=0:FORo%=0TOAy%:IFQ%!(o%*16)<Oy%Oy%=Q%!(o%*16)
30589IFQ%!(o%*16+4)<Gy%Gy%=Q%!(o%*16+4)
30590IFQ%!(o%*16+8)>dy%dy%=Q%!(o%*16+8)
30591IFQ%!(o%*16+12)>Ly%Ly%=Q%!(o%*16+12)
30592NEXT:Oy%=Oy%*72000/nu%+oa%:Gy%=Gy%*72000/du%+la%:dy%=dy%*72000/nu%+oa%:Ly%=Ly%*72000/du%+la%:Z!0=1:Z!8=Oy%:Z!12=dy%:Z!16=Gy%:Z!20=Ly%
30593ELSE:Z!0=0:Z!8=0:Z!12=0:Z!16=0:Z!20=0
30594ENDIF:Z!4=0:Z!24=PJ:Z!28=NJ:Z!32=s_:Z!36=__:Z!40=x_:Z!44=FJ:Z!48=b_:Z!52=0:Z!56=0:!Qu=Z%:SYS&836c4,Z:ENDPROC
30595DEFPROCYu:LOCALTp%,sp%:IFv!4=0ORv!8=0PROCC("Optical","The image could not be scanned properly."):PROCH:i_%=FALSE:ENDPROC
30596!xy=0:!i_=0:!ca=0:!v=0:!p_=0:!ga=0:!su=0:IF!wJ=2THENPROCC("Optical","There is not enough available memory to scan the image."):PROCH:i_%=FALSE:ENDPROC
30597IF!wJ=1ANDZ!4=0THENPROCC("Optical","There is not enough available memory to scan the image."):PROCH:i_%=FALSE:ENDPROC
30598A%(M_%)=!N_:nn%!(M_%*4)=!N_:Z%(M_%)=!v_:IFZ!4=0THEN
30599SYS46,256+13,A%(M_%),M%,1024,1:M$=FNF(M%):SYS46,256+40,A%(M_%),M$TO,,,n%,t%,,Ju%:SYS46,24+256,A%(M_%),M$TO,,c%
30600ELSE:K%=FNA(!Cl,M_%):SYS46,24+256,A%(M_%),"Scanned"TO,,c%:PROC`u:SYS46,256+40,A%(M_%),"Scanned"TO,,,n%,t%,,Ju%
30601ENDIF:Uy%=c%!16+1:yy%=c%!20+1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=Z%(M_%)+Ru%:K%=FNA(qu%+8,M_%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to store this image. Need "+STR$((qu%+8)DIV1024)+"K."):PROCH:i_%=FALSE:ENDPROC
30602!A%(M_%)=Z%(M_%):Al%=v!16:Ll%=v!20:IFAy%>=0THEN
30603FORo%=0TOAy%:Q%!(o%*16)=(Q%!(o%*16)-Oy%)*Al%/nu%:Q%!(o%*16+4)=(Q%!(o%*16+4)-Gy%)*Ll%/du%:Q%!(o%*16+8)=(Q%!(o%*16+8)-Oy%)*Al%/nu%:Q%!(o%*16+12)=(Q%!(o%*16+12)-Gy%)*Ll%/du%:NEXT
30604ENDIF:IFW_%>=0THEN
30605FORo%=0TOW_%:f%!(o%*16)=(f%!(o%*16)-Oy%)*Al%/nu%:f%!(o%*16+4)=(f%!(o%*16+4)-Gy%)*Ll%/du%:f%!(o%*16+8)=(f%!(o%*16+8)-Oy%)*Al%/nu%:f%!(o%*16+12)=(f%!(o%*16+12)-Gy%)*Ll%/du%:NEXT
30606ENDIF:nu%=Al%:du%=Ll%:oa%=Z!8:la%=Z!16:V=0:Fi%=TRUE:PROCgy:IFZ!4=0PROCy_ELSEPROCXy
30607ENDPROC
30608DEFPROC`u:LOCAL_y%,yk%:yk%=p_!8:IFyk%>16ENDPROC
30609FOR_y%=0TOyk%-1:c%!(44+_y%*8)=z_!(_y%*4):c%!(44+_y%*8+4)=z_!(_y%*4):NEXT:ENDPROC
30610DEFPROCWi:LOCALH$:H$=STR$(USR(Bu)):IFRIGHT$(H$,1)="0"THENH$=H$+" (Site)"ELSEH$=H$+" (Single user)"
30611PROCA(Info_Window%,12,FNM(Info_Window%,12)+H$):ENDPROC
30612DEFPROCIl(I%,j%):CASEj%OF
30613WHEN13,18:PROCS(`_%,0,1):PROCM(k%):PROCM(`_%):PROCWy:PROCS(`_%,0,0)
30614OTHERWISEPROCv(j%)
30615ENDCASE:ENDPROC
30616DEFPROCv(j%):LOCALDp%,Lp%,Hp%,Xp%:PROCc:SYS&600d4,-1:CASEj%OF
30617WHEN27:OSCLI("FX21"):IFPl%THEN
30618SYS&400d0,0:PROCY(""):_J%=0:mu%=0:Ol%=0:Pl%=0:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:SYS&400c9,,M%TOd%:L%=M%!4-M%!20:X%=M%!16-M%!24:PROCW(3,11):WHILEd%:PROCW(3,11):LINEVy%+L%,X%-Hy%,by%+L%,X%-ty%:SYS&400ca,,M%TOd%:ENDWHILE
30619ENDIF:IFWy%<>0OR!A<>0ORIy%THEN!`_=TRUE:PROCHy:ENDPROC
30620PROCM(SaveText_Window%):PROCM(SaveF_Window%):zy%=FALSE:IFFNS(zu%)THEN
30621PROCM(zu%):PROCm:IFGa%SYS&400d0,,0:Ga%=FALSE
30622zy%=TRUE
30623ENDIF:IFzy%ENDPROC
30624IFFNS(w%)THEN
30625xy%=P%:P%=-1:PROCd:P%=xy%:jy%=FALSE:PROCO(P%):PROCM(w%):PROCM(V_%):zy%=TRUE
30626ENDIF:IFzy%ENDPROC
30627IFDy%PROCy
30628SYS&400dc,j%
30629WHEN13:IFY%=-3THEN
30630CASELZ%OF
30631WHEN0:ma%=TRUE
30632WHEN1
30633ENDCASE
30634ELSE:SYS&400dc,j%
30635ENDIF
30636WHEN385:IFFNS(k%)=FALSEANDFNS(H_%)=FALSEANDFNS(Q_%)=FALSEENDPROC
30637SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:PROCT(Zoom_Window%,s%,v%)
30638WHEN417:IFFNS(k%)THEN
30639PROCB(f_%,9):IFUu%PROCM(`_%):Uu%=FALSEELSEUu%=TRUE:PROCw(k%)
30640PROCAu(`_%)
30641ENDIF
30642WHEN386:IFyl%THEN
30643Ku%=FNS(iy%):PROCIy
30644ELSE:PROCl
30645ENDIF
30646WHEN387
30647WHEN403
30648WHEN419
30649WHEN435
30650WHEN388:IFFNS(e%)PROChyELSEPROCBy
30651WHEN389:PROCA(g%,16,"No letter marked"):PROCZ(g%,12):PROCD(g%):PROC_
30652WHEN405:IFa_%=FALSEORWy%<>0OR!A<>0ORIy%ENDPROC
30653IFDy%PROCyELSEPROCTy
30654WHEN421:PROCD(sJ%)
30655WHEN390:IFCy%>=0PROCk_
30656WHEN391:PROCz
30657WHEN392
30658WHEN393:PROCI_:PROCD(By%)
30659WHEN409:PROCnJ
30660WHEN507:PROCR_:PROCD(R`%):PROCR_
30661OTHERWISESYS&400dc,j%
30662ENDCASE:ENDPROC
30663DEFPROCRi(b%,I%):CASELZ%OF
30664WHEN0:CASEI%OF
30665WHEN0:ma%=TRUE
30666WHEN1
30667ENDCASE
30668WHEN1
30669ENDCASE:ENDPROC
30670DEFPROCai:LOCALme%,JO%,Fe%,Ce%,Au%,gu%,J,G,B,P,ia%,vn%:SYS&400d5,,qa%,Z%,M%:F$=$M%:IFRIGHT$(F$,10)=".(Regular)"F$=LEFT$(F$,LEN(F$)-10)
30671SYS&60081,,F$,60*16,60*16,0,0TOOJ%;B_%:IFB_%AND1THEN
30672Wy$=F$:Du%=!(qa%+28+Z%!0*24+4):Du%+=28:Q`%=0:tr%=!(Du%+Q`%*24)AND(1<<7):WHILEtr%=0:Q`%+=1:tr%=!(Du%+Q`%*24)AND(1<<7):ENDWHILE:Q`%+=1:BJ%=0:WHILEBJ%<Q`%:Z%!4=BJ%:Z%!8=-1:SYS&600d5,,qa%,Z%,M%TO;B_%:L$=$M%
30673IF(INSTR(L$,"Medium")<>0ANDINSTR(L$,"Medium.")=0)OR(INSTR(L$,"Book")<>0ANDINSTR(L$,"Book.")=0)OR(INSTR(L$,"Standard")<>0ANDINSTR(L$,"Standard.")=0)OR(INSTR(L$,"Normal")<>0ANDINSTR(L$,"Normal.")=0)THENF$=L$
30674BJ%+=1:ENDWHILE:IFF$=Wy$THEN
30675Z%!4=0:Z%!8=-1:SYS&400d5,,qa%,Z%,M%:F$=$M%
30676ENDIF:IFRIGHT$(F$,10)=".(Regular)"F$=LEFT$(F$,LEN(F$)-10)
30677ENDIF:SYS&60081,,F$,60*16,60*16,0,0TOOJ%;B_%:IFB_%AND1THENPROCC("Optical",FNF(OJ%+4)):ENDPROC
30678CASEJk%OF
30679WHEN1:PROCRu(F$,OJ%)
30680WHEN2:SYS&60082,OJ%:PROCky(F$):PROCpy(i%):PROCFy(i%)
30681ENDCASE:ENDPROC
30682DEFPROCRu(F$,OJ%):PROCA(fy%,1,F$):PROCA(fy%,4,LEFT$(F$,39)):FORO%=0TO255:fl%?O%=ie%?O%:NEXT:SYS&406c0:FORO%=33TO255:SYS&406c4,(O%-33)/222*100:IFO%<>127THEN
30683SYS&6008e,OJ%,O%,16TO,me%,JO%,Fe%,Ce%;B_%:IF(B_%AND1)ORFe%-me%<=0ORCe%-JO%<=0THENfl%?O%+=2
30684ENDIF:NEXT:PROCi_:SYS&406c1:IFCy%>=0PROCF(fy%,6)ELSEPROCZ(fy%,6)
30685IFFNS(fy%)PROCJ(fy%)ELSEPROCD(fy%)
30686PROCG(fy%,18,0):ENDPROC
30687DEFPROCLl(b%,I%):IFb%=1ANDI%=19I%=16ELSEIFb%=1ANDI%=16I%=19
30688CASEI%OF
30689WHEN2:PROCkJ
30690WHEN8:PROCj(65,90):PROCJ(fy%)
30691WHEN9:PROCj(97,122):PROCJ(fy%)
30692WHEN10:PROCj(48,57):PROCJ(fy%)
30693WHEN11:PROCj(33,47):PROCj(58,64):PROCj(91,96):PROCj(123,126):PROCJ(fy%)
30694WHEN12:PROCj(127,191):PROCJ(fy%)
30695WHEN7:PROCj(192,255):PROCJ(fy%)
30696WHEN6:IFCy%>=0THEN
30697PROCF(fy%,6):PROCji:PROCT(Or%,y%,h%)
30698ELSE:PROCZ(fy%,6)
30699ENDIF
30700WHEN17:PROCi_
30701WHEN19:PROCi(fy%,14,999,1)
30702WHEN16:PROCh(fy%,14,1,1)
30703WHEN13:PROCM(fy%)
30704WHEN20:Jk%=1:PROCT(qa%,y%,h%)
30705OTHERWISE:PROCeu
30706ENDCASE:ENDPROC
30707DEFPROCi_:LOCALOo%:Oo%=VAL(FNM(fy%,14)):SYS&60081,,F$,14*16*Oo%/100,14*16,0,0TOqA%;B_%:IFB_%AND1THENPROCX("Error from Optical","Insufficient font cache memory allocated. Increase size in task manager and then retry."):ENDPROC
30708Z%!0=fy%:Z%!4=18:SYS&400ce,,Z%:Z%!8=qA%*&1000000+(1<<6):Z%!12=&ff000000+(1<<6):SYS&400cd,,Z%:SYS&400d3,,Z%:SYS&600d2,Z%!0,Z%!4,Z%!8,Z%!12,Z%!16,Z%!20:ENDPROC
30709DEFPROCji:PROCZi:ENDPROC
30710DEFPROCZi:Z$="Fonts":FORSy%=0TOCy%:Z$+=","+A$(Sy%):NEXT:PROCyy(Or%,Z$):ENDPROC
30711DEFPROCWa:py%=FNP(0)-1:PROCA(fy%,4,A$(py%)):ENDPROC
30712DEFPROCeu:Z%!0=fy%:SYS&400e0,,Z%:I`%=Z%!4+4:V`%=Z%!8+356-8:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:IFs%-I`%>31ANDV`%-v%>31THENO%=30+INT((s%-I`%-16)/48)*10+INT((V`%-v%-28)/32)ELSEENDPROC
30713IFO%=127ORO%<33ORO%>255OR(fl%?O%AND2)ENDPROC
30714CASEb%OF
30715WHEN4:IFfl%?O%=FALSETHENDi%=TRUEELSEDi%=FALSE
30716WHEN1:IFfl%?O%THENDi%=TRUEELSEDi%=FALSE
30717OTHERWISEDi%=FALSE
30718ENDCASE:IFDi%THEN
30719IFfl%?O%THEN
30720fl%?O%=0
30721ELSE:fl%?O%=1
30722ENDIF:PROCW(3,7):Z%!0=fy%:Z%!4=0:Z%!8=-360:Z%!12=1200:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:PROCW(3,7):RECTANGLEFILLL%+28+((O%DIV10)-3)*3*16,X%-40-(O%MOD10)*32,30,-30:SYS&400ca,,Z%TOd%:ENDWHILE
30723ENDIF:ENDPROC
30724DEFPROCj(ro%,oP%):LOCALur%,Fa%:IFb%=4ur%=1ELSEur%=0
30725FORFa%=ro%TOoP%:IF(fl%?Fa%AND2)=FALSEfl%?Fa%=ur%
30726NEXT:ENDPROC
30727DEFPROCGu:Gy%=X%-Z%!32:Ly%=X%-Z%!40:IFGy%>=0ORLy%>=0THEN
30728SYS&400e6,2:RECTANGLEFILLL%,X%-4,1200,-32:RECTANGLEFILLL%,X%-4,22,-360:SYS&400e6,7:_l%=L%+4:Rl%=X%-8:FORq%=3TO25:MOVE_l%+32+(q%-3)*3*16,Rl%:PRINT;q%:NEXT:FORq%=0TO9:MOVE_l%,Rl%-32-q%*32:PRINT;q%:NEXT:SYS&400e6,8:D%=fl%:G%=_l%:H%=Rl%:CALLRl:PROCW(3,7):CALLhi
30729ENDIF:ENDPROC
30730DEFPROCkJ:LOCALjr%,Te%,Au%,gu%:PROCM(fy%):PROCA(g%,16,"No letter marked"):c$=FNM(fy%,4):ae%=FALSE:IFCy%>-1THEN
30731FORSy%=0TOCy%:IFA$(Sy%)=c$ae%=TRUE:i%=Sy%:Sy%=Cy%
30732NEXT
30733ENDIF:IFae%=FALSEPROCCa
30734PROCu:PROCB(gJ%,i%+1):PROCN(sJ%,"Defined characters in '"+A$(i%)+"'"):Oo%=VAL(FNM(fy%,14)):SYS&60081,,F$,(10+Qe%*25)*16*Oo%/100,(10+Qe%*25)*16,0,0TOOJ%;B_%
30735IFB_%AND1THENPROCX("Error from Optical","Insufficient font cache memory allocated. Increase size in task manager and then retry."):ENDPROC
30736PROCq:Z%!0=Nn%:SYS&400cb,,Z%:PROCPy(Nn%,s%-(Z%!12-Z%!4)/2,v%+(Z%!16-Z%!8)/2):lo%=TRUE:ENDPROC
30737DEFPROCxa:lo%=FALSE:LOCALjr%,Te%,Au%,gu%,wp%,OO%,UB%,QJ%,Tu%:SYS&40084,OJ%TO,me%,JO%,Fe%,Ce%:SYS&406c0:SYS53,-1,5TO,,Gu%:Gu%=1<<Gu%:OO%=0:UB%=0:FORO%=33TO126:SYS&4008e,OJ%,O%,16TO,JB%,HB%,dB%,rB%:OO%+=dB%-JB%:UB%+=rB%-HB%:NEXT:OO%=OO%/94:UB%=UB%/94:zy%=FALSE:Te%=0:FORO%=33TO255
30738IFfl%?O%=1Te%+=1
30739NEXT:jr%=0:FORO%=33TO255:IFfl%?O%=1ANDO%<>127THEN
30740SYS&406c4,jr%/Te%*100:SYS&4008e,OJ%,O%,16TO,JB%,HB%,dB%,rB%:Au%=(dB%-JB%)/2:gu%=(rB%-HB%)/Gu%:K%=FNA((Au%+2)*(gu%+2)+1024,qJ%)
30741IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to learn the character. Need "+STR$(((Au%+2)*(gu%+2)+256)DIV1024)+"K."):K%=FNA(1,qJ%):SYS&40082,OJ%:zy%=TRUE
30742IFzy%=FALSETHEN
30743!(A%(qJ%))=Z%(qJ%):!(A%(qJ%)+4)=0:!(A%(qJ%)+8)=16:SYStJ%,C`%,A%(qJ%):IFGu%=2THEN
30744SYStJ%,Wk%,A%(qJ%),"Learner",0,Au%,gu%,18
30745ELSE:SYStJ%,Wk%,A%(qJ%),"Learner",0,Au%,gu%,0
30746ENDIF:SYStJ%,FO%,A%(qJ%),"Learner"TO,,fP%:SYS&4008a,OJ%:SYS&40092,0,0,1,0:SYS46,60+256,A%(qJ%),"Learner",0TOJ,G,B,P:SYS&40086,,CHR$(O%),16,-JB%,-HB%:SYS46,J,G,B,P:vJ%=2:PROCfl:PROCA(Nn%,1,CHR$(O%)):PROCSa:!J_=0:!T_=Au%-1:!`y=0:!Q_=gu%-1:K%=FNA(Au%*gu%,J_%):K%=FNA(Au%*gu%,`y%)
30747IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to read the character. Need "+STR$((2*Au%*gu%)DIV1024)+"K."):K%=FNA(1,J_%):zy%=TRUE
30748IFzy%=FALSETHEN
30749SYS46,24+256,A%(qJ%),"Learner"TO,,c%:A%=c%!16+1:G%=A%(J_%):H%=c%+c%!32:CALLA_:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+ci%!(`y%*4):!AJ=Au%:!LJ=gu%:A%=1:B%=Au%-2:C%=0:D%=gu%-1:Tu%=!Y:!Y=1:CALLTJ:!Y=Tu%:QJ%=!(A%(u%)):K%=FNA(12+QJ%*8,u%)
30750IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store this font definition. Need "+STR$((76+QJ%*8+QJ%*64)DIV1024)+"K."):zy%=TRUE
30751K%=FNA(QJ%*64,uu%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store this font definition. Need "+STR$((76+QJ%*8+QJ%*64)DIV1024)+"K."):zy%=TRUE
30752IFzy%=FALSETHEN
30753?(A%(u%)+4+QJ%*8)=O%:?(A%(u%)+5+QJ%*8)=i%+128:Za%=(dB%-JB%)/OO%*39:IFZa%>99Za%=99
30754IFZa%<1Za%=1
30755sa%=(rB%-JO%)/UB%*100*1.2+45:IFsa%>255sa%=255
30756IFsa%<0sa%=0
30757va%=(HB%-JO%)/UB%*100*1.2+55:IFva%>255va%=255
30758IFva%<0va%=0
30759?(A%(u%)+6+QJ%*8)=Za%:?(A%(u%)+7+QJ%*8)=sa%:?(A%(u%)+8+QJ%*8)=va%:nl%=A%(uu%)+QJ%*64:FORXB%=0TO63:nl%?XB%=iO%?XB%:NEXT:!(A%(u%))+=1
30760ENDIF
30761ENDIF
30762ENDIF:jr%+=1
30763ENDIF:IFzy%O%=255:NEXT:PROCM(Nn%):ENDPROC
30764IFINKEY-113O%=255
30765NEXT:PROCA(g%,16,"No letter marked"):PROCM(Nn%):PROCJ(sJ%):PROCJ(N_%):PROC_:PROCp:PROCpy(i%):PROCFy(i%):PROCD(HJ%):SYS&40082,OJ%:SYS&406c4,100:xo%=TRUE:ENDPROC
30766DEFPROCSa:LOCALvn%:Z%!0=Nn%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!0=Nn%:Z%!4=0:SYS&400ce,,Z%:my%=L%+Z%!8+8:A_%=X%+Z%!12+8:n_%=(Z%!16-Z%!8-16)/2:cJ%=(Z%!20-Z%!12-16)/Gu%:IFAu%>n_%THEN
30767H=(1<<16)/n_%*Au%:n_%=(1<<16)/H*(1<<16):z%!0=n_%:z%!8=(1<<16)
30768ELSE:H=(1<<16)/n_%*Au%:z%!0=(1<<16):z%!8=H
30769ENDIF:IFgu%>cJ%THEN
30770h=(1<<16)/cJ%*gu%:cJ%=(1<<16)/h*(1<<16):z%!4=cJ%:z%!12=(1<<16)
30771ELSE:h=(1<<16)/cJ%*gu%:z%!4=(1<<16):z%!12=h
30772ENDIF:PROCI(A%(qJ%),"Learner",my%,A_%,0,z%):ENDPROC
30773DEFPROCfl:SYS46,54+256,A%(qJ%),"Learner":SYS46,Nl%,A%(qJ%),"Learner"TO,,,Au%,gu%:SYS46,45+256,A%(qJ%),"Learner",0:SYS46,45+256,A%(qJ%),"Learner",Au%+1:SYS46,31+256,A%(qJ%),"Learner",0:SYS46,31+256,A%(qJ%),"Learner",gu%+1:SYS46,Nl%,A%(qJ%),"Learner"TO,,,Au%,gu%:ENDPROC
30774DEFPROCCa:IFCy%=KJ%-1THENPROCX("Message from Optical","You can only have a maximum of "+STR$(KJ%)+" fonts."):ENDPROC
30775PROCF(g%,6):PROCF(g%,20):PROCF(g%,21):PROCF(g%,11):IFFNM(g%,16)=""PROCF(g%,12)
30776PROCF(g%,18):PROCF(fy%,6):Cy%+=1:i%=Cy%:A$(i%)=c$:PROCA(g%,6,c$):PROCky(c$):S%(i%)=TRUE:ENDPROC
30777DEFPROCb_:IFmu%OROl%ORPl%ORZl%<>0ENDPROC
30778Z%!0=Y%:SYS&400cb,,Z%:so%=Z%!28:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:SYS&400cf,,Z%:Vy%=Z%!0-L%:Hy%=X%-Z%!4:by%=Vy%:ty%=Hy%:__%=Y%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:SYS&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0
30779SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:mu%=TRUE:ENDPROC
30780DEFPROCPn:LOCALni%,ji%,_i%,qi%,UJ%,x_%:SYS53,-1,4TO,,UJ%:SYS53,-1,5TO,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:ni%=Vy%:ji%=Hy%-x_%*2:_i%=Z%!8-UJ%:qi%=Z%!12+x_%:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:SYS&400c9,,M%TOd%:L%=M%!4-M%!20:X%=M%!16-M%!24:PROCW(3,11):WHILEd%
30781RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,M%TOd%:ENDWHILE:Z%!0=__%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:kn%=FNS(k%):IFkn%PROCSn:ENDPROC
30782SYS&406c0:ni%=ni%/(R%/Na%):_i%=(_i%-L%+2)/(R%/Na%):ji%=(ji%+4)/(V%/Ni%):qi%=(X%-qi%)/(V%/Ni%):ni%=ni%*100/U%:ji%=ji%*100/U%:_i%=_i%*100/U%:qi%=qi%*100/U%:IFni%>_i%SWAPni%,_i%
30783IFji%<qi%SWAPji%,qi%
30784IFni%<0ni%=0
30785IFqi%<0qi%=0
30786IF_i%>(n%-1)*Na%_i%=(n%-1)*Na%
30787IFji%>(t%-1)*Ni%ji%=(t%-1)*Ni%
30788IFni%=_i%ORji%=qi%SYS&406c1:ENDPROC
30789z%!0=1:z%!4=1:z%!8=1:z%!12=1:SYS46,60+256,A%(WJ%),M$,0TOJ,G,B,P:VDU24,ni%;(t%-1)*Ni%-ji%;_i%;(t%-1)*Ni%-qi%;:SYS46,52+256,A%(`%),M$,0,0,0,z%,Hl%:SYS46,J,G,B,P:PROCJ(w_%):SYS&406c1:ENDPROC
30790DEFPROCTi(b%,I%):LOCALZy%,N%,zJ%,y%,h%,bP%,nP%,Sp%,Cp%,wl%,Gu%:PROCG(k%,-1,-1):SYS53,-1,4TO,,wl%:SYS53,-1,5TO,,Gu%:Gu%=1<<Gu%:wl%=1<<wl%:CASED_%OF
30791WHEN1:IFb%AND5THENPROCzl:ENDPROC
30792IFmu%OROl%ORZl%ENDPROC
30793IFINKEY-3Dl%=1ELSEDl%=0
30794Z%!0=k%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:Zy%=-1:zJ%=-1:IFAy%=-1THEN
30795Zy%=-1
30796ELSE:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:A%=USR(cy):IFA%>=0THEN
30797Zy%=A%MOD128:IFDl%=1IF(A%AND128)=FALSETHENZy%=-1:zJ%=FALSE:A%=128
30798IFA%AND128THENDl%=1ELSEDl%=0
30799zJ%=A%DIV256
30800ELSE:Zy%=-1:zJ%=FALSE
30801ENDIF
30802ENDIF:IFZy%=-1ANDDl%=0ANDAy%=bl%VDU7:ENDPROC
30803IFZy%=-1ANDDl%=1ANDW_%=bl%VDU7:ENDPROC
30804IFZy%=-1ge%=TRUE:PROCb_:ENDPROC
30805tu%=Zy%:SYS&400cf,,Z%:y%=Z%!0:h%=Z%!4:__%=k%:Z%!0=__%:SYS&400cb,,Z%:so%=Z%!28:bP%=Z%!4:Sp%=Z%!8:nP%=Z%!12:Cp%=Z%!16:IFzJ%=9ORzJ%=10THEN
30806ty%=X%-h%:by%=y%-L%:CASEzJ%OF
30807WHEN9:Vy%=Q%!(Zy%*16-8)*R%*U%/100-32:Hy%=Q%!(Zy%*16-4)*V%*U%/100
30808WHEN10:Vy%=Q%!(Zy%*16+16)*R%*U%/100+32:Hy%=Q%!(Zy%*16+20)*V%*U%/100
30809ENDCASE:__%=Y%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:SYS&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):LINEVy%+L%,X%-Hy%,L%+by%,X%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:Zl%=A%
30810ELSE:IFDl%=0Vl%=Q%ELSEVl%=f%
30811IFzJ%>0THEN
30812ty%=X%-h%:by%=y%-L%:CASEzJ%OF
30813WHEN1:Vy%=Vl%!(Zy%*16+8)*R%*U%/100:Hy%=Vl%!(Zy%*16+12)*V%*U%/100
30814WHEN3:Vy%=Vl%!(Zy%*16)*R%*U%/100:Hy%=Vl%!(Zy%*16+12)*V%*U%/100
30815WHEN5:Vy%=Vl%!(Zy%*16)*R%*U%/100:Hy%=Vl%!(Zy%*16+4)*V%*U%/100
30816WHEN7:Vy%=Vl%!(Zy%*16+8)*R%*U%/100:Hy%=Vl%!(Zy%*16+4)*V%*U%/100
30817ENDCASE:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:SYS&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:mu%=TRUE
30818ENDIF:IFzJ%=0THEN
30819Vy%=Vl%!(Zy%*16)*R%*U%/100:Hy%=Vl%!(Zy%*16+4)*V%*U%/100:by%=Vl%!(Zy%*16+8)*R%*U%/100:ty%=Vl%!(Zy%*16+12)*V%*U%/100:PROCq:ze%=s%-Vy%-L%:we%=X%-v%-Hy%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:SYS&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000
30820Z%!12=100000:Z%!16=0:SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):RECTANGLEVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:Ol%=TRUE
30821ENDIF
30822ENDIF:ge%=FALSE
30823WHEN2:IFAy%=-1ANDW_%=-1ENDPROC
30824IFb%AND5THENPROCSy:PROCmu:W_%=-1:Ay%=-1:PROCMJ:ENDPROC
30825Z%!0=k%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:A%=USR(cy):IFA%>=0THEN
30826Zy%=A%MOD128:IFA%AND128THENDl%=1ELSEDl%=0
30827zJ%=A%DIV256
30828ELSE:Zy%=-1:zJ%=FALSE
30829ENDIF:IFZy%=-1ORzJ%<>0ENDPROC
30830PROCY(""):_J%=FALSE:IFDl%=0THEN
30831PROC`(Zy%):IFZy%<Ay%PROC`(Zy%+1)
30832IFAy%>Zy%THEN
30833FORN%=Zy%TOAy%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+12)=Q%!(N%*16+28):NEXT
30834ENDIF:Ay%-=1:IFZy%<=Ay%PROC`(Zy%)
30835ELSE:PROCS_(Zy%):IFW_%>Zy%THEN
30836FORN%=Zy%TOW_%-1:f%!(N%*16)=f%!(N%*16+16):f%!(N%*16+8)=f%!(N%*16+24):f%!(N%*16+4)=f%!(N%*16+20):f%!(N%*16+12)=f%!(N%*16+28):NEXT
30837ENDIF:W_%-=1
30838ENDIF
30839WHEN3:IFPl%ENDPROC
30840IFb%AND80THEN
30841gP%=TRUE:PROCdi
30842ENDIF:IFb%AND5THEN
30843PROCly(90)
30844ENDIF
30845ENDCASE:ENDPROC
30846DEFPROCSn:LOCALOy%,dy%,Gy%,Ly%,rk%,ck%:Oy%=Vy%/R%*100/U%:Gy%=Hy%/V%*100/U%:dy%=by%/R%*100/U%:Ly%=ty%/V%*100/U%:IFOy%=dy%ORGy%=Ly%ENDPROC
30847IFUu%PROCw(k%)
30848IFOy%>dy%SWAPOy%,dy%
30849IFGy%>Ly%SWAPGy%,Ly%
30850IF(dy%-Oy%)*R%<12dy%=Oy%+12/R%
30851IF(Ly%-Gy%)*V%<12Ly%=Gy%+12/V%
30852IFOy%<0Oy%=0
30853IFGy%<0Gy%=0
30854IFdy%>n%-1dy%=n%-1
30855IFLy%>t%-1Ly%=t%-1
30856IFDl%=0THEN
30857rk%=FNK(5):ck%=FNR(5):IFdy%-Oy%<rk%dy%=Oy%+rk%
30858IFLy%-Gy%<ck%Ly%=Gy%+ck%
30859IFdy%>n%-1dy%=n%-1:Oy%=dy%-rk%
30860IFLy%>t%-1Ly%=t%-1:Gy%=Ly%-ck%
30861ENDIF:CASEge%OF
30862WHENTRUE:CASEDl%OF
30863WHEN0:Ay%+=1:Q%!(Ay%*16)=Oy%:Q%!(Ay%*16+8)=dy%:Q%!(Ay%*16+4)=Gy%:Q%!(Ay%*16+12)=Ly%:PROC`(Ay%)
30864WHEN1:W_%+=1:f%!(W_%*16)=Oy%:f%!(W_%*16+8)=dy%:f%!(W_%*16+4)=Gy%:f%!(W_%*16+12)=Ly%:PROCS_(W_%)
30865ENDCASE
30866WHENFALSE:PROCY(""):_J%=FALSE:CASEDl%OF
30867WHEN0:PROC`(tu%):IFtu%<Ay%PROC`(tu%+1)
30868Q%!(tu%*16)=Oy%:Q%!(tu%*16+8)=dy%:Q%!(tu%*16+4)=Gy%:Q%!(tu%*16+12)=Ly%:PROC`(tu%):IFtu%<Ay%PROC`(tu%+1)
30869WHEN1:PROCS_(tu%):f%!(tu%*16)=Oy%:f%!(tu%*16+8)=dy%:f%!(tu%*16+4)=Gy%:f%!(tu%*16+12)=Ly%:PROCS_(tu%)
30870ENDCASE
30871ENDCASE:ENDPROC
30872DEFPROCMa:LOCALpu%,wA%:Z%!0=k%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:PROCq:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:A%=USR(cy):IFA%>=0THEN
30873Zy%=A%MOD128:IFA%AND128THENZy%=-1:zJ%=FALSE
30874zJ%=A%DIV256
30875ELSE:Zy%=-1:zJ%=FALSE
30876ENDIF:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:SYS&400c9,,M%TOd%:PROCW(3,11):WHILEd%:PROCW(3,11):LINEVy%+L%,X%-Hy%,by%+L%,X%-ty%:SYS&400ca,,M%TOd%:ENDWHILE:Z%!0=__%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!28=so%:pu%=Zl%MOD256:wA%=Zl%DIV256:CASEwA%OF
30877WHEN9:IFZy%<pu%-1ANDZy%<>-1VDU7
30878IFZy%<pu%-1ORZy%=-1ENDPROC
30879PROCSy:mo%=Q%!(Zy%*16):Kk%=Q%!(Zy%*16+4):pO%=Q%!(Zy%*16+8):`O%=Q%!(Zy%*16+12):IFZy%<Ay%THEN
30880FORN%=Zy%TOAy%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+12)=Q%!(N%*16+28):NEXT
30881ENDIF:FORN%=Ay%TOpu%+1STEP-1:Q%!(N%*16)=Q%!(N%*16-16):Q%!(N%*16+4)=Q%!(N%*16-12):Q%!(N%*16+8)=Q%!(N%*16-8):Q%!(N%*16+12)=Q%!(N%*16-4):NEXT:Q%!(pu%*16)=mo%:Q%!(pu%*16+4)=Kk%:Q%!(pu%*16+8)=pO%:Q%!(pu%*16+12)=`O%:PROCSy
30882WHEN10:IFZy%>pu%VDU7
30883IFZy%>=pu%ORZy%=-1ENDPROC
30884PROCSy:mo%=Q%!(pu%*16+16):Kk%=Q%!(pu%*16+20):pO%=Q%!(pu%*16+24):`O%=Q%!(pu%*16+28):IFpu%+1<Ay%THEN
30885FORN%=pu%+1TOAy%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+12)=Q%!(N%*16+28):NEXT
30886ENDIF:FORN%=Ay%TOZy%+1STEP-1:Q%!(N%*16)=Q%!(N%*16-16):Q%!(N%*16+4)=Q%!(N%*16-12):Q%!(N%*16+8)=Q%!(N%*16-8):Q%!(N%*16+12)=Q%!(N%*16-4):NEXT:Q%!(Zy%*16+16)=mo%:Q%!(Zy%*16+20)=Kk%:Q%!(Zy%*16+24)=pO%:Q%!(Zy%*16+28)=`O%:PROCSy
30887ENDCASE:ENDPROC
30888DEFPROCbl(kJ%):SYS&40743,kJ%,,,0,0:ENDPROC
30889DEFPROCW(D`%,kJ%):LOCALm_%:SYS53,MODE,3TO,,m_%:CASEm_%OF
30890WHEN63,255:CASEkJ%OF
30891WHEN7:kJ%=253
30892WHEN8:kJ%=111
30893WHEN10:kJ%=207
30894WHEN11:kJ%=243
30895ENDCASE:GCOLD`%,kJ%DIV4TINT(kJ%MOD4)*64
30896WHEN65535,-1:CASEkJ%OF
30897WHEN7:GCOLD`%,222,222,222
30898WHEN8:GCOLD`%,255,188,102
30899WHEN10:GCOLD`%,255,51,255
30900WHEN11:GCOLD`%,34,255,255
30901ENDCASE
30902OTHERWISE:SYS&400e6,kJ%+D`%*16
30903ENDCASE:ENDPROC
30904DEFPROCui(b%,I%):LOCALz%:IFb%=1ANDI%=2I%=3ELSEIFb%=1ANDI%=3I%=2
30905CASEI%OF
30906WHEN2:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
30907PROCi(Zoom_Window%,5,999,1)
30908WHEN3:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
30909PROCh(Zoom_Window%,5,1,1)
30910WHEN1:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
30911PROCA(Zoom_Window%,5,"50"):PROCCy
30912WHEN8:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
30913PROCA(Zoom_Window%,5,"100"):PROCCy
30914WHEN11:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
30915PROCA(Zoom_Window%,5,"25"):PROCCy
30916WHEN7:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
30917IFFNS(k%)Z%!0=k%
30918IFFNS(Q_%)Z%!0=Q_%
30919IFFNS(H_%)Z%!0=H_%
30920SYS&400cb,,Z%:ul%=Z%!12-Z%!4:jl%=Z%!16-Z%!8:IFjl%/ul%>(t%*V%)/(n%*R%)THEN
30921z%=ul%/(n%*R%)*100
30922ELSE:z%=jl%/(t%*V%)*100
30923ENDIF:IFz%<1z%=1
30924IFz%>999z%=999
30925PROCA(Zoom_Window%,5,STR$(z%)):PROCCy
30926WHEN6:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
30927SYS53,-1,11TO,,sy%:SYS53,-1,12TO,,ey%:SYS53,-1,4TO,,UJ%:SYS53,-1,5TO,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:ey%-=84/x_%:IF(ey%*x_%-88)/(sy%*UJ%-46)>(t%*R%)/(n%*V%)THEN
30928z%=(sy%*UJ%-46)/(n%*R%)*100
30929ELSE:z%=(ey%*x_%-88)/(t%*V%)*100
30930ENDIF:IFz%<1z%=1
30931IFz%>999z%=999
30932PROCA(Zoom_Window%,5,STR$(z%)):PROCCy
30933WHEN9:yJ%=FALSE:PROCA(Zoom_Window%,5,STR$(Qi%)):PROCCy
30934WHEN10:PROCCy
30935WHEN12:PROCM(Zoom_Window%)
30936ENDCASE:ENDPROC
30937DEFPROCCy:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5))
30938IFVAL(FNM(Zoom_Window%,5))<1PROCA(Zoom_Window%,5,"1")
30939yJ%=TRUE:r`%=TRUE:PROCvJ:r`%=FALSE:IFb%<>1THEN
30940PROCM(Zoom_Window%):PROCb
30941ENDIF:ENDPROC
30942DEFPROChl(I%,j%):IFj%=13THEN
30943PROCS(Y%,10,1):IFyJ%Qi%=VAL(FNM(Zoom_Window%,5))
30944IFVAL(FNM(Zoom_Window%,5))<1PROCA(Zoom_Window%,5,"1")
30945yJ%=TRUE:r`%=TRUE:PROCvJ:r`%=FALSE:PROCM(Zoom_Window%):PROCb:PROCS(Y%,10,0)
30946ELSE:SYS&400dc,j%
30947ENDIF:ENDPROC
30948DEFPROCvJ:LOCALul%,jl%:U%=VAL(FNM(Zoom_Window%,5)):ul%=U%*(n%*R%)/100:jl%=U%*(t%*V%)/100:i`%=TRUE:IFFNS(k%)THEN
30949PROCL(k%,ul%,jl%):PROCN(k%,"Process '"+X$+"' ("+M$+")"):PROCJ(k%):IFUu%PROCw(k%)
30950ENDIF:IFFNS(Q_%)THEN
30951PROCL(Q_%,ul%,jl%):PROCL(w_%,ul%,jl%):PROCN(Q_%,"Original image"):PROCN(w_%,"Processed image"):PROCJ(Q_%):PROCJ(w_%)
30952ENDIF:IFFNS(H_%)THEN
30953PROCL(H_%,ul%+400,jl%+400):PROCN(H_%,"Merge images"):PROCJ(H_%):SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=-ku%*R%/2*U%/100:Ii%=-nJ%*V%/2*U%/100:xu%=(s%-L%+Ri%-R%):su%=t%*V%*U%/100-(X%-v%-Ii%):mi%=xu%:ki%=su%
30954ENDIF:i`%=FALSE:ENDPROC
30955DEFFNJ(q%)=U%*q%/100
30956DEFPROCHa:IFU%=100ENDPROC
30957z%!0=z%!0*U%:z%!8=z%!8*100:z%!4=z%!4*U%:z%!12=z%!12*100:ENDPROC
30958DEFPROCUy:z%!0=1:z%!4=1:z%!8=1:z%!12=1:PROCHa:ENDPROC
30959DEFPROCmi(b%,I%):IFb%>7ENDPROC
30960IFb%=1ANDI%=28I%=21ELSEIFb%=1ANDI%=21I%=28
30961IFb%=1ANDI%=24I%=29ELSEIFb%=1ANDI%=29I%=24
30962CASEI%OF
30963WHEN24:PROCi(By%,22,99,1):PROCKy
30964WHEN29:PROCh(By%,22,1,1):PROCKy
30965WHEN21:PROCi(By%,23,999,1):PROCKy
30966WHEN28:PROCh(By%,23,1,1):PROCKy
30967WHEN3
30968WHEN45:ql%=FNZ(By%,I%)
30969WHEN9:ti%=FNZ(By%,I%)
30970WHEN10:ln%=FNZ(By%,I%)
30971WHEN11:Qu%=FNZ(By%,I%):PROCP(By%,60,NOT(Qu%)):PROCP(By%,61,NOT(Qu%)):Il%=Qu%:PROCS(By%,60,Il%)
30972WHEN60:Il%=FNZ(By%,I%)
30973WHEN6:wn%=FNZ(By%,I%)
30974WHEN35:Kn%=FNZ(By%,I%)
30975WHEN4:Li%=FNZ(By%,I%)
30976WHEN5:hi%=FNZ(By%,I%)
30977WHEN12:Ba%=FNZ(By%,I%)
30978WHEN59:!n=FNZ(By%,I%)
30979WHEN63:Rn%=FNZ(By%,I%)
30980WHEN37:Z%!0=By%:Z%!4=I%:SYS&400ce,,Z%:IF(Z%!24)AND(1<<21)THEN
30981!j=o`%:PROCF(By%,38)
30982ELSE:!j=0:PROCZ(By%,38)
30983ENDIF
30984WHEN32:ui%=FNZ(By%,I%)
30985WHEN34:PROCT(en%,y%,h%)
30986WHEN38:PROCT(cB%,y%,h%)
30987WHEN15:PROCbi:PROCJ(jJ%):IF(b%AND1)=FALSETHEN
30988PROCM(By%):PROCM(IJ%)
30989ENDIF
30990WHEN17:PROCGy(gy%):PROCJ(e%):PROCDa:IFFNS(W%)PROCx
30991IF(b%AND1)=FALSETHEN
30992PROCM(By%):PROCM(IJ%)
30993ENDIF
30994WHEN18:PROCGy(gy%):PROCJ(e%):IFFNS(W%)PROCx
30995PROCI_:IF(b%AND1)=FALSETHEN
30996PROCM(By%):PROCM(IJ%)
30997ENDIF
30998WHEN31:Fl%=-1:DO%=-1:PROCj_:SYS&400d7,jJ%,Z%:PROCP(IJ%,0,TRUE):PROCq:PROCPy(IJ%,s%-128,v%+64):PROCD(jJ%)
30999WHEN41:PROCP(x%,22,TRUE):PROCZy(gy%):PROCT(x%,y%,h%)
31000WHEN46:PROCIa
31001WHEN52:PROCfu
31002WHEN50:tn%=FNZ(By%,I%)
31003WHEN51:wa%=FNZ(By%,I%)
31004WHEN49:Xn%=FNZ(By%,I%)
31005WHEN58:yl%=FNZ(By%,I%)
31006WHEN64:!y=FNZ(By%,I%)
31007ENDCASE:ENDPROC
31008DEFPROCKy:IFZ%(`%)<=10000THENENDPROC
31009!B_=VAL(FNM(By%,22))-1:!ny=VAL(FNM(By%,22))-1:IF!B_<0!B_=0
31010IF!ny<0!ny=0
31011!By=FNK(VAL(FNM(By%,23))):!Ry=FNR(VAL(FNM(By%,23))):IF!By<1!By=1
31012IF!Ry<1!Ry=1
31013!Sa=!By:!ea=!Ry:!ll=!By:ENDPROC
31014DEFPROCWy:ry%=TRUE:PROCz:ry%=FALSE:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:!mJ=0:SYS&406c0:wo%=FALSE:Je%=TIME:_%=0:aa%=0:qO%=a%:IFa_%THENm%=Qy%:Xu%=t_%
31015IFcl%=FALSETHENQy%=0:m%=0:Xu%=0:t_%=0
31016ou%=Qy%:PROCJ(e%):BO%=fJ%:xB%=ru%:nB%=vi%:XO%=Ky%:zO%=JJ%:TO%=r_%:PROCM(w_%):SYS46,54+256,A%(`%),M$:SYS46,Nl%,A%(`%),M$TO,,,n%,t%:IFa_%=FALSETHEN
31017SYS46,45+256,A%(`%),M$,0:SYS46,45+256,A%(`%),M$,0:SYS46,45+256,A%(`%),M$,n%+2:SYS46,45+256,A%(`%),M$,n%+2:SYS46,31+256,A%(`%),M$,0:SYS46,31+256,A%(`%),M$,0:SYS46,31+256,A%(`%),M$,t%+2:SYS46,31+256,A%(`%),M$,t%+2:FORN%=0TOAy%:Q%!(N%*16)+=2:Q%!(N%*16+4)+=2
31018Q%!(N%*16+8)+=2:Q%!(N%*16+12)+=2:NEXT
31019ENDIF:SYS46,Nl%,A%(`%),M$TO,,,n%,t%:SYS46,24+256,A%(`%),M$TO,,c%:Uy%=c%!16:yy%=c%!20:Hu%=c%-A%(`%)+c%!32:a_%=FALSE:IFAy%<0THEN
31020Ay%=0:Q%!0=0:Q%!4=0:Q%!8=n%:Q%!12=yy%
31021ENDIF:!_a=Ur%:PROCKy:!C_=0:!W=0:Gi%=0:!jJ=-1:!F_=0:!aJ=0:IFCy%>=0THEN
31022FORSy%=0TOCy%:IFS%(Sy%)THEN!aJ+=1
31023NEXT
31024ENDIF:PROCM(Q_%):PROCM(iy%):PROCM(fy%):K%=FNA(1,Nu%):A%=My%:B%=An%*2:CALLXi:IFLi%THEN
31025!k=0:io%!0=Gi%:!uy=a%:!D=Q%!0:!I=Q%!4:!L=Q%!8:!e=Q%!12:IF!D<0!D=0
31026IF!I<0!I=0
31027IF!L>n%THEN!L=n%
31028IF!e>yy%THEN!e=yy%
31029Fu%=0:!dy=1:!K_=!I:!oy=100*(Fu%/(Ay%+1)):!vy=100/(Ay%+1)*(1/yy%)*(1<<16):Wy%=1:PROC`J
31030ENDIF:IFLi%ENDPROC
31031!dy=0:FORFu%=0TOAy%:io%!(Fu%*4)=Gi%:!uy=a%:!D=Q%!(Fu%*16):!I=Q%!(Fu%*16+4):!L=Q%!(Fu%*16+8):!e=Q%!(Fu%*16+12):IF!D<0!D=0
31032IF!I<0!I=0
31033IF!L>n%THEN!L=n%
31034IF!e>yy%THEN!e=yy%
31035PROCbu:IF!iTHENaa%=0:m%=Qy%:Xu%=t_%-1:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:vi%=nB%:Ky%=XO%:P%=-1:Fu%=Ay%
31036!C_+=_%:!F_+=!W:Ky%+=!W*4:fJ%+=!W*4:ru%+=!W*4:JJ%+=!W*4:r_%+=!W*4:!z=JJ%:!_=JJ%:!O=r_%:!x=r_%:vi%+=!W:aa%+=_%:a%+=_%*8:NEXT:K%=FNA(1,pn%):a%=qO%:_%=aa%:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:vi%=nB%:Ky%=XO%:e_%=Gi%:!h_=-1:!XJ=-1
31037!D_=Ky%:!Z_=e_%:IF!i=0PROCLJ
31038jy%=FALSE:PROCvy:PROCJ_:PROCY_(Qy%,m%):PROCG(e%,-1,-1):PROCt:a_%=TRUE:P%=-1:xy%=-1:uJ%=0:bJ%=0:Py%=0:i%=0:Sy%=0:REPEAT:IFS%(Sy%)THENi%=Sy%
31039Sy%+=1:UNTILS%(Sy%-1)ORSy%>Cy%:PROCA(N_%,3,A$(i%)):SYS&406c1:IF!i=FALSETHEN
31040IFIl%Yn%=FALSE:PROCZ_ELSEIFQu%THENYn%=TRUE:PROCZ_
31041IFBa%PROCF_
31042IFhi%THEN
31043IFyl%THEN
31044Ku%=FNS(iy%):PROCIy
31045ELSE:PROCl
31046ENDIF
31047ENDIF
31048ENDIF:ENDPROC
31049DEFPROCbu:!k=0:!oy=50*(Fu%/(Ay%+1)):!vy=50/(Ay%+1)*(1/yy%)*(1<<16):!CJ=wa%:!S_=f%:!Ny=W_%:!yy=W_%:B%=Go%:C%=Uy%+1:D%=A%(`%)+Hu%:G%=Sa%:CALLDJ:W_%=!Ny:IF!iENDPROC
31050_%=!k:K%=FNA(8*_%,pn%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to finish reading this image. Need "+STR$((8*_%)DIV1024)+"K."):!i=TRUE:ENDPROC
31051PROCuJ:PROCUJ:ENDPROC
31052DEFPROCDa:LOCALAJ%,ZJ%,So%,oO%,gk%:IFFNZ(SaveText_Window%,4)ai%=0
31053IFFNZ(SaveText_Window%,5)ai%=1
31054IFFNZ(SaveText_Window%,6)ai%=2
31055IFFNZ(SaveText_Window%,7)ai%=3
31056So%=FNZ(SaveText_Window%,10):oO%=FNZ(SaveText_Window%,11):gk%=FNZ(SaveText_Window%,12):PROCml:F%=OPENOUT("<OptclPro$Dir>.UserDeflts"):PRINT#F%,hi%,ql%,ti%,ln%,Ba%,Yi%,tn%:PRINT#F%,wn%,ui%,Kn%,Li%,Xn%,yl%:PRINT#F%,VAL(FNM(By%,22)),VAL(FNM(By%,23)):PRINT#F%,dl%,Qu%,Il%,wa%,!n,Rn%,!y
31057PRINT#F%,ai%,So%,oO%,gk%,cl%,vy%,vl%:PRINT#F%,F,C,AJ%,ZJ%:PRINT#F%,Vn%,do%,Fy%:PRINT#F%,Ak%:FORwk%=0TO35:BPUT#F%,gy%?wk%:NEXT:PRINT#F%,Fy%,h$,j$:FORO%=0TO255:BPUT#F%,ie%?O%:NEXT:CLOSE#F%:PROCUu:ENDPROC
31058DEFPROCAn:LOCALDa,ou,AJ%,ZJ%,So%,oO%,gk%:F%=OPENIN("<OptclPro$Dir>.UserDeflts"):INPUT#F%,hi%,ql%,ti%,ln%,Ba%,Yi%,tn%:INPUT#F%,wn%,ui%,Kn%,Li%,Xn%,yl%:INPUT#F%,Da,ou:INPUT#F%,dl%,Qu%,Il%,wa%,!n,Rn%,!y:INPUT#F%,ai%,So%,oO%,gk%,cl%,vy%,vl%:INPUT#F%,F,C,AJ%,ZJ%:INPUT#F%,Vn%,do%,Fy%:INPUT#F%,Ak%
31059FORwk%=0TO35:gy%?wk%=BGET#F%:NEXT:INPUT#F%,Fy%,h$,j$:FORO%=0TO255:ie%?O%=BGET#F%:NEXT:CLOSE#F%:PROCIi(AJ%,ZJ%):PROCQ(hi%,5):PROCQ(ql%,45):PROCA(eJ%,5,STR$(F)):PROCA(eJ%,9,STR$(C)):PROCQ(ti%,9):PROCQ(ln%,10):PROCQ(Ba%,12):PROCB(en%,Yi%):PROCQ(tn%,50):PROCQ(wn%,6):PROCQ(ui%,32):PROCQ(Kn%,35):PROCQ(Li%,4):PROCQ(Xn%,49)
31060PROCQ(yl%,58):PROCA(By%,22,STR$(Da)):PROCA(By%,23,STR$(ou)):PROCO_:PROCr_:PROCQ(Qu%,11):PROCQ(Il%,60):PROCP(By%,60,NOT(Qu%)):PROCP(By%,61,NOT(Qu%)):PROCQ(wa%,51):PROCQ(!n,59):PROCQ(Rn%,63):PROCQ(!y,64):PROCS(SaveText_Window%,4+ai%,TRUE):IFai%=3PROCo(SaveText_Window%,3,"Sfile_dfe")
31061IFai%=1PROCo(SaveText_Window%,3,"Sfile_fe4")
31062IFai%=0ORai%=3THEN
31063PROCZ(SaveText_Window%,10):PROCZ(SaveText_Window%,11):PROCZ(SaveText_Window%,12)
31064ELSE:PROCF(SaveText_Window%,10):PROCF(SaveText_Window%,11):PROCF(SaveText_Window%,12)
31065ENDIF:PROCS(SaveText_Window%,10,So%):PROCS(SaveText_Window%,11,oO%):PROCS(SaveText_Window%,12,gk%):IFcl%PROCK(File_Menu%,3)ELSEPROCV(File_Menu%,3)
31066IFvl%PROCK(Display_Menu%,2)ELSEPROCV(Display_Menu%,2)
31067IFvy%PROCV(Display_Menu%,1)ELSEPROCK(Display_Menu%,1)
31068PROCS(w%,7,Vn%):PROCS(w%,10,do%):PROCZy(gy%):PROCpu:ENDPROC
31069DEFPROCI_:M%(0)=hi%:M%(1)=ql%:M%(2)=ti%:M%(3)=ln%:M%(4)=Ba%:M%(5)=Yi%:M%(6)=tn%:M%(7)=wn%:M%(8)=ui%:M%(9)=Kn%:M%(10)=Li%:M%(11)=Xn%:M%(12)=VAL(FNM(By%,22)):M%(13)=VAL(FNM(By%,23)):M%(14)=dl%:M%(15)=Qu%:M%(16)=wa%:M%(17)=!n:M%(18)=F:M%(19)=C:M%(20)=fn%
31070M%(21)=Il%:M%(22)=Rn%:M%(23)=yl%:M%(24)=!y:D%()=G%():V%()=P%():C$()=Z$():P$()=Z$():SA%=g_%:PROCGy(YZ%):ENDPROC
31071DEFPROCbi:hi%=M%(0):ql%=M%(1):ti%=M%(2):ln%=M%(3):Ba%=M%(4):PROCB(en%,Yi%):Yi%=M%(5):PROCB(en%,Yi%):tn%=M%(6):wn%=M%(7):ui%=M%(8):Kn%=M%(9):Li%=M%(10):Xn%=M%(11):PROCA(By%,22,STR$(M%(12))):PROCA(By%,23,STR$(M%(13))):dl%=M%(14):Qu%=M%(15):wa%=M%(16):!n=M%(17):F=M%(18)
31072C=M%(19):fn%=M%(20):Il%=M%(21):Rn%=M%(22):yl%=M%(23):!y=M%(24):PROCQ(hi%,5):PROCQ(ql%,45):PROCQ(ti%,9):PROCQ(ln%,10):PROCQ(Ba%,12):PROCQ(tn%,50):PROCQ(wn%,6):PROCQ(ui%,32):PROCQ(Kn%,35):PROCQ(Li%,4):PROCQ(Xn%,49):PROCQ(yl%,58):PROCQ(Qu%,11):PROCQ(Il%,60):PROCP(By%,60,NOT(Qu%)):PROCP(By%,61,NOT(Qu%))
31073PROCQ(wa%,51):PROCQ(!n,59):PROCQ(Rn%,63):PROCQ(!y,64):PROCA(eJ%,5,STR$(F)):PROCA(eJ%,9,STR$(C)):PROCS(IJ%,6,fn%):G%()=D%():P%()=V%():Z$()=C$():M$()=C$():g_%=SA%:PROCZy(YZ%):PROCO_:PROCr_:ENDPROC
31074DEFPROCQ(DJ%,I%):PROCS(By%,I%,DJ%):ENDPROC
31075DEFPROCH:PROCy:_%=-1:a_%=FALSE:i_%=FALSE:P%=-1:K%=FNA(1,`%):K%=FNA(1,WJ%):K%=FNA(1,M_%):K%=FNA(1,Nu%):K%=FNA(1,qJ%):K%=FNA(1,J_%):K%=FNA(1,`y%):K%=FNA(1,Ny%):K%=FNA(1,ju%):Qy%=m%:PROCM(w_%):PROCM(Q_%):PROCM(k%):PROCM(`_%):PROCM(H_%):PROCM(iy%):PROCJ(e%):SYS&400d3,,Z%:IFZ%!0=e%THENPROCG(e%,-1,-1)
31076ENDPROC
31077DEFPROCLa(b%,I%):LOCALTu%:PROCG(k%,-1,-1):IF(I%=1ORI%=2ORI%=3)ANDb%=1PROCS(`_%,I%,TRUE)
31078CASEI%OF
31079WHEN0:PROCM(k%):PROCM(`_%):PROCWy
31080WHEN1:IFD_%<>1PROCB(f_%,D_%+3):D_%=1:PROCB(f_%,D_%+3)
31081WHEN2:IFD_%<>2PROCB(f_%,D_%+3):D_%=2:PROCB(f_%,D_%+3)
31082WHEN3:IFD_%<>3PROCB(f_%,D_%+3):D_%=3:PROCB(f_%,D_%+3)
31083WHEN4:PROCT_
31084WHEN5:PROCB_(FALSE)
31085WHEN6:PROCT(Zoom_Window%,y%,h%)
31086WHEN7:Tu%=i_%:PROCH:i_%=Tu%:PROCl
31087ENDCASE:ENDPROC
31088DEFPROCyJ:IFui%=FALSEAy%=-1:W_%=-1
31089PROCmy:ENDPROC
31090DEFPROCmy:IFql%THEN
31091IFD_%<>2PROCB(f_%,D_%+3):D_%=2:PROCB(f_%,D_%+3):PROCS(`_%,2,1)
31092ELSE:IFD_%<>1PROCB(f_%,D_%+3):D_%=1:PROCB(f_%,D_%+3):PROCS(`_%,1,1)
31093ENDIF:PROCca:PROCM(w_%):PROCM(Q_%):PROCM(iy%):IFFi%PROCF(`_%,7)ELSEPROCZ(`_%,7)
31094PROCL(k%,FNJ(n%*R%),FNJ(t%*V%)):IFUu%PROCw(k%)
31095PROCN(k%,"Process '"+X$+"' ("+M$+")"):PROCG(k%,-1,-1):ENDPROC
31096DEFPROCAJ:LOCALsy%,ey%,R%,V%,U_%,I_%:IFFNS(iJ%)THENZ%!28=iJ%
31097kn%=FNS(Y%):IFY%=V_%ORY%=jJ%THENkn%=FALSE
31098SYS53,-1,11TO,,sy%:SYS53,-1,12TO,,ey%:SYS53,-1,4TO,,R%:SYS53,-1,5TO,,V%:R%=1<<R%:V%=1<<V%:sy%=sy%*R%:ey%=ey%*V%:IFkn%=FALSEORi`%THEN
31099CASEY%OF
31100WHENFALSE:PROCG_(Z%+4):I_%=Z%!16-Z%!8+44:PROC_y(Z%+4):Z%!8+=80:Z%!16+=80:Z%!8-=I_%/2:Z%!16-=I_%/2
31101WHENsJ%:PROCG_(Z%+4):I_%=Z%!16-Z%!8+44:PROC_y(Z%+4):Z%!8+=80:Z%!16+=80:Z%!8+=I_%/2:Z%!16+=I_%/2
31102WHENiy%,w%,k%,N_%,H_%,fy%,By%,g%,W%,kl%,IJ%,iJ%,e%,u_%,HJ%:PROCG_(Z%+4):PROC_y(Z%+4):Z%!8+=80:Z%!16+=80
31103WHENQ_%:PROC_y(Z%+4):Z%!8+=80:Z%!16+=80:U_%=Z%!12-Z%!4+46:IFU_%>sy%/2Z%!4=0:Z%!12=sy%/2-46ELSEZ%!4=(sy%/2-U_%)/2:Z%!12=Z%!4+U_%-46
31104WHENw_%:PROC_y(Z%+4):Z%!8+=80:Z%!16+=80:U_%=Z%!12-Z%!4+46:IFU_%>sy%/2Z%!4=sy%/2:Z%!12=sy%-46ELSEZ%!4=sy%/2+(sy%/2-U_%)/2:Z%!12=Z%!4+U_%-46
31105WHEN`_%:U_%=Z%!12-Z%!4:I_%=Z%!16-Z%!8:!M%=k%:SYS&400cb,,M%:Z%!4=M%!4:Z%!8=M%!16-I_%:Z%!12=M%!12:Z%!16=M%!16
31106WHENZoom_Window%:SYS&400cf,,M%:U_%=Z%!12-Z%!4:IFM%!0>sy%-U_%-64THENZ%!4=M%!0-64-U_%ELSEZ%!4=M%!0+64
31107Z%!12=Z%!4+U_%:I_%=Z%!16-Z%!8:Z%!8=M%!4-I_%/2:Z%!16=M%!4+I_%/2
31108WHENV_%:M%!0=w%:SYS&400cb,,M%:Z%!12=M%!4+eB%+Z%!12-Z%!4:Z%!4=M%!4+eB%:Z%!16=M%!8+lB%+Z%!16-Z%!8:Z%!8=M%!8+lB%
31109WHENjJ%:M%!0=IJ%:SYS&400cb,,M%:Z%!12=M%!4+MO%+Z%!12-Z%!4:Z%!4=M%!4+MO%:Z%!16=M%!8+iB%+Z%!16-Z%!8:Z%!8=M%!8+iB%
31110ENDCASE
31111ENDIF:IFY%=H_%THENPROCD_
31112ENDPROC
31113DEFPROCli:LOCALTu%:CASEFNP(0)OF
31114WHEN1:PROCM(k%):PROCM(`_%):PROCWy
31115WHEN2:PROCB_(FALSE)
31116WHEN3:PROCq:PROCPy(Zoom_Window%,s%-64,v%+64)
31117WHEN4:IFD_%<>1THEN
31118PROCB(f_%,D_%+3):D_%=1:PROCB(f_%,D_%+3):PROCS(`_%,1,1)
31119ENDIF
31120WHEN5:IFD_%<>2THEN
31121PROCB(f_%,D_%+3):D_%=2:PROCB(f_%,D_%+3):PROCS(`_%,2,1)
31122ENDIF
31123WHEN6:IFD_%<>3THEN
31124PROCB(f_%,D_%+3):D_%=3:PROCB(f_%,D_%+3):PROCS(`_%,3,1)
31125ENDIF
31126WHEN7:PROCT_
31127WHEN8:Tu%=i_%:PROCH:i_%=Tu%:PROCl
31128WHEN9:PROCB(f_%,9):IFUu%PROCM(`_%):Uu%=FALSEELSEUu%=TRUE:PROCw(k%)
31129PROCAu(`_%)
31130ENDCASE:ENDPROC
31131DEFFNG(kJ%):LOCALZi%,Ua%,zB%:Zi%=(kJ%AND&ff000000)>>24:Ua%=(kJ%AND&ff0000)>>16:zB%=(kJ%AND65280)>>8:=Zi%+Ua%+zB%
31132DEFFNN(kJ%):LOCALZi%,Ua%,zB%:Zi%=255-((kJ%AND&ff000000)>>24):Ua%=255-((kJ%AND&ff0000)>>16):zB%=255-((kJ%AND65280)>>8):=(Zi%<<24)+(Ua%<<16)+(zB%<<8)
31133DEFPROC`(N%):Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:PROCW(3,10)
31134RECTANGLEL%+Q%!(N%*16)*R%*U%/100,X%-Q%!(N%*16+4)*V%*U%/100,(Q%!(N%*16+8)-Q%!(N%*16))*R%*U%/100,-(Q%!(N%*16+12)-Q%!(N%*16+4))*V%*U%/100:PROCW(3,8):RECTANGLEL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
31135RECTANGLEL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:RECTANGLEL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:RECTANGLEL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:IFN%>0ANDZl%=FALSETHEN
31136PROCW(3,11):LINEL%+Q%!(N%*16-8)*R%*U%/100-32,X%-Q%!(N%*16-4)*V%*U%/100,L%+Q%!(N%*16)*R%*U%/100+32,X%-Q%!(N%*16+4)*V%*U%/100:RECTANGLEFILLL%+Q%!(N%*16-8)*R%*U%/100-8-32,X%-Q%!(N%*16-4)*V%*U%/100-8,16,16
31137RECTANGLEFILLL%+Q%!(N%*16)*R%*U%/100-8+32,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
31138ENDIF:SYS&400ca,,Z%TOd%:ENDWHILE:ENDPROC
31139DEFPROCS_(N%):Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:PROCW(3,11)
31140RECTANGLEL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,(f%!(N%*16+8)-f%!(N%*16))*R%*U%/100,-(f%!(N%*16+12)-f%!(N%*16+4))*V%*U%/100:RECTANGLEL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16
31141RECTANGLEL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16:RECTANGLEL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16:RECTANGLEL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16
31142LINEL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:LINEL%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:SYS&400ca,,Z%TOd%:ENDWHILE:ENDPROC
31143DEFPROCMJ:LOCALZy%,zJ%:IFmu%OROl%ORPl%ORZl%<>0ENDPROC
31144Z%!0=k%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:IFs%<Z%!4ORs%>Z%!12ORv%<Z%!8ORv%>Z%!16PROCY(""):_J%=FALSE:ENDPROC
31145IFD_%=3PROCY("ptr_rotate"):_J%=4:ENDPROC
31146SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:!Fi=f%:!Pl=W_%:A%=USR(cy):IFA%>=0THEN
31147Zy%=A%MOD128:zJ%=A%DIV256
31148ELSE:Zy%=-1:zJ%=FALSE
31149ENDIF:IFINKEY-3IF(A%AND128)=0THENZy%=-1:zJ%=FALSE
31150IFZy%=-1AND_J%=FALSEENDPROC
31151IFZy%=-1AND_J%PROCY(""):_J%=FALSE:ENDPROC
31152IFD_%=2AND_J%ANDzJ%<>0PROCY(""):_J%=FALSE:ENDPROC
31153IF_J%=FALSEOR(_J%=1ANDzJ%<>0)OR(_J%=2ANDzJ%=0)THEN
31154CASED_%OF
31155WHEN1:IFzJ%=0THENPROCY("ptr_move"):_J%=1ELSEPROCY("ptr_adjust"):_J%=2
31156WHEN2:IFzJ%=0THEN_J%=3:PROCY("ptr_delete")
31157ENDCASE
31158ENDIF:ENDPROC
31159DEFPROCv_:LOCALau%,_y$:!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!f_=Pu%:!r_=My%:!sy=An%:!Zy=fJ%:!U_=vi%:!Fy=a%:!p=Ky%:k_%+=_%-!U:an%+=_%-!U:!d+=_%-!U:!U=_%:!M=_r%:B%=k_%:F%=Bu%:G%=SJ%:H%=a%:SYS&406c0:CALLc_:SYS&406c1
31160IF!sy=0PROCX("Optical","Not all of the text could be handled, possibly due to a bad quality scanned image.")
31161k_%=!RJ:_r%=!M:_%=!U:IF!M<>nr%AND!M<e_%THEN
31162PROCN(e%,"OCRing image - Reading line ("+STR$(!M+1)+"/"+STR$(e_%)+") *"):nr%=!M
31163ENDIF:IFP%<0ANDou%>Qy%ANDjy%=FALSEANDDy%=FALSETHENP%=0:F_%=TRUE:xO%=TRUE
31164IF!R=255OR(!R=254ANDQu%=FALSE)OR!R=0THEN
31165a_%=TRUE:IFQu%<>0ORIl%<>0THENIy%=TRUE
31166PROCvy:PROCY_(Qy%,m%):IFIl%THENWy%=0:Yn%=FALSE:PROCZ_ELSEIFQu%THENWy%=0:Yn%=TRUE:PROCZ_
31167IF(Il%ORQu%)ANDFy%=0THENWy%=2:Il%=FALSE:Qu%=FALSE:Iy%=FALSE:PROCP(By%,60,TRUE):PROCP(By%,61,TRUE):PROCS(By%,60,FALSE):PROCS(By%,11,FALSE)
31168IFIy%=FALSEPROC__
31169ENDIF:IF(!RAND240)=240THEN!R=1
31170IFIy%ENDPROC
31171IF!R<>0ENDPROC
31172PROCl_:ENDPROC
31173DEFPROC__:!A=0:Iy%=FALSE:IFBa%SWAPQy%,ou%:PROCF_:SWAPQy%,ou%
31174ou%=m%:Ln%=_%:PROCn:IFgy%?Vu%<>0PROCJ(e%):ENDPROC
31175IFvy%=FALSETHEN!a-=L_%
31176IFgy%?hO%<>0ORgy%?sB%<>0THEN
31177IFvy%THEN!a-=36ELSE!a-=L_%
31178ENDIF:SYS&400d1,e%,0,-1<<30,1<<30,-!a:ENDPROC
31179DEFPROCl_:PROCc:Wy%=0:pi%=TRUE:PROCt:jy%=FALSE:PROCJ_:i%=0:Sy%=0:REPEAT:IFS%(Sy%)THENi%=Sy%
31180Sy%+=1:UNTILS%(Sy%-1)ORSy%>Cy%:PROCA(N_%,3,A$(i%)):IFhi%THEN
31181IFyl%THEN
31182Ku%=FNS(iy%):PROCIy
31183ELSE:PROCl
31184ENDIF
31185ENDIF:IFS`%PROCgy:PROCXy
31186ENDPROC
31187DEFPROCHy:PROCJ(e%):PROCc:pi%=TRUE:PROCt:IF!APROCni
31188IFWy%=0ENDPROC
31189IFWy%=2THEN
31190jy%=FALSE:PROCvy:PROCJ_:PROCY_(Qy%,m%):PROCt:a_%=TRUE:P%=0:F_%=TRUE:xy%=0:i%=0:Sy%=0:REPEAT:IFS%(Sy%)THENi%=Sy%
31191Sy%+=1:UNTILS%(Sy%-1)ORSy%>Cy%:PROCA(N_%,3,A$(i%)):PROCO(P%)
31192ELSE:aa%=0:m%=Qy%:Xu%=t_%-1:a%=qO%:_%=aa%:Qy%=Qy%:t_%=t_%:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:vi%=nB%:Ky%=XO%:P%=-1:jy%=FALSE:PROCBy:PROCJ_:PROCt:a_%=TRUE:C_%=A%(qy%):wo%=TRUE
31193ENDIF:Wy%=0:!A=0:Iy%=FALSE:ENDPROC
31194DEFPROCq_:LOCALkn%:B%=Go%:C%=Uy%+1:D%=A%(`%)+Hu%:G%=Sa%:CALLDJ:W_%=!Ny:IFTIME-hr%>25THEN
31195IF!W_<>cr%PROCN(e%,"OCRing image - Finding text ("+STR$(!W_)+"%) *"):cr%=!W_
31196hr%=TIME
31197ENDIF:IF!dy=1ENDPROC
31198_%=!k:SYS&406c0:K%=FNA(8*_%,pn%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to finish reading this image. Need "+STR$((8*_%)DIV1024)+"K."):PROCHy:ENDPROC
31199PROCuJ:PROCUJ:SYS&406c1:!C_+=_%:!F_+=!W:Ky%+=!W*4:fJ%+=!W*4:ru%+=!W*4:JJ%+=!W*4:r_%+=!W*4:!z=JJ%:!_=JJ%:!O=r_%:!x=r_%:vi%+=!W:aa%+=_%:a%+=_%*8:Fu%+=1:IFFu%<=Ay%THEN
31200!S_=f%:!Ny=W_%:!yy=W_%:io%!(Fu%*4)=Gi%:!uy=a%:!D=Q%!(Fu%*16):!I=Q%!(Fu%*16+4):!L=Q%!(Fu%*16+8):!e=Q%!(Fu%*16+12):IF!D<0!D=0
31201IF!I<0!I=0
31202IF!L>n%THEN!L=n%
31203IF!e>yy%THEN!e=yy%
31204!k=0:!dy=1:!K_=!I:!oy=100*(Fu%/(Ay%+1)):!vy=100/(Ay%+1)*(1/yy%)*(1<<16)
31205ENDIF:IFFu%<=Ay%ENDPROC
31206K%=FNA(1,pn%):a%=qO%:_%=aa%:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:vi%=nB%:Ky%=XO%:e_%=Gi%:!h_=-1:!XJ=-1:!D_=Ky%:!Z_=e_%:ou%=Qy%:PROCLJ:k_%=_%:_%=0:Ln%=_%:!U=0:_r%=0:jy%=FALSE:PROCN(e%,"OCRing image - Reading line (1/"+STR$(e_%)+") *"):nr%=1
31207ENDPROC
31208DEFPROC`J:LOCALkn%:PROCN(e%,"OCRing image - Finding text (0%) *"):t_%=Xu%:IFFNS(e%)PROChyELSEPROCBy
31209PROCn:PROCM(By%):PROCM(N_%):PROCM(g%):PROCM(sJ%):PROCM(HJ%):cr%=-1:wo%=FALSE:!k=0:!CJ=wa%:!S_=f%:!Ny=W_%:!yy=W_%:hr%=TIME:an%=0:!a=0:P%=-1:F_%=TRUE:PROCO(P%):SYS&406c2:ENDPROC
31210DEFPROChy:!Z%=e%:SYS&400cb,,Z%:IFvy%THEN
31211Z%!24=-(36*t_%-16)
31212ELSE:Z%!24=-(L_%*t_%-L_%/4)
31213ENDIF:SYS&400c5,,Z%:ENDPROC
31214DEFFNg(sy%,ey%,mZ%,Ky$):LOCALKZ%,Ju%,z_%,m_%:SYS46,24+256,mZ%,Ky$TO,,c%:KZ%=c%+c%!32-mZ%:Ju%=c%!40:SYS53,Ju%,3TO,,m_%:CASEm_%OF
31215WHEN1:z_%=1
31216WHEN3:z_%=2
31217WHEN15:z_%=4
31218OTHERWISEz_%=1
31219ENDCASE:IF(sy%MOD(32/z_%))THENsy%+=(32/z_%)-(sy%MOD(32/z_%))
31220=KZ%+sy%*ey%*z_%/8
31221DEFPROCDy:LOCALUe%,Da%,bu%,iu%,dZ%,YA%,V%,ey%:Pn%=TRUE:IFDy%ANDZ%!0=R_%ANDSk%=-5THEN
31222IFGO%THEN
31223Z%!0=e%:Z%!4=Su%!0:Z%!8=Su%!4:Z%!12=Su%!8:Z%!16=Su%!12:Z%!20=Su%!16:Z%!24=Su%!20:Z%!28=Su%!24:GO%=FALSE
31224ELSE:PROCq:M%!0=e%:SYS&400cb,,M%:Su%!0=M%!4:Su%!4=M%!8:Su%!8=M%!12:Su%!12=M%!16:Su%!16=M%!20:Su%!20=M%!24:Su%!24=M%!28:M%!0=R_%:SYS&400cb,,M%:IFb%<>1THENM%!28=-1:SYS&400c5,,M%
31225CO%=(M%!16-M%!8)+42:SYS53,-1,12TO,,ey%:SYS53,-1,5TO,,V%:V%=1<<V%:Z%!0=e%:Z%!4=0:Z%!8=0:Z%!12=1<<16:Z%!16=ey%*V%+2-CO%:GO%=TRUE
31226ENDIF
31227ENDIF:CASEZ%!0OF
31228WHENQ_%,w_%:IFZ%!0=Q_%Ue%=w_%ELSEUe%=Q_%
31229M%!0=Ue%:SYS&400cb,,M%:IFZ%!12-Z%!4=M%!12-M%!4ANDZ%!16-Z%!8=M%!16-M%!8ANDM%!20=Z%!20ANDM%!24=Z%!24ENDPROC
31230M%!12=M%!4+(Z%!12-Z%!4):M%!8=M%!16-(Z%!16-Z%!8):M%!20=Z%!20:M%!24=Z%!24:SYS&400c5,,M%
31231WHENk%:IFUu%THEN
31232M%!0=`_%:SYS&400cb,,M%:M%!4=Z%!4:M%!8=Z%!16-(M%!16-M%!8):M%!16=Z%!16:M%!12=Z%!12:IFZ%!28=-1M%!28=-1
31233IFZ%!28=-2M%!28=-2
31234IFmu%=FALSEANDOl%=FALSEANDPl%=FALSEANDZl%=FALSEZ%!28=`_%:SYS&400c5,,M%
31235ENDIF
31236WHENR_%:IFDy%THEN
31237Z%!8=Z%!16-120:M%!0=e%:SYS&400cb,,M%:M%!12=Z%!4+(M%!12-M%!4):M%!4=Z%!4:M%!8=Z%!8-2-(M%!16-M%!8):M%!16=Z%!8-2:IFZ%!28=-1M%!28=-1
31238IFZ%!28=-2M%!28=-2
31239SYS&400c5,,M%
31240ENDIF
31241WHENe%:IFI%<>-5PROCFJ
31242IFDy%THEN
31243M%!0=R_%:SYS&400cb,,M%:CO%=(M%!16-M%!8)+42:SYS53,-1,12TO,,ey%:SYS53,-1,5TO,,V%:V%=1<<V%:Z%!28=R_%:SYS&400c5,,Z%:SYS&400cb,,Z%:IFZ%!16+CO%>ey%*V%+2THENZ%!16=ey%*V%+2-CO%
31244SYS&400c5,,Z%:M%!4=Z%!4:M%!12=Z%!12+38:M%!16=Z%!16+2+M%!16-M%!8:M%!8=Z%!16+2:M%!28=Z%!0:SYS&400c5,,M%:Pn%=FALSE
31245ENDIF
31246WHENw%:M%!0=V_%:SYS&400cb,,M%:M%!12=Z%!4+eB%+M%!12-M%!4:M%!4=Z%!4+eB%:M%!16=Z%!8+lB%+M%!16-M%!8:M%!8=Z%!8+lB%:IFZ%!28=-1M%!28=-1
31247IFZ%!28=-2M%!28=-2
31248SYS&400c5,,M%:Z%!28=V_%
31249WHENIJ%:M%!0=jJ%:SYS&400cb,,M%:M%!12=Z%!4+MO%+M%!12-M%!4:M%!4=Z%!4+MO%:M%!16=Z%!8+iB%+M%!16-M%!8:M%!8=Z%!8+iB%:IFZ%!28=-1M%!28=-1
31250IFZ%!28=-2M%!28=-2
31251SYS&400c5,,M%:Z%!28=jJ%
31252ENDCASE:ENDPROC
31253DEFPROCJ_:LOCALzo%,se%:zo%=TIME-Je%:PROCA(Stats_Window%,6,LEFT$(STR$(INT(zo%/10)/10),5)):PROCA(Stats_Window%,10,STR$(m%-Qy%)):PROCA(Stats_Window%,12,STR$(INT((m%-Qy%)/zo%*100))):B%=Qy%:C%=m%:D%=A%(qy%):se%=USR(qi):PROCA(Stats_Window%,3,STR$(se%)):PROCA(Stats_Window%,13,STR$(INT(se%/zo%*6000))):ENDPROC
31254DEFPROCw(Y%):Z%!0=Y%:SYS&400cb,,Z%:PROCDy:IFPn%THEN
31255M%!4=Z%!4:M%!8=Z%!8:M%!12=Z%!12:M%!16=Z%!16:SYS&400c5,,Z%:IFZ%!0=k%THEN
31256SYS&400cb,,Z%:IFM%!4<>Z%!4ORM%!8<>Z%!8ORM%!12<>Z%!12ORM%!16<>Z%!16PROCDy:SYS&400c5,,Z%
31257ENDIF
31258ENDIF:ENDPROC
31259DEFPROCoa:LOCALsy%,ey%,UJ%,x_%,z%,ul%,jl%:IFyJ%Qi%=VAL(FNM(Zoom_Window%,5)):yJ%=FALSE
31260SYS53,-1,11TO,,sy%:SYS53,-1,12TO,,ey%:SYS53,-1,4TO,,UJ%:SYS53,-1,5TO,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:ey%-=84/x_%:IFKn%THEN
31261IFql%THEN
31262IF(ey%*x_%-88)/(sy%*UJ%-46)>(t%*R%)/(n%*V%)THEN
31263z%=(sy%*UJ%-46)/(n%*R%)*100
31264ELSE:z%=(ey%*x_%-88)/(t%*V%)*100
31265ENDIF
31266ELSE:z%=(sy%*UJ%-46)/(n%*R%)*100
31267ENDIF:IFz%>50THENz%=50
31268ELSE:z%=50
31269ENDIF:IFz%<1z%=1
31270IFz%>999z%=999
31271PROCA(Zoom_Window%,5,STR$(z%)):IFVAL(FNM(Zoom_Window%,5))<1PROCA(Zoom_Window%,5,"1")
31272yJ%=TRUE:U%=VAL(FNM(Zoom_Window%,5)):ul%=U%*(n%*R%)/100:jl%=U%*(t%*V%)/100:i`%=TRUE:kn%=FNS(k%):PROCL(k%,ul%,jl%):IFkn%THEN
31273PROCJ(k%):IFUu%PROCw(k%)
31274ELSE:PROCM(k%)
31275ENDIF:PROCL(Q_%,ul%,jl%):PROCL(w_%,ul%,jl%):PROCM(Q_%):PROCM(w_%):IFFNS(H_%)THEN
31276PROCL(H_%,ul%+400,jl%+400):PROCJ(H_%):SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=-ku%*R%/2*U%/100:Ii%=-nJ%*V%/2*U%/100:xu%=(s%-L%+Ri%-R%):su%=t%*V%*U%/100-(X%-v%-Ii%):mi%=xu%:ki%=su%
31277ENDIF:i`%=FALSE:ENDPROC
31278DEFPROCKl:ONERRORLOCALSYS&406c2:PROCry:PROCQy:END
31279F%=OPENIN("<OptclPro$Dir>.SystemB"):ay%=EXT#F%:`$="":FORr%=1TOay%:`$+=CHR$((BGET#F%)EOR255):NEXT:CLOSE#F%:PROCA(Info_Window%,9,`$):ENDPROC
31280DEFPROCil(I%,j%):IFj%=13PROCS(fy%,2,1):PROCS(fy%,2,0):PROCkJ:ENDPROC
31281SYS&400dc,j%:ENDPROC
31282DEFPROCTJ(I%,j%):SYS&600d4,-1:PROCc:CASEj%OF
31283WHEN1:IFcl%cl%=FALSEELSEcl%=TRUE
31284IFcl%PROCK(File_Menu%,3)ELSEPROCV(File_Menu%,3)
31285WHEN2:IFvl%vl%=FALSEELSEvl%=TRUE
31286IFvl%PROCK(Display_Menu%,2)ELSEPROCV(Display_Menu%,2):PROCc
31287WHEN19:PROCq:PROCT(Stats_Window%,s%,v%)
31288WHEN17:IFDy%ENDPROC
31289PROCxy
31290WHEN9:IFZ%(`%)>10000PROCW_
31291WHEN18:PROCiJ
31292OTHERWISE:IFgy%?Vu%<>0ORvy%=FALSETHENPROCv(j%):ENDPROC
31293IFDy%=FALSETHEN
31294IFP%<0THENP%=0:F_%=TRUE
31295IFj%=8ORj%=127ORj%=396ORj%=397ORj%=399ORj%=398OSCLI("FX21")
31296IFj%=397PROCe(100,100):ENDPROC
31297IFP%=-1PROCv(j%):ENDPROC
31298IFj%=396PROCe(100,50):ENDPROC
31299IFj%=399PROCe(100,110):ENDPROC
31300IFj%=398PROCe(100,120):ENDPROC
31301IFjy%PROCv(j%):ENDPROC
31302IFj%=8ORj%=127THENPROCKu:ENDPROC
31303IFj%>255ORj%<32ORj%=127PROCv(j%):ENDPROC
31304PROCTa(j%):PROCO(P%)
31305ELSE:IFP%=-1PROCv(j%):ENDPROC
31306IFj%=8ORj%=127ORj%=396ORj%=397ORj%=399ORj%=398OSCLI("FX21")
31307IFj%=8THENPROCcl:ENDPROC
31308IFj%=27THENPROCy:ENDPROC
31309IFj%=396PROCe(100,50):ENDPROC
31310IFj%=397PROCe(100,100):ENDPROC
31311IFj%=399PROCe(100,110):ENDPROC
31312IFj%=398PROCe(100,120):ENDPROC
31313IFj%>255ORj%<33ORj%=127PROCv(j%):ENDPROC
31314PROCA(g%,19,CHR$(j%)):IF(?(A%(qy%)+Py%)<>j%OR(My%?(P%*2)AND3)>=2OR(My%?(P%*2)DIV4)<>i%)AND(My%?(P%*2+1)AND2)=0THEN
31315O_%=P%:Yo%=FALSE:PROCWJ:PROCP_
31316ENDIF:PROCe(100,100)
31317ENDIF
31318ENDCASE:ENDPROC
31319DEFFNO(yu%):LOCALPy%:IFDy%THEN=FALSE
31320PROCa(yu%):IF!V_<>0THEN=FALSE
31321Py%-=1:j_%=?(A%(qy%)+Py%):IFPy%>Qy%IF?(A%(qy%)+Py%-1)=2OR?(A%(qy%)+Py%-1)=3THENPy%-=1:j_%=2
31322WHILEPy%>=Qy%AND((j_%>0ANDj_%<8)ORj_%=11ORj_%=12):Py%-=1:j_%=?(A%(qy%)+Py%):IFPy%>Qy%IF?(A%(qy%)+Py%-1)=2OR?(A%(qy%)+Py%-1)=3THENPy%-=1:j_%=2
31323ENDWHILE:IFj_%=9ORj_%=10ORj_%=32THEN=TRUE
31324=FALSE
31325DEFFNe(yu%):LOCALPy%:IFDy%THEN=FALSE
31326PROCa(yu%):IF!V_<>0THEN=FALSE
31327Py%+=1:j_%=?(A%(qy%)+Py%):IFj_%=2ORj_%=3THENPy%+=1
31328WHILEPy%<m%AND((j_%>0ANDj_%<8)ORj_%=11ORj_%=12):Py%+=1:j_%=?(A%(qy%)+Py%):IFj_%=2ORj_%=3THENPy%+=1
31329ENDWHILE:IFj_%=9ORj_%=10ORj_%=32THEN=TRUE
31330=FALSE
31331DEFPROCKu:LOCALK`%:IF_%<=1PROCC("Optical","Sorry - the last character cannot be deleted."):ENDPROC
31332IFP%=0ANDF_%ENDPROC
31333IFWy%<>0OR!A<>0ORIy%THENSWAP_%,k_%
31334IFF_%THEN
31335My%?(P%*2+1)=My%?(P%*2+1)OR128:P%-=1:IFP%<0THENP%=0:F_%=TRUE
31336F_%=FALSE:IFWy%<>0OR!A<>0ORIy%THENSWAP_%,k_%
31337ELSE:IFFNe(P%)=FALSEIFFNO(P%)=FALSETHENMy%?(P%*2+3)=My%?(P%*2+3)OR128
31338IFFNO(P%)THENF_%=TRUE
31339A%=a%+(P%+1)*8:B%=a%+P%*8:C%=(_%-P%-1)*8:CALLT:A%=My%+(P%+1)*2:B%=My%+P%*2:C%=(_%-P%-1)*2:CALLT:A%=Pu%+P%+1:B%=Pu%+P%:C%=_%-P%-1:CALLT:IFWy%<>0OR!A<>0ORIy%THENSWAP_%,k_%:k_%-=1:!U-=1:!d-=1:ou%-=1:Ln%-=1:hn%-=1:an%-=1
31340_%-=1:FORPJ%=0TOe_%:IFKy%!(PJ%*4)>P%THENKy%!(PJ%*4)-=1
31341NEXT:IFF_%=FALSEP%-=1
31342IFP%=-1THENP%=0:F_%=TRUE
31343IFP%>=_%THENP%=_%-1
31344ENDIF:m%=Qy%:PROCr:PROCa(P%):IFvy%THEN
31345K`%=36*(bJ%+t_%)
31346ELSE:K`%=L_%*t_%+8
31347ENDIF:SYS&400d1,e%,0,-1<<30,1<<30,-K`%:PROCO(P%):ENDPROC
31348DEFPROCTa(j%):LOCALK`%:IFP%<0ORa_%=FALSEENDPROC
31349IFWy%<>0OR!A<>0ORIy%THENSWAP_%,k_%
31350IFj%=32THENj%=14
31351IFF_%=FALSEP%+=1
31352IFP%>_%THENP%=_%-1
31353PROCa(P%):Ul%=?(My%+P%*2)DIV4:A%=a%+P%*8:B%=a%+(P%+1)*8:C%=(_%-P%)*8:CALLQ:A%=My%+P%*2:B%=My%+(P%+1)*2:C%=(_%-P%)*2:CALLQ:A%=Pu%+P%:B%=Pu%+P%+1:C%=_%-P%:CALLQ:IFWy%<>0OR!A<>0ORIy%THENSWAP_%,k_%:k_%+=1:!U+=1:!d+=1:ou%+=1:Ln%+=1:hn%+=1:an%+=1
31354_%+=1:IFF_%THEN
31355My%?(P%*2)=My%?(P%*2+2):My%?(P%*2+1)=2+(My%?(P%*2+3)AND225):!(a%+P%*8)=!(a%+(P%+1)*8):!(a%+P%*8+4)=!(a%+(P%+1)*8+4):FORPJ%=0TOe_%:IFKy%!(PJ%*4)>P%THENKy%!(PJ%*4)+=1
31356NEXT:F_%=FALSE
31357ELSE:My%?(P%*2)=My%?(P%*2-2):My%?(P%*2+1)=2+(My%?(P%*2-1)AND225):!(a%+P%*8)=!(a%+(P%-1)*8):!(a%+P%*8+4)=!(a%+(P%-1)*8+4):FORPJ%=0TOe_%:IFKy%!(PJ%*4)>=P%THENKy%!(PJ%*4)+=1
31358NEXT
31359ENDIF:?(A%(qy%)+Py%)=j%:Pu%?P%=j%:IF(My%?(P%*2+1)AND1)THENMy%?(P%*2+3)=My%?(P%*2+3)AND226
31360m%=Qy%:PROCr:IFvy%THEN
31361K`%=36*(bJ%+t_%)
31362ELSE:K`%=L_%*t_%+8
31363ENDIF:SYS&400d1,e%,0,-1<<30,1<<30,-K`%:ENDPROC
31364DEFPROCQu(P%,j%):IFP%=-1ENDPROC
31365xl%+=1:IFxl%>zn%-1THENxl%=0
31366z`%+=1:IFz`%>zn%THENz`%=zn%
31367H%(xl%)=j%:I%(xl%)=P%:L%(xl%)=i%:ENDPROC
31368DEFPROCcl:LOCALTu%:IFz`%=0ENDPROC
31369PA%=H%(xl%):QB%=I%(xl%):PZ%=L%(xl%):z`%-=1:xl%-=1:IFxl%<0THENxl%=zn%-1
31370IFQB%<0THENVDU7:ENDPROC
31371PROCt_(PZ%+1):A%=A%(u%):B%=PA%:C%=i%:Tu%=USR(JJ):PROCJ(sJ%):PROCJ(N_%):PROC_:PROCp:PROCe(100,200):PROCAy(QB%):O_%=QB%+1:ENDPROC
31372DEFPROCey(Uy%):LOCALTu%:IFm%=0Xu%=0:t_%=0:ENDPROC
31373IFvy%THEN
31374B%=0:C%=m%:D%=A%(qy%):E%=p_%:Xu%=USR(VJ):B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:t_%=Xu%-USR(VJ):IFP%>-1THEN
31375A%=P%:CALLg:uJ%=!b:bJ%=!u:Py%=!w
31376ENDIF
31377ELSE:SYS&40089,,p_%,L_%TO,A`%,J`%:IFQy%=0THEN
31378t_%=0
31379ELSE:Ui%=FND(Qy%):G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!ly=1<<16:!G_=1<<16:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:Tu%=!a:t_%=USR(gy):!a=Tu%
31380ENDIF:PROCJy:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!ly=1<<16:!G_=1<<16:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:Tu%=!a:Xu%=USR(gy):!a=Tu%
31381ENDIF:ENDPROC
31382DEFPROCju:IFFNP(0)=o`%ENDPROC
31383PROCB(cB%,o`%):o`%=FNP(0):PROCB(cB%,o`%):!j=o`%:ENDPROC
31384DEFPROCTy:IFWy%<>0OR!A<>0ORIy%ENDPROC
31385LOCAL_e%,Sy%:vA%=vy%:PROCc:IFjy%THEN
31386xy%=P%:P%=-1:PROCd:P%=xy%:jy%=FALSE:PROCO(P%):PROCM(w%):PROCM(V_%)
31387ENDIF:F_%=FALSE:IFvy%=FALSEPROCxy
31388IFgy%?Vu%<>0PROCra:ENDPROC
31389IFa_%=FALSEORm%-Qy%<2ENDPROC
31390_e%=TRUE:IFCy%>=0THEN
31391FORSy%=0TOCy%:IFS%(Sy%)THEN_e%=FALSE:Sy%=Cy%
31392NEXT
31393ENDIF:IF_e%THEN
31394$hB%="(Unnamed)"+CHR$0:PROCU_
31395ENDIF:AB%=TRUE:Dy%=TRUE:PROCA(g%,3,"Stop teaching"):PROCC_(Edit_Menu%,2,"Stop teaching�F5"):PROCFi:PROCN(R_%,"Type teaching font '"+A$(i%)+"'"):P%-=1:IFP%<0THENP%=0:F_%=TRUE
31396PROCe(100,100):O_%=0:xl%=0:z`%=0:YB%=TRUE:ENDPROC
31397DEFPROCy:IFDy%=FALSEENDPROC
31398zy%=FALSE:IFFNS(zu%)THEN
31399PROCM(zu%):PROCm:IFGa%SYS&400d0,,0:Ga%=FALSE
31400zy%=TRUE
31401ENDIF:IFzy%ENDPROC
31402O_%=-1:Dy%=FALSE:PROCA(g%,3,"Type teach"):PROCC_(Edit_Menu%,2,"Type teach   �F5"):PROCG(To%,ak%,xk%):PROC_i:PROCG(e%,-1,-1):PROCO(P%):IFvA%=FALSEPROCxy
31403YB%=FALSE:PROCJ(e%):ENDPROC
31404DEFPROCHJ(ll%,h_%):IFWy%<>0OR!A<>0ORIy%ENDPROC
31405LOCALJr%,Fr%,Yr%,Ir%,Cr%,Sr%,Rr%,Vr%,He%,Ie%,`k%,Ze%,uJ%,bJ%,Py%,hP%:IFll%=h_%ORll%=-1ORh_%=-1ENDPROC
31406IFABS(ll%-h_%)>1PROCC("Optical","You can only join adjacent characters!"):ENDPROC
31407Jr%=!(a%+ll%*8)AND65535:Fr%=!(a%+2+ll%*8)AND65535:Cr%=!(a%+4+ll%*8)AND65535:Sr%=!(a%+6+ll%*8)AND65535:Yr%=!(a%+h_%*8)AND65535:Ir%=!(a%+2+h_%*8)AND65535:Rr%=!(a%+4+h_%*8)AND65535:Vr%=!(a%+6+h_%*8)AND65535:IFJr%<Yr%He%=Jr%ELSEHe%=Yr%
31408IFFr%>Ir%Ie%=Fr%ELSEIe%=Ir%
31409IFCr%<Rr%`k%=Cr%ELSE`k%=Rr%
31410IFSr%>Vr%Ze%=Sr%ELSEZe%=Vr%
31411IFll%>h_%SWAPll%,h_%
31412P%=ll%:A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:CALLg:uJ%=!b:bJ%=!u:Py%=!w:A%=h_%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:CALLg:IFWy%<>0OR!A<>0THENSWAP_%,k_%
31413hP%=!w:!(a%+ll%*8)=He%+Ie%*65536:!(a%+4+ll%*8)=`k%+Ze%*65536:C_%=A%(qy%):A%=C_%+Py%+2:B%=C_%+Py%+1:C%=m%-Py%-1:A%=Pu%+P%+2:B%=Pu%+P%+1:C%=_%-P%-1:CALLT:A%=My%+(P%+2)*2:B%=My%+(P%+1)*2:C%=(_%-P%-1)*2:CALLT:A%=a%+(P%+2)*8:B%=a%+(P%+1)*8:C%=(_%-P%-1)*8:CALLT
31414IFWy%<>0OR!A<>0THENSWAP_%,k_%:k_%-=1:!U-=1:!d-=1
31415_%-=1:m%-=1:FORPJ%=0TOe_%:IFKy%!(PJ%*4)>P%THENKy%!(PJ%*4)-=1
31416NEXT:NB%=TRUE:PROCzy:IFvy%THEN
31417m%=Qy%:Xu%=t_%:e_%=Gi%:PROCr:PROCey(p_%)
31418ELSE:m%=Qy%:Xu%=t_%:e_%=Gi%:PROCJy:PROCr
31419ENDIF:PROCJ(e%):PROCJ(R_%):PROCt:xy%=P%:ENDPROC
31420DEFPROCFi:LOCALYA%,dZ%,Tu%:M%!0=e%:SYS&400cc,,M%:IF(M%!32AND(1<<18))THEN
31421GO%=TRUE
31422ELSE:GO%=FALSE:Su%!0=Z%!4:Su%!4=Z%!8:Su%!8=Z%!12:Su%!12=Z%!16:Su%!16=Z%!20:Su%!20=Z%!24:Su%!24=Z%!28
31423ENDIF:Jn%!0=e%:SYS&400cb,,Jn%:Z%!0=e%:SYS&400cb,,Z%:ee%=Z%!24:e%=Mo%:Z%!0=e%:SYS&400c5,,Z%:oi%=(120/(V%*SJ%*2.5))*100:SWAPoi%,U%:PROCL(R_%,1<<16,FNJ(t%*V%)):SWAPoi%,U%:PROCM(Jn%!0):PROCBy:M%!0=R_%:SYS&400cb,,M%:M%!4=Z%!4:M%!12=Z%!12+38:M%!8=Z%!16+2:M%!16=Z%!16+4+118
31424M%!28=e%:SYS53,-1,5TO,,dZ%:SYS53,-1,12TO,,Da%:Da%=Da%*(1<<dZ%)+2:IFZ%!16+160>Da%Z%!16=Da%-160
31425IFM%!16+40>Da%THEN
31426M%!8=Da%-158:M%!16=Da%-38:Z%!8=Da%-158-4-(Z%!16-Z%!8):Z%!16=Da%-158-4
31427ENDIF:IFZ%!8<0Z%!8=0
31428SYS53,-1,4TO,,YA%:SYS53,-1,11TO,,bu%:bu%=bu%*(1<<YA%):IFZ%!12+42>bu%THEN
31429iu%=Z%!12+42-bu%:Z%!4-=iu%:Z%!12-=iu%:M%!4-=iu%:M%!12-=iu%
31430ENDIF:IFZ%!28=-1M%!28=-1
31431IFZ%!28=-2M%!28=-2
31432SYS&400c5,,M%:Z%!28=R_%:Z%!24=ee%:SYS&400c5,,Z%:qo%=TRUE:ENDPROC
31433DEFPROC_i:LOCALcA%:cA%=Jn%!0:Jn%!0=e%:SYS&400cb,,Jn%:e%=cA%:Jn%!0=e%:SYS&400c5,,Jn%:PROCM(Mo%):PROCM(R_%):ENDPROC
31434DEFPROCca:LOCALo%:IFAy%=-1ENDPROC
31435o%=0:REPEAT:IFQ%!(o%*16)>n%-20ORQ%!(o%*16+4)>t%-20THEN
31436IFAy%>o%THEN
31437FORN%=o%TOAy%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+12)=Q%!(N%*16+28):NEXT
31438ENDIF:Ay%-=1
31439ELSE:IFQ%!(o%*16+8)>n%-1THENQ%!(o%*16+8)=n%-1
31440IFQ%!(o%*16+12)>t%-1THENQ%!(o%*16+12)=t%-1
31441ENDIF:o%+=1:UNTILo%>Ay%:ENDPROC
31442DEFPROCk_:b_%=0:Sy%=0:REPEAT:IFS%(Sy%)THENb_%=Sy%
31443Sy%+=1:UNTILS%(Sy%-1)ORSy%>Cy%:PROCA(N_%,3,A$(b_%)):PROCq:PROCPy(N_%,s%-64,v%+64):ENDPROC
31444DEFPROCDJ(kJ%):CASEkJ%OF
31445WHEN1:FORp%=0TO1:Ka%!(p%*4)=tZ%!(p%*4):NEXT
31446WHEN3:FORp%=0TO3:Ka%!(p%*4)=JA%!(p%*4):NEXT
31447WHEN15:FORp%=0TO15:Ka%!(p%*4)=dA%!(p%*4):NEXT
31448ENDCASE:ENDPROC
31449DEFPROCAl:PROCX("Message from Optical","It is not possible to transfer text with this version of Optical. For a full version please contact Neurotron Software."):ENDPROC
31450DEFPROCj_:Z%!0=0:Z%!4=-(40*g_%):IFZ%!4>-324THENZ%!4=-324
31451Z%!8=344:Z%!12=0:SYS&400d7,jJ%,Z%:ENDPROC
31452DEFPROCDu(b%,I%):CASEI%OF
31453WHEN0:PROCqi
31454WHEN1:PROCM(IJ%)
31455WHEN6:fn%=FNZ(IJ%,6)
31456ENDCASE:ENDPROC
31457DEFPROCNi(b%,I%):Z%!0=jJ%:SYS&400cb,,Z%:X%=Z%!16-Z%!24:SYS&400cf,,Z%:v%=Z%!4:uy%=X%-v%:hJ%=(uy%-4)DIV40:DO%=Fl%:IFhJ%>=g_%THENFl%=-1ELSEFl%=hJ%
31458IFDO%<>Fl%THEN
31459Z%!0=jJ%:Z%!4=0:Z%!8=-g_%*40-40:Z%!12=344:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:PROCW(3,8):IFDO%>=0RECTANGLEFILLL%,X%-4-40*DO%,368,-36
31460IFFl%>=0RECTANGLEFILLL%,X%-4-40*Fl%,368,-36
31461SYS&400ca,,Z%TOd%:ENDWHILE
31462ENDIF:IFFl%=-1PROCP(IJ%,0,TRUE)ELSEPROCP(IJ%,0,FALSE)
31463ENDPROC
31464DEFPROCki(Y%,I%,y%,h%):Ck%=FALSE:IFg_%>=20THENPROCC("Optical","Only 20 MLE applications are allowed at once!"):ENDPROC
31465IFY%=IJ%ORY%=jJ%ENDPROC
31466Z%?0=1:Z%?1=y%MOD256:Z%?2=y%DIV256:Z%?3=h%MOD256:Z%?4=h%DIV256:Z%?5=y%MOD256:Z%?6=y%DIV256:Z%?7=h%MOD256:Z%?8=h%DIV256:SYS7,21,Z%:Z%!0=20:Z%!12=0:SYS&400e7,19,Z%,Y%TO,,xi%:IFxi%=rn%PROCC("Optical","Optical cannot be linked to itself!"):ENDPROC
31467Vo%=TRUE:Z%!0=24:Z%!12=0:Z%!16=&400c6:Z%!20=xi%:SYS&400e7,17,Z%,0:Z%!0=y%:Z%!4=h%:Z%!8=2:Z%!12=Y%:Z%!16=I%:SYS&400e7,6,Z%,xi%:ENDPROC
31468DEFPROCva(Zy$):Vo%=FALSE:SYS&400cf,,Z%:Y%=Z%!12:IFY%=Ao%THENSYS&400d4,-1:PROCC("Optical","This window has no menu for linking!"):ENDPROC
31469M$(g_%)=Zy$:Z%!0=Y%:SYS&400cb,,Z%:G%(g_%)=Z%!12-Z%!4:P%(g_%)=Z%!16-Z%!8:Z$(g_%)=FNs(Y%):IFg_%>0THEN
31470FORq%=0TOg_%-1:IFP%(q%)=P%(g_%)ANDM$(q%)=M$(g_%)ANDZ$(q%)=Z$(g_%)THENq%=g_%-1:g_%-=1
31471NEXT
31472ENDIF:g_%+=1:SYS&400d4,-1:PROCj_:PROCJ(jJ%):PROCm:ENDPROC
31473DEFPROCRl:LOCALq%:IFg_%<1ENDPROC
31474SYS&400e6,7:FORq%=0TOg_%-1:MOVEL%+2,X%-8-40*q%:PRINTM$(q%):NEXT:IFFl%>=0THENPROCW(3,8):RECTANGLEFILLL%,X%-4-40*Fl%,368,-36
31475ENDPROC
31476DEFPROCqi:LOCALq%:IFFl%=-1ORg_%=0ENDPROC
31477PROCP(IJ%,0,TRUE):IFFl%=g_%-1THENg_%-=1:Fl%=-1:PROCJ(jJ%):ENDPROC
31478FORq%=Fl%TOg_%-2:M$(q%)=M$(q%+1):Z$(q%)=Z$(q%+1):G%(q%)=G%(q%+1):P%(q%)=P%(q%+1):NEXT:g_%-=1:Fl%=-1:PROCJ(jJ%):ENDPROC
31479DEFPROCUu:F%=OPENOUT("<OptclPro$Dir>.MLESetts"):PRINT#F%,g_%:FORq%=0TO19:PRINT#F%,M$(q%),Z$(q%),G%(q%),P%(q%):NEXT:PRINT#F%,fn%:CLOSE#F%:ENDPROC
31480DEFPROCpu:F%=OPENIN("<OptclPro$Dir>.MLESetts"):INPUT#F%,g_%:FORq%=0TO19:INPUT#F%,M$(q%),Z$(q%),G%(q%),P%(q%):NEXT:INPUT#F%,fn%:CLOSE#F%:PROCS(IJ%,6,fn%):ENDPROC
31481DEFPROCWJ:LOCALO%,Wp%,Qp%,ro%,je%,Yy%,uJ%,Py%,bJ%,ZA%,Gl%,Tu%:IFvy%=FALSETHENO_%=-1:ENDPROC
31482IFXn%=FALSEENDPROC
31483IFO_%>=_%THENO_%=0
31484IF(My%?(O_%*2+1)AND2)THENO_%+=1:ENDPROC
31485SYS&406c0:IF!(a%+O_%*8)=-1AND!(a%+4+O_%*8)=-1THEN
31486WHILE!(a%+O_%*8)=-1AND!(a%+4+O_%*8)=-1ANDO_%<_%:O_%+=1:ENDWHILE:IFO_%>=_%O_%=0
31487ENDIF:IFO_%=-1ENDPROC
31488oy%=(!(a%+O_%*8)AND65535)-1:dJ%=(!(a%+2+O_%*8)AND65535)+1:T_%=(!(a%+4+O_%*8)AND65535)-1:Yu%=(!(a%+6+O_%*8)AND65535)+1:!J_=oy%:!T_=dJ%:!`y=T_%:!Q_=Yu%:Yy%=(ABS(dJ%-oy%)+1)*(ABS(Yu%-T_%)+1):IFZ%(J_%)<Yy%THENK%=FNA(Yy%,J_%)ELSEK%=TRUE
31489IFZ%(`y%)<Yy%THENK%=FNA(Yy%,`y%)ELSEK%=TRUE
31490IFK%=FALSEO_%+=1:K%=FNA(1,J_%):ENDPROC
31491A%=Uy%+1:G%=A%(J_%):H%=A%(`%)+Hu%:CALLA_:IFYo%THEN
31492IF!(A%(u%))>0THEN
31493B%=_%-1:C%=a%:Yy%=USR(Jy):IFZ%(J_%)<Yy%THENK%=FNA(Yy%,J_%)ELSEK%=TRUE
31494IFZ%(`y%)<Yy%THENK%=FNA(Yy%,`y%)ELSEK%=TRUE
31495IFK%=FALSEO_%+=1:K%=FNA(1,J_%):K%=FNA(1,`y%):SYS&406c1:ENDPROC
31496D%=Ky%:E%=O_%:!M=USR(Ay):!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!p=Ky%:!Uy=O_%:!Xy=O_%:!Zy=fJ%:!Fy=a%:!c=1:B%=_%:F%=Bu%:G%=SJ%:H%=a%:Gl%=USR(L_)
31497ELSE:Gl%=3:?s=0
31498ENDIF:!c=0:PROCc_(O_%)
31499ENDIF:O_%+=1:Yo%=TRUE:SYS&406c1:ENDPROC
31500DEFPROCly(ol):LOCALpr%,zy%,cJ:IFol=0ENDPROC
31501cJ=V:IFV<>0THEN
31502SWAPju%,`%:SWAPn%,Cn%:SWAPt%,Ca%:SWAPUy%,Fo%:SWAPyy%,De%:SWAPHu%,Qk%:SWAPc%,vB%
31503ENDIF:N=V+ol:IFN>359THENN-=360
31504IFN<0N+=360
31505V=N:zy%=FALSE:IFV=0THEN
31506K%=FNA(1,ju%):PROCL(k%,FNJ(n%*R%),FNJ(t%*V%)):PROCJ(k%):IFUu%PROCw(k%)
31507PROCY(""):_J%=0:zy%=TRUE
31508ENDIF:IFzy%ENDPROC
31509Cn%=ABS(n%*COS(RAD(N)))+ABS((yy%+1)*SIN(RAD(N))):Ca%=ABS(n%*SIN(RAD(N)))+ABS((yy%+1)*COS(RAD(N))):K%=FNA(256+(9+(Cn%DIV8))*(Ca%+5),ju%):zy%=FALSE:IFK%=FALSETHEN
31510PROCC("Optical","There is not enough free memory available to rotate this image. Need "+STR$((256+(4+Cn%DIV8)*Ca%)DIV1024)+"K."):K%=FNA(1,ju%):zy%=TRUE:V=cJ
31511ENDIF:IFzy%ENDPROC
31512!(A%(ju%))=256+(9+(Cn%DIV8))*(Ca%+5):!(A%(ju%)+8)=16:SYS46,265,A%(ju%):SYS46,271,A%(ju%),M$,0,Cn%,Ca%,18:pr%=!(A%(ju%)+8):Fo%=!(A%(ju%)+pr%+16):SYS46,24+256,A%(`%),M$TO,,c%:Hu%=c%-A%(`%)+c%!32:SYS46,24+256,A%(ju%),M$TO,,vB%:Qk%=vB%-A%(ju%)+vB%!32:De%=Ca%-1
31513A%=Uy%+1:B%=Fo%+1:C%=A%(`%)+Hu%:D%=A%(ju%)+Qk%:E%=COS(RAD(N))*(1<<16):F%=SIN(RAD(N))*(1<<16):G%=Cn%-1:H%=Ca%-1:!Bi=n%-1:!Li=yy%:!ri=(100/Ca%)*(1<<16):SYS&406c0:CALLXa:SYS&406c1:SWAPju%,`%:SWAPn%,Cn%:SWAPt%,Ca%:SWAPUy%,Fo%:SWAPyy%,De%:SWAPHu%,Qk%:SWAPc%,vB%
31514PROCL(k%,FNJ(n%*R%),FNJ(t%*V%)):PROCJ(k%):IFUu%PROCw(k%)
31515PROCY(""):_J%=0:m%=Qy%:_%=0:P%=-1:PROCJ(e%):PROCO(P%):ENDPROC
31516DEFPROCn:LOCALR%,sy%,V%,ey%,h%:SYS&406c0:SYS53,-1,11TO,,sy%:SYS53,-1,4TO,,R%:R%=1<<R%:sy%=sy%*R%:M%!0=e%:SYS&400cc,,M%:Ua=(M%!24-(M%!16-M%!8)/2)/M%!48:IFvy%THEN
31517p_%=(M%!12-M%!4-4)/16:PROCey(p_%):h%=36*Xu%+36
31518ELSE:p_%=M%!12-M%!4-32:PROCey(p_%):h%=L_%*Xu%+L_%
31519ENDIF:y%=sy%:SYS53,-1,12TO,,ey%:SYS53,-1,5TO,,V%:V%=1<<V%:ey%=ey%*V%:h%+=256:IFh%<ey%-40h%=ey%-40
31520M%!0=0:M%!12=2:M%!8=y%+2:M%!4=-h%:SYS&400d7,e%,M%:IFWy%=0AND!A=0ANDIy%=0ANDFNS(e%)THEN
31521M%!0=e%:SYS&400cc,,M%:IFvy%THENHZ%=36ELSEHZ%=L_%
31522M%!24=Ua*M%!48+(M%!16-M%!8)/2:M%!20=0:SYS&400c5,,M%:IFDy%=FALSEANDjy%=FALSEPROCO(P%)
31523ENDIF:SYS&406c1:ENDPROC
31524DEFPROCh_:IFpi%ENDPROC
31525PROCN(e%,"OCRed text"):pi%=TRUE:ENDPROC
31526DEFPROCt:IFpi%=FALSEENDPROC
31527PROCN(e%,"OCRed text *"):pi%=FALSE:ENDPROC
31528DEFPROCZy(q_%):LOCALP$,J$:PROCS(By%,10,q_%?oB%):PROCS(x%,3,q_%?hO%):PROCS(x%,4,q_%?Dr%):IFq_%?Vu%THEN
31529PROCS(x%,24,TRUE):PROCP(x%,3,TRUE):PROCP(x%,4,TRUE):PROCP(x%,7,TRUE):PROCP(x%,8,TRUE):PROCP(x%,9,TRUE):PROCP(x%,10,TRUE):PROCG(x%,18,0):PROCP(x%,11,TRUE):PROCP(x%,12,TRUE):PROCP(x%,13,TRUE):PROCP(x%,20,TRUE):PROCP(x%,21,TRUE):PROCP(x%,16,TRUE):PROCP(x%,25,FALSE):PROCP(x%,26,FALSE):IFq_%?dk%THEN
31530PROCS(x%,25,TRUE)
31531ELSE:PROCS(x%,25,FALSE)
31532ENDIF:IFq_%?sB%THEN
31533PROCS(x%,7,TRUE)
31534ELSE:PROCS(x%,7,FALSE):IFq_%?Io%THEN
31535PROCS(x%,8,TRUE)
31536ELSE:PROCS(x%,8,FALSE)
31537ENDIF:IFq_%?tB%THEN
31538PROCS(x%,13,TRUE)
31539ELSE:PROCS(x%,13,FALSE)
31540ENDIF
31541ENDIF:IFFNF(q_%+ua%)=CHR$9THEN
31542PROCS(x%,9,TRUE):PROCS(x%,11,FALSE):PROCA(x%,10,"")
31543ELSE:PROCS(x%,9,FALSE):PROCS(x%,11,TRUE):P$=FNF(q_%+ua%):IFLEN(P$)>0THEN
31544FORp%=1TOLEN(P$):J$=MID$(P$,p%,1):IFJ$=CHR$32MID$(P$,p%)="s"
31545IFJ$=CHR$9MID$(P$,p%)="t"
31546NEXT
31547ENDIF:PROCA(x%,10,P$)
31548ENDIF
31549ELSE:PROCS(x%,24,FALSE):PROCP(x%,3,FALSE):PROCP(x%,4,FALSE):PROCP(x%,7,FALSE):PROCP(x%,16,FALSE):PROCP(x%,25,TRUE):PROCP(x%,26,TRUE):IFq_%?dk%THEN
31550PROCS(x%,25,TRUE)
31551ELSE:PROCS(x%,25,FALSE)
31552ENDIF:IFq_%?sB%THEN
31553PROCS(x%,7,TRUE):PROCP(x%,8,TRUE):PROCP(x%,9,TRUE):PROCP(x%,10,TRUE):PROCG(x%,18,0):PROCP(x%,11,TRUE):PROCP(x%,12,TRUE):PROCP(x%,13,TRUE):PROCP(x%,20,TRUE):PROCP(x%,21,TRUE)
31554ELSE:PROCS(x%,7,FALSE):PROCP(x%,8,FALSE):IFq_%?Io%THEN
31555PROCP(x%,9,FALSE):PROCP(x%,10,FALSE):PROCP(x%,11,FALSE):PROCS(x%,8,TRUE)
31556ELSE:PROCP(x%,9,TRUE):PROCP(x%,10,TRUE):PROCG(x%,18,0):PROCP(x%,11,TRUE):PROCS(x%,8,FALSE)
31557ENDIF:PROCP(x%,13,FALSE):IFq_%?tB%THEN
31558PROCP(x%,12,FALSE):PROCP(x%,20,FALSE):PROCP(x%,21,FALSE):PROCS(x%,13,TRUE)
31559ELSE:PROCP(x%,12,TRUE):PROCP(x%,20,TRUE):PROCP(x%,21,TRUE):PROCS(x%,13,FALSE)
31560ENDIF
31561ENDIF:IFFNF(q_%+ua%)=CHR$9THEN
31562PROCS(x%,9,TRUE):PROCS(x%,11,FALSE):PROCA(x%,10,"")
31563ELSE:PROCS(x%,9,FALSE):PROCS(x%,11,TRUE):P$=FNF(q_%+ua%):IFLEN(P$)>0THEN
31564FORp%=1TOLEN(P$):J$=MID$(P$,p%,1):IFJ$=CHR$32MID$(P$,p%)="s"
31565IFJ$=CHR$9MID$(P$,p%)="t"
31566NEXT
31567ENDIF:PROCA(x%,10,P$)
31568ENDIF
31569ENDIF:PROCA(x%,12,STR$(q_%?tB%)):PROCS(x%,16,q_%?Ne%):PROCS(x%,17,q_%?uB%):PROCA(x%,18,CHR$(q_%?ha%)):ENDPROC
31570DEFPROCGy(q_%):LOCALP$,J$:q_%?oB%=FNZ(By%,10):q_%?hO%=FNZ(x%,3):q_%?Dr%=FNZ(x%,4):q_%?sB%=FNZ(x%,7):q_%?Io%=FNZ(x%,8):IFFNZ(x%,9)THEN
31571$(q_%+ua%)=CHR$9+CHR$0
31572ELSE:P$=FNM(x%,10):IFLEN(P$)>0THEN
31573FORp%=1TOLEN(P$):J$=MID$(P$,p%,1):IFJ$="s"ORJ$="S"MID$(P$,p%)=CHR$32
31574IFJ$="t"ORJ$="T"MID$(P$,p%)=CHR$9
31575NEXT
31576ENDIF:$(q_%+ua%)=P$+CHR$0
31577ENDIF:IFFNZ(x%,13)THEN
31578IFVAL(FNM(x%,12))=0PROCA(x%,12,"1")
31579ELSE:PROCA(x%,12,"0")
31580ENDIF:q_%?tB%=VAL(FNM(x%,12)):q_%?Ne%=FNZ(x%,16):q_%?uB%=FNZ(x%,17):P$=LEFT$(FNM(x%,18),1):IFP$=""THEN
31581q_%?ha%=0
31582ELSE:q_%?ha%=ASC(LEFT$(FNM(x%,18),1))
31583ENDIF:q_%?Vu%=FNZ(x%,24):q_%?dk%=FNZ(x%,25):ENDPROC
31584DEFPROCxi(b%,I%):IFb%>7ENDPROC
31585IFb%=1ANDI%=20I%=21ELSEIFb%=1ANDI%=21I%=20
31586IF(I%=9ORI%=11)ANDb%=1PROCS(x%,I%,TRUE)
31587CASEI%OF
31588WHEN3
31589WHEN4
31590WHEN7
31591WHEN8
31592WHEN9
31593WHEN10:PROCS(x%,11,TRUE)
31594WHEN11:PROCG(x%,10,0)
31595WHEN13
31596WHEN20:PROCi(x%,12,9,1)
31597WHEN21:PROCh(x%,12,1,1)
31598WHEN16
31599WHEN17
31600WHEN22:PROC`_:PROCvy:PROCJ(e%):IFb%<>1THEN
31601PROCb:IFjy%=FALSEANDDy%=FALSEPROCO(P%)
31602ELSE:PROCCJ(x%)
31603ENDIF
31604WHEN23:PROCb
31605WHEN24
31606OTHERWISE:ENDPROC
31607ENDCASE:PROCGy(kr%):PROCZy(kr%):ENDPROC
31608DEFPROCDl(I%,j%):IF(j%<>13ANDI%<>18)ORFNa(x%,22)THENSYS&400dc,j%:ENDPROC
31609PROCS(x%,22,TRUE):PROC`_:PROCvy:PROCb:IFjy%=FALSEANDDy%=FALSEPROCO(P%)
31610PROCS(x%,22,FALSE):ENDPROC
31611DEFPROCvy:PROCGy(gy%):IFgy%?Vu%<>0ANDAy%<1PROCX("Message from Optical","Text cannot be formatted as a table because less than two frames have been defined."):gy%?Vu%=0:PROCZy(gy%):PROCGy(gy%)
31612IFgy%?Vu%<>0THEN
31613PROCZ(w%,7):PROCZ(w%,10):PROCZ(w%,2)
31614ENDIF:m%=Qy%:Xu%=t_%:e_%=Gi%:IFvy%=FALSETHENPROCJy
31615PROCr:IFWy%=0AND!A=0ANDIy%=0PROCBy:PROCJ(e%)
31616IFgy%?Vu%THEN
31617PROCP(SaveText_Window%,7,FALSE):PROCS(SaveText_Window%,7,TRUE):PROCo(SaveText_Window%,3,"Sfile_dfe")
31618ELSE:IFFNZ(SaveText_Window%,7)PROCS(SaveText_Window%,4,TRUE):PROCo(SaveText_Window%,3,"Sfile_fff")
31619PROCP(SaveText_Window%,7,TRUE)
31620ENDIF:ENDPROC
31621DEFPROCdi:IFmu%OROl%ORPl%ORZl%<>0ENDPROC
31622Z%!0=Y%:SYS&400cb,,Z%:so%=Z%!28:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:SYS&400cf,,Z%:Vy%=Z%!0-L%:Hy%=X%-Z%!4:by%=Vy%:ty%=Hy%:__%=Y%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:SYS&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0
31623SYS&400c9,,Z%TOd%:WHILEd%:PROCW(3,11):LINEVy%+L%,X%-Hy%,L%+by%,X%-ty%:SYS&400ca,,Z%TOd%:ENDWHILE:Pl%=TRUE:ENDPROC
31624DEFPROCkl:LOCALUJ%,x_%,N,be%,x`%:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:SYS&400c9,,M%TOd%:L%=M%!4-M%!20:X%=M%!16-M%!24:PROCW(3,11):WHILEd%:PROCW(3,11):LINEVy%+L%,X%-Hy%,by%+L%,X%-ty%:SYS&400ca,,M%TOd%:ENDWHILE:Z%!0=__%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24
31625IFABS(by%-Vy%)<32ANDABS(ty%-Hy%)<32ENDPROC
31626IFby%-Vy%=0THEN
31627IFty%>Hy%THEN
31628PROCly(90)
31629ELSE:PROCly(270)
31630ENDIF
31631ELSE:be%=by%-Vy%:x`%=ty%-Hy%:N=DEG(ATN(x`%/be%)):IFbe%<0N=180+N
31632PROCly(N)
31633ENDIF:ENDPROC
31634DEFPROCQ_:V=0:K%=FNA(1,ju%):ENDPROC
31635DEFPROCzl:SYS&406c0:Z%!0=k%:SYS&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:SYS&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:Zy%=-1:IFAy%>-1THEN
31636FORN%=0TOAy%:IFZ_%>=Q%!(N%*16)*U%/100ANDZ_%<=Q%!(N%*16+8)*U%/100ANDuy%>=Q%!(N%*16+4)*U%/100ANDuy%<=Q%!(N%*16+12)*U%/100THENZy%=N%:N%=Ay%
31637IFZ_%>=Q%!(N%*16)*U%/100-8/R%ANDZ_%<=Q%!(N%*16)*U%/100+8/R%ANDuy%>=Q%!(N%*16+4)*U%/100-8/V%ANDuy%<=Q%!(N%*16+4)*U%/100+8/V%THENZy%=N%:N%=Ay%
31638IFZ_%>=Q%!(N%*16+8)*U%/100-8/R%ANDZ_%<=Q%!(N%*16+8)*U%/100+8/R%ANDuy%>=Q%!(N%*16+4)*U%/100-8/V%ANDuy%<=Q%!(N%*16+4)*U%/100+8/V%THENZy%=N%:N%=Ay%
31639IFZ_%>=Q%!(N%*16+8)*U%/100-8/R%ANDZ_%<=Q%!(N%*16+8)*U%/100+8/R%ANDuy%>=Q%!(N%*16+12)*U%/100-8/V%ANDuy%<=Q%!(N%*16+12)*U%/100+8/V%THENZy%=N%:N%=Ay%
31640IFZ_%>=Q%!(N%*16)*U%/100-8/R%ANDZ_%<=Q%!(N%*16)*U%/100+8/R%ANDuy%>=Q%!(N%*16+12)*U%/100-8/V%ANDuy%<=Q%!(N%*16+12)*U%/100+8/V%THENZy%=N%:N%=Ay%
31641NEXT
31642ENDIF:PROCdy(Zy%,b%):ENDPROC
31643DEFPROCdy(Zy%,b%):LOCALMn%,Sn%:IFb%=256+4ANDui%=TRUEANDAy%>0THENENDPROC
31644IFb%=256+4THENb%=4
31645SYS46,Nl%,A%(`%),M$TO,,,n%,t%:SYS46,24+256,A%(`%),M$TO,,c%:Uy%=c%!16:yy%=c%!20:Hu%=c%-A%(`%)+c%!32:IFZy%=-1THEN
31646!Dy=0:!Qy=0:Mn%=n%:Sn%=t%
31647ELSE:!Dy=Q%!(Zy%*16):!Qy=Q%!(Zy%*16+4):Mn%=Q%!(Zy%*16+8):Sn%=Q%!(Zy%*16+12):IF!Dy>Mn%SWAP!Dy,Mn%
31648IF!Qy>Sn%SWAP!Qy,Sn%
31649Mn%=Mn%-!Dy:Sn%=Sn%-!Qy
31650ENDIF:!u_=FNK(C):!l_=FNR(F):!hy=Mn%/!u_:!X_=Sn%/!l_:!ql=Mn%:!Hl=Sn%:IFAl%<=100THEN
31651!H_=7
31652ELSE:IFAl%<=300THEN
31653!H_=8
31654ELSE:!H_=9
31655ENDIF
31656ENDIF:K%=FNA(!hy*!X_,go%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to find any columns. Need "+STR$((!hy*!X_)DIV1024)+"K."):ENDPROC
31657!ji=ca%:A%=Uy%+1:B%=A%(`%)+Hu%:C%=A%(go%):D%=Al%/100:E%=JP%:fu%=USR(nJ):K%=FNA(1,go%):PROCSy:IFb%=1THEN
31658IFZy%=-1Zy%=Ay%+1
31659fu%-=1:IFfu%+Ay%>bl%fu%=bl%-Ay%
31660IFfu%>0ANDAy%>Zy%THEN
31661FORN%=Ay%TOZy%+1STEP-1:Q%!(N%*16+fu%*16)=Q%!(N%*16):Q%!(N%*16+4+fu%*16)=Q%!(N%*16+4):Q%!(N%*16+8+fu%*16)=Q%!(N%*16+8):Q%!(N%*16+12+fu%*16)=Q%!(N%*16+12):NEXT
31662ENDIF:IFfu%>-1THEN
31663FORN%=0TOfu%:Q%!(N%*16+Zy%*16)=ca%!(N%*16):Q%!(N%*16+4+Zy%*16)=ca%!(N%*16+4):Q%!(N%*16+8+Zy%*16)=ca%!(N%*16+8):Q%!(N%*16+12+Zy%*16)=ca%!(N%*16+12):NEXT
31664ENDIF:IFZy%=Ay%+1Ay%+=1
31665Ay%+=fu%
31666ELSE:IFfu%>bl%fu%=bl%
31667IFfu%>0THEN
31668FORN%=0TOfu%-1:Q%!(N%*16)=ca%!(N%*16):Q%!(N%*16+4)=ca%!(N%*16+4):Q%!(N%*16+8)=ca%!(N%*16+8):Q%!(N%*16+12)=ca%!(N%*16+12):NEXT
31669ENDIF:Ay%=fu%-1
31670ENDIF:PROCSy:SYS&406c1:ENDPROC
31671DEFPROCSy:IFAy%<0ENDPROC
31672Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:FORN%=0TOAy%:PROCW(3,10)
31673RECTANGLEL%+Q%!(N%*16)*R%*U%/100,X%-Q%!(N%*16+4)*V%*U%/100,(Q%!(N%*16+8)-Q%!(N%*16))*R%*U%/100,-(Q%!(N%*16+12)-Q%!(N%*16+4))*V%*U%/100:PROCW(3,8):RECTANGLEL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
31674RECTANGLEL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:RECTANGLEL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:RECTANGLEL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:IFN%>0THEN
31675PROCW(3,11):LINEL%+Q%!(N%*16-8)*R%*U%/100-32,X%-Q%!(N%*16-4)*V%*U%/100,L%+Q%!(N%*16)*R%*U%/100+32,X%-Q%!(N%*16+4)*V%*U%/100:RECTANGLEFILLL%+Q%!(N%*16-8)*R%*U%/100-8-32,X%-Q%!(N%*16-4)*V%*U%/100-8,16,16
31676RECTANGLEFILLL%+Q%!(N%*16)*R%*U%/100-8+32,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
31677ENDIF:NEXT:SYS&400ca,,Z%TOd%:ENDWHILE:ENDPROC
31678DEFPROCmu:IFW_%<0ENDPROC
31679Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:FORN%=0TOW_%:PROCW(3,11)
31680RECTANGLEL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,(f%!(N%*16+8)-f%!(N%*16))*R%*U%/100,-(f%!(N%*16+12)-f%!(N%*16+4))*V%*U%/100:RECTANGLEL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16
31681RECTANGLEL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16:RECTANGLEL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16:RECTANGLEL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16
31682LINEL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:LINEL%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:NEXT:SYS&400ca,,Z%TOd%:ENDWHILE:ENDPROC
31683DEFPROCIa:PROCA(eJ%,5,STR$(C)):PROCA(eJ%,9,STR$(F)):PROCT(eJ%,y%,h%):ENDPROC
31684DEFPROCql(b%,I%):IFb%=1ANDI%=6I%=7ELSEIFb%=1ANDI%=7I%=6
31685IFb%=1ANDI%=10I%=11ELSEIFb%=1ANDI%=11I%=10
31686CASEI%OF
31687WHEN13:F=VAL(FNM(eJ%,9)):C=VAL(FNM(eJ%,5)):IFF<1F=1
31688IFC<1C=1
31689PROCA(eJ%,5,STR$(C)):PROCA(eJ%,9,STR$(F)):IFb%<>1SYS&400d4,-1
31690WHEN14:PROCA(eJ%,5,STR$(C)):PROCA(eJ%,9,STR$(F)):IFb%<>1SYS&400d4,-1
31691WHEN6:PROCi(eJ%,5,999,1)
31692WHEN7:PROCh(eJ%,5,1,1)
31693WHEN10:PROCi(eJ%,9,999,1)
31694WHEN11:PROCh(eJ%,9,1,1)
31695ENDCASE:F=VAL(FNM(eJ%,9)):C=VAL(FNM(eJ%,5)):IFF<1F=1
31696IFC<1C=1
31697ENDPROC
31698DEFPROCwa(I%,j%):IFj%<>13ANDI%<>9ENDPROC
31699F=VAL(FNM(eJ%,9)):C=VAL(FNM(eJ%,5)):IFF<1F=1
31700IFC<1C=1
31701SYS&400d4,-1:ENDPROC
31702DEFPROCVJ:IFWy%<>0OR!A<>0ORIy%OR(My%?(P%*2+1)AND2)<>0ENDPROC
31703M%!0=zu%:SYS&400cb,,M%:M%!4=y%-U_%*2:M%!8=h%-I_%*2:M%!12=y%+U_%*2:M%!16=h%+I_%*2:SYS&400c5,,M%:PROCJ(zu%):M%!0=zu%:SYS&400cb,,M%:M%!4+=16:M%!12-=16:IFM%!12<M%!4PROCM(zu%):PROCC("Optical","This character cannot be split as it is too narrow."):ENDPROC
31704Z%!0=1:Z%!1=M%!4MOD256:Z%!2=M%!4DIV256:Z%!3=M%!8MOD256:Z%!4=M%!8DIV256:Z%!5=M%!12MOD256:Z%!6=M%!12DIV256:Z%!7=M%!16MOD256:Z%!8=M%!16DIV256:SYS7,21,Z%:ra%=-1:PROCG(e%,-1,-1):Ga%=FALSE:ENDPROC
31705DEFPROCQa:z%!0=2:z%!4=2:z%!8=1:z%!12=1:PROCI(A%(Nu%),"Learner",L%,X%-I_%*4,0,z%):PROCW(3,11):LINEra%,X%,ra%,-I_%*4:ENDPROC
31706DEFPROCIu(b%,I%):M%!0=zu%:SYS&400cb,,M%:PROCq:IFs%-M%!4<16ORM%!12-s%<16PROCM(zu%):PROCm:ENDPROC
31707xn%=s%:M%!24=M%!4+16:M%!28=M%!8:M%!32=M%!12-16:M%!36=M%!16:M%!4=7:SYS&400d0,,M%:Ga%=TRUE:ENDPROC
31708DEFPROCOl:LOCALzi%,Nk%,CZ%:PROCq:M%!0=zu%:SYS&400cb,,M%:zi%=M%!4:C_%=A%(qy%):K%=FNA(Z%(qy%)+1,qy%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to split this character. Need an extra 1K."):ENDPROC
31709Nk%=!(a%+P%*8)AND65535:CZ%=!(a%+P%*8+2)AND65535:A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:CALLg:IFWy%<>0OR!A<>0THENSWAP_%,k_%
31710uJ%=!b:bJ%=!u:Py%=!w:A%=C_%+Py%:B%=C_%+Py%+1:C%=m%-Py%:CALLQ:A%=Pu%+P%:B%=Pu%+P%+1:C%=_%-P%:CALLQ:A%=My%+P%*2:B%=My%+(P%+1)*2:C%=(_%-P%)*2:CALLQ:A%=a%+P%*8:B%=a%+P%*8+8:C%=(_%-P%)*8:CALLQ:IFWy%<>0OR!A<>0THENSWAP_%,k_%:k_%+=1:!U+=1:!d+=1
31711m%+=1:_%+=1:IFxn%>s%THENSWAPxn%,s%
31712!(a%+P%*8+8)=Nk%+(xn%-zi%)/4+CZ%*65536:!(a%+P%*8+12)=!(a%+P%*8+4):?(a%+P%*8+2)=(Nk%+(s%-zi%)/4-1)MOD256:?(a%+P%*8+3)=(Nk%+(s%-zi%)/4-1)DIV256:FORPJ%=0TOe_%:IFKy%!(PJ%*4)>P%THENKy%!(PJ%*4)+=1
31713NEXT:P%+=1:NB%=TRUE:PROCzy:P%-=1:NB%=TRUE:PROCzy:IFvy%THEN
31714PROCey(p_%)
31715ELSE:m%=Qy%:Xu%=t_%:e_%=Gi%:PROCJy:PROCr
31716ENDIF:PROCJ(e%):PROCJ(R_%):PROCt:xy%=P%:PROCM(zu%):PROCm:ENDPROC
31717DEFPROCpl:IFs%=ra%ENDPROC
31718M%!0=zu%:SYS&400cb,,M%:Z%!0=zu%:Z%!4=0:Z%!8=-I_%*4:Z%!12=U_%*4:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:PROCW(3,11):CASEGa%OF
31719WHENFALSE:IFra%>-1THEN
31720LINEra%,M%!8,ra%,M%!16
31721ENDIF:LINEs%,M%!8,s%,M%!16
31722WHENTRUE:RECTANGLEFILLxn%,M%!8,ra%-xn%,M%!16-M%!8:RECTANGLEFILLxn%,M%!8,s%-xn%,M%!16-M%!8
31723ENDCASE:SYS&400ca,,Z%TOd%:ENDWHILE:ra%=s%:ENDPROC
31724DEFPROCky(F$):IFba%?i%<>255SYS&40082,ba%?i%
31725SYS&60081,,F$,14*16,14*16,0,0TOOJ%;B_%:IFB_%AND1THENPROCC("Optical",FNF(OJ%+4)):OJ%=-1
31726ba%?i%=OJ%:S$(i%)=F$:PROCJJ:PROCA(HJ%,3,F$):IFvy%=FALSETHENPROCJy:PROCn
31727IFFNS(e%)THENPROCJ(e%)
31728ENDPROC
31729DEFPROCN_(RJ%,Sl%):LOCALv_%:IFSl%<RJ%ENDPROC
31730FORv_%=RJ%TOSl%:IFba%?v_%<>255SYS&40082,ba%?v_%
31731SYS&60081,,S$(v_%),14*16,14*16,0,0TOOJ%;B_%:IFB_%AND1THENPROCX("Optical","Error while trying to find a display font : "+FNF(OJ%+4)):OJ%=255
31732ba%?v_%=OJ%:NEXT:PROCJJ:ENDPROC
31733DEFPROCTl:Z%!0=By%:Z%!4=52:SYS&400ce,,Z%:my%=L%+Z%!8+4:A_%=X%+Z%!12+4:n_%=Z%!16-Z%!8-10:cJ%=Z%!20-Z%!12-10:Zn%=n_%*(dl%/5):SYS&400e6,11:RECTANGLEFILLmy%,A_%,Zn%-2,cJ%:SYS&400e6,10:RECTANGLEFILLmy%+Zn%,A_%,n_%-Zn%,cJ%:ENDPROC
31734DEFPROCfu:Z%!0=By%:SYS&400cb,,Z%:L%=Z%!4:X%=Z%!16:Z%!4=52:SYS&400ce,,Z%:my%=L%+Z%!8+4:A_%=X%+Z%!12+4:n_%=Z%!16-Z%!8-10:cJ%=Z%!20-Z%!12-10:M%!24=my%:M%!28=A_%:M%!32=my%+n_%:M%!36=A_%+cJ%:M%!4=7:SYS&400d0,,M%:VO%=TRUE:ENDPROC
31735DEFPROCO_:PROCA(By%,55,STR$(dl%)):IFFNS(By%)=FALSEENDPROC
31736Z%!0=By%:SYS&400cb,,Z%:L%=Z%!4:X%=Z%!16:Z%!4=52:SYS&400ce,,Z%:my%=L%+Z%!8+4:A_%=X%+Z%!12+4:n_%=Z%!16-Z%!8-10:cJ%=Z%!20-Z%!12-10:Zn%=n_%*(dl%/5):M%!0=By%:M%!4=Z%!8:M%!8=Z%!12:M%!12=Z%!16:M%!16=Z%!20:SYS&400c9,,M%TOd%:WHILEd%:SYS&400e6,11
31737RECTANGLEFILLmy%,A_%,Zn%-2,cJ%:SYS&400e6,10:RECTANGLEFILLmy%+Zn%,A_%,n_%-Zn%,cJ%:SYS&400ca,,M%TOd%:ENDWHILE:ENDPROC
31738DEFPROCal:Z%!0=By%:SYS&400cb,,Z%:L%=Z%!4:Z%!4=52:SYS&400ce,,Z%:my%=L%+Z%!8+4:n_%=Z%!16-Z%!8-10:dl%=(s%-my%)/n_%*5+.5:IFdl%<1dl%=1
31739IFdl%>4dl%=4
31740PROCO_:PROCr_:ENDPROC
31741DEFPROCr_:CASEdl%OF
31742WHEN1:!j=1:!Oy=2:!Iy=1:!Y=0:!ey=1:!ry=512:!zy=24
31743WHEN2:!j=1:!Oy=2:!Iy=1:!Y=0:!ey=0:!ry=384:!zy=32
31744WHEN3:!j=1:!Oy=2:!Iy=1:!Y=0:!ey=0:!ry=0:!zy=56
31745WHEN4:!j=1:!Oy=1:!Iy=1:!Y=0:!ey=0:!ry=0:!zy=80
31746ENDCASE:ENDPROC
31747DEFPROCy_:SYS&406c2:PROCD(u_%):PROCn_(u_%):PROCG(u_%,6,LEN(FNM(u_%,6))):ENDPROC
31748DEFPROCGa(b%,I%):IF(I%>=2ORI%<=5)ANDb%=1PROCS(u_%,I%,TRUE)
31749IFI%=8THENPROCPJ
31750ENDPROC
31751DEFPROCpi(I%,j%):IFj%<>13SYS&400dc,j%:ENDPROC
31752PROCS(u_%,8,1):PROCPJ:PROCS(u_%,8,0):ENDPROC
31753DEFPROCPJ:PROCm:IFFNZ(u_%,2)Al%=200:Ll%=200
31754IFFNZ(u_%,3)Al%=300:Ll%=300
31755IFFNZ(u_%,4)Al%=400:Ll%=400
31756IFFNZ(u_%,5)Al%=VAL(FNM(u_%,6)):Ll%=VAL(FNM(u_%,7))
31757PROCM(u_%):SYS&406c0:PROCXy:ENDPROC
31758DEFFNK(fu):LOCALpy:py=fu/S:=py*Al%
31759DEFFNR(fu):LOCALpy:py=fu/S:=py*Ll%
31760DEFPROCml:IFFNZ(u_%,2)AJ%=200:ZJ%=200
31761IFFNZ(u_%,3)AJ%=300:ZJ%=300
31762IFFNZ(u_%,4)AJ%=400:ZJ%=400
31763IFFNZ(u_%,5)AJ%=VAL(FNM(u_%,6)):ZJ%=VAL(FNM(u_%,7))
31764ENDPROC
31765DEFPROCIi(AJ%,ZJ%):IFAJ%=200ANDZJ%=200THENPROCS(u_%,2,1):ENDPROC
31766IFAJ%=300ANDZJ%=300THENPROCS(u_%,3,1):ENDPROC
31767IFAJ%=400ANDZJ%=400THENPROCS(u_%,4,1):ENDPROC
31768PROCS(u_%,5,1):PROCA(u_%,6,STR$(AJ%)):PROCA(u_%,7,STR$(ZJ%)):ENDPROC
31769DEFPROCLi:IFWy%<>0OR!A<>0ORIy%IFou%=0ENDPROC
31770IFWy%<>0OR!A<>0ORIy%THENB%=ou%+A%(qy%)ELSEB%=m%+A%(qy%)
31771C%=A%(qy%):D%=p_%:E%=Qy%+A%(qy%):F%=Gy%:G%=Ly%-36:H%=gy%?ha%:!fl=My%:!Au=YB%:VDU29,L%+2;X%-6;:CALLil:VDU29,0;0;:IFP%>=0ANDa_%AND(Dy%ORjy%)PROCg(P%,-1)
31772ENDPROC
31773DEFPROC_J:M%!0=163:M%!4=-1:SYS49,M%,Cy:ENDPROC
31774DEFPROCrl:LOCALP_%,m_%:IFGy%<0Gy%=0
31775IFLy%<0Ly%=0
31776dO%=(Ly%-16)DIVL_%-1:eO%=(Gy%-16)DIVL_%+1:IFdO%>eO%ENDPROC
31777IFdO%<0dO%=0
31778IFeO%<0eO%=0
31779SYS53,-1,3TO,,m_%:IFm_%=-1THENm_%=16000000
31780IF(m_%>15ANDSe%<300)ORQy%=0THEN
31781SYS&4074f,0,-256,0,14
31782ELSE:SYS&4074f,0,-256,&80808000,14
31783ENDIF:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!ly=dO%:!G_=eO%:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:P_%=USR(gy):IFP%>=0ANDa_%ANDjy%PROCg(P%,-1)
31784ENDPROC
31785DEFPROCJJ:LOCALfZ%,CB%,VA%,DB%:IFCy%<0ENDPROC
31786L_%=0:SYS&60081,,"Trinity.Medium",14*16,14*16,0,0TOJo%;B_%:IF(B_%AND1)=FALSETHEN
31787SYS&40084,Jo%TO,fZ%,CB%,VA%,DB%:IFDB%-CB%-2>L_%THENL_%=DB%-CB%-2
31788ENDIF:FORv_%=0TOCy%:OJ%=ba%?v_%:IFOJ%<>255THEN
31789SYS&40084,OJ%TO,fZ%,CB%,VA%,DB%:IFDB%-CB%-2>L_%THENL_%=DB%-CB%-2
31790ENDIF:NEXT:ENDPROC
31791DEFFND(au%):IFm%=0THEN=0
31792K%=FNA(Z%(qy%)*4,Ki%):IFK%=FALSETHENPROCC("Optical","There is not enough memory available to display text with font changes."):vy%=TRUE:PROCV(Display_Menu%,1):PROCn:PROCJ(e%):=0
31793SYS&60081,,"Trinity.Medium",14*16,14*16,0,0TOJo%;B_%:IFB_%AND1THENPROCC("Optical",FNF(OJ%+4)):ENDPROC
31794SYS&4074e,0,-256,&dd000000,14TO,!gu,!Zl,!mu:SYS&4074e,0,-256,&dd6e6e00,14TO,!lJ,!Su,!Cu:SYS&4074e,0,-256,56576,14TO,!Ui,!di,!vi:SYS&4074e,0,-256,&bbff00,14TO,!iu,!uu,!sa:SYS&4074e,0,-256,&cc0000,14TO,!pl,!vl,!bl:SYS&4074e,0,-256,0,14TO,!pi,!Wi,!Fu
31795SYS&4074e,0,-256,&80808000,14TO,!bJ,!du,!tJ:A%=A%(Ki%):B%=A%(qy%):C%=Z%(Ki%):D%=au%-1:E%=Jo%:F%=ba%:!yi=Qy%:!Qa=My%+1:!hJ=Se%:pk%=USR(zl):K%=FNA(pk%+256,Ki%):=pk%
31796DEFPROCY_(Vi%,Sl%):IFSl%<Vi%ENDPROC
31797IFgy%?Vu%<>0ANDAy%<1PROCX("Message from Optical","Text cannot be formatted as a table because less than two frames have been defined."):gy%?Vu%=0:PROCZy(gy%):PROCGy(gy%)
31798A%=A%(qy%):B%=jB%:C%=Vi%:D%=Sl%-1:E%=My%:F%=KJ%:CALLBl:m%=Qy%:PROCr:ENDPROC
31799DEFPROCJy:IFWy%<>0OR!A<>0ORIy%THENUi%=FND(ou%)ELSEUi%=FND(m%)
31800SYS&40089,,p_%,L_%TO,A`%,J`%:ENDPROC
31801DEFPROCg(RJ%,Sl%):IF(Wy%<>0OR!A<>0ORIy%)ANDjy%ENDPROC
31802LOCALuJ%,bJ%,Py%,el%,BZ%,`r%,Mr%,l_%,RZ%:RZ%=RJ%:IFXa%THENB%(0)=-1000:B%(1)=-1000
31803IFXa%OR(RJ%<>B%(0)ANDRJ%<>B%(1))THEN
31804IFXa%=FALSEANDRJ%<>B%(0)THENl_%=1ELSEl_%=0
31805B%(l_%)=RJ%:J%(l_%)=0:IFjy%THEN
31806SWAPRJ%,P%:!o=0:PROCOJ:SWAPRJ%,P%:IF!X<100THEN!R_+=1
31807Sl%=RJ%+!R_-1:PROCMy(RJ%,-1):BZ%=rJ%:`r%=Ou%:REPEAT:el%=RJ%+1:zy%=FALSE:Mr%=FALSE:WHILEel%<=Sl%ANDzy%=FALSE:PROCMy(el%,-1):IFrJ%>BZ%THEN
31808el%=el%-1:zy%=TRUE
31809ELSE:IFOu%<`r%THENel%=el%-1:zy%=TRUE:Mr%=TRUEELSEel%+=1
31810ENDIF:ENDWHILE:IFel%>Sl%THENel%=Sl%
31811PROCMy(RJ%,el%):N%(l_%,J%(l_%))=Ou%:Q%(l_%,J%(l_%))=oy%:U%(l_%,J%(l_%))=rJ%:X%(l_%,J%(l_%))=T_%:J%(l_%)+=1:RJ%=el%+1:IFMr%THENRJ%+=1
31812UNTILel%>=Sl%
31813ELSE:IFSl%=-1Sl%=RJ%
31814PROCMy(RJ%,Sl%):N%(l_%,J%(l_%))=Ou%:Q%(l_%,J%(l_%))=oy%:U%(l_%,J%(l_%))=rJ%:X%(l_%,J%(l_%))=T_%:J%(l_%)+=1
31815ENDIF
31816ENDIF:IFjy%PROCW(3,7)ELSEPROCW(3,8)
31817IFRZ%=B%(0)THENl_%=0ELSEl_%=1
31818FORFa%=0TOJ%(l_%)-1:RECTANGLEFILLL%+N%(l_%,Fa%),X%-U%(l_%,Fa%),Q%(l_%,Fa%),-X%(l_%,Fa%):NEXT:Xa%=FALSE:ENDPROC
31819DEFPROCO(RJ%):LOCALuJ%,bJ%,Py%:IFDy%ENDPROC
31820SYS&400d3,,Z%:IFZ%!0<>e%ENDPROC
31821IFvy%=FALSEPROCG(e%,-1,-1):ENDPROC
31822IFgy%?Vu%<>0ORa_%=FALSEORjy%THENRJ%=-1
31823IFRJ%<0THEN
31824SYS&600d2,e%,-1,-1,-1,-1,-1
31825ELSE:IFRJ%=-1THENRJ%=0:F_%=TRUE
31826PROCMy(RJ%,-1):IFF_%ANDvy%=TRUEOu%-=16
31827SYS&600d2,e%,-1,Ou%+oy%+2,-rJ%-T_%-4,40,-1
31828ENDIF:ENDPROC
31829DEFPROCA_:LOCALrO%,`a%:IFvy%THEN`a%=36ELSE`a%=L_%
31830rO%=2:IFP%<0ORrJ%=-1ENDPROC
31831IFa_%ANDFNS(e%)THEN
31832M%!0=e%:SYS&400cb,,M%:X%=M%!16-M%!24:IFX%-rJ%+4+rO%*`a%>M%!16THEN
31833M%!24=-rJ%+4+rO%*`a%:SYS&400c5,,M%
31834ENDIF:IFX%-rJ%+4-`a%-rO%*`a%<M%!8THEN
31835M%!24=-rJ%+4-`a%-rO%*`a%+M%!16-M%!8:SYS&400c5,,M%
31836ENDIF
31837ENDIF:ENDPROC
31838DEFPROCMy(Wo%,d`%):IFvy%=FALSEANDUi%=0THENOu%=0:rJ%=0:oy%=0:T_%=0:ENDPROC
31839IFvy%THEN
31840PROCa(Wo%):Ou%=2+16*uJ%:rJ%=2+36*(bJ%+t_%):IFd`%>-1THEN
31841PROCa(d`%):oy%=14+2+16*uJ%-Ou%:T_%=34
31842ELSE:oy%=14:T_%=34
31843ENDIF
31844ELSE:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!Wy=p_%:!Py=L_%:!t_=Wo%:IFjy%THEN!ky=1ELSE!ky=F_%
31845Bi%=USR(m_):Ou%=!ZJ+14:oy%=!Ii:rJ%=!zJ*L_%+4:T_%=L_%:IFd`%>-1THEN
31846!t_=d`%:!ky=0:Bi%=USR(m_):oy%=!ZJ+14-Ou%:T_%+=!zJ*L_%+4-rJ%
31847ENDIF:IFjy%THENrJ%+=8
31848ENDIF:ENDPROC
31849DEFPROCty(RJ%,Sl%):LOCALOu%,rJ%,oy%,T_%:IFSl%=-1Sl%=RJ%
31850PROCKJ(RJ%,Sl%):PROCW(3,8):RECTANGLEFILLL%+Ou%*R%*U%/100,X%-(rJ%+1)*V%*U%/100,(oy%-Ou%)*R%*U%/100,-(T_%-rJ%)*V%*U%/100:ENDPROC
31851DEFPROCKJ(Wo%,d`%):Ou%=!(a%+Wo%*8)AND65535:oy%=!(a%+2+d`%*8)AND65535:rJ%=1<<16:T_%=0:FORpy%=Wo%TOd`%:IF(!(a%+4+py%*8)AND65535)<rJ%THENrJ%=!(a%+4+py%*8)AND65535
31852IF(!(a%+6+py%*8)AND65535)>T_%THENT_%=!(a%+6+py%*8)AND65535
31853NEXT:ENDPROC
31854DEFPROCFJ:M%!0=e%:SYS&400cb,,M%:IFvy%THEN
31855IFINT((M%!12-M%!4-4)/16)<>p_%THENYO%=TRUE
31856ELSE:IFM%!12-M%!4-32<>p_%THENYO%=TRUE
31857ENDIF:ENDPROC
31858DEFPROCBy:PROCgJ:PROCn:PROChy:!Z%=e%:SYS&400cb,,Z%:IFvy%THEN
31859Z%!24=-(36*t_%-16)
31860ELSE:Z%!24=-(L_%*t_%-L_%/4)
31861ENDIF:SYS&400c5,,Z%:xO%=TRUE:PROCG(e%,-1,-1):PROCO(P%):ENDPROC
31862DEFPROCa(py%):IFpy%=-1THENuJ%=0:Py%=Qy%:bJ%=0:ENDPROC
31863A%=py%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:CALLg:uJ%=!b:bJ%=!u:Py%=!w:ENDPROC
31864DEFFNc(KP%):B%=KP%:C%=A%(qy%)+Qy%:D%=m%-Qy%:=USR(au)
31865DEFFNT(y%,h%):IF_%<1OR(ou%=0AND(Wy%<>0OR!A<>0ORIy%))THEN!K=-1:F_%=FALSE:=!K
31866IFWy%<>0OR!A<>0ORIy%THENSWAPm%,ou%:SWAP_%,Ln%
31867IFvy%THEN
31868B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:F%=(h%DIV36)-t_%:G%=y%DIV16:CALLkJ
31869ELSE:y%-=8:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:!ti=(h%-16)DIVL_%:SYS&40089,,y%TO,y%:!Ll=y%:!K=USR(li)
31870ENDIF:IFjy%THEN
31871IF!K=-2THEN!K=-1
31872ELSE:IF!K=-2OR!K>=_%THEN!K=_%-1:!y_=0
31873IFDy%=FALSETHEN
31874F_%=!y_:IFF_%THEN!K+=1
31875ENDIF
31876ENDIF:IFWy%<>0OR!A<>0ORIy%THENSWAPm%,ou%:SWAP_%,Ln%
31877=!K
31878DEFPROCxy:IFvy%=FALSETHEN
31879vy%=TRUE:K%=FNA(1,Ki%):PROCV(Display_Menu%,1):PROCJ(e%):PROCn
31880ELSE:PROCcJ:vy%=FALSE:PROCy:O_%=-1:YB%=FALSE:PROCK(Display_Menu%,1):PROCn:PROCJy:PROCJ(e%)
31881ENDIF:SYS&600d3,,M%:IFM%!0=e%ANDDy%=FALSEANDjy%=FALSEPROCO(P%)
31882ENDPROC
31883DEFPROCAu(Y%):LOCALPB%,ho%:ho%=k%:PB%=NOT(Uu%):M%!0=ho%:SYS&400cc,,M%:M%!0=M%!44:M%!4=M%!48:M%!8=M%!52:IFPB%THENM%!12=0ELSEM%!12=86
31884SYS&400d7,ho%,M%:M%!0=ho%:SYS&400cb,,M%:M%!24+=86:SYS&400c5,,M%:ENDPROC
31885DEFPROCra:PROCC("Optical","It is not possible to go into Type Teaching mode while text is formatted as a table."):ENDPROC
31886DEFPROCV_:IFvy%=FALSETHEN
31887IFWy%<>0OR!A<>0ORIy%THENUi%=FND(ou%)ELSEUi%=FND(m%)
31888ELSE:K%=FNA(1,ke%)
31889ENDIF:Ho%=FALSE:ENDPROC
31890DEFPROC`_:LOCALp%:FORp%=0TO35:kr%?p%=gy%?p%:NEXT:ENDPROC
31891DEFPROCRJ:PROCZ(Info_Window%,14):PROCA(Info_Window%,15,"Neurotron Software"):M%!0=Info_Window%:M%!4=15:SYS&400ce,,M%:M%!8=0:M%!12=(1<<1):SYS&400cd,,M%:Hn%=1:wu%=TIME+40:ENDPROC
31892DEFPROCBi:IFTIME<wu%ENDPROC
31893IFHn%<16THEN
31894M%!0=Info_Window%:M%!4=14:SYS&400ce,,M%:IF(M%!24AND(1<<22))<>0THENvJ%=0ELSEvJ%=1
31895M%!8=vJ%*(1<<22):M%!12=(1<<22):SYS&400cd,,M%
31896ENDIF:CASEHn%OF
31897WHEN1:wu%=TIME+5
31898WHEN2:wu%=TIME+25
31899WHEN3:wu%=TIME+10
31900WHEN4:wu%=TIME+10
31901WHEN5:wu%=TIME+5
31902WHEN6:wu%=TIME+15
31903WHEN7:wu%=TIME+5
31904WHEN8:wu%=TIME+20
31905WHEN9:wu%=TIME+3
31906WHEN10:wu%=TIME+3
31907WHEN11:wu%=TIME+3
31908WHEN12:wu%=TIME+3
31909WHEN13:wu%=TIME+3
31910WHEN14:wu%=TIME+3
31911WHEN15:wu%=TIME+3
31912WHEN16:wu%=TIME+50
31913ENDCASE:Hn%+=1:IFHn%=18THEN
31914Hn%=0:M%!0=Info_Window%:M%!4=15:SYS&400ce,,M%:M%!8=(1<<1):M%!12=(1<<1)
31915ENDIF:ENDPROC
31916DEFPROCru(y%,h%,sy%,ey%):IFFNS(`l%)IFy%=Xr%ANDh%=Br%THENENDPROC
31917IF_%<1THENPROCM(`l%):ENDPROC
31918Xr%=y%:Br%=h%:lr%=sy%:fO%=ey%:PROCc:t`%=TRUE:ENDPROC
31919DEFPROCdu:LOCALqB%,ri%,R%,V%,x`%:t`%=FALSE:y%=Xr%:h%=Br%:sy%=lr%:ey%=fO%:SYS46,296,K_%,"bub_corner"TO,,,Y_%,o_%:SYS46,296,K_%,"bub_start"TO,,,zi%,XJ%:Y_%=Y_%*2:o_%=o_%*2:zi%=zi%*2:XJ%=(XJ%-2)*2:IFsy%<Y_%+zi%THENsy%=Y_%+zi%
31920IFey%<o_%THENey%=o_%
31921pJ%=sy%+Y_%:LJ%=ey%+o_%+XJ%:SYS53,-1,11TO,,qB%:SYS53,-1,12TO,,ri%:SYS53,-1,4TO,,R%:SYS53,-1,5TO,,V%:R%=1<<R%:V%=1<<V%:qB%=qB%*R%-1:ri%=ri%*V%-1:aB%=0:IFh%+LJ%>ri%THENaB%+=1
31922aO%=y%-Y_%:IFaO%<0aO%=0:LB%=pJ%ELSELB%=y%-Y_%+pJ%
31923B`%=0:IFLB%>=qB%THENB`%=LB%-qB%:aO%-=B`%:LB%=qB%
31924IFB`%>pJ%-2*Y_%-zi%THENB`%=pJ%-2*Y_%-zi%
31925IFaB%AND1THEN
31926IFvy%THENx`%=-36ELSEx`%=-L_%-4
31927IB%=h%+x`%-LJ%:TB%=h%+x`%
31928ELSE:IB%=h%+2:TB%=h%+LJ%+2
31929ENDIF:IFTB%>ri%THENTB%=ri%+1:IB%=ri%-LJ%+1:aB%=1
31930IFIB%<0THENIB%=0:TB%=LJ%:aB%=0
31931Z%!0=`l%:SYS&400cb,,Z%:Z%!4=aO%:Z%!8=IB%:Z%!12=LB%:Z%!16=TB%:Z%!28=-1:SYS&400c5,,Z%:ENDPROC
31932DEFPROC_u:LOCALda%,QO%,nk%,SZ%,Gp%,Np%,qr%,BA%,l,G_%:IFa_%=FALSEENDPROC
31933z%!0=1:z%!4=1:z%!8=1:z%!12=1:IFaB%AND1THEN
31934PROCI(K_%,"bub_corner",L%,X%-o_%-XJ%,8,z%):SYS46,289,K_%,"bub_corner":PROCI(K_%,"bub_corner",L%,X%-LJ%,8,z%):SYS46,303,K_%,"bub_corner":PROCI(K_%,"bub_corner",L%+pJ%-Y_%,X%-LJ%,8,z%):SYS46,289,K_%,"bub_corner":PROCI(K_%,"bub_corner",L%+pJ%-Y_%,X%-o_%-XJ%,8,z%)
31935SYS46,303,K_%,"bub_corner":SYS&400e6,9:RECTANGLEFILLL%+4,X%-o_%-XJ%,pJ%-8,-(LJ%-XJ%-2*o_%):RECTANGLEFILLL%+Y_%,X%-4-XJ%,pJ%-Y_%*2,-(LJ%-XJ%-8):SYS&400e6,7:RECTANGLEFILLL%,X%-o_%-XJ%,2,-(LJ%-XJ%-2*o_%):RECTANGLEFILLL%+Y_%,X%-XJ%-2,pJ%-Y_%*2,-2:RECTANGLEFILLL%+pJ%-4,X%-o_%-XJ%,2,-(LJ%-XJ%-2*o_%)
31936RECTANGLEFILLL%+Y_%,X%-LJ%,pJ%-Y_%*2,2:SYS46,289,K_%,"bub_start":PROCI(K_%,"bub_start",L%+Y_%+B`%,X%-XJ%-4,8,z%):SYS46,289,K_%,"bub_start":VDU26,24,L%+Y_%/2;X%-LJ%+o_%/2;L%+pJ%-Y_%/2;X%-XJ%-o_%/2;:da%=L%+Y_%/2:QO%=X%-XJ%-o_%/2
31937ELSE:PROCI(K_%,"bub_corner",L%,X%-o_%,8,z%):SYS46,289,K_%,"bub_corner":PROCI(K_%,"bub_corner",L%,X%-LJ%+XJ%,8,z%):SYS46,303,K_%,"bub_corner":PROCI(K_%,"bub_corner",L%+pJ%-Y_%,X%-LJ%+XJ%,8,z%):SYS46,289,K_%,"bub_corner":PROCI(K_%,"bub_corner",L%+pJ%-Y_%,X%-o_%,8,z%)
31938SYS46,303,K_%,"bub_corner":SYS&400e6,9:RECTANGLEFILLL%+4,X%-o_%,pJ%-8,-(LJ%-XJ%-2*o_%):RECTANGLEFILLL%+Y_%,X%-4,pJ%-Y_%*2,-(LJ%-XJ%-8):SYS&400e6,7:RECTANGLEFILLL%,X%-o_%,2,-(LJ%-XJ%-2*o_%):RECTANGLEFILLL%+Y_%,X%-2,pJ%-Y_%*2,-2:RECTANGLEFILLL%+pJ%-4,X%-o_%,2,-(LJ%-XJ%-2*o_%)
31939RECTANGLEFILLL%+Y_%,X%-(LJ%-XJ%),pJ%-Y_%*2,2:PROCI(K_%,"bub_start",L%+Y_%+B`%,X%-LJ%,8,z%):VDU26,24,L%+Y_%/2;X%-LJ%+XJ%+o_%/2;L%+pJ%-Y_%/2;X%-o_%/2;:da%=L%+Y_%/2:QO%=X%-o_%/2
31940ENDIF:nk%=!(a%+Xi%*8)AND65535:SZ%=(!(a%+Xi%*8))>>16:D%=Ky%:E%=Xi%:!M=USR(Ay):qr%=nk%+(SZ%-nk%)/2:BA%=fJ%!(!M*4)+(qr%*ru%!(!M*4))/1024:l=fO%/(r_%!(!M*4)*V%)/2:Au%=r_%!(!M*4)*V%*2:n_%=fO%:IFAu%>n_%THEN
31941H=(1<<16)/n_%*Au%:n_%=(1<<16)/H*(1<<16):z%!0=n_%:z%!8=(1<<16):z%!4=n_%:z%!12=(1<<16)
31942ELSE:H=(1<<16)/n_%*Au%:z%!0=(1<<16):z%!8=H:z%!4=(1<<16):z%!12=H
31943ENDIF:da%=da%+(pJ%-Y_%)/2-(R%*qr%)*l-lr%/4:QO%=QO%-(LJ%-o_%)/2-(V%*(t%-BA%))*l+fO%/10:M%!0=&eeee00:M%!4=0:SYS&40740,18,M%,-1,-1,kk%:PROCI(A%(`%),M$,da%,QO%,256,z%):PROCKJ(Xi%,Xi%):SYS&400e6,11:LINEda%+Ou%*R%*l-4,X%,da%+Ou%*R%*l-4,X%-LJ%
31944LINEda%+oy%*R%*l,X%,da%+oy%*R%*l,X%-LJ%:ENDPROC
31945DEFPROCc:IFt`%ENDPROC
31946IFFNS(`l%)=FALSEENDPROC
31947M%!0=`l%:SYS&400c6,,M%:t`%=FALSE:ENDPROC
31948DEFPROCMi(b%,I%):IF(b%AND1792)=FALSEENDPROC
31949PROCgu(Y%,I%DIV3):CASE(I%DIV3)OF
31950WHEN0:PROCX("Message from Optical","MLE is not functional with this version of Optical. For a full version please contact Neurotron Software.")
31951ENDCASE:ENDPROC
31952DEFFNo(Wl%,mn%,HO%,FP%,x$,XP%,Le%):S_%!0=Wl%:S_%!4=24:S_%!8=-44-44*mn%:S_%!12=HO%-24:S_%!16=0-44*mn%:S_%!20=17:S_%!20+=10*(1<<12):S_%!20+=1*(1<<16):S_%!20+=7*(1<<24):S_%!20+=7*(1<<28):IFLe%S_%!20+=(1<<22)
31953x$=LEFT$(x$,(HO%-64)/16):$(S_%+24)=x$+CHR$0:SYS&400c2,,S_%:S_%!0=Wl%:S_%!4=0:S_%!8=-44-44*mn%:S_%!12=22:S_%!16=0-44*mn%:S_%!20=16:S_%!20+=10*(1<<12):IFFP%THENS_%!20+=2
31954S_%!20+=7*(1<<24):S_%!20+=7*(1<<28):IFLe%S_%!20+=(1<<22)
31955$(S_%+24)="�"+CHR$0:SYS&400c2,,S_%:S_%!0=Wl%:S_%!4=HO%-24:S_%!8=-44-44*mn%:S_%!12=HO%:S_%!16=0-44*mn%:S_%!20=24:S_%!20+=10*(1<<12):IFXP%THENS_%!20+=2
31956S_%!20+=1<<16:S_%!20+=7*(1<<24):S_%!20+=7*(1<<28):IFLe%S_%!20+=(1<<22)
31957$(S_%+24)="�"+CHR$0:SYS&400c2,,S_%:=mn%+1
31958DEFPROCHl(Wl%,I%):IF(I%MOD3)>0PROCiy(Wl%,I%DIV3)
31959ENDPROC
31960DEFFNZy(Q$):Z%!0=0:Z%!4=0:Z%!8=200:Z%!12=200:Z%!16=0:Z%!20=0:Z%!24=-1:Z%!28=&80000010:IFLEN(Q$)THENZ%!28+=1<<26
31961IFLEN(Q$)THENZ%?32=7ELSEZ%?32=7
31962Z%?33=2:Z%?34=7:Z%?35=0:Z%?36=3:Z%?37=1:Z%?38=12:Z%?39=0:Z%!40=0:Z%!44=-2048:Z%!48=2048:Z%!52=0:Z%!56=61:Z%!60=0:Z%!64=1:Z%!68=0:$(Z%+72)=Q$+CHR$0:Z%!84=0:SYS&400c1,,Z%TOWl%:=Wl%
31963DEFPROCwu(sl%):IFFNq(Y%)=FALSETHENsl%=0:ENDPROC
31964NA%=FNv:M%!0=sl%:SYS&400cb,,M%:PROCGJ(Ci%,NA%,_k%,M%!4,M%!8-4):ENDPROC
31965DEFFNv:LOCALxr%:IFCi%<>0THENM%!0=Ci%:SYS&400c3,,M%
31966Ci%=FNZy(""):M%!0=sl%:SYS&400cb,,M%:_k%=M%!12-M%!4:SYS&400d3,,M%:Z%!0=20:Z%!12=0:SYS&400e7,19,Z%,M%!0TO,,xi%:xr%=(xi%<>WZ%):IFi_%=TRUExr%=TRUE
31967=FNo(Ci%,0,_k%,FALSE,"OCR...",FALSE,xr%)
31968DEFPROCGJ(Wl%,pA%,HO%,y%,h%):Z%!0=Wl%:Z%!4=y%:Z%!8=h%-42*pA%:Z%!12=y%+HO%:Z%!16=h%+2:Z%!20=0:Z%!24=0:Z%!28=-1:SYS&400c5,,Z%:ENDPROC
31969DEFPROCiy(Wl%,I%):Z%!0=Wl%:Z%!4=I%*3:SYS&400ce,,Z%:IFZ%!24AND(1<<21)THENENDPROC
31970Z%!0=Wl%:Z%!4=I%*3:Z%!8=1<<21:Z%!12=1<<21:SYS&400cd,,Z%:ENDPROC
31971DEFPROCuy(Wl%,I%):Z%!0=Wl%:Z%!4=I%*3:SYS&400ce,,Z%:IF(Z%!24AND(1<<21))=0THENENDPROC
31972Z%!0=Wl%:Z%!4=I%*3:Z%!8=1<<21:Z%!12=0:SYS&400cd,,Z%:ENDPROC
31973DEFPROCdl:CASEY%OF
31974WHENCi%:IFon%=Y%AND_B%<>(I%DIV3)THENPROCuy(on%,_B%)
31975IFI%=-1ENDPROC
31976on%=Y%:_B%=I%DIV3:PROCiy(Y%,I%DIV3)
31977OTHERWISE:CASEon%OF
31978WHENCi%:PROCuy(on%,_B%):on%=-1:_B%=-1
31979ENDCASE
31980ENDCASE:ENDPROC
31981DEFPROCgu(Wl%,I%):PROCuy(Wl%,I%):PROCiy(Wl%,I%):PROCuy(Wl%,I%):PROCiy(Wl%,I%):ENDPROC
31982DEFPROCGl:M%!0=sl%:SYS&400cb,,M%:IFM%!4<>br%ORM%!8<>yr%PROCGJ(Ci%,1,_k%,M%!4,M%!8-4)
31983br%=M%!4:yr%=M%!8:ENDPROC
31984DEFFNq(Y%):IFFNS(Y%)=FALSETHEN=FALSE
31985IFFNs(Y%)<>Ly$THEN=FALSE
31986Z%!0=Y%:SYS&400cb,,Z%:s%=Z%!12-Z%!4:v%=Z%!16-Z%!8:IFMZ%<>v%THEN=FALSE
31987=TRUE
31988DEFPROCS(M%!0,M%!4,vJ%):LOCALwO%,xA%,er%:IFvJ%THENvJ%=1ELSEvJ%=0
31989SYS&400ce,,M%:IF(M%!24AND(1<<21))=vJ%*(1<<21)ENDPROC
31990er%=M%!24AND(15*(1<<16)):xA%=M%!4:M%!8=vJ%*(1<<21):M%!12=(1<<21):SYS&400cd,,M%:IFvJ%=1ANDer%<>0THEN
31991SYS&400d6,M%!0,fk%,15*(1<<16),er%:wO%=0:WHILEfk%!wO%<>-1:IFfk%!wO%<>xA%THEN
31992M`%!0=M%!0:M`%!4=fk%!wO%:SYS&400ce,,M`%:IF(M`%!24AND(1<<21))<>0THEN
31993M`%!8=0:M`%!12=(1<<21):SYS&400cd,,M`%
31994ENDIF
31995ENDIF:wO%+=4:ENDWHILE
31996ENDIF:ENDPROC
31997DEFFNZ(M%!0,M%!4):SYS&400ce,,M%:IF(M%!24AND(1<<21))=0THEN=FALSE
31998=TRUE
31999DEFFNS(Y%):LOCALwy%:M%!0=Y%:SYS&600cb,,M%TO,wy%:IFwy%AND1THEN=FALSE
32000IF(M%!32AND(1<<16))=0THEN=FALSE
32001=TRUE
32002DEFPROCu_(Y%,Q$):M%!0=Y%:SYS&400cc,,M%:IF(M%!60AND256)=FALSEENDPROC
32003$(M%!76)=Q$+CHR$0:IF(M%!32AND65536)=FALSEENDPROC
32004SYS&400d1,-1,M%!4,M%!16,M%!12,M%!16+36:ENDPROC
32005DEFFNj:pB%=FNy:IFpB%=-1THENPROCC("Optical","There is not enough memory available to load Optical"):ma%=TRUE:=-1
32006IFpB%=-2THENPROCC("Optical","Not all the RISC OS fonts could be included in the font menu")
32007=pB%
32008DEFFNy:LOCALDo%,v_%,a$,V$,D$,l$,r%,Uy%,w`%,Hi%:Do%=-1:v_%=0:l$="":Du%=0:xa%=0:K%=FNA(28,Ti%):IFK%=FALSETHEN=-1
32009r%=A%(Ti%):$r%="Font list"+CHR$0:r%?12=7:r%?13=2:r%?14=7:r%?15=0:r%!20=44:r%!24=0:Uy%=0:Hi%=0:Yl%=0:WHILEv_%<>-1:SYS&40091,,M%,v_%,-1TO,,v_%:IFv_%<>-1THEN
32010a$=$M%:V$=LEFT$(a$,INSTR(a$,".")-1):IFINSTR(a$,".")=0THEND$=""ELSED$=MID$(a$,INSTR(a$,".")+1)
32011IFLEN(V$)>Uy%THENUy%=LEN(V$)
32012IFLEN(D$)>w`%THENw`%=LEN(D$)
32013IFV$=l$THEN
32014IFDu%=0ANDHi%+LEN("(Regular)"+CHR$0)<Pk%THEN
32015Do%+=1:r%!4=gi%+Yl%:Du%=1:r%=gi%+Yl%:$r%=V$+CHR$0:r%?12=7:r%?13=2:r%?14=7:r%?15=0:r%!20=44:r%!24=0:w`%=LEN("(Regular)"):r%=gi%+Yl%+28+(Du%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000121:r%!12=RB%+Hi%:r%!16=-1:r%!20=40:$(RB%+Hi%)="(Regular)"+CHR$0:Hi%+=LEN("(Regular)"+CHR$0)
32016ENDIF:Du%+=1:r%=gi%+Yl%+28+(Du%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000121:r%!12=RB%+Hi%:r%!16=-1:r%!20=40:$(RB%+Hi%)=D$+CHR$0:Hi%+=LEN(D$+CHR$0)
32017ELSE:l$=V$:IFDo%>=ao%-1ANDD$<>""THEN=-2
32018IFDu%>0THEN
32019r%=gi%+Yl%:r%!16=16*(w`%+1):r%=gi%+Yl%+28+(Du%-1)*24:!r%+=(1<<7)
32020ENDIF:IFDu%>0THENYl%+=28+24*Du%
32021IFYl%>ao%-1576THEN=-2
32022xa%+=1:K%=FNA(28+xa%*24,Ti%):IFK%=FALSETHEN=-1
32023r%=A%(Ti%)+28+(xa%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000021:V$=LEFT$(V$,11):$(r%+12)=V$+CHR$0:IFD$<>""ANDHi%+LEN(D$+CHR$0)<Pk%THEN
32024Do%+=1:r%!4=gi%+Yl%:Du%=1:r%=gi%+Yl%:$r%=V$+CHR$0:r%?12=7:r%?13=2:r%?14=7:r%?15=0:r%!20=44:r%!24=0:w`%=LEN(D$):r%=gi%+Yl%+28+(Du%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000121:r%!12=RB%+Hi%:r%!16=-1:r%!20=40:$(RB%+Hi%)=D$+CHR$0:Hi%+=LEN(D$+CHR$0)
32025ELSE:Du%=0
32026ENDIF
32027ENDIF
32028ENDIF:ENDWHILE:IFxa%>0THEN
32029r%=A%(Ti%):r%!16=16*(Uy%+1):r%=A%(Ti%)+28+(xa%-1)*24:!r%+=(1<<7):IFDu%>0THEN
32030r%=gi%+Yl%:r%!16=16*(w`%+1):r%=gi%+Yl%+28+(Du%-1)*24:!r%+=(1<<7)
32031ENDIF
32032ELSE:xa%+=1:K%=FNA(28+xa%*24,Ti%):IFK%=FALSETHEN=-1
32033r%=A%(Ti%):r%!16=16*5:r%=A%(Ti%)+28+(xa%-1)*24:r%!0=(1<<7):r%!4=-1:r%!8=&7000021+(1<<22):$(r%+12)="None"+CHR$0
32034ENDIF:=A%(Ti%)
32035DEFPROCY(M$):LOCALR%,V%:CASEM$OF
32036WHEN"ptr_move":y%=10:h%=18
32037WHEN"ptr_adjust":y%=12:h%=12
32038WHEN"ptr_delete":y%=12:h%=12
32039WHEN"ptr_rotate":SYS53,-1,4TO,,R%:SYS53,-1,5TO,,V%:R%=1<<R%:V%=1<<V%:IFV%=R%THEN
32040y%=5:h%=6:M$="ptr_rotate2"
32041ELSE:y%=5:h%=3:M$="ptr_rotate1"
32042ENDIF
32043OTHERWISEy%=0:h%=0
32044ENDCASE:lk%!0=&3020100:IFM$=""THEN
32045SYS&400e9,36,,"ptr_default",2,0,0,0,lk%
32046ELSE:SYS46,256+36,K_%,M$,2,y%,h%,0,lk%
32047ENDIF:ENDPROC
32048DEFPROCP(M%!0,M%!4,vJ%):IFvJ%THENvJ%=1ELSEvJ%=0
32049SYS&400ce,,M%:IF(M%!24AND(1<<22))=vJ%*(1<<22)ENDPROC
32050M%!8=vJ%*(1<<22):M%!12=(1<<22):SYS&400cd,,M%:ENDPROC
32051DEFFNa(M%!0,M%!4):SYS&400ce,,M%:=M%!24AND(1<<22)
32052DEFPROCm:LOCALsy%,ey%,R%,V%:SYS53,-1,11TO,,sy%:SYS53,-1,12TO,,ey%:SYS53,-1,4TO,,R%:SYS53,-1,5TO,,V%:R%=1<<R%:V%=1<<V%:sy%=sy%*R%:ey%=ey%*V%:Z%!0=1:Z%!1=0MOD256:Z%!2=0DIV256:Z%!3=0MOD256:Z%!4=0DIV256:Z%!5=sy%MOD256:Z%!6=sy%DIV256:Z%!7=ey%MOD256:Z%!8=ey%DIV256:SYS7,21,Z%:VDU26:ENDPROC
32053DEFPROCn_(M%!0):SYS&400cb,,M%:Z%!0=1:Z%!1=M%!4MOD256:Z%!2=M%!4DIV256:Z%!3=M%!8MOD256:Z%!4=M%!8DIV256:Z%!5=M%!12MOD256:Z%!6=M%!12DIV256:Z%!7=M%!16MOD256:Z%!8=M%!16DIV256:SYS7,21,Z%:ENDPROC
32054DEFPROCi(Y%,I%,he%,Ko%):LOCALDJ%:DJ%=VAL(FNM(Y%,I%)):IFDJ%=he%ENDPROC
32055IFDJ%+Ko%>he%THENDJ%=he%ELSEDJ%+=Ko%
32056PROCA(Y%,I%,STR$(DJ%)):ENDPROC
32057DEFPROCh(Y%,I%,Ye%,Ko%):LOCALDJ%:DJ%=VAL(FNM(Y%,I%)):IFDJ%=Ye%ENDPROC
32058IFDJ%-Ko%<Ye%THENDJ%=Ye%ELSEDJ%-=Ko%
32059PROCA(Y%,I%,STR$(DJ%)):ENDPROC
32060DEFPROCLy(Y%,I%):LOCALay%:ay%=LEN(FNM(Y%,I%)):SYS&600d2,Y%,I%,,,-1,ay%:ENDPROC
32061DEFPROCG_(au%):LOCALwi%:wi%=0:IF(au%!28AND(1<<28))THENwi%+=42
32062wi%+=au%!8-au%!0:SYS53,-1,11TO,,sy%:SYS53,-1,4TO,,R%:R%=1<<R%:sy%=(sy%+1)*R%:au%!8=(sy%-wi%)/2+au%!8-au%!0:au%!0=(sy%-wi%)/2:ENDPROC
32063DEFPROC_y(au%):LOCALwi%:wi%=0:IF(au%!28AND(1<<26))THENwi%+=42
32064wi%+=au%!12-au%!4:SYS53,-1,12TO,,ey%:SYS53,-1,5TO,,V%:V%=1<<V%:ey%=(ey%+1)*V%:au%!12=(ey%-wi%)/2+au%!12-au%!4:au%!4=(ey%-wi%)/2:ENDPROC
32065DEFPROCqy(Q$,O$,Vy$,Jy$,Py$,q%):OA%=q%:M%!0=iJ%:M%!4=7:SYS&400c4,,M%:M%!0=iJ%:M%!4=130:M%!12=146+16*LEN(Q$):M%!8=-64:M%!16=-20:M%!20=313+7*(1<<24)+1*(1<<28):M%!24=iZ%:M%!28=-1:M%!32=40:$iZ%=Q$:SYS&400c2,,M%:PROCA(iJ%,5,O$):PROCA(iJ%,1,Vy$):M%!0=iJ%:M%!4=4:IFJy$=""THEN
32066M%!8=0:M%!12=(1<<2)+15*(1<<12):SYS&400cd,,M%:PROCA(iJ%,4,"")
32067ELSE:M%!8=(1<<2)+3*(1<<12):M%!12=(1<<2)+15*(1<<12):SYS&400cd,,M%:PROCA(iJ%,4,Jy$)
32068ENDIF:M%!4=6:IFPy$=""THEN
32069M%!8=0:M%!12=(1<<2)+15*(1<<12):SYS&400cd,,M%:PROCA(iJ%,6,"")
32070ELSE:M%!8=(1<<2)+3*(1<<12):M%!12=(1<<2)+15*(1<<12):SYS&400cd,,M%:PROCA(iJ%,6,Py$)
32071ENDIF:PROCD(iJ%):PROCn_(iJ%):PROCY(""):SYS&400d3,,il%:SYS&600d2,iJ%,-1,0,0,(1<<25),0:ENDPROC
32072DEFPROCaJ(b%,I%):IFb%>7ENDPROC
32073LOCALYa%:CASEI%OF
32074WHEN1:Ya%=0
32075WHEN4:Ya%=1
32076WHEN6:Ya%=2
32077OTHERWISEENDPROC
32078ENDCASE:PROCm:SYS&600d2,il%!0,il%!4,il%!8,il%!12,il%!16,il%!20:PROCM(iJ%):CASEOA%OF
32079WHEN0:S$=_$:Ku%=FNS(iy%):CASEYa%OF
32080WHEN0:PROCAi
32081WHEN1:PROCSJ
32082ENDCASE
32083WHEN1:S$=_$:Ku%=FNS(iy%):CASEYa%OF
32084WHEN0:PROCQl
32085WHEN1:PROCmJ
32086ENDCASE
32087WHEN2:S$=_$:CASEYa%OF
32088WHEN0:SYS&406c0:PROCny(S$):SYS&406c1
32089WHEN1:SYS&406c0:PROCna(S$):SYS&406c1
32090ENDCASE
32091WHEN3:CASEYa%OF
32092WHEN0:IFRO%THEN
32093PROCnu
32094ELSE:PROCYJ
32095ENDIF
32096WHEN2:SYS&406c0:CASEg`%OF
32097WHEN0:PROCT(SaveText_Window%,y%,h%):PROCG(SaveText_Window%,1,LEN(FNM(SaveText_Window%,1)))
32098WHEN1:PROCT(SaveF_Window%,y%,h%)
32099WHEN2:OSCLI("Save <OptclPro$Dir>.Dictionary "+STR$~(A%(MJ%))+" +"+STR$~(La%)):fa%=TRUE
32100ENDCASE:SYS&406c1
32101ENDCASE
32102ENDCASE:ENDPROC
32103DEFPROCZl(I%,j%):CASEj%OF
32104WHEN27:PROCm:SYS&600d2,il%!0,il%!4,il%!8,il%!12,il%!16,il%!20:PROCM(iJ%)
32105WHEN13,10:PROCS(iJ%,1,TRUE):PROCaJ(4,1):PROCS(iJ%,1,FALSE)
32106ENDCASE:ENDPROC
32107DEFPROCYJ:RO%=FALSE:CASEg`%OF
32108WHEN0:PROCh_
32109WHEN1:PROCfy
32110WHEN2:fa%=TRUE
32111WHEN3:PROCHy
32112WHEN4:!A=0
32113ENDCASE:IFpi%=FALSEPROCs("Warning from Optical","The text has been updated. Are you sure you want to quit?",0):ENDPROC
32114IFTa%=FALSEPROCs("Warning from Optical","You have not saved your updated character definitions. Are you sure you want to quit?",1):ENDPROC
32115IFfa%=FALSEPROCs("Warning from Optical","The lexicon has been updated. Are you sure you want to quit?",2):ENDPROC
32116IFWy%PROCs("Warning from Optical","Optical is currently reading. Are you sure you want to quit?",3):ENDPROC
32117IF!APROCs("Warning from Optical","Optical is currently spell checking. Are you sure you want to quit?",4):ENDPROC
32118ma%=TRUE:ENDPROC
32119DEFPROCnu:RO%=TRUE:CASEg`%OF
32120WHEN0:PROCh_
32121WHEN1:PROCfy
32122WHEN2:fa%=TRUE
32123WHEN3:PROCHy
32124WHEN4:!A=0
32125ENDCASE:IFpi%=FALSEPROCs("Warning from Optical","The text has been updated. Are you sure you want to quit?",0):ENDPROC
32126IFTa%=FALSEPROCs("Warning from Optical","You have not saved your updated character definitions. Are you sure you want to quit?",1):ENDPROC
32127IFfa%=FALSEPROCs("Warning from Optical","The lexicon has been updated. Are you sure you want to quit?",2):ENDPROC
32128IFWy%PROCs("Warning from Optical","Optical is currently reading. Are you sure you want to quit?",3):ENDPROC
32129IF!APROCs("Warning from Optical","Optical is currently spell checking. Are you sure you want to quit?",4):ENDPROC
32130PROCHy:PROCh_:PROCfy:fa%=TRUE:PROCzi:ENDPROC
32131DEFPROCXJ(Y%,I%,n$):LOCALne%,fe%,hZ%,nZ%,QZ%,UZ%:M%!0=Y%:SYS&400cb,,M%:ne%=M%!4:fe%=M%!16:M%!4=I%:SYS&400ce,,M%:hZ%=M%!8:nZ%=M%!12:QZ%=M%!16:UZ%=M%!20:M%!0=Y%:M%!4=5:M%!8=(ne%+hZ%):M%!12=(fe%+nZ%):M%!16=(ne%+QZ%):M%!20=(fe%+UZ%):M%!24=1:M%!28=1:M%!32=&7fffffff
32132M%!36=&7fffffff:IFNo%THEN
32133SYS&62400,133,1,n$,M%+8TO;wy%
32134ELSE:SYS&400d0,,M%
32135ENDIF:ENDPROC
32136DEFPROCI(Tr%,n$,y%,h%,U`%,Wa%):IFU`%AND256THEN
32137U`%=U`%AND255:SYS&400ed,256,Tr%,n$,,,,Oi%
32138ELSE:SYS&400ed,256,Tr%,n$,,,,Oi%,kk%
32139ENDIF:Oi%!0=(Oi%!0)*(Wa%!0):Oi%!4=(Oi%!4)*(Wa%!4):Oi%!8=(Oi%!8)*(Wa%!8):Oi%!12=(Oi%!12)*(Wa%!12):SYS46,308,Tr%,n$,y%,h%,U`%,Oi%,kk%:ENDPROC
32140DEFFNm(al%):LOCALmJ%,in%:ONERRORLOCALVDU26,4:PRINTREPORT$;" at line ";ERL:END
32141SYS&400ec,-1,-1TO,,in%:IFin%<512*al%+30720THENPROCC("Optical","There is insufficient memory available to run Optical. Need at least an extra "+STR$((512*al%+30720-in%)DIV1024)+"K."):PROCry:SYS&400dd,rn%,"TASK":END
32142Vi%=Ae%:FORmJ%=0TOal%-1:nn%!(mJ%*4)=Vi%:A%(mJ%)=nn%!(mJ%*4):CASEmJ%OF
32143WHENJ_%,Nu%,`y%,qJ%:ci%!(mJ%*4)=8192:Z%(mJ%)=8192:Vi%+=8192
32144OTHERWISE:ci%!(mJ%*4)=512:Z%(mJ%)=512:Vi%+=512
32145ENDCASE:NEXT:SYS&400ec,jn%+FNI,-1:=TRUE
32146DEFFNI:LOCALmJ%,X`%:X`%=0:FORmJ%=0TOal%-1:X`%+=ci%!(mJ%*4):NEXT:=X`%
32147DEFFNMy(RJ%):LOCALmJ%,X`%:X`%=0:FORmJ%=RJ%TOal%-1:X`%+=ci%!(mJ%*4):NEXT:=X`%
32148DEFFNA(Ar%,Ja%):LOCALin%,ei%,mJ%,IZ%,RJ%:CASEJa%OF
32149WHENJ_%,Nu%,`y%,qJ%:qk%=8192*((Ar%+8192)DIV8192)
32150OTHERWISE:qk%=512*((Ar%+512)DIV512)
32151ENDCASE:ei%=qk%-ci%!(Ja%*4):IFei%=0THENZ%(Ja%)=ci%!(Ja%*4):=TRUE
32152SYS&400ec,-1,-1TOIZ%,,in%:IFei%>in%+IZ%-FNI-jn%THEN=FALSE
32153ci%!(Ja%*4)=qk%:Z%(Ja%)=Ar%:IFei%>0SYS&400ec,jn%+FNI,-1
32154IFJa%<al%-1THEN
32155A%=nn%!((Ja%+1)*4):B%=A%+ei%:C%=FNMy(Ja%+1):IFei%>0THEN
32156CALLIa
32157ELSE:CALL`J
32158ENDIF:FORmJ%=Ja%+1TOal%-1:nn%!(mJ%*4)+=ei%:A%(mJ%)=nn%!(mJ%*4):NEXT
32159ENDIF:IFei%<0SYS&400ec,jn%+FNI,-1
32160IFFNS(R`%)PROCR_
32161=TRUE
32162DEFPROCR_:LOCAL_n%,mJ%:FORmJ%=0TO18:PROCA(R`%,4+mJ%*3,"&"+STR$~(nn%!(mJ%*4))):PROCA(R`%,6+mJ%*3,"&"+STR$~(ci%!(mJ%*4))):NEXT:SYS&400ec,-1,-1TO_n%:PROCA(R`%,53,"&"+STR$~(_n%-jn%+Ae%)):ENDPROC
32163DEFPROCPy(Y%,y%,h%):!Z%=Y%:SYS&400cb,,Z%:Z%!12=y%+Z%!12-Z%!4:Z%!4=y%:Z%!8=h%-(Z%!16-Z%!8):Z%!16=h%:Z%!28=-1:SYS&400c5,,Z%:IFY%=w%PROCD(V_%)
32164IFY%=IJ%PROCD(jJ%)
32165ENDPROC
32166DEFPROCq:SYS&400cf,,b`%:s%=b`%!0:v%=b`%!4:Sk%=b`%!16:Zo%=b`%!12:b%=b`%!8:ENDPROC
32167DEFPROCo(Y%,I%,Ny$):M%!0=Y%:M%!4=I%:SYS&400ce,,M%:IF$(M%!32)=Ny$ENDPROC
32168$(M%!32)=Ny$:M%!8=0:M%!12=0:SYS&400cd,,M%:ENDPROC
32169DEFPROCVu(Ap%):LOCALERROR:ONERRORLOCALZ%!12=Z%!8:SYS&400e7,19,Z%,Z%!4:RESTOREERROR:ENDPROC
32170BPUT#Ap%,"Run "+By$:ENDPROC
32171DEFPROC`l(b%,I%):IFFy%=0ENDPROC
32172Z%!0=V_%:SYS&400cb,,Z%:X%=Z%!16-Z%!24:SYS&400cf,,Z%:v%=Z%!4:uy%=X%-v%:hJ%=(uy%-4)DIV40:lO%=oJ%:IFQa%THEN
32173IFhJ%>ol%-1THEN
32174oJ%=-1
32175ELSE:oJ%=hJ%:CASEFy%OF
32176WHEN1:q%=0:WHILEhJ%-W%(q%)>=0:hJ%-=W%(q%):q%+=1:ENDWHILE:C%=`u%:B%=hJ%:F%=hu%:G%=ja%:D%=A%(MJ%):E%=!(A%(MJ%)+q%*4):IFq%<25THENH%=!(A%(MJ%)+(q%+1)*4)-1ELSEH%=La%*2
32177CALLRa:A$=$`u%
32178WHEN2:SYS"XSpell_GetWord",oJ%TO,A$:A$=FNH(A$)
32179WHEN3:A%=A%(X_%)+4:B%=hJ%:q%=USR(jy):hJ%=!iy:IF!(A%(X_%)+q%*8)<>-1THEN
32180A%=hJ%:B%=A%(X_%)+2048+!(A%(X_%)+q%*8):C%=`u%:D%=zl%-!(A%(X_%)+q%*8):CALLby
32181ELSE:A$=""
32182ENDIF:A$=$`u%
32183ENDCASE:IFP%>=0PROCei
32184PROCA(w%,1,A$):PROCG(w%,1,LEN(A$))
32185ENDIF
32186ELSE:IFhJ%>lJ%THEN
32187oJ%=-1
32188ELSE:IFlJ%>=0THEN
32189oJ%=hJ%:A$=FN_(hJ%):IFek%=FALSEA$=FNH(A$)
32190PROCA(w%,1,A$):PROCG(w%,1,LEN(A$))
32191ENDIF
32192ENDIF
32193ENDIF:IFlO%<>oJ%THEN
32194Z%!0=V_%:Z%!4=0:Z%!8=-ol%*40-40:Z%!12=362:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:WHILEd%:PROCW(3,8):IFlO%>=0RECTANGLEFILLL%,X%-4-40*lO%,368,-36
32195IFoJ%>=0RECTANGLEFILLL%,X%-4-40*oJ%,368,-36
32196SYS&400ca,,Z%TOd%:ENDWHILE
32197ENDIF:ENDPROC
32198DEFFNH(A$):LOCALYJ%,O%:FORYJ%=1TOLEN(A$):O%=ASC(MID$(A$,YJ%,1)):IF(O%>=ASC("A")ANDO%<=ASC("Z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))ORO%=7THENMID$(A$,YJ%,1)=CHR$(O%+32)
32199NEXT:=A$
32200DEFFN`(A$):FORYJ%=1TOLEN(A$):O%=ASC(MID$(A$,YJ%,1)):CASEO%OF
32201WHENASC("0"):MID$(A$,YJ%,1)="O"
32202WHENASC("1"):MID$(A$,YJ%,1)="l"
32203WHENASC("5"):MID$(A$,YJ%,1)="S"
32204ENDCASE:NEXT:=A$
32205DEFPROCJu(b%,I%):CASEI%OF
32206WHEN0
32207WHEN2:Yn%=FALSE:PROCx_:PROCM(w%):PROCM(V_%)
32208WHEN3:PROCf_
32209WHEN4
32210WHEN5:PROCfJ
32211WHEN6:!q=0:REPEAT:PROCVy:UNTILsi%>m%-1ORd_%=-1
32212WHEN7:Z%!0=w%:Z%!4=7:SYS&400ce,,Z%:Vn%=(Z%!24)AND(1<<21)
32213WHEN10:Z%!0=w%:Z%!4=10:SYS&400ce,,Z%:do%=(Z%!24)AND(1<<21)
32214WHEN8:PROCYi
32215WHEN11:PROCPu(FNM(w%,1))
32216WHEN14:PROCcJ
32217WHEN13,12:PROCjJ:PROCT(TJ%,y%,h%)
32218ENDCASE:ENDPROC
32219DEFPROCMu:LOCALay%,Ge%,Yy$,py%,l%,Cl%,hu%,iu%:IFm%=0OR_%<=1THENPROCX("Message from Optical","There is no text to replace."):O`%=TRUE:ENDPROC
32220IFP%=-1PROCX("Message from Optical","Select position to replace text at first."):O`%=TRUE:ENDPROC
32221IFry%A$=u$ELSEA$=FNM(w%,1)
32222IFLEN(A$)=0PROCX("Message from Optical","You have to enter a word to replace first!"):O`%=TRUE:ENDPROC
32223IFry%=FALSEPROCOJ:Ul%=FNz(P%,LEN(A$))
32224ay%=0:PROCa(P%):l%=Py%:C_%=A%(qy%):Yy$=FNF(Ql%):ay%=!R_-!gi:K%=TRUE:IF!X>256THENy_%=0ELSEy_%=1
32225IFLEN(A$)<>ay%IF!A<>0ORWy%<>0ORIy%<>0THENSWAP_%,k_%
32226iu%=LEN(A$)-ay%:IFLEN(A$)>ay%THEN
32227K%=FNA(m%+ay%-LEN(A$),qy%):IFK%=FALSETHEN
32228PROCC("Optical","There is not enough free memory available to replace this word. Need an extra 1K."):ry%=FALSE:IF!A<>0ORWy%<>0ORIy%THENSWAP_%,k_%
32229ELSE:A%=C_%+Py%+ay%:B%=C_%+Py%+LEN(A$):C%=m%-Py%-ay%:CALLQ:A%=a%+(P%+ay%)*8:B%=a%+(P%+LEN(A$))*8:C%=(_%-P%-ay%)*8:CALLQ:A%=My%+(P%+ay%)*2:B%=My%+(P%+LEN(A$))*2:C%=(_%-P%-ay%)*2:CALLQ:A%=Pu%+P%+ay%:B%=Pu%+P%+LEN(A$):C%=_%-P%-ay%:CALLQ:IFWy%<>0OR!A<>0ORIy%THENSWAP_%,k_%
32230m%+=iu%:_%+=iu%:IF!A<>0ORWy%<>0ORIy%THENk_%+=iu%:!U+=iu%:!d+=iu%
32231IFA$=r$THEN
32232FORBi%=0TOLEN(A$)-1:!(a%+(P%+Bi%)*8)=!(sO%+Bi%*8):!(a%+(P%+Bi%)*8+4)=!(sO%+Bi%*8+4):NEXT
32233ELSE:FOR_y%=P%+ay%+y_%TOP%+LEN(A$)-1+y_%STEP8:!(a%+_y%*8)=!(a%+(P%+ay%-1+y_%)*8):!(a%+_y%*8+4)=!(a%+(P%+ay%-1+y_%)*8+4):NEXT
32234ENDIF:hu%=TRUE:FORPJ%=0TOe_%:IF!X<256ANDhu%=TRUETHEN
32235IFKy%!(PJ%*4)>P%THENhu%=FALSE
32236ELSE:IFKy%!(PJ%*4)>P%THENKy%!(PJ%*4)+=LEN(A$)-ay%
32237ENDIF:NEXT
32238ENDIF
32239ENDIF:IFK%=FALSEO`%=TRUE:ENDPROC
32240IFay%>LEN(A$)THEN
32241IFK%=FALSETHEN
32242PROCC("Optical","There is not enough free memory available to replace this word. Need an extra 1K."):ry%=FALSE:IF!A<>0ORWy%<>0ORIy%THENSWAP_%,k_%
32243ELSE:A%=C_%+Py%+ay%:B%=C_%+Py%+LEN(A$):C%=m%-Py%-ay%:CALLT:A%=a%+(P%+ay%)*8:B%=a%+(P%+LEN(A$))*8:C%=(_%-P%-ay%)*8:CALLT:A%=My%+(P%+ay%)*2:B%=My%+(P%+LEN(A$))*2:C%=(_%-P%-ay%)*2:CALLT:A%=Pu%+P%+ay%:B%=Pu%+P%+LEN(A$):C%=_%-P%-ay%:CALLT:IFWy%<>0OR!A<>0ORIy%THENSWAP_%,k_%
32244m%+=iu%:_%+=iu%:IF!A<>0ORWy%<>0ORIy%THENk_%+=iu%:!U+=iu%:!d+=iu%
32245IFA$=r$THEN
32246FORBi%=0TOLEN(A$)-1:!(a%+(P%+Bi%)*8)=!(sO%+Bi%*8):!(a%+(P%+Bi%)*8+4)=!(sO%+Bi%*8+4):NEXT
32247ENDIF:hu%=TRUE:FORPJ%=0TOe_%:IF!X<256ANDhu%=TRUETHEN
32248IFKy%!(PJ%*4)>P%THENhu%=FALSE
32249ELSE:IFKy%!(PJ%*4)>P%THENKy%!(PJ%*4)-=ay%-LEN(A$)
32250ENDIF:NEXT:K%=FNA(m%,qy%)
32251ENDIF
32252ENDIF:l%=1:Cl%=0:py%=0:REPEAT:CASEC_%?(Py%+Cl%)OF
32253WHEN2,3:Cl%+=2
32254WHEN8:My%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)AND227)OR8:IFC_%?(Py%+py%+1)=10Cl%+=2ELSECl%+=1
32255py%+=1
32256OTHERWISE:O%=ASC(MID$(A$,l%,1)):IFO%=32THENO%=14
32257IFO%=ASC("'")ANDC_%?(Py%+Cl%)=ASC("�")THENO%=ASC("�")
32258C_%?(Py%+Cl%)=O%:My%?((P%+py%)*2)=(My%?((P%+py%)*2)AND3)+Ul%*4:IFry%THEN
32259My%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)AND227)OR8:Pu%?(P%+py%)=O%
32260ELSE:My%?((P%+py%)*2+1)=My%?((P%+py%)*2+1)AND227:IFWy%=0AND!A=0ANDIy%=0PROCAy(P%+py%)
32261ENDIF:IFLEN(A$)<>ay%My%?((P%+py%)*2+1)=My%?((P%+py%)*2+1)OR2
32262l%+=1:Cl%+=1:py%+=1
32263ENDCASE:UNTILl%>LEN(A$):IFWy%=0AND!A=0ANDIy%=0ANDry%=FALSExy%=-1:PROCd
32264IFWy%=0AND!A=0ANDIy%=0ANDvy%=FALSETHEN
32265m%=Qy%:Xu%=t_%:e_%=Gi%:PROCJy:PROCr:PROCJ(e%)
32266ENDIF:IFry%=FALSEIFay%<LEN(A$)ORay%>LEN(A$)THENPROCJ(e%)
32267IFWy%=0AND!A=0ANDIy%=0PROCt
32268ENDPROC
32269DEFPROCYi:IFFNU("Warning from Optical","About to update lexicon on disc. Click on OK if you are sure you want to do this.")=FALSEENDPROC
32270SYS&406c0:OSCLI("Save <OptclPro$Dir>.Dictionary "+STR$~(A%(MJ%))+" +"+STR$~(La%)):OSCLI("SetType <OptclPro$Dir>.Dictionary Data"):SYS&406c1:fa%=TRUE:ENDPROC
32271DEFPROCd_:IFFy%=0PROCJ(V_%):ENDPROC
32272lJ%=-1:W$=LEFT$(FNM(w%,1),1):CASEFy%OF
32273WHEN1:IFW$<>""IFW$<"A"ORW$>"z"OR(W$>"Z"ANDW$<"a")THENENDPROC
32274WHEN2:IFW$<>""IF(W$<"�"ANDW$<>"�")IFW$<"A"ORW$>"z"OR(W$>"Z"ANDW$<"a")THENENDPROC
32275WHEN3
32276ENDCASE:IFFNM(w%,1)=""THEN
32277oJ%=0
32278ELSE:oJ%=FNAy(FNM(w%,1))-1:IFoJ%<0THENoJ%=0
32279A$=$Ql%:CASEFy%OF
32280WHEN1:IFASC(LEFT$(A$,1))-98>=0THEN
32281FORl%=0TOASC(LEFT$(A$,1))-98:oJ%+=W%(l%):NEXT
32282ENDIF
32283ENDCASE
32284ENDIF:Qa%=TRUE:PROCOy(ol%):Z%!0=V_%:SYS&400cb,,Z%:Z%!24=-oJ%*40:SYS&400c5,,Z%:PROCJ(V_%):ENDPROC
32285DEFFNWy(B$,Vi%):IFFNL(B$)>-1PRINTB$"            ";
32286REPEAT:Dy$=MID$(B$,Vi%,1):CASEDy$OF
32287WHEN"d":U$="cl":q%=1:d_%=TRUE
32288WHEN"m":U$="nn":q%=1:d_%=TRUE
32289WHEN"f":U$="r":q%=0:d_%=TRUE
32290WHEN"r":U$="f":q%=0:d_%=TRUE
32291WHEN"c":U$="e":q%=0:d_%=TRUE
32292WHEN"e":U$="o":q%=0:d_%=TRUE
32293WHEN"o":U$="e":q%=0:d_%=TRUE
32294WHEN"p":U$="q":q%=0:d_%=TRUE
32295WHEN"q":U$="p":q%=0:d_%=TRUE
32296WHEN"h":U$="n":q%=0:d_%=TRUE
32297WHEN"n":U$="h":q%=0:d_%=TRUE
32298WHEN"i":U$="l":q%=0:d_%=TRUE
32299WHEN"l":U$="I":q%=0:d_%=TRUE
32300WHEN"I":U$="l":q%=0:d_%=TRUE
32301OTHERWISEd_%=FALSE
32302ENDCASE:IFd_%THEN
32303Yk%=FNWy(LEFT$(B$,Vi%-1)+U$+MID$(B$,Vi%+1),Vi%+1+q%)
32304ENDIF:Vi%+=1:UNTILVi%>LEN(B$):=0
32305DEFPROCf_:LOCALyn%,kn%,_p%,Yp%,A$,zp%,_y%,y_%,OZ%,Nr%,oZ%,I$,r%,``%,m$,i$:IFFy%=0ENDPROC
32306Qa%=FALSE:oJ%=-1:IFP%>-1PROCa(P%)
32307IFry%A$=u$ELSEA$=FNM(w%,1)
32308IF!fy<>0THENPROCya:ENDPROC
32309IFry%=TRUEANDYn%=TRUETHENPROCYy:ENDPROC
32310IFA$=""ORLEN(A$)>ya%PROCOy(0):PROCJ(V_%):lJ%=-1:ENDPROC
32311SYS&406c0:ik%=FNr(A$):I$=A$:A$=FNH(A$):A$=FN`(A$):Ul%=FNz(P%,LEN(A$)):!cu=Ul%:$Ql%=A$:K%=FNA(sn%*ya%,m`%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to guess this word."):PROCm_:ENDPROC
32312!Ki=Vn%:!`u=P%:IF(Vn%<>0ORWi%<>0)ANDP%>=0THEN
32313!rJ=fB%:!Fl=ik%:!va=A%(u%)+4:!Pu=!(A%(u%)):!ra=a%+P%*8:D%=Ky%:E%=P%:OZ%=USR(Ay):!Aa=30/(JJ%!(OZ%*4))*(1<<16):!Ul=Ul%:!Tl=LEN(A$)
32314ENDIF:!xl=A%(m`%):!Sl=sn%-1:!Wl=`u%:!vu=LEN(A$):!Ku=hu%:!Hu=ja%:!ru=Ql%:!Nu=A%(MJ%):!d_=ol%:!e_=1+LEN(A$)DIV4:IFVn%THEN
32315p%=0:FOR_y%=P%TOP%+LEN(A$)-1+y_%:IF(My%?(_y%*2)AND3)>1THENkO%?p%=1ELSEkO%?p%=0
32316IF_y%-P%<>!XTHENp%+=1
32317NEXT
32318ELSE:p%=0:FOR_y%=P%TOP%+LEN(A$)-1+y_%:kO%?p%=1:p%+=1:NEXT
32319ENDIF:bn%!0=0:CASEFy%OF
32320WHEN1:A%=bn%:B%=A%(MJ%):C%=La%:lJ%=USR(pJ)
32321WHEN2:A%=bn%:lJ%=USR(`i)
32322WHEN3:!d_=zl%:!Xu=!e_:A%=bn%:B%=A%(X_%)+2048:C%=zl%:lJ%=USR(Lu)
32323ENDCASE:IFry%=FALSEIFFNS(w%)PROCOy(lJ%+1)
32324yn%=FALSE:Ai%=FALSE:ek%=FALSE:IFlJ%=-1THEN
32325SYS&406c1:IFLEN(I$)>2THEN
32326``%=FALSE:FORr%=2TOLEN(I$):m$=LEFT$(I$,r%-1):i$=MID$(I$,r%):IFFNL(m$)>-1ANDFNL(i$)>-1THENPROCdJ:PROCIJ(P%+r%-1):P%+=1:r%=LEN(A$):Ai%=TRUE:``%=TRUE
32327NEXT:IF``%=FALSEPROCYy
32328ELSE:PROCYy
32329ENDIF
32330ENDIF:IFlJ%=-1ENDPROC
32331IF(ry%<>0ORVn%<>0ORWi%<>0)AND_%>1ANDP%>=0ANDa_%ANDFNpTHEN
32332K%=FNA(ya%*512,e`%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to intelligently check spelling."):yn%=TRUE
32333K%=FNA(ya%*64,a`%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to intelligently check spelling."):yn%=TRUE
32334K%=FNA(ya%*16,W`%):IFK%=FALSEPROCC("Optical","There is not enough free memory available to intelligently check spelling."):yn%=TRUE
32335!I_=1:B%=_%-1:C%=a%:Yy%=USR(Jy):IFZ%(J_%)<Yy%THENK%=FNA(Yy%,J_%)ELSEK%=TRUE
32336IFZ%(`y%)<Yy%THENK%=FNA(Yy%,`y%)ELSEK%=TRUE
32337IFK%=FALSEPROCC("Optical","There is not enough free memory available to intelligently check spelling. Need "+STR$((Yy%*2)DIV1024)+"K.")
32338IFK%=FALSEORyn%THENPROCm_
32339IFyn%=FALSETHEN
32340Nr%=A%(e`%):oZ%=A%(a`%):A%=sn%:B%=Wr%:C%=ya%:D%=Nr%:E%=A%(W`%):CALLei:!`=A%(u%)+4:!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!Zy=fJ%:!Fy=rr%:!p=Ky%:!c=0:!Uy=P%:!Xy=P%:!Dl=Ky%:!tu=sP%:!Uy=0:!Xy=0:!Gl=`u%:!Ma=ik%:!ta=a%:!Tu=rr%:!Ya=Ul%
32341!Wa=A%(u%)+4:!_u=!(A%(u%)):!Si=_%:!rl=Ky%:!cl=P%:!ul=Bu%:!wi=SJ%:!sl=rr%:!Ou=Nr%:!La=oZ%:!vJ=A%(W`%):!Jl=iO%:!Pa=Wr%:!Yi=VP%:!Ju=sO%:!Ol=P%:!Mi=lJ%:!Za=_%:!_l=A%(m`%):!`l=bn%:!nl=`u%:!_i=!X:!jl=!HJ:!oi=LEN(A$):!_=JJ%:!x=r_%:CALLfa:ek%=TRUE
32342IFfB%=0AND!xi>=800!q=1:Ai%=TRUE
32343IFFNF(`u%)="i"THEN!BJ=5000
32344IF!BJ>1200ANDry%=TRUETHEN
32345IFLEN(I$)>2THEN
32346``%=FALSE:FORr%=2TOLEN(I$):m$=LEFT$(I$,r%-1):i$=MID$(I$,r%):IFFNL(m$)>-1ANDFNL(i$)>-1THENPROCdJ:PROCIJ(P%+r%-1):P%+=1:r%=LEN(A$):Ai%=TRUE:``%=TRUE
32347NEXT:IF``%=FALSEPROCYy
32348ELSE:PROCYy
32349ENDIF
32350ENDIF:A%=Fp%:B%=bn%:C%=sn%:D%=lJ%:E%=Wr%:CALLqa:r$=FN_(0):A$=r$:IFlJ%>-1ORQa%THEN
32351IFry%THEN
32352u$=A$
32353ELSE:PROCA(w%,1,A$):PROCG(w%,1,LEN(A$))
32354ENDIF
32355ENDIF:oJ%=0
32356ENDIF:!I_=0
32357ENDIF:IFry%=FALSETHEN
32358K%=FNA(1,e`%):K%=FNA(1,a`%):K%=FNA(1,W`%):PROCJ(V_%)
32359ENDIF:SYS&406c1:ENDPROC
32360DEFPROCIJ(P%):LOCALay%,Ge%,Yy$,py%,l%,Cl%,hu%,iu%:PROCa(P%):C_%=A%(qy%):IF!X>256THENy_%=0ELSEy_%=1
32361IF!A<>0ORWy%<>0ORIy%<>0THENSWAP_%,k_%
32362K%=FNA(m%+1,qy%):IFK%=FALSETHEN
32363PROCC("Optical","There is not enough free memory available to replace this word. Need an extra 1K."):ry%=FALSE:IF!A<>0ORWy%<>0ORIy%<>0THENSWAP_%,k_%
32364ELSE:A%=C_%+Py%:B%=C_%+Py%+1:C%=m%-Py%:CALLQ:A%=a%+P%*8:B%=a%+(P%+1)*8:C%=(_%-P%)*8:CALLQ:A%=My%+P%*2:B%=My%+(P%+1)*2:C%=(_%-P%)*2:CALLQ:A%=Pu%+P%:B%=Pu%+P%+1:C%=_%-P%:CALLQ:IFWy%<>0OR!A<>0ORIy%<>0THENSWAP_%,k_%
32365m%+=1:_%+=1:IF!A<>0ORWy%<>0ORIy%THENk_%+=1:!U+=1:!d+=1
32366!(a%+(P%+y_%)*8)=!(a%+(P%-1+y_%)*8):!(a%+(P%+y_%)*8+4)=!(a%+(P%-1+y_%)*8+4):hu%=TRUE:FORPJ%=0TOe_%:IF!X<256ANDhu%=TRUETHEN
32367IFKy%!(PJ%*4)>P%THENhu%=FALSE
32368ELSE:IFKy%!(PJ%*4)>P%THENKy%!(PJ%*4)+=1
32369ENDIF:NEXT
32370ENDIF:IFK%=FALSEENDPROC
32371l%=1:Cl%=0:py%=0:REPEAT:CASEC_%?(Py%+Cl%)OF
32372WHEN2,3:Cl%+=2
32373WHEN8:My%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)AND227)OR8:IFC_%?(Py%+py%+1)=10Cl%+=2ELSECl%+=1
32374py%+=1
32375OTHERWISE:C_%?(Py%+Cl%)=14:My%?((P%+py%)*2)=(My%?((P%+py%)*2)AND3)+Ul%*4:My%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)AND227)OR8:Pu%?(P%+py%)=14:My%?((P%+py%)*2+1)=My%?((P%+py%)*2+1)OR2:l%+=1:Cl%+=1:py%+=1
32376ENDCASE:UNTILl%>1:ENDPROC
32377DEFFNp:LOCALar%:IF!X>100THENy_%=0ELSEy_%=1
32378ar%=TRUE:FOR_y%=P%TOP%+LEN(A$)-1+y_%:IF(My%?(_y%*2+1)AND2)THENar%=FALSE:_y%=P%+LEN(A$)-1+y_%
32379NEXT:=ar%
32380DEFPROCYy:IFry%=FALSEENDPROC
32381IF!X>100THENy_%=0ELSEy_%=1
32382FOR_y%=P%TOP%+LEN(A$)-1+y_%:My%?(_y%*2+1)=(My%?(_y%*2+1)AND227)OR4:NEXT:Ai%=TRUE:ENDPROC
32383DEFPROCdJ:IF!X>100THENy_%=0ELSEy_%=1
32384FOR_y%=P%TOP%+LEN(A$)-1+y_%:My%?(_y%*2+1)=(My%?(_y%*2+1)AND227)OR8:NEXT:ENDPROC
32385DEFPROCya:IF!X>100THENy_%=0ELSEy_%=1
32386FOR_y%=P%TOP%+LEN(A$)-1+y_%:My%?(_y%*2+1)=(My%?(_y%*2+1)AND227)OR16:IFry%=FALSEPROCAy(_y%)
32387NEXT:Ai%=TRUE:!fy=0:xy%=-1:IFry%=FALSEANDvy%=TRUEPROCd
32388IFvy%=FALSETHENm%=Qy%:PROCr:PROCJ(e%)
32389ENDPROC
32390DEFPROCm_:lJ%=-1:K%=FNA(1,m`%):K%=FNA(1,e`%):K%=FNA(1,a`%):K%=FNA(1,W`%):K%=FNA(1,J_%):K%=FNA(1,`y%):l%=lJ%:q%=LEN(A$):oJ%=0:PROCJ(V_%):yn%=TRUE:ry%=FALSE:ENDPROC
32391DEFFNz(cn%,l%):LOCALSy%,py%,ye%:IFcn%<0THEN=0
32392FORSy%=0TOKJ%:jB%?Sy%=0:NEXT:FORpy%=cn%TOcn%+l%-1:Ul%=?(My%+py%*2)DIV4:jB%?Ul%+=1:NEXT:ye%=-1:Ul%=0:FORSy%=0TOKJ%:IFjB%?Sy%>ye%THENye%=jB%?Sy%:Ul%=Sy%
32393NEXT:=Ul%
32394DEFFNr(A$):LOCALp%,jk%,Pp%,O%,cn%:O%=ASC(LEFT$(A$,1)):fB%=0:IF(O%>=ASC("a")ANDO%<=ASC("z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))THENfB%=1
32395IF(O%>=ASC("A")ANDO%<=ASC("Z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))THENfB%=2
32396IFLEN(A$)<2THEN=FALSE
32397jk%=0:ve%=0:IFLEN(A$)=2THENcn%=1ELSEcn%=2
32398FORp%=cn%TOLEN(A$):O%=ASC(MID$(A$,p%,1)):IF(O%>=ASC("A")ANDO%<=ASC("Z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))THENjk%+=1
32399IF(O%>=ASC("a")ANDO%<=ASC("z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))THENve%+=1
32400NEXT:=ve%>=jk%
32401DEFFNAy(A$):LOCALYJ%:IFA$=""THEN=-1
32402A$=FNH(A$):$Ql%=A$:CASEFy%OF
32403WHEN1:W$=LEFT$(A$,1):Gk%=!(A%(MJ%)+(ASC(W$)-97)*4):IFW$="z"THEN_n%=La%*2ELSE_n%=!(A%(MJ%)+(ASC(W$)-96)*4)-1
32404B%=LEN(A$):F%=hu%:G%=ja%:C%=Ql%:D%=A%(MJ%):E%=Gk%:H%=_n%:A%=`u%:eu%=USR(nu)
32405WHEN2:FORYJ%=1TOLEN(A$):IF(ASC(MID$(A$,YJ%,1))>=ASC("a")ANDASC(MID$(A$,YJ%,1))<=ASC("z"))OR(ASC(MID$(A$,YJ%,1))>=ASC("�")ANDASC(MID$(A$,YJ%,1))<=ASC("�"))THENMID$(A$,YJ%,1)=CHR$(ASC(MID$(A$,YJ%,1))-32)
32406NEXT:SYS"XSpell_FindWord",A$,LEN(A$)TOeu%:eu%+=1
32407WHEN3:q%=ASC(LEFT$(A$,1)):IF!(A%(X_%)+q%*8)<>-1THEN
32408A%=A%(X_%)+2048+!(A%(X_%)+q%*8):B%=zl%-!(A%(X_%)+q%*8):C%=Ql%:D%=LEN(A$):eu%=USR(Mu):FOR_y%=0TOq%-1:IF!(A%(X_%)+4+_y%*8)<>-1THENeu%+=!(A%(X_%)+4+_y%*8)
32409NEXT
32410ELSE:eu%=0
32411ENDIF
32412ENDCASE:=eu%
32413DEFFNL(A$):LOCALYJ%,te%,W$,qe%:IFA$=""THEN=-1
32414A$=FNH(A$):$Ql%=A$:W$=LEFT$(A$,1):CASEFy%OF
32415WHEN1:qe%=ASC(W$):IFqe%<ASC("a")ORqe%>ASC("z")THEN
32416eu%=-1
32417ELSE:Gk%=!(A%(MJ%)+(ASC(W$)-97)*4):IFW$="z"THEN_n%=La%*2ELSE_n%=!(A%(MJ%)+(ASC(W$)-96)*4)-1
32418B%=LEN(A$):F%=hu%:G%=ja%:C%=Ql%:D%=A%(MJ%):E%=Gk%:H%=_n%:A%=`u%:eu%=USR(xu)
32419ENDIF
32420WHEN2:IFLEN(A$)>2THEN
32421te%=FALSE:FORYJ%=1TOLEN(A$):O%=ASC(MID$(A$,YJ%,1)):IF(O%>=ASC("a")ANDO%<=ASC("z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))THENMID$(A$,YJ%,1)=CHR$(O%-32)
32422IFO%<ASC("A")ORO%>ASC("�")OR(O%>ASC("Z")ANDO%<ASC("�"))THENte%=TRUE
32423NEXT:IFte%THEN
32424eu%=-1
32425ELSE:SYS"XSpell_CheckWord",A$TOeu%:IFeu%THENeu%=0ELSEeu%=-1
32426ENDIF
32427ELSE:eu%=-1
32428ENDIF
32429WHEN3:q%=ASC(LEFT$(A$,1)):IF!(A%(X_%)+q%*8)<>-1THEN
32430A%=A%(X_%)+2048+!(A%(X_%)+q%*8):B%=zl%-!(A%(X_%)+q%*8):C%=Ql%:D%=LEN(A$):eu%=USR(dJ)
32431ELSE:eu%=-1
32432ENDIF
32433ENDCASE:=eu%
32434DEFPROCZJ:CASEFy%OF
32435WHEN0:ol%=0
32436WHEN1:FORl%=0TO25:D%=A%(MJ%):E%=!(A%(MJ%)+(l%*4)):IFl%<25THENH%=!(A%(MJ%)+(l%+1)*4)-1ELSEH%=La%*2
32437W%(l%)=USR(Wu):NEXT:ol%=SUM(W%())-1
32438WHEN2:SYS"XSpell_ImpressionInfo"TO,ol%
32439WHEN3:A%=A%(X_%):B%=A%(X_%)+2048:C%=zl%:wy%=USR(Ru):IFZ`%=FALSEIFwy%<>0THENPROCX("Optical","Words starting with the same initial letter have been found in different sections of the lexicon. Therefore it may not function properly.")
32440ol%=0:FORq%=0TO255:IF!(A%(X_%)+4+8*q%)<>-1THENol%+=!(A%(X_%)+4+8*q%)
32441NEXT
32442ENDCASE:ENDPROC
32443DEFPROCFa(I%,j%):CASEj%OF
32444WHEN13:IFFNa(w%,5)ENDPROC
32445PROCS(w%,5,1):PROCfJ
32446OTHERWISE:PROCv(j%)
32447ENDCASE:ENDPROC
32448DEFPROCfJ:O`%=FALSE:PROCMu:PROCS(w%,5,0):IFWi%THEN
32449xy%=P%:P%=-1:PROCd:P%=xy%:jy%=FALSE:PROCG(e%,-1,-1):PROCO(P%)
32450ENDIF:IFWi%THENPROCM(w%):PROCM(V_%):ENDPROC
32451IFO`%ORFy%=0THENO_%=-1:ENDPROC
32452REPEAT:PROCVy:UNTILsi%>m%-1ORd_%=-1:ENDPROC
32453DEFPROCnl:LOCALB$,q%,l%,DJ%,hJ%,gr%:IFFy%=0MOVEL%+2,X%-8:SYS&400e6,11:PRINT"  No lexicons loaded":ENDPROC
32454IFlJ%=-1ANDQa%=FALSEMOVEL%+2,X%-8:SYS&400e6,8:PRINT"    No words found":ENDPROC
32455Gy%=Z%!16-Z%!24-Z%!32:Ly%=Z%!16-Z%!24-Z%!40:IFGy%<0Gy%=0
32456IFLy%<0Ly%=0
32457`i%=(Ly%-4)DIV40:G`%=(Gy%-4)DIV40:IF`i%>lJ%ANDQa%=FALSEENDPROC
32458IFG`%>lJ%ANDQa%=FALSEG`%=lJ%
32459SYS&400e6,7:IFQa%THEN
32460CASEFy%OF
32461WHEN1:vr%=0:FORl%=`i%TOG`%:MOVEL%+2,X%-8-40*l%:q%=0:hJ%=l%:WHILEq%<=25ANDhJ%-W%(q%)>=0:hJ%-=W%(q%):q%+=1:ENDWHILE:IF!(A%(MJ%)+q%*4)<>vr%THEN
32462_o%=!(A%(MJ%)+q%*4):vr%=!(A%(MJ%)+q%*4):B%=hJ%
32463ELSE:B%=0:IFINSTR("BFGHJKQVWXYZ",CHR$(q%+65))_o%-=1
32464ENDIF:F%=hu%:G%=ja%:D%=A%(MJ%):E%=_o%:IFq%<25THENH%=!(A%(MJ%)+(q%+1)*4)-1ELSEH%=La%*2
32465_o%=USR(gJ):NEXT
32466WHEN2:SYS"XSpell_GetWord",`i%TO,B$:MOVEL%+2,X%-8-40*`i%:PRINTFNX(B$):FORl%=`i%+1TOG`%:SYS"XSpell_GetNextWord"TO,B$:MOVEL%+2,X%-8-40*l%:PRINTFNX(B$):NEXT
32467WHEN3:A%=A%(X_%)+4:B%=`i%:q%=USR(jy):hJ%=!iy:gr%=q%:A%=hJ%:B%=A%(X_%)+2048+!(A%(X_%)+q%*8):C%=`u%:D%=zl%-!(A%(X_%)+q%*8):CALLby:B$=$`u%:MOVEL%+2,X%-8-40*`i%:PRINTFNX(B$):FORl%=`i%+1TOG`%:A%=A%(X_%)+4:B%=l%:q%=USR(jy):hJ%=!iy:A%=hJ%:B%=A%(X_%)+2048+!(A%(X_%)+q%*8):C%=`u%
32468D%=zl%-!(A%(X_%)+q%*8):IFq%<256THEN
32469IFgr%<>q%THEN
32470CALLby:gr%=q%
32471ELSE:CALLlu
32472ENDIF
32473ENDIF:B$=$`u%:MOVEL%+2,X%-8-40*l%:IFq%<256PRINTFNX(B$)
32474NEXT
32475ENDCASE
32476ELSE:FORl%=`i%TOG`%:MOVEL%+2,X%-8-40*l%:PRINTFNX(FN_(l%)):NEXT
32477ENDIF:IFoJ%>=0THENPROCW(3,8):RECTANGLEFILLL%,X%-4-40*oJ%,368,-36
32478ENDPROC
32479DEFFNX(B$):FORp%=1TOLEN(B$):IFp%=1THEN
32480O%=ASC(MID$(B$,p%,1)):IF(O%>=ASC("a")ANDO%<=ASC("z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))MID$(B$,p%)=CHR$(O%-32)
32481ELSE:O%=ASC(MID$(B$,p%,1)):IF(O%>=ASC("A")ANDO%<=ASC("Z"))OR(O%>=ASC("�")ANDO%<=ASC("�"))ORO%=7MID$(B$,p%)=CHR$(O%+32)
32482ENDIF:NEXT:=B$
32483DEFPROCOy(l%):h%=l%*40:IFh%<252THENh%=252
32484Z%!0=0:Z%!12=0:Z%!8=362:Z%!4=-h%:SYS&400d7,V_%,Z%:IFFNS(w%)=FALSEENDPROC
32485Z%!0=V_%:SYS&400cb,,Z%:Z%!24=0:SYS&400c5,,Z%:ENDPROC
32486DEFPROCUl:CASEZ%!36OF
32487WHEN1:Z%!0=V_%:SYS&400cb,,Z%:IF(Z%!24)MOD40=0THENZ%!24+=40ELSEZ%!24+=-(Z%!24)MOD40
32488SYS&400c5,,Z%
32489WHEN-1:Z%!0=V_%:SYS&400cb,,Z%:IF(Z%!24)MOD40=-28THENZ%!24-=40ELSEZ%!24-=28+(Z%!24MOD40)
32490SYS&400c5,,Z%
32491WHEN2:Z%!0=V_%:SYS&400cb,,Z%:IF(Z%!24)MOD40=0THENZ%!24+=6*40ELSEZ%!24+=5*40-(Z%!24)MOD40
32492SYS&400c5,,Z%
32493WHEN-2:Z%!0=V_%:SYS&400cb,,Z%:IF(Z%!24)MOD40=-28THENZ%!24-=6*40ELSEZ%!24-=5*40+28+(Z%!24MOD40)
32494SYS&400c5,,Z%
32495ENDCASE:ENDPROC
32496DEFPROCOJ:IFWi%=TRUE!q=2ELSE!q=4
32497!UJ=Fy%:PROCa(P%):A%=_%:B%=Qy%:C%=m%:D%=A%(qy%):E%=Py%:F%=Ql%:G%=ry%:CASEFy%OF
32498WHEN1:!wy=A%(MJ%):!ay=La%
32499WHEN2
32500WHEN3:!wy=A%(X_%):!ay=zl%
32501ENDCASE:!IJ=`u%:!j_=Ql%:!SJ=hu%:!n_=ja%:d_%=USR(P_):ENDPROC
32502DEFPROCVy:IFm%=0OR_%<=1ry%=FALSE:d_%=-1:ENDPROC
32503IFry%=FALSEAND!A=0SYS&406c0
32504!UJ=Fy%:PROCa(P%):xy%=P%:MB%=uJ%:ZB%=bJ%:A%=_%:B%=Qy%:C%=m%:D%=A%(qy%):E%=Py%:F%=Ql%:G%=ry%:CASEFy%OF
32505WHEN1:!wy=A%(MJ%):!ay=La%
32506WHEN2
32507WHEN3:!wy=A%(X_%):!ay=zl%
32508ENDCASE:IFWy%<>0OR!A<>0ORIy%THEN
32509IFP%<an%THEN!o=1ELSE!o=0
32510ELSE:IFP%<0THEN!o=1ELSE!o=0
32511ENDIF:!IJ=`u%:!j_=Ql%:!SJ=hu%:!n_=ja%:d_%=USR(P_):Py%=!My:P%=FNc(!qJ-Qy%):IFP%<0P%=0
32512IFP%>_%THENSYS&406c1:ry%=FALSE:P%=-1:si%=m%:ENDPROC
32513IF!(a%+P%*8)=-1AND!(a%+4+P%*8)=-1THEN
32514WHILE!My<m%AND!(a%+P%*8)=-1AND!(a%+4+P%*8)=-1:d_%=USR(P_):Py%=!My:P%=FNc(!qJ):ENDWHILE
32515ENDIF:A$=FNF(Ql%):si%=!My:IFsi%<m%THEN
32516IFry%=FALSEPROCd
32517xy%=P%:IFxy%>=0MB%=uJ%:ZB%=bJ%
32518IFP%>=0THEN
32519IFd_%=-1ANDNOT(si%>m%-1)THEN
32520IFry%=TRUETHEN
32521u$=A$:PROCf_:IFlJ%>-1ANDAi%=FALSEPROCMu
32522IF!X>100THENy_%=0ELSEy_%=1
32523IF!HJ=1THENy_%=0
32524IF!q=0THEN!q=3:P%+=LEN(A$)+y_%
32525IFP%>=_%THENsi%=m%
32526Ai%=FALSE
32527ELSE:PROCA(w%,1,A$):PROCG(w%,1,LEN(A$)):PROCwJ:PROCf_:IFAi%THENd_%=0:Ai%=FALSE:!q=0
32528ENDIF
32529ENDIF
32530ENDIF
32531ENDIF:IFsi%>m%-1P%=-1
32532IFsi%>m%-1THEN
32533IFry%=FALSEPROCX("Message from Optical","The spelling checker has reached the end of the text."):PROCd
32534IFry%jy%=FALSE
32535ry%=FALSE
32536ENDIF:IFry%=FALSESYS&406c1
32537ENDPROC
32538DEFPROCwJ:LOCALyu%,Pa%,ri%,V%,bB%,Y`%,Uk%,kZ%,zZ%,wZ%:PROCA_:IFWi%THEN
32539PROCu_(w%,"Spelling checker (doing single word)")
32540ELSE:PROCu_(w%,"Spelling checker")
32541ENDIF:yu%=P%:IFyu%<0THENyu%=0
32542PROCMy(yu%,-1):M%!0=e%:SYS&400cb,,M%:bB%=M%!4+(M%!12-M%!4)/2:Pa%=M%!16-M%!24-rJ%:`e%=M%!4-M%!20+Ou%:Y`%=FALSE:Uk%=FNS(w%):IFUk%=FALSETHENY`%=TRUE
32543M%!0=V_%:SYS&400cb,,M%:IFM%!28<>-1Y`%=TRUE
32544M%!0=w%:SYS&400cb,,M%:IFPa%>M%!8-16ANDPa%<M%!16+88AND`e%+(30*16)>M%!4-16AND`e%<M%!12+16THENY`%=TRUE
32545IFM%!8>Pa%+256ORM%!16<Pa%-256THENY`%=TRUE
32546IFY`%=FALSEENDPROC
32547PROCq:IFs%>M%!4ANDs%<M%!12ANDv%>M%!8ANDv%<M%!16ANDUk%=TRUETHENkZ%=TRUE:zZ%=M%!4:wZ%=M%!8
32548IFUk%=FALSETHEN
32549bB%=bB%-(M%!12-M%!4)/2:M%!12=bB%+(M%!12-M%!4):M%!4=bB%
32550ENDIF:SYS53,-1,12TO,,ri%:SYS53,-1,5TO,,V%:V%=1<<V%:ri%=ri%*V%-1-44:IFPa%+16+(M%!16-M%!8)>ri%THEN
32551M%!8=Pa%-88-(M%!16-M%!8):M%!16=Pa%-88
32552ELSE:M%!16=Pa%+16+(M%!16-M%!8):M%!8=Pa%+16
32553ENDIF:M%!28=-1:SYS&400c5,,M%:PROCD(V_%):IFkZ%MOUSETOs%+(M%!4-zZ%),v%+(M%!8-wZ%)
32554ENDPROC
32555DEFPROCd:IFa_%=FALSEENDPROC
32556jy%=TRUE:IFa_%THEN
32557A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:CALLg:uJ%=!b:bJ%=!u:Py%=!w:Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:SYS&400c9,,Z%TOd%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=TRUE:WHILEd%:IFxy%>=0PROCg(xy%,-1)
32558IFP%>=0PROCg(P%,-1)
32559SYS&400ca,,Z%TOd%:ENDWHILE
32560ENDIF:PROCA_:ENDPROC
32561DEFPROCei:A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:CALLg:uJ%=!b:bJ%=!u:Py%=!w:l%=Py%:WO%=0:C_%=A%(qy%):WHILENOT(INSTR(CHR$32+CHR$10+"-",CHR$(C_%?l%))<>0ORC_%?l%=10OR(INSTR(CHR$10+"!""%)'*+,-./:;<>=?\]^_}",CHR$(C_%?l%))<>0ANDINSTR(CHR$32+CHR$10+"-",CHR$(C_%?(l%+1)))<>0))ANDl%<m%ANDWO%<=LEN(A$)-1:Ge%=ASC(MID$(A$,WO%+1,1))
32562IF(C_%?l%>=ASC("A")ANDC_%?l%<=ASC("Z"))OR(C_%?l%>=ASC("�")ANDC_%?l%<=ASC("�"))THENGe%-=32
32563MID$(A$,WO%+1)=CHR$(Ge%):l%+=1:WO%+=1:ENDWHILE:ENDPROC
32564DEFPROCz:IFWy%<>0OR!A<>0ORIy%ORDy%ENDPROC
32565SYS&406c0:PROCP(w%,0,Fy%=0):PROCP(w%,2,Fy%=0):PROCP(w%,3,Fy%=0):PROCP(w%,4,Fy%=0):PROCP(w%,6,Fy%=0):PROCP(w%,7,Fy%=0):PROCP(w%,8,Fy%=0):PROCP(w%,10,Fy%=0):PROCP(w%,11,Fy%=0):CASEFy%OF
32566WHEN0:PROCA(w%,12,"(No lexicon)")
32567WHEN1:PROCZ(w%,11):PROCF(w%,0):PROCF(w%,4):PROCF(w%,8):PROCA(w%,12,"Optical's lexicon")
32568WHEN2:PROCF(w%,11):PROCZ(w%,0):PROCZ(w%,4):PROCZ(w%,8):PROCA(w%,12,"Impression's lexicon"):SYS"XSpell_ResetIgnore"
32569WHEN3:PROCZ(w%,11):PROCF(w%,0):PROCF(w%,4):PROCF(w%,8):PROCA(w%,12,"'Plain text' lexicon")
32570ENDCASE:IFFy%>0THEN
32571IFm%=0OR_%<=1THEN
32572PROCZ(w%,2):PROCZ(w%,5):PROCZ(w%,6):PROCZ(w%,7):PROCZ(w%,10):PROCZ(w%,11)
32573ELSE:PROCF(w%,2):PROCF(w%,5):PROCF(w%,6):PROCF(w%,7):PROCF(w%,10)
32574ENDIF
32575ENDIF:IFgy%?Vu%<>0THEN
32576PROCZ(w%,7):PROCZ(w%,10):PROCZ(w%,2)
32577ENDIF:IFWi%=FALSEANDjy%=FALSETHENxy%=-1:PROCd
32578lJ%=-1:oJ%=0:Qa%=TRUE:PROCq:IFry%=FALSETHEN
32579IFvy%=FALSETHENPROCxy
32580PROCwJ:PROCG(w%,1,0)
32581ENDIF:IFWi%=FALSETHEN
32582PROCZJ:IFry%=FALSEPROCd_
32583ENDIF:IFry%=FALSEANDWi%=FALSEPROCOy(ol%)
32584SYS&406c1:ENDPROC
32585DEFPROCNa:LOCALpa%:IFFy%=0Fy%=1
32586Z`%=TRUE:CASEFy%OF
32587WHEN1:Fy%=0:PROCjy:PROCqJ
32588WHEN2:Fy%=0:SYS&20039,,"Spell_Typo"TO;pa%:IFpa%AND1THEN
32589PROCp_(j$)
32590ENDIF:PROCsy
32591WHEN3:Fy%=0:PROCzJ(h$):PROChJ
32592ENDCASE:Z`%=FALSE:ENDPROC
32593DEFPROCjy:PROCX("Message from Optical","There is no lexicon supplied with this version of Optical. Use an Impression or Text file lexicon, or for a full version please contact Neurotron Software."):ENDPROC
32594DEFPROCJi:K%=FNA(1,MJ%):PROCU(Dict_Menu%,2):PROCR(Dict_Menu%,1):IFFy%=1THENFy%=0:PROCV(TJ%,1)
32595PROCsy:IFFNS(w%)PROCz
32596ENDPROC
32597DEFPROCx_:IFIy%=FALSEP%=-1
32598ry%=TRUE:Ai%=FALSE:PROCa(P%):!q=3:!My=Py%:!fy=0:!A=0:IFLi%ANDIy%PROCYl:ENDPROC
32599SYS&406c0:Iy%=FALSE:WHILEry%=TRUEANDNOT(INKEY-113):PROCVy:ENDWHILE:IFINKEY-113!A=1:PROCHy
32600ry%=FALSE:P%=-1:PROCA(w%,1,""):PROCM(w%):K%=FNA(1,e`%):K%=FNA(1,a`%):K%=FNA(1,W`%):PROCJ(e%):m%=Qy%:PROCr:PROCG(e%,-1,-1):PROCO(P%):OSCLI("FX21"):OSCLI("FX124"):SYS&406c2:ENDPROC
32601DEFPROCYl:IFIy%hn%=an%ELSEhn%=P%
32602!A=1:ENDPROC
32603DEFPROCH_:LOCALap%,G$:SWAPhn%,P%:PROCVy:SWAPhn%,P%:jy%=FALSE:IFry%=FALSEANDIy%AND!R>0THENWy%=2:an%=_%:PROC__:ENDPROC
32604IFry%=FALSEANDIy%AND!R=0THENPROC__:PROCl_:ENDPROC
32605IFry%=FALSETHEN
32606PROCA(w%,1,""):PROCM(w%):m%=Qy%:PROCr:P%=-1:!A=0:IFBa%PROCF_
32607IFhi%PROCl
32608IFS`%PROCgy:PROCXy
32609ENDIF:ENDPROC
32610DEFPROCni:xy%=P%:P%=-1:PROCd:P%=xy%:jy%=FALSE:PROCG(e%,-1,-1):PROCO(P%):PROCA(w%,1,""):PROCd_:PROCM(w%):PROCM(V_%):PROCR(Bl%,2):PROCR(Bl%,3):PROCR(Bl%,4):PROCR(Bl%,5):PROCD(e%):P%=-1:Wy%=0:!A=0:Iy%=FALSE:ry%=FALSE:ENDPROC
32611DEFPROCYa:CASEFNP(0)OF
32612WHEN1:CASEFNP(1)OF
32613WHEN1:PROCjy
32614WHEN2:PROCJi
32615OTHERWISE:IFFy%PROCV(TJ%,Fy%)
32616IFZ%(MJ%)>2000THEN
32617Fy%=1:PROCz
32618ELSE:PROCjy:IFZ%(MJ%)>2000Fy%=1ELSEFy%=0:PROCz
32619ENDIF:IFFy%PROCK(TJ%,Fy%)
32620ENDCASE
32621WHEN2:IFFy%PROCV(TJ%,Fy%)
32622Fy%=2:PROCK(TJ%,Fy%):PROCz
32623WHEN3:CASEFNP(1)OF
32624WHEN1:PROCWl
32625OTHERWISE:IFFy%PROCV(TJ%,Fy%)
32626Fy%=3:PROCK(TJ%,Fy%):PROCz
32627ENDCASE
32628ENDCASE:ENDPROC
32629DEFPROCPu(A$):CASEFy%OF
32630WHEN2:FORYJ%=1TOLEN(A$):IF(ASC(MID$(A$,YJ%,1))>ASC("a")ANDASC(MID$(A$,YJ%,1))<ASC("z"))OR(ASC(MID$(A$,YJ%,1))>ASC("�")ANDASC(MID$(A$,YJ%,1))<ASC("�"))THENMID$(A$,YJ%,1)=CHR$(ASC(MID$(A$,YJ%,1))-32)
32631NEXT:SYS"XSpell_AddToIgnore",A$TOHa%;wy%:IFwy%AND1THENPROCX("Error from SpellMaster",FNF(Ha%+4))
32632ENDCASE:REPEAT:PROCVy:UNTILsi%>m%-1ORd_%=-1:ENDPROC
32633DEFPROCjJ:LOCALpa%,yZ%,au%,vk%:SYS&20039,,"Spell_Typo"TO;pa%:IFpa%AND1THEN
32634PROCU(TJ%,2)
32635ELSE:PROCR(TJ%,2):Z$="User dicts":vk%=TRUE:FORyZ%=1TO8:SYS"XSpell_GetDictionaryName",yZ%TOau%:IFau%<>-1THEN
32636vk%=FALSE:Z$+=","+FNF(au%)
32637ENDIF:NEXT:IFvk%THENZ$+=",None"
32638PROCyy(UserDict_Menu%,Z$):IFvk%PROCU(UserDict_Menu%,1)
32639ENDIF:IFBB%PROCU(TJ%,3)ELSEPROCR(TJ%,3)
32640ENDPROC
32641DEFPROCsy:LOCALpa%:SYS&20039,,"Spell_Typo"TO;pa%:IFpa%AND1THENPROChJ:ENDPROC
32642Fy%=2:PROCK(TJ%,Fy%):ENDPROC
32643DEFPROChJ:IFBB%THENPROCqJ:ENDPROC
32644Fy%=3:PROCK(TJ%,Fy%):ENDPROC
32645DEFPROCqJ:IFZ%(MJ%)<=1024THENENDPROC
32646Fy%=1:PROCK(TJ%,Fy%):ENDPROC
32647DEFPROCVi(S$):SYS&20039,,"Spell_Typo"TO;pa%:IFpa%AND1THENPROCX("Message from Optical","Please drop your Impression application onto Optical on the icon bar before trying to load a User Dictionary."):ENDPROC
32648SYS"XSpell_LoadUser",S$TOHa%;wy%:IFwy%AND1THENPROCC("SpellMaster",FNF(Ha%+4)):ENDPROC
32649IFZ`%=FALSEPROCX("Message from Optical","This User Dictionary has been added to Impression's lexicon.")
32650IFFNS(w%)THENPROCz
32651ENDPROC
32652DEFPROCp_(S$):SYS&20005,"RMLoad "+S$+".RMStore.!SpellMod"TOHa%;wy%:IFwy%AND1THENPROCC("Optical",FNF(Ha%+4)):ENDPROC
32653IFZ`%=FALSEPROCX("Message from Optical","The Impression SpellMaster lexicon has been loaded.")
32654IFFy%PROCV(TJ%,Fy%)
32655Fy%=2:PROCK(TJ%,Fy%):IFFNS(w%)THENPROCz
32656j$=S$:ENDPROC
32657DEFPROCZ_:IFgy%?Vu%<>0ANDYn%=FALSETHENPROCC("Optical","It is not possible to Auto check spelling while text is formatted as a table."):ENDPROC
32658IFFy%<>0ry%=TRUE:PROCz:PROCx_:ENDPROC
32659PROCjy:IFFy%<>0ry%=TRUE:PROCz:PROCx_:ENDPROC
32660ENDPROC
32661DEFFN_(`A%):=$(A%(m`%)+bn%!(`A%*4))
32662DEFPROCFu:IFP%=-1ENDPROC
32663IFjy%THEN
32664xy%=P%:P%=-1:PROCd:P%=xy%:jy%=FALSE
32665ENDIF:Wi%=TRUE:Iy%=FALSE:!A=0:Wy%=0:IFjy%=FALSETHENxy%=-1:PROCd
32666PROCz:si%=0:ry%=FALSE:!My=Py%:!fy=0:!q=2:!o=0:!bu=0:!X=0:PROCVy:ZO%=TRUE:ENDPROC
32667DEFPROCzJ(S$):LOCALfA%:IFZ`%=FALSEIFFNU("Message from Optical","This Text file is about to be loaded as the Plain Text lexicon. Press OK to continue")=FALSEENDPROC
32668SYS&2000d,76,S$TOF%;wy%:IFwy%AND1THENPROCC("Optical","Loading Plain lexicon - "+FNF(F%+4)):ENDPROC
32669SYS&406c0:zl%=EXT#F%:CLOSE#F%:K%=FNA(zl%+2048,X_%):IFK%=FALSETHENPROCC("Optical","There is not enough free memory available to store the lexicon. Need "+STR$(zl%DIV1024)+"K."):K%=FNA(1,X_%):ENDPROC
32670OSCLI("Load "+S$+" "+STR$~(A%(X_%)+2048)):A%=A%(X_%)+2048:B%=zl%:CALLfJ:fA%=Fy%:Fy%=3:PROCZJ:Fy%=fA%:IFol%=0THENPROCC("Optical","There are no words in the lexicon!"):PROCV(TJ%,Fy%):BB%=TRUE:Fy%=0:PROCsy:K%=FNA(1,X_%):PROCz:ENDPROC
32671PROCR(PlainDict_Menu%,1):Fy%=3:PROCV(TJ%,1):PROCV(TJ%,2):PROCK(TJ%,3):BB%=FALSE:PROCOy(ol%):IFFNS(w%)PROCz
32672h$=S$:SYS&406c1:ENDPROC
32673DEFPROCWl:K%=FNA(1,X_%):PROCU(PlainDict_Menu%,1):IFFy%=3THENFy%=0:PROCV(TJ%,3)
32674BB%=TRUE:PROCsy:IFFNS(w%)PROCz
32675ENDPROC
32676DEFPROCcJ:xy%=P%:P%=-1:PROCd:P%=xy%:jy%=FALSE:PROCG(e%,-1,-1):PROCO(P%):PROCM(w%):PROCM(V_%):ENDPROC
�Optical Professional Demo
�(c) Martin Dawe 1993-1996
nQy$="4.21D (15th January, 1996)":ș&406c0:ș&406c4,0:Ke%=�:��26,4:�$;" at line ";�(�):ș&406c2:�ry:�Qy:�
bș&406c4,10:�Gi("Optical Pro Demo",12288,12200):�wl:ș&406c4,20:�gl:0,�$+" at line "+�(�):�
�ș&406c4,30:�Ra:ș&406c4,40:�ma:ș&406c4,50:�A(Info_Window%,5,"� Martin Dawe 1993�1996"):�A(Info_Window%,4,Qy$):�Wi:ș&406c4,60:�Kl:ș&406c4,70:�fy:�ry:�Di:�e$=""��ny("<OptclPro$Dir>.DefFonts")��ny(e$)
>ș&406c4,80:�H:�An:K$=�h:�qu:ș&406c4,90:�wn%�Na�Fy%=0:�sy
a�S(`_%,1,1):�S(`_%,2,0):�S(`_%,3,0):�K(f_%,4):�V(f_%,5):�V(f_%,6):ș&406c4,99:�D_:�H:�e$<>""�
1�A(g%,16,"No letter marked"):�Z(g%,12):�D(g%)
	#�:�_:M%!0=e%:ș&400cb,,M%:�vy%�

p_%=(M%!12-M%!4-4)/16
�:p_%=M%!12-M%!4-4
�:ș&406c1:�hi%�

	�yl%�
Ku%=�S(iy%):�Iy
�:i_%=�:�l
�
��:��U("Internal Error from Optical",�$+" at line "+�(�)+". Click on OK to continue running, or Cancel to quit.")=��ș&406c2:�Qy:�
4Wy%=0:!A=0:�Ke%�("RMKill NeurotronSample"):Ke%=�

�vi:�Qy:�
P��wl:�ay%:Kr%=640:�uZ%Kr%:UO%=0:xJ%=256:pl%=256:ș16�q$,Ae%:�q$,"-fonts ")�
e$=�q$,�q$,"-fonts ")+7)
�:e$=""
_�:ș&400ec,-1,-1�jn%:al%=23:�Z%(al%-1),A%(al%-1),nn%4*al%,ci%4*al%:�BJ:�m(al%)=���ry:�Qy:�
Lș&20023,"Obey$Dir",M%,256,0,0�,,ay%:M%?ay%=13:By$=$M%:�Zn:�el:�Pl:�wi:�
���BJ:Ti%=0:`%=1:WJ%=2:ju%=3:Ny%=4:MJ%=5:X_%=6:Nu%=7:J_%=8:Ki%=9:ke%=9:u%=10:uu%=11:qJ%=12:eP%=13:`y%=14:qy%=15:e`%=16:a`%=17:W`%=18:m`%=19:pn%=20:go%=21:M_%=22:�
���el:�gy%36:�YZ%36:�AP%36:�kr%36:oB%=0:hO%=1:Dr%=2:sB%=3:Io%=4:tB%=5:Ne%=6:uB%=7:ha%=8:Vu%=9:dk%=10:ua%=12:gy%!0=65793:gy%!4=&1010001:gy%!8=0:gy%?ha%=�("?"):$(gy%+ua%)=�9+�0:!ii=gy%:!Vu=AP%:qo%=�:Z`%=�:�B%(1):�J%(1):�N%(1,15):�Q%(1,15):�U%(1,15)
��X%(1,15):xO%=�:Ui%=0:YB%=�:an%=0:hn%=0:ou%=0:PP%=�:t`%=�:vl%=�:Iy%=�:rJ%=-1:�_J:Ai%=�:F_%=�:jy%=�:Hn%=�:ZO%=�:BB%=�:ek%=�:Wi%=�:Ho%=�:YO%=�:�Z 60:Z!0=0:Z!4=0:Z!8=0:Z!12=0:Z!16=0:Z!20=0:Z!24=PJ:Z!28=NJ:Z!32=s_:Z!36=__:Z!40=x_:Z!44=FJ:Z!48=b_:Z!52=0
�Z!56=0:Ul%=0:r$="":!I_=0:�Su%28:AB%=�:�Jn%36:Cy$="Trinity.Medium":QP%=1280:�b`%20:Zu%=�:zn%=100:�H%(zn%-1):�I%(zn%-1):�L%(zn%-1):IO%=�:RO%=�:�fk%128:�M`%40:Bo%=�:V=0:Fu%=0:�iZ%40:�il%24:�Rp%24:D_%=1:O_%=-1:Ao%=0:�M$(19):�Z$(19):�G%(19):�P%(19)
��P$(19):�C$(19):�D%(19):�V%(19):�BP%256:br%=-1:yr%=-1:Vo%=�:Ck%=�:g_%=0:i_%=�:on%=-1:_B%=-1:�S_%36:sl%=0:Ci%=0:k`%=0:_`%=�:NB%=�:r`%=�:QB%=-1:Dy%=�:xo%=�:lo%=�:Sy$="BOLLOCKS":k$="MARVIN MARV DAVE MART MARTIN":tP%=�:xP%=�:S`%=�:Ju%=-1:NJ%=0:P_%=1
�yO%=�:S=2794/110:UP%=0:no%=�:Uu%=�:cZ%=�:i`%=�:U%=100:yJ%=�:Qi%=100:�Kp%40:wo%=�:ry%=�:Yn%=�:Wy%=�:_J%=�:mu%=�:Ol%=�:Pl%=�:Zl%=�:Ga%=�:VO%=�:MP%=0:Qa%=�:�W%(26):oJ%=-1:lJ%=-1:Mp%=�:sn%=500:�yP%256:!zi=yP%:�bn%sn%*4:�Fp%sn%*4:�Wr% (sn%+1)*4:ya%=40
��kO%ya%:!da=kO%:�Gr%256:!ui=Gr%:�p%=0�255�4:Gr%!p%=0:�:�:�Ua%,T$:Gr%?(�(T$))=Ua%:�Ua%=0:�Qr%256:!mi=Qr%:�p%=0�255�4:Qr%!p%=0:�:�:�Ua%,T$:Qr%?(�(T$))=Ua%:�Ua%=0:�H`%256:!Gu=H`%:�N`%256:!el=N`%:�p%=0�255�4:H`%!p%=0:�:�p%=0�255�4:N`%!p%=0:�:�
 ��T$,p%,Zi%:H`%?(�(T$))=256*p%/100:N`%?(�(T$))=256*Zi%/100:�T$=" ":O%=�("0"):�:�p%,Zi%:H`%?(O%)=256*p%/100:N`%?(O%)=256*Zi%/100:O%+=1:�O%>�("9"):O%=�("A"):�:�p%,Zi%:H`%?(O%)=256*p%/100:N`%?(O%)=256*Zi%/100:O%+=1:�O%>�("Z"):O%=�("a"):�:�p%,Zi%
!�H`%?(O%)=256*p%/100:N`%?(O%)=256*Zi%/100:O%+=1:�O%>�("z"):�KA%256:!eu=KA%:�("Load <OptclPro$Dir>.SData "+�~(KA%)):�sP% (ya%+1)*4:�M%(25):�GJ%24:bl%=40:!Zu=bl%:Ay%=-1:W_%=-1:�Q% (bl%+1)*16:�ca% (bl%+1)*16:�JP% (bl%+1)*16:�f% (bl%+1)*16:�io%bl%*16
"��fl%256:�ie%256:t_%=0:Za%=12:SP%=12:a_%=�:P%=-1:Fn%=-1:xy%=-1:Qy%=0:_%=0:k_%=0:�Hl%16:�kk%16:�lk%4:bJ%=0:uJ%=0:Py%=0:An%=10000:Ur%=10000:Aa%=300:�Pu%An%:�My%An%*2:�fJ%Aa%*4:�ru%Aa%*4:!Ja=ru%:�LP%Aa%*4:�RP%Aa%:�vi%Aa%:�Ky%Aa%*4:�r_%Aa%*4:!O=r_%
#�!x=r_%:�JJ%Aa%*4:!z=JJ%:!_=JJ%:�a%Ur%*8:�YP%100*8:�rr%8:�VP%8*30:�sO%8*30:KJ%=24:�gJ%28+ (KJ%+4)*24:�VB%28+ (KJ%+4)*24:�gn%28+ (KJ%+4)*24:�Or%28+ (KJ%+4)*24:�A$(KJ%):�S$(KJ%):�ba%KJ%+1:�q%=0�KJ%:ba%?q%=255:�:�S%(KJ%):�aJ%KJ%+1:!Kl=aJ%:�jB%KJ%+1
$�L`%=KJ%+4:�l`%40*L`%:S%()=�:A$(0)="Times":i%=0:b_%=0:Cy%=0:cl%=�:pi%=�:Ta%=�:fa%=�:X$="":M$="":WP%=53:m%=0:Xu%=0:aa%=1:NP%=1:L_%=0:�
%M� 1,1,1,!,1,�,1,I,1,i,1,l,1,�,1,�,1,�,1,�,1,�,1,�,1,�,1,�,1,t,1,f,1,�,1,�
&%� 2,b,2,h,2,n,2,u,2,�,2,�,2,�,2,�
'Y� 3,e,3,c,3,o,3,0,3,O,3,Q,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�,3,�
(!� 4,a,4,�,4,�,4,�,4,�,4,�,4,�
)
� 5,q,5,g
*� 0," "
+
� 1,t,1,r
,� 2,k,2,h,2,b,2,o
-� 0," "
.m� !,35,35,(,0,20,),20,0,�,0,15,:,30,30,;,30,30,?,15,10,[,0,35,],35,0,{,0,35,},35,0,�,20,0,�,20,10," ",0,0
/@� 10,10,25,25,20,10,25,10,10,10,15,15,10,10,0,10,15,10,10,10
0�� 0,0,25,10,0,10,25,0,20,15,20,15,0,15,12,12,35,35,20,20,15,15,25,0,15,15,15,20,10,10,25,15,0,10,25,10,10,10,20,20,10,20,0,20,0,10,10,10,0,20,10,10
1�� 0,0,10,0,5,10,15,15,10,10,25,25,15,15,15,0,0,15,20,20,15,10,25,25,0,0,5,0,10,10,25,15,15,15,10,15,10,10,10,25,0,0,0,0,0,0,15,15,15,15,10,10
2G��wi:�mk%,zr%:ș&20039,,"DragASprite_Start"�;wy%:�wy%�1�No%=��No%=�
3�!c=0:Qe%=4:!A=0:!Ql=0:�hu%14:�ja%16:�le%16:�`u%255,Ql%255:�p%=0�13:�J$:hu%?p%=�(J$):�:�p%=0�15:�J$:ja%?p%=�(J$):�:�p%=0�15:�J$:le%?p%=�(J$):�:�Sa%2048:�("Load <OptclPro$Dir>.Tables "+�~(Sa%)):�Go%15:�p%=0�15:�Go%?p%:�:!Ga=Sa%:!ci=Go%:�We%512
4�We%+=256:�h%=-7�7:�y%=0�7:We%!(4*(y%+h%*8))=�(y%*y%+h%*h%)*(1<<16):�:�:!Uu=We%:�gZ%8192:�mk%=0�255:�zr%=0�31:gZ%?(32*mk%+zr%)=(zr%/32)*mk%:�:�:!wa=gZ%:�iO%64:!pu=iO%:�_P%256:!bi=_P%:�lP%256:!Ha=lP%:�uP%256:!Yl=uP%:�iA%256:!ha=iA%:�OP%58:�cP%1024
5E!kl=OP%:!za=cP%:!iJ=le%:!Pi=le%:�o_ 4096:�y%=0�63:�h%=0�63:�y%=0�
6o_?(y%+h%*64)=90
7�:o_?(y%+h%*64)=�(�(h%/y%))
8��:�:�:!Xl=o_:jP%=�:kP%=7:�T%(15):T%()=0:�Ka%16*4:�Oe%2*4:Oe%!0=-256:Oe%!4=0:�tZ%2*4:�JA%4*4:�dA%16*4:�p%=0�1:�_y%:tZ%!(p%*4)=_y%:�:�p%=0�3:�_y%:JA%!(p%*4)=_y%:�:�p%=0�15:�_y%:dA%!(p%*4)=_y%:�:!Ml=6:!ya=6:�
9!� a,c,d,e,i,l,m,n,o,p,r,s,t,u
:%� b,f,g,h,j,k,q,v,w,x,y,z,e,e,e,i
;%� a,a,a,a,a,a,a,a,a,a,a,a,r,d,s,n
<%� 0,4,6,5,0,0,7,0,2,3,0,0,1,0,0,0
=� &FFFFFF00,&00000000
>-� &FFFFFF00,&BBBBBB00,&77777700,&00000000
?�� &FFFFFF00,&DDDDDD00,&BBBBBB00,&99999900,&77777700,&55555500,&33333300,&00000000,&99440000,&00EEEE00,&00CC0000,&0000DD00,&BBEEEE00,&00885500,&00BBFF00,&FFBB0000
@���Pl:ș57,,"OS_SpriteOp"�tJ%:or%=256+10:C`%=256+9:Nl%=256+40:po%=256+13:Wk%=256+15:FO%=256+24:DP%=512+41:uA%=512+42:IP%=512+52:qP%=256+60:wi%=8192:�z%16:�Oi%16:z%!0=1:z%!4=1:z%!8=1:z%!12=1:�y`%256:NO%=0:�
Ae��Zn:F%=�("<OptclPro$Dir>.Code"):Yy%=�#F%:�#F%:�J%Yy%:�("Load <OptclPro$Dir>.Code "+�~(J%)):�ba:�
B���Ra:ș&400d9,,"<OptclPro$Dir>."+y$:Bk%=0:UA%=�Sy("!OptclDemo"):eJ%=�C("AutoColumn"):`l%=�C("Bubble"):fy%=�C("CharCh"):sJ%=�C("Chars"):By%=�C("Choices"):eZ%=-3:iy%=�C("Colour"):HJ%=�C("Conversion"):u_%=�C("Dpi"):x%=�C("Enhance"):k%=�C("Frame")
C�`_%=�C("FrButtons"):R`%=�C("HeapUsage"):Info_Window%=�C("Info"):Nn%=�C("LearnAcorn"):g%=�C("Learner"):H_%=�C("Merge"):iJ%=�C("Message"):IJ%=�C("MLE"):jJ%=�C("MLEScroll"):Q_%=�C("Picture"):w_%=�C("Process"):SaveF_Window%=�C("SaveF")
D�SaveText_Window%=�C("SaveText"):W%=�C("Scanner"):kl%=�C("ScProgress"):N_%=�C("Select"):w%=�C("Spell"):zu%=�C("Splitter"):Stats_Window%=�C("Statistics"):e%=�C("Text"):R_%=�C("TScan"):Mo%=�C("TText"):V_%=�C("Words"):Zoom_Window%=�C("Zoom"):ș&400da
E�Z%!0=w%:ș&400cb,,Z%:M%!0=V_%:ș&400cb,,M%:eB%=M%!4-Z%!4:lB%=M%!8-Z%!8:Z%!0=IJ%:ș&400cb,,Z%:M%!0=jJ%:ș&400cb,,M%:MO%=M%!4-Z%!4:iB%=M%!8-Z%!8:�
Fݤd(Y%):ȎY%�
G�SaveText_Window%:=�
H�SaveF_Window%:=�
I=�
J�:=�
Kݤb(Y%)=K_%
L���ma:�UserDict_Menu%28+ (8+4)*24:Dict_Menu%=�B("Optical's,Load lexicon,Remove lexicon"):PlainDict_Menu%=�B("Plain text,Remove lexicon"):TJ%=�B("Lexicon used,Optical's>Dict_Menu%,Impression's>UserDict_Menu%,Plain text>PlainDict_Menu%")
M�Image_Menu%=�B("Image,Show,Remove"):Bl%=�B("Optical Pro,Info...>Info_Window%,Scanned image...>Image_Menu%,OCRed text...,Font manager...,Preferences...,Quit")
N�File_Menu%=�B("File,To caret... �^F3,Save...       F3>SaveText_Window%,Append        ^A,Statistics    ^S>Stats_Window%"):Edit_Menu%=�B("Edit / teach,Spelling...   F7,Type teach   �F5")
O�Display_Menu%=�B("Display,Show full quality     ^Q,Show image bubble     ^B,Show image...         ^I"):Misc_Menu%=�B("Misc,Format...  �F9,Read out... F8,Re-OCR...   ^R")
Pfuk%=�B("OCRed text,File>File_Menu%,Edit / teach>Edit_Menu%,Display>Display_Menu%,Misc>Misc_Menu%")
Q�f_%=�B("Image,Read page,Font manager...,Scale image...>Zoom_Window%,Edit columns,Delete columns,Rotate image,Map colours...,Re-scan image,Show toolbox"):gB%=�B("Image,All background,All text,Invert,Update page,Scale...>Zoom_Window%")
R�hk%=�B("Image,Scale...>Zoom_Window%"):en%=�B("Synthesizers,ARCticulate,Speech!,SpeechSystem"):cB%=�B("Splitter,Simple,Advanced"):Lo%=�B("Scan page,Select source...,Acquire..."):�U(Dict_Menu%,2):�f(gB%,4):�f(f_%,1):�f(f_%,3):�f(f_%,7):�f(f_%,8)
S|�f(Bl%,1):�f(Bl%,5):�f(File_Menu%,2):�f(Display_Menu%,2):�B(f_%,4):�B(f_%,9):ao%=22000:�gi%ao%:Pk%=4096:�RB%Pk%:qa%=�j:�
Tݤt(Y%):ȎY%�
UD�Hr%:�A(Info_Window%,5,"� Martin Dawe 1993�1996"):�Z%(`%)>10000�
V
�R(Bl%,2)
W�:�U(Bl%,2)
X
�:=Bl%
Y�e%:�m%�
Z6�R(Misc_Menu%,1):�R(File_Menu%,4):�R(Edit_Menu%,2)
[8�:�U(Misc_Menu%,1):�U(File_Menu%,4):�U(Edit_Menu%,2)
\5�:�Qy%=m%�no%=���U(Misc_Menu%,2)��R(Misc_Menu%,2)
]-�Qy%=m%��U(File_Menu%,1)��R(File_Menu%,1)
^�a_%=��
_6�U(Misc_Menu%,1):�U(Edit_Menu%,2):�U(Misc_Menu%,3)
`�:�R(Misc_Menu%,3)
a�:�Z%(`%)>10000�
b�R(Display_Menu%,3)
c�:�U(Display_Menu%,3)
d�:�no%�
e&�C_(Misc_Menu%,2,"Silence!    F8")
f(�:�C_(Misc_Menu%,2,"Read out... F8")
g�:�Dy%�
h<�U(Display_Menu%,1):�U(Display_Menu%,2):�U(Edit_Menu%,1)
i>�:�R(Display_Menu%,1):�R(Display_Menu%,2):�R(Edit_Menu%,1)
j�:�Wy%<>0�!A<>0�Iy%�
k%�U(Edit_Menu%,1):�U(Edit_Menu%,2)
l
�:=uk%
m;�R_%:�u:�U(gJ%,2+Cy%):�U(gJ%,4+Cy%):�Cy%>-1�B(gJ%,i%+1)
n=gJ%
o�k%:�Fi%�R(f_%,8)��U(f_%,8)
p=f_%
q
�Q_%:=gB%
r
�w_%:=gB%
s
�H_%:=hk%
t�V_%:�jJ:=TJ%
u=�
v�:=0
wݤi(Y%,vZ%):ȎY%�
x3�g%:�M(g%):�M(sJ%):�M(HJ%):�M(fy%):K%=�A(1,Nu%)
y!�Q_%,w_%,iy%:i_%=�:�M(iy%):�H
z�k%:�a_%=�i_%=�:�H��M(`_%)
{�H_%:ȎKu%�
|Oɣ:�L(k%,�J(n%*R%),�J(t%*V%)):�N(k%,"Process '"+X$+"' ("+M$+")"):�Uu%�w(k%)
}�G(k%,-1,-1)
~�ɹ:�L(Q_%,�J(n%*R%),�J(t%*V%)):�L(w_%,�J(n%*R%),�J(t%*V%)):�D(iy%):�N(Q_%,"Original image"):�N(w_%,"Processed image"):�G(iy%,-1,-1)
�:K%=�A(1,Ny%)
��e%:�M(w%):�M(V_%)
��:=�
���Ki(Y%,L%,X%):ȎY%�
��e%:�Jl
��Q_%:�pa
��R_%:�ti
��w_%:�xl
��sJ%:�Qi
��N_%:�ta
��V_%:�nl
��iy%:�Vl
��k%:�Fl
��H_%:�Cn
��fy%:�Gu
��jJ%:�Rl
��zu%:�Qa
��By%:�Tl
��`l%:�_u
��:�
���sJ(Y%,I%,b%,y%,h%):ȎY%�
��Hr%:�oi
��e%:�e(b%,I%)
��Info_Window%:�Ml(b%,I%)
��g%:�Ui(b%,I%)
��w%:�Ju(b%,I%)
��sJ%:�da(b%,I%)
��iy%:�Hu(b%,I%)
��R_%:�tl(b%,I%)
��N_%:�Mn(b%,I%)
��eZ%:�Ri(b%,I%)
��V_%:�`l(b%,I%)
��Q_%:�b_
��w_%:�b_
��By%:�mi(b%,I%)
��k%:�Ti(b%,I%)
��`_%:�La(b%,I%)
��H_%:�o_
��fy%:�Ll(b%,I%)
��Zoom_Window%:�ui(b%,I%)
��W%:�Cl(b%,I%)
��Ci%:�Mi(b%,I%)
��IJ%:�Du(b%,I%)
��jJ%:�Ni(b%,I%)
��iJ%:�aJ(b%,I%)
��x%:�xi(b%,I%)
��eJ%:�ql(b%,I%)
��zu%:�Iu(b%,I%)
��u_%:�Ga(b%,I%)
��HJ%:�au(b%,I%)
��:�
���oi:�kn%:�(b%�1)�i_%=�:�l
��(b%�4)�
�&�S(e%)�D(e%):�G(e%,-1,-1):�hy��By
��:�
�4��e(b%,I%):�Oa%,Mi%,Me%,LO%:�b%=64�ZO%=��ZO%=�:�
�ZO%=�:�-3Mi%=��Mi%=�
��-2Oa%=��Oa%=�
��-1Me%=��Me%=�
��Dy%=��b%<>100�G(e%,-1,-1)
�"�vy%=��(b%�4)�Mi%=��Oa%=��Ty:�
�-�gy%?Vu%<>0�(b%�4)�F_%=��Mi%=��Oa%=��Ty:�
��vy%=��G(e%,-1,-1):�
��gy%?Vu%<>0��
��Z%(`%)=0�
��kn%:�_%<=0�a_%=���
��b%=100�
�"xy%=P%:�xy%>=0�MB%=uJ%:ZB%=bJ%
��I%=200�P%=QB%
��I%=100�
�	�F_%�
�	F_%=�
��:�e(P%)�F_%=�
�	P%+=1
��
�
�:�I%=50�
�	�F_%�
� F_%=�:P%-=1:�P%<0�P%=0:F_%=�
��:�O(P%)�
�	F_%=�
��:P%-=1:�P%<0�P%=0:F_%=�
��
��
��:�vy%LO%=36�LO%=L_%
��I%=110�
�
�Dy%�jy%�
�9�a(P%):s%=2+16*uJ%:v%=2+36*(bJ%+t_%):Z_%=s%:uy%=v%-36
�;�:ș&400d3,,Z%:s%=Z%!8:v%=Z%!12+32:Z_%=s%-8:uy%=-v%-LO%
�*�:F_%=�:xy%=P%:�xy%>=0�MB%=uJ%:ZB%=bJ%
�#P%=�T(Z_%,uy%):�P%<0�P%=0:F_%=�
��:�I%=120�
�
�Dy%�jy%�
�9�a(P%):s%=2+16*uJ%:v%=2+36*(bJ%+t_%):Z_%=s%:uy%=v%+36
�;�:ș&400d3,,Z%:s%=Z%!8:v%=Z%!12+32:Z_%=s%-8:uy%=-v%+LO%
�*�:F_%=�:xy%=P%:�xy%>=0�MB%=uJ%:ZB%=bJ%
�-P%=�T(Z_%,uy%):�!Ka<>0�P%=�T(Z_%,uy%+LO%)
��:�Dy%�F_%=�
��P%>=_%�P%=_%-1:F_%=�
�.�(Wy%<>0�!A<>0�Iy%)�P%>=Ln%�P%=Ln%-1:F_%=�
�#�!(a%+P%*8)=-1�!(a%+4+P%*8)=-1�
�	ȎI%�
�B�100:ȕ!(a%+P%*8)=-1�!(a%+4+P%*8)=-1�P%<_%:P%+=1:�:�P%>=_%P%=0
�A�50:ȕ!(a%+P%*8)=-1�!(a%+4+P%*8)=-1�P%>0:P%-=1:�:�P%=0P%=_%-1
��
�
�:�P%>=0�
�@A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:�g:uJ%=!b:bJ%=!u:Py%=!w
�$�:ș&600d3,,GJ%:�Dy%�GJ%!0<>R_%�
�0To%=GJ%!0:ak%=GJ%!4:xk%=GJ%!20:�G(R_%,-1,-1)
��
��:Z%!0=e%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:�Dy%=��jy%=��Mi%=��Oa%=��s%-=8:�s%<0�s%=0
�<Z_%=s%-L%:uy%=X%-v%:F_%=�:xy%=P%:�xy%>=0�MB%=uJ%:ZB%=bJ%
�7P%=�T(Z_%,uy%):�!(a%+P%*8)=-1�!(a%+4+P%*8)=-1�P%=-1
��:�Dy%�b%<>100�
�ș&600d3,,GJ%:�GJ%!0<>R_%�
�0To%=GJ%!0:ak%=GJ%!4:xk%=GJ%!20:�G(R_%,-1,-1)
��
�,�:�Dy%=��jy%=��(My%?(P%*2+1))�28��Xa(P%)
��b%=256�HJ(xy%,P%)
�7�P%=xy%�Dy%=��F_%=��(b%�4)�b%<>100�Mi%=��Oa%=��Ty:�
�4�P%=xy%�P%=-1�Dy%�(b%�4)�b%<>100�Mi%=��Oa%=��y:�
��P%=-1�P%=xy%:�Ny:�
��Dy%�Me%�b%<>100�AB%=�
��Dy%=��b%<>100�
�
Py%=!w
��:�S(R_%)�
��Ȕoi%,U%:Z%!0=R_%:Z%!4=0:Z%!8=-t%*V%*U%/100:Z%!12=n%*R%*U%/100:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�xy%>=0�ty(xy%,-1)
���ty(P%,-1):ș&400ca,,Z%�d%:�:oy%=(!(a%+P%*8)�65535)*U%/100*R%:dJ%=(!(a%+2+P%*8)�65535)*U%/100*R%:T_%=(!(a%+4+P%*8)�65535)*U%/100*V%:Yu%=(!(a%+6+P%*8)�65535)*U%/100*V%:Z%!0=R_%:ș&400cb,,Z%:tk%=Z%!20:bk%=Z%!20+Z%!12-Z%!4:jO%=-Z%!24
�;mO%=-Z%!24+Z%!16-Z%!8:�oy%<tk%�dJ%>bk%�T_%<jO%�Yu%>mO%�
��oy%<tk%�dJ%>bk%�
%Z%!20=oy%-((bk%-tk%)-(dJ%-oy%))/2
�:�T_%<jO%�Yu%>mO%�
%Z%!24=((mO%-jO%)-(Yu%-T_%))/2-T_%
�:ș&400c5,,Z%
�:Ȕoi%,U%
"�:�Dy%�(jy%�Wy%=0�!A=0�Iy%=0)�
|Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=�:ȕd%:�xy%>=0�g(xy%,-1)
�P%>=0�g(P%,-1)
ș&400ca,,Z%�d%:�
	&�:�O(P%):�A_:�Wy%<>0�!A<>0�Iy%<>0�

�Dy%�Mi%�Oa%�zy
�Mi%�b%=1024�VJ
�Oa%�b%=1024�Dy%=��Fu

�
���fi:�F_%,h%:Z%!0=e%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:�q:�s%>Z%!12�s%<Z%!4�v%>Z%!16�v%<Z%!8�Zo%<>e%�c:�
2Xi%=P%:�!(a%+Xi%*8)=-1�!(a%+4+Xi%*8)=-1�Xi%=-1
!�Xi%=-1�vy%=��gy%?Vu%<>0��c:�
-�My(Xi%,Xi%):h%=X%-rJ%:�h%>Z%!16�h%=Z%!16
�h%<Z%!8�h%=Z%!8
�ru(L%+Ou%+10,h%,480,64):�
l��Xa(yu%):�Pr%,Re%:Pr%=My%?(yu%*2+1)�28:Re%=�:ȕyu%>0�Re%=�:yu%-=1:�(My%?(yu%*2+1)�28)<>Pr%�yu%+=1:Re%=�
4�:�:My%?(yu%*2+1)=My%?(yu%*2+1)�227:�vy%�Ay(yu%)
Cyu%+=1:�yu%>=_%�(My%?(yu%*2+1)�28)<>Pr%:�vy%=��m%=Qy%:�r:�J(e%)
�
��Ml(b%,I%):ȎI%�
�:�
��`i(Y%,I%,j%):ȎY%�
�g%:�jl(I%,j%)
�w%:�Fa(I%,j%)
�By%:�Si(I%,j%)
�H_%:�yl(I%,j%)
�Zoom_Window%:�hl(I%,j%)
 �W%:�Pi(I%,j%)
!�fy%:�il(I%,j%)
"�e%:�TJ(I%,j%)
#�R_%:�TJ(I%,j%)
$�iJ%:�Zl(I%,j%)
%�x%:�Dl(I%,j%)
&�eJ%:�wa(I%,j%)
'�u_%:�pi(I%,j%)
(�k%:�Il(I%,j%)
)�iy%:�_a(I%,j%)
*�v(j%)
+�:�
,��Bu(Jy%):ȎJy%�
-�Bl%:�Nl
.�uk%:�Ba
/�gJ%:�Xu
0�VB%:�Ja
1�gn%:�Pa
2�Or%:�Wa
3�qa%:�ai
4�f_%:�li
5�gB%:�Aa
6�en%:�Bl
7�hk%:�sa
8�cB%:�ju
9�qn%:�Oa
:�fi%:�ul
;�Bn%:�ha
<�Lo%:�sl
=�TJ%:�Ya
>�:�CJ(Jy%):�
?��Nl:�kn%:Ȏ�P(0)�
@>�1:ș&400cf,,Z%:y%=Z%!0:h%=Z%!4:�T(Info_Window%,y%,h%):�RJ
A�2:Ȏ�P(1)�
B}�2:�M(sJ%):�M(HJ%):�M(fy%):�Ny:�H:�Z(w%,2):�Z(w%,5):�Z(w%,6):�Z(w%,7):�Z(w%,10):�Z(w%,11):i_%=�:�U(Bl%,2):�Z(g%,3):Qy%=m%
C	:�W_
D�
E�3:�S(e%)�hy��By
F
�4:�B_(�)
G�5:�I_:�D(By%)
H�6:g`%=-1:�YJ
I�:�
J��Ba:Ȏ�P(0)�
K�1:Ȏ�P(1)�
L
�1:�Al
M
�2:�oy
N�3:�cl%cl%=��cl%=�
O)�cl%�K(File_Menu%,3)��V(File_Menu%,3)
P�4
Q�
R�2:Ȏ�P(1)�
S	�1:�z
T�2:�Dy%�y��Ty
U�
V�3:Ȏ�P(1)�
W
�1:�xy
X�2:�vl%vl%=��vl%=�
Y2�vl%�K(Display_Menu%,2)��V(Display_Menu%,2):�c
Z
�3:�W_
[�
\�4:Ȏ�P(1)�
]
�1:�nJ
^
�2:�F_
_
�3:�iJ
`�
a�:�
bW��W_:�D(k%):�L(k%,�J(n%*R%),�J(t%*V%)):�N(k%,"'"+X$+"' ("+M$+")"):�J(k%):�cZ%�w(k%)
c�G(k%,-1,-1):�
d��iJ:�Dy%�y
e�a_%=��
f"�Ny:�M(w%):�M(N_%):Je%=�:�Wy:�
g3��nJ:�Zy(gy%):�a_%�_%>=0�P(x%,22,�)��P(x%,22,�)
h�q:�Z(By%,10)�T(x%,s%,v%)
i�
j@��aa(S$,R$,Y%):�M(`l%):�R$="OptFonts"�(Y%=-2�Y%=g%)�Zu(S$):�
k�R$="Scanner"�Ci(S$):�
l�R$="Impression"�p_(S$):�
m�R$="UserDict"�Vi(S$):�
n�R$="Text"�zJ(S$):�
o�R$<>"Sprite"�Wy%�!A�
pi_%=�:Ku%=�:ȎY%�
q��w_%,Q_%,k%:�qy("Message from Optical","Do you want this sprite file to merge with the current one, or replace it?","Merge","Replace","Cancel",0):_$=S$:�
r�-2,e%,`l%
s�
t�:�SJ:�
u ��SJ:V=0:�ui%=�Ay%=-1:W_%=-1
v��y:�M(sJ%):�M(HJ%):�M(fy%):�Ny:�H:�Z(w%,2):�Z(w%,5):�Z(w%,6):�Z(w%,7):�Z(w%,10):�Z(w%,11):�M(iy%):�M(w%):�M(Q_%):�M(N_%):a_%=�:X$=�Q(S$):ș&406c0:F%=�(S$):ta%=�#F%:�#F%=4:na%=�#F%:�#F%=na%+12:Uy%=�#F%+�#F%*(1<<8)+�#F%*(1<<16)+�#F%*(1<<24)
w�yy%=�#F%+�#F%*(1<<8)+�#F%*(1<<16)+�#F%*(1<<24):�#F%:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):K%=�A(ta%+Ru%+8,`%):�K%=���C("Optical","There is not enough free memory available to store the sprite. Need "+�((ta%+Ru%+8)�1024)+"K."):�H:�
xF!(A%(`%))=Z%(`%):ștJ%,C`%,A%(`%):ștJ%,or%,A%(`%),S$:�J(e%):�y_:�
y��Za:�M(`l%):�Wy%�!A�
zza%=Z%!40:�za%<>4089��
{i_%=�:Ku%=�:ȎZ%!20�
|��w_%,Q_%,k%:�qy("Message from Optical","Do you want this sprite file to merge with the current one, or replace it?","Merge","Replace","Cancel",1):_$=S$:�
}�-2,e%,`l%
~�
�:�mJ:�
����mJ:_`%=�:�M(sJ%):�M(HJ%):�M(fy%):�Ny:�H:�Z(w%,2):�Z(w%,5):�Z(w%,6):�Z(w%,7):�Z(w%,10):�Z(w%,11):`B%=�:�M(e%):�ui%=�Ay%=-1:W_%=-1
��ta%=Z%!36:v$=�x:`n%=Z%!8:_O%=Z%!4:�M(iy%):�M(w%):�M(Q_%):�M(N_%):a_%=�:X$=�Q(v$):K%=�A(ta%+8,`%):�K%=���C("Optical","There is not enough free memory available to store the sprite."):�H:�
�H!(A%(`%))=Z%(`%):ștJ%,C`%,A%(`%):PO%=0:dn%=ta%:p`%=�:Z%!8=`n%:�a_:�
�(��a_:!Z%=64:Z%!12=Z%!8:Z%!16=6:�_`%�
�Z%!20=A%(Ny%)+4+PO%
��:Z%!20=A%(`%)+4+PO%
�$�:Z%!24=dn%:ș&400e7,18,Z%,_O%:�
���Su:Ȏ_`%�
�
ɹ:Ȏp`%�
��ɹ:na%=!(A%(Ny%)+8):Uy%=!(A%(Ny%)+na%+16):yy%=!(A%(Ny%)+na%+20):dn%=Ia%:p`%=�:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):K%=�A(Ia%+Ru%+8,Ny%)
���K%=���C("Optical","There is not enough free memory available to merge the sprite. Need "+�((Ia%+Ru%+8)�1024)+"K."):K%=�A(1,Ny%):�
�!(A%(Ny%))=Z%(Ny%)
��
�
ɣ:Ȏp`%�
��ɹ:na%=!(A%(`%)+8):Uy%=!(A%(`%)+na%+16):yy%=!(A%(`%)+na%+20):dn%=ta%:p`%=�:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):K%=�A(ta%+Ru%+8,`%)
�|�K%=���C("Optical","There is not enough free memory available to store the sprite. Need "+�((ta%+Ru%+8)�1024)+"K."):�H:�
�!(A%(`%))=Z%(`%)
��
�-�:za%=Z%!24:�za%=dn%�dn%=4:PO%+=za%:�a_:�
��`B%�_`%�Sl:�
��`B%��y_
��
�Eݤx:�r%:My$="":r%=Z%+44:ȕ?r%<>0�?r%<>13:My$+=�(?r%):r%+=1:�:=My$
���Xy:�S`%�
��ștJ%,po%,A%(`%),y`%,16,1�,,,ky%:M$="":�_y%=0�ky%-1:M$+=�(y`%?_y%):�:�N(k%,"'"+X$+"' ("+M$+")"):ștJ%,Nl%,A%(`%),M$�,,,n%,t%,,Ju%:ș53,Ju%,9�,,m_%:_Z%=2^(2^m_%):�_Z%=256��C("Optical","I cannot read 256 colour sprites."):�H:�
��ștJ%,FO%,A%(`%),M$�,,ZP%:_%=0:ș53,Ju%,5�,,V%:ș53,Ju%,4�,,R%:R%=1<<R%:V%=1<<V%:ș53,Ju%,3�,,m_%:�M(sJ%):�M(HJ%):K%=�A(1,Nu%):ș53,Ju%,3�,,m_%:ș46,24+256,A%(`%),M$�,,c%:Uy%=c%!16:yy%=c%!20:Hu%=c%-A%(`%)+c%!32:G_%=c%+44:�_y%=0�m_%
�4Ka%!(_y%*4)=G_%!(_y%*8):�:�G_%=c%+c%!32��DJ(m_%)
�~�oa:zy%=�:�(�G(G_%!0)>�G(&80808000)��G(G_%!4)>�G(&80808000)��G(G_%!8)<�G(&80808000)��G(G_%!12)<�G(&8080800))�G_%=c%+c%!32�
��m_%=1�ti%=��Ku%=��
��ql%�dy(-1,256+4)
��Wy:ș&406c1:zy%=�
��:�m_%=1�ti%�Ku%=��
��ql%�dy(-1,256+4):�my��yJ
�ș&406c1:zy%=�
��
�
�:�m_%=1�
��ș46,60+256,A%(`%),M$,0�J,G,B,P:�4,0:ȓȐ0,0,n%*R%,t%*V%:ș46,J,G,B,P:G_%!0=�N(G_%!0):G_%!4=�N(G_%!4):G_%!8=�N(G_%!8):G_%!12=�N(G_%!12):�ql%�dy(-1,256+4)
��ti%=��
��Wy
��:�ql%�my��yJ
��:ș&406c1:zy%=�
��
��:�zy%�
��T_:ș&406c1:�
����Lu:zy%=�:ș46,Nl%,A%(`%),M$�,,,n%,t%:qu%=1024+((n%+32)*(t%+16))�8:K%=�A(qu%+8,WJ%):�K%=��C("Optical","There is not enough free memory available to colour map this image. Need "+�((qu%+8)�1024)+"K."):K%=�A(1,WJ%):zy%=�:�
�Q!(A%(WJ%))=Z%(WJ%):!(A%(WJ%)+8)=16:�V%=4�Ma%=0:Ni%=4:Na%=2�Ma%=18:Ni%=2:Na%=2
��R%=4�Ma%=4:Ni%=4:Na%=4
�Bș46,9+256,A%(WJ%):ș46,15+256,A%(WJ%),M$,1,n%,t%,Ma%:�R%>Na%�
�z%!0=R%/Na%:z%!8=1
��:z%!0=1:z%!8=Na%/R%
��:�V%>Ni%�
�z%!4=V%/Ni%:z%!12=1
��:z%!4=1:z%!12=Ni%/V%
���:ș46,24+256,A%(WJ%),M$�,,c%:G_%=c%+44:G_%!0=-256:G_%!4=-256:G_%!8=0:G_%!12=0:ș&40740,Ju%,Ka%,Ma%,Oe%,Hl%:ș46,60+256,A%(WJ%),M$,0�J,G,B,P:ș46,52+256,A%(`%),M$,0,0,0,z%,Hl%:ș46,J,G,B,P:�
�D��T_:ș&406c0:m%=Qy%:_%=0:P%=-1:�J(e%):�O(P%):�Lu:�zy%ș&406c1:�
�3�M(k%):�M(`_%):�hy%=0�m_%:�F(iy%,hy%):�Hl%?hy%�
�O�A(iy%,hy%,"Text"):Z%!0=iy%:Z%!4=hy%:Z%!12=&f000000:Z%!8=0<<24:ș&400cd,,Z%
�W�:�A(iy%,hy%,"Background"):Z%!0=iy%:Z%!4=hy%:Z%!12=&f000000:Z%!8=7<<24:ș&400cd,,Z%
��:�:�m_%<15�
�.�hy%=m_%+1�15:�A(iy%,hy%,""):�Z(iy%,hy%):�
���:�L(Q_%,�J(n%*R%),�J(t%*V%)):�L(w_%,�J(n%*R%),�J(t%*V%)):�N(Q_%,"Original image"):�N(w_%,"Processed image"):�D(iy%):�G(iy%,-1,-1):�Q_:ș&406c1:�
���lu(S$,Y%):ȎY%�
��SaveText_Window%:�IO%=��b
�'�SaveF_Window%:�M(SaveF_Window%):�b
��:�
���Jl:�m%=0�
��vy%�Li��rl
��
�1��L(Y%,y%,h%):�Pi%,xe%,ey%,V%,PB%:�Y%=e%y%+=2
�:xe%=�("OCRed text")+6:�Y%=e%�y%<xe%*2*8+4�y%=xe%*2*8+4
�NPi%=�("Original Image: '"+X$+"' ("+M$+")")+6:�Y%=Q_%�y%<Pi%*2*8�y%=Pi%*2*8
�JPi%=�("Image name: '"+X$+"' ("+M$+")")+6:�Y%=w_%�y%<Pi%*2*8�y%=Pi%*2*8
�?Pi%=�("Define Text Columns")+6:�Y%=k%�y%<Pi%*2*8�y%=Pi%*2*8
�BPi%=�("Merge Scanned Sprites")+6:�Y%=H_%�y%<Pi%*2*8�y%=Pi%*2*8
�Fș53,-1,12�,,ey%:ș53,-1,5�,,V%:V%=1<<V%:ey%=ey%*V%:�Y%=e%h%+=8*32
��Y%=e%�h%<ey%-84h%=ey%-84
��y%>0�y%<120�y%=120
��h%>0�h%<116�h%=116
�+PB%=�(Uu%):�PB%=��Y%=k%�y%<1000�y%=1000
��y%<>0�h%<>0�
�(Z%!0=0:Z%!12=0:�PB%=��Y%=k%�Z%!12=86
�#Z%!8=y%:Z%!4=-h%:ș&400d7,Y%,Z%
��:�Y%=Mo%�
��Y%=e%�gJ:�
�!Z%=Y%:ș&400cb,,Z%:�r`%=��
��h%<>0�Z%!16=Z%!8+h%
��y%<>0�Z%!12=Z%!4+y%
��y%<>0�Z%!52=y%
��h%<>0�Z%!48=-h%
�5Z%!24=0:�PB%=��Y%=k%�Z%!16+=86:Z%!48-=86:Z%!24=86
��AJ
��:ș&400c5,,Z%:�
�$��gJ:�R%,V%,sy%,ey%,AO%:�S(e%)�
���:ș53,-1,11�,,sy%:ș53,-1,12�,,ey%:ș53,-1,4�,,R%:ș53,-1,5�,,V%:R%=1<<R%:V%=1<<V%:sy%=sy%*R%:ey%=ey%*V%:Z%!0=e%:AO%=sy%*.16:Z%!4=AO%:Z%!8=AO%+42:Z%!12=sy%-AO%-42:Z%!16=ey%-AO%-42:Z%!24=-(4*8*t_%-16):Z%!28=-1:ș&400c5,,Z%
��:�
���N(Y%,Q$):ȎY%�
�,�w_%,Q_%,k%,H_%:Q$=Q$+" - at "+�(U%)+"%"
��:�u_(Y%,Q$):�Y%=sJ%�J(Y%)
��
�$��LJ:�Za%,SP%,N%:�_%<1�t:a_%=�:�
�K%=�A(1,Nu%):�a_%Xu%-=1
��B%=_%-1:C%=a%:Yy%=�(Jy)*2:K%=�A(Yy%,J_%):K%=�A(Yy%,`y%):�K%=���C("Optical","There is not enough free memory available to read the sprite. Need "+�((2*Yy%)�1024)+"K."):K%=�A(1,J_%):K%=�A(1,`y%):�
�B%=a%:C%=_%:F`%=�(YJ):My%?1=1:!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!f_=Pu%:!r_=My%:!sy=An%:!d=0:!Zy=fJ%:!Fy=a%:!p=Ky%:!U_=vi%:B%=_%:F%=Bu%:G%=SJ%:H%=a%:�Li%�!Y_=50:!GJ=50:!R=1:!U=0:!M=0:Wy%=2:�`J:�
�!Y_=50:!GJ=50:!R=0:�c_:_%=!RJ:�!sy=0�X("Optical","Not all of the text could be handled, possibly due to a bad quality scanned image.")
��!`_ Wy%=0:!i=�
�K%=�A(1,J_%):�
�6��za:�Ml%,F`%,h`%,T`%,GB%,FJ%,CJ%:�xO%�O(P%):xO%=�
�9�qo%M%!0=e%:ș&400cb,,M%:M%!24=ee%:ș&400c5,,M%:qo%=�
��q:Y%=Zo%:I%=Sk%:�Hn%�Bi
��YO%�n:�J(e%):YO%=�
�
ȎZo%�
��H_%:�ku
��k%:�MJ
��zu%:�pl
��:�ga:�O_%>=0Yo%=�:�WJ:�
�	�Dy%�
��t`%�du��vl%�fi
��Wy%=1�q_:�
��Wy%=2�v_:�
��!A�H_:�
��Ho%�V_
�
�lo%�xa:�
�
�yO%�Nu:�
��xo%ș&406c1:xo%=�
�Cș&600d3,,GJ%:�GJ%!0=g%�GJ%!4=19�M(g%,19)<>Sy$Sy$=�M(g%,19):�_
�7�GJ%!0=w%�GJ%!4=1�Fy%>0�M(w%,1)<>k$k$=�M(w%,1):�d_
��S(W%)�
��vu:�yo%�z_
�Ik%�pJ
�:�xJ%<>256ș"Scan_Stop"
;�:Z%!0=20:Z%!12=0:ș&600e7,19,Z%,Y%�,,xi%:�xi%<>0Ao%=Y%
+Be%=�:�sl%�q(sl%)=��M(Ci%):sl%=�:Be%=�
�sl%�dl:�Gl
�(Be%�Y%<>k`%)�sl%=��
kk`%=Y%:Z%!0=20:Z%!12=0:ș&600e7,19,Z%,Ao%�,,xi%:Z%!0=24:Z%!12=0:Z%!16=&400c6:Z%!20=xi%:ș&400e7,17,Z%,0
�:�Y%=Ci%�Hl(Y%,I%)
�
	.��ga:�UJ%,x_%,FJ%,CJ%:�mu%�Ol%�Pl%�Zl%<>0�

lș53,-1,4�,,UJ%:ș53,-1,5�,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:Z%!0=__%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24

�:�mu%�Fn
�Ol%�ka

�Pl%�Oi
�Zl%�Ua
�VO%�al
�
��Fn:FJ%=s%-L%:�FJ%<0FJ%=0
-�FJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100
CJ%=X%-v%:�CJ%<x_%CJ%=x_%
-�CJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100
�by%<>FJ%�ty%<>CJ%�
�Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,Z%�d%:�:Z%!0=__%:ș&400cc,,Z%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11)
5ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,Z%�d%:�
�:�L_:�
F��ka:FJ%=s%-ze%-L%+(by%-Vy%):SO%=s%-ze%-L%:�SO%<0SO%=0:FJ%=by%-Vy%
=�FJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100:SO%=FJ%-by%+Vy%
ICJ%=X%-we%-v%+(ty%-Hy%):c`%=X%-we%-v%:�c`%<x_%c`%=x_%:CJ%=c`%+ty%-Hy%
=�CJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100:c`%=CJ%-ty%+Hy%
�by%<>FJ%�ty%<>CJ%�
�Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,Z%�d%:�:Z%!0=__%:ș&400cc,,Z%:Vy%=SO%:Hy%=c`%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%
Cȕd%:�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,Z%�d%:�
 _�:!Z%=__%:ș&400cb,,Z%:F`%=Z%!4:h`%=Z%!8:T`%=Z%!12:GB%=Z%!16:Ml%=�:�s%+(by%-Vy%)/2+UJ%>T`%�
!'Z%!20+=s%-T`%+(by%-Vy%)/2+UJ%:Ml%=�
"�:�v%+(ty%-Hy%)/2+x_%>GB%�
#'Z%!24+=v%-GB%+(ty%-Hy%)/2+x_%:Ml%=�
$�:�s%-(by%-Vy%)/2<F`%�
%#Z%!20-=F`%-s%+(by%-Vy%)/2:Ml%=�
&�:�v%-(ty%-Hy%)/2<h`%�
'#Z%!24-=h`%-v%+(ty%-Hy%)/2:Ml%=�
(�:�Ml%�
)�Dy:ș&400c5,,Z%
*�:�
+��Oi:FJ%=s%-L%:�FJ%<0FJ%=0
,-�FJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100
-CJ%=X%-v%:�CJ%<x_%CJ%=x_%
.-�CJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100
/�by%<>FJ%�ty%<>CJ%�
0�Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11):�Vy%+L%,X%-Hy%,L%+by%,X%-ty%:ș&400ca,,Z%�d%:�:Z%!0=__%:ș&400cc,,Z%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11)
12�Vy%+L%,X%-Hy%,L%+by%,X%-ty%:ș&400ca,,Z%�d%:�
2�:�L_:�
3��Ua:FJ%=s%-L%:�FJ%<0FJ%=0
4-�FJ%>(n%-1)*R%*U%/100FJ%=(n%-1)*R%*U%/100
5CJ%=X%-v%:�CJ%<x_%CJ%=x_%
6-�CJ%>(t%-1)*V%*U%/100CJ%=(t%-1)*V%*U%/100
7�by%<>FJ%�ty%<>CJ%�
8�Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11):�Vy%+L%,X%-Hy%,L%+by%,X%-ty%:ș&400ca,,Z%�d%:�:Z%!0=__%:ș&400cc,,Z%:by%=FJ%:ty%=CJ%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11)
92�Vy%+L%,X%-Hy%,L%+by%,X%-ty%:ș&400ca,,Z%�d%:�
:�:�L_:�
;V��L_:!Z%=__%:ș&400cb,,Z%:F`%=Z%!4:h`%=Z%!8:T`%=Z%!12:GB%=Z%!16:Ml%=�:�s%+UJ%>T`%�
<Z%!20+=s%-T`%+UJ%:Ml%=�
=�:�v%+x_%>GB%�
>Z%!24+=v%-GB%+x_%:Ml%=�
?�:�s%<F`%�
@Z%!20-=F`%-s%:Ml%=�
A�:�v%<h`%�
BZ%!24-=h`%-v%:Ml%=�
C�:�Ml%�
D�Dy:ș&400c5,,Z%
E�:�
F��D_:ȎZ%!0�
G'�H_%:ș&600d3,,GJ%:ș&600d2,Z%!0,-1
H�:�
I��Jn:ȎZ%!0�
J?�H_%:�Y(""):ș&600d2,GJ%!0,GJ%!4,GJ%!8,GJ%!12,GJ%!16,GJ%!20
K,�k%:�mu%=��Ol%=��Pl%=��Zl%=��Y(""):_J%=0
L
�e%:�c
M�:�
Nw��pa:�Uy:my%=L%:A_%=X%-t%*V%*U%/100:�I(A%(`%),M$,my%,A_%,0,z%):�mu%�__%=Q_%�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%
O�
PN��Fl:�N%:�Uy:my%=L%:A_%=X%-t%*V%*U%/100:�I(A%(`%),M$,my%,A_%,0,z%):�Ak%�lJ
QyGy%=(Z%!16-Z%!24-Z%!32)/V%:Ly%=(Z%!16-Z%!24-Z%!40)/V%:Oy%=(Z%!28-Z%!4+Z%!20)/R%:dy%=(Z%!36-Z%!4+Z%!20)/R%:�Gy%<0Gy%=0
R�Ly%<0Ly%=0
S�Oy%<0Oy%=0
T�dy%<0dy%=0
U�Ay%>=0�
V��N%=0�Ay%:�(Q%!(N%*16)*U%/100<dy%+16/R%�Q%!(N%*16+8)*U%/100>Oy%-16/R%)�(Q%!(N%*16+4)*U%/100<Ly%+16/V%�Q%!(N%*16+12)*U%/100>Gy%-16/V%)�
W��W(3,10):ȓL%+Q%!(N%*16)*R%*U%/100,X%-Q%!(N%*16+4)*V%*U%/100,(Q%!(N%*16+8)-Q%!(N%*16))*R%*U%/100,-(Q%!(N%*16+12)-Q%!(N%*16+4))*V%*U%/100:�W(3,8):ȓL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
X�ȓL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:ȓL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:ȓL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16
Y�:�:�Ay%>0�
Z��W(3,11):�N%=1�Ay%:�L%+Q%!(N%*16-8)*R%*U%/100-32,X%-Q%!(N%*16-4)*V%*U%/100,L%+Q%!(N%*16)*R%*U%/100+32,X%-Q%!(N%*16+4)*V%*U%/100:ȓȐL%+Q%!(N%*16-8)*R%*U%/100-8-32,X%-Q%!(N%*16-4)*V%*U%/100-8,16,16
[HȓȐL%+Q%!(N%*16)*R%*U%/100-8+32,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:�
\�
]�:�W_%>-1�
^��N%=0�W_%:�W(3,11):ȓL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,(f%!(N%*16+8)-f%!(N%*16))*R%*U%/100,-(f%!(N%*16+12)-f%!(N%*16+4))*V%*U%/100:ȓL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16
_�ȓL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16:ȓL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16:ȓL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16
`ՆL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:�L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:�
a6�:�mu%�Ol%�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%
b4�Pl%�Zl%<>0�W(3,11):�Vy%+L%,X%-Hy%,by%+L%,X%-ty%
c�
dx��xl:�Uy:my%=L%:A_%=X%-t%*V%*U%/100:�I(A%(WJ%),M$,my%,A_%,0,z%):�mu%�__%=w_%�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%
e�
fS��ti:ȔU%,oi%:�Uy:my%=L%:A_%=X%-t%*V%*U%/100:�I(A%(`%),M$,my%,A_%,0,z%):�Ak%�lJ
g�_%>1�P%>=0�ty(P%,-1)
hȔU%,oi%:�
i��lJ:�_%<=0�
jyGy%=(Z%!16-Z%!24-Z%!32)/V%:Ly%=(Z%!16-Z%!24-Z%!40)/V%:Oy%=(Z%!28-Z%!4+Z%!20)/R%:dy%=(Z%!36-Z%!4+Z%!20)/R%:�Gy%<0Gy%=0
k�Ly%<0Ly%=0
l�Oy%<0Oy%=0
m�dy%<0dy%=0
nZ�W(3,8):A%=a%:B%=_%:C%=Gy%:D%=Ly%:E%=Oy%:F%=dy%:G%=R%:H%=V%:!Hi=L%:!Ai=X%:!Di=U%:�Ca:�
o$��tl(b%,I%):�kn%,pe%,Mi%:�!A<>0�
p�-3Mi%=��Mi%=�
q�gy%?Vu%<>0��
r�_%<=0��
sȔoi%,U%:�Dy%�
tș&600d3,,GJ%:�GJ%!0<>R_%�
u0To%=GJ%!0:ak%=GJ%!4:xk%=GJ%!20:�G(R_%,-1,-1)
v�
w��:Z%!0=R_%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%*100/U%:uy%=(X%-v%)/V%*100/U%:xy%=P%:B%=a%:C%=_%-1:D%=Z_%:E%=uy%:pe%=�(ba):�b%=256�HJ(P%,pe%)
x&P%=pe%:�P%=-1P%=xy%:�Ny:Ȕoi%,U%:�
y�Z%!0=R_%:Z%!4=0:Z%!8=-t%*V%*U%/100:Z%!12=n%*R%*U%/100:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�xy%>=0�ty(xy%,-1)
z*�ty(P%,-1):ș&400ca,,Z%�d%:�:�Dy%�jy%�
{|Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=�:ȕd%:�xy%>=0�g(xy%,-1)
|�g(P%,-1):ș&400ca,,Z%�d%:�
}�:�O(P%):�A_:�Dy%�Mi%�zy
~�-3�VJ
Ȕoi%,U%:�
�8��zy:�O%,Wp%,Qp%,ro%,je%,Yy%,Gl%,ZA%,OB%,Tu%:�P%=-1�
��(My%?(P%*2+1)�2)��
��ș&406c0:Fn%=P%:oy%=(!(a%+P%*8)�65535)-1:dJ%=(!(a%+2+P%*8)�65535)+1:T_%=(!(a%+4+P%*8)�65535)-1:Yu%=(!(a%+6+P%*8)�65535)+1:!J_=oy%:!T_=dJ%:!`y=T_%:!Q_=Yu%:Yy%=(�(dJ%-oy%)+1)*(�(Yu%-T_%)+1):�Z%(J_%)<Yy%�K%=�A(Yy%,J_%)�K%=�
�$�Z%(`y%)<Yy%�K%=�A(Yy%,`y%)�K%=�
���K%=��C("Optical","There is not enough free memory available to display the character. Need "+�(Yy%�1024)+"K."):K%=�A(1,J_%):�Z(g%,12):�
�nA%=Uy%+1:G%=A%(J_%):H%=A%(`%)+Hu%:�A_:U_%=dJ%-oy%+1:I_%=Yu%-T_%+1:�Z%(Nu%)<U_%*I_%�K%=�A(U_%*I_%,Nu%)�K%=�
���K%=���C("Optical","There is not enough free memory available to display the character. Need "+�((U_%*I_%)�1024)+"K."):K%=�A(1,Nu%):�
�5�U_%<20�I_%<20�!(A%(Nu%))=1024�!(A%(Nu%))=U_%*I_%
�G!(A%(Nu%)+4)=0:!(A%(Nu%)+8)=16:ștJ%,C`%,A%(Nu%):�V%=4�Ma%=0�Ma%=18
��R%=4�Ma%=4
��ștJ%,Wk%,A%(Nu%),"Learner",0,U_%,I_%,Ma%:ștJ%,FO%,A%(Nu%),"Learner"�,,RA%:A%=512+42:B%=A%(Nu%):C%=RA%:D%=U_%-1:E%=I_%-1:F%=U_%:G%=A%(J_%):�gl:�P%=-1ș&406c1:�
��!(A%(u%))>0�
�>B%=_%-1:C%=a%:Yy%=�(Jy)*2:�Z%(J_%)<Yy%�K%=�A(Yy%,J_%)�K%=�
�$�Z%(`y%)<Yy%�K%=�A(Yy%,`y%)�K%=�
���K%=��C("Optical","There is not enough free memory available to calculate this letter. Need "+�((Yy%*2)�1024)+"K."):K%=�A(1,J_%):K%=�A(1,`y%):ș&406c1:�
��D%=Ky%:E%=P%:!M=�(Ay):!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!p=Ky%:!Uy=P%:!Xy=P%:!Zy=fJ%:!Fy=a%:!c=1:B%=_%:F%=Bu%:G%=SJ%:H%=a%:Gl%=�(L_)
��:Gl%=3:?s=0
�"�:!c=0:�?s=0�z$="???"�z$=�(!s)
��P%>=0�(Dy%�NB%)��c_(P%)
�$�z$<>"???"�AB%�t_(Gl%�4+1):AB%=�
�5�A(g%,19,z$):�A(g%,16,""):�F(g%,12):�_:ș&406c1:�
����c_(nl%):NB%=�:C_%=A%(qy%):�a(nl%):XA%=C_%?(Py%-1):DA%=C_%?Py%:ZA%=My%?(nl%*2):My%?(nl%*2)=Gl%:OB%=My%?(nl%*2+1)�159:�!sJ=1�OB%+=(1<<5)
��!sJ=2�OB%+=(1<<6)
� �?s=0�!s=gy%?ha%:OB%=OB%�131
�JMy%?(nl%*2+1)=OB%:LA%=C_%?(Py%+1):C_%?Py%=?s:ro%=Py%-4:�ro%<Qy%ro%=Qy%
�je%=Py%+4:�je%>m%je%=m%
�%�(gy%?uB%<>0)�(gy%?oB%<>0)�Dy%=��
�A%=Qy%:B%=m%:C%=A%(qy%):�q_
�!�:�C_%?(Py%-1)<>XA%�Ay(nl%-1)
�"�C_%?Py%<>DA%�Gl%<>ZA%�Ay(nl%)
��C_%?(Py%+1)<>LA%�Ay(nl%+1)
��
�?��Ay(Wa%):�uJ%,bJ%,Py%,hy%,Gl%,n`%,uO%,Uo%:�a(Wa%):�!V_<>0�
�1J$=�(?(A%(qy%)+Py%)):Pu%?Wa%=�(J$):�t:�vy%=��
�Gl%=My%?(Wa%*2):Ȏ(Gl%�3)�
��0:hy%=1
��1:hy%=2
��2:hy%=4
��3:hy%=7
�&�:Gl%=(My%?(Wa%*2+1))�4:Ȏ(Gl%�7)�
�
�1:n`%=11
�
�2:n`%=14
�
�4:n`%=10
�
n`%=7
�!�:�J$=�14�hy%=11:n`%=2:J$="_"
�ZGl%=My%?(Wa%*2+1):uO%=Gl%�(1<<5):Uo%=Gl%�(1<<6):�uO%<>0�Uo%<>0��23,17,7,2,8;!Cy*.75;0;
��Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=�:ȕd%:ș&400e6,0:ȓȐL%+2+16*uJ%,X%-2-36*(bJ%+t_%),14,-34:�L%+2+16*uJ%,X%-6-36*(bJ%+t_%):�uO%��25,0,0;4;
��Uo%��25,0,0;-8;
��J$="???"�J$=�0�
�*ș&400e6,8:�gy%?ha%=0��("?")��gy%?ha%
��:�YB%�
�ș&400e6,hy%
��:ș&400e6,n`%
��:�(J$)
��:�Wa%=P%�Dy%�g(P%,-1)
�8ș&400ca,,Z%�d%:�:�uO%<>0�Uo%<>0��23,17,7,2,8;!Cy;0;
��
���Ny:�P%=-1�_%<1�
�	�a_%�
�
�Dy%�jy%�
��Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=�:ȕd%:�g(P%,-1):ș&400ca,,Z%�d%:�
� �:ș&600d2,e%,-1,-1,-1,-1,-1
��
�
�:P%=-1:�
�;��Si(I%,j%):�(I%<>23�I%<>24�I%<>25)�j%<>13ș&400dc,j%:�
�	ȎI%�
��22:�Ly(By%,23)
��23:�Ly(By%,22)
��:�
���Mn(b%,I%):ȎI%�
��4:�M(N_%)
��3,5:�rJ:�T(gn%,y%,h%)
��1:�yi:�T(VB%,y%,h%)
��8:�k(b_%,65,90):�J(N_%)
��9:�k(b_%,97,122):�J(N_%)
��10:�k(b_%,48,57):�J(N_%)
�I�11:�k(b_%,33,47):�k(b_%,58,64):�k(b_%,91,96):�k(b_%,123,126):�J(N_%)
��12:�k(b_%,127,191):�J(N_%)
��7:�k(b_%,192,255):�J(N_%)
�	:�hu
��:�
�4��ta:Gy%=X%-Z%!32:Ly%=X%-Z%!40:�Gy%>=0�Ly%>=0�qa
��
�<��yi:�vl:�Sy%=0�Cy%:�S%(Sy%)��K(VB%,Sy%+1)��V(VB%,Sy%+1)
��:�
�>��vl:Z$="Fonts":�Sy%=0�Cy%:Z$+=","+A$(Sy%):�:�yy(VB%,Z$):�
�3��rJ:Z$="Fonts":Mk%=�:l%=0:�Sy%=0�Cy%:�S%(Sy%)�
�)l%+=1:Z$+=","+A$(Sy%):�b_%=Sy%�Mk%=l%
��:�:�l%=0�
�.Z$+=",None selected":�yy(gn%,Z$):�U(gn%,1)
�9�:�yy(gn%,Z$):�Sy%=1�l%:�V(gn%,Sy%):�:�Mk%�K(gn%,Mk%)
��:�
�1��Ja:Sy%=�P(0)-1:�S%(Sy%)�S%(Sy%)=��S%(Sy%)=�
��B(VB%,Sy%+1):�S%(Sy%)=��
�+�ll(Sy%):b_%=0:Sy%=0:�:�S%(Sy%)�b_%=Sy%
�/Sy%+=1:�S%(Sy%-1)�Sy%>Cy%:�A(N_%,3,A$(b_%))
��:�Hi(Sy%)
��:�J(N_%):�
�6��Pa:py%=�P(0)-1:Xe%=-1:�Sy%=0�Cy%:�S%(Sy%)�Xe%+=1
�
�Xe%=py%�
�1b_%=Sy%:�A(N_%,3,A$(b_%)):�J(N_%):�rJ:Sy%=Cy%
�	�:�:�
���Hi(ir%):�!(A%(u%))>0�
�]�l%=0�!(A%(u%))-1:�(?(A%(u%)+5+l%*8)�127)=ir%�?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)�127)+128
��
��:�
���ll(ir%):�!(A%(u%))>0�
�Y�l%=0�!(A%(u%))-1:�(?(A%(u%)+5+l%*8)�127)=ir%�?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)�127)
��
��:�
���k(ir%,cn%,yA%):Ȏb%�
��1:sr%=0
��4:sr%=128
��
��:�!(A%(u%))>0�
��l%=0�!(A%(u%))-1:�(?(A%(u%)+5+l%*8)�127)=ir%�?(A%(u%)+4+l%*8)>=cn%�?(A%(u%)+4+l%*8)<=yA%�?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)�127)+sr%
��
��:�
����qa:�oA%,bA%,j_%:ș&400e6,2:ȓȐL%,X%-4,1200,-32:ȓȐL%,X%-4,22,-360:ș&400e6,7:_l%=L%+4:Rl%=X%-8:�q%=3�25:�_l%+32+(q%-3)*3*16,Rl%:�;q%:�:�q%=0�9:�_l%,Rl%-32-q%*32:�;q%:�:G%=_l%:H%=Rl%:!my=A%(u%):!ty=b_%:�xJ:�W(3,7):oA%=_l%+24-144:bA%=Rl%-30
�*!my=A%(u%):!ty=b_%:G%=_l%:H%=Rl%:�wl:�
���hu:�!(A%(u%))<1�
��Z%!0=N_%:ș&400e0,,Z%:I`%=Z%!4+4:V`%=Z%!8+356-8:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:�s%-I`%>31�V`%-v%>31�O%=30+�((s%-I`%-16)/48)*10+�((V`%-v%-30)/32)��
�Jd_%=�:�l%=0�!(A%(u%)):�(?(A%(u%)+5+l%*8)�127)=b_%�?(A%(u%)+4+l%*8)=O%�
�	Ȏb%�
�,�4:�(?(A%(u%)+5+l%*8)�128)=��Di%=��Di%=�
�
S%(b_%)=�
�*�1:�(?(A%(u%)+5+l%*8)�128)�Di%=��Di%=�
�
Di%=�
�:�Di%�
�(?(A%(u%)+5+l%*8)�128)�
n�j_%=0�!(A%(u%)):�(?(A%(u%)+5+j_%*8)�127)=b_%�?(A%(u%)+4+j_%*8)=O%�?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)�127)
�
t�:�j_%=0�!(A%(u%)):�(?(A%(u%)+5+j_%*8)�127)=b_%�?(A%(u%)+4+j_%*8)=O%�?(A%(u%)+5+l%*8)=(?(A%(u%)+5+l%*8)�127)+128
�
��:�W(3,7):Z%!0=N_%:Z%!4=0:Z%!8=-360:Z%!12=1200:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�W(3,7):ȓȐL%+28+((?(A%(u%)+4+l%*8)�10)-3)*3*16,X%-40-(?(A%(u%)+4+l%*8)�10)*32,30,-30:ș&400ca,,Z%�d%:�
�:l%=!(A%(u%)):d_%=�
	�:�:�
	*��uJ:�f`%,In%,Tn%,p%,rA%,q%,Yk%:�_%<1�

�A%=a%:B%=_%-1:!_J=f%:!w_=W_%:f`%=�(WJ):Bu%=(!Ky)/f`%:SJ%=(!Yy)/f`%:!QJ=Bu%:!O_=SJ%:!OJ=SJ%:!Yy=SJ%:!Ky=Bu%:A%=W_%:B%=_%-1:C%=f%:D%=a%:E%=Bu%*2:F%=SJ%*3:W_%=�(Ji):A%=_%:B%=a%:D%=Ky%:E%=YP%:F%=fJ%:!Ba=Uy%+1:!hl=A%(`%)+Hu%:!uJ=n%:!Nl=yy%:!yJ=SJ%/10
�!Ri=Aa%:!U_=vi%:!Gi=f%:!Il=W_%:!z=JJ%:!O=r_%:!fi=A%(pn%):!Yu=a%:!Ni=SJ%/2:!zu=RP%:!Zi=LP%:!qy=Bu%*8:�Rn%�!MJ=2/100*256�!MJ=10/100*256
7!k_=(!L-!D)/!qy:�(!L-!D)/!qy<>�((!L-!D)/!qy)�!k_+=1

P!Ti=ru%:ș&406c5,3,3:_%=�(Qi):ș&406c5,0,0:e_%=!W:Gi%+=e_%:!D_=Ky%:!Z_=e_%:�
@��oJ:�NJ(r_%,SJ%/8,SJ%*(1<<16)):�NJ(JJ%,Bu%/3,Bu%*(1<<16)):�
7��NJ(nl%,lA%,CP%):A%=nl%:B%=e_%:C%=CP%:D%=lA%:�ml:�
��UJ:�f`%,KO%:�_%<1�
�!_J=f%:!w_=W_%:A%=a%:B%=SJ%:C%=Ky%:D%=_%:�a_:�oJ:!z=JJ%:!O=r_%:!M_=_%:A%=A%(pn%):B%=Ky%:C%=e_%:D%=Bu%:ș&406c5,2,2:�ni:ș&406c5,0,0:Zp%=_%-!M_:_%=!M_:�_%<=1�
�A%=a%:B%=_%-1:f`%=�(WJ):Bu%=(!Ky)/f`%:SJ%=(!Yy)/f`%:!QJ=Bu%:!O_=SJ%:!OJ=SJ%:!Ky=Bu%:!Yy=SJ%:A%=a%:B%=SJ%:C%=Ky%:D%=_%:�a_:�oJ:A%=a%:B%=Ky%:C%=_%:D%=fJ%:E%=r_%:�e_%<2�Ra%=0:�
�Ra%=0:KO%=qO%:�p%=0�e_%-2:In%=KO%!(8*Ky%!(p%*4)):In%=In%/(1<<16):Tn%=KO%!(8*Ky%!((p%+1)*4)):Tn%=Tn%/(1<<16):Ra%+=(fJ%!((p%+1)*4)+ru%!((p%+1)*4)*Tn%/1024)-(fJ%!(p%*4)+ru%!(p%*4)*In%/1024):�:rA%=Ra%/(e_%-1):q%=0:Ra%=0:�p%=0�e_%-2
�In%=KO%!(8*Ky%!(p%*4)):In%=In%/(1<<16):Tn%=KO%!(8*Ky%!((p%+1)*4)):Tn%=Tn%/(1<<16):Yk%=(fJ%!((p%+1)*4)+ru%!((p%+1)*4)*Tn%/1024)-(fJ%!(p%*4)+ru%!(p%*4)*In%/1024):�Yk%<rA%*1.2�Ra%+=Yk%:q%+=1
�:�q%�Ra%=Ra%/q%
�
��r:�_%<1�
�TA%=Fu%:K%=�A(m%+An%*2,qy%):�K%=���C("Optical","Column "+�(TA%+1)+": There is not enough free memory available to store the text. Need "+�((m%+An%*2)�1024)+"K.")
�K%=��Li%=�ș&406c0

�K%=��
�Qy%=m%:!Vi=Pu%:!Al=My%:B%=a%:G%=e_%:D%=Ky%:!W=e_%:�ki:B%=a%:C%=_%:!eJ=�(YJ):A%=a%:B%=A%(qy%):C%=m%:E%=Ky%:F%=Ra%*1.2:G%=Bu%:!Ci=e_%:!al=fJ%:!yu=ru%:!Oa=vi%:!KJ=_%:!hu=a%:!Fa=Ay%:!aa=io%:!Na=(72/Ll%)*(1<<16):!si=r_%:!Vl=Q%:�Du:m%=!ai:?(A%(qy%)+m%)=10
4m%+=1:Xu%=!Va:_%=!KJ:�(gy%?uB%<>0)�(gy%?oB%<>0)�
A%=Qy%:B%=m%:C%=A%(qy%):�q_
�:�ey(p_%):�
���ry:ș53,-1,11�,,sy%:ș53,-1,12�,,ey%:ș53,-1,4�,,R%:ș53,-1,5�,,V%:R%=1<<R%:V%=1<<V%:my%=((sy%+1)*R%-892-32)/2:A_%=((ey%+1)*V%-528-32)/2+80:ș&400d1,-1,my%,A_%,my%+892+32,A_%+528+32:�
s[>��X(Q$,O$):�Y(""):Z%!0=0:$(Z%+4)=O$+�0:ș&400df,Z%,17,Q$:�
s\!��s(Q$,O$,HP%):g`%=HP%:Ȏg`%�
s].�0,1,2:�qy(Q$,O$,"Quit","Cancel","Save",3)
s^(�3,4:�qy(Q$,O$,"Quit","Cancel","",3)
s_�:�
s`KݤU(Q$,O$):�Y(""):Z%!0=0:$(Z%+4)=O$+�0:ș&400df,Z%,19,Q$�,Ya%:�Ya%=1�=�
sa=�
sb���C(Q$,O$):Q$="OptclPro":Z%!0=&3020100:ș&400e9,36,,"ptr_default",2,0,0,0,Z%:ș&406c2:Z%!0=0:$(Z%+4)=O$+�0:ș&400df,Z%,2,Q$:�
sc+ݤC(Hy$):=�Cy(Hy$,"<OptclPro$Dir>."+y$)
sd5ݤs(Y%):�B_%:Z%!0=Y%:ș&600cc,,Z%�;wy%:�wy%�1�=""
seCB_%=Z%!32:B_%=Z%!60:�(B_%�(1<<8))<>0�(B_%�(1<<0))<>0�=�F(Z%!76)
sf.�(B_%�(1<<8))=0�(B_%�(1<<0))<>0�=�F(Z%+76)
sg=""
sh5ݤl(Y%):�B_%:Z%!0=Y%:ș&600cc,,Z%�;wy%:�wy%�1�=""
siBB_%=Z%!32:B_%=Z%!60:�(B_%�(1<<8))=0�(B_%�(1<<0))<>0�=�F(Z%+76)
sj=""
sk�ݤCy(Hy$,y$):�_y%,ko%,q%,ea%,p$,Ay$:ș&400db,,Z%,mr%,sA%,BP%,Hy$,Bk%�,,mr%,,,,Bk%:�Bk%=0��C("Optical","Template '"+y$+"' could not be loaded!"):�
sl
ȎK_%�
sm�1:Z%!64=K_%
snZ%!64=�b(Y%)
soF�:ș&400c1,,Z%�_y%:ș&400d6,_y%,Z%+40,1+2+(1<<8),2+(1<<8):ȎZ%!40�
sp�-1
sqPko%=40:�:Z%!4=Z%!ko%:Z%!0=_y%:ș&400ce,,Z%:p$=�F(Z%!28):ș&400c4,,Z%:ȎK_%�
sr�1:Z%!32=1
sss:ș46,264,K_%�,,,q%:ea%=0:�ea%+=1:ș46,269,K_%,KB%,20,ea%:Ay$=�F(KB%):�ea%=q%�p$=Ay$:�p$=Ay$�Z%!32=K_%�Z%!32=1
st5�:Z%!4=_y%:ș&400c2,,Z%+4�pB%:ko%+=4:�(Z%!ko%)=-1
su
�:=_y%
svL��D(Y%):!Z%=Y%:ș&400cb,,Z%:Z%!28=-1:�(Z%!32�(1<<16))=0�Y%=V_%�Y%=jJ%�AJ
swș&400c5,,Z%:�Y%=w%�D(V_%)
sx�Y%=IJ%�D(jJ%)
sy�
sz��M(Y%):�kn%:�S(Y%)�
s{*!Z%=Y%:ș&400c6,,Z%:�Y%=k%�Y(""):_J%=0
s|$�Y%=w%�M(V_%):O_%=-1:Wi%=�:jy%=�
s}�Y%=IJ%�M(jJ%)
s~�:�
s��J(Y%):�Y%=e%�S(`l%)�c
s�	ȎY%�
s�#�-1:ș&400d1,-1,0,0,1<<30,1<<30
s�!ș&400d1,Y%,0,-1<<30,1<<30,0
s��:�
s�fݤSy(Iy$):�I%:Z%!0=-1:Z%!4=0:Z%!8=0:Z%!12=68:Z%!16=68:Z%!20=12290:$(Z%+24)=Iy$:ș&400c2,,Z%�I%:=I%
s�0��G(Y%,I%,wP%):ș&600d2,Y%,I%,-1,-1,-1,wP%:�
s�VݤM(Y%,I%):Z%!0=Y%:Z%!4=I%:ș&400ce,,Z%:�((Z%!24)�256)=0�1,"Icon isn't indirected"
s�
=$(Z%!28)
s�Vݤw(Y%,I%):Z%!0=Y%:Z%!4=I%:ș&400ce,,Z%:�((Z%!24)�256)=0�1,"Icon isn't indirected"
s�
=$(Z%!32)
s���Z(Y%,I%):�P(Y%,I%,�):�
s���F(Y%,I%):�P(Y%,I%,�):�
s�>��A(Y%,I%,Y$):�M(Y%,I%)=Y$�Y$<>""�Y$<>"No letter marked"�
s��Y%=w%�I%=1�k$=Y$
s�2Z%!0=Y%:Z%!4=I%:ș&400ce,,Z%:�((Z%!24)�256)=0�
s�Z$(Z%!28)=Y$:Z%!0=Y%:Z%!4=I%:Z%!8=0:Z%!12=0:ș&400cd,,Z%:ș&400d3,,Z%:�Z%!0=Y%�Z%!4=I%�
s�>�Z%!20>�(Y$)�ș&600d2,Y%,I%,-1,-1,-1,�(Y$)��G(Y%,I%,Z%!20)
s��:�
s�D��CJ(Jy%):ș&400cf,,KB%:�((KB%!8)�1)=1�ș&400d4,,Jy%,KB%!0,KB%!4
s��
s�ݤP(aP%):=(Z%!(4*aP%))+1
s��ݤB(Z$):�Jy%,Xy%,Uy%,ky%,Wu%,ka%:�Jy%28+�f (Z$)*24:$Jy%=�Z$,�Z$,",")-1):Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:Uy%=�(�Z$,�Z$,",")-1)):Z$+=",":`o%=0:ȕZ$<>"":Z$=�Z$,�Z$,",")+1):ȎZ$�
s��""
s�M:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=�Z$,",")-1:Wu%=��Z$,ky%),">"):ȎWu%�
s��0
s�>:ka%=�(�Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1:Xy%!0=1<<3
s��:�ky%>12�
s�E�UO%+ky%+1>Kr%��C("Optical","Not enough memory to make menus!"):�
s�WXy%!8+=1<<8:Xy%!12=uZ%+UO%:Xy%!16=-1:Xy%!20=ky%+1:$(uZ%+UO%)=�Z$,ky%)+�0:UO%+=ky%+1
s��:$(Xy%+12)=�Z$,ky%)
s��:�ky%>Uy%�Uy%=ky%
s�Xy%+=24
s�2�:�:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24�128:=Jy%
s�Aݤf(Z$):�q%,ea%:q%=0:ea%=0:�:ea%=�Z$,",",ea%+1):�ea%<>0�q%+=1
s��ea%=0:=q%
s���b:ș&400d4,-1:�
s�B��U(Jy%,BJ%):Jy%!(36+(BJ%-1)*24)=Jy%!(36+(BJ%-1)*24)�(1<<22):�
s�>��f(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))�2:�
s�N��R(Jy%,BJ%):�U(Jy%,BJ%):Jy%!(36+(BJ%-1)*24)=Jy%!(36+(BJ%-1)*24)�(1<<22):�
s�p��C_(Jy%,BJ%,x$):�r%,Yy%:�(!(Jy%+(36+(BJ%-1)*24))�(1<<8))�Yy%=!(Jy%+(40+(BJ%-1)*24))�Yy%=Jy%+(40+(BJ%-1)*24)
s�+�r%=0��(x$)-1:Yy%?r%=�(�x$,r%+1,1)):�:�
s�6��T(zP%,y%,h%):Jy%=zP%:ș&400d4,,Jy%,y%-64,h%+20:�
s�>��B(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))�1:�
s�>��K(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))�1:�
s�A��V(Jy%,BJ%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))�(�1):�
s����su(Jy%,BJ%,tA%,DJ%,dP%):Jy%!(28+(BJ%-1)*24)=(Jy%!(28+(BJ%-1)*24))�4:Jy%!(36+(BJ%-1)*24)=Jy%!(36+(BJ%-1)*24)�256:Jy%!(40+(BJ%-1)*24)=tA%:Jy%!(44+(BJ%-1)*24)=DJ%:Jy%!(48+(BJ%-1)*24)=dP%:�
s�0��gl:�hi("<OptclPro$Dir>.Sprites"):zA%=K_%:�
s�~��hi(Ry$):�S%,T%:S%=�"<OptclPro$Dir>.Sprites":T%=�#S%+16:�#S%:�K_%T%,Up%12:!K_%=T%:K_%!8=0:ș46,265,K_%:ș46,266,K_%,Ry$:�
s�ݤBy(sZ%):ȎsZ%�
s��4095:="Text"
s��4093:="Data"
s��4091:="Basic"
s��4089:="Sprite"
s��4077:="Palette"
s��4076:="Template"
s��2959:="OptFonts"
s��2815:="Draw"
s��3460:="UserDict"
s��4096:="Folder"
s��8192:Ȏ�Q(S$)�
s��"!Scanner":="Scanner"
s��"!Junior":="Impression"
s� �"!Impression":="Impression"
s��"!Style":="Impression"
s��"!Publisher":="Impression"
s��"!Publishr+":="Impression"
s�="Application"
s��
s�
=�~(sZ%)
s��:=�
s�_ݤF(bo%):�H$,_y%:H$="":_y%=0:ȕ(?bo%<>13)�(?bo%<>0)�_y%<256:H$+=�(?bo%):bo%+=1:_y%+=1:�:=H$
s�ݤQ(d$):Ȏ�d$,".")�
s�
�0:=d$
s�=�Q(�d$,�(d$)-�d$,".")))
s��:=�
s�[��Gi(Xy$,vP%,I%):�Z%vP%+4,M%1024,mr%I%:Z%+=4:sA%=mr%+I%:Fy$=Xy$:hA%=1:zA%=1:�fa:��zu:�
s�Dș&400c0,200,&4b534154,Xy$�Se%,rn%:y$="Templates":ș&836c0,rn%:�
s�9��fa:�KB%20:Y%=0:Hr%=-2:UA%=0:Bl%=0:L%=0:X%=0:ue%=�:�
s���zu:�Uy$,y%:
sϊy%=�:Uy$=�$+"atline"+�(y%�10):�v`%36:v`%!0=36:v`%!12=0:v`%!16=&81080:v`%!20=y%:$(v`%+24)="!RunImage":ș&400e7,17,v`%:�X(Fy$,Uy$):�Qy:�
s� ��Qy:�xJ%<>256ș"XScan_Stop"
s�!�pl%<>256�ly%<xJ%ș&61dc5,ly%
s�-�Y(""):ș&836c1,rn%:ș&400dd,rn%,"TASK":�
s�k��vi:�jZ%,Pe%,FA%:ma%=�:TP%=�:jZ%=6144:�:ș&400c7,jZ%,Z%�Pe%,vo%:�!i_<>0�!xy<>0�!v<>0�v!4<>0�v!8<>0��Yu
s��!xy�!xy=0:i_%=�
s�)!(Z%-4)=Pe%:ș&836c2,Z%-4�FA%:�FA%=��
s�
ȎPe%�
s�
�0:�za
s�
�1:�_l
s��2:�q:�Dy:�Pn%�
s�FM%!4=Z%!4:M%!8=Z%!8:M%!12=Z%!12:M%!16=Z%!16:ș&400c5,,Z%:�Z%!0=k%�
s�Qș&400cb,,Z%:�M%!4<>Z%!4�M%!8<>Z%!8�M%!12<>Z%!12�M%!16<>Z%!16�Dy:ș&400c5,,Z%
s��
s��:�Z%!0=e%�Sk%=-5�FJ
s�
�3:�uu
s�
�4:�Jn
s�
�5:�D_
s�
�6:�ol
s�
�7:�si
s�
�8:�ja
s��9:�Bu(Jy%)
s��10:�Ul
s��11
s��12
s��17,18:�ia
s��19
s��
s��:�ma%:�
s���_l:�d%:�Ho%�V_
s�ș&400c8,,Z%�d%:Y%=Z%!0:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Oy%=Z%!28-(Z%!4-Z%!20):dy%=Z%!36-(Z%!4-Z%!20):Gy%=X%-Z%!32:Ly%=X%-Z%!40:�Y%=e%�(jy%�Dy%)Xa%=�
s�ȕd%:�Ki(Y%,L%,X%):ș&400ca,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Oy%=Z%!28-(Z%!4-Z%!20):dy%=Z%!36-(Z%!4-Z%!20):Gy%=X%-Z%!32:Ly%=X%-Z%!40:�:�
s�4��uu:ș&400cf,,Z%:Y%=Z%!12:vZ%=Z%!8:�i(Y%,vZ%)�
s��S(Y%)�
s�!Z%=Y%:ș&400c6,,Z%
s��
s��:�
s�8��ol:b%=Z%!8:Y%=Z%!12:I%=Z%!16:y%=Z%!0:h%=Z%!4:Ȏb%�
s�
�2:�la
s�Ȏ�d(Y%)�
s�
ɹ:�`a
s�8ɣ:�Y%=IJ%�I%=4�(b%�80)�XJ(Y%,I%,"switcher"):Ck%=�:�
s��sJ(Y%,I%,b%,y%,h%)
s��
s��:�
s�Vݤu(Y%,I%):Z%!0=Y%:Z%!4=I%:ș&400ce,,Z%:�((Z%!24)�256)=0�((Z%!24)�1)=0�Z%!32=-1�=�
s�=�$(Z%!32),"ptr_menu")
s���la:Jy%=�t(Y%):ȎJy%�
s�%ɣ:�u(Y%,I%)��sJ(Y%,I%,b%,y%,h%)
t:ȎY%�
tR�-2:q%=0:ȕ((Bl%!(28+q%*24))�128)=0:q%+=1:�:ș&400d4,,Bl%,y%-64,140+q%*44+2*24
tș&400d4,,Jy%,y%-64,h%+20
t�
t�:�
t3��`a:�I%>=4�I%<=7�b%=1�S(SaveText_Window%,I%,�)
t	ȎI%�
t!�3:�Y%=SaveText_Window%��oy:�
t�Y%=SaveF_Window%��wy:�
t	�b%�80��iu(Y%)
t
!�2:�Y%=SaveText_Window%��oy:�
t�Y%=SaveF_Window%��wy:�
t�b%�5��xJ(Y%)
t
q�4:�o(SaveText_Window%,3,"Sfile_fff"):�Z(SaveText_Window%,10):�Z(SaveText_Window%,11):�Z(SaveText_Window%,12)
tq�5:�o(SaveText_Window%,3,"Sfile_fe4"):�F(SaveText_Window%,10):�F(SaveText_Window%,11):�F(SaveText_Window%,12)
tq�6:�o(SaveText_Window%,3,"Sfile_fff"):�F(SaveText_Window%,10):�F(SaveText_Window%,11):�F(SaveText_Window%,12)
tq�7:�o(SaveText_Window%,3,"Sfile_dfe"):�Z(SaveText_Window%,10):�Z(SaveText_Window%,11):�Z(SaveText_Window%,12)
t�:�
t���oy:�X("Message from Optical","Text cannot be saved from this version of Optical. For a full version please contact Neurotron Software."):�
tE��xJ(Y%):�S$:Z%!0=Y%:Z%!4=1:ș&400ce,,Z%:S$=$(Z%!28):�S$,".")=0�
tM�X("Message from Optical","To save, drag the icon to a directory window")
t�:ȎY%�
t1�SaveText_Window%:�oy:�M(SaveText_Window%):�b
t+�SaveF_Window%:�wy:�M(SaveF_Window%):�b
t�
t�:�
t3��iu(Y%):ue%=�:�XJ(Y%,I%,¤w(Y%,3),8)):ga%=Y%:�
t+��ja:Y%=Z%!0:I%=Z%!4:j%=Z%!24:Ȏ�d(Y%)�
t6ɹ:�j%=13�S(Y%,2,1):�xJ(Y%):�S(Y%,2,0)�ș&400dc,j%
tɣ:�`i(Y%,I%,j%)
t�:�
t��si:�No%ș&62401
t �mu%�Ol%��Pn:mu%=�:Ol%=�:�
t!�Pl%�Pl%=�:�kl:�
t"�Zl%��Ma:Zl%=�:�
t#�Ga%��Ol:Ga%=�:�
t$�VO%�VO%=�:�
t%Y�S$,Y%,I%,y%,h%:ș&400cf,,Z%:Y%=Z%!12:I%=Z%!16:y%=Z%!0:h%=Z%!4:�Ck%�ki(Y%,I%,y%,h%):�
t&.dr%=0:�ga%=SaveF_Window%�cO%=4+8*!(A%(u%))
t'�Rk%=Y%:eo%=I%:GZ%=y%:NZ%=h%:Z%!0=ga%:Z%!4=1:ș&400ce,,Z%:S$=$(Z%!28):S$=�Q(S$):VZ%=�("&"+¤w(ga%,3),3)):Z%!0=64:Z%!12=0:Z%!16=1:Z%!20=Rk%:Z%!24=eo%:Z%!28=GZ%:Z%!32=NZ%:Z%!36=cO%:Z%!40=VZ%:$(Z%+44)=S$:ș&400e7,18,Z%,Rk%,eo%:�
t(#��ia:ue%=�:�S$,Oy$,DZ%:ȎZ%!16�
t)�0:ma%=�
t*�1:S$=�F(Z%+44):�Za
t+:�2:S$=�F(Z%+44):`n%=Z%!8:mA%=Z%!4:�S$<>"<Wimp$Scrap>"�
t,pZ%!0=ga%:Z%!4=1:ș&400ce,,Z%:$(Z%!28)=S$:Z%!0=ga%:Z%!4=1:Z%!8=0:Z%!12=0:ș&400cd,,Z%:ș&600d2,ga%,1,,,-1,�S$
t-�:�lu(S$,ga%)
t._�3:S$=�F(Z%+44):R$=�By(Z%!40):Y%=Z%!20:Z%!12=Z%!8:Z%!16=4:ș&400e7,19,Z%,Z%!4:�aa(S$,R$,Y%)
t/�5:�n�
t0*S$=�F(Z%+44):ș&406c0:�Zu(S$):ș&406c1
t1�
t2,�6:S$=�F(Z%+44):�ga%=SaveText_Window%�yu
t3�7:S$=�F(Z%+44):�Su
t4z�8:_A%=Z%!4:RO%=�:�pi%=��Ry:�s("Warning from Optical","The text has been updated. Are you sure you want to quit?",0):�
t5��Ta%=��Ry:�s("Warning from Optical","You have not saved your updated character definitions. Are you sure you want to quit?",1):�
t6k�fa%=��Ry:�s("Warning from Optical","The lexicon has been updated. Are you sure you want to quit?",2):�
t7i�Wy%�Ry:�s("Warning from Optical","Optical is currently reading. Are you sure you want to quit?",3):�
t8o�!A�Ry:�s("Warning from Optical","Optical is currently spell checking. Are you sure you want to quit?",4):�
t9�10:�Vu(Z%!20)
t:�&400c7:�Vo%��va(�F(Z%+28))
t;�ri(�F(Z%+28),Z%!20)
t<,�&400c1:DZ%=!Cy:�_J:�DZ%<>!Cy��N_(0,Cy%)
t=�n:�S(R_%)Pn%=�:�w(e%)
t>�S(k%)Pn%=�:�w(k%)
t?�S(w%)Pn%=�:�w(w%)
t@�S(IJ%)Pn%=�:�w(IJ%)
tA?�&400c0:ș&400e8,,Z%!20,Z%!24,Z%!28:�Z%!20=Info_Window%��RJ
tB�:�
tCݤn:�Z%!40<>2959�=0
tD-Z%!12=Z%!8:Z%!16=4:ș&400e7,17,Z%,Z%!4:=1
tE#��ri(Zy$,xi%):�q%,s%,v%:�g_%<1�
tF,sl%=0:Z%!0=k`%:ș&600cb,,Z%�;wy%:�wy%�1�
tGQs%=Z%!12-Z%!4:v%=Z%!16-Z%!8:�q%=0�g_%-1:�Zy$=M$(q%)��l(k`%)=Z$(q%)�v%=P%(q%)�
tHFTy$=Zy$:sl%=k`%:Ly$=Z$(q%):WZ%=xi%:gA%=s%:MZ%=v%:�wu(sl%):q%=g_%-1
tI	�:�:�
tJ��yu:�B_%:Lr%=Z%!20:jo%=Z%!24:_O%=Z%!4:`n%=Z%!8:Z%!0=256:Z%!12=`n%:Z%!16=7:Z%!20=Lr%:�jo%>cO%�mB%=cO%:za%=17�mB%=jo%:za%=18
tKfZ%!24=mB%:ș&600f1,rn%,A%(ke%)+dr%,_O%,Lr%,jo%�wy%;B_%:�B_%�1�C("Optical",�F(wy%+4)):`B%=�:IO%=�:�
tL6ș&400e7,za%,Z%,Rk%,eo%:cO%-=mB%:dr%+=mB%:�za%=17�
tM!�M(SaveText_Window%):�IO%=��b
tN
IO%=�:�V_
tO�:�
tP'��Ry:vo%!12=vo%!8:ș&400e7,19,vo%:�
tQ3��zi:ș&400d3,,M%:M%!24=508:ș&400e7,8,M%,_A%:�
tR���ba:AJ=J%+5452:LJ=J%+5456:`=J%+4080:bn=J%+10792:TJ=J%+8488:oa=J%+5460:s=J%+5404:c_=J%+1496:Jy=J%+20376:WJ=J%+21100:Ky=J%+21804:Yy=J%+21808:ba=J%+20488:oy=J%+18516:nJ=J%+40320:u_=J%+41228:l_=J%+41232:C_=J%+22840:m=J%+5316:r=J%+5320:f=J%+5324
tS�Sy=J%+5328:`n=J%+5332:ka=J%+5336:un=J%+5340:f_=J%+5344:r_=J%+5348:d=J%+5352:vy=J%+18512:g=J%+20616:b=J%+20604:u=J%+20608:w=J%+20612:kJ=J%+20832:K=J%+21096:Qi=J%+21812:W=J%+25912:Ba=J%+25872:hl=J%+25876:uJ=J%+25880:Nl=J%+25884:ni=J%+26316:M_=J%+26732
tT�YJ=J%+26756:Du=J%+27272:ai=J%+29740:Va=J%+29744:Ci=J%+29752:al=J%+29756:ma=J%+29760:KJ=J%+29764:eJ=J%+29768:Wu=J%+16188:gJ=J%+15444:Ra=J%+15828:e_=J%+12884:Vn=J%+12876:na=J%+12880:Ln=J%+13940:Qn=J%+12288:xu=J%+15116:L_=J%+3004:Uy=J%+5360:on=J%+7800
tU�cu=J%+5364:Nn=J%+7804:Ay=J%+34064:Wn=J%+34136:A`=J%+34148:Ca=J%+31072:Hi=J%+31612:Ai=J%+31616:q_=J%+31872:B_=J%+20336:ny=J%+20340:Y_=J%+2804:GJ=J%+2808:yJ=J%+25888:U=J%+2716:R=J%+2836:Ml=J%+2852:pa=J%+2856:K_=J%+18524:dy=J%+18520:ya=J%+18556
tV�W_=J%+18560:Vi=J%+26872:Al=J%+26876:hu=J%+29736:Zy=J%+5908:Fy=J%+5912:p=J%+2508:M=J%+5448:Xy=J%+5904:iJ=J%+14720:Kn=J%+34164:Pi=J%+34168:k=J%+18492:_a=J%+18496:nu=J%+14732:DJ=J%+18608:J_=J%+4948:T_=J%+4944:`y=J%+4940:Q_=J%+4952:uy=J%+18500:A_=J%+836
tW�Q=J%+34512:jn=J%+34532:gl=J%+34684:i=J%+19304:`_=J%+2812:Bu=J%+34172:ja=J%+20356:An=J%+20360:Ql=J%+2816:_n=J%+34760:Rl=J%+34852:hi=J%+34976:xJ=J%+35108:wl=J%+35264:my=J%+35100:ty=J%+35104:Di=J%+31636:qi=J%+35436:QJ=J%+2500:O_=J%+2504:P_=J%+35736
tX�My=J%+38180:qJ=J%+38184:wy=J%+38188:ay=J%+38200:R_=J%+38204:gi=J%+38176:IJ=J%+38212:j_=J%+38216:SJ=J%+38220:n_=J%+38224:UJ=J%+38172:A=J%+35716:D_=J%+5216:Z_=J%+5220:gn=J%+26880:Oi=J%+7320:yl=J%+7324:oJ=J%+7328:wu=J%+7332:qn=J%+9508:Hn=J%+9512
tY�Xi=J%+42580:xa=J%+38464:Ta=J%+38636:JJ=J%+38732:t=J%+5280:T=J%+34596:RJ=J%+2520:D=J%+21800:I=J%+20364:L=J%+20368:e=J%+20372:cy=J%+39020:By=J%+20344:Ry=J%+20348:Sa=J%+26736:ea=J%+26740:ll=J%+7356:Ga=J%+9720:ci=J%+9724:Xl=J%+9700:mn=J%+9776:cn=J%+9704
tZ�la=J%+10292:Sn=J%+10300:fn=J%+10296:Bn=J%+10304:c=J%+2988:wn=J%+38904:j=J%+5228:Uu=J%+9760:au=J%+41252:Gn=J%+41336:Gi=J%+21748:Il=J%+21752:Ji=J%+41420:S_=J%+20324:Ny=J%+20328:yy=J%+20332:kl=J%+9768:za=J%+9772:Xa=J%+40028:en=J%+40304:Bi=J%+40308
t[�Li=J%+40312:`J=J%+34656:Ia=J%+34624:ii=J%+26888:Vu=J%+26892:ri=J%+40300:vn=J%+10764:jJ=J%+2720:sy=J%+2832:Ri=J%+23828:F_=J%+23824:U_=J%+25856:Oa=J%+29772:nn=J%+13084:I_=J%+8780:CJ=J%+18604:Fi=J%+40012:Pl=J%+40016:Fa=J%+31048:aa=J%+31052:OJ=J%+29776
t\�il=J%+41568:fl=J%+42564:Au=J%+42568:PJ=J%+49652:NJ=J%+49676:s_=J%+49780:__=J%+50056:FJ=J%+50432:b_=J%+50568:xy=J%+49672:i_=J%+49760:ca=J%+50048:v=J%+50376:p_=J%+50492:ga=J%+50592:su=J%+50428:x_=J%+50404:ku=J%+50612:N_=J%+50868:v_=J%+50872
t]�Iu=J%+50876:ju=J%+50880:qu=J%+50884:dl=J%+50888:wJ=J%+50892:Cl=J%+50044:Qu=J%+50424:hn=J%+50600:zl=J%+42760:gy=J%+44268:Gy=J%+44884:Hy=J%+44888:Ly=J%+44892:ly=J%+44896:G_=J%+44900:Wy=J%+44904:Py=J%+44908:_y=J%+44912:Ty=J%+44916:VJ=J%+46628
t^�h_=J%+5384:XJ=J%+5388:Zn=J%+46756:Rn=J%+46932:tn=J%+47712:On=J%+47716:Oy=J%+4068:Bl=J%+48188:an=J%+2468:yn=J%+2472:aJ=J%+1960:`a=J%+4056:zn=J%+5400:Pn=J%+13200:Ki=J%+13160:`u=J%+13164:rJ=J%+13168:Fl=J%+13172:va=J%+13176:Pu=J%+13180:ra=J%+13184
t_�Aa=J%+13188:Ul=J%+13192:Tl=J%+13196:xl=J%+13892:Sl=J%+13896:pJ=J%+13616:Wl=J%+13588:vu=J%+13592:ru=J%+13596:Nu=J%+13600:Ku=J%+13604:Hu=J%+13608:d_=J%+13612:`i=J%+12892:Un=J%+7360:kn=J%+7616:Xn=J%+8776:Ou=J%+7832:La=J%+7836:vJ=J%+7840:Jl=J%+7844
t`�Si=J%+7808:rl=J%+7812:cl=J%+7816:ul=J%+7820:wi=J%+7824:sl=J%+7828:Yn=J%+16604:Cn=J%+15552:Gl=J%+15568:Ma=J%+15572:ta=J%+15576:Tu=J%+15592:Ya=J%+15580:Wa=J%+15584:_u=J%+15588:Jn=J%+15556:Dn=J%+15560:ln=J%+15548:in=J%+15564:fa=J%+11352:Ol=J%+12204
ta�Pa=J%+12200:Ju=J%+12192:Yi=J%+12196:_l=J%+12276:`l=J%+12280:nl=J%+12284:BJ=J%+12188:Mi=J%+12180:xi=J%+12212:Za=J%+11348:qa=J%+18392:ei=J%+21676:q=J%+35700:Dl=J%+10780:tu=J%+10784:X=J%+35704:_i=J%+13580:HJ=J%+35708:jl=J%+13584:oi=J%+17764:In=J%+48676
tb�by=J%+48732:lu=J%+48876:Lu=J%+16408:fJ=J%+48884:Mu=J%+48948:dJ=J%+38276:Ru=J%+49136:jy=J%+49356:iy=J%+49412:pn=J%+34364:o=J%+35712:Xu=J%+17760:fy=J%+38168:ua=J%+46920:Z`=J%+46924:Fn=J%+46928:y_=J%+20824:Ka=J%+20828:sJ=J%+6092:Ui=J%+42660:di=J%+42664
tc�vi=J%+42668:iu=J%+42676:uu=J%+42680:sa=J%+42684:pl=J%+42692:vl=J%+42696:bl=J%+42700:pi=J%+42644:Wi=J%+42648:Fu=J%+42652:bJ=J%+42728:du=J%+42732:tJ=J%+42736:mJ=J%+1492:Na=J%+26912:gu=J%+42704:Zl=J%+42708:mu=J%+42712:yi=J%+42744:lJ=J%+42716
td�Su=J%+42720:Cu=J%+42724:n=J%+832:hJ=J%+42748:Cy=J%+41564:O=J%+23844:z=J%+23848:_=J%+5436:x=J%+5440:a_=J%+25416:ml=J%+25916:si=J%+26916:fi=J%+22828:Yu=J%+22832:li=J%+44928:Ll=J%+44920:ti=J%+44924:m_=J%+45608:t_=J%+46448:xn=J%+46468:ZJ=J%+46452
te�Ii=J%+46456:zJ=J%+46460:ky=J%+45604:Ni=J%+21764:zu=J%+21768:Zi=J%+21772:qy=J%+21776:Ti=J%+21796:Mn=J%+21664:k_=J%+21788:MJ=J%+22836:Ja=J%+5444:_J=J%+25408:w_=J%+25412:a=J%+42608:sn=J%+4076:z_=J%+50504:yu=J%+26884:wa=J%+7848:pu=J%+7852:Vy=J%+10772
tf�bi=J%+8472:Ha=J%+8476:Yl=J%+8480:ha=J%+8484:Iy=J%+6144:Y=J%+7868:ey=J%+10776:V_=J%+20820:hy=J%+41212:X_=J%+41216:Zu=J%+41184:ql=J%+41176:Hl=J%+41180:Dy=J%+41168:Qy=J%+41172:ji=J%+41164:H_=J%+41160:dn=J%+49416:rn=J%+49524:ia=J%+49648:Qa=J%+43164
tg�y=J%+23288:da=J%+16396:ui=J%+16400:mi=J%+16404:zi=J%+36588:bu=J%+36232:ry=J%+5900:zy=J%+4096:Gu=J%+26928:el=J%+26932:Kl=J%+26936:ki=J%+24364:eu=J%+26948:Tn=J%+24952:Vl=J%+29912:�
th/��Ui(b%,I%):�b%=1�I%=9I%=10��b%=1�I%=10I%=9
ti	ȎI%�
tj/�7:�u:�Cy%<0�Dy%�U(gJ%,2+Cy%)��R(gJ%,2+Cy%)
tk�Dy%�U(gJ%,4+Cy%)
tl�Cy%>-1�B(gJ%,i%+1)
tm�T(gJ%,y%,h%)
tn.�9:C$=�M(g%,19):�(C$)>1�O%=�(C$)�O%=�(C$)
to�O%>33��A(g%,19,�(O%-1))
tp�_
tq/�10:C$=�M(g%,19):�(C$)>1�O%=�(C$)�O%=�(C$)
tr�O%<255��A(g%,19,�(O%+1))
ts�_
tt�5:Jk%=1:�T(qa%,y%,h%)
tu�8:�Py(HJ%,y%-64,h%+64)
tv�11:�Py(sJ%,y%-64,h%+64)
tw�13:�xu
tx�12:�P_
ty�18:�k_
tz�3:�Dy%�y��Ty
t{�22:�M(g%):�M(HJ%)
t|�:�
t}$��jl(I%,j%):�j%<>13ș&400dc,j%:�
t~	ȎI%�
t#�19:�S(Y%,12,1):�P_:�S(Y%,12,0)
t�
�6:�ci
t��21:�ky(�M(HJ%,3))
t�ș&400dc,j%
t��:�
t���Xu:Ȏ�P(0)�
t��2+Cy%:�ea
t��3+Cy%:Ȏ�P(1)�
t�
�1:�U_
t��
t��4+Cy%:�Ta%=��
t���U("Warning from Optical","Are you sure you want to load the default font set, as there are unsaved amendments in memory. Click on OK to load.")ș&406c0:�ny("<OptclPro$Dir>.DefFonts"):ș&406c1
t�6�:ș&406c0:�ny("<OptclPro$Dir>.DefFonts"):ș&406c1
t��
t��5+Cy%:�wy
t��6+Cy%:�wy
t��t_(�P(0))
t��:�
t����wy:�X("Message from Optical","It is not possible to save font definitions with this version of Optical. For a full version please contact Neurotron Software."):�
t�j��Di:NewF_Menu%=�B("New font,12345678901234567890"):�u:�hB%40:�Fa%=0�39�4:hB%!Fa%=0:�:�Cy%>=0�B(gJ%,1)
t�!�su(NewF_Menu%,1,hB%,-1,40):�
t����u:�Xy%,Uy%,ky%,Wu%,ka%,Lu%:Jy%=gJ%:Lu%=0:Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:$Jy%="OCR fonts":Uy%=�("OCR fonts"):`o%=0:�Cy%>=0�
t�F�Sy%=0�Cy%:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=�(A$(Sy%)):�Lu%<L`%�
t�QXy%!8+=1<<8:Xy%!12=l`%+Lu%*40:Xy%!16=0:Xy%!20=21:$(l`%+Lu%*40)=A$(Sy%):Lu%+=1
t��:$(Xy%+12)=�A$(Sy%))
t��:�ky%>Uy%�Uy%=ky%
t�
Xy%+=24:�
t���:Z$=",Delete font,New font>NewF_Menu%,Load defaults,Save defaults,Save fonts...>SaveF_Window%,":ȕZ$<>"":Z$=�Z$,�Z$,",")+1):ȎZ$�
t��""
t�M:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=�Z$,",")-1:Wu%=��Z$,ky%),">"):ȎWu%�
t��0
t�3:ka%=�(�Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1
t��:�Lu%<L`%�
t�RXy%!8+=1<<8:Xy%!12=l`%+Lu%*40:Xy%!16=0:Xy%!20=21:$(l`%+Lu%*40)=�Z$,ky%):Lu%+=1
t��:$(Xy%+12)=�Z$,12)
t��:�ky%>Uy%�Uy%=ky%
t�Xy%+=24
t�=�:�:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24�128:�f(gJ%,Cy%+1):�
t�c��U_:�Cy%=KJ%-1��X("Message from Optical","You can only have a maximum of "+�(KJ%)+" fonts."):�
t�,�F(g%,6):�F(g%,8):�M(g%,16)=""�F(g%,12)
t���F(g%,18):�F(fy%,6):Cy%+=1:i%=Cy%:A$(i%)=�F(hB%):�ky(Cy$):�u:�B(gJ%,i%+1):�py(i%):�Fy(i%):S%(i%)=�:�p:�_:�Dy%�N(R_%,"Type teaching font '"+A$(i%)+"'")
t��
t�p��ea:�Sy%:�Dy%�Cy%<1�X("Message from Optical","This font cannot be deleted whilst in Type Teaching mode."):�
t���U("Warning from Optical","This action will delete all character definitions in the current font. Click on OK to delete.")=��
t�7ș&406c0:A%=A%(u%):B%=i%:F%=A%(uu%):�xa:�Cy%-1>=i%�
t�]�v_%=i%�Cy%-1:A$(v_%)=A$(v_%+1):S%(v_%)=S%(v_%+1):S$(v_%)=S$(v_%+1):aJ%?v_%=aJ%?(v_%+1):�
t��:�i%=b_%�
t�Sy%=0:�:�S%(Sy%)�b_%=Sy%
t�7Sy%+=1:�S%(Sy%-1)�Sy%>Cy%:�A(N_%,3,A$(b_%)):�J(N_%)
t��:Cy%-=1:�Cy%>=0�
t�Ci%=0:�Fy(i%):�F(g%,6):�F(g%,8):�F(g%,11):�M(g%,16)=""�F(g%,12)
t��F(fy%,6):�F(g%,18)
t�v�:i%=-1:�A(g%,6,""):�A(HJ%,3,""):�M(sJ%):�Z(g%,6):�Z(g%,8):�M(HJ%):�Z(g%,11):�Z(g%,12):�Z(fy%,6):�Z(g%,18):�M(N_%)
t��:�u:�i%>=0�B(gJ%,i%+1)
t�=K%=�A(4+8*!(A%(u%)),u%):�Cy%<0�U(gJ%,2+Cy%)��R(gJ%,2+Cy%)
t�7�p:�_:�Dy%�N(R_%,"Type teaching font '"+A$(i%)+"'")
t�ș&406c1:�
t���t_(l%):�l%-1=i%�
t�^�B(gJ%,i%+1):i%=l%-1:�B(gJ%,i%+1):�Fy(i%):�_:�Dy%�N(R_%,"Type teaching font '"+A$(i%)+"'")
t�AB%=�:�
t���ci:�i%<0�
t�4A$(i%)=�M(g%,6):�M(g%,6)<>A$(i%)�A(g%,6,A$(i%))
t�o�u:�B(gJ%,i%+1):�G(g%,6,�(�M(g%,6))):�N(sJ%,"Defined characters in '"+A$(i%)+"'"):�i%=b_%��A(N_%,3,A$(b_%))
t�7�_:�p:�Dy%�N(R_%,"Type teaching font '"+A$(i%)+"'")
t��
t����yy(Jy%,Z$):�Xy%,Uy%,ky%,Wu%,ka%,Lu%:Lu%=0:$Jy%=�Z$,�Z$,",")-1):Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:Uy%=�(�Z$,�Z$,",")-1)):Z$+=",":`o%=0:ȕZ$<>"":Z$=�Z$,�Z$,",")+1):ȎZ$�
t��""
t�M:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=�Z$,",")-1:Wu%=��Z$,ky%),">"):ȎWu%�
t��0
t�3:ka%=�(�Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1
t��:�Lu%<L`%�
t�RXy%!8+=1<<8:Xy%!12=l`%+Lu%*40:Xy%!16=0:Xy%!20=21:$(l`%+Lu%*40)=�Z$,ky%):Lu%+=1
t��:$(Xy%+12)=�Z$,12)
t��:�ky%>Uy%�Uy%=ky%
t�Xy%+=24
t�/�:�:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24�128:�
t����da(b%,I%):Z%!0=sJ%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=s%-L%:uy%=X%-v%-12:�Z_%>31�uy%>31�O%=30+�((Z_%-16)/48)*10+�((uy%-28)/32)��
t�>A%=A%(u%):B%=O%:C%=i%:�O%>32�O%<256�O%<>127�A(g%,19,�(O%))
t��_:�
t����Qi:ș&400e6,2:ȓȐL%,X%-4,1200,-32:ȓȐL%,X%-4,22,-360:ș&400e6,7:_l%=L%+4:Rl%=X%-8:�q%=3�25:�_l%+32+(q%-3)*3*16,Rl%:�;q%:�:�q%=0�9:�_l%,Rl%-32-q%*32:�;q%:�:G%=_l%:H%=Rl%:!my=A%(u%):!ty=i%:�xJ:�
t�:��_:�C$,O%,d_%:C$=�M(g%,19):�(C$)>1�O%=�(C$)�O%=�(C$)
t��O%>32�O%<256�O%<>127�
t��M(g%,16)=""�F(g%,12)
t��:�Z(g%,12)
t�.�:A%=A%(u%):B%=O%:C%=i%:d_%=�(Ta):�d_%>-1�
t�O�F(g%,13):Za%=?(A%(u%)+6+d_%*8):sa%=?(A%(u%)+7+d_%*8):va%=?(A%(u%)+8+d_%*8)
t��:�Z(g%,13)
t��:�Cy%>=0�
t��F(g%,8):�F(g%,11)
t��:�Z(g%,8):�Z(g%,11)
t��:�a_%=��Z(g%,3)��F(g%,3)
t��
t���p:�Ta%=��
t�#�N(g%,"Font manager *"):Ta%=�:�
t���fy:�Ta%�
t�!�N(g%,"Font manager"):Ta%=�:�
t�DݤPy:�l%,U_%:Bu%=JJ%!(!M*4):U_%=!yl-!Oi:l%=U_%/Bu%*30:�l%>99�=99
t��l%<1�=1
t�=l%
t��ݤk:�l%,Tk%,oy%,dJ%,Ro%,fo%,co%:oy%=a%!(Fn%*8)�65535:dJ%=(a%!(Fn%*8))>>16:Tk%=oy%+(dJ%-oy%)/2:fo%=fJ%!(!M*4):co%=(ru%!(!M*4)*Tk%)>>10:Ro%=fo%+co%:SJ%=r_%!(!M*4):l%=(Ro%+SJ%-(a%!(Fn%*8+4)�65535)-(I_%-!wu))/SJ%*100:�l%>255�=255
t��l%<0�=0
t�=l%
t��ݤFy:�l%,Tk%,oy%,dJ%,Ro%,fo%,co%:oy%=a%!(Fn%*8)�65535:dJ%=(a%!(Fn%*8))>>16:Tk%=oy%+(dJ%-oy%)/2:fo%=fJ%!(!M*4):co%=(ru%!(!M*4)*Tk%)>>10:Ro%=fo%+co%:SJ%=r_%!(!M*4):l%=(Ro%+SJ%-(a%!(Fn%*8+6)�65535)+!oJ)/SJ%*100:�l%>255�=255
t��l%<0�=0
t�=l%
t�:��ny(S$):�ay%:�M(N_%):b_%=0:F%=�(S$):�#F%,Cy%:�Cy%>=0�
t�{�v_%=0�Cy%:�#F%,A$(v_%),S$(v_%),S%(v_%),aJ%?v_%:�:�N_(0,Cy%):i%=0:�Fy(i%):�Dy%�N(R_%,"Type teaching font '"+A$(i%)+"'")
t�6�F(g%,6):�F(g%,8):�F(g%,11):�M(g%,16)=""�F(g%,12)
t��F(fy%,6):�F(g%,18)
t�	�:�w_
t�.�:�#F%,ay%:�ay%>4K%=�A(ay%,u%)�K%=�A(1,u%)
t��K%=���C("Optical","There is not enough free memory available to load font definitions. Need "+�(ay%�1024)+"K."):Cy%=-1:�w_:ay%=0
t��ay%>4�
t�E�r%=A%(u%)�A%(u%)+ay%-1:?r%=�#F%:�:K%=�A(64*!(A%(u%)),uu%):�K%=��
t��C("Optical","There is not enough free memory available to load font definitions. Need "+�((64*!(A%(u%)))�1024)+"K."):Cy%=-1:�w_:ay%=0
t�3�:�r%=A%(uu%)�A%(uu%)+64*!(A%(u%))-1:?r%=�#F%:�
t��
t��:!(A%(u%))=0
t�6�:�#F%:�u:�_:�fy:�Cy%<0�U(gJ%,2+Cy%)��R(gJ%,2+Cy%)
t�8�S$<>"<OptclPro$Dir>.DefFonts"�A(SaveF_Window%,1,S$)
t��
t����w_:i%=-1:�A(g%,6,""):�N(sJ%,"Defined characters in ''"):�Z(g%,6):�Z(g%,8):�Z(g%,11):�Z(g%,12):�Z(fy%,6):�Z(g%,18):�M(N_%):�M(sJ%):�M(HJ%):�
t�T��na(S$):�ay%,P`%,Fa%,SB%,U`%,zB%,u`%,TZ%:�M(N_%):F%=�(S$):�#F%,SB%:�SB%<0�#F%:�
t���Cy%+1+SB%>=KJ%��X("Message from Optical","You can only have a maximum of "+�(KJ%)+" fonts, therefore this file will not be fully loaded.")
t�d�v_%=Cy%+1�Cy%+1+SB%:�#F%,q$,Gy$,U`%,zB%:�v_%<KJ%�A$(v_%)=q$:S$(v_%)=Gy$:S%(v_%)=U`%:aJ%?v_%=zB%
t�U�:�N_(Cy%+1,Cy%+1+SB%):i%=0:�Fy(i%):�Dy%�N(R_%,"Type teaching font '"+A$(i%)+"'")
t�6�F(g%,6):�F(g%,8):�F(g%,11):�M(g%,16)=""�F(g%,12)
t�D�F(fy%,6):�F(g%,18):�#F%,ay%:�ay%>4K%=�A(ay%+4+8*!(A%(u%)),u%)��
t�|�K%=���C("Optical","There is not enough free memory available to merge font definitions. Need "+�(ay%�1024)+"K."):�#F%:�
u�u`%=�#F%+(1<<8)*�#F%+(1<<16)*�#F%+(1<<24)*�#F%:K%=�A(64*(u`%+!(A%(u%))),uu%):�K%=���C("Optical","There is not enough free memory available to load font definitions. Need "+�((64*u`%)�1024)+"K."):�#F%:�
uqP`%=A%(u%)+4+8*!(A%(u%)):TZ%=!(A%(u%)):!(A%(u%))+=u`%:�r%=P`%�P`%+u`%*8-1:?r%=�#F%:�((r%-P`%)�8)=1�?r%+=Cy%+1
u[�:P`%=A%(uu%)+64*TZ%:�r%=P`%�P`%+u`%*64-1:?r%=�#F%:�:�#F%:Cy%+=SB%+1:�Cy%>=KJ%Cy%=KJ%-1
u�u:�_:�p:�
u0��xu:C$=�M(g%,19):�(C$)>1�O%=�(C$)�O%=�(C$)
u}�U("Warning from Optical","This action will delete all the '"+�(O%)+"'s in the current font. Click on OK to delete.")=��
uFA%=A%(u%):B%=O%:C%=i%:F%=A%(uu%):���(JJ)=�:�J(sJ%):�J(N_%):�_:�p:�
uO��P_:�qp%,Op%,QJ%,wp%,Qp%,ro%,je%,Bp%,ZA%,Gl%,y%,h%,nl%,Vp%,Ip%,Tu%:�Cy%<0�
u$hB%="(Unnamed)"+�0:�U_
u	-�:C$=�M(g%,19):�(C$)>1�O%=�(C$)�O%=�(C$)
u
�O%<33�O%=127�O%>255�
u�Dy%�Qu(P%,O%)
u�!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+ci%!(`y%*4):!AJ=U_%:!LJ=I_%:A%=1:B%=U_%-2:C%=0:D%=I_%-1:Tu%=!Y:!Y=0:�TJ:!Y=Tu%:QJ%=!(A%(u%)):K%=�A(12+QJ%*8,u%)
u
��K%=���C("Optical","There is not enough free memory available to store this font definition. Need "+�((76+QJ%*8+QJ%*64)�1024)+"K."):�
u�K%=�A(QJ%*64,uu%):�K%=���C("Optical","There is not enough free memory available to store this font definition. Need "+�((76+QJ%*8+QJ%*64)�1024)+"K."):�
u+C$=�M(g%,19):�(C$)>1�O%=�(C$)�O%=�(C$)
u�?(A%(u%)+4+QJ%*8)=O%:?(A%(u%)+5+QJ%*8)=i%+128:D%=Ky%:E%=P%:!M=�(Ay):Za%=�Py:sa%=�k:va%=�Fy:?(A%(u%)+6+QJ%*8)=Za%:?(A%(u%)+7+QJ%*8)=sa%:?(A%(u%)+8+QJ%*8)=va%:nl%=A%(uu%)+QJ%*64:�XB%=0�63:nl%?XB%=iO%?XB%:�:!(A%(u%))+=1:�P%>=0�
u<B%=_%-1:C%=a%:Yy%=�(Jy):�Z%(J_%)<Yy%�K%=�A(Yy%,J_%)�K%=�
u$�Z%(`y%)<Yy%�K%=�A(Yy%,`y%)�K%=�
u��K%=��C("Optical","There is not enough free memory available to calculate this letter. Need "+�((Yy%*2)�1024)+"K."):K%=�A(1,J_%):K%=�A(1,`y%):ș&406c1:�
u�D%=Ky%:E%=P%:!M=�(Ay):!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!p=Ky%:!Uy=P%:!Xy=P%:!Zy=fJ%:!Fy=a%:!c=1:!_=JJ%:!x=r_%:B%=_%:F%=Bu%:G%=SJ%:H%=a%:Gl%=�(L_):!c=0:�?s=0�z$="???"�z$=�(!s)
u�P%>=0��c_(P%)
u�:�J(sJ%):�J(N_%):�_:�p:�
u���Zu(S$):�qy("Message from Optical","Do you want this font file to replace the current one, or to merge with it?","Replace","Merge","Cancel",2):_$=S$:�
u5��au(b%,I%):�On%:�(I%>=9�I%<=15)�b%=1�S(HJ%,I%,�)
uOn%=(aJ%?i%)�(8+16):ȎI%�
u�3,4:Jk%=2:�T(qa%,y%,h%)
u�7:aJ%?i%=(aJ%?i%)�8
u�8:aJ%?i%=(aJ%?i%)�16
u�9:aJ%?i%=0+On%
u�10:aJ%?i%=1+On%
u�11:aJ%?i%=2+On%
u �12:aJ%?i%=3+On%
u!�13:aJ%?i%=4+On%
u"�14:aJ%?i%=5+On%
u#�15:aJ%?i%=6+On%
u$�16:�M(HJ%)
u%Y�17:�py(i%):NO%=(aJ%?i%)�7:�S(HJ%,9+NO%,�):�S(HJ%,7,(aJ%?i%)�8):�S(HJ%,8,(aJ%?i%)�16)
u&�:�
u'���Fy(N%):�NO%:�A(g%,6,A$(N%)):�A(HJ%,3,S$(N%)):�N(sJ%,"Defined characters in '"+A$(N%)+"'"):NO%=(aJ%?N%)�7:�S(HJ%,9+NO%,�):�S(HJ%,7,(aJ%?N%)�8):�S(HJ%,8,(aJ%?N%)�16):�
u()��py(N%):�G$,Jl%,p%:G$=S$(N%):�G$=""�
u)F�p%=1��(G$):O%=�(�G$,p%,1)):�O%>=�("a")�O%<=�("z")�G$,p%)=�(O%-32)
u*M�:Jl%=0:�G$,"BOLD")>1��G$,"DEMI")>1��G$,"BLACK")>1��G$,"HEAVY")>1�Jl%+=8
u+-�G$,"ITALIC")>1��G$,"OBLIQUE")>1�Jl%+=16
u,(�G$,"MONOSPACED")>1��G$,"FIXED")>1�
u-
Jl%+=3
u.�:G$=�G$,�G$,".")-1):ȎG$�
u/�"TRINITY":Jl%+=1
u0�"PEMBROKE":Jl%+=1
u1�"NEWHALL":Jl%+=1
u2�"HOMERTON":Jl%+=2
u3�"AVANTG":Jl%+=2
u4�"CORPUS":Jl%+=3
u5�"LEGACY":Jl%+=4
u6�"SELWYN":Jl%+=6
u7�"SIDNEY":Jl%+=6
u8�"GREEK":Jl%+=6
u9�
u:�:aJ%?N%=Jl%:�
u;:��B_(kA%):�A(g%,16,"No letter marked"):�Z(g%,12):�kA%�
u<
�D(g%)
u=�:�q:�Py(g%,s%-64,v%+64)
u>
�:�_:�
u?W��Vl:�hy%=0�m_%:�bl(Ka%!(hy%*4)):ȓȐL%+(hy%�8)*220+16,X%-10-(hy%�8)*56,204,-42:�:�
u@��g_(kJ%):�Hl%?kJ%�
uA&Hl%?kJ%=0:�A(iy%,kJ%,"Background")
uB"�:Hl%?kJ%=1:�A(iy%,kJ%,"Text")
uC�:�
uDz��Cn:�Uy:my%=L%:A_%=X%-t%*V%*U%/100:�I(A%(`%),M$,my%+200,A_%-200,0,z%):my%+=xu%:A_%+=su%:�I(A%(Ny%),N$,my%,A_%,3,z%):�
uE��_a(I%,j%):Ȏj%�
uF%�13:�S(iy%,17,1):�tJ:�S(iy%,17,0)
uG�v(j%)
uH�:�
uIM��tJ:Ȕ`%,WJ%:K%=�A(1,WJ%):Ju%=Ma%:m_%=1:Ka%!0=-256:Ka%!4=0:�ql%�dy(-1,4)
uJ�ti%��my��Wy
uK�
uL��Aa:Ȏ�P(0)�
uM6�1:�hy%=0�m_%:Hl%?hy%=0:�A(iy%,hy%,"Background"):�
uN0�2:�hy%=0�m_%:Hl%?hy%=1:�A(iy%,hy%,"Text"):�
uO.�3:ș&406c3:�hy%=0�m_%:�g_(hy%):�:ș&406c1
uP��4:ș&406c0:z%!0=1:z%!4=1:z%!8=1:z%!12=1:ș46,60+256,A%(WJ%),M$,0�J,G,B,P:ș46,52+256,A%(`%),M$,0,0,0,z%,Hl%:ș46,J,G,B,P:�J(w_%):ș&406c1
uQ�5:�D(Zoom_Window%)
uR�:�
uS��Hu(b%,I%):�hy%:ȎI%�
uT�17:�tJ
uU��22:ș&406c0:z%!0=1:z%!4=1:z%!8=1:z%!12=1:ș46,60+256,A%(WJ%),M$,0�J,G,B,P:ș46,52+256,A%(`%),M$,0,0,0,z%,Hl%:ș46,J,G,B,P:�J(w_%):ș&406c1
uV/�19:ș&406c3:�hy%=0�m_%:�g_(hy%):�:ș&406c1
uW7�20:�hy%=0�m_%:Hl%?hy%=0:�A(iy%,hy%,"Background"):�
uX1�21:�hy%=0�m_%:Hl%?hy%=1:�A(iy%,hy%,"Text"):�
uY�18:�T(Zoom_Window%,y%,h%)
uZ:�I%<=m_%�I%>=0��g_(I%)
u[�:�
u\��sa:Ȏ�P(0)�
u]�1:�D(Zoom_Window%)
u^�:�
u_���Ai:X$=�Q(S$):ș&406c0:F%=�(S$):Ia%=�#F%:�#F%:K%=�A(Ia%+8,Ny%):�K%=���C("Optical","There is not enough free memory available to merge this sprite. Need "+�((Ia%+8)�1024)+"K."):K%=�A(1,Ny%):�
u`�!(A%(Ny%))=Z%(Ny%):ștJ%,C`%,A%(Ny%):ștJ%,or%,A%(Ny%),S$:ștJ%,po%,A%(Ny%),y`%,16,1�,,,ky%:N$="":�_y%=0�ky%-1:N$+=�(y`%?_y%):�:ștJ%,Nl%,A%(Ny%),N$�,,,ku%,nJ%,,di%
ual�di%<>Ju%�C("Optical","The sprite to merge must be in the same mode as the current one."):K%=�A(1,Ny%):�
ub
�Q_:�M_:�
uc���Ql:_`%=�:`B%=�:Ia%=Z%!36:v$=�x:`n%=Z%!8:_O%=Z%!4:X$=�Q(v$):K%=�A(Ia%+8,Ny%):�K%=���C("Optical","There is not enough free memory available to merge this sprite."):K%=�A(1,Ny%):�
udK!(A%(Ny%))=Z%(Ny%):ștJ%,C`%,A%(Ny%):PO%=0:dn%=Ia%:p`%=�:Z%!8=`n%:�a_:�
ue���Sl:ștJ%,po%,A%(Ny%),y`%,16,1�,,,ky%:N$="":�_y%=0�ky%-1:N$+=�(y`%?_y%):�:ștJ%,Nl%,A%(Ny%),N$�,,,ku%,nJ%,,di%:�di%<>Ju%�C("Optical","The sprite to merge must be in the same mode as the current one."):K%=�A(1,Ny%):�
uf
�Q_:�M_:�
ug$��M_:��0,�$+" at line "+�(�):�
uh�ștJ%,FO%,A%(Ny%),N$�,,jA%:Z%!0=H_%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=-ku%*R%/2*U%/100:Ii%=-nJ%*V%/2*U%/100:xu%=(s%-L%+Ri%-R%):su%=t%*V%*U%/100-(X%-v%-Ii%):mi%=xu%:ki%=su%
uizș53,di%,3�,,Zk%:ș46,24+256,A%(Ny%),N$�,,q`%:G_%=q`%+44:�_y%=0�Zk%:Ka%!(_y%*4)=G_%!(_y%*8):�:�G_%=q`%+q`%!32��DJ(Zk%)
ujy�((�G(G_%!0)>�G(&80808000)��G(G_%!4)>�G(&80808000)��G(G_%!8)<�G(&80808000)��G(G_%!12)<�G(&8080800))�G_%=q`%+q`%!32)�
uk�Zk%=1�
ul�ș46,60+256,A%(Ny%),N$,0�J,G,B,P:�4,0:ȓȐ0,0,ku%*R%,nJ%*V%:ș46,J,G,B,P:G_%!0=�N(G_%!0):G_%!4=�N(G_%!4):G_%!8=�N(G_%!8):G_%!12=�N(G_%!12):ș&406c1
um�
unr�:�M(k%):�M(`_%):�M(w_%):�M(Q_%):�M(iy%):�N(H_%,"Merge images"):�L(H_%,�J(n%*R%)+400,�J(t%*V%)+400):ș&406c1:�
uo���ku:�aA%:Z%!0=H_%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:�s%<Z%!4�s%>Z%!12�v%<Z%!8�v%>Z%!16�
up ș6,121,0�128�,aA%:�aA%�cu:�
uq�_J%�m:�Y(""):_J%=�
ur�mi%=xu%:ki%=su%:Z%!0=H_%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:xu%=(s%-L%+Ri%):su%=t%*V%*U%/100-(X%-v%-Ii%):�xu%=mi%�su%=ki%�
us	�by:�
ut.��cu:�_J%=��n_(H_%):�Y("ptr_adjust"):_J%=�
uu�Z%!0=H_%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=xu%-s%+L%:Ii%=su%-t%*V%*U%/100+X%-v%:�
uv���yl(I%,j%):�wl%,Gu%,s%,v%:ș53,-1,4�,,wl%:ș53,-1,5�,,Gu%:wl%=1<<wl%:Gu%=1<<Gu%:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:M%?0=3:�("FX21"):Ȏj%�
uw�27:�M(H_%):ȎKu%�
uxOɣ:�L(k%,�J(n%*R%),�J(t%*V%)):�N(k%,"Process '"+X$+"' ("+M$+")"):�Uu%�w(k%)
uyyɹ:�L(Q_%,�J(n%*R%),�J(t%*V%)):�L(w_%,�J(n%*R%),�J(t%*V%)):�D(iy%):�N(Q_%,"Original image"):�N(w_%,"Processed image")
uz�:K%=�A(1,Ny%)
u{g�399:ki%=su%:mi%=xu%:su%+=Gu%:v%+=Gu%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%:�by
u|g�398:ki%=su%:mi%=xu%:su%-=Gu%:v%-=Gu%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%:�by
u}g�396:mi%=xu%:ki%=su%:xu%-=wl%:s%-=wl%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%:�by
u~g�397:mi%=xu%:ki%=su%:xu%+=wl%:s%+=wl%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%:�by
uS�415:Ii%+=Gu%:v%+=Gu%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%
u�S�414:Ii%-=Gu%:v%-=Gu%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%
u�S�412:Ri%-=wl%:s%-=wl%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%
u�S�413:Ri%+=wl%:s%+=wl%:M%?1=s%�256:M%?2=s%�256:M%?3=v%�256:M%?4=v%�256:ș7,21,M%
u��13:�o_
u�<�386:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:�T(Zoom_Window%,s%,v%)
u�ș&400dc,j%
u��:�
u����by:�Uy:Z%!0=H_%:Z%!4=0:Z%!8=-t%*V%*U%/100-400:Z%!12=n%*R%*U%/100+400:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:my%=L%+mi%:A_%=X%-t%*V%*U%/100+ki%:�I(A%(Ny%),N$,my%,A_%,3,z%):ș&400ca,,Z%�d%:�:Z%!0=H_%:Z%!4=0:Z%!8=-t%*V%*U%/100-400
u��Z%!12=n%*R%*U%/100+400:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:my%=L%+xu%:A_%=X%-t%*V%*U%/100+su%:�I(A%(Ny%),N$,my%,A_%,3,z%):ș&400ca,,Z%�d%:�:�
u����o_:�hl%,rl%,s%,v%,Z_%,uy%,J,G,B,P,oy%,dJ%,T_%,Yu%,hy%,Jp%,UJ%,yi%,cu%:Z%!0=H_%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:ș53,-1,4�,,UJ%:UJ%=1<<UJ%:Z_%=(s%-L%-200-UJ%+Ri%)/R%*100/U%
u�Duy%=(t%*V%*U%/100-(X%-v%-Ii%)+200)/V%*100/U%:�Z_%<0oy%=Z_%�oy%=0
u�!�Z_%+ku%>n%dJ%=Z_%+ku%�dJ%=n%
u��uy%<0T_%=uy%�T_%=0
u�!�uy%+nJ%>t%Yu%=uy%+nJ%�Yu%=t%
u��Yy%=�g(dJ%-oy%+36,Yu%-T_%+8,A%(`%),M$):K%=�A(Yy%,`%):�K%=���C("Optical","There is not enough free memory available to merge the sprite. Need "+�((Yy%)�1024)+"K."):�
u�!(A%(`%))=Z%(`%):�Ku%�
u��K%=�A(Yy%,WJ%):�K%=���C("Optical","There is not enough free memory available to merge the sprite. Need "+�((Yy%)�1024)+"K.")�!(A%(WJ%))=Z%(WJ%)
u��:�K%=��
u�,yi%=-oy%+dJ%-n%-T_%+Yu%-t%:�Ku%yi%=yi%*2
u�cu%=0:ș&406c0:�oy%<0�
u�I�hy%=oy%�-1:ș&2002e,45+256,A%(`%),M$,0:cu%+=1:ș&406c4,cu%/yi%*100:�
u��:�dJ%>n%�
u�P�hy%=n%�dJ%-1:ș&2002e,45+256,A%(`%),M$,n%-oy%:cu%+=1:ș&406c4,cu%/yi%*100:�
u�
�:�T_%<0�
u�I�hy%=T_%�-1:ș&2002e,31+256,A%(`%),M$,0:cu%+=1:ș&406c4,cu%/yi%*100:�
u��:�Yu%>t%�
u�P�hy%=t%�Yu%-1:ș&2002e,31+256,A%(`%),M$,t%-T_%:cu%+=1:ș&406c4,cu%/yi%*100:�
u��:�Ku%�
u��oy%<0�
u�J�hy%=oy%�-1:ș&2002e,45+256,A%(WJ%),M$,0:cu%+=1:ș&406c4,cu%/yi%*100:�
u��:�dJ%>n%�
u�Q�hy%=n%�dJ%-1:ș&2002e,45+256,A%(WJ%),M$,n%-oy%:cu%+=1:ș&406c4,cu%/yi%*100:�
u�
�:�T_%<0�
u�J�hy%=T_%�-1:ș&2002e,31+256,A%(WJ%),M$,0:cu%+=1:ș&406c4,cu%/yi%*100:�
u��:�Yu%>t%�
u�Q�hy%=t%�Yu%-1:ș&2002e,31+256,A%(WJ%),M$,t%-T_%:cu%+=1:ș&406c4,cu%/yi%*100:�
u��
u�x�:ș&406c4,100:ș46,60+256,A%(`%),M$,0�J,G,B,P:ș46,34+256,A%(Ny%),N$,(Z_%-oy%)*R%,(uy%-T_%)*V%,1:ș46,J,G,B,P:�Ku%�
u��ș46,60+256,A%(WJ%),M$,0�J,G,B,P:z%!0=1:z%!4=1:z%!8=1:z%!12=1:ș46,52+256,A%(Ny%),N$,(Z_%-oy%)*R%,(uy%-T_%)*V%,1,z%,Hl%:ș46,J,G,B,P
u�:�:ș&406c1:ștJ%,Nl%,A%(`%),M$�,,,n%,t%:�M(H_%):ȎKu%�
u�Oɣ:�L(k%,�J(n%*R%),�J(t%*V%)):�N(k%,"Process '"+X$+"' ("+M$+")"):�Uu%�w(k%)
u�yɹ:�L(Q_%,�J(n%*R%),�J(t%*V%)):�L(w_%,�J(n%*R%),�J(t%*V%)):�D(iy%):�N(Q_%,"Original image"):�N(w_%,"Processed image")
u��:K%=�A(1,Ny%):�
u���Bl:�P(0)=Yi%�
u�e�no%�X("Message from Optical","You cannot change speech synthesizer whilst Optical is talking"):�
u�'�B(en%,Yi%):Yi%=�P(0):�B(en%,Yi%):�
u����F_:�X("Message from Optical","Text cannot be read out with this version of Optical. For a full version please contact Neurotron Software."):�
u����qu:FB%=32:Co%=32:wB%=32:�qn%28+ (FB%+4)*32:�fi%28+ (Co%+4)*32:�Bn%28+ (wB%+4)*12:�nA% (wB%+4)*12:�HA% (FB%+4)*32:�qZ% (Co%+4)*32:�J$(FB%):�F$(Co%):�C%(wB%):�F%(wB%):�Ty%32:�S(W%,36,1):�S(W%,17,0):�S(W%,38,1):�S(W%,19,0):�S(W%,39,1):�S(W%,10,1)
u���A(W%,22,"50"):�A(W%,23,"50"):un%=32*1024+1024:to%=�:Fi%=�:li%=�:oo%=�:Va%=0:Zr%=0:�Ka:pl%=256:xJ%=256:ș&20039,,"Scanner_Names"�;wy%:�(wy%�1)=��s_:�
u�/ș&20039,,"Scan_Start"�;wy%:�(wy%�1)=��s_:�
u��
u�2��l:�vJ%:Ku%=�S(iy%):�(i_%<>0�Fi%)�yl%<>0�Iy:�
u�*�yl%�ș&400d4,,Lo%,y%-64,184:Jy%=Lo%:�
u��Wu:zy%=�:�ly%<xJ%�
u�4ș&20039,,"Scanner_Names"�;wy%:�(wy%�1)�e_:zy%=�
u�
�S`%zy%=�
u�vJ%=�Z(W%,38)
u��:�zy%�
u��ly%<xJ%�li%�vJ%<>0�bJ:�
u�6�(Z%(`%)<=1024�Z%(WJ%)<=1024�Z%(Ny%)<=1024)�a_%=��
u��Z(W%,36):Zu%=�
u��:�F(W%,36):Zu%=�Z(W%,36)
u��:�oo%=��s_:�ok%�
u��D(W%):�ly%<xJ%�Fi%�Xo%�
u�7�Z(W%,28):�Z(W%,31):�Z(W%,32):�F(W%,43):�S(W%,43,1)
u�9�:�F(W%,28):�F(W%,31):�F(W%,32):�Z(W%,43):�S(W%,43,0)
u��:�ay:�
u���s_:���26,4:�$;�:ma%=�:�
u�>ok%=�:ș&20039,,"Scanner_Names"�;wy%:�(wy%�1)pl%=256�pl%=0
u�5ș&20039,,"Scan_Start"�;wy%:�(wy%�1)xJ%=256�xJ%=0
u��pl%=256�xJ%=256�e_:�
u��pl%<>256�ua
u��pl%=256�xJ%=256�e_:�
u��xJ%<>256�pl%=256�Cu:�
u��
u���K_:�ly%>=xJ%�ii:�
u��ly%>=pl%�tu:�
u��
u���tu:�AZ%,ei%:ș&41dc1,ly%�,yB%,Iu%,Un%,_u%:Xl%=Un%!0:Cu%=Un%!4:ml%=Un%!8:tl%=Un%!12:Fk%=_u%�(1<<2):�Fk%�F(W%,17)��Z(W%,17)
uφ�Z(W%,18):�Z(W%,19):�Z(W%,20):�Z(W%,21):�Z(W%,22):�Z(W%,47):�Z(W%,48):�Z(W%,23):�Z(W%,24):�Z(W%,49):�Z(W%,50):WB%=_u%�(1<<3):�WB%�
u�/�F(W%,18):�F(W%,21):�S(W%,18,1):�S(W%,21,1)
u��:�S(W%,20,1)
u��:bi%=_u%�(1<<23):�bi%�
u��F(W%,18):�F(W%,19):�F(W%,20):�F(W%,22):�F(W%,47):�F(W%,48):�F(W%,23):�F(W%,24):�F(W%,49):�F(W%,50):�S(W%,18,1):�S(W%,19,1)
u�,�:rZ%=_u%�(1<<8):yo%=_u%�(1<<17):�yo%�z_
u�Ik%=_u%�(1<<19):�Ik%�pJ
u�+li%=_u%�(1<<21):�li%�F(W%,38)��Z(W%,38)
u��c_%=0:Z$="Modes:":ȕ!(Iu%+32*c_%)<>0:F$(c_%)=�F(Iu%!(4+32*c_%)+Iu%):Z$+="|"+F$(c_%):c_%+=1:�:ce%=c_%:�cy(fi%,Z$,qZ%):nO%=�:ei%=�:c_%=0:ȕ!(Iu%+32*c_%)<>0:Wn%=Iu%!(24+32*c_%)+Iu%:uo%=�:r%=0:ȕ?(Wn%+r%)<>0�uo%=�:�?(Wn%+r%)<=4�
u�uo%=�:�nO%=��
u�nO%=�:AZ%=c_%
u��
u��:r%+=1:�:�uo%=��
u��U(fi%,c_%+1):�c_%=`J%ei%=�
u��:c_%+=1:�:�nO%=��
u�0�Z(W%,34):`J%=0:�A(W%,3,"No suitable modes")
u�$�:�F(W%,34):�ei%�`J%>=c_%`J%=AZ%
u�"�B(fi%,`J%+1):�A(W%,3,F$(`J%))
u��:�to%�
u�!cy%=Xl%:�Cu%=-1Ry%=�Y�Ry%=Cu%
u�&�ay:�M(W%,28)="Inches"VJ%=��VJ%=�
u�	�VJ%�
u�A�A(W%,31,��(�W(cy%/72000)),7)):�A(W%,32,��(�W(Ry%/72000)),7))
u�G�:�A(W%,31,��(�W(cy%/72000*S)),7)):�A(W%,32,��(�W(Ry%/72000*S)),7))
u��:�x
u��:�
u�&��X_:�ii%,c_%,gl%,q%,r%:�ly%>=xJ%�
u�'ș&41dc1,ly%�,yB%,Iu%,Un%,_u%:�WB%�
u�/�F(W%,18):�F(W%,21):�S(W%,18,1):�S(W%,21,1)
u��:�S(W%,20,1)
u��:�bi%�
u��F(W%,18):�F(W%,19):�F(W%,20):�F(W%,22):�F(W%,47):�F(W%,48):�F(W%,23):�F(W%,24):�F(W%,49):�F(W%,50):�S(W%,18,1):�S(W%,19,1)
u���:ș&41dc1,ly%�,yB%,Iu%,Un%,_u%:�Z(W%,8):�Z(W%,9):�Z(W%,10):�Z(W%,39):�Z(W%,40):�Z(W%,41):�F(W%,11):�F(W%,12):�F(W%,13):�F(W%,14):Wn%=Iu%!(24+32*`J%)+Iu%:ii%=�:h_%=0:ȕ?(Wn%+h_%)<>0:Ȏ?(Wn%+h_%)�
u��1:ny%=�Z(W%,39):�ny%ii%=�
u��2:ny%=�Z(W%,40):�ny%ii%=�
u��4:ny%=�Z(W%,41):�ny%ii%=�
u�/�:h_%+=1:�:r%=0:ȕ?(Wn%+r%)<>0:Ȏ?(Wn%+r%)�
u�"�1:�F(W%,39):�ii%=��S(W%,39,1)
u�	ii%=�
u�"�2:�F(W%,40):�ii%=��S(W%,40,1)
u�	ii%=�
u�"�4:�F(W%,41):�ii%=��S(W%,41,1)
u�	ii%=�
u�L�:r%+=1:�:Va%=Iu%!(8+32*`J%):�(Va%�(1<<5))<>0�(Va%�(1<<6))<>0Xo%=��Xo%=�
u��(Va%�(1<<2))=��
u�?�Z(W%,18):�Z(W%,20):�Z(W%,21):�Z(W%,22):�Z(W%,47):�Z(W%,48)
u��:�(Va%�(1<<3))=��
u�5�Z(W%,19):�Z(W%,23):�Z(W%,24):�Z(W%,49):�Z(W%,50)
u��:�(Va%�(1<<4))�
v!�Z(W%,28):�Z(W%,31):�Z(W%,32)
v#�:�F(W%,28):�F(W%,31):�F(W%,32)
v��:Z$="Resolutions":Po%=Iu%!(28+32*`J%)+Iu%:h_%=0:ȕ!(Po%+h_%)<>0:C%(h_%/4)=!(Po%+h_%)�(1<<16):F%(h_%/4)=!(Po%+h_%)�(1<<16):Z$+="|"+�(C%(h_%/4))+" x "+�(F%(h_%/4)):�C%(h_%/4)=200�F%(h_%/4)=200�F(W%,8)
v(�C%(h_%/4)=300�F%(h_%/4)=300�F(W%,9)
v)�C%(h_%/4)=400�F%(h_%/4)=400�F(W%,10)
v�h_%+=4:�:kB%=h_%/4:�cy(Bn%,Z$,nA%):gl%=�:ny%=�Z(W%,8):s_%=�Z(W%,9):wJ%=�Z(W%,10):lu%=�Z(W%,11):�B(Bn%,Mu%+1):�A(W%,12,�(C%(Mu%))):�A(W%,13,�(F%(Mu%))):�c_%=0�kB%-1:�ny%�gl%=��C%(c_%)=200�F%(c_%)=200gl%=�
v+�s_%�gl%=��C%(c_%)=300�F%(c_%)=300gl%=�
v+�wJ%�gl%=��C%(c_%)=400�F%(c_%)=400gl%=�
v9�lu%�gl%=��C%(c_%)=�(�M(W%,12))�F%(c_%)=�(�M(W%,13))�
v	Mu%=c_%:gl%=�
v
�:�:�gl%=��
v*�c_%=0�kB%-1:�C%(c_%)=400�F%(c_%)=400�
v�S(W%,10,1):gl%=�
v
�:�
v
�:�gl%=��
v*�c_%=0�kB%-1:�C%(c_%)=300�F%(c_%)=300�
v�S(W%,9,1):gl%=�
v�:�
v�:�
vv��e_:�X("Optical","There are no scanners connected which can be directly interfaced with Optical."):�M(W%):ok%=�:�
vݤY:=11.68*72000
v6��Cl(b%,I%):�vJ%:�b%=1�I%=47I%=48��b%=1�I%=48I%=47
v%�b%=1�I%=49I%=50��b%=1�I%=50I%=49
vA�((I%>=8�I%<=11)�I%=20�I%=21�(I%>=39�I%<=41))�b%=1�S(W%,I%,�)
v	ȎI%�
v�4,2:�T(qn%,y%,h%)
v�5,3:�T(fi%,y%,h%)
v�14,12,13:�T(Bn%,y%,h%)
v�28:�Ou
v�35:i_%=�:�M(W%)
v�34:�QJ
v�42:�Va
v �18:vJ%=�Z(W%,18):�vJ%�
v!�WB%�F(W%,21)
v"/�bi%�F(W%,20):�F(W%,22):�F(W%,47):�F(W%,48)
v#7�:�Z(W%,20):�Z(W%,21):�Z(W%,22):�Z(W%,47):�Z(W%,48)
v$�
v%�19:vJ%=�Z(W%,19):�vJ%�
v&+�F(W%,23):�F(W%,24):�F(W%,49):�F(W%,50)
v'-�:�Z(W%,23):�Z(W%,24):�Z(W%,49):�Z(W%,50)
v(�
v)�43:vJ%=�Z(W%,43):�vJ%�
v*!�Z(W%,28):�Z(W%,31):�Z(W%,32)
v+#�:�F(W%,28):�F(W%,31):�F(W%,32)
v,�:�x
v-�8,9,10,11,39,40,41:�x
v.�47:�i(W%,22,100,1)
v/�48:�h(W%,22,1,1)
v0�49:�i(W%,23,100,1)
v1�50:�h(W%,23,1,1)
v2�51:�Xl
v3�:�
v4'��Ou:�M(W%,28)="Inches"VJ%=��VJ%=�
v5	�VJ%�
v61cy%=�(�M(W%,31))*72000:Ry%=�(�M(W%,32))*72000
v77�:cy%=�(�M(W%,31))*72000/S:Ry%=�(�M(W%,32))*72000/S
v8�:VJ%=�(VJ%):@%=1024:�VJ%�
v9T�A(W%,28,"Inches"):�A(W%,31,��(�W(cy%/72000)),7)):�A(W%,32,��(�W(Ry%/72000)),7))
v:V�:�A(W%,28,"Mm"):�A(W%,31,��(�W(cy%/72000*S)),7)):�A(W%,32,��(�W(Ry%/72000*S)),7))
v;�:@%=2314:�
v<#��Oa:�Ok%:Ok%=�P(0):�Ok%=ly%+1�
v=_�B(qn%,ly%+1):�B(qn%,Ok%):ly%=Ok%-1:�A(W%,2,J$(ly%)):to%=�:�ly%<>xJ%�xJ%<>256�ș"Scan_Stop"
v>�K_:�X_:�Xi:�
v?#��ul:�sk%:sk%=�P(0):�sk%=`J%+1�
v@A�B(fi%,`J%+1):�B(fi%,sk%):`J%=sk%-1:�A(W%,3,F$(`J%)):�X_:�x:�
vAv��ha:�fr%:fr%=�P(0):�V(Bn%,Mu%+1):�K(Bn%,fr%):Mu%=fr%-1:�A(W%,12,�(C%(Mu%))):�A(W%,13,�(F%(Mu%))):�S(W%,11,1):�x:�
vB���cy(Jy%,Z$,aZ%):�Xy%,Uy%,ky%,Wu%,ka%,Lu%:Lu%=0:Jy%?12=7:Jy%?13=2:Jy%?14=7:Jy%?15=0:Jy%!16=140:Jy%!20=44:Jy%!24=0:Xy%=Jy%+28:$Jy%=�Z$,�Z$,"|")-1):Uy%=�(�Z$,�Z$,"|")-1)):Z$+="|":`o%=0:ȕZ$<>"":Z$=�Z$,�Z$,"|")+1):ȎZ$�
vC�""
vDM:!Xy%=0:Xy%!4=-1:Xy%!8=&7000021:ky%=�Z$,"|")-1:Wu%=��Z$,ky%),">"):ȎWu%�
vE�0
vF3:ka%=�(�Z$,Wu%+1,ky%-Wu%)):Xy%!4=ka%:ky%=Wu%-1
vG�:�Lu%<L`%�
vHRXy%!8+=1<<8:Xy%!12=aZ%+Lu%*32:Xy%!16=0:Xy%!20=21:$(aZ%+Lu%*32)=�Z$,ky%):Lu%+=1
vI�:$(Xy%+12)=�Z$,12)
vJ�:�ky%>Uy%�Uy%=ky%
vKXy%+=24
vL/�:�:Jy%!16=16*(Uy%+1):Xy%!-24=Xy%!-24�128:�
vM6��Pi(I%,j%):�j%=27�S(Y%,35,1):�M(W%):�S(Y%,35,0):�
vN�j%<>13ș&400dc,j%:�
vO	ȎI%�
vP$�22:DJ%=�(�M(W%,22)):�DJ%<1DJ%=1
vQ�DJ%>100DJ%=100
vR�A(W%,22,�(DJ%)):�Ly(W%,23)
vS$�23:DJ%=�(�M(W%,23)):�DJ%<1DJ%=1
vT�DJ%>100DJ%=100
vU�A(W%,23,�(DJ%)):�Ly(W%,22)
vV�31:�x:�Ly(W%,32)
vW�32:�x:�Ly(W%,31)
vX#�34:�S(Y%,34,1):�QJ:�S(Y%,34,0)
vY�:�
vZݤW(tl)=�Jy(tl,2)
v[$ݤJy(tl,ZZ%)=�(tl*10^ZZ%)/10^ZZ%
v\W��QJ:NJ%=0:Zu%=�Z(W%,36):�Zu%�(Z%(`%)<=1024�Z%(WJ%)<=1024�Z%(Ny%)<=1024)�a_%=�Zu%=�
v]�M(W%):�_u%�(1<<0)�
v^�D(kl%):�gi
v_
�:yO%=�:�
v`��Nu:yO%=�:�ly%>=xJ%�Tu:�
va�ly%>=pl%�bJ:�
vb�
vcH��Tu:�c%,Tu%:ș"XScan_PollDPI"�Tl%:Tl%=Tl%*100:Al%=Tl%:Ll%=Tl%:�VJ%�
vd1cy%=�(�M(W%,31))*72000:Ry%=�(�M(W%,32))*72000
ve7�:cy%=�(�M(W%,31))*72000/S:Ry%=�(�M(W%,32))*72000/S
vf4�:vu%=(cy%/72000)*Tl%/8:�(vu%�3)vu%=(vu%��(3))+4
vg!�vu%>Tl%/100*52vu%=Tl%/100*52
vh{P_%=(Ry%/72000)*Tl%:z_%=1:Ji%=�V:bu%=cy%*Tl%/72000:�Bo%�zk%=(Ji%-un%)/((4+bu%/8)+(4+bu%/8))-4�zk%=(Ji%-un%)/(4+bu%/8)-4
vi�P_%>zk%�P_%=zk%
vja�P_%<1�C("Optical","There is not enough available memory to scan the image."):ș"Scan_Stop":�
vkDn%=vu%*P_%:�Zu%�
vlyku%=vu%*8:nJ%=P_%:Uy%=(vu%*8)/4-1:yy%=nJ%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=�A(qu%+8,Ny%)
vm��K%=��C("Optical","There is not enough free memory available to scan an area that size. Need "+�((qu%+8)�1024)+"K."):K%=�A(1,Ny%):�M(kl%):li%=�:�
vn�!(A%(Ny%))=Z%(Ny%):!(A%(Ny%)+8)=16:di%=18:ș46,9+256,A%(Ny%):ș46,15+256,A%(Ny%),"Scanned",1,ku%,nJ%,di%:ș46,24+256,A%(Ny%),"Scanned"�,,c%:�`y:N$="Scanned":j`%=c%+c%!32
vox�:n%=vu%*8:t%=P_%:Uy%=(vu%*8)/4-1:yy%=t%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=�A(qu%+8,M_%)
vp��K%=��C("Optical","There is not enough free memory available to scan an area that size. Need "+�((qu%+8)�1024)+"K."):�M(kl%):�H:li%=�:�
vq�!(A%(M_%))=Z%(M_%):!(A%(M_%)+8)=16:Ju%=18:V%=2:R%=2:ș46,9+256,A%(M_%):ș46,15+256,A%(M_%),"Scanned",1,n%,t%,Ju%:ș46,24+256,A%(M_%),"Scanned"�,,c%:�`y:M$="Scanned":j`%=c%+c%!32
vrF�:zy%=�:X$="Watford":ș"XScan_Start",vu%,P_%,j`%�_a%;wy%:�(wy%�1)�
vs/�C("Optical",�F(_a%+4)):�Zu%K%=�A(1,Ny%)��H
vtzy%=�:ș"XScan_Stop"
vu�:�zy%�
vvJș&406c0:zy%=�:mP%=-1:de%=0:re%=�:ȕNJ%<P_%�(�<re%+300�NJ%<=1):�-113�
vw&ș"XScan_Stop":�Zu%K%=�A(1,Ny%)��H
vxzy%=�:NJ%=P_%
vy4�:ș"XScan_Poll"�NJ%;wy%:�NJ%<>de%�de%=NJ%:re%=�
vz
�(wy%�1)�
v{Nș"XScan_Stop":�C("Optical",�F(_a%+4)):�Zu%K%=�A(1,Ny%)�Tu%=i_%:�H:i_%=Tu%
v|zy%=�:NJ%=P_%:Qn%=�
v}�:NJ%+=1
v~*�:ș&406c4,(NJ%/P_%)*100:�eJ:�Wy%=1�q_
v
�Wy%=2�v_
v�
�!A�H_
v��:�:�NJ%<P_%�
v�	�Zu%�
v�`ș46,Nl%,A%(Ny%),"Scanned"�,,,ku%,nJ%:ș46,24+256,A%(Ny%),"Scanned"�,,c%:nJ%=NJ%:c%!20=nJ%-1
v�^�:ș46,Nl%,A%(M_%),"Scanned"�,,,n%,t%:ș46,24+256,A%(M_%),"Scanned"�,,c%:t%=NJ%:c%!20=t%-1
v��
v�+�:ș&406c1:ș"XScan_Stop":�M(kl%):�zy%�
v�'Fi%=�:ș&406c0:V=0:�Zu%��M_��gy:�Xy
v��
v�A��bJ:�ny%,s_%,wJ%,lu%,z_%,s`%,c%,Tu%:�Zu%=�Tu%=i_%:�H:i_%=Tu%
v���x:s`%=!(Iu%+32*`J%):Ty%!0=s`%:Ty%!4=0:Ty%!8=100:Ty%!12=100:ny%=�Z(W%,18):s_%=�Z(W%,19):�bi%<>0�ny%<>0�Ty%!16=�(�M(W%,22))�Ty%!16=100
v�C�bi%<>0�s_%<>0�Ty%!16+=�(�M(W%,23))*(1<<16)�Ty%!16+=100*(1<<16)
v�ITy%!20=0:ny%=�Z(W%,39):s_%=�Z(W%,40):wJ%=�Z(W%,41):�ny%Ty%!24=1:z_%=1
v��s_%Ty%!24=2:z_%=2
v��wJ%Ty%!24=4:z_%=4
v�Tny%=�Z(W%,8):s_%=�Z(W%,9):wJ%=�Z(W%,10):lu%=�Z(W%,11):�ny%Ty%!28=200+200*(1<<16)
v��s_%Ty%!28=300+300*(1<<16)
v��wJ%Ty%!28=400+400*(1<<16)
v�'�lu%�Ty%!28=C%(Mu%)+F%(Mu%)*(1<<16)
v�ny%=�Z(W%,43):�ny%<>0�Fi%�
v��ou
v�$�:�M(W%,28)="Inches"VJ%=��VJ%=�
v��x:Kl%=0:Si%=0
v�z�:Ji%=�V:bu%=cy%*(Ty%!28�(1<<16))/72000:�z_%>1�Bo%�P_%=(Ji%-un%)/((4+bu%*z_%/8)+(4+bu%/8))-4�P_%=(Ji%-un%)/(4+bu%/8)-4
v�S�P_%<1�C("Optical","There is not enough available memory to scan the image."):�
v�2P_%=P_%*72000/(Ty%!28�(1<<16)):�Ry%>P_%Ry%=P_%
v�yZ%!0=Kl%:Z%!4=Si%:Z%!8=cy%:Z%!12=Ry%:ș&61dc2,ly%,Ty%,Z%�_a%,,,vu%,P_%,Dn%;wy%:�wy%�1�C("Optical",�F(_a%+4)):�D(W%):�
v�	�Zu%�
v��ku%=vu%*8/z_%:nJ%=P_%:Uy%=(vu%*8/z_%)/4-1:yy%=nJ%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=�A(qu%+8,Ny%)
v���K%=��C("Optical","There is not enough free memory available to scan an area that size. Need "+�((qu%+8)�1024)+"K."):K%=�A(1,Ny%):�M(kl%):li%=�:�
v�-!(A%(Ny%))=Z%(Ny%):!(A%(Ny%)+8)=16:Ȏz_%�
v�
�1:di%=18
v�
�2:di%=19
v�
�4:di%=20
v���:ș46,9+256,A%(Ny%):ș46,15+256,A%(Ny%),"Scanned",1,ku%,nJ%,di%:ș46,24+256,A%(Ny%),"Scanned"�,,c%:�`y:N$="Scanned":j`%=c%+c%!32
v���:n%=vu%*8/z_%:t%=P_%:Uy%=(vu%*8/z_%)/4-1:yy%=t%-1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=1024+Ru%+Dn%:K%=�A(qu%+8,M_%)
v���K%=��C("Optical","There is not enough free memory available to scan an area that size. Need "+�((qu%+8)�1024)+"K."):�M(kl%):�H:li%=�:�
v�-!(A%(M_%))=Z%(M_%):!(A%(M_%)+8)=16:Ȏz_%�
v�
�1:Ju%=18
v�
�2:Ju%=19
v�
�4:Ju%=20
v���:V%=2:R%=2:ș46,9+256,A%(M_%):ș46,15+256,A%(M_%),"Scanned",1,n%,t%,Ju%:ș46,24+256,A%(M_%),"Scanned"�,,c%:�`y:M$="Scanned":j`%=c%+c%!32
v�<�:ny%=�Z(W%,17):s_%=�Z(W%,21):B_%=128:�_u%�(1<<0)�B_%+=1
v��ny%<>0�Fk%<>0�B_%+=4
v��s_%<>0�WB%<>0�B_%+=8
v��_u%�(1<<6)�B_%+=64
v�4ș&41dc4,ly%,,j`%,B_%�,,Qn%,`P%,pP%:�Qn%ș&406c0
v�$zy%=�:ȕQn%:�-113�(_u%�(1<<0))�
v�1ș&61dc5,ly%:ș&61dc3,ly%�_a%,,Qn%,NJ%,g_;wy%
v�0�:ș&61dc3,ly%�_a%,,Qn%,NJ%,g_;wy%:�(wy%�1)�
v�Lș&61dc5,ly%:�C("Optical",�F(_a%+4)):�Zu%K%=�A(1,Ny%)�Tu%=i_%:�H:i_%=Tu%
v�zy%=�:NJ%=P_%:Qn%=�:li%=�
v��:NJ%+=1
v�*�:ș&406c4,(NJ%/P_%)*100:�eJ:�Wy%=1�q_
v�
�Wy%=2�v_
v�
�!A�H_
v�7�:�:�(_u%�(1<<0))=�ș&61dc3,ly%�_a%,,Qn%,NJ%,g_;wy%
v�
�NJ%<P_%�
v�	�Zu%�
v�`ș46,Nl%,A%(Ny%),"Scanned"�,,,ku%,nJ%:ș46,24+256,A%(Ny%),"Scanned"�,,c%:nJ%=NJ%:c%!20=nJ%-1
v�^�:ș46,Nl%,A%(M_%),"Scanned"�,,,n%,t%:ș46,24+256,A%(M_%),"Scanned"�,,c%:t%=NJ%:c%!20=t%-1
v��
v�.�:ș&406c1:ș&61dc5,ly%:�_u%�(1<<0)�M(kl%)
v�	�zy%�
v�mș&406c0:Fi%=�:nu%=Ty%!28�(1<<16):du%=Ty%!28�(1<<16):Al%=nu%:Ll%=du%:oa%=Kl%:la%=Si%:V=0:�Zu%��M_��gy:�Xy
v��
v����gi:�26:Z%!0=kl%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!0=kl%:Z%!4=0:ș&400ce,,Z%:CA%=L%+Z%!8+8:FZ%=X%+Z%!12+8:ș53,-1,4�,,ia%:ș53,-1,5�,,vn%:ia%=1<<ia%:vn%=1<<vn%:`Z%=(Z%!16-Z%!8-16)/ia%:lZ%=(Z%!20-Z%!12-16)/vn%:wr%=(Z%!16-Z%!8-16)
v��GA%=(Z%!20-Z%!12-16):Z%!0=kl%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!0=kl%:Z%!4=1:ș&400ce,,Z%:WA%=L%+Z%!8+8:JZ%=X%+Z%!12+8:ș53,-1,4�,,ia%:ș53,-1,5�,,vn%:ia%=1<<ia%:vn%=1<<vn%:AA%=(Z%!16-Z%!8-16)/ia%:pZ%=(Z%!20-Z%!12-16)/2
v�4QA%=(Z%!16-Z%!8-16):rP%=(Z%!20-Z%!12-16):oe%=0:�
vŀ��eJ:�U_%,I_%,Ml%,MA%:my%=CA%:A_%=FZ%:n_%=`Z%:cJ%=lZ%:�26,24,my%;A_%;my%+wr%-4;A_%+GA%-4;:�Zu%�U_%=ku%:I_%=nJ%�U_%=n%:I_%=t%
v�Jz%!0=1:z%!4=1:z%!8=1:z%!12=1:A_%-=(P_%-NJ%)*2:my%-=(U_%*2-wr%)/2:�Zu%�
v�&�I(A%(Ny%),"Scanned",my%,A_%,0,z%)
v�(�:�I(A%(M_%),"Scanned",my%,A_%,0,z%)
vɲ�:my%=WA%:A_%=JZ%:n_%=AA%:cJ%=pZ%:Ml%=(cJ%/I_%)*(P_%-NJ%)*2-4:MA%=(cJ%/I_%)*(NJ%-oe%)*2+4:�26,24,my%;A_%+Ml%;my%+QA%-8;A_%+Ml%+MA%;:oe%=NJ%:�Zu%�U_%=ku%:I_%=nJ%�U_%=n%:I_%=t%
v�
�U_%>n_%�
v�AH=(1<<16)/n_%*U_%:n_%=(1<<16)/H*(1<<16):z%!0=n_%:z%!8=(1<<16)
v�+�:H=(1<<16)/n_%*U_%:z%!0=(1<<16):z%!8=H
v��:�I_%>cJ%�
v�Bh=(1<<16)/cJ%*I_%:cJ%=(1<<16)/h*(1<<16):z%!4=cJ%:z%!12=(1<<16)
v�,�:h=(1<<16)/cJ%*I_%:z%!4=(1<<16):z%!12=h
v��:�Zu%�
v�&�I(A%(Ny%),"Scanned",my%,A_%,0,z%)
v�(�:�I(A%(M_%),"Scanned",my%,A_%,0,z%)
v��:�
v�&��Xi:cy%=Xl%:�Cu%=-1Ry%=�Y�Ry%=Cu%
v�
�ly%<xJ%�
vֆs`%=!(Iu%+32*`J%):Ty%!0=s`%:Ty%!4=0:Ty%!8=100:Ty%!12=100:ny%=�Z(W%,18):s_%=�Z(W%,19):�bi%<>0�ny%<>0�Ty%!16=�(�M(W%,22))�Ty%!16=100
v�C�bi%<>0�s_%<>0�Ty%!16+=�(�M(W%,23))*(1<<16)�Ty%!16+=100*(1<<16)
v�ITy%!20=0:ny%=�Z(W%,39):s_%=�Z(W%,40):wJ%=�Z(W%,41):�ny%Ty%!24=1:z_%=1
v��s_%Ty%!24=2:z_%=2
v��wJ%Ty%!24=4:z_%=4
v�Tny%=�Z(W%,8):s_%=�Z(W%,9):wJ%=�Z(W%,10):lu%=�Z(W%,11):�ny%Ty%!28=200+200*(1<<16)
v��s_%Ty%!28=300+300*(1<<16)
v��wJ%Ty%!28=400+400*(1<<16)
v�'�lu%�Ty%!28=C%(Mu%)+F%(Mu%)*(1<<16)
v�ZZ%!0=0:Z%!4=0:Z%!8=cy%:Z%!12=Ry%:ș&61dc2,ly%,Ty%,Z%�,,,eA%,IA%,Dn%:cy%=Z%!8:Ry%=Z%!12
v�$�:�M(W%,28)="Inches"VJ%=��VJ%=�
v�	�VJ%�
v�A�A(W%,31,��(�W(cy%/72000)),7)):�A(W%,32,��(�W(Ry%/72000)),7))
v�G�:�A(W%,31,��(�W(cy%/72000*S)),7)):�A(W%,32,��(�W(Ry%/72000*S)),7))
v��:�
v�>��x:�Ji%,ny%:�ay:ny%=�Z(W%,43):�(Fi%�ny%<>0)�(Va%�(1<<4))�
v�"�M(W%,28)="Inches"VJ%=��VJ%=�
v�	�VJ%�
v�1cy%=�(�M(W%,31))*72000:Ry%=�(�M(W%,32))*72000
v�7�:cy%=�(�M(W%,31))*72000/S:Ry%=�(�M(W%,32))*72000/S
v��:�cy%>Xl%cy%=Xl%
v��cy%<ml%cy%=ml%
v��Ry%>Cu%�Cu%<>-1Ry%=Cu%
v��Ry%<tl%Ry%=tl%
v�
�ly%<xJ%�
v�s`%=!(Iu%+32*`J%):Ty%!0=s`%:Ty%!4=0:Ty%!8=100:Ty%!12=100:ny%=�Z(W%,18):s_%=�Z(W%,19):�bi%<>0�ny%<>0�Ty%!16=�(�M(W%,22))�Ty%!16=100
v�C�bi%<>0�s_%<>0�Ty%!16+=�(�M(W%,23))*(1<<16)�Ty%!16+=100*(1<<16)
v�ITy%!20=0:ny%=�Z(W%,39):s_%=�Z(W%,40):wJ%=�Z(W%,41):�ny%Ty%!24=1:z_%=1
v��s_%Ty%!24=2:z_%=2
v��wJ%Ty%!24=4:z_%=4
v�Tny%=�Z(W%,8):s_%=�Z(W%,9):wJ%=�Z(W%,10):lu%=�Z(W%,11):�ny%Ty%!28=200+200*(1<<16)
v��s_%Ty%!28=300+300*(1<<16)
v��wJ%Ty%!28=400+400*(1<<16)
v�'�lu%�Ty%!28=C%(Mu%)+F%(Mu%)*(1<<16)
v�ZZ%!0=0:Z%!4=0:Z%!8=cy%:Z%!12=Ry%:ș&61dc2,ly%,Ty%,Z%�,,,eA%,IA%,Dn%:cy%=Z%!8:Ry%=Z%!12
v��:�VJ%�
v�A�A(W%,31,��(�W(cy%/72000)),7)):�A(W%,32,��(�W(Ry%/72000)),7))
v�G�:�A(W%,31,��(�W(cy%/72000*S)),7)):�A(W%,32,��(�W(Ry%/72000*S)),7))
v��:�
v���`y:�ly%>=xJ%�
v�+c%!44=16:c%!48=16:c%!52=-240:c%!56=-240
v��:Ȏz_%�
w.�1:c%!44=-240:c%!48=-240:c%!52=16:c%!56=16
wn�2:c%!48=-240:c%!52=-240:c%!56=&aaaaaa10:c%!60=&aaaaaa10:c%!64=&55555510:c%!68=&55555510:c%!72=16:c%!76=16
w��4:c%!44=-240:c%!48=-240:c%!52=&eeeeee10:c%!56=&eeeeee10:c%!60=&dddddd10:c%!64=&dddddd10:c%!68=&cccccc10:c%!72=&cccccc10:c%!76=&bbbbbb10:c%!80=&bbbbbb10:c%!84=&aaaaaa10:c%!88=&aaaaaa10:c%!92=&99999910:c%!96=&99999910:c%!100=&88888810
w�c%!104=&88888810:c%!108=&77777710:c%!112=&77777710:c%!116=&66666610:c%!120=&66666610:c%!124=&55555510:c%!128=&55555510:c%!132=&44444410:c%!136=&44444410:c%!140=&33333310:c%!144=&33333310:c%!148=&22222210:c%!152=&22222210:c%!156=&11111110
w(c%!160=&11111110:c%!164=16:c%!168=16
w�
w�:�
wB��pJ:�Sa%,q%:ș&41dc3,ly%�,Sa%:�q%=0�ce%-1:�!Sa%=!(Iu%+32*q%)�
w7�V(fi%,`J%+1):`J%=q%:�K(fi%,`J%+1):�A(W%,3,F$(`J%))
w		�:�:�
w
��z_:�Sa%,q%,Tl%:�ly%>=xJ%�
w ș"XScan_PollDPI"�Tl%:ȎTl%�
w�2:�S(W%,8,1)
w
�3:�S(W%,9,1)
w�4:�S(W%,10,1)
w�S(W%,11,1)
w/�:�A(W%,12,�(Tl%*100)):�A(W%,13,�(Tl%*100))
w!�:ș&41dc3,ly%�,Sa%:ȎSa%!28�
w�200+200*(1<<16):�S(W%,8,1)
w�300+300*(1<<16):�S(W%,9,1)
w �400+400*(1<<16):�S(W%,10,1)
wC:�q%=0�kB%-1:�(Sa%!28�(1<<16))=C%(q%)�(Sa%!28�(1<<16))=F%(q%)�
wZ�V(Bn%,Mu%+1):Mu%=q%:�K(Bn%,Mu%+1):�S(W%,11,1):�A(W%,12,�(C%(q%))):�A(W%,13,�(F%(q%)))
w�:�
w�
w�:�ay:�
w��gy:S`%=�:�Wy%�!A�
w	S`%=�
w�:Ȕ`%,M_%:K%=�A(1,M_%)
w�:�
w���Va:�ny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%,t$,g$,b$,o$,f$,w$,s$:ny%=�Z(W%,17):s_%=�Z(W%,18):wJ%=�Z(W%,20):lu%=�Z(W%,21):tO%=�Z(W%,19):gO%=�Z(W%,8):bO%=�Z(W%,9):Qo%=�Z(W%,10):vO%=�Z(W%,11):Hk%=�Z(W%,36):Vk%=�Z(W%,38):Dk%=�Z(W%,39)
w�Lk%=�Z(W%,40):Xk%=�Z(W%,41):t$=�M(W%,22):g$=�M(W%,23):b$=�M(W%,12):o$=�M(W%,13):f$=�M(W%,28):w$=�M(W%,31):s$=�M(W%,32):F%=�("<OptclPro$Dir>.ScDefaults"):�#F%,ly%,`J%,Mu%:�#F%,ny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%
w $�#F%,t$,g$,b$,o$,f$,w$,s$:�#F%:�
w!���Ka:�ny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%,t$,g$,b$,o$,f$,w$,s$:F%=�("<OptclPro$Dir>.ScDefaults"):�#F%,ly%,`J%,Mu%:�#F%,ny%,s_%,wJ%,lu%,tO%,gO%,bO%,Qo%,vO%,Hk%,Vk%,Dk%,Lk%,Xk%:�#F%,t$,g$,b$,o$,f$,w$,s$:�#F%:�S(W%,17,ny%)
w"��S(W%,18,s_%):�S(W%,20,wJ%):�S(W%,21,lu%):�S(W%,19,tO%):�S(W%,8,gO%):�S(W%,9,bO%):�S(W%,10,Qo%):�S(W%,11,vO%):�S(W%,36,Hk%):�S(W%,38,Vk%):�S(W%,39,Dk%):�S(W%,40,Lk%):�S(W%,41,Xk%):�A(W%,22,t$):�A(W%,23,g$):�A(W%,12,b$):�A(W%,13,o$):�A(W%,28,f$)
w#3�A(W%,31,w$):�A(W%,32,s$):cy%=�(w$):Ry%=�(s$):�
w$&ݤV:�in%:ș&400ec,-1,-1�,,in%:=in%
w%]��ou:�o%,Oy%,Gy%,dy%,Ly%,AJ%,ZJ%,ny%,s_%,wJ%,lu%:Oy%=1<<30:dy%=0:Gy%=1<<30:Ly%=0:�Ay%>=0�
w&@�o%=0�Ay%:Q%!(o%*16)=Q%!(o%*16)-2:�Q%!(o%*16)<0�Q%!(o%*16)=0
w'!�Q%!(o%*16)<Oy%Oy%=Q%!(o%*16)
w(>Q%!(o%*16+4)=Q%!(o%*16+4)-2:�Q%!(o%*16+4)<0�Q%!(o%*16+4)=0
w)%�Q%!(o%*16+4)<Gy%Gy%=Q%!(o%*16+4)
w*AQ%!(o%*16+8)=Q%!(o%*16+8)+4:�Q%!(o%*16+8)>dy%dy%=Q%!(o%*16+8)
w+EQ%!(o%*16+12)=Q%!(o%*16+12)+2:�Q%!(o%*16+12)>Ly%Ly%=Q%!(o%*16+12)
w,�
w- �:Oy%=0:Gy%=0:dy%=n%:Ly%=yy%
w.O�:ny%=�Z(W%,8):s_%=�Z(W%,9):wJ%=�Z(W%,10):lu%=�Z(W%,11):�ny%AJ%=200:ZJ%=200
w/�s_%AJ%=300:ZJ%=300
w0�wJ%AJ%=400:ZJ%=400
w1�lu%AJ%=C%(Mu%):ZJ%=F%(Mu%)
w2 �ZJ%=0�AJ%=0�ZJ%=100:AJ%=100
w3�Ay%>=0�
w4��o%=0�Ay%:Q%!(o%*16)=(Q%!(o%*16)-Oy%)*AJ%/nu%:Q%!(o%*16+4)=(Q%!(o%*16+4)-Gy%)*ZJ%/du%:Q%!(o%*16+8)=(Q%!(o%*16+8)-Oy%)*AJ%/nu%:Q%!(o%*16+12)=(Q%!(o%*16+12)-Gy%)*ZJ%/du%:�
w5�:�W_%>=0�
w6��o%=0�W_%:f%!(o%*16)=(f%!(o%*16)-Oy%)*AJ%/nu%:f%!(o%*16+4)=(f%!(o%*16+4)-Gy%)*ZJ%/du%:f%!(o%*16+8)=(f%!(o%*16+8)-Oy%)*AJ%/nu%:f%!(o%*16+12)=(f%!(o%*16+12)-Gy%)*ZJ%/du%:�
w7��:Oy%=Oy%*72000/nu%+oa%:Gy%=Gy%*72000/du%+la%:dy%=dy%*72000/nu%+oa%:Ly%=Ly%*72000/du%+la%:cy%=dy%-Oy%:Ry%=Ly%-Gy%:Kl%=Oy%:Si%=Gy%:�cy%+Kl%>Xl%cy%=Xl%-Kl%
w8 �Kl%<ml%cy%-=ml%-Kl%:Kl%=ml%
w9#�Ry%+Si%>Cu%�Cu%<>-1Ry%=Cu%-Si%
w: �Ry%<tl%Ry%-=tl%-Si%:Si%=tl%
w;�
w<H��ay:�z_%,AJ%,ZJ%,ny%,s_%,wJ%,lu%,bu%,Ji%,P_%,Ve%,xZ%:�(Va%�(1<<4))�
w=Mz_%=1:AJ%=100:ZJ%=100:ny%=�Z(W%,39):s_%=�Z(W%,40):wJ%=�Z(W%,41):�ny%z_%=1
w>
�s_%z_%=2
w?
�wJ%z_%=4
w@Mny%=�Z(W%,8):s_%=�Z(W%,9):wJ%=�Z(W%,10):lu%=�Z(W%,11):�ny%AJ%=200:ZJ%=200
wA�s_%AJ%=300:ZJ%=300
wB�wJ%AJ%=400:ZJ%=400
wC)�lu%AJ%=�(�M(W%,12)):ZJ%=�(�M(W%,13))
wD �ZJ%=0�AJ%=0�ZJ%=100:AJ%=100
wE%Ji%=�V:ny%=�Z(W%,43):�Fi%�ny%<>0�
wF,Oy%=1<<30:dy%=0:Gy%=1<<30:Ly%=0:�Ay%>=0�
wG+�o%=0�Ay%:�Q%!(o%*16)<Oy%Oy%=Q%!(o%*16)
wH%�Q%!(o%*16+4)<Gy%Gy%=Q%!(o%*16+4)
wI%�Q%!(o%*16+8)>dy%dy%=Q%!(o%*16+8)
wJ'�Q%!(o%*16+12)>Ly%Ly%=Q%!(o%*16+12)
wK�
wL �:Oy%=0:Gy%=0:dy%=n%:Ly%=yy%
wM��:Oy%=Oy%*72000/nu%+oa%:Gy%=Gy%*72000/du%+la%:dy%=dy%*72000/nu%+oa%:Ly%=Ly%*72000/du%+la%:cy%=dy%-Oy%:Ry%=Ly%-Gy%:�cy%+Kl%>Xl%cy%=Xl%-Kl%
wN �Kl%<ml%cy%-=ml%-Kl%:Kl%=ml%
wO#�Ry%+Si%>Cu%�Cu%<>-1Ry%=Cu%-Si%
wP �Ry%<tl%Ry%-=tl%-Si%:Si%=tl%
wQ$�:�M(W%,28)="Inches"VJ%=��VJ%=�
wR	�VJ%�
wS1cy%=�(�M(W%,31))*72000:Ry%=�(�M(W%,32))*72000
wT7�:cy%=�(�M(W%,31))*72000/S:Ry%=�(�M(W%,32))*72000/S
wU�:�cy%>Xl%cy%=Xl%
wV�cy%<ml%cy%=ml%
wW�Ry%>Cu%�Cu%<>-1Ry%=Cu%
wX�Ry%<tl%Ry%=tl%
wYf�:bu%=cy%*AJ%/72000:�z_%>1�Bo%�P_%=(Ji%-un%)/((4+bu%*z_%/8)+(4+bu%/8))-4�P_%=(Ji%-un%)/(4+bu%/8)-4
wZ�P_%<1P_%=0
w[-P_%=P_%*72000/ZJ%:�Ry%>P_%Ve%=P_%�Ve%=Ry%
w\�Ry%=0�
w](xZ%=(Ve%/Ry%)*100:�A(W%,45,�(xZ%)):�
w^#��vu:Ji%=�V:�Ji%<>Zr%Zr%=Ji%:�x
w_�
w`V��ua:�q%,nO%,uo%,c_%,r%:Gn%=0:ș&61dc0�XZ%,Gn%,GP%,iP%;wy%:�(wy%�1)�Gn%=0pl%=256:�
wa�Gn%>FB%Gn%=FB%
wb��F(W%,4):�F(W%,5):Z$="Scanners:":�q%=0�Gn%-1:J$(q%)=�F(!(XZ%+q%*4)):Z$+="|"+J$(q%):�:�xJ%<>256Z$+="|Watford hand held MkII":xJ%=Gn%
wc#�cy(qn%,Z$,HA%):�ly%>Gn%-1ly%=0
wdP�B(qn%,ly%+1):ș&41dc1,ly%�,yB%,Iu%,Un%,_u%:�A(W%,2,�F(yB%)):�K_:�X_:oo%=�:�
we���Cu:Z$="Scanners:|Watford hand held MkII":�cy(qn%,Z$,HA%):ly%=0:�B(qn%,ly%+1):�A(W%,2,"Watford hand held MkII"):ml%=0:tl%=0:Xl%=4.16*72000:Cu%=-1:�K_:oo%=�:�
wf���ii:yo%=�:�z_:c_%=0:Z$="Modes:|Monochrome":ce%=1:�cy(fi%,Z$,qZ%):�B(fi%,1):�A(W%,3,"Monochrome"):�A(W%,2,"Watford hand held MkII"):�Z(W%,17):�Z(W%,18):�Z(W%,19):�Z(W%,20):�Z(W%,21):�Z(W%,22):�Z(W%,47):�Z(W%,48):�Z(W%,23):�Z(W%,24):�Z(W%,49)
wg��Z(W%,50):�Z(W%,8):�Z(W%,9):�Z(W%,10):�Z(W%,11):�Z(W%,12):�Z(W%,13):�Z(W%,14):�Z(W%,43):�Z(W%,38):�F(W%,39):�Z(W%,40):�Z(W%,41):ml%=0:tl%=0:Xl%=4.16*72000:Cu%=-1:�to%�
wh!cy%=Xl%:�Cu%=-1Ry%=�Y�Ry%=Cu%
wi&�ay:�M(W%,28)="Inches"VJ%=��VJ%=�
wj	�VJ%�
wkA�A(W%,31,��(�W(cy%/72000)),7)):�A(W%,32,��(�W(Ry%/72000)),7))
wlG�:�A(W%,31,��(�W(cy%/72000*S)),7)):�A(W%,32,��(�W(Ry%/72000*S)),7))
wm�:�x
wn7�:Fk%=�:WB%=�:bi%=�:rZ%=�:Ik%=�:li%=�:Xo%=�:_u%=1:�
wo���Ci(S$):F%=�("<OptclPro$Dir>.ScLocation"):�#F%,S$:�#F%:K$=S$:�X("Message from Optical","!Scanner application path has been changed to "+K$+"."):�
wp>ݤh:�S$:F%=�("<OptclPro$Dir>.ScLocation"):�#F%,S$:�#F%:=S$
wq��Wu:�K$=""�
wr�ș&406c0:ș&20005,"Set Optical$ModPres 1":ș&20005,"RMEnsure SAM 0.00 Set Optical$ModPres 0":ș35,"Optical$ModPres",M%,10,0:ș&20005,"Unset Optical$ModPres":�?M%=�("0")�ș&2001e,1,K$+".Drivers.!Sam"�Ha%;wy%:�wy%�1��C("Optical",�F(Ha%+4)):ș&406c2:�
ws�ș&20005,"Set Optical$ModPres 1":ș&20005,"RMEnsure ScannerSCSI 0.00 Set Optical$ModPres 0":ș35,"Optical$ModPres",M%,10,0:ș&20005,"Unset Optical$ModPres":�?M%=�("0")�ș&20005,"Run "+K$+".RunInst"�Ha%;wy%:�wy%�1��C("scanner interface",�F(Ha%+4))
wtș&406c1:�
wuu��Xl:�U("Warning from Optical","This action will reset the !Scanner application path. Click on OK to reset.")=��
wv:F%=�("<OptclPro$Dir>.ScLocation"):�#F%,"":�#F%:K$="":�
ww��sl:Ȏ�P(0)�
wx�1:ș&836c3
wy
�2:�Iy
wz�:�
w{{��Iy:�bZ%:bZ%=i_%:�H:i_%=bZ%:Ku%=�S(iy%):�BJ:!N_=A%(M_%):!v_=Z%(M_%):!Iu=ci%:!qu=M_%:!dl=al%:!ju=jn%:!ku=Z:�Fi%�Ay%>=0�
w|KOy%=1<<30:dy%=0:Gy%=1<<30:Ly%=0:�o%=0�Ay%:�Q%!(o%*16)<Oy%Oy%=Q%!(o%*16)
w}%�Q%!(o%*16+4)<Gy%Gy%=Q%!(o%*16+4)
w~%�Q%!(o%*16+8)>dy%dy%=Q%!(o%*16+8)
w'�Q%!(o%*16+12)>Ly%Ly%=Q%!(o%*16+12)
w���:Oy%=Oy%*72000/nu%+oa%:Gy%=Gy%*72000/du%+la%:dy%=dy%*72000/nu%+oa%:Ly%=Ly%*72000/du%+la%:Z!0=1:Z!8=Oy%:Z!12=dy%:Z!16=Gy%:Z!20=Ly%
w�&�:Z!0=0:Z!8=0:Z!12=0:Z!16=0:Z!20=0
w�e�:Z!4=0:Z!24=PJ:Z!28=NJ:Z!32=s_:Z!36=__:Z!40=x_:Z!44=FJ:Z!48=b_:Z!52=0:Z!56=0:!Qu=Z%:ș&836c4,Z:�
w�a��Yu:�Tp%,sp%:�v!4=0�v!8=0�C("Optical","The image could not be scanned properly."):�H:i_%=�:�
w��!xy=0:!i_=0:!ca=0:!v=0:!p_=0:!ga=0:!su=0:�!wJ=2��C("Optical","There is not enough available memory to scan the image."):�H:i_%=�:�
w�c�!wJ=1�Z!4=0��C("Optical","There is not enough available memory to scan the image."):�H:i_%=�:�
w�3A%(M_%)=!N_:nn%!(M_%*4)=!N_:Z%(M_%)=!v_:�Z!4=0�
w�lș46,256+13,A%(M_%),M%,1024,1:M$=�F(M%):ș46,256+40,A%(M_%),M$�,,,n%,t%,,Ju%:ș46,24+256,A%(M_%),M$�,,c%
w�g�:K%=�A(!Cl,M_%):ș46,24+256,A%(M_%),"Scanned"�,,c%:�`u:ș46,256+40,A%(M_%),"Scanned"�,,,n%,t%,,Ju%
w���:Uy%=c%!16+1:yy%=c%!20+1:Ru%=(Uy%+2)*4*(yy%+5)-(Uy%+1)*4*(yy%+1):qu%=Z%(M_%)+Ru%:K%=�A(qu%+8,M_%):�K%=��C("Optical","There is not enough free memory available to store this image. Need "+�((qu%+8)�1024)+"K."):�H:i_%=�:�
w�/!A%(M_%)=Z%(M_%):Al%=v!16:Ll%=v!20:�Ay%>=0�
w���o%=0�Ay%:Q%!(o%*16)=(Q%!(o%*16)-Oy%)*Al%/nu%:Q%!(o%*16+4)=(Q%!(o%*16+4)-Gy%)*Ll%/du%:Q%!(o%*16+8)=(Q%!(o%*16+8)-Oy%)*Al%/nu%:Q%!(o%*16+12)=(Q%!(o%*16+12)-Gy%)*Ll%/du%:�
w��:�W_%>=0�
w���o%=0�W_%:f%!(o%*16)=(f%!(o%*16)-Oy%)*Al%/nu%:f%!(o%*16+4)=(f%!(o%*16+4)-Gy%)*Ll%/du%:f%!(o%*16+8)=(f%!(o%*16+8)-Oy%)*Al%/nu%:f%!(o%*16+12)=(f%!(o%*16+12)-Gy%)*Ll%/du%:�
w�B�:nu%=Al%:du%=Ll%:oa%=Z!8:la%=Z!16:V=0:Fi%=�:�gy:�Z!4=0�y_��Xy
w��
w�#��`u:�_y%,yk%:yk%=p_!8:�yk%>16�
w�H�_y%=0�yk%-1:c%!(44+_y%*8)=z_!(_y%*4):c%!(44+_y%*8+4)=z_!(_y%*4):�:�
w�K��Wi:�H$:H$=�(�(Bu)):��H$,1)="0"�H$=H$+" (Site)"�H$=H$+" (Single user)"
w�0�A(Info_Window%,12,�M(Info_Window%,12)+H$):�
w���Il(I%,j%):Ȏj%�
w�5�13,18:�S(`_%,0,1):�M(k%):�M(`_%):�Wy:�S(`_%,0,0)
w��v(j%)
w��:�
w�1��v(j%):�Dp%,Lp%,Hp%,Xp%:�c:ș&600d4,-1:Ȏj%�
w��27:�("FX21"):�Pl%�
w��ș&400d0,0:�Y(""):_J%=0:mu%=0:Ol%=0:Pl%=0:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:ș&400c9,,M%�d%:L%=M%!4-M%!20:X%=M%!16-M%!24:�W(3,11):ȕd%:�W(3,11):�Vy%+L%,X%-Hy%,by%+L%,X%-ty%:ș&400ca,,M%�d%:�
w�#�:�Wy%<>0�!A<>0�Iy%�!`_=�:�Hy:�
w�:�M(SaveText_Window%):�M(SaveF_Window%):zy%=�:�S(zu%)�
w�$�M(zu%):�m:�Ga%ș&400d0,,0:Ga%=�
w�	zy%=�
w��:�zy%�
w��S(w%)�
w�<xy%=P%:P%=-1:�d:P%=xy%:jy%=�:�O(P%):�M(w%):�M(V_%):zy%=�
w��:�zy%�
w�
�Dy%�y
w�ș&400dc,j%
w��13:�Y%=-3�
w�
ȎLZ%�
w��0:ma%=�
w��1
w��
w��:ș&400dc,j%
w��
w�'�385:�S(k%)=���S(H_%)=���S(Q_%)=��
w�7ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:�T(Zoom_Window%,s%,v%)
w��417:�S(k%)�
w�,�B(f_%,9):�Uu%�M(`_%):Uu%=��Uu%=�:�w(k%)
w��Au(`_%)
w��
w��386:�yl%�
w�Ku%=�S(iy%):�Iy
w��:�l
w��
w��387
w��403
w��419
w��435
w��388:�S(e%)�hy��By
w�9�389:�A(g%,16,"No letter marked"):�Z(g%,12):�D(g%):�_
w�!�405:�a_%=��Wy%<>0�!A<>0�Iy%�
w��Dy%�y��Ty
w��421:�D(sJ%)
w��390:�Cy%>=0�k_
w��391:�z
w��392
w��393:�I_:�D(By%)
w��409:�nJ
w��507:�R_:�D(R`%):�R_
w�ș&400dc,j%
w��:�
w���Ri(b%,I%):ȎLZ%�
w��0:ȎI%�
w��0:ma%=�
w��1
w��
w��1
w��:�
w�r��ai:�me%,JO%,Fe%,Ce%,Au%,gu%,J,G,B,P,ia%,vn%:ș&400d5,,qa%,Z%,M%:F$=$M%:��F$,10)=".(Regular)"F$=�F$,�(F$)-10)
w�0ș&60081,,F$,60*16,60*16,0,0�OJ%;B_%:�B_%�1�
wлWy$=F$:Du%=!(qa%+28+Z%!0*24+4):Du%+=28:Q`%=0:tr%=!(Du%+Q`%*24)�(1<<7):ȕtr%=0:Q`%+=1:tr%=!(Du%+Q`%*24)�(1<<7):�:Q`%+=1:BJ%=0:ȕBJ%<Q`%:Z%!4=BJ%:Z%!8=-1:ș&600d5,,qa%,Z%,M%�;B_%:L$=$M%
wњ�(�L$,"Medium")<>0��L$,"Medium.")=0)�(�L$,"Book")<>0��L$,"Book.")=0)�(�L$,"Standard")<>0��L$,"Standard.")=0)�(�L$,"Normal")<>0��L$,"Normal.")=0)�F$=L$
w�BJ%+=1:�:�F$=Wy$�
w�-Z%!4=0:Z%!8=-1:ș&400d5,,qa%,Z%,M%:F$=$M%
w�+�:��F$,10)=".(Regular)"F$=�F$,�(F$)-10)
w�K�:ș&60081,,F$,60*16,60*16,0,0�OJ%;B_%:�B_%�1��C("Optical",�F(OJ%+4)):�
w�
ȎJk%�
w��1:�Ru(F$,OJ%)
w�+�2:ș&60082,OJ%:�ky(F$):�py(i%):�Fy(i%)
w��:�
wڀ��Ru(F$,OJ%):�A(fy%,1,F$):�A(fy%,4,�F$,39)):�O%=0�255:fl%?O%=ie%?O%:�:ș&406c0:�O%=33�255:ș&406c4,(O%-33)/222*100:�O%<>127�
w�Tș&6008e,OJ%,O%,16�,me%,JO%,Fe%,Ce%;B_%:�(B_%�1)�Fe%-me%<=0�Ce%-JO%<=0�fl%?O%+=2
w�/�:�:�i_:ș&406c1:�Cy%>=0�F(fy%,6)��Z(fy%,6)
w��S(fy%)�J(fy%)��D(fy%)
w��G(fy%,18,0):�
w�1��Ll(b%,I%):�b%=1�I%=19I%=16��b%=1�I%=16I%=19
w�	ȎI%�
w�
�2:�kJ
w��8:�j(65,90):�J(fy%)
w��9:�j(97,122):�J(fy%)
w��10:�j(48,57):�J(fy%)
w�9�11:�j(33,47):�j(58,64):�j(91,96):�j(123,126):�J(fy%)
w��12:�j(127,191):�J(fy%)
w��7:�j(192,255):�J(fy%)
w��6:�Cy%>=0�
w��F(fy%,6):�ji:�T(Or%,y%,h%)
w��:�Z(fy%,6)
w��
w��17:�i_
w��19:�i(fy%,14,999,1)
w��16:�h(fy%,14,1,1)
w��13:�M(fy%)
w��20:Jk%=1:�T(qa%,y%,h%)
w�	:�eu
w��:�
w����i_:�Oo%:Oo%=�(�M(fy%,14)):ș&60081,,F$,14*16*Oo%/100,14*16,0,0�qA%;B_%:�B_%�1��X("Error from Optical","Insufficient font cache memory allocated. Increase size in task manager and then retry."):�
w�Z%!0=fy%:Z%!4=18:ș&400ce,,Z%:Z%!8=qA%*&1000000+(1<<6):Z%!12=&ff000000+(1<<6):ș&400cd,,Z%:ș&400d3,,Z%:ș&600d2,Z%!0,Z%!4,Z%!8,Z%!12,Z%!16,Z%!20:�
w���ji:�Zi:�
w�>��Zi:Z$="Fonts":�Sy%=0�Cy%:Z$+=","+A$(Sy%):�:�yy(Or%,Z$):�
w�(��Wa:py%=�P(0)-1:�A(fy%,4,A$(py%)):�
w����eu:Z%!0=fy%:ș&400e0,,Z%:I`%=Z%!4+4:V`%=Z%!8+356-8:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:�s%-I`%>31�V`%-v%>31�O%=30+�((s%-I`%-16)/48)*10+�((V`%-v%-28)/32)��
w�$�O%=127�O%<33�O%>255�(fl%?O%�2)�
w�	Ȏb%�
w��4:�fl%?O%=��Di%=��Di%=�
w��1:�fl%?O%�Di%=��Di%=�
w�
Di%=�
w��:�Di%�
w��fl%?O%�
xfl%?O%=0
x�:fl%?O%=1
x��:�W(3,7):Z%!0=fy%:Z%!4=0:Z%!8=-360:Z%!12=1200:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�W(3,7):ȓȐL%+28+((O%�10)-3)*3*16,X%-40-(O%�10)*32,30,-30:ș&400ca,,Z%�d%:�
x�:�
x*��j(ro%,oP%):�ur%,Fa%:�b%=4ur%=1�ur%=0
x*�Fa%=ro%�oP%:�(fl%?Fa%�2)=�fl%?Fa%=ur%
x�:�
x2��Gu:Gy%=X%-Z%!32:Ly%=X%-Z%!40:�Gy%>=0�Ly%>=0�
x�ș&400e6,2:ȓȐL%,X%-4,1200,-32:ȓȐL%,X%-4,22,-360:ș&400e6,7:_l%=L%+4:Rl%=X%-8:�q%=3�25:�_l%+32+(q%-3)*3*16,Rl%:�;q%:�:�q%=0�9:�_l%,Rl%-32-q%*32:�;q%:�:ș&400e6,8:D%=fl%:G%=_l%:H%=Rl%:�Rl:�W(3,7):�hi
x	�:�
x
Z��kJ:�jr%,Te%,Au%,gu%:�M(fy%):�A(g%,16,"No letter marked"):c$=�M(fy%,4):ae%=�:�Cy%>-1�
x.�Sy%=0�Cy%:�A$(Sy%)=c$ae%=�:i%=Sy%:Sy%=Cy%
x�
x
�:�ae%=��Ca
x��u:�B(gJ%,i%+1):�N(sJ%,"Defined characters in '"+A$(i%)+"'"):Oo%=�(�M(fy%,14)):ș&60081,,F$,(10+Qe%*25)*16*Oo%/100,(10+Qe%*25)*16,0,0�OJ%;B_%
x�B_%�1��X("Error from Optical","Insufficient font cache memory allocated. Increase size in task manager and then retry."):�
xQ�q:Z%!0=Nn%:ș&400cb,,Z%:�Py(Nn%,s%-(Z%!12-Z%!4)/2,v%+(Z%!16-Z%!8)/2):lo%=�:�
x���xa:lo%=�:�jr%,Te%,Au%,gu%,wp%,OO%,UB%,QJ%,Tu%:ș&40084,OJ%�,me%,JO%,Fe%,Ce%:ș&406c0:ș53,-1,5�,,Gu%:Gu%=1<<Gu%:OO%=0:UB%=0:�O%=33�126:ș&4008e,OJ%,O%,16�,JB%,HB%,dB%,rB%:OO%+=dB%-JB%:UB%+=rB%-HB%:�:OO%=OO%/94:UB%=UB%/94:zy%=�:Te%=0:�O%=33�255
x�fl%?O%=1Te%+=1
x)�:jr%=0:�O%=33�255:�fl%?O%=1�O%<>127�
x~ș&406c4,jr%/Te%*100:ș&4008e,OJ%,O%,16�,JB%,HB%,dB%,rB%:Au%=(dB%-JB%)/2:gu%=(rB%-HB%)/Gu%:K%=�A((Au%+2)*(gu%+2)+1024,qJ%)
x��K%=���C("Optical","There is not enough free memory available to learn the character. Need "+�(((Au%+2)*(gu%+2)+256)�1024)+"K."):K%=�A(1,qJ%):ș&40082,OJ%:zy%=�
x�zy%=��
xO!(A%(qJ%))=Z%(qJ%):!(A%(qJ%)+4)=0:!(A%(qJ%)+8)=16:ștJ%,C`%,A%(qJ%):�Gu%=2�
x,ștJ%,Wk%,A%(qJ%),"Learner",0,Au%,gu%,18
x-�:ștJ%,Wk%,A%(qJ%),"Learner",0,Au%,gu%,0
x��:ștJ%,FO%,A%(qJ%),"Learner"�,,fP%:ș&4008a,OJ%:ș&40092,0,0,1,0:ș46,60+256,A%(qJ%),"Learner",0�J,G,B,P:ș&40086,,�(O%),16,-JB%,-HB%:ș46,J,G,B,P:vJ%=2:�fl:�A(Nn%,1,�(O%)):�Sa:!J_=0:!T_=Au%-1:!`y=0:!Q_=gu%-1:K%=�A(Au%*gu%,J_%):K%=�A(Au%*gu%,`y%)
x��K%=���C("Optical","There is not enough free memory available to read the character. Need "+�((2*Au%*gu%)�1024)+"K."):K%=�A(1,J_%):zy%=�
x�zy%=��
x�ș46,24+256,A%(qJ%),"Learner"�,,c%:A%=c%!16+1:G%=A%(J_%):H%=c%+c%!32:�A_:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+ci%!(`y%*4):!AJ=Au%:!LJ=gu%:A%=1:B%=Au%-2:C%=0:D%=gu%-1:Tu%=!Y:!Y=1:�TJ:!Y=Tu%:QJ%=!(A%(u%)):K%=�A(12+QJ%*8,u%)
x��K%=���C("Optical","There is not enough free memory available to store this font definition. Need "+�((76+QJ%*8+QJ%*64)�1024)+"K."):zy%=�
x�K%=�A(QJ%*64,uu%):�K%=���C("Optical","There is not enough free memory available to store this font definition. Need "+�((76+QJ%*8+QJ%*64)�1024)+"K."):zy%=�
x �zy%=��
x!T?(A%(u%)+4+QJ%*8)=O%:?(A%(u%)+5+QJ%*8)=i%+128:Za%=(dB%-JB%)/OO%*39:�Za%>99Za%=99
x"�Za%<1Za%=1
x#0sa%=(rB%-JO%)/UB%*100*1.2+45:�sa%>255sa%=255
x$�sa%<0sa%=0
x%0va%=(HB%-JO%)/UB%*100*1.2+55:�va%>255va%=255
x&�va%<0va%=0
x'�?(A%(u%)+6+QJ%*8)=Za%:?(A%(u%)+7+QJ%*8)=sa%:?(A%(u%)+8+QJ%*8)=va%:nl%=A%(uu%)+QJ%*64:�XB%=0�63:nl%?XB%=iO%?XB%:�:!(A%(u%))+=1
x(�
x)�
x*�:jr%+=1
x+�:�zy%O%=255:�:�M(Nn%):�
x,�-113O%=255
x-z�:�A(g%,16,"No letter marked"):�M(Nn%):�J(sJ%):�J(N_%):�_:�p:�py(i%):�Fy(i%):�D(HJ%):ș&40082,OJ%:ș&406c4,100:xo%=�:�
x.���Sa:�vn%:Z%!0=Nn%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!0=Nn%:Z%!4=0:ș&400ce,,Z%:my%=L%+Z%!8+8:A_%=X%+Z%!12+8:n_%=(Z%!16-Z%!8-16)/2:cJ%=(Z%!20-Z%!12-16)/Gu%:�Au%>n_%�
x/AH=(1<<16)/n_%*Au%:n_%=(1<<16)/H*(1<<16):z%!0=n_%:z%!8=(1<<16)
x0+�:H=(1<<16)/n_%*Au%:z%!0=(1<<16):z%!8=H
x1�:�gu%>cJ%�
x2Bh=(1<<16)/cJ%*gu%:cJ%=(1<<16)/h*(1<<16):z%!4=cJ%:z%!12=(1<<16)
x3,�:h=(1<<16)/cJ%*gu%:z%!4=(1<<16):z%!12=h
x4*�:�I(A%(qJ%),"Learner",my%,A_%,0,z%):�
x5���fl:ș46,54+256,A%(qJ%),"Learner":ș46,Nl%,A%(qJ%),"Learner"�,,,Au%,gu%:ș46,45+256,A%(qJ%),"Learner",0:ș46,45+256,A%(qJ%),"Learner",Au%+1:ș46,31+256,A%(qJ%),"Learner",0:ș46,31+256,A%(qJ%),"Learner",gu%+1:ș46,Nl%,A%(qJ%),"Learner"�,,,Au%,gu%:�
x6c��Ca:�Cy%=KJ%-1��X("Message from Optical","You can only have a maximum of "+�(KJ%)+" fonts."):�
x7A�F(g%,6):�F(g%,20):�F(g%,21):�F(g%,11):�M(g%,16)=""�F(g%,12)
x8N�F(g%,18):�F(fy%,6):Cy%+=1:i%=Cy%:A$(i%)=c$:�A(g%,6,c$):�ky(c$):S%(i%)=�:�
x9��b_:�mu%�Ol%�Pl%�Zl%<>0�
x:�Z%!0=Y%:ș&400cb,,Z%:so%=Z%!28:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ș&400cf,,Z%:Vy%=Z%!0-L%:Hy%=X%-Z%!4:by%=Vy%:ty%=Hy%:__%=Y%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:ș&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0
x;[ș&400c9,,Z%�d%:ȕd%:�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,Z%�d%:�:mu%=�:�
x<���Pn:�ni%,ji%,_i%,qi%,UJ%,x_%:ș53,-1,4�,,UJ%:ș53,-1,5�,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:ni%=Vy%:ji%=Hy%-x_%*2:_i%=Z%!8-UJ%:qi%=Z%!12+x_%:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:ș&400c9,,M%�d%:L%=M%!4-M%!20:X%=M%!16-M%!24:�W(3,11):ȕd%
x=}ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,M%�d%:�:Z%!0=__%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:kn%=�S(k%):�kn%�Sn:�
x>�ș&406c0:ni%=ni%/(R%/Na%):_i%=(_i%-L%+2)/(R%/Na%):ji%=(ji%+4)/(V%/Ni%):qi%=(X%-qi%)/(V%/Ni%):ni%=ni%*100/U%:ji%=ji%*100/U%:_i%=_i%*100/U%:qi%=qi%*100/U%:�ni%>_i%Ȕni%,_i%
x?�ji%<qi%Ȕji%,qi%
x@�ni%<0ni%=0
xA�qi%<0qi%=0
xB!�_i%>(n%-1)*Na%_i%=(n%-1)*Na%
xC!�ji%>(t%-1)*Ni%ji%=(t%-1)*Ni%
xD�ni%=_i%�ji%=qi%ș&406c1:�
xE�z%!0=1:z%!4=1:z%!8=1:z%!12=1:ș46,60+256,A%(WJ%),M$,0�J,G,B,P:�24,ni%;(t%-1)*Ni%-ji%;_i%;(t%-1)*Ni%-qi%;:ș46,52+256,A%(`%),M$,0,0,0,z%,Hl%:ș46,J,G,B,P:�J(w_%):ș&406c1:�
xF���Ti(b%,I%):�Zy%,N%,zJ%,y%,h%,bP%,nP%,Sp%,Cp%,wl%,Gu%:�G(k%,-1,-1):ș53,-1,4�,,wl%:ș53,-1,5�,,Gu%:Gu%=1<<Gu%:wl%=1<<wl%:ȎD_%�
xG�1:�b%�5��zl:�
xH�mu%�Ol%�Zl%�
xI�-3Dl%=1�Dl%=0
xJ�Z%!0=k%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:Zy%=-1:zJ%=-1:�Ay%=-1�
xK
Zy%=-1
xL]�:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:A%=�(cy):�A%>=0�
xM4Zy%=A%�128:�Dl%=1�(A%�128)=��Zy%=-1:zJ%=�:A%=128
xN�A%�128�Dl%=1�Dl%=0
xOzJ%=A%�256
xP�:Zy%=-1:zJ%=�
xQ�
xR�:�Zy%=-1�Dl%=0�Ay%=bl%�7:�
xS�Zy%=-1�Dl%=1�W_%=bl%�7:�
xT�Zy%=-1ge%=�:�b_:�
xU�tu%=Zy%:ș&400cf,,Z%:y%=Z%!0:h%=Z%!4:__%=k%:Z%!0=__%:ș&400cb,,Z%:so%=Z%!28:bP%=Z%!4:Sp%=Z%!8:nP%=Z%!12:Cp%=Z%!16:�zJ%=9�zJ%=10�
xVty%=X%-h%:by%=y%-L%:ȎzJ%�
xWA�9:Vy%=Q%!(Zy%*16-8)*R%*U%/100-32:Hy%=Q%!(Zy%*16-4)*V%*U%/100
xXD�10:Vy%=Q%!(Zy%*16+16)*R%*U%/100+32:Hy%=Q%!(Zy%*16+20)*V%*U%/100
xY��:__%=Y%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:ș&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11):�Vy%+L%,X%-Hy%,L%+by%,X%-ty%:ș&400ca,,Z%�d%:�:Zl%=A%
xZ�:�Dl%=0Vl%=Q%�Vl%=f%
x[�zJ%>0�
x\ty%=X%-h%:by%=y%-L%:ȎzJ%�
x]A�1:Vy%=Vl%!(Zy%*16+8)*R%*U%/100:Hy%=Vl%!(Zy%*16+12)*V%*U%/100
x^?�3:Vy%=Vl%!(Zy%*16)*R%*U%/100:Hy%=Vl%!(Zy%*16+12)*V%*U%/100
x_>�5:Vy%=Vl%!(Zy%*16)*R%*U%/100:Hy%=Vl%!(Zy%*16+4)*V%*U%/100
x`@�7:Vy%=Vl%!(Zy%*16+8)*R%*U%/100:Hy%=Vl%!(Zy%*16+4)*V%*U%/100
xa��:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:ș&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,Z%�d%:�:mu%=�
xb
�:�zJ%=0�
xc�Vy%=Vl%!(Zy%*16)*R%*U%/100:Hy%=Vl%!(Zy%*16+4)*V%*U%/100:by%=Vl%!(Zy%*16+8)*R%*U%/100:ty%=Vl%!(Zy%*16+12)*V%*U%/100:�q:ze%=s%-Vy%-L%:we%=X%-v%-Hy%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:ș&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000
xdnZ%!12=100000:Z%!16=0:ș&400c9,,Z%�d%:ȕd%:�W(3,11):ȓVy%+L%,X%-Hy%,by%-Vy%,Hy%-ty%:ș&400ca,,Z%�d%:�:Ol%=�
xe�
xf�:ge%=�
xg�2:�Ay%=-1�W_%=-1�
xh%�b%�5��Sy:�mu:W_%=-1:Ay%=-1:�MJ:�
xi�Z%!0=k%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:A%=�(cy):�A%>=0�
xj"Zy%=A%�128:�A%�128�Dl%=1�Dl%=0
xkzJ%=A%�256
xl�:Zy%=-1:zJ%=�
xm�:�Zy%=-1�zJ%<>0�
xn�Y(""):_J%=�:�Dl%=0�
xo�`(Zy%):�Zy%<Ay%�`(Zy%+1)
xp
�Ay%>Zy%�
xq~�N%=Zy%�Ay%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+12)=Q%!(N%*16+28):�
xr�:Ay%-=1:�Zy%<=Ay%�`(Zy%)
xs�:�S_(Zy%):�W_%>Zy%�
xt~�N%=Zy%�W_%-1:f%!(N%*16)=f%!(N%*16+16):f%!(N%*16+8)=f%!(N%*16+24):f%!(N%*16+4)=f%!(N%*16+20):f%!(N%*16+12)=f%!(N%*16+28):�
xu�:W_%-=1
xv�
xw�3:�Pl%�
xx�b%�80�
xy
gP%=�:�di
xz�:�b%�5�
x{�ly(90)
x|�
x}�:�
x~{��Sn:�Oy%,dy%,Gy%,Ly%,rk%,ck%:Oy%=Vy%/R%*100/U%:Gy%=Hy%/V%*100/U%:dy%=by%/R%*100/U%:Ly%=ty%/V%*100/U%:�Oy%=dy%�Gy%=Ly%�
x�Uu%�w(k%)
x��Oy%>dy%ȔOy%,dy%
x��Gy%>Ly%ȔGy%,Ly%
x�!�(dy%-Oy%)*R%<12dy%=Oy%+12/R%
x�!�(Ly%-Gy%)*V%<12Ly%=Gy%+12/V%
x��Oy%<0Oy%=0
x��Gy%<0Gy%=0
x��dy%>n%-1dy%=n%-1
x��Ly%>t%-1Ly%=t%-1
x��Dl%=0�
x�/rk%=�K(5):ck%=�R(5):�dy%-Oy%<rk%dy%=Oy%+rk%
x��Ly%-Gy%<ck%Ly%=Gy%+ck%
x�!�dy%>n%-1dy%=n%-1:Oy%=dy%-rk%
x�!�Ly%>t%-1Ly%=t%-1:Gy%=Ly%-ck%
x��:Ȏge%�
x�
ɹ:ȎDl%�
x�\�0:Ay%+=1:Q%!(Ay%*16)=Oy%:Q%!(Ay%*16+8)=dy%:Q%!(Ay%*16+4)=Gy%:Q%!(Ay%*16+12)=Ly%:�`(Ay%)
x�]�1:W_%+=1:f%!(W_%*16)=Oy%:f%!(W_%*16+8)=dy%:f%!(W_%*16+4)=Gy%:f%!(W_%*16+12)=Ly%:�S_(W_%)
x��
x�ɣ:�Y(""):_J%=�:ȎDl%�
x� �0:�`(tu%):�tu%<Ay%�`(tu%+1)
x�dQ%!(tu%*16)=Oy%:Q%!(tu%*16+8)=dy%:Q%!(tu%*16+4)=Gy%:Q%!(tu%*16+12)=Ly%:�`(tu%):�tu%<Ay%�`(tu%+1)
x�_�1:�S_(tu%):f%!(tu%*16)=Oy%:f%!(tu%*16+8)=dy%:f%!(tu%*16+4)=Gy%:f%!(tu%*16+12)=Ly%:�S_(tu%)
x��
x��:�
x����Ma:�pu%,wA%:Z%!0=k%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:�q:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:A%=�(cy):�A%>=0�
x�#Zy%=A%�128:�A%�128�Zy%=-1:zJ%=�
x�zJ%=A%�256
x��:Zy%=-1:zJ%=�
x���:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:ș&400c9,,M%�d%:�W(3,11):ȕd%:�W(3,11):�Vy%+L%,X%-Hy%,by%+L%,X%-ty%:ș&400ca,,M%�d%:�:Z%!0=__%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Z%!28=so%:pu%=Zl%�256:wA%=Zl%�256:ȎwA%�
x��9:�Zy%<pu%-1�Zy%<>-1�7
x��Zy%<pu%-1�Zy%=-1�
x�X�Sy:mo%=Q%!(Zy%*16):Kk%=Q%!(Zy%*16+4):pO%=Q%!(Zy%*16+8):`O%=Q%!(Zy%*16+12):�Zy%<Ay%�
x�~�N%=Zy%�Ay%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+12)=Q%!(N%*16+28):�
x���:�N%=Ay%�pu%+1�-1:Q%!(N%*16)=Q%!(N%*16-16):Q%!(N%*16+4)=Q%!(N%*16-12):Q%!(N%*16+8)=Q%!(N%*16-8):Q%!(N%*16+12)=Q%!(N%*16-4):�:Q%!(pu%*16)=mo%:Q%!(pu%*16+4)=Kk%:Q%!(pu%*16+8)=pO%:Q%!(pu%*16+12)=`O%:�Sy
x��10:�Zy%>pu%�7
x��Zy%>=pu%�Zy%=-1�
x�_�Sy:mo%=Q%!(pu%*16+16):Kk%=Q%!(pu%*16+20):pO%=Q%!(pu%*16+24):`O%=Q%!(pu%*16+28):�pu%+1<Ay%�
x���N%=pu%+1�Ay%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+12)=Q%!(N%*16+28):�
x���:�N%=Ay%�Zy%+1�-1:Q%!(N%*16)=Q%!(N%*16-16):Q%!(N%*16+4)=Q%!(N%*16-12):Q%!(N%*16+8)=Q%!(N%*16-8):Q%!(N%*16+12)=Q%!(N%*16-4):�:Q%!(Zy%*16+16)=mo%:Q%!(Zy%*16+20)=Kk%:Q%!(Zy%*16+24)=pO%:Q%!(Zy%*16+28)=`O%:�Sy
x��:�
x�"��bl(kJ%):ș&40743,kJ%,,,0,0:�
x�+��W(D`%,kJ%):�m_%:ș53,�,3�,,m_%:Ȏm_%�
x��63,255:ȎkJ%�
x��7:kJ%=253
x��8:kJ%=111
x��10:kJ%=207
x��11:kJ%=243
x��:�D`%,kJ%�4Ȝ(kJ%�4)*64
x��65535,-1:ȎkJ%�
x��7:�D`%,222,222,222
x��8:�D`%,255,188,102
x��10:�D`%,255,51,255
x��11:�D`%,34,255,255
x��
x�:ș&400e6,kJ%+D`%*16
x��:�
x�1��ui(b%,I%):�z%:�b%=1�I%=2I%=3��b%=1�I%=3I%=2
x�	ȎI%�
x�*�2:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
x��i(Zoom_Window%,5,999,1)
x�*�3:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
x��h(Zoom_Window%,5,1,1)
x�*�1:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
x��A(Zoom_Window%,5,"50"):�Cy
x�*�8:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
x� �A(Zoom_Window%,5,"100"):�Cy
x�+�11:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
x��A(Zoom_Window%,5,"25"):�Cy
x�*�7:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
x��S(k%)Z%!0=k%
x��S(Q_%)Z%!0=Q_%
x��S(H_%)Z%!0=H_%
x�Hș&400cb,,Z%:ul%=Z%!12-Z%!4:jl%=Z%!16-Z%!8:�jl%/ul%>(t%*V%)/(n%*R%)�
x�z%=ul%/(n%*R%)*100
x��:z%=jl%/(t%*V%)*100
x��:�z%<1z%=1
x��z%>999z%=999
x� �A(Zoom_Window%,5,�(z%)):�Cy
x�*�6:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
xϓș53,-1,11�,,sy%:ș53,-1,12�,,ey%:ș53,-1,4�,,UJ%:ș53,-1,5�,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:ey%-=84/x_%:�(ey%*x_%-88)/(sy%*UJ%-46)>(t%*R%)/(n%*V%)�
x�z%=(sy%*UJ%-46)/(n%*R%)*100
x�!�:z%=(ey%*x_%-88)/(t%*V%)*100
x��:�z%<1z%=1
x��z%>999z%=999
x� �A(Zoom_Window%,5,�(z%)):�Cy
x�*�9:yJ%=�:�A(Zoom_Window%,5,�(Qi%)):�Cy
x��10:�Cy
x��12:�M(Zoom_Window%)
x��:�
x�&��Cy:�yJ%Qi%=�(�M(Zoom_Window%,5))
x�2�(�M(Zoom_Window%,5))<1�A(Zoom_Window%,5,"1")
x�!yJ%=�:r`%=�:�vJ:r`%=�:�b%<>1�
x��M(Zoom_Window%):�b
x��:�
x���hl(I%,j%):�j%=13�
x�-�S(Y%,10,1):�yJ%Qi%=�(�M(Zoom_Window%,5))
x�2�(�M(Zoom_Window%,5))<1�A(Zoom_Window%,5,"1")
x�9yJ%=�:r`%=�:�vJ:r`%=�:�M(Zoom_Window%):�b:�S(Y%,10,0)
x��:ș&400dc,j%
x��:�
x�_��vJ:�ul%,jl%:U%=�(�M(Zoom_Window%,5)):ul%=U%*(n%*R%)/100:jl%=U%*(t%*V%)/100:i`%=�:�S(k%)�
x�G�L(k%,ul%,jl%):�N(k%,"Process '"+X$+"' ("+M$+")"):�J(k%):�Uu%�w(k%)
x��:�S(Q_%)�
x�f�L(Q_%,ul%,jl%):�L(w_%,ul%,jl%):�N(Q_%,"Original image"):�N(w_%,"Processed image"):�J(Q_%):�J(w_%)
x��:�S(H_%)�
x��L(H_%,ul%+400,jl%+400):�N(H_%,"Merge images"):�J(H_%):ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=-ku%*R%/2*U%/100:Ii%=-nJ%*V%/2*U%/100:xu%=(s%-L%+Ri%-R%):su%=t%*V%*U%/100-(X%-v%-Ii%):mi%=xu%:ki%=su%
x�
�:i`%=�:�
x�ݤJ(q%)=U%*q%/100
x���Ha:�U%=100�
x�=z%!0=z%!0*U%:z%!8=z%!8*100:z%!4=z%!4*U%:z%!12=z%!12*100:�
x�+��Uy:z%!0=1:z%!4=1:z%!8=1:z%!12=1:�Ha:�
x���mi(b%,I%):�b%>7�
x�%�b%=1�I%=28I%=21��b%=1�I%=21I%=28
x�%�b%=1�I%=24I%=29��b%=1�I%=29I%=24
x�	ȎI%�
x��24:�i(By%,22,99,1):�Ky
x��29:�h(By%,22,1,1):�Ky
x��21:�i(By%,23,999,1):�Ky
x��28:�h(By%,23,1,1):�Ky
x��3
x��45:ql%=�Z(By%,I%)
x��9:ti%=�Z(By%,I%)
x��10:ln%=�Z(By%,I%)
x�Q�11:Qu%=�Z(By%,I%):�P(By%,60,�(Qu%)):�P(By%,61,�(Qu%)):Il%=Qu%:�S(By%,60,Il%)
x��60:Il%=�Z(By%,I%)
x��6:wn%=�Z(By%,I%)
x��35:Kn%=�Z(By%,I%)
x��4:Li%=�Z(By%,I%)
y�5:hi%=�Z(By%,I%)
y�12:Ba%=�Z(By%,I%)
y�59:!n=�Z(By%,I%)
y�63:Rn%=�Z(By%,I%)
y7�37:Z%!0=By%:Z%!4=I%:ș&400ce,,Z%:�(Z%!24)�(1<<21)�
y!j=o`%:�F(By%,38)
y�:!j=0:�Z(By%,38)
y�
y�32:ui%=�Z(By%,I%)
y	�34:�T(en%,y%,h%)
y
�38:�T(cB%,y%,h%)
y�15:�bi:�J(jJ%):�(b%�1)=��
y�M(By%):�M(IJ%)
y
�
y%�17:�Gy(gy%):�J(e%):�Da:�S(W%)�x
y�(b%�1)=��
y�M(By%):�M(IJ%)
y�
y!�18:�Gy(gy%):�J(e%):�S(W%)�x
y�I_:�(b%�1)=��
y�M(By%):�M(IJ%)
y�
yV�31:Fl%=-1:DO%=-1:�j_:ș&400d7,jJ%,Z%:�P(IJ%,0,�):�q:�Py(IJ%,s%-128,v%+64):�D(jJ%)
y)�41:�P(x%,22,�):�Zy(gy%):�T(x%,y%,h%)
y�46:�Ia
y�52:�fu
y�50:tn%=�Z(By%,I%)
y�51:wa%=�Z(By%,I%)
y�49:Xn%=�Z(By%,I%)
y�58:yl%=�Z(By%,I%)
y�64:!y=�Z(By%,I%)
y�:�
y ��Ky:�Z%(`%)<=10000��
y!7!B_=�(�M(By%,22))-1:!ny=�(�M(By%,22))-1:�!B_<0!B_=0
y"�!ny<0!ny=0
y#;!By=�K(�(�M(By%,23))):!Ry=�R(�(�M(By%,23))):�!By<1!By=1
y$�!Ry<1!Ry=1
y%!Sa=!By:!ea=!Ry:!ll=!By:�
y&t��Wy:ry%=�:�z:ry%=�:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:!mJ=0:ș&406c0:wo%=�:Je%=�:_%=0:aa%=0:qO%=a%:�a_%�m%=Qy%:Xu%=t_%
y'!�cl%=��Qy%=0:m%=0:Xu%=0:t_%=0
y(�ou%=Qy%:�J(e%):BO%=fJ%:xB%=ru%:nB%=vi%:XO%=Ky%:zO%=JJ%:TO%=r_%:�M(w_%):ș46,54+256,A%(`%),M$:ș46,Nl%,A%(`%),M$�,,,n%,t%:�a_%=��
y)�ș46,45+256,A%(`%),M$,0:ș46,45+256,A%(`%),M$,0:ș46,45+256,A%(`%),M$,n%+2:ș46,45+256,A%(`%),M$,n%+2:ș46,31+256,A%(`%),M$,0:ș46,31+256,A%(`%),M$,0:ș46,31+256,A%(`%),M$,t%+2:ș46,31+256,A%(`%),M$,t%+2:�N%=0�Ay%:Q%!(N%*16)+=2:Q%!(N%*16+4)+=2
y*&Q%!(N%*16+8)+=2:Q%!(N%*16+12)+=2:�
y+r�:ș46,Nl%,A%(`%),M$�,,,n%,t%:ș46,24+256,A%(`%),M$�,,c%:Uy%=c%!16:yy%=c%!20:Hu%=c%-A%(`%)+c%!32:a_%=�:�Ay%<0�
y,)Ay%=0:Q%!0=0:Q%!4=0:Q%!8=n%:Q%!12=yy%
y->�:!_a=Ur%:�Ky:!C_=0:!W=0:Gi%=0:!jJ=-1:!F_=0:!aJ=0:�Cy%>=0�
y.�Sy%=0�Cy%:�S%(Sy%)�!aJ+=1
y/�
y0D�:�M(Q_%):�M(iy%):�M(fy%):K%=�A(1,Nu%):A%=My%:B%=An%*2:�Xi:�Li%�
y1D!k=0:io%!0=Gi%:!uy=a%:!D=Q%!0:!I=Q%!4:!L=Q%!8:!e=Q%!12:�!D<0!D=0
y2
�!I<0!I=0
y3�!L>n%�!L=n%
y4�!e>yy%�!e=yy%
y5VFu%=0:!dy=1:!K_=!I:!oy=100*(Fu%/(Ay%+1)):!vy=100/(Ay%+1)*(1/yy%)*(1<<16):Wy%=1:�`J
y6�:�Li%�
y7x!dy=0:�Fu%=0�Ay%:io%!(Fu%*4)=Gi%:!uy=a%:!D=Q%!(Fu%*16):!I=Q%!(Fu%*16+4):!L=Q%!(Fu%*16+8):!e=Q%!(Fu%*16+12):�!D<0!D=0
y8
�!I<0!I=0
y9�!L>n%�!L=n%
y:�!e>yy%�!e=yy%
y;`�bu:�!i�aa%=0:m%=Qy%:Xu%=t_%-1:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:vi%=nB%:Ky%=XO%:P%=-1:Fu%=Ay%
y<�!C_+=_%:!F_+=!W:Ky%+=!W*4:fJ%+=!W*4:ru%+=!W*4:JJ%+=!W*4:r_%+=!W*4:!z=JJ%:!_=JJ%:!O=r_%:!x=r_%:vi%+=!W:aa%+=_%:a%+=_%*8:�:K%=�A(1,pn%):a%=qO%:_%=aa%:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:vi%=nB%:Ky%=XO%:e_%=Gi%:!h_=-1:!XJ=-1
y=!D_=Ky%:!Z_=e_%:�!i=0�LJ
y>ojy%=�:�vy:�J_:�Y_(Qy%,m%):�G(e%,-1,-1):�t:a_%=�:P%=-1:xy%=-1:uJ%=0:bJ%=0:Py%=0:i%=0:Sy%=0:�:�S%(Sy%)�i%=Sy%
y?>Sy%+=1:�S%(Sy%-1)�Sy%>Cy%:�A(N_%,3,A$(i%)):ș&406c1:�!i=��
y@ �Il%Yn%=�:�Z_��Qu%�Yn%=�:�Z_
yA�Ba%�F_
yB	�hi%�
yC	�yl%�
yDKu%=�S(iy%):�Iy
yE�:�l
yF�
yG�
yH�:�
yI���bu:!k=0:!oy=50*(Fu%/(Ay%+1)):!vy=50/(Ay%+1)*(1/yy%)*(1<<16):!CJ=wa%:!S_=f%:!Ny=W_%:!yy=W_%:B%=Go%:C%=Uy%+1:D%=A%(`%)+Hu%:G%=Sa%:�DJ:W_%=!Ny:�!i�
yJ�_%=!k:K%=�A(8*_%,pn%):�K%=��C("Optical","There is not enough free memory available to finish reading this image. Need "+�((8*_%)�1024)+"K."):!i=�:�
yK
�uJ:�UJ:�
yL:��Da:�AJ%,ZJ%,So%,oO%,gk%:�Z(SaveText_Window%,4)ai%=0
yM �Z(SaveText_Window%,5)ai%=1
yN �Z(SaveText_Window%,6)ai%=2
yO �Z(SaveText_Window%,7)ai%=3
yP�So%=�Z(SaveText_Window%,10):oO%=�Z(SaveText_Window%,11):gk%=�Z(SaveText_Window%,12):�ml:F%=�("<OptclPro$Dir>.UserDeflts"):�#F%,hi%,ql%,ti%,ln%,Ba%,Yi%,tn%:�#F%,wn%,ui%,Kn%,Li%,Xn%,yl%:�#F%,�(�M(By%,22)),�(�M(By%,23)):�#F%,dl%,Qu%,Il%,wa%,!n,Rn%,!y
yQ��#F%,ai%,So%,oO%,gk%,cl%,vy%,vl%:�#F%,F,C,AJ%,ZJ%:�#F%,Vn%,do%,Fy%:�#F%,Ak%:�wk%=0�35:�#F%,gy%?wk%:�:�#F%,Fy%,h$,j$:�O%=0�255:�#F%,ie%?O%:�:�#F%:�Uu:�
yR���An:�Da,ou,AJ%,ZJ%,So%,oO%,gk%:F%=�("<OptclPro$Dir>.UserDeflts"):�#F%,hi%,ql%,ti%,ln%,Ba%,Yi%,tn%:�#F%,wn%,ui%,Kn%,Li%,Xn%,yl%:�#F%,Da,ou:�#F%,dl%,Qu%,Il%,wa%,!n,Rn%,!y:�#F%,ai%,So%,oO%,gk%,cl%,vy%,vl%:�#F%,F,C,AJ%,ZJ%:�#F%,Vn%,do%,Fy%:�#F%,Ak%
yS��wk%=0�35:gy%?wk%=�#F%:�:�#F%,Fy%,h$,j$:�O%=0�255:ie%?O%=�#F%:�:�#F%:�Ii(AJ%,ZJ%):�Q(hi%,5):�Q(ql%,45):�A(eJ%,5,�(F)):�A(eJ%,9,�(C)):�Q(ti%,9):�Q(ln%,10):�Q(Ba%,12):�B(en%,Yi%):�Q(tn%,50):�Q(wn%,6):�Q(ui%,32):�Q(Kn%,35):�Q(Li%,4):�Q(Xn%,49)
yT��Q(yl%,58):�A(By%,22,�(Da)):�A(By%,23,�(ou)):�O_:�r_:�Q(Qu%,11):�Q(Il%,60):�P(By%,60,�(Qu%)):�P(By%,61,�(Qu%)):�Q(wa%,51):�Q(!n,59):�Q(Rn%,63):�Q(!y,64):�S(SaveText_Window%,4+ai%,�):�ai%=3�o(SaveText_Window%,3,"Sfile_dfe")
yU,�ai%=1�o(SaveText_Window%,3,"Sfile_fe4")
yV�ai%=0�ai%=3�
yWK�Z(SaveText_Window%,10):�Z(SaveText_Window%,11):�Z(SaveText_Window%,12)
yXM�:�F(SaveText_Window%,10):�F(SaveText_Window%,11):�F(SaveText_Window%,12)
yY�:�S(SaveText_Window%,10,So%):�S(SaveText_Window%,11,oO%):�S(SaveText_Window%,12,gk%):�cl%�K(File_Menu%,3)��V(File_Menu%,3)
yZ/�vl%�K(Display_Menu%,2)��V(Display_Menu%,2)
y[/�vy%�V(Display_Menu%,1)��K(Display_Menu%,1)
y\-�S(w%,7,Vn%):�S(w%,10,do%):�Zy(gy%):�pu:�
y]���I_:M%(0)=hi%:M%(1)=ql%:M%(2)=ti%:M%(3)=ln%:M%(4)=Ba%:M%(5)=Yi%:M%(6)=tn%:M%(7)=wn%:M%(8)=ui%:M%(9)=Kn%:M%(10)=Li%:M%(11)=Xn%:M%(12)=�(�M(By%,22)):M%(13)=�(�M(By%,23)):M%(14)=dl%:M%(15)=Qu%:M%(16)=wa%:M%(17)=!n:M%(18)=F:M%(19)=C:M%(20)=fn%
y^iM%(21)=Il%:M%(22)=Rn%:M%(23)=yl%:M%(24)=!y:D%()=G%():V%()=P%():C$()=Z$():P$()=Z$():SA%=g_%:�Gy(YZ%):�
y_���bi:hi%=M%(0):ql%=M%(1):ti%=M%(2):ln%=M%(3):Ba%=M%(4):�B(en%,Yi%):Yi%=M%(5):�B(en%,Yi%):tn%=M%(6):wn%=M%(7):ui%=M%(8):Kn%=M%(9):Li%=M%(10):Xn%=M%(11):�A(By%,22,�(M%(12))):�A(By%,23,�(M%(13))):dl%=M%(14):Qu%=M%(15):wa%=M%(16):!n=M%(17):F=M%(18)
y`�C=M%(19):fn%=M%(20):Il%=M%(21):Rn%=M%(22):yl%=M%(23):!y=M%(24):�Q(hi%,5):�Q(ql%,45):�Q(ti%,9):�Q(ln%,10):�Q(Ba%,12):�Q(tn%,50):�Q(wn%,6):�Q(ui%,32):�Q(Kn%,35):�Q(Li%,4):�Q(Xn%,49):�Q(yl%,58):�Q(Qu%,11):�Q(Il%,60):�P(By%,60,�(Qu%)):�P(By%,61,�(Qu%))
ya��Q(wa%,51):�Q(!n,59):�Q(Rn%,63):�Q(!y,64):�A(eJ%,5,�(F)):�A(eJ%,9,�(C)):�S(IJ%,6,fn%):G%()=D%():P%()=V%():Z$()=C$():M$()=C$():g_%=SA%:�Zy(YZ%):�O_:�r_:�
yb ��Q(DJ%,I%):�S(By%,I%,DJ%):�
yc���H:�y:_%=-1:a_%=�:i_%=�:P%=-1:K%=�A(1,`%):K%=�A(1,WJ%):K%=�A(1,M_%):K%=�A(1,Nu%):K%=�A(1,qJ%):K%=�A(1,J_%):K%=�A(1,`y%):K%=�A(1,Ny%):K%=�A(1,ju%):Qy%=m%:�M(w_%):�M(Q_%):�M(k%):�M(`_%):�M(H_%):�M(iy%):�J(e%):ș&400d3,,Z%:�Z%!0=e%��G(e%,-1,-1)
yd�
yeD��La(b%,I%):�Tu%:�G(k%,-1,-1):�(I%=1�I%=2�I%=3)�b%=1�S(`_%,I%,�)
yf	ȎI%�
yg�0:�M(k%):�M(`_%):�Wy
yh/�1:�D_%<>1�B(f_%,D_%+3):D_%=1:�B(f_%,D_%+3)
yi/�2:�D_%<>2�B(f_%,D_%+3):D_%=2:�B(f_%,D_%+3)
yj/�3:�D_%<>3�B(f_%,D_%+3):D_%=3:�B(f_%,D_%+3)
yk
�4:�T_
yl
�5:�B_(�)
ym�6:�T(Zoom_Window%,y%,h%)
yn�7:Tu%=i_%:�H:i_%=Tu%:�l
yo�:�
yp��yJ:�ui%=�Ay%=-1:W_%=-1
yq	�my:�
yr��my:�ql%�
ys8�D_%<>2�B(f_%,D_%+3):D_%=2:�B(f_%,D_%+3):�S(`_%,2,1)
yt:�:�D_%<>1�B(f_%,D_%+3):D_%=1:�B(f_%,D_%+3):�S(`_%,1,1)
yu9�:�ca:�M(w_%):�M(Q_%):�M(iy%):�Fi%�F(`_%,7)��Z(`_%,7)
yv)�L(k%,�J(n%*R%),�J(t%*V%)):�Uu%�w(k%)
yw5�N(k%,"Process '"+X$+"' ("+M$+")"):�G(k%,-1,-1):�
yx2��AJ:�sy%,ey%,R%,V%,U_%,I_%:�S(iJ%)�Z%!28=iJ%
yy#kn%=�S(Y%):�Y%=V_%�Y%=jJ%�kn%=�
yzwș53,-1,11�,,sy%:ș53,-1,12�,,ey%:ș53,-1,4�,,R%:ș53,-1,5�,,V%:R%=1<<R%:V%=1<<V%:sy%=sy%*R%:ey%=ey%*V%:�kn%=��i`%�
y{	ȎY%�
y|Xɣ:�G_(Z%+4):I_%=Z%!16-Z%!8+44:�_y(Z%+4):Z%!8+=80:Z%!16+=80:Z%!8-=I_%/2:Z%!16-=I_%/2
y}Z�sJ%:�G_(Z%+4):I_%=Z%!16-Z%!8+44:�_y(Z%+4):Z%!8+=80:Z%!16+=80:Z%!8+=I_%/2:Z%!16+=I_%/2
y~b�iy%,w%,k%,N_%,H_%,fy%,By%,g%,W%,kl%,IJ%,iJ%,e%,u_%,HJ%:�G_(Z%+4):�_y(Z%+4):Z%!8+=80:Z%!16+=80
y|�Q_%:�_y(Z%+4):Z%!8+=80:Z%!16+=80:U_%=Z%!12-Z%!4+46:�U_%>sy%/2Z%!4=0:Z%!12=sy%/2-46�Z%!4=(sy%/2-U_%)/2:Z%!12=Z%!4+U_%-46
y���w_%:�_y(Z%+4):Z%!8+=80:Z%!16+=80:U_%=Z%!12-Z%!4+46:�U_%>sy%/2Z%!4=sy%/2:Z%!12=sy%-46�Z%!4=sy%/2+(sy%/2-U_%)/2:Z%!12=Z%!4+U_%-46
y�k�`_%:U_%=Z%!12-Z%!4:I_%=Z%!16-Z%!8:!M%=k%:ș&400cb,,M%:Z%!4=M%!4:Z%!8=M%!16-I_%:Z%!12=M%!12:Z%!16=M%!16
y�\�Zoom_Window%:ș&400cf,,M%:U_%=Z%!12-Z%!4:�M%!0>sy%-U_%-64�Z%!4=M%!0-64-U_%�Z%!4=M%!0+64
y�BZ%!12=Z%!4+U_%:I_%=Z%!16-Z%!8:Z%!8=M%!4-I_%/2:Z%!16=M%!4+I_%/2
y�m�V_%:M%!0=w%:ș&400cb,,M%:Z%!12=M%!4+eB%+Z%!12-Z%!4:Z%!4=M%!4+eB%:Z%!16=M%!8+lB%+Z%!16-Z%!8:Z%!8=M%!8+lB%
y�n�jJ%:M%!0=IJ%:ș&400cb,,M%:Z%!12=M%!4+MO%+Z%!12-Z%!4:Z%!4=M%!4+MO%:Z%!16=M%!8+iB%+Z%!16-Z%!8:Z%!8=M%!8+iB%
y��
y��:�Y%=H_%��D_
y��
y���li:�Tu%:Ȏ�P(0)�
y��1:�M(k%):�M(`_%):�Wy
y�
�2:�B_(�)
y�'�3:�q:�Py(Zoom_Window%,s%-64,v%+64)
y��4:�D_%<>1�
y�1�B(f_%,D_%+3):D_%=1:�B(f_%,D_%+3):�S(`_%,1,1)
y��
y��5:�D_%<>2�
y�1�B(f_%,D_%+3):D_%=2:�B(f_%,D_%+3):�S(`_%,2,1)
y��
y��6:�D_%<>3�
y�1�B(f_%,D_%+3):D_%=3:�B(f_%,D_%+3):�S(`_%,3,1)
y��
y�
�7:�T_
y��8:Tu%=i_%:�H:i_%=Tu%:�l
y�/�9:�B(f_%,9):�Uu%�M(`_%):Uu%=��Uu%=�:�w(k%)
y��Au(`_%)
y��:�
y�gݤG(kJ%):�Zi%,Ua%,zB%:Zi%=(kJ%�&ff000000)>>24:Ua%=(kJ%�&ff0000)>>16:zB%=(kJ%�65280)>>8:=Zi%+Ua%+zB%
y��ݤN(kJ%):�Zi%,Ua%,zB%:Zi%=255-((kJ%�&ff000000)>>24):Ua%=255-((kJ%�&ff0000)>>16):zB%=255-((kJ%�65280)>>8):=(Zi%<<24)+(Ua%<<16)+(zB%<<8)
y����`(N%):Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�W(3,10)
y��ȓL%+Q%!(N%*16)*R%*U%/100,X%-Q%!(N%*16+4)*V%*U%/100,(Q%!(N%*16+8)-Q%!(N%*16))*R%*U%/100,-(Q%!(N%*16+12)-Q%!(N%*16+4))*V%*U%/100:�W(3,8):ȓL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
y��ȓL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:ȓL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:ȓL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:�N%>0�Zl%=��
y���W(3,11):�L%+Q%!(N%*16-8)*R%*U%/100-32,X%-Q%!(N%*16-4)*V%*U%/100,L%+Q%!(N%*16)*R%*U%/100+32,X%-Q%!(N%*16+4)*V%*U%/100:ȓȐL%+Q%!(N%*16-8)*R%*U%/100-8-32,X%-Q%!(N%*16-4)*V%*U%/100-8,16,16
y�FȓȐL%+Q%!(N%*16)*R%*U%/100-8+32,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
y��:ș&400ca,,Z%�d%:�:�
y����S_(N%):Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�W(3,11)
y��ȓL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,(f%!(N%*16+8)-f%!(N%*16))*R%*U%/100,-(f%!(N%*16+12)-f%!(N%*16+4))*V%*U%/100:ȓL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16
y��ȓL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16:ȓL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16:ȓL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16
y��L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:�L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:ș&400ca,,Z%�d%:�:�
y�&��MJ:�Zy%,zJ%:�mu%�Ol%�Pl%�Zl%<>0�
y��Z%!0=k%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:�s%<Z%!4�s%>Z%!12�v%<Z%!8�v%>Z%!16�Y(""):_J%=�:�
y�"�D_%=3�Y("ptr_rotate"):_J%=4:�
y��ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:A%=100*Z_%/U%:B%=100*uy%/U%:C%=8/R%*100/U%:D%=8/V%*100/U%:E%=Q%:F%=Ay%:!Fi=f%:!Pl=W_%:A%=�(cy):�A%>=0�
y�Zy%=A%�128:zJ%=A%�256
y��:Zy%=-1:zJ%=�
y�"�:�-3�(A%�128)=0�Zy%=-1:zJ%=�
y��Zy%=-1�_J%=��
y��Zy%=-1�_J%�Y(""):_J%=�:�
y�#�D_%=2�_J%�zJ%<>0�Y(""):_J%=�:�
y�(�_J%=��(_J%=1�zJ%<>0)�(_J%=2�zJ%=0)�
y�
ȎD_%�
y�9�1:�zJ%=0��Y("ptr_move"):_J%=1��Y("ptr_adjust"):_J%=2
y�$�2:�zJ%=0�_J%=3:�Y("ptr_delete")
y��
y��:�
y����v_:�au%,_y$:!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!f_=Pu%:!r_=My%:!sy=An%:!Zy=fJ%:!U_=vi%:!Fy=a%:!p=Ky%:k_%+=_%-!U:an%+=_%-!U:!d+=_%-!U:!U=_%:!M=_r%:B%=k_%:F%=Bu%:G%=SJ%:H%=a%:ș&406c0:�c_:ș&406c1
y�l�!sy=0�X("Optical","Not all of the text could be handled, possibly due to a bad quality scanned image.")
y�)k_%=!RJ:_r%=!M:_%=!U:�!M<>nr%�!M<e_%�
y�J�N(e%,"OCRing image - Reading line ("+�(!M+1)+"/"+�(e_%)+") *"):nr%=!M
y�0�:�P%<0�ou%>Qy%�jy%=��Dy%=��P%=0:F_%=�:xO%=�
y� �!R=255�(!R=254�Qu%=�)�!R=0�
y�a_%=�:�Qu%<>0�Il%<>0�Iy%=�
y�=�vy:�Y_(Qy%,m%):�Il%�Wy%=0:Yn%=�:�Z_��Qu%�Wy%=0:Yn%=�:�Z_
y�`�(Il%�Qu%)�Fy%=0�Wy%=2:Il%=�:Qu%=�:Iy%=�:�P(By%,60,�):�P(By%,61,�):�S(By%,60,�):�S(By%,11,�)
y�
�Iy%=��__
y��:�(!R�240)=240�!R=1
y�	�Iy%�
y��!R<>0�
y�	�l_:�
y�/��__:!A=0:Iy%=�:�Ba%ȔQy%,ou%:�F_:ȔQy%,ou%
y�(ou%=m%:Ln%=_%:�n:�gy%?Vu%<>0�J(e%):�
y��vy%=��!a-=L_%
y��gy%?hO%<>0�gy%?sB%<>0�
y��vy%�!a-=36�!a-=L_%
y�&�:ș&400d1,e%,0,-1<<30,1<<30,-!a:�
y�A��l_:�c:Wy%=0:pi%=�:�t:jy%=�:�J_:i%=0:Sy%=0:�:�S%(Sy%)�i%=Sy%
y�4Sy%+=1:�S%(Sy%-1)�Sy%>Cy%:�A(N_%,3,A$(i%)):�hi%�
y�	�yl%�
y�Ku%=�S(iy%):�Iy
y��:�l
y��
y��:�S`%�gy:�Xy
y��
y�"��Hy:�J(e%):�c:pi%=�:�t:�!A�ni
y��Wy%=0�
y��Wy%=2�
y�Tjy%=�:�vy:�J_:�Y_(Qy%,m%):�t:a_%=�:P%=0:F_%=�:xy%=0:i%=0:Sy%=0:�:�S%(Sy%)�i%=Sy%
y�5Sy%+=1:�S%(Sy%-1)�Sy%>Cy%:�A(N_%,3,A$(i%)):�O(P%)
yص�:aa%=0:m%=Qy%:Xu%=t_%-1:a%=qO%:_%=aa%:Qy%=Qy%:t_%=t_%:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:vi%=nB%:Ky%=XO%:P%=-1:jy%=�:�By:�J_:�t:a_%=�:C_%=A%(qy%):wo%=�
y��:Wy%=0:!A=0:Iy%=�:�
y�I��q_:�kn%:B%=Go%:C%=Uy%+1:D%=A%(`%)+Hu%:G%=Sa%:�DJ:W_%=!Ny:�-hr%>25�
y�I�!W_<>cr%�N(e%,"OCRing image - Finding text ("+�(!W_)+"%) *"):cr%=!W_
y�	hr%=�
y�
�:�!dy=1�
yޟ_%=!k:ș&406c0:K%=�A(8*_%,pn%):�K%=��C("Optical","There is not enough free memory available to finish reading this image. Need "+�((8*_%)�1024)+"K."):�Hy:�
yߝ�uJ:�UJ:ș&406c1:!C_+=_%:!F_+=!W:Ky%+=!W*4:fJ%+=!W*4:ru%+=!W*4:JJ%+=!W*4:r_%+=!W*4:!z=JJ%:!_=JJ%:!O=r_%:!x=r_%:vi%+=!W:aa%+=_%:a%+=_%*8:Fu%+=1:�Fu%<=Ay%�
y�~!S_=f%:!Ny=W_%:!yy=W_%:io%!(Fu%*4)=Gi%:!uy=a%:!D=Q%!(Fu%*16):!I=Q%!(Fu%*16+4):!L=Q%!(Fu%*16+8):!e=Q%!(Fu%*16+12):�!D<0!D=0
y�
�!I<0!I=0
y��!L>n%�!L=n%
y��!e>yy%�!e=yy%
y�K!k=0:!dy=1:!K_=!I:!oy=100*(Fu%/(Ay%+1)):!vy=100/(Ay%+1)*(1/yy%)*(1<<16)
y��:�Fu%<=Ay%�
y�K%=�A(1,pn%):a%=qO%:_%=aa%:fJ%=BO%:ru%=xB%:JJ%=zO%:r_%=TO%:!z=JJ%:!O=r_%:!_=JJ%:!x=r_%:vi%=nB%:Ky%=XO%:e_%=Gi%:!h_=-1:!XJ=-1:!D_=Ky%:!Z_=e_%:ou%=Qy%:�LJ:k_%=_%:_%=0:Ln%=_%:!U=0:_r%=0:jy%=�:�N(e%,"OCRing image - Reading line (1/"+�(e_%)+") *"):nr%=1
y��
y�P��`J:�kn%:�N(e%,"OCRing image - Finding text (0%) *"):t_%=Xu%:�S(e%)�hy��By
y��n:�M(By%):�M(N_%):�M(g%):�M(sJ%):�M(HJ%):cr%=-1:wo%=�:!k=0:!CJ=wa%:!S_=f%:!Ny=W_%:!yy=W_%:hr%=�:an%=0:!a=0:P%=-1:F_%=�:�O(P%):ș&406c2:�
y�"��hy:!Z%=e%:ș&400cb,,Z%:�vy%�
y�Z%!24=-(36*t_%-16)
y��:Z%!24=-(L_%*t_%-L_%/4)
y��:ș&400c5,,Z%:�
y�uݤg(sy%,ey%,mZ%,Ky$):�KZ%,Ju%,z_%,m_%:ș46,24+256,mZ%,Ky$�,,c%:KZ%=c%+c%!32-mZ%:Ju%=c%!40:ș53,Ju%,3�,,m_%:Ȏm_%�
y��1:z_%=1
y��3:z_%=2
y�
�15:z_%=4
y�
z_%=1
y�2�:�(sy%�(32/z_%))�sy%+=(32/z_%)-(sy%�(32/z_%))
y�=KZ%+sy%*ey%*z_%/8
y�D��Dy:�Ue%,Da%,bu%,iu%,dZ%,YA%,V%,ey%:Pn%=�:�Dy%�Z%!0=R_%�Sk%=-5�
y�	�GO%�
y�gZ%!0=e%:Z%!4=Su%!0:Z%!8=Su%!4:Z%!12=Su%!8:Z%!16=Su%!12:Z%!20=Su%!16:Z%!24=Su%!20:Z%!28=Su%!24:GO%=�
y���:�q:M%!0=e%:ș&400cb,,M%:Su%!0=M%!4:Su%!4=M%!8:Su%!8=M%!12:Su%!12=M%!16:Su%!16=M%!20:Su%!20=M%!24:Su%!24=M%!28:M%!0=R_%:ș&400cb,,M%:�b%<>1�M%!28=-1:ș&400c5,,M%
y�{CO%=(M%!16-M%!8)+42:ș53,-1,12�,,ey%:ș53,-1,5�,,V%:V%=1<<V%:Z%!0=e%:Z%!4=0:Z%!8=0:Z%!12=1<<16:Z%!16=ey%*V%+2-CO%:GO%=�
y��
y�
�:ȎZ%!0�
y�%�Q_%,w_%:�Z%!0=Q_%Ue%=w_%�Ue%=Q_%
y�_M%!0=Ue%:ș&400cb,,M%:�Z%!12-Z%!4=M%!12-M%!4�Z%!16-Z%!8=M%!16-M%!8�M%!20=Z%!20�M%!24=Z%!24�
y�XM%!12=M%!4+(Z%!12-Z%!4):M%!8=M%!16-(Z%!16-Z%!8):M%!20=Z%!20:M%!24=Z%!24:ș&400c5,,M%
y�
�k%:�Uu%�
zeM%!0=`_%:ș&400cb,,M%:M%!4=Z%!4:M%!8=Z%!16-(M%!16-M%!8):M%!16=Z%!16:M%!12=Z%!12:�Z%!28=-1M%!28=-1
z�Z%!28=-2M%!28=-2
z2�mu%=��Ol%=��Pl%=��Zl%=�Z%!28=`_%:ș&400c5,,M%
z�
z�R_%:�Dy%�
z�Z%!8=Z%!16-120:M%!0=e%:ș&400cb,,M%:M%!12=Z%!4+(M%!12-M%!4):M%!4=Z%!4:M%!8=Z%!8-2-(M%!16-M%!8):M%!16=Z%!8-2:�Z%!28=-1M%!28=-1
z�Z%!28=-2M%!28=-2
zș&400c5,,M%
z�
z	�e%:�I%<>-5�FJ
z
	�Dy%�
z�M%!0=R_%:ș&400cb,,M%:CO%=(M%!16-M%!8)+42:ș53,-1,12�,,ey%:ș53,-1,5�,,V%:V%=1<<V%:Z%!28=R_%:ș&400c5,,Z%:ș&400cb,,Z%:�Z%!16+CO%>ey%*V%+2�Z%!16=ey%*V%+2-CO%
zmș&400c5,,Z%:M%!4=Z%!4:M%!12=Z%!12+38:M%!16=Z%!16+2+M%!16-M%!8:M%!8=Z%!16+2:M%!28=Z%!0:ș&400c5,,M%:Pn%=�
z
�
z�w%:M%!0=V_%:ș&400cb,,M%:M%!12=Z%!4+eB%+M%!12-M%!4:M%!4=Z%!4+eB%:M%!16=Z%!8+lB%+M%!16-M%!8:M%!8=Z%!8+lB%:�Z%!28=-1M%!28=-1
z�Z%!28=-2M%!28=-2
zș&400c5,,M%:Z%!28=V_%
z��IJ%:M%!0=jJ%:ș&400cb,,M%:M%!12=Z%!4+MO%+M%!12-M%!4:M%!4=Z%!4+MO%:M%!16=Z%!8+iB%+M%!16-M%!8:M%!8=Z%!8+iB%:�Z%!28=-1M%!28=-1
z�Z%!28=-2M%!28=-2
zș&400c5,,M%:Z%!28=jJ%
z�:�
z���J_:�zo%,se%:zo%=�-Je%:�A(Stats_Window%,6,��(�(zo%/10)/10),5)):�A(Stats_Window%,10,�(m%-Qy%)):�A(Stats_Window%,12,�(�((m%-Qy%)/zo%*100))):B%=Qy%:C%=m%:D%=A%(qy%):se%=�(qi):�A(Stats_Window%,3,�(se%)):�A(Stats_Window%,13,�(�(se%/zo%*6000))):�
z*��w(Y%):Z%!0=Y%:ș&400cb,,Z%:�Dy:�Pn%�
zFM%!4=Z%!4:M%!8=Z%!8:M%!12=Z%!12:M%!16=Z%!16:ș&400c5,,Z%:�Z%!0=k%�
zQș&400cb,,Z%:�M%!4<>Z%!4�M%!8<>Z%!8�M%!12<>Z%!12�M%!16<>Z%!16�Dy:ș&400c5,,Z%
z�
z�:�
zH��oa:�sy%,ey%,UJ%,x_%,z%,ul%,jl%:�yJ%Qi%=�(�M(Zoom_Window%,5)):yJ%=�
zmș53,-1,11�,,sy%:ș53,-1,12�,,ey%:ș53,-1,4�,,UJ%:ș53,-1,5�,,x_%:UJ%=1<<UJ%:x_%=1<<x_%:ey%-=84/x_%:�Kn%�
z	�ql%�
z/�(ey%*x_%-88)/(sy%*UJ%-46)>(t%*R%)/(n%*V%)�
zz%=(sy%*UJ%-46)/(n%*R%)*100
z !�:z%=(ey%*x_%-88)/(t%*V%)*100
z!�
z"!�:z%=(sy%*UJ%-46)/(n%*R%)*100
z#�:�z%>50�z%=50
z$�:z%=50
z%�:�z%<1z%=1
z&�z%>999z%=999
z'K�A(Zoom_Window%,5,�(z%)):�(�M(Zoom_Window%,5))<1�A(Zoom_Window%,5,"1")
z(nyJ%=�:U%=�(�M(Zoom_Window%,5)):ul%=U%*(n%*R%)/100:jl%=U%*(t%*V%)/100:i`%=�:kn%=�S(k%):�L(k%,ul%,jl%):�kn%�
z)�J(k%):�Uu%�w(k%)
z*�:�M(k%)
z+?�:�L(Q_%,ul%,jl%):�L(w_%,ul%,jl%):�M(Q_%):�M(w_%):�S(H_%)�
z,��L(H_%,ul%+400,jl%+400):�J(H_%):ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Ri%=-ku%*R%/2*U%/100:Ii%=-nJ%*V%/2*U%/100:xu%=(s%-L%+Ri%-R%):su%=t%*V%*U%/100-(X%-v%-Ii%):mi%=xu%:ki%=su%
z-
�:i`%=�:�
z.��Kl:��ș&406c2:�ry:�Qy:�
z/lF%=�("<OptclPro$Dir>.SystemB"):ay%=�#F%:`$="":�r%=1�ay%:`$+=�((�#F%)�255):�:�#F%:�A(Info_Window%,9,`$):�
z03��il(I%,j%):�j%=13�S(fy%,2,1):�S(fy%,2,0):�kJ:�
z1ș&400dc,j%:�
z2$��TJ(I%,j%):ș&600d4,-1:�c:Ȏj%�
z3�1:�cl%cl%=��cl%=�
z4)�cl%�K(File_Menu%,3)��V(File_Menu%,3)
z5�2:�vl%vl%=��vl%=�
z62�vl%�K(Display_Menu%,2)��V(Display_Menu%,2):�c
z7"�19:�q:�T(Stats_Window%,s%,v%)
z8
�17:�Dy%�
z9�xy
z:�9:�Z%(`%)>10000�W_
z;�18:�iJ
z< :�gy%?Vu%<>0�vy%=���v(j%):�
z=�Dy%=��
z>�P%<0�P%=0:F_%=�
z?5�j%=8�j%=127�j%=396�j%=397�j%=399�j%=398�("FX21")
z@�j%=397�e(100,100):�
zA�P%=-1�v(j%):�
zB�j%=396�e(100,50):�
zC�j%=399�e(100,110):�
zD�j%=398�e(100,120):�
zE�jy%�v(j%):�
zF�j%=8�j%=127��Ku:�
zG �j%>255�j%<32�j%=127�v(j%):�
zH�Ta(j%):�O(P%)
zI�:�P%=-1�v(j%):�
zJ5�j%=8�j%=127�j%=396�j%=397�j%=399�j%=398�("FX21")
zK�j%=8��cl:�
zL�j%=27��y:�
zM�j%=396�e(100,50):�
zN�j%=397�e(100,100):�
zO�j%=399�e(100,110):�
zP�j%=398�e(100,120):�
zQ �j%>255�j%<33�j%=127�v(j%):�
zRb�A(g%,19,�(j%)):�(?(A%(qy%)+Py%)<>j%�(My%?(P%*2)�3)>=2�(My%?(P%*2)�4)<>i%)�(My%?(P%*2+1)�2)=0�
zSO_%=P%:Yo%=�:�WJ:�P_
zT�:�e(100,100)
zU�
zV�:�
zWݤO(yu%):�Py%:�Dy%�=�
zX�a(yu%):�!V_<>0�=�
zYYPy%-=1:j_%=?(A%(qy%)+Py%):�Py%>Qy%�?(A%(qy%)+Py%-1)=2�?(A%(qy%)+Py%-1)=3�Py%-=1:j_%=2
zZ�ȕPy%>=Qy%�((j_%>0�j_%<8)�j_%=11�j_%=12):Py%-=1:j_%=?(A%(qy%)+Py%):�Py%>Qy%�?(A%(qy%)+Py%-1)=2�?(A%(qy%)+Py%-1)=3�Py%-=1:j_%=2
z[�:�j_%=9�j_%=10�j_%=32�=�
z\=�
z]ݤe(yu%):�Py%:�Dy%�=�
z^�a(yu%):�!V_<>0�=�
z_1Py%+=1:j_%=?(A%(qy%)+Py%):�j_%=2�j_%=3�Py%+=1
z`XȕPy%<m%�((j_%>0�j_%<8)�j_%=11�j_%=12):Py%+=1:j_%=?(A%(qy%)+Py%):�j_%=2�j_%=3�Py%+=1
za�:�j_%=9�j_%=10�j_%=32�=�
zb=�
zcS��Ku:�K`%:�_%<=1�C("Optical","Sorry - the last character cannot be deleted."):�
zd�P%=0�F_%�
ze�Wy%<>0�!A<>0�Iy%�Ȕ_%,k_%
zf	�F_%�
zg8My%?(P%*2+1)=My%?(P%*2+1)�128:P%-=1:�P%<0�P%=0:F_%=�
zh$F_%=�:�Wy%<>0�!A<>0�Iy%�Ȕ_%,k_%
zi6�:�e(P%)=��O(P%)=��My%?(P%*2+3)=My%?(P%*2+3)�128
zj�O(P%)�F_%=�
zk�A%=a%+(P%+1)*8:B%=a%+P%*8:C%=(_%-P%-1)*8:�T:A%=My%+(P%+1)*2:B%=My%+P%*2:C%=(_%-P%-1)*2:�T:A%=Pu%+P%+1:B%=Pu%+P%:C%=_%-P%-1:�T:�Wy%<>0�!A<>0�Iy%�Ȕ_%,k_%:k_%-=1:!U-=1:!d-=1:ou%-=1:Ln%-=1:hn%-=1:an%-=1
zl3_%-=1:�PJ%=0�e_%:�Ky%!(PJ%*4)>P%�Ky%!(PJ%*4)-=1
zm�:�F_%=�P%-=1
zn�P%=-1�P%=0:F_%=�
zo�P%>=_%�P%=_%-1
zp�:m%=Qy%:�r:�a(P%):�vy%�
zqK`%=36*(bJ%+t_%)
zr�:K`%=L_%*t_%+8
zs.�:ș&400d1,e%,0,-1<<30,1<<30,-K`%:�O(P%):�
zt��Ta(j%):�K`%:�P%<0�a_%=��
zu�Wy%<>0�!A<>0�Iy%�Ȕ_%,k_%
zv�j%=32�j%=14
zw�F_%=�P%+=1
zx�P%>_%�P%=_%-1
zy��a(P%):Ul%=?(My%+P%*2)�4:A%=a%+P%*8:B%=a%+(P%+1)*8:C%=(_%-P%)*8:�Q:A%=My%+P%*2:B%=My%+(P%+1)*2:C%=(_%-P%)*2:�Q:A%=Pu%+P%:B%=Pu%+P%+1:C%=_%-P%:�Q:�Wy%<>0�!A<>0�Iy%�Ȕ_%,k_%:k_%+=1:!U+=1:!d+=1:ou%+=1:Ln%+=1:hn%+=1:an%+=1
zz_%+=1:�F_%�
z{�My%?(P%*2)=My%?(P%*2+2):My%?(P%*2+1)=2+(My%?(P%*2+3)�225):!(a%+P%*8)=!(a%+(P%+1)*8):!(a%+P%*8+4)=!(a%+(P%+1)*8+4):�PJ%=0�e_%:�Ky%!(PJ%*4)>P%�Ky%!(PJ%*4)+=1
z|�:F_%=�
z}��:My%?(P%*2)=My%?(P%*2-2):My%?(P%*2+1)=2+(My%?(P%*2-1)�225):!(a%+P%*8)=!(a%+(P%-1)*8):!(a%+P%*8+4)=!(a%+(P%-1)*8+4):�PJ%=0�e_%:�Ky%!(PJ%*4)>=P%�Ky%!(PJ%*4)+=1
z~�
zQ�:?(A%(qy%)+Py%)=j%:Pu%?P%=j%:�(My%?(P%*2+1)�1)�My%?(P%*2+3)=My%?(P%*2+3)�226
z�m%=Qy%:�r:�vy%�
z�K`%=36*(bJ%+t_%)
z��:K`%=L_%*t_%+8
z�'�:ș&400d1,e%,0,-1<<30,1<<30,-K`%:�
z���Qu(P%,j%):�P%=-1�
z�xl%+=1:�xl%>zn%-1�xl%=0
z�z`%+=1:�z`%>zn%�z`%=zn%
z�&H%(xl%)=j%:I%(xl%)=P%:L%(xl%)=i%:�
z���cl:�Tu%:�z`%=0�
z�FPA%=H%(xl%):QB%=I%(xl%):PZ%=L%(xl%):z`%-=1:xl%-=1:�xl%<0�xl%=zn%-1
z��QB%<0��7:�
z�f�t_(PZ%+1):A%=A%(u%):B%=PA%:C%=i%:Tu%=�(JJ):�J(sJ%):�J(N_%):�_:�p:�e(100,200):�Ay(QB%):O_%=QB%+1:�
z�%��ey(Uy%):�Tu%:�m%=0Xu%=0:t_%=0:�
z�	�vy%�
z�_B%=0:C%=m%:D%=A%(qy%):E%=p_%:Xu%=�(VJ):B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:t_%=Xu%-�(VJ):�P%>-1�
z�!A%=P%:�g:uJ%=!b:bJ%=!u:Py%=!w
z��
z�(�:ș&40089,,p_%,L_%�,A`%,J`%:�Qy%=0�
z�	t_%=0
z���:Ui%=�D(Qy%):G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!ly=1<<16:!G_=1<<16:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:Tu%=!a:t_%=�(gy):!a=Tu%
z���:�Jy:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!ly=1<<16:!G_=1<<16:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:Tu%=!a:Xu%=�(gy):!a=Tu%
z��:�
z���ju:�P(0)=o`%�
z�.�B(cB%,o`%):o`%=�P(0):�B(cB%,o`%):!j=o`%:�
z���Ty:�Wy%<>0�!A<>0�Iy%�
z��_e%,Sy%:vA%=vy%:�c:�jy%�
z�6xy%=P%:P%=-1:�d:P%=xy%:jy%=�:�O(P%):�M(w%):�M(V_%)
z��:F_%=�:�vy%=��xy
z��gy%?Vu%<>0�ra:�
z��a_%=��m%-Qy%<2�
z�_e%=�:�Cy%>=0�
z�%�Sy%=0�Cy%:�S%(Sy%)�_e%=�:Sy%=Cy%
z��
z��:�_e%�
z�$hB%="(Unnamed)"+�0:�U_
z���:AB%=�:Dy%=�:�A(g%,3,"Stop teaching"):�C_(Edit_Menu%,2,"Stop teaching�F5"):�Fi:�N(R_%,"Type teaching font '"+A$(i%)+"'"):P%-=1:�P%<0�P%=0:F_%=�
z�)�e(100,100):O_%=0:xl%=0:z`%=0:YB%=�:�
z���y:�Dy%=��
z�zy%=�:�S(zu%)�
z�$�M(zu%):�m:�Ga%ș&400d0,,0:Ga%=�
z�	zy%=�
z��:�zy%�
z�}O_%=-1:Dy%=�:�A(g%,3,"Type teach"):�C_(Edit_Menu%,2,"Type teach   �F5"):�G(To%,ak%,xk%):�_i:�G(e%,-1,-1):�O(P%):�vA%=��xy
z�YB%=�:�J(e%):�
z�$��HJ(ll%,h_%):�Wy%<>0�!A<>0�Iy%�
z�\�Jr%,Fr%,Yr%,Ir%,Cr%,Sr%,Rr%,Vr%,He%,Ie%,`k%,Ze%,uJ%,bJ%,Py%,hP%:�ll%=h_%�ll%=-1�h_%=-1�
z�I�(ll%-h_%)>1�C("Optical","You can only join adjacent characters!"):�
z��Jr%=!(a%+ll%*8)�65535:Fr%=!(a%+2+ll%*8)�65535:Cr%=!(a%+4+ll%*8)�65535:Sr%=!(a%+6+ll%*8)�65535:Yr%=!(a%+h_%*8)�65535:Ir%=!(a%+2+h_%*8)�65535:Rr%=!(a%+4+h_%*8)�65535:Vr%=!(a%+6+h_%*8)�65535:�Jr%<Yr%He%=Jr%�He%=Yr%
z��Fr%>Ir%Ie%=Fr%�Ie%=Ir%
z��Cr%<Rr%`k%=Cr%�`k%=Rr%
z��Sr%>Vr%Ze%=Sr%�Ze%=Vr%
z��ll%>h_%Ȕll%,h_%
z��P%=ll%:A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:�g:uJ%=!b:bJ%=!u:Py%=!w:A%=h_%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:�g:�Wy%<>0�!A<>0�Ȕ_%,k_%
z��hP%=!w:!(a%+ll%*8)=He%+Ie%*65536:!(a%+4+ll%*8)=`k%+Ze%*65536:C_%=A%(qy%):A%=C_%+Py%+2:B%=C_%+Py%+1:C%=m%-Py%-1:A%=Pu%+P%+2:B%=Pu%+P%+1:C%=_%-P%-1:�T:A%=My%+(P%+2)*2:B%=My%+(P%+1)*2:C%=(_%-P%-1)*2:�T:A%=a%+(P%+2)*8:B%=a%+(P%+1)*8:C%=(_%-P%-1)*8:�T
z�-�Wy%<>0�!A<>0�Ȕ_%,k_%:k_%-=1:!U-=1:!d-=1
z�9_%-=1:m%-=1:�PJ%=0�e_%:�Ky%!(PJ%*4)>P%�Ky%!(PJ%*4)-=1
z��:NB%=�:�zy:�vy%�
z�&m%=Qy%:Xu%=t_%:e_%=Gi%:�r:�ey(p_%)
z�#�:m%=Qy%:Xu%=t_%:e_%=Gi%:�Jy:�r
z� �:�J(e%):�J(R_%):�t:xy%=P%:�
z�<��Fi:�YA%,dZ%,Tu%:M%!0=e%:ș&400cc,,M%:�(M%!32�(1<<18))�
z�	GO%=�
z�a�:GO%=�:Su%!0=Z%!4:Su%!4=Z%!8:Su%!8=Z%!12:Su%!12=Z%!16:Su%!16=Z%!20:Su%!20=Z%!24:Su%!24=Z%!28
z���:Jn%!0=e%:ș&400cb,,Jn%:Z%!0=e%:ș&400cb,,Z%:ee%=Z%!24:e%=Mo%:Z%!0=e%:ș&400c5,,Z%:oi%=(120/(V%*SJ%*2.5))*100:Ȕoi%,U%:�L(R_%,1<<16,�J(t%*V%)):Ȕoi%,U%:�M(Jn%!0):�By:M%!0=R_%:ș&400cb,,M%:M%!4=Z%!4:M%!12=Z%!12+38:M%!8=Z%!16+2:M%!16=Z%!16+4+118
z�\M%!28=e%:ș53,-1,5�,,dZ%:ș53,-1,12�,,Da%:Da%=Da%*(1<<dZ%)+2:�Z%!16+160>Da%Z%!16=Da%-160
z��M%!16+40>Da%�
z�IM%!8=Da%-158:M%!16=Da%-38:Z%!8=Da%-158-4-(Z%!16-Z%!8):Z%!16=Da%-158-4
z��:�Z%!8<0Z%!8=0
z�Dș53,-1,4�,,YA%:ș53,-1,11�,,bu%:bu%=bu%*(1<<YA%):�Z%!12+42>bu%�
z�>iu%=Z%!12+42-bu%:Z%!4-=iu%:Z%!12-=iu%:M%!4-=iu%:M%!12-=iu%
z��:�Z%!28=-1M%!28=-1
z��Z%!28=-2M%!28=-2
z�9ș&400c5,,M%:Z%!28=R_%:Z%!24=ee%:ș&400c5,,Z%:qo%=�:�
z�^��_i:�cA%:cA%=Jn%!0:Jn%!0=e%:ș&400cb,,Jn%:e%=cA%:Jn%!0=e%:ș&400c5,,Jn%:�M(Mo%):�M(R_%):�
z���ca:�o%:�Ay%=-1�
z�0o%=0:�:�Q%!(o%*16)>n%-20�Q%!(o%*16+4)>t%-20�
z��Ay%>o%�
z�}�N%=o%�Ay%-1:Q%!(N%*16)=Q%!(N%*16+16):Q%!(N%*16+8)=Q%!(N%*16+24):Q%!(N%*16+4)=Q%!(N%*16+20):Q%!(N%*16+12)=Q%!(N%*16+28):�
z��:Ay%-=1
z�*�:�Q%!(o%*16+8)>n%-1�Q%!(o%*16+8)=n%-1
z�*�Q%!(o%*16+12)>t%-1�Q%!(o%*16+12)=t%-1
z��:o%+=1:�o%>Ay%:�
z�'��k_:b_%=0:Sy%=0:�:�S%(Sy%)�b_%=Sy%
z�ISy%+=1:�S%(Sy%-1)�Sy%>Cy%:�A(N_%,3,A$(b_%)):�q:�Py(N_%,s%-64,v%+64):�
z���DJ(kJ%):ȎkJ%�
z�&�1:�p%=0�1:Ka%!(p%*4)=tZ%!(p%*4):�
z�&�3:�p%=0�3:Ka%!(p%*4)=JA%!(p%*4):�
z�(�15:�p%=0�15:Ka%!(p%*4)=dA%!(p%*4):�
z��:�
zٟ��Al:�X("Message from Optical","It is not possible to transfer text with this version of Optical. For a full version please contact Neurotron Software."):�
z�3��j_:Z%!0=0:Z%!4=-(40*g_%):�Z%!4>-324�Z%!4=-324
z�&Z%!8=344:Z%!12=0:ș&400d7,jJ%,Z%:�
z���Du(b%,I%):ȎI%�
z�
�0:�qi
z��1:�M(IJ%)
z��6:fn%=�Z(IJ%,6)
z��:�
z���Ni(b%,I%):Z%!0=jJ%:ș&400cb,,Z%:X%=Z%!16-Z%!24:ș&400cf,,Z%:v%=Z%!4:uy%=X%-v%:hJ%=(uy%-4)�40:DO%=Fl%:�hJ%>=g_%�Fl%=-1�Fl%=hJ%
z��DO%<>Fl%�
z�Z%!0=jJ%:Z%!4=0:Z%!8=-g_%*40-40:Z%!12=344:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�W(3,8):�DO%>=0ȓȐL%,X%-4-40*DO%,368,-36
z�%�Fl%>=0ȓȐL%,X%-4-40*Fl%,368,-36
z�ș&400ca,,Z%�d%:�
z�$�:�Fl%=-1�P(IJ%,0,�)��P(IJ%,0,�)
z��
z�d��ki(Y%,I%,y%,h%):Ck%=�:�g_%>=20��C("Optical","Only 20 MLE applications are allowed at once!"):�
z��Y%=IJ%�Y%=jJ%�
z��Z%?0=1:Z%?1=y%�256:Z%?2=y%�256:Z%?3=h%�256:Z%?4=h%�256:Z%?5=y%�256:Z%?6=y%�256:Z%?7=h%�256:Z%?8=h%�256:ș7,21,Z%:Z%!0=20:Z%!12=0:ș&400e7,19,Z%,Y%�,,xi%:�xi%=rn%�C("Optical","Optical cannot be linked to itself!"):�
z�~Vo%=�:Z%!0=24:Z%!12=0:Z%!16=&400c6:Z%!20=xi%:ș&400e7,17,Z%,0:Z%!0=y%:Z%!4=h%:Z%!8=2:Z%!12=Y%:Z%!16=I%:ș&400e7,6,Z%,xi%:�
z�t��va(Zy$):Vo%=�:ș&400cf,,Z%:Y%=Z%!12:�Y%=Ao%�ș&400d4,-1:�C("Optical","This window has no menu for linking!"):�
z�aM$(g_%)=Zy$:Z%!0=Y%:ș&400cb,,Z%:G%(g_%)=Z%!12-Z%!4:P%(g_%)=Z%!16-Z%!8:Z$(g_%)=�s(Y%):�g_%>0�
z�M�q%=0�g_%-1:�P%(q%)=P%(g_%)�M$(q%)=M$(g_%)�Z$(q%)=Z$(g_%)�q%=g_%-1:g_%-=1
z��
z�)�:g_%+=1:ș&400d4,-1:�j_:�J(jJ%):�m:�
z���Rl:�q%:�g_%<1�
z�`ș&400e6,7:�q%=0�g_%-1:�L%+2,X%-8-40*q%:�M$(q%):�:�Fl%>=0��W(3,8):ȓȐL%,X%-4-40*Fl%,368,-36
z��
z���qi:�q%:�Fl%=-1�g_%=0�
z�2�P(IJ%,0,�):�Fl%=g_%-1�g_%-=1:Fl%=-1:�J(jJ%):�
z�k�q%=Fl%�g_%-2:M$(q%)=M$(q%+1):Z$(q%)=Z$(q%+1):G%(q%)=G%(q%+1):P%(q%)=P%(q%+1):�:g_%-=1:Fl%=-1:�J(jJ%):�
z�m��Uu:F%=�("<OptclPro$Dir>.MLESetts"):�#F%,g_%:�q%=0�19:�#F%,M$(q%),Z$(q%),G%(q%),P%(q%):�:�#F%,fn%:�#F%:�
z�{��pu:F%=�("<OptclPro$Dir>.MLESetts"):�#F%,g_%:�q%=0�19:�#F%,M$(q%),Z$(q%),G%(q%),P%(q%):�:�#F%,fn%:�#F%:�S(IJ%,6,fn%):�
z�H��WJ:�O%,Wp%,Qp%,ro%,je%,Yy%,uJ%,Py%,bJ%,ZA%,Gl%,Tu%:�vy%=��O_%=-1:�
z��Xn%=��
z��O_%>=_%�O_%=0
z��(My%?(O_%*2+1)�2)�O_%+=1:�
z�.ș&406c0:�!(a%+O_%*8)=-1�!(a%+4+O_%*8)=-1�
z�Cȕ!(a%+O_%*8)=-1�!(a%+4+O_%*8)=-1�O_%<_%:O_%+=1:�:�O_%>=_%O_%=0
z��:�O_%=-1�
{�oy%=(!(a%+O_%*8)�65535)-1:dJ%=(!(a%+2+O_%*8)�65535)+1:T_%=(!(a%+4+O_%*8)�65535)-1:Yu%=(!(a%+6+O_%*8)�65535)+1:!J_=oy%:!T_=dJ%:!`y=T_%:!Q_=Yu%:Yy%=(�(dJ%-oy%)+1)*(�(Yu%-T_%)+1):�Z%(J_%)<Yy%�K%=�A(Yy%,J_%)�K%=�
{$�Z%(`y%)<Yy%�K%=�A(Yy%,`y%)�K%=�
{�K%=�O_%+=1:K%=�A(1,J_%):�
{/A%=Uy%+1:G%=A%(J_%):H%=A%(`%)+Hu%:�A_:�Yo%�
{�!(A%(u%))>0�
{<B%=_%-1:C%=a%:Yy%=�(Jy):�Z%(J_%)<Yy%�K%=�A(Yy%,J_%)�K%=�
{$�Z%(`y%)<Yy%�K%=�A(Yy%,`y%)�K%=�
{4�K%=�O_%+=1:K%=�A(1,J_%):K%=�A(1,`y%):ș&406c1:�
{�D%=Ky%:E%=O_%:!M=�(Ay):!`=A%(u%)+4:!Vy=A%(uu%):!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!p=Ky%:!Uy=O_%:!Xy=O_%:!Zy=fJ%:!Fy=a%:!c=1:B%=_%:F%=Bu%:G%=SJ%:H%=a%:Gl%=�(L_)
{	�:Gl%=3:?s=0
{
�:!c=0:�c_(O_%)
{�:O_%+=1:Yo%=�:ș&406c1:�
{��ly(ol):�pr%,zy%,cJ:�ol=0�
{
cJ=V:�V<>0�
{EȔju%,`%:Ȕn%,Cn%:Ȕt%,Ca%:ȔUy%,Fo%:Ȕyy%,De%:ȔHu%,Qk%:Ȕc%,vB%
{�:N=V+ol:�N>359�N-=360
{�N<0N+=360
{V=N:zy%=�:�V=0�
{=K%=�A(1,ju%):�L(k%,�J(n%*R%),�J(t%*V%)):�J(k%):�Uu%�w(k%)
{�Y(""):_J%=0:zy%=�
{�:�zy%�
{}Cn%=�(n%*�(�(N)))+�((yy%+1)*�(�(N))):Ca%=�(n%*�(�(N)))+�((yy%+1)*�(�(N))):K%=�A(256+(9+(Cn%�8))*(Ca%+5),ju%):zy%=�:�K%=��
{��C("Optical","There is not enough free memory available to rotate this image. Need "+�((256+(4+Cn%�8)*Ca%)�1024)+"K."):K%=�A(1,ju%):zy%=�:V=cJ
{�:�zy%�
{�!(A%(ju%))=256+(9+(Cn%�8))*(Ca%+5):!(A%(ju%)+8)=16:ș46,265,A%(ju%):ș46,271,A%(ju%),M$,0,Cn%,Ca%,18:pr%=!(A%(ju%)+8):Fo%=!(A%(ju%)+pr%+16):ș46,24+256,A%(`%),M$�,,c%:Hu%=c%-A%(`%)+c%!32:ș46,24+256,A%(ju%),M$�,,vB%:Qk%=vB%-A%(ju%)+vB%!32:De%=Ca%-1
{�A%=Uy%+1:B%=Fo%+1:C%=A%(`%)+Hu%:D%=A%(ju%)+Qk%:E%=�(�(N))*(1<<16):F%=�(�(N))*(1<<16):G%=Cn%-1:H%=Ca%-1:!Bi=n%-1:!Li=yy%:!ri=(100/Ca%)*(1<<16):ș&406c0:�Xa:ș&406c1:Ȕju%,`%:Ȕn%,Cn%:Ȕt%,Ca%:ȔUy%,Fo%:Ȕyy%,De%:ȔHu%,Qk%:Ȕc%,vB%
{0�L(k%,�J(n%*R%),�J(t%*V%)):�J(k%):�Uu%�w(k%)
{2�Y(""):_J%=0:m%=Qy%:_%=0:P%=-1:�J(e%):�O(P%):�
{���n:�R%,sy%,V%,ey%,h%:ș&406c0:ș53,-1,11�,,sy%:ș53,-1,4�,,R%:R%=1<<R%:sy%=sy%*R%:M%!0=e%:ș&400cc,,M%:Ua=(M%!24-(M%!16-M%!8)/2)/M%!48:�vy%�
{/p_%=(M%!12-M%!4-4)/16:�ey(p_%):h%=36*Xu%+36
{/�:p_%=M%!12-M%!4-32:�ey(p_%):h%=L_%*Xu%+L_%
{\�:y%=sy%:ș53,-1,12�,,ey%:ș53,-1,5�,,V%:V%=1<<V%:ey%=ey%*V%:h%+=256:�h%<ey%-40h%=ey%-40
{ NM%!0=0:M%!12=2:M%!8=y%+2:M%!4=-h%:ș&400d7,e%,M%:�Wy%=0�!A=0�Iy%=0��S(e%)�
{!,M%!0=e%:ș&400cc,,M%:�vy%�HZ%=36�HZ%=L_%
{"IM%!24=Ua*M%!48+(M%!16-M%!8)/2:M%!20=0:ș&400c5,,M%:�Dy%=��jy%=��O(P%)
{#�:ș&406c1:�
{$��h_:�pi%�
{%�N(e%,"OCRed text"):pi%=�:�
{&��t:�pi%=��
{'!�N(e%,"OCRed text *"):pi%=�:�
{(S��Zy(q_%):�P$,J$:�S(By%,10,q_%?oB%):�S(x%,3,q_%?hO%):�S(x%,4,q_%?Dr%):�q_%?Vu%�
{)��S(x%,24,�):�P(x%,3,�):�P(x%,4,�):�P(x%,7,�):�P(x%,8,�):�P(x%,9,�):�P(x%,10,�):�G(x%,18,0):�P(x%,11,�):�P(x%,12,�):�P(x%,13,�):�P(x%,20,�):�P(x%,21,�):�P(x%,16,�):�P(x%,25,�):�P(x%,26,�):�q_%?dk%�
{*�S(x%,25,�)
{+�:�S(x%,25,�)
{,�:�q_%?sB%�
{-�S(x%,7,�)
{.�:�S(x%,7,�):�q_%?Io%�
{/�S(x%,8,�)
{0�:�S(x%,8,�)
{1�:�q_%?tB%�
{2�S(x%,13,�)
{3�:�S(x%,13,�)
{4�
{5�:�F(q_%+ua%)=�9�
{6'�S(x%,9,�):�S(x%,11,�):�A(x%,10,"")
{75�:�S(x%,9,�):�S(x%,11,�):P$=�F(q_%+ua%):�(P$)>0�
{8/�p%=1��(P$):J$=�P$,p%,1):�J$=�32�P$,p%)="s"
{9�J$=�9�P$,p%)="t"
{:�
{;�:�A(x%,10,P$)
{<�
{=`�:�S(x%,24,�):�P(x%,3,�):�P(x%,4,�):�P(x%,7,�):�P(x%,16,�):�P(x%,25,�):�P(x%,26,�):�q_%?dk%�
{>�S(x%,25,�)
{?�:�S(x%,25,�)
{@�:�q_%?sB%�
{Ax�S(x%,7,�):�P(x%,8,�):�P(x%,9,�):�P(x%,10,�):�G(x%,18,0):�P(x%,11,�):�P(x%,12,�):�P(x%,13,�):�P(x%,20,�):�P(x%,21,�)
{B%�:�S(x%,7,�):�P(x%,8,�):�q_%?Io%�
{C1�P(x%,9,�):�P(x%,10,�):�P(x%,11,�):�S(x%,8,�)
{D?�:�P(x%,9,�):�P(x%,10,�):�G(x%,18,0):�P(x%,11,�):�S(x%,8,�)
{E�:�P(x%,13,�):�q_%?tB%�
{F3�P(x%,12,�):�P(x%,20,�):�P(x%,21,�):�S(x%,13,�)
{G5�:�P(x%,12,�):�P(x%,20,�):�P(x%,21,�):�S(x%,13,�)
{H�
{I�:�F(q_%+ua%)=�9�
{J'�S(x%,9,�):�S(x%,11,�):�A(x%,10,"")
{K5�:�S(x%,9,�):�S(x%,11,�):P$=�F(q_%+ua%):�(P$)>0�
{L/�p%=1��(P$):J$=�P$,p%,1):�J$=�32�P$,p%)="s"
{M�J$=�9�P$,p%)="t"
{N�
{O�:�A(x%,10,P$)
{P�
{QU�:�A(x%,12,�(q_%?tB%)):�S(x%,16,q_%?Ne%):�S(x%,17,q_%?uB%):�A(x%,18,�(q_%?ha%)):�
{Rv��Gy(q_%):�P$,J$:q_%?oB%=�Z(By%,10):q_%?hO%=�Z(x%,3):q_%?Dr%=�Z(x%,4):q_%?sB%=�Z(x%,7):q_%?Io%=�Z(x%,8):�Z(x%,9)�
{S$(q_%+ua%)=�9+�0
{T�:P$=�M(x%,10):�(P$)>0�
{U6�p%=1��(P$):J$=�P$,p%,1):�J$="s"�J$="S"�P$,p%)=�32
{V�J$="t"�J$="T"�P$,p%)=�9
{W�
{X�:$(q_%+ua%)=P$+�0
{Y�:�Z(x%,13)�
{Z �(�M(x%,12))=0�A(x%,12,"1")
{[�:�A(x%,12,"0")
{\W�:q_%?tB%=�(�M(x%,12)):q_%?Ne%=�Z(x%,16):q_%?uB%=�Z(x%,17):P$=��M(x%,18),1):�P$=""�
{]
q_%?ha%=0
{^�:q_%?ha%=�(��M(x%,18),1))
{_+�:q_%?Vu%=�Z(x%,24):q_%?dk%=�Z(x%,25):�
{`��xi(b%,I%):�b%>7�
{a%�b%=1�I%=20I%=21��b%=1�I%=21I%=20
{b!�(I%=9�I%=11)�b%=1�S(x%,I%,�)
{c	ȎI%�
{d�3
{e�4
{f�7
{g�8
{h�9
{i�10:�S(x%,11,�)
{j�11:�G(x%,10,0)
{k�13
{l�20:�i(x%,12,9,1)
{m�21:�h(x%,12,1,1)
{n�16
{o�17
{p�22:�`_:�vy:�J(e%):�b%<>1�
{q�b:�jy%=��Dy%=��O(P%)
{r
�:�CJ(x%)
{s�
{t
�23:�b
{u�24
{v:�
{w�:�Gy(kr%):�Zy(kr%):�
{x8��Dl(I%,j%):�(j%<>13�I%<>18)��a(x%,22)�ș&400dc,j%:�
{y-�S(x%,22,�):�`_:�vy:�b:�jy%=��Dy%=��O(P%)
{z�S(x%,22,�):�
{{���vy:�Gy(gy%):�gy%?Vu%<>0�Ay%<1�X("Message from Optical","Text cannot be formatted as a table because less than two frames have been defined."):gy%?Vu%=0:�Zy(gy%):�Gy(gy%)
{|�gy%?Vu%<>0�
{}�Z(w%,7):�Z(w%,10):�Z(w%,2)
{~'�:m%=Qy%:Xu%=t_%:e_%=Gi%:�vy%=���Jy
{"�r:�Wy%=0�!A=0�Iy%=0�By:�J(e%)
{�
�gy%?Vu%�
{�X�P(SaveText_Window%,7,�):�S(SaveText_Window%,7,�):�o(SaveText_Window%,3,"Sfile_dfe")
{�X�:�Z(SaveText_Window%,7)�S(SaveText_Window%,4,�):�o(SaveText_Window%,3,"Sfile_fff")
{��P(SaveText_Window%,7,�)
{��:�
{���di:�mu%�Ol%�Pl%�Zl%<>0�
{��Z%!0=Y%:ș&400cb,,Z%:so%=Z%!28:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ș&400cf,,Z%:Vy%=Z%!0-L%:Hy%=X%-Z%!4:by%=Vy%:ty%=Hy%:__%=Y%:Z%!4=7:Z%!24=-10000:Z%!28=-10000:Z%!32=10000:Z%!36=10000:ș&400d0,,Z%:Z%!0=__%:Z%!4=0:Z%!8=-100000:Z%!12=100000:Z%!16=0
{�Xș&400c9,,Z%�d%:ȕd%:�W(3,11):�Vy%+L%,X%-Hy%,L%+by%,X%-ty%:ș&400ca,,Z%�d%:�:Pl%=�:�
{����kl:�UJ%,x_%,N,be%,x`%:M%!0=__%:M%!4=0:M%!8=-100000:M%!12=100000:M%!16=0:ș&400c9,,M%�d%:L%=M%!4-M%!20:X%=M%!16-M%!24:�W(3,11):ȕd%:�W(3,11):�Vy%+L%,X%-Hy%,by%+L%,X%-ty%:ș&400ca,,M%�d%:�:Z%!0=__%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24
{�!�(by%-Vy%)<32��(ty%-Hy%)<32�
{��by%-Vy%=0�
{�
�ty%>Hy%�
{��ly(90)
{��:�ly(270)
{��
{�;�:be%=by%-Vy%:x`%=ty%-Hy%:N=�(�(x`%/be%)):�be%<0N=180+N
{�
�ly(N)
{��:�
{���Q_:V=0:K%=�A(1,ju%):�
{����zl:ș&406c0:Z%!0=k%:ș&400cb,,Z%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:hl%=-Z%!16+Z%!8:rl%=Z%!12-Z%!4:ș&400cf,,Z%:s%=Z%!0:v%=Z%!4:Z_%=(s%-L%)/R%:uy%=(X%-v%)/V%:Zy%=-1:�Ay%>-1�
{��N%=0�Ay%:�Z_%>=Q%!(N%*16)*U%/100�Z_%<=Q%!(N%*16+8)*U%/100�uy%>=Q%!(N%*16+4)*U%/100�uy%<=Q%!(N%*16+12)*U%/100�Zy%=N%:N%=Ay%
{���Z_%>=Q%!(N%*16)*U%/100-8/R%�Z_%<=Q%!(N%*16)*U%/100+8/R%�uy%>=Q%!(N%*16+4)*U%/100-8/V%�uy%<=Q%!(N%*16+4)*U%/100+8/V%�Zy%=N%:N%=Ay%
{���Z_%>=Q%!(N%*16+8)*U%/100-8/R%�Z_%<=Q%!(N%*16+8)*U%/100+8/R%�uy%>=Q%!(N%*16+4)*U%/100-8/V%�uy%<=Q%!(N%*16+4)*U%/100+8/V%�Zy%=N%:N%=Ay%
{���Z_%>=Q%!(N%*16+8)*U%/100-8/R%�Z_%<=Q%!(N%*16+8)*U%/100+8/R%�uy%>=Q%!(N%*16+12)*U%/100-8/V%�uy%<=Q%!(N%*16+12)*U%/100+8/V%�Zy%=N%:N%=Ay%
{���Z_%>=Q%!(N%*16)*U%/100-8/R%�Z_%<=Q%!(N%*16)*U%/100+8/R%�uy%>=Q%!(N%*16+12)*U%/100-8/V%�uy%<=Q%!(N%*16+12)*U%/100+8/V%�Zy%=N%:N%=Ay%
{��
{��:�dy(Zy%,b%):�
{�1��dy(Zy%,b%):�Mn%,Sn%:�b%=256+4�ui%=��Ay%>0��
{��b%=256+4�b%=4
{�kș46,Nl%,A%(`%),M$�,,,n%,t%:ș46,24+256,A%(`%),M$�,,c%:Uy%=c%!16:yy%=c%!20:Hu%=c%-A%(`%)+c%!32:�Zy%=-1�
{�!Dy=0:!Qy=0:Mn%=n%:Sn%=t%
{�^�:!Dy=Q%!(Zy%*16):!Qy=Q%!(Zy%*16+4):Mn%=Q%!(Zy%*16+8):Sn%=Q%!(Zy%*16+12):�!Dy>Mn%Ȕ!Dy,Mn%
{��!Qy>Sn%Ȕ!Qy,Sn%
{�Mn%=Mn%-!Dy:Sn%=Sn%-!Qy
{�L�:!u_=�K(C):!l_=�R(F):!hy=Mn%/!u_:!X_=Sn%/!l_:!ql=Mn%:!Hl=Sn%:�Al%<=100�
{�	!H_=7
{��:�Al%<=300�
{�	!H_=8
{��:!H_=9
{��
{���:K%=�A(!hy*!X_,go%):�K%=���C("Optical","There is not enough free memory available to find any columns. Need "+�((!hy*!X_)�1024)+"K."):�
{�a!ji=ca%:A%=Uy%+1:B%=A%(`%)+Hu%:C%=A%(go%):D%=Al%/100:E%=JP%:fu%=�(nJ):K%=�A(1,go%):�Sy:�b%=1�
{��Zy%=-1Zy%=Ay%+1
{�"fu%-=1:�fu%+Ay%>bl%fu%=bl%-Ay%
{��fu%>0�Ay%>Zy%�
{���N%=Ay%�Zy%+1�-1:Q%!(N%*16+fu%*16)=Q%!(N%*16):Q%!(N%*16+4+fu%*16)=Q%!(N%*16+4):Q%!(N%*16+8+fu%*16)=Q%!(N%*16+8):Q%!(N%*16+12+fu%*16)=Q%!(N%*16+12):�
{��:�fu%>-1�
{���N%=0�fu%:Q%!(N%*16+Zy%*16)=ca%!(N%*16):Q%!(N%*16+4+Zy%*16)=ca%!(N%*16+4):Q%!(N%*16+8+Zy%*16)=ca%!(N%*16+8):Q%!(N%*16+12+Zy%*16)=ca%!(N%*16+12):�
{��:�Zy%=Ay%+1Ay%+=1
{�Ay%+=fu%
{��:�fu%>bl%fu%=bl%
{��fu%>0�
{�{�N%=0�fu%-1:Q%!(N%*16)=ca%!(N%*16):Q%!(N%*16+4)=ca%!(N%*16+4):Q%!(N%*16+8)=ca%!(N%*16+8):Q%!(N%*16+12)=ca%!(N%*16+12):�
{��:Ay%=fu%-1
{��:�Sy:ș&406c1:�
{���Sy:�Ay%<0�
{��Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�N%=0�Ay%:�W(3,10)
{��ȓL%+Q%!(N%*16)*R%*U%/100,X%-Q%!(N%*16+4)*V%*U%/100,(Q%!(N%*16+8)-Q%!(N%*16))*R%*U%/100,-(Q%!(N%*16+12)-Q%!(N%*16+4))*V%*U%/100:�W(3,8):ȓL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
{��ȓL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16:ȓL%+Q%!(N%*16+8)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:ȓL%+Q%!(N%*16)*R%*U%/100-8,X%-Q%!(N%*16+12)*V%*U%/100-8,16,16:�N%>0�
{���W(3,11):�L%+Q%!(N%*16-8)*R%*U%/100-32,X%-Q%!(N%*16-4)*V%*U%/100,L%+Q%!(N%*16)*R%*U%/100+32,X%-Q%!(N%*16+4)*V%*U%/100:ȓȐL%+Q%!(N%*16-8)*R%*U%/100-8-32,X%-Q%!(N%*16-4)*V%*U%/100-8,16,16
{�FȓȐL%+Q%!(N%*16)*R%*U%/100-8+32,X%-Q%!(N%*16+4)*V%*U%/100-8,16,16
{��:�:ș&400ca,,Z%�d%:�:�
{���mu:�W_%<0�
{��Z%!0=k%:Z%!4=0:Z%!8=-t%*V%*U%/100-16:Z%!12=n%*R%*U%/100+16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�N%=0�W_%:�W(3,11)
{��ȓL%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,(f%!(N%*16+8)-f%!(N%*16))*R%*U%/100,-(f%!(N%*16+12)-f%!(N%*16+4))*V%*U%/100:ȓL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16
{��ȓL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+4)*V%*U%/100-8,16,16:ȓL%+f%!(N%*16+8)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16:ȓL%+f%!(N%*16)*R%*U%/100-8,X%-f%!(N%*16+12)*V%*U%/100-8,16,16
{��L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:�L%+f%!(N%*16+8)*R%*U%/100,X%-f%!(N%*16+4)*V%*U%/100,L%+f%!(N%*16)*R%*U%/100,X%-f%!(N%*16+12)*V%*U%/100:�:ș&400ca,,Z%�d%:�:�
{�6��Ia:�A(eJ%,5,�(C)):�A(eJ%,9,�(F)):�T(eJ%,y%,h%):�
{�-��ql(b%,I%):�b%=1�I%=6I%=7��b%=1�I%=7I%=6
{�%�b%=1�I%=10I%=11��b%=1�I%=11I%=10
{�	ȎI%�
{�-�13:F=�(�M(eJ%,9)):C=�(�M(eJ%,5)):�F<1F=1
{��C<1C=1
{�3�A(eJ%,5,�(C)):�A(eJ%,9,�(F)):�b%<>1ș&400d4,-1
{�7�14:�A(eJ%,5,�(C)):�A(eJ%,9,�(F)):�b%<>1ș&400d4,-1
{��6:�i(eJ%,5,999,1)
{��7:�h(eJ%,5,1,1)
{��10:�i(eJ%,9,999,1)
{��11:�h(eJ%,9,1,1)
{�+�:F=�(�M(eJ%,9)):C=�(�M(eJ%,5)):�F<1F=1
{��C<1C=1
{��
{���wa(I%,j%):�j%<>13�I%<>9�
{�)F=�(�M(eJ%,9)):C=�(�M(eJ%,5)):�F<1F=1
{��C<1C=1
{�ș&400d4,-1:�
{�/��VJ:�Wy%<>0�!A<>0�Iy%�(My%?(P%*2+1)�2)<>0�
{��M%!0=zu%:ș&400cb,,M%:M%!4=y%-U_%*2:M%!8=h%-I_%*2:M%!12=y%+U_%*2:M%!16=h%+I_%*2:ș&400c5,,M%:�J(zu%):M%!0=zu%:ș&400cb,,M%:M%!4+=16:M%!12-=16:�M%!12<M%!4�M(zu%):�C("Optical","This character cannot be split as it is too narrow."):�
{ؤZ%!0=1:Z%!1=M%!4�256:Z%!2=M%!4�256:Z%!3=M%!8�256:Z%!4=M%!8�256:Z%!5=M%!12�256:Z%!6=M%!12�256:Z%!7=M%!16�256:Z%!8=M%!16�256:ș7,21,Z%:ra%=-1:�G(e%,-1,-1):Ga%=�:�
{�j��Qa:z%!0=2:z%!4=2:z%!8=1:z%!12=1:�I(A%(Nu%),"Learner",L%,X%-I_%*4,0,z%):�W(3,11):�ra%,X%,ra%,-I_%*4:�
{�L��Iu(b%,I%):M%!0=zu%:ș&400cb,,M%:�q:�s%-M%!4<16�M%!12-s%<16�M(zu%):�m:�
{�Zxn%=s%:M%!24=M%!4+16:M%!28=M%!8:M%!32=M%!12-16:M%!36=M%!16:M%!4=7:ș&400d0,,M%:Ga%=�:�
{����Ol:�zi%,Nk%,CZ%:�q:M%!0=zu%:ș&400cb,,M%:zi%=M%!4:C_%=A%(qy%):K%=�A(Z%(qy%)+1,qy%):�K%=���C("Optical","There is not enough free memory available to split this character. Need an extra 1K."):�
{�nNk%=!(a%+P%*8)�65535:CZ%=!(a%+P%*8+2)�65535:A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:�g:�Wy%<>0�!A<>0�Ȕ_%,k_%
{��uJ%=!b:bJ%=!u:Py%=!w:A%=C_%+Py%:B%=C_%+Py%+1:C%=m%-Py%:�Q:A%=Pu%+P%:B%=Pu%+P%+1:C%=_%-P%:�Q:A%=My%+P%*2:B%=My%+(P%+1)*2:C%=(_%-P%)*2:�Q:A%=a%+P%*8:B%=a%+P%*8+8:C%=(_%-P%)*8:�Q:�Wy%<>0�!A<>0�Ȕ_%,k_%:k_%+=1:!U+=1:!d+=1
{� m%+=1:_%+=1:�xn%>s%�Ȕxn%,s%
{�!(a%+P%*8+8)=Nk%+(xn%-zi%)/4+CZ%*65536:!(a%+P%*8+12)=!(a%+P%*8+4):?(a%+P%*8+2)=(Nk%+(s%-zi%)/4-1)�256:?(a%+P%*8+3)=(Nk%+(s%-zi%)/4-1)�256:�PJ%=0�e_%:�Ky%!(PJ%*4)>P%�Ky%!(PJ%*4)+=1
{�+�:P%+=1:NB%=�:�zy:P%-=1:NB%=�:�zy:�vy%�
{��ey(p_%)
{�#�:m%=Qy%:Xu%=t_%:e_%=Gi%:�Jy:�r
{�+�:�J(e%):�J(R_%):�t:xy%=P%:�M(zu%):�m:�
{���pl:�s%=ra%�
{�M%!0=zu%:ș&400cb,,M%:Z%!0=zu%:Z%!4=0:Z%!8=-I_%*4:Z%!12=U_%*4:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�W(3,11):ȎGa%�
{�ɣ:�ra%>-1�
{��ra%,M%!8,ra%,M%!16
{��:�s%,M%!8,s%,M%!16
{�Eɹ:ȓȐxn%,M%!8,ra%-xn%,M%!16-M%!8:ȓȐxn%,M%!8,s%-xn%,M%!16-M%!8
{� �:ș&400ca,,Z%�d%:�:ra%=s%:�
{�(��ky(F$):�ba%?i%<>255ș&40082,ba%?i%
{�Nș&60081,,F$,14*16,14*16,0,0�OJ%;B_%:�B_%�1��C("Optical",�F(OJ%+4)):OJ%=-1
{�7ba%?i%=OJ%:S$(i%)=F$:�JJ:�A(HJ%,3,F$):�vy%=���Jy:�n
{��S(e%)��J(e%)
{��
{� ��N_(RJ%,Sl%):�v_%:�Sl%<RJ%�
{�.�v_%=RJ%�Sl%:�ba%?v_%<>255ș&40082,ba%?v_%
{�ș&60081,,S$(v_%),14*16,14*16,0,0�OJ%;B_%:�B_%�1��X("Optical","Error while trying to find a display font : "+�F(OJ%+4)):OJ%=255
{�ba%?v_%=OJ%:�:�JJ:�
{����Tl:Z%!0=By%:Z%!4=52:ș&400ce,,Z%:my%=L%+Z%!8+4:A_%=X%+Z%!12+4:n_%=Z%!16-Z%!8-10:cJ%=Z%!20-Z%!12-10:Zn%=n_%*(dl%/5):ș&400e6,11:ȓȐmy%,A_%,Zn%-2,cJ%:ș&400e6,10:ȓȐmy%+Zn%,A_%,n_%-Zn%,cJ%:�
{����fu:Z%!0=By%:ș&400cb,,Z%:L%=Z%!4:X%=Z%!16:Z%!4=52:ș&400ce,,Z%:my%=L%+Z%!8+4:A_%=X%+Z%!12+4:n_%=Z%!16-Z%!8-10:cJ%=Z%!20-Z%!12-10:M%!24=my%:M%!28=A_%:M%!32=my%+n_%:M%!36=A_%+cJ%:M%!4=7:ș&400d0,,M%:VO%=�:�
{�&��O_:�A(By%,55,�(dl%)):�S(By%)=��
{��Z%!0=By%:ș&400cb,,Z%:L%=Z%!4:X%=Z%!16:Z%!4=52:ș&400ce,,Z%:my%=L%+Z%!8+4:A_%=X%+Z%!12+4:n_%=Z%!16-Z%!8-10:cJ%=Z%!20-Z%!12-10:Zn%=n_%*(dl%/5):M%!0=By%:M%!4=Z%!8:M%!8=Z%!12:M%!12=Z%!16:M%!16=Z%!20:ș&400c9,,M%�d%:ȕd%:ș&400e6,11
{�UȓȐmy%,A_%,Zn%-2,cJ%:ș&400e6,10:ȓȐmy%+Zn%,A_%,n_%-Zn%,cJ%:ș&400ca,,M%�d%:�:�
{�}��al:Z%!0=By%:ș&400cb,,Z%:L%=Z%!4:Z%!4=52:ș&400ce,,Z%:my%=L%+Z%!8+4:n_%=Z%!16-Z%!8-10:dl%=(s%-my%)/n_%*5+.5:�dl%<1dl%=1
{��dl%>4dl%=4
{�
�O_:�r_:�
{���r_:Ȏdl%�
{�1�1:!j=1:!Oy=2:!Iy=1:!Y=0:!ey=1:!ry=512:!zy=24
{�1�2:!j=1:!Oy=2:!Iy=1:!Y=0:!ey=0:!ry=384:!zy=32
|/�3:!j=1:!Oy=2:!Iy=1:!Y=0:!ey=0:!ry=0:!zy=56
|/�4:!j=1:!Oy=1:!Iy=1:!Y=0:!ey=0:!ry=0:!zy=80
|�:�
|;��y_:ș&406c2:�D(u_%):�n_(u_%):�G(u_%,6,�(�M(u_%,6))):�
|/��Ga(b%,I%):�(I%>=2�I%<=5)�b%=1�S(u_%,I%,�)
|
�I%=8��PJ
|�
|$��pi(I%,j%):�j%<>13ș&400dc,j%:�
|!�S(u_%,8,1):�PJ:�S(u_%,8,0):�
|	%��PJ:�m:�Z(u_%,2)Al%=200:Ll%=200
|
�Z(u_%,3)Al%=300:Ll%=300
|�Z(u_%,4)Al%=400:Ll%=400
|/�Z(u_%,5)Al%=�(�M(u_%,6)):Ll%=�(�M(u_%,7))
|
�M(u_%):ș&406c0:�Xy:�
|ݤK(fu):�py:py=fu/S:=py*Al%
|ݤR(fu):�py:py=fu/S:=py*Ll%
|"��ml:�Z(u_%,2)AJ%=200:ZJ%=200
|�Z(u_%,3)AJ%=300:ZJ%=300
|�Z(u_%,4)AJ%=400:ZJ%=400
|/�Z(u_%,5)AJ%=�(�M(u_%,6)):ZJ%=�(�M(u_%,7))
|�
|0��Ii(AJ%,ZJ%):�AJ%=200�ZJ%=200��S(u_%,2,1):�
|"�AJ%=300�ZJ%=300��S(u_%,3,1):�
|"�AJ%=400�ZJ%=400��S(u_%,4,1):�
|3�S(u_%,5,1):�A(u_%,6,�(AJ%)):�A(u_%,7,�(ZJ%)):�
|!��Li:�Wy%<>0�!A<>0�Iy%�ou%=0�
|2�Wy%<>0�!A<>0�Iy%�B%=ou%+A%(qy%)�B%=m%+A%(qy%)
|�C%=A%(qy%):D%=p_%:E%=Qy%+A%(qy%):F%=Gy%:G%=Ly%-36:H%=gy%?ha%:!fl=My%:!Au=YB%:�29,L%+2;X%-6;:�il:�29,0;0;:�P%>=0�a_%�(Dy%�jy%)�g(P%,-1)
|�
|&��_J:M%!0=163:M%!4=-1:ș49,M%,Cy:�
|��rl:�P_%,m_%:�Gy%<0Gy%=0
|�Ly%<0Ly%=0
| 3dO%=(Ly%-16)�L_%-1:eO%=(Gy%-16)�L_%+1:�dO%>eO%�
|!�dO%<0dO%=0
|"�eO%<0eO%=0
|#(ș53,-1,3�,,m_%:�m_%=-1�m_%=16000000
|$�(m_%>15�Se%<300)�Qy%=0�
|%ș&4074f,0,-256,0,14
|&"�:ș&4074f,0,-256,&80808000,14
|'��:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!ly=dO%:!G_=eO%:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:P_%=�(gy):�P%>=0�a_%�jy%�g(P%,-1)
|(�
|)!��JJ:�fZ%,CB%,VA%,DB%:�Cy%<0�
|*HL_%=0:ș&60081,,"Trinity.Medium",14*16,14*16,0,0�Jo%;B_%:�(B_%�1)=��
|+>ș&40084,Jo%�,fZ%,CB%,VA%,DB%:�DB%-CB%-2>L_%�L_%=DB%-CB%-2
|,'�:�v_%=0�Cy%:OJ%=ba%?v_%:�OJ%<>255�
|->ș&40084,OJ%�,fZ%,CB%,VA%,DB%:�DB%-CB%-2>L_%�L_%=DB%-CB%-2
|.	�:�:�
|/ݤD(au%):�m%=0�=0
|0�K%=�A(Z%(qy%)*4,Ki%):�K%=���C("Optical","There is not enough memory available to display text with font changes."):vy%=�:�V(Display_Menu%,1):�n:�J(e%):=0
|1Wș&60081,,"Trinity.Medium",14*16,14*16,0,0�Jo%;B_%:�B_%�1��C("Optical",�F(OJ%+4)):�
|2�ș&4074e,0,-256,&dd000000,14�,!gu,!Zl,!mu:ș&4074e,0,-256,&dd6e6e00,14�,!lJ,!Su,!Cu:ș&4074e,0,-256,56576,14�,!Ui,!di,!vi:ș&4074e,0,-256,&bbff00,14�,!iu,!uu,!sa:ș&4074e,0,-256,&cc0000,14�,!pl,!vl,!bl:ș&4074e,0,-256,0,14�,!pi,!Wi,!Fu
|3�ș&4074e,0,-256,&80808000,14�,!bJ,!du,!tJ:A%=A%(Ki%):B%=A%(qy%):C%=Z%(Ki%):D%=au%-1:E%=Jo%:F%=ba%:!yi=Qy%:!Qa=My%+1:!hJ=Se%:pk%=�(zl):K%=�A(pk%+256,Ki%):=pk%
|4��Y_(Vi%,Sl%):�Sl%<Vi%�
|5��gy%?Vu%<>0�Ay%<1�X("Message from Optical","Text cannot be formatted as a table because less than two frames have been defined."):gy%?Vu%=0:�Zy(gy%):�Gy(gy%)
|6CA%=A%(qy%):B%=jB%:C%=Vi%:D%=Sl%-1:E%=My%:F%=KJ%:�Bl:m%=Qy%:�r:�
|71��Jy:�Wy%<>0�!A<>0�Iy%�Ui%=�D(ou%)�Ui%=�D(m%)
|8 ș&40089,,p_%,L_%�,A`%,J`%:�
|9)��g(RJ%,Sl%):�(Wy%<>0�!A<>0�Iy%)�jy%�
|:M�uJ%,bJ%,Py%,el%,BZ%,`r%,Mr%,l_%,RZ%:RZ%=RJ%:�Xa%�B%(0)=-1000:B%(1)=-1000
|;!�Xa%�(RJ%<>B%(0)�RJ%<>B%(1))�
|<!�Xa%=��RJ%<>B%(0)�l_%=1�l_%=0
|=B%(l_%)=RJ%:J%(l_%)=0:�jy%�
|>-ȔRJ%,P%:!o=0:�OJ:ȔRJ%,P%:�!X<100�!R_+=1
|?lSl%=RJ%+!R_-1:�My(RJ%,-1):BZ%=rJ%:`r%=Ou%:�:el%=RJ%+1:zy%=�:Mr%=�:ȕel%<=Sl%�zy%=�:�My(el%,-1):�rJ%>BZ%�
|@el%=el%-1:zy%=�
|A+�:�Ou%<`r%�el%=el%-1:zy%=�:Mr%=��el%+=1
|B�:�:�el%>Sl%�el%=Sl%
|C��My(RJ%,el%):N%(l_%,J%(l_%))=Ou%:Q%(l_%,J%(l_%))=oy%:U%(l_%,J%(l_%))=rJ%:X%(l_%,J%(l_%))=T_%:J%(l_%)+=1:RJ%=el%+1:�Mr%�RJ%+=1
|D
�el%>=Sl%
|E�:�Sl%=-1Sl%=RJ%
|Fk�My(RJ%,Sl%):N%(l_%,J%(l_%))=Ou%:Q%(l_%,J%(l_%))=oy%:U%(l_%,J%(l_%))=rJ%:X%(l_%,J%(l_%))=T_%:J%(l_%)+=1
|G�
|H�:�jy%�W(3,7)��W(3,8)
|I�RZ%=B%(0)�l_%=0�l_%=1
|JY�Fa%=0�J%(l_%)-1:ȓȐL%+N%(l_%,Fa%),X%-U%(l_%,Fa%),Q%(l_%,Fa%),-X%(l_%,Fa%):�:Xa%=�:�
|K��O(RJ%):�uJ%,bJ%,Py%:�Dy%�
|Lș&400d3,,Z%:�Z%!0<>e%�
|M�vy%=��G(e%,-1,-1):�
|N �gy%?Vu%<>0�a_%=��jy%�RJ%=-1
|O�RJ%<0�
|Pș&600d2,e%,-1,-1,-1,-1,-1
|Q�:�RJ%=-1�RJ%=0:F_%=�
|R!�My(RJ%,-1):�F_%�vy%=�Ou%-=16
|S-ș&600d2,e%,-1,Ou%+oy%+2,-rJ%-T_%-4,40,-1
|T�:�
|U%��A_:�rO%,`a%:�vy%�`a%=36�`a%=L_%
|VrO%=2:�P%<0�rJ%=-1�
|W�a_%��S(e%)�
|X@M%!0=e%:ș&400cb,,M%:X%=M%!16-M%!24:�X%-rJ%+4+rO%*`a%>M%!16�
|Y%M%!24=-rJ%+4+rO%*`a%:ș&400c5,,M%
|Z!�:�X%-rJ%+4-`a%-rO%*`a%<M%!8�
|[4M%!24=-rJ%+4-`a%-rO%*`a%+M%!16-M%!8:ș&400c5,,M%
|\�
|]�:�
|^8��My(Wo%,d`%):�vy%=��Ui%=0�Ou%=0:rJ%=0:oy%=0:T_%=0:�
|_	�vy%�
|`4�a(Wo%):Ou%=2+16*uJ%:rJ%=2+36*(bJ%+t_%):�d`%>-1�
|a&�a(d`%):oy%=14+2+16*uJ%-Ou%:T_%=34
|b�:oy%=14:T_%=34
|c�
|dY�:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!Wy=p_%:!Py=L_%:!t_=Wo%:�jy%�!ky=1�!ky=F_%
|e?Bi%=�(m_):Ou%=!ZJ+14:oy%=!Ii:rJ%=!zJ*L_%+4:T_%=L_%:�d`%>-1�
|f=!t_=d`%:!ky=0:Bi%=�(m_):oy%=!ZJ+14-Ou%:T_%+=!zJ*L_%+4-rJ%
|g�:�jy%�rJ%+=8
|h�:�
|i1��ty(RJ%,Sl%):�Ou%,rJ%,oy%,T_%:�Sl%=-1Sl%=RJ%
|jm�KJ(RJ%,Sl%):�W(3,8):ȓȐL%+Ou%*R%*U%/100,X%-(rJ%+1)*V%*U%/100,(oy%-Ou%)*R%*U%/100,-(T_%-rJ%)*V%*U%/100:�
|k���KJ(Wo%,d`%):Ou%=!(a%+Wo%*8)�65535:oy%=!(a%+2+d`%*8)�65535:rJ%=1<<16:T_%=0:�py%=Wo%�d`%:�(!(a%+4+py%*8)�65535)<rJ%�rJ%=!(a%+4+py%*8)�65535
|l6�(!(a%+6+py%*8)�65535)>T_%�T_%=!(a%+6+py%*8)�65535
|m�:�
|n#��FJ:M%!0=e%:ș&400cb,,M%:�vy%�
|o$�((M%!12-M%!4-4)/16)<>p_%�YO%=�
|p�:�M%!12-M%!4-32<>p_%�YO%=�
|q�:�
|r-��By:�gJ:�n:�hy:!Z%=e%:ș&400cb,,Z%:�vy%�
|sZ%!24=-(36*t_%-16)
|t�:Z%!24=-(L_%*t_%-L_%/4)
|u.�:ș&400c5,,Z%:xO%=�:�G(e%,-1,-1):�O(P%):�
|v*��a(py%):�py%=-1�uJ%=0:Py%=Qy%:bJ%=0:�
|wCA%=py%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:�g:uJ%=!b:bJ%=!u:Py%=!w:�
|x3ݤc(KP%):B%=KP%:C%=A%(qy%)+Qy%:D%=m%-Qy%:=�(au)
|y?ݤT(y%,h%):�_%<1�(ou%=0�(Wy%<>0�!A<>0�Iy%))�!K=-1:F_%=�:=!K
|z'�Wy%<>0�!A<>0�Iy%�Ȕm%,ou%:Ȕ_%,Ln%
|{	�vy%�
||>B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:F%=(h%�36)-t_%:G%=y%�16:�kJ
|}��:y%-=8:G%=A%(Ki%):H%=M%:!Gy=Ui%:!Hy=A`%:!Ly=J`%:!Wy=p_%:!Py=L_%:!_y=L%+16:!Ty=X%-L_%:!ti=(h%-16)�L_%:ș&40089,,y%�,y%:!Ll=y%:!K=�(li)
|~�:�jy%�
|�!K=-2�!K=-1
|�!�:�!K=-2�!K>=_%�!K=_%-1:!y_=0
|��Dy%=��
|�F_%=!y_:�F_%�!K+=1
|��
|�)�:�Wy%<>0�!A<>0�Iy%�Ȕm%,ou%:Ȕ_%,Ln%
|�=!K
|���xy:�vy%=��
|�4vy%=�:K%=�A(1,Ki%):�V(Display_Menu%,1):�J(e%):�n
|�A�:�cJ:vy%=�:�y:O_%=-1:YB%=�:�K(Display_Menu%,1):�n:�Jy:�J(e%)
|�-�:ș&600d3,,M%:�M%!0=e%�Dy%=��jy%=��O(P%)
|��
|�t��Au(Y%):�PB%,ho%:ho%=k%:PB%=�(Uu%):M%!0=ho%:ș&400cc,,M%:M%!0=M%!44:M%!4=M%!48:M%!8=M%!52:�PB%�M%!12=0�M%!12=86
|�Bș&400d7,ho%,M%:M%!0=ho%:ș&400cb,,M%:M%!24+=86:ș&400c5,,M%:�
|�o��ra:�C("Optical","It is not possible to go into Type Teaching mode while text is formatted as a table."):�
|���V_:�vy%=��
|�,�Wy%<>0�!A<>0�Iy%�Ui%=�D(ou%)�Ui%=�D(m%)
|��:K%=�A(1,ke%)
|�
�:Ho%=�:�
|�'��`_:�p%:�p%=0�35:kr%?p%=gy%?p%:�:�
|����RJ:�Z(Info_Window%,14):�A(Info_Window%,15,"Neurotron Software"):M%!0=Info_Window%:M%!4=15:ș&400ce,,M%:M%!8=0:M%!12=(1<<1):ș&400cd,,M%:Hn%=1:wu%=�+40:�
|���Bi:�<wu%�
|��Hn%<16�
|�JM%!0=Info_Window%:M%!4=14:ș&400ce,,M%:�(M%!24�(1<<22))<>0�vJ%=0�vJ%=1
|�/M%!8=vJ%*(1<<22):M%!12=(1<<22):ș&400cd,,M%
|��:ȎHn%�
|��1:wu%=�+5
|��2:wu%=�+25
|��3:wu%=�+10
|��4:wu%=�+10
|��5:wu%=�+5
|��6:wu%=�+15
|��7:wu%=�+5
|��8:wu%=�+20
|��9:wu%=�+3
|��10:wu%=�+3
|��11:wu%=�+3
|��12:wu%=�+3
|��13:wu%=�+3
|��14:wu%=�+3
|��15:wu%=�+3
|��16:wu%=�+50
|��:Hn%+=1:�Hn%=18�
|�IHn%=0:M%!0=Info_Window%:M%!4=15:ș&400ce,,M%:M%!8=(1<<1):M%!12=(1<<1)
|��:�
|�0��ru(y%,h%,sy%,ey%):�S(`l%)�y%=Xr%�h%=Br%��
|��_%<1��M(`l%):�
|�,Xr%=y%:Br%=h%:lr%=sy%:fO%=ey%:�c:t`%=�:�
|����du:�qB%,ri%,R%,V%,x`%:t`%=�:y%=Xr%:h%=Br%:sy%=lr%:ey%=fO%:ș46,296,K_%,"bub_corner"�,,,Y_%,o_%:ș46,296,K_%,"bub_start"�,,,zi%,XJ%:Y_%=Y_%*2:o_%=o_%*2:zi%=zi%*2:XJ%=(XJ%-2)*2:�sy%<Y_%+zi%�sy%=Y_%+zi%
|��ey%<o_%�ey%=o_%
|��pJ%=sy%+Y_%:LJ%=ey%+o_%+XJ%:ș53,-1,11�,,qB%:ș53,-1,12�,,ri%:ș53,-1,4�,,R%:ș53,-1,5�,,V%:R%=1<<R%:V%=1<<V%:qB%=qB%*R%-1:ri%=ri%*V%-1:aB%=0:�h%+LJ%>ri%�aB%+=1
|�1aO%=y%-Y_%:�aO%<0aO%=0:LB%=pJ%�LB%=y%-Y_%+pJ%
|�0B`%=0:�LB%>=qB%�B`%=LB%-qB%:aO%-=B`%:LB%=qB%
|�(�B`%>pJ%-2*Y_%-zi%�B`%=pJ%-2*Y_%-zi%
|��aB%�1�
|��vy%�x`%=-36�x`%=-L_%-4
|�IB%=h%+x`%-LJ%:TB%=h%+x`%
|��:IB%=h%+2:TB%=h%+LJ%+2
|�,�:�TB%>ri%�TB%=ri%+1:IB%=ri%-LJ%+1:aB%=1
|��IB%<0�IB%=0:TB%=LJ%:aB%=0
|�WZ%!0=`l%:ș&400cb,,Z%:Z%!4=aO%:Z%!8=IB%:Z%!12=LB%:Z%!16=TB%:Z%!28=-1:ș&400c5,,Z%:�
|�7��_u:�da%,QO%,nk%,SZ%,Gp%,Np%,qr%,BA%,l,G_%:�a_%=��
|�(z%!0=1:z%!4=1:z%!8=1:z%!12=1:�aB%�1�
|���I(K_%,"bub_corner",L%,X%-o_%-XJ%,8,z%):ș46,289,K_%,"bub_corner":�I(K_%,"bub_corner",L%,X%-LJ%,8,z%):ș46,303,K_%,"bub_corner":�I(K_%,"bub_corner",L%+pJ%-Y_%,X%-LJ%,8,z%):ș46,289,K_%,"bub_corner":�I(K_%,"bub_corner",L%+pJ%-Y_%,X%-o_%-XJ%,8,z%)
|��ș46,303,K_%,"bub_corner":ș&400e6,9:ȓȐL%+4,X%-o_%-XJ%,pJ%-8,-(LJ%-XJ%-2*o_%):ȓȐL%+Y_%,X%-4-XJ%,pJ%-Y_%*2,-(LJ%-XJ%-8):ș&400e6,7:ȓȐL%,X%-o_%-XJ%,2,-(LJ%-XJ%-2*o_%):ȓȐL%+Y_%,X%-XJ%-2,pJ%-Y_%*2,-2:ȓȐL%+pJ%-4,X%-o_%-XJ%,2,-(LJ%-XJ%-2*o_%)
|��ȓȐL%+Y_%,X%-LJ%,pJ%-Y_%*2,2:ș46,289,K_%,"bub_start":�I(K_%,"bub_start",L%+Y_%+B`%,X%-XJ%-4,8,z%):ș46,289,K_%,"bub_start":�26,24,L%+Y_%/2;X%-LJ%+o_%/2;L%+pJ%-Y_%/2;X%-XJ%-o_%/2;:da%=L%+Y_%/2:QO%=X%-XJ%-o_%/2
|���:�I(K_%,"bub_corner",L%,X%-o_%,8,z%):ș46,289,K_%,"bub_corner":�I(K_%,"bub_corner",L%,X%-LJ%+XJ%,8,z%):ș46,303,K_%,"bub_corner":�I(K_%,"bub_corner",L%+pJ%-Y_%,X%-LJ%+XJ%,8,z%):ș46,289,K_%,"bub_corner":�I(K_%,"bub_corner",L%+pJ%-Y_%,X%-o_%,8,z%)
|��ș46,303,K_%,"bub_corner":ș&400e6,9:ȓȐL%+4,X%-o_%,pJ%-8,-(LJ%-XJ%-2*o_%):ȓȐL%+Y_%,X%-4,pJ%-Y_%*2,-(LJ%-XJ%-8):ș&400e6,7:ȓȐL%,X%-o_%,2,-(LJ%-XJ%-2*o_%):ȓȐL%+Y_%,X%-2,pJ%-Y_%*2,-2:ȓȐL%+pJ%-4,X%-o_%,2,-(LJ%-XJ%-2*o_%)
|äȓȐL%+Y_%,X%-(LJ%-XJ%),pJ%-Y_%*2,2:�I(K_%,"bub_start",L%+Y_%+B`%,X%-LJ%,8,z%):�26,24,L%+Y_%/2;X%-LJ%+XJ%+o_%/2;L%+pJ%-Y_%/2;X%-o_%/2;:da%=L%+Y_%/2:QO%=X%-o_%/2
|Ŀ�:nk%=!(a%+Xi%*8)�65535:SZ%=(!(a%+Xi%*8))>>16:D%=Ky%:E%=Xi%:!M=�(Ay):qr%=nk%+(SZ%-nk%)/2:BA%=fJ%!(!M*4)+(qr%*ru%!(!M*4))/1024:l=fO%/(r_%!(!M*4)*V%)/2:Au%=r_%!(!M*4)*V%*2:n_%=fO%:�Au%>n_%�
|�XH=(1<<16)/n_%*Au%:n_%=(1<<16)/H*(1<<16):z%!0=n_%:z%!8=(1<<16):z%!4=n_%:z%!12=(1<<16)
|�@�:H=(1<<16)/n_%*Au%:z%!0=(1<<16):z%!8=H:z%!4=(1<<16):z%!12=H
|���:da%=da%+(pJ%-Y_%)/2-(R%*qr%)*l-lr%/4:QO%=QO%-(LJ%-o_%)/2-(V%*(t%-BA%))*l+fO%/10:M%!0=&eeee00:M%!4=0:ș&40740,18,M%,-1,-1,kk%:�I(A%(`%),M$,da%,QO%,256,z%):�KJ(Xi%,Xi%):ș&400e6,11:�da%+Ou%*R%*l-4,X%,da%+Ou%*R%*l-4,X%-LJ%
|�*�da%+oy%*R%*l,X%,da%+oy%*R%*l,X%-LJ%:�
|�
��c:�t`%�
|��S(`l%)=��
|�!M%!0=`l%:ș&400c6,,M%:t`%=�:�
|���Mi(b%,I%):�(b%�1792)=��
|��gu(Y%,I%�3):Ȏ(I%�3)�
|΍�0:�X("Message from Optical","MLE is not functional with this version of Optical. For a full version please contact Neurotron Software.")
|��:�
|��ݤo(Wl%,mn%,HO%,FP%,x$,XP%,Le%):S_%!0=Wl%:S_%!4=24:S_%!8=-44-44*mn%:S_%!12=HO%-24:S_%!16=0-44*mn%:S_%!20=17:S_%!20+=10*(1<<12):S_%!20+=1*(1<<16):S_%!20+=7*(1<<24):S_%!20+=7*(1<<28):�Le%S_%!20+=(1<<22)
|ўx$=�x$,(HO%-64)/16):$(S_%+24)=x$+�0:ș&400c2,,S_%:S_%!0=Wl%:S_%!4=0:S_%!8=-44-44*mn%:S_%!12=22:S_%!16=0-44*mn%:S_%!20=16:S_%!20+=10*(1<<12):�FP%�S_%!20+=2
|�;S_%!20+=7*(1<<24):S_%!20+=7*(1<<28):�Le%S_%!20+=(1<<22)
|ӑ$(S_%+24)="�"+�0:ș&400c2,,S_%:S_%!0=Wl%:S_%!4=HO%-24:S_%!8=-44-44*mn%:S_%!12=HO%:S_%!16=0-44*mn%:S_%!20=24:S_%!20+=10*(1<<12):�XP%�S_%!20+=2
|�IS_%!20+=1<<16:S_%!20+=7*(1<<24):S_%!20+=7*(1<<28):�Le%S_%!20+=(1<<22)
|�)$(S_%+24)="�"+�0:ș&400c2,,S_%:=mn%+1
|�'��Hl(Wl%,I%):�(I%�3)>0�iy(Wl%,I%�3)
|��
|�jݤZy(Q$):Z%!0=0:Z%!4=0:Z%!8=200:Z%!12=200:Z%!16=0:Z%!20=0:Z%!24=-1:Z%!28=&80000010:�(Q$)�Z%!28+=1<<26
|��(Q$)�Z%?32=7�Z%?32=7
|ڱZ%?33=2:Z%?34=7:Z%?35=0:Z%?36=3:Z%?37=1:Z%?38=12:Z%?39=0:Z%!40=0:Z%!44=-2048:Z%!48=2048:Z%!52=0:Z%!56=61:Z%!60=0:Z%!64=1:Z%!68=0:$(Z%+72)=Q$+�0:Z%!84=0:ș&400c1,,Z%�Wl%:=Wl%
|���wu(sl%):�q(Y%)=��sl%=0:�
|�?NA%=�v:M%!0=sl%:ș&400cb,,M%:�GJ(Ci%,NA%,_k%,M%!4,M%!8-4):�
|�*ݤv:�xr%:�Ci%<>0�M%!0=Ci%:ș&400c3,,M%
|ކCi%=�Zy(""):M%!0=sl%:ș&400cb,,M%:_k%=M%!12-M%!4:ș&400d3,,M%:Z%!0=20:Z%!12=0:ș&400e7,19,Z%,M%!0�,,xi%:xr%=(xi%<>WZ%):�i_%=�xr%=�
|�#=�o(Ci%,0,_k%,�,"OCR...",�,xr%)
|�{��GJ(Wl%,pA%,HO%,y%,h%):Z%!0=Wl%:Z%!4=y%:Z%!8=h%-42*pA%:Z%!12=y%+HO%:Z%!16=h%+2:Z%!20=0:Z%!24=0:Z%!28=-1:ș&400c5,,Z%:�
|�A��iy(Wl%,I%):Z%!0=Wl%:Z%!4=I%*3:ș&400ce,,Z%:�Z%!24�(1<<21)��
|�<Z%!0=Wl%:Z%!4=I%*3:Z%!8=1<<21:Z%!12=1<<21:ș&400cd,,Z%:�
|�E��uy(Wl%,I%):Z%!0=Wl%:Z%!4=I%*3:ș&400ce,,Z%:�(Z%!24�(1<<21))=0��
|�8Z%!0=Wl%:Z%!4=I%*3:Z%!8=1<<21:Z%!12=0:ș&400cd,,Z%:�
|���dl:ȎY%�
|�)�Ci%:�on%=Y%�_B%<>(I%�3)��uy(on%,_B%)
|��I%=-1�
|� on%=Y%:_B%=I%�3:�iy(Y%,I%�3)
|�:Ȏon%�
|�#�Ci%:�uy(on%,_B%):on%=-1:_B%=-1
|��
|��:�
|�B��gu(Wl%,I%):�uy(Wl%,I%):�iy(Wl%,I%):�uy(Wl%,I%):�iy(Wl%,I%):�
|�M��Gl:M%!0=sl%:ș&400cb,,M%:�M%!4<>br%�M%!8<>yr%�GJ(Ci%,1,_k%,M%!4,M%!8-4)
|�br%=M%!4:yr%=M%!8:�
|�ݤq(Y%):�S(Y%)=��=�
|��s(Y%)<>Ly$�=�
|�@Z%!0=Y%:ș&400cb,,Z%:s%=Z%!12-Z%!4:v%=Z%!16-Z%!8:�MZ%<>v%�=�
|�=�
|�4��S(M%!0,M%!4,vJ%):�wO%,xA%,er%:�vJ%�vJ%=1�vJ%=0
|�.ș&400ce,,M%:�(M%!24�(1<<21))=vJ%*(1<<21)�
|�^er%=M%!24�(15*(1<<16)):xA%=M%!4:M%!8=vJ%*(1<<21):M%!12=(1<<21):ș&400cd,,M%:�vJ%=1�er%<>0�
|�Gș&400d6,M%!0,fk%,15*(1<<16),er%:wO%=0:ȕfk%!wO%<>-1:�fk%!wO%<>xA%�
|�@M`%!0=M%!0:M`%!4=fk%!wO%:ș&400ce,,M`%:�(M`%!24�(1<<21))<>0�
|�(M`%!8=0:M`%!12=(1<<21):ș&400cd,,M`%
|��
|��:wO%+=4:�
|��:�
|�5ݤZ(M%!0,M%!4):ș&400ce,,M%:�(M%!24�(1<<21))=0�=�
|�=�
|�4ݤS(Y%):�wy%:M%!0=Y%:ș&600cb,,M%�,wy%:�wy%�1�=�
}�(M%!32�(1<<16))=0�=�
}=�
}4��u_(Y%,Q$):M%!0=Y%:ș&400cc,,M%:�(M%!60�256)=��
}$$(M%!76)=Q$+�0:�(M%!32�65536)=��
}+ș&400d1,-1,M%!4,M%!16,M%!12,M%!16+36:�
}eݤj:pB%=�y:�pB%=-1��C("Optical","There is not enough memory available to load Optical"):ma%=�:=-1
}X�pB%=-2��C("Optical","Not all the RISC OS fonts could be included in the font menu")
}=pB%
}bݤy:�Do%,v_%,a$,V$,D$,l$,r%,Uy%,w`%,Hi%:Do%=-1:v_%=0:l$="":Du%=0:xa%=0:K%=�A(28,Ti%):�K%=��=-1
}	�r%=A%(Ti%):$r%="Font list"+�0:r%?12=7:r%?13=2:r%?14=7:r%?15=0:r%!20=44:r%!24=0:Uy%=0:Hi%=0:Yl%=0:ȕv_%<>-1:ș&40091,,M%,v_%,-1�,,v_%:�v_%<>-1�
}
Ba$=$M%:V$=�a$,�a$,".")-1):�a$,".")=0�D$=""�D$=�a$,�a$,".")+1)
}�(V$)>Uy%�Uy%=�(V$)
}�(D$)>w`%�w`%=�(D$)
}
�V$=l$�
}%�Du%=0�Hi%+�("(Regular)"+�0)<Pk%�
}�Do%+=1:r%!4=gi%+Yl%:Du%=1:r%=gi%+Yl%:$r%=V$+�0:r%?12=7:r%?13=2:r%?14=7:r%?15=0:r%!20=44:r%!24=0:w`%=�("(Regular)"):r%=gi%+Yl%+28+(Du%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000121:r%!12=RB%+Hi%:r%!16=-1:r%!20=40:$(RB%+Hi%)="(Regular)"+�0:Hi%+=�("(Regular)"+�0)
}��:Du%+=1:r%=gi%+Yl%+28+(Du%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000121:r%!12=RB%+Hi%:r%!16=-1:r%!20=40:$(RB%+Hi%)=D$+�0:Hi%+=�(D$+�0)
}"�:l$=V$:�Do%>=ao%-1�D$<>""�=-2
}�Du%>0�
}Dr%=gi%+Yl%:r%!16=16*(w`%+1):r%=gi%+Yl%+28+(Du%-1)*24:!r%+=(1<<7)
}�:�Du%>0�Yl%+=28+24*Du%
}�Yl%>ao%-1576�=-2
})xa%+=1:K%=�A(28+xa%*24,Ti%):�K%=��=-1
}mr%=A%(Ti%)+28+(xa%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000021:V$=�V$,11):$(r%+12)=V$+�0:�D$<>""�Hi%+�(D$+�0)<Pk%�
}�Do%+=1:r%!4=gi%+Yl%:Du%=1:r%=gi%+Yl%:$r%=V$+�0:r%?12=7:r%?13=2:r%?14=7:r%?15=0:r%!20=44:r%!24=0:w`%=�(D$):r%=gi%+Yl%+28+(Du%-1)*24:r%!0=0:r%!4=-1:r%!8=&7000121:r%!12=RB%+Hi%:r%!16=-1:r%!20=40:$(RB%+Hi%)=D$+�0:Hi%+=�(D$+�0)
}�:Du%=0
}�
}�
}�:�:�xa%>0�
}Lr%=A%(Ti%):r%!16=16*(Uy%+1):r%=A%(Ti%)+28+(xa%-1)*24:!r%+=(1<<7):�Du%>0�
}Dr%=gi%+Yl%:r%!16=16*(w`%+1):r%=gi%+Yl%+28+(Du%-1)*24:!r%+=(1<<7)
}�
} +�:xa%+=1:K%=�A(28+xa%*24,Ti%):�K%=��=-1
}!or%=A%(Ti%):r%!16=16*5:r%=A%(Ti%)+28+(xa%-1)*24:r%!0=(1<<7):r%!4=-1:r%!8=&7000021+(1<<22):$(r%+12)="None"+�0
}"�:=A%(Ti%)
}#��Y(M$):�R%,V%:ȎM$�
}$�"ptr_move":y%=10:h%=18
}%�"ptr_adjust":y%=12:h%=12
}&�"ptr_delete":y%=12:h%=12
}'I�"ptr_rotate":ș53,-1,4�,,R%:ș53,-1,5�,,V%:R%=1<<R%:V%=1<<V%:�V%=R%�
}(y%=5:h%=6:M$="ptr_rotate2"
}) �:y%=5:h%=3:M$="ptr_rotate1"
}*�
}+y%=0:h%=0
},�:lk%!0=&3020100:�M$=""�
}-*ș&400e9,36,,"ptr_default",2,0,0,0,lk%
}.&�:ș46,256+36,K_%,M$,2,y%,h%,0,lk%
}/�:�
}0'��P(M%!0,M%!4,vJ%):�vJ%�vJ%=1�vJ%=0
}1.ș&400ce,,M%:�(M%!24�(1<<22))=vJ%*(1<<22)�
}21M%!8=vJ%*(1<<22):M%!12=(1<<22):ș&400cd,,M%:�
}3.ݤa(M%!0,M%!4):ș&400ce,,M%:=M%!24�(1<<22)
}4���m:�sy%,ey%,R%,V%:ș53,-1,11�,,sy%:ș53,-1,12�,,ey%:ș53,-1,4�,,R%:ș53,-1,5�,,V%:R%=1<<R%:V%=1<<V%:sy%=sy%*R%:ey%=ey%*V%:Z%!0=1:Z%!1=0�256:Z%!2=0�256:Z%!3=0�256:Z%!4=0�256:Z%!5=sy%�256:Z%!6=sy%�256:Z%!7=ey%�256:Z%!8=ey%�256:ș7,21,Z%:�26:�
}5���n_(M%!0):ș&400cb,,M%:Z%!0=1:Z%!1=M%!4�256:Z%!2=M%!4�256:Z%!3=M%!8�256:Z%!4=M%!8�256:Z%!5=M%!12�256:Z%!6=M%!12�256:Z%!7=M%!16�256:Z%!8=M%!16�256:ș7,21,Z%:�
}66��i(Y%,I%,he%,Ko%):�DJ%:DJ%=�(�M(Y%,I%)):�DJ%=he%�
}7!�DJ%+Ko%>he%�DJ%=he%�DJ%+=Ko%
}8�A(Y%,I%,�(DJ%)):�
}96��h(Y%,I%,Ye%,Ko%):�DJ%:DJ%=�(�M(Y%,I%)):�DJ%=Ye%�
}:!�DJ%-Ko%<Ye%�DJ%=Ye%�DJ%-=Ko%
};�A(Y%,I%,�(DJ%)):�
}<?��Ly(Y%,I%):�ay%:ay%=�(�M(Y%,I%)):ș&600d2,Y%,I%,,,-1,ay%:�
}=2��G_(au%):�wi%:wi%=0:�(au%!28�(1<<28))�wi%+=42
}>~wi%+=au%!8-au%!0:ș53,-1,11�,,sy%:ș53,-1,4�,,R%:R%=1<<R%:sy%=(sy%+1)*R%:au%!8=(sy%-wi%)/2+au%!8-au%!0:au%!0=(sy%-wi%)/2:�
}?2��_y(au%):�wi%:wi%=0:�(au%!28�(1<<26))�wi%+=42
}@�wi%+=au%!12-au%!4:ș53,-1,12�,,ey%:ș53,-1,5�,,V%:V%=1<<V%:ey%=(ey%+1)*V%:au%!12=(ey%-wi%)/2+au%!12-au%!4:au%!4=(ey%-wi%)/2:�
}A���qy(Q$,O$,Vy$,Jy$,Py$,q%):OA%=q%:M%!0=iJ%:M%!4=7:ș&400c4,,M%:M%!0=iJ%:M%!4=130:M%!12=146+16*�(Q$):M%!8=-64:M%!16=-20:M%!20=313+7*(1<<24)+1*(1<<28):M%!24=iZ%:M%!28=-1:M%!32=40:$iZ%=Q$:ș&400c2,,M%:�A(iJ%,5,O$):�A(iJ%,1,Vy$):M%!0=iJ%:M%!4=4:�Jy$=""�
}B<M%!8=0:M%!12=(1<<2)+15*(1<<12):ș&400cd,,M%:�A(iJ%,4,"")
}CN�:M%!8=(1<<2)+3*(1<<12):M%!12=(1<<2)+15*(1<<12):ș&400cd,,M%:�A(iJ%,4,Jy$)
}D�:M%!4=6:�Py$=""�
}E<M%!8=0:M%!12=(1<<2)+15*(1<<12):ș&400cd,,M%:�A(iJ%,6,"")
}FN�:M%!8=(1<<2)+3*(1<<12):M%!12=(1<<2)+15*(1<<12):ș&400cd,,M%:�A(iJ%,6,Py$)
}GK�:�D(iJ%):�n_(iJ%):�Y(""):ș&400d3,,il%:ș&600d2,iJ%,-1,0,0,(1<<25),0:�
}H��aJ(b%,I%):�b%>7�
}I�Ya%:ȎI%�
}J�1:Ya%=0
}K�4:Ya%=1
}L�6:Ya%=2
}M�
}NG�:�m:ș&600d2,il%!0,il%!4,il%!8,il%!12,il%!16,il%!20:�M(iJ%):ȎOA%�
}O�0:S$=_$:Ku%=�S(iy%):ȎYa%�
}P
�0:�Ai
}Q
�1:�SJ
}R�
}S�1:S$=_$:Ku%=�S(iy%):ȎYa%�
}T
�0:�Ql
}U
�1:�mJ
}V�
}W�2:S$=_$:ȎYa%�
}X �0:ș&406c0:�ny(S$):ș&406c1
}Y �1:ș&406c0:�na(S$):ș&406c1
}Z�
}[
�3:ȎYa%�
}\�0:�RO%�
}]�nu
}^	�:�YJ
}_�
}`�2:ș&406c0:Ȏg`%�
}aR�0:�T(SaveText_Window%,y%,h%):�G(SaveText_Window%,1,�(�M(SaveText_Window%,1)))
}b�1:�T(SaveF_Window%,y%,h%)
}cJ�2:�("Save <OptclPro$Dir>.Dictionary "+�~(A%(MJ%))+" +"+�~(La%)):fa%=�
}d�:ș&406c1
}e�
}f�:�
}g��Zl(I%,j%):Ȏj%�
}hB�27:�m:ș&600d2,il%!0,il%!4,il%!8,il%!12,il%!16,il%!20:�M(iJ%)
}i+�13,10:�S(iJ%,1,�):�aJ(4,1):�S(iJ%,1,�)
}j�:�
}k��YJ:RO%=�:Ȏg`%�
}l
�0:�h_
}m
�1:�fy
}n�2:fa%=�
}o
�3:�Hy
}p�4:!A=0
}qf�:�pi%=��s("Warning from Optical","The text has been updated. Are you sure you want to quit?",0):�
}r��Ta%=��s("Warning from Optical","You have not saved your updated character definitions. Are you sure you want to quit?",1):�
}sg�fa%=��s("Warning from Optical","The lexicon has been updated. Are you sure you want to quit?",2):�
}te�Wy%�s("Warning from Optical","Optical is currently reading. Are you sure you want to quit?",3):�
}uk�!A�s("Warning from Optical","Optical is currently spell checking. Are you sure you want to quit?",4):�
}vma%=�:�
}w��nu:RO%=�:Ȏg`%�
}x
�0:�h_
}y
�1:�fy
}z�2:fa%=�
}{
�3:�Hy
}|�4:!A=0
}}f�:�pi%=��s("Warning from Optical","The text has been updated. Are you sure you want to quit?",0):�
}~��Ta%=��s("Warning from Optical","You have not saved your updated character definitions. Are you sure you want to quit?",1):�
}g�fa%=��s("Warning from Optical","The lexicon has been updated. Are you sure you want to quit?",2):�
}�e�Wy%�s("Warning from Optical","Optical is currently reading. Are you sure you want to quit?",3):�
}�k�!A�s("Warning from Optical","Optical is currently spell checking. Are you sure you want to quit?",4):�
}��Hy:�h_:�fy:fa%=�:�zi:�
}����XJ(Y%,I%,n$):�ne%,fe%,hZ%,nZ%,QZ%,UZ%:M%!0=Y%:ș&400cb,,M%:ne%=M%!4:fe%=M%!16:M%!4=I%:ș&400ce,,M%:hZ%=M%!8:nZ%=M%!12:QZ%=M%!16:UZ%=M%!20:M%!0=Y%:M%!4=5:M%!8=(ne%+hZ%):M%!12=(fe%+nZ%):M%!16=(ne%+QZ%):M%!20=(fe%+UZ%):M%!24=1:M%!28=1:M%!32=&7fffffff
}�M%!36=&7fffffff:�No%�
}�ș&62400,133,1,n$,M%+8�;wy%
}��:ș&400d0,,M%
}��:�
}�'��I(Tr%,n$,y%,h%,U`%,Wa%):�U`%�256�
}�*U`%=U`%�255:ș&400ed,256,Tr%,n$,,,,Oi%
}�$�:ș&400ed,256,Tr%,n$,,,,Oi%,kk%
}���:Oi%!0=(Oi%!0)*(Wa%!0):Oi%!4=(Oi%!4)*(Wa%!4):Oi%!8=(Oi%!8)*(Wa%!8):Oi%!12=(Oi%!12)*(Wa%!12):ș46,308,Tr%,n$,y%,h%,U`%,Oi%,kk%:�
}�2ݤm(al%):�mJ%,in%:���26,4:�$;" at line ";�:�
}��ș&400ec,-1,-1�,,in%:�in%<512*al%+30720��C("Optical","There is insufficient memory available to run Optical. Need at least an extra "+�((512*al%+30720-in%)�1024)+"K."):�ry:ș&400dd,rn%,"TASK":�
}�CVi%=Ae%:�mJ%=0�al%-1:nn%!(mJ%*4)=Vi%:A%(mJ%)=nn%!(mJ%*4):ȎmJ%�
}�<�J_%,Nu%,`y%,qJ%:ci%!(mJ%*4)=8192:Z%(mJ%)=8192:Vi%+=8192
}�*:ci%!(mJ%*4)=512:Z%(mJ%)=512:Vi%+=512
}��:�:ș&400ec,jn%+�I,-1:=�
}�;ݤI:�mJ%,X`%:X`%=0:�mJ%=0�al%-1:X`%+=ci%!(mJ%*4):�:=X`%
}�CݤMy(RJ%):�mJ%,X`%:X`%=0:�mJ%=RJ%�al%-1:X`%+=ci%!(mJ%*4):�:=X`%
}�,ݤA(Ar%,Ja%):�in%,ei%,mJ%,IZ%,RJ%:ȎJa%�
}�/�J_%,Nu%,`y%,qJ%:qk%=8192*((Ar%+8192)�8192)
}�:qk%=512*((Ar%+512)�512)
}�7�:ei%=qk%-ci%!(Ja%*4):�ei%=0�Z%(Ja%)=ci%!(Ja%*4):=�
}�2ș&400ec,-1,-1�IZ%,,in%:�ei%>in%+IZ%-�I-jn%�=�
}�8ci%!(Ja%*4)=qk%:Z%(Ja%)=Ar%:�ei%>0ș&400ec,jn%+�I,-1
}��Ja%<al%-1�
}�6A%=nn%!((Ja%+1)*4):B%=A%+ei%:C%=�My(Ja%+1):�ei%>0�
}��Ia
}�	�:�`J
}�=�:�mJ%=Ja%+1�al%-1:nn%!(mJ%*4)+=ei%:A%(mJ%)=nn%!(mJ%*4):�
}��:�ei%<0ș&400ec,jn%+�I,-1
}��S(R`%)�R_
}�=�
}����R_:�_n%,mJ%:�mJ%=0�18:�A(R`%,4+mJ%*3,"&"+�~(nn%!(mJ%*4))):�A(R`%,6+mJ%*3,"&"+�~(ci%!(mJ%*4))):�:ș&400ec,-1,-1�_n%:�A(R`%,53,"&"+�~(_n%-jn%+Ae%)):�
}����Py(Y%,y%,h%):!Z%=Y%:ș&400cb,,Z%:Z%!12=y%+Z%!12-Z%!4:Z%!4=y%:Z%!8=h%-(Z%!16-Z%!8):Z%!16=h%:Z%!28=-1:ș&400c5,,Z%:�Y%=w%�D(V_%)
}��Y%=IJ%�D(jJ%)
}��
}�H��q:ș&400cf,,b`%:s%=b`%!0:v%=b`%!4:Sk%=b`%!16:Zo%=b`%!12:b%=b`%!8:�
}�>��o(Y%,I%,Ny$):M%!0=Y%:M%!4=I%:ș&400ce,,M%:�$(M%!32)=Ny$�
}�.$(M%!32)=Ny$:M%!8=0:M%!12=0:ș&400cd,,M%:�
}�7��Vu(Ap%):�:��Z%!12=Z%!8:ș&400e7,19,Z%,Z%!4:��:�
}��#Ap%,"Run "+By$:�
}���`l(b%,I%):�Fy%=0�
}�dZ%!0=V_%:ș&400cb,,Z%:X%=Z%!16-Z%!24:ș&400cf,,Z%:v%=Z%!4:uy%=X%-v%:hJ%=(uy%-4)�40:lO%=oJ%:�Qa%�
}��hJ%>ol%-1�
}�
oJ%=-1
}��:oJ%=hJ%:ȎFy%�
}���1:q%=0:ȕhJ%-W%(q%)>=0:hJ%-=W%(q%):q%+=1:�:C%=`u%:B%=hJ%:F%=hu%:G%=ja%:D%=A%(MJ%):E%=!(A%(MJ%)+q%*4):�q%<25�H%=!(A%(MJ%)+(q%+1)*4)-1�H%=La%*2
}��Ra:A$=$`u%
}�+�2:ș"XSpell_GetWord",oJ%�,A$:A$=�H(A$)
}�A�3:A%=A%(X_%)+4:B%=hJ%:q%=�(jy):hJ%=!iy:�!(A%(X_%)+q%*8)<>-1�
}�LA%=hJ%:B%=A%(X_%)+2048+!(A%(X_%)+q%*8):C%=`u%:D%=zl%-!(A%(X_%)+q%*8):�by
}��:A$=""
}�
�:A$=$`u%
}��:�P%>=0�ei
}��A(w%,1,A$):�G(w%,1,�(A$))
}��
}��:�hJ%>lJ%�
}�
oJ%=-1
}��:�lJ%>=0�
}�&oJ%=hJ%:A$=�_(hJ%):�ek%=�A$=�H(A$)
}��A(w%,1,A$):�G(w%,1,�(A$))
}��
}��
}��:�lO%<>oJ%�
}‘Z%!0=V_%:Z%!4=0:Z%!8=-ol%*40-40:Z%!12=362:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:ȕd%:�W(3,8):�lO%>=0ȓȐL%,X%-4-40*lO%,368,-36
}�%�oJ%>=0ȓȐL%,X%-4-40*oJ%,368,-36
}�ș&400ca,,Z%�d%:�
}��:�
}�{ݤH(A$):�YJ%,O%:�YJ%=1��(A$):O%=�(�A$,YJ%,1)):�(O%>=�("A")�O%<=�("Z"))�(O%>=�("�")�O%<=�("�"))�O%=7��A$,YJ%,1)=�(O%+32)
}�	�:=A$
}�/ݤ`(A$):�YJ%=1��(A$):O%=�(�A$,YJ%,1)):ȎO%�
}�ɗ("0"):�A$,YJ%,1)="O"
}�ɗ("1"):�A$,YJ%,1)="l"
}�ɗ("5"):�A$,YJ%,1)="S"
}��:�:=A$
}���Ju(b%,I%):ȎI%�
}��0
}��2:Yn%=�:�x_:�M(w%):�M(V_%)
}�
�3:�f_
}��4
}�
�5:�fJ
}�"�6:!q=0:�:�Vy:�si%>m%-1�d_%=-1
}�6�7:Z%!0=w%:Z%!4=7:ș&400ce,,Z%:Vn%=(Z%!24)�(1<<21)
}�8�10:Z%!0=w%:Z%!4=10:ș&400ce,,Z%:do%=(Z%!24)�(1<<21)
}�
�8:�Yi
}��11:�Pu(�M(w%,1))
}��14:�cJ
}��13,12:�jJ:�T(TJ%,y%,h%)
}��:�
}�v��Mu:�ay%,Ge%,Yy$,py%,l%,Cl%,hu%,iu%:�m%=0�_%<=1��X("Message from Optical","There is no text to replace."):O`%=�:�
}�X�P%=-1�X("Message from Optical","Select position to replace text at first."):O`%=�:�
}��ry%A$=u$�A$=�M(w%,1)
}�[�(A$)=0�X("Message from Optical","You have to enter a word to replace first!"):O`%=�:�
}��ry%=��OJ:Ul%=�z(P%,�(A$))
}�Tay%=0:�a(P%):l%=Py%:C_%=A%(qy%):Yy$=�F(Ql%):ay%=!R_-!gi:K%=�:�!X>256�y_%=0�y_%=1
}�,�(A$)<>ay%�!A<>0�Wy%<>0�Iy%<>0�Ȕ_%,k_%
}�iu%=�(A$)-ay%:�(A$)>ay%�
}�"K%=�A(m%+ay%-�(A$),qy%):�K%=��
}��C("Optical","There is not enough free memory available to replace this word. Need an extra 1K."):ry%=�:�!A<>0�Wy%<>0�Iy%�Ȕ_%,k_%
}���:A%=C_%+Py%+ay%:B%=C_%+Py%+�(A$):C%=m%-Py%-ay%:�Q:A%=a%+(P%+ay%)*8:B%=a%+(P%+�(A$))*8:C%=(_%-P%-ay%)*8:�Q:A%=My%+(P%+ay%)*2:B%=My%+(P%+�(A$))*2:C%=(_%-P%-ay%)*2:�Q:A%=Pu%+P%+ay%:B%=Pu%+P%+�(A$):C%=_%-P%-ay%:�Q:�Wy%<>0�!A<>0�Iy%�Ȕ_%,k_%
}�>m%+=iu%:_%+=iu%:�!A<>0�Wy%<>0�Iy%�k_%+=iu%:!U+=iu%:!d+=iu%
}��A$=r$�
}�T�Bi%=0��(A$)-1:!(a%+(P%+Bi%)*8)=!(sO%+Bi%*8):!(a%+(P%+Bi%)*8+4)=!(sO%+Bi%*8+4):�
}�r�:�_y%=P%+ay%+y_%�P%+�(A$)-1+y_%�8:!(a%+_y%*8)=!(a%+(P%+ay%-1+y_%)*8):!(a%+_y%*8+4)=!(a%+(P%+ay%-1+y_%)*8+4):�
}�%�:hu%=�:�PJ%=0�e_%:�!X<256�hu%=��
}��Ky%!(PJ%*4)>P%�hu%=�
}�,�:�Ky%!(PJ%*4)>P%�Ky%!(PJ%*4)+=�(A$)-ay%
}��:�
}��
}��:�K%=�O`%=�:�
}��ay%>�(A$)�
}�
�K%=��
}��C("Optical","There is not enough free memory available to replace this word. Need an extra 1K."):ry%=�:�!A<>0�Wy%<>0�Iy%�Ȕ_%,k_%
}���:A%=C_%+Py%+ay%:B%=C_%+Py%+�(A$):C%=m%-Py%-ay%:�T:A%=a%+(P%+ay%)*8:B%=a%+(P%+�(A$))*8:C%=(_%-P%-ay%)*8:�T:A%=My%+(P%+ay%)*2:B%=My%+(P%+�(A$))*2:C%=(_%-P%-ay%)*2:�T:A%=Pu%+P%+ay%:B%=Pu%+P%+�(A$):C%=_%-P%-ay%:�T:�Wy%<>0�!A<>0�Iy%�Ȕ_%,k_%
}�>m%+=iu%:_%+=iu%:�!A<>0�Wy%<>0�Iy%�k_%+=iu%:!U+=iu%:!d+=iu%
}��A$=r$�
}�T�Bi%=0��(A$)-1:!(a%+(P%+Bi%)*8)=!(sO%+Bi%*8):!(a%+(P%+Bi%)*8+4)=!(sO%+Bi%*8+4):�
}�%�:hu%=�:�PJ%=0�e_%:�!X<256�hu%=��
}��Ky%!(PJ%*4)>P%�hu%=�
}�,�:�Ky%!(PJ%*4)>P%�Ky%!(PJ%*4)-=ay%-�(A$)
}��:�:K%=�A(m%,qy%)
}��
}�)�:l%=1:Cl%=0:py%=0:�:ȎC_%?(Py%+Cl%)�
}��2,3:Cl%+=2
}�U�8:My%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)�227)�8:�C_%?(Py%+py%+1)=10Cl%+=2�Cl%+=1
}�
py%+=1
~":O%=�(�A$,l%,1)):�O%=32�O%=14
~-�O%=�("'")�C_%?(Py%+Cl%)=�("�")�O%=�("�")
~FC_%?(Py%+Cl%)=O%:My%?((P%+py%)*2)=(My%?((P%+py%)*2)�3)+Ul%*4:�ry%�
~AMy%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)�227)�8:Pu%?(P%+py%)=O%
~L�:My%?((P%+py%)*2+1)=My%?((P%+py%)*2+1)�227:�Wy%=0�!A=0�Iy%=0�Ay(P%+py%)
~8�:�(A$)<>ay%My%?((P%+py%)*2+1)=My%?((P%+py%)*2+1)�2
~l%+=1:Cl%+=1:py%+=1
~0�:�l%>�(A$):�Wy%=0�!A=0�Iy%=0�ry%=�xy%=-1:�d
~�Wy%=0�!A=0�Iy%=0�vy%=��
~	(m%=Qy%:Xu%=t_%:e_%=Gi%:�Jy:�r:�J(e%)
~
'�:�ry%=��ay%<�(A$)�ay%>�(A$)��J(e%)
~�Wy%=0�!A=0�Iy%=0�t
~�
~
{��Yi:�U("Warning from Optical","About to update lexicon on disc. Click on OK if you are sure you want to do this.")=��
~�ș&406c0:�("Save <OptclPro$Dir>.Dictionary "+�~(A%(MJ%))+" +"+�~(La%)):�("SetType <OptclPro$Dir>.Dictionary Data"):ș&406c1:fa%=�:�
~��d_:�Fy%=0�J(V_%):�
~!lJ%=-1:W$=��M(w%,1),1):ȎFy%�
~.�1:�W$<>""�W$<"A"�W$>"z"�(W$>"Z"�W$<"a")��
~?�2:�W$<>""�(W$<"�"�W$<>"�")�W$<"A"�W$>"z"�(W$>"Z"�W$<"a")��
~�3
~�:�M(w%,1)=""�
~	oJ%=0
~&�:oJ%=�Ay(�M(w%,1))-1:�oJ%<0�oJ%=0
~A$=$Ql%:ȎFy%�
~�1:�(�A$,1))-98>=0�
~$�l%=0��(�A$,1))-98:oJ%+=W%(l%):�
~�
~�
~O�:Qa%=�:�Oy(ol%):Z%!0=V_%:ș&400cb,,Z%:Z%!24=-oJ%*40:ș&400c5,,Z%:�J(V_%):�
~-ݤWy(B$,Vi%):�L(B$)>-1�B$"            ";
~�:Dy$=�B$,Vi%,1):ȎDy$�
~�"d":U$="cl":q%=1:d_%=�
~ �"m":U$="nn":q%=1:d_%=�
~!�"f":U$="r":q%=0:d_%=�
~"�"r":U$="f":q%=0:d_%=�
~#�"c":U$="e":q%=0:d_%=�
~$�"e":U$="o":q%=0:d_%=�
~%�"o":U$="e":q%=0:d_%=�
~&�"p":U$="q":q%=0:d_%=�
~'�"q":U$="p":q%=0:d_%=�
~(�"h":U$="n":q%=0:d_%=�
~)�"n":U$="h":q%=0:d_%=�
~*�"i":U$="l":q%=0:d_%=�
~+�"l":U$="I":q%=0:d_%=�
~,�"I":U$="l":q%=0:d_%=�
~-
d_%=�
~.�:�d_%�
~/.Yk%=�Wy(�B$,Vi%-1)+U$+�B$,Vi%+1),Vi%+1+q%)
~0�:Vi%+=1:�Vi%>�(B$):=0
~1L��f_:�yn%,kn%,_p%,Yp%,A$,zp%,_y%,y_%,OZ%,Nr%,oZ%,I$,r%,``%,m$,i$:�Fy%=0�
~2Qa%=�:oJ%=-1:�P%>-1�a(P%)
~3�ry%A$=u$�A$=�M(w%,1)
~4�!fy<>0��ya:�
~5�ry%=��Yn%=���Yy:�
~6+�A$=""��(A$)>ya%�Oy(0):�J(V_%):lJ%=-1:�
~7�ș&406c0:ik%=�r(A$):I$=A$:A$=�H(A$):A$=�`(A$):Ul%=�z(P%,�(A$)):!cu=Ul%:$Ql%=A$:K%=�A(sn%*ya%,m`%):�K%=��C("Optical","There is not enough free memory available to guess this word."):�m_:�
~8*!Ki=Vn%:!`u=P%:�(Vn%<>0�Wi%<>0)�P%>=0�
~9�!rJ=fB%:!Fl=ik%:!va=A%(u%)+4:!Pu=!(A%(u%)):!ra=a%+P%*8:D%=Ky%:E%=P%:OZ%=�(Ay):!Aa=30/(JJ%!(OZ%*4))*(1<<16):!Ul=Ul%:!Tl=�(A$)
~:m�:!xl=A%(m`%):!Sl=sn%-1:!Wl=`u%:!vu=�(A$):!Ku=hu%:!Hu=ja%:!ru=Ql%:!Nu=A%(MJ%):!d_=ol%:!e_=1+�(A$)�4:�Vn%�
~;Dp%=0:�_y%=P%�P%+�(A$)-1+y_%:�(My%?(_y%*2)�3)>1�kO%?p%=1�kO%?p%=0
~<�_y%-P%<>!X�p%+=1
~=�
~>2�:p%=0:�_y%=P%�P%+�(A$)-1+y_%:kO%?p%=1:p%+=1:�
~?�:bn%!0=0:ȎFy%�
~@)�1:A%=bn%:B%=A%(MJ%):C%=La%:lJ%=�(pJ)
~A�2:A%=bn%:lJ%=�(`i)
~B>�3:!d_=zl%:!Xu=!e_:A%=bn%:B%=A%(X_%)+2048:C%=zl%:lJ%=�(Lu)
~C�:�ry%=��S(w%)�Oy(lJ%+1)
~Dyn%=�:Ai%=�:ek%=�:�lJ%=-1�
~Eș&406c1:�(I$)>2�
~Fn``%=�:�r%=2��(I$):m$=�I$,r%-1):i$=�I$,r%):�L(m$)>-1��L(i$)>-1��dJ:�IJ(P%+r%-1):P%+=1:r%=�(A$):Ai%=�:``%=�
~G�:�``%=��Yy
~H	�:�Yy
~I�
~J�:�lJ%=-1�
~K.�(ry%<>0�Vn%<>0�Wi%<>0)�_%>1�P%>=0�a_%��p�
~L|K%=�A(ya%*512,e`%):�K%=��C("Optical","There is not enough free memory available to intelligently check spelling."):yn%=�
~M{K%=�A(ya%*64,a`%):�K%=��C("Optical","There is not enough free memory available to intelligently check spelling."):yn%=�
~N{K%=�A(ya%*16,W`%):�K%=��C("Optical","There is not enough free memory available to intelligently check spelling."):yn%=�
~OB!I_=1:B%=_%-1:C%=a%:Yy%=�(Jy):�Z%(J_%)<Yy%�K%=�A(Yy%,J_%)�K%=�
~P$�Z%(`y%)<Yy%�K%=�A(Yy%,`y%)�K%=�
~Q~�K%=��C("Optical","There is not enough free memory available to intelligently check spelling. Need "+�((Yy%*2)�1024)+"K.")
~R�K%=��yn%��m_
~S�yn%=��
~T�Nr%=A%(e`%):oZ%=A%(a`%):A%=sn%:B%=Wr%:C%=ya%:D%=Nr%:E%=A%(W`%):�ei:!`=A%(u%)+4:!m=Uy%+1:!r=A%(J_%):!f=A%(`y%):!t=A%(`y%)+Yy%:!Sy=A%(`%)+Hu%:!Zy=fJ%:!Fy=rr%:!p=Ky%:!c=0:!Uy=P%:!Xy=P%:!Dl=Ky%:!tu=sP%:!Uy=0:!Xy=0:!Gl=`u%:!Ma=ik%:!ta=a%:!Tu=rr%:!Ya=Ul%
~U�!Wa=A%(u%)+4:!_u=!(A%(u%)):!Si=_%:!rl=Ky%:!cl=P%:!ul=Bu%:!wi=SJ%:!sl=rr%:!Ou=Nr%:!La=oZ%:!vJ=A%(W`%):!Jl=iO%:!Pa=Wr%:!Yi=VP%:!Ju=sO%:!Ol=P%:!Mi=lJ%:!Za=_%:!_l=A%(m`%):!`l=bn%:!nl=`u%:!_i=!X:!jl=!HJ:!oi=�(A$):!_=JJ%:!x=r_%:�fa:ek%=�
~V�fB%=0�!xi>=800!q=1:Ai%=�
~W�F(`u%)="i"�!BJ=5000
~X�!BJ>1200�ry%=��
~Y
�(I$)>2�
~Zn``%=�:�r%=2��(I$):m$=�I$,r%-1):i$=�I$,r%):�L(m$)>-1��L(i$)>-1��dJ:�IJ(P%+r%-1):P%+=1:r%=�(A$):Ai%=�:``%=�
~[�:�``%=��Yy
~\	�:�Yy
~]�
~^H�:A%=Fp%:B%=bn%:C%=sn%:D%=lJ%:E%=Wr%:�qa:r$=�_(0):A$=r$:�lJ%>-1�Qa%�
~_	�ry%�
~`	u$=A$
~a �:�A(w%,1,A$):�G(w%,1,�(A$))
~b�
~c�:oJ%=0
~d�:!I_=0
~e
�:�ry%=��
~f2K%=�A(1,e`%):K%=�A(1,a`%):K%=�A(1,W`%):�J(V_%)
~g�:ș&406c1:�
~hS��IJ(P%):�ay%,Ge%,Yy$,py%,l%,Cl%,hu%,iu%:�a(P%):C_%=A%(qy%):�!X>256�y_%=0�y_%=1
~i!�!A<>0�Wy%<>0�Iy%<>0�Ȕ_%,k_%
~jK%=�A(m%+1,qy%):�K%=��
~k��C("Optical","There is not enough free memory available to replace this word. Need an extra 1K."):ry%=�:�!A<>0�Wy%<>0�Iy%<>0�Ȕ_%,k_%
~l��:A%=C_%+Py%:B%=C_%+Py%+1:C%=m%-Py%:�Q:A%=a%+P%*8:B%=a%+(P%+1)*8:C%=(_%-P%)*8:�Q:A%=My%+P%*2:B%=My%+(P%+1)*2:C%=(_%-P%)*2:�Q:A%=Pu%+P%:B%=Pu%+P%+1:C%=_%-P%:�Q:�Wy%<>0�!A<>0�Iy%<>0�Ȕ_%,k_%
~m4m%+=1:_%+=1:�!A<>0�Wy%<>0�Iy%�k_%+=1:!U+=1:!d+=1
~no!(a%+(P%+y_%)*8)=!(a%+(P%-1+y_%)*8):!(a%+(P%+y_%)*8+4)=!(a%+(P%-1+y_%)*8+4):hu%=�:�PJ%=0�e_%:�!X<256�hu%=��
~o�Ky%!(PJ%*4)>P%�hu%=�
~p$�:�Ky%!(PJ%*4)>P%�Ky%!(PJ%*4)+=1
~q�:�
~r�:�K%=��
~s'l%=1:Cl%=0:py%=0:�:ȎC_%?(Py%+Cl%)�
~t�2,3:Cl%+=2
~uU�8:My%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)�227)�8:�C_%?(Py%+py%+1)=10Cl%+=2�Cl%+=1
~v
py%+=1
~w�:C_%?(Py%+Cl%)=14:My%?((P%+py%)*2)=(My%?((P%+py%)*2)�3)+Ul%*4:My%?((P%+py%)*2+1)=(My%?((P%+py%)*2+1)�227)�8:Pu%?(P%+py%)=14:My%?((P%+py%)*2+1)=My%?((P%+py%)*2+1)�2:l%+=1:Cl%+=1:py%+=1
~x
�:�l%>1:�
~y ݤp:�ar%:�!X>100�y_%=0�y_%=1
~zLar%=�:�_y%=P%�P%+�(A$)-1+y_%:�(My%?(_y%*2+1)�2)�ar%=�:_y%=P%+�(A$)-1+y_%
~{
�:=ar%
~|��Yy:�ry%=��
~}�!X>100�y_%=0�y_%=1
~~H�_y%=P%�P%+�(A$)-1+y_%:My%?(_y%*2+1)=(My%?(_y%*2+1)�227)�4:�:Ai%=�:�
~��dJ:�!X>100�y_%=0�y_%=1
~�B�_y%=P%�P%+�(A$)-1+y_%:My%?(_y%*2+1)=(My%?(_y%*2+1)�227)�8:�:�
~���ya:�!X>100�y_%=0�y_%=1
~�N�_y%=P%�P%+�(A$)-1+y_%:My%?(_y%*2+1)=(My%?(_y%*2+1)�227)�16:�ry%=��Ay(_y%)
~�'�:Ai%=�:!fy=0:xy%=-1:�ry%=��vy%=��d
~��vy%=��m%=Qy%:�r:�J(e%)
~��
~����m_:lJ%=-1:K%=�A(1,m`%):K%=�A(1,e`%):K%=�A(1,a`%):K%=�A(1,W`%):K%=�A(1,J_%):K%=�A(1,`y%):l%=lJ%:q%=�(A$):oJ%=0:�J(V_%):yn%=�:ry%=�:�
~�&ݤz(cn%,l%):�Sy%,py%,ye%:�cn%<0�=0
~���Sy%=0�KJ%:jB%?Sy%=0:�:�py%=cn%�cn%+l%-1:Ul%=?(My%+py%*2)�4:jB%?Ul%+=1:�:ye%=-1:Ul%=0:�Sy%=0�KJ%:�jB%?Sy%>ye%�ye%=jB%?Sy%:Ul%=Sy%
~�
�:=Ul%
~�hݤr(A$):�p%,jk%,Pp%,O%,cn%:O%=�(�A$,1)):fB%=0:�(O%>=�("a")�O%<=�("z"))�(O%>=�("�")�O%<=�("�"))�fB%=1
~�:�(O%>=�("A")�O%<=�("Z"))�(O%>=�("�")�O%<=�("�"))�fB%=2
~��(A$)<2�=�
~�$jk%=0:ve%=0:�(A$)=2�cn%=1�cn%=2
~�Y�p%=cn%��(A$):O%=�(�A$,p%,1)):�(O%>=�("A")�O%<=�("Z"))�(O%>=�("�")�O%<=�("�"))�jk%+=1
~�;�(O%>=�("a")�O%<=�("z"))�(O%>=�("�")�O%<=�("�"))�ve%+=1
~��:=ve%>=jk%
~�ݤAy(A$):�YJ%:�A$=""�=-1
~�A$=�H(A$):$Ql%=A$:ȎFy%�
~�\�1:W$=�A$,1):Gk%=!(A%(MJ%)+(�(W$)-97)*4):�W$="z"�_n%=La%*2�_n%=!(A%(MJ%)+(�(W$)-96)*4)-1
~�KB%=�(A$):F%=hu%:G%=ja%:C%=Ql%:D%=A%(MJ%):E%=Gk%:H%=_n%:A%=`u%:eu%=�(nu)
~���2:�YJ%=1��(A$):�(�(�A$,YJ%,1))>=�("a")��(�A$,YJ%,1))<=�("z"))�(�(�A$,YJ%,1))>=�("�")��(�A$,YJ%,1))<=�("�"))��A$,YJ%,1)=�(�(�A$,YJ%,1))-32)
~�-�:ș"XSpell_FindWord",A$,�(A$)�eu%:eu%+=1
~�)�3:q%=�(�A$,1)):�!(A%(X_%)+q%*8)<>-1�
~��A%=A%(X_%)+2048+!(A%(X_%)+q%*8):B%=zl%-!(A%(X_%)+q%*8):C%=Ql%:D%=�(A$):eu%=�(Mu):�_y%=0�q%-1:�!(A%(X_%)+4+_y%*8)<>-1�eu%+=!(A%(X_%)+4+_y%*8)
~��
~��:eu%=0
~��
~�
�:=eu%
~�&ݤL(A$):�YJ%,te%,W$,qe%:�A$=""�=-1
~�&A$=�H(A$):$Ql%=A$:W$=�A$,1):ȎFy%�
~�(�1:qe%=�(W$):�qe%<�("a")�qe%>�("z")�
~�
eu%=-1
~�Q�:Gk%=!(A%(MJ%)+(�(W$)-97)*4):�W$="z"�_n%=La%*2�_n%=!(A%(MJ%)+(�(W$)-96)*4)-1
~�KB%=�(A$):F%=hu%:G%=ja%:C%=Ql%:D%=A%(MJ%):E%=Gk%:H%=_n%:A%=`u%:eu%=�(xu)
~��
~��2:�(A$)>2�
~�lte%=�:�YJ%=1��(A$):O%=�(�A$,YJ%,1)):�(O%>=�("a")�O%<=�("z"))�(O%>=�("�")�O%<=�("�"))��A$,YJ%,1)=�(O%-32)
~�4�O%<�("A")�O%>�("�")�(O%>�("Z")�O%<�("�"))�te%=�
~��:�te%�
~�
eu%=-1
~�3�:ș"XSpell_CheckWord",A$�eu%:�eu%�eu%=0�eu%=-1
~��
~��:eu%=-1
~��
~�)�3:q%=�(�A$,1)):�!(A%(X_%)+q%*8)<>-1�
~�TA%=A%(X_%)+2048+!(A%(X_%)+q%*8):B%=zl%-!(A%(X_%)+q%*8):C%=Ql%:D%=�(A$):eu%=�(dJ)
~��:eu%=-1
~��
~�
�:=eu%
~���ZJ:ȎFy%�
~��0:ol%=0
~�X�1:�l%=0�25:D%=A%(MJ%):E%=!(A%(MJ%)+(l%*4)):�l%<25�H%=!(A%(MJ%)+(l%+1)*4)-1�H%=La%*2
~�!W%(l%)=�(Wu):�:ol%=Ǝ(W%())-1
~�%�2:ș"XSpell_ImpressionInfo"�,ol%
~���3:A%=A%(X_%):B%=A%(X_%)+2048:C%=zl%:wy%=�(Ru):�Z`%=��wy%<>0��X("Optical","Words starting with the same initial letter have been found in different sections of the lexicon. Therefore it may not function properly.")
~�Aol%=0:�q%=0�255:�!(A%(X_%)+4+8*q%)<>-1�ol%+=!(A%(X_%)+4+8*q%)
~��
~��:�
~���Fa(I%,j%):Ȏj%�
~��13:�a(w%,5)�
~��S(w%,5,1):�fJ
~�:�v(j%)
~��:�
~�#��fJ:O`%=�:�Mu:�S(w%,5,0):�Wi%�
~�4xy%=P%:P%=-1:�d:P%=xy%:jy%=�:�G(e%,-1,-1):�O(P%)
~��:�Wi%��M(w%):�M(V_%):�
~��O`%�Fy%=0�O_%=-1:�
~��:�Vy:�si%>m%-1�d_%=-1:�
~�U��nl:�B$,q%,l%,DJ%,hJ%,gr%:�Fy%=0�L%+2,X%-8:ș&400e6,11:�"  No lexicons loaded":�
~�>�lJ%=-1�Qa%=��L%+2,X%-8:ș&400e6,8:�"    No words found":�
~�;Gy%=Z%!16-Z%!24-Z%!32:Ly%=Z%!16-Z%!24-Z%!40:�Gy%<0Gy%=0
~��Ly%<0Ly%=0
~�1`i%=(Ly%-4)�40:G`%=(Gy%-4)�40:�`i%>lJ%�Qa%=��
~��G`%>lJ%�Qa%=�G`%=lJ%
~�ș&400e6,7:�Qa%�
~�
ȎFy%�
~�w�1:vr%=0:�l%=`i%�G`%:�L%+2,X%-8-40*l%:q%=0:hJ%=l%:ȕq%<=25�hJ%-W%(q%)>=0:hJ%-=W%(q%):q%+=1:�:�!(A%(MJ%)+q%*4)<>vr%�
~�2_o%=!(A%(MJ%)+q%*4):vr%=!(A%(MJ%)+q%*4):B%=hJ%
~�+�:B%=0:�"BFGHJKQVWXYZ",�(q%+65))_o%-=1
~�N�:F%=hu%:G%=ja%:D%=A%(MJ%):E%=_o%:�q%<25�H%=!(A%(MJ%)+(q%+1)*4)-1�H%=La%*2
~�_o%=�(gJ):�
~��2:ș"XSpell_GetWord",`i%�,B$:�L%+2,X%-8-40*`i%:�X(B$):�l%=`i%+1�G`%:ș"XSpell_GetNextWord"�,B$:�L%+2,X%-8-40*l%:�X(B$):�
~��3:A%=A%(X_%)+4:B%=`i%:q%=�(jy):hJ%=!iy:gr%=q%:A%=hJ%:B%=A%(X_%)+2048+!(A%(X_%)+q%*8):C%=`u%:D%=zl%-!(A%(X_%)+q%*8):�by:B$=$`u%:�L%+2,X%-8-40*`i%:�X(B$):�l%=`i%+1�G`%:A%=A%(X_%)+4:B%=l%:q%=�(jy):hJ%=!iy:A%=hJ%:B%=A%(X_%)+2048+!(A%(X_%)+q%*8):C%=`u%
~�#D%=zl%-!(A%(X_%)+q%*8):�q%<256�
~�
�gr%<>q%�
~��by:gr%=q%
~�	�:�lu
~��
~�-�:B$=$`u%:�L%+2,X%-8-40*l%:�q%<256�X(B$)
~��
~��
~�0�:�l%=`i%�G`%:�L%+2,X%-8-40*l%:�X(�_(l%)):�
~�0�:�oJ%>=0��W(3,8):ȓȐL%,X%-4-40*oJ%,368,-36
~��
~�ݤX(B$):�p%=1��(B$):�p%=1�
~�TO%=�(�B$,p%,1)):�(O%>=�("a")�O%<=�("z"))�(O%>=�("�")�O%<=�("�"))�B$,p%)=�(O%-32)
~�[�:O%=�(�B$,p%,1)):�(O%>=�("A")�O%<=�("Z"))�(O%>=�("�")�O%<=�("�"))�O%=7�B$,p%)=�(O%+32)
~��:�:=B$
~�$��Oy(l%):h%=l%*40:�h%<252�h%=252
~�?Z%!0=0:Z%!12=0:Z%!8=362:Z%!4=-h%:ș&400d7,V_%,Z%:�S(w%)=��
~�0Z%!0=V_%:ș&400cb,,Z%:Z%!24=0:ș&400c5,,Z%:�
~���Ul:ȎZ%!36�
~�G�1:Z%!0=V_%:ș&400cb,,Z%:�(Z%!24)�40=0�Z%!24+=40�Z%!24+=-(Z%!24)�40
~�ș&400c5,,Z%
~�L�-1:Z%!0=V_%:ș&400cb,,Z%:�(Z%!24)�40=-28�Z%!24-=40�Z%!24-=28+(Z%!24�40)
~�ș&400c5,,Z%
~�M�2:Z%!0=V_%:ș&400cb,,Z%:�(Z%!24)�40=0�Z%!24+=6*40�Z%!24+=5*40-(Z%!24)�40
~�ș&400c5,,Z%
~�S�-2:Z%!0=V_%:ș&400cb,,Z%:�(Z%!24)�40=-28�Z%!24-=6*40�Z%!24-=5*40+28+(Z%!24�40)
~�ș&400c5,,Z%
~��:�
~���OJ:�Wi%=�!q=2�!q=4
~�L!UJ=Fy%:�a(P%):A%=_%:B%=Qy%:C%=m%:D%=A%(qy%):E%=Py%:F%=Ql%:G%=ry%:ȎFy%�
~��1:!wy=A%(MJ%):!ay=La%
~��2
~��3:!wy=A%(X_%):!ay=zl%
~�1�:!IJ=`u%:!j_=Ql%:!SJ=hu%:!n_=ja%:d_%=�(P_):�
~�"��Vy:�m%=0�_%<=1ry%=�:d_%=-1:�
~��ry%=��!A=0ș&406c0
~�c!UJ=Fy%:�a(P%):xy%=P%:MB%=uJ%:ZB%=bJ%:A%=_%:B%=Qy%:C%=m%:D%=A%(qy%):E%=Py%:F%=Ql%:G%=ry%:ȎFy%�
~��1:!wy=A%(MJ%):!ay=La%
~��2
~��3:!wy=A%(X_%):!ay=zl%
~��:�Wy%<>0�!A<>0�Iy%�
~��P%<an%�!o=1�!o=0
~��:�P%<0�!o=1�!o=0
~�P�:!IJ=`u%:!j_=Ql%:!SJ=hu%:!n_=ja%:d_%=�(P_):Py%=!My:P%=�c(!qJ-Qy%):�P%<0P%=0
(�P%>_%�ș&406c1:ry%=�:P%=-1:si%=m%:�
#�!(a%+P%*8)=-1�!(a%+4+P%*8)=-1�
Iȕ!My<m%�!(a%+P%*8)=-1�!(a%+4+P%*8)=-1:d_%=�(P_):Py%=!My:P%=�c(!qJ):�
!�:A$=�F(Ql%):si%=!My:�si%<m%�
�ry%=��d
!xy%=P%:�xy%>=0MB%=uJ%:ZB%=bJ%
�P%>=0�
�d_%=-1��(si%>m%-1)�
�ry%=��
	u$=A$:�f_:�lJ%>-1�Ai%=��Mu

�!X>100�y_%=0�y_%=1
�!HJ=1�y_%=0
�!q=0�!q=3:P%+=�(A$)+y_%

�P%>=_%�si%=m%
	Ai%=�
>�:�A(w%,1,A$):�G(w%,1,�(A$)):�wJ:�f_:�Ai%�d_%=0:Ai%=�:!q=0
�
�
�
�:�si%>m%-1P%=-1
�si%>m%-1�
_�ry%=��X("Message from Optical","The spelling checker has reached the end of the text."):�d

�ry%jy%=�
	ry%=�
�:�ry%=�ș&406c1
�
:��wJ:�yu%,Pa%,ri%,V%,bB%,Y`%,Uk%,kZ%,zZ%,wZ%:�A_:�Wi%�
2�u_(w%,"Spelling checker (doing single word)")
 �:�u_(w%,"Spelling checker")
�:yu%=P%:�yu%<0�yu%=0
��My(yu%,-1):M%!0=e%:ș&400cb,,M%:bB%=M%!4+(M%!12-M%!4)/2:Pa%=M%!16-M%!24-rJ%:`e%=M%!4-M%!20+Ou%:Y`%=�:Uk%=�S(w%):�Uk%=��Y`%=�
)M%!0=V_%:ș&400cb,,M%:�M%!28<>-1Y`%=�
 YM%!0=w%:ș&400cb,,M%:�Pa%>M%!8-16�Pa%<M%!16+88�`e%+(30*16)>M%!4-16�`e%<M%!12+16�Y`%=�
!%�M%!8>Pa%+256�M%!16<Pa%-256�Y`%=�
"�Y`%=��
#G�q:�s%>M%!4�s%<M%!12�v%>M%!8�v%<M%!16�Uk%=��kZ%=�:zZ%=M%!4:wZ%=M%!8
$�Uk%=��
%:bB%=bB%-(M%!12-M%!4)/2:M%!12=bB%+(M%!12-M%!4):M%!4=bB%
&X�:ș53,-1,12�,,ri%:ș53,-1,5�,,V%:V%=1<<V%:ri%=ri%*V%-1-44:�Pa%+16+(M%!16-M%!8)>ri%�
')M%!8=Pa%-88-(M%!16-M%!8):M%!16=Pa%-88
(+�:M%!16=Pa%+16+(M%!16-M%!8):M%!8=Pa%+16
)F�:M%!28=-1:ș&400c5,,M%:�D(V_%):�kZ%ȗ�s%+(M%!4-zZ%),v%+(M%!8-wZ%)
*�
+��d:�a_%=��
,jy%=�:�a_%�
-�A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:�g:uJ%=!b:bJ%=!u:Py%=!w:Z%!0=e%:Z%!4=0:Z%!8=-1<<16:Z%!12=1<<16:Z%!16=0:ș&400c9,,Z%�d%:L%=Z%!4-Z%!20:X%=Z%!16-Z%!24:Xa%=�:ȕd%:�xy%>=0�g(xy%,-1)
.�P%>=0�g(P%,-1)
/ș&400ca,,Z%�d%:�
0�:�A_:�
1���ei:A%=P%:B%=Qy%:C%=m%:D%=A%(qy%):E%=p_%:�g:uJ%=!b:bJ%=!u:Py%=!w:l%=Py%:WO%=0:C_%=A%(qy%):ȕ�(��32+�10+"-",�(C_%?l%))<>0�C_%?l%=10�(��10+"!""%)'*+,-./:;<>=?\]^_}",�(C_%?l%))<>0���32+�10+"-",�(C_%?(l%+1)))<>0))�l%<m%�WO%<=�(A$)-1:Ge%=�(�A$,WO%+1,1))
2L�(C_%?l%>=�("A")�C_%?l%<=�("Z"))�(C_%?l%>=�("�")�C_%?l%<=�("�"))�Ge%-=32
3&�A$,WO%+1)=�(Ge%):l%+=1:WO%+=1:�:�
4��z:�Wy%<>0�!A<>0�Iy%�Dy%�
5�ș&406c0:�P(w%,0,Fy%=0):�P(w%,2,Fy%=0):�P(w%,3,Fy%=0):�P(w%,4,Fy%=0):�P(w%,6,Fy%=0):�P(w%,7,Fy%=0):�P(w%,8,Fy%=0):�P(w%,10,Fy%=0):�P(w%,11,Fy%=0):ȎFy%�
6�0:�A(w%,12,"(No lexicon)")
7I�1:�Z(w%,11):�F(w%,0):�F(w%,4):�F(w%,8):�A(w%,12,"Optical's lexicon")
8c�2:�F(w%,11):�Z(w%,0):�Z(w%,4):�Z(w%,8):�A(w%,12,"Impression's lexicon"):ș"XSpell_ResetIgnore"
9L�3:�Z(w%,11):�F(w%,0):�F(w%,4):�F(w%,8):�A(w%,12,"'Plain text' lexicon")
:
�:�Fy%>0�
;�m%=0�_%<=1�
<;�Z(w%,2):�Z(w%,5):�Z(w%,6):�Z(w%,7):�Z(w%,10):�Z(w%,11)
=3�:�F(w%,2):�F(w%,5):�F(w%,6):�F(w%,7):�F(w%,10)
>�
?�:�gy%?Vu%<>0�
@�Z(w%,7):�Z(w%,10):�Z(w%,2)
A�:�Wi%=��jy%=��xy%=-1:�d
B!lJ%=-1:oJ%=0:Qa%=�:�q:�ry%=��
C�vy%=���xy
D�wJ:�G(w%,1,0)
E
�:�Wi%=��
F�ZJ:�ry%=��d_
G�:�ry%=��Wi%=��Oy(ol%)
Hș&406c1:�
I��Na:�pa%:�Fy%=0Fy%=1
JZ`%=�:ȎFy%�
K�1:Fy%=0:�jy:�qJ
L0�2:Fy%=0:ș&20039,,"Spell_Typo"�;pa%:�pa%�1�
M�p_(j$)
N	�:�sy
O�3:Fy%=0:�zJ(h$):�hJ
P
�:Z`%=�:�
Q���jy:�X("Message from Optical","There is no lexicon supplied with this version of Optical. Use an Impression or Text file lexicon, or for a full version please contact Neurotron Software."):�
RN��Ji:K%=�A(1,MJ%):�U(Dict_Menu%,2):�R(Dict_Menu%,1):�Fy%=1�Fy%=0:�V(TJ%,1)
S�sy:�S(w%)�z
T�
U��x_:�Iy%=�P%=-1
V<ry%=�:Ai%=�:�a(P%):!q=3:!My=Py%:!fy=0:!A=0:�Li%�Iy%�Yl:�
W8ș&406c0:Iy%=�:ȕry%=���(�-113):�Vy:�:�-113!A=1:�Hy
X�ry%=�:P%=-1:�A(w%,1,""):�M(w%):K%=�A(1,e`%):K%=�A(1,a`%):K%=�A(1,W`%):�J(e%):m%=Qy%:�r:�G(e%,-1,-1):�O(P%):�("FX21"):�("FX124"):ș&406c2:�
Y��Yl:�Iy%hn%=an%�hn%=P%
Z
!A=1:�
[O��H_:�ap%,G$:Ȕhn%,P%:�Vy:Ȕhn%,P%:jy%=�:�ry%=��Iy%�!R>0�Wy%=2:an%=_%:�__:�
\�ry%=��Iy%�!R=0��__:�l_:�
]�ry%=��
^3�A(w%,1,""):�M(w%):m%=Qy%:�r:P%=-1:!A=0:�Ba%�F_
_
�hi%�l
`�S`%�gy:�Xy
a�:�
b���ni:xy%=P%:P%=-1:�d:P%=xy%:jy%=�:�G(e%,-1,-1):�O(P%):�A(w%,1,""):�d_:�M(w%):�M(V_%):�R(Bl%,2):�R(Bl%,3):�R(Bl%,4):�R(Bl%,5):�D(e%):P%=-1:Wy%=0:!A=0:Iy%=�:ry%=�:�
c��Ya:Ȏ�P(0)�
d�1:Ȏ�P(1)�
e
�1:�jy
f
�2:�Ji
g:�Fy%�V(TJ%,Fy%)
h�Z%(MJ%)>2000�
iFy%=1:�z
j%�:�jy:�Z%(MJ%)>2000Fy%=1�Fy%=0:�z
k�:�Fy%�K(TJ%,Fy%)
l�
m�2:�Fy%�V(TJ%,Fy%)
nFy%=2:�K(TJ%,Fy%):�z
o�3:Ȏ�P(1)�
p
�1:�Wl
q:�Fy%�V(TJ%,Fy%)
rFy%=3:�K(TJ%,Fy%):�z
s�
t�:�
u��Pu(A$):ȎFy%�
v��2:�YJ%=1��(A$):�(�(�A$,YJ%,1))>�("a")��(�A$,YJ%,1))<�("z"))�(�(�A$,YJ%,1))>�("�")��(�A$,YJ%,1))<�("�"))��A$,YJ%,1)=�(�(�A$,YJ%,1))-32)
wU�:ș"XSpell_AddToIgnore",A$�Ha%;wy%:�wy%�1��X("Error from SpellMaster",�F(Ha%+4))
x�:�:�Vy:�si%>m%-1�d_%=-1:�
y=��jJ:�pa%,yZ%,au%,vk%:ș&20039,,"Spell_Typo"�;pa%:�pa%�1�
z
�U(TJ%,2)
{]�:�R(TJ%,2):Z$="User dicts":vk%=�:�yZ%=1�8:ș"XSpell_GetDictionaryName",yZ%�au%:�au%<>-1�
|vk%=�:Z$+=","+�F(au%)
}�:�:�vk%�Z$+=",None"
~3�yy(UserDict_Menu%,Z$):�vk%�U(UserDict_Menu%,1)
�:�BB%�U(TJ%,3)��R(TJ%,3)
��
�6��sy:�pa%:ș&20039,,"Spell_Typo"�;pa%:�pa%�1��hJ:�
�Fy%=2:�K(TJ%,Fy%):�
���hJ:�BB%��qJ:�
�Fy%=3:�K(TJ%,Fy%):�
���qJ:�Z%(MJ%)<=1024��
�Fy%=1:�K(TJ%,Fy%):�
����Vi(S$):ș&20039,,"Spell_Typo"�;pa%:�pa%�1��X("Message from Optical","Please drop your Impression application onto Optical on the icon bar before trying to load a User Dictionary."):�
�Gș"XSpell_LoadUser",S$�Ha%;wy%:�wy%�1��C("SpellMaster",�F(Ha%+4)):�
�c�Z`%=��X("Message from Optical","This User Dictionary has been added to Impression's lexicon.")
��S(w%)��z
��
�`��p_(S$):ș&20005,"RMLoad "+S$+".RMStore.!SpellMod"�Ha%;wy%:�wy%�1��C("Optical",�F(Ha%+4)):�
�Z�Z`%=��X("Message from Optical","The Impression SpellMaster lexicon has been loaded.")
��Fy%�V(TJ%,Fy%)
� Fy%=2:�K(TJ%,Fy%):�S(w%)��z
�j$=S$:�
�z��Z_:�gy%?Vu%<>0�Yn%=���C("Optical","It is not possible to Auto check spelling while text is formatted as a table."):�
��Fy%<>0ry%=�:�z:�x_:�
��jy:�Fy%<>0ry%=�:�z:�x_:�
��
�$ݤ_(`A%):=$(A%(m`%)+bn%!(`A%*4))
���Fu:�P%=-1�
�	�jy%�
� xy%=P%:P%=-1:�d:P%=xy%:jy%=�
�-�:Wi%=�:Iy%=�:!A=0:Wy%=0:�jy%=��xy%=-1:�d
�A�z:si%=0:ry%=�:!My=Py%:!fy=0:!q=2:!o=0:!bu=0:!X=0:�Vy:ZO%=�:�
����zJ(S$):�fA%:�Z`%=��U("Message from Optical","This Text file is about to be loaded as the Plain Text lexicon. Press OK to continue")=��
�Tș&2000d,76,S$�F%;wy%:�wy%�1��C("Optical","Loading Plain lexicon - "+�F(F%+4)):�
��ș&406c0:zl%=�#F%:�#F%:K%=�A(zl%+2048,X_%):�K%=���C("Optical","There is not enough free memory available to store the lexicon. Need "+�(zl%�1024)+"K."):K%=�A(1,X_%):�
��("Load "+S$+" "+�~(A%(X_%)+2048)):A%=A%(X_%)+2048:B%=zl%:�fJ:fA%=Fy%:Fy%=3:�ZJ:Fy%=fA%:�ol%=0��C("Optical","There are no words in the lexicon!"):�V(TJ%,Fy%):BB%=�:Fy%=0:�sy:K%=�A(1,X_%):�z:�
�V�R(PlainDict_Menu%,1):Fy%=3:�V(TJ%,1):�V(TJ%,2):�K(TJ%,3):BB%=�:�Oy(ol%):�S(w%)�z
�h$=S$:ș&406c1:�
�B��Wl:K%=�A(1,X_%):�U(PlainDict_Menu%,1):�Fy%=3�Fy%=0:�V(TJ%,3)
�BB%=�:�sy:�S(w%)�z
��
�J��cJ:xy%=P%:P%=-1:�d:P%=xy%:jy%=�:�G(e%,-1,-1):�O(P%):�M(w%):�M(V_%):�
�
00000000  0d 00 01 1e f4 4f 70 74  69 63 61 6c 20 50 72 6f  |.....Optical Pro|
00000010  66 65 73 73 69 6f 6e 61  6c 20 44 65 6d 6f 0d 00  |fessional Demo..|
00000020  02 1e f4 28 63 29 20 4d  61 72 74 69 6e 20 44 61  |...(c) Martin Da|
00000030  77 65 20 31 39 39 33 2d  31 39 39 36 0d 00 03 6e  |we 1993-1996...n|
00000040  51 79 24 3d 22 34 2e 32  31 44 20 28 31 35 74 68  |Qy$="4.21D (15th|
00000050  20 4a 61 6e 75 61 72 79  2c 20 31 39 39 36 29 22  | January, 1996)"|
00000060  3a c8 99 26 34 30 36 63  30 3a c8 99 26 34 30 36  |:..&406c0:..&406|
00000070  63 34 2c 30 3a 4b 65 25  3d b9 3a ee 85 ef 32 36  |c4,0:Ke%=.:...26|
00000080  2c 34 3a f1 f6 24 3b 22  20 61 74 20 6c 69 6e 65  |,4:..$;" at line|
00000090  20 22 3b c3 28 9e 29 3a  c8 99 26 34 30 36 63 32  | ";.(.):..&406c2|
000000a0  3a f2 72 79 3a f2 51 79  3a e0 0d 00 04 62 c8 99  |:.ry:.Qy:....b..|
000000b0  26 34 30 36 63 34 2c 31  30 3a f2 47 69 28 22 4f  |&406c4,10:.Gi("O|
000000c0  70 74 69 63 61 6c 20 50  72 6f 20 44 65 6d 6f 22  |ptical Pro Demo"|
000000d0  2c 31 32 32 38 38 2c 31  32 32 30 30 29 3a f2 77  |,12288,12200):.w|
000000e0  6c 3a c8 99 26 34 30 36  63 34 2c 32 30 3a f2 67  |l:..&406c4,20:.g|
000000f0  6c 3a ee 85 85 30 2c f6  24 2b 22 20 61 74 20 6c  |l:...0,.$+" at l|
00000100  69 6e 65 20 22 2b c3 28  9e 29 3a e0 0d 00 05 cd  |ine "+.(.):.....|
00000110  c8 99 26 34 30 36 63 34  2c 33 30 3a f2 52 61 3a  |..&406c4,30:.Ra:|
00000120  c8 99 26 34 30 36 63 34  2c 34 30 3a f2 6d 61 3a  |..&406c4,40:.ma:|
00000130  c8 99 26 34 30 36 63 34  2c 35 30 3a f2 41 28 49  |..&406c4,50:.A(I|
00000140  6e 66 6f 5f 57 69 6e 64  6f 77 25 2c 35 2c 22 a9  |nfo_Window%,5,".|
00000150  20 4d 61 72 74 69 6e 20  44 61 77 65 20 31 39 39  | Martin Dawe 199|
00000160  33 99 31 39 39 36 22 29  3a f2 41 28 49 6e 66 6f  |3.1996"):.A(Info|
00000170  5f 57 69 6e 64 6f 77 25  2c 34 2c 51 79 24 29 3a  |_Window%,4,Qy$):|
00000180  f2 57 69 3a c8 99 26 34  30 36 63 34 2c 36 30 3a  |.Wi:..&406c4,60:|
00000190  f2 4b 6c 3a c8 99 26 34  30 36 63 34 2c 37 30 3a  |.Kl:..&406c4,70:|
000001a0  f2 66 79 3a f2 72 79 3a  f2 44 69 3a e7 65 24 3d  |.fy:.ry:.Di:.e$=|
000001b0  22 22 8c f2 6e 79 28 22  3c 4f 70 74 63 6c 50 72  |""..ny("<OptclPr|
000001c0  6f 24 44 69 72 3e 2e 44  65 66 46 6f 6e 74 73 22  |o$Dir>.DefFonts"|
000001d0  29 8b f2 6e 79 28 65 24  29 0d 00 06 3e c8 99 26  |)..ny(e$)...>..&|
000001e0  34 30 36 63 34 2c 38 30  3a f2 48 3a f2 41 6e 3a  |406c4,80:.H:.An:|
000001f0  4b 24 3d a4 68 3a f2 71  75 3a c8 99 26 34 30 36  |K$=.h:.qu:..&406|
00000200  63 34 2c 39 30 3a e7 77  6e 25 f2 4e 61 8b 46 79  |c4,90:.wn%.Na.Fy|
00000210  25 3d 30 3a f2 73 79 0d  00 07 61 f2 53 28 60 5f  |%=0:.sy...a.S(`_|
00000220  25 2c 31 2c 31 29 3a f2  53 28 60 5f 25 2c 32 2c  |%,1,1):.S(`_%,2,|
00000230  30 29 3a f2 53 28 60 5f  25 2c 33 2c 30 29 3a f2  |0):.S(`_%,3,0):.|
00000240  4b 28 66 5f 25 2c 34 29  3a f2 56 28 66 5f 25 2c  |K(f_%,4):.V(f_%,|
00000250  35 29 3a f2 56 28 66 5f  25 2c 36 29 3a c8 99 26  |5):.V(f_%,6):..&|
00000260  34 30 36 63 34 2c 39 39  3a f2 44 5f 3a f2 48 3a  |406c4,99:.D_:.H:|
00000270  e7 65 24 3c 3e 22 22 8c  0d 00 08 31 f2 41 28 67  |.e$<>""....1.A(g|
00000280  25 2c 31 36 2c 22 4e 6f  20 6c 65 74 74 65 72 20  |%,16,"No letter |
00000290  6d 61 72 6b 65 64 22 29  3a f2 5a 28 67 25 2c 31  |marked"):.Z(g%,1|
000002a0  32 29 3a f2 44 28 67 25  29 0d 00 09 23 cd 3a f2  |2):.D(g%)...#.:.|
000002b0  5f 3a 4d 25 21 30 3d 65  25 3a c8 99 26 34 30 30  |_:M%!0=e%:..&400|
000002c0  63 62 2c 2c 4d 25 3a e7  76 79 25 8c 0d 00 0a 19  |cb,,M%:.vy%.....|
000002d0  70 5f 25 3d 28 4d 25 21  31 32 2d 4d 25 21 34 2d  |p_%=(M%!12-M%!4-|
000002e0  34 29 2f 31 36 0d 00 0b  16 cc 3a 70 5f 25 3d 4d  |4)/16.....:p_%=M|
000002f0  25 21 31 32 2d 4d 25 21  34 2d 34 0d 00 0c 14 cd  |%!12-M%!4-4.....|
00000300  3a c8 99 26 34 30 36 63  31 3a e7 68 69 25 8c 0d  |:..&406c1:.hi%..|
00000310  00 0d 09 e7 79 6c 25 8c  0d 00 0e 13 4b 75 25 3d  |....yl%.....Ku%=|
00000320  a4 53 28 69 79 25 29 3a  f2 49 79 0d 00 0f 0e cc  |.S(iy%):.Iy.....|
00000330  3a 69 5f 25 3d a3 3a f2  6c 0d 00 10 05 cd 0d 00  |:i_%=.:.l.......|
00000340  11 87 cd 3a ee 85 e7 a4  55 28 22 49 6e 74 65 72  |...:....U("Inter|
00000350  6e 61 6c 20 45 72 72 6f  72 20 66 72 6f 6d 20 4f  |nal Error from O|
00000360  70 74 69 63 61 6c 22 2c  f6 24 2b 22 20 61 74 20  |ptical",.$+" at |
00000370  6c 69 6e 65 20 22 2b c3  28 9e 29 2b 22 2e 20 43  |line "+.(.)+". C|
00000380  6c 69 63 6b 20 6f 6e 20  4f 4b 20 74 6f 20 63 6f  |lick on OK to co|
00000390  6e 74 69 6e 75 65 20 72  75 6e 6e 69 6e 67 2c 20  |ntinue running, |
000003a0  6f 72 20 43 61 6e 63 65  6c 20 74 6f 20 71 75 69  |or Cancel to qui|
000003b0  74 2e 22 29 3d a3 8c c8  99 26 34 30 36 63 32 3a  |t.")=....&406c2:|
000003c0  f2 51 79 3a e0 0d 00 12  34 57 79 25 3d 30 3a 21  |.Qy:....4Wy%=0:!|
000003d0  41 3d 30 3a e7 4b 65 25  ff 28 22 52 4d 4b 69 6c  |A=0:.Ke%.("RMKil|
000003e0  6c 20 4e 65 75 72 6f 74  72 6f 6e 53 61 6d 70 6c  |l NeurotronSampl|
000003f0  65 22 29 3a 4b 65 25 3d  a3 0d 00 13 0d f2 76 69  |e"):Ke%=......vi|
00000400  3a f2 51 79 3a e0 0d 00  14 50 dd f2 77 6c 3a ea  |:.Qy:....P..wl:.|
00000410  61 79 25 3a 4b 72 25 3d  36 34 30 3a de 75 5a 25  |ay%:Kr%=640:.uZ%|
00000420  4b 72 25 3a 55 4f 25 3d  30 3a 78 4a 25 3d 32 35  |Kr%:UO%=0:xJ%=25|
00000430  36 3a 70 6c 25 3d 32 35  36 3a c8 99 31 36 b8 71  |6:pl%=256:..16.q|
00000440  24 2c 41 65 25 3a e7 a7  71 24 2c 22 2d 66 6f 6e  |$,Ae%:..q$,"-fon|
00000450  74 73 20 22 29 8c 0d 00  15 1c 65 24 3d c1 71 24  |ts ").....e$=.q$|
00000460  2c a7 71 24 2c 22 2d 66  6f 6e 74 73 20 22 29 2b  |,.q$,"-fonts ")+|
00000470  37 29 0d 00 16 0b cc 3a  65 24 3d 22 22 0d 00 17  |7).....:e$=""...|
00000480  5f cd 3a c8 99 26 34 30  30 65 63 2c 2d 31 2c 2d  |_.:..&400ec,-1,-|
00000490  31 b8 6a 6e 25 3a 61 6c  25 3d 32 33 3a de 5a 25  |1.jn%:al%=23:.Z%|
000004a0  28 61 6c 25 2d 31 29 2c  41 25 28 61 6c 25 2d 31  |(al%-1),A%(al%-1|
000004b0  29 2c 6e 6e 25 34 2a 61  6c 25 2c 63 69 25 34 2a  |),nn%4*al%,ci%4*|
000004c0  61 6c 25 3a f2 42 4a 3a  e7 a4 6d 28 61 6c 25 29  |al%:.BJ:..m(al%)|
000004d0  3d a3 8c f2 72 79 3a f2  51 79 3a e0 0d 00 18 4c  |=...ry:.Qy:....L|
000004e0  c8 99 26 32 30 30 32 33  2c 22 4f 62 65 79 24 44  |..&20023,"Obey$D|
000004f0  69 72 22 2c 4d 25 2c 32  35 36 2c 30 2c 30 b8 2c  |ir",M%,256,0,0.,|
00000500  2c 61 79 25 3a 4d 25 3f  61 79 25 3d 31 33 3a 42  |,ay%:M%?ay%=13:B|
00000510  79 24 3d 24 4d 25 3a f2  5a 6e 3a f2 65 6c 3a f2  |y$=$M%:.Zn:.el:.|
00000520  50 6c 3a f2 77 69 3a e1  0d 00 19 a5 dd f2 42 4a  |Pl:.wi:.......BJ|
00000530  3a 54 69 25 3d 30 3a 60  25 3d 31 3a 57 4a 25 3d  |:Ti%=0:`%=1:WJ%=|
00000540  32 3a 6a 75 25 3d 33 3a  4e 79 25 3d 34 3a 4d 4a  |2:ju%=3:Ny%=4:MJ|
00000550  25 3d 35 3a 58 5f 25 3d  36 3a 4e 75 25 3d 37 3a  |%=5:X_%=6:Nu%=7:|
00000560  4a 5f 25 3d 38 3a 4b 69  25 3d 39 3a 6b 65 25 3d  |J_%=8:Ki%=9:ke%=|
00000570  39 3a 75 25 3d 31 30 3a  75 75 25 3d 31 31 3a 71  |9:u%=10:uu%=11:q|
00000580  4a 25 3d 31 32 3a 65 50  25 3d 31 33 3a 60 79 25  |J%=12:eP%=13:`y%|
00000590  3d 31 34 3a 71 79 25 3d  31 35 3a 65 60 25 3d 31  |=14:qy%=15:e`%=1|
000005a0  36 3a 61 60 25 3d 31 37  3a 57 60 25 3d 31 38 3a  |6:a`%=17:W`%=18:|
000005b0  6d 60 25 3d 31 39 3a 70  6e 25 3d 32 30 3a 67 6f  |m`%=19:pn%=20:go|
000005c0  25 3d 32 31 3a 4d 5f 25  3d 32 32 3a e1 0d 00 1a  |%=21:M_%=22:....|
000005d0  f9 dd f2 65 6c 3a de 67  79 25 33 36 3a de 59 5a  |...el:.gy%36:.YZ|
000005e0  25 33 36 3a de 41 50 25  33 36 3a de 6b 72 25 33  |%36:.AP%36:.kr%3|
000005f0  36 3a 6f 42 25 3d 30 3a  68 4f 25 3d 31 3a 44 72  |6:oB%=0:hO%=1:Dr|
00000600  25 3d 32 3a 73 42 25 3d  33 3a 49 6f 25 3d 34 3a  |%=2:sB%=3:Io%=4:|
00000610  74 42 25 3d 35 3a 4e 65  25 3d 36 3a 75 42 25 3d  |tB%=5:Ne%=6:uB%=|
00000620  37 3a 68 61 25 3d 38 3a  56 75 25 3d 39 3a 64 6b  |7:ha%=8:Vu%=9:dk|
00000630  25 3d 31 30 3a 75 61 25  3d 31 32 3a 67 79 25 21  |%=10:ua%=12:gy%!|
00000640  30 3d 36 35 37 39 33 3a  67 79 25 21 34 3d 26 31  |0=65793:gy%!4=&1|
00000650  30 31 30 30 30 31 3a 67  79 25 21 38 3d 30 3a 67  |010001:gy%!8=0:g|
00000660  79 25 3f 68 61 25 3d 97  28 22 3f 22 29 3a 24 28  |y%?ha%=.("?"):$(|
00000670  67 79 25 2b 75 61 25 29  3d bd 39 2b bd 30 3a 21  |gy%+ua%)=.9+.0:!|
00000680  69 69 3d 67 79 25 3a 21  56 75 3d 41 50 25 3a 71  |ii=gy%:!Vu=AP%:q|
00000690  6f 25 3d a3 3a 5a 60 25  3d a3 3a de 42 25 28 31  |o%=.:Z`%=.:.B%(1|
000006a0  29 3a de 4a 25 28 31 29  3a de 4e 25 28 31 2c 31  |):.J%(1):.N%(1,1|
000006b0  35 29 3a de 51 25 28 31  2c 31 35 29 3a de 55 25  |5):.Q%(1,15):.U%|
000006c0  28 31 2c 31 35 29 0d 00  1b fc de 58 25 28 31 2c  |(1,15).....X%(1,|
000006d0  31 35 29 3a 78 4f 25 3d  a3 3a 55 69 25 3d 30 3a  |15):xO%=.:Ui%=0:|
000006e0  59 42 25 3d a3 3a 61 6e  25 3d 30 3a 68 6e 25 3d  |YB%=.:an%=0:hn%=|
000006f0  30 3a 6f 75 25 3d 30 3a  50 50 25 3d a3 3a 74 60  |0:ou%=0:PP%=.:t`|
00000700  25 3d a3 3a 76 6c 25 3d  b9 3a 49 79 25 3d a3 3a  |%=.:vl%=.:Iy%=.:|
00000710  72 4a 25 3d 2d 31 3a f2  5f 4a 3a 41 69 25 3d a3  |rJ%=-1:._J:Ai%=.|
00000720  3a 46 5f 25 3d a3 3a 6a  79 25 3d a3 3a 48 6e 25  |:F_%=.:jy%=.:Hn%|
00000730  3d a3 3a 5a 4f 25 3d a3  3a 42 42 25 3d b9 3a 65  |=.:ZO%=.:BB%=.:e|
00000740  6b 25 3d a3 3a 57 69 25  3d a3 3a 48 6f 25 3d a3  |k%=.:Wi%=.:Ho%=.|
00000750  3a 59 4f 25 3d a3 3a de  5a 20 36 30 3a 5a 21 30  |:YO%=.:.Z 60:Z!0|
00000760  3d 30 3a 5a 21 34 3d 30  3a 5a 21 38 3d 30 3a 5a  |=0:Z!4=0:Z!8=0:Z|
00000770  21 31 32 3d 30 3a 5a 21  31 36 3d 30 3a 5a 21 32  |!12=0:Z!16=0:Z!2|
00000780  30 3d 30 3a 5a 21 32 34  3d 50 4a 3a 5a 21 32 38  |0=0:Z!24=PJ:Z!28|
00000790  3d 4e 4a 3a 5a 21 33 32  3d 73 5f 3a 5a 21 33 36  |=NJ:Z!32=s_:Z!36|
000007a0  3d 5f 5f 3a 5a 21 34 30  3d 78 5f 3a 5a 21 34 34  |=__:Z!40=x_:Z!44|
000007b0  3d 46 4a 3a 5a 21 34 38  3d 62 5f 3a 5a 21 35 32  |=FJ:Z!48=b_:Z!52|
000007c0  3d 30 0d 00 1c f7 5a 21  35 36 3d 30 3a 55 6c 25  |=0....Z!56=0:Ul%|
000007d0  3d 30 3a 72 24 3d 22 22  3a 21 49 5f 3d 30 3a de  |=0:r$="":!I_=0:.|
000007e0  53 75 25 32 38 3a 41 42  25 3d a3 3a de 4a 6e 25  |Su%28:AB%=.:.Jn%|
000007f0  33 36 3a 43 79 24 3d 22  54 72 69 6e 69 74 79 2e  |36:Cy$="Trinity.|
00000800  4d 65 64 69 75 6d 22 3a  51 50 25 3d 31 32 38 30  |Medium":QP%=1280|
00000810  3a de 62 60 25 32 30 3a  5a 75 25 3d a3 3a 7a 6e  |:.b`%20:Zu%=.:zn|
00000820  25 3d 31 30 30 3a de 48  25 28 7a 6e 25 2d 31 29  |%=100:.H%(zn%-1)|
00000830  3a de 49 25 28 7a 6e 25  2d 31 29 3a de 4c 25 28  |:.I%(zn%-1):.L%(|
00000840  7a 6e 25 2d 31 29 3a 49  4f 25 3d a3 3a 52 4f 25  |zn%-1):IO%=.:RO%|
00000850  3d a3 3a de 66 6b 25 31  32 38 3a de 4d 60 25 34  |=.:.fk%128:.M`%4|
00000860  30 3a 42 6f 25 3d a3 3a  56 3d 30 3a 46 75 25 3d  |0:Bo%=.:V=0:Fu%=|
00000870  30 3a de 69 5a 25 34 30  3a de 69 6c 25 32 34 3a  |0:.iZ%40:.il%24:|
00000880  de 52 70 25 32 34 3a 44  5f 25 3d 31 3a 4f 5f 25  |.Rp%24:D_%=1:O_%|
00000890  3d 2d 31 3a 41 6f 25 3d  30 3a de 4d 24 28 31 39  |=-1:Ao%=0:.M$(19|
000008a0  29 3a de 5a 24 28 31 39  29 3a de 47 25 28 31 39  |):.Z$(19):.G%(19|
000008b0  29 3a de 50 25 28 31 39  29 0d 00 1d f9 de 50 24  |):.P%(19).....P$|
000008c0  28 31 39 29 3a de 43 24  28 31 39 29 3a de 44 25  |(19):.C$(19):.D%|
000008d0  28 31 39 29 3a de 56 25  28 31 39 29 3a de 42 50  |(19):.V%(19):.BP|
000008e0  25 32 35 36 3a 62 72 25  3d 2d 31 3a 79 72 25 3d  |%256:br%=-1:yr%=|
000008f0  2d 31 3a 56 6f 25 3d a3  3a 43 6b 25 3d a3 3a 67  |-1:Vo%=.:Ck%=.:g|
00000900  5f 25 3d 30 3a 69 5f 25  3d a3 3a 6f 6e 25 3d 2d  |_%=0:i_%=.:on%=-|
00000910  31 3a 5f 42 25 3d 2d 31  3a de 53 5f 25 33 36 3a  |1:_B%=-1:.S_%36:|
00000920  73 6c 25 3d 30 3a 43 69  25 3d 30 3a 6b 60 25 3d  |sl%=0:Ci%=0:k`%=|
00000930  30 3a 5f 60 25 3d a3 3a  4e 42 25 3d a3 3a 72 60  |0:_`%=.:NB%=.:r`|
00000940  25 3d a3 3a 51 42 25 3d  2d 31 3a 44 79 25 3d a3  |%=.:QB%=-1:Dy%=.|
00000950  3a 78 6f 25 3d a3 3a 6c  6f 25 3d a3 3a 53 79 24  |:xo%=.:lo%=.:Sy$|
00000960  3d 22 42 4f 4c 4c 4f 43  4b 53 22 3a 6b 24 3d 22  |="BOLLOCKS":k$="|
00000970  4d 41 52 56 49 4e 20 4d  41 52 56 20 44 41 56 45  |MARVIN MARV DAVE|
00000980  20 4d 41 52 54 20 4d 41  52 54 49 4e 22 3a 74 50  | MART MARTIN":tP|
00000990  25 3d a3 3a 78 50 25 3d  a3 3a 53 60 25 3d a3 3a  |%=.:xP%=.:S`%=.:|
000009a0  4a 75 25 3d 2d 31 3a 4e  4a 25 3d 30 3a 50 5f 25  |Ju%=-1:NJ%=0:P_%|
000009b0  3d 31 0d 00 1e fa 79 4f  25 3d a3 3a 53 3d 32 37  |=1....yO%=.:S=27|
000009c0  39 34 2f 31 31 30 3a 55  50 25 3d 30 3a 6e 6f 25  |94/110:UP%=0:no%|
000009d0  3d a3 3a 55 75 25 3d b9  3a 63 5a 25 3d b9 3a 69  |=.:Uu%=.:cZ%=.:i|
000009e0  60 25 3d a3 3a 55 25 3d  31 30 30 3a 79 4a 25 3d  |`%=.:U%=100:yJ%=|
000009f0  b9 3a 51 69 25 3d 31 30  30 3a de 4b 70 25 34 30  |.:Qi%=100:.Kp%40|
00000a00  3a 77 6f 25 3d a3 3a 72  79 25 3d a3 3a 59 6e 25  |:wo%=.:ry%=.:Yn%|
00000a10  3d a3 3a 57 79 25 3d a3  3a 5f 4a 25 3d a3 3a 6d  |=.:Wy%=.:_J%=.:m|
00000a20  75 25 3d a3 3a 4f 6c 25  3d a3 3a 50 6c 25 3d a3  |u%=.:Ol%=.:Pl%=.|
00000a30  3a 5a 6c 25 3d a3 3a 47  61 25 3d a3 3a 56 4f 25  |:Zl%=.:Ga%=.:VO%|
00000a40  3d a3 3a 4d 50 25 3d 30  3a 51 61 25 3d b9 3a de  |=.:MP%=0:Qa%=.:.|
00000a50  57 25 28 32 36 29 3a 6f  4a 25 3d 2d 31 3a 6c 4a  |W%(26):oJ%=-1:lJ|
00000a60  25 3d 2d 31 3a 4d 70 25  3d a3 3a 73 6e 25 3d 35  |%=-1:Mp%=.:sn%=5|
00000a70  30 30 3a de 79 50 25 32  35 36 3a 21 7a 69 3d 79  |00:.yP%256:!zi=y|
00000a80  50 25 3a de 62 6e 25 73  6e 25 2a 34 3a de 46 70  |P%:.bn%sn%*4:.Fp|
00000a90  25 73 6e 25 2a 34 3a de  57 72 25 20 28 73 6e 25  |%sn%*4:.Wr% (sn%|
00000aa0  2b 31 29 2a 34 3a 79 61  25 3d 34 30 0d 00 1f f3  |+1)*4:ya%=40....|
00000ab0  de 6b 4f 25 79 61 25 3a  21 64 61 3d 6b 4f 25 3a  |.kO%ya%:!da=kO%:|
00000ac0  de 47 72 25 32 35 36 3a  21 75 69 3d 47 72 25 3a  |.Gr%256:!ui=Gr%:|
00000ad0  e3 70 25 3d 30 b8 32 35  35 88 34 3a 47 72 25 21  |.p%=0.255.4:Gr%!|
00000ae0  70 25 3d 30 3a ed 3a f5  3a f3 55 61 25 2c 54 24  |p%=0:.:.:.Ua%,T$|
00000af0  3a 47 72 25 3f 28 97 28  54 24 29 29 3d 55 61 25  |:Gr%?(.(T$))=Ua%|
00000b00  3a fd 55 61 25 3d 30 3a  de 51 72 25 32 35 36 3a  |:.Ua%=0:.Qr%256:|
00000b10  21 6d 69 3d 51 72 25 3a  e3 70 25 3d 30 b8 32 35  |!mi=Qr%:.p%=0.25|
00000b20  35 88 34 3a 51 72 25 21  70 25 3d 30 3a ed 3a f5  |5.4:Qr%!p%=0:.:.|
00000b30  3a f3 55 61 25 2c 54 24  3a 51 72 25 3f 28 97 28  |:.Ua%,T$:Qr%?(.(|
00000b40  54 24 29 29 3d 55 61 25  3a fd 55 61 25 3d 30 3a  |T$))=Ua%:.Ua%=0:|
00000b50  de 48 60 25 32 35 36 3a  21 47 75 3d 48 60 25 3a  |.H`%256:!Gu=H`%:|
00000b60  de 4e 60 25 32 35 36 3a  21 65 6c 3d 4e 60 25 3a  |.N`%256:!el=N`%:|
00000b70  e3 70 25 3d 30 b8 32 35  35 88 34 3a 48 60 25 21  |.p%=0.255.4:H`%!|
00000b80  70 25 3d 30 3a ed 3a e3  70 25 3d 30 b8 32 35 35  |p%=0:.:.p%=0.255|
00000b90  88 34 3a 4e 60 25 21 70  25 3d 30 3a ed 3a f5 0d  |.4:N`%!p%=0:.:..|
00000ba0  00 20 f5 f3 54 24 2c 70  25 2c 5a 69 25 3a 48 60  |. ..T$,p%,Zi%:H`|
00000bb0  25 3f 28 97 28 54 24 29  29 3d 32 35 36 2a 70 25  |%?(.(T$))=256*p%|
00000bc0  2f 31 30 30 3a 4e 60 25  3f 28 97 28 54 24 29 29  |/100:N`%?(.(T$))|
00000bd0  3d 32 35 36 2a 5a 69 25  2f 31 30 30 3a fd 54 24  |=256*Zi%/100:.T$|
00000be0  3d 22 20 22 3a 4f 25 3d  97 28 22 30 22 29 3a f5  |=" ":O%=.("0"):.|
00000bf0  3a f3 70 25 2c 5a 69 25  3a 48 60 25 3f 28 4f 25  |:.p%,Zi%:H`%?(O%|
00000c00  29 3d 32 35 36 2a 70 25  2f 31 30 30 3a 4e 60 25  |)=256*p%/100:N`%|
00000c10  3f 28 4f 25 29 3d 32 35  36 2a 5a 69 25 2f 31 30  |?(O%)=256*Zi%/10|
00000c20  30 3a 4f 25 2b 3d 31 3a  fd 4f 25 3e 97 28 22 39  |0:O%+=1:.O%>.("9|
00000c30  22 29 3a 4f 25 3d 97 28  22 41 22 29 3a f5 3a f3  |"):O%=.("A"):.:.|
00000c40  70 25 2c 5a 69 25 3a 48  60 25 3f 28 4f 25 29 3d  |p%,Zi%:H`%?(O%)=|
00000c50  32 35 36 2a 70 25 2f 31  30 30 3a 4e 60 25 3f 28  |256*p%/100:N`%?(|
00000c60  4f 25 29 3d 32 35 36 2a  5a 69 25 2f 31 30 30 3a  |O%)=256*Zi%/100:|
00000c70  4f 25 2b 3d 31 3a fd 4f  25 3e 97 28 22 5a 22 29  |O%+=1:.O%>.("Z")|
00000c80  3a 4f 25 3d 97 28 22 61  22 29 3a f5 3a f3 70 25  |:O%=.("a"):.:.p%|
00000c90  2c 5a 69 25 0d 00 21 f9  48 60 25 3f 28 4f 25 29  |,Zi%..!.H`%?(O%)|
00000ca0  3d 32 35 36 2a 70 25 2f  31 30 30 3a 4e 60 25 3f  |=256*p%/100:N`%?|
00000cb0  28 4f 25 29 3d 32 35 36  2a 5a 69 25 2f 31 30 30  |(O%)=256*Zi%/100|
00000cc0  3a 4f 25 2b 3d 31 3a fd  4f 25 3e 97 28 22 7a 22  |:O%+=1:.O%>.("z"|
00000cd0  29 3a de 4b 41 25 32 35  36 3a 21 65 75 3d 4b 41  |):.KA%256:!eu=KA|
00000ce0  25 3a ff 28 22 4c 6f 61  64 20 3c 4f 70 74 63 6c  |%:.("Load <Optcl|
00000cf0  50 72 6f 24 44 69 72 3e  2e 53 44 61 74 61 20 22  |Pro$Dir>.SData "|
00000d00  2b c3 7e 28 4b 41 25 29  29 3a de 73 50 25 20 28  |+.~(KA%)):.sP% (|
00000d10  79 61 25 2b 31 29 2a 34  3a de 4d 25 28 32 35 29  |ya%+1)*4:.M%(25)|
00000d20  3a de 47 4a 25 32 34 3a  62 6c 25 3d 34 30 3a 21  |:.GJ%24:bl%=40:!|
00000d30  5a 75 3d 62 6c 25 3a 41  79 25 3d 2d 31 3a 57 5f  |Zu=bl%:Ay%=-1:W_|
00000d40  25 3d 2d 31 3a de 51 25  20 28 62 6c 25 2b 31 29  |%=-1:.Q% (bl%+1)|
00000d50  2a 31 36 3a de 63 61 25  20 28 62 6c 25 2b 31 29  |*16:.ca% (bl%+1)|
00000d60  2a 31 36 3a de 4a 50 25  20 28 62 6c 25 2b 31 29  |*16:.JP% (bl%+1)|
00000d70  2a 31 36 3a de 66 25 20  28 62 6c 25 2b 31 29 2a  |*16:.f% (bl%+1)*|
00000d80  31 36 3a de 69 6f 25 62  6c 25 2a 31 36 0d 00 22  |16:.io%bl%*16.."|
00000d90  f7 de 66 6c 25 32 35 36  3a de 69 65 25 32 35 36  |..fl%256:.ie%256|
00000da0  3a 74 5f 25 3d 30 3a 5a  61 25 3d 31 32 3a 53 50  |:t_%=0:Za%=12:SP|
00000db0  25 3d 31 32 3a 61 5f 25  3d a3 3a 50 25 3d 2d 31  |%=12:a_%=.:P%=-1|
00000dc0  3a 46 6e 25 3d 2d 31 3a  78 79 25 3d 2d 31 3a 51  |:Fn%=-1:xy%=-1:Q|
00000dd0  79 25 3d 30 3a 5f 25 3d  30 3a 6b 5f 25 3d 30 3a  |y%=0:_%=0:k_%=0:|
00000de0  de 48 6c 25 31 36 3a de  6b 6b 25 31 36 3a de 6c  |.Hl%16:.kk%16:.l|
00000df0  6b 25 34 3a 62 4a 25 3d  30 3a 75 4a 25 3d 30 3a  |k%4:bJ%=0:uJ%=0:|
00000e00  50 79 25 3d 30 3a 41 6e  25 3d 31 30 30 30 30 3a  |Py%=0:An%=10000:|
00000e10  55 72 25 3d 31 30 30 30  30 3a 41 61 25 3d 33 30  |Ur%=10000:Aa%=30|
00000e20  30 3a de 50 75 25 41 6e  25 3a de 4d 79 25 41 6e  |0:.Pu%An%:.My%An|
00000e30  25 2a 32 3a de 66 4a 25  41 61 25 2a 34 3a de 72  |%*2:.fJ%Aa%*4:.r|
00000e40  75 25 41 61 25 2a 34 3a  21 4a 61 3d 72 75 25 3a  |u%Aa%*4:!Ja=ru%:|
00000e50  de 4c 50 25 41 61 25 2a  34 3a de 52 50 25 41 61  |.LP%Aa%*4:.RP%Aa|
00000e60  25 3a de 76 69 25 41 61  25 3a de 4b 79 25 41 61  |%:.vi%Aa%:.Ky%Aa|
00000e70  25 2a 34 3a de 72 5f 25  41 61 25 2a 34 3a 21 4f  |%*4:.r_%Aa%*4:!O|
00000e80  3d 72 5f 25 0d 00 23 f8  21 78 3d 72 5f 25 3a de  |=r_%..#.!x=r_%:.|
00000e90  4a 4a 25 41 61 25 2a 34  3a 21 7a 3d 4a 4a 25 3a  |JJ%Aa%*4:!z=JJ%:|
00000ea0  21 5f 3d 4a 4a 25 3a de  61 25 55 72 25 2a 38 3a  |!_=JJ%:.a%Ur%*8:|
00000eb0  de 59 50 25 31 30 30 2a  38 3a de 72 72 25 38 3a  |.YP%100*8:.rr%8:|
00000ec0  de 56 50 25 38 2a 33 30  3a de 73 4f 25 38 2a 33  |.VP%8*30:.sO%8*3|
00000ed0  30 3a 4b 4a 25 3d 32 34  3a de 67 4a 25 32 38 2b  |0:KJ%=24:.gJ%28+|
00000ee0  20 28 4b 4a 25 2b 34 29  2a 32 34 3a de 56 42 25  | (KJ%+4)*24:.VB%|
00000ef0  32 38 2b 20 28 4b 4a 25  2b 34 29 2a 32 34 3a de  |28+ (KJ%+4)*24:.|
00000f00  67 6e 25 32 38 2b 20 28  4b 4a 25 2b 34 29 2a 32  |gn%28+ (KJ%+4)*2|
00000f10  34 3a de 4f 72 25 32 38  2b 20 28 4b 4a 25 2b 34  |4:.Or%28+ (KJ%+4|
00000f20  29 2a 32 34 3a de 41 24  28 4b 4a 25 29 3a de 53  |)*24:.A$(KJ%):.S|
00000f30  24 28 4b 4a 25 29 3a de  62 61 25 4b 4a 25 2b 31  |$(KJ%):.ba%KJ%+1|
00000f40  3a e3 71 25 3d 30 b8 4b  4a 25 3a 62 61 25 3f 71  |:.q%=0.KJ%:ba%?q|
00000f50  25 3d 32 35 35 3a ed 3a  de 53 25 28 4b 4a 25 29  |%=255:.:.S%(KJ%)|
00000f60  3a de 61 4a 25 4b 4a 25  2b 31 3a 21 4b 6c 3d 61  |:.aJ%KJ%+1:!Kl=a|
00000f70  4a 25 3a de 6a 42 25 4b  4a 25 2b 31 0d 00 24 88  |J%:.jB%KJ%+1..$.|
00000f80  4c 60 25 3d 4b 4a 25 2b  34 3a de 6c 60 25 34 30  |L`%=KJ%+4:.l`%40|
00000f90  2a 4c 60 25 3a 53 25 28  29 3d b9 3a 41 24 28 30  |*L`%:S%()=.:A$(0|
00000fa0  29 3d 22 54 69 6d 65 73  22 3a 69 25 3d 30 3a 62  |)="Times":i%=0:b|
00000fb0  5f 25 3d 30 3a 43 79 25  3d 30 3a 63 6c 25 3d b9  |_%=0:Cy%=0:cl%=.|
00000fc0  3a 70 69 25 3d b9 3a 54  61 25 3d b9 3a 66 61 25  |:pi%=.:Ta%=.:fa%|
00000fd0  3d b9 3a 58 24 3d 22 22  3a 4d 24 3d 22 22 3a 57  |=.:X$="":M$="":W|
00000fe0  50 25 3d 35 33 3a 6d 25  3d 30 3a 58 75 25 3d 30  |P%=53:m%=0:Xu%=0|
00000ff0  3a 61 61 25 3d 31 3a 4e  50 25 3d 31 3a 4c 5f 25  |:aa%=1:NP%=1:L_%|
00001000  3d 30 3a e1 0d 00 25 4d  dc 20 31 2c 31 2c 31 2c  |=0:...%M. 1,1,1,|
00001010  21 2c 31 2c a6 2c 31 2c  49 2c 31 2c 69 2c 31 2c  |!,1,.,1,I,1,i,1,|
00001020  6c 2c 31 2c cc 2c 31 2c  cd 2c 31 2c ce 2c 31 2c  |l,1,.,1,.,1,.,1,|
00001030  cf 2c 31 2c ec 2c 31 2c  ed 2c 31 2c ee 2c 31 2c  |.,1,.,1,.,1,.,1,|
00001040  ef 2c 31 2c 74 2c 31 2c  66 2c 31 2c 9e 2c 31 2c  |.,1,t,1,f,1,.,1,|
00001050  9f 0d 00 26 25 dc 20 32  2c 62 2c 32 2c 68 2c 32  |...&%. 2,b,2,h,2|
00001060  2c 6e 2c 32 2c 75 2c 32  2c f9 2c 32 2c fa 2c 32  |,n,2,u,2,.,2,.,2|
00001070  2c fb 2c 32 2c fc 0d 00  27 59 dc 20 33 2c 65 2c  |,.,2,...'Y. 3,e,|
00001080  33 2c 63 2c 33 2c 6f 2c  33 2c 30 2c 33 2c 4f 2c  |3,c,3,o,3,0,3,O,|
00001090  33 2c 51 2c 33 2c d2 2c  33 2c d3 2c 33 2c d4 2c  |3,Q,3,.,3,.,3,.,|
000010a0  33 2c d5 2c 33 2c d6 2c  33 2c f2 2c 33 2c f3 2c  |3,.,3,.,3,.,3,.,|
000010b0  33 2c f4 2c 33 2c f5 2c  33 2c f6 2c 33 2c e8 2c  |3,.,3,.,3,.,3,.,|
000010c0  33 2c e9 2c 33 2c ea 2c  33 2c eb 2c 33 2c e7 0d  |3,.,3,.,3,.,3,..|
000010d0  00 28 21 dc 20 34 2c 61  2c 34 2c e0 2c 34 2c e1  |.(!. 4,a,4,.,4,.|
000010e0  2c 34 2c e2 2c 34 2c e3  2c 34 2c e4 2c 34 2c e5  |,4,.,4,.,4,.,4,.|
000010f0  0d 00 29 0d dc 20 35 2c  71 2c 35 2c 67 0d 00 2a  |..).. 5,q,5,g..*|
00001100  0b dc 20 30 2c 22 20 22  0d 00 2b 0d dc 20 31 2c  |.. 0," "..+.. 1,|
00001110  74 2c 31 2c 72 0d 00 2c  15 dc 20 32 2c 6b 2c 32  |t,1,r..,.. 2,k,2|
00001120  2c 68 2c 32 2c 62 2c 32  2c 6f 0d 00 2d 0b dc 20  |,h,2,b,2,o..-.. |
00001130  30 2c 22 20 22 0d 00 2e  6d dc 20 21 2c 33 35 2c  |0," "...m. !,35,|
00001140  33 35 2c 28 2c 30 2c 32  30 2c 29 2c 32 30 2c 30  |35,(,0,20,),20,0|
00001150  2c a3 2c 30 2c 31 35 2c  3a 2c 33 30 2c 33 30 2c  |,.,0,15,:,30,30,|
00001160  3b 2c 33 30 2c 33 30 2c  3f 2c 31 35 2c 31 30 2c  |;,30,30,?,15,10,|
00001170  5b 2c 30 2c 33 35 2c 5d  2c 33 35 2c 30 2c 7b 2c  |[,0,35,],35,0,{,|
00001180  30 2c 33 35 2c 7d 2c 33  35 2c 30 2c 9e 2c 32 30  |0,35,},35,0,.,20|
00001190  2c 30 2c 9f 2c 32 30 2c  31 30 2c 22 20 22 2c 30  |,0,.,20,10," ",0|
000011a0  2c 30 0d 00 2f 40 dc 20  31 30 2c 31 30 2c 32 35  |,0../@. 10,10,25|
000011b0  2c 32 35 2c 32 30 2c 31  30 2c 32 35 2c 31 30 2c  |,25,20,10,25,10,|
000011c0  31 30 2c 31 30 2c 31 35  2c 31 35 2c 31 30 2c 31  |10,10,15,15,10,1|
000011d0  30 2c 30 2c 31 30 2c 31  35 2c 31 30 2c 31 30 2c  |0,0,10,15,10,10,|
000011e0  31 30 0d 00 30 97 dc 20  30 2c 30 2c 32 35 2c 31  |10..0.. 0,0,25,1|
000011f0  30 2c 30 2c 31 30 2c 32  35 2c 30 2c 32 30 2c 31  |0,0,10,25,0,20,1|
00001200  35 2c 32 30 2c 31 35 2c  30 2c 31 35 2c 31 32 2c  |5,20,15,0,15,12,|
00001210  31 32 2c 33 35 2c 33 35  2c 32 30 2c 32 30 2c 31  |12,35,35,20,20,1|
00001220  35 2c 31 35 2c 32 35 2c  30 2c 31 35 2c 31 35 2c  |5,15,25,0,15,15,|
00001230  31 35 2c 32 30 2c 31 30  2c 31 30 2c 32 35 2c 31  |15,20,10,10,25,1|
00001240  35 2c 30 2c 31 30 2c 32  35 2c 31 30 2c 31 30 2c  |5,0,10,25,10,10,|
00001250  31 30 2c 32 30 2c 32 30  2c 31 30 2c 32 30 2c 30  |10,20,20,10,20,0|
00001260  2c 32 30 2c 30 2c 31 30  2c 31 30 2c 31 30 2c 30  |,20,0,10,10,10,0|
00001270  2c 32 30 2c 31 30 2c 31  30 0d 00 31 91 dc 20 30  |,20,10,10..1.. 0|
00001280  2c 30 2c 31 30 2c 30 2c  35 2c 31 30 2c 31 35 2c  |,0,10,0,5,10,15,|
00001290  31 35 2c 31 30 2c 31 30  2c 32 35 2c 32 35 2c 31  |15,10,10,25,25,1|
000012a0  35 2c 31 35 2c 31 35 2c  30 2c 30 2c 31 35 2c 32  |5,15,15,0,0,15,2|
000012b0  30 2c 32 30 2c 31 35 2c  31 30 2c 32 35 2c 32 35  |0,20,15,10,25,25|
000012c0  2c 30 2c 30 2c 35 2c 30  2c 31 30 2c 31 30 2c 32  |,0,0,5,0,10,10,2|
000012d0  35 2c 31 35 2c 31 35 2c  31 35 2c 31 30 2c 31 35  |5,15,15,15,10,15|
000012e0  2c 31 30 2c 31 30 2c 31  30 2c 32 35 2c 30 2c 30  |,10,10,10,25,0,0|
000012f0  2c 30 2c 30 2c 30 2c 30  2c 31 35 2c 31 35 2c 31  |,0,0,0,0,15,15,1|
00001300  35 2c 31 35 2c 31 30 2c  31 30 0d 00 32 47 dd f2  |5,15,10,10..2G..|
00001310  77 69 3a ea 6d 6b 25 2c  7a 72 25 3a c8 99 26 32  |wi:.mk%,zr%:..&2|
00001320  30 30 33 39 2c 2c 22 44  72 61 67 41 53 70 72 69  |0039,,"DragASpri|
00001330  74 65 5f 53 74 61 72 74  22 b8 3b 77 79 25 3a e7  |te_Start".;wy%:.|
00001340  77 79 25 80 31 8c 4e 6f  25 3d a3 8b 4e 6f 25 3d  |wy%.1.No%=..No%=|
00001350  b9 0d 00 33 f5 21 63 3d  30 3a 51 65 25 3d 34 3a  |...3.!c=0:Qe%=4:|
00001360  21 41 3d 30 3a 21 51 6c  3d 30 3a de 68 75 25 31  |!A=0:!Ql=0:.hu%1|
00001370  34 3a de 6a 61 25 31 36  3a de 6c 65 25 31 36 3a  |4:.ja%16:.le%16:|
00001380  de 60 75 25 32 35 35 2c  51 6c 25 32 35 35 3a e3  |.`u%255,Ql%255:.|
00001390  70 25 3d 30 b8 31 33 3a  f3 4a 24 3a 68 75 25 3f  |p%=0.13:.J$:hu%?|
000013a0  70 25 3d 97 28 4a 24 29  3a ed 3a e3 70 25 3d 30  |p%=.(J$):.:.p%=0|
000013b0  b8 31 35 3a f3 4a 24 3a  6a 61 25 3f 70 25 3d 97  |.15:.J$:ja%?p%=.|
000013c0  28 4a 24 29 3a ed 3a e3  70 25 3d 30 b8 31 35 3a  |(J$):.:.p%=0.15:|
000013d0  f3 4a 24 3a 6c 65 25 3f  70 25 3d 97 28 4a 24 29  |.J$:le%?p%=.(J$)|
000013e0  3a ed 3a de 53 61 25 32  30 34 38 3a ff 28 22 4c  |:.:.Sa%2048:.("L|
000013f0  6f 61 64 20 3c 4f 70 74  63 6c 50 72 6f 24 44 69  |oad <OptclPro$Di|
00001400  72 3e 2e 54 61 62 6c 65  73 20 22 2b c3 7e 28 53  |r>.Tables "+.~(S|
00001410  61 25 29 29 3a de 47 6f  25 31 35 3a e3 70 25 3d  |a%)):.Go%15:.p%=|
00001420  30 b8 31 35 3a f3 47 6f  25 3f 70 25 3a ed 3a 21  |0.15:.Go%?p%:.:!|
00001430  47 61 3d 53 61 25 3a 21  63 69 3d 47 6f 25 3a de  |Ga=Sa%:!ci=Go%:.|
00001440  57 65 25 35 31 32 0d 00  34 f9 57 65 25 2b 3d 32  |We%512..4.We%+=2|
00001450  35 36 3a e3 68 25 3d 2d  37 b8 37 3a e3 79 25 3d  |56:.h%=-7.7:.y%=|
00001460  30 b8 37 3a 57 65 25 21  28 34 2a 28 79 25 2b 68  |0.7:We%!(4*(y%+h|
00001470  25 2a 38 29 29 3d b6 28  79 25 2a 79 25 2b 68 25  |%*8))=.(y%*y%+h%|
00001480  2a 68 25 29 2a 28 31 3c  3c 31 36 29 3a ed 3a ed  |*h%)*(1<<16):.:.|
00001490  3a 21 55 75 3d 57 65 25  3a de 67 5a 25 38 31 39  |:!Uu=We%:.gZ%819|
000014a0  32 3a e3 6d 6b 25 3d 30  b8 32 35 35 3a e3 7a 72  |2:.mk%=0.255:.zr|
000014b0  25 3d 30 b8 33 31 3a 67  5a 25 3f 28 33 32 2a 6d  |%=0.31:gZ%?(32*m|
000014c0  6b 25 2b 7a 72 25 29 3d  28 7a 72 25 2f 33 32 29  |k%+zr%)=(zr%/32)|
000014d0  2a 6d 6b 25 3a ed 3a ed  3a 21 77 61 3d 67 5a 25  |*mk%:.:.:!wa=gZ%|
000014e0  3a de 69 4f 25 36 34 3a  21 70 75 3d 69 4f 25 3a  |:.iO%64:!pu=iO%:|
000014f0  de 5f 50 25 32 35 36 3a  21 62 69 3d 5f 50 25 3a  |._P%256:!bi=_P%:|
00001500  de 6c 50 25 32 35 36 3a  21 48 61 3d 6c 50 25 3a  |.lP%256:!Ha=lP%:|
00001510  de 75 50 25 32 35 36 3a  21 59 6c 3d 75 50 25 3a  |.uP%256:!Yl=uP%:|
00001520  de 69 41 25 32 35 36 3a  21 68 61 3d 69 41 25 3a  |.iA%256:!ha=iA%:|
00001530  de 4f 50 25 35 38 3a de  63 50 25 31 30 32 34 0d  |.OP%58:.cP%1024.|
00001540  00 35 45 21 6b 6c 3d 4f  50 25 3a 21 7a 61 3d 63  |.5E!kl=OP%:!za=c|
00001550  50 25 3a 21 69 4a 3d 6c  65 25 3a 21 50 69 3d 6c  |P%:!iJ=le%:!Pi=l|
00001560  65 25 3a de 6f 5f 20 34  30 39 36 3a e3 79 25 3d  |e%:.o_ 4096:.y%=|
00001570  30 b8 36 33 3a e3 68 25  3d 30 b8 36 33 3a e7 79  |0.63:.h%=0.63:.y|
00001580  25 3d 30 8c 0d 00 36 14  6f 5f 3f 28 79 25 2b 68  |%=0...6.o_?(y%+h|
00001590  25 2a 36 34 29 3d 39 30  0d 00 37 1f cc 3a 6f 5f  |%*64)=90..7..:o_|
000015a0  3f 28 79 25 2b 68 25 2a  36 34 29 3d 9d 28 99 28  |?(y%+h%*64)=.(.(|
000015b0  68 25 2f 79 25 29 29 0d  00 38 d1 cd 3a ed 3a ed  |h%/y%))..8..:.:.|
000015c0  3a 21 58 6c 3d 6f 5f 3a  6a 50 25 3d a3 3a 6b 50  |:!Xl=o_:jP%=.:kP|
000015d0  25 3d 37 3a de 54 25 28  31 35 29 3a 54 25 28 29  |%=7:.T%(15):T%()|
000015e0  3d 30 3a de 4b 61 25 31  36 2a 34 3a de 4f 65 25  |=0:.Ka%16*4:.Oe%|
000015f0  32 2a 34 3a 4f 65 25 21  30 3d 2d 32 35 36 3a 4f  |2*4:Oe%!0=-256:O|
00001600  65 25 21 34 3d 30 3a de  74 5a 25 32 2a 34 3a de  |e%!4=0:.tZ%2*4:.|
00001610  4a 41 25 34 2a 34 3a de  64 41 25 31 36 2a 34 3a  |JA%4*4:.dA%16*4:|
00001620  e3 70 25 3d 30 b8 31 3a  f3 5f 79 25 3a 74 5a 25  |.p%=0.1:._y%:tZ%|
00001630  21 28 70 25 2a 34 29 3d  5f 79 25 3a ed 3a e3 70  |!(p%*4)=_y%:.:.p|
00001640  25 3d 30 b8 33 3a f3 5f  79 25 3a 4a 41 25 21 28  |%=0.3:._y%:JA%!(|
00001650  70 25 2a 34 29 3d 5f 79  25 3a ed 3a e3 70 25 3d  |p%*4)=_y%:.:.p%=|
00001660  30 b8 31 35 3a f3 5f 79  25 3a 64 41 25 21 28 70  |0.15:._y%:dA%!(p|
00001670  25 2a 34 29 3d 5f 79 25  3a ed 3a 21 4d 6c 3d 36  |%*4)=_y%:.:!Ml=6|
00001680  3a 21 79 61 3d 36 3a e1  0d 00 39 21 dc 20 61 2c  |:!ya=6:...9!. a,|
00001690  63 2c 64 2c 65 2c 69 2c  6c 2c 6d 2c 6e 2c 6f 2c  |c,d,e,i,l,m,n,o,|
000016a0  70 2c 72 2c 73 2c 74 2c  75 0d 00 3a 25 dc 20 62  |p,r,s,t,u..:%. b|
000016b0  2c 66 2c 67 2c 68 2c 6a  2c 6b 2c 71 2c 76 2c 77  |,f,g,h,j,k,q,v,w|
000016c0  2c 78 2c 79 2c 7a 2c 65  2c 65 2c 65 2c 69 0d 00  |,x,y,z,e,e,e,i..|
000016d0  3b 25 dc 20 61 2c 61 2c  61 2c 61 2c 61 2c 61 2c  |;%. a,a,a,a,a,a,|
000016e0  61 2c 61 2c 61 2c 61 2c  61 2c 61 2c 72 2c 64 2c  |a,a,a,a,a,a,r,d,|
000016f0  73 2c 6e 0d 00 3c 25 dc  20 30 2c 34 2c 36 2c 35  |s,n..<%. 0,4,6,5|
00001700  2c 30 2c 30 2c 37 2c 30  2c 32 2c 33 2c 30 2c 30  |,0,0,7,0,2,3,0,0|
00001710  2c 31 2c 30 2c 30 2c 30  0d 00 3d 19 dc 20 26 46  |,1,0,0,0..=.. &F|
00001720  46 46 46 46 46 30 30 2c  26 30 30 30 30 30 30 30  |FFFFF00,&0000000|
00001730  30 0d 00 3e 2d dc 20 26  46 46 46 46 46 46 30 30  |0..>-. &FFFFFF00|
00001740  2c 26 42 42 42 42 42 42  30 30 2c 26 37 37 37 37  |,&BBBBBB00,&7777|
00001750  37 37 30 30 2c 26 30 30  30 30 30 30 30 30 0d 00  |7700,&00000000..|
00001760  3f a5 dc 20 26 46 46 46  46 46 46 30 30 2c 26 44  |?.. &FFFFFF00,&D|
00001770  44 44 44 44 44 30 30 2c  26 42 42 42 42 42 42 30  |DDDDD00,&BBBBBB0|
00001780  30 2c 26 39 39 39 39 39  39 30 30 2c 26 37 37 37  |0,&99999900,&777|
00001790  37 37 37 30 30 2c 26 35  35 35 35 35 35 30 30 2c  |77700,&55555500,|
000017a0  26 33 33 33 33 33 33 30  30 2c 26 30 30 30 30 30  |&33333300,&00000|
000017b0  30 30 30 2c 26 39 39 34  34 30 30 30 30 2c 26 30  |000,&99440000,&0|
000017c0  30 45 45 45 45 30 30 2c  26 30 30 43 43 30 30 30  |0EEEE00,&00CC000|
000017d0  30 2c 26 30 30 30 30 44  44 30 30 2c 26 42 42 45  |0,&0000DD00,&BBE|
000017e0  45 45 45 30 30 2c 26 30  30 38 38 35 35 30 30 2c  |EEE00,&00885500,|
000017f0  26 30 30 42 42 46 46 30  30 2c 26 46 46 42 42 30  |&00BBFF00,&FFBB0|
00001800  30 30 30 0d 00 40 d0 dd  f2 50 6c 3a c8 99 35 37  |000..@...Pl:..57|
00001810  2c 2c 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 b8  |,,"OS_SpriteOp".|
00001820  74 4a 25 3a 6f 72 25 3d  32 35 36 2b 31 30 3a 43  |tJ%:or%=256+10:C|
00001830  60 25 3d 32 35 36 2b 39  3a 4e 6c 25 3d 32 35 36  |`%=256+9:Nl%=256|
00001840  2b 34 30 3a 70 6f 25 3d  32 35 36 2b 31 33 3a 57  |+40:po%=256+13:W|
00001850  6b 25 3d 32 35 36 2b 31  35 3a 46 4f 25 3d 32 35  |k%=256+15:FO%=25|
00001860  36 2b 32 34 3a 44 50 25  3d 35 31 32 2b 34 31 3a  |6+24:DP%=512+41:|
00001870  75 41 25 3d 35 31 32 2b  34 32 3a 49 50 25 3d 35  |uA%=512+42:IP%=5|
00001880  31 32 2b 35 32 3a 71 50  25 3d 32 35 36 2b 36 30  |12+52:qP%=256+60|
00001890  3a 77 69 25 3d 38 31 39  32 3a de 7a 25 31 36 3a  |:wi%=8192:.z%16:|
000018a0  de 4f 69 25 31 36 3a 7a  25 21 30 3d 31 3a 7a 25  |.Oi%16:z%!0=1:z%|
000018b0  21 34 3d 31 3a 7a 25 21  38 3d 31 3a 7a 25 21 31  |!4=1:z%!8=1:z%!1|
000018c0  32 3d 31 3a de 79 60 25  32 35 36 3a 4e 4f 25 3d  |2=1:.y`%256:NO%=|
000018d0  30 3a e1 0d 00 41 65 dd  f2 5a 6e 3a 46 25 3d ad  |0:...Ae..Zn:F%=.|
000018e0  28 22 3c 4f 70 74 63 6c  50 72 6f 24 44 69 72 3e  |("<OptclPro$Dir>|
000018f0  2e 43 6f 64 65 22 29 3a  59 79 25 3d a2 23 46 25  |.Code"):Yy%=.#F%|
00001900  3a d9 23 46 25 3a de 4a  25 59 79 25 3a ff 28 22  |:.#F%:.J%Yy%:.("|
00001910  4c 6f 61 64 20 3c 4f 70  74 63 6c 50 72 6f 24 44  |Load <OptclPro$D|
00001920  69 72 3e 2e 43 6f 64 65  20 22 2b c3 7e 28 4a 25  |ir>.Code "+.~(J%|
00001930  29 29 3a f2 62 61 3a e1  0d 00 42 f7 dd f2 52 61  |)):.ba:...B...Ra|
00001940  3a c8 99 26 34 30 30 64  39 2c 2c 22 3c 4f 70 74  |:..&400d9,,"<Opt|
00001950  63 6c 50 72 6f 24 44 69  72 3e 2e 22 2b 79 24 3a  |clPro$Dir>."+y$:|
00001960  42 6b 25 3d 30 3a 55 41  25 3d a4 53 79 28 22 21  |Bk%=0:UA%=.Sy("!|
00001970  4f 70 74 63 6c 44 65 6d  6f 22 29 3a 65 4a 25 3d  |OptclDemo"):eJ%=|
00001980  a4 43 28 22 41 75 74 6f  43 6f 6c 75 6d 6e 22 29  |.C("AutoColumn")|
00001990  3a 60 6c 25 3d a4 43 28  22 42 75 62 62 6c 65 22  |:`l%=.C("Bubble"|
000019a0  29 3a 66 79 25 3d a4 43  28 22 43 68 61 72 43 68  |):fy%=.C("CharCh|
000019b0  22 29 3a 73 4a 25 3d a4  43 28 22 43 68 61 72 73  |"):sJ%=.C("Chars|
000019c0  22 29 3a 42 79 25 3d a4  43 28 22 43 68 6f 69 63  |"):By%=.C("Choic|
000019d0  65 73 22 29 3a 65 5a 25  3d 2d 33 3a 69 79 25 3d  |es"):eZ%=-3:iy%=|
000019e0  a4 43 28 22 43 6f 6c 6f  75 72 22 29 3a 48 4a 25  |.C("Colour"):HJ%|
000019f0  3d a4 43 28 22 43 6f 6e  76 65 72 73 69 6f 6e 22  |=.C("Conversion"|
00001a00  29 3a 75 5f 25 3d a4 43  28 22 44 70 69 22 29 3a  |):u_%=.C("Dpi"):|
00001a10  78 25 3d a4 43 28 22 45  6e 68 61 6e 63 65 22 29  |x%=.C("Enhance")|
00001a20  3a 6b 25 3d a4 43 28 22  46 72 61 6d 65 22 29 0d  |:k%=.C("Frame").|
00001a30  00 43 eb 60 5f 25 3d a4  43 28 22 46 72 42 75 74  |.C.`_%=.C("FrBut|
00001a40  74 6f 6e 73 22 29 3a 52  60 25 3d a4 43 28 22 48  |tons"):R`%=.C("H|
00001a50  65 61 70 55 73 61 67 65  22 29 3a 49 6e 66 6f 5f  |eapUsage"):Info_|
00001a60  57 69 6e 64 6f 77 25 3d  a4 43 28 22 49 6e 66 6f  |Window%=.C("Info|
00001a70  22 29 3a 4e 6e 25 3d a4  43 28 22 4c 65 61 72 6e  |"):Nn%=.C("Learn|
00001a80  41 63 6f 72 6e 22 29 3a  67 25 3d a4 43 28 22 4c  |Acorn"):g%=.C("L|
00001a90  65 61 72 6e 65 72 22 29  3a 48 5f 25 3d a4 43 28  |earner"):H_%=.C(|
00001aa0  22 4d 65 72 67 65 22 29  3a 69 4a 25 3d a4 43 28  |"Merge"):iJ%=.C(|
00001ab0  22 4d 65 73 73 61 67 65  22 29 3a 49 4a 25 3d a4  |"Message"):IJ%=.|
00001ac0  43 28 22 4d 4c 45 22 29  3a 6a 4a 25 3d a4 43 28  |C("MLE"):jJ%=.C(|
00001ad0  22 4d 4c 45 53 63 72 6f  6c 6c 22 29 3a 51 5f 25  |"MLEScroll"):Q_%|
00001ae0  3d a4 43 28 22 50 69 63  74 75 72 65 22 29 3a 77  |=.C("Picture"):w|
00001af0  5f 25 3d a4 43 28 22 50  72 6f 63 65 73 73 22 29  |_%=.C("Process")|
00001b00  3a 53 61 76 65 46 5f 57  69 6e 64 6f 77 25 3d a4  |:SaveF_Window%=.|
00001b10  43 28 22 53 61 76 65 46  22 29 0d 00 44 fa 53 61  |C("SaveF")..D.Sa|
00001b20  76 65 54 65 78 74 5f 57  69 6e 64 6f 77 25 3d a4  |veText_Window%=.|
00001b30  43 28 22 53 61 76 65 54  65 78 74 22 29 3a 57 25  |C("SaveText"):W%|
00001b40  3d a4 43 28 22 53 63 61  6e 6e 65 72 22 29 3a 6b  |=.C("Scanner"):k|
00001b50  6c 25 3d a4 43 28 22 53  63 50 72 6f 67 72 65 73  |l%=.C("ScProgres|
00001b60  73 22 29 3a 4e 5f 25 3d  a4 43 28 22 53 65 6c 65  |s"):N_%=.C("Sele|
00001b70  63 74 22 29 3a 77 25 3d  a4 43 28 22 53 70 65 6c  |ct"):w%=.C("Spel|
00001b80  6c 22 29 3a 7a 75 25 3d  a4 43 28 22 53 70 6c 69  |l"):zu%=.C("Spli|
00001b90  74 74 65 72 22 29 3a 53  74 61 74 73 5f 57 69 6e  |tter"):Stats_Win|
00001ba0  64 6f 77 25 3d a4 43 28  22 53 74 61 74 69 73 74  |dow%=.C("Statist|
00001bb0  69 63 73 22 29 3a 65 25  3d a4 43 28 22 54 65 78  |ics"):e%=.C("Tex|
00001bc0  74 22 29 3a 52 5f 25 3d  a4 43 28 22 54 53 63 61  |t"):R_%=.C("TSca|
00001bd0  6e 22 29 3a 4d 6f 25 3d  a4 43 28 22 54 54 65 78  |n"):Mo%=.C("TTex|
00001be0  74 22 29 3a 56 5f 25 3d  a4 43 28 22 57 6f 72 64  |t"):V_%=.C("Word|
00001bf0  73 22 29 3a 5a 6f 6f 6d  5f 57 69 6e 64 6f 77 25  |s"):Zoom_Window%|
00001c00  3d a4 43 28 22 5a 6f 6f  6d 22 29 3a c8 99 26 34  |=.C("Zoom"):..&4|
00001c10  30 30 64 61 0d 00 45 94  5a 25 21 30 3d 77 25 3a  |00da..E.Z%!0=w%:|
00001c20  c8 99 26 34 30 30 63 62  2c 2c 5a 25 3a 4d 25 21  |..&400cb,,Z%:M%!|
00001c30  30 3d 56 5f 25 3a c8 99  26 34 30 30 63 62 2c 2c  |0=V_%:..&400cb,,|
00001c40  4d 25 3a 65 42 25 3d 4d  25 21 34 2d 5a 25 21 34  |M%:eB%=M%!4-Z%!4|
00001c50  3a 6c 42 25 3d 4d 25 21  38 2d 5a 25 21 38 3a 5a  |:lB%=M%!8-Z%!8:Z|
00001c60  25 21 30 3d 49 4a 25 3a  c8 99 26 34 30 30 63 62  |%!0=IJ%:..&400cb|
00001c70  2c 2c 5a 25 3a 4d 25 21  30 3d 6a 4a 25 3a c8 99  |,,Z%:M%!0=jJ%:..|
00001c80  26 34 30 30 63 62 2c 2c  4d 25 3a 4d 4f 25 3d 4d  |&400cb,,M%:MO%=M|
00001c90  25 21 34 2d 5a 25 21 34  3a 69 42 25 3d 4d 25 21  |%!4-Z%!4:iB%=M%!|
00001ca0  38 2d 5a 25 21 38 3a e1  0d 00 46 11 dd a4 64 28  |8-Z%!8:...F...d(|
00001cb0  59 25 29 3a c8 8e 59 25  ca 0d 00 47 18 c9 53 61  |Y%):..Y%...G..Sa|
00001cc0  76 65 54 65 78 74 5f 57  69 6e 64 6f 77 25 3a 3d  |veText_Window%:=|
00001cd0  b9 0d 00 48 15 c9 53 61  76 65 46 5f 57 69 6e 64  |...H..SaveF_Wind|
00001ce0  6f 77 25 3a 3d b9 0d 00  49 07 7f 3d a3 0d 00 4a  |ow%:=...I..=...J|
00001cf0  08 cb 3a 3d a3 0d 00 4b  0f dd a4 62 28 59 25 29  |..:=...K...b(Y%)|
00001d00  3d 4b 5f 25 0d 00 4c ee  dd f2 6d 61 3a de 55 73  |=K_%..L...ma:.Us|
00001d10  65 72 44 69 63 74 5f 4d  65 6e 75 25 32 38 2b 20  |erDict_Menu%28+ |
00001d20  28 38 2b 34 29 2a 32 34  3a 44 69 63 74 5f 4d 65  |(8+4)*24:Dict_Me|
00001d30  6e 75 25 3d a4 42 28 22  4f 70 74 69 63 61 6c 27  |nu%=.B("Optical'|
00001d40  73 2c 4c 6f 61 64 20 6c  65 78 69 63 6f 6e 2c 52  |s,Load lexicon,R|
00001d50  65 6d 6f 76 65 20 6c 65  78 69 63 6f 6e 22 29 3a  |emove lexicon"):|
00001d60  50 6c 61 69 6e 44 69 63  74 5f 4d 65 6e 75 25 3d  |PlainDict_Menu%=|
00001d70  a4 42 28 22 50 6c 61 69  6e 20 74 65 78 74 2c 52  |.B("Plain text,R|
00001d80  65 6d 6f 76 65 20 6c 65  78 69 63 6f 6e 22 29 3a  |emove lexicon"):|
00001d90  54 4a 25 3d a4 42 28 22  4c 65 78 69 63 6f 6e 20  |TJ%=.B("Lexicon |
00001da0  75 73 65 64 2c 4f 70 74  69 63 61 6c 27 73 3e 44  |used,Optical's>D|
00001db0  69 63 74 5f 4d 65 6e 75  25 2c 49 6d 70 72 65 73  |ict_Menu%,Impres|
00001dc0  73 69 6f 6e 27 73 3e 55  73 65 72 44 69 63 74 5f  |sion's>UserDict_|
00001dd0  4d 65 6e 75 25 2c 50 6c  61 69 6e 20 74 65 78 74  |Menu%,Plain text|
00001de0  3e 50 6c 61 69 6e 44 69  63 74 5f 4d 65 6e 75 25  |>PlainDict_Menu%|
00001df0  22 29 0d 00 4d a1 49 6d  61 67 65 5f 4d 65 6e 75  |")..M.Image_Menu|
00001e00  25 3d a4 42 28 22 49 6d  61 67 65 2c 53 68 6f 77  |%=.B("Image,Show|
00001e10  2c 52 65 6d 6f 76 65 22  29 3a 42 6c 25 3d a4 42  |,Remove"):Bl%=.B|
00001e20  28 22 4f 70 74 69 63 61  6c 20 50 72 6f 2c 49 6e  |("Optical Pro,In|
00001e30  66 6f 2e 2e 2e 3e 49 6e  66 6f 5f 57 69 6e 64 6f  |fo...>Info_Windo|
00001e40  77 25 2c 53 63 61 6e 6e  65 64 20 69 6d 61 67 65  |w%,Scanned image|
00001e50  2e 2e 2e 3e 49 6d 61 67  65 5f 4d 65 6e 75 25 2c  |...>Image_Menu%,|
00001e60  4f 43 52 65 64 20 74 65  78 74 2e 2e 2e 2c 46 6f  |OCRed text...,Fo|
00001e70  6e 74 20 6d 61 6e 61 67  65 72 2e 2e 2e 2c 50 72  |nt manager...,Pr|
00001e80  65 66 65 72 65 6e 63 65  73 2e 2e 2e 2c 51 75 69  |eferences...,Qui|
00001e90  74 22 29 0d 00 4e bc 46  69 6c 65 5f 4d 65 6e 75  |t")..N.File_Menu|
00001ea0  25 3d a4 42 28 22 46 69  6c 65 2c 54 6f 20 63 61  |%=.B("File,To ca|
00001eb0  72 65 74 2e 2e 2e 20 8b  5e 46 33 2c 53 61 76 65  |ret... .^F3,Save|
00001ec0  2e 2e 2e 20 20 20 20 20  20 20 46 33 3e 53 61 76  |...       F3>Sav|
00001ed0  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 41 70  |eText_Window%,Ap|
00001ee0  70 65 6e 64 20 20 20 20  20 20 20 20 5e 41 2c 53  |pend        ^A,S|
00001ef0  74 61 74 69 73 74 69 63  73 20 20 20 20 5e 53 3e  |tatistics    ^S>|
00001f00  53 74 61 74 73 5f 57 69  6e 64 6f 77 25 22 29 3a  |Stats_Window%"):|
00001f10  45 64 69 74 5f 4d 65 6e  75 25 3d a4 42 28 22 45  |Edit_Menu%=.B("E|
00001f20  64 69 74 20 2f 20 74 65  61 63 68 2c 53 70 65 6c  |dit / teach,Spel|
00001f30  6c 69 6e 67 2e 2e 2e 20  20 20 46 37 2c 54 79 70  |ling...   F7,Typ|
00001f40  65 20 74 65 61 63 68 20  20 20 8b 46 35 22 29 0d  |e teach   .F5").|
00001f50  00 4f ad 44 69 73 70 6c  61 79 5f 4d 65 6e 75 25  |.O.Display_Menu%|
00001f60  3d a4 42 28 22 44 69 73  70 6c 61 79 2c 53 68 6f  |=.B("Display,Sho|
00001f70  77 20 66 75 6c 6c 20 71  75 61 6c 69 74 79 20 20  |w full quality  |
00001f80  20 20 20 5e 51 2c 53 68  6f 77 20 69 6d 61 67 65  |   ^Q,Show image|
00001f90  20 62 75 62 62 6c 65 20  20 20 20 20 5e 42 2c 53  | bubble     ^B,S|
00001fa0  68 6f 77 20 69 6d 61 67  65 2e 2e 2e 20 20 20 20  |how image...    |
00001fb0  20 20 20 20 20 5e 49 22  29 3a 4d 69 73 63 5f 4d  |     ^I"):Misc_M|
00001fc0  65 6e 75 25 3d a4 42 28  22 4d 69 73 63 2c 46 6f  |enu%=.B("Misc,Fo|
00001fd0  72 6d 61 74 2e 2e 2e 20  20 8b 46 39 2c 52 65 61  |rmat...  .F9,Rea|
00001fe0  64 20 6f 75 74 2e 2e 2e  20 46 38 2c 52 65 2d 4f  |d out... F8,Re-O|
00001ff0  43 52 2e 2e 2e 20 20 20  5e 52 22 29 0d 00 50 66  |CR...   ^R")..Pf|
00002000  75 6b 25 3d a4 42 28 22  4f 43 52 65 64 20 74 65  |uk%=.B("OCRed te|
00002010  78 74 2c 46 69 6c 65 3e  46 69 6c 65 5f 4d 65 6e  |xt,File>File_Men|
00002020  75 25 2c 45 64 69 74 20  2f 20 74 65 61 63 68 3e  |u%,Edit / teach>|
00002030  45 64 69 74 5f 4d 65 6e  75 25 2c 44 69 73 70 6c  |Edit_Menu%,Displ|
00002040  61 79 3e 44 69 73 70 6c  61 79 5f 4d 65 6e 75 25  |ay>Display_Menu%|
00002050  2c 4d 69 73 63 3e 4d 69  73 63 5f 4d 65 6e 75 25  |,Misc>Misc_Menu%|
00002060  22 29 0d 00 51 ed 66 5f  25 3d a4 42 28 22 49 6d  |")..Q.f_%=.B("Im|
00002070  61 67 65 2c 52 65 61 64  20 70 61 67 65 2c 46 6f  |age,Read page,Fo|
00002080  6e 74 20 6d 61 6e 61 67  65 72 2e 2e 2e 2c 53 63  |nt manager...,Sc|
00002090  61 6c 65 20 69 6d 61 67  65 2e 2e 2e 3e 5a 6f 6f  |ale image...>Zoo|
000020a0  6d 5f 57 69 6e 64 6f 77  25 2c 45 64 69 74 20 63  |m_Window%,Edit c|
000020b0  6f 6c 75 6d 6e 73 2c 44  65 6c 65 74 65 20 63 6f  |olumns,Delete co|
000020c0  6c 75 6d 6e 73 2c 52 6f  74 61 74 65 20 69 6d 61  |lumns,Rotate ima|
000020d0  67 65 2c 4d 61 70 20 63  6f 6c 6f 75 72 73 2e 2e  |ge,Map colours..|
000020e0  2e 2c 52 65 2d 73 63 61  6e 20 69 6d 61 67 65 2c  |.,Re-scan image,|
000020f0  53 68 6f 77 20 74 6f 6f  6c 62 6f 78 22 29 3a 67  |Show toolbox"):g|
00002100  42 25 3d a4 42 28 22 49  6d 61 67 65 2c 41 6c 6c  |B%=.B("Image,All|
00002110  20 62 61 63 6b 67 72 6f  75 6e 64 2c 41 6c 6c 20  | background,All |
00002120  74 65 78 74 2c 49 6e 76  65 72 74 2c 55 70 64 61  |text,Invert,Upda|
00002130  74 65 20 70 61 67 65 2c  53 63 61 6c 65 2e 2e 2e  |te page,Scale...|
00002140  3e 5a 6f 6f 6d 5f 57 69  6e 64 6f 77 25 22 29 0d  |>Zoom_Window%").|
00002150  00 52 f7 68 6b 25 3d a4  42 28 22 49 6d 61 67 65  |.R.hk%=.B("Image|
00002160  2c 53 63 61 6c 65 2e 2e  2e 3e 5a 6f 6f 6d 5f 57  |,Scale...>Zoom_W|
00002170  69 6e 64 6f 77 25 22 29  3a 65 6e 25 3d a4 42 28  |indow%"):en%=.B(|
00002180  22 53 79 6e 74 68 65 73  69 7a 65 72 73 2c 41 52  |"Synthesizers,AR|
00002190  43 74 69 63 75 6c 61 74  65 2c 53 70 65 65 63 68  |Cticulate,Speech|
000021a0  21 2c 53 70 65 65 63 68  53 79 73 74 65 6d 22 29  |!,SpeechSystem")|
000021b0  3a 63 42 25 3d a4 42 28  22 53 70 6c 69 74 74 65  |:cB%=.B("Splitte|
000021c0  72 2c 53 69 6d 70 6c 65  2c 41 64 76 61 6e 63 65  |r,Simple,Advance|
000021d0  64 22 29 3a 4c 6f 25 3d  a4 42 28 22 53 63 61 6e  |d"):Lo%=.B("Scan|
000021e0  20 70 61 67 65 2c 53 65  6c 65 63 74 20 73 6f 75  | page,Select sou|
000021f0  72 63 65 2e 2e 2e 2c 41  63 71 75 69 72 65 2e 2e  |rce...,Acquire..|
00002200  2e 22 29 3a f2 55 28 44  69 63 74 5f 4d 65 6e 75  |."):.U(Dict_Menu|
00002210  25 2c 32 29 3a f2 66 28  67 42 25 2c 34 29 3a f2  |%,2):.f(gB%,4):.|
00002220  66 28 66 5f 25 2c 31 29  3a f2 66 28 66 5f 25 2c  |f(f_%,1):.f(f_%,|
00002230  33 29 3a f2 66 28 66 5f  25 2c 37 29 3a f2 66 28  |3):.f(f_%,7):.f(|
00002240  66 5f 25 2c 38 29 0d 00  53 7c f2 66 28 42 6c 25  |f_%,8)..S|.f(Bl%|
00002250  2c 31 29 3a f2 66 28 42  6c 25 2c 35 29 3a f2 66  |,1):.f(Bl%,5):.f|
00002260  28 46 69 6c 65 5f 4d 65  6e 75 25 2c 32 29 3a f2  |(File_Menu%,2):.|
00002270  66 28 44 69 73 70 6c 61  79 5f 4d 65 6e 75 25 2c  |f(Display_Menu%,|
00002280  32 29 3a f2 42 28 66 5f  25 2c 34 29 3a f2 42 28  |2):.B(f_%,4):.B(|
00002290  66 5f 25 2c 39 29 3a 61  6f 25 3d 32 32 30 30 30  |f_%,9):ao%=22000|
000022a0  3a de 67 69 25 61 6f 25  3a 50 6b 25 3d 34 30 39  |:.gi%ao%:Pk%=409|
000022b0  36 3a de 52 42 25 50 6b  25 3a 71 61 25 3d a4 6a  |6:.RB%Pk%:qa%=.j|
000022c0  3a e1 0d 00 54 11 dd a4  74 28 59 25 29 3a c8 8e  |:...T...t(Y%):..|
000022d0  59 25 ca 0d 00 55 44 c9  48 72 25 3a f2 41 28 49  |Y%...UD.Hr%:.A(I|
000022e0  6e 66 6f 5f 57 69 6e 64  6f 77 25 2c 35 2c 22 a9  |nfo_Window%,5,".|
000022f0  20 4d 61 72 74 69 6e 20  44 61 77 65 20 31 39 39  | Martin Dawe 199|
00002300  33 99 31 39 39 36 22 29  3a e7 5a 25 28 60 25 29  |3.1996"):.Z%(`%)|
00002310  3e 31 30 30 30 30 8c 0d  00 56 0d f2 52 28 42 6c  |>10000...V..R(Bl|
00002320  25 2c 32 29 0d 00 57 0f  cc 3a f2 55 28 42 6c 25  |%,2)..W..:.U(Bl%|
00002330  2c 32 29 0d 00 58 0a cd  3a 3d 42 6c 25 0d 00 59  |,2)..X..:=Bl%..Y|
00002340  0c c9 65 25 3a e7 6d 25  8c 0d 00 5a 36 f2 52 28  |..e%:.m%...Z6.R(|
00002350  4d 69 73 63 5f 4d 65 6e  75 25 2c 31 29 3a f2 52  |Misc_Menu%,1):.R|
00002360  28 46 69 6c 65 5f 4d 65  6e 75 25 2c 34 29 3a f2  |(File_Menu%,4):.|
00002370  52 28 45 64 69 74 5f 4d  65 6e 75 25 2c 32 29 0d  |R(Edit_Menu%,2).|
00002380  00 5b 38 cc 3a f2 55 28  4d 69 73 63 5f 4d 65 6e  |.[8.:.U(Misc_Men|
00002390  75 25 2c 31 29 3a f2 55  28 46 69 6c 65 5f 4d 65  |u%,1):.U(File_Me|
000023a0  6e 75 25 2c 34 29 3a f2  55 28 45 64 69 74 5f 4d  |nu%,4):.U(Edit_M|
000023b0  65 6e 75 25 2c 32 29 0d  00 5c 35 cd 3a e7 51 79  |enu%,2)..\5.:.Qy|
000023c0  25 3d 6d 25 80 6e 6f 25  3d a3 8c f2 55 28 4d 69  |%=m%.no%=...U(Mi|
000023d0  73 63 5f 4d 65 6e 75 25  2c 32 29 8b f2 52 28 4d  |sc_Menu%,2)..R(M|
000023e0  69 73 63 5f 4d 65 6e 75  25 2c 32 29 0d 00 5d 2d  |isc_Menu%,2)..]-|
000023f0  e7 51 79 25 3d 6d 25 8c  f2 55 28 46 69 6c 65 5f  |.Qy%=m%..U(File_|
00002400  4d 65 6e 75 25 2c 31 29  8b f2 52 28 46 69 6c 65  |Menu%,1)..R(File|
00002410  5f 4d 65 6e 75 25 2c 31  29 0d 00 5e 0b e7 61 5f  |_Menu%,1)..^..a_|
00002420  25 3d a3 8c 0d 00 5f 36  f2 55 28 4d 69 73 63 5f  |%=...._6.U(Misc_|
00002430  4d 65 6e 75 25 2c 31 29  3a f2 55 28 45 64 69 74  |Menu%,1):.U(Edit|
00002440  5f 4d 65 6e 75 25 2c 32  29 3a f2 55 28 4d 69 73  |_Menu%,2):.U(Mis|
00002450  63 5f 4d 65 6e 75 25 2c  33 29 0d 00 60 16 cc 3a  |c_Menu%,3)..`..:|
00002460  f2 52 28 4d 69 73 63 5f  4d 65 6e 75 25 2c 33 29  |.R(Misc_Menu%,3)|
00002470  0d 00 61 14 cd 3a e7 5a  25 28 60 25 29 3e 31 30  |..a..:.Z%(`%)>10|
00002480  30 30 30 8c 0d 00 62 17  f2 52 28 44 69 73 70 6c  |000...b..R(Displ|
00002490  61 79 5f 4d 65 6e 75 25  2c 33 29 0d 00 63 19 cc  |ay_Menu%,3)..c..|
000024a0  3a f2 55 28 44 69 73 70  6c 61 79 5f 4d 65 6e 75  |:.U(Display_Menu|
000024b0  25 2c 33 29 0d 00 64 0b  cd 3a e7 6e 6f 25 8c 0d  |%,3)..d..:.no%..|
000024c0  00 65 26 f2 43 5f 28 4d  69 73 63 5f 4d 65 6e 75  |.e&.C_(Misc_Menu|
000024d0  25 2c 32 2c 22 53 69 6c  65 6e 63 65 21 20 20 20  |%,2,"Silence!   |
000024e0  20 46 38 22 29 0d 00 66  28 cc 3a f2 43 5f 28 4d  | F8")..f(.:.C_(M|
000024f0  69 73 63 5f 4d 65 6e 75  25 2c 32 2c 22 52 65 61  |isc_Menu%,2,"Rea|
00002500  64 20 6f 75 74 2e 2e 2e  20 46 38 22 29 0d 00 67  |d out... F8")..g|
00002510  0b cd 3a e7 44 79 25 8c  0d 00 68 3c f2 55 28 44  |..:.Dy%...h<.U(D|
00002520  69 73 70 6c 61 79 5f 4d  65 6e 75 25 2c 31 29 3a  |isplay_Menu%,1):|
00002530  f2 55 28 44 69 73 70 6c  61 79 5f 4d 65 6e 75 25  |.U(Display_Menu%|
00002540  2c 32 29 3a f2 55 28 45  64 69 74 5f 4d 65 6e 75  |,2):.U(Edit_Menu|
00002550  25 2c 31 29 0d 00 69 3e  cc 3a f2 52 28 44 69 73  |%,1)..i>.:.R(Dis|
00002560  70 6c 61 79 5f 4d 65 6e  75 25 2c 31 29 3a f2 52  |play_Menu%,1):.R|
00002570  28 44 69 73 70 6c 61 79  5f 4d 65 6e 75 25 2c 32  |(Display_Menu%,2|
00002580  29 3a f2 52 28 45 64 69  74 5f 4d 65 6e 75 25 2c  |):.R(Edit_Menu%,|
00002590  31 29 0d 00 6a 18 cd 3a  e7 57 79 25 3c 3e 30 84  |1)..j..:.Wy%<>0.|
000025a0  21 41 3c 3e 30 84 49 79  25 8c 0d 00 6b 25 f2 55  |!A<>0.Iy%...k%.U|
000025b0  28 45 64 69 74 5f 4d 65  6e 75 25 2c 31 29 3a f2  |(Edit_Menu%,1):.|
000025c0  55 28 45 64 69 74 5f 4d  65 6e 75 25 2c 32 29 0d  |U(Edit_Menu%,2).|
000025d0  00 6c 0a cd 3a 3d 75 6b  25 0d 00 6d 3b c9 52 5f  |.l..:=uk%..m;.R_|
000025e0  25 3a f2 75 3a f2 55 28  67 4a 25 2c 32 2b 43 79  |%:.u:.U(gJ%,2+Cy|
000025f0  25 29 3a f2 55 28 67 4a  25 2c 34 2b 43 79 25 29  |%):.U(gJ%,4+Cy%)|
00002600  3a e7 43 79 25 3e 2d 31  f2 42 28 67 4a 25 2c 69  |:.Cy%>-1.B(gJ%,i|
00002610  25 2b 31 29 0d 00 6e 08  3d 67 4a 25 0d 00 6f 1f  |%+1)..n.=gJ%..o.|
00002620  c9 6b 25 3a e7 46 69 25  f2 52 28 66 5f 25 2c 38  |.k%:.Fi%.R(f_%,8|
00002630  29 8b f2 55 28 66 5f 25  2c 38 29 0d 00 70 08 3d  |)..U(f_%,8)..p.=|
00002640  66 5f 25 0d 00 71 0d c9  51 5f 25 3a 3d 67 42 25  |f_%..q..Q_%:=gB%|
00002650  0d 00 72 0d c9 77 5f 25  3a 3d 67 42 25 0d 00 73  |..r..w_%:=gB%..s|
00002660  0d c9 48 5f 25 3a 3d 68  6b 25 0d 00 74 11 c9 56  |..H_%:=hk%..t..V|
00002670  5f 25 3a f2 6a 4a 3a 3d  54 4a 25 0d 00 75 07 7f  |_%:.jJ:=TJ%..u..|
00002680  3d a3 0d 00 76 08 cb 3a  3d 30 0d 00 77 15 dd a4  |=...v..:=0..w...|
00002690  69 28 59 25 2c 76 5a 25  29 3a c8 8e 59 25 ca 0d  |i(Y%,vZ%):..Y%..|
000026a0  00 78 33 c9 67 25 3a f2  4d 28 67 25 29 3a f2 4d  |.x3.g%:.M(g%):.M|
000026b0  28 73 4a 25 29 3a f2 4d  28 48 4a 25 29 3a f2 4d  |(sJ%):.M(HJ%):.M|
000026c0  28 66 79 25 29 3a 4b 25  3d a4 41 28 31 2c 4e 75  |(fy%):K%=.A(1,Nu|
000026d0  25 29 0d 00 79 21 c9 51  5f 25 2c 77 5f 25 2c 69  |%)..y!.Q_%,w_%,i|
000026e0  79 25 3a 69 5f 25 3d a3  3a f2 4d 28 69 79 25 29  |y%:i_%=.:.M(iy%)|
000026f0  3a f2 48 0d 00 7a 1e c9  6b 25 3a e7 61 5f 25 3d  |:.H..z..k%:.a_%=|
00002700  a3 69 5f 25 3d a3 3a f2  48 8b f2 4d 28 60 5f 25  |.i_%=.:.H..M(`_%|
00002710  29 0d 00 7b 0f c9 48 5f  25 3a c8 8e 4b 75 25 ca  |)..{..H_%:..Ku%.|
00002720  0d 00 7c 4f c9 a3 3a f2  4c 28 6b 25 2c a4 4a 28  |..|O..:.L(k%,.J(|
00002730  6e 25 2a 52 25 29 2c a4  4a 28 74 25 2a 56 25 29  |n%*R%),.J(t%*V%)|
00002740  29 3a f2 4e 28 6b 25 2c  22 50 72 6f 63 65 73 73  |):.N(k%,"Process|
00002750  20 27 22 2b 58 24 2b 22  27 20 28 22 2b 4d 24 2b  | '"+X$+"' ("+M$+|
00002760  22 29 22 29 3a e7 55 75  25 f2 77 28 6b 25 29 0d  |")"):.Uu%.w(k%).|
00002770  00 7d 10 f2 47 28 6b 25  2c 2d 31 2c 2d 31 29 0d  |.}..G(k%,-1,-1).|
00002780  00 7e 87 c9 b9 3a f2 4c  28 51 5f 25 2c a4 4a 28  |.~...:.L(Q_%,.J(|
00002790  6e 25 2a 52 25 29 2c a4  4a 28 74 25 2a 56 25 29  |n%*R%),.J(t%*V%)|
000027a0  29 3a f2 4c 28 77 5f 25  2c a4 4a 28 6e 25 2a 52  |):.L(w_%,.J(n%*R|
000027b0  25 29 2c a4 4a 28 74 25  2a 56 25 29 29 3a f2 44  |%),.J(t%*V%)):.D|
000027c0  28 69 79 25 29 3a f2 4e  28 51 5f 25 2c 22 4f 72  |(iy%):.N(Q_%,"Or|
000027d0  69 67 69 6e 61 6c 20 69  6d 61 67 65 22 29 3a f2  |iginal image"):.|
000027e0  4e 28 77 5f 25 2c 22 50  72 6f 63 65 73 73 65 64  |N(w_%,"Processed|
000027f0  20 69 6d 61 67 65 22 29  3a f2 47 28 69 79 25 2c  | image"):.G(iy%,|
00002800  2d 31 2c 2d 31 29 0d 00  7f 12 cb 3a 4b 25 3d a4  |-1,-1).....:K%=.|
00002810  41 28 31 2c 4e 79 25 29  0d 00 80 16 c9 65 25 3a  |A(1,Ny%).....e%:|
00002820  f2 4d 28 77 25 29 3a f2  4d 28 56 5f 25 29 0d 00  |.M(w%):.M(V_%)..|
00002830  81 08 cb 3a 3d b9 0d 00  82 18 dd f2 4b 69 28 59  |...:=.......Ki(Y|
00002840  25 2c 4c 25 2c 58 25 29  3a c8 8e 59 25 ca 0d 00  |%,L%,X%):..Y%...|
00002850  83 0b c9 65 25 3a f2 4a  6c 0d 00 84 0c c9 51 5f  |...e%:.Jl.....Q_|
00002860  25 3a f2 70 61 0d 00 85  0c c9 52 5f 25 3a f2 74  |%:.pa.....R_%:.t|
00002870  69 0d 00 86 0c c9 77 5f  25 3a f2 78 6c 0d 00 87  |i.....w_%:.xl...|
00002880  0c c9 73 4a 25 3a f2 51  69 0d 00 88 0c c9 4e 5f  |..sJ%:.Qi.....N_|
00002890  25 3a f2 74 61 0d 00 89  0c c9 56 5f 25 3a f2 6e  |%:.ta.....V_%:.n|
000028a0  6c 0d 00 8a 0c c9 69 79  25 3a f2 56 6c 0d 00 8b  |l.....iy%:.Vl...|
000028b0  0b c9 6b 25 3a f2 46 6c  0d 00 8c 0c c9 48 5f 25  |..k%:.Fl.....H_%|
000028c0  3a f2 43 6e 0d 00 8d 0c  c9 66 79 25 3a f2 47 75  |:.Cn.....fy%:.Gu|
000028d0  0d 00 8e 0c c9 6a 4a 25  3a f2 52 6c 0d 00 8f 0c  |.....jJ%:.Rl....|
000028e0  c9 7a 75 25 3a f2 51 61  0d 00 90 0c c9 42 79 25  |.zu%:.Qa.....By%|
000028f0  3a f2 54 6c 0d 00 91 0c  c9 60 6c 25 3a f2 5f 75  |:.Tl.....`l%:._u|
00002900  0d 00 92 07 cb 3a e1 0d  00 93 1e dd f2 73 4a 28  |.....:.......sJ(|
00002910  59 25 2c 49 25 2c 62 25  2c 79 25 2c 68 25 29 3a  |Y%,I%,b%,y%,h%):|
00002920  c8 8e 59 25 ca 0d 00 94  0c c9 48 72 25 3a f2 6f  |..Y%......Hr%:.o|
00002930  69 0d 00 95 11 c9 65 25  3a f2 65 28 62 25 2c 49  |i.....e%:.e(b%,I|
00002940  25 29 0d 00 96 1c c9 49  6e 66 6f 5f 57 69 6e 64  |%).....Info_Wind|
00002950  6f 77 25 3a f2 4d 6c 28  62 25 2c 49 25 29 0d 00  |ow%:.Ml(b%,I%)..|
00002960  97 12 c9 67 25 3a f2 55  69 28 62 25 2c 49 25 29  |...g%:.Ui(b%,I%)|
00002970  0d 00 98 12 c9 77 25 3a  f2 4a 75 28 62 25 2c 49  |.....w%:.Ju(b%,I|
00002980  25 29 0d 00 99 13 c9 73  4a 25 3a f2 64 61 28 62  |%).....sJ%:.da(b|
00002990  25 2c 49 25 29 0d 00 9a  13 c9 69 79 25 3a f2 48  |%,I%).....iy%:.H|
000029a0  75 28 62 25 2c 49 25 29  0d 00 9b 13 c9 52 5f 25  |u(b%,I%).....R_%|
000029b0  3a f2 74 6c 28 62 25 2c  49 25 29 0d 00 9c 13 c9  |:.tl(b%,I%).....|
000029c0  4e 5f 25 3a f2 4d 6e 28  62 25 2c 49 25 29 0d 00  |N_%:.Mn(b%,I%)..|
000029d0  9d 13 c9 65 5a 25 3a f2  52 69 28 62 25 2c 49 25  |...eZ%:.Ri(b%,I%|
000029e0  29 0d 00 9e 13 c9 56 5f  25 3a f2 60 6c 28 62 25  |).....V_%:.`l(b%|
000029f0  2c 49 25 29 0d 00 9f 0c  c9 51 5f 25 3a f2 62 5f  |,I%).....Q_%:.b_|
00002a00  0d 00 a0 0c c9 77 5f 25  3a f2 62 5f 0d 00 a1 13  |.....w_%:.b_....|
00002a10  c9 42 79 25 3a f2 6d 69  28 62 25 2c 49 25 29 0d  |.By%:.mi(b%,I%).|
00002a20  00 a2 12 c9 6b 25 3a f2  54 69 28 62 25 2c 49 25  |....k%:.Ti(b%,I%|
00002a30  29 0d 00 a3 13 c9 60 5f  25 3a f2 4c 61 28 62 25  |).....`_%:.La(b%|
00002a40  2c 49 25 29 0d 00 a4 0c  c9 48 5f 25 3a f2 6f 5f  |,I%).....H_%:.o_|
00002a50  0d 00 a5 13 c9 66 79 25  3a f2 4c 6c 28 62 25 2c  |.....fy%:.Ll(b%,|
00002a60  49 25 29 0d 00 a6 1c c9  5a 6f 6f 6d 5f 57 69 6e  |I%).....Zoom_Win|
00002a70  64 6f 77 25 3a f2 75 69  28 62 25 2c 49 25 29 0d  |dow%:.ui(b%,I%).|
00002a80  00 a7 12 c9 57 25 3a f2  43 6c 28 62 25 2c 49 25  |....W%:.Cl(b%,I%|
00002a90  29 0d 00 a8 13 c9 43 69  25 3a f2 4d 69 28 62 25  |).....Ci%:.Mi(b%|
00002aa0  2c 49 25 29 0d 00 a9 13  c9 49 4a 25 3a f2 44 75  |,I%).....IJ%:.Du|
00002ab0  28 62 25 2c 49 25 29 0d  00 aa 13 c9 6a 4a 25 3a  |(b%,I%).....jJ%:|
00002ac0  f2 4e 69 28 62 25 2c 49  25 29 0d 00 ab 13 c9 69  |.Ni(b%,I%).....i|
00002ad0  4a 25 3a f2 61 4a 28 62  25 2c 49 25 29 0d 00 ac  |J%:.aJ(b%,I%)...|
00002ae0  12 c9 78 25 3a f2 78 69  28 62 25 2c 49 25 29 0d  |..x%:.xi(b%,I%).|
00002af0  00 ad 13 c9 65 4a 25 3a  f2 71 6c 28 62 25 2c 49  |....eJ%:.ql(b%,I|
00002b00  25 29 0d 00 ae 13 c9 7a  75 25 3a f2 49 75 28 62  |%).....zu%:.Iu(b|
00002b10  25 2c 49 25 29 0d 00 af  13 c9 75 5f 25 3a f2 47  |%,I%).....u_%:.G|
00002b20  61 28 62 25 2c 49 25 29  0d 00 b0 13 c9 48 4a 25  |a(b%,I%).....HJ%|
00002b30  3a f2 61 75 28 62 25 2c  49 25 29 0d 00 b1 07 cb  |:.au(b%,I%).....|
00002b40  3a e1 0d 00 b2 1e dd f2  6f 69 3a ea 6b 6e 25 3a  |:.......oi:.kn%:|
00002b50  e7 28 62 25 80 31 29 8c  69 5f 25 3d a3 3a f2 6c  |.(b%.1).i_%=.:.l|
00002b60  0d 00 b3 0c e7 28 62 25  80 34 29 8c 0d 00 b4 26  |.....(b%.4)....&|
00002b70  e7 a4 53 28 65 25 29 f2  44 28 65 25 29 3a f2 47  |..S(e%).D(e%):.G|
00002b80  28 65 25 2c 2d 31 2c 2d  31 29 3a f2 68 79 8b f2  |(e%,-1,-1):.hy..|
00002b90  42 79 0d 00 b5 07 cd 3a  e1 0d 00 b6 34 dd f2 65  |By.....:....4..e|
00002ba0  28 62 25 2c 49 25 29 3a  ea 4f 61 25 2c 4d 69 25  |(b%,I%):.Oa%,Mi%|
00002bb0  2c 4d 65 25 2c 4c 4f 25  3a e7 62 25 3d 36 34 80  |,Me%,LO%:.b%=64.|
00002bc0  5a 4f 25 3d b9 8c 5a 4f  25 3d a3 3a e1 0d 00 b7  |ZO%=..ZO%=.:....|
00002bd0  19 5a 4f 25 3d a3 3a e7  a6 2d 33 4d 69 25 3d b9  |.ZO%=.:..-3Mi%=.|
00002be0  8b 4d 69 25 3d a3 0d 00  b8 13 e7 a6 2d 32 4f 61  |.Mi%=.......-2Oa|
00002bf0  25 3d b9 8b 4f 61 25 3d  a3 0d 00 b9 13 e7 a6 2d  |%=..Oa%=.......-|
00002c00  31 4d 65 25 3d b9 8b 4d  65 25 3d a3 0d 00 ba 1e  |1Me%=..Me%=.....|
00002c10  e7 44 79 25 3d a3 80 62  25 3c 3e 31 30 30 f2 47  |.Dy%=..b%<>100.G|
00002c20  28 65 25 2c 2d 31 2c 2d  31 29 0d 00 bb 22 e7 76  |(e%,-1,-1)...".v|
00002c30  79 25 3d a3 80 28 62 25  80 34 29 80 4d 69 25 3d  |y%=..(b%.4).Mi%=|
00002c40  a3 80 4f 61 25 3d a3 f2  54 79 3a e1 0d 00 bc 2d  |..Oa%=..Ty:....-|
00002c50  e7 67 79 25 3f 56 75 25  3c 3e 30 80 28 62 25 80  |.gy%?Vu%<>0.(b%.|
00002c60  34 29 80 46 5f 25 3d a3  80 4d 69 25 3d a3 80 4f  |4).F_%=..Mi%=..O|
00002c70  61 25 3d a3 f2 54 79 3a  e1 0d 00 bd 18 e7 76 79  |a%=..Ty:......vy|
00002c80  25 3d a3 f2 47 28 65 25  2c 2d 31 2c 2d 31 29 3a  |%=..G(e%,-1,-1):|
00002c90  e1 0d 00 be 11 e7 67 79  25 3f 56 75 25 3c 3e 30  |......gy%?Vu%<>0|
00002ca0  8c e1 0d 00 bf 0e e7 5a  25 28 60 25 29 3d 30 e1  |.......Z%(`%)=0.|
00002cb0  0d 00 c0 17 ea 6b 6e 25  3a e7 5f 25 3c 3d 30 84  |.....kn%:._%<=0.|
00002cc0  61 5f 25 3d a3 8c e1 0d  00 c1 0c e7 62 25 3d 31  |a_%=........b%=1|
00002cd0  30 30 8c 0d 00 c2 22 78  79 25 3d 50 25 3a e7 78  |00...."xy%=P%:.x|
00002ce0  79 25 3e 3d 30 8c 4d 42  25 3d 75 4a 25 3a 5a 42  |y%>=0.MB%=uJ%:ZB|
00002cf0  25 3d 62 4a 25 0d 00 c3  12 e7 49 25 3d 32 30 30  |%=bJ%.....I%=200|
00002d00  8c 50 25 3d 51 42 25 0d  00 c4 0c e7 49 25 3d 31  |.P%=QB%.....I%=1|
00002d10  30 30 8c 0d 00 c5 09 e7  46 5f 25 8c 0d 00 c6 09  |00......F_%.....|
00002d20  46 5f 25 3d a3 0d 00 c7  13 cc 3a e7 a4 65 28 50  |F_%=......:..e(P|
00002d30  25 29 8c 46 5f 25 3d b9  0d 00 c8 09 50 25 2b 3d  |%).F_%=.....P%+=|
00002d40  31 0d 00 c9 05 cd 0d 00  ca 0d cd 3a e7 49 25 3d  |1..........:.I%=|
00002d50  35 30 8c 0d 00 cb 09 e7  46 5f 25 8c 0d 00 cc 20  |50......F_%.... |
00002d60  46 5f 25 3d a3 3a 50 25  2d 3d 31 3a e7 50 25 3c  |F_%=.:P%-=1:.P%<|
00002d70  30 8c 50 25 3d 30 3a 46  5f 25 3d b9 0d 00 cd 0e  |0.P%=0:F_%=.....|
00002d80  cc 3a e7 a4 4f 28 50 25  29 8c 0d 00 ce 09 46 5f  |.:..O(P%).....F_|
00002d90  25 3d b9 0d 00 cf 1c cc  3a 50 25 2d 3d 31 3a e7  |%=......:P%-=1:.|
00002da0  50 25 3c 30 8c 50 25 3d  30 3a 46 5f 25 3d b9 0d  |P%<0.P%=0:F_%=..|
00002db0  00 d0 05 cd 0d 00 d1 05  cd 0d 00 d2 18 cd 3a e7  |..............:.|
00002dc0  76 79 25 4c 4f 25 3d 33  36 8b 4c 4f 25 3d 4c 5f  |vy%LO%=36.LO%=L_|
00002dd0  25 0d 00 d3 0c e7 49 25  3d 31 31 30 8c 0d 00 d4  |%.....I%=110....|
00002de0  0d e7 44 79 25 84 6a 79  25 8c 0d 00 d5 39 f2 61  |..Dy%.jy%....9.a|
00002df0  28 50 25 29 3a 73 25 3d  32 2b 31 36 2a 75 4a 25  |(P%):s%=2+16*uJ%|
00002e00  3a 76 25 3d 32 2b 33 36  2a 28 62 4a 25 2b 74 5f  |:v%=2+36*(bJ%+t_|
00002e10  25 29 3a 5a 5f 25 3d 73  25 3a 75 79 25 3d 76 25  |%):Z_%=s%:uy%=v%|
00002e20  2d 33 36 0d 00 d6 3b cc  3a c8 99 26 34 30 30 64  |-36...;.:..&400d|
00002e30  33 2c 2c 5a 25 3a 73 25  3d 5a 25 21 38 3a 76 25  |3,,Z%:s%=Z%!8:v%|
00002e40  3d 5a 25 21 31 32 2b 33  32 3a 5a 5f 25 3d 73 25  |=Z%!12+32:Z_%=s%|
00002e50  2d 38 3a 75 79 25 3d 2d  76 25 2d 4c 4f 25 0d 00  |-8:uy%=-v%-LO%..|
00002e60  d7 2a cd 3a 46 5f 25 3d  a3 3a 78 79 25 3d 50 25  |.*.:F_%=.:xy%=P%|
00002e70  3a e7 78 79 25 3e 3d 30  8c 4d 42 25 3d 75 4a 25  |:.xy%>=0.MB%=uJ%|
00002e80  3a 5a 42 25 3d 62 4a 25  0d 00 d8 23 50 25 3d a4  |:ZB%=bJ%...#P%=.|
00002e90  54 28 5a 5f 25 2c 75 79  25 29 3a e7 50 25 3c 30  |T(Z_%,uy%):.P%<0|
00002ea0  8c 50 25 3d 30 3a 46 5f  25 3d b9 0d 00 d9 0e cd  |.P%=0:F_%=......|
00002eb0  3a e7 49 25 3d 31 32 30  8c 0d 00 da 0d e7 44 79  |:.I%=120......Dy|
00002ec0  25 84 6a 79 25 8c 0d 00  db 39 f2 61 28 50 25 29  |%.jy%....9.a(P%)|
00002ed0  3a 73 25 3d 32 2b 31 36  2a 75 4a 25 3a 76 25 3d  |:s%=2+16*uJ%:v%=|
00002ee0  32 2b 33 36 2a 28 62 4a  25 2b 74 5f 25 29 3a 5a  |2+36*(bJ%+t_%):Z|
00002ef0  5f 25 3d 73 25 3a 75 79  25 3d 76 25 2b 33 36 0d  |_%=s%:uy%=v%+36.|
00002f00  00 dc 3b cc 3a c8 99 26  34 30 30 64 33 2c 2c 5a  |..;.:..&400d3,,Z|
00002f10  25 3a 73 25 3d 5a 25 21  38 3a 76 25 3d 5a 25 21  |%:s%=Z%!8:v%=Z%!|
00002f20  31 32 2b 33 32 3a 5a 5f  25 3d 73 25 2d 38 3a 75  |12+32:Z_%=s%-8:u|
00002f30  79 25 3d 2d 76 25 2b 4c  4f 25 0d 00 dd 2a cd 3a  |y%=-v%+LO%...*.:|
00002f40  46 5f 25 3d a3 3a 78 79  25 3d 50 25 3a e7 78 79  |F_%=.:xy%=P%:.xy|
00002f50  25 3e 3d 30 8c 4d 42 25  3d 75 4a 25 3a 5a 42 25  |%>=0.MB%=uJ%:ZB%|
00002f60  3d 62 4a 25 0d 00 de 2d  50 25 3d a4 54 28 5a 5f  |=bJ%...-P%=.T(Z_|
00002f70  25 2c 75 79 25 29 3a e7  21 4b 61 3c 3e 30 8c 50  |%,uy%):.!Ka<>0.P|
00002f80  25 3d a4 54 28 5a 5f 25  2c 75 79 25 2b 4c 4f 25  |%=.T(Z_%,uy%+LO%|
00002f90  29 0d 00 df 10 cd 3a e7  44 79 25 8c 46 5f 25 3d  |).....:.Dy%.F_%=|
00002fa0  a3 0d 00 e0 19 e7 50 25  3e 3d 5f 25 8c 50 25 3d  |......P%>=_%.P%=|
00002fb0  5f 25 2d 31 3a 46 5f 25  3d a3 0d 00 e1 2e e7 28  |_%-1:F_%=......(|
00002fc0  57 79 25 3c 3e 30 84 21  41 3c 3e 30 84 49 79 25  |Wy%<>0.!A<>0.Iy%|
00002fd0  29 e7 50 25 3e 3d 4c 6e  25 8c 50 25 3d 4c 6e 25  |).P%>=Ln%.P%=Ln%|
00002fe0  2d 31 3a 46 5f 25 3d a3  0d 00 e2 23 e7 21 28 61  |-1:F_%=....#.!(a|
00002ff0  25 2b 50 25 2a 38 29 3d  2d 31 80 21 28 61 25 2b  |%+P%*8)=-1.!(a%+|
00003000  34 2b 50 25 2a 38 29 3d  2d 31 8c 0d 00 e3 09 c8  |4+P%*8)=-1......|
00003010  8e 49 25 ca 0d 00 e4 42  c9 31 30 30 3a c8 95 21  |.I%....B.100:..!|
00003020  28 61 25 2b 50 25 2a 38  29 3d 2d 31 80 21 28 61  |(a%+P%*8)=-1.!(a|
00003030  25 2b 34 2b 50 25 2a 38  29 3d 2d 31 80 50 25 3c  |%+4+P%*8)=-1.P%<|
00003040  5f 25 3a 50 25 2b 3d 31  3a ce 3a e7 50 25 3e 3d  |_%:P%+=1:.:.P%>=|
00003050  5f 25 50 25 3d 30 0d 00  e5 41 c9 35 30 3a c8 95  |_%P%=0...A.50:..|
00003060  21 28 61 25 2b 50 25 2a  38 29 3d 2d 31 80 21 28  |!(a%+P%*8)=-1.!(|
00003070  61 25 2b 34 2b 50 25 2a  38 29 3d 2d 31 80 50 25  |a%+4+P%*8)=-1.P%|
00003080  3e 30 3a 50 25 2d 3d 31  3a ce 3a e7 50 25 3d 30  |>0:P%-=1:.:.P%=0|
00003090  50 25 3d 5f 25 2d 31 0d  00 e6 05 cb 0d 00 e7 0d  |P%=_%-1.........|
000030a0  cd 3a e7 50 25 3e 3d 30  8c 0d 00 e8 40 41 25 3d  |.:.P%>=0....@A%=|
000030b0  50 25 3a 42 25 3d 51 79  25 3a 43 25 3d 6d 25 3a  |P%:B%=Qy%:C%=m%:|
000030c0  44 25 3d 41 25 28 71 79  25 29 3a 45 25 3d 70 5f  |D%=A%(qy%):E%=p_|
000030d0  25 3a d6 67 3a 75 4a 25  3d 21 62 3a 62 4a 25 3d  |%:.g:uJ%=!b:bJ%=|
000030e0  21 75 3a 50 79 25 3d 21  77 0d 00 e9 24 cd 3a c8  |!u:Py%=!w...$.:.|
000030f0  99 26 36 30 30 64 33 2c  2c 47 4a 25 3a e7 44 79  |.&600d3,,GJ%:.Dy|
00003100  25 80 47 4a 25 21 30 3c  3e 52 5f 25 8c 0d 00 ea  |%.GJ%!0<>R_%....|
00003110  30 54 6f 25 3d 47 4a 25  21 30 3a 61 6b 25 3d 47  |0To%=GJ%!0:ak%=G|
00003120  4a 25 21 34 3a 78 6b 25  3d 47 4a 25 21 32 30 3a  |J%!4:xk%=GJ%!20:|
00003130  f2 47 28 52 5f 25 2c 2d  31 2c 2d 31 29 0d 00 eb  |.G(R_%,-1,-1)...|
00003140  05 cd 0d 00 ec 9d cc 3a  5a 25 21 30 3d 65 25 3a  |.......:Z%!0=e%:|
00003150  c8 99 26 34 30 30 63 62  2c 2c 5a 25 3a 4c 25 3d  |..&400cb,,Z%:L%=|
00003160  5a 25 21 34 2d 5a 25 21  32 30 3a 58 25 3d 5a 25  |Z%!4-Z%!20:X%=Z%|
00003170  21 31 36 2d 5a 25 21 32  34 3a 68 6c 25 3d 2d 5a  |!16-Z%!24:hl%=-Z|
00003180  25 21 31 36 2b 5a 25 21  38 3a 72 6c 25 3d 5a 25  |%!16+Z%!8:rl%=Z%|
00003190  21 31 32 2d 5a 25 21 34  3a c8 99 26 34 30 30 63  |!12-Z%!4:..&400c|
000031a0  66 2c 2c 5a 25 3a 73 25  3d 5a 25 21 30 3a 76 25  |f,,Z%:s%=Z%!0:v%|
000031b0  3d 5a 25 21 34 3a e7 44  79 25 3d a3 80 6a 79 25  |=Z%!4:.Dy%=..jy%|
000031c0  3d a3 80 4d 69 25 3d a3  80 4f 61 25 3d a3 8c 73  |=..Mi%=..Oa%=..s|
000031d0  25 2d 3d 38 3a e7 73 25  3c 30 8c 73 25 3d 30 0d  |%-=8:.s%<0.s%=0.|
000031e0  00 ed 3c 5a 5f 25 3d 73  25 2d 4c 25 3a 75 79 25  |..<Z_%=s%-L%:uy%|
000031f0  3d 58 25 2d 76 25 3a 46  5f 25 3d a3 3a 78 79 25  |=X%-v%:F_%=.:xy%|
00003200  3d 50 25 3a e7 78 79 25  3e 3d 30 8c 4d 42 25 3d  |=P%:.xy%>=0.MB%=|
00003210  75 4a 25 3a 5a 42 25 3d  62 4a 25 0d 00 ee 37 50  |uJ%:ZB%=bJ%...7P|
00003220  25 3d a4 54 28 5a 5f 25  2c 75 79 25 29 3a e7 21  |%=.T(Z_%,uy%):.!|
00003230  28 61 25 2b 50 25 2a 38  29 3d 2d 31 80 21 28 61  |(a%+P%*8)=-1.!(a|
00003240  25 2b 34 2b 50 25 2a 38  29 3d 2d 31 8c 50 25 3d  |%+4+P%*8)=-1.P%=|
00003250  2d 31 0d 00 ef 13 cd 3a  e7 44 79 25 80 62 25 3c  |-1.....:.Dy%.b%<|
00003260  3e 31 30 30 8c 0d 00 f0  1e c8 99 26 36 30 30 64  |>100.......&600d|
00003270  33 2c 2c 47 4a 25 3a e7  47 4a 25 21 30 3c 3e 52  |3,,GJ%:.GJ%!0<>R|
00003280  5f 25 8c 0d 00 f1 30 54  6f 25 3d 47 4a 25 21 30  |_%....0To%=GJ%!0|
00003290  3a 61 6b 25 3d 47 4a 25  21 34 3a 78 6b 25 3d 47  |:ak%=GJ%!4:xk%=G|
000032a0  4a 25 21 32 30 3a f2 47  28 52 5f 25 2c 2d 31 2c  |J%!20:.G(R_%,-1,|
000032b0  2d 31 29 0d 00 f2 05 cd  0d 00 f3 2c cd 3a e7 44  |-1)........,.:.D|
000032c0  79 25 3d a3 80 6a 79 25  3d a3 e7 28 4d 79 25 3f  |y%=..jy%=..(My%?|
000032d0  28 50 25 2a 32 2b 31 29  29 80 32 38 8c f2 58 61  |(P%*2+1)).28..Xa|
000032e0  28 50 25 29 0d 00 f4 16  e7 62 25 3d 32 35 36 f2  |(P%).....b%=256.|
000032f0  48 4a 28 78 79 25 2c 50  25 29 0d 00 f5 37 e7 50  |HJ(xy%,P%)...7.P|
00003300  25 3d 78 79 25 80 44 79  25 3d a3 80 46 5f 25 3d  |%=xy%.Dy%=..F_%=|
00003310  a3 80 28 62 25 80 34 29  80 62 25 3c 3e 31 30 30  |..(b%.4).b%<>100|
00003320  80 4d 69 25 3d a3 80 4f  61 25 3d a3 f2 54 79 3a  |.Mi%=..Oa%=..Ty:|
00003330  e1 0d 00 f6 34 e7 50 25  3d 78 79 25 80 50 25 3d  |....4.P%=xy%.P%=|
00003340  2d 31 80 44 79 25 80 28  62 25 80 34 29 80 62 25  |-1.Dy%.(b%.4).b%|
00003350  3c 3e 31 30 30 80 4d 69  25 3d a3 80 4f 61 25 3d  |<>100.Mi%=..Oa%=|
00003360  a3 f2 79 3a e1 0d 00 f7  17 e7 50 25 3d 2d 31 8c  |..y:......P%=-1.|
00003370  50 25 3d 78 79 25 3a f2  4e 79 3a e1 0d 00 f8 1a  |P%=xy%:.Ny:.....|
00003380  e7 44 79 25 80 4d 65 25  80 62 25 3c 3e 31 30 30  |.Dy%.Me%.b%<>100|
00003390  8c 41 42 25 3d b9 0d 00  f9 13 e7 44 79 25 3d a3  |.AB%=......Dy%=.|
000033a0  84 62 25 3c 3e 31 30 30  8c 0d 00 fa 0a 50 79 25  |.b%<>100.....Py%|
000033b0  3d 21 77 0d 00 fb 0f cd  3a e7 a4 53 28 52 5f 25  |=!w.....:..S(R_%|
000033c0  29 8c 0d 00 fc 8f c8 94  6f 69 25 2c 55 25 3a 5a  |).......oi%,U%:Z|
000033d0  25 21 30 3d 52 5f 25 3a  5a 25 21 34 3d 30 3a 5a  |%!0=R_%:Z%!4=0:Z|
000033e0  25 21 38 3d 2d 74 25 2a  56 25 2a 55 25 2f 31 30  |%!8=-t%*V%*U%/10|
000033f0  30 3a 5a 25 21 31 32 3d  6e 25 2a 52 25 2a 55 25  |0:Z%!12=n%*R%*U%|
00003400  2f 31 30 30 3a 5a 25 21  31 36 3d 30 3a c8 99 26  |/100:Z%!16=0:..&|
00003410  34 30 30 63 39 2c 2c 5a  25 b8 64 25 3a 4c 25 3d  |400c9,,Z%.d%:L%=|
00003420  5a 25 21 34 2d 5a 25 21  32 30 3a 58 25 3d 5a 25  |Z%!4-Z%!20:X%=Z%|
00003430  21 31 36 2d 5a 25 21 32  34 3a c8 95 64 25 3a e7  |!16-Z%!24:..d%:.|
00003440  78 79 25 3e 3d 30 f2 74  79 28 78 79 25 2c 2d 31  |xy%>=0.ty(xy%,-1|
00003450  29 0d 00 fd ea f2 74 79  28 50 25 2c 2d 31 29 3a  |).....ty(P%,-1):|
00003460  c8 99 26 34 30 30 63 61  2c 2c 5a 25 b8 64 25 3a  |..&400ca,,Z%.d%:|
00003470  ce 3a 6f 79 25 3d 28 21  28 61 25 2b 50 25 2a 38  |.:oy%=(!(a%+P%*8|
00003480  29 80 36 35 35 33 35 29  2a 55 25 2f 31 30 30 2a  |).65535)*U%/100*|
00003490  52 25 3a 64 4a 25 3d 28  21 28 61 25 2b 32 2b 50  |R%:dJ%=(!(a%+2+P|
000034a0  25 2a 38 29 80 36 35 35  33 35 29 2a 55 25 2f 31  |%*8).65535)*U%/1|
000034b0  30 30 2a 52 25 3a 54 5f  25 3d 28 21 28 61 25 2b  |00*R%:T_%=(!(a%+|
000034c0  34 2b 50 25 2a 38 29 80  36 35 35 33 35 29 2a 55  |4+P%*8).65535)*U|
000034d0  25 2f 31 30 30 2a 56 25  3a 59 75 25 3d 28 21 28  |%/100*V%:Yu%=(!(|
000034e0  61 25 2b 36 2b 50 25 2a  38 29 80 36 35 35 33 35  |a%+6+P%*8).65535|
000034f0  29 2a 55 25 2f 31 30 30  2a 56 25 3a 5a 25 21 30  |)*U%/100*V%:Z%!0|
00003500  3d 52 5f 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |=R_%:..&400cb,,Z|
00003510  25 3a 74 6b 25 3d 5a 25  21 32 30 3a 62 6b 25 3d  |%:tk%=Z%!20:bk%=|
00003520  5a 25 21 32 30 2b 5a 25  21 31 32 2d 5a 25 21 34  |Z%!20+Z%!12-Z%!4|
00003530  3a 6a 4f 25 3d 2d 5a 25  21 32 34 0d 00 fe 3b 6d  |:jO%=-Z%!24...;m|
00003540  4f 25 3d 2d 5a 25 21 32  34 2b 5a 25 21 31 36 2d  |O%=-Z%!24+Z%!16-|
00003550  5a 25 21 38 3a e7 6f 79  25 3c 74 6b 25 84 64 4a  |Z%!8:.oy%<tk%.dJ|
00003560  25 3e 62 6b 25 84 54 5f  25 3c 6a 4f 25 84 59 75  |%>bk%.T_%<jO%.Yu|
00003570  25 3e 6d 4f 25 8c 0d 00  ff 15 e7 6f 79 25 3c 74  |%>mO%......oy%<t|
00003580  6b 25 84 64 4a 25 3e 62  6b 25 8c 0d 01 00 25 5a  |k%.dJ%>bk%....%Z|
00003590  25 21 32 30 3d 6f 79 25  2d 28 28 62 6b 25 2d 74  |%!20=oy%-((bk%-t|
000035a0  6b 25 29 2d 28 64 4a 25  2d 6f 79 25 29 29 2f 32  |k%)-(dJ%-oy%))/2|
000035b0  0d 01 01 17 cd 3a e7 54  5f 25 3c 6a 4f 25 84 59  |.....:.T_%<jO%.Y|
000035c0  75 25 3e 6d 4f 25 8c 0d  01 02 25 5a 25 21 32 34  |u%>mO%....%Z%!24|
000035d0  3d 28 28 6d 4f 25 2d 6a  4f 25 29 2d 28 59 75 25  |=((mO%-jO%)-(Yu%|
000035e0  2d 54 5f 25 29 29 2f 32  2d 54 5f 25 0d 01 03 12  |-T_%))/2-T_%....|
000035f0  cd 3a c8 99 26 34 30 30  63 35 2c 2c 5a 25 0d 01  |.:..&400c5,,Z%..|
00003600  04 0e cd 3a c8 94 6f 69  25 2c 55 25 0d 01 05 22  |...:..oi%,U%..."|
00003610  cd 3a e7 44 79 25 84 28  6a 79 25 80 57 79 25 3d  |.:.Dy%.(jy%.Wy%=|
00003620  30 80 21 41 3d 30 80 49  79 25 3d 30 29 8c 0d 01  |0.!A=0.Iy%=0)...|
00003630  06 7c 5a 25 21 30 3d 65  25 3a 5a 25 21 34 3d 30  |.|Z%!0=e%:Z%!4=0|
00003640  3a 5a 25 21 38 3d 2d 31  3c 3c 31 36 3a 5a 25 21  |:Z%!8=-1<<16:Z%!|
00003650  31 32 3d 31 3c 3c 31 36  3a 5a 25 21 31 36 3d 30  |12=1<<16:Z%!16=0|
00003660  3a c8 99 26 34 30 30 63  39 2c 2c 5a 25 b8 64 25  |:..&400c9,,Z%.d%|
00003670  3a 4c 25 3d 5a 25 21 34  2d 5a 25 21 32 30 3a 58  |:L%=Z%!4-Z%!20:X|
00003680  25 3d 5a 25 21 31 36 2d  5a 25 21 32 34 3a 58 61  |%=Z%!16-Z%!24:Xa|
00003690  25 3d b9 3a c8 95 64 25  3a e7 78 79 25 3e 3d 30  |%=.:..d%:.xy%>=0|
000036a0  f2 67 28 78 79 25 2c 2d  31 29 0d 01 07 13 e7 50  |.g(xy%,-1).....P|
000036b0  25 3e 3d 30 f2 67 28 50  25 2c 2d 31 29 0d 01 08  |%>=0.g(P%,-1)...|
000036c0  15 c8 99 26 34 30 30 63  61 2c 2c 5a 25 b8 64 25  |...&400ca,,Z%.d%|
000036d0  3a ce 0d 01 09 26 cd 3a  f2 4f 28 50 25 29 3a f2  |:....&.:.O(P%):.|
000036e0  41 5f 3a e7 57 79 25 3c  3e 30 84 21 41 3c 3e 30  |A_:.Wy%<>0.!A<>0|
000036f0  84 49 79 25 3c 3e 30 e1  0d 01 0a 13 e7 44 79 25  |.Iy%<>0......Dy%|
00003700  84 4d 69 25 84 4f 61 25  f2 7a 79 0d 01 0b 13 e7  |.Mi%.Oa%.zy.....|
00003710  4d 69 25 80 62 25 3d 31  30 32 34 f2 56 4a 0d 01  |Mi%.b%=1024.VJ..|
00003720  0c 19 e7 4f 61 25 80 62  25 3d 31 30 32 34 80 44  |...Oa%.b%=1024.D|
00003730  79 25 3d a3 f2 46 75 0d  01 0d 05 e1 0d 01 0e 93  |y%=..Fu.........|
00003740  dd f2 66 69 3a ea 46 5f  25 2c 68 25 3a 5a 25 21  |..fi:.F_%,h%:Z%!|
00003750  30 3d 65 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |0=e%:..&400cb,,Z|
00003760  25 3a 4c 25 3d 5a 25 21  34 2d 5a 25 21 32 30 3a  |%:L%=Z%!4-Z%!20:|
00003770  58 25 3d 5a 25 21 31 36  2d 5a 25 21 32 34 3a 68  |X%=Z%!16-Z%!24:h|
00003780  6c 25 3d 2d 5a 25 21 31  36 2b 5a 25 21 38 3a 72  |l%=-Z%!16+Z%!8:r|
00003790  6c 25 3d 5a 25 21 31 32  2d 5a 25 21 34 3a f2 71  |l%=Z%!12-Z%!4:.q|
000037a0  3a e7 73 25 3e 5a 25 21  31 32 84 73 25 3c 5a 25  |:.s%>Z%!12.s%<Z%|
000037b0  21 34 84 76 25 3e 5a 25  21 31 36 84 76 25 3c 5a  |!4.v%>Z%!16.v%<Z|
000037c0  25 21 38 84 5a 6f 25 3c  3e 65 25 f2 63 3a e1 0d  |%!8.Zo%<>e%.c:..|
000037d0  01 0f 32 58 69 25 3d 50  25 3a e7 21 28 61 25 2b  |..2Xi%=P%:.!(a%+|
000037e0  58 69 25 2a 38 29 3d 2d  31 80 21 28 61 25 2b 34  |Xi%*8)=-1.!(a%+4|
000037f0  2b 58 69 25 2a 38 29 3d  2d 31 8c 58 69 25 3d 2d  |+Xi%*8)=-1.Xi%=-|
00003800  31 0d 01 10 21 e7 58 69  25 3d 2d 31 84 76 79 25  |1...!.Xi%=-1.vy%|
00003810  3d a3 84 67 79 25 3f 56  75 25 3c 3e 30 8c f2 63  |=..gy%?Vu%<>0..c|
00003820  3a e1 0d 01 11 2d f2 4d  79 28 58 69 25 2c 58 69  |:....-.My(Xi%,Xi|
00003830  25 29 3a 68 25 3d 58 25  2d 72 4a 25 3a e7 68 25  |%):h%=X%-rJ%:.h%|
00003840  3e 5a 25 21 31 36 8c 68  25 3d 5a 25 21 31 36 0d  |>Z%!16.h%=Z%!16.|
00003850  01 12 14 e7 68 25 3c 5a  25 21 38 8c 68 25 3d 5a  |....h%<Z%!8.h%=Z|
00003860  25 21 38 0d 01 13 1e f2  72 75 28 4c 25 2b 4f 75  |%!8.....ru(L%+Ou|
00003870  25 2b 31 30 2c 68 25 2c  34 38 30 2c 36 34 29 3a  |%+10,h%,480,64):|
00003880  e1 0d 01 14 6c dd f2 58  61 28 79 75 25 29 3a ea  |....l..Xa(yu%):.|
00003890  50 72 25 2c 52 65 25 3a  50 72 25 3d 4d 79 25 3f  |Pr%,Re%:Pr%=My%?|
000038a0  28 79 75 25 2a 32 2b 31  29 80 32 38 3a 52 65 25  |(yu%*2+1).28:Re%|
000038b0  3d a3 3a c8 95 79 75 25  3e 30 80 52 65 25 3d a3  |=.:..yu%>0.Re%=.|
000038c0  3a 79 75 25 2d 3d 31 3a  e7 28 4d 79 25 3f 28 79  |:yu%-=1:.(My%?(y|
000038d0  75 25 2a 32 2b 31 29 80  32 38 29 3c 3e 50 72 25  |u%*2+1).28)<>Pr%|
000038e0  8c 79 75 25 2b 3d 31 3a  52 65 25 3d b9 0d 01 15  |.yu%+=1:Re%=....|
000038f0  34 ce 3a f5 3a 4d 79 25  3f 28 79 75 25 2a 32 2b  |4.:.:My%?(yu%*2+|
00003900  31 29 3d 4d 79 25 3f 28  79 75 25 2a 32 2b 31 29  |1)=My%?(yu%*2+1)|
00003910  80 32 32 37 3a e7 76 79  25 f2 41 79 28 79 75 25  |.227:.vy%.Ay(yu%|
00003920  29 0d 01 16 43 79 75 25  2b 3d 31 3a fd 79 75 25  |)...Cyu%+=1:.yu%|
00003930  3e 3d 5f 25 84 28 4d 79  25 3f 28 79 75 25 2a 32  |>=_%.(My%?(yu%*2|
00003940  2b 31 29 80 32 38 29 3c  3e 50 72 25 3a e7 76 79  |+1).28)<>Pr%:.vy|
00003950  25 3d a3 8c 6d 25 3d 51  79 25 3a f2 72 3a f2 4a  |%=..m%=Qy%:.r:.J|
00003960  28 65 25 29 0d 01 17 05  e1 0d 01 18 15 dd f2 4d  |(e%)...........M|
00003970  6c 28 62 25 2c 49 25 29  3a c8 8e 49 25 ca 0d 01  |l(b%,I%):..I%...|
00003980  19 07 cb 3a e1 0d 01 1a  18 dd f2 60 69 28 59 25  |...:.......`i(Y%|
00003990  2c 49 25 2c 6a 25 29 3a  c8 8e 59 25 ca 0d 01 1b  |,I%,j%):..Y%....|
000039a0  12 c9 67 25 3a f2 6a 6c  28 49 25 2c 6a 25 29 0d  |..g%:.jl(I%,j%).|
000039b0  01 1c 12 c9 77 25 3a f2  46 61 28 49 25 2c 6a 25  |....w%:.Fa(I%,j%|
000039c0  29 0d 01 1d 13 c9 42 79  25 3a f2 53 69 28 49 25  |).....By%:.Si(I%|
000039d0  2c 6a 25 29 0d 01 1e 13  c9 48 5f 25 3a f2 79 6c  |,j%).....H_%:.yl|
000039e0  28 49 25 2c 6a 25 29 0d  01 1f 1c c9 5a 6f 6f 6d  |(I%,j%).....Zoom|
000039f0  5f 57 69 6e 64 6f 77 25  3a f2 68 6c 28 49 25 2c  |_Window%:.hl(I%,|
00003a00  6a 25 29 0d 01 20 12 c9  57 25 3a f2 50 69 28 49  |j%).. ..W%:.Pi(I|
00003a10  25 2c 6a 25 29 0d 01 21  13 c9 66 79 25 3a f2 69  |%,j%)..!..fy%:.i|
00003a20  6c 28 49 25 2c 6a 25 29  0d 01 22 12 c9 65 25 3a  |l(I%,j%).."..e%:|
00003a30  f2 54 4a 28 49 25 2c 6a  25 29 0d 01 23 13 c9 52  |.TJ(I%,j%)..#..R|
00003a40  5f 25 3a f2 54 4a 28 49  25 2c 6a 25 29 0d 01 24  |_%:.TJ(I%,j%)..$|
00003a50  13 c9 69 4a 25 3a f2 5a  6c 28 49 25 2c 6a 25 29  |..iJ%:.Zl(I%,j%)|
00003a60  0d 01 25 12 c9 78 25 3a  f2 44 6c 28 49 25 2c 6a  |..%..x%:.Dl(I%,j|
00003a70  25 29 0d 01 26 13 c9 65  4a 25 3a f2 77 61 28 49  |%)..&..eJ%:.wa(I|
00003a80  25 2c 6a 25 29 0d 01 27  13 c9 75 5f 25 3a f2 70  |%,j%)..'..u_%:.p|
00003a90  69 28 49 25 2c 6a 25 29  0d 01 28 12 c9 6b 25 3a  |i(I%,j%)..(..k%:|
00003aa0  f2 49 6c 28 49 25 2c 6a  25 29 0d 01 29 13 c9 69  |.Il(I%,j%)..)..i|
00003ab0  79 25 3a f2 5f 61 28 49  25 2c 6a 25 29 0d 01 2a  |y%:._a(I%,j%)..*|
00003ac0  0b 7f f2 76 28 6a 25 29  0d 01 2b 07 cb 3a e1 0d  |...v(j%)..+..:..|
00003ad0  01 2c 14 dd f2 42 75 28  4a 79 25 29 3a c8 8e 4a  |.,...Bu(Jy%):..J|
00003ae0  79 25 ca 0d 01 2d 0c c9  42 6c 25 3a f2 4e 6c 0d  |y%...-..Bl%:.Nl.|
00003af0  01 2e 0c c9 75 6b 25 3a  f2 42 61 0d 01 2f 0c c9  |....uk%:.Ba../..|
00003b00  67 4a 25 3a f2 58 75 0d  01 30 0c c9 56 42 25 3a  |gJ%:.Xu..0..VB%:|
00003b10  f2 4a 61 0d 01 31 0c c9  67 6e 25 3a f2 50 61 0d  |.Ja..1..gn%:.Pa.|
00003b20  01 32 0c c9 4f 72 25 3a  f2 57 61 0d 01 33 0c c9  |.2..Or%:.Wa..3..|
00003b30  71 61 25 3a f2 61 69 0d  01 34 0c c9 66 5f 25 3a  |qa%:.ai..4..f_%:|
00003b40  f2 6c 69 0d 01 35 0c c9  67 42 25 3a f2 41 61 0d  |.li..5..gB%:.Aa.|
00003b50  01 36 0c c9 65 6e 25 3a  f2 42 6c 0d 01 37 0c c9  |.6..en%:.Bl..7..|
00003b60  68 6b 25 3a f2 73 61 0d  01 38 0c c9 63 42 25 3a  |hk%:.sa..8..cB%:|
00003b70  f2 6a 75 0d 01 39 0c c9  71 6e 25 3a f2 4f 61 0d  |.ju..9..qn%:.Oa.|
00003b80  01 3a 0c c9 66 69 25 3a  f2 75 6c 0d 01 3b 0c c9  |.:..fi%:.ul..;..|
00003b90  42 6e 25 3a f2 68 61 0d  01 3c 0c c9 4c 6f 25 3a  |Bn%:.ha..<..Lo%:|
00003ba0  f2 73 6c 0d 01 3d 0c c9  54 4a 25 3a f2 59 61 0d  |.sl..=..TJ%:.Ya.|
00003bb0  01 3e 10 cb 3a f2 43 4a  28 4a 79 25 29 3a e1 0d  |.>..:.CJ(Jy%):..|
00003bc0  01 3f 16 dd f2 4e 6c 3a  ea 6b 6e 25 3a c8 8e a4  |.?...Nl:.kn%:...|
00003bd0  50 28 30 29 ca 0d 01 40  3e c9 31 3a c8 99 26 34  |P(0)...@>.1:..&4|
00003be0  30 30 63 66 2c 2c 5a 25  3a 79 25 3d 5a 25 21 30  |00cf,,Z%:y%=Z%!0|
00003bf0  3a 68 25 3d 5a 25 21 34  3a f2 54 28 49 6e 66 6f  |:h%=Z%!4:.T(Info|
00003c00  5f 57 69 6e 64 6f 77 25  2c 79 25 2c 68 25 29 3a  |_Window%,y%,h%):|
00003c10  f2 52 4a 0d 01 41 0f c9  32 3a c8 8e a4 50 28 31  |.RJ..A..2:...P(1|
00003c20  29 ca 0d 01 42 7d c9 32  3a f2 4d 28 73 4a 25 29  |)...B}.2:.M(sJ%)|
00003c30  3a f2 4d 28 48 4a 25 29  3a f2 4d 28 66 79 25 29  |:.M(HJ%):.M(fy%)|
00003c40  3a f2 4e 79 3a f2 48 3a  f2 5a 28 77 25 2c 32 29  |:.Ny:.H:.Z(w%,2)|
00003c50  3a f2 5a 28 77 25 2c 35  29 3a f2 5a 28 77 25 2c  |:.Z(w%,5):.Z(w%,|
00003c60  36 29 3a f2 5a 28 77 25  2c 37 29 3a f2 5a 28 77  |6):.Z(w%,7):.Z(w|
00003c70  25 2c 31 30 29 3a f2 5a  28 77 25 2c 31 31 29 3a  |%,10):.Z(w%,11):|
00003c80  69 5f 25 3d a3 3a f2 55  28 42 6c 25 2c 32 29 3a  |i_%=.:.U(Bl%,2):|
00003c90  f2 5a 28 67 25 2c 33 29  3a 51 79 25 3d 6d 25 0d  |.Z(g%,3):Qy%=m%.|
00003ca0  01 43 09 7f 3a f2 57 5f  0d 01 44 05 cb 0d 01 45  |.C..:.W_..D....E|
00003cb0  15 c9 33 3a e7 a4 53 28  65 25 29 f2 68 79 8b f2  |..3:..S(e%).hy..|
00003cc0  42 79 0d 01 46 0d c9 34  3a f2 42 5f 28 b9 29 0d  |By..F..4:.B_(.).|
00003cd0  01 47 12 c9 35 3a f2 49  5f 3a f2 44 28 42 79 25  |.G..5:.I_:.D(By%|
00003ce0  29 0d 01 48 11 c9 36 3a  67 60 25 3d 2d 31 3a f2  |)..H..6:g`%=-1:.|
00003cf0  59 4a 0d 01 49 07 cb 3a  e1 0d 01 4a 11 dd f2 42  |YJ..I..:...J...B|
00003d00  61 3a c8 8e a4 50 28 30  29 ca 0d 01 4b 0f c9 31  |a:...P(0)...K..1|
00003d10  3a c8 8e a4 50 28 31 29  ca 0d 01 4c 0a c9 31 3a  |:...P(1)...L..1:|
00003d20  f2 41 6c 0d 01 4d 0a c9  32 3a f2 6f 79 0d 01 4e  |.Al..M..2:.oy..N|
00003d30  16 c9 33 3a e7 63 6c 25  63 6c 25 3d a3 8b 63 6c  |..3:.cl%cl%=..cl|
00003d40  25 3d b9 0d 01 4f 29 e7  63 6c 25 f2 4b 28 46 69  |%=...O).cl%.K(Fi|
00003d50  6c 65 5f 4d 65 6e 75 25  2c 33 29 8b f2 56 28 46  |le_Menu%,3)..V(F|
00003d60  69 6c 65 5f 4d 65 6e 75  25 2c 33 29 0d 01 50 06  |ile_Menu%,3)..P.|
00003d70  c9 34 0d 01 51 05 cb 0d  01 52 0f c9 32 3a c8 8e  |.4..Q....R..2:..|
00003d80  a4 50 28 31 29 ca 0d 01  53 09 c9 31 3a f2 7a 0d  |.P(1)...S..1:.z.|
00003d90  01 54 11 c9 32 3a e7 44  79 25 f2 79 8b f2 54 79  |.T..2:.Dy%.y..Ty|
00003da0  0d 01 55 05 cb 0d 01 56  0f c9 33 3a c8 8e a4 50  |..U....V..3:...P|
00003db0  28 31 29 ca 0d 01 57 0a  c9 31 3a f2 78 79 0d 01  |(1)...W..1:.xy..|
00003dc0  58 16 c9 32 3a e7 76 6c  25 76 6c 25 3d a3 8b 76  |X..2:.vl%vl%=..v|
00003dd0  6c 25 3d b9 0d 01 59 32  e7 76 6c 25 f2 4b 28 44  |l%=...Y2.vl%.K(D|
00003de0  69 73 70 6c 61 79 5f 4d  65 6e 75 25 2c 32 29 8b  |isplay_Menu%,2).|
00003df0  f2 56 28 44 69 73 70 6c  61 79 5f 4d 65 6e 75 25  |.V(Display_Menu%|
00003e00  2c 32 29 3a f2 63 0d 01  5a 0a c9 33 3a f2 57 5f  |,2):.c..Z..3:.W_|
00003e10  0d 01 5b 05 cb 0d 01 5c  0f c9 34 3a c8 8e a4 50  |..[....\..4:...P|
00003e20  28 31 29 ca 0d 01 5d 0a  c9 31 3a f2 6e 4a 0d 01  |(1)...]..1:.nJ..|
00003e30  5e 0a c9 32 3a f2 46 5f  0d 01 5f 0a c9 33 3a f2  |^..2:.F_.._..3:.|
00003e40  69 4a 0d 01 60 05 cb 0d  01 61 07 cb 3a e1 0d 01  |iJ..`....a..:...|
00003e50  62 57 dd f2 57 5f 3a f2  44 28 6b 25 29 3a f2 4c  |bW..W_:.D(k%):.L|
00003e60  28 6b 25 2c a4 4a 28 6e  25 2a 52 25 29 2c a4 4a  |(k%,.J(n%*R%),.J|
00003e70  28 74 25 2a 56 25 29 29  3a f2 4e 28 6b 25 2c 22  |(t%*V%)):.N(k%,"|
00003e80  27 22 2b 58 24 2b 22 27  20 28 22 2b 4d 24 2b 22  |'"+X$+"' ("+M$+"|
00003e90  29 22 29 3a f2 4a 28 6b  25 29 3a e7 63 5a 25 f2  |)"):.J(k%):.cZ%.|
00003ea0  77 28 6b 25 29 0d 01 63  12 f2 47 28 6b 25 2c 2d  |w(k%)..c..G(k%,-|
00003eb0  31 2c 2d 31 29 3a e1 0d  01 64 0f dd f2 69 4a 3a  |1,-1):...d...iJ:|
00003ec0  e7 44 79 25 f2 79 0d 01  65 0b e7 61 5f 25 3d a3  |.Dy%.y..e..a_%=.|
00003ed0  e1 0d 01 66 22 f2 4e 79  3a f2 4d 28 77 25 29 3a  |...f".Ny:.M(w%):|
00003ee0  f2 4d 28 4e 5f 25 29 3a  4a 65 25 3d 91 3a f2 57  |.M(N_%):Je%=.:.W|
00003ef0  79 3a e1 0d 01 67 33 dd  f2 6e 4a 3a f2 5a 79 28  |y:...g3..nJ:.Zy(|
00003f00  67 79 25 29 3a e7 61 5f  25 80 5f 25 3e 3d 30 f2  |gy%):.a_%._%>=0.|
00003f10  50 28 78 25 2c 32 32 2c  a3 29 8b f2 50 28 78 25  |P(x%,22,.)..P(x%|
00003f20  2c 32 32 2c b9 29 0d 01  68 1e f2 71 3a e7 a4 5a  |,22,.)..h..q:..Z|
00003f30  28 42 79 25 2c 31 30 29  f2 54 28 78 25 2c 73 25  |(By%,10).T(x%,s%|
00003f40  2c 76 25 29 0d 01 69 05  e1 0d 01 6a 40 dd f2 61  |,v%)..i....j@..a|
00003f50  61 28 53 24 2c 52 24 2c  59 25 29 3a f2 4d 28 60  |a(S$,R$,Y%):.M(`|
00003f60  6c 25 29 3a e7 52 24 3d  22 4f 70 74 46 6f 6e 74  |l%):.R$="OptFont|
00003f70  73 22 80 28 59 25 3d 2d  32 84 59 25 3d 67 25 29  |s".(Y%=-2.Y%=g%)|
00003f80  f2 5a 75 28 53 24 29 3a  e1 0d 01 6b 1a e7 52 24  |.Zu(S$):...k..R$|
00003f90  3d 22 53 63 61 6e 6e 65  72 22 f2 43 69 28 53 24  |="Scanner".Ci(S$|
00003fa0  29 3a e1 0d 01 6c 1d e7  52 24 3d 22 49 6d 70 72  |):...l..R$="Impr|
00003fb0  65 73 73 69 6f 6e 22 f2  70 5f 28 53 24 29 3a e1  |ession".p_(S$):.|
00003fc0  0d 01 6d 1b e7 52 24 3d  22 55 73 65 72 44 69 63  |..m..R$="UserDic|
00003fd0  74 22 f2 56 69 28 53 24  29 3a e1 0d 01 6e 17 e7  |t".Vi(S$):...n..|
00003fe0  52 24 3d 22 54 65 78 74  22 f2 7a 4a 28 53 24 29  |R$="Text".zJ(S$)|
00003ff0  3a e1 0d 01 6f 19 e7 52  24 3c 3e 22 53 70 72 69  |:...o..R$<>"Spri|
00004000  74 65 22 84 57 79 25 84  21 41 e1 0d 01 70 15 69  |te".Wy%.!A...p.i|
00004010  5f 25 3d a3 3a 4b 75 25  3d a3 3a c8 8e 59 25 ca  |_%=.:Ku%=.:..Y%.|
00004020  0d 01 71 9d c9 77 5f 25  2c 51 5f 25 2c 6b 25 3a  |..q..w_%,Q_%,k%:|
00004030  f2 71 79 28 22 4d 65 73  73 61 67 65 20 66 72 6f  |.qy("Message fro|
00004040  6d 20 4f 70 74 69 63 61  6c 22 2c 22 44 6f 20 79  |m Optical","Do y|
00004050  6f 75 20 77 61 6e 74 20  74 68 69 73 20 73 70 72  |ou want this spr|
00004060  69 74 65 20 66 69 6c 65  20 74 6f 20 6d 65 72 67  |ite file to merg|
00004070  65 20 77 69 74 68 20 74  68 65 20 63 75 72 72 65  |e with the curre|
00004080  6e 74 20 6f 6e 65 2c 20  6f 72 20 72 65 70 6c 61  |nt one, or repla|
00004090  63 65 20 69 74 3f 22 2c  22 4d 65 72 67 65 22 2c  |ce it?","Merge",|
000040a0  22 52 65 70 6c 61 63 65  22 2c 22 43 61 6e 63 65  |"Replace","Cance|
000040b0  6c 22 2c 30 29 3a 5f 24  3d 53 24 3a e1 0d 01 72  |l",0):_$=S$:...r|
000040c0  0e c9 2d 32 2c 65 25 2c  60 6c 25 0d 01 73 06 7f  |..-2,e%,`l%..s..|
000040d0  e1 0d 01 74 0b cb 3a f2  53 4a 3a e1 0d 01 75 20  |...t..:.SJ:...u |
000040e0  dd f2 53 4a 3a 56 3d 30  3a e7 75 69 25 3d a3 41  |..SJ:V=0:.ui%=.A|
000040f0  79 25 3d 2d 31 3a 57 5f  25 3d 2d 31 0d 01 76 f2  |y%=-1:W_%=-1..v.|
00004100  f2 79 3a f2 4d 28 73 4a  25 29 3a f2 4d 28 48 4a  |.y:.M(sJ%):.M(HJ|
00004110  25 29 3a f2 4d 28 66 79  25 29 3a f2 4e 79 3a f2  |%):.M(fy%):.Ny:.|
00004120  48 3a f2 5a 28 77 25 2c  32 29 3a f2 5a 28 77 25  |H:.Z(w%,2):.Z(w%|
00004130  2c 35 29 3a f2 5a 28 77  25 2c 36 29 3a f2 5a 28  |,5):.Z(w%,6):.Z(|
00004140  77 25 2c 37 29 3a f2 5a  28 77 25 2c 31 30 29 3a  |w%,7):.Z(w%,10):|
00004150  f2 5a 28 77 25 2c 31 31  29 3a f2 4d 28 69 79 25  |.Z(w%,11):.M(iy%|
00004160  29 3a f2 4d 28 77 25 29  3a f2 4d 28 51 5f 25 29  |):.M(w%):.M(Q_%)|
00004170  3a f2 4d 28 4e 5f 25 29  3a 61 5f 25 3d a3 3a 58  |:.M(N_%):a_%=.:X|
00004180  24 3d a4 51 28 53 24 29  3a c8 99 26 34 30 36 63  |$=.Q(S$):..&406c|
00004190  30 3a 46 25 3d ad 28 53  24 29 3a 74 61 25 3d a2  |0:F%=.(S$):ta%=.|
000041a0  23 46 25 3a cf 23 46 25  3d 34 3a 6e 61 25 3d 9a  |#F%:.#F%=4:na%=.|
000041b0  23 46 25 3a cf 23 46 25  3d 6e 61 25 2b 31 32 3a  |#F%:.#F%=na%+12:|
000041c0  55 79 25 3d 9a 23 46 25  2b 9a 23 46 25 2a 28 31  |Uy%=.#F%+.#F%*(1|
000041d0  3c 3c 38 29 2b 9a 23 46  25 2a 28 31 3c 3c 31 36  |<<8)+.#F%*(1<<16|
000041e0  29 2b 9a 23 46 25 2a 28  31 3c 3c 32 34 29 0d 01  |)+.#F%*(1<<24)..|
000041f0  77 ec 79 79 25 3d 9a 23  46 25 2b 9a 23 46 25 2a  |w.yy%=.#F%+.#F%*|
00004200  28 31 3c 3c 38 29 2b 9a  23 46 25 2a 28 31 3c 3c  |(1<<8)+.#F%*(1<<|
00004210  31 36 29 2b 9a 23 46 25  2a 28 31 3c 3c 32 34 29  |16)+.#F%*(1<<24)|
00004220  3a d9 23 46 25 3a 52 75  25 3d 28 55 79 25 2b 32  |:.#F%:Ru%=(Uy%+2|
00004230  29 2a 34 2a 28 79 79 25  2b 35 29 2d 28 55 79 25  |)*4*(yy%+5)-(Uy%|
00004240  2b 31 29 2a 34 2a 28 79  79 25 2b 31 29 3a 4b 25  |+1)*4*(yy%+1):K%|
00004250  3d a4 41 28 74 61 25 2b  52 75 25 2b 38 2c 60 25  |=.A(ta%+Ru%+8,`%|
00004260  29 3a e7 4b 25 3d a3 8c  f2 43 28 22 4f 70 74 69  |):.K%=...C("Opti|
00004270  63 61 6c 22 2c 22 54 68  65 72 65 20 69 73 20 6e  |cal","There is n|
00004280  6f 74 20 65 6e 6f 75 67  68 20 66 72 65 65 20 6d  |ot enough free m|
00004290  65 6d 6f 72 79 20 61 76  61 69 6c 61 62 6c 65 20  |emory available |
000042a0  74 6f 20 73 74 6f 72 65  20 74 68 65 20 73 70 72  |to store the spr|
000042b0  69 74 65 2e 20 4e 65 65  64 20 22 2b c3 28 28 74  |ite. Need "+.((t|
000042c0  61 25 2b 52 75 25 2b 38  29 81 31 30 32 34 29 2b  |a%+Ru%+8).1024)+|
000042d0  22 4b 2e 22 29 3a f2 48  3a e1 0d 01 78 46 21 28  |"K."):.H:...xF!(|
000042e0  41 25 28 60 25 29 29 3d  5a 25 28 60 25 29 3a c8  |A%(`%))=Z%(`%):.|
000042f0  99 74 4a 25 2c 43 60 25  2c 41 25 28 60 25 29 3a  |.tJ%,C`%,A%(`%):|
00004300  c8 99 74 4a 25 2c 6f 72  25 2c 41 25 28 60 25 29  |..tJ%,or%,A%(`%)|
00004310  2c 53 24 3a f2 4a 28 65  25 29 3a f2 79 5f 3a e1  |,S$:.J(e%):.y_:.|
00004320  0d 01 79 19 dd f2 5a 61  3a f2 4d 28 60 6c 25 29  |..y...Za:.M(`l%)|
00004330  3a e7 57 79 25 84 21 41  e1 0d 01 7a 1a 7a 61 25  |:.Wy%.!A...z.za%|
00004340  3d 5a 25 21 34 30 3a e7  7a 61 25 3c 3e 34 30 38  |=Z%!40:.za%<>408|
00004350  39 8c e1 0d 01 7b 18 69  5f 25 3d a3 3a 4b 75 25  |9....{.i_%=.:Ku%|
00004360  3d a3 3a c8 8e 5a 25 21  32 30 ca 0d 01 7c 9d c9  |=.:..Z%!20...|..|
00004370  77 5f 25 2c 51 5f 25 2c  6b 25 3a f2 71 79 28 22  |w_%,Q_%,k%:.qy("|
00004380  4d 65 73 73 61 67 65 20  66 72 6f 6d 20 4f 70 74  |Message from Opt|
00004390  69 63 61 6c 22 2c 22 44  6f 20 79 6f 75 20 77 61  |ical","Do you wa|
000043a0  6e 74 20 74 68 69 73 20  73 70 72 69 74 65 20 66  |nt this sprite f|
000043b0  69 6c 65 20 74 6f 20 6d  65 72 67 65 20 77 69 74  |ile to merge wit|
000043c0  68 20 74 68 65 20 63 75  72 72 65 6e 74 20 6f 6e  |h the current on|
000043d0  65 2c 20 6f 72 20 72 65  70 6c 61 63 65 20 69 74  |e, or replace it|
000043e0  3f 22 2c 22 4d 65 72 67  65 22 2c 22 52 65 70 6c  |?","Merge","Repl|
000043f0  61 63 65 22 2c 22 43 61  6e 63 65 6c 22 2c 31 29  |ace","Cancel",1)|
00004400  3a 5f 24 3d 53 24 3a e1  0d 01 7d 0e c9 2d 32 2c  |:_$=S$:...}..-2,|
00004410  65 25 2c 60 6c 25 0d 01  7e 06 7f e1 0d 01 7f 0b  |e%,`l%..~.......|
00004420  cb 3a f2 6d 4a 3a e1 0d  01 80 86 dd f2 6d 4a 3a  |.:.mJ:.......mJ:|
00004430  5f 60 25 3d a3 3a f2 4d  28 73 4a 25 29 3a f2 4d  |_`%=.:.M(sJ%):.M|
00004440  28 48 4a 25 29 3a f2 4d  28 66 79 25 29 3a f2 4e  |(HJ%):.M(fy%):.N|
00004450  79 3a f2 48 3a f2 5a 28  77 25 2c 32 29 3a f2 5a  |y:.H:.Z(w%,2):.Z|
00004460  28 77 25 2c 35 29 3a f2  5a 28 77 25 2c 36 29 3a  |(w%,5):.Z(w%,6):|
00004470  f2 5a 28 77 25 2c 37 29  3a f2 5a 28 77 25 2c 31  |.Z(w%,7):.Z(w%,1|
00004480  30 29 3a f2 5a 28 77 25  2c 31 31 29 3a 60 42 25  |0):.Z(w%,11):`B%|
00004490  3d b9 3a f2 4d 28 65 25  29 3a e7 75 69 25 3d a3  |=.:.M(e%):.ui%=.|
000044a0  41 79 25 3d 2d 31 3a 57  5f 25 3d 2d 31 0d 01 81  |Ay%=-1:W_%=-1...|
000044b0  be 74 61 25 3d 5a 25 21  33 36 3a 76 24 3d a4 78  |.ta%=Z%!36:v$=.x|
000044c0  3a 60 6e 25 3d 5a 25 21  38 3a 5f 4f 25 3d 5a 25  |:`n%=Z%!8:_O%=Z%|
000044d0  21 34 3a f2 4d 28 69 79  25 29 3a f2 4d 28 77 25  |!4:.M(iy%):.M(w%|
000044e0  29 3a f2 4d 28 51 5f 25  29 3a f2 4d 28 4e 5f 25  |):.M(Q_%):.M(N_%|
000044f0  29 3a 61 5f 25 3d a3 3a  58 24 3d a4 51 28 76 24  |):a_%=.:X$=.Q(v$|
00004500  29 3a 4b 25 3d a4 41 28  74 61 25 2b 38 2c 60 25  |):K%=.A(ta%+8,`%|
00004510  29 3a e7 4b 25 3d a3 8c  f2 43 28 22 4f 70 74 69  |):.K%=...C("Opti|
00004520  63 61 6c 22 2c 22 54 68  65 72 65 20 69 73 20 6e  |cal","There is n|
00004530  6f 74 20 65 6e 6f 75 67  68 20 66 72 65 65 20 6d  |ot enough free m|
00004540  65 6d 6f 72 79 20 61 76  61 69 6c 61 62 6c 65 20  |emory available |
00004550  74 6f 20 73 74 6f 72 65  20 74 68 65 20 73 70 72  |to store the spr|
00004560  69 74 65 2e 22 29 3a f2  48 3a e1 0d 01 82 48 21  |ite."):.H:....H!|
00004570  28 41 25 28 60 25 29 29  3d 5a 25 28 60 25 29 3a  |(A%(`%))=Z%(`%):|
00004580  c8 99 74 4a 25 2c 43 60  25 2c 41 25 28 60 25 29  |..tJ%,C`%,A%(`%)|
00004590  3a 50 4f 25 3d 30 3a 64  6e 25 3d 74 61 25 3a 70  |:PO%=0:dn%=ta%:p|
000045a0  60 25 3d b9 3a 5a 25 21  38 3d 60 6e 25 3a f2 61  |`%=.:Z%!8=`n%:.a|
000045b0  5f 3a e1 0d 01 83 28 dd  f2 61 5f 3a 21 5a 25 3d  |_:....(..a_:!Z%=|
000045c0  36 34 3a 5a 25 21 31 32  3d 5a 25 21 38 3a 5a 25  |64:Z%!12=Z%!8:Z%|
000045d0  21 31 36 3d 36 3a e7 5f  60 25 8c 0d 01 84 17 5a  |!16=6:._`%.....Z|
000045e0  25 21 32 30 3d 41 25 28  4e 79 25 29 2b 34 2b 50  |%!20=A%(Ny%)+4+P|
000045f0  4f 25 0d 01 85 18 cc 3a  5a 25 21 32 30 3d 41 25  |O%.....:Z%!20=A%|
00004600  28 60 25 29 2b 34 2b 50  4f 25 0d 01 86 24 cd 3a  |(`%)+4+PO%...$.:|
00004610  5a 25 21 32 34 3d 64 6e  25 3a c8 99 26 34 30 30  |Z%!24=dn%:..&400|
00004620  65 37 2c 31 38 2c 5a 25  2c 5f 4f 25 3a e1 0d 01  |e7,18,Z%,_O%:...|
00004630  87 0f dd f2 53 75 3a c8  8e 5f 60 25 ca 0d 01 88  |....Su:.._`%....|
00004640  0d c9 b9 3a c8 8e 70 60  25 ca 0d 01 89 8e c9 b9  |...:..p`%.......|
00004650  3a 6e 61 25 3d 21 28 41  25 28 4e 79 25 29 2b 38  |:na%=!(A%(Ny%)+8|
00004660  29 3a 55 79 25 3d 21 28  41 25 28 4e 79 25 29 2b  |):Uy%=!(A%(Ny%)+|
00004670  6e 61 25 2b 31 36 29 3a  79 79 25 3d 21 28 41 25  |na%+16):yy%=!(A%|
00004680  28 4e 79 25 29 2b 6e 61  25 2b 32 30 29 3a 64 6e  |(Ny%)+na%+20):dn|
00004690  25 3d 49 61 25 3a 70 60  25 3d a3 3a 52 75 25 3d  |%=Ia%:p`%=.:Ru%=|
000046a0  28 55 79 25 2b 32 29 2a  34 2a 28 79 79 25 2b 35  |(Uy%+2)*4*(yy%+5|
000046b0  29 2d 28 55 79 25 2b 31  29 2a 34 2a 28 79 79 25  |)-(Uy%+1)*4*(yy%|
000046c0  2b 31 29 3a 4b 25 3d a4  41 28 49 61 25 2b 52 75  |+1):K%=.A(Ia%+Ru|
000046d0  25 2b 38 2c 4e 79 25 29  0d 01 8a 86 e7 4b 25 3d  |%+8,Ny%).....K%=|
000046e0  a3 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |...C("Optical","|
000046f0  54 68 65 72 65 20 69 73  20 6e 6f 74 20 65 6e 6f  |There is not eno|
00004700  75 67 68 20 66 72 65 65  20 6d 65 6d 6f 72 79 20  |ugh free memory |
00004710  61 76 61 69 6c 61 62 6c  65 20 74 6f 20 6d 65 72  |available to mer|
00004720  67 65 20 74 68 65 20 73  70 72 69 74 65 2e 20 4e  |ge the sprite. N|
00004730  65 65 64 20 22 2b c3 28  28 49 61 25 2b 52 75 25  |eed "+.((Ia%+Ru%|
00004740  2b 38 29 81 31 30 32 34  29 2b 22 4b 2e 22 29 3a  |+8).1024)+"K."):|
00004750  4b 25 3d a4 41 28 31 2c  4e 79 25 29 3a e1 0d 01  |K%=.A(1,Ny%):...|
00004760  8b 16 21 28 41 25 28 4e  79 25 29 29 3d 5a 25 28  |..!(A%(Ny%))=Z%(|
00004770  4e 79 25 29 0d 01 8c 05  cb 0d 01 8d 0d c9 a3 3a  |Ny%)...........:|
00004780  c8 8e 70 60 25 ca 0d 01  8e 8a c9 b9 3a 6e 61 25  |..p`%.......:na%|
00004790  3d 21 28 41 25 28 60 25  29 2b 38 29 3a 55 79 25  |=!(A%(`%)+8):Uy%|
000047a0  3d 21 28 41 25 28 60 25  29 2b 6e 61 25 2b 31 36  |=!(A%(`%)+na%+16|
000047b0  29 3a 79 79 25 3d 21 28  41 25 28 60 25 29 2b 6e  |):yy%=!(A%(`%)+n|
000047c0  61 25 2b 32 30 29 3a 64  6e 25 3d 74 61 25 3a 70  |a%+20):dn%=ta%:p|
000047d0  60 25 3d a3 3a 52 75 25  3d 28 55 79 25 2b 32 29  |`%=.:Ru%=(Uy%+2)|
000047e0  2a 34 2a 28 79 79 25 2b  35 29 2d 28 55 79 25 2b  |*4*(yy%+5)-(Uy%+|
000047f0  31 29 2a 34 2a 28 79 79  25 2b 31 29 3a 4b 25 3d  |1)*4*(yy%+1):K%=|
00004800  a4 41 28 74 61 25 2b 52  75 25 2b 38 2c 60 25 29  |.A(ta%+Ru%+8,`%)|
00004810  0d 01 8f 7c e7 4b 25 3d  a3 8c f2 43 28 22 4f 70  |...|.K%=...C("Op|
00004820  74 69 63 61 6c 22 2c 22  54 68 65 72 65 20 69 73  |tical","There is|
00004830  20 6e 6f 74 20 65 6e 6f  75 67 68 20 66 72 65 65  | not enough free|
00004840  20 6d 65 6d 6f 72 79 20  61 76 61 69 6c 61 62 6c  | memory availabl|
00004850  65 20 74 6f 20 73 74 6f  72 65 20 74 68 65 20 73  |e to store the s|
00004860  70 72 69 74 65 2e 20 4e  65 65 64 20 22 2b c3 28  |prite. Need "+.(|
00004870  28 74 61 25 2b 52 75 25  2b 38 29 81 31 30 32 34  |(ta%+Ru%+8).1024|
00004880  29 2b 22 4b 2e 22 29 3a  f2 48 3a e1 0d 01 90 14  |)+"K."):.H:.....|
00004890  21 28 41 25 28 60 25 29  29 3d 5a 25 28 60 25 29  |!(A%(`%))=Z%(`%)|
000048a0  0d 01 91 05 cb 0d 01 92  2d cb 3a 7a 61 25 3d 5a  |........-.:za%=Z|
000048b0  25 21 32 34 3a e7 7a 61  25 3d 64 6e 25 8c 64 6e  |%!24:.za%=dn%.dn|
000048c0  25 3d 34 3a 50 4f 25 2b  3d 7a 61 25 3a f2 61 5f  |%=4:PO%+=za%:.a_|
000048d0  3a e1 0d 01 93 11 e7 60  42 25 80 5f 60 25 f2 53  |:......`B%._`%.S|
000048e0  6c 3a e1 0d 01 94 0c e7  60 42 25 8c f2 79 5f 0d  |l:......`B%..y_.|
000048f0  01 95 05 e1 0d 01 96 45  dd a4 78 3a ea 72 25 3a  |.......E..x:.r%:|
00004900  4d 79 24 3d 22 22 3a 72  25 3d 5a 25 2b 34 34 3a  |My$="":r%=Z%+44:|
00004910  c8 95 3f 72 25 3c 3e 30  80 3f 72 25 3c 3e 31 33  |..?r%<>0.?r%<>13|
00004920  3a 4d 79 24 2b 3d bd 28  3f 72 25 29 3a 72 25 2b  |:My$+=.(?r%):r%+|
00004930  3d 31 3a ce 3a 3d 4d 79  24 0d 01 97 0e dd f2 58  |=1:.:=My$......X|
00004940  79 3a e7 53 60 25 e1 0d  01 98 e4 c8 99 74 4a 25  |y:.S`%.......tJ%|
00004950  2c 70 6f 25 2c 41 25 28  60 25 29 2c 79 60 25 2c  |,po%,A%(`%),y`%,|
00004960  31 36 2c 31 b8 2c 2c 2c  6b 79 25 3a 4d 24 3d 22  |16,1.,,,ky%:M$="|
00004970  22 3a e3 5f 79 25 3d 30  b8 6b 79 25 2d 31 3a 4d  |":._y%=0.ky%-1:M|
00004980  24 2b 3d bd 28 79 60 25  3f 5f 79 25 29 3a ed 3a  |$+=.(y`%?_y%):.:|
00004990  f2 4e 28 6b 25 2c 22 27  22 2b 58 24 2b 22 27 20  |.N(k%,"'"+X$+"' |
000049a0  28 22 2b 4d 24 2b 22 29  22 29 3a c8 99 74 4a 25  |("+M$+")"):..tJ%|
000049b0  2c 4e 6c 25 2c 41 25 28  60 25 29 2c 4d 24 b8 2c  |,Nl%,A%(`%),M$.,|
000049c0  2c 2c 6e 25 2c 74 25 2c  2c 4a 75 25 3a c8 99 35  |,,n%,t%,,Ju%:..5|
000049d0  33 2c 4a 75 25 2c 39 b8  2c 2c 6d 5f 25 3a 5f 5a  |3,Ju%,9.,,m_%:_Z|
000049e0  25 3d 32 5e 28 32 5e 6d  5f 25 29 3a e7 5f 5a 25  |%=2^(2^m_%):._Z%|
000049f0  3d 32 35 36 8c f2 43 28  22 4f 70 74 69 63 61 6c  |=256..C("Optical|
00004a00  22 2c 22 49 20 63 61 6e  6e 6f 74 20 72 65 61 64  |","I cannot read|
00004a10  20 32 35 36 20 63 6f 6c  6f 75 72 20 73 70 72 69  | 256 colour spri|
00004a20  74 65 73 2e 22 29 3a f2  48 3a e1 0d 01 99 eb c8  |tes."):.H:......|
00004a30  99 74 4a 25 2c 46 4f 25  2c 41 25 28 60 25 29 2c  |.tJ%,FO%,A%(`%),|
00004a40  4d 24 b8 2c 2c 5a 50 25  3a 5f 25 3d 30 3a c8 99  |M$.,,ZP%:_%=0:..|
00004a50  35 33 2c 4a 75 25 2c 35  b8 2c 2c 56 25 3a c8 99  |53,Ju%,5.,,V%:..|
00004a60  35 33 2c 4a 75 25 2c 34  b8 2c 2c 52 25 3a 52 25  |53,Ju%,4.,,R%:R%|
00004a70  3d 31 3c 3c 52 25 3a 56  25 3d 31 3c 3c 56 25 3a  |=1<<R%:V%=1<<V%:|
00004a80  c8 99 35 33 2c 4a 75 25  2c 33 b8 2c 2c 6d 5f 25  |..53,Ju%,3.,,m_%|
00004a90  3a f2 4d 28 73 4a 25 29  3a f2 4d 28 48 4a 25 29  |:.M(sJ%):.M(HJ%)|
00004aa0  3a 4b 25 3d a4 41 28 31  2c 4e 75 25 29 3a c8 99  |:K%=.A(1,Nu%):..|
00004ab0  35 33 2c 4a 75 25 2c 33  b8 2c 2c 6d 5f 25 3a c8  |53,Ju%,3.,,m_%:.|
00004ac0  99 34 36 2c 32 34 2b 32  35 36 2c 41 25 28 60 25  |.46,24+256,A%(`%|
00004ad0  29 2c 4d 24 b8 2c 2c 63  25 3a 55 79 25 3d 63 25  |),M$.,,c%:Uy%=c%|
00004ae0  21 31 36 3a 79 79 25 3d  63 25 21 32 30 3a 48 75  |!16:yy%=c%!20:Hu|
00004af0  25 3d 63 25 2d 41 25 28  60 25 29 2b 63 25 21 33  |%=c%-A%(`%)+c%!3|
00004b00  32 3a 47 5f 25 3d 63 25  2b 34 34 3a e3 5f 79 25  |2:G_%=c%+44:._y%|
00004b10  3d 30 b8 6d 5f 25 0d 01  9a 34 4b 61 25 21 28 5f  |=0.m_%...4Ka%!(_|
00004b20  79 25 2a 34 29 3d 47 5f  25 21 28 5f 79 25 2a 38  |y%*4)=G_%!(_y%*8|
00004b30  29 3a ed 3a e7 47 5f 25  3d 63 25 2b 63 25 21 33  |):.:.G_%=c%+c%!3|
00004b40  32 8c f2 44 4a 28 6d 5f  25 29 0d 01 9b 7e f2 6f  |2..DJ(m_%)...~.o|
00004b50  61 3a 7a 79 25 3d a3 3a  e7 28 a4 47 28 47 5f 25  |a:zy%=.:.(.G(G_%|
00004b60  21 30 29 3e a4 47 28 26  38 30 38 30 38 30 30 30  |!0)>.G(&80808000|
00004b70  29 80 a4 47 28 47 5f 25  21 34 29 3e a4 47 28 26  |)..G(G_%!4)>.G(&|
00004b80  38 30 38 30 38 30 30 30  29 80 a4 47 28 47 5f 25  |80808000)..G(G_%|
00004b90  21 38 29 3c a4 47 28 26  38 30 38 30 38 30 30 30  |!8)<.G(&80808000|
00004ba0  29 80 a4 47 28 47 5f 25  21 31 32 29 3c a4 47 28  |)..G(G_%!12)<.G(|
00004bb0  26 38 30 38 30 38 30 30  29 29 84 47 5f 25 3d 63  |&8080800)).G_%=c|
00004bc0  25 2b 63 25 21 33 32 8c  0d 01 9c 17 e7 6d 5f 25  |%+c%!32......m_%|
00004bd0  3d 31 80 74 69 25 3d a3  80 4b 75 25 3d a3 8c 0d  |=1.ti%=..Ku%=...|
00004be0  01 9d 15 e7 71 6c 25 f2  64 79 28 2d 31 2c 32 35  |....ql%.dy(-1,25|
00004bf0  36 2b 34 29 0d 01 9e 16  f2 57 79 3a c8 99 26 34  |6+4).....Wy:..&4|
00004c00  30 36 63 31 3a 7a 79 25  3d b9 0d 01 9f 17 cd 3a  |06c1:zy%=......:|
00004c10  e7 6d 5f 25 3d 31 80 74  69 25 80 4b 75 25 3d a3  |.m_%=1.ti%.Ku%=.|
00004c20  8c 0d 01 a0 1d e7 71 6c  25 f2 64 79 28 2d 31 2c  |......ql%.dy(-1,|
00004c30  32 35 36 2b 34 29 3a f2  6d 79 8b f2 79 4a 0d 01  |256+4):.my..yJ..|
00004c40  a1 12 c8 99 26 34 30 36  63 31 3a 7a 79 25 3d b9  |....&406c1:zy%=.|
00004c50  0d 01 a2 05 cd 0d 01 a3  0d cc 3a e7 6d 5f 25 3d  |..........:.m_%=|
00004c60  31 8c 0d 01 a4 9d c8 99  34 36 2c 36 30 2b 32 35  |1.......46,60+25|
00004c70  36 2c 41 25 28 60 25 29  2c 4d 24 2c 30 b8 4a 2c  |6,A%(`%),M$,0.J,|
00004c80  47 2c 42 2c 50 3a e6 34  2c 30 3a c8 93 c8 90 30  |G,B,P:.4,0:....0|
00004c90  2c 30 2c 6e 25 2a 52 25  2c 74 25 2a 56 25 3a c8  |,0,n%*R%,t%*V%:.|
00004ca0  99 34 36 2c 4a 2c 47 2c  42 2c 50 3a 47 5f 25 21  |.46,J,G,B,P:G_%!|
00004cb0  30 3d a4 4e 28 47 5f 25  21 30 29 3a 47 5f 25 21  |0=.N(G_%!0):G_%!|
00004cc0  34 3d a4 4e 28 47 5f 25  21 34 29 3a 47 5f 25 21  |4=.N(G_%!4):G_%!|
00004cd0  38 3d a4 4e 28 47 5f 25  21 38 29 3a 47 5f 25 21  |8=.N(G_%!8):G_%!|
00004ce0  31 32 3d a4 4e 28 47 5f  25 21 31 32 29 3a e7 71  |12=.N(G_%!12):.q|
00004cf0  6c 25 f2 64 79 28 2d 31  2c 32 35 36 2b 34 29 0d  |l%.dy(-1,256+4).|
00004d00  01 a5 0b e7 74 69 25 3d  a3 8c 0d 01 a6 07 f2 57  |....ti%=.......W|
00004d10  79 0d 01 a7 11 cc 3a e7  71 6c 25 f2 6d 79 8b f2  |y.....:.ql%.my..|
00004d20  79 4a 0d 01 a8 14 cd 3a  c8 99 26 34 30 36 63 31  |yJ.....:..&406c1|
00004d30  3a 7a 79 25 3d b9 0d 01  a9 05 cd 0d 01 aa 0b cd  |:zy%=...........|
00004d40  3a e7 7a 79 25 e1 0d 01  ab 12 f2 54 5f 3a c8 99  |:.zy%......T_:..|
00004d50  26 34 30 36 63 31 3a e1  0d 01 ac e1 dd f2 4c 75  |&406c1:.......Lu|
00004d60  3a 7a 79 25 3d a3 3a c8  99 34 36 2c 4e 6c 25 2c  |:zy%=.:..46,Nl%,|
00004d70  41 25 28 60 25 29 2c 4d  24 b8 2c 2c 2c 6e 25 2c  |A%(`%),M$.,,,n%,|
00004d80  74 25 3a 71 75 25 3d 31  30 32 34 2b 28 28 6e 25  |t%:qu%=1024+((n%|
00004d90  2b 33 32 29 2a 28 74 25  2b 31 36 29 29 81 38 3a  |+32)*(t%+16)).8:|
00004da0  4b 25 3d a4 41 28 71 75  25 2b 38 2c 57 4a 25 29  |K%=.A(qu%+8,WJ%)|
00004db0  3a e7 4b 25 3d a3 f2 43  28 22 4f 70 74 69 63 61  |:.K%=..C("Optica|
00004dc0  6c 22 2c 22 54 68 65 72  65 20 69 73 20 6e 6f 74  |l","There is not|
00004dd0  20 65 6e 6f 75 67 68 20  66 72 65 65 20 6d 65 6d  | enough free mem|
00004de0  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
00004df0  20 63 6f 6c 6f 75 72 20  6d 61 70 20 74 68 69 73  | colour map this|
00004e00  20 69 6d 61 67 65 2e 20  4e 65 65 64 20 22 2b c3  | image. Need "+.|
00004e10  28 28 71 75 25 2b 38 29  81 31 30 32 34 29 2b 22  |((qu%+8).1024)+"|
00004e20  4b 2e 22 29 3a 4b 25 3d  a4 41 28 31 2c 57 4a 25  |K."):K%=.A(1,WJ%|
00004e30  29 3a 7a 79 25 3d b9 3a  e1 0d 01 ad 51 21 28 41  |):zy%=.:....Q!(A|
00004e40  25 28 57 4a 25 29 29 3d  5a 25 28 57 4a 25 29 3a  |%(WJ%))=Z%(WJ%):|
00004e50  21 28 41 25 28 57 4a 25  29 2b 38 29 3d 31 36 3a  |!(A%(WJ%)+8)=16:|
00004e60  e7 56 25 3d 34 8c 4d 61  25 3d 30 3a 4e 69 25 3d  |.V%=4.Ma%=0:Ni%=|
00004e70  34 3a 4e 61 25 3d 32 8b  4d 61 25 3d 31 38 3a 4e  |4:Na%=2.Ma%=18:N|
00004e80  69 25 3d 32 3a 4e 61 25  3d 32 0d 01 ae 1b e7 52  |i%=2:Na%=2.....R|
00004e90  25 3d 34 8c 4d 61 25 3d  34 3a 4e 69 25 3d 34 3a  |%=4.Ma%=4:Ni%=4:|
00004ea0  4e 61 25 3d 34 0d 01 af  42 c8 99 34 36 2c 39 2b  |Na%=4...B..46,9+|
00004eb0  32 35 36 2c 41 25 28 57  4a 25 29 3a c8 99 34 36  |256,A%(WJ%):..46|
00004ec0  2c 31 35 2b 32 35 36 2c  41 25 28 57 4a 25 29 2c  |,15+256,A%(WJ%),|
00004ed0  4d 24 2c 31 2c 6e 25 2c  74 25 2c 4d 61 25 3a e7  |M$,1,n%,t%,Ma%:.|
00004ee0  52 25 3e 4e 61 25 8c 0d  01 b0 16 7a 25 21 30 3d  |R%>Na%.....z%!0=|
00004ef0  52 25 2f 4e 61 25 3a 7a  25 21 38 3d 31 0d 01 b1  |R%/Na%:z%!8=1...|
00004f00  18 cc 3a 7a 25 21 30 3d  31 3a 7a 25 21 38 3d 4e  |..:z%!0=1:z%!8=N|
00004f10  61 25 2f 52 25 0d 01 b2  0e cd 3a e7 56 25 3e 4e  |a%/R%.....:.V%>N|
00004f20  69 25 8c 0d 01 b3 17 7a  25 21 34 3d 56 25 2f 4e  |i%.....z%!4=V%/N|
00004f30  69 25 3a 7a 25 21 31 32  3d 31 0d 01 b4 19 cc 3a  |i%:z%!12=1.....:|
00004f40  7a 25 21 34 3d 31 3a 7a  25 21 31 32 3d 4e 69 25  |z%!4=1:z%!12=Ni%|
00004f50  2f 56 25 0d 01 b5 c2 cd  3a c8 99 34 36 2c 32 34  |/V%.....:..46,24|
00004f60  2b 32 35 36 2c 41 25 28  57 4a 25 29 2c 4d 24 b8  |+256,A%(WJ%),M$.|
00004f70  2c 2c 63 25 3a 47 5f 25  3d 63 25 2b 34 34 3a 47  |,,c%:G_%=c%+44:G|
00004f80  5f 25 21 30 3d 2d 32 35  36 3a 47 5f 25 21 34 3d  |_%!0=-256:G_%!4=|
00004f90  2d 32 35 36 3a 47 5f 25  21 38 3d 30 3a 47 5f 25  |-256:G_%!8=0:G_%|
00004fa0  21 31 32 3d 30 3a c8 99  26 34 30 37 34 30 2c 4a  |!12=0:..&40740,J|
00004fb0  75 25 2c 4b 61 25 2c 4d  61 25 2c 4f 65 25 2c 48  |u%,Ka%,Ma%,Oe%,H|
00004fc0  6c 25 3a c8 99 34 36 2c  36 30 2b 32 35 36 2c 41  |l%:..46,60+256,A|
00004fd0  25 28 57 4a 25 29 2c 4d  24 2c 30 b8 4a 2c 47 2c  |%(WJ%),M$,0.J,G,|
00004fe0  42 2c 50 3a c8 99 34 36  2c 35 32 2b 32 35 36 2c  |B,P:..46,52+256,|
00004ff0  41 25 28 60 25 29 2c 4d  24 2c 30 2c 30 2c 30 2c  |A%(`%),M$,0,0,0,|
00005000  7a 25 2c 48 6c 25 3a c8  99 34 36 2c 4a 2c 47 2c  |z%,Hl%:..46,J,G,|
00005010  42 2c 50 3a e1 0d 01 b6  44 dd f2 54 5f 3a c8 99  |B,P:....D..T_:..|
00005020  26 34 30 36 63 30 3a 6d  25 3d 51 79 25 3a 5f 25  |&406c0:m%=Qy%:_%|
00005030  3d 30 3a 50 25 3d 2d 31  3a f2 4a 28 65 25 29 3a  |=0:P%=-1:.J(e%):|
00005040  f2 4f 28 50 25 29 3a f2  4c 75 3a e7 7a 79 25 c8  |.O(P%):.Lu:.zy%.|
00005050  99 26 34 30 36 63 31 3a  e1 0d 01 b7 33 f2 4d 28  |.&406c1:....3.M(|
00005060  6b 25 29 3a f2 4d 28 60  5f 25 29 3a e3 68 79 25  |k%):.M(`_%):.hy%|
00005070  3d 30 b8 6d 5f 25 3a f2  46 28 69 79 25 2c 68 79  |=0.m_%:.F(iy%,hy|
00005080  25 29 3a e7 48 6c 25 3f  68 79 25 8c 0d 01 b8 4f  |%):.Hl%?hy%....O|
00005090  f2 41 28 69 79 25 2c 68  79 25 2c 22 54 65 78 74  |.A(iy%,hy%,"Text|
000050a0  22 29 3a 5a 25 21 30 3d  69 79 25 3a 5a 25 21 34  |"):Z%!0=iy%:Z%!4|
000050b0  3d 68 79 25 3a 5a 25 21  31 32 3d 26 66 30 30 30  |=hy%:Z%!12=&f000|
000050c0  30 30 30 3a 5a 25 21 38  3d 30 3c 3c 32 34 3a c8  |000:Z%!8=0<<24:.|
000050d0  99 26 34 30 30 63 64 2c  2c 5a 25 0d 01 b9 57 cc  |.&400cd,,Z%...W.|
000050e0  3a f2 41 28 69 79 25 2c  68 79 25 2c 22 42 61 63  |:.A(iy%,hy%,"Bac|
000050f0  6b 67 72 6f 75 6e 64 22  29 3a 5a 25 21 30 3d 69  |kground"):Z%!0=i|
00005100  79 25 3a 5a 25 21 34 3d  68 79 25 3a 5a 25 21 31  |y%:Z%!4=hy%:Z%!1|
00005110  32 3d 26 66 30 30 30 30  30 30 3a 5a 25 21 38 3d  |2=&f000000:Z%!8=|
00005120  37 3c 3c 32 34 3a c8 99  26 34 30 30 63 64 2c 2c  |7<<24:..&400cd,,|
00005130  5a 25 0d 01 ba 10 cd 3a  ed 3a e7 6d 5f 25 3c 31  |Z%.....:.:.m_%<1|
00005140  35 8c 0d 01 bb 2e e3 68  79 25 3d 6d 5f 25 2b 31  |5......hy%=m_%+1|
00005150  b8 31 35 3a f2 41 28 69  79 25 2c 68 79 25 2c 22  |.15:.A(iy%,hy%,"|
00005160  22 29 3a f2 5a 28 69 79  25 2c 68 79 25 29 3a ed  |"):.Z(iy%,hy%):.|
00005170  0d 01 bc 95 cd 3a f2 4c  28 51 5f 25 2c a4 4a 28  |.....:.L(Q_%,.J(|
00005180  6e 25 2a 52 25 29 2c a4  4a 28 74 25 2a 56 25 29  |n%*R%),.J(t%*V%)|
00005190  29 3a f2 4c 28 77 5f 25  2c a4 4a 28 6e 25 2a 52  |):.L(w_%,.J(n%*R|
000051a0  25 29 2c a4 4a 28 74 25  2a 56 25 29 29 3a f2 4e  |%),.J(t%*V%)):.N|
000051b0  28 51 5f 25 2c 22 4f 72  69 67 69 6e 61 6c 20 69  |(Q_%,"Original i|
000051c0  6d 61 67 65 22 29 3a f2  4e 28 77 5f 25 2c 22 50  |mage"):.N(w_%,"P|
000051d0  72 6f 63 65 73 73 65 64  20 69 6d 61 67 65 22 29  |rocessed image")|
000051e0  3a f2 44 28 69 79 25 29  3a f2 47 28 69 79 25 2c  |:.D(iy%):.G(iy%,|
000051f0  2d 31 2c 2d 31 29 3a f2  51 5f 3a c8 99 26 34 30  |-1,-1):.Q_:..&40|
00005200  36 63 31 3a e1 0d 01 bd  15 dd f2 6c 75 28 53 24  |6c1:.......lu(S$|
00005210  2c 59 25 29 3a c8 8e 59  25 ca 0d 01 be 1e c9 53  |,Y%):..Y%......S|
00005220  61 76 65 54 65 78 74 5f  57 69 6e 64 6f 77 25 3a  |aveText_Window%:|
00005230  e7 49 4f 25 3d a3 f2 62  0d 01 bf 27 c9 53 61 76  |.IO%=..b...'.Sav|
00005240  65 46 5f 57 69 6e 64 6f  77 25 3a f2 4d 28 53 61  |eF_Window%:.M(Sa|
00005250  76 65 46 5f 57 69 6e 64  6f 77 25 29 3a f2 62 0d  |veF_Window%):.b.|
00005260  01 c0 07 cb 3a e1 0d 01  c1 0f dd f2 4a 6c 3a e7  |....:.......Jl:.|
00005270  6d 25 3d 30 e1 0d 01 c2  0f e7 76 79 25 f2 4c 69  |m%=0......vy%.Li|
00005280  8b f2 72 6c 0d 01 c3 05  e1 0d 01 c4 31 dd f2 4c  |..rl........1..L|
00005290  28 59 25 2c 79 25 2c 68  25 29 3a ea 50 69 25 2c  |(Y%,y%,h%):.Pi%,|
000052a0  78 65 25 2c 65 79 25 2c  56 25 2c 50 42 25 3a e7  |xe%,ey%,V%,PB%:.|
000052b0  59 25 3d 65 25 79 25 2b  3d 32 0d 01 c5 3a 78 65  |Y%=e%y%+=2...:xe|
000052c0  25 3d a9 28 22 4f 43 52  65 64 20 74 65 78 74 22  |%=.("OCRed text"|
000052d0  29 2b 36 3a e7 59 25 3d  65 25 80 79 25 3c 78 65  |)+6:.Y%=e%.y%<xe|
000052e0  25 2a 32 2a 38 2b 34 8c  79 25 3d 78 65 25 2a 32  |%*2*8+4.y%=xe%*2|
000052f0  2a 38 2b 34 0d 01 c6 4e  50 69 25 3d a9 28 22 4f  |*8+4...NPi%=.("O|
00005300  72 69 67 69 6e 61 6c 20  49 6d 61 67 65 3a 20 27  |riginal Image: '|
00005310  22 2b 58 24 2b 22 27 20  28 22 2b 4d 24 2b 22 29  |"+X$+"' ("+M$+")|
00005320  22 29 2b 36 3a e7 59 25  3d 51 5f 25 80 79 25 3c  |")+6:.Y%=Q_%.y%<|
00005330  50 69 25 2a 32 2a 38 8c  79 25 3d 50 69 25 2a 32  |Pi%*2*8.y%=Pi%*2|
00005340  2a 38 0d 01 c7 4a 50 69  25 3d a9 28 22 49 6d 61  |*8...JPi%=.("Ima|
00005350  67 65 20 6e 61 6d 65 3a  20 27 22 2b 58 24 2b 22  |ge name: '"+X$+"|
00005360  27 20 28 22 2b 4d 24 2b  22 29 22 29 2b 36 3a e7  |' ("+M$+")")+6:.|
00005370  59 25 3d 77 5f 25 80 79  25 3c 50 69 25 2a 32 2a  |Y%=w_%.y%<Pi%*2*|
00005380  38 8c 79 25 3d 50 69 25  2a 32 2a 38 0d 01 c8 3f  |8.y%=Pi%*2*8...?|
00005390  50 69 25 3d a9 28 22 44  65 66 69 6e 65 20 54 65  |Pi%=.("Define Te|
000053a0  78 74 20 43 6f 6c 75 6d  6e 73 22 29 2b 36 3a e7  |xt Columns")+6:.|
000053b0  59 25 3d 6b 25 80 79 25  3c 50 69 25 2a 32 2a 38  |Y%=k%.y%<Pi%*2*8|
000053c0  8c 79 25 3d 50 69 25 2a  32 2a 38 0d 01 c9 42 50  |.y%=Pi%*2*8...BP|
000053d0  69 25 3d a9 28 22 4d 65  72 67 65 20 53 63 61 6e  |i%=.("Merge Scan|
000053e0  6e 65 64 20 53 70 72 69  74 65 73 22 29 2b 36 3a  |ned Sprites")+6:|
000053f0  e7 59 25 3d 48 5f 25 80  79 25 3c 50 69 25 2a 32  |.Y%=H_%.y%<Pi%*2|
00005400  2a 38 8c 79 25 3d 50 69  25 2a 32 2a 38 0d 01 ca  |*8.y%=Pi%*2*8...|
00005410  46 c8 99 35 33 2c 2d 31  2c 31 32 b8 2c 2c 65 79  |F..53,-1,12.,,ey|
00005420  25 3a c8 99 35 33 2c 2d  31 2c 35 b8 2c 2c 56 25  |%:..53,-1,5.,,V%|
00005430  3a 56 25 3d 31 3c 3c 56  25 3a 65 79 25 3d 65 79  |:V%=1<<V%:ey%=ey|
00005440  25 2a 56 25 3a e7 59 25  3d 65 25 68 25 2b 3d 38  |%*V%:.Y%=e%h%+=8|
00005450  2a 33 32 0d 01 cb 1d e7  59 25 3d 65 25 80 68 25  |*32.....Y%=e%.h%|
00005460  3c 65 79 25 2d 38 34 68  25 3d 65 79 25 2d 38 34  |<ey%-84h%=ey%-84|
00005470  0d 01 cc 17 e7 79 25 3e  30 80 79 25 3c 31 32 30  |.....y%>0.y%<120|
00005480  8c 79 25 3d 31 32 30 0d  01 cd 17 e7 68 25 3e 30  |.y%=120.....h%>0|
00005490  80 68 25 3c 31 31 36 8c  68 25 3d 31 31 36 0d 01  |.h%<116.h%=116..|
000054a0  ce 2b 50 42 25 3d ac 28  55 75 25 29 3a e7 50 42  |.+PB%=.(Uu%):.PB|
000054b0  25 3d a3 80 59 25 3d 6b  25 80 79 25 3c 31 30 30  |%=..Y%=k%.y%<100|
000054c0  30 8c 79 25 3d 31 30 30  30 0d 01 cf 11 e7 79 25  |0.y%=1000.....y%|
000054d0  3c 3e 30 80 68 25 3c 3e  30 8c 0d 01 d0 28 5a 25  |<>0.h%<>0....(Z%|
000054e0  21 30 3d 30 3a 5a 25 21  31 32 3d 30 3a e7 50 42  |!0=0:Z%!12=0:.PB|
000054f0  25 3d a3 80 59 25 3d 6b  25 8c 5a 25 21 31 32 3d  |%=..Y%=k%.Z%!12=|
00005500  38 36 0d 01 d1 23 5a 25  21 38 3d 79 25 3a 5a 25  |86...#Z%!8=y%:Z%|
00005510  21 34 3d 2d 68 25 3a c8  99 26 34 30 30 64 37 2c  |!4=-h%:..&400d7,|
00005520  59 25 2c 5a 25 0d 01 d2  0e cd 3a e7 59 25 3d 4d  |Y%,Z%.....:.Y%=M|
00005530  6f 25 e1 0d 01 d3 0f e7  59 25 3d 65 25 f2 67 4a  |o%......Y%=e%.gJ|
00005540  3a e1 0d 01 d4 1f 21 5a  25 3d 59 25 3a c8 99 26  |:.....!Z%=Y%:..&|
00005550  34 30 30 63 62 2c 2c 5a  25 3a e7 72 60 25 3d a3  |400cb,,Z%:.r`%=.|
00005560  8c 0d 01 d5 18 e7 68 25  3c 3e 30 8c 5a 25 21 31  |......h%<>0.Z%!1|
00005570  36 3d 5a 25 21 38 2b 68  25 0d 01 d6 18 e7 79 25  |6=Z%!8+h%.....y%|
00005580  3c 3e 30 8c 5a 25 21 31  32 3d 5a 25 21 34 2b 79  |<>0.Z%!12=Z%!4+y|
00005590  25 0d 01 d7 13 e7 79 25  3c 3e 30 8c 5a 25 21 35  |%.....y%<>0.Z%!5|
000055a0  32 3d 79 25 0d 01 d8 14  e7 68 25 3c 3e 30 8c 5a  |2=y%.....h%<>0.Z|
000055b0  25 21 34 38 3d 2d 68 25  0d 01 d9 35 5a 25 21 32  |%!48=-h%...5Z%!2|
000055c0  34 3d 30 3a e7 50 42 25  3d a3 80 59 25 3d 6b 25  |4=0:.PB%=..Y%=k%|
000055d0  8c 5a 25 21 31 36 2b 3d  38 36 3a 5a 25 21 34 38  |.Z%!16+=86:Z%!48|
000055e0  2d 3d 38 36 3a 5a 25 21  32 34 3d 38 36 0d 01 da  |-=86:Z%!24=86...|
000055f0  07 f2 41 4a 0d 01 db 14  cd 3a c8 99 26 34 30 30  |..AJ.....:..&400|
00005600  63 35 2c 2c 5a 25 3a e1  0d 01 dc 24 dd f2 67 4a  |c5,,Z%:....$..gJ|
00005610  3a ea 52 25 2c 56 25 2c  73 79 25 2c 65 79 25 2c  |:.R%,V%,sy%,ey%,|
00005620  41 4f 25 3a e7 a4 53 28  65 25 29 8c 0d 01 dd e2  |AO%:..S(e%).....|
00005630  cc 3a c8 99 35 33 2c 2d  31 2c 31 31 b8 2c 2c 73  |.:..53,-1,11.,,s|
00005640  79 25 3a c8 99 35 33 2c  2d 31 2c 31 32 b8 2c 2c  |y%:..53,-1,12.,,|
00005650  65 79 25 3a c8 99 35 33  2c 2d 31 2c 34 b8 2c 2c  |ey%:..53,-1,4.,,|
00005660  52 25 3a c8 99 35 33 2c  2d 31 2c 35 b8 2c 2c 56  |R%:..53,-1,5.,,V|
00005670  25 3a 52 25 3d 31 3c 3c  52 25 3a 56 25 3d 31 3c  |%:R%=1<<R%:V%=1<|
00005680  3c 56 25 3a 73 79 25 3d  73 79 25 2a 52 25 3a 65  |<V%:sy%=sy%*R%:e|
00005690  79 25 3d 65 79 25 2a 56  25 3a 5a 25 21 30 3d 65  |y%=ey%*V%:Z%!0=e|
000056a0  25 3a 41 4f 25 3d 73 79  25 2a 2e 31 36 3a 5a 25  |%:AO%=sy%*.16:Z%|
000056b0  21 34 3d 41 4f 25 3a 5a  25 21 38 3d 41 4f 25 2b  |!4=AO%:Z%!8=AO%+|
000056c0  34 32 3a 5a 25 21 31 32  3d 73 79 25 2d 41 4f 25  |42:Z%!12=sy%-AO%|
000056d0  2d 34 32 3a 5a 25 21 31  36 3d 65 79 25 2d 41 4f  |-42:Z%!16=ey%-AO|
000056e0  25 2d 34 32 3a 5a 25 21  32 34 3d 2d 28 34 2a 38  |%-42:Z%!24=-(4*8|
000056f0  2a 74 5f 25 2d 31 36 29  3a 5a 25 21 32 38 3d 2d  |*t_%-16):Z%!28=-|
00005700  31 3a c8 99 26 34 30 30  63 35 2c 2c 5a 25 0d 01  |1:..&400c5,,Z%..|
00005710  de 07 cd 3a e1 0d 01 df  14 dd f2 4e 28 59 25 2c  |...:.......N(Y%,|
00005720  51 24 29 3a c8 8e 59 25  ca 0d 01 e0 2c c9 77 5f  |Q$):..Y%....,.w_|
00005730  25 2c 51 5f 25 2c 6b 25  2c 48 5f 25 3a 51 24 3d  |%,Q_%,k%,H_%:Q$=|
00005740  51 24 2b 22 20 2d 20 61  74 20 22 2b c3 28 55 25  |Q$+" - at "+.(U%|
00005750  29 2b 22 25 22 0d 01 e1  1e cb 3a f2 75 5f 28 59  |)+"%".....:.u_(Y|
00005760  25 2c 51 24 29 3a e7 59  25 3d 73 4a 25 f2 4a 28  |%,Q$):.Y%=sJ%.J(|
00005770  59 25 29 0d 01 e2 05 e1  0d 01 e3 24 dd f2 4c 4a  |Y%)........$..LJ|
00005780  3a ea 5a 61 25 2c 53 50  25 2c 4e 25 3a e7 5f 25  |:.Za%,SP%,N%:._%|
00005790  3c 31 f2 74 3a 61 5f 25  3d b9 3a e1 0d 01 e4 1b  |<1.t:a_%=.:.....|
000057a0  4b 25 3d a4 41 28 31 2c  4e 75 25 29 3a e7 61 5f  |K%=.A(1,Nu%):.a_|
000057b0  25 58 75 25 2d 3d 31 0d  01 e5 c6 42 25 3d 5f 25  |%Xu%-=1....B%=_%|
000057c0  2d 31 3a 43 25 3d 61 25  3a 59 79 25 3d ba 28 4a  |-1:C%=a%:Yy%=.(J|
000057d0  79 29 2a 32 3a 4b 25 3d  a4 41 28 59 79 25 2c 4a  |y)*2:K%=.A(Yy%,J|
000057e0  5f 25 29 3a 4b 25 3d a4  41 28 59 79 25 2c 60 79  |_%):K%=.A(Yy%,`y|
000057f0  25 29 3a e7 4b 25 3d a3  8c f2 43 28 22 4f 70 74  |%):.K%=...C("Opt|
00005800  69 63 61 6c 22 2c 22 54  68 65 72 65 20 69 73 20  |ical","There is |
00005810  6e 6f 74 20 65 6e 6f 75  67 68 20 66 72 65 65 20  |not enough free |
00005820  6d 65 6d 6f 72 79 20 61  76 61 69 6c 61 62 6c 65  |memory available|
00005830  20 74 6f 20 72 65 61 64  20 74 68 65 20 73 70 72  | to read the spr|
00005840  69 74 65 2e 20 4e 65 65  64 20 22 2b c3 28 28 32  |ite. Need "+.((2|
00005850  2a 59 79 25 29 81 31 30  32 34 29 2b 22 4b 2e 22  |*Yy%).1024)+"K."|
00005860  29 3a 4b 25 3d a4 41 28  31 2c 4a 5f 25 29 3a 4b  |):K%=.A(1,J_%):K|
00005870  25 3d a4 41 28 31 2c 60  79 25 29 3a e1 0d 01 e6  |%=.A(1,`y%):....|
00005880  f9 42 25 3d 61 25 3a 43  25 3d 5f 25 3a 46 60 25  |.B%=a%:C%=_%:F`%|
00005890  3d ba 28 59 4a 29 3a 4d  79 25 3f 31 3d 31 3a 21  |=.(YJ):My%?1=1:!|
000058a0  60 3d 41 25 28 75 25 29  2b 34 3a 21 56 79 3d 41  |`=A%(u%)+4:!Vy=A|
000058b0  25 28 75 75 25 29 3a 21  6d 3d 55 79 25 2b 31 3a  |%(uu%):!m=Uy%+1:|
000058c0  21 72 3d 41 25 28 4a 5f  25 29 3a 21 66 3d 41 25  |!r=A%(J_%):!f=A%|
000058d0  28 60 79 25 29 3a 21 74  3d 41 25 28 60 79 25 29  |(`y%):!t=A%(`y%)|
000058e0  2b 59 79 25 3a 21 53 79  3d 41 25 28 60 25 29 2b  |+Yy%:!Sy=A%(`%)+|
000058f0  48 75 25 3a 21 66 5f 3d  50 75 25 3a 21 72 5f 3d  |Hu%:!f_=Pu%:!r_=|
00005900  4d 79 25 3a 21 73 79 3d  41 6e 25 3a 21 64 3d 30  |My%:!sy=An%:!d=0|
00005910  3a 21 5a 79 3d 66 4a 25  3a 21 46 79 3d 61 25 3a  |:!Zy=fJ%:!Fy=a%:|
00005920  21 70 3d 4b 79 25 3a 21  55 5f 3d 76 69 25 3a 42  |!p=Ky%:!U_=vi%:B|
00005930  25 3d 5f 25 3a 46 25 3d  42 75 25 3a 47 25 3d 53  |%=_%:F%=Bu%:G%=S|
00005940  4a 25 3a 48 25 3d 61 25  3a e7 4c 69 25 8c 21 59  |J%:H%=a%:.Li%.!Y|
00005950  5f 3d 35 30 3a 21 47 4a  3d 35 30 3a 21 52 3d 31  |_=50:!GJ=50:!R=1|
00005960  3a 21 55 3d 30 3a 21 4d  3d 30 3a 57 79 25 3d 32  |:!U=0:!M=0:Wy%=2|
00005970  3a f2 60 4a 3a e1 0d 01  e7 8a 21 59 5f 3d 35 30  |:.`J:.....!Y_=50|
00005980  3a 21 47 4a 3d 35 30 3a  21 52 3d 30 3a d6 63 5f  |:!GJ=50:!R=0:.c_|
00005990  3a 5f 25 3d 21 52 4a 3a  e7 21 73 79 3d 30 f2 58  |:_%=!RJ:.!sy=0.X|
000059a0  28 22 4f 70 74 69 63 61  6c 22 2c 22 4e 6f 74 20  |("Optical","Not |
000059b0  61 6c 6c 20 6f 66 20 74  68 65 20 74 65 78 74 20  |all of the text |
000059c0  63 6f 75 6c 64 20 62 65  20 68 61 6e 64 6c 65 64  |could be handled|
000059d0  2c 20 70 6f 73 73 69 62  6c 79 20 64 75 65 20 74  |, possibly due t|
000059e0  6f 20 61 20 62 61 64 20  71 75 61 6c 69 74 79 20  |o a bad quality |
000059f0  73 63 61 6e 6e 65 64 20  69 6d 61 67 65 2e 22 29  |scanned image.")|
00005a00  0d 01 e8 13 e7 21 60 5f  20 57 79 25 3d 30 3a 21  |.....!`_ Wy%=0:!|
00005a10  69 3d b9 0d 01 e9 12 4b  25 3d a4 41 28 31 2c 4a  |i=.....K%=.A(1,J|
00005a20  5f 25 29 3a e1 0d 01 ea  36 dd f2 7a 61 3a ea 4d  |_%):....6..za:.M|
00005a30  6c 25 2c 46 60 25 2c 68  60 25 2c 54 60 25 2c 47  |l%,F`%,h`%,T`%,G|
00005a40  42 25 2c 46 4a 25 2c 43  4a 25 3a e7 78 4f 25 f2  |B%,FJ%,CJ%:.xO%.|
00005a50  4f 28 50 25 29 3a 78 4f  25 3d a3 0d 01 eb 39 e7  |O(P%):xO%=....9.|
00005a60  71 6f 25 4d 25 21 30 3d  65 25 3a c8 99 26 34 30  |qo%M%!0=e%:..&40|
00005a70  30 63 62 2c 2c 4d 25 3a  4d 25 21 32 34 3d 65 65  |0cb,,M%:M%!24=ee|
00005a80  25 3a c8 99 26 34 30 30  63 35 2c 2c 4d 25 3a 71  |%:..&400c5,,M%:q|
00005a90  6f 25 3d a3 0d 01 ec 1c  f2 71 3a 59 25 3d 5a 6f  |o%=......q:Y%=Zo|
00005aa0  25 3a 49 25 3d 53 6b 25  3a e7 48 6e 25 f2 42 69  |%:I%=Sk%:.Hn%.Bi|
00005ab0  0d 01 ed 17 e7 59 4f 25  f2 6e 3a f2 4a 28 65 25  |.....YO%.n:.J(e%|
00005ac0  29 3a 59 4f 25 3d a3 0d  01 ee 0a c8 8e 5a 6f 25  |):YO%=.......Zo%|
00005ad0  ca 0d 01 ef 0c c9 48 5f  25 3a f2 6b 75 0d 01 f0  |......H_%:.ku...|
00005ae0  0b c9 6b 25 3a f2 4d 4a  0d 01 f1 0c c9 7a 75 25  |..k%:.MJ.....zu%|
00005af0  3a f2 70 6c 0d 01 f2 1c  cb 3a f2 67 61 3a e7 4f  |:.pl.....:.ga:.O|
00005b00  5f 25 3e 3d 30 59 6f 25  3d b9 3a f2 57 4a 3a e1  |_%>=0Yo%=.:.WJ:.|
00005b10  0d 01 f3 09 e7 44 79 25  e1 0d 01 f4 13 e7 74 60  |.....Dy%......t`|
00005b20  25 f2 64 75 8b e7 76 6c  25 f2 66 69 0d 01 f5 0f  |%.du..vl%.fi....|
00005b30  e7 57 79 25 3d 31 f2 71  5f 3a e1 0d 01 f6 0f e7  |.Wy%=1.q_:......|
00005b40  57 79 25 3d 32 f2 76 5f  3a e1 0d 01 f7 0c e7 21  |Wy%=2.v_:......!|
00005b50  41 f2 48 5f 3a e1 0d 01  f8 0b e7 48 6f 25 f2 56  |A.H_:......Ho%.V|
00005b60  5f 0d 01 f9 0d e7 6c 6f  25 f2 78 61 3a e1 0d 01  |_.....lo%.xa:...|
00005b70  fa 0d e7 79 4f 25 f2 4e  75 3a e1 0d 01 fb 16 e7  |...yO%.Nu:......|
00005b80  78 6f 25 c8 99 26 34 30  36 63 31 3a 78 6f 25 3d  |xo%..&406c1:xo%=|
00005b90  a3 0d 01 fc 43 c8 99 26  36 30 30 64 33 2c 2c 47  |....C..&600d3,,G|
00005ba0  4a 25 3a e7 47 4a 25 21  30 3d 67 25 e7 47 4a 25  |J%:.GJ%!0=g%.GJ%|
00005bb0  21 34 3d 31 39 e7 a4 4d  28 67 25 2c 31 39 29 3c  |!4=19..M(g%,19)<|
00005bc0  3e 53 79 24 53 79 24 3d  a4 4d 28 67 25 2c 31 39  |>Sy$Sy$=.M(g%,19|
00005bd0  29 3a f2 5f 0d 01 fd 37  e7 47 4a 25 21 30 3d 77  |):._...7.GJ%!0=w|
00005be0  25 e7 47 4a 25 21 34 3d  31 e7 46 79 25 3e 30 e7  |%.GJ%!4=1.Fy%>0.|
00005bf0  a4 4d 28 77 25 2c 31 29  3c 3e 6b 24 6b 24 3d a4  |.M(w%,1)<>k$k$=.|
00005c00  4d 28 77 25 2c 31 29 3a  f2 64 5f 0d 01 fe 0c e7  |M(w%,1):.d_.....|
00005c10  a4 53 28 57 25 29 8c 0d  01 ff 0f f2 76 75 3a e7  |.S(W%)......vu:.|
00005c20  79 6f 25 f2 7a 5f 0d 02  00 0b e7 49 6b 25 f2 70  |yo%.z_.....Ik%.p|
00005c30  4a 0d 02 01 1c cc 3a e7  78 4a 25 3c 3e 32 35 36  |J.....:.xJ%<>256|
00005c40  c8 99 22 53 63 61 6e 5f  53 74 6f 70 22 0d 02 02  |.."Scan_Stop"...|
00005c50  3b cd 3a 5a 25 21 30 3d  32 30 3a 5a 25 21 31 32  |;.:Z%!0=20:Z%!12|
00005c60  3d 30 3a c8 99 26 36 30  30 65 37 2c 31 39 2c 5a  |=0:..&600e7,19,Z|
00005c70  25 2c 59 25 b8 2c 2c 78  69 25 3a e7 78 69 25 3c  |%,Y%.,,xi%:.xi%<|
00005c80  3e 30 41 6f 25 3d 59 25  0d 02 03 2b 42 65 25 3d  |>0Ao%=Y%...+Be%=|
00005c90  a3 3a e7 73 6c 25 e7 a4  71 28 73 6c 25 29 3d a3  |.:.sl%..q(sl%)=.|
00005ca0  f2 4d 28 43 69 25 29 3a  73 6c 25 3d a3 3a 42 65  |.M(Ci%):sl%=.:Be|
00005cb0  25 3d b9 0d 02 04 0f e7  73 6c 25 f2 64 6c 3a f2  |%=......sl%.dl:.|
00005cc0  47 6c 0d 02 05 19 e7 28  42 65 25 84 59 25 3c 3e  |Gl.....(Be%.Y%<>|
00005cd0  6b 60 25 29 80 73 6c 25  3d a3 8c 0d 02 06 6b 6b  |k`%).sl%=.....kk|
00005ce0  60 25 3d 59 25 3a 5a 25  21 30 3d 32 30 3a 5a 25  |`%=Y%:Z%!0=20:Z%|
00005cf0  21 31 32 3d 30 3a c8 99  26 36 30 30 65 37 2c 31  |!12=0:..&600e7,1|
00005d00  39 2c 5a 25 2c 41 6f 25  b8 2c 2c 78 69 25 3a 5a  |9,Z%,Ao%.,,xi%:Z|
00005d10  25 21 30 3d 32 34 3a 5a  25 21 31 32 3d 30 3a 5a  |%!0=24:Z%!12=0:Z|
00005d20  25 21 31 36 3d 26 34 30  30 63 36 3a 5a 25 21 32  |%!16=&400c6:Z%!2|
00005d30  30 3d 78 69 25 3a c8 99  26 34 30 30 65 37 2c 31  |0=xi%:..&400e7,1|
00005d40  37 2c 5a 25 2c 30 0d 02  07 17 cd 3a e7 59 25 3d  |7,Z%,0.....:.Y%=|
00005d50  43 69 25 f2 48 6c 28 59  25 2c 49 25 29 0d 02 08  |Ci%.Hl(Y%,I%)...|
00005d60  05 e1 0d 02 09 2e dd f2  67 61 3a ea 55 4a 25 2c  |........ga:.UJ%,|
00005d70  78 5f 25 2c 46 4a 25 2c  43 4a 25 3a e7 6d 75 25  |x_%,FJ%,CJ%:.mu%|
00005d80  84 4f 6c 25 84 50 6c 25  84 5a 6c 25 3c 3e 30 8c  |.Ol%.Pl%.Zl%<>0.|
00005d90  0d 02 0a 6c c8 99 35 33  2c 2d 31 2c 34 b8 2c 2c  |...l..53,-1,4.,,|
00005da0  55 4a 25 3a c8 99 35 33  2c 2d 31 2c 35 b8 2c 2c  |UJ%:..53,-1,5.,,|
00005db0  78 5f 25 3a 55 4a 25 3d  31 3c 3c 55 4a 25 3a 78  |x_%:UJ%=1<<UJ%:x|
00005dc0  5f 25 3d 31 3c 3c 78 5f  25 3a 5a 25 21 30 3d 5f  |_%=1<<x_%:Z%!0=_|
00005dd0  5f 25 3a c8 99 26 34 30  30 63 62 2c 2c 5a 25 3a  |_%:..&400cb,,Z%:|
00005de0  4c 25 3d 5a 25 21 34 2d  5a 25 21 32 30 3a 58 25  |L%=Z%!4-Z%!20:X%|
00005df0  3d 5a 25 21 31 36 2d 5a  25 21 32 34 0d 02 0b 0d  |=Z%!16-Z%!24....|
00005e00  cd 3a e7 6d 75 25 f2 46  6e 0d 02 0c 0b e7 4f 6c  |.:.mu%.Fn.....Ol|
00005e10  25 f2 6b 61 0d 02 0d 0b  e7 50 6c 25 f2 4f 69 0d  |%.ka.....Pl%.Oi.|
00005e20  02 0e 0b e7 5a 6c 25 f2  55 61 0d 02 0f 0b e7 56  |....Zl%.Ua.....V|
00005e30  4f 25 f2 61 6c 0d 02 10  05 e1 0d 02 11 1e dd f2  |O%.al...........|
00005e40  46 6e 3a 46 4a 25 3d 73  25 2d 4c 25 3a e7 46 4a  |Fn:FJ%=s%-L%:.FJ|
00005e50  25 3c 30 46 4a 25 3d 30  0d 02 12 2d e7 46 4a 25  |%<0FJ%=0...-.FJ%|
00005e60  3e 28 6e 25 2d 31 29 2a  52 25 2a 55 25 2f 31 30  |>(n%-1)*R%*U%/10|
00005e70  30 46 4a 25 3d 28 6e 25  2d 31 29 2a 52 25 2a 55  |0FJ%=(n%-1)*R%*U|
00005e80  25 2f 31 30 30 0d 02 13  1d 43 4a 25 3d 58 25 2d  |%/100....CJ%=X%-|
00005e90  76 25 3a e7 43 4a 25 3c  78 5f 25 43 4a 25 3d 78  |v%:.CJ%<x_%CJ%=x|
00005ea0  5f 25 0d 02 14 2d e7 43  4a 25 3e 28 74 25 2d 31  |_%...-.CJ%>(t%-1|
00005eb0  29 2a 56 25 2a 55 25 2f  31 30 30 43 4a 25 3d 28  |)*V%*U%/100CJ%=(|
00005ec0  74 25 2d 31 29 2a 56 25  2a 55 25 2f 31 30 30 0d  |t%-1)*V%*U%/100.|
00005ed0  02 15 17 e7 62 79 25 3c  3e 46 4a 25 84 74 79 25  |....by%<>FJ%.ty%|
00005ee0  3c 3e 43 4a 25 8c 0d 02  16 fb 5a 25 21 30 3d 5f  |<>CJ%.....Z%!0=_|
00005ef0  5f 25 3a 5a 25 21 34 3d  30 3a 5a 25 21 38 3d 2d  |_%:Z%!4=0:Z%!8=-|
00005f00  31 30 30 30 30 30 3a 5a  25 21 31 32 3d 31 30 30  |100000:Z%!12=100|
00005f10  30 30 30 3a 5a 25 21 31  36 3d 30 3a c8 99 26 34  |000:Z%!16=0:..&4|
00005f20  30 30 63 39 2c 2c 5a 25  b8 64 25 3a c8 95 64 25  |00c9,,Z%.d%:..d%|
00005f30  3a f2 57 28 33 2c 31 31  29 3a c8 93 56 79 25 2b  |:.W(3,11):..Vy%+|
00005f40  4c 25 2c 58 25 2d 48 79  25 2c 62 79 25 2d 56 79  |L%,X%-Hy%,by%-Vy|
00005f50  25 2c 48 79 25 2d 74 79  25 3a c8 99 26 34 30 30  |%,Hy%-ty%:..&400|
00005f60  63 61 2c 2c 5a 25 b8 64  25 3a ce 3a 5a 25 21 30  |ca,,Z%.d%:.:Z%!0|
00005f70  3d 5f 5f 25 3a c8 99 26  34 30 30 63 63 2c 2c 5a  |=__%:..&400cc,,Z|
00005f80  25 3a 62 79 25 3d 46 4a  25 3a 74 79 25 3d 43 4a  |%:by%=FJ%:ty%=CJ|
00005f90  25 3a 5a 25 21 30 3d 5f  5f 25 3a 5a 25 21 34 3d  |%:Z%!0=__%:Z%!4=|
00005fa0  30 3a 5a 25 21 38 3d 2d  31 30 30 30 30 30 3a 5a  |0:Z%!8=-100000:Z|
00005fb0  25 21 31 32 3d 31 30 30  30 30 30 3a 5a 25 21 31  |%!12=100000:Z%!1|
00005fc0  36 3d 30 3a c8 99 26 34  30 30 63 39 2c 2c 5a 25  |6=0:..&400c9,,Z%|
00005fd0  b8 64 25 3a c8 95 64 25  3a f2 57 28 33 2c 31 31  |.d%:..d%:.W(3,11|
00005fe0  29 0d 02 17 35 c8 93 56  79 25 2b 4c 25 2c 58 25  |)...5..Vy%+L%,X%|
00005ff0  2d 48 79 25 2c 62 79 25  2d 56 79 25 2c 48 79 25  |-Hy%,by%-Vy%,Hy%|
00006000  2d 74 79 25 3a c8 99 26  34 30 30 63 61 2c 2c 5a  |-ty%:..&400ca,,Z|
00006010  25 b8 64 25 3a ce 0d 02  18 0b cd 3a f2 4c 5f 3a  |%.d%:......:.L_:|
00006020  e1 0d 02 19 46 dd f2 6b  61 3a 46 4a 25 3d 73 25  |....F..ka:FJ%=s%|
00006030  2d 7a 65 25 2d 4c 25 2b  28 62 79 25 2d 56 79 25  |-ze%-L%+(by%-Vy%|
00006040  29 3a 53 4f 25 3d 73 25  2d 7a 65 25 2d 4c 25 3a  |):SO%=s%-ze%-L%:|
00006050  e7 53 4f 25 3c 30 53 4f  25 3d 30 3a 46 4a 25 3d  |.SO%<0SO%=0:FJ%=|
00006060  62 79 25 2d 56 79 25 0d  02 1a 3d e7 46 4a 25 3e  |by%-Vy%...=.FJ%>|
00006070  28 6e 25 2d 31 29 2a 52  25 2a 55 25 2f 31 30 30  |(n%-1)*R%*U%/100|
00006080  46 4a 25 3d 28 6e 25 2d  31 29 2a 52 25 2a 55 25  |FJ%=(n%-1)*R%*U%|
00006090  2f 31 30 30 3a 53 4f 25  3d 46 4a 25 2d 62 79 25  |/100:SO%=FJ%-by%|
000060a0  2b 56 79 25 0d 02 1b 49  43 4a 25 3d 58 25 2d 77  |+Vy%...ICJ%=X%-w|
000060b0  65 25 2d 76 25 2b 28 74  79 25 2d 48 79 25 29 3a  |e%-v%+(ty%-Hy%):|
000060c0  63 60 25 3d 58 25 2d 77  65 25 2d 76 25 3a e7 63  |c`%=X%-we%-v%:.c|
000060d0  60 25 3c 78 5f 25 63 60  25 3d 78 5f 25 3a 43 4a  |`%<x_%c`%=x_%:CJ|
000060e0  25 3d 63 60 25 2b 74 79  25 2d 48 79 25 0d 02 1c  |%=c`%+ty%-Hy%...|
000060f0  3d e7 43 4a 25 3e 28 74  25 2d 31 29 2a 56 25 2a  |=.CJ%>(t%-1)*V%*|
00006100  55 25 2f 31 30 30 43 4a  25 3d 28 74 25 2d 31 29  |U%/100CJ%=(t%-1)|
00006110  2a 56 25 2a 55 25 2f 31  30 30 3a 63 60 25 3d 43  |*V%*U%/100:c`%=C|
00006120  4a 25 2d 74 79 25 2b 48  79 25 0d 02 1d 17 e7 62  |J%-ty%+Hy%.....b|
00006130  79 25 3c 3e 46 4a 25 84  74 79 25 3c 3e 43 4a 25  |y%<>FJ%.ty%<>CJ%|
00006140  8c 0d 02 1e fd 5a 25 21  30 3d 5f 5f 25 3a 5a 25  |.....Z%!0=__%:Z%|
00006150  21 34 3d 30 3a 5a 25 21  38 3d 2d 31 30 30 30 30  |!4=0:Z%!8=-10000|
00006160  30 3a 5a 25 21 31 32 3d  31 30 30 30 30 30 3a 5a  |0:Z%!12=100000:Z|
00006170  25 21 31 36 3d 30 3a c8  99 26 34 30 30 63 39 2c  |%!16=0:..&400c9,|
00006180  2c 5a 25 b8 64 25 3a c8  95 64 25 3a f2 57 28 33  |,Z%.d%:..d%:.W(3|
00006190  2c 31 31 29 3a c8 93 56  79 25 2b 4c 25 2c 58 25  |,11):..Vy%+L%,X%|
000061a0  2d 48 79 25 2c 62 79 25  2d 56 79 25 2c 48 79 25  |-Hy%,by%-Vy%,Hy%|
000061b0  2d 74 79 25 3a c8 99 26  34 30 30 63 61 2c 2c 5a  |-ty%:..&400ca,,Z|
000061c0  25 b8 64 25 3a ce 3a 5a  25 21 30 3d 5f 5f 25 3a  |%.d%:.:Z%!0=__%:|
000061d0  c8 99 26 34 30 30 63 63  2c 2c 5a 25 3a 56 79 25  |..&400cc,,Z%:Vy%|
000061e0  3d 53 4f 25 3a 48 79 25  3d 63 60 25 3a 62 79 25  |=SO%:Hy%=c`%:by%|
000061f0  3d 46 4a 25 3a 74 79 25  3d 43 4a 25 3a 5a 25 21  |=FJ%:ty%=CJ%:Z%!|
00006200  30 3d 5f 5f 25 3a 5a 25  21 34 3d 30 3a 5a 25 21  |0=__%:Z%!4=0:Z%!|
00006210  38 3d 2d 31 30 30 30 30  30 3a 5a 25 21 31 32 3d  |8=-100000:Z%!12=|
00006220  31 30 30 30 30 30 3a 5a  25 21 31 36 3d 30 3a c8  |100000:Z%!16=0:.|
00006230  99 26 34 30 30 63 39 2c  2c 5a 25 b8 64 25 0d 02  |.&400c9,,Z%.d%..|
00006240  1f 43 c8 95 64 25 3a f2  57 28 33 2c 31 31 29 3a  |.C..d%:.W(3,11):|
00006250  c8 93 56 79 25 2b 4c 25  2c 58 25 2d 48 79 25 2c  |..Vy%+L%,X%-Hy%,|
00006260  62 79 25 2d 56 79 25 2c  48 79 25 2d 74 79 25 3a  |by%-Vy%,Hy%-ty%:|
00006270  c8 99 26 34 30 30 63 61  2c 2c 5a 25 b8 64 25 3a  |..&400ca,,Z%.d%:|
00006280  ce 0d 02 20 5f cd 3a 21  5a 25 3d 5f 5f 25 3a c8  |... _.:!Z%=__%:.|
00006290  99 26 34 30 30 63 62 2c  2c 5a 25 3a 46 60 25 3d  |.&400cb,,Z%:F`%=|
000062a0  5a 25 21 34 3a 68 60 25  3d 5a 25 21 38 3a 54 60  |Z%!4:h`%=Z%!8:T`|
000062b0  25 3d 5a 25 21 31 32 3a  47 42 25 3d 5a 25 21 31  |%=Z%!12:GB%=Z%!1|
000062c0  36 3a 4d 6c 25 3d a3 3a  e7 73 25 2b 28 62 79 25  |6:Ml%=.:.s%+(by%|
000062d0  2d 56 79 25 29 2f 32 2b  55 4a 25 3e 54 60 25 8c  |-Vy%)/2+UJ%>T`%.|
000062e0  0d 02 21 27 5a 25 21 32  30 2b 3d 73 25 2d 54 60  |..!'Z%!20+=s%-T`|
000062f0  25 2b 28 62 79 25 2d 56  79 25 29 2f 32 2b 55 4a  |%+(by%-Vy%)/2+UJ|
00006300  25 3a 4d 6c 25 3d b9 0d  02 22 1e cd 3a e7 76 25  |%:Ml%=..."..:.v%|
00006310  2b 28 74 79 25 2d 48 79  25 29 2f 32 2b 78 5f 25  |+(ty%-Hy%)/2+x_%|
00006320  3e 47 42 25 8c 0d 02 23  27 5a 25 21 32 34 2b 3d  |>GB%...#'Z%!24+=|
00006330  76 25 2d 47 42 25 2b 28  74 79 25 2d 48 79 25 29  |v%-GB%+(ty%-Hy%)|
00006340  2f 32 2b 78 5f 25 3a 4d  6c 25 3d b9 0d 02 24 1a  |/2+x_%:Ml%=...$.|
00006350  cd 3a e7 73 25 2d 28 62  79 25 2d 56 79 25 29 2f  |.:.s%-(by%-Vy%)/|
00006360  32 3c 46 60 25 8c 0d 02  25 23 5a 25 21 32 30 2d  |2<F`%...%#Z%!20-|
00006370  3d 46 60 25 2d 73 25 2b  28 62 79 25 2d 56 79 25  |=F`%-s%+(by%-Vy%|
00006380  29 2f 32 3a 4d 6c 25 3d  b9 0d 02 26 1a cd 3a e7  |)/2:Ml%=...&..:.|
00006390  76 25 2d 28 74 79 25 2d  48 79 25 29 2f 32 3c 68  |v%-(ty%-Hy%)/2<h|
000063a0  60 25 8c 0d 02 27 23 5a  25 21 32 34 2d 3d 68 60  |`%...'#Z%!24-=h`|
000063b0  25 2d 76 25 2b 28 74 79  25 2d 48 79 25 29 2f 32  |%-v%+(ty%-Hy%)/2|
000063c0  3a 4d 6c 25 3d b9 0d 02  28 0b cd 3a e7 4d 6c 25  |:Ml%=...(..:.Ml%|
000063d0  8c 0d 02 29 14 f2 44 79  3a c8 99 26 34 30 30 63  |...)..Dy:..&400c|
000063e0  35 2c 2c 5a 25 0d 02 2a  07 cd 3a e1 0d 02 2b 1e  |5,,Z%..*..:...+.|
000063f0  dd f2 4f 69 3a 46 4a 25  3d 73 25 2d 4c 25 3a e7  |..Oi:FJ%=s%-L%:.|
00006400  46 4a 25 3c 30 46 4a 25  3d 30 0d 02 2c 2d e7 46  |FJ%<0FJ%=0..,-.F|
00006410  4a 25 3e 28 6e 25 2d 31  29 2a 52 25 2a 55 25 2f  |J%>(n%-1)*R%*U%/|
00006420  31 30 30 46 4a 25 3d 28  6e 25 2d 31 29 2a 52 25  |100FJ%=(n%-1)*R%|
00006430  2a 55 25 2f 31 30 30 0d  02 2d 1d 43 4a 25 3d 58  |*U%/100..-.CJ%=X|
00006440  25 2d 76 25 3a e7 43 4a  25 3c 78 5f 25 43 4a 25  |%-v%:.CJ%<x_%CJ%|
00006450  3d 78 5f 25 0d 02 2e 2d  e7 43 4a 25 3e 28 74 25  |=x_%...-.CJ%>(t%|
00006460  2d 31 29 2a 56 25 2a 55  25 2f 31 30 30 43 4a 25  |-1)*V%*U%/100CJ%|
00006470  3d 28 74 25 2d 31 29 2a  56 25 2a 55 25 2f 31 30  |=(t%-1)*V%*U%/10|
00006480  30 0d 02 2f 17 e7 62 79  25 3c 3e 46 4a 25 84 74  |0../..by%<>FJ%.t|
00006490  79 25 3c 3e 43 4a 25 8c  0d 02 30 f8 5a 25 21 30  |y%<>CJ%...0.Z%!0|
000064a0  3d 5f 5f 25 3a 5a 25 21  34 3d 30 3a 5a 25 21 38  |=__%:Z%!4=0:Z%!8|
000064b0  3d 2d 31 30 30 30 30 30  3a 5a 25 21 31 32 3d 31  |=-100000:Z%!12=1|
000064c0  30 30 30 30 30 3a 5a 25  21 31 36 3d 30 3a c8 99  |00000:Z%!16=0:..|
000064d0  26 34 30 30 63 39 2c 2c  5a 25 b8 64 25 3a c8 95  |&400c9,,Z%.d%:..|
000064e0  64 25 3a f2 57 28 33 2c  31 31 29 3a 86 56 79 25  |d%:.W(3,11):.Vy%|
000064f0  2b 4c 25 2c 58 25 2d 48  79 25 2c 4c 25 2b 62 79  |+L%,X%-Hy%,L%+by|
00006500  25 2c 58 25 2d 74 79 25  3a c8 99 26 34 30 30 63  |%,X%-ty%:..&400c|
00006510  61 2c 2c 5a 25 b8 64 25  3a ce 3a 5a 25 21 30 3d  |a,,Z%.d%:.:Z%!0=|
00006520  5f 5f 25 3a c8 99 26 34  30 30 63 63 2c 2c 5a 25  |__%:..&400cc,,Z%|
00006530  3a 62 79 25 3d 46 4a 25  3a 74 79 25 3d 43 4a 25  |:by%=FJ%:ty%=CJ%|
00006540  3a 5a 25 21 30 3d 5f 5f  25 3a 5a 25 21 34 3d 30  |:Z%!0=__%:Z%!4=0|
00006550  3a 5a 25 21 38 3d 2d 31  30 30 30 30 30 3a 5a 25  |:Z%!8=-100000:Z%|
00006560  21 31 32 3d 31 30 30 30  30 30 3a 5a 25 21 31 36  |!12=100000:Z%!16|
00006570  3d 30 3a c8 99 26 34 30  30 63 39 2c 2c 5a 25 b8  |=0:..&400c9,,Z%.|
00006580  64 25 3a c8 95 64 25 3a  f2 57 28 33 2c 31 31 29  |d%:..d%:.W(3,11)|
00006590  0d 02 31 32 86 56 79 25  2b 4c 25 2c 58 25 2d 48  |..12.Vy%+L%,X%-H|
000065a0  79 25 2c 4c 25 2b 62 79  25 2c 58 25 2d 74 79 25  |y%,L%+by%,X%-ty%|
000065b0  3a c8 99 26 34 30 30 63  61 2c 2c 5a 25 b8 64 25  |:..&400ca,,Z%.d%|
000065c0  3a ce 0d 02 32 0b cd 3a  f2 4c 5f 3a e1 0d 02 33  |:...2..:.L_:...3|
000065d0  1e dd f2 55 61 3a 46 4a  25 3d 73 25 2d 4c 25 3a  |...Ua:FJ%=s%-L%:|
000065e0  e7 46 4a 25 3c 30 46 4a  25 3d 30 0d 02 34 2d e7  |.FJ%<0FJ%=0..4-.|
000065f0  46 4a 25 3e 28 6e 25 2d  31 29 2a 52 25 2a 55 25  |FJ%>(n%-1)*R%*U%|
00006600  2f 31 30 30 46 4a 25 3d  28 6e 25 2d 31 29 2a 52  |/100FJ%=(n%-1)*R|
00006610  25 2a 55 25 2f 31 30 30  0d 02 35 1d 43 4a 25 3d  |%*U%/100..5.CJ%=|
00006620  58 25 2d 76 25 3a e7 43  4a 25 3c 78 5f 25 43 4a  |X%-v%:.CJ%<x_%CJ|
00006630  25 3d 78 5f 25 0d 02 36  2d e7 43 4a 25 3e 28 74  |%=x_%..6-.CJ%>(t|
00006640  25 2d 31 29 2a 56 25 2a  55 25 2f 31 30 30 43 4a  |%-1)*V%*U%/100CJ|
00006650  25 3d 28 74 25 2d 31 29  2a 56 25 2a 55 25 2f 31  |%=(t%-1)*V%*U%/1|
00006660  30 30 0d 02 37 17 e7 62  79 25 3c 3e 46 4a 25 84  |00..7..by%<>FJ%.|
00006670  74 79 25 3c 3e 43 4a 25  8c 0d 02 38 f8 5a 25 21  |ty%<>CJ%...8.Z%!|
00006680  30 3d 5f 5f 25 3a 5a 25  21 34 3d 30 3a 5a 25 21  |0=__%:Z%!4=0:Z%!|
00006690  38 3d 2d 31 30 30 30 30  30 3a 5a 25 21 31 32 3d  |8=-100000:Z%!12=|
000066a0  31 30 30 30 30 30 3a 5a  25 21 31 36 3d 30 3a c8  |100000:Z%!16=0:.|
000066b0  99 26 34 30 30 63 39 2c  2c 5a 25 b8 64 25 3a c8  |.&400c9,,Z%.d%:.|
000066c0  95 64 25 3a f2 57 28 33  2c 31 31 29 3a 86 56 79  |.d%:.W(3,11):.Vy|
000066d0  25 2b 4c 25 2c 58 25 2d  48 79 25 2c 4c 25 2b 62  |%+L%,X%-Hy%,L%+b|
000066e0  79 25 2c 58 25 2d 74 79  25 3a c8 99 26 34 30 30  |y%,X%-ty%:..&400|
000066f0  63 61 2c 2c 5a 25 b8 64  25 3a ce 3a 5a 25 21 30  |ca,,Z%.d%:.:Z%!0|
00006700  3d 5f 5f 25 3a c8 99 26  34 30 30 63 63 2c 2c 5a  |=__%:..&400cc,,Z|
00006710  25 3a 62 79 25 3d 46 4a  25 3a 74 79 25 3d 43 4a  |%:by%=FJ%:ty%=CJ|
00006720  25 3a 5a 25 21 30 3d 5f  5f 25 3a 5a 25 21 34 3d  |%:Z%!0=__%:Z%!4=|
00006730  30 3a 5a 25 21 38 3d 2d  31 30 30 30 30 30 3a 5a  |0:Z%!8=-100000:Z|
00006740  25 21 31 32 3d 31 30 30  30 30 30 3a 5a 25 21 31  |%!12=100000:Z%!1|
00006750  36 3d 30 3a c8 99 26 34  30 30 63 39 2c 2c 5a 25  |6=0:..&400c9,,Z%|
00006760  b8 64 25 3a c8 95 64 25  3a f2 57 28 33 2c 31 31  |.d%:..d%:.W(3,11|
00006770  29 0d 02 39 32 86 56 79  25 2b 4c 25 2c 58 25 2d  |)..92.Vy%+L%,X%-|
00006780  48 79 25 2c 4c 25 2b 62  79 25 2c 58 25 2d 74 79  |Hy%,L%+by%,X%-ty|
00006790  25 3a c8 99 26 34 30 30  63 61 2c 2c 5a 25 b8 64  |%:..&400ca,,Z%.d|
000067a0  25 3a ce 0d 02 3a 0b cd  3a f2 4c 5f 3a e1 0d 02  |%:...:..:.L_:...|
000067b0  3b 56 dd f2 4c 5f 3a 21  5a 25 3d 5f 5f 25 3a c8  |;V..L_:!Z%=__%:.|
000067c0  99 26 34 30 30 63 62 2c  2c 5a 25 3a 46 60 25 3d  |.&400cb,,Z%:F`%=|
000067d0  5a 25 21 34 3a 68 60 25  3d 5a 25 21 38 3a 54 60  |Z%!4:h`%=Z%!8:T`|
000067e0  25 3d 5a 25 21 31 32 3a  47 42 25 3d 5a 25 21 31  |%=Z%!12:GB%=Z%!1|
000067f0  36 3a 4d 6c 25 3d a3 3a  e7 73 25 2b 55 4a 25 3e  |6:Ml%=.:.s%+UJ%>|
00006800  54 60 25 8c 0d 02 3c 1b  5a 25 21 32 30 2b 3d 73  |T`%...<.Z%!20+=s|
00006810  25 2d 54 60 25 2b 55 4a  25 3a 4d 6c 25 3d b9 0d  |%-T`%+UJ%:Ml%=..|
00006820  02 3d 12 cd 3a e7 76 25  2b 78 5f 25 3e 47 42 25  |.=..:.v%+x_%>GB%|
00006830  8c 0d 02 3e 1b 5a 25 21  32 34 2b 3d 76 25 2d 47  |...>.Z%!24+=v%-G|
00006840  42 25 2b 78 5f 25 3a 4d  6c 25 3d b9 0d 02 3f 0e  |B%+x_%:Ml%=...?.|
00006850  cd 3a e7 73 25 3c 46 60  25 8c 0d 02 40 17 5a 25  |.:.s%<F`%...@.Z%|
00006860  21 32 30 2d 3d 46 60 25  2d 73 25 3a 4d 6c 25 3d  |!20-=F`%-s%:Ml%=|
00006870  b9 0d 02 41 0e cd 3a e7  76 25 3c 68 60 25 8c 0d  |...A..:.v%<h`%..|
00006880  02 42 17 5a 25 21 32 34  2d 3d 68 60 25 2d 76 25  |.B.Z%!24-=h`%-v%|
00006890  3a 4d 6c 25 3d b9 0d 02  43 0b cd 3a e7 4d 6c 25  |:Ml%=...C..:.Ml%|
000068a0  8c 0d 02 44 14 f2 44 79  3a c8 99 26 34 30 30 63  |...D..Dy:..&400c|
000068b0  35 2c 2c 5a 25 0d 02 45  07 cd 3a e1 0d 02 46 10  |5,,Z%..E..:...F.|
000068c0  dd f2 44 5f 3a c8 8e 5a  25 21 30 ca 0d 02 47 27  |..D_:..Z%!0...G'|
000068d0  c9 48 5f 25 3a c8 99 26  36 30 30 64 33 2c 2c 47  |.H_%:..&600d3,,G|
000068e0  4a 25 3a c8 99 26 36 30  30 64 32 2c 5a 25 21 30  |J%:..&600d2,Z%!0|
000068f0  2c 2d 31 0d 02 48 07 cb  3a e1 0d 02 49 10 dd f2  |,-1..H..:...I...|
00006900  4a 6e 3a c8 8e 5a 25 21  30 ca 0d 02 4a 3f c9 48  |Jn:..Z%!0...J?.H|
00006910  5f 25 3a f2 59 28 22 22  29 3a c8 99 26 36 30 30  |_%:.Y(""):..&600|
00006920  64 32 2c 47 4a 25 21 30  2c 47 4a 25 21 34 2c 47  |d2,GJ%!0,GJ%!4,G|
00006930  4a 25 21 38 2c 47 4a 25  21 31 32 2c 47 4a 25 21  |J%!8,GJ%!12,GJ%!|
00006940  31 36 2c 47 4a 25 21 32  30 0d 02 4b 2c c9 6b 25  |16,GJ%!20..K,.k%|
00006950  3a e7 6d 75 25 3d a3 80  4f 6c 25 3d a3 80 50 6c  |:.mu%=..Ol%=..Pl|
00006960  25 3d a3 80 5a 6c 25 3d  a3 f2 59 28 22 22 29 3a  |%=..Zl%=..Y(""):|
00006970  5f 4a 25 3d 30 0d 02 4c  0a c9 65 25 3a f2 63 0d  |_J%=0..L..e%:.c.|
00006980  02 4d 07 cb 3a e1 0d 02  4e 77 dd f2 70 61 3a f2  |.M..:...Nw..pa:.|
00006990  55 79 3a 6d 79 25 3d 4c  25 3a 41 5f 25 3d 58 25  |Uy:my%=L%:A_%=X%|
000069a0  2d 74 25 2a 56 25 2a 55  25 2f 31 30 30 3a f2 49  |-t%*V%*U%/100:.I|
000069b0  28 41 25 28 60 25 29 2c  4d 24 2c 6d 79 25 2c 41  |(A%(`%),M$,my%,A|
000069c0  5f 25 2c 30 2c 7a 25 29  3a e7 6d 75 25 e7 5f 5f  |_%,0,z%):.mu%.__|
000069d0  25 3d 51 5f 25 f2 57 28  33 2c 31 31 29 3a c8 93  |%=Q_%.W(3,11):..|
000069e0  56 79 25 2b 4c 25 2c 58  25 2d 48 79 25 2c 62 79  |Vy%+L%,X%-Hy%,by|
000069f0  25 2d 56 79 25 2c 48 79  25 2d 74 79 25 0d 02 4f  |%-Vy%,Hy%-ty%..O|
00006a00  05 e1 0d 02 50 4e dd f2  46 6c 3a ea 4e 25 3a f2  |....PN..Fl:.N%:.|
00006a10  55 79 3a 6d 79 25 3d 4c  25 3a 41 5f 25 3d 58 25  |Uy:my%=L%:A_%=X%|
00006a20  2d 74 25 2a 56 25 2a 55  25 2f 31 30 30 3a f2 49  |-t%*V%*U%/100:.I|
00006a30  28 41 25 28 60 25 29 2c  4d 24 2c 6d 79 25 2c 41  |(A%(`%),M$,my%,A|
00006a40  5f 25 2c 30 2c 7a 25 29  3a e7 41 6b 25 f2 6c 4a  |_%,0,z%):.Ak%.lJ|
00006a50  0d 02 51 79 47 79 25 3d  28 5a 25 21 31 36 2d 5a  |..QyGy%=(Z%!16-Z|
00006a60  25 21 32 34 2d 5a 25 21  33 32 29 2f 56 25 3a 4c  |%!24-Z%!32)/V%:L|
00006a70  79 25 3d 28 5a 25 21 31  36 2d 5a 25 21 32 34 2d  |y%=(Z%!16-Z%!24-|
00006a80  5a 25 21 34 30 29 2f 56  25 3a 4f 79 25 3d 28 5a  |Z%!40)/V%:Oy%=(Z|
00006a90  25 21 32 38 2d 5a 25 21  34 2b 5a 25 21 32 30 29  |%!28-Z%!4+Z%!20)|
00006aa0  2f 52 25 3a 64 79 25 3d  28 5a 25 21 33 36 2d 5a  |/R%:dy%=(Z%!36-Z|
00006ab0  25 21 34 2b 5a 25 21 32  30 29 2f 52 25 3a e7 47  |%!4+Z%!20)/R%:.G|
00006ac0  79 25 3c 30 47 79 25 3d  30 0d 02 52 0f e7 4c 79  |y%<0Gy%=0..R..Ly|
00006ad0  25 3c 30 4c 79 25 3d 30  0d 02 53 0f e7 4f 79 25  |%<0Ly%=0..S..Oy%|
00006ae0  3c 30 4f 79 25 3d 30 0d  02 54 0f e7 64 79 25 3c  |<0Oy%=0..T..dy%<|
00006af0  30 64 79 25 3d 30 0d 02  55 0c e7 41 79 25 3e 3d  |0dy%=0..U..Ay%>=|
00006b00  30 8c 0d 02 56 8a e3 4e  25 3d 30 b8 41 79 25 3a  |0...V..N%=0.Ay%:|
00006b10  e7 28 51 25 21 28 4e 25  2a 31 36 29 2a 55 25 2f  |.(Q%!(N%*16)*U%/|
00006b20  31 30 30 3c 64 79 25 2b  31 36 2f 52 25 80 51 25  |100<dy%+16/R%.Q%|
00006b30  21 28 4e 25 2a 31 36 2b  38 29 2a 55 25 2f 31 30  |!(N%*16+8)*U%/10|
00006b40  30 3e 4f 79 25 2d 31 36  2f 52 25 29 84 28 51 25  |0>Oy%-16/R%).(Q%|
00006b50  21 28 4e 25 2a 31 36 2b  34 29 2a 55 25 2f 31 30  |!(N%*16+4)*U%/10|
00006b60  30 3c 4c 79 25 2b 31 36  2f 56 25 80 51 25 21 28  |0<Ly%+16/V%.Q%!(|
00006b70  4e 25 2a 31 36 2b 31 32  29 2a 55 25 2f 31 30 30  |N%*16+12)*U%/100|
00006b80  3e 47 79 25 2d 31 36 2f  56 25 29 8c 0d 02 57 d2  |>Gy%-16/V%)...W.|
00006b90  f2 57 28 33 2c 31 30 29  3a c8 93 4c 25 2b 51 25  |.W(3,10):..L%+Q%|
00006ba0  21 28 4e 25 2a 31 36 29  2a 52 25 2a 55 25 2f 31  |!(N%*16)*R%*U%/1|
00006bb0  30 30 2c 58 25 2d 51 25  21 28 4e 25 2a 31 36 2b  |00,X%-Q%!(N%*16+|
00006bc0  34 29 2a 56 25 2a 55 25  2f 31 30 30 2c 28 51 25  |4)*V%*U%/100,(Q%|
00006bd0  21 28 4e 25 2a 31 36 2b  38 29 2d 51 25 21 28 4e  |!(N%*16+8)-Q%!(N|
00006be0  25 2a 31 36 29 29 2a 52  25 2a 55 25 2f 31 30 30  |%*16))*R%*U%/100|
00006bf0  2c 2d 28 51 25 21 28 4e  25 2a 31 36 2b 31 32 29  |,-(Q%!(N%*16+12)|
00006c00  2d 51 25 21 28 4e 25 2a  31 36 2b 34 29 29 2a 56  |-Q%!(N%*16+4))*V|
00006c10  25 2a 55 25 2f 31 30 30  3a f2 57 28 33 2c 38 29  |%*U%/100:.W(3,8)|
00006c20  3a c8 93 4c 25 2b 51 25  21 28 4e 25 2a 31 36 29  |:..L%+Q%!(N%*16)|
00006c30  2a 52 25 2a 55 25 2f 31  30 30 2d 38 2c 58 25 2d  |*R%*U%/100-8,X%-|
00006c40  51 25 21 28 4e 25 2a 31  36 2b 34 29 2a 56 25 2a  |Q%!(N%*16+4)*V%*|
00006c50  55 25 2f 31 30 30 2d 38  2c 31 36 2c 31 36 0d 02  |U%/100-8,16,16..|
00006c60  58 c3 c8 93 4c 25 2b 51  25 21 28 4e 25 2a 31 36  |X...L%+Q%!(N%*16|
00006c70  2b 38 29 2a 52 25 2a 55  25 2f 31 30 30 2d 38 2c  |+8)*R%*U%/100-8,|
00006c80  58 25 2d 51 25 21 28 4e  25 2a 31 36 2b 34 29 2a  |X%-Q%!(N%*16+4)*|
00006c90  56 25 2a 55 25 2f 31 30  30 2d 38 2c 31 36 2c 31  |V%*U%/100-8,16,1|
00006ca0  36 3a c8 93 4c 25 2b 51  25 21 28 4e 25 2a 31 36  |6:..L%+Q%!(N%*16|
00006cb0  2b 38 29 2a 52 25 2a 55  25 2f 31 30 30 2d 38 2c  |+8)*R%*U%/100-8,|
00006cc0  58 25 2d 51 25 21 28 4e  25 2a 31 36 2b 31 32 29  |X%-Q%!(N%*16+12)|
00006cd0  2a 56 25 2a 55 25 2f 31  30 30 2d 38 2c 31 36 2c  |*V%*U%/100-8,16,|
00006ce0  31 36 3a c8 93 4c 25 2b  51 25 21 28 4e 25 2a 31  |16:..L%+Q%!(N%*1|
00006cf0  36 29 2a 52 25 2a 55 25  2f 31 30 30 2d 38 2c 58  |6)*R%*U%/100-8,X|
00006d00  25 2d 51 25 21 28 4e 25  2a 31 36 2b 31 32 29 2a  |%-Q%!(N%*16+12)*|
00006d10  56 25 2a 55 25 2f 31 30  30 2d 38 2c 31 36 2c 31  |V%*U%/100-8,16,1|
00006d20  36 0d 02 59 0f cd 3a ed  3a e7 41 79 25 3e 30 8c  |6..Y..:.:.Ay%>0.|
00006d30  0d 02 5a c8 f2 57 28 33  2c 31 31 29 3a e3 4e 25  |..Z..W(3,11):.N%|
00006d40  3d 31 b8 41 79 25 3a 86  4c 25 2b 51 25 21 28 4e  |=1.Ay%:.L%+Q%!(N|
00006d50  25 2a 31 36 2d 38 29 2a  52 25 2a 55 25 2f 31 30  |%*16-8)*R%*U%/10|
00006d60  30 2d 33 32 2c 58 25 2d  51 25 21 28 4e 25 2a 31  |0-32,X%-Q%!(N%*1|
00006d70  36 2d 34 29 2a 56 25 2a  55 25 2f 31 30 30 2c 4c  |6-4)*V%*U%/100,L|
00006d80  25 2b 51 25 21 28 4e 25  2a 31 36 29 2a 52 25 2a  |%+Q%!(N%*16)*R%*|
00006d90  55 25 2f 31 30 30 2b 33  32 2c 58 25 2d 51 25 21  |U%/100+32,X%-Q%!|
00006da0  28 4e 25 2a 31 36 2b 34  29 2a 56 25 2a 55 25 2f  |(N%*16+4)*V%*U%/|
00006db0  31 30 30 3a c8 93 c8 90  4c 25 2b 51 25 21 28 4e  |100:....L%+Q%!(N|
00006dc0  25 2a 31 36 2d 38 29 2a  52 25 2a 55 25 2f 31 30  |%*16-8)*R%*U%/10|
00006dd0  30 2d 38 2d 33 32 2c 58  25 2d 51 25 21 28 4e 25  |0-8-32,X%-Q%!(N%|
00006de0  2a 31 36 2d 34 29 2a 56  25 2a 55 25 2f 31 30 30  |*16-4)*V%*U%/100|
00006df0  2d 38 2c 31 36 2c 31 36  0d 02 5b 48 c8 93 c8 90  |-8,16,16..[H....|
00006e00  4c 25 2b 51 25 21 28 4e  25 2a 31 36 29 2a 52 25  |L%+Q%!(N%*16)*R%|
00006e10  2a 55 25 2f 31 30 30 2d  38 2b 33 32 2c 58 25 2d  |*U%/100-8+32,X%-|
00006e20  51 25 21 28 4e 25 2a 31  36 2b 34 29 2a 56 25 2a  |Q%!(N%*16+4)*V%*|
00006e30  55 25 2f 31 30 30 2d 38  2c 31 36 2c 31 36 3a ed  |U%/100-8,16,16:.|
00006e40  0d 02 5c 05 cd 0d 02 5d  0e cd 3a e7 57 5f 25 3e  |..\....]..:.W_%>|
00006e50  2d 31 8c 0d 02 5e d4 e3  4e 25 3d 30 b8 57 5f 25  |-1...^..N%=0.W_%|
00006e60  3a f2 57 28 33 2c 31 31  29 3a c8 93 4c 25 2b 66  |:.W(3,11):..L%+f|
00006e70  25 21 28 4e 25 2a 31 36  29 2a 52 25 2a 55 25 2f  |%!(N%*16)*R%*U%/|
00006e80  31 30 30 2c 58 25 2d 66  25 21 28 4e 25 2a 31 36  |100,X%-f%!(N%*16|
00006e90  2b 34 29 2a 56 25 2a 55  25 2f 31 30 30 2c 28 66  |+4)*V%*U%/100,(f|
00006ea0  25 21 28 4e 25 2a 31 36  2b 38 29 2d 66 25 21 28  |%!(N%*16+8)-f%!(|
00006eb0  4e 25 2a 31 36 29 29 2a  52 25 2a 55 25 2f 31 30  |N%*16))*R%*U%/10|
00006ec0  30 2c 2d 28 66 25 21 28  4e 25 2a 31 36 2b 31 32  |0,-(f%!(N%*16+12|
00006ed0  29 2d 66 25 21 28 4e 25  2a 31 36 2b 34 29 29 2a  |)-f%!(N%*16+4))*|
00006ee0  56 25 2a 55 25 2f 31 30  30 3a c8 93 4c 25 2b 66  |V%*U%/100:..L%+f|
00006ef0  25 21 28 4e 25 2a 31 36  29 2a 52 25 2a 55 25 2f  |%!(N%*16)*R%*U%/|
00006f00  31 30 30 2d 38 2c 58 25  2d 66 25 21 28 4e 25 2a  |100-8,X%-f%!(N%*|
00006f10  31 36 2b 34 29 2a 56 25  2a 55 25 2f 31 30 30 2d  |16+4)*V%*U%/100-|
00006f20  38 2c 31 36 2c 31 36 0d  02 5f c3 c8 93 4c 25 2b  |8,16,16.._...L%+|
00006f30  66 25 21 28 4e 25 2a 31  36 2b 38 29 2a 52 25 2a  |f%!(N%*16+8)*R%*|
00006f40  55 25 2f 31 30 30 2d 38  2c 58 25 2d 66 25 21 28  |U%/100-8,X%-f%!(|
00006f50  4e 25 2a 31 36 2b 34 29  2a 56 25 2a 55 25 2f 31  |N%*16+4)*V%*U%/1|
00006f60  30 30 2d 38 2c 31 36 2c  31 36 3a c8 93 4c 25 2b  |00-8,16,16:..L%+|
00006f70  66 25 21 28 4e 25 2a 31  36 2b 38 29 2a 52 25 2a  |f%!(N%*16+8)*R%*|
00006f80  55 25 2f 31 30 30 2d 38  2c 58 25 2d 66 25 21 28  |U%/100-8,X%-f%!(|
00006f90  4e 25 2a 31 36 2b 31 32  29 2a 56 25 2a 55 25 2f  |N%*16+12)*V%*U%/|
00006fa0  31 30 30 2d 38 2c 31 36  2c 31 36 3a c8 93 4c 25  |100-8,16,16:..L%|
00006fb0  2b 66 25 21 28 4e 25 2a  31 36 29 2a 52 25 2a 55  |+f%!(N%*16)*R%*U|
00006fc0  25 2f 31 30 30 2d 38 2c  58 25 2d 66 25 21 28 4e  |%/100-8,X%-f%!(N|
00006fd0  25 2a 31 36 2b 31 32 29  2a 56 25 2a 55 25 2f 31  |%*16+12)*V%*U%/1|
00006fe0  30 30 2d 38 2c 31 36 2c  31 36 0d 02 60 d5 86 4c  |00-8,16,16..`..L|
00006ff0  25 2b 66 25 21 28 4e 25  2a 31 36 29 2a 52 25 2a  |%+f%!(N%*16)*R%*|
00007000  55 25 2f 31 30 30 2c 58  25 2d 66 25 21 28 4e 25  |U%/100,X%-f%!(N%|
00007010  2a 31 36 2b 34 29 2a 56  25 2a 55 25 2f 31 30 30  |*16+4)*V%*U%/100|
00007020  2c 4c 25 2b 66 25 21 28  4e 25 2a 31 36 2b 38 29  |,L%+f%!(N%*16+8)|
00007030  2a 52 25 2a 55 25 2f 31  30 30 2c 58 25 2d 66 25  |*R%*U%/100,X%-f%|
00007040  21 28 4e 25 2a 31 36 2b  31 32 29 2a 56 25 2a 55  |!(N%*16+12)*V%*U|
00007050  25 2f 31 30 30 3a 86 4c  25 2b 66 25 21 28 4e 25  |%/100:.L%+f%!(N%|
00007060  2a 31 36 2b 38 29 2a 52  25 2a 55 25 2f 31 30 30  |*16+8)*R%*U%/100|
00007070  2c 58 25 2d 66 25 21 28  4e 25 2a 31 36 2b 34 29  |,X%-f%!(N%*16+4)|
00007080  2a 56 25 2a 55 25 2f 31  30 30 2c 4c 25 2b 66 25  |*V%*U%/100,L%+f%|
00007090  21 28 4e 25 2a 31 36 29  2a 52 25 2a 55 25 2f 31  |!(N%*16)*R%*U%/1|
000070a0  30 30 2c 58 25 2d 66 25  21 28 4e 25 2a 31 36 2b  |00,X%-f%!(N%*16+|
000070b0  31 32 29 2a 56 25 2a 55  25 2f 31 30 30 3a ed 0d  |12)*V%*U%/100:..|
000070c0  02 61 36 cd 3a e7 6d 75  25 84 4f 6c 25 f2 57 28  |.a6.:.mu%.Ol%.W(|
000070d0  33 2c 31 31 29 3a c8 93  56 79 25 2b 4c 25 2c 58  |3,11):..Vy%+L%,X|
000070e0  25 2d 48 79 25 2c 62 79  25 2d 56 79 25 2c 48 79  |%-Hy%,by%-Vy%,Hy|
000070f0  25 2d 74 79 25 0d 02 62  34 e7 50 6c 25 84 5a 6c  |%-ty%..b4.Pl%.Zl|
00007100  25 3c 3e 30 f2 57 28 33  2c 31 31 29 3a 86 56 79  |%<>0.W(3,11):.Vy|
00007110  25 2b 4c 25 2c 58 25 2d  48 79 25 2c 62 79 25 2b  |%+L%,X%-Hy%,by%+|
00007120  4c 25 2c 58 25 2d 74 79  25 0d 02 63 05 e1 0d 02  |L%,X%-ty%..c....|
00007130  64 78 dd f2 78 6c 3a f2  55 79 3a 6d 79 25 3d 4c  |dx..xl:.Uy:my%=L|
00007140  25 3a 41 5f 25 3d 58 25  2d 74 25 2a 56 25 2a 55  |%:A_%=X%-t%*V%*U|
00007150  25 2f 31 30 30 3a f2 49  28 41 25 28 57 4a 25 29  |%/100:.I(A%(WJ%)|
00007160  2c 4d 24 2c 6d 79 25 2c  41 5f 25 2c 30 2c 7a 25  |,M$,my%,A_%,0,z%|
00007170  29 3a e7 6d 75 25 e7 5f  5f 25 3d 77 5f 25 f2 57  |):.mu%.__%=w_%.W|
00007180  28 33 2c 31 31 29 3a c8  93 56 79 25 2b 4c 25 2c  |(3,11):..Vy%+L%,|
00007190  58 25 2d 48 79 25 2c 62  79 25 2d 56 79 25 2c 48  |X%-Hy%,by%-Vy%,H|
000071a0  79 25 2d 74 79 25 0d 02  65 05 e1 0d 02 66 53 dd  |y%-ty%..e....fS.|
000071b0  f2 74 69 3a c8 94 55 25  2c 6f 69 25 3a f2 55 79  |.ti:..U%,oi%:.Uy|
000071c0  3a 6d 79 25 3d 4c 25 3a  41 5f 25 3d 58 25 2d 74  |:my%=L%:A_%=X%-t|
000071d0  25 2a 56 25 2a 55 25 2f  31 30 30 3a f2 49 28 41  |%*V%*U%/100:.I(A|
000071e0  25 28 60 25 29 2c 4d 24  2c 6d 79 25 2c 41 5f 25  |%(`%),M$,my%,A_%|
000071f0  2c 30 2c 7a 25 29 3a e7  41 6b 25 f2 6c 4a 0d 02  |,0,z%):.Ak%.lJ..|
00007200  67 19 e7 5f 25 3e 31 80  50 25 3e 3d 30 f2 74 79  |g.._%>1.P%>=0.ty|
00007210  28 50 25 2c 2d 31 29 0d  02 68 0e c8 94 55 25 2c  |(P%,-1)..h...U%,|
00007220  6f 69 25 3a e1 0d 02 69  10 dd f2 6c 4a 3a e7 5f  |oi%:...i...lJ:._|
00007230  25 3c 3d 30 e1 0d 02 6a  79 47 79 25 3d 28 5a 25  |%<=0...jyGy%=(Z%|
00007240  21 31 36 2d 5a 25 21 32  34 2d 5a 25 21 33 32 29  |!16-Z%!24-Z%!32)|
00007250  2f 56 25 3a 4c 79 25 3d  28 5a 25 21 31 36 2d 5a  |/V%:Ly%=(Z%!16-Z|
00007260  25 21 32 34 2d 5a 25 21  34 30 29 2f 56 25 3a 4f  |%!24-Z%!40)/V%:O|
00007270  79 25 3d 28 5a 25 21 32  38 2d 5a 25 21 34 2b 5a  |y%=(Z%!28-Z%!4+Z|
00007280  25 21 32 30 29 2f 52 25  3a 64 79 25 3d 28 5a 25  |%!20)/R%:dy%=(Z%|
00007290  21 33 36 2d 5a 25 21 34  2b 5a 25 21 32 30 29 2f  |!36-Z%!4+Z%!20)/|
000072a0  52 25 3a e7 47 79 25 3c  30 47 79 25 3d 30 0d 02  |R%:.Gy%<0Gy%=0..|
000072b0  6b 0f e7 4c 79 25 3c 30  4c 79 25 3d 30 0d 02 6c  |k..Ly%<0Ly%=0..l|
000072c0  0f e7 4f 79 25 3c 30 4f  79 25 3d 30 0d 02 6d 0f  |..Oy%<0Oy%=0..m.|
000072d0  e7 64 79 25 3c 30 64 79  25 3d 30 0d 02 6e 5a f2  |.dy%<0dy%=0..nZ.|
000072e0  57 28 33 2c 38 29 3a 41  25 3d 61 25 3a 42 25 3d  |W(3,8):A%=a%:B%=|
000072f0  5f 25 3a 43 25 3d 47 79  25 3a 44 25 3d 4c 79 25  |_%:C%=Gy%:D%=Ly%|
00007300  3a 45 25 3d 4f 79 25 3a  46 25 3d 64 79 25 3a 47  |:E%=Oy%:F%=dy%:G|
00007310  25 3d 52 25 3a 48 25 3d  56 25 3a 21 48 69 3d 4c  |%=R%:H%=V%:!Hi=L|
00007320  25 3a 21 41 69 3d 58 25  3a 21 44 69 3d 55 25 3a  |%:!Ai=X%:!Di=U%:|
00007330  d6 43 61 3a e1 0d 02 6f  24 dd f2 74 6c 28 62 25  |.Ca:...o$..tl(b%|
00007340  2c 49 25 29 3a ea 6b 6e  25 2c 70 65 25 2c 4d 69  |,I%):.kn%,pe%,Mi|
00007350  25 3a e7 21 41 3c 3e 30  e1 0d 02 70 13 e7 a6 2d  |%:.!A<>0...p...-|
00007360  33 4d 69 25 3d b9 8b 4d  69 25 3d a3 0d 02 71 11  |3Mi%=..Mi%=...q.|
00007370  e7 67 79 25 3f 56 75 25  3c 3e 30 8c e1 0d 02 72  |.gy%?Vu%<>0....r|
00007380  0c e7 5f 25 3c 3d 30 8c  e1 0d 02 73 12 c8 94 6f  |.._%<=0....s...o|
00007390  69 25 2c 55 25 3a e7 44  79 25 8c 0d 02 74 1e c8  |i%,U%:.Dy%...t..|
000073a0  99 26 36 30 30 64 33 2c  2c 47 4a 25 3a e7 47 4a  |.&600d3,,GJ%:.GJ|
000073b0  25 21 30 3c 3e 52 5f 25  8c 0d 02 75 30 54 6f 25  |%!0<>R_%...u0To%|
000073c0  3d 47 4a 25 21 30 3a 61  6b 25 3d 47 4a 25 21 34  |=GJ%!0:ak%=GJ%!4|
000073d0  3a 78 6b 25 3d 47 4a 25  21 32 30 3a f2 47 28 52  |:xk%=GJ%!20:.G(R|
000073e0  5f 25 2c 2d 31 2c 2d 31  29 0d 02 76 05 cd 0d 02  |_%,-1,-1)..v....|
000073f0  77 e0 cd 3a 5a 25 21 30  3d 52 5f 25 3a c8 99 26  |w..:Z%!0=R_%:..&|
00007400  34 30 30 63 62 2c 2c 5a  25 3a 4c 25 3d 5a 25 21  |400cb,,Z%:L%=Z%!|
00007410  34 2d 5a 25 21 32 30 3a  58 25 3d 5a 25 21 31 36  |4-Z%!20:X%=Z%!16|
00007420  2d 5a 25 21 32 34 3a 68  6c 25 3d 2d 5a 25 21 31  |-Z%!24:hl%=-Z%!1|
00007430  36 2b 5a 25 21 38 3a 72  6c 25 3d 5a 25 21 31 32  |6+Z%!8:rl%=Z%!12|
00007440  2d 5a 25 21 34 3a c8 99  26 34 30 30 63 66 2c 2c  |-Z%!4:..&400cf,,|
00007450  5a 25 3a 73 25 3d 5a 25  21 30 3a 76 25 3d 5a 25  |Z%:s%=Z%!0:v%=Z%|
00007460  21 34 3a 5a 5f 25 3d 28  73 25 2d 4c 25 29 2f 52  |!4:Z_%=(s%-L%)/R|
00007470  25 2a 31 30 30 2f 55 25  3a 75 79 25 3d 28 58 25  |%*100/U%:uy%=(X%|
00007480  2d 76 25 29 2f 56 25 2a  31 30 30 2f 55 25 3a 78  |-v%)/V%*100/U%:x|
00007490  79 25 3d 50 25 3a 42 25  3d 61 25 3a 43 25 3d 5f  |y%=P%:B%=a%:C%=_|
000074a0  25 2d 31 3a 44 25 3d 5a  5f 25 3a 45 25 3d 75 79  |%-1:D%=Z_%:E%=uy|
000074b0  25 3a 70 65 25 3d ba 28  62 61 29 3a e7 62 25 3d  |%:pe%=.(ba):.b%=|
000074c0  32 35 36 f2 48 4a 28 50  25 2c 70 65 25 29 0d 02  |256.HJ(P%,pe%)..|
000074d0  78 26 50 25 3d 70 65 25  3a e7 50 25 3d 2d 31 50  |x&P%=pe%:.P%=-1P|
000074e0  25 3d 78 79 25 3a f2 4e  79 3a c8 94 6f 69 25 2c  |%=xy%:.Ny:..oi%,|
000074f0  55 25 3a e1 0d 02 79 86  5a 25 21 30 3d 52 5f 25  |U%:...y.Z%!0=R_%|
00007500  3a 5a 25 21 34 3d 30 3a  5a 25 21 38 3d 2d 74 25  |:Z%!4=0:Z%!8=-t%|
00007510  2a 56 25 2a 55 25 2f 31  30 30 3a 5a 25 21 31 32  |*V%*U%/100:Z%!12|
00007520  3d 6e 25 2a 52 25 2a 55  25 2f 31 30 30 3a 5a 25  |=n%*R%*U%/100:Z%|
00007530  21 31 36 3d 30 3a c8 99  26 34 30 30 63 39 2c 2c  |!16=0:..&400c9,,|
00007540  5a 25 b8 64 25 3a 4c 25  3d 5a 25 21 34 2d 5a 25  |Z%.d%:L%=Z%!4-Z%|
00007550  21 32 30 3a 58 25 3d 5a  25 21 31 36 2d 5a 25 21  |!20:X%=Z%!16-Z%!|
00007560  32 34 3a c8 95 64 25 3a  e7 78 79 25 3e 3d 30 f2  |24:..d%:.xy%>=0.|
00007570  74 79 28 78 79 25 2c 2d  31 29 0d 02 7a 2a f2 74  |ty(xy%,-1)..z*.t|
00007580  79 28 50 25 2c 2d 31 29  3a c8 99 26 34 30 30 63  |y(P%,-1):..&400c|
00007590  61 2c 2c 5a 25 b8 64 25  3a ce 3a e7 44 79 25 84  |a,,Z%.d%:.:.Dy%.|
000075a0  6a 79 25 8c 0d 02 7b 7c  5a 25 21 30 3d 65 25 3a  |jy%...{|Z%!0=e%:|
000075b0  5a 25 21 34 3d 30 3a 5a  25 21 38 3d 2d 31 3c 3c  |Z%!4=0:Z%!8=-1<<|
000075c0  31 36 3a 5a 25 21 31 32  3d 31 3c 3c 31 36 3a 5a  |16:Z%!12=1<<16:Z|
000075d0  25 21 31 36 3d 30 3a c8  99 26 34 30 30 63 39 2c  |%!16=0:..&400c9,|
000075e0  2c 5a 25 b8 64 25 3a 4c  25 3d 5a 25 21 34 2d 5a  |,Z%.d%:L%=Z%!4-Z|
000075f0  25 21 32 30 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |%!20:X%=Z%!16-Z%|
00007600  21 32 34 3a 58 61 25 3d  b9 3a c8 95 64 25 3a e7  |!24:Xa%=.:..d%:.|
00007610  78 79 25 3e 3d 30 f2 67  28 78 79 25 2c 2d 31 29  |xy%>=0.g(xy%,-1)|
00007620  0d 02 7c 1f f2 67 28 50  25 2c 2d 31 29 3a c8 99  |..|..g(P%,-1):..|
00007630  26 34 30 30 63 61 2c 2c  5a 25 b8 64 25 3a ce 0d  |&400ca,,Z%.d%:..|
00007640  02 7d 1c cd 3a f2 4f 28  50 25 29 3a f2 41 5f 3a  |.}..:.O(P%):.A_:|
00007650  e7 44 79 25 84 4d 69 25  f2 7a 79 0d 02 7e 0b e7  |.Dy%.Mi%.zy..~..|
00007660  a6 2d 33 f2 56 4a 0d 02  7f 0e c8 94 6f 69 25 2c  |.-3.VJ......oi%,|
00007670  55 25 3a e1 0d 02 80 38  dd f2 7a 79 3a ea 4f 25  |U%:....8..zy:.O%|
00007680  2c 57 70 25 2c 51 70 25  2c 72 6f 25 2c 6a 65 25  |,Wp%,Qp%,ro%,je%|
00007690  2c 59 79 25 2c 47 6c 25  2c 5a 41 25 2c 4f 42 25  |,Yy%,Gl%,ZA%,OB%|
000076a0  2c 54 75 25 3a e7 50 25  3d 2d 31 e1 0d 02 81 17  |,Tu%:.P%=-1.....|
000076b0  e7 28 4d 79 25 3f 28 50  25 2a 32 2b 31 29 80 32  |.(My%?(P%*2+1).2|
000076c0  29 8c e1 0d 02 82 e0 c8  99 26 34 30 36 63 30 3a  |)........&406c0:|
000076d0  46 6e 25 3d 50 25 3a 6f  79 25 3d 28 21 28 61 25  |Fn%=P%:oy%=(!(a%|
000076e0  2b 50 25 2a 38 29 80 36  35 35 33 35 29 2d 31 3a  |+P%*8).65535)-1:|
000076f0  64 4a 25 3d 28 21 28 61  25 2b 32 2b 50 25 2a 38  |dJ%=(!(a%+2+P%*8|
00007700  29 80 36 35 35 33 35 29  2b 31 3a 54 5f 25 3d 28  |).65535)+1:T_%=(|
00007710  21 28 61 25 2b 34 2b 50  25 2a 38 29 80 36 35 35  |!(a%+4+P%*8).655|
00007720  33 35 29 2d 31 3a 59 75  25 3d 28 21 28 61 25 2b  |35)-1:Yu%=(!(a%+|
00007730  36 2b 50 25 2a 38 29 80  36 35 35 33 35 29 2b 31  |6+P%*8).65535)+1|
00007740  3a 21 4a 5f 3d 6f 79 25  3a 21 54 5f 3d 64 4a 25  |:!J_=oy%:!T_=dJ%|
00007750  3a 21 60 79 3d 54 5f 25  3a 21 51 5f 3d 59 75 25  |:!`y=T_%:!Q_=Yu%|
00007760  3a 59 79 25 3d 28 94 28  64 4a 25 2d 6f 79 25 29  |:Yy%=(.(dJ%-oy%)|
00007770  2b 31 29 2a 28 94 28 59  75 25 2d 54 5f 25 29 2b  |+1)*(.(Yu%-T_%)+|
00007780  31 29 3a e7 5a 25 28 4a  5f 25 29 3c 59 79 25 8c  |1):.Z%(J_%)<Yy%.|
00007790  4b 25 3d a4 41 28 59 79  25 2c 4a 5f 25 29 8b 4b  |K%=.A(Yy%,J_%).K|
000077a0  25 3d b9 0d 02 83 24 e7  5a 25 28 60 79 25 29 3c  |%=....$.Z%(`y%)<|
000077b0  59 79 25 8c 4b 25 3d a4  41 28 59 79 25 2c 60 79  |Yy%.K%=.A(Yy%,`y|
000077c0  25 29 8b 4b 25 3d b9 0d  02 84 8c e7 4b 25 3d a3  |%).K%=......K%=.|
000077d0  f2 43 28 22 4f 70 74 69  63 61 6c 22 2c 22 54 68  |.C("Optical","Th|
000077e0  65 72 65 20 69 73 20 6e  6f 74 20 65 6e 6f 75 67  |ere is not enoug|
000077f0  68 20 66 72 65 65 20 6d  65 6d 6f 72 79 20 61 76  |h free memory av|
00007800  61 69 6c 61 62 6c 65 20  74 6f 20 64 69 73 70 6c  |ailable to displ|
00007810  61 79 20 74 68 65 20 63  68 61 72 61 63 74 65 72  |ay the character|
00007820  2e 20 4e 65 65 64 20 22  2b c3 28 59 79 25 81 31  |. Need "+.(Yy%.1|
00007830  30 32 34 29 2b 22 4b 2e  22 29 3a 4b 25 3d a4 41  |024)+"K."):K%=.A|
00007840  28 31 2c 4a 5f 25 29 3a  f2 5a 28 67 25 2c 31 32  |(1,J_%):.Z(g%,12|
00007850  29 3a e1 0d 02 85 6e 41  25 3d 55 79 25 2b 31 3a  |):....nA%=Uy%+1:|
00007860  47 25 3d 41 25 28 4a 5f  25 29 3a 48 25 3d 41 25  |G%=A%(J_%):H%=A%|
00007870  28 60 25 29 2b 48 75 25  3a d6 41 5f 3a 55 5f 25  |(`%)+Hu%:.A_:U_%|
00007880  3d 64 4a 25 2d 6f 79 25  2b 31 3a 49 5f 25 3d 59  |=dJ%-oy%+1:I_%=Y|
00007890  75 25 2d 54 5f 25 2b 31  3a e7 5a 25 28 4e 75 25  |u%-T_%+1:.Z%(Nu%|
000078a0  29 3c 55 5f 25 2a 49 5f  25 8c 4b 25 3d a4 41 28  |)<U_%*I_%.K%=.A(|
000078b0  55 5f 25 2a 49 5f 25 2c  4e 75 25 29 8b 4b 25 3d  |U_%*I_%,Nu%).K%=|
000078c0  b9 0d 02 86 89 e7 4b 25  3d a3 8c f2 43 28 22 4f  |......K%=...C("O|
000078d0  70 74 69 63 61 6c 22 2c  22 54 68 65 72 65 20 69  |ptical","There i|
000078e0  73 20 6e 6f 74 20 65 6e  6f 75 67 68 20 66 72 65  |s not enough fre|
000078f0  65 20 6d 65 6d 6f 72 79  20 61 76 61 69 6c 61 62  |e memory availab|
00007900  6c 65 20 74 6f 20 64 69  73 70 6c 61 79 20 74 68  |le to display th|
00007910  65 20 63 68 61 72 61 63  74 65 72 2e 20 4e 65 65  |e character. Nee|
00007920  64 20 22 2b c3 28 28 55  5f 25 2a 49 5f 25 29 81  |d "+.((U_%*I_%).|
00007930  31 30 32 34 29 2b 22 4b  2e 22 29 3a 4b 25 3d a4  |1024)+"K."):K%=.|
00007940  41 28 31 2c 4e 75 25 29  3a e1 0d 02 87 35 e7 55  |A(1,Nu%):....5.U|
00007950  5f 25 3c 32 30 84 49 5f  25 3c 32 30 8c 21 28 41  |_%<20.I_%<20.!(A|
00007960  25 28 4e 75 25 29 29 3d  31 30 32 34 8b 21 28 41  |%(Nu%))=1024.!(A|
00007970  25 28 4e 75 25 29 29 3d  55 5f 25 2a 49 5f 25 0d  |%(Nu%))=U_%*I_%.|
00007980  02 88 47 21 28 41 25 28  4e 75 25 29 2b 34 29 3d  |..G!(A%(Nu%)+4)=|
00007990  30 3a 21 28 41 25 28 4e  75 25 29 2b 38 29 3d 31  |0:!(A%(Nu%)+8)=1|
000079a0  36 3a c8 99 74 4a 25 2c  43 60 25 2c 41 25 28 4e  |6:..tJ%,C`%,A%(N|
000079b0  75 25 29 3a e7 56 25 3d  34 8c 4d 61 25 3d 30 8b  |u%):.V%=4.Ma%=0.|
000079c0  4d 61 25 3d 31 38 0d 02  89 0f e7 52 25 3d 34 8c  |Ma%=18.....R%=4.|
000079d0  4d 61 25 3d 34 0d 02 8a  a4 c8 99 74 4a 25 2c 57  |Ma%=4......tJ%,W|
000079e0  6b 25 2c 41 25 28 4e 75  25 29 2c 22 4c 65 61 72  |k%,A%(Nu%),"Lear|
000079f0  6e 65 72 22 2c 30 2c 55  5f 25 2c 49 5f 25 2c 4d  |ner",0,U_%,I_%,M|
00007a00  61 25 3a c8 99 74 4a 25  2c 46 4f 25 2c 41 25 28  |a%:..tJ%,FO%,A%(|
00007a10  4e 75 25 29 2c 22 4c 65  61 72 6e 65 72 22 b8 2c  |Nu%),"Learner".,|
00007a20  2c 52 41 25 3a 41 25 3d  35 31 32 2b 34 32 3a 42  |,RA%:A%=512+42:B|
00007a30  25 3d 41 25 28 4e 75 25  29 3a 43 25 3d 52 41 25  |%=A%(Nu%):C%=RA%|
00007a40  3a 44 25 3d 55 5f 25 2d  31 3a 45 25 3d 49 5f 25  |:D%=U_%-1:E%=I_%|
00007a50  2d 31 3a 46 25 3d 55 5f  25 3a 47 25 3d 41 25 28  |-1:F%=U_%:G%=A%(|
00007a60  4a 5f 25 29 3a d6 67 6c  3a e7 50 25 3d 2d 31 c8  |J_%):.gl:.P%=-1.|
00007a70  99 26 34 30 36 63 31 3a  e1 0d 02 8b 11 e7 21 28  |.&406c1:......!(|
00007a80  41 25 28 75 25 29 29 3e  30 8c 0d 02 8c 3e 42 25  |A%(u%))>0....>B%|
00007a90  3d 5f 25 2d 31 3a 43 25  3d 61 25 3a 59 79 25 3d  |=_%-1:C%=a%:Yy%=|
00007aa0  ba 28 4a 79 29 2a 32 3a  e7 5a 25 28 4a 5f 25 29  |.(Jy)*2:.Z%(J_%)|
00007ab0  3c 59 79 25 8c 4b 25 3d  a4 41 28 59 79 25 2c 4a  |<Yy%.K%=.A(Yy%,J|
00007ac0  5f 25 29 8b 4b 25 3d b9  0d 02 8d 24 e7 5a 25 28  |_%).K%=....$.Z%(|
00007ad0  60 79 25 29 3c 59 79 25  8c 4b 25 3d a4 41 28 59  |`y%)<Yy%.K%=.A(Y|
00007ae0  79 25 2c 60 79 25 29 8b  4b 25 3d b9 0d 02 8e 9c  |y%,`y%).K%=.....|
00007af0  e7 4b 25 3d a3 f2 43 28  22 4f 70 74 69 63 61 6c  |.K%=..C("Optical|
00007b00  22 2c 22 54 68 65 72 65  20 69 73 20 6e 6f 74 20  |","There is not |
00007b10  65 6e 6f 75 67 68 20 66  72 65 65 20 6d 65 6d 6f  |enough free memo|
00007b20  72 79 20 61 76 61 69 6c  61 62 6c 65 20 74 6f 20  |ry available to |
00007b30  63 61 6c 63 75 6c 61 74  65 20 74 68 69 73 20 6c  |calculate this l|
00007b40  65 74 74 65 72 2e 20 4e  65 65 64 20 22 2b c3 28  |etter. Need "+.(|
00007b50  28 59 79 25 2a 32 29 81  31 30 32 34 29 2b 22 4b  |(Yy%*2).1024)+"K|
00007b60  2e 22 29 3a 4b 25 3d a4  41 28 31 2c 4a 5f 25 29  |."):K%=.A(1,J_%)|
00007b70  3a 4b 25 3d a4 41 28 31  2c 60 79 25 29 3a c8 99  |:K%=.A(1,`y%):..|
00007b80  26 34 30 36 63 31 3a e1  0d 02 8f bb 44 25 3d 4b  |&406c1:.....D%=K|
00007b90  79 25 3a 45 25 3d 50 25  3a 21 4d 3d ba 28 41 79  |y%:E%=P%:!M=.(Ay|
00007ba0  29 3a 21 60 3d 41 25 28  75 25 29 2b 34 3a 21 56  |):!`=A%(u%)+4:!V|
00007bb0  79 3d 41 25 28 75 75 25  29 3a 21 6d 3d 55 79 25  |y=A%(uu%):!m=Uy%|
00007bc0  2b 31 3a 21 72 3d 41 25  28 4a 5f 25 29 3a 21 66  |+1:!r=A%(J_%):!f|
00007bd0  3d 41 25 28 60 79 25 29  3a 21 74 3d 41 25 28 60  |=A%(`y%):!t=A%(`|
00007be0  79 25 29 2b 59 79 25 3a  21 53 79 3d 41 25 28 60  |y%)+Yy%:!Sy=A%(`|
00007bf0  25 29 2b 48 75 25 3a 21  70 3d 4b 79 25 3a 21 55  |%)+Hu%:!p=Ky%:!U|
00007c00  79 3d 50 25 3a 21 58 79  3d 50 25 3a 21 5a 79 3d  |y=P%:!Xy=P%:!Zy=|
00007c10  66 4a 25 3a 21 46 79 3d  61 25 3a 21 63 3d 31 3a  |fJ%:!Fy=a%:!c=1:|
00007c20  42 25 3d 5f 25 3a 46 25  3d 42 75 25 3a 47 25 3d  |B%=_%:F%=Bu%:G%=|
00007c30  53 4a 25 3a 48 25 3d 61  25 3a 47 6c 25 3d ba 28  |SJ%:H%=a%:Gl%=.(|
00007c40  4c 5f 29 0d 02 90 10 cc  3a 47 6c 25 3d 33 3a 3f  |L_).....:Gl%=3:?|
00007c50  73 3d 30 0d 02 91 22 cd  3a 21 63 3d 30 3a e7 3f  |s=0...".:!c=0:.?|
00007c60  73 3d 30 8c 7a 24 3d 22  3f 3f 3f 22 8b 7a 24 3d  |s=0.z$="???".z$=|
00007c70  bd 28 21 73 29 0d 02 92  1c e7 50 25 3e 3d 30 80  |.(!s).....P%>=0.|
00007c80  28 44 79 25 84 4e 42 25  29 8c f2 63 5f 28 50 25  |(Dy%.NB%)..c_(P%|
00007c90  29 0d 02 93 24 e7 7a 24  3c 3e 22 3f 3f 3f 22 80  |)...$.z$<>"???".|
00007ca0  41 42 25 f2 74 5f 28 47  6c 25 81 34 2b 31 29 3a  |AB%.t_(Gl%.4+1):|
00007cb0  41 42 25 3d a3 0d 02 94  35 f2 41 28 67 25 2c 31  |AB%=....5.A(g%,1|
00007cc0  39 2c 7a 24 29 3a f2 41  28 67 25 2c 31 36 2c 22  |9,z$):.A(g%,16,"|
00007cd0  22 29 3a f2 46 28 67 25  2c 31 32 29 3a f2 5f 3a  |"):.F(g%,12):._:|
00007ce0  c8 99 26 34 30 36 63 31  3a e1 0d 02 95 8c dd f2  |..&406c1:.......|
00007cf0  63 5f 28 6e 6c 25 29 3a  4e 42 25 3d a3 3a 43 5f  |c_(nl%):NB%=.:C_|
00007d00  25 3d 41 25 28 71 79 25  29 3a f2 61 28 6e 6c 25  |%=A%(qy%):.a(nl%|
00007d10  29 3a 58 41 25 3d 43 5f  25 3f 28 50 79 25 2d 31  |):XA%=C_%?(Py%-1|
00007d20  29 3a 44 41 25 3d 43 5f  25 3f 50 79 25 3a 5a 41  |):DA%=C_%?Py%:ZA|
00007d30  25 3d 4d 79 25 3f 28 6e  6c 25 2a 32 29 3a 4d 79  |%=My%?(nl%*2):My|
00007d40  25 3f 28 6e 6c 25 2a 32  29 3d 47 6c 25 3a 4f 42  |%?(nl%*2)=Gl%:OB|
00007d50  25 3d 4d 79 25 3f 28 6e  6c 25 2a 32 2b 31 29 80  |%=My%?(nl%*2+1).|
00007d60  31 35 39 3a e7 21 73 4a  3d 31 8c 4f 42 25 2b 3d  |159:.!sJ=1.OB%+=|
00007d70  28 31 3c 3c 35 29 0d 02  96 16 e7 21 73 4a 3d 32  |(1<<5).....!sJ=2|
00007d80  8c 4f 42 25 2b 3d 28 31  3c 3c 36 29 0d 02 97 20  |.OB%+=(1<<6)... |
00007d90  e7 3f 73 3d 30 8c 21 73  3d 67 79 25 3f 68 61 25  |.?s=0.!s=gy%?ha%|
00007da0  3a 4f 42 25 3d 4f 42 25  80 31 33 31 0d 02 98 4a  |:OB%=OB%.131...J|
00007db0  4d 79 25 3f 28 6e 6c 25  2a 32 2b 31 29 3d 4f 42  |My%?(nl%*2+1)=OB|
00007dc0  25 3a 4c 41 25 3d 43 5f  25 3f 28 50 79 25 2b 31  |%:LA%=C_%?(Py%+1|
00007dd0  29 3a 43 5f 25 3f 50 79  25 3d 3f 73 3a 72 6f 25  |):C_%?Py%=?s:ro%|
00007de0  3d 50 79 25 2d 34 3a e7  72 6f 25 3c 51 79 25 72  |=Py%-4:.ro%<Qy%r|
00007df0  6f 25 3d 51 79 25 0d 02  99 1b 6a 65 25 3d 50 79  |o%=Qy%....je%=Py|
00007e00  25 2b 34 3a e7 6a 65 25  3e 6d 25 6a 65 25 3d 6d  |%+4:.je%>m%je%=m|
00007e10  25 0d 02 9a 25 e7 28 67  79 25 3f 75 42 25 3c 3e  |%...%.(gy%?uB%<>|
00007e20  30 29 80 28 67 79 25 3f  6f 42 25 3c 3e 30 29 80  |0).(gy%?oB%<>0).|
00007e30  44 79 25 3d a3 8c 0d 02  9b 1f 41 25 3d 51 79 25  |Dy%=......A%=Qy%|
00007e40  3a 42 25 3d 6d 25 3a 43  25 3d 41 25 28 71 79 25  |:B%=m%:C%=A%(qy%|
00007e50  29 3a d6 71 5f 0d 02 9c  21 cd 3a e7 43 5f 25 3f  |):.q_...!.:.C_%?|
00007e60  28 50 79 25 2d 31 29 3c  3e 58 41 25 f2 41 79 28  |(Py%-1)<>XA%.Ay(|
00007e70  6e 6c 25 2d 31 29 0d 02  9d 22 e7 43 5f 25 3f 50  |nl%-1)...".C_%?P|
00007e80  79 25 3c 3e 44 41 25 84  47 6c 25 3c 3e 5a 41 25  |y%<>DA%.Gl%<>ZA%|
00007e90  f2 41 79 28 6e 6c 25 29  0d 02 9e 1f e7 43 5f 25  |.Ay(nl%).....C_%|
00007ea0  3f 28 50 79 25 2b 31 29  3c 3e 4c 41 25 f2 41 79  |?(Py%+1)<>LA%.Ay|
00007eb0  28 6e 6c 25 2b 31 29 0d  02 9f 05 e1 0d 02 a0 3f  |(nl%+1)........?|
00007ec0  dd f2 41 79 28 57 61 25  29 3a ea 75 4a 25 2c 62  |..Ay(Wa%):.uJ%,b|
00007ed0  4a 25 2c 50 79 25 2c 68  79 25 2c 47 6c 25 2c 6e  |J%,Py%,hy%,Gl%,n|
00007ee0  60 25 2c 75 4f 25 2c 55  6f 25 3a f2 61 28 57 61  |`%,uO%,Uo%:.a(Wa|
00007ef0  25 29 3a e7 21 56 5f 3c  3e 30 e1 0d 02 a1 31 4a  |%):.!V_<>0....1J|
00007f00  24 3d bd 28 3f 28 41 25  28 71 79 25 29 2b 50 79  |$=.(?(A%(qy%)+Py|
00007f10  25 29 29 3a 50 75 25 3f  57 61 25 3d 97 28 4a 24  |%)):Pu%?Wa%=.(J$|
00007f20  29 3a f2 74 3a e7 76 79  25 3d a3 e1 0d 02 a2 1e  |):.t:.vy%=......|
00007f30  47 6c 25 3d 4d 79 25 3f  28 57 61 25 2a 32 29 3a  |Gl%=My%?(Wa%*2):|
00007f40  c8 8e 28 47 6c 25 80 33  29 ca 0d 02 a3 0c c9 30  |..(Gl%.3)......0|
00007f50  3a 68 79 25 3d 31 0d 02  a4 0c c9 31 3a 68 79 25  |:hy%=1.....1:hy%|
00007f60  3d 32 0d 02 a5 0c c9 32  3a 68 79 25 3d 34 0d 02  |=2.....2:hy%=4..|
00007f70  a6 0c c9 33 3a 68 79 25  3d 37 0d 02 a7 26 cb 3a  |...3:hy%=7...&.:|
00007f80  47 6c 25 3d 28 4d 79 25  3f 28 57 61 25 2a 32 2b  |Gl%=(My%?(Wa%*2+|
00007f90  31 29 29 81 34 3a c8 8e  28 47 6c 25 80 37 29 ca  |1)).4:..(Gl%.7).|
00007fa0  0d 02 a8 0d c9 31 3a 6e  60 25 3d 31 31 0d 02 a9  |.....1:n`%=11...|
00007fb0  0d c9 32 3a 6e 60 25 3d  31 34 0d 02 aa 0d c9 34  |..2:n`%=14.....4|
00007fc0  3a 6e 60 25 3d 31 30 0d  02 ab 0a 7f 6e 60 25 3d  |:n`%=10.....n`%=|
00007fd0  37 0d 02 ac 21 cb 3a e7  4a 24 3d bd 31 34 8c 68  |7...!.:.J$=.14.h|
00007fe0  79 25 3d 31 31 3a 6e 60  25 3d 32 3a 4a 24 3d 22  |y%=11:n`%=2:J$="|
00007ff0  5f 22 0d 02 ad 5a 47 6c  25 3d 4d 79 25 3f 28 57  |_"...ZGl%=My%?(W|
00008000  61 25 2a 32 2b 31 29 3a  75 4f 25 3d 47 6c 25 80  |a%*2+1):uO%=Gl%.|
00008010  28 31 3c 3c 35 29 3a 55  6f 25 3d 47 6c 25 80 28  |(1<<5):Uo%=Gl%.(|
00008020  31 3c 3c 36 29 3a e7 75  4f 25 3c 3e 30 84 55 6f  |1<<6):.uO%<>0.Uo|
00008030  25 3c 3e 30 8c ef 32 33  2c 31 37 2c 37 2c 32 2c  |%<>0..23,17,7,2,|
00008040  38 3b 21 43 79 2a 2e 37  35 3b 30 3b 0d 02 ae cd  |8;!Cy*.75;0;....|
00008050  5a 25 21 30 3d 65 25 3a  5a 25 21 34 3d 30 3a 5a  |Z%!0=e%:Z%!4=0:Z|
00008060  25 21 38 3d 2d 31 3c 3c  31 36 3a 5a 25 21 31 32  |%!8=-1<<16:Z%!12|
00008070  3d 31 3c 3c 31 36 3a 5a  25 21 31 36 3d 30 3a c8  |=1<<16:Z%!16=0:.|
00008080  99 26 34 30 30 63 39 2c  2c 5a 25 b8 64 25 3a 4c  |.&400c9,,Z%.d%:L|
00008090  25 3d 5a 25 21 34 2d 5a  25 21 32 30 3a 58 25 3d  |%=Z%!4-Z%!20:X%=|
000080a0  5a 25 21 31 36 2d 5a 25  21 32 34 3a 58 61 25 3d  |Z%!16-Z%!24:Xa%=|
000080b0  b9 3a c8 95 64 25 3a c8  99 26 34 30 30 65 36 2c  |.:..d%:..&400e6,|
000080c0  30 3a c8 93 c8 90 4c 25  2b 32 2b 31 36 2a 75 4a  |0:....L%+2+16*uJ|
000080d0  25 2c 58 25 2d 32 2d 33  36 2a 28 62 4a 25 2b 74  |%,X%-2-36*(bJ%+t|
000080e0  5f 25 29 2c 31 34 2c 2d  33 34 3a ec 4c 25 2b 32  |_%),14,-34:.L%+2|
000080f0  2b 31 36 2a 75 4a 25 2c  58 25 2d 36 2d 33 36 2a  |+16*uJ%,X%-6-36*|
00008100  28 62 4a 25 2b 74 5f 25  29 3a e7 75 4f 25 8c ef  |(bJ%+t_%):.uO%..|
00008110  32 35 2c 30 2c 30 3b 34  3b 0d 02 af 14 e7 55 6f  |25,0,0;4;.....Uo|
00008120  25 8c ef 32 35 2c 30 2c  30 3b 2d 38 3b 0d 02 b0  |%..25,0,0;-8;...|
00008130  14 e7 4a 24 3d 22 3f 3f  3f 22 84 4a 24 3d bd 30  |..J$="???".J$=.0|
00008140  8c 0d 02 b1 2a c8 99 26  34 30 30 65 36 2c 38 3a  |....*..&400e6,8:|
00008150  e7 67 79 25 3f 68 61 25  3d 30 8c ef 97 28 22 3f  |.gy%?ha%=0...("?|
00008160  22 29 8b ef 67 79 25 3f  68 61 25 0d 02 b2 0b cc  |")..gy%?ha%.....|
00008170  3a e7 59 42 25 8c 0d 02  b3 10 c8 99 26 34 30 30  |:.YB%.......&400|
00008180  65 36 2c 68 79 25 0d 02  b4 12 cc 3a c8 99 26 34  |e6,hy%.....:..&4|
00008190  30 30 65 36 2c 6e 60 25  0d 02 b5 0c cd 3a ef 97  |00e6,n`%.....:..|
000081a0  28 4a 24 29 0d 02 b6 1a  cd 3a e7 57 61 25 3d 50  |(J$).....:.Wa%=P|
000081b0  25 80 44 79 25 f2 67 28  50 25 2c 2d 31 29 0d 02  |%.Dy%.g(P%,-1)..|
000081c0  b7 38 c8 99 26 34 30 30  63 61 2c 2c 5a 25 b8 64  |.8..&400ca,,Z%.d|
000081d0  25 3a ce 3a e7 75 4f 25  3c 3e 30 84 55 6f 25 3c  |%:.:.uO%<>0.Uo%<|
000081e0  3e 30 8c ef 32 33 2c 31  37 2c 37 2c 32 2c 38 3b  |>0..23,17,7,2,8;|
000081f0  21 43 79 3b 30 3b 0d 02  b8 05 e1 0d 02 b9 15 dd  |!Cy;0;..........|
00008200  f2 4e 79 3a e7 50 25 3d  2d 31 84 5f 25 3c 31 e1  |.Ny:.P%=-1._%<1.|
00008210  0d 02 ba 09 e7 61 5f 25  8c 0d 02 bb 0d e7 44 79  |.....a_%......Dy|
00008220  25 84 6a 79 25 8c 0d 02  bc 86 5a 25 21 30 3d 65  |%.jy%.....Z%!0=e|
00008230  25 3a 5a 25 21 34 3d 30  3a 5a 25 21 38 3d 2d 31  |%:Z%!4=0:Z%!8=-1|
00008240  3c 3c 31 36 3a 5a 25 21  31 32 3d 31 3c 3c 31 36  |<<16:Z%!12=1<<16|
00008250  3a 5a 25 21 31 36 3d 30  3a c8 99 26 34 30 30 63  |:Z%!16=0:..&400c|
00008260  39 2c 2c 5a 25 b8 64 25  3a 4c 25 3d 5a 25 21 34  |9,,Z%.d%:L%=Z%!4|
00008270  2d 5a 25 21 32 30 3a 58  25 3d 5a 25 21 31 36 2d  |-Z%!20:X%=Z%!16-|
00008280  5a 25 21 32 34 3a 58 61  25 3d b9 3a c8 95 64 25  |Z%!24:Xa%=.:..d%|
00008290  3a f2 67 28 50 25 2c 2d  31 29 3a c8 99 26 34 30  |:.g(P%,-1):..&40|
000082a0  30 63 61 2c 2c 5a 25 b8  64 25 3a ce 0d 02 bd 20  |0ca,,Z%.d%:.... |
000082b0  cc 3a c8 99 26 36 30 30  64 32 2c 65 25 2c 2d 31  |.:..&600d2,e%,-1|
000082c0  2c 2d 31 2c 2d 31 2c 2d  31 2c 2d 31 0d 02 be 05  |,-1,-1,-1,-1....|
000082d0  cd 0d 02 bf 0d cd 3a 50  25 3d 2d 31 3a e1 0d 02  |......:P%=-1:...|
000082e0  c0 3b dd f2 53 69 28 49  25 2c 6a 25 29 3a e7 28  |.;..Si(I%,j%):.(|
000082f0  49 25 3c 3e 32 33 80 49  25 3c 3e 32 34 80 49 25  |I%<>23.I%<>24.I%|
00008300  3c 3e 32 35 29 84 6a 25  3c 3e 31 33 c8 99 26 34  |<>25).j%<>13..&4|
00008310  30 30 64 63 2c 6a 25 3a  e1 0d 02 c1 09 c8 8e 49  |00dc,j%:.......I|
00008320  25 ca 0d 02 c2 13 c9 32  32 3a f2 4c 79 28 42 79  |%......22:.Ly(By|
00008330  25 2c 32 33 29 0d 02 c3  13 c9 32 33 3a f2 4c 79  |%,23).....23:.Ly|
00008340  28 42 79 25 2c 32 32 29  0d 02 c4 07 cb 3a e1 0d  |(By%,22).....:..|
00008350  02 c5 15 dd f2 4d 6e 28  62 25 2c 49 25 29 3a c8  |.....Mn(b%,I%):.|
00008360  8e 49 25 ca 0d 02 c6 0e  c9 34 3a f2 4d 28 4e 5f  |.I%......4:.M(N_|
00008370  25 29 0d 02 c7 1a c9 33  2c 35 3a f2 72 4a 3a f2  |%).....3,5:.rJ:.|
00008380  54 28 67 6e 25 2c 79 25  2c 68 25 29 0d 02 c8 18  |T(gn%,y%,h%)....|
00008390  c9 31 3a f2 79 69 3a f2  54 28 56 42 25 2c 79 25  |.1:.yi:.T(VB%,y%|
000083a0  2c 68 25 29 0d 02 c9 1c  c9 38 3a f2 6b 28 62 5f  |,h%).....8:.k(b_|
000083b0  25 2c 36 35 2c 39 30 29  3a f2 4a 28 4e 5f 25 29  |%,65,90):.J(N_%)|
000083c0  0d 02 ca 1d c9 39 3a f2  6b 28 62 5f 25 2c 39 37  |.....9:.k(b_%,97|
000083d0  2c 31 32 32 29 3a f2 4a  28 4e 5f 25 29 0d 02 cb  |,122):.J(N_%)...|
000083e0  1d c9 31 30 3a f2 6b 28  62 5f 25 2c 34 38 2c 35  |..10:.k(b_%,48,5|
000083f0  37 29 3a f2 4a 28 4e 5f  25 29 0d 02 cc 49 c9 31  |7):.J(N_%)...I.1|
00008400  31 3a f2 6b 28 62 5f 25  2c 33 33 2c 34 37 29 3a  |1:.k(b_%,33,47):|
00008410  f2 6b 28 62 5f 25 2c 35  38 2c 36 34 29 3a f2 6b  |.k(b_%,58,64):.k|
00008420  28 62 5f 25 2c 39 31 2c  39 36 29 3a f2 6b 28 62  |(b_%,91,96):.k(b|
00008430  5f 25 2c 31 32 33 2c 31  32 36 29 3a f2 4a 28 4e  |_%,123,126):.J(N|
00008440  5f 25 29 0d 02 cd 1f c9  31 32 3a f2 6b 28 62 5f  |_%).....12:.k(b_|
00008450  25 2c 31 32 37 2c 31 39  31 29 3a f2 4a 28 4e 5f  |%,127,191):.J(N_|
00008460  25 29 0d 02 ce 1e c9 37  3a f2 6b 28 62 5f 25 2c  |%).....7:.k(b_%,|
00008470  31 39 32 2c 32 35 35 29  3a f2 4a 28 4e 5f 25 29  |192,255):.J(N_%)|
00008480  0d 02 cf 09 7f 3a f2 68  75 0d 02 d0 07 cb 3a e1  |.....:.hu.....:.|
00008490  0d 02 d1 34 dd f2 74 61  3a 47 79 25 3d 58 25 2d  |...4..ta:Gy%=X%-|
000084a0  5a 25 21 33 32 3a 4c 79  25 3d 58 25 2d 5a 25 21  |Z%!32:Ly%=X%-Z%!|
000084b0  34 30 3a e7 47 79 25 3e  3d 30 84 4c 79 25 3e 3d  |40:.Gy%>=0.Ly%>=|
000084c0  30 f2 71 61 0d 02 d2 05  e1 0d 02 d3 3c dd f2 79  |0.qa........<..y|
000084d0  69 3a f2 76 6c 3a e3 53  79 25 3d 30 b8 43 79 25  |i:.vl:.Sy%=0.Cy%|
000084e0  3a e7 53 25 28 53 79 25  29 8c f2 4b 28 56 42 25  |:.S%(Sy%)..K(VB%|
000084f0  2c 53 79 25 2b 31 29 8b  f2 56 28 56 42 25 2c 53  |,Sy%+1)..V(VB%,S|
00008500  79 25 2b 31 29 0d 02 d4  07 ed 3a e1 0d 02 d5 3e  |y%+1).....:....>|
00008510  dd f2 76 6c 3a 5a 24 3d  22 46 6f 6e 74 73 22 3a  |..vl:Z$="Fonts":|
00008520  e3 53 79 25 3d 30 b8 43  79 25 3a 5a 24 2b 3d 22  |.Sy%=0.Cy%:Z$+="|
00008530  2c 22 2b 41 24 28 53 79  25 29 3a ed 3a f2 79 79  |,"+A$(Sy%):.:.yy|
00008540  28 56 42 25 2c 5a 24 29  3a e1 0d 02 d6 33 dd f2  |(VB%,Z$):....3..|
00008550  72 4a 3a 5a 24 3d 22 46  6f 6e 74 73 22 3a 4d 6b  |rJ:Z$="Fonts":Mk|
00008560  25 3d a3 3a 6c 25 3d 30  3a e3 53 79 25 3d 30 b8  |%=.:l%=0:.Sy%=0.|
00008570  43 79 25 3a e7 53 25 28  53 79 25 29 8c 0d 02 d7  |Cy%:.S%(Sy%)....|
00008580  29 6c 25 2b 3d 31 3a 5a  24 2b 3d 22 2c 22 2b 41  |)l%+=1:Z$+=","+A|
00008590  24 28 53 79 25 29 3a e7  62 5f 25 3d 53 79 25 8c  |$(Sy%):.b_%=Sy%.|
000085a0  4d 6b 25 3d 6c 25 0d 02  d8 0e cd 3a ed 3a e7 6c  |Mk%=l%.....:.:.l|
000085b0  25 3d 30 8c 0d 02 d9 2e  5a 24 2b 3d 22 2c 4e 6f  |%=0.....Z$+=",No|
000085c0  6e 65 20 73 65 6c 65 63  74 65 64 22 3a f2 79 79  |ne selected":.yy|
000085d0  28 67 6e 25 2c 5a 24 29  3a f2 55 28 67 6e 25 2c  |(gn%,Z$):.U(gn%,|
000085e0  31 29 0d 02 da 39 cc 3a  f2 79 79 28 67 6e 25 2c  |1)...9.:.yy(gn%,|
000085f0  5a 24 29 3a e3 53 79 25  3d 31 b8 6c 25 3a f2 56  |Z$):.Sy%=1.l%:.V|
00008600  28 67 6e 25 2c 53 79 25  29 3a ed 3a e7 4d 6b 25  |(gn%,Sy%):.:.Mk%|
00008610  f2 4b 28 67 6e 25 2c 4d  6b 25 29 0d 02 db 07 cd  |.K(gn%,Mk%).....|
00008620  3a e1 0d 02 dc 31 dd f2  4a 61 3a 53 79 25 3d a4  |:....1..Ja:Sy%=.|
00008630  50 28 30 29 2d 31 3a e7  53 25 28 53 79 25 29 8c  |P(0)-1:.S%(Sy%).|
00008640  53 25 28 53 79 25 29 3d  a3 8b 53 25 28 53 79 25  |S%(Sy%)=..S%(Sy%|
00008650  29 3d b9 0d 02 dd 1d f2  42 28 56 42 25 2c 53 79  |)=......B(VB%,Sy|
00008660  25 2b 31 29 3a e7 53 25  28 53 79 25 29 3d a3 8c  |%+1):.S%(Sy%)=..|
00008670  0d 02 de 2b f2 6c 6c 28  53 79 25 29 3a 62 5f 25  |...+.ll(Sy%):b_%|
00008680  3d 30 3a 53 79 25 3d 30  3a f5 3a e7 53 25 28 53  |=0:Sy%=0:.:.S%(S|
00008690  79 25 29 8c 62 5f 25 3d  53 79 25 0d 02 df 2f 53  |y%).b_%=Sy%.../S|
000086a0  79 25 2b 3d 31 3a fd 53  25 28 53 79 25 2d 31 29  |y%+=1:.S%(Sy%-1)|
000086b0  84 53 79 25 3e 43 79 25  3a f2 41 28 4e 5f 25 2c  |.Sy%>Cy%:.A(N_%,|
000086c0  33 2c 41 24 28 62 5f 25  29 29 0d 02 e0 0e cc 3a  |3,A$(b_%)).....:|
000086d0  f2 48 69 28 53 79 25 29  0d 02 e1 0f cd 3a f2 4a  |.Hi(Sy%).....:.J|
000086e0  28 4e 5f 25 29 3a e1 0d  02 e2 36 dd f2 50 61 3a  |(N_%):....6..Pa:|
000086f0  70 79 25 3d a4 50 28 30  29 2d 31 3a 58 65 25 3d  |py%=.P(0)-1:Xe%=|
00008700  2d 31 3a e3 53 79 25 3d  30 b8 43 79 25 3a e7 53  |-1:.Sy%=0.Cy%:.S|
00008710  25 28 53 79 25 29 8c 58  65 25 2b 3d 31 0d 02 e3  |%(Sy%).Xe%+=1...|
00008720  0d e7 58 65 25 3d 70 79  25 8c 0d 02 e4 31 62 5f  |..Xe%=py%....1b_|
00008730  25 3d 53 79 25 3a f2 41  28 4e 5f 25 2c 33 2c 41  |%=Sy%:.A(N_%,3,A|
00008740  24 28 62 5f 25 29 29 3a  f2 4a 28 4e 5f 25 29 3a  |$(b_%)):.J(N_%):|
00008750  f2 72 4a 3a 53 79 25 3d  43 79 25 0d 02 e5 09 cd  |.rJ:Sy%=Cy%.....|
00008760  3a ed 3a e1 0d 02 e6 1b  dd f2 48 69 28 69 72 25  |:.:.......Hi(ir%|
00008770  29 3a e7 21 28 41 25 28  75 25 29 29 3e 30 8c 0d  |):.!(A%(u%))>0..|
00008780  02 e7 5d e3 6c 25 3d 30  b8 21 28 41 25 28 75 25  |..].l%=0.!(A%(u%|
00008790  29 29 2d 31 3a e7 28 3f  28 41 25 28 75 25 29 2b  |))-1:.(?(A%(u%)+|
000087a0  35 2b 6c 25 2a 38 29 80  31 32 37 29 3d 69 72 25  |5+l%*8).127)=ir%|
000087b0  8c 3f 28 41 25 28 75 25  29 2b 35 2b 6c 25 2a 38  |.?(A%(u%)+5+l%*8|
000087c0  29 3d 28 3f 28 41 25 28  75 25 29 2b 35 2b 6c 25  |)=(?(A%(u%)+5+l%|
000087d0  2a 38 29 80 31 32 37 29  2b 31 32 38 0d 02 e8 05  |*8).127)+128....|
000087e0  ed 0d 02 e9 07 cd 3a e1  0d 02 ea 1b dd f2 6c 6c  |......:.......ll|
000087f0  28 69 72 25 29 3a e7 21  28 41 25 28 75 25 29 29  |(ir%):.!(A%(u%))|
00008800  3e 30 8c 0d 02 eb 59 e3  6c 25 3d 30 b8 21 28 41  |>0....Y.l%=0.!(A|
00008810  25 28 75 25 29 29 2d 31  3a e7 28 3f 28 41 25 28  |%(u%))-1:.(?(A%(|
00008820  75 25 29 2b 35 2b 6c 25  2a 38 29 80 31 32 37 29  |u%)+5+l%*8).127)|
00008830  3d 69 72 25 8c 3f 28 41  25 28 75 25 29 2b 35 2b  |=ir%.?(A%(u%)+5+|
00008840  6c 25 2a 38 29 3d 28 3f  28 41 25 28 75 25 29 2b  |l%*8)=(?(A%(u%)+|
00008850  35 2b 6c 25 2a 38 29 80  31 32 37 29 0d 02 ec 05  |5+l%*8).127)....|
00008860  ed 0d 02 ed 07 cd 3a e1  0d 02 ee 1a dd f2 6b 28  |......:.......k(|
00008870  69 72 25 2c 63 6e 25 2c  79 41 25 29 3a c8 8e 62  |ir%,cn%,yA%):..b|
00008880  25 ca 0d 02 ef 0c c9 31  3a 73 72 25 3d 30 0d 02  |%......1:sr%=0..|
00008890  f0 0e c9 34 3a 73 72 25  3d 31 32 38 0d 02 f1 06  |...4:sr%=128....|
000088a0  7f e1 0d 02 f2 13 cb 3a  e7 21 28 41 25 28 75 25  |.......:.!(A%(u%|
000088b0  29 29 3e 30 8c 0d 02 f3  89 e3 6c 25 3d 30 b8 21  |))>0......l%=0.!|
000088c0  28 41 25 28 75 25 29 29  2d 31 3a e7 28 3f 28 41  |(A%(u%))-1:.(?(A|
000088d0  25 28 75 25 29 2b 35 2b  6c 25 2a 38 29 80 31 32  |%(u%)+5+l%*8).12|
000088e0  37 29 3d 69 72 25 e7 3f  28 41 25 28 75 25 29 2b  |7)=ir%.?(A%(u%)+|
000088f0  34 2b 6c 25 2a 38 29 3e  3d 63 6e 25 e7 3f 28 41  |4+l%*8)>=cn%.?(A|
00008900  25 28 75 25 29 2b 34 2b  6c 25 2a 38 29 3c 3d 79  |%(u%)+4+l%*8)<=y|
00008910  41 25 8c 3f 28 41 25 28  75 25 29 2b 35 2b 6c 25  |A%.?(A%(u%)+5+l%|
00008920  2a 38 29 3d 28 3f 28 41  25 28 75 25 29 2b 35 2b  |*8)=(?(A%(u%)+5+|
00008930  6c 25 2a 38 29 80 31 32  37 29 2b 73 72 25 0d 02  |l%*8).127)+sr%..|
00008940  f4 05 ed 0d 02 f5 07 cd  3a e1 0d 02 f6 f6 dd f2  |........:.......|
00008950  71 61 3a ea 6f 41 25 2c  62 41 25 2c 6a 5f 25 3a  |qa:.oA%,bA%,j_%:|
00008960  c8 99 26 34 30 30 65 36  2c 32 3a c8 93 c8 90 4c  |..&400e6,2:....L|
00008970  25 2c 58 25 2d 34 2c 31  32 30 30 2c 2d 33 32 3a  |%,X%-4,1200,-32:|
00008980  c8 93 c8 90 4c 25 2c 58  25 2d 34 2c 32 32 2c 2d  |....L%,X%-4,22,-|
00008990  33 36 30 3a c8 99 26 34  30 30 65 36 2c 37 3a 5f  |360:..&400e6,7:_|
000089a0  6c 25 3d 4c 25 2b 34 3a  52 6c 25 3d 58 25 2d 38  |l%=L%+4:Rl%=X%-8|
000089b0  3a e3 71 25 3d 33 b8 32  35 3a ec 5f 6c 25 2b 33  |:.q%=3.25:._l%+3|
000089c0  32 2b 28 71 25 2d 33 29  2a 33 2a 31 36 2c 52 6c  |2+(q%-3)*3*16,Rl|
000089d0  25 3a f1 3b 71 25 3a ed  3a e3 71 25 3d 30 b8 39  |%:.;q%:.:.q%=0.9|
000089e0  3a ec 5f 6c 25 2c 52 6c  25 2d 33 32 2d 71 25 2a  |:._l%,Rl%-32-q%*|
000089f0  33 32 3a f1 3b 71 25 3a  ed 3a 47 25 3d 5f 6c 25  |32:.;q%:.:G%=_l%|
00008a00  3a 48 25 3d 52 6c 25 3a  21 6d 79 3d 41 25 28 75  |:H%=Rl%:!my=A%(u|
00008a10  25 29 3a 21 74 79 3d 62  5f 25 3a d6 78 4a 3a f2  |%):!ty=b_%:.xJ:.|
00008a20  57 28 33 2c 37 29 3a 6f  41 25 3d 5f 6c 25 2b 32  |W(3,7):oA%=_l%+2|
00008a30  34 2d 31 34 34 3a 62 41  25 3d 52 6c 25 2d 33 30  |4-144:bA%=Rl%-30|
00008a40  0d 02 f7 2a 21 6d 79 3d  41 25 28 75 25 29 3a 21  |...*!my=A%(u%):!|
00008a50  74 79 3d 62 5f 25 3a 47  25 3d 5f 6c 25 3a 48 25  |ty=b_%:G%=_l%:H%|
00008a60  3d 52 6c 25 3a d6 77 6c  3a e1 0d 02 f8 16 dd f2  |=Rl%:.wl:.......|
00008a70  68 75 3a e7 21 28 41 25  28 75 25 29 29 3c 31 e1  |hu:.!(A%(u%))<1.|
00008a80  0d 02 f9 94 5a 25 21 30  3d 4e 5f 25 3a c8 99 26  |....Z%!0=N_%:..&|
00008a90  34 30 30 65 30 2c 2c 5a  25 3a 49 60 25 3d 5a 25  |400e0,,Z%:I`%=Z%|
00008aa0  21 34 2b 34 3a 56 60 25  3d 5a 25 21 38 2b 33 35  |!4+4:V`%=Z%!8+35|
00008ab0  36 2d 38 3a c8 99 26 34  30 30 63 66 2c 2c 5a 25  |6-8:..&400cf,,Z%|
00008ac0  3a 73 25 3d 5a 25 21 30  3a 76 25 3d 5a 25 21 34  |:s%=Z%!0:v%=Z%!4|
00008ad0  3a e7 73 25 2d 49 60 25  3e 33 31 80 56 60 25 2d  |:.s%-I`%>31.V`%-|
00008ae0  76 25 3e 33 31 8c 4f 25  3d 33 30 2b a8 28 28 73  |v%>31.O%=30+.((s|
00008af0  25 2d 49 60 25 2d 31 36  29 2f 34 38 29 2a 31 30  |%-I`%-16)/48)*10|
00008b00  2b a8 28 28 56 60 25 2d  76 25 2d 33 30 29 2f 33  |+.((V`%-v%-30)/3|
00008b10  32 29 8b e1 0d 02 fa 4a  64 5f 25 3d a3 3a e3 6c  |2).....Jd_%=.:.l|
00008b20  25 3d 30 b8 21 28 41 25  28 75 25 29 29 3a e7 28  |%=0.!(A%(u%)):.(|
00008b30  3f 28 41 25 28 75 25 29  2b 35 2b 6c 25 2a 38 29  |?(A%(u%)+5+l%*8)|
00008b40  80 31 32 37 29 3d 62 5f  25 80 3f 28 41 25 28 75  |.127)=b_%.?(A%(u|
00008b50  25 29 2b 34 2b 6c 25 2a  38 29 3d 4f 25 8c 0d 02  |%)+4+l%*8)=O%...|
00008b60  fb 09 c8 8e 62 25 ca 0d  02 fc 2c c9 34 3a e7 28  |....b%....,.4:.(|
00008b70  3f 28 41 25 28 75 25 29  2b 35 2b 6c 25 2a 38 29  |?(A%(u%)+5+l%*8)|
00008b80  80 31 32 38 29 3d a3 8c  44 69 25 3d b9 8b 44 69  |.128)=..Di%=..Di|
00008b90  25 3d a3 0d 02 fd 0d 53  25 28 62 5f 25 29 3d b9  |%=.....S%(b_%)=.|
00008ba0  0d 02 fe 2a c9 31 3a e7  28 3f 28 41 25 28 75 25  |...*.1:.(?(A%(u%|
00008bb0  29 2b 35 2b 6c 25 2a 38  29 80 31 32 38 29 8c 44  |)+5+l%*8).128).D|
00008bc0  69 25 3d b9 8b 44 69 25  3d a3 0d 02 ff 0a 7f 44  |i%=..Di%=......D|
00008bd0  69 25 3d a3 0d 03 00 0b  cb 3a e7 44 69 25 8c 0d  |i%=......:.Di%..|
00008be0  03 01 1c e7 28 3f 28 41  25 28 75 25 29 2b 35 2b  |....(?(A%(u%)+5+|
00008bf0  6c 25 2a 38 29 80 31 32  38 29 8c 0d 03 02 6e e3  |l%*8).128)....n.|
00008c00  6a 5f 25 3d 30 b8 21 28  41 25 28 75 25 29 29 3a  |j_%=0.!(A%(u%)):|
00008c10  e7 28 3f 28 41 25 28 75  25 29 2b 35 2b 6a 5f 25  |.(?(A%(u%)+5+j_%|
00008c20  2a 38 29 80 31 32 37 29  3d 62 5f 25 80 3f 28 41  |*8).127)=b_%.?(A|
00008c30  25 28 75 25 29 2b 34 2b  6a 5f 25 2a 38 29 3d 4f  |%(u%)+4+j_%*8)=O|
00008c40  25 8c 3f 28 41 25 28 75  25 29 2b 35 2b 6c 25 2a  |%.?(A%(u%)+5+l%*|
00008c50  38 29 3d 28 3f 28 41 25  28 75 25 29 2b 35 2b 6c  |8)=(?(A%(u%)+5+l|
00008c60  25 2a 38 29 80 31 32 37  29 0d 03 03 05 ed 0d 03  |%*8).127).......|
00008c70  04 74 cc 3a e3 6a 5f 25  3d 30 b8 21 28 41 25 28  |.t.:.j_%=0.!(A%(|
00008c80  75 25 29 29 3a e7 28 3f  28 41 25 28 75 25 29 2b  |u%)):.(?(A%(u%)+|
00008c90  35 2b 6a 5f 25 2a 38 29  80 31 32 37 29 3d 62 5f  |5+j_%*8).127)=b_|
00008ca0  25 80 3f 28 41 25 28 75  25 29 2b 34 2b 6a 5f 25  |%.?(A%(u%)+4+j_%|
00008cb0  2a 38 29 3d 4f 25 8c 3f  28 41 25 28 75 25 29 2b  |*8)=O%.?(A%(u%)+|
00008cc0  35 2b 6c 25 2a 38 29 3d  28 3f 28 41 25 28 75 25  |5+l%*8)=(?(A%(u%|
00008cd0  29 2b 35 2b 6c 25 2a 38  29 80 31 32 37 29 2b 31  |)+5+l%*8).127)+1|
00008ce0  32 38 0d 03 05 05 ed 0d  03 06 d5 cd 3a f2 57 28  |28..........:.W(|
00008cf0  33 2c 37 29 3a 5a 25 21  30 3d 4e 5f 25 3a 5a 25  |3,7):Z%!0=N_%:Z%|
00008d00  21 34 3d 30 3a 5a 25 21  38 3d 2d 33 36 30 3a 5a  |!4=0:Z%!8=-360:Z|
00008d10  25 21 31 32 3d 31 32 30  30 3a 5a 25 21 31 36 3d  |%!12=1200:Z%!16=|
00008d20  30 3a c8 99 26 34 30 30  63 39 2c 2c 5a 25 b8 64  |0:..&400c9,,Z%.d|
00008d30  25 3a 4c 25 3d 5a 25 21  34 2d 5a 25 21 32 30 3a  |%:L%=Z%!4-Z%!20:|
00008d40  58 25 3d 5a 25 21 31 36  2d 5a 25 21 32 34 3a c8  |X%=Z%!16-Z%!24:.|
00008d50  95 64 25 3a f2 57 28 33  2c 37 29 3a c8 93 c8 90  |.d%:.W(3,7):....|
00008d60  4c 25 2b 32 38 2b 28 28  3f 28 41 25 28 75 25 29  |L%+28+((?(A%(u%)|
00008d70  2b 34 2b 6c 25 2a 38 29  81 31 30 29 2d 33 29 2a  |+4+l%*8).10)-3)*|
00008d80  33 2a 31 36 2c 58 25 2d  34 30 2d 28 3f 28 41 25  |3*16,X%-40-(?(A%|
00008d90  28 75 25 29 2b 34 2b 6c  25 2a 38 29 83 31 30 29  |(u%)+4+l%*8).10)|
00008da0  2a 33 32 2c 33 30 2c 2d  33 30 3a c8 99 26 34 30  |*32,30,-30:..&40|
00008db0  30 63 61 2c 2c 5a 25 b8  64 25 3a ce 0d 03 07 18  |0ca,,Z%.d%:.....|
00008dc0  cd 3a 6c 25 3d 21 28 41  25 28 75 25 29 29 3a 64  |.:l%=!(A%(u%)):d|
00008dd0  5f 25 3d b9 0d 03 08 09  cd 3a ed 3a e1 0d 03 09  |_%=......:.:....|
00008de0  2a dd f2 75 4a 3a ea 66  60 25 2c 49 6e 25 2c 54  |*..uJ:.f`%,In%,T|
00008df0  6e 25 2c 70 25 2c 72 41  25 2c 71 25 2c 59 6b 25  |n%,p%,rA%,q%,Yk%|
00008e00  3a e7 5f 25 3c 31 e1 0d  03 0a f9 41 25 3d 61 25  |:._%<1.....A%=a%|
00008e10  3a 42 25 3d 5f 25 2d 31  3a 21 5f 4a 3d 66 25 3a  |:B%=_%-1:!_J=f%:|
00008e20  21 77 5f 3d 57 5f 25 3a  66 60 25 3d ba 28 57 4a  |!w_=W_%:f`%=.(WJ|
00008e30  29 3a 42 75 25 3d 28 21  4b 79 29 2f 66 60 25 3a  |):Bu%=(!Ky)/f`%:|
00008e40  53 4a 25 3d 28 21 59 79  29 2f 66 60 25 3a 21 51  |SJ%=(!Yy)/f`%:!Q|
00008e50  4a 3d 42 75 25 3a 21 4f  5f 3d 53 4a 25 3a 21 4f  |J=Bu%:!O_=SJ%:!O|
00008e60  4a 3d 53 4a 25 3a 21 59  79 3d 53 4a 25 3a 21 4b  |J=SJ%:!Yy=SJ%:!K|
00008e70  79 3d 42 75 25 3a 41 25  3d 57 5f 25 3a 42 25 3d  |y=Bu%:A%=W_%:B%=|
00008e80  5f 25 2d 31 3a 43 25 3d  66 25 3a 44 25 3d 61 25  |_%-1:C%=f%:D%=a%|
00008e90  3a 45 25 3d 42 75 25 2a  32 3a 46 25 3d 53 4a 25  |:E%=Bu%*2:F%=SJ%|
00008ea0  2a 33 3a 57 5f 25 3d ba  28 4a 69 29 3a 41 25 3d  |*3:W_%=.(Ji):A%=|
00008eb0  5f 25 3a 42 25 3d 61 25  3a 44 25 3d 4b 79 25 3a  |_%:B%=a%:D%=Ky%:|
00008ec0  45 25 3d 59 50 25 3a 46  25 3d 66 4a 25 3a 21 42  |E%=YP%:F%=fJ%:!B|
00008ed0  61 3d 55 79 25 2b 31 3a  21 68 6c 3d 41 25 28 60  |a=Uy%+1:!hl=A%(`|
00008ee0  25 29 2b 48 75 25 3a 21  75 4a 3d 6e 25 3a 21 4e  |%)+Hu%:!uJ=n%:!N|
00008ef0  6c 3d 79 79 25 3a 21 79  4a 3d 53 4a 25 2f 31 30  |l=yy%:!yJ=SJ%/10|
00008f00  0d 03 0b 89 21 52 69 3d  41 61 25 3a 21 55 5f 3d  |....!Ri=Aa%:!U_=|
00008f10  76 69 25 3a 21 47 69 3d  66 25 3a 21 49 6c 3d 57  |vi%:!Gi=f%:!Il=W|
00008f20  5f 25 3a 21 7a 3d 4a 4a  25 3a 21 4f 3d 72 5f 25  |_%:!z=JJ%:!O=r_%|
00008f30  3a 21 66 69 3d 41 25 28  70 6e 25 29 3a 21 59 75  |:!fi=A%(pn%):!Yu|
00008f40  3d 61 25 3a 21 4e 69 3d  53 4a 25 2f 32 3a 21 7a  |=a%:!Ni=SJ%/2:!z|
00008f50  75 3d 52 50 25 3a 21 5a  69 3d 4c 50 25 3a 21 71  |u=RP%:!Zi=LP%:!q|
00008f60  79 3d 42 75 25 2a 38 3a  e7 52 6e 25 8c 21 4d 4a  |y=Bu%*8:.Rn%.!MJ|
00008f70  3d 32 2f 31 30 30 2a 32  35 36 8b 21 4d 4a 3d 31  |=2/100*256.!MJ=1|
00008f80  30 2f 31 30 30 2a 32 35  36 0d 03 0c 37 21 6b 5f  |0/100*256...7!k_|
00008f90  3d 28 21 4c 2d 21 44 29  2f 21 71 79 3a e7 28 21  |=(!L-!D)/!qy:.(!|
00008fa0  4c 2d 21 44 29 2f 21 71  79 3c 3e a8 28 28 21 4c  |L-!D)/!qy<>.((!L|
00008fb0  2d 21 44 29 2f 21 71 79  29 8c 21 6b 5f 2b 3d 31  |-!D)/!qy).!k_+=1|
00008fc0  0d 03 0d 50 21 54 69 3d  72 75 25 3a c8 99 26 34  |...P!Ti=ru%:..&4|
00008fd0  30 36 63 35 2c 33 2c 33  3a 5f 25 3d ba 28 51 69  |06c5,3,3:_%=.(Qi|
00008fe0  29 3a c8 99 26 34 30 36  63 35 2c 30 2c 30 3a 65  |):..&406c5,0,0:e|
00008ff0  5f 25 3d 21 57 3a 47 69  25 2b 3d 65 5f 25 3a 21  |_%=!W:Gi%+=e_%:!|
00009000  44 5f 3d 4b 79 25 3a 21  5a 5f 3d 65 5f 25 3a e1  |D_=Ky%:!Z_=e_%:.|
00009010  0d 03 0e 40 dd f2 6f 4a  3a f2 4e 4a 28 72 5f 25  |...@..oJ:.NJ(r_%|
00009020  2c 53 4a 25 2f 38 2c 53  4a 25 2a 28 31 3c 3c 31  |,SJ%/8,SJ%*(1<<1|
00009030  36 29 29 3a f2 4e 4a 28  4a 4a 25 2c 42 75 25 2f  |6)):.NJ(JJ%,Bu%/|
00009040  33 2c 42 75 25 2a 28 31  3c 3c 31 36 29 29 3a e1  |3,Bu%*(1<<16)):.|
00009050  0d 03 0f 37 dd f2 4e 4a  28 6e 6c 25 2c 6c 41 25  |...7..NJ(nl%,lA%|
00009060  2c 43 50 25 29 3a 41 25  3d 6e 6c 25 3a 42 25 3d  |,CP%):A%=nl%:B%=|
00009070  65 5f 25 3a 43 25 3d 43  50 25 3a 44 25 3d 6c 41  |e_%:C%=CP%:D%=lA|
00009080  25 3a d6 6d 6c 3a e1 0d  03 10 18 dd f2 55 4a 3a  |%:.ml:.......UJ:|
00009090  ea 66 60 25 2c 4b 4f 25  3a e7 5f 25 3c 31 e1 0d  |.f`%,KO%:._%<1..|
000090a0  03 11 a1 21 5f 4a 3d 66  25 3a 21 77 5f 3d 57 5f  |...!_J=f%:!w_=W_|
000090b0  25 3a 41 25 3d 61 25 3a  42 25 3d 53 4a 25 3a 43  |%:A%=a%:B%=SJ%:C|
000090c0  25 3d 4b 79 25 3a 44 25  3d 5f 25 3a d6 61 5f 3a  |%=Ky%:D%=_%:.a_:|
000090d0  f2 6f 4a 3a 21 7a 3d 4a  4a 25 3a 21 4f 3d 72 5f  |.oJ:!z=JJ%:!O=r_|
000090e0  25 3a 21 4d 5f 3d 5f 25  3a 41 25 3d 41 25 28 70  |%:!M_=_%:A%=A%(p|
000090f0  6e 25 29 3a 42 25 3d 4b  79 25 3a 43 25 3d 65 5f  |n%):B%=Ky%:C%=e_|
00009100  25 3a 44 25 3d 42 75 25  3a c8 99 26 34 30 36 63  |%:D%=Bu%:..&406c|
00009110  35 2c 32 2c 32 3a d6 6e  69 3a c8 99 26 34 30 36  |5,2,2:.ni:..&406|
00009120  63 35 2c 30 2c 30 3a 5a  70 25 3d 5f 25 2d 21 4d  |c5,0,0:Zp%=_%-!M|
00009130  5f 3a 5f 25 3d 21 4d 5f  3a e7 5f 25 3c 3d 31 e1  |_:_%=!M_:._%<=1.|
00009140  0d 03 12 b1 41 25 3d 61  25 3a 42 25 3d 5f 25 2d  |....A%=a%:B%=_%-|
00009150  31 3a 66 60 25 3d ba 28  57 4a 29 3a 42 75 25 3d  |1:f`%=.(WJ):Bu%=|
00009160  28 21 4b 79 29 2f 66 60  25 3a 53 4a 25 3d 28 21  |(!Ky)/f`%:SJ%=(!|
00009170  59 79 29 2f 66 60 25 3a  21 51 4a 3d 42 75 25 3a  |Yy)/f`%:!QJ=Bu%:|
00009180  21 4f 5f 3d 53 4a 25 3a  21 4f 4a 3d 53 4a 25 3a  |!O_=SJ%:!OJ=SJ%:|
00009190  21 4b 79 3d 42 75 25 3a  21 59 79 3d 53 4a 25 3a  |!Ky=Bu%:!Yy=SJ%:|
000091a0  41 25 3d 61 25 3a 42 25  3d 53 4a 25 3a 43 25 3d  |A%=a%:B%=SJ%:C%=|
000091b0  4b 79 25 3a 44 25 3d 5f  25 3a d6 61 5f 3a f2 6f  |Ky%:D%=_%:.a_:.o|
000091c0  4a 3a 41 25 3d 61 25 3a  42 25 3d 4b 79 25 3a 43  |J:A%=a%:B%=Ky%:C|
000091d0  25 3d 5f 25 3a 44 25 3d  66 4a 25 3a 45 25 3d 72  |%=_%:D%=fJ%:E%=r|
000091e0  5f 25 3a e7 65 5f 25 3c  32 8c 52 61 25 3d 30 3a  |_%:.e_%<2.Ra%=0:|
000091f0  e1 0d 03 13 e7 52 61 25  3d 30 3a 4b 4f 25 3d 71  |.....Ra%=0:KO%=q|
00009200  4f 25 3a e3 70 25 3d 30  b8 65 5f 25 2d 32 3a 49  |O%:.p%=0.e_%-2:I|
00009210  6e 25 3d 4b 4f 25 21 28  38 2a 4b 79 25 21 28 70  |n%=KO%!(8*Ky%!(p|
00009220  25 2a 34 29 29 3a 49 6e  25 3d 49 6e 25 2f 28 31  |%*4)):In%=In%/(1|
00009230  3c 3c 31 36 29 3a 54 6e  25 3d 4b 4f 25 21 28 38  |<<16):Tn%=KO%!(8|
00009240  2a 4b 79 25 21 28 28 70  25 2b 31 29 2a 34 29 29  |*Ky%!((p%+1)*4))|
00009250  3a 54 6e 25 3d 54 6e 25  2f 28 31 3c 3c 31 36 29  |:Tn%=Tn%/(1<<16)|
00009260  3a 52 61 25 2b 3d 28 66  4a 25 21 28 28 70 25 2b  |:Ra%+=(fJ%!((p%+|
00009270  31 29 2a 34 29 2b 72 75  25 21 28 28 70 25 2b 31  |1)*4)+ru%!((p%+1|
00009280  29 2a 34 29 2a 54 6e 25  2f 31 30 32 34 29 2d 28  |)*4)*Tn%/1024)-(|
00009290  66 4a 25 21 28 70 25 2a  34 29 2b 72 75 25 21 28  |fJ%!(p%*4)+ru%!(|
000092a0  70 25 2a 34 29 2a 49 6e  25 2f 31 30 32 34 29 3a  |p%*4)*In%/1024):|
000092b0  ed 3a 72 41 25 3d 52 61  25 2f 28 65 5f 25 2d 31  |.:rA%=Ra%/(e_%-1|
000092c0  29 3a 71 25 3d 30 3a 52  61 25 3d 30 3a e3 70 25  |):q%=0:Ra%=0:.p%|
000092d0  3d 30 b8 65 5f 25 2d 32  0d 03 14 bf 49 6e 25 3d  |=0.e_%-2....In%=|
000092e0  4b 4f 25 21 28 38 2a 4b  79 25 21 28 70 25 2a 34  |KO%!(8*Ky%!(p%*4|
000092f0  29 29 3a 49 6e 25 3d 49  6e 25 2f 28 31 3c 3c 31  |)):In%=In%/(1<<1|
00009300  36 29 3a 54 6e 25 3d 4b  4f 25 21 28 38 2a 4b 79  |6):Tn%=KO%!(8*Ky|
00009310  25 21 28 28 70 25 2b 31  29 2a 34 29 29 3a 54 6e  |%!((p%+1)*4)):Tn|
00009320  25 3d 54 6e 25 2f 28 31  3c 3c 31 36 29 3a 59 6b  |%=Tn%/(1<<16):Yk|
00009330  25 3d 28 66 4a 25 21 28  28 70 25 2b 31 29 2a 34  |%=(fJ%!((p%+1)*4|
00009340  29 2b 72 75 25 21 28 28  70 25 2b 31 29 2a 34 29  |)+ru%!((p%+1)*4)|
00009350  2a 54 6e 25 2f 31 30 32  34 29 2d 28 66 4a 25 21  |*Tn%/1024)-(fJ%!|
00009360  28 70 25 2a 34 29 2b 72  75 25 21 28 70 25 2a 34  |(p%*4)+ru%!(p%*4|
00009370  29 2a 49 6e 25 2f 31 30  32 34 29 3a e7 59 6b 25  |)*In%/1024):.Yk%|
00009380  3c 72 41 25 2a 31 2e 32  8c 52 61 25 2b 3d 59 6b  |<rA%*1.2.Ra%+=Yk|
00009390  25 3a 71 25 2b 3d 31 0d  03 15 14 ed 3a e7 71 25  |%:q%+=1.....:.q%|
000093a0  8c 52 61 25 3d 52 61 25  2f 71 25 0d 03 16 05 e1  |.Ra%=Ra%/q%.....|
000093b0  0d 03 17 0e dd f2 72 3a  e7 5f 25 3c 31 e1 0d 03  |......r:._%<1...|
000093c0  18 a5 54 41 25 3d 46 75  25 3a 4b 25 3d a4 41 28  |..TA%=Fu%:K%=.A(|
000093d0  6d 25 2b 41 6e 25 2a 32  2c 71 79 25 29 3a e7 4b  |m%+An%*2,qy%):.K|
000093e0  25 3d a3 8c f2 43 28 22  4f 70 74 69 63 61 6c 22  |%=...C("Optical"|
000093f0  2c 22 43 6f 6c 75 6d 6e  20 22 2b c3 28 54 41 25  |,"Column "+.(TA%|
00009400  2b 31 29 2b 22 3a 20 54  68 65 72 65 20 69 73 20  |+1)+": There is |
00009410  6e 6f 74 20 65 6e 6f 75  67 68 20 66 72 65 65 20  |not enough free |
00009420  6d 65 6d 6f 72 79 20 61  76 61 69 6c 61 62 6c 65  |memory available|
00009430  20 74 6f 20 73 74 6f 72  65 20 74 68 65 20 74 65  | to store the te|
00009440  78 74 2e 20 4e 65 65 64  20 22 2b c3 28 28 6d 25  |xt. Need "+.((m%|
00009450  2b 41 6e 25 2a 32 29 81  31 30 32 34 29 2b 22 4b  |+An%*2).1024)+"K|
00009460  2e 22 29 0d 03 19 17 e7  4b 25 3d a3 80 4c 69 25  |.").....K%=..Li%|
00009470  3d a3 c8 99 26 34 30 36  63 30 0d 03 1a 0a e7 4b  |=...&406c0.....K|
00009480  25 3d a3 e1 0d 03 1b fd  51 79 25 3d 6d 25 3a 21  |%=......Qy%=m%:!|
00009490  56 69 3d 50 75 25 3a 21  41 6c 3d 4d 79 25 3a 42  |Vi=Pu%:!Al=My%:B|
000094a0  25 3d 61 25 3a 47 25 3d  65 5f 25 3a 44 25 3d 4b  |%=a%:G%=e_%:D%=K|
000094b0  79 25 3a 21 57 3d 65 5f  25 3a d6 6b 69 3a 42 25  |y%:!W=e_%:.ki:B%|
000094c0  3d 61 25 3a 43 25 3d 5f  25 3a 21 65 4a 3d ba 28  |=a%:C%=_%:!eJ=.(|
000094d0  59 4a 29 3a 41 25 3d 61  25 3a 42 25 3d 41 25 28  |YJ):A%=a%:B%=A%(|
000094e0  71 79 25 29 3a 43 25 3d  6d 25 3a 45 25 3d 4b 79  |qy%):C%=m%:E%=Ky|
000094f0  25 3a 46 25 3d 52 61 25  2a 31 2e 32 3a 47 25 3d  |%:F%=Ra%*1.2:G%=|
00009500  42 75 25 3a 21 43 69 3d  65 5f 25 3a 21 61 6c 3d  |Bu%:!Ci=e_%:!al=|
00009510  66 4a 25 3a 21 79 75 3d  72 75 25 3a 21 4f 61 3d  |fJ%:!yu=ru%:!Oa=|
00009520  76 69 25 3a 21 4b 4a 3d  5f 25 3a 21 68 75 3d 61  |vi%:!KJ=_%:!hu=a|
00009530  25 3a 21 46 61 3d 41 79  25 3a 21 61 61 3d 69 6f  |%:!Fa=Ay%:!aa=io|
00009540  25 3a 21 4e 61 3d 28 37  32 2f 4c 6c 25 29 2a 28  |%:!Na=(72/Ll%)*(|
00009550  31 3c 3c 31 36 29 3a 21  73 69 3d 72 5f 25 3a 21  |1<<16):!si=r_%:!|
00009560  56 6c 3d 51 25 3a d6 44  75 3a 6d 25 3d 21 61 69  |Vl=Q%:.Du:m%=!ai|
00009570  3a 3f 28 41 25 28 71 79  25 29 2b 6d 25 29 3d 31  |:?(A%(qy%)+m%)=1|
00009580  30 0d 03 1c 34 6d 25 2b  3d 31 3a 58 75 25 3d 21  |0...4m%+=1:Xu%=!|
00009590  56 61 3a 5f 25 3d 21 4b  4a 3a e7 28 67 79 25 3f  |Va:_%=!KJ:.(gy%?|
000095a0  75 42 25 3c 3e 30 29 80  28 67 79 25 3f 6f 42 25  |uB%<>0).(gy%?oB%|
000095b0  3c 3e 30 29 8c 0d 03 1d  1f 41 25 3d 51 79 25 3a  |<>0).....A%=Qy%:|
000095c0  42 25 3d 6d 25 3a 43 25  3d 41 25 28 71 79 25 29  |B%=m%:C%=A%(qy%)|
000095d0  3a d6 71 5f 0d 03 1e 10  cd 3a f2 65 79 28 70 5f  |:.q_.....:.ey(p_|
000095e0  25 29 3a e1 0d 03 1f bd  dd f2 72 79 3a c8 99 35  |%):.......ry:..5|
000095f0  33 2c 2d 31 2c 31 31 b8  2c 2c 73 79 25 3a c8 99  |3,-1,11.,,sy%:..|
00009600  35 33 2c 2d 31 2c 31 32  b8 2c 2c 65 79 25 3a c8  |53,-1,12.,,ey%:.|
00009610  99 35 33 2c 2d 31 2c 34  b8 2c 2c 52 25 3a c8 99  |.53,-1,4.,,R%:..|
00009620  35 33 2c 2d 31 2c 35 b8  2c 2c 56 25 3a 52 25 3d  |53,-1,5.,,V%:R%=|
00009630  31 3c 3c 52 25 3a 56 25  3d 31 3c 3c 56 25 3a 6d  |1<<R%:V%=1<<V%:m|
00009640  79 25 3d 28 28 73 79 25  2b 31 29 2a 52 25 2d 38  |y%=((sy%+1)*R%-8|
00009650  39 32 2d 33 32 29 2f 32  3a 41 5f 25 3d 28 28 65  |92-32)/2:A_%=((e|
00009660  79 25 2b 31 29 2a 56 25  2d 35 32 38 2d 33 32 29  |y%+1)*V%-528-32)|
00009670  2f 32 2b 38 30 3a c8 99  26 34 30 30 64 31 2c 2d  |/2+80:..&400d1,-|
00009680  31 2c 6d 79 25 2c 41 5f  25 2c 6d 79 25 2b 38 39  |1,my%,A_%,my%+89|
00009690  32 2b 33 32 2c 41 5f 25  2b 35 32 38 2b 33 32 3a  |2+32,A_%+528+32:|
000096a0  e1 0d 73 5b 3e dd f2 58  28 51 24 2c 4f 24 29 3a  |..s[>..X(Q$,O$):|
000096b0  f2 59 28 22 22 29 3a 5a  25 21 30 3d 30 3a 24 28  |.Y(""):Z%!0=0:$(|
000096c0  5a 25 2b 34 29 3d 4f 24  2b bd 30 3a c8 99 26 34  |Z%+4)=O$+.0:..&4|
000096d0  30 30 64 66 2c 5a 25 2c  31 37 2c 51 24 3a e1 0d  |00df,Z%,17,Q$:..|
000096e0  73 5c 21 dd f2 73 28 51  24 2c 4f 24 2c 48 50 25  |s\!..s(Q$,O$,HP%|
000096f0  29 3a 67 60 25 3d 48 50  25 3a c8 8e 67 60 25 ca  |):g`%=HP%:..g`%.|
00009700  0d 73 5d 2e c9 30 2c 31  2c 32 3a f2 71 79 28 51  |.s]..0,1,2:.qy(Q|
00009710  24 2c 4f 24 2c 22 51 75  69 74 22 2c 22 43 61 6e  |$,O$,"Quit","Can|
00009720  63 65 6c 22 2c 22 53 61  76 65 22 2c 33 29 0d 73  |cel","Save",3).s|
00009730  5e 28 c9 33 2c 34 3a f2  71 79 28 51 24 2c 4f 24  |^(.3,4:.qy(Q$,O$|
00009740  2c 22 51 75 69 74 22 2c  22 43 61 6e 63 65 6c 22  |,"Quit","Cancel"|
00009750  2c 22 22 2c 33 29 0d 73  5f 07 cb 3a e1 0d 73 60  |,"",3).s_..:..s`|
00009760  4b dd a4 55 28 51 24 2c  4f 24 29 3a f2 59 28 22  |K..U(Q$,O$):.Y("|
00009770  22 29 3a 5a 25 21 30 3d  30 3a 24 28 5a 25 2b 34  |"):Z%!0=0:$(Z%+4|
00009780  29 3d 4f 24 2b bd 30 3a  c8 99 26 34 30 30 64 66  |)=O$+.0:..&400df|
00009790  2c 5a 25 2c 31 39 2c 51  24 b8 2c 59 61 25 3a e7  |,Z%,19,Q$.,Ya%:.|
000097a0  59 61 25 3d 31 8c 3d b9  0d 73 61 06 3d a3 0d 73  |Ya%=1.=..sa.=..s|
000097b0  62 81 dd f2 43 28 51 24  2c 4f 24 29 3a 51 24 3d  |b...C(Q$,O$):Q$=|
000097c0  22 4f 70 74 63 6c 50 72  6f 22 3a 5a 25 21 30 3d  |"OptclPro":Z%!0=|
000097d0  26 33 30 32 30 31 30 30  3a c8 99 26 34 30 30 65  |&3020100:..&400e|
000097e0  39 2c 33 36 2c 2c 22 70  74 72 5f 64 65 66 61 75  |9,36,,"ptr_defau|
000097f0  6c 74 22 2c 32 2c 30 2c  30 2c 30 2c 5a 25 3a c8  |lt",2,0,0,0,Z%:.|
00009800  99 26 34 30 36 63 32 3a  5a 25 21 30 3d 30 3a 24  |.&406c2:Z%!0=0:$|
00009810  28 5a 25 2b 34 29 3d 4f  24 2b bd 30 3a c8 99 26  |(Z%+4)=O$+.0:..&|
00009820  34 30 30 64 66 2c 5a 25  2c 32 2c 51 24 3a e1 0d  |400df,Z%,2,Q$:..|
00009830  73 63 2b dd a4 43 28 48  79 24 29 3a 3d a4 43 79  |sc+..C(Hy$):=.Cy|
00009840  28 48 79 24 2c 22 3c 4f  70 74 63 6c 50 72 6f 24  |(Hy$,"<OptclPro$|
00009850  44 69 72 3e 2e 22 2b 79  24 29 0d 73 64 35 dd a4  |Dir>."+y$).sd5..|
00009860  73 28 59 25 29 3a ea 42  5f 25 3a 5a 25 21 30 3d  |s(Y%):.B_%:Z%!0=|
00009870  59 25 3a c8 99 26 36 30  30 63 63 2c 2c 5a 25 b8  |Y%:..&600cc,,Z%.|
00009880  3b 77 79 25 3a e7 77 79  25 80 31 8c 3d 22 22 0d  |;wy%:.wy%.1.="".|
00009890  73 65 43 42 5f 25 3d 5a  25 21 33 32 3a 42 5f 25  |seCB_%=Z%!32:B_%|
000098a0  3d 5a 25 21 36 30 3a e7  28 42 5f 25 80 28 31 3c  |=Z%!60:.(B_%.(1<|
000098b0  3c 38 29 29 3c 3e 30 80  28 42 5f 25 80 28 31 3c  |<8))<>0.(B_%.(1<|
000098c0  3c 30 29 29 3c 3e 30 8c  3d a4 46 28 5a 25 21 37  |<0))<>0.=.F(Z%!7|
000098d0  36 29 0d 73 66 2e e7 28  42 5f 25 80 28 31 3c 3c  |6).sf..(B_%.(1<<|
000098e0  38 29 29 3d 30 80 28 42  5f 25 80 28 31 3c 3c 30  |8))=0.(B_%.(1<<0|
000098f0  29 29 3c 3e 30 8c 3d a4  46 28 5a 25 2b 37 36 29  |))<>0.=.F(Z%+76)|
00009900  0d 73 67 07 3d 22 22 0d  73 68 35 dd a4 6c 28 59  |.sg.="".sh5..l(Y|
00009910  25 29 3a ea 42 5f 25 3a  5a 25 21 30 3d 59 25 3a  |%):.B_%:Z%!0=Y%:|
00009920  c8 99 26 36 30 30 63 63  2c 2c 5a 25 b8 3b 77 79  |..&600cc,,Z%.;wy|
00009930  25 3a e7 77 79 25 80 31  8c 3d 22 22 0d 73 69 42  |%:.wy%.1.="".siB|
00009940  42 5f 25 3d 5a 25 21 33  32 3a 42 5f 25 3d 5a 25  |B_%=Z%!32:B_%=Z%|
00009950  21 36 30 3a e7 28 42 5f  25 80 28 31 3c 3c 38 29  |!60:.(B_%.(1<<8)|
00009960  29 3d 30 80 28 42 5f 25  80 28 31 3c 3c 30 29 29  |)=0.(B_%.(1<<0))|
00009970  3c 3e 30 8c 3d a4 46 28  5a 25 2b 37 36 29 0d 73  |<>0.=.F(Z%+76).s|
00009980  6a 07 3d 22 22 0d 73 6b  95 dd a4 43 79 28 48 79  |j.="".sk...Cy(Hy|
00009990  24 2c 79 24 29 3a ea 5f  79 25 2c 6b 6f 25 2c 71  |$,y$):._y%,ko%,q|
000099a0  25 2c 65 61 25 2c 70 24  2c 41 79 24 3a c8 99 26  |%,ea%,p$,Ay$:..&|
000099b0  34 30 30 64 62 2c 2c 5a  25 2c 6d 72 25 2c 73 41  |400db,,Z%,mr%,sA|
000099c0  25 2c 42 50 25 2c 48 79  24 2c 42 6b 25 b8 2c 2c  |%,BP%,Hy$,Bk%.,,|
000099d0  6d 72 25 2c 2c 2c 2c 42  6b 25 3a e7 42 6b 25 3d  |mr%,,,,Bk%:.Bk%=|
000099e0  30 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |0..C("Optical","|
000099f0  54 65 6d 70 6c 61 74 65  20 27 22 2b 79 24 2b 22  |Template '"+y$+"|
00009a00  27 20 63 6f 75 6c 64 20  6e 6f 74 20 62 65 20 6c  |' could not be l|
00009a10  6f 61 64 65 64 21 22 29  3a e1 0d 73 6c 0a c8 8e  |oaded!"):..sl...|
00009a20  4b 5f 25 ca 0d 73 6d 10  c9 31 3a 5a 25 21 36 34  |K_%..sm..1:Z%!64|
00009a30  3d 4b 5f 25 0d 73 6e 11  7f 5a 25 21 36 34 3d a4  |=K_%.sn..Z%!64=.|
00009a40  62 28 59 25 29 0d 73 6f  46 cb 3a c8 99 26 34 30  |b(Y%).soF.:..&40|
00009a50  30 63 31 2c 2c 5a 25 b8  5f 79 25 3a c8 99 26 34  |0c1,,Z%._y%:..&4|
00009a60  30 30 64 36 2c 5f 79 25  2c 5a 25 2b 34 30 2c 31  |00d6,_y%,Z%+40,1|
00009a70  2b 32 2b 28 31 3c 3c 38  29 2c 32 2b 28 31 3c 3c  |+2+(1<<8),2+(1<<|
00009a80  38 29 3a c8 8e 5a 25 21  34 30 ca 0d 73 70 07 c9  |8):..Z%!40..sp..|
00009a90  2d 31 0d 73 71 50 7f 6b  6f 25 3d 34 30 3a f5 3a  |-1.sqP.ko%=40:.:|
00009aa0  5a 25 21 34 3d 5a 25 21  6b 6f 25 3a 5a 25 21 30  |Z%!4=Z%!ko%:Z%!0|
00009ab0  3d 5f 79 25 3a c8 99 26  34 30 30 63 65 2c 2c 5a  |=_y%:..&400ce,,Z|
00009ac0  25 3a 70 24 3d a4 46 28  5a 25 21 32 38 29 3a c8  |%:p$=.F(Z%!28):.|
00009ad0  99 26 34 30 30 63 34 2c  2c 5a 25 3a c8 8e 4b 5f  |.&400c4,,Z%:..K_|
00009ae0  25 ca 0d 73 72 0e c9 31  3a 5a 25 21 33 32 3d 31  |%..sr..1:Z%!32=1|
00009af0  0d 73 73 73 7f 3a c8 99  34 36 2c 32 36 34 2c 4b  |.sss.:..46,264,K|
00009b00  5f 25 b8 2c 2c 2c 71 25  3a 65 61 25 3d 30 3a f5  |_%.,,,q%:ea%=0:.|
00009b10  65 61 25 2b 3d 31 3a c8  99 34 36 2c 32 36 39 2c  |ea%+=1:..46,269,|
00009b20  4b 5f 25 2c 4b 42 25 2c  32 30 2c 65 61 25 3a 41  |K_%,KB%,20,ea%:A|
00009b30  79 24 3d a4 46 28 4b 42  25 29 3a fd 65 61 25 3d  |y$=.F(KB%):.ea%=|
00009b40  71 25 84 70 24 3d 41 79  24 3a e7 70 24 3d 41 79  |q%.p$=Ay$:.p$=Ay|
00009b50  24 8c 5a 25 21 33 32 3d  4b 5f 25 8b 5a 25 21 33  |$.Z%!32=K_%.Z%!3|
00009b60  32 3d 31 0d 73 74 35 cb  3a 5a 25 21 34 3d 5f 79  |2=1.st5.:Z%!4=_y|
00009b70  25 3a c8 99 26 34 30 30  63 32 2c 2c 5a 25 2b 34  |%:..&400c2,,Z%+4|
00009b80  b8 70 42 25 3a 6b 6f 25  2b 3d 34 3a fd 28 5a 25  |.pB%:ko%+=4:.(Z%|
00009b90  21 6b 6f 25 29 3d 2d 31  0d 73 75 0a cb 3a 3d 5f  |!ko%)=-1.su..:=_|
00009ba0  79 25 0d 73 76 4c dd f2  44 28 59 25 29 3a 21 5a  |y%.svL..D(Y%):!Z|
00009bb0  25 3d 59 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |%=Y%:..&400cb,,Z|
00009bc0  25 3a 5a 25 21 32 38 3d  2d 31 3a e7 28 5a 25 21  |%:Z%!28=-1:.(Z%!|
00009bd0  33 32 80 28 31 3c 3c 31  36 29 29 3d 30 84 59 25  |32.(1<<16))=0.Y%|
00009be0  3d 56 5f 25 84 59 25 3d  6a 4a 25 f2 41 4a 0d 73  |=V_%.Y%=jJ%.AJ.s|
00009bf0  77 1e c8 99 26 34 30 30  63 35 2c 2c 5a 25 3a e7  |w...&400c5,,Z%:.|
00009c00  59 25 3d 77 25 f2 44 28  56 5f 25 29 0d 73 78 12  |Y%=w%.D(V_%).sx.|
00009c10  e7 59 25 3d 49 4a 25 f2  44 28 6a 4a 25 29 0d 73  |.Y%=IJ%.D(jJ%).s|
00009c20  79 05 e1 0d 73 7a 19 dd  f2 4d 28 59 25 29 3a ea  |y...sz...M(Y%):.|
00009c30  6b 6e 25 3a e7 a4 53 28  59 25 29 8c 0d 73 7b 2a  |kn%:..S(Y%)..s{*|
00009c40  21 5a 25 3d 59 25 3a c8  99 26 34 30 30 63 36 2c  |!Z%=Y%:..&400c6,|
00009c50  2c 5a 25 3a e7 59 25 3d  6b 25 f2 59 28 22 22 29  |,Z%:.Y%=k%.Y("")|
00009c60  3a 5f 4a 25 3d 30 0d 73  7c 24 e7 59 25 3d 77 25  |:_J%=0.s|$.Y%=w%|
00009c70  f2 4d 28 56 5f 25 29 3a  4f 5f 25 3d 2d 31 3a 57  |.M(V_%):O_%=-1:W|
00009c80  69 25 3d a3 3a 6a 79 25  3d a3 0d 73 7d 12 e7 59  |i%=.:jy%=..s}..Y|
00009c90  25 3d 49 4a 25 f2 4d 28  6a 4a 25 29 0d 73 7e 07  |%=IJ%.M(jJ%).s~.|
00009ca0  cd 3a e1 0d 73 7f 1c dd  f2 4a 28 59 25 29 3a e7  |.:..s....J(Y%):.|
00009cb0  59 25 3d 65 25 e7 a4 53  28 60 6c 25 29 f2 63 0d  |Y%=e%..S(`l%).c.|
00009cc0  73 80 09 c8 8e 59 25 ca  0d 73 81 23 c9 2d 31 3a  |s....Y%..s.#.-1:|
00009cd0  c8 99 26 34 30 30 64 31  2c 2d 31 2c 30 2c 30 2c  |..&400d1,-1,0,0,|
00009ce0  31 3c 3c 33 30 2c 31 3c  3c 33 30 0d 73 82 21 7f  |1<<30,1<<30.s.!.|
00009cf0  c8 99 26 34 30 30 64 31  2c 59 25 2c 30 2c 2d 31  |..&400d1,Y%,0,-1|
00009d00  3c 3c 33 30 2c 31 3c 3c  33 30 2c 30 0d 73 83 07  |<<30,1<<30,0.s..|
00009d10  cb 3a e1 0d 73 84 66 dd  a4 53 79 28 49 79 24 29  |.:..s.f..Sy(Iy$)|
00009d20  3a ea 49 25 3a 5a 25 21  30 3d 2d 31 3a 5a 25 21  |:.I%:Z%!0=-1:Z%!|
00009d30  34 3d 30 3a 5a 25 21 38  3d 30 3a 5a 25 21 31 32  |4=0:Z%!8=0:Z%!12|
00009d40  3d 36 38 3a 5a 25 21 31  36 3d 36 38 3a 5a 25 21  |=68:Z%!16=68:Z%!|
00009d50  32 30 3d 31 32 32 39 30  3a 24 28 5a 25 2b 32 34  |20=12290:$(Z%+24|
00009d60  29 3d 49 79 24 3a c8 99  26 34 30 30 63 32 2c 2c  |)=Iy$:..&400c2,,|
00009d70  5a 25 b8 49 25 3a 3d 49  25 0d 73 85 30 dd f2 47  |Z%.I%:=I%.s.0..G|
00009d80  28 59 25 2c 49 25 2c 77  50 25 29 3a c8 99 26 36  |(Y%,I%,wP%):..&6|
00009d90  30 30 64 32 2c 59 25 2c  49 25 2c 2d 31 2c 2d 31  |00d2,Y%,I%,-1,-1|
00009da0  2c 2d 31 2c 77 50 25 3a  e1 0d 73 86 56 dd a4 4d  |,-1,wP%:..s.V..M|
00009db0  28 59 25 2c 49 25 29 3a  5a 25 21 30 3d 59 25 3a  |(Y%,I%):Z%!0=Y%:|
00009dc0  5a 25 21 34 3d 49 25 3a  c8 99 26 34 30 30 63 65  |Z%!4=I%:..&400ce|
00009dd0  2c 2c 5a 25 3a e7 28 28  5a 25 21 32 34 29 80 32  |,,Z%:.((Z%!24).2|
00009de0  35 36 29 3d 30 85 31 2c  22 49 63 6f 6e 20 69 73  |56)=0.1,"Icon is|
00009df0  6e 27 74 20 69 6e 64 69  72 65 63 74 65 64 22 0d  |n't indirected".|
00009e00  73 87 0d 3d 24 28 5a 25  21 32 38 29 0d 73 88 56  |s..=$(Z%!28).s.V|
00009e10  dd a4 77 28 59 25 2c 49  25 29 3a 5a 25 21 30 3d  |..w(Y%,I%):Z%!0=|
00009e20  59 25 3a 5a 25 21 34 3d  49 25 3a c8 99 26 34 30  |Y%:Z%!4=I%:..&40|
00009e30  30 63 65 2c 2c 5a 25 3a  e7 28 28 5a 25 21 32 34  |0ce,,Z%:.((Z%!24|
00009e40  29 80 32 35 36 29 3d 30  85 31 2c 22 49 63 6f 6e  |).256)=0.1,"Icon|
00009e50  20 69 73 6e 27 74 20 69  6e 64 69 72 65 63 74 65  | isn't indirecte|
00009e60  64 22 0d 73 89 0d 3d 24  28 5a 25 21 33 32 29 0d  |d".s..=$(Z%!32).|
00009e70  73 8a 1c dd f2 5a 28 59  25 2c 49 25 29 3a f2 50  |s....Z(Y%,I%):.P|
00009e80  28 59 25 2c 49 25 2c b9  29 3a e1 0d 73 8b 1c dd  |(Y%,I%,.):..s...|
00009e90  f2 46 28 59 25 2c 49 25  29 3a f2 50 28 59 25 2c  |.F(Y%,I%):.P(Y%,|
00009ea0  49 25 2c a3 29 3a e1 0d  73 8c 3e dd f2 41 28 59  |I%,.):..s.>..A(Y|
00009eb0  25 2c 49 25 2c 59 24 29  3a e7 a4 4d 28 59 25 2c  |%,I%,Y$):..M(Y%,|
00009ec0  49 25 29 3d 59 24 80 59  24 3c 3e 22 22 80 59 24  |I%)=Y$.Y$<>"".Y$|
00009ed0  3c 3e 22 4e 6f 20 6c 65  74 74 65 72 20 6d 61 72  |<>"No letter mar|
00009ee0  6b 65 64 22 e1 0d 73 8d  15 e7 59 25 3d 77 25 80  |ked"..s...Y%=w%.|
00009ef0  49 25 3d 31 8c 6b 24 3d  59 24 0d 73 8e 32 5a 25  |I%=1.k$=Y$.s.2Z%|
00009f00  21 30 3d 59 25 3a 5a 25  21 34 3d 49 25 3a c8 99  |!0=Y%:Z%!4=I%:..|
00009f10  26 34 30 30 63 65 2c 2c  5a 25 3a e7 28 28 5a 25  |&400ce,,Z%:.((Z%|
00009f20  21 32 34 29 80 32 35 36  29 3d 30 e1 0d 73 8f 5a  |!24).256)=0..s.Z|
00009f30  24 28 5a 25 21 32 38 29  3d 59 24 3a 5a 25 21 30  |$(Z%!28)=Y$:Z%!0|
00009f40  3d 59 25 3a 5a 25 21 34  3d 49 25 3a 5a 25 21 38  |=Y%:Z%!4=I%:Z%!8|
00009f50  3d 30 3a 5a 25 21 31 32  3d 30 3a c8 99 26 34 30  |=0:Z%!12=0:..&40|
00009f60  30 63 64 2c 2c 5a 25 3a  c8 99 26 34 30 30 64 33  |0cd,,Z%:..&400d3|
00009f70  2c 2c 5a 25 3a e7 5a 25  21 30 3d 59 25 80 5a 25  |,,Z%:.Z%!0=Y%.Z%|
00009f80  21 34 3d 49 25 8c 0d 73  90 3e e7 5a 25 21 32 30  |!4=I%..s.>.Z%!20|
00009f90  3e a9 28 59 24 29 8c c8  99 26 36 30 30 64 32 2c  |>.(Y$)...&600d2,|
00009fa0  59 25 2c 49 25 2c 2d 31  2c 2d 31 2c 2d 31 2c a9  |Y%,I%,-1,-1,-1,.|
00009fb0  28 59 24 29 8b f2 47 28  59 25 2c 49 25 2c 5a 25  |(Y$)..G(Y%,I%,Z%|
00009fc0  21 32 30 29 0d 73 91 07  cd 3a e1 0d 73 92 44 dd  |!20).s...:..s.D.|
00009fd0  f2 43 4a 28 4a 79 25 29  3a c8 99 26 34 30 30 63  |.CJ(Jy%):..&400c|
00009fe0  66 2c 2c 4b 42 25 3a e7  28 28 4b 42 25 21 38 29  |f,,KB%:.((KB%!8)|
00009ff0  80 31 29 3d 31 8c c8 99  26 34 30 30 64 34 2c 2c  |.1)=1...&400d4,,|
0000a000  4a 79 25 2c 4b 42 25 21  30 2c 4b 42 25 21 34 0d  |Jy%,KB%!0,KB%!4.|
0000a010  73 93 05 e1 0d 73 94 1c  dd a4 50 28 61 50 25 29  |s....s....P(aP%)|
0000a020  3a 3d 28 5a 25 21 28 34  2a 61 50 25 29 29 2b 31  |:=(Z%!(4*aP%))+1|
0000a030  0d 73 95 df dd a4 42 28  5a 24 29 3a ea 4a 79 25  |.s....B(Z$):.Jy%|
0000a040  2c 58 79 25 2c 55 79 25  2c 6b 79 25 2c 57 75 25  |,Xy%,Uy%,ky%,Wu%|
0000a050  2c 6b 61 25 3a de 4a 79  25 32 38 2b a4 66 20 28  |,ka%:.Jy%28+.f (|
0000a060  5a 24 29 2a 32 34 3a 24  4a 79 25 3d c0 5a 24 2c  |Z$)*24:$Jy%=.Z$,|
0000a070  a7 5a 24 2c 22 2c 22 29  2d 31 29 3a 4a 79 25 3f  |.Z$,",")-1):Jy%?|
0000a080  31 32 3d 37 3a 4a 79 25  3f 31 33 3d 32 3a 4a 79  |12=7:Jy%?13=2:Jy|
0000a090  25 3f 31 34 3d 37 3a 4a  79 25 3f 31 35 3d 30 3a  |%?14=7:Jy%?15=0:|
0000a0a0  4a 79 25 21 31 36 3d 31  34 30 3a 4a 79 25 21 32  |Jy%!16=140:Jy%!2|
0000a0b0  30 3d 34 34 3a 4a 79 25  21 32 34 3d 30 3a 58 79  |0=44:Jy%!24=0:Xy|
0000a0c0  25 3d 4a 79 25 2b 32 38  3a 55 79 25 3d a9 28 c0  |%=Jy%+28:Uy%=.(.|
0000a0d0  5a 24 2c a7 5a 24 2c 22  2c 22 29 2d 31 29 29 3a  |Z$,.Z$,",")-1)):|
0000a0e0  5a 24 2b 3d 22 2c 22 3a  60 6f 25 3d 30 3a c8 95  |Z$+=",":`o%=0:..|
0000a0f0  5a 24 3c 3e 22 22 3a 5a  24 3d c1 5a 24 2c a7 5a  |Z$<>"":Z$=.Z$,.Z|
0000a100  24 2c 22 2c 22 29 2b 31  29 3a c8 8e 5a 24 ca 0d  |$,",")+1):..Z$..|
0000a110  73 96 07 c9 22 22 0d 73  97 4d 7f 3a 21 58 79 25  |s..."".s.M.:!Xy%|
0000a120  3d 30 3a 58 79 25 21 34  3d 2d 31 3a 58 79 25 21  |=0:Xy%!4=-1:Xy%!|
0000a130  38 3d 26 37 30 30 30 30  32 31 3a 6b 79 25 3d a7  |8=&7000021:ky%=.|
0000a140  5a 24 2c 22 2c 22 29 2d  31 3a 57 75 25 3d a7 c0  |Z$,",")-1:Wu%=..|
0000a150  5a 24 2c 6b 79 25 29 2c  22 3e 22 29 3a c8 8e 57  |Z$,ky%),">"):..W|
0000a160  75 25 ca 0d 73 98 06 c9  30 0d 73 99 3e 7f 3a 6b  |u%..s...0.s.>.:k|
0000a170  61 25 3d a0 28 c1 5a 24  2c 57 75 25 2b 31 2c 6b  |a%=.(.Z$,Wu%+1,k|
0000a180  79 25 2d 57 75 25 29 29  3a 58 79 25 21 34 3d 6b  |y%-Wu%)):Xy%!4=k|
0000a190  61 25 3a 6b 79 25 3d 57  75 25 2d 31 3a 58 79 25  |a%:ky%=Wu%-1:Xy%|
0000a1a0  21 30 3d 31 3c 3c 33 0d  73 9a 0e cb 3a e7 6b 79  |!0=1<<3.s...:.ky|
0000a1b0  25 3e 31 32 8c 0d 73 9b  45 e7 55 4f 25 2b 6b 79  |%>12..s.E.UO%+ky|
0000a1c0  25 2b 31 3e 4b 72 25 8c  f2 43 28 22 4f 70 74 69  |%+1>Kr%..C("Opti|
0000a1d0  63 61 6c 22 2c 22 4e 6f  74 20 65 6e 6f 75 67 68  |cal","Not enough|
0000a1e0  20 6d 65 6d 6f 72 79 20  74 6f 20 6d 61 6b 65 20  | memory to make |
0000a1f0  6d 65 6e 75 73 21 22 29  3a e0 0d 73 9c 57 58 79  |menus!"):..s.WXy|
0000a200  25 21 38 2b 3d 31 3c 3c  38 3a 58 79 25 21 31 32  |%!8+=1<<8:Xy%!12|
0000a210  3d 75 5a 25 2b 55 4f 25  3a 58 79 25 21 31 36 3d  |=uZ%+UO%:Xy%!16=|
0000a220  2d 31 3a 58 79 25 21 32  30 3d 6b 79 25 2b 31 3a  |-1:Xy%!20=ky%+1:|
0000a230  24 28 75 5a 25 2b 55 4f  25 29 3d c0 5a 24 2c 6b  |$(uZ%+UO%)=.Z$,k|
0000a240  79 25 29 2b bd 30 3a 55  4f 25 2b 3d 6b 79 25 2b  |y%)+.0:UO%+=ky%+|
0000a250  31 0d 73 9d 18 cc 3a 24  28 58 79 25 2b 31 32 29  |1.s...:$(Xy%+12)|
0000a260  3d c0 5a 24 2c 6b 79 25  29 0d 73 9e 16 cd 3a e7  |=.Z$,ky%).s...:.|
0000a270  6b 79 25 3e 55 79 25 8c  55 79 25 3d 6b 79 25 0d  |ky%>Uy%.Uy%=ky%.|
0000a280  73 9f 0b 58 79 25 2b 3d  32 34 0d 73 a0 32 cb 3a  |s..Xy%+=24.s.2.:|
0000a290  ce 3a 4a 79 25 21 31 36  3d 31 36 2a 28 55 79 25  |.:Jy%!16=16*(Uy%|
0000a2a0  2b 31 29 3a 58 79 25 21  2d 32 34 3d 58 79 25 21  |+1):Xy%!-24=Xy%!|
0000a2b0  2d 32 34 84 31 32 38 3a  3d 4a 79 25 0d 73 a1 41  |-24.128:=Jy%.s.A|
0000a2c0  dd a4 66 28 5a 24 29 3a  ea 71 25 2c 65 61 25 3a  |..f(Z$):.q%,ea%:|
0000a2d0  71 25 3d 30 3a 65 61 25  3d 30 3a f5 3a 65 61 25  |q%=0:ea%=0:.:ea%|
0000a2e0  3d a7 5a 24 2c 22 2c 22  2c 65 61 25 2b 31 29 3a  |=.Z$,",",ea%+1):|
0000a2f0  e7 65 61 25 3c 3e 30 8c  71 25 2b 3d 31 0d 73 a2  |.ea%<>0.q%+=1.s.|
0000a300  0e fd 65 61 25 3d 30 3a  3d 71 25 0d 73 a3 15 dd  |..ea%=0:=q%.s...|
0000a310  f2 62 3a c8 99 26 34 30  30 64 34 2c 2d 31 3a e1  |.b:..&400d4,-1:.|
0000a320  0d 73 a4 42 dd f2 55 28  4a 79 25 2c 42 4a 25 29  |.s.B..U(Jy%,BJ%)|
0000a330  3a 4a 79 25 21 28 33 36  2b 28 42 4a 25 2d 31 29  |:Jy%!(36+(BJ%-1)|
0000a340  2a 32 34 29 3d 4a 79 25  21 28 33 36 2b 28 42 4a  |*24)=Jy%!(36+(BJ|
0000a350  25 2d 31 29 2a 32 34 29  84 28 31 3c 3c 32 32 29  |%-1)*24).(1<<22)|
0000a360  3a e1 0d 73 a5 3e dd f2  66 28 4a 79 25 2c 42 4a  |:..s.>..f(Jy%,BJ|
0000a370  25 29 3a 4a 79 25 21 28  32 38 2b 28 42 4a 25 2d  |%):Jy%!(28+(BJ%-|
0000a380  31 29 2a 32 34 29 3d 28  4a 79 25 21 28 32 38 2b  |1)*24)=(Jy%!(28+|
0000a390  28 42 4a 25 2d 31 29 2a  32 34 29 29 84 32 3a e1  |(BJ%-1)*24)).2:.|
0000a3a0  0d 73 a6 4e dd f2 52 28  4a 79 25 2c 42 4a 25 29  |.s.N..R(Jy%,BJ%)|
0000a3b0  3a f2 55 28 4a 79 25 2c  42 4a 25 29 3a 4a 79 25  |:.U(Jy%,BJ%):Jy%|
0000a3c0  21 28 33 36 2b 28 42 4a  25 2d 31 29 2a 32 34 29  |!(36+(BJ%-1)*24)|
0000a3d0  3d 4a 79 25 21 28 33 36  2b 28 42 4a 25 2d 31 29  |=Jy%!(36+(BJ%-1)|
0000a3e0  2a 32 34 29 82 28 31 3c  3c 32 32 29 3a e1 0d 73  |*24).(1<<22):..s|
0000a3f0  a7 70 dd f2 43 5f 28 4a  79 25 2c 42 4a 25 2c 78  |.p..C_(Jy%,BJ%,x|
0000a400  24 29 3a ea 72 25 2c 59  79 25 3a e7 28 21 28 4a  |$):.r%,Yy%:.(!(J|
0000a410  79 25 2b 28 33 36 2b 28  42 4a 25 2d 31 29 2a 32  |y%+(36+(BJ%-1)*2|
0000a420  34 29 29 80 28 31 3c 3c  38 29 29 8c 59 79 25 3d  |4)).(1<<8)).Yy%=|
0000a430  21 28 4a 79 25 2b 28 34  30 2b 28 42 4a 25 2d 31  |!(Jy%+(40+(BJ%-1|
0000a440  29 2a 32 34 29 29 8b 59  79 25 3d 4a 79 25 2b 28  |)*24)).Yy%=Jy%+(|
0000a450  34 30 2b 28 42 4a 25 2d  31 29 2a 32 34 29 0d 73  |40+(BJ%-1)*24).s|
0000a460  a8 2b e3 72 25 3d 30 b8  a9 28 78 24 29 2d 31 3a  |.+.r%=0..(x$)-1:|
0000a470  59 79 25 3f 72 25 3d 97  28 c1 78 24 2c 72 25 2b  |Yy%?r%=.(.x$,r%+|
0000a480  31 2c 31 29 29 3a ed 3a  e1 0d 73 a9 36 dd f2 54  |1,1)):.:..s.6..T|
0000a490  28 7a 50 25 2c 79 25 2c  68 25 29 3a 4a 79 25 3d  |(zP%,y%,h%):Jy%=|
0000a4a0  7a 50 25 3a c8 99 26 34  30 30 64 34 2c 2c 4a 79  |zP%:..&400d4,,Jy|
0000a4b0  25 2c 79 25 2d 36 34 2c  68 25 2b 32 30 3a e1 0d  |%,y%-64,h%+20:..|
0000a4c0  73 aa 3e dd f2 42 28 4a  79 25 2c 42 4a 25 29 3a  |s.>..B(Jy%,BJ%):|
0000a4d0  4a 79 25 21 28 32 38 2b  28 42 4a 25 2d 31 29 2a  |Jy%!(28+(BJ%-1)*|
0000a4e0  32 34 29 3d 28 4a 79 25  21 28 32 38 2b 28 42 4a  |24)=(Jy%!(28+(BJ|
0000a4f0  25 2d 31 29 2a 32 34 29  29 82 31 3a e1 0d 73 ab  |%-1)*24)).1:..s.|
0000a500  3e dd f2 4b 28 4a 79 25  2c 42 4a 25 29 3a 4a 79  |>..K(Jy%,BJ%):Jy|
0000a510  25 21 28 32 38 2b 28 42  4a 25 2d 31 29 2a 32 34  |%!(28+(BJ%-1)*24|
0000a520  29 3d 28 4a 79 25 21 28  32 38 2b 28 42 4a 25 2d  |)=(Jy%!(28+(BJ%-|
0000a530  31 29 2a 32 34 29 29 84  31 3a e1 0d 73 ac 41 dd  |1)*24)).1:..s.A.|
0000a540  f2 56 28 4a 79 25 2c 42  4a 25 29 3a 4a 79 25 21  |.V(Jy%,BJ%):Jy%!|
0000a550  28 32 38 2b 28 42 4a 25  2d 31 29 2a 32 34 29 3d  |(28+(BJ%-1)*24)=|
0000a560  28 4a 79 25 21 28 32 38  2b 28 42 4a 25 2d 31 29  |(Jy%!(28+(BJ%-1)|
0000a570  2a 32 34 29 29 80 28 ac  31 29 3a e1 0d 73 ad bf  |*24)).(.1):..s..|
0000a580  dd f2 73 75 28 4a 79 25  2c 42 4a 25 2c 74 41 25  |..su(Jy%,BJ%,tA%|
0000a590  2c 44 4a 25 2c 64 50 25  29 3a 4a 79 25 21 28 32  |,DJ%,dP%):Jy%!(2|
0000a5a0  38 2b 28 42 4a 25 2d 31  29 2a 32 34 29 3d 28 4a  |8+(BJ%-1)*24)=(J|
0000a5b0  79 25 21 28 32 38 2b 28  42 4a 25 2d 31 29 2a 32  |y%!(28+(BJ%-1)*2|
0000a5c0  34 29 29 84 34 3a 4a 79  25 21 28 33 36 2b 28 42  |4)).4:Jy%!(36+(B|
0000a5d0  4a 25 2d 31 29 2a 32 34  29 3d 4a 79 25 21 28 33  |J%-1)*24)=Jy%!(3|
0000a5e0  36 2b 28 42 4a 25 2d 31  29 2a 32 34 29 84 32 35  |6+(BJ%-1)*24).25|
0000a5f0  36 3a 4a 79 25 21 28 34  30 2b 28 42 4a 25 2d 31  |6:Jy%!(40+(BJ%-1|
0000a600  29 2a 32 34 29 3d 74 41  25 3a 4a 79 25 21 28 34  |)*24)=tA%:Jy%!(4|
0000a610  34 2b 28 42 4a 25 2d 31  29 2a 32 34 29 3d 44 4a  |4+(BJ%-1)*24)=DJ|
0000a620  25 3a 4a 79 25 21 28 34  38 2b 28 42 4a 25 2d 31  |%:Jy%!(48+(BJ%-1|
0000a630  29 2a 32 34 29 3d 64 50  25 3a e1 0d 73 ae 30 dd  |)*24)=dP%:..s.0.|
0000a640  f2 67 6c 3a f2 68 69 28  22 3c 4f 70 74 63 6c 50  |.gl:.hi("<OptclP|
0000a650  72 6f 24 44 69 72 3e 2e  53 70 72 69 74 65 73 22  |ro$Dir>.Sprites"|
0000a660  29 3a 7a 41 25 3d 4b 5f  25 3a e1 0d 73 af 7e dd  |):zA%=K_%:..s.~.|
0000a670  f2 68 69 28 52 79 24 29  3a ea 53 25 2c 54 25 3a  |.hi(Ry$):.S%,T%:|
0000a680  53 25 3d 8e 22 3c 4f 70  74 63 6c 50 72 6f 24 44  |S%=."<OptclPro$D|
0000a690  69 72 3e 2e 53 70 72 69  74 65 73 22 3a 54 25 3d  |ir>.Sprites":T%=|
0000a6a0  a2 23 53 25 2b 31 36 3a  d9 23 53 25 3a de 4b 5f  |.#S%+16:.#S%:.K_|
0000a6b0  25 54 25 2c 55 70 25 31  32 3a 21 4b 5f 25 3d 54  |%T%,Up%12:!K_%=T|
0000a6c0  25 3a 4b 5f 25 21 38 3d  30 3a c8 99 34 36 2c 32  |%:K_%!8=0:..46,2|
0000a6d0  36 35 2c 4b 5f 25 3a c8  99 34 36 2c 32 36 36 2c  |65,K_%:..46,266,|
0000a6e0  4b 5f 25 2c 52 79 24 3a  e1 0d 73 b0 14 dd a4 42  |K_%,Ry$:..s....B|
0000a6f0  79 28 73 5a 25 29 3a c8  8e 73 5a 25 ca 0d 73 b1  |y(sZ%):..sZ%..s.|
0000a700  11 c9 34 30 39 35 3a 3d  22 54 65 78 74 22 0d 73  |..4095:="Text".s|
0000a710  b2 11 c9 34 30 39 33 3a  3d 22 44 61 74 61 22 0d  |...4093:="Data".|
0000a720  73 b3 12 c9 34 30 39 31  3a 3d 22 42 61 73 69 63  |s...4091:="Basic|
0000a730  22 0d 73 b4 13 c9 34 30  38 39 3a 3d 22 53 70 72  |".s...4089:="Spr|
0000a740  69 74 65 22 0d 73 b5 14  c9 34 30 37 37 3a 3d 22  |ite".s...4077:="|
0000a750  50 61 6c 65 74 74 65 22  0d 73 b6 15 c9 34 30 37  |Palette".s...407|
0000a760  36 3a 3d 22 54 65 6d 70  6c 61 74 65 22 0d 73 b7  |6:="Template".s.|
0000a770  15 c9 32 39 35 39 3a 3d  22 4f 70 74 46 6f 6e 74  |..2959:="OptFont|
0000a780  73 22 0d 73 b8 11 c9 32  38 31 35 3a 3d 22 44 72  |s".s...2815:="Dr|
0000a790  61 77 22 0d 73 b9 15 c9  33 34 36 30 3a 3d 22 55  |aw".s...3460:="U|
0000a7a0  73 65 72 44 69 63 74 22  0d 73 ba 13 c9 34 30 39  |serDict".s...409|
0000a7b0  36 3a 3d 22 46 6f 6c 64  65 72 22 0d 73 bb 13 c9  |6:="Folder".s...|
0000a7c0  38 31 39 32 3a c8 8e a4  51 28 53 24 29 ca 0d 73  |8192:...Q(S$)..s|
0000a7d0  bc 1a c9 22 21 53 63 61  6e 6e 65 72 22 3a 3d 22  |..."!Scanner":="|
0000a7e0  53 63 61 6e 6e 65 72 22  0d 73 bd 1c c9 22 21 4a  |Scanner".s..."!J|
0000a7f0  75 6e 69 6f 72 22 3a 3d  22 49 6d 70 72 65 73 73  |unior":="Impress|
0000a800  69 6f 6e 22 0d 73 be 20  c9 22 21 49 6d 70 72 65  |ion".s. ."!Impre|
0000a810  73 73 69 6f 6e 22 3a 3d  22 49 6d 70 72 65 73 73  |ssion":="Impress|
0000a820  69 6f 6e 22 0d 73 bf 1b  c9 22 21 53 74 79 6c 65  |ion".s..."!Style|
0000a830  22 3a 3d 22 49 6d 70 72  65 73 73 69 6f 6e 22 0d  |":="Impression".|
0000a840  73 c0 1f c9 22 21 50 75  62 6c 69 73 68 65 72 22  |s..."!Publisher"|
0000a850  3a 3d 22 49 6d 70 72 65  73 73 69 6f 6e 22 0d 73  |:="Impression".s|
0000a860  c1 1f c9 22 21 50 75 62  6c 69 73 68 72 2b 22 3a  |..."!Publishr+":|
0000a870  3d 22 49 6d 70 72 65 73  73 69 6f 6e 22 0d 73 c2  |="Impression".s.|
0000a880  13 7f 3d 22 41 70 70 6c  69 63 61 74 69 6f 6e 22  |..="Application"|
0000a890  0d 73 c3 05 cb 0d 73 c4  0d 7f 3d c3 7e 28 73 5a  |.s....s...=.~(sZ|
0000a8a0  25 29 0d 73 c5 08 cb 3a  3d a3 0d 73 c6 5f dd a4  |%).s...:=..s._..|
0000a8b0  46 28 62 6f 25 29 3a ea  48 24 2c 5f 79 25 3a 48  |F(bo%):.H$,_y%:H|
0000a8c0  24 3d 22 22 3a 5f 79 25  3d 30 3a c8 95 28 3f 62  |$="":_y%=0:..(?b|
0000a8d0  6f 25 3c 3e 31 33 29 80  28 3f 62 6f 25 3c 3e 30  |o%<>13).(?bo%<>0|
0000a8e0  29 80 5f 79 25 3c 32 35  36 3a 48 24 2b 3d bd 28  |)._y%<256:H$+=.(|
0000a8f0  3f 62 6f 25 29 3a 62 6f  25 2b 3d 31 3a 5f 79 25  |?bo%):bo%+=1:_y%|
0000a900  2b 3d 31 3a ce 3a 3d 48  24 0d 73 c7 17 dd a4 51  |+=1:.:=H$.s....Q|
0000a910  28 64 24 29 3a c8 8e a7  64 24 2c 22 2e 22 29 ca  |(d$):...d$,".").|
0000a920  0d 73 c8 0a c9 30 3a 3d  64 24 0d 73 c9 1d 7f 3d  |.s...0:=d$.s...=|
0000a930  a4 51 28 c2 64 24 2c a9  28 64 24 29 2d a7 64 24  |.Q(.d$,.(d$)-.d$|
0000a940  2c 22 2e 22 29 29 29 0d  73 ca 08 cb 3a 3d a3 0d  |,"."))).s...:=..|
0000a950  73 cb 5b dd f2 47 69 28  58 79 24 2c 76 50 25 2c  |s.[..Gi(Xy$,vP%,|
0000a960  49 25 29 3a de 5a 25 76  50 25 2b 34 2c 4d 25 31  |I%):.Z%vP%+4,M%1|
0000a970  30 32 34 2c 6d 72 25 49  25 3a 5a 25 2b 3d 34 3a  |024,mr%I%:Z%+=4:|
0000a980  73 41 25 3d 6d 72 25 2b  49 25 3a 46 79 24 3d 58  |sA%=mr%+I%:Fy$=X|
0000a990  79 24 3a 68 41 25 3d 31  3a 7a 41 25 3d 31 3a f2  |y$:hA%=1:zA%=1:.|
0000a9a0  66 61 3a ee 85 f2 7a 75  3a e0 0d 73 cc 44 c8 99  |fa:...zu:..s.D..|
0000a9b0  26 34 30 30 63 30 2c 32  30 30 2c 26 34 62 35 33  |&400c0,200,&4b53|
0000a9c0  34 31 35 34 2c 58 79 24  b8 53 65 25 2c 72 6e 25  |4154,Xy$.Se%,rn%|
0000a9d0  3a 79 24 3d 22 54 65 6d  70 6c 61 74 65 73 22 3a  |:y$="Templates":|
0000a9e0  c8 99 26 38 33 36 63 30  2c 72 6e 25 3a e1 0d 73  |..&836c0,rn%:..s|
0000a9f0  cd 39 dd f2 66 61 3a de  4b 42 25 32 30 3a 59 25  |.9..fa:.KB%20:Y%|
0000aa00  3d 30 3a 48 72 25 3d 2d  32 3a 55 41 25 3d 30 3a  |=0:Hr%=-2:UA%=0:|
0000aa10  42 6c 25 3d 30 3a 4c 25  3d 30 3a 58 25 3d 30 3a  |Bl%=0:L%=0:X%=0:|
0000aa20  75 65 25 3d a3 3a e1 0d  73 ce 14 dd f2 7a 75 3a  |ue%=.:..s....zu:|
0000aa30  ea 55 79 24 2c 79 25 3a  ee 85 87 0d 73 cf 8a 79  |.Uy$,y%:....s..y|
0000aa40  25 3d 9e 3a 55 79 24 3d  f6 24 2b 22 61 74 6c 69  |%=.:Uy$=.$+"atli|
0000aa50  6e 65 22 2b c3 28 79 25  81 31 30 29 3a de 76 60  |ne"+.(y%.10):.v`|
0000aa60  25 33 36 3a 76 60 25 21  30 3d 33 36 3a 76 60 25  |%36:v`%!0=36:v`%|
0000aa70  21 31 32 3d 30 3a 76 60  25 21 31 36 3d 26 38 31  |!12=0:v`%!16=&81|
0000aa80  30 38 30 3a 76 60 25 21  32 30 3d 79 25 3a 24 28  |080:v`%!20=y%:$(|
0000aa90  76 60 25 2b 32 34 29 3d  22 21 52 75 6e 49 6d 61  |v`%+24)="!RunIma|
0000aaa0  67 65 22 3a c8 99 26 34  30 30 65 37 2c 31 37 2c  |ge":..&400e7,17,|
0000aab0  76 60 25 3a f2 58 28 46  79 24 2c 55 79 24 29 3a  |v`%:.X(Fy$,Uy$):|
0000aac0  f2 51 79 3a e1 0d 73 d0  20 dd f2 51 79 3a e7 78  |.Qy:..s. ..Qy:.x|
0000aad0  4a 25 3c 3e 32 35 36 c8  99 22 58 53 63 61 6e 5f  |J%<>256.."XScan_|
0000aae0  53 74 6f 70 22 0d 73 d1  21 e7 70 6c 25 3c 3e 32  |Stop".s.!.pl%<>2|
0000aaf0  35 36 80 6c 79 25 3c 78  4a 25 c8 99 26 36 31 64  |56.ly%<xJ%..&61d|
0000ab00  63 35 2c 6c 79 25 0d 73  d2 2d f2 59 28 22 22 29  |c5,ly%.s.-.Y("")|
0000ab10  3a c8 99 26 38 33 36 63  31 2c 72 6e 25 3a c8 99  |:..&836c1,rn%:..|
0000ab20  26 34 30 30 64 64 2c 72  6e 25 2c 22 54 41 53 4b  |&400dd,rn%,"TASK|
0000ab30  22 3a e1 0d 73 d3 6b dd  f2 76 69 3a ea 6a 5a 25  |":..s.k..vi:.jZ%|
0000ab40  2c 50 65 25 2c 46 41 25  3a 6d 61 25 3d a3 3a 54  |,Pe%,FA%:ma%=.:T|
0000ab50  50 25 3d a3 3a 6a 5a 25  3d 36 31 34 34 3a f5 3a  |P%=.:jZ%=6144:.:|
0000ab60  c8 99 26 34 30 30 63 37  2c 6a 5a 25 2c 5a 25 b8  |..&400c7,jZ%,Z%.|
0000ab70  50 65 25 2c 76 6f 25 3a  e7 21 69 5f 3c 3e 30 80  |Pe%,vo%:.!i_<>0.|
0000ab80  21 78 79 3c 3e 30 80 21  76 3c 3e 30 80 76 21 34  |!xy<>0.!v<>0.v!4|
0000ab90  3c 3e 30 80 76 21 38 3c  3e 30 8c f2 59 75 0d 73  |<>0.v!8<>0..Yu.s|
0000aba0  d4 14 e7 21 78 79 8c 21  78 79 3d 30 3a 69 5f 25  |...!xy.!xy=0:i_%|
0000abb0  3d a3 0d 73 d5 29 21 28  5a 25 2d 34 29 3d 50 65  |=..s.)!(Z%-4)=Pe|
0000abc0  25 3a c8 99 26 38 33 36  63 32 2c 5a 25 2d 34 b8  |%:..&836c2,Z%-4.|
0000abd0  46 41 25 3a e7 46 41 25  3d a3 8c 0d 73 d6 0a c8  |FA%:.FA%=...s...|
0000abe0  8e 50 65 25 ca 0d 73 d7  0a c9 30 3a f2 7a 61 0d  |.Pe%..s...0:.za.|
0000abf0  73 d8 0a c9 31 3a f2 5f  6c 0d 73 d9 13 c9 32 3a  |s...1:._l.s...2:|
0000ac00  f2 71 3a f2 44 79 3a e7  50 6e 25 8c 0d 73 da 46  |.q:.Dy:.Pn%..s.F|
0000ac10  4d 25 21 34 3d 5a 25 21  34 3a 4d 25 21 38 3d 5a  |M%!4=Z%!4:M%!8=Z|
0000ac20  25 21 38 3a 4d 25 21 31  32 3d 5a 25 21 31 32 3a  |%!8:M%!12=Z%!12:|
0000ac30  4d 25 21 31 36 3d 5a 25  21 31 36 3a c8 99 26 34  |M%!16=Z%!16:..&4|
0000ac40  30 30 63 35 2c 2c 5a 25  3a e7 5a 25 21 30 3d 6b  |00c5,,Z%:.Z%!0=k|
0000ac50  25 8c 0d 73 db 51 c8 99  26 34 30 30 63 62 2c 2c  |%..s.Q..&400cb,,|
0000ac60  5a 25 3a e7 4d 25 21 34  3c 3e 5a 25 21 34 84 4d  |Z%:.M%!4<>Z%!4.M|
0000ac70  25 21 38 3c 3e 5a 25 21  38 84 4d 25 21 31 32 3c  |%!8<>Z%!8.M%!12<|
0000ac80  3e 5a 25 21 31 32 84 4d  25 21 31 36 3c 3e 5a 25  |>Z%!12.M%!16<>Z%|
0000ac90  21 31 36 f2 44 79 3a c8  99 26 34 30 30 63 35 2c  |!16.Dy:..&400c5,|
0000aca0  2c 5a 25 0d 73 dc 05 cd  0d 73 dd 18 cd 3a e7 5a  |,Z%.s....s...:.Z|
0000acb0  25 21 30 3d 65 25 80 53  6b 25 3d 2d 35 f2 46 4a  |%!0=e%.Sk%=-5.FJ|
0000acc0  0d 73 de 0a c9 33 3a f2  75 75 0d 73 df 0a c9 34  |.s...3:.uu.s...4|
0000acd0  3a f2 4a 6e 0d 73 e0 0a  c9 35 3a f2 44 5f 0d 73  |:.Jn.s...5:.D_.s|
0000ace0  e1 0a c9 36 3a f2 6f 6c  0d 73 e2 0a c9 37 3a f2  |...6:.ol.s...7:.|
0000acf0  73 69 0d 73 e3 0a c9 38  3a f2 6a 61 0d 73 e4 0f  |si.s...8:.ja.s..|
0000ad00  c9 39 3a f2 42 75 28 4a  79 25 29 0d 73 e5 0b c9  |.9:.Bu(Jy%).s...|
0000ad10  31 30 3a f2 55 6c 0d 73  e6 07 c9 31 31 0d 73 e7  |10:.Ul.s...11.s.|
0000ad20  07 c9 31 32 0d 73 e8 0e  c9 31 37 2c 31 38 3a f2  |..12.s...17,18:.|
0000ad30  69 61 0d 73 e9 07 c9 31  39 0d 73 ea 05 cb 0d 73  |ia.s...19.s....s|
0000ad40  eb 0c cd 3a fd 6d 61 25  3a e1 0d 73 ec 14 dd f2  |...:.ma%:..s....|
0000ad50  5f 6c 3a ea 64 25 3a e7  48 6f 25 f2 56 5f 0d 73  |_l:.d%:.Ho%.V_.s|
0000ad60  ed 96 c8 99 26 34 30 30  63 38 2c 2c 5a 25 b8 64  |....&400c8,,Z%.d|
0000ad70  25 3a 59 25 3d 5a 25 21  30 3a 4c 25 3d 5a 25 21  |%:Y%=Z%!0:L%=Z%!|
0000ad80  34 2d 5a 25 21 32 30 3a  58 25 3d 5a 25 21 31 36  |4-Z%!20:X%=Z%!16|
0000ad90  2d 5a 25 21 32 34 3a 4f  79 25 3d 5a 25 21 32 38  |-Z%!24:Oy%=Z%!28|
0000ada0  2d 28 5a 25 21 34 2d 5a  25 21 32 30 29 3a 64 79  |-(Z%!4-Z%!20):dy|
0000adb0  25 3d 5a 25 21 33 36 2d  28 5a 25 21 34 2d 5a 25  |%=Z%!36-(Z%!4-Z%|
0000adc0  21 32 30 29 3a 47 79 25  3d 58 25 2d 5a 25 21 33  |!20):Gy%=X%-Z%!3|
0000add0  32 3a 4c 79 25 3d 58 25  2d 5a 25 21 34 30 3a e7  |2:Ly%=X%-Z%!40:.|
0000ade0  59 25 3d 65 25 80 28 6a  79 25 84 44 79 25 29 58  |Y%=e%.(jy%.Dy%)X|
0000adf0  61 25 3d b9 0d 73 ee 8f  c8 95 64 25 3a f2 4b 69  |a%=..s....d%:.Ki|
0000ae00  28 59 25 2c 4c 25 2c 58  25 29 3a c8 99 26 34 30  |(Y%,L%,X%):..&40|
0000ae10  30 63 61 2c 2c 5a 25 b8  64 25 3a 4c 25 3d 5a 25  |0ca,,Z%.d%:L%=Z%|
0000ae20  21 34 2d 5a 25 21 32 30  3a 58 25 3d 5a 25 21 31  |!4-Z%!20:X%=Z%!1|
0000ae30  36 2d 5a 25 21 32 34 3a  4f 79 25 3d 5a 25 21 32  |6-Z%!24:Oy%=Z%!2|
0000ae40  38 2d 28 5a 25 21 34 2d  5a 25 21 32 30 29 3a 64  |8-(Z%!4-Z%!20):d|
0000ae50  79 25 3d 5a 25 21 33 36  2d 28 5a 25 21 34 2d 5a  |y%=Z%!36-(Z%!4-Z|
0000ae60  25 21 32 30 29 3a 47 79  25 3d 58 25 2d 5a 25 21  |%!20):Gy%=X%-Z%!|
0000ae70  33 32 3a 4c 79 25 3d 58  25 2d 5a 25 21 34 30 3a  |32:Ly%=X%-Z%!40:|
0000ae80  ce 3a e1 0d 73 ef 34 dd  f2 75 75 3a c8 99 26 34  |.:..s.4..uu:..&4|
0000ae90  30 30 63 66 2c 2c 5a 25  3a 59 25 3d 5a 25 21 31  |00cf,,Z%:Y%=Z%!1|
0000aea0  32 3a 76 5a 25 3d 5a 25  21 38 3a e7 a4 69 28 59  |2:vZ%=Z%!8:..i(Y|
0000aeb0  25 2c 76 5a 25 29 8c 0d  73 f0 0c e7 a4 53 28 59  |%,vZ%)..s....S(Y|
0000aec0  25 29 8c 0d 73 f1 17 21  5a 25 3d 59 25 3a c8 99  |%)..s..!Z%=Y%:..|
0000aed0  26 34 30 30 63 36 2c 2c  5a 25 0d 73 f2 05 cd 0d  |&400c6,,Z%.s....|
0000aee0  73 f3 07 cd 3a e1 0d 73  f4 38 dd f2 6f 6c 3a 62  |s...:..s.8..ol:b|
0000aef0  25 3d 5a 25 21 38 3a 59  25 3d 5a 25 21 31 32 3a  |%=Z%!8:Y%=Z%!12:|
0000af00  49 25 3d 5a 25 21 31 36  3a 79 25 3d 5a 25 21 30  |I%=Z%!16:y%=Z%!0|
0000af10  3a 68 25 3d 5a 25 21 34  3a c8 8e 62 25 ca 0d 73  |:h%=Z%!4:..b%..s|
0000af20  f5 0a c9 32 3a f2 6c 61  0d 73 f6 0e 7f c8 8e a4  |...2:.la.s......|
0000af30  64 28 59 25 29 ca 0d 73  f7 0a c9 b9 3a f2 60 61  |d(Y%)..s....:.`a|
0000af40  0d 73 f8 38 c9 a3 3a e7  59 25 3d 49 4a 25 80 49  |.s.8..:.Y%=IJ%.I|
0000af50  25 3d 34 80 28 62 25 80  38 30 29 f2 58 4a 28 59  |%=4.(b%.80).XJ(Y|
0000af60  25 2c 49 25 2c 22 73 77  69 74 63 68 65 72 22 29  |%,I%,"switcher")|
0000af70  3a 43 6b 25 3d b9 3a e1  0d 73 f9 17 f2 73 4a 28  |:Ck%=.:..s...sJ(|
0000af80  59 25 2c 49 25 2c 62 25  2c 79 25 2c 68 25 29 0d  |Y%,I%,b%,y%,h%).|
0000af90  73 fa 05 cb 0d 73 fb 07  cb 3a e1 0d 73 fc 56 dd  |s....s...:..s.V.|
0000afa0  a4 75 28 59 25 2c 49 25  29 3a 5a 25 21 30 3d 59  |.u(Y%,I%):Z%!0=Y|
0000afb0  25 3a 5a 25 21 34 3d 49  25 3a c8 99 26 34 30 30  |%:Z%!4=I%:..&400|
0000afc0  63 65 2c 2c 5a 25 3a e7  28 28 5a 25 21 32 34 29  |ce,,Z%:.((Z%!24)|
0000afd0  80 32 35 36 29 3d 30 84  28 28 5a 25 21 32 34 29  |.256)=0.((Z%!24)|
0000afe0  80 31 29 3d 30 84 5a 25  21 33 32 3d 2d 31 8c 3d  |.1)=0.Z%!32=-1.=|
0000aff0  a3 0d 73 fd 1a 3d a7 24  28 5a 25 21 33 32 29 2c  |..s..=.$(Z%!32),|
0000b000  22 70 74 72 5f 6d 65 6e  75 22 29 0d 73 fe 1a dd  |"ptr_menu").s...|
0000b010  f2 6c 61 3a 4a 79 25 3d  a4 74 28 59 25 29 3a c8  |.la:Jy%=.t(Y%):.|
0000b020  8e 4a 79 25 ca 0d 73 ff  25 c9 a3 3a e7 a4 75 28  |.Jy%..s.%..:..u(|
0000b030  59 25 2c 49 25 29 8c f2  73 4a 28 59 25 2c 49 25  |Y%,I%)..sJ(Y%,I%|
0000b040  2c 62 25 2c 79 25 2c 68  25 29 0d 74 00 0b 7f 3a  |,b%,y%,h%).t...:|
0000b050  c8 8e 59 25 ca 0d 74 01  52 c9 2d 32 3a 71 25 3d  |..Y%..t.R.-2:q%=|
0000b060  30 3a c8 95 28 28 42 6c  25 21 28 32 38 2b 71 25  |0:..((Bl%!(28+q%|
0000b070  2a 32 34 29 29 80 31 32  38 29 3d 30 3a 71 25 2b  |*24)).128)=0:q%+|
0000b080  3d 31 3a ce 3a c8 99 26  34 30 30 64 34 2c 2c 42  |=1:.:..&400d4,,B|
0000b090  6c 25 2c 79 25 2d 36 34  2c 31 34 30 2b 71 25 2a  |l%,y%-64,140+q%*|
0000b0a0  34 34 2b 32 2a 32 34 0d  74 02 1e 7f c8 99 26 34  |44+2*24.t.....&4|
0000b0b0  30 30 64 34 2c 2c 4a 79  25 2c 79 25 2d 36 34 2c  |00d4,,Jy%,y%-64,|
0000b0c0  68 25 2b 32 30 0d 74 03  05 cb 0d 74 04 07 cb 3a  |h%+20.t....t...:|
0000b0d0  e1 0d 74 05 33 dd f2 60  61 3a e7 49 25 3e 3d 34  |..t.3..`a:.I%>=4|
0000b0e0  80 49 25 3c 3d 37 80 62  25 3d 31 f2 53 28 53 61  |.I%<=7.b%=1.S(Sa|
0000b0f0  76 65 54 65 78 74 5f 57  69 6e 64 6f 77 25 2c 49  |veText_Window%,I|
0000b100  25 2c b9 29 0d 74 06 09  c8 8e 49 25 ca 0d 74 07  |%,.).t....I%..t.|
0000b110  21 c9 33 3a e7 59 25 3d  53 61 76 65 54 65 78 74  |!.3:.Y%=SaveText|
0000b120  5f 57 69 6e 64 6f 77 25  8c f2 6f 79 3a e1 0d 74  |_Window%..oy:..t|
0000b130  08 1b e7 59 25 3d 53 61  76 65 46 5f 57 69 6e 64  |...Y%=SaveF_Wind|
0000b140  6f 77 25 8c f2 77 79 3a  e1 0d 74 09 12 e7 62 25  |ow%..wy:..t...b%|
0000b150  80 38 30 8c f2 69 75 28  59 25 29 0d 74 0a 21 c9  |.80..iu(Y%).t.!.|
0000b160  32 3a e7 59 25 3d 53 61  76 65 54 65 78 74 5f 57  |2:.Y%=SaveText_W|
0000b170  69 6e 64 6f 77 25 8c f2  6f 79 3a e1 0d 74 0b 1b  |indow%..oy:..t..|
0000b180  e7 59 25 3d 53 61 76 65  46 5f 57 69 6e 64 6f 77  |.Y%=SaveF_Window|
0000b190  25 8c f2 77 79 3a e1 0d  74 0c 11 e7 62 25 80 35  |%..wy:..t...b%.5|
0000b1a0  8c f2 78 4a 28 59 25 29  0d 74 0d 71 c9 34 3a f2  |..xJ(Y%).t.q.4:.|
0000b1b0  6f 28 53 61 76 65 54 65  78 74 5f 57 69 6e 64 6f  |o(SaveText_Windo|
0000b1c0  77 25 2c 33 2c 22 53 66  69 6c 65 5f 66 66 66 22  |w%,3,"Sfile_fff"|
0000b1d0  29 3a f2 5a 28 53 61 76  65 54 65 78 74 5f 57 69  |):.Z(SaveText_Wi|
0000b1e0  6e 64 6f 77 25 2c 31 30  29 3a f2 5a 28 53 61 76  |ndow%,10):.Z(Sav|
0000b1f0  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 31 31  |eText_Window%,11|
0000b200  29 3a f2 5a 28 53 61 76  65 54 65 78 74 5f 57 69  |):.Z(SaveText_Wi|
0000b210  6e 64 6f 77 25 2c 31 32  29 0d 74 0e 71 c9 35 3a  |ndow%,12).t.q.5:|
0000b220  f2 6f 28 53 61 76 65 54  65 78 74 5f 57 69 6e 64  |.o(SaveText_Wind|
0000b230  6f 77 25 2c 33 2c 22 53  66 69 6c 65 5f 66 65 34  |ow%,3,"Sfile_fe4|
0000b240  22 29 3a f2 46 28 53 61  76 65 54 65 78 74 5f 57  |"):.F(SaveText_W|
0000b250  69 6e 64 6f 77 25 2c 31  30 29 3a f2 46 28 53 61  |indow%,10):.F(Sa|
0000b260  76 65 54 65 78 74 5f 57  69 6e 64 6f 77 25 2c 31  |veText_Window%,1|
0000b270  31 29 3a f2 46 28 53 61  76 65 54 65 78 74 5f 57  |1):.F(SaveText_W|
0000b280  69 6e 64 6f 77 25 2c 31  32 29 0d 74 0f 71 c9 36  |indow%,12).t.q.6|
0000b290  3a f2 6f 28 53 61 76 65  54 65 78 74 5f 57 69 6e  |:.o(SaveText_Win|
0000b2a0  64 6f 77 25 2c 33 2c 22  53 66 69 6c 65 5f 66 66  |dow%,3,"Sfile_ff|
0000b2b0  66 22 29 3a f2 46 28 53  61 76 65 54 65 78 74 5f  |f"):.F(SaveText_|
0000b2c0  57 69 6e 64 6f 77 25 2c  31 30 29 3a f2 46 28 53  |Window%,10):.F(S|
0000b2d0  61 76 65 54 65 78 74 5f  57 69 6e 64 6f 77 25 2c  |aveText_Window%,|
0000b2e0  31 31 29 3a f2 46 28 53  61 76 65 54 65 78 74 5f  |11):.F(SaveText_|
0000b2f0  57 69 6e 64 6f 77 25 2c  31 32 29 0d 74 10 71 c9  |Window%,12).t.q.|
0000b300  37 3a f2 6f 28 53 61 76  65 54 65 78 74 5f 57 69  |7:.o(SaveText_Wi|
0000b310  6e 64 6f 77 25 2c 33 2c  22 53 66 69 6c 65 5f 64  |ndow%,3,"Sfile_d|
0000b320  66 65 22 29 3a f2 5a 28  53 61 76 65 54 65 78 74  |fe"):.Z(SaveText|
0000b330  5f 57 69 6e 64 6f 77 25  2c 31 30 29 3a f2 5a 28  |_Window%,10):.Z(|
0000b340  53 61 76 65 54 65 78 74  5f 57 69 6e 64 6f 77 25  |SaveText_Window%|
0000b350  2c 31 31 29 3a f2 5a 28  53 61 76 65 54 65 78 74  |,11):.Z(SaveText|
0000b360  5f 57 69 6e 64 6f 77 25  2c 31 32 29 0d 74 11 07  |_Window%,12).t..|
0000b370  cb 3a e1 0d 74 12 90 dd  f2 6f 79 3a f2 58 28 22  |.:..t....oy:.X("|
0000b380  4d 65 73 73 61 67 65 20  66 72 6f 6d 20 4f 70 74  |Message from Opt|
0000b390  69 63 61 6c 22 2c 22 54  65 78 74 20 63 61 6e 6e  |ical","Text cann|
0000b3a0  6f 74 20 62 65 20 73 61  76 65 64 20 66 72 6f 6d  |ot be saved from|
0000b3b0  20 74 68 69 73 20 76 65  72 73 69 6f 6e 20 6f 66  | this version of|
0000b3c0  20 4f 70 74 69 63 61 6c  2e 20 46 6f 72 20 61 20  | Optical. For a |
0000b3d0  66 75 6c 6c 20 76 65 72  73 69 6f 6e 20 70 6c 65  |full version ple|
0000b3e0  61 73 65 20 63 6f 6e 74  61 63 74 20 4e 65 75 72  |ase contact Neur|
0000b3f0  6f 74 72 6f 6e 20 53 6f  66 74 77 61 72 65 2e 22  |otron Software."|
0000b400  29 3a e1 0d 74 13 45 dd  f2 78 4a 28 59 25 29 3a  |):..t.E..xJ(Y%):|
0000b410  ea 53 24 3a 5a 25 21 30  3d 59 25 3a 5a 25 21 34  |.S$:Z%!0=Y%:Z%!4|
0000b420  3d 31 3a c8 99 26 34 30  30 63 65 2c 2c 5a 25 3a  |=1:..&400ce,,Z%:|
0000b430  53 24 3d 24 28 5a 25 21  32 38 29 3a e7 a7 53 24  |S$=$(Z%!28):..S$|
0000b440  2c 22 2e 22 29 3d 30 8c  0d 74 14 4d f2 58 28 22  |,".")=0..t.M.X("|
0000b450  4d 65 73 73 61 67 65 20  66 72 6f 6d 20 4f 70 74  |Message from Opt|
0000b460  69 63 61 6c 22 2c 22 54  6f 20 73 61 76 65 2c 20  |ical","To save, |
0000b470  64 72 61 67 20 74 68 65  20 69 63 6f 6e 20 74 6f  |drag the icon to|
0000b480  20 61 20 64 69 72 65 63  74 6f 72 79 20 77 69 6e  | a directory win|
0000b490  64 6f 77 22 29 0d 74 15  0b cc 3a c8 8e 59 25 ca  |dow").t...:..Y%.|
0000b4a0  0d 74 16 31 c9 53 61 76  65 54 65 78 74 5f 57 69  |.t.1.SaveText_Wi|
0000b4b0  6e 64 6f 77 25 3a f2 6f  79 3a f2 4d 28 53 61 76  |ndow%:.oy:.M(Sav|
0000b4c0  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 29 3a f2  |eText_Window%):.|
0000b4d0  62 0d 74 17 2b c9 53 61  76 65 46 5f 57 69 6e 64  |b.t.+.SaveF_Wind|
0000b4e0  6f 77 25 3a f2 77 79 3a  f2 4d 28 53 61 76 65 46  |ow%:.wy:.M(SaveF|
0000b4f0  5f 57 69 6e 64 6f 77 25  29 3a f2 62 0d 74 18 05  |_Window%):.b.t..|
0000b500  cb 0d 74 19 07 cd 3a e1  0d 74 1a 33 dd f2 69 75  |..t...:..t.3..iu|
0000b510  28 59 25 29 3a 75 65 25  3d b9 3a f2 58 4a 28 59  |(Y%):ue%=.:.XJ(Y|
0000b520  25 2c 49 25 2c c2 a4 77  28 59 25 2c 33 29 2c 38  |%,I%,..w(Y%,3),8|
0000b530  29 29 3a 67 61 25 3d 59  25 3a e1 0d 74 1b 2b dd  |)):ga%=Y%:..t.+.|
0000b540  f2 6a 61 3a 59 25 3d 5a  25 21 30 3a 49 25 3d 5a  |.ja:Y%=Z%!0:I%=Z|
0000b550  25 21 34 3a 6a 25 3d 5a  25 21 32 34 3a c8 8e a4  |%!4:j%=Z%!24:...|
0000b560  64 28 59 25 29 ca 0d 74  1c 36 c9 b9 3a e7 6a 25  |d(Y%)..t.6..:.j%|
0000b570  3d 31 33 f2 53 28 59 25  2c 32 2c 31 29 3a f2 78  |=13.S(Y%,2,1):.x|
0000b580  4a 28 59 25 29 3a f2 53  28 59 25 2c 32 2c 30 29  |J(Y%):.S(Y%,2,0)|
0000b590  8b c8 99 26 34 30 30 64  63 2c 6a 25 0d 74 1d 14  |...&400dc,j%.t..|
0000b5a0  c9 a3 3a f2 60 69 28 59  25 2c 49 25 2c 6a 25 29  |..:.`i(Y%,I%,j%)|
0000b5b0  0d 74 1e 07 cb 3a e1 0d  74 1f 15 dd f2 73 69 3a  |.t...:..t....si:|
0000b5c0  e7 4e 6f 25 c8 99 26 36  32 34 30 31 0d 74 20 1e  |.No%..&62401.t .|
0000b5d0  e7 6d 75 25 84 4f 6c 25  8c f2 50 6e 3a 6d 75 25  |.mu%.Ol%..Pn:mu%|
0000b5e0  3d a3 3a 4f 6c 25 3d a3  3a e1 0d 74 21 14 e7 50  |=.:Ol%=.:..t!..P|
0000b5f0  6c 25 8c 50 6c 25 3d a3  3a f2 6b 6c 3a e1 0d 74  |l%.Pl%=.:.kl:..t|
0000b600  22 14 e7 5a 6c 25 8c f2  4d 61 3a 5a 6c 25 3d a3  |"..Zl%..Ma:Zl%=.|
0000b610  3a e1 0d 74 23 14 e7 47  61 25 8c f2 4f 6c 3a 47  |:..t#..Ga%..Ol:G|
0000b620  61 25 3d a3 3a e1 0d 74  24 10 e7 56 4f 25 8c 56  |a%=.:..t$..VO%.V|
0000b630  4f 25 3d a3 3a e1 0d 74  25 59 ea 53 24 2c 59 25  |O%=.:..t%Y.S$,Y%|
0000b640  2c 49 25 2c 79 25 2c 68  25 3a c8 99 26 34 30 30  |,I%,y%,h%:..&400|
0000b650  63 66 2c 2c 5a 25 3a 59  25 3d 5a 25 21 31 32 3a  |cf,,Z%:Y%=Z%!12:|
0000b660  49 25 3d 5a 25 21 31 36  3a 79 25 3d 5a 25 21 30  |I%=Z%!16:y%=Z%!0|
0000b670  3a 68 25 3d 5a 25 21 34  3a e7 43 6b 25 f2 6b 69  |:h%=Z%!4:.Ck%.ki|
0000b680  28 59 25 2c 49 25 2c 79  25 2c 68 25 29 3a e1 0d  |(Y%,I%,y%,h%):..|
0000b690  74 26 2e 64 72 25 3d 30  3a e7 67 61 25 3d 53 61  |t&.dr%=0:.ga%=Sa|
0000b6a0  76 65 46 5f 57 69 6e 64  6f 77 25 8c 63 4f 25 3d  |veF_Window%.cO%=|
0000b6b0  34 2b 38 2a 21 28 41 25  28 75 25 29 29 0d 74 27  |4+8*!(A%(u%)).t'|
0000b6c0  e4 52 6b 25 3d 59 25 3a  65 6f 25 3d 49 25 3a 47  |.Rk%=Y%:eo%=I%:G|
0000b6d0  5a 25 3d 79 25 3a 4e 5a  25 3d 68 25 3a 5a 25 21  |Z%=y%:NZ%=h%:Z%!|
0000b6e0  30 3d 67 61 25 3a 5a 25  21 34 3d 31 3a c8 99 26  |0=ga%:Z%!4=1:..&|
0000b6f0  34 30 30 63 65 2c 2c 5a  25 3a 53 24 3d 24 28 5a  |400ce,,Z%:S$=$(Z|
0000b700  25 21 32 38 29 3a 53 24  3d a4 51 28 53 24 29 3a  |%!28):S$=.Q(S$):|
0000b710  56 5a 25 3d a0 28 22 26  22 2b c2 a4 77 28 67 61  |VZ%=.("&"+..w(ga|
0000b720  25 2c 33 29 2c 33 29 29  3a 5a 25 21 30 3d 36 34  |%,3),3)):Z%!0=64|
0000b730  3a 5a 25 21 31 32 3d 30  3a 5a 25 21 31 36 3d 31  |:Z%!12=0:Z%!16=1|
0000b740  3a 5a 25 21 32 30 3d 52  6b 25 3a 5a 25 21 32 34  |:Z%!20=Rk%:Z%!24|
0000b750  3d 65 6f 25 3a 5a 25 21  32 38 3d 47 5a 25 3a 5a  |=eo%:Z%!28=GZ%:Z|
0000b760  25 21 33 32 3d 4e 5a 25  3a 5a 25 21 33 36 3d 63  |%!32=NZ%:Z%!36=c|
0000b770  4f 25 3a 5a 25 21 34 30  3d 56 5a 25 3a 24 28 5a  |O%:Z%!40=VZ%:$(Z|
0000b780  25 2b 34 34 29 3d 53 24  3a c8 99 26 34 30 30 65  |%+44)=S$:..&400e|
0000b790  37 2c 31 38 2c 5a 25 2c  52 6b 25 2c 65 6f 25 3a  |7,18,Z%,Rk%,eo%:|
0000b7a0  e1 0d 74 28 23 dd f2 69  61 3a 75 65 25 3d a3 3a  |..t(#..ia:ue%=.:|
0000b7b0  ea 53 24 2c 4f 79 24 2c  44 5a 25 3a c8 8e 5a 25  |.S$,Oy$,DZ%:..Z%|
0000b7c0  21 31 36 ca 0d 74 29 0c  c9 30 3a 6d 61 25 3d b9  |!16..t)..0:ma%=.|
0000b7d0  0d 74 2a 17 c9 31 3a 53  24 3d a4 46 28 5a 25 2b  |.t*..1:S$=.F(Z%+|
0000b7e0  34 34 29 3a f2 5a 61 0d  74 2b 3a c9 32 3a 53 24  |44):.Za.t+:.2:S$|
0000b7f0  3d a4 46 28 5a 25 2b 34  34 29 3a 60 6e 25 3d 5a  |=.F(Z%+44):`n%=Z|
0000b800  25 21 38 3a 6d 41 25 3d  5a 25 21 34 3a e7 53 24  |%!8:mA%=Z%!4:.S$|
0000b810  3c 3e 22 3c 57 69 6d 70  24 53 63 72 61 70 3e 22  |<>"<Wimp$Scrap>"|
0000b820  8c 0d 74 2c 70 5a 25 21  30 3d 67 61 25 3a 5a 25  |..t,pZ%!0=ga%:Z%|
0000b830  21 34 3d 31 3a c8 99 26  34 30 30 63 65 2c 2c 5a  |!4=1:..&400ce,,Z|
0000b840  25 3a 24 28 5a 25 21 32  38 29 3d 53 24 3a 5a 25  |%:$(Z%!28)=S$:Z%|
0000b850  21 30 3d 67 61 25 3a 5a  25 21 34 3d 31 3a 5a 25  |!0=ga%:Z%!4=1:Z%|
0000b860  21 38 3d 30 3a 5a 25 21  31 32 3d 30 3a c8 99 26  |!8=0:Z%!12=0:..&|
0000b870  34 30 30 63 64 2c 2c 5a  25 3a c8 99 26 36 30 30  |400cd,,Z%:..&600|
0000b880  64 32 2c 67 61 25 2c 31  2c 2c 2c 2d 31 2c a9 53  |d2,ga%,1,,,-1,.S|
0000b890  24 0d 74 2d 11 cd 3a f2  6c 75 28 53 24 2c 67 61  |$.t-..:.lu(S$,ga|
0000b8a0  25 29 0d 74 2e 5f c9 33  3a 53 24 3d a4 46 28 5a  |%).t._.3:S$=.F(Z|
0000b8b0  25 2b 34 34 29 3a 52 24  3d a4 42 79 28 5a 25 21  |%+44):R$=.By(Z%!|
0000b8c0  34 30 29 3a 59 25 3d 5a  25 21 32 30 3a 5a 25 21  |40):Y%=Z%!20:Z%!|
0000b8d0  31 32 3d 5a 25 21 38 3a  5a 25 21 31 36 3d 34 3a  |12=Z%!8:Z%!16=4:|
0000b8e0  c8 99 26 34 30 30 65 37  2c 31 39 2c 5a 25 2c 5a  |..&400e7,19,Z%,Z|
0000b8f0  25 21 34 3a f2 61 61 28  53 24 2c 52 24 2c 59 25  |%!4:.aa(S$,R$,Y%|
0000b900  29 0d 74 2f 0b c9 35 3a  e7 a4 6e 8c 0d 74 30 2a  |).t/..5:..n..t0*|
0000b910  53 24 3d a4 46 28 5a 25  2b 34 34 29 3a c8 99 26  |S$=.F(Z%+44):..&|
0000b920  34 30 36 63 30 3a f2 5a  75 28 53 24 29 3a c8 99  |406c0:.Zu(S$):..|
0000b930  26 34 30 36 63 31 0d 74  31 05 cd 0d 74 32 2c c9  |&406c1.t1...t2,.|
0000b940  36 3a 53 24 3d a4 46 28  5a 25 2b 34 34 29 3a e7  |6:S$=.F(Z%+44):.|
0000b950  67 61 25 3d 53 61 76 65  54 65 78 74 5f 57 69 6e  |ga%=SaveText_Win|
0000b960  64 6f 77 25 f2 79 75 0d  74 33 17 c9 37 3a 53 24  |dow%.yu.t3..7:S$|
0000b970  3d a4 46 28 5a 25 2b 34  34 29 3a f2 53 75 0d 74  |=.F(Z%+44):.Su.t|
0000b980  34 7a c9 38 3a 5f 41 25  3d 5a 25 21 34 3a 52 4f  |4z.8:_A%=Z%!4:RO|
0000b990  25 3d b9 3a e7 70 69 25  3d a3 f2 52 79 3a f2 73  |%=.:.pi%=..Ry:.s|
0000b9a0  28 22 57 61 72 6e 69 6e  67 20 66 72 6f 6d 20 4f  |("Warning from O|
0000b9b0  70 74 69 63 61 6c 22 2c  22 54 68 65 20 74 65 78  |ptical","The tex|
0000b9c0  74 20 68 61 73 20 62 65  65 6e 20 75 70 64 61 74  |t has been updat|
0000b9d0  65 64 2e 20 41 72 65 20  79 6f 75 20 73 75 72 65  |ed. Are you sure|
0000b9e0  20 79 6f 75 20 77 61 6e  74 20 74 6f 20 71 75 69  | you want to qui|
0000b9f0  74 3f 22 2c 30 29 3a e1  0d 74 35 84 e7 54 61 25  |t?",0):..t5..Ta%|
0000ba00  3d a3 f2 52 79 3a f2 73  28 22 57 61 72 6e 69 6e  |=..Ry:.s("Warnin|
0000ba10  67 20 66 72 6f 6d 20 4f  70 74 69 63 61 6c 22 2c  |g from Optical",|
0000ba20  22 59 6f 75 20 68 61 76  65 20 6e 6f 74 20 73 61  |"You have not sa|
0000ba30  76 65 64 20 79 6f 75 72  20 75 70 64 61 74 65 64  |ved your updated|
0000ba40  20 63 68 61 72 61 63 74  65 72 20 64 65 66 69 6e  | character defin|
0000ba50  69 74 69 6f 6e 73 2e 20  41 72 65 20 79 6f 75 20  |itions. Are you |
0000ba60  73 75 72 65 20 79 6f 75  20 77 61 6e 74 20 74 6f  |sure you want to|
0000ba70  20 71 75 69 74 3f 22 2c  31 29 3a e1 0d 74 36 6b  | quit?",1):..t6k|
0000ba80  e7 66 61 25 3d a3 f2 52  79 3a f2 73 28 22 57 61  |.fa%=..Ry:.s("Wa|
0000ba90  72 6e 69 6e 67 20 66 72  6f 6d 20 4f 70 74 69 63  |rning from Optic|
0000baa0  61 6c 22 2c 22 54 68 65  20 6c 65 78 69 63 6f 6e  |al","The lexicon|
0000bab0  20 68 61 73 20 62 65 65  6e 20 75 70 64 61 74 65  | has been update|
0000bac0  64 2e 20 41 72 65 20 79  6f 75 20 73 75 72 65 20  |d. Are you sure |
0000bad0  79 6f 75 20 77 61 6e 74  20 74 6f 20 71 75 69 74  |you want to quit|
0000bae0  3f 22 2c 32 29 3a e1 0d  74 37 69 e7 57 79 25 f2  |?",2):..t7i.Wy%.|
0000baf0  52 79 3a f2 73 28 22 57  61 72 6e 69 6e 67 20 66  |Ry:.s("Warning f|
0000bb00  72 6f 6d 20 4f 70 74 69  63 61 6c 22 2c 22 4f 70  |rom Optical","Op|
0000bb10  74 69 63 61 6c 20 69 73  20 63 75 72 72 65 6e 74  |tical is current|
0000bb20  6c 79 20 72 65 61 64 69  6e 67 2e 20 41 72 65 20  |ly reading. Are |
0000bb30  79 6f 75 20 73 75 72 65  20 79 6f 75 20 77 61 6e  |you sure you wan|
0000bb40  74 20 74 6f 20 71 75 69  74 3f 22 2c 33 29 3a e1  |t to quit?",3):.|
0000bb50  0d 74 38 6f e7 21 41 f2  52 79 3a f2 73 28 22 57  |.t8o.!A.Ry:.s("W|
0000bb60  61 72 6e 69 6e 67 20 66  72 6f 6d 20 4f 70 74 69  |arning from Opti|
0000bb70  63 61 6c 22 2c 22 4f 70  74 69 63 61 6c 20 69 73  |cal","Optical is|
0000bb80  20 63 75 72 72 65 6e 74  6c 79 20 73 70 65 6c 6c  | currently spell|
0000bb90  20 63 68 65 63 6b 69 6e  67 2e 20 41 72 65 20 79  | checking. Are y|
0000bba0  6f 75 20 73 75 72 65 20  79 6f 75 20 77 61 6e 74  |ou sure you want|
0000bbb0  20 74 6f 20 71 75 69 74  3f 22 2c 34 29 3a e1 0d  | to quit?",4):..|
0000bbc0  74 39 12 c9 31 30 3a f2  56 75 28 5a 25 21 32 30  |t9..10:.Vu(Z%!20|
0000bbd0  29 0d 74 3a 1f c9 26 34  30 30 63 37 3a e7 56 6f  |).t:..&400c7:.Vo|
0000bbe0  25 8c f2 76 61 28 a4 46  28 5a 25 2b 32 38 29 29  |%..va(.F(Z%+28))|
0000bbf0  0d 74 3b 18 f2 72 69 28  a4 46 28 5a 25 2b 32 38  |.t;..ri(.F(Z%+28|
0000bc00  29 2c 5a 25 21 32 30 29  0d 74 3c 2c c9 26 34 30  |),Z%!20).t<,.&40|
0000bc10  30 63 31 3a 44 5a 25 3d  21 43 79 3a f2 5f 4a 3a  |0c1:DZ%=!Cy:._J:|
0000bc20  e7 44 5a 25 3c 3e 21 43  79 8c f2 4e 5f 28 30 2c  |.DZ%<>!Cy..N_(0,|
0000bc30  43 79 25 29 0d 74 3d 1b  f2 6e 3a e7 a4 53 28 52  |Cy%).t=..n:..S(R|
0000bc40  5f 25 29 50 6e 25 3d b9  3a f2 77 28 65 25 29 0d  |_%)Pn%=.:.w(e%).|
0000bc50  74 3e 17 e7 a4 53 28 6b  25 29 50 6e 25 3d b9 3a  |t>...S(k%)Pn%=.:|
0000bc60  f2 77 28 6b 25 29 0d 74  3f 17 e7 a4 53 28 77 25  |.w(k%).t?...S(w%|
0000bc70  29 50 6e 25 3d b9 3a f2  77 28 77 25 29 0d 74 40  |)Pn%=.:.w(w%).t@|
0000bc80  19 e7 a4 53 28 49 4a 25  29 50 6e 25 3d b9 3a f2  |...S(IJ%)Pn%=.:.|
0000bc90  77 28 49 4a 25 29 0d 74  41 3f c9 26 34 30 30 63  |w(IJ%).tA?.&400c|
0000bca0  30 3a c8 99 26 34 30 30  65 38 2c 2c 5a 25 21 32  |0:..&400e8,,Z%!2|
0000bcb0  30 2c 5a 25 21 32 34 2c  5a 25 21 32 38 3a e7 5a  |0,Z%!24,Z%!28:.Z|
0000bcc0  25 21 32 30 3d 49 6e 66  6f 5f 57 69 6e 64 6f 77  |%!20=Info_Window|
0000bcd0  25 8c f2 52 4a 0d 74 42  07 cb 3a e1 0d 74 43 17  |%..RJ.tB..:..tC.|
0000bce0  dd a4 6e 3a e7 5a 25 21  34 30 3c 3e 32 39 35 39  |..n:.Z%!40<>2959|
0000bcf0  8c 3d 30 0d 74 44 2d 5a  25 21 31 32 3d 5a 25 21  |.=0.tD-Z%!12=Z%!|
0000bd00  38 3a 5a 25 21 31 36 3d  34 3a c8 99 26 34 30 30  |8:Z%!16=4:..&400|
0000bd10  65 37 2c 31 37 2c 5a 25  2c 5a 25 21 34 3a 3d 31  |e7,17,Z%,Z%!4:=1|
0000bd20  0d 74 45 23 dd f2 72 69  28 5a 79 24 2c 78 69 25  |.tE#..ri(Zy$,xi%|
0000bd30  29 3a ea 71 25 2c 73 25  2c 76 25 3a e7 67 5f 25  |):.q%,s%,v%:.g_%|
0000bd40  3c 31 e1 0d 74 46 2c 73  6c 25 3d 30 3a 5a 25 21  |<1..tF,sl%=0:Z%!|
0000bd50  30 3d 6b 60 25 3a c8 99  26 36 30 30 63 62 2c 2c  |0=k`%:..&600cb,,|
0000bd60  5a 25 b8 3b 77 79 25 3a  e7 77 79 25 80 31 e1 0d  |Z%.;wy%:.wy%.1..|
0000bd70  74 47 51 73 25 3d 5a 25  21 31 32 2d 5a 25 21 34  |tGQs%=Z%!12-Z%!4|
0000bd80  3a 76 25 3d 5a 25 21 31  36 2d 5a 25 21 38 3a e3  |:v%=Z%!16-Z%!8:.|
0000bd90  71 25 3d 30 b8 67 5f 25  2d 31 3a e7 5a 79 24 3d  |q%=0.g_%-1:.Zy$=|
0000bda0  4d 24 28 71 25 29 80 a4  6c 28 6b 60 25 29 3d 5a  |M$(q%)..l(k`%)=Z|
0000bdb0  24 28 71 25 29 80 76 25  3d 50 25 28 71 25 29 8c  |$(q%).v%=P%(q%).|
0000bdc0  0d 74 48 46 54 79 24 3d  5a 79 24 3a 73 6c 25 3d  |.tHFTy$=Zy$:sl%=|
0000bdd0  6b 60 25 3a 4c 79 24 3d  5a 24 28 71 25 29 3a 57  |k`%:Ly$=Z$(q%):W|
0000bde0  5a 25 3d 78 69 25 3a 67  41 25 3d 73 25 3a 4d 5a  |Z%=xi%:gA%=s%:MZ|
0000bdf0  25 3d 76 25 3a f2 77 75  28 73 6c 25 29 3a 71 25  |%=v%:.wu(sl%):q%|
0000be00  3d 67 5f 25 2d 31 0d 74  49 09 cd 3a ed 3a e1 0d  |=g_%-1.tI..:.:..|
0000be10  74 4a 7f dd f2 79 75 3a  ea 42 5f 25 3a 4c 72 25  |tJ...yu:.B_%:Lr%|
0000be20  3d 5a 25 21 32 30 3a 6a  6f 25 3d 5a 25 21 32 34  |=Z%!20:jo%=Z%!24|
0000be30  3a 5f 4f 25 3d 5a 25 21  34 3a 60 6e 25 3d 5a 25  |:_O%=Z%!4:`n%=Z%|
0000be40  21 38 3a 5a 25 21 30 3d  32 35 36 3a 5a 25 21 31  |!8:Z%!0=256:Z%!1|
0000be50  32 3d 60 6e 25 3a 5a 25  21 31 36 3d 37 3a 5a 25  |2=`n%:Z%!16=7:Z%|
0000be60  21 32 30 3d 4c 72 25 3a  e7 6a 6f 25 3e 63 4f 25  |!20=Lr%:.jo%>cO%|
0000be70  8c 6d 42 25 3d 63 4f 25  3a 7a 61 25 3d 31 37 8b  |.mB%=cO%:za%=17.|
0000be80  6d 42 25 3d 6a 6f 25 3a  7a 61 25 3d 31 38 0d 74  |mB%=jo%:za%=18.t|
0000be90  4b 66 5a 25 21 32 34 3d  6d 42 25 3a c8 99 26 36  |KfZ%!24=mB%:..&6|
0000bea0  30 30 66 31 2c 72 6e 25  2c 41 25 28 6b 65 25 29  |00f1,rn%,A%(ke%)|
0000beb0  2b 64 72 25 2c 5f 4f 25  2c 4c 72 25 2c 6a 6f 25  |+dr%,_O%,Lr%,jo%|
0000bec0  b8 77 79 25 3b 42 5f 25  3a e7 42 5f 25 80 31 f2  |.wy%;B_%:.B_%.1.|
0000bed0  43 28 22 4f 70 74 69 63  61 6c 22 2c a4 46 28 77  |C("Optical",.F(w|
0000bee0  79 25 2b 34 29 29 3a 60  42 25 3d a3 3a 49 4f 25  |y%+4)):`B%=.:IO%|
0000bef0  3d a3 3a e1 0d 74 4c 36  c8 99 26 34 30 30 65 37  |=.:..tL6..&400e7|
0000bf00  2c 7a 61 25 2c 5a 25 2c  52 6b 25 2c 65 6f 25 3a  |,za%,Z%,Rk%,eo%:|
0000bf10  63 4f 25 2d 3d 6d 42 25  3a 64 72 25 2b 3d 6d 42  |cO%-=mB%:dr%+=mB|
0000bf20  25 3a e7 7a 61 25 3d 31  37 8c 0d 74 4d 21 f2 4d  |%:.za%=17..tM!.M|
0000bf30  28 53 61 76 65 54 65 78  74 5f 57 69 6e 64 6f 77  |(SaveText_Window|
0000bf40  25 29 3a e7 49 4f 25 3d  a3 f2 62 0d 74 4e 0d 49  |%):.IO%=..b.tN.I|
0000bf50  4f 25 3d a3 3a f2 56 5f  0d 74 4f 07 cd 3a e1 0d  |O%=.:.V_.tO..:..|
0000bf60  74 50 27 dd f2 52 79 3a  76 6f 25 21 31 32 3d 76  |tP'..Ry:vo%!12=v|
0000bf70  6f 25 21 38 3a c8 99 26  34 30 30 65 37 2c 31 39  |o%!8:..&400e7,19|
0000bf80  2c 76 6f 25 3a e1 0d 74  51 33 dd f2 7a 69 3a c8  |,vo%:..tQ3..zi:.|
0000bf90  99 26 34 30 30 64 33 2c  2c 4d 25 3a 4d 25 21 32  |.&400d3,,M%:M%!2|
0000bfa0  34 3d 35 30 38 3a c8 99  26 34 30 30 65 37 2c 38  |4=508:..&400e7,8|
0000bfb0  2c 4d 25 2c 5f 41 25 3a  e1 0d 74 52 f5 dd f2 62  |,M%,_A%:..tR...b|
0000bfc0  61 3a 41 4a 3d 4a 25 2b  35 34 35 32 3a 4c 4a 3d  |a:AJ=J%+5452:LJ=|
0000bfd0  4a 25 2b 35 34 35 36 3a  60 3d 4a 25 2b 34 30 38  |J%+5456:`=J%+408|
0000bfe0  30 3a 62 6e 3d 4a 25 2b  31 30 37 39 32 3a 54 4a  |0:bn=J%+10792:TJ|
0000bff0  3d 4a 25 2b 38 34 38 38  3a 6f 61 3d 4a 25 2b 35  |=J%+8488:oa=J%+5|
0000c000  34 36 30 3a 73 3d 4a 25  2b 35 34 30 34 3a 63 5f  |460:s=J%+5404:c_|
0000c010  3d 4a 25 2b 31 34 39 36  3a 4a 79 3d 4a 25 2b 32  |=J%+1496:Jy=J%+2|
0000c020  30 33 37 36 3a 57 4a 3d  4a 25 2b 32 31 31 30 30  |0376:WJ=J%+21100|
0000c030  3a 4b 79 3d 4a 25 2b 32  31 38 30 34 3a 59 79 3d  |:Ky=J%+21804:Yy=|
0000c040  4a 25 2b 32 31 38 30 38  3a 62 61 3d 4a 25 2b 32  |J%+21808:ba=J%+2|
0000c050  30 34 38 38 3a 6f 79 3d  4a 25 2b 31 38 35 31 36  |0488:oy=J%+18516|
0000c060  3a 6e 4a 3d 4a 25 2b 34  30 33 32 30 3a 75 5f 3d  |:nJ=J%+40320:u_=|
0000c070  4a 25 2b 34 31 32 32 38  3a 6c 5f 3d 4a 25 2b 34  |J%+41228:l_=J%+4|
0000c080  31 32 33 32 3a 43 5f 3d  4a 25 2b 32 32 38 34 30  |1232:C_=J%+22840|
0000c090  3a 6d 3d 4a 25 2b 35 33  31 36 3a 72 3d 4a 25 2b  |:m=J%+5316:r=J%+|
0000c0a0  35 33 32 30 3a 66 3d 4a  25 2b 35 33 32 34 0d 74  |5320:f=J%+5324.t|
0000c0b0  53 fd 53 79 3d 4a 25 2b  35 33 32 38 3a 60 6e 3d  |S.Sy=J%+5328:`n=|
0000c0c0  4a 25 2b 35 33 33 32 3a  6b 61 3d 4a 25 2b 35 33  |J%+5332:ka=J%+53|
0000c0d0  33 36 3a 75 6e 3d 4a 25  2b 35 33 34 30 3a 66 5f  |36:un=J%+5340:f_|
0000c0e0  3d 4a 25 2b 35 33 34 34  3a 72 5f 3d 4a 25 2b 35  |=J%+5344:r_=J%+5|
0000c0f0  33 34 38 3a 64 3d 4a 25  2b 35 33 35 32 3a 76 79  |348:d=J%+5352:vy|
0000c100  3d 4a 25 2b 31 38 35 31  32 3a 67 3d 4a 25 2b 32  |=J%+18512:g=J%+2|
0000c110  30 36 31 36 3a 62 3d 4a  25 2b 32 30 36 30 34 3a  |0616:b=J%+20604:|
0000c120  75 3d 4a 25 2b 32 30 36  30 38 3a 77 3d 4a 25 2b  |u=J%+20608:w=J%+|
0000c130  32 30 36 31 32 3a 6b 4a  3d 4a 25 2b 32 30 38 33  |20612:kJ=J%+2083|
0000c140  32 3a 4b 3d 4a 25 2b 32  31 30 39 36 3a 51 69 3d  |2:K=J%+21096:Qi=|
0000c150  4a 25 2b 32 31 38 31 32  3a 57 3d 4a 25 2b 32 35  |J%+21812:W=J%+25|
0000c160  39 31 32 3a 42 61 3d 4a  25 2b 32 35 38 37 32 3a  |912:Ba=J%+25872:|
0000c170  68 6c 3d 4a 25 2b 32 35  38 37 36 3a 75 4a 3d 4a  |hl=J%+25876:uJ=J|
0000c180  25 2b 32 35 38 38 30 3a  4e 6c 3d 4a 25 2b 32 35  |%+25880:Nl=J%+25|
0000c190  38 38 34 3a 6e 69 3d 4a  25 2b 32 36 33 31 36 3a  |884:ni=J%+26316:|
0000c1a0  4d 5f 3d 4a 25 2b 32 36  37 33 32 0d 74 54 fc 59  |M_=J%+26732.tT.Y|
0000c1b0  4a 3d 4a 25 2b 32 36 37  35 36 3a 44 75 3d 4a 25  |J=J%+26756:Du=J%|
0000c1c0  2b 32 37 32 37 32 3a 61  69 3d 4a 25 2b 32 39 37  |+27272:ai=J%+297|
0000c1d0  34 30 3a 56 61 3d 4a 25  2b 32 39 37 34 34 3a 43  |40:Va=J%+29744:C|
0000c1e0  69 3d 4a 25 2b 32 39 37  35 32 3a 61 6c 3d 4a 25  |i=J%+29752:al=J%|
0000c1f0  2b 32 39 37 35 36 3a 6d  61 3d 4a 25 2b 32 39 37  |+29756:ma=J%+297|
0000c200  36 30 3a 4b 4a 3d 4a 25  2b 32 39 37 36 34 3a 65  |60:KJ=J%+29764:e|
0000c210  4a 3d 4a 25 2b 32 39 37  36 38 3a 57 75 3d 4a 25  |J=J%+29768:Wu=J%|
0000c220  2b 31 36 31 38 38 3a 67  4a 3d 4a 25 2b 31 35 34  |+16188:gJ=J%+154|
0000c230  34 34 3a 52 61 3d 4a 25  2b 31 35 38 32 38 3a 65  |44:Ra=J%+15828:e|
0000c240  5f 3d 4a 25 2b 31 32 38  38 34 3a 56 6e 3d 4a 25  |_=J%+12884:Vn=J%|
0000c250  2b 31 32 38 37 36 3a 6e  61 3d 4a 25 2b 31 32 38  |+12876:na=J%+128|
0000c260  38 30 3a 4c 6e 3d 4a 25  2b 31 33 39 34 30 3a 51  |80:Ln=J%+13940:Q|
0000c270  6e 3d 4a 25 2b 31 32 32  38 38 3a 78 75 3d 4a 25  |n=J%+12288:xu=J%|
0000c280  2b 31 35 31 31 36 3a 4c  5f 3d 4a 25 2b 33 30 30  |+15116:L_=J%+300|
0000c290  34 3a 55 79 3d 4a 25 2b  35 33 36 30 3a 6f 6e 3d  |4:Uy=J%+5360:on=|
0000c2a0  4a 25 2b 37 38 30 30 0d  74 55 f5 63 75 3d 4a 25  |J%+7800.tU.cu=J%|
0000c2b0  2b 35 33 36 34 3a 4e 6e  3d 4a 25 2b 37 38 30 34  |+5364:Nn=J%+7804|
0000c2c0  3a 41 79 3d 4a 25 2b 33  34 30 36 34 3a 57 6e 3d  |:Ay=J%+34064:Wn=|
0000c2d0  4a 25 2b 33 34 31 33 36  3a 41 60 3d 4a 25 2b 33  |J%+34136:A`=J%+3|
0000c2e0  34 31 34 38 3a 43 61 3d  4a 25 2b 33 31 30 37 32  |4148:Ca=J%+31072|
0000c2f0  3a 48 69 3d 4a 25 2b 33  31 36 31 32 3a 41 69 3d  |:Hi=J%+31612:Ai=|
0000c300  4a 25 2b 33 31 36 31 36  3a 71 5f 3d 4a 25 2b 33  |J%+31616:q_=J%+3|
0000c310  31 38 37 32 3a 42 5f 3d  4a 25 2b 32 30 33 33 36  |1872:B_=J%+20336|
0000c320  3a 6e 79 3d 4a 25 2b 32  30 33 34 30 3a 59 5f 3d  |:ny=J%+20340:Y_=|
0000c330  4a 25 2b 32 38 30 34 3a  47 4a 3d 4a 25 2b 32 38  |J%+2804:GJ=J%+28|
0000c340  30 38 3a 79 4a 3d 4a 25  2b 32 35 38 38 38 3a 55  |08:yJ=J%+25888:U|
0000c350  3d 4a 25 2b 32 37 31 36  3a 52 3d 4a 25 2b 32 38  |=J%+2716:R=J%+28|
0000c360  33 36 3a 4d 6c 3d 4a 25  2b 32 38 35 32 3a 70 61  |36:Ml=J%+2852:pa|
0000c370  3d 4a 25 2b 32 38 35 36  3a 4b 5f 3d 4a 25 2b 31  |=J%+2856:K_=J%+1|
0000c380  38 35 32 34 3a 64 79 3d  4a 25 2b 31 38 35 32 30  |8524:dy=J%+18520|
0000c390  3a 79 61 3d 4a 25 2b 31  38 35 35 36 0d 74 56 fd  |:ya=J%+18556.tV.|
0000c3a0  57 5f 3d 4a 25 2b 31 38  35 36 30 3a 56 69 3d 4a  |W_=J%+18560:Vi=J|
0000c3b0  25 2b 32 36 38 37 32 3a  41 6c 3d 4a 25 2b 32 36  |%+26872:Al=J%+26|
0000c3c0  38 37 36 3a 68 75 3d 4a  25 2b 32 39 37 33 36 3a  |876:hu=J%+29736:|
0000c3d0  5a 79 3d 4a 25 2b 35 39  30 38 3a 46 79 3d 4a 25  |Zy=J%+5908:Fy=J%|
0000c3e0  2b 35 39 31 32 3a 70 3d  4a 25 2b 32 35 30 38 3a  |+5912:p=J%+2508:|
0000c3f0  4d 3d 4a 25 2b 35 34 34  38 3a 58 79 3d 4a 25 2b  |M=J%+5448:Xy=J%+|
0000c400  35 39 30 34 3a 69 4a 3d  4a 25 2b 31 34 37 32 30  |5904:iJ=J%+14720|
0000c410  3a 4b 6e 3d 4a 25 2b 33  34 31 36 34 3a 50 69 3d  |:Kn=J%+34164:Pi=|
0000c420  4a 25 2b 33 34 31 36 38  3a 6b 3d 4a 25 2b 31 38  |J%+34168:k=J%+18|
0000c430  34 39 32 3a 5f 61 3d 4a  25 2b 31 38 34 39 36 3a  |492:_a=J%+18496:|
0000c440  6e 75 3d 4a 25 2b 31 34  37 33 32 3a 44 4a 3d 4a  |nu=J%+14732:DJ=J|
0000c450  25 2b 31 38 36 30 38 3a  4a 5f 3d 4a 25 2b 34 39  |%+18608:J_=J%+49|
0000c460  34 38 3a 54 5f 3d 4a 25  2b 34 39 34 34 3a 60 79  |48:T_=J%+4944:`y|
0000c470  3d 4a 25 2b 34 39 34 30  3a 51 5f 3d 4a 25 2b 34  |=J%+4940:Q_=J%+4|
0000c480  39 35 32 3a 75 79 3d 4a  25 2b 31 38 35 30 30 3a  |952:uy=J%+18500:|
0000c490  41 5f 3d 4a 25 2b 38 33  36 0d 74 57 f9 51 3d 4a  |A_=J%+836.tW.Q=J|
0000c4a0  25 2b 33 34 35 31 32 3a  6a 6e 3d 4a 25 2b 33 34  |%+34512:jn=J%+34|
0000c4b0  35 33 32 3a 67 6c 3d 4a  25 2b 33 34 36 38 34 3a  |532:gl=J%+34684:|
0000c4c0  69 3d 4a 25 2b 31 39 33  30 34 3a 60 5f 3d 4a 25  |i=J%+19304:`_=J%|
0000c4d0  2b 32 38 31 32 3a 42 75  3d 4a 25 2b 33 34 31 37  |+2812:Bu=J%+3417|
0000c4e0  32 3a 6a 61 3d 4a 25 2b  32 30 33 35 36 3a 41 6e  |2:ja=J%+20356:An|
0000c4f0  3d 4a 25 2b 32 30 33 36  30 3a 51 6c 3d 4a 25 2b  |=J%+20360:Ql=J%+|
0000c500  32 38 31 36 3a 5f 6e 3d  4a 25 2b 33 34 37 36 30  |2816:_n=J%+34760|
0000c510  3a 52 6c 3d 4a 25 2b 33  34 38 35 32 3a 68 69 3d  |:Rl=J%+34852:hi=|
0000c520  4a 25 2b 33 34 39 37 36  3a 78 4a 3d 4a 25 2b 33  |J%+34976:xJ=J%+3|
0000c530  35 31 30 38 3a 77 6c 3d  4a 25 2b 33 35 32 36 34  |5108:wl=J%+35264|
0000c540  3a 6d 79 3d 4a 25 2b 33  35 31 30 30 3a 74 79 3d  |:my=J%+35100:ty=|
0000c550  4a 25 2b 33 35 31 30 34  3a 44 69 3d 4a 25 2b 33  |J%+35104:Di=J%+3|
0000c560  31 36 33 36 3a 71 69 3d  4a 25 2b 33 35 34 33 36  |1636:qi=J%+35436|
0000c570  3a 51 4a 3d 4a 25 2b 32  35 30 30 3a 4f 5f 3d 4a  |:QJ=J%+2500:O_=J|
0000c580  25 2b 32 35 30 34 3a 50  5f 3d 4a 25 2b 33 35 37  |%+2504:P_=J%+357|
0000c590  33 36 0d 74 58 f6 4d 79  3d 4a 25 2b 33 38 31 38  |36.tX.My=J%+3818|
0000c5a0  30 3a 71 4a 3d 4a 25 2b  33 38 31 38 34 3a 77 79  |0:qJ=J%+38184:wy|
0000c5b0  3d 4a 25 2b 33 38 31 38  38 3a 61 79 3d 4a 25 2b  |=J%+38188:ay=J%+|
0000c5c0  33 38 32 30 30 3a 52 5f  3d 4a 25 2b 33 38 32 30  |38200:R_=J%+3820|
0000c5d0  34 3a 67 69 3d 4a 25 2b  33 38 31 37 36 3a 49 4a  |4:gi=J%+38176:IJ|
0000c5e0  3d 4a 25 2b 33 38 32 31  32 3a 6a 5f 3d 4a 25 2b  |=J%+38212:j_=J%+|
0000c5f0  33 38 32 31 36 3a 53 4a  3d 4a 25 2b 33 38 32 32  |38216:SJ=J%+3822|
0000c600  30 3a 6e 5f 3d 4a 25 2b  33 38 32 32 34 3a 55 4a  |0:n_=J%+38224:UJ|
0000c610  3d 4a 25 2b 33 38 31 37  32 3a 41 3d 4a 25 2b 33  |=J%+38172:A=J%+3|
0000c620  35 37 31 36 3a 44 5f 3d  4a 25 2b 35 32 31 36 3a  |5716:D_=J%+5216:|
0000c630  5a 5f 3d 4a 25 2b 35 32  32 30 3a 67 6e 3d 4a 25  |Z_=J%+5220:gn=J%|
0000c640  2b 32 36 38 38 30 3a 4f  69 3d 4a 25 2b 37 33 32  |+26880:Oi=J%+732|
0000c650  30 3a 79 6c 3d 4a 25 2b  37 33 32 34 3a 6f 4a 3d  |0:yl=J%+7324:oJ=|
0000c660  4a 25 2b 37 33 32 38 3a  77 75 3d 4a 25 2b 37 33  |J%+7328:wu=J%+73|
0000c670  33 32 3a 71 6e 3d 4a 25  2b 39 35 30 38 3a 48 6e  |32:qn=J%+9508:Hn|
0000c680  3d 4a 25 2b 39 35 31 32  0d 74 59 fd 58 69 3d 4a  |=J%+9512.tY.Xi=J|
0000c690  25 2b 34 32 35 38 30 3a  78 61 3d 4a 25 2b 33 38  |%+42580:xa=J%+38|
0000c6a0  34 36 34 3a 54 61 3d 4a  25 2b 33 38 36 33 36 3a  |464:Ta=J%+38636:|
0000c6b0  4a 4a 3d 4a 25 2b 33 38  37 33 32 3a 74 3d 4a 25  |JJ=J%+38732:t=J%|
0000c6c0  2b 35 32 38 30 3a 54 3d  4a 25 2b 33 34 35 39 36  |+5280:T=J%+34596|
0000c6d0  3a 52 4a 3d 4a 25 2b 32  35 32 30 3a 44 3d 4a 25  |:RJ=J%+2520:D=J%|
0000c6e0  2b 32 31 38 30 30 3a 49  3d 4a 25 2b 32 30 33 36  |+21800:I=J%+2036|
0000c6f0  34 3a 4c 3d 4a 25 2b 32  30 33 36 38 3a 65 3d 4a  |4:L=J%+20368:e=J|
0000c700  25 2b 32 30 33 37 32 3a  63 79 3d 4a 25 2b 33 39  |%+20372:cy=J%+39|
0000c710  30 32 30 3a 42 79 3d 4a  25 2b 32 30 33 34 34 3a  |020:By=J%+20344:|
0000c720  52 79 3d 4a 25 2b 32 30  33 34 38 3a 53 61 3d 4a  |Ry=J%+20348:Sa=J|
0000c730  25 2b 32 36 37 33 36 3a  65 61 3d 4a 25 2b 32 36  |%+26736:ea=J%+26|
0000c740  37 34 30 3a 6c 6c 3d 4a  25 2b 37 33 35 36 3a 47  |740:ll=J%+7356:G|
0000c750  61 3d 4a 25 2b 39 37 32  30 3a 63 69 3d 4a 25 2b  |a=J%+9720:ci=J%+|
0000c760  39 37 32 34 3a 58 6c 3d  4a 25 2b 39 37 30 30 3a  |9724:Xl=J%+9700:|
0000c770  6d 6e 3d 4a 25 2b 39 37  37 36 3a 63 6e 3d 4a 25  |mn=J%+9776:cn=J%|
0000c780  2b 39 37 30 34 0d 74 5a  f8 6c 61 3d 4a 25 2b 31  |+9704.tZ.la=J%+1|
0000c790  30 32 39 32 3a 53 6e 3d  4a 25 2b 31 30 33 30 30  |0292:Sn=J%+10300|
0000c7a0  3a 66 6e 3d 4a 25 2b 31  30 32 39 36 3a 42 6e 3d  |:fn=J%+10296:Bn=|
0000c7b0  4a 25 2b 31 30 33 30 34  3a 63 3d 4a 25 2b 32 39  |J%+10304:c=J%+29|
0000c7c0  38 38 3a 77 6e 3d 4a 25  2b 33 38 39 30 34 3a 6a  |88:wn=J%+38904:j|
0000c7d0  3d 4a 25 2b 35 32 32 38  3a 55 75 3d 4a 25 2b 39  |=J%+5228:Uu=J%+9|
0000c7e0  37 36 30 3a 61 75 3d 4a  25 2b 34 31 32 35 32 3a  |760:au=J%+41252:|
0000c7f0  47 6e 3d 4a 25 2b 34 31  33 33 36 3a 47 69 3d 4a  |Gn=J%+41336:Gi=J|
0000c800  25 2b 32 31 37 34 38 3a  49 6c 3d 4a 25 2b 32 31  |%+21748:Il=J%+21|
0000c810  37 35 32 3a 4a 69 3d 4a  25 2b 34 31 34 32 30 3a  |752:Ji=J%+41420:|
0000c820  53 5f 3d 4a 25 2b 32 30  33 32 34 3a 4e 79 3d 4a  |S_=J%+20324:Ny=J|
0000c830  25 2b 32 30 33 32 38 3a  79 79 3d 4a 25 2b 32 30  |%+20328:yy=J%+20|
0000c840  33 33 32 3a 6b 6c 3d 4a  25 2b 39 37 36 38 3a 7a  |332:kl=J%+9768:z|
0000c850  61 3d 4a 25 2b 39 37 37  32 3a 58 61 3d 4a 25 2b  |a=J%+9772:Xa=J%+|
0000c860  34 30 30 32 38 3a 65 6e  3d 4a 25 2b 34 30 33 30  |40028:en=J%+4030|
0000c870  34 3a 42 69 3d 4a 25 2b  34 30 33 30 38 0d 74 5b  |4:Bi=J%+40308.t[|
0000c880  fc 4c 69 3d 4a 25 2b 34  30 33 31 32 3a 60 4a 3d  |.Li=J%+40312:`J=|
0000c890  4a 25 2b 33 34 36 35 36  3a 49 61 3d 4a 25 2b 33  |J%+34656:Ia=J%+3|
0000c8a0  34 36 32 34 3a 69 69 3d  4a 25 2b 32 36 38 38 38  |4624:ii=J%+26888|
0000c8b0  3a 56 75 3d 4a 25 2b 32  36 38 39 32 3a 72 69 3d  |:Vu=J%+26892:ri=|
0000c8c0  4a 25 2b 34 30 33 30 30  3a 76 6e 3d 4a 25 2b 31  |J%+40300:vn=J%+1|
0000c8d0  30 37 36 34 3a 6a 4a 3d  4a 25 2b 32 37 32 30 3a  |0764:jJ=J%+2720:|
0000c8e0  73 79 3d 4a 25 2b 32 38  33 32 3a 52 69 3d 4a 25  |sy=J%+2832:Ri=J%|
0000c8f0  2b 32 33 38 32 38 3a 46  5f 3d 4a 25 2b 32 33 38  |+23828:F_=J%+238|
0000c900  32 34 3a 55 5f 3d 4a 25  2b 32 35 38 35 36 3a 4f  |24:U_=J%+25856:O|
0000c910  61 3d 4a 25 2b 32 39 37  37 32 3a 6e 6e 3d 4a 25  |a=J%+29772:nn=J%|
0000c920  2b 31 33 30 38 34 3a 49  5f 3d 4a 25 2b 38 37 38  |+13084:I_=J%+878|
0000c930  30 3a 43 4a 3d 4a 25 2b  31 38 36 30 34 3a 46 69  |0:CJ=J%+18604:Fi|
0000c940  3d 4a 25 2b 34 30 30 31  32 3a 50 6c 3d 4a 25 2b  |=J%+40012:Pl=J%+|
0000c950  34 30 30 31 36 3a 46 61  3d 4a 25 2b 33 31 30 34  |40016:Fa=J%+3104|
0000c960  38 3a 61 61 3d 4a 25 2b  33 31 30 35 32 3a 4f 4a  |8:aa=J%+31052:OJ|
0000c970  3d 4a 25 2b 32 39 37 37  36 0d 74 5c f2 69 6c 3d  |=J%+29776.t\.il=|
0000c980  4a 25 2b 34 31 35 36 38  3a 66 6c 3d 4a 25 2b 34  |J%+41568:fl=J%+4|
0000c990  32 35 36 34 3a 41 75 3d  4a 25 2b 34 32 35 36 38  |2564:Au=J%+42568|
0000c9a0  3a 50 4a 3d 4a 25 2b 34  39 36 35 32 3a 4e 4a 3d  |:PJ=J%+49652:NJ=|
0000c9b0  4a 25 2b 34 39 36 37 36  3a 73 5f 3d 4a 25 2b 34  |J%+49676:s_=J%+4|
0000c9c0  39 37 38 30 3a 5f 5f 3d  4a 25 2b 35 30 30 35 36  |9780:__=J%+50056|
0000c9d0  3a 46 4a 3d 4a 25 2b 35  30 34 33 32 3a 62 5f 3d  |:FJ=J%+50432:b_=|
0000c9e0  4a 25 2b 35 30 35 36 38  3a 78 79 3d 4a 25 2b 34  |J%+50568:xy=J%+4|
0000c9f0  39 36 37 32 3a 69 5f 3d  4a 25 2b 34 39 37 36 30  |9672:i_=J%+49760|
0000ca00  3a 63 61 3d 4a 25 2b 35  30 30 34 38 3a 76 3d 4a  |:ca=J%+50048:v=J|
0000ca10  25 2b 35 30 33 37 36 3a  70 5f 3d 4a 25 2b 35 30  |%+50376:p_=J%+50|
0000ca20  34 39 32 3a 67 61 3d 4a  25 2b 35 30 35 39 32 3a  |492:ga=J%+50592:|
0000ca30  73 75 3d 4a 25 2b 35 30  34 32 38 3a 78 5f 3d 4a  |su=J%+50428:x_=J|
0000ca40  25 2b 35 30 34 30 34 3a  6b 75 3d 4a 25 2b 35 30  |%+50404:ku=J%+50|
0000ca50  36 31 32 3a 4e 5f 3d 4a  25 2b 35 30 38 36 38 3a  |612:N_=J%+50868:|
0000ca60  76 5f 3d 4a 25 2b 35 30  38 37 32 0d 74 5d f3 49  |v_=J%+50872.t].I|
0000ca70  75 3d 4a 25 2b 35 30 38  37 36 3a 6a 75 3d 4a 25  |u=J%+50876:ju=J%|
0000ca80  2b 35 30 38 38 30 3a 71  75 3d 4a 25 2b 35 30 38  |+50880:qu=J%+508|
0000ca90  38 34 3a 64 6c 3d 4a 25  2b 35 30 38 38 38 3a 77  |84:dl=J%+50888:w|
0000caa0  4a 3d 4a 25 2b 35 30 38  39 32 3a 43 6c 3d 4a 25  |J=J%+50892:Cl=J%|
0000cab0  2b 35 30 30 34 34 3a 51  75 3d 4a 25 2b 35 30 34  |+50044:Qu=J%+504|
0000cac0  32 34 3a 68 6e 3d 4a 25  2b 35 30 36 30 30 3a 7a  |24:hn=J%+50600:z|
0000cad0  6c 3d 4a 25 2b 34 32 37  36 30 3a 67 79 3d 4a 25  |l=J%+42760:gy=J%|
0000cae0  2b 34 34 32 36 38 3a 47  79 3d 4a 25 2b 34 34 38  |+44268:Gy=J%+448|
0000caf0  38 34 3a 48 79 3d 4a 25  2b 34 34 38 38 38 3a 4c  |84:Hy=J%+44888:L|
0000cb00  79 3d 4a 25 2b 34 34 38  39 32 3a 6c 79 3d 4a 25  |y=J%+44892:ly=J%|
0000cb10  2b 34 34 38 39 36 3a 47  5f 3d 4a 25 2b 34 34 39  |+44896:G_=J%+449|
0000cb20  30 30 3a 57 79 3d 4a 25  2b 34 34 39 30 34 3a 50  |00:Wy=J%+44904:P|
0000cb30  79 3d 4a 25 2b 34 34 39  30 38 3a 5f 79 3d 4a 25  |y=J%+44908:_y=J%|
0000cb40  2b 34 34 39 31 32 3a 54  79 3d 4a 25 2b 34 34 39  |+44912:Ty=J%+449|
0000cb50  31 36 3a 56 4a 3d 4a 25  2b 34 36 36 32 38 0d 74  |16:VJ=J%+46628.t|
0000cb60  5e f7 68 5f 3d 4a 25 2b  35 33 38 34 3a 58 4a 3d  |^.h_=J%+5384:XJ=|
0000cb70  4a 25 2b 35 33 38 38 3a  5a 6e 3d 4a 25 2b 34 36  |J%+5388:Zn=J%+46|
0000cb80  37 35 36 3a 52 6e 3d 4a  25 2b 34 36 39 33 32 3a  |756:Rn=J%+46932:|
0000cb90  74 6e 3d 4a 25 2b 34 37  37 31 32 3a 4f 6e 3d 4a  |tn=J%+47712:On=J|
0000cba0  25 2b 34 37 37 31 36 3a  4f 79 3d 4a 25 2b 34 30  |%+47716:Oy=J%+40|
0000cbb0  36 38 3a 42 6c 3d 4a 25  2b 34 38 31 38 38 3a 61  |68:Bl=J%+48188:a|
0000cbc0  6e 3d 4a 25 2b 32 34 36  38 3a 79 6e 3d 4a 25 2b  |n=J%+2468:yn=J%+|
0000cbd0  32 34 37 32 3a 61 4a 3d  4a 25 2b 31 39 36 30 3a  |2472:aJ=J%+1960:|
0000cbe0  60 61 3d 4a 25 2b 34 30  35 36 3a 7a 6e 3d 4a 25  |`a=J%+4056:zn=J%|
0000cbf0  2b 35 34 30 30 3a 50 6e  3d 4a 25 2b 31 33 32 30  |+5400:Pn=J%+1320|
0000cc00  30 3a 4b 69 3d 4a 25 2b  31 33 31 36 30 3a 60 75  |0:Ki=J%+13160:`u|
0000cc10  3d 4a 25 2b 31 33 31 36  34 3a 72 4a 3d 4a 25 2b  |=J%+13164:rJ=J%+|
0000cc20  31 33 31 36 38 3a 46 6c  3d 4a 25 2b 31 33 31 37  |13168:Fl=J%+1317|
0000cc30  32 3a 76 61 3d 4a 25 2b  31 33 31 37 36 3a 50 75  |2:va=J%+13176:Pu|
0000cc40  3d 4a 25 2b 31 33 31 38  30 3a 72 61 3d 4a 25 2b  |=J%+13180:ra=J%+|
0000cc50  31 33 31 38 34 0d 74 5f  f8 41 61 3d 4a 25 2b 31  |13184.t_.Aa=J%+1|
0000cc60  33 31 38 38 3a 55 6c 3d  4a 25 2b 31 33 31 39 32  |3188:Ul=J%+13192|
0000cc70  3a 54 6c 3d 4a 25 2b 31  33 31 39 36 3a 78 6c 3d  |:Tl=J%+13196:xl=|
0000cc80  4a 25 2b 31 33 38 39 32  3a 53 6c 3d 4a 25 2b 31  |J%+13892:Sl=J%+1|
0000cc90  33 38 39 36 3a 70 4a 3d  4a 25 2b 31 33 36 31 36  |3896:pJ=J%+13616|
0000cca0  3a 57 6c 3d 4a 25 2b 31  33 35 38 38 3a 76 75 3d  |:Wl=J%+13588:vu=|
0000ccb0  4a 25 2b 31 33 35 39 32  3a 72 75 3d 4a 25 2b 31  |J%+13592:ru=J%+1|
0000ccc0  33 35 39 36 3a 4e 75 3d  4a 25 2b 31 33 36 30 30  |3596:Nu=J%+13600|
0000ccd0  3a 4b 75 3d 4a 25 2b 31  33 36 30 34 3a 48 75 3d  |:Ku=J%+13604:Hu=|
0000cce0  4a 25 2b 31 33 36 30 38  3a 64 5f 3d 4a 25 2b 31  |J%+13608:d_=J%+1|
0000ccf0  33 36 31 32 3a 60 69 3d  4a 25 2b 31 32 38 39 32  |3612:`i=J%+12892|
0000cd00  3a 55 6e 3d 4a 25 2b 37  33 36 30 3a 6b 6e 3d 4a  |:Un=J%+7360:kn=J|
0000cd10  25 2b 37 36 31 36 3a 58  6e 3d 4a 25 2b 38 37 37  |%+7616:Xn=J%+877|
0000cd20  36 3a 4f 75 3d 4a 25 2b  37 38 33 32 3a 4c 61 3d  |6:Ou=J%+7832:La=|
0000cd30  4a 25 2b 37 38 33 36 3a  76 4a 3d 4a 25 2b 37 38  |J%+7836:vJ=J%+78|
0000cd40  34 30 3a 4a 6c 3d 4a 25  2b 37 38 34 34 0d 74 60  |40:Jl=J%+7844.t`|
0000cd50  f9 53 69 3d 4a 25 2b 37  38 30 38 3a 72 6c 3d 4a  |.Si=J%+7808:rl=J|
0000cd60  25 2b 37 38 31 32 3a 63  6c 3d 4a 25 2b 37 38 31  |%+7812:cl=J%+781|
0000cd70  36 3a 75 6c 3d 4a 25 2b  37 38 32 30 3a 77 69 3d  |6:ul=J%+7820:wi=|
0000cd80  4a 25 2b 37 38 32 34 3a  73 6c 3d 4a 25 2b 37 38  |J%+7824:sl=J%+78|
0000cd90  32 38 3a 59 6e 3d 4a 25  2b 31 36 36 30 34 3a 43  |28:Yn=J%+16604:C|
0000cda0  6e 3d 4a 25 2b 31 35 35  35 32 3a 47 6c 3d 4a 25  |n=J%+15552:Gl=J%|
0000cdb0  2b 31 35 35 36 38 3a 4d  61 3d 4a 25 2b 31 35 35  |+15568:Ma=J%+155|
0000cdc0  37 32 3a 74 61 3d 4a 25  2b 31 35 35 37 36 3a 54  |72:ta=J%+15576:T|
0000cdd0  75 3d 4a 25 2b 31 35 35  39 32 3a 59 61 3d 4a 25  |u=J%+15592:Ya=J%|
0000cde0  2b 31 35 35 38 30 3a 57  61 3d 4a 25 2b 31 35 35  |+15580:Wa=J%+155|
0000cdf0  38 34 3a 5f 75 3d 4a 25  2b 31 35 35 38 38 3a 4a  |84:_u=J%+15588:J|
0000ce00  6e 3d 4a 25 2b 31 35 35  35 36 3a 44 6e 3d 4a 25  |n=J%+15556:Dn=J%|
0000ce10  2b 31 35 35 36 30 3a 6c  6e 3d 4a 25 2b 31 35 35  |+15560:ln=J%+155|
0000ce20  34 38 3a 69 6e 3d 4a 25  2b 31 35 35 36 34 3a 66  |48:in=J%+15564:f|
0000ce30  61 3d 4a 25 2b 31 31 33  35 32 3a 4f 6c 3d 4a 25  |a=J%+11352:Ol=J%|
0000ce40  2b 31 32 32 30 34 0d 74  61 fd 50 61 3d 4a 25 2b  |+12204.ta.Pa=J%+|
0000ce50  31 32 32 30 30 3a 4a 75  3d 4a 25 2b 31 32 31 39  |12200:Ju=J%+1219|
0000ce60  32 3a 59 69 3d 4a 25 2b  31 32 31 39 36 3a 5f 6c  |2:Yi=J%+12196:_l|
0000ce70  3d 4a 25 2b 31 32 32 37  36 3a 60 6c 3d 4a 25 2b  |=J%+12276:`l=J%+|
0000ce80  31 32 32 38 30 3a 6e 6c  3d 4a 25 2b 31 32 32 38  |12280:nl=J%+1228|
0000ce90  34 3a 42 4a 3d 4a 25 2b  31 32 31 38 38 3a 4d 69  |4:BJ=J%+12188:Mi|
0000cea0  3d 4a 25 2b 31 32 31 38  30 3a 78 69 3d 4a 25 2b  |=J%+12180:xi=J%+|
0000ceb0  31 32 32 31 32 3a 5a 61  3d 4a 25 2b 31 31 33 34  |12212:Za=J%+1134|
0000cec0  38 3a 71 61 3d 4a 25 2b  31 38 33 39 32 3a 65 69  |8:qa=J%+18392:ei|
0000ced0  3d 4a 25 2b 32 31 36 37  36 3a 71 3d 4a 25 2b 33  |=J%+21676:q=J%+3|
0000cee0  35 37 30 30 3a 44 6c 3d  4a 25 2b 31 30 37 38 30  |5700:Dl=J%+10780|
0000cef0  3a 74 75 3d 4a 25 2b 31  30 37 38 34 3a 58 3d 4a  |:tu=J%+10784:X=J|
0000cf00  25 2b 33 35 37 30 34 3a  5f 69 3d 4a 25 2b 31 33  |%+35704:_i=J%+13|
0000cf10  35 38 30 3a 48 4a 3d 4a  25 2b 33 35 37 30 38 3a  |580:HJ=J%+35708:|
0000cf20  6a 6c 3d 4a 25 2b 31 33  35 38 34 3a 6f 69 3d 4a  |jl=J%+13584:oi=J|
0000cf30  25 2b 31 37 37 36 34 3a  49 6e 3d 4a 25 2b 34 38  |%+17764:In=J%+48|
0000cf40  36 37 36 0d 74 62 fd 62  79 3d 4a 25 2b 34 38 37  |676.tb.by=J%+487|
0000cf50  33 32 3a 6c 75 3d 4a 25  2b 34 38 38 37 36 3a 4c  |32:lu=J%+48876:L|
0000cf60  75 3d 4a 25 2b 31 36 34  30 38 3a 66 4a 3d 4a 25  |u=J%+16408:fJ=J%|
0000cf70  2b 34 38 38 38 34 3a 4d  75 3d 4a 25 2b 34 38 39  |+48884:Mu=J%+489|
0000cf80  34 38 3a 64 4a 3d 4a 25  2b 33 38 32 37 36 3a 52  |48:dJ=J%+38276:R|
0000cf90  75 3d 4a 25 2b 34 39 31  33 36 3a 6a 79 3d 4a 25  |u=J%+49136:jy=J%|
0000cfa0  2b 34 39 33 35 36 3a 69  79 3d 4a 25 2b 34 39 34  |+49356:iy=J%+494|
0000cfb0  31 32 3a 70 6e 3d 4a 25  2b 33 34 33 36 34 3a 6f  |12:pn=J%+34364:o|
0000cfc0  3d 4a 25 2b 33 35 37 31  32 3a 58 75 3d 4a 25 2b  |=J%+35712:Xu=J%+|
0000cfd0  31 37 37 36 30 3a 66 79  3d 4a 25 2b 33 38 31 36  |17760:fy=J%+3816|
0000cfe0  38 3a 75 61 3d 4a 25 2b  34 36 39 32 30 3a 5a 60  |8:ua=J%+46920:Z`|
0000cff0  3d 4a 25 2b 34 36 39 32  34 3a 46 6e 3d 4a 25 2b  |=J%+46924:Fn=J%+|
0000d000  34 36 39 32 38 3a 79 5f  3d 4a 25 2b 32 30 38 32  |46928:y_=J%+2082|
0000d010  34 3a 4b 61 3d 4a 25 2b  32 30 38 32 38 3a 73 4a  |4:Ka=J%+20828:sJ|
0000d020  3d 4a 25 2b 36 30 39 32  3a 55 69 3d 4a 25 2b 34  |=J%+6092:Ui=J%+4|
0000d030  32 36 36 30 3a 64 69 3d  4a 25 2b 34 32 36 36 34  |2660:di=J%+42664|
0000d040  0d 74 63 f2 76 69 3d 4a  25 2b 34 32 36 36 38 3a  |.tc.vi=J%+42668:|
0000d050  69 75 3d 4a 25 2b 34 32  36 37 36 3a 75 75 3d 4a  |iu=J%+42676:uu=J|
0000d060  25 2b 34 32 36 38 30 3a  73 61 3d 4a 25 2b 34 32  |%+42680:sa=J%+42|
0000d070  36 38 34 3a 70 6c 3d 4a  25 2b 34 32 36 39 32 3a  |684:pl=J%+42692:|
0000d080  76 6c 3d 4a 25 2b 34 32  36 39 36 3a 62 6c 3d 4a  |vl=J%+42696:bl=J|
0000d090  25 2b 34 32 37 30 30 3a  70 69 3d 4a 25 2b 34 32  |%+42700:pi=J%+42|
0000d0a0  36 34 34 3a 57 69 3d 4a  25 2b 34 32 36 34 38 3a  |644:Wi=J%+42648:|
0000d0b0  46 75 3d 4a 25 2b 34 32  36 35 32 3a 62 4a 3d 4a  |Fu=J%+42652:bJ=J|
0000d0c0  25 2b 34 32 37 32 38 3a  64 75 3d 4a 25 2b 34 32  |%+42728:du=J%+42|
0000d0d0  37 33 32 3a 74 4a 3d 4a  25 2b 34 32 37 33 36 3a  |732:tJ=J%+42736:|
0000d0e0  6d 4a 3d 4a 25 2b 31 34  39 32 3a 4e 61 3d 4a 25  |mJ=J%+1492:Na=J%|
0000d0f0  2b 32 36 39 31 32 3a 67  75 3d 4a 25 2b 34 32 37  |+26912:gu=J%+427|
0000d100  30 34 3a 5a 6c 3d 4a 25  2b 34 32 37 30 38 3a 6d  |04:Zl=J%+42708:m|
0000d110  75 3d 4a 25 2b 34 32 37  31 32 3a 79 69 3d 4a 25  |u=J%+42712:yi=J%|
0000d120  2b 34 32 37 34 34 3a 6c  4a 3d 4a 25 2b 34 32 37  |+42744:lJ=J%+427|
0000d130  31 36 0d 74 64 f6 53 75  3d 4a 25 2b 34 32 37 32  |16.td.Su=J%+4272|
0000d140  30 3a 43 75 3d 4a 25 2b  34 32 37 32 34 3a 6e 3d  |0:Cu=J%+42724:n=|
0000d150  4a 25 2b 38 33 32 3a 68  4a 3d 4a 25 2b 34 32 37  |J%+832:hJ=J%+427|
0000d160  34 38 3a 43 79 3d 4a 25  2b 34 31 35 36 34 3a 4f  |48:Cy=J%+41564:O|
0000d170  3d 4a 25 2b 32 33 38 34  34 3a 7a 3d 4a 25 2b 32  |=J%+23844:z=J%+2|
0000d180  33 38 34 38 3a 5f 3d 4a  25 2b 35 34 33 36 3a 78  |3848:_=J%+5436:x|
0000d190  3d 4a 25 2b 35 34 34 30  3a 61 5f 3d 4a 25 2b 32  |=J%+5440:a_=J%+2|
0000d1a0  35 34 31 36 3a 6d 6c 3d  4a 25 2b 32 35 39 31 36  |5416:ml=J%+25916|
0000d1b0  3a 73 69 3d 4a 25 2b 32  36 39 31 36 3a 66 69 3d  |:si=J%+26916:fi=|
0000d1c0  4a 25 2b 32 32 38 32 38  3a 59 75 3d 4a 25 2b 32  |J%+22828:Yu=J%+2|
0000d1d0  32 38 33 32 3a 6c 69 3d  4a 25 2b 34 34 39 32 38  |2832:li=J%+44928|
0000d1e0  3a 4c 6c 3d 4a 25 2b 34  34 39 32 30 3a 74 69 3d  |:Ll=J%+44920:ti=|
0000d1f0  4a 25 2b 34 34 39 32 34  3a 6d 5f 3d 4a 25 2b 34  |J%+44924:m_=J%+4|
0000d200  35 36 30 38 3a 74 5f 3d  4a 25 2b 34 36 34 34 38  |5608:t_=J%+46448|
0000d210  3a 78 6e 3d 4a 25 2b 34  36 34 36 38 3a 5a 4a 3d  |:xn=J%+46468:ZJ=|
0000d220  4a 25 2b 34 36 34 35 32  0d 74 65 fa 49 69 3d 4a  |J%+46452.te.Ii=J|
0000d230  25 2b 34 36 34 35 36 3a  7a 4a 3d 4a 25 2b 34 36  |%+46456:zJ=J%+46|
0000d240  34 36 30 3a 6b 79 3d 4a  25 2b 34 35 36 30 34 3a  |460:ky=J%+45604:|
0000d250  4e 69 3d 4a 25 2b 32 31  37 36 34 3a 7a 75 3d 4a  |Ni=J%+21764:zu=J|
0000d260  25 2b 32 31 37 36 38 3a  5a 69 3d 4a 25 2b 32 31  |%+21768:Zi=J%+21|
0000d270  37 37 32 3a 71 79 3d 4a  25 2b 32 31 37 37 36 3a  |772:qy=J%+21776:|
0000d280  54 69 3d 4a 25 2b 32 31  37 39 36 3a 4d 6e 3d 4a  |Ti=J%+21796:Mn=J|
0000d290  25 2b 32 31 36 36 34 3a  6b 5f 3d 4a 25 2b 32 31  |%+21664:k_=J%+21|
0000d2a0  37 38 38 3a 4d 4a 3d 4a  25 2b 32 32 38 33 36 3a  |788:MJ=J%+22836:|
0000d2b0  4a 61 3d 4a 25 2b 35 34  34 34 3a 5f 4a 3d 4a 25  |Ja=J%+5444:_J=J%|
0000d2c0  2b 32 35 34 30 38 3a 77  5f 3d 4a 25 2b 32 35 34  |+25408:w_=J%+254|
0000d2d0  31 32 3a 61 3d 4a 25 2b  34 32 36 30 38 3a 73 6e  |12:a=J%+42608:sn|
0000d2e0  3d 4a 25 2b 34 30 37 36  3a 7a 5f 3d 4a 25 2b 35  |=J%+4076:z_=J%+5|
0000d2f0  30 35 30 34 3a 79 75 3d  4a 25 2b 32 36 38 38 34  |0504:yu=J%+26884|
0000d300  3a 77 61 3d 4a 25 2b 37  38 34 38 3a 70 75 3d 4a  |:wa=J%+7848:pu=J|
0000d310  25 2b 37 38 35 32 3a 56  79 3d 4a 25 2b 31 30 37  |%+7852:Vy=J%+107|
0000d320  37 32 0d 74 66 f8 62 69  3d 4a 25 2b 38 34 37 32  |72.tf.bi=J%+8472|
0000d330  3a 48 61 3d 4a 25 2b 38  34 37 36 3a 59 6c 3d 4a  |:Ha=J%+8476:Yl=J|
0000d340  25 2b 38 34 38 30 3a 68  61 3d 4a 25 2b 38 34 38  |%+8480:ha=J%+848|
0000d350  34 3a 49 79 3d 4a 25 2b  36 31 34 34 3a 59 3d 4a  |4:Iy=J%+6144:Y=J|
0000d360  25 2b 37 38 36 38 3a 65  79 3d 4a 25 2b 31 30 37  |%+7868:ey=J%+107|
0000d370  37 36 3a 56 5f 3d 4a 25  2b 32 30 38 32 30 3a 68  |76:V_=J%+20820:h|
0000d380  79 3d 4a 25 2b 34 31 32  31 32 3a 58 5f 3d 4a 25  |y=J%+41212:X_=J%|
0000d390  2b 34 31 32 31 36 3a 5a  75 3d 4a 25 2b 34 31 31  |+41216:Zu=J%+411|
0000d3a0  38 34 3a 71 6c 3d 4a 25  2b 34 31 31 37 36 3a 48  |84:ql=J%+41176:H|
0000d3b0  6c 3d 4a 25 2b 34 31 31  38 30 3a 44 79 3d 4a 25  |l=J%+41180:Dy=J%|
0000d3c0  2b 34 31 31 36 38 3a 51  79 3d 4a 25 2b 34 31 31  |+41168:Qy=J%+411|
0000d3d0  37 32 3a 6a 69 3d 4a 25  2b 34 31 31 36 34 3a 48  |72:ji=J%+41164:H|
0000d3e0  5f 3d 4a 25 2b 34 31 31  36 30 3a 64 6e 3d 4a 25  |_=J%+41160:dn=J%|
0000d3f0  2b 34 39 34 31 36 3a 72  6e 3d 4a 25 2b 34 39 35  |+49416:rn=J%+495|
0000d400  32 34 3a 69 61 3d 4a 25  2b 34 39 36 34 38 3a 51  |24:ia=J%+49648:Q|
0000d410  61 3d 4a 25 2b 34 33 31  36 34 0d 74 67 b6 79 3d  |a=J%+43164.tg.y=|
0000d420  4a 25 2b 32 33 32 38 38  3a 64 61 3d 4a 25 2b 31  |J%+23288:da=J%+1|
0000d430  36 33 39 36 3a 75 69 3d  4a 25 2b 31 36 34 30 30  |6396:ui=J%+16400|
0000d440  3a 6d 69 3d 4a 25 2b 31  36 34 30 34 3a 7a 69 3d  |:mi=J%+16404:zi=|
0000d450  4a 25 2b 33 36 35 38 38  3a 62 75 3d 4a 25 2b 33  |J%+36588:bu=J%+3|
0000d460  36 32 33 32 3a 72 79 3d  4a 25 2b 35 39 30 30 3a  |6232:ry=J%+5900:|
0000d470  7a 79 3d 4a 25 2b 34 30  39 36 3a 47 75 3d 4a 25  |zy=J%+4096:Gu=J%|
0000d480  2b 32 36 39 32 38 3a 65  6c 3d 4a 25 2b 32 36 39  |+26928:el=J%+269|
0000d490  33 32 3a 4b 6c 3d 4a 25  2b 32 36 39 33 36 3a 6b  |32:Kl=J%+26936:k|
0000d4a0  69 3d 4a 25 2b 32 34 33  36 34 3a 65 75 3d 4a 25  |i=J%+24364:eu=J%|
0000d4b0  2b 32 36 39 34 38 3a 54  6e 3d 4a 25 2b 32 34 39  |+26948:Tn=J%+249|
0000d4c0  35 32 3a 56 6c 3d 4a 25  2b 32 39 39 31 32 3a e1  |52:Vl=J%+29912:.|
0000d4d0  0d 74 68 2f dd f2 55 69  28 62 25 2c 49 25 29 3a  |.th/..Ui(b%,I%):|
0000d4e0  e7 62 25 3d 31 80 49 25  3d 39 49 25 3d 31 30 8b  |.b%=1.I%=9I%=10.|
0000d4f0  e7 62 25 3d 31 80 49 25  3d 31 30 49 25 3d 39 0d  |.b%=1.I%=10I%=9.|
0000d500  74 69 09 c8 8e 49 25 ca  0d 74 6a 2f c9 37 3a f2  |ti...I%..tj/.7:.|
0000d510  75 3a e7 43 79 25 3c 30  84 44 79 25 f2 55 28 67  |u:.Cy%<0.Dy%.U(g|
0000d520  4a 25 2c 32 2b 43 79 25  29 8b f2 52 28 67 4a 25  |J%,2+Cy%)..R(gJ%|
0000d530  2c 32 2b 43 79 25 29 0d  74 6b 15 e7 44 79 25 f2  |,2+Cy%).tk..Dy%.|
0000d540  55 28 67 4a 25 2c 34 2b  43 79 25 29 0d 74 6c 17  |U(gJ%,4+Cy%).tl.|
0000d550  e7 43 79 25 3e 2d 31 f2  42 28 67 4a 25 2c 69 25  |.Cy%>-1.B(gJ%,i%|
0000d560  2b 31 29 0d 74 6d 11 f2  54 28 67 4a 25 2c 79 25  |+1).tm..T(gJ%,y%|
0000d570  2c 68 25 29 0d 74 6e 2e  c9 39 3a 43 24 3d a4 4d  |,h%).tn..9:C$=.M|
0000d580  28 67 25 2c 31 39 29 3a  e7 a9 28 43 24 29 3e 31  |(g%,19):..(C$)>1|
0000d590  8c 4f 25 3d bb 28 43 24  29 8b 4f 25 3d 97 28 43  |.O%=.(C$).O%=.(C|
0000d5a0  24 29 0d 74 6f 1c e7 4f  25 3e 33 33 8c f2 41 28  |$).to..O%>33..A(|
0000d5b0  67 25 2c 31 39 2c bd 28  4f 25 2d 31 29 29 0d 74  |g%,19,.(O%-1)).t|
0000d5c0  70 06 f2 5f 0d 74 71 2f  c9 31 30 3a 43 24 3d a4  |p.._.tq/.10:C$=.|
0000d5d0  4d 28 67 25 2c 31 39 29  3a e7 a9 28 43 24 29 3e  |M(g%,19):..(C$)>|
0000d5e0  31 8c 4f 25 3d bb 28 43  24 29 8b 4f 25 3d 97 28  |1.O%=.(C$).O%=.(|
0000d5f0  43 24 29 0d 74 72 1d e7  4f 25 3c 32 35 35 8c f2  |C$).tr..O%<255..|
0000d600  41 28 67 25 2c 31 39 2c  bd 28 4f 25 2b 31 29 29  |A(g%,19,.(O%+1))|
0000d610  0d 74 73 06 f2 5f 0d 74  74 1a c9 35 3a 4a 6b 25  |.ts.._.tt..5:Jk%|
0000d620  3d 31 3a f2 54 28 71 61  25 2c 79 25 2c 68 25 29  |=1:.T(qa%,y%,h%)|
0000d630  0d 74 75 1b c9 38 3a f2  50 79 28 48 4a 25 2c 79  |.tu..8:.Py(HJ%,y|
0000d640  25 2d 36 34 2c 68 25 2b  36 34 29 0d 74 76 1c c9  |%-64,h%+64).tv..|
0000d650  31 31 3a f2 50 79 28 73  4a 25 2c 79 25 2d 36 34  |11:.Py(sJ%,y%-64|
0000d660  2c 68 25 2b 36 34 29 0d  74 77 0b c9 31 33 3a f2  |,h%+64).tw..13:.|
0000d670  78 75 0d 74 78 0b c9 31  32 3a f2 50 5f 0d 74 79  |xu.tx..12:.P_.ty|
0000d680  0b c9 31 38 3a f2 6b 5f  0d 74 7a 11 c9 33 3a e7  |..18:.k_.tz..3:.|
0000d690  44 79 25 f2 79 8b f2 54  79 0d 74 7b 16 c9 32 32  |Dy%.y..Ty.t{..22|
0000d6a0  3a f2 4d 28 67 25 29 3a  f2 4d 28 48 4a 25 29 0d  |:.M(g%):.M(HJ%).|
0000d6b0  74 7c 07 cb 3a e1 0d 74  7d 24 dd f2 6a 6c 28 49  |t|..:..t}$..jl(I|
0000d6c0  25 2c 6a 25 29 3a e7 6a  25 3c 3e 31 33 c8 99 26  |%,j%):.j%<>13..&|
0000d6d0  34 30 30 64 63 2c 6a 25  3a e1 0d 74 7e 09 c8 8e  |400dc,j%:..t~...|
0000d6e0  49 25 ca 0d 74 7f 23 c9  31 39 3a f2 53 28 59 25  |I%..t.#.19:.S(Y%|
0000d6f0  2c 31 32 2c 31 29 3a f2  50 5f 3a f2 53 28 59 25  |,12,1):.P_:.S(Y%|
0000d700  2c 31 32 2c 30 29 0d 74  80 0a c9 36 3a f2 63 69  |,12,0).t...6:.ci|
0000d710  0d 74 81 16 c9 32 31 3a  f2 6b 79 28 a4 4d 28 48  |.t...21:.ky(.M(H|
0000d720  4a 25 2c 33 29 29 0d 74  82 10 7f c8 99 26 34 30  |J%,3)).t.....&40|
0000d730  30 64 63 2c 6a 25 0d 74  83 07 cb 3a e1 0d 74 84  |0dc,j%.t...:..t.|
0000d740  11 dd f2 58 75 3a c8 8e  a4 50 28 30 29 ca 0d 74  |...Xu:...P(0)..t|
0000d750  85 0e c9 32 2b 43 79 25  3a f2 65 61 0d 74 86 13  |...2+Cy%:.ea.t..|
0000d760  c9 33 2b 43 79 25 3a c8  8e a4 50 28 31 29 ca 0d  |.3+Cy%:...P(1)..|
0000d770  74 87 0a c9 31 3a f2 55  5f 0d 74 88 05 cb 0d 74  |t...1:.U_.t....t|
0000d780  89 12 c9 34 2b 43 79 25  3a e7 54 61 25 3d a3 8c  |...4+Cy%:.Ta%=..|
0000d790  0d 74 8a c5 e7 a4 55 28  22 57 61 72 6e 69 6e 67  |.t....U("Warning|
0000d7a0  20 66 72 6f 6d 20 4f 70  74 69 63 61 6c 22 2c 22  | from Optical","|
0000d7b0  41 72 65 20 79 6f 75 20  73 75 72 65 20 79 6f 75  |Are you sure you|
0000d7c0  20 77 61 6e 74 20 74 6f  20 6c 6f 61 64 20 74 68  | want to load th|
0000d7d0  65 20 64 65 66 61 75 6c  74 20 66 6f 6e 74 20 73  |e default font s|
0000d7e0  65 74 2c 20 61 73 20 74  68 65 72 65 20 61 72 65  |et, as there are|
0000d7f0  20 75 6e 73 61 76 65 64  20 61 6d 65 6e 64 6d 65  | unsaved amendme|
0000d800  6e 74 73 20 69 6e 20 6d  65 6d 6f 72 79 2e 20 43  |nts in memory. C|
0000d810  6c 69 63 6b 20 6f 6e 20  4f 4b 20 74 6f 20 6c 6f  |lick on OK to lo|
0000d820  61 64 2e 22 29 c8 99 26  34 30 36 63 30 3a f2 6e  |ad.")..&406c0:.n|
0000d830  79 28 22 3c 4f 70 74 63  6c 50 72 6f 24 44 69 72  |y("<OptclPro$Dir|
0000d840  3e 2e 44 65 66 46 6f 6e  74 73 22 29 3a c8 99 26  |>.DefFonts"):..&|
0000d850  34 30 36 63 31 0d 74 8b  36 cc 3a c8 99 26 34 30  |406c1.t.6.:..&40|
0000d860  36 63 30 3a f2 6e 79 28  22 3c 4f 70 74 63 6c 50  |6c0:.ny("<OptclP|
0000d870  72 6f 24 44 69 72 3e 2e  44 65 66 46 6f 6e 74 73  |ro$Dir>.DefFonts|
0000d880  22 29 3a c8 99 26 34 30  36 63 31 0d 74 8c 05 cd  |"):..&406c1.t...|
0000d890  0d 74 8d 0e c9 35 2b 43  79 25 3a f2 77 79 0d 74  |.t...5+Cy%:.wy.t|
0000d8a0  8e 0e c9 36 2b 43 79 25  3a f2 77 79 0d 74 8f 0f  |...6+Cy%:.wy.t..|
0000d8b0  7f f2 74 5f 28 a4 50 28  30 29 29 0d 74 90 07 cb  |..t_(.P(0)).t...|
0000d8c0  3a e1 0d 74 91 a7 dd f2  77 79 3a f2 58 28 22 4d  |:..t....wy:.X("M|
0000d8d0  65 73 73 61 67 65 20 66  72 6f 6d 20 4f 70 74 69  |essage from Opti|
0000d8e0  63 61 6c 22 2c 22 49 74  20 69 73 20 6e 6f 74 20  |cal","It is not |
0000d8f0  70 6f 73 73 69 62 6c 65  20 74 6f 20 73 61 76 65  |possible to save|
0000d900  20 66 6f 6e 74 20 64 65  66 69 6e 69 74 69 6f 6e  | font definition|
0000d910  73 20 77 69 74 68 20 74  68 69 73 20 76 65 72 73  |s with this vers|
0000d920  69 6f 6e 20 6f 66 20 4f  70 74 69 63 61 6c 2e 20  |ion of Optical. |
0000d930  46 6f 72 20 61 20 66 75  6c 6c 20 76 65 72 73 69  |For a full versi|
0000d940  6f 6e 20 70 6c 65 61 73  65 20 63 6f 6e 74 61 63  |on please contac|
0000d950  74 20 4e 65 75 72 6f 74  72 6f 6e 20 53 6f 66 74  |t Neurotron Soft|
0000d960  77 61 72 65 2e 22 29 3a  e1 0d 74 92 6a dd f2 44  |ware."):..t.j..D|
0000d970  69 3a 4e 65 77 46 5f 4d  65 6e 75 25 3d a4 42 28  |i:NewF_Menu%=.B(|
0000d980  22 4e 65 77 20 66 6f 6e  74 2c 31 32 33 34 35 36  |"New font,123456|
0000d990  37 38 39 30 31 32 33 34  35 36 37 38 39 30 22 29  |78901234567890")|
0000d9a0  3a f2 75 3a de 68 42 25  34 30 3a e3 46 61 25 3d  |:.u:.hB%40:.Fa%=|
0000d9b0  30 b8 33 39 88 34 3a 68  42 25 21 46 61 25 3d 30  |0.39.4:hB%!Fa%=0|
0000d9c0  3a ed 3a e7 43 79 25 3e  3d 30 f2 42 28 67 4a 25  |:.:.Cy%>=0.B(gJ%|
0000d9d0  2c 31 29 0d 74 93 21 f2  73 75 28 4e 65 77 46 5f  |,1).t.!.su(NewF_|
0000d9e0  4d 65 6e 75 25 2c 31 2c  68 42 25 2c 2d 31 2c 34  |Menu%,1,hB%,-1,4|
0000d9f0  30 29 3a e1 0d 74 94 ae  dd f2 75 3a ea 58 79 25  |0):..t....u:.Xy%|
0000da00  2c 55 79 25 2c 6b 79 25  2c 57 75 25 2c 6b 61 25  |,Uy%,ky%,Wu%,ka%|
0000da10  2c 4c 75 25 3a 4a 79 25  3d 67 4a 25 3a 4c 75 25  |,Lu%:Jy%=gJ%:Lu%|
0000da20  3d 30 3a 4a 79 25 3f 31  32 3d 37 3a 4a 79 25 3f  |=0:Jy%?12=7:Jy%?|
0000da30  31 33 3d 32 3a 4a 79 25  3f 31 34 3d 37 3a 4a 79  |13=2:Jy%?14=7:Jy|
0000da40  25 3f 31 35 3d 30 3a 4a  79 25 21 31 36 3d 31 34  |%?15=0:Jy%!16=14|
0000da50  30 3a 4a 79 25 21 32 30  3d 34 34 3a 4a 79 25 21  |0:Jy%!20=44:Jy%!|
0000da60  32 34 3d 30 3a 58 79 25  3d 4a 79 25 2b 32 38 3a  |24=0:Xy%=Jy%+28:|
0000da70  24 4a 79 25 3d 22 4f 43  52 20 66 6f 6e 74 73 22  |$Jy%="OCR fonts"|
0000da80  3a 55 79 25 3d a9 28 22  4f 43 52 20 66 6f 6e 74  |:Uy%=.("OCR font|
0000da90  73 22 29 3a 60 6f 25 3d  30 3a e7 43 79 25 3e 3d  |s"):`o%=0:.Cy%>=|
0000daa0  30 8c 0d 74 95 46 e3 53  79 25 3d 30 b8 43 79 25  |0..t.F.Sy%=0.Cy%|
0000dab0  3a 21 58 79 25 3d 30 3a  58 79 25 21 34 3d 2d 31  |:!Xy%=0:Xy%!4=-1|
0000dac0  3a 58 79 25 21 38 3d 26  37 30 30 30 30 32 31 3a  |:Xy%!8=&7000021:|
0000dad0  6b 79 25 3d a9 28 41 24  28 53 79 25 29 29 3a e7  |ky%=.(A$(Sy%)):.|
0000dae0  4c 75 25 3c 4c 60 25 8c  0d 74 96 51 58 79 25 21  |Lu%<L`%..t.QXy%!|
0000daf0  38 2b 3d 31 3c 3c 38 3a  58 79 25 21 31 32 3d 6c  |8+=1<<8:Xy%!12=l|
0000db00  60 25 2b 4c 75 25 2a 34  30 3a 58 79 25 21 31 36  |`%+Lu%*40:Xy%!16|
0000db10  3d 30 3a 58 79 25 21 32  30 3d 32 31 3a 24 28 6c  |=0:Xy%!20=21:$(l|
0000db20  60 25 2b 4c 75 25 2a 34  30 29 3d 41 24 28 53 79  |`%+Lu%*40)=A$(Sy|
0000db30  25 29 3a 4c 75 25 2b 3d  31 0d 74 97 19 cc 3a 24  |%):Lu%+=1.t...:$|
0000db40  28 58 79 25 2b 31 32 29  3d c0 41 24 28 53 79 25  |(Xy%+12)=.A$(Sy%|
0000db50  29 29 0d 74 98 16 cd 3a  e7 6b 79 25 3e 55 79 25  |)).t...:.ky%>Uy%|
0000db60  8c 55 79 25 3d 6b 79 25  0d 74 99 0d 58 79 25 2b  |.Uy%=ky%.t..Xy%+|
0000db70  3d 32 34 3a ed 0d 74 9a  86 cd 3a 5a 24 3d 22 2c  |=24:..t...:Z$=",|
0000db80  44 65 6c 65 74 65 20 66  6f 6e 74 2c 4e 65 77 20  |Delete font,New |
0000db90  66 6f 6e 74 3e 4e 65 77  46 5f 4d 65 6e 75 25 2c  |font>NewF_Menu%,|
0000dba0  4c 6f 61 64 20 64 65 66  61 75 6c 74 73 2c 53 61  |Load defaults,Sa|
0000dbb0  76 65 20 64 65 66 61 75  6c 74 73 2c 53 61 76 65  |ve defaults,Save|
0000dbc0  20 66 6f 6e 74 73 2e 2e  2e 3e 53 61 76 65 46 5f  | fonts...>SaveF_|
0000dbd0  57 69 6e 64 6f 77 25 2c  22 3a c8 95 5a 24 3c 3e  |Window%,":..Z$<>|
0000dbe0  22 22 3a 5a 24 3d c1 5a  24 2c a7 5a 24 2c 22 2c  |"":Z$=.Z$,.Z$,",|
0000dbf0  22 29 2b 31 29 3a c8 8e  5a 24 ca 0d 74 9b 07 c9  |")+1):..Z$..t...|
0000dc00  22 22 0d 74 9c 4d 7f 3a  21 58 79 25 3d 30 3a 58  |"".t.M.:!Xy%=0:X|
0000dc10  79 25 21 34 3d 2d 31 3a  58 79 25 21 38 3d 26 37  |y%!4=-1:Xy%!8=&7|
0000dc20  30 30 30 30 32 31 3a 6b  79 25 3d a7 5a 24 2c 22  |000021:ky%=.Z$,"|
0000dc30  2c 22 29 2d 31 3a 57 75  25 3d a7 c0 5a 24 2c 6b  |,")-1:Wu%=..Z$,k|
0000dc40  79 25 29 2c 22 3e 22 29  3a c8 8e 57 75 25 ca 0d  |y%),">"):..Wu%..|
0000dc50  74 9d 06 c9 30 0d 74 9e  33 7f 3a 6b 61 25 3d a0  |t...0.t.3.:ka%=.|
0000dc60  28 c1 5a 24 2c 57 75 25  2b 31 2c 6b 79 25 2d 57  |(.Z$,Wu%+1,ky%-W|
0000dc70  75 25 29 29 3a 58 79 25  21 34 3d 6b 61 25 3a 6b  |u%)):Xy%!4=ka%:k|
0000dc80  79 25 3d 57 75 25 2d 31  0d 74 9f 0f cb 3a e7 4c  |y%=Wu%-1.t...:.L|
0000dc90  75 25 3c 4c 60 25 8c 0d  74 a0 52 58 79 25 21 38  |u%<L`%..t.RXy%!8|
0000dca0  2b 3d 31 3c 3c 38 3a 58  79 25 21 31 32 3d 6c 60  |+=1<<8:Xy%!12=l`|
0000dcb0  25 2b 4c 75 25 2a 34 30  3a 58 79 25 21 31 36 3d  |%+Lu%*40:Xy%!16=|
0000dcc0  30 3a 58 79 25 21 32 30  3d 32 31 3a 24 28 6c 60  |0:Xy%!20=21:$(l`|
0000dcd0  25 2b 4c 75 25 2a 34 30  29 3d c0 5a 24 2c 6b 79  |%+Lu%*40)=.Z$,ky|
0000dce0  25 29 3a 4c 75 25 2b 3d  31 0d 74 a1 17 cc 3a 24  |%):Lu%+=1.t...:$|
0000dcf0  28 58 79 25 2b 31 32 29  3d c0 5a 24 2c 31 32 29  |(Xy%+12)=.Z$,12)|
0000dd00  0d 74 a2 16 cd 3a e7 6b  79 25 3e 55 79 25 8c 55  |.t...:.ky%>Uy%.U|
0000dd10  79 25 3d 6b 79 25 0d 74  a3 0b 58 79 25 2b 3d 32  |y%=ky%.t..Xy%+=2|
0000dd20  34 0d 74 a4 3d cb 3a ce  3a 4a 79 25 21 31 36 3d  |4.t.=.:.:Jy%!16=|
0000dd30  31 36 2a 28 55 79 25 2b  31 29 3a 58 79 25 21 2d  |16*(Uy%+1):Xy%!-|
0000dd40  32 34 3d 58 79 25 21 2d  32 34 84 31 32 38 3a f2  |24=Xy%!-24.128:.|
0000dd50  66 28 67 4a 25 2c 43 79  25 2b 31 29 3a e1 0d 74  |f(gJ%,Cy%+1):..t|
0000dd60  a5 63 dd f2 55 5f 3a e7  43 79 25 3d 4b 4a 25 2d  |.c..U_:.Cy%=KJ%-|
0000dd70  31 8c f2 58 28 22 4d 65  73 73 61 67 65 20 66 72  |1..X("Message fr|
0000dd80  6f 6d 20 4f 70 74 69 63  61 6c 22 2c 22 59 6f 75  |om Optical","You|
0000dd90  20 63 61 6e 20 6f 6e 6c  79 20 68 61 76 65 20 61  | can only have a|
0000dda0  20 6d 61 78 69 6d 75 6d  20 6f 66 20 22 2b c3 28  | maximum of "+.(|
0000ddb0  4b 4a 25 29 2b 22 20 66  6f 6e 74 73 2e 22 29 3a  |KJ%)+" fonts."):|
0000ddc0  e1 0d 74 a6 2c f2 46 28  67 25 2c 36 29 3a f2 46  |..t.,.F(g%,6):.F|
0000ddd0  28 67 25 2c 38 29 3a e7  a4 4d 28 67 25 2c 31 36  |(g%,8):..M(g%,16|
0000dde0  29 3d 22 22 f2 46 28 67  25 2c 31 32 29 0d 74 a7  |)="".F(g%,12).t.|
0000ddf0  9a f2 46 28 67 25 2c 31  38 29 3a f2 46 28 66 79  |..F(g%,18):.F(fy|
0000de00  25 2c 36 29 3a 43 79 25  2b 3d 31 3a 69 25 3d 43  |%,6):Cy%+=1:i%=C|
0000de10  79 25 3a 41 24 28 69 25  29 3d a4 46 28 68 42 25  |y%:A$(i%)=.F(hB%|
0000de20  29 3a f2 6b 79 28 43 79  24 29 3a f2 75 3a f2 42  |):.ky(Cy$):.u:.B|
0000de30  28 67 4a 25 2c 69 25 2b  31 29 3a f2 70 79 28 69  |(gJ%,i%+1):.py(i|
0000de40  25 29 3a f2 46 79 28 69  25 29 3a 53 25 28 69 25  |%):.Fy(i%):S%(i%|
0000de50  29 3d b9 3a f2 70 3a f2  5f 3a e7 44 79 25 f2 4e  |)=.:.p:._:.Dy%.N|
0000de60  28 52 5f 25 2c 22 54 79  70 65 20 74 65 61 63 68  |(R_%,"Type teach|
0000de70  69 6e 67 20 66 6f 6e 74  20 27 22 2b 41 24 28 69  |ing font '"+A$(i|
0000de80  25 29 2b 22 27 22 29 0d  74 a8 05 e1 0d 74 a9 70  |%)+"'").t....t.p|
0000de90  dd f2 65 61 3a ea 53 79  25 3a e7 44 79 25 80 43  |..ea:.Sy%:.Dy%.C|
0000dea0  79 25 3c 31 f2 58 28 22  4d 65 73 73 61 67 65 20  |y%<1.X("Message |
0000deb0  66 72 6f 6d 20 4f 70 74  69 63 61 6c 22 2c 22 54  |from Optical","T|
0000dec0  68 69 73 20 66 6f 6e 74  20 63 61 6e 6e 6f 74 20  |his font cannot |
0000ded0  62 65 20 64 65 6c 65 74  65 64 20 77 68 69 6c 73  |be deleted whils|
0000dee0  74 20 69 6e 20 54 79 70  65 20 54 65 61 63 68 69  |t in Type Teachi|
0000def0  6e 67 20 6d 6f 64 65 2e  22 29 3a e1 0d 74 aa 82  |ng mode."):..t..|
0000df00  e7 a4 55 28 22 57 61 72  6e 69 6e 67 20 66 72 6f  |..U("Warning fro|
0000df10  6d 20 4f 70 74 69 63 61  6c 22 2c 22 54 68 69 73  |m Optical","This|
0000df20  20 61 63 74 69 6f 6e 20  77 69 6c 6c 20 64 65 6c  | action will del|
0000df30  65 74 65 20 61 6c 6c 20  63 68 61 72 61 63 74 65  |ete all characte|
0000df40  72 20 64 65 66 69 6e 69  74 69 6f 6e 73 20 69 6e  |r definitions in|
0000df50  20 74 68 65 20 63 75 72  72 65 6e 74 20 66 6f 6e  | the current fon|
0000df60  74 2e 20 43 6c 69 63 6b  20 6f 6e 20 4f 4b 20 74  |t. Click on OK t|
0000df70  6f 20 64 65 6c 65 74 65  2e 22 29 3d a3 e1 0d 74  |o delete.")=...t|
0000df80  ab 37 c8 99 26 34 30 36  63 30 3a 41 25 3d 41 25  |.7..&406c0:A%=A%|
0000df90  28 75 25 29 3a 42 25 3d  69 25 3a 46 25 3d 41 25  |(u%):B%=i%:F%=A%|
0000dfa0  28 75 75 25 29 3a d6 78  61 3a e7 43 79 25 2d 31  |(uu%):.xa:.Cy%-1|
0000dfb0  3e 3d 69 25 8c 0d 74 ac  5d e3 76 5f 25 3d 69 25  |>=i%..t.].v_%=i%|
0000dfc0  b8 43 79 25 2d 31 3a 41  24 28 76 5f 25 29 3d 41  |.Cy%-1:A$(v_%)=A|
0000dfd0  24 28 76 5f 25 2b 31 29  3a 53 25 28 76 5f 25 29  |$(v_%+1):S%(v_%)|
0000dfe0  3d 53 25 28 76 5f 25 2b  31 29 3a 53 24 28 76 5f  |=S%(v_%+1):S$(v_|
0000dff0  25 29 3d 53 24 28 76 5f  25 2b 31 29 3a 61 4a 25  |%)=S$(v_%+1):aJ%|
0000e000  3f 76 5f 25 3d 61 4a 25  3f 28 76 5f 25 2b 31 29  |?v_%=aJ%?(v_%+1)|
0000e010  3a ed 0d 74 ad 0e cd 3a  e7 69 25 3d 62 5f 25 8c  |:..t...:.i%=b_%.|
0000e020  0d 74 ae 1c 53 79 25 3d  30 3a f5 3a e7 53 25 28  |.t..Sy%=0:.:.S%(|
0000e030  53 79 25 29 8c 62 5f 25  3d 53 79 25 0d 74 af 37  |Sy%).b_%=Sy%.t.7|
0000e040  53 79 25 2b 3d 31 3a fd  53 25 28 53 79 25 2d 31  |Sy%+=1:.S%(Sy%-1|
0000e050  29 84 53 79 25 3e 43 79  25 3a f2 41 28 4e 5f 25  |).Sy%>Cy%:.A(N_%|
0000e060  2c 33 2c 41 24 28 62 5f  25 29 29 3a f2 4a 28 4e  |,3,A$(b_%)):.J(N|
0000e070  5f 25 29 0d 74 b0 15 cd  3a 43 79 25 2d 3d 31 3a  |_%).t...:Cy%-=1:|
0000e080  e7 43 79 25 3e 3d 30 8c  0d 74 b1 43 69 25 3d 30  |.Cy%>=0..t.Ci%=0|
0000e090  3a f2 46 79 28 69 25 29  3a f2 46 28 67 25 2c 36  |:.Fy(i%):.F(g%,6|
0000e0a0  29 3a f2 46 28 67 25 2c  38 29 3a f2 46 28 67 25  |):.F(g%,8):.F(g%|
0000e0b0  2c 31 31 29 3a e7 a4 4d  28 67 25 2c 31 36 29 3d  |,11):..M(g%,16)=|
0000e0c0  22 22 f2 46 28 67 25 2c  31 32 29 0d 74 b2 17 f2  |"".F(g%,12).t...|
0000e0d0  46 28 66 79 25 2c 36 29  3a f2 46 28 67 25 2c 31  |F(fy%,6):.F(g%,1|
0000e0e0  38 29 0d 74 b3 76 cc 3a  69 25 3d 2d 31 3a f2 41  |8).t.v.:i%=-1:.A|
0000e0f0  28 67 25 2c 36 2c 22 22  29 3a f2 41 28 48 4a 25  |(g%,6,""):.A(HJ%|
0000e100  2c 33 2c 22 22 29 3a f2  4d 28 73 4a 25 29 3a f2  |,3,""):.M(sJ%):.|
0000e110  5a 28 67 25 2c 36 29 3a  f2 5a 28 67 25 2c 38 29  |Z(g%,6):.Z(g%,8)|
0000e120  3a f2 4d 28 48 4a 25 29  3a f2 5a 28 67 25 2c 31  |:.M(HJ%):.Z(g%,1|
0000e130  31 29 3a f2 5a 28 67 25  2c 31 32 29 3a f2 5a 28  |1):.Z(g%,12):.Z(|
0000e140  66 79 25 2c 36 29 3a f2  5a 28 67 25 2c 31 38 29  |fy%,6):.Z(g%,18)|
0000e150  3a f2 4d 28 4e 5f 25 29  0d 74 b4 1b cd 3a f2 75  |:.M(N_%).t...:.u|
0000e160  3a e7 69 25 3e 3d 30 f2  42 28 67 4a 25 2c 69 25  |:.i%>=0.B(gJ%,i%|
0000e170  2b 31 29 0d 74 b5 3d 4b  25 3d a4 41 28 34 2b 38  |+1).t.=K%=.A(4+8|
0000e180  2a 21 28 41 25 28 75 25  29 29 2c 75 25 29 3a e7  |*!(A%(u%)),u%):.|
0000e190  43 79 25 3c 30 f2 55 28  67 4a 25 2c 32 2b 43 79  |Cy%<0.U(gJ%,2+Cy|
0000e1a0  25 29 8b f2 52 28 67 4a  25 2c 32 2b 43 79 25 29  |%)..R(gJ%,2+Cy%)|
0000e1b0  0d 74 b6 37 f2 70 3a f2  5f 3a e7 44 79 25 f2 4e  |.t.7.p:._:.Dy%.N|
0000e1c0  28 52 5f 25 2c 22 54 79  70 65 20 74 65 61 63 68  |(R_%,"Type teach|
0000e1d0  69 6e 67 20 66 6f 6e 74  20 27 22 2b 41 24 28 69  |ing font '"+A$(i|
0000e1e0  25 29 2b 22 27 22 29 0d  74 b7 0e c8 99 26 34 30  |%)+"'").t....&40|
0000e1f0  36 63 31 3a e1 0d 74 b8  16 dd f2 74 5f 28 6c 25  |6c1:..t....t_(l%|
0000e200  29 3a e7 6c 25 2d 31 3d  69 25 e1 0d 74 b9 5e f2  |):.l%-1=i%..t.^.|
0000e210  42 28 67 4a 25 2c 69 25  2b 31 29 3a 69 25 3d 6c  |B(gJ%,i%+1):i%=l|
0000e220  25 2d 31 3a f2 42 28 67  4a 25 2c 69 25 2b 31 29  |%-1:.B(gJ%,i%+1)|
0000e230  3a f2 46 79 28 69 25 29  3a f2 5f 3a e7 44 79 25  |:.Fy(i%):._:.Dy%|
0000e240  f2 4e 28 52 5f 25 2c 22  54 79 70 65 20 74 65 61  |.N(R_%,"Type tea|
0000e250  63 68 69 6e 67 20 66 6f  6e 74 20 27 22 2b 41 24  |ching font '"+A$|
0000e260  28 69 25 29 2b 22 27 22  29 0d 74 ba 0b 41 42 25  |(i%)+"'").t..AB%|
0000e270  3d a3 3a e1 0d 74 bb 0f  dd f2 63 69 3a e7 69 25  |=.:..t....ci:.i%|
0000e280  3c 30 e1 0d 74 bc 34 41  24 28 69 25 29 3d a4 4d  |<0..t.4A$(i%)=.M|
0000e290  28 67 25 2c 36 29 3a e7  a4 4d 28 67 25 2c 36 29  |(g%,6):..M(g%,6)|
0000e2a0  3c 3e 41 24 28 69 25 29  f2 41 28 67 25 2c 36 2c  |<>A$(i%).A(g%,6,|
0000e2b0  41 24 28 69 25 29 29 0d  74 bd 6f f2 75 3a f2 42  |A$(i%)).t.o.u:.B|
0000e2c0  28 67 4a 25 2c 69 25 2b  31 29 3a f2 47 28 67 25  |(gJ%,i%+1):.G(g%|
0000e2d0  2c 36 2c a9 28 a4 4d 28  67 25 2c 36 29 29 29 3a  |,6,.(.M(g%,6))):|
0000e2e0  f2 4e 28 73 4a 25 2c 22  44 65 66 69 6e 65 64 20  |.N(sJ%,"Defined |
0000e2f0  63 68 61 72 61 63 74 65  72 73 20 69 6e 20 27 22  |characters in '"|
0000e300  2b 41 24 28 69 25 29 2b  22 27 22 29 3a e7 69 25  |+A$(i%)+"'"):.i%|
0000e310  3d 62 5f 25 8c f2 41 28  4e 5f 25 2c 33 2c 41 24  |=b_%..A(N_%,3,A$|
0000e320  28 62 5f 25 29 29 0d 74  be 37 f2 5f 3a f2 70 3a  |(b_%)).t.7._:.p:|
0000e330  e7 44 79 25 f2 4e 28 52  5f 25 2c 22 54 79 70 65  |.Dy%.N(R_%,"Type|
0000e340  20 74 65 61 63 68 69 6e  67 20 66 6f 6e 74 20 27  | teaching font '|
0000e350  22 2b 41 24 28 69 25 29  2b 22 27 22 29 0d 74 bf  |"+A$(i%)+"'").t.|
0000e360  05 e1 0d 74 c0 d8 dd f2  79 79 28 4a 79 25 2c 5a  |...t....yy(Jy%,Z|
0000e370  24 29 3a ea 58 79 25 2c  55 79 25 2c 6b 79 25 2c  |$):.Xy%,Uy%,ky%,|
0000e380  57 75 25 2c 6b 61 25 2c  4c 75 25 3a 4c 75 25 3d  |Wu%,ka%,Lu%:Lu%=|
0000e390  30 3a 24 4a 79 25 3d c0  5a 24 2c a7 5a 24 2c 22  |0:$Jy%=.Z$,.Z$,"|
0000e3a0  2c 22 29 2d 31 29 3a 4a  79 25 3f 31 32 3d 37 3a  |,")-1):Jy%?12=7:|
0000e3b0  4a 79 25 3f 31 33 3d 32  3a 4a 79 25 3f 31 34 3d  |Jy%?13=2:Jy%?14=|
0000e3c0  37 3a 4a 79 25 3f 31 35  3d 30 3a 4a 79 25 21 31  |7:Jy%?15=0:Jy%!1|
0000e3d0  36 3d 31 34 30 3a 4a 79  25 21 32 30 3d 34 34 3a  |6=140:Jy%!20=44:|
0000e3e0  4a 79 25 21 32 34 3d 30  3a 58 79 25 3d 4a 79 25  |Jy%!24=0:Xy%=Jy%|
0000e3f0  2b 32 38 3a 55 79 25 3d  a9 28 c0 5a 24 2c a7 5a  |+28:Uy%=.(.Z$,.Z|
0000e400  24 2c 22 2c 22 29 2d 31  29 29 3a 5a 24 2b 3d 22  |$,",")-1)):Z$+="|
0000e410  2c 22 3a 60 6f 25 3d 30  3a c8 95 5a 24 3c 3e 22  |,":`o%=0:..Z$<>"|
0000e420  22 3a 5a 24 3d c1 5a 24  2c a7 5a 24 2c 22 2c 22  |":Z$=.Z$,.Z$,","|
0000e430  29 2b 31 29 3a c8 8e 5a  24 ca 0d 74 c1 07 c9 22  |)+1):..Z$..t..."|
0000e440  22 0d 74 c2 4d 7f 3a 21  58 79 25 3d 30 3a 58 79  |".t.M.:!Xy%=0:Xy|
0000e450  25 21 34 3d 2d 31 3a 58  79 25 21 38 3d 26 37 30  |%!4=-1:Xy%!8=&70|
0000e460  30 30 30 32 31 3a 6b 79  25 3d a7 5a 24 2c 22 2c  |00021:ky%=.Z$,",|
0000e470  22 29 2d 31 3a 57 75 25  3d a7 c0 5a 24 2c 6b 79  |")-1:Wu%=..Z$,ky|
0000e480  25 29 2c 22 3e 22 29 3a  c8 8e 57 75 25 ca 0d 74  |%),">"):..Wu%..t|
0000e490  c3 06 c9 30 0d 74 c4 33  7f 3a 6b 61 25 3d a0 28  |...0.t.3.:ka%=.(|
0000e4a0  c1 5a 24 2c 57 75 25 2b  31 2c 6b 79 25 2d 57 75  |.Z$,Wu%+1,ky%-Wu|
0000e4b0  25 29 29 3a 58 79 25 21  34 3d 6b 61 25 3a 6b 79  |%)):Xy%!4=ka%:ky|
0000e4c0  25 3d 57 75 25 2d 31 0d  74 c5 0f cb 3a e7 4c 75  |%=Wu%-1.t...:.Lu|
0000e4d0  25 3c 4c 60 25 8c 0d 74  c6 52 58 79 25 21 38 2b  |%<L`%..t.RXy%!8+|
0000e4e0  3d 31 3c 3c 38 3a 58 79  25 21 31 32 3d 6c 60 25  |=1<<8:Xy%!12=l`%|
0000e4f0  2b 4c 75 25 2a 34 30 3a  58 79 25 21 31 36 3d 30  |+Lu%*40:Xy%!16=0|
0000e500  3a 58 79 25 21 32 30 3d  32 31 3a 24 28 6c 60 25  |:Xy%!20=21:$(l`%|
0000e510  2b 4c 75 25 2a 34 30 29  3d c0 5a 24 2c 6b 79 25  |+Lu%*40)=.Z$,ky%|
0000e520  29 3a 4c 75 25 2b 3d 31  0d 74 c7 17 cc 3a 24 28  |):Lu%+=1.t...:$(|
0000e530  58 79 25 2b 31 32 29 3d  c0 5a 24 2c 31 32 29 0d  |Xy%+12)=.Z$,12).|
0000e540  74 c8 16 cd 3a e7 6b 79  25 3e 55 79 25 8c 55 79  |t...:.ky%>Uy%.Uy|
0000e550  25 3d 6b 79 25 0d 74 c9  0b 58 79 25 2b 3d 32 34  |%=ky%.t..Xy%+=24|
0000e560  0d 74 ca 2f cb 3a ce 3a  4a 79 25 21 31 36 3d 31  |.t./.:.:Jy%!16=1|
0000e570  36 2a 28 55 79 25 2b 31  29 3a 58 79 25 21 2d 32  |6*(Uy%+1):Xy%!-2|
0000e580  34 3d 58 79 25 21 2d 32  34 84 31 32 38 3a e1 0d  |4=Xy%!-24.128:..|
0000e590  74 cb cd dd f2 64 61 28  62 25 2c 49 25 29 3a 5a  |t....da(b%,I%):Z|
0000e5a0  25 21 30 3d 73 4a 25 3a  c8 99 26 34 30 30 63 62  |%!0=sJ%:..&400cb|
0000e5b0  2c 2c 5a 25 3a 4c 25 3d  5a 25 21 34 2d 5a 25 21  |,,Z%:L%=Z%!4-Z%!|
0000e5c0  32 30 3a 58 25 3d 5a 25  21 31 36 2d 5a 25 21 32  |20:X%=Z%!16-Z%!2|
0000e5d0  34 3a 68 6c 25 3d 2d 5a  25 21 31 36 2b 5a 25 21  |4:hl%=-Z%!16+Z%!|
0000e5e0  38 3a 72 6c 25 3d 5a 25  21 31 32 2d 5a 25 21 34  |8:rl%=Z%!12-Z%!4|
0000e5f0  3a c8 99 26 34 30 30 63  66 2c 2c 5a 25 3a 73 25  |:..&400cf,,Z%:s%|
0000e600  3d 5a 25 21 30 3a 76 25  3d 5a 25 21 34 3a 5a 5f  |=Z%!0:v%=Z%!4:Z_|
0000e610  25 3d 73 25 2d 4c 25 3a  75 79 25 3d 58 25 2d 76  |%=s%-L%:uy%=X%-v|
0000e620  25 2d 31 32 3a e7 5a 5f  25 3e 33 31 80 75 79 25  |%-12:.Z_%>31.uy%|
0000e630  3e 33 31 8c 4f 25 3d 33  30 2b a8 28 28 5a 5f 25  |>31.O%=30+.((Z_%|
0000e640  2d 31 36 29 2f 34 38 29  2a 31 30 2b a8 28 28 75  |-16)/48)*10+.((u|
0000e650  79 25 2d 32 38 29 2f 33  32 29 8b e1 0d 74 cc 3e  |y%-28)/32)...t.>|
0000e660  41 25 3d 41 25 28 75 25  29 3a 42 25 3d 4f 25 3a  |A%=A%(u%):B%=O%:|
0000e670  43 25 3d 69 25 3a e7 4f  25 3e 33 32 80 4f 25 3c  |C%=i%:.O%>32.O%<|
0000e680  32 35 36 80 4f 25 3c 3e  31 32 37 f2 41 28 67 25  |256.O%<>127.A(g%|
0000e690  2c 31 39 2c bd 28 4f 25  29 29 0d 74 cd 08 f2 5f  |,19,.(O%)).t..._|
0000e6a0  3a e1 0d 74 ce c8 dd f2  51 69 3a c8 99 26 34 30  |:..t....Qi:..&40|
0000e6b0  30 65 36 2c 32 3a c8 93  c8 90 4c 25 2c 58 25 2d  |0e6,2:....L%,X%-|
0000e6c0  34 2c 31 32 30 30 2c 2d  33 32 3a c8 93 c8 90 4c  |4,1200,-32:....L|
0000e6d0  25 2c 58 25 2d 34 2c 32  32 2c 2d 33 36 30 3a c8  |%,X%-4,22,-360:.|
0000e6e0  99 26 34 30 30 65 36 2c  37 3a 5f 6c 25 3d 4c 25  |.&400e6,7:_l%=L%|
0000e6f0  2b 34 3a 52 6c 25 3d 58  25 2d 38 3a e3 71 25 3d  |+4:Rl%=X%-8:.q%=|
0000e700  33 b8 32 35 3a ec 5f 6c  25 2b 33 32 2b 28 71 25  |3.25:._l%+32+(q%|
0000e710  2d 33 29 2a 33 2a 31 36  2c 52 6c 25 3a f1 3b 71  |-3)*3*16,Rl%:.;q|
0000e720  25 3a ed 3a e3 71 25 3d  30 b8 39 3a ec 5f 6c 25  |%:.:.q%=0.9:._l%|
0000e730  2c 52 6c 25 2d 33 32 2d  71 25 2a 33 32 3a f1 3b  |,Rl%-32-q%*32:.;|
0000e740  71 25 3a ed 3a 47 25 3d  5f 6c 25 3a 48 25 3d 52  |q%:.:G%=_l%:H%=R|
0000e750  6c 25 3a 21 6d 79 3d 41  25 28 75 25 29 3a 21 74  |l%:!my=A%(u%):!t|
0000e760  79 3d 69 25 3a d6 78 4a  3a e1 0d 74 cf 3a dd f2  |y=i%:.xJ:..t.:..|
0000e770  5f 3a ea 43 24 2c 4f 25  2c 64 5f 25 3a 43 24 3d  |_:.C$,O%,d_%:C$=|
0000e780  a4 4d 28 67 25 2c 31 39  29 3a e7 a9 28 43 24 29  |.M(g%,19):..(C$)|
0000e790  3e 31 8c 4f 25 3d bb 28  43 24 29 8b 4f 25 3d 97  |>1.O%=.(C$).O%=.|
0000e7a0  28 43 24 29 0d 74 d0 1a  e7 4f 25 3e 33 32 80 4f  |(C$).t...O%>32.O|
0000e7b0  25 3c 32 35 36 80 4f 25  3c 3e 31 32 37 8c 0d 74  |%<256.O%<>127..t|
0000e7c0  d1 1a e7 a4 4d 28 67 25  2c 31 36 29 3d 22 22 f2  |....M(g%,16)="".|
0000e7d0  46 28 67 25 2c 31 32 29  0d 74 d2 0f cc 3a f2 5a  |F(g%,12).t...:.Z|
0000e7e0  28 67 25 2c 31 32 29 0d  74 d3 2e cd 3a 41 25 3d  |(g%,12).t...:A%=|
0000e7f0  41 25 28 75 25 29 3a 42  25 3d 4f 25 3a 43 25 3d  |A%(u%):B%=O%:C%=|
0000e800  69 25 3a 64 5f 25 3d ba  28 54 61 29 3a e7 64 5f  |i%:d_%=.(Ta):.d_|
0000e810  25 3e 2d 31 8c 0d 74 d4  4f f2 46 28 67 25 2c 31  |%>-1..t.O.F(g%,1|
0000e820  33 29 3a 5a 61 25 3d 3f  28 41 25 28 75 25 29 2b  |3):Za%=?(A%(u%)+|
0000e830  36 2b 64 5f 25 2a 38 29  3a 73 61 25 3d 3f 28 41  |6+d_%*8):sa%=?(A|
0000e840  25 28 75 25 29 2b 37 2b  64 5f 25 2a 38 29 3a 76  |%(u%)+7+d_%*8):v|
0000e850  61 25 3d 3f 28 41 25 28  75 25 29 2b 38 2b 64 5f  |a%=?(A%(u%)+8+d_|
0000e860  25 2a 38 29 0d 74 d5 0f  cc 3a f2 5a 28 67 25 2c  |%*8).t...:.Z(g%,|
0000e870  31 33 29 0d 74 d6 0e cd  3a e7 43 79 25 3e 3d 30  |13).t...:.Cy%>=0|
0000e880  8c 0d 74 d7 16 f2 46 28  67 25 2c 38 29 3a f2 46  |..t...F(g%,8):.F|
0000e890  28 67 25 2c 31 31 29 0d  74 d8 18 cc 3a f2 5a 28  |(g%,11).t...:.Z(|
0000e8a0  67 25 2c 38 29 3a f2 5a  28 67 25 2c 31 31 29 0d  |g%,8):.Z(g%,11).|
0000e8b0  74 d9 1d cd 3a e7 61 5f  25 3d a3 f2 5a 28 67 25  |t...:.a_%=..Z(g%|
0000e8c0  2c 33 29 8b f2 46 28 67  25 2c 33 29 0d 74 da 05  |,3)..F(g%,3).t..|
0000e8d0  e1 0d 74 db 0f dd f2 70  3a e7 54 61 25 3d a3 e1  |..t....p:.Ta%=..|
0000e8e0  0d 74 dc 23 f2 4e 28 67  25 2c 22 46 6f 6e 74 20  |.t.#.N(g%,"Font |
0000e8f0  6d 61 6e 61 67 65 72 20  2a 22 29 3a 54 61 25 3d  |manager *"):Ta%=|
0000e900  a3 3a e1 0d 74 dd 0e dd  f2 66 79 3a e7 54 61 25  |.:..t....fy:.Ta%|
0000e910  e1 0d 74 de 21 f2 4e 28  67 25 2c 22 46 6f 6e 74  |..t.!.N(g%,"Font|
0000e920  20 6d 61 6e 61 67 65 72  22 29 3a 54 61 25 3d b9  | manager"):Ta%=.|
0000e930  3a e1 0d 74 df 44 dd a4  50 79 3a ea 6c 25 2c 55  |:..t.D..Py:.l%,U|
0000e940  5f 25 3a 42 75 25 3d 4a  4a 25 21 28 21 4d 2a 34  |_%:Bu%=JJ%!(!M*4|
0000e950  29 3a 55 5f 25 3d 21 79  6c 2d 21 4f 69 3a 6c 25  |):U_%=!yl-!Oi:l%|
0000e960  3d 55 5f 25 2f 42 75 25  2a 33 30 3a e7 6c 25 3e  |=U_%/Bu%*30:.l%>|
0000e970  39 39 8c 3d 39 39 0d 74  e0 0c e7 6c 25 3c 31 8c  |99.=99.t...l%<1.|
0000e980  3d 31 0d 74 e1 07 3d 6c  25 0d 74 e2 e5 dd a4 6b  |=1.t..=l%.t....k|
0000e990  3a ea 6c 25 2c 54 6b 25  2c 6f 79 25 2c 64 4a 25  |:.l%,Tk%,oy%,dJ%|
0000e9a0  2c 52 6f 25 2c 66 6f 25  2c 63 6f 25 3a 6f 79 25  |,Ro%,fo%,co%:oy%|
0000e9b0  3d 61 25 21 28 46 6e 25  2a 38 29 80 36 35 35 33  |=a%!(Fn%*8).6553|
0000e9c0  35 3a 64 4a 25 3d 28 61  25 21 28 46 6e 25 2a 38  |5:dJ%=(a%!(Fn%*8|
0000e9d0  29 29 3e 3e 31 36 3a 54  6b 25 3d 6f 79 25 2b 28  |))>>16:Tk%=oy%+(|
0000e9e0  64 4a 25 2d 6f 79 25 29  2f 32 3a 66 6f 25 3d 66  |dJ%-oy%)/2:fo%=f|
0000e9f0  4a 25 21 28 21 4d 2a 34  29 3a 63 6f 25 3d 28 72  |J%!(!M*4):co%=(r|
0000ea00  75 25 21 28 21 4d 2a 34  29 2a 54 6b 25 29 3e 3e  |u%!(!M*4)*Tk%)>>|
0000ea10  31 30 3a 52 6f 25 3d 66  6f 25 2b 63 6f 25 3a 53  |10:Ro%=fo%+co%:S|
0000ea20  4a 25 3d 72 5f 25 21 28  21 4d 2a 34 29 3a 6c 25  |J%=r_%!(!M*4):l%|
0000ea30  3d 28 52 6f 25 2b 53 4a  25 2d 28 61 25 21 28 46  |=(Ro%+SJ%-(a%!(F|
0000ea40  6e 25 2a 38 2b 34 29 80  36 35 35 33 35 29 2d 28  |n%*8+4).65535)-(|
0000ea50  49 5f 25 2d 21 77 75 29  29 2f 53 4a 25 2a 31 30  |I_%-!wu))/SJ%*10|
0000ea60  30 3a e7 6c 25 3e 32 35  35 8c 3d 32 35 35 0d 74  |0:.l%>255.=255.t|
0000ea70  e3 0c e7 6c 25 3c 30 8c  3d 30 0d 74 e4 07 3d 6c  |...l%<0.=0.t..=l|
0000ea80  25 0d 74 e5 e0 dd a4 46  79 3a ea 6c 25 2c 54 6b  |%.t....Fy:.l%,Tk|
0000ea90  25 2c 6f 79 25 2c 64 4a  25 2c 52 6f 25 2c 66 6f  |%,oy%,dJ%,Ro%,fo|
0000eaa0  25 2c 63 6f 25 3a 6f 79  25 3d 61 25 21 28 46 6e  |%,co%:oy%=a%!(Fn|
0000eab0  25 2a 38 29 80 36 35 35  33 35 3a 64 4a 25 3d 28  |%*8).65535:dJ%=(|
0000eac0  61 25 21 28 46 6e 25 2a  38 29 29 3e 3e 31 36 3a  |a%!(Fn%*8))>>16:|
0000ead0  54 6b 25 3d 6f 79 25 2b  28 64 4a 25 2d 6f 79 25  |Tk%=oy%+(dJ%-oy%|
0000eae0  29 2f 32 3a 66 6f 25 3d  66 4a 25 21 28 21 4d 2a  |)/2:fo%=fJ%!(!M*|
0000eaf0  34 29 3a 63 6f 25 3d 28  72 75 25 21 28 21 4d 2a  |4):co%=(ru%!(!M*|
0000eb00  34 29 2a 54 6b 25 29 3e  3e 31 30 3a 52 6f 25 3d  |4)*Tk%)>>10:Ro%=|
0000eb10  66 6f 25 2b 63 6f 25 3a  53 4a 25 3d 72 5f 25 21  |fo%+co%:SJ%=r_%!|
0000eb20  28 21 4d 2a 34 29 3a 6c  25 3d 28 52 6f 25 2b 53  |(!M*4):l%=(Ro%+S|
0000eb30  4a 25 2d 28 61 25 21 28  46 6e 25 2a 38 2b 36 29  |J%-(a%!(Fn%*8+6)|
0000eb40  80 36 35 35 33 35 29 2b  21 6f 4a 29 2f 53 4a 25  |.65535)+!oJ)/SJ%|
0000eb50  2a 31 30 30 3a e7 6c 25  3e 32 35 35 8c 3d 32 35  |*100:.l%>255.=25|
0000eb60  35 0d 74 e6 0c e7 6c 25  3c 30 8c 3d 30 0d 74 e7  |5.t...l%<0.=0.t.|
0000eb70  07 3d 6c 25 0d 74 e8 3a  dd f2 6e 79 28 53 24 29  |.=l%.t.:..ny(S$)|
0000eb80  3a ea 61 79 25 3a f2 4d  28 4e 5f 25 29 3a 62 5f  |:.ay%:.M(N_%):b_|
0000eb90  25 3d 30 3a 46 25 3d 8e  28 53 24 29 3a e8 23 46  |%=0:F%=.(S$):.#F|
0000eba0  25 2c 43 79 25 3a e7 43  79 25 3e 3d 30 8c 0d 74  |%,Cy%:.Cy%>=0..t|
0000ebb0  e9 7b e3 76 5f 25 3d 30  b8 43 79 25 3a e8 23 46  |.{.v_%=0.Cy%:.#F|
0000ebc0  25 2c 41 24 28 76 5f 25  29 2c 53 24 28 76 5f 25  |%,A$(v_%),S$(v_%|
0000ebd0  29 2c 53 25 28 76 5f 25  29 2c 61 4a 25 3f 76 5f  |),S%(v_%),aJ%?v_|
0000ebe0  25 3a ed 3a f2 4e 5f 28  30 2c 43 79 25 29 3a 69  |%:.:.N_(0,Cy%):i|
0000ebf0  25 3d 30 3a f2 46 79 28  69 25 29 3a e7 44 79 25  |%=0:.Fy(i%):.Dy%|
0000ec00  f2 4e 28 52 5f 25 2c 22  54 79 70 65 20 74 65 61  |.N(R_%,"Type tea|
0000ec10  63 68 69 6e 67 20 66 6f  6e 74 20 27 22 2b 41 24  |ching font '"+A$|
0000ec20  28 69 25 29 2b 22 27 22  29 0d 74 ea 36 f2 46 28  |(i%)+"'").t.6.F(|
0000ec30  67 25 2c 36 29 3a f2 46  28 67 25 2c 38 29 3a f2  |g%,6):.F(g%,8):.|
0000ec40  46 28 67 25 2c 31 31 29  3a e7 a4 4d 28 67 25 2c  |F(g%,11):..M(g%,|
0000ec50  31 36 29 3d 22 22 f2 46  28 67 25 2c 31 32 29 0d  |16)="".F(g%,12).|
0000ec60  74 eb 17 f2 46 28 66 79  25 2c 36 29 3a f2 46 28  |t...F(fy%,6):.F(|
0000ec70  67 25 2c 31 38 29 0d 74  ec 09 cc 3a f2 77 5f 0d  |g%,18).t...:.w_.|
0000ec80  74 ed 2e cd 3a e8 23 46  25 2c 61 79 25 3a e7 61  |t...:.#F%,ay%:.a|
0000ec90  79 25 3e 34 4b 25 3d a4  41 28 61 79 25 2c 75 25  |y%>4K%=.A(ay%,u%|
0000eca0  29 8b 4b 25 3d a4 41 28  31 2c 75 25 29 0d 74 ee  |).K%=.A(1,u%).t.|
0000ecb0  85 e7 4b 25 3d a3 8c f2  43 28 22 4f 70 74 69 63  |..K%=...C("Optic|
0000ecc0  61 6c 22 2c 22 54 68 65  72 65 20 69 73 20 6e 6f  |al","There is no|
0000ecd0  74 20 65 6e 6f 75 67 68  20 66 72 65 65 20 6d 65  |t enough free me|
0000ece0  6d 6f 72 79 20 61 76 61  69 6c 61 62 6c 65 20 74  |mory available t|
0000ecf0  6f 20 6c 6f 61 64 20 66  6f 6e 74 20 64 65 66 69  |o load font defi|
0000ed00  6e 69 74 69 6f 6e 73 2e  20 4e 65 65 64 20 22 2b  |nitions. Need "+|
0000ed10  c3 28 61 79 25 81 31 30  32 34 29 2b 22 4b 2e 22  |.(ay%.1024)+"K."|
0000ed20  29 3a 43 79 25 3d 2d 31  3a f2 77 5f 3a 61 79 25  |):Cy%=-1:.w_:ay%|
0000ed30  3d 30 0d 74 ef 0b e7 61  79 25 3e 34 8c 0d 74 f0  |=0.t...ay%>4..t.|
0000ed40  45 e3 72 25 3d 41 25 28  75 25 29 b8 41 25 28 75  |E.r%=A%(u%).A%(u|
0000ed50  25 29 2b 61 79 25 2d 31  3a 3f 72 25 3d 9a 23 46  |%)+ay%-1:?r%=.#F|
0000ed60  25 3a ed 3a 4b 25 3d a4  41 28 36 34 2a 21 28 41  |%:.:K%=.A(64*!(A|
0000ed70  25 28 75 25 29 29 2c 75  75 25 29 3a e7 4b 25 3d  |%(u%)),uu%):.K%=|
0000ed80  a3 8c 0d 74 f1 8a f2 43  28 22 4f 70 74 69 63 61  |...t...C("Optica|
0000ed90  6c 22 2c 22 54 68 65 72  65 20 69 73 20 6e 6f 74  |l","There is not|
0000eda0  20 65 6e 6f 75 67 68 20  66 72 65 65 20 6d 65 6d  | enough free mem|
0000edb0  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
0000edc0  20 6c 6f 61 64 20 66 6f  6e 74 20 64 65 66 69 6e  | load font defin|
0000edd0  69 74 69 6f 6e 73 2e 20  4e 65 65 64 20 22 2b c3  |itions. Need "+.|
0000ede0  28 28 36 34 2a 21 28 41  25 28 75 25 29 29 29 81  |((64*!(A%(u%))).|
0000edf0  31 30 32 34 29 2b 22 4b  2e 22 29 3a 43 79 25 3d  |1024)+"K."):Cy%=|
0000ee00  2d 31 3a f2 77 5f 3a 61  79 25 3d 30 0d 74 f2 33  |-1:.w_:ay%=0.t.3|
0000ee10  cc 3a e3 72 25 3d 41 25  28 75 75 25 29 b8 41 25  |.:.r%=A%(uu%).A%|
0000ee20  28 75 75 25 29 2b 36 34  2a 21 28 41 25 28 75 25  |(uu%)+64*!(A%(u%|
0000ee30  29 29 2d 31 3a 3f 72 25  3d 9a 23 46 25 3a ed 0d  |))-1:?r%=.#F%:..|
0000ee40  74 f3 05 cd 0d 74 f4 11  cc 3a 21 28 41 25 28 75  |t....t...:!(A%(u|
0000ee50  25 29 29 3d 30 0d 74 f5  36 cd 3a d9 23 46 25 3a  |%))=0.t.6.:.#F%:|
0000ee60  f2 75 3a f2 5f 3a f2 66  79 3a e7 43 79 25 3c 30  |.u:._:.fy:.Cy%<0|
0000ee70  f2 55 28 67 4a 25 2c 32  2b 43 79 25 29 8b f2 52  |.U(gJ%,2+Cy%)..R|
0000ee80  28 67 4a 25 2c 32 2b 43  79 25 29 0d 74 f6 38 e7  |(gJ%,2+Cy%).t.8.|
0000ee90  53 24 3c 3e 22 3c 4f 70  74 63 6c 50 72 6f 24 44  |S$<>"<OptclPro$D|
0000eea0  69 72 3e 2e 44 65 66 46  6f 6e 74 73 22 f2 41 28  |ir>.DefFonts".A(|
0000eeb0  53 61 76 65 46 5f 57 69  6e 64 6f 77 25 2c 31 2c  |SaveF_Window%,1,|
0000eec0  53 24 29 0d 74 f7 05 e1  0d 74 f8 91 dd f2 77 5f  |S$).t....t....w_|
0000eed0  3a 69 25 3d 2d 31 3a f2  41 28 67 25 2c 36 2c 22  |:i%=-1:.A(g%,6,"|
0000eee0  22 29 3a f2 4e 28 73 4a  25 2c 22 44 65 66 69 6e  |"):.N(sJ%,"Defin|
0000eef0  65 64 20 63 68 61 72 61  63 74 65 72 73 20 69 6e  |ed characters in|
0000ef00  20 27 27 22 29 3a f2 5a  28 67 25 2c 36 29 3a f2  | ''"):.Z(g%,6):.|
0000ef10  5a 28 67 25 2c 38 29 3a  f2 5a 28 67 25 2c 31 31  |Z(g%,8):.Z(g%,11|
0000ef20  29 3a f2 5a 28 67 25 2c  31 32 29 3a f2 5a 28 66  |):.Z(g%,12):.Z(f|
0000ef30  79 25 2c 36 29 3a f2 5a  28 67 25 2c 31 38 29 3a  |y%,6):.Z(g%,18):|
0000ef40  f2 4d 28 4e 5f 25 29 3a  f2 4d 28 73 4a 25 29 3a  |.M(N_%):.M(sJ%):|
0000ef50  f2 4d 28 48 4a 25 29 3a  e1 0d 74 f9 54 dd f2 6e  |.M(HJ%):..t.T..n|
0000ef60  61 28 53 24 29 3a ea 61  79 25 2c 50 60 25 2c 46  |a(S$):.ay%,P`%,F|
0000ef70  61 25 2c 53 42 25 2c 55  60 25 2c 7a 42 25 2c 75  |a%,SB%,U`%,zB%,u|
0000ef80  60 25 2c 54 5a 25 3a f2  4d 28 4e 5f 25 29 3a 46  |`%,TZ%:.M(N_%):F|
0000ef90  25 3d 8e 28 53 24 29 3a  e8 23 46 25 2c 53 42 25  |%=.(S$):.#F%,SB%|
0000efa0  3a e7 53 42 25 3c 30 d9  23 46 25 3a e1 0d 74 fa  |:.SB%<0.#F%:..t.|
0000efb0  8f e7 43 79 25 2b 31 2b  53 42 25 3e 3d 4b 4a 25  |..Cy%+1+SB%>=KJ%|
0000efc0  8c f2 58 28 22 4d 65 73  73 61 67 65 20 66 72 6f  |..X("Message fro|
0000efd0  6d 20 4f 70 74 69 63 61  6c 22 2c 22 59 6f 75 20  |m Optical","You |
0000efe0  63 61 6e 20 6f 6e 6c 79  20 68 61 76 65 20 61 20  |can only have a |
0000eff0  6d 61 78 69 6d 75 6d 20  6f 66 20 22 2b c3 28 4b  |maximum of "+.(K|
0000f000  4a 25 29 2b 22 20 66 6f  6e 74 73 2c 20 74 68 65  |J%)+" fonts, the|
0000f010  72 65 66 6f 72 65 20 74  68 69 73 20 66 69 6c 65  |refore this file|
0000f020  20 77 69 6c 6c 20 6e 6f  74 20 62 65 20 66 75 6c  | will not be ful|
0000f030  6c 79 20 6c 6f 61 64 65  64 2e 22 29 0d 74 fb 64  |ly loaded.").t.d|
0000f040  e3 76 5f 25 3d 43 79 25  2b 31 b8 43 79 25 2b 31  |.v_%=Cy%+1.Cy%+1|
0000f050  2b 53 42 25 3a e8 23 46  25 2c 71 24 2c 47 79 24  |+SB%:.#F%,q$,Gy$|
0000f060  2c 55 60 25 2c 7a 42 25  3a e7 76 5f 25 3c 4b 4a  |,U`%,zB%:.v_%<KJ|
0000f070  25 8c 41 24 28 76 5f 25  29 3d 71 24 3a 53 24 28  |%.A$(v_%)=q$:S$(|
0000f080  76 5f 25 29 3d 47 79 24  3a 53 25 28 76 5f 25 29  |v_%)=Gy$:S%(v_%)|
0000f090  3d 55 60 25 3a 61 4a 25  3f 76 5f 25 3d 7a 42 25  |=U`%:aJ%?v_%=zB%|
0000f0a0  0d 74 fc 55 ed 3a f2 4e  5f 28 43 79 25 2b 31 2c  |.t.U.:.N_(Cy%+1,|
0000f0b0  43 79 25 2b 31 2b 53 42  25 29 3a 69 25 3d 30 3a  |Cy%+1+SB%):i%=0:|
0000f0c0  f2 46 79 28 69 25 29 3a  e7 44 79 25 f2 4e 28 52  |.Fy(i%):.Dy%.N(R|
0000f0d0  5f 25 2c 22 54 79 70 65  20 74 65 61 63 68 69 6e  |_%,"Type teachin|
0000f0e0  67 20 66 6f 6e 74 20 27  22 2b 41 24 28 69 25 29  |g font '"+A$(i%)|
0000f0f0  2b 22 27 22 29 0d 74 fd  36 f2 46 28 67 25 2c 36  |+"'").t.6.F(g%,6|
0000f100  29 3a f2 46 28 67 25 2c  38 29 3a f2 46 28 67 25  |):.F(g%,8):.F(g%|
0000f110  2c 31 31 29 3a e7 a4 4d  28 67 25 2c 31 36 29 3d  |,11):..M(g%,16)=|
0000f120  22 22 f2 46 28 67 25 2c  31 32 29 0d 74 fe 44 f2  |"".F(g%,12).t.D.|
0000f130  46 28 66 79 25 2c 36 29  3a f2 46 28 67 25 2c 31  |F(fy%,6):.F(g%,1|
0000f140  38 29 3a e8 23 46 25 2c  61 79 25 3a e7 61 79 25  |8):.#F%,ay%:.ay%|
0000f150  3e 34 4b 25 3d a4 41 28  61 79 25 2b 34 2b 38 2a  |>4K%=.A(ay%+4+8*|
0000f160  21 28 41 25 28 75 25 29  29 2c 75 25 29 8b e1 0d  |!(A%(u%)),u%)...|
0000f170  74 ff 7c e7 4b 25 3d a3  8c f2 43 28 22 4f 70 74  |t.|.K%=...C("Opt|
0000f180  69 63 61 6c 22 2c 22 54  68 65 72 65 20 69 73 20  |ical","There is |
0000f190  6e 6f 74 20 65 6e 6f 75  67 68 20 66 72 65 65 20  |not enough free |
0000f1a0  6d 65 6d 6f 72 79 20 61  76 61 69 6c 61 62 6c 65  |memory available|
0000f1b0  20 74 6f 20 6d 65 72 67  65 20 66 6f 6e 74 20 64  | to merge font d|
0000f1c0  65 66 69 6e 69 74 69 6f  6e 73 2e 20 4e 65 65 64  |efinitions. Need|
0000f1d0  20 22 2b c3 28 61 79 25  81 31 30 32 34 29 2b 22  | "+.(ay%.1024)+"|
0000f1e0  4b 2e 22 29 3a d9 23 46  25 3a e1 0d 75 00 cd 75  |K."):.#F%:..u..u|
0000f1f0  60 25 3d 9a 23 46 25 2b  28 31 3c 3c 38 29 2a 9a  |`%=.#F%+(1<<8)*.|
0000f200  23 46 25 2b 28 31 3c 3c  31 36 29 2a 9a 23 46 25  |#F%+(1<<16)*.#F%|
0000f210  2b 28 31 3c 3c 32 34 29  2a 9a 23 46 25 3a 4b 25  |+(1<<24)*.#F%:K%|
0000f220  3d a4 41 28 36 34 2a 28  75 60 25 2b 21 28 41 25  |=.A(64*(u`%+!(A%|
0000f230  28 75 25 29 29 29 2c 75  75 25 29 3a e7 4b 25 3d  |(u%))),uu%):.K%=|
0000f240  a3 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |...C("Optical","|
0000f250  54 68 65 72 65 20 69 73  20 6e 6f 74 20 65 6e 6f  |There is not eno|
0000f260  75 67 68 20 66 72 65 65  20 6d 65 6d 6f 72 79 20  |ugh free memory |
0000f270  61 76 61 69 6c 61 62 6c  65 20 74 6f 20 6c 6f 61  |available to loa|
0000f280  64 20 66 6f 6e 74 20 64  65 66 69 6e 69 74 69 6f  |d font definitio|
0000f290  6e 73 2e 20 4e 65 65 64  20 22 2b c3 28 28 36 34  |ns. Need "+.((64|
0000f2a0  2a 75 60 25 29 81 31 30  32 34 29 2b 22 4b 2e 22  |*u`%).1024)+"K."|
0000f2b0  29 3a d9 23 46 25 3a e1  0d 75 01 71 50 60 25 3d  |):.#F%:..u.qP`%=|
0000f2c0  41 25 28 75 25 29 2b 34  2b 38 2a 21 28 41 25 28  |A%(u%)+4+8*!(A%(|
0000f2d0  75 25 29 29 3a 54 5a 25  3d 21 28 41 25 28 75 25  |u%)):TZ%=!(A%(u%|
0000f2e0  29 29 3a 21 28 41 25 28  75 25 29 29 2b 3d 75 60  |)):!(A%(u%))+=u`|
0000f2f0  25 3a e3 72 25 3d 50 60  25 b8 50 60 25 2b 75 60  |%:.r%=P`%.P`%+u`|
0000f300  25 2a 38 2d 31 3a 3f 72  25 3d 9a 23 46 25 3a e7  |%*8-1:?r%=.#F%:.|
0000f310  28 28 72 25 2d 50 60 25  29 83 38 29 3d 31 8c 3f  |((r%-P`%).8)=1.?|
0000f320  72 25 2b 3d 43 79 25 2b  31 0d 75 02 5b ed 3a 50  |r%+=Cy%+1.u.[.:P|
0000f330  60 25 3d 41 25 28 75 75  25 29 2b 36 34 2a 54 5a  |`%=A%(uu%)+64*TZ|
0000f340  25 3a e3 72 25 3d 50 60  25 b8 50 60 25 2b 75 60  |%:.r%=P`%.P`%+u`|
0000f350  25 2a 36 34 2d 31 3a 3f  72 25 3d 9a 23 46 25 3a  |%*64-1:?r%=.#F%:|
0000f360  ed 3a d9 23 46 25 3a 43  79 25 2b 3d 53 42 25 2b  |.:.#F%:Cy%+=SB%+|
0000f370  31 3a e7 43 79 25 3e 3d  4b 4a 25 43 79 25 3d 4b  |1:.Cy%>=KJ%Cy%=K|
0000f380  4a 25 2d 31 0d 75 03 0e  f2 75 3a f2 5f 3a f2 70  |J%-1.u...u:._:.p|
0000f390  3a e1 0d 75 04 30 dd f2  78 75 3a 43 24 3d a4 4d  |:..u.0..xu:C$=.M|
0000f3a0  28 67 25 2c 31 39 29 3a  e7 a9 28 43 24 29 3e 31  |(g%,19):..(C$)>1|
0000f3b0  8c 4f 25 3d bb 28 43 24  29 8b 4f 25 3d 97 28 43  |.O%=.(C$).O%=.(C|
0000f3c0  24 29 0d 75 05 7d e7 a4  55 28 22 57 61 72 6e 69  |$).u.}..U("Warni|
0000f3d0  6e 67 20 66 72 6f 6d 20  4f 70 74 69 63 61 6c 22  |ng from Optical"|
0000f3e0  2c 22 54 68 69 73 20 61  63 74 69 6f 6e 20 77 69  |,"This action wi|
0000f3f0  6c 6c 20 64 65 6c 65 74  65 20 61 6c 6c 20 74 68  |ll delete all th|
0000f400  65 20 27 22 2b bd 28 4f  25 29 2b 22 27 73 20 69  |e '"+.(O%)+"'s i|
0000f410  6e 20 74 68 65 20 63 75  72 72 65 6e 74 20 66 6f  |n the current fo|
0000f420  6e 74 2e 20 43 6c 69 63  6b 20 6f 6e 20 4f 4b 20  |nt. Click on OK |
0000f430  74 6f 20 64 65 6c 65 74  65 2e 22 29 3d a3 e1 0d  |to delete.")=...|
0000f440  75 06 46 41 25 3d 41 25  28 75 25 29 3a 42 25 3d  |u.FA%=A%(u%):B%=|
0000f450  4f 25 3a 43 25 3d 69 25  3a 46 25 3d 41 25 28 75  |O%:C%=i%:F%=A%(u|
0000f460  75 25 29 3a f5 fd ba 28  4a 4a 29 3d a3 3a f2 4a  |u%):...(JJ)=.:.J|
0000f470  28 73 4a 25 29 3a f2 4a  28 4e 5f 25 29 3a f2 5f  |(sJ%):.J(N_%):._|
0000f480  3a f2 70 3a e1 0d 75 07  4f dd f2 50 5f 3a ea 71  |:.p:..u.O..P_:.q|
0000f490  70 25 2c 4f 70 25 2c 51  4a 25 2c 77 70 25 2c 51  |p%,Op%,QJ%,wp%,Q|
0000f4a0  70 25 2c 72 6f 25 2c 6a  65 25 2c 42 70 25 2c 5a  |p%,ro%,je%,Bp%,Z|
0000f4b0  41 25 2c 47 6c 25 2c 79  25 2c 68 25 2c 6e 6c 25  |A%,Gl%,y%,h%,nl%|
0000f4c0  2c 56 70 25 2c 49 70 25  2c 54 75 25 3a e7 43 79  |,Vp%,Ip%,Tu%:.Cy|
0000f4d0  25 3c 30 8c 0d 75 08 1b  24 68 42 25 3d 22 28 55  |%<0..u..$hB%="(U|
0000f4e0  6e 6e 61 6d 65 64 29 22  2b bd 30 3a f2 55 5f 0d  |nnamed)"+.0:.U_.|
0000f4f0  75 09 2d cd 3a 43 24 3d  a4 4d 28 67 25 2c 31 39  |u.-.:C$=.M(g%,19|
0000f500  29 3a e7 a9 28 43 24 29  3e 31 8c 4f 25 3d bb 28  |):..(C$)>1.O%=.(|
0000f510  43 24 29 8b 4f 25 3d 97  28 43 24 29 0d 75 0a 19  |C$).O%=.(C$).u..|
0000f520  e7 4f 25 3c 33 33 84 4f  25 3d 31 32 37 84 4f 25  |.O%<33.O%=127.O%|
0000f530  3e 32 35 35 e1 0d 75 0b  12 e7 44 79 25 f2 51 75  |>255..u...Dy%.Qu|
0000f540  28 50 25 2c 4f 25 29 0d  75 0c 94 21 72 3d 41 25  |(P%,O%).u..!r=A%|
0000f550  28 4a 5f 25 29 3a 21 66  3d 41 25 28 60 79 25 29  |(J_%):!f=A%(`y%)|
0000f560  3a 21 74 3d 41 25 28 60  79 25 29 2b 63 69 25 21  |:!t=A%(`y%)+ci%!|
0000f570  28 60 79 25 2a 34 29 3a  21 41 4a 3d 55 5f 25 3a  |(`y%*4):!AJ=U_%:|
0000f580  21 4c 4a 3d 49 5f 25 3a  41 25 3d 31 3a 42 25 3d  |!LJ=I_%:A%=1:B%=|
0000f590  55 5f 25 2d 32 3a 43 25  3d 30 3a 44 25 3d 49 5f  |U_%-2:C%=0:D%=I_|
0000f5a0  25 2d 31 3a 54 75 25 3d  21 59 3a 21 59 3d 30 3a  |%-1:Tu%=!Y:!Y=0:|
0000f5b0  d6 54 4a 3a 21 59 3d 54  75 25 3a 51 4a 25 3d 21  |.TJ:!Y=Tu%:QJ%=!|
0000f5c0  28 41 25 28 75 25 29 29  3a 4b 25 3d a4 41 28 31  |(A%(u%)):K%=.A(1|
0000f5d0  32 2b 51 4a 25 2a 38 2c  75 25 29 0d 75 0d 89 e7  |2+QJ%*8,u%).u...|
0000f5e0  4b 25 3d a3 8c f2 43 28  22 4f 70 74 69 63 61 6c  |K%=...C("Optical|
0000f5f0  22 2c 22 54 68 65 72 65  20 69 73 20 6e 6f 74 20  |","There is not |
0000f600  65 6e 6f 75 67 68 20 66  72 65 65 20 6d 65 6d 6f  |enough free memo|
0000f610  72 79 20 61 76 61 69 6c  61 62 6c 65 20 74 6f 20  |ry available to |
0000f620  73 74 6f 72 65 20 74 68  69 73 20 66 6f 6e 74 20  |store this font |
0000f630  64 65 66 69 6e 69 74 69  6f 6e 2e 20 4e 65 65 64  |definition. Need|
0000f640  20 22 2b c3 28 28 37 36  2b 51 4a 25 2a 38 2b 51  | "+.((76+QJ%*8+Q|
0000f650  4a 25 2a 36 34 29 81 31  30 32 34 29 2b 22 4b 2e  |J%*64).1024)+"K.|
0000f660  22 29 3a e1 0d 75 0e 9b  4b 25 3d a4 41 28 51 4a  |"):..u..K%=.A(QJ|
0000f670  25 2a 36 34 2c 75 75 25  29 3a e7 4b 25 3d a3 8c  |%*64,uu%):.K%=..|
0000f680  f2 43 28 22 4f 70 74 69  63 61 6c 22 2c 22 54 68  |.C("Optical","Th|
0000f690  65 72 65 20 69 73 20 6e  6f 74 20 65 6e 6f 75 67  |ere is not enoug|
0000f6a0  68 20 66 72 65 65 20 6d  65 6d 6f 72 79 20 61 76  |h free memory av|
0000f6b0  61 69 6c 61 62 6c 65 20  74 6f 20 73 74 6f 72 65  |ailable to store|
0000f6c0  20 74 68 69 73 20 66 6f  6e 74 20 64 65 66 69 6e  | this font defin|
0000f6d0  69 74 69 6f 6e 2e 20 4e  65 65 64 20 22 2b c3 28  |ition. Need "+.(|
0000f6e0  28 37 36 2b 51 4a 25 2a  38 2b 51 4a 25 2a 36 34  |(76+QJ%*8+QJ%*64|
0000f6f0  29 81 31 30 32 34 29 2b  22 4b 2e 22 29 3a e1 0d  |).1024)+"K."):..|
0000f700  75 0f 2b 43 24 3d a4 4d  28 67 25 2c 31 39 29 3a  |u.+C$=.M(g%,19):|
0000f710  e7 a9 28 43 24 29 3e 31  8c 4f 25 3d bb 28 43 24  |..(C$)>1.O%=.(C$|
0000f720  29 8b 4f 25 3d 97 28 43  24 29 0d 75 10 e4 3f 28  |).O%=.(C$).u..?(|
0000f730  41 25 28 75 25 29 2b 34  2b 51 4a 25 2a 38 29 3d  |A%(u%)+4+QJ%*8)=|
0000f740  4f 25 3a 3f 28 41 25 28  75 25 29 2b 35 2b 51 4a  |O%:?(A%(u%)+5+QJ|
0000f750  25 2a 38 29 3d 69 25 2b  31 32 38 3a 44 25 3d 4b  |%*8)=i%+128:D%=K|
0000f760  79 25 3a 45 25 3d 50 25  3a 21 4d 3d ba 28 41 79  |y%:E%=P%:!M=.(Ay|
0000f770  29 3a 5a 61 25 3d a4 50  79 3a 73 61 25 3d a4 6b  |):Za%=.Py:sa%=.k|
0000f780  3a 76 61 25 3d a4 46 79  3a 3f 28 41 25 28 75 25  |:va%=.Fy:?(A%(u%|
0000f790  29 2b 36 2b 51 4a 25 2a  38 29 3d 5a 61 25 3a 3f  |)+6+QJ%*8)=Za%:?|
0000f7a0  28 41 25 28 75 25 29 2b  37 2b 51 4a 25 2a 38 29  |(A%(u%)+7+QJ%*8)|
0000f7b0  3d 73 61 25 3a 3f 28 41  25 28 75 25 29 2b 38 2b  |=sa%:?(A%(u%)+8+|
0000f7c0  51 4a 25 2a 38 29 3d 76  61 25 3a 6e 6c 25 3d 41  |QJ%*8)=va%:nl%=A|
0000f7d0  25 28 75 75 25 29 2b 51  4a 25 2a 36 34 3a e3 58  |%(uu%)+QJ%*64:.X|
0000f7e0  42 25 3d 30 b8 36 33 3a  6e 6c 25 3f 58 42 25 3d  |B%=0.63:nl%?XB%=|
0000f7f0  69 4f 25 3f 58 42 25 3a  ed 3a 21 28 41 25 28 75  |iO%?XB%:.:!(A%(u|
0000f800  25 29 29 2b 3d 31 3a e7  50 25 3e 3d 30 8c 0d 75  |%))+=1:.P%>=0..u|
0000f810  11 3c 42 25 3d 5f 25 2d  31 3a 43 25 3d 61 25 3a  |.<B%=_%-1:C%=a%:|
0000f820  59 79 25 3d ba 28 4a 79  29 3a e7 5a 25 28 4a 5f  |Yy%=.(Jy):.Z%(J_|
0000f830  25 29 3c 59 79 25 8c 4b  25 3d a4 41 28 59 79 25  |%)<Yy%.K%=.A(Yy%|
0000f840  2c 4a 5f 25 29 8b 4b 25  3d b9 0d 75 12 24 e7 5a  |,J_%).K%=..u.$.Z|
0000f850  25 28 60 79 25 29 3c 59  79 25 8c 4b 25 3d a4 41  |%(`y%)<Yy%.K%=.A|
0000f860  28 59 79 25 2c 60 79 25  29 8b 4b 25 3d b9 0d 75  |(Yy%,`y%).K%=..u|
0000f870  13 9c e7 4b 25 3d a3 f2  43 28 22 4f 70 74 69 63  |...K%=..C("Optic|
0000f880  61 6c 22 2c 22 54 68 65  72 65 20 69 73 20 6e 6f  |al","There is no|
0000f890  74 20 65 6e 6f 75 67 68  20 66 72 65 65 20 6d 65  |t enough free me|
0000f8a0  6d 6f 72 79 20 61 76 61  69 6c 61 62 6c 65 20 74  |mory available t|
0000f8b0  6f 20 63 61 6c 63 75 6c  61 74 65 20 74 68 69 73  |o calculate this|
0000f8c0  20 6c 65 74 74 65 72 2e  20 4e 65 65 64 20 22 2b  | letter. Need "+|
0000f8d0  c3 28 28 59 79 25 2a 32  29 81 31 30 32 34 29 2b  |.((Yy%*2).1024)+|
0000f8e0  22 4b 2e 22 29 3a 4b 25  3d a4 41 28 31 2c 4a 5f  |"K."):K%=.A(1,J_|
0000f8f0  25 29 3a 4b 25 3d a4 41  28 31 2c 60 79 25 29 3a  |%):K%=.A(1,`y%):|
0000f900  c8 99 26 34 30 36 63 31  3a e1 0d 75 14 e6 44 25  |..&406c1:..u..D%|
0000f910  3d 4b 79 25 3a 45 25 3d  50 25 3a 21 4d 3d ba 28  |=Ky%:E%=P%:!M=.(|
0000f920  41 79 29 3a 21 60 3d 41  25 28 75 25 29 2b 34 3a  |Ay):!`=A%(u%)+4:|
0000f930  21 56 79 3d 41 25 28 75  75 25 29 3a 21 6d 3d 55  |!Vy=A%(uu%):!m=U|
0000f940  79 25 2b 31 3a 21 72 3d  41 25 28 4a 5f 25 29 3a  |y%+1:!r=A%(J_%):|
0000f950  21 66 3d 41 25 28 60 79  25 29 3a 21 74 3d 41 25  |!f=A%(`y%):!t=A%|
0000f960  28 60 79 25 29 2b 59 79  25 3a 21 53 79 3d 41 25  |(`y%)+Yy%:!Sy=A%|
0000f970  28 60 25 29 2b 48 75 25  3a 21 70 3d 4b 79 25 3a  |(`%)+Hu%:!p=Ky%:|
0000f980  21 55 79 3d 50 25 3a 21  58 79 3d 50 25 3a 21 5a  |!Uy=P%:!Xy=P%:!Z|
0000f990  79 3d 66 4a 25 3a 21 46  79 3d 61 25 3a 21 63 3d  |y=fJ%:!Fy=a%:!c=|
0000f9a0  31 3a 21 5f 3d 4a 4a 25  3a 21 78 3d 72 5f 25 3a  |1:!_=JJ%:!x=r_%:|
0000f9b0  42 25 3d 5f 25 3a 46 25  3d 42 75 25 3a 47 25 3d  |B%=_%:F%=Bu%:G%=|
0000f9c0  53 4a 25 3a 48 25 3d 61  25 3a 47 6c 25 3d ba 28  |SJ%:H%=a%:Gl%=.(|
0000f9d0  4c 5f 29 3a 21 63 3d 30  3a e7 3f 73 3d 30 8c 7a  |L_):!c=0:.?s=0.z|
0000f9e0  24 3d 22 3f 3f 3f 22 8b  7a 24 3d bd 28 21 73 29  |$="???".z$=.(!s)|
0000f9f0  0d 75 15 12 e7 50 25 3e  3d 30 8c f2 63 5f 28 50  |.u...P%>=0..c_(P|
0000fa00  25 29 0d 75 16 1d cd 3a  f2 4a 28 73 4a 25 29 3a  |%).u...:.J(sJ%):|
0000fa10  f2 4a 28 4e 5f 25 29 3a  f2 5f 3a f2 70 3a e1 0d  |.J(N_%):._:.p:..|
0000fa20  75 17 9b dd f2 5a 75 28  53 24 29 3a f2 71 79 28  |u....Zu(S$):.qy(|
0000fa30  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 4f 70  |"Message from Op|
0000fa40  74 69 63 61 6c 22 2c 22  44 6f 20 79 6f 75 20 77  |tical","Do you w|
0000fa50  61 6e 74 20 74 68 69 73  20 66 6f 6e 74 20 66 69  |ant this font fi|
0000fa60  6c 65 20 74 6f 20 72 65  70 6c 61 63 65 20 74 68  |le to replace th|
0000fa70  65 20 63 75 72 72 65 6e  74 20 6f 6e 65 2c 20 6f  |e current one, o|
0000fa80  72 20 74 6f 20 6d 65 72  67 65 20 77 69 74 68 20  |r to merge with |
0000fa90  69 74 3f 22 2c 22 52 65  70 6c 61 63 65 22 2c 22  |it?","Replace","|
0000faa0  4d 65 72 67 65 22 2c 22  43 61 6e 63 65 6c 22 2c  |Merge","Cancel",|
0000fab0  32 29 3a 5f 24 3d 53 24  3a e1 0d 75 18 35 dd f2  |2):_$=S$:..u.5..|
0000fac0  61 75 28 62 25 2c 49 25  29 3a ea 4f 6e 25 3a e7  |au(b%,I%):.On%:.|
0000fad0  28 49 25 3e 3d 39 84 49  25 3c 3d 31 35 29 80 62  |(I%>=9.I%<=15).b|
0000fae0  25 3d 31 f2 53 28 48 4a  25 2c 49 25 2c b9 29 0d  |%=1.S(HJ%,I%,.).|
0000faf0  75 19 1d 4f 6e 25 3d 28  61 4a 25 3f 69 25 29 80  |u..On%=(aJ%?i%).|
0000fb00  28 38 2b 31 36 29 3a c8  8e 49 25 ca 0d 75 1a 1c  |(8+16):..I%..u..|
0000fb10  c9 33 2c 34 3a 4a 6b 25  3d 32 3a f2 54 28 71 61  |.3,4:Jk%=2:.T(qa|
0000fb20  25 2c 79 25 2c 68 25 29  0d 75 1b 18 c9 37 3a 61  |%,y%,h%).u...7:a|
0000fb30  4a 25 3f 69 25 3d 28 61  4a 25 3f 69 25 29 82 38  |J%?i%=(aJ%?i%).8|
0000fb40  0d 75 1c 19 c9 38 3a 61  4a 25 3f 69 25 3d 28 61  |.u...8:aJ%?i%=(a|
0000fb50  4a 25 3f 69 25 29 82 31  36 0d 75 1d 13 c9 39 3a  |J%?i%).16.u...9:|
0000fb60  61 4a 25 3f 69 25 3d 30  2b 4f 6e 25 0d 75 1e 14  |aJ%?i%=0+On%.u..|
0000fb70  c9 31 30 3a 61 4a 25 3f  69 25 3d 31 2b 4f 6e 25  |.10:aJ%?i%=1+On%|
0000fb80  0d 75 1f 14 c9 31 31 3a  61 4a 25 3f 69 25 3d 32  |.u...11:aJ%?i%=2|
0000fb90  2b 4f 6e 25 0d 75 20 14  c9 31 32 3a 61 4a 25 3f  |+On%.u ..12:aJ%?|
0000fba0  69 25 3d 33 2b 4f 6e 25  0d 75 21 14 c9 31 33 3a  |i%=3+On%.u!..13:|
0000fbb0  61 4a 25 3f 69 25 3d 34  2b 4f 6e 25 0d 75 22 14  |aJ%?i%=4+On%.u".|
0000fbc0  c9 31 34 3a 61 4a 25 3f  69 25 3d 35 2b 4f 6e 25  |.14:aJ%?i%=5+On%|
0000fbd0  0d 75 23 14 c9 31 35 3a  61 4a 25 3f 69 25 3d 36  |.u#..15:aJ%?i%=6|
0000fbe0  2b 4f 6e 25 0d 75 24 0f  c9 31 36 3a f2 4d 28 48  |+On%.u$..16:.M(H|
0000fbf0  4a 25 29 0d 75 25 59 c9  31 37 3a f2 70 79 28 69  |J%).u%Y.17:.py(i|
0000fc00  25 29 3a 4e 4f 25 3d 28  61 4a 25 3f 69 25 29 80  |%):NO%=(aJ%?i%).|
0000fc10  37 3a f2 53 28 48 4a 25  2c 39 2b 4e 4f 25 2c b9  |7:.S(HJ%,9+NO%,.|
0000fc20  29 3a f2 53 28 48 4a 25  2c 37 2c 28 61 4a 25 3f  |):.S(HJ%,7,(aJ%?|
0000fc30  69 25 29 80 38 29 3a f2  53 28 48 4a 25 2c 38 2c  |i%).8):.S(HJ%,8,|
0000fc40  28 61 4a 25 3f 69 25 29  80 31 36 29 0d 75 26 07  |(aJ%?i%).16).u&.|
0000fc50  cb 3a e1 0d 75 27 ab dd  f2 46 79 28 4e 25 29 3a  |.:..u'...Fy(N%):|
0000fc60  ea 4e 4f 25 3a f2 41 28  67 25 2c 36 2c 41 24 28  |.NO%:.A(g%,6,A$(|
0000fc70  4e 25 29 29 3a f2 41 28  48 4a 25 2c 33 2c 53 24  |N%)):.A(HJ%,3,S$|
0000fc80  28 4e 25 29 29 3a f2 4e  28 73 4a 25 2c 22 44 65  |(N%)):.N(sJ%,"De|
0000fc90  66 69 6e 65 64 20 63 68  61 72 61 63 74 65 72 73  |fined characters|
0000fca0  20 69 6e 20 27 22 2b 41  24 28 4e 25 29 2b 22 27  | in '"+A$(N%)+"'|
0000fcb0  22 29 3a 4e 4f 25 3d 28  61 4a 25 3f 4e 25 29 80  |"):NO%=(aJ%?N%).|
0000fcc0  37 3a f2 53 28 48 4a 25  2c 39 2b 4e 4f 25 2c b9  |7:.S(HJ%,9+NO%,.|
0000fcd0  29 3a f2 53 28 48 4a 25  2c 37 2c 28 61 4a 25 3f  |):.S(HJ%,7,(aJ%?|
0000fce0  4e 25 29 80 38 29 3a f2  53 28 48 4a 25 2c 38 2c  |N%).8):.S(HJ%,8,|
0000fcf0  28 61 4a 25 3f 4e 25 29  80 31 36 29 3a e1 0d 75  |(aJ%?N%).16):..u|
0000fd00  28 29 dd f2 70 79 28 4e  25 29 3a ea 47 24 2c 4a  |()..py(N%):.G$,J|
0000fd10  6c 25 2c 70 25 3a 47 24  3d 53 24 28 4e 25 29 3a  |l%,p%:G$=S$(N%):|
0000fd20  e7 47 24 3d 22 22 e1 0d  75 29 46 e3 70 25 3d 31  |.G$=""..u)F.p%=1|
0000fd30  b8 a9 28 47 24 29 3a 4f  25 3d 97 28 c1 47 24 2c  |..(G$):O%=.(.G$,|
0000fd40  70 25 2c 31 29 29 3a e7  4f 25 3e 3d 97 28 22 61  |p%,1)):.O%>=.("a|
0000fd50  22 29 80 4f 25 3c 3d 97  28 22 7a 22 29 c1 47 24  |").O%<=.("z").G$|
0000fd60  2c 70 25 29 3d bd 28 4f  25 2d 33 32 29 0d 75 2a  |,p%)=.(O%-32).u*|
0000fd70  4d ed 3a 4a 6c 25 3d 30  3a e7 a7 47 24 2c 22 42  |M.:Jl%=0:..G$,"B|
0000fd80  4f 4c 44 22 29 3e 31 84  a7 47 24 2c 22 44 45 4d  |OLD")>1..G$,"DEM|
0000fd90  49 22 29 3e 31 84 a7 47  24 2c 22 42 4c 41 43 4b  |I")>1..G$,"BLACK|
0000fda0  22 29 3e 31 84 a7 47 24  2c 22 48 45 41 56 59 22  |")>1..G$,"HEAVY"|
0000fdb0  29 3e 31 8c 4a 6c 25 2b  3d 38 0d 75 2b 2d e7 a7  |)>1.Jl%+=8.u+-..|
0000fdc0  47 24 2c 22 49 54 41 4c  49 43 22 29 3e 31 84 a7  |G$,"ITALIC")>1..|
0000fdd0  47 24 2c 22 4f 42 4c 49  51 55 45 22 29 3e 31 8c  |G$,"OBLIQUE")>1.|
0000fde0  4a 6c 25 2b 3d 31 36 0d  75 2c 28 e7 a7 47 24 2c  |Jl%+=16.u,(..G$,|
0000fdf0  22 4d 4f 4e 4f 53 50 41  43 45 44 22 29 3e 31 84  |"MONOSPACED")>1.|
0000fe00  a7 47 24 2c 22 46 49 58  45 44 22 29 3e 31 8c 0d  |.G$,"FIXED")>1..|
0000fe10  75 2d 0a 4a 6c 25 2b 3d  33 0d 75 2e 1e cc 3a 47  |u-.Jl%+=3.u...:G|
0000fe20  24 3d c0 47 24 2c a7 47  24 2c 22 2e 22 29 2d 31  |$=.G$,.G$,".")-1|
0000fe30  29 3a c8 8e 47 24 ca 0d  75 2f 15 c9 22 54 52 49  |):..G$..u/.."TRI|
0000fe40  4e 49 54 59 22 3a 4a 6c  25 2b 3d 31 0d 75 30 16  |NITY":Jl%+=1.u0.|
0000fe50  c9 22 50 45 4d 42 52 4f  4b 45 22 3a 4a 6c 25 2b  |."PEMBROKE":Jl%+|
0000fe60  3d 31 0d 75 31 15 c9 22  4e 45 57 48 41 4c 4c 22  |=1.u1.."NEWHALL"|
0000fe70  3a 4a 6c 25 2b 3d 31 0d  75 32 16 c9 22 48 4f 4d  |:Jl%+=1.u2.."HOM|
0000fe80  45 52 54 4f 4e 22 3a 4a  6c 25 2b 3d 32 0d 75 33  |ERTON":Jl%+=2.u3|
0000fe90  14 c9 22 41 56 41 4e 54  47 22 3a 4a 6c 25 2b 3d  |.."AVANTG":Jl%+=|
0000fea0  32 0d 75 34 14 c9 22 43  4f 52 50 55 53 22 3a 4a  |2.u4.."CORPUS":J|
0000feb0  6c 25 2b 3d 33 0d 75 35  14 c9 22 4c 45 47 41 43  |l%+=3.u5.."LEGAC|
0000fec0  59 22 3a 4a 6c 25 2b 3d  34 0d 75 36 14 c9 22 53  |Y":Jl%+=4.u6.."S|
0000fed0  45 4c 57 59 4e 22 3a 4a  6c 25 2b 3d 36 0d 75 37  |ELWYN":Jl%+=6.u7|
0000fee0  14 c9 22 53 49 44 4e 45  59 22 3a 4a 6c 25 2b 3d  |.."SIDNEY":Jl%+=|
0000fef0  36 0d 75 38 13 c9 22 47  52 45 45 4b 22 3a 4a 6c  |6.u8.."GREEK":Jl|
0000ff00  25 2b 3d 36 0d 75 39 05  cb 0d 75 3a 12 cd 3a 61  |%+=6.u9...u:..:a|
0000ff10  4a 25 3f 4e 25 3d 4a 6c  25 3a e1 0d 75 3b 3a dd  |J%?N%=Jl%:..u;:.|
0000ff20  f2 42 5f 28 6b 41 25 29  3a f2 41 28 67 25 2c 31  |.B_(kA%):.A(g%,1|
0000ff30  36 2c 22 4e 6f 20 6c 65  74 74 65 72 20 6d 61 72  |6,"No letter mar|
0000ff40  6b 65 64 22 29 3a f2 5a  28 67 25 2c 31 32 29 3a  |ked"):.Z(g%,12):|
0000ff50  e7 6b 41 25 8c 0d 75 3c  0a f2 44 28 67 25 29 0d  |.kA%..u<..D(g%).|
0000ff60  75 3d 1c cc 3a f2 71 3a  f2 50 79 28 67 25 2c 73  |u=..:.q:.Py(g%,s|
0000ff70  25 2d 36 34 2c 76 25 2b  36 34 29 0d 75 3e 0a cd  |%-64,v%+64).u>..|
0000ff80  3a f2 5f 3a e1 0d 75 3f  57 dd f2 56 6c 3a e3 68  |:._:..u?W..Vl:.h|
0000ff90  79 25 3d 30 b8 6d 5f 25  3a f2 62 6c 28 4b 61 25  |y%=0.m_%:.bl(Ka%|
0000ffa0  21 28 68 79 25 2a 34 29  29 3a c8 93 c8 90 4c 25  |!(hy%*4)):....L%|
0000ffb0  2b 28 68 79 25 81 38 29  2a 32 32 30 2b 31 36 2c  |+(hy%.8)*220+16,|
0000ffc0  58 25 2d 31 30 2d 28 68  79 25 83 38 29 2a 35 36  |X%-10-(hy%.8)*56|
0000ffd0  2c 32 30 34 2c 2d 34 32  3a ed 3a e1 0d 75 40 17  |,204,-42:.:..u@.|
0000ffe0  dd f2 67 5f 28 6b 4a 25  29 3a e7 48 6c 25 3f 6b  |..g_(kJ%):.Hl%?k|
0000fff0  4a 25 8c 0d 75 41 26 48  6c 25 3f 6b 4a 25 3d 30  |J%..uA&Hl%?kJ%=0|
00010000  3a f2 41 28 69 79 25 2c  6b 4a 25 2c 22 42 61 63  |:.A(iy%,kJ%,"Bac|
00010010  6b 67 72 6f 75 6e 64 22  29 0d 75 42 22 cc 3a 48  |kground").uB".:H|
00010020  6c 25 3f 6b 4a 25 3d 31  3a f2 41 28 69 79 25 2c  |l%?kJ%=1:.A(iy%,|
00010030  6b 4a 25 2c 22 54 65 78  74 22 29 0d 75 43 07 cd  |kJ%,"Text").uC..|
00010040  3a e1 0d 75 44 7a dd f2  43 6e 3a f2 55 79 3a 6d  |:..uDz..Cn:.Uy:m|
00010050  79 25 3d 4c 25 3a 41 5f  25 3d 58 25 2d 74 25 2a  |y%=L%:A_%=X%-t%*|
00010060  56 25 2a 55 25 2f 31 30  30 3a f2 49 28 41 25 28  |V%*U%/100:.I(A%(|
00010070  60 25 29 2c 4d 24 2c 6d  79 25 2b 32 30 30 2c 41  |`%),M$,my%+200,A|
00010080  5f 25 2d 32 30 30 2c 30  2c 7a 25 29 3a 6d 79 25  |_%-200,0,z%):my%|
00010090  2b 3d 78 75 25 3a 41 5f  25 2b 3d 73 75 25 3a f2  |+=xu%:A_%+=su%:.|
000100a0  49 28 41 25 28 4e 79 25  29 2c 4e 24 2c 6d 79 25  |I(A%(Ny%),N$,my%|
000100b0  2c 41 5f 25 2c 33 2c 7a  25 29 3a e1 0d 75 45 15  |,A_%,3,z%):..uE.|
000100c0  dd f2 5f 61 28 49 25 2c  6a 25 29 3a c8 8e 6a 25  |.._a(I%,j%):..j%|
000100d0  ca 0d 75 46 25 c9 31 33  3a f2 53 28 69 79 25 2c  |..uF%.13:.S(iy%,|
000100e0  31 37 2c 31 29 3a f2 74  4a 3a f2 53 28 69 79 25  |17,1):.tJ:.S(iy%|
000100f0  2c 31 37 2c 30 29 0d 75  47 0b 7f f2 76 28 6a 25  |,17,0).uG...v(j%|
00010100  29 0d 75 48 07 cb 3a e1  0d 75 49 4d dd f2 74 4a  |).uH..:..uIM..tJ|
00010110  3a c8 94 60 25 2c 57 4a  25 3a 4b 25 3d a4 41 28  |:..`%,WJ%:K%=.A(|
00010120  31 2c 57 4a 25 29 3a 4a  75 25 3d 4d 61 25 3a 6d  |1,WJ%):Ju%=Ma%:m|
00010130  5f 25 3d 31 3a 4b 61 25  21 30 3d 2d 32 35 36 3a  |_%=1:Ka%!0=-256:|
00010140  4b 61 25 21 34 3d 30 3a  e7 71 6c 25 f2 64 79 28  |Ka%!4=0:.ql%.dy(|
00010150  2d 31 2c 34 29 0d 75 4a  10 e7 74 69 25 8c f2 6d  |-1,4).uJ..ti%..m|
00010160  79 8b f2 57 79 0d 75 4b  05 e1 0d 75 4c 11 dd f2  |y..Wy.uK...uL...|
00010170  41 61 3a c8 8e a4 50 28  30 29 ca 0d 75 4d 36 c9  |Aa:...P(0)..uM6.|
00010180  31 3a e3 68 79 25 3d 30  b8 6d 5f 25 3a 48 6c 25  |1:.hy%=0.m_%:Hl%|
00010190  3f 68 79 25 3d 30 3a f2  41 28 69 79 25 2c 68 79  |?hy%=0:.A(iy%,hy|
000101a0  25 2c 22 42 61 63 6b 67  72 6f 75 6e 64 22 29 3a  |%,"Background"):|
000101b0  ed 0d 75 4e 30 c9 32 3a  e3 68 79 25 3d 30 b8 6d  |..uN0.2:.hy%=0.m|
000101c0  5f 25 3a 48 6c 25 3f 68  79 25 3d 31 3a f2 41 28  |_%:Hl%?hy%=1:.A(|
000101d0  69 79 25 2c 68 79 25 2c  22 54 65 78 74 22 29 3a  |iy%,hy%,"Text"):|
000101e0  ed 0d 75 4f 2e c9 33 3a  c8 99 26 34 30 36 63 33  |..uO..3:..&406c3|
000101f0  3a e3 68 79 25 3d 30 b8  6d 5f 25 3a f2 67 5f 28  |:.hy%=0.m_%:.g_(|
00010200  68 79 25 29 3a ed 3a c8  99 26 34 30 36 63 31 0d  |hy%):.:..&406c1.|
00010210  75 50 8e c9 34 3a c8 99  26 34 30 36 63 30 3a 7a  |uP..4:..&406c0:z|
00010220  25 21 30 3d 31 3a 7a 25  21 34 3d 31 3a 7a 25 21  |%!0=1:z%!4=1:z%!|
00010230  38 3d 31 3a 7a 25 21 31  32 3d 31 3a c8 99 34 36  |8=1:z%!12=1:..46|
00010240  2c 36 30 2b 32 35 36 2c  41 25 28 57 4a 25 29 2c  |,60+256,A%(WJ%),|
00010250  4d 24 2c 30 b8 4a 2c 47  2c 42 2c 50 3a c8 99 34  |M$,0.J,G,B,P:..4|
00010260  36 2c 35 32 2b 32 35 36  2c 41 25 28 60 25 29 2c  |6,52+256,A%(`%),|
00010270  4d 24 2c 30 2c 30 2c 30  2c 7a 25 2c 48 6c 25 3a  |M$,0,0,0,z%,Hl%:|
00010280  c8 99 34 36 2c 4a 2c 47  2c 42 2c 50 3a f2 4a 28  |..46,J,G,B,P:.J(|
00010290  77 5f 25 29 3a c8 99 26  34 30 36 63 31 0d 75 51  |w_%):..&406c1.uQ|
000102a0  17 c9 35 3a f2 44 28 5a  6f 6f 6d 5f 57 69 6e 64  |..5:.D(Zoom_Wind|
000102b0  6f 77 25 29 0d 75 52 07  cb 3a e1 0d 75 53 1a dd  |ow%).uR..:..uS..|
000102c0  f2 48 75 28 62 25 2c 49  25 29 3a ea 68 79 25 3a  |.Hu(b%,I%):.hy%:|
000102d0  c8 8e 49 25 ca 0d 75 54  0b c9 31 37 3a f2 74 4a  |..I%..uT..17:.tJ|
000102e0  0d 75 55 8f c9 32 32 3a  c8 99 26 34 30 36 63 30  |.uU..22:..&406c0|
000102f0  3a 7a 25 21 30 3d 31 3a  7a 25 21 34 3d 31 3a 7a  |:z%!0=1:z%!4=1:z|
00010300  25 21 38 3d 31 3a 7a 25  21 31 32 3d 31 3a c8 99  |%!8=1:z%!12=1:..|
00010310  34 36 2c 36 30 2b 32 35  36 2c 41 25 28 57 4a 25  |46,60+256,A%(WJ%|
00010320  29 2c 4d 24 2c 30 b8 4a  2c 47 2c 42 2c 50 3a c8  |),M$,0.J,G,B,P:.|
00010330  99 34 36 2c 35 32 2b 32  35 36 2c 41 25 28 60 25  |.46,52+256,A%(`%|
00010340  29 2c 4d 24 2c 30 2c 30  2c 30 2c 7a 25 2c 48 6c  |),M$,0,0,0,z%,Hl|
00010350  25 3a c8 99 34 36 2c 4a  2c 47 2c 42 2c 50 3a f2  |%:..46,J,G,B,P:.|
00010360  4a 28 77 5f 25 29 3a c8  99 26 34 30 36 63 31 0d  |J(w_%):..&406c1.|
00010370  75 56 2f c9 31 39 3a c8  99 26 34 30 36 63 33 3a  |uV/.19:..&406c3:|
00010380  e3 68 79 25 3d 30 b8 6d  5f 25 3a f2 67 5f 28 68  |.hy%=0.m_%:.g_(h|
00010390  79 25 29 3a ed 3a c8 99  26 34 30 36 63 31 0d 75  |y%):.:..&406c1.u|
000103a0  57 37 c9 32 30 3a e3 68  79 25 3d 30 b8 6d 5f 25  |W7.20:.hy%=0.m_%|
000103b0  3a 48 6c 25 3f 68 79 25  3d 30 3a f2 41 28 69 79  |:Hl%?hy%=0:.A(iy|
000103c0  25 2c 68 79 25 2c 22 42  61 63 6b 67 72 6f 75 6e  |%,hy%,"Backgroun|
000103d0  64 22 29 3a ed 0d 75 58  31 c9 32 31 3a e3 68 79  |d"):..uX1.21:.hy|
000103e0  25 3d 30 b8 6d 5f 25 3a  48 6c 25 3f 68 79 25 3d  |%=0.m_%:Hl%?hy%=|
000103f0  31 3a f2 41 28 69 79 25  2c 68 79 25 2c 22 54 65  |1:.A(iy%,hy%,"Te|
00010400  78 74 22 29 3a ed 0d 75  59 1e c9 31 38 3a f2 54  |xt"):..uY..18:.T|
00010410  28 5a 6f 6f 6d 5f 57 69  6e 64 6f 77 25 2c 79 25  |(Zoom_Window%,y%|
00010420  2c 68 25 29 0d 75 5a 1c  7f 3a e7 49 25 3c 3d 6d  |,h%).uZ..:.I%<=m|
00010430  5f 25 80 49 25 3e 3d 30  8c f2 67 5f 28 49 25 29  |_%.I%>=0..g_(I%)|
00010440  0d 75 5b 07 cb 3a e1 0d  75 5c 11 dd f2 73 61 3a  |.u[..:..u\...sa:|
00010450  c8 8e a4 50 28 30 29 ca  0d 75 5d 17 c9 31 3a f2  |...P(0)..u]..1:.|
00010460  44 28 5a 6f 6f 6d 5f 57  69 6e 64 6f 77 25 29 0d  |D(Zoom_Window%).|
00010470  75 5e 07 cb 3a e1 0d 75  5f c3 dd f2 41 69 3a 58  |u^..:..u_...Ai:X|
00010480  24 3d a4 51 28 53 24 29  3a c8 99 26 34 30 36 63  |$=.Q(S$):..&406c|
00010490  30 3a 46 25 3d ad 28 53  24 29 3a 49 61 25 3d a2  |0:F%=.(S$):Ia%=.|
000104a0  23 46 25 3a d9 23 46 25  3a 4b 25 3d a4 41 28 49  |#F%:.#F%:K%=.A(I|
000104b0  61 25 2b 38 2c 4e 79 25  29 3a e7 4b 25 3d a3 8c  |a%+8,Ny%):.K%=..|
000104c0  f2 43 28 22 4f 70 74 69  63 61 6c 22 2c 22 54 68  |.C("Optical","Th|
000104d0  65 72 65 20 69 73 20 6e  6f 74 20 65 6e 6f 75 67  |ere is not enoug|
000104e0  68 20 66 72 65 65 20 6d  65 6d 6f 72 79 20 61 76  |h free memory av|
000104f0  61 69 6c 61 62 6c 65 20  74 6f 20 6d 65 72 67 65  |ailable to merge|
00010500  20 74 68 69 73 20 73 70  72 69 74 65 2e 20 4e 65  | this sprite. Ne|
00010510  65 64 20 22 2b c3 28 28  49 61 25 2b 38 29 81 31  |ed "+.((Ia%+8).1|
00010520  30 32 34 29 2b 22 4b 2e  22 29 3a 4b 25 3d a4 41  |024)+"K."):K%=.A|
00010530  28 31 2c 4e 79 25 29 3a  e1 0d 75 60 a8 21 28 41  |(1,Ny%):..u`.!(A|
00010540  25 28 4e 79 25 29 29 3d  5a 25 28 4e 79 25 29 3a  |%(Ny%))=Z%(Ny%):|
00010550  c8 99 74 4a 25 2c 43 60  25 2c 41 25 28 4e 79 25  |..tJ%,C`%,A%(Ny%|
00010560  29 3a c8 99 74 4a 25 2c  6f 72 25 2c 41 25 28 4e  |):..tJ%,or%,A%(N|
00010570  79 25 29 2c 53 24 3a c8  99 74 4a 25 2c 70 6f 25  |y%),S$:..tJ%,po%|
00010580  2c 41 25 28 4e 79 25 29  2c 79 60 25 2c 31 36 2c  |,A%(Ny%),y`%,16,|
00010590  31 b8 2c 2c 2c 6b 79 25  3a 4e 24 3d 22 22 3a e3  |1.,,,ky%:N$="":.|
000105a0  5f 79 25 3d 30 b8 6b 79  25 2d 31 3a 4e 24 2b 3d  |_y%=0.ky%-1:N$+=|
000105b0  bd 28 79 60 25 3f 5f 79  25 29 3a ed 3a c8 99 74  |.(y`%?_y%):.:..t|
000105c0  4a 25 2c 4e 6c 25 2c 41  25 28 4e 79 25 29 2c 4e  |J%,Nl%,A%(Ny%),N|
000105d0  24 b8 2c 2c 2c 6b 75 25  2c 6e 4a 25 2c 2c 64 69  |$.,,,ku%,nJ%,,di|
000105e0  25 0d 75 61 6c e7 64 69  25 3c 3e 4a 75 25 f2 43  |%.ual.di%<>Ju%.C|
000105f0  28 22 4f 70 74 69 63 61  6c 22 2c 22 54 68 65 20  |("Optical","The |
00010600  73 70 72 69 74 65 20 74  6f 20 6d 65 72 67 65 20  |sprite to merge |
00010610  6d 75 73 74 20 62 65 20  69 6e 20 74 68 65 20 73  |must be in the s|
00010620  61 6d 65 20 6d 6f 64 65  20 61 73 20 74 68 65 20  |ame mode as the |
00010630  63 75 72 72 65 6e 74 20  6f 6e 65 2e 22 29 3a 4b  |current one."):K|
00010640  25 3d a4 41 28 31 2c 4e  79 25 29 3a e1 0d 75 62  |%=.A(1,Ny%):..ub|
00010650  0d f2 51 5f 3a f2 4d 5f  3a e1 0d 75 63 b6 dd f2  |..Q_:.M_:..uc...|
00010660  51 6c 3a 5f 60 25 3d b9  3a 60 42 25 3d b9 3a 49  |Ql:_`%=.:`B%=.:I|
00010670  61 25 3d 5a 25 21 33 36  3a 76 24 3d a4 78 3a 60  |a%=Z%!36:v$=.x:`|
00010680  6e 25 3d 5a 25 21 38 3a  5f 4f 25 3d 5a 25 21 34  |n%=Z%!8:_O%=Z%!4|
00010690  3a 58 24 3d a4 51 28 76  24 29 3a 4b 25 3d a4 41  |:X$=.Q(v$):K%=.A|
000106a0  28 49 61 25 2b 38 2c 4e  79 25 29 3a e7 4b 25 3d  |(Ia%+8,Ny%):.K%=|
000106b0  a3 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |...C("Optical","|
000106c0  54 68 65 72 65 20 69 73  20 6e 6f 74 20 65 6e 6f  |There is not eno|
000106d0  75 67 68 20 66 72 65 65  20 6d 65 6d 6f 72 79 20  |ugh free memory |
000106e0  61 76 61 69 6c 61 62 6c  65 20 74 6f 20 6d 65 72  |available to mer|
000106f0  67 65 20 74 68 69 73 20  73 70 72 69 74 65 2e 22  |ge this sprite."|
00010700  29 3a 4b 25 3d a4 41 28  31 2c 4e 79 25 29 3a e1  |):K%=.A(1,Ny%):.|
00010710  0d 75 64 4b 21 28 41 25  28 4e 79 25 29 29 3d 5a  |.udK!(A%(Ny%))=Z|
00010720  25 28 4e 79 25 29 3a c8  99 74 4a 25 2c 43 60 25  |%(Ny%):..tJ%,C`%|
00010730  2c 41 25 28 4e 79 25 29  3a 50 4f 25 3d 30 3a 64  |,A%(Ny%):PO%=0:d|
00010740  6e 25 3d 49 61 25 3a 70  60 25 3d b9 3a 5a 25 21  |n%=Ia%:p`%=.:Z%!|
00010750  38 3d 60 6e 25 3a f2 61  5f 3a e1 0d 75 65 dc dd  |8=`n%:.a_:..ue..|
00010760  f2 53 6c 3a c8 99 74 4a  25 2c 70 6f 25 2c 41 25  |.Sl:..tJ%,po%,A%|
00010770  28 4e 79 25 29 2c 79 60  25 2c 31 36 2c 31 b8 2c  |(Ny%),y`%,16,1.,|
00010780  2c 2c 6b 79 25 3a 4e 24  3d 22 22 3a e3 5f 79 25  |,,ky%:N$="":._y%|
00010790  3d 30 b8 6b 79 25 2d 31  3a 4e 24 2b 3d bd 28 79  |=0.ky%-1:N$+=.(y|
000107a0  60 25 3f 5f 79 25 29 3a  ed 3a c8 99 74 4a 25 2c  |`%?_y%):.:..tJ%,|
000107b0  4e 6c 25 2c 41 25 28 4e  79 25 29 2c 4e 24 b8 2c  |Nl%,A%(Ny%),N$.,|
000107c0  2c 2c 6b 75 25 2c 6e 4a  25 2c 2c 64 69 25 3a e7  |,,ku%,nJ%,,di%:.|
000107d0  64 69 25 3c 3e 4a 75 25  f2 43 28 22 4f 70 74 69  |di%<>Ju%.C("Opti|
000107e0  63 61 6c 22 2c 22 54 68  65 20 73 70 72 69 74 65  |cal","The sprite|
000107f0  20 74 6f 20 6d 65 72 67  65 20 6d 75 73 74 20 62  | to merge must b|
00010800  65 20 69 6e 20 74 68 65  20 73 61 6d 65 20 6d 6f  |e in the same mo|
00010810  64 65 20 61 73 20 74 68  65 20 63 75 72 72 65 6e  |de as the curren|
00010820  74 20 6f 6e 65 2e 22 29  3a 4b 25 3d a4 41 28 31  |t one."):K%=.A(1|
00010830  2c 4e 79 25 29 3a e1 0d  75 66 0d f2 51 5f 3a f2  |,Ny%):..uf..Q_:.|
00010840  4d 5f 3a e1 0d 75 67 24  dd f2 4d 5f 3a ee 85 ea  |M_:..ug$..M_:...|
00010850  85 30 2c f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  |.0,.$+" at line |
00010860  22 2b c3 28 9e 29 3a e1  0d 75 68 f7 c8 99 74 4a  |"+.(.):..uh...tJ|
00010870  25 2c 46 4f 25 2c 41 25  28 4e 79 25 29 2c 4e 24  |%,FO%,A%(Ny%),N$|
00010880  b8 2c 2c 6a 41 25 3a 5a  25 21 30 3d 48 5f 25 3a  |.,,jA%:Z%!0=H_%:|
00010890  c8 99 26 34 30 30 63 62  2c 2c 5a 25 3a 4c 25 3d  |..&400cb,,Z%:L%=|
000108a0  5a 25 21 34 2d 5a 25 21  32 30 3a 58 25 3d 5a 25  |Z%!4-Z%!20:X%=Z%|
000108b0  21 31 36 2d 5a 25 21 32  34 3a 68 6c 25 3d 2d 5a  |!16-Z%!24:hl%=-Z|
000108c0  25 21 31 36 2b 5a 25 21  38 3a 72 6c 25 3d 5a 25  |%!16+Z%!8:rl%=Z%|
000108d0  21 31 32 2d 5a 25 21 34  3a c8 99 26 34 30 30 63  |!12-Z%!4:..&400c|
000108e0  66 2c 2c 5a 25 3a 73 25  3d 5a 25 21 30 3a 76 25  |f,,Z%:s%=Z%!0:v%|
000108f0  3d 5a 25 21 34 3a 52 69  25 3d 2d 6b 75 25 2a 52  |=Z%!4:Ri%=-ku%*R|
00010900  25 2f 32 2a 55 25 2f 31  30 30 3a 49 69 25 3d 2d  |%/2*U%/100:Ii%=-|
00010910  6e 4a 25 2a 56 25 2f 32  2a 55 25 2f 31 30 30 3a  |nJ%*V%/2*U%/100:|
00010920  78 75 25 3d 28 73 25 2d  4c 25 2b 52 69 25 2d 52  |xu%=(s%-L%+Ri%-R|
00010930  25 29 3a 73 75 25 3d 74  25 2a 56 25 2a 55 25 2f  |%):su%=t%*V%*U%/|
00010940  31 30 30 2d 28 58 25 2d  76 25 2d 49 69 25 29 3a  |100-(X%-v%-Ii%):|
00010950  6d 69 25 3d 78 75 25 3a  6b 69 25 3d 73 75 25 0d  |mi%=xu%:ki%=su%.|
00010960  75 69 7a c8 99 35 33 2c  64 69 25 2c 33 b8 2c 2c  |uiz..53,di%,3.,,|
00010970  5a 6b 25 3a c8 99 34 36  2c 32 34 2b 32 35 36 2c  |Zk%:..46,24+256,|
00010980  41 25 28 4e 79 25 29 2c  4e 24 b8 2c 2c 71 60 25  |A%(Ny%),N$.,,q`%|
00010990  3a 47 5f 25 3d 71 60 25  2b 34 34 3a e3 5f 79 25  |:G_%=q`%+44:._y%|
000109a0  3d 30 b8 5a 6b 25 3a 4b  61 25 21 28 5f 79 25 2a  |=0.Zk%:Ka%!(_y%*|
000109b0  34 29 3d 47 5f 25 21 28  5f 79 25 2a 38 29 3a ed  |4)=G_%!(_y%*8):.|
000109c0  3a e7 47 5f 25 3d 71 60  25 2b 71 60 25 21 33 32  |:.G_%=q`%+q`%!32|
000109d0  8c f2 44 4a 28 5a 6b 25  29 0d 75 6a 79 e7 ac 28  |..DJ(Zk%).ujy..(|
000109e0  28 a4 47 28 47 5f 25 21  30 29 3e a4 47 28 26 38  |(.G(G_%!0)>.G(&8|
000109f0  30 38 30 38 30 30 30 29  80 a4 47 28 47 5f 25 21  |0808000)..G(G_%!|
00010a00  34 29 3e a4 47 28 26 38  30 38 30 38 30 30 30 29  |4)>.G(&80808000)|
00010a10  80 a4 47 28 47 5f 25 21  38 29 3c a4 47 28 26 38  |..G(G_%!8)<.G(&8|
00010a20  30 38 30 38 30 30 30 29  80 a4 47 28 47 5f 25 21  |0808000)..G(G_%!|
00010a30  31 32 29 3c a4 47 28 26  38 30 38 30 38 30 30 29  |12)<.G(&8080800)|
00010a40  29 84 47 5f 25 3d 71 60  25 2b 71 60 25 21 33 32  |).G_%=q`%+q`%!32|
00010a50  29 8c 0d 75 6b 0b e7 5a  6b 25 3d 31 8c 0d 75 6c  |)..uk..Zk%=1..ul|
00010a60  97 c8 99 34 36 2c 36 30  2b 32 35 36 2c 41 25 28  |...46,60+256,A%(|
00010a70  4e 79 25 29 2c 4e 24 2c  30 b8 4a 2c 47 2c 42 2c  |Ny%),N$,0.J,G,B,|
00010a80  50 3a e6 34 2c 30 3a c8  93 c8 90 30 2c 30 2c 6b  |P:.4,0:....0,0,k|
00010a90  75 25 2a 52 25 2c 6e 4a  25 2a 56 25 3a c8 99 34  |u%*R%,nJ%*V%:..4|
00010aa0  36 2c 4a 2c 47 2c 42 2c  50 3a 47 5f 25 21 30 3d  |6,J,G,B,P:G_%!0=|
00010ab0  a4 4e 28 47 5f 25 21 30  29 3a 47 5f 25 21 34 3d  |.N(G_%!0):G_%!4=|
00010ac0  a4 4e 28 47 5f 25 21 34  29 3a 47 5f 25 21 38 3d  |.N(G_%!4):G_%!8=|
00010ad0  a4 4e 28 47 5f 25 21 38  29 3a 47 5f 25 21 31 32  |.N(G_%!8):G_%!12|
00010ae0  3d a4 4e 28 47 5f 25 21  31 32 29 3a c8 99 26 34  |=.N(G_%!12):..&4|
00010af0  30 36 63 31 0d 75 6d 05  cd 0d 75 6e 72 cd 3a f2  |06c1.um...unr.:.|
00010b00  4d 28 6b 25 29 3a f2 4d  28 60 5f 25 29 3a f2 4d  |M(k%):.M(`_%):.M|
00010b10  28 77 5f 25 29 3a f2 4d  28 51 5f 25 29 3a f2 4d  |(w_%):.M(Q_%):.M|
00010b20  28 69 79 25 29 3a f2 4e  28 48 5f 25 2c 22 4d 65  |(iy%):.N(H_%,"Me|
00010b30  72 67 65 20 69 6d 61 67  65 73 22 29 3a f2 4c 28  |rge images"):.L(|
00010b40  48 5f 25 2c a4 4a 28 6e  25 2a 52 25 29 2b 34 30  |H_%,.J(n%*R%)+40|
00010b50  30 2c a4 4a 28 74 25 2a  56 25 29 2b 34 30 30 29  |0,.J(t%*V%)+400)|
00010b60  3a c8 99 26 34 30 36 63  31 3a e1 0d 75 6f 83 dd  |:..&406c1:..uo..|
00010b70  f2 6b 75 3a ea 61 41 25  3a 5a 25 21 30 3d 48 5f  |.ku:.aA%:Z%!0=H_|
00010b80  25 3a c8 99 26 34 30 30  63 62 2c 2c 5a 25 3a 4c  |%:..&400cb,,Z%:L|
00010b90  25 3d 5a 25 21 34 2d 5a  25 21 32 30 3a 58 25 3d  |%=Z%!4-Z%!20:X%=|
00010ba0  5a 25 21 31 36 2d 5a 25  21 32 34 3a 68 6c 25 3d  |Z%!16-Z%!24:hl%=|
00010bb0  2d 5a 25 21 31 36 2b 5a  25 21 38 3a 72 6c 25 3d  |-Z%!16+Z%!8:rl%=|
00010bc0  5a 25 21 31 32 2d 5a 25  21 34 3a e7 73 25 3c 5a  |Z%!12-Z%!4:.s%<Z|
00010bd0  25 21 34 84 73 25 3e 5a  25 21 31 32 84 76 25 3c  |%!4.s%>Z%!12.v%<|
00010be0  5a 25 21 38 84 76 25 3e  5a 25 21 31 36 e1 0d 75  |Z%!8.v%>Z%!16..u|
00010bf0  70 20 c8 99 36 2c 31 32  31 2c 30 82 31 32 38 b8  |p ..6,121,0.128.|
00010c00  2c 61 41 25 3a e7 61 41  25 f2 63 75 3a e1 0d 75  |,aA%:.aA%.cu:..u|
00010c10  71 17 e7 5f 4a 25 f2 6d  3a f2 59 28 22 22 29 3a  |q.._J%.m:.Y(""):|
00010c20  5f 4a 25 3d a3 0d 75 72  c1 6d 69 25 3d 78 75 25  |_J%=..ur.mi%=xu%|
00010c30  3a 6b 69 25 3d 73 75 25  3a 5a 25 21 30 3d 48 5f  |:ki%=su%:Z%!0=H_|
00010c40  25 3a c8 99 26 34 30 30  63 62 2c 2c 5a 25 3a 4c  |%:..&400cb,,Z%:L|
00010c50  25 3d 5a 25 21 34 2d 5a  25 21 32 30 3a 58 25 3d  |%=Z%!4-Z%!20:X%=|
00010c60  5a 25 21 31 36 2d 5a 25  21 32 34 3a 68 6c 25 3d  |Z%!16-Z%!24:hl%=|
00010c70  2d 5a 25 21 31 36 2b 5a  25 21 38 3a 72 6c 25 3d  |-Z%!16+Z%!8:rl%=|
00010c80  5a 25 21 31 32 2d 5a 25  21 34 3a c8 99 26 34 30  |Z%!12-Z%!4:..&40|
00010c90  30 63 66 2c 2c 5a 25 3a  73 25 3d 5a 25 21 30 3a  |0cf,,Z%:s%=Z%!0:|
00010ca0  76 25 3d 5a 25 21 34 3a  78 75 25 3d 28 73 25 2d  |v%=Z%!4:xu%=(s%-|
00010cb0  4c 25 2b 52 69 25 29 3a  73 75 25 3d 74 25 2a 56  |L%+Ri%):su%=t%*V|
00010cc0  25 2a 55 25 2f 31 30 30  2d 28 58 25 2d 76 25 2d  |%*U%/100-(X%-v%-|
00010cd0  49 69 25 29 3a e7 78 75  25 3d 6d 69 25 80 73 75  |Ii%):.xu%=mi%.su|
00010ce0  25 3d 6b 69 25 e1 0d 75  73 09 f2 62 79 3a e1 0d  |%=ki%..us..by:..|
00010cf0  75 74 2e dd f2 63 75 3a  e7 5f 4a 25 3d a3 f2 6e  |ut...cu:._J%=..n|
00010d00  5f 28 48 5f 25 29 3a f2  59 28 22 70 74 72 5f 61  |_(H_%):.Y("ptr_a|
00010d10  64 6a 75 73 74 22 29 3a  5f 4a 25 3d b9 0d 75 75  |djust"):_J%=..uu|
00010d20  9d 5a 25 21 30 3d 48 5f  25 3a c8 99 26 34 30 30  |.Z%!0=H_%:..&400|
00010d30  63 62 2c 2c 5a 25 3a 4c  25 3d 5a 25 21 34 2d 5a  |cb,,Z%:L%=Z%!4-Z|
00010d40  25 21 32 30 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |%!20:X%=Z%!16-Z%|
00010d50  21 32 34 3a 68 6c 25 3d  2d 5a 25 21 31 36 2b 5a  |!24:hl%=-Z%!16+Z|
00010d60  25 21 38 3a 72 6c 25 3d  5a 25 21 31 32 2d 5a 25  |%!8:rl%=Z%!12-Z%|
00010d70  21 34 3a c8 99 26 34 30  30 63 66 2c 2c 5a 25 3a  |!4:..&400cf,,Z%:|
00010d80  73 25 3d 5a 25 21 30 3a  76 25 3d 5a 25 21 34 3a  |s%=Z%!0:v%=Z%!4:|
00010d90  52 69 25 3d 78 75 25 2d  73 25 2b 4c 25 3a 49 69  |Ri%=xu%-s%+L%:Ii|
00010da0  25 3d 73 75 25 2d 74 25  2a 56 25 2a 55 25 2f 31  |%=su%-t%*V%*U%/1|
00010db0  30 30 2b 58 25 2d 76 25  3a e1 0d 75 76 88 dd f2  |00+X%-v%:..uv...|
00010dc0  79 6c 28 49 25 2c 6a 25  29 3a ea 77 6c 25 2c 47  |yl(I%,j%):.wl%,G|
00010dd0  75 25 2c 73 25 2c 76 25  3a c8 99 35 33 2c 2d 31  |u%,s%,v%:..53,-1|
00010de0  2c 34 b8 2c 2c 77 6c 25  3a c8 99 35 33 2c 2d 31  |,4.,,wl%:..53,-1|
00010df0  2c 35 b8 2c 2c 47 75 25  3a 77 6c 25 3d 31 3c 3c  |,5.,,Gu%:wl%=1<<|
00010e00  77 6c 25 3a 47 75 25 3d  31 3c 3c 47 75 25 3a c8  |wl%:Gu%=1<<Gu%:.|
00010e10  99 26 34 30 30 63 66 2c  2c 5a 25 3a 73 25 3d 5a  |.&400cf,,Z%:s%=Z|
00010e20  25 21 30 3a 76 25 3d 5a  25 21 34 3a 4d 25 3f 30  |%!0:v%=Z%!4:M%?0|
00010e30  3d 33 3a ff 28 22 46 58  32 31 22 29 3a c8 8e 6a  |=3:.("FX21"):..j|
00010e40  25 ca 0d 75 77 16 c9 32  37 3a f2 4d 28 48 5f 25  |%..uw..27:.M(H_%|
00010e50  29 3a c8 8e 4b 75 25 ca  0d 75 78 4f c9 a3 3a f2  |):..Ku%..uxO..:.|
00010e60  4c 28 6b 25 2c a4 4a 28  6e 25 2a 52 25 29 2c a4  |L(k%,.J(n%*R%),.|
00010e70  4a 28 74 25 2a 56 25 29  29 3a f2 4e 28 6b 25 2c  |J(t%*V%)):.N(k%,|
00010e80  22 50 72 6f 63 65 73 73  20 27 22 2b 58 24 2b 22  |"Process '"+X$+"|
00010e90  27 20 28 22 2b 4d 24 2b  22 29 22 29 3a e7 55 75  |' ("+M$+")"):.Uu|
00010ea0  25 f2 77 28 6b 25 29 0d  75 79 79 c9 b9 3a f2 4c  |%.w(k%).uyy..:.L|
00010eb0  28 51 5f 25 2c a4 4a 28  6e 25 2a 52 25 29 2c a4  |(Q_%,.J(n%*R%),.|
00010ec0  4a 28 74 25 2a 56 25 29  29 3a f2 4c 28 77 5f 25  |J(t%*V%)):.L(w_%|
00010ed0  2c a4 4a 28 6e 25 2a 52  25 29 2c a4 4a 28 74 25  |,.J(n%*R%),.J(t%|
00010ee0  2a 56 25 29 29 3a f2 44  28 69 79 25 29 3a f2 4e  |*V%)):.D(iy%):.N|
00010ef0  28 51 5f 25 2c 22 4f 72  69 67 69 6e 61 6c 20 69  |(Q_%,"Original i|
00010f00  6d 61 67 65 22 29 3a f2  4e 28 77 5f 25 2c 22 50  |mage"):.N(w_%,"P|
00010f10  72 6f 63 65 73 73 65 64  20 69 6d 61 67 65 22 29  |rocessed image")|
00010f20  0d 75 7a 12 cb 3a 4b 25  3d a4 41 28 31 2c 4e 79  |.uz..:K%=.A(1,Ny|
00010f30  25 29 0d 75 7b 67 c9 33  39 39 3a 6b 69 25 3d 73  |%).u{g.399:ki%=s|
00010f40  75 25 3a 6d 69 25 3d 78  75 25 3a 73 75 25 2b 3d  |u%:mi%=xu%:su%+=|
00010f50  47 75 25 3a 76 25 2b 3d  47 75 25 3a 4d 25 3f 31  |Gu%:v%+=Gu%:M%?1|
00010f60  3d 73 25 83 32 35 36 3a  4d 25 3f 32 3d 73 25 81  |=s%.256:M%?2=s%.|
00010f70  32 35 36 3a 4d 25 3f 33  3d 76 25 83 32 35 36 3a  |256:M%?3=v%.256:|
00010f80  4d 25 3f 34 3d 76 25 81  32 35 36 3a c8 99 37 2c  |M%?4=v%.256:..7,|
00010f90  32 31 2c 4d 25 3a f2 62  79 0d 75 7c 67 c9 33 39  |21,M%:.by.u|g.39|
00010fa0  38 3a 6b 69 25 3d 73 75  25 3a 6d 69 25 3d 78 75  |8:ki%=su%:mi%=xu|
00010fb0  25 3a 73 75 25 2d 3d 47  75 25 3a 76 25 2d 3d 47  |%:su%-=Gu%:v%-=G|
00010fc0  75 25 3a 4d 25 3f 31 3d  73 25 83 32 35 36 3a 4d  |u%:M%?1=s%.256:M|
00010fd0  25 3f 32 3d 73 25 81 32  35 36 3a 4d 25 3f 33 3d  |%?2=s%.256:M%?3=|
00010fe0  76 25 83 32 35 36 3a 4d  25 3f 34 3d 76 25 81 32  |v%.256:M%?4=v%.2|
00010ff0  35 36 3a c8 99 37 2c 32  31 2c 4d 25 3a f2 62 79  |56:..7,21,M%:.by|
00011000  0d 75 7d 67 c9 33 39 36  3a 6d 69 25 3d 78 75 25  |.u}g.396:mi%=xu%|
00011010  3a 6b 69 25 3d 73 75 25  3a 78 75 25 2d 3d 77 6c  |:ki%=su%:xu%-=wl|
00011020  25 3a 73 25 2d 3d 77 6c  25 3a 4d 25 3f 31 3d 73  |%:s%-=wl%:M%?1=s|
00011030  25 83 32 35 36 3a 4d 25  3f 32 3d 73 25 81 32 35  |%.256:M%?2=s%.25|
00011040  36 3a 4d 25 3f 33 3d 76  25 83 32 35 36 3a 4d 25  |6:M%?3=v%.256:M%|
00011050  3f 34 3d 76 25 81 32 35  36 3a c8 99 37 2c 32 31  |?4=v%.256:..7,21|
00011060  2c 4d 25 3a f2 62 79 0d  75 7e 67 c9 33 39 37 3a  |,M%:.by.u~g.397:|
00011070  6d 69 25 3d 78 75 25 3a  6b 69 25 3d 73 75 25 3a  |mi%=xu%:ki%=su%:|
00011080  78 75 25 2b 3d 77 6c 25  3a 73 25 2b 3d 77 6c 25  |xu%+=wl%:s%+=wl%|
00011090  3a 4d 25 3f 31 3d 73 25  83 32 35 36 3a 4d 25 3f  |:M%?1=s%.256:M%?|
000110a0  32 3d 73 25 81 32 35 36  3a 4d 25 3f 33 3d 76 25  |2=s%.256:M%?3=v%|
000110b0  83 32 35 36 3a 4d 25 3f  34 3d 76 25 81 32 35 36  |.256:M%?4=v%.256|
000110c0  3a c8 99 37 2c 32 31 2c  4d 25 3a f2 62 79 0d 75  |:..7,21,M%:.by.u|
000110d0  7f 53 c9 34 31 35 3a 49  69 25 2b 3d 47 75 25 3a  |.S.415:Ii%+=Gu%:|
000110e0  76 25 2b 3d 47 75 25 3a  4d 25 3f 31 3d 73 25 83  |v%+=Gu%:M%?1=s%.|
000110f0  32 35 36 3a 4d 25 3f 32  3d 73 25 81 32 35 36 3a  |256:M%?2=s%.256:|
00011100  4d 25 3f 33 3d 76 25 83  32 35 36 3a 4d 25 3f 34  |M%?3=v%.256:M%?4|
00011110  3d 76 25 81 32 35 36 3a  c8 99 37 2c 32 31 2c 4d  |=v%.256:..7,21,M|
00011120  25 0d 75 80 53 c9 34 31  34 3a 49 69 25 2d 3d 47  |%.u.S.414:Ii%-=G|
00011130  75 25 3a 76 25 2d 3d 47  75 25 3a 4d 25 3f 31 3d  |u%:v%-=Gu%:M%?1=|
00011140  73 25 83 32 35 36 3a 4d  25 3f 32 3d 73 25 81 32  |s%.256:M%?2=s%.2|
00011150  35 36 3a 4d 25 3f 33 3d  76 25 83 32 35 36 3a 4d  |56:M%?3=v%.256:M|
00011160  25 3f 34 3d 76 25 81 32  35 36 3a c8 99 37 2c 32  |%?4=v%.256:..7,2|
00011170  31 2c 4d 25 0d 75 81 53  c9 34 31 32 3a 52 69 25  |1,M%.u.S.412:Ri%|
00011180  2d 3d 77 6c 25 3a 73 25  2d 3d 77 6c 25 3a 4d 25  |-=wl%:s%-=wl%:M%|
00011190  3f 31 3d 73 25 83 32 35  36 3a 4d 25 3f 32 3d 73  |?1=s%.256:M%?2=s|
000111a0  25 81 32 35 36 3a 4d 25  3f 33 3d 76 25 83 32 35  |%.256:M%?3=v%.25|
000111b0  36 3a 4d 25 3f 34 3d 76  25 81 32 35 36 3a c8 99  |6:M%?4=v%.256:..|
000111c0  37 2c 32 31 2c 4d 25 0d  75 82 53 c9 34 31 33 3a  |7,21,M%.u.S.413:|
000111d0  52 69 25 2b 3d 77 6c 25  3a 73 25 2b 3d 77 6c 25  |Ri%+=wl%:s%+=wl%|
000111e0  3a 4d 25 3f 31 3d 73 25  83 32 35 36 3a 4d 25 3f  |:M%?1=s%.256:M%?|
000111f0  32 3d 73 25 81 32 35 36  3a 4d 25 3f 33 3d 76 25  |2=s%.256:M%?3=v%|
00011200  83 32 35 36 3a 4d 25 3f  34 3d 76 25 81 32 35 36  |.256:M%?4=v%.256|
00011210  3a c8 99 37 2c 32 31 2c  4d 25 0d 75 83 0b c9 31  |:..7,21,M%.u...1|
00011220  33 3a f2 6f 5f 0d 75 84  3c c9 33 38 36 3a c8 99  |3:.o_.u.<.386:..|
00011230  26 34 30 30 63 66 2c 2c  5a 25 3a 73 25 3d 5a 25  |&400cf,,Z%:s%=Z%|
00011240  21 30 3a 76 25 3d 5a 25  21 34 3a f2 54 28 5a 6f  |!0:v%=Z%!4:.T(Zo|
00011250  6f 6d 5f 57 69 6e 64 6f  77 25 2c 73 25 2c 76 25  |om_Window%,s%,v%|
00011260  29 0d 75 85 10 7f c8 99  26 34 30 30 64 63 2c 6a  |).u.....&400dc,j|
00011270  25 0d 75 86 07 cb 3a e1  0d 75 87 fc dd f2 62 79  |%.u...:..u....by|
00011280  3a f2 55 79 3a 5a 25 21  30 3d 48 5f 25 3a 5a 25  |:.Uy:Z%!0=H_%:Z%|
00011290  21 34 3d 30 3a 5a 25 21  38 3d 2d 74 25 2a 56 25  |!4=0:Z%!8=-t%*V%|
000112a0  2a 55 25 2f 31 30 30 2d  34 30 30 3a 5a 25 21 31  |*U%/100-400:Z%!1|
000112b0  32 3d 6e 25 2a 52 25 2a  55 25 2f 31 30 30 2b 34  |2=n%*R%*U%/100+4|
000112c0  30 30 3a 5a 25 21 31 36  3d 30 3a c8 99 26 34 30  |00:Z%!16=0:..&40|
000112d0  30 63 39 2c 2c 5a 25 b8  64 25 3a 4c 25 3d 5a 25  |0c9,,Z%.d%:L%=Z%|
000112e0  21 34 2d 5a 25 21 32 30  3a 58 25 3d 5a 25 21 31  |!4-Z%!20:X%=Z%!1|
000112f0  36 2d 5a 25 21 32 34 3a  c8 95 64 25 3a 6d 79 25  |6-Z%!24:..d%:my%|
00011300  3d 4c 25 2b 6d 69 25 3a  41 5f 25 3d 58 25 2d 74  |=L%+mi%:A_%=X%-t|
00011310  25 2a 56 25 2a 55 25 2f  31 30 30 2b 6b 69 25 3a  |%*V%*U%/100+ki%:|
00011320  f2 49 28 41 25 28 4e 79  25 29 2c 4e 24 2c 6d 79  |.I(A%(Ny%),N$,my|
00011330  25 2c 41 5f 25 2c 33 2c  7a 25 29 3a c8 99 26 34  |%,A_%,3,z%):..&4|
00011340  30 30 63 61 2c 2c 5a 25  b8 64 25 3a ce 3a 5a 25  |00ca,,Z%.d%:.:Z%|
00011350  21 30 3d 48 5f 25 3a 5a  25 21 34 3d 30 3a 5a 25  |!0=H_%:Z%!4=0:Z%|
00011360  21 38 3d 2d 74 25 2a 56  25 2a 55 25 2f 31 30 30  |!8=-t%*V%*U%/100|
00011370  2d 34 30 30 0d 75 88 a7  5a 25 21 31 32 3d 6e 25  |-400.u..Z%!12=n%|
00011380  2a 52 25 2a 55 25 2f 31  30 30 2b 34 30 30 3a 5a  |*R%*U%/100+400:Z|
00011390  25 21 31 36 3d 30 3a c8  99 26 34 30 30 63 39 2c  |%!16=0:..&400c9,|
000113a0  2c 5a 25 b8 64 25 3a 4c  25 3d 5a 25 21 34 2d 5a  |,Z%.d%:L%=Z%!4-Z|
000113b0  25 21 32 30 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |%!20:X%=Z%!16-Z%|
000113c0  21 32 34 3a c8 95 64 25  3a 6d 79 25 3d 4c 25 2b  |!24:..d%:my%=L%+|
000113d0  78 75 25 3a 41 5f 25 3d  58 25 2d 74 25 2a 56 25  |xu%:A_%=X%-t%*V%|
000113e0  2a 55 25 2f 31 30 30 2b  73 75 25 3a f2 49 28 41  |*U%/100+su%:.I(A|
000113f0  25 28 4e 79 25 29 2c 4e  24 2c 6d 79 25 2c 41 5f  |%(Ny%),N$,my%,A_|
00011400  25 2c 33 2c 7a 25 29 3a  c8 99 26 34 30 30 63 61  |%,3,z%):..&400ca|
00011410  2c 2c 5a 25 b8 64 25 3a  ce 3a e1 0d 75 89 f7 dd  |,,Z%.d%:.:..u...|
00011420  f2 6f 5f 3a ea 68 6c 25  2c 72 6c 25 2c 73 25 2c  |.o_:.hl%,rl%,s%,|
00011430  76 25 2c 5a 5f 25 2c 75  79 25 2c 4a 2c 47 2c 42  |v%,Z_%,uy%,J,G,B|
00011440  2c 50 2c 6f 79 25 2c 64  4a 25 2c 54 5f 25 2c 59  |,P,oy%,dJ%,T_%,Y|
00011450  75 25 2c 68 79 25 2c 4a  70 25 2c 55 4a 25 2c 79  |u%,hy%,Jp%,UJ%,y|
00011460  69 25 2c 63 75 25 3a 5a  25 21 30 3d 48 5f 25 3a  |i%,cu%:Z%!0=H_%:|
00011470  c8 99 26 34 30 30 63 62  2c 2c 5a 25 3a 4c 25 3d  |..&400cb,,Z%:L%=|
00011480  5a 25 21 34 2d 5a 25 21  32 30 3a 58 25 3d 5a 25  |Z%!4-Z%!20:X%=Z%|
00011490  21 31 36 2d 5a 25 21 32  34 3a 68 6c 25 3d 2d 5a  |!16-Z%!24:hl%=-Z|
000114a0  25 21 31 36 2b 5a 25 21  38 3a 72 6c 25 3d 5a 25  |%!16+Z%!8:rl%=Z%|
000114b0  21 31 32 2d 5a 25 21 34  3a c8 99 26 34 30 30 63  |!12-Z%!4:..&400c|
000114c0  66 2c 2c 5a 25 3a 73 25  3d 5a 25 21 30 3a 76 25  |f,,Z%:s%=Z%!0:v%|
000114d0  3d 5a 25 21 34 3a c8 99  35 33 2c 2d 31 2c 34 b8  |=Z%!4:..53,-1,4.|
000114e0  2c 2c 55 4a 25 3a 55 4a  25 3d 31 3c 3c 55 4a 25  |,,UJ%:UJ%=1<<UJ%|
000114f0  3a 5a 5f 25 3d 28 73 25  2d 4c 25 2d 32 30 30 2d  |:Z_%=(s%-L%-200-|
00011500  55 4a 25 2b 52 69 25 29  2f 52 25 2a 31 30 30 2f  |UJ%+Ri%)/R%*100/|
00011510  55 25 0d 75 8a 44 75 79  25 3d 28 74 25 2a 56 25  |U%.u.Duy%=(t%*V%|
00011520  2a 55 25 2f 31 30 30 2d  28 58 25 2d 76 25 2d 49  |*U%/100-(X%-v%-I|
00011530  69 25 29 2b 32 30 30 29  2f 56 25 2a 31 30 30 2f  |i%)+200)/V%*100/|
00011540  55 25 3a e7 5a 5f 25 3c  30 6f 79 25 3d 5a 5f 25  |U%:.Z_%<0oy%=Z_%|
00011550  8b 6f 79 25 3d 30 0d 75  8b 21 e7 5a 5f 25 2b 6b  |.oy%=0.u.!.Z_%+k|
00011560  75 25 3e 6e 25 64 4a 25  3d 5a 5f 25 2b 6b 75 25  |u%>n%dJ%=Z_%+ku%|
00011570  8b 64 4a 25 3d 6e 25 0d  75 8c 17 e7 75 79 25 3c  |.dJ%=n%.u...uy%<|
00011580  30 54 5f 25 3d 75 79 25  8b 54 5f 25 3d 30 0d 75  |0T_%=uy%.T_%=0.u|
00011590  8d 21 e7 75 79 25 2b 6e  4a 25 3e 74 25 59 75 25  |.!.uy%+nJ%>t%Yu%|
000115a0  3d 75 79 25 2b 6e 4a 25  8b 59 75 25 3d 74 25 0d  |=uy%+nJ%.Yu%=t%.|
000115b0  75 8e a8 59 79 25 3d a4  67 28 64 4a 25 2d 6f 79  |u..Yy%=.g(dJ%-oy|
000115c0  25 2b 33 36 2c 59 75 25  2d 54 5f 25 2b 38 2c 41  |%+36,Yu%-T_%+8,A|
000115d0  25 28 60 25 29 2c 4d 24  29 3a 4b 25 3d a4 41 28  |%(`%),M$):K%=.A(|
000115e0  59 79 25 2c 60 25 29 3a  e7 4b 25 3d a3 8c f2 43  |Yy%,`%):.K%=...C|
000115f0  28 22 4f 70 74 69 63 61  6c 22 2c 22 54 68 65 72  |("Optical","Ther|
00011600  65 20 69 73 20 6e 6f 74  20 65 6e 6f 75 67 68 20  |e is not enough |
00011610  66 72 65 65 20 6d 65 6d  6f 72 79 20 61 76 61 69  |free memory avai|
00011620  6c 61 62 6c 65 20 74 6f  20 6d 65 72 67 65 20 74  |lable to merge t|
00011630  68 65 20 73 70 72 69 74  65 2e 20 4e 65 65 64 20  |he sprite. Need |
00011640  22 2b c3 28 28 59 79 25  29 81 31 30 32 34 29 2b  |"+.((Yy%).1024)+|
00011650  22 4b 2e 22 29 3a e1 0d  75 8f 1a 21 28 41 25 28  |"K."):..u..!(A%(|
00011660  60 25 29 29 3d 5a 25 28  60 25 29 3a e7 4b 75 25  |`%))=Z%(`%):.Ku%|
00011670  8c 0d 75 90 93 4b 25 3d  a4 41 28 59 79 25 2c 57  |..u..K%=.A(Yy%,W|
00011680  4a 25 29 3a e7 4b 25 3d  a3 8c f2 43 28 22 4f 70  |J%):.K%=...C("Op|
00011690  74 69 63 61 6c 22 2c 22  54 68 65 72 65 20 69 73  |tical","There is|
000116a0  20 6e 6f 74 20 65 6e 6f  75 67 68 20 66 72 65 65  | not enough free|
000116b0  20 6d 65 6d 6f 72 79 20  61 76 61 69 6c 61 62 6c  | memory availabl|
000116c0  65 20 74 6f 20 6d 65 72  67 65 20 74 68 65 20 73  |e to merge the s|
000116d0  70 72 69 74 65 2e 20 4e  65 65 64 20 22 2b c3 28  |prite. Need "+.(|
000116e0  28 59 79 25 29 81 31 30  32 34 29 2b 22 4b 2e 22  |(Yy%).1024)+"K."|
000116f0  29 8b 21 28 41 25 28 57  4a 25 29 29 3d 5a 25 28  |).!(A%(WJ%))=Z%(|
00011700  57 4a 25 29 0d 75 91 0c  cd 3a e7 4b 25 3d a3 e1  |WJ%).u...:.K%=..|
00011710  0d 75 92 2c 79 69 25 3d  2d 6f 79 25 2b 64 4a 25  |.u.,yi%=-oy%+dJ%|
00011720  2d 6e 25 2d 54 5f 25 2b  59 75 25 2d 74 25 3a e7  |-n%-T_%+Yu%-t%:.|
00011730  4b 75 25 79 69 25 3d 79  69 25 2a 32 0d 75 93 1a  |Ku%yi%=yi%*2.u..|
00011740  63 75 25 3d 30 3a c8 99  26 34 30 36 63 30 3a e7  |cu%=0:..&406c0:.|
00011750  6f 79 25 3c 30 8c 0d 75  94 49 e3 68 79 25 3d 6f  |oy%<0..u.I.hy%=o|
00011760  79 25 b8 2d 31 3a c8 99  26 32 30 30 32 65 2c 34  |y%.-1:..&2002e,4|
00011770  35 2b 32 35 36 2c 41 25  28 60 25 29 2c 4d 24 2c  |5+256,A%(`%),M$,|
00011780  30 3a 63 75 25 2b 3d 31  3a c8 99 26 34 30 36 63  |0:cu%+=1:..&406c|
00011790  34 2c 63 75 25 2f 79 69  25 2a 31 30 30 3a ed 0d  |4,cu%/yi%*100:..|
000117a0  75 95 0e cd 3a e7 64 4a  25 3e 6e 25 8c 0d 75 96  |u...:.dJ%>n%..u.|
000117b0  50 e3 68 79 25 3d 6e 25  b8 64 4a 25 2d 31 3a c8  |P.hy%=n%.dJ%-1:.|
000117c0  99 26 32 30 30 32 65 2c  34 35 2b 32 35 36 2c 41  |.&2002e,45+256,A|
000117d0  25 28 60 25 29 2c 4d 24  2c 6e 25 2d 6f 79 25 3a  |%(`%),M$,n%-oy%:|
000117e0  63 75 25 2b 3d 31 3a c8  99 26 34 30 36 63 34 2c  |cu%+=1:..&406c4,|
000117f0  63 75 25 2f 79 69 25 2a  31 30 30 3a ed 0d 75 97  |cu%/yi%*100:..u.|
00011800  0d cd 3a e7 54 5f 25 3c  30 8c 0d 75 98 49 e3 68  |..:.T_%<0..u.I.h|
00011810  79 25 3d 54 5f 25 b8 2d  31 3a c8 99 26 32 30 30  |y%=T_%.-1:..&200|
00011820  32 65 2c 33 31 2b 32 35  36 2c 41 25 28 60 25 29  |2e,31+256,A%(`%)|
00011830  2c 4d 24 2c 30 3a 63 75  25 2b 3d 31 3a c8 99 26  |,M$,0:cu%+=1:..&|
00011840  34 30 36 63 34 2c 63 75  25 2f 79 69 25 2a 31 30  |406c4,cu%/yi%*10|
00011850  30 3a ed 0d 75 99 0e cd  3a e7 59 75 25 3e 74 25  |0:..u...:.Yu%>t%|
00011860  8c 0d 75 9a 50 e3 68 79  25 3d 74 25 b8 59 75 25  |..u.P.hy%=t%.Yu%|
00011870  2d 31 3a c8 99 26 32 30  30 32 65 2c 33 31 2b 32  |-1:..&2002e,31+2|
00011880  35 36 2c 41 25 28 60 25  29 2c 4d 24 2c 74 25 2d  |56,A%(`%),M$,t%-|
00011890  54 5f 25 3a 63 75 25 2b  3d 31 3a c8 99 26 34 30  |T_%:cu%+=1:..&40|
000118a0  36 63 34 2c 63 75 25 2f  79 69 25 2a 31 30 30 3a  |6c4,cu%/yi%*100:|
000118b0  ed 0d 75 9b 0b cd 3a e7  4b 75 25 8c 0d 75 9c 0b  |..u...:.Ku%..u..|
000118c0  e7 6f 79 25 3c 30 8c 0d  75 9d 4a e3 68 79 25 3d  |.oy%<0..u.J.hy%=|
000118d0  6f 79 25 b8 2d 31 3a c8  99 26 32 30 30 32 65 2c  |oy%.-1:..&2002e,|
000118e0  34 35 2b 32 35 36 2c 41  25 28 57 4a 25 29 2c 4d  |45+256,A%(WJ%),M|
000118f0  24 2c 30 3a 63 75 25 2b  3d 31 3a c8 99 26 34 30  |$,0:cu%+=1:..&40|
00011900  36 63 34 2c 63 75 25 2f  79 69 25 2a 31 30 30 3a  |6c4,cu%/yi%*100:|
00011910  ed 0d 75 9e 0e cd 3a e7  64 4a 25 3e 6e 25 8c 0d  |..u...:.dJ%>n%..|
00011920  75 9f 51 e3 68 79 25 3d  6e 25 b8 64 4a 25 2d 31  |u.Q.hy%=n%.dJ%-1|
00011930  3a c8 99 26 32 30 30 32  65 2c 34 35 2b 32 35 36  |:..&2002e,45+256|
00011940  2c 41 25 28 57 4a 25 29  2c 4d 24 2c 6e 25 2d 6f  |,A%(WJ%),M$,n%-o|
00011950  79 25 3a 63 75 25 2b 3d  31 3a c8 99 26 34 30 36  |y%:cu%+=1:..&406|
00011960  63 34 2c 63 75 25 2f 79  69 25 2a 31 30 30 3a ed  |c4,cu%/yi%*100:.|
00011970  0d 75 a0 0d cd 3a e7 54  5f 25 3c 30 8c 0d 75 a1  |.u...:.T_%<0..u.|
00011980  4a e3 68 79 25 3d 54 5f  25 b8 2d 31 3a c8 99 26  |J.hy%=T_%.-1:..&|
00011990  32 30 30 32 65 2c 33 31  2b 32 35 36 2c 41 25 28  |2002e,31+256,A%(|
000119a0  57 4a 25 29 2c 4d 24 2c  30 3a 63 75 25 2b 3d 31  |WJ%),M$,0:cu%+=1|
000119b0  3a c8 99 26 34 30 36 63  34 2c 63 75 25 2f 79 69  |:..&406c4,cu%/yi|
000119c0  25 2a 31 30 30 3a ed 0d  75 a2 0e cd 3a e7 59 75  |%*100:..u...:.Yu|
000119d0  25 3e 74 25 8c 0d 75 a3  51 e3 68 79 25 3d 74 25  |%>t%..u.Q.hy%=t%|
000119e0  b8 59 75 25 2d 31 3a c8  99 26 32 30 30 32 65 2c  |.Yu%-1:..&2002e,|
000119f0  33 31 2b 32 35 36 2c 41  25 28 57 4a 25 29 2c 4d  |31+256,A%(WJ%),M|
00011a00  24 2c 74 25 2d 54 5f 25  3a 63 75 25 2b 3d 31 3a  |$,t%-T_%:cu%+=1:|
00011a10  c8 99 26 34 30 36 63 34  2c 63 75 25 2f 79 69 25  |..&406c4,cu%/yi%|
00011a20  2a 31 30 30 3a ed 0d 75  a4 05 cd 0d 75 a5 78 cd  |*100:..u....u.x.|
00011a30  3a c8 99 26 34 30 36 63  34 2c 31 30 30 3a c8 99  |:..&406c4,100:..|
00011a40  34 36 2c 36 30 2b 32 35  36 2c 41 25 28 60 25 29  |46,60+256,A%(`%)|
00011a50  2c 4d 24 2c 30 b8 4a 2c  47 2c 42 2c 50 3a c8 99  |,M$,0.J,G,B,P:..|
00011a60  34 36 2c 33 34 2b 32 35  36 2c 41 25 28 4e 79 25  |46,34+256,A%(Ny%|
00011a70  29 2c 4e 24 2c 28 5a 5f  25 2d 6f 79 25 29 2a 52  |),N$,(Z_%-oy%)*R|
00011a80  25 2c 28 75 79 25 2d 54  5f 25 29 2a 56 25 2c 31  |%,(uy%-T_%)*V%,1|
00011a90  3a c8 99 34 36 2c 4a 2c  47 2c 42 2c 50 3a e7 4b  |:..46,J,G,B,P:.K|
00011aa0  75 25 8c 0d 75 a6 88 c8  99 34 36 2c 36 30 2b 32  |u%..u....46,60+2|
00011ab0  35 36 2c 41 25 28 57 4a  25 29 2c 4d 24 2c 30 b8  |56,A%(WJ%),M$,0.|
00011ac0  4a 2c 47 2c 42 2c 50 3a  7a 25 21 30 3d 31 3a 7a  |J,G,B,P:z%!0=1:z|
00011ad0  25 21 34 3d 31 3a 7a 25  21 38 3d 31 3a 7a 25 21  |%!4=1:z%!8=1:z%!|
00011ae0  31 32 3d 31 3a c8 99 34  36 2c 35 32 2b 32 35 36  |12=1:..46,52+256|
00011af0  2c 41 25 28 4e 79 25 29  2c 4e 24 2c 28 5a 5f 25  |,A%(Ny%),N$,(Z_%|
00011b00  2d 6f 79 25 29 2a 52 25  2c 28 75 79 25 2d 54 5f  |-oy%)*R%,(uy%-T_|
00011b10  25 29 2a 56 25 2c 31 2c  7a 25 2c 48 6c 25 3a c8  |%)*V%,1,z%,Hl%:.|
00011b20  99 34 36 2c 4a 2c 47 2c  42 2c 50 0d 75 a7 3a cd  |.46,J,G,B,P.u.:.|
00011b30  3a c8 99 26 34 30 36 63  31 3a c8 99 74 4a 25 2c  |:..&406c1:..tJ%,|
00011b40  4e 6c 25 2c 41 25 28 60  25 29 2c 4d 24 b8 2c 2c  |Nl%,A%(`%),M$.,,|
00011b50  2c 6e 25 2c 74 25 3a f2  4d 28 48 5f 25 29 3a c8  |,n%,t%:.M(H_%):.|
00011b60  8e 4b 75 25 ca 0d 75 a8  4f c9 a3 3a f2 4c 28 6b  |.Ku%..u.O..:.L(k|
00011b70  25 2c a4 4a 28 6e 25 2a  52 25 29 2c a4 4a 28 74  |%,.J(n%*R%),.J(t|
00011b80  25 2a 56 25 29 29 3a f2  4e 28 6b 25 2c 22 50 72  |%*V%)):.N(k%,"Pr|
00011b90  6f 63 65 73 73 20 27 22  2b 58 24 2b 22 27 20 28  |ocess '"+X$+"' (|
00011ba0  22 2b 4d 24 2b 22 29 22  29 3a e7 55 75 25 f2 77  |"+M$+")"):.Uu%.w|
00011bb0  28 6b 25 29 0d 75 a9 79  c9 b9 3a f2 4c 28 51 5f  |(k%).u.y..:.L(Q_|
00011bc0  25 2c a4 4a 28 6e 25 2a  52 25 29 2c a4 4a 28 74  |%,.J(n%*R%),.J(t|
00011bd0  25 2a 56 25 29 29 3a f2  4c 28 77 5f 25 2c a4 4a  |%*V%)):.L(w_%,.J|
00011be0  28 6e 25 2a 52 25 29 2c  a4 4a 28 74 25 2a 56 25  |(n%*R%),.J(t%*V%|
00011bf0  29 29 3a f2 44 28 69 79  25 29 3a f2 4e 28 51 5f  |)):.D(iy%):.N(Q_|
00011c00  25 2c 22 4f 72 69 67 69  6e 61 6c 20 69 6d 61 67  |%,"Original imag|
00011c10  65 22 29 3a f2 4e 28 77  5f 25 2c 22 50 72 6f 63  |e"):.N(w_%,"Proc|
00011c20  65 73 73 65 64 20 69 6d  61 67 65 22 29 0d 75 aa  |essed image").u.|
00011c30  14 cb 3a 4b 25 3d a4 41  28 31 2c 4e 79 25 29 3a  |..:K%=.A(1,Ny%):|
00011c40  e1 0d 75 ab 14 dd f2 42  6c 3a e7 a4 50 28 30 29  |..u....Bl:..P(0)|
00011c50  3d 59 69 25 e1 0d 75 ac  65 e7 6e 6f 25 f2 58 28  |=Yi%..u.e.no%.X(|
00011c60  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 4f 70  |"Message from Op|
00011c70  74 69 63 61 6c 22 2c 22  59 6f 75 20 63 61 6e 6e  |tical","You cann|
00011c80  6f 74 20 63 68 61 6e 67  65 20 73 70 65 65 63 68  |ot change speech|
00011c90  20 73 79 6e 74 68 65 73  69 7a 65 72 20 77 68 69  | synthesizer whi|
00011ca0  6c 73 74 20 4f 70 74 69  63 61 6c 20 69 73 20 74  |lst Optical is t|
00011cb0  61 6c 6b 69 6e 67 22 29  3a e1 0d 75 ad 27 f2 42  |alking"):..u.'.B|
00011cc0  28 65 6e 25 2c 59 69 25  29 3a 59 69 25 3d a4 50  |(en%,Yi%):Yi%=.P|
00011cd0  28 30 29 3a f2 42 28 65  6e 25 2c 59 69 25 29 3a  |(0):.B(en%,Yi%):|
00011ce0  e1 0d 75 ae 93 dd f2 46  5f 3a f2 58 28 22 4d 65  |..u....F_:.X("Me|
00011cf0  73 73 61 67 65 20 66 72  6f 6d 20 4f 70 74 69 63  |ssage from Optic|
00011d00  61 6c 22 2c 22 54 65 78  74 20 63 61 6e 6e 6f 74  |al","Text cannot|
00011d10  20 62 65 20 72 65 61 64  20 6f 75 74 20 77 69 74  | be read out wit|
00011d20  68 20 74 68 69 73 20 76  65 72 73 69 6f 6e 20 6f  |h this version o|
00011d30  66 20 4f 70 74 69 63 61  6c 2e 20 46 6f 72 20 61  |f Optical. For a|
00011d40  20 66 75 6c 6c 20 76 65  72 73 69 6f 6e 20 70 6c  | full version pl|
00011d50  65 61 73 65 20 63 6f 6e  74 61 63 74 20 4e 65 75  |ease contact Neu|
00011d60  72 6f 74 72 6f 6e 20 53  6f 66 74 77 61 72 65 2e  |rotron Software.|
00011d70  22 29 3a e1 0d 75 af f9  dd f2 71 75 3a 46 42 25  |"):..u....qu:FB%|
00011d80  3d 33 32 3a 43 6f 25 3d  33 32 3a 77 42 25 3d 33  |=32:Co%=32:wB%=3|
00011d90  32 3a de 71 6e 25 32 38  2b 20 28 46 42 25 2b 34  |2:.qn%28+ (FB%+4|
00011da0  29 2a 33 32 3a de 66 69  25 32 38 2b 20 28 43 6f  |)*32:.fi%28+ (Co|
00011db0  25 2b 34 29 2a 33 32 3a  de 42 6e 25 32 38 2b 20  |%+4)*32:.Bn%28+ |
00011dc0  28 77 42 25 2b 34 29 2a  31 32 3a de 6e 41 25 20  |(wB%+4)*12:.nA% |
00011dd0  28 77 42 25 2b 34 29 2a  31 32 3a de 48 41 25 20  |(wB%+4)*12:.HA% |
00011de0  28 46 42 25 2b 34 29 2a  33 32 3a de 71 5a 25 20  |(FB%+4)*32:.qZ% |
00011df0  28 43 6f 25 2b 34 29 2a  33 32 3a de 4a 24 28 46  |(Co%+4)*32:.J$(F|
00011e00  42 25 29 3a de 46 24 28  43 6f 25 29 3a de 43 25  |B%):.F$(Co%):.C%|
00011e10  28 77 42 25 29 3a de 46  25 28 77 42 25 29 3a de  |(wB%):.F%(wB%):.|
00011e20  54 79 25 33 32 3a f2 53  28 57 25 2c 33 36 2c 31  |Ty%32:.S(W%,36,1|
00011e30  29 3a f2 53 28 57 25 2c  31 37 2c 30 29 3a f2 53  |):.S(W%,17,0):.S|
00011e40  28 57 25 2c 33 38 2c 31  29 3a f2 53 28 57 25 2c  |(W%,38,1):.S(W%,|
00011e50  31 39 2c 30 29 3a f2 53  28 57 25 2c 33 39 2c 31  |19,0):.S(W%,39,1|
00011e60  29 3a f2 53 28 57 25 2c  31 30 2c 31 29 0d 75 b0  |):.S(W%,10,1).u.|
00011e70  99 f2 41 28 57 25 2c 32  32 2c 22 35 30 22 29 3a  |..A(W%,22,"50"):|
00011e80  f2 41 28 57 25 2c 32 33  2c 22 35 30 22 29 3a 75  |.A(W%,23,"50"):u|
00011e90  6e 25 3d 33 32 2a 31 30  32 34 2b 31 30 32 34 3a  |n%=32*1024+1024:|
00011ea0  74 6f 25 3d b9 3a 46 69  25 3d a3 3a 6c 69 25 3d  |to%=.:Fi%=.:li%=|
00011eb0  a3 3a 6f 6f 25 3d a3 3a  56 61 25 3d 30 3a 5a 72  |.:oo%=.:Va%=0:Zr|
00011ec0  25 3d 30 3a f2 4b 61 3a  70 6c 25 3d 32 35 36 3a  |%=0:.Ka:pl%=256:|
00011ed0  78 4a 25 3d 32 35 36 3a  c8 99 26 32 30 30 33 39  |xJ%=256:..&20039|
00011ee0  2c 2c 22 53 63 61 6e 6e  65 72 5f 4e 61 6d 65 73  |,,"Scanner_Names|
00011ef0  22 b8 3b 77 79 25 3a e7  28 77 79 25 80 31 29 3d  |".;wy%:.(wy%.1)=|
00011f00  a3 f2 73 5f 3a e1 0d 75  b1 2f c8 99 26 32 30 30  |..s_:..u./..&200|
00011f10  33 39 2c 2c 22 53 63 61  6e 5f 53 74 61 72 74 22  |39,,"Scan_Start"|
00011f20  b8 3b 77 79 25 3a e7 28  77 79 25 80 31 29 3d a3  |.;wy%:.(wy%.1)=.|
00011f30  f2 73 5f 3a e1 0d 75 b2  05 e1 0d 75 b3 32 dd f2  |.s_:..u....u.2..|
00011f40  6c 3a ea 76 4a 25 3a 4b  75 25 3d a4 53 28 69 79  |l:.vJ%:Ku%=.S(iy|
00011f50  25 29 3a e7 28 69 5f 25  3c 3e 30 84 46 69 25 29  |%):.(i_%<>0.Fi%)|
00011f60  80 79 6c 25 3c 3e 30 f2  49 79 3a e1 0d 75 b4 2a  |.yl%<>0.Iy:..u.*|
00011f70  e7 79 6c 25 8c c8 99 26  34 30 30 64 34 2c 2c 4c  |.yl%...&400d4,,L|
00011f80  6f 25 2c 79 25 2d 36 34  2c 31 38 34 3a 4a 79 25  |o%,y%-64,184:Jy%|
00011f90  3d 4c 6f 25 3a e1 0d 75  b5 17 f2 57 75 3a 7a 79  |=Lo%:..u...Wu:zy|
00011fa0  25 3d a3 3a e7 6c 79 25  3c 78 4a 25 8c 0d 75 b6  |%=.:.ly%<xJ%..u.|
00011fb0  34 c8 99 26 32 30 30 33  39 2c 2c 22 53 63 61 6e  |4..&20039,,"Scan|
00011fc0  6e 65 72 5f 4e 61 6d 65  73 22 b8 3b 77 79 25 3a  |ner_Names".;wy%:|
00011fd0  e7 28 77 79 25 80 31 29  f2 65 5f 3a 7a 79 25 3d  |.(wy%.1).e_:zy%=|
00011fe0  b9 0d 75 b7 0d e7 53 60  25 7a 79 25 3d b9 0d 75  |..u...S`%zy%=..u|
00011ff0  b8 11 76 4a 25 3d a4 5a  28 57 25 2c 33 38 29 0d  |..vJ%=.Z(W%,38).|
00012000  75 b9 0b cd 3a e7 7a 79  25 e1 0d 75 ba 1c e7 6c  |u...:.zy%..u...l|
00012010  79 25 3c 78 4a 25 e7 6c  69 25 80 76 4a 25 3c 3e  |y%<xJ%.li%.vJ%<>|
00012020  30 f2 62 4a 3a e1 0d 75  bb 36 e7 28 5a 25 28 60  |0.bJ:..u.6.(Z%(`|
00012030  25 29 3c 3d 31 30 32 34  80 5a 25 28 57 4a 25 29  |%)<=1024.Z%(WJ%)|
00012040  3c 3d 31 30 32 34 80 5a  25 28 4e 79 25 29 3c 3d  |<=1024.Z%(Ny%)<=|
00012050  31 30 32 34 29 84 61 5f  25 3d b9 8c 0d 75 bc 13  |1024).a_%=...u..|
00012060  f2 5a 28 57 25 2c 33 36  29 3a 5a 75 25 3d a3 0d  |.Z(W%,36):Zu%=..|
00012070  75 bd 1d cc 3a f2 46 28  57 25 2c 33 36 29 3a 5a  |u...:.F(W%,36):Z|
00012080  75 25 3d a4 5a 28 57 25  2c 33 36 29 0d 75 be 15  |u%=.Z(W%,36).u..|
00012090  cd 3a e7 6f 6f 25 3d a3  f2 73 5f 3a e7 6f 6b 25  |.:.oo%=..s_:.ok%|
000120a0  e1 0d 75 bf 1c f2 44 28  57 25 29 3a e7 6c 79 25  |..u...D(W%):.ly%|
000120b0  3c 78 4a 25 80 46 69 25  80 58 6f 25 8c 0d 75 c0  |<xJ%.Fi%.Xo%..u.|
000120c0  37 f2 5a 28 57 25 2c 32  38 29 3a f2 5a 28 57 25  |7.Z(W%,28):.Z(W%|
000120d0  2c 33 31 29 3a f2 5a 28  57 25 2c 33 32 29 3a f2  |,31):.Z(W%,32):.|
000120e0  46 28 57 25 2c 34 33 29  3a f2 53 28 57 25 2c 34  |F(W%,43):.S(W%,4|
000120f0  33 2c 31 29 0d 75 c1 39  cc 3a f2 46 28 57 25 2c  |3,1).u.9.:.F(W%,|
00012100  32 38 29 3a f2 46 28 57  25 2c 33 31 29 3a f2 46  |28):.F(W%,31):.F|
00012110  28 57 25 2c 33 32 29 3a  f2 5a 28 57 25 2c 34 33  |(W%,32):.Z(W%,43|
00012120  29 3a f2 53 28 57 25 2c  34 33 2c 30 29 0d 75 c2  |):.S(W%,43,0).u.|
00012130  0b cd 3a f2 61 79 3a e1  0d 75 c3 1f dd f2 73 5f  |..:.ay:..u....s_|
00012140  3a ee 85 ea ef 32 36 2c  34 3a f1 f6 24 3b 9e 3a  |:....26,4:..$;.:|
00012150  6d 61 25 3d b9 3a e0 0d  75 c4 3e 6f 6b 25 3d a3  |ma%=.:..u.>ok%=.|
00012160  3a c8 99 26 32 30 30 33  39 2c 2c 22 53 63 61 6e  |:..&20039,,"Scan|
00012170  6e 65 72 5f 4e 61 6d 65  73 22 b8 3b 77 79 25 3a  |ner_Names".;wy%:|
00012180  e7 28 77 79 25 80 31 29  70 6c 25 3d 32 35 36 8b  |.(wy%.1)pl%=256.|
00012190  70 6c 25 3d 30 0d 75 c5  35 c8 99 26 32 30 30 33  |pl%=0.u.5..&2003|
000121a0  39 2c 2c 22 53 63 61 6e  5f 53 74 61 72 74 22 b8  |9,,"Scan_Start".|
000121b0  3b 77 79 25 3a e7 28 77  79 25 80 31 29 78 4a 25  |;wy%:.(wy%.1)xJ%|
000121c0  3d 32 35 36 8b 78 4a 25  3d 30 0d 75 c6 19 e7 70  |=256.xJ%=0.u...p|
000121d0  6c 25 3d 32 35 36 80 78  4a 25 3d 32 35 36 f2 65  |l%=256.xJ%=256.e|
000121e0  5f 3a e1 0d 75 c7 10 e7  70 6c 25 3c 3e 32 35 36  |_:..u...pl%<>256|
000121f0  f2 75 61 0d 75 c8 19 e7  70 6c 25 3d 32 35 36 80  |.ua.u...pl%=256.|
00012200  78 4a 25 3d 32 35 36 f2  65 5f 3a e1 0d 75 c9 1a  |xJ%=256.e_:..u..|
00012210  e7 78 4a 25 3c 3e 32 35  36 80 70 6c 25 3d 32 35  |.xJ%<>256.pl%=25|
00012220  36 f2 43 75 3a e1 0d 75  ca 05 e1 0d 75 cb 17 dd  |6.Cu:..u....u...|
00012230  f2 4b 5f 3a e7 6c 79 25  3e 3d 78 4a 25 f2 69 69  |.K_:.ly%>=xJ%.ii|
00012240  3a e1 0d 75 cc 12 e7 6c  79 25 3e 3d 70 6c 25 f2  |:..u...ly%>=pl%.|
00012250  74 75 3a e1 0d 75 cd 05  e1 0d 75 ce 7f dd f2 74  |tu:..u....u....t|
00012260  75 3a ea 41 5a 25 2c 65  69 25 3a c8 99 26 34 31  |u:.AZ%,ei%:..&41|
00012270  64 63 31 2c 6c 79 25 b8  2c 79 42 25 2c 49 75 25  |dc1,ly%.,yB%,Iu%|
00012280  2c 55 6e 25 2c 5f 75 25  3a 58 6c 25 3d 55 6e 25  |,Un%,_u%:Xl%=Un%|
00012290  21 30 3a 43 75 25 3d 55  6e 25 21 34 3a 6d 6c 25  |!0:Cu%=Un%!4:ml%|
000122a0  3d 55 6e 25 21 38 3a 74  6c 25 3d 55 6e 25 21 31  |=Un%!8:tl%=Un%!1|
000122b0  32 3a 46 6b 25 3d 5f 75  25 80 28 31 3c 3c 32 29  |2:Fk%=_u%.(1<<2)|
000122c0  3a e7 46 6b 25 f2 46 28  57 25 2c 31 37 29 8b f2  |:.Fk%.F(W%,17)..|
000122d0  5a 28 57 25 2c 31 37 29  0d 75 cf 86 f2 5a 28 57  |Z(W%,17).u...Z(W|
000122e0  25 2c 31 38 29 3a f2 5a  28 57 25 2c 31 39 29 3a  |%,18):.Z(W%,19):|
000122f0  f2 5a 28 57 25 2c 32 30  29 3a f2 5a 28 57 25 2c  |.Z(W%,20):.Z(W%,|
00012300  32 31 29 3a f2 5a 28 57  25 2c 32 32 29 3a f2 5a  |21):.Z(W%,22):.Z|
00012310  28 57 25 2c 34 37 29 3a  f2 5a 28 57 25 2c 34 38  |(W%,47):.Z(W%,48|
00012320  29 3a f2 5a 28 57 25 2c  32 33 29 3a f2 5a 28 57  |):.Z(W%,23):.Z(W|
00012330  25 2c 32 34 29 3a f2 5a  28 57 25 2c 34 39 29 3a  |%,24):.Z(W%,49):|
00012340  f2 5a 28 57 25 2c 35 30  29 3a 57 42 25 3d 5f 75  |.Z(W%,50):WB%=_u|
00012350  25 80 28 31 3c 3c 33 29  3a e7 57 42 25 8c 0d 75  |%.(1<<3):.WB%..u|
00012360  d0 2f f2 46 28 57 25 2c  31 38 29 3a f2 46 28 57  |./.F(W%,18):.F(W|
00012370  25 2c 32 31 29 3a f2 53  28 57 25 2c 31 38 2c 31  |%,21):.S(W%,18,1|
00012380  29 3a f2 53 28 57 25 2c  32 31 2c 31 29 0d 75 d1  |):.S(W%,21,1).u.|
00012390  11 cc 3a f2 53 28 57 25  2c 32 30 2c 31 29 0d 75  |..:.S(W%,20,1).u|
000123a0  d2 1b cd 3a 62 69 25 3d  5f 75 25 80 28 31 3c 3c  |...:bi%=_u%.(1<<|
000123b0  32 33 29 3a e7 62 69 25  8c 0d 75 d3 7f f2 46 28  |23):.bi%..u...F(|
000123c0  57 25 2c 31 38 29 3a f2  46 28 57 25 2c 31 39 29  |W%,18):.F(W%,19)|
000123d0  3a f2 46 28 57 25 2c 32  30 29 3a f2 46 28 57 25  |:.F(W%,20):.F(W%|
000123e0  2c 32 32 29 3a f2 46 28  57 25 2c 34 37 29 3a f2  |,22):.F(W%,47):.|
000123f0  46 28 57 25 2c 34 38 29  3a f2 46 28 57 25 2c 32  |F(W%,48):.F(W%,2|
00012400  33 29 3a f2 46 28 57 25  2c 32 34 29 3a f2 46 28  |3):.F(W%,24):.F(|
00012410  57 25 2c 34 39 29 3a f2  46 28 57 25 2c 35 30 29  |W%,49):.F(W%,50)|
00012420  3a f2 53 28 57 25 2c 31  38 2c 31 29 3a f2 53 28  |:.S(W%,18,1):.S(|
00012430  57 25 2c 31 39 2c 31 29  0d 75 d4 2c cd 3a 72 5a  |W%,19,1).u.,.:rZ|
00012440  25 3d 5f 75 25 80 28 31  3c 3c 38 29 3a 79 6f 25  |%=_u%.(1<<8):yo%|
00012450  3d 5f 75 25 80 28 31 3c  3c 31 37 29 3a e7 79 6f  |=_u%.(1<<17):.yo|
00012460  25 f2 7a 5f 0d 75 d5 1b  49 6b 25 3d 5f 75 25 80  |%.z_.u..Ik%=_u%.|
00012470  28 31 3c 3c 31 39 29 3a  e7 49 6b 25 f2 70 4a 0d  |(1<<19):.Ik%.pJ.|
00012480  75 d6 2b 6c 69 25 3d 5f  75 25 80 28 31 3c 3c 32  |u.+li%=_u%.(1<<2|
00012490  31 29 3a e7 6c 69 25 f2  46 28 57 25 2c 33 38 29  |1):.li%.F(W%,38)|
000124a0  8b f2 5a 28 57 25 2c 33  38 29 0d 75 d7 e4 63 5f  |..Z(W%,38).u..c_|
000124b0  25 3d 30 3a 5a 24 3d 22  4d 6f 64 65 73 3a 22 3a  |%=0:Z$="Modes:":|
000124c0  c8 95 21 28 49 75 25 2b  33 32 2a 63 5f 25 29 3c  |..!(Iu%+32*c_%)<|
000124d0  3e 30 3a 46 24 28 63 5f  25 29 3d a4 46 28 49 75  |>0:F$(c_%)=.F(Iu|
000124e0  25 21 28 34 2b 33 32 2a  63 5f 25 29 2b 49 75 25  |%!(4+32*c_%)+Iu%|
000124f0  29 3a 5a 24 2b 3d 22 7c  22 2b 46 24 28 63 5f 25  |):Z$+="|"+F$(c_%|
00012500  29 3a 63 5f 25 2b 3d 31  3a ce 3a 63 65 25 3d 63  |):c_%+=1:.:ce%=c|
00012510  5f 25 3a f2 63 79 28 66  69 25 2c 5a 24 2c 71 5a  |_%:.cy(fi%,Z$,qZ|
00012520  25 29 3a 6e 4f 25 3d a3  3a 65 69 25 3d a3 3a 63  |%):nO%=.:ei%=.:c|
00012530  5f 25 3d 30 3a c8 95 21  28 49 75 25 2b 33 32 2a  |_%=0:..!(Iu%+32*|
00012540  63 5f 25 29 3c 3e 30 3a  57 6e 25 3d 49 75 25 21  |c_%)<>0:Wn%=Iu%!|
00012550  28 32 34 2b 33 32 2a 63  5f 25 29 2b 49 75 25 3a  |(24+32*c_%)+Iu%:|
00012560  75 6f 25 3d a3 3a 72 25  3d 30 3a c8 95 3f 28 57  |uo%=.:r%=0:..?(W|
00012570  6e 25 2b 72 25 29 3c 3e  30 80 75 6f 25 3d a3 3a  |n%+r%)<>0.uo%=.:|
00012580  e7 3f 28 57 6e 25 2b 72  25 29 3c 3d 34 8c 0d 75  |.?(Wn%+r%)<=4..u|
00012590  d8 11 75 6f 25 3d b9 3a  e7 6e 4f 25 3d a3 8c 0d  |..uo%=.:.nO%=...|
000125a0  75 d9 11 6e 4f 25 3d b9  3a 41 5a 25 3d 63 5f 25  |u..nO%=.:AZ%=c_%|
000125b0  0d 75 da 05 cd 0d 75 db  15 cd 3a 72 25 2b 3d 31  |.u....u...:r%+=1|
000125c0  3a ce 3a e7 75 6f 25 3d  a3 8c 0d 75 dc 1f f2 55  |:.:.uo%=...u...U|
000125d0  28 66 69 25 2c 63 5f 25  2b 31 29 3a e7 63 5f 25  |(fi%,c_%+1):.c_%|
000125e0  3d 60 4a 25 65 69 25 3d  b9 0d 75 dd 16 cd 3a 63  |=`J%ei%=..u...:c|
000125f0  5f 25 2b 3d 31 3a ce 3a  e7 6e 4f 25 3d a3 8c 0d  |_%+=1:.:.nO%=...|
00012600  75 de 30 f2 5a 28 57 25  2c 33 34 29 3a 60 4a 25  |u.0.Z(W%,34):`J%|
00012610  3d 30 3a f2 41 28 57 25  2c 33 2c 22 4e 6f 20 73  |=0:.A(W%,3,"No s|
00012620  75 69 74 61 62 6c 65 20  6d 6f 64 65 73 22 29 0d  |uitable modes").|
00012630  75 df 24 cc 3a f2 46 28  57 25 2c 33 34 29 3a e7  |u.$.:.F(W%,34):.|
00012640  65 69 25 84 60 4a 25 3e  3d 63 5f 25 60 4a 25 3d  |ei%.`J%>=c_%`J%=|
00012650  41 5a 25 0d 75 e0 22 f2  42 28 66 69 25 2c 60 4a  |AZ%.u.".B(fi%,`J|
00012660  25 2b 31 29 3a f2 41 28  57 25 2c 33 2c 46 24 28  |%+1):.A(W%,3,F$(|
00012670  60 4a 25 29 29 0d 75 e1  0b cd 3a e7 74 6f 25 8c  |`J%)).u...:.to%.|
00012680  0d 75 e2 21 63 79 25 3d  58 6c 25 3a e7 43 75 25  |.u.!cy%=Xl%:.Cu%|
00012690  3d 2d 31 52 79 25 3d a4  59 8b 52 79 25 3d 43 75  |=-1Ry%=.Y.Ry%=Cu|
000126a0  25 0d 75 e3 26 f2 61 79  3a e7 a4 4d 28 57 25 2c  |%.u.&.ay:..M(W%,|
000126b0  32 38 29 3d 22 49 6e 63  68 65 73 22 56 4a 25 3d  |28)="Inches"VJ%=|
000126c0  b9 8b 56 4a 25 3d a3 0d  75 e4 09 e7 56 4a 25 8c  |..VJ%=..u...VJ%.|
000126d0  0d 75 e5 41 f2 41 28 57  25 2c 33 31 2c c0 c3 28  |.u.A.A(W%,31,..(|
000126e0  a4 57 28 63 79 25 2f 37  32 30 30 30 29 29 2c 37  |.W(cy%/72000)),7|
000126f0  29 29 3a f2 41 28 57 25  2c 33 32 2c c0 c3 28 a4  |)):.A(W%,32,..(.|
00012700  57 28 52 79 25 2f 37 32  30 30 30 29 29 2c 37 29  |W(Ry%/72000)),7)|
00012710  29 0d 75 e6 47 cc 3a f2  41 28 57 25 2c 33 31 2c  |).u.G.:.A(W%,31,|
00012720  c0 c3 28 a4 57 28 63 79  25 2f 37 32 30 30 30 2a  |..(.W(cy%/72000*|
00012730  53 29 29 2c 37 29 29 3a  f2 41 28 57 25 2c 33 32  |S)),7)):.A(W%,32|
00012740  2c c0 c3 28 a4 57 28 52  79 25 2f 37 32 30 30 30  |,..(.W(Ry%/72000|
00012750  2a 53 29 29 2c 37 29 29  0d 75 e7 08 cd 3a f2 78  |*S)),7)).u...:.x|
00012760  0d 75 e8 07 cd 3a e1 0d  75 e9 26 dd f2 58 5f 3a  |.u...:..u.&..X_:|
00012770  ea 69 69 25 2c 63 5f 25  2c 67 6c 25 2c 71 25 2c  |.ii%,c_%,gl%,q%,|
00012780  72 25 3a e7 6c 79 25 3e  3d 78 4a 25 e1 0d 75 ea  |r%:.ly%>=xJ%..u.|
00012790  27 c8 99 26 34 31 64 63  31 2c 6c 79 25 b8 2c 79  |'..&41dc1,ly%.,y|
000127a0  42 25 2c 49 75 25 2c 55  6e 25 2c 5f 75 25 3a e7  |B%,Iu%,Un%,_u%:.|
000127b0  57 42 25 8c 0d 75 eb 2f  f2 46 28 57 25 2c 31 38  |WB%..u./.F(W%,18|
000127c0  29 3a f2 46 28 57 25 2c  32 31 29 3a f2 53 28 57  |):.F(W%,21):.S(W|
000127d0  25 2c 31 38 2c 31 29 3a  f2 53 28 57 25 2c 32 31  |%,18,1):.S(W%,21|
000127e0  2c 31 29 0d 75 ec 11 cc  3a f2 53 28 57 25 2c 32  |,1).u...:.S(W%,2|
000127f0  30 2c 31 29 0d 75 ed 0b  cd 3a e7 62 69 25 8c 0d  |0,1).u...:.bi%..|
00012800  75 ee 7f f2 46 28 57 25  2c 31 38 29 3a f2 46 28  |u...F(W%,18):.F(|
00012810  57 25 2c 31 39 29 3a f2  46 28 57 25 2c 32 30 29  |W%,19):.F(W%,20)|
00012820  3a f2 46 28 57 25 2c 32  32 29 3a f2 46 28 57 25  |:.F(W%,22):.F(W%|
00012830  2c 34 37 29 3a f2 46 28  57 25 2c 34 38 29 3a f2  |,47):.F(W%,48):.|
00012840  46 28 57 25 2c 32 33 29  3a f2 46 28 57 25 2c 32  |F(W%,23):.F(W%,2|
00012850  34 29 3a f2 46 28 57 25  2c 34 39 29 3a f2 46 28  |4):.F(W%,49):.F(|
00012860  57 25 2c 35 30 29 3a f2  53 28 57 25 2c 31 38 2c  |W%,50):.S(W%,18,|
00012870  31 29 3a f2 53 28 57 25  2c 31 39 2c 31 29 0d 75  |1):.S(W%,19,1).u|
00012880  ef c7 cd 3a c8 99 26 34  31 64 63 31 2c 6c 79 25  |...:..&41dc1,ly%|
00012890  b8 2c 79 42 25 2c 49 75  25 2c 55 6e 25 2c 5f 75  |.,yB%,Iu%,Un%,_u|
000128a0  25 3a f2 5a 28 57 25 2c  38 29 3a f2 5a 28 57 25  |%:.Z(W%,8):.Z(W%|
000128b0  2c 39 29 3a f2 5a 28 57  25 2c 31 30 29 3a f2 5a  |,9):.Z(W%,10):.Z|
000128c0  28 57 25 2c 33 39 29 3a  f2 5a 28 57 25 2c 34 30  |(W%,39):.Z(W%,40|
000128d0  29 3a f2 5a 28 57 25 2c  34 31 29 3a f2 46 28 57  |):.Z(W%,41):.F(W|
000128e0  25 2c 31 31 29 3a f2 46  28 57 25 2c 31 32 29 3a  |%,11):.F(W%,12):|
000128f0  f2 46 28 57 25 2c 31 33  29 3a f2 46 28 57 25 2c  |.F(W%,13):.F(W%,|
00012900  31 34 29 3a 57 6e 25 3d  49 75 25 21 28 32 34 2b  |14):Wn%=Iu%!(24+|
00012910  33 32 2a 60 4a 25 29 2b  49 75 25 3a 69 69 25 3d  |32*`J%)+Iu%:ii%=|
00012920  a3 3a 68 5f 25 3d 30 3a  c8 95 3f 28 57 6e 25 2b  |.:h_%=0:..?(Wn%+|
00012930  68 5f 25 29 3c 3e 30 3a  c8 8e 3f 28 57 6e 25 2b  |h_%)<>0:..?(Wn%+|
00012940  68 5f 25 29 ca 0d 75 f0  1e c9 31 3a 6e 79 25 3d  |h_%)..u...1:ny%=|
00012950  a4 5a 28 57 25 2c 33 39  29 3a e7 6e 79 25 69 69  |.Z(W%,39):.ny%ii|
00012960  25 3d b9 0d 75 f1 1e c9  32 3a 6e 79 25 3d a4 5a  |%=..u...2:ny%=.Z|
00012970  28 57 25 2c 34 30 29 3a  e7 6e 79 25 69 69 25 3d  |(W%,40):.ny%ii%=|
00012980  b9 0d 75 f2 1e c9 34 3a  6e 79 25 3d a4 5a 28 57  |..u...4:ny%=.Z(W|
00012990  25 2c 34 31 29 3a e7 6e  79 25 69 69 25 3d b9 0d  |%,41):.ny%ii%=..|
000129a0  75 f3 2f cb 3a 68 5f 25  2b 3d 31 3a ce 3a 72 25  |u./.:h_%+=1:.:r%|
000129b0  3d 30 3a c8 95 3f 28 57  6e 25 2b 72 25 29 3c 3e  |=0:..?(Wn%+r%)<>|
000129c0  30 3a c8 8e 3f 28 57 6e  25 2b 72 25 29 ca 0d 75  |0:..?(Wn%+r%)..u|
000129d0  f4 22 c9 31 3a f2 46 28  57 25 2c 33 39 29 3a e7  |.".1:.F(W%,39):.|
000129e0  69 69 25 3d a3 f2 53 28  57 25 2c 33 39 2c 31 29  |ii%=..S(W%,39,1)|
000129f0  0d 75 f5 09 69 69 25 3d  b9 0d 75 f6 22 c9 32 3a  |.u..ii%=..u.".2:|
00012a00  f2 46 28 57 25 2c 34 30  29 3a e7 69 69 25 3d a3  |.F(W%,40):.ii%=.|
00012a10  f2 53 28 57 25 2c 34 30  2c 31 29 0d 75 f7 09 69  |.S(W%,40,1).u..i|
00012a20  69 25 3d b9 0d 75 f8 22  c9 34 3a f2 46 28 57 25  |i%=..u.".4:.F(W%|
00012a30  2c 34 31 29 3a e7 69 69  25 3d a3 f2 53 28 57 25  |,41):.ii%=..S(W%|
00012a40  2c 34 31 2c 31 29 0d 75  f9 09 69 69 25 3d b9 0d  |,41,1).u..ii%=..|
00012a50  75 fa 4c cb 3a 72 25 2b  3d 31 3a ce 3a 56 61 25  |u.L.:r%+=1:.:Va%|
00012a60  3d 49 75 25 21 28 38 2b  33 32 2a 60 4a 25 29 3a  |=Iu%!(8+32*`J%):|
00012a70  e7 28 56 61 25 80 28 31  3c 3c 35 29 29 3c 3e 30  |.(Va%.(1<<5))<>0|
00012a80  84 28 56 61 25 80 28 31  3c 3c 36 29 29 3c 3e 30  |.(Va%.(1<<6))<>0|
00012a90  58 6f 25 3d a3 8b 58 6f  25 3d b9 0d 75 fb 14 e7  |Xo%=..Xo%=..u...|
00012aa0  28 56 61 25 80 28 31 3c  3c 32 29 29 3d a3 8c 0d  |(Va%.(1<<2))=...|
00012ab0  75 fc 3f f2 5a 28 57 25  2c 31 38 29 3a f2 5a 28  |u.?.Z(W%,18):.Z(|
00012ac0  57 25 2c 32 30 29 3a f2  5a 28 57 25 2c 32 31 29  |W%,20):.Z(W%,21)|
00012ad0  3a f2 5a 28 57 25 2c 32  32 29 3a f2 5a 28 57 25  |:.Z(W%,22):.Z(W%|
00012ae0  2c 34 37 29 3a f2 5a 28  57 25 2c 34 38 29 0d 75  |,47):.Z(W%,48).u|
00012af0  fd 16 cd 3a e7 28 56 61  25 80 28 31 3c 3c 33 29  |...:.(Va%.(1<<3)|
00012b00  29 3d a3 8c 0d 75 fe 35  f2 5a 28 57 25 2c 31 39  |)=...u.5.Z(W%,19|
00012b10  29 3a f2 5a 28 57 25 2c  32 33 29 3a f2 5a 28 57  |):.Z(W%,23):.Z(W|
00012b20  25 2c 32 34 29 3a f2 5a  28 57 25 2c 34 39 29 3a  |%,24):.Z(W%,49):|
00012b30  f2 5a 28 57 25 2c 35 30  29 0d 75 ff 14 cd 3a e7  |.Z(W%,50).u...:.|
00012b40  28 56 61 25 80 28 31 3c  3c 34 29 29 8c 0d 76 00  |(Va%.(1<<4))..v.|
00012b50  21 f2 5a 28 57 25 2c 32  38 29 3a f2 5a 28 57 25  |!.Z(W%,28):.Z(W%|
00012b60  2c 33 31 29 3a f2 5a 28  57 25 2c 33 32 29 0d 76  |,31):.Z(W%,32).v|
00012b70  01 23 cc 3a f2 46 28 57  25 2c 32 38 29 3a f2 46  |.#.:.F(W%,28):.F|
00012b80  28 57 25 2c 33 31 29 3a  f2 46 28 57 25 2c 33 32  |(W%,31):.F(W%,32|
00012b90  29 0d 76 02 cb cd 3a 5a  24 3d 22 52 65 73 6f 6c  |).v...:Z$="Resol|
00012ba0  75 74 69 6f 6e 73 22 3a  50 6f 25 3d 49 75 25 21  |utions":Po%=Iu%!|
00012bb0  28 32 38 2b 33 32 2a 60  4a 25 29 2b 49 75 25 3a  |(28+32*`J%)+Iu%:|
00012bc0  68 5f 25 3d 30 3a c8 95  21 28 50 6f 25 2b 68 5f  |h_%=0:..!(Po%+h_|
00012bd0  25 29 3c 3e 30 3a 43 25  28 68 5f 25 2f 34 29 3d  |%)<>0:C%(h_%/4)=|
00012be0  21 28 50 6f 25 2b 68 5f  25 29 83 28 31 3c 3c 31  |!(Po%+h_%).(1<<1|
00012bf0  36 29 3a 46 25 28 68 5f  25 2f 34 29 3d 21 28 50  |6):F%(h_%/4)=!(P|
00012c00  6f 25 2b 68 5f 25 29 81  28 31 3c 3c 31 36 29 3a  |o%+h_%).(1<<16):|
00012c10  5a 24 2b 3d 22 7c 22 2b  c3 28 43 25 28 68 5f 25  |Z$+="|"+.(C%(h_%|
00012c20  2f 34 29 29 2b 22 20 78  20 22 2b c3 28 46 25 28  |/4))+" x "+.(F%(|
00012c30  68 5f 25 2f 34 29 29 3a  e7 43 25 28 68 5f 25 2f  |h_%/4)):.C%(h_%/|
00012c40  34 29 3d 32 30 30 80 46  25 28 68 5f 25 2f 34 29  |4)=200.F%(h_%/4)|
00012c50  3d 32 30 30 f2 46 28 57  25 2c 38 29 0d 76 03 28  |=200.F(W%,8).v.(|
00012c60  e7 43 25 28 68 5f 25 2f  34 29 3d 33 30 30 80 46  |.C%(h_%/4)=300.F|
00012c70  25 28 68 5f 25 2f 34 29  3d 33 30 30 f2 46 28 57  |%(h_%/4)=300.F(W|
00012c80  25 2c 39 29 0d 76 04 29  e7 43 25 28 68 5f 25 2f  |%,9).v.).C%(h_%/|
00012c90  34 29 3d 34 30 30 80 46  25 28 68 5f 25 2f 34 29  |4)=400.F%(h_%/4)|
00012ca0  3d 34 30 30 f2 46 28 57  25 2c 31 30 29 0d 76 05  |=400.F(W%,10).v.|
00012cb0  cf 68 5f 25 2b 3d 34 3a  ce 3a 6b 42 25 3d 68 5f  |.h_%+=4:.:kB%=h_|
00012cc0  25 2f 34 3a f2 63 79 28  42 6e 25 2c 5a 24 2c 6e  |%/4:.cy(Bn%,Z$,n|
00012cd0  41 25 29 3a 67 6c 25 3d  a3 3a 6e 79 25 3d a4 5a  |A%):gl%=.:ny%=.Z|
00012ce0  28 57 25 2c 38 29 3a 73  5f 25 3d a4 5a 28 57 25  |(W%,8):s_%=.Z(W%|
00012cf0  2c 39 29 3a 77 4a 25 3d  a4 5a 28 57 25 2c 31 30  |,9):wJ%=.Z(W%,10|
00012d00  29 3a 6c 75 25 3d a4 5a  28 57 25 2c 31 31 29 3a  |):lu%=.Z(W%,11):|
00012d10  f2 42 28 42 6e 25 2c 4d  75 25 2b 31 29 3a f2 41  |.B(Bn%,Mu%+1):.A|
00012d20  28 57 25 2c 31 32 2c c3  28 43 25 28 4d 75 25 29  |(W%,12,.(C%(Mu%)|
00012d30  29 29 3a f2 41 28 57 25  2c 31 33 2c c3 28 46 25  |)):.A(W%,13,.(F%|
00012d40  28 4d 75 25 29 29 29 3a  e3 63 5f 25 3d 30 b8 6b  |(Mu%))):.c_%=0.k|
00012d50  42 25 2d 31 3a e7 6e 79  25 80 67 6c 25 3d a3 e7  |B%-1:.ny%.gl%=..|
00012d60  43 25 28 63 5f 25 29 3d  32 30 30 80 46 25 28 63  |C%(c_%)=200.F%(c|
00012d70  5f 25 29 3d 32 30 30 67  6c 25 3d b9 0d 76 06 2b  |_%)=200gl%=..v.+|
00012d80  e7 73 5f 25 80 67 6c 25  3d a3 e7 43 25 28 63 5f  |.s_%.gl%=..C%(c_|
00012d90  25 29 3d 33 30 30 80 46  25 28 63 5f 25 29 3d 33  |%)=300.F%(c_%)=3|
00012da0  30 30 67 6c 25 3d b9 0d  76 07 2b e7 77 4a 25 80  |00gl%=..v.+.wJ%.|
00012db0  67 6c 25 3d a3 e7 43 25  28 63 5f 25 29 3d 34 30  |gl%=..C%(c_%)=40|
00012dc0  30 80 46 25 28 63 5f 25  29 3d 34 30 30 67 6c 25  |0.F%(c_%)=400gl%|
00012dd0  3d b9 0d 76 08 39 e7 6c  75 25 80 67 6c 25 3d a3  |=..v.9.lu%.gl%=.|
00012de0  80 43 25 28 63 5f 25 29  3d bb 28 a4 4d 28 57 25  |.C%(c_%)=.(.M(W%|
00012df0  2c 31 32 29 29 80 46 25  28 63 5f 25 29 3d bb 28  |,12)).F%(c_%)=.(|
00012e00  a4 4d 28 57 25 2c 31 33  29 29 8c 0d 76 09 11 4d  |.M(W%,13))..v..M|
00012e10  75 25 3d 63 5f 25 3a 67  6c 25 3d b9 0d 76 0a 0f  |u%=c_%:gl%=..v..|
00012e20  cd 3a ed 3a e7 67 6c 25  3d a3 8c 0d 76 0b 2a e3  |.:.:.gl%=...v.*.|
00012e30  63 5f 25 3d 30 b8 6b 42  25 2d 31 3a e7 43 25 28  |c_%=0.kB%-1:.C%(|
00012e40  63 5f 25 29 3d 34 30 30  80 46 25 28 63 5f 25 29  |c_%)=400.F%(c_%)|
00012e50  3d 34 30 30 8c 0d 76 0c  15 f2 53 28 57 25 2c 31  |=400..v...S(W%,1|
00012e60  30 2c 31 29 3a 67 6c 25  3d b9 0d 76 0d 07 cd 3a  |0,1):gl%=..v...:|
00012e70  ed 0d 76 0e 0d cd 3a e7  67 6c 25 3d a3 8c 0d 76  |..v...:.gl%=...v|
00012e80  0f 2a e3 63 5f 25 3d 30  b8 6b 42 25 2d 31 3a e7  |.*.c_%=0.kB%-1:.|
00012e90  43 25 28 63 5f 25 29 3d  33 30 30 80 46 25 28 63  |C%(c_%)=300.F%(c|
00012ea0  5f 25 29 3d 33 30 30 8c  0d 76 10 14 f2 53 28 57  |_%)=300..v...S(W|
00012eb0  25 2c 39 2c 31 29 3a 67  6c 25 3d b9 0d 76 11 07  |%,9,1):gl%=..v..|
00012ec0  cd 3a ed 0d 76 12 07 cd  3a e1 0d 76 13 76 dd f2  |.:..v...:..v.v..|
00012ed0  65 5f 3a f2 58 28 22 4f  70 74 69 63 61 6c 22 2c  |e_:.X("Optical",|
00012ee0  22 54 68 65 72 65 20 61  72 65 20 6e 6f 20 73 63  |"There are no sc|
00012ef0  61 6e 6e 65 72 73 20 63  6f 6e 6e 65 63 74 65 64  |anners connected|
00012f00  20 77 68 69 63 68 20 63  61 6e 20 62 65 20 64 69  | which can be di|
00012f10  72 65 63 74 6c 79 20 69  6e 74 65 72 66 61 63 65  |rectly interface|
00012f20  64 20 77 69 74 68 20 4f  70 74 69 63 61 6c 2e 22  |d with Optical."|
00012f30  29 3a f2 4d 28 57 25 29  3a 6f 6b 25 3d b9 3a e1  |):.M(W%):ok%=.:.|
00012f40  0d 76 14 14 dd a4 59 3a  3d 31 31 2e 36 38 2a 37  |.v....Y:=11.68*7|
00012f50  32 30 30 30 0d 76 15 36  dd f2 43 6c 28 62 25 2c  |2000.v.6..Cl(b%,|
00012f60  49 25 29 3a ea 76 4a 25  3a e7 62 25 3d 31 80 49  |I%):.vJ%:.b%=1.I|
00012f70  25 3d 34 37 49 25 3d 34  38 8b e7 62 25 3d 31 80  |%=47I%=48..b%=1.|
00012f80  49 25 3d 34 38 49 25 3d  34 37 0d 76 16 25 e7 62  |I%=48I%=47.v.%.b|
00012f90  25 3d 31 80 49 25 3d 34  39 49 25 3d 35 30 8b e7  |%=1.I%=49I%=50..|
00012fa0  62 25 3d 31 80 49 25 3d  35 30 49 25 3d 34 39 0d  |b%=1.I%=50I%=49.|
00012fb0  76 17 41 e7 28 28 49 25  3e 3d 38 80 49 25 3c 3d  |v.A.((I%>=8.I%<=|
00012fc0  31 31 29 84 49 25 3d 32  30 84 49 25 3d 32 31 84  |11).I%=20.I%=21.|
00012fd0  28 49 25 3e 3d 33 39 80  49 25 3c 3d 34 31 29 29  |(I%>=39.I%<=41))|
00012fe0  80 62 25 3d 31 f2 53 28  57 25 2c 49 25 2c b9 29  |.b%=1.S(W%,I%,.)|
00012ff0  0d 76 18 09 c8 8e 49 25  ca 0d 76 19 16 c9 34 2c  |.v....I%..v...4,|
00013000  32 3a f2 54 28 71 6e 25  2c 79 25 2c 68 25 29 0d  |2:.T(qn%,y%,h%).|
00013010  76 1a 16 c9 35 2c 33 3a  f2 54 28 66 69 25 2c 79  |v...5,3:.T(fi%,y|
00013020  25 2c 68 25 29 0d 76 1b  1b c9 31 34 2c 31 32 2c  |%,h%).v...14,12,|
00013030  31 33 3a f2 54 28 42 6e  25 2c 79 25 2c 68 25 29  |13:.T(Bn%,y%,h%)|
00013040  0d 76 1c 0b c9 32 38 3a  f2 4f 75 0d 76 1d 14 c9  |.v...28:.Ou.v...|
00013050  33 35 3a 69 5f 25 3d a3  3a f2 4d 28 57 25 29 0d  |35:i_%=.:.M(W%).|
00013060  76 1e 0b c9 33 34 3a f2  51 4a 0d 76 1f 0b c9 34  |v...34:.QJ.v...4|
00013070  32 3a f2 56 61 0d 76 20  1b c9 31 38 3a 76 4a 25  |2:.Va.v ..18:vJ%|
00013080  3d a4 5a 28 57 25 2c 31  38 29 3a e7 76 4a 25 8c  |=.Z(W%,18):.vJ%.|
00013090  0d 76 21 11 e7 57 42 25  f2 46 28 57 25 2c 32 31  |.v!..WB%.F(W%,21|
000130a0  29 0d 76 22 2f e7 62 69  25 f2 46 28 57 25 2c 32  |).v"/.bi%.F(W%,2|
000130b0  30 29 3a f2 46 28 57 25  2c 32 32 29 3a f2 46 28  |0):.F(W%,22):.F(|
000130c0  57 25 2c 34 37 29 3a f2  46 28 57 25 2c 34 38 29  |W%,47):.F(W%,48)|
000130d0  0d 76 23 37 cc 3a f2 5a  28 57 25 2c 32 30 29 3a  |.v#7.:.Z(W%,20):|
000130e0  f2 5a 28 57 25 2c 32 31  29 3a f2 5a 28 57 25 2c  |.Z(W%,21):.Z(W%,|
000130f0  32 32 29 3a f2 5a 28 57  25 2c 34 37 29 3a f2 5a  |22):.Z(W%,47):.Z|
00013100  28 57 25 2c 34 38 29 0d  76 24 05 cd 0d 76 25 1b  |(W%,48).v$...v%.|
00013110  c9 31 39 3a 76 4a 25 3d  a4 5a 28 57 25 2c 31 39  |.19:vJ%=.Z(W%,19|
00013120  29 3a e7 76 4a 25 8c 0d  76 26 2b f2 46 28 57 25  |):.vJ%..v&+.F(W%|
00013130  2c 32 33 29 3a f2 46 28  57 25 2c 32 34 29 3a f2  |,23):.F(W%,24):.|
00013140  46 28 57 25 2c 34 39 29  3a f2 46 28 57 25 2c 35  |F(W%,49):.F(W%,5|
00013150  30 29 0d 76 27 2d cc 3a  f2 5a 28 57 25 2c 32 33  |0).v'-.:.Z(W%,23|
00013160  29 3a f2 5a 28 57 25 2c  32 34 29 3a f2 5a 28 57  |):.Z(W%,24):.Z(W|
00013170  25 2c 34 39 29 3a f2 5a  28 57 25 2c 35 30 29 0d  |%,49):.Z(W%,50).|
00013180  76 28 05 cd 0d 76 29 1b  c9 34 33 3a 76 4a 25 3d  |v(...v)..43:vJ%=|
00013190  a4 5a 28 57 25 2c 34 33  29 3a e7 76 4a 25 8c 0d  |.Z(W%,43):.vJ%..|
000131a0  76 2a 21 f2 5a 28 57 25  2c 32 38 29 3a f2 5a 28  |v*!.Z(W%,28):.Z(|
000131b0  57 25 2c 33 31 29 3a f2  5a 28 57 25 2c 33 32 29  |W%,31):.Z(W%,32)|
000131c0  0d 76 2b 23 cc 3a f2 46  28 57 25 2c 32 38 29 3a  |.v+#.:.F(W%,28):|
000131d0  f2 46 28 57 25 2c 33 31  29 3a f2 46 28 57 25 2c  |.F(W%,31):.F(W%,|
000131e0  33 32 29 0d 76 2c 08 cd  3a f2 78 0d 76 2d 1a c9  |32).v,..:.x.v-..|
000131f0  38 2c 39 2c 31 30 2c 31  31 2c 33 39 2c 34 30 2c  |8,9,10,11,39,40,|
00013200  34 31 3a f2 78 0d 76 2e  17 c9 34 37 3a f2 69 28  |41:.x.v...47:.i(|
00013210  57 25 2c 32 32 2c 31 30  30 2c 31 29 0d 76 2f 15  |W%,22,100,1).v/.|
00013220  c9 34 38 3a f2 68 28 57  25 2c 32 32 2c 31 2c 31  |.48:.h(W%,22,1,1|
00013230  29 0d 76 30 17 c9 34 39  3a f2 69 28 57 25 2c 32  |).v0..49:.i(W%,2|
00013240  33 2c 31 30 30 2c 31 29  0d 76 31 15 c9 35 30 3a  |3,100,1).v1..50:|
00013250  f2 68 28 57 25 2c 32 33  2c 31 2c 31 29 0d 76 32  |.h(W%,23,1,1).v2|
00013260  0b c9 35 31 3a f2 58 6c  0d 76 33 07 cb 3a e1 0d  |..51:.Xl.v3..:..|
00013270  76 34 27 dd f2 4f 75 3a  e7 a4 4d 28 57 25 2c 32  |v4'..Ou:..M(W%,2|
00013280  38 29 3d 22 49 6e 63 68  65 73 22 56 4a 25 3d b9  |8)="Inches"VJ%=.|
00013290  8b 56 4a 25 3d a3 0d 76  35 09 e7 56 4a 25 8c 0d  |.VJ%=..v5..VJ%..|
000132a0  76 36 31 63 79 25 3d bb  28 a4 4d 28 57 25 2c 33  |v61cy%=.(.M(W%,3|
000132b0  31 29 29 2a 37 32 30 30  30 3a 52 79 25 3d bb 28  |1))*72000:Ry%=.(|
000132c0  a4 4d 28 57 25 2c 33 32  29 29 2a 37 32 30 30 30  |.M(W%,32))*72000|
000132d0  0d 76 37 37 cc 3a 63 79  25 3d bb 28 a4 4d 28 57  |.v77.:cy%=.(.M(W|
000132e0  25 2c 33 31 29 29 2a 37  32 30 30 30 2f 53 3a 52  |%,31))*72000/S:R|
000132f0  79 25 3d bb 28 a4 4d 28  57 25 2c 33 32 29 29 2a  |y%=.(.M(W%,32))*|
00013300  37 32 30 30 30 2f 53 0d  76 38 1e cd 3a 56 4a 25  |72000/S.v8..:VJ%|
00013310  3d ac 28 56 4a 25 29 3a  40 25 3d 31 30 32 34 3a  |=.(VJ%):@%=1024:|
00013320  e7 56 4a 25 8c 0d 76 39  54 f2 41 28 57 25 2c 32  |.VJ%..v9T.A(W%,2|
00013330  38 2c 22 49 6e 63 68 65  73 22 29 3a f2 41 28 57  |8,"Inches"):.A(W|
00013340  25 2c 33 31 2c c0 c3 28  a4 57 28 63 79 25 2f 37  |%,31,..(.W(cy%/7|
00013350  32 30 30 30 29 29 2c 37  29 29 3a f2 41 28 57 25  |2000)),7)):.A(W%|
00013360  2c 33 32 2c c0 c3 28 a4  57 28 52 79 25 2f 37 32  |,32,..(.W(Ry%/72|
00013370  30 30 30 29 29 2c 37 29  29 0d 76 3a 56 cc 3a f2  |000)),7)).v:V.:.|
00013380  41 28 57 25 2c 32 38 2c  22 4d 6d 22 29 3a f2 41  |A(W%,28,"Mm"):.A|
00013390  28 57 25 2c 33 31 2c c0  c3 28 a4 57 28 63 79 25  |(W%,31,..(.W(cy%|
000133a0  2f 37 32 30 30 30 2a 53  29 29 2c 37 29 29 3a f2  |/72000*S)),7)):.|
000133b0  41 28 57 25 2c 33 32 2c  c0 c3 28 a4 57 28 52 79  |A(W%,32,..(.W(Ry|
000133c0  25 2f 37 32 30 30 30 2a  53 29 29 2c 37 29 29 0d  |%/72000*S)),7)).|
000133d0  76 3b 0f cd 3a 40 25 3d  32 33 31 34 3a e1 0d 76  |v;..:@%=2314:..v|
000133e0  3c 23 dd f2 4f 61 3a ea  4f 6b 25 3a 4f 6b 25 3d  |<#..Oa:.Ok%:Ok%=|
000133f0  a4 50 28 30 29 3a e7 4f  6b 25 3d 6c 79 25 2b 31  |.P(0):.Ok%=ly%+1|
00013400  e1 0d 76 3d 5f f2 42 28  71 6e 25 2c 6c 79 25 2b  |..v=_.B(qn%,ly%+|
00013410  31 29 3a f2 42 28 71 6e  25 2c 4f 6b 25 29 3a 6c  |1):.B(qn%,Ok%):l|
00013420  79 25 3d 4f 6b 25 2d 31  3a f2 41 28 57 25 2c 32  |y%=Ok%-1:.A(W%,2|
00013430  2c 4a 24 28 6c 79 25 29  29 3a 74 6f 25 3d b9 3a  |,J$(ly%)):to%=.:|
00013440  e7 6c 79 25 3c 3e 78 4a  25 80 78 4a 25 3c 3e 32  |.ly%<>xJ%.xJ%<>2|
00013450  35 36 8c c8 99 22 53 63  61 6e 5f 53 74 6f 70 22  |56..."Scan_Stop"|
00013460  0d 76 3e 11 f2 4b 5f 3a  f2 58 5f 3a f2 58 69 3a  |.v>..K_:.X_:.Xi:|
00013470  e1 0d 76 3f 23 dd f2 75  6c 3a ea 73 6b 25 3a 73  |..v?#..ul:.sk%:s|
00013480  6b 25 3d a4 50 28 30 29  3a e7 73 6b 25 3d 60 4a  |k%=.P(0):.sk%=`J|
00013490  25 2b 31 e1 0d 76 40 41  f2 42 28 66 69 25 2c 60  |%+1..v@A.B(fi%,`|
000134a0  4a 25 2b 31 29 3a f2 42  28 66 69 25 2c 73 6b 25  |J%+1):.B(fi%,sk%|
000134b0  29 3a 60 4a 25 3d 73 6b  25 2d 31 3a f2 41 28 57  |):`J%=sk%-1:.A(W|
000134c0  25 2c 33 2c 46 24 28 60  4a 25 29 29 3a f2 58 5f  |%,3,F$(`J%)):.X_|
000134d0  3a f2 78 3a e1 0d 76 41  76 dd f2 68 61 3a ea 66  |:.x:..vAv..ha:.f|
000134e0  72 25 3a 66 72 25 3d a4  50 28 30 29 3a f2 56 28  |r%:fr%=.P(0):.V(|
000134f0  42 6e 25 2c 4d 75 25 2b  31 29 3a f2 4b 28 42 6e  |Bn%,Mu%+1):.K(Bn|
00013500  25 2c 66 72 25 29 3a 4d  75 25 3d 66 72 25 2d 31  |%,fr%):Mu%=fr%-1|
00013510  3a f2 41 28 57 25 2c 31  32 2c c3 28 43 25 28 4d  |:.A(W%,12,.(C%(M|
00013520  75 25 29 29 29 3a f2 41  28 57 25 2c 31 33 2c c3  |u%))):.A(W%,13,.|
00013530  28 46 25 28 4d 75 25 29  29 29 3a f2 53 28 57 25  |(F%(Mu%))):.S(W%|
00013540  2c 31 31 2c 31 29 3a f2  78 3a e1 0d 76 42 dc dd  |,11,1):.x:..vB..|
00013550  f2 63 79 28 4a 79 25 2c  5a 24 2c 61 5a 25 29 3a  |.cy(Jy%,Z$,aZ%):|
00013560  ea 58 79 25 2c 55 79 25  2c 6b 79 25 2c 57 75 25  |.Xy%,Uy%,ky%,Wu%|
00013570  2c 6b 61 25 2c 4c 75 25  3a 4c 75 25 3d 30 3a 4a  |,ka%,Lu%:Lu%=0:J|
00013580  79 25 3f 31 32 3d 37 3a  4a 79 25 3f 31 33 3d 32  |y%?12=7:Jy%?13=2|
00013590  3a 4a 79 25 3f 31 34 3d  37 3a 4a 79 25 3f 31 35  |:Jy%?14=7:Jy%?15|
000135a0  3d 30 3a 4a 79 25 21 31  36 3d 31 34 30 3a 4a 79  |=0:Jy%!16=140:Jy|
000135b0  25 21 32 30 3d 34 34 3a  4a 79 25 21 32 34 3d 30  |%!20=44:Jy%!24=0|
000135c0  3a 58 79 25 3d 4a 79 25  2b 32 38 3a 24 4a 79 25  |:Xy%=Jy%+28:$Jy%|
000135d0  3d c0 5a 24 2c a7 5a 24  2c 22 7c 22 29 2d 31 29  |=.Z$,.Z$,"|")-1)|
000135e0  3a 55 79 25 3d a9 28 c0  5a 24 2c a7 5a 24 2c 22  |:Uy%=.(.Z$,.Z$,"|
000135f0  7c 22 29 2d 31 29 29 3a  5a 24 2b 3d 22 7c 22 3a  ||")-1)):Z$+="|":|
00013600  60 6f 25 3d 30 3a c8 95  5a 24 3c 3e 22 22 3a 5a  |`o%=0:..Z$<>"":Z|
00013610  24 3d c1 5a 24 2c a7 5a  24 2c 22 7c 22 29 2b 31  |$=.Z$,.Z$,"|")+1|
00013620  29 3a c8 8e 5a 24 ca 0d  76 43 07 c9 22 22 0d 76  |):..Z$..vC.."".v|
00013630  44 4d 7f 3a 21 58 79 25  3d 30 3a 58 79 25 21 34  |DM.:!Xy%=0:Xy%!4|
00013640  3d 2d 31 3a 58 79 25 21  38 3d 26 37 30 30 30 30  |=-1:Xy%!8=&70000|
00013650  32 31 3a 6b 79 25 3d a7  5a 24 2c 22 7c 22 29 2d  |21:ky%=.Z$,"|")-|
00013660  31 3a 57 75 25 3d a7 c0  5a 24 2c 6b 79 25 29 2c  |1:Wu%=..Z$,ky%),|
00013670  22 3e 22 29 3a c8 8e 57  75 25 ca 0d 76 45 06 c9  |">"):..Wu%..vE..|
00013680  30 0d 76 46 33 7f 3a 6b  61 25 3d a0 28 c1 5a 24  |0.vF3.:ka%=.(.Z$|
00013690  2c 57 75 25 2b 31 2c 6b  79 25 2d 57 75 25 29 29  |,Wu%+1,ky%-Wu%))|
000136a0  3a 58 79 25 21 34 3d 6b  61 25 3a 6b 79 25 3d 57  |:Xy%!4=ka%:ky%=W|
000136b0  75 25 2d 31 0d 76 47 0f  cb 3a e7 4c 75 25 3c 4c  |u%-1.vG..:.Lu%<L|
000136c0  60 25 8c 0d 76 48 52 58  79 25 21 38 2b 3d 31 3c  |`%..vHRXy%!8+=1<|
000136d0  3c 38 3a 58 79 25 21 31  32 3d 61 5a 25 2b 4c 75  |<8:Xy%!12=aZ%+Lu|
000136e0  25 2a 33 32 3a 58 79 25  21 31 36 3d 30 3a 58 79  |%*32:Xy%!16=0:Xy|
000136f0  25 21 32 30 3d 32 31 3a  24 28 61 5a 25 2b 4c 75  |%!20=21:$(aZ%+Lu|
00013700  25 2a 33 32 29 3d c0 5a  24 2c 6b 79 25 29 3a 4c  |%*32)=.Z$,ky%):L|
00013710  75 25 2b 3d 31 0d 76 49  17 cc 3a 24 28 58 79 25  |u%+=1.vI..:$(Xy%|
00013720  2b 31 32 29 3d c0 5a 24  2c 31 32 29 0d 76 4a 16  |+12)=.Z$,12).vJ.|
00013730  cd 3a e7 6b 79 25 3e 55  79 25 8c 55 79 25 3d 6b  |.:.ky%>Uy%.Uy%=k|
00013740  79 25 0d 76 4b 0b 58 79  25 2b 3d 32 34 0d 76 4c  |y%.vK.Xy%+=24.vL|
00013750  2f cb 3a ce 3a 4a 79 25  21 31 36 3d 31 36 2a 28  |/.:.:Jy%!16=16*(|
00013760  55 79 25 2b 31 29 3a 58  79 25 21 2d 32 34 3d 58  |Uy%+1):Xy%!-24=X|
00013770  79 25 21 2d 32 34 84 31  32 38 3a e1 0d 76 4d 36  |y%!-24.128:..vM6|
00013780  dd f2 50 69 28 49 25 2c  6a 25 29 3a e7 6a 25 3d  |..Pi(I%,j%):.j%=|
00013790  32 37 f2 53 28 59 25 2c  33 35 2c 31 29 3a f2 4d  |27.S(Y%,35,1):.M|
000137a0  28 57 25 29 3a f2 53 28  59 25 2c 33 35 2c 30 29  |(W%):.S(Y%,35,0)|
000137b0  3a e1 0d 76 4e 18 e7 6a  25 3c 3e 31 33 c8 99 26  |:..vN..j%<>13..&|
000137c0  34 30 30 64 63 2c 6a 25  3a e1 0d 76 4f 09 c8 8e  |400dc,j%:..vO...|
000137d0  49 25 ca 0d 76 50 24 c9  32 32 3a 44 4a 25 3d bb  |I%..vP$.22:DJ%=.|
000137e0  28 a4 4d 28 57 25 2c 32  32 29 29 3a e7 44 4a 25  |(.M(W%,22)):.DJ%|
000137f0  3c 31 44 4a 25 3d 31 0d  76 51 13 e7 44 4a 25 3e  |<1DJ%=1.vQ..DJ%>|
00013800  31 30 30 44 4a 25 3d 31  30 30 0d 76 52 1f f2 41  |100DJ%=100.vR..A|
00013810  28 57 25 2c 32 32 2c c3  28 44 4a 25 29 29 3a f2  |(W%,22,.(DJ%)):.|
00013820  4c 79 28 57 25 2c 32 33  29 0d 76 53 24 c9 32 33  |Ly(W%,23).vS$.23|
00013830  3a 44 4a 25 3d bb 28 a4  4d 28 57 25 2c 32 33 29  |:DJ%=.(.M(W%,23)|
00013840  29 3a e7 44 4a 25 3c 31  44 4a 25 3d 31 0d 76 54  |):.DJ%<1DJ%=1.vT|
00013850  13 e7 44 4a 25 3e 31 30  30 44 4a 25 3d 31 30 30  |..DJ%>100DJ%=100|
00013860  0d 76 55 1f f2 41 28 57  25 2c 32 33 2c c3 28 44  |.vU..A(W%,23,.(D|
00013870  4a 25 29 29 3a f2 4c 79  28 57 25 2c 32 32 29 0d  |J%)):.Ly(W%,22).|
00013880  76 56 15 c9 33 31 3a f2  78 3a f2 4c 79 28 57 25  |vV..31:.x:.Ly(W%|
00013890  2c 33 32 29 0d 76 57 15  c9 33 32 3a f2 78 3a f2  |,32).vW..32:.x:.|
000138a0  4c 79 28 57 25 2c 33 31  29 0d 76 58 23 c9 33 34  |Ly(W%,31).vX#.34|
000138b0  3a f2 53 28 59 25 2c 33  34 2c 31 29 3a f2 51 4a  |:.S(Y%,34,1):.QJ|
000138c0  3a f2 53 28 59 25 2c 33  34 2c 30 29 0d 76 59 07  |:.S(Y%,34,0).vY.|
000138d0  cb 3a e1 0d 76 5a 15 dd  a4 57 28 74 6c 29 3d a4  |.:..vZ...W(tl)=.|
000138e0  4a 79 28 74 6c 2c 32 29  0d 76 5b 24 dd a4 4a 79  |Jy(tl,2).v[$..Jy|
000138f0  28 74 6c 2c 5a 5a 25 29  3d a8 28 74 6c 2a 31 30  |(tl,ZZ%)=.(tl*10|
00013900  5e 5a 5a 25 29 2f 31 30  5e 5a 5a 25 0d 76 5c 57  |^ZZ%)/10^ZZ%.v\W|
00013910  dd f2 51 4a 3a 4e 4a 25  3d 30 3a 5a 75 25 3d a4  |..QJ:NJ%=0:Zu%=.|
00013920  5a 28 57 25 2c 33 36 29  3a e7 5a 75 25 e7 28 5a  |Z(W%,36):.Zu%.(Z|
00013930  25 28 60 25 29 3c 3d 31  30 32 34 80 5a 25 28 57  |%(`%)<=1024.Z%(W|
00013940  4a 25 29 3c 3d 31 30 32  34 80 5a 25 28 4e 79 25  |J%)<=1024.Z%(Ny%|
00013950  29 3c 3d 31 30 32 34 29  84 61 5f 25 3d b9 5a 75  |)<=1024).a_%=.Zu|
00013960  25 3d a3 0d 76 5d 17 f2  4d 28 57 25 29 3a e7 5f  |%=..v]..M(W%):._|
00013970  75 25 80 28 31 3c 3c 30  29 8c 0d 76 5e 0f f2 44  |u%.(1<<0)..v^..D|
00013980  28 6b 6c 25 29 3a f2 67  69 0d 76 5f 0d cd 3a 79  |(kl%):.gi.v_..:y|
00013990  4f 25 3d b9 3a e1 0d 76  60 1d dd f2 4e 75 3a 79  |O%=.:..v`...Nu:y|
000139a0  4f 25 3d a3 3a e7 6c 79  25 3e 3d 78 4a 25 f2 54  |O%=.:.ly%>=xJ%.T|
000139b0  75 3a e1 0d 76 61 12 e7  6c 79 25 3e 3d 70 6c 25  |u:..va..ly%>=pl%|
000139c0  f2 62 4a 3a e1 0d 76 62  05 e1 0d 76 63 48 dd f2  |.bJ:..vb...vcH..|
000139d0  54 75 3a ea 63 25 2c 54  75 25 3a c8 99 22 58 53  |Tu:.c%,Tu%:.."XS|
000139e0  63 61 6e 5f 50 6f 6c 6c  44 50 49 22 b8 54 6c 25  |can_PollDPI".Tl%|
000139f0  3a 54 6c 25 3d 54 6c 25  2a 31 30 30 3a 41 6c 25  |:Tl%=Tl%*100:Al%|
00013a00  3d 54 6c 25 3a 4c 6c 25  3d 54 6c 25 3a e7 56 4a  |=Tl%:Ll%=Tl%:.VJ|
00013a10  25 8c 0d 76 64 31 63 79  25 3d bb 28 a4 4d 28 57  |%..vd1cy%=.(.M(W|
00013a20  25 2c 33 31 29 29 2a 37  32 30 30 30 3a 52 79 25  |%,31))*72000:Ry%|
00013a30  3d bb 28 a4 4d 28 57 25  2c 33 32 29 29 2a 37 32  |=.(.M(W%,32))*72|
00013a40  30 30 30 0d 76 65 37 cc  3a 63 79 25 3d bb 28 a4  |000.ve7.:cy%=.(.|
00013a50  4d 28 57 25 2c 33 31 29  29 2a 37 32 30 30 30 2f  |M(W%,31))*72000/|
00013a60  53 3a 52 79 25 3d bb 28  a4 4d 28 57 25 2c 33 32  |S:Ry%=.(.M(W%,32|
00013a70  29 29 2a 37 32 30 30 30  2f 53 0d 76 66 34 cd 3a  |))*72000/S.vf4.:|
00013a80  76 75 25 3d 28 63 79 25  2f 37 32 30 30 30 29 2a  |vu%=(cy%/72000)*|
00013a90  54 6c 25 2f 38 3a e7 28  76 75 25 80 33 29 76 75  |Tl%/8:.(vu%.3)vu|
00013aa0  25 3d 28 76 75 25 80 ac  28 33 29 29 2b 34 0d 76  |%=(vu%..(3))+4.v|
00013ab0  67 21 e7 76 75 25 3e 54  6c 25 2f 31 30 30 2a 35  |g!.vu%>Tl%/100*5|
00013ac0  32 76 75 25 3d 54 6c 25  2f 31 30 30 2a 35 32 0d  |2vu%=Tl%/100*52.|
00013ad0  76 68 7b 50 5f 25 3d 28  52 79 25 2f 37 32 30 30  |vh{P_%=(Ry%/7200|
00013ae0  30 29 2a 54 6c 25 3a 7a  5f 25 3d 31 3a 4a 69 25  |0)*Tl%:z_%=1:Ji%|
00013af0  3d a4 56 3a 62 75 25 3d  63 79 25 2a 54 6c 25 2f  |=.V:bu%=cy%*Tl%/|
00013b00  37 32 30 30 30 3a e7 42  6f 25 8c 7a 6b 25 3d 28  |72000:.Bo%.zk%=(|
00013b10  4a 69 25 2d 75 6e 25 29  2f 28 28 34 2b 62 75 25  |Ji%-un%)/((4+bu%|
00013b20  2f 38 29 2b 28 34 2b 62  75 25 2f 38 29 29 2d 34  |/8)+(4+bu%/8))-4|
00013b30  8b 7a 6b 25 3d 28 4a 69  25 2d 75 6e 25 29 2f 28  |.zk%=(Ji%-un%)/(|
00013b40  34 2b 62 75 25 2f 38 29  2d 34 0d 76 69 14 e7 50  |4+bu%/8)-4.vi..P|
00013b50  5f 25 3e 7a 6b 25 8c 50  5f 25 3d 7a 6b 25 0d 76  |_%>zk%.P_%=zk%.v|
00013b60  6a 61 e7 50 5f 25 3c 31  f2 43 28 22 4f 70 74 69  |ja.P_%<1.C("Opti|
00013b70  63 61 6c 22 2c 22 54 68  65 72 65 20 69 73 20 6e  |cal","There is n|
00013b80  6f 74 20 65 6e 6f 75 67  68 20 61 76 61 69 6c 61  |ot enough availa|
00013b90  62 6c 65 20 6d 65 6d 6f  72 79 20 74 6f 20 73 63  |ble memory to sc|
00013ba0  61 6e 20 74 68 65 20 69  6d 61 67 65 2e 22 29 3a  |an the image."):|
00013bb0  c8 99 22 53 63 61 6e 5f  53 74 6f 70 22 3a e1 0d  |.."Scan_Stop":..|
00013bc0  76 6b 15 44 6e 25 3d 76  75 25 2a 50 5f 25 3a e7  |vk.Dn%=vu%*P_%:.|
00013bd0  5a 75 25 8c 0d 76 6c 79  6b 75 25 3d 76 75 25 2a  |Zu%..vlyku%=vu%*|
00013be0  38 3a 6e 4a 25 3d 50 5f  25 3a 55 79 25 3d 28 76  |8:nJ%=P_%:Uy%=(v|
00013bf0  75 25 2a 38 29 2f 34 2d  31 3a 79 79 25 3d 6e 4a  |u%*8)/4-1:yy%=nJ|
00013c00  25 2d 31 3a 52 75 25 3d  28 55 79 25 2b 32 29 2a  |%-1:Ru%=(Uy%+2)*|
00013c10  34 2a 28 79 79 25 2b 35  29 2d 28 55 79 25 2b 31  |4*(yy%+5)-(Uy%+1|
00013c20  29 2a 34 2a 28 79 79 25  2b 31 29 3a 71 75 25 3d  |)*4*(yy%+1):qu%=|
00013c30  31 30 32 34 2b 52 75 25  2b 44 6e 25 3a 4b 25 3d  |1024+Ru%+Dn%:K%=|
00013c40  a4 41 28 71 75 25 2b 38  2c 4e 79 25 29 0d 76 6d  |.A(qu%+8,Ny%).vm|
00013c50  95 e7 4b 25 3d a3 f2 43  28 22 4f 70 74 69 63 61  |..K%=..C("Optica|
00013c60  6c 22 2c 22 54 68 65 72  65 20 69 73 20 6e 6f 74  |l","There is not|
00013c70  20 65 6e 6f 75 67 68 20  66 72 65 65 20 6d 65 6d  | enough free mem|
00013c80  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
00013c90  20 73 63 61 6e 20 61 6e  20 61 72 65 61 20 74 68  | scan an area th|
00013ca0  61 74 20 73 69 7a 65 2e  20 4e 65 65 64 20 22 2b  |at size. Need "+|
00013cb0  c3 28 28 71 75 25 2b 38  29 81 31 30 32 34 29 2b  |.((qu%+8).1024)+|
00013cc0  22 4b 2e 22 29 3a 4b 25  3d a4 41 28 31 2c 4e 79  |"K."):K%=.A(1,Ny|
00013cd0  25 29 3a f2 4d 28 6b 6c  25 29 3a 6c 69 25 3d a3  |%):.M(kl%):li%=.|
00013ce0  3a e1 0d 76 6e ad 21 28  41 25 28 4e 79 25 29 29  |:..vn.!(A%(Ny%))|
00013cf0  3d 5a 25 28 4e 79 25 29  3a 21 28 41 25 28 4e 79  |=Z%(Ny%):!(A%(Ny|
00013d00  25 29 2b 38 29 3d 31 36  3a 64 69 25 3d 31 38 3a  |%)+8)=16:di%=18:|
00013d10  c8 99 34 36 2c 39 2b 32  35 36 2c 41 25 28 4e 79  |..46,9+256,A%(Ny|
00013d20  25 29 3a c8 99 34 36 2c  31 35 2b 32 35 36 2c 41  |%):..46,15+256,A|
00013d30  25 28 4e 79 25 29 2c 22  53 63 61 6e 6e 65 64 22  |%(Ny%),"Scanned"|
00013d40  2c 31 2c 6b 75 25 2c 6e  4a 25 2c 64 69 25 3a c8  |,1,ku%,nJ%,di%:.|
00013d50  99 34 36 2c 32 34 2b 32  35 36 2c 41 25 28 4e 79  |.46,24+256,A%(Ny|
00013d60  25 29 2c 22 53 63 61 6e  6e 65 64 22 b8 2c 2c 63  |%),"Scanned".,,c|
00013d70  25 3a f2 60 79 3a 4e 24  3d 22 53 63 61 6e 6e 65  |%:.`y:N$="Scanne|
00013d80  64 22 3a 6a 60 25 3d 63  25 2b 63 25 21 33 32 0d  |d":j`%=c%+c%!32.|
00013d90  76 6f 78 cc 3a 6e 25 3d  76 75 25 2a 38 3a 74 25  |vox.:n%=vu%*8:t%|
00013da0  3d 50 5f 25 3a 55 79 25  3d 28 76 75 25 2a 38 29  |=P_%:Uy%=(vu%*8)|
00013db0  2f 34 2d 31 3a 79 79 25  3d 74 25 2d 31 3a 52 75  |/4-1:yy%=t%-1:Ru|
00013dc0  25 3d 28 55 79 25 2b 32  29 2a 34 2a 28 79 79 25  |%=(Uy%+2)*4*(yy%|
00013dd0  2b 35 29 2d 28 55 79 25  2b 31 29 2a 34 2a 28 79  |+5)-(Uy%+1)*4*(y|
00013de0  79 25 2b 31 29 3a 71 75  25 3d 31 30 32 34 2b 52  |y%+1):qu%=1024+R|
00013df0  75 25 2b 44 6e 25 3a 4b  25 3d a4 41 28 71 75 25  |u%+Dn%:K%=.A(qu%|
00013e00  2b 38 2c 4d 5f 25 29 0d  76 70 8b e7 4b 25 3d a3  |+8,M_%).vp..K%=.|
00013e10  f2 43 28 22 4f 70 74 69  63 61 6c 22 2c 22 54 68  |.C("Optical","Th|
00013e20  65 72 65 20 69 73 20 6e  6f 74 20 65 6e 6f 75 67  |ere is not enoug|
00013e30  68 20 66 72 65 65 20 6d  65 6d 6f 72 79 20 61 76  |h free memory av|
00013e40  61 69 6c 61 62 6c 65 20  74 6f 20 73 63 61 6e 20  |ailable to scan |
00013e50  61 6e 20 61 72 65 61 20  74 68 61 74 20 73 69 7a  |an area that siz|
00013e60  65 2e 20 4e 65 65 64 20  22 2b c3 28 28 71 75 25  |e. Need "+.((qu%|
00013e70  2b 38 29 81 31 30 32 34  29 2b 22 4b 2e 22 29 3a  |+8).1024)+"K."):|
00013e80  f2 4d 28 6b 6c 25 29 3a  f2 48 3a 6c 69 25 3d a3  |.M(kl%):.H:li%=.|
00013e90  3a e1 0d 76 71 b5 21 28  41 25 28 4d 5f 25 29 29  |:..vq.!(A%(M_%))|
00013ea0  3d 5a 25 28 4d 5f 25 29  3a 21 28 41 25 28 4d 5f  |=Z%(M_%):!(A%(M_|
00013eb0  25 29 2b 38 29 3d 31 36  3a 4a 75 25 3d 31 38 3a  |%)+8)=16:Ju%=18:|
00013ec0  56 25 3d 32 3a 52 25 3d  32 3a c8 99 34 36 2c 39  |V%=2:R%=2:..46,9|
00013ed0  2b 32 35 36 2c 41 25 28  4d 5f 25 29 3a c8 99 34  |+256,A%(M_%):..4|
00013ee0  36 2c 31 35 2b 32 35 36  2c 41 25 28 4d 5f 25 29  |6,15+256,A%(M_%)|
00013ef0  2c 22 53 63 61 6e 6e 65  64 22 2c 31 2c 6e 25 2c  |,"Scanned",1,n%,|
00013f00  74 25 2c 4a 75 25 3a c8  99 34 36 2c 32 34 2b 32  |t%,Ju%:..46,24+2|
00013f10  35 36 2c 41 25 28 4d 5f  25 29 2c 22 53 63 61 6e  |56,A%(M_%),"Scan|
00013f20  6e 65 64 22 b8 2c 2c 63  25 3a f2 60 79 3a 4d 24  |ned".,,c%:.`y:M$|
00013f30  3d 22 53 63 61 6e 6e 65  64 22 3a 6a 60 25 3d 63  |="Scanned":j`%=c|
00013f40  25 2b 63 25 21 33 32 0d  76 72 46 cd 3a 7a 79 25  |%+c%!32.vrF.:zy%|
00013f50  3d a3 3a 58 24 3d 22 57  61 74 66 6f 72 64 22 3a  |=.:X$="Watford":|
00013f60  c8 99 22 58 53 63 61 6e  5f 53 74 61 72 74 22 2c  |.."XScan_Start",|
00013f70  76 75 25 2c 50 5f 25 2c  6a 60 25 b8 5f 61 25 3b  |vu%,P_%,j`%._a%;|
00013f80  77 79 25 3a e7 28 77 79  25 80 31 29 8c 0d 76 73  |wy%:.(wy%.1)..vs|
00013f90  2f f2 43 28 22 4f 70 74  69 63 61 6c 22 2c a4 46  |/.C("Optical",.F|
00013fa0  28 5f 61 25 2b 34 29 29  3a e7 5a 75 25 4b 25 3d  |(_a%+4)):.Zu%K%=|
00013fb0  a4 41 28 31 2c 4e 79 25  29 8b f2 48 0d 76 74 18  |.A(1,Ny%)..H.vt.|
00013fc0  7a 79 25 3d b9 3a c8 99  22 58 53 63 61 6e 5f 53  |zy%=.:.."XScan_S|
00013fd0  74 6f 70 22 0d 76 75 0b  cd 3a e7 7a 79 25 e1 0d  |top".vu..:.zy%..|
00013fe0  76 76 4a c8 99 26 34 30  36 63 30 3a 7a 79 25 3d  |vvJ..&406c0:zy%=|
00013ff0  a3 3a 6d 50 25 3d 2d 31  3a 64 65 25 3d 30 3a 72  |.:mP%=-1:de%=0:r|
00014000  65 25 3d 91 3a c8 95 4e  4a 25 3c 50 5f 25 80 28  |e%=.:..NJ%<P_%.(|
00014010  91 3c 72 65 25 2b 33 30  30 84 4e 4a 25 3c 3d 31  |.<re%+300.NJ%<=1|
00014020  29 3a e7 a6 2d 31 31 33  8c 0d 76 77 26 c8 99 22  |):..-113..vw&.."|
00014030  58 53 63 61 6e 5f 53 74  6f 70 22 3a e7 5a 75 25  |XScan_Stop":.Zu%|
00014040  4b 25 3d a4 41 28 31 2c  4e 79 25 29 8b f2 48 0d  |K%=.A(1,Ny%)..H.|
00014050  76 78 11 7a 79 25 3d b9  3a 4e 4a 25 3d 50 5f 25  |vx.zy%=.:NJ%=P_%|
00014060  0d 76 79 34 cc 3a c8 99  22 58 53 63 61 6e 5f 50  |.vy4.:.."XScan_P|
00014070  6f 6c 6c 22 b8 4e 4a 25  3b 77 79 25 3a e7 4e 4a  |oll".NJ%;wy%:.NJ|
00014080  25 3c 3e 64 65 25 8c 64  65 25 3d 4e 4a 25 3a 72  |%<>de%.de%=NJ%:r|
00014090  65 25 3d 91 0d 76 7a 0d  e7 28 77 79 25 80 31 29  |e%=..vz..(wy%.1)|
000140a0  8c 0d 76 7b 4e c8 99 22  58 53 63 61 6e 5f 53 74  |..v{N.."XScan_St|
000140b0  6f 70 22 3a f2 43 28 22  4f 70 74 69 63 61 6c 22  |op":.C("Optical"|
000140c0  2c a4 46 28 5f 61 25 2b  34 29 29 3a e7 5a 75 25  |,.F(_a%+4)):.Zu%|
000140d0  4b 25 3d a4 41 28 31 2c  4e 79 25 29 8b 54 75 25  |K%=.A(1,Ny%).Tu%|
000140e0  3d 69 5f 25 3a f2 48 3a  69 5f 25 3d 54 75 25 0d  |=i_%:.H:i_%=Tu%.|
000140f0  76 7c 17 7a 79 25 3d b9  3a 4e 4a 25 3d 50 5f 25  |v|.zy%=.:NJ%=P_%|
00014100  3a 51 6e 25 3d a3 0d 76  7d 0c cc 3a 4e 4a 25 2b  |:Qn%=..v}..:NJ%+|
00014110  3d 31 0d 76 7e 2a cd 3a  c8 99 26 34 30 36 63 34  |=1.v~*.:..&406c4|
00014120  2c 28 4e 4a 25 2f 50 5f  25 29 2a 31 30 30 3a f2  |,(NJ%/P_%)*100:.|
00014130  65 4a 3a e7 57 79 25 3d  31 f2 71 5f 0d 76 7f 0d  |eJ:.Wy%=1.q_.v..|
00014140  e7 57 79 25 3d 32 f2 76  5f 0d 76 80 0a e7 21 41  |.Wy%=2.v_.v...!A|
00014150  f2 48 5f 0d 76 81 11 cd  3a ce 3a e7 4e 4a 25 3c  |.H_.v...:.:.NJ%<|
00014160  50 5f 25 8c 0d 76 82 09  e7 5a 75 25 8c 0d 76 83  |P_%..v...Zu%..v.|
00014170  60 c8 99 34 36 2c 4e 6c  25 2c 41 25 28 4e 79 25  |`..46,Nl%,A%(Ny%|
00014180  29 2c 22 53 63 61 6e 6e  65 64 22 b8 2c 2c 2c 6b  |),"Scanned".,,,k|
00014190  75 25 2c 6e 4a 25 3a c8  99 34 36 2c 32 34 2b 32  |u%,nJ%:..46,24+2|
000141a0  35 36 2c 41 25 28 4e 79  25 29 2c 22 53 63 61 6e  |56,A%(Ny%),"Scan|
000141b0  6e 65 64 22 b8 2c 2c 63  25 3a 6e 4a 25 3d 4e 4a  |ned".,,c%:nJ%=NJ|
000141c0  25 3a 63 25 21 32 30 3d  6e 4a 25 2d 31 0d 76 84  |%:c%!20=nJ%-1.v.|
000141d0  5e cc 3a c8 99 34 36 2c  4e 6c 25 2c 41 25 28 4d  |^.:..46,Nl%,A%(M|
000141e0  5f 25 29 2c 22 53 63 61  6e 6e 65 64 22 b8 2c 2c  |_%),"Scanned".,,|
000141f0  2c 6e 25 2c 74 25 3a c8  99 34 36 2c 32 34 2b 32  |,n%,t%:..46,24+2|
00014200  35 36 2c 41 25 28 4d 5f  25 29 2c 22 53 63 61 6e  |56,A%(M_%),"Scan|
00014210  6e 65 64 22 b8 2c 2c 63  25 3a 74 25 3d 4e 4a 25  |ned".,,c%:t%=NJ%|
00014220  3a 63 25 21 32 30 3d 74  25 2d 31 0d 76 85 05 cd  |:c%!20=t%-1.v...|
00014230  0d 76 86 2b cd 3a c8 99  26 34 30 36 63 31 3a c8  |.v.+.:..&406c1:.|
00014240  99 22 58 53 63 61 6e 5f  53 74 6f 70 22 3a f2 4d  |."XScan_Stop":.M|
00014250  28 6b 6c 25 29 3a e7 7a  79 25 e1 0d 76 87 27 46  |(kl%):.zy%..v.'F|
00014260  69 25 3d b9 3a c8 99 26  34 30 36 63 30 3a 56 3d  |i%=.:..&406c0:V=|
00014270  30 3a e7 5a 75 25 8c f2  4d 5f 8b f2 67 79 3a f2  |0:.Zu%..M_..gy:.|
00014280  58 79 0d 76 88 05 e1 0d  76 89 41 dd f2 62 4a 3a  |Xy.v....v.A..bJ:|
00014290  ea 6e 79 25 2c 73 5f 25  2c 77 4a 25 2c 6c 75 25  |.ny%,s_%,wJ%,lu%|
000142a0  2c 7a 5f 25 2c 73 60 25  2c 63 25 2c 54 75 25 3a  |,z_%,s`%,c%,Tu%:|
000142b0  e7 5a 75 25 3d a3 54 75  25 3d 69 5f 25 3a f2 48  |.Zu%=.Tu%=i_%:.H|
000142c0  3a 69 5f 25 3d 54 75 25  0d 76 8a 89 f2 78 3a 73  |:i_%=Tu%.v...x:s|
000142d0  60 25 3d 21 28 49 75 25  2b 33 32 2a 60 4a 25 29  |`%=!(Iu%+32*`J%)|
000142e0  3a 54 79 25 21 30 3d 73  60 25 3a 54 79 25 21 34  |:Ty%!0=s`%:Ty%!4|
000142f0  3d 30 3a 54 79 25 21 38  3d 31 30 30 3a 54 79 25  |=0:Ty%!8=100:Ty%|
00014300  21 31 32 3d 31 30 30 3a  6e 79 25 3d a4 5a 28 57  |!12=100:ny%=.Z(W|
00014310  25 2c 31 38 29 3a 73 5f  25 3d a4 5a 28 57 25 2c  |%,18):s_%=.Z(W%,|
00014320  31 39 29 3a e7 62 69 25  3c 3e 30 80 6e 79 25 3c  |19):.bi%<>0.ny%<|
00014330  3e 30 8c 54 79 25 21 31  36 3d bb 28 a4 4d 28 57  |>0.Ty%!16=.(.M(W|
00014340  25 2c 32 32 29 29 8b 54  79 25 21 31 36 3d 31 30  |%,22)).Ty%!16=10|
00014350  30 0d 76 8b 43 e7 62 69  25 3c 3e 30 80 73 5f 25  |0.v.C.bi%<>0.s_%|
00014360  3c 3e 30 8c 54 79 25 21  31 36 2b 3d bb 28 a4 4d  |<>0.Ty%!16+=.(.M|
00014370  28 57 25 2c 32 33 29 29  2a 28 31 3c 3c 31 36 29  |(W%,23))*(1<<16)|
00014380  8b 54 79 25 21 31 36 2b  3d 31 30 30 2a 28 31 3c  |.Ty%!16+=100*(1<|
00014390  3c 31 36 29 0d 76 8c 49  54 79 25 21 32 30 3d 30  |<16).v.ITy%!20=0|
000143a0  3a 6e 79 25 3d a4 5a 28  57 25 2c 33 39 29 3a 73  |:ny%=.Z(W%,39):s|
000143b0  5f 25 3d a4 5a 28 57 25  2c 34 30 29 3a 77 4a 25  |_%=.Z(W%,40):wJ%|
000143c0  3d a4 5a 28 57 25 2c 34  31 29 3a e7 6e 79 25 54  |=.Z(W%,41):.ny%T|
000143d0  79 25 21 32 34 3d 31 3a  7a 5f 25 3d 31 0d 76 8d  |y%!24=1:z_%=1.v.|
000143e0  16 e7 73 5f 25 54 79 25  21 32 34 3d 32 3a 7a 5f  |..s_%Ty%!24=2:z_|
000143f0  25 3d 32 0d 76 8e 16 e7  77 4a 25 54 79 25 21 32  |%=2.v...wJ%Ty%!2|
00014400  34 3d 34 3a 7a 5f 25 3d  34 0d 76 8f 54 6e 79 25  |4=4:z_%=4.v.Tny%|
00014410  3d a4 5a 28 57 25 2c 38  29 3a 73 5f 25 3d a4 5a  |=.Z(W%,8):s_%=.Z|
00014420  28 57 25 2c 39 29 3a 77  4a 25 3d a4 5a 28 57 25  |(W%,9):wJ%=.Z(W%|
00014430  2c 31 30 29 3a 6c 75 25  3d a4 5a 28 57 25 2c 31  |,10):lu%=.Z(W%,1|
00014440  31 29 3a e7 6e 79 25 54  79 25 21 32 38 3d 32 30  |1):.ny%Ty%!28=20|
00014450  30 2b 32 30 30 2a 28 31  3c 3c 31 36 29 0d 76 90  |0+200*(1<<16).v.|
00014460  1e e7 73 5f 25 54 79 25  21 32 38 3d 33 30 30 2b  |..s_%Ty%!28=300+|
00014470  33 30 30 2a 28 31 3c 3c  31 36 29 0d 76 91 1e e7  |300*(1<<16).v...|
00014480  77 4a 25 54 79 25 21 32  38 3d 34 30 30 2b 34 30  |wJ%Ty%!28=400+40|
00014490  30 2a 28 31 3c 3c 31 36  29 0d 76 92 27 e7 6c 75  |0*(1<<16).v.'.lu|
000144a0  25 8c 54 79 25 21 32 38  3d 43 25 28 4d 75 25 29  |%.Ty%!28=C%(Mu%)|
000144b0  2b 46 25 28 4d 75 25 29  2a 28 31 3c 3c 31 36 29  |+F%(Mu%)*(1<<16)|
000144c0  0d 76 93 1e 6e 79 25 3d  a4 5a 28 57 25 2c 34 33  |.v..ny%=.Z(W%,43|
000144d0  29 3a e7 6e 79 25 3c 3e  30 80 46 69 25 8c 0d 76  |):.ny%<>0.Fi%..v|
000144e0  94 07 f2 6f 75 0d 76 95  24 cc 3a e7 a4 4d 28 57  |...ou.v.$.:..M(W|
000144f0  25 2c 32 38 29 3d 22 49  6e 63 68 65 73 22 56 4a  |%,28)="Inches"VJ|
00014500  25 3d b9 8b 56 4a 25 3d  a3 0d 76 96 12 f2 78 3a  |%=..VJ%=..v...x:|
00014510  4b 6c 25 3d 30 3a 53 69  25 3d 30 0d 76 97 7a cd  |Kl%=0:Si%=0.v.z.|
00014520  3a 4a 69 25 3d a4 56 3a  62 75 25 3d 63 79 25 2a  |:Ji%=.V:bu%=cy%*|
00014530  28 54 79 25 21 32 38 83  28 31 3c 3c 31 36 29 29  |(Ty%!28.(1<<16))|
00014540  2f 37 32 30 30 30 3a e7  7a 5f 25 3e 31 84 42 6f  |/72000:.z_%>1.Bo|
00014550  25 8c 50 5f 25 3d 28 4a  69 25 2d 75 6e 25 29 2f  |%.P_%=(Ji%-un%)/|
00014560  28 28 34 2b 62 75 25 2a  7a 5f 25 2f 38 29 2b 28  |((4+bu%*z_%/8)+(|
00014570  34 2b 62 75 25 2f 38 29  29 2d 34 8b 50 5f 25 3d  |4+bu%/8))-4.P_%=|
00014580  28 4a 69 25 2d 75 6e 25  29 2f 28 34 2b 62 75 25  |(Ji%-un%)/(4+bu%|
00014590  2f 38 29 2d 34 0d 76 98  53 e7 50 5f 25 3c 31 f2  |/8)-4.v.S.P_%<1.|
000145a0  43 28 22 4f 70 74 69 63  61 6c 22 2c 22 54 68 65  |C("Optical","The|
000145b0  72 65 20 69 73 20 6e 6f  74 20 65 6e 6f 75 67 68  |re is not enough|
000145c0  20 61 76 61 69 6c 61 62  6c 65 20 6d 65 6d 6f 72  | available memor|
000145d0  79 20 74 6f 20 73 63 61  6e 20 74 68 65 20 69 6d  |y to scan the im|
000145e0  61 67 65 2e 22 29 3a e1  0d 76 99 32 50 5f 25 3d  |age."):..v.2P_%=|
000145f0  50 5f 25 2a 37 32 30 30  30 2f 28 54 79 25 21 32  |P_%*72000/(Ty%!2|
00014600  38 81 28 31 3c 3c 31 36  29 29 3a e7 52 79 25 3e  |8.(1<<16)):.Ry%>|
00014610  50 5f 25 52 79 25 3d 50  5f 25 0d 76 9a 79 5a 25  |P_%Ry%=P_%.v.yZ%|
00014620  21 30 3d 4b 6c 25 3a 5a  25 21 34 3d 53 69 25 3a  |!0=Kl%:Z%!4=Si%:|
00014630  5a 25 21 38 3d 63 79 25  3a 5a 25 21 31 32 3d 52  |Z%!8=cy%:Z%!12=R|
00014640  79 25 3a c8 99 26 36 31  64 63 32 2c 6c 79 25 2c  |y%:..&61dc2,ly%,|
00014650  54 79 25 2c 5a 25 b8 5f  61 25 2c 2c 2c 76 75 25  |Ty%,Z%._a%,,,vu%|
00014660  2c 50 5f 25 2c 44 6e 25  3b 77 79 25 3a e7 77 79  |,P_%,Dn%;wy%:.wy|
00014670  25 80 31 f2 43 28 22 4f  70 74 69 63 61 6c 22 2c  |%.1.C("Optical",|
00014680  a4 46 28 5f 61 25 2b 34  29 29 3a f2 44 28 57 25  |.F(_a%+4)):.D(W%|
00014690  29 3a e1 0d 76 9b 09 e7  5a 75 25 8c 0d 76 9c 81  |):..v...Zu%..v..|
000146a0  6b 75 25 3d 76 75 25 2a  38 2f 7a 5f 25 3a 6e 4a  |ku%=vu%*8/z_%:nJ|
000146b0  25 3d 50 5f 25 3a 55 79  25 3d 28 76 75 25 2a 38  |%=P_%:Uy%=(vu%*8|
000146c0  2f 7a 5f 25 29 2f 34 2d  31 3a 79 79 25 3d 6e 4a  |/z_%)/4-1:yy%=nJ|
000146d0  25 2d 31 3a 52 75 25 3d  28 55 79 25 2b 32 29 2a  |%-1:Ru%=(Uy%+2)*|
000146e0  34 2a 28 79 79 25 2b 35  29 2d 28 55 79 25 2b 31  |4*(yy%+5)-(Uy%+1|
000146f0  29 2a 34 2a 28 79 79 25  2b 31 29 3a 71 75 25 3d  |)*4*(yy%+1):qu%=|
00014700  31 30 32 34 2b 52 75 25  2b 44 6e 25 3a 4b 25 3d  |1024+Ru%+Dn%:K%=|
00014710  a4 41 28 71 75 25 2b 38  2c 4e 79 25 29 0d 76 9d  |.A(qu%+8,Ny%).v.|
00014720  95 e7 4b 25 3d a3 f2 43  28 22 4f 70 74 69 63 61  |..K%=..C("Optica|
00014730  6c 22 2c 22 54 68 65 72  65 20 69 73 20 6e 6f 74  |l","There is not|
00014740  20 65 6e 6f 75 67 68 20  66 72 65 65 20 6d 65 6d  | enough free mem|
00014750  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
00014760  20 73 63 61 6e 20 61 6e  20 61 72 65 61 20 74 68  | scan an area th|
00014770  61 74 20 73 69 7a 65 2e  20 4e 65 65 64 20 22 2b  |at size. Need "+|
00014780  c3 28 28 71 75 25 2b 38  29 81 31 30 32 34 29 2b  |.((qu%+8).1024)+|
00014790  22 4b 2e 22 29 3a 4b 25  3d a4 41 28 31 2c 4e 79  |"K."):K%=.A(1,Ny|
000147a0  25 29 3a f2 4d 28 6b 6c  25 29 3a 6c 69 25 3d a3  |%):.M(kl%):li%=.|
000147b0  3a e1 0d 76 9e 2d 21 28  41 25 28 4e 79 25 29 29  |:..v.-!(A%(Ny%))|
000147c0  3d 5a 25 28 4e 79 25 29  3a 21 28 41 25 28 4e 79  |=Z%(Ny%):!(A%(Ny|
000147d0  25 29 2b 38 29 3d 31 36  3a c8 8e 7a 5f 25 ca 0d  |%)+8)=16:..z_%..|
000147e0  76 9f 0d c9 31 3a 64 69  25 3d 31 38 0d 76 a0 0d  |v...1:di%=18.v..|
000147f0  c9 32 3a 64 69 25 3d 31  39 0d 76 a1 0d c9 34 3a  |.2:di%=19.v...4:|
00014800  64 69 25 3d 32 30 0d 76  a2 85 cb 3a c8 99 34 36  |di%=20.v...:..46|
00014810  2c 39 2b 32 35 36 2c 41  25 28 4e 79 25 29 3a c8  |,9+256,A%(Ny%):.|
00014820  99 34 36 2c 31 35 2b 32  35 36 2c 41 25 28 4e 79  |.46,15+256,A%(Ny|
00014830  25 29 2c 22 53 63 61 6e  6e 65 64 22 2c 31 2c 6b  |%),"Scanned",1,k|
00014840  75 25 2c 6e 4a 25 2c 64  69 25 3a c8 99 34 36 2c  |u%,nJ%,di%:..46,|
00014850  32 34 2b 32 35 36 2c 41  25 28 4e 79 25 29 2c 22  |24+256,A%(Ny%),"|
00014860  53 63 61 6e 6e 65 64 22  b8 2c 2c 63 25 3a f2 60  |Scanned".,,c%:.`|
00014870  79 3a 4e 24 3d 22 53 63  61 6e 6e 65 64 22 3a 6a  |y:N$="Scanned":j|
00014880  60 25 3d 63 25 2b 63 25  21 33 32 0d 76 a3 80 cc  |`%=c%+c%!32.v...|
00014890  3a 6e 25 3d 76 75 25 2a  38 2f 7a 5f 25 3a 74 25  |:n%=vu%*8/z_%:t%|
000148a0  3d 50 5f 25 3a 55 79 25  3d 28 76 75 25 2a 38 2f  |=P_%:Uy%=(vu%*8/|
000148b0  7a 5f 25 29 2f 34 2d 31  3a 79 79 25 3d 74 25 2d  |z_%)/4-1:yy%=t%-|
000148c0  31 3a 52 75 25 3d 28 55  79 25 2b 32 29 2a 34 2a  |1:Ru%=(Uy%+2)*4*|
000148d0  28 79 79 25 2b 35 29 2d  28 55 79 25 2b 31 29 2a  |(yy%+5)-(Uy%+1)*|
000148e0  34 2a 28 79 79 25 2b 31  29 3a 71 75 25 3d 31 30  |4*(yy%+1):qu%=10|
000148f0  32 34 2b 52 75 25 2b 44  6e 25 3a 4b 25 3d a4 41  |24+Ru%+Dn%:K%=.A|
00014900  28 71 75 25 2b 38 2c 4d  5f 25 29 0d 76 a4 8b e7  |(qu%+8,M_%).v...|
00014910  4b 25 3d a3 f2 43 28 22  4f 70 74 69 63 61 6c 22  |K%=..C("Optical"|
00014920  2c 22 54 68 65 72 65 20  69 73 20 6e 6f 74 20 65  |,"There is not e|
00014930  6e 6f 75 67 68 20 66 72  65 65 20 6d 65 6d 6f 72  |nough free memor|
00014940  79 20 61 76 61 69 6c 61  62 6c 65 20 74 6f 20 73  |y available to s|
00014950  63 61 6e 20 61 6e 20 61  72 65 61 20 74 68 61 74  |can an area that|
00014960  20 73 69 7a 65 2e 20 4e  65 65 64 20 22 2b c3 28  | size. Need "+.(|
00014970  28 71 75 25 2b 38 29 81  31 30 32 34 29 2b 22 4b  |(qu%+8).1024)+"K|
00014980  2e 22 29 3a f2 4d 28 6b  6c 25 29 3a f2 48 3a 6c  |."):.M(kl%):.H:l|
00014990  69 25 3d a3 3a e1 0d 76  a5 2d 21 28 41 25 28 4d  |i%=.:..v.-!(A%(M|
000149a0  5f 25 29 29 3d 5a 25 28  4d 5f 25 29 3a 21 28 41  |_%))=Z%(M_%):!(A|
000149b0  25 28 4d 5f 25 29 2b 38  29 3d 31 36 3a c8 8e 7a  |%(M_%)+8)=16:..z|
000149c0  5f 25 ca 0d 76 a6 0d c9  31 3a 4a 75 25 3d 31 38  |_%..v...1:Ju%=18|
000149d0  0d 76 a7 0d c9 32 3a 4a  75 25 3d 31 39 0d 76 a8  |.v...2:Ju%=19.v.|
000149e0  0d c9 34 3a 4a 75 25 3d  32 30 0d 76 a9 8d cb 3a  |..4:Ju%=20.v...:|
000149f0  56 25 3d 32 3a 52 25 3d  32 3a c8 99 34 36 2c 39  |V%=2:R%=2:..46,9|
00014a00  2b 32 35 36 2c 41 25 28  4d 5f 25 29 3a c8 99 34  |+256,A%(M_%):..4|
00014a10  36 2c 31 35 2b 32 35 36  2c 41 25 28 4d 5f 25 29  |6,15+256,A%(M_%)|
00014a20  2c 22 53 63 61 6e 6e 65  64 22 2c 31 2c 6e 25 2c  |,"Scanned",1,n%,|
00014a30  74 25 2c 4a 75 25 3a c8  99 34 36 2c 32 34 2b 32  |t%,Ju%:..46,24+2|
00014a40  35 36 2c 41 25 28 4d 5f  25 29 2c 22 53 63 61 6e  |56,A%(M_%),"Scan|
00014a50  6e 65 64 22 b8 2c 2c 63  25 3a f2 60 79 3a 4d 24  |ned".,,c%:.`y:M$|
00014a60  3d 22 53 63 61 6e 6e 65  64 22 3a 6a 60 25 3d 63  |="Scanned":j`%=c|
00014a70  25 2b 63 25 21 33 32 0d  76 aa 3c cd 3a 6e 79 25  |%+c%!32.v.<.:ny%|
00014a80  3d a4 5a 28 57 25 2c 31  37 29 3a 73 5f 25 3d a4  |=.Z(W%,17):s_%=.|
00014a90  5a 28 57 25 2c 32 31 29  3a 42 5f 25 3d 31 32 38  |Z(W%,21):B_%=128|
00014aa0  3a e7 5f 75 25 80 28 31  3c 3c 30 29 8c 42 5f 25  |:._u%.(1<<0).B_%|
00014ab0  2b 3d 31 0d 76 ab 19 e7  6e 79 25 3c 3e 30 80 46  |+=1.v...ny%<>0.F|
00014ac0  6b 25 3c 3e 30 8c 42 5f  25 2b 3d 34 0d 76 ac 19  |k%<>0.B_%+=4.v..|
00014ad0  e7 73 5f 25 3c 3e 30 80  57 42 25 3c 3e 30 8c 42  |.s_%<>0.WB%<>0.B|
00014ae0  5f 25 2b 3d 38 0d 76 ad  17 e7 5f 75 25 80 28 31  |_%+=8.v..._u%.(1|
00014af0  3c 3c 36 29 8c 42 5f 25  2b 3d 36 34 0d 76 ae 34  |<<6).B_%+=64.v.4|
00014b00  c8 99 26 34 31 64 63 34  2c 6c 79 25 2c 2c 6a 60  |..&41dc4,ly%,,j`|
00014b10  25 2c 42 5f 25 b8 2c 2c  51 6e 25 2c 60 50 25 2c  |%,B_%.,,Qn%,`P%,|
00014b20  70 50 25 3a e7 51 6e 25  c8 99 26 34 30 36 63 30  |pP%:.Qn%..&406c0|
00014b30  0d 76 af 24 7a 79 25 3d  a3 3a c8 95 51 6e 25 3a  |.v.$zy%=.:..Qn%:|
00014b40  e7 a6 2d 31 31 33 80 28  5f 75 25 80 28 31 3c 3c  |..-113.(_u%.(1<<|
00014b50  30 29 29 8c 0d 76 b0 31  c8 99 26 36 31 64 63 35  |0))..v.1..&61dc5|
00014b60  2c 6c 79 25 3a c8 99 26  36 31 64 63 33 2c 6c 79  |,ly%:..&61dc3,ly|
00014b70  25 b8 5f 61 25 2c 2c 51  6e 25 2c 4e 4a 25 2c 67  |%._a%,,Qn%,NJ%,g|
00014b80  5f 3b 77 79 25 0d 76 b1  30 cc 3a c8 99 26 36 31  |_;wy%.v.0.:..&61|
00014b90  64 63 33 2c 6c 79 25 b8  5f 61 25 2c 2c 51 6e 25  |dc3,ly%._a%,,Qn%|
00014ba0  2c 4e 4a 25 2c 67 5f 3b  77 79 25 3a e7 28 77 79  |,NJ%,g_;wy%:.(wy|
00014bb0  25 80 31 29 8c 0d 76 b2  4c c8 99 26 36 31 64 63  |%.1)..v.L..&61dc|
00014bc0  35 2c 6c 79 25 3a f2 43  28 22 4f 70 74 69 63 61  |5,ly%:.C("Optica|
00014bd0  6c 22 2c a4 46 28 5f 61  25 2b 34 29 29 3a e7 5a  |l",.F(_a%+4)):.Z|
00014be0  75 25 4b 25 3d a4 41 28  31 2c 4e 79 25 29 8b 54  |u%K%=.A(1,Ny%).T|
00014bf0  75 25 3d 69 5f 25 3a f2  48 3a 69 5f 25 3d 54 75  |u%=i_%:.H:i_%=Tu|
00014c00  25 0d 76 b3 1d 7a 79 25  3d b9 3a 4e 4a 25 3d 50  |%.v..zy%=.:NJ%=P|
00014c10  5f 25 3a 51 6e 25 3d a3  3a 6c 69 25 3d a3 0d 76  |_%:Qn%=.:li%=..v|
00014c20  b4 0c cc 3a 4e 4a 25 2b  3d 31 0d 76 b5 2a cd 3a  |...:NJ%+=1.v.*.:|
00014c30  c8 99 26 34 30 36 63 34  2c 28 4e 4a 25 2f 50 5f  |..&406c4,(NJ%/P_|
00014c40  25 29 2a 31 30 30 3a f2  65 4a 3a e7 57 79 25 3d  |%)*100:.eJ:.Wy%=|
00014c50  31 f2 71 5f 0d 76 b6 0d  e7 57 79 25 3d 32 f2 76  |1.q_.v...Wy%=2.v|
00014c60  5f 0d 76 b7 0a e7 21 41  f2 48 5f 0d 76 b8 37 cd  |_.v...!A.H_.v.7.|
00014c70  3a ce 3a e7 28 5f 75 25  80 28 31 3c 3c 30 29 29  |:.:.(_u%.(1<<0))|
00014c80  3d a3 c8 99 26 36 31 64  63 33 2c 6c 79 25 b8 5f  |=...&61dc3,ly%._|
00014c90  61 25 2c 2c 51 6e 25 2c  4e 4a 25 2c 67 5f 3b 77  |a%,,Qn%,NJ%,g_;w|
00014ca0  79 25 0d 76 b9 0d e7 4e  4a 25 3c 50 5f 25 8c 0d  |y%.v...NJ%<P_%..|
00014cb0  76 ba 09 e7 5a 75 25 8c  0d 76 bb 60 c8 99 34 36  |v...Zu%..v.`..46|
00014cc0  2c 4e 6c 25 2c 41 25 28  4e 79 25 29 2c 22 53 63  |,Nl%,A%(Ny%),"Sc|
00014cd0  61 6e 6e 65 64 22 b8 2c  2c 2c 6b 75 25 2c 6e 4a  |anned".,,,ku%,nJ|
00014ce0  25 3a c8 99 34 36 2c 32  34 2b 32 35 36 2c 41 25  |%:..46,24+256,A%|
00014cf0  28 4e 79 25 29 2c 22 53  63 61 6e 6e 65 64 22 b8  |(Ny%),"Scanned".|
00014d00  2c 2c 63 25 3a 6e 4a 25  3d 4e 4a 25 3a 63 25 21  |,,c%:nJ%=NJ%:c%!|
00014d10  32 30 3d 6e 4a 25 2d 31  0d 76 bc 5e cc 3a c8 99  |20=nJ%-1.v.^.:..|
00014d20  34 36 2c 4e 6c 25 2c 41  25 28 4d 5f 25 29 2c 22  |46,Nl%,A%(M_%),"|
00014d30  53 63 61 6e 6e 65 64 22  b8 2c 2c 2c 6e 25 2c 74  |Scanned".,,,n%,t|
00014d40  25 3a c8 99 34 36 2c 32  34 2b 32 35 36 2c 41 25  |%:..46,24+256,A%|
00014d50  28 4d 5f 25 29 2c 22 53  63 61 6e 6e 65 64 22 b8  |(M_%),"Scanned".|
00014d60  2c 2c 63 25 3a 74 25 3d  4e 4a 25 3a 63 25 21 32  |,,c%:t%=NJ%:c%!2|
00014d70  30 3d 74 25 2d 31 0d 76  bd 05 cd 0d 76 be 2e cd  |0=t%-1.v....v...|
00014d80  3a c8 99 26 34 30 36 63  31 3a c8 99 26 36 31 64  |:..&406c1:..&61d|
00014d90  63 35 2c 6c 79 25 3a e7  5f 75 25 80 28 31 3c 3c  |c5,ly%:._u%.(1<<|
00014da0  30 29 f2 4d 28 6b 6c 25  29 0d 76 bf 09 e7 7a 79  |0).M(kl%).v...zy|
00014db0  25 e1 0d 76 c0 6d c8 99  26 34 30 36 63 30 3a 46  |%..v.m..&406c0:F|
00014dc0  69 25 3d b9 3a 6e 75 25  3d 54 79 25 21 32 38 83  |i%=.:nu%=Ty%!28.|
00014dd0  28 31 3c 3c 31 36 29 3a  64 75 25 3d 54 79 25 21  |(1<<16):du%=Ty%!|
00014de0  32 38 81 28 31 3c 3c 31  36 29 3a 41 6c 25 3d 6e  |28.(1<<16):Al%=n|
00014df0  75 25 3a 4c 6c 25 3d 64  75 25 3a 6f 61 25 3d 4b  |u%:Ll%=du%:oa%=K|
00014e00  6c 25 3a 6c 61 25 3d 53  69 25 3a 56 3d 30 3a e7  |l%:la%=Si%:V=0:.|
00014e10  5a 75 25 8c f2 4d 5f 8b  f2 67 79 3a f2 58 79 0d  |Zu%..M_..gy:.Xy.|
00014e20  76 c1 05 e1 0d 76 c2 f4  dd f2 67 69 3a ef 32 36  |v....v....gi:.26|
00014e30  3a 5a 25 21 30 3d 6b 6c  25 3a c8 99 26 34 30 30  |:Z%!0=kl%:..&400|
00014e40  63 62 2c 2c 5a 25 3a 4c  25 3d 5a 25 21 34 2d 5a  |cb,,Z%:L%=Z%!4-Z|
00014e50  25 21 32 30 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |%!20:X%=Z%!16-Z%|
00014e60  21 32 34 3a 5a 25 21 30  3d 6b 6c 25 3a 5a 25 21  |!24:Z%!0=kl%:Z%!|
00014e70  34 3d 30 3a c8 99 26 34  30 30 63 65 2c 2c 5a 25  |4=0:..&400ce,,Z%|
00014e80  3a 43 41 25 3d 4c 25 2b  5a 25 21 38 2b 38 3a 46  |:CA%=L%+Z%!8+8:F|
00014e90  5a 25 3d 58 25 2b 5a 25  21 31 32 2b 38 3a c8 99  |Z%=X%+Z%!12+8:..|
00014ea0  35 33 2c 2d 31 2c 34 b8  2c 2c 69 61 25 3a c8 99  |53,-1,4.,,ia%:..|
00014eb0  35 33 2c 2d 31 2c 35 b8  2c 2c 76 6e 25 3a 69 61  |53,-1,5.,,vn%:ia|
00014ec0  25 3d 31 3c 3c 69 61 25  3a 76 6e 25 3d 31 3c 3c  |%=1<<ia%:vn%=1<<|
00014ed0  76 6e 25 3a 60 5a 25 3d  28 5a 25 21 31 36 2d 5a  |vn%:`Z%=(Z%!16-Z|
00014ee0  25 21 38 2d 31 36 29 2f  69 61 25 3a 6c 5a 25 3d  |%!8-16)/ia%:lZ%=|
00014ef0  28 5a 25 21 32 30 2d 5a  25 21 31 32 2d 31 36 29  |(Z%!20-Z%!12-16)|
00014f00  2f 76 6e 25 3a 77 72 25  3d 28 5a 25 21 31 36 2d  |/vn%:wr%=(Z%!16-|
00014f10  5a 25 21 38 2d 31 36 29  0d 76 c3 ea 47 41 25 3d  |Z%!8-16).v..GA%=|
00014f20  28 5a 25 21 32 30 2d 5a  25 21 31 32 2d 31 36 29  |(Z%!20-Z%!12-16)|
00014f30  3a 5a 25 21 30 3d 6b 6c  25 3a c8 99 26 34 30 30  |:Z%!0=kl%:..&400|
00014f40  63 62 2c 2c 5a 25 3a 4c  25 3d 5a 25 21 34 2d 5a  |cb,,Z%:L%=Z%!4-Z|
00014f50  25 21 32 30 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |%!20:X%=Z%!16-Z%|
00014f60  21 32 34 3a 5a 25 21 30  3d 6b 6c 25 3a 5a 25 21  |!24:Z%!0=kl%:Z%!|
00014f70  34 3d 31 3a c8 99 26 34  30 30 63 65 2c 2c 5a 25  |4=1:..&400ce,,Z%|
00014f80  3a 57 41 25 3d 4c 25 2b  5a 25 21 38 2b 38 3a 4a  |:WA%=L%+Z%!8+8:J|
00014f90  5a 25 3d 58 25 2b 5a 25  21 31 32 2b 38 3a c8 99  |Z%=X%+Z%!12+8:..|
00014fa0  35 33 2c 2d 31 2c 34 b8  2c 2c 69 61 25 3a c8 99  |53,-1,4.,,ia%:..|
00014fb0  35 33 2c 2d 31 2c 35 b8  2c 2c 76 6e 25 3a 69 61  |53,-1,5.,,vn%:ia|
00014fc0  25 3d 31 3c 3c 69 61 25  3a 76 6e 25 3d 31 3c 3c  |%=1<<ia%:vn%=1<<|
00014fd0  76 6e 25 3a 41 41 25 3d  28 5a 25 21 31 36 2d 5a  |vn%:AA%=(Z%!16-Z|
00014fe0  25 21 38 2d 31 36 29 2f  69 61 25 3a 70 5a 25 3d  |%!8-16)/ia%:pZ%=|
00014ff0  28 5a 25 21 32 30 2d 5a  25 21 31 32 2d 31 36 29  |(Z%!20-Z%!12-16)|
00015000  2f 32 0d 76 c4 34 51 41  25 3d 28 5a 25 21 31 36  |/2.v.4QA%=(Z%!16|
00015010  2d 5a 25 21 38 2d 31 36  29 3a 72 50 25 3d 28 5a  |-Z%!8-16):rP%=(Z|
00015020  25 21 32 30 2d 5a 25 21  31 32 2d 31 36 29 3a 6f  |%!20-Z%!12-16):o|
00015030  65 25 3d 30 3a e1 0d 76  c5 80 dd f2 65 4a 3a ea  |e%=0:..v....eJ:.|
00015040  55 5f 25 2c 49 5f 25 2c  4d 6c 25 2c 4d 41 25 3a  |U_%,I_%,Ml%,MA%:|
00015050  6d 79 25 3d 43 41 25 3a  41 5f 25 3d 46 5a 25 3a  |my%=CA%:A_%=FZ%:|
00015060  6e 5f 25 3d 60 5a 25 3a  63 4a 25 3d 6c 5a 25 3a  |n_%=`Z%:cJ%=lZ%:|
00015070  ef 32 36 2c 32 34 2c 6d  79 25 3b 41 5f 25 3b 6d  |.26,24,my%;A_%;m|
00015080  79 25 2b 77 72 25 2d 34  3b 41 5f 25 2b 47 41 25  |y%+wr%-4;A_%+GA%|
00015090  2d 34 3b 3a e7 5a 75 25  8c 55 5f 25 3d 6b 75 25  |-4;:.Zu%.U_%=ku%|
000150a0  3a 49 5f 25 3d 6e 4a 25  8b 55 5f 25 3d 6e 25 3a  |:I_%=nJ%.U_%=n%:|
000150b0  49 5f 25 3d 74 25 0d 76  c6 4a 7a 25 21 30 3d 31  |I_%=t%.v.Jz%!0=1|
000150c0  3a 7a 25 21 34 3d 31 3a  7a 25 21 38 3d 31 3a 7a  |:z%!4=1:z%!8=1:z|
000150d0  25 21 31 32 3d 31 3a 41  5f 25 2d 3d 28 50 5f 25  |%!12=1:A_%-=(P_%|
000150e0  2d 4e 4a 25 29 2a 32 3a  6d 79 25 2d 3d 28 55 5f  |-NJ%)*2:my%-=(U_|
000150f0  25 2a 32 2d 77 72 25 29  2f 32 3a e7 5a 75 25 8c  |%*2-wr%)/2:.Zu%.|
00015100  0d 76 c7 26 f2 49 28 41  25 28 4e 79 25 29 2c 22  |.v.&.I(A%(Ny%),"|
00015110  53 63 61 6e 6e 65 64 22  2c 6d 79 25 2c 41 5f 25  |Scanned",my%,A_%|
00015120  2c 30 2c 7a 25 29 0d 76  c8 28 cc 3a f2 49 28 41  |,0,z%).v.(.:.I(A|
00015130  25 28 4d 5f 25 29 2c 22  53 63 61 6e 6e 65 64 22  |%(M_%),"Scanned"|
00015140  2c 6d 79 25 2c 41 5f 25  2c 30 2c 7a 25 29 0d 76  |,my%,A_%,0,z%).v|
00015150  c9 b2 cd 3a 6d 79 25 3d  57 41 25 3a 41 5f 25 3d  |...:my%=WA%:A_%=|
00015160  4a 5a 25 3a 6e 5f 25 3d  41 41 25 3a 63 4a 25 3d  |JZ%:n_%=AA%:cJ%=|
00015170  70 5a 25 3a 4d 6c 25 3d  28 63 4a 25 2f 49 5f 25  |pZ%:Ml%=(cJ%/I_%|
00015180  29 2a 28 50 5f 25 2d 4e  4a 25 29 2a 32 2d 34 3a  |)*(P_%-NJ%)*2-4:|
00015190  4d 41 25 3d 28 63 4a 25  2f 49 5f 25 29 2a 28 4e  |MA%=(cJ%/I_%)*(N|
000151a0  4a 25 2d 6f 65 25 29 2a  32 2b 34 3a ef 32 36 2c  |J%-oe%)*2+4:.26,|
000151b0  32 34 2c 6d 79 25 3b 41  5f 25 2b 4d 6c 25 3b 6d  |24,my%;A_%+Ml%;m|
000151c0  79 25 2b 51 41 25 2d 38  3b 41 5f 25 2b 4d 6c 25  |y%+QA%-8;A_%+Ml%|
000151d0  2b 4d 41 25 3b 3a 6f 65  25 3d 4e 4a 25 3a e7 5a  |+MA%;:oe%=NJ%:.Z|
000151e0  75 25 8c 55 5f 25 3d 6b  75 25 3a 49 5f 25 3d 6e  |u%.U_%=ku%:I_%=n|
000151f0  4a 25 8b 55 5f 25 3d 6e  25 3a 49 5f 25 3d 74 25  |J%.U_%=n%:I_%=t%|
00015200  0d 76 ca 0d e7 55 5f 25  3e 6e 5f 25 8c 0d 76 cb  |.v...U_%>n_%..v.|
00015210  41 48 3d 28 31 3c 3c 31  36 29 2f 6e 5f 25 2a 55  |AH=(1<<16)/n_%*U|
00015220  5f 25 3a 6e 5f 25 3d 28  31 3c 3c 31 36 29 2f 48  |_%:n_%=(1<<16)/H|
00015230  2a 28 31 3c 3c 31 36 29  3a 7a 25 21 30 3d 6e 5f  |*(1<<16):z%!0=n_|
00015240  25 3a 7a 25 21 38 3d 28  31 3c 3c 31 36 29 0d 76  |%:z%!8=(1<<16).v|
00015250  cc 2b cc 3a 48 3d 28 31  3c 3c 31 36 29 2f 6e 5f  |.+.:H=(1<<16)/n_|
00015260  25 2a 55 5f 25 3a 7a 25  21 30 3d 28 31 3c 3c 31  |%*U_%:z%!0=(1<<1|
00015270  36 29 3a 7a 25 21 38 3d  48 0d 76 cd 0f cd 3a e7  |6):z%!8=H.v...:.|
00015280  49 5f 25 3e 63 4a 25 8c  0d 76 ce 42 68 3d 28 31  |I_%>cJ%..v.Bh=(1|
00015290  3c 3c 31 36 29 2f 63 4a  25 2a 49 5f 25 3a 63 4a  |<<16)/cJ%*I_%:cJ|
000152a0  25 3d 28 31 3c 3c 31 36  29 2f 68 2a 28 31 3c 3c  |%=(1<<16)/h*(1<<|
000152b0  31 36 29 3a 7a 25 21 34  3d 63 4a 25 3a 7a 25 21  |16):z%!4=cJ%:z%!|
000152c0  31 32 3d 28 31 3c 3c 31  36 29 0d 76 cf 2c cc 3a  |12=(1<<16).v.,.:|
000152d0  68 3d 28 31 3c 3c 31 36  29 2f 63 4a 25 2a 49 5f  |h=(1<<16)/cJ%*I_|
000152e0  25 3a 7a 25 21 34 3d 28  31 3c 3c 31 36 29 3a 7a  |%:z%!4=(1<<16):z|
000152f0  25 21 31 32 3d 68 0d 76  d0 0b cd 3a e7 5a 75 25  |%!12=h.v...:.Zu%|
00015300  8c 0d 76 d1 26 f2 49 28  41 25 28 4e 79 25 29 2c  |..v.&.I(A%(Ny%),|
00015310  22 53 63 61 6e 6e 65 64  22 2c 6d 79 25 2c 41 5f  |"Scanned",my%,A_|
00015320  25 2c 30 2c 7a 25 29 0d  76 d2 28 cc 3a f2 49 28  |%,0,z%).v.(.:.I(|
00015330  41 25 28 4d 5f 25 29 2c  22 53 63 61 6e 6e 65 64  |A%(M_%),"Scanned|
00015340  22 2c 6d 79 25 2c 41 5f  25 2c 30 2c 7a 25 29 0d  |",my%,A_%,0,z%).|
00015350  76 d3 07 cd 3a e1 0d 76  d4 26 dd f2 58 69 3a 63  |v...:..v.&..Xi:c|
00015360  79 25 3d 58 6c 25 3a e7  43 75 25 3d 2d 31 52 79  |y%=Xl%:.Cu%=-1Ry|
00015370  25 3d a4 59 8b 52 79 25  3d 43 75 25 0d 76 d5 0d  |%=.Y.Ry%=Cu%.v..|
00015380  e7 6c 79 25 3c 78 4a 25  8c 0d 76 d6 86 73 60 25  |.ly%<xJ%..v..s`%|
00015390  3d 21 28 49 75 25 2b 33  32 2a 60 4a 25 29 3a 54  |=!(Iu%+32*`J%):T|
000153a0  79 25 21 30 3d 73 60 25  3a 54 79 25 21 34 3d 30  |y%!0=s`%:Ty%!4=0|
000153b0  3a 54 79 25 21 38 3d 31  30 30 3a 54 79 25 21 31  |:Ty%!8=100:Ty%!1|
000153c0  32 3d 31 30 30 3a 6e 79  25 3d a4 5a 28 57 25 2c  |2=100:ny%=.Z(W%,|
000153d0  31 38 29 3a 73 5f 25 3d  a4 5a 28 57 25 2c 31 39  |18):s_%=.Z(W%,19|
000153e0  29 3a e7 62 69 25 3c 3e  30 80 6e 79 25 3c 3e 30  |):.bi%<>0.ny%<>0|
000153f0  8c 54 79 25 21 31 36 3d  bb 28 a4 4d 28 57 25 2c  |.Ty%!16=.(.M(W%,|
00015400  32 32 29 29 8b 54 79 25  21 31 36 3d 31 30 30 0d  |22)).Ty%!16=100.|
00015410  76 d7 43 e7 62 69 25 3c  3e 30 80 73 5f 25 3c 3e  |v.C.bi%<>0.s_%<>|
00015420  30 8c 54 79 25 21 31 36  2b 3d bb 28 a4 4d 28 57  |0.Ty%!16+=.(.M(W|
00015430  25 2c 32 33 29 29 2a 28  31 3c 3c 31 36 29 8b 54  |%,23))*(1<<16).T|
00015440  79 25 21 31 36 2b 3d 31  30 30 2a 28 31 3c 3c 31  |y%!16+=100*(1<<1|
00015450  36 29 0d 76 d8 49 54 79  25 21 32 30 3d 30 3a 6e  |6).v.ITy%!20=0:n|
00015460  79 25 3d a4 5a 28 57 25  2c 33 39 29 3a 73 5f 25  |y%=.Z(W%,39):s_%|
00015470  3d a4 5a 28 57 25 2c 34  30 29 3a 77 4a 25 3d a4  |=.Z(W%,40):wJ%=.|
00015480  5a 28 57 25 2c 34 31 29  3a e7 6e 79 25 54 79 25  |Z(W%,41):.ny%Ty%|
00015490  21 32 34 3d 31 3a 7a 5f  25 3d 31 0d 76 d9 16 e7  |!24=1:z_%=1.v...|
000154a0  73 5f 25 54 79 25 21 32  34 3d 32 3a 7a 5f 25 3d  |s_%Ty%!24=2:z_%=|
000154b0  32 0d 76 da 16 e7 77 4a  25 54 79 25 21 32 34 3d  |2.v...wJ%Ty%!24=|
000154c0  34 3a 7a 5f 25 3d 34 0d  76 db 54 6e 79 25 3d a4  |4:z_%=4.v.Tny%=.|
000154d0  5a 28 57 25 2c 38 29 3a  73 5f 25 3d a4 5a 28 57  |Z(W%,8):s_%=.Z(W|
000154e0  25 2c 39 29 3a 77 4a 25  3d a4 5a 28 57 25 2c 31  |%,9):wJ%=.Z(W%,1|
000154f0  30 29 3a 6c 75 25 3d a4  5a 28 57 25 2c 31 31 29  |0):lu%=.Z(W%,11)|
00015500  3a e7 6e 79 25 54 79 25  21 32 38 3d 32 30 30 2b  |:.ny%Ty%!28=200+|
00015510  32 30 30 2a 28 31 3c 3c  31 36 29 0d 76 dc 1e e7  |200*(1<<16).v...|
00015520  73 5f 25 54 79 25 21 32  38 3d 33 30 30 2b 33 30  |s_%Ty%!28=300+30|
00015530  30 2a 28 31 3c 3c 31 36  29 0d 76 dd 1e e7 77 4a  |0*(1<<16).v...wJ|
00015540  25 54 79 25 21 32 38 3d  34 30 30 2b 34 30 30 2a  |%Ty%!28=400+400*|
00015550  28 31 3c 3c 31 36 29 0d  76 de 27 e7 6c 75 25 8c  |(1<<16).v.'.lu%.|
00015560  54 79 25 21 32 38 3d 43  25 28 4d 75 25 29 2b 46  |Ty%!28=C%(Mu%)+F|
00015570  25 28 4d 75 25 29 2a 28  31 3c 3c 31 36 29 0d 76  |%(Mu%)*(1<<16).v|
00015580  df 5a 5a 25 21 30 3d 30  3a 5a 25 21 34 3d 30 3a  |.ZZ%!0=0:Z%!4=0:|
00015590  5a 25 21 38 3d 63 79 25  3a 5a 25 21 31 32 3d 52  |Z%!8=cy%:Z%!12=R|
000155a0  79 25 3a c8 99 26 36 31  64 63 32 2c 6c 79 25 2c  |y%:..&61dc2,ly%,|
000155b0  54 79 25 2c 5a 25 b8 2c  2c 2c 65 41 25 2c 49 41  |Ty%,Z%.,,,eA%,IA|
000155c0  25 2c 44 6e 25 3a 63 79  25 3d 5a 25 21 38 3a 52  |%,Dn%:cy%=Z%!8:R|
000155d0  79 25 3d 5a 25 21 31 32  0d 76 e0 24 cd 3a e7 a4  |y%=Z%!12.v.$.:..|
000155e0  4d 28 57 25 2c 32 38 29  3d 22 49 6e 63 68 65 73  |M(W%,28)="Inches|
000155f0  22 56 4a 25 3d b9 8b 56  4a 25 3d a3 0d 76 e1 09  |"VJ%=..VJ%=..v..|
00015600  e7 56 4a 25 8c 0d 76 e2  41 f2 41 28 57 25 2c 33  |.VJ%..v.A.A(W%,3|
00015610  31 2c c0 c3 28 a4 57 28  63 79 25 2f 37 32 30 30  |1,..(.W(cy%/7200|
00015620  30 29 29 2c 37 29 29 3a  f2 41 28 57 25 2c 33 32  |0)),7)):.A(W%,32|
00015630  2c c0 c3 28 a4 57 28 52  79 25 2f 37 32 30 30 30  |,..(.W(Ry%/72000|
00015640  29 29 2c 37 29 29 0d 76  e3 47 cc 3a f2 41 28 57  |)),7)).v.G.:.A(W|
00015650  25 2c 33 31 2c c0 c3 28  a4 57 28 63 79 25 2f 37  |%,31,..(.W(cy%/7|
00015660  32 30 30 30 2a 53 29 29  2c 37 29 29 3a f2 41 28  |2000*S)),7)):.A(|
00015670  57 25 2c 33 32 2c c0 c3  28 a4 57 28 52 79 25 2f  |W%,32,..(.W(Ry%/|
00015680  37 32 30 30 30 2a 53 29  29 2c 37 29 29 0d 76 e4  |72000*S)),7)).v.|
00015690  07 cd 3a e1 0d 76 e5 3e  dd f2 78 3a ea 4a 69 25  |..:..v.>..x:.Ji%|
000156a0  2c 6e 79 25 3a f2 61 79  3a 6e 79 25 3d a4 5a 28  |,ny%:.ay:ny%=.Z(|
000156b0  57 25 2c 34 33 29 3a e7  28 46 69 25 80 6e 79 25  |W%,43):.(Fi%.ny%|
000156c0  3c 3e 30 29 84 28 56 61  25 80 28 31 3c 3c 34 29  |<>0).(Va%.(1<<4)|
000156d0  29 e1 0d 76 e6 22 e7 a4  4d 28 57 25 2c 32 38 29  |)..v."..M(W%,28)|
000156e0  3d 22 49 6e 63 68 65 73  22 56 4a 25 3d b9 8b 56  |="Inches"VJ%=..V|
000156f0  4a 25 3d a3 0d 76 e7 09  e7 56 4a 25 8c 0d 76 e8  |J%=..v...VJ%..v.|
00015700  31 63 79 25 3d bb 28 a4  4d 28 57 25 2c 33 31 29  |1cy%=.(.M(W%,31)|
00015710  29 2a 37 32 30 30 30 3a  52 79 25 3d bb 28 a4 4d  |)*72000:Ry%=.(.M|
00015720  28 57 25 2c 33 32 29 29  2a 37 32 30 30 30 0d 76  |(W%,32))*72000.v|
00015730  e9 37 cc 3a 63 79 25 3d  bb 28 a4 4d 28 57 25 2c  |.7.:cy%=.(.M(W%,|
00015740  33 31 29 29 2a 37 32 30  30 30 2f 53 3a 52 79 25  |31))*72000/S:Ry%|
00015750  3d bb 28 a4 4d 28 57 25  2c 33 32 29 29 2a 37 32  |=.(.M(W%,32))*72|
00015760  30 30 30 2f 53 0d 76 ea  15 cd 3a e7 63 79 25 3e  |000/S.v...:.cy%>|
00015770  58 6c 25 63 79 25 3d 58  6c 25 0d 76 eb 13 e7 63  |Xl%cy%=Xl%.v...c|
00015780  79 25 3c 6d 6c 25 63 79  25 3d 6d 6c 25 0d 76 ec  |y%<ml%cy%=ml%.v.|
00015790  1b e7 52 79 25 3e 43 75  25 80 43 75 25 3c 3e 2d  |..Ry%>Cu%.Cu%<>-|
000157a0  31 52 79 25 3d 43 75 25  0d 76 ed 13 e7 52 79 25  |1Ry%=Cu%.v...Ry%|
000157b0  3c 74 6c 25 52 79 25 3d  74 6c 25 0d 76 ee 0d e7  |<tl%Ry%=tl%.v...|
000157c0  6c 79 25 3c 78 4a 25 8c  0d 76 ef 86 73 60 25 3d  |ly%<xJ%..v..s`%=|
000157d0  21 28 49 75 25 2b 33 32  2a 60 4a 25 29 3a 54 79  |!(Iu%+32*`J%):Ty|
000157e0  25 21 30 3d 73 60 25 3a  54 79 25 21 34 3d 30 3a  |%!0=s`%:Ty%!4=0:|
000157f0  54 79 25 21 38 3d 31 30  30 3a 54 79 25 21 31 32  |Ty%!8=100:Ty%!12|
00015800  3d 31 30 30 3a 6e 79 25  3d a4 5a 28 57 25 2c 31  |=100:ny%=.Z(W%,1|
00015810  38 29 3a 73 5f 25 3d a4  5a 28 57 25 2c 31 39 29  |8):s_%=.Z(W%,19)|
00015820  3a e7 62 69 25 3c 3e 30  80 6e 79 25 3c 3e 30 8c  |:.bi%<>0.ny%<>0.|
00015830  54 79 25 21 31 36 3d bb  28 a4 4d 28 57 25 2c 32  |Ty%!16=.(.M(W%,2|
00015840  32 29 29 8b 54 79 25 21  31 36 3d 31 30 30 0d 76  |2)).Ty%!16=100.v|
00015850  f0 43 e7 62 69 25 3c 3e  30 80 73 5f 25 3c 3e 30  |.C.bi%<>0.s_%<>0|
00015860  8c 54 79 25 21 31 36 2b  3d bb 28 a4 4d 28 57 25  |.Ty%!16+=.(.M(W%|
00015870  2c 32 33 29 29 2a 28 31  3c 3c 31 36 29 8b 54 79  |,23))*(1<<16).Ty|
00015880  25 21 31 36 2b 3d 31 30  30 2a 28 31 3c 3c 31 36  |%!16+=100*(1<<16|
00015890  29 0d 76 f1 49 54 79 25  21 32 30 3d 30 3a 6e 79  |).v.ITy%!20=0:ny|
000158a0  25 3d a4 5a 28 57 25 2c  33 39 29 3a 73 5f 25 3d  |%=.Z(W%,39):s_%=|
000158b0  a4 5a 28 57 25 2c 34 30  29 3a 77 4a 25 3d a4 5a  |.Z(W%,40):wJ%=.Z|
000158c0  28 57 25 2c 34 31 29 3a  e7 6e 79 25 54 79 25 21  |(W%,41):.ny%Ty%!|
000158d0  32 34 3d 31 3a 7a 5f 25  3d 31 0d 76 f2 16 e7 73  |24=1:z_%=1.v...s|
000158e0  5f 25 54 79 25 21 32 34  3d 32 3a 7a 5f 25 3d 32  |_%Ty%!24=2:z_%=2|
000158f0  0d 76 f3 16 e7 77 4a 25  54 79 25 21 32 34 3d 34  |.v...wJ%Ty%!24=4|
00015900  3a 7a 5f 25 3d 34 0d 76  f4 54 6e 79 25 3d a4 5a  |:z_%=4.v.Tny%=.Z|
00015910  28 57 25 2c 38 29 3a 73  5f 25 3d a4 5a 28 57 25  |(W%,8):s_%=.Z(W%|
00015920  2c 39 29 3a 77 4a 25 3d  a4 5a 28 57 25 2c 31 30  |,9):wJ%=.Z(W%,10|
00015930  29 3a 6c 75 25 3d a4 5a  28 57 25 2c 31 31 29 3a  |):lu%=.Z(W%,11):|
00015940  e7 6e 79 25 54 79 25 21  32 38 3d 32 30 30 2b 32  |.ny%Ty%!28=200+2|
00015950  30 30 2a 28 31 3c 3c 31  36 29 0d 76 f5 1e e7 73  |00*(1<<16).v...s|
00015960  5f 25 54 79 25 21 32 38  3d 33 30 30 2b 33 30 30  |_%Ty%!28=300+300|
00015970  2a 28 31 3c 3c 31 36 29  0d 76 f6 1e e7 77 4a 25  |*(1<<16).v...wJ%|
00015980  54 79 25 21 32 38 3d 34  30 30 2b 34 30 30 2a 28  |Ty%!28=400+400*(|
00015990  31 3c 3c 31 36 29 0d 76  f7 27 e7 6c 75 25 8c 54  |1<<16).v.'.lu%.T|
000159a0  79 25 21 32 38 3d 43 25  28 4d 75 25 29 2b 46 25  |y%!28=C%(Mu%)+F%|
000159b0  28 4d 75 25 29 2a 28 31  3c 3c 31 36 29 0d 76 f8  |(Mu%)*(1<<16).v.|
000159c0  5a 5a 25 21 30 3d 30 3a  5a 25 21 34 3d 30 3a 5a  |ZZ%!0=0:Z%!4=0:Z|
000159d0  25 21 38 3d 63 79 25 3a  5a 25 21 31 32 3d 52 79  |%!8=cy%:Z%!12=Ry|
000159e0  25 3a c8 99 26 36 31 64  63 32 2c 6c 79 25 2c 54  |%:..&61dc2,ly%,T|
000159f0  79 25 2c 5a 25 b8 2c 2c  2c 65 41 25 2c 49 41 25  |y%,Z%.,,,eA%,IA%|
00015a00  2c 44 6e 25 3a 63 79 25  3d 5a 25 21 38 3a 52 79  |,Dn%:cy%=Z%!8:Ry|
00015a10  25 3d 5a 25 21 31 32 0d  76 f9 0b cd 3a e7 56 4a  |%=Z%!12.v...:.VJ|
00015a20  25 8c 0d 76 fa 41 f2 41  28 57 25 2c 33 31 2c c0  |%..v.A.A(W%,31,.|
00015a30  c3 28 a4 57 28 63 79 25  2f 37 32 30 30 30 29 29  |.(.W(cy%/72000))|
00015a40  2c 37 29 29 3a f2 41 28  57 25 2c 33 32 2c c0 c3  |,7)):.A(W%,32,..|
00015a50  28 a4 57 28 52 79 25 2f  37 32 30 30 30 29 29 2c  |(.W(Ry%/72000)),|
00015a60  37 29 29 0d 76 fb 47 cc  3a f2 41 28 57 25 2c 33  |7)).v.G.:.A(W%,3|
00015a70  31 2c c0 c3 28 a4 57 28  63 79 25 2f 37 32 30 30  |1,..(.W(cy%/7200|
00015a80  30 2a 53 29 29 2c 37 29  29 3a f2 41 28 57 25 2c  |0*S)),7)):.A(W%,|
00015a90  33 32 2c c0 c3 28 a4 57  28 52 79 25 2f 37 32 30  |32,..(.W(Ry%/720|
00015aa0  30 30 2a 53 29 29 2c 37  29 29 0d 76 fc 07 cd 3a  |00*S)),7)).v...:|
00015ab0  e1 0d 76 fd 13 dd f2 60  79 3a e7 6c 79 25 3e 3d  |..v....`y:.ly%>=|
00015ac0  78 4a 25 8c 0d 76 fe 2b  63 25 21 34 34 3d 31 36  |xJ%..v.+c%!44=16|
00015ad0  3a 63 25 21 34 38 3d 31  36 3a 63 25 21 35 32 3d  |:c%!48=16:c%!52=|
00015ae0  2d 32 34 30 3a 63 25 21  35 36 3d 2d 32 34 30 0d  |-240:c%!56=-240.|
00015af0  76 ff 0c cc 3a c8 8e 7a  5f 25 ca 0d 77 00 2e c9  |v...:..z_%..w...|
00015b00  31 3a 63 25 21 34 34 3d  2d 32 34 30 3a 63 25 21  |1:c%!44=-240:c%!|
00015b10  34 38 3d 2d 32 34 30 3a  63 25 21 35 32 3d 31 36  |48=-240:c%!52=16|
00015b20  3a 63 25 21 35 36 3d 31  36 0d 77 01 6e c9 32 3a  |:c%!56=16.w.n.2:|
00015b30  63 25 21 34 38 3d 2d 32  34 30 3a 63 25 21 35 32  |c%!48=-240:c%!52|
00015b40  3d 2d 32 34 30 3a 63 25  21 35 36 3d 26 61 61 61  |=-240:c%!56=&aaa|
00015b50  61 61 61 31 30 3a 63 25  21 36 30 3d 26 61 61 61  |aaa10:c%!60=&aaa|
00015b60  61 61 61 31 30 3a 63 25  21 36 34 3d 26 35 35 35  |aaa10:c%!64=&555|
00015b70  35 35 35 31 30 3a 63 25  21 36 38 3d 26 35 35 35  |55510:c%!68=&555|
00015b80  35 35 35 31 30 3a 63 25  21 37 32 3d 31 36 3a 63  |55510:c%!72=16:c|
00015b90  25 21 37 36 3d 31 36 0d  77 02 ed c9 34 3a 63 25  |%!76=16.w...4:c%|
00015ba0  21 34 34 3d 2d 32 34 30  3a 63 25 21 34 38 3d 2d  |!44=-240:c%!48=-|
00015bb0  32 34 30 3a 63 25 21 35  32 3d 26 65 65 65 65 65  |240:c%!52=&eeeee|
00015bc0  65 31 30 3a 63 25 21 35  36 3d 26 65 65 65 65 65  |e10:c%!56=&eeeee|
00015bd0  65 31 30 3a 63 25 21 36  30 3d 26 64 64 64 64 64  |e10:c%!60=&ddddd|
00015be0  64 31 30 3a 63 25 21 36  34 3d 26 64 64 64 64 64  |d10:c%!64=&ddddd|
00015bf0  64 31 30 3a 63 25 21 36  38 3d 26 63 63 63 63 63  |d10:c%!68=&ccccc|
00015c00  63 31 30 3a 63 25 21 37  32 3d 26 63 63 63 63 63  |c10:c%!72=&ccccc|
00015c10  63 31 30 3a 63 25 21 37  36 3d 26 62 62 62 62 62  |c10:c%!76=&bbbbb|
00015c20  62 31 30 3a 63 25 21 38  30 3d 26 62 62 62 62 62  |b10:c%!80=&bbbbb|
00015c30  62 31 30 3a 63 25 21 38  34 3d 26 61 61 61 61 61  |b10:c%!84=&aaaaa|
00015c40  61 31 30 3a 63 25 21 38  38 3d 26 61 61 61 61 61  |a10:c%!88=&aaaaa|
00015c50  61 31 30 3a 63 25 21 39  32 3d 26 39 39 39 39 39  |a10:c%!92=&99999|
00015c60  39 31 30 3a 63 25 21 39  36 3d 26 39 39 39 39 39  |910:c%!96=&99999|
00015c70  39 31 30 3a 63 25 21 31  30 30 3d 26 38 38 38 38  |910:c%!100=&8888|
00015c80  38 38 31 30 0d 77 03 f1  63 25 21 31 30 34 3d 26  |8810.w..c%!104=&|
00015c90  38 38 38 38 38 38 31 30  3a 63 25 21 31 30 38 3d  |88888810:c%!108=|
00015ca0  26 37 37 37 37 37 37 31  30 3a 63 25 21 31 31 32  |&77777710:c%!112|
00015cb0  3d 26 37 37 37 37 37 37  31 30 3a 63 25 21 31 31  |=&77777710:c%!11|
00015cc0  36 3d 26 36 36 36 36 36  36 31 30 3a 63 25 21 31  |6=&66666610:c%!1|
00015cd0  32 30 3d 26 36 36 36 36  36 36 31 30 3a 63 25 21  |20=&66666610:c%!|
00015ce0  31 32 34 3d 26 35 35 35  35 35 35 31 30 3a 63 25  |124=&55555510:c%|
00015cf0  21 31 32 38 3d 26 35 35  35 35 35 35 31 30 3a 63  |!128=&55555510:c|
00015d00  25 21 31 33 32 3d 26 34  34 34 34 34 34 31 30 3a  |%!132=&44444410:|
00015d10  63 25 21 31 33 36 3d 26  34 34 34 34 34 34 31 30  |c%!136=&44444410|
00015d20  3a 63 25 21 31 34 30 3d  26 33 33 33 33 33 33 31  |:c%!140=&3333331|
00015d30  30 3a 63 25 21 31 34 34  3d 26 33 33 33 33 33 33  |0:c%!144=&333333|
00015d40  31 30 3a 63 25 21 31 34  38 3d 26 32 32 32 32 32  |10:c%!148=&22222|
00015d50  32 31 30 3a 63 25 21 31  35 32 3d 26 32 32 32 32  |210:c%!152=&2222|
00015d60  32 32 31 30 3a 63 25 21  31 35 36 3d 26 31 31 31  |2210:c%!156=&111|
00015d70  31 31 31 31 30 0d 77 04  28 63 25 21 31 36 30 3d  |11110.w.(c%!160=|
00015d80  26 31 31 31 31 31 31 31  30 3a 63 25 21 31 36 34  |&11111110:c%!164|
00015d90  3d 31 36 3a 63 25 21 31  36 38 3d 31 36 0d 77 05  |=16:c%!168=16.w.|
00015da0  05 cb 0d 77 06 07 cd 3a  e1 0d 77 07 42 dd f2 70  |...w...:..w.B..p|
00015db0  4a 3a ea 53 61 25 2c 71  25 3a c8 99 26 34 31 64  |J:.Sa%,q%:..&41d|
00015dc0  63 33 2c 6c 79 25 b8 2c  53 61 25 3a e3 71 25 3d  |c3,ly%.,Sa%:.q%=|
00015dd0  30 b8 63 65 25 2d 31 3a  e7 21 53 61 25 3d 21 28  |0.ce%-1:.!Sa%=!(|
00015de0  49 75 25 2b 33 32 2a 71  25 29 8c 0d 77 08 37 f2  |Iu%+32*q%)..w.7.|
00015df0  56 28 66 69 25 2c 60 4a  25 2b 31 29 3a 60 4a 25  |V(fi%,`J%+1):`J%|
00015e00  3d 71 25 3a f2 4b 28 66  69 25 2c 60 4a 25 2b 31  |=q%:.K(fi%,`J%+1|
00015e10  29 3a f2 41 28 57 25 2c  33 2c 46 24 28 60 4a 25  |):.A(W%,3,F$(`J%|
00015e20  29 29 0d 77 09 09 cd 3a  ed 3a e1 0d 77 0a 1f dd  |)).w...:.:..w...|
00015e30  f2 7a 5f 3a ea 53 61 25  2c 71 25 2c 54 6c 25 3a  |.z_:.Sa%,q%,Tl%:|
00015e40  e7 6c 79 25 3e 3d 78 4a  25 8c 0d 77 0b 20 c8 99  |.ly%>=xJ%..w. ..|
00015e50  22 58 53 63 61 6e 5f 50  6f 6c 6c 44 50 49 22 b8  |"XScan_PollDPI".|
00015e60  54 6c 25 3a c8 8e 54 6c  25 ca 0d 77 0c 11 c9 32  |Tl%:..Tl%..w...2|
00015e70  3a f2 53 28 57 25 2c 38  2c 31 29 0d 77 0d 11 c9  |:.S(W%,8,1).w...|
00015e80  33 3a f2 53 28 57 25 2c  39 2c 31 29 0d 77 0e 12  |3:.S(W%,9,1).w..|
00015e90  c9 34 3a f2 53 28 57 25  2c 31 30 2c 31 29 0d 77  |.4:.S(W%,10,1).w|
00015ea0  0f 10 7f f2 53 28 57 25  2c 31 31 2c 31 29 0d 77  |....S(W%,11,1).w|
00015eb0  10 2f cb 3a f2 41 28 57  25 2c 31 32 2c c3 28 54  |./.:.A(W%,12,.(T|
00015ec0  6c 25 2a 31 30 30 29 29  3a f2 41 28 57 25 2c 31  |l%*100)):.A(W%,1|
00015ed0  33 2c c3 28 54 6c 25 2a  31 30 30 29 29 0d 77 11  |3,.(Tl%*100)).w.|
00015ee0  21 cc 3a c8 99 26 34 31  64 63 33 2c 6c 79 25 b8  |!.:..&41dc3,ly%.|
00015ef0  2c 53 61 25 3a c8 8e 53  61 25 21 32 38 ca 0d 77  |,Sa%:..Sa%!28..w|
00015f00  12 1f c9 32 30 30 2b 32  30 30 2a 28 31 3c 3c 31  |...200+200*(1<<1|
00015f10  36 29 3a f2 53 28 57 25  2c 38 2c 31 29 0d 77 13  |6):.S(W%,8,1).w.|
00015f20  1f c9 33 30 30 2b 33 30  30 2a 28 31 3c 3c 31 36  |..300+300*(1<<16|
00015f30  29 3a f2 53 28 57 25 2c  39 2c 31 29 0d 77 14 20  |):.S(W%,9,1).w. |
00015f40  c9 34 30 30 2b 34 30 30  2a 28 31 3c 3c 31 36 29  |.400+400*(1<<16)|
00015f50  3a f2 53 28 57 25 2c 31  30 2c 31 29 0d 77 15 43  |:.S(W%,10,1).w.C|
00015f60  7f 3a e3 71 25 3d 30 b8  6b 42 25 2d 31 3a e7 28  |.:.q%=0.kB%-1:.(|
00015f70  53 61 25 21 32 38 83 28  31 3c 3c 31 36 29 29 3d  |Sa%!28.(1<<16))=|
00015f80  43 25 28 71 25 29 80 28  53 61 25 21 32 38 81 28  |C%(q%).(Sa%!28.(|
00015f90  31 3c 3c 31 36 29 29 3d  46 25 28 71 25 29 8c 0d  |1<<16))=F%(q%)..|
00015fa0  77 16 5a f2 56 28 42 6e  25 2c 4d 75 25 2b 31 29  |w.Z.V(Bn%,Mu%+1)|
00015fb0  3a 4d 75 25 3d 71 25 3a  f2 4b 28 42 6e 25 2c 4d  |:Mu%=q%:.K(Bn%,M|
00015fc0  75 25 2b 31 29 3a f2 53  28 57 25 2c 31 31 2c 31  |u%+1):.S(W%,11,1|
00015fd0  29 3a f2 41 28 57 25 2c  31 32 2c c3 28 43 25 28  |):.A(W%,12,.(C%(|
00015fe0  71 25 29 29 29 3a f2 41  28 57 25 2c 31 33 2c c3  |q%))):.A(W%,13,.|
00015ff0  28 46 25 28 71 25 29 29  29 0d 77 17 07 cd 3a ed  |(F%(q%))).w...:.|
00016000  0d 77 18 05 cb 0d 77 19  0b cd 3a f2 61 79 3a e1  |.w....w...:.ay:.|
00016010  0d 77 1a 17 dd f2 67 79  3a 53 60 25 3d a3 3a e7  |.w....gy:S`%=.:.|
00016020  57 79 25 84 21 41 8c 0d  77 1b 09 53 60 25 3d b9  |Wy%.!A..w..S`%=.|
00016030  0d 77 1c 1b cc 3a c8 94  60 25 2c 4d 5f 25 3a 4b  |.w...:..`%,M_%:K|
00016040  25 3d a4 41 28 31 2c 4d  5f 25 29 0d 77 1d 07 cd  |%=.A(1,M_%).w...|
00016050  3a e1 0d 77 1e fc dd f2  56 61 3a ea 6e 79 25 2c  |:..w....Va:.ny%,|
00016060  73 5f 25 2c 77 4a 25 2c  6c 75 25 2c 74 4f 25 2c  |s_%,wJ%,lu%,tO%,|
00016070  67 4f 25 2c 62 4f 25 2c  51 6f 25 2c 76 4f 25 2c  |gO%,bO%,Qo%,vO%,|
00016080  48 6b 25 2c 56 6b 25 2c  44 6b 25 2c 4c 6b 25 2c  |Hk%,Vk%,Dk%,Lk%,|
00016090  58 6b 25 2c 74 24 2c 67  24 2c 62 24 2c 6f 24 2c  |Xk%,t$,g$,b$,o$,|
000160a0  66 24 2c 77 24 2c 73 24  3a 6e 79 25 3d a4 5a 28  |f$,w$,s$:ny%=.Z(|
000160b0  57 25 2c 31 37 29 3a 73  5f 25 3d a4 5a 28 57 25  |W%,17):s_%=.Z(W%|
000160c0  2c 31 38 29 3a 77 4a 25  3d a4 5a 28 57 25 2c 32  |,18):wJ%=.Z(W%,2|
000160d0  30 29 3a 6c 75 25 3d a4  5a 28 57 25 2c 32 31 29  |0):lu%=.Z(W%,21)|
000160e0  3a 74 4f 25 3d a4 5a 28  57 25 2c 31 39 29 3a 67  |:tO%=.Z(W%,19):g|
000160f0  4f 25 3d a4 5a 28 57 25  2c 38 29 3a 62 4f 25 3d  |O%=.Z(W%,8):bO%=|
00016100  a4 5a 28 57 25 2c 39 29  3a 51 6f 25 3d a4 5a 28  |.Z(W%,9):Qo%=.Z(|
00016110  57 25 2c 31 30 29 3a 76  4f 25 3d a4 5a 28 57 25  |W%,10):vO%=.Z(W%|
00016120  2c 31 31 29 3a 48 6b 25  3d a4 5a 28 57 25 2c 33  |,11):Hk%=.Z(W%,3|
00016130  36 29 3a 56 6b 25 3d a4  5a 28 57 25 2c 33 38 29  |6):Vk%=.Z(W%,38)|
00016140  3a 44 6b 25 3d a4 5a 28  57 25 2c 33 39 29 0d 77  |:Dk%=.Z(W%,39).w|
00016150  1f ea 4c 6b 25 3d a4 5a  28 57 25 2c 34 30 29 3a  |..Lk%=.Z(W%,40):|
00016160  58 6b 25 3d a4 5a 28 57  25 2c 34 31 29 3a 74 24  |Xk%=.Z(W%,41):t$|
00016170  3d a4 4d 28 57 25 2c 32  32 29 3a 67 24 3d a4 4d  |=.M(W%,22):g$=.M|
00016180  28 57 25 2c 32 33 29 3a  62 24 3d a4 4d 28 57 25  |(W%,23):b$=.M(W%|
00016190  2c 31 32 29 3a 6f 24 3d  a4 4d 28 57 25 2c 31 33  |,12):o$=.M(W%,13|
000161a0  29 3a 66 24 3d a4 4d 28  57 25 2c 32 38 29 3a 77  |):f$=.M(W%,28):w|
000161b0  24 3d a4 4d 28 57 25 2c  33 31 29 3a 73 24 3d a4  |$=.M(W%,31):s$=.|
000161c0  4d 28 57 25 2c 33 32 29  3a 46 25 3d ae 28 22 3c  |M(W%,32):F%=.("<|
000161d0  4f 70 74 63 6c 50 72 6f  24 44 69 72 3e 2e 53 63  |OptclPro$Dir>.Sc|
000161e0  44 65 66 61 75 6c 74 73  22 29 3a f1 23 46 25 2c  |Defaults"):.#F%,|
000161f0  6c 79 25 2c 60 4a 25 2c  4d 75 25 3a f1 23 46 25  |ly%,`J%,Mu%:.#F%|
00016200  2c 6e 79 25 2c 73 5f 25  2c 77 4a 25 2c 6c 75 25  |,ny%,s_%,wJ%,lu%|
00016210  2c 74 4f 25 2c 67 4f 25  2c 62 4f 25 2c 51 6f 25  |,tO%,gO%,bO%,Qo%|
00016220  2c 76 4f 25 2c 48 6b 25  2c 56 6b 25 2c 44 6b 25  |,vO%,Hk%,Vk%,Dk%|
00016230  2c 4c 6b 25 2c 58 6b 25  0d 77 20 24 f1 23 46 25  |,Lk%,Xk%.w $.#F%|
00016240  2c 74 24 2c 67 24 2c 62  24 2c 6f 24 2c 66 24 2c  |,t$,g$,b$,o$,f$,|
00016250  77 24 2c 73 24 3a d9 23  46 25 3a e1 0d 77 21 f3  |w$,s$:.#F%:..w!.|
00016260  dd f2 4b 61 3a ea 6e 79  25 2c 73 5f 25 2c 77 4a  |..Ka:.ny%,s_%,wJ|
00016270  25 2c 6c 75 25 2c 74 4f  25 2c 67 4f 25 2c 62 4f  |%,lu%,tO%,gO%,bO|
00016280  25 2c 51 6f 25 2c 76 4f  25 2c 48 6b 25 2c 56 6b  |%,Qo%,vO%,Hk%,Vk|
00016290  25 2c 44 6b 25 2c 4c 6b  25 2c 58 6b 25 2c 74 24  |%,Dk%,Lk%,Xk%,t$|
000162a0  2c 67 24 2c 62 24 2c 6f  24 2c 66 24 2c 77 24 2c  |,g$,b$,o$,f$,w$,|
000162b0  73 24 3a 46 25 3d 8e 28  22 3c 4f 70 74 63 6c 50  |s$:F%=.("<OptclP|
000162c0  72 6f 24 44 69 72 3e 2e  53 63 44 65 66 61 75 6c  |ro$Dir>.ScDefaul|
000162d0  74 73 22 29 3a e8 23 46  25 2c 6c 79 25 2c 60 4a  |ts"):.#F%,ly%,`J|
000162e0  25 2c 4d 75 25 3a e8 23  46 25 2c 6e 79 25 2c 73  |%,Mu%:.#F%,ny%,s|
000162f0  5f 25 2c 77 4a 25 2c 6c  75 25 2c 74 4f 25 2c 67  |_%,wJ%,lu%,tO%,g|
00016300  4f 25 2c 62 4f 25 2c 51  6f 25 2c 76 4f 25 2c 48  |O%,bO%,Qo%,vO%,H|
00016310  6b 25 2c 56 6b 25 2c 44  6b 25 2c 4c 6b 25 2c 58  |k%,Vk%,Dk%,Lk%,X|
00016320  6b 25 3a e8 23 46 25 2c  74 24 2c 67 24 2c 62 24  |k%:.#F%,t$,g$,b$|
00016330  2c 6f 24 2c 66 24 2c 77  24 2c 73 24 3a d9 23 46  |,o$,f$,w$,s$:.#F|
00016340  25 3a f2 53 28 57 25 2c  31 37 2c 6e 79 25 29 0d  |%:.S(W%,17,ny%).|
00016350  77 22 f8 f2 53 28 57 25  2c 31 38 2c 73 5f 25 29  |w"..S(W%,18,s_%)|
00016360  3a f2 53 28 57 25 2c 32  30 2c 77 4a 25 29 3a f2  |:.S(W%,20,wJ%):.|
00016370  53 28 57 25 2c 32 31 2c  6c 75 25 29 3a f2 53 28  |S(W%,21,lu%):.S(|
00016380  57 25 2c 31 39 2c 74 4f  25 29 3a f2 53 28 57 25  |W%,19,tO%):.S(W%|
00016390  2c 38 2c 67 4f 25 29 3a  f2 53 28 57 25 2c 39 2c  |,8,gO%):.S(W%,9,|
000163a0  62 4f 25 29 3a f2 53 28  57 25 2c 31 30 2c 51 6f  |bO%):.S(W%,10,Qo|
000163b0  25 29 3a f2 53 28 57 25  2c 31 31 2c 76 4f 25 29  |%):.S(W%,11,vO%)|
000163c0  3a f2 53 28 57 25 2c 33  36 2c 48 6b 25 29 3a f2  |:.S(W%,36,Hk%):.|
000163d0  53 28 57 25 2c 33 38 2c  56 6b 25 29 3a f2 53 28  |S(W%,38,Vk%):.S(|
000163e0  57 25 2c 33 39 2c 44 6b  25 29 3a f2 53 28 57 25  |W%,39,Dk%):.S(W%|
000163f0  2c 34 30 2c 4c 6b 25 29  3a f2 53 28 57 25 2c 34  |,40,Lk%):.S(W%,4|
00016400  31 2c 58 6b 25 29 3a f2  41 28 57 25 2c 32 32 2c  |1,Xk%):.A(W%,22,|
00016410  74 24 29 3a f2 41 28 57  25 2c 32 33 2c 67 24 29  |t$):.A(W%,23,g$)|
00016420  3a f2 41 28 57 25 2c 31  32 2c 62 24 29 3a f2 41  |:.A(W%,12,b$):.A|
00016430  28 57 25 2c 31 33 2c 6f  24 29 3a f2 41 28 57 25  |(W%,13,o$):.A(W%|
00016440  2c 32 38 2c 66 24 29 0d  77 23 33 f2 41 28 57 25  |,28,f$).w#3.A(W%|
00016450  2c 33 31 2c 77 24 29 3a  f2 41 28 57 25 2c 33 32  |,31,w$):.A(W%,32|
00016460  2c 73 24 29 3a 63 79 25  3d bb 28 77 24 29 3a 52  |,s$):cy%=.(w$):R|
00016470  79 25 3d bb 28 73 24 29  3a e1 0d 77 24 26 dd a4  |y%=.(s$):..w$&..|
00016480  56 3a ea 69 6e 25 3a c8  99 26 34 30 30 65 63 2c  |V:.in%:..&400ec,|
00016490  2d 31 2c 2d 31 b8 2c 2c  69 6e 25 3a 3d 69 6e 25  |-1,-1.,,in%:=in%|
000164a0  0d 77 25 5d dd f2 6f 75  3a ea 6f 25 2c 4f 79 25  |.w%]..ou:.o%,Oy%|
000164b0  2c 47 79 25 2c 64 79 25  2c 4c 79 25 2c 41 4a 25  |,Gy%,dy%,Ly%,AJ%|
000164c0  2c 5a 4a 25 2c 6e 79 25  2c 73 5f 25 2c 77 4a 25  |,ZJ%,ny%,s_%,wJ%|
000164d0  2c 6c 75 25 3a 4f 79 25  3d 31 3c 3c 33 30 3a 64  |,lu%:Oy%=1<<30:d|
000164e0  79 25 3d 30 3a 47 79 25  3d 31 3c 3c 33 30 3a 4c  |y%=0:Gy%=1<<30:L|
000164f0  79 25 3d 30 3a e7 41 79  25 3e 3d 30 8c 0d 77 26  |y%=0:.Ay%>=0..w&|
00016500  40 e3 6f 25 3d 30 b8 41  79 25 3a 51 25 21 28 6f  |@.o%=0.Ay%:Q%!(o|
00016510  25 2a 31 36 29 3d 51 25  21 28 6f 25 2a 31 36 29  |%*16)=Q%!(o%*16)|
00016520  2d 32 3a e7 51 25 21 28  6f 25 2a 31 36 29 3c 30  |-2:.Q%!(o%*16)<0|
00016530  8c 51 25 21 28 6f 25 2a  31 36 29 3d 30 0d 77 27  |.Q%!(o%*16)=0.w'|
00016540  21 e7 51 25 21 28 6f 25  2a 31 36 29 3c 4f 79 25  |!.Q%!(o%*16)<Oy%|
00016550  4f 79 25 3d 51 25 21 28  6f 25 2a 31 36 29 0d 77  |Oy%=Q%!(o%*16).w|
00016560  28 3e 51 25 21 28 6f 25  2a 31 36 2b 34 29 3d 51  |(>Q%!(o%*16+4)=Q|
00016570  25 21 28 6f 25 2a 31 36  2b 34 29 2d 32 3a e7 51  |%!(o%*16+4)-2:.Q|
00016580  25 21 28 6f 25 2a 31 36  2b 34 29 3c 30 8c 51 25  |%!(o%*16+4)<0.Q%|
00016590  21 28 6f 25 2a 31 36 2b  34 29 3d 30 0d 77 29 25  |!(o%*16+4)=0.w)%|
000165a0  e7 51 25 21 28 6f 25 2a  31 36 2b 34 29 3c 47 79  |.Q%!(o%*16+4)<Gy|
000165b0  25 47 79 25 3d 51 25 21  28 6f 25 2a 31 36 2b 34  |%Gy%=Q%!(o%*16+4|
000165c0  29 0d 77 2a 41 51 25 21  28 6f 25 2a 31 36 2b 38  |).w*AQ%!(o%*16+8|
000165d0  29 3d 51 25 21 28 6f 25  2a 31 36 2b 38 29 2b 34  |)=Q%!(o%*16+8)+4|
000165e0  3a e7 51 25 21 28 6f 25  2a 31 36 2b 38 29 3e 64  |:.Q%!(o%*16+8)>d|
000165f0  79 25 64 79 25 3d 51 25  21 28 6f 25 2a 31 36 2b  |y%dy%=Q%!(o%*16+|
00016600  38 29 0d 77 2b 45 51 25  21 28 6f 25 2a 31 36 2b  |8).w+EQ%!(o%*16+|
00016610  31 32 29 3d 51 25 21 28  6f 25 2a 31 36 2b 31 32  |12)=Q%!(o%*16+12|
00016620  29 2b 32 3a e7 51 25 21  28 6f 25 2a 31 36 2b 31  |)+2:.Q%!(o%*16+1|
00016630  32 29 3e 4c 79 25 4c 79  25 3d 51 25 21 28 6f 25  |2)>Ly%Ly%=Q%!(o%|
00016640  2a 31 36 2b 31 32 29 0d  77 2c 05 ed 0d 77 2d 20  |*16+12).w,...w- |
00016650  cc 3a 4f 79 25 3d 30 3a  47 79 25 3d 30 3a 64 79  |.:Oy%=0:Gy%=0:dy|
00016660  25 3d 6e 25 3a 4c 79 25  3d 79 79 25 0d 77 2e 4f  |%=n%:Ly%=yy%.w.O|
00016670  cd 3a 6e 79 25 3d a4 5a  28 57 25 2c 38 29 3a 73  |.:ny%=.Z(W%,8):s|
00016680  5f 25 3d a4 5a 28 57 25  2c 39 29 3a 77 4a 25 3d  |_%=.Z(W%,9):wJ%=|
00016690  a4 5a 28 57 25 2c 31 30  29 3a 6c 75 25 3d a4 5a  |.Z(W%,10):lu%=.Z|
000166a0  28 57 25 2c 31 31 29 3a  e7 6e 79 25 41 4a 25 3d  |(W%,11):.ny%AJ%=|
000166b0  32 30 30 3a 5a 4a 25 3d  32 30 30 0d 77 2f 17 e7  |200:ZJ%=200.w/..|
000166c0  73 5f 25 41 4a 25 3d 33  30 30 3a 5a 4a 25 3d 33  |s_%AJ%=300:ZJ%=3|
000166d0  30 30 0d 77 30 17 e7 77  4a 25 41 4a 25 3d 34 30  |00.w0..wJ%AJ%=40|
000166e0  30 3a 5a 4a 25 3d 34 30  30 0d 77 31 1f e7 6c 75  |0:ZJ%=400.w1..lu|
000166f0  25 41 4a 25 3d 43 25 28  4d 75 25 29 3a 5a 4a 25  |%AJ%=C%(Mu%):ZJ%|
00016700  3d 46 25 28 4d 75 25 29  0d 77 32 20 e7 5a 4a 25  |=F%(Mu%).w2 .ZJ%|
00016710  3d 30 84 41 4a 25 3d 30  8c 5a 4a 25 3d 31 30 30  |=0.AJ%=0.ZJ%=100|
00016720  3a 41 4a 25 3d 31 30 30  0d 77 33 0c e7 41 79 25  |:AJ%=100.w3..Ay%|
00016730  3e 3d 30 8c 0d 77 34 ad  e3 6f 25 3d 30 b8 41 79  |>=0..w4..o%=0.Ay|
00016740  25 3a 51 25 21 28 6f 25  2a 31 36 29 3d 28 51 25  |%:Q%!(o%*16)=(Q%|
00016750  21 28 6f 25 2a 31 36 29  2d 4f 79 25 29 2a 41 4a  |!(o%*16)-Oy%)*AJ|
00016760  25 2f 6e 75 25 3a 51 25  21 28 6f 25 2a 31 36 2b  |%/nu%:Q%!(o%*16+|
00016770  34 29 3d 28 51 25 21 28  6f 25 2a 31 36 2b 34 29  |4)=(Q%!(o%*16+4)|
00016780  2d 47 79 25 29 2a 5a 4a  25 2f 64 75 25 3a 51 25  |-Gy%)*ZJ%/du%:Q%|
00016790  21 28 6f 25 2a 31 36 2b  38 29 3d 28 51 25 21 28  |!(o%*16+8)=(Q%!(|
000167a0  6f 25 2a 31 36 2b 38 29  2d 4f 79 25 29 2a 41 4a  |o%*16+8)-Oy%)*AJ|
000167b0  25 2f 6e 75 25 3a 51 25  21 28 6f 25 2a 31 36 2b  |%/nu%:Q%!(o%*16+|
000167c0  31 32 29 3d 28 51 25 21  28 6f 25 2a 31 36 2b 31  |12)=(Q%!(o%*16+1|
000167d0  32 29 2d 47 79 25 29 2a  5a 4a 25 2f 64 75 25 3a  |2)-Gy%)*ZJ%/du%:|
000167e0  ed 0d 77 35 0e cd 3a e7  57 5f 25 3e 3d 30 8c 0d  |..w5..:.W_%>=0..|
000167f0  77 36 ad e3 6f 25 3d 30  b8 57 5f 25 3a 66 25 21  |w6..o%=0.W_%:f%!|
00016800  28 6f 25 2a 31 36 29 3d  28 66 25 21 28 6f 25 2a  |(o%*16)=(f%!(o%*|
00016810  31 36 29 2d 4f 79 25 29  2a 41 4a 25 2f 6e 75 25  |16)-Oy%)*AJ%/nu%|
00016820  3a 66 25 21 28 6f 25 2a  31 36 2b 34 29 3d 28 66  |:f%!(o%*16+4)=(f|
00016830  25 21 28 6f 25 2a 31 36  2b 34 29 2d 47 79 25 29  |%!(o%*16+4)-Gy%)|
00016840  2a 5a 4a 25 2f 64 75 25  3a 66 25 21 28 6f 25 2a  |*ZJ%/du%:f%!(o%*|
00016850  31 36 2b 38 29 3d 28 66  25 21 28 6f 25 2a 31 36  |16+8)=(f%!(o%*16|
00016860  2b 38 29 2d 4f 79 25 29  2a 41 4a 25 2f 6e 75 25  |+8)-Oy%)*AJ%/nu%|
00016870  3a 66 25 21 28 6f 25 2a  31 36 2b 31 32 29 3d 28  |:f%!(o%*16+12)=(|
00016880  66 25 21 28 6f 25 2a 31  36 2b 31 32 29 2d 47 79  |f%!(o%*16+12)-Gy|
00016890  25 29 2a 5a 4a 25 2f 64  75 25 3a ed 0d 77 37 9d  |%)*ZJ%/du%:..w7.|
000168a0  cd 3a 4f 79 25 3d 4f 79  25 2a 37 32 30 30 30 2f  |.:Oy%=Oy%*72000/|
000168b0  6e 75 25 2b 6f 61 25 3a  47 79 25 3d 47 79 25 2a  |nu%+oa%:Gy%=Gy%*|
000168c0  37 32 30 30 30 2f 64 75  25 2b 6c 61 25 3a 64 79  |72000/du%+la%:dy|
000168d0  25 3d 64 79 25 2a 37 32  30 30 30 2f 6e 75 25 2b  |%=dy%*72000/nu%+|
000168e0  6f 61 25 3a 4c 79 25 3d  4c 79 25 2a 37 32 30 30  |oa%:Ly%=Ly%*7200|
000168f0  30 2f 64 75 25 2b 6c 61  25 3a 63 79 25 3d 64 79  |0/du%+la%:cy%=dy|
00016900  25 2d 4f 79 25 3a 52 79  25 3d 4c 79 25 2d 47 79  |%-Oy%:Ry%=Ly%-Gy|
00016910  25 3a 4b 6c 25 3d 4f 79  25 3a 53 69 25 3d 47 79  |%:Kl%=Oy%:Si%=Gy|
00016920  25 3a e7 63 79 25 2b 4b  6c 25 3e 58 6c 25 63 79  |%:.cy%+Kl%>Xl%cy|
00016930  25 3d 58 6c 25 2d 4b 6c  25 0d 77 38 20 e7 4b 6c  |%=Xl%-Kl%.w8 .Kl|
00016940  25 3c 6d 6c 25 63 79 25  2d 3d 6d 6c 25 2d 4b 6c  |%<ml%cy%-=ml%-Kl|
00016950  25 3a 4b 6c 25 3d 6d 6c  25 0d 77 39 23 e7 52 79  |%:Kl%=ml%.w9#.Ry|
00016960  25 2b 53 69 25 3e 43 75  25 80 43 75 25 3c 3e 2d  |%+Si%>Cu%.Cu%<>-|
00016970  31 52 79 25 3d 43 75 25  2d 53 69 25 0d 77 3a 20  |1Ry%=Cu%-Si%.w: |
00016980  e7 52 79 25 3c 74 6c 25  52 79 25 2d 3d 74 6c 25  |.Ry%<tl%Ry%-=tl%|
00016990  2d 53 69 25 3a 53 69 25  3d 74 6c 25 0d 77 3b 05  |-Si%:Si%=tl%.w;.|
000169a0  e1 0d 77 3c 48 dd f2 61  79 3a ea 7a 5f 25 2c 41  |..w<H..ay:.z_%,A|
000169b0  4a 25 2c 5a 4a 25 2c 6e  79 25 2c 73 5f 25 2c 77  |J%,ZJ%,ny%,s_%,w|
000169c0  4a 25 2c 6c 75 25 2c 62  75 25 2c 4a 69 25 2c 50  |J%,lu%,bu%,Ji%,P|
000169d0  5f 25 2c 56 65 25 2c 78  5a 25 3a e7 28 56 61 25  |_%,Ve%,xZ%:.(Va%|
000169e0  80 28 31 3c 3c 34 29 29  e1 0d 77 3d 4d 7a 5f 25  |.(1<<4))..w=Mz_%|
000169f0  3d 31 3a 41 4a 25 3d 31  30 30 3a 5a 4a 25 3d 31  |=1:AJ%=100:ZJ%=1|
00016a00  30 30 3a 6e 79 25 3d a4  5a 28 57 25 2c 33 39 29  |00:ny%=.Z(W%,39)|
00016a10  3a 73 5f 25 3d a4 5a 28  57 25 2c 34 30 29 3a 77  |:s_%=.Z(W%,40):w|
00016a20  4a 25 3d a4 5a 28 57 25  2c 34 31 29 3a e7 6e 79  |J%=.Z(W%,41):.ny|
00016a30  25 7a 5f 25 3d 31 0d 77  3e 0d e7 73 5f 25 7a 5f  |%z_%=1.w>..s_%z_|
00016a40  25 3d 32 0d 77 3f 0d e7  77 4a 25 7a 5f 25 3d 34  |%=2.w?..wJ%z_%=4|
00016a50  0d 77 40 4d 6e 79 25 3d  a4 5a 28 57 25 2c 38 29  |.w@Mny%=.Z(W%,8)|
00016a60  3a 73 5f 25 3d a4 5a 28  57 25 2c 39 29 3a 77 4a  |:s_%=.Z(W%,9):wJ|
00016a70  25 3d a4 5a 28 57 25 2c  31 30 29 3a 6c 75 25 3d  |%=.Z(W%,10):lu%=|
00016a80  a4 5a 28 57 25 2c 31 31  29 3a e7 6e 79 25 41 4a  |.Z(W%,11):.ny%AJ|
00016a90  25 3d 32 30 30 3a 5a 4a  25 3d 32 30 30 0d 77 41  |%=200:ZJ%=200.wA|
00016aa0  17 e7 73 5f 25 41 4a 25  3d 33 30 30 3a 5a 4a 25  |..s_%AJ%=300:ZJ%|
00016ab0  3d 33 30 30 0d 77 42 17  e7 77 4a 25 41 4a 25 3d  |=300.wB..wJ%AJ%=|
00016ac0  34 30 30 3a 5a 4a 25 3d  34 30 30 0d 77 43 29 e7  |400:ZJ%=400.wC).|
00016ad0  6c 75 25 41 4a 25 3d bb  28 a4 4d 28 57 25 2c 31  |lu%AJ%=.(.M(W%,1|
00016ae0  32 29 29 3a 5a 4a 25 3d  bb 28 a4 4d 28 57 25 2c  |2)):ZJ%=.(.M(W%,|
00016af0  31 33 29 29 0d 77 44 20  e7 5a 4a 25 3d 30 84 41  |13)).wD .ZJ%=0.A|
00016b00  4a 25 3d 30 8c 5a 4a 25  3d 31 30 30 3a 41 4a 25  |J%=0.ZJ%=100:AJ%|
00016b10  3d 31 30 30 0d 77 45 25  4a 69 25 3d a4 56 3a 6e  |=100.wE%Ji%=.V:n|
00016b20  79 25 3d a4 5a 28 57 25  2c 34 33 29 3a e7 46 69  |y%=.Z(W%,43):.Fi|
00016b30  25 80 6e 79 25 3c 3e 30  8c 0d 77 46 2c 4f 79 25  |%.ny%<>0..wF,Oy%|
00016b40  3d 31 3c 3c 33 30 3a 64  79 25 3d 30 3a 47 79 25  |=1<<30:dy%=0:Gy%|
00016b50  3d 31 3c 3c 33 30 3a 4c  79 25 3d 30 3a e7 41 79  |=1<<30:Ly%=0:.Ay|
00016b60  25 3e 3d 30 8c 0d 77 47  2b e3 6f 25 3d 30 b8 41  |%>=0..wG+.o%=0.A|
00016b70  79 25 3a e7 51 25 21 28  6f 25 2a 31 36 29 3c 4f  |y%:.Q%!(o%*16)<O|
00016b80  79 25 4f 79 25 3d 51 25  21 28 6f 25 2a 31 36 29  |y%Oy%=Q%!(o%*16)|
00016b90  0d 77 48 25 e7 51 25 21  28 6f 25 2a 31 36 2b 34  |.wH%.Q%!(o%*16+4|
00016ba0  29 3c 47 79 25 47 79 25  3d 51 25 21 28 6f 25 2a  |)<Gy%Gy%=Q%!(o%*|
00016bb0  31 36 2b 34 29 0d 77 49  25 e7 51 25 21 28 6f 25  |16+4).wI%.Q%!(o%|
00016bc0  2a 31 36 2b 38 29 3e 64  79 25 64 79 25 3d 51 25  |*16+8)>dy%dy%=Q%|
00016bd0  21 28 6f 25 2a 31 36 2b  38 29 0d 77 4a 27 e7 51  |!(o%*16+8).wJ'.Q|
00016be0  25 21 28 6f 25 2a 31 36  2b 31 32 29 3e 4c 79 25  |%!(o%*16+12)>Ly%|
00016bf0  4c 79 25 3d 51 25 21 28  6f 25 2a 31 36 2b 31 32  |Ly%=Q%!(o%*16+12|
00016c00  29 0d 77 4b 05 ed 0d 77  4c 20 cc 3a 4f 79 25 3d  |).wK...wL .:Oy%=|
00016c10  30 3a 47 79 25 3d 30 3a  64 79 25 3d 6e 25 3a 4c  |0:Gy%=0:dy%=n%:L|
00016c20  79 25 3d 79 79 25 0d 77  4d 8d cd 3a 4f 79 25 3d  |y%=yy%.wM..:Oy%=|
00016c30  4f 79 25 2a 37 32 30 30  30 2f 6e 75 25 2b 6f 61  |Oy%*72000/nu%+oa|
00016c40  25 3a 47 79 25 3d 47 79  25 2a 37 32 30 30 30 2f  |%:Gy%=Gy%*72000/|
00016c50  64 75 25 2b 6c 61 25 3a  64 79 25 3d 64 79 25 2a  |du%+la%:dy%=dy%*|
00016c60  37 32 30 30 30 2f 6e 75  25 2b 6f 61 25 3a 4c 79  |72000/nu%+oa%:Ly|
00016c70  25 3d 4c 79 25 2a 37 32  30 30 30 2f 64 75 25 2b  |%=Ly%*72000/du%+|
00016c80  6c 61 25 3a 63 79 25 3d  64 79 25 2d 4f 79 25 3a  |la%:cy%=dy%-Oy%:|
00016c90  52 79 25 3d 4c 79 25 2d  47 79 25 3a e7 63 79 25  |Ry%=Ly%-Gy%:.cy%|
00016ca0  2b 4b 6c 25 3e 58 6c 25  63 79 25 3d 58 6c 25 2d  |+Kl%>Xl%cy%=Xl%-|
00016cb0  4b 6c 25 0d 77 4e 20 e7  4b 6c 25 3c 6d 6c 25 63  |Kl%.wN .Kl%<ml%c|
00016cc0  79 25 2d 3d 6d 6c 25 2d  4b 6c 25 3a 4b 6c 25 3d  |y%-=ml%-Kl%:Kl%=|
00016cd0  6d 6c 25 0d 77 4f 23 e7  52 79 25 2b 53 69 25 3e  |ml%.wO#.Ry%+Si%>|
00016ce0  43 75 25 80 43 75 25 3c  3e 2d 31 52 79 25 3d 43  |Cu%.Cu%<>-1Ry%=C|
00016cf0  75 25 2d 53 69 25 0d 77  50 20 e7 52 79 25 3c 74  |u%-Si%.wP .Ry%<t|
00016d00  6c 25 52 79 25 2d 3d 74  6c 25 2d 53 69 25 3a 53  |l%Ry%-=tl%-Si%:S|
00016d10  69 25 3d 74 6c 25 0d 77  51 24 cc 3a e7 a4 4d 28  |i%=tl%.wQ$.:..M(|
00016d20  57 25 2c 32 38 29 3d 22  49 6e 63 68 65 73 22 56  |W%,28)="Inches"V|
00016d30  4a 25 3d b9 8b 56 4a 25  3d a3 0d 77 52 09 e7 56  |J%=..VJ%=..wR..V|
00016d40  4a 25 8c 0d 77 53 31 63  79 25 3d bb 28 a4 4d 28  |J%..wS1cy%=.(.M(|
00016d50  57 25 2c 33 31 29 29 2a  37 32 30 30 30 3a 52 79  |W%,31))*72000:Ry|
00016d60  25 3d bb 28 a4 4d 28 57  25 2c 33 32 29 29 2a 37  |%=.(.M(W%,32))*7|
00016d70  32 30 30 30 0d 77 54 37  cc 3a 63 79 25 3d bb 28  |2000.wT7.:cy%=.(|
00016d80  a4 4d 28 57 25 2c 33 31  29 29 2a 37 32 30 30 30  |.M(W%,31))*72000|
00016d90  2f 53 3a 52 79 25 3d bb  28 a4 4d 28 57 25 2c 33  |/S:Ry%=.(.M(W%,3|
00016da0  32 29 29 2a 37 32 30 30  30 2f 53 0d 77 55 15 cd  |2))*72000/S.wU..|
00016db0  3a e7 63 79 25 3e 58 6c  25 63 79 25 3d 58 6c 25  |:.cy%>Xl%cy%=Xl%|
00016dc0  0d 77 56 13 e7 63 79 25  3c 6d 6c 25 63 79 25 3d  |.wV..cy%<ml%cy%=|
00016dd0  6d 6c 25 0d 77 57 1b e7  52 79 25 3e 43 75 25 80  |ml%.wW..Ry%>Cu%.|
00016de0  43 75 25 3c 3e 2d 31 52  79 25 3d 43 75 25 0d 77  |Cu%<>-1Ry%=Cu%.w|
00016df0  58 13 e7 52 79 25 3c 74  6c 25 52 79 25 3d 74 6c  |X..Ry%<tl%Ry%=tl|
00016e00  25 0d 77 59 66 cd 3a 62  75 25 3d 63 79 25 2a 41  |%.wYf.:bu%=cy%*A|
00016e10  4a 25 2f 37 32 30 30 30  3a e7 7a 5f 25 3e 31 84  |J%/72000:.z_%>1.|
00016e20  42 6f 25 8c 50 5f 25 3d  28 4a 69 25 2d 75 6e 25  |Bo%.P_%=(Ji%-un%|
00016e30  29 2f 28 28 34 2b 62 75  25 2a 7a 5f 25 2f 38 29  |)/((4+bu%*z_%/8)|
00016e40  2b 28 34 2b 62 75 25 2f  38 29 29 2d 34 8b 50 5f  |+(4+bu%/8))-4.P_|
00016e50  25 3d 28 4a 69 25 2d 75  6e 25 29 2f 28 34 2b 62  |%=(Ji%-un%)/(4+b|
00016e60  75 25 2f 38 29 2d 34 0d  77 5a 0f e7 50 5f 25 3c  |u%/8)-4.wZ..P_%<|
00016e70  31 50 5f 25 3d 30 0d 77  5b 2d 50 5f 25 3d 50 5f  |1P_%=0.w[-P_%=P_|
00016e80  25 2a 37 32 30 30 30 2f  5a 4a 25 3a e7 52 79 25  |%*72000/ZJ%:.Ry%|
00016e90  3e 50 5f 25 56 65 25 3d  50 5f 25 8b 56 65 25 3d  |>P_%Ve%=P_%.Ve%=|
00016ea0  52 79 25 0d 77 5c 0b e7  52 79 25 3d 30 e1 0d 77  |Ry%.w\..Ry%=0..w|
00016eb0  5d 28 78 5a 25 3d 28 56  65 25 2f 52 79 25 29 2a  |](xZ%=(Ve%/Ry%)*|
00016ec0  31 30 30 3a f2 41 28 57  25 2c 34 35 2c c3 28 78  |100:.A(W%,45,.(x|
00016ed0  5a 25 29 29 3a e1 0d 77  5e 23 dd f2 76 75 3a 4a  |Z%)):..w^#..vu:J|
00016ee0  69 25 3d a4 56 3a e7 4a  69 25 3c 3e 5a 72 25 5a  |i%=.V:.Ji%<>Zr%Z|
00016ef0  72 25 3d 4a 69 25 3a f2  78 0d 77 5f 05 e1 0d 77  |r%=Ji%:.x.w_...w|
00016f00  60 56 dd f2 75 61 3a ea  71 25 2c 6e 4f 25 2c 75  |`V..ua:.q%,nO%,u|
00016f10  6f 25 2c 63 5f 25 2c 72  25 3a 47 6e 25 3d 30 3a  |o%,c_%,r%:Gn%=0:|
00016f20  c8 99 26 36 31 64 63 30  b8 58 5a 25 2c 47 6e 25  |..&61dc0.XZ%,Gn%|
00016f30  2c 47 50 25 2c 69 50 25  3b 77 79 25 3a e7 28 77  |,GP%,iP%;wy%:.(w|
00016f40  79 25 80 31 29 84 47 6e  25 3d 30 70 6c 25 3d 32  |y%.1).Gn%=0pl%=2|
00016f50  35 36 3a e1 0d 77 61 13  e7 47 6e 25 3e 46 42 25  |56:..wa..Gn%>FB%|
00016f60  47 6e 25 3d 46 42 25 0d  77 62 87 f2 46 28 57 25  |Gn%=FB%.wb..F(W%|
00016f70  2c 34 29 3a f2 46 28 57  25 2c 35 29 3a 5a 24 3d  |,4):.F(W%,5):Z$=|
00016f80  22 53 63 61 6e 6e 65 72  73 3a 22 3a e3 71 25 3d  |"Scanners:":.q%=|
00016f90  30 b8 47 6e 25 2d 31 3a  4a 24 28 71 25 29 3d a4  |0.Gn%-1:J$(q%)=.|
00016fa0  46 28 21 28 58 5a 25 2b  71 25 2a 34 29 29 3a 5a  |F(!(XZ%+q%*4)):Z|
00016fb0  24 2b 3d 22 7c 22 2b 4a  24 28 71 25 29 3a ed 3a  |$+="|"+J$(q%):.:|
00016fc0  e7 78 4a 25 3c 3e 32 35  36 5a 24 2b 3d 22 7c 57  |.xJ%<>256Z$+="|W|
00016fd0  61 74 66 6f 72 64 20 68  61 6e 64 20 68 65 6c 64  |atford hand held|
00016fe0  20 4d 6b 49 49 22 3a 78  4a 25 3d 47 6e 25 0d 77  | MkII":xJ%=Gn%.w|
00016ff0  63 23 f2 63 79 28 71 6e  25 2c 5a 24 2c 48 41 25  |c#.cy(qn%,Z$,HA%|
00017000  29 3a e7 6c 79 25 3e 47  6e 25 2d 31 6c 79 25 3d  |):.ly%>Gn%-1ly%=|
00017010  30 0d 77 64 50 f2 42 28  71 6e 25 2c 6c 79 25 2b  |0.wdP.B(qn%,ly%+|
00017020  31 29 3a c8 99 26 34 31  64 63 31 2c 6c 79 25 b8  |1):..&41dc1,ly%.|
00017030  2c 79 42 25 2c 49 75 25  2c 55 6e 25 2c 5f 75 25  |,yB%,Iu%,Un%,_u%|
00017040  3a f2 41 28 57 25 2c 32  2c a4 46 28 79 42 25 29  |:.A(W%,2,.F(yB%)|
00017050  29 3a f2 4b 5f 3a f2 58  5f 3a 6f 6f 25 3d b9 3a  |):.K_:.X_:oo%=.:|
00017060  e1 0d 77 65 a2 dd f2 43  75 3a 5a 24 3d 22 53 63  |..we...Cu:Z$="Sc|
00017070  61 6e 6e 65 72 73 3a 7c  57 61 74 66 6f 72 64 20  |anners:|Watford |
00017080  68 61 6e 64 20 68 65 6c  64 20 4d 6b 49 49 22 3a  |hand held MkII":|
00017090  f2 63 79 28 71 6e 25 2c  5a 24 2c 48 41 25 29 3a  |.cy(qn%,Z$,HA%):|
000170a0  6c 79 25 3d 30 3a f2 42  28 71 6e 25 2c 6c 79 25  |ly%=0:.B(qn%,ly%|
000170b0  2b 31 29 3a f2 41 28 57  25 2c 32 2c 22 57 61 74  |+1):.A(W%,2,"Wat|
000170c0  66 6f 72 64 20 68 61 6e  64 20 68 65 6c 64 20 4d  |ford hand held M|
000170d0  6b 49 49 22 29 3a 6d 6c  25 3d 30 3a 74 6c 25 3d  |kII"):ml%=0:tl%=|
000170e0  30 3a 58 6c 25 3d 34 2e  31 36 2a 37 32 30 30 30  |0:Xl%=4.16*72000|
000170f0  3a 43 75 25 3d 2d 31 3a  f2 4b 5f 3a 6f 6f 25 3d  |:Cu%=-1:.K_:oo%=|
00017100  b9 3a e1 0d 77 66 f5 dd  f2 69 69 3a 79 6f 25 3d  |.:..wf...ii:yo%=|
00017110  b9 3a f2 7a 5f 3a 63 5f  25 3d 30 3a 5a 24 3d 22  |.:.z_:c_%=0:Z$="|
00017120  4d 6f 64 65 73 3a 7c 4d  6f 6e 6f 63 68 72 6f 6d  |Modes:|Monochrom|
00017130  65 22 3a 63 65 25 3d 31  3a f2 63 79 28 66 69 25  |e":ce%=1:.cy(fi%|
00017140  2c 5a 24 2c 71 5a 25 29  3a f2 42 28 66 69 25 2c  |,Z$,qZ%):.B(fi%,|
00017150  31 29 3a f2 41 28 57 25  2c 33 2c 22 4d 6f 6e 6f  |1):.A(W%,3,"Mono|
00017160  63 68 72 6f 6d 65 22 29  3a f2 41 28 57 25 2c 32  |chrome"):.A(W%,2|
00017170  2c 22 57 61 74 66 6f 72  64 20 68 61 6e 64 20 68  |,"Watford hand h|
00017180  65 6c 64 20 4d 6b 49 49  22 29 3a f2 5a 28 57 25  |eld MkII"):.Z(W%|
00017190  2c 31 37 29 3a f2 5a 28  57 25 2c 31 38 29 3a f2  |,17):.Z(W%,18):.|
000171a0  5a 28 57 25 2c 31 39 29  3a f2 5a 28 57 25 2c 32  |Z(W%,19):.Z(W%,2|
000171b0  30 29 3a f2 5a 28 57 25  2c 32 31 29 3a f2 5a 28  |0):.Z(W%,21):.Z(|
000171c0  57 25 2c 32 32 29 3a f2  5a 28 57 25 2c 34 37 29  |W%,22):.Z(W%,47)|
000171d0  3a f2 5a 28 57 25 2c 34  38 29 3a f2 5a 28 57 25  |:.Z(W%,48):.Z(W%|
000171e0  2c 32 33 29 3a f2 5a 28  57 25 2c 32 34 29 3a f2  |,23):.Z(W%,24):.|
000171f0  5a 28 57 25 2c 34 39 29  0d 77 67 ab f2 5a 28 57  |Z(W%,49).wg..Z(W|
00017200  25 2c 35 30 29 3a f2 5a  28 57 25 2c 38 29 3a f2  |%,50):.Z(W%,8):.|
00017210  5a 28 57 25 2c 39 29 3a  f2 5a 28 57 25 2c 31 30  |Z(W%,9):.Z(W%,10|
00017220  29 3a f2 5a 28 57 25 2c  31 31 29 3a f2 5a 28 57  |):.Z(W%,11):.Z(W|
00017230  25 2c 31 32 29 3a f2 5a  28 57 25 2c 31 33 29 3a  |%,12):.Z(W%,13):|
00017240  f2 5a 28 57 25 2c 31 34  29 3a f2 5a 28 57 25 2c  |.Z(W%,14):.Z(W%,|
00017250  34 33 29 3a f2 5a 28 57  25 2c 33 38 29 3a f2 46  |43):.Z(W%,38):.F|
00017260  28 57 25 2c 33 39 29 3a  f2 5a 28 57 25 2c 34 30  |(W%,39):.Z(W%,40|
00017270  29 3a f2 5a 28 57 25 2c  34 31 29 3a 6d 6c 25 3d  |):.Z(W%,41):ml%=|
00017280  30 3a 74 6c 25 3d 30 3a  58 6c 25 3d 34 2e 31 36  |0:tl%=0:Xl%=4.16|
00017290  2a 37 32 30 30 30 3a 43  75 25 3d 2d 31 3a e7 74  |*72000:Cu%=-1:.t|
000172a0  6f 25 8c 0d 77 68 21 63  79 25 3d 58 6c 25 3a e7  |o%..wh!cy%=Xl%:.|
000172b0  43 75 25 3d 2d 31 52 79  25 3d a4 59 8b 52 79 25  |Cu%=-1Ry%=.Y.Ry%|
000172c0  3d 43 75 25 0d 77 69 26  f2 61 79 3a e7 a4 4d 28  |=Cu%.wi&.ay:..M(|
000172d0  57 25 2c 32 38 29 3d 22  49 6e 63 68 65 73 22 56  |W%,28)="Inches"V|
000172e0  4a 25 3d b9 8b 56 4a 25  3d a3 0d 77 6a 09 e7 56  |J%=..VJ%=..wj..V|
000172f0  4a 25 8c 0d 77 6b 41 f2  41 28 57 25 2c 33 31 2c  |J%..wkA.A(W%,31,|
00017300  c0 c3 28 a4 57 28 63 79  25 2f 37 32 30 30 30 29  |..(.W(cy%/72000)|
00017310  29 2c 37 29 29 3a f2 41  28 57 25 2c 33 32 2c c0  |),7)):.A(W%,32,.|
00017320  c3 28 a4 57 28 52 79 25  2f 37 32 30 30 30 29 29  |.(.W(Ry%/72000))|
00017330  2c 37 29 29 0d 77 6c 47  cc 3a f2 41 28 57 25 2c  |,7)).wlG.:.A(W%,|
00017340  33 31 2c c0 c3 28 a4 57  28 63 79 25 2f 37 32 30  |31,..(.W(cy%/720|
00017350  30 30 2a 53 29 29 2c 37  29 29 3a f2 41 28 57 25  |00*S)),7)):.A(W%|
00017360  2c 33 32 2c c0 c3 28 a4  57 28 52 79 25 2f 37 32  |,32,..(.W(Ry%/72|
00017370  30 30 30 2a 53 29 29 2c  37 29 29 0d 77 6d 08 cd  |000*S)),7)).wm..|
00017380  3a f2 78 0d 77 6e 37 cd  3a 46 6b 25 3d a3 3a 57  |:.x.wn7.:Fk%=.:W|
00017390  42 25 3d a3 3a 62 69 25  3d a3 3a 72 5a 25 3d a3  |B%=.:bi%=.:rZ%=.|
000173a0  3a 49 6b 25 3d a3 3a 6c  69 25 3d a3 3a 58 6f 25  |:Ik%=.:li%=.:Xo%|
000173b0  3d a3 3a 5f 75 25 3d 31  3a e1 0d 77 6f 96 dd f2  |=.:_u%=1:..wo...|
000173c0  43 69 28 53 24 29 3a 46  25 3d ae 28 22 3c 4f 70  |Ci(S$):F%=.("<Op|
000173d0  74 63 6c 50 72 6f 24 44  69 72 3e 2e 53 63 4c 6f  |tclPro$Dir>.ScLo|
000173e0  63 61 74 69 6f 6e 22 29  3a f1 23 46 25 2c 53 24  |cation"):.#F%,S$|
000173f0  3a d9 23 46 25 3a 4b 24  3d 53 24 3a f2 58 28 22  |:.#F%:K$=S$:.X("|
00017400  4d 65 73 73 61 67 65 20  66 72 6f 6d 20 4f 70 74  |Message from Opt|
00017410  69 63 61 6c 22 2c 22 21  53 63 61 6e 6e 65 72 20  |ical","!Scanner |
00017420  61 70 70 6c 69 63 61 74  69 6f 6e 20 70 61 74 68  |application path|
00017430  20 68 61 73 20 62 65 65  6e 20 63 68 61 6e 67 65  | has been change|
00017440  64 20 74 6f 20 22 2b 4b  24 2b 22 2e 22 29 3a e1  |d to "+K$+"."):.|
00017450  0d 77 70 3e dd a4 68 3a  ea 53 24 3a 46 25 3d 8e  |.wp>..h:.S$:F%=.|
00017460  28 22 3c 4f 70 74 63 6c  50 72 6f 24 44 69 72 3e  |("<OptclPro$Dir>|
00017470  2e 53 63 4c 6f 63 61 74  69 6f 6e 22 29 3a e8 23  |.ScLocation"):.#|
00017480  46 25 2c 53 24 3a d9 23  46 25 3a 3d 53 24 0d 77  |F%,S$:.#F%:=S$.w|
00017490  71 10 dd f2 57 75 3a e7  4b 24 3d 22 22 e1 0d 77  |q...Wu:.K$=""..w|
000174a0  72 fc c8 99 26 34 30 36  63 30 3a c8 99 26 32 30  |r...&406c0:..&20|
000174b0  30 30 35 2c 22 53 65 74  20 4f 70 74 69 63 61 6c  |005,"Set Optical|
000174c0  24 4d 6f 64 50 72 65 73  20 31 22 3a c8 99 26 32  |$ModPres 1":..&2|
000174d0  30 30 30 35 2c 22 52 4d  45 6e 73 75 72 65 20 53  |0005,"RMEnsure S|
000174e0  41 4d 20 30 2e 30 30 20  53 65 74 20 4f 70 74 69  |AM 0.00 Set Opti|
000174f0  63 61 6c 24 4d 6f 64 50  72 65 73 20 30 22 3a c8  |cal$ModPres 0":.|
00017500  99 33 35 2c 22 4f 70 74  69 63 61 6c 24 4d 6f 64  |.35,"Optical$Mod|
00017510  50 72 65 73 22 2c 4d 25  2c 31 30 2c 30 3a c8 99  |Pres",M%,10,0:..|
00017520  26 32 30 30 30 35 2c 22  55 6e 73 65 74 20 4f 70  |&20005,"Unset Op|
00017530  74 69 63 61 6c 24 4d 6f  64 50 72 65 73 22 3a e7  |tical$ModPres":.|
00017540  3f 4d 25 3d 97 28 22 30  22 29 8c c8 99 26 32 30  |?M%=.("0")...&20|
00017550  30 31 65 2c 31 2c 4b 24  2b 22 2e 44 72 69 76 65  |01e,1,K$+".Drive|
00017560  72 73 2e 21 53 61 6d 22  b8 48 61 25 3b 77 79 25  |rs.!Sam".Ha%;wy%|
00017570  3a e7 77 79 25 80 31 8c  f2 43 28 22 4f 70 74 69  |:.wy%.1..C("Opti|
00017580  63 61 6c 22 2c a4 46 28  48 61 25 2b 34 29 29 3a  |cal",.F(Ha%+4)):|
00017590  c8 99 26 34 30 36 63 32  3a e1 0d 77 73 fa c8 99  |..&406c2:..ws...|
000175a0  26 32 30 30 30 35 2c 22  53 65 74 20 4f 70 74 69  |&20005,"Set Opti|
000175b0  63 61 6c 24 4d 6f 64 50  72 65 73 20 31 22 3a c8  |cal$ModPres 1":.|
000175c0  99 26 32 30 30 30 35 2c  22 52 4d 45 6e 73 75 72  |.&20005,"RMEnsur|
000175d0  65 20 53 63 61 6e 6e 65  72 53 43 53 49 20 30 2e  |e ScannerSCSI 0.|
000175e0  30 30 20 53 65 74 20 4f  70 74 69 63 61 6c 24 4d  |00 Set Optical$M|
000175f0  6f 64 50 72 65 73 20 30  22 3a c8 99 33 35 2c 22  |odPres 0":..35,"|
00017600  4f 70 74 69 63 61 6c 24  4d 6f 64 50 72 65 73 22  |Optical$ModPres"|
00017610  2c 4d 25 2c 31 30 2c 30  3a c8 99 26 32 30 30 30  |,M%,10,0:..&2000|
00017620  35 2c 22 55 6e 73 65 74  20 4f 70 74 69 63 61 6c  |5,"Unset Optical|
00017630  24 4d 6f 64 50 72 65 73  22 3a e7 3f 4d 25 3d 97  |$ModPres":.?M%=.|
00017640  28 22 30 22 29 8c c8 99  26 32 30 30 30 35 2c 22  |("0")...&20005,"|
00017650  52 75 6e 20 22 2b 4b 24  2b 22 2e 52 75 6e 49 6e  |Run "+K$+".RunIn|
00017660  73 74 22 b8 48 61 25 3b  77 79 25 3a e7 77 79 25  |st".Ha%;wy%:.wy%|
00017670  80 31 8c f2 43 28 22 73  63 61 6e 6e 65 72 20 69  |.1..C("scanner i|
00017680  6e 74 65 72 66 61 63 65  22 2c a4 46 28 48 61 25  |nterface",.F(Ha%|
00017690  2b 34 29 29 0d 77 74 0e  c8 99 26 34 30 36 63 31  |+4)).wt...&406c1|
000176a0  3a e1 0d 77 75 75 dd f2  58 6c 3a e7 a4 55 28 22  |:..wuu..Xl:..U("|
000176b0  57 61 72 6e 69 6e 67 20  66 72 6f 6d 20 4f 70 74  |Warning from Opt|
000176c0  69 63 61 6c 22 2c 22 54  68 69 73 20 61 63 74 69  |ical","This acti|
000176d0  6f 6e 20 77 69 6c 6c 20  72 65 73 65 74 20 74 68  |on will reset th|
000176e0  65 20 21 53 63 61 6e 6e  65 72 20 61 70 70 6c 69  |e !Scanner appli|
000176f0  63 61 74 69 6f 6e 20 70  61 74 68 2e 20 43 6c 69  |cation path. Cli|
00017700  63 6b 20 6f 6e 20 4f 4b  20 74 6f 20 72 65 73 65  |ck on OK to rese|
00017710  74 2e 22 29 3d a3 e1 0d  77 76 3a 46 25 3d ae 28  |t.")=...wv:F%=.(|
00017720  22 3c 4f 70 74 63 6c 50  72 6f 24 44 69 72 3e 2e  |"<OptclPro$Dir>.|
00017730  53 63 4c 6f 63 61 74 69  6f 6e 22 29 3a f1 23 46  |ScLocation"):.#F|
00017740  25 2c 22 22 3a d9 23 46  25 3a 4b 24 3d 22 22 3a  |%,"":.#F%:K$="":|
00017750  e1 0d 77 77 11 dd f2 73  6c 3a c8 8e a4 50 28 30  |..ww...sl:...P(0|
00017760  29 ca 0d 77 78 0f c9 31  3a c8 99 26 38 33 36 63  |)..wx..1:..&836c|
00017770  33 0d 77 79 0a c9 32 3a  f2 49 79 0d 77 7a 07 cb  |3.wy..2:.Iy.wz..|
00017780  3a e1 0d 77 7b 7b dd f2  49 79 3a ea 62 5a 25 3a  |:..w{{..Iy:.bZ%:|
00017790  62 5a 25 3d 69 5f 25 3a  f2 48 3a 69 5f 25 3d 62  |bZ%=i_%:.H:i_%=b|
000177a0  5a 25 3a 4b 75 25 3d a4  53 28 69 79 25 29 3a f2  |Z%:Ku%=.S(iy%):.|
000177b0  42 4a 3a 21 4e 5f 3d 41  25 28 4d 5f 25 29 3a 21  |BJ:!N_=A%(M_%):!|
000177c0  76 5f 3d 5a 25 28 4d 5f  25 29 3a 21 49 75 3d 63  |v_=Z%(M_%):!Iu=c|
000177d0  69 25 3a 21 71 75 3d 4d  5f 25 3a 21 64 6c 3d 61  |i%:!qu=M_%:!dl=a|
000177e0  6c 25 3a 21 6a 75 3d 6a  6e 25 3a 21 6b 75 3d 5a  |l%:!ju=jn%:!ku=Z|
000177f0  3a e7 46 69 25 80 41 79  25 3e 3d 30 8c 0d 77 7c  |:.Fi%.Ay%>=0..w||
00017800  4b 4f 79 25 3d 31 3c 3c  33 30 3a 64 79 25 3d 30  |KOy%=1<<30:dy%=0|
00017810  3a 47 79 25 3d 31 3c 3c  33 30 3a 4c 79 25 3d 30  |:Gy%=1<<30:Ly%=0|
00017820  3a e3 6f 25 3d 30 b8 41  79 25 3a e7 51 25 21 28  |:.o%=0.Ay%:.Q%!(|
00017830  6f 25 2a 31 36 29 3c 4f  79 25 4f 79 25 3d 51 25  |o%*16)<Oy%Oy%=Q%|
00017840  21 28 6f 25 2a 31 36 29  0d 77 7d 25 e7 51 25 21  |!(o%*16).w}%.Q%!|
00017850  28 6f 25 2a 31 36 2b 34  29 3c 47 79 25 47 79 25  |(o%*16+4)<Gy%Gy%|
00017860  3d 51 25 21 28 6f 25 2a  31 36 2b 34 29 0d 77 7e  |=Q%!(o%*16+4).w~|
00017870  25 e7 51 25 21 28 6f 25  2a 31 36 2b 38 29 3e 64  |%.Q%!(o%*16+8)>d|
00017880  79 25 64 79 25 3d 51 25  21 28 6f 25 2a 31 36 2b  |y%dy%=Q%!(o%*16+|
00017890  38 29 0d 77 7f 27 e7 51  25 21 28 6f 25 2a 31 36  |8).w.'.Q%!(o%*16|
000178a0  2b 31 32 29 3e 4c 79 25  4c 79 25 3d 51 25 21 28  |+12)>Ly%Ly%=Q%!(|
000178b0  6f 25 2a 31 36 2b 31 32  29 0d 77 80 86 ed 3a 4f  |o%*16+12).w...:O|
000178c0  79 25 3d 4f 79 25 2a 37  32 30 30 30 2f 6e 75 25  |y%=Oy%*72000/nu%|
000178d0  2b 6f 61 25 3a 47 79 25  3d 47 79 25 2a 37 32 30  |+oa%:Gy%=Gy%*720|
000178e0  30 30 2f 64 75 25 2b 6c  61 25 3a 64 79 25 3d 64  |00/du%+la%:dy%=d|
000178f0  79 25 2a 37 32 30 30 30  2f 6e 75 25 2b 6f 61 25  |y%*72000/nu%+oa%|
00017900  3a 4c 79 25 3d 4c 79 25  2a 37 32 30 30 30 2f 64  |:Ly%=Ly%*72000/d|
00017910  75 25 2b 6c 61 25 3a 5a  21 30 3d 31 3a 5a 21 38  |u%+la%:Z!0=1:Z!8|
00017920  3d 4f 79 25 3a 5a 21 31  32 3d 64 79 25 3a 5a 21  |=Oy%:Z!12=dy%:Z!|
00017930  31 36 3d 47 79 25 3a 5a  21 32 30 3d 4c 79 25 0d  |16=Gy%:Z!20=Ly%.|
00017940  77 81 26 cc 3a 5a 21 30  3d 30 3a 5a 21 38 3d 30  |w.&.:Z!0=0:Z!8=0|
00017950  3a 5a 21 31 32 3d 30 3a  5a 21 31 36 3d 30 3a 5a  |:Z!12=0:Z!16=0:Z|
00017960  21 32 30 3d 30 0d 77 82  65 cd 3a 5a 21 34 3d 30  |!20=0.w.e.:Z!4=0|
00017970  3a 5a 21 32 34 3d 50 4a  3a 5a 21 32 38 3d 4e 4a  |:Z!24=PJ:Z!28=NJ|
00017980  3a 5a 21 33 32 3d 73 5f  3a 5a 21 33 36 3d 5f 5f  |:Z!32=s_:Z!36=__|
00017990  3a 5a 21 34 30 3d 78 5f  3a 5a 21 34 34 3d 46 4a  |:Z!40=x_:Z!44=FJ|
000179a0  3a 5a 21 34 38 3d 62 5f  3a 5a 21 35 32 3d 30 3a  |:Z!48=b_:Z!52=0:|
000179b0  5a 21 35 36 3d 30 3a 21  51 75 3d 5a 25 3a c8 99  |Z!56=0:!Qu=Z%:..|
000179c0  26 38 33 36 63 34 2c 5a  3a e1 0d 77 83 61 dd f2  |&836c4,Z:..w.a..|
000179d0  59 75 3a ea 54 70 25 2c  73 70 25 3a e7 76 21 34  |Yu:.Tp%,sp%:.v!4|
000179e0  3d 30 84 76 21 38 3d 30  f2 43 28 22 4f 70 74 69  |=0.v!8=0.C("Opti|
000179f0  63 61 6c 22 2c 22 54 68  65 20 69 6d 61 67 65 20  |cal","The image |
00017a00  63 6f 75 6c 64 20 6e 6f  74 20 62 65 20 73 63 61  |could not be sca|
00017a10  6e 6e 65 64 20 70 72 6f  70 65 72 6c 79 2e 22 29  |nned properly.")|
00017a20  3a f2 48 3a 69 5f 25 3d  a3 3a e1 0d 77 84 86 21  |:.H:i_%=.:..w..!|
00017a30  78 79 3d 30 3a 21 69 5f  3d 30 3a 21 63 61 3d 30  |xy=0:!i_=0:!ca=0|
00017a40  3a 21 76 3d 30 3a 21 70  5f 3d 30 3a 21 67 61 3d  |:!v=0:!p_=0:!ga=|
00017a50  30 3a 21 73 75 3d 30 3a  e7 21 77 4a 3d 32 8c f2  |0:!su=0:.!wJ=2..|
00017a60  43 28 22 4f 70 74 69 63  61 6c 22 2c 22 54 68 65  |C("Optical","The|
00017a70  72 65 20 69 73 20 6e 6f  74 20 65 6e 6f 75 67 68  |re is not enough|
00017a80  20 61 76 61 69 6c 61 62  6c 65 20 6d 65 6d 6f 72  | available memor|
00017a90  79 20 74 6f 20 73 63 61  6e 20 74 68 65 20 69 6d  |y to scan the im|
00017aa0  61 67 65 2e 22 29 3a f2  48 3a 69 5f 25 3d a3 3a  |age."):.H:i_%=.:|
00017ab0  e1 0d 77 85 63 e7 21 77  4a 3d 31 80 5a 21 34 3d  |..w.c.!wJ=1.Z!4=|
00017ac0  30 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |0..C("Optical","|
00017ad0  54 68 65 72 65 20 69 73  20 6e 6f 74 20 65 6e 6f  |There is not eno|
00017ae0  75 67 68 20 61 76 61 69  6c 61 62 6c 65 20 6d 65  |ugh available me|
00017af0  6d 6f 72 79 20 74 6f 20  73 63 61 6e 20 74 68 65  |mory to scan the|
00017b00  20 69 6d 61 67 65 2e 22  29 3a f2 48 3a 69 5f 25  | image."):.H:i_%|
00017b10  3d a3 3a e1 0d 77 86 33  41 25 28 4d 5f 25 29 3d  |=.:..w.3A%(M_%)=|
00017b20  21 4e 5f 3a 6e 6e 25 21  28 4d 5f 25 2a 34 29 3d  |!N_:nn%!(M_%*4)=|
00017b30  21 4e 5f 3a 5a 25 28 4d  5f 25 29 3d 21 76 5f 3a  |!N_:Z%(M_%)=!v_:|
00017b40  e7 5a 21 34 3d 30 8c 0d  77 87 6c c8 99 34 36 2c  |.Z!4=0..w.l..46,|
00017b50  32 35 36 2b 31 33 2c 41  25 28 4d 5f 25 29 2c 4d  |256+13,A%(M_%),M|
00017b60  25 2c 31 30 32 34 2c 31  3a 4d 24 3d a4 46 28 4d  |%,1024,1:M$=.F(M|
00017b70  25 29 3a c8 99 34 36 2c  32 35 36 2b 34 30 2c 41  |%):..46,256+40,A|
00017b80  25 28 4d 5f 25 29 2c 4d  24 b8 2c 2c 2c 6e 25 2c  |%(M_%),M$.,,,n%,|
00017b90  74 25 2c 2c 4a 75 25 3a  c8 99 34 36 2c 32 34 2b  |t%,,Ju%:..46,24+|
00017ba0  32 35 36 2c 41 25 28 4d  5f 25 29 2c 4d 24 b8 2c  |256,A%(M_%),M$.,|
00017bb0  2c 63 25 0d 77 88 67 cc  3a 4b 25 3d a4 41 28 21  |,c%.w.g.:K%=.A(!|
00017bc0  43 6c 2c 4d 5f 25 29 3a  c8 99 34 36 2c 32 34 2b  |Cl,M_%):..46,24+|
00017bd0  32 35 36 2c 41 25 28 4d  5f 25 29 2c 22 53 63 61  |256,A%(M_%),"Sca|
00017be0  6e 6e 65 64 22 b8 2c 2c  63 25 3a f2 60 75 3a c8  |nned".,,c%:.`u:.|
00017bf0  99 34 36 2c 32 35 36 2b  34 30 2c 41 25 28 4d 5f  |.46,256+40,A%(M_|
00017c00  25 29 2c 22 53 63 61 6e  6e 65 64 22 b8 2c 2c 2c  |%),"Scanned".,,,|
00017c10  6e 25 2c 74 25 2c 2c 4a  75 25 0d 77 89 e0 cd 3a  |n%,t%,,Ju%.w...:|
00017c20  55 79 25 3d 63 25 21 31  36 2b 31 3a 79 79 25 3d  |Uy%=c%!16+1:yy%=|
00017c30  63 25 21 32 30 2b 31 3a  52 75 25 3d 28 55 79 25  |c%!20+1:Ru%=(Uy%|
00017c40  2b 32 29 2a 34 2a 28 79  79 25 2b 35 29 2d 28 55  |+2)*4*(yy%+5)-(U|
00017c50  79 25 2b 31 29 2a 34 2a  28 79 79 25 2b 31 29 3a  |y%+1)*4*(yy%+1):|
00017c60  71 75 25 3d 5a 25 28 4d  5f 25 29 2b 52 75 25 3a  |qu%=Z%(M_%)+Ru%:|
00017c70  4b 25 3d a4 41 28 71 75  25 2b 38 2c 4d 5f 25 29  |K%=.A(qu%+8,M_%)|
00017c80  3a e7 4b 25 3d a3 f2 43  28 22 4f 70 74 69 63 61  |:.K%=..C("Optica|
00017c90  6c 22 2c 22 54 68 65 72  65 20 69 73 20 6e 6f 74  |l","There is not|
00017ca0  20 65 6e 6f 75 67 68 20  66 72 65 65 20 6d 65 6d  | enough free mem|
00017cb0  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
00017cc0  20 73 74 6f 72 65 20 74  68 69 73 20 69 6d 61 67  | store this imag|
00017cd0  65 2e 20 4e 65 65 64 20  22 2b c3 28 28 71 75 25  |e. Need "+.((qu%|
00017ce0  2b 38 29 81 31 30 32 34  29 2b 22 4b 2e 22 29 3a  |+8).1024)+"K."):|
00017cf0  f2 48 3a 69 5f 25 3d a3  3a e1 0d 77 8a 2f 21 41  |.H:i_%=.:..w./!A|
00017d00  25 28 4d 5f 25 29 3d 5a  25 28 4d 5f 25 29 3a 41  |%(M_%)=Z%(M_%):A|
00017d10  6c 25 3d 76 21 31 36 3a  4c 6c 25 3d 76 21 32 30  |l%=v!16:Ll%=v!20|
00017d20  3a e7 41 79 25 3e 3d 30  8c 0d 77 8b ad e3 6f 25  |:.Ay%>=0..w...o%|
00017d30  3d 30 b8 41 79 25 3a 51  25 21 28 6f 25 2a 31 36  |=0.Ay%:Q%!(o%*16|
00017d40  29 3d 28 51 25 21 28 6f  25 2a 31 36 29 2d 4f 79  |)=(Q%!(o%*16)-Oy|
00017d50  25 29 2a 41 6c 25 2f 6e  75 25 3a 51 25 21 28 6f  |%)*Al%/nu%:Q%!(o|
00017d60  25 2a 31 36 2b 34 29 3d  28 51 25 21 28 6f 25 2a  |%*16+4)=(Q%!(o%*|
00017d70  31 36 2b 34 29 2d 47 79  25 29 2a 4c 6c 25 2f 64  |16+4)-Gy%)*Ll%/d|
00017d80  75 25 3a 51 25 21 28 6f  25 2a 31 36 2b 38 29 3d  |u%:Q%!(o%*16+8)=|
00017d90  28 51 25 21 28 6f 25 2a  31 36 2b 38 29 2d 4f 79  |(Q%!(o%*16+8)-Oy|
00017da0  25 29 2a 41 6c 25 2f 6e  75 25 3a 51 25 21 28 6f  |%)*Al%/nu%:Q%!(o|
00017db0  25 2a 31 36 2b 31 32 29  3d 28 51 25 21 28 6f 25  |%*16+12)=(Q%!(o%|
00017dc0  2a 31 36 2b 31 32 29 2d  47 79 25 29 2a 4c 6c 25  |*16+12)-Gy%)*Ll%|
00017dd0  2f 64 75 25 3a ed 0d 77  8c 0e cd 3a e7 57 5f 25  |/du%:..w...:.W_%|
00017de0  3e 3d 30 8c 0d 77 8d ad  e3 6f 25 3d 30 b8 57 5f  |>=0..w...o%=0.W_|
00017df0  25 3a 66 25 21 28 6f 25  2a 31 36 29 3d 28 66 25  |%:f%!(o%*16)=(f%|
00017e00  21 28 6f 25 2a 31 36 29  2d 4f 79 25 29 2a 41 6c  |!(o%*16)-Oy%)*Al|
00017e10  25 2f 6e 75 25 3a 66 25  21 28 6f 25 2a 31 36 2b  |%/nu%:f%!(o%*16+|
00017e20  34 29 3d 28 66 25 21 28  6f 25 2a 31 36 2b 34 29  |4)=(f%!(o%*16+4)|
00017e30  2d 47 79 25 29 2a 4c 6c  25 2f 64 75 25 3a 66 25  |-Gy%)*Ll%/du%:f%|
00017e40  21 28 6f 25 2a 31 36 2b  38 29 3d 28 66 25 21 28  |!(o%*16+8)=(f%!(|
00017e50  6f 25 2a 31 36 2b 38 29  2d 4f 79 25 29 2a 41 6c  |o%*16+8)-Oy%)*Al|
00017e60  25 2f 6e 75 25 3a 66 25  21 28 6f 25 2a 31 36 2b  |%/nu%:f%!(o%*16+|
00017e70  31 32 29 3d 28 66 25 21  28 6f 25 2a 31 36 2b 31  |12)=(f%!(o%*16+1|
00017e80  32 29 2d 47 79 25 29 2a  4c 6c 25 2f 64 75 25 3a  |2)-Gy%)*Ll%/du%:|
00017e90  ed 0d 77 8e 42 cd 3a 6e  75 25 3d 41 6c 25 3a 64  |..w.B.:nu%=Al%:d|
00017ea0  75 25 3d 4c 6c 25 3a 6f  61 25 3d 5a 21 38 3a 6c  |u%=Ll%:oa%=Z!8:l|
00017eb0  61 25 3d 5a 21 31 36 3a  56 3d 30 3a 46 69 25 3d  |a%=Z!16:V=0:Fi%=|
00017ec0  b9 3a f2 67 79 3a e7 5a  21 34 3d 30 f2 79 5f 8b  |.:.gy:.Z!4=0.y_.|
00017ed0  f2 58 79 0d 77 8f 05 e1  0d 77 90 23 dd f2 60 75  |.Xy.w....w.#..`u|
00017ee0  3a ea 5f 79 25 2c 79 6b  25 3a 79 6b 25 3d 70 5f  |:._y%,yk%:yk%=p_|
00017ef0  21 38 3a e7 79 6b 25 3e  31 36 e1 0d 77 91 48 e3  |!8:.yk%>16..w.H.|
00017f00  5f 79 25 3d 30 b8 79 6b  25 2d 31 3a 63 25 21 28  |_y%=0.yk%-1:c%!(|
00017f10  34 34 2b 5f 79 25 2a 38  29 3d 7a 5f 21 28 5f 79  |44+_y%*8)=z_!(_y|
00017f20  25 2a 34 29 3a 63 25 21  28 34 34 2b 5f 79 25 2a  |%*4):c%!(44+_y%*|
00017f30  38 2b 34 29 3d 7a 5f 21  28 5f 79 25 2a 34 29 3a  |8+4)=z_!(_y%*4):|
00017f40  ed 3a e1 0d 77 92 4b dd  f2 57 69 3a ea 48 24 3a  |.:..w.K..Wi:.H$:|
00017f50  48 24 3d c3 28 ba 28 42  75 29 29 3a e7 c2 48 24  |H$=.(.(Bu)):..H$|
00017f60  2c 31 29 3d 22 30 22 8c  48 24 3d 48 24 2b 22 20  |,1)="0".H$=H$+" |
00017f70  28 53 69 74 65 29 22 8b  48 24 3d 48 24 2b 22 20  |(Site)".H$=H$+" |
00017f80  28 53 69 6e 67 6c 65 20  75 73 65 72 29 22 0d 77  |(Single user)".w|
00017f90  93 30 f2 41 28 49 6e 66  6f 5f 57 69 6e 64 6f 77  |.0.A(Info_Window|
00017fa0  25 2c 31 32 2c a4 4d 28  49 6e 66 6f 5f 57 69 6e  |%,12,.M(Info_Win|
00017fb0  64 6f 77 25 2c 31 32 29  2b 48 24 29 3a e1 0d 77  |dow%,12)+H$):..w|
00017fc0  94 15 dd f2 49 6c 28 49  25 2c 6a 25 29 3a c8 8e  |....Il(I%,j%):..|
00017fd0  6a 25 ca 0d 77 95 35 c9  31 33 2c 31 38 3a f2 53  |j%..w.5.13,18:.S|
00017fe0  28 60 5f 25 2c 30 2c 31  29 3a f2 4d 28 6b 25 29  |(`_%,0,1):.M(k%)|
00017ff0  3a f2 4d 28 60 5f 25 29  3a f2 57 79 3a f2 53 28  |:.M(`_%):.Wy:.S(|
00018000  60 5f 25 2c 30 2c 30 29  0d 77 96 0b 7f f2 76 28  |`_%,0,0).w....v(|
00018010  6a 25 29 0d 77 97 07 cb  3a e1 0d 77 98 31 dd f2  |j%).w...:..w.1..|
00018020  76 28 6a 25 29 3a ea 44  70 25 2c 4c 70 25 2c 48  |v(j%):.Dp%,Lp%,H|
00018030  70 25 2c 58 70 25 3a f2  63 3a c8 99 26 36 30 30  |p%,Xp%:.c:..&600|
00018040  64 34 2c 2d 31 3a c8 8e  6a 25 ca 0d 77 99 17 c9  |d4,-1:..j%..w...|
00018050  32 37 3a ff 28 22 46 58  32 31 22 29 3a e7 50 6c  |27:.("FX21"):.Pl|
00018060  25 8c 0d 77 9a d2 c8 99  26 34 30 30 64 30 2c 30  |%..w....&400d0,0|
00018070  3a f2 59 28 22 22 29 3a  5f 4a 25 3d 30 3a 6d 75  |:.Y(""):_J%=0:mu|
00018080  25 3d 30 3a 4f 6c 25 3d  30 3a 50 6c 25 3d 30 3a  |%=0:Ol%=0:Pl%=0:|
00018090  4d 25 21 30 3d 5f 5f 25  3a 4d 25 21 34 3d 30 3a  |M%!0=__%:M%!4=0:|
000180a0  4d 25 21 38 3d 2d 31 30  30 30 30 30 3a 4d 25 21  |M%!8=-100000:M%!|
000180b0  31 32 3d 31 30 30 30 30  30 3a 4d 25 21 31 36 3d  |12=100000:M%!16=|
000180c0  30 3a c8 99 26 34 30 30  63 39 2c 2c 4d 25 b8 64  |0:..&400c9,,M%.d|
000180d0  25 3a 4c 25 3d 4d 25 21  34 2d 4d 25 21 32 30 3a  |%:L%=M%!4-M%!20:|
000180e0  58 25 3d 4d 25 21 31 36  2d 4d 25 21 32 34 3a f2  |X%=M%!16-M%!24:.|
000180f0  57 28 33 2c 31 31 29 3a  c8 95 64 25 3a f2 57 28  |W(3,11):..d%:.W(|
00018100  33 2c 31 31 29 3a 86 56  79 25 2b 4c 25 2c 58 25  |3,11):.Vy%+L%,X%|
00018110  2d 48 79 25 2c 62 79 25  2b 4c 25 2c 58 25 2d 74  |-Hy%,by%+L%,X%-t|
00018120  79 25 3a c8 99 26 34 30  30 63 61 2c 2c 4d 25 b8  |y%:..&400ca,,M%.|
00018130  64 25 3a ce 0d 77 9b 23  cd 3a e7 57 79 25 3c 3e  |d%:..w.#.:.Wy%<>|
00018140  30 84 21 41 3c 3e 30 84  49 79 25 8c 21 60 5f 3d  |0.!A<>0.Iy%.!`_=|
00018150  b9 3a f2 48 79 3a e1 0d  77 9c 3a f2 4d 28 53 61  |.:.Hy:..w.:.M(Sa|
00018160  76 65 54 65 78 74 5f 57  69 6e 64 6f 77 25 29 3a  |veText_Window%):|
00018170  f2 4d 28 53 61 76 65 46  5f 57 69 6e 64 6f 77 25  |.M(SaveF_Window%|
00018180  29 3a 7a 79 25 3d a3 3a  e7 a4 53 28 7a 75 25 29  |):zy%=.:..S(zu%)|
00018190  8c 0d 77 9d 24 f2 4d 28  7a 75 25 29 3a f2 6d 3a  |..w.$.M(zu%):.m:|
000181a0  e7 47 61 25 c8 99 26 34  30 30 64 30 2c 2c 30 3a  |.Ga%..&400d0,,0:|
000181b0  47 61 25 3d a3 0d 77 9e  09 7a 79 25 3d b9 0d 77  |Ga%=..w..zy%=..w|
000181c0  9f 0b cd 3a e7 7a 79 25  e1 0d 77 a0 0c e7 a4 53  |...:.zy%..w....S|
000181d0  28 77 25 29 8c 0d 77 a1  3c 78 79 25 3d 50 25 3a  |(w%)..w.<xy%=P%:|
000181e0  50 25 3d 2d 31 3a f2 64  3a 50 25 3d 78 79 25 3a  |P%=-1:.d:P%=xy%:|
000181f0  6a 79 25 3d a3 3a f2 4f  28 50 25 29 3a f2 4d 28  |jy%=.:.O(P%):.M(|
00018200  77 25 29 3a f2 4d 28 56  5f 25 29 3a 7a 79 25 3d  |w%):.M(V_%):zy%=|
00018210  b9 0d 77 a2 0b cd 3a e7  7a 79 25 e1 0d 77 a3 0a  |..w...:.zy%..w..|
00018220  e7 44 79 25 f2 79 0d 77  a4 0f c8 99 26 34 30 30  |.Dy%.y.w....&400|
00018230  64 63 2c 6a 25 0d 77 a5  0f c9 31 33 3a e7 59 25  |dc,j%.w...13:.Y%|
00018240  3d 2d 33 8c 0d 77 a6 0a  c8 8e 4c 5a 25 ca 0d 77  |=-3..w....LZ%..w|
00018250  a7 0c c9 30 3a 6d 61 25  3d b9 0d 77 a8 06 c9 31  |...0:ma%=..w...1|
00018260  0d 77 a9 05 cb 0d 77 aa  11 cc 3a c8 99 26 34 30  |.w....w...:..&40|
00018270  30 64 63 2c 6a 25 0d 77  ab 05 cd 0d 77 ac 27 c9  |0dc,j%.w....w.'.|
00018280  33 38 35 3a e7 a4 53 28  6b 25 29 3d a3 80 a4 53  |385:..S(k%)=...S|
00018290  28 48 5f 25 29 3d a3 80  a4 53 28 51 5f 25 29 3d  |(H_%)=...S(Q_%)=|
000182a0  a3 e1 0d 77 ad 37 c8 99  26 34 30 30 63 66 2c 2c  |...w.7..&400cf,,|
000182b0  5a 25 3a 73 25 3d 5a 25  21 30 3a 76 25 3d 5a 25  |Z%:s%=Z%!0:v%=Z%|
000182c0  21 34 3a f2 54 28 5a 6f  6f 6d 5f 57 69 6e 64 6f  |!4:.T(Zoom_Windo|
000182d0  77 25 2c 73 25 2c 76 25  29 0d 77 ae 11 c9 34 31  |w%,s%,v%).w...41|
000182e0  37 3a e7 a4 53 28 6b 25  29 8c 0d 77 af 2c f2 42  |7:..S(k%)..w.,.B|
000182f0  28 66 5f 25 2c 39 29 3a  e7 55 75 25 f2 4d 28 60  |(f_%,9):.Uu%.M(`|
00018300  5f 25 29 3a 55 75 25 3d  a3 8b 55 75 25 3d b9 3a  |_%):Uu%=..Uu%=.:|
00018310  f2 77 28 6b 25 29 0d 77  b0 0c f2 41 75 28 60 5f  |.w(k%).w...Au(`_|
00018320  25 29 0d 77 b1 05 cd 0d  77 b2 0e c9 33 38 36 3a  |%).w....w...386:|
00018330  e7 79 6c 25 8c 0d 77 b3  13 4b 75 25 3d a4 53 28  |.yl%..w..Ku%=.S(|
00018340  69 79 25 29 3a f2 49 79  0d 77 b4 08 cc 3a f2 6c  |iy%):.Iy.w...:.l|
00018350  0d 77 b5 05 cd 0d 77 b6  08 c9 33 38 37 0d 77 b7  |.w....w...387.w.|
00018360  08 c9 34 30 33 0d 77 b8  08 c9 34 31 39 0d 77 b9  |..403.w...419.w.|
00018370  08 c9 34 33 35 0d 77 ba  17 c9 33 38 38 3a e7 a4  |..435.w...388:..|
00018380  53 28 65 25 29 f2 68 79  8b f2 42 79 0d 77 bb 39  |S(e%).hy..By.w.9|
00018390  c9 33 38 39 3a f2 41 28  67 25 2c 31 36 2c 22 4e  |.389:.A(g%,16,"N|
000183a0  6f 20 6c 65 74 74 65 72  20 6d 61 72 6b 65 64 22  |o letter marked"|
000183b0  29 3a f2 5a 28 67 25 2c  31 32 29 3a f2 44 28 67  |):.Z(g%,12):.D(g|
000183c0  25 29 3a f2 5f 0d 77 bc  21 c9 34 30 35 3a e7 61  |%):._.w.!.405:.a|
000183d0  5f 25 3d a3 84 57 79 25  3c 3e 30 84 21 41 3c 3e  |_%=..Wy%<>0.!A<>|
000183e0  30 84 49 79 25 e1 0d 77  bd 0e e7 44 79 25 f2 79  |0.Iy%..w...Dy%.y|
000183f0  8b f2 54 79 0d 77 be 10  c9 34 32 31 3a f2 44 28  |..Ty.w...421:.D(|
00018400  73 4a 25 29 0d 77 bf 13  c9 33 39 30 3a e7 43 79  |sJ%).w...390:.Cy|
00018410  25 3e 3d 30 f2 6b 5f 0d  77 c0 0b c9 33 39 31 3a  |%>=0.k_.w...391:|
00018420  f2 7a 0d 77 c1 08 c9 33  39 32 0d 77 c2 14 c9 33  |.z.w...392.w...3|
00018430  39 33 3a f2 49 5f 3a f2  44 28 42 79 25 29 0d 77  |93:.I_:.D(By%).w|
00018440  c3 0c c9 34 30 39 3a f2  6e 4a 0d 77 c4 18 c9 35  |...409:.nJ.w...5|
00018450  30 37 3a f2 52 5f 3a f2  44 28 52 60 25 29 3a f2  |07:.R_:.D(R`%):.|
00018460  52 5f 0d 77 c5 10 7f c8  99 26 34 30 30 64 63 2c  |R_.w.....&400dc,|
00018470  6a 25 0d 77 c6 07 cb 3a  e1 0d 77 c7 16 dd f2 52  |j%.w...:..w....R|
00018480  69 28 62 25 2c 49 25 29  3a c8 8e 4c 5a 25 ca 0d  |i(b%,I%):..LZ%..|
00018490  77 c8 0c c9 30 3a c8 8e  49 25 ca 0d 77 c9 0c c9  |w...0:..I%..w...|
000184a0  30 3a 6d 61 25 3d b9 0d  77 ca 06 c9 31 0d 77 cb  |0:ma%=..w...1.w.|
000184b0  05 cb 0d 77 cc 06 c9 31  0d 77 cd 07 cb 3a e1 0d  |...w...1.w...:..|
000184c0  77 ce 72 dd f2 61 69 3a  ea 6d 65 25 2c 4a 4f 25  |w.r..ai:.me%,JO%|
000184d0  2c 46 65 25 2c 43 65 25  2c 41 75 25 2c 67 75 25  |,Fe%,Ce%,Au%,gu%|
000184e0  2c 4a 2c 47 2c 42 2c 50  2c 69 61 25 2c 76 6e 25  |,J,G,B,P,ia%,vn%|
000184f0  3a c8 99 26 34 30 30 64  35 2c 2c 71 61 25 2c 5a  |:..&400d5,,qa%,Z|
00018500  25 2c 4d 25 3a 46 24 3d  24 4d 25 3a e7 c2 46 24  |%,M%:F$=$M%:..F$|
00018510  2c 31 30 29 3d 22 2e 28  52 65 67 75 6c 61 72 29  |,10)=".(Regular)|
00018520  22 46 24 3d c0 46 24 2c  a9 28 46 24 29 2d 31 30  |"F$=.F$,.(F$)-10|
00018530  29 0d 77 cf 30 c8 99 26  36 30 30 38 31 2c 2c 46  |).w.0..&60081,,F|
00018540  24 2c 36 30 2a 31 36 2c  36 30 2a 31 36 2c 30 2c  |$,60*16,60*16,0,|
00018550  30 b8 4f 4a 25 3b 42 5f  25 3a e7 42 5f 25 80 31  |0.OJ%;B_%:.B_%.1|
00018560  8c 0d 77 d0 bb 57 79 24  3d 46 24 3a 44 75 25 3d  |..w..Wy$=F$:Du%=|
00018570  21 28 71 61 25 2b 32 38  2b 5a 25 21 30 2a 32 34  |!(qa%+28+Z%!0*24|
00018580  2b 34 29 3a 44 75 25 2b  3d 32 38 3a 51 60 25 3d  |+4):Du%+=28:Q`%=|
00018590  30 3a 74 72 25 3d 21 28  44 75 25 2b 51 60 25 2a  |0:tr%=!(Du%+Q`%*|
000185a0  32 34 29 80 28 31 3c 3c  37 29 3a c8 95 74 72 25  |24).(1<<7):..tr%|
000185b0  3d 30 3a 51 60 25 2b 3d  31 3a 74 72 25 3d 21 28  |=0:Q`%+=1:tr%=!(|
000185c0  44 75 25 2b 51 60 25 2a  32 34 29 80 28 31 3c 3c  |Du%+Q`%*24).(1<<|
000185d0  37 29 3a ce 3a 51 60 25  2b 3d 31 3a 42 4a 25 3d  |7):.:Q`%+=1:BJ%=|
000185e0  30 3a c8 95 42 4a 25 3c  51 60 25 3a 5a 25 21 34  |0:..BJ%<Q`%:Z%!4|
000185f0  3d 42 4a 25 3a 5a 25 21  38 3d 2d 31 3a c8 99 26  |=BJ%:Z%!8=-1:..&|
00018600  36 30 30 64 35 2c 2c 71  61 25 2c 5a 25 2c 4d 25  |600d5,,qa%,Z%,M%|
00018610  b8 3b 42 5f 25 3a 4c 24  3d 24 4d 25 0d 77 d1 9a  |.;B_%:L$=$M%.w..|
00018620  e7 28 a7 4c 24 2c 22 4d  65 64 69 75 6d 22 29 3c  |.(.L$,"Medium")<|
00018630  3e 30 80 a7 4c 24 2c 22  4d 65 64 69 75 6d 2e 22  |>0..L$,"Medium."|
00018640  29 3d 30 29 84 28 a7 4c  24 2c 22 42 6f 6f 6b 22  |)=0).(.L$,"Book"|
00018650  29 3c 3e 30 80 a7 4c 24  2c 22 42 6f 6f 6b 2e 22  |)<>0..L$,"Book."|
00018660  29 3d 30 29 84 28 a7 4c  24 2c 22 53 74 61 6e 64  |)=0).(.L$,"Stand|
00018670  61 72 64 22 29 3c 3e 30  80 a7 4c 24 2c 22 53 74  |ard")<>0..L$,"St|
00018680  61 6e 64 61 72 64 2e 22  29 3d 30 29 84 28 a7 4c  |andard.")=0).(.L|
00018690  24 2c 22 4e 6f 72 6d 61  6c 22 29 3c 3e 30 80 a7  |$,"Normal")<>0..|
000186a0  4c 24 2c 22 4e 6f 72 6d  61 6c 2e 22 29 3d 30 29  |L$,"Normal.")=0)|
000186b0  8c 46 24 3d 4c 24 0d 77  d2 15 42 4a 25 2b 3d 31  |.F$=L$.w..BJ%+=1|
000186c0  3a ce 3a e7 46 24 3d 57  79 24 8c 0d 77 d3 2d 5a  |:.:.F$=Wy$..w.-Z|
000186d0  25 21 34 3d 30 3a 5a 25  21 38 3d 2d 31 3a c8 99  |%!4=0:Z%!8=-1:..|
000186e0  26 34 30 30 64 35 2c 2c  71 61 25 2c 5a 25 2c 4d  |&400d5,,qa%,Z%,M|
000186f0  25 3a 46 24 3d 24 4d 25  0d 77 d4 2b cd 3a e7 c2  |%:F$=$M%.w.+.:..|
00018700  46 24 2c 31 30 29 3d 22  2e 28 52 65 67 75 6c 61  |F$,10)=".(Regula|
00018710  72 29 22 46 24 3d c0 46  24 2c a9 28 46 24 29 2d  |r)"F$=.F$,.(F$)-|
00018720  31 30 29 0d 77 d5 4b cd  3a c8 99 26 36 30 30 38  |10).w.K.:..&6008|
00018730  31 2c 2c 46 24 2c 36 30  2a 31 36 2c 36 30 2a 31  |1,,F$,60*16,60*1|
00018740  36 2c 30 2c 30 b8 4f 4a  25 3b 42 5f 25 3a e7 42  |6,0,0.OJ%;B_%:.B|
00018750  5f 25 80 31 8c f2 43 28  22 4f 70 74 69 63 61 6c  |_%.1..C("Optical|
00018760  22 2c a4 46 28 4f 4a 25  2b 34 29 29 3a e1 0d 77  |",.F(OJ%+4)):..w|
00018770  d6 0a c8 8e 4a 6b 25 ca  0d 77 d7 12 c9 31 3a f2  |....Jk%..w...1:.|
00018780  52 75 28 46 24 2c 4f 4a  25 29 0d 77 d8 2b c9 32  |Ru(F$,OJ%).w.+.2|
00018790  3a c8 99 26 36 30 30 38  32 2c 4f 4a 25 3a f2 6b  |:..&60082,OJ%:.k|
000187a0  79 28 46 24 29 3a f2 70  79 28 69 25 29 3a f2 46  |y(F$):.py(i%):.F|
000187b0  79 28 69 25 29 0d 77 d9  07 cb 3a e1 0d 77 da 80  |y(i%).w...:..w..|
000187c0  dd f2 52 75 28 46 24 2c  4f 4a 25 29 3a f2 41 28  |..Ru(F$,OJ%):.A(|
000187d0  66 79 25 2c 31 2c 46 24  29 3a f2 41 28 66 79 25  |fy%,1,F$):.A(fy%|
000187e0  2c 34 2c c0 46 24 2c 33  39 29 29 3a e3 4f 25 3d  |,4,.F$,39)):.O%=|
000187f0  30 b8 32 35 35 3a 66 6c  25 3f 4f 25 3d 69 65 25  |0.255:fl%?O%=ie%|
00018800  3f 4f 25 3a ed 3a c8 99  26 34 30 36 63 30 3a e3  |?O%:.:..&406c0:.|
00018810  4f 25 3d 33 33 b8 32 35  35 3a c8 99 26 34 30 36  |O%=33.255:..&406|
00018820  63 34 2c 28 4f 25 2d 33  33 29 2f 32 32 32 2a 31  |c4,(O%-33)/222*1|
00018830  30 30 3a e7 4f 25 3c 3e  31 32 37 8c 0d 77 db 54  |00:.O%<>127..w.T|
00018840  c8 99 26 36 30 30 38 65  2c 4f 4a 25 2c 4f 25 2c  |..&6008e,OJ%,O%,|
00018850  31 36 b8 2c 6d 65 25 2c  4a 4f 25 2c 46 65 25 2c  |16.,me%,JO%,Fe%,|
00018860  43 65 25 3b 42 5f 25 3a  e7 28 42 5f 25 80 31 29  |Ce%;B_%:.(B_%.1)|
00018870  84 46 65 25 2d 6d 65 25  3c 3d 30 84 43 65 25 2d  |.Fe%-me%<=0.Ce%-|
00018880  4a 4f 25 3c 3d 30 8c 66  6c 25 3f 4f 25 2b 3d 32  |JO%<=0.fl%?O%+=2|
00018890  0d 77 dc 2f cd 3a ed 3a  f2 69 5f 3a c8 99 26 34  |.w./.:.:.i_:..&4|
000188a0  30 36 63 31 3a e7 43 79  25 3e 3d 30 f2 46 28 66  |06c1:.Cy%>=0.F(f|
000188b0  79 25 2c 36 29 8b f2 5a  28 66 79 25 2c 36 29 0d  |y%,6)..Z(fy%,6).|
000188c0  77 dd 1b e7 a4 53 28 66  79 25 29 f2 4a 28 66 79  |w....S(fy%).J(fy|
000188d0  25 29 8b f2 44 28 66 79  25 29 0d 77 de 12 f2 47  |%)..D(fy%).w...G|
000188e0  28 66 79 25 2c 31 38 2c  30 29 3a e1 0d 77 df 31  |(fy%,18,0):..w.1|
000188f0  dd f2 4c 6c 28 62 25 2c  49 25 29 3a e7 62 25 3d  |..Ll(b%,I%):.b%=|
00018900  31 80 49 25 3d 31 39 49  25 3d 31 36 8b e7 62 25  |1.I%=19I%=16..b%|
00018910  3d 31 80 49 25 3d 31 36  49 25 3d 31 39 0d 77 e0  |=1.I%=16I%=19.w.|
00018920  09 c8 8e 49 25 ca 0d 77  e1 0a c9 32 3a f2 6b 4a  |...I%..w...2:.kJ|
00018930  0d 77 e2 18 c9 38 3a f2  6a 28 36 35 2c 39 30 29  |.w...8:.j(65,90)|
00018940  3a f2 4a 28 66 79 25 29  0d 77 e3 19 c9 39 3a f2  |:.J(fy%).w...9:.|
00018950  6a 28 39 37 2c 31 32 32  29 3a f2 4a 28 66 79 25  |j(97,122):.J(fy%|
00018960  29 0d 77 e4 19 c9 31 30  3a f2 6a 28 34 38 2c 35  |).w...10:.j(48,5|
00018970  37 29 3a f2 4a 28 66 79  25 29 0d 77 e5 39 c9 31  |7):.J(fy%).w.9.1|
00018980  31 3a f2 6a 28 33 33 2c  34 37 29 3a f2 6a 28 35  |1:.j(33,47):.j(5|
00018990  38 2c 36 34 29 3a f2 6a  28 39 31 2c 39 36 29 3a  |8,64):.j(91,96):|
000189a0  f2 6a 28 31 32 33 2c 31  32 36 29 3a f2 4a 28 66  |.j(123,126):.J(f|
000189b0  79 25 29 0d 77 e6 1b c9  31 32 3a f2 6a 28 31 32  |y%).w...12:.j(12|
000189c0  37 2c 31 39 31 29 3a f2  4a 28 66 79 25 29 0d 77  |7,191):.J(fy%).w|
000189d0  e7 1a c9 37 3a f2 6a 28  31 39 32 2c 32 35 35 29  |...7:.j(192,255)|
000189e0  3a f2 4a 28 66 79 25 29  0d 77 e8 0f c9 36 3a e7  |:.J(fy%).w...6:.|
000189f0  43 79 25 3e 3d 30 8c 0d  77 e9 1f f2 46 28 66 79  |Cy%>=0..w...F(fy|
00018a00  25 2c 36 29 3a f2 6a 69  3a f2 54 28 4f 72 25 2c  |%,6):.ji:.T(Or%,|
00018a10  79 25 2c 68 25 29 0d 77  ea 0f cc 3a f2 5a 28 66  |y%,h%).w...:.Z(f|
00018a20  79 25 2c 36 29 0d 77 eb  05 cd 0d 77 ec 0b c9 31  |y%,6).w....w...1|
00018a30  37 3a f2 69 5f 0d 77 ed  18 c9 31 39 3a f2 69 28  |7:.i_.w...19:.i(|
00018a40  66 79 25 2c 31 34 2c 39  39 39 2c 31 29 0d 77 ee  |fy%,14,999,1).w.|
00018a50  16 c9 31 36 3a f2 68 28  66 79 25 2c 31 34 2c 31  |..16:.h(fy%,14,1|
00018a60  2c 31 29 0d 77 ef 0f c9  31 33 3a f2 4d 28 66 79  |,1).w...13:.M(fy|
00018a70  25 29 0d 77 f0 1b c9 32  30 3a 4a 6b 25 3d 31 3a  |%).w...20:Jk%=1:|
00018a80  f2 54 28 71 61 25 2c 79  25 2c 68 25 29 0d 77 f1  |.T(qa%,y%,h%).w.|
00018a90  09 7f 3a f2 65 75 0d 77  f2 07 cb 3a e1 0d 77 f3  |..:.eu.w...:..w.|
00018aa0  c8 dd f2 69 5f 3a ea 4f  6f 25 3a 4f 6f 25 3d bb  |...i_:.Oo%:Oo%=.|
00018ab0  28 a4 4d 28 66 79 25 2c  31 34 29 29 3a c8 99 26  |(.M(fy%,14)):..&|
00018ac0  36 30 30 38 31 2c 2c 46  24 2c 31 34 2a 31 36 2a  |60081,,F$,14*16*|
00018ad0  4f 6f 25 2f 31 30 30 2c  31 34 2a 31 36 2c 30 2c  |Oo%/100,14*16,0,|
00018ae0  30 b8 71 41 25 3b 42 5f  25 3a e7 42 5f 25 80 31  |0.qA%;B_%:.B_%.1|
00018af0  8c f2 58 28 22 45 72 72  6f 72 20 66 72 6f 6d 20  |..X("Error from |
00018b00  4f 70 74 69 63 61 6c 22  2c 22 49 6e 73 75 66 66  |Optical","Insuff|
00018b10  69 63 69 65 6e 74 20 66  6f 6e 74 20 63 61 63 68  |icient font cach|
00018b20  65 20 6d 65 6d 6f 72 79  20 61 6c 6c 6f 63 61 74  |e memory allocat|
00018b30  65 64 2e 20 49 6e 63 72  65 61 73 65 20 73 69 7a  |ed. Increase siz|
00018b40  65 20 69 6e 20 74 61 73  6b 20 6d 61 6e 61 67 65  |e in task manage|
00018b50  72 20 61 6e 64 20 74 68  65 6e 20 72 65 74 72 79  |r and then retry|
00018b60  2e 22 29 3a e1 0d 77 f4  97 5a 25 21 30 3d 66 79  |."):..w..Z%!0=fy|
00018b70  25 3a 5a 25 21 34 3d 31  38 3a c8 99 26 34 30 30  |%:Z%!4=18:..&400|
00018b80  63 65 2c 2c 5a 25 3a 5a  25 21 38 3d 71 41 25 2a  |ce,,Z%:Z%!8=qA%*|
00018b90  26 31 30 30 30 30 30 30  2b 28 31 3c 3c 36 29 3a  |&1000000+(1<<6):|
00018ba0  5a 25 21 31 32 3d 26 66  66 30 30 30 30 30 30 2b  |Z%!12=&ff000000+|
00018bb0  28 31 3c 3c 36 29 3a c8  99 26 34 30 30 63 64 2c  |(1<<6):..&400cd,|
00018bc0  2c 5a 25 3a c8 99 26 34  30 30 64 33 2c 2c 5a 25  |,Z%:..&400d3,,Z%|
00018bd0  3a c8 99 26 36 30 30 64  32 2c 5a 25 21 30 2c 5a  |:..&600d2,Z%!0,Z|
00018be0  25 21 34 2c 5a 25 21 38  2c 5a 25 21 31 32 2c 5a  |%!4,Z%!8,Z%!12,Z|
00018bf0  25 21 31 36 2c 5a 25 21  32 30 3a e1 0d 77 f5 0e  |%!16,Z%!20:..w..|
00018c00  dd f2 6a 69 3a f2 5a 69  3a e1 0d 77 f6 3e dd f2  |..ji:.Zi:..w.>..|
00018c10  5a 69 3a 5a 24 3d 22 46  6f 6e 74 73 22 3a e3 53  |Zi:Z$="Fonts":.S|
00018c20  79 25 3d 30 b8 43 79 25  3a 5a 24 2b 3d 22 2c 22  |y%=0.Cy%:Z$+=","|
00018c30  2b 41 24 28 53 79 25 29  3a ed 3a f2 79 79 28 4f  |+A$(Sy%):.:.yy(O|
00018c40  72 25 2c 5a 24 29 3a e1  0d 77 f7 28 dd f2 57 61  |r%,Z$):..w.(..Wa|
00018c50  3a 70 79 25 3d a4 50 28  30 29 2d 31 3a f2 41 28  |:py%=.P(0)-1:.A(|
00018c60  66 79 25 2c 34 2c 41 24  28 70 79 25 29 29 3a e1  |fy%,4,A$(py%)):.|
00018c70  0d 77 f8 99 dd f2 65 75  3a 5a 25 21 30 3d 66 79  |.w....eu:Z%!0=fy|
00018c80  25 3a c8 99 26 34 30 30  65 30 2c 2c 5a 25 3a 49  |%:..&400e0,,Z%:I|
00018c90  60 25 3d 5a 25 21 34 2b  34 3a 56 60 25 3d 5a 25  |`%=Z%!4+4:V`%=Z%|
00018ca0  21 38 2b 33 35 36 2d 38  3a c8 99 26 34 30 30 63  |!8+356-8:..&400c|
00018cb0  66 2c 2c 5a 25 3a 73 25  3d 5a 25 21 30 3a 76 25  |f,,Z%:s%=Z%!0:v%|
00018cc0  3d 5a 25 21 34 3a e7 73  25 2d 49 60 25 3e 33 31  |=Z%!4:.s%-I`%>31|
00018cd0  80 56 60 25 2d 76 25 3e  33 31 8c 4f 25 3d 33 30  |.V`%-v%>31.O%=30|
00018ce0  2b a8 28 28 73 25 2d 49  60 25 2d 31 36 29 2f 34  |+.((s%-I`%-16)/4|
00018cf0  38 29 2a 31 30 2b a8 28  28 56 60 25 2d 76 25 2d  |8)*10+.((V`%-v%-|
00018d00  32 38 29 2f 33 32 29 8b  e1 0d 77 f9 24 e7 4f 25  |28)/32)...w.$.O%|
00018d10  3d 31 32 37 84 4f 25 3c  33 33 84 4f 25 3e 32 35  |=127.O%<33.O%>25|
00018d20  35 84 28 66 6c 25 3f 4f  25 80 32 29 e1 0d 77 fa  |5.(fl%?O%.2)..w.|
00018d30  09 c8 8e 62 25 ca 0d 77  fb 1c c9 34 3a e7 66 6c  |...b%..w...4:.fl|
00018d40  25 3f 4f 25 3d a3 8c 44  69 25 3d b9 8b 44 69 25  |%?O%=..Di%=..Di%|
00018d50  3d a3 0d 77 fc 1a c9 31  3a e7 66 6c 25 3f 4f 25  |=..w...1:.fl%?O%|
00018d60  8c 44 69 25 3d b9 8b 44  69 25 3d a3 0d 77 fd 0a  |.Di%=..Di%=..w..|
00018d70  7f 44 69 25 3d a3 0d 77  fe 0b cb 3a e7 44 69 25  |.Di%=..w...:.Di%|
00018d80  8c 0d 77 ff 0c e7 66 6c  25 3f 4f 25 8c 0d 78 00  |..w...fl%?O%..x.|
00018d90  0c 66 6c 25 3f 4f 25 3d  30 0d 78 01 0e cc 3a 66  |.fl%?O%=0.x...:f|
00018da0  6c 25 3f 4f 25 3d 31 0d  78 02 b9 cd 3a f2 57 28  |l%?O%=1.x...:.W(|
00018db0  33 2c 37 29 3a 5a 25 21  30 3d 66 79 25 3a 5a 25  |3,7):Z%!0=fy%:Z%|
00018dc0  21 34 3d 30 3a 5a 25 21  38 3d 2d 33 36 30 3a 5a  |!4=0:Z%!8=-360:Z|
00018dd0  25 21 31 32 3d 31 32 30  30 3a 5a 25 21 31 36 3d  |%!12=1200:Z%!16=|
00018de0  30 3a c8 99 26 34 30 30  63 39 2c 2c 5a 25 b8 64  |0:..&400c9,,Z%.d|
00018df0  25 3a 4c 25 3d 5a 25 21  34 2d 5a 25 21 32 30 3a  |%:L%=Z%!4-Z%!20:|
00018e00  58 25 3d 5a 25 21 31 36  2d 5a 25 21 32 34 3a c8  |X%=Z%!16-Z%!24:.|
00018e10  95 64 25 3a f2 57 28 33  2c 37 29 3a c8 93 c8 90  |.d%:.W(3,7):....|
00018e20  4c 25 2b 32 38 2b 28 28  4f 25 81 31 30 29 2d 33  |L%+28+((O%.10)-3|
00018e30  29 2a 33 2a 31 36 2c 58  25 2d 34 30 2d 28 4f 25  |)*3*16,X%-40-(O%|
00018e40  83 31 30 29 2a 33 32 2c  33 30 2c 2d 33 30 3a c8  |.10)*32,30,-30:.|
00018e50  99 26 34 30 30 63 61 2c  2c 5a 25 b8 64 25 3a ce  |.&400ca,,Z%.d%:.|
00018e60  0d 78 03 07 cd 3a e1 0d  78 04 2a dd f2 6a 28 72  |.x...:..x.*..j(r|
00018e70  6f 25 2c 6f 50 25 29 3a  ea 75 72 25 2c 46 61 25  |o%,oP%):.ur%,Fa%|
00018e80  3a e7 62 25 3d 34 75 72  25 3d 31 8b 75 72 25 3d  |:.b%=4ur%=1.ur%=|
00018e90  30 0d 78 05 2a e3 46 61  25 3d 72 6f 25 b8 6f 50  |0.x.*.Fa%=ro%.oP|
00018ea0  25 3a e7 28 66 6c 25 3f  46 61 25 80 32 29 3d a3  |%:.(fl%?Fa%.2)=.|
00018eb0  66 6c 25 3f 46 61 25 3d  75 72 25 0d 78 06 07 ed  |fl%?Fa%=ur%.x...|
00018ec0  3a e1 0d 78 07 32 dd f2  47 75 3a 47 79 25 3d 58  |:..x.2..Gu:Gy%=X|
00018ed0  25 2d 5a 25 21 33 32 3a  4c 79 25 3d 58 25 2d 5a  |%-Z%!32:Ly%=X%-Z|
00018ee0  25 21 34 30 3a e7 47 79  25 3e 3d 30 84 4c 79 25  |%!40:.Gy%>=0.Ly%|
00018ef0  3e 3d 30 8c 0d 78 08 cd  c8 99 26 34 30 30 65 36  |>=0..x....&400e6|
00018f00  2c 32 3a c8 93 c8 90 4c  25 2c 58 25 2d 34 2c 31  |,2:....L%,X%-4,1|
00018f10  32 30 30 2c 2d 33 32 3a  c8 93 c8 90 4c 25 2c 58  |200,-32:....L%,X|
00018f20  25 2d 34 2c 32 32 2c 2d  33 36 30 3a c8 99 26 34  |%-4,22,-360:..&4|
00018f30  30 30 65 36 2c 37 3a 5f  6c 25 3d 4c 25 2b 34 3a  |00e6,7:_l%=L%+4:|
00018f40  52 6c 25 3d 58 25 2d 38  3a e3 71 25 3d 33 b8 32  |Rl%=X%-8:.q%=3.2|
00018f50  35 3a ec 5f 6c 25 2b 33  32 2b 28 71 25 2d 33 29  |5:._l%+32+(q%-3)|
00018f60  2a 33 2a 31 36 2c 52 6c  25 3a f1 3b 71 25 3a ed  |*3*16,Rl%:.;q%:.|
00018f70  3a e3 71 25 3d 30 b8 39  3a ec 5f 6c 25 2c 52 6c  |:.q%=0.9:._l%,Rl|
00018f80  25 2d 33 32 2d 71 25 2a  33 32 3a f1 3b 71 25 3a  |%-32-q%*32:.;q%:|
00018f90  ed 3a c8 99 26 34 30 30  65 36 2c 38 3a 44 25 3d  |.:..&400e6,8:D%=|
00018fa0  66 6c 25 3a 47 25 3d 5f  6c 25 3a 48 25 3d 52 6c  |fl%:G%=_l%:H%=Rl|
00018fb0  25 3a d6 52 6c 3a f2 57  28 33 2c 37 29 3a d6 68  |%:.Rl:.W(3,7):.h|
00018fc0  69 0d 78 09 07 cd 3a e1  0d 78 0a 5a dd f2 6b 4a  |i.x...:..x.Z..kJ|
00018fd0  3a ea 6a 72 25 2c 54 65  25 2c 41 75 25 2c 67 75  |:.jr%,Te%,Au%,gu|
00018fe0  25 3a f2 4d 28 66 79 25  29 3a f2 41 28 67 25 2c  |%:.M(fy%):.A(g%,|
00018ff0  31 36 2c 22 4e 6f 20 6c  65 74 74 65 72 20 6d 61  |16,"No letter ma|
00019000  72 6b 65 64 22 29 3a 63  24 3d a4 4d 28 66 79 25  |rked"):c$=.M(fy%|
00019010  2c 34 29 3a 61 65 25 3d  a3 3a e7 43 79 25 3e 2d  |,4):ae%=.:.Cy%>-|
00019020  31 8c 0d 78 0b 2e e3 53  79 25 3d 30 b8 43 79 25  |1..x...Sy%=0.Cy%|
00019030  3a e7 41 24 28 53 79 25  29 3d 63 24 61 65 25 3d  |:.A$(Sy%)=c$ae%=|
00019040  b9 3a 69 25 3d 53 79 25  3a 53 79 25 3d 43 79 25  |.:i%=Sy%:Sy%=Cy%|
00019050  0d 78 0c 05 ed 0d 78 0d  0f cd 3a e7 61 65 25 3d  |.x....x...:.ae%=|
00019060  a3 f2 43 61 0d 78 0e 91  f2 75 3a f2 42 28 67 4a  |..Ca.x...u:.B(gJ|
00019070  25 2c 69 25 2b 31 29 3a  f2 4e 28 73 4a 25 2c 22  |%,i%+1):.N(sJ%,"|
00019080  44 65 66 69 6e 65 64 20  63 68 61 72 61 63 74 65  |Defined characte|
00019090  72 73 20 69 6e 20 27 22  2b 41 24 28 69 25 29 2b  |rs in '"+A$(i%)+|
000190a0  22 27 22 29 3a 4f 6f 25  3d bb 28 a4 4d 28 66 79  |"'"):Oo%=.(.M(fy|
000190b0  25 2c 31 34 29 29 3a c8  99 26 36 30 30 38 31 2c  |%,14)):..&60081,|
000190c0  2c 46 24 2c 28 31 30 2b  51 65 25 2a 32 35 29 2a  |,F$,(10+Qe%*25)*|
000190d0  31 36 2a 4f 6f 25 2f 31  30 30 2c 28 31 30 2b 51  |16*Oo%/100,(10+Q|
000190e0  65 25 2a 32 35 29 2a 31  36 2c 30 2c 30 b8 4f 4a  |e%*25)*16,0,0.OJ|
000190f0  25 3b 42 5f 25 0d 78 0f  7f e7 42 5f 25 80 31 8c  |%;B_%.x...B_%.1.|
00019100  f2 58 28 22 45 72 72 6f  72 20 66 72 6f 6d 20 4f  |.X("Error from O|
00019110  70 74 69 63 61 6c 22 2c  22 49 6e 73 75 66 66 69  |ptical","Insuffi|
00019120  63 69 65 6e 74 20 66 6f  6e 74 20 63 61 63 68 65  |cient font cache|
00019130  20 6d 65 6d 6f 72 79 20  61 6c 6c 6f 63 61 74 65  | memory allocate|
00019140  64 2e 20 49 6e 63 72 65  61 73 65 20 73 69 7a 65  |d. Increase size|
00019150  20 69 6e 20 74 61 73 6b  20 6d 61 6e 61 67 65 72  | in task manager|
00019160  20 61 6e 64 20 74 68 65  6e 20 72 65 74 72 79 2e  | and then retry.|
00019170  22 29 3a e1 0d 78 10 51  f2 71 3a 5a 25 21 30 3d  |"):..x.Q.q:Z%!0=|
00019180  4e 6e 25 3a c8 99 26 34  30 30 63 62 2c 2c 5a 25  |Nn%:..&400cb,,Z%|
00019190  3a f2 50 79 28 4e 6e 25  2c 73 25 2d 28 5a 25 21  |:.Py(Nn%,s%-(Z%!|
000191a0  31 32 2d 5a 25 21 34 29  2f 32 2c 76 25 2b 28 5a  |12-Z%!4)/2,v%+(Z|
000191b0  25 21 31 36 2d 5a 25 21  38 29 2f 32 29 3a 6c 6f  |%!16-Z%!8)/2):lo|
000191c0  25 3d b9 3a e1 0d 78 11  f9 dd f2 78 61 3a 6c 6f  |%=.:..x....xa:lo|
000191d0  25 3d a3 3a ea 6a 72 25  2c 54 65 25 2c 41 75 25  |%=.:.jr%,Te%,Au%|
000191e0  2c 67 75 25 2c 77 70 25  2c 4f 4f 25 2c 55 42 25  |,gu%,wp%,OO%,UB%|
000191f0  2c 51 4a 25 2c 54 75 25  3a c8 99 26 34 30 30 38  |,QJ%,Tu%:..&4008|
00019200  34 2c 4f 4a 25 b8 2c 6d  65 25 2c 4a 4f 25 2c 46  |4,OJ%.,me%,JO%,F|
00019210  65 25 2c 43 65 25 3a c8  99 26 34 30 36 63 30 3a  |e%,Ce%:..&406c0:|
00019220  c8 99 35 33 2c 2d 31 2c  35 b8 2c 2c 47 75 25 3a  |..53,-1,5.,,Gu%:|
00019230  47 75 25 3d 31 3c 3c 47  75 25 3a 4f 4f 25 3d 30  |Gu%=1<<Gu%:OO%=0|
00019240  3a 55 42 25 3d 30 3a e3  4f 25 3d 33 33 b8 31 32  |:UB%=0:.O%=33.12|
00019250  36 3a c8 99 26 34 30 30  38 65 2c 4f 4a 25 2c 4f  |6:..&4008e,OJ%,O|
00019260  25 2c 31 36 b8 2c 4a 42  25 2c 48 42 25 2c 64 42  |%,16.,JB%,HB%,dB|
00019270  25 2c 72 42 25 3a 4f 4f  25 2b 3d 64 42 25 2d 4a  |%,rB%:OO%+=dB%-J|
00019280  42 25 3a 55 42 25 2b 3d  72 42 25 2d 48 42 25 3a  |B%:UB%+=rB%-HB%:|
00019290  ed 3a 4f 4f 25 3d 4f 4f  25 2f 39 34 3a 55 42 25  |.:OO%=OO%/94:UB%|
000192a0  3d 55 42 25 2f 39 34 3a  7a 79 25 3d a3 3a 54 65  |=UB%/94:zy%=.:Te|
000192b0  25 3d 30 3a e3 4f 25 3d  33 33 b8 32 35 35 0d 78  |%=0:.O%=33.255.x|
000192c0  12 13 e7 66 6c 25 3f 4f  25 3d 31 54 65 25 2b 3d  |...fl%?O%=1Te%+=|
000192d0  31 0d 78 13 29 ed 3a 6a  72 25 3d 30 3a e3 4f 25  |1.x.).:jr%=0:.O%|
000192e0  3d 33 33 b8 32 35 35 3a  e7 66 6c 25 3f 4f 25 3d  |=33.255:.fl%?O%=|
000192f0  31 80 4f 25 3c 3e 31 32  37 8c 0d 78 14 7e c8 99  |1.O%<>127..x.~..|
00019300  26 34 30 36 63 34 2c 6a  72 25 2f 54 65 25 2a 31  |&406c4,jr%/Te%*1|
00019310  30 30 3a c8 99 26 34 30  30 38 65 2c 4f 4a 25 2c  |00:..&4008e,OJ%,|
00019320  4f 25 2c 31 36 b8 2c 4a  42 25 2c 48 42 25 2c 64  |O%,16.,JB%,HB%,d|
00019330  42 25 2c 72 42 25 3a 41  75 25 3d 28 64 42 25 2d  |B%,rB%:Au%=(dB%-|
00019340  4a 42 25 29 2f 32 3a 67  75 25 3d 28 72 42 25 2d  |JB%)/2:gu%=(rB%-|
00019350  48 42 25 29 2f 47 75 25  3a 4b 25 3d a4 41 28 28  |HB%)/Gu%:K%=.A((|
00019360  41 75 25 2b 32 29 2a 28  67 75 25 2b 32 29 2b 31  |Au%+2)*(gu%+2)+1|
00019370  30 32 34 2c 71 4a 25 29  0d 78 15 a4 e7 4b 25 3d  |024,qJ%).x...K%=|
00019380  a3 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |...C("Optical","|
00019390  54 68 65 72 65 20 69 73  20 6e 6f 74 20 65 6e 6f  |There is not eno|
000193a0  75 67 68 20 66 72 65 65  20 6d 65 6d 6f 72 79 20  |ugh free memory |
000193b0  61 76 61 69 6c 61 62 6c  65 20 74 6f 20 6c 65 61  |available to lea|
000193c0  72 6e 20 74 68 65 20 63  68 61 72 61 63 74 65 72  |rn the character|
000193d0  2e 20 4e 65 65 64 20 22  2b c3 28 28 28 41 75 25  |. Need "+.(((Au%|
000193e0  2b 32 29 2a 28 67 75 25  2b 32 29 2b 32 35 36 29  |+2)*(gu%+2)+256)|
000193f0  81 31 30 32 34 29 2b 22  4b 2e 22 29 3a 4b 25 3d  |.1024)+"K."):K%=|
00019400  a4 41 28 31 2c 71 4a 25  29 3a c8 99 26 34 30 30  |.A(1,qJ%):..&400|
00019410  38 32 2c 4f 4a 25 3a 7a  79 25 3d b9 0d 78 16 0b  |82,OJ%:zy%=..x..|
00019420  e7 7a 79 25 3d a3 8c 0d  78 17 4f 21 28 41 25 28  |.zy%=...x.O!(A%(|
00019430  71 4a 25 29 29 3d 5a 25  28 71 4a 25 29 3a 21 28  |qJ%))=Z%(qJ%):!(|
00019440  41 25 28 71 4a 25 29 2b  34 29 3d 30 3a 21 28 41  |A%(qJ%)+4)=0:!(A|
00019450  25 28 71 4a 25 29 2b 38  29 3d 31 36 3a c8 99 74  |%(qJ%)+8)=16:..t|
00019460  4a 25 2c 43 60 25 2c 41  25 28 71 4a 25 29 3a e7  |J%,C`%,A%(qJ%):.|
00019470  47 75 25 3d 32 8c 0d 78  18 2c c8 99 74 4a 25 2c  |Gu%=2..x.,..tJ%,|
00019480  57 6b 25 2c 41 25 28 71  4a 25 29 2c 22 4c 65 61  |Wk%,A%(qJ%),"Lea|
00019490  72 6e 65 72 22 2c 30 2c  41 75 25 2c 67 75 25 2c  |rner",0,Au%,gu%,|
000194a0  31 38 0d 78 19 2d cc 3a  c8 99 74 4a 25 2c 57 6b  |18.x.-.:..tJ%,Wk|
000194b0  25 2c 41 25 28 71 4a 25  29 2c 22 4c 65 61 72 6e  |%,A%(qJ%),"Learn|
000194c0  65 72 22 2c 30 2c 41 75  25 2c 67 75 25 2c 30 0d  |er",0,Au%,gu%,0.|
000194d0  78 1a fb cd 3a c8 99 74  4a 25 2c 46 4f 25 2c 41  |x...:..tJ%,FO%,A|
000194e0  25 28 71 4a 25 29 2c 22  4c 65 61 72 6e 65 72 22  |%(qJ%),"Learner"|
000194f0  b8 2c 2c 66 50 25 3a c8  99 26 34 30 30 38 61 2c  |.,,fP%:..&4008a,|
00019500  4f 4a 25 3a c8 99 26 34  30 30 39 32 2c 30 2c 30  |OJ%:..&40092,0,0|
00019510  2c 31 2c 30 3a c8 99 34  36 2c 36 30 2b 32 35 36  |,1,0:..46,60+256|
00019520  2c 41 25 28 71 4a 25 29  2c 22 4c 65 61 72 6e 65  |,A%(qJ%),"Learne|
00019530  72 22 2c 30 b8 4a 2c 47  2c 42 2c 50 3a c8 99 26  |r",0.J,G,B,P:..&|
00019540  34 30 30 38 36 2c 2c bd  28 4f 25 29 2c 31 36 2c  |40086,,.(O%),16,|
00019550  2d 4a 42 25 2c 2d 48 42  25 3a c8 99 34 36 2c 4a  |-JB%,-HB%:..46,J|
00019560  2c 47 2c 42 2c 50 3a 76  4a 25 3d 32 3a f2 66 6c  |,G,B,P:vJ%=2:.fl|
00019570  3a f2 41 28 4e 6e 25 2c  31 2c bd 28 4f 25 29 29  |:.A(Nn%,1,.(O%))|
00019580  3a f2 53 61 3a 21 4a 5f  3d 30 3a 21 54 5f 3d 41  |:.Sa:!J_=0:!T_=A|
00019590  75 25 2d 31 3a 21 60 79  3d 30 3a 21 51 5f 3d 67  |u%-1:!`y=0:!Q_=g|
000195a0  75 25 2d 31 3a 4b 25 3d  a4 41 28 41 75 25 2a 67  |u%-1:K%=.A(Au%*g|
000195b0  75 25 2c 4a 5f 25 29 3a  4b 25 3d a4 41 28 41 75  |u%,J_%):K%=.A(Au|
000195c0  25 2a 67 75 25 2c 60 79  25 29 0d 78 1b 8c e7 4b  |%*gu%,`y%).x...K|
000195d0  25 3d a3 8c f2 43 28 22  4f 70 74 69 63 61 6c 22  |%=...C("Optical"|
000195e0  2c 22 54 68 65 72 65 20  69 73 20 6e 6f 74 20 65  |,"There is not e|
000195f0  6e 6f 75 67 68 20 66 72  65 65 20 6d 65 6d 6f 72  |nough free memor|
00019600  79 20 61 76 61 69 6c 61  62 6c 65 20 74 6f 20 72  |y available to r|
00019610  65 61 64 20 74 68 65 20  63 68 61 72 61 63 74 65  |ead the characte|
00019620  72 2e 20 4e 65 65 64 20  22 2b c3 28 28 32 2a 41  |r. Need "+.((2*A|
00019630  75 25 2a 67 75 25 29 81  31 30 32 34 29 2b 22 4b  |u%*gu%).1024)+"K|
00019640  2e 22 29 3a 4b 25 3d a4  41 28 31 2c 4a 5f 25 29  |."):K%=.A(1,J_%)|
00019650  3a 7a 79 25 3d b9 0d 78  1c 0b e7 7a 79 25 3d a3  |:zy%=..x...zy%=.|
00019660  8c 0d 78 1d dd c8 99 34  36 2c 32 34 2b 32 35 36  |..x....46,24+256|
00019670  2c 41 25 28 71 4a 25 29  2c 22 4c 65 61 72 6e 65  |,A%(qJ%),"Learne|
00019680  72 22 b8 2c 2c 63 25 3a  41 25 3d 63 25 21 31 36  |r".,,c%:A%=c%!16|
00019690  2b 31 3a 47 25 3d 41 25  28 4a 5f 25 29 3a 48 25  |+1:G%=A%(J_%):H%|
000196a0  3d 63 25 2b 63 25 21 33  32 3a d6 41 5f 3a 21 72  |=c%+c%!32:.A_:!r|
000196b0  3d 41 25 28 4a 5f 25 29  3a 21 66 3d 41 25 28 60  |=A%(J_%):!f=A%(`|
000196c0  79 25 29 3a 21 74 3d 41  25 28 60 79 25 29 2b 63  |y%):!t=A%(`y%)+c|
000196d0  69 25 21 28 60 79 25 2a  34 29 3a 21 41 4a 3d 41  |i%!(`y%*4):!AJ=A|
000196e0  75 25 3a 21 4c 4a 3d 67  75 25 3a 41 25 3d 31 3a  |u%:!LJ=gu%:A%=1:|
000196f0  42 25 3d 41 75 25 2d 32  3a 43 25 3d 30 3a 44 25  |B%=Au%-2:C%=0:D%|
00019700  3d 67 75 25 2d 31 3a 54  75 25 3d 21 59 3a 21 59  |=gu%-1:Tu%=!Y:!Y|
00019710  3d 31 3a d6 54 4a 3a 21  59 3d 54 75 25 3a 51 4a  |=1:.TJ:!Y=Tu%:QJ|
00019720  25 3d 21 28 41 25 28 75  25 29 29 3a 4b 25 3d a4  |%=!(A%(u%)):K%=.|
00019730  41 28 31 32 2b 51 4a 25  2a 38 2c 75 25 29 0d 78  |A(12+QJ%*8,u%).x|
00019740  1e 8d e7 4b 25 3d a3 8c  f2 43 28 22 4f 70 74 69  |...K%=...C("Opti|
00019750  63 61 6c 22 2c 22 54 68  65 72 65 20 69 73 20 6e  |cal","There is n|
00019760  6f 74 20 65 6e 6f 75 67  68 20 66 72 65 65 20 6d  |ot enough free m|
00019770  65 6d 6f 72 79 20 61 76  61 69 6c 61 62 6c 65 20  |emory available |
00019780  74 6f 20 73 74 6f 72 65  20 74 68 69 73 20 66 6f  |to store this fo|
00019790  6e 74 20 64 65 66 69 6e  69 74 69 6f 6e 2e 20 4e  |nt definition. N|
000197a0  65 65 64 20 22 2b c3 28  28 37 36 2b 51 4a 25 2a  |eed "+.((76+QJ%*|
000197b0  38 2b 51 4a 25 2a 36 34  29 81 31 30 32 34 29 2b  |8+QJ%*64).1024)+|
000197c0  22 4b 2e 22 29 3a 7a 79  25 3d b9 0d 78 1f 9f 4b  |"K."):zy%=..x..K|
000197d0  25 3d a4 41 28 51 4a 25  2a 36 34 2c 75 75 25 29  |%=.A(QJ%*64,uu%)|
000197e0  3a e7 4b 25 3d a3 8c f2  43 28 22 4f 70 74 69 63  |:.K%=...C("Optic|
000197f0  61 6c 22 2c 22 54 68 65  72 65 20 69 73 20 6e 6f  |al","There is no|
00019800  74 20 65 6e 6f 75 67 68  20 66 72 65 65 20 6d 65  |t enough free me|
00019810  6d 6f 72 79 20 61 76 61  69 6c 61 62 6c 65 20 74  |mory available t|
00019820  6f 20 73 74 6f 72 65 20  74 68 69 73 20 66 6f 6e  |o store this fon|
00019830  74 20 64 65 66 69 6e 69  74 69 6f 6e 2e 20 4e 65  |t definition. Ne|
00019840  65 64 20 22 2b c3 28 28  37 36 2b 51 4a 25 2a 38  |ed "+.((76+QJ%*8|
00019850  2b 51 4a 25 2a 36 34 29  81 31 30 32 34 29 2b 22  |+QJ%*64).1024)+"|
00019860  4b 2e 22 29 3a 7a 79 25  3d b9 0d 78 20 0b e7 7a  |K."):zy%=..x ..z|
00019870  79 25 3d a3 8c 0d 78 21  54 3f 28 41 25 28 75 25  |y%=...x!T?(A%(u%|
00019880  29 2b 34 2b 51 4a 25 2a  38 29 3d 4f 25 3a 3f 28  |)+4+QJ%*8)=O%:?(|
00019890  41 25 28 75 25 29 2b 35  2b 51 4a 25 2a 38 29 3d  |A%(u%)+5+QJ%*8)=|
000198a0  69 25 2b 31 32 38 3a 5a  61 25 3d 28 64 42 25 2d  |i%+128:Za%=(dB%-|
000198b0  4a 42 25 29 2f 4f 4f 25  2a 33 39 3a e7 5a 61 25  |JB%)/OO%*39:.Za%|
000198c0  3e 39 39 5a 61 25 3d 39  39 0d 78 22 0f e7 5a 61  |>99Za%=99.x"..Za|
000198d0  25 3c 31 5a 61 25 3d 31  0d 78 23 30 73 61 25 3d  |%<1Za%=1.x#0sa%=|
000198e0  28 72 42 25 2d 4a 4f 25  29 2f 55 42 25 2a 31 30  |(rB%-JO%)/UB%*10|
000198f0  30 2a 31 2e 32 2b 34 35  3a e7 73 61 25 3e 32 35  |0*1.2+45:.sa%>25|
00019900  35 73 61 25 3d 32 35 35  0d 78 24 0f e7 73 61 25  |5sa%=255.x$..sa%|
00019910  3c 30 73 61 25 3d 30 0d  78 25 30 76 61 25 3d 28  |<0sa%=0.x%0va%=(|
00019920  48 42 25 2d 4a 4f 25 29  2f 55 42 25 2a 31 30 30  |HB%-JO%)/UB%*100|
00019930  2a 31 2e 32 2b 35 35 3a  e7 76 61 25 3e 32 35 35  |*1.2+55:.va%>255|
00019940  76 61 25 3d 32 35 35 0d  78 26 0f e7 76 61 25 3c  |va%=255.x&..va%<|
00019950  30 76 61 25 3d 30 0d 78  27 81 3f 28 41 25 28 75  |0va%=0.x'.?(A%(u|
00019960  25 29 2b 36 2b 51 4a 25  2a 38 29 3d 5a 61 25 3a  |%)+6+QJ%*8)=Za%:|
00019970  3f 28 41 25 28 75 25 29  2b 37 2b 51 4a 25 2a 38  |?(A%(u%)+7+QJ%*8|
00019980  29 3d 73 61 25 3a 3f 28  41 25 28 75 25 29 2b 38  |)=sa%:?(A%(u%)+8|
00019990  2b 51 4a 25 2a 38 29 3d  76 61 25 3a 6e 6c 25 3d  |+QJ%*8)=va%:nl%=|
000199a0  41 25 28 75 75 25 29 2b  51 4a 25 2a 36 34 3a e3  |A%(uu%)+QJ%*64:.|
000199b0  58 42 25 3d 30 b8 36 33  3a 6e 6c 25 3f 58 42 25  |XB%=0.63:nl%?XB%|
000199c0  3d 69 4f 25 3f 58 42 25  3a ed 3a 21 28 41 25 28  |=iO%?XB%:.:!(A%(|
000199d0  75 25 29 29 2b 3d 31 0d  78 28 05 cd 0d 78 29 05  |u%))+=1.x(...x).|
000199e0  cd 0d 78 2a 0c cd 3a 6a  72 25 2b 3d 31 0d 78 2b  |..x*..:jr%+=1.x+|
000199f0  1c cd 3a e7 7a 79 25 4f  25 3d 32 35 35 3a ed 3a  |..:.zy%O%=255:.:|
00019a00  f2 4d 28 4e 6e 25 29 3a  e1 0d 78 2c 10 e7 a6 2d  |.M(Nn%):..x,...-|
00019a10  31 31 33 4f 25 3d 32 35  35 0d 78 2d 7a ed 3a f2  |113O%=255.x-z.:.|
00019a20  41 28 67 25 2c 31 36 2c  22 4e 6f 20 6c 65 74 74  |A(g%,16,"No lett|
00019a30  65 72 20 6d 61 72 6b 65  64 22 29 3a f2 4d 28 4e  |er marked"):.M(N|
00019a40  6e 25 29 3a f2 4a 28 73  4a 25 29 3a f2 4a 28 4e  |n%):.J(sJ%):.J(N|
00019a50  5f 25 29 3a f2 5f 3a f2  70 3a f2 70 79 28 69 25  |_%):._:.p:.py(i%|
00019a60  29 3a f2 46 79 28 69 25  29 3a f2 44 28 48 4a 25  |):.Fy(i%):.D(HJ%|
00019a70  29 3a c8 99 26 34 30 30  38 32 2c 4f 4a 25 3a c8  |):..&40082,OJ%:.|
00019a80  99 26 34 30 36 63 34 2c  31 30 30 3a 78 6f 25 3d  |.&406c4,100:xo%=|
00019a90  b9 3a e1 0d 78 2e b3 dd  f2 53 61 3a ea 76 6e 25  |.:..x....Sa:.vn%|
00019aa0  3a 5a 25 21 30 3d 4e 6e  25 3a c8 99 26 34 30 30  |:Z%!0=Nn%:..&400|
00019ab0  63 62 2c 2c 5a 25 3a 4c  25 3d 5a 25 21 34 2d 5a  |cb,,Z%:L%=Z%!4-Z|
00019ac0  25 21 32 30 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |%!20:X%=Z%!16-Z%|
00019ad0  21 32 34 3a 5a 25 21 30  3d 4e 6e 25 3a 5a 25 21  |!24:Z%!0=Nn%:Z%!|
00019ae0  34 3d 30 3a c8 99 26 34  30 30 63 65 2c 2c 5a 25  |4=0:..&400ce,,Z%|
00019af0  3a 6d 79 25 3d 4c 25 2b  5a 25 21 38 2b 38 3a 41  |:my%=L%+Z%!8+8:A|
00019b00  5f 25 3d 58 25 2b 5a 25  21 31 32 2b 38 3a 6e 5f  |_%=X%+Z%!12+8:n_|
00019b10  25 3d 28 5a 25 21 31 36  2d 5a 25 21 38 2d 31 36  |%=(Z%!16-Z%!8-16|
00019b20  29 2f 32 3a 63 4a 25 3d  28 5a 25 21 32 30 2d 5a  |)/2:cJ%=(Z%!20-Z|
00019b30  25 21 31 32 2d 31 36 29  2f 47 75 25 3a e7 41 75  |%!12-16)/Gu%:.Au|
00019b40  25 3e 6e 5f 25 8c 0d 78  2f 41 48 3d 28 31 3c 3c  |%>n_%..x/AH=(1<<|
00019b50  31 36 29 2f 6e 5f 25 2a  41 75 25 3a 6e 5f 25 3d  |16)/n_%*Au%:n_%=|
00019b60  28 31 3c 3c 31 36 29 2f  48 2a 28 31 3c 3c 31 36  |(1<<16)/H*(1<<16|
00019b70  29 3a 7a 25 21 30 3d 6e  5f 25 3a 7a 25 21 38 3d  |):z%!0=n_%:z%!8=|
00019b80  28 31 3c 3c 31 36 29 0d  78 30 2b cc 3a 48 3d 28  |(1<<16).x0+.:H=(|
00019b90  31 3c 3c 31 36 29 2f 6e  5f 25 2a 41 75 25 3a 7a  |1<<16)/n_%*Au%:z|
00019ba0  25 21 30 3d 28 31 3c 3c  31 36 29 3a 7a 25 21 38  |%!0=(1<<16):z%!8|
00019bb0  3d 48 0d 78 31 0f cd 3a  e7 67 75 25 3e 63 4a 25  |=H.x1..:.gu%>cJ%|
00019bc0  8c 0d 78 32 42 68 3d 28  31 3c 3c 31 36 29 2f 63  |..x2Bh=(1<<16)/c|
00019bd0  4a 25 2a 67 75 25 3a 63  4a 25 3d 28 31 3c 3c 31  |J%*gu%:cJ%=(1<<1|
00019be0  36 29 2f 68 2a 28 31 3c  3c 31 36 29 3a 7a 25 21  |6)/h*(1<<16):z%!|
00019bf0  34 3d 63 4a 25 3a 7a 25  21 31 32 3d 28 31 3c 3c  |4=cJ%:z%!12=(1<<|
00019c00  31 36 29 0d 78 33 2c cc  3a 68 3d 28 31 3c 3c 31  |16).x3,.:h=(1<<1|
00019c10  36 29 2f 63 4a 25 2a 67  75 25 3a 7a 25 21 34 3d  |6)/cJ%*gu%:z%!4=|
00019c20  28 31 3c 3c 31 36 29 3a  7a 25 21 31 32 3d 68 0d  |(1<<16):z%!12=h.|
00019c30  78 34 2a cd 3a f2 49 28  41 25 28 71 4a 25 29 2c  |x4*.:.I(A%(qJ%),|
00019c40  22 4c 65 61 72 6e 65 72  22 2c 6d 79 25 2c 41 5f  |"Learner",my%,A_|
00019c50  25 2c 30 2c 7a 25 29 3a  e1 0d 78 35 fc dd f2 66  |%,0,z%):..x5...f|
00019c60  6c 3a c8 99 34 36 2c 35  34 2b 32 35 36 2c 41 25  |l:..46,54+256,A%|
00019c70  28 71 4a 25 29 2c 22 4c  65 61 72 6e 65 72 22 3a  |(qJ%),"Learner":|
00019c80  c8 99 34 36 2c 4e 6c 25  2c 41 25 28 71 4a 25 29  |..46,Nl%,A%(qJ%)|
00019c90  2c 22 4c 65 61 72 6e 65  72 22 b8 2c 2c 2c 41 75  |,"Learner".,,,Au|
00019ca0  25 2c 67 75 25 3a c8 99  34 36 2c 34 35 2b 32 35  |%,gu%:..46,45+25|
00019cb0  36 2c 41 25 28 71 4a 25  29 2c 22 4c 65 61 72 6e  |6,A%(qJ%),"Learn|
00019cc0  65 72 22 2c 30 3a c8 99  34 36 2c 34 35 2b 32 35  |er",0:..46,45+25|
00019cd0  36 2c 41 25 28 71 4a 25  29 2c 22 4c 65 61 72 6e  |6,A%(qJ%),"Learn|
00019ce0  65 72 22 2c 41 75 25 2b  31 3a c8 99 34 36 2c 33  |er",Au%+1:..46,3|
00019cf0  31 2b 32 35 36 2c 41 25  28 71 4a 25 29 2c 22 4c  |1+256,A%(qJ%),"L|
00019d00  65 61 72 6e 65 72 22 2c  30 3a c8 99 34 36 2c 33  |earner",0:..46,3|
00019d10  31 2b 32 35 36 2c 41 25  28 71 4a 25 29 2c 22 4c  |1+256,A%(qJ%),"L|
00019d20  65 61 72 6e 65 72 22 2c  67 75 25 2b 31 3a c8 99  |earner",gu%+1:..|
00019d30  34 36 2c 4e 6c 25 2c 41  25 28 71 4a 25 29 2c 22  |46,Nl%,A%(qJ%),"|
00019d40  4c 65 61 72 6e 65 72 22  b8 2c 2c 2c 41 75 25 2c  |Learner".,,,Au%,|
00019d50  67 75 25 3a e1 0d 78 36  63 dd f2 43 61 3a e7 43  |gu%:..x6c..Ca:.C|
00019d60  79 25 3d 4b 4a 25 2d 31  8c f2 58 28 22 4d 65 73  |y%=KJ%-1..X("Mes|
00019d70  73 61 67 65 20 66 72 6f  6d 20 4f 70 74 69 63 61  |sage from Optica|
00019d80  6c 22 2c 22 59 6f 75 20  63 61 6e 20 6f 6e 6c 79  |l","You can only|
00019d90  20 68 61 76 65 20 61 20  6d 61 78 69 6d 75 6d 20  | have a maximum |
00019da0  6f 66 20 22 2b c3 28 4b  4a 25 29 2b 22 20 66 6f  |of "+.(KJ%)+" fo|
00019db0  6e 74 73 2e 22 29 3a e1  0d 78 37 41 f2 46 28 67  |nts."):..x7A.F(g|
00019dc0  25 2c 36 29 3a f2 46 28  67 25 2c 32 30 29 3a f2  |%,6):.F(g%,20):.|
00019dd0  46 28 67 25 2c 32 31 29  3a f2 46 28 67 25 2c 31  |F(g%,21):.F(g%,1|
00019de0  31 29 3a e7 a4 4d 28 67  25 2c 31 36 29 3d 22 22  |1):..M(g%,16)=""|
00019df0  f2 46 28 67 25 2c 31 32  29 0d 78 38 4e f2 46 28  |.F(g%,12).x8N.F(|
00019e00  67 25 2c 31 38 29 3a f2  46 28 66 79 25 2c 36 29  |g%,18):.F(fy%,6)|
00019e10  3a 43 79 25 2b 3d 31 3a  69 25 3d 43 79 25 3a 41  |:Cy%+=1:i%=Cy%:A|
00019e20  24 28 69 25 29 3d 63 24  3a f2 41 28 67 25 2c 36  |$(i%)=c$:.A(g%,6|
00019e30  2c 63 24 29 3a f2 6b 79  28 63 24 29 3a 53 25 28  |,c$):.ky(c$):S%(|
00019e40  69 25 29 3d b9 3a e1 0d  78 39 1d dd f2 62 5f 3a  |i%)=.:..x9...b_:|
00019e50  e7 6d 75 25 84 4f 6c 25  84 50 6c 25 84 5a 6c 25  |.mu%.Ol%.Pl%.Zl%|
00019e60  3c 3e 30 e1 0d 78 3a f3  5a 25 21 30 3d 59 25 3a  |<>0..x:.Z%!0=Y%:|
00019e70  c8 99 26 34 30 30 63 62  2c 2c 5a 25 3a 73 6f 25  |..&400cb,,Z%:so%|
00019e80  3d 5a 25 21 32 38 3a 4c  25 3d 5a 25 21 34 2d 5a  |=Z%!28:L%=Z%!4-Z|
00019e90  25 21 32 30 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |%!20:X%=Z%!16-Z%|
00019ea0  21 32 34 3a c8 99 26 34  30 30 63 66 2c 2c 5a 25  |!24:..&400cf,,Z%|
00019eb0  3a 56 79 25 3d 5a 25 21  30 2d 4c 25 3a 48 79 25  |:Vy%=Z%!0-L%:Hy%|
00019ec0  3d 58 25 2d 5a 25 21 34  3a 62 79 25 3d 56 79 25  |=X%-Z%!4:by%=Vy%|
00019ed0  3a 74 79 25 3d 48 79 25  3a 5f 5f 25 3d 59 25 3a  |:ty%=Hy%:__%=Y%:|
00019ee0  5a 25 21 34 3d 37 3a 5a  25 21 32 34 3d 2d 31 30  |Z%!4=7:Z%!24=-10|
00019ef0  30 30 30 3a 5a 25 21 32  38 3d 2d 31 30 30 30 30  |000:Z%!28=-10000|
00019f00  3a 5a 25 21 33 32 3d 31  30 30 30 30 3a 5a 25 21  |:Z%!32=10000:Z%!|
00019f10  33 36 3d 31 30 30 30 30  3a c8 99 26 34 30 30 64  |36=10000:..&400d|
00019f20  30 2c 2c 5a 25 3a 5a 25  21 30 3d 5f 5f 25 3a 5a  |0,,Z%:Z%!0=__%:Z|
00019f30  25 21 34 3d 30 3a 5a 25  21 38 3d 2d 31 30 30 30  |%!4=0:Z%!8=-1000|
00019f40  30 30 3a 5a 25 21 31 32  3d 31 30 30 30 30 30 3a  |00:Z%!12=100000:|
00019f50  5a 25 21 31 36 3d 30 0d  78 3b 5b c8 99 26 34 30  |Z%!16=0.x;[..&40|
00019f60  30 63 39 2c 2c 5a 25 b8  64 25 3a c8 95 64 25 3a  |0c9,,Z%.d%:..d%:|
00019f70  f2 57 28 33 2c 31 31 29  3a c8 93 56 79 25 2b 4c  |.W(3,11):..Vy%+L|
00019f80  25 2c 58 25 2d 48 79 25  2c 62 79 25 2d 56 79 25  |%,X%-Hy%,by%-Vy%|
00019f90  2c 48 79 25 2d 74 79 25  3a c8 99 26 34 30 30 63  |,Hy%-ty%:..&400c|
00019fa0  61 2c 2c 5a 25 b8 64 25  3a ce 3a 6d 75 25 3d b9  |a,,Z%.d%:.:mu%=.|
00019fb0  3a e1 0d 78 3c f5 dd f2  50 6e 3a ea 6e 69 25 2c  |:..x<...Pn:.ni%,|
00019fc0  6a 69 25 2c 5f 69 25 2c  71 69 25 2c 55 4a 25 2c  |ji%,_i%,qi%,UJ%,|
00019fd0  78 5f 25 3a c8 99 35 33  2c 2d 31 2c 34 b8 2c 2c  |x_%:..53,-1,4.,,|
00019fe0  55 4a 25 3a c8 99 35 33  2c 2d 31 2c 35 b8 2c 2c  |UJ%:..53,-1,5.,,|
00019ff0  78 5f 25 3a 55 4a 25 3d  31 3c 3c 55 4a 25 3a 78  |x_%:UJ%=1<<UJ%:x|
0001a000  5f 25 3d 31 3c 3c 78 5f  25 3a 6e 69 25 3d 56 79  |_%=1<<x_%:ni%=Vy|
0001a010  25 3a 6a 69 25 3d 48 79  25 2d 78 5f 25 2a 32 3a  |%:ji%=Hy%-x_%*2:|
0001a020  5f 69 25 3d 5a 25 21 38  2d 55 4a 25 3a 71 69 25  |_i%=Z%!8-UJ%:qi%|
0001a030  3d 5a 25 21 31 32 2b 78  5f 25 3a 4d 25 21 30 3d  |=Z%!12+x_%:M%!0=|
0001a040  5f 5f 25 3a 4d 25 21 34  3d 30 3a 4d 25 21 38 3d  |__%:M%!4=0:M%!8=|
0001a050  2d 31 30 30 30 30 30 3a  4d 25 21 31 32 3d 31 30  |-100000:M%!12=10|
0001a060  30 30 30 30 3a 4d 25 21  31 36 3d 30 3a c8 99 26  |0000:M%!16=0:..&|
0001a070  34 30 30 63 39 2c 2c 4d  25 b8 64 25 3a 4c 25 3d  |400c9,,M%.d%:L%=|
0001a080  4d 25 21 34 2d 4d 25 21  32 30 3a 58 25 3d 4d 25  |M%!4-M%!20:X%=M%|
0001a090  21 31 36 2d 4d 25 21 32  34 3a f2 57 28 33 2c 31  |!16-M%!24:.W(3,1|
0001a0a0  31 29 3a c8 95 64 25 0d  78 3d 7d c8 93 56 79 25  |1):..d%.x=}..Vy%|
0001a0b0  2b 4c 25 2c 58 25 2d 48  79 25 2c 62 79 25 2d 56  |+L%,X%-Hy%,by%-V|
0001a0c0  79 25 2c 48 79 25 2d 74  79 25 3a c8 99 26 34 30  |y%,Hy%-ty%:..&40|
0001a0d0  30 63 61 2c 2c 4d 25 b8  64 25 3a ce 3a 5a 25 21  |0ca,,M%.d%:.:Z%!|
0001a0e0  30 3d 5f 5f 25 3a c8 99  26 34 30 30 63 62 2c 2c  |0=__%:..&400cb,,|
0001a0f0  5a 25 3a 4c 25 3d 5a 25  21 34 2d 5a 25 21 32 30  |Z%:L%=Z%!4-Z%!20|
0001a100  3a 58 25 3d 5a 25 21 31  36 2d 5a 25 21 32 34 3a  |:X%=Z%!16-Z%!24:|
0001a110  6b 6e 25 3d a4 53 28 6b  25 29 3a e7 6b 6e 25 f2  |kn%=.S(k%):.kn%.|
0001a120  53 6e 3a e1 0d 78 3e ae  c8 99 26 34 30 36 63 30  |Sn:..x>...&406c0|
0001a130  3a 6e 69 25 3d 6e 69 25  2f 28 52 25 2f 4e 61 25  |:ni%=ni%/(R%/Na%|
0001a140  29 3a 5f 69 25 3d 28 5f  69 25 2d 4c 25 2b 32 29  |):_i%=(_i%-L%+2)|
0001a150  2f 28 52 25 2f 4e 61 25  29 3a 6a 69 25 3d 28 6a  |/(R%/Na%):ji%=(j|
0001a160  69 25 2b 34 29 2f 28 56  25 2f 4e 69 25 29 3a 71  |i%+4)/(V%/Ni%):q|
0001a170  69 25 3d 28 58 25 2d 71  69 25 29 2f 28 56 25 2f  |i%=(X%-qi%)/(V%/|
0001a180  4e 69 25 29 3a 6e 69 25  3d 6e 69 25 2a 31 30 30  |Ni%):ni%=ni%*100|
0001a190  2f 55 25 3a 6a 69 25 3d  6a 69 25 2a 31 30 30 2f  |/U%:ji%=ji%*100/|
0001a1a0  55 25 3a 5f 69 25 3d 5f  69 25 2a 31 30 30 2f 55  |U%:_i%=_i%*100/U|
0001a1b0  25 3a 71 69 25 3d 71 69  25 2a 31 30 30 2f 55 25  |%:qi%=qi%*100/U%|
0001a1c0  3a e7 6e 69 25 3e 5f 69  25 c8 94 6e 69 25 2c 5f  |:.ni%>_i%..ni%,_|
0001a1d0  69 25 0d 78 3f 15 e7 6a  69 25 3c 71 69 25 c8 94  |i%.x?..ji%<qi%..|
0001a1e0  6a 69 25 2c 71 69 25 0d  78 40 0f e7 6e 69 25 3c  |ji%,qi%.x@..ni%<|
0001a1f0  30 6e 69 25 3d 30 0d 78  41 0f e7 71 69 25 3c 30  |0ni%=0.xA..qi%<0|
0001a200  71 69 25 3d 30 0d 78 42  21 e7 5f 69 25 3e 28 6e  |qi%=0.xB!._i%>(n|
0001a210  25 2d 31 29 2a 4e 61 25  5f 69 25 3d 28 6e 25 2d  |%-1)*Na%_i%=(n%-|
0001a220  31 29 2a 4e 61 25 0d 78  43 21 e7 6a 69 25 3e 28  |1)*Na%.xC!.ji%>(|
0001a230  74 25 2d 31 29 2a 4e 69  25 6a 69 25 3d 28 74 25  |t%-1)*Ni%ji%=(t%|
0001a240  2d 31 29 2a 4e 69 25 0d  78 44 1e e7 6e 69 25 3d  |-1)*Ni%.xD..ni%=|
0001a250  5f 69 25 84 6a 69 25 3d  71 69 25 c8 99 26 34 30  |_i%.ji%=qi%..&40|
0001a260  36 63 31 3a e1 0d 78 45  af 7a 25 21 30 3d 31 3a  |6c1:..xE.z%!0=1:|
0001a270  7a 25 21 34 3d 31 3a 7a  25 21 38 3d 31 3a 7a 25  |z%!4=1:z%!8=1:z%|
0001a280  21 31 32 3d 31 3a c8 99  34 36 2c 36 30 2b 32 35  |!12=1:..46,60+25|
0001a290  36 2c 41 25 28 57 4a 25  29 2c 4d 24 2c 30 b8 4a  |6,A%(WJ%),M$,0.J|
0001a2a0  2c 47 2c 42 2c 50 3a ef  32 34 2c 6e 69 25 3b 28  |,G,B,P:.24,ni%;(|
0001a2b0  74 25 2d 31 29 2a 4e 69  25 2d 6a 69 25 3b 5f 69  |t%-1)*Ni%-ji%;_i|
0001a2c0  25 3b 28 74 25 2d 31 29  2a 4e 69 25 2d 71 69 25  |%;(t%-1)*Ni%-qi%|
0001a2d0  3b 3a c8 99 34 36 2c 35  32 2b 32 35 36 2c 41 25  |;:..46,52+256,A%|
0001a2e0  28 60 25 29 2c 4d 24 2c  30 2c 30 2c 30 2c 7a 25  |(`%),M$,0,0,0,z%|
0001a2f0  2c 48 6c 25 3a c8 99 34  36 2c 4a 2c 47 2c 42 2c  |,Hl%:..46,J,G,B,|
0001a300  50 3a f2 4a 28 77 5f 25  29 3a c8 99 26 34 30 36  |P:.J(w_%):..&406|
0001a310  63 31 3a e1 0d 78 46 83  dd f2 54 69 28 62 25 2c  |c1:..xF...Ti(b%,|
0001a320  49 25 29 3a ea 5a 79 25  2c 4e 25 2c 7a 4a 25 2c  |I%):.Zy%,N%,zJ%,|
0001a330  79 25 2c 68 25 2c 62 50  25 2c 6e 50 25 2c 53 70  |y%,h%,bP%,nP%,Sp|
0001a340  25 2c 43 70 25 2c 77 6c  25 2c 47 75 25 3a f2 47  |%,Cp%,wl%,Gu%:.G|
0001a350  28 6b 25 2c 2d 31 2c 2d  31 29 3a c8 99 35 33 2c  |(k%,-1,-1):..53,|
0001a360  2d 31 2c 34 b8 2c 2c 77  6c 25 3a c8 99 35 33 2c  |-1,4.,,wl%:..53,|
0001a370  2d 31 2c 35 b8 2c 2c 47  75 25 3a 47 75 25 3d 31  |-1,5.,,Gu%:Gu%=1|
0001a380  3c 3c 47 75 25 3a 77 6c  25 3d 31 3c 3c 77 6c 25  |<<Gu%:wl%=1<<wl%|
0001a390  3a c8 8e 44 5f 25 ca 0d  78 47 12 c9 31 3a e7 62  |:..D_%..xG..1:.b|
0001a3a0  25 80 35 8c f2 7a 6c 3a  e1 0d 78 48 11 e7 6d 75  |%.5..zl:..xH..mu|
0001a3b0  25 84 4f 6c 25 84 5a 6c  25 e1 0d 78 49 13 e7 a6  |%.Ol%.Zl%..xI...|
0001a3c0  2d 33 44 6c 25 3d 31 8b  44 6c 25 3d 30 0d 78 4a  |-3Dl%=1.Dl%=0.xJ|
0001a3d0  a6 5a 25 21 30 3d 6b 25  3a c8 99 26 34 30 30 63  |.Z%!0=k%:..&400c|
0001a3e0  62 2c 2c 5a 25 3a 4c 25  3d 5a 25 21 34 2d 5a 25  |b,,Z%:L%=Z%!4-Z%|
0001a3f0  21 32 30 3a 58 25 3d 5a  25 21 31 36 2d 5a 25 21  |!20:X%=Z%!16-Z%!|
0001a400  32 34 3a 68 6c 25 3d 2d  5a 25 21 31 36 2b 5a 25  |24:hl%=-Z%!16+Z%|
0001a410  21 38 3a 72 6c 25 3d 5a  25 21 31 32 2d 5a 25 21  |!8:rl%=Z%!12-Z%!|
0001a420  34 3a c8 99 26 34 30 30  63 66 2c 2c 5a 25 3a 73  |4:..&400cf,,Z%:s|
0001a430  25 3d 5a 25 21 30 3a 76  25 3d 5a 25 21 34 3a 5a  |%=Z%!0:v%=Z%!4:Z|
0001a440  5f 25 3d 28 73 25 2d 4c  25 29 2f 52 25 3a 75 79  |_%=(s%-L%)/R%:uy|
0001a450  25 3d 28 58 25 2d 76 25  29 2f 56 25 3a 5a 79 25  |%=(X%-v%)/V%:Zy%|
0001a460  3d 2d 31 3a 7a 4a 25 3d  2d 31 3a e7 41 79 25 3d  |=-1:zJ%=-1:.Ay%=|
0001a470  2d 31 8c 0d 78 4b 0a 5a  79 25 3d 2d 31 0d 78 4c  |-1..xK.Zy%=-1.xL|
0001a480  5d cc 3a 41 25 3d 31 30  30 2a 5a 5f 25 2f 55 25  |].:A%=100*Z_%/U%|
0001a490  3a 42 25 3d 31 30 30 2a  75 79 25 2f 55 25 3a 43  |:B%=100*uy%/U%:C|
0001a4a0  25 3d 38 2f 52 25 2a 31  30 30 2f 55 25 3a 44 25  |%=8/R%*100/U%:D%|
0001a4b0  3d 38 2f 56 25 2a 31 30  30 2f 55 25 3a 45 25 3d  |=8/V%*100/U%:E%=|
0001a4c0  51 25 3a 46 25 3d 41 79  25 3a 41 25 3d ba 28 63  |Q%:F%=Ay%:A%=.(c|
0001a4d0  79 29 3a e7 41 25 3e 3d  30 8c 0d 78 4d 34 5a 79  |y):.A%>=0..xM4Zy|
0001a4e0  25 3d 41 25 83 31 32 38  3a e7 44 6c 25 3d 31 e7  |%=A%.128:.Dl%=1.|
0001a4f0  28 41 25 80 31 32 38 29  3d a3 8c 5a 79 25 3d 2d  |(A%.128)=..Zy%=-|
0001a500  31 3a 7a 4a 25 3d a3 3a  41 25 3d 31 32 38 0d 78  |1:zJ%=.:A%=128.x|
0001a510  4e 17 e7 41 25 80 31 32  38 8c 44 6c 25 3d 31 8b  |N..A%.128.Dl%=1.|
0001a520  44 6c 25 3d 30 0d 78 4f  0e 7a 4a 25 3d 41 25 81  |Dl%=0.xO.zJ%=A%.|
0001a530  32 35 36 0d 78 50 12 cc  3a 5a 79 25 3d 2d 31 3a  |256.xP..:Zy%=-1:|
0001a540  7a 4a 25 3d a3 0d 78 51  05 cd 0d 78 52 1f cd 3a  |zJ%=..xQ...xR..:|
0001a550  e7 5a 79 25 3d 2d 31 80  44 6c 25 3d 30 80 41 79  |.Zy%=-1.Dl%=0.Ay|
0001a560  25 3d 62 6c 25 ef 37 3a  e1 0d 78 53 1d e7 5a 79  |%=bl%.7:..xS..Zy|
0001a570  25 3d 2d 31 80 44 6c 25  3d 31 80 57 5f 25 3d 62  |%=-1.Dl%=1.W_%=b|
0001a580  6c 25 ef 37 3a e1 0d 78  54 16 e7 5a 79 25 3d 2d  |l%.7:..xT..Zy%=-|
0001a590  31 67 65 25 3d b9 3a f2  62 5f 3a e1 0d 78 55 84  |1ge%=.:.b_:..xU.|
0001a5a0  74 75 25 3d 5a 79 25 3a  c8 99 26 34 30 30 63 66  |tu%=Zy%:..&400cf|
0001a5b0  2c 2c 5a 25 3a 79 25 3d  5a 25 21 30 3a 68 25 3d  |,,Z%:y%=Z%!0:h%=|
0001a5c0  5a 25 21 34 3a 5f 5f 25  3d 6b 25 3a 5a 25 21 30  |Z%!4:__%=k%:Z%!0|
0001a5d0  3d 5f 5f 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |=__%:..&400cb,,Z|
0001a5e0  25 3a 73 6f 25 3d 5a 25  21 32 38 3a 62 50 25 3d  |%:so%=Z%!28:bP%=|
0001a5f0  5a 25 21 34 3a 53 70 25  3d 5a 25 21 38 3a 6e 50  |Z%!4:Sp%=Z%!8:nP|
0001a600  25 3d 5a 25 21 31 32 3a  43 70 25 3d 5a 25 21 31  |%=Z%!12:Cp%=Z%!1|
0001a610  36 3a e7 7a 4a 25 3d 39  84 7a 4a 25 3d 31 30 8c  |6:.zJ%=9.zJ%=10.|
0001a620  0d 78 56 1e 74 79 25 3d  58 25 2d 68 25 3a 62 79  |.xV.ty%=X%-h%:by|
0001a630  25 3d 79 25 2d 4c 25 3a  c8 8e 7a 4a 25 ca 0d 78  |%=y%-L%:..zJ%..x|
0001a640  57 41 c9 39 3a 56 79 25  3d 51 25 21 28 5a 79 25  |WA.9:Vy%=Q%!(Zy%|
0001a650  2a 31 36 2d 38 29 2a 52  25 2a 55 25 2f 31 30 30  |*16-8)*R%*U%/100|
0001a660  2d 33 32 3a 48 79 25 3d  51 25 21 28 5a 79 25 2a  |-32:Hy%=Q%!(Zy%*|
0001a670  31 36 2d 34 29 2a 56 25  2a 55 25 2f 31 30 30 0d  |16-4)*V%*U%/100.|
0001a680  78 58 44 c9 31 30 3a 56  79 25 3d 51 25 21 28 5a  |xXD.10:Vy%=Q%!(Z|
0001a690  79 25 2a 31 36 2b 31 36  29 2a 52 25 2a 55 25 2f  |y%*16+16)*R%*U%/|
0001a6a0  31 30 30 2b 33 32 3a 48  79 25 3d 51 25 21 28 5a  |100+32:Hy%=Q%!(Z|
0001a6b0  79 25 2a 31 36 2b 32 30  29 2a 56 25 2a 55 25 2f  |y%*16+20)*V%*U%/|
0001a6c0  31 30 30 0d 78 59 d8 cb  3a 5f 5f 25 3d 59 25 3a  |100.xY..:__%=Y%:|
0001a6d0  5a 25 21 34 3d 37 3a 5a  25 21 32 34 3d 2d 31 30  |Z%!4=7:Z%!24=-10|
0001a6e0  30 30 30 3a 5a 25 21 32  38 3d 2d 31 30 30 30 30  |000:Z%!28=-10000|
0001a6f0  3a 5a 25 21 33 32 3d 31  30 30 30 30 3a 5a 25 21  |:Z%!32=10000:Z%!|
0001a700  33 36 3d 31 30 30 30 30  3a c8 99 26 34 30 30 64  |36=10000:..&400d|
0001a710  30 2c 2c 5a 25 3a 5a 25  21 30 3d 5f 5f 25 3a 5a  |0,,Z%:Z%!0=__%:Z|
0001a720  25 21 34 3d 30 3a 5a 25  21 38 3d 2d 31 30 30 30  |%!4=0:Z%!8=-1000|
0001a730  30 30 3a 5a 25 21 31 32  3d 31 30 30 30 30 30 3a  |00:Z%!12=100000:|
0001a740  5a 25 21 31 36 3d 30 3a  c8 99 26 34 30 30 63 39  |Z%!16=0:..&400c9|
0001a750  2c 2c 5a 25 b8 64 25 3a  c8 95 64 25 3a f2 57 28  |,,Z%.d%:..d%:.W(|
0001a760  33 2c 31 31 29 3a 86 56  79 25 2b 4c 25 2c 58 25  |3,11):.Vy%+L%,X%|
0001a770  2d 48 79 25 2c 4c 25 2b  62 79 25 2c 58 25 2d 74  |-Hy%,L%+by%,X%-t|
0001a780  79 25 3a c8 99 26 34 30  30 63 61 2c 2c 5a 25 b8  |y%:..&400ca,,Z%.|
0001a790  64 25 3a ce 3a 5a 6c 25  3d 41 25 0d 78 5a 19 cc  |d%:.:Zl%=A%.xZ..|
0001a7a0  3a e7 44 6c 25 3d 30 56  6c 25 3d 51 25 8b 56 6c  |:.Dl%=0Vl%=Q%.Vl|
0001a7b0  25 3d 66 25 0d 78 5b 0b  e7 7a 4a 25 3e 30 8c 0d  |%=f%.x[..zJ%>0..|
0001a7c0  78 5c 1e 74 79 25 3d 58  25 2d 68 25 3a 62 79 25  |x\.ty%=X%-h%:by%|
0001a7d0  3d 79 25 2d 4c 25 3a c8  8e 7a 4a 25 ca 0d 78 5d  |=y%-L%:..zJ%..x]|
0001a7e0  41 c9 31 3a 56 79 25 3d  56 6c 25 21 28 5a 79 25  |A.1:Vy%=Vl%!(Zy%|
0001a7f0  2a 31 36 2b 38 29 2a 52  25 2a 55 25 2f 31 30 30  |*16+8)*R%*U%/100|
0001a800  3a 48 79 25 3d 56 6c 25  21 28 5a 79 25 2a 31 36  |:Hy%=Vl%!(Zy%*16|
0001a810  2b 31 32 29 2a 56 25 2a  55 25 2f 31 30 30 0d 78  |+12)*V%*U%/100.x|
0001a820  5e 3f c9 33 3a 56 79 25  3d 56 6c 25 21 28 5a 79  |^?.3:Vy%=Vl%!(Zy|
0001a830  25 2a 31 36 29 2a 52 25  2a 55 25 2f 31 30 30 3a  |%*16)*R%*U%/100:|
0001a840  48 79 25 3d 56 6c 25 21  28 5a 79 25 2a 31 36 2b  |Hy%=Vl%!(Zy%*16+|
0001a850  31 32 29 2a 56 25 2a 55  25 2f 31 30 30 0d 78 5f  |12)*V%*U%/100.x_|
0001a860  3e c9 35 3a 56 79 25 3d  56 6c 25 21 28 5a 79 25  |>.5:Vy%=Vl%!(Zy%|
0001a870  2a 31 36 29 2a 52 25 2a  55 25 2f 31 30 30 3a 48  |*16)*R%*U%/100:H|
0001a880  79 25 3d 56 6c 25 21 28  5a 79 25 2a 31 36 2b 34  |y%=Vl%!(Zy%*16+4|
0001a890  29 2a 56 25 2a 55 25 2f  31 30 30 0d 78 60 40 c9  |)*V%*U%/100.x`@.|
0001a8a0  37 3a 56 79 25 3d 56 6c  25 21 28 5a 79 25 2a 31  |7:Vy%=Vl%!(Zy%*1|
0001a8b0  36 2b 38 29 2a 52 25 2a  55 25 2f 31 30 30 3a 48  |6+8)*R%*U%/100:H|
0001a8c0  79 25 3d 56 6c 25 21 28  5a 79 25 2a 31 36 2b 34  |y%=Vl%!(Zy%*16+4|
0001a8d0  29 2a 56 25 2a 55 25 2f  31 30 30 0d 78 61 d3 cb  |)*V%*U%/100.xa..|
0001a8e0  3a 5a 25 21 34 3d 37 3a  5a 25 21 32 34 3d 2d 31  |:Z%!4=7:Z%!24=-1|
0001a8f0  30 30 30 30 3a 5a 25 21  32 38 3d 2d 31 30 30 30  |0000:Z%!28=-1000|
0001a900  30 3a 5a 25 21 33 32 3d  31 30 30 30 30 3a 5a 25  |0:Z%!32=10000:Z%|
0001a910  21 33 36 3d 31 30 30 30  30 3a c8 99 26 34 30 30  |!36=10000:..&400|
0001a920  64 30 2c 2c 5a 25 3a 5a  25 21 30 3d 5f 5f 25 3a  |d0,,Z%:Z%!0=__%:|
0001a930  5a 25 21 34 3d 30 3a 5a  25 21 38 3d 2d 31 30 30  |Z%!4=0:Z%!8=-100|
0001a940  30 30 30 3a 5a 25 21 31  32 3d 31 30 30 30 30 30  |000:Z%!12=100000|
0001a950  3a 5a 25 21 31 36 3d 30  3a c8 99 26 34 30 30 63  |:Z%!16=0:..&400c|
0001a960  39 2c 2c 5a 25 b8 64 25  3a c8 95 64 25 3a f2 57  |9,,Z%.d%:..d%:.W|
0001a970  28 33 2c 31 31 29 3a c8  93 56 79 25 2b 4c 25 2c  |(3,11):..Vy%+L%,|
0001a980  58 25 2d 48 79 25 2c 62  79 25 2d 56 79 25 2c 48  |X%-Hy%,by%-Vy%,H|
0001a990  79 25 2d 74 79 25 3a c8  99 26 34 30 30 63 61 2c  |y%-ty%:..&400ca,|
0001a9a0  2c 5a 25 b8 64 25 3a ce  3a 6d 75 25 3d b9 0d 78  |,Z%.d%:.:mu%=..x|
0001a9b0  62 0d cd 3a e7 7a 4a 25  3d 30 8c 0d 78 63 f8 56  |b..:.zJ%=0..xc.V|
0001a9c0  79 25 3d 56 6c 25 21 28  5a 79 25 2a 31 36 29 2a  |y%=Vl%!(Zy%*16)*|
0001a9d0  52 25 2a 55 25 2f 31 30  30 3a 48 79 25 3d 56 6c  |R%*U%/100:Hy%=Vl|
0001a9e0  25 21 28 5a 79 25 2a 31  36 2b 34 29 2a 56 25 2a  |%!(Zy%*16+4)*V%*|
0001a9f0  55 25 2f 31 30 30 3a 62  79 25 3d 56 6c 25 21 28  |U%/100:by%=Vl%!(|
0001aa00  5a 79 25 2a 31 36 2b 38  29 2a 52 25 2a 55 25 2f  |Zy%*16+8)*R%*U%/|
0001aa10  31 30 30 3a 74 79 25 3d  56 6c 25 21 28 5a 79 25  |100:ty%=Vl%!(Zy%|
0001aa20  2a 31 36 2b 31 32 29 2a  56 25 2a 55 25 2f 31 30  |*16+12)*V%*U%/10|
0001aa30  30 3a f2 71 3a 7a 65 25  3d 73 25 2d 56 79 25 2d  |0:.q:ze%=s%-Vy%-|
0001aa40  4c 25 3a 77 65 25 3d 58  25 2d 76 25 2d 48 79 25  |L%:we%=X%-v%-Hy%|
0001aa50  3a 5a 25 21 34 3d 37 3a  5a 25 21 32 34 3d 2d 31  |:Z%!4=7:Z%!24=-1|
0001aa60  30 30 30 30 3a 5a 25 21  32 38 3d 2d 31 30 30 30  |0000:Z%!28=-1000|
0001aa70  30 3a 5a 25 21 33 32 3d  31 30 30 30 30 3a 5a 25  |0:Z%!32=10000:Z%|
0001aa80  21 33 36 3d 31 30 30 30  30 3a c8 99 26 34 30 30  |!36=10000:..&400|
0001aa90  64 30 2c 2c 5a 25 3a 5a  25 21 30 3d 5f 5f 25 3a  |d0,,Z%:Z%!0=__%:|
0001aaa0  5a 25 21 34 3d 30 3a 5a  25 21 38 3d 2d 31 30 30  |Z%!4=0:Z%!8=-100|
0001aab0  30 30 30 0d 78 64 6e 5a  25 21 31 32 3d 31 30 30  |000.xdnZ%!12=100|
0001aac0  30 30 30 3a 5a 25 21 31  36 3d 30 3a c8 99 26 34  |000:Z%!16=0:..&4|
0001aad0  30 30 63 39 2c 2c 5a 25  b8 64 25 3a c8 95 64 25  |00c9,,Z%.d%:..d%|
0001aae0  3a f2 57 28 33 2c 31 31  29 3a c8 93 56 79 25 2b  |:.W(3,11):..Vy%+|
0001aaf0  4c 25 2c 58 25 2d 48 79  25 2c 62 79 25 2d 56 79  |L%,X%-Hy%,by%-Vy|
0001ab00  25 2c 48 79 25 2d 74 79  25 3a c8 99 26 34 30 30  |%,Hy%-ty%:..&400|
0001ab10  63 61 2c 2c 5a 25 b8 64  25 3a ce 3a 4f 6c 25 3d  |ca,,Z%.d%:.:Ol%=|
0001ab20  b9 0d 78 65 05 cd 0d 78  66 0b cd 3a 67 65 25 3d  |..xe...xf..:ge%=|
0001ab30  a3 0d 78 67 16 c9 32 3a  e7 41 79 25 3d 2d 31 80  |..xg..2:.Ay%=-1.|
0001ab40  57 5f 25 3d 2d 31 e1 0d  78 68 25 e7 62 25 80 35  |W_%=-1..xh%.b%.5|
0001ab50  8c f2 53 79 3a f2 6d 75  3a 57 5f 25 3d 2d 31 3a  |..Sy:.mu:W_%=-1:|
0001ab60  41 79 25 3d 2d 31 3a f2  4d 4a 3a e1 0d 78 69 e7  |Ay%=-1:.MJ:..xi.|
0001ab70  5a 25 21 30 3d 6b 25 3a  c8 99 26 34 30 30 63 62  |Z%!0=k%:..&400cb|
0001ab80  2c 2c 5a 25 3a 4c 25 3d  5a 25 21 34 2d 5a 25 21  |,,Z%:L%=Z%!4-Z%!|
0001ab90  32 30 3a 58 25 3d 5a 25  21 31 36 2d 5a 25 21 32  |20:X%=Z%!16-Z%!2|
0001aba0  34 3a 68 6c 25 3d 2d 5a  25 21 31 36 2b 5a 25 21  |4:hl%=-Z%!16+Z%!|
0001abb0  38 3a 72 6c 25 3d 5a 25  21 31 32 2d 5a 25 21 34  |8:rl%=Z%!12-Z%!4|
0001abc0  3a c8 99 26 34 30 30 63  66 2c 2c 5a 25 3a 73 25  |:..&400cf,,Z%:s%|
0001abd0  3d 5a 25 21 30 3a 76 25  3d 5a 25 21 34 3a 5a 5f  |=Z%!0:v%=Z%!4:Z_|
0001abe0  25 3d 28 73 25 2d 4c 25  29 2f 52 25 3a 75 79 25  |%=(s%-L%)/R%:uy%|
0001abf0  3d 28 58 25 2d 76 25 29  2f 56 25 3a 41 25 3d 31  |=(X%-v%)/V%:A%=1|
0001ac00  30 30 2a 5a 5f 25 2f 55  25 3a 42 25 3d 31 30 30  |00*Z_%/U%:B%=100|
0001ac10  2a 75 79 25 2f 55 25 3a  43 25 3d 38 2f 52 25 2a  |*uy%/U%:C%=8/R%*|
0001ac20  31 30 30 2f 55 25 3a 44  25 3d 38 2f 56 25 2a 31  |100/U%:D%=8/V%*1|
0001ac30  30 30 2f 55 25 3a 45 25  3d 51 25 3a 46 25 3d 41  |00/U%:E%=Q%:F%=A|
0001ac40  79 25 3a 41 25 3d ba 28  63 79 29 3a e7 41 25 3e  |y%:A%=.(cy):.A%>|
0001ac50  3d 30 8c 0d 78 6a 22 5a  79 25 3d 41 25 83 31 32  |=0..xj"Zy%=A%.12|
0001ac60  38 3a e7 41 25 80 31 32  38 8c 44 6c 25 3d 31 8b  |8:.A%.128.Dl%=1.|
0001ac70  44 6c 25 3d 30 0d 78 6b  0e 7a 4a 25 3d 41 25 81  |Dl%=0.xk.zJ%=A%.|
0001ac80  32 35 36 0d 78 6c 12 cc  3a 5a 79 25 3d 2d 31 3a  |256.xl..:Zy%=-1:|
0001ac90  7a 4a 25 3d a3 0d 78 6d  15 cd 3a e7 5a 79 25 3d  |zJ%=..xm..:.Zy%=|
0001aca0  2d 31 84 7a 4a 25 3c 3e  30 e1 0d 78 6e 18 f2 59  |-1.zJ%<>0..xn..Y|
0001acb0  28 22 22 29 3a 5f 4a 25  3d a3 3a e7 44 6c 25 3d  |(""):_J%=.:.Dl%=|
0001acc0  30 8c 0d 78 6f 1d f2 60  28 5a 79 25 29 3a e7 5a  |0..xo..`(Zy%):.Z|
0001acd0  79 25 3c 41 79 25 f2 60  28 5a 79 25 2b 31 29 0d  |y%<Ay%.`(Zy%+1).|
0001ace0  78 70 0d e7 41 79 25 3e  5a 79 25 8c 0d 78 71 7e  |xp..Ay%>Zy%..xq~|
0001acf0  e3 4e 25 3d 5a 79 25 b8  41 79 25 2d 31 3a 51 25  |.N%=Zy%.Ay%-1:Q%|
0001ad00  21 28 4e 25 2a 31 36 29  3d 51 25 21 28 4e 25 2a  |!(N%*16)=Q%!(N%*|
0001ad10  31 36 2b 31 36 29 3a 51  25 21 28 4e 25 2a 31 36  |16+16):Q%!(N%*16|
0001ad20  2b 38 29 3d 51 25 21 28  4e 25 2a 31 36 2b 32 34  |+8)=Q%!(N%*16+24|
0001ad30  29 3a 51 25 21 28 4e 25  2a 31 36 2b 34 29 3d 51  |):Q%!(N%*16+4)=Q|
0001ad40  25 21 28 4e 25 2a 31 36  2b 32 30 29 3a 51 25 21  |%!(N%*16+20):Q%!|
0001ad50  28 4e 25 2a 31 36 2b 31  32 29 3d 51 25 21 28 4e  |(N%*16+12)=Q%!(N|
0001ad60  25 2a 31 36 2b 32 38 29  3a ed 0d 78 72 1d cd 3a  |%*16+28):..xr..:|
0001ad70  41 79 25 2d 3d 31 3a e7  5a 79 25 3c 3d 41 79 25  |Ay%-=1:.Zy%<=Ay%|
0001ad80  f2 60 28 5a 79 25 29 0d  78 73 18 cc 3a f2 53 5f  |.`(Zy%).xs..:.S_|
0001ad90  28 5a 79 25 29 3a e7 57  5f 25 3e 5a 79 25 8c 0d  |(Zy%):.W_%>Zy%..|
0001ada0  78 74 7e e3 4e 25 3d 5a  79 25 b8 57 5f 25 2d 31  |xt~.N%=Zy%.W_%-1|
0001adb0  3a 66 25 21 28 4e 25 2a  31 36 29 3d 66 25 21 28  |:f%!(N%*16)=f%!(|
0001adc0  4e 25 2a 31 36 2b 31 36  29 3a 66 25 21 28 4e 25  |N%*16+16):f%!(N%|
0001add0  2a 31 36 2b 38 29 3d 66  25 21 28 4e 25 2a 31 36  |*16+8)=f%!(N%*16|
0001ade0  2b 32 34 29 3a 66 25 21  28 4e 25 2a 31 36 2b 34  |+24):f%!(N%*16+4|
0001adf0  29 3d 66 25 21 28 4e 25  2a 31 36 2b 32 30 29 3a  |)=f%!(N%*16+20):|
0001ae00  66 25 21 28 4e 25 2a 31  36 2b 31 32 29 3d 66 25  |f%!(N%*16+12)=f%|
0001ae10  21 28 4e 25 2a 31 36 2b  32 38 29 3a ed 0d 78 75  |!(N%*16+28):..xu|
0001ae20  0c cd 3a 57 5f 25 2d 3d  31 0d 78 76 05 cd 0d 78  |..:W_%-=1.xv...x|
0001ae30  77 0c c9 33 3a e7 50 6c  25 e1 0d 78 78 0b e7 62  |w..3:.Pl%..xx..b|
0001ae40  25 80 38 30 8c 0d 78 79  0d 67 50 25 3d b9 3a f2  |%.80..xy.gP%=.:.|
0001ae50  64 69 0d 78 7a 0c cd 3a  e7 62 25 80 35 8c 0d 78  |di.xz..:.b%.5..x|
0001ae60  7b 0b f2 6c 79 28 39 30  29 0d 78 7c 05 cd 0d 78  |{..ly(90).x|...x|
0001ae70  7d 07 cb 3a e1 0d 78 7e  7b dd f2 53 6e 3a ea 4f  |}..:..x~{..Sn:.O|
0001ae80  79 25 2c 64 79 25 2c 47  79 25 2c 4c 79 25 2c 72  |y%,dy%,Gy%,Ly%,r|
0001ae90  6b 25 2c 63 6b 25 3a 4f  79 25 3d 56 79 25 2f 52  |k%,ck%:Oy%=Vy%/R|
0001aea0  25 2a 31 30 30 2f 55 25  3a 47 79 25 3d 48 79 25  |%*100/U%:Gy%=Hy%|
0001aeb0  2f 56 25 2a 31 30 30 2f  55 25 3a 64 79 25 3d 62  |/V%*100/U%:dy%=b|
0001aec0  79 25 2f 52 25 2a 31 30  30 2f 55 25 3a 4c 79 25  |y%/R%*100/U%:Ly%|
0001aed0  3d 74 79 25 2f 56 25 2a  31 30 30 2f 55 25 3a e7  |=ty%/V%*100/U%:.|
0001aee0  4f 79 25 3d 64 79 25 84  47 79 25 3d 4c 79 25 e1  |Oy%=dy%.Gy%=Ly%.|
0001aef0  0d 78 7f 0e e7 55 75 25  f2 77 28 6b 25 29 0d 78  |.x...Uu%.w(k%).x|
0001af00  80 15 e7 4f 79 25 3e 64  79 25 c8 94 4f 79 25 2c  |...Oy%>dy%..Oy%,|
0001af10  64 79 25 0d 78 81 15 e7  47 79 25 3e 4c 79 25 c8  |dy%.x...Gy%>Ly%.|
0001af20  94 47 79 25 2c 4c 79 25  0d 78 82 21 e7 28 64 79  |.Gy%,Ly%.x.!.(dy|
0001af30  25 2d 4f 79 25 29 2a 52  25 3c 31 32 64 79 25 3d  |%-Oy%)*R%<12dy%=|
0001af40  4f 79 25 2b 31 32 2f 52  25 0d 78 83 21 e7 28 4c  |Oy%+12/R%.x.!.(L|
0001af50  79 25 2d 47 79 25 29 2a  56 25 3c 31 32 4c 79 25  |y%-Gy%)*V%<12Ly%|
0001af60  3d 47 79 25 2b 31 32 2f  56 25 0d 78 84 0f e7 4f  |=Gy%+12/V%.x...O|
0001af70  79 25 3c 30 4f 79 25 3d  30 0d 78 85 0f e7 47 79  |y%<0Oy%=0.x...Gy|
0001af80  25 3c 30 47 79 25 3d 30  0d 78 86 15 e7 64 79 25  |%<0Gy%=0.x...dy%|
0001af90  3e 6e 25 2d 31 64 79 25  3d 6e 25 2d 31 0d 78 87  |>n%-1dy%=n%-1.x.|
0001afa0  15 e7 4c 79 25 3e 74 25  2d 31 4c 79 25 3d 74 25  |..Ly%>t%-1Ly%=t%|
0001afb0  2d 31 0d 78 88 0b e7 44  6c 25 3d 30 8c 0d 78 89  |-1.x...Dl%=0..x.|
0001afc0  2f 72 6b 25 3d a4 4b 28  35 29 3a 63 6b 25 3d a4  |/rk%=.K(5):ck%=.|
0001afd0  52 28 35 29 3a e7 64 79  25 2d 4f 79 25 3c 72 6b  |R(5):.dy%-Oy%<rk|
0001afe0  25 64 79 25 3d 4f 79 25  2b 72 6b 25 0d 78 8a 1b  |%dy%=Oy%+rk%.x..|
0001aff0  e7 4c 79 25 2d 47 79 25  3c 63 6b 25 4c 79 25 3d  |.Ly%-Gy%<ck%Ly%=|
0001b000  47 79 25 2b 63 6b 25 0d  78 8b 21 e7 64 79 25 3e  |Gy%+ck%.x.!.dy%>|
0001b010  6e 25 2d 31 64 79 25 3d  6e 25 2d 31 3a 4f 79 25  |n%-1dy%=n%-1:Oy%|
0001b020  3d 64 79 25 2d 72 6b 25  0d 78 8c 21 e7 4c 79 25  |=dy%-rk%.x.!.Ly%|
0001b030  3e 74 25 2d 31 4c 79 25  3d 74 25 2d 31 3a 47 79  |>t%-1Ly%=t%-1:Gy|
0001b040  25 3d 4c 79 25 2d 63 6b  25 0d 78 8d 0c cd 3a c8  |%=Ly%-ck%.x...:.|
0001b050  8e 67 65 25 ca 0d 78 8e  0d c9 b9 3a c8 8e 44 6c  |.ge%..x....:..Dl|
0001b060  25 ca 0d 78 8f 5c c9 30  3a 41 79 25 2b 3d 31 3a  |%..x.\.0:Ay%+=1:|
0001b070  51 25 21 28 41 79 25 2a  31 36 29 3d 4f 79 25 3a  |Q%!(Ay%*16)=Oy%:|
0001b080  51 25 21 28 41 79 25 2a  31 36 2b 38 29 3d 64 79  |Q%!(Ay%*16+8)=dy|
0001b090  25 3a 51 25 21 28 41 79  25 2a 31 36 2b 34 29 3d  |%:Q%!(Ay%*16+4)=|
0001b0a0  47 79 25 3a 51 25 21 28  41 79 25 2a 31 36 2b 31  |Gy%:Q%!(Ay%*16+1|
0001b0b0  32 29 3d 4c 79 25 3a f2  60 28 41 79 25 29 0d 78  |2)=Ly%:.`(Ay%).x|
0001b0c0  90 5d c9 31 3a 57 5f 25  2b 3d 31 3a 66 25 21 28  |.].1:W_%+=1:f%!(|
0001b0d0  57 5f 25 2a 31 36 29 3d  4f 79 25 3a 66 25 21 28  |W_%*16)=Oy%:f%!(|
0001b0e0  57 5f 25 2a 31 36 2b 38  29 3d 64 79 25 3a 66 25  |W_%*16+8)=dy%:f%|
0001b0f0  21 28 57 5f 25 2a 31 36  2b 34 29 3d 47 79 25 3a  |!(W_%*16+4)=Gy%:|
0001b100  66 25 21 28 57 5f 25 2a  31 36 2b 31 32 29 3d 4c  |f%!(W_%*16+12)=L|
0001b110  79 25 3a f2 53 5f 28 57  5f 25 29 0d 78 91 05 cb  |y%:.S_(W_%).x...|
0001b120  0d 78 92 1a c9 a3 3a f2  59 28 22 22 29 3a 5f 4a  |.x....:.Y(""):_J|
0001b130  25 3d a3 3a c8 8e 44 6c  25 ca 0d 78 93 20 c9 30  |%=.:..Dl%..x. .0|
0001b140  3a f2 60 28 74 75 25 29  3a e7 74 75 25 3c 41 79  |:.`(tu%):.tu%<Ay|
0001b150  25 f2 60 28 74 75 25 2b  31 29 0d 78 94 64 51 25  |%.`(tu%+1).x.dQ%|
0001b160  21 28 74 75 25 2a 31 36  29 3d 4f 79 25 3a 51 25  |!(tu%*16)=Oy%:Q%|
0001b170  21 28 74 75 25 2a 31 36  2b 38 29 3d 64 79 25 3a  |!(tu%*16+8)=dy%:|
0001b180  51 25 21 28 74 75 25 2a  31 36 2b 34 29 3d 47 79  |Q%!(tu%*16+4)=Gy|
0001b190  25 3a 51 25 21 28 74 75  25 2a 31 36 2b 31 32 29  |%:Q%!(tu%*16+12)|
0001b1a0  3d 4c 79 25 3a f2 60 28  74 75 25 29 3a e7 74 75  |=Ly%:.`(tu%):.tu|
0001b1b0  25 3c 41 79 25 f2 60 28  74 75 25 2b 31 29 0d 78  |%<Ay%.`(tu%+1).x|
0001b1c0  95 5f c9 31 3a f2 53 5f  28 74 75 25 29 3a 66 25  |._.1:.S_(tu%):f%|
0001b1d0  21 28 74 75 25 2a 31 36  29 3d 4f 79 25 3a 66 25  |!(tu%*16)=Oy%:f%|
0001b1e0  21 28 74 75 25 2a 31 36  2b 38 29 3d 64 79 25 3a  |!(tu%*16+8)=dy%:|
0001b1f0  66 25 21 28 74 75 25 2a  31 36 2b 34 29 3d 47 79  |f%!(tu%*16+4)=Gy|
0001b200  25 3a 66 25 21 28 74 75  25 2a 31 36 2b 31 32 29  |%:f%!(tu%*16+12)|
0001b210  3d 4c 79 25 3a f2 53 5f  28 74 75 25 29 0d 78 96  |=Ly%:.S_(tu%).x.|
0001b220  05 cb 0d 78 97 07 cb 3a  e1 0d 78 98 bc dd f2 4d  |...x...:..x....M|
0001b230  61 3a ea 70 75 25 2c 77  41 25 3a 5a 25 21 30 3d  |a:.pu%,wA%:Z%!0=|
0001b240  6b 25 3a c8 99 26 34 30  30 63 62 2c 2c 5a 25 3a  |k%:..&400cb,,Z%:|
0001b250  4c 25 3d 5a 25 21 34 2d  5a 25 21 32 30 3a 58 25  |L%=Z%!4-Z%!20:X%|
0001b260  3d 5a 25 21 31 36 2d 5a  25 21 32 34 3a f2 71 3a  |=Z%!16-Z%!24:.q:|
0001b270  5a 5f 25 3d 28 73 25 2d  4c 25 29 2f 52 25 3a 75  |Z_%=(s%-L%)/R%:u|
0001b280  79 25 3d 28 58 25 2d 76  25 29 2f 56 25 3a 41 25  |y%=(X%-v%)/V%:A%|
0001b290  3d 31 30 30 2a 5a 5f 25  2f 55 25 3a 42 25 3d 31  |=100*Z_%/U%:B%=1|
0001b2a0  30 30 2a 75 79 25 2f 55  25 3a 43 25 3d 38 2f 52  |00*uy%/U%:C%=8/R|
0001b2b0  25 2a 31 30 30 2f 55 25  3a 44 25 3d 38 2f 56 25  |%*100/U%:D%=8/V%|
0001b2c0  2a 31 30 30 2f 55 25 3a  45 25 3d 51 25 3a 46 25  |*100/U%:E%=Q%:F%|
0001b2d0  3d 41 79 25 3a 41 25 3d  ba 28 63 79 29 3a e7 41  |=Ay%:A%=.(cy):.A|
0001b2e0  25 3e 3d 30 8c 0d 78 99  23 5a 79 25 3d 41 25 83  |%>=0..x.#Zy%=A%.|
0001b2f0  31 32 38 3a e7 41 25 80  31 32 38 8c 5a 79 25 3d  |128:.A%.128.Zy%=|
0001b300  2d 31 3a 7a 4a 25 3d a3  0d 78 9a 0e 7a 4a 25 3d  |-1:zJ%=..x..zJ%=|
0001b310  41 25 81 32 35 36 0d 78  9b 12 cc 3a 5a 79 25 3d  |A%.256.x...:Zy%=|
0001b320  2d 31 3a 7a 4a 25 3d a3  0d 78 9c e9 cd 3a 4d 25  |-1:zJ%=..x...:M%|
0001b330  21 30 3d 5f 5f 25 3a 4d  25 21 34 3d 30 3a 4d 25  |!0=__%:M%!4=0:M%|
0001b340  21 38 3d 2d 31 30 30 30  30 30 3a 4d 25 21 31 32  |!8=-100000:M%!12|
0001b350  3d 31 30 30 30 30 30 3a  4d 25 21 31 36 3d 30 3a  |=100000:M%!16=0:|
0001b360  c8 99 26 34 30 30 63 39  2c 2c 4d 25 b8 64 25 3a  |..&400c9,,M%.d%:|
0001b370  f2 57 28 33 2c 31 31 29  3a c8 95 64 25 3a f2 57  |.W(3,11):..d%:.W|
0001b380  28 33 2c 31 31 29 3a 86  56 79 25 2b 4c 25 2c 58  |(3,11):.Vy%+L%,X|
0001b390  25 2d 48 79 25 2c 62 79  25 2b 4c 25 2c 58 25 2d  |%-Hy%,by%+L%,X%-|
0001b3a0  74 79 25 3a c8 99 26 34  30 30 63 61 2c 2c 4d 25  |ty%:..&400ca,,M%|
0001b3b0  b8 64 25 3a ce 3a 5a 25  21 30 3d 5f 5f 25 3a c8  |.d%:.:Z%!0=__%:.|
0001b3c0  99 26 34 30 30 63 62 2c  2c 5a 25 3a 4c 25 3d 5a  |.&400cb,,Z%:L%=Z|
0001b3d0  25 21 34 2d 5a 25 21 32  30 3a 58 25 3d 5a 25 21  |%!4-Z%!20:X%=Z%!|
0001b3e0  31 36 2d 5a 25 21 32 34  3a 5a 25 21 32 38 3d 73  |16-Z%!24:Z%!28=s|
0001b3f0  6f 25 3a 70 75 25 3d 5a  6c 25 83 32 35 36 3a 77  |o%:pu%=Zl%.256:w|
0001b400  41 25 3d 5a 6c 25 81 32  35 36 3a c8 8e 77 41 25  |A%=Zl%.256:..wA%|
0001b410  ca 0d 78 9d 1b c9 39 3a  e7 5a 79 25 3c 70 75 25  |..x...9:.Zy%<pu%|
0001b420  2d 31 80 5a 79 25 3c 3e  2d 31 ef 37 0d 78 9e 16  |-1.Zy%<>-1.7.x..|
0001b430  e7 5a 79 25 3c 70 75 25  2d 31 84 5a 79 25 3d 2d  |.Zy%<pu%-1.Zy%=-|
0001b440  31 e1 0d 78 9f 58 f2 53  79 3a 6d 6f 25 3d 51 25  |1..x.X.Sy:mo%=Q%|
0001b450  21 28 5a 79 25 2a 31 36  29 3a 4b 6b 25 3d 51 25  |!(Zy%*16):Kk%=Q%|
0001b460  21 28 5a 79 25 2a 31 36  2b 34 29 3a 70 4f 25 3d  |!(Zy%*16+4):pO%=|
0001b470  51 25 21 28 5a 79 25 2a  31 36 2b 38 29 3a 60 4f  |Q%!(Zy%*16+8):`O|
0001b480  25 3d 51 25 21 28 5a 79  25 2a 31 36 2b 31 32 29  |%=Q%!(Zy%*16+12)|
0001b490  3a e7 5a 79 25 3c 41 79  25 8c 0d 78 a0 7e e3 4e  |:.Zy%<Ay%..x.~.N|
0001b4a0  25 3d 5a 79 25 b8 41 79  25 2d 31 3a 51 25 21 28  |%=Zy%.Ay%-1:Q%!(|
0001b4b0  4e 25 2a 31 36 29 3d 51  25 21 28 4e 25 2a 31 36  |N%*16)=Q%!(N%*16|
0001b4c0  2b 31 36 29 3a 51 25 21  28 4e 25 2a 31 36 2b 34  |+16):Q%!(N%*16+4|
0001b4d0  29 3d 51 25 21 28 4e 25  2a 31 36 2b 32 30 29 3a  |)=Q%!(N%*16+20):|
0001b4e0  51 25 21 28 4e 25 2a 31  36 2b 38 29 3d 51 25 21  |Q%!(N%*16+8)=Q%!|
0001b4f0  28 4e 25 2a 31 36 2b 32  34 29 3a 51 25 21 28 4e  |(N%*16+24):Q%!(N|
0001b500  25 2a 31 36 2b 31 32 29  3d 51 25 21 28 4e 25 2a  |%*16+12)=Q%!(N%*|
0001b510  31 36 2b 32 38 29 3a ed  0d 78 a1 cc cd 3a e3 4e  |16+28):..x...:.N|
0001b520  25 3d 41 79 25 b8 70 75  25 2b 31 88 2d 31 3a 51  |%=Ay%.pu%+1.-1:Q|
0001b530  25 21 28 4e 25 2a 31 36  29 3d 51 25 21 28 4e 25  |%!(N%*16)=Q%!(N%|
0001b540  2a 31 36 2d 31 36 29 3a  51 25 21 28 4e 25 2a 31  |*16-16):Q%!(N%*1|
0001b550  36 2b 34 29 3d 51 25 21  28 4e 25 2a 31 36 2d 31  |6+4)=Q%!(N%*16-1|
0001b560  32 29 3a 51 25 21 28 4e  25 2a 31 36 2b 38 29 3d  |2):Q%!(N%*16+8)=|
0001b570  51 25 21 28 4e 25 2a 31  36 2d 38 29 3a 51 25 21  |Q%!(N%*16-8):Q%!|
0001b580  28 4e 25 2a 31 36 2b 31  32 29 3d 51 25 21 28 4e  |(N%*16+12)=Q%!(N|
0001b590  25 2a 31 36 2d 34 29 3a  ed 3a 51 25 21 28 70 75  |%*16-4):.:Q%!(pu|
0001b5a0  25 2a 31 36 29 3d 6d 6f  25 3a 51 25 21 28 70 75  |%*16)=mo%:Q%!(pu|
0001b5b0  25 2a 31 36 2b 34 29 3d  4b 6b 25 3a 51 25 21 28  |%*16+4)=Kk%:Q%!(|
0001b5c0  70 75 25 2a 31 36 2b 38  29 3d 70 4f 25 3a 51 25  |pu%*16+8)=pO%:Q%|
0001b5d0  21 28 70 75 25 2a 31 36  2b 31 32 29 3d 60 4f 25  |!(pu%*16+12)=`O%|
0001b5e0  3a f2 53 79 0d 78 a2 12  c9 31 30 3a e7 5a 79 25  |:.Sy.x...10:.Zy%|
0001b5f0  3e 70 75 25 ef 37 0d 78  a3 15 e7 5a 79 25 3e 3d  |>pu%.7.x...Zy%>=|
0001b600  70 75 25 84 5a 79 25 3d  2d 31 e1 0d 78 a4 5f f2  |pu%.Zy%=-1..x._.|
0001b610  53 79 3a 6d 6f 25 3d 51  25 21 28 70 75 25 2a 31  |Sy:mo%=Q%!(pu%*1|
0001b620  36 2b 31 36 29 3a 4b 6b  25 3d 51 25 21 28 70 75  |6+16):Kk%=Q%!(pu|
0001b630  25 2a 31 36 2b 32 30 29  3a 70 4f 25 3d 51 25 21  |%*16+20):pO%=Q%!|
0001b640  28 70 75 25 2a 31 36 2b  32 34 29 3a 60 4f 25 3d  |(pu%*16+24):`O%=|
0001b650  51 25 21 28 70 75 25 2a  31 36 2b 32 38 29 3a e7  |Q%!(pu%*16+28):.|
0001b660  70 75 25 2b 31 3c 41 79  25 8c 0d 78 a5 80 e3 4e  |pu%+1<Ay%..x...N|
0001b670  25 3d 70 75 25 2b 31 b8  41 79 25 2d 31 3a 51 25  |%=pu%+1.Ay%-1:Q%|
0001b680  21 28 4e 25 2a 31 36 29  3d 51 25 21 28 4e 25 2a  |!(N%*16)=Q%!(N%*|
0001b690  31 36 2b 31 36 29 3a 51  25 21 28 4e 25 2a 31 36  |16+16):Q%!(N%*16|
0001b6a0  2b 34 29 3d 51 25 21 28  4e 25 2a 31 36 2b 32 30  |+4)=Q%!(N%*16+20|
0001b6b0  29 3a 51 25 21 28 4e 25  2a 31 36 2b 38 29 3d 51  |):Q%!(N%*16+8)=Q|
0001b6c0  25 21 28 4e 25 2a 31 36  2b 32 34 29 3a 51 25 21  |%!(N%*16+24):Q%!|
0001b6d0  28 4e 25 2a 31 36 2b 31  32 29 3d 51 25 21 28 4e  |(N%*16+12)=Q%!(N|
0001b6e0  25 2a 31 36 2b 32 38 29  3a ed 0d 78 a6 d1 cd 3a  |%*16+28):..x...:|
0001b6f0  e3 4e 25 3d 41 79 25 b8  5a 79 25 2b 31 88 2d 31  |.N%=Ay%.Zy%+1.-1|
0001b700  3a 51 25 21 28 4e 25 2a  31 36 29 3d 51 25 21 28  |:Q%!(N%*16)=Q%!(|
0001b710  4e 25 2a 31 36 2d 31 36  29 3a 51 25 21 28 4e 25  |N%*16-16):Q%!(N%|
0001b720  2a 31 36 2b 34 29 3d 51  25 21 28 4e 25 2a 31 36  |*16+4)=Q%!(N%*16|
0001b730  2d 31 32 29 3a 51 25 21  28 4e 25 2a 31 36 2b 38  |-12):Q%!(N%*16+8|
0001b740  29 3d 51 25 21 28 4e 25  2a 31 36 2d 38 29 3a 51  |)=Q%!(N%*16-8):Q|
0001b750  25 21 28 4e 25 2a 31 36  2b 31 32 29 3d 51 25 21  |%!(N%*16+12)=Q%!|
0001b760  28 4e 25 2a 31 36 2d 34  29 3a ed 3a 51 25 21 28  |(N%*16-4):.:Q%!(|
0001b770  5a 79 25 2a 31 36 2b 31  36 29 3d 6d 6f 25 3a 51  |Zy%*16+16)=mo%:Q|
0001b780  25 21 28 5a 79 25 2a 31  36 2b 32 30 29 3d 4b 6b  |%!(Zy%*16+20)=Kk|
0001b790  25 3a 51 25 21 28 5a 79  25 2a 31 36 2b 32 34 29  |%:Q%!(Zy%*16+24)|
0001b7a0  3d 70 4f 25 3a 51 25 21  28 5a 79 25 2a 31 36 2b  |=pO%:Q%!(Zy%*16+|
0001b7b0  32 38 29 3d 60 4f 25 3a  f2 53 79 0d 78 a7 07 cb  |28)=`O%:.Sy.x...|
0001b7c0  3a e1 0d 78 a8 22 dd f2  62 6c 28 6b 4a 25 29 3a  |:..x."..bl(kJ%):|
0001b7d0  c8 99 26 34 30 37 34 33  2c 6b 4a 25 2c 2c 2c 30  |..&40743,kJ%,,,0|
0001b7e0  2c 30 3a e1 0d 78 a9 2b  dd f2 57 28 44 60 25 2c  |,0:..x.+..W(D`%,|
0001b7f0  6b 4a 25 29 3a ea 6d 5f  25 3a c8 99 35 33 2c eb  |kJ%):.m_%:..53,.|
0001b800  2c 33 b8 2c 2c 6d 5f 25  3a c8 8e 6d 5f 25 ca 0d  |,3.,,m_%:..m_%..|
0001b810  78 aa 12 c9 36 33 2c 32  35 35 3a c8 8e 6b 4a 25  |x...63,255:..kJ%|
0001b820  ca 0d 78 ab 0e c9 37 3a  6b 4a 25 3d 32 35 33 0d  |..x...7:kJ%=253.|
0001b830  78 ac 0e c9 38 3a 6b 4a  25 3d 31 31 31 0d 78 ad  |x...8:kJ%=111.x.|
0001b840  0f c9 31 30 3a 6b 4a 25  3d 32 30 37 0d 78 ae 0f  |..10:kJ%=207.x..|
0001b850  c9 31 31 3a 6b 4a 25 3d  32 34 33 0d 78 af 1c cb  |.11:kJ%=243.x...|
0001b860  3a e6 44 60 25 2c 6b 4a  25 81 34 c8 9c 28 6b 4a  |:.D`%,kJ%.4..(kJ|
0001b870  25 83 34 29 2a 36 34 0d  78 b0 14 c9 36 35 35 33  |%.4)*64.x...6553|
0001b880  35 2c 2d 31 3a c8 8e 6b  4a 25 ca 0d 78 b1 17 c9  |5,-1:..kJ%..x...|
0001b890  37 3a e6 44 60 25 2c 32  32 32 2c 32 32 32 2c 32  |7:.D`%,222,222,2|
0001b8a0  32 32 0d 78 b2 17 c9 38  3a e6 44 60 25 2c 32 35  |22.x...8:.D`%,25|
0001b8b0  35 2c 31 38 38 2c 31 30  32 0d 78 b3 17 c9 31 30  |5,188,102.x...10|
0001b8c0  3a e6 44 60 25 2c 32 35  35 2c 35 31 2c 32 35 35  |:.D`%,255,51,255|
0001b8d0  0d 78 b4 17 c9 31 31 3a  e6 44 60 25 2c 33 34 2c  |.x...11:.D`%,34,|
0001b8e0  32 35 35 2c 32 35 35 0d  78 b5 05 cb 0d 78 b6 19  |255,255.x....x..|
0001b8f0  7f 3a c8 99 26 34 30 30  65 36 2c 6b 4a 25 2b 44  |.:..&400e6,kJ%+D|
0001b900  60 25 2a 31 36 0d 78 b7  07 cb 3a e1 0d 78 b8 31  |`%*16.x...:..x.1|
0001b910  dd f2 75 69 28 62 25 2c  49 25 29 3a ea 7a 25 3a  |..ui(b%,I%):.z%:|
0001b920  e7 62 25 3d 31 80 49 25  3d 32 49 25 3d 33 8b e7  |.b%=1.I%=2I%=3..|
0001b930  62 25 3d 31 80 49 25 3d  33 49 25 3d 32 0d 78 b9  |b%=1.I%=3I%=2.x.|
0001b940  09 c8 8e 49 25 ca 0d 78  ba 2a c9 32 3a e7 79 4a  |...I%..x.*.2:.yJ|
0001b950  25 51 69 25 3d bb 28 a4  4d 28 5a 6f 6f 6d 5f 57  |%Qi%=.(.M(Zoom_W|
0001b960  69 6e 64 6f 77 25 2c 35  29 29 3a 79 4a 25 3d a3  |indow%,5)):yJ%=.|
0001b970  0d 78 bb 1c f2 69 28 5a  6f 6f 6d 5f 57 69 6e 64  |.x...i(Zoom_Wind|
0001b980  6f 77 25 2c 35 2c 39 39  39 2c 31 29 0d 78 bc 2a  |ow%,5,999,1).x.*|
0001b990  c9 33 3a e7 79 4a 25 51  69 25 3d bb 28 a4 4d 28  |.3:.yJ%Qi%=.(.M(|
0001b9a0  5a 6f 6f 6d 5f 57 69 6e  64 6f 77 25 2c 35 29 29  |Zoom_Window%,5))|
0001b9b0  3a 79 4a 25 3d a3 0d 78  bd 1a f2 68 28 5a 6f 6f  |:yJ%=..x...h(Zoo|
0001b9c0  6d 5f 57 69 6e 64 6f 77  25 2c 35 2c 31 2c 31 29  |m_Window%,5,1,1)|
0001b9d0  0d 78 be 2a c9 31 3a e7  79 4a 25 51 69 25 3d bb  |.x.*.1:.yJ%Qi%=.|
0001b9e0  28 a4 4d 28 5a 6f 6f 6d  5f 57 69 6e 64 6f 77 25  |(.M(Zoom_Window%|
0001b9f0  2c 35 29 29 3a 79 4a 25  3d a3 0d 78 bf 1f f2 41  |,5)):yJ%=..x...A|
0001ba00  28 5a 6f 6f 6d 5f 57 69  6e 64 6f 77 25 2c 35 2c  |(Zoom_Window%,5,|
0001ba10  22 35 30 22 29 3a f2 43  79 0d 78 c0 2a c9 38 3a  |"50"):.Cy.x.*.8:|
0001ba20  e7 79 4a 25 51 69 25 3d  bb 28 a4 4d 28 5a 6f 6f  |.yJ%Qi%=.(.M(Zoo|
0001ba30  6d 5f 57 69 6e 64 6f 77  25 2c 35 29 29 3a 79 4a  |m_Window%,5)):yJ|
0001ba40  25 3d a3 0d 78 c1 20 f2  41 28 5a 6f 6f 6d 5f 57  |%=..x. .A(Zoom_W|
0001ba50  69 6e 64 6f 77 25 2c 35  2c 22 31 30 30 22 29 3a  |indow%,5,"100"):|
0001ba60  f2 43 79 0d 78 c2 2b c9  31 31 3a e7 79 4a 25 51  |.Cy.x.+.11:.yJ%Q|
0001ba70  69 25 3d bb 28 a4 4d 28  5a 6f 6f 6d 5f 57 69 6e  |i%=.(.M(Zoom_Win|
0001ba80  64 6f 77 25 2c 35 29 29  3a 79 4a 25 3d a3 0d 78  |dow%,5)):yJ%=..x|
0001ba90  c3 1f f2 41 28 5a 6f 6f  6d 5f 57 69 6e 64 6f 77  |...A(Zoom_Window|
0001baa0  25 2c 35 2c 22 32 35 22  29 3a f2 43 79 0d 78 c4  |%,5,"25"):.Cy.x.|
0001bab0  2a c9 37 3a e7 79 4a 25  51 69 25 3d bb 28 a4 4d  |*.7:.yJ%Qi%=.(.M|
0001bac0  28 5a 6f 6f 6d 5f 57 69  6e 64 6f 77 25 2c 35 29  |(Zoom_Window%,5)|
0001bad0  29 3a 79 4a 25 3d a3 0d  78 c5 12 e7 a4 53 28 6b  |):yJ%=..x....S(k|
0001bae0  25 29 5a 25 21 30 3d 6b  25 0d 78 c6 14 e7 a4 53  |%)Z%!0=k%.x....S|
0001baf0  28 51 5f 25 29 5a 25 21  30 3d 51 5f 25 0d 78 c7  |(Q_%)Z%!0=Q_%.x.|
0001bb00  14 e7 a4 53 28 48 5f 25  29 5a 25 21 30 3d 48 5f  |...S(H_%)Z%!0=H_|
0001bb10  25 0d 78 c8 48 c8 99 26  34 30 30 63 62 2c 2c 5a  |%.x.H..&400cb,,Z|
0001bb20  25 3a 75 6c 25 3d 5a 25  21 31 32 2d 5a 25 21 34  |%:ul%=Z%!12-Z%!4|
0001bb30  3a 6a 6c 25 3d 5a 25 21  31 36 2d 5a 25 21 38 3a  |:jl%=Z%!16-Z%!8:|
0001bb40  e7 6a 6c 25 2f 75 6c 25  3e 28 74 25 2a 56 25 29  |.jl%/ul%>(t%*V%)|
0001bb50  2f 28 6e 25 2a 52 25 29  8c 0d 78 c9 16 7a 25 3d  |/(n%*R%)..x..z%=|
0001bb60  75 6c 25 2f 28 6e 25 2a  52 25 29 2a 31 30 30 0d  |ul%/(n%*R%)*100.|
0001bb70  78 ca 18 cc 3a 7a 25 3d  6a 6c 25 2f 28 74 25 2a  |x...:z%=jl%/(t%*|
0001bb80  56 25 29 2a 31 30 30 0d  78 cb 0f cd 3a e7 7a 25  |V%)*100.x...:.z%|
0001bb90  3c 31 7a 25 3d 31 0d 78  cc 11 e7 7a 25 3e 39 39  |<1z%=1.x...z%>99|
0001bba0  39 7a 25 3d 39 39 39 0d  78 cd 20 f2 41 28 5a 6f  |9z%=999.x. .A(Zo|
0001bbb0  6f 6d 5f 57 69 6e 64 6f  77 25 2c 35 2c c3 28 7a  |om_Window%,5,.(z|
0001bbc0  25 29 29 3a f2 43 79 0d  78 ce 2a c9 36 3a e7 79  |%)):.Cy.x.*.6:.y|
0001bbd0  4a 25 51 69 25 3d bb 28  a4 4d 28 5a 6f 6f 6d 5f  |J%Qi%=.(.M(Zoom_|
0001bbe0  57 69 6e 64 6f 77 25 2c  35 29 29 3a 79 4a 25 3d  |Window%,5)):yJ%=|
0001bbf0  a3 0d 78 cf 93 c8 99 35  33 2c 2d 31 2c 31 31 b8  |..x....53,-1,11.|
0001bc00  2c 2c 73 79 25 3a c8 99  35 33 2c 2d 31 2c 31 32  |,,sy%:..53,-1,12|
0001bc10  b8 2c 2c 65 79 25 3a c8  99 35 33 2c 2d 31 2c 34  |.,,ey%:..53,-1,4|
0001bc20  b8 2c 2c 55 4a 25 3a c8  99 35 33 2c 2d 31 2c 35  |.,,UJ%:..53,-1,5|
0001bc30  b8 2c 2c 78 5f 25 3a 55  4a 25 3d 31 3c 3c 55 4a  |.,,x_%:UJ%=1<<UJ|
0001bc40  25 3a 78 5f 25 3d 31 3c  3c 78 5f 25 3a 65 79 25  |%:x_%=1<<x_%:ey%|
0001bc50  2d 3d 38 34 2f 78 5f 25  3a e7 28 65 79 25 2a 78  |-=84/x_%:.(ey%*x|
0001bc60  5f 25 2d 38 38 29 2f 28  73 79 25 2a 55 4a 25 2d  |_%-88)/(sy%*UJ%-|
0001bc70  34 36 29 3e 28 74 25 2a  52 25 29 2f 28 6e 25 2a  |46)>(t%*R%)/(n%*|
0001bc80  56 25 29 8c 0d 78 d0 1f  7a 25 3d 28 73 79 25 2a  |V%)..x..z%=(sy%*|
0001bc90  55 4a 25 2d 34 36 29 2f  28 6e 25 2a 52 25 29 2a  |UJ%-46)/(n%*R%)*|
0001bca0  31 30 30 0d 78 d1 21 cc  3a 7a 25 3d 28 65 79 25  |100.x.!.:z%=(ey%|
0001bcb0  2a 78 5f 25 2d 38 38 29  2f 28 74 25 2a 56 25 29  |*x_%-88)/(t%*V%)|
0001bcc0  2a 31 30 30 0d 78 d2 0f  cd 3a e7 7a 25 3c 31 7a  |*100.x...:.z%<1z|
0001bcd0  25 3d 31 0d 78 d3 11 e7  7a 25 3e 39 39 39 7a 25  |%=1.x...z%>999z%|
0001bce0  3d 39 39 39 0d 78 d4 20  f2 41 28 5a 6f 6f 6d 5f  |=999.x. .A(Zoom_|
0001bcf0  57 69 6e 64 6f 77 25 2c  35 2c c3 28 7a 25 29 29  |Window%,5,.(z%))|
0001bd00  3a f2 43 79 0d 78 d5 2a  c9 39 3a 79 4a 25 3d a3  |:.Cy.x.*.9:yJ%=.|
0001bd10  3a f2 41 28 5a 6f 6f 6d  5f 57 69 6e 64 6f 77 25  |:.A(Zoom_Window%|
0001bd20  2c 35 2c c3 28 51 69 25  29 29 3a f2 43 79 0d 78  |,5,.(Qi%)):.Cy.x|
0001bd30  d6 0b c9 31 30 3a f2 43  79 0d 78 d7 18 c9 31 32  |...10:.Cy.x...12|
0001bd40  3a f2 4d 28 5a 6f 6f 6d  5f 57 69 6e 64 6f 77 25  |:.M(Zoom_Window%|
0001bd50  29 0d 78 d8 07 cb 3a e1  0d 78 d9 26 dd f2 43 79  |).x...:..x.&..Cy|
0001bd60  3a e7 79 4a 25 51 69 25  3d bb 28 a4 4d 28 5a 6f  |:.yJ%Qi%=.(.M(Zo|
0001bd70  6f 6d 5f 57 69 6e 64 6f  77 25 2c 35 29 29 0d 78  |om_Window%,5)).x|
0001bd80  da 32 e7 bb 28 a4 4d 28  5a 6f 6f 6d 5f 57 69 6e  |.2..(.M(Zoom_Win|
0001bd90  64 6f 77 25 2c 35 29 29  3c 31 f2 41 28 5a 6f 6f  |dow%,5))<1.A(Zoo|
0001bda0  6d 5f 57 69 6e 64 6f 77  25 2c 35 2c 22 31 22 29  |m_Window%,5,"1")|
0001bdb0  0d 78 db 21 79 4a 25 3d  b9 3a 72 60 25 3d b9 3a  |.x.!yJ%=.:r`%=.:|
0001bdc0  f2 76 4a 3a 72 60 25 3d  a3 3a e7 62 25 3c 3e 31  |.vJ:r`%=.:.b%<>1|
0001bdd0  8c 0d 78 dc 17 f2 4d 28  5a 6f 6f 6d 5f 57 69 6e  |..x...M(Zoom_Win|
0001bde0  64 6f 77 25 29 3a f2 62  0d 78 dd 07 cd 3a e1 0d  |dow%):.b.x...:..|
0001bdf0  78 de 17 dd f2 68 6c 28  49 25 2c 6a 25 29 3a e7  |x....hl(I%,j%):.|
0001be00  6a 25 3d 31 33 8c 0d 78  df 2d f2 53 28 59 25 2c  |j%=13..x.-.S(Y%,|
0001be10  31 30 2c 31 29 3a e7 79  4a 25 51 69 25 3d bb 28  |10,1):.yJ%Qi%=.(|
0001be20  a4 4d 28 5a 6f 6f 6d 5f  57 69 6e 64 6f 77 25 2c  |.M(Zoom_Window%,|
0001be30  35 29 29 0d 78 e0 32 e7  bb 28 a4 4d 28 5a 6f 6f  |5)).x.2..(.M(Zoo|
0001be40  6d 5f 57 69 6e 64 6f 77  25 2c 35 29 29 3c 31 f2  |m_Window%,5))<1.|
0001be50  41 28 5a 6f 6f 6d 5f 57  69 6e 64 6f 77 25 2c 35  |A(Zoom_Window%,5|
0001be60  2c 22 31 22 29 0d 78 e1  39 79 4a 25 3d b9 3a 72  |,"1").x.9yJ%=.:r|
0001be70  60 25 3d b9 3a f2 76 4a  3a 72 60 25 3d a3 3a f2  |`%=.:.vJ:r`%=.:.|
0001be80  4d 28 5a 6f 6f 6d 5f 57  69 6e 64 6f 77 25 29 3a  |M(Zoom_Window%):|
0001be90  f2 62 3a f2 53 28 59 25  2c 31 30 2c 30 29 0d 78  |.b:.S(Y%,10,0).x|
0001bea0  e2 11 cc 3a c8 99 26 34  30 30 64 63 2c 6a 25 0d  |...:..&400dc,j%.|
0001beb0  78 e3 07 cd 3a e1 0d 78  e4 5f dd f2 76 4a 3a ea  |x...:..x._..vJ:.|
0001bec0  75 6c 25 2c 6a 6c 25 3a  55 25 3d bb 28 a4 4d 28  |ul%,jl%:U%=.(.M(|
0001bed0  5a 6f 6f 6d 5f 57 69 6e  64 6f 77 25 2c 35 29 29  |Zoom_Window%,5))|
0001bee0  3a 75 6c 25 3d 55 25 2a  28 6e 25 2a 52 25 29 2f  |:ul%=U%*(n%*R%)/|
0001bef0  31 30 30 3a 6a 6c 25 3d  55 25 2a 28 74 25 2a 56  |100:jl%=U%*(t%*V|
0001bf00  25 29 2f 31 30 30 3a 69  60 25 3d b9 3a e7 a4 53  |%)/100:i`%=.:..S|
0001bf10  28 6b 25 29 8c 0d 78 e5  47 f2 4c 28 6b 25 2c 75  |(k%)..x.G.L(k%,u|
0001bf20  6c 25 2c 6a 6c 25 29 3a  f2 4e 28 6b 25 2c 22 50  |l%,jl%):.N(k%,"P|
0001bf30  72 6f 63 65 73 73 20 27  22 2b 58 24 2b 22 27 20  |rocess '"+X$+"' |
0001bf40  28 22 2b 4d 24 2b 22 29  22 29 3a f2 4a 28 6b 25  |("+M$+")"):.J(k%|
0001bf50  29 3a e7 55 75 25 f2 77  28 6b 25 29 0d 78 e6 0f  |):.Uu%.w(k%).x..|
0001bf60  cd 3a e7 a4 53 28 51 5f  25 29 8c 0d 78 e7 66 f2  |.:..S(Q_%)..x.f.|
0001bf70  4c 28 51 5f 25 2c 75 6c  25 2c 6a 6c 25 29 3a f2  |L(Q_%,ul%,jl%):.|
0001bf80  4c 28 77 5f 25 2c 75 6c  25 2c 6a 6c 25 29 3a f2  |L(w_%,ul%,jl%):.|
0001bf90  4e 28 51 5f 25 2c 22 4f  72 69 67 69 6e 61 6c 20  |N(Q_%,"Original |
0001bfa0  69 6d 61 67 65 22 29 3a  f2 4e 28 77 5f 25 2c 22  |image"):.N(w_%,"|
0001bfb0  50 72 6f 63 65 73 73 65  64 20 69 6d 61 67 65 22  |Processed image"|
0001bfc0  29 3a f2 4a 28 51 5f 25  29 3a f2 4a 28 77 5f 25  |):.J(Q_%):.J(w_%|
0001bfd0  29 0d 78 e8 0f cd 3a e7  a4 53 28 48 5f 25 29 8c  |).x...:..S(H_%).|
0001bfe0  0d 78 e9 c1 f2 4c 28 48  5f 25 2c 75 6c 25 2b 34  |.x...L(H_%,ul%+4|
0001bff0  30 30 2c 6a 6c 25 2b 34  30 30 29 3a f2 4e 28 48  |00,jl%+400):.N(H|
0001c000  5f 25 2c 22 4d 65 72 67  65 20 69 6d 61 67 65 73  |_%,"Merge images|
0001c010  22 29 3a f2 4a 28 48 5f  25 29 3a c8 99 26 34 30  |"):.J(H_%):..&40|
0001c020  30 63 66 2c 2c 5a 25 3a  73 25 3d 5a 25 21 30 3a  |0cf,,Z%:s%=Z%!0:|
0001c030  76 25 3d 5a 25 21 34 3a  52 69 25 3d 2d 6b 75 25  |v%=Z%!4:Ri%=-ku%|
0001c040  2a 52 25 2f 32 2a 55 25  2f 31 30 30 3a 49 69 25  |*R%/2*U%/100:Ii%|
0001c050  3d 2d 6e 4a 25 2a 56 25  2f 32 2a 55 25 2f 31 30  |=-nJ%*V%/2*U%/10|
0001c060  30 3a 78 75 25 3d 28 73  25 2d 4c 25 2b 52 69 25  |0:xu%=(s%-L%+Ri%|
0001c070  2d 52 25 29 3a 73 75 25  3d 74 25 2a 56 25 2a 55  |-R%):su%=t%*V%*U|
0001c080  25 2f 31 30 30 2d 28 58  25 2d 76 25 2d 49 69 25  |%/100-(X%-v%-Ii%|
0001c090  29 3a 6d 69 25 3d 78 75  25 3a 6b 69 25 3d 73 75  |):mi%=xu%:ki%=su|
0001c0a0  25 0d 78 ea 0d cd 3a 69  60 25 3d a3 3a e1 0d 78  |%.x...:i`%=.:..x|
0001c0b0  eb 15 dd a4 4a 28 71 25  29 3d 55 25 2a 71 25 2f  |....J(q%)=U%*q%/|
0001c0c0  31 30 30 0d 78 ec 11 dd  f2 48 61 3a e7 55 25 3d  |100.x....Ha:.U%=|
0001c0d0  31 30 30 e1 0d 78 ed 3d  7a 25 21 30 3d 7a 25 21  |100..x.=z%!0=z%!|
0001c0e0  30 2a 55 25 3a 7a 25 21  38 3d 7a 25 21 38 2a 31  |0*U%:z%!8=z%!8*1|
0001c0f0  30 30 3a 7a 25 21 34 3d  7a 25 21 34 2a 55 25 3a  |00:z%!4=z%!4*U%:|
0001c100  7a 25 21 31 32 3d 7a 25  21 31 32 2a 31 30 30 3a  |z%!12=z%!12*100:|
0001c110  e1 0d 78 ee 2b dd f2 55  79 3a 7a 25 21 30 3d 31  |..x.+..Uy:z%!0=1|
0001c120  3a 7a 25 21 34 3d 31 3a  7a 25 21 38 3d 31 3a 7a  |:z%!4=1:z%!8=1:z|
0001c130  25 21 31 32 3d 31 3a f2  48 61 3a e1 0d 78 ef 16  |%!12=1:.Ha:..x..|
0001c140  dd f2 6d 69 28 62 25 2c  49 25 29 3a e7 62 25 3e  |..mi(b%,I%):.b%>|
0001c150  37 e1 0d 78 f0 25 e7 62  25 3d 31 80 49 25 3d 32  |7..x.%.b%=1.I%=2|
0001c160  38 49 25 3d 32 31 8b e7  62 25 3d 31 80 49 25 3d  |8I%=21..b%=1.I%=|
0001c170  32 31 49 25 3d 32 38 0d  78 f1 25 e7 62 25 3d 31  |21I%=28.x.%.b%=1|
0001c180  80 49 25 3d 32 34 49 25  3d 32 39 8b e7 62 25 3d  |.I%=24I%=29..b%=|
0001c190  31 80 49 25 3d 32 39 49  25 3d 32 34 0d 78 f2 09  |1.I%=29I%=24.x..|
0001c1a0  c8 8e 49 25 ca 0d 78 f3  1b c9 32 34 3a f2 69 28  |..I%..x...24:.i(|
0001c1b0  42 79 25 2c 32 32 2c 39  39 2c 31 29 3a f2 4b 79  |By%,22,99,1):.Ky|
0001c1c0  0d 78 f4 1a c9 32 39 3a  f2 68 28 42 79 25 2c 32  |.x...29:.h(By%,2|
0001c1d0  32 2c 31 2c 31 29 3a f2  4b 79 0d 78 f5 1c c9 32  |2,1,1):.Ky.x...2|
0001c1e0  31 3a f2 69 28 42 79 25  2c 32 33 2c 39 39 39 2c  |1:.i(By%,23,999,|
0001c1f0  31 29 3a f2 4b 79 0d 78  f6 1a c9 32 38 3a f2 68  |1):.Ky.x...28:.h|
0001c200  28 42 79 25 2c 32 33 2c  31 2c 31 29 3a f2 4b 79  |(By%,23,1,1):.Ky|
0001c210  0d 78 f7 06 c9 33 0d 78  f8 16 c9 34 35 3a 71 6c  |.x...3.x...45:ql|
0001c220  25 3d a4 5a 28 42 79 25  2c 49 25 29 0d 78 f9 15  |%=.Z(By%,I%).x..|
0001c230  c9 39 3a 74 69 25 3d a4  5a 28 42 79 25 2c 49 25  |.9:ti%=.Z(By%,I%|
0001c240  29 0d 78 fa 16 c9 31 30  3a 6c 6e 25 3d a4 5a 28  |).x...10:ln%=.Z(|
0001c250  42 79 25 2c 49 25 29 0d  78 fb 51 c9 31 31 3a 51  |By%,I%).x.Q.11:Q|
0001c260  75 25 3d a4 5a 28 42 79  25 2c 49 25 29 3a f2 50  |u%=.Z(By%,I%):.P|
0001c270  28 42 79 25 2c 36 30 2c  ac 28 51 75 25 29 29 3a  |(By%,60,.(Qu%)):|
0001c280  f2 50 28 42 79 25 2c 36  31 2c ac 28 51 75 25 29  |.P(By%,61,.(Qu%)|
0001c290  29 3a 49 6c 25 3d 51 75  25 3a f2 53 28 42 79 25  |):Il%=Qu%:.S(By%|
0001c2a0  2c 36 30 2c 49 6c 25 29  0d 78 fc 16 c9 36 30 3a  |,60,Il%).x...60:|
0001c2b0  49 6c 25 3d a4 5a 28 42  79 25 2c 49 25 29 0d 78  |Il%=.Z(By%,I%).x|
0001c2c0  fd 15 c9 36 3a 77 6e 25  3d a4 5a 28 42 79 25 2c  |...6:wn%=.Z(By%,|
0001c2d0  49 25 29 0d 78 fe 16 c9  33 35 3a 4b 6e 25 3d a4  |I%).x...35:Kn%=.|
0001c2e0  5a 28 42 79 25 2c 49 25  29 0d 78 ff 15 c9 34 3a  |Z(By%,I%).x...4:|
0001c2f0  4c 69 25 3d a4 5a 28 42  79 25 2c 49 25 29 0d 79  |Li%=.Z(By%,I%).y|
0001c300  00 15 c9 35 3a 68 69 25  3d a4 5a 28 42 79 25 2c  |...5:hi%=.Z(By%,|
0001c310  49 25 29 0d 79 01 16 c9  31 32 3a 42 61 25 3d a4  |I%).y...12:Ba%=.|
0001c320  5a 28 42 79 25 2c 49 25  29 0d 79 02 15 c9 35 39  |Z(By%,I%).y...59|
0001c330  3a 21 6e 3d a4 5a 28 42  79 25 2c 49 25 29 0d 79  |:!n=.Z(By%,I%).y|
0001c340  03 16 c9 36 33 3a 52 6e  25 3d a4 5a 28 42 79 25  |...63:Rn%=.Z(By%|
0001c350  2c 49 25 29 0d 79 04 37  c9 33 37 3a 5a 25 21 30  |,I%).y.7.37:Z%!0|
0001c360  3d 42 79 25 3a 5a 25 21  34 3d 49 25 3a c8 99 26  |=By%:Z%!4=I%:..&|
0001c370  34 30 30 63 65 2c 2c 5a  25 3a e7 28 5a 25 21 32  |400ce,,Z%:.(Z%!2|
0001c380  34 29 80 28 31 3c 3c 32  31 29 8c 0d 79 05 15 21  |4).(1<<21)..y..!|
0001c390  6a 3d 6f 60 25 3a f2 46  28 42 79 25 2c 33 38 29  |j=o`%:.F(By%,38)|
0001c3a0  0d 79 06 15 cc 3a 21 6a  3d 30 3a f2 5a 28 42 79  |.y...:!j=0:.Z(By|
0001c3b0  25 2c 33 38 29 0d 79 07  05 cd 0d 79 08 16 c9 33  |%,38).y....y...3|
0001c3c0  32 3a 75 69 25 3d a4 5a  28 42 79 25 2c 49 25 29  |2:ui%=.Z(By%,I%)|
0001c3d0  0d 79 09 15 c9 33 34 3a  f2 54 28 65 6e 25 2c 79  |.y...34:.T(en%,y|
0001c3e0  25 2c 68 25 29 0d 79 0a  15 c9 33 38 3a f2 54 28  |%,h%).y...38:.T(|
0001c3f0  63 42 25 2c 79 25 2c 68  25 29 0d 79 0b 1e c9 31  |cB%,y%,h%).y...1|
0001c400  35 3a f2 62 69 3a f2 4a  28 6a 4a 25 29 3a e7 28  |5:.bi:.J(jJ%):.(|
0001c410  62 25 80 31 29 3d a3 8c  0d 79 0c 13 f2 4d 28 42  |b%.1)=...y...M(B|
0001c420  79 25 29 3a f2 4d 28 49  4a 25 29 0d 79 0d 05 cd  |y%):.M(IJ%).y...|
0001c430  0d 79 0e 25 c9 31 37 3a  f2 47 79 28 67 79 25 29  |.y.%.17:.Gy(gy%)|
0001c440  3a f2 4a 28 65 25 29 3a  f2 44 61 3a e7 a4 53 28  |:.J(e%):.Da:..S(|
0001c450  57 25 29 f2 78 0d 79 0f  0e e7 28 62 25 80 31 29  |W%).x.y...(b%.1)|
0001c460  3d a3 8c 0d 79 10 13 f2  4d 28 42 79 25 29 3a f2  |=...y...M(By%):.|
0001c470  4d 28 49 4a 25 29 0d 79  11 05 cd 0d 79 12 21 c9  |M(IJ%).y....y.!.|
0001c480  31 38 3a f2 47 79 28 67  79 25 29 3a f2 4a 28 65  |18:.Gy(gy%):.J(e|
0001c490  25 29 3a e7 a4 53 28 57  25 29 f2 78 0d 79 13 12  |%):..S(W%).x.y..|
0001c4a0  f2 49 5f 3a e7 28 62 25  80 31 29 3d a3 8c 0d 79  |.I_:.(b%.1)=...y|
0001c4b0  14 13 f2 4d 28 42 79 25  29 3a f2 4d 28 49 4a 25  |...M(By%):.M(IJ%|
0001c4c0  29 0d 79 15 05 cd 0d 79  16 56 c9 33 31 3a 46 6c  |).y....y.V.31:Fl|
0001c4d0  25 3d 2d 31 3a 44 4f 25  3d 2d 31 3a f2 6a 5f 3a  |%=-1:DO%=-1:.j_:|
0001c4e0  c8 99 26 34 30 30 64 37  2c 6a 4a 25 2c 5a 25 3a  |..&400d7,jJ%,Z%:|
0001c4f0  f2 50 28 49 4a 25 2c 30  2c b9 29 3a f2 71 3a f2  |.P(IJ%,0,.):.q:.|
0001c500  50 79 28 49 4a 25 2c 73  25 2d 31 32 38 2c 76 25  |Py(IJ%,s%-128,v%|
0001c510  2b 36 34 29 3a f2 44 28  6a 4a 25 29 0d 79 17 29  |+64):.D(jJ%).y.)|
0001c520  c9 34 31 3a f2 50 28 78  25 2c 32 32 2c b9 29 3a  |.41:.P(x%,22,.):|
0001c530  f2 5a 79 28 67 79 25 29  3a f2 54 28 78 25 2c 79  |.Zy(gy%):.T(x%,y|
0001c540  25 2c 68 25 29 0d 79 18  0b c9 34 36 3a f2 49 61  |%,h%).y...46:.Ia|
0001c550  0d 79 19 0b c9 35 32 3a  f2 66 75 0d 79 1a 16 c9  |.y...52:.fu.y...|
0001c560  35 30 3a 74 6e 25 3d a4  5a 28 42 79 25 2c 49 25  |50:tn%=.Z(By%,I%|
0001c570  29 0d 79 1b 16 c9 35 31  3a 77 61 25 3d a4 5a 28  |).y...51:wa%=.Z(|
0001c580  42 79 25 2c 49 25 29 0d  79 1c 16 c9 34 39 3a 58  |By%,I%).y...49:X|
0001c590  6e 25 3d a4 5a 28 42 79  25 2c 49 25 29 0d 79 1d  |n%=.Z(By%,I%).y.|
0001c5a0  16 c9 35 38 3a 79 6c 25  3d a4 5a 28 42 79 25 2c  |..58:yl%=.Z(By%,|
0001c5b0  49 25 29 0d 79 1e 15 c9  36 34 3a 21 79 3d a4 5a  |I%).y...64:!y=.Z|
0001c5c0  28 42 79 25 2c 49 25 29  0d 79 1f 07 cb 3a e1 0d  |(By%,I%).y...:..|
0001c5d0  79 20 19 dd f2 4b 79 3a  e7 5a 25 28 60 25 29 3c  |y ...Ky:.Z%(`%)<|
0001c5e0  3d 31 30 30 30 30 8c e1  0d 79 21 37 21 42 5f 3d  |=10000...y!7!B_=|
0001c5f0  bb 28 a4 4d 28 42 79 25  2c 32 32 29 29 2d 31 3a  |.(.M(By%,22))-1:|
0001c600  21 6e 79 3d bb 28 a4 4d  28 42 79 25 2c 32 32 29  |!ny=.(.M(By%,22)|
0001c610  29 2d 31 3a e7 21 42 5f  3c 30 21 42 5f 3d 30 0d  |)-1:.!B_<0!B_=0.|
0001c620  79 22 0f e7 21 6e 79 3c  30 21 6e 79 3d 30 0d 79  |y"..!ny<0!ny=0.y|
0001c630  23 3b 21 42 79 3d a4 4b  28 bb 28 a4 4d 28 42 79  |#;!By=.K(.(.M(By|
0001c640  25 2c 32 33 29 29 29 3a  21 52 79 3d a4 52 28 bb  |%,23))):!Ry=.R(.|
0001c650  28 a4 4d 28 42 79 25 2c  32 33 29 29 29 3a e7 21  |(.M(By%,23))):.!|
0001c660  42 79 3c 31 21 42 79 3d  31 0d 79 24 0f e7 21 52  |By<1!By=1.y$..!R|
0001c670  79 3c 31 21 52 79 3d 31  0d 79 25 1d 21 53 61 3d  |y<1!Ry=1.y%.!Sa=|
0001c680  21 42 79 3a 21 65 61 3d  21 52 79 3a 21 6c 6c 3d  |!By:!ea=!Ry:!ll=|
0001c690  21 42 79 3a e1 0d 79 26  74 dd f2 57 79 3a 72 79  |!By:..y&t..Wy:ry|
0001c6a0  25 3d b9 3a f2 7a 3a 72  79 25 3d a3 3a 21 7a 3d  |%=.:.z:ry%=.:!z=|
0001c6b0  4a 4a 25 3a 21 4f 3d 72  5f 25 3a 21 5f 3d 4a 4a  |JJ%:!O=r_%:!_=JJ|
0001c6c0  25 3a 21 78 3d 72 5f 25  3a 21 6d 4a 3d 30 3a c8  |%:!x=r_%:!mJ=0:.|
0001c6d0  99 26 34 30 36 63 30 3a  77 6f 25 3d a3 3a 4a 65  |.&406c0:wo%=.:Je|
0001c6e0  25 3d 91 3a 5f 25 3d 30  3a 61 61 25 3d 30 3a 71  |%=.:_%=0:aa%=0:q|
0001c6f0  4f 25 3d 61 25 3a e7 61  5f 25 8c 6d 25 3d 51 79  |O%=a%:.a_%.m%=Qy|
0001c700  25 3a 58 75 25 3d 74 5f  25 0d 79 27 21 e7 63 6c  |%:Xu%=t_%.y'!.cl|
0001c710  25 3d a3 8c 51 79 25 3d  30 3a 6d 25 3d 30 3a 58  |%=..Qy%=0:m%=0:X|
0001c720  75 25 3d 30 3a 74 5f 25  3d 30 0d 79 28 84 6f 75  |u%=0:t_%=0.y(.ou|
0001c730  25 3d 51 79 25 3a f2 4a  28 65 25 29 3a 42 4f 25  |%=Qy%:.J(e%):BO%|
0001c740  3d 66 4a 25 3a 78 42 25  3d 72 75 25 3a 6e 42 25  |=fJ%:xB%=ru%:nB%|
0001c750  3d 76 69 25 3a 58 4f 25  3d 4b 79 25 3a 7a 4f 25  |=vi%:XO%=Ky%:zO%|
0001c760  3d 4a 4a 25 3a 54 4f 25  3d 72 5f 25 3a f2 4d 28  |=JJ%:TO%=r_%:.M(|
0001c770  77 5f 25 29 3a c8 99 34  36 2c 35 34 2b 32 35 36  |w_%):..46,54+256|
0001c780  2c 41 25 28 60 25 29 2c  4d 24 3a c8 99 34 36 2c  |,A%(`%),M$:..46,|
0001c790  4e 6c 25 2c 41 25 28 60  25 29 2c 4d 24 b8 2c 2c  |Nl%,A%(`%),M$.,,|
0001c7a0  2c 6e 25 2c 74 25 3a e7  61 5f 25 3d a3 8c 0d 79  |,n%,t%:.a_%=...y|
0001c7b0  29 f7 c8 99 34 36 2c 34  35 2b 32 35 36 2c 41 25  |)...46,45+256,A%|
0001c7c0  28 60 25 29 2c 4d 24 2c  30 3a c8 99 34 36 2c 34  |(`%),M$,0:..46,4|
0001c7d0  35 2b 32 35 36 2c 41 25  28 60 25 29 2c 4d 24 2c  |5+256,A%(`%),M$,|
0001c7e0  30 3a c8 99 34 36 2c 34  35 2b 32 35 36 2c 41 25  |0:..46,45+256,A%|
0001c7f0  28 60 25 29 2c 4d 24 2c  6e 25 2b 32 3a c8 99 34  |(`%),M$,n%+2:..4|
0001c800  36 2c 34 35 2b 32 35 36  2c 41 25 28 60 25 29 2c  |6,45+256,A%(`%),|
0001c810  4d 24 2c 6e 25 2b 32 3a  c8 99 34 36 2c 33 31 2b  |M$,n%+2:..46,31+|
0001c820  32 35 36 2c 41 25 28 60  25 29 2c 4d 24 2c 30 3a  |256,A%(`%),M$,0:|
0001c830  c8 99 34 36 2c 33 31 2b  32 35 36 2c 41 25 28 60  |..46,31+256,A%(`|
0001c840  25 29 2c 4d 24 2c 30 3a  c8 99 34 36 2c 33 31 2b  |%),M$,0:..46,31+|
0001c850  32 35 36 2c 41 25 28 60  25 29 2c 4d 24 2c 74 25  |256,A%(`%),M$,t%|
0001c860  2b 32 3a c8 99 34 36 2c  33 31 2b 32 35 36 2c 41  |+2:..46,31+256,A|
0001c870  25 28 60 25 29 2c 4d 24  2c 74 25 2b 32 3a e3 4e  |%(`%),M$,t%+2:.N|
0001c880  25 3d 30 b8 41 79 25 3a  51 25 21 28 4e 25 2a 31  |%=0.Ay%:Q%!(N%*1|
0001c890  36 29 2b 3d 32 3a 51 25  21 28 4e 25 2a 31 36 2b  |6)+=2:Q%!(N%*16+|
0001c8a0  34 29 2b 3d 32 0d 79 2a  26 51 25 21 28 4e 25 2a  |4)+=2.y*&Q%!(N%*|
0001c8b0  31 36 2b 38 29 2b 3d 32  3a 51 25 21 28 4e 25 2a  |16+8)+=2:Q%!(N%*|
0001c8c0  31 36 2b 31 32 29 2b 3d  32 3a ed 0d 79 2b 72 cd  |16+12)+=2:..y+r.|
0001c8d0  3a c8 99 34 36 2c 4e 6c  25 2c 41 25 28 60 25 29  |:..46,Nl%,A%(`%)|
0001c8e0  2c 4d 24 b8 2c 2c 2c 6e  25 2c 74 25 3a c8 99 34  |,M$.,,,n%,t%:..4|
0001c8f0  36 2c 32 34 2b 32 35 36  2c 41 25 28 60 25 29 2c  |6,24+256,A%(`%),|
0001c900  4d 24 b8 2c 2c 63 25 3a  55 79 25 3d 63 25 21 31  |M$.,,c%:Uy%=c%!1|
0001c910  36 3a 79 79 25 3d 63 25  21 32 30 3a 48 75 25 3d  |6:yy%=c%!20:Hu%=|
0001c920  63 25 2d 41 25 28 60 25  29 2b 63 25 21 33 32 3a  |c%-A%(`%)+c%!32:|
0001c930  61 5f 25 3d a3 3a e7 41  79 25 3c 30 8c 0d 79 2c  |a_%=.:.Ay%<0..y,|
0001c940  29 41 79 25 3d 30 3a 51  25 21 30 3d 30 3a 51 25  |)Ay%=0:Q%!0=0:Q%|
0001c950  21 34 3d 30 3a 51 25 21  38 3d 6e 25 3a 51 25 21  |!4=0:Q%!8=n%:Q%!|
0001c960  31 32 3d 79 79 25 0d 79  2d 3e cd 3a 21 5f 61 3d  |12=yy%.y->.:!_a=|
0001c970  55 72 25 3a f2 4b 79 3a  21 43 5f 3d 30 3a 21 57  |Ur%:.Ky:!C_=0:!W|
0001c980  3d 30 3a 47 69 25 3d 30  3a 21 6a 4a 3d 2d 31 3a  |=0:Gi%=0:!jJ=-1:|
0001c990  21 46 5f 3d 30 3a 21 61  4a 3d 30 3a e7 43 79 25  |!F_=0:!aJ=0:.Cy%|
0001c9a0  3e 3d 30 8c 0d 79 2e 1e  e3 53 79 25 3d 30 b8 43  |>=0..y...Sy%=0.C|
0001c9b0  79 25 3a e7 53 25 28 53  79 25 29 8c 21 61 4a 2b  |y%:.S%(Sy%).!aJ+|
0001c9c0  3d 31 0d 79 2f 05 ed 0d  79 30 44 cd 3a f2 4d 28  |=1.y/...y0D.:.M(|
0001c9d0  51 5f 25 29 3a f2 4d 28  69 79 25 29 3a f2 4d 28  |Q_%):.M(iy%):.M(|
0001c9e0  66 79 25 29 3a 4b 25 3d  a4 41 28 31 2c 4e 75 25  |fy%):K%=.A(1,Nu%|
0001c9f0  29 3a 41 25 3d 4d 79 25  3a 42 25 3d 41 6e 25 2a  |):A%=My%:B%=An%*|
0001ca00  32 3a d6 58 69 3a e7 4c  69 25 8c 0d 79 31 44 21  |2:.Xi:.Li%..y1D!|
0001ca10  6b 3d 30 3a 69 6f 25 21  30 3d 47 69 25 3a 21 75  |k=0:io%!0=Gi%:!u|
0001ca20  79 3d 61 25 3a 21 44 3d  51 25 21 30 3a 21 49 3d  |y=a%:!D=Q%!0:!I=|
0001ca30  51 25 21 34 3a 21 4c 3d  51 25 21 38 3a 21 65 3d  |Q%!4:!L=Q%!8:!e=|
0001ca40  51 25 21 31 32 3a e7 21  44 3c 30 21 44 3d 30 0d  |Q%!12:.!D<0!D=0.|
0001ca50  79 32 0d e7 21 49 3c 30  21 49 3d 30 0d 79 33 10  |y2..!I<0!I=0.y3.|
0001ca60  e7 21 4c 3e 6e 25 8c 21  4c 3d 6e 25 0d 79 34 12  |.!L>n%.!L=n%.y4.|
0001ca70  e7 21 65 3e 79 79 25 8c  21 65 3d 79 79 25 0d 79  |.!e>yy%.!e=yy%.y|
0001ca80  35 56 46 75 25 3d 30 3a  21 64 79 3d 31 3a 21 4b  |5VFu%=0:!dy=1:!K|
0001ca90  5f 3d 21 49 3a 21 6f 79  3d 31 30 30 2a 28 46 75  |_=!I:!oy=100*(Fu|
0001caa0  25 2f 28 41 79 25 2b 31  29 29 3a 21 76 79 3d 31  |%/(Ay%+1)):!vy=1|
0001cab0  30 30 2f 28 41 79 25 2b  31 29 2a 28 31 2f 79 79  |00/(Ay%+1)*(1/yy|
0001cac0  25 29 2a 28 31 3c 3c 31  36 29 3a 57 79 25 3d 31  |%)*(1<<16):Wy%=1|
0001cad0  3a f2 60 4a 0d 79 36 0b  cd 3a e7 4c 69 25 e1 0d  |:.`J.y6..:.Li%..|
0001cae0  79 37 78 21 64 79 3d 30  3a e3 46 75 25 3d 30 b8  |y7x!dy=0:.Fu%=0.|
0001caf0  41 79 25 3a 69 6f 25 21  28 46 75 25 2a 34 29 3d  |Ay%:io%!(Fu%*4)=|
0001cb00  47 69 25 3a 21 75 79 3d  61 25 3a 21 44 3d 51 25  |Gi%:!uy=a%:!D=Q%|
0001cb10  21 28 46 75 25 2a 31 36  29 3a 21 49 3d 51 25 21  |!(Fu%*16):!I=Q%!|
0001cb20  28 46 75 25 2a 31 36 2b  34 29 3a 21 4c 3d 51 25  |(Fu%*16+4):!L=Q%|
0001cb30  21 28 46 75 25 2a 31 36  2b 38 29 3a 21 65 3d 51  |!(Fu%*16+8):!e=Q|
0001cb40  25 21 28 46 75 25 2a 31  36 2b 31 32 29 3a e7 21  |%!(Fu%*16+12):.!|
0001cb50  44 3c 30 21 44 3d 30 0d  79 38 0d e7 21 49 3c 30  |D<0!D=0.y8..!I<0|
0001cb60  21 49 3d 30 0d 79 39 10  e7 21 4c 3e 6e 25 8c 21  |!I=0.y9..!L>n%.!|
0001cb70  4c 3d 6e 25 0d 79 3a 12  e7 21 65 3e 79 79 25 8c  |L=n%.y:..!e>yy%.|
0001cb80  21 65 3d 79 79 25 0d 79  3b 60 f2 62 75 3a e7 21  |!e=yy%.y;`.bu:.!|
0001cb90  69 8c 61 61 25 3d 30 3a  6d 25 3d 51 79 25 3a 58  |i.aa%=0:m%=Qy%:X|
0001cba0  75 25 3d 74 5f 25 2d 31  3a 66 4a 25 3d 42 4f 25  |u%=t_%-1:fJ%=BO%|
0001cbb0  3a 72 75 25 3d 78 42 25  3a 4a 4a 25 3d 7a 4f 25  |:ru%=xB%:JJ%=zO%|
0001cbc0  3a 72 5f 25 3d 54 4f 25  3a 76 69 25 3d 6e 42 25  |:r_%=TO%:vi%=nB%|
0001cbd0  3a 4b 79 25 3d 58 4f 25  3a 50 25 3d 2d 31 3a 46  |:Ky%=XO%:P%=-1:F|
0001cbe0  75 25 3d 41 79 25 0d 79  3c f9 21 43 5f 2b 3d 5f  |u%=Ay%.y<.!C_+=_|
0001cbf0  25 3a 21 46 5f 2b 3d 21  57 3a 4b 79 25 2b 3d 21  |%:!F_+=!W:Ky%+=!|
0001cc00  57 2a 34 3a 66 4a 25 2b  3d 21 57 2a 34 3a 72 75  |W*4:fJ%+=!W*4:ru|
0001cc10  25 2b 3d 21 57 2a 34 3a  4a 4a 25 2b 3d 21 57 2a  |%+=!W*4:JJ%+=!W*|
0001cc20  34 3a 72 5f 25 2b 3d 21  57 2a 34 3a 21 7a 3d 4a  |4:r_%+=!W*4:!z=J|
0001cc30  4a 25 3a 21 5f 3d 4a 4a  25 3a 21 4f 3d 72 5f 25  |J%:!_=JJ%:!O=r_%|
0001cc40  3a 21 78 3d 72 5f 25 3a  76 69 25 2b 3d 21 57 3a  |:!x=r_%:vi%+=!W:|
0001cc50  61 61 25 2b 3d 5f 25 3a  61 25 2b 3d 5f 25 2a 38  |aa%+=_%:a%+=_%*8|
0001cc60  3a ed 3a 4b 25 3d a4 41  28 31 2c 70 6e 25 29 3a  |:.:K%=.A(1,pn%):|
0001cc70  61 25 3d 71 4f 25 3a 5f  25 3d 61 61 25 3a 66 4a  |a%=qO%:_%=aa%:fJ|
0001cc80  25 3d 42 4f 25 3a 72 75  25 3d 78 42 25 3a 4a 4a  |%=BO%:ru%=xB%:JJ|
0001cc90  25 3d 7a 4f 25 3a 72 5f  25 3d 54 4f 25 3a 21 7a  |%=zO%:r_%=TO%:!z|
0001cca0  3d 4a 4a 25 3a 21 4f 3d  72 5f 25 3a 21 5f 3d 4a  |=JJ%:!O=r_%:!_=J|
0001ccb0  4a 25 3a 21 78 3d 72 5f  25 3a 76 69 25 3d 6e 42  |J%:!x=r_%:vi%=nB|
0001ccc0  25 3a 4b 79 25 3d 58 4f  25 3a 65 5f 25 3d 47 69  |%:Ky%=XO%:e_%=Gi|
0001ccd0  25 3a 21 68 5f 3d 2d 31  3a 21 58 4a 3d 2d 31 0d  |%:!h_=-1:!XJ=-1.|
0001cce0  79 3d 1c 21 44 5f 3d 4b  79 25 3a 21 5a 5f 3d 65  |y=.!D_=Ky%:!Z_=e|
0001ccf0  5f 25 3a e7 21 69 3d 30  f2 4c 4a 0d 79 3e 6f 6a  |_%:.!i=0.LJ.y>oj|
0001cd00  79 25 3d a3 3a f2 76 79  3a f2 4a 5f 3a f2 59 5f  |y%=.:.vy:.J_:.Y_|
0001cd10  28 51 79 25 2c 6d 25 29  3a f2 47 28 65 25 2c 2d  |(Qy%,m%):.G(e%,-|
0001cd20  31 2c 2d 31 29 3a f2 74  3a 61 5f 25 3d b9 3a 50  |1,-1):.t:a_%=.:P|
0001cd30  25 3d 2d 31 3a 78 79 25  3d 2d 31 3a 75 4a 25 3d  |%=-1:xy%=-1:uJ%=|
0001cd40  30 3a 62 4a 25 3d 30 3a  50 79 25 3d 30 3a 69 25  |0:bJ%=0:Py%=0:i%|
0001cd50  3d 30 3a 53 79 25 3d 30  3a f5 3a e7 53 25 28 53  |=0:Sy%=0:.:.S%(S|
0001cd60  79 25 29 8c 69 25 3d 53  79 25 0d 79 3f 3e 53 79  |y%).i%=Sy%.y?>Sy|
0001cd70  25 2b 3d 31 3a fd 53 25  28 53 79 25 2d 31 29 84  |%+=1:.S%(Sy%-1).|
0001cd80  53 79 25 3e 43 79 25 3a  f2 41 28 4e 5f 25 2c 33  |Sy%>Cy%:.A(N_%,3|
0001cd90  2c 41 24 28 69 25 29 29  3a c8 99 26 34 30 36 63  |,A$(i%)):..&406c|
0001cda0  31 3a e7 21 69 3d a3 8c  0d 79 40 20 e7 49 6c 25  |1:.!i=...y@ .Il%|
0001cdb0  59 6e 25 3d a3 3a f2 5a  5f 8b e7 51 75 25 8c 59  |Yn%=.:.Z_..Qu%.Y|
0001cdc0  6e 25 3d b9 3a f2 5a 5f  0d 79 41 0b e7 42 61 25  |n%=.:.Z_.yA..Ba%|
0001cdd0  f2 46 5f 0d 79 42 09 e7  68 69 25 8c 0d 79 43 09  |.F_.yB..hi%..yC.|
0001cde0  e7 79 6c 25 8c 0d 79 44  13 4b 75 25 3d a4 53 28  |.yl%..yD.Ku%=.S(|
0001cdf0  69 79 25 29 3a f2 49 79  0d 79 45 08 cc 3a f2 6c  |iy%):.Iy.yE..:.l|
0001ce00  0d 79 46 05 cd 0d 79 47  05 cd 0d 79 48 07 cd 3a  |.yF...yG...yH..:|
0001ce10  e1 0d 79 49 96 dd f2 62  75 3a 21 6b 3d 30 3a 21  |..yI...bu:!k=0:!|
0001ce20  6f 79 3d 35 30 2a 28 46  75 25 2f 28 41 79 25 2b  |oy=50*(Fu%/(Ay%+|
0001ce30  31 29 29 3a 21 76 79 3d  35 30 2f 28 41 79 25 2b  |1)):!vy=50/(Ay%+|
0001ce40  31 29 2a 28 31 2f 79 79  25 29 2a 28 31 3c 3c 31  |1)*(1/yy%)*(1<<1|
0001ce50  36 29 3a 21 43 4a 3d 77  61 25 3a 21 53 5f 3d 66  |6):!CJ=wa%:!S_=f|
0001ce60  25 3a 21 4e 79 3d 57 5f  25 3a 21 79 79 3d 57 5f  |%:!Ny=W_%:!yy=W_|
0001ce70  25 3a 42 25 3d 47 6f 25  3a 43 25 3d 55 79 25 2b  |%:B%=Go%:C%=Uy%+|
0001ce80  31 3a 44 25 3d 41 25 28  60 25 29 2b 48 75 25 3a  |1:D%=A%(`%)+Hu%:|
0001ce90  47 25 3d 53 61 25 3a d6  44 4a 3a 57 5f 25 3d 21  |G%=Sa%:.DJ:W_%=!|
0001cea0  4e 79 3a e7 21 69 e1 0d  79 4a 97 5f 25 3d 21 6b  |Ny:.!i..yJ._%=!k|
0001ceb0  3a 4b 25 3d a4 41 28 38  2a 5f 25 2c 70 6e 25 29  |:K%=.A(8*_%,pn%)|
0001cec0  3a e7 4b 25 3d a3 f2 43  28 22 4f 70 74 69 63 61  |:.K%=..C("Optica|
0001ced0  6c 22 2c 22 54 68 65 72  65 20 69 73 20 6e 6f 74  |l","There is not|
0001cee0  20 65 6e 6f 75 67 68 20  66 72 65 65 20 6d 65 6d  | enough free mem|
0001cef0  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
0001cf00  20 66 69 6e 69 73 68 20  72 65 61 64 69 6e 67 20  | finish reading |
0001cf10  74 68 69 73 20 69 6d 61  67 65 2e 20 4e 65 65 64  |this image. Need|
0001cf20  20 22 2b c3 28 28 38 2a  5f 25 29 81 31 30 32 34  | "+.((8*_%).1024|
0001cf30  29 2b 22 4b 2e 22 29 3a  21 69 3d b9 3a e1 0d 79  |)+"K."):!i=.:..y|
0001cf40  4b 0d f2 75 4a 3a f2 55  4a 3a e1 0d 79 4c 3a dd  |K..uJ:.UJ:..yL:.|
0001cf50  f2 44 61 3a ea 41 4a 25  2c 5a 4a 25 2c 53 6f 25  |.Da:.AJ%,ZJ%,So%|
0001cf60  2c 6f 4f 25 2c 67 6b 25  3a e7 a4 5a 28 53 61 76  |,oO%,gk%:..Z(Sav|
0001cf70  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 34 29  |eText_Window%,4)|
0001cf80  61 69 25 3d 30 0d 79 4d  20 e7 a4 5a 28 53 61 76  |ai%=0.yM ..Z(Sav|
0001cf90  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 35 29  |eText_Window%,5)|
0001cfa0  61 69 25 3d 31 0d 79 4e  20 e7 a4 5a 28 53 61 76  |ai%=1.yN ..Z(Sav|
0001cfb0  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 36 29  |eText_Window%,6)|
0001cfc0  61 69 25 3d 32 0d 79 4f  20 e7 a4 5a 28 53 61 76  |ai%=2.yO ..Z(Sav|
0001cfd0  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 37 29  |eText_Window%,7)|
0001cfe0  61 69 25 3d 33 0d 79 50  fb 53 6f 25 3d a4 5a 28  |ai%=3.yP.So%=.Z(|
0001cff0  53 61 76 65 54 65 78 74  5f 57 69 6e 64 6f 77 25  |SaveText_Window%|
0001d000  2c 31 30 29 3a 6f 4f 25  3d a4 5a 28 53 61 76 65  |,10):oO%=.Z(Save|
0001d010  54 65 78 74 5f 57 69 6e  64 6f 77 25 2c 31 31 29  |Text_Window%,11)|
0001d020  3a 67 6b 25 3d a4 5a 28  53 61 76 65 54 65 78 74  |:gk%=.Z(SaveText|
0001d030  5f 57 69 6e 64 6f 77 25  2c 31 32 29 3a f2 6d 6c  |_Window%,12):.ml|
0001d040  3a 46 25 3d ae 28 22 3c  4f 70 74 63 6c 50 72 6f  |:F%=.("<OptclPro|
0001d050  24 44 69 72 3e 2e 55 73  65 72 44 65 66 6c 74 73  |$Dir>.UserDeflts|
0001d060  22 29 3a f1 23 46 25 2c  68 69 25 2c 71 6c 25 2c  |"):.#F%,hi%,ql%,|
0001d070  74 69 25 2c 6c 6e 25 2c  42 61 25 2c 59 69 25 2c  |ti%,ln%,Ba%,Yi%,|
0001d080  74 6e 25 3a f1 23 46 25  2c 77 6e 25 2c 75 69 25  |tn%:.#F%,wn%,ui%|
0001d090  2c 4b 6e 25 2c 4c 69 25  2c 58 6e 25 2c 79 6c 25  |,Kn%,Li%,Xn%,yl%|
0001d0a0  3a f1 23 46 25 2c bb 28  a4 4d 28 42 79 25 2c 32  |:.#F%,.(.M(By%,2|
0001d0b0  32 29 29 2c bb 28 a4 4d  28 42 79 25 2c 32 33 29  |2)),.(.M(By%,23)|
0001d0c0  29 3a f1 23 46 25 2c 64  6c 25 2c 51 75 25 2c 49  |):.#F%,dl%,Qu%,I|
0001d0d0  6c 25 2c 77 61 25 2c 21  6e 2c 52 6e 25 2c 21 79  |l%,wa%,!n,Rn%,!y|
0001d0e0  0d 79 51 9a f1 23 46 25  2c 61 69 25 2c 53 6f 25  |.yQ..#F%,ai%,So%|
0001d0f0  2c 6f 4f 25 2c 67 6b 25  2c 63 6c 25 2c 76 79 25  |,oO%,gk%,cl%,vy%|
0001d100  2c 76 6c 25 3a f1 23 46  25 2c 46 2c 43 2c 41 4a  |,vl%:.#F%,F,C,AJ|
0001d110  25 2c 5a 4a 25 3a f1 23  46 25 2c 56 6e 25 2c 64  |%,ZJ%:.#F%,Vn%,d|
0001d120  6f 25 2c 46 79 25 3a f1  23 46 25 2c 41 6b 25 3a  |o%,Fy%:.#F%,Ak%:|
0001d130  e3 77 6b 25 3d 30 b8 33  35 3a d5 23 46 25 2c 67  |.wk%=0.35:.#F%,g|
0001d140  79 25 3f 77 6b 25 3a ed  3a f1 23 46 25 2c 46 79  |y%?wk%:.:.#F%,Fy|
0001d150  25 2c 68 24 2c 6a 24 3a  e3 4f 25 3d 30 b8 32 35  |%,h$,j$:.O%=0.25|
0001d160  35 3a d5 23 46 25 2c 69  65 25 3f 4f 25 3a ed 3a  |5:.#F%,ie%?O%:.:|
0001d170  d9 23 46 25 3a f2 55 75  3a e1 0d 79 52 f9 dd f2  |.#F%:.Uu:..yR...|
0001d180  41 6e 3a ea 44 61 2c 6f  75 2c 41 4a 25 2c 5a 4a  |An:.Da,ou,AJ%,ZJ|
0001d190  25 2c 53 6f 25 2c 6f 4f  25 2c 67 6b 25 3a 46 25  |%,So%,oO%,gk%:F%|
0001d1a0  3d 8e 28 22 3c 4f 70 74  63 6c 50 72 6f 24 44 69  |=.("<OptclPro$Di|
0001d1b0  72 3e 2e 55 73 65 72 44  65 66 6c 74 73 22 29 3a  |r>.UserDeflts"):|
0001d1c0  e8 23 46 25 2c 68 69 25  2c 71 6c 25 2c 74 69 25  |.#F%,hi%,ql%,ti%|
0001d1d0  2c 6c 6e 25 2c 42 61 25  2c 59 69 25 2c 74 6e 25  |,ln%,Ba%,Yi%,tn%|
0001d1e0  3a e8 23 46 25 2c 77 6e  25 2c 75 69 25 2c 4b 6e  |:.#F%,wn%,ui%,Kn|
0001d1f0  25 2c 4c 69 25 2c 58 6e  25 2c 79 6c 25 3a e8 23  |%,Li%,Xn%,yl%:.#|
0001d200  46 25 2c 44 61 2c 6f 75  3a e8 23 46 25 2c 64 6c  |F%,Da,ou:.#F%,dl|
0001d210  25 2c 51 75 25 2c 49 6c  25 2c 77 61 25 2c 21 6e  |%,Qu%,Il%,wa%,!n|
0001d220  2c 52 6e 25 2c 21 79 3a  e8 23 46 25 2c 61 69 25  |,Rn%,!y:.#F%,ai%|
0001d230  2c 53 6f 25 2c 6f 4f 25  2c 67 6b 25 2c 63 6c 25  |,So%,oO%,gk%,cl%|
0001d240  2c 76 79 25 2c 76 6c 25  3a e8 23 46 25 2c 46 2c  |,vy%,vl%:.#F%,F,|
0001d250  43 2c 41 4a 25 2c 5a 4a  25 3a e8 23 46 25 2c 56  |C,AJ%,ZJ%:.#F%,V|
0001d260  6e 25 2c 64 6f 25 2c 46  79 25 3a e8 23 46 25 2c  |n%,do%,Fy%:.#F%,|
0001d270  41 6b 25 0d 79 53 f4 e3  77 6b 25 3d 30 b8 33 35  |Ak%.yS..wk%=0.35|
0001d280  3a 67 79 25 3f 77 6b 25  3d 9a 23 46 25 3a ed 3a  |:gy%?wk%=.#F%:.:|
0001d290  e8 23 46 25 2c 46 79 25  2c 68 24 2c 6a 24 3a e3  |.#F%,Fy%,h$,j$:.|
0001d2a0  4f 25 3d 30 b8 32 35 35  3a 69 65 25 3f 4f 25 3d  |O%=0.255:ie%?O%=|
0001d2b0  9a 23 46 25 3a ed 3a d9  23 46 25 3a f2 49 69 28  |.#F%:.:.#F%:.Ii(|
0001d2c0  41 4a 25 2c 5a 4a 25 29  3a f2 51 28 68 69 25 2c  |AJ%,ZJ%):.Q(hi%,|
0001d2d0  35 29 3a f2 51 28 71 6c  25 2c 34 35 29 3a f2 41  |5):.Q(ql%,45):.A|
0001d2e0  28 65 4a 25 2c 35 2c c3  28 46 29 29 3a f2 41 28  |(eJ%,5,.(F)):.A(|
0001d2f0  65 4a 25 2c 39 2c c3 28  43 29 29 3a f2 51 28 74  |eJ%,9,.(C)):.Q(t|
0001d300  69 25 2c 39 29 3a f2 51  28 6c 6e 25 2c 31 30 29  |i%,9):.Q(ln%,10)|
0001d310  3a f2 51 28 42 61 25 2c  31 32 29 3a f2 42 28 65  |:.Q(Ba%,12):.B(e|
0001d320  6e 25 2c 59 69 25 29 3a  f2 51 28 74 6e 25 2c 35  |n%,Yi%):.Q(tn%,5|
0001d330  30 29 3a f2 51 28 77 6e  25 2c 36 29 3a f2 51 28  |0):.Q(wn%,6):.Q(|
0001d340  75 69 25 2c 33 32 29 3a  f2 51 28 4b 6e 25 2c 33  |ui%,32):.Q(Kn%,3|
0001d350  35 29 3a f2 51 28 4c 69  25 2c 34 29 3a f2 51 28  |5):.Q(Li%,4):.Q(|
0001d360  58 6e 25 2c 34 39 29 0d  79 54 e2 f2 51 28 79 6c  |Xn%,49).yT..Q(yl|
0001d370  25 2c 35 38 29 3a f2 41  28 42 79 25 2c 32 32 2c  |%,58):.A(By%,22,|
0001d380  c3 28 44 61 29 29 3a f2  41 28 42 79 25 2c 32 33  |.(Da)):.A(By%,23|
0001d390  2c c3 28 6f 75 29 29 3a  f2 4f 5f 3a f2 72 5f 3a  |,.(ou)):.O_:.r_:|
0001d3a0  f2 51 28 51 75 25 2c 31  31 29 3a f2 51 28 49 6c  |.Q(Qu%,11):.Q(Il|
0001d3b0  25 2c 36 30 29 3a f2 50  28 42 79 25 2c 36 30 2c  |%,60):.P(By%,60,|
0001d3c0  ac 28 51 75 25 29 29 3a  f2 50 28 42 79 25 2c 36  |.(Qu%)):.P(By%,6|
0001d3d0  31 2c ac 28 51 75 25 29  29 3a f2 51 28 77 61 25  |1,.(Qu%)):.Q(wa%|
0001d3e0  2c 35 31 29 3a f2 51 28  21 6e 2c 35 39 29 3a f2  |,51):.Q(!n,59):.|
0001d3f0  51 28 52 6e 25 2c 36 33  29 3a f2 51 28 21 79 2c  |Q(Rn%,63):.Q(!y,|
0001d400  36 34 29 3a f2 53 28 53  61 76 65 54 65 78 74 5f  |64):.S(SaveText_|
0001d410  57 69 6e 64 6f 77 25 2c  34 2b 61 69 25 2c b9 29  |Window%,4+ai%,.)|
0001d420  3a e7 61 69 25 3d 33 f2  6f 28 53 61 76 65 54 65  |:.ai%=3.o(SaveTe|
0001d430  78 74 5f 57 69 6e 64 6f  77 25 2c 33 2c 22 53 66  |xt_Window%,3,"Sf|
0001d440  69 6c 65 5f 64 66 65 22  29 0d 79 55 2c e7 61 69  |ile_dfe").yU,.ai|
0001d450  25 3d 31 f2 6f 28 53 61  76 65 54 65 78 74 5f 57  |%=1.o(SaveText_W|
0001d460  69 6e 64 6f 77 25 2c 33  2c 22 53 66 69 6c 65 5f  |indow%,3,"Sfile_|
0001d470  66 65 34 22 29 0d 79 56  11 e7 61 69 25 3d 30 84  |fe4").yV..ai%=0.|
0001d480  61 69 25 3d 33 8c 0d 79  57 4b f2 5a 28 53 61 76  |ai%=3..yWK.Z(Sav|
0001d490  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 31 30  |eText_Window%,10|
0001d4a0  29 3a f2 5a 28 53 61 76  65 54 65 78 74 5f 57 69  |):.Z(SaveText_Wi|
0001d4b0  6e 64 6f 77 25 2c 31 31  29 3a f2 5a 28 53 61 76  |ndow%,11):.Z(Sav|
0001d4c0  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 31 32  |eText_Window%,12|
0001d4d0  29 0d 79 58 4d cc 3a f2  46 28 53 61 76 65 54 65  |).yXM.:.F(SaveTe|
0001d4e0  78 74 5f 57 69 6e 64 6f  77 25 2c 31 30 29 3a f2  |xt_Window%,10):.|
0001d4f0  46 28 53 61 76 65 54 65  78 74 5f 57 69 6e 64 6f  |F(SaveText_Windo|
0001d500  77 25 2c 31 31 29 3a f2  46 28 53 61 76 65 54 65  |w%,11):.F(SaveTe|
0001d510  78 74 5f 57 69 6e 64 6f  77 25 2c 31 32 29 0d 79  |xt_Window%,12).y|
0001d520  59 7f cd 3a f2 53 28 53  61 76 65 54 65 78 74 5f  |Y..:.S(SaveText_|
0001d530  57 69 6e 64 6f 77 25 2c  31 30 2c 53 6f 25 29 3a  |Window%,10,So%):|
0001d540  f2 53 28 53 61 76 65 54  65 78 74 5f 57 69 6e 64  |.S(SaveText_Wind|
0001d550  6f 77 25 2c 31 31 2c 6f  4f 25 29 3a f2 53 28 53  |ow%,11,oO%):.S(S|
0001d560  61 76 65 54 65 78 74 5f  57 69 6e 64 6f 77 25 2c  |aveText_Window%,|
0001d570  31 32 2c 67 6b 25 29 3a  e7 63 6c 25 f2 4b 28 46  |12,gk%):.cl%.K(F|
0001d580  69 6c 65 5f 4d 65 6e 75  25 2c 33 29 8b f2 56 28  |ile_Menu%,3)..V(|
0001d590  46 69 6c 65 5f 4d 65 6e  75 25 2c 33 29 0d 79 5a  |File_Menu%,3).yZ|
0001d5a0  2f e7 76 6c 25 f2 4b 28  44 69 73 70 6c 61 79 5f  |/.vl%.K(Display_|
0001d5b0  4d 65 6e 75 25 2c 32 29  8b f2 56 28 44 69 73 70  |Menu%,2)..V(Disp|
0001d5c0  6c 61 79 5f 4d 65 6e 75  25 2c 32 29 0d 79 5b 2f  |lay_Menu%,2).y[/|
0001d5d0  e7 76 79 25 f2 56 28 44  69 73 70 6c 61 79 5f 4d  |.vy%.V(Display_M|
0001d5e0  65 6e 75 25 2c 31 29 8b  f2 4b 28 44 69 73 70 6c  |enu%,1)..K(Displ|
0001d5f0  61 79 5f 4d 65 6e 75 25  2c 31 29 0d 79 5c 2d f2  |ay_Menu%,1).y\-.|
0001d600  53 28 77 25 2c 37 2c 56  6e 25 29 3a f2 53 28 77  |S(w%,7,Vn%):.S(w|
0001d610  25 2c 31 30 2c 64 6f 25  29 3a f2 5a 79 28 67 79  |%,10,do%):.Zy(gy|
0001d620  25 29 3a f2 70 75 3a e1  0d 79 5d f4 dd f2 49 5f  |%):.pu:..y]...I_|
0001d630  3a 4d 25 28 30 29 3d 68  69 25 3a 4d 25 28 31 29  |:M%(0)=hi%:M%(1)|
0001d640  3d 71 6c 25 3a 4d 25 28  32 29 3d 74 69 25 3a 4d  |=ql%:M%(2)=ti%:M|
0001d650  25 28 33 29 3d 6c 6e 25  3a 4d 25 28 34 29 3d 42  |%(3)=ln%:M%(4)=B|
0001d660  61 25 3a 4d 25 28 35 29  3d 59 69 25 3a 4d 25 28  |a%:M%(5)=Yi%:M%(|
0001d670  36 29 3d 74 6e 25 3a 4d  25 28 37 29 3d 77 6e 25  |6)=tn%:M%(7)=wn%|
0001d680  3a 4d 25 28 38 29 3d 75  69 25 3a 4d 25 28 39 29  |:M%(8)=ui%:M%(9)|
0001d690  3d 4b 6e 25 3a 4d 25 28  31 30 29 3d 4c 69 25 3a  |=Kn%:M%(10)=Li%:|
0001d6a0  4d 25 28 31 31 29 3d 58  6e 25 3a 4d 25 28 31 32  |M%(11)=Xn%:M%(12|
0001d6b0  29 3d bb 28 a4 4d 28 42  79 25 2c 32 32 29 29 3a  |)=.(.M(By%,22)):|
0001d6c0  4d 25 28 31 33 29 3d bb  28 a4 4d 28 42 79 25 2c  |M%(13)=.(.M(By%,|
0001d6d0  32 33 29 29 3a 4d 25 28  31 34 29 3d 64 6c 25 3a  |23)):M%(14)=dl%:|
0001d6e0  4d 25 28 31 35 29 3d 51  75 25 3a 4d 25 28 31 36  |M%(15)=Qu%:M%(16|
0001d6f0  29 3d 77 61 25 3a 4d 25  28 31 37 29 3d 21 6e 3a  |)=wa%:M%(17)=!n:|
0001d700  4d 25 28 31 38 29 3d 46  3a 4d 25 28 31 39 29 3d  |M%(18)=F:M%(19)=|
0001d710  43 3a 4d 25 28 32 30 29  3d 66 6e 25 0d 79 5e 69  |C:M%(20)=fn%.y^i|
0001d720  4d 25 28 32 31 29 3d 49  6c 25 3a 4d 25 28 32 32  |M%(21)=Il%:M%(22|
0001d730  29 3d 52 6e 25 3a 4d 25  28 32 33 29 3d 79 6c 25  |)=Rn%:M%(23)=yl%|
0001d740  3a 4d 25 28 32 34 29 3d  21 79 3a 44 25 28 29 3d  |:M%(24)=!y:D%()=|
0001d750  47 25 28 29 3a 56 25 28  29 3d 50 25 28 29 3a 43  |G%():V%()=P%():C|
0001d760  24 28 29 3d 5a 24 28 29  3a 50 24 28 29 3d 5a 24  |$()=Z$():P$()=Z$|
0001d770  28 29 3a 53 41 25 3d 67  5f 25 3a f2 47 79 28 59  |():SA%=g_%:.Gy(Y|
0001d780  5a 25 29 3a e1 0d 79 5f  f8 dd f2 62 69 3a 68 69  |Z%):..y_...bi:hi|
0001d790  25 3d 4d 25 28 30 29 3a  71 6c 25 3d 4d 25 28 31  |%=M%(0):ql%=M%(1|
0001d7a0  29 3a 74 69 25 3d 4d 25  28 32 29 3a 6c 6e 25 3d  |):ti%=M%(2):ln%=|
0001d7b0  4d 25 28 33 29 3a 42 61  25 3d 4d 25 28 34 29 3a  |M%(3):Ba%=M%(4):|
0001d7c0  f2 42 28 65 6e 25 2c 59  69 25 29 3a 59 69 25 3d  |.B(en%,Yi%):Yi%=|
0001d7d0  4d 25 28 35 29 3a f2 42  28 65 6e 25 2c 59 69 25  |M%(5):.B(en%,Yi%|
0001d7e0  29 3a 74 6e 25 3d 4d 25  28 36 29 3a 77 6e 25 3d  |):tn%=M%(6):wn%=|
0001d7f0  4d 25 28 37 29 3a 75 69  25 3d 4d 25 28 38 29 3a  |M%(7):ui%=M%(8):|
0001d800  4b 6e 25 3d 4d 25 28 39  29 3a 4c 69 25 3d 4d 25  |Kn%=M%(9):Li%=M%|
0001d810  28 31 30 29 3a 58 6e 25  3d 4d 25 28 31 31 29 3a  |(10):Xn%=M%(11):|
0001d820  f2 41 28 42 79 25 2c 32  32 2c c3 28 4d 25 28 31  |.A(By%,22,.(M%(1|
0001d830  32 29 29 29 3a f2 41 28  42 79 25 2c 32 33 2c c3  |2))):.A(By%,23,.|
0001d840  28 4d 25 28 31 33 29 29  29 3a 64 6c 25 3d 4d 25  |(M%(13))):dl%=M%|
0001d850  28 31 34 29 3a 51 75 25  3d 4d 25 28 31 35 29 3a  |(14):Qu%=M%(15):|
0001d860  77 61 25 3d 4d 25 28 31  36 29 3a 21 6e 3d 4d 25  |wa%=M%(16):!n=M%|
0001d870  28 31 37 29 3a 46 3d 4d  25 28 31 38 29 0d 79 60  |(17):F=M%(18).y`|
0001d880  fc 43 3d 4d 25 28 31 39  29 3a 66 6e 25 3d 4d 25  |.C=M%(19):fn%=M%|
0001d890  28 32 30 29 3a 49 6c 25  3d 4d 25 28 32 31 29 3a  |(20):Il%=M%(21):|
0001d8a0  52 6e 25 3d 4d 25 28 32  32 29 3a 79 6c 25 3d 4d  |Rn%=M%(22):yl%=M|
0001d8b0  25 28 32 33 29 3a 21 79  3d 4d 25 28 32 34 29 3a  |%(23):!y=M%(24):|
0001d8c0  f2 51 28 68 69 25 2c 35  29 3a f2 51 28 71 6c 25  |.Q(hi%,5):.Q(ql%|
0001d8d0  2c 34 35 29 3a f2 51 28  74 69 25 2c 39 29 3a f2  |,45):.Q(ti%,9):.|
0001d8e0  51 28 6c 6e 25 2c 31 30  29 3a f2 51 28 42 61 25  |Q(ln%,10):.Q(Ba%|
0001d8f0  2c 31 32 29 3a f2 51 28  74 6e 25 2c 35 30 29 3a  |,12):.Q(tn%,50):|
0001d900  f2 51 28 77 6e 25 2c 36  29 3a f2 51 28 75 69 25  |.Q(wn%,6):.Q(ui%|
0001d910  2c 33 32 29 3a f2 51 28  4b 6e 25 2c 33 35 29 3a  |,32):.Q(Kn%,35):|
0001d920  f2 51 28 4c 69 25 2c 34  29 3a f2 51 28 58 6e 25  |.Q(Li%,4):.Q(Xn%|
0001d930  2c 34 39 29 3a f2 51 28  79 6c 25 2c 35 38 29 3a  |,49):.Q(yl%,58):|
0001d940  f2 51 28 51 75 25 2c 31  31 29 3a f2 51 28 49 6c  |.Q(Qu%,11):.Q(Il|
0001d950  25 2c 36 30 29 3a f2 50  28 42 79 25 2c 36 30 2c  |%,60):.P(By%,60,|
0001d960  ac 28 51 75 25 29 29 3a  f2 50 28 42 79 25 2c 36  |.(Qu%)):.P(By%,6|
0001d970  31 2c ac 28 51 75 25 29  29 0d 79 61 9c f2 51 28  |1,.(Qu%)).ya..Q(|
0001d980  77 61 25 2c 35 31 29 3a  f2 51 28 21 6e 2c 35 39  |wa%,51):.Q(!n,59|
0001d990  29 3a f2 51 28 52 6e 25  2c 36 33 29 3a f2 51 28  |):.Q(Rn%,63):.Q(|
0001d9a0  21 79 2c 36 34 29 3a f2  41 28 65 4a 25 2c 35 2c  |!y,64):.A(eJ%,5,|
0001d9b0  c3 28 46 29 29 3a f2 41  28 65 4a 25 2c 39 2c c3  |.(F)):.A(eJ%,9,.|
0001d9c0  28 43 29 29 3a f2 53 28  49 4a 25 2c 36 2c 66 6e  |(C)):.S(IJ%,6,fn|
0001d9d0  25 29 3a 47 25 28 29 3d  44 25 28 29 3a 50 25 28  |%):G%()=D%():P%(|
0001d9e0  29 3d 56 25 28 29 3a 5a  24 28 29 3d 43 24 28 29  |)=V%():Z$()=C$()|
0001d9f0  3a 4d 24 28 29 3d 43 24  28 29 3a 67 5f 25 3d 53  |:M$()=C$():g_%=S|
0001da00  41 25 3a f2 5a 79 28 59  5a 25 29 3a f2 4f 5f 3a  |A%:.Zy(YZ%):.O_:|
0001da10  f2 72 5f 3a e1 0d 79 62  20 dd f2 51 28 44 4a 25  |.r_:..yb ..Q(DJ%|
0001da20  2c 49 25 29 3a f2 53 28  42 79 25 2c 49 25 2c 44  |,I%):.S(By%,I%,D|
0001da30  4a 25 29 3a e1 0d 79 63  f6 dd f2 48 3a f2 79 3a  |J%):..yc...H:.y:|
0001da40  5f 25 3d 2d 31 3a 61 5f  25 3d a3 3a 69 5f 25 3d  |_%=-1:a_%=.:i_%=|
0001da50  a3 3a 50 25 3d 2d 31 3a  4b 25 3d a4 41 28 31 2c  |.:P%=-1:K%=.A(1,|
0001da60  60 25 29 3a 4b 25 3d a4  41 28 31 2c 57 4a 25 29  |`%):K%=.A(1,WJ%)|
0001da70  3a 4b 25 3d a4 41 28 31  2c 4d 5f 25 29 3a 4b 25  |:K%=.A(1,M_%):K%|
0001da80  3d a4 41 28 31 2c 4e 75  25 29 3a 4b 25 3d a4 41  |=.A(1,Nu%):K%=.A|
0001da90  28 31 2c 71 4a 25 29 3a  4b 25 3d a4 41 28 31 2c  |(1,qJ%):K%=.A(1,|
0001daa0  4a 5f 25 29 3a 4b 25 3d  a4 41 28 31 2c 60 79 25  |J_%):K%=.A(1,`y%|
0001dab0  29 3a 4b 25 3d a4 41 28  31 2c 4e 79 25 29 3a 4b  |):K%=.A(1,Ny%):K|
0001dac0  25 3d a4 41 28 31 2c 6a  75 25 29 3a 51 79 25 3d  |%=.A(1,ju%):Qy%=|
0001dad0  6d 25 3a f2 4d 28 77 5f  25 29 3a f2 4d 28 51 5f  |m%:.M(w_%):.M(Q_|
0001dae0  25 29 3a f2 4d 28 6b 25  29 3a f2 4d 28 60 5f 25  |%):.M(k%):.M(`_%|
0001daf0  29 3a f2 4d 28 48 5f 25  29 3a f2 4d 28 69 79 25  |):.M(H_%):.M(iy%|
0001db00  29 3a f2 4a 28 65 25 29  3a c8 99 26 34 30 30 64  |):.J(e%):..&400d|
0001db10  33 2c 2c 5a 25 3a e7 5a  25 21 30 3d 65 25 8c f2  |3,,Z%:.Z%!0=e%..|
0001db20  47 28 65 25 2c 2d 31 2c  2d 31 29 0d 79 64 05 e1  |G(e%,-1,-1).yd..|
0001db30  0d 79 65 44 dd f2 4c 61  28 62 25 2c 49 25 29 3a  |.yeD..La(b%,I%):|
0001db40  ea 54 75 25 3a f2 47 28  6b 25 2c 2d 31 2c 2d 31  |.Tu%:.G(k%,-1,-1|
0001db50  29 3a e7 28 49 25 3d 31  84 49 25 3d 32 84 49 25  |):.(I%=1.I%=2.I%|
0001db60  3d 33 29 80 62 25 3d 31  f2 53 28 60 5f 25 2c 49  |=3).b%=1.S(`_%,I|
0001db70  25 2c b9 29 0d 79 66 09  c8 8e 49 25 ca 0d 79 67  |%,.).yf...I%..yg|
0001db80  19 c9 30 3a f2 4d 28 6b  25 29 3a f2 4d 28 60 5f  |..0:.M(k%):.M(`_|
0001db90  25 29 3a f2 57 79 0d 79  68 2f c9 31 3a e7 44 5f  |%):.Wy.yh/.1:.D_|
0001dba0  25 3c 3e 31 f2 42 28 66  5f 25 2c 44 5f 25 2b 33  |%<>1.B(f_%,D_%+3|
0001dbb0  29 3a 44 5f 25 3d 31 3a  f2 42 28 66 5f 25 2c 44  |):D_%=1:.B(f_%,D|
0001dbc0  5f 25 2b 33 29 0d 79 69  2f c9 32 3a e7 44 5f 25  |_%+3).yi/.2:.D_%|
0001dbd0  3c 3e 32 f2 42 28 66 5f  25 2c 44 5f 25 2b 33 29  |<>2.B(f_%,D_%+3)|
0001dbe0  3a 44 5f 25 3d 32 3a f2  42 28 66 5f 25 2c 44 5f  |:D_%=2:.B(f_%,D_|
0001dbf0  25 2b 33 29 0d 79 6a 2f  c9 33 3a e7 44 5f 25 3c  |%+3).yj/.3:.D_%<|
0001dc00  3e 33 f2 42 28 66 5f 25  2c 44 5f 25 2b 33 29 3a  |>3.B(f_%,D_%+3):|
0001dc10  44 5f 25 3d 33 3a f2 42  28 66 5f 25 2c 44 5f 25  |D_%=3:.B(f_%,D_%|
0001dc20  2b 33 29 0d 79 6b 0a c9  34 3a f2 54 5f 0d 79 6c  |+3).yk..4:.T_.yl|
0001dc30  0d c9 35 3a f2 42 5f 28  a3 29 0d 79 6d 1d c9 36  |..5:.B_(.).ym..6|
0001dc40  3a f2 54 28 5a 6f 6f 6d  5f 57 69 6e 64 6f 77 25  |:.T(Zoom_Window%|
0001dc50  2c 79 25 2c 68 25 29 0d  79 6e 1c c9 37 3a 54 75  |,y%,h%).yn..7:Tu|
0001dc60  25 3d 69 5f 25 3a f2 48  3a 69 5f 25 3d 54 75 25  |%=i_%:.H:i_%=Tu%|
0001dc70  3a f2 6c 0d 79 6f 07 cb  3a e1 0d 79 70 1c dd f2  |:.l.yo..:..yp...|
0001dc80  79 4a 3a e7 75 69 25 3d  a3 41 79 25 3d 2d 31 3a  |yJ:.ui%=.Ay%=-1:|
0001dc90  57 5f 25 3d 2d 31 0d 79  71 09 f2 6d 79 3a e1 0d  |W_%=-1.yq..my:..|
0001dca0  79 72 0e dd f2 6d 79 3a  e7 71 6c 25 8c 0d 79 73  |yr...my:.ql%..ys|
0001dcb0  38 e7 44 5f 25 3c 3e 32  f2 42 28 66 5f 25 2c 44  |8.D_%<>2.B(f_%,D|
0001dcc0  5f 25 2b 33 29 3a 44 5f  25 3d 32 3a f2 42 28 66  |_%+3):D_%=2:.B(f|
0001dcd0  5f 25 2c 44 5f 25 2b 33  29 3a f2 53 28 60 5f 25  |_%,D_%+3):.S(`_%|
0001dce0  2c 32 2c 31 29 0d 79 74  3a cc 3a e7 44 5f 25 3c  |,2,1).yt:.:.D_%<|
0001dcf0  3e 31 f2 42 28 66 5f 25  2c 44 5f 25 2b 33 29 3a  |>1.B(f_%,D_%+3):|
0001dd00  44 5f 25 3d 31 3a f2 42  28 66 5f 25 2c 44 5f 25  |D_%=1:.B(f_%,D_%|
0001dd10  2b 33 29 3a f2 53 28 60  5f 25 2c 31 2c 31 29 0d  |+3):.S(`_%,1,1).|
0001dd20  79 75 39 cd 3a f2 63 61  3a f2 4d 28 77 5f 25 29  |yu9.:.ca:.M(w_%)|
0001dd30  3a f2 4d 28 51 5f 25 29  3a f2 4d 28 69 79 25 29  |:.M(Q_%):.M(iy%)|
0001dd40  3a e7 46 69 25 f2 46 28  60 5f 25 2c 37 29 8b f2  |:.Fi%.F(`_%,7)..|
0001dd50  5a 28 60 5f 25 2c 37 29  0d 79 76 29 f2 4c 28 6b  |Z(`_%,7).yv).L(k|
0001dd60  25 2c a4 4a 28 6e 25 2a  52 25 29 2c a4 4a 28 74  |%,.J(n%*R%),.J(t|
0001dd70  25 2a 56 25 29 29 3a e7  55 75 25 f2 77 28 6b 25  |%*V%)):.Uu%.w(k%|
0001dd80  29 0d 79 77 35 f2 4e 28  6b 25 2c 22 50 72 6f 63  |).yw5.N(k%,"Proc|
0001dd90  65 73 73 20 27 22 2b 58  24 2b 22 27 20 28 22 2b  |ess '"+X$+"' ("+|
0001dda0  4d 24 2b 22 29 22 29 3a  f2 47 28 6b 25 2c 2d 31  |M$+")"):.G(k%,-1|
0001ddb0  2c 2d 31 29 3a e1 0d 79  78 32 dd f2 41 4a 3a ea  |,-1):..yx2..AJ:.|
0001ddc0  73 79 25 2c 65 79 25 2c  52 25 2c 56 25 2c 55 5f  |sy%,ey%,R%,V%,U_|
0001ddd0  25 2c 49 5f 25 3a e7 a4  53 28 69 4a 25 29 8c 5a  |%,I_%:..S(iJ%).Z|
0001dde0  25 21 32 38 3d 69 4a 25  0d 79 79 23 6b 6e 25 3d  |%!28=iJ%.yy#kn%=|
0001ddf0  a4 53 28 59 25 29 3a e7  59 25 3d 56 5f 25 84 59  |.S(Y%):.Y%=V_%.Y|
0001de00  25 3d 6a 4a 25 8c 6b 6e  25 3d a3 0d 79 7a 77 c8  |%=jJ%.kn%=..yzw.|
0001de10  99 35 33 2c 2d 31 2c 31  31 b8 2c 2c 73 79 25 3a  |.53,-1,11.,,sy%:|
0001de20  c8 99 35 33 2c 2d 31 2c  31 32 b8 2c 2c 65 79 25  |..53,-1,12.,,ey%|
0001de30  3a c8 99 35 33 2c 2d 31  2c 34 b8 2c 2c 52 25 3a  |:..53,-1,4.,,R%:|
0001de40  c8 99 35 33 2c 2d 31 2c  35 b8 2c 2c 56 25 3a 52  |..53,-1,5.,,V%:R|
0001de50  25 3d 31 3c 3c 52 25 3a  56 25 3d 31 3c 3c 56 25  |%=1<<R%:V%=1<<V%|
0001de60  3a 73 79 25 3d 73 79 25  2a 52 25 3a 65 79 25 3d  |:sy%=sy%*R%:ey%=|
0001de70  65 79 25 2a 56 25 3a e7  6b 6e 25 3d a3 84 69 60  |ey%*V%:.kn%=..i`|
0001de80  25 8c 0d 79 7b 09 c8 8e  59 25 ca 0d 79 7c 58 c9  |%..y{...Y%..y|X.|
0001de90  a3 3a f2 47 5f 28 5a 25  2b 34 29 3a 49 5f 25 3d  |.:.G_(Z%+4):I_%=|
0001dea0  5a 25 21 31 36 2d 5a 25  21 38 2b 34 34 3a f2 5f  |Z%!16-Z%!8+44:._|
0001deb0  79 28 5a 25 2b 34 29 3a  5a 25 21 38 2b 3d 38 30  |y(Z%+4):Z%!8+=80|
0001dec0  3a 5a 25 21 31 36 2b 3d  38 30 3a 5a 25 21 38 2d  |:Z%!16+=80:Z%!8-|
0001ded0  3d 49 5f 25 2f 32 3a 5a  25 21 31 36 2d 3d 49 5f  |=I_%/2:Z%!16-=I_|
0001dee0  25 2f 32 0d 79 7d 5a c9  73 4a 25 3a f2 47 5f 28  |%/2.y}Z.sJ%:.G_(|
0001def0  5a 25 2b 34 29 3a 49 5f  25 3d 5a 25 21 31 36 2d  |Z%+4):I_%=Z%!16-|
0001df00  5a 25 21 38 2b 34 34 3a  f2 5f 79 28 5a 25 2b 34  |Z%!8+44:._y(Z%+4|
0001df10  29 3a 5a 25 21 38 2b 3d  38 30 3a 5a 25 21 31 36  |):Z%!8+=80:Z%!16|
0001df20  2b 3d 38 30 3a 5a 25 21  38 2b 3d 49 5f 25 2f 32  |+=80:Z%!8+=I_%/2|
0001df30  3a 5a 25 21 31 36 2b 3d  49 5f 25 2f 32 0d 79 7e  |:Z%!16+=I_%/2.y~|
0001df40  62 c9 69 79 25 2c 77 25  2c 6b 25 2c 4e 5f 25 2c  |b.iy%,w%,k%,N_%,|
0001df50  48 5f 25 2c 66 79 25 2c  42 79 25 2c 67 25 2c 57  |H_%,fy%,By%,g%,W|
0001df60  25 2c 6b 6c 25 2c 49 4a  25 2c 69 4a 25 2c 65 25  |%,kl%,IJ%,iJ%,e%|
0001df70  2c 75 5f 25 2c 48 4a 25  3a f2 47 5f 28 5a 25 2b  |,u_%,HJ%:.G_(Z%+|
0001df80  34 29 3a f2 5f 79 28 5a  25 2b 34 29 3a 5a 25 21  |4):._y(Z%+4):Z%!|
0001df90  38 2b 3d 38 30 3a 5a 25  21 31 36 2b 3d 38 30 0d  |8+=80:Z%!16+=80.|
0001dfa0  79 7f 7c c9 51 5f 25 3a  f2 5f 79 28 5a 25 2b 34  |y.|.Q_%:._y(Z%+4|
0001dfb0  29 3a 5a 25 21 38 2b 3d  38 30 3a 5a 25 21 31 36  |):Z%!8+=80:Z%!16|
0001dfc0  2b 3d 38 30 3a 55 5f 25  3d 5a 25 21 31 32 2d 5a  |+=80:U_%=Z%!12-Z|
0001dfd0  25 21 34 2b 34 36 3a e7  55 5f 25 3e 73 79 25 2f  |%!4+46:.U_%>sy%/|
0001dfe0  32 5a 25 21 34 3d 30 3a  5a 25 21 31 32 3d 73 79  |2Z%!4=0:Z%!12=sy|
0001dff0  25 2f 32 2d 34 36 8b 5a  25 21 34 3d 28 73 79 25  |%/2-46.Z%!4=(sy%|
0001e000  2f 32 2d 55 5f 25 29 2f  32 3a 5a 25 21 31 32 3d  |/2-U_%)/2:Z%!12=|
0001e010  5a 25 21 34 2b 55 5f 25  2d 34 36 0d 79 80 84 c9  |Z%!4+U_%-46.y...|
0001e020  77 5f 25 3a f2 5f 79 28  5a 25 2b 34 29 3a 5a 25  |w_%:._y(Z%+4):Z%|
0001e030  21 38 2b 3d 38 30 3a 5a  25 21 31 36 2b 3d 38 30  |!8+=80:Z%!16+=80|
0001e040  3a 55 5f 25 3d 5a 25 21  31 32 2d 5a 25 21 34 2b  |:U_%=Z%!12-Z%!4+|
0001e050  34 36 3a e7 55 5f 25 3e  73 79 25 2f 32 5a 25 21  |46:.U_%>sy%/2Z%!|
0001e060  34 3d 73 79 25 2f 32 3a  5a 25 21 31 32 3d 73 79  |4=sy%/2:Z%!12=sy|
0001e070  25 2d 34 36 8b 5a 25 21  34 3d 73 79 25 2f 32 2b  |%-46.Z%!4=sy%/2+|
0001e080  28 73 79 25 2f 32 2d 55  5f 25 29 2f 32 3a 5a 25  |(sy%/2-U_%)/2:Z%|
0001e090  21 31 32 3d 5a 25 21 34  2b 55 5f 25 2d 34 36 0d  |!12=Z%!4+U_%-46.|
0001e0a0  79 81 6b c9 60 5f 25 3a  55 5f 25 3d 5a 25 21 31  |y.k.`_%:U_%=Z%!1|
0001e0b0  32 2d 5a 25 21 34 3a 49  5f 25 3d 5a 25 21 31 36  |2-Z%!4:I_%=Z%!16|
0001e0c0  2d 5a 25 21 38 3a 21 4d  25 3d 6b 25 3a c8 99 26  |-Z%!8:!M%=k%:..&|
0001e0d0  34 30 30 63 62 2c 2c 4d  25 3a 5a 25 21 34 3d 4d  |400cb,,M%:Z%!4=M|
0001e0e0  25 21 34 3a 5a 25 21 38  3d 4d 25 21 31 36 2d 49  |%!4:Z%!8=M%!16-I|
0001e0f0  5f 25 3a 5a 25 21 31 32  3d 4d 25 21 31 32 3a 5a  |_%:Z%!12=M%!12:Z|
0001e100  25 21 31 36 3d 4d 25 21  31 36 0d 79 82 5c c9 5a  |%!16=M%!16.y.\.Z|
0001e110  6f 6f 6d 5f 57 69 6e 64  6f 77 25 3a c8 99 26 34  |oom_Window%:..&4|
0001e120  30 30 63 66 2c 2c 4d 25  3a 55 5f 25 3d 5a 25 21  |00cf,,M%:U_%=Z%!|
0001e130  31 32 2d 5a 25 21 34 3a  e7 4d 25 21 30 3e 73 79  |12-Z%!4:.M%!0>sy|
0001e140  25 2d 55 5f 25 2d 36 34  8c 5a 25 21 34 3d 4d 25  |%-U_%-64.Z%!4=M%|
0001e150  21 30 2d 36 34 2d 55 5f  25 8b 5a 25 21 34 3d 4d  |!0-64-U_%.Z%!4=M|
0001e160  25 21 30 2b 36 34 0d 79  83 42 5a 25 21 31 32 3d  |%!0+64.y.BZ%!12=|
0001e170  5a 25 21 34 2b 55 5f 25  3a 49 5f 25 3d 5a 25 21  |Z%!4+U_%:I_%=Z%!|
0001e180  31 36 2d 5a 25 21 38 3a  5a 25 21 38 3d 4d 25 21  |16-Z%!8:Z%!8=M%!|
0001e190  34 2d 49 5f 25 2f 32 3a  5a 25 21 31 36 3d 4d 25  |4-I_%/2:Z%!16=M%|
0001e1a0  21 34 2b 49 5f 25 2f 32  0d 79 84 6d c9 56 5f 25  |!4+I_%/2.y.m.V_%|
0001e1b0  3a 4d 25 21 30 3d 77 25  3a c8 99 26 34 30 30 63  |:M%!0=w%:..&400c|
0001e1c0  62 2c 2c 4d 25 3a 5a 25  21 31 32 3d 4d 25 21 34  |b,,M%:Z%!12=M%!4|
0001e1d0  2b 65 42 25 2b 5a 25 21  31 32 2d 5a 25 21 34 3a  |+eB%+Z%!12-Z%!4:|
0001e1e0  5a 25 21 34 3d 4d 25 21  34 2b 65 42 25 3a 5a 25  |Z%!4=M%!4+eB%:Z%|
0001e1f0  21 31 36 3d 4d 25 21 38  2b 6c 42 25 2b 5a 25 21  |!16=M%!8+lB%+Z%!|
0001e200  31 36 2d 5a 25 21 38 3a  5a 25 21 38 3d 4d 25 21  |16-Z%!8:Z%!8=M%!|
0001e210  38 2b 6c 42 25 0d 79 85  6e c9 6a 4a 25 3a 4d 25  |8+lB%.y.n.jJ%:M%|
0001e220  21 30 3d 49 4a 25 3a c8  99 26 34 30 30 63 62 2c  |!0=IJ%:..&400cb,|
0001e230  2c 4d 25 3a 5a 25 21 31  32 3d 4d 25 21 34 2b 4d  |,M%:Z%!12=M%!4+M|
0001e240  4f 25 2b 5a 25 21 31 32  2d 5a 25 21 34 3a 5a 25  |O%+Z%!12-Z%!4:Z%|
0001e250  21 34 3d 4d 25 21 34 2b  4d 4f 25 3a 5a 25 21 31  |!4=M%!4+MO%:Z%!1|
0001e260  36 3d 4d 25 21 38 2b 69  42 25 2b 5a 25 21 31 36  |6=M%!8+iB%+Z%!16|
0001e270  2d 5a 25 21 38 3a 5a 25  21 38 3d 4d 25 21 38 2b  |-Z%!8:Z%!8=M%!8+|
0001e280  69 42 25 0d 79 86 05 cb  0d 79 87 11 cd 3a e7 59  |iB%.y....y...:.Y|
0001e290  25 3d 48 5f 25 8c f2 44  5f 0d 79 88 05 e1 0d 79  |%=H_%..D_.y....y|
0001e2a0  89 16 dd f2 6c 69 3a ea  54 75 25 3a c8 8e a4 50  |....li:.Tu%:...P|
0001e2b0  28 30 29 ca 0d 79 8a 19  c9 31 3a f2 4d 28 6b 25  |(0)..y...1:.M(k%|
0001e2c0  29 3a f2 4d 28 60 5f 25  29 3a f2 57 79 0d 79 8b  |):.M(`_%):.Wy.y.|
0001e2d0  0d c9 32 3a f2 42 5f 28  a3 29 0d 79 8c 27 c9 33  |..2:.B_(.).y.'.3|
0001e2e0  3a f2 71 3a f2 50 79 28  5a 6f 6f 6d 5f 57 69 6e  |:.q:.Py(Zoom_Win|
0001e2f0  64 6f 77 25 2c 73 25 2d  36 34 2c 76 25 2b 36 34  |dow%,s%-64,v%+64|
0001e300  29 0d 79 8d 0f c9 34 3a  e7 44 5f 25 3c 3e 31 8c  |).y...4:.D_%<>1.|
0001e310  0d 79 8e 31 f2 42 28 66  5f 25 2c 44 5f 25 2b 33  |.y.1.B(f_%,D_%+3|
0001e320  29 3a 44 5f 25 3d 31 3a  f2 42 28 66 5f 25 2c 44  |):D_%=1:.B(f_%,D|
0001e330  5f 25 2b 33 29 3a f2 53  28 60 5f 25 2c 31 2c 31  |_%+3):.S(`_%,1,1|
0001e340  29 0d 79 8f 05 cd 0d 79  90 0f c9 35 3a e7 44 5f  |).y....y...5:.D_|
0001e350  25 3c 3e 32 8c 0d 79 91  31 f2 42 28 66 5f 25 2c  |%<>2..y.1.B(f_%,|
0001e360  44 5f 25 2b 33 29 3a 44  5f 25 3d 32 3a f2 42 28  |D_%+3):D_%=2:.B(|
0001e370  66 5f 25 2c 44 5f 25 2b  33 29 3a f2 53 28 60 5f  |f_%,D_%+3):.S(`_|
0001e380  25 2c 32 2c 31 29 0d 79  92 05 cd 0d 79 93 0f c9  |%,2,1).y....y...|
0001e390  36 3a e7 44 5f 25 3c 3e  33 8c 0d 79 94 31 f2 42  |6:.D_%<>3..y.1.B|
0001e3a0  28 66 5f 25 2c 44 5f 25  2b 33 29 3a 44 5f 25 3d  |(f_%,D_%+3):D_%=|
0001e3b0  33 3a f2 42 28 66 5f 25  2c 44 5f 25 2b 33 29 3a  |3:.B(f_%,D_%+3):|
0001e3c0  f2 53 28 60 5f 25 2c 33  2c 31 29 0d 79 95 05 cd  |.S(`_%,3,1).y...|
0001e3d0  0d 79 96 0a c9 37 3a f2  54 5f 0d 79 97 1c c9 38  |.y...7:.T_.y...8|
0001e3e0  3a 54 75 25 3d 69 5f 25  3a f2 48 3a 69 5f 25 3d  |:Tu%=i_%:.H:i_%=|
0001e3f0  54 75 25 3a f2 6c 0d 79  98 2f c9 39 3a f2 42 28  |Tu%:.l.y./.9:.B(|
0001e400  66 5f 25 2c 39 29 3a e7  55 75 25 f2 4d 28 60 5f  |f_%,9):.Uu%.M(`_|
0001e410  25 29 3a 55 75 25 3d a3  8b 55 75 25 3d b9 3a f2  |%):Uu%=..Uu%=.:.|
0001e420  77 28 6b 25 29 0d 79 99  0c f2 41 75 28 60 5f 25  |w(k%).y...Au(`_%|
0001e430  29 0d 79 9a 07 cb 3a e1  0d 79 9b 67 dd a4 47 28  |).y...:..y.g..G(|
0001e440  6b 4a 25 29 3a ea 5a 69  25 2c 55 61 25 2c 7a 42  |kJ%):.Zi%,Ua%,zB|
0001e450  25 3a 5a 69 25 3d 28 6b  4a 25 80 26 66 66 30 30  |%:Zi%=(kJ%.&ff00|
0001e460  30 30 30 30 29 3e 3e 32  34 3a 55 61 25 3d 28 6b  |0000)>>24:Ua%=(k|
0001e470  4a 25 80 26 66 66 30 30  30 30 29 3e 3e 31 36 3a  |J%.&ff0000)>>16:|
0001e480  7a 42 25 3d 28 6b 4a 25  80 36 35 32 38 30 29 3e  |zB%=(kJ%.65280)>|
0001e490  3e 38 3a 3d 5a 69 25 2b  55 61 25 2b 7a 42 25 0d  |>8:=Zi%+Ua%+zB%.|
0001e4a0  79 9c 8a dd a4 4e 28 6b  4a 25 29 3a ea 5a 69 25  |y....N(kJ%):.Zi%|
0001e4b0  2c 55 61 25 2c 7a 42 25  3a 5a 69 25 3d 32 35 35  |,Ua%,zB%:Zi%=255|
0001e4c0  2d 28 28 6b 4a 25 80 26  66 66 30 30 30 30 30 30  |-((kJ%.&ff000000|
0001e4d0  29 3e 3e 32 34 29 3a 55  61 25 3d 32 35 35 2d 28  |)>>24):Ua%=255-(|
0001e4e0  28 6b 4a 25 80 26 66 66  30 30 30 30 29 3e 3e 31  |(kJ%.&ff0000)>>1|
0001e4f0  36 29 3a 7a 42 25 3d 32  35 35 2d 28 28 6b 4a 25  |6):zB%=255-((kJ%|
0001e500  80 36 35 32 38 30 29 3e  3e 38 29 3a 3d 28 5a 69  |.65280)>>8):=(Zi|
0001e510  25 3c 3c 32 34 29 2b 28  55 61 25 3c 3c 31 36 29  |%<<24)+(Ua%<<16)|
0001e520  2b 28 7a 42 25 3c 3c 38  29 0d 79 9d 89 dd f2 60  |+(zB%<<8).y....`|
0001e530  28 4e 25 29 3a 5a 25 21  30 3d 6b 25 3a 5a 25 21  |(N%):Z%!0=k%:Z%!|
0001e540  34 3d 30 3a 5a 25 21 38  3d 2d 74 25 2a 56 25 2a  |4=0:Z%!8=-t%*V%*|
0001e550  55 25 2f 31 30 30 2d 31  36 3a 5a 25 21 31 32 3d  |U%/100-16:Z%!12=|
0001e560  6e 25 2a 52 25 2a 55 25  2f 31 30 30 2b 31 36 3a  |n%*R%*U%/100+16:|
0001e570  5a 25 21 31 36 3d 30 3a  c8 99 26 34 30 30 63 39  |Z%!16=0:..&400c9|
0001e580  2c 2c 5a 25 b8 64 25 3a  4c 25 3d 5a 25 21 34 2d  |,,Z%.d%:L%=Z%!4-|
0001e590  5a 25 21 32 30 3a 58 25  3d 5a 25 21 31 36 2d 5a  |Z%!20:X%=Z%!16-Z|
0001e5a0  25 21 32 34 3a c8 95 64  25 3a f2 57 28 33 2c 31  |%!24:..d%:.W(3,1|
0001e5b0  30 29 0d 79 9e c9 c8 93  4c 25 2b 51 25 21 28 4e  |0).y....L%+Q%!(N|
0001e5c0  25 2a 31 36 29 2a 52 25  2a 55 25 2f 31 30 30 2c  |%*16)*R%*U%/100,|
0001e5d0  58 25 2d 51 25 21 28 4e  25 2a 31 36 2b 34 29 2a  |X%-Q%!(N%*16+4)*|
0001e5e0  56 25 2a 55 25 2f 31 30  30 2c 28 51 25 21 28 4e  |V%*U%/100,(Q%!(N|
0001e5f0  25 2a 31 36 2b 38 29 2d  51 25 21 28 4e 25 2a 31  |%*16+8)-Q%!(N%*1|
0001e600  36 29 29 2a 52 25 2a 55  25 2f 31 30 30 2c 2d 28  |6))*R%*U%/100,-(|
0001e610  51 25 21 28 4e 25 2a 31  36 2b 31 32 29 2d 51 25  |Q%!(N%*16+12)-Q%|
0001e620  21 28 4e 25 2a 31 36 2b  34 29 29 2a 56 25 2a 55  |!(N%*16+4))*V%*U|
0001e630  25 2f 31 30 30 3a f2 57  28 33 2c 38 29 3a c8 93  |%/100:.W(3,8):..|
0001e640  4c 25 2b 51 25 21 28 4e  25 2a 31 36 29 2a 52 25  |L%+Q%!(N%*16)*R%|
0001e650  2a 55 25 2f 31 30 30 2d  38 2c 58 25 2d 51 25 21  |*U%/100-8,X%-Q%!|
0001e660  28 4e 25 2a 31 36 2b 34  29 2a 56 25 2a 55 25 2f  |(N%*16+4)*V%*U%/|
0001e670  31 30 30 2d 38 2c 31 36  2c 31 36 0d 79 9f d0 c8  |100-8,16,16.y...|
0001e680  93 4c 25 2b 51 25 21 28  4e 25 2a 31 36 2b 38 29  |.L%+Q%!(N%*16+8)|
0001e690  2a 52 25 2a 55 25 2f 31  30 30 2d 38 2c 58 25 2d  |*R%*U%/100-8,X%-|
0001e6a0  51 25 21 28 4e 25 2a 31  36 2b 34 29 2a 56 25 2a  |Q%!(N%*16+4)*V%*|
0001e6b0  55 25 2f 31 30 30 2d 38  2c 31 36 2c 31 36 3a c8  |U%/100-8,16,16:.|
0001e6c0  93 4c 25 2b 51 25 21 28  4e 25 2a 31 36 2b 38 29  |.L%+Q%!(N%*16+8)|
0001e6d0  2a 52 25 2a 55 25 2f 31  30 30 2d 38 2c 58 25 2d  |*R%*U%/100-8,X%-|
0001e6e0  51 25 21 28 4e 25 2a 31  36 2b 31 32 29 2a 56 25  |Q%!(N%*16+12)*V%|
0001e6f0  2a 55 25 2f 31 30 30 2d  38 2c 31 36 2c 31 36 3a  |*U%/100-8,16,16:|
0001e700  c8 93 4c 25 2b 51 25 21  28 4e 25 2a 31 36 29 2a  |..L%+Q%!(N%*16)*|
0001e710  52 25 2a 55 25 2f 31 30  30 2d 38 2c 58 25 2d 51  |R%*U%/100-8,X%-Q|
0001e720  25 21 28 4e 25 2a 31 36  2b 31 32 29 2a 56 25 2a  |%!(N%*16+12)*V%*|
0001e730  55 25 2f 31 30 30 2d 38  2c 31 36 2c 31 36 3a e7  |U%/100-8,16,16:.|
0001e740  4e 25 3e 30 80 5a 6c 25  3d a3 8c 0d 79 a0 be f2  |N%>0.Zl%=...y...|
0001e750  57 28 33 2c 31 31 29 3a  86 4c 25 2b 51 25 21 28  |W(3,11):.L%+Q%!(|
0001e760  4e 25 2a 31 36 2d 38 29  2a 52 25 2a 55 25 2f 31  |N%*16-8)*R%*U%/1|
0001e770  30 30 2d 33 32 2c 58 25  2d 51 25 21 28 4e 25 2a  |00-32,X%-Q%!(N%*|
0001e780  31 36 2d 34 29 2a 56 25  2a 55 25 2f 31 30 30 2c  |16-4)*V%*U%/100,|
0001e790  4c 25 2b 51 25 21 28 4e  25 2a 31 36 29 2a 52 25  |L%+Q%!(N%*16)*R%|
0001e7a0  2a 55 25 2f 31 30 30 2b  33 32 2c 58 25 2d 51 25  |*U%/100+32,X%-Q%|
0001e7b0  21 28 4e 25 2a 31 36 2b  34 29 2a 56 25 2a 55 25  |!(N%*16+4)*V%*U%|
0001e7c0  2f 31 30 30 3a c8 93 c8  90 4c 25 2b 51 25 21 28  |/100:....L%+Q%!(|
0001e7d0  4e 25 2a 31 36 2d 38 29  2a 52 25 2a 55 25 2f 31  |N%*16-8)*R%*U%/1|
0001e7e0  30 30 2d 38 2d 33 32 2c  58 25 2d 51 25 21 28 4e  |00-8-32,X%-Q%!(N|
0001e7f0  25 2a 31 36 2d 34 29 2a  56 25 2a 55 25 2f 31 30  |%*16-4)*V%*U%/10|
0001e800  30 2d 38 2c 31 36 2c 31  36 0d 79 a1 46 c8 93 c8  |0-8,16,16.y.F...|
0001e810  90 4c 25 2b 51 25 21 28  4e 25 2a 31 36 29 2a 52  |.L%+Q%!(N%*16)*R|
0001e820  25 2a 55 25 2f 31 30 30  2d 38 2b 33 32 2c 58 25  |%*U%/100-8+32,X%|
0001e830  2d 51 25 21 28 4e 25 2a  31 36 2b 34 29 2a 56 25  |-Q%!(N%*16+4)*V%|
0001e840  2a 55 25 2f 31 30 30 2d  38 2c 31 36 2c 31 36 0d  |*U%/100-8,16,16.|
0001e850  79 a2 19 cd 3a c8 99 26  34 30 30 63 61 2c 2c 5a  |y...:..&400ca,,Z|
0001e860  25 b8 64 25 3a ce 3a e1  0d 79 a3 8a dd f2 53 5f  |%.d%:.:..y....S_|
0001e870  28 4e 25 29 3a 5a 25 21  30 3d 6b 25 3a 5a 25 21  |(N%):Z%!0=k%:Z%!|
0001e880  34 3d 30 3a 5a 25 21 38  3d 2d 74 25 2a 56 25 2a  |4=0:Z%!8=-t%*V%*|
0001e890  55 25 2f 31 30 30 2d 31  36 3a 5a 25 21 31 32 3d  |U%/100-16:Z%!12=|
0001e8a0  6e 25 2a 52 25 2a 55 25  2f 31 30 30 2b 31 36 3a  |n%*R%*U%/100+16:|
0001e8b0  5a 25 21 31 36 3d 30 3a  c8 99 26 34 30 30 63 39  |Z%!16=0:..&400c9|
0001e8c0  2c 2c 5a 25 b8 64 25 3a  4c 25 3d 5a 25 21 34 2d  |,,Z%.d%:L%=Z%!4-|
0001e8d0  5a 25 21 32 30 3a 58 25  3d 5a 25 21 31 36 2d 5a  |Z%!20:X%=Z%!16-Z|
0001e8e0  25 21 32 34 3a c8 95 64  25 3a f2 57 28 33 2c 31  |%!24:..d%:.W(3,1|
0001e8f0  31 29 0d 79 a4 c1 c8 93  4c 25 2b 66 25 21 28 4e  |1).y....L%+f%!(N|
0001e900  25 2a 31 36 29 2a 52 25  2a 55 25 2f 31 30 30 2c  |%*16)*R%*U%/100,|
0001e910  58 25 2d 66 25 21 28 4e  25 2a 31 36 2b 34 29 2a  |X%-f%!(N%*16+4)*|
0001e920  56 25 2a 55 25 2f 31 30  30 2c 28 66 25 21 28 4e  |V%*U%/100,(f%!(N|
0001e930  25 2a 31 36 2b 38 29 2d  66 25 21 28 4e 25 2a 31  |%*16+8)-f%!(N%*1|
0001e940  36 29 29 2a 52 25 2a 55  25 2f 31 30 30 2c 2d 28  |6))*R%*U%/100,-(|
0001e950  66 25 21 28 4e 25 2a 31  36 2b 31 32 29 2d 66 25  |f%!(N%*16+12)-f%|
0001e960  21 28 4e 25 2a 31 36 2b  34 29 29 2a 56 25 2a 55  |!(N%*16+4))*V%*U|
0001e970  25 2f 31 30 30 3a c8 93  4c 25 2b 66 25 21 28 4e  |%/100:..L%+f%!(N|
0001e980  25 2a 31 36 29 2a 52 25  2a 55 25 2f 31 30 30 2d  |%*16)*R%*U%/100-|
0001e990  38 2c 58 25 2d 66 25 21  28 4e 25 2a 31 36 2b 34  |8,X%-f%!(N%*16+4|
0001e9a0  29 2a 56 25 2a 55 25 2f  31 30 30 2d 38 2c 31 36  |)*V%*U%/100-8,16|
0001e9b0  2c 31 36 0d 79 a5 c3 c8  93 4c 25 2b 66 25 21 28  |,16.y....L%+f%!(|
0001e9c0  4e 25 2a 31 36 2b 38 29  2a 52 25 2a 55 25 2f 31  |N%*16+8)*R%*U%/1|
0001e9d0  30 30 2d 38 2c 58 25 2d  66 25 21 28 4e 25 2a 31  |00-8,X%-f%!(N%*1|
0001e9e0  36 2b 34 29 2a 56 25 2a  55 25 2f 31 30 30 2d 38  |6+4)*V%*U%/100-8|
0001e9f0  2c 31 36 2c 31 36 3a c8  93 4c 25 2b 66 25 21 28  |,16,16:..L%+f%!(|
0001ea00  4e 25 2a 31 36 2b 38 29  2a 52 25 2a 55 25 2f 31  |N%*16+8)*R%*U%/1|
0001ea10  30 30 2d 38 2c 58 25 2d  66 25 21 28 4e 25 2a 31  |00-8,X%-f%!(N%*1|
0001ea20  36 2b 31 32 29 2a 56 25  2a 55 25 2f 31 30 30 2d  |6+12)*V%*U%/100-|
0001ea30  38 2c 31 36 2c 31 36 3a  c8 93 4c 25 2b 66 25 21  |8,16,16:..L%+f%!|
0001ea40  28 4e 25 2a 31 36 29 2a  52 25 2a 55 25 2f 31 30  |(N%*16)*R%*U%/10|
0001ea50  30 2d 38 2c 58 25 2d 66  25 21 28 4e 25 2a 31 36  |0-8,X%-f%!(N%*16|
0001ea60  2b 31 32 29 2a 56 25 2a  55 25 2f 31 30 30 2d 38  |+12)*V%*U%/100-8|
0001ea70  2c 31 36 2c 31 36 0d 79  a6 e7 86 4c 25 2b 66 25  |,16,16.y...L%+f%|
0001ea80  21 28 4e 25 2a 31 36 29  2a 52 25 2a 55 25 2f 31  |!(N%*16)*R%*U%/1|
0001ea90  30 30 2c 58 25 2d 66 25  21 28 4e 25 2a 31 36 2b  |00,X%-f%!(N%*16+|
0001eaa0  34 29 2a 56 25 2a 55 25  2f 31 30 30 2c 4c 25 2b  |4)*V%*U%/100,L%+|
0001eab0  66 25 21 28 4e 25 2a 31  36 2b 38 29 2a 52 25 2a  |f%!(N%*16+8)*R%*|
0001eac0  55 25 2f 31 30 30 2c 58  25 2d 66 25 21 28 4e 25  |U%/100,X%-f%!(N%|
0001ead0  2a 31 36 2b 31 32 29 2a  56 25 2a 55 25 2f 31 30  |*16+12)*V%*U%/10|
0001eae0  30 3a 86 4c 25 2b 66 25  21 28 4e 25 2a 31 36 2b  |0:.L%+f%!(N%*16+|
0001eaf0  38 29 2a 52 25 2a 55 25  2f 31 30 30 2c 58 25 2d  |8)*R%*U%/100,X%-|
0001eb00  66 25 21 28 4e 25 2a 31  36 2b 34 29 2a 56 25 2a  |f%!(N%*16+4)*V%*|
0001eb10  55 25 2f 31 30 30 2c 4c  25 2b 66 25 21 28 4e 25  |U%/100,L%+f%!(N%|
0001eb20  2a 31 36 29 2a 52 25 2a  55 25 2f 31 30 30 2c 58  |*16)*R%*U%/100,X|
0001eb30  25 2d 66 25 21 28 4e 25  2a 31 36 2b 31 32 29 2a  |%-f%!(N%*16+12)*|
0001eb40  56 25 2a 55 25 2f 31 30  30 3a c8 99 26 34 30 30  |V%*U%/100:..&400|
0001eb50  63 61 2c 2c 5a 25 b8 64  25 3a ce 3a e1 0d 79 a7  |ca,,Z%.d%:.:..y.|
0001eb60  26 dd f2 4d 4a 3a ea 5a  79 25 2c 7a 4a 25 3a e7  |&..MJ:.Zy%,zJ%:.|
0001eb70  6d 75 25 84 4f 6c 25 84  50 6c 25 84 5a 6c 25 3c  |mu%.Ol%.Pl%.Zl%<|
0001eb80  3e 30 e1 0d 79 a8 85 5a  25 21 30 3d 6b 25 3a c8  |>0..y..Z%!0=k%:.|
0001eb90  99 26 34 30 30 63 62 2c  2c 5a 25 3a 4c 25 3d 5a  |.&400cb,,Z%:L%=Z|
0001eba0  25 21 34 2d 5a 25 21 32  30 3a 58 25 3d 5a 25 21  |%!4-Z%!20:X%=Z%!|
0001ebb0  31 36 2d 5a 25 21 32 34  3a 68 6c 25 3d 2d 5a 25  |16-Z%!24:hl%=-Z%|
0001ebc0  21 31 36 2b 5a 25 21 38  3a 72 6c 25 3d 5a 25 21  |!16+Z%!8:rl%=Z%!|
0001ebd0  31 32 2d 5a 25 21 34 3a  e7 73 25 3c 5a 25 21 34  |12-Z%!4:.s%<Z%!4|
0001ebe0  84 73 25 3e 5a 25 21 31  32 84 76 25 3c 5a 25 21  |.s%>Z%!12.v%<Z%!|
0001ebf0  38 84 76 25 3e 5a 25 21  31 36 f2 59 28 22 22 29  |8.v%>Z%!16.Y("")|
0001ec00  3a 5f 4a 25 3d a3 3a e1  0d 79 a9 22 e7 44 5f 25  |:_J%=.:..y.".D_%|
0001ec10  3d 33 f2 59 28 22 70 74  72 5f 72 6f 74 61 74 65  |=3.Y("ptr_rotate|
0001ec20  22 29 3a 5f 4a 25 3d 34  3a e1 0d 79 aa a5 c8 99  |"):_J%=4:..y....|
0001ec30  26 34 30 30 63 66 2c 2c  5a 25 3a 73 25 3d 5a 25  |&400cf,,Z%:s%=Z%|
0001ec40  21 30 3a 76 25 3d 5a 25  21 34 3a 5a 5f 25 3d 28  |!0:v%=Z%!4:Z_%=(|
0001ec50  73 25 2d 4c 25 29 2f 52  25 3a 75 79 25 3d 28 58  |s%-L%)/R%:uy%=(X|
0001ec60  25 2d 76 25 29 2f 56 25  3a 41 25 3d 31 30 30 2a  |%-v%)/V%:A%=100*|
0001ec70  5a 5f 25 2f 55 25 3a 42  25 3d 31 30 30 2a 75 79  |Z_%/U%:B%=100*uy|
0001ec80  25 2f 55 25 3a 43 25 3d  38 2f 52 25 2a 31 30 30  |%/U%:C%=8/R%*100|
0001ec90  2f 55 25 3a 44 25 3d 38  2f 56 25 2a 31 30 30 2f  |/U%:D%=8/V%*100/|
0001eca0  55 25 3a 45 25 3d 51 25  3a 46 25 3d 41 79 25 3a  |U%:E%=Q%:F%=Ay%:|
0001ecb0  21 46 69 3d 66 25 3a 21  50 6c 3d 57 5f 25 3a 41  |!Fi=f%:!Pl=W_%:A|
0001ecc0  25 3d ba 28 63 79 29 3a  e7 41 25 3e 3d 30 8c 0d  |%=.(cy):.A%>=0..|
0001ecd0  79 ab 19 5a 79 25 3d 41  25 83 31 32 38 3a 7a 4a  |y..Zy%=A%.128:zJ|
0001ece0  25 3d 41 25 81 32 35 36  0d 79 ac 12 cc 3a 5a 79  |%=A%.256.y...:Zy|
0001ecf0  25 3d 2d 31 3a 7a 4a 25  3d a3 0d 79 ad 22 cd 3a  |%=-1:zJ%=..y.".:|
0001ed00  e7 a6 2d 33 e7 28 41 25  80 31 32 38 29 3d 30 8c  |..-3.(A%.128)=0.|
0001ed10  5a 79 25 3d 2d 31 3a 7a  4a 25 3d a3 0d 79 ae 12  |Zy%=-1:zJ%=..y..|
0001ed20  e7 5a 79 25 3d 2d 31 80  5f 4a 25 3d a3 e1 0d 79  |.Zy%=-1._J%=...y|
0001ed30  af 1d e7 5a 79 25 3d 2d  31 80 5f 4a 25 f2 59 28  |...Zy%=-1._J%.Y(|
0001ed40  22 22 29 3a 5f 4a 25 3d  a3 3a e1 0d 79 b0 23 e7  |""):_J%=.:..y.#.|
0001ed50  44 5f 25 3d 32 80 5f 4a  25 80 7a 4a 25 3c 3e 30  |D_%=2._J%.zJ%<>0|
0001ed60  f2 59 28 22 22 29 3a 5f  4a 25 3d a3 3a e1 0d 79  |.Y(""):_J%=.:..y|
0001ed70  b1 28 e7 5f 4a 25 3d a3  84 28 5f 4a 25 3d 31 80  |.(._J%=..(_J%=1.|
0001ed80  7a 4a 25 3c 3e 30 29 84  28 5f 4a 25 3d 32 80 7a  |zJ%<>0).(_J%=2.z|
0001ed90  4a 25 3d 30 29 8c 0d 79  b2 0a c8 8e 44 5f 25 ca  |J%=0)..y....D_%.|
0001eda0  0d 79 b3 39 c9 31 3a e7  7a 4a 25 3d 30 8c f2 59  |.y.9.1:.zJ%=0..Y|
0001edb0  28 22 70 74 72 5f 6d 6f  76 65 22 29 3a 5f 4a 25  |("ptr_move"):_J%|
0001edc0  3d 31 8b f2 59 28 22 70  74 72 5f 61 64 6a 75 73  |=1..Y("ptr_adjus|
0001edd0  74 22 29 3a 5f 4a 25 3d  32 0d 79 b4 24 c9 32 3a  |t"):_J%=2.y.$.2:|
0001ede0  e7 7a 4a 25 3d 30 8c 5f  4a 25 3d 33 3a f2 59 28  |.zJ%=0._J%=3:.Y(|
0001edf0  22 70 74 72 5f 64 65 6c  65 74 65 22 29 0d 79 b5  |"ptr_delete").y.|
0001ee00  05 cb 0d 79 b6 07 cd 3a  e1 0d 79 b7 fa dd f2 76  |...y...:..y....v|
0001ee10  5f 3a ea 61 75 25 2c 5f  79 24 3a 21 60 3d 41 25  |_:.au%,_y$:!`=A%|
0001ee20  28 75 25 29 2b 34 3a 21  56 79 3d 41 25 28 75 75  |(u%)+4:!Vy=A%(uu|
0001ee30  25 29 3a 21 6d 3d 55 79  25 2b 31 3a 21 72 3d 41  |%):!m=Uy%+1:!r=A|
0001ee40  25 28 4a 5f 25 29 3a 21  66 3d 41 25 28 60 79 25  |%(J_%):!f=A%(`y%|
0001ee50  29 3a 21 74 3d 41 25 28  60 79 25 29 2b 59 79 25  |):!t=A%(`y%)+Yy%|
0001ee60  3a 21 53 79 3d 41 25 28  60 25 29 2b 48 75 25 3a  |:!Sy=A%(`%)+Hu%:|
0001ee70  21 66 5f 3d 50 75 25 3a  21 72 5f 3d 4d 79 25 3a  |!f_=Pu%:!r_=My%:|
0001ee80  21 73 79 3d 41 6e 25 3a  21 5a 79 3d 66 4a 25 3a  |!sy=An%:!Zy=fJ%:|
0001ee90  21 55 5f 3d 76 69 25 3a  21 46 79 3d 61 25 3a 21  |!U_=vi%:!Fy=a%:!|
0001eea0  70 3d 4b 79 25 3a 6b 5f  25 2b 3d 5f 25 2d 21 55  |p=Ky%:k_%+=_%-!U|
0001eeb0  3a 61 6e 25 2b 3d 5f 25  2d 21 55 3a 21 64 2b 3d  |:an%+=_%-!U:!d+=|
0001eec0  5f 25 2d 21 55 3a 21 55  3d 5f 25 3a 21 4d 3d 5f  |_%-!U:!U=_%:!M=_|
0001eed0  72 25 3a 42 25 3d 6b 5f  25 3a 46 25 3d 42 75 25  |r%:B%=k_%:F%=Bu%|
0001eee0  3a 47 25 3d 53 4a 25 3a  48 25 3d 61 25 3a c8 99  |:G%=SJ%:H%=a%:..|
0001eef0  26 34 30 36 63 30 3a d6  63 5f 3a c8 99 26 34 30  |&406c0:.c_:..&40|
0001ef00  36 63 31 0d 79 b8 6c e7  21 73 79 3d 30 f2 58 28  |6c1.y.l.!sy=0.X(|
0001ef10  22 4f 70 74 69 63 61 6c  22 2c 22 4e 6f 74 20 61  |"Optical","Not a|
0001ef20  6c 6c 20 6f 66 20 74 68  65 20 74 65 78 74 20 63  |ll of the text c|
0001ef30  6f 75 6c 64 20 62 65 20  68 61 6e 64 6c 65 64 2c  |ould be handled,|
0001ef40  20 70 6f 73 73 69 62 6c  79 20 64 75 65 20 74 6f  | possibly due to|
0001ef50  20 61 20 62 61 64 20 71  75 61 6c 69 74 79 20 73  | a bad quality s|
0001ef60  63 61 6e 6e 65 64 20 69  6d 61 67 65 2e 22 29 0d  |canned image.").|
0001ef70  79 b9 29 6b 5f 25 3d 21  52 4a 3a 5f 72 25 3d 21  |y.)k_%=!RJ:_r%=!|
0001ef80  4d 3a 5f 25 3d 21 55 3a  e7 21 4d 3c 3e 6e 72 25  |M:_%=!U:.!M<>nr%|
0001ef90  80 21 4d 3c 65 5f 25 8c  0d 79 ba 4a f2 4e 28 65  |.!M<e_%..y.J.N(e|
0001efa0  25 2c 22 4f 43 52 69 6e  67 20 69 6d 61 67 65 20  |%,"OCRing image |
0001efb0  2d 20 52 65 61 64 69 6e  67 20 6c 69 6e 65 20 28  |- Reading line (|
0001efc0  22 2b c3 28 21 4d 2b 31  29 2b 22 2f 22 2b c3 28  |"+.(!M+1)+"/"+.(|
0001efd0  65 5f 25 29 2b 22 29 20  2a 22 29 3a 6e 72 25 3d  |e_%)+") *"):nr%=|
0001efe0  21 4d 0d 79 bb 30 cd 3a  e7 50 25 3c 30 80 6f 75  |!M.y.0.:.P%<0.ou|
0001eff0  25 3e 51 79 25 80 6a 79  25 3d a3 80 44 79 25 3d  |%>Qy%.jy%=..Dy%=|
0001f000  a3 8c 50 25 3d 30 3a 46  5f 25 3d b9 3a 78 4f 25  |..P%=0:F_%=.:xO%|
0001f010  3d b9 0d 79 bc 20 e7 21  52 3d 32 35 35 84 28 21  |=..y. .!R=255.(!|
0001f020  52 3d 32 35 34 80 51 75  25 3d a3 29 84 21 52 3d  |R=254.Qu%=.).!R=|
0001f030  30 8c 0d 79 bd 1e 61 5f  25 3d b9 3a e7 51 75 25  |0..y..a_%=.:.Qu%|
0001f040  3c 3e 30 84 49 6c 25 3c  3e 30 8c 49 79 25 3d b9  |<>0.Il%<>0.Iy%=.|
0001f050  0d 79 be 3d f2 76 79 3a  f2 59 5f 28 51 79 25 2c  |.y.=.vy:.Y_(Qy%,|
0001f060  6d 25 29 3a e7 49 6c 25  8c 57 79 25 3d 30 3a 59  |m%):.Il%.Wy%=0:Y|
0001f070  6e 25 3d a3 3a f2 5a 5f  8b e7 51 75 25 8c 57 79  |n%=.:.Z_..Qu%.Wy|
0001f080  25 3d 30 3a 59 6e 25 3d  b9 3a f2 5a 5f 0d 79 bf  |%=0:Yn%=.:.Z_.y.|
0001f090  60 e7 28 49 6c 25 84 51  75 25 29 80 46 79 25 3d  |`.(Il%.Qu%).Fy%=|
0001f0a0  30 8c 57 79 25 3d 32 3a  49 6c 25 3d a3 3a 51 75  |0.Wy%=2:Il%=.:Qu|
0001f0b0  25 3d a3 3a 49 79 25 3d  a3 3a f2 50 28 42 79 25  |%=.:Iy%=.:.P(By%|
0001f0c0  2c 36 30 2c b9 29 3a f2  50 28 42 79 25 2c 36 31  |,60,.):.P(By%,61|
0001f0d0  2c b9 29 3a f2 53 28 42  79 25 2c 36 30 2c a3 29  |,.):.S(By%,60,.)|
0001f0e0  3a f2 53 28 42 79 25 2c  31 31 2c a3 29 0d 79 c0  |:.S(By%,11,.).y.|
0001f0f0  0d e7 49 79 25 3d a3 f2  5f 5f 0d 79 c1 18 cd 3a  |..Iy%=..__.y...:|
0001f100  e7 28 21 52 80 32 34 30  29 3d 32 34 30 8c 21 52  |.(!R.240)=240.!R|
0001f110  3d 31 0d 79 c2 09 e7 49  79 25 e1 0d 79 c3 0b e7  |=1.y...Iy%..y...|
0001f120  21 52 3c 3e 30 e1 0d 79  c4 09 f2 6c 5f 3a e1 0d  |!R<>0..y...l_:..|
0001f130  79 c5 2f dd f2 5f 5f 3a  21 41 3d 30 3a 49 79 25  |y./..__:!A=0:Iy%|
0001f140  3d a3 3a e7 42 61 25 c8  94 51 79 25 2c 6f 75 25  |=.:.Ba%..Qy%,ou%|
0001f150  3a f2 46 5f 3a c8 94 51  79 25 2c 6f 75 25 0d 79  |:.F_:..Qy%,ou%.y|
0001f160  c6 28 6f 75 25 3d 6d 25  3a 4c 6e 25 3d 5f 25 3a  |.(ou%=m%:Ln%=_%:|
0001f170  f2 6e 3a e7 67 79 25 3f  56 75 25 3c 3e 30 f2 4a  |.n:.gy%?Vu%<>0.J|
0001f180  28 65 25 29 3a e1 0d 79  c7 12 e7 76 79 25 3d a3  |(e%):..y...vy%=.|
0001f190  8c 21 61 2d 3d 4c 5f 25  0d 79 c8 1b e7 67 79 25  |.!a-=L_%.y...gy%|
0001f1a0  3f 68 4f 25 3c 3e 30 84  67 79 25 3f 73 42 25 3c  |?hO%<>0.gy%?sB%<|
0001f1b0  3e 30 8c 0d 79 c9 17 e7  76 79 25 8c 21 61 2d 3d  |>0..y...vy%.!a-=|
0001f1c0  33 36 8b 21 61 2d 3d 4c  5f 25 0d 79 ca 26 cd 3a  |36.!a-=L_%.y.&.:|
0001f1d0  c8 99 26 34 30 30 64 31  2c 65 25 2c 30 2c 2d 31  |..&400d1,e%,0,-1|
0001f1e0  3c 3c 33 30 2c 31 3c 3c  33 30 2c 2d 21 61 3a e1  |<<30,1<<30,-!a:.|
0001f1f0  0d 79 cb 41 dd f2 6c 5f  3a f2 63 3a 57 79 25 3d  |.y.A..l_:.c:Wy%=|
0001f200  30 3a 70 69 25 3d b9 3a  f2 74 3a 6a 79 25 3d a3  |0:pi%=.:.t:jy%=.|
0001f210  3a f2 4a 5f 3a 69 25 3d  30 3a 53 79 25 3d 30 3a  |:.J_:i%=0:Sy%=0:|
0001f220  f5 3a e7 53 25 28 53 79  25 29 8c 69 25 3d 53 79  |.:.S%(Sy%).i%=Sy|
0001f230  25 0d 79 cc 34 53 79 25  2b 3d 31 3a fd 53 25 28  |%.y.4Sy%+=1:.S%(|
0001f240  53 79 25 2d 31 29 84 53  79 25 3e 43 79 25 3a f2  |Sy%-1).Sy%>Cy%:.|
0001f250  41 28 4e 5f 25 2c 33 2c  41 24 28 69 25 29 29 3a  |A(N_%,3,A$(i%)):|
0001f260  e7 68 69 25 8c 0d 79 cd  09 e7 79 6c 25 8c 0d 79  |.hi%..y...yl%..y|
0001f270  ce 13 4b 75 25 3d a4 53  28 69 79 25 29 3a f2 49  |..Ku%=.S(iy%):.I|
0001f280  79 0d 79 cf 08 cc 3a f2  6c 0d 79 d0 05 cd 0d 79  |y.y...:.l.y....y|
0001f290  d1 11 cd 3a e7 53 60 25  f2 67 79 3a f2 58 79 0d  |...:.S`%.gy:.Xy.|
0001f2a0  79 d2 05 e1 0d 79 d3 22  dd f2 48 79 3a f2 4a 28  |y....y."..Hy:.J(|
0001f2b0  65 25 29 3a f2 63 3a 70  69 25 3d b9 3a f2 74 3a  |e%):.c:pi%=.:.t:|
0001f2c0  e7 21 41 f2 6e 69 0d 79  d4 0b e7 57 79 25 3d 30  |.!A.ni.y...Wy%=0|
0001f2d0  e1 0d 79 d5 0b e7 57 79  25 3d 32 8c 0d 79 d6 54  |..y...Wy%=2..y.T|
0001f2e0  6a 79 25 3d a3 3a f2 76  79 3a f2 4a 5f 3a f2 59  |jy%=.:.vy:.J_:.Y|
0001f2f0  5f 28 51 79 25 2c 6d 25  29 3a f2 74 3a 61 5f 25  |_(Qy%,m%):.t:a_%|
0001f300  3d b9 3a 50 25 3d 30 3a  46 5f 25 3d b9 3a 78 79  |=.:P%=0:F_%=.:xy|
0001f310  25 3d 30 3a 69 25 3d 30  3a 53 79 25 3d 30 3a f5  |%=0:i%=0:Sy%=0:.|
0001f320  3a e7 53 25 28 53 79 25  29 8c 69 25 3d 53 79 25  |:.S%(Sy%).i%=Sy%|
0001f330  0d 79 d7 35 53 79 25 2b  3d 31 3a fd 53 25 28 53  |.y.5Sy%+=1:.S%(S|
0001f340  79 25 2d 31 29 84 53 79  25 3e 43 79 25 3a f2 41  |y%-1).Sy%>Cy%:.A|
0001f350  28 4e 5f 25 2c 33 2c 41  24 28 69 25 29 29 3a f2  |(N_%,3,A$(i%)):.|
0001f360  4f 28 50 25 29 0d 79 d8  b5 cc 3a 61 61 25 3d 30  |O(P%).y...:aa%=0|
0001f370  3a 6d 25 3d 51 79 25 3a  58 75 25 3d 74 5f 25 2d  |:m%=Qy%:Xu%=t_%-|
0001f380  31 3a 61 25 3d 71 4f 25  3a 5f 25 3d 61 61 25 3a  |1:a%=qO%:_%=aa%:|
0001f390  51 79 25 3d 51 79 25 3a  74 5f 25 3d 74 5f 25 3a  |Qy%=Qy%:t_%=t_%:|
0001f3a0  66 4a 25 3d 42 4f 25 3a  72 75 25 3d 78 42 25 3a  |fJ%=BO%:ru%=xB%:|
0001f3b0  4a 4a 25 3d 7a 4f 25 3a  72 5f 25 3d 54 4f 25 3a  |JJ%=zO%:r_%=TO%:|
0001f3c0  21 7a 3d 4a 4a 25 3a 21  4f 3d 72 5f 25 3a 21 5f  |!z=JJ%:!O=r_%:!_|
0001f3d0  3d 4a 4a 25 3a 21 78 3d  72 5f 25 3a 76 69 25 3d  |=JJ%:!x=r_%:vi%=|
0001f3e0  6e 42 25 3a 4b 79 25 3d  58 4f 25 3a 50 25 3d 2d  |nB%:Ky%=XO%:P%=-|
0001f3f0  31 3a 6a 79 25 3d a3 3a  f2 42 79 3a f2 4a 5f 3a  |1:jy%=.:.By:.J_:|
0001f400  f2 74 3a 61 5f 25 3d b9  3a 43 5f 25 3d 41 25 28  |.t:a_%=.:C_%=A%(|
0001f410  71 79 25 29 3a 77 6f 25  3d b9 0d 79 d9 18 cd 3a  |qy%):wo%=..y...:|
0001f420  57 79 25 3d 30 3a 21 41  3d 30 3a 49 79 25 3d a3  |Wy%=0:!A=0:Iy%=.|
0001f430  3a e1 0d 79 da 49 dd f2  71 5f 3a ea 6b 6e 25 3a  |:..y.I..q_:.kn%:|
0001f440  42 25 3d 47 6f 25 3a 43  25 3d 55 79 25 2b 31 3a  |B%=Go%:C%=Uy%+1:|
0001f450  44 25 3d 41 25 28 60 25  29 2b 48 75 25 3a 47 25  |D%=A%(`%)+Hu%:G%|
0001f460  3d 53 61 25 3a d6 44 4a  3a 57 5f 25 3d 21 4e 79  |=Sa%:.DJ:W_%=!Ny|
0001f470  3a e7 91 2d 68 72 25 3e  32 35 8c 0d 79 db 49 e7  |:..-hr%>25..y.I.|
0001f480  21 57 5f 3c 3e 63 72 25  f2 4e 28 65 25 2c 22 4f  |!W_<>cr%.N(e%,"O|
0001f490  43 52 69 6e 67 20 69 6d  61 67 65 20 2d 20 46 69  |CRing image - Fi|
0001f4a0  6e 64 69 6e 67 20 74 65  78 74 20 28 22 2b c3 28  |nding text ("+.(|
0001f4b0  21 57 5f 29 2b 22 25 29  20 2a 22 29 3a 63 72 25  |!W_)+"%) *"):cr%|
0001f4c0  3d 21 57 5f 0d 79 dc 09  68 72 25 3d 91 0d 79 dd  |=!W_.y..hr%=..y.|
0001f4d0  0d cd 3a e7 21 64 79 3d  31 e1 0d 79 de 9f 5f 25  |..:.!dy=1..y.._%|
0001f4e0  3d 21 6b 3a c8 99 26 34  30 36 63 30 3a 4b 25 3d  |=!k:..&406c0:K%=|
0001f4f0  a4 41 28 38 2a 5f 25 2c  70 6e 25 29 3a e7 4b 25  |.A(8*_%,pn%):.K%|
0001f500  3d a3 f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |=..C("Optical","|
0001f510  54 68 65 72 65 20 69 73  20 6e 6f 74 20 65 6e 6f  |There is not eno|
0001f520  75 67 68 20 66 72 65 65  20 6d 65 6d 6f 72 79 20  |ugh free memory |
0001f530  61 76 61 69 6c 61 62 6c  65 20 74 6f 20 66 69 6e  |available to fin|
0001f540  69 73 68 20 72 65 61 64  69 6e 67 20 74 68 69 73  |ish reading this|
0001f550  20 69 6d 61 67 65 2e 20  4e 65 65 64 20 22 2b c3  | image. Need "+.|
0001f560  28 28 38 2a 5f 25 29 81  31 30 32 34 29 2b 22 4b  |((8*_%).1024)+"K|
0001f570  2e 22 29 3a f2 48 79 3a  e1 0d 79 df 9d f2 75 4a  |."):.Hy:..y...uJ|
0001f580  3a f2 55 4a 3a c8 99 26  34 30 36 63 31 3a 21 43  |:.UJ:..&406c1:!C|
0001f590  5f 2b 3d 5f 25 3a 21 46  5f 2b 3d 21 57 3a 4b 79  |_+=_%:!F_+=!W:Ky|
0001f5a0  25 2b 3d 21 57 2a 34 3a  66 4a 25 2b 3d 21 57 2a  |%+=!W*4:fJ%+=!W*|
0001f5b0  34 3a 72 75 25 2b 3d 21  57 2a 34 3a 4a 4a 25 2b  |4:ru%+=!W*4:JJ%+|
0001f5c0  3d 21 57 2a 34 3a 72 5f  25 2b 3d 21 57 2a 34 3a  |=!W*4:r_%+=!W*4:|
0001f5d0  21 7a 3d 4a 4a 25 3a 21  5f 3d 4a 4a 25 3a 21 4f  |!z=JJ%:!_=JJ%:!O|
0001f5e0  3d 72 5f 25 3a 21 78 3d  72 5f 25 3a 76 69 25 2b  |=r_%:!x=r_%:vi%+|
0001f5f0  3d 21 57 3a 61 61 25 2b  3d 5f 25 3a 61 25 2b 3d  |=!W:aa%+=_%:a%+=|
0001f600  5f 25 2a 38 3a 46 75 25  2b 3d 31 3a e7 46 75 25  |_%*8:Fu%+=1:.Fu%|
0001f610  3c 3d 41 79 25 8c 0d 79  e0 7e 21 53 5f 3d 66 25  |<=Ay%..y.~!S_=f%|
0001f620  3a 21 4e 79 3d 57 5f 25  3a 21 79 79 3d 57 5f 25  |:!Ny=W_%:!yy=W_%|
0001f630  3a 69 6f 25 21 28 46 75  25 2a 34 29 3d 47 69 25  |:io%!(Fu%*4)=Gi%|
0001f640  3a 21 75 79 3d 61 25 3a  21 44 3d 51 25 21 28 46  |:!uy=a%:!D=Q%!(F|
0001f650  75 25 2a 31 36 29 3a 21  49 3d 51 25 21 28 46 75  |u%*16):!I=Q%!(Fu|
0001f660  25 2a 31 36 2b 34 29 3a  21 4c 3d 51 25 21 28 46  |%*16+4):!L=Q%!(F|
0001f670  75 25 2a 31 36 2b 38 29  3a 21 65 3d 51 25 21 28  |u%*16+8):!e=Q%!(|
0001f680  46 75 25 2a 31 36 2b 31  32 29 3a e7 21 44 3c 30  |Fu%*16+12):.!D<0|
0001f690  21 44 3d 30 0d 79 e1 0d  e7 21 49 3c 30 21 49 3d  |!D=0.y...!I<0!I=|
0001f6a0  30 0d 79 e2 10 e7 21 4c  3e 6e 25 8c 21 4c 3d 6e  |0.y...!L>n%.!L=n|
0001f6b0  25 0d 79 e3 12 e7 21 65  3e 79 79 25 8c 21 65 3d  |%.y...!e>yy%.!e=|
0001f6c0  79 79 25 0d 79 e4 4b 21  6b 3d 30 3a 21 64 79 3d  |yy%.y.K!k=0:!dy=|
0001f6d0  31 3a 21 4b 5f 3d 21 49  3a 21 6f 79 3d 31 30 30  |1:!K_=!I:!oy=100|
0001f6e0  2a 28 46 75 25 2f 28 41  79 25 2b 31 29 29 3a 21  |*(Fu%/(Ay%+1)):!|
0001f6f0  76 79 3d 31 30 30 2f 28  41 79 25 2b 31 29 2a 28  |vy=100/(Ay%+1)*(|
0001f700  31 2f 79 79 25 29 2a 28  31 3c 3c 31 36 29 0d 79  |1/yy%)*(1<<16).y|
0001f710  e5 10 cd 3a e7 46 75 25  3c 3d 41 79 25 e1 0d 79  |...:.Fu%<=Ay%..y|
0001f720  e6 fc 4b 25 3d a4 41 28  31 2c 70 6e 25 29 3a 61  |..K%=.A(1,pn%):a|
0001f730  25 3d 71 4f 25 3a 5f 25  3d 61 61 25 3a 66 4a 25  |%=qO%:_%=aa%:fJ%|
0001f740  3d 42 4f 25 3a 72 75 25  3d 78 42 25 3a 4a 4a 25  |=BO%:ru%=xB%:JJ%|
0001f750  3d 7a 4f 25 3a 72 5f 25  3d 54 4f 25 3a 21 7a 3d  |=zO%:r_%=TO%:!z=|
0001f760  4a 4a 25 3a 21 4f 3d 72  5f 25 3a 21 5f 3d 4a 4a  |JJ%:!O=r_%:!_=JJ|
0001f770  25 3a 21 78 3d 72 5f 25  3a 76 69 25 3d 6e 42 25  |%:!x=r_%:vi%=nB%|
0001f780  3a 4b 79 25 3d 58 4f 25  3a 65 5f 25 3d 47 69 25  |:Ky%=XO%:e_%=Gi%|
0001f790  3a 21 68 5f 3d 2d 31 3a  21 58 4a 3d 2d 31 3a 21  |:!h_=-1:!XJ=-1:!|
0001f7a0  44 5f 3d 4b 79 25 3a 21  5a 5f 3d 65 5f 25 3a 6f  |D_=Ky%:!Z_=e_%:o|
0001f7b0  75 25 3d 51 79 25 3a f2  4c 4a 3a 6b 5f 25 3d 5f  |u%=Qy%:.LJ:k_%=_|
0001f7c0  25 3a 5f 25 3d 30 3a 4c  6e 25 3d 5f 25 3a 21 55  |%:_%=0:Ln%=_%:!U|
0001f7d0  3d 30 3a 5f 72 25 3d 30  3a 6a 79 25 3d a3 3a f2  |=0:_r%=0:jy%=.:.|
0001f7e0  4e 28 65 25 2c 22 4f 43  52 69 6e 67 20 69 6d 61  |N(e%,"OCRing ima|
0001f7f0  67 65 20 2d 20 52 65 61  64 69 6e 67 20 6c 69 6e  |ge - Reading lin|
0001f800  65 20 28 31 2f 22 2b c3  28 65 5f 25 29 2b 22 29  |e (1/"+.(e_%)+")|
0001f810  20 2a 22 29 3a 6e 72 25  3d 31 0d 79 e7 05 e1 0d  | *"):nr%=1.y....|
0001f820  79 e8 50 dd f2 60 4a 3a  ea 6b 6e 25 3a f2 4e 28  |y.P..`J:.kn%:.N(|
0001f830  65 25 2c 22 4f 43 52 69  6e 67 20 69 6d 61 67 65  |e%,"OCRing image|
0001f840  20 2d 20 46 69 6e 64 69  6e 67 20 74 65 78 74 20  | - Finding text |
0001f850  28 30 25 29 20 2a 22 29  3a 74 5f 25 3d 58 75 25  |(0%) *"):t_%=Xu%|
0001f860  3a e7 a4 53 28 65 25 29  f2 68 79 8b f2 42 79 0d  |:..S(e%).hy..By.|
0001f870  79 e9 8d f2 6e 3a f2 4d  28 42 79 25 29 3a f2 4d  |y...n:.M(By%):.M|
0001f880  28 4e 5f 25 29 3a f2 4d  28 67 25 29 3a f2 4d 28  |(N_%):.M(g%):.M(|
0001f890  73 4a 25 29 3a f2 4d 28  48 4a 25 29 3a 63 72 25  |sJ%):.M(HJ%):cr%|
0001f8a0  3d 2d 31 3a 77 6f 25 3d  a3 3a 21 6b 3d 30 3a 21  |=-1:wo%=.:!k=0:!|
0001f8b0  43 4a 3d 77 61 25 3a 21  53 5f 3d 66 25 3a 21 4e  |CJ=wa%:!S_=f%:!N|
0001f8c0  79 3d 57 5f 25 3a 21 79  79 3d 57 5f 25 3a 68 72  |y=W_%:!yy=W_%:hr|
0001f8d0  25 3d 91 3a 61 6e 25 3d  30 3a 21 61 3d 30 3a 50  |%=.:an%=0:!a=0:P|
0001f8e0  25 3d 2d 31 3a 46 5f 25  3d b9 3a f2 4f 28 50 25  |%=-1:F_%=.:.O(P%|
0001f8f0  29 3a c8 99 26 34 30 36  63 32 3a e1 0d 79 ea 22  |):..&406c2:..y."|
0001f900  dd f2 68 79 3a 21 5a 25  3d 65 25 3a c8 99 26 34  |..hy:!Z%=e%:..&4|
0001f910  30 30 63 62 2c 2c 5a 25  3a e7 76 79 25 8c 0d 79  |00cb,,Z%:.vy%..y|
0001f920  eb 16 5a 25 21 32 34 3d  2d 28 33 36 2a 74 5f 25  |..Z%!24=-(36*t_%|
0001f930  2d 31 36 29 0d 79 ec 1c  cc 3a 5a 25 21 32 34 3d  |-16).y...:Z%!24=|
0001f940  2d 28 4c 5f 25 2a 74 5f  25 2d 4c 5f 25 2f 34 29  |-(L_%*t_%-L_%/4)|
0001f950  0d 79 ed 14 cd 3a c8 99  26 34 30 30 63 35 2c 2c  |.y...:..&400c5,,|
0001f960  5a 25 3a e1 0d 79 ee 75  dd a4 67 28 73 79 25 2c  |Z%:..y.u..g(sy%,|
0001f970  65 79 25 2c 6d 5a 25 2c  4b 79 24 29 3a ea 4b 5a  |ey%,mZ%,Ky$):.KZ|
0001f980  25 2c 4a 75 25 2c 7a 5f  25 2c 6d 5f 25 3a c8 99  |%,Ju%,z_%,m_%:..|
0001f990  34 36 2c 32 34 2b 32 35  36 2c 6d 5a 25 2c 4b 79  |46,24+256,mZ%,Ky|
0001f9a0  24 b8 2c 2c 63 25 3a 4b  5a 25 3d 63 25 2b 63 25  |$.,,c%:KZ%=c%+c%|
0001f9b0  21 33 32 2d 6d 5a 25 3a  4a 75 25 3d 63 25 21 34  |!32-mZ%:Ju%=c%!4|
0001f9c0  30 3a c8 99 35 33 2c 4a  75 25 2c 33 b8 2c 2c 6d  |0:..53,Ju%,3.,,m|
0001f9d0  5f 25 3a c8 8e 6d 5f 25  ca 0d 79 ef 0c c9 31 3a  |_%:..m_%..y...1:|
0001f9e0  7a 5f 25 3d 31 0d 79 f0  0c c9 33 3a 7a 5f 25 3d  |z_%=1.y...3:z_%=|
0001f9f0  32 0d 79 f1 0d c9 31 35  3a 7a 5f 25 3d 34 0d 79  |2.y...15:z_%=4.y|
0001fa00  f2 0a 7f 7a 5f 25 3d 31  0d 79 f3 32 cb 3a e7 28  |...z_%=1.y.2.:.(|
0001fa10  73 79 25 83 28 33 32 2f  7a 5f 25 29 29 8c 73 79  |sy%.(32/z_%)).sy|
0001fa20  25 2b 3d 28 33 32 2f 7a  5f 25 29 2d 28 73 79 25  |%+=(32/z_%)-(sy%|
0001fa30  83 28 33 32 2f 7a 5f 25  29 29 0d 79 f4 16 3d 4b  |.(32/z_%)).y..=K|
0001fa40  5a 25 2b 73 79 25 2a 65  79 25 2a 7a 5f 25 2f 38  |Z%+sy%*ey%*z_%/8|
0001fa50  0d 79 f5 44 dd f2 44 79  3a ea 55 65 25 2c 44 61  |.y.D..Dy:.Ue%,Da|
0001fa60  25 2c 62 75 25 2c 69 75  25 2c 64 5a 25 2c 59 41  |%,bu%,iu%,dZ%,YA|
0001fa70  25 2c 56 25 2c 65 79 25  3a 50 6e 25 3d b9 3a e7  |%,V%,ey%:Pn%=.:.|
0001fa80  44 79 25 80 5a 25 21 30  3d 52 5f 25 80 53 6b 25  |Dy%.Z%!0=R_%.Sk%|
0001fa90  3d 2d 35 8c 0d 79 f6 09  e7 47 4f 25 8c 0d 79 f7  |=-5..y...GO%..y.|
0001faa0  67 5a 25 21 30 3d 65 25  3a 5a 25 21 34 3d 53 75  |gZ%!0=e%:Z%!4=Su|
0001fab0  25 21 30 3a 5a 25 21 38  3d 53 75 25 21 34 3a 5a  |%!0:Z%!8=Su%!4:Z|
0001fac0  25 21 31 32 3d 53 75 25  21 38 3a 5a 25 21 31 36  |%!12=Su%!8:Z%!16|
0001fad0  3d 53 75 25 21 31 32 3a  5a 25 21 32 30 3d 53 75  |=Su%!12:Z%!20=Su|
0001fae0  25 21 31 36 3a 5a 25 21  32 34 3d 53 75 25 21 32  |%!16:Z%!24=Su%!2|
0001faf0  30 3a 5a 25 21 32 38 3d  53 75 25 21 32 34 3a 47  |0:Z%!28=Su%!24:G|
0001fb00  4f 25 3d a3 0d 79 f8 a6  cc 3a f2 71 3a 4d 25 21  |O%=..y...:.q:M%!|
0001fb10  30 3d 65 25 3a c8 99 26  34 30 30 63 62 2c 2c 4d  |0=e%:..&400cb,,M|
0001fb20  25 3a 53 75 25 21 30 3d  4d 25 21 34 3a 53 75 25  |%:Su%!0=M%!4:Su%|
0001fb30  21 34 3d 4d 25 21 38 3a  53 75 25 21 38 3d 4d 25  |!4=M%!8:Su%!8=M%|
0001fb40  21 31 32 3a 53 75 25 21  31 32 3d 4d 25 21 31 36  |!12:Su%!12=M%!16|
0001fb50  3a 53 75 25 21 31 36 3d  4d 25 21 32 30 3a 53 75  |:Su%!16=M%!20:Su|
0001fb60  25 21 32 30 3d 4d 25 21  32 34 3a 53 75 25 21 32  |%!20=M%!24:Su%!2|
0001fb70  34 3d 4d 25 21 32 38 3a  4d 25 21 30 3d 52 5f 25  |4=M%!28:M%!0=R_%|
0001fb80  3a c8 99 26 34 30 30 63  62 2c 2c 4d 25 3a e7 62  |:..&400cb,,M%:.b|
0001fb90  25 3c 3e 31 8c 4d 25 21  32 38 3d 2d 31 3a c8 99  |%<>1.M%!28=-1:..|
0001fba0  26 34 30 30 63 35 2c 2c  4d 25 0d 79 f9 7b 43 4f  |&400c5,,M%.y.{CO|
0001fbb0  25 3d 28 4d 25 21 31 36  2d 4d 25 21 38 29 2b 34  |%=(M%!16-M%!8)+4|
0001fbc0  32 3a c8 99 35 33 2c 2d  31 2c 31 32 b8 2c 2c 65  |2:..53,-1,12.,,e|
0001fbd0  79 25 3a c8 99 35 33 2c  2d 31 2c 35 b8 2c 2c 56  |y%:..53,-1,5.,,V|
0001fbe0  25 3a 56 25 3d 31 3c 3c  56 25 3a 5a 25 21 30 3d  |%:V%=1<<V%:Z%!0=|
0001fbf0  65 25 3a 5a 25 21 34 3d  30 3a 5a 25 21 38 3d 30  |e%:Z%!4=0:Z%!8=0|
0001fc00  3a 5a 25 21 31 32 3d 31  3c 3c 31 36 3a 5a 25 21  |:Z%!12=1<<16:Z%!|
0001fc10  31 36 3d 65 79 25 2a 56  25 2b 32 2d 43 4f 25 3a  |16=ey%*V%+2-CO%:|
0001fc20  47 4f 25 3d b9 0d 79 fa  05 cd 0d 79 fb 0d cd 3a  |GO%=..y....y...:|
0001fc30  c8 8e 5a 25 21 30 ca 0d  79 fc 25 c9 51 5f 25 2c  |..Z%!0..y.%.Q_%,|
0001fc40  77 5f 25 3a e7 5a 25 21  30 3d 51 5f 25 55 65 25  |w_%:.Z%!0=Q_%Ue%|
0001fc50  3d 77 5f 25 8b 55 65 25  3d 51 5f 25 0d 79 fd 5f  |=w_%.Ue%=Q_%.y._|
0001fc60  4d 25 21 30 3d 55 65 25  3a c8 99 26 34 30 30 63  |M%!0=Ue%:..&400c|
0001fc70  62 2c 2c 4d 25 3a e7 5a  25 21 31 32 2d 5a 25 21  |b,,M%:.Z%!12-Z%!|
0001fc80  34 3d 4d 25 21 31 32 2d  4d 25 21 34 80 5a 25 21  |4=M%!12-M%!4.Z%!|
0001fc90  31 36 2d 5a 25 21 38 3d  4d 25 21 31 36 2d 4d 25  |16-Z%!8=M%!16-M%|
0001fca0  21 38 80 4d 25 21 32 30  3d 5a 25 21 32 30 80 4d  |!8.M%!20=Z%!20.M|
0001fcb0  25 21 32 34 3d 5a 25 21  32 34 e1 0d 79 fe 58 4d  |%!24=Z%!24..y.XM|
0001fcc0  25 21 31 32 3d 4d 25 21  34 2b 28 5a 25 21 31 32  |%!12=M%!4+(Z%!12|
0001fcd0  2d 5a 25 21 34 29 3a 4d  25 21 38 3d 4d 25 21 31  |-Z%!4):M%!8=M%!1|
0001fce0  36 2d 28 5a 25 21 31 36  2d 5a 25 21 38 29 3a 4d  |6-(Z%!16-Z%!8):M|
0001fcf0  25 21 32 30 3d 5a 25 21  32 30 3a 4d 25 21 32 34  |%!20=Z%!20:M%!24|
0001fd00  3d 5a 25 21 32 34 3a c8  99 26 34 30 30 63 35 2c  |=Z%!24:..&400c5,|
0001fd10  2c 4d 25 0d 79 ff 0d c9  6b 25 3a e7 55 75 25 8c  |,M%.y...k%:.Uu%.|
0001fd20  0d 7a 00 65 4d 25 21 30  3d 60 5f 25 3a c8 99 26  |.z.eM%!0=`_%:..&|
0001fd30  34 30 30 63 62 2c 2c 4d  25 3a 4d 25 21 34 3d 5a  |400cb,,M%:M%!4=Z|
0001fd40  25 21 34 3a 4d 25 21 38  3d 5a 25 21 31 36 2d 28  |%!4:M%!8=Z%!16-(|
0001fd50  4d 25 21 31 36 2d 4d 25  21 38 29 3a 4d 25 21 31  |M%!16-M%!8):M%!1|
0001fd60  36 3d 5a 25 21 31 36 3a  4d 25 21 31 32 3d 5a 25  |6=Z%!16:M%!12=Z%|
0001fd70  21 31 32 3a e7 5a 25 21  32 38 3d 2d 31 4d 25 21  |!12:.Z%!28=-1M%!|
0001fd80  32 38 3d 2d 31 0d 7a 01  15 e7 5a 25 21 32 38 3d  |28=-1.z...Z%!28=|
0001fd90  2d 32 4d 25 21 32 38 3d  2d 32 0d 7a 02 32 e7 6d  |-2M%!28=-2.z.2.m|
0001fda0  75 25 3d a3 80 4f 6c 25  3d a3 80 50 6c 25 3d a3  |u%=..Ol%=..Pl%=.|
0001fdb0  80 5a 6c 25 3d a3 5a 25  21 32 38 3d 60 5f 25 3a  |.Zl%=.Z%!28=`_%:|
0001fdc0  c8 99 26 34 30 30 63 35  2c 2c 4d 25 0d 7a 03 05  |..&400c5,,M%.z..|
0001fdd0  cd 0d 7a 04 0e c9 52 5f  25 3a e7 44 79 25 8c 0d  |..z...R_%:.Dy%..|
0001fde0  7a 05 81 5a 25 21 38 3d  5a 25 21 31 36 2d 31 32  |z..Z%!8=Z%!16-12|
0001fdf0  30 3a 4d 25 21 30 3d 65  25 3a c8 99 26 34 30 30  |0:M%!0=e%:..&400|
0001fe00  63 62 2c 2c 4d 25 3a 4d  25 21 31 32 3d 5a 25 21  |cb,,M%:M%!12=Z%!|
0001fe10  34 2b 28 4d 25 21 31 32  2d 4d 25 21 34 29 3a 4d  |4+(M%!12-M%!4):M|
0001fe20  25 21 34 3d 5a 25 21 34  3a 4d 25 21 38 3d 5a 25  |%!4=Z%!4:M%!8=Z%|
0001fe30  21 38 2d 32 2d 28 4d 25  21 31 36 2d 4d 25 21 38  |!8-2-(M%!16-M%!8|
0001fe40  29 3a 4d 25 21 31 36 3d  5a 25 21 38 2d 32 3a e7  |):M%!16=Z%!8-2:.|
0001fe50  5a 25 21 32 38 3d 2d 31  4d 25 21 32 38 3d 2d 31  |Z%!28=-1M%!28=-1|
0001fe60  0d 7a 06 15 e7 5a 25 21  32 38 3d 2d 32 4d 25 21  |.z...Z%!28=-2M%!|
0001fe70  32 38 3d 2d 32 0d 7a 07  10 c8 99 26 34 30 30 63  |28=-2.z....&400c|
0001fe80  35 2c 2c 4d 25 0d 7a 08  05 cd 0d 7a 09 12 c9 65  |5,,M%.z....z...e|
0001fe90  25 3a e7 49 25 3c 3e 2d  35 f2 46 4a 0d 7a 0a 09  |%:.I%<>-5.FJ.z..|
0001fea0  e7 44 79 25 8c 0d 7a 0b  a1 4d 25 21 30 3d 52 5f  |.Dy%..z..M%!0=R_|
0001feb0  25 3a c8 99 26 34 30 30  63 62 2c 2c 4d 25 3a 43  |%:..&400cb,,M%:C|
0001fec0  4f 25 3d 28 4d 25 21 31  36 2d 4d 25 21 38 29 2b  |O%=(M%!16-M%!8)+|
0001fed0  34 32 3a c8 99 35 33 2c  2d 31 2c 31 32 b8 2c 2c  |42:..53,-1,12.,,|
0001fee0  65 79 25 3a c8 99 35 33  2c 2d 31 2c 35 b8 2c 2c  |ey%:..53,-1,5.,,|
0001fef0  56 25 3a 56 25 3d 31 3c  3c 56 25 3a 5a 25 21 32  |V%:V%=1<<V%:Z%!2|
0001ff00  38 3d 52 5f 25 3a c8 99  26 34 30 30 63 35 2c 2c  |8=R_%:..&400c5,,|
0001ff10  5a 25 3a c8 99 26 34 30  30 63 62 2c 2c 5a 25 3a  |Z%:..&400cb,,Z%:|
0001ff20  e7 5a 25 21 31 36 2b 43  4f 25 3e 65 79 25 2a 56  |.Z%!16+CO%>ey%*V|
0001ff30  25 2b 32 8c 5a 25 21 31  36 3d 65 79 25 2a 56 25  |%+2.Z%!16=ey%*V%|
0001ff40  2b 32 2d 43 4f 25 0d 7a  0c 6d c8 99 26 34 30 30  |+2-CO%.z.m..&400|
0001ff50  63 35 2c 2c 5a 25 3a 4d  25 21 34 3d 5a 25 21 34  |c5,,Z%:M%!4=Z%!4|
0001ff60  3a 4d 25 21 31 32 3d 5a  25 21 31 32 2b 33 38 3a  |:M%!12=Z%!12+38:|
0001ff70  4d 25 21 31 36 3d 5a 25  21 31 36 2b 32 2b 4d 25  |M%!16=Z%!16+2+M%|
0001ff80  21 31 36 2d 4d 25 21 38  3a 4d 25 21 38 3d 5a 25  |!16-M%!8:M%!8=Z%|
0001ff90  21 31 36 2b 32 3a 4d 25  21 32 38 3d 5a 25 21 30  |!16+2:M%!28=Z%!0|
0001ffa0  3a c8 99 26 34 30 30 63  35 2c 2c 4d 25 3a 50 6e  |:..&400c5,,M%:Pn|
0001ffb0  25 3d a3 0d 7a 0d 05 cd  0d 7a 0e 7f c9 77 25 3a  |%=..z....z...w%:|
0001ffc0  4d 25 21 30 3d 56 5f 25  3a c8 99 26 34 30 30 63  |M%!0=V_%:..&400c|
0001ffd0  62 2c 2c 4d 25 3a 4d 25  21 31 32 3d 5a 25 21 34  |b,,M%:M%!12=Z%!4|
0001ffe0  2b 65 42 25 2b 4d 25 21  31 32 2d 4d 25 21 34 3a  |+eB%+M%!12-M%!4:|
0001fff0  4d 25 21 34 3d 5a 25 21  34 2b 65 42 25 3a 4d 25  |M%!4=Z%!4+eB%:M%|
00020000  21 31 36 3d 5a 25 21 38  2b 6c 42 25 2b 4d 25 21  |!16=Z%!8+lB%+M%!|
00020010  31 36 2d 4d 25 21 38 3a  4d 25 21 38 3d 5a 25 21  |16-M%!8:M%!8=Z%!|
00020020  38 2b 6c 42 25 3a e7 5a  25 21 32 38 3d 2d 31 4d  |8+lB%:.Z%!28=-1M|
00020030  25 21 32 38 3d 2d 31 0d  7a 0f 15 e7 5a 25 21 32  |%!28=-1.z...Z%!2|
00020040  38 3d 2d 32 4d 25 21 32  38 3d 2d 32 0d 7a 10 1a  |8=-2M%!28=-2.z..|
00020050  c8 99 26 34 30 30 63 35  2c 2c 4d 25 3a 5a 25 21  |..&400c5,,M%:Z%!|
00020060  32 38 3d 56 5f 25 0d 7a  11 80 c9 49 4a 25 3a 4d  |28=V_%.z...IJ%:M|
00020070  25 21 30 3d 6a 4a 25 3a  c8 99 26 34 30 30 63 62  |%!0=jJ%:..&400cb|
00020080  2c 2c 4d 25 3a 4d 25 21  31 32 3d 5a 25 21 34 2b  |,,M%:M%!12=Z%!4+|
00020090  4d 4f 25 2b 4d 25 21 31  32 2d 4d 25 21 34 3a 4d  |MO%+M%!12-M%!4:M|
000200a0  25 21 34 3d 5a 25 21 34  2b 4d 4f 25 3a 4d 25 21  |%!4=Z%!4+MO%:M%!|
000200b0  31 36 3d 5a 25 21 38 2b  69 42 25 2b 4d 25 21 31  |16=Z%!8+iB%+M%!1|
000200c0  36 2d 4d 25 21 38 3a 4d  25 21 38 3d 5a 25 21 38  |6-M%!8:M%!8=Z%!8|
000200d0  2b 69 42 25 3a e7 5a 25  21 32 38 3d 2d 31 4d 25  |+iB%:.Z%!28=-1M%|
000200e0  21 32 38 3d 2d 31 0d 7a  12 15 e7 5a 25 21 32 38  |!28=-1.z...Z%!28|
000200f0  3d 2d 32 4d 25 21 32 38  3d 2d 32 0d 7a 13 1a c8  |=-2M%!28=-2.z...|
00020100  99 26 34 30 30 63 35 2c  2c 4d 25 3a 5a 25 21 32  |.&400c5,,M%:Z%!2|
00020110  38 3d 6a 4a 25 0d 7a 14  07 cb 3a e1 0d 7a 15 f5  |8=jJ%.z...:..z..|
00020120  dd f2 4a 5f 3a ea 7a 6f  25 2c 73 65 25 3a 7a 6f  |..J_:.zo%,se%:zo|
00020130  25 3d 91 2d 4a 65 25 3a  f2 41 28 53 74 61 74 73  |%=.-Je%:.A(Stats|
00020140  5f 57 69 6e 64 6f 77 25  2c 36 2c c0 c3 28 a8 28  |_Window%,6,..(.(|
00020150  7a 6f 25 2f 31 30 29 2f  31 30 29 2c 35 29 29 3a  |zo%/10)/10),5)):|
00020160  f2 41 28 53 74 61 74 73  5f 57 69 6e 64 6f 77 25  |.A(Stats_Window%|
00020170  2c 31 30 2c c3 28 6d 25  2d 51 79 25 29 29 3a f2  |,10,.(m%-Qy%)):.|
00020180  41 28 53 74 61 74 73 5f  57 69 6e 64 6f 77 25 2c  |A(Stats_Window%,|
00020190  31 32 2c c3 28 a8 28 28  6d 25 2d 51 79 25 29 2f  |12,.(.((m%-Qy%)/|
000201a0  7a 6f 25 2a 31 30 30 29  29 29 3a 42 25 3d 51 79  |zo%*100))):B%=Qy|
000201b0  25 3a 43 25 3d 6d 25 3a  44 25 3d 41 25 28 71 79  |%:C%=m%:D%=A%(qy|
000201c0  25 29 3a 73 65 25 3d ba  28 71 69 29 3a f2 41 28  |%):se%=.(qi):.A(|
000201d0  53 74 61 74 73 5f 57 69  6e 64 6f 77 25 2c 33 2c  |Stats_Window%,3,|
000201e0  c3 28 73 65 25 29 29 3a  f2 41 28 53 74 61 74 73  |.(se%)):.A(Stats|
000201f0  5f 57 69 6e 64 6f 77 25  2c 31 33 2c c3 28 a8 28  |_Window%,13,.(.(|
00020200  73 65 25 2f 7a 6f 25 2a  36 30 30 30 29 29 29 3a  |se%/zo%*6000))):|
00020210  e1 0d 7a 16 2a dd f2 77  28 59 25 29 3a 5a 25 21  |..z.*..w(Y%):Z%!|
00020220  30 3d 59 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |0=Y%:..&400cb,,Z|
00020230  25 3a f2 44 79 3a e7 50  6e 25 8c 0d 7a 17 46 4d  |%:.Dy:.Pn%..z.FM|
00020240  25 21 34 3d 5a 25 21 34  3a 4d 25 21 38 3d 5a 25  |%!4=Z%!4:M%!8=Z%|
00020250  21 38 3a 4d 25 21 31 32  3d 5a 25 21 31 32 3a 4d  |!8:M%!12=Z%!12:M|
00020260  25 21 31 36 3d 5a 25 21  31 36 3a c8 99 26 34 30  |%!16=Z%!16:..&40|
00020270  30 63 35 2c 2c 5a 25 3a  e7 5a 25 21 30 3d 6b 25  |0c5,,Z%:.Z%!0=k%|
00020280  8c 0d 7a 18 51 c8 99 26  34 30 30 63 62 2c 2c 5a  |..z.Q..&400cb,,Z|
00020290  25 3a e7 4d 25 21 34 3c  3e 5a 25 21 34 84 4d 25  |%:.M%!4<>Z%!4.M%|
000202a0  21 38 3c 3e 5a 25 21 38  84 4d 25 21 31 32 3c 3e  |!8<>Z%!8.M%!12<>|
000202b0  5a 25 21 31 32 84 4d 25  21 31 36 3c 3e 5a 25 21  |Z%!12.M%!16<>Z%!|
000202c0  31 36 f2 44 79 3a c8 99  26 34 30 30 63 35 2c 2c  |16.Dy:..&400c5,,|
000202d0  5a 25 0d 7a 19 05 cd 0d  7a 1a 07 cd 3a e1 0d 7a  |Z%.z....z...:..z|
000202e0  1b 48 dd f2 6f 61 3a ea  73 79 25 2c 65 79 25 2c  |.H..oa:.sy%,ey%,|
000202f0  55 4a 25 2c 78 5f 25 2c  7a 25 2c 75 6c 25 2c 6a  |UJ%,x_%,z%,ul%,j|
00020300  6c 25 3a e7 79 4a 25 51  69 25 3d bb 28 a4 4d 28  |l%:.yJ%Qi%=.(.M(|
00020310  5a 6f 6f 6d 5f 57 69 6e  64 6f 77 25 2c 35 29 29  |Zoom_Window%,5))|
00020320  3a 79 4a 25 3d a3 0d 7a  1c 6d c8 99 35 33 2c 2d  |:yJ%=..z.m..53,-|
00020330  31 2c 31 31 b8 2c 2c 73  79 25 3a c8 99 35 33 2c  |1,11.,,sy%:..53,|
00020340  2d 31 2c 31 32 b8 2c 2c  65 79 25 3a c8 99 35 33  |-1,12.,,ey%:..53|
00020350  2c 2d 31 2c 34 b8 2c 2c  55 4a 25 3a c8 99 35 33  |,-1,4.,,UJ%:..53|
00020360  2c 2d 31 2c 35 b8 2c 2c  78 5f 25 3a 55 4a 25 3d  |,-1,5.,,x_%:UJ%=|
00020370  31 3c 3c 55 4a 25 3a 78  5f 25 3d 31 3c 3c 78 5f  |1<<UJ%:x_%=1<<x_|
00020380  25 3a 65 79 25 2d 3d 38  34 2f 78 5f 25 3a e7 4b  |%:ey%-=84/x_%:.K|
00020390  6e 25 8c 0d 7a 1d 09 e7  71 6c 25 8c 0d 7a 1e 2f  |n%..z...ql%..z./|
000203a0  e7 28 65 79 25 2a 78 5f  25 2d 38 38 29 2f 28 73  |.(ey%*x_%-88)/(s|
000203b0  79 25 2a 55 4a 25 2d 34  36 29 3e 28 74 25 2a 52  |y%*UJ%-46)>(t%*R|
000203c0  25 29 2f 28 6e 25 2a 56  25 29 8c 0d 7a 1f 1f 7a  |%)/(n%*V%)..z..z|
000203d0  25 3d 28 73 79 25 2a 55  4a 25 2d 34 36 29 2f 28  |%=(sy%*UJ%-46)/(|
000203e0  6e 25 2a 52 25 29 2a 31  30 30 0d 7a 20 21 cc 3a  |n%*R%)*100.z !.:|
000203f0  7a 25 3d 28 65 79 25 2a  78 5f 25 2d 38 38 29 2f  |z%=(ey%*x_%-88)/|
00020400  28 74 25 2a 56 25 29 2a  31 30 30 0d 7a 21 05 cd  |(t%*V%)*100.z!..|
00020410  0d 7a 22 21 cc 3a 7a 25  3d 28 73 79 25 2a 55 4a  |.z"!.:z%=(sy%*UJ|
00020420  25 2d 34 36 29 2f 28 6e  25 2a 52 25 29 2a 31 30  |%-46)/(n%*R%)*10|
00020430  30 0d 7a 23 12 cd 3a e7  7a 25 3e 35 30 8c 7a 25  |0.z#..:.z%>50.z%|
00020440  3d 35 30 0d 7a 24 0b cc  3a 7a 25 3d 35 30 0d 7a  |=50.z$..:z%=50.z|
00020450  25 0f cd 3a e7 7a 25 3c  31 7a 25 3d 31 0d 7a 26  |%..:.z%<1z%=1.z&|
00020460  11 e7 7a 25 3e 39 39 39  7a 25 3d 39 39 39 0d 7a  |..z%>999z%=999.z|
00020470  27 4b f2 41 28 5a 6f 6f  6d 5f 57 69 6e 64 6f 77  |'K.A(Zoom_Window|
00020480  25 2c 35 2c c3 28 7a 25  29 29 3a e7 bb 28 a4 4d  |%,5,.(z%)):..(.M|
00020490  28 5a 6f 6f 6d 5f 57 69  6e 64 6f 77 25 2c 35 29  |(Zoom_Window%,5)|
000204a0  29 3c 31 f2 41 28 5a 6f  6f 6d 5f 57 69 6e 64 6f  |)<1.A(Zoom_Windo|
000204b0  77 25 2c 35 2c 22 31 22  29 0d 7a 28 6e 79 4a 25  |w%,5,"1").z(nyJ%|
000204c0  3d b9 3a 55 25 3d bb 28  a4 4d 28 5a 6f 6f 6d 5f  |=.:U%=.(.M(Zoom_|
000204d0  57 69 6e 64 6f 77 25 2c  35 29 29 3a 75 6c 25 3d  |Window%,5)):ul%=|
000204e0  55 25 2a 28 6e 25 2a 52  25 29 2f 31 30 30 3a 6a  |U%*(n%*R%)/100:j|
000204f0  6c 25 3d 55 25 2a 28 74  25 2a 56 25 29 2f 31 30  |l%=U%*(t%*V%)/10|
00020500  30 3a 69 60 25 3d b9 3a  6b 6e 25 3d a4 53 28 6b  |0:i`%=.:kn%=.S(k|
00020510  25 29 3a f2 4c 28 6b 25  2c 75 6c 25 2c 6a 6c 25  |%):.L(k%,ul%,jl%|
00020520  29 3a e7 6b 6e 25 8c 0d  7a 29 15 f2 4a 28 6b 25  |):.kn%..z)..J(k%|
00020530  29 3a e7 55 75 25 f2 77  28 6b 25 29 0d 7a 2a 0c  |):.Uu%.w(k%).z*.|
00020540  cc 3a f2 4d 28 6b 25 29  0d 7a 2b 3f cd 3a f2 4c  |.:.M(k%).z+?.:.L|
00020550  28 51 5f 25 2c 75 6c 25  2c 6a 6c 25 29 3a f2 4c  |(Q_%,ul%,jl%):.L|
00020560  28 77 5f 25 2c 75 6c 25  2c 6a 6c 25 29 3a f2 4d  |(w_%,ul%,jl%):.M|
00020570  28 51 5f 25 29 3a f2 4d  28 77 5f 25 29 3a e7 a4  |(Q_%):.M(w_%):..|
00020580  53 28 48 5f 25 29 8c 0d  7a 2c aa f2 4c 28 48 5f  |S(H_%)..z,..L(H_|
00020590  25 2c 75 6c 25 2b 34 30  30 2c 6a 6c 25 2b 34 30  |%,ul%+400,jl%+40|
000205a0  30 29 3a f2 4a 28 48 5f  25 29 3a c8 99 26 34 30  |0):.J(H_%):..&40|
000205b0  30 63 66 2c 2c 5a 25 3a  73 25 3d 5a 25 21 30 3a  |0cf,,Z%:s%=Z%!0:|
000205c0  76 25 3d 5a 25 21 34 3a  52 69 25 3d 2d 6b 75 25  |v%=Z%!4:Ri%=-ku%|
000205d0  2a 52 25 2f 32 2a 55 25  2f 31 30 30 3a 49 69 25  |*R%/2*U%/100:Ii%|
000205e0  3d 2d 6e 4a 25 2a 56 25  2f 32 2a 55 25 2f 31 30  |=-nJ%*V%/2*U%/10|
000205f0  30 3a 78 75 25 3d 28 73  25 2d 4c 25 2b 52 69 25  |0:xu%=(s%-L%+Ri%|
00020600  2d 52 25 29 3a 73 75 25  3d 74 25 2a 56 25 2a 55  |-R%):su%=t%*V%*U|
00020610  25 2f 31 30 30 2d 28 58  25 2d 76 25 2d 49 69 25  |%/100-(X%-v%-Ii%|
00020620  29 3a 6d 69 25 3d 78 75  25 3a 6b 69 25 3d 73 75  |):mi%=xu%:ki%=su|
00020630  25 0d 7a 2d 0d cd 3a 69  60 25 3d a3 3a e1 0d 7a  |%.z-..:i`%=.:..z|
00020640  2e 1e dd f2 4b 6c 3a ee  85 ea c8 99 26 34 30 36  |....Kl:.....&406|
00020650  63 32 3a f2 72 79 3a f2  51 79 3a e0 0d 7a 2f 6c  |c2:.ry:.Qy:..z/l|
00020660  46 25 3d 8e 28 22 3c 4f  70 74 63 6c 50 72 6f 24  |F%=.("<OptclPro$|
00020670  44 69 72 3e 2e 53 79 73  74 65 6d 42 22 29 3a 61  |Dir>.SystemB"):a|
00020680  79 25 3d a2 23 46 25 3a  60 24 3d 22 22 3a e3 72  |y%=.#F%:`$="":.r|
00020690  25 3d 31 b8 61 79 25 3a  60 24 2b 3d bd 28 28 9a  |%=1.ay%:`$+=.((.|
000206a0  23 46 25 29 82 32 35 35  29 3a ed 3a d9 23 46 25  |#F%).255):.:.#F%|
000206b0  3a f2 41 28 49 6e 66 6f  5f 57 69 6e 64 6f 77 25  |:.A(Info_Window%|
000206c0  2c 39 2c 60 24 29 3a e1  0d 7a 30 33 dd f2 69 6c  |,9,`$):..z03..il|
000206d0  28 49 25 2c 6a 25 29 3a  e7 6a 25 3d 31 33 f2 53  |(I%,j%):.j%=13.S|
000206e0  28 66 79 25 2c 32 2c 31  29 3a f2 53 28 66 79 25  |(fy%,2,1):.S(fy%|
000206f0  2c 32 2c 30 29 3a f2 6b  4a 3a e1 0d 7a 31 11 c8  |,2,0):.kJ:..z1..|
00020700  99 26 34 30 30 64 63 2c  6a 25 3a e1 0d 7a 32 24  |.&400dc,j%:..z2$|
00020710  dd f2 54 4a 28 49 25 2c  6a 25 29 3a c8 99 26 36  |..TJ(I%,j%):..&6|
00020720  30 30 64 34 2c 2d 31 3a  f2 63 3a c8 8e 6a 25 ca  |00d4,-1:.c:..j%.|
00020730  0d 7a 33 16 c9 31 3a e7  63 6c 25 63 6c 25 3d a3  |.z3..1:.cl%cl%=.|
00020740  8b 63 6c 25 3d b9 0d 7a  34 29 e7 63 6c 25 f2 4b  |.cl%=..z4).cl%.K|
00020750  28 46 69 6c 65 5f 4d 65  6e 75 25 2c 33 29 8b f2  |(File_Menu%,3)..|
00020760  56 28 46 69 6c 65 5f 4d  65 6e 75 25 2c 33 29 0d  |V(File_Menu%,3).|
00020770  7a 35 16 c9 32 3a e7 76  6c 25 76 6c 25 3d a3 8b  |z5..2:.vl%vl%=..|
00020780  76 6c 25 3d b9 0d 7a 36  32 e7 76 6c 25 f2 4b 28  |vl%=..z62.vl%.K(|
00020790  44 69 73 70 6c 61 79 5f  4d 65 6e 75 25 2c 32 29  |Display_Menu%,2)|
000207a0  8b f2 56 28 44 69 73 70  6c 61 79 5f 4d 65 6e 75  |..V(Display_Menu|
000207b0  25 2c 32 29 3a f2 63 0d  7a 37 22 c9 31 39 3a f2  |%,2):.c.z7".19:.|
000207c0  71 3a f2 54 28 53 74 61  74 73 5f 57 69 6e 64 6f  |q:.T(Stats_Windo|
000207d0  77 25 2c 73 25 2c 76 25  29 0d 7a 38 0d c9 31 37  |w%,s%,v%).z8..17|
000207e0  3a e7 44 79 25 e1 0d 7a  39 07 f2 78 79 0d 7a 3a  |:.Dy%..z9..xy.z:|
000207f0  17 c9 39 3a e7 5a 25 28  60 25 29 3e 31 30 30 30  |..9:.Z%(`%)>1000|
00020800  30 f2 57 5f 0d 7a 3b 0b  c9 31 38 3a f2 69 4a 0d  |0.W_.z;..18:.iJ.|
00020810  7a 3c 20 7f 3a e7 67 79  25 3f 56 75 25 3c 3e 30  |z< .:.gy%?Vu%<>0|
00020820  84 76 79 25 3d a3 8c f2  76 28 6a 25 29 3a e1 0d  |.vy%=...v(j%):..|
00020830  7a 3d 0b e7 44 79 25 3d  a3 8c 0d 7a 3e 14 e7 50  |z=..Dy%=...z>..P|
00020840  25 3c 30 8c 50 25 3d 30  3a 46 5f 25 3d b9 0d 7a  |%<0.P%=0:F_%=..z|
00020850  3f 35 e7 6a 25 3d 38 84  6a 25 3d 31 32 37 84 6a  |?5.j%=8.j%=127.j|
00020860  25 3d 33 39 36 84 6a 25  3d 33 39 37 84 6a 25 3d  |%=396.j%=397.j%=|
00020870  33 39 39 84 6a 25 3d 33  39 38 ff 28 22 46 58 32  |399.j%=398.("FX2|
00020880  31 22 29 0d 7a 40 18 e7  6a 25 3d 33 39 37 f2 65  |1").z@..j%=397.e|
00020890  28 31 30 30 2c 31 30 30  29 3a e1 0d 7a 41 12 e7  |(100,100):..zA..|
000208a0  50 25 3d 2d 31 f2 76 28  6a 25 29 3a e1 0d 7a 42  |P%=-1.v(j%):..zB|
000208b0  17 e7 6a 25 3d 33 39 36  f2 65 28 31 30 30 2c 35  |..j%=396.e(100,5|
000208c0  30 29 3a e1 0d 7a 43 18  e7 6a 25 3d 33 39 39 f2  |0):..zC..j%=399.|
000208d0  65 28 31 30 30 2c 31 31  30 29 3a e1 0d 7a 44 18  |e(100,110):..zD.|
000208e0  e7 6a 25 3d 33 39 38 f2  65 28 31 30 30 2c 31 32  |.j%=398.e(100,12|
000208f0  30 29 3a e1 0d 7a 45 10  e7 6a 79 25 f2 76 28 6a  |0):..zE..jy%.v(j|
00020900  25 29 3a e1 0d 7a 46 16  e7 6a 25 3d 38 84 6a 25  |%):..zF..j%=8.j%|
00020910  3d 31 32 37 8c f2 4b 75  3a e1 0d 7a 47 20 e7 6a  |=127..Ku:..zG .j|
00020920  25 3e 32 35 35 84 6a 25  3c 33 32 84 6a 25 3d 31  |%>255.j%<32.j%=1|
00020930  32 37 f2 76 28 6a 25 29  3a e1 0d 7a 48 12 f2 54  |27.v(j%):..zH..T|
00020940  61 28 6a 25 29 3a f2 4f  28 50 25 29 0d 7a 49 14  |a(j%):.O(P%).zI.|
00020950  cc 3a e7 50 25 3d 2d 31  f2 76 28 6a 25 29 3a e1  |.:.P%=-1.v(j%):.|
00020960  0d 7a 4a 35 e7 6a 25 3d  38 84 6a 25 3d 31 32 37  |.zJ5.j%=8.j%=127|
00020970  84 6a 25 3d 33 39 36 84  6a 25 3d 33 39 37 84 6a  |.j%=396.j%=397.j|
00020980  25 3d 33 39 39 84 6a 25  3d 33 39 38 ff 28 22 46  |%=399.j%=398.("F|
00020990  58 32 31 22 29 0d 7a 4b  0f e7 6a 25 3d 38 8c f2  |X21").zK..j%=8..|
000209a0  63 6c 3a e1 0d 7a 4c 0f  e7 6a 25 3d 32 37 8c f2  |cl:..zL..j%=27..|
000209b0  79 3a e1 0d 7a 4d 17 e7  6a 25 3d 33 39 36 f2 65  |y:..zM..j%=396.e|
000209c0  28 31 30 30 2c 35 30 29  3a e1 0d 7a 4e 18 e7 6a  |(100,50):..zN..j|
000209d0  25 3d 33 39 37 f2 65 28  31 30 30 2c 31 30 30 29  |%=397.e(100,100)|
000209e0  3a e1 0d 7a 4f 18 e7 6a  25 3d 33 39 39 f2 65 28  |:..zO..j%=399.e(|
000209f0  31 30 30 2c 31 31 30 29  3a e1 0d 7a 50 18 e7 6a  |100,110):..zP..j|
00020a00  25 3d 33 39 38 f2 65 28  31 30 30 2c 31 32 30 29  |%=398.e(100,120)|
00020a10  3a e1 0d 7a 51 20 e7 6a  25 3e 32 35 35 84 6a 25  |:..zQ .j%>255.j%|
00020a20  3c 33 33 84 6a 25 3d 31  32 37 f2 76 28 6a 25 29  |<33.j%=127.v(j%)|
00020a30  3a e1 0d 7a 52 62 f2 41  28 67 25 2c 31 39 2c bd  |:..zRb.A(g%,19,.|
00020a40  28 6a 25 29 29 3a e7 28  3f 28 41 25 28 71 79 25  |(j%)):.(?(A%(qy%|
00020a50  29 2b 50 79 25 29 3c 3e  6a 25 84 28 4d 79 25 3f  |)+Py%)<>j%.(My%?|
00020a60  28 50 25 2a 32 29 80 33  29 3e 3d 32 84 28 4d 79  |(P%*2).3)>=2.(My|
00020a70  25 3f 28 50 25 2a 32 29  81 34 29 3c 3e 69 25 29  |%?(P%*2).4)<>i%)|
00020a80  80 28 4d 79 25 3f 28 50  25 2a 32 2b 31 29 80 32  |.(My%?(P%*2+1).2|
00020a90  29 3d 30 8c 0d 7a 53 18  4f 5f 25 3d 50 25 3a 59  |)=0..zS.O_%=P%:Y|
00020aa0  6f 25 3d a3 3a f2 57 4a  3a f2 50 5f 0d 7a 54 11  |o%=.:.WJ:.P_.zT.|
00020ab0  cd 3a f2 65 28 31 30 30  2c 31 30 30 29 0d 7a 55  |.:.e(100,100).zU|
00020ac0  05 cd 0d 7a 56 07 cb 3a  e1 0d 7a 57 19 dd a4 4f  |...zV..:..zW...O|
00020ad0  28 79 75 25 29 3a ea 50  79 25 3a e7 44 79 25 8c  |(yu%):.Py%:.Dy%.|
00020ae0  3d a3 0d 7a 58 16 f2 61  28 79 75 25 29 3a e7 21  |=..zX..a(yu%):.!|
00020af0  56 5f 3c 3e 30 8c 3d a3  0d 7a 59 59 50 79 25 2d  |V_<>0.=..zYYPy%-|
00020b00  3d 31 3a 6a 5f 25 3d 3f  28 41 25 28 71 79 25 29  |=1:j_%=?(A%(qy%)|
00020b10  2b 50 79 25 29 3a e7 50  79 25 3e 51 79 25 e7 3f  |+Py%):.Py%>Qy%.?|
00020b20  28 41 25 28 71 79 25 29  2b 50 79 25 2d 31 29 3d  |(A%(qy%)+Py%-1)=|
00020b30  32 84 3f 28 41 25 28 71  79 25 29 2b 50 79 25 2d  |2.?(A%(qy%)+Py%-|
00020b40  31 29 3d 33 8c 50 79 25  2d 3d 31 3a 6a 5f 25 3d  |1)=3.Py%-=1:j_%=|
00020b50  32 0d 7a 5a 82 c8 95 50  79 25 3e 3d 51 79 25 80  |2.zZ...Py%>=Qy%.|
00020b60  28 28 6a 5f 25 3e 30 80  6a 5f 25 3c 38 29 84 6a  |((j_%>0.j_%<8).j|
00020b70  5f 25 3d 31 31 84 6a 5f  25 3d 31 32 29 3a 50 79  |_%=11.j_%=12):Py|
00020b80  25 2d 3d 31 3a 6a 5f 25  3d 3f 28 41 25 28 71 79  |%-=1:j_%=?(A%(qy|
00020b90  25 29 2b 50 79 25 29 3a  e7 50 79 25 3e 51 79 25  |%)+Py%):.Py%>Qy%|
00020ba0  e7 3f 28 41 25 28 71 79  25 29 2b 50 79 25 2d 31  |.?(A%(qy%)+Py%-1|
00020bb0  29 3d 32 84 3f 28 41 25  28 71 79 25 29 2b 50 79  |)=2.?(A%(qy%)+Py|
00020bc0  25 2d 31 29 3d 33 8c 50  79 25 2d 3d 31 3a 6a 5f  |%-1)=3.Py%-=1:j_|
00020bd0  25 3d 32 0d 7a 5b 1d ce  3a e7 6a 5f 25 3d 39 84  |%=2.z[..:.j_%=9.|
00020be0  6a 5f 25 3d 31 30 84 6a  5f 25 3d 33 32 8c 3d b9  |j_%=10.j_%=32.=.|
00020bf0  0d 7a 5c 06 3d a3 0d 7a  5d 19 dd a4 65 28 79 75  |.z\.=..z]...e(yu|
00020c00  25 29 3a ea 50 79 25 3a  e7 44 79 25 8c 3d a3 0d  |%):.Py%:.Dy%.=..|
00020c10  7a 5e 16 f2 61 28 79 75  25 29 3a e7 21 56 5f 3c  |z^..a(yu%):.!V_<|
00020c20  3e 30 8c 3d a3 0d 7a 5f  31 50 79 25 2b 3d 31 3a  |>0.=..z_1Py%+=1:|
00020c30  6a 5f 25 3d 3f 28 41 25  28 71 79 25 29 2b 50 79  |j_%=?(A%(qy%)+Py|
00020c40  25 29 3a e7 6a 5f 25 3d  32 84 6a 5f 25 3d 33 8c  |%):.j_%=2.j_%=3.|
00020c50  50 79 25 2b 3d 31 0d 7a  60 58 c8 95 50 79 25 3c  |Py%+=1.z`X..Py%<|
00020c60  6d 25 80 28 28 6a 5f 25  3e 30 80 6a 5f 25 3c 38  |m%.((j_%>0.j_%<8|
00020c70  29 84 6a 5f 25 3d 31 31  84 6a 5f 25 3d 31 32 29  |).j_%=11.j_%=12)|
00020c80  3a 50 79 25 2b 3d 31 3a  6a 5f 25 3d 3f 28 41 25  |:Py%+=1:j_%=?(A%|
00020c90  28 71 79 25 29 2b 50 79  25 29 3a e7 6a 5f 25 3d  |(qy%)+Py%):.j_%=|
00020ca0  32 84 6a 5f 25 3d 33 8c  50 79 25 2b 3d 31 0d 7a  |2.j_%=3.Py%+=1.z|
00020cb0  61 1d ce 3a e7 6a 5f 25  3d 39 84 6a 5f 25 3d 31  |a..:.j_%=9.j_%=1|
00020cc0  30 84 6a 5f 25 3d 33 32  8c 3d b9 0d 7a 62 06 3d  |0.j_%=32.=..zb.=|
00020cd0  a3 0d 7a 63 53 dd f2 4b  75 3a ea 4b 60 25 3a e7  |..zcS..Ku:.K`%:.|
00020ce0  5f 25 3c 3d 31 f2 43 28  22 4f 70 74 69 63 61 6c  |_%<=1.C("Optical|
00020cf0  22 2c 22 53 6f 72 72 79  20 2d 20 74 68 65 20 6c  |","Sorry - the l|
00020d00  61 73 74 20 63 68 61 72  61 63 74 65 72 20 63 61  |ast character ca|
00020d10  6e 6e 6f 74 20 62 65 20  64 65 6c 65 74 65 64 2e  |nnot be deleted.|
00020d20  22 29 3a e1 0d 7a 64 0e  e7 50 25 3d 30 80 46 5f  |"):..zd..P%=0.F_|
00020d30  25 e1 0d 7a 65 1e e7 57  79 25 3c 3e 30 84 21 41  |%..ze..Wy%<>0.!A|
00020d40  3c 3e 30 84 49 79 25 8c  c8 94 5f 25 2c 6b 5f 25  |<>0.Iy%..._%,k_%|
00020d50  0d 7a 66 09 e7 46 5f 25  8c 0d 7a 67 38 4d 79 25  |.zf..F_%..zg8My%|
00020d60  3f 28 50 25 2a 32 2b 31  29 3d 4d 79 25 3f 28 50  |?(P%*2+1)=My%?(P|
00020d70  25 2a 32 2b 31 29 84 31  32 38 3a 50 25 2d 3d 31  |%*2+1).128:P%-=1|
00020d80  3a e7 50 25 3c 30 8c 50  25 3d 30 3a 46 5f 25 3d  |:.P%<0.P%=0:F_%=|
00020d90  b9 0d 7a 68 24 46 5f 25  3d a3 3a e7 57 79 25 3c  |..zh$F_%=.:.Wy%<|
00020da0  3e 30 84 21 41 3c 3e 30  84 49 79 25 8c c8 94 5f  |>0.!A<>0.Iy%..._|
00020db0  25 2c 6b 5f 25 0d 7a 69  36 cc 3a e7 a4 65 28 50  |%,k_%.zi6.:..e(P|
00020dc0  25 29 3d a3 e7 a4 4f 28  50 25 29 3d a3 8c 4d 79  |%)=...O(P%)=..My|
00020dd0  25 3f 28 50 25 2a 32 2b  33 29 3d 4d 79 25 3f 28  |%?(P%*2+3)=My%?(|
00020de0  50 25 2a 32 2b 33 29 84  31 32 38 0d 7a 6a 11 e7  |P%*2+3).128.zj..|
00020df0  a4 4f 28 50 25 29 8c 46  5f 25 3d b9 0d 7a 6b cb  |.O(P%).F_%=..zk.|
00020e00  41 25 3d 61 25 2b 28 50  25 2b 31 29 2a 38 3a 42  |A%=a%+(P%+1)*8:B|
00020e10  25 3d 61 25 2b 50 25 2a  38 3a 43 25 3d 28 5f 25  |%=a%+P%*8:C%=(_%|
00020e20  2d 50 25 2d 31 29 2a 38  3a d6 54 3a 41 25 3d 4d  |-P%-1)*8:.T:A%=M|
00020e30  79 25 2b 28 50 25 2b 31  29 2a 32 3a 42 25 3d 4d  |y%+(P%+1)*2:B%=M|
00020e40  79 25 2b 50 25 2a 32 3a  43 25 3d 28 5f 25 2d 50  |y%+P%*2:C%=(_%-P|
00020e50  25 2d 31 29 2a 32 3a d6  54 3a 41 25 3d 50 75 25  |%-1)*2:.T:A%=Pu%|
00020e60  2b 50 25 2b 31 3a 42 25  3d 50 75 25 2b 50 25 3a  |+P%+1:B%=Pu%+P%:|
00020e70  43 25 3d 5f 25 2d 50 25  2d 31 3a d6 54 3a e7 57  |C%=_%-P%-1:.T:.W|
00020e80  79 25 3c 3e 30 84 21 41  3c 3e 30 84 49 79 25 8c  |y%<>0.!A<>0.Iy%.|
00020e90  c8 94 5f 25 2c 6b 5f 25  3a 6b 5f 25 2d 3d 31 3a  |.._%,k_%:k_%-=1:|
00020ea0  21 55 2d 3d 31 3a 21 64  2d 3d 31 3a 6f 75 25 2d  |!U-=1:!d-=1:ou%-|
00020eb0  3d 31 3a 4c 6e 25 2d 3d  31 3a 68 6e 25 2d 3d 31  |=1:Ln%-=1:hn%-=1|
00020ec0  3a 61 6e 25 2d 3d 31 0d  7a 6c 33 5f 25 2d 3d 31  |:an%-=1.zl3_%-=1|
00020ed0  3a e3 50 4a 25 3d 30 b8  65 5f 25 3a e7 4b 79 25  |:.PJ%=0.e_%:.Ky%|
00020ee0  21 28 50 4a 25 2a 34 29  3e 50 25 8c 4b 79 25 21  |!(PJ%*4)>P%.Ky%!|
00020ef0  28 50 4a 25 2a 34 29 2d  3d 31 0d 7a 6d 11 ed 3a  |(PJ%*4)-=1.zm..:|
00020f00  e7 46 5f 25 3d a3 50 25  2d 3d 31 0d 7a 6e 15 e7  |.F_%=.P%-=1.zn..|
00020f10  50 25 3d 2d 31 8c 50 25  3d 30 3a 46 5f 25 3d b9  |P%=-1.P%=0:F_%=.|
00020f20  0d 7a 6f 13 e7 50 25 3e  3d 5f 25 8c 50 25 3d 5f  |.zo..P%>=_%.P%=_|
00020f30  25 2d 31 0d 7a 70 1c cd  3a 6d 25 3d 51 79 25 3a  |%-1.zp..:m%=Qy%:|
00020f40  f2 72 3a f2 61 28 50 25  29 3a e7 76 79 25 8c 0d  |.r:.a(P%):.vy%..|
00020f50  7a 71 14 4b 60 25 3d 33  36 2a 28 62 4a 25 2b 74  |zq.K`%=36*(bJ%+t|
00020f60  5f 25 29 0d 7a 72 13 cc  3a 4b 60 25 3d 4c 5f 25  |_%).zr..:K`%=L_%|
00020f70  2a 74 5f 25 2b 38 0d 7a  73 2e cd 3a c8 99 26 34  |*t_%+8.zs..:..&4|
00020f80  30 30 64 31 2c 65 25 2c  30 2c 2d 31 3c 3c 33 30  |00d1,e%,0,-1<<30|
00020f90  2c 31 3c 3c 33 30 2c 2d  4b 60 25 3a f2 4f 28 50  |,1<<30,-K`%:.O(P|
00020fa0  25 29 3a e1 0d 7a 74 1e  dd f2 54 61 28 6a 25 29  |%):..zt...Ta(j%)|
00020fb0  3a ea 4b 60 25 3a e7 50  25 3c 30 84 61 5f 25 3d  |:.K`%:.P%<0.a_%=|
00020fc0  a3 e1 0d 7a 75 1e e7 57  79 25 3c 3e 30 84 21 41  |...zu..Wy%<>0.!A|
00020fd0  3c 3e 30 84 49 79 25 8c  c8 94 5f 25 2c 6b 5f 25  |<>0.Iy%..._%,k_%|
00020fe0  0d 7a 76 10 e7 6a 25 3d  33 32 8c 6a 25 3d 31 34  |.zv..j%=32.j%=14|
00020ff0  0d 7a 77 0f e7 46 5f 25  3d a3 50 25 2b 3d 31 0d  |.zw..F_%=.P%+=1.|
00021000  7a 78 12 e7 50 25 3e 5f  25 8c 50 25 3d 5f 25 2d  |zx..P%>_%.P%=_%-|
00021010  31 0d 7a 79 de f2 61 28  50 25 29 3a 55 6c 25 3d  |1.zy..a(P%):Ul%=|
00021020  3f 28 4d 79 25 2b 50 25  2a 32 29 81 34 3a 41 25  |?(My%+P%*2).4:A%|
00021030  3d 61 25 2b 50 25 2a 38  3a 42 25 3d 61 25 2b 28  |=a%+P%*8:B%=a%+(|
00021040  50 25 2b 31 29 2a 38 3a  43 25 3d 28 5f 25 2d 50  |P%+1)*8:C%=(_%-P|
00021050  25 29 2a 38 3a d6 51 3a  41 25 3d 4d 79 25 2b 50  |%)*8:.Q:A%=My%+P|
00021060  25 2a 32 3a 42 25 3d 4d  79 25 2b 28 50 25 2b 31  |%*2:B%=My%+(P%+1|
00021070  29 2a 32 3a 43 25 3d 28  5f 25 2d 50 25 29 2a 32  |)*2:C%=(_%-P%)*2|
00021080  3a d6 51 3a 41 25 3d 50  75 25 2b 50 25 3a 42 25  |:.Q:A%=Pu%+P%:B%|
00021090  3d 50 75 25 2b 50 25 2b  31 3a 43 25 3d 5f 25 2d  |=Pu%+P%+1:C%=_%-|
000210a0  50 25 3a d6 51 3a e7 57  79 25 3c 3e 30 84 21 41  |P%:.Q:.Wy%<>0.!A|
000210b0  3c 3e 30 84 49 79 25 8c  c8 94 5f 25 2c 6b 5f 25  |<>0.Iy%..._%,k_%|
000210c0  3a 6b 5f 25 2b 3d 31 3a  21 55 2b 3d 31 3a 21 64  |:k_%+=1:!U+=1:!d|
000210d0  2b 3d 31 3a 6f 75 25 2b  3d 31 3a 4c 6e 25 2b 3d  |+=1:ou%+=1:Ln%+=|
000210e0  31 3a 68 6e 25 2b 3d 31  3a 61 6e 25 2b 3d 31 0d  |1:hn%+=1:an%+=1.|
000210f0  7a 7a 0f 5f 25 2b 3d 31  3a e7 46 5f 25 8c 0d 7a  |zz._%+=1:.F_%..z|
00021100  7b 9f 4d 79 25 3f 28 50  25 2a 32 29 3d 4d 79 25  |{.My%?(P%*2)=My%|
00021110  3f 28 50 25 2a 32 2b 32  29 3a 4d 79 25 3f 28 50  |?(P%*2+2):My%?(P|
00021120  25 2a 32 2b 31 29 3d 32  2b 28 4d 79 25 3f 28 50  |%*2+1)=2+(My%?(P|
00021130  25 2a 32 2b 33 29 80 32  32 35 29 3a 21 28 61 25  |%*2+3).225):!(a%|
00021140  2b 50 25 2a 38 29 3d 21  28 61 25 2b 28 50 25 2b  |+P%*8)=!(a%+(P%+|
00021150  31 29 2a 38 29 3a 21 28  61 25 2b 50 25 2a 38 2b  |1)*8):!(a%+P%*8+|
00021160  34 29 3d 21 28 61 25 2b  28 50 25 2b 31 29 2a 38  |4)=!(a%+(P%+1)*8|
00021170  2b 34 29 3a e3 50 4a 25  3d 30 b8 65 5f 25 3a e7  |+4):.PJ%=0.e_%:.|
00021180  4b 79 25 21 28 50 4a 25  2a 34 29 3e 50 25 8c 4b  |Ky%!(PJ%*4)>P%.K|
00021190  79 25 21 28 50 4a 25 2a  34 29 2b 3d 31 0d 7a 7c  |y%!(PJ%*4)+=1.z||
000211a0  0b ed 3a 46 5f 25 3d a3  0d 7a 7d a2 cc 3a 4d 79  |..:F_%=..z}..:My|
000211b0  25 3f 28 50 25 2a 32 29  3d 4d 79 25 3f 28 50 25  |%?(P%*2)=My%?(P%|
000211c0  2a 32 2d 32 29 3a 4d 79  25 3f 28 50 25 2a 32 2b  |*2-2):My%?(P%*2+|
000211d0  31 29 3d 32 2b 28 4d 79  25 3f 28 50 25 2a 32 2d  |1)=2+(My%?(P%*2-|
000211e0  31 29 80 32 32 35 29 3a  21 28 61 25 2b 50 25 2a  |1).225):!(a%+P%*|
000211f0  38 29 3d 21 28 61 25 2b  28 50 25 2d 31 29 2a 38  |8)=!(a%+(P%-1)*8|
00021200  29 3a 21 28 61 25 2b 50  25 2a 38 2b 34 29 3d 21  |):!(a%+P%*8+4)=!|
00021210  28 61 25 2b 28 50 25 2d  31 29 2a 38 2b 34 29 3a  |(a%+(P%-1)*8+4):|
00021220  e3 50 4a 25 3d 30 b8 65  5f 25 3a e7 4b 79 25 21  |.PJ%=0.e_%:.Ky%!|
00021230  28 50 4a 25 2a 34 29 3e  3d 50 25 8c 4b 79 25 21  |(PJ%*4)>=P%.Ky%!|
00021240  28 50 4a 25 2a 34 29 2b  3d 31 0d 7a 7e 05 ed 0d  |(PJ%*4)+=1.z~...|
00021250  7a 7f 51 cd 3a 3f 28 41  25 28 71 79 25 29 2b 50  |z.Q.:?(A%(qy%)+P|
00021260  79 25 29 3d 6a 25 3a 50  75 25 3f 50 25 3d 6a 25  |y%)=j%:Pu%?P%=j%|
00021270  3a e7 28 4d 79 25 3f 28  50 25 2a 32 2b 31 29 80  |:.(My%?(P%*2+1).|
00021280  31 29 8c 4d 79 25 3f 28  50 25 2a 32 2b 33 29 3d  |1).My%?(P%*2+3)=|
00021290  4d 79 25 3f 28 50 25 2a  32 2b 33 29 80 32 32 36  |My%?(P%*2+3).226|
000212a0  0d 7a 80 13 6d 25 3d 51  79 25 3a f2 72 3a e7 76  |.z..m%=Qy%:.r:.v|
000212b0  79 25 8c 0d 7a 81 14 4b  60 25 3d 33 36 2a 28 62  |y%..z..K`%=36*(b|
000212c0  4a 25 2b 74 5f 25 29 0d  7a 82 13 cc 3a 4b 60 25  |J%+t_%).z...:K`%|
000212d0  3d 4c 5f 25 2a 74 5f 25  2b 38 0d 7a 83 27 cd 3a  |=L_%*t_%+8.z.'.:|
000212e0  c8 99 26 34 30 30 64 31  2c 65 25 2c 30 2c 2d 31  |..&400d1,e%,0,-1|
000212f0  3c 3c 33 30 2c 31 3c 3c  33 30 2c 2d 4b 60 25 3a  |<<30,1<<30,-K`%:|
00021300  e1 0d 7a 84 17 dd f2 51  75 28 50 25 2c 6a 25 29  |..z....Qu(P%,j%)|
00021310  3a e7 50 25 3d 2d 31 e1  0d 7a 85 1b 78 6c 25 2b  |:.P%=-1..z..xl%+|
00021320  3d 31 3a e7 78 6c 25 3e  7a 6e 25 2d 31 8c 78 6c  |=1:.xl%>zn%-1.xl|
00021330  25 3d 30 0d 7a 86 1b 7a  60 25 2b 3d 31 3a e7 7a  |%=0.z..z`%+=1:.z|
00021340  60 25 3e 7a 6e 25 8c 7a  60 25 3d 7a 6e 25 0d 7a  |`%>zn%.z`%=zn%.z|
00021350  87 26 48 25 28 78 6c 25  29 3d 6a 25 3a 49 25 28  |.&H%(xl%)=j%:I%(|
00021360  78 6c 25 29 3d 50 25 3a  4c 25 28 78 6c 25 29 3d  |xl%)=P%:L%(xl%)=|
00021370  69 25 3a e1 0d 7a 88 15  dd f2 63 6c 3a ea 54 75  |i%:..z....cl:.Tu|
00021380  25 3a e7 7a 60 25 3d 30  e1 0d 7a 89 46 50 41 25  |%:.z`%=0..z.FPA%|
00021390  3d 48 25 28 78 6c 25 29  3a 51 42 25 3d 49 25 28  |=H%(xl%):QB%=I%(|
000213a0  78 6c 25 29 3a 50 5a 25  3d 4c 25 28 78 6c 25 29  |xl%):PZ%=L%(xl%)|
000213b0  3a 7a 60 25 2d 3d 31 3a  78 6c 25 2d 3d 31 3a e7  |:z`%-=1:xl%-=1:.|
000213c0  78 6c 25 3c 30 8c 78 6c  25 3d 7a 6e 25 2d 31 0d  |xl%<0.xl%=zn%-1.|
000213d0  7a 8a 0f e7 51 42 25 3c  30 8c ef 37 3a e1 0d 7a  |z...QB%<0..7:..z|
000213e0  8b 66 f2 74 5f 28 50 5a  25 2b 31 29 3a 41 25 3d  |.f.t_(PZ%+1):A%=|
000213f0  41 25 28 75 25 29 3a 42  25 3d 50 41 25 3a 43 25  |A%(u%):B%=PA%:C%|
00021400  3d 69 25 3a 54 75 25 3d  ba 28 4a 4a 29 3a f2 4a  |=i%:Tu%=.(JJ):.J|
00021410  28 73 4a 25 29 3a f2 4a  28 4e 5f 25 29 3a f2 5f  |(sJ%):.J(N_%):._|
00021420  3a f2 70 3a f2 65 28 31  30 30 2c 32 30 30 29 3a  |:.p:.e(100,200):|
00021430  f2 41 79 28 51 42 25 29  3a 4f 5f 25 3d 51 42 25  |.Ay(QB%):O_%=QB%|
00021440  2b 31 3a e1 0d 7a 8c 25  dd f2 65 79 28 55 79 25  |+1:..z.%..ey(Uy%|
00021450  29 3a ea 54 75 25 3a e7  6d 25 3d 30 58 75 25 3d  |):.Tu%:.m%=0Xu%=|
00021460  30 3a 74 5f 25 3d 30 3a  e1 0d 7a 8d 09 e7 76 79  |0:t_%=0:..z...vy|
00021470  25 8c 0d 7a 8e 5f 42 25  3d 30 3a 43 25 3d 6d 25  |%..z._B%=0:C%=m%|
00021480  3a 44 25 3d 41 25 28 71  79 25 29 3a 45 25 3d 70  |:D%=A%(qy%):E%=p|
00021490  5f 25 3a 58 75 25 3d ba  28 56 4a 29 3a 42 25 3d  |_%:Xu%=.(VJ):B%=|
000214a0  51 79 25 3a 43 25 3d 6d  25 3a 44 25 3d 41 25 28  |Qy%:C%=m%:D%=A%(|
000214b0  71 79 25 29 3a 45 25 3d  70 5f 25 3a 74 5f 25 3d  |qy%):E%=p_%:t_%=|
000214c0  58 75 25 2d ba 28 56 4a  29 3a e7 50 25 3e 2d 31  |Xu%-.(VJ):.P%>-1|
000214d0  8c 0d 7a 8f 21 41 25 3d  50 25 3a d6 67 3a 75 4a  |..z.!A%=P%:.g:uJ|
000214e0  25 3d 21 62 3a 62 4a 25  3d 21 75 3a 50 79 25 3d  |%=!b:bJ%=!u:Py%=|
000214f0  21 77 0d 7a 90 05 cd 0d  7a 91 28 cc 3a c8 99 26  |!w.z....z.(.:..&|
00021500  34 30 30 38 39 2c 2c 70  5f 25 2c 4c 5f 25 b8 2c  |40089,,p_%,L_%.,|
00021510  41 60 25 2c 4a 60 25 3a  e7 51 79 25 3d 30 8c 0d  |A`%,J`%:.Qy%=0..|
00021520  7a 92 09 74 5f 25 3d 30  0d 7a 93 8b cc 3a 55 69  |z..t_%=0.z...:Ui|
00021530  25 3d a4 44 28 51 79 25  29 3a 47 25 3d 41 25 28  |%=.D(Qy%):G%=A%(|
00021540  4b 69 25 29 3a 48 25 3d  4d 25 3a 21 47 79 3d 55  |Ki%):H%=M%:!Gy=U|
00021550  69 25 3a 21 48 79 3d 41  60 25 3a 21 4c 79 3d 4a  |i%:!Hy=A`%:!Ly=J|
00021560  60 25 3a 21 6c 79 3d 31  3c 3c 31 36 3a 21 47 5f  |`%:!ly=1<<16:!G_|
00021570  3d 31 3c 3c 31 36 3a 21  57 79 3d 70 5f 25 3a 21  |=1<<16:!Wy=p_%:!|
00021580  50 79 3d 4c 5f 25 3a 21  5f 79 3d 4c 25 2b 31 36  |Py=L_%:!_y=L%+16|
00021590  3a 21 54 79 3d 58 25 2d  4c 5f 25 3a 54 75 25 3d  |:!Ty=X%-L_%:Tu%=|
000215a0  21 61 3a 74 5f 25 3d ba  28 67 79 29 3a 21 61 3d  |!a:t_%=.(gy):!a=|
000215b0  54 75 25 0d 7a 94 83 cd  3a f2 4a 79 3a 47 25 3d  |Tu%.z...:.Jy:G%=|
000215c0  41 25 28 4b 69 25 29 3a  48 25 3d 4d 25 3a 21 47  |A%(Ki%):H%=M%:!G|
000215d0  79 3d 55 69 25 3a 21 48  79 3d 41 60 25 3a 21 4c  |y=Ui%:!Hy=A`%:!L|
000215e0  79 3d 4a 60 25 3a 21 6c  79 3d 31 3c 3c 31 36 3a  |y=J`%:!ly=1<<16:|
000215f0  21 47 5f 3d 31 3c 3c 31  36 3a 21 57 79 3d 70 5f  |!G_=1<<16:!Wy=p_|
00021600  25 3a 21 50 79 3d 4c 5f  25 3a 21 5f 79 3d 4c 25  |%:!Py=L_%:!_y=L%|
00021610  2b 31 36 3a 21 54 79 3d  58 25 2d 4c 5f 25 3a 54  |+16:!Ty=X%-L_%:T|
00021620  75 25 3d 21 61 3a 58 75  25 3d ba 28 67 79 29 3a  |u%=!a:Xu%=.(gy):|
00021630  21 61 3d 54 75 25 0d 7a  95 07 cd 3a e1 0d 7a 96  |!a=Tu%.z...:..z.|
00021640  14 dd f2 6a 75 3a e7 a4  50 28 30 29 3d 6f 60 25  |...ju:..P(0)=o`%|
00021650  e1 0d 7a 97 2e f2 42 28  63 42 25 2c 6f 60 25 29  |..z...B(cB%,o`%)|
00021660  3a 6f 60 25 3d a4 50 28  30 29 3a f2 42 28 63 42  |:o`%=.P(0):.B(cB|
00021670  25 2c 6f 60 25 29 3a 21  6a 3d 6f 60 25 3a e1 0d  |%,o`%):!j=o`%:..|
00021680  7a 98 1b dd f2 54 79 3a  e7 57 79 25 3c 3e 30 84  |z....Ty:.Wy%<>0.|
00021690  21 41 3c 3e 30 84 49 79  25 e1 0d 7a 99 1d ea 5f  |!A<>0.Iy%..z..._|
000216a0  65 25 2c 53 79 25 3a 76  41 25 3d 76 79 25 3a f2  |e%,Sy%:vA%=vy%:.|
000216b0  63 3a e7 6a 79 25 8c 0d  7a 9a 36 78 79 25 3d 50  |c:.jy%..z.6xy%=P|
000216c0  25 3a 50 25 3d 2d 31 3a  f2 64 3a 50 25 3d 78 79  |%:P%=-1:.d:P%=xy|
000216d0  25 3a 6a 79 25 3d a3 3a  f2 4f 28 50 25 29 3a f2  |%:jy%=.:.O(P%):.|
000216e0  4d 28 77 25 29 3a f2 4d  28 56 5f 25 29 0d 7a 9b  |M(w%):.M(V_%).z.|
000216f0  15 cd 3a 46 5f 25 3d a3  3a e7 76 79 25 3d a3 f2  |..:F_%=.:.vy%=..|
00021700  78 79 0d 7a 9c 14 e7 67  79 25 3f 56 75 25 3c 3e  |xy.z...gy%?Vu%<>|
00021710  30 f2 72 61 3a e1 0d 7a  9d 14 e7 61 5f 25 3d a3  |0.ra:..z...a_%=.|
00021720  84 6d 25 2d 51 79 25 3c  32 e1 0d 7a 9e 12 5f 65  |.m%-Qy%<2..z.._e|
00021730  25 3d b9 3a e7 43 79 25  3e 3d 30 8c 0d 7a 9f 25  |%=.:.Cy%>=0..z.%|
00021740  e3 53 79 25 3d 30 b8 43  79 25 3a e7 53 25 28 53  |.Sy%=0.Cy%:.S%(S|
00021750  79 25 29 8c 5f 65 25 3d  a3 3a 53 79 25 3d 43 79  |y%)._e%=.:Sy%=Cy|
00021760  25 0d 7a a0 05 ed 0d 7a  a1 0b cd 3a e7 5f 65 25  |%.z....z...:._e%|
00021770  8c 0d 7a a2 1b 24 68 42  25 3d 22 28 55 6e 6e 61  |..z..$hB%="(Unna|
00021780  6d 65 64 29 22 2b bd 30  3a f2 55 5f 0d 7a a3 94  |med)"+.0:.U_.z..|
00021790  cd 3a 41 42 25 3d b9 3a  44 79 25 3d b9 3a f2 41  |.:AB%=.:Dy%=.:.A|
000217a0  28 67 25 2c 33 2c 22 53  74 6f 70 20 74 65 61 63  |(g%,3,"Stop teac|
000217b0  68 69 6e 67 22 29 3a f2  43 5f 28 45 64 69 74 5f  |hing"):.C_(Edit_|
000217c0  4d 65 6e 75 25 2c 32 2c  22 53 74 6f 70 20 74 65  |Menu%,2,"Stop te|
000217d0  61 63 68 69 6e 67 8b 46  35 22 29 3a f2 46 69 3a  |aching.F5"):.Fi:|
000217e0  f2 4e 28 52 5f 25 2c 22  54 79 70 65 20 74 65 61  |.N(R_%,"Type tea|
000217f0  63 68 69 6e 67 20 66 6f  6e 74 20 27 22 2b 41 24  |ching font '"+A$|
00021800  28 69 25 29 2b 22 27 22  29 3a 50 25 2d 3d 31 3a  |(i%)+"'"):P%-=1:|
00021810  e7 50 25 3c 30 8c 50 25  3d 30 3a 46 5f 25 3d b9  |.P%<0.P%=0:F_%=.|
00021820  0d 7a a4 29 f2 65 28 31  30 30 2c 31 30 30 29 3a  |.z.).e(100,100):|
00021830  4f 5f 25 3d 30 3a 78 6c  25 3d 30 3a 7a 60 25 3d  |O_%=0:xl%=0:z`%=|
00021840  30 3a 59 42 25 3d b9 3a  e1 0d 7a a5 0f dd f2 79  |0:YB%=.:..z....y|
00021850  3a e7 44 79 25 3d a3 e1  0d 7a a6 13 7a 79 25 3d  |:.Dy%=...z..zy%=|
00021860  a3 3a e7 a4 53 28 7a 75  25 29 8c 0d 7a a7 24 f2  |.:..S(zu%)..z.$.|
00021870  4d 28 7a 75 25 29 3a f2  6d 3a e7 47 61 25 c8 99  |M(zu%):.m:.Ga%..|
00021880  26 34 30 30 64 30 2c 2c  30 3a 47 61 25 3d a3 0d  |&400d0,,0:Ga%=..|
00021890  7a a8 09 7a 79 25 3d b9  0d 7a a9 0b cd 3a e7 7a  |z..zy%=..z...:.z|
000218a0  79 25 e1 0d 7a aa 7d 4f  5f 25 3d 2d 31 3a 44 79  |y%..z.}O_%=-1:Dy|
000218b0  25 3d a3 3a f2 41 28 67  25 2c 33 2c 22 54 79 70  |%=.:.A(g%,3,"Typ|
000218c0  65 20 74 65 61 63 68 22  29 3a f2 43 5f 28 45 64  |e teach"):.C_(Ed|
000218d0  69 74 5f 4d 65 6e 75 25  2c 32 2c 22 54 79 70 65  |it_Menu%,2,"Type|
000218e0  20 74 65 61 63 68 20 20  20 8b 46 35 22 29 3a f2  | teach   .F5"):.|
000218f0  47 28 54 6f 25 2c 61 6b  25 2c 78 6b 25 29 3a f2  |G(To%,ak%,xk%):.|
00021900  5f 69 3a f2 47 28 65 25  2c 2d 31 2c 2d 31 29 3a  |_i:.G(e%,-1,-1):|
00021910  f2 4f 28 50 25 29 3a e7  76 41 25 3d a3 f2 78 79  |.O(P%):.vA%=..xy|
00021920  0d 7a ab 12 59 42 25 3d  a3 3a f2 4a 28 65 25 29  |.z..YB%=.:.J(e%)|
00021930  3a e1 0d 7a ac 24 dd f2  48 4a 28 6c 6c 25 2c 68  |:..z.$..HJ(ll%,h|
00021940  5f 25 29 3a e7 57 79 25  3c 3e 30 84 21 41 3c 3e  |_%):.Wy%<>0.!A<>|
00021950  30 84 49 79 25 e1 0d 7a  ad 5c ea 4a 72 25 2c 46  |0.Iy%..z.\.Jr%,F|
00021960  72 25 2c 59 72 25 2c 49  72 25 2c 43 72 25 2c 53  |r%,Yr%,Ir%,Cr%,S|
00021970  72 25 2c 52 72 25 2c 56  72 25 2c 48 65 25 2c 49  |r%,Rr%,Vr%,He%,I|
00021980  65 25 2c 60 6b 25 2c 5a  65 25 2c 75 4a 25 2c 62  |e%,`k%,Ze%,uJ%,b|
00021990  4a 25 2c 50 79 25 2c 68  50 25 3a e7 6c 6c 25 3d  |J%,Py%,hP%:.ll%=|
000219a0  68 5f 25 84 6c 6c 25 3d  2d 31 84 68 5f 25 3d 2d  |h_%.ll%=-1.h_%=-|
000219b0  31 e1 0d 7a ae 49 e7 94  28 6c 6c 25 2d 68 5f 25  |1..z.I..(ll%-h_%|
000219c0  29 3e 31 f2 43 28 22 4f  70 74 69 63 61 6c 22 2c  |)>1.C("Optical",|
000219d0  22 59 6f 75 20 63 61 6e  20 6f 6e 6c 79 20 6a 6f  |"You can only jo|
000219e0  69 6e 20 61 64 6a 61 63  65 6e 74 20 63 68 61 72  |in adjacent char|
000219f0  61 63 74 65 72 73 21 22  29 3a e1 0d 7a af d7 4a  |acters!"):..z..J|
00021a00  72 25 3d 21 28 61 25 2b  6c 6c 25 2a 38 29 80 36  |r%=!(a%+ll%*8).6|
00021a10  35 35 33 35 3a 46 72 25  3d 21 28 61 25 2b 32 2b  |5535:Fr%=!(a%+2+|
00021a20  6c 6c 25 2a 38 29 80 36  35 35 33 35 3a 43 72 25  |ll%*8).65535:Cr%|
00021a30  3d 21 28 61 25 2b 34 2b  6c 6c 25 2a 38 29 80 36  |=!(a%+4+ll%*8).6|
00021a40  35 35 33 35 3a 53 72 25  3d 21 28 61 25 2b 36 2b  |5535:Sr%=!(a%+6+|
00021a50  6c 6c 25 2a 38 29 80 36  35 35 33 35 3a 59 72 25  |ll%*8).65535:Yr%|
00021a60  3d 21 28 61 25 2b 68 5f  25 2a 38 29 80 36 35 35  |=!(a%+h_%*8).655|
00021a70  33 35 3a 49 72 25 3d 21  28 61 25 2b 32 2b 68 5f  |35:Ir%=!(a%+2+h_|
00021a80  25 2a 38 29 80 36 35 35  33 35 3a 52 72 25 3d 21  |%*8).65535:Rr%=!|
00021a90  28 61 25 2b 34 2b 68 5f  25 2a 38 29 80 36 35 35  |(a%+4+h_%*8).655|
00021aa0  33 35 3a 56 72 25 3d 21  28 61 25 2b 36 2b 68 5f  |35:Vr%=!(a%+6+h_|
00021ab0  25 2a 38 29 80 36 35 35  33 35 3a e7 4a 72 25 3c  |%*8).65535:.Jr%<|
00021ac0  59 72 25 48 65 25 3d 4a  72 25 8b 48 65 25 3d 59  |Yr%He%=Jr%.He%=Y|
00021ad0  72 25 0d 7a b0 1b e7 46  72 25 3e 49 72 25 49 65  |r%.z...Fr%>Ir%Ie|
00021ae0  25 3d 46 72 25 8b 49 65  25 3d 49 72 25 0d 7a b1  |%=Fr%.Ie%=Ir%.z.|
00021af0  1b e7 43 72 25 3c 52 72  25 60 6b 25 3d 43 72 25  |..Cr%<Rr%`k%=Cr%|
00021b00  8b 60 6b 25 3d 52 72 25  0d 7a b2 1b e7 53 72 25  |.`k%=Rr%.z...Sr%|
00021b10  3e 56 72 25 5a 65 25 3d  53 72 25 8b 5a 65 25 3d  |>Vr%Ze%=Sr%.Ze%=|
00021b20  56 72 25 0d 7a b3 15 e7  6c 6c 25 3e 68 5f 25 c8  |Vr%.z...ll%>h_%.|
00021b30  94 6c 6c 25 2c 68 5f 25  0d 7a b4 87 50 25 3d 6c  |.ll%,h_%.z..P%=l|
00021b40  6c 25 3a 41 25 3d 50 25  3a 42 25 3d 51 79 25 3a  |l%:A%=P%:B%=Qy%:|
00021b50  43 25 3d 6d 25 3a 44 25  3d 41 25 28 71 79 25 29  |C%=m%:D%=A%(qy%)|
00021b60  3a 45 25 3d 70 5f 25 3a  d6 67 3a 75 4a 25 3d 21  |:E%=p_%:.g:uJ%=!|
00021b70  62 3a 62 4a 25 3d 21 75  3a 50 79 25 3d 21 77 3a  |b:bJ%=!u:Py%=!w:|
00021b80  41 25 3d 68 5f 25 3a 42  25 3d 51 79 25 3a 43 25  |A%=h_%:B%=Qy%:C%|
00021b90  3d 6d 25 3a 44 25 3d 41  25 28 71 79 25 29 3a 45  |=m%:D%=A%(qy%):E|
00021ba0  25 3d 70 5f 25 3a d6 67  3a e7 57 79 25 3c 3e 30  |%=p_%:.g:.Wy%<>0|
00021bb0  84 21 41 3c 3e 30 8c c8  94 5f 25 2c 6b 5f 25 0d  |.!A<>0..._%,k_%.|
00021bc0  7a b5 fa 68 50 25 3d 21  77 3a 21 28 61 25 2b 6c  |z..hP%=!w:!(a%+l|
00021bd0  6c 25 2a 38 29 3d 48 65  25 2b 49 65 25 2a 36 35  |l%*8)=He%+Ie%*65|
00021be0  35 33 36 3a 21 28 61 25  2b 34 2b 6c 6c 25 2a 38  |536:!(a%+4+ll%*8|
00021bf0  29 3d 60 6b 25 2b 5a 65  25 2a 36 35 35 33 36 3a  |)=`k%+Ze%*65536:|
00021c00  43 5f 25 3d 41 25 28 71  79 25 29 3a 41 25 3d 43  |C_%=A%(qy%):A%=C|
00021c10  5f 25 2b 50 79 25 2b 32  3a 42 25 3d 43 5f 25 2b  |_%+Py%+2:B%=C_%+|
00021c20  50 79 25 2b 31 3a 43 25  3d 6d 25 2d 50 79 25 2d  |Py%+1:C%=m%-Py%-|
00021c30  31 3a 41 25 3d 50 75 25  2b 50 25 2b 32 3a 42 25  |1:A%=Pu%+P%+2:B%|
00021c40  3d 50 75 25 2b 50 25 2b  31 3a 43 25 3d 5f 25 2d  |=Pu%+P%+1:C%=_%-|
00021c50  50 25 2d 31 3a d6 54 3a  41 25 3d 4d 79 25 2b 28  |P%-1:.T:A%=My%+(|
00021c60  50 25 2b 32 29 2a 32 3a  42 25 3d 4d 79 25 2b 28  |P%+2)*2:B%=My%+(|
00021c70  50 25 2b 31 29 2a 32 3a  43 25 3d 28 5f 25 2d 50  |P%+1)*2:C%=(_%-P|
00021c80  25 2d 31 29 2a 32 3a d6  54 3a 41 25 3d 61 25 2b  |%-1)*2:.T:A%=a%+|
00021c90  28 50 25 2b 32 29 2a 38  3a 42 25 3d 61 25 2b 28  |(P%+2)*8:B%=a%+(|
00021ca0  50 25 2b 31 29 2a 38 3a  43 25 3d 28 5f 25 2d 50  |P%+1)*8:C%=(_%-P|
00021cb0  25 2d 31 29 2a 38 3a d6  54 0d 7a b6 2d e7 57 79  |%-1)*8:.T.z.-.Wy|
00021cc0  25 3c 3e 30 84 21 41 3c  3e 30 8c c8 94 5f 25 2c  |%<>0.!A<>0..._%,|
00021cd0  6b 5f 25 3a 6b 5f 25 2d  3d 31 3a 21 55 2d 3d 31  |k_%:k_%-=1:!U-=1|
00021ce0  3a 21 64 2d 3d 31 0d 7a  b7 39 5f 25 2d 3d 31 3a  |:!d-=1.z.9_%-=1:|
00021cf0  6d 25 2d 3d 31 3a e3 50  4a 25 3d 30 b8 65 5f 25  |m%-=1:.PJ%=0.e_%|
00021d00  3a e7 4b 79 25 21 28 50  4a 25 2a 34 29 3e 50 25  |:.Ky%!(PJ%*4)>P%|
00021d10  8c 4b 79 25 21 28 50 4a  25 2a 34 29 2d 3d 31 0d  |.Ky%!(PJ%*4)-=1.|
00021d20  7a b8 15 ed 3a 4e 42 25  3d b9 3a f2 7a 79 3a e7  |z...:NB%=.:.zy:.|
00021d30  76 79 25 8c 0d 7a b9 26  6d 25 3d 51 79 25 3a 58  |vy%..z.&m%=Qy%:X|
00021d40  75 25 3d 74 5f 25 3a 65  5f 25 3d 47 69 25 3a f2  |u%=t_%:e_%=Gi%:.|
00021d50  72 3a f2 65 79 28 70 5f  25 29 0d 7a ba 23 cc 3a  |r:.ey(p_%).z.#.:|
00021d60  6d 25 3d 51 79 25 3a 58  75 25 3d 74 5f 25 3a 65  |m%=Qy%:Xu%=t_%:e|
00021d70  5f 25 3d 47 69 25 3a f2  4a 79 3a f2 72 0d 7a bb  |_%=Gi%:.Jy:.r.z.|
00021d80  20 cd 3a f2 4a 28 65 25  29 3a f2 4a 28 52 5f 25  | .:.J(e%):.J(R_%|
00021d90  29 3a f2 74 3a 78 79 25  3d 50 25 3a e1 0d 7a bc  |):.t:xy%=P%:..z.|
00021da0  3c dd f2 46 69 3a ea 59  41 25 2c 64 5a 25 2c 54  |<..Fi:.YA%,dZ%,T|
00021db0  75 25 3a 4d 25 21 30 3d  65 25 3a c8 99 26 34 30  |u%:M%!0=e%:..&40|
00021dc0  30 63 63 2c 2c 4d 25 3a  e7 28 4d 25 21 33 32 80  |0cc,,M%:.(M%!32.|
00021dd0  28 31 3c 3c 31 38 29 29  8c 0d 7a bd 09 47 4f 25  |(1<<18))..z..GO%|
00021de0  3d b9 0d 7a be 61 cc 3a  47 4f 25 3d a3 3a 53 75  |=..z.a.:GO%=.:Su|
00021df0  25 21 30 3d 5a 25 21 34  3a 53 75 25 21 34 3d 5a  |%!0=Z%!4:Su%!4=Z|
00021e00  25 21 38 3a 53 75 25 21  38 3d 5a 25 21 31 32 3a  |%!8:Su%!8=Z%!12:|
00021e10  53 75 25 21 31 32 3d 5a  25 21 31 36 3a 53 75 25  |Su%!12=Z%!16:Su%|
00021e20  21 31 36 3d 5a 25 21 32  30 3a 53 75 25 21 32 30  |!16=Z%!20:Su%!20|
00021e30  3d 5a 25 21 32 34 3a 53  75 25 21 32 34 3d 5a 25  |=Z%!24:Su%!24=Z%|
00021e40  21 32 38 0d 7a bf f8 cd  3a 4a 6e 25 21 30 3d 65  |!28.z...:Jn%!0=e|
00021e50  25 3a c8 99 26 34 30 30  63 62 2c 2c 4a 6e 25 3a  |%:..&400cb,,Jn%:|
00021e60  5a 25 21 30 3d 65 25 3a  c8 99 26 34 30 30 63 62  |Z%!0=e%:..&400cb|
00021e70  2c 2c 5a 25 3a 65 65 25  3d 5a 25 21 32 34 3a 65  |,,Z%:ee%=Z%!24:e|
00021e80  25 3d 4d 6f 25 3a 5a 25  21 30 3d 65 25 3a c8 99  |%=Mo%:Z%!0=e%:..|
00021e90  26 34 30 30 63 35 2c 2c  5a 25 3a 6f 69 25 3d 28  |&400c5,,Z%:oi%=(|
00021ea0  31 32 30 2f 28 56 25 2a  53 4a 25 2a 32 2e 35 29  |120/(V%*SJ%*2.5)|
00021eb0  29 2a 31 30 30 3a c8 94  6f 69 25 2c 55 25 3a f2  |)*100:..oi%,U%:.|
00021ec0  4c 28 52 5f 25 2c 31 3c  3c 31 36 2c a4 4a 28 74  |L(R_%,1<<16,.J(t|
00021ed0  25 2a 56 25 29 29 3a c8  94 6f 69 25 2c 55 25 3a  |%*V%)):..oi%,U%:|
00021ee0  f2 4d 28 4a 6e 25 21 30  29 3a f2 42 79 3a 4d 25  |.M(Jn%!0):.By:M%|
00021ef0  21 30 3d 52 5f 25 3a c8  99 26 34 30 30 63 62 2c  |!0=R_%:..&400cb,|
00021f00  2c 4d 25 3a 4d 25 21 34  3d 5a 25 21 34 3a 4d 25  |,M%:M%!4=Z%!4:M%|
00021f10  21 31 32 3d 5a 25 21 31  32 2b 33 38 3a 4d 25 21  |!12=Z%!12+38:M%!|
00021f20  38 3d 5a 25 21 31 36 2b  32 3a 4d 25 21 31 36 3d  |8=Z%!16+2:M%!16=|
00021f30  5a 25 21 31 36 2b 34 2b  31 31 38 0d 7a c0 5c 4d  |Z%!16+4+118.z.\M|
00021f40  25 21 32 38 3d 65 25 3a  c8 99 35 33 2c 2d 31 2c  |%!28=e%:..53,-1,|
00021f50  35 b8 2c 2c 64 5a 25 3a  c8 99 35 33 2c 2d 31 2c  |5.,,dZ%:..53,-1,|
00021f60  31 32 b8 2c 2c 44 61 25  3a 44 61 25 3d 44 61 25  |12.,,Da%:Da%=Da%|
00021f70  2a 28 31 3c 3c 64 5a 25  29 2b 32 3a e7 5a 25 21  |*(1<<dZ%)+2:.Z%!|
00021f80  31 36 2b 31 36 30 3e 44  61 25 5a 25 21 31 36 3d  |16+160>Da%Z%!16=|
00021f90  44 61 25 2d 31 36 30 0d  7a c1 12 e7 4d 25 21 31  |Da%-160.z...M%!1|
00021fa0  36 2b 34 30 3e 44 61 25  8c 0d 7a c2 49 4d 25 21  |6+40>Da%..z.IM%!|
00021fb0  38 3d 44 61 25 2d 31 35  38 3a 4d 25 21 31 36 3d  |8=Da%-158:M%!16=|
00021fc0  44 61 25 2d 33 38 3a 5a  25 21 38 3d 44 61 25 2d  |Da%-38:Z%!8=Da%-|
00021fd0  31 35 38 2d 34 2d 28 5a  25 21 31 36 2d 5a 25 21  |158-4-(Z%!16-Z%!|
00021fe0  38 29 3a 5a 25 21 31 36  3d 44 61 25 2d 31 35 38  |8):Z%!16=Da%-158|
00021ff0  2d 34 0d 7a c3 13 cd 3a  e7 5a 25 21 38 3c 30 5a  |-4.z...:.Z%!8<0Z|
00022000  25 21 38 3d 30 0d 7a c4  44 c8 99 35 33 2c 2d 31  |%!8=0.z.D..53,-1|
00022010  2c 34 b8 2c 2c 59 41 25  3a c8 99 35 33 2c 2d 31  |,4.,,YA%:..53,-1|
00022020  2c 31 31 b8 2c 2c 62 75  25 3a 62 75 25 3d 62 75  |,11.,,bu%:bu%=bu|
00022030  25 2a 28 31 3c 3c 59 41  25 29 3a e7 5a 25 21 31  |%*(1<<YA%):.Z%!1|
00022040  32 2b 34 32 3e 62 75 25  8c 0d 7a c5 3e 69 75 25  |2+42>bu%..z.>iu%|
00022050  3d 5a 25 21 31 32 2b 34  32 2d 62 75 25 3a 5a 25  |=Z%!12+42-bu%:Z%|
00022060  21 34 2d 3d 69 75 25 3a  5a 25 21 31 32 2d 3d 69  |!4-=iu%:Z%!12-=i|
00022070  75 25 3a 4d 25 21 34 2d  3d 69 75 25 3a 4d 25 21  |u%:M%!4-=iu%:M%!|
00022080  31 32 2d 3d 69 75 25 0d  7a c6 17 cd 3a e7 5a 25  |12-=iu%.z...:.Z%|
00022090  21 32 38 3d 2d 31 4d 25  21 32 38 3d 2d 31 0d 7a  |!28=-1M%!28=-1.z|
000220a0  c7 15 e7 5a 25 21 32 38  3d 2d 32 4d 25 21 32 38  |...Z%!28=-2M%!28|
000220b0  3d 2d 32 0d 7a c8 39 c8  99 26 34 30 30 63 35 2c  |=-2.z.9..&400c5,|
000220c0  2c 4d 25 3a 5a 25 21 32  38 3d 52 5f 25 3a 5a 25  |,M%:Z%!28=R_%:Z%|
000220d0  21 32 34 3d 65 65 25 3a  c8 99 26 34 30 30 63 35  |!24=ee%:..&400c5|
000220e0  2c 2c 5a 25 3a 71 6f 25  3d b9 3a e1 0d 7a c9 5e  |,,Z%:qo%=.:..z.^|
000220f0  dd f2 5f 69 3a ea 63 41  25 3a 63 41 25 3d 4a 6e  |.._i:.cA%:cA%=Jn|
00022100  25 21 30 3a 4a 6e 25 21  30 3d 65 25 3a c8 99 26  |%!0:Jn%!0=e%:..&|
00022110  34 30 30 63 62 2c 2c 4a  6e 25 3a 65 25 3d 63 41  |400cb,,Jn%:e%=cA|
00022120  25 3a 4a 6e 25 21 30 3d  65 25 3a c8 99 26 34 30  |%:Jn%!0=e%:..&40|
00022130  30 63 35 2c 2c 4a 6e 25  3a f2 4d 28 4d 6f 25 29  |0c5,,Jn%:.M(Mo%)|
00022140  3a f2 4d 28 52 5f 25 29  3a e1 0d 7a ca 15 dd f2  |:.M(R_%):..z....|
00022150  63 61 3a ea 6f 25 3a e7  41 79 25 3d 2d 31 e1 0d  |ca:.o%:.Ay%=-1..|
00022160  7a cb 30 6f 25 3d 30 3a  f5 3a e7 51 25 21 28 6f  |z.0o%=0:.:.Q%!(o|
00022170  25 2a 31 36 29 3e 6e 25  2d 32 30 84 51 25 21 28  |%*16)>n%-20.Q%!(|
00022180  6f 25 2a 31 36 2b 34 29  3e 74 25 2d 32 30 8c 0d  |o%*16+4)>t%-20..|
00022190  7a cc 0c e7 41 79 25 3e  6f 25 8c 0d 7a cd 7d e3  |z...Ay%>o%..z.}.|
000221a0  4e 25 3d 6f 25 b8 41 79  25 2d 31 3a 51 25 21 28  |N%=o%.Ay%-1:Q%!(|
000221b0  4e 25 2a 31 36 29 3d 51  25 21 28 4e 25 2a 31 36  |N%*16)=Q%!(N%*16|
000221c0  2b 31 36 29 3a 51 25 21  28 4e 25 2a 31 36 2b 38  |+16):Q%!(N%*16+8|
000221d0  29 3d 51 25 21 28 4e 25  2a 31 36 2b 32 34 29 3a  |)=Q%!(N%*16+24):|
000221e0  51 25 21 28 4e 25 2a 31  36 2b 34 29 3d 51 25 21  |Q%!(N%*16+4)=Q%!|
000221f0  28 4e 25 2a 31 36 2b 32  30 29 3a 51 25 21 28 4e  |(N%*16+20):Q%!(N|
00022200  25 2a 31 36 2b 31 32 29  3d 51 25 21 28 4e 25 2a  |%*16+12)=Q%!(N%*|
00022210  31 36 2b 32 38 29 3a ed  0d 7a ce 0c cd 3a 41 79  |16+28):..z...:Ay|
00022220  25 2d 3d 31 0d 7a cf 2a  cc 3a e7 51 25 21 28 6f  |%-=1.z.*.:.Q%!(o|
00022230  25 2a 31 36 2b 38 29 3e  6e 25 2d 31 8c 51 25 21  |%*16+8)>n%-1.Q%!|
00022240  28 6f 25 2a 31 36 2b 38  29 3d 6e 25 2d 31 0d 7a  |(o%*16+8)=n%-1.z|
00022250  d0 2a e7 51 25 21 28 6f  25 2a 31 36 2b 31 32 29  |.*.Q%!(o%*16+12)|
00022260  3e 74 25 2d 31 8c 51 25  21 28 6f 25 2a 31 36 2b  |>t%-1.Q%!(o%*16+|
00022270  31 32 29 3d 74 25 2d 31  0d 7a d1 15 cd 3a 6f 25  |12)=t%-1.z...:o%|
00022280  2b 3d 31 3a fd 6f 25 3e  41 79 25 3a e1 0d 7a d2  |+=1:.o%>Ay%:..z.|
00022290  27 dd f2 6b 5f 3a 62 5f  25 3d 30 3a 53 79 25 3d  |'..k_:b_%=0:Sy%=|
000222a0  30 3a f5 3a e7 53 25 28  53 79 25 29 8c 62 5f 25  |0:.:.S%(Sy%).b_%|
000222b0  3d 53 79 25 0d 7a d3 49  53 79 25 2b 3d 31 3a fd  |=Sy%.z.ISy%+=1:.|
000222c0  53 25 28 53 79 25 2d 31  29 84 53 79 25 3e 43 79  |S%(Sy%-1).Sy%>Cy|
000222d0  25 3a f2 41 28 4e 5f 25  2c 33 2c 41 24 28 62 5f  |%:.A(N_%,3,A$(b_|
000222e0  25 29 29 3a f2 71 3a f2  50 79 28 4e 5f 25 2c 73  |%)):.q:.Py(N_%,s|
000222f0  25 2d 36 34 2c 76 25 2b  36 34 29 3a e1 0d 7a d4  |%-64,v%+64):..z.|
00022300  14 dd f2 44 4a 28 6b 4a  25 29 3a c8 8e 6b 4a 25  |...DJ(kJ%):..kJ%|
00022310  ca 0d 7a d5 26 c9 31 3a  e3 70 25 3d 30 b8 31 3a  |..z.&.1:.p%=0.1:|
00022320  4b 61 25 21 28 70 25 2a  34 29 3d 74 5a 25 21 28  |Ka%!(p%*4)=tZ%!(|
00022330  70 25 2a 34 29 3a ed 0d  7a d6 26 c9 33 3a e3 70  |p%*4):..z.&.3:.p|
00022340  25 3d 30 b8 33 3a 4b 61  25 21 28 70 25 2a 34 29  |%=0.3:Ka%!(p%*4)|
00022350  3d 4a 41 25 21 28 70 25  2a 34 29 3a ed 0d 7a d7  |=JA%!(p%*4):..z.|
00022360  28 c9 31 35 3a e3 70 25  3d 30 b8 31 35 3a 4b 61  |(.15:.p%=0.15:Ka|
00022370  25 21 28 70 25 2a 34 29  3d 64 41 25 21 28 70 25  |%!(p%*4)=dA%!(p%|
00022380  2a 34 29 3a ed 0d 7a d8  07 cb 3a e1 0d 7a d9 9f  |*4):..z...:..z..|
00022390  dd f2 41 6c 3a f2 58 28  22 4d 65 73 73 61 67 65  |..Al:.X("Message|
000223a0  20 66 72 6f 6d 20 4f 70  74 69 63 61 6c 22 2c 22  | from Optical","|
000223b0  49 74 20 69 73 20 6e 6f  74 20 70 6f 73 73 69 62  |It is not possib|
000223c0  6c 65 20 74 6f 20 74 72  61 6e 73 66 65 72 20 74  |le to transfer t|
000223d0  65 78 74 20 77 69 74 68  20 74 68 69 73 20 76 65  |ext with this ve|
000223e0  72 73 69 6f 6e 20 6f 66  20 4f 70 74 69 63 61 6c  |rsion of Optical|
000223f0  2e 20 46 6f 72 20 61 20  66 75 6c 6c 20 76 65 72  |. For a full ver|
00022400  73 69 6f 6e 20 70 6c 65  61 73 65 20 63 6f 6e 74  |sion please cont|
00022410  61 63 74 20 4e 65 75 72  6f 74 72 6f 6e 20 53 6f  |act Neurotron So|
00022420  66 74 77 61 72 65 2e 22  29 3a e1 0d 7a da 33 dd  |ftware."):..z.3.|
00022430  f2 6a 5f 3a 5a 25 21 30  3d 30 3a 5a 25 21 34 3d  |.j_:Z%!0=0:Z%!4=|
00022440  2d 28 34 30 2a 67 5f 25  29 3a e7 5a 25 21 34 3e  |-(40*g_%):.Z%!4>|
00022450  2d 33 32 34 8c 5a 25 21  34 3d 2d 33 32 34 0d 7a  |-324.Z%!4=-324.z|
00022460  db 26 5a 25 21 38 3d 33  34 34 3a 5a 25 21 31 32  |.&Z%!8=344:Z%!12|
00022470  3d 30 3a c8 99 26 34 30  30 64 37 2c 6a 4a 25 2c  |=0:..&400d7,jJ%,|
00022480  5a 25 3a e1 0d 7a dc 15  dd f2 44 75 28 62 25 2c  |Z%:..z....Du(b%,|
00022490  49 25 29 3a c8 8e 49 25  ca 0d 7a dd 0a c9 30 3a  |I%):..I%..z...0:|
000224a0  f2 71 69 0d 7a de 0e c9  31 3a f2 4d 28 49 4a 25  |.qi.z...1:.M(IJ%|
000224b0  29 0d 7a df 14 c9 36 3a  66 6e 25 3d a4 5a 28 49  |).z...6:fn%=.Z(I|
000224c0  4a 25 2c 36 29 0d 7a e0  07 cb 3a e1 0d 7a e1 83  |J%,6).z...:..z..|
000224d0  dd f2 4e 69 28 62 25 2c  49 25 29 3a 5a 25 21 30  |..Ni(b%,I%):Z%!0|
000224e0  3d 6a 4a 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |=jJ%:..&400cb,,Z|
000224f0  25 3a 58 25 3d 5a 25 21  31 36 2d 5a 25 21 32 34  |%:X%=Z%!16-Z%!24|
00022500  3a c8 99 26 34 30 30 63  66 2c 2c 5a 25 3a 76 25  |:..&400cf,,Z%:v%|
00022510  3d 5a 25 21 34 3a 75 79  25 3d 58 25 2d 76 25 3a  |=Z%!4:uy%=X%-v%:|
00022520  68 4a 25 3d 28 75 79 25  2d 34 29 81 34 30 3a 44  |hJ%=(uy%-4).40:D|
00022530  4f 25 3d 46 6c 25 3a e7  68 4a 25 3e 3d 67 5f 25  |O%=Fl%:.hJ%>=g_%|
00022540  8c 46 6c 25 3d 2d 31 8b  46 6c 25 3d 68 4a 25 0d  |.Fl%=-1.Fl%=hJ%.|
00022550  7a e2 0e e7 44 4f 25 3c  3e 46 6c 25 8c 0d 7a e3  |z...DO%<>Fl%..z.|
00022560  91 5a 25 21 30 3d 6a 4a  25 3a 5a 25 21 34 3d 30  |.Z%!0=jJ%:Z%!4=0|
00022570  3a 5a 25 21 38 3d 2d 67  5f 25 2a 34 30 2d 34 30  |:Z%!8=-g_%*40-40|
00022580  3a 5a 25 21 31 32 3d 33  34 34 3a 5a 25 21 31 36  |:Z%!12=344:Z%!16|
00022590  3d 30 3a c8 99 26 34 30  30 63 39 2c 2c 5a 25 b8  |=0:..&400c9,,Z%.|
000225a0  64 25 3a 4c 25 3d 5a 25  21 34 2d 5a 25 21 32 30  |d%:L%=Z%!4-Z%!20|
000225b0  3a 58 25 3d 5a 25 21 31  36 2d 5a 25 21 32 34 3a  |:X%=Z%!16-Z%!24:|
000225c0  c8 95 64 25 3a f2 57 28  33 2c 38 29 3a e7 44 4f  |..d%:.W(3,8):.DO|
000225d0  25 3e 3d 30 c8 93 c8 90  4c 25 2c 58 25 2d 34 2d  |%>=0....L%,X%-4-|
000225e0  34 30 2a 44 4f 25 2c 33  36 38 2c 2d 33 36 0d 7a  |40*DO%,368,-36.z|
000225f0  e4 25 e7 46 6c 25 3e 3d  30 c8 93 c8 90 4c 25 2c  |.%.Fl%>=0....L%,|
00022600  58 25 2d 34 2d 34 30 2a  46 6c 25 2c 33 36 38 2c  |X%-4-40*Fl%,368,|
00022610  2d 33 36 0d 7a e5 15 c8  99 26 34 30 30 63 61 2c  |-36.z....&400ca,|
00022620  2c 5a 25 b8 64 25 3a ce  0d 7a e6 24 cd 3a e7 46  |,Z%.d%:..z.$.:.F|
00022630  6c 25 3d 2d 31 f2 50 28  49 4a 25 2c 30 2c b9 29  |l%=-1.P(IJ%,0,.)|
00022640  8b f2 50 28 49 4a 25 2c  30 2c a3 29 0d 7a e7 05  |..P(IJ%,0,.).z..|
00022650  e1 0d 7a e8 64 dd f2 6b  69 28 59 25 2c 49 25 2c  |..z.d..ki(Y%,I%,|
00022660  79 25 2c 68 25 29 3a 43  6b 25 3d a3 3a e7 67 5f  |y%,h%):Ck%=.:.g_|
00022670  25 3e 3d 32 30 8c f2 43  28 22 4f 70 74 69 63 61  |%>=20..C("Optica|
00022680  6c 22 2c 22 4f 6e 6c 79  20 32 30 20 4d 4c 45 20  |l","Only 20 MLE |
00022690  61 70 70 6c 69 63 61 74  69 6f 6e 73 20 61 72 65  |applications are|
000226a0  20 61 6c 6c 6f 77 65 64  20 61 74 20 6f 6e 63 65  | allowed at once|
000226b0  21 22 29 3a e1 0d 7a e9  13 e7 59 25 3d 49 4a 25  |!"):..z...Y%=IJ%|
000226c0  84 59 25 3d 6a 4a 25 e1  0d 7a ea da 5a 25 3f 30  |.Y%=jJ%..z..Z%?0|
000226d0  3d 31 3a 5a 25 3f 31 3d  79 25 83 32 35 36 3a 5a  |=1:Z%?1=y%.256:Z|
000226e0  25 3f 32 3d 79 25 81 32  35 36 3a 5a 25 3f 33 3d  |%?2=y%.256:Z%?3=|
000226f0  68 25 83 32 35 36 3a 5a  25 3f 34 3d 68 25 81 32  |h%.256:Z%?4=h%.2|
00022700  35 36 3a 5a 25 3f 35 3d  79 25 83 32 35 36 3a 5a  |56:Z%?5=y%.256:Z|
00022710  25 3f 36 3d 79 25 81 32  35 36 3a 5a 25 3f 37 3d  |%?6=y%.256:Z%?7=|
00022720  68 25 83 32 35 36 3a 5a  25 3f 38 3d 68 25 81 32  |h%.256:Z%?8=h%.2|
00022730  35 36 3a c8 99 37 2c 32  31 2c 5a 25 3a 5a 25 21  |56:..7,21,Z%:Z%!|
00022740  30 3d 32 30 3a 5a 25 21  31 32 3d 30 3a c8 99 26  |0=20:Z%!12=0:..&|
00022750  34 30 30 65 37 2c 31 39  2c 5a 25 2c 59 25 b8 2c  |400e7,19,Z%,Y%.,|
00022760  2c 78 69 25 3a e7 78 69  25 3d 72 6e 25 f2 43 28  |,xi%:.xi%=rn%.C(|
00022770  22 4f 70 74 69 63 61 6c  22 2c 22 4f 70 74 69 63  |"Optical","Optic|
00022780  61 6c 20 63 61 6e 6e 6f  74 20 62 65 20 6c 69 6e  |al cannot be lin|
00022790  6b 65 64 20 74 6f 20 69  74 73 65 6c 66 21 22 29  |ked to itself!")|
000227a0  3a e1 0d 7a eb 7e 56 6f  25 3d b9 3a 5a 25 21 30  |:..z.~Vo%=.:Z%!0|
000227b0  3d 32 34 3a 5a 25 21 31  32 3d 30 3a 5a 25 21 31  |=24:Z%!12=0:Z%!1|
000227c0  36 3d 26 34 30 30 63 36  3a 5a 25 21 32 30 3d 78  |6=&400c6:Z%!20=x|
000227d0  69 25 3a c8 99 26 34 30  30 65 37 2c 31 37 2c 5a  |i%:..&400e7,17,Z|
000227e0  25 2c 30 3a 5a 25 21 30  3d 79 25 3a 5a 25 21 34  |%,0:Z%!0=y%:Z%!4|
000227f0  3d 68 25 3a 5a 25 21 38  3d 32 3a 5a 25 21 31 32  |=h%:Z%!8=2:Z%!12|
00022800  3d 59 25 3a 5a 25 21 31  36 3d 49 25 3a c8 99 26  |=Y%:Z%!16=I%:..&|
00022810  34 30 30 65 37 2c 36 2c  5a 25 2c 78 69 25 3a e1  |400e7,6,Z%,xi%:.|
00022820  0d 7a ec 74 dd f2 76 61  28 5a 79 24 29 3a 56 6f  |.z.t..va(Zy$):Vo|
00022830  25 3d a3 3a c8 99 26 34  30 30 63 66 2c 2c 5a 25  |%=.:..&400cf,,Z%|
00022840  3a 59 25 3d 5a 25 21 31  32 3a e7 59 25 3d 41 6f  |:Y%=Z%!12:.Y%=Ao|
00022850  25 8c c8 99 26 34 30 30  64 34 2c 2d 31 3a f2 43  |%...&400d4,-1:.C|
00022860  28 22 4f 70 74 69 63 61  6c 22 2c 22 54 68 69 73  |("Optical","This|
00022870  20 77 69 6e 64 6f 77 20  68 61 73 20 6e 6f 20 6d  | window has no m|
00022880  65 6e 75 20 66 6f 72 20  6c 69 6e 6b 69 6e 67 21  |enu for linking!|
00022890  22 29 3a e1 0d 7a ed 61  4d 24 28 67 5f 25 29 3d  |"):..z.aM$(g_%)=|
000228a0  5a 79 24 3a 5a 25 21 30  3d 59 25 3a c8 99 26 34  |Zy$:Z%!0=Y%:..&4|
000228b0  30 30 63 62 2c 2c 5a 25  3a 47 25 28 67 5f 25 29  |00cb,,Z%:G%(g_%)|
000228c0  3d 5a 25 21 31 32 2d 5a  25 21 34 3a 50 25 28 67  |=Z%!12-Z%!4:P%(g|
000228d0  5f 25 29 3d 5a 25 21 31  36 2d 5a 25 21 38 3a 5a  |_%)=Z%!16-Z%!8:Z|
000228e0  24 28 67 5f 25 29 3d a4  73 28 59 25 29 3a e7 67  |$(g_%)=.s(Y%):.g|
000228f0  5f 25 3e 30 8c 0d 7a ee  4d e3 71 25 3d 30 b8 67  |_%>0..z.M.q%=0.g|
00022900  5f 25 2d 31 3a e7 50 25  28 71 25 29 3d 50 25 28  |_%-1:.P%(q%)=P%(|
00022910  67 5f 25 29 80 4d 24 28  71 25 29 3d 4d 24 28 67  |g_%).M$(q%)=M$(g|
00022920  5f 25 29 80 5a 24 28 71  25 29 3d 5a 24 28 67 5f  |_%).Z$(q%)=Z$(g_|
00022930  25 29 8c 71 25 3d 67 5f  25 2d 31 3a 67 5f 25 2d  |%).q%=g_%-1:g_%-|
00022940  3d 31 0d 7a ef 05 ed 0d  7a f0 29 cd 3a 67 5f 25  |=1.z....z.).:g_%|
00022950  2b 3d 31 3a c8 99 26 34  30 30 64 34 2c 2d 31 3a  |+=1:..&400d4,-1:|
00022960  f2 6a 5f 3a f2 4a 28 6a  4a 25 29 3a f2 6d 3a e1  |.j_:.J(jJ%):.m:.|
00022970  0d 7a f1 14 dd f2 52 6c  3a ea 71 25 3a e7 67 5f  |.z....Rl:.q%:.g_|
00022980  25 3c 31 e1 0d 7a f2 60  c8 99 26 34 30 30 65 36  |%<1..z.`..&400e6|
00022990  2c 37 3a e3 71 25 3d 30  b8 67 5f 25 2d 31 3a ec  |,7:.q%=0.g_%-1:.|
000229a0  4c 25 2b 32 2c 58 25 2d  38 2d 34 30 2a 71 25 3a  |L%+2,X%-8-40*q%:|
000229b0  f1 4d 24 28 71 25 29 3a  ed 3a e7 46 6c 25 3e 3d  |.M$(q%):.:.Fl%>=|
000229c0  30 8c f2 57 28 33 2c 38  29 3a c8 93 c8 90 4c 25  |0..W(3,8):....L%|
000229d0  2c 58 25 2d 34 2d 34 30  2a 46 6c 25 2c 33 36 38  |,X%-4-40*Fl%,368|
000229e0  2c 2d 33 36 0d 7a f3 05  e1 0d 7a f4 1b dd f2 71  |,-36.z....z....q|
000229f0  69 3a ea 71 25 3a e7 46  6c 25 3d 2d 31 84 67 5f  |i:.q%:.Fl%=-1.g_|
00022a00  25 3d 30 e1 0d 7a f5 32  f2 50 28 49 4a 25 2c 30  |%=0..z.2.P(IJ%,0|
00022a10  2c b9 29 3a e7 46 6c 25  3d 67 5f 25 2d 31 8c 67  |,.):.Fl%=g_%-1.g|
00022a20  5f 25 2d 3d 31 3a 46 6c  25 3d 2d 31 3a f2 4a 28  |_%-=1:Fl%=-1:.J(|
00022a30  6a 4a 25 29 3a e1 0d 7a  f6 6b e3 71 25 3d 46 6c  |jJ%):..z.k.q%=Fl|
00022a40  25 b8 67 5f 25 2d 32 3a  4d 24 28 71 25 29 3d 4d  |%.g_%-2:M$(q%)=M|
00022a50  24 28 71 25 2b 31 29 3a  5a 24 28 71 25 29 3d 5a  |$(q%+1):Z$(q%)=Z|
00022a60  24 28 71 25 2b 31 29 3a  47 25 28 71 25 29 3d 47  |$(q%+1):G%(q%)=G|
00022a70  25 28 71 25 2b 31 29 3a  50 25 28 71 25 29 3d 50  |%(q%+1):P%(q%)=P|
00022a80  25 28 71 25 2b 31 29 3a  ed 3a 67 5f 25 2d 3d 31  |%(q%+1):.:g_%-=1|
00022a90  3a 46 6c 25 3d 2d 31 3a  f2 4a 28 6a 4a 25 29 3a  |:Fl%=-1:.J(jJ%):|
00022aa0  e1 0d 7a f7 6d dd f2 55  75 3a 46 25 3d ae 28 22  |..z.m..Uu:F%=.("|
00022ab0  3c 4f 70 74 63 6c 50 72  6f 24 44 69 72 3e 2e 4d  |<OptclPro$Dir>.M|
00022ac0  4c 45 53 65 74 74 73 22  29 3a f1 23 46 25 2c 67  |LESetts"):.#F%,g|
00022ad0  5f 25 3a e3 71 25 3d 30  b8 31 39 3a f1 23 46 25  |_%:.q%=0.19:.#F%|
00022ae0  2c 4d 24 28 71 25 29 2c  5a 24 28 71 25 29 2c 47  |,M$(q%),Z$(q%),G|
00022af0  25 28 71 25 29 2c 50 25  28 71 25 29 3a ed 3a f1  |%(q%),P%(q%):.:.|
00022b00  23 46 25 2c 66 6e 25 3a  d9 23 46 25 3a e1 0d 7a  |#F%,fn%:.#F%:..z|
00022b10  f8 7b dd f2 70 75 3a 46  25 3d 8e 28 22 3c 4f 70  |.{..pu:F%=.("<Op|
00022b20  74 63 6c 50 72 6f 24 44  69 72 3e 2e 4d 4c 45 53  |tclPro$Dir>.MLES|
00022b30  65 74 74 73 22 29 3a e8  23 46 25 2c 67 5f 25 3a  |etts"):.#F%,g_%:|
00022b40  e3 71 25 3d 30 b8 31 39  3a e8 23 46 25 2c 4d 24  |.q%=0.19:.#F%,M$|
00022b50  28 71 25 29 2c 5a 24 28  71 25 29 2c 47 25 28 71  |(q%),Z$(q%),G%(q|
00022b60  25 29 2c 50 25 28 71 25  29 3a ed 3a e8 23 46 25  |%),P%(q%):.:.#F%|
00022b70  2c 66 6e 25 3a d9 23 46  25 3a f2 53 28 49 4a 25  |,fn%:.#F%:.S(IJ%|
00022b80  2c 36 2c 66 6e 25 29 3a  e1 0d 7a f9 48 dd f2 57  |,6,fn%):..z.H..W|
00022b90  4a 3a ea 4f 25 2c 57 70  25 2c 51 70 25 2c 72 6f  |J:.O%,Wp%,Qp%,ro|
00022ba0  25 2c 6a 65 25 2c 59 79  25 2c 75 4a 25 2c 50 79  |%,je%,Yy%,uJ%,Py|
00022bb0  25 2c 62 4a 25 2c 5a 41  25 2c 47 6c 25 2c 54 75  |%,bJ%,ZA%,Gl%,Tu|
00022bc0  25 3a e7 76 79 25 3d a3  8c 4f 5f 25 3d 2d 31 3a  |%:.vy%=..O_%=-1:|
00022bd0  e1 0d 7a fa 0b e7 58 6e  25 3d a3 e1 0d 7a fb 12  |..z...Xn%=...z..|
00022be0  e7 4f 5f 25 3e 3d 5f 25  8c 4f 5f 25 3d 30 0d 7a  |.O_%>=_%.O_%=0.z|
00022bf0  fc 1f e7 28 4d 79 25 3f  28 4f 5f 25 2a 32 2b 31  |...(My%?(O_%*2+1|
00022c00  29 80 32 29 8c 4f 5f 25  2b 3d 31 3a e1 0d 7a fd  |).2).O_%+=1:..z.|
00022c10  2e c8 99 26 34 30 36 63  30 3a e7 21 28 61 25 2b  |...&406c0:.!(a%+|
00022c20  4f 5f 25 2a 38 29 3d 2d  31 80 21 28 61 25 2b 34  |O_%*8)=-1.!(a%+4|
00022c30  2b 4f 5f 25 2a 38 29 3d  2d 31 8c 0d 7a fe 43 c8  |+O_%*8)=-1..z.C.|
00022c40  95 21 28 61 25 2b 4f 5f  25 2a 38 29 3d 2d 31 80  |.!(a%+O_%*8)=-1.|
00022c50  21 28 61 25 2b 34 2b 4f  5f 25 2a 38 29 3d 2d 31  |!(a%+4+O_%*8)=-1|
00022c60  80 4f 5f 25 3c 5f 25 3a  4f 5f 25 2b 3d 31 3a ce  |.O_%<_%:O_%+=1:.|
00022c70  3a e7 4f 5f 25 3e 3d 5f  25 4f 5f 25 3d 30 0d 7a  |:.O_%>=_%O_%=0.z|
00022c80  ff 0e cd 3a e7 4f 5f 25  3d 2d 31 e1 0d 7b 00 d4  |...:.O_%=-1..{..|
00022c90  6f 79 25 3d 28 21 28 61  25 2b 4f 5f 25 2a 38 29  |oy%=(!(a%+O_%*8)|
00022ca0  80 36 35 35 33 35 29 2d  31 3a 64 4a 25 3d 28 21  |.65535)-1:dJ%=(!|
00022cb0  28 61 25 2b 32 2b 4f 5f  25 2a 38 29 80 36 35 35  |(a%+2+O_%*8).655|
00022cc0  33 35 29 2b 31 3a 54 5f  25 3d 28 21 28 61 25 2b  |35)+1:T_%=(!(a%+|
00022cd0  34 2b 4f 5f 25 2a 38 29  80 36 35 35 33 35 29 2d  |4+O_%*8).65535)-|
00022ce0  31 3a 59 75 25 3d 28 21  28 61 25 2b 36 2b 4f 5f  |1:Yu%=(!(a%+6+O_|
00022cf0  25 2a 38 29 80 36 35 35  33 35 29 2b 31 3a 21 4a  |%*8).65535)+1:!J|
00022d00  5f 3d 6f 79 25 3a 21 54  5f 3d 64 4a 25 3a 21 60  |_=oy%:!T_=dJ%:!`|
00022d10  79 3d 54 5f 25 3a 21 51  5f 3d 59 75 25 3a 59 79  |y=T_%:!Q_=Yu%:Yy|
00022d20  25 3d 28 94 28 64 4a 25  2d 6f 79 25 29 2b 31 29  |%=(.(dJ%-oy%)+1)|
00022d30  2a 28 94 28 59 75 25 2d  54 5f 25 29 2b 31 29 3a  |*(.(Yu%-T_%)+1):|
00022d40  e7 5a 25 28 4a 5f 25 29  3c 59 79 25 8c 4b 25 3d  |.Z%(J_%)<Yy%.K%=|
00022d50  a4 41 28 59 79 25 2c 4a  5f 25 29 8b 4b 25 3d b9  |.A(Yy%,J_%).K%=.|
00022d60  0d 7b 01 24 e7 5a 25 28  60 79 25 29 3c 59 79 25  |.{.$.Z%(`y%)<Yy%|
00022d70  8c 4b 25 3d a4 41 28 59  79 25 2c 60 79 25 29 8b  |.K%=.A(Yy%,`y%).|
00022d80  4b 25 3d b9 0d 7b 02 1e  e7 4b 25 3d a3 4f 5f 25  |K%=..{...K%=.O_%|
00022d90  2b 3d 31 3a 4b 25 3d a4  41 28 31 2c 4a 5f 25 29  |+=1:K%=.A(1,J_%)|
00022da0  3a e1 0d 7b 03 2f 41 25  3d 55 79 25 2b 31 3a 47  |:..{./A%=Uy%+1:G|
00022db0  25 3d 41 25 28 4a 5f 25  29 3a 48 25 3d 41 25 28  |%=A%(J_%):H%=A%(|
00022dc0  60 25 29 2b 48 75 25 3a  d6 41 5f 3a e7 59 6f 25  |`%)+Hu%:.A_:.Yo%|
00022dd0  8c 0d 7b 04 11 e7 21 28  41 25 28 75 25 29 29 3e  |..{...!(A%(u%))>|
00022de0  30 8c 0d 7b 05 3c 42 25  3d 5f 25 2d 31 3a 43 25  |0..{.<B%=_%-1:C%|
00022df0  3d 61 25 3a 59 79 25 3d  ba 28 4a 79 29 3a e7 5a  |=a%:Yy%=.(Jy):.Z|
00022e00  25 28 4a 5f 25 29 3c 59  79 25 8c 4b 25 3d a4 41  |%(J_%)<Yy%.K%=.A|
00022e10  28 59 79 25 2c 4a 5f 25  29 8b 4b 25 3d b9 0d 7b  |(Yy%,J_%).K%=..{|
00022e20  06 24 e7 5a 25 28 60 79  25 29 3c 59 79 25 8c 4b  |.$.Z%(`y%)<Yy%.K|
00022e30  25 3d a4 41 28 59 79 25  2c 60 79 25 29 8b 4b 25  |%=.A(Yy%,`y%).K%|
00022e40  3d b9 0d 7b 07 34 e7 4b  25 3d a3 4f 5f 25 2b 3d  |=..{.4.K%=.O_%+=|
00022e50  31 3a 4b 25 3d a4 41 28  31 2c 4a 5f 25 29 3a 4b  |1:K%=.A(1,J_%):K|
00022e60  25 3d a4 41 28 31 2c 60  79 25 29 3a c8 99 26 34  |%=.A(1,`y%):..&4|
00022e70  30 36 63 31 3a e1 0d 7b  08 be 44 25 3d 4b 79 25  |06c1:..{..D%=Ky%|
00022e80  3a 45 25 3d 4f 5f 25 3a  21 4d 3d ba 28 41 79 29  |:E%=O_%:!M=.(Ay)|
00022e90  3a 21 60 3d 41 25 28 75  25 29 2b 34 3a 21 56 79  |:!`=A%(u%)+4:!Vy|
00022ea0  3d 41 25 28 75 75 25 29  3a 21 6d 3d 55 79 25 2b  |=A%(uu%):!m=Uy%+|
00022eb0  31 3a 21 72 3d 41 25 28  4a 5f 25 29 3a 21 66 3d  |1:!r=A%(J_%):!f=|
00022ec0  41 25 28 60 79 25 29 3a  21 74 3d 41 25 28 60 79  |A%(`y%):!t=A%(`y|
00022ed0  25 29 2b 59 79 25 3a 21  53 79 3d 41 25 28 60 25  |%)+Yy%:!Sy=A%(`%|
00022ee0  29 2b 48 75 25 3a 21 70  3d 4b 79 25 3a 21 55 79  |)+Hu%:!p=Ky%:!Uy|
00022ef0  3d 4f 5f 25 3a 21 58 79  3d 4f 5f 25 3a 21 5a 79  |=O_%:!Xy=O_%:!Zy|
00022f00  3d 66 4a 25 3a 21 46 79  3d 61 25 3a 21 63 3d 31  |=fJ%:!Fy=a%:!c=1|
00022f10  3a 42 25 3d 5f 25 3a 46  25 3d 42 75 25 3a 47 25  |:B%=_%:F%=Bu%:G%|
00022f20  3d 53 4a 25 3a 48 25 3d  61 25 3a 47 6c 25 3d ba  |=SJ%:H%=a%:Gl%=.|
00022f30  28 4c 5f 29 0d 7b 09 10  cc 3a 47 6c 25 3d 33 3a  |(L_).{...:Gl%=3:|
00022f40  3f 73 3d 30 0d 7b 0a 13  cd 3a 21 63 3d 30 3a f2  |?s=0.{...:!c=0:.|
00022f50  63 5f 28 4f 5f 25 29 0d  7b 0b 1d cd 3a 4f 5f 25  |c_(O_%).{...:O_%|
00022f60  2b 3d 31 3a 59 6f 25 3d  b9 3a c8 99 26 34 30 36  |+=1:Yo%=.:..&406|
00022f70  63 31 3a e1 0d 7b 0c 1f  dd f2 6c 79 28 6f 6c 29  |c1:..{....ly(ol)|
00022f80  3a ea 70 72 25 2c 7a 79  25 2c 63 4a 3a e7 6f 6c  |:.pr%,zy%,cJ:.ol|
00022f90  3d 30 e1 0d 7b 0d 0f 63  4a 3d 56 3a e7 56 3c 3e  |=0..{..cJ=V:.V<>|
00022fa0  30 8c 0d 7b 0e 45 c8 94  6a 75 25 2c 60 25 3a c8  |0..{.E..ju%,`%:.|
00022fb0  94 6e 25 2c 43 6e 25 3a  c8 94 74 25 2c 43 61 25  |.n%,Cn%:..t%,Ca%|
00022fc0  3a c8 94 55 79 25 2c 46  6f 25 3a c8 94 79 79 25  |:..Uy%,Fo%:..yy%|
00022fd0  2c 44 65 25 3a c8 94 48  75 25 2c 51 6b 25 3a c8  |,De%:..Hu%,Qk%:.|
00022fe0  94 63 25 2c 76 42 25 0d  7b 0f 1a cd 3a 4e 3d 56  |.c%,vB%.{...:N=V|
00022ff0  2b 6f 6c 3a e7 4e 3e 33  35 39 8c 4e 2d 3d 33 36  |+ol:.N>359.N-=36|
00023000  30 0d 7b 10 0e e7 4e 3c  30 4e 2b 3d 33 36 30 0d  |0.{...N<0N+=360.|
00023010  7b 11 13 56 3d 4e 3a 7a  79 25 3d a3 3a e7 56 3d  |{..V=N:zy%=.:.V=|
00023020  30 8c 0d 7b 12 3d 4b 25  3d a4 41 28 31 2c 6a 75  |0..{.=K%=.A(1,ju|
00023030  25 29 3a f2 4c 28 6b 25  2c a4 4a 28 6e 25 2a 52  |%):.L(k%,.J(n%*R|
00023040  25 29 2c a4 4a 28 74 25  2a 56 25 29 29 3a f2 4a  |%),.J(t%*V%)):.J|
00023050  28 6b 25 29 3a e7 55 75  25 f2 77 28 6b 25 29 0d  |(k%):.Uu%.w(k%).|
00023060  7b 13 16 f2 59 28 22 22  29 3a 5f 4a 25 3d 30 3a  |{...Y(""):_J%=0:|
00023070  7a 79 25 3d b9 0d 7b 14  0b cd 3a e7 7a 79 25 e1  |zy%=..{...:.zy%.|
00023080  0d 7b 15 7d 43 6e 25 3d  94 28 6e 25 2a 9b 28 b2  |.{.}Cn%=.(n%*.(.|
00023090  28 4e 29 29 29 2b 94 28  28 79 79 25 2b 31 29 2a  |(N)))+.((yy%+1)*|
000230a0  b5 28 b2 28 4e 29 29 29  3a 43 61 25 3d 94 28 6e  |.(.(N))):Ca%=.(n|
000230b0  25 2a b5 28 b2 28 4e 29  29 29 2b 94 28 28 79 79  |%*.(.(N)))+.((yy|
000230c0  25 2b 31 29 2a 9b 28 b2  28 4e 29 29 29 3a 4b 25  |%+1)*.(.(N))):K%|
000230d0  3d a4 41 28 32 35 36 2b  28 39 2b 28 43 6e 25 81  |=.A(256+(9+(Cn%.|
000230e0  38 29 29 2a 28 43 61 25  2b 35 29 2c 6a 75 25 29  |8))*(Ca%+5),ju%)|
000230f0  3a 7a 79 25 3d a3 3a e7  4b 25 3d a3 8c 0d 7b 16  |:zy%=.:.K%=...{.|
00023100  92 f2 43 28 22 4f 70 74  69 63 61 6c 22 2c 22 54  |..C("Optical","T|
00023110  68 65 72 65 20 69 73 20  6e 6f 74 20 65 6e 6f 75  |here is not enou|
00023120  67 68 20 66 72 65 65 20  6d 65 6d 6f 72 79 20 61  |gh free memory a|
00023130  76 61 69 6c 61 62 6c 65  20 74 6f 20 72 6f 74 61  |vailable to rota|
00023140  74 65 20 74 68 69 73 20  69 6d 61 67 65 2e 20 4e  |te this image. N|
00023150  65 65 64 20 22 2b c3 28  28 32 35 36 2b 28 34 2b  |eed "+.((256+(4+|
00023160  43 6e 25 81 38 29 2a 43  61 25 29 81 31 30 32 34  |Cn%.8)*Ca%).1024|
00023170  29 2b 22 4b 2e 22 29 3a  4b 25 3d a4 41 28 31 2c  |)+"K."):K%=.A(1,|
00023180  6a 75 25 29 3a 7a 79 25  3d b9 3a 56 3d 63 4a 0d  |ju%):zy%=.:V=cJ.|
00023190  7b 17 0b cd 3a e7 7a 79  25 e1 0d 7b 18 fc 21 28  |{...:.zy%..{..!(|
000231a0  41 25 28 6a 75 25 29 29  3d 32 35 36 2b 28 39 2b  |A%(ju%))=256+(9+|
000231b0  28 43 6e 25 81 38 29 29  2a 28 43 61 25 2b 35 29  |(Cn%.8))*(Ca%+5)|
000231c0  3a 21 28 41 25 28 6a 75  25 29 2b 38 29 3d 31 36  |:!(A%(ju%)+8)=16|
000231d0  3a c8 99 34 36 2c 32 36  35 2c 41 25 28 6a 75 25  |:..46,265,A%(ju%|
000231e0  29 3a c8 99 34 36 2c 32  37 31 2c 41 25 28 6a 75  |):..46,271,A%(ju|
000231f0  25 29 2c 4d 24 2c 30 2c  43 6e 25 2c 43 61 25 2c  |%),M$,0,Cn%,Ca%,|
00023200  31 38 3a 70 72 25 3d 21  28 41 25 28 6a 75 25 29  |18:pr%=!(A%(ju%)|
00023210  2b 38 29 3a 46 6f 25 3d  21 28 41 25 28 6a 75 25  |+8):Fo%=!(A%(ju%|
00023220  29 2b 70 72 25 2b 31 36  29 3a c8 99 34 36 2c 32  |)+pr%+16):..46,2|
00023230  34 2b 32 35 36 2c 41 25  28 60 25 29 2c 4d 24 b8  |4+256,A%(`%),M$.|
00023240  2c 2c 63 25 3a 48 75 25  3d 63 25 2d 41 25 28 60  |,,c%:Hu%=c%-A%(`|
00023250  25 29 2b 63 25 21 33 32  3a c8 99 34 36 2c 32 34  |%)+c%!32:..46,24|
00023260  2b 32 35 36 2c 41 25 28  6a 75 25 29 2c 4d 24 b8  |+256,A%(ju%),M$.|
00023270  2c 2c 76 42 25 3a 51 6b  25 3d 76 42 25 2d 41 25  |,,vB%:Qk%=vB%-A%|
00023280  28 6a 75 25 29 2b 76 42  25 21 33 32 3a 44 65 25  |(ju%)+vB%!32:De%|
00023290  3d 43 61 25 2d 31 0d 7b  19 e9 41 25 3d 55 79 25  |=Ca%-1.{..A%=Uy%|
000232a0  2b 31 3a 42 25 3d 46 6f  25 2b 31 3a 43 25 3d 41  |+1:B%=Fo%+1:C%=A|
000232b0  25 28 60 25 29 2b 48 75  25 3a 44 25 3d 41 25 28  |%(`%)+Hu%:D%=A%(|
000232c0  6a 75 25 29 2b 51 6b 25  3a 45 25 3d 9b 28 b2 28  |ju%)+Qk%:E%=.(.(|
000232d0  4e 29 29 2a 28 31 3c 3c  31 36 29 3a 46 25 3d b5  |N))*(1<<16):F%=.|
000232e0  28 b2 28 4e 29 29 2a 28  31 3c 3c 31 36 29 3a 47  |(.(N))*(1<<16):G|
000232f0  25 3d 43 6e 25 2d 31 3a  48 25 3d 43 61 25 2d 31  |%=Cn%-1:H%=Ca%-1|
00023300  3a 21 42 69 3d 6e 25 2d  31 3a 21 4c 69 3d 79 79  |:!Bi=n%-1:!Li=yy|
00023310  25 3a 21 72 69 3d 28 31  30 30 2f 43 61 25 29 2a  |%:!ri=(100/Ca%)*|
00023320  28 31 3c 3c 31 36 29 3a  c8 99 26 34 30 36 63 30  |(1<<16):..&406c0|
00023330  3a d6 58 61 3a c8 99 26  34 30 36 63 31 3a c8 94  |:.Xa:..&406c1:..|
00023340  6a 75 25 2c 60 25 3a c8  94 6e 25 2c 43 6e 25 3a  |ju%,`%:..n%,Cn%:|
00023350  c8 94 74 25 2c 43 61 25  3a c8 94 55 79 25 2c 46  |..t%,Ca%:..Uy%,F|
00023360  6f 25 3a c8 94 79 79 25  2c 44 65 25 3a c8 94 48  |o%:..yy%,De%:..H|
00023370  75 25 2c 51 6b 25 3a c8  94 63 25 2c 76 42 25 0d  |u%,Qk%:..c%,vB%.|
00023380  7b 1a 30 f2 4c 28 6b 25  2c a4 4a 28 6e 25 2a 52  |{.0.L(k%,.J(n%*R|
00023390  25 29 2c a4 4a 28 74 25  2a 56 25 29 29 3a f2 4a  |%),.J(t%*V%)):.J|
000233a0  28 6b 25 29 3a e7 55 75  25 f2 77 28 6b 25 29 0d  |(k%):.Uu%.w(k%).|
000233b0  7b 1b 32 f2 59 28 22 22  29 3a 5f 4a 25 3d 30 3a  |{.2.Y(""):_J%=0:|
000233c0  6d 25 3d 51 79 25 3a 5f  25 3d 30 3a 50 25 3d 2d  |m%=Qy%:_%=0:P%=-|
000233d0  31 3a f2 4a 28 65 25 29  3a f2 4f 28 50 25 29 3a  |1:.J(e%):.O(P%):|
000233e0  e1 0d 7b 1c 91 dd f2 6e  3a ea 52 25 2c 73 79 25  |..{....n:.R%,sy%|
000233f0  2c 56 25 2c 65 79 25 2c  68 25 3a c8 99 26 34 30  |,V%,ey%,h%:..&40|
00023400  36 63 30 3a c8 99 35 33  2c 2d 31 2c 31 31 b8 2c  |6c0:..53,-1,11.,|
00023410  2c 73 79 25 3a c8 99 35  33 2c 2d 31 2c 34 b8 2c  |,sy%:..53,-1,4.,|
00023420  2c 52 25 3a 52 25 3d 31  3c 3c 52 25 3a 73 79 25  |,R%:R%=1<<R%:sy%|
00023430  3d 73 79 25 2a 52 25 3a  4d 25 21 30 3d 65 25 3a  |=sy%*R%:M%!0=e%:|
00023440  c8 99 26 34 30 30 63 63  2c 2c 4d 25 3a 55 61 3d  |..&400cc,,M%:Ua=|
00023450  28 4d 25 21 32 34 2d 28  4d 25 21 31 36 2d 4d 25  |(M%!24-(M%!16-M%|
00023460  21 38 29 2f 32 29 2f 4d  25 21 34 38 3a e7 76 79  |!8)/2)/M%!48:.vy|
00023470  25 8c 0d 7b 1d 2f 70 5f  25 3d 28 4d 25 21 31 32  |%..{./p_%=(M%!12|
00023480  2d 4d 25 21 34 2d 34 29  2f 31 36 3a f2 65 79 28  |-M%!4-4)/16:.ey(|
00023490  70 5f 25 29 3a 68 25 3d  33 36 2a 58 75 25 2b 33  |p_%):h%=36*Xu%+3|
000234a0  36 0d 7b 1e 2f cc 3a 70  5f 25 3d 4d 25 21 31 32  |6.{./.:p_%=M%!12|
000234b0  2d 4d 25 21 34 2d 33 32  3a f2 65 79 28 70 5f 25  |-M%!4-32:.ey(p_%|
000234c0  29 3a 68 25 3d 4c 5f 25  2a 58 75 25 2b 4c 5f 25  |):h%=L_%*Xu%+L_%|
000234d0  0d 7b 1f 5c cd 3a 79 25  3d 73 79 25 3a c8 99 35  |.{.\.:y%=sy%:..5|
000234e0  33 2c 2d 31 2c 31 32 b8  2c 2c 65 79 25 3a c8 99  |3,-1,12.,,ey%:..|
000234f0  35 33 2c 2d 31 2c 35 b8  2c 2c 56 25 3a 56 25 3d  |53,-1,5.,,V%:V%=|
00023500  31 3c 3c 56 25 3a 65 79  25 3d 65 79 25 2a 56 25  |1<<V%:ey%=ey%*V%|
00023510  3a 68 25 2b 3d 32 35 36  3a e7 68 25 3c 65 79 25  |:h%+=256:.h%<ey%|
00023520  2d 34 30 68 25 3d 65 79  25 2d 34 30 0d 7b 20 4e  |-40h%=ey%-40.{ N|
00023530  4d 25 21 30 3d 30 3a 4d  25 21 31 32 3d 32 3a 4d  |M%!0=0:M%!12=2:M|
00023540  25 21 38 3d 79 25 2b 32  3a 4d 25 21 34 3d 2d 68  |%!8=y%+2:M%!4=-h|
00023550  25 3a c8 99 26 34 30 30  64 37 2c 65 25 2c 4d 25  |%:..&400d7,e%,M%|
00023560  3a e7 57 79 25 3d 30 80  21 41 3d 30 80 49 79 25  |:.Wy%=0.!A=0.Iy%|
00023570  3d 30 80 a4 53 28 65 25  29 8c 0d 7b 21 2c 4d 25  |=0..S(e%)..{!,M%|
00023580  21 30 3d 65 25 3a c8 99  26 34 30 30 63 63 2c 2c  |!0=e%:..&400cc,,|
00023590  4d 25 3a e7 76 79 25 8c  48 5a 25 3d 33 36 8b 48  |M%:.vy%.HZ%=36.H|
000235a0  5a 25 3d 4c 5f 25 0d 7b  22 49 4d 25 21 32 34 3d  |Z%=L_%.{"IM%!24=|
000235b0  55 61 2a 4d 25 21 34 38  2b 28 4d 25 21 31 36 2d  |Ua*M%!48+(M%!16-|
000235c0  4d 25 21 38 29 2f 32 3a  4d 25 21 32 30 3d 30 3a  |M%!8)/2:M%!20=0:|
000235d0  c8 99 26 34 30 30 63 35  2c 2c 4d 25 3a e7 44 79  |..&400c5,,M%:.Dy|
000235e0  25 3d a3 80 6a 79 25 3d  a3 f2 4f 28 50 25 29 0d  |%=..jy%=..O(P%).|
000235f0  7b 23 10 cd 3a c8 99 26  34 30 36 63 31 3a e1 0d  |{#..:..&406c1:..|
00023600  7b 24 0e dd f2 68 5f 3a  e7 70 69 25 e1 0d 7b 25  |{$...h_:.pi%..{%|
00023610  1f f2 4e 28 65 25 2c 22  4f 43 52 65 64 20 74 65  |..N(e%,"OCRed te|
00023620  78 74 22 29 3a 70 69 25  3d b9 3a e1 0d 7b 26 0f  |xt"):pi%=.:..{&.|
00023630  dd f2 74 3a e7 70 69 25  3d a3 e1 0d 7b 27 21 f2  |..t:.pi%=...{'!.|
00023640  4e 28 65 25 2c 22 4f 43  52 65 64 20 74 65 78 74  |N(e%,"OCRed text|
00023650  20 2a 22 29 3a 70 69 25  3d a3 3a e1 0d 7b 28 53  | *"):pi%=.:..{(S|
00023660  dd f2 5a 79 28 71 5f 25  29 3a ea 50 24 2c 4a 24  |..Zy(q_%):.P$,J$|
00023670  3a f2 53 28 42 79 25 2c  31 30 2c 71 5f 25 3f 6f  |:.S(By%,10,q_%?o|
00023680  42 25 29 3a f2 53 28 78  25 2c 33 2c 71 5f 25 3f  |B%):.S(x%,3,q_%?|
00023690  68 4f 25 29 3a f2 53 28  78 25 2c 34 2c 71 5f 25  |hO%):.S(x%,4,q_%|
000236a0  3f 44 72 25 29 3a e7 71  5f 25 3f 56 75 25 8c 0d  |?Dr%):.q_%?Vu%..|
000236b0  7b 29 c8 f2 53 28 78 25  2c 32 34 2c b9 29 3a f2  |{)..S(x%,24,.):.|
000236c0  50 28 78 25 2c 33 2c b9  29 3a f2 50 28 78 25 2c  |P(x%,3,.):.P(x%,|
000236d0  34 2c b9 29 3a f2 50 28  78 25 2c 37 2c b9 29 3a  |4,.):.P(x%,7,.):|
000236e0  f2 50 28 78 25 2c 38 2c  b9 29 3a f2 50 28 78 25  |.P(x%,8,.):.P(x%|
000236f0  2c 39 2c b9 29 3a f2 50  28 78 25 2c 31 30 2c b9  |,9,.):.P(x%,10,.|
00023700  29 3a f2 47 28 78 25 2c  31 38 2c 30 29 3a f2 50  |):.G(x%,18,0):.P|
00023710  28 78 25 2c 31 31 2c b9  29 3a f2 50 28 78 25 2c  |(x%,11,.):.P(x%,|
00023720  31 32 2c b9 29 3a f2 50  28 78 25 2c 31 33 2c b9  |12,.):.P(x%,13,.|
00023730  29 3a f2 50 28 78 25 2c  32 30 2c b9 29 3a f2 50  |):.P(x%,20,.):.P|
00023740  28 78 25 2c 32 31 2c b9  29 3a f2 50 28 78 25 2c  |(x%,21,.):.P(x%,|
00023750  31 36 2c b9 29 3a f2 50  28 78 25 2c 32 35 2c a3  |16,.):.P(x%,25,.|
00023760  29 3a f2 50 28 78 25 2c  32 36 2c a3 29 3a e7 71  |):.P(x%,26,.):.q|
00023770  5f 25 3f 64 6b 25 8c 0d  7b 2a 0f f2 53 28 78 25  |_%?dk%..{*..S(x%|
00023780  2c 32 35 2c b9 29 0d 7b  2b 11 cc 3a f2 53 28 78  |,25,.).{+..:.S(x|
00023790  25 2c 32 35 2c a3 29 0d  7b 2c 0f cd 3a e7 71 5f  |%,25,.).{,..:.q_|
000237a0  25 3f 73 42 25 8c 0d 7b  2d 0e f2 53 28 78 25 2c  |%?sB%..{-..S(x%,|
000237b0  37 2c b9 29 0d 7b 2e 1a  cc 3a f2 53 28 78 25 2c  |7,.).{...:.S(x%,|
000237c0  37 2c a3 29 3a e7 71 5f  25 3f 49 6f 25 8c 0d 7b  |7,.):.q_%?Io%..{|
000237d0  2f 0e f2 53 28 78 25 2c  38 2c b9 29 0d 7b 30 10  |/..S(x%,8,.).{0.|
000237e0  cc 3a f2 53 28 78 25 2c  38 2c a3 29 0d 7b 31 0f  |.:.S(x%,8,.).{1.|
000237f0  cd 3a e7 71 5f 25 3f 74  42 25 8c 0d 7b 32 0f f2  |.:.q_%?tB%..{2..|
00023800  53 28 78 25 2c 31 33 2c  b9 29 0d 7b 33 11 cc 3a  |S(x%,13,.).{3..:|
00023810  f2 53 28 78 25 2c 31 33  2c a3 29 0d 7b 34 05 cd  |.S(x%,13,.).{4..|
00023820  0d 7b 35 16 cd 3a e7 a4  46 28 71 5f 25 2b 75 61  |.{5..:..F(q_%+ua|
00023830  25 29 3d bd 39 8c 0d 7b  36 27 f2 53 28 78 25 2c  |%)=.9..{6'.S(x%,|
00023840  39 2c b9 29 3a f2 53 28  78 25 2c 31 31 2c a3 29  |9,.):.S(x%,11,.)|
00023850  3a f2 41 28 78 25 2c 31  30 2c 22 22 29 0d 7b 37  |:.A(x%,10,"").{7|
00023860  35 cc 3a f2 53 28 78 25  2c 39 2c a3 29 3a f2 53  |5.:.S(x%,9,.):.S|
00023870  28 78 25 2c 31 31 2c b9  29 3a 50 24 3d a4 46 28  |(x%,11,.):P$=.F(|
00023880  71 5f 25 2b 75 61 25 29  3a e7 a9 28 50 24 29 3e  |q_%+ua%):..(P$)>|
00023890  30 8c 0d 7b 38 2f e3 70  25 3d 31 b8 a9 28 50 24  |0..{8/.p%=1..(P$|
000238a0  29 3a 4a 24 3d c1 50 24  2c 70 25 2c 31 29 3a e7  |):J$=.P$,p%,1):.|
000238b0  4a 24 3d bd 33 32 c1 50  24 2c 70 25 29 3d 22 73  |J$=.32.P$,p%)="s|
000238c0  22 0d 7b 39 15 e7 4a 24  3d bd 39 c1 50 24 2c 70  |".{9..J$=.9.P$,p|
000238d0  25 29 3d 22 74 22 0d 7b  3a 05 ed 0d 7b 3b 12 cd  |%)="t".{:...{;..|
000238e0  3a f2 41 28 78 25 2c 31  30 2c 50 24 29 0d 7b 3c  |:.A(x%,10,P$).{<|
000238f0  05 cd 0d 7b 3d 60 cc 3a  f2 53 28 78 25 2c 32 34  |...{=`.:.S(x%,24|
00023900  2c a3 29 3a f2 50 28 78  25 2c 33 2c a3 29 3a f2  |,.):.P(x%,3,.):.|
00023910  50 28 78 25 2c 34 2c a3  29 3a f2 50 28 78 25 2c  |P(x%,4,.):.P(x%,|
00023920  37 2c a3 29 3a f2 50 28  78 25 2c 31 36 2c a3 29  |7,.):.P(x%,16,.)|
00023930  3a f2 50 28 78 25 2c 32  35 2c b9 29 3a f2 50 28  |:.P(x%,25,.):.P(|
00023940  78 25 2c 32 36 2c b9 29  3a e7 71 5f 25 3f 64 6b  |x%,26,.):.q_%?dk|
00023950  25 8c 0d 7b 3e 0f f2 53  28 78 25 2c 32 35 2c b9  |%..{>..S(x%,25,.|
00023960  29 0d 7b 3f 11 cc 3a f2  53 28 78 25 2c 32 35 2c  |).{?..:.S(x%,25,|
00023970  a3 29 0d 7b 40 0f cd 3a  e7 71 5f 25 3f 73 42 25  |.).{@..:.q_%?sB%|
00023980  8c 0d 7b 41 78 f2 53 28  78 25 2c 37 2c b9 29 3a  |..{Ax.S(x%,7,.):|
00023990  f2 50 28 78 25 2c 38 2c  b9 29 3a f2 50 28 78 25  |.P(x%,8,.):.P(x%|
000239a0  2c 39 2c b9 29 3a f2 50  28 78 25 2c 31 30 2c b9  |,9,.):.P(x%,10,.|
000239b0  29 3a f2 47 28 78 25 2c  31 38 2c 30 29 3a f2 50  |):.G(x%,18,0):.P|
000239c0  28 78 25 2c 31 31 2c b9  29 3a f2 50 28 78 25 2c  |(x%,11,.):.P(x%,|
000239d0  31 32 2c b9 29 3a f2 50  28 78 25 2c 31 33 2c b9  |12,.):.P(x%,13,.|
000239e0  29 3a f2 50 28 78 25 2c  32 30 2c b9 29 3a f2 50  |):.P(x%,20,.):.P|
000239f0  28 78 25 2c 32 31 2c b9  29 0d 7b 42 25 cc 3a f2  |(x%,21,.).{B%.:.|
00023a00  53 28 78 25 2c 37 2c a3  29 3a f2 50 28 78 25 2c  |S(x%,7,.):.P(x%,|
00023a10  38 2c a3 29 3a e7 71 5f  25 3f 49 6f 25 8c 0d 7b  |8,.):.q_%?Io%..{|
00023a20  43 31 f2 50 28 78 25 2c  39 2c a3 29 3a f2 50 28  |C1.P(x%,9,.):.P(|
00023a30  78 25 2c 31 30 2c a3 29  3a f2 50 28 78 25 2c 31  |x%,10,.):.P(x%,1|
00023a40  31 2c a3 29 3a f2 53 28  78 25 2c 38 2c b9 29 0d  |1,.):.S(x%,8,.).|
00023a50  7b 44 3f cc 3a f2 50 28  78 25 2c 39 2c b9 29 3a  |{D?.:.P(x%,9,.):|
00023a60  f2 50 28 78 25 2c 31 30  2c b9 29 3a f2 47 28 78  |.P(x%,10,.):.G(x|
00023a70  25 2c 31 38 2c 30 29 3a  f2 50 28 78 25 2c 31 31  |%,18,0):.P(x%,11|
00023a80  2c b9 29 3a f2 53 28 78  25 2c 38 2c a3 29 0d 7b  |,.):.S(x%,8,.).{|
00023a90  45 1b cd 3a f2 50 28 78  25 2c 31 33 2c a3 29 3a  |E..:.P(x%,13,.):|
00023aa0  e7 71 5f 25 3f 74 42 25  8c 0d 7b 46 33 f2 50 28  |.q_%?tB%..{F3.P(|
00023ab0  78 25 2c 31 32 2c a3 29  3a f2 50 28 78 25 2c 32  |x%,12,.):.P(x%,2|
00023ac0  30 2c a3 29 3a f2 50 28  78 25 2c 32 31 2c a3 29  |0,.):.P(x%,21,.)|
00023ad0  3a f2 53 28 78 25 2c 31  33 2c b9 29 0d 7b 47 35  |:.S(x%,13,.).{G5|
00023ae0  cc 3a f2 50 28 78 25 2c  31 32 2c b9 29 3a f2 50  |.:.P(x%,12,.):.P|
00023af0  28 78 25 2c 32 30 2c b9  29 3a f2 50 28 78 25 2c  |(x%,20,.):.P(x%,|
00023b00  32 31 2c b9 29 3a f2 53  28 78 25 2c 31 33 2c a3  |21,.):.S(x%,13,.|
00023b10  29 0d 7b 48 05 cd 0d 7b  49 16 cd 3a e7 a4 46 28  |).{H...{I..:..F(|
00023b20  71 5f 25 2b 75 61 25 29  3d bd 39 8c 0d 7b 4a 27  |q_%+ua%)=.9..{J'|
00023b30  f2 53 28 78 25 2c 39 2c  b9 29 3a f2 53 28 78 25  |.S(x%,9,.):.S(x%|
00023b40  2c 31 31 2c a3 29 3a f2  41 28 78 25 2c 31 30 2c  |,11,.):.A(x%,10,|
00023b50  22 22 29 0d 7b 4b 35 cc  3a f2 53 28 78 25 2c 39  |"").{K5.:.S(x%,9|
00023b60  2c a3 29 3a f2 53 28 78  25 2c 31 31 2c b9 29 3a  |,.):.S(x%,11,.):|
00023b70  50 24 3d a4 46 28 71 5f  25 2b 75 61 25 29 3a e7  |P$=.F(q_%+ua%):.|
00023b80  a9 28 50 24 29 3e 30 8c  0d 7b 4c 2f e3 70 25 3d  |.(P$)>0..{L/.p%=|
00023b90  31 b8 a9 28 50 24 29 3a  4a 24 3d c1 50 24 2c 70  |1..(P$):J$=.P$,p|
00023ba0  25 2c 31 29 3a e7 4a 24  3d bd 33 32 c1 50 24 2c  |%,1):.J$=.32.P$,|
00023bb0  70 25 29 3d 22 73 22 0d  7b 4d 15 e7 4a 24 3d bd  |p%)="s".{M..J$=.|
00023bc0  39 c1 50 24 2c 70 25 29  3d 22 74 22 0d 7b 4e 05  |9.P$,p%)="t".{N.|
00023bd0  ed 0d 7b 4f 12 cd 3a f2  41 28 78 25 2c 31 30 2c  |..{O..:.A(x%,10,|
00023be0  50 24 29 0d 7b 50 05 cd  0d 7b 51 55 cd 3a f2 41  |P$).{P...{QU.:.A|
00023bf0  28 78 25 2c 31 32 2c c3  28 71 5f 25 3f 74 42 25  |(x%,12,.(q_%?tB%|
00023c00  29 29 3a f2 53 28 78 25  2c 31 36 2c 71 5f 25 3f  |)):.S(x%,16,q_%?|
00023c10  4e 65 25 29 3a f2 53 28  78 25 2c 31 37 2c 71 5f  |Ne%):.S(x%,17,q_|
00023c20  25 3f 75 42 25 29 3a f2  41 28 78 25 2c 31 38 2c  |%?uB%):.A(x%,18,|
00023c30  bd 28 71 5f 25 3f 68 61  25 29 29 3a e1 0d 7b 52  |.(q_%?ha%)):..{R|
00023c40  76 dd f2 47 79 28 71 5f  25 29 3a ea 50 24 2c 4a  |v..Gy(q_%):.P$,J|
00023c50  24 3a 71 5f 25 3f 6f 42  25 3d a4 5a 28 42 79 25  |$:q_%?oB%=.Z(By%|
00023c60  2c 31 30 29 3a 71 5f 25  3f 68 4f 25 3d a4 5a 28  |,10):q_%?hO%=.Z(|
00023c70  78 25 2c 33 29 3a 71 5f  25 3f 44 72 25 3d a4 5a  |x%,3):q_%?Dr%=.Z|
00023c80  28 78 25 2c 34 29 3a 71  5f 25 3f 73 42 25 3d a4  |(x%,4):q_%?sB%=.|
00023c90  5a 28 78 25 2c 37 29 3a  71 5f 25 3f 49 6f 25 3d  |Z(x%,7):q_%?Io%=|
00023ca0  a4 5a 28 78 25 2c 38 29  3a e7 a4 5a 28 78 25 2c  |.Z(x%,8):..Z(x%,|
00023cb0  39 29 8c 0d 7b 53 14 24  28 71 5f 25 2b 75 61 25  |9)..{S.$(q_%+ua%|
00023cc0  29 3d bd 39 2b bd 30 0d  7b 54 1c cc 3a 50 24 3d  |)=.9+.0.{T..:P$=|
00023cd0  a4 4d 28 78 25 2c 31 30  29 3a e7 a9 28 50 24 29  |.M(x%,10):..(P$)|
00023ce0  3e 30 8c 0d 7b 55 36 e3  70 25 3d 31 b8 a9 28 50  |>0..{U6.p%=1..(P|
00023cf0  24 29 3a 4a 24 3d c1 50  24 2c 70 25 2c 31 29 3a  |$):J$=.P$,p%,1):|
00023d00  e7 4a 24 3d 22 73 22 84  4a 24 3d 22 53 22 c1 50  |.J$="s".J$="S".P|
00023d10  24 2c 70 25 29 3d bd 33  32 0d 7b 56 1c e7 4a 24  |$,p%)=.32.{V..J$|
00023d20  3d 22 74 22 84 4a 24 3d  22 54 22 c1 50 24 2c 70  |="t".J$="T".P$,p|
00023d30  25 29 3d bd 39 0d 7b 57  05 ed 0d 7b 58 16 cd 3a  |%)=.9.{W...{X..:|
00023d40  24 28 71 5f 25 2b 75 61  25 29 3d 50 24 2b bd 30  |$(q_%+ua%)=P$+.0|
00023d50  0d 7b 59 11 cd 3a e7 a4  5a 28 78 25 2c 31 33 29  |.{Y..:..Z(x%,13)|
00023d60  8c 0d 7b 5a 20 e7 bb 28  a4 4d 28 78 25 2c 31 32  |..{Z ..(.M(x%,12|
00023d70  29 29 3d 30 f2 41 28 78  25 2c 31 32 2c 22 31 22  |))=0.A(x%,12,"1"|
00023d80  29 0d 7b 5b 13 cc 3a f2  41 28 78 25 2c 31 32 2c  |).{[..:.A(x%,12,|
00023d90  22 30 22 29 0d 7b 5c 57  cd 3a 71 5f 25 3f 74 42  |"0").{\W.:q_%?tB|
00023da0  25 3d bb 28 a4 4d 28 78  25 2c 31 32 29 29 3a 71  |%=.(.M(x%,12)):q|
00023db0  5f 25 3f 4e 65 25 3d a4  5a 28 78 25 2c 31 36 29  |_%?Ne%=.Z(x%,16)|
00023dc0  3a 71 5f 25 3f 75 42 25  3d a4 5a 28 78 25 2c 31  |:q_%?uB%=.Z(x%,1|
00023dd0  37 29 3a 50 24 3d c0 a4  4d 28 78 25 2c 31 38 29  |7):P$=..M(x%,18)|
00023de0  2c 31 29 3a e7 50 24 3d  22 22 8c 0d 7b 5d 0d 71  |,1):.P$=""..{].q|
00023df0  5f 25 3f 68 61 25 3d 30  0d 7b 5e 1e cc 3a 71 5f  |_%?ha%=0.{^..:q_|
00023e00  25 3f 68 61 25 3d 97 28  c0 a4 4d 28 78 25 2c 31  |%?ha%=.(..M(x%,1|
00023e10  38 29 2c 31 29 29 0d 7b  5f 2b cd 3a 71 5f 25 3f  |8),1)).{_+.:q_%?|
00023e20  56 75 25 3d a4 5a 28 78  25 2c 32 34 29 3a 71 5f  |Vu%=.Z(x%,24):q_|
00023e30  25 3f 64 6b 25 3d a4 5a  28 78 25 2c 32 35 29 3a  |%?dk%=.Z(x%,25):|
00023e40  e1 0d 7b 60 16 dd f2 78  69 28 62 25 2c 49 25 29  |..{`...xi(b%,I%)|
00023e50  3a e7 62 25 3e 37 e1 0d  7b 61 25 e7 62 25 3d 31  |:.b%>7..{a%.b%=1|
00023e60  80 49 25 3d 32 30 49 25  3d 32 31 8b e7 62 25 3d  |.I%=20I%=21..b%=|
00023e70  31 80 49 25 3d 32 31 49  25 3d 32 30 0d 7b 62 21  |1.I%=21I%=20.{b!|
00023e80  e7 28 49 25 3d 39 84 49  25 3d 31 31 29 80 62 25  |.(I%=9.I%=11).b%|
00023e90  3d 31 f2 53 28 78 25 2c  49 25 2c b9 29 0d 7b 63  |=1.S(x%,I%,.).{c|
00023ea0  09 c8 8e 49 25 ca 0d 7b  64 06 c9 33 0d 7b 65 06  |...I%..{d..3.{e.|
00023eb0  c9 34 0d 7b 66 06 c9 37  0d 7b 67 06 c9 38 0d 7b  |.4.{f..7.{g..8.{|
00023ec0  68 06 c9 39 0d 7b 69 13  c9 31 30 3a f2 53 28 78  |h..9.{i..10:.S(x|
00023ed0  25 2c 31 31 2c b9 29 0d  7b 6a 13 c9 31 31 3a f2  |%,11,.).{j..11:.|
00023ee0  47 28 78 25 2c 31 30 2c  30 29 0d 7b 6b 07 c9 31  |G(x%,10,0).{k..1|
00023ef0  33 0d 7b 6c 15 c9 32 30  3a f2 69 28 78 25 2c 31  |3.{l..20:.i(x%,1|
00023f00  32 2c 39 2c 31 29 0d 7b  6d 15 c9 32 31 3a f2 68  |2,9,1).{m..21:.h|
00023f10  28 78 25 2c 31 32 2c 31  2c 31 29 0d 7b 6e 07 c9  |(x%,12,1,1).{n..|
00023f20  31 36 0d 7b 6f 07 c9 31  37 0d 7b 70 1e c9 32 32  |16.{o..17.{p..22|
00023f30  3a f2 60 5f 3a f2 76 79  3a f2 4a 28 65 25 29 3a  |:.`_:.vy:.J(e%):|
00023f40  e7 62 25 3c 3e 31 8c 0d  7b 71 19 f2 62 3a e7 6a  |.b%<>1..{q..b:.j|
00023f50  79 25 3d a3 80 44 79 25  3d a3 f2 4f 28 50 25 29  |y%=..Dy%=..O(P%)|
00023f60  0d 7b 72 0d cc 3a f2 43  4a 28 78 25 29 0d 7b 73  |.{r..:.CJ(x%).{s|
00023f70  05 cd 0d 7b 74 0a c9 32  33 3a f2 62 0d 7b 75 07  |...{t..23:.b.{u.|
00023f80  c9 32 34 0d 7b 76 07 7f  3a e1 0d 7b 77 19 cb 3a  |.24.{v..:..{w..:|
00023f90  f2 47 79 28 6b 72 25 29  3a f2 5a 79 28 6b 72 25  |.Gy(kr%):.Zy(kr%|
00023fa0  29 3a e1 0d 7b 78 38 dd  f2 44 6c 28 49 25 2c 6a  |):..{x8..Dl(I%,j|
00023fb0  25 29 3a e7 28 6a 25 3c  3e 31 33 80 49 25 3c 3e  |%):.(j%<>13.I%<>|
00023fc0  31 38 29 84 a4 61 28 78  25 2c 32 32 29 8c c8 99  |18)..a(x%,22)...|
00023fd0  26 34 30 30 64 63 2c 6a  25 3a e1 0d 7b 79 2d f2  |&400dc,j%:..{y-.|
00023fe0  53 28 78 25 2c 32 32 2c  b9 29 3a f2 60 5f 3a f2  |S(x%,22,.):.`_:.|
00023ff0  76 79 3a f2 62 3a e7 6a  79 25 3d a3 80 44 79 25  |vy:.b:.jy%=..Dy%|
00024000  3d a3 f2 4f 28 50 25 29  0d 7b 7a 11 f2 53 28 78  |=..O(P%).{z..S(x|
00024010  25 2c 32 32 2c a3 29 3a  e1 0d 7b 7b af dd f2 76  |%,22,.):..{{...v|
00024020  79 3a f2 47 79 28 67 79  25 29 3a e7 67 79 25 3f  |y:.Gy(gy%):.gy%?|
00024030  56 75 25 3c 3e 30 80 41  79 25 3c 31 f2 58 28 22  |Vu%<>0.Ay%<1.X("|
00024040  4d 65 73 73 61 67 65 20  66 72 6f 6d 20 4f 70 74  |Message from Opt|
00024050  69 63 61 6c 22 2c 22 54  65 78 74 20 63 61 6e 6e  |ical","Text cann|
00024060  6f 74 20 62 65 20 66 6f  72 6d 61 74 74 65 64 20  |ot be formatted |
00024070  61 73 20 61 20 74 61 62  6c 65 20 62 65 63 61 75  |as a table becau|
00024080  73 65 20 6c 65 73 73 20  74 68 61 6e 20 74 77 6f  |se less than two|
00024090  20 66 72 61 6d 65 73 20  68 61 76 65 20 62 65 65  | frames have bee|
000240a0  6e 20 64 65 66 69 6e 65  64 2e 22 29 3a 67 79 25  |n defined."):gy%|
000240b0  3f 56 75 25 3d 30 3a f2  5a 79 28 67 79 25 29 3a  |?Vu%=0:.Zy(gy%):|
000240c0  f2 47 79 28 67 79 25 29  0d 7b 7c 10 e7 67 79 25  |.Gy(gy%).{|..gy%|
000240d0  3f 56 75 25 3c 3e 30 8c  0d 7b 7d 1f f2 5a 28 77  |?Vu%<>0..{}..Z(w|
000240e0  25 2c 37 29 3a f2 5a 28  77 25 2c 31 30 29 3a f2  |%,7):.Z(w%,10):.|
000240f0  5a 28 77 25 2c 32 29 0d  7b 7e 27 cd 3a 6d 25 3d  |Z(w%,2).{~'.:m%=|
00024100  51 79 25 3a 58 75 25 3d  74 5f 25 3a 65 5f 25 3d  |Qy%:Xu%=t_%:e_%=|
00024110  47 69 25 3a e7 76 79 25  3d a3 8c f2 4a 79 0d 7b  |Gi%:.vy%=...Jy.{|
00024120  7f 22 f2 72 3a e7 57 79  25 3d 30 80 21 41 3d 30  |.".r:.Wy%=0.!A=0|
00024130  80 49 79 25 3d 30 f2 42  79 3a f2 4a 28 65 25 29  |.Iy%=0.By:.J(e%)|
00024140  0d 7b 80 0d e7 67 79 25  3f 56 75 25 8c 0d 7b 81  |.{...gy%?Vu%..{.|
00024150  58 f2 50 28 53 61 76 65  54 65 78 74 5f 57 69 6e  |X.P(SaveText_Win|
00024160  64 6f 77 25 2c 37 2c a3  29 3a f2 53 28 53 61 76  |dow%,7,.):.S(Sav|
00024170  65 54 65 78 74 5f 57 69  6e 64 6f 77 25 2c 37 2c  |eText_Window%,7,|
00024180  b9 29 3a f2 6f 28 53 61  76 65 54 65 78 74 5f 57  |.):.o(SaveText_W|
00024190  69 6e 64 6f 77 25 2c 33  2c 22 53 66 69 6c 65 5f  |indow%,3,"Sfile_|
000241a0  64 66 65 22 29 0d 7b 82  58 cc 3a e7 a4 5a 28 53  |dfe").{.X.:..Z(S|
000241b0  61 76 65 54 65 78 74 5f  57 69 6e 64 6f 77 25 2c  |aveText_Window%,|
000241c0  37 29 f2 53 28 53 61 76  65 54 65 78 74 5f 57 69  |7).S(SaveText_Wi|
000241d0  6e 64 6f 77 25 2c 34 2c  b9 29 3a f2 6f 28 53 61  |ndow%,4,.):.o(Sa|
000241e0  76 65 54 65 78 74 5f 57  69 6e 64 6f 77 25 2c 33  |veText_Window%,3|
000241f0  2c 22 53 66 69 6c 65 5f  66 66 66 22 29 0d 7b 83  |,"Sfile_fff").{.|
00024200  1c f2 50 28 53 61 76 65  54 65 78 74 5f 57 69 6e  |..P(SaveText_Win|
00024210  64 6f 77 25 2c 37 2c b9  29 0d 7b 84 07 cd 3a e1  |dow%,7,.).{...:.|
00024220  0d 7b 85 1d dd f2 64 69  3a e7 6d 75 25 84 4f 6c  |.{....di:.mu%.Ol|
00024230  25 84 50 6c 25 84 5a 6c  25 3c 3e 30 e1 0d 7b 86  |%.Pl%.Zl%<>0..{.|
00024240  f3 5a 25 21 30 3d 59 25  3a c8 99 26 34 30 30 63  |.Z%!0=Y%:..&400c|
00024250  62 2c 2c 5a 25 3a 73 6f  25 3d 5a 25 21 32 38 3a  |b,,Z%:so%=Z%!28:|
00024260  4c 25 3d 5a 25 21 34 2d  5a 25 21 32 30 3a 58 25  |L%=Z%!4-Z%!20:X%|
00024270  3d 5a 25 21 31 36 2d 5a  25 21 32 34 3a c8 99 26  |=Z%!16-Z%!24:..&|
00024280  34 30 30 63 66 2c 2c 5a  25 3a 56 79 25 3d 5a 25  |400cf,,Z%:Vy%=Z%|
00024290  21 30 2d 4c 25 3a 48 79  25 3d 58 25 2d 5a 25 21  |!0-L%:Hy%=X%-Z%!|
000242a0  34 3a 62 79 25 3d 56 79  25 3a 74 79 25 3d 48 79  |4:by%=Vy%:ty%=Hy|
000242b0  25 3a 5f 5f 25 3d 59 25  3a 5a 25 21 34 3d 37 3a  |%:__%=Y%:Z%!4=7:|
000242c0  5a 25 21 32 34 3d 2d 31  30 30 30 30 3a 5a 25 21  |Z%!24=-10000:Z%!|
000242d0  32 38 3d 2d 31 30 30 30  30 3a 5a 25 21 33 32 3d  |28=-10000:Z%!32=|
000242e0  31 30 30 30 30 3a 5a 25  21 33 36 3d 31 30 30 30  |10000:Z%!36=1000|
000242f0  30 3a c8 99 26 34 30 30  64 30 2c 2c 5a 25 3a 5a  |0:..&400d0,,Z%:Z|
00024300  25 21 30 3d 5f 5f 25 3a  5a 25 21 34 3d 30 3a 5a  |%!0=__%:Z%!4=0:Z|
00024310  25 21 38 3d 2d 31 30 30  30 30 30 3a 5a 25 21 31  |%!8=-100000:Z%!1|
00024320  32 3d 31 30 30 30 30 30  3a 5a 25 21 31 36 3d 30  |2=100000:Z%!16=0|
00024330  0d 7b 87 58 c8 99 26 34  30 30 63 39 2c 2c 5a 25  |.{.X..&400c9,,Z%|
00024340  b8 64 25 3a c8 95 64 25  3a f2 57 28 33 2c 31 31  |.d%:..d%:.W(3,11|
00024350  29 3a 86 56 79 25 2b 4c  25 2c 58 25 2d 48 79 25  |):.Vy%+L%,X%-Hy%|
00024360  2c 4c 25 2b 62 79 25 2c  58 25 2d 74 79 25 3a c8  |,L%+by%,X%-ty%:.|
00024370  99 26 34 30 30 63 61 2c  2c 5a 25 b8 64 25 3a ce  |.&400ca,,Z%.d%:.|
00024380  3a 50 6c 25 3d b9 3a e1  0d 7b 88 f3 dd f2 6b 6c  |:Pl%=.:..{....kl|
00024390  3a ea 55 4a 25 2c 78 5f  25 2c 4e 2c 62 65 25 2c  |:.UJ%,x_%,N,be%,|
000243a0  78 60 25 3a 4d 25 21 30  3d 5f 5f 25 3a 4d 25 21  |x`%:M%!0=__%:M%!|
000243b0  34 3d 30 3a 4d 25 21 38  3d 2d 31 30 30 30 30 30  |4=0:M%!8=-100000|
000243c0  3a 4d 25 21 31 32 3d 31  30 30 30 30 30 3a 4d 25  |:M%!12=100000:M%|
000243d0  21 31 36 3d 30 3a c8 99  26 34 30 30 63 39 2c 2c  |!16=0:..&400c9,,|
000243e0  4d 25 b8 64 25 3a 4c 25  3d 4d 25 21 34 2d 4d 25  |M%.d%:L%=M%!4-M%|
000243f0  21 32 30 3a 58 25 3d 4d  25 21 31 36 2d 4d 25 21  |!20:X%=M%!16-M%!|
00024400  32 34 3a f2 57 28 33 2c  31 31 29 3a c8 95 64 25  |24:.W(3,11):..d%|
00024410  3a f2 57 28 33 2c 31 31  29 3a 86 56 79 25 2b 4c  |:.W(3,11):.Vy%+L|
00024420  25 2c 58 25 2d 48 79 25  2c 62 79 25 2b 4c 25 2c  |%,X%-Hy%,by%+L%,|
00024430  58 25 2d 74 79 25 3a c8  99 26 34 30 30 63 61 2c  |X%-ty%:..&400ca,|
00024440  2c 4d 25 b8 64 25 3a ce  3a 5a 25 21 30 3d 5f 5f  |,M%.d%:.:Z%!0=__|
00024450  25 3a c8 99 26 34 30 30  63 62 2c 2c 5a 25 3a 4c  |%:..&400cb,,Z%:L|
00024460  25 3d 5a 25 21 34 2d 5a  25 21 32 30 3a 58 25 3d  |%=Z%!4-Z%!20:X%=|
00024470  5a 25 21 31 36 2d 5a 25  21 32 34 0d 7b 89 21 e7  |Z%!16-Z%!24.{.!.|
00024480  94 28 62 79 25 2d 56 79  25 29 3c 33 32 80 94 28  |.(by%-Vy%)<32..(|
00024490  74 79 25 2d 48 79 25 29  3c 33 32 e1 0d 7b 8a 0f  |ty%-Hy%)<32..{..|
000244a0  e7 62 79 25 2d 56 79 25  3d 30 8c 0d 7b 8b 0d e7  |.by%-Vy%=0..{...|
000244b0  74 79 25 3e 48 79 25 8c  0d 7b 8c 0b f2 6c 79 28  |ty%>Hy%..{...ly(|
000244c0  39 30 29 0d 7b 8d 0e cc  3a f2 6c 79 28 32 37 30  |90).{...:.ly(270|
000244d0  29 0d 7b 8e 05 cd 0d 7b  8f 3b cc 3a 62 65 25 3d  |).{....{.;.:be%=|
000244e0  62 79 25 2d 56 79 25 3a  78 60 25 3d 74 79 25 2d  |by%-Vy%:x`%=ty%-|
000244f0  48 79 25 3a 4e 3d 9d 28  99 28 78 60 25 2f 62 65  |Hy%:N=.(.(x`%/be|
00024500  25 29 29 3a e7 62 65 25  3c 30 4e 3d 31 38 30 2b  |%)):.be%<0N=180+|
00024510  4e 0d 7b 90 0a f2 6c 79  28 4e 29 0d 7b 91 07 cd  |N.{...ly(N).{...|
00024520  3a e1 0d 7b 92 1b dd f2  51 5f 3a 56 3d 30 3a 4b  |:..{....Q_:V=0:K|
00024530  25 3d a4 41 28 31 2c 6a  75 25 29 3a e1 0d 7b 93  |%=.A(1,ju%):..{.|
00024540  ad dd f2 7a 6c 3a c8 99  26 34 30 36 63 30 3a 5a  |...zl:..&406c0:Z|
00024550  25 21 30 3d 6b 25 3a c8  99 26 34 30 30 63 62 2c  |%!0=k%:..&400cb,|
00024560  2c 5a 25 3a 4c 25 3d 5a  25 21 34 2d 5a 25 21 32  |,Z%:L%=Z%!4-Z%!2|
00024570  30 3a 58 25 3d 5a 25 21  31 36 2d 5a 25 21 32 34  |0:X%=Z%!16-Z%!24|
00024580  3a 68 6c 25 3d 2d 5a 25  21 31 36 2b 5a 25 21 38  |:hl%=-Z%!16+Z%!8|
00024590  3a 72 6c 25 3d 5a 25 21  31 32 2d 5a 25 21 34 3a  |:rl%=Z%!12-Z%!4:|
000245a0  c8 99 26 34 30 30 63 66  2c 2c 5a 25 3a 73 25 3d  |..&400cf,,Z%:s%=|
000245b0  5a 25 21 30 3a 76 25 3d  5a 25 21 34 3a 5a 5f 25  |Z%!0:v%=Z%!4:Z_%|
000245c0  3d 28 73 25 2d 4c 25 29  2f 52 25 3a 75 79 25 3d  |=(s%-L%)/R%:uy%=|
000245d0  28 58 25 2d 76 25 29 2f  56 25 3a 5a 79 25 3d 2d  |(X%-v%)/V%:Zy%=-|
000245e0  31 3a e7 41 79 25 3e 2d  31 8c 0d 7b 94 7f e3 4e  |1:.Ay%>-1..{...N|
000245f0  25 3d 30 b8 41 79 25 3a  e7 5a 5f 25 3e 3d 51 25  |%=0.Ay%:.Z_%>=Q%|
00024600  21 28 4e 25 2a 31 36 29  2a 55 25 2f 31 30 30 80  |!(N%*16)*U%/100.|
00024610  5a 5f 25 3c 3d 51 25 21  28 4e 25 2a 31 36 2b 38  |Z_%<=Q%!(N%*16+8|
00024620  29 2a 55 25 2f 31 30 30  80 75 79 25 3e 3d 51 25  |)*U%/100.uy%>=Q%|
00024630  21 28 4e 25 2a 31 36 2b  34 29 2a 55 25 2f 31 30  |!(N%*16+4)*U%/10|
00024640  30 80 75 79 25 3c 3d 51  25 21 28 4e 25 2a 31 36  |0.uy%<=Q%!(N%*16|
00024650  2b 31 32 29 2a 55 25 2f  31 30 30 8c 5a 79 25 3d  |+12)*U%/100.Zy%=|
00024660  4e 25 3a 4e 25 3d 41 79  25 0d 7b 95 86 e7 5a 5f  |N%:N%=Ay%.{...Z_|
00024670  25 3e 3d 51 25 21 28 4e  25 2a 31 36 29 2a 55 25  |%>=Q%!(N%*16)*U%|
00024680  2f 31 30 30 2d 38 2f 52  25 80 5a 5f 25 3c 3d 51  |/100-8/R%.Z_%<=Q|
00024690  25 21 28 4e 25 2a 31 36  29 2a 55 25 2f 31 30 30  |%!(N%*16)*U%/100|
000246a0  2b 38 2f 52 25 80 75 79  25 3e 3d 51 25 21 28 4e  |+8/R%.uy%>=Q%!(N|
000246b0  25 2a 31 36 2b 34 29 2a  55 25 2f 31 30 30 2d 38  |%*16+4)*U%/100-8|
000246c0  2f 56 25 80 75 79 25 3c  3d 51 25 21 28 4e 25 2a  |/V%.uy%<=Q%!(N%*|
000246d0  31 36 2b 34 29 2a 55 25  2f 31 30 30 2b 38 2f 56  |16+4)*U%/100+8/V|
000246e0  25 8c 5a 79 25 3d 4e 25  3a 4e 25 3d 41 79 25 0d  |%.Zy%=N%:N%=Ay%.|
000246f0  7b 96 8a e7 5a 5f 25 3e  3d 51 25 21 28 4e 25 2a  |{...Z_%>=Q%!(N%*|
00024700  31 36 2b 38 29 2a 55 25  2f 31 30 30 2d 38 2f 52  |16+8)*U%/100-8/R|
00024710  25 80 5a 5f 25 3c 3d 51  25 21 28 4e 25 2a 31 36  |%.Z_%<=Q%!(N%*16|
00024720  2b 38 29 2a 55 25 2f 31  30 30 2b 38 2f 52 25 80  |+8)*U%/100+8/R%.|
00024730  75 79 25 3e 3d 51 25 21  28 4e 25 2a 31 36 2b 34  |uy%>=Q%!(N%*16+4|
00024740  29 2a 55 25 2f 31 30 30  2d 38 2f 56 25 80 75 79  |)*U%/100-8/V%.uy|
00024750  25 3c 3d 51 25 21 28 4e  25 2a 31 36 2b 34 29 2a  |%<=Q%!(N%*16+4)*|
00024760  55 25 2f 31 30 30 2b 38  2f 56 25 8c 5a 79 25 3d  |U%/100+8/V%.Zy%=|
00024770  4e 25 3a 4e 25 3d 41 79  25 0d 7b 97 8c e7 5a 5f  |N%:N%=Ay%.{...Z_|
00024780  25 3e 3d 51 25 21 28 4e  25 2a 31 36 2b 38 29 2a  |%>=Q%!(N%*16+8)*|
00024790  55 25 2f 31 30 30 2d 38  2f 52 25 80 5a 5f 25 3c  |U%/100-8/R%.Z_%<|
000247a0  3d 51 25 21 28 4e 25 2a  31 36 2b 38 29 2a 55 25  |=Q%!(N%*16+8)*U%|
000247b0  2f 31 30 30 2b 38 2f 52  25 80 75 79 25 3e 3d 51  |/100+8/R%.uy%>=Q|
000247c0  25 21 28 4e 25 2a 31 36  2b 31 32 29 2a 55 25 2f  |%!(N%*16+12)*U%/|
000247d0  31 30 30 2d 38 2f 56 25  80 75 79 25 3c 3d 51 25  |100-8/V%.uy%<=Q%|
000247e0  21 28 4e 25 2a 31 36 2b  31 32 29 2a 55 25 2f 31  |!(N%*16+12)*U%/1|
000247f0  30 30 2b 38 2f 56 25 8c  5a 79 25 3d 4e 25 3a 4e  |00+8/V%.Zy%=N%:N|
00024800  25 3d 41 79 25 0d 7b 98  88 e7 5a 5f 25 3e 3d 51  |%=Ay%.{...Z_%>=Q|
00024810  25 21 28 4e 25 2a 31 36  29 2a 55 25 2f 31 30 30  |%!(N%*16)*U%/100|
00024820  2d 38 2f 52 25 80 5a 5f  25 3c 3d 51 25 21 28 4e  |-8/R%.Z_%<=Q%!(N|
00024830  25 2a 31 36 29 2a 55 25  2f 31 30 30 2b 38 2f 52  |%*16)*U%/100+8/R|
00024840  25 80 75 79 25 3e 3d 51  25 21 28 4e 25 2a 31 36  |%.uy%>=Q%!(N%*16|
00024850  2b 31 32 29 2a 55 25 2f  31 30 30 2d 38 2f 56 25  |+12)*U%/100-8/V%|
00024860  80 75 79 25 3c 3d 51 25  21 28 4e 25 2a 31 36 2b  |.uy%<=Q%!(N%*16+|
00024870  31 32 29 2a 55 25 2f 31  30 30 2b 38 2f 56 25 8c  |12)*U%/100+8/V%.|
00024880  5a 79 25 3d 4e 25 3a 4e  25 3d 41 79 25 0d 7b 99  |Zy%=N%:N%=Ay%.{.|
00024890  05 ed 0d 7b 9a 13 cd 3a  f2 64 79 28 5a 79 25 2c  |...{...:.dy(Zy%,|
000248a0  62 25 29 3a e1 0d 7b 9b  31 dd f2 64 79 28 5a 79  |b%):..{.1..dy(Zy|
000248b0  25 2c 62 25 29 3a ea 4d  6e 25 2c 53 6e 25 3a e7  |%,b%):.Mn%,Sn%:.|
000248c0  62 25 3d 32 35 36 2b 34  80 75 69 25 3d b9 80 41  |b%=256+4.ui%=..A|
000248d0  79 25 3e 30 8c e1 0d 7b  9c 12 e7 62 25 3d 32 35  |y%>0...{...b%=25|
000248e0  36 2b 34 8c 62 25 3d 34  0d 7b 9d 6b c8 99 34 36  |6+4.b%=4.{.k..46|
000248f0  2c 4e 6c 25 2c 41 25 28  60 25 29 2c 4d 24 b8 2c  |,Nl%,A%(`%),M$.,|
00024900  2c 2c 6e 25 2c 74 25 3a  c8 99 34 36 2c 32 34 2b  |,,n%,t%:..46,24+|
00024910  32 35 36 2c 41 25 28 60  25 29 2c 4d 24 b8 2c 2c  |256,A%(`%),M$.,,|
00024920  63 25 3a 55 79 25 3d 63  25 21 31 36 3a 79 79 25  |c%:Uy%=c%!16:yy%|
00024930  3d 63 25 21 32 30 3a 48  75 25 3d 63 25 2d 41 25  |=c%!20:Hu%=c%-A%|
00024940  28 60 25 29 2b 63 25 21  33 32 3a e7 5a 79 25 3d  |(`%)+c%!32:.Zy%=|
00024950  2d 31 8c 0d 7b 9e 1d 21  44 79 3d 30 3a 21 51 79  |-1..{..!Dy=0:!Qy|
00024960  3d 30 3a 4d 6e 25 3d 6e  25 3a 53 6e 25 3d 74 25  |=0:Mn%=n%:Sn%=t%|
00024970  0d 7b 9f 5e cc 3a 21 44  79 3d 51 25 21 28 5a 79  |.{.^.:!Dy=Q%!(Zy|
00024980  25 2a 31 36 29 3a 21 51  79 3d 51 25 21 28 5a 79  |%*16):!Qy=Q%!(Zy|
00024990  25 2a 31 36 2b 34 29 3a  4d 6e 25 3d 51 25 21 28  |%*16+4):Mn%=Q%!(|
000249a0  5a 79 25 2a 31 36 2b 38  29 3a 53 6e 25 3d 51 25  |Zy%*16+8):Sn%=Q%|
000249b0  21 28 5a 79 25 2a 31 36  2b 31 32 29 3a e7 21 44  |!(Zy%*16+12):.!D|
000249c0  79 3e 4d 6e 25 c8 94 21  44 79 2c 4d 6e 25 0d 7b  |y>Mn%..!Dy,Mn%.{|
000249d0  a0 15 e7 21 51 79 3e 53  6e 25 c8 94 21 51 79 2c  |...!Qy>Sn%..!Qy,|
000249e0  53 6e 25 0d 7b a1 1b 4d  6e 25 3d 4d 6e 25 2d 21  |Sn%.{..Mn%=Mn%-!|
000249f0  44 79 3a 53 6e 25 3d 53  6e 25 2d 21 51 79 0d 7b  |Dy:Sn%=Sn%-!Qy.{|
00024a00  a2 4c cd 3a 21 75 5f 3d  a4 4b 28 43 29 3a 21 6c  |.L.:!u_=.K(C):!l|
00024a10  5f 3d a4 52 28 46 29 3a  21 68 79 3d 4d 6e 25 2f  |_=.R(F):!hy=Mn%/|
00024a20  21 75 5f 3a 21 58 5f 3d  53 6e 25 2f 21 6c 5f 3a  |!u_:!X_=Sn%/!l_:|
00024a30  21 71 6c 3d 4d 6e 25 3a  21 48 6c 3d 53 6e 25 3a  |!ql=Mn%:!Hl=Sn%:|
00024a40  e7 41 6c 25 3c 3d 31 30  30 8c 0d 7b a3 09 21 48  |.Al%<=100..{..!H|
00024a50  5f 3d 37 0d 7b a4 10 cc  3a e7 41 6c 25 3c 3d 33  |_=7.{...:.Al%<=3|
00024a60  30 30 8c 0d 7b a5 09 21  48 5f 3d 38 0d 7b a6 0b  |00..{..!H_=8.{..|
00024a70  cc 3a 21 48 5f 3d 39 0d  7b a7 05 cd 0d 7b a8 8c  |.:!H_=9.{....{..|
00024a80  cd 3a 4b 25 3d a4 41 28  21 68 79 2a 21 58 5f 2c  |.:K%=.A(!hy*!X_,|
00024a90  67 6f 25 29 3a e7 4b 25  3d a3 8c f2 43 28 22 4f  |go%):.K%=...C("O|
00024aa0  70 74 69 63 61 6c 22 2c  22 54 68 65 72 65 20 69  |ptical","There i|
00024ab0  73 20 6e 6f 74 20 65 6e  6f 75 67 68 20 66 72 65  |s not enough fre|
00024ac0  65 20 6d 65 6d 6f 72 79  20 61 76 61 69 6c 61 62  |e memory availab|
00024ad0  6c 65 20 74 6f 20 66 69  6e 64 20 61 6e 79 20 63  |le to find any c|
00024ae0  6f 6c 75 6d 6e 73 2e 20  4e 65 65 64 20 22 2b c3  |olumns. Need "+.|
00024af0  28 28 21 68 79 2a 21 58  5f 29 81 31 30 32 34 29  |((!hy*!X_).1024)|
00024b00  2b 22 4b 2e 22 29 3a e1  0d 7b a9 61 21 6a 69 3d  |+"K."):..{.a!ji=|
00024b10  63 61 25 3a 41 25 3d 55  79 25 2b 31 3a 42 25 3d  |ca%:A%=Uy%+1:B%=|
00024b20  41 25 28 60 25 29 2b 48  75 25 3a 43 25 3d 41 25  |A%(`%)+Hu%:C%=A%|
00024b30  28 67 6f 25 29 3a 44 25  3d 41 6c 25 2f 31 30 30  |(go%):D%=Al%/100|
00024b40  3a 45 25 3d 4a 50 25 3a  66 75 25 3d ba 28 6e 4a  |:E%=JP%:fu%=.(nJ|
00024b50  29 3a 4b 25 3d a4 41 28  31 2c 67 6f 25 29 3a f2  |):K%=.A(1,go%):.|
00024b60  53 79 3a e7 62 25 3d 31  8c 0d 7b aa 14 e7 5a 79  |Sy:.b%=1..{...Zy|
00024b70  25 3d 2d 31 5a 79 25 3d  41 79 25 2b 31 0d 7b ab  |%=-1Zy%=Ay%+1.{.|
00024b80  22 66 75 25 2d 3d 31 3a  e7 66 75 25 2b 41 79 25  |"fu%-=1:.fu%+Ay%|
00024b90  3e 62 6c 25 66 75 25 3d  62 6c 25 2d 41 79 25 0d  |>bl%fu%=bl%-Ay%.|
00024ba0  7b ac 13 e7 66 75 25 3e  30 80 41 79 25 3e 5a 79  |{...fu%>0.Ay%>Zy|
00024bb0  25 8c 0d 7b ad 98 e3 4e  25 3d 41 79 25 b8 5a 79  |%..{...N%=Ay%.Zy|
00024bc0  25 2b 31 88 2d 31 3a 51  25 21 28 4e 25 2a 31 36  |%+1.-1:Q%!(N%*16|
00024bd0  2b 66 75 25 2a 31 36 29  3d 51 25 21 28 4e 25 2a  |+fu%*16)=Q%!(N%*|
00024be0  31 36 29 3a 51 25 21 28  4e 25 2a 31 36 2b 34 2b  |16):Q%!(N%*16+4+|
00024bf0  66 75 25 2a 31 36 29 3d  51 25 21 28 4e 25 2a 31  |fu%*16)=Q%!(N%*1|
00024c00  36 2b 34 29 3a 51 25 21  28 4e 25 2a 31 36 2b 38  |6+4):Q%!(N%*16+8|
00024c10  2b 66 75 25 2a 31 36 29  3d 51 25 21 28 4e 25 2a  |+fu%*16)=Q%!(N%*|
00024c20  31 36 2b 38 29 3a 51 25  21 28 4e 25 2a 31 36 2b  |16+8):Q%!(N%*16+|
00024c30  31 32 2b 66 75 25 2a 31  36 29 3d 51 25 21 28 4e  |12+fu%*16)=Q%!(N|
00024c40  25 2a 31 36 2b 31 32 29  3a ed 0d 7b ae 0e cd 3a  |%*16+12):..{...:|
00024c50  e7 66 75 25 3e 2d 31 8c  0d 7b af 95 e3 4e 25 3d  |.fu%>-1..{...N%=|
00024c60  30 b8 66 75 25 3a 51 25  21 28 4e 25 2a 31 36 2b  |0.fu%:Q%!(N%*16+|
00024c70  5a 79 25 2a 31 36 29 3d  63 61 25 21 28 4e 25 2a  |Zy%*16)=ca%!(N%*|
00024c80  31 36 29 3a 51 25 21 28  4e 25 2a 31 36 2b 34 2b  |16):Q%!(N%*16+4+|
00024c90  5a 79 25 2a 31 36 29 3d  63 61 25 21 28 4e 25 2a  |Zy%*16)=ca%!(N%*|
00024ca0  31 36 2b 34 29 3a 51 25  21 28 4e 25 2a 31 36 2b  |16+4):Q%!(N%*16+|
00024cb0  38 2b 5a 79 25 2a 31 36  29 3d 63 61 25 21 28 4e  |8+Zy%*16)=ca%!(N|
00024cc0  25 2a 31 36 2b 38 29 3a  51 25 21 28 4e 25 2a 31  |%*16+8):Q%!(N%*1|
00024cd0  36 2b 31 32 2b 5a 79 25  2a 31 36 29 3d 63 61 25  |6+12+Zy%*16)=ca%|
00024ce0  21 28 4e 25 2a 31 36 2b  31 32 29 3a ed 0d 7b b0  |!(N%*16+12):..{.|
00024cf0  16 cd 3a e7 5a 79 25 3d  41 79 25 2b 31 41 79 25  |..:.Zy%=Ay%+1Ay%|
00024d00  2b 3d 31 0d 7b b1 0c 41  79 25 2b 3d 66 75 25 0d  |+=1.{..Ay%+=fu%.|
00024d10  7b b2 15 cc 3a e7 66 75  25 3e 62 6c 25 66 75 25  |{...:.fu%>bl%fu%|
00024d20  3d 62 6c 25 0d 7b b3 0b  e7 66 75 25 3e 30 8c 0d  |=bl%.{...fu%>0..|
00024d30  7b b4 7b e3 4e 25 3d 30  b8 66 75 25 2d 31 3a 51  |{.{.N%=0.fu%-1:Q|
00024d40  25 21 28 4e 25 2a 31 36  29 3d 63 61 25 21 28 4e  |%!(N%*16)=ca%!(N|
00024d50  25 2a 31 36 29 3a 51 25  21 28 4e 25 2a 31 36 2b  |%*16):Q%!(N%*16+|
00024d60  34 29 3d 63 61 25 21 28  4e 25 2a 31 36 2b 34 29  |4)=ca%!(N%*16+4)|
00024d70  3a 51 25 21 28 4e 25 2a  31 36 2b 38 29 3d 63 61  |:Q%!(N%*16+8)=ca|
00024d80  25 21 28 4e 25 2a 31 36  2b 38 29 3a 51 25 21 28  |%!(N%*16+8):Q%!(|
00024d90  4e 25 2a 31 36 2b 31 32  29 3d 63 61 25 21 28 4e  |N%*16+12)=ca%!(N|
00024da0  25 2a 31 36 2b 31 32 29  3a ed 0d 7b b5 0f cd 3a  |%*16+12):..{...:|
00024db0  41 79 25 3d 66 75 25 2d  31 0d 7b b6 14 cd 3a f2  |Ay%=fu%-1.{...:.|
00024dc0  53 79 3a c8 99 26 34 30  36 63 31 3a e1 0d 7b b7  |Sy:..&406c1:..{.|
00024dd0  10 dd f2 53 79 3a e7 41  79 25 3c 30 e1 0d 7b b8  |...Sy:.Ay%<0..{.|
00024de0  8b 5a 25 21 30 3d 6b 25  3a 5a 25 21 34 3d 30 3a  |.Z%!0=k%:Z%!4=0:|
00024df0  5a 25 21 38 3d 2d 74 25  2a 56 25 2a 55 25 2f 31  |Z%!8=-t%*V%*U%/1|
00024e00  30 30 2d 31 36 3a 5a 25  21 31 32 3d 6e 25 2a 52  |00-16:Z%!12=n%*R|
00024e10  25 2a 55 25 2f 31 30 30  2b 31 36 3a 5a 25 21 31  |%*U%/100+16:Z%!1|
00024e20  36 3d 30 3a c8 99 26 34  30 30 63 39 2c 2c 5a 25  |6=0:..&400c9,,Z%|
00024e30  b8 64 25 3a 4c 25 3d 5a  25 21 34 2d 5a 25 21 32  |.d%:L%=Z%!4-Z%!2|
00024e40  30 3a 58 25 3d 5a 25 21  31 36 2d 5a 25 21 32 34  |0:X%=Z%!16-Z%!24|
00024e50  3a c8 95 64 25 3a e3 4e  25 3d 30 b8 41 79 25 3a  |:..d%:.N%=0.Ay%:|
00024e60  f2 57 28 33 2c 31 30 29  0d 7b b9 c9 c8 93 4c 25  |.W(3,10).{....L%|
00024e70  2b 51 25 21 28 4e 25 2a  31 36 29 2a 52 25 2a 55  |+Q%!(N%*16)*R%*U|
00024e80  25 2f 31 30 30 2c 58 25  2d 51 25 21 28 4e 25 2a  |%/100,X%-Q%!(N%*|
00024e90  31 36 2b 34 29 2a 56 25  2a 55 25 2f 31 30 30 2c  |16+4)*V%*U%/100,|
00024ea0  28 51 25 21 28 4e 25 2a  31 36 2b 38 29 2d 51 25  |(Q%!(N%*16+8)-Q%|
00024eb0  21 28 4e 25 2a 31 36 29  29 2a 52 25 2a 55 25 2f  |!(N%*16))*R%*U%/|
00024ec0  31 30 30 2c 2d 28 51 25  21 28 4e 25 2a 31 36 2b  |100,-(Q%!(N%*16+|
00024ed0  31 32 29 2d 51 25 21 28  4e 25 2a 31 36 2b 34 29  |12)-Q%!(N%*16+4)|
00024ee0  29 2a 56 25 2a 55 25 2f  31 30 30 3a f2 57 28 33  |)*V%*U%/100:.W(3|
00024ef0  2c 38 29 3a c8 93 4c 25  2b 51 25 21 28 4e 25 2a  |,8):..L%+Q%!(N%*|
00024f00  31 36 29 2a 52 25 2a 55  25 2f 31 30 30 2d 38 2c  |16)*R%*U%/100-8,|
00024f10  58 25 2d 51 25 21 28 4e  25 2a 31 36 2b 34 29 2a  |X%-Q%!(N%*16+4)*|
00024f20  56 25 2a 55 25 2f 31 30  30 2d 38 2c 31 36 2c 31  |V%*U%/100-8,16,1|
00024f30  36 0d 7b ba ca c8 93 4c  25 2b 51 25 21 28 4e 25  |6.{....L%+Q%!(N%|
00024f40  2a 31 36 2b 38 29 2a 52  25 2a 55 25 2f 31 30 30  |*16+8)*R%*U%/100|
00024f50  2d 38 2c 58 25 2d 51 25  21 28 4e 25 2a 31 36 2b  |-8,X%-Q%!(N%*16+|
00024f60  34 29 2a 56 25 2a 55 25  2f 31 30 30 2d 38 2c 31  |4)*V%*U%/100-8,1|
00024f70  36 2c 31 36 3a c8 93 4c  25 2b 51 25 21 28 4e 25  |6,16:..L%+Q%!(N%|
00024f80  2a 31 36 2b 38 29 2a 52  25 2a 55 25 2f 31 30 30  |*16+8)*R%*U%/100|
00024f90  2d 38 2c 58 25 2d 51 25  21 28 4e 25 2a 31 36 2b  |-8,X%-Q%!(N%*16+|
00024fa0  31 32 29 2a 56 25 2a 55  25 2f 31 30 30 2d 38 2c  |12)*V%*U%/100-8,|
00024fb0  31 36 2c 31 36 3a c8 93  4c 25 2b 51 25 21 28 4e  |16,16:..L%+Q%!(N|
00024fc0  25 2a 31 36 29 2a 52 25  2a 55 25 2f 31 30 30 2d  |%*16)*R%*U%/100-|
00024fd0  38 2c 58 25 2d 51 25 21  28 4e 25 2a 31 36 2b 31  |8,X%-Q%!(N%*16+1|
00024fe0  32 29 2a 56 25 2a 55 25  2f 31 30 30 2d 38 2c 31  |2)*V%*U%/100-8,1|
00024ff0  36 2c 31 36 3a e7 4e 25  3e 30 8c 0d 7b bb be f2  |6,16:.N%>0..{...|
00025000  57 28 33 2c 31 31 29 3a  86 4c 25 2b 51 25 21 28  |W(3,11):.L%+Q%!(|
00025010  4e 25 2a 31 36 2d 38 29  2a 52 25 2a 55 25 2f 31  |N%*16-8)*R%*U%/1|
00025020  30 30 2d 33 32 2c 58 25  2d 51 25 21 28 4e 25 2a  |00-32,X%-Q%!(N%*|
00025030  31 36 2d 34 29 2a 56 25  2a 55 25 2f 31 30 30 2c  |16-4)*V%*U%/100,|
00025040  4c 25 2b 51 25 21 28 4e  25 2a 31 36 29 2a 52 25  |L%+Q%!(N%*16)*R%|
00025050  2a 55 25 2f 31 30 30 2b  33 32 2c 58 25 2d 51 25  |*U%/100+32,X%-Q%|
00025060  21 28 4e 25 2a 31 36 2b  34 29 2a 56 25 2a 55 25  |!(N%*16+4)*V%*U%|
00025070  2f 31 30 30 3a c8 93 c8  90 4c 25 2b 51 25 21 28  |/100:....L%+Q%!(|
00025080  4e 25 2a 31 36 2d 38 29  2a 52 25 2a 55 25 2f 31  |N%*16-8)*R%*U%/1|
00025090  30 30 2d 38 2d 33 32 2c  58 25 2d 51 25 21 28 4e  |00-8-32,X%-Q%!(N|
000250a0  25 2a 31 36 2d 34 29 2a  56 25 2a 55 25 2f 31 30  |%*16-4)*V%*U%/10|
000250b0  30 2d 38 2c 31 36 2c 31  36 0d 7b bc 46 c8 93 c8  |0-8,16,16.{.F...|
000250c0  90 4c 25 2b 51 25 21 28  4e 25 2a 31 36 29 2a 52  |.L%+Q%!(N%*16)*R|
000250d0  25 2a 55 25 2f 31 30 30  2d 38 2b 33 32 2c 58 25  |%*U%/100-8+32,X%|
000250e0  2d 51 25 21 28 4e 25 2a  31 36 2b 34 29 2a 56 25  |-Q%!(N%*16+4)*V%|
000250f0  2a 55 25 2f 31 30 30 2d  38 2c 31 36 2c 31 36 0d  |*U%/100-8,16,16.|
00025100  7b bd 1b cd 3a ed 3a c8  99 26 34 30 30 63 61 2c  |{...:.:..&400ca,|
00025110  2c 5a 25 b8 64 25 3a ce  3a e1 0d 7b be 10 dd f2  |,Z%.d%:.:..{....|
00025120  6d 75 3a e7 57 5f 25 3c  30 e1 0d 7b bf 8b 5a 25  |mu:.W_%<0..{..Z%|
00025130  21 30 3d 6b 25 3a 5a 25  21 34 3d 30 3a 5a 25 21  |!0=k%:Z%!4=0:Z%!|
00025140  38 3d 2d 74 25 2a 56 25  2a 55 25 2f 31 30 30 2d  |8=-t%*V%*U%/100-|
00025150  31 36 3a 5a 25 21 31 32  3d 6e 25 2a 52 25 2a 55  |16:Z%!12=n%*R%*U|
00025160  25 2f 31 30 30 2b 31 36  3a 5a 25 21 31 36 3d 30  |%/100+16:Z%!16=0|
00025170  3a c8 99 26 34 30 30 63  39 2c 2c 5a 25 b8 64 25  |:..&400c9,,Z%.d%|
00025180  3a 4c 25 3d 5a 25 21 34  2d 5a 25 21 32 30 3a 58  |:L%=Z%!4-Z%!20:X|
00025190  25 3d 5a 25 21 31 36 2d  5a 25 21 32 34 3a c8 95  |%=Z%!16-Z%!24:..|
000251a0  64 25 3a e3 4e 25 3d 30  b8 57 5f 25 3a f2 57 28  |d%:.N%=0.W_%:.W(|
000251b0  33 2c 31 31 29 0d 7b c0  c1 c8 93 4c 25 2b 66 25  |3,11).{....L%+f%|
000251c0  21 28 4e 25 2a 31 36 29  2a 52 25 2a 55 25 2f 31  |!(N%*16)*R%*U%/1|
000251d0  30 30 2c 58 25 2d 66 25  21 28 4e 25 2a 31 36 2b  |00,X%-f%!(N%*16+|
000251e0  34 29 2a 56 25 2a 55 25  2f 31 30 30 2c 28 66 25  |4)*V%*U%/100,(f%|
000251f0  21 28 4e 25 2a 31 36 2b  38 29 2d 66 25 21 28 4e  |!(N%*16+8)-f%!(N|
00025200  25 2a 31 36 29 29 2a 52  25 2a 55 25 2f 31 30 30  |%*16))*R%*U%/100|
00025210  2c 2d 28 66 25 21 28 4e  25 2a 31 36 2b 31 32 29  |,-(f%!(N%*16+12)|
00025220  2d 66 25 21 28 4e 25 2a  31 36 2b 34 29 29 2a 56  |-f%!(N%*16+4))*V|
00025230  25 2a 55 25 2f 31 30 30  3a c8 93 4c 25 2b 66 25  |%*U%/100:..L%+f%|
00025240  21 28 4e 25 2a 31 36 29  2a 52 25 2a 55 25 2f 31  |!(N%*16)*R%*U%/1|
00025250  30 30 2d 38 2c 58 25 2d  66 25 21 28 4e 25 2a 31  |00-8,X%-f%!(N%*1|
00025260  36 2b 34 29 2a 56 25 2a  55 25 2f 31 30 30 2d 38  |6+4)*V%*U%/100-8|
00025270  2c 31 36 2c 31 36 0d 7b  c1 c3 c8 93 4c 25 2b 66  |,16,16.{....L%+f|
00025280  25 21 28 4e 25 2a 31 36  2b 38 29 2a 52 25 2a 55  |%!(N%*16+8)*R%*U|
00025290  25 2f 31 30 30 2d 38 2c  58 25 2d 66 25 21 28 4e  |%/100-8,X%-f%!(N|
000252a0  25 2a 31 36 2b 34 29 2a  56 25 2a 55 25 2f 31 30  |%*16+4)*V%*U%/10|
000252b0  30 2d 38 2c 31 36 2c 31  36 3a c8 93 4c 25 2b 66  |0-8,16,16:..L%+f|
000252c0  25 21 28 4e 25 2a 31 36  2b 38 29 2a 52 25 2a 55  |%!(N%*16+8)*R%*U|
000252d0  25 2f 31 30 30 2d 38 2c  58 25 2d 66 25 21 28 4e  |%/100-8,X%-f%!(N|
000252e0  25 2a 31 36 2b 31 32 29  2a 56 25 2a 55 25 2f 31  |%*16+12)*V%*U%/1|
000252f0  30 30 2d 38 2c 31 36 2c  31 36 3a c8 93 4c 25 2b  |00-8,16,16:..L%+|
00025300  66 25 21 28 4e 25 2a 31  36 29 2a 52 25 2a 55 25  |f%!(N%*16)*R%*U%|
00025310  2f 31 30 30 2d 38 2c 58  25 2d 66 25 21 28 4e 25  |/100-8,X%-f%!(N%|
00025320  2a 31 36 2b 31 32 29 2a  56 25 2a 55 25 2f 31 30  |*16+12)*V%*U%/10|
00025330  30 2d 38 2c 31 36 2c 31  36 0d 7b c2 e9 86 4c 25  |0-8,16,16.{...L%|
00025340  2b 66 25 21 28 4e 25 2a  31 36 29 2a 52 25 2a 55  |+f%!(N%*16)*R%*U|
00025350  25 2f 31 30 30 2c 58 25  2d 66 25 21 28 4e 25 2a  |%/100,X%-f%!(N%*|
00025360  31 36 2b 34 29 2a 56 25  2a 55 25 2f 31 30 30 2c  |16+4)*V%*U%/100,|
00025370  4c 25 2b 66 25 21 28 4e  25 2a 31 36 2b 38 29 2a  |L%+f%!(N%*16+8)*|
00025380  52 25 2a 55 25 2f 31 30  30 2c 58 25 2d 66 25 21  |R%*U%/100,X%-f%!|
00025390  28 4e 25 2a 31 36 2b 31  32 29 2a 56 25 2a 55 25  |(N%*16+12)*V%*U%|
000253a0  2f 31 30 30 3a 86 4c 25  2b 66 25 21 28 4e 25 2a  |/100:.L%+f%!(N%*|
000253b0  31 36 2b 38 29 2a 52 25  2a 55 25 2f 31 30 30 2c  |16+8)*R%*U%/100,|
000253c0  58 25 2d 66 25 21 28 4e  25 2a 31 36 2b 34 29 2a  |X%-f%!(N%*16+4)*|
000253d0  56 25 2a 55 25 2f 31 30  30 2c 4c 25 2b 66 25 21  |V%*U%/100,L%+f%!|
000253e0  28 4e 25 2a 31 36 29 2a  52 25 2a 55 25 2f 31 30  |(N%*16)*R%*U%/10|
000253f0  30 2c 58 25 2d 66 25 21  28 4e 25 2a 31 36 2b 31  |0,X%-f%!(N%*16+1|
00025400  32 29 2a 56 25 2a 55 25  2f 31 30 30 3a ed 3a c8  |2)*V%*U%/100:.:.|
00025410  99 26 34 30 30 63 61 2c  2c 5a 25 b8 64 25 3a ce  |.&400ca,,Z%.d%:.|
00025420  3a e1 0d 7b c3 36 dd f2  49 61 3a f2 41 28 65 4a  |:..{.6..Ia:.A(eJ|
00025430  25 2c 35 2c c3 28 43 29  29 3a f2 41 28 65 4a 25  |%,5,.(C)):.A(eJ%|
00025440  2c 39 2c c3 28 46 29 29  3a f2 54 28 65 4a 25 2c  |,9,.(F)):.T(eJ%,|
00025450  79 25 2c 68 25 29 3a e1  0d 7b c4 2d dd f2 71 6c  |y%,h%):..{.-..ql|
00025460  28 62 25 2c 49 25 29 3a  e7 62 25 3d 31 80 49 25  |(b%,I%):.b%=1.I%|
00025470  3d 36 49 25 3d 37 8b e7  62 25 3d 31 80 49 25 3d  |=6I%=7..b%=1.I%=|
00025480  37 49 25 3d 36 0d 7b c5  25 e7 62 25 3d 31 80 49  |7I%=6.{.%.b%=1.I|
00025490  25 3d 31 30 49 25 3d 31  31 8b e7 62 25 3d 31 80  |%=10I%=11..b%=1.|
000254a0  49 25 3d 31 31 49 25 3d  31 30 0d 7b c6 09 c8 8e  |I%=11I%=10.{....|
000254b0  49 25 ca 0d 7b c7 2d c9  31 33 3a 46 3d bb 28 a4  |I%..{.-.13:F=.(.|
000254c0  4d 28 65 4a 25 2c 39 29  29 3a 43 3d bb 28 a4 4d  |M(eJ%,9)):C=.(.M|
000254d0  28 65 4a 25 2c 35 29 29  3a e7 46 3c 31 46 3d 31  |(eJ%,5)):.F<1F=1|
000254e0  0d 7b c8 0b e7 43 3c 31  43 3d 31 0d 7b c9 33 f2  |.{...C<1C=1.{.3.|
000254f0  41 28 65 4a 25 2c 35 2c  c3 28 43 29 29 3a f2 41  |A(eJ%,5,.(C)):.A|
00025500  28 65 4a 25 2c 39 2c c3  28 46 29 29 3a e7 62 25  |(eJ%,9,.(F)):.b%|
00025510  3c 3e 31 c8 99 26 34 30  30 64 34 2c 2d 31 0d 7b  |<>1..&400d4,-1.{|
00025520  ca 37 c9 31 34 3a f2 41  28 65 4a 25 2c 35 2c c3  |.7.14:.A(eJ%,5,.|
00025530  28 43 29 29 3a f2 41 28  65 4a 25 2c 39 2c c3 28  |(C)):.A(eJ%,9,.(|
00025540  46 29 29 3a e7 62 25 3c  3e 31 c8 99 26 34 30 30  |F)):.b%<>1..&400|
00025550  64 34 2c 2d 31 0d 7b cb  16 c9 36 3a f2 69 28 65  |d4,-1.{...6:.i(e|
00025560  4a 25 2c 35 2c 39 39 39  2c 31 29 0d 7b cc 14 c9  |J%,5,999,1).{...|
00025570  37 3a f2 68 28 65 4a 25  2c 35 2c 31 2c 31 29 0d  |7:.h(eJ%,5,1,1).|
00025580  7b cd 17 c9 31 30 3a f2  69 28 65 4a 25 2c 39 2c  |{...10:.i(eJ%,9,|
00025590  39 39 39 2c 31 29 0d 7b  ce 15 c9 31 31 3a f2 68  |999,1).{...11:.h|
000255a0  28 65 4a 25 2c 39 2c 31  2c 31 29 0d 7b cf 2b cb  |(eJ%,9,1,1).{.+.|
000255b0  3a 46 3d bb 28 a4 4d 28  65 4a 25 2c 39 29 29 3a  |:F=.(.M(eJ%,9)):|
000255c0  43 3d bb 28 a4 4d 28 65  4a 25 2c 35 29 29 3a e7  |C=.(.M(eJ%,5)):.|
000255d0  46 3c 31 46 3d 31 0d 7b  d0 0b e7 43 3c 31 43 3d  |F<1F=1.{...C<1C=|
000255e0  31 0d 7b d1 05 e1 0d 7b  d2 1e dd f2 77 61 28 49  |1.{....{....wa(I|
000255f0  25 2c 6a 25 29 3a e7 6a  25 3c 3e 31 33 80 49 25  |%,j%):.j%<>13.I%|
00025600  3c 3e 39 e1 0d 7b d3 29  46 3d bb 28 a4 4d 28 65  |<>9..{.)F=.(.M(e|
00025610  4a 25 2c 39 29 29 3a 43  3d bb 28 a4 4d 28 65 4a  |J%,9)):C=.(.M(eJ|
00025620  25 2c 35 29 29 3a e7 46  3c 31 46 3d 31 0d 7b d4  |%,5)):.F<1F=1.{.|
00025630  0b e7 43 3c 31 43 3d 31  0d 7b d5 11 c8 99 26 34  |..C<1C=1.{....&4|
00025640  30 30 64 34 2c 2d 31 3a  e1 0d 7b d6 2f dd f2 56  |00d4,-1:..{./..V|
00025650  4a 3a e7 57 79 25 3c 3e  30 84 21 41 3c 3e 30 84  |J:.Wy%<>0.!A<>0.|
00025660  49 79 25 84 28 4d 79 25  3f 28 50 25 2a 32 2b 31  |Iy%.(My%?(P%*2+1|
00025670  29 80 32 29 3c 3e 30 e1  0d 7b d7 ea 4d 25 21 30  |).2)<>0..{..M%!0|
00025680  3d 7a 75 25 3a c8 99 26  34 30 30 63 62 2c 2c 4d  |=zu%:..&400cb,,M|
00025690  25 3a 4d 25 21 34 3d 79  25 2d 55 5f 25 2a 32 3a  |%:M%!4=y%-U_%*2:|
000256a0  4d 25 21 38 3d 68 25 2d  49 5f 25 2a 32 3a 4d 25  |M%!8=h%-I_%*2:M%|
000256b0  21 31 32 3d 79 25 2b 55  5f 25 2a 32 3a 4d 25 21  |!12=y%+U_%*2:M%!|
000256c0  31 36 3d 68 25 2b 49 5f  25 2a 32 3a c8 99 26 34  |16=h%+I_%*2:..&4|
000256d0  30 30 63 35 2c 2c 4d 25  3a f2 4a 28 7a 75 25 29  |00c5,,M%:.J(zu%)|
000256e0  3a 4d 25 21 30 3d 7a 75  25 3a c8 99 26 34 30 30  |:M%!0=zu%:..&400|
000256f0  63 62 2c 2c 4d 25 3a 4d  25 21 34 2b 3d 31 36 3a  |cb,,M%:M%!4+=16:|
00025700  4d 25 21 31 32 2d 3d 31  36 3a e7 4d 25 21 31 32  |M%!12-=16:.M%!12|
00025710  3c 4d 25 21 34 f2 4d 28  7a 75 25 29 3a f2 43 28  |<M%!4.M(zu%):.C(|
00025720  22 4f 70 74 69 63 61 6c  22 2c 22 54 68 69 73 20  |"Optical","This |
00025730  63 68 61 72 61 63 74 65  72 20 63 61 6e 6e 6f 74  |character cannot|
00025740  20 62 65 20 73 70 6c 69  74 20 61 73 20 69 74 20  | be split as it |
00025750  69 73 20 74 6f 6f 20 6e  61 72 72 6f 77 2e 22 29  |is too narrow.")|
00025760  3a e1 0d 7b d8 a4 5a 25  21 30 3d 31 3a 5a 25 21  |:..{..Z%!0=1:Z%!|
00025770  31 3d 4d 25 21 34 83 32  35 36 3a 5a 25 21 32 3d  |1=M%!4.256:Z%!2=|
00025780  4d 25 21 34 81 32 35 36  3a 5a 25 21 33 3d 4d 25  |M%!4.256:Z%!3=M%|
00025790  21 38 83 32 35 36 3a 5a  25 21 34 3d 4d 25 21 38  |!8.256:Z%!4=M%!8|
000257a0  81 32 35 36 3a 5a 25 21  35 3d 4d 25 21 31 32 83  |.256:Z%!5=M%!12.|
000257b0  32 35 36 3a 5a 25 21 36  3d 4d 25 21 31 32 81 32  |256:Z%!6=M%!12.2|
000257c0  35 36 3a 5a 25 21 37 3d  4d 25 21 31 36 83 32 35  |56:Z%!7=M%!16.25|
000257d0  36 3a 5a 25 21 38 3d 4d  25 21 31 36 81 32 35 36  |6:Z%!8=M%!16.256|
000257e0  3a c8 99 37 2c 32 31 2c  5a 25 3a 72 61 25 3d 2d  |:..7,21,Z%:ra%=-|
000257f0  31 3a f2 47 28 65 25 2c  2d 31 2c 2d 31 29 3a 47  |1:.G(e%,-1,-1):G|
00025800  61 25 3d a3 3a e1 0d 7b  d9 6a dd f2 51 61 3a 7a  |a%=.:..{.j..Qa:z|
00025810  25 21 30 3d 32 3a 7a 25  21 34 3d 32 3a 7a 25 21  |%!0=2:z%!4=2:z%!|
00025820  38 3d 31 3a 7a 25 21 31  32 3d 31 3a f2 49 28 41  |8=1:z%!12=1:.I(A|
00025830  25 28 4e 75 25 29 2c 22  4c 65 61 72 6e 65 72 22  |%(Nu%),"Learner"|
00025840  2c 4c 25 2c 58 25 2d 49  5f 25 2a 34 2c 30 2c 7a  |,L%,X%-I_%*4,0,z|
00025850  25 29 3a f2 57 28 33 2c  31 31 29 3a 86 72 61 25  |%):.W(3,11):.ra%|
00025860  2c 58 25 2c 72 61 25 2c  2d 49 5f 25 2a 34 3a e1  |,X%,ra%,-I_%*4:.|
00025870  0d 7b da 4c dd f2 49 75  28 62 25 2c 49 25 29 3a  |.{.L..Iu(b%,I%):|
00025880  4d 25 21 30 3d 7a 75 25  3a c8 99 26 34 30 30 63  |M%!0=zu%:..&400c|
00025890  62 2c 2c 4d 25 3a f2 71  3a e7 73 25 2d 4d 25 21  |b,,M%:.q:.s%-M%!|
000258a0  34 3c 31 36 84 4d 25 21  31 32 2d 73 25 3c 31 36  |4<16.M%!12-s%<16|
000258b0  f2 4d 28 7a 75 25 29 3a  f2 6d 3a e1 0d 7b db 5a  |.M(zu%):.m:..{.Z|
000258c0  78 6e 25 3d 73 25 3a 4d  25 21 32 34 3d 4d 25 21  |xn%=s%:M%!24=M%!|
000258d0  34 2b 31 36 3a 4d 25 21  32 38 3d 4d 25 21 38 3a  |4+16:M%!28=M%!8:|
000258e0  4d 25 21 33 32 3d 4d 25  21 31 32 2d 31 36 3a 4d  |M%!32=M%!12-16:M|
000258f0  25 21 33 36 3d 4d 25 21  31 36 3a 4d 25 21 34 3d  |%!36=M%!16:M%!4=|
00025900  37 3a c8 99 26 34 30 30  64 30 2c 2c 4d 25 3a 47  |7:..&400d0,,M%:G|
00025910  61 25 3d b9 3a e1 0d 7b  dc c5 dd f2 4f 6c 3a ea  |a%=.:..{....Ol:.|
00025920  7a 69 25 2c 4e 6b 25 2c  43 5a 25 3a f2 71 3a 4d  |zi%,Nk%,CZ%:.q:M|
00025930  25 21 30 3d 7a 75 25 3a  c8 99 26 34 30 30 63 62  |%!0=zu%:..&400cb|
00025940  2c 2c 4d 25 3a 7a 69 25  3d 4d 25 21 34 3a 43 5f  |,,M%:zi%=M%!4:C_|
00025950  25 3d 41 25 28 71 79 25  29 3a 4b 25 3d a4 41 28  |%=A%(qy%):K%=.A(|
00025960  5a 25 28 71 79 25 29 2b  31 2c 71 79 25 29 3a e7  |Z%(qy%)+1,qy%):.|
00025970  4b 25 3d a3 8c f2 43 28  22 4f 70 74 69 63 61 6c  |K%=...C("Optical|
00025980  22 2c 22 54 68 65 72 65  20 69 73 20 6e 6f 74 20  |","There is not |
00025990  65 6e 6f 75 67 68 20 66  72 65 65 20 6d 65 6d 6f  |enough free memo|
000259a0  72 79 20 61 76 61 69 6c  61 62 6c 65 20 74 6f 20  |ry available to |
000259b0  73 70 6c 69 74 20 74 68  69 73 20 63 68 61 72 61  |split this chara|
000259c0  63 74 65 72 2e 20 4e 65  65 64 20 61 6e 20 65 78  |cter. Need an ex|
000259d0  74 72 61 20 31 4b 2e 22  29 3a e1 0d 7b dd 6e 4e  |tra 1K."):..{.nN|
000259e0  6b 25 3d 21 28 61 25 2b  50 25 2a 38 29 80 36 35  |k%=!(a%+P%*8).65|
000259f0  35 33 35 3a 43 5a 25 3d  21 28 61 25 2b 50 25 2a  |535:CZ%=!(a%+P%*|
00025a00  38 2b 32 29 80 36 35 35  33 35 3a 41 25 3d 50 25  |8+2).65535:A%=P%|
00025a10  3a 42 25 3d 51 79 25 3a  43 25 3d 6d 25 3a 44 25  |:B%=Qy%:C%=m%:D%|
00025a20  3d 41 25 28 71 79 25 29  3a 45 25 3d 70 5f 25 3a  |=A%(qy%):E%=p_%:|
00025a30  d6 67 3a e7 57 79 25 3c  3e 30 84 21 41 3c 3e 30  |.g:.Wy%<>0.!A<>0|
00025a40  8c c8 94 5f 25 2c 6b 5f  25 0d 7b de dd 75 4a 25  |..._%,k_%.{..uJ%|
00025a50  3d 21 62 3a 62 4a 25 3d  21 75 3a 50 79 25 3d 21  |=!b:bJ%=!u:Py%=!|
00025a60  77 3a 41 25 3d 43 5f 25  2b 50 79 25 3a 42 25 3d  |w:A%=C_%+Py%:B%=|
00025a70  43 5f 25 2b 50 79 25 2b  31 3a 43 25 3d 6d 25 2d  |C_%+Py%+1:C%=m%-|
00025a80  50 79 25 3a d6 51 3a 41  25 3d 50 75 25 2b 50 25  |Py%:.Q:A%=Pu%+P%|
00025a90  3a 42 25 3d 50 75 25 2b  50 25 2b 31 3a 43 25 3d  |:B%=Pu%+P%+1:C%=|
00025aa0  5f 25 2d 50 25 3a d6 51  3a 41 25 3d 4d 79 25 2b  |_%-P%:.Q:A%=My%+|
00025ab0  50 25 2a 32 3a 42 25 3d  4d 79 25 2b 28 50 25 2b  |P%*2:B%=My%+(P%+|
00025ac0  31 29 2a 32 3a 43 25 3d  28 5f 25 2d 50 25 29 2a  |1)*2:C%=(_%-P%)*|
00025ad0  32 3a d6 51 3a 41 25 3d  61 25 2b 50 25 2a 38 3a  |2:.Q:A%=a%+P%*8:|
00025ae0  42 25 3d 61 25 2b 50 25  2a 38 2b 38 3a 43 25 3d  |B%=a%+P%*8+8:C%=|
00025af0  28 5f 25 2d 50 25 29 2a  38 3a d6 51 3a e7 57 79  |(_%-P%)*8:.Q:.Wy|
00025b00  25 3c 3e 30 84 21 41 3c  3e 30 8c c8 94 5f 25 2c  |%<>0.!A<>0..._%,|
00025b10  6b 5f 25 3a 6b 5f 25 2b  3d 31 3a 21 55 2b 3d 31  |k_%:k_%+=1:!U+=1|
00025b20  3a 21 64 2b 3d 31 0d 7b  df 20 6d 25 2b 3d 31 3a  |:!d+=1.{. m%+=1:|
00025b30  5f 25 2b 3d 31 3a e7 78  6e 25 3e 73 25 8c c8 94  |_%+=1:.xn%>s%...|
00025b40  78 6e 25 2c 73 25 0d 7b  e0 b7 21 28 61 25 2b 50  |xn%,s%.{..!(a%+P|
00025b50  25 2a 38 2b 38 29 3d 4e  6b 25 2b 28 78 6e 25 2d  |%*8+8)=Nk%+(xn%-|
00025b60  7a 69 25 29 2f 34 2b 43  5a 25 2a 36 35 35 33 36  |zi%)/4+CZ%*65536|
00025b70  3a 21 28 61 25 2b 50 25  2a 38 2b 31 32 29 3d 21  |:!(a%+P%*8+12)=!|
00025b80  28 61 25 2b 50 25 2a 38  2b 34 29 3a 3f 28 61 25  |(a%+P%*8+4):?(a%|
00025b90  2b 50 25 2a 38 2b 32 29  3d 28 4e 6b 25 2b 28 73  |+P%*8+2)=(Nk%+(s|
00025ba0  25 2d 7a 69 25 29 2f 34  2d 31 29 83 32 35 36 3a  |%-zi%)/4-1).256:|
00025bb0  3f 28 61 25 2b 50 25 2a  38 2b 33 29 3d 28 4e 6b  |?(a%+P%*8+3)=(Nk|
00025bc0  25 2b 28 73 25 2d 7a 69  25 29 2f 34 2d 31 29 81  |%+(s%-zi%)/4-1).|
00025bd0  32 35 36 3a e3 50 4a 25  3d 30 b8 65 5f 25 3a e7  |256:.PJ%=0.e_%:.|
00025be0  4b 79 25 21 28 50 4a 25  2a 34 29 3e 50 25 8c 4b  |Ky%!(PJ%*4)>P%.K|
00025bf0  79 25 21 28 50 4a 25 2a  34 29 2b 3d 31 0d 7b e1  |y%!(PJ%*4)+=1.{.|
00025c00  2b ed 3a 50 25 2b 3d 31  3a 4e 42 25 3d b9 3a f2  |+.:P%+=1:NB%=.:.|
00025c10  7a 79 3a 50 25 2d 3d 31  3a 4e 42 25 3d b9 3a f2  |zy:P%-=1:NB%=.:.|
00025c20  7a 79 3a e7 76 79 25 8c  0d 7b e2 0c f2 65 79 28  |zy:.vy%..{...ey(|
00025c30  70 5f 25 29 0d 7b e3 23  cc 3a 6d 25 3d 51 79 25  |p_%).{.#.:m%=Qy%|
00025c40  3a 58 75 25 3d 74 5f 25  3a 65 5f 25 3d 47 69 25  |:Xu%=t_%:e_%=Gi%|
00025c50  3a f2 4a 79 3a f2 72 0d  7b e4 2b cd 3a f2 4a 28  |:.Jy:.r.{.+.:.J(|
00025c60  65 25 29 3a f2 4a 28 52  5f 25 29 3a f2 74 3a 78  |e%):.J(R_%):.t:x|
00025c70  79 25 3d 50 25 3a f2 4d  28 7a 75 25 29 3a f2 6d  |y%=P%:.M(zu%):.m|
00025c80  3a e1 0d 7b e5 11 dd f2  70 6c 3a e7 73 25 3d 72  |:..{....pl:.s%=r|
00025c90  61 25 e1 0d 7b e6 8b 4d  25 21 30 3d 7a 75 25 3a  |a%..{..M%!0=zu%:|
00025ca0  c8 99 26 34 30 30 63 62  2c 2c 4d 25 3a 5a 25 21  |..&400cb,,M%:Z%!|
00025cb0  30 3d 7a 75 25 3a 5a 25  21 34 3d 30 3a 5a 25 21  |0=zu%:Z%!4=0:Z%!|
00025cc0  38 3d 2d 49 5f 25 2a 34  3a 5a 25 21 31 32 3d 55  |8=-I_%*4:Z%!12=U|
00025cd0  5f 25 2a 34 3a 5a 25 21  31 36 3d 30 3a c8 99 26  |_%*4:Z%!16=0:..&|
00025ce0  34 30 30 63 39 2c 2c 5a  25 b8 64 25 3a 4c 25 3d  |400c9,,Z%.d%:L%=|
00025cf0  5a 25 21 34 2d 5a 25 21  32 30 3a 58 25 3d 5a 25  |Z%!4-Z%!20:X%=Z%|
00025d00  21 31 36 2d 5a 25 21 32  34 3a c8 95 64 25 3a f2  |!16-Z%!24:..d%:.|
00025d10  57 28 33 2c 31 31 29 3a  c8 8e 47 61 25 ca 0d 7b  |W(3,11):..Ga%..{|
00025d20  e7 0f c9 a3 3a e7 72 61  25 3e 2d 31 8c 0d 7b e8  |....:.ra%>-1..{.|
00025d30  17 86 72 61 25 2c 4d 25  21 38 2c 72 61 25 2c 4d  |..ra%,M%!8,ra%,M|
00025d40  25 21 31 36 0d 7b e9 17  cd 3a 86 73 25 2c 4d 25  |%!16.{...:.s%,M%|
00025d50  21 38 2c 73 25 2c 4d 25  21 31 36 0d 7b ea 45 c9  |!8,s%,M%!16.{.E.|
00025d60  b9 3a c8 93 c8 90 78 6e  25 2c 4d 25 21 38 2c 72  |.:....xn%,M%!8,r|
00025d70  61 25 2d 78 6e 25 2c 4d  25 21 31 36 2d 4d 25 21  |a%-xn%,M%!16-M%!|
00025d80  38 3a c8 93 c8 90 78 6e  25 2c 4d 25 21 38 2c 73  |8:....xn%,M%!8,s|
00025d90  25 2d 78 6e 25 2c 4d 25  21 31 36 2d 4d 25 21 38  |%-xn%,M%!16-M%!8|
00025da0  0d 7b eb 20 cb 3a c8 99  26 34 30 30 63 61 2c 2c  |.{. .:..&400ca,,|
00025db0  5a 25 b8 64 25 3a ce 3a  72 61 25 3d 73 25 3a e1  |Z%.d%:.:ra%=s%:.|
00025dc0  0d 7b ec 28 dd f2 6b 79  28 46 24 29 3a e7 62 61  |.{.(..ky(F$):.ba|
00025dd0  25 3f 69 25 3c 3e 32 35  35 c8 99 26 34 30 30 38  |%?i%<>255..&4008|
00025de0  32 2c 62 61 25 3f 69 25  0d 7b ed 4e c8 99 26 36  |2,ba%?i%.{.N..&6|
00025df0  30 30 38 31 2c 2c 46 24  2c 31 34 2a 31 36 2c 31  |0081,,F$,14*16,1|
00025e00  34 2a 31 36 2c 30 2c 30  b8 4f 4a 25 3b 42 5f 25  |4*16,0,0.OJ%;B_%|
00025e10  3a e7 42 5f 25 80 31 8c  f2 43 28 22 4f 70 74 69  |:.B_%.1..C("Opti|
00025e20  63 61 6c 22 2c a4 46 28  4f 4a 25 2b 34 29 29 3a  |cal",.F(OJ%+4)):|
00025e30  4f 4a 25 3d 2d 31 0d 7b  ee 37 62 61 25 3f 69 25  |OJ%=-1.{.7ba%?i%|
00025e40  3d 4f 4a 25 3a 53 24 28  69 25 29 3d 46 24 3a f2  |=OJ%:S$(i%)=F$:.|
00025e50  4a 4a 3a f2 41 28 48 4a  25 2c 33 2c 46 24 29 3a  |JJ:.A(HJ%,3,F$):|
00025e60  e7 76 79 25 3d a3 8c f2  4a 79 3a f2 6e 0d 7b ef  |.vy%=...Jy:.n.{.|
00025e70  12 e7 a4 53 28 65 25 29  8c f2 4a 28 65 25 29 0d  |...S(e%)..J(e%).|
00025e80  7b f0 05 e1 0d 7b f1 20  dd f2 4e 5f 28 52 4a 25  |{....{. ..N_(RJ%|
00025e90  2c 53 6c 25 29 3a ea 76  5f 25 3a e7 53 6c 25 3c  |,Sl%):.v_%:.Sl%<|
00025ea0  52 4a 25 e1 0d 7b f2 2e  e3 76 5f 25 3d 52 4a 25  |RJ%..{...v_%=RJ%|
00025eb0  b8 53 6c 25 3a e7 62 61  25 3f 76 5f 25 3c 3e 32  |.Sl%:.ba%?v_%<>2|
00025ec0  35 35 c8 99 26 34 30 30  38 32 2c 62 61 25 3f 76  |55..&40082,ba%?v|
00025ed0  5f 25 0d 7b f3 83 c8 99  26 36 30 30 38 31 2c 2c  |_%.{....&60081,,|
00025ee0  53 24 28 76 5f 25 29 2c  31 34 2a 31 36 2c 31 34  |S$(v_%),14*16,14|
00025ef0  2a 31 36 2c 30 2c 30 b8  4f 4a 25 3b 42 5f 25 3a  |*16,0,0.OJ%;B_%:|
00025f00  e7 42 5f 25 80 31 8c f2  58 28 22 4f 70 74 69 63  |.B_%.1..X("Optic|
00025f10  61 6c 22 2c 22 45 72 72  6f 72 20 77 68 69 6c 65  |al","Error while|
00025f20  20 74 72 79 69 6e 67 20  74 6f 20 66 69 6e 64 20  | trying to find |
00025f30  61 20 64 69 73 70 6c 61  79 20 66 6f 6e 74 20 3a  |a display font :|
00025f40  20 22 2b a4 46 28 4f 4a  25 2b 34 29 29 3a 4f 4a  | "+.F(OJ%+4)):OJ|
00025f50  25 3d 32 35 35 0d 7b f4  17 62 61 25 3f 76 5f 25  |%=255.{..ba%?v_%|
00025f60  3d 4f 4a 25 3a ed 3a f2  4a 4a 3a e1 0d 7b f5 c4  |=OJ%:.:.JJ:..{..|
00025f70  dd f2 54 6c 3a 5a 25 21  30 3d 42 79 25 3a 5a 25  |..Tl:Z%!0=By%:Z%|
00025f80  21 34 3d 35 32 3a c8 99  26 34 30 30 63 65 2c 2c  |!4=52:..&400ce,,|
00025f90  5a 25 3a 6d 79 25 3d 4c  25 2b 5a 25 21 38 2b 34  |Z%:my%=L%+Z%!8+4|
00025fa0  3a 41 5f 25 3d 58 25 2b  5a 25 21 31 32 2b 34 3a  |:A_%=X%+Z%!12+4:|
00025fb0  6e 5f 25 3d 5a 25 21 31  36 2d 5a 25 21 38 2d 31  |n_%=Z%!16-Z%!8-1|
00025fc0  30 3a 63 4a 25 3d 5a 25  21 32 30 2d 5a 25 21 31  |0:cJ%=Z%!20-Z%!1|
00025fd0  32 2d 31 30 3a 5a 6e 25  3d 6e 5f 25 2a 28 64 6c  |2-10:Zn%=n_%*(dl|
00025fe0  25 2f 35 29 3a c8 99 26  34 30 30 65 36 2c 31 31  |%/5):..&400e6,11|
00025ff0  3a c8 93 c8 90 6d 79 25  2c 41 5f 25 2c 5a 6e 25  |:....my%,A_%,Zn%|
00026000  2d 32 2c 63 4a 25 3a c8  99 26 34 30 30 65 36 2c  |-2,cJ%:..&400e6,|
00026010  31 30 3a c8 93 c8 90 6d  79 25 2b 5a 6e 25 2c 41  |10:....my%+Zn%,A|
00026020  5f 25 2c 6e 5f 25 2d 5a  6e 25 2c 63 4a 25 3a e1  |_%,n_%-Zn%,cJ%:.|
00026030  0d 7b f6 d2 dd f2 66 75  3a 5a 25 21 30 3d 42 79  |.{....fu:Z%!0=By|
00026040  25 3a c8 99 26 34 30 30  63 62 2c 2c 5a 25 3a 4c  |%:..&400cb,,Z%:L|
00026050  25 3d 5a 25 21 34 3a 58  25 3d 5a 25 21 31 36 3a  |%=Z%!4:X%=Z%!16:|
00026060  5a 25 21 34 3d 35 32 3a  c8 99 26 34 30 30 63 65  |Z%!4=52:..&400ce|
00026070  2c 2c 5a 25 3a 6d 79 25  3d 4c 25 2b 5a 25 21 38  |,,Z%:my%=L%+Z%!8|
00026080  2b 34 3a 41 5f 25 3d 58  25 2b 5a 25 21 31 32 2b  |+4:A_%=X%+Z%!12+|
00026090  34 3a 6e 5f 25 3d 5a 25  21 31 36 2d 5a 25 21 38  |4:n_%=Z%!16-Z%!8|
000260a0  2d 31 30 3a 63 4a 25 3d  5a 25 21 32 30 2d 5a 25  |-10:cJ%=Z%!20-Z%|
000260b0  21 31 32 2d 31 30 3a 4d  25 21 32 34 3d 6d 79 25  |!12-10:M%!24=my%|
000260c0  3a 4d 25 21 32 38 3d 41  5f 25 3a 4d 25 21 33 32  |:M%!28=A_%:M%!32|
000260d0  3d 6d 79 25 2b 6e 5f 25  3a 4d 25 21 33 36 3d 41  |=my%+n_%:M%!36=A|
000260e0  5f 25 2b 63 4a 25 3a 4d  25 21 34 3d 37 3a c8 99  |_%+cJ%:M%!4=7:..|
000260f0  26 34 30 30 64 30 2c 2c  4d 25 3a 56 4f 25 3d b9  |&400d0,,M%:VO%=.|
00026100  3a e1 0d 7b f7 26 dd f2  4f 5f 3a f2 41 28 42 79  |:..{.&..O_:.A(By|
00026110  25 2c 35 35 2c c3 28 64  6c 25 29 29 3a e7 a4 53  |%,55,.(dl%)):..S|
00026120  28 42 79 25 29 3d a3 e1  0d 7b f8 e8 5a 25 21 30  |(By%)=...{..Z%!0|
00026130  3d 42 79 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |=By%:..&400cb,,Z|
00026140  25 3a 4c 25 3d 5a 25 21  34 3a 58 25 3d 5a 25 21  |%:L%=Z%!4:X%=Z%!|
00026150  31 36 3a 5a 25 21 34 3d  35 32 3a c8 99 26 34 30  |16:Z%!4=52:..&40|
00026160  30 63 65 2c 2c 5a 25 3a  6d 79 25 3d 4c 25 2b 5a  |0ce,,Z%:my%=L%+Z|
00026170  25 21 38 2b 34 3a 41 5f  25 3d 58 25 2b 5a 25 21  |%!8+4:A_%=X%+Z%!|
00026180  31 32 2b 34 3a 6e 5f 25  3d 5a 25 21 31 36 2d 5a  |12+4:n_%=Z%!16-Z|
00026190  25 21 38 2d 31 30 3a 63  4a 25 3d 5a 25 21 32 30  |%!8-10:cJ%=Z%!20|
000261a0  2d 5a 25 21 31 32 2d 31  30 3a 5a 6e 25 3d 6e 5f  |-Z%!12-10:Zn%=n_|
000261b0  25 2a 28 64 6c 25 2f 35  29 3a 4d 25 21 30 3d 42  |%*(dl%/5):M%!0=B|
000261c0  79 25 3a 4d 25 21 34 3d  5a 25 21 38 3a 4d 25 21  |y%:M%!4=Z%!8:M%!|
000261d0  38 3d 5a 25 21 31 32 3a  4d 25 21 31 32 3d 5a 25  |8=Z%!12:M%!12=Z%|
000261e0  21 31 36 3a 4d 25 21 31  36 3d 5a 25 21 32 30 3a  |!16:M%!16=Z%!20:|
000261f0  c8 99 26 34 30 30 63 39  2c 2c 4d 25 b8 64 25 3a  |..&400c9,,M%.d%:|
00026200  c8 95 64 25 3a c8 99 26  34 30 30 65 36 2c 31 31  |..d%:..&400e6,11|
00026210  0d 7b f9 55 c8 93 c8 90  6d 79 25 2c 41 5f 25 2c  |.{.U....my%,A_%,|
00026220  5a 6e 25 2d 32 2c 63 4a  25 3a c8 99 26 34 30 30  |Zn%-2,cJ%:..&400|
00026230  65 36 2c 31 30 3a c8 93  c8 90 6d 79 25 2b 5a 6e  |e6,10:....my%+Zn|
00026240  25 2c 41 5f 25 2c 6e 5f  25 2d 5a 6e 25 2c 63 4a  |%,A_%,n_%-Zn%,cJ|
00026250  25 3a c8 99 26 34 30 30  63 61 2c 2c 4d 25 b8 64  |%:..&400ca,,M%.d|
00026260  25 3a ce 3a e1 0d 7b fa  7d dd f2 61 6c 3a 5a 25  |%:.:..{.}..al:Z%|
00026270  21 30 3d 42 79 25 3a c8  99 26 34 30 30 63 62 2c  |!0=By%:..&400cb,|
00026280  2c 5a 25 3a 4c 25 3d 5a  25 21 34 3a 5a 25 21 34  |,Z%:L%=Z%!4:Z%!4|
00026290  3d 35 32 3a c8 99 26 34  30 30 63 65 2c 2c 5a 25  |=52:..&400ce,,Z%|
000262a0  3a 6d 79 25 3d 4c 25 2b  5a 25 21 38 2b 34 3a 6e  |:my%=L%+Z%!8+4:n|
000262b0  5f 25 3d 5a 25 21 31 36  2d 5a 25 21 38 2d 31 30  |_%=Z%!16-Z%!8-10|
000262c0  3a 64 6c 25 3d 28 73 25  2d 6d 79 25 29 2f 6e 5f  |:dl%=(s%-my%)/n_|
000262d0  25 2a 35 2b 2e 35 3a e7  64 6c 25 3c 31 64 6c 25  |%*5+.5:.dl%<1dl%|
000262e0  3d 31 0d 7b fb 0f e7 64  6c 25 3e 34 64 6c 25 3d  |=1.{...dl%>4dl%=|
000262f0  34 0d 7b fc 0d f2 4f 5f  3a f2 72 5f 3a e1 0d 7b  |4.{...O_:.r_:..{|
00026300  fd 0f dd f2 72 5f 3a c8  8e 64 6c 25 ca 0d 7b fe  |....r_:..dl%..{.|
00026310  31 c9 31 3a 21 6a 3d 31  3a 21 4f 79 3d 32 3a 21  |1.1:!j=1:!Oy=2:!|
00026320  49 79 3d 31 3a 21 59 3d  30 3a 21 65 79 3d 31 3a  |Iy=1:!Y=0:!ey=1:|
00026330  21 72 79 3d 35 31 32 3a  21 7a 79 3d 32 34 0d 7b  |!ry=512:!zy=24.{|
00026340  ff 31 c9 32 3a 21 6a 3d  31 3a 21 4f 79 3d 32 3a  |.1.2:!j=1:!Oy=2:|
00026350  21 49 79 3d 31 3a 21 59  3d 30 3a 21 65 79 3d 30  |!Iy=1:!Y=0:!ey=0|
00026360  3a 21 72 79 3d 33 38 34  3a 21 7a 79 3d 33 32 0d  |:!ry=384:!zy=32.|
00026370  7c 00 2f c9 33 3a 21 6a  3d 31 3a 21 4f 79 3d 32  ||./.3:!j=1:!Oy=2|
00026380  3a 21 49 79 3d 31 3a 21  59 3d 30 3a 21 65 79 3d  |:!Iy=1:!Y=0:!ey=|
00026390  30 3a 21 72 79 3d 30 3a  21 7a 79 3d 35 36 0d 7c  |0:!ry=0:!zy=56.||
000263a0  01 2f c9 34 3a 21 6a 3d  31 3a 21 4f 79 3d 31 3a  |./.4:!j=1:!Oy=1:|
000263b0  21 49 79 3d 31 3a 21 59  3d 30 3a 21 65 79 3d 30  |!Iy=1:!Y=0:!ey=0|
000263c0  3a 21 72 79 3d 30 3a 21  7a 79 3d 38 30 0d 7c 02  |:!ry=0:!zy=80.|.|
000263d0  07 cb 3a e1 0d 7c 03 3b  dd f2 79 5f 3a c8 99 26  |..:..|.;..y_:..&|
000263e0  34 30 36 63 32 3a f2 44  28 75 5f 25 29 3a f2 6e  |406c2:.D(u_%):.n|
000263f0  5f 28 75 5f 25 29 3a f2  47 28 75 5f 25 2c 36 2c  |_(u_%):.G(u_%,6,|
00026400  a9 28 a4 4d 28 75 5f 25  2c 36 29 29 29 3a e1 0d  |.(.M(u_%,6))):..|
00026410  7c 04 2f dd f2 47 61 28  62 25 2c 49 25 29 3a e7  ||./..Ga(b%,I%):.|
00026420  28 49 25 3e 3d 32 84 49  25 3c 3d 35 29 80 62 25  |(I%>=2.I%<=5).b%|
00026430  3d 31 f2 53 28 75 5f 25  2c 49 25 2c b9 29 0d 7c  |=1.S(u_%,I%,.).||
00026440  05 0d e7 49 25 3d 38 8c  f2 50 4a 0d 7c 06 05 e1  |...I%=8..PJ.|...|
00026450  0d 7c 07 24 dd f2 70 69  28 49 25 2c 6a 25 29 3a  |.|.$..pi(I%,j%):|
00026460  e7 6a 25 3c 3e 31 33 c8  99 26 34 30 30 64 63 2c  |.j%<>13..&400dc,|
00026470  6a 25 3a e1 0d 7c 08 21  f2 53 28 75 5f 25 2c 38  |j%:..|.!.S(u_%,8|
00026480  2c 31 29 3a f2 50 4a 3a  f2 53 28 75 5f 25 2c 38  |,1):.PJ:.S(u_%,8|
00026490  2c 30 29 3a e1 0d 7c 09  25 dd f2 50 4a 3a f2 6d  |,0):..|.%..PJ:.m|
000264a0  3a e7 a4 5a 28 75 5f 25  2c 32 29 41 6c 25 3d 32  |:..Z(u_%,2)Al%=2|
000264b0  30 30 3a 4c 6c 25 3d 32  30 30 0d 7c 0a 1d e7 a4  |00:Ll%=200.|....|
000264c0  5a 28 75 5f 25 2c 33 29  41 6c 25 3d 33 30 30 3a  |Z(u_%,3)Al%=300:|
000264d0  4c 6c 25 3d 33 30 30 0d  7c 0b 1d e7 a4 5a 28 75  |Ll%=300.|....Z(u|
000264e0  5f 25 2c 34 29 41 6c 25  3d 34 30 30 3a 4c 6c 25  |_%,4)Al%=400:Ll%|
000264f0  3d 34 30 30 0d 7c 0c 2f  e7 a4 5a 28 75 5f 25 2c  |=400.|./..Z(u_%,|
00026500  35 29 41 6c 25 3d bb 28  a4 4d 28 75 5f 25 2c 36  |5)Al%=.(.M(u_%,6|
00026510  29 29 3a 4c 6c 25 3d bb  28 a4 4d 28 75 5f 25 2c  |)):Ll%=.(.M(u_%,|
00026520  37 29 29 0d 7c 0d 1a f2  4d 28 75 5f 25 29 3a c8  |7)).|...M(u_%):.|
00026530  99 26 34 30 36 63 30 3a  f2 58 79 3a e1 0d 7c 0e  |.&406c0:.Xy:..|.|
00026540  1f dd a4 4b 28 66 75 29  3a ea 70 79 3a 70 79 3d  |...K(fu):.py:py=|
00026550  66 75 2f 53 3a 3d 70 79  2a 41 6c 25 0d 7c 0f 1f  |fu/S:=py*Al%.|..|
00026560  dd a4 52 28 66 75 29 3a  ea 70 79 3a 70 79 3d 66  |..R(fu):.py:py=f|
00026570  75 2f 53 3a 3d 70 79 2a  4c 6c 25 0d 7c 10 22 dd  |u/S:=py*Ll%.|.".|
00026580  f2 6d 6c 3a e7 a4 5a 28  75 5f 25 2c 32 29 41 4a  |.ml:..Z(u_%,2)AJ|
00026590  25 3d 32 30 30 3a 5a 4a  25 3d 32 30 30 0d 7c 11  |%=200:ZJ%=200.|.|
000265a0  1d e7 a4 5a 28 75 5f 25  2c 33 29 41 4a 25 3d 33  |...Z(u_%,3)AJ%=3|
000265b0  30 30 3a 5a 4a 25 3d 33  30 30 0d 7c 12 1d e7 a4  |00:ZJ%=300.|....|
000265c0  5a 28 75 5f 25 2c 34 29  41 4a 25 3d 34 30 30 3a  |Z(u_%,4)AJ%=400:|
000265d0  5a 4a 25 3d 34 30 30 0d  7c 13 2f e7 a4 5a 28 75  |ZJ%=400.|./..Z(u|
000265e0  5f 25 2c 35 29 41 4a 25  3d bb 28 a4 4d 28 75 5f  |_%,5)AJ%=.(.M(u_|
000265f0  25 2c 36 29 29 3a 5a 4a  25 3d bb 28 a4 4d 28 75  |%,6)):ZJ%=.(.M(u|
00026600  5f 25 2c 37 29 29 0d 7c  14 05 e1 0d 7c 15 30 dd  |_%,7)).|....|.0.|
00026610  f2 49 69 28 41 4a 25 2c  5a 4a 25 29 3a e7 41 4a  |.Ii(AJ%,ZJ%):.AJ|
00026620  25 3d 32 30 30 80 5a 4a  25 3d 32 30 30 8c f2 53  |%=200.ZJ%=200..S|
00026630  28 75 5f 25 2c 32 2c 31  29 3a e1 0d 7c 16 22 e7  |(u_%,2,1):..|.".|
00026640  41 4a 25 3d 33 30 30 80  5a 4a 25 3d 33 30 30 8c  |AJ%=300.ZJ%=300.|
00026650  f2 53 28 75 5f 25 2c 33  2c 31 29 3a e1 0d 7c 17  |.S(u_%,3,1):..|.|
00026660  22 e7 41 4a 25 3d 34 30  30 80 5a 4a 25 3d 34 30  |".AJ%=400.ZJ%=40|
00026670  30 8c f2 53 28 75 5f 25  2c 34 2c 31 29 3a e1 0d  |0..S(u_%,4,1):..|
00026680  7c 18 33 f2 53 28 75 5f  25 2c 35 2c 31 29 3a f2  ||.3.S(u_%,5,1):.|
00026690  41 28 75 5f 25 2c 36 2c  c3 28 41 4a 25 29 29 3a  |A(u_%,6,.(AJ%)):|
000266a0  f2 41 28 75 5f 25 2c 37  2c c3 28 5a 4a 25 29 29  |.A(u_%,7,.(ZJ%))|
000266b0  3a e1 0d 7c 19 21 dd f2  4c 69 3a e7 57 79 25 3c  |:..|.!..Li:.Wy%<|
000266c0  3e 30 84 21 41 3c 3e 30  84 49 79 25 e7 6f 75 25  |>0.!A<>0.Iy%.ou%|
000266d0  3d 30 e1 0d 7c 1a 32 e7  57 79 25 3c 3e 30 84 21  |=0..|.2.Wy%<>0.!|
000266e0  41 3c 3e 30 84 49 79 25  8c 42 25 3d 6f 75 25 2b  |A<>0.Iy%.B%=ou%+|
000266f0  41 25 28 71 79 25 29 8b  42 25 3d 6d 25 2b 41 25  |A%(qy%).B%=m%+A%|
00026700  28 71 79 25 29 0d 7c 1b  8a 43 25 3d 41 25 28 71  |(qy%).|..C%=A%(q|
00026710  79 25 29 3a 44 25 3d 70  5f 25 3a 45 25 3d 51 79  |y%):D%=p_%:E%=Qy|
00026720  25 2b 41 25 28 71 79 25  29 3a 46 25 3d 47 79 25  |%+A%(qy%):F%=Gy%|
00026730  3a 47 25 3d 4c 79 25 2d  33 36 3a 48 25 3d 67 79  |:G%=Ly%-36:H%=gy|
00026740  25 3f 68 61 25 3a 21 66  6c 3d 4d 79 25 3a 21 41  |%?ha%:!fl=My%:!A|
00026750  75 3d 59 42 25 3a ef 32  39 2c 4c 25 2b 32 3b 58  |u=YB%:.29,L%+2;X|
00026760  25 2d 36 3b 3a d6 69 6c  3a ef 32 39 2c 30 3b 30  |%-6;:.il:.29,0;0|
00026770  3b 3a e7 50 25 3e 3d 30  80 61 5f 25 80 28 44 79  |;:.P%>=0.a_%.(Dy|
00026780  25 84 6a 79 25 29 f2 67  28 50 25 2c 2d 31 29 0d  |%.jy%).g(P%,-1).|
00026790  7c 1c 05 e1 0d 7c 1d 26  dd f2 5f 4a 3a 4d 25 21  ||....|.&.._J:M%!|
000267a0  30 3d 31 36 33 3a 4d 25  21 34 3d 2d 31 3a c8 99  |0=163:M%!4=-1:..|
000267b0  34 39 2c 4d 25 2c 43 79  3a e1 0d 7c 1e 1d dd f2  |49,M%,Cy:..|....|
000267c0  72 6c 3a ea 50 5f 25 2c  6d 5f 25 3a e7 47 79 25  |rl:.P_%,m_%:.Gy%|
000267d0  3c 30 47 79 25 3d 30 0d  7c 1f 0f e7 4c 79 25 3c  |<0Gy%=0.|...Ly%<|
000267e0  30 4c 79 25 3d 30 0d 7c  20 33 64 4f 25 3d 28 4c  |0Ly%=0.| 3dO%=(L|
000267f0  79 25 2d 31 36 29 81 4c  5f 25 2d 31 3a 65 4f 25  |y%-16).L_%-1:eO%|
00026800  3d 28 47 79 25 2d 31 36  29 81 4c 5f 25 2b 31 3a  |=(Gy%-16).L_%+1:|
00026810  e7 64 4f 25 3e 65 4f 25  e1 0d 7c 21 0f e7 64 4f  |.dO%>eO%..|!..dO|
00026820  25 3c 30 64 4f 25 3d 30  0d 7c 22 0f e7 65 4f 25  |%<0dO%=0.|"..eO%|
00026830  3c 30 65 4f 25 3d 30 0d  7c 23 28 c8 99 35 33 2c  |<0eO%=0.|#(..53,|
00026840  2d 31 2c 33 b8 2c 2c 6d  5f 25 3a e7 6d 5f 25 3d  |-1,3.,,m_%:.m_%=|
00026850  2d 31 8c 6d 5f 25 3d 31  36 30 30 30 30 30 30 0d  |-1.m_%=16000000.|
00026860  7c 24 1c e7 28 6d 5f 25  3e 31 35 80 53 65 25 3c  ||$..(m_%>15.Se%<|
00026870  33 30 30 29 84 51 79 25  3d 30 8c 0d 7c 25 18 c8  |300).Qy%=0..|%..|
00026880  99 26 34 30 37 34 66 2c  30 2c 2d 32 35 36 2c 30  |.&4074f,0,-256,0|
00026890  2c 31 34 0d 7c 26 22 cc  3a c8 99 26 34 30 37 34  |,14.|&".:..&4074|
000268a0  66 2c 30 2c 2d 32 35 36  2c 26 38 30 38 30 38 30  |f,0,-256,&808080|
000268b0  30 30 2c 31 34 0d 7c 27  85 cd 3a 47 25 3d 41 25  |00,14.|'..:G%=A%|
000268c0  28 4b 69 25 29 3a 48 25  3d 4d 25 3a 21 47 79 3d  |(Ki%):H%=M%:!Gy=|
000268d0  55 69 25 3a 21 48 79 3d  41 60 25 3a 21 4c 79 3d  |Ui%:!Hy=A`%:!Ly=|
000268e0  4a 60 25 3a 21 6c 79 3d  64 4f 25 3a 21 47 5f 3d  |J`%:!ly=dO%:!G_=|
000268f0  65 4f 25 3a 21 57 79 3d  70 5f 25 3a 21 50 79 3d  |eO%:!Wy=p_%:!Py=|
00026900  4c 5f 25 3a 21 5f 79 3d  4c 25 2b 31 36 3a 21 54  |L_%:!_y=L%+16:!T|
00026910  79 3d 58 25 2d 4c 5f 25  3a 50 5f 25 3d ba 28 67  |y=X%-L_%:P_%=.(g|
00026920  79 29 3a e7 50 25 3e 3d  30 80 61 5f 25 80 6a 79  |y):.P%>=0.a_%.jy|
00026930  25 f2 67 28 50 25 2c 2d  31 29 0d 7c 28 05 e1 0d  |%.g(P%,-1).|(...|
00026940  7c 29 21 dd f2 4a 4a 3a  ea 66 5a 25 2c 43 42 25  ||)!..JJ:.fZ%,CB%|
00026950  2c 56 41 25 2c 44 42 25  3a e7 43 79 25 3c 30 e1  |,VA%,DB%:.Cy%<0.|
00026960  0d 7c 2a 48 4c 5f 25 3d  30 3a c8 99 26 36 30 30  |.|*HL_%=0:..&600|
00026970  38 31 2c 2c 22 54 72 69  6e 69 74 79 2e 4d 65 64  |81,,"Trinity.Med|
00026980  69 75 6d 22 2c 31 34 2a  31 36 2c 31 34 2a 31 36  |ium",14*16,14*16|
00026990  2c 30 2c 30 b8 4a 6f 25  3b 42 5f 25 3a e7 28 42  |,0,0.Jo%;B_%:.(B|
000269a0  5f 25 80 31 29 3d a3 8c  0d 7c 2b 3e c8 99 26 34  |_%.1)=...|+>..&4|
000269b0  30 30 38 34 2c 4a 6f 25  b8 2c 66 5a 25 2c 43 42  |0084,Jo%.,fZ%,CB|
000269c0  25 2c 56 41 25 2c 44 42  25 3a e7 44 42 25 2d 43  |%,VA%,DB%:.DB%-C|
000269d0  42 25 2d 32 3e 4c 5f 25  8c 4c 5f 25 3d 44 42 25  |B%-2>L_%.L_%=DB%|
000269e0  2d 43 42 25 2d 32 0d 7c  2c 27 cd 3a e3 76 5f 25  |-CB%-2.|,'.:.v_%|
000269f0  3d 30 b8 43 79 25 3a 4f  4a 25 3d 62 61 25 3f 76  |=0.Cy%:OJ%=ba%?v|
00026a00  5f 25 3a e7 4f 4a 25 3c  3e 32 35 35 8c 0d 7c 2d  |_%:.OJ%<>255..|-|
00026a10  3e c8 99 26 34 30 30 38  34 2c 4f 4a 25 b8 2c 66  |>..&40084,OJ%.,f|
00026a20  5a 25 2c 43 42 25 2c 56  41 25 2c 44 42 25 3a e7  |Z%,CB%,VA%,DB%:.|
00026a30  44 42 25 2d 43 42 25 2d  32 3e 4c 5f 25 8c 4c 5f  |DB%-CB%-2>L_%.L_|
00026a40  25 3d 44 42 25 2d 43 42  25 2d 32 0d 7c 2e 09 cd  |%=DB%-CB%-2.|...|
00026a50  3a ed 3a e1 0d 7c 2f 15  dd a4 44 28 61 75 25 29  |:.:..|/...D(au%)|
00026a60  3a e7 6d 25 3d 30 8c 3d  30 0d 7c 30 9d 4b 25 3d  |:.m%=0.=0.|0.K%=|
00026a70  a4 41 28 5a 25 28 71 79  25 29 2a 34 2c 4b 69 25  |.A(Z%(qy%)*4,Ki%|
00026a80  29 3a e7 4b 25 3d a3 8c  f2 43 28 22 4f 70 74 69  |):.K%=...C("Opti|
00026a90  63 61 6c 22 2c 22 54 68  65 72 65 20 69 73 20 6e  |cal","There is n|
00026aa0  6f 74 20 65 6e 6f 75 67  68 20 6d 65 6d 6f 72 79  |ot enough memory|
00026ab0  20 61 76 61 69 6c 61 62  6c 65 20 74 6f 20 64 69  | available to di|
00026ac0  73 70 6c 61 79 20 74 65  78 74 20 77 69 74 68 20  |splay text with |
00026ad0  66 6f 6e 74 20 63 68 61  6e 67 65 73 2e 22 29 3a  |font changes."):|
00026ae0  76 79 25 3d b9 3a f2 56  28 44 69 73 70 6c 61 79  |vy%=.:.V(Display|
00026af0  5f 4d 65 6e 75 25 2c 31  29 3a f2 6e 3a f2 4a 28  |_Menu%,1):.n:.J(|
00026b00  65 25 29 3a 3d 30 0d 7c  31 57 c8 99 26 36 30 30  |e%):=0.|1W..&600|
00026b10  38 31 2c 2c 22 54 72 69  6e 69 74 79 2e 4d 65 64  |81,,"Trinity.Med|
00026b20  69 75 6d 22 2c 31 34 2a  31 36 2c 31 34 2a 31 36  |ium",14*16,14*16|
00026b30  2c 30 2c 30 b8 4a 6f 25  3b 42 5f 25 3a e7 42 5f  |,0,0.Jo%;B_%:.B_|
00026b40  25 80 31 8c f2 43 28 22  4f 70 74 69 63 61 6c 22  |%.1..C("Optical"|
00026b50  2c a4 46 28 4f 4a 25 2b  34 29 29 3a e1 0d 7c 32  |,.F(OJ%+4)):..|2|
00026b60  ef c8 99 26 34 30 37 34  65 2c 30 2c 2d 32 35 36  |...&4074e,0,-256|
00026b70  2c 26 64 64 30 30 30 30  30 30 2c 31 34 b8 2c 21  |,&dd000000,14.,!|
00026b80  67 75 2c 21 5a 6c 2c 21  6d 75 3a c8 99 26 34 30  |gu,!Zl,!mu:..&40|
00026b90  37 34 65 2c 30 2c 2d 32  35 36 2c 26 64 64 36 65  |74e,0,-256,&dd6e|
00026ba0  36 65 30 30 2c 31 34 b8  2c 21 6c 4a 2c 21 53 75  |6e00,14.,!lJ,!Su|
00026bb0  2c 21 43 75 3a c8 99 26  34 30 37 34 65 2c 30 2c  |,!Cu:..&4074e,0,|
00026bc0  2d 32 35 36 2c 35 36 35  37 36 2c 31 34 b8 2c 21  |-256,56576,14.,!|
00026bd0  55 69 2c 21 64 69 2c 21  76 69 3a c8 99 26 34 30  |Ui,!di,!vi:..&40|
00026be0  37 34 65 2c 30 2c 2d 32  35 36 2c 26 62 62 66 66  |74e,0,-256,&bbff|
00026bf0  30 30 2c 31 34 b8 2c 21  69 75 2c 21 75 75 2c 21  |00,14.,!iu,!uu,!|
00026c00  73 61 3a c8 99 26 34 30  37 34 65 2c 30 2c 2d 32  |sa:..&4074e,0,-2|
00026c10  35 36 2c 26 63 63 30 30  30 30 2c 31 34 b8 2c 21  |56,&cc0000,14.,!|
00026c20  70 6c 2c 21 76 6c 2c 21  62 6c 3a c8 99 26 34 30  |pl,!vl,!bl:..&40|
00026c30  37 34 65 2c 30 2c 2d 32  35 36 2c 30 2c 31 34 b8  |74e,0,-256,0,14.|
00026c40  2c 21 70 69 2c 21 57 69  2c 21 46 75 0d 7c 33 a1  |,!pi,!Wi,!Fu.|3.|
00026c50  c8 99 26 34 30 37 34 65  2c 30 2c 2d 32 35 36 2c  |..&4074e,0,-256,|
00026c60  26 38 30 38 30 38 30 30  30 2c 31 34 b8 2c 21 62  |&80808000,14.,!b|
00026c70  4a 2c 21 64 75 2c 21 74  4a 3a 41 25 3d 41 25 28  |J,!du,!tJ:A%=A%(|
00026c80  4b 69 25 29 3a 42 25 3d  41 25 28 71 79 25 29 3a  |Ki%):B%=A%(qy%):|
00026c90  43 25 3d 5a 25 28 4b 69  25 29 3a 44 25 3d 61 75  |C%=Z%(Ki%):D%=au|
00026ca0  25 2d 31 3a 45 25 3d 4a  6f 25 3a 46 25 3d 62 61  |%-1:E%=Jo%:F%=ba|
00026cb0  25 3a 21 79 69 3d 51 79  25 3a 21 51 61 3d 4d 79  |%:!yi=Qy%:!Qa=My|
00026cc0  25 2b 31 3a 21 68 4a 3d  53 65 25 3a 70 6b 25 3d  |%+1:!hJ=Se%:pk%=|
00026cd0  ba 28 7a 6c 29 3a 4b 25  3d a4 41 28 70 6b 25 2b  |.(zl):K%=.A(pk%+|
00026ce0  32 35 36 2c 4b 69 25 29  3a 3d 70 6b 25 0d 7c 34  |256,Ki%):=pk%.|4|
00026cf0  1b dd f2 59 5f 28 56 69  25 2c 53 6c 25 29 3a e7  |...Y_(Vi%,Sl%):.|
00026d00  53 6c 25 3c 56 69 25 e1  0d 7c 35 a1 e7 67 79 25  |Sl%<Vi%..|5..gy%|
00026d10  3f 56 75 25 3c 3e 30 80  41 79 25 3c 31 f2 58 28  |?Vu%<>0.Ay%<1.X(|
00026d20  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 4f 70  |"Message from Op|
00026d30  74 69 63 61 6c 22 2c 22  54 65 78 74 20 63 61 6e  |tical","Text can|
00026d40  6e 6f 74 20 62 65 20 66  6f 72 6d 61 74 74 65 64  |not be formatted|
00026d50  20 61 73 20 61 20 74 61  62 6c 65 20 62 65 63 61  | as a table beca|
00026d60  75 73 65 20 6c 65 73 73  20 74 68 61 6e 20 74 77  |use less than tw|
00026d70  6f 20 66 72 61 6d 65 73  20 68 61 76 65 20 62 65  |o frames have be|
00026d80  65 6e 20 64 65 66 69 6e  65 64 2e 22 29 3a 67 79  |en defined."):gy|
00026d90  25 3f 56 75 25 3d 30 3a  f2 5a 79 28 67 79 25 29  |%?Vu%=0:.Zy(gy%)|
00026da0  3a f2 47 79 28 67 79 25  29 0d 7c 36 43 41 25 3d  |:.Gy(gy%).|6CA%=|
00026db0  41 25 28 71 79 25 29 3a  42 25 3d 6a 42 25 3a 43  |A%(qy%):B%=jB%:C|
00026dc0  25 3d 56 69 25 3a 44 25  3d 53 6c 25 2d 31 3a 45  |%=Vi%:D%=Sl%-1:E|
00026dd0  25 3d 4d 79 25 3a 46 25  3d 4b 4a 25 3a d6 42 6c  |%=My%:F%=KJ%:.Bl|
00026de0  3a 6d 25 3d 51 79 25 3a  f2 72 3a e1 0d 7c 37 31  |:m%=Qy%:.r:..|71|
00026df0  dd f2 4a 79 3a e7 57 79  25 3c 3e 30 84 21 41 3c  |..Jy:.Wy%<>0.!A<|
00026e00  3e 30 84 49 79 25 8c 55  69 25 3d a4 44 28 6f 75  |>0.Iy%.Ui%=.D(ou|
00026e10  25 29 8b 55 69 25 3d a4  44 28 6d 25 29 0d 7c 38  |%).Ui%=.D(m%).|8|
00026e20  20 c8 99 26 34 30 30 38  39 2c 2c 70 5f 25 2c 4c  | ..&40089,,p_%,L|
00026e30  5f 25 b8 2c 41 60 25 2c  4a 60 25 3a e1 0d 7c 39  |_%.,A`%,J`%:..|9|
00026e40  29 dd f2 67 28 52 4a 25  2c 53 6c 25 29 3a e7 28  |)..g(RJ%,Sl%):.(|
00026e50  57 79 25 3c 3e 30 84 21  41 3c 3e 30 84 49 79 25  |Wy%<>0.!A<>0.Iy%|
00026e60  29 80 6a 79 25 e1 0d 7c  3a 4d ea 75 4a 25 2c 62  |).jy%..|:M.uJ%,b|
00026e70  4a 25 2c 50 79 25 2c 65  6c 25 2c 42 5a 25 2c 60  |J%,Py%,el%,BZ%,`|
00026e80  72 25 2c 4d 72 25 2c 6c  5f 25 2c 52 5a 25 3a 52  |r%,Mr%,l_%,RZ%:R|
00026e90  5a 25 3d 52 4a 25 3a e7  58 61 25 8c 42 25 28 30  |Z%=RJ%:.Xa%.B%(0|
00026ea0  29 3d 2d 31 30 30 30 3a  42 25 28 31 29 3d 2d 31  |)=-1000:B%(1)=-1|
00026eb0  30 30 30 0d 7c 3b 21 e7  58 61 25 84 28 52 4a 25  |000.|;!.Xa%.(RJ%|
00026ec0  3c 3e 42 25 28 30 29 80  52 4a 25 3c 3e 42 25 28  |<>B%(0).RJ%<>B%(|
00026ed0  31 29 29 8c 0d 7c 3c 21  e7 58 61 25 3d a3 80 52  |1))..|<!.Xa%=..R|
00026ee0  4a 25 3c 3e 42 25 28 30  29 8c 6c 5f 25 3d 31 8b  |J%<>B%(0).l_%=1.|
00026ef0  6c 5f 25 3d 30 0d 7c 3d  1f 42 25 28 6c 5f 25 29  |l_%=0.|=.B%(l_%)|
00026f00  3d 52 4a 25 3a 4a 25 28  6c 5f 25 29 3d 30 3a e7  |=RJ%:J%(l_%)=0:.|
00026f10  6a 79 25 8c 0d 7c 3e 2d  c8 94 52 4a 25 2c 50 25  |jy%..|>-..RJ%,P%|
00026f20  3a 21 6f 3d 30 3a f2 4f  4a 3a c8 94 52 4a 25 2c  |:!o=0:.OJ:..RJ%,|
00026f30  50 25 3a e7 21 58 3c 31  30 30 8c 21 52 5f 2b 3d  |P%:.!X<100.!R_+=|
00026f40  31 0d 7c 3f 6c 53 6c 25  3d 52 4a 25 2b 21 52 5f  |1.|?lSl%=RJ%+!R_|
00026f50  2d 31 3a f2 4d 79 28 52  4a 25 2c 2d 31 29 3a 42  |-1:.My(RJ%,-1):B|
00026f60  5a 25 3d 72 4a 25 3a 60  72 25 3d 4f 75 25 3a f5  |Z%=rJ%:`r%=Ou%:.|
00026f70  3a 65 6c 25 3d 52 4a 25  2b 31 3a 7a 79 25 3d a3  |:el%=RJ%+1:zy%=.|
00026f80  3a 4d 72 25 3d a3 3a c8  95 65 6c 25 3c 3d 53 6c  |:Mr%=.:..el%<=Sl|
00026f90  25 80 7a 79 25 3d a3 3a  f2 4d 79 28 65 6c 25 2c  |%.zy%=.:.My(el%,|
00026fa0  2d 31 29 3a e7 72 4a 25  3e 42 5a 25 8c 0d 7c 40  |-1):.rJ%>BZ%..|@|
00026fb0  13 65 6c 25 3d 65 6c 25  2d 31 3a 7a 79 25 3d b9  |.el%=el%-1:zy%=.|
00026fc0  0d 7c 41 2b cc 3a e7 4f  75 25 3c 60 72 25 8c 65  |.|A+.:.Ou%<`r%.e|
00026fd0  6c 25 3d 65 6c 25 2d 31  3a 7a 79 25 3d b9 3a 4d  |l%=el%-1:zy%=.:M|
00026fe0  72 25 3d b9 8b 65 6c 25  2b 3d 31 0d 7c 42 18 cd  |r%=..el%+=1.|B..|
00026ff0  3a ce 3a e7 65 6c 25 3e  53 6c 25 8c 65 6c 25 3d  |:.:.el%>Sl%.el%=|
00027000  53 6c 25 0d 7c 43 81 f2  4d 79 28 52 4a 25 2c 65  |Sl%.|C..My(RJ%,e|
00027010  6c 25 29 3a 4e 25 28 6c  5f 25 2c 4a 25 28 6c 5f  |l%):N%(l_%,J%(l_|
00027020  25 29 29 3d 4f 75 25 3a  51 25 28 6c 5f 25 2c 4a  |%))=Ou%:Q%(l_%,J|
00027030  25 28 6c 5f 25 29 29 3d  6f 79 25 3a 55 25 28 6c  |%(l_%))=oy%:U%(l|
00027040  5f 25 2c 4a 25 28 6c 5f  25 29 29 3d 72 4a 25 3a  |_%,J%(l_%))=rJ%:|
00027050  58 25 28 6c 5f 25 2c 4a  25 28 6c 5f 25 29 29 3d  |X%(l_%,J%(l_%))=|
00027060  54 5f 25 3a 4a 25 28 6c  5f 25 29 2b 3d 31 3a 52  |T_%:J%(l_%)+=1:R|
00027070  4a 25 3d 65 6c 25 2b 31  3a e7 4d 72 25 8c 52 4a  |J%=el%+1:.Mr%.RJ|
00027080  25 2b 3d 31 0d 7c 44 0d  fd 65 6c 25 3e 3d 53 6c  |%+=1.|D..el%>=Sl|
00027090  25 0d 7c 45 14 cc 3a e7  53 6c 25 3d 2d 31 53 6c  |%.|E..:.Sl%=-1Sl|
000270a0  25 3d 52 4a 25 0d 7c 46  6b f2 4d 79 28 52 4a 25  |%=RJ%.|Fk.My(RJ%|
000270b0  2c 53 6c 25 29 3a 4e 25  28 6c 5f 25 2c 4a 25 28  |,Sl%):N%(l_%,J%(|
000270c0  6c 5f 25 29 29 3d 4f 75  25 3a 51 25 28 6c 5f 25  |l_%))=Ou%:Q%(l_%|
000270d0  2c 4a 25 28 6c 5f 25 29  29 3d 6f 79 25 3a 55 25  |,J%(l_%))=oy%:U%|
000270e0  28 6c 5f 25 2c 4a 25 28  6c 5f 25 29 29 3d 72 4a  |(l_%,J%(l_%))=rJ|
000270f0  25 3a 58 25 28 6c 5f 25  2c 4a 25 28 6c 5f 25 29  |%:X%(l_%,J%(l_%)|
00027100  29 3d 54 5f 25 3a 4a 25  28 6c 5f 25 29 2b 3d 31  |)=T_%:J%(l_%)+=1|
00027110  0d 7c 47 05 cd 0d 7c 48  19 cd 3a e7 6a 79 25 f2  |.|G...|H..:.jy%.|
00027120  57 28 33 2c 37 29 8b f2  57 28 33 2c 38 29 0d 7c  |W(3,7)..W(3,8).||
00027130  49 1a e7 52 5a 25 3d 42  25 28 30 29 8c 6c 5f 25  |I..RZ%=B%(0).l_%|
00027140  3d 30 8b 6c 5f 25 3d 31  0d 7c 4a 59 e3 46 61 25  |=0.l_%=1.|JY.Fa%|
00027150  3d 30 b8 4a 25 28 6c 5f  25 29 2d 31 3a c8 93 c8  |=0.J%(l_%)-1:...|
00027160  90 4c 25 2b 4e 25 28 6c  5f 25 2c 46 61 25 29 2c  |.L%+N%(l_%,Fa%),|
00027170  58 25 2d 55 25 28 6c 5f  25 2c 46 61 25 29 2c 51  |X%-U%(l_%,Fa%),Q|
00027180  25 28 6c 5f 25 2c 46 61  25 29 2c 2d 58 25 28 6c  |%(l_%,Fa%),-X%(l|
00027190  5f 25 2c 46 61 25 29 3a  ed 3a 58 61 25 3d a3 3a  |_%,Fa%):.:Xa%=.:|
000271a0  e1 0d 7c 4b 1f dd f2 4f  28 52 4a 25 29 3a ea 75  |..|K...O(RJ%):.u|
000271b0  4a 25 2c 62 4a 25 2c 50  79 25 3a e7 44 79 25 e1  |J%,bJ%,Py%:.Dy%.|
000271c0  0d 7c 4c 1b c8 99 26 34  30 30 64 33 2c 2c 5a 25  |.|L...&400d3,,Z%|
000271d0  3a e7 5a 25 21 30 3c 3e  65 25 e1 0d 7c 4d 18 e7  |:.Z%!0<>e%..|M..|
000271e0  76 79 25 3d a3 f2 47 28  65 25 2c 2d 31 2c 2d 31  |vy%=..G(e%,-1,-1|
000271f0  29 3a e1 0d 7c 4e 20 e7  67 79 25 3f 56 75 25 3c  |):..|N .gy%?Vu%<|
00027200  3e 30 84 61 5f 25 3d a3  84 6a 79 25 8c 52 4a 25  |>0.a_%=..jy%.RJ%|
00027210  3d 2d 31 0d 7c 4f 0b e7  52 4a 25 3c 30 8c 0d 7c  |=-1.|O..RJ%<0..||
00027220  50 1e c8 99 26 36 30 30  64 32 2c 65 25 2c 2d 31  |P...&600d2,e%,-1|
00027230  2c 2d 31 2c 2d 31 2c 2d  31 2c 2d 31 0d 7c 51 19  |,-1,-1,-1,-1.|Q.|
00027240  cc 3a e7 52 4a 25 3d 2d  31 8c 52 4a 25 3d 30 3a  |.:.RJ%=-1.RJ%=0:|
00027250  46 5f 25 3d b9 0d 7c 52  21 f2 4d 79 28 52 4a 25  |F_%=..|R!.My(RJ%|
00027260  2c 2d 31 29 3a e7 46 5f  25 80 76 79 25 3d b9 4f  |,-1):.F_%.vy%=.O|
00027270  75 25 2d 3d 31 36 0d 7c  53 2d c8 99 26 36 30 30  |u%-=16.|S-..&600|
00027280  64 32 2c 65 25 2c 2d 31  2c 4f 75 25 2b 6f 79 25  |d2,e%,-1,Ou%+oy%|
00027290  2b 32 2c 2d 72 4a 25 2d  54 5f 25 2d 34 2c 34 30  |+2,-rJ%-T_%-4,40|
000272a0  2c 2d 31 0d 7c 54 07 cd  3a e1 0d 7c 55 25 dd f2  |,-1.|T..:..|U%..|
000272b0  41 5f 3a ea 72 4f 25 2c  60 61 25 3a e7 76 79 25  |A_:.rO%,`a%:.vy%|
000272c0  8c 60 61 25 3d 33 36 8b  60 61 25 3d 4c 5f 25 0d  |.`a%=36.`a%=L_%.|
000272d0  7c 56 17 72 4f 25 3d 32  3a e7 50 25 3c 30 84 72  ||V.rO%=2:.P%<0.r|
000272e0  4a 25 3d 2d 31 e1 0d 7c  57 10 e7 61 5f 25 80 a4  |J%=-1..|W..a_%..|
000272f0  53 28 65 25 29 8c 0d 7c  58 40 4d 25 21 30 3d 65  |S(e%)..|X@M%!0=e|
00027300  25 3a c8 99 26 34 30 30  63 62 2c 2c 4d 25 3a 58  |%:..&400cb,,M%:X|
00027310  25 3d 4d 25 21 31 36 2d  4d 25 21 32 34 3a e7 58  |%=M%!16-M%!24:.X|
00027320  25 2d 72 4a 25 2b 34 2b  72 4f 25 2a 60 61 25 3e  |%-rJ%+4+rO%*`a%>|
00027330  4d 25 21 31 36 8c 0d 7c  59 25 4d 25 21 32 34 3d  |M%!16..|Y%M%!24=|
00027340  2d 72 4a 25 2b 34 2b 72  4f 25 2a 60 61 25 3a c8  |-rJ%+4+rO%*`a%:.|
00027350  99 26 34 30 30 63 35 2c  2c 4d 25 0d 7c 5a 21 cd  |.&400c5,,M%.|Z!.|
00027360  3a e7 58 25 2d 72 4a 25  2b 34 2d 60 61 25 2d 72  |:.X%-rJ%+4-`a%-r|
00027370  4f 25 2a 60 61 25 3c 4d  25 21 38 8c 0d 7c 5b 34  |O%*`a%<M%!8..|[4|
00027380  4d 25 21 32 34 3d 2d 72  4a 25 2b 34 2d 60 61 25  |M%!24=-rJ%+4-`a%|
00027390  2d 72 4f 25 2a 60 61 25  2b 4d 25 21 31 36 2d 4d  |-rO%*`a%+M%!16-M|
000273a0  25 21 38 3a c8 99 26 34  30 30 63 35 2c 2c 4d 25  |%!8:..&400c5,,M%|
000273b0  0d 7c 5c 05 cd 0d 7c 5d  07 cd 3a e1 0d 7c 5e 38  |.|\...|]..:..|^8|
000273c0  dd f2 4d 79 28 57 6f 25  2c 64 60 25 29 3a e7 76  |..My(Wo%,d`%):.v|
000273d0  79 25 3d a3 80 55 69 25  3d 30 8c 4f 75 25 3d 30  |y%=..Ui%=0.Ou%=0|
000273e0  3a 72 4a 25 3d 30 3a 6f  79 25 3d 30 3a 54 5f 25  |:rJ%=0:oy%=0:T_%|
000273f0  3d 30 3a e1 0d 7c 5f 09  e7 76 79 25 8c 0d 7c 60  |=0:..|_..vy%..|`|
00027400  34 f2 61 28 57 6f 25 29  3a 4f 75 25 3d 32 2b 31  |4.a(Wo%):Ou%=2+1|
00027410  36 2a 75 4a 25 3a 72 4a  25 3d 32 2b 33 36 2a 28  |6*uJ%:rJ%=2+36*(|
00027420  62 4a 25 2b 74 5f 25 29  3a e7 64 60 25 3e 2d 31  |bJ%+t_%):.d`%>-1|
00027430  8c 0d 7c 61 26 f2 61 28  64 60 25 29 3a 6f 79 25  |..|a&.a(d`%):oy%|
00027440  3d 31 34 2b 32 2b 31 36  2a 75 4a 25 2d 4f 75 25  |=14+2+16*uJ%-Ou%|
00027450  3a 54 5f 25 3d 33 34 0d  7c 62 13 cc 3a 6f 79 25  |:T_%=34.|b..:oy%|
00027460  3d 31 34 3a 54 5f 25 3d  33 34 0d 7c 63 05 cd 0d  |=14:T_%=34.|c...|
00027470  7c 64 59 cc 3a 47 25 3d  41 25 28 4b 69 25 29 3a  ||dY.:G%=A%(Ki%):|
00027480  48 25 3d 4d 25 3a 21 47  79 3d 55 69 25 3a 21 48  |H%=M%:!Gy=Ui%:!H|
00027490  79 3d 41 60 25 3a 21 4c  79 3d 4a 60 25 3a 21 57  |y=A`%:!Ly=J`%:!W|
000274a0  79 3d 70 5f 25 3a 21 50  79 3d 4c 5f 25 3a 21 74  |y=p_%:!Py=L_%:!t|
000274b0  5f 3d 57 6f 25 3a e7 6a  79 25 8c 21 6b 79 3d 31  |_=Wo%:.jy%.!ky=1|
000274c0  8b 21 6b 79 3d 46 5f 25  0d 7c 65 3f 42 69 25 3d  |.!ky=F_%.|e?Bi%=|
000274d0  ba 28 6d 5f 29 3a 4f 75  25 3d 21 5a 4a 2b 31 34  |.(m_):Ou%=!ZJ+14|
000274e0  3a 6f 79 25 3d 21 49 69  3a 72 4a 25 3d 21 7a 4a  |:oy%=!Ii:rJ%=!zJ|
000274f0  2a 4c 5f 25 2b 34 3a 54  5f 25 3d 4c 5f 25 3a e7  |*L_%+4:T_%=L_%:.|
00027500  64 60 25 3e 2d 31 8c 0d  7c 66 3d 21 74 5f 3d 64  |d`%>-1..|f=!t_=d|
00027510  60 25 3a 21 6b 79 3d 30  3a 42 69 25 3d ba 28 6d  |`%:!ky=0:Bi%=.(m|
00027520  5f 29 3a 6f 79 25 3d 21  5a 4a 2b 31 34 2d 4f 75  |_):oy%=!ZJ+14-Ou|
00027530  25 3a 54 5f 25 2b 3d 21  7a 4a 2a 4c 5f 25 2b 34  |%:T_%+=!zJ*L_%+4|
00027540  2d 72 4a 25 0d 7c 67 11  cd 3a e7 6a 79 25 8c 72  |-rJ%.|g..:.jy%.r|
00027550  4a 25 2b 3d 38 0d 7c 68  07 cd 3a e1 0d 7c 69 31  |J%+=8.|h..:..|i1|
00027560  dd f2 74 79 28 52 4a 25  2c 53 6c 25 29 3a ea 4f  |..ty(RJ%,Sl%):.O|
00027570  75 25 2c 72 4a 25 2c 6f  79 25 2c 54 5f 25 3a e7  |u%,rJ%,oy%,T_%:.|
00027580  53 6c 25 3d 2d 31 53 6c  25 3d 52 4a 25 0d 7c 6a  |Sl%=-1Sl%=RJ%.|j|
00027590  6d f2 4b 4a 28 52 4a 25  2c 53 6c 25 29 3a f2 57  |m.KJ(RJ%,Sl%):.W|
000275a0  28 33 2c 38 29 3a c8 93  c8 90 4c 25 2b 4f 75 25  |(3,8):....L%+Ou%|
000275b0  2a 52 25 2a 55 25 2f 31  30 30 2c 58 25 2d 28 72  |*R%*U%/100,X%-(r|
000275c0  4a 25 2b 31 29 2a 56 25  2a 55 25 2f 31 30 30 2c  |J%+1)*V%*U%/100,|
000275d0  28 6f 79 25 2d 4f 75 25  29 2a 52 25 2a 55 25 2f  |(oy%-Ou%)*R%*U%/|
000275e0  31 30 30 2c 2d 28 54 5f  25 2d 72 4a 25 29 2a 56  |100,-(T_%-rJ%)*V|
000275f0  25 2a 55 25 2f 31 30 30  3a e1 0d 7c 6b 8f dd f2  |%*U%/100:..|k...|
00027600  4b 4a 28 57 6f 25 2c 64  60 25 29 3a 4f 75 25 3d  |KJ(Wo%,d`%):Ou%=|
00027610  21 28 61 25 2b 57 6f 25  2a 38 29 80 36 35 35 33  |!(a%+Wo%*8).6553|
00027620  35 3a 6f 79 25 3d 21 28  61 25 2b 32 2b 64 60 25  |5:oy%=!(a%+2+d`%|
00027630  2a 38 29 80 36 35 35 33  35 3a 72 4a 25 3d 31 3c  |*8).65535:rJ%=1<|
00027640  3c 31 36 3a 54 5f 25 3d  30 3a e3 70 79 25 3d 57  |<16:T_%=0:.py%=W|
00027650  6f 25 b8 64 60 25 3a e7  28 21 28 61 25 2b 34 2b  |o%.d`%:.(!(a%+4+|
00027660  70 79 25 2a 38 29 80 36  35 35 33 35 29 3c 72 4a  |py%*8).65535)<rJ|
00027670  25 8c 72 4a 25 3d 21 28  61 25 2b 34 2b 70 79 25  |%.rJ%=!(a%+4+py%|
00027680  2a 38 29 80 36 35 35 33  35 0d 7c 6c 36 e7 28 21  |*8).65535.|l6.(!|
00027690  28 61 25 2b 36 2b 70 79  25 2a 38 29 80 36 35 35  |(a%+6+py%*8).655|
000276a0  33 35 29 3e 54 5f 25 8c  54 5f 25 3d 21 28 61 25  |35)>T_%.T_%=!(a%|
000276b0  2b 36 2b 70 79 25 2a 38  29 80 36 35 35 33 35 0d  |+6+py%*8).65535.|
000276c0  7c 6d 07 ed 3a e1 0d 7c  6e 23 dd f2 46 4a 3a 4d  ||m..:..|n#..FJ:M|
000276d0  25 21 30 3d 65 25 3a c8  99 26 34 30 30 63 62 2c  |%!0=e%:..&400cb,|
000276e0  2c 4d 25 3a e7 76 79 25  8c 0d 7c 6f 24 e7 a8 28  |,M%:.vy%..|o$..(|
000276f0  28 4d 25 21 31 32 2d 4d  25 21 34 2d 34 29 2f 31  |(M%!12-M%!4-4)/1|
00027700  36 29 3c 3e 70 5f 25 8c  59 4f 25 3d b9 0d 7c 70  |6)<>p_%.YO%=..|p|
00027710  1f cc 3a e7 4d 25 21 31  32 2d 4d 25 21 34 2d 33  |..:.M%!12-M%!4-3|
00027720  32 3c 3e 70 5f 25 8c 59  4f 25 3d b9 0d 7c 71 07  |2<>p_%.YO%=..|q.|
00027730  cd 3a e1 0d 7c 72 2d dd  f2 42 79 3a f2 67 4a 3a  |.:..|r-..By:.gJ:|
00027740  f2 6e 3a f2 68 79 3a 21  5a 25 3d 65 25 3a c8 99  |.n:.hy:!Z%=e%:..|
00027750  26 34 30 30 63 62 2c 2c  5a 25 3a e7 76 79 25 8c  |&400cb,,Z%:.vy%.|
00027760  0d 7c 73 16 5a 25 21 32  34 3d 2d 28 33 36 2a 74  |.|s.Z%!24=-(36*t|
00027770  5f 25 2d 31 36 29 0d 7c  74 1c cc 3a 5a 25 21 32  |_%-16).|t..:Z%!2|
00027780  34 3d 2d 28 4c 5f 25 2a  74 5f 25 2d 4c 5f 25 2f  |4=-(L_%*t_%-L_%/|
00027790  34 29 0d 7c 75 2e cd 3a  c8 99 26 34 30 30 63 35  |4).|u..:..&400c5|
000277a0  2c 2c 5a 25 3a 78 4f 25  3d b9 3a f2 47 28 65 25  |,,Z%:xO%=.:.G(e%|
000277b0  2c 2d 31 2c 2d 31 29 3a  f2 4f 28 50 25 29 3a e1  |,-1,-1):.O(P%):.|
000277c0  0d 7c 76 2a dd f2 61 28  70 79 25 29 3a e7 70 79  |.|v*..a(py%):.py|
000277d0  25 3d 2d 31 8c 75 4a 25  3d 30 3a 50 79 25 3d 51  |%=-1.uJ%=0:Py%=Q|
000277e0  79 25 3a 62 4a 25 3d 30  3a e1 0d 7c 77 43 41 25  |y%:bJ%=0:..|wCA%|
000277f0  3d 70 79 25 3a 42 25 3d  51 79 25 3a 43 25 3d 6d  |=py%:B%=Qy%:C%=m|
00027800  25 3a 44 25 3d 41 25 28  71 79 25 29 3a 45 25 3d  |%:D%=A%(qy%):E%=|
00027810  70 5f 25 3a d6 67 3a 75  4a 25 3d 21 62 3a 62 4a  |p_%:.g:uJ%=!b:bJ|
00027820  25 3d 21 75 3a 50 79 25  3d 21 77 3a e1 0d 7c 78  |%=!u:Py%=!w:..|x|
00027830  33 dd a4 63 28 4b 50 25  29 3a 42 25 3d 4b 50 25  |3..c(KP%):B%=KP%|
00027840  3a 43 25 3d 41 25 28 71  79 25 29 2b 51 79 25 3a  |:C%=A%(qy%)+Qy%:|
00027850  44 25 3d 6d 25 2d 51 79  25 3a 3d ba 28 61 75 29  |D%=m%-Qy%:=.(au)|
00027860  0d 7c 79 3f dd a4 54 28  79 25 2c 68 25 29 3a e7  |.|y?..T(y%,h%):.|
00027870  5f 25 3c 31 84 28 6f 75  25 3d 30 80 28 57 79 25  |_%<1.(ou%=0.(Wy%|
00027880  3c 3e 30 84 21 41 3c 3e  30 84 49 79 25 29 29 8c  |<>0.!A<>0.Iy%)).|
00027890  21 4b 3d 2d 31 3a 46 5f  25 3d a3 3a 3d 21 4b 0d  |!K=-1:F_%=.:=!K.|
000278a0  7c 7a 27 e7 57 79 25 3c  3e 30 84 21 41 3c 3e 30  ||z'.Wy%<>0.!A<>0|
000278b0  84 49 79 25 8c c8 94 6d  25 2c 6f 75 25 3a c8 94  |.Iy%...m%,ou%:..|
000278c0  5f 25 2c 4c 6e 25 0d 7c  7b 09 e7 76 79 25 8c 0d  |_%,Ln%.|{..vy%..|
000278d0  7c 7c 3e 42 25 3d 51 79  25 3a 43 25 3d 6d 25 3a  |||>B%=Qy%:C%=m%:|
000278e0  44 25 3d 41 25 28 71 79  25 29 3a 45 25 3d 70 5f  |D%=A%(qy%):E%=p_|
000278f0  25 3a 46 25 3d 28 68 25  81 33 36 29 2d 74 5f 25  |%:F%=(h%.36)-t_%|
00027900  3a 47 25 3d 79 25 81 31  36 3a d6 6b 4a 0d 7c 7d  |:G%=y%.16:.kJ.|}|
00027910  8a cc 3a 79 25 2d 3d 38  3a 47 25 3d 41 25 28 4b  |..:y%-=8:G%=A%(K|
00027920  69 25 29 3a 48 25 3d 4d  25 3a 21 47 79 3d 55 69  |i%):H%=M%:!Gy=Ui|
00027930  25 3a 21 48 79 3d 41 60  25 3a 21 4c 79 3d 4a 60  |%:!Hy=A`%:!Ly=J`|
00027940  25 3a 21 57 79 3d 70 5f  25 3a 21 50 79 3d 4c 5f  |%:!Wy=p_%:!Py=L_|
00027950  25 3a 21 5f 79 3d 4c 25  2b 31 36 3a 21 54 79 3d  |%:!_y=L%+16:!Ty=|
00027960  58 25 2d 4c 5f 25 3a 21  74 69 3d 28 68 25 2d 31  |X%-L_%:!ti=(h%-1|
00027970  36 29 81 4c 5f 25 3a c8  99 26 34 30 30 38 39 2c  |6).L_%:..&40089,|
00027980  2c 79 25 b8 2c 79 25 3a  21 4c 6c 3d 79 25 3a 21  |,y%.,y%:!Ll=y%:!|
00027990  4b 3d ba 28 6c 69 29 0d  7c 7e 0b cd 3a e7 6a 79  |K=.(li).|~..:.jy|
000279a0  25 8c 0d 7c 7f 10 e7 21  4b 3d 2d 32 8c 21 4b 3d  |%..|...!K=-2.!K=|
000279b0  2d 31 0d 7c 80 21 cc 3a  e7 21 4b 3d 2d 32 84 21  |-1.|.!.:.!K=-2.!|
000279c0  4b 3e 3d 5f 25 8c 21 4b  3d 5f 25 2d 31 3a 21 79  |K>=_%.!K=_%-1:!y|
000279d0  5f 3d 30 0d 7c 81 0b e7  44 79 25 3d a3 8c 0d 7c  |_=0.|...Dy%=...||
000279e0  82 16 46 5f 25 3d 21 79  5f 3a e7 46 5f 25 8c 21  |..F_%=!y_:.F_%.!|
000279f0  4b 2b 3d 31 0d 7c 83 05  cd 0d 7c 84 29 cd 3a e7  |K+=1.|....|.).:.|
00027a00  57 79 25 3c 3e 30 84 21  41 3c 3e 30 84 49 79 25  |Wy%<>0.!A<>0.Iy%|
00027a10  8c c8 94 6d 25 2c 6f 75  25 3a c8 94 5f 25 2c 4c  |...m%,ou%:.._%,L|
00027a20  6e 25 0d 7c 85 07 3d 21  4b 0d 7c 86 10 dd f2 78  |n%.|..=!K.|....x|
00027a30  79 3a e7 76 79 25 3d a3  8c 0d 7c 87 34 76 79 25  |y:.vy%=...|.4vy%|
00027a40  3d b9 3a 4b 25 3d a4 41  28 31 2c 4b 69 25 29 3a  |=.:K%=.A(1,Ki%):|
00027a50  f2 56 28 44 69 73 70 6c  61 79 5f 4d 65 6e 75 25  |.V(Display_Menu%|
00027a60  2c 31 29 3a f2 4a 28 65  25 29 3a f2 6e 0d 7c 88  |,1):.J(e%):.n.|.|
00027a70  41 cc 3a f2 63 4a 3a 76  79 25 3d a3 3a f2 79 3a  |A.:.cJ:vy%=.:.y:|
00027a80  4f 5f 25 3d 2d 31 3a 59  42 25 3d a3 3a f2 4b 28  |O_%=-1:YB%=.:.K(|
00027a90  44 69 73 70 6c 61 79 5f  4d 65 6e 75 25 2c 31 29  |Display_Menu%,1)|
00027aa0  3a f2 6e 3a f2 4a 79 3a  f2 4a 28 65 25 29 0d 7c  |:.n:.Jy:.J(e%).||
00027ab0  89 2d cd 3a c8 99 26 36  30 30 64 33 2c 2c 4d 25  |.-.:..&600d3,,M%|
00027ac0  3a e7 4d 25 21 30 3d 65  25 80 44 79 25 3d a3 80  |:.M%!0=e%.Dy%=..|
00027ad0  6a 79 25 3d a3 f2 4f 28  50 25 29 0d 7c 8a 05 e1  |jy%=..O(P%).|...|
00027ae0  0d 7c 8b 74 dd f2 41 75  28 59 25 29 3a ea 50 42  |.|.t..Au(Y%):.PB|
00027af0  25 2c 68 6f 25 3a 68 6f  25 3d 6b 25 3a 50 42 25  |%,ho%:ho%=k%:PB%|
00027b00  3d ac 28 55 75 25 29 3a  4d 25 21 30 3d 68 6f 25  |=.(Uu%):M%!0=ho%|
00027b10  3a c8 99 26 34 30 30 63  63 2c 2c 4d 25 3a 4d 25  |:..&400cc,,M%:M%|
00027b20  21 30 3d 4d 25 21 34 34  3a 4d 25 21 34 3d 4d 25  |!0=M%!44:M%!4=M%|
00027b30  21 34 38 3a 4d 25 21 38  3d 4d 25 21 35 32 3a e7  |!48:M%!8=M%!52:.|
00027b40  50 42 25 8c 4d 25 21 31  32 3d 30 8b 4d 25 21 31  |PB%.M%!12=0.M%!1|
00027b50  32 3d 38 36 0d 7c 8c 42  c8 99 26 34 30 30 64 37  |2=86.|.B..&400d7|
00027b60  2c 68 6f 25 2c 4d 25 3a  4d 25 21 30 3d 68 6f 25  |,ho%,M%:M%!0=ho%|
00027b70  3a c8 99 26 34 30 30 63  62 2c 2c 4d 25 3a 4d 25  |:..&400cb,,M%:M%|
00027b80  21 32 34 2b 3d 38 36 3a  c8 99 26 34 30 30 63 35  |!24+=86:..&400c5|
00027b90  2c 2c 4d 25 3a e1 0d 7c  8d 6f dd f2 72 61 3a f2  |,,M%:..|.o..ra:.|
00027ba0  43 28 22 4f 70 74 69 63  61 6c 22 2c 22 49 74 20  |C("Optical","It |
00027bb0  69 73 20 6e 6f 74 20 70  6f 73 73 69 62 6c 65 20  |is not possible |
00027bc0  74 6f 20 67 6f 20 69 6e  74 6f 20 54 79 70 65 20  |to go into Type |
00027bd0  54 65 61 63 68 69 6e 67  20 6d 6f 64 65 20 77 68  |Teaching mode wh|
00027be0  69 6c 65 20 74 65 78 74  20 69 73 20 66 6f 72 6d  |ile text is form|
00027bf0  61 74 74 65 64 20 61 73  20 61 20 74 61 62 6c 65  |atted as a table|
00027c00  2e 22 29 3a e1 0d 7c 8e  10 dd f2 56 5f 3a e7 76  |."):..|....V_:.v|
00027c10  79 25 3d a3 8c 0d 7c 8f  2c e7 57 79 25 3c 3e 30  |y%=...|.,.Wy%<>0|
00027c20  84 21 41 3c 3e 30 84 49  79 25 8c 55 69 25 3d a4  |.!A<>0.Iy%.Ui%=.|
00027c30  44 28 6f 75 25 29 8b 55  69 25 3d a4 44 28 6d 25  |D(ou%).Ui%=.D(m%|
00027c40  29 0d 7c 90 12 cc 3a 4b  25 3d a4 41 28 31 2c 6b  |).|...:K%=.A(1,k|
00027c50  65 25 29 0d 7c 91 0d cd  3a 48 6f 25 3d a3 3a e1  |e%).|...:Ho%=.:.|
00027c60  0d 7c 92 27 dd f2 60 5f  3a ea 70 25 3a e3 70 25  |.|.'..`_:.p%:.p%|
00027c70  3d 30 b8 33 35 3a 6b 72  25 3f 70 25 3d 67 79 25  |=0.35:kr%?p%=gy%|
00027c80  3f 70 25 3a ed 3a e1 0d  7c 93 9e dd f2 52 4a 3a  |?p%:.:..|....RJ:|
00027c90  f2 5a 28 49 6e 66 6f 5f  57 69 6e 64 6f 77 25 2c  |.Z(Info_Window%,|
00027ca0  31 34 29 3a f2 41 28 49  6e 66 6f 5f 57 69 6e 64  |14):.A(Info_Wind|
00027cb0  6f 77 25 2c 31 35 2c 22  4e 65 75 72 6f 74 72 6f  |ow%,15,"Neurotro|
00027cc0  6e 20 53 6f 66 74 77 61  72 65 22 29 3a 4d 25 21  |n Software"):M%!|
00027cd0  30 3d 49 6e 66 6f 5f 57  69 6e 64 6f 77 25 3a 4d  |0=Info_Window%:M|
00027ce0  25 21 34 3d 31 35 3a c8  99 26 34 30 30 63 65 2c  |%!4=15:..&400ce,|
00027cf0  2c 4d 25 3a 4d 25 21 38  3d 30 3a 4d 25 21 31 32  |,M%:M%!8=0:M%!12|
00027d00  3d 28 31 3c 3c 31 29 3a  c8 99 26 34 30 30 63 64  |=(1<<1):..&400cd|
00027d10  2c 2c 4d 25 3a 48 6e 25  3d 31 3a 77 75 25 3d 91  |,,M%:Hn%=1:wu%=.|
00027d20  2b 34 30 3a e1 0d 7c 94  10 dd f2 42 69 3a e7 91  |+40:..|....Bi:..|
00027d30  3c 77 75 25 e1 0d 7c 95  0c e7 48 6e 25 3c 31 36  |<wu%..|...Hn%<16|
00027d40  8c 0d 7c 96 4a 4d 25 21  30 3d 49 6e 66 6f 5f 57  |..|.JM%!0=Info_W|
00027d50  69 6e 64 6f 77 25 3a 4d  25 21 34 3d 31 34 3a c8  |indow%:M%!4=14:.|
00027d60  99 26 34 30 30 63 65 2c  2c 4d 25 3a e7 28 4d 25  |.&400ce,,M%:.(M%|
00027d70  21 32 34 80 28 31 3c 3c  32 32 29 29 3c 3e 30 8c  |!24.(1<<22))<>0.|
00027d80  76 4a 25 3d 30 8b 76 4a  25 3d 31 0d 7c 97 2f 4d  |vJ%=0.vJ%=1.|./M|
00027d90  25 21 38 3d 76 4a 25 2a  28 31 3c 3c 32 32 29 3a  |%!8=vJ%*(1<<22):|
00027da0  4d 25 21 31 32 3d 28 31  3c 3c 32 32 29 3a c8 99  |M%!12=(1<<22):..|
00027db0  26 34 30 30 63 64 2c 2c  4d 25 0d 7c 98 0c cd 3a  |&400cd,,M%.|...:|
00027dc0  c8 8e 48 6e 25 ca 0d 7c  99 0e c9 31 3a 77 75 25  |..Hn%..|...1:wu%|
00027dd0  3d 91 2b 35 0d 7c 9a 0f  c9 32 3a 77 75 25 3d 91  |=.+5.|...2:wu%=.|
00027de0  2b 32 35 0d 7c 9b 0f c9  33 3a 77 75 25 3d 91 2b  |+25.|...3:wu%=.+|
00027df0  31 30 0d 7c 9c 0f c9 34  3a 77 75 25 3d 91 2b 31  |10.|...4:wu%=.+1|
00027e00  30 0d 7c 9d 0e c9 35 3a  77 75 25 3d 91 2b 35 0d  |0.|...5:wu%=.+5.|
00027e10  7c 9e 0f c9 36 3a 77 75  25 3d 91 2b 31 35 0d 7c  ||...6:wu%=.+15.||
00027e20  9f 0e c9 37 3a 77 75 25  3d 91 2b 35 0d 7c a0 0f  |...7:wu%=.+5.|..|
00027e30  c9 38 3a 77 75 25 3d 91  2b 32 30 0d 7c a1 0e c9  |.8:wu%=.+20.|...|
00027e40  39 3a 77 75 25 3d 91 2b  33 0d 7c a2 0f c9 31 30  |9:wu%=.+3.|...10|
00027e50  3a 77 75 25 3d 91 2b 33  0d 7c a3 0f c9 31 31 3a  |:wu%=.+3.|...11:|
00027e60  77 75 25 3d 91 2b 33 0d  7c a4 0f c9 31 32 3a 77  |wu%=.+3.|...12:w|
00027e70  75 25 3d 91 2b 33 0d 7c  a5 0f c9 31 33 3a 77 75  |u%=.+3.|...13:wu|
00027e80  25 3d 91 2b 33 0d 7c a6  0f c9 31 34 3a 77 75 25  |%=.+3.|...14:wu%|
00027e90  3d 91 2b 33 0d 7c a7 0f  c9 31 35 3a 77 75 25 3d  |=.+3.|...15:wu%=|
00027ea0  91 2b 33 0d 7c a8 10 c9  31 36 3a 77 75 25 3d 91  |.+3.|...16:wu%=.|
00027eb0  2b 35 30 0d 7c a9 15 cb  3a 48 6e 25 2b 3d 31 3a  |+50.|...:Hn%+=1:|
00027ec0  e7 48 6e 25 3d 31 38 8c  0d 7c aa 49 48 6e 25 3d  |.Hn%=18..|.IHn%=|
00027ed0  30 3a 4d 25 21 30 3d 49  6e 66 6f 5f 57 69 6e 64  |0:M%!0=Info_Wind|
00027ee0  6f 77 25 3a 4d 25 21 34  3d 31 35 3a c8 99 26 34  |ow%:M%!4=15:..&4|
00027ef0  30 30 63 65 2c 2c 4d 25  3a 4d 25 21 38 3d 28 31  |00ce,,M%:M%!8=(1|
00027f00  3c 3c 31 29 3a 4d 25 21  31 32 3d 28 31 3c 3c 31  |<<1):M%!12=(1<<1|
00027f10  29 0d 7c ab 07 cd 3a e1  0d 7c ac 30 dd f2 72 75  |).|...:..|.0..ru|
00027f20  28 79 25 2c 68 25 2c 73  79 25 2c 65 79 25 29 3a  |(y%,h%,sy%,ey%):|
00027f30  e7 a4 53 28 60 6c 25 29  e7 79 25 3d 58 72 25 80  |..S(`l%).y%=Xr%.|
00027f40  68 25 3d 42 72 25 8c e1  0d 7c ad 13 e7 5f 25 3c  |h%=Br%...|..._%<|
00027f50  31 8c f2 4d 28 60 6c 25  29 3a e1 0d 7c ae 2c 58  |1..M(`l%):..|.,X|
00027f60  72 25 3d 79 25 3a 42 72  25 3d 68 25 3a 6c 72 25  |r%=y%:Br%=h%:lr%|
00027f70  3d 73 79 25 3a 66 4f 25  3d 65 79 25 3a f2 63 3a  |=sy%:fO%=ey%:.c:|
00027f80  74 60 25 3d b9 3a e1 0d  7c af cd dd f2 64 75 3a  |t`%=.:..|....du:|
00027f90  ea 71 42 25 2c 72 69 25  2c 52 25 2c 56 25 2c 78  |.qB%,ri%,R%,V%,x|
00027fa0  60 25 3a 74 60 25 3d a3  3a 79 25 3d 58 72 25 3a  |`%:t`%=.:y%=Xr%:|
00027fb0  68 25 3d 42 72 25 3a 73  79 25 3d 6c 72 25 3a 65  |h%=Br%:sy%=lr%:e|
00027fc0  79 25 3d 66 4f 25 3a c8  99 34 36 2c 32 39 36 2c  |y%=fO%:..46,296,|
00027fd0  4b 5f 25 2c 22 62 75 62  5f 63 6f 72 6e 65 72 22  |K_%,"bub_corner"|
00027fe0  b8 2c 2c 2c 59 5f 25 2c  6f 5f 25 3a c8 99 34 36  |.,,,Y_%,o_%:..46|
00027ff0  2c 32 39 36 2c 4b 5f 25  2c 22 62 75 62 5f 73 74  |,296,K_%,"bub_st|
00028000  61 72 74 22 b8 2c 2c 2c  7a 69 25 2c 58 4a 25 3a  |art".,,,zi%,XJ%:|
00028010  59 5f 25 3d 59 5f 25 2a  32 3a 6f 5f 25 3d 6f 5f  |Y_%=Y_%*2:o_%=o_|
00028020  25 2a 32 3a 7a 69 25 3d  7a 69 25 2a 32 3a 58 4a  |%*2:zi%=zi%*2:XJ|
00028030  25 3d 28 58 4a 25 2d 32  29 2a 32 3a e7 73 79 25  |%=(XJ%-2)*2:.sy%|
00028040  3c 59 5f 25 2b 7a 69 25  8c 73 79 25 3d 59 5f 25  |<Y_%+zi%.sy%=Y_%|
00028050  2b 7a 69 25 0d 7c b0 14  e7 65 79 25 3c 6f 5f 25  |+zi%.|...ey%<o_%|
00028060  8c 65 79 25 3d 6f 5f 25  0d 7c b1 a4 70 4a 25 3d  |.ey%=o_%.|..pJ%=|
00028070  73 79 25 2b 59 5f 25 3a  4c 4a 25 3d 65 79 25 2b  |sy%+Y_%:LJ%=ey%+|
00028080  6f 5f 25 2b 58 4a 25 3a  c8 99 35 33 2c 2d 31 2c  |o_%+XJ%:..53,-1,|
00028090  31 31 b8 2c 2c 71 42 25  3a c8 99 35 33 2c 2d 31  |11.,,qB%:..53,-1|
000280a0  2c 31 32 b8 2c 2c 72 69  25 3a c8 99 35 33 2c 2d  |,12.,,ri%:..53,-|
000280b0  31 2c 34 b8 2c 2c 52 25  3a c8 99 35 33 2c 2d 31  |1,4.,,R%:..53,-1|
000280c0  2c 35 b8 2c 2c 56 25 3a  52 25 3d 31 3c 3c 52 25  |,5.,,V%:R%=1<<R%|
000280d0  3a 56 25 3d 31 3c 3c 56  25 3a 71 42 25 3d 71 42  |:V%=1<<V%:qB%=qB|
000280e0  25 2a 52 25 2d 31 3a 72  69 25 3d 72 69 25 2a 56  |%*R%-1:ri%=ri%*V|
000280f0  25 2d 31 3a 61 42 25 3d  30 3a e7 68 25 2b 4c 4a  |%-1:aB%=0:.h%+LJ|
00028100  25 3e 72 69 25 8c 61 42  25 2b 3d 31 0d 7c b2 31  |%>ri%.aB%+=1.|.1|
00028110  61 4f 25 3d 79 25 2d 59  5f 25 3a e7 61 4f 25 3c  |aO%=y%-Y_%:.aO%<|
00028120  30 61 4f 25 3d 30 3a 4c  42 25 3d 70 4a 25 8b 4c  |0aO%=0:LB%=pJ%.L|
00028130  42 25 3d 79 25 2d 59 5f  25 2b 70 4a 25 0d 7c b3  |B%=y%-Y_%+pJ%.|.|
00028140  30 42 60 25 3d 30 3a e7  4c 42 25 3e 3d 71 42 25  |0B`%=0:.LB%>=qB%|
00028150  8c 42 60 25 3d 4c 42 25  2d 71 42 25 3a 61 4f 25  |.B`%=LB%-qB%:aO%|
00028160  2d 3d 42 60 25 3a 4c 42  25 3d 71 42 25 0d 7c b4  |-=B`%:LB%=qB%.|.|
00028170  28 e7 42 60 25 3e 70 4a  25 2d 32 2a 59 5f 25 2d  |(.B`%>pJ%-2*Y_%-|
00028180  7a 69 25 8c 42 60 25 3d  70 4a 25 2d 32 2a 59 5f  |zi%.B`%=pJ%-2*Y_|
00028190  25 2d 7a 69 25 0d 7c b5  0b e7 61 42 25 80 31 8c  |%-zi%.|...aB%.1.|
000281a0  0d 7c b6 1b e7 76 79 25  8c 78 60 25 3d 2d 33 36  |.|...vy%.x`%=-36|
000281b0  8b 78 60 25 3d 2d 4c 5f  25 2d 34 0d 7c b7 1d 49  |.x`%=-L_%-4.|..I|
000281c0  42 25 3d 68 25 2b 78 60  25 2d 4c 4a 25 3a 54 42  |B%=h%+x`%-LJ%:TB|
000281d0  25 3d 68 25 2b 78 60 25  0d 7c b8 1b cc 3a 49 42  |%=h%+x`%.|...:IB|
000281e0  25 3d 68 25 2b 32 3a 54  42 25 3d 68 25 2b 4c 4a  |%=h%+2:TB%=h%+LJ|
000281f0  25 2b 32 0d 7c b9 2c cd  3a e7 54 42 25 3e 72 69  |%+2.|.,.:.TB%>ri|
00028200  25 8c 54 42 25 3d 72 69  25 2b 31 3a 49 42 25 3d  |%.TB%=ri%+1:IB%=|
00028210  72 69 25 2d 4c 4a 25 2b  31 3a 61 42 25 3d 31 0d  |ri%-LJ%+1:aB%=1.|
00028220  7c ba 1e e7 49 42 25 3c  30 8c 49 42 25 3d 30 3a  ||...IB%<0.IB%=0:|
00028230  54 42 25 3d 4c 4a 25 3a  61 42 25 3d 30 0d 7c bb  |TB%=LJ%:aB%=0.|.|
00028240  57 5a 25 21 30 3d 60 6c  25 3a c8 99 26 34 30 30  |WZ%!0=`l%:..&400|
00028250  63 62 2c 2c 5a 25 3a 5a  25 21 34 3d 61 4f 25 3a  |cb,,Z%:Z%!4=aO%:|
00028260  5a 25 21 38 3d 49 42 25  3a 5a 25 21 31 32 3d 4c  |Z%!8=IB%:Z%!12=L|
00028270  42 25 3a 5a 25 21 31 36  3d 54 42 25 3a 5a 25 21  |B%:Z%!16=TB%:Z%!|
00028280  32 38 3d 2d 31 3a c8 99  26 34 30 30 63 35 2c 2c  |28=-1:..&400c5,,|
00028290  5a 25 3a e1 0d 7c bc 37  dd f2 5f 75 3a ea 64 61  |Z%:..|.7.._u:.da|
000282a0  25 2c 51 4f 25 2c 6e 6b  25 2c 53 5a 25 2c 47 70  |%,QO%,nk%,SZ%,Gp|
000282b0  25 2c 4e 70 25 2c 71 72  25 2c 42 41 25 2c 6c 2c  |%,Np%,qr%,BA%,l,|
000282c0  47 5f 25 3a e7 61 5f 25  3d a3 e1 0d 7c bd 28 7a  |G_%:.a_%=...|.(z|
000282d0  25 21 30 3d 31 3a 7a 25  21 34 3d 31 3a 7a 25 21  |%!0=1:z%!4=1:z%!|
000282e0  38 3d 31 3a 7a 25 21 31  32 3d 31 3a e7 61 42 25  |8=1:z%!12=1:.aB%|
000282f0  80 31 8c 0d 7c be f9 f2  49 28 4b 5f 25 2c 22 62  |.1..|...I(K_%,"b|
00028300  75 62 5f 63 6f 72 6e 65  72 22 2c 4c 25 2c 58 25  |ub_corner",L%,X%|
00028310  2d 6f 5f 25 2d 58 4a 25  2c 38 2c 7a 25 29 3a c8  |-o_%-XJ%,8,z%):.|
00028320  99 34 36 2c 32 38 39 2c  4b 5f 25 2c 22 62 75 62  |.46,289,K_%,"bub|
00028330  5f 63 6f 72 6e 65 72 22  3a f2 49 28 4b 5f 25 2c  |_corner":.I(K_%,|
00028340  22 62 75 62 5f 63 6f 72  6e 65 72 22 2c 4c 25 2c  |"bub_corner",L%,|
00028350  58 25 2d 4c 4a 25 2c 38  2c 7a 25 29 3a c8 99 34  |X%-LJ%,8,z%):..4|
00028360  36 2c 33 30 33 2c 4b 5f  25 2c 22 62 75 62 5f 63  |6,303,K_%,"bub_c|
00028370  6f 72 6e 65 72 22 3a f2  49 28 4b 5f 25 2c 22 62  |orner":.I(K_%,"b|
00028380  75 62 5f 63 6f 72 6e 65  72 22 2c 4c 25 2b 70 4a  |ub_corner",L%+pJ|
00028390  25 2d 59 5f 25 2c 58 25  2d 4c 4a 25 2c 38 2c 7a  |%-Y_%,X%-LJ%,8,z|
000283a0  25 29 3a c8 99 34 36 2c  32 38 39 2c 4b 5f 25 2c  |%):..46,289,K_%,|
000283b0  22 62 75 62 5f 63 6f 72  6e 65 72 22 3a f2 49 28  |"bub_corner":.I(|
000283c0  4b 5f 25 2c 22 62 75 62  5f 63 6f 72 6e 65 72 22  |K_%,"bub_corner"|
000283d0  2c 4c 25 2b 70 4a 25 2d  59 5f 25 2c 58 25 2d 6f  |,L%+pJ%-Y_%,X%-o|
000283e0  5f 25 2d 58 4a 25 2c 38  2c 7a 25 29 0d 7c bf fa  |_%-XJ%,8,z%).|..|
000283f0  c8 99 34 36 2c 33 30 33  2c 4b 5f 25 2c 22 62 75  |..46,303,K_%,"bu|
00028400  62 5f 63 6f 72 6e 65 72  22 3a c8 99 26 34 30 30  |b_corner":..&400|
00028410  65 36 2c 39 3a c8 93 c8  90 4c 25 2b 34 2c 58 25  |e6,9:....L%+4,X%|
00028420  2d 6f 5f 25 2d 58 4a 25  2c 70 4a 25 2d 38 2c 2d  |-o_%-XJ%,pJ%-8,-|
00028430  28 4c 4a 25 2d 58 4a 25  2d 32 2a 6f 5f 25 29 3a  |(LJ%-XJ%-2*o_%):|
00028440  c8 93 c8 90 4c 25 2b 59  5f 25 2c 58 25 2d 34 2d  |....L%+Y_%,X%-4-|
00028450  58 4a 25 2c 70 4a 25 2d  59 5f 25 2a 32 2c 2d 28  |XJ%,pJ%-Y_%*2,-(|
00028460  4c 4a 25 2d 58 4a 25 2d  38 29 3a c8 99 26 34 30  |LJ%-XJ%-8):..&40|
00028470  30 65 36 2c 37 3a c8 93  c8 90 4c 25 2c 58 25 2d  |0e6,7:....L%,X%-|
00028480  6f 5f 25 2d 58 4a 25 2c  32 2c 2d 28 4c 4a 25 2d  |o_%-XJ%,2,-(LJ%-|
00028490  58 4a 25 2d 32 2a 6f 5f  25 29 3a c8 93 c8 90 4c  |XJ%-2*o_%):....L|
000284a0  25 2b 59 5f 25 2c 58 25  2d 58 4a 25 2d 32 2c 70  |%+Y_%,X%-XJ%-2,p|
000284b0  4a 25 2d 59 5f 25 2a 32  2c 2d 32 3a c8 93 c8 90  |J%-Y_%*2,-2:....|
000284c0  4c 25 2b 70 4a 25 2d 34  2c 58 25 2d 6f 5f 25 2d  |L%+pJ%-4,X%-o_%-|
000284d0  58 4a 25 2c 32 2c 2d 28  4c 4a 25 2d 58 4a 25 2d  |XJ%,2,-(LJ%-XJ%-|
000284e0  32 2a 6f 5f 25 29 0d 7c  c0 d6 c8 93 c8 90 4c 25  |2*o_%).|......L%|
000284f0  2b 59 5f 25 2c 58 25 2d  4c 4a 25 2c 70 4a 25 2d  |+Y_%,X%-LJ%,pJ%-|
00028500  59 5f 25 2a 32 2c 32 3a  c8 99 34 36 2c 32 38 39  |Y_%*2,2:..46,289|
00028510  2c 4b 5f 25 2c 22 62 75  62 5f 73 74 61 72 74 22  |,K_%,"bub_start"|
00028520  3a f2 49 28 4b 5f 25 2c  22 62 75 62 5f 73 74 61  |:.I(K_%,"bub_sta|
00028530  72 74 22 2c 4c 25 2b 59  5f 25 2b 42 60 25 2c 58  |rt",L%+Y_%+B`%,X|
00028540  25 2d 58 4a 25 2d 34 2c  38 2c 7a 25 29 3a c8 99  |%-XJ%-4,8,z%):..|
00028550  34 36 2c 32 38 39 2c 4b  5f 25 2c 22 62 75 62 5f  |46,289,K_%,"bub_|
00028560  73 74 61 72 74 22 3a ef  32 36 2c 32 34 2c 4c 25  |start":.26,24,L%|
00028570  2b 59 5f 25 2f 32 3b 58  25 2d 4c 4a 25 2b 6f 5f  |+Y_%/2;X%-LJ%+o_|
00028580  25 2f 32 3b 4c 25 2b 70  4a 25 2d 59 5f 25 2f 32  |%/2;L%+pJ%-Y_%/2|
00028590  3b 58 25 2d 58 4a 25 2d  6f 5f 25 2f 32 3b 3a 64  |;X%-XJ%-o_%/2;:d|
000285a0  61 25 3d 4c 25 2b 59 5f  25 2f 32 3a 51 4f 25 3d  |a%=L%+Y_%/2:QO%=|
000285b0  58 25 2d 58 4a 25 2d 6f  5f 25 2f 32 0d 7c c1 fb  |X%-XJ%-o_%/2.|..|
000285c0  cc 3a f2 49 28 4b 5f 25  2c 22 62 75 62 5f 63 6f  |.:.I(K_%,"bub_co|
000285d0  72 6e 65 72 22 2c 4c 25  2c 58 25 2d 6f 5f 25 2c  |rner",L%,X%-o_%,|
000285e0  38 2c 7a 25 29 3a c8 99  34 36 2c 32 38 39 2c 4b  |8,z%):..46,289,K|
000285f0  5f 25 2c 22 62 75 62 5f  63 6f 72 6e 65 72 22 3a  |_%,"bub_corner":|
00028600  f2 49 28 4b 5f 25 2c 22  62 75 62 5f 63 6f 72 6e  |.I(K_%,"bub_corn|
00028610  65 72 22 2c 4c 25 2c 58  25 2d 4c 4a 25 2b 58 4a  |er",L%,X%-LJ%+XJ|
00028620  25 2c 38 2c 7a 25 29 3a  c8 99 34 36 2c 33 30 33  |%,8,z%):..46,303|
00028630  2c 4b 5f 25 2c 22 62 75  62 5f 63 6f 72 6e 65 72  |,K_%,"bub_corner|
00028640  22 3a f2 49 28 4b 5f 25  2c 22 62 75 62 5f 63 6f  |":.I(K_%,"bub_co|
00028650  72 6e 65 72 22 2c 4c 25  2b 70 4a 25 2d 59 5f 25  |rner",L%+pJ%-Y_%|
00028660  2c 58 25 2d 4c 4a 25 2b  58 4a 25 2c 38 2c 7a 25  |,X%-LJ%+XJ%,8,z%|
00028670  29 3a c8 99 34 36 2c 32  38 39 2c 4b 5f 25 2c 22  |):..46,289,K_%,"|
00028680  62 75 62 5f 63 6f 72 6e  65 72 22 3a f2 49 28 4b  |bub_corner":.I(K|
00028690  5f 25 2c 22 62 75 62 5f  63 6f 72 6e 65 72 22 2c  |_%,"bub_corner",|
000286a0  4c 25 2b 70 4a 25 2d 59  5f 25 2c 58 25 2d 6f 5f  |L%+pJ%-Y_%,X%-o_|
000286b0  25 2c 38 2c 7a 25 29 0d  7c c2 e6 c8 99 34 36 2c  |%,8,z%).|....46,|
000286c0  33 30 33 2c 4b 5f 25 2c  22 62 75 62 5f 63 6f 72  |303,K_%,"bub_cor|
000286d0  6e 65 72 22 3a c8 99 26  34 30 30 65 36 2c 39 3a  |ner":..&400e6,9:|
000286e0  c8 93 c8 90 4c 25 2b 34  2c 58 25 2d 6f 5f 25 2c  |....L%+4,X%-o_%,|
000286f0  70 4a 25 2d 38 2c 2d 28  4c 4a 25 2d 58 4a 25 2d  |pJ%-8,-(LJ%-XJ%-|
00028700  32 2a 6f 5f 25 29 3a c8  93 c8 90 4c 25 2b 59 5f  |2*o_%):....L%+Y_|
00028710  25 2c 58 25 2d 34 2c 70  4a 25 2d 59 5f 25 2a 32  |%,X%-4,pJ%-Y_%*2|
00028720  2c 2d 28 4c 4a 25 2d 58  4a 25 2d 38 29 3a c8 99  |,-(LJ%-XJ%-8):..|
00028730  26 34 30 30 65 36 2c 37  3a c8 93 c8 90 4c 25 2c  |&400e6,7:....L%,|
00028740  58 25 2d 6f 5f 25 2c 32  2c 2d 28 4c 4a 25 2d 58  |X%-o_%,2,-(LJ%-X|
00028750  4a 25 2d 32 2a 6f 5f 25  29 3a c8 93 c8 90 4c 25  |J%-2*o_%):....L%|
00028760  2b 59 5f 25 2c 58 25 2d  32 2c 70 4a 25 2d 59 5f  |+Y_%,X%-2,pJ%-Y_|
00028770  25 2a 32 2c 2d 32 3a c8  93 c8 90 4c 25 2b 70 4a  |%*2,-2:....L%+pJ|
00028780  25 2d 34 2c 58 25 2d 6f  5f 25 2c 32 2c 2d 28 4c  |%-4,X%-o_%,2,-(L|
00028790  4a 25 2d 58 4a 25 2d 32  2a 6f 5f 25 29 0d 7c c3  |J%-XJ%-2*o_%).|.|
000287a0  a4 c8 93 c8 90 4c 25 2b  59 5f 25 2c 58 25 2d 28  |.....L%+Y_%,X%-(|
000287b0  4c 4a 25 2d 58 4a 25 29  2c 70 4a 25 2d 59 5f 25  |LJ%-XJ%),pJ%-Y_%|
000287c0  2a 32 2c 32 3a f2 49 28  4b 5f 25 2c 22 62 75 62  |*2,2:.I(K_%,"bub|
000287d0  5f 73 74 61 72 74 22 2c  4c 25 2b 59 5f 25 2b 42  |_start",L%+Y_%+B|
000287e0  60 25 2c 58 25 2d 4c 4a  25 2c 38 2c 7a 25 29 3a  |`%,X%-LJ%,8,z%):|
000287f0  ef 32 36 2c 32 34 2c 4c  25 2b 59 5f 25 2f 32 3b  |.26,24,L%+Y_%/2;|
00028800  58 25 2d 4c 4a 25 2b 58  4a 25 2b 6f 5f 25 2f 32  |X%-LJ%+XJ%+o_%/2|
00028810  3b 4c 25 2b 70 4a 25 2d  59 5f 25 2f 32 3b 58 25  |;L%+pJ%-Y_%/2;X%|
00028820  2d 6f 5f 25 2f 32 3b 3a  64 61 25 3d 4c 25 2b 59  |-o_%/2;:da%=L%+Y|
00028830  5f 25 2f 32 3a 51 4f 25  3d 58 25 2d 6f 5f 25 2f  |_%/2:QO%=X%-o_%/|
00028840  32 0d 7c c4 bf cd 3a 6e  6b 25 3d 21 28 61 25 2b  |2.|...:nk%=!(a%+|
00028850  58 69 25 2a 38 29 80 36  35 35 33 35 3a 53 5a 25  |Xi%*8).65535:SZ%|
00028860  3d 28 21 28 61 25 2b 58  69 25 2a 38 29 29 3e 3e  |=(!(a%+Xi%*8))>>|
00028870  31 36 3a 44 25 3d 4b 79  25 3a 45 25 3d 58 69 25  |16:D%=Ky%:E%=Xi%|
00028880  3a 21 4d 3d ba 28 41 79  29 3a 71 72 25 3d 6e 6b  |:!M=.(Ay):qr%=nk|
00028890  25 2b 28 53 5a 25 2d 6e  6b 25 29 2f 32 3a 42 41  |%+(SZ%-nk%)/2:BA|
000288a0  25 3d 66 4a 25 21 28 21  4d 2a 34 29 2b 28 71 72  |%=fJ%!(!M*4)+(qr|
000288b0  25 2a 72 75 25 21 28 21  4d 2a 34 29 29 2f 31 30  |%*ru%!(!M*4))/10|
000288c0  32 34 3a 6c 3d 66 4f 25  2f 28 72 5f 25 21 28 21  |24:l=fO%/(r_%!(!|
000288d0  4d 2a 34 29 2a 56 25 29  2f 32 3a 41 75 25 3d 72  |M*4)*V%)/2:Au%=r|
000288e0  5f 25 21 28 21 4d 2a 34  29 2a 56 25 2a 32 3a 6e  |_%!(!M*4)*V%*2:n|
000288f0  5f 25 3d 66 4f 25 3a e7  41 75 25 3e 6e 5f 25 8c  |_%=fO%:.Au%>n_%.|
00028900  0d 7c c5 58 48 3d 28 31  3c 3c 31 36 29 2f 6e 5f  |.|.XH=(1<<16)/n_|
00028910  25 2a 41 75 25 3a 6e 5f  25 3d 28 31 3c 3c 31 36  |%*Au%:n_%=(1<<16|
00028920  29 2f 48 2a 28 31 3c 3c  31 36 29 3a 7a 25 21 30  |)/H*(1<<16):z%!0|
00028930  3d 6e 5f 25 3a 7a 25 21  38 3d 28 31 3c 3c 31 36  |=n_%:z%!8=(1<<16|
00028940  29 3a 7a 25 21 34 3d 6e  5f 25 3a 7a 25 21 31 32  |):z%!4=n_%:z%!12|
00028950  3d 28 31 3c 3c 31 36 29  0d 7c c6 40 cc 3a 48 3d  |=(1<<16).|.@.:H=|
00028960  28 31 3c 3c 31 36 29 2f  6e 5f 25 2a 41 75 25 3a  |(1<<16)/n_%*Au%:|
00028970  7a 25 21 30 3d 28 31 3c  3c 31 36 29 3a 7a 25 21  |z%!0=(1<<16):z%!|
00028980  38 3d 48 3a 7a 25 21 34  3d 28 31 3c 3c 31 36 29  |8=H:z%!4=(1<<16)|
00028990  3a 7a 25 21 31 32 3d 48  0d 7c c7 e1 cd 3a 64 61  |:z%!12=H.|...:da|
000289a0  25 3d 64 61 25 2b 28 70  4a 25 2d 59 5f 25 29 2f  |%=da%+(pJ%-Y_%)/|
000289b0  32 2d 28 52 25 2a 71 72  25 29 2a 6c 2d 6c 72 25  |2-(R%*qr%)*l-lr%|
000289c0  2f 34 3a 51 4f 25 3d 51  4f 25 2d 28 4c 4a 25 2d  |/4:QO%=QO%-(LJ%-|
000289d0  6f 5f 25 29 2f 32 2d 28  56 25 2a 28 74 25 2d 42  |o_%)/2-(V%*(t%-B|
000289e0  41 25 29 29 2a 6c 2b 66  4f 25 2f 31 30 3a 4d 25  |A%))*l+fO%/10:M%|
000289f0  21 30 3d 26 65 65 65 65  30 30 3a 4d 25 21 34 3d  |!0=&eeee00:M%!4=|
00028a00  30 3a c8 99 26 34 30 37  34 30 2c 31 38 2c 4d 25  |0:..&40740,18,M%|
00028a10  2c 2d 31 2c 2d 31 2c 6b  6b 25 3a f2 49 28 41 25  |,-1,-1,kk%:.I(A%|
00028a20  28 60 25 29 2c 4d 24 2c  64 61 25 2c 51 4f 25 2c  |(`%),M$,da%,QO%,|
00028a30  32 35 36 2c 7a 25 29 3a  f2 4b 4a 28 58 69 25 2c  |256,z%):.KJ(Xi%,|
00028a40  58 69 25 29 3a c8 99 26  34 30 30 65 36 2c 31 31  |Xi%):..&400e6,11|
00028a50  3a 86 64 61 25 2b 4f 75  25 2a 52 25 2a 6c 2d 34  |:.da%+Ou%*R%*l-4|
00028a60  2c 58 25 2c 64 61 25 2b  4f 75 25 2a 52 25 2a 6c  |,X%,da%+Ou%*R%*l|
00028a70  2d 34 2c 58 25 2d 4c 4a  25 0d 7c c8 2a 86 64 61  |-4,X%-LJ%.|.*.da|
00028a80  25 2b 6f 79 25 2a 52 25  2a 6c 2c 58 25 2c 64 61  |%+oy%*R%*l,X%,da|
00028a90  25 2b 6f 79 25 2a 52 25  2a 6c 2c 58 25 2d 4c 4a  |%+oy%*R%*l,X%-LJ|
00028aa0  25 3a e1 0d 7c c9 0d dd  f2 63 3a e7 74 60 25 e1  |%:..|....c:.t`%.|
00028ab0  0d 7c ca 0f e7 a4 53 28  60 6c 25 29 3d a3 e1 0d  |.|....S(`l%)=...|
00028ac0  7c cb 21 4d 25 21 30 3d  60 6c 25 3a c8 99 26 34  ||.!M%!0=`l%:..&4|
00028ad0  30 30 63 36 2c 2c 4d 25  3a 74 60 25 3d a3 3a e1  |00c6,,M%:t`%=.:.|
00028ae0  0d 7c cc 1d dd f2 4d 69  28 62 25 2c 49 25 29 3a  |.|....Mi(b%,I%):|
00028af0  e7 28 62 25 80 31 37 39  32 29 3d a3 e1 0d 7c cd  |.(b%.1792)=...|.|
00028b00  1a f2 67 75 28 59 25 2c  49 25 81 33 29 3a c8 8e  |..gu(Y%,I%.3):..|
00028b10  28 49 25 81 33 29 ca 0d  7c ce 8d c9 30 3a f2 58  |(I%.3)..|...0:.X|
00028b20  28 22 4d 65 73 73 61 67  65 20 66 72 6f 6d 20 4f  |("Message from O|
00028b30  70 74 69 63 61 6c 22 2c  22 4d 4c 45 20 69 73 20  |ptical","MLE is |
00028b40  6e 6f 74 20 66 75 6e 63  74 69 6f 6e 61 6c 20 77  |not functional w|
00028b50  69 74 68 20 74 68 69 73  20 76 65 72 73 69 6f 6e  |ith this version|
00028b60  20 6f 66 20 4f 70 74 69  63 61 6c 2e 20 46 6f 72  | of Optical. For|
00028b70  20 61 20 66 75 6c 6c 20  76 65 72 73 69 6f 6e 20  | a full version |
00028b80  70 6c 65 61 73 65 20 63  6f 6e 74 61 63 74 20 4e  |please contact N|
00028b90  65 75 72 6f 74 72 6f 6e  20 53 6f 66 74 77 61 72  |eurotron Softwar|
00028ba0  65 2e 22 29 0d 7c cf 07  cb 3a e1 0d 7c d0 cc dd  |e.").|...:..|...|
00028bb0  a4 6f 28 57 6c 25 2c 6d  6e 25 2c 48 4f 25 2c 46  |.o(Wl%,mn%,HO%,F|
00028bc0  50 25 2c 78 24 2c 58 50  25 2c 4c 65 25 29 3a 53  |P%,x$,XP%,Le%):S|
00028bd0  5f 25 21 30 3d 57 6c 25  3a 53 5f 25 21 34 3d 32  |_%!0=Wl%:S_%!4=2|
00028be0  34 3a 53 5f 25 21 38 3d  2d 34 34 2d 34 34 2a 6d  |4:S_%!8=-44-44*m|
00028bf0  6e 25 3a 53 5f 25 21 31  32 3d 48 4f 25 2d 32 34  |n%:S_%!12=HO%-24|
00028c00  3a 53 5f 25 21 31 36 3d  30 2d 34 34 2a 6d 6e 25  |:S_%!16=0-44*mn%|
00028c10  3a 53 5f 25 21 32 30 3d  31 37 3a 53 5f 25 21 32  |:S_%!20=17:S_%!2|
00028c20  30 2b 3d 31 30 2a 28 31  3c 3c 31 32 29 3a 53 5f  |0+=10*(1<<12):S_|
00028c30  25 21 32 30 2b 3d 31 2a  28 31 3c 3c 31 36 29 3a  |%!20+=1*(1<<16):|
00028c40  53 5f 25 21 32 30 2b 3d  37 2a 28 31 3c 3c 32 34  |S_%!20+=7*(1<<24|
00028c50  29 3a 53 5f 25 21 32 30  2b 3d 37 2a 28 31 3c 3c  |):S_%!20+=7*(1<<|
00028c60  32 38 29 3a e7 4c 65 25  53 5f 25 21 32 30 2b 3d  |28):.Le%S_%!20+=|
00028c70  28 31 3c 3c 32 32 29 0d  7c d1 9e 78 24 3d c0 78  |(1<<22).|..x$=.x|
00028c80  24 2c 28 48 4f 25 2d 36  34 29 2f 31 36 29 3a 24  |$,(HO%-64)/16):$|
00028c90  28 53 5f 25 2b 32 34 29  3d 78 24 2b bd 30 3a c8  |(S_%+24)=x$+.0:.|
00028ca0  99 26 34 30 30 63 32 2c  2c 53 5f 25 3a 53 5f 25  |.&400c2,,S_%:S_%|
00028cb0  21 30 3d 57 6c 25 3a 53  5f 25 21 34 3d 30 3a 53  |!0=Wl%:S_%!4=0:S|
00028cc0  5f 25 21 38 3d 2d 34 34  2d 34 34 2a 6d 6e 25 3a  |_%!8=-44-44*mn%:|
00028cd0  53 5f 25 21 31 32 3d 32  32 3a 53 5f 25 21 31 36  |S_%!12=22:S_%!16|
00028ce0  3d 30 2d 34 34 2a 6d 6e  25 3a 53 5f 25 21 32 30  |=0-44*mn%:S_%!20|
00028cf0  3d 31 36 3a 53 5f 25 21  32 30 2b 3d 31 30 2a 28  |=16:S_%!20+=10*(|
00028d00  31 3c 3c 31 32 29 3a e7  46 50 25 8c 53 5f 25 21  |1<<12):.FP%.S_%!|
00028d10  32 30 2b 3d 32 0d 7c d2  3b 53 5f 25 21 32 30 2b  |20+=2.|.;S_%!20+|
00028d20  3d 37 2a 28 31 3c 3c 32  34 29 3a 53 5f 25 21 32  |=7*(1<<24):S_%!2|
00028d30  30 2b 3d 37 2a 28 31 3c  3c 32 38 29 3a e7 4c 65  |0+=7*(1<<28):.Le|
00028d40  25 53 5f 25 21 32 30 2b  3d 28 31 3c 3c 32 32 29  |%S_%!20+=(1<<22)|
00028d50  0d 7c d3 91 24 28 53 5f  25 2b 32 34 29 3d 22 80  |.|..$(S_%+24)=".|
00028d60  22 2b bd 30 3a c8 99 26  34 30 30 63 32 2c 2c 53  |"+.0:..&400c2,,S|
00028d70  5f 25 3a 53 5f 25 21 30  3d 57 6c 25 3a 53 5f 25  |_%:S_%!0=Wl%:S_%|
00028d80  21 34 3d 48 4f 25 2d 32  34 3a 53 5f 25 21 38 3d  |!4=HO%-24:S_%!8=|
00028d90  2d 34 34 2d 34 34 2a 6d  6e 25 3a 53 5f 25 21 31  |-44-44*mn%:S_%!1|
00028da0  32 3d 48 4f 25 3a 53 5f  25 21 31 36 3d 30 2d 34  |2=HO%:S_%!16=0-4|
00028db0  34 2a 6d 6e 25 3a 53 5f  25 21 32 30 3d 32 34 3a  |4*mn%:S_%!20=24:|
00028dc0  53 5f 25 21 32 30 2b 3d  31 30 2a 28 31 3c 3c 31  |S_%!20+=10*(1<<1|
00028dd0  32 29 3a e7 58 50 25 8c  53 5f 25 21 32 30 2b 3d  |2):.XP%.S_%!20+=|
00028de0  32 0d 7c d4 49 53 5f 25  21 32 30 2b 3d 31 3c 3c  |2.|.IS_%!20+=1<<|
00028df0  31 36 3a 53 5f 25 21 32  30 2b 3d 37 2a 28 31 3c  |16:S_%!20+=7*(1<|
00028e00  3c 32 34 29 3a 53 5f 25  21 32 30 2b 3d 37 2a 28  |<24):S_%!20+=7*(|
00028e10  31 3c 3c 32 38 29 3a e7  4c 65 25 53 5f 25 21 32  |1<<28):.Le%S_%!2|
00028e20  30 2b 3d 28 31 3c 3c 32  32 29 0d 7c d5 29 24 28  |0+=(1<<22).|.)$(|
00028e30  53 5f 25 2b 32 34 29 3d  22 89 22 2b bd 30 3a c8  |S_%+24)="."+.0:.|
00028e40  99 26 34 30 30 63 32 2c  2c 53 5f 25 3a 3d 6d 6e  |.&400c2,,S_%:=mn|
00028e50  25 2b 31 0d 7c d6 27 dd  f2 48 6c 28 57 6c 25 2c  |%+1.|.'..Hl(Wl%,|
00028e60  49 25 29 3a e7 28 49 25  83 33 29 3e 30 f2 69 79  |I%):.(I%.3)>0.iy|
00028e70  28 57 6c 25 2c 49 25 81  33 29 0d 7c d7 05 e1 0d  |(Wl%,I%.3).|....|
00028e80  7c d8 6a dd a4 5a 79 28  51 24 29 3a 5a 25 21 30  ||.j..Zy(Q$):Z%!0|
00028e90  3d 30 3a 5a 25 21 34 3d  30 3a 5a 25 21 38 3d 32  |=0:Z%!4=0:Z%!8=2|
00028ea0  30 30 3a 5a 25 21 31 32  3d 32 30 30 3a 5a 25 21  |00:Z%!12=200:Z%!|
00028eb0  31 36 3d 30 3a 5a 25 21  32 30 3d 30 3a 5a 25 21  |16=0:Z%!20=0:Z%!|
00028ec0  32 34 3d 2d 31 3a 5a 25  21 32 38 3d 26 38 30 30  |24=-1:Z%!28=&800|
00028ed0  30 30 30 31 30 3a e7 a9  28 51 24 29 8c 5a 25 21  |00010:..(Q$).Z%!|
00028ee0  32 38 2b 3d 31 3c 3c 32  36 0d 7c d9 1a e7 a9 28  |28+=1<<26.|....(|
00028ef0  51 24 29 8c 5a 25 3f 33  32 3d 37 8b 5a 25 3f 33  |Q$).Z%?32=7.Z%?3|
00028f00  32 3d 37 0d 7c da b1 5a  25 3f 33 33 3d 32 3a 5a  |2=7.|..Z%?33=2:Z|
00028f10  25 3f 33 34 3d 37 3a 5a  25 3f 33 35 3d 30 3a 5a  |%?34=7:Z%?35=0:Z|
00028f20  25 3f 33 36 3d 33 3a 5a  25 3f 33 37 3d 31 3a 5a  |%?36=3:Z%?37=1:Z|
00028f30  25 3f 33 38 3d 31 32 3a  5a 25 3f 33 39 3d 30 3a  |%?38=12:Z%?39=0:|
00028f40  5a 25 21 34 30 3d 30 3a  5a 25 21 34 34 3d 2d 32  |Z%!40=0:Z%!44=-2|
00028f50  30 34 38 3a 5a 25 21 34  38 3d 32 30 34 38 3a 5a  |048:Z%!48=2048:Z|
00028f60  25 21 35 32 3d 30 3a 5a  25 21 35 36 3d 36 31 3a  |%!52=0:Z%!56=61:|
00028f70  5a 25 21 36 30 3d 30 3a  5a 25 21 36 34 3d 31 3a  |Z%!60=0:Z%!64=1:|
00028f80  5a 25 21 36 38 3d 30 3a  24 28 5a 25 2b 37 32 29  |Z%!68=0:$(Z%+72)|
00028f90  3d 51 24 2b bd 30 3a 5a  25 21 38 34 3d 30 3a c8  |=Q$+.0:Z%!84=0:.|
00028fa0  99 26 34 30 30 63 31 2c  2c 5a 25 b8 57 6c 25 3a  |.&400c1,,Z%.Wl%:|
00028fb0  3d 57 6c 25 0d 7c db 1f  dd f2 77 75 28 73 6c 25  |=Wl%.|....wu(sl%|
00028fc0  29 3a e7 a4 71 28 59 25  29 3d a3 8c 73 6c 25 3d  |):..q(Y%)=..sl%=|
00028fd0  30 3a e1 0d 7c dc 3f 4e  41 25 3d a4 76 3a 4d 25  |0:..|.?NA%=.v:M%|
00028fe0  21 30 3d 73 6c 25 3a c8  99 26 34 30 30 63 62 2c  |!0=sl%:..&400cb,|
00028ff0  2c 4d 25 3a f2 47 4a 28  43 69 25 2c 4e 41 25 2c  |,M%:.GJ(Ci%,NA%,|
00029000  5f 6b 25 2c 4d 25 21 34  2c 4d 25 21 38 2d 34 29  |_k%,M%!4,M%!8-4)|
00029010  3a e1 0d 7c dd 2a dd a4  76 3a ea 78 72 25 3a e7  |:..|.*..v:.xr%:.|
00029020  43 69 25 3c 3e 30 8c 4d  25 21 30 3d 43 69 25 3a  |Ci%<>0.M%!0=Ci%:|
00029030  c8 99 26 34 30 30 63 33  2c 2c 4d 25 0d 7c de 86  |..&400c3,,M%.|..|
00029040  43 69 25 3d a4 5a 79 28  22 22 29 3a 4d 25 21 30  |Ci%=.Zy(""):M%!0|
00029050  3d 73 6c 25 3a c8 99 26  34 30 30 63 62 2c 2c 4d  |=sl%:..&400cb,,M|
00029060  25 3a 5f 6b 25 3d 4d 25  21 31 32 2d 4d 25 21 34  |%:_k%=M%!12-M%!4|
00029070  3a c8 99 26 34 30 30 64  33 2c 2c 4d 25 3a 5a 25  |:..&400d3,,M%:Z%|
00029080  21 30 3d 32 30 3a 5a 25  21 31 32 3d 30 3a c8 99  |!0=20:Z%!12=0:..|
00029090  26 34 30 30 65 37 2c 31  39 2c 5a 25 2c 4d 25 21  |&400e7,19,Z%,M%!|
000290a0  30 b8 2c 2c 78 69 25 3a  78 72 25 3d 28 78 69 25  |0.,,xi%:xr%=(xi%|
000290b0  3c 3e 57 5a 25 29 3a e7  69 5f 25 3d b9 78 72 25  |<>WZ%):.i_%=.xr%|
000290c0  3d b9 0d 7c df 23 3d a4  6f 28 43 69 25 2c 30 2c  |=..|.#=.o(Ci%,0,|
000290d0  5f 6b 25 2c a3 2c 22 4f  43 52 2e 2e 2e 22 2c a3  |_k%,.,"OCR...",.|
000290e0  2c 78 72 25 29 0d 7c e0  7b dd f2 47 4a 28 57 6c  |,xr%).|.{..GJ(Wl|
000290f0  25 2c 70 41 25 2c 48 4f  25 2c 79 25 2c 68 25 29  |%,pA%,HO%,y%,h%)|
00029100  3a 5a 25 21 30 3d 57 6c  25 3a 5a 25 21 34 3d 79  |:Z%!0=Wl%:Z%!4=y|
00029110  25 3a 5a 25 21 38 3d 68  25 2d 34 32 2a 70 41 25  |%:Z%!8=h%-42*pA%|
00029120  3a 5a 25 21 31 32 3d 79  25 2b 48 4f 25 3a 5a 25  |:Z%!12=y%+HO%:Z%|
00029130  21 31 36 3d 68 25 2b 32  3a 5a 25 21 32 30 3d 30  |!16=h%+2:Z%!20=0|
00029140  3a 5a 25 21 32 34 3d 30  3a 5a 25 21 32 38 3d 2d  |:Z%!24=0:Z%!28=-|
00029150  31 3a c8 99 26 34 30 30  63 35 2c 2c 5a 25 3a e1  |1:..&400c5,,Z%:.|
00029160  0d 7c e1 41 dd f2 69 79  28 57 6c 25 2c 49 25 29  |.|.A..iy(Wl%,I%)|
00029170  3a 5a 25 21 30 3d 57 6c  25 3a 5a 25 21 34 3d 49  |:Z%!0=Wl%:Z%!4=I|
00029180  25 2a 33 3a c8 99 26 34  30 30 63 65 2c 2c 5a 25  |%*3:..&400ce,,Z%|
00029190  3a e7 5a 25 21 32 34 80  28 31 3c 3c 32 31 29 8c  |:.Z%!24.(1<<21).|
000291a0  e1 0d 7c e2 3c 5a 25 21  30 3d 57 6c 25 3a 5a 25  |..|.<Z%!0=Wl%:Z%|
000291b0  21 34 3d 49 25 2a 33 3a  5a 25 21 38 3d 31 3c 3c  |!4=I%*3:Z%!8=1<<|
000291c0  32 31 3a 5a 25 21 31 32  3d 31 3c 3c 32 31 3a c8  |21:Z%!12=1<<21:.|
000291d0  99 26 34 30 30 63 64 2c  2c 5a 25 3a e1 0d 7c e3  |.&400cd,,Z%:..|.|
000291e0  45 dd f2 75 79 28 57 6c  25 2c 49 25 29 3a 5a 25  |E..uy(Wl%,I%):Z%|
000291f0  21 30 3d 57 6c 25 3a 5a  25 21 34 3d 49 25 2a 33  |!0=Wl%:Z%!4=I%*3|
00029200  3a c8 99 26 34 30 30 63  65 2c 2c 5a 25 3a e7 28  |:..&400ce,,Z%:.(|
00029210  5a 25 21 32 34 80 28 31  3c 3c 32 31 29 29 3d 30  |Z%!24.(1<<21))=0|
00029220  8c e1 0d 7c e4 38 5a 25  21 30 3d 57 6c 25 3a 5a  |...|.8Z%!0=Wl%:Z|
00029230  25 21 34 3d 49 25 2a 33  3a 5a 25 21 38 3d 31 3c  |%!4=I%*3:Z%!8=1<|
00029240  3c 32 31 3a 5a 25 21 31  32 3d 30 3a c8 99 26 34  |<21:Z%!12=0:..&4|
00029250  30 30 63 64 2c 2c 5a 25  3a e1 0d 7c e5 0e dd f2  |00cd,,Z%:..|....|
00029260  64 6c 3a c8 8e 59 25 ca  0d 7c e6 29 c9 43 69 25  |dl:..Y%..|.).Ci%|
00029270  3a e7 6f 6e 25 3d 59 25  80 5f 42 25 3c 3e 28 49  |:.on%=Y%._B%<>(I|
00029280  25 81 33 29 8c f2 75 79  28 6f 6e 25 2c 5f 42 25  |%.3)..uy(on%,_B%|
00029290  29 0d 7c e7 0b e7 49 25  3d 2d 31 e1 0d 7c e8 20  |).|...I%=-1..|. |
000292a0  6f 6e 25 3d 59 25 3a 5f  42 25 3d 49 25 81 33 3a  |on%=Y%:_B%=I%.3:|
000292b0  f2 69 79 28 59 25 2c 49  25 81 33 29 0d 7c e9 0c  |.iy(Y%,I%.3).|..|
000292c0  7f 3a c8 8e 6f 6e 25 ca  0d 7c ea 23 c9 43 69 25  |.:..on%..|.#.Ci%|
000292d0  3a f2 75 79 28 6f 6e 25  2c 5f 42 25 29 3a 6f 6e  |:.uy(on%,_B%):on|
000292e0  25 3d 2d 31 3a 5f 42 25  3d 2d 31 0d 7c eb 05 cb  |%=-1:_B%=-1.|...|
000292f0  0d 7c ec 07 cb 3a e1 0d  7c ed 42 dd f2 67 75 28  |.|...:..|.B..gu(|
00029300  57 6c 25 2c 49 25 29 3a  f2 75 79 28 57 6c 25 2c  |Wl%,I%):.uy(Wl%,|
00029310  49 25 29 3a f2 69 79 28  57 6c 25 2c 49 25 29 3a  |I%):.iy(Wl%,I%):|
00029320  f2 75 79 28 57 6c 25 2c  49 25 29 3a f2 69 79 28  |.uy(Wl%,I%):.iy(|
00029330  57 6c 25 2c 49 25 29 3a  e1 0d 7c ee 4d dd f2 47  |Wl%,I%):..|.M..G|
00029340  6c 3a 4d 25 21 30 3d 73  6c 25 3a c8 99 26 34 30  |l:M%!0=sl%:..&40|
00029350  30 63 62 2c 2c 4d 25 3a  e7 4d 25 21 34 3c 3e 62  |0cb,,M%:.M%!4<>b|
00029360  72 25 84 4d 25 21 38 3c  3e 79 72 25 f2 47 4a 28  |r%.M%!8<>yr%.GJ(|
00029370  43 69 25 2c 31 2c 5f 6b  25 2c 4d 25 21 34 2c 4d  |Ci%,1,_k%,M%!4,M|
00029380  25 21 38 2d 34 29 0d 7c  ef 17 62 72 25 3d 4d 25  |%!8-4).|..br%=M%|
00029390  21 34 3a 79 72 25 3d 4d  25 21 38 3a e1 0d 7c f0  |!4:yr%=M%!8:..|.|
000293a0  18 dd a4 71 28 59 25 29  3a e7 a4 53 28 59 25 29  |...q(Y%):..S(Y%)|
000293b0  3d a3 8c 3d a3 0d 7c f1  13 e7 a4 73 28 59 25 29  |=..=..|....s(Y%)|
000293c0  3c 3e 4c 79 24 8c 3d a3  0d 7c f2 40 5a 25 21 30  |<>Ly$.=..|.@Z%!0|
000293d0  3d 59 25 3a c8 99 26 34  30 30 63 62 2c 2c 5a 25  |=Y%:..&400cb,,Z%|
000293e0  3a 73 25 3d 5a 25 21 31  32 2d 5a 25 21 34 3a 76  |:s%=Z%!12-Z%!4:v|
000293f0  25 3d 5a 25 21 31 36 2d  5a 25 21 38 3a e7 4d 5a  |%=Z%!16-Z%!8:.MZ|
00029400  25 3c 3e 76 25 8c 3d a3  0d 7c f3 06 3d b9 0d 7c  |%<>v%.=..|..=..||
00029410  f4 34 dd f2 53 28 4d 25  21 30 2c 4d 25 21 34 2c  |.4..S(M%!0,M%!4,|
00029420  76 4a 25 29 3a ea 77 4f  25 2c 78 41 25 2c 65 72  |vJ%):.wO%,xA%,er|
00029430  25 3a e7 76 4a 25 8c 76  4a 25 3d 31 8b 76 4a 25  |%:.vJ%.vJ%=1.vJ%|
00029440  3d 30 0d 7c f5 2e c8 99  26 34 30 30 63 65 2c 2c  |=0.|....&400ce,,|
00029450  4d 25 3a e7 28 4d 25 21  32 34 80 28 31 3c 3c 32  |M%:.(M%!24.(1<<2|
00029460  31 29 29 3d 76 4a 25 2a  28 31 3c 3c 32 31 29 e1  |1))=vJ%*(1<<21).|
00029470  0d 7c f6 5e 65 72 25 3d  4d 25 21 32 34 80 28 31  |.|.^er%=M%!24.(1|
00029480  35 2a 28 31 3c 3c 31 36  29 29 3a 78 41 25 3d 4d  |5*(1<<16)):xA%=M|
00029490  25 21 34 3a 4d 25 21 38  3d 76 4a 25 2a 28 31 3c  |%!4:M%!8=vJ%*(1<|
000294a0  3c 32 31 29 3a 4d 25 21  31 32 3d 28 31 3c 3c 32  |<21):M%!12=(1<<2|
000294b0  31 29 3a c8 99 26 34 30  30 63 64 2c 2c 4d 25 3a  |1):..&400cd,,M%:|
000294c0  e7 76 4a 25 3d 31 80 65  72 25 3c 3e 30 8c 0d 7c  |.vJ%=1.er%<>0..||
000294d0  f7 47 c8 99 26 34 30 30  64 36 2c 4d 25 21 30 2c  |.G..&400d6,M%!0,|
000294e0  66 6b 25 2c 31 35 2a 28  31 3c 3c 31 36 29 2c 65  |fk%,15*(1<<16),e|
000294f0  72 25 3a 77 4f 25 3d 30  3a c8 95 66 6b 25 21 77  |r%:wO%=0:..fk%!w|
00029500  4f 25 3c 3e 2d 31 3a e7  66 6b 25 21 77 4f 25 3c  |O%<>-1:.fk%!wO%<|
00029510  3e 78 41 25 8c 0d 7c f8  40 4d 60 25 21 30 3d 4d  |>xA%..|.@M`%!0=M|
00029520  25 21 30 3a 4d 60 25 21  34 3d 66 6b 25 21 77 4f  |%!0:M`%!4=fk%!wO|
00029530  25 3a c8 99 26 34 30 30  63 65 2c 2c 4d 60 25 3a  |%:..&400ce,,M`%:|
00029540  e7 28 4d 60 25 21 32 34  80 28 31 3c 3c 32 31 29  |.(M`%!24.(1<<21)|
00029550  29 3c 3e 30 8c 0d 7c f9  28 4d 60 25 21 38 3d 30  |)<>0..|.(M`%!8=0|
00029560  3a 4d 60 25 21 31 32 3d  28 31 3c 3c 32 31 29 3a  |:M`%!12=(1<<21):|
00029570  c8 99 26 34 30 30 63 64  2c 2c 4d 60 25 0d 7c fa  |..&400cd,,M`%.|.|
00029580  05 cd 0d 7c fb 0e cd 3a  77 4f 25 2b 3d 34 3a ce  |...|...:wO%+=4:.|
00029590  0d 7c fc 07 cd 3a e1 0d  7c fd 35 dd a4 5a 28 4d  |.|...:..|.5..Z(M|
000295a0  25 21 30 2c 4d 25 21 34  29 3a c8 99 26 34 30 30  |%!0,M%!4):..&400|
000295b0  63 65 2c 2c 4d 25 3a e7  28 4d 25 21 32 34 80 28  |ce,,M%:.(M%!24.(|
000295c0  31 3c 3c 32 31 29 29 3d  30 8c 3d a3 0d 7c fe 06  |1<<21))=0.=..|..|
000295d0  3d b9 0d 7c ff 34 dd a4  53 28 59 25 29 3a ea 77  |=..|.4..S(Y%):.w|
000295e0  79 25 3a 4d 25 21 30 3d  59 25 3a c8 99 26 36 30  |y%:M%!0=Y%:..&60|
000295f0  30 63 62 2c 2c 4d 25 b8  2c 77 79 25 3a e7 77 79  |0cb,,M%.,wy%:.wy|
00029600  25 80 31 8c 3d a3 0d 7d  00 19 e7 28 4d 25 21 33  |%.1.=..}...(M%!3|
00029610  32 80 28 31 3c 3c 31 36  29 29 3d 30 8c 3d a3 0d  |2.(1<<16))=0.=..|
00029620  7d 01 06 3d b9 0d 7d 02  34 dd f2 75 5f 28 59 25  |}..=..}.4..u_(Y%|
00029630  2c 51 24 29 3a 4d 25 21  30 3d 59 25 3a c8 99 26  |,Q$):M%!0=Y%:..&|
00029640  34 30 30 63 63 2c 2c 4d  25 3a e7 28 4d 25 21 36  |400cc,,M%:.(M%!6|
00029650  30 80 32 35 36 29 3d a3  e1 0d 7d 03 24 24 28 4d  |0.256)=...}.$$(M|
00029660  25 21 37 36 29 3d 51 24  2b bd 30 3a e7 28 4d 25  |%!76)=Q$+.0:.(M%|
00029670  21 33 32 80 36 35 35 33  36 29 3d a3 e1 0d 7d 04  |!32.65536)=...}.|
00029680  2b c8 99 26 34 30 30 64  31 2c 2d 31 2c 4d 25 21  |+..&400d1,-1,M%!|
00029690  34 2c 4d 25 21 31 36 2c  4d 25 21 31 32 2c 4d 25  |4,M%!16,M%!12,M%|
000296a0  21 31 36 2b 33 36 3a e1  0d 7d 05 65 dd a4 6a 3a  |!16+36:..}.e..j:|
000296b0  70 42 25 3d a4 79 3a e7  70 42 25 3d 2d 31 8c f2  |pB%=.y:.pB%=-1..|
000296c0  43 28 22 4f 70 74 69 63  61 6c 22 2c 22 54 68 65  |C("Optical","The|
000296d0  72 65 20 69 73 20 6e 6f  74 20 65 6e 6f 75 67 68  |re is not enough|
000296e0  20 6d 65 6d 6f 72 79 20  61 76 61 69 6c 61 62 6c  | memory availabl|
000296f0  65 20 74 6f 20 6c 6f 61  64 20 4f 70 74 69 63 61  |e to load Optica|
00029700  6c 22 29 3a 6d 61 25 3d  b9 3a 3d 2d 31 0d 7d 06  |l"):ma%=.:=-1.}.|
00029710  58 e7 70 42 25 3d 2d 32  8c f2 43 28 22 4f 70 74  |X.pB%=-2..C("Opt|
00029720  69 63 61 6c 22 2c 22 4e  6f 74 20 61 6c 6c 20 74  |ical","Not all t|
00029730  68 65 20 52 49 53 43 20  4f 53 20 66 6f 6e 74 73  |he RISC OS fonts|
00029740  20 63 6f 75 6c 64 20 62  65 20 69 6e 63 6c 75 64  | could be includ|
00029750  65 64 20 69 6e 20 74 68  65 20 66 6f 6e 74 20 6d  |ed in the font m|
00029760  65 6e 75 22 29 0d 7d 07  08 3d 70 42 25 0d 7d 08  |enu").}..=pB%.}.|
00029770  62 dd a4 79 3a ea 44 6f  25 2c 76 5f 25 2c 61 24  |b..y:.Do%,v_%,a$|
00029780  2c 56 24 2c 44 24 2c 6c  24 2c 72 25 2c 55 79 25  |,V$,D$,l$,r%,Uy%|
00029790  2c 77 60 25 2c 48 69 25  3a 44 6f 25 3d 2d 31 3a  |,w`%,Hi%:Do%=-1:|
000297a0  76 5f 25 3d 30 3a 6c 24  3d 22 22 3a 44 75 25 3d  |v_%=0:l$="":Du%=|
000297b0  30 3a 78 61 25 3d 30 3a  4b 25 3d a4 41 28 32 38  |0:xa%=0:K%=.A(28|
000297c0  2c 54 69 25 29 3a e7 4b  25 3d a3 8c 3d 2d 31 0d  |,Ti%):.K%=..=-1.|
000297d0  7d 09 92 72 25 3d 41 25  28 54 69 25 29 3a 24 72  |}..r%=A%(Ti%):$r|
000297e0  25 3d 22 46 6f 6e 74 20  6c 69 73 74 22 2b bd 30  |%="Font list"+.0|
000297f0  3a 72 25 3f 31 32 3d 37  3a 72 25 3f 31 33 3d 32  |:r%?12=7:r%?13=2|
00029800  3a 72 25 3f 31 34 3d 37  3a 72 25 3f 31 35 3d 30  |:r%?14=7:r%?15=0|
00029810  3a 72 25 21 32 30 3d 34  34 3a 72 25 21 32 34 3d  |:r%!20=44:r%!24=|
00029820  30 3a 55 79 25 3d 30 3a  48 69 25 3d 30 3a 59 6c  |0:Uy%=0:Hi%=0:Yl|
00029830  25 3d 30 3a c8 95 76 5f  25 3c 3e 2d 31 3a c8 99  |%=0:..v_%<>-1:..|
00029840  26 34 30 30 39 31 2c 2c  4d 25 2c 76 5f 25 2c 2d  |&40091,,M%,v_%,-|
00029850  31 b8 2c 2c 76 5f 25 3a  e7 76 5f 25 3c 3e 2d 31  |1.,,v_%:.v_%<>-1|
00029860  8c 0d 7d 0a 42 61 24 3d  24 4d 25 3a 56 24 3d c0  |..}.Ba$=$M%:V$=.|
00029870  61 24 2c a7 61 24 2c 22  2e 22 29 2d 31 29 3a e7  |a$,.a$,".")-1):.|
00029880  a7 61 24 2c 22 2e 22 29  3d 30 8c 44 24 3d 22 22  |.a$,".")=0.D$=""|
00029890  8b 44 24 3d c1 61 24 2c  a7 61 24 2c 22 2e 22 29  |.D$=.a$,.a$,".")|
000298a0  2b 31 29 0d 7d 0b 18 e7  a9 28 56 24 29 3e 55 79  |+1).}....(V$)>Uy|
000298b0  25 8c 55 79 25 3d a9 28  56 24 29 0d 7d 0c 18 e7  |%.Uy%=.(V$).}...|
000298c0  a9 28 44 24 29 3e 77 60  25 8c 77 60 25 3d a9 28  |.(D$)>w`%.w`%=.(|
000298d0  44 24 29 0d 7d 0d 0b e7  56 24 3d 6c 24 8c 0d 7d  |D$).}...V$=l$..}|
000298e0  0e 25 e7 44 75 25 3d 30  80 48 69 25 2b a9 28 22  |.%.Du%=0.Hi%+.("|
000298f0  28 52 65 67 75 6c 61 72  29 22 2b bd 30 29 3c 50  |(Regular)"+.0)<P|
00029900  6b 25 8c 0d 7d 0f fd 44  6f 25 2b 3d 31 3a 72 25  |k%..}..Do%+=1:r%|
00029910  21 34 3d 67 69 25 2b 59  6c 25 3a 44 75 25 3d 31  |!4=gi%+Yl%:Du%=1|
00029920  3a 72 25 3d 67 69 25 2b  59 6c 25 3a 24 72 25 3d  |:r%=gi%+Yl%:$r%=|
00029930  56 24 2b bd 30 3a 72 25  3f 31 32 3d 37 3a 72 25  |V$+.0:r%?12=7:r%|
00029940  3f 31 33 3d 32 3a 72 25  3f 31 34 3d 37 3a 72 25  |?13=2:r%?14=7:r%|
00029950  3f 31 35 3d 30 3a 72 25  21 32 30 3d 34 34 3a 72  |?15=0:r%!20=44:r|
00029960  25 21 32 34 3d 30 3a 77  60 25 3d a9 28 22 28 52  |%!24=0:w`%=.("(R|
00029970  65 67 75 6c 61 72 29 22  29 3a 72 25 3d 67 69 25  |egular)"):r%=gi%|
00029980  2b 59 6c 25 2b 32 38 2b  28 44 75 25 2d 31 29 2a  |+Yl%+28+(Du%-1)*|
00029990  32 34 3a 72 25 21 30 3d  30 3a 72 25 21 34 3d 2d  |24:r%!0=0:r%!4=-|
000299a0  31 3a 72 25 21 38 3d 26  37 30 30 30 31 32 31 3a  |1:r%!8=&7000121:|
000299b0  72 25 21 31 32 3d 52 42  25 2b 48 69 25 3a 72 25  |r%!12=RB%+Hi%:r%|
000299c0  21 31 36 3d 2d 31 3a 72  25 21 32 30 3d 34 30 3a  |!16=-1:r%!20=40:|
000299d0  24 28 52 42 25 2b 48 69  25 29 3d 22 28 52 65 67  |$(RB%+Hi%)="(Reg|
000299e0  75 6c 61 72 29 22 2b bd  30 3a 48 69 25 2b 3d a9  |ular)"+.0:Hi%+=.|
000299f0  28 22 28 52 65 67 75 6c  61 72 29 22 2b bd 30 29  |("(Regular)"+.0)|
00029a00  0d 7d 10 81 cd 3a 44 75  25 2b 3d 31 3a 72 25 3d  |.}...:Du%+=1:r%=|
00029a10  67 69 25 2b 59 6c 25 2b  32 38 2b 28 44 75 25 2d  |gi%+Yl%+28+(Du%-|
00029a20  31 29 2a 32 34 3a 72 25  21 30 3d 30 3a 72 25 21  |1)*24:r%!0=0:r%!|
00029a30  34 3d 2d 31 3a 72 25 21  38 3d 26 37 30 30 30 31  |4=-1:r%!8=&70001|
00029a40  32 31 3a 72 25 21 31 32  3d 52 42 25 2b 48 69 25  |21:r%!12=RB%+Hi%|
00029a50  3a 72 25 21 31 36 3d 2d  31 3a 72 25 21 32 30 3d  |:r%!16=-1:r%!20=|
00029a60  34 30 3a 24 28 52 42 25  2b 48 69 25 29 3d 44 24  |40:$(RB%+Hi%)=D$|
00029a70  2b bd 30 3a 48 69 25 2b  3d a9 28 44 24 2b bd 30  |+.0:Hi%+=.(D$+.0|
00029a80  29 0d 7d 11 22 cc 3a 6c  24 3d 56 24 3a e7 44 6f  |).}.".:l$=V$:.Do|
00029a90  25 3e 3d 61 6f 25 2d 31  80 44 24 3c 3e 22 22 8c  |%>=ao%-1.D$<>"".|
00029aa0  3d 2d 32 0d 7d 12 0b e7  44 75 25 3e 30 8c 0d 7d  |=-2.}...Du%>0..}|
00029ab0  13 44 72 25 3d 67 69 25  2b 59 6c 25 3a 72 25 21  |.Dr%=gi%+Yl%:r%!|
00029ac0  31 36 3d 31 36 2a 28 77  60 25 2b 31 29 3a 72 25  |16=16*(w`%+1):r%|
00029ad0  3d 67 69 25 2b 59 6c 25  2b 32 38 2b 28 44 75 25  |=gi%+Yl%+28+(Du%|
00029ae0  2d 31 29 2a 32 34 3a 21  72 25 2b 3d 28 31 3c 3c  |-1)*24:!r%+=(1<<|
00029af0  37 29 0d 7d 14 1b cd 3a  e7 44 75 25 3e 30 8c 59  |7).}...:.Du%>0.Y|
00029b00  6c 25 2b 3d 32 38 2b 32  34 2a 44 75 25 0d 7d 15  |l%+=28+24*Du%.}.|
00029b10  15 e7 59 6c 25 3e 61 6f  25 2d 31 35 37 36 8c 3d  |..Yl%>ao%-1576.=|
00029b20  2d 32 0d 7d 16 29 78 61  25 2b 3d 31 3a 4b 25 3d  |-2.}.)xa%+=1:K%=|
00029b30  a4 41 28 32 38 2b 78 61  25 2a 32 34 2c 54 69 25  |.A(28+xa%*24,Ti%|
00029b40  29 3a e7 4b 25 3d a3 8c  3d 2d 31 0d 7d 17 6d 72  |):.K%=..=-1.}.mr|
00029b50  25 3d 41 25 28 54 69 25  29 2b 32 38 2b 28 78 61  |%=A%(Ti%)+28+(xa|
00029b60  25 2d 31 29 2a 32 34 3a  72 25 21 30 3d 30 3a 72  |%-1)*24:r%!0=0:r|
00029b70  25 21 34 3d 2d 31 3a 72  25 21 38 3d 26 37 30 30  |%!4=-1:r%!8=&700|
00029b80  30 30 32 31 3a 56 24 3d  c0 56 24 2c 31 31 29 3a  |0021:V$=.V$,11):|
00029b90  24 28 72 25 2b 31 32 29  3d 56 24 2b bd 30 3a e7  |$(r%+12)=V$+.0:.|
00029ba0  44 24 3c 3e 22 22 80 48  69 25 2b a9 28 44 24 2b  |D$<>"".Hi%+.(D$+|
00029bb0  bd 30 29 3c 50 6b 25 8c  0d 7d 18 e2 44 6f 25 2b  |.0)<Pk%..}..Do%+|
00029bc0  3d 31 3a 72 25 21 34 3d  67 69 25 2b 59 6c 25 3a  |=1:r%!4=gi%+Yl%:|
00029bd0  44 75 25 3d 31 3a 72 25  3d 67 69 25 2b 59 6c 25  |Du%=1:r%=gi%+Yl%|
00029be0  3a 24 72 25 3d 56 24 2b  bd 30 3a 72 25 3f 31 32  |:$r%=V$+.0:r%?12|
00029bf0  3d 37 3a 72 25 3f 31 33  3d 32 3a 72 25 3f 31 34  |=7:r%?13=2:r%?14|
00029c00  3d 37 3a 72 25 3f 31 35  3d 30 3a 72 25 21 32 30  |=7:r%?15=0:r%!20|
00029c10  3d 34 34 3a 72 25 21 32  34 3d 30 3a 77 60 25 3d  |=44:r%!24=0:w`%=|
00029c20  a9 28 44 24 29 3a 72 25  3d 67 69 25 2b 59 6c 25  |.(D$):r%=gi%+Yl%|
00029c30  2b 32 38 2b 28 44 75 25  2d 31 29 2a 32 34 3a 72  |+28+(Du%-1)*24:r|
00029c40  25 21 30 3d 30 3a 72 25  21 34 3d 2d 31 3a 72 25  |%!0=0:r%!4=-1:r%|
00029c50  21 38 3d 26 37 30 30 30  31 32 31 3a 72 25 21 31  |!8=&7000121:r%!1|
00029c60  32 3d 52 42 25 2b 48 69  25 3a 72 25 21 31 36 3d  |2=RB%+Hi%:r%!16=|
00029c70  2d 31 3a 72 25 21 32 30  3d 34 30 3a 24 28 52 42  |-1:r%!20=40:$(RB|
00029c80  25 2b 48 69 25 29 3d 44  24 2b bd 30 3a 48 69 25  |%+Hi%)=D$+.0:Hi%|
00029c90  2b 3d a9 28 44 24 2b bd  30 29 0d 7d 19 0b cc 3a  |+=.(D$+.0).}...:|
00029ca0  44 75 25 3d 30 0d 7d 1a  05 cd 0d 7d 1b 05 cd 0d  |Du%=0.}....}....|
00029cb0  7d 1c 0f cd 3a ce 3a e7  78 61 25 3e 30 8c 0d 7d  |}...:.:.xa%>0..}|
00029cc0  1d 4c 72 25 3d 41 25 28  54 69 25 29 3a 72 25 21  |.Lr%=A%(Ti%):r%!|
00029cd0  31 36 3d 31 36 2a 28 55  79 25 2b 31 29 3a 72 25  |16=16*(Uy%+1):r%|
00029ce0  3d 41 25 28 54 69 25 29  2b 32 38 2b 28 78 61 25  |=A%(Ti%)+28+(xa%|
00029cf0  2d 31 29 2a 32 34 3a 21  72 25 2b 3d 28 31 3c 3c  |-1)*24:!r%+=(1<<|
00029d00  37 29 3a e7 44 75 25 3e  30 8c 0d 7d 1e 44 72 25  |7):.Du%>0..}.Dr%|
00029d10  3d 67 69 25 2b 59 6c 25  3a 72 25 21 31 36 3d 31  |=gi%+Yl%:r%!16=1|
00029d20  36 2a 28 77 60 25 2b 31  29 3a 72 25 3d 67 69 25  |6*(w`%+1):r%=gi%|
00029d30  2b 59 6c 25 2b 32 38 2b  28 44 75 25 2d 31 29 2a  |+Yl%+28+(Du%-1)*|
00029d40  32 34 3a 21 72 25 2b 3d  28 31 3c 3c 37 29 0d 7d  |24:!r%+=(1<<7).}|
00029d50  1f 05 cd 0d 7d 20 2b cc  3a 78 61 25 2b 3d 31 3a  |....} +.:xa%+=1:|
00029d60  4b 25 3d a4 41 28 32 38  2b 78 61 25 2a 32 34 2c  |K%=.A(28+xa%*24,|
00029d70  54 69 25 29 3a e7 4b 25  3d a3 8c 3d 2d 31 0d 7d  |Ti%):.K%=..=-1.}|
00029d80  21 6f 72 25 3d 41 25 28  54 69 25 29 3a 72 25 21  |!or%=A%(Ti%):r%!|
00029d90  31 36 3d 31 36 2a 35 3a  72 25 3d 41 25 28 54 69  |16=16*5:r%=A%(Ti|
00029da0  25 29 2b 32 38 2b 28 78  61 25 2d 31 29 2a 32 34  |%)+28+(xa%-1)*24|
00029db0  3a 72 25 21 30 3d 28 31  3c 3c 37 29 3a 72 25 21  |:r%!0=(1<<7):r%!|
00029dc0  34 3d 2d 31 3a 72 25 21  38 3d 26 37 30 30 30 30  |4=-1:r%!8=&70000|
00029dd0  32 31 2b 28 31 3c 3c 32  32 29 3a 24 28 72 25 2b  |21+(1<<22):$(r%+|
00029de0  31 32 29 3d 22 4e 6f 6e  65 22 2b bd 30 0d 7d 22  |12)="None"+.0.}"|
00029df0  0e cd 3a 3d 41 25 28 54  69 25 29 0d 7d 23 18 dd  |..:=A%(Ti%).}#..|
00029e00  f2 59 28 4d 24 29 3a ea  52 25 2c 56 25 3a c8 8e  |.Y(M$):.R%,V%:..|
00029e10  4d 24 ca 0d 7d 24 1b c9  22 70 74 72 5f 6d 6f 76  |M$..}$.."ptr_mov|
00029e20  65 22 3a 79 25 3d 31 30  3a 68 25 3d 31 38 0d 7d  |e":y%=10:h%=18.}|
00029e30  25 1d c9 22 70 74 72 5f  61 64 6a 75 73 74 22 3a  |%.."ptr_adjust":|
00029e40  79 25 3d 31 32 3a 68 25  3d 31 32 0d 7d 26 1d c9  |y%=12:h%=12.}&..|
00029e50  22 70 74 72 5f 64 65 6c  65 74 65 22 3a 79 25 3d  |"ptr_delete":y%=|
00029e60  31 32 3a 68 25 3d 31 32  0d 7d 27 49 c9 22 70 74  |12:h%=12.}'I."pt|
00029e70  72 5f 72 6f 74 61 74 65  22 3a c8 99 35 33 2c 2d  |r_rotate":..53,-|
00029e80  31 2c 34 b8 2c 2c 52 25  3a c8 99 35 33 2c 2d 31  |1,4.,,R%:..53,-1|
00029e90  2c 35 b8 2c 2c 56 25 3a  52 25 3d 31 3c 3c 52 25  |,5.,,V%:R%=1<<R%|
00029ea0  3a 56 25 3d 31 3c 3c 56  25 3a e7 56 25 3d 52 25  |:V%=1<<V%:.V%=R%|
00029eb0  8c 0d 7d 28 1e 79 25 3d  35 3a 68 25 3d 36 3a 4d  |..}(.y%=5:h%=6:M|
00029ec0  24 3d 22 70 74 72 5f 72  6f 74 61 74 65 32 22 0d  |$="ptr_rotate2".|
00029ed0  7d 29 20 cc 3a 79 25 3d  35 3a 68 25 3d 33 3a 4d  |}) .:y%=5:h%=3:M|
00029ee0  24 3d 22 70 74 72 5f 72  6f 74 61 74 65 31 22 0d  |$="ptr_rotate1".|
00029ef0  7d 2a 05 cd 0d 7d 2b 0e  7f 79 25 3d 30 3a 68 25  |}*...}+..y%=0:h%|
00029f00  3d 30 0d 7d 2c 1c cb 3a  6c 6b 25 21 30 3d 26 33  |=0.},..:lk%!0=&3|
00029f10  30 32 30 31 30 30 3a e7  4d 24 3d 22 22 8c 0d 7d  |020100:.M$=""..}|
00029f20  2d 2a c8 99 26 34 30 30  65 39 2c 33 36 2c 2c 22  |-*..&400e9,36,,"|
00029f30  70 74 72 5f 64 65 66 61  75 6c 74 22 2c 32 2c 30  |ptr_default",2,0|
00029f40  2c 30 2c 30 2c 6c 6b 25  0d 7d 2e 26 cc 3a c8 99  |,0,0,lk%.}.&.:..|
00029f50  34 36 2c 32 35 36 2b 33  36 2c 4b 5f 25 2c 4d 24  |46,256+36,K_%,M$|
00029f60  2c 32 2c 79 25 2c 68 25  2c 30 2c 6c 6b 25 0d 7d  |,2,y%,h%,0,lk%.}|
00029f70  2f 07 cd 3a e1 0d 7d 30  27 dd f2 50 28 4d 25 21  |/..:..}0'..P(M%!|
00029f80  30 2c 4d 25 21 34 2c 76  4a 25 29 3a e7 76 4a 25  |0,M%!4,vJ%):.vJ%|
00029f90  8c 76 4a 25 3d 31 8b 76  4a 25 3d 30 0d 7d 31 2e  |.vJ%=1.vJ%=0.}1.|
00029fa0  c8 99 26 34 30 30 63 65  2c 2c 4d 25 3a e7 28 4d  |..&400ce,,M%:.(M|
00029fb0  25 21 32 34 80 28 31 3c  3c 32 32 29 29 3d 76 4a  |%!24.(1<<22))=vJ|
00029fc0  25 2a 28 31 3c 3c 32 32  29 e1 0d 7d 32 31 4d 25  |%*(1<<22)..}21M%|
00029fd0  21 38 3d 76 4a 25 2a 28  31 3c 3c 32 32 29 3a 4d  |!8=vJ%*(1<<22):M|
00029fe0  25 21 31 32 3d 28 31 3c  3c 32 32 29 3a c8 99 26  |%!12=(1<<22):..&|
00029ff0  34 30 30 63 64 2c 2c 4d  25 3a e1 0d 7d 33 2e dd  |400cd,,M%:..}3..|
0002a000  a4 61 28 4d 25 21 30 2c  4d 25 21 34 29 3a c8 99  |.a(M%!0,M%!4):..|
0002a010  26 34 30 30 63 65 2c 2c  4d 25 3a 3d 4d 25 21 32  |&400ce,,M%:=M%!2|
0002a020  34 80 28 31 3c 3c 32 32  29 0d 7d 34 f5 dd f2 6d  |4.(1<<22).}4...m|
0002a030  3a ea 73 79 25 2c 65 79  25 2c 52 25 2c 56 25 3a  |:.sy%,ey%,R%,V%:|
0002a040  c8 99 35 33 2c 2d 31 2c  31 31 b8 2c 2c 73 79 25  |..53,-1,11.,,sy%|
0002a050  3a c8 99 35 33 2c 2d 31  2c 31 32 b8 2c 2c 65 79  |:..53,-1,12.,,ey|
0002a060  25 3a c8 99 35 33 2c 2d  31 2c 34 b8 2c 2c 52 25  |%:..53,-1,4.,,R%|
0002a070  3a c8 99 35 33 2c 2d 31  2c 35 b8 2c 2c 56 25 3a  |:..53,-1,5.,,V%:|
0002a080  52 25 3d 31 3c 3c 52 25  3a 56 25 3d 31 3c 3c 56  |R%=1<<R%:V%=1<<V|
0002a090  25 3a 73 79 25 3d 73 79  25 2a 52 25 3a 65 79 25  |%:sy%=sy%*R%:ey%|
0002a0a0  3d 65 79 25 2a 56 25 3a  5a 25 21 30 3d 31 3a 5a  |=ey%*V%:Z%!0=1:Z|
0002a0b0  25 21 31 3d 30 83 32 35  36 3a 5a 25 21 32 3d 30  |%!1=0.256:Z%!2=0|
0002a0c0  81 32 35 36 3a 5a 25 21  33 3d 30 83 32 35 36 3a  |.256:Z%!3=0.256:|
0002a0d0  5a 25 21 34 3d 30 81 32  35 36 3a 5a 25 21 35 3d  |Z%!4=0.256:Z%!5=|
0002a0e0  73 79 25 83 32 35 36 3a  5a 25 21 36 3d 73 79 25  |sy%.256:Z%!6=sy%|
0002a0f0  81 32 35 36 3a 5a 25 21  37 3d 65 79 25 83 32 35  |.256:Z%!7=ey%.25|
0002a100  36 3a 5a 25 21 38 3d 65  79 25 81 32 35 36 3a c8  |6:Z%!8=ey%.256:.|
0002a110  99 37 2c 32 31 2c 5a 25  3a ef 32 36 3a e1 0d 7d  |.7,21,Z%:.26:..}|
0002a120  35 a2 dd f2 6e 5f 28 4d  25 21 30 29 3a c8 99 26  |5...n_(M%!0):..&|
0002a130  34 30 30 63 62 2c 2c 4d  25 3a 5a 25 21 30 3d 31  |400cb,,M%:Z%!0=1|
0002a140  3a 5a 25 21 31 3d 4d 25  21 34 83 32 35 36 3a 5a  |:Z%!1=M%!4.256:Z|
0002a150  25 21 32 3d 4d 25 21 34  81 32 35 36 3a 5a 25 21  |%!2=M%!4.256:Z%!|
0002a160  33 3d 4d 25 21 38 83 32  35 36 3a 5a 25 21 34 3d  |3=M%!8.256:Z%!4=|
0002a170  4d 25 21 38 81 32 35 36  3a 5a 25 21 35 3d 4d 25  |M%!8.256:Z%!5=M%|
0002a180  21 31 32 83 32 35 36 3a  5a 25 21 36 3d 4d 25 21  |!12.256:Z%!6=M%!|
0002a190  31 32 81 32 35 36 3a 5a  25 21 37 3d 4d 25 21 31  |12.256:Z%!7=M%!1|
0002a1a0  36 83 32 35 36 3a 5a 25  21 38 3d 4d 25 21 31 36  |6.256:Z%!8=M%!16|
0002a1b0  81 32 35 36 3a c8 99 37  2c 32 31 2c 5a 25 3a e1  |.256:..7,21,Z%:.|
0002a1c0  0d 7d 36 36 dd f2 69 28  59 25 2c 49 25 2c 68 65  |.}66..i(Y%,I%,he|
0002a1d0  25 2c 4b 6f 25 29 3a ea  44 4a 25 3a 44 4a 25 3d  |%,Ko%):.DJ%:DJ%=|
0002a1e0  bb 28 a4 4d 28 59 25 2c  49 25 29 29 3a e7 44 4a  |.(.M(Y%,I%)):.DJ|
0002a1f0  25 3d 68 65 25 e1 0d 7d  37 21 e7 44 4a 25 2b 4b  |%=he%..}7!.DJ%+K|
0002a200  6f 25 3e 68 65 25 8c 44  4a 25 3d 68 65 25 8b 44  |o%>he%.DJ%=he%.D|
0002a210  4a 25 2b 3d 4b 6f 25 0d  7d 38 16 f2 41 28 59 25  |J%+=Ko%.}8..A(Y%|
0002a220  2c 49 25 2c c3 28 44 4a  25 29 29 3a e1 0d 7d 39  |,I%,.(DJ%)):..}9|
0002a230  36 dd f2 68 28 59 25 2c  49 25 2c 59 65 25 2c 4b  |6..h(Y%,I%,Ye%,K|
0002a240  6f 25 29 3a ea 44 4a 25  3a 44 4a 25 3d bb 28 a4  |o%):.DJ%:DJ%=.(.|
0002a250  4d 28 59 25 2c 49 25 29  29 3a e7 44 4a 25 3d 59  |M(Y%,I%)):.DJ%=Y|
0002a260  65 25 e1 0d 7d 3a 21 e7  44 4a 25 2d 4b 6f 25 3c  |e%..}:!.DJ%-Ko%<|
0002a270  59 65 25 8c 44 4a 25 3d  59 65 25 8b 44 4a 25 2d  |Ye%.DJ%=Ye%.DJ%-|
0002a280  3d 4b 6f 25 0d 7d 3b 16  f2 41 28 59 25 2c 49 25  |=Ko%.};..A(Y%,I%|
0002a290  2c c3 28 44 4a 25 29 29  3a e1 0d 7d 3c 3f dd f2  |,.(DJ%)):..}<?..|
0002a2a0  4c 79 28 59 25 2c 49 25  29 3a ea 61 79 25 3a 61  |Ly(Y%,I%):.ay%:a|
0002a2b0  79 25 3d a9 28 a4 4d 28  59 25 2c 49 25 29 29 3a  |y%=.(.M(Y%,I%)):|
0002a2c0  c8 99 26 36 30 30 64 32  2c 59 25 2c 49 25 2c 2c  |..&600d2,Y%,I%,,|
0002a2d0  2c 2d 31 2c 61 79 25 3a  e1 0d 7d 3d 32 dd f2 47  |,-1,ay%:..}=2..G|
0002a2e0  5f 28 61 75 25 29 3a ea  77 69 25 3a 77 69 25 3d  |_(au%):.wi%:wi%=|
0002a2f0  30 3a e7 28 61 75 25 21  32 38 80 28 31 3c 3c 32  |0:.(au%!28.(1<<2|
0002a300  38 29 29 8c 77 69 25 2b  3d 34 32 0d 7d 3e 7e 77  |8)).wi%+=42.}>~w|
0002a310  69 25 2b 3d 61 75 25 21  38 2d 61 75 25 21 30 3a  |i%+=au%!8-au%!0:|
0002a320  c8 99 35 33 2c 2d 31 2c  31 31 b8 2c 2c 73 79 25  |..53,-1,11.,,sy%|
0002a330  3a c8 99 35 33 2c 2d 31  2c 34 b8 2c 2c 52 25 3a  |:..53,-1,4.,,R%:|
0002a340  52 25 3d 31 3c 3c 52 25  3a 73 79 25 3d 28 73 79  |R%=1<<R%:sy%=(sy|
0002a350  25 2b 31 29 2a 52 25 3a  61 75 25 21 38 3d 28 73  |%+1)*R%:au%!8=(s|
0002a360  79 25 2d 77 69 25 29 2f  32 2b 61 75 25 21 38 2d  |y%-wi%)/2+au%!8-|
0002a370  61 75 25 21 30 3a 61 75  25 21 30 3d 28 73 79 25  |au%!0:au%!0=(sy%|
0002a380  2d 77 69 25 29 2f 32 3a  e1 0d 7d 3f 32 dd f2 5f  |-wi%)/2:..}?2.._|
0002a390  79 28 61 75 25 29 3a ea  77 69 25 3a 77 69 25 3d  |y(au%):.wi%:wi%=|
0002a3a0  30 3a e7 28 61 75 25 21  32 38 80 28 31 3c 3c 32  |0:.(au%!28.(1<<2|
0002a3b0  36 29 29 8c 77 69 25 2b  3d 34 32 0d 7d 40 81 77  |6)).wi%+=42.}@.w|
0002a3c0  69 25 2b 3d 61 75 25 21  31 32 2d 61 75 25 21 34  |i%+=au%!12-au%!4|
0002a3d0  3a c8 99 35 33 2c 2d 31  2c 31 32 b8 2c 2c 65 79  |:..53,-1,12.,,ey|
0002a3e0  25 3a c8 99 35 33 2c 2d  31 2c 35 b8 2c 2c 56 25  |%:..53,-1,5.,,V%|
0002a3f0  3a 56 25 3d 31 3c 3c 56  25 3a 65 79 25 3d 28 65  |:V%=1<<V%:ey%=(e|
0002a400  79 25 2b 31 29 2a 56 25  3a 61 75 25 21 31 32 3d  |y%+1)*V%:au%!12=|
0002a410  28 65 79 25 2d 77 69 25  29 2f 32 2b 61 75 25 21  |(ey%-wi%)/2+au%!|
0002a420  31 32 2d 61 75 25 21 34  3a 61 75 25 21 34 3d 28  |12-au%!4:au%!4=(|
0002a430  65 79 25 2d 77 69 25 29  2f 32 3a e1 0d 7d 41 fd  |ey%-wi%)/2:..}A.|
0002a440  dd f2 71 79 28 51 24 2c  4f 24 2c 56 79 24 2c 4a  |..qy(Q$,O$,Vy$,J|
0002a450  79 24 2c 50 79 24 2c 71  25 29 3a 4f 41 25 3d 71  |y$,Py$,q%):OA%=q|
0002a460  25 3a 4d 25 21 30 3d 69  4a 25 3a 4d 25 21 34 3d  |%:M%!0=iJ%:M%!4=|
0002a470  37 3a c8 99 26 34 30 30  63 34 2c 2c 4d 25 3a 4d  |7:..&400c4,,M%:M|
0002a480  25 21 30 3d 69 4a 25 3a  4d 25 21 34 3d 31 33 30  |%!0=iJ%:M%!4=130|
0002a490  3a 4d 25 21 31 32 3d 31  34 36 2b 31 36 2a a9 28  |:M%!12=146+16*.(|
0002a4a0  51 24 29 3a 4d 25 21 38  3d 2d 36 34 3a 4d 25 21  |Q$):M%!8=-64:M%!|
0002a4b0  31 36 3d 2d 32 30 3a 4d  25 21 32 30 3d 33 31 33  |16=-20:M%!20=313|
0002a4c0  2b 37 2a 28 31 3c 3c 32  34 29 2b 31 2a 28 31 3c  |+7*(1<<24)+1*(1<|
0002a4d0  3c 32 38 29 3a 4d 25 21  32 34 3d 69 5a 25 3a 4d  |<28):M%!24=iZ%:M|
0002a4e0  25 21 32 38 3d 2d 31 3a  4d 25 21 33 32 3d 34 30  |%!28=-1:M%!32=40|
0002a4f0  3a 24 69 5a 25 3d 51 24  3a c8 99 26 34 30 30 63  |:$iZ%=Q$:..&400c|
0002a500  32 2c 2c 4d 25 3a f2 41  28 69 4a 25 2c 35 2c 4f  |2,,M%:.A(iJ%,5,O|
0002a510  24 29 3a f2 41 28 69 4a  25 2c 31 2c 56 79 24 29  |$):.A(iJ%,1,Vy$)|
0002a520  3a 4d 25 21 30 3d 69 4a  25 3a 4d 25 21 34 3d 34  |:M%!0=iJ%:M%!4=4|
0002a530  3a e7 4a 79 24 3d 22 22  8c 0d 7d 42 3c 4d 25 21  |:.Jy$=""..}B<M%!|
0002a540  38 3d 30 3a 4d 25 21 31  32 3d 28 31 3c 3c 32 29  |8=0:M%!12=(1<<2)|
0002a550  2b 31 35 2a 28 31 3c 3c  31 32 29 3a c8 99 26 34  |+15*(1<<12):..&4|
0002a560  30 30 63 64 2c 2c 4d 25  3a f2 41 28 69 4a 25 2c  |00cd,,M%:.A(iJ%,|
0002a570  34 2c 22 22 29 0d 7d 43  4e cc 3a 4d 25 21 38 3d  |4,"").}CN.:M%!8=|
0002a580  28 31 3c 3c 32 29 2b 33  2a 28 31 3c 3c 31 32 29  |(1<<2)+3*(1<<12)|
0002a590  3a 4d 25 21 31 32 3d 28  31 3c 3c 32 29 2b 31 35  |:M%!12=(1<<2)+15|
0002a5a0  2a 28 31 3c 3c 31 32 29  3a c8 99 26 34 30 30 63  |*(1<<12):..&400c|
0002a5b0  64 2c 2c 4d 25 3a f2 41  28 69 4a 25 2c 34 2c 4a  |d,,M%:.A(iJ%,4,J|
0002a5c0  79 24 29 0d 7d 44 15 cd  3a 4d 25 21 34 3d 36 3a  |y$).}D..:M%!4=6:|
0002a5d0  e7 50 79 24 3d 22 22 8c  0d 7d 45 3c 4d 25 21 38  |.Py$=""..}E<M%!8|
0002a5e0  3d 30 3a 4d 25 21 31 32  3d 28 31 3c 3c 32 29 2b  |=0:M%!12=(1<<2)+|
0002a5f0  31 35 2a 28 31 3c 3c 31  32 29 3a c8 99 26 34 30  |15*(1<<12):..&40|
0002a600  30 63 64 2c 2c 4d 25 3a  f2 41 28 69 4a 25 2c 36  |0cd,,M%:.A(iJ%,6|
0002a610  2c 22 22 29 0d 7d 46 4e  cc 3a 4d 25 21 38 3d 28  |,"").}FN.:M%!8=(|
0002a620  31 3c 3c 32 29 2b 33 2a  28 31 3c 3c 31 32 29 3a  |1<<2)+3*(1<<12):|
0002a630  4d 25 21 31 32 3d 28 31  3c 3c 32 29 2b 31 35 2a  |M%!12=(1<<2)+15*|
0002a640  28 31 3c 3c 31 32 29 3a  c8 99 26 34 30 30 63 64  |(1<<12):..&400cd|
0002a650  2c 2c 4d 25 3a f2 41 28  69 4a 25 2c 36 2c 50 79  |,,M%:.A(iJ%,6,Py|
0002a660  24 29 0d 7d 47 4b cd 3a  f2 44 28 69 4a 25 29 3a  |$).}GK.:.D(iJ%):|
0002a670  f2 6e 5f 28 69 4a 25 29  3a f2 59 28 22 22 29 3a  |.n_(iJ%):.Y(""):|
0002a680  c8 99 26 34 30 30 64 33  2c 2c 69 6c 25 3a c8 99  |..&400d3,,il%:..|
0002a690  26 36 30 30 64 32 2c 69  4a 25 2c 2d 31 2c 30 2c  |&600d2,iJ%,-1,0,|
0002a6a0  30 2c 28 31 3c 3c 32 35  29 2c 30 3a e1 0d 7d 48  |0,(1<<25),0:..}H|
0002a6b0  16 dd f2 61 4a 28 62 25  2c 49 25 29 3a e7 62 25  |...aJ(b%,I%):.b%|
0002a6c0  3e 37 e1 0d 7d 49 0e ea  59 61 25 3a c8 8e 49 25  |>7..}I..Ya%:..I%|
0002a6d0  ca 0d 7d 4a 0c c9 31 3a  59 61 25 3d 30 0d 7d 4b  |..}J..1:Ya%=0.}K|
0002a6e0  0c c9 34 3a 59 61 25 3d  31 0d 7d 4c 0c c9 36 3a  |..4:Ya%=1.}L..6:|
0002a6f0  59 61 25 3d 32 0d 7d 4d  06 7f e1 0d 7d 4e 47 cb  |Ya%=2.}M....}NG.|
0002a700  3a f2 6d 3a c8 99 26 36  30 30 64 32 2c 69 6c 25  |:.m:..&600d2,il%|
0002a710  21 30 2c 69 6c 25 21 34  2c 69 6c 25 21 38 2c 69  |!0,il%!4,il%!8,i|
0002a720  6c 25 21 31 32 2c 69 6c  25 21 31 36 2c 69 6c 25  |l%!12,il%!16,il%|
0002a730  21 32 30 3a f2 4d 28 69  4a 25 29 3a c8 8e 4f 41  |!20:.M(iJ%):..OA|
0002a740  25 ca 0d 7d 4f 1f c9 30  3a 53 24 3d 5f 24 3a 4b  |%..}O..0:S$=_$:K|
0002a750  75 25 3d a4 53 28 69 79  25 29 3a c8 8e 59 61 25  |u%=.S(iy%):..Ya%|
0002a760  ca 0d 7d 50 0a c9 30 3a  f2 41 69 0d 7d 51 0a c9  |..}P..0:.Ai.}Q..|
0002a770  31 3a f2 53 4a 0d 7d 52  05 cb 0d 7d 53 1f c9 31  |1:.SJ.}R...}S..1|
0002a780  3a 53 24 3d 5f 24 3a 4b  75 25 3d a4 53 28 69 79  |:S$=_$:Ku%=.S(iy|
0002a790  25 29 3a c8 8e 59 61 25  ca 0d 7d 54 0a c9 30 3a  |%):..Ya%..}T..0:|
0002a7a0  f2 51 6c 0d 7d 55 0a c9  31 3a f2 6d 4a 0d 7d 56  |.Ql.}U..1:.mJ.}V|
0002a7b0  05 cb 0d 7d 57 13 c9 32  3a 53 24 3d 5f 24 3a c8  |...}W..2:S$=_$:.|
0002a7c0  8e 59 61 25 ca 0d 7d 58  20 c9 30 3a c8 99 26 34  |.Ya%..}X .0:..&4|
0002a7d0  30 36 63 30 3a f2 6e 79  28 53 24 29 3a c8 99 26  |06c0:.ny(S$):..&|
0002a7e0  34 30 36 63 31 0d 7d 59  20 c9 31 3a c8 99 26 34  |406c1.}Y .1:..&4|
0002a7f0  30 36 63 30 3a f2 6e 61  28 53 24 29 3a c8 99 26  |06c0:.na(S$):..&|
0002a800  34 30 36 63 31 0d 7d 5a  05 cb 0d 7d 5b 0d c9 33  |406c1.}Z...}[..3|
0002a810  3a c8 8e 59 61 25 ca 0d  7d 5c 0c c9 30 3a e7 52  |:..Ya%..}\..0:.R|
0002a820  4f 25 8c 0d 7d 5d 07 f2  6e 75 0d 7d 5e 09 cc 3a  |O%..}]..nu.}^..:|
0002a830  f2 59 4a 0d 7d 5f 05 cd  0d 7d 60 16 c9 32 3a c8  |.YJ.}_...}`..2:.|
0002a840  99 26 34 30 36 63 30 3a  c8 8e 67 60 25 ca 0d 7d  |.&406c0:..g`%..}|
0002a850  61 52 c9 30 3a f2 54 28  53 61 76 65 54 65 78 74  |aR.0:.T(SaveText|
0002a860  5f 57 69 6e 64 6f 77 25  2c 79 25 2c 68 25 29 3a  |_Window%,y%,h%):|
0002a870  f2 47 28 53 61 76 65 54  65 78 74 5f 57 69 6e 64  |.G(SaveText_Wind|
0002a880  6f 77 25 2c 31 2c a9 28  a4 4d 28 53 61 76 65 54  |ow%,1,.(.M(SaveT|
0002a890  65 78 74 5f 57 69 6e 64  6f 77 25 2c 31 29 29 29  |ext_Window%,1)))|
0002a8a0  0d 7d 62 1e c9 31 3a f2  54 28 53 61 76 65 46 5f  |.}b..1:.T(SaveF_|
0002a8b0  57 69 6e 64 6f 77 25 2c  79 25 2c 68 25 29 0d 7d  |Window%,y%,h%).}|
0002a8c0  63 4a c9 32 3a ff 28 22  53 61 76 65 20 3c 4f 70  |cJ.2:.("Save <Op|
0002a8d0  74 63 6c 50 72 6f 24 44  69 72 3e 2e 44 69 63 74  |tclPro$Dir>.Dict|
0002a8e0  69 6f 6e 61 72 79 20 22  2b c3 7e 28 41 25 28 4d  |ionary "+.~(A%(M|
0002a8f0  4a 25 29 29 2b 22 20 2b  22 2b c3 7e 28 4c 61 25  |J%))+" +"+.~(La%|
0002a900  29 29 3a 66 61 25 3d b9  0d 7d 64 0e cb 3a c8 99  |)):fa%=..}d..:..|
0002a910  26 34 30 36 63 31 0d 7d  65 05 cb 0d 7d 66 07 cb  |&406c1.}e...}f..|
0002a920  3a e1 0d 7d 67 15 dd f2  5a 6c 28 49 25 2c 6a 25  |:..}g...Zl(I%,j%|
0002a930  29 3a c8 8e 6a 25 ca 0d  7d 68 42 c9 32 37 3a f2  |):..j%..}hB.27:.|
0002a940  6d 3a c8 99 26 36 30 30  64 32 2c 69 6c 25 21 30  |m:..&600d2,il%!0|
0002a950  2c 69 6c 25 21 34 2c 69  6c 25 21 38 2c 69 6c 25  |,il%!4,il%!8,il%|
0002a960  21 31 32 2c 69 6c 25 21  31 36 2c 69 6c 25 21 32  |!12,il%!16,il%!2|
0002a970  30 3a f2 4d 28 69 4a 25  29 0d 7d 69 2b c9 31 33  |0:.M(iJ%).}i+.13|
0002a980  2c 31 30 3a f2 53 28 69  4a 25 2c 31 2c b9 29 3a  |,10:.S(iJ%,1,.):|
0002a990  f2 61 4a 28 34 2c 31 29  3a f2 53 28 69 4a 25 2c  |.aJ(4,1):.S(iJ%,|
0002a9a0  31 2c a3 29 0d 7d 6a 07  cb 3a e1 0d 7d 6b 15 dd  |1,.).}j..:..}k..|
0002a9b0  f2 59 4a 3a 52 4f 25 3d  a3 3a c8 8e 67 60 25 ca  |.YJ:RO%=.:..g`%.|
0002a9c0  0d 7d 6c 0a c9 30 3a f2  68 5f 0d 7d 6d 0a c9 31  |.}l..0:.h_.}m..1|
0002a9d0  3a f2 66 79 0d 7d 6e 0c  c9 32 3a 66 61 25 3d b9  |:.fy.}n..2:fa%=.|
0002a9e0  0d 7d 6f 0a c9 33 3a f2  48 79 0d 7d 70 0b c9 34  |.}o..3:.Hy.}p..4|
0002a9f0  3a 21 41 3d 30 0d 7d 71  66 cb 3a e7 70 69 25 3d  |:!A=0.}qf.:.pi%=|
0002aa00  a3 f2 73 28 22 57 61 72  6e 69 6e 67 20 66 72 6f  |..s("Warning fro|
0002aa10  6d 20 4f 70 74 69 63 61  6c 22 2c 22 54 68 65 20  |m Optical","The |
0002aa20  74 65 78 74 20 68 61 73  20 62 65 65 6e 20 75 70  |text has been up|
0002aa30  64 61 74 65 64 2e 20 41  72 65 20 79 6f 75 20 73  |dated. Are you s|
0002aa40  75 72 65 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  |ure you want to |
0002aa50  71 75 69 74 3f 22 2c 30  29 3a e1 0d 7d 72 80 e7  |quit?",0):..}r..|
0002aa60  54 61 25 3d a3 f2 73 28  22 57 61 72 6e 69 6e 67  |Ta%=..s("Warning|
0002aa70  20 66 72 6f 6d 20 4f 70  74 69 63 61 6c 22 2c 22  | from Optical","|
0002aa80  59 6f 75 20 68 61 76 65  20 6e 6f 74 20 73 61 76  |You have not sav|
0002aa90  65 64 20 79 6f 75 72 20  75 70 64 61 74 65 64 20  |ed your updated |
0002aaa0  63 68 61 72 61 63 74 65  72 20 64 65 66 69 6e 69  |character defini|
0002aab0  74 69 6f 6e 73 2e 20 41  72 65 20 79 6f 75 20 73  |tions. Are you s|
0002aac0  75 72 65 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  |ure you want to |
0002aad0  71 75 69 74 3f 22 2c 31  29 3a e1 0d 7d 73 67 e7  |quit?",1):..}sg.|
0002aae0  66 61 25 3d a3 f2 73 28  22 57 61 72 6e 69 6e 67  |fa%=..s("Warning|
0002aaf0  20 66 72 6f 6d 20 4f 70  74 69 63 61 6c 22 2c 22  | from Optical","|
0002ab00  54 68 65 20 6c 65 78 69  63 6f 6e 20 68 61 73 20  |The lexicon has |
0002ab10  62 65 65 6e 20 75 70 64  61 74 65 64 2e 20 41 72  |been updated. Ar|
0002ab20  65 20 79 6f 75 20 73 75  72 65 20 79 6f 75 20 77  |e you sure you w|
0002ab30  61 6e 74 20 74 6f 20 71  75 69 74 3f 22 2c 32 29  |ant to quit?",2)|
0002ab40  3a e1 0d 7d 74 65 e7 57  79 25 f2 73 28 22 57 61  |:..}te.Wy%.s("Wa|
0002ab50  72 6e 69 6e 67 20 66 72  6f 6d 20 4f 70 74 69 63  |rning from Optic|
0002ab60  61 6c 22 2c 22 4f 70 74  69 63 61 6c 20 69 73 20  |al","Optical is |
0002ab70  63 75 72 72 65 6e 74 6c  79 20 72 65 61 64 69 6e  |currently readin|
0002ab80  67 2e 20 41 72 65 20 79  6f 75 20 73 75 72 65 20  |g. Are you sure |
0002ab90  79 6f 75 20 77 61 6e 74  20 74 6f 20 71 75 69 74  |you want to quit|
0002aba0  3f 22 2c 33 29 3a e1 0d  7d 75 6b e7 21 41 f2 73  |?",3):..}uk.!A.s|
0002abb0  28 22 57 61 72 6e 69 6e  67 20 66 72 6f 6d 20 4f  |("Warning from O|
0002abc0  70 74 69 63 61 6c 22 2c  22 4f 70 74 69 63 61 6c  |ptical","Optical|
0002abd0  20 69 73 20 63 75 72 72  65 6e 74 6c 79 20 73 70  | is currently sp|
0002abe0  65 6c 6c 20 63 68 65 63  6b 69 6e 67 2e 20 41 72  |ell checking. Ar|
0002abf0  65 20 79 6f 75 20 73 75  72 65 20 79 6f 75 20 77  |e you sure you w|
0002ac00  61 6e 74 20 74 6f 20 71  75 69 74 3f 22 2c 34 29  |ant to quit?",4)|
0002ac10  3a e1 0d 7d 76 0b 6d 61  25 3d b9 3a e1 0d 7d 77  |:..}v.ma%=.:..}w|
0002ac20  15 dd f2 6e 75 3a 52 4f  25 3d b9 3a c8 8e 67 60  |...nu:RO%=.:..g`|
0002ac30  25 ca 0d 7d 78 0a c9 30  3a f2 68 5f 0d 7d 79 0a  |%..}x..0:.h_.}y.|
0002ac40  c9 31 3a f2 66 79 0d 7d  7a 0c c9 32 3a 66 61 25  |.1:.fy.}z..2:fa%|
0002ac50  3d b9 0d 7d 7b 0a c9 33  3a f2 48 79 0d 7d 7c 0b  |=..}{..3:.Hy.}|.|
0002ac60  c9 34 3a 21 41 3d 30 0d  7d 7d 66 cb 3a e7 70 69  |.4:!A=0.}}f.:.pi|
0002ac70  25 3d a3 f2 73 28 22 57  61 72 6e 69 6e 67 20 66  |%=..s("Warning f|
0002ac80  72 6f 6d 20 4f 70 74 69  63 61 6c 22 2c 22 54 68  |rom Optical","Th|
0002ac90  65 20 74 65 78 74 20 68  61 73 20 62 65 65 6e 20  |e text has been |
0002aca0  75 70 64 61 74 65 64 2e  20 41 72 65 20 79 6f 75  |updated. Are you|
0002acb0  20 73 75 72 65 20 79 6f  75 20 77 61 6e 74 20 74  | sure you want t|
0002acc0  6f 20 71 75 69 74 3f 22  2c 30 29 3a e1 0d 7d 7e  |o quit?",0):..}~|
0002acd0  80 e7 54 61 25 3d a3 f2  73 28 22 57 61 72 6e 69  |..Ta%=..s("Warni|
0002ace0  6e 67 20 66 72 6f 6d 20  4f 70 74 69 63 61 6c 22  |ng from Optical"|
0002acf0  2c 22 59 6f 75 20 68 61  76 65 20 6e 6f 74 20 73  |,"You have not s|
0002ad00  61 76 65 64 20 79 6f 75  72 20 75 70 64 61 74 65  |aved your update|
0002ad10  64 20 63 68 61 72 61 63  74 65 72 20 64 65 66 69  |d character defi|
0002ad20  6e 69 74 69 6f 6e 73 2e  20 41 72 65 20 79 6f 75  |nitions. Are you|
0002ad30  20 73 75 72 65 20 79 6f  75 20 77 61 6e 74 20 74  | sure you want t|
0002ad40  6f 20 71 75 69 74 3f 22  2c 31 29 3a e1 0d 7d 7f  |o quit?",1):..}.|
0002ad50  67 e7 66 61 25 3d a3 f2  73 28 22 57 61 72 6e 69  |g.fa%=..s("Warni|
0002ad60  6e 67 20 66 72 6f 6d 20  4f 70 74 69 63 61 6c 22  |ng from Optical"|
0002ad70  2c 22 54 68 65 20 6c 65  78 69 63 6f 6e 20 68 61  |,"The lexicon ha|
0002ad80  73 20 62 65 65 6e 20 75  70 64 61 74 65 64 2e 20  |s been updated. |
0002ad90  41 72 65 20 79 6f 75 20  73 75 72 65 20 79 6f 75  |Are you sure you|
0002ada0  20 77 61 6e 74 20 74 6f  20 71 75 69 74 3f 22 2c  | want to quit?",|
0002adb0  32 29 3a e1 0d 7d 80 65  e7 57 79 25 f2 73 28 22  |2):..}.e.Wy%.s("|
0002adc0  57 61 72 6e 69 6e 67 20  66 72 6f 6d 20 4f 70 74  |Warning from Opt|
0002add0  69 63 61 6c 22 2c 22 4f  70 74 69 63 61 6c 20 69  |ical","Optical i|
0002ade0  73 20 63 75 72 72 65 6e  74 6c 79 20 72 65 61 64  |s currently read|
0002adf0  69 6e 67 2e 20 41 72 65  20 79 6f 75 20 73 75 72  |ing. Are you sur|
0002ae00  65 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 71 75  |e you want to qu|
0002ae10  69 74 3f 22 2c 33 29 3a  e1 0d 7d 81 6b e7 21 41  |it?",3):..}.k.!A|
0002ae20  f2 73 28 22 57 61 72 6e  69 6e 67 20 66 72 6f 6d  |.s("Warning from|
0002ae30  20 4f 70 74 69 63 61 6c  22 2c 22 4f 70 74 69 63  | Optical","Optic|
0002ae40  61 6c 20 69 73 20 63 75  72 72 65 6e 74 6c 79 20  |al is currently |
0002ae50  73 70 65 6c 6c 20 63 68  65 63 6b 69 6e 67 2e 20  |spell checking. |
0002ae60  41 72 65 20 79 6f 75 20  73 75 72 65 20 79 6f 75  |Are you sure you|
0002ae70  20 77 61 6e 74 20 74 6f  20 71 75 69 74 3f 22 2c  | want to quit?",|
0002ae80  34 29 3a e1 0d 7d 82 1b  f2 48 79 3a f2 68 5f 3a  |4):..}...Hy:.h_:|
0002ae90  f2 66 79 3a 66 61 25 3d  b9 3a f2 7a 69 3a e1 0d  |.fy:fa%=.:.zi:..|
0002aea0  7d 83 fd dd f2 58 4a 28  59 25 2c 49 25 2c 6e 24  |}....XJ(Y%,I%,n$|
0002aeb0  29 3a ea 6e 65 25 2c 66  65 25 2c 68 5a 25 2c 6e  |):.ne%,fe%,hZ%,n|
0002aec0  5a 25 2c 51 5a 25 2c 55  5a 25 3a 4d 25 21 30 3d  |Z%,QZ%,UZ%:M%!0=|
0002aed0  59 25 3a c8 99 26 34 30  30 63 62 2c 2c 4d 25 3a  |Y%:..&400cb,,M%:|
0002aee0  6e 65 25 3d 4d 25 21 34  3a 66 65 25 3d 4d 25 21  |ne%=M%!4:fe%=M%!|
0002aef0  31 36 3a 4d 25 21 34 3d  49 25 3a c8 99 26 34 30  |16:M%!4=I%:..&40|
0002af00  30 63 65 2c 2c 4d 25 3a  68 5a 25 3d 4d 25 21 38  |0ce,,M%:hZ%=M%!8|
0002af10  3a 6e 5a 25 3d 4d 25 21  31 32 3a 51 5a 25 3d 4d  |:nZ%=M%!12:QZ%=M|
0002af20  25 21 31 36 3a 55 5a 25  3d 4d 25 21 32 30 3a 4d  |%!16:UZ%=M%!20:M|
0002af30  25 21 30 3d 59 25 3a 4d  25 21 34 3d 35 3a 4d 25  |%!0=Y%:M%!4=5:M%|
0002af40  21 38 3d 28 6e 65 25 2b  68 5a 25 29 3a 4d 25 21  |!8=(ne%+hZ%):M%!|
0002af50  31 32 3d 28 66 65 25 2b  6e 5a 25 29 3a 4d 25 21  |12=(fe%+nZ%):M%!|
0002af60  31 36 3d 28 6e 65 25 2b  51 5a 25 29 3a 4d 25 21  |16=(ne%+QZ%):M%!|
0002af70  32 30 3d 28 66 65 25 2b  55 5a 25 29 3a 4d 25 21  |20=(fe%+UZ%):M%!|
0002af80  32 34 3d 31 3a 4d 25 21  32 38 3d 31 3a 4d 25 21  |24=1:M%!28=1:M%!|
0002af90  33 32 3d 26 37 66 66 66  66 66 66 66 0d 7d 84 19  |32=&7fffffff.}..|
0002afa0  4d 25 21 33 36 3d 26 37  66 66 66 66 66 66 66 3a  |M%!36=&7fffffff:|
0002afb0  e7 4e 6f 25 8c 0d 7d 85  1f c8 99 26 36 32 34 30  |.No%..}....&6240|
0002afc0  30 2c 31 33 33 2c 31 2c  6e 24 2c 4d 25 2b 38 b8  |0,133,1,n$,M%+8.|
0002afd0  3b 77 79 25 0d 7d 86 12  cc 3a c8 99 26 34 30 30  |;wy%.}...:..&400|
0002afe0  64 30 2c 2c 4d 25 0d 7d  87 07 cd 3a e1 0d 7d 88  |d0,,M%.}...:..}.|
0002aff0  27 dd f2 49 28 54 72 25  2c 6e 24 2c 79 25 2c 68  |'..I(Tr%,n$,y%,h|
0002b000  25 2c 55 60 25 2c 57 61  25 29 3a e7 55 60 25 80  |%,U`%,Wa%):.U`%.|
0002b010  32 35 36 8c 0d 7d 89 2a  55 60 25 3d 55 60 25 80  |256..}.*U`%=U`%.|
0002b020  32 35 35 3a c8 99 26 34  30 30 65 64 2c 32 35 36  |255:..&400ed,256|
0002b030  2c 54 72 25 2c 6e 24 2c  2c 2c 2c 4f 69 25 0d 7d  |,Tr%,n$,,,,Oi%.}|
0002b040  8a 24 cc 3a c8 99 26 34  30 30 65 64 2c 32 35 36  |.$.:..&400ed,256|
0002b050  2c 54 72 25 2c 6e 24 2c  2c 2c 2c 4f 69 25 2c 6b  |,Tr%,n$,,,,Oi%,k|
0002b060  6b 25 0d 7d 8b 84 cd 3a  4f 69 25 21 30 3d 28 4f  |k%.}...:Oi%!0=(O|
0002b070  69 25 21 30 29 2a 28 57  61 25 21 30 29 3a 4f 69  |i%!0)*(Wa%!0):Oi|
0002b080  25 21 34 3d 28 4f 69 25  21 34 29 2a 28 57 61 25  |%!4=(Oi%!4)*(Wa%|
0002b090  21 34 29 3a 4f 69 25 21  38 3d 28 4f 69 25 21 38  |!4):Oi%!8=(Oi%!8|
0002b0a0  29 2a 28 57 61 25 21 38  29 3a 4f 69 25 21 31 32  |)*(Wa%!8):Oi%!12|
0002b0b0  3d 28 4f 69 25 21 31 32  29 2a 28 57 61 25 21 31  |=(Oi%!12)*(Wa%!1|
0002b0c0  32 29 3a c8 99 34 36 2c  33 30 38 2c 54 72 25 2c  |2):..46,308,Tr%,|
0002b0d0  6e 24 2c 79 25 2c 68 25  2c 55 60 25 2c 4f 69 25  |n$,y%,h%,U`%,Oi%|
0002b0e0  2c 6b 6b 25 3a e1 0d 7d  8c 32 dd a4 6d 28 61 6c  |,kk%:..}.2..m(al|
0002b0f0  25 29 3a ea 6d 4a 25 2c  69 6e 25 3a ee 85 ea ef  |%):.mJ%,in%:....|
0002b100  32 36 2c 34 3a f1 f6 24  3b 22 20 61 74 20 6c 69  |26,4:..$;" at li|
0002b110  6e 65 20 22 3b 9e 3a e0  0d 7d 8d c5 c8 99 26 34  |ne ";.:..}....&4|
0002b120  30 30 65 63 2c 2d 31 2c  2d 31 b8 2c 2c 69 6e 25  |00ec,-1,-1.,,in%|
0002b130  3a e7 69 6e 25 3c 35 31  32 2a 61 6c 25 2b 33 30  |:.in%<512*al%+30|
0002b140  37 32 30 8c f2 43 28 22  4f 70 74 69 63 61 6c 22  |720..C("Optical"|
0002b150  2c 22 54 68 65 72 65 20  69 73 20 69 6e 73 75 66  |,"There is insuf|
0002b160  66 69 63 69 65 6e 74 20  6d 65 6d 6f 72 79 20 61  |ficient memory a|
0002b170  76 61 69 6c 61 62 6c 65  20 74 6f 20 72 75 6e 20  |vailable to run |
0002b180  4f 70 74 69 63 61 6c 2e  20 4e 65 65 64 20 61 74  |Optical. Need at|
0002b190  20 6c 65 61 73 74 20 61  6e 20 65 78 74 72 61 20  | least an extra |
0002b1a0  22 2b c3 28 28 35 31 32  2a 61 6c 25 2b 33 30 37  |"+.((512*al%+307|
0002b1b0  32 30 2d 69 6e 25 29 81  31 30 32 34 29 2b 22 4b  |20-in%).1024)+"K|
0002b1c0  2e 22 29 3a f2 72 79 3a  c8 99 26 34 30 30 64 64  |."):.ry:..&400dd|
0002b1d0  2c 72 6e 25 2c 22 54 41  53 4b 22 3a e0 0d 7d 8e  |,rn%,"TASK":..}.|
0002b1e0  43 56 69 25 3d 41 65 25  3a e3 6d 4a 25 3d 30 b8  |CVi%=Ae%:.mJ%=0.|
0002b1f0  61 6c 25 2d 31 3a 6e 6e  25 21 28 6d 4a 25 2a 34  |al%-1:nn%!(mJ%*4|
0002b200  29 3d 56 69 25 3a 41 25  28 6d 4a 25 29 3d 6e 6e  |)=Vi%:A%(mJ%)=nn|
0002b210  25 21 28 6d 4a 25 2a 34  29 3a c8 8e 6d 4a 25 ca  |%!(mJ%*4):..mJ%.|
0002b220  0d 7d 8f 3c c9 4a 5f 25  2c 4e 75 25 2c 60 79 25  |.}.<.J_%,Nu%,`y%|
0002b230  2c 71 4a 25 3a 63 69 25  21 28 6d 4a 25 2a 34 29  |,qJ%:ci%!(mJ%*4)|
0002b240  3d 38 31 39 32 3a 5a 25  28 6d 4a 25 29 3d 38 31  |=8192:Z%(mJ%)=81|
0002b250  39 32 3a 56 69 25 2b 3d  38 31 39 32 0d 7d 90 2a  |92:Vi%+=8192.}.*|
0002b260  7f 3a 63 69 25 21 28 6d  4a 25 2a 34 29 3d 35 31  |.:ci%!(mJ%*4)=51|
0002b270  32 3a 5a 25 28 6d 4a 25  29 3d 35 31 32 3a 56 69  |2:Z%(mJ%)=512:Vi|
0002b280  25 2b 3d 35 31 32 0d 7d  91 1d cb 3a ed 3a c8 99  |%+=512.}...:.:..|
0002b290  26 34 30 30 65 63 2c 6a  6e 25 2b a4 49 2c 2d 31  |&400ec,jn%+.I,-1|
0002b2a0  3a 3d b9 0d 7d 92 3b dd  a4 49 3a ea 6d 4a 25 2c  |:=..}.;..I:.mJ%,|
0002b2b0  58 60 25 3a 58 60 25 3d  30 3a e3 6d 4a 25 3d 30  |X`%:X`%=0:.mJ%=0|
0002b2c0  b8 61 6c 25 2d 31 3a 58  60 25 2b 3d 63 69 25 21  |.al%-1:X`%+=ci%!|
0002b2d0  28 6d 4a 25 2a 34 29 3a  ed 3a 3d 58 60 25 0d 7d  |(mJ%*4):.:=X`%.}|
0002b2e0  93 43 dd a4 4d 79 28 52  4a 25 29 3a ea 6d 4a 25  |.C..My(RJ%):.mJ%|
0002b2f0  2c 58 60 25 3a 58 60 25  3d 30 3a e3 6d 4a 25 3d  |,X`%:X`%=0:.mJ%=|
0002b300  52 4a 25 b8 61 6c 25 2d  31 3a 58 60 25 2b 3d 63  |RJ%.al%-1:X`%+=c|
0002b310  69 25 21 28 6d 4a 25 2a  34 29 3a ed 3a 3d 58 60  |i%!(mJ%*4):.:=X`|
0002b320  25 0d 7d 94 2c dd a4 41  28 41 72 25 2c 4a 61 25  |%.}.,..A(Ar%,Ja%|
0002b330  29 3a ea 69 6e 25 2c 65  69 25 2c 6d 4a 25 2c 49  |):.in%,ei%,mJ%,I|
0002b340  5a 25 2c 52 4a 25 3a c8  8e 4a 61 25 ca 0d 7d 95  |Z%,RJ%:..Ja%..}.|
0002b350  2f c9 4a 5f 25 2c 4e 75  25 2c 60 79 25 2c 71 4a  |/.J_%,Nu%,`y%,qJ|
0002b360  25 3a 71 6b 25 3d 38 31  39 32 2a 28 28 41 72 25  |%:qk%=8192*((Ar%|
0002b370  2b 38 31 39 32 29 81 38  31 39 32 29 0d 7d 96 1d  |+8192).8192).}..|
0002b380  7f 3a 71 6b 25 3d 35 31  32 2a 28 28 41 72 25 2b  |.:qk%=512*((Ar%+|
0002b390  35 31 32 29 81 35 31 32  29 0d 7d 97 37 cb 3a 65  |512).512).}.7.:e|
0002b3a0  69 25 3d 71 6b 25 2d 63  69 25 21 28 4a 61 25 2a  |i%=qk%-ci%!(Ja%*|
0002b3b0  34 29 3a e7 65 69 25 3d  30 8c 5a 25 28 4a 61 25  |4):.ei%=0.Z%(Ja%|
0002b3c0  29 3d 63 69 25 21 28 4a  61 25 2a 34 29 3a 3d b9  |)=ci%!(Ja%*4):=.|
0002b3d0  0d 7d 98 32 c8 99 26 34  30 30 65 63 2c 2d 31 2c  |.}.2..&400ec,-1,|
0002b3e0  2d 31 b8 49 5a 25 2c 2c  69 6e 25 3a e7 65 69 25  |-1.IZ%,,in%:.ei%|
0002b3f0  3e 69 6e 25 2b 49 5a 25  2d a4 49 2d 6a 6e 25 8c  |>in%+IZ%-.I-jn%.|
0002b400  3d a3 0d 7d 99 38 63 69  25 21 28 4a 61 25 2a 34  |=..}.8ci%!(Ja%*4|
0002b410  29 3d 71 6b 25 3a 5a 25  28 4a 61 25 29 3d 41 72  |)=qk%:Z%(Ja%)=Ar|
0002b420  25 3a e7 65 69 25 3e 30  c8 99 26 34 30 30 65 63  |%:.ei%>0..&400ec|
0002b430  2c 6a 6e 25 2b a4 49 2c  2d 31 0d 7d 9a 0f e7 4a  |,jn%+.I,-1.}...J|
0002b440  61 25 3c 61 6c 25 2d 31  8c 0d 7d 9b 36 41 25 3d  |a%<al%-1..}.6A%=|
0002b450  6e 6e 25 21 28 28 4a 61  25 2b 31 29 2a 34 29 3a  |nn%!((Ja%+1)*4):|
0002b460  42 25 3d 41 25 2b 65 69  25 3a 43 25 3d a4 4d 79  |B%=A%+ei%:C%=.My|
0002b470  28 4a 61 25 2b 31 29 3a  e7 65 69 25 3e 30 8c 0d  |(Ja%+1):.ei%>0..|
0002b480  7d 9c 07 d6 49 61 0d 7d  9d 09 cc 3a d6 60 4a 0d  |}...Ia.}...:.`J.|
0002b490  7d 9e 3d cd 3a e3 6d 4a  25 3d 4a 61 25 2b 31 b8  |}.=.:.mJ%=Ja%+1.|
0002b4a0  61 6c 25 2d 31 3a 6e 6e  25 21 28 6d 4a 25 2a 34  |al%-1:nn%!(mJ%*4|
0002b4b0  29 2b 3d 65 69 25 3a 41  25 28 6d 4a 25 29 3d 6e  |)+=ei%:A%(mJ%)=n|
0002b4c0  6e 25 21 28 6d 4a 25 2a  34 29 3a ed 0d 7d 9f 1e  |n%!(mJ%*4):..}..|
0002b4d0  cd 3a e7 65 69 25 3c 30  c8 99 26 34 30 30 65 63  |.:.ei%<0..&400ec|
0002b4e0  2c 6a 6e 25 2b a4 49 2c  2d 31 0d 7d a0 0f e7 a4  |,jn%+.I,-1.}....|
0002b4f0  53 28 52 60 25 29 f2 52  5f 0d 7d a1 06 3d b9 0d  |S(R`%).R_.}..=..|
0002b500  7d a2 99 dd f2 52 5f 3a  ea 5f 6e 25 2c 6d 4a 25  |}....R_:._n%,mJ%|
0002b510  3a e3 6d 4a 25 3d 30 b8  31 38 3a f2 41 28 52 60  |:.mJ%=0.18:.A(R`|
0002b520  25 2c 34 2b 6d 4a 25 2a  33 2c 22 26 22 2b c3 7e  |%,4+mJ%*3,"&"+.~|
0002b530  28 6e 6e 25 21 28 6d 4a  25 2a 34 29 29 29 3a f2  |(nn%!(mJ%*4))):.|
0002b540  41 28 52 60 25 2c 36 2b  6d 4a 25 2a 33 2c 22 26  |A(R`%,6+mJ%*3,"&|
0002b550  22 2b c3 7e 28 63 69 25  21 28 6d 4a 25 2a 34 29  |"+.~(ci%!(mJ%*4)|
0002b560  29 29 3a ed 3a c8 99 26  34 30 30 65 63 2c 2d 31  |)):.:..&400ec,-1|
0002b570  2c 2d 31 b8 5f 6e 25 3a  f2 41 28 52 60 25 2c 35  |,-1._n%:.A(R`%,5|
0002b580  33 2c 22 26 22 2b c3 7e  28 5f 6e 25 2d 6a 6e 25  |3,"&"+.~(_n%-jn%|
0002b590  2b 41 65 25 29 29 3a e1  0d 7d a3 84 dd f2 50 79  |+Ae%)):..}....Py|
0002b5a0  28 59 25 2c 79 25 2c 68  25 29 3a 21 5a 25 3d 59  |(Y%,y%,h%):!Z%=Y|
0002b5b0  25 3a c8 99 26 34 30 30  63 62 2c 2c 5a 25 3a 5a  |%:..&400cb,,Z%:Z|
0002b5c0  25 21 31 32 3d 79 25 2b  5a 25 21 31 32 2d 5a 25  |%!12=y%+Z%!12-Z%|
0002b5d0  21 34 3a 5a 25 21 34 3d  79 25 3a 5a 25 21 38 3d  |!4:Z%!4=y%:Z%!8=|
0002b5e0  68 25 2d 28 5a 25 21 31  36 2d 5a 25 21 38 29 3a  |h%-(Z%!16-Z%!8):|
0002b5f0  5a 25 21 31 36 3d 68 25  3a 5a 25 21 32 38 3d 2d  |Z%!16=h%:Z%!28=-|
0002b600  31 3a c8 99 26 34 30 30  63 35 2c 2c 5a 25 3a e7  |1:..&400c5,,Z%:.|
0002b610  59 25 3d 77 25 f2 44 28  56 5f 25 29 0d 7d a4 12  |Y%=w%.D(V_%).}..|
0002b620  e7 59 25 3d 49 4a 25 f2  44 28 6a 4a 25 29 0d 7d  |.Y%=IJ%.D(jJ%).}|
0002b630  a5 05 e1 0d 7d a6 48 dd  f2 71 3a c8 99 26 34 30  |....}.H..q:..&40|
0002b640  30 63 66 2c 2c 62 60 25  3a 73 25 3d 62 60 25 21  |0cf,,b`%:s%=b`%!|
0002b650  30 3a 76 25 3d 62 60 25  21 34 3a 53 6b 25 3d 62  |0:v%=b`%!4:Sk%=b|
0002b660  60 25 21 31 36 3a 5a 6f  25 3d 62 60 25 21 31 32  |`%!16:Zo%=b`%!12|
0002b670  3a 62 25 3d 62 60 25 21  38 3a e1 0d 7d a7 3e dd  |:b%=b`%!8:..}.>.|
0002b680  f2 6f 28 59 25 2c 49 25  2c 4e 79 24 29 3a 4d 25  |.o(Y%,I%,Ny$):M%|
0002b690  21 30 3d 59 25 3a 4d 25  21 34 3d 49 25 3a c8 99  |!0=Y%:M%!4=I%:..|
0002b6a0  26 34 30 30 63 65 2c 2c  4d 25 3a e7 24 28 4d 25  |&400ce,,M%:.$(M%|
0002b6b0  21 33 32 29 3d 4e 79 24  e1 0d 7d a8 2e 24 28 4d  |!32)=Ny$..}..$(M|
0002b6c0  25 21 33 32 29 3d 4e 79  24 3a 4d 25 21 38 3d 30  |%!32)=Ny$:M%!8=0|
0002b6d0  3a 4d 25 21 31 32 3d 30  3a c8 99 26 34 30 30 63  |:M%!12=0:..&400c|
0002b6e0  64 2c 2c 4d 25 3a e1 0d  7d a9 37 dd f2 56 75 28  |d,,M%:..}.7..Vu(|
0002b6f0  41 70 25 29 3a ea 85 3a  ee 85 ea 5a 25 21 31 32  |Ap%):..:...Z%!12|
0002b700  3d 5a 25 21 38 3a c8 99  26 34 30 30 65 37 2c 31  |=Z%!8:..&400e7,1|
0002b710  39 2c 5a 25 2c 5a 25 21  34 3a f7 85 3a e1 0d 7d  |9,Z%,Z%!4:..:..}|
0002b720  aa 16 d5 23 41 70 25 2c  22 52 75 6e 20 22 2b 42  |...#Ap%,"Run "+B|
0002b730  79 24 3a e1 0d 7d ab 17  dd f2 60 6c 28 62 25 2c  |y$:..}....`l(b%,|
0002b740  49 25 29 3a e7 46 79 25  3d 30 e1 0d 7d ac 64 5a  |I%):.Fy%=0..}.dZ|
0002b750  25 21 30 3d 56 5f 25 3a  c8 99 26 34 30 30 63 62  |%!0=V_%:..&400cb|
0002b760  2c 2c 5a 25 3a 58 25 3d  5a 25 21 31 36 2d 5a 25  |,,Z%:X%=Z%!16-Z%|
0002b770  21 32 34 3a c8 99 26 34  30 30 63 66 2c 2c 5a 25  |!24:..&400cf,,Z%|
0002b780  3a 76 25 3d 5a 25 21 34  3a 75 79 25 3d 58 25 2d  |:v%=Z%!4:uy%=X%-|
0002b790  76 25 3a 68 4a 25 3d 28  75 79 25 2d 34 29 81 34  |v%:hJ%=(uy%-4).4|
0002b7a0  30 3a 6c 4f 25 3d 6f 4a  25 3a e7 51 61 25 8c 0d  |0:lO%=oJ%:.Qa%..|
0002b7b0  7d ad 0f e7 68 4a 25 3e  6f 6c 25 2d 31 8c 0d 7d  |}...hJ%>ol%-1..}|
0002b7c0  ae 0a 6f 4a 25 3d 2d 31  0d 7d af 14 cc 3a 6f 4a  |..oJ%=-1.}...:oJ|
0002b7d0  25 3d 68 4a 25 3a c8 8e  46 79 25 ca 0d 7d b0 92  |%=hJ%:..Fy%..}..|
0002b7e0  c9 31 3a 71 25 3d 30 3a  c8 95 68 4a 25 2d 57 25  |.1:q%=0:..hJ%-W%|
0002b7f0  28 71 25 29 3e 3d 30 3a  68 4a 25 2d 3d 57 25 28  |(q%)>=0:hJ%-=W%(|
0002b800  71 25 29 3a 71 25 2b 3d  31 3a ce 3a 43 25 3d 60  |q%):q%+=1:.:C%=`|
0002b810  75 25 3a 42 25 3d 68 4a  25 3a 46 25 3d 68 75 25  |u%:B%=hJ%:F%=hu%|
0002b820  3a 47 25 3d 6a 61 25 3a  44 25 3d 41 25 28 4d 4a  |:G%=ja%:D%=A%(MJ|
0002b830  25 29 3a 45 25 3d 21 28  41 25 28 4d 4a 25 29 2b  |%):E%=!(A%(MJ%)+|
0002b840  71 25 2a 34 29 3a e7 71  25 3c 32 35 8c 48 25 3d  |q%*4):.q%<25.H%=|
0002b850  21 28 41 25 28 4d 4a 25  29 2b 28 71 25 2b 31 29  |!(A%(MJ%)+(q%+1)|
0002b860  2a 34 29 2d 31 8b 48 25  3d 4c 61 25 2a 32 0d 7d  |*4)-1.H%=La%*2.}|
0002b870  b1 0f d6 52 61 3a 41 24  3d 24 60 75 25 0d 7d b2  |...Ra:A$=$`u%.}.|
0002b880  2b c9 32 3a c8 99 22 58  53 70 65 6c 6c 5f 47 65  |+.2:.."XSpell_Ge|
0002b890  74 57 6f 72 64 22 2c 6f  4a 25 b8 2c 41 24 3a 41  |tWord",oJ%.,A$:A|
0002b8a0  24 3d a4 48 28 41 24 29  0d 7d b3 41 c9 33 3a 41  |$=.H(A$).}.A.3:A|
0002b8b0  25 3d 41 25 28 58 5f 25  29 2b 34 3a 42 25 3d 68  |%=A%(X_%)+4:B%=h|
0002b8c0  4a 25 3a 71 25 3d ba 28  6a 79 29 3a 68 4a 25 3d  |J%:q%=.(jy):hJ%=|
0002b8d0  21 69 79 3a e7 21 28 41  25 28 58 5f 25 29 2b 71  |!iy:.!(A%(X_%)+q|
0002b8e0  25 2a 38 29 3c 3e 2d 31  8c 0d 7d b4 4c 41 25 3d  |%*8)<>-1..}.LA%=|
0002b8f0  68 4a 25 3a 42 25 3d 41  25 28 58 5f 25 29 2b 32  |hJ%:B%=A%(X_%)+2|
0002b900  30 34 38 2b 21 28 41 25  28 58 5f 25 29 2b 71 25  |048+!(A%(X_%)+q%|
0002b910  2a 38 29 3a 43 25 3d 60  75 25 3a 44 25 3d 7a 6c  |*8):C%=`u%:D%=zl|
0002b920  25 2d 21 28 41 25 28 58  5f 25 29 2b 71 25 2a 38  |%-!(A%(X_%)+q%*8|
0002b930  29 3a d6 62 79 0d 7d b5  0b cc 3a 41 24 3d 22 22  |):.by.}...:A$=""|
0002b940  0d 7d b6 0d cd 3a 41 24  3d 24 60 75 25 0d 7d b7  |.}...:A$=$`u%.}.|
0002b950  0f cb 3a e7 50 25 3e 3d  30 f2 65 69 0d 7d b8 1e  |..:.P%>=0.ei.}..|
0002b960  f2 41 28 77 25 2c 31 2c  41 24 29 3a f2 47 28 77  |.A(w%,1,A$):.G(w|
0002b970  25 2c 31 2c a9 28 41 24  29 29 0d 7d b9 05 cd 0d  |%,1,.(A$)).}....|
0002b980  7d ba 0f cc 3a e7 68 4a  25 3e 6c 4a 25 8c 0d 7d  |}...:.hJ%>lJ%..}|
0002b990  bb 0a 6f 4a 25 3d 2d 31  0d 7d bc 0e cc 3a e7 6c  |..oJ%=-1.}...:.l|
0002b9a0  4a 25 3e 3d 30 8c 0d 7d  bd 26 6f 4a 25 3d 68 4a  |J%>=0..}.&oJ%=hJ|
0002b9b0  25 3a 41 24 3d a4 5f 28  68 4a 25 29 3a e7 65 6b  |%:A$=._(hJ%):.ek|
0002b9c0  25 3d a3 41 24 3d a4 48  28 41 24 29 0d 7d be 1e  |%=.A$=.H(A$).}..|
0002b9d0  f2 41 28 77 25 2c 31 2c  41 24 29 3a f2 47 28 77  |.A(w%,1,A$):.G(w|
0002b9e0  25 2c 31 2c a9 28 41 24  29 29 0d 7d bf 05 cd 0d  |%,1,.(A$)).}....|
0002b9f0  7d c0 05 cd 0d 7d c1 10  cd 3a e7 6c 4f 25 3c 3e  |}....}...:.lO%<>|
0002ba00  6f 4a 25 8c 0d 7d c2 91  5a 25 21 30 3d 56 5f 25  |oJ%..}..Z%!0=V_%|
0002ba10  3a 5a 25 21 34 3d 30 3a  5a 25 21 38 3d 2d 6f 6c  |:Z%!4=0:Z%!8=-ol|
0002ba20  25 2a 34 30 2d 34 30 3a  5a 25 21 31 32 3d 33 36  |%*40-40:Z%!12=36|
0002ba30  32 3a 5a 25 21 31 36 3d  30 3a c8 99 26 34 30 30  |2:Z%!16=0:..&400|
0002ba40  63 39 2c 2c 5a 25 b8 64  25 3a 4c 25 3d 5a 25 21  |c9,,Z%.d%:L%=Z%!|
0002ba50  34 2d 5a 25 21 32 30 3a  58 25 3d 5a 25 21 31 36  |4-Z%!20:X%=Z%!16|
0002ba60  2d 5a 25 21 32 34 3a c8  95 64 25 3a f2 57 28 33  |-Z%!24:..d%:.W(3|
0002ba70  2c 38 29 3a e7 6c 4f 25  3e 3d 30 c8 93 c8 90 4c  |,8):.lO%>=0....L|
0002ba80  25 2c 58 25 2d 34 2d 34  30 2a 6c 4f 25 2c 33 36  |%,X%-4-40*lO%,36|
0002ba90  38 2c 2d 33 36 0d 7d c3  25 e7 6f 4a 25 3e 3d 30  |8,-36.}.%.oJ%>=0|
0002baa0  c8 93 c8 90 4c 25 2c 58  25 2d 34 2d 34 30 2a 6f  |....L%,X%-4-40*o|
0002bab0  4a 25 2c 33 36 38 2c 2d  33 36 0d 7d c4 15 c8 99  |J%,368,-36.}....|
0002bac0  26 34 30 30 63 61 2c 2c  5a 25 b8 64 25 3a ce 0d  |&400ca,,Z%.d%:..|
0002bad0  7d c5 07 cd 3a e1 0d 7d  c6 7b dd a4 48 28 41 24  |}...:..}.{..H(A$|
0002bae0  29 3a ea 59 4a 25 2c 4f  25 3a e3 59 4a 25 3d 31  |):.YJ%,O%:.YJ%=1|
0002baf0  b8 a9 28 41 24 29 3a 4f  25 3d 97 28 c1 41 24 2c  |..(A$):O%=.(.A$,|
0002bb00  59 4a 25 2c 31 29 29 3a  e7 28 4f 25 3e 3d 97 28  |YJ%,1)):.(O%>=.(|
0002bb10  22 41 22 29 80 4f 25 3c  3d 97 28 22 5a 22 29 29  |"A").O%<=.("Z"))|
0002bb20  84 28 4f 25 3e 3d 97 28  22 c0 22 29 80 4f 25 3c  |.(O%>=.(".").O%<|
0002bb30  3d 97 28 22 de 22 29 29  84 4f 25 3d 37 8c c1 41  |=.(".")).O%=7..A|
0002bb40  24 2c 59 4a 25 2c 31 29  3d bd 28 4f 25 2b 33 32  |$,YJ%,1)=.(O%+32|
0002bb50  29 0d 7d c7 09 ed 3a 3d  41 24 0d 7d c8 2f dd a4  |).}...:=A$.}./..|
0002bb60  60 28 41 24 29 3a e3 59  4a 25 3d 31 b8 a9 28 41  |`(A$):.YJ%=1..(A|
0002bb70  24 29 3a 4f 25 3d 97 28  c1 41 24 2c 59 4a 25 2c  |$):O%=.(.A$,YJ%,|
0002bb80  31 29 29 3a c8 8e 4f 25  ca 0d 7d c9 1a c9 97 28  |1)):..O%..}....(|
0002bb90  22 30 22 29 3a c1 41 24  2c 59 4a 25 2c 31 29 3d  |"0"):.A$,YJ%,1)=|
0002bba0  22 4f 22 0d 7d ca 1a c9  97 28 22 31 22 29 3a c1  |"O".}....("1"):.|
0002bbb0  41 24 2c 59 4a 25 2c 31  29 3d 22 6c 22 0d 7d cb  |A$,YJ%,1)="l".}.|
0002bbc0  1a c9 97 28 22 35 22 29  3a c1 41 24 2c 59 4a 25  |...("5"):.A$,YJ%|
0002bbd0  2c 31 29 3d 22 53 22 0d  7d cc 0b cb 3a ed 3a 3d  |,1)="S".}...:.:=|
0002bbe0  41 24 0d 7d cd 15 dd f2  4a 75 28 62 25 2c 49 25  |A$.}....Ju(b%,I%|
0002bbf0  29 3a c8 8e 49 25 ca 0d  7d ce 06 c9 30 0d 7d cf  |):..I%..}...0.}.|
0002bc00  1f c9 32 3a 59 6e 25 3d  a3 3a f2 78 5f 3a f2 4d  |..2:Yn%=.:.x_:.M|
0002bc10  28 77 25 29 3a f2 4d 28  56 5f 25 29 0d 7d d0 0a  |(w%):.M(V_%).}..|
0002bc20  c9 33 3a f2 66 5f 0d 7d  d1 06 c9 34 0d 7d d2 0a  |.3:.f_.}...4.}..|
0002bc30  c9 35 3a f2 66 4a 0d 7d  d3 22 c9 36 3a 21 71 3d  |.5:.fJ.}.".6:!q=|
0002bc40  30 3a f5 3a f2 56 79 3a  fd 73 69 25 3e 6d 25 2d  |0:.:.Vy:.si%>m%-|
0002bc50  31 84 64 5f 25 3d 2d 31  0d 7d d4 36 c9 37 3a 5a  |1.d_%=-1.}.6.7:Z|
0002bc60  25 21 30 3d 77 25 3a 5a  25 21 34 3d 37 3a c8 99  |%!0=w%:Z%!4=7:..|
0002bc70  26 34 30 30 63 65 2c 2c  5a 25 3a 56 6e 25 3d 28  |&400ce,,Z%:Vn%=(|
0002bc80  5a 25 21 32 34 29 80 28  31 3c 3c 32 31 29 0d 7d  |Z%!24).(1<<21).}|
0002bc90  d5 38 c9 31 30 3a 5a 25  21 30 3d 77 25 3a 5a 25  |.8.10:Z%!0=w%:Z%|
0002bca0  21 34 3d 31 30 3a c8 99  26 34 30 30 63 65 2c 2c  |!4=10:..&400ce,,|
0002bcb0  5a 25 3a 64 6f 25 3d 28  5a 25 21 32 34 29 80 28  |Z%:do%=(Z%!24).(|
0002bcc0  31 3c 3c 32 31 29 0d 7d  d6 0a c9 38 3a f2 59 69  |1<<21).}...8:.Yi|
0002bcd0  0d 7d d7 15 c9 31 31 3a  f2 50 75 28 a4 4d 28 77  |.}...11:.Pu(.M(w|
0002bce0  25 2c 31 29 29 0d 7d d8  0b c9 31 34 3a f2 63 4a  |%,1)).}...14:.cJ|
0002bcf0  0d 7d d9 1c c9 31 33 2c  31 32 3a f2 6a 4a 3a f2  |.}...13,12:.jJ:.|
0002bd00  54 28 54 4a 25 2c 79 25  2c 68 25 29 0d 7d da 07  |T(TJ%,y%,h%).}..|
0002bd10  cb 3a e1 0d 7d db 76 dd  f2 4d 75 3a ea 61 79 25  |.:..}.v..Mu:.ay%|
0002bd20  2c 47 65 25 2c 59 79 24  2c 70 79 25 2c 6c 25 2c  |,Ge%,Yy$,py%,l%,|
0002bd30  43 6c 25 2c 68 75 25 2c  69 75 25 3a e7 6d 25 3d  |Cl%,hu%,iu%:.m%=|
0002bd40  30 84 5f 25 3c 3d 31 8c  f2 58 28 22 4d 65 73 73  |0._%<=1..X("Mess|
0002bd50  61 67 65 20 66 72 6f 6d  20 4f 70 74 69 63 61 6c  |age from Optical|
0002bd60  22 2c 22 54 68 65 72 65  20 69 73 20 6e 6f 20 74  |","There is no t|
0002bd70  65 78 74 20 74 6f 20 72  65 70 6c 61 63 65 2e 22  |ext to replace."|
0002bd80  29 3a 4f 60 25 3d b9 3a  e1 0d 7d dc 58 e7 50 25  |):O`%=.:..}.X.P%|
0002bd90  3d 2d 31 f2 58 28 22 4d  65 73 73 61 67 65 20 66  |=-1.X("Message f|
0002bda0  72 6f 6d 20 4f 70 74 69  63 61 6c 22 2c 22 53 65  |rom Optical","Se|
0002bdb0  6c 65 63 74 20 70 6f 73  69 74 69 6f 6e 20 74 6f  |lect position to|
0002bdc0  20 72 65 70 6c 61 63 65  20 74 65 78 74 20 61 74  | replace text at|
0002bdd0  20 66 69 72 73 74 2e 22  29 3a 4f 60 25 3d b9 3a  | first."):O`%=.:|
0002bde0  e1 0d 7d dd 19 e7 72 79  25 41 24 3d 75 24 8b 41  |..}...ry%A$=u$.A|
0002bdf0  24 3d a4 4d 28 77 25 2c  31 29 0d 7d de 5b e7 a9  |$=.M(w%,1).}.[..|
0002be00  28 41 24 29 3d 30 f2 58  28 22 4d 65 73 73 61 67  |(A$)=0.X("Messag|
0002be10  65 20 66 72 6f 6d 20 4f  70 74 69 63 61 6c 22 2c  |e from Optical",|
0002be20  22 59 6f 75 20 68 61 76  65 20 74 6f 20 65 6e 74  |"You have to ent|
0002be30  65 72 20 61 20 77 6f 72  64 20 74 6f 20 72 65 70  |er a word to rep|
0002be40  6c 61 63 65 20 66 69 72  73 74 21 22 29 3a 4f 60  |lace first!"):O`|
0002be50  25 3d b9 3a e1 0d 7d df  1e e7 72 79 25 3d a3 f2  |%=.:..}...ry%=..|
0002be60  4f 4a 3a 55 6c 25 3d a4  7a 28 50 25 2c a9 28 41  |OJ:Ul%=.z(P%,.(A|
0002be70  24 29 29 0d 7d e0 54 61  79 25 3d 30 3a f2 61 28  |$)).}.Tay%=0:.a(|
0002be80  50 25 29 3a 6c 25 3d 50  79 25 3a 43 5f 25 3d 41  |P%):l%=Py%:C_%=A|
0002be90  25 28 71 79 25 29 3a 59  79 24 3d a4 46 28 51 6c  |%(qy%):Yy$=.F(Ql|
0002bea0  25 29 3a 61 79 25 3d 21  52 5f 2d 21 67 69 3a 4b  |%):ay%=!R_-!gi:K|
0002beb0  25 3d b9 3a e7 21 58 3e  32 35 36 8c 79 5f 25 3d  |%=.:.!X>256.y_%=|
0002bec0  30 8b 79 5f 25 3d 31 0d  7d e1 2c e7 a9 28 41 24  |0.y_%=1.}.,..(A$|
0002bed0  29 3c 3e 61 79 25 e7 21  41 3c 3e 30 84 57 79 25  |)<>ay%.!A<>0.Wy%|
0002bee0  3c 3e 30 84 49 79 25 3c  3e 30 8c c8 94 5f 25 2c  |<>0.Iy%<>0..._%,|
0002bef0  6b 5f 25 0d 7d e2 1d 69  75 25 3d a9 28 41 24 29  |k_%.}..iu%=.(A$)|
0002bf00  2d 61 79 25 3a e7 a9 28  41 24 29 3e 61 79 25 8c  |-ay%:..(A$)>ay%.|
0002bf10  0d 7d e3 22 4b 25 3d a4  41 28 6d 25 2b 61 79 25  |.}."K%=.A(m%+ay%|
0002bf20  2d a9 28 41 24 29 2c 71  79 25 29 3a e7 4b 25 3d  |-.(A$),qy%):.K%=|
0002bf30  a3 8c 0d 7d e4 86 f2 43  28 22 4f 70 74 69 63 61  |...}...C("Optica|
0002bf40  6c 22 2c 22 54 68 65 72  65 20 69 73 20 6e 6f 74  |l","There is not|
0002bf50  20 65 6e 6f 75 67 68 20  66 72 65 65 20 6d 65 6d  | enough free mem|
0002bf60  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
0002bf70  20 72 65 70 6c 61 63 65  20 74 68 69 73 20 77 6f  | replace this wo|
0002bf80  72 64 2e 20 4e 65 65 64  20 61 6e 20 65 78 74 72  |rd. Need an extr|
0002bf90  61 20 31 4b 2e 22 29 3a  72 79 25 3d a3 3a e7 21  |a 1K."):ry%=.:.!|
0002bfa0  41 3c 3e 30 84 57 79 25  3c 3e 30 84 49 79 25 8c  |A<>0.Wy%<>0.Iy%.|
0002bfb0  c8 94 5f 25 2c 6b 5f 25  0d 7d e5 f1 cc 3a 41 25  |.._%,k_%.}...:A%|
0002bfc0  3d 43 5f 25 2b 50 79 25  2b 61 79 25 3a 42 25 3d  |=C_%+Py%+ay%:B%=|
0002bfd0  43 5f 25 2b 50 79 25 2b  a9 28 41 24 29 3a 43 25  |C_%+Py%+.(A$):C%|
0002bfe0  3d 6d 25 2d 50 79 25 2d  61 79 25 3a d6 51 3a 41  |=m%-Py%-ay%:.Q:A|
0002bff0  25 3d 61 25 2b 28 50 25  2b 61 79 25 29 2a 38 3a  |%=a%+(P%+ay%)*8:|
0002c000  42 25 3d 61 25 2b 28 50  25 2b a9 28 41 24 29 29  |B%=a%+(P%+.(A$))|
0002c010  2a 38 3a 43 25 3d 28 5f  25 2d 50 25 2d 61 79 25  |*8:C%=(_%-P%-ay%|
0002c020  29 2a 38 3a d6 51 3a 41  25 3d 4d 79 25 2b 28 50  |)*8:.Q:A%=My%+(P|
0002c030  25 2b 61 79 25 29 2a 32  3a 42 25 3d 4d 79 25 2b  |%+ay%)*2:B%=My%+|
0002c040  28 50 25 2b a9 28 41 24  29 29 2a 32 3a 43 25 3d  |(P%+.(A$))*2:C%=|
0002c050  28 5f 25 2d 50 25 2d 61  79 25 29 2a 32 3a d6 51  |(_%-P%-ay%)*2:.Q|
0002c060  3a 41 25 3d 50 75 25 2b  50 25 2b 61 79 25 3a 42  |:A%=Pu%+P%+ay%:B|
0002c070  25 3d 50 75 25 2b 50 25  2b a9 28 41 24 29 3a 43  |%=Pu%+P%+.(A$):C|
0002c080  25 3d 5f 25 2d 50 25 2d  61 79 25 3a d6 51 3a e7  |%=_%-P%-ay%:.Q:.|
0002c090  57 79 25 3c 3e 30 84 21  41 3c 3e 30 84 49 79 25  |Wy%<>0.!A<>0.Iy%|
0002c0a0  8c c8 94 5f 25 2c 6b 5f  25 0d 7d e6 3e 6d 25 2b  |..._%,k_%.}.>m%+|
0002c0b0  3d 69 75 25 3a 5f 25 2b  3d 69 75 25 3a e7 21 41  |=iu%:_%+=iu%:.!A|
0002c0c0  3c 3e 30 84 57 79 25 3c  3e 30 84 49 79 25 8c 6b  |<>0.Wy%<>0.Iy%.k|
0002c0d0  5f 25 2b 3d 69 75 25 3a  21 55 2b 3d 69 75 25 3a  |_%+=iu%:!U+=iu%:|
0002c0e0  21 64 2b 3d 69 75 25 0d  7d e7 0b e7 41 24 3d 72  |!d+=iu%.}...A$=r|
0002c0f0  24 8c 0d 7d e8 54 e3 42  69 25 3d 30 b8 a9 28 41  |$..}.T.Bi%=0..(A|
0002c100  24 29 2d 31 3a 21 28 61  25 2b 28 50 25 2b 42 69  |$)-1:!(a%+(P%+Bi|
0002c110  25 29 2a 38 29 3d 21 28  73 4f 25 2b 42 69 25 2a  |%)*8)=!(sO%+Bi%*|
0002c120  38 29 3a 21 28 61 25 2b  28 50 25 2b 42 69 25 29  |8):!(a%+(P%+Bi%)|
0002c130  2a 38 2b 34 29 3d 21 28  73 4f 25 2b 42 69 25 2a  |*8+4)=!(sO%+Bi%*|
0002c140  38 2b 34 29 3a ed 0d 7d  e9 72 cc 3a e3 5f 79 25  |8+4):..}.r.:._y%|
0002c150  3d 50 25 2b 61 79 25 2b  79 5f 25 b8 50 25 2b a9  |=P%+ay%+y_%.P%+.|
0002c160  28 41 24 29 2d 31 2b 79  5f 25 88 38 3a 21 28 61  |(A$)-1+y_%.8:!(a|
0002c170  25 2b 5f 79 25 2a 38 29  3d 21 28 61 25 2b 28 50  |%+_y%*8)=!(a%+(P|
0002c180  25 2b 61 79 25 2d 31 2b  79 5f 25 29 2a 38 29 3a  |%+ay%-1+y_%)*8):|
0002c190  21 28 61 25 2b 5f 79 25  2a 38 2b 34 29 3d 21 28  |!(a%+_y%*8+4)=!(|
0002c1a0  61 25 2b 28 50 25 2b 61  79 25 2d 31 2b 79 5f 25  |a%+(P%+ay%-1+y_%|
0002c1b0  29 2a 38 2b 34 29 3a ed  0d 7d ea 25 cd 3a 68 75  |)*8+4):..}.%.:hu|
0002c1c0  25 3d b9 3a e3 50 4a 25  3d 30 b8 65 5f 25 3a e7  |%=.:.PJ%=0.e_%:.|
0002c1d0  21 58 3c 32 35 36 80 68  75 25 3d b9 8c 0d 7d eb  |!X<256.hu%=...}.|
0002c1e0  19 e7 4b 79 25 21 28 50  4a 25 2a 34 29 3e 50 25  |..Ky%!(PJ%*4)>P%|
0002c1f0  8c 68 75 25 3d a3 0d 7d  ec 2c cc 3a e7 4b 79 25  |.hu%=..}.,.:.Ky%|
0002c200  21 28 50 4a 25 2a 34 29  3e 50 25 8c 4b 79 25 21  |!(PJ%*4)>P%.Ky%!|
0002c210  28 50 4a 25 2a 34 29 2b  3d a9 28 41 24 29 2d 61  |(PJ%*4)+=.(A$)-a|
0002c220  79 25 0d 7d ed 07 cd 3a  ed 0d 7d ee 05 cd 0d 7d  |y%.}...:..}....}|
0002c230  ef 12 cd 3a e7 4b 25 3d  a3 4f 60 25 3d b9 3a e1  |...:.K%=.O`%=.:.|
0002c240  0d 7d f0 0f e7 61 79 25  3e a9 28 41 24 29 8c 0d  |.}...ay%>.(A$)..|
0002c250  7d f1 0a e7 4b 25 3d a3  8c 0d 7d f2 86 f2 43 28  |}...K%=...}...C(|
0002c260  22 4f 70 74 69 63 61 6c  22 2c 22 54 68 65 72 65  |"Optical","There|
0002c270  20 69 73 20 6e 6f 74 20  65 6e 6f 75 67 68 20 66  | is not enough f|
0002c280  72 65 65 20 6d 65 6d 6f  72 79 20 61 76 61 69 6c  |ree memory avail|
0002c290  61 62 6c 65 20 74 6f 20  72 65 70 6c 61 63 65 20  |able to replace |
0002c2a0  74 68 69 73 20 77 6f 72  64 2e 20 4e 65 65 64 20  |this word. Need |
0002c2b0  61 6e 20 65 78 74 72 61  20 31 4b 2e 22 29 3a 72  |an extra 1K."):r|
0002c2c0  79 25 3d a3 3a e7 21 41  3c 3e 30 84 57 79 25 3c  |y%=.:.!A<>0.Wy%<|
0002c2d0  3e 30 84 49 79 25 8c c8  94 5f 25 2c 6b 5f 25 0d  |>0.Iy%..._%,k_%.|
0002c2e0  7d f3 f1 cc 3a 41 25 3d  43 5f 25 2b 50 79 25 2b  |}...:A%=C_%+Py%+|
0002c2f0  61 79 25 3a 42 25 3d 43  5f 25 2b 50 79 25 2b a9  |ay%:B%=C_%+Py%+.|
0002c300  28 41 24 29 3a 43 25 3d  6d 25 2d 50 79 25 2d 61  |(A$):C%=m%-Py%-a|
0002c310  79 25 3a d6 54 3a 41 25  3d 61 25 2b 28 50 25 2b  |y%:.T:A%=a%+(P%+|
0002c320  61 79 25 29 2a 38 3a 42  25 3d 61 25 2b 28 50 25  |ay%)*8:B%=a%+(P%|
0002c330  2b a9 28 41 24 29 29 2a  38 3a 43 25 3d 28 5f 25  |+.(A$))*8:C%=(_%|
0002c340  2d 50 25 2d 61 79 25 29  2a 38 3a d6 54 3a 41 25  |-P%-ay%)*8:.T:A%|
0002c350  3d 4d 79 25 2b 28 50 25  2b 61 79 25 29 2a 32 3a  |=My%+(P%+ay%)*2:|
0002c360  42 25 3d 4d 79 25 2b 28  50 25 2b a9 28 41 24 29  |B%=My%+(P%+.(A$)|
0002c370  29 2a 32 3a 43 25 3d 28  5f 25 2d 50 25 2d 61 79  |)*2:C%=(_%-P%-ay|
0002c380  25 29 2a 32 3a d6 54 3a  41 25 3d 50 75 25 2b 50  |%)*2:.T:A%=Pu%+P|
0002c390  25 2b 61 79 25 3a 42 25  3d 50 75 25 2b 50 25 2b  |%+ay%:B%=Pu%+P%+|
0002c3a0  a9 28 41 24 29 3a 43 25  3d 5f 25 2d 50 25 2d 61  |.(A$):C%=_%-P%-a|
0002c3b0  79 25 3a d6 54 3a e7 57  79 25 3c 3e 30 84 21 41  |y%:.T:.Wy%<>0.!A|
0002c3c0  3c 3e 30 84 49 79 25 8c  c8 94 5f 25 2c 6b 5f 25  |<>0.Iy%..._%,k_%|
0002c3d0  0d 7d f4 3e 6d 25 2b 3d  69 75 25 3a 5f 25 2b 3d  |.}.>m%+=iu%:_%+=|
0002c3e0  69 75 25 3a e7 21 41 3c  3e 30 84 57 79 25 3c 3e  |iu%:.!A<>0.Wy%<>|
0002c3f0  30 84 49 79 25 8c 6b 5f  25 2b 3d 69 75 25 3a 21  |0.Iy%.k_%+=iu%:!|
0002c400  55 2b 3d 69 75 25 3a 21  64 2b 3d 69 75 25 0d 7d  |U+=iu%:!d+=iu%.}|
0002c410  f5 0b e7 41 24 3d 72 24  8c 0d 7d f6 54 e3 42 69  |...A$=r$..}.T.Bi|
0002c420  25 3d 30 b8 a9 28 41 24  29 2d 31 3a 21 28 61 25  |%=0..(A$)-1:!(a%|
0002c430  2b 28 50 25 2b 42 69 25  29 2a 38 29 3d 21 28 73  |+(P%+Bi%)*8)=!(s|
0002c440  4f 25 2b 42 69 25 2a 38  29 3a 21 28 61 25 2b 28  |O%+Bi%*8):!(a%+(|
0002c450  50 25 2b 42 69 25 29 2a  38 2b 34 29 3d 21 28 73  |P%+Bi%)*8+4)=!(s|
0002c460  4f 25 2b 42 69 25 2a 38  2b 34 29 3a ed 0d 7d f7  |O%+Bi%*8+4):..}.|
0002c470  25 cd 3a 68 75 25 3d b9  3a e3 50 4a 25 3d 30 b8  |%.:hu%=.:.PJ%=0.|
0002c480  65 5f 25 3a e7 21 58 3c  32 35 36 80 68 75 25 3d  |e_%:.!X<256.hu%=|
0002c490  b9 8c 0d 7d f8 19 e7 4b  79 25 21 28 50 4a 25 2a  |...}...Ky%!(PJ%*|
0002c4a0  34 29 3e 50 25 8c 68 75  25 3d a3 0d 7d f9 2c cc  |4)>P%.hu%=..}.,.|
0002c4b0  3a e7 4b 79 25 21 28 50  4a 25 2a 34 29 3e 50 25  |:.Ky%!(PJ%*4)>P%|
0002c4c0  8c 4b 79 25 21 28 50 4a  25 2a 34 29 2d 3d 61 79  |.Ky%!(PJ%*4)-=ay|
0002c4d0  25 2d a9 28 41 24 29 0d  7d fa 15 cd 3a ed 3a 4b  |%-.(A$).}...:.:K|
0002c4e0  25 3d a4 41 28 6d 25 2c  71 79 25 29 0d 7d fb 05  |%=.A(m%,qy%).}..|
0002c4f0  cd 0d 7d fc 29 cd 3a 6c  25 3d 31 3a 43 6c 25 3d  |..}.).:l%=1:Cl%=|
0002c500  30 3a 70 79 25 3d 30 3a  f5 3a c8 8e 43 5f 25 3f  |0:py%=0:.:..C_%?|
0002c510  28 50 79 25 2b 43 6c 25  29 ca 0d 7d fd 0f c9 32  |(Py%+Cl%)..}...2|
0002c520  2c 33 3a 43 6c 25 2b 3d  32 0d 7d fe 55 c9 38 3a  |,3:Cl%+=2.}.U.8:|
0002c530  4d 79 25 3f 28 28 50 25  2b 70 79 25 29 2a 32 2b  |My%?((P%+py%)*2+|
0002c540  31 29 3d 28 4d 79 25 3f  28 28 50 25 2b 70 79 25  |1)=(My%?((P%+py%|
0002c550  29 2a 32 2b 31 29 80 32  32 37 29 84 38 3a e7 43  |)*2+1).227).8:.C|
0002c560  5f 25 3f 28 50 79 25 2b  70 79 25 2b 31 29 3d 31  |_%?(Py%+py%+1)=1|
0002c570  30 43 6c 25 2b 3d 32 8b  43 6c 25 2b 3d 31 0d 7d  |0Cl%+=2.Cl%+=1.}|
0002c580  ff 0a 70 79 25 2b 3d 31  0d 7e 00 22 7f 3a 4f 25  |..py%+=1.~.".:O%|
0002c590  3d 97 28 c1 41 24 2c 6c  25 2c 31 29 29 3a e7 4f  |=.(.A$,l%,1)):.O|
0002c5a0  25 3d 33 32 8c 4f 25 3d  31 34 0d 7e 01 2d e7 4f  |%=32.O%=14.~.-.O|
0002c5b0  25 3d 97 28 22 27 22 29  80 43 5f 25 3f 28 50 79  |%=.("'").C_%?(Py|
0002c5c0  25 2b 43 6c 25 29 3d 97  28 22 91 22 29 8c 4f 25  |%+Cl%)=.(".").O%|
0002c5d0  3d 97 28 22 91 22 29 0d  7e 02 46 43 5f 25 3f 28  |=.(".").~.FC_%?(|
0002c5e0  50 79 25 2b 43 6c 25 29  3d 4f 25 3a 4d 79 25 3f  |Py%+Cl%)=O%:My%?|
0002c5f0  28 28 50 25 2b 70 79 25  29 2a 32 29 3d 28 4d 79  |((P%+py%)*2)=(My|
0002c600  25 3f 28 28 50 25 2b 70  79 25 29 2a 32 29 80 33  |%?((P%+py%)*2).3|
0002c610  29 2b 55 6c 25 2a 34 3a  e7 72 79 25 8c 0d 7e 03  |)+Ul%*4:.ry%..~.|
0002c620  41 4d 79 25 3f 28 28 50  25 2b 70 79 25 29 2a 32  |AMy%?((P%+py%)*2|
0002c630  2b 31 29 3d 28 4d 79 25  3f 28 28 50 25 2b 70 79  |+1)=(My%?((P%+py|
0002c640  25 29 2a 32 2b 31 29 80  32 32 37 29 84 38 3a 50  |%)*2+1).227).8:P|
0002c650  75 25 3f 28 50 25 2b 70  79 25 29 3d 4f 25 0d 7e  |u%?(P%+py%)=O%.~|
0002c660  04 4c cc 3a 4d 79 25 3f  28 28 50 25 2b 70 79 25  |.L.:My%?((P%+py%|
0002c670  29 2a 32 2b 31 29 3d 4d  79 25 3f 28 28 50 25 2b  |)*2+1)=My%?((P%+|
0002c680  70 79 25 29 2a 32 2b 31  29 80 32 32 37 3a e7 57  |py%)*2+1).227:.W|
0002c690  79 25 3d 30 80 21 41 3d  30 80 49 79 25 3d 30 f2  |y%=0.!A=0.Iy%=0.|
0002c6a0  41 79 28 50 25 2b 70 79  25 29 0d 7e 05 38 cd 3a  |Ay(P%+py%).~.8.:|
0002c6b0  e7 a9 28 41 24 29 3c 3e  61 79 25 4d 79 25 3f 28  |..(A$)<>ay%My%?(|
0002c6c0  28 50 25 2b 70 79 25 29  2a 32 2b 31 29 3d 4d 79  |(P%+py%)*2+1)=My|
0002c6d0  25 3f 28 28 50 25 2b 70  79 25 29 2a 32 2b 31 29  |%?((P%+py%)*2+1)|
0002c6e0  84 32 0d 7e 06 17 6c 25  2b 3d 31 3a 43 6c 25 2b  |.2.~..l%+=1:Cl%+|
0002c6f0  3d 31 3a 70 79 25 2b 3d  31 0d 7e 07 30 cb 3a fd  |=1:py%+=1.~.0.:.|
0002c700  6c 25 3e a9 28 41 24 29  3a e7 57 79 25 3d 30 80  |l%>.(A$):.Wy%=0.|
0002c710  21 41 3d 30 80 49 79 25  3d 30 80 72 79 25 3d a3  |!A=0.Iy%=0.ry%=.|
0002c720  78 79 25 3d 2d 31 3a f2  64 0d 7e 08 1c e7 57 79  |xy%=-1:.d.~...Wy|
0002c730  25 3d 30 80 21 41 3d 30  80 49 79 25 3d 30 80 76  |%=0.!A=0.Iy%=0.v|
0002c740  79 25 3d a3 8c 0d 7e 09  28 6d 25 3d 51 79 25 3a  |y%=...~.(m%=Qy%:|
0002c750  58 75 25 3d 74 5f 25 3a  65 5f 25 3d 47 69 25 3a  |Xu%=t_%:e_%=Gi%:|
0002c760  f2 4a 79 3a f2 72 3a f2  4a 28 65 25 29 0d 7e 0a  |.Jy:.r:.J(e%).~.|
0002c770  27 cd 3a e7 72 79 25 3d  a3 e7 61 79 25 3c a9 28  |'.:.ry%=..ay%<.(|
0002c780  41 24 29 84 61 79 25 3e  a9 28 41 24 29 8c f2 4a  |A$).ay%>.(A$)..J|
0002c790  28 65 25 29 0d 7e 0b 17  e7 57 79 25 3d 30 80 21  |(e%).~...Wy%=0.!|
0002c7a0  41 3d 30 80 49 79 25 3d  30 f2 74 0d 7e 0c 05 e1  |A=0.Iy%=0.t.~...|
0002c7b0  0d 7e 0d 7b dd f2 59 69  3a e7 a4 55 28 22 57 61  |.~.{..Yi:..U("Wa|
0002c7c0  72 6e 69 6e 67 20 66 72  6f 6d 20 4f 70 74 69 63  |rning from Optic|
0002c7d0  61 6c 22 2c 22 41 62 6f  75 74 20 74 6f 20 75 70  |al","About to up|
0002c7e0  64 61 74 65 20 6c 65 78  69 63 6f 6e 20 6f 6e 20  |date lexicon on |
0002c7f0  64 69 73 63 2e 20 43 6c  69 63 6b 20 6f 6e 20 4f  |disc. Click on O|
0002c800  4b 20 69 66 20 79 6f 75  20 61 72 65 20 73 75 72  |K if you are sur|
0002c810  65 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 64 6f  |e you want to do|
0002c820  20 74 68 69 73 2e 22 29  3d a3 e1 0d 7e 0e 87 c8  | this.")=...~...|
0002c830  99 26 34 30 36 63 30 3a  ff 28 22 53 61 76 65 20  |.&406c0:.("Save |
0002c840  3c 4f 70 74 63 6c 50 72  6f 24 44 69 72 3e 2e 44  |<OptclPro$Dir>.D|
0002c850  69 63 74 69 6f 6e 61 72  79 20 22 2b c3 7e 28 41  |ictionary "+.~(A|
0002c860  25 28 4d 4a 25 29 29 2b  22 20 2b 22 2b c3 7e 28  |%(MJ%))+" +"+.~(|
0002c870  4c 61 25 29 29 3a ff 28  22 53 65 74 54 79 70 65  |La%)):.("SetType|
0002c880  20 3c 4f 70 74 63 6c 50  72 6f 24 44 69 72 3e 2e  | <OptclPro$Dir>.|
0002c890  44 69 63 74 69 6f 6e 61  72 79 20 44 61 74 61 22  |Dictionary Data"|
0002c8a0  29 3a c8 99 26 34 30 36  63 31 3a 66 61 25 3d b9  |):..&406c1:fa%=.|
0002c8b0  3a e1 0d 7e 0f 18 dd f2  64 5f 3a e7 46 79 25 3d  |:..~....d_:.Fy%=|
0002c8c0  30 f2 4a 28 56 5f 25 29  3a e1 0d 7e 10 21 6c 4a  |0.J(V_%):..~.!lJ|
0002c8d0  25 3d 2d 31 3a 57 24 3d  c0 a4 4d 28 77 25 2c 31  |%=-1:W$=..M(w%,1|
0002c8e0  29 2c 31 29 3a c8 8e 46  79 25 ca 0d 7e 11 2e c9  |),1):..Fy%..~...|
0002c8f0  31 3a e7 57 24 3c 3e 22  22 e7 57 24 3c 22 41 22  |1:.W$<>"".W$<"A"|
0002c900  84 57 24 3e 22 7a 22 84  28 57 24 3e 22 5a 22 80  |.W$>"z".(W$>"Z".|
0002c910  57 24 3c 22 61 22 29 8c  e1 0d 7e 12 3f c9 32 3a  |W$<"a")...~.?.2:|
0002c920  e7 57 24 3c 3e 22 22 e7  28 57 24 3c 22 c0 22 80  |.W$<>"".(W$<".".|
0002c930  57 24 3c 3e 22 ff 22 29  e7 57 24 3c 22 41 22 84  |W$<>".").W$<"A".|
0002c940  57 24 3e 22 7a 22 84 28  57 24 3e 22 5a 22 80 57  |W$>"z".(W$>"Z".W|
0002c950  24 3c 22 61 22 29 8c e1  0d 7e 13 06 c9 33 0d 7e  |$<"a")...~...3.~|
0002c960  14 13 cb 3a e7 a4 4d 28  77 25 2c 31 29 3d 22 22  |...:..M(w%,1)=""|
0002c970  8c 0d 7e 15 09 6f 4a 25  3d 30 0d 7e 16 26 cc 3a  |..~..oJ%=0.~.&.:|
0002c980  6f 4a 25 3d a4 41 79 28  a4 4d 28 77 25 2c 31 29  |oJ%=.Ay(.M(w%,1)|
0002c990  29 2d 31 3a e7 6f 4a 25  3c 30 8c 6f 4a 25 3d 30  |)-1:.oJ%<0.oJ%=0|
0002c9a0  0d 7e 17 12 41 24 3d 24  51 6c 25 3a c8 8e 46 79  |.~..A$=$Ql%:..Fy|
0002c9b0  25 ca 0d 7e 18 18 c9 31  3a e7 97 28 c0 41 24 2c  |%..~...1:..(.A$,|
0002c9c0  31 29 29 2d 39 38 3e 3d  30 8c 0d 7e 19 24 e3 6c  |1))-98>=0..~.$.l|
0002c9d0  25 3d 30 b8 97 28 c0 41  24 2c 31 29 29 2d 39 38  |%=0..(.A$,1))-98|
0002c9e0  3a 6f 4a 25 2b 3d 57 25  28 6c 25 29 3a ed 0d 7e  |:oJ%+=W%(l%):..~|
0002c9f0  1a 05 cd 0d 7e 1b 05 cb  0d 7e 1c 4f cd 3a 51 61  |....~....~.O.:Qa|
0002ca00  25 3d b9 3a f2 4f 79 28  6f 6c 25 29 3a 5a 25 21  |%=.:.Oy(ol%):Z%!|
0002ca10  30 3d 56 5f 25 3a c8 99  26 34 30 30 63 62 2c 2c  |0=V_%:..&400cb,,|
0002ca20  5a 25 3a 5a 25 21 32 34  3d 2d 6f 4a 25 2a 34 30  |Z%:Z%!24=-oJ%*40|
0002ca30  3a c8 99 26 34 30 30 63  35 2c 2c 5a 25 3a f2 4a  |:..&400c5,,Z%:.J|
0002ca40  28 56 5f 25 29 3a e1 0d  7e 1d 2d dd a4 57 79 28  |(V_%):..~.-..Wy(|
0002ca50  42 24 2c 56 69 25 29 3a  e7 a4 4c 28 42 24 29 3e  |B$,Vi%):..L(B$)>|
0002ca60  2d 31 f1 42 24 22 20 20  20 20 20 20 20 20 20 20  |-1.B$"          |
0002ca70  20 20 22 3b 0d 7e 1e 1b  f5 3a 44 79 24 3d c1 42  |  ";.~...:Dy$=.B|
0002ca80  24 2c 56 69 25 2c 31 29  3a c8 8e 44 79 24 ca 0d  |$,Vi%,1):..Dy$..|
0002ca90  7e 1f 1b c9 22 64 22 3a  55 24 3d 22 63 6c 22 3a  |~..."d":U$="cl":|
0002caa0  71 25 3d 31 3a 64 5f 25  3d b9 0d 7e 20 1b c9 22  |q%=1:d_%=..~ .."|
0002cab0  6d 22 3a 55 24 3d 22 6e  6e 22 3a 71 25 3d 31 3a  |m":U$="nn":q%=1:|
0002cac0  64 5f 25 3d b9 0d 7e 21  1a c9 22 66 22 3a 55 24  |d_%=..~!.."f":U$|
0002cad0  3d 22 72 22 3a 71 25 3d  30 3a 64 5f 25 3d b9 0d  |="r":q%=0:d_%=..|
0002cae0  7e 22 1a c9 22 72 22 3a  55 24 3d 22 66 22 3a 71  |~".."r":U$="f":q|
0002caf0  25 3d 30 3a 64 5f 25 3d  b9 0d 7e 23 1a c9 22 63  |%=0:d_%=..~#.."c|
0002cb00  22 3a 55 24 3d 22 65 22  3a 71 25 3d 30 3a 64 5f  |":U$="e":q%=0:d_|
0002cb10  25 3d b9 0d 7e 24 1a c9  22 65 22 3a 55 24 3d 22  |%=..~$.."e":U$="|
0002cb20  6f 22 3a 71 25 3d 30 3a  64 5f 25 3d b9 0d 7e 25  |o":q%=0:d_%=..~%|
0002cb30  1a c9 22 6f 22 3a 55 24  3d 22 65 22 3a 71 25 3d  |.."o":U$="e":q%=|
0002cb40  30 3a 64 5f 25 3d b9 0d  7e 26 1a c9 22 70 22 3a  |0:d_%=..~&.."p":|
0002cb50  55 24 3d 22 71 22 3a 71  25 3d 30 3a 64 5f 25 3d  |U$="q":q%=0:d_%=|
0002cb60  b9 0d 7e 27 1a c9 22 71  22 3a 55 24 3d 22 70 22  |..~'.."q":U$="p"|
0002cb70  3a 71 25 3d 30 3a 64 5f  25 3d b9 0d 7e 28 1a c9  |:q%=0:d_%=..~(..|
0002cb80  22 68 22 3a 55 24 3d 22  6e 22 3a 71 25 3d 30 3a  |"h":U$="n":q%=0:|
0002cb90  64 5f 25 3d b9 0d 7e 29  1a c9 22 6e 22 3a 55 24  |d_%=..~).."n":U$|
0002cba0  3d 22 68 22 3a 71 25 3d  30 3a 64 5f 25 3d b9 0d  |="h":q%=0:d_%=..|
0002cbb0  7e 2a 1a c9 22 69 22 3a  55 24 3d 22 6c 22 3a 71  |~*.."i":U$="l":q|
0002cbc0  25 3d 30 3a 64 5f 25 3d  b9 0d 7e 2b 1a c9 22 6c  |%=0:d_%=..~+.."l|
0002cbd0  22 3a 55 24 3d 22 49 22  3a 71 25 3d 30 3a 64 5f  |":U$="I":q%=0:d_|
0002cbe0  25 3d b9 0d 7e 2c 1a c9  22 49 22 3a 55 24 3d 22  |%=..~,.."I":U$="|
0002cbf0  6c 22 3a 71 25 3d 30 3a  64 5f 25 3d b9 0d 7e 2d  |l":q%=0:d_%=..~-|
0002cc00  0a 7f 64 5f 25 3d a3 0d  7e 2e 0b cb 3a e7 64 5f  |..d_%=..~...:.d_|
0002cc10  25 8c 0d 7e 2f 2e 59 6b  25 3d a4 57 79 28 c0 42  |%..~/.Yk%=.Wy(.B|
0002cc20  24 2c 56 69 25 2d 31 29  2b 55 24 2b c1 42 24 2c  |$,Vi%-1)+U$+.B$,|
0002cc30  56 69 25 2b 31 29 2c 56  69 25 2b 31 2b 71 25 29  |Vi%+1),Vi%+1+q%)|
0002cc40  0d 7e 30 1a cd 3a 56 69  25 2b 3d 31 3a fd 56 69  |.~0..:Vi%+=1:.Vi|
0002cc50  25 3e a9 28 42 24 29 3a  3d 30 0d 7e 31 4c dd f2  |%>.(B$):=0.~1L..|
0002cc60  66 5f 3a ea 79 6e 25 2c  6b 6e 25 2c 5f 70 25 2c  |f_:.yn%,kn%,_p%,|
0002cc70  59 70 25 2c 41 24 2c 7a  70 25 2c 5f 79 25 2c 79  |Yp%,A$,zp%,_y%,y|
0002cc80  5f 25 2c 4f 5a 25 2c 4e  72 25 2c 6f 5a 25 2c 49  |_%,OZ%,Nr%,oZ%,I|
0002cc90  24 2c 72 25 2c 60 60 25  2c 6d 24 2c 69 24 3a e7  |$,r%,``%,m$,i$:.|
0002cca0  46 79 25 3d 30 e1 0d 7e  32 1d 51 61 25 3d a3 3a  |Fy%=0..~2.Qa%=.:|
0002ccb0  6f 4a 25 3d 2d 31 3a e7  50 25 3e 2d 31 f2 61 28  |oJ%=-1:.P%>-1.a(|
0002ccc0  50 25 29 0d 7e 33 19 e7  72 79 25 41 24 3d 75 24  |P%).~3..ry%A$=u$|
0002ccd0  8b 41 24 3d a4 4d 28 77  25 2c 31 29 0d 7e 34 11  |.A$=.M(w%,1).~4.|
0002cce0  e7 21 66 79 3c 3e 30 8c  f2 79 61 3a e1 0d 7e 35  |.!fy<>0..ya:..~5|
0002ccf0  16 e7 72 79 25 3d b9 80  59 6e 25 3d b9 8c f2 59  |..ry%=..Yn%=...Y|
0002cd00  79 3a e1 0d 7e 36 2b e7  41 24 3d 22 22 84 a9 28  |y:..~6+.A$=""..(|
0002cd10  41 24 29 3e 79 61 25 f2  4f 79 28 30 29 3a f2 4a  |A$)>ya%.Oy(0):.J|
0002cd20  28 56 5f 25 29 3a 6c 4a  25 3d 2d 31 3a e1 0d 7e  |(V_%):lJ%=-1:..~|
0002cd30  37 be c8 99 26 34 30 36  63 30 3a 69 6b 25 3d a4  |7...&406c0:ik%=.|
0002cd40  72 28 41 24 29 3a 49 24  3d 41 24 3a 41 24 3d a4  |r(A$):I$=A$:A$=.|
0002cd50  48 28 41 24 29 3a 41 24  3d a4 60 28 41 24 29 3a  |H(A$):A$=.`(A$):|
0002cd60  55 6c 25 3d a4 7a 28 50  25 2c a9 28 41 24 29 29  |Ul%=.z(P%,.(A$))|
0002cd70  3a 21 63 75 3d 55 6c 25  3a 24 51 6c 25 3d 41 24  |:!cu=Ul%:$Ql%=A$|
0002cd80  3a 4b 25 3d a4 41 28 73  6e 25 2a 79 61 25 2c 6d  |:K%=.A(sn%*ya%,m|
0002cd90  60 25 29 3a e7 4b 25 3d  a3 f2 43 28 22 4f 70 74  |`%):.K%=..C("Opt|
0002cda0  69 63 61 6c 22 2c 22 54  68 65 72 65 20 69 73 20  |ical","There is |
0002cdb0  6e 6f 74 20 65 6e 6f 75  67 68 20 66 72 65 65 20  |not enough free |
0002cdc0  6d 65 6d 6f 72 79 20 61  76 61 69 6c 61 62 6c 65  |memory available|
0002cdd0  20 74 6f 20 67 75 65 73  73 20 74 68 69 73 20 77  | to guess this w|
0002cde0  6f 72 64 2e 22 29 3a f2  6d 5f 3a e1 0d 7e 38 2a  |ord."):.m_:..~8*|
0002cdf0  21 4b 69 3d 56 6e 25 3a  21 60 75 3d 50 25 3a e7  |!Ki=Vn%:!`u=P%:.|
0002ce00  28 56 6e 25 3c 3e 30 84  57 69 25 3c 3e 30 29 80  |(Vn%<>0.Wi%<>0).|
0002ce10  50 25 3e 3d 30 8c 0d 7e  39 80 21 72 4a 3d 66 42  |P%>=0..~9.!rJ=fB|
0002ce20  25 3a 21 46 6c 3d 69 6b  25 3a 21 76 61 3d 41 25  |%:!Fl=ik%:!va=A%|
0002ce30  28 75 25 29 2b 34 3a 21  50 75 3d 21 28 41 25 28  |(u%)+4:!Pu=!(A%(|
0002ce40  75 25 29 29 3a 21 72 61  3d 61 25 2b 50 25 2a 38  |u%)):!ra=a%+P%*8|
0002ce50  3a 44 25 3d 4b 79 25 3a  45 25 3d 50 25 3a 4f 5a  |:D%=Ky%:E%=P%:OZ|
0002ce60  25 3d ba 28 41 79 29 3a  21 41 61 3d 33 30 2f 28  |%=.(Ay):!Aa=30/(|
0002ce70  4a 4a 25 21 28 4f 5a 25  2a 34 29 29 2a 28 31 3c  |JJ%!(OZ%*4))*(1<|
0002ce80  3c 31 36 29 3a 21 55 6c  3d 55 6c 25 3a 21 54 6c  |<16):!Ul=Ul%:!Tl|
0002ce90  3d a9 28 41 24 29 0d 7e  3a 6d cd 3a 21 78 6c 3d  |=.(A$).~:m.:!xl=|
0002cea0  41 25 28 6d 60 25 29 3a  21 53 6c 3d 73 6e 25 2d  |A%(m`%):!Sl=sn%-|
0002ceb0  31 3a 21 57 6c 3d 60 75  25 3a 21 76 75 3d a9 28  |1:!Wl=`u%:!vu=.(|
0002cec0  41 24 29 3a 21 4b 75 3d  68 75 25 3a 21 48 75 3d  |A$):!Ku=hu%:!Hu=|
0002ced0  6a 61 25 3a 21 72 75 3d  51 6c 25 3a 21 4e 75 3d  |ja%:!ru=Ql%:!Nu=|
0002cee0  41 25 28 4d 4a 25 29 3a  21 64 5f 3d 6f 6c 25 3a  |A%(MJ%):!d_=ol%:|
0002cef0  21 65 5f 3d 31 2b a9 28  41 24 29 81 34 3a e7 56  |!e_=1+.(A$).4:.V|
0002cf00  6e 25 8c 0d 7e 3b 44 70  25 3d 30 3a e3 5f 79 25  |n%..~;Dp%=0:._y%|
0002cf10  3d 50 25 b8 50 25 2b a9  28 41 24 29 2d 31 2b 79  |=P%.P%+.(A$)-1+y|
0002cf20  5f 25 3a e7 28 4d 79 25  3f 28 5f 79 25 2a 32 29  |_%:.(My%?(_y%*2)|
0002cf30  80 33 29 3e 31 8c 6b 4f  25 3f 70 25 3d 31 8b 6b  |.3)>1.kO%?p%=1.k|
0002cf40  4f 25 3f 70 25 3d 30 0d  7e 3c 15 e7 5f 79 25 2d  |O%?p%=0.~<.._y%-|
0002cf50  50 25 3c 3e 21 58 8c 70  25 2b 3d 31 0d 7e 3d 05  |P%<>!X.p%+=1.~=.|
0002cf60  ed 0d 7e 3e 32 cc 3a 70  25 3d 30 3a e3 5f 79 25  |..~>2.:p%=0:._y%|
0002cf70  3d 50 25 b8 50 25 2b a9  28 41 24 29 2d 31 2b 79  |=P%.P%+.(A$)-1+y|
0002cf80  5f 25 3a 6b 4f 25 3f 70  25 3d 31 3a 70 25 2b 3d  |_%:kO%?p%=1:p%+=|
0002cf90  31 3a ed 0d 7e 3f 14 cd  3a 62 6e 25 21 30 3d 30  |1:..~?..:bn%!0=0|
0002cfa0  3a c8 8e 46 79 25 ca 0d  7e 40 29 c9 31 3a 41 25  |:..Fy%..~@).1:A%|
0002cfb0  3d 62 6e 25 3a 42 25 3d  41 25 28 4d 4a 25 29 3a  |=bn%:B%=A%(MJ%):|
0002cfc0  43 25 3d 4c 61 25 3a 6c  4a 25 3d ba 28 70 4a 29  |C%=La%:lJ%=.(pJ)|
0002cfd0  0d 7e 41 17 c9 32 3a 41  25 3d 62 6e 25 3a 6c 4a  |.~A..2:A%=bn%:lJ|
0002cfe0  25 3d ba 28 60 69 29 0d  7e 42 3e c9 33 3a 21 64  |%=.(`i).~B>.3:!d|
0002cff0  5f 3d 7a 6c 25 3a 21 58  75 3d 21 65 5f 3a 41 25  |_=zl%:!Xu=!e_:A%|
0002d000  3d 62 6e 25 3a 42 25 3d  41 25 28 58 5f 25 29 2b  |=bn%:B%=A%(X_%)+|
0002d010  32 30 34 38 3a 43 25 3d  7a 6c 25 3a 6c 4a 25 3d  |2048:C%=zl%:lJ%=|
0002d020  ba 28 4c 75 29 0d 7e 43  1d cb 3a e7 72 79 25 3d  |.(Lu).~C..:.ry%=|
0002d030  a3 e7 a4 53 28 77 25 29  f2 4f 79 28 6c 4a 25 2b  |...S(w%).Oy(lJ%+|
0002d040  31 29 0d 7e 44 1e 79 6e  25 3d a3 3a 41 69 25 3d  |1).~D.yn%=.:Ai%=|
0002d050  a3 3a 65 6b 25 3d a3 3a  e7 6c 4a 25 3d 2d 31 8c  |.:ek%=.:.lJ%=-1.|
0002d060  0d 7e 45 16 c8 99 26 34  30 36 63 31 3a e7 a9 28  |.~E...&406c1:..(|
0002d070  49 24 29 3e 32 8c 0d 7e  46 6e 60 60 25 3d a3 3a  |I$)>2..~Fn``%=.:|
0002d080  e3 72 25 3d 32 b8 a9 28  49 24 29 3a 6d 24 3d c0  |.r%=2..(I$):m$=.|
0002d090  49 24 2c 72 25 2d 31 29  3a 69 24 3d c1 49 24 2c  |I$,r%-1):i$=.I$,|
0002d0a0  72 25 29 3a e7 a4 4c 28  6d 24 29 3e 2d 31 80 a4  |r%):..L(m$)>-1..|
0002d0b0  4c 28 69 24 29 3e 2d 31  8c f2 64 4a 3a f2 49 4a  |L(i$)>-1..dJ:.IJ|
0002d0c0  28 50 25 2b 72 25 2d 31  29 3a 50 25 2b 3d 31 3a  |(P%+r%-1):P%+=1:|
0002d0d0  72 25 3d a9 28 41 24 29  3a 41 69 25 3d b9 3a 60  |r%=.(A$):Ai%=.:`|
0002d0e0  60 25 3d b9 0d 7e 47 0f  ed 3a e7 60 60 25 3d a3  |`%=..~G..:.``%=.|
0002d0f0  f2 59 79 0d 7e 48 09 cc  3a f2 59 79 0d 7e 49 05  |.Yy.~H..:.Yy.~I.|
0002d100  cd 0d 7e 4a 0e cd 3a e7  6c 4a 25 3d 2d 31 e1 0d  |..~J..:.lJ%=-1..|
0002d110  7e 4b 2e e7 28 72 79 25  3c 3e 30 84 56 6e 25 3c  |~K..(ry%<>0.Vn%<|
0002d120  3e 30 84 57 69 25 3c 3e  30 29 80 5f 25 3e 31 80  |>0.Wi%<>0)._%>1.|
0002d130  50 25 3e 3d 30 80 61 5f  25 80 a4 70 8c 0d 7e 4c  |P%>=0.a_%..p..~L|
0002d140  7c 4b 25 3d a4 41 28 79  61 25 2a 35 31 32 2c 65  ||K%=.A(ya%*512,e|
0002d150  60 25 29 3a e7 4b 25 3d  a3 f2 43 28 22 4f 70 74  |`%):.K%=..C("Opt|
0002d160  69 63 61 6c 22 2c 22 54  68 65 72 65 20 69 73 20  |ical","There is |
0002d170  6e 6f 74 20 65 6e 6f 75  67 68 20 66 72 65 65 20  |not enough free |
0002d180  6d 65 6d 6f 72 79 20 61  76 61 69 6c 61 62 6c 65  |memory available|
0002d190  20 74 6f 20 69 6e 74 65  6c 6c 69 67 65 6e 74 6c  | to intelligentl|
0002d1a0  79 20 63 68 65 63 6b 20  73 70 65 6c 6c 69 6e 67  |y check spelling|
0002d1b0  2e 22 29 3a 79 6e 25 3d  b9 0d 7e 4d 7b 4b 25 3d  |."):yn%=..~M{K%=|
0002d1c0  a4 41 28 79 61 25 2a 36  34 2c 61 60 25 29 3a e7  |.A(ya%*64,a`%):.|
0002d1d0  4b 25 3d a3 f2 43 28 22  4f 70 74 69 63 61 6c 22  |K%=..C("Optical"|
0002d1e0  2c 22 54 68 65 72 65 20  69 73 20 6e 6f 74 20 65  |,"There is not e|
0002d1f0  6e 6f 75 67 68 20 66 72  65 65 20 6d 65 6d 6f 72  |nough free memor|
0002d200  79 20 61 76 61 69 6c 61  62 6c 65 20 74 6f 20 69  |y available to i|
0002d210  6e 74 65 6c 6c 69 67 65  6e 74 6c 79 20 63 68 65  |ntelligently che|
0002d220  63 6b 20 73 70 65 6c 6c  69 6e 67 2e 22 29 3a 79  |ck spelling."):y|
0002d230  6e 25 3d b9 0d 7e 4e 7b  4b 25 3d a4 41 28 79 61  |n%=..~N{K%=.A(ya|
0002d240  25 2a 31 36 2c 57 60 25  29 3a e7 4b 25 3d a3 f2  |%*16,W`%):.K%=..|
0002d250  43 28 22 4f 70 74 69 63  61 6c 22 2c 22 54 68 65  |C("Optical","The|
0002d260  72 65 20 69 73 20 6e 6f  74 20 65 6e 6f 75 67 68  |re is not enough|
0002d270  20 66 72 65 65 20 6d 65  6d 6f 72 79 20 61 76 61  | free memory ava|
0002d280  69 6c 61 62 6c 65 20 74  6f 20 69 6e 74 65 6c 6c  |ilable to intell|
0002d290  69 67 65 6e 74 6c 79 20  63 68 65 63 6b 20 73 70  |igently check sp|
0002d2a0  65 6c 6c 69 6e 67 2e 22  29 3a 79 6e 25 3d b9 0d  |elling."):yn%=..|
0002d2b0  7e 4f 42 21 49 5f 3d 31  3a 42 25 3d 5f 25 2d 31  |~OB!I_=1:B%=_%-1|
0002d2c0  3a 43 25 3d 61 25 3a 59  79 25 3d ba 28 4a 79 29  |:C%=a%:Yy%=.(Jy)|
0002d2d0  3a e7 5a 25 28 4a 5f 25  29 3c 59 79 25 8c 4b 25  |:.Z%(J_%)<Yy%.K%|
0002d2e0  3d a4 41 28 59 79 25 2c  4a 5f 25 29 8b 4b 25 3d  |=.A(Yy%,J_%).K%=|
0002d2f0  b9 0d 7e 50 24 e7 5a 25  28 60 79 25 29 3c 59 79  |..~P$.Z%(`y%)<Yy|
0002d300  25 8c 4b 25 3d a4 41 28  59 79 25 2c 60 79 25 29  |%.K%=.A(Yy%,`y%)|
0002d310  8b 4b 25 3d b9 0d 7e 51  7e e7 4b 25 3d a3 f2 43  |.K%=..~Q~.K%=..C|
0002d320  28 22 4f 70 74 69 63 61  6c 22 2c 22 54 68 65 72  |("Optical","Ther|
0002d330  65 20 69 73 20 6e 6f 74  20 65 6e 6f 75 67 68 20  |e is not enough |
0002d340  66 72 65 65 20 6d 65 6d  6f 72 79 20 61 76 61 69  |free memory avai|
0002d350  6c 61 62 6c 65 20 74 6f  20 69 6e 74 65 6c 6c 69  |lable to intelli|
0002d360  67 65 6e 74 6c 79 20 63  68 65 63 6b 20 73 70 65  |gently check spe|
0002d370  6c 6c 69 6e 67 2e 20 4e  65 65 64 20 22 2b c3 28  |lling. Need "+.(|
0002d380  28 59 79 25 2a 32 29 81  31 30 32 34 29 2b 22 4b  |(Yy%*2).1024)+"K|
0002d390  2e 22 29 0d 7e 52 11 e7  4b 25 3d a3 84 79 6e 25  |.").~R..K%=..yn%|
0002d3a0  8c f2 6d 5f 0d 7e 53 0b  e7 79 6e 25 3d a3 8c 0d  |..m_.~S..yn%=...|
0002d3b0  7e 54 fc 4e 72 25 3d 41  25 28 65 60 25 29 3a 6f  |~T.Nr%=A%(e`%):o|
0002d3c0  5a 25 3d 41 25 28 61 60  25 29 3a 41 25 3d 73 6e  |Z%=A%(a`%):A%=sn|
0002d3d0  25 3a 42 25 3d 57 72 25  3a 43 25 3d 79 61 25 3a  |%:B%=Wr%:C%=ya%:|
0002d3e0  44 25 3d 4e 72 25 3a 45  25 3d 41 25 28 57 60 25  |D%=Nr%:E%=A%(W`%|
0002d3f0  29 3a d6 65 69 3a 21 60  3d 41 25 28 75 25 29 2b  |):.ei:!`=A%(u%)+|
0002d400  34 3a 21 6d 3d 55 79 25  2b 31 3a 21 72 3d 41 25  |4:!m=Uy%+1:!r=A%|
0002d410  28 4a 5f 25 29 3a 21 66  3d 41 25 28 60 79 25 29  |(J_%):!f=A%(`y%)|
0002d420  3a 21 74 3d 41 25 28 60  79 25 29 2b 59 79 25 3a  |:!t=A%(`y%)+Yy%:|
0002d430  21 53 79 3d 41 25 28 60  25 29 2b 48 75 25 3a 21  |!Sy=A%(`%)+Hu%:!|
0002d440  5a 79 3d 66 4a 25 3a 21  46 79 3d 72 72 25 3a 21  |Zy=fJ%:!Fy=rr%:!|
0002d450  70 3d 4b 79 25 3a 21 63  3d 30 3a 21 55 79 3d 50  |p=Ky%:!c=0:!Uy=P|
0002d460  25 3a 21 58 79 3d 50 25  3a 21 44 6c 3d 4b 79 25  |%:!Xy=P%:!Dl=Ky%|
0002d470  3a 21 74 75 3d 73 50 25  3a 21 55 79 3d 30 3a 21  |:!tu=sP%:!Uy=0:!|
0002d480  58 79 3d 30 3a 21 47 6c  3d 60 75 25 3a 21 4d 61  |Xy=0:!Gl=`u%:!Ma|
0002d490  3d 69 6b 25 3a 21 74 61  3d 61 25 3a 21 54 75 3d  |=ik%:!ta=a%:!Tu=|
0002d4a0  72 72 25 3a 21 59 61 3d  55 6c 25 0d 7e 55 eb 21  |rr%:!Ya=Ul%.~U.!|
0002d4b0  57 61 3d 41 25 28 75 25  29 2b 34 3a 21 5f 75 3d  |Wa=A%(u%)+4:!_u=|
0002d4c0  21 28 41 25 28 75 25 29  29 3a 21 53 69 3d 5f 25  |!(A%(u%)):!Si=_%|
0002d4d0  3a 21 72 6c 3d 4b 79 25  3a 21 63 6c 3d 50 25 3a  |:!rl=Ky%:!cl=P%:|
0002d4e0  21 75 6c 3d 42 75 25 3a  21 77 69 3d 53 4a 25 3a  |!ul=Bu%:!wi=SJ%:|
0002d4f0  21 73 6c 3d 72 72 25 3a  21 4f 75 3d 4e 72 25 3a  |!sl=rr%:!Ou=Nr%:|
0002d500  21 4c 61 3d 6f 5a 25 3a  21 76 4a 3d 41 25 28 57  |!La=oZ%:!vJ=A%(W|
0002d510  60 25 29 3a 21 4a 6c 3d  69 4f 25 3a 21 50 61 3d  |`%):!Jl=iO%:!Pa=|
0002d520  57 72 25 3a 21 59 69 3d  56 50 25 3a 21 4a 75 3d  |Wr%:!Yi=VP%:!Ju=|
0002d530  73 4f 25 3a 21 4f 6c 3d  50 25 3a 21 4d 69 3d 6c  |sO%:!Ol=P%:!Mi=l|
0002d540  4a 25 3a 21 5a 61 3d 5f  25 3a 21 5f 6c 3d 41 25  |J%:!Za=_%:!_l=A%|
0002d550  28 6d 60 25 29 3a 21 60  6c 3d 62 6e 25 3a 21 6e  |(m`%):!`l=bn%:!n|
0002d560  6c 3d 60 75 25 3a 21 5f  69 3d 21 58 3a 21 6a 6c  |l=`u%:!_i=!X:!jl|
0002d570  3d 21 48 4a 3a 21 6f 69  3d a9 28 41 24 29 3a 21  |=!HJ:!oi=.(A$):!|
0002d580  5f 3d 4a 4a 25 3a 21 78  3d 72 5f 25 3a d6 66 61  |_=JJ%:!x=r_%:.fa|
0002d590  3a 65 6b 25 3d b9 0d 7e  56 1d e7 66 42 25 3d 30  |:ek%=..~V..fB%=0|
0002d5a0  80 21 78 69 3e 3d 38 30  30 21 71 3d 31 3a 41 69  |.!xi>=800!q=1:Ai|
0002d5b0  25 3d b9 0d 7e 57 19 e7  a4 46 28 60 75 25 29 3d  |%=..~W...F(`u%)=|
0002d5c0  22 69 22 8c 21 42 4a 3d  35 30 30 30 0d 7e 58 14  |"i".!BJ=5000.~X.|
0002d5d0  e7 21 42 4a 3e 31 32 30  30 80 72 79 25 3d b9 8c  |.!BJ>1200.ry%=..|
0002d5e0  0d 7e 59 0d e7 a9 28 49  24 29 3e 32 8c 0d 7e 5a  |.~Y...(I$)>2..~Z|
0002d5f0  6e 60 60 25 3d a3 3a e3  72 25 3d 32 b8 a9 28 49  |n``%=.:.r%=2..(I|
0002d600  24 29 3a 6d 24 3d c0 49  24 2c 72 25 2d 31 29 3a  |$):m$=.I$,r%-1):|
0002d610  69 24 3d c1 49 24 2c 72  25 29 3a e7 a4 4c 28 6d  |i$=.I$,r%):..L(m|
0002d620  24 29 3e 2d 31 80 a4 4c  28 69 24 29 3e 2d 31 8c  |$)>-1..L(i$)>-1.|
0002d630  f2 64 4a 3a f2 49 4a 28  50 25 2b 72 25 2d 31 29  |.dJ:.IJ(P%+r%-1)|
0002d640  3a 50 25 2b 3d 31 3a 72  25 3d a9 28 41 24 29 3a  |:P%+=1:r%=.(A$):|
0002d650  41 69 25 3d b9 3a 60 60  25 3d b9 0d 7e 5b 0f ed  |Ai%=.:``%=..~[..|
0002d660  3a e7 60 60 25 3d a3 f2  59 79 0d 7e 5c 09 cc 3a  |:.``%=..Yy.~\..:|
0002d670  f2 59 79 0d 7e 5d 05 cd  0d 7e 5e 48 cd 3a 41 25  |.Yy.~]...~^H.:A%|
0002d680  3d 46 70 25 3a 42 25 3d  62 6e 25 3a 43 25 3d 73  |=Fp%:B%=bn%:C%=s|
0002d690  6e 25 3a 44 25 3d 6c 4a  25 3a 45 25 3d 57 72 25  |n%:D%=lJ%:E%=Wr%|
0002d6a0  3a d6 71 61 3a 72 24 3d  a4 5f 28 30 29 3a 41 24  |:.qa:r$=._(0):A$|
0002d6b0  3d 72 24 3a e7 6c 4a 25  3e 2d 31 84 51 61 25 8c  |=r$:.lJ%>-1.Qa%.|
0002d6c0  0d 7e 5f 09 e7 72 79 25  8c 0d 7e 60 09 75 24 3d  |.~_..ry%..~`.u$=|
0002d6d0  41 24 0d 7e 61 20 cc 3a  f2 41 28 77 25 2c 31 2c  |A$.~a .:.A(w%,1,|
0002d6e0  41 24 29 3a f2 47 28 77  25 2c 31 2c a9 28 41 24  |A$):.G(w%,1,.(A$|
0002d6f0  29 29 0d 7e 62 05 cd 0d  7e 63 0b cd 3a 6f 4a 25  |)).~b...~c..:oJ%|
0002d700  3d 30 0d 7e 64 0b cd 3a  21 49 5f 3d 30 0d 7e 65  |=0.~d..:!I_=0.~e|
0002d710  0d cd 3a e7 72 79 25 3d  a3 8c 0d 7e 66 32 4b 25  |..:.ry%=...~f2K%|
0002d720  3d a4 41 28 31 2c 65 60  25 29 3a 4b 25 3d a4 41  |=.A(1,e`%):K%=.A|
0002d730  28 31 2c 61 60 25 29 3a  4b 25 3d a4 41 28 31 2c  |(1,a`%):K%=.A(1,|
0002d740  57 60 25 29 3a f2 4a 28  56 5f 25 29 0d 7e 67 10  |W`%):.J(V_%).~g.|
0002d750  cd 3a c8 99 26 34 30 36  63 31 3a e1 0d 7e 68 53  |.:..&406c1:..~hS|
0002d760  dd f2 49 4a 28 50 25 29  3a ea 61 79 25 2c 47 65  |..IJ(P%):.ay%,Ge|
0002d770  25 2c 59 79 24 2c 70 79  25 2c 6c 25 2c 43 6c 25  |%,Yy$,py%,l%,Cl%|
0002d780  2c 68 75 25 2c 69 75 25  3a f2 61 28 50 25 29 3a  |,hu%,iu%:.a(P%):|
0002d790  43 5f 25 3d 41 25 28 71  79 25 29 3a e7 21 58 3e  |C_%=A%(qy%):.!X>|
0002d7a0  32 35 36 8c 79 5f 25 3d  30 8b 79 5f 25 3d 31 0d  |256.y_%=0.y_%=1.|
0002d7b0  7e 69 21 e7 21 41 3c 3e  30 84 57 79 25 3c 3e 30  |~i!.!A<>0.Wy%<>0|
0002d7c0  84 49 79 25 3c 3e 30 8c  c8 94 5f 25 2c 6b 5f 25  |.Iy%<>0..._%,k_%|
0002d7d0  0d 7e 6a 1a 4b 25 3d a4  41 28 6d 25 2b 31 2c 71  |.~j.K%=.A(m%+1,q|
0002d7e0  79 25 29 3a e7 4b 25 3d  a3 8c 0d 7e 6b 89 f2 43  |y%):.K%=...~k..C|
0002d7f0  28 22 4f 70 74 69 63 61  6c 22 2c 22 54 68 65 72  |("Optical","Ther|
0002d800  65 20 69 73 20 6e 6f 74  20 65 6e 6f 75 67 68 20  |e is not enough |
0002d810  66 72 65 65 20 6d 65 6d  6f 72 79 20 61 76 61 69  |free memory avai|
0002d820  6c 61 62 6c 65 20 74 6f  20 72 65 70 6c 61 63 65  |lable to replace|
0002d830  20 74 68 69 73 20 77 6f  72 64 2e 20 4e 65 65 64  | this word. Need|
0002d840  20 61 6e 20 65 78 74 72  61 20 31 4b 2e 22 29 3a  | an extra 1K."):|
0002d850  72 79 25 3d a3 3a e7 21  41 3c 3e 30 84 57 79 25  |ry%=.:.!A<>0.Wy%|
0002d860  3c 3e 30 84 49 79 25 3c  3e 30 8c c8 94 5f 25 2c  |<>0.Iy%<>0..._%,|
0002d870  6b 5f 25 0d 7e 6c c0 cc  3a 41 25 3d 43 5f 25 2b  |k_%.~l..:A%=C_%+|
0002d880  50 79 25 3a 42 25 3d 43  5f 25 2b 50 79 25 2b 31  |Py%:B%=C_%+Py%+1|
0002d890  3a 43 25 3d 6d 25 2d 50  79 25 3a d6 51 3a 41 25  |:C%=m%-Py%:.Q:A%|
0002d8a0  3d 61 25 2b 50 25 2a 38  3a 42 25 3d 61 25 2b 28  |=a%+P%*8:B%=a%+(|
0002d8b0  50 25 2b 31 29 2a 38 3a  43 25 3d 28 5f 25 2d 50  |P%+1)*8:C%=(_%-P|
0002d8c0  25 29 2a 38 3a d6 51 3a  41 25 3d 4d 79 25 2b 50  |%)*8:.Q:A%=My%+P|
0002d8d0  25 2a 32 3a 42 25 3d 4d  79 25 2b 28 50 25 2b 31  |%*2:B%=My%+(P%+1|
0002d8e0  29 2a 32 3a 43 25 3d 28  5f 25 2d 50 25 29 2a 32  |)*2:C%=(_%-P%)*2|
0002d8f0  3a d6 51 3a 41 25 3d 50  75 25 2b 50 25 3a 42 25  |:.Q:A%=Pu%+P%:B%|
0002d900  3d 50 75 25 2b 50 25 2b  31 3a 43 25 3d 5f 25 2d  |=Pu%+P%+1:C%=_%-|
0002d910  50 25 3a d6 51 3a e7 57  79 25 3c 3e 30 84 21 41  |P%:.Q:.Wy%<>0.!A|
0002d920  3c 3e 30 84 49 79 25 3c  3e 30 8c c8 94 5f 25 2c  |<>0.Iy%<>0..._%,|
0002d930  6b 5f 25 0d 7e 6d 34 6d  25 2b 3d 31 3a 5f 25 2b  |k_%.~m4m%+=1:_%+|
0002d940  3d 31 3a e7 21 41 3c 3e  30 84 57 79 25 3c 3e 30  |=1:.!A<>0.Wy%<>0|
0002d950  84 49 79 25 8c 6b 5f 25  2b 3d 31 3a 21 55 2b 3d  |.Iy%.k_%+=1:!U+=|
0002d960  31 3a 21 64 2b 3d 31 0d  7e 6e 6f 21 28 61 25 2b  |1:!d+=1.~no!(a%+|
0002d970  28 50 25 2b 79 5f 25 29  2a 38 29 3d 21 28 61 25  |(P%+y_%)*8)=!(a%|
0002d980  2b 28 50 25 2d 31 2b 79  5f 25 29 2a 38 29 3a 21  |+(P%-1+y_%)*8):!|
0002d990  28 61 25 2b 28 50 25 2b  79 5f 25 29 2a 38 2b 34  |(a%+(P%+y_%)*8+4|
0002d9a0  29 3d 21 28 61 25 2b 28  50 25 2d 31 2b 79 5f 25  |)=!(a%+(P%-1+y_%|
0002d9b0  29 2a 38 2b 34 29 3a 68  75 25 3d b9 3a e3 50 4a  |)*8+4):hu%=.:.PJ|
0002d9c0  25 3d 30 b8 65 5f 25 3a  e7 21 58 3c 32 35 36 80  |%=0.e_%:.!X<256.|
0002d9d0  68 75 25 3d b9 8c 0d 7e  6f 19 e7 4b 79 25 21 28  |hu%=...~o..Ky%!(|
0002d9e0  50 4a 25 2a 34 29 3e 50  25 8c 68 75 25 3d a3 0d  |PJ%*4)>P%.hu%=..|
0002d9f0  7e 70 24 cc 3a e7 4b 79  25 21 28 50 4a 25 2a 34  |~p$.:.Ky%!(PJ%*4|
0002da00  29 3e 50 25 8c 4b 79 25  21 28 50 4a 25 2a 34 29  |)>P%.Ky%!(PJ%*4)|
0002da10  2b 3d 31 0d 7e 71 07 cd  3a ed 0d 7e 72 0c cd 3a  |+=1.~q..:..~r..:|
0002da20  e7 4b 25 3d a3 e1 0d 7e  73 27 6c 25 3d 31 3a 43  |.K%=...~s'l%=1:C|
0002da30  6c 25 3d 30 3a 70 79 25  3d 30 3a f5 3a c8 8e 43  |l%=0:py%=0:.:..C|
0002da40  5f 25 3f 28 50 79 25 2b  43 6c 25 29 ca 0d 7e 74  |_%?(Py%+Cl%)..~t|
0002da50  0f c9 32 2c 33 3a 43 6c  25 2b 3d 32 0d 7e 75 55  |..2,3:Cl%+=2.~uU|
0002da60  c9 38 3a 4d 79 25 3f 28  28 50 25 2b 70 79 25 29  |.8:My%?((P%+py%)|
0002da70  2a 32 2b 31 29 3d 28 4d  79 25 3f 28 28 50 25 2b  |*2+1)=(My%?((P%+|
0002da80  70 79 25 29 2a 32 2b 31  29 80 32 32 37 29 84 38  |py%)*2+1).227).8|
0002da90  3a e7 43 5f 25 3f 28 50  79 25 2b 70 79 25 2b 31  |:.C_%?(Py%+py%+1|
0002daa0  29 3d 31 30 43 6c 25 2b  3d 32 8b 43 6c 25 2b 3d  |)=10Cl%+=2.Cl%+=|
0002dab0  31 0d 7e 76 0a 70 79 25  2b 3d 31 0d 7e 77 bc 7f  |1.~v.py%+=1.~w..|
0002dac0  3a 43 5f 25 3f 28 50 79  25 2b 43 6c 25 29 3d 31  |:C_%?(Py%+Cl%)=1|
0002dad0  34 3a 4d 79 25 3f 28 28  50 25 2b 70 79 25 29 2a  |4:My%?((P%+py%)*|
0002dae0  32 29 3d 28 4d 79 25 3f  28 28 50 25 2b 70 79 25  |2)=(My%?((P%+py%|
0002daf0  29 2a 32 29 80 33 29 2b  55 6c 25 2a 34 3a 4d 79  |)*2).3)+Ul%*4:My|
0002db00  25 3f 28 28 50 25 2b 70  79 25 29 2a 32 2b 31 29  |%?((P%+py%)*2+1)|
0002db10  3d 28 4d 79 25 3f 28 28  50 25 2b 70 79 25 29 2a  |=(My%?((P%+py%)*|
0002db20  32 2b 31 29 80 32 32 37  29 84 38 3a 50 75 25 3f  |2+1).227).8:Pu%?|
0002db30  28 50 25 2b 70 79 25 29  3d 31 34 3a 4d 79 25 3f  |(P%+py%)=14:My%?|
0002db40  28 28 50 25 2b 70 79 25  29 2a 32 2b 31 29 3d 4d  |((P%+py%)*2+1)=M|
0002db50  79 25 3f 28 28 50 25 2b  70 79 25 29 2a 32 2b 31  |y%?((P%+py%)*2+1|
0002db60  29 84 32 3a 6c 25 2b 3d  31 3a 43 6c 25 2b 3d 31  |).2:l%+=1:Cl%+=1|
0002db70  3a 70 79 25 2b 3d 31 0d  7e 78 0d cb 3a fd 6c 25  |:py%+=1.~x..:.l%|
0002db80  3e 31 3a e1 0d 7e 79 20  dd a4 70 3a ea 61 72 25  |>1:..~y ..p:.ar%|
0002db90  3a e7 21 58 3e 31 30 30  8c 79 5f 25 3d 30 8b 79  |:.!X>100.y_%=0.y|
0002dba0  5f 25 3d 31 0d 7e 7a 4c  61 72 25 3d b9 3a e3 5f  |_%=1.~zLar%=.:._|
0002dbb0  79 25 3d 50 25 b8 50 25  2b a9 28 41 24 29 2d 31  |y%=P%.P%+.(A$)-1|
0002dbc0  2b 79 5f 25 3a e7 28 4d  79 25 3f 28 5f 79 25 2a  |+y_%:.(My%?(_y%*|
0002dbd0  32 2b 31 29 80 32 29 8c  61 72 25 3d a3 3a 5f 79  |2+1).2).ar%=.:_y|
0002dbe0  25 3d 50 25 2b a9 28 41  24 29 2d 31 2b 79 5f 25  |%=P%+.(A$)-1+y_%|
0002dbf0  0d 7e 7b 0a ed 3a 3d 61  72 25 0d 7e 7c 10 dd f2  |.~{..:=ar%.~|...|
0002dc00  59 79 3a e7 72 79 25 3d  a3 e1 0d 7e 7d 17 e7 21  |Yy:.ry%=...~}..!|
0002dc10  58 3e 31 30 30 8c 79 5f  25 3d 30 8b 79 5f 25 3d  |X>100.y_%=0.y_%=|
0002dc20  31 0d 7e 7e 48 e3 5f 79  25 3d 50 25 b8 50 25 2b  |1.~~H._y%=P%.P%+|
0002dc30  a9 28 41 24 29 2d 31 2b  79 5f 25 3a 4d 79 25 3f  |.(A$)-1+y_%:My%?|
0002dc40  28 5f 79 25 2a 32 2b 31  29 3d 28 4d 79 25 3f 28  |(_y%*2+1)=(My%?(|
0002dc50  5f 79 25 2a 32 2b 31 29  80 32 32 37 29 84 34 3a  |_y%*2+1).227).4:|
0002dc60  ed 3a 41 69 25 3d b9 3a  e1 0d 7e 7f 1c dd f2 64  |.:Ai%=.:..~....d|
0002dc70  4a 3a e7 21 58 3e 31 30  30 8c 79 5f 25 3d 30 8b  |J:.!X>100.y_%=0.|
0002dc80  79 5f 25 3d 31 0d 7e 80  42 e3 5f 79 25 3d 50 25  |y_%=1.~.B._y%=P%|
0002dc90  b8 50 25 2b a9 28 41 24  29 2d 31 2b 79 5f 25 3a  |.P%+.(A$)-1+y_%:|
0002dca0  4d 79 25 3f 28 5f 79 25  2a 32 2b 31 29 3d 28 4d  |My%?(_y%*2+1)=(M|
0002dcb0  79 25 3f 28 5f 79 25 2a  32 2b 31 29 80 32 32 37  |y%?(_y%*2+1).227|
0002dcc0  29 84 38 3a ed 3a e1 0d  7e 81 1c dd f2 79 61 3a  |).8:.:..~....ya:|
0002dcd0  e7 21 58 3e 31 30 30 8c  79 5f 25 3d 30 8b 79 5f  |.!X>100.y_%=0.y_|
0002dce0  25 3d 31 0d 7e 82 4e e3  5f 79 25 3d 50 25 b8 50  |%=1.~.N._y%=P%.P|
0002dcf0  25 2b a9 28 41 24 29 2d  31 2b 79 5f 25 3a 4d 79  |%+.(A$)-1+y_%:My|
0002dd00  25 3f 28 5f 79 25 2a 32  2b 31 29 3d 28 4d 79 25  |%?(_y%*2+1)=(My%|
0002dd10  3f 28 5f 79 25 2a 32 2b  31 29 80 32 32 37 29 84  |?(_y%*2+1).227).|
0002dd20  31 36 3a e7 72 79 25 3d  a3 f2 41 79 28 5f 79 25  |16:.ry%=..Ay(_y%|
0002dd30  29 0d 7e 83 27 ed 3a 41  69 25 3d b9 3a 21 66 79  |).~.'.:Ai%=.:!fy|
0002dd40  3d 30 3a 78 79 25 3d 2d  31 3a e7 72 79 25 3d a3  |=0:xy%=-1:.ry%=.|
0002dd50  80 76 79 25 3d b9 f2 64  0d 7e 84 1b e7 76 79 25  |.vy%=..d.~...vy%|
0002dd60  3d a3 8c 6d 25 3d 51 79  25 3a f2 72 3a f2 4a 28  |=..m%=Qy%:.r:.J(|
0002dd70  65 25 29 0d 7e 85 05 e1  0d 7e 86 89 dd f2 6d 5f  |e%).~....~....m_|
0002dd80  3a 6c 4a 25 3d 2d 31 3a  4b 25 3d a4 41 28 31 2c  |:lJ%=-1:K%=.A(1,|
0002dd90  6d 60 25 29 3a 4b 25 3d  a4 41 28 31 2c 65 60 25  |m`%):K%=.A(1,e`%|
0002dda0  29 3a 4b 25 3d a4 41 28  31 2c 61 60 25 29 3a 4b  |):K%=.A(1,a`%):K|
0002ddb0  25 3d a4 41 28 31 2c 57  60 25 29 3a 4b 25 3d a4  |%=.A(1,W`%):K%=.|
0002ddc0  41 28 31 2c 4a 5f 25 29  3a 4b 25 3d a4 41 28 31  |A(1,J_%):K%=.A(1|
0002ddd0  2c 60 79 25 29 3a 6c 25  3d 6c 4a 25 3a 71 25 3d  |,`y%):l%=lJ%:q%=|
0002dde0  a9 28 41 24 29 3a 6f 4a  25 3d 30 3a f2 4a 28 56  |.(A$):oJ%=0:.J(V|
0002ddf0  5f 25 29 3a 79 6e 25 3d  b9 3a 72 79 25 3d a3 3a  |_%):yn%=.:ry%=.:|
0002de00  e1 0d 7e 87 26 dd a4 7a  28 63 6e 25 2c 6c 25 29  |..~.&..z(cn%,l%)|
0002de10  3a ea 53 79 25 2c 70 79  25 2c 79 65 25 3a e7 63  |:.Sy%,py%,ye%:.c|
0002de20  6e 25 3c 30 8c 3d 30 0d  7e 88 85 e3 53 79 25 3d  |n%<0.=0.~...Sy%=|
0002de30  30 b8 4b 4a 25 3a 6a 42  25 3f 53 79 25 3d 30 3a  |0.KJ%:jB%?Sy%=0:|
0002de40  ed 3a e3 70 79 25 3d 63  6e 25 b8 63 6e 25 2b 6c  |.:.py%=cn%.cn%+l|
0002de50  25 2d 31 3a 55 6c 25 3d  3f 28 4d 79 25 2b 70 79  |%-1:Ul%=?(My%+py|
0002de60  25 2a 32 29 81 34 3a 6a  42 25 3f 55 6c 25 2b 3d  |%*2).4:jB%?Ul%+=|
0002de70  31 3a ed 3a 79 65 25 3d  2d 31 3a 55 6c 25 3d 30  |1:.:ye%=-1:Ul%=0|
0002de80  3a e3 53 79 25 3d 30 b8  4b 4a 25 3a e7 6a 42 25  |:.Sy%=0.KJ%:.jB%|
0002de90  3f 53 79 25 3e 79 65 25  8c 79 65 25 3d 6a 42 25  |?Sy%>ye%.ye%=jB%|
0002dea0  3f 53 79 25 3a 55 6c 25  3d 53 79 25 0d 7e 89 0a  |?Sy%:Ul%=Sy%.~..|
0002deb0  ed 3a 3d 55 6c 25 0d 7e  8a 68 dd a4 72 28 41 24  |.:=Ul%.~.h..r(A$|
0002dec0  29 3a ea 70 25 2c 6a 6b  25 2c 50 70 25 2c 4f 25  |):.p%,jk%,Pp%,O%|
0002ded0  2c 63 6e 25 3a 4f 25 3d  97 28 c0 41 24 2c 31 29  |,cn%:O%=.(.A$,1)|
0002dee0  29 3a 66 42 25 3d 30 3a  e7 28 4f 25 3e 3d 97 28  |):fB%=0:.(O%>=.(|
0002def0  22 61 22 29 80 4f 25 3c  3d 97 28 22 7a 22 29 29  |"a").O%<=.("z"))|
0002df00  84 28 4f 25 3e 3d 97 28  22 e0 22 29 80 4f 25 3c  |.(O%>=.(".").O%<|
0002df10  3d 97 28 22 fe 22 29 29  8c 66 42 25 3d 31 0d 7e  |=.(".")).fB%=1.~|
0002df20  8b 3a e7 28 4f 25 3e 3d  97 28 22 41 22 29 80 4f  |.:.(O%>=.("A").O|
0002df30  25 3c 3d 97 28 22 5a 22  29 29 84 28 4f 25 3e 3d  |%<=.("Z")).(O%>=|
0002df40  97 28 22 c0 22 29 80 4f  25 3c 3d 97 28 22 de 22  |.(".").O%<=.("."|
0002df50  29 29 8c 66 42 25 3d 32  0d 7e 8c 0f e7 a9 28 41  |)).fB%=2.~....(A|
0002df60  24 29 3c 32 8c 3d a3 0d  7e 8d 24 6a 6b 25 3d 30  |$)<2.=..~.$jk%=0|
0002df70  3a 76 65 25 3d 30 3a e7  a9 28 41 24 29 3d 32 8c  |:ve%=0:..(A$)=2.|
0002df80  63 6e 25 3d 31 8b 63 6e  25 3d 32 0d 7e 8e 59 e3  |cn%=1.cn%=2.~.Y.|
0002df90  70 25 3d 63 6e 25 b8 a9  28 41 24 29 3a 4f 25 3d  |p%=cn%..(A$):O%=|
0002dfa0  97 28 c1 41 24 2c 70 25  2c 31 29 29 3a e7 28 4f  |.(.A$,p%,1)):.(O|
0002dfb0  25 3e 3d 97 28 22 41 22  29 80 4f 25 3c 3d 97 28  |%>=.("A").O%<=.(|
0002dfc0  22 5a 22 29 29 84 28 4f  25 3e 3d 97 28 22 c0 22  |"Z")).(O%>=.("."|
0002dfd0  29 80 4f 25 3c 3d 97 28  22 de 22 29 29 8c 6a 6b  |).O%<=.(".")).jk|
0002dfe0  25 2b 3d 31 0d 7e 8f 3b  e7 28 4f 25 3e 3d 97 28  |%+=1.~.;.(O%>=.(|
0002dff0  22 61 22 29 80 4f 25 3c  3d 97 28 22 7a 22 29 29  |"a").O%<=.("z"))|
0002e000  84 28 4f 25 3e 3d 97 28  22 e0 22 29 80 4f 25 3c  |.(O%>=.(".").O%<|
0002e010  3d 97 28 22 fe 22 29 29  8c 76 65 25 2b 3d 31 0d  |=.(".")).ve%+=1.|
0002e020  7e 90 0f ed 3a 3d 76 65  25 3e 3d 6a 6b 25 0d 7e  |~...:=ve%>=jk%.~|
0002e030  91 1c dd a4 41 79 28 41  24 29 3a ea 59 4a 25 3a  |....Ay(A$):.YJ%:|
0002e040  e7 41 24 3d 22 22 8c 3d  2d 31 0d 7e 92 1c 41 24  |.A$="".=-1.~..A$|
0002e050  3d a4 48 28 41 24 29 3a  24 51 6c 25 3d 41 24 3a  |=.H(A$):$Ql%=A$:|
0002e060  c8 8e 46 79 25 ca 0d 7e  93 5c c9 31 3a 57 24 3d  |..Fy%..~.\.1:W$=|
0002e070  c0 41 24 2c 31 29 3a 47  6b 25 3d 21 28 41 25 28  |.A$,1):Gk%=!(A%(|
0002e080  4d 4a 25 29 2b 28 97 28  57 24 29 2d 39 37 29 2a  |MJ%)+(.(W$)-97)*|
0002e090  34 29 3a e7 57 24 3d 22  7a 22 8c 5f 6e 25 3d 4c  |4):.W$="z"._n%=L|
0002e0a0  61 25 2a 32 8b 5f 6e 25  3d 21 28 41 25 28 4d 4a  |a%*2._n%=!(A%(MJ|
0002e0b0  25 29 2b 28 97 28 57 24  29 2d 39 36 29 2a 34 29  |%)+(.(W$)-96)*4)|
0002e0c0  2d 31 0d 7e 94 4b 42 25  3d a9 28 41 24 29 3a 46  |-1.~.KB%=.(A$):F|
0002e0d0  25 3d 68 75 25 3a 47 25  3d 6a 61 25 3a 43 25 3d  |%=hu%:G%=ja%:C%=|
0002e0e0  51 6c 25 3a 44 25 3d 41  25 28 4d 4a 25 29 3a 45  |Ql%:D%=A%(MJ%):E|
0002e0f0  25 3d 47 6b 25 3a 48 25  3d 5f 6e 25 3a 41 25 3d  |%=Gk%:H%=_n%:A%=|
0002e100  60 75 25 3a 65 75 25 3d  ba 28 6e 75 29 0d 7e 95  |`u%:eu%=.(nu).~.|
0002e110  8f c9 32 3a e3 59 4a 25  3d 31 b8 a9 28 41 24 29  |..2:.YJ%=1..(A$)|
0002e120  3a e7 28 97 28 c1 41 24  2c 59 4a 25 2c 31 29 29  |:.(.(.A$,YJ%,1))|
0002e130  3e 3d 97 28 22 61 22 29  80 97 28 c1 41 24 2c 59  |>=.("a")..(.A$,Y|
0002e140  4a 25 2c 31 29 29 3c 3d  97 28 22 7a 22 29 29 84  |J%,1))<=.("z")).|
0002e150  28 97 28 c1 41 24 2c 59  4a 25 2c 31 29 29 3e 3d  |(.(.A$,YJ%,1))>=|
0002e160  97 28 22 e0 22 29 80 97  28 c1 41 24 2c 59 4a 25  |.(".")..(.A$,YJ%|
0002e170  2c 31 29 29 3c 3d 97 28  22 fe 22 29 29 8c c1 41  |,1))<=.("."))..A|
0002e180  24 2c 59 4a 25 2c 31 29  3d bd 28 97 28 c1 41 24  |$,YJ%,1)=.(.(.A$|
0002e190  2c 59 4a 25 2c 31 29 29  2d 33 32 29 0d 7e 96 2d  |,YJ%,1))-32).~.-|
0002e1a0  ed 3a c8 99 22 58 53 70  65 6c 6c 5f 46 69 6e 64  |.:.."XSpell_Find|
0002e1b0  57 6f 72 64 22 2c 41 24  2c a9 28 41 24 29 b8 65  |Word",A$,.(A$).e|
0002e1c0  75 25 3a 65 75 25 2b 3d  31 0d 7e 97 29 c9 33 3a  |u%:eu%+=1.~.).3:|
0002e1d0  71 25 3d 97 28 c0 41 24  2c 31 29 29 3a e7 21 28  |q%=.(.A$,1)):.!(|
0002e1e0  41 25 28 58 5f 25 29 2b  71 25 2a 38 29 3c 3e 2d  |A%(X_%)+q%*8)<>-|
0002e1f0  31 8c 0d 7e 98 90 41 25  3d 41 25 28 58 5f 25 29  |1..~..A%=A%(X_%)|
0002e200  2b 32 30 34 38 2b 21 28  41 25 28 58 5f 25 29 2b  |+2048+!(A%(X_%)+|
0002e210  71 25 2a 38 29 3a 42 25  3d 7a 6c 25 2d 21 28 41  |q%*8):B%=zl%-!(A|
0002e220  25 28 58 5f 25 29 2b 71  25 2a 38 29 3a 43 25 3d  |%(X_%)+q%*8):C%=|
0002e230  51 6c 25 3a 44 25 3d a9  28 41 24 29 3a 65 75 25  |Ql%:D%=.(A$):eu%|
0002e240  3d ba 28 4d 75 29 3a e3  5f 79 25 3d 30 b8 71 25  |=.(Mu):._y%=0.q%|
0002e250  2d 31 3a e7 21 28 41 25  28 58 5f 25 29 2b 34 2b  |-1:.!(A%(X_%)+4+|
0002e260  5f 79 25 2a 38 29 3c 3e  2d 31 8c 65 75 25 2b 3d  |_y%*8)<>-1.eu%+=|
0002e270  21 28 41 25 28 58 5f 25  29 2b 34 2b 5f 79 25 2a  |!(A%(X_%)+4+_y%*|
0002e280  38 29 0d 7e 99 05 ed 0d  7e 9a 0b cc 3a 65 75 25  |8).~....~...:eu%|
0002e290  3d 30 0d 7e 9b 05 cd 0d  7e 9c 0a cb 3a 3d 65 75  |=0.~....~...:=eu|
0002e2a0  25 0d 7e 9d 26 dd a4 4c  28 41 24 29 3a ea 59 4a  |%.~.&..L(A$):.YJ|
0002e2b0  25 2c 74 65 25 2c 57 24  2c 71 65 25 3a e7 41 24  |%,te%,W$,qe%:.A$|
0002e2c0  3d 22 22 8c 3d 2d 31 0d  7e 9e 26 41 24 3d a4 48  |="".=-1.~.&A$=.H|
0002e2d0  28 41 24 29 3a 24 51 6c  25 3d 41 24 3a 57 24 3d  |(A$):$Ql%=A$:W$=|
0002e2e0  c0 41 24 2c 31 29 3a c8  8e 46 79 25 ca 0d 7e 9f  |.A$,1):..Fy%..~.|
0002e2f0  28 c9 31 3a 71 65 25 3d  97 28 57 24 29 3a e7 71  |(.1:qe%=.(W$):.q|
0002e300  65 25 3c 97 28 22 61 22  29 84 71 65 25 3e 97 28  |e%<.("a").qe%>.(|
0002e310  22 7a 22 29 8c 0d 7e a0  0a 65 75 25 3d 2d 31 0d  |"z")..~..eu%=-1.|
0002e320  7e a1 51 cc 3a 47 6b 25  3d 21 28 41 25 28 4d 4a  |~.Q.:Gk%=!(A%(MJ|
0002e330  25 29 2b 28 97 28 57 24  29 2d 39 37 29 2a 34 29  |%)+(.(W$)-97)*4)|
0002e340  3a e7 57 24 3d 22 7a 22  8c 5f 6e 25 3d 4c 61 25  |:.W$="z"._n%=La%|
0002e350  2a 32 8b 5f 6e 25 3d 21  28 41 25 28 4d 4a 25 29  |*2._n%=!(A%(MJ%)|
0002e360  2b 28 97 28 57 24 29 2d  39 36 29 2a 34 29 2d 31  |+(.(W$)-96)*4)-1|
0002e370  0d 7e a2 4b 42 25 3d a9  28 41 24 29 3a 46 25 3d  |.~.KB%=.(A$):F%=|
0002e380  68 75 25 3a 47 25 3d 6a  61 25 3a 43 25 3d 51 6c  |hu%:G%=ja%:C%=Ql|
0002e390  25 3a 44 25 3d 41 25 28  4d 4a 25 29 3a 45 25 3d  |%:D%=A%(MJ%):E%=|
0002e3a0  47 6b 25 3a 48 25 3d 5f  6e 25 3a 41 25 3d 60 75  |Gk%:H%=_n%:A%=`u|
0002e3b0  25 3a 65 75 25 3d ba 28  78 75 29 0d 7e a3 05 cd  |%:eu%=.(xu).~...|
0002e3c0  0d 7e a4 10 c9 32 3a e7  a9 28 41 24 29 3e 32 8c  |.~...2:..(A$)>2.|
0002e3d0  0d 7e a5 6c 74 65 25 3d  a3 3a e3 59 4a 25 3d 31  |.~.lte%=.:.YJ%=1|
0002e3e0  b8 a9 28 41 24 29 3a 4f  25 3d 97 28 c1 41 24 2c  |..(A$):O%=.(.A$,|
0002e3f0  59 4a 25 2c 31 29 29 3a  e7 28 4f 25 3e 3d 97 28  |YJ%,1)):.(O%>=.(|
0002e400  22 61 22 29 80 4f 25 3c  3d 97 28 22 7a 22 29 29  |"a").O%<=.("z"))|
0002e410  84 28 4f 25 3e 3d 97 28  22 e0 22 29 80 4f 25 3c  |.(O%>=.(".").O%<|
0002e420  3d 97 28 22 fe 22 29 29  8c c1 41 24 2c 59 4a 25  |=.("."))..A$,YJ%|
0002e430  2c 31 29 3d bd 28 4f 25  2d 33 32 29 0d 7e a6 34  |,1)=.(O%-32).~.4|
0002e440  e7 4f 25 3c 97 28 22 41  22 29 84 4f 25 3e 97 28  |.O%<.("A").O%>.(|
0002e450  22 fe 22 29 84 28 4f 25  3e 97 28 22 5a 22 29 80  |".").(O%>.("Z").|
0002e460  4f 25 3c 97 28 22 c0 22  29 29 8c 74 65 25 3d b9  |O%<.(".")).te%=.|
0002e470  0d 7e a7 0b ed 3a e7 74  65 25 8c 0d 7e a8 0a 65  |.~...:.te%..~..e|
0002e480  75 25 3d 2d 31 0d 7e a9  33 cc 3a c8 99 22 58 53  |u%=-1.~.3.:.."XS|
0002e490  70 65 6c 6c 5f 43 68 65  63 6b 57 6f 72 64 22 2c  |pell_CheckWord",|
0002e4a0  41 24 b8 65 75 25 3a e7  65 75 25 8c 65 75 25 3d  |A$.eu%:.eu%.eu%=|
0002e4b0  30 8b 65 75 25 3d 2d 31  0d 7e aa 05 cd 0d 7e ab  |0.eu%=-1.~....~.|
0002e4c0  0c cc 3a 65 75 25 3d 2d  31 0d 7e ac 05 cd 0d 7e  |..:eu%=-1.~....~|
0002e4d0  ad 29 c9 33 3a 71 25 3d  97 28 c0 41 24 2c 31 29  |.).3:q%=.(.A$,1)|
0002e4e0  29 3a e7 21 28 41 25 28  58 5f 25 29 2b 71 25 2a  |):.!(A%(X_%)+q%*|
0002e4f0  38 29 3c 3e 2d 31 8c 0d  7e ae 54 41 25 3d 41 25  |8)<>-1..~.TA%=A%|
0002e500  28 58 5f 25 29 2b 32 30  34 38 2b 21 28 41 25 28  |(X_%)+2048+!(A%(|
0002e510  58 5f 25 29 2b 71 25 2a  38 29 3a 42 25 3d 7a 6c  |X_%)+q%*8):B%=zl|
0002e520  25 2d 21 28 41 25 28 58  5f 25 29 2b 71 25 2a 38  |%-!(A%(X_%)+q%*8|
0002e530  29 3a 43 25 3d 51 6c 25  3a 44 25 3d a9 28 41 24  |):C%=Ql%:D%=.(A$|
0002e540  29 3a 65 75 25 3d ba 28  64 4a 29 0d 7e af 0c cc  |):eu%=.(dJ).~...|
0002e550  3a 65 75 25 3d 2d 31 0d  7e b0 05 cd 0d 7e b1 0a  |:eu%=-1.~....~..|
0002e560  cb 3a 3d 65 75 25 0d 7e  b2 0f dd f2 5a 4a 3a c8  |.:=eu%.~....ZJ:.|
0002e570  8e 46 79 25 ca 0d 7e b3  0c c9 30 3a 6f 6c 25 3d  |.Fy%..~...0:ol%=|
0002e580  30 0d 7e b4 58 c9 31 3a  e3 6c 25 3d 30 b8 32 35  |0.~.X.1:.l%=0.25|
0002e590  3a 44 25 3d 41 25 28 4d  4a 25 29 3a 45 25 3d 21  |:D%=A%(MJ%):E%=!|
0002e5a0  28 41 25 28 4d 4a 25 29  2b 28 6c 25 2a 34 29 29  |(A%(MJ%)+(l%*4))|
0002e5b0  3a e7 6c 25 3c 32 35 8c  48 25 3d 21 28 41 25 28  |:.l%<25.H%=!(A%(|
0002e5c0  4d 4a 25 29 2b 28 6c 25  2b 31 29 2a 34 29 2d 31  |MJ%)+(l%+1)*4)-1|
0002e5d0  8b 48 25 3d 4c 61 25 2a  32 0d 7e b5 21 57 25 28  |.H%=La%*2.~.!W%(|
0002e5e0  6c 25 29 3d ba 28 57 75  29 3a ed 3a 6f 6c 25 3d  |l%)=.(Wu):.:ol%=|
0002e5f0  c6 8e 28 57 25 28 29 29  2d 31 0d 7e b6 25 c9 32  |..(W%())-1.~.%.2|
0002e600  3a c8 99 22 58 53 70 65  6c 6c 5f 49 6d 70 72 65  |:.."XSpell_Impre|
0002e610  73 73 69 6f 6e 49 6e 66  6f 22 b8 2c 6f 6c 25 0d  |ssionInfo".,ol%.|
0002e620  7e b7 da c9 33 3a 41 25  3d 41 25 28 58 5f 25 29  |~...3:A%=A%(X_%)|
0002e630  3a 42 25 3d 41 25 28 58  5f 25 29 2b 32 30 34 38  |:B%=A%(X_%)+2048|
0002e640  3a 43 25 3d 7a 6c 25 3a  77 79 25 3d ba 28 52 75  |:C%=zl%:wy%=.(Ru|
0002e650  29 3a e7 5a 60 25 3d a3  e7 77 79 25 3c 3e 30 8c  |):.Z`%=..wy%<>0.|
0002e660  f2 58 28 22 4f 70 74 69  63 61 6c 22 2c 22 57 6f  |.X("Optical","Wo|
0002e670  72 64 73 20 73 74 61 72  74 69 6e 67 20 77 69 74  |rds starting wit|
0002e680  68 20 74 68 65 20 73 61  6d 65 20 69 6e 69 74 69  |h the same initi|
0002e690  61 6c 20 6c 65 74 74 65  72 20 68 61 76 65 20 62  |al letter have b|
0002e6a0  65 65 6e 20 66 6f 75 6e  64 20 69 6e 20 64 69 66  |een found in dif|
0002e6b0  66 65 72 65 6e 74 20 73  65 63 74 69 6f 6e 73 20  |ferent sections |
0002e6c0  6f 66 20 74 68 65 20 6c  65 78 69 63 6f 6e 2e 20  |of the lexicon. |
0002e6d0  54 68 65 72 65 66 6f 72  65 20 69 74 20 6d 61 79  |Therefore it may|
0002e6e0  20 6e 6f 74 20 66 75 6e  63 74 69 6f 6e 20 70 72  | not function pr|
0002e6f0  6f 70 65 72 6c 79 2e 22  29 0d 7e b8 41 6f 6c 25  |operly.").~.Aol%|
0002e700  3d 30 3a e3 71 25 3d 30  b8 32 35 35 3a e7 21 28  |=0:.q%=0.255:.!(|
0002e710  41 25 28 58 5f 25 29 2b  34 2b 38 2a 71 25 29 3c  |A%(X_%)+4+8*q%)<|
0002e720  3e 2d 31 8c 6f 6c 25 2b  3d 21 28 41 25 28 58 5f  |>-1.ol%+=!(A%(X_|
0002e730  25 29 2b 34 2b 38 2a 71  25 29 0d 7e b9 05 ed 0d  |%)+4+8*q%).~....|
0002e740  7e ba 07 cb 3a e1 0d 7e  bb 15 dd f2 46 61 28 49  |~...:..~....Fa(I|
0002e750  25 2c 6a 25 29 3a c8 8e  6a 25 ca 0d 7e bc 12 c9  |%,j%):..j%..~...|
0002e760  31 33 3a e7 a4 61 28 77  25 2c 35 29 e1 0d 7e bd  |13:..a(w%,5)..~.|
0002e770  12 f2 53 28 77 25 2c 35  2c 31 29 3a f2 66 4a 0d  |..S(w%,5,1):.fJ.|
0002e780  7e be 0c 7f 3a f2 76 28  6a 25 29 0d 7e bf 07 cb  |~...:.v(j%).~...|
0002e790  3a e1 0d 7e c0 23 dd f2  66 4a 3a 4f 60 25 3d a3  |:..~.#..fJ:O`%=.|
0002e7a0  3a f2 4d 75 3a f2 53 28  77 25 2c 35 2c 30 29 3a  |:.Mu:.S(w%,5,0):|
0002e7b0  e7 57 69 25 8c 0d 7e c1  34 78 79 25 3d 50 25 3a  |.Wi%..~.4xy%=P%:|
0002e7c0  50 25 3d 2d 31 3a f2 64  3a 50 25 3d 78 79 25 3a  |P%=-1:.d:P%=xy%:|
0002e7d0  6a 79 25 3d a3 3a f2 47  28 65 25 2c 2d 31 2c 2d  |jy%=.:.G(e%,-1,-|
0002e7e0  31 29 3a f2 4f 28 50 25  29 0d 7e c2 1b cd 3a e7  |1):.O(P%).~...:.|
0002e7f0  57 69 25 8c f2 4d 28 77  25 29 3a f2 4d 28 56 5f  |Wi%..M(w%):.M(V_|
0002e800  25 29 3a e1 0d 7e c3 17  e7 4f 60 25 84 46 79 25  |%):..~...O`%.Fy%|
0002e810  3d 30 8c 4f 5f 25 3d 2d  31 3a e1 0d 7e c4 1c f5  |=0.O_%=-1:..~...|
0002e820  3a f2 56 79 3a fd 73 69  25 3e 6d 25 2d 31 84 64  |:.Vy:.si%>m%-1.d|
0002e830  5f 25 3d 2d 31 3a e1 0d  7e c5 55 dd f2 6e 6c 3a  |_%=-1:..~.U..nl:|
0002e840  ea 42 24 2c 71 25 2c 6c  25 2c 44 4a 25 2c 68 4a  |.B$,q%,l%,DJ%,hJ|
0002e850  25 2c 67 72 25 3a e7 46  79 25 3d 30 ec 4c 25 2b  |%,gr%:.Fy%=0.L%+|
0002e860  32 2c 58 25 2d 38 3a c8  99 26 34 30 30 65 36 2c  |2,X%-8:..&400e6,|
0002e870  31 31 3a f1 22 20 20 4e  6f 20 6c 65 78 69 63 6f  |11:."  No lexico|
0002e880  6e 73 20 6c 6f 61 64 65  64 22 3a e1 0d 7e c6 3e  |ns loaded":..~.>|
0002e890  e7 6c 4a 25 3d 2d 31 80  51 61 25 3d a3 ec 4c 25  |.lJ%=-1.Qa%=..L%|
0002e8a0  2b 32 2c 58 25 2d 38 3a  c8 99 26 34 30 30 65 36  |+2,X%-8:..&400e6|
0002e8b0  2c 38 3a f1 22 20 20 20  20 4e 6f 20 77 6f 72 64  |,8:."    No word|
0002e8c0  73 20 66 6f 75 6e 64 22  3a e1 0d 7e c7 3b 47 79  |s found":..~.;Gy|
0002e8d0  25 3d 5a 25 21 31 36 2d  5a 25 21 32 34 2d 5a 25  |%=Z%!16-Z%!24-Z%|
0002e8e0  21 33 32 3a 4c 79 25 3d  5a 25 21 31 36 2d 5a 25  |!32:Ly%=Z%!16-Z%|
0002e8f0  21 32 34 2d 5a 25 21 34  30 3a e7 47 79 25 3c 30  |!24-Z%!40:.Gy%<0|
0002e900  47 79 25 3d 30 0d 7e c8  0f e7 4c 79 25 3c 30 4c  |Gy%=0.~...Ly%<0L|
0002e910  79 25 3d 30 0d 7e c9 31  60 69 25 3d 28 4c 79 25  |y%=0.~.1`i%=(Ly%|
0002e920  2d 34 29 81 34 30 3a 47  60 25 3d 28 47 79 25 2d  |-4).40:G`%=(Gy%-|
0002e930  34 29 81 34 30 3a e7 60  69 25 3e 6c 4a 25 80 51  |4).40:.`i%>lJ%.Q|
0002e940  61 25 3d a3 e1 0d 7e ca  19 e7 47 60 25 3e 6c 4a  |a%=...~...G`%>lJ|
0002e950  25 80 51 61 25 3d a3 47  60 25 3d 6c 4a 25 0d 7e  |%.Qa%=.G`%=lJ%.~|
0002e960  cb 14 c8 99 26 34 30 30  65 36 2c 37 3a e7 51 61  |....&400e6,7:.Qa|
0002e970  25 8c 0d 7e cc 0a c8 8e  46 79 25 ca 0d 7e cd 77  |%..~....Fy%..~.w|
0002e980  c9 31 3a 76 72 25 3d 30  3a e3 6c 25 3d 60 69 25  |.1:vr%=0:.l%=`i%|
0002e990  b8 47 60 25 3a ec 4c 25  2b 32 2c 58 25 2d 38 2d  |.G`%:.L%+2,X%-8-|
0002e9a0  34 30 2a 6c 25 3a 71 25  3d 30 3a 68 4a 25 3d 6c  |40*l%:q%=0:hJ%=l|
0002e9b0  25 3a c8 95 71 25 3c 3d  32 35 80 68 4a 25 2d 57  |%:..q%<=25.hJ%-W|
0002e9c0  25 28 71 25 29 3e 3d 30  3a 68 4a 25 2d 3d 57 25  |%(q%)>=0:hJ%-=W%|
0002e9d0  28 71 25 29 3a 71 25 2b  3d 31 3a ce 3a e7 21 28  |(q%):q%+=1:.:.!(|
0002e9e0  41 25 28 4d 4a 25 29 2b  71 25 2a 34 29 3c 3e 76  |A%(MJ%)+q%*4)<>v|
0002e9f0  72 25 8c 0d 7e ce 32 5f  6f 25 3d 21 28 41 25 28  |r%..~.2_o%=!(A%(|
0002ea00  4d 4a 25 29 2b 71 25 2a  34 29 3a 76 72 25 3d 21  |MJ%)+q%*4):vr%=!|
0002ea10  28 41 25 28 4d 4a 25 29  2b 71 25 2a 34 29 3a 42  |(A%(MJ%)+q%*4):B|
0002ea20  25 3d 68 4a 25 0d 7e cf  2b cc 3a 42 25 3d 30 3a  |%=hJ%.~.+.:B%=0:|
0002ea30  e7 a7 22 42 46 47 48 4a  4b 51 56 57 58 59 5a 22  |.."BFGHJKQVWXYZ"|
0002ea40  2c bd 28 71 25 2b 36 35  29 29 5f 6f 25 2d 3d 31  |,.(q%+65))_o%-=1|
0002ea50  0d 7e d0 4e cd 3a 46 25  3d 68 75 25 3a 47 25 3d  |.~.N.:F%=hu%:G%=|
0002ea60  6a 61 25 3a 44 25 3d 41  25 28 4d 4a 25 29 3a 45  |ja%:D%=A%(MJ%):E|
0002ea70  25 3d 5f 6f 25 3a e7 71  25 3c 32 35 8c 48 25 3d  |%=_o%:.q%<25.H%=|
0002ea80  21 28 41 25 28 4d 4a 25  29 2b 28 71 25 2b 31 29  |!(A%(MJ%)+(q%+1)|
0002ea90  2a 34 29 2d 31 8b 48 25  3d 4c 61 25 2a 32 0d 7e  |*4)-1.H%=La%*2.~|
0002eaa0  d1 0f 5f 6f 25 3d ba 28  67 4a 29 3a ed 0d 7e d2  |.._o%=.(gJ):..~.|
0002eab0  7f c9 32 3a c8 99 22 58  53 70 65 6c 6c 5f 47 65  |..2:.."XSpell_Ge|
0002eac0  74 57 6f 72 64 22 2c 60  69 25 b8 2c 42 24 3a ec  |tWord",`i%.,B$:.|
0002ead0  4c 25 2b 32 2c 58 25 2d  38 2d 34 30 2a 60 69 25  |L%+2,X%-8-40*`i%|
0002eae0  3a f1 a4 58 28 42 24 29  3a e3 6c 25 3d 60 69 25  |:..X(B$):.l%=`i%|
0002eaf0  2b 31 b8 47 60 25 3a c8  99 22 58 53 70 65 6c 6c  |+1.G`%:.."XSpell|
0002eb00  5f 47 65 74 4e 65 78 74  57 6f 72 64 22 b8 2c 42  |_GetNextWord".,B|
0002eb10  24 3a ec 4c 25 2b 32 2c  58 25 2d 38 2d 34 30 2a  |$:.L%+2,X%-8-40*|
0002eb20  6c 25 3a f1 a4 58 28 42  24 29 3a ed 0d 7e d3 fd  |l%:..X(B$):..~..|
0002eb30  c9 33 3a 41 25 3d 41 25  28 58 5f 25 29 2b 34 3a  |.3:A%=A%(X_%)+4:|
0002eb40  42 25 3d 60 69 25 3a 71  25 3d ba 28 6a 79 29 3a  |B%=`i%:q%=.(jy):|
0002eb50  68 4a 25 3d 21 69 79 3a  67 72 25 3d 71 25 3a 41  |hJ%=!iy:gr%=q%:A|
0002eb60  25 3d 68 4a 25 3a 42 25  3d 41 25 28 58 5f 25 29  |%=hJ%:B%=A%(X_%)|
0002eb70  2b 32 30 34 38 2b 21 28  41 25 28 58 5f 25 29 2b  |+2048+!(A%(X_%)+|
0002eb80  71 25 2a 38 29 3a 43 25  3d 60 75 25 3a 44 25 3d  |q%*8):C%=`u%:D%=|
0002eb90  7a 6c 25 2d 21 28 41 25  28 58 5f 25 29 2b 71 25  |zl%-!(A%(X_%)+q%|
0002eba0  2a 38 29 3a d6 62 79 3a  42 24 3d 24 60 75 25 3a  |*8):.by:B$=$`u%:|
0002ebb0  ec 4c 25 2b 32 2c 58 25  2d 38 2d 34 30 2a 60 69  |.L%+2,X%-8-40*`i|
0002ebc0  25 3a f1 a4 58 28 42 24  29 3a e3 6c 25 3d 60 69  |%:..X(B$):.l%=`i|
0002ebd0  25 2b 31 b8 47 60 25 3a  41 25 3d 41 25 28 58 5f  |%+1.G`%:A%=A%(X_|
0002ebe0  25 29 2b 34 3a 42 25 3d  6c 25 3a 71 25 3d ba 28  |%)+4:B%=l%:q%=.(|
0002ebf0  6a 79 29 3a 68 4a 25 3d  21 69 79 3a 41 25 3d 68  |jy):hJ%=!iy:A%=h|
0002ec00  4a 25 3a 42 25 3d 41 25  28 58 5f 25 29 2b 32 30  |J%:B%=A%(X_%)+20|
0002ec10  34 38 2b 21 28 41 25 28  58 5f 25 29 2b 71 25 2a  |48+!(A%(X_%)+q%*|
0002ec20  38 29 3a 43 25 3d 60 75  25 0d 7e d4 23 44 25 3d  |8):C%=`u%.~.#D%=|
0002ec30  7a 6c 25 2d 21 28 41 25  28 58 5f 25 29 2b 71 25  |zl%-!(A%(X_%)+q%|
0002ec40  2a 38 29 3a e7 71 25 3c  32 35 36 8c 0d 7e d5 0d  |*8):.q%<256..~..|
0002ec50  e7 67 72 25 3c 3e 71 25  8c 0d 7e d6 0e d6 62 79  |.gr%<>q%..~...by|
0002ec60  3a 67 72 25 3d 71 25 0d  7e d7 09 cc 3a d6 6c 75  |:gr%=q%.~...:.lu|
0002ec70  0d 7e d8 05 cd 0d 7e d9  2d cd 3a 42 24 3d 24 60  |.~....~.-.:B$=$`|
0002ec80  75 25 3a ec 4c 25 2b 32  2c 58 25 2d 38 2d 34 30  |u%:.L%+2,X%-8-40|
0002ec90  2a 6c 25 3a e7 71 25 3c  32 35 36 f1 a4 58 28 42  |*l%:.q%<256..X(B|
0002eca0  24 29 0d 7e da 05 ed 0d  7e db 05 cb 0d 7e dc 30  |$).~....~....~.0|
0002ecb0  cc 3a e3 6c 25 3d 60 69  25 b8 47 60 25 3a ec 4c  |.:.l%=`i%.G`%:.L|
0002ecc0  25 2b 32 2c 58 25 2d 38  2d 34 30 2a 6c 25 3a f1  |%+2,X%-8-40*l%:.|
0002ecd0  a4 58 28 a4 5f 28 6c 25  29 29 3a ed 0d 7e dd 30  |.X(._(l%)):..~.0|
0002ece0  cd 3a e7 6f 4a 25 3e 3d  30 8c f2 57 28 33 2c 38  |.:.oJ%>=0..W(3,8|
0002ecf0  29 3a c8 93 c8 90 4c 25  2c 58 25 2d 34 2d 34 30  |):....L%,X%-4-40|
0002ed00  2a 6f 4a 25 2c 33 36 38  2c 2d 33 36 0d 7e de 05  |*oJ%,368,-36.~..|
0002ed10  e1 0d 7e df 1e dd a4 58  28 42 24 29 3a e3 70 25  |..~....X(B$):.p%|
0002ed20  3d 31 b8 a9 28 42 24 29  3a e7 70 25 3d 31 8c 0d  |=1..(B$):.p%=1..|
0002ed30  7e e0 54 4f 25 3d 97 28  c1 42 24 2c 70 25 2c 31  |~.TO%=.(.B$,p%,1|
0002ed40  29 29 3a e7 28 4f 25 3e  3d 97 28 22 61 22 29 80  |)):.(O%>=.("a").|
0002ed50  4f 25 3c 3d 97 28 22 7a  22 29 29 84 28 4f 25 3e  |O%<=.("z")).(O%>|
0002ed60  3d 97 28 22 e0 22 29 80  4f 25 3c 3d 97 28 22 fe  |=.(".").O%<=.(".|
0002ed70  22 29 29 c1 42 24 2c 70  25 29 3d bd 28 4f 25 2d  |")).B$,p%)=.(O%-|
0002ed80  33 32 29 0d 7e e1 5b cc  3a 4f 25 3d 97 28 c1 42  |32).~.[.:O%=.(.B|
0002ed90  24 2c 70 25 2c 31 29 29  3a e7 28 4f 25 3e 3d 97  |$,p%,1)):.(O%>=.|
0002eda0  28 22 41 22 29 80 4f 25  3c 3d 97 28 22 5a 22 29  |("A").O%<=.("Z")|
0002edb0  29 84 28 4f 25 3e 3d 97  28 22 c0 22 29 80 4f 25  |).(O%>=.(".").O%|
0002edc0  3c 3d 97 28 22 de 22 29  29 84 4f 25 3d 37 c1 42  |<=.(".")).O%=7.B|
0002edd0  24 2c 70 25 29 3d bd 28  4f 25 2b 33 32 29 0d 7e  |$,p%)=.(O%+32).~|
0002ede0  e2 0b cd 3a ed 3a 3d 42  24 0d 7e e3 24 dd f2 4f  |...:.:=B$.~.$..O|
0002edf0  79 28 6c 25 29 3a 68 25  3d 6c 25 2a 34 30 3a e7  |y(l%):h%=l%*40:.|
0002ee00  68 25 3c 32 35 32 8c 68  25 3d 32 35 32 0d 7e e4  |h%<252.h%=252.~.|
0002ee10  3f 5a 25 21 30 3d 30 3a  5a 25 21 31 32 3d 30 3a  |?Z%!0=0:Z%!12=0:|
0002ee20  5a 25 21 38 3d 33 36 32  3a 5a 25 21 34 3d 2d 68  |Z%!8=362:Z%!4=-h|
0002ee30  25 3a c8 99 26 34 30 30  64 37 2c 56 5f 25 2c 5a  |%:..&400d7,V_%,Z|
0002ee40  25 3a e7 a4 53 28 77 25  29 3d a3 e1 0d 7e e5 30  |%:..S(w%)=...~.0|
0002ee50  5a 25 21 30 3d 56 5f 25  3a c8 99 26 34 30 30 63  |Z%!0=V_%:..&400c|
0002ee60  62 2c 2c 5a 25 3a 5a 25  21 32 34 3d 30 3a c8 99  |b,,Z%:Z%!24=0:..|
0002ee70  26 34 30 30 63 35 2c 2c  5a 25 3a e1 0d 7e e6 11  |&400c5,,Z%:..~..|
0002ee80  dd f2 55 6c 3a c8 8e 5a  25 21 33 36 ca 0d 7e e7  |..Ul:..Z%!36..~.|
0002ee90  47 c9 31 3a 5a 25 21 30  3d 56 5f 25 3a c8 99 26  |G.1:Z%!0=V_%:..&|
0002eea0  34 30 30 63 62 2c 2c 5a  25 3a e7 28 5a 25 21 32  |400cb,,Z%:.(Z%!2|
0002eeb0  34 29 83 34 30 3d 30 8c  5a 25 21 32 34 2b 3d 34  |4).40=0.Z%!24+=4|
0002eec0  30 8b 5a 25 21 32 34 2b  3d 2d 28 5a 25 21 32 34  |0.Z%!24+=-(Z%!24|
0002eed0  29 83 34 30 0d 7e e8 10  c8 99 26 34 30 30 63 35  |).40.~....&400c5|
0002eee0  2c 2c 5a 25 0d 7e e9 4c  c9 2d 31 3a 5a 25 21 30  |,,Z%.~.L.-1:Z%!0|
0002eef0  3d 56 5f 25 3a c8 99 26  34 30 30 63 62 2c 2c 5a  |=V_%:..&400cb,,Z|
0002ef00  25 3a e7 28 5a 25 21 32  34 29 83 34 30 3d 2d 32  |%:.(Z%!24).40=-2|
0002ef10  38 8c 5a 25 21 32 34 2d  3d 34 30 8b 5a 25 21 32  |8.Z%!24-=40.Z%!2|
0002ef20  34 2d 3d 32 38 2b 28 5a  25 21 32 34 83 34 30 29  |4-=28+(Z%!24.40)|
0002ef30  0d 7e ea 10 c8 99 26 34  30 30 63 35 2c 2c 5a 25  |.~....&400c5,,Z%|
0002ef40  0d 7e eb 4d c9 32 3a 5a  25 21 30 3d 56 5f 25 3a  |.~.M.2:Z%!0=V_%:|
0002ef50  c8 99 26 34 30 30 63 62  2c 2c 5a 25 3a e7 28 5a  |..&400cb,,Z%:.(Z|
0002ef60  25 21 32 34 29 83 34 30  3d 30 8c 5a 25 21 32 34  |%!24).40=0.Z%!24|
0002ef70  2b 3d 36 2a 34 30 8b 5a  25 21 32 34 2b 3d 35 2a  |+=6*40.Z%!24+=5*|
0002ef80  34 30 2d 28 5a 25 21 32  34 29 83 34 30 0d 7e ec  |40-(Z%!24).40.~.|
0002ef90  10 c8 99 26 34 30 30 63  35 2c 2c 5a 25 0d 7e ed  |...&400c5,,Z%.~.|
0002efa0  53 c9 2d 32 3a 5a 25 21  30 3d 56 5f 25 3a c8 99  |S.-2:Z%!0=V_%:..|
0002efb0  26 34 30 30 63 62 2c 2c  5a 25 3a e7 28 5a 25 21  |&400cb,,Z%:.(Z%!|
0002efc0  32 34 29 83 34 30 3d 2d  32 38 8c 5a 25 21 32 34  |24).40=-28.Z%!24|
0002efd0  2d 3d 36 2a 34 30 8b 5a  25 21 32 34 2d 3d 35 2a  |-=6*40.Z%!24-=5*|
0002efe0  34 30 2b 32 38 2b 28 5a  25 21 32 34 83 34 30 29  |40+28+(Z%!24.40)|
0002eff0  0d 7e ee 10 c8 99 26 34  30 30 63 35 2c 2c 5a 25  |.~....&400c5,,Z%|
0002f000  0d 7e ef 07 cb 3a e1 0d  7e f0 18 dd f2 4f 4a 3a  |.~...:..~....OJ:|
0002f010  e7 57 69 25 3d b9 21 71  3d 32 8b 21 71 3d 34 0d  |.Wi%=.!q=2.!q=4.|
0002f020  7e f1 4c 21 55 4a 3d 46  79 25 3a f2 61 28 50 25  |~.L!UJ=Fy%:.a(P%|
0002f030  29 3a 41 25 3d 5f 25 3a  42 25 3d 51 79 25 3a 43  |):A%=_%:B%=Qy%:C|
0002f040  25 3d 6d 25 3a 44 25 3d  41 25 28 71 79 25 29 3a  |%=m%:D%=A%(qy%):|
0002f050  45 25 3d 50 79 25 3a 46  25 3d 51 6c 25 3a 47 25  |E%=Py%:F%=Ql%:G%|
0002f060  3d 72 79 25 3a c8 8e 46  79 25 ca 0d 7e f2 1a c9  |=ry%:..Fy%..~...|
0002f070  31 3a 21 77 79 3d 41 25  28 4d 4a 25 29 3a 21 61  |1:!wy=A%(MJ%):!a|
0002f080  79 3d 4c 61 25 0d 7e f3  06 c9 32 0d 7e f4 1a c9  |y=La%.~...2.~...|
0002f090  33 3a 21 77 79 3d 41 25  28 58 5f 25 29 3a 21 61  |3:!wy=A%(X_%):!a|
0002f0a0  79 3d 7a 6c 25 0d 7e f5  31 cb 3a 21 49 4a 3d 60  |y=zl%.~.1.:!IJ=`|
0002f0b0  75 25 3a 21 6a 5f 3d 51  6c 25 3a 21 53 4a 3d 68  |u%:!j_=Ql%:!SJ=h|
0002f0c0  75 25 3a 21 6e 5f 3d 6a  61 25 3a 64 5f 25 3d ba  |u%:!n_=ja%:d_%=.|
0002f0d0  28 50 5f 29 3a e1 0d 7e  f6 22 dd f2 56 79 3a e7  |(P_):..~."..Vy:.|
0002f0e0  6d 25 3d 30 84 5f 25 3c  3d 31 72 79 25 3d a3 3a  |m%=0._%<=1ry%=.:|
0002f0f0  64 5f 25 3d 2d 31 3a e1  0d 7e f7 17 e7 72 79 25  |d_%=-1:..~...ry%|
0002f100  3d a3 80 21 41 3d 30 c8  99 26 34 30 36 63 30 0d  |=..!A=0..&406c0.|
0002f110  7e f8 63 21 55 4a 3d 46  79 25 3a f2 61 28 50 25  |~.c!UJ=Fy%:.a(P%|
0002f120  29 3a 78 79 25 3d 50 25  3a 4d 42 25 3d 75 4a 25  |):xy%=P%:MB%=uJ%|
0002f130  3a 5a 42 25 3d 62 4a 25  3a 41 25 3d 5f 25 3a 42  |:ZB%=bJ%:A%=_%:B|
0002f140  25 3d 51 79 25 3a 43 25  3d 6d 25 3a 44 25 3d 41  |%=Qy%:C%=m%:D%=A|
0002f150  25 28 71 79 25 29 3a 45  25 3d 50 79 25 3a 46 25  |%(qy%):E%=Py%:F%|
0002f160  3d 51 6c 25 3a 47 25 3d  72 79 25 3a c8 8e 46 79  |=Ql%:G%=ry%:..Fy|
0002f170  25 ca 0d 7e f9 1a c9 31  3a 21 77 79 3d 41 25 28  |%..~...1:!wy=A%(|
0002f180  4d 4a 25 29 3a 21 61 79  3d 4c 61 25 0d 7e fa 06  |MJ%):!ay=La%.~..|
0002f190  c9 32 0d 7e fb 1a c9 33  3a 21 77 79 3d 41 25 28  |.2.~...3:!wy=A%(|
0002f1a0  58 5f 25 29 3a 21 61 79  3d 7a 6c 25 0d 7e fc 18  |X_%):!ay=zl%.~..|
0002f1b0  cb 3a e7 57 79 25 3c 3e  30 84 21 41 3c 3e 30 84  |.:.Wy%<>0.!A<>0.|
0002f1c0  49 79 25 8c 0d 7e fd 15  e7 50 25 3c 61 6e 25 8c  |Iy%..~...P%<an%.|
0002f1d0  21 6f 3d 31 8b 21 6f 3d  30 0d 7e fe 15 cc 3a e7  |!o=1.!o=0.~...:.|
0002f1e0  50 25 3c 30 8c 21 6f 3d  31 8b 21 6f 3d 30 0d 7e  |P%<0.!o=1.!o=0.~|
0002f1f0  ff 50 cd 3a 21 49 4a 3d  60 75 25 3a 21 6a 5f 3d  |.P.:!IJ=`u%:!j_=|
0002f200  51 6c 25 3a 21 53 4a 3d  68 75 25 3a 21 6e 5f 3d  |Ql%:!SJ=hu%:!n_=|
0002f210  6a 61 25 3a 64 5f 25 3d  ba 28 50 5f 29 3a 50 79  |ja%:d_%=.(P_):Py|
0002f220  25 3d 21 4d 79 3a 50 25  3d a4 63 28 21 71 4a 2d  |%=!My:P%=.c(!qJ-|
0002f230  51 79 25 29 3a e7 50 25  3c 30 50 25 3d 30 0d 7f  |Qy%):.P%<0P%=0..|
0002f240  00 28 e7 50 25 3e 5f 25  8c c8 99 26 34 30 36 63  |.(.P%>_%...&406c|
0002f250  31 3a 72 79 25 3d a3 3a  50 25 3d 2d 31 3a 73 69  |1:ry%=.:P%=-1:si|
0002f260  25 3d 6d 25 3a e1 0d 7f  01 23 e7 21 28 61 25 2b  |%=m%:....#.!(a%+|
0002f270  50 25 2a 38 29 3d 2d 31  80 21 28 61 25 2b 34 2b  |P%*8)=-1.!(a%+4+|
0002f280  50 25 2a 38 29 3d 2d 31  8c 0d 7f 02 49 c8 95 21  |P%*8)=-1....I..!|
0002f290  4d 79 3c 6d 25 80 21 28  61 25 2b 50 25 2a 38 29  |My<m%.!(a%+P%*8)|
0002f2a0  3d 2d 31 80 21 28 61 25  2b 34 2b 50 25 2a 38 29  |=-1.!(a%+4+P%*8)|
0002f2b0  3d 2d 31 3a 64 5f 25 3d  ba 28 50 5f 29 3a 50 79  |=-1:d_%=.(P_):Py|
0002f2c0  25 3d 21 4d 79 3a 50 25  3d a4 63 28 21 71 4a 29  |%=!My:P%=.c(!qJ)|
0002f2d0  3a ce 0d 7f 03 21 cd 3a  41 24 3d a4 46 28 51 6c  |:....!.:A$=.F(Ql|
0002f2e0  25 29 3a 73 69 25 3d 21  4d 79 3a e7 73 69 25 3c  |%):si%=!My:.si%<|
0002f2f0  6d 25 8c 0d 7f 04 0c e7  72 79 25 3d a3 f2 64 0d  |m%......ry%=..d.|
0002f300  7f 05 21 78 79 25 3d 50  25 3a e7 78 79 25 3e 3d  |..!xy%=P%:.xy%>=|
0002f310  30 4d 42 25 3d 75 4a 25  3a 5a 42 25 3d 62 4a 25  |0MB%=uJ%:ZB%=bJ%|
0002f320  0d 7f 06 0b e7 50 25 3e  3d 30 8c 0d 7f 07 18 e7  |.....P%>=0......|
0002f330  64 5f 25 3d 2d 31 80 ac  28 73 69 25 3e 6d 25 2d  |d_%=-1..(si%>m%-|
0002f340  31 29 8c 0d 7f 08 0b e7  72 79 25 3d b9 8c 0d 7f  |1)......ry%=....|
0002f350  09 1e 75 24 3d 41 24 3a  f2 66 5f 3a e7 6c 4a 25  |..u$=A$:.f_:.lJ%|
0002f360  3e 2d 31 80 41 69 25 3d  a3 f2 4d 75 0d 7f 0a 17  |>-1.Ai%=..Mu....|
0002f370  e7 21 58 3e 31 30 30 8c  79 5f 25 3d 30 8b 79 5f  |.!X>100.y_%=0.y_|
0002f380  25 3d 31 0d 7f 0b 10 e7  21 48 4a 3d 31 8c 79 5f  |%=1.....!HJ=1.y_|
0002f390  25 3d 30 0d 7f 0c 1c e7  21 71 3d 30 8c 21 71 3d  |%=0.....!q=0.!q=|
0002f3a0  33 3a 50 25 2b 3d a9 28  41 24 29 2b 79 5f 25 0d  |3:P%+=.(A$)+y_%.|
0002f3b0  7f 0d 12 e7 50 25 3e 3d  5f 25 8c 73 69 25 3d 6d  |....P%>=_%.si%=m|
0002f3c0  25 0d 7f 0e 09 41 69 25  3d a3 0d 7f 0f 3e cc 3a  |%....Ai%=....>.:|
0002f3d0  f2 41 28 77 25 2c 31 2c  41 24 29 3a f2 47 28 77  |.A(w%,1,A$):.G(w|
0002f3e0  25 2c 31 2c a9 28 41 24  29 29 3a f2 77 4a 3a f2  |%,1,.(A$)):.wJ:.|
0002f3f0  66 5f 3a e7 41 69 25 8c  64 5f 25 3d 30 3a 41 69  |f_:.Ai%.d_%=0:Ai|
0002f400  25 3d a3 3a 21 71 3d 30  0d 7f 10 05 cd 0d 7f 11  |%=.:!q=0........|
0002f410  05 cd 0d 7f 12 05 cd 0d  7f 13 14 cd 3a e7 73 69  |............:.si|
0002f420  25 3e 6d 25 2d 31 50 25  3d 2d 31 0d 7f 14 0e e7  |%>m%-1P%=-1.....|
0002f430  73 69 25 3e 6d 25 2d 31  8c 0d 7f 15 5f e7 72 79  |si%>m%-1...._.ry|
0002f440  25 3d a3 f2 58 28 22 4d  65 73 73 61 67 65 20 66  |%=..X("Message f|
0002f450  72 6f 6d 20 4f 70 74 69  63 61 6c 22 2c 22 54 68  |rom Optical","Th|
0002f460  65 20 73 70 65 6c 6c 69  6e 67 20 63 68 65 63 6b  |e spelling check|
0002f470  65 72 20 68 61 73 20 72  65 61 63 68 65 64 20 74  |er has reached t|
0002f480  68 65 20 65 6e 64 20 6f  66 20 74 68 65 20 74 65  |he end of the te|
0002f490  78 74 2e 22 29 3a f2 64  0d 7f 16 0d e7 72 79 25  |xt."):.d.....ry%|
0002f4a0  6a 79 25 3d a3 0d 7f 17  09 72 79 25 3d a3 0d 7f  |jy%=.....ry%=...|
0002f4b0  18 14 cd 3a e7 72 79 25  3d a3 c8 99 26 34 30 36  |...:.ry%=...&406|
0002f4c0  63 31 0d 7f 19 05 e1 0d  7f 1a 3a dd f2 77 4a 3a  |c1........:..wJ:|
0002f4d0  ea 79 75 25 2c 50 61 25  2c 72 69 25 2c 56 25 2c  |.yu%,Pa%,ri%,V%,|
0002f4e0  62 42 25 2c 59 60 25 2c  55 6b 25 2c 6b 5a 25 2c  |bB%,Y`%,Uk%,kZ%,|
0002f4f0  7a 5a 25 2c 77 5a 25 3a  f2 41 5f 3a e7 57 69 25  |zZ%,wZ%:.A_:.Wi%|
0002f500  8c 0d 7f 1b 32 f2 75 5f  28 77 25 2c 22 53 70 65  |....2.u_(w%,"Spe|
0002f510  6c 6c 69 6e 67 20 63 68  65 63 6b 65 72 20 28 64  |lling checker (d|
0002f520  6f 69 6e 67 20 73 69 6e  67 6c 65 20 77 6f 72 64  |oing single word|
0002f530  29 22 29 0d 7f 1c 20 cc  3a f2 75 5f 28 77 25 2c  |)")... .:.u_(w%,|
0002f540  22 53 70 65 6c 6c 69 6e  67 20 63 68 65 63 6b 65  |"Spelling checke|
0002f550  72 22 29 0d 7f 1d 19 cd  3a 79 75 25 3d 50 25 3a  |r").....:yu%=P%:|
0002f560  e7 79 75 25 3c 30 8c 79  75 25 3d 30 0d 7f 1e 81  |.yu%<0.yu%=0....|
0002f570  f2 4d 79 28 79 75 25 2c  2d 31 29 3a 4d 25 21 30  |.My(yu%,-1):M%!0|
0002f580  3d 65 25 3a c8 99 26 34  30 30 63 62 2c 2c 4d 25  |=e%:..&400cb,,M%|
0002f590  3a 62 42 25 3d 4d 25 21  34 2b 28 4d 25 21 31 32  |:bB%=M%!4+(M%!12|
0002f5a0  2d 4d 25 21 34 29 2f 32  3a 50 61 25 3d 4d 25 21  |-M%!4)/2:Pa%=M%!|
0002f5b0  31 36 2d 4d 25 21 32 34  2d 72 4a 25 3a 60 65 25  |16-M%!24-rJ%:`e%|
0002f5c0  3d 4d 25 21 34 2d 4d 25  21 32 30 2b 4f 75 25 3a  |=M%!4-M%!20+Ou%:|
0002f5d0  59 60 25 3d a3 3a 55 6b  25 3d a4 53 28 77 25 29  |Y`%=.:Uk%=.S(w%)|
0002f5e0  3a e7 55 6b 25 3d a3 8c  59 60 25 3d b9 0d 7f 1f  |:.Uk%=..Y`%=....|
0002f5f0  29 4d 25 21 30 3d 56 5f  25 3a c8 99 26 34 30 30  |)M%!0=V_%:..&400|
0002f600  63 62 2c 2c 4d 25 3a e7  4d 25 21 32 38 3c 3e 2d  |cb,,M%:.M%!28<>-|
0002f610  31 59 60 25 3d b9 0d 7f  20 59 4d 25 21 30 3d 77  |1Y`%=... YM%!0=w|
0002f620  25 3a c8 99 26 34 30 30  63 62 2c 2c 4d 25 3a e7  |%:..&400cb,,M%:.|
0002f630  50 61 25 3e 4d 25 21 38  2d 31 36 80 50 61 25 3c  |Pa%>M%!8-16.Pa%<|
0002f640  4d 25 21 31 36 2b 38 38  80 60 65 25 2b 28 33 30  |M%!16+88.`e%+(30|
0002f650  2a 31 36 29 3e 4d 25 21  34 2d 31 36 80 60 65 25  |*16)>M%!4-16.`e%|
0002f660  3c 4d 25 21 31 32 2b 31  36 8c 59 60 25 3d b9 0d  |<M%!12+16.Y`%=..|
0002f670  7f 21 25 e7 4d 25 21 38  3e 50 61 25 2b 32 35 36  |.!%.M%!8>Pa%+256|
0002f680  84 4d 25 21 31 36 3c 50  61 25 2d 32 35 36 8c 59  |.M%!16<Pa%-256.Y|
0002f690  60 25 3d b9 0d 7f 22 0b  e7 59 60 25 3d a3 e1 0d  |`%=..."..Y`%=...|
0002f6a0  7f 23 47 f2 71 3a e7 73  25 3e 4d 25 21 34 80 73  |.#G.q:.s%>M%!4.s|
0002f6b0  25 3c 4d 25 21 31 32 80  76 25 3e 4d 25 21 38 80  |%<M%!12.v%>M%!8.|
0002f6c0  76 25 3c 4d 25 21 31 36  80 55 6b 25 3d b9 8c 6b  |v%<M%!16.Uk%=..k|
0002f6d0  5a 25 3d b9 3a 7a 5a 25  3d 4d 25 21 34 3a 77 5a  |Z%=.:zZ%=M%!4:wZ|
0002f6e0  25 3d 4d 25 21 38 0d 7f  24 0b e7 55 6b 25 3d a3  |%=M%!8..$..Uk%=.|
0002f6f0  8c 0d 7f 25 3a 62 42 25  3d 62 42 25 2d 28 4d 25  |...%:bB%=bB%-(M%|
0002f700  21 31 32 2d 4d 25 21 34  29 2f 32 3a 4d 25 21 31  |!12-M%!4)/2:M%!1|
0002f710  32 3d 62 42 25 2b 28 4d  25 21 31 32 2d 4d 25 21  |2=bB%+(M%!12-M%!|
0002f720  34 29 3a 4d 25 21 34 3d  62 42 25 0d 7f 26 58 cd  |4):M%!4=bB%..&X.|
0002f730  3a c8 99 35 33 2c 2d 31  2c 31 32 b8 2c 2c 72 69  |:..53,-1,12.,,ri|
0002f740  25 3a c8 99 35 33 2c 2d  31 2c 35 b8 2c 2c 56 25  |%:..53,-1,5.,,V%|
0002f750  3a 56 25 3d 31 3c 3c 56  25 3a 72 69 25 3d 72 69  |:V%=1<<V%:ri%=ri|
0002f760  25 2a 56 25 2d 31 2d 34  34 3a e7 50 61 25 2b 31  |%*V%-1-44:.Pa%+1|
0002f770  36 2b 28 4d 25 21 31 36  2d 4d 25 21 38 29 3e 72  |6+(M%!16-M%!8)>r|
0002f780  69 25 8c 0d 7f 27 29 4d  25 21 38 3d 50 61 25 2d  |i%...')M%!8=Pa%-|
0002f790  38 38 2d 28 4d 25 21 31  36 2d 4d 25 21 38 29 3a  |88-(M%!16-M%!8):|
0002f7a0  4d 25 21 31 36 3d 50 61  25 2d 38 38 0d 7f 28 2b  |M%!16=Pa%-88..(+|
0002f7b0  cc 3a 4d 25 21 31 36 3d  50 61 25 2b 31 36 2b 28  |.:M%!16=Pa%+16+(|
0002f7c0  4d 25 21 31 36 2d 4d 25  21 38 29 3a 4d 25 21 38  |M%!16-M%!8):M%!8|
0002f7d0  3d 50 61 25 2b 31 36 0d  7f 29 46 cd 3a 4d 25 21  |=Pa%+16..)F.:M%!|
0002f7e0  32 38 3d 2d 31 3a c8 99  26 34 30 30 63 35 2c 2c  |28=-1:..&400c5,,|
0002f7f0  4d 25 3a f2 44 28 56 5f  25 29 3a e7 6b 5a 25 c8  |M%:.D(V_%):.kZ%.|
0002f800  97 b8 73 25 2b 28 4d 25  21 34 2d 7a 5a 25 29 2c  |..s%+(M%!4-zZ%),|
0002f810  76 25 2b 28 4d 25 21 38  2d 77 5a 25 29 0d 7f 2a  |v%+(M%!8-wZ%)..*|
0002f820  05 e1 0d 7f 2b 0f dd f2  64 3a e7 61 5f 25 3d a3  |....+...d:.a_%=.|
0002f830  e1 0d 7f 2c 0f 6a 79 25  3d b9 3a e7 61 5f 25 8c  |...,.jy%=.:.a_%.|
0002f840  0d 7f 2d b9 41 25 3d 50  25 3a 42 25 3d 51 79 25  |..-.A%=P%:B%=Qy%|
0002f850  3a 43 25 3d 6d 25 3a 44  25 3d 41 25 28 71 79 25  |:C%=m%:D%=A%(qy%|
0002f860  29 3a 45 25 3d 70 5f 25  3a d6 67 3a 75 4a 25 3d  |):E%=p_%:.g:uJ%=|
0002f870  21 62 3a 62 4a 25 3d 21  75 3a 50 79 25 3d 21 77  |!b:bJ%=!u:Py%=!w|
0002f880  3a 5a 25 21 30 3d 65 25  3a 5a 25 21 34 3d 30 3a  |:Z%!0=e%:Z%!4=0:|
0002f890  5a 25 21 38 3d 2d 31 3c  3c 31 36 3a 5a 25 21 31  |Z%!8=-1<<16:Z%!1|
0002f8a0  32 3d 31 3c 3c 31 36 3a  5a 25 21 31 36 3d 30 3a  |2=1<<16:Z%!16=0:|
0002f8b0  c8 99 26 34 30 30 63 39  2c 2c 5a 25 b8 64 25 3a  |..&400c9,,Z%.d%:|
0002f8c0  4c 25 3d 5a 25 21 34 2d  5a 25 21 32 30 3a 58 25  |L%=Z%!4-Z%!20:X%|
0002f8d0  3d 5a 25 21 31 36 2d 5a  25 21 32 34 3a 58 61 25  |=Z%!16-Z%!24:Xa%|
0002f8e0  3d b9 3a c8 95 64 25 3a  e7 78 79 25 3e 3d 30 f2  |=.:..d%:.xy%>=0.|
0002f8f0  67 28 78 79 25 2c 2d 31  29 0d 7f 2e 13 e7 50 25  |g(xy%,-1).....P%|
0002f900  3e 3d 30 f2 67 28 50 25  2c 2d 31 29 0d 7f 2f 15  |>=0.g(P%,-1)../.|
0002f910  c8 99 26 34 30 30 63 61  2c 2c 5a 25 b8 64 25 3a  |..&400ca,,Z%.d%:|
0002f920  ce 0d 7f 30 0b cd 3a f2  41 5f 3a e1 0d 7f 31 fd  |...0..:.A_:...1.|
0002f930  dd f2 65 69 3a 41 25 3d  50 25 3a 42 25 3d 51 79  |..ei:A%=P%:B%=Qy|
0002f940  25 3a 43 25 3d 6d 25 3a  44 25 3d 41 25 28 71 79  |%:C%=m%:D%=A%(qy|
0002f950  25 29 3a 45 25 3d 70 5f  25 3a d6 67 3a 75 4a 25  |%):E%=p_%:.g:uJ%|
0002f960  3d 21 62 3a 62 4a 25 3d  21 75 3a 50 79 25 3d 21  |=!b:bJ%=!u:Py%=!|
0002f970  77 3a 6c 25 3d 50 79 25  3a 57 4f 25 3d 30 3a 43  |w:l%=Py%:WO%=0:C|
0002f980  5f 25 3d 41 25 28 71 79  25 29 3a c8 95 ac 28 a7  |_%=A%(qy%):...(.|
0002f990  bd 33 32 2b bd 31 30 2b  22 2d 22 2c bd 28 43 5f  |.32+.10+"-",.(C_|
0002f9a0  25 3f 6c 25 29 29 3c 3e  30 84 43 5f 25 3f 6c 25  |%?l%))<>0.C_%?l%|
0002f9b0  3d 31 30 84 28 a7 bd 31  30 2b 22 21 22 22 25 29  |=10.(..10+"!""%)|
0002f9c0  27 2a 2b 2c 2d 2e 2f 3a  3b 3c 3e 3d 3f 5c 5d 5e  |'*+,-./:;<>=?\]^|
0002f9d0  5f 7d 22 2c bd 28 43 5f  25 3f 6c 25 29 29 3c 3e  |_}",.(C_%?l%))<>|
0002f9e0  30 80 a7 bd 33 32 2b bd  31 30 2b 22 2d 22 2c bd  |0...32+.10+"-",.|
0002f9f0  28 43 5f 25 3f 28 6c 25  2b 31 29 29 29 3c 3e 30  |(C_%?(l%+1)))<>0|
0002fa00  29 29 80 6c 25 3c 6d 25  80 57 4f 25 3c 3d a9 28  |)).l%<m%.WO%<=.(|
0002fa10  41 24 29 2d 31 3a 47 65  25 3d 97 28 c1 41 24 2c  |A$)-1:Ge%=.(.A$,|
0002fa20  57 4f 25 2b 31 2c 31 29  29 0d 7f 32 4c e7 28 43  |WO%+1,1))..2L.(C|
0002fa30  5f 25 3f 6c 25 3e 3d 97  28 22 41 22 29 80 43 5f  |_%?l%>=.("A").C_|
0002fa40  25 3f 6c 25 3c 3d 97 28  22 5a 22 29 29 84 28 43  |%?l%<=.("Z")).(C|
0002fa50  5f 25 3f 6c 25 3e 3d 97  28 22 c0 22 29 80 43 5f  |_%?l%>=.(".").C_|
0002fa60  25 3f 6c 25 3c 3d 97 28  22 de 22 29 29 8c 47 65  |%?l%<=.(".")).Ge|
0002fa70  25 2d 3d 33 32 0d 7f 33  26 c1 41 24 2c 57 4f 25  |%-=32..3&.A$,WO%|
0002fa80  2b 31 29 3d bd 28 47 65  25 29 3a 6c 25 2b 3d 31  |+1)=.(Ge%):l%+=1|
0002fa90  3a 57 4f 25 2b 3d 31 3a  ce 3a e1 0d 7f 34 1e dd  |:WO%+=1:.:...4..|
0002faa0  f2 7a 3a e7 57 79 25 3c  3e 30 84 21 41 3c 3e 30  |.z:.Wy%<>0.!A<>0|
0002fab0  84 49 79 25 84 44 79 25  e1 0d 7f 35 9c c8 99 26  |.Iy%.Dy%...5...&|
0002fac0  34 30 36 63 30 3a f2 50  28 77 25 2c 30 2c 46 79  |406c0:.P(w%,0,Fy|
0002fad0  25 3d 30 29 3a f2 50 28  77 25 2c 32 2c 46 79 25  |%=0):.P(w%,2,Fy%|
0002fae0  3d 30 29 3a f2 50 28 77  25 2c 33 2c 46 79 25 3d  |=0):.P(w%,3,Fy%=|
0002faf0  30 29 3a f2 50 28 77 25  2c 34 2c 46 79 25 3d 30  |0):.P(w%,4,Fy%=0|
0002fb00  29 3a f2 50 28 77 25 2c  36 2c 46 79 25 3d 30 29  |):.P(w%,6,Fy%=0)|
0002fb10  3a f2 50 28 77 25 2c 37  2c 46 79 25 3d 30 29 3a  |:.P(w%,7,Fy%=0):|
0002fb20  f2 50 28 77 25 2c 38 2c  46 79 25 3d 30 29 3a f2  |.P(w%,8,Fy%=0):.|
0002fb30  50 28 77 25 2c 31 30 2c  46 79 25 3d 30 29 3a f2  |P(w%,10,Fy%=0):.|
0002fb40  50 28 77 25 2c 31 31 2c  46 79 25 3d 30 29 3a c8  |P(w%,11,Fy%=0):.|
0002fb50  8e 46 79 25 ca 0d 7f 36  1f c9 30 3a f2 41 28 77  |.Fy%...6..0:.A(w|
0002fb60  25 2c 31 32 2c 22 28 4e  6f 20 6c 65 78 69 63 6f  |%,12,"(No lexico|
0002fb70  6e 29 22 29 0d 7f 37 49  c9 31 3a f2 5a 28 77 25  |n)")..7I.1:.Z(w%|
0002fb80  2c 31 31 29 3a f2 46 28  77 25 2c 30 29 3a f2 46  |,11):.F(w%,0):.F|
0002fb90  28 77 25 2c 34 29 3a f2  46 28 77 25 2c 38 29 3a  |(w%,4):.F(w%,8):|
0002fba0  f2 41 28 77 25 2c 31 32  2c 22 4f 70 74 69 63 61  |.A(w%,12,"Optica|
0002fbb0  6c 27 73 20 6c 65 78 69  63 6f 6e 22 29 0d 7f 38  |l's lexicon")..8|
0002fbc0  63 c9 32 3a f2 46 28 77  25 2c 31 31 29 3a f2 5a  |c.2:.F(w%,11):.Z|
0002fbd0  28 77 25 2c 30 29 3a f2  5a 28 77 25 2c 34 29 3a  |(w%,0):.Z(w%,4):|
0002fbe0  f2 5a 28 77 25 2c 38 29  3a f2 41 28 77 25 2c 31  |.Z(w%,8):.A(w%,1|
0002fbf0  32 2c 22 49 6d 70 72 65  73 73 69 6f 6e 27 73 20  |2,"Impression's |
0002fc00  6c 65 78 69 63 6f 6e 22  29 3a c8 99 22 58 53 70  |lexicon"):.."XSp|
0002fc10  65 6c 6c 5f 52 65 73 65  74 49 67 6e 6f 72 65 22  |ell_ResetIgnore"|
0002fc20  0d 7f 39 4c c9 33 3a f2  5a 28 77 25 2c 31 31 29  |..9L.3:.Z(w%,11)|
0002fc30  3a f2 46 28 77 25 2c 30  29 3a f2 46 28 77 25 2c  |:.F(w%,0):.F(w%,|
0002fc40  34 29 3a f2 46 28 77 25  2c 38 29 3a f2 41 28 77  |4):.F(w%,8):.A(w|
0002fc50  25 2c 31 32 2c 22 27 50  6c 61 69 6e 20 74 65 78  |%,12,"'Plain tex|
0002fc60  74 27 20 6c 65 78 69 63  6f 6e 22 29 0d 7f 3a 0d  |t' lexicon")..:.|
0002fc70  cb 3a e7 46 79 25 3e 30  8c 0d 7f 3b 10 e7 6d 25  |.:.Fy%>0...;..m%|
0002fc80  3d 30 84 5f 25 3c 3d 31  8c 0d 7f 3c 3b f2 5a 28  |=0._%<=1...<;.Z(|
0002fc90  77 25 2c 32 29 3a f2 5a  28 77 25 2c 35 29 3a f2  |w%,2):.Z(w%,5):.|
0002fca0  5a 28 77 25 2c 36 29 3a  f2 5a 28 77 25 2c 37 29  |Z(w%,6):.Z(w%,7)|
0002fcb0  3a f2 5a 28 77 25 2c 31  30 29 3a f2 5a 28 77 25  |:.Z(w%,10):.Z(w%|
0002fcc0  2c 31 31 29 0d 7f 3d 33  cc 3a f2 46 28 77 25 2c  |,11)..=3.:.F(w%,|
0002fcd0  32 29 3a f2 46 28 77 25  2c 35 29 3a f2 46 28 77  |2):.F(w%,5):.F(w|
0002fce0  25 2c 36 29 3a f2 46 28  77 25 2c 37 29 3a f2 46  |%,6):.F(w%,7):.F|
0002fcf0  28 77 25 2c 31 30 29 0d  7f 3e 05 cd 0d 7f 3f 12  |(w%,10)..>....?.|
0002fd00  cd 3a e7 67 79 25 3f 56  75 25 3c 3e 30 8c 0d 7f  |.:.gy%?Vu%<>0...|
0002fd10  40 1f f2 5a 28 77 25 2c  37 29 3a f2 5a 28 77 25  |@..Z(w%,7):.Z(w%|
0002fd20  2c 31 30 29 3a f2 5a 28  77 25 2c 32 29 0d 7f 41  |,10):.Z(w%,2)..A|
0002fd30  1c cd 3a e7 57 69 25 3d  a3 80 6a 79 25 3d a3 8c  |..:.Wi%=..jy%=..|
0002fd40  78 79 25 3d 2d 31 3a f2  64 0d 7f 42 21 6c 4a 25  |xy%=-1:.d..B!lJ%|
0002fd50  3d 2d 31 3a 6f 4a 25 3d  30 3a 51 61 25 3d b9 3a  |=-1:oJ%=0:Qa%=.:|
0002fd60  f2 71 3a e7 72 79 25 3d  a3 8c 0d 7f 43 0e e7 76  |.q:.ry%=....C..v|
0002fd70  79 25 3d a3 8c f2 78 79  0d 7f 44 12 f2 77 4a 3a  |y%=...xy..D..wJ:|
0002fd80  f2 47 28 77 25 2c 31 2c  30 29 0d 7f 45 0d cd 3a  |.G(w%,1,0)..E..:|
0002fd90  e7 57 69 25 3d a3 8c 0d  7f 46 11 f2 5a 4a 3a e7  |.Wi%=....F..ZJ:.|
0002fda0  72 79 25 3d a3 f2 64 5f  0d 7f 47 1a cd 3a e7 72  |ry%=..d_..G..:.r|
0002fdb0  79 25 3d a3 80 57 69 25  3d a3 f2 4f 79 28 6f 6c  |y%=..Wi%=..Oy(ol|
0002fdc0  25 29 0d 7f 48 0e c8 99  26 34 30 36 63 31 3a e1  |%)..H...&406c1:.|
0002fdd0  0d 7f 49 19 dd f2 4e 61  3a ea 70 61 25 3a e7 46  |..I...Na:.pa%:.F|
0002fde0  79 25 3d 30 46 79 25 3d  31 0d 7f 4a 10 5a 60 25  |y%=0Fy%=1..J.Z`%|
0002fdf0  3d b9 3a c8 8e 46 79 25  ca 0d 7f 4b 14 c9 31 3a  |=.:..Fy%...K..1:|
0002fe00  46 79 25 3d 30 3a f2 6a  79 3a f2 71 4a 0d 7f 4c  |Fy%=0:.jy:.qJ..L|
0002fe10  30 c9 32 3a 46 79 25 3d  30 3a c8 99 26 32 30 30  |0.2:Fy%=0:..&200|
0002fe20  33 39 2c 2c 22 53 70 65  6c 6c 5f 54 79 70 6f 22  |39,,"Spell_Typo"|
0002fe30  b8 3b 70 61 25 3a e7 70  61 25 80 31 8c 0d 7f 4d  |.;pa%:.pa%.1...M|
0002fe40  0b f2 70 5f 28 6a 24 29  0d 7f 4e 09 cd 3a f2 73  |..p_(j$)..N..:.s|
0002fe50  79 0d 7f 4f 18 c9 33 3a  46 79 25 3d 30 3a f2 7a  |y..O..3:Fy%=0:.z|
0002fe60  4a 28 68 24 29 3a f2 68  4a 0d 7f 50 0d cb 3a 5a  |J(h$):.hJ..P..:Z|
0002fe70  60 25 3d a3 3a e1 0d 7f  51 c3 dd f2 6a 79 3a f2  |`%=.:...Q...jy:.|
0002fe80  58 28 22 4d 65 73 73 61  67 65 20 66 72 6f 6d 20  |X("Message from |
0002fe90  4f 70 74 69 63 61 6c 22  2c 22 54 68 65 72 65 20  |Optical","There |
0002fea0  69 73 20 6e 6f 20 6c 65  78 69 63 6f 6e 20 73 75  |is no lexicon su|
0002feb0  70 70 6c 69 65 64 20 77  69 74 68 20 74 68 69 73  |pplied with this|
0002fec0  20 76 65 72 73 69 6f 6e  20 6f 66 20 4f 70 74 69  | version of Opti|
0002fed0  63 61 6c 2e 20 55 73 65  20 61 6e 20 49 6d 70 72  |cal. Use an Impr|
0002fee0  65 73 73 69 6f 6e 20 6f  72 20 54 65 78 74 20 66  |ession or Text f|
0002fef0  69 6c 65 20 6c 65 78 69  63 6f 6e 2c 20 6f 72 20  |ile lexicon, or |
0002ff00  66 6f 72 20 61 20 66 75  6c 6c 20 76 65 72 73 69  |for a full versi|
0002ff10  6f 6e 20 70 6c 65 61 73  65 20 63 6f 6e 74 61 63  |on please contac|
0002ff20  74 20 4e 65 75 72 6f 74  72 6f 6e 20 53 6f 66 74  |t Neurotron Soft|
0002ff30  77 61 72 65 2e 22 29 3a  e1 0d 7f 52 4e dd f2 4a  |ware."):...RN..J|
0002ff40  69 3a 4b 25 3d a4 41 28  31 2c 4d 4a 25 29 3a f2  |i:K%=.A(1,MJ%):.|
0002ff50  55 28 44 69 63 74 5f 4d  65 6e 75 25 2c 32 29 3a  |U(Dict_Menu%,2):|
0002ff60  f2 52 28 44 69 63 74 5f  4d 65 6e 75 25 2c 31 29  |.R(Dict_Menu%,1)|
0002ff70  3a e7 46 79 25 3d 31 8c  46 79 25 3d 30 3a f2 56  |:.Fy%=1.Fy%=0:.V|
0002ff80  28 54 4a 25 2c 31 29 0d  7f 53 11 f2 73 79 3a e7  |(TJ%,1)..S..sy:.|
0002ff90  a4 53 28 77 25 29 f2 7a  0d 7f 54 05 e1 0d 7f 55  |.S(w%).z..T....U|
0002ffa0  14 dd f2 78 5f 3a e7 49  79 25 3d a3 50 25 3d 2d  |...x_:.Iy%=.P%=-|
0002ffb0  31 0d 7f 56 3c 72 79 25  3d b9 3a 41 69 25 3d a3  |1..V<ry%=.:Ai%=.|
0002ffc0  3a f2 61 28 50 25 29 3a  21 71 3d 33 3a 21 4d 79  |:.a(P%):!q=3:!My|
0002ffd0  3d 50 79 25 3a 21 66 79  3d 30 3a 21 41 3d 30 3a  |=Py%:!fy=0:!A=0:|
0002ffe0  e7 4c 69 25 80 49 79 25  f2 59 6c 3a e1 0d 7f 57  |.Li%.Iy%.Yl:...W|
0002fff0  38 c8 99 26 34 30 36 63  30 3a 49 79 25 3d a3 3a  |8..&406c0:Iy%=.:|
00030000  c8 95 72 79 25 3d b9 80  ac 28 a6 2d 31 31 33 29  |..ry%=...(.-113)|
00030010  3a f2 56 79 3a ce 3a e7  a6 2d 31 31 33 21 41 3d  |:.Vy:.:..-113!A=|
00030020  31 3a f2 48 79 0d 7f 58  8e 72 79 25 3d a3 3a 50  |1:.Hy..X.ry%=.:P|
00030030  25 3d 2d 31 3a f2 41 28  77 25 2c 31 2c 22 22 29  |%=-1:.A(w%,1,"")|
00030040  3a f2 4d 28 77 25 29 3a  4b 25 3d a4 41 28 31 2c  |:.M(w%):K%=.A(1,|
00030050  65 60 25 29 3a 4b 25 3d  a4 41 28 31 2c 61 60 25  |e`%):K%=.A(1,a`%|
00030060  29 3a 4b 25 3d a4 41 28  31 2c 57 60 25 29 3a f2  |):K%=.A(1,W`%):.|
00030070  4a 28 65 25 29 3a 6d 25  3d 51 79 25 3a f2 72 3a  |J(e%):m%=Qy%:.r:|
00030080  f2 47 28 65 25 2c 2d 31  2c 2d 31 29 3a f2 4f 28  |.G(e%,-1,-1):.O(|
00030090  50 25 29 3a ff 28 22 46  58 32 31 22 29 3a ff 28  |P%):.("FX21"):.(|
000300a0  22 46 58 31 32 34 22 29  3a c8 99 26 34 30 36 63  |"FX124"):..&406c|
000300b0  32 3a e1 0d 7f 59 1b dd  f2 59 6c 3a e7 49 79 25  |2:...Y...Yl:.Iy%|
000300c0  68 6e 25 3d 61 6e 25 8b  68 6e 25 3d 50 25 0d 7f  |hn%=an%.hn%=P%..|
000300d0  5a 0a 21 41 3d 31 3a e1  0d 7f 5b 4f dd f2 48 5f  |Z.!A=1:...[O..H_|
000300e0  3a ea 61 70 25 2c 47 24  3a c8 94 68 6e 25 2c 50  |:.ap%,G$:..hn%,P|
000300f0  25 3a f2 56 79 3a c8 94  68 6e 25 2c 50 25 3a 6a  |%:.Vy:..hn%,P%:j|
00030100  79 25 3d a3 3a e7 72 79  25 3d a3 80 49 79 25 80  |y%=.:.ry%=..Iy%.|
00030110  21 52 3e 30 8c 57 79 25  3d 32 3a 61 6e 25 3d 5f  |!R>0.Wy%=2:an%=_|
00030120  25 3a f2 5f 5f 3a e1 0d  7f 5c 1d e7 72 79 25 3d  |%:.__:...\..ry%=|
00030130  a3 80 49 79 25 80 21 52  3d 30 8c f2 5f 5f 3a f2  |..Iy%.!R=0..__:.|
00030140  6c 5f 3a e1 0d 7f 5d 0b  e7 72 79 25 3d a3 8c 0d  |l_:...]..ry%=...|
00030150  7f 5e 33 f2 41 28 77 25  2c 31 2c 22 22 29 3a f2  |.^3.A(w%,1,""):.|
00030160  4d 28 77 25 29 3a 6d 25  3d 51 79 25 3a f2 72 3a  |M(w%):m%=Qy%:.r:|
00030170  50 25 3d 2d 31 3a 21 41  3d 30 3a e7 42 61 25 f2  |P%=-1:!A=0:.Ba%.|
00030180  46 5f 0d 7f 5f 0a e7 68  69 25 f2 6c 0d 7f 60 0f  |F_.._..hi%.l..`.|
00030190  e7 53 60 25 f2 67 79 3a  f2 58 79 0d 7f 61 07 cd  |.S`%.gy:.Xy..a..|
000301a0  3a e1 0d 7f 62 a6 dd f2  6e 69 3a 78 79 25 3d 50  |:...b...ni:xy%=P|
000301b0  25 3a 50 25 3d 2d 31 3a  f2 64 3a 50 25 3d 78 79  |%:P%=-1:.d:P%=xy|
000301c0  25 3a 6a 79 25 3d a3 3a  f2 47 28 65 25 2c 2d 31  |%:jy%=.:.G(e%,-1|
000301d0  2c 2d 31 29 3a f2 4f 28  50 25 29 3a f2 41 28 77  |,-1):.O(P%):.A(w|
000301e0  25 2c 31 2c 22 22 29 3a  f2 64 5f 3a f2 4d 28 77  |%,1,""):.d_:.M(w|
000301f0  25 29 3a f2 4d 28 56 5f  25 29 3a f2 52 28 42 6c  |%):.M(V_%):.R(Bl|
00030200  25 2c 32 29 3a f2 52 28  42 6c 25 2c 33 29 3a f2  |%,2):.R(Bl%,3):.|
00030210  52 28 42 6c 25 2c 34 29  3a f2 52 28 42 6c 25 2c  |R(Bl%,4):.R(Bl%,|
00030220  35 29 3a f2 44 28 65 25  29 3a 50 25 3d 2d 31 3a  |5):.D(e%):P%=-1:|
00030230  57 79 25 3d 30 3a 21 41  3d 30 3a 49 79 25 3d a3  |Wy%=0:!A=0:Iy%=.|
00030240  3a 72 79 25 3d a3 3a e1  0d 7f 63 11 dd f2 59 61  |:ry%=.:...c...Ya|
00030250  3a c8 8e a4 50 28 30 29  ca 0d 7f 64 0f c9 31 3a  |:...P(0)...d..1:|
00030260  c8 8e a4 50 28 31 29 ca  0d 7f 65 0a c9 31 3a f2  |...P(1)...e..1:.|
00030270  6a 79 0d 7f 66 0a c9 32  3a f2 4a 69 0d 7f 67 15  |jy..f..2:.Ji..g.|
00030280  7f 3a e7 46 79 25 f2 56  28 54 4a 25 2c 46 79 25  |.:.Fy%.V(TJ%,Fy%|
00030290  29 0d 7f 68 12 e7 5a 25  28 4d 4a 25 29 3e 32 30  |)..h..Z%(MJ%)>20|
000302a0  30 30 8c 0d 7f 69 0c 46  79 25 3d 31 3a f2 7a 0d  |00...i.Fy%=1:.z.|
000302b0  7f 6a 25 cc 3a f2 6a 79  3a e7 5a 25 28 4d 4a 25  |.j%.:.jy:.Z%(MJ%|
000302c0  29 3e 32 30 30 30 46 79  25 3d 31 8b 46 79 25 3d  |)>2000Fy%=1.Fy%=|
000302d0  30 3a f2 7a 0d 7f 6b 15  cd 3a e7 46 79 25 f2 4b  |0:.z..k..:.Fy%.K|
000302e0  28 54 4a 25 2c 46 79 25  29 0d 7f 6c 05 cb 0d 7f  |(TJ%,Fy%)..l....|
000302f0  6d 16 c9 32 3a e7 46 79  25 f2 56 28 54 4a 25 2c  |m..2:.Fy%.V(TJ%,|
00030300  46 79 25 29 0d 7f 6e 18  46 79 25 3d 32 3a f2 4b  |Fy%)..n.Fy%=2:.K|
00030310  28 54 4a 25 2c 46 79 25  29 3a f2 7a 0d 7f 6f 0f  |(TJ%,Fy%):.z..o.|
00030320  c9 33 3a c8 8e a4 50 28  31 29 ca 0d 7f 70 0a c9  |.3:...P(1)...p..|
00030330  31 3a f2 57 6c 0d 7f 71  15 7f 3a e7 46 79 25 f2  |1:.Wl..q..:.Fy%.|
00030340  56 28 54 4a 25 2c 46 79  25 29 0d 7f 72 18 46 79  |V(TJ%,Fy%)..r.Fy|
00030350  25 3d 33 3a f2 4b 28 54  4a 25 2c 46 79 25 29 3a  |%=3:.K(TJ%,Fy%):|
00030360  f2 7a 0d 7f 73 05 cb 0d  7f 74 07 cb 3a e1 0d 7f  |.z..s....t..:...|
00030370  75 13 dd f2 50 75 28 41  24 29 3a c8 8e 46 79 25  |u...Pu(A$):..Fy%|
00030380  ca 0d 7f 76 8b c9 32 3a  e3 59 4a 25 3d 31 b8 a9  |...v..2:.YJ%=1..|
00030390  28 41 24 29 3a e7 28 97  28 c1 41 24 2c 59 4a 25  |(A$):.(.(.A$,YJ%|
000303a0  2c 31 29 29 3e 97 28 22  61 22 29 80 97 28 c1 41  |,1))>.("a")..(.A|
000303b0  24 2c 59 4a 25 2c 31 29  29 3c 97 28 22 7a 22 29  |$,YJ%,1))<.("z")|
000303c0  29 84 28 97 28 c1 41 24  2c 59 4a 25 2c 31 29 29  |).(.(.A$,YJ%,1))|
000303d0  3e 97 28 22 e0 22 29 80  97 28 c1 41 24 2c 59 4a  |>.(".")..(.A$,YJ|
000303e0  25 2c 31 29 29 3c 97 28  22 fe 22 29 29 8c c1 41  |%,1))<.("."))..A|
000303f0  24 2c 59 4a 25 2c 31 29  3d bd 28 97 28 c1 41 24  |$,YJ%,1)=.(.(.A$|
00030400  2c 59 4a 25 2c 31 29 29  2d 33 32 29 0d 7f 77 55  |,YJ%,1))-32)..wU|
00030410  ed 3a c8 99 22 58 53 70  65 6c 6c 5f 41 64 64 54  |.:.."XSpell_AddT|
00030420  6f 49 67 6e 6f 72 65 22  2c 41 24 b8 48 61 25 3b  |oIgnore",A$.Ha%;|
00030430  77 79 25 3a e7 77 79 25  80 31 8c f2 58 28 22 45  |wy%:.wy%.1..X("E|
00030440  72 72 6f 72 20 66 72 6f  6d 20 53 70 65 6c 6c 4d  |rror from SpellM|
00030450  61 73 74 65 72 22 2c a4  46 28 48 61 25 2b 34 29  |aster",.F(Ha%+4)|
00030460  29 0d 7f 78 1e cb 3a f5  3a f2 56 79 3a fd 73 69  |)..x..:.:.Vy:.si|
00030470  25 3e 6d 25 2d 31 84 64  5f 25 3d 2d 31 3a e1 0d  |%>m%-1.d_%=-1:..|
00030480  7f 79 3d dd f2 6a 4a 3a  ea 70 61 25 2c 79 5a 25  |.y=..jJ:.pa%,yZ%|
00030490  2c 61 75 25 2c 76 6b 25  3a c8 99 26 32 30 30 33  |,au%,vk%:..&2003|
000304a0  39 2c 2c 22 53 70 65 6c  6c 5f 54 79 70 6f 22 b8  |9,,"Spell_Typo".|
000304b0  3b 70 61 25 3a e7 70 61  25 80 31 8c 0d 7f 7a 0d  |;pa%:.pa%.1...z.|
000304c0  f2 55 28 54 4a 25 2c 32  29 0d 7f 7b 5d cc 3a f2  |.U(TJ%,2)..{].:.|
000304d0  52 28 54 4a 25 2c 32 29  3a 5a 24 3d 22 55 73 65  |R(TJ%,2):Z$="Use|
000304e0  72 20 64 69 63 74 73 22  3a 76 6b 25 3d b9 3a e3  |r dicts":vk%=.:.|
000304f0  79 5a 25 3d 31 b8 38 3a  c8 99 22 58 53 70 65 6c  |yZ%=1.8:.."XSpel|
00030500  6c 5f 47 65 74 44 69 63  74 69 6f 6e 61 72 79 4e  |l_GetDictionaryN|
00030510  61 6d 65 22 2c 79 5a 25  b8 61 75 25 3a e7 61 75  |ame",yZ%.au%:.au|
00030520  25 3c 3e 2d 31 8c 0d 7f  7c 19 76 6b 25 3d a3 3a  |%<>-1...|.vk%=.:|
00030530  5a 24 2b 3d 22 2c 22 2b  a4 46 28 61 75 25 29 0d  |Z$+=","+.F(au%).|
00030540  7f 7d 18 cd 3a ed 3a e7  76 6b 25 8c 5a 24 2b 3d  |.}..:.:.vk%.Z$+=|
00030550  22 2c 4e 6f 6e 65 22 0d  7f 7e 33 f2 79 79 28 55  |",None"..~3.yy(U|
00030560  73 65 72 44 69 63 74 5f  4d 65 6e 75 25 2c 5a 24  |serDict_Menu%,Z$|
00030570  29 3a e7 76 6b 25 f2 55  28 55 73 65 72 44 69 63  |):.vk%.U(UserDic|
00030580  74 5f 4d 65 6e 75 25 2c  31 29 0d 7f 7f 1d cd 3a  |t_Menu%,1).....:|
00030590  e7 42 42 25 f2 55 28 54  4a 25 2c 33 29 8b f2 52  |.BB%.U(TJ%,3)..R|
000305a0  28 54 4a 25 2c 33 29 0d  7f 80 05 e1 0d 7f 81 36  |(TJ%,3)........6|
000305b0  dd f2 73 79 3a ea 70 61  25 3a c8 99 26 32 30 30  |..sy:.pa%:..&200|
000305c0  33 39 2c 2c 22 53 70 65  6c 6c 5f 54 79 70 6f 22  |39,,"Spell_Typo"|
000305d0  b8 3b 70 61 25 3a e7 70  61 25 80 31 8c f2 68 4a  |.;pa%:.pa%.1..hJ|
000305e0  3a e1 0d 7f 82 17 46 79  25 3d 32 3a f2 4b 28 54  |:.....Fy%=2:.K(T|
000305f0  4a 25 2c 46 79 25 29 3a  e1 0d 7f 83 13 dd f2 68  |J%,Fy%):.......h|
00030600  4a 3a e7 42 42 25 8c f2  71 4a 3a e1 0d 7f 84 17  |J:.BB%..qJ:.....|
00030610  46 79 25 3d 33 3a f2 4b  28 54 4a 25 2c 46 79 25  |Fy%=3:.K(TJ%,Fy%|
00030620  29 3a e1 0d 7f 85 19 dd  f2 71 4a 3a e7 5a 25 28  |):.......qJ:.Z%(|
00030630  4d 4a 25 29 3c 3d 31 30  32 34 8c e1 0d 7f 86 17  |MJ%)<=1024......|
00030640  46 79 25 3d 31 3a f2 4b  28 54 4a 25 2c 46 79 25  |Fy%=1:.K(TJ%,Fy%|
00030650  29 3a e1 0d 7f 87 bc dd  f2 56 69 28 53 24 29 3a  |):.......Vi(S$):|
00030660  c8 99 26 32 30 30 33 39  2c 2c 22 53 70 65 6c 6c  |..&20039,,"Spell|
00030670  5f 54 79 70 6f 22 b8 3b  70 61 25 3a e7 70 61 25  |_Typo".;pa%:.pa%|
00030680  80 31 8c f2 58 28 22 4d  65 73 73 61 67 65 20 66  |.1..X("Message f|
00030690  72 6f 6d 20 4f 70 74 69  63 61 6c 22 2c 22 50 6c  |rom Optical","Pl|
000306a0  65 61 73 65 20 64 72 6f  70 20 79 6f 75 72 20 49  |ease drop your I|
000306b0  6d 70 72 65 73 73 69 6f  6e 20 61 70 70 6c 69 63  |mpression applic|
000306c0  61 74 69 6f 6e 20 6f 6e  74 6f 20 4f 70 74 69 63  |ation onto Optic|
000306d0  61 6c 20 6f 6e 20 74 68  65 20 69 63 6f 6e 20 62  |al on the icon b|
000306e0  61 72 20 62 65 66 6f 72  65 20 74 72 79 69 6e 67  |ar before trying|
000306f0  20 74 6f 20 6c 6f 61 64  20 61 20 55 73 65 72 20  | to load a User |
00030700  44 69 63 74 69 6f 6e 61  72 79 2e 22 29 3a e1 0d  |Dictionary."):..|
00030710  7f 88 47 c8 99 22 58 53  70 65 6c 6c 5f 4c 6f 61  |..G.."XSpell_Loa|
00030720  64 55 73 65 72 22 2c 53  24 b8 48 61 25 3b 77 79  |dUser",S$.Ha%;wy|
00030730  25 3a e7 77 79 25 80 31  8c f2 43 28 22 53 70 65  |%:.wy%.1..C("Spe|
00030740  6c 6c 4d 61 73 74 65 72  22 2c a4 46 28 48 61 25  |llMaster",.F(Ha%|
00030750  2b 34 29 29 3a e1 0d 7f  89 63 e7 5a 60 25 3d a3  |+4)):....c.Z`%=.|
00030760  f2 58 28 22 4d 65 73 73  61 67 65 20 66 72 6f 6d  |.X("Message from|
00030770  20 4f 70 74 69 63 61 6c  22 2c 22 54 68 69 73 20  | Optical","This |
00030780  55 73 65 72 20 44 69 63  74 69 6f 6e 61 72 79 20  |User Dictionary |
00030790  68 61 73 20 62 65 65 6e  20 61 64 64 65 64 20 74  |has been added t|
000307a0  6f 20 49 6d 70 72 65 73  73 69 6f 6e 27 73 20 6c  |o Impression's l|
000307b0  65 78 69 63 6f 6e 2e 22  29 0d 7f 8a 0e e7 a4 53  |exicon.")......S|
000307c0  28 77 25 29 8c f2 7a 0d  7f 8b 05 e1 0d 7f 8c 60  |(w%)..z........`|
000307d0  dd f2 70 5f 28 53 24 29  3a c8 99 26 32 30 30 30  |..p_(S$):..&2000|
000307e0  35 2c 22 52 4d 4c 6f 61  64 20 22 2b 53 24 2b 22  |5,"RMLoad "+S$+"|
000307f0  2e 52 4d 53 74 6f 72 65  2e 21 53 70 65 6c 6c 4d  |.RMStore.!SpellM|
00030800  6f 64 22 b8 48 61 25 3b  77 79 25 3a e7 77 79 25  |od".Ha%;wy%:.wy%|
00030810  80 31 8c f2 43 28 22 4f  70 74 69 63 61 6c 22 2c  |.1..C("Optical",|
00030820  a4 46 28 48 61 25 2b 34  29 29 3a e1 0d 7f 8d 5a  |.F(Ha%+4)):....Z|
00030830  e7 5a 60 25 3d a3 f2 58  28 22 4d 65 73 73 61 67  |.Z`%=..X("Messag|
00030840  65 20 66 72 6f 6d 20 4f  70 74 69 63 61 6c 22 2c  |e from Optical",|
00030850  22 54 68 65 20 49 6d 70  72 65 73 73 69 6f 6e 20  |"The Impression |
00030860  53 70 65 6c 6c 4d 61 73  74 65 72 20 6c 65 78 69  |SpellMaster lexi|
00030870  63 6f 6e 20 68 61 73 20  62 65 65 6e 20 6c 6f 61  |con has been loa|
00030880  64 65 64 2e 22 29 0d 7f  8e 13 e7 46 79 25 f2 56  |ded.").....Fy%.V|
00030890  28 54 4a 25 2c 46 79 25  29 0d 7f 8f 20 46 79 25  |(TJ%,Fy%)... Fy%|
000308a0  3d 32 3a f2 4b 28 54 4a  25 2c 46 79 25 29 3a e7  |=2:.K(TJ%,Fy%):.|
000308b0  a4 53 28 77 25 29 8c f2  7a 0d 7f 90 0b 6a 24 3d  |.S(w%)..z....j$=|
000308c0  53 24 3a e1 0d 7f 91 7a  dd f2 5a 5f 3a e7 67 79  |S$:....z..Z_:.gy|
000308d0  25 3f 56 75 25 3c 3e 30  80 59 6e 25 3d a3 8c f2  |%?Vu%<>0.Yn%=...|
000308e0  43 28 22 4f 70 74 69 63  61 6c 22 2c 22 49 74 20  |C("Optical","It |
000308f0  69 73 20 6e 6f 74 20 70  6f 73 73 69 62 6c 65 20  |is not possible |
00030900  74 6f 20 41 75 74 6f 20  63 68 65 63 6b 20 73 70  |to Auto check sp|
00030910  65 6c 6c 69 6e 67 20 77  68 69 6c 65 20 74 65 78  |elling while tex|
00030920  74 20 69 73 20 66 6f 72  6d 61 74 74 65 64 20 61  |t is formatted a|
00030930  73 20 61 20 74 61 62 6c  65 2e 22 29 3a e1 0d 7f  |s a table."):...|
00030940  92 19 e7 46 79 25 3c 3e  30 72 79 25 3d b9 3a f2  |...Fy%<>0ry%=.:.|
00030950  7a 3a f2 78 5f 3a e1 0d  7f 93 1d f2 6a 79 3a e7  |z:.x_:......jy:.|
00030960  46 79 25 3c 3e 30 72 79  25 3d b9 3a f2 7a 3a f2  |Fy%<>0ry%=.:.z:.|
00030970  78 5f 3a e1 0d 7f 94 05  e1 0d 7f 95 24 dd a4 5f  |x_:.........$.._|
00030980  28 60 41 25 29 3a 3d 24  28 41 25 28 6d 60 25 29  |(`A%):=$(A%(m`%)|
00030990  2b 62 6e 25 21 28 60 41  25 2a 34 29 29 0d 7f 96  |+bn%!(`A%*4))...|
000309a0  10 dd f2 46 75 3a e7 50  25 3d 2d 31 e1 0d 7f 97  |...Fu:.P%=-1....|
000309b0  09 e7 6a 79 25 8c 0d 7f  98 20 78 79 25 3d 50 25  |..jy%.... xy%=P%|
000309c0  3a 50 25 3d 2d 31 3a f2  64 3a 50 25 3d 78 79 25  |:P%=-1:.d:P%=xy%|
000309d0  3a 6a 79 25 3d a3 0d 7f  99 2d cd 3a 57 69 25 3d  |:jy%=....-.:Wi%=|
000309e0  b9 3a 49 79 25 3d a3 3a  21 41 3d 30 3a 57 79 25  |.:Iy%=.:!A=0:Wy%|
000309f0  3d 30 3a e7 6a 79 25 3d  a3 8c 78 79 25 3d 2d 31  |=0:.jy%=..xy%=-1|
00030a00  3a f2 64 0d 7f 9a 41 f2  7a 3a 73 69 25 3d 30 3a  |:.d...A.z:si%=0:|
00030a10  72 79 25 3d a3 3a 21 4d  79 3d 50 79 25 3a 21 66  |ry%=.:!My=Py%:!f|
00030a20  79 3d 30 3a 21 71 3d 32  3a 21 6f 3d 30 3a 21 62  |y=0:!q=2:!o=0:!b|
00030a30  75 3d 30 3a 21 58 3d 30  3a f2 56 79 3a 5a 4f 25  |u=0:!X=0:.Vy:ZO%|
00030a40  3d b9 3a e1 0d 7f 9b 8d  dd f2 7a 4a 28 53 24 29  |=.:.......zJ(S$)|
00030a50  3a ea 66 41 25 3a e7 5a  60 25 3d a3 e7 a4 55 28  |:.fA%:.Z`%=...U(|
00030a60  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 4f 70  |"Message from Op|
00030a70  74 69 63 61 6c 22 2c 22  54 68 69 73 20 54 65 78  |tical","This Tex|
00030a80  74 20 66 69 6c 65 20 69  73 20 61 62 6f 75 74 20  |t file is about |
00030a90  74 6f 20 62 65 20 6c 6f  61 64 65 64 20 61 73 20  |to be loaded as |
00030aa0  74 68 65 20 50 6c 61 69  6e 20 54 65 78 74 20 6c  |the Plain Text l|
00030ab0  65 78 69 63 6f 6e 2e 20  50 72 65 73 73 20 4f 4b  |exicon. Press OK|
00030ac0  20 74 6f 20 63 6f 6e 74  69 6e 75 65 22 29 3d a3  | to continue")=.|
00030ad0  e1 0d 7f 9c 54 c8 99 26  32 30 30 30 64 2c 37 36  |....T..&2000d,76|
00030ae0  2c 53 24 b8 46 25 3b 77  79 25 3a e7 77 79 25 80  |,S$.F%;wy%:.wy%.|
00030af0  31 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |1..C("Optical","|
00030b00  4c 6f 61 64 69 6e 67 20  50 6c 61 69 6e 20 6c 65  |Loading Plain le|
00030b10  78 69 63 6f 6e 20 2d 20  22 2b a4 46 28 46 25 2b  |xicon - "+.F(F%+|
00030b20  34 29 29 3a e1 0d 7f 9d  aa c8 99 26 34 30 36 63  |4)):.......&406c|
00030b30  30 3a 7a 6c 25 3d a2 23  46 25 3a d9 23 46 25 3a  |0:zl%=.#F%:.#F%:|
00030b40  4b 25 3d a4 41 28 7a 6c  25 2b 32 30 34 38 2c 58  |K%=.A(zl%+2048,X|
00030b50  5f 25 29 3a e7 4b 25 3d  a3 8c f2 43 28 22 4f 70  |_%):.K%=...C("Op|
00030b60  74 69 63 61 6c 22 2c 22  54 68 65 72 65 20 69 73  |tical","There is|
00030b70  20 6e 6f 74 20 65 6e 6f  75 67 68 20 66 72 65 65  | not enough free|
00030b80  20 6d 65 6d 6f 72 79 20  61 76 61 69 6c 61 62 6c  | memory availabl|
00030b90  65 20 74 6f 20 73 74 6f  72 65 20 74 68 65 20 6c  |e to store the l|
00030ba0  65 78 69 63 6f 6e 2e 20  4e 65 65 64 20 22 2b c3  |exicon. Need "+.|
00030bb0  28 7a 6c 25 81 31 30 32  34 29 2b 22 4b 2e 22 29  |(zl%.1024)+"K.")|
00030bc0  3a 4b 25 3d a4 41 28 31  2c 58 5f 25 29 3a e1 0d  |:K%=.A(1,X_%):..|
00030bd0  7f 9e c3 ff 28 22 4c 6f  61 64 20 22 2b 53 24 2b  |....("Load "+S$+|
00030be0  22 20 22 2b c3 7e 28 41  25 28 58 5f 25 29 2b 32  |" "+.~(A%(X_%)+2|
00030bf0  30 34 38 29 29 3a 41 25  3d 41 25 28 58 5f 25 29  |048)):A%=A%(X_%)|
00030c00  2b 32 30 34 38 3a 42 25  3d 7a 6c 25 3a d6 66 4a  |+2048:B%=zl%:.fJ|
00030c10  3a 66 41 25 3d 46 79 25  3a 46 79 25 3d 33 3a f2  |:fA%=Fy%:Fy%=3:.|
00030c20  5a 4a 3a 46 79 25 3d 66  41 25 3a e7 6f 6c 25 3d  |ZJ:Fy%=fA%:.ol%=|
00030c30  30 8c f2 43 28 22 4f 70  74 69 63 61 6c 22 2c 22  |0..C("Optical","|
00030c40  54 68 65 72 65 20 61 72  65 20 6e 6f 20 77 6f 72  |There are no wor|
00030c50  64 73 20 69 6e 20 74 68  65 20 6c 65 78 69 63 6f  |ds in the lexico|
00030c60  6e 21 22 29 3a f2 56 28  54 4a 25 2c 46 79 25 29  |n!"):.V(TJ%,Fy%)|
00030c70  3a 42 42 25 3d b9 3a 46  79 25 3d 30 3a f2 73 79  |:BB%=.:Fy%=0:.sy|
00030c80  3a 4b 25 3d a4 41 28 31  2c 58 5f 25 29 3a f2 7a  |:K%=.A(1,X_%):.z|
00030c90  3a e1 0d 7f 9f 56 f2 52  28 50 6c 61 69 6e 44 69  |:....V.R(PlainDi|
00030ca0  63 74 5f 4d 65 6e 75 25  2c 31 29 3a 46 79 25 3d  |ct_Menu%,1):Fy%=|
00030cb0  33 3a f2 56 28 54 4a 25  2c 31 29 3a f2 56 28 54  |3:.V(TJ%,1):.V(T|
00030cc0  4a 25 2c 32 29 3a f2 4b  28 54 4a 25 2c 33 29 3a  |J%,2):.K(TJ%,3):|
00030cd0  42 42 25 3d a3 3a f2 4f  79 28 6f 6c 25 29 3a e7  |BB%=.:.Oy(ol%):.|
00030ce0  a4 53 28 77 25 29 f2 7a  0d 7f a0 14 68 24 3d 53  |.S(w%).z....h$=S|
00030cf0  24 3a c8 99 26 34 30 36  63 31 3a e1 0d 7f a1 42  |$:..&406c1:....B|
00030d00  dd f2 57 6c 3a 4b 25 3d  a4 41 28 31 2c 58 5f 25  |..Wl:K%=.A(1,X_%|
00030d10  29 3a f2 55 28 50 6c 61  69 6e 44 69 63 74 5f 4d  |):.U(PlainDict_M|
00030d20  65 6e 75 25 2c 31 29 3a  e7 46 79 25 3d 33 8c 46  |enu%,1):.Fy%=3.F|
00030d30  79 25 3d 30 3a f2 56 28  54 4a 25 2c 33 29 0d 7f  |y%=0:.V(TJ%,3)..|
00030d40  a2 17 42 42 25 3d b9 3a  f2 73 79 3a e7 a4 53 28  |..BB%=.:.sy:..S(|
00030d50  77 25 29 f2 7a 0d 7f a3  05 e1 0d 7f a4 4a dd f2  |w%).z........J..|
00030d60  63 4a 3a 78 79 25 3d 50  25 3a 50 25 3d 2d 31 3a  |cJ:xy%=P%:P%=-1:|
00030d70  f2 64 3a 50 25 3d 78 79  25 3a 6a 79 25 3d a3 3a  |.d:P%=xy%:jy%=.:|
00030d80  f2 47 28 65 25 2c 2d 31  2c 2d 31 29 3a f2 4f 28  |.G(e%,-1,-1):.O(|
00030d90  50 25 29 3a f2 4d 28 77  25 29 3a f2 4d 28 56 5f  |P%):.M(w%):.M(V_|
00030da0  25 29 3a e1 0d ff                                 |%):...|
00030da6