Home » Archimedes archive » Acorn User » AU 1994-01.adf » !Artist_Artist » !Artist/Artist3

!Artist/Artist3

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 1994-01.adf » !Artist_Artist
Filename: !Artist/Artist3
Read OK:
File size: 9168 bytes
Load address: 0000
Exec address: 0000
File contents
   10ONERRORPROCA_:END
   20MODE15:OFF:DIMB_&30000:DIMC_% 32:D_=1/SQR2:E_%=12:F_%=4:G_%=3:H_%=1:I_%=0:J_%=0:!B_=&30000:B_!4=0:B_!8=16:B_!12=16:*POINTER
   30K_%=3:L_%=512:VDU19,0,24,96,96,96:M_%=1:N_%=0:O_%=0:P_%=N_%:Q_%=O_%:R_%=0:S_%=0:T_%=0:U_%=0:GCOL191TINT192:V_%=148:W_%=1279:X_%=1023:Y_%=144:Z_%=96:VDU24,0;V_%;W_%;X_%;:VDU5:CLG:VDU26:*FX 163,242,16
   40PROCa_:PROCb_:REPEAT:IFY%>Y_%THEN
   50MOUSEON1:VDU24,0;V_%;W_%;X_%;:MOUSESTEPK_%:c_%=FALSE:CASEK%OF
   60WHEN0:REPEAT:PROCd_:UNTILc_%=TRUE
   70WHEN1:REPEAT:PROCe_:UNTILc_%=TRUE
   80WHEN2:REPEAT:PROCf_:UNTILc_%=TRUE
   90WHEN3:REPEAT:PROCg_:UNTILc_%=TRUE
  100WHEN4:REPEAT:PROCh_:UNTILc_%=TRUE
  110WHEN5:REPEAT:PROCi_:UNTILc_%=TRUE
  120WHEN6:REPEAT:PROCj_:UNTILc_%=TRUE
  130WHEN7:REPEAT:PROCk_:UNTILc_%=TRUE
  140WHEN8:REPEAT:PROCl_:UNTILc_%=TRUE
  150WHEN9:REPEAT:PROCm_:UNTILc_%=TRUE
  160WHEN10:REPEAT:PROCn_:UNTILc_%=TRUE
  170WHEN11:REPEAT:PROCo_:UNTILc_%=TRUE
  180ENDCASE:SYS6,21,0
  190ENDIF:MOUSEX%,Y%,B%:IFY%<Z_%THEN
  200VDU26:X%=20*(X%DIV20)+8:Y%=24*(Y%DIV24)+7:MOUSESTEP3:MOUSEON129:POINTTOX%,Y%:IFB%=4THENPROCp_:q_%=FALSE
  210IFB%=2THENPROCr_:PROCs_:PROCt_:PROCu_
  220IFB%=1THENPROCq_
  230IFINKEY(-85)THEN
  240L_%=832:PROCr_:PROCv_:REPEATUNTILNOTINKEY(-85):PROCu_:L_%=512
  250ENDIF:IFINKEY(-36)THENPROCw_
  260IFINKEY(-87)ANDINKEY(-1)THENPROCx_
  270IFINKEY(-82)ANDINKEY(-1)THENPROCy_
  280IFINKEY(-17)ANDINKEY(-1)THEN*DESKTOP
  290IFINKEY(-3)THEN
  300z_%=1-z_%:SOUND1,-6,200,3:REPEATUNTILNOTINKEY(-3)
  310ENDIF:IFK%=9ANDINKEY(-38)THENPROC__
  320Z$=INKEY$(0):`_%=VALZ$:IF`_%>0AND`_%<7THENK_%=`_%:MOUSESTEPK_%:SOUND1,-8,120+8*K_%,3
  330IFINKEY(-97)THEN
  340PROCA`:REPEATUNTILNOTINKEY(-97)
  350ENDIF:IFINKEY(-82)ANDNOTINKEY(-1)THEN
  360VDU24,0;V_%;W_%;X_%;:VDU7:SYS6,21,0:OSCLI"DIR "+"<ART$DIR>":OSCLI"SCREENSAVE "+"Pic"+STR$(M_%):M_%=M_%+1:REPEATUNTILNOTINKEY(-82)
  370ENDIF:IFINKEY(-87)ANDNOTINKEY(-1)THEN
  380REPEATUNTILNOTINKEY(-87):VDU24,0;V_%;W_%;X_%;:SYS6,21,0:COLOUR191TINT128:COLOUR0TINT0:VDU4,7:INPUTTAB(16,0)"Please enter name of picture file :- "B`$:VDU5:IFB`$<>""OSCLI"DIR "+"<ART$DIR>":OSCLI"SCREENLOAD "+B`$ELSECLG
  390ENDIF
  400ENDIF:IFY%>Z_%ANDY%<Y_%THEN
  410VDU26:C`%=X%DIV110:X%=106*C`%+72:Y%=124:MOUSESTEP3:MOUSEON129:POINTTOX%,Y%:IF(B%=4ANDC`%<>K%)THENPROCD`(K%,C`%):K%=C`%:PROCt_
  420IFK%=9ANDINKEY(-38)THENPROC__
  430IFB%=1ANDC`%=K%THEN
  440CASEK%OF
  450WHEN0:PROCE`(1)
  460WHEN3:PROCF`(1)
  470WHEN5:PROCG`(1)
  480WHEN6:PROCH`(1)
  490WHEN9:PROCI`
  500WHEN10:PROCJ`
  510ENDCASE:PROCt_
  520ENDIF:IFB%=2ANDC`%=K%THEN
  530CASEK%OF
  540WHEN0:PROCE`(-1)
  550WHEN5:PROCG`(-1)
  560WHEN6:PROCH`(-1)
  570WHEN9:PROCK`
  580WHEN10:PROCL`
  590ENDCASE:PROCt_
  600ENDIF:SYS6,21,0
  610ENDIF:UNTILFALSE:END
  620DEFPROCA_:MODE12:MOUSESTEP4:REPORT:PRINT" at line ";ERL:ENDPROC
  630DEFPROCa_:PROCM`:PROCN`:PROCO`:ENDPROC
  640DEFPROCM`:X%=640:Y%=512:B%=0:K%=5:P`%=FALSE:S%=2:Q`%=2^(S%+2):R`%=4:S`%=25*R`%:D$=CHR$(64+R`%):R%=3:T`=1:U`%=3:V`%=16:W`%=64:X`%=0:N%=5:F%=0:Y`=1.48:Y`%=4:Z`%=20:G=0.01:a`%=8:b`%=0:Y`$=CHR$(64+Y`%):VDU23,225,255,255,255,255,255,255,255,255
  650c`%=360:z_%=0:d`%=FALSE:q_%=FALSE:e`%=FALSE:ENDPROC
  660DEFPROCN`:DIMf`%(3),g`%(3):DIMX%(c`%),Y%(c`%):DIMT$(10),N$(10),X`%(10),h`%(10),P$(3):VDU23,230,3,30,112,192,192,96,48,31:VDU23,231,192,120,14,3,3,14,28,248:P$(0)=CHR$230+CHR$231+" ":VDU23,234,7,61,225,191,195,102,60,31
  670VDU23,235,224,188,135,253,195,102,60,248:P$(1)=CHR$234+CHR$235+" ":VDU23,236,1,1,225,61,7,14,28,56:VDU23,237,128,128,135,188,224,112,56,28:P$(2)=CHR$236+CHR$237+" "
  680T$()="Jagg ","//gram","Ellip","Arc ","Circle","Free ","Line ","Fill","Rect",P$(0)," Air ":X`%()=116,116,100,100,112,116,116,88,84,96,128:h`%(0)=0:FORI%=1TO10:h`%(I%)=h`%(I%-1)+X`%(I%-1):NEXT
  690N$(0)=STR$(U`%):N$(3)=STR$(b`%+1):N$(5)=STR$(R%):N$(6)=STR$(X`%+1):N$(9)=STR$(N%):N$(10)=STR$(S%):ENDPROC
  700DEFPROCO`:FORC%=0TO255:i`%=0:j`%=19:k`%=20:GCOLC%DIV4TINT(C%MOD4)*64:RECTANGLEFILL(C%MOD64)*k`%,(C%DIV64)*24,15,19:NEXT:PROCl`(P_%,Q_%):PROCm`(T_%,U_%):GCOL60TINT0:RECTANGLEFILL0,96,1280,48:PROCn`(K%):GCOL63TINT192:RECTANGLE1172,100,104,40:GCOLN_%TINTO_%:RECTANGLEFILL1174,104,100,32:ENDPROC
  710DEFPROCn`(K%):o`%=0:VDU5:FORI%=0TO10:p`%=16:q`%=47:IFI%=K%THENSWAPp`%,q`%
  720PROCr`(I%):NEXT:p`%=16:q`%=47:GCOLN_%TINTO_%:ENDPROC
  730DEFPROCr`(G%):GCOLp`%TINT192:RECTANGLEFILL4+h`%(G%),100,X`%(G%)-8,40:GCOLq`%TINT192:MOVE10+h`%(G%),132:IFG%=3GCOLq`%TINT192:PRINTT$(3)+N$(3)
  740IFG%<9ANDG%<>3PRINTT$(G%)+N$(G%)
  750IFG%=9PRINTP$(F%)+N$(9)
  760IFG%=10GCOL19TINT96:PRINTD$;:GCOLq`%TINT192:PRINTT$(10)+N$(10)
  770ENDPROC
  780DEFPROCD`(I%,J%):IFI%<11PROCr`(I%):SWAPp`%,q`%
  790IFJ%<11PROCr`(J%):SWAPp`%,q`%
  800GCOLN_%TINTO_%:ENDPROC
  810DEFPROCA`:VDU24,0;V_%;W_%;X_%;:GCOL191TINT192:CLG:VDU26:ENDPROC
  820DEFPROCo_:REPEAT:MOUSEX%,Y%,B%:UNTILB%ORY%<Y_%:IFY%<Y_% c_%=TRUE:ENDPROC
  830IFB%=4PROCp_:ENDPROC
  840IFB%=1PROCq_:ENDPROC
  850IFB%=2THEN
  860s`%=X%:t`%=Y%:u`%=30:v`%=X%*u`%:w`%=Y%*u`%:x`%=0:X%()=X%:Y%()=Y%:PROCy`
  870ENDIF:ENDPROC
  880DEFPROCy`:REPEAT:MOUSEX%,Y%,B%:PROCz`(X%,Y%,u`%):IFB%=2THEN
  890_`%=2:``%=POINT(X%,Y%):Aa%=TINT(X%,Y%):IFAa%<64 Ba%=64*(RND(2)-1)
  900IFAa%>63ANDAa%<128 Ba%=64*(RND(3)-1)
  910IFAa%>127ANDAa%<192 Ba%=64*RND(3)
  920IFAa%>191 Ba%=64*(RND(2)+1)
  930GCOL0,``%TINTBa%:IFNOTINKEY(-99)THEN
  940Ca%=s`%-X%:Da%=t`%-Y%:MOVEX%,Y%:PLOT1,_`%*Ca%,_`%*Da%
  950ENDIF:IFINKEY(-99)THEN
  960Ca%=s`%-X%:Da%=t`%-Y%:Ea=0.5*SQR(Ca%^2+Da%^2):IFX%<>s`%ORY%<>t`%CIRCLEFILLX%,Y%,EaELSECIRCLEFILLX%,Y%,6
  970ENDIF
  980ENDIF:s`%=X%:t`%=Y%:UNTILB%=0:ENDPROC
  990DEFPROCt_:REPEATMOUSEX%,Y%,B%:UNTILB%=0:ENDPROC
 1000DEFPROCFa(G%):SWAPq`%,p`%:VDU26,5:PROCr`(G%):GCOL0,N_%TINTO_%:VDU24,0;V_%;W_%;X_%;:SWAPq`%,p`%:ENDPROC
 1010DEFPROCp_:N_%=POINT(X%,Y%):O_%=TINT(X%,Y%):VDU26:PROCl`(P_%,Q_%):PROCl`(N_%,O_%):P_%=N_%:Q_%=O_%:GCOLN_%TINTO_%:RECTANGLEFILL1174,104,100,32:VDU24,0;V_%;W_%;X_%;:IFq_%=TRUETHENq_%=FALSE:PROCm`(T_%,U_%)
 1020PROCt_:ENDPROC
 1030DEFPROCGa:R_%=POINT(X%,Y%):S_%=TINT(X%,Y%):VDU26:IFq_%=TRUETHEN
 1040PROCm`(T_%,U_%):PROCm`(R_%,S_%):T_%=R_%:U_%=S_%
 1050ENDIF:IFq_%=FALSETHENq_%=TRUE:PROCm`(T_%,U_%)
 1060GCOL80,0:RECTANGLEFILL1174,104,100,32:IF(N_%<>R_%ORO_%<>S_%)VDU5:MOVE1176,132:GCOL4,0:PRINT"------"
 1070IFN_%=R_%ANDO_%=S_%THENGCOL0,N_%TINTO_%:q_%=FALSE
 1080PROCt_:ENDPROC
 1090DEFPROCl`(C%,T%):i`%=16:j`%=19:Ha%=C%*4+T%DIV64:GCOL4,0:Ia%=(Ha%MOD64)*20:Ja%=(Ha%DIV64)*24:RECTANGLEIa%-2,Ja%-4,19,27:ENDPROC
 1100DEFPROCm`(Ka%,La%):GCOL4,0:i`%=16:j`%=19:Ha%=Ka%*4+La%DIV64:Ia%=(Ha%MOD64)*20:Ja%=(Ha%DIV64)*24:RECTANGLEFILLIa%-3,Ja%+15,21,5:ENDPROC
 1110DEFPROCk_:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-99)ANDP`%=TRUETHEN
 1120IFe`%=FALSEANDq_%=FALSETHEN
 1130GCOL128+N_%TINTO_%:GCOL0,Ma%TINTNa%:FILLOa%,Pa%:GCOL0,N_%TINTO_%:P`%=FALSE
 1140ENDIF:IFe`%=TRUEANDq_%=FALSETHEN
 1150GCOL128+N_%TINTO_%:GCOL80,0:FILLOa%,Pa%:P`%=FALSE:GCOL0,N_%TINTO_%
 1160ENDIF:IFe`%=FALSEANDq_%=TRUETHEN
 1170GCOL80,128:GCOL0,Ma%TINTNa%:FILLOa%,Pa%:P`%=FALSE:GCOL80,0
 1180ENDIF
 1190ENDIF:UNTILB%>0ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 1200IFB%=4ANDINKEY(-1)THENPROCp_:q_%=FALSE:ENDPROC
 1210IFB%=1ANDINKEY(-1)THENPROCq_:ENDPROC
 1220IFB%=4ANDNOTINKEY(-1)THEN
 1230P`%=FALSE:Oa%=X%:Pa%=Y%:Ma%=POINT(X%,Y%):Na%=TINT(X%,Y%):Qa%=POINT(X%+2,Y%):Ra%=TINT(X%+2,Y%):IF(Qa%<>Ma%ORRa%<>Na%)THEN
 1240e`%=TRUE:PROCSa(Ma%,Na%,Qa%,Ra%,FALSE)
 1250ELSEGCOL128+Ma%TINTNa%:e`%=FALSE
 1260ENDIF:IFq_%=FALSETHEN
 1270IF(Ma%<>N_%ORNa%<>O_%ORQa%<>N_%ORRa%<>O_%)THEN
 1280GCOL0,N_%TINTO_%:FILLX%,Y%:P`%=TRUE
 1290ENDIF
 1300ENDIF:IF(q_%=TRUEANDe`%=FALSE)THEN
 1310PROCSa(N_%,O_%,R_%,S_%,TRUE):FILLX%,Y%:P`%=TRUE
 1320ENDIF:IF(q_%=TRUEANDe`%=TRUE)THEN
 1330PROCSa(N_%,O_%,R_%,S_%,TRUE):P`%=FALSE
 1340ENDIF
 1350ENDIF:PROCt_:ENDPROC
 1360DEFPROCq_:R_%=POINT(X%,Y%):S_%=TINT(X%,Y%):q_%=TRUE:PROCSa(N_%,O_%,R_%,S_%,TRUE):PROCGa:ENDPROC
 1370DEFPROCe_:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 1380IFB%=4ANDINKEY(-1)PROCp_:ENDPROC
 1390IFB%=1ANDINKEY(-1)PROCq_:ENDPROC
 1400PROCt_:Oa%=X%:Pa%=Y%:f`%(1)=X%:g`%(1)=Y%:Ua%=f`%(1):Va%=g`%(1):Wa%=f`%(1):Xa%=g`%(1):GCOL4,0:LINEUa%,Va%,Wa%,Xa%:PROCYa:REPEATMOUSEX%,Y%,B%:IFINKEY(-99)LINEUa%,Va%,Wa%,Xa%:PROCYa:ENDPROC
 1410WAIT:WAIT:IFz_%=1PROCYa:PROCZa
 1420LINEUa%,Va%,Wa%,Xa%:LINEUa%,Va%,X%,Y%:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:UNTILB%=1ORB%=4:f`%(2)=X%:g`%(2)=Y%:PROCt_:Ua%=f`%(2):Va%=g`%(2):Wa%=f`%(2):Xa%=g`%(2):PROCaa(Wa%,Xa%):DRAWf`%(2),g`%(2):REPEATMOUSEX%,Y%,B%:IFINKEY(-99)PROCaa(Wa%,Xa%):PROCYa:ENDPROC
 1430IFz_%=1PROCYa:PROCZa
 1440IFB%<2THEN
 1450WAIT:WAIT:PROCaa(Wa%,Xa%):IFB%=1PROCba
 1460PROCaa(X%,Y%):Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%
 1470ENDIF:IFB%=5ORB%=3THEN
 1480PROCZa:PROCaa(Wa%,Xa%):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 1490IFB%=5PROCaa(Wa%,Xa%)
 1500IFB%=3MOVEf`%(1),g`%(1):MOVEf`%(2),g`%(2):PLOT&75,Wa%,Xa%
 1510PROCba:GCOL4,0:PROCaa(X%,Y%):Wa%=X%:Xa%=Y%:REPEATMOUSEX%,Y%,B%:UNTILB%<2:MOUSETOOa%,Pa%:X%=Oa%:Y%=Pa%:PROCYa
 1520ENDIF:UNTILB%=2ORB%=4:PROCZa:PROCaa(Wa%,Xa%):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 1530PROCaa(X%,Y%):IFB%=2MOVEf`%(1),g`%(1):MOVEf`%(2),g`%(2):PLOT&75,X%,Y%
 1540PROCt_:ENDPROC
 1550DEFPROCba:ca%=X%-Wa%:da%=Y%-Xa%:f`%(1)=f`%(1)+ca%:g`%(1)=g`%(1)+da%:f`%(2)=f`%(2)+ca%:g`%(2)=g`%(2)+da%:ENDPROC
 1560DEFPROCaa(ea%,fa%):MOVEf`%(1),g`%(1):DRAWf`%(2),g`%(2):DRAWea%,fa%:DRAWf`%(1)-f`%(2)+ea%,g`%(1)-g`%(2)+fa%:DRAWf`%(1),g`%(1):ENDPROC
 1570DEFPROCn_:ga%=6:ha%=24:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 1580ia%=X%:ja%=Y%:IFB%=2PROCL`:PROCt_:ENDPROC
 1590IFB%=1ANDNOTINKEY(-1)THENPROCJ`:PROCt_:ENDPROC
 1600IFB%=4ANDINKEY(-1)THENPROCp_:ENDPROC
 1610IFB%=1ANDINKEY(-1)THENPROCq_:PROCt_:ENDPROC
 1620VDU26:*POINTER
 1630VDU24,0;V_%;W_%;X_%;:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 1640u`%=40:v`%=X%*u`%:w`%=Y%*u`%:x`%=0:X%()=X%:Y%()=Y%:REPEATMOUSEX%,Y%,B%:PROCz`(X%,Y%,u`%):IF(B%=4AND(X%<>ia%ORY%<>ja%))OR(B%=4ANDINKEY(-99))OR(B%=6)THEN
 1650A=RAD(RND(360)):T=Q`%*RND(1):H=T*COSA:K=T*SINA:IFB%>3ANDNOTINKEY(-51)ANDNOTINKEY(-68)THEN
 1660IFRND(100)<S`%THENPOINTX%+H,Y%+K
 1670IFS`%=125THENPOINTX%-H,Y%-K:POINTX%+K,Y%-H:POINTX%-K,Y%+H
 1680ENDIF:IFB%>3ANDINKEY(-51)THEN
 1690ga%=5+SQR((X%-ia%)^2+(Y%-ja%)^2):IFRND(125)<S`%THENCIRCLEFILLX%+H,Y%+K,RND(ga%)
 1700IFS`%=125THENCIRCLEFILLX%-H,Y%-K,RND(ga%):CIRCLEFILLX%+K,Y%-H,RND(ga%):CIRCLEFILLX%-K,Y%+H,RND(ga%)
 1710ENDIF:IFB%>3ANDINKEY(-68)THEN
 1720IFRND(125)<S`%THENPROCka(X%+H,Y%+K)
 1730IFS`%=125THENPROCka(X%-H,Y%-K):PROCka(X%+K,Y%-H):PROCka(X%-K,Y%+H)
 1740ENDIF:ia%=X%:ja%=Y%
 1750ENDIF:UNTILB%=0:ENDPROC
 1760DEFPROCka(f`,g`):MOVEf`,g`:MOVEf`+(RND(ha%)-ha%/2),g`+(RND(ha%)-ha%/2):PLOT53+32*RND(2),f`+(RND(ha%)-ha%/2),g`+(RND(ha%)-ha%/2):ENDPROC
 1770DEFPROCJ`:S%=1+S%MOD5:Q`%=2^(S%+2):N$(10)=STR$(S%):PROCFa(10):ENDPROC
 1780DEFPROCL`:R`%=1+R`%MOD5:S`%=25*R`%:D$=CHR$(64+R`%):PROCFa(10):ENDPROC
 1790DEFPROCd_:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 1800IFB%=1THENPROCE`(1):PROCt_:ENDPROC
 1810IFB%=2THENPROCE`(-1):PROCt_:ENDPROC
 1820IFB%=4ANDINKEY(-1)THENPROCp_:ENDPROC
 1830IFB%=1ANDINKEY(-1)THENPROCq_:ENDPROC
 1840PROCt_:la=U`%/V`%:Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:ma%=X%:na%=Y%:Oa%=X%:Pa%=Y%:GCOL4,0:LINEUa%,Va%,Wa%,Xa%:PROCYa:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-99)LINEUa%,Va%,Wa%,Xa%:PROCYa:ENDPROC
 1850WAIT:WAIT:IFz_%=1PROCYa:PROCZa
 1860LINEUa%,Va%,Wa%,Xa%:LINEUa%,Va%,X%,Y%:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:IFB%=4THEN
 1870PROCZa:LINEUa%,Va%,X%,Y%:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 1880PROCoa(Ua%,Va%,X%,Y%):Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:GCOL4,0:PROCZa:LINEUa%,Va%,X%,Y%:REPEATMOUSEX%,Y%,B%:UNTILB%MOD2=0
 1890ENDIF:UNTILB%=1ORB%=2:PROCZa:LINEUa%,Va%,X%,Y%:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 1900PROCoa(Ua%,Va%,X%,Y%):IFB%=2PROCoa(X%,Y%,ma%,na%)
 1910PROCt_:ENDPROC
 1920DEFPROCE`(I%):U`%=U`%+I%:IFU`%=7THENU`%=1
 1930IFU`%=0THENU`%=6
 1940N$(0)=STR$(U`%):PROCFa(0):ENDPROC
 1950DEFPROCoa(pa%,qa%,ra%,sa%):LOCALta%,ua%,Ua%,Va%,va%,wa%:ta%=ra%-pa%:ua%=sa%-qa%:Ua%=ra%+pa%:Va%=sa%+qa%:IFta%*ta%+ua%*ua%<=W`%MOVEpa%,qa%:DRAWra%,sa%:ENDPROC
 1960xa=la*(2*RND(1)-1):va%=.5*Ua%-xa*ua%:wa%=.5*Va%+xa*ta%:PROCoa(pa%,qa%,va%,wa%):PROCoa(va%,wa%,ra%,sa%):ENDPROC
 1970DEFPROCya(N%,ia%,ja%,H%,V%,A%,F%):LOCALD,C,S,za,_a,Ha,`a,X,Y,Ab,Bb,Cb,Db,R,P%:VDU29,ia%;ja%;:D=2*PI/N%:C=COSD:S=SIND:X=0:Y=V%:IFN%=4THENEb=PI/4:X=H%*COSEb:Y=V%*SINEb
 1980IFN%=6THENX=H%:Y=0
 1990IFN%=8THENEb=PI/8:X=H%*COSEb:Y=V%*SINEb
 2000Ha=COSRADA%:`a=SINRADA%:R=H%/V%:za=S*R:_a=S/R:Ab=X*Ha-Y*`a:Bb=X*`a+Y*Ha:MOVEAb,Bb:FORI%=1TON%:Cb=X*C-za*Y:Db=Y*C+X*_a:Ab=Cb*Ha-Db*`a:Bb=Cb*`a+Db*Ha:IFF%=3THENMOVE0,0:P%=85ELSEP%=5
 2010IFF%<>2THENPLOTP%,Ab,Bb
 2020IFF%>0THENDRAW0,0:MOVEAb,Bb
 2030X=Cb:Y=Db:NEXT:VDU29,0;0;:ENDPROC
 2040DEFPROCK`:F%=(F%+1)MOD3:PROCFa(9):ENDPROC
 2050DEFPROCI`:N%=N%+1:IFN%>9THENN%=3
 2060N$(9)=STR$(N%):PROCFa(9):ENDPROC
 2070DEFPROC__:VDU26,5,7:REPEAT:Fb$="":Gb%=0:GCOL47TINT192:MOVE58+h`%(9),132:PRINTCHR$225+CHR$225:GCOL16TINT192:REPEAT:REPEAT:SYS6,21,0:Hb$=GET$:UNTILINSTR("0123456789"+CHR$13,Hb$)>0:Fb$=Fb$+Hb$:MOVE58+16*Gb%+h`%(9),132:PRINTHb$:Gb%=Gb%+1:UNTILGb%=2:N%=VAL(Fb$):UNTILN%>2:VDU7:OFF:N$(9)=STR$(N%):PROCFa(9):ENDPROC
 2080DEFPROCj_:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 2090IFB%=1ANDNOTINKEY(-1)PROCH`(1):PROCt_:ENDPROC
 2100IFB%=2PROCH`(-1):PROCt_:ENDPROC
 2110IFB%=4ANDINKEY(-1)PROCp_:ENDPROC
 2120IFB%=1ANDINKEY(-1)PROCq_:ENDPROC
 2130PROCt_:Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:ma%=X%:na%=Y%:Oa%=X%:Pa%=Y%:GCOL4,0:LINEUa%,Va%,Wa%,Xa%:PROCYa:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-99)THENLINEUa%,Va%,Wa%,Xa%:PROCYa:ENDPROC
 2140IFINKEY(-100)MOUSETOUa%,Y%:X%=Ua%
 2150IFINKEY(-85)MOUSETOX%,Va%:Y%=Va%
 2160WAIT:WAIT:LINEUa%,Va%,Wa%,Xa%:LINEUa%,Va%,X%,Y%:IFz_%=1PROCYa:PROCZa
 2170Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:IFB%=4THEN
 2180PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 2190PROCIb(Ua%,Va%,X%,Y%,X`%):Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:GCOL4,0:PROCZa:LINEUa%,Va%,X%,Y%:REPEATMOUSEX%,Y%,B%:UNTILB%<3
 2200ENDIF:UNTILB%=1ORB%=2:PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 2210PROCIb(Ua%,Va%,X%,Y%,X`%):IFB%=2PROCIb(X%,Y%,ma%,na%,X`%)
 2220PROCt_:ENDPROC
 2230DEFPROCIb(Oa%,Pa%,X%,Y%,X`%):IFX`%=0LINEOa%,Pa%,X%,Y%:ENDPROC
 2240Jb%=X%-Oa%:Kb%=Y%-Pa%:Eb%=2^X`%:L=Eb%/(SQR(Jb%*Jb%+Kb%*Kb%)+1E-6):Lb=Kb%*L:Mb=Jb%*L:MOVEOa%+Lb,Pa%-Mb:MOVEOa%-Lb,Pa%+Mb:PLOT85,X%+Lb,Y%-Mb:PLOT85,X%-Lb,Y%+Mb:IFX`%>1CIRCLEFILLOa%,Pa%,Eb%:CIRCLEFILLX%,Y%,Eb%
 2250ENDPROC
 2260DEFPROCH`(I%):X`%=X`%+I%:IFX`%=6 X`%=0
 2270IFX`%=-1 X`%=5
 2280N$(6)=STR$(X`%+1):PROCFa(6):ENDPROC
 2290DEFPROCg_:PROCt_:Nb%=TRUE:Ib%=FALSE:Ob%=FALSE:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 2300IFB%=1ANDNOTINKEY(-1)THENPROCF`(1):PROCt_:ENDPROC
 2310IFB%=2THENPROCF`(-1):PROCt_:ENDPROC
 2320IFB%=4ANDINKEY(-1)THENPROCp_:ENDPROC
 2330IFB%=1ANDINKEY(-1)THENPROCq_:ENDPROC
 2340pa%=X%:qa%=Y%:Oa%=X%:Pa%=Y%:PROCPb:Qb%=TRUE:IFOb%=TRUETHENENDPROC
 2350IFB%<3THEN
 2360IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 2370PROCIb(pa%,qa%,ra%,sa%,b`%):ENDPROC
 2380ENDIF:Rb=SQR((ra%-pa%)^2+(sa%-qa%)^2):IFRb<GTHENRb=G
 2390Sb%=pa%:Tb%=qa%:Ub%=ra%:Vb%=sa%:Wb%=ra%:Xb%=sa%:Yb=pa%:Zb=qa%:REPEAT:PROCt_:PROCab:GCOL4,0:PROCYa:CIRCLEFILLpa%,qa%,a`%:CIRCLEra%,sa%,a`%:PROCbb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):PROCbb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):REPEAT:MOUSEX%,Y%,B%:IFINKEY(-99)THEN
 2400GCOL4,0:CIRCLEFILLpa%,qa%,a`%:CIRCLEra%,sa%,a`%:PROCbb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):PROCbb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):Ib%=TRUE:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 2410IFQb%=TRUEPROCYa:PROCIb(pa%,qa%,ra%,sa%,b`%):ENDPROC
 2420IFQb%=FALSETHEN
 2430PROCYa:PROCbb(pa%,qa%,Yb,Zb,ra%,sa%,ra%,sa%):PROCbb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):ENDPROC
 2440ENDIF
 2450ENDIF:ib%=Wb%:jb%=Xb%:Wb%=X%:Xb%=Y%:kb=eb:lb=fb:mb=cb:nb=db:PROCab:IFz_%=1PROCYa:PROCZa:Oa%=X%:Pa%=Y%
 2460PROCbb(pa%,qa%,Yb,Zb,ra%,sa%,mb,nb):PROCbb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):PROCbb(ra%,sa%,kb,lb,ib%,jb%,ib%,jb%):PROCbb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):UNTILB%>0:Qb%=FALSE:PROCZa:CIRCLEFILLpa%,qa%,a`%:CIRCLEra%,sa%,a`%:PROCbb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):IFNb%=FALSETHEN
 2470GCOL4,0:PROCbb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 2480Ib%=TRUE:PROCbb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):Ib%=FALSE:GCOL4,0:PROCbb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb)
 2490ENDIF:IFNb%=TRUETHEN
 2500gb=cb:hb=db:Nb%=FALSE
 2510ENDIF:IFB%=1THEN
 2520IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 2530Ib%=TRUE:PROCbb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):PROCbb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):Ib%=FALSE
 2540ENDIF:IFB%=2THEN
 2550GCOL4,0:PROCbb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 2560Ib%=TRUE:ob=eb:pb=fb:pa%=ra%:qa%=sa%:ra%=Wb%:sa%=Xb%:Wb%=Sb%:Xb%=Tb%:Rb=qb:PROCab:PROCbb(pa%,qa%,ob,pb,ra%,sa%,cb,db):ob=eb:pb=fb:pa%=ra%:qa%=sa%:ra%=Wb%:sa%=Xb%:Wb%=Ub%:Xb%=Vb%:Rb=qb:PROCab:PROCbb(pa%,qa%,ob,pb,ra%,sa%,cb,db)
 2570PROCbb(ra%,sa%,eb,fb,Ub%,Vb%,gb,hb)
 2580ENDIF:pa%=ra%:qa%=sa%:ra%=Wb%:sa%=Xb%:Yb=eb:Zb=fb:Rb=qb:Ib%=FALSE:UNTILB%<3:ENDPROC
 2590DEFPROCPb:PROCt_:GCOL4,0:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:PROCYa:LINEpa%,qa%,Wa%,Xa%:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-99)THENLINEpa%,qa%,Wa%,Xa%:PROCYa:Ob%=TRUE:ENDPROC
 2600WAIT:WAIT:IFz_%=1PROCYa:PROCZa
 2610LINEpa%,qa%,Wa%,Xa%:LINEpa%,qa%,X%,Y%:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:UNTILB%:ra%=X%:sa%=Y%:LINEpa%,qa%,ra%,sa%:PROCYa:ENDPROC
 2620DEFPROCab:qb=SQR((Wb%-ra%)^2+(Xb%-sa%)^2):IFqb<GTHENqb=G
 2630r=Rb/(Rb+qb):R=2*r:r1=1-r:eb=(ra%-(pa%-r*(pa%+Wb%)))/R:fb=(sa%-(qa%-r*(qa%+Xb%)))/R:cb=(ra%-r*eb)/r1:db=(sa%-r*fb)/r1:ENDPROC
 2640DEFPROCbb(rb,sb,tb,ub,vb,wb,xb,yb):zb=(3-Y`)*rb+Y`*tb:_b=(3-Y`)*sb+Y`*ub:`b=(3-Y`)*vb+Y`*xb:Ac=(3-Y`)*wb+Y`*yb:MOVErb,sb:Bc=rb:Cc=sb:FORI%=1TOZ`%:t=I%/Z`%:Dc=1-t:Ec=Dc^3:Fc=Dc*Dc*t:Gc=Dc*t*t:Hc=t^3:x=Ec*rb+Fc*zb+Gc*`b+Hc*vb
 2650y=Ec*sb+Fc*_b+Gc*Ac+Hc*wb:IFIb%=FALSEDRAWx,y
 2660IFIb%=TRUEPROCIb(Bc,Cc,x,y,b`%)
 2670Bc=x:Cc=y:NEXT:ENDPROC
 2680DEFPROCIc:Y`%=1+Y`%MOD6:Y`$=CHR$(64+Y`%):PROCFa(3):Y`=0.84+Y`%*0.16:ENDPROC
 2690DEFPROCF`(Jc%):b`%=b`%+Jc%:IFb`%=6 b`%=0
 2700IFb`%=-1 b`%=5
 2710N$(3)=STR$(b`%+1):PROCFa(3):ENDPROC
 2720DEFPROCTa:IFINKEY(-3)THEN
 2730z_%=1-z_%:SOUND1,-8,200,3:REPEATUNTILNOTINKEY(-3)
 2740ENDIF:IFz_%=0THENENDPROC
 2750*POINTER 0
 2760LOCALOa%,Pa%:Oa%=X%:Pa%=Y%:GCOL4,0:LINEOa%-1600,Pa%,Oa%+1600,Pa%:LINEOa%,Pa%-1100,Oa%,Pa%+1100:REPEAT:MOUSEX%,Y%,B%:WAIT:LINEOa%-1600,Pa%,Oa%+1600,Pa%:LINEOa%,Pa%-1100,Oa%,Pa%+1100:LINEX%-1600,Y%,X%+1600,Y%:LINEX%,Y%-1100,X%,Y%+1100:Oa%=X%:Pa%=Y%:IFINKEY(-3)THEN
 2770z_%=1-z_%:SOUND1,-8,200,3:REPEATUNTILNOTINKEY(-3)
 2780ENDIF:IFK%=5THEN
 2790IFINKEY(-20)THEN
 2800T`=0.25:VDU7:REPEATUNTILNOTINKEY(-20)
 2810ENDIF:IFINKEY(-19)THEN
 2820T`=0.5:VDU7:REPEATUNTILNOTINKEY(-19)
 2830ENDIF:IFINKEY(-18)THEN
 2840T`=1:VDU7:REPEATUNTILNOTINKEY(-18)
 2850ENDIF:IFINKEY(-50)THEN
 2860T`=2:VDU7:REPEATUNTILNOTINKEY(-50)
 2870ENDIF:IFINKEY(-49)THEN
 2880T`=3:VDU7:REPEATUNTILNOTINKEY(-49)
 2890ENDIF
 2900ENDIF:UNTILB%ORY%<Y_%ORz_%=0ORINKEY(-38):LINEX%-1600,Y%,X%+1600,Y%:LINEX%,Y%-1100,X%,Y%+1100:IFB%THENENDPROC
 2910VDU26:*POINTER
 2920VDU24,0;V_%;W_%;X_%;:ENDPROC
 2930DEFPROCYa:IFz_%=0ENDPROC
 2940*POINTER 0
 2950VDU23,6,&FF,0,&FF,0,&FF,0,&FF,0:MOVEOa%-1600,Pa%:PLOT21,Oa%+1600,Pa%:VDU23,6,&F0,&F0,&F0,&F0,&F0,&F0,&F0,&F0:MOVEOa%,Pa%-1100:PLOT21,Oa%,Pa%+1100:ENDPROC
 2960DEFPROCZa:IFz_%=0ENDPROC
 2970VDU23,6,&FF,0,&FF,0,&FF,0,&FF,0:MOVEX%-1600,Y%:PLOT21,X%+1600,Y%:VDU23,6,&F0,&F0,&F0,&F0,&F0,&F0,&F0,&F0:MOVEX%,Y%-1100:PLOT21,X%,Y%+1100:ENDPROC
 2980DEFPROCSa(Kc%,Fc%,Lc%,Gc%,Mc):LOCALA%,B%:IFKc%>Lc%SWAPKc%,Lc%
 2990IFFc%>Gc%SWAPFc%,Gc%
 3000A%=Fc%DIV64+(Kc%AND33)*4+(Kc%AND14)*8+(Kc%AND16)/2:B%=Gc%DIV64+(Lc%AND33)*4+(Lc%AND14)*8+(Lc%AND16)/2:VDU23,2,A%,B%,A%,B%,A%,B%,A%,B%:VDU23,3,B%,A%,B%,A%,B%,A%,B%,A%:VDU23,4,A%,B%,A%,B%,A%,B%,A%,B%:VDU23,5,B%,A%,B%,A%,B%,A%,B%,A%:GCOL80,128+Mc*128:ENDPROC
 3010DEFPROCh_:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 3020IFB%=4ANDINKEY(-1)PROCp_:ENDPROC
 3030IFB%=1ANDINKEY(-1)PROCq_:ENDPROC
 3040PROCt_:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:R1=4:R2=4:Oa%=X%:Pa%=Y%:GCOL4,0:CIRCLENc%,Oc%,R1:PROCYa:REPEAT:MOUSEX%,Y%,B%:IFz_%=1PROCYa:PROCZa
 3050IFB%=0 R2=SQR((X%-Nc%)^2+(Y%-Oc%)^2):Oa%=X%:Pa%=Y%
 3060IFB%=1 Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
 3070WAIT:WAIT:IFINKEY(-99)CIRCLENc%,Oc%,R1:PROCYa:ENDPROC
 3080CIRCLENc%,Oc%,R1:CIRCLEQc%,Rc%,R2:IFB%=5THEN
 3090PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 3100CIRCLEQc%,Rc%,R2:GCOL4,0:CIRCLEQc%,Rc%,R2:REPEAT:MOUSEX%,Y%,B%:UNTILB%<>5:MOUSETOOa%,Pa%:X%=Oa%:Y%=Pa%:PROCYa
 3110ENDIF:IFB%=3THEN
 3120PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 3130CIRCLEFILLQc%,Rc%,R2:GCOL4,0:CIRCLEQc%,Rc%,R2:REPEAT:MOUSEX%,Y%,B%:UNTILB%<>3:MOUSETOOa%,Pa%:X%=Oa%:Y%=Pa%:PROCYa
 3140ENDIF:IF(B%=2ORB%=4)ANDINKEY(-83)THEN
 3150PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 3160IFB%=4CIRCLENc%,Oc%,R2
 3170IFB%=2CIRCLEFILLNc%,Oc%,R2
 3180GCOL4,0:CIRCLENc%,Oc%,R2:PROCYa
 3190ENDIF:R1=R2:Nc%=Qc%:Oc%=Rc%:UNTIL(B%=2ORB%=4)ANDNOTINKEY(-83):PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 3200IFB%=4CIRCLEQc%,Rc%,R2
 3210IFB%=2CIRCLEFILLQc%,Rc%,R2
 3220PROCt_:ENDPROC
 3230DEFPROCi_:REPEAT:MOUSEX%,Y%,B%:IFz_%=0THEN
 3240IFINKEY(-20)THEN
 3250T`=0.25:VDU7:REPEATUNTILNOTINKEY(-20)
 3260ENDIF:IFINKEY(-19)THEN
 3270T`=0.5:VDU7:REPEATUNTILNOTINKEY(-19)
 3280ENDIF:IFINKEY(-18)THEN
 3290T`=1:VDU7:REPEATUNTILNOTINKEY(-18)
 3300ENDIF:IFINKEY(-50)THEN
 3310T`=2:VDU7:REPEATUNTILNOTINKEY(-50)
 3320ENDIF:IFINKEY(-49)THEN
 3330T`=3:VDU7:REPEATUNTILNOTINKEY(-49)
 3340ENDIF
 3350ENDIF:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:SYS6,21,0:ENDPROC
 3360IFB%=1ANDNOTINKEY(-1)THENPROCG`(1):PROCt_:ENDPROC
 3370IFB%=2THENPROCG`(-1):PROCt_:ENDPROC
 3380IFB%=4ANDINKEY(-1)THENPROCp_:ENDPROC
 3390IFB%=1ANDINKEY(-1)THENPROCq_:ENDPROC
 3400IFB%=4ANDNOTINKEY(-1)THEN
 3410Sc%=2^(R%-1):VDU26:*POINTER
 3420c`%=T`*(90-6*R%):VDU24,0;V_%;W_%;X_%;:GCOLN_%TINTO_%:MOVEX%,Y%:IFINKEY(-99)ANDR%>3PROCTcELSEPROCUc
 3430IFq_%=TRUEGCOL80,0ELSEGCOLN_%TINTO_%
 3440ENDIF:ENDPROC
 3450DEFPROCUc:d`%=FALSE:GCOL0,N_%TINTO_%:IFq_%=TRUEGCOL80,0
 3460v`%=X%*c`%:w`%=Y%*c`%:x`%=0:X%()=X%:Y%()=Y%:ib%=X%:jb%=Y%:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-100)MOUSETOib%,Y%:X%=ib%
 3470IFNOTINKEY(-100)ib%=X%
 3480IFINKEY(-85)MOUSETOX%,jb%:Y%=jb%
 3490IFNOTINKEY(-85)jb%=Y%
 3500PROCz`(X%,Y%,c`%):IFR%=1DRAWX%,Y%ELSECIRCLEFILLX%,Y%,Sc%
 3510IFINKEY(-99)ANDR%>3 d`%=TRUE
 3520UNTILB%=0ORd`%=TRUE:IFR%>2ANDd`%=TRUEPROCTc
 3530ENDPROC
 3540DEFPROCTc:s`%=X%:t`%=Y%:*POINTER 0
 3550u`%=T`*(50-5*R%):v`%=X%*u`%:w`%=Y%*u`%:x`%=0:X%()=X%:Y%()=Y%:GCOL4,0:CIRCLEs`%,t`%,Sc%:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-100)MOUSETOib%,Y%:X%=ib%
 3560IFNOTINKEY(-100)ib%=X%
 3570IFINKEY(-85)MOUSETOX%,jb%:Y%=jb%
 3580IFNOTINKEY(-85)jb%=Y%
 3590PROCz`(X%,Y%,u`%):FORI%=1TO300:NEXT:CIRCLEs`%,t`%,Sc%:IFq_%=FALSEGCOLN_%TINTO_%ELSEGCOL80,0
 3600CIRCLEFILLX%,Y%,Sc%:GCOL4,0:CIRCLEX%,Y%,Sc%:s`%=X%:t`%=Y%:IFNOTINKEY(-99)d`%=FALSE
 3610UNTILB%=0ORd`%=FALSE:CIRCLEX%,Y%,Sc%:VDU26:*POINTER
 3620VDU24,0;V_%;W_%;X_%;:IFd`%=FALSEPROCUc
 3630ENDPROC
 3640DEFPROCz`(RETURNx%,RETURNy%,c`%):Vc%=v`%:Wc%=w`%:v`%=v`%-X%(x`%)+x%:w`%=w`%-Y%(x`%)+y%:X%(x`%)=x%:Y%(x`%)=y%:x%=(Vc%+v`%)DIV(2*c`%):y%=(Wc%+w`%)DIV(2*c`%):x`%=(x`%+1)MODc`%:ENDPROC
 3650DEFPROCG`(Jc%):R%=R%+Jc%:IFR%=7THENR%=1
 3660IFR%=0THENR%=6
 3670N$(5)=STR$(R%):PROCFa(5):ENDPROC
 3680DEFPROCf_:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 3690IFB%=4ANDINKEY(-1)PROCp_:ENDPROC
 3700IFB%=1ANDINKEY(-1)PROCq_:ENDPROC
 3710PROCt_:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:Xc%=4:Yc%=4:Zc%=4:ac%=4:L%=0:bc%=0:Oa%=X%:Pa%=Y%:GCOL4,0:PROCYa:ELLIPSENc%,Oc%,Xc%,Yc%:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-99)THEN
 3720PROCYa:IFL%<>0ELLIPSENc%,Oc%,Xc%,Yc%,RAD(L%)ELSEELLIPSENc%,Oc%,Xc%,Yc%
 3730ENDPROC
 3740ENDIF:IFz_%=1PROCYa:PROCZa
 3750IFB%=0 Zc%=ABS(X%-Nc%):ac%=ABS(Y%-Oc%):Oa%=X%:Pa%=Y%
 3760IFB%=1 Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
 3770IFZc%<4THENZc%=4
 3780IFac%<4THENac%=4
 3790IFINKEY(-67)THEN
 3800bc%=(L%-3)MOD360:IFL%=0 bc%=357
 3810ENDIF:IFINKEY(-98)THEN
 3820bc%=(L%+3)MOD360:IFbc%=360 bc%=0
 3830ENDIF:WAIT:WAIT:IFL%<>0ELLIPSENc%,Oc%,Xc%,Yc%,RAD(L%)ELSEELLIPSENc%,Oc%,Xc%,Yc%
 3840IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 3850IFB%=5THEN
 3860PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 3870IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 3880REPEAT:MOUSEX%,Y%,B%:UNTILB%<>5:GCOL4,0:IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 3890MOUSETOOa%,Pa%:X%=Oa%:Y%=Pa%:PROCYa
 3900ENDIF:IFB%=3THEN
 3910PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 3920IFbc%<>0ELLIPSEFILLQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEFILLQc%,Rc%,Zc%,ac%
 3930REPEAT:MOUSEX%,Y%,B%:UNTILB%<>3:GCOL4,0:IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 3940MOUSETOOa%,Pa%:X%=Oa%:Y%=Pa%:PROCYa
 3950ENDIF:IF(B%=2ORB%=4)ANDINKEY(-83)THEN
 3960PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 3970IFB%=4THEN
 3980IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 3990ENDIF:IFB%=2THEN
 4000IFbc%<>0ELLIPSEFILLQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEFILLQc%,Rc%,Zc%,ac%
 4010ENDIF:GCOL4,0:IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4020PROCYa
 4030ENDIF:Nc%=Qc%:Oc%=Rc%:Xc%=Zc%:Yc%=ac%:L%=bc%:UNTIL(B%=2ORB%=4)ANDNOTINKEY(-83):PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 4040IFB%=4THEN
 4050IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4060ENDIF:IFB%=2THEN
 4070IFbc%<>0ELLIPSEFILLQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEFILLQc%,Rc%,Zc%,ac%
 4080ENDIF:PROCt_:ENDPROC
 4090DEFPROCm_:REPEAT:MOUSEX%,Y%,B%:PROCTa:IFINKEY(-38)THENPROC__
 4100UNTILB%ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 4110IFB%=4ANDINKEY(-1)PROCp_:ENDPROC
 4120IFB%=1ANDINKEY(-1)PROCq_:ENDPROC
 4130IFB%=1ANDNOTINKEY(-1)THEN
 4140N%=N%+1:IFN%>9THENN%=3
 4150N$(9)=STR$(N%):PROCFa(9):PROCt_:ENDPROC
 4160ENDIF:IFB%=2 F%=(F%+1)MOD3:PROCFa(9):PROCt_:ENDPROC
 4170VDU26:*POINTER
 4180VDU24,0;V_%;W_%;X_%;:PROCt_:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:Xc%=4:Yc%=4:Zc%=4:ac%=4:L%=0:bc%=0:GCOL4,0:IFN%>20ELLIPSENc%,Oc%,Xc%,Yc%
 4190IFN%<21PROCya(N%,Nc%,Oc%,Xc%,Yc%,L%,F%)
 4200REPEAT:MOUSEX%,Y%,B%:IFB%=0THEN
 4210Zc%=2*ABS(X%-Nc%):ac%=2*ABS(Y%-Oc%):Oa%=X%:Pa%=Y%:IFINKEY(-85)Zc%=ac%:MOUSETONc%+ac%/2,Oc%+ac%/2
 4220IFINKEY(-34)ac%=Zc%:MOUSETONc%+ac%/2,Oc%+ac%/2
 4230ENDIF:IFB%=1ANDNOTINKEY(-1)Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
 4240IFZc%<4THENZc%=4
 4250IFac%<4THENac%=4
 4260IFINKEY(-67)THEN
 4270bc%=(L%-3)MOD360:IFL%=0 bc%=357
 4280ENDIF:IFINKEY(-98)THEN
 4290bc%=(L%+3)MOD360:IFbc%=360 bc%=0
 4300ENDIF:WAIT:WAIT:WAIT:GCOL4,0:IFINKEY(-99)THEN
 4310IFN%>20THEN
 4320IFL%<>0ELLIPSENc%,Oc%,Xc%,Yc%,RAD(L%)ELSEELLIPSENc%,Oc%,Xc%,Yc%
 4330ENDIF:IFN%<21PROCya(N%,Nc%,Oc%,Xc%,Yc%,L%,F%)
 4340PROCt_:ENDPROC
 4350ENDIF:IFN%>20THEN
 4360IFL%<>0ELLIPSENc%,Oc%,Xc%,Yc%,RAD(L%)ELSEELLIPSENc%,Oc%,Xc%,Yc%
 4370IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4380ENDIF:IFN%<21THEN
 4390PROCya(N%,Nc%,Oc%,Xc%,Yc%,L%,F%):PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
 4400ENDIF:IFB%=5ORB%=3THEN
 4410GCOL4,0:IFN%>20THEN
 4420IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4430ENDIF:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 4440IFB%=5THEN
 4450PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%):REPEAT:MOUSEX%,Y%,B%:UNTILB%<>5
 4460ENDIF:IFB%=3THEN
 4470PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,3):REPEAT:MOUSEX%,Y%,B%:UNTILB%<>3
 4480ENDIF:GCOL4,0:IFN%>20THEN
 4490IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4500ENDIF:IFN%<21THENPROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
 4510ENDIF:IF(B%=2ORB%=4)ANDINKEY(-83)THEN
 4520GCOL4,0:IFN%>20THEN
 4530IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4540ENDIF:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 4550IFB%=4THEN
 4560PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%):REPEAT:MOUSEX%,Y%,B%:UNTILB%<>4
 4570ENDIF:IFB%=2THEN
 4580PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,3):REPEAT:MOUSEX%,Y%,B%:UNTILB%<>2
 4590ENDIF:GCOL4,0:IFN%>20THEN
 4600IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4610ENDIF:IFN%<21THENPROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
 4620ENDIF:Nc%=Qc%:Oc%=Rc%:Xc%=Zc%:Yc%=ac%:L%=bc%:UNTIL(B%=2ORB%=4)ANDNOTINKEY(-83):IFN%>20THEN
 4630IFbc%<>0ELLIPSEQc%,Rc%,Zc%,ac%,RAD(bc%)ELSEELLIPSEQc%,Rc%,Zc%,ac%
 4640ENDIF:IFN%<21PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
 4650IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 4660IFB%=4PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
 4670IFB%=2PROCya(N%,Qc%,Rc%,Zc%,ac%,bc%,3)
 4680PROCt_:ENDPROC
 4690DEFPROCcc:PROCdc:L%=0:C=1:S=0:I_%=0:VDU26:*POINTER
 4700VDU24,0;V_%;W_%;X_%;:GCOLN_%TINTO_%:X%=Oa%:Y%=Pa%:W%=Xc%:H%=Yc%:Sb%=Oa%-W%:Tb%=Pa%+H%:Ub%=Oa%+W%:Vb%=Tb%:ec%=Ub%:fc%=Pa%-H%:gc%=Sb%:hc%=fc%:ENDPROC
 4710DEFPROCic:jc%=FALSE:kc%=FALSE:lc%=TRUE:PROCcc:SYS46,272,B_,"SPRITE",0,gc%,hc%,Ub%,Vb%:GCOL4,0:PROCmc(Sb%,Tb%,Ub%,Vb%,ec%,fc%,gc%,hc%):MOUSETOOa%,Pa%:REPEAT:MOUSEva%,wa%,B%:X%=va%:Y%=wa%:IFINKEY(-99)PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):VDU7:ENDPROC
 4720PROCqc:IFINKEY(-85)THEN
 4730SOUND1,-2,180,3:SYS46,289,B_,"SPRITE":jc%=TRUE:REPEATUNTILNOTINKEY(-85)
 4740ENDIF:IFINKEY(-100)THEN
 4750SOUND1,-2,210,3:SYS46,303,B_,"SPRITE":kc%=TRUE:REPEATUNTILNOTINKEY(-100)
 4760ENDIF:IFB%=4ORjc%ORkc%THEN
 4770PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):C_%!0=pa%<<8:C_%!4=qa%<<8:C_%!8=ra%<<8:C_%!12=sa%<<8:C_%!16=Wb%<<8:C_%!20=Xb%<<8:C_%!24=nc%<<8:C_%!28=oc%<<8:SYS46,256+56,B_,"SPRITE",%01,,,C_%:jc%=FALSE:kc%=FALSE:IFI_%=0THENREPEAT:MOUSEX%,Y%,B%:UNTILB%<>4
 4780PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%)
 4790ENDIF:UNTILB%=2:VDU7:PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):ENDPROC
 4800DEFPROCrc:lc%=FALSE:PROCcc:GCOL4,0:PROCmc(Sb%,Tb%,Ub%,Vb%,ec%,fc%,gc%,hc%):MOUSETOOa%,Pa%:REPEAT:MOUSEva%,wa%,B%:X%=va%:Y%=wa%:IFINKEY(-99)PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):sc%=0:ENDPROC
 4810PROCqc:IFB%=4ORB%=5THEN
 4820PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 4830PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):GCOL4,0:PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFI_%=0REPEAT:MOUSEva%,wa%,B%:UNTILB%<4
 4840ENDIF:IFB%=2ORB%=3THEN
 4850PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 4860PROCtc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):GCOL4,0:PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFI_%=0REPEAT:MOUSEva%,wa%,B%:UNTILB%<2
 4870ENDIF:UNTILsc%=0:PROCt_:ENDPROC
 4880DEFPROCqc:IFINKEY(-51)L%=0:C=1:S=0:W%=Xc%:H%=Yc%
 4890IFINKEY(-101)THEN
 4900I_%=1-I_%:SOUND1,-6,72,3:REPEATUNTILNOTINKEY(-101)
 4910ENDIF:IFINKEY(-104)THEN
 4920W%=2*W%:IFW%>64*Xc%THENW%=64*Xc%
 4930H%=2*H%:IFH%>64*Yc%THENH%=64*Yc%
 4940REPEATUNTILNOTINKEY(-104)
 4950ENDIF:IFINKEY(-103)THEN
 4960W%=W%/2:IFABSW%<Xc%/16 W%=SGNW%*Xc%/16
 4970H%=H%/2:IFABSH%<Yc%/16 H%=SGNH%*Yc%/16
 4980REPEATUNTILNOTINKEY(-103)
 4990ENDIF:IFINKEY(-49)L%=45:C=D_:S=C:VDU7:REPEATUNTILNOTINKEY(-49)
 5000IFINKEY(-50)L%=90:C=0:S=1:VDU7:REPEATUNTILNOTINKEY(-50)
 5010IFINKEY(-18)L%=135:C=-D_:S=-C:VDU7:REPEATUNTILNOTINKEY(-18)
 5020IFINKEY(-19)L%=180:C=-1:S=0:VDU7:REPEATUNTILNOTINKEY(-19)
 5030IFINKEY(-20)L%=225:C=-D_:S=C:VDU7:REPEATUNTILNOTINKEY(-20)
 5040IFINKEY(-53)L%=270:C=0:S=-1:VDU7:REPEATUNTILNOTINKEY(-53)
 5050IFINKEY(-37)L%=315:C=D_:S=-C:VDU7:REPEATUNTILNOTINKEY(-37)
 5060IFINKEY(-22)L%=0:C=1:S=0:VDU7:REPEATUNTILNOTINKEY(-22)
 5070IFINKEY(-40)L%=0:C=1:S=0:VDU7:REPEATUNTILNOTINKEY(-40)
 5080IFINKEY(-82)THEN
 5090IFABSW%<ABSH%THENuc%=ABSW%ELSEuc%=ABSH%
 5100H%=SGNH%*uc%:W%=SGNW%*uc%
 5110ENDIF:IFINKEY(-122)THEN
 5120IFINKEY(-8)W%=W%+F_%ELSEW%=W%+E_%
 5130ENDIF:IFINKEY(-26)THEN
 5140IFINKEY(-8)W%=W%-F_%ELSEW%=W%-E_%
 5150ENDIF:IFINKEY(-58)THEN
 5160IFINKEY(-8)H%=H%+F_%ELSEH%=H%+E_%
 5170ENDIF:IFINKEY(-42)THEN
 5180IFINKEY(-8)H%=H%-F_%ELSEH%=H%-E_%
 5190ENDIF:IFINKEY(-98)THEN
 5200IFINKEY(-5)L%=(L%+H_%)MOD360ELSEL%=(L%+G_%)MOD360
 5210C=COSRAD(L%):S=SINRAD(L%)
 5220ENDIF:IFINKEY(-67)THEN
 5230IFINKEY(-5)L%=(L%-H_%)MOD360ELSEL%=(L%-G_%)MOD360
 5240C=COSRAD(L%):S=SINRAD(L%)
 5250ENDIF:vc=-C*W%-S*H%:wc=-S*W%+C*H%:xc=C*W%-S*H%:yc=S*W%+C*H%:pa%=X%+vc:qa%=Y%+wc:ra%=X%+xc:sa%=Y%+yc:Wb%=X%-vc:Xb%=Y%-wc:nc%=pa%+Wb%-ra%:oc%=qa%+Xb%-sa%:WAIT:WAIT:SYS6,21,0:PROCmc(Sb%,Tb%,Ub%,Vb%,ec%,fc%,gc%,hc%)
 5260PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):Sb%=pa%:Tb%=qa%:Ub%=ra%:Vb%=sa%:ec%=Wb%:fc%=Xb%:gc%=nc%:hc%=oc%:IFINKEY(-55)THEN
 5270PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 5280lc%=FALSE:PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFJ_%=1 lc%=TRUE
 5290GCOL4,0:PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFI_%=0THENREPEATUNTILNOTINKEY(-55)
 5300ENDIF:IFINKEY(-68)THEN
 5310PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 5320PROCtc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):GCOL4,0:PROCmc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):IFI_%=0THENREPEATUNTILNOTINKEY(-68)
 5330ENDIF:ENDPROC
 5340DEFPROCmc(tb%,xb%,ub%,yb%,zc%,_c%,`c%,Ad%):MOVEtb%,xb%:DRAWub%,yb%:DRAWzc%,_c%:DRAW`c%,Ad%:DRAWtb%,xb%:IFlc%=TRUECIRCLEtb%,xb%,8:CIRCLEub%,yb%,8
 5350ENDPROC
 5360DEFPROCtc(tb%,xb%,ub%,yb%,zc%,_c%,`c%,Ad%):MOVEtb%,xb%:MOVEub%,yb%:PLOT85,`c%,Ad%:PLOT85,zc%,_c%:ENDPROC
 5370DEFPROCl_:REPEAT:MOUSEX%,Y%,B%:PROCTa:UNTILB%=1ORB%=4ORY%<Y_%:IFY%<Y_%THENc_%=TRUE:PROCt_:ENDPROC
 5380IFB%=4ANDINKEY(-1)PROCp_:ENDPROC
 5390IFB%=1ANDINKEY(-1)PROCq_:ENDPROC
 5400PROCt_:J_%=0:sc%=0:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:Bd%=4:Cd%=4:Dd%=4:Ed%=4:GCOL4,0:RECTANGLENc%,Oc%,Bd%,Cd%:PROCYa:REPEAT:MOUSEX%,Y%,B%:IFINKEY(-99)THEN
 5410RECTANGLENc%,Oc%,Bd%,Cd%:PROCYa:PROCt_:ENDPROC
 5420ENDIF:IFz_%=1PROCYa:PROCZa:WAIT:WAIT
 5430IFINKEY(-106)J_%=1:SOUND1,-5,112,4:REPEATUNTILNOTINKEY(-106)
 5440IFINKEY(-52)sc%=1:VDU7:REPEATUNTILNOTINKEY(-52)
 5450IFINKEY(-98)sc%=1
 5460IFINKEY(-67)sc%=1
 5470IFINKEY(-82)THEN
 5480Dd%=X%-Nc%:Ed%=Y%-Oc%:Oa%=X%:Pa%=Y%:IFABSEd%<ABSDd%THENuc%=ABSEd%ELSEuc%=ABSDd%
 5490Dd%=SGNDd%*uc%:Ed%=SGNEd%*uc%:MOUSETONc%+Dd%,Oc%+Ed%
 5500ENDIF:IFB%=0 Dd%=X%-Nc%:Ed%=Y%-Oc%:Oa%=X%:Pa%=Y%
 5510IFB%=1 Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
 5520IFB%=5THEN
 5530PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 5540RECTANGLEQc%,Rc%,Dd%,Ed%:GCOL4,0:RECTANGLEQc%,Rc%,Dd%,Ed%:REPEATMOUSEX%,Y%,B%:UNTILB%<>5:MOUSETOOa%,Pa%:X%=Oa%:Y%=Pa%:PROCYa
 5550ENDIF:IFB%=3THEN
 5560PROCZa:IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 5570RECTANGLEFILLQc%,Rc%,Dd%,Ed%:GCOL4,0:RECTANGLEQc%,Rc%,Dd%,Ed%:REPEATMOUSEX%,Y%,B%:UNTILB%<>3:MOUSETOOa%,Pa%:X%=Oa%:Y%=Pa%:PROCYa
 5580ENDIF:WAIT:RECTANGLENc%,Oc%,Bd%,Cd%:RECTANGLEQc%,Rc%,Dd%,Ed%:Nc%=Qc%:Oc%=Rc%:Cd%=Ed%:Bd%=Dd%:UNTILB%=2ORB%=4ORJ_%=1ORsc%=1:PROCZa:IFJ_%=1RECTANGLEQc%,Rc%,Dd%,Ed%:PROCic:ENDPROC
 5590IFsc%=1RECTANGLEQc%,Rc%,Dd%,Ed%:PROCrc:ENDPROC
 5600IFq_%=FALSEGCOL0,N_%TINTO_%ELSEGCOL80,0
 5610IFB%=4RECTANGLEQc%,Rc%,Dd%,Ed%:PROCt_
 5620IFB%=2RECTANGLEFILLQc%,Rc%,Dd%,Ed%:PROCt_
 5630ENDPROC
 5640DEFPROCdc:IFDd%<0THENQc%=Qc%+Dd%
 5650IFEd%<0THENRc%=Rc%+Ed%
 5660Xc%=ABS(Dd%)/2:Yc%=ABS(Ed%/2):Oa%=Qc%+Xc%:Pa%=Rc%+Yc%:ENDPROC
 5670DEFPROCr_:SYS46,256+16,B_,"SPRITE",0,0,X_%-L_%,W_%,X_%:GCOL0TINT0:RECTANGLEFILL0,X_%-L_%,W_%,16:GCOL63TINT128:RECTANGLEFILL0,X_%-L_%+16,W_%,L_%-16:VDU4:COLOUR191TINT128:COLOUR0TINT0:ENDPROC
 5680DEFPROCs_:CASEK%OF
 5690WHEN0:PROCFd
 5700WHEN1:PROCGd
 5710WHEN2:PROCHd
 5720WHEN3:PROCId
 5730WHEN4:PROCJd
 5740WHEN5:PROCKd
 5750WHEN6:PROCLd
 5760WHEN7:PROCMd
 5770WHEN8:PROCNd
 5780WHEN9:PROCOd
 5790WHEN10:PROCPd
 5800WHEN11:PROCQd
 5810ENDCASE:VDU5:ENDPROC
 5820DEFPROCu_:SYS46,256+34,B_,"SPRITE",0,X_%-L_%,0:ENDPROC
 5830DEFPROCFd:PRINTTAB(26,1)"HELP - Jagged Curve"':PRINT" Click {S} to start. Moving the mouse will display a dotted line.":PRINT" Click {S} again to continue to add points."
 5840PRINT" A continuous jagged curve will be displayed passing through succesive points"':PRINT" Click {A} to finish with your last point  ( with an open path ),":PRINT" OR click {M} to complete a closed path ( to your initial point )."'
 5850PRINT" Parameter: 1 = minor variation,  6 = violent variation.":ENDPROC
 5860DEFPROCGd:PRINTTAB(26,1)"HELP - Parallelogram"':PRINT" Click {S} to fix a start point. Moving the mouse displays a dotted line.":PRINT" Clicking {S} again will fix this first side of the parallelogram."'
 5870PRINT" Click {S} again to finish with an outline parallelogram,":PRINT" OR click {M} to get a colour filled parallelogram."':PRINT" Hold {A} down and move the mouse to move the parallelogram bodily."
 5880PRINT" While holding {A} down click on {S} for outline,or {M} for a colour filled.":ENDPROC
 5890DEFPROCHd:PRINTTAB(26,1)"HELP - Ellipse"':PRINT" Click {S} to start. Move the mouse to display various sized ellipses.":PRINT" Click {S} again for outline ellipse,OR click {M} for colour filled ellipse."'
 5900PRINT" Click / Hold <Z>,<X> to rotate the ellipse anticlockwise / clockwise.":PRINT" Holding <C> down fixes the centre, enabling 'concentric' ellipses."':PRINT" Holding {A} down will enable the ellipse to be moved bodily."
 5910PRINT" Clicking on {S} / {M} as well will still give outline / filled ellipses.":ENDPROC
 5920DEFPROCId:PRINTTAB(26,1)"HELP - Arc"':PRINT" This enables smooth curves (open/closed) to be drawn through various points."':PRINT" The R.H parameter adjusts the width of the curve:- 1=thinest,6=thickest."'
 5930PRINT" Click {S} to start. Moving the mouse will display a dotted line.":PRINT" Click {S} again to continue to add points - a smooth curve will be drawn."':PRINT" Click {A} on the last point to finish with a smooth open curve,"
 5940PRINT" OR click {M} to finish with a smooth closed path (to your initial point )."':PRINT" Note: the first 'branch' is not finalised until the final {A} or {M}.":ENDPROC
 5950DEFPROCJd:PRINTTAB(26,1)"HELP - Circle"':PRINT" Click {S} to start. Moving the mouse displays various sized circles.":PRINT" Click {S} again for outline circle,OR click {M} for colour filled circle."'
 5960PRINT" Holding <C> down enables concentric circles to be drawn."':PRINT" Holding {A} down will enable the circle to be moved bodily.":PRINT" Clicking on {S}/{M} as well will still give outline / filled circles.":ENDPROC
 5970DEFPROCKd:PRINTTAB(26,1)"HELP - Free Hand"':PRINT" Press <1>,...,<5> to select the speed/smoothness of drawing. Default=3.":PRINT" Click {S} to start and HOLD it down. Moving the mouse gives free-hand curve."'
 5980PRINT" Holding the keys <H>/<V> will force horizontal/vertical lines."':PRINT" ERASER: - choose the background colour as the current colour.":PRINT" Holding {S}+<SPACE> displays a small outline circle ( for thickness >3 )"
 5990PRINT" which makes it easier to see with accuracy the area to be deleted."':PRINT" The parameter determines the width of the line : 1 = thinest, 6 = thickest.":ENDPROC
 6000DEFPROCLd:PRINTTAB(26,1)"HELP - Line"':PRINT" Click {S} to start. Moving the mouse will display a dotted line.":PRINT" Use {S} again to continue to add points - a continuous path will be drawn."'
 6010PRINT" Hold the keys <H>,<V> to force horizontal / vertical lines."':PRINT" Click {A} to finish with your last point - giving an open path,":PRINT" OR click {M} to complete a closed path to your initial point."'
 6020PRINT" The parameter determines the width of the line : 1 = thinest,6 = thickest."':ENDPROC
 6030DEFPROCMd:PRINTTAB(26,1)"HELP - Fill"':PRINT" Click {S} to fill an area with the current colour."':PRINT" If the current colour is 'pure' then filling always works, irrespective of"
 6040PRINT" the colour already present in the chosen area. If the current colour is ":PRINT" dithered then filling will only work if the colour in the area is 'pure'."
 6050PRINT" So to overwrite a dithered area you must first fill the area with a pure":PRINT" colour and THEN refill with your chosen dithered colour."':PRINT" <SPACE> 'undoes' the last fill (if NO colour changes made in the meantime).":ENDPROC
 6060DEFPROCNd:PRINTTAB(26,1)"HELP - Rectangle/Copy"':PRINT" ROTATION mode: Press <R> (or <Z>,<X>) to activate the following :-":PRINT"    <Z>=rotate anticlockwise, <X>=clockwise, <0>...<8>=multiples of 45 degrees."
 6070PRINT"    <S>=Force into Square,<D>=original rectangle Dimensions,<B>=toggles Brush.":PRINT"    > = double size , < = half size , Cursor keys = adjust width/height."'
 6080PRINT" RECTANGLE: Click {S} to start,{S} again for outline OR {M} for colour filled.":PRINT"    Holding {A} down enables it to be moved bodily, and {S}/{M} still work."'
 6090PRINT" COPY:"'"     Press <Copy> to start, move area to desired place and click {S}.":PRINT"     <H> = flip about horizontal (x-axis), <V> = flip about vertical (y-axis)."
 6100PRINT"     Use <Z>,<X> etc. as above.  Press <SPACE> (or {M}) to finish Copy mode.":ENDPROC
 6110DEFPROCOd:PRINTTAB(26,1)"HELP - Polygon"':PRINT" L.H icon = 'styles' - Outline, Outline+spokes,or spokes. Use {M} to increment.":PRINT" R.H parameter = no.of sides. {A} to increment OR <I> to input values (3-99)."'
 6120PRINT"  Click {S} to start,{S} again to finish,OR {M} to get colour filled polygon.":PRINT"  Hold {A} down to move the polygon bodily.  {S}/{M} will still work."'
 6130PRINT"  Hold <C> = concentric polygons, <Z>/<X> = rotate anticlockwise/clockwise.":PRINT"  Press <H>,<W> to force polygon into circle with the current height/width.":ENDPROC
 6140DEFPROCPd:PRINTTAB(26,1)"HELP - AirSpray"':PRINT" L.H.parameter = density of spray.Use {M} to increment. A=lowest,E=highest.":PRINT" R.H.parameter = radius of spray. Use {A} to increment. 1=least,5=largest."'
 6150PRINT" Hold {S} down to spray with fine dots, but ONLY if the pointer is moving.":PRINT" {S}+<SPACE> ( or {S}+{M}/{A} ) will spray even if pointer is NOT moving."':PRINT" {S}+<D> gives a spray of coarser circular dots  ( D = 'Dots')."
 6160PRINT" {S}+<F> gives a spray of angular shapes  ( F = 'Foliage').":ENDPROC
 6170DEFPROCQd:PRINTTAB(26,1)"HELP - ColourBox"':PRINT" Click {S} to pick up the colour ( under the pointer ) from the drawing area ":PRINT" Clicking {A} will pick up a dithered partner from the drawing area."'
 6180PRINT" At all stages the current colour (pure or dithered) is shown in the box."'':PRINT" SPECIAL EFFECTS:-"':PRINT" Hold {M} down to 'scratch' an area with hues of the colour under the pointer."
 6190PRINT" Hold {M}+<SPACE> to paint with 'blobs' of hues of the colour under the pointer.":ENDPROC
 6200DEFPROCv_:PRINTTAB(30,1)"HELP - General":PRINT'" NOTATION: MOUSE: {S}=Select, {M}=Menu, {A}=Adjust. KEYBOARD: <X>=Press 'X' etc":PRINT'" COLOUR BAR: {S} = Select a 'pure' colour, {A} = 'dithered' partner colour."
 6210PRINT'" Hold down {M} for Help on current tool, OR hold down <H> for Help - General.":PRINT'" <TAB> = Clear the Screen."SPC16"<T> = TEXT entry dialogue box.":PRINT'" <1>,<2>,...,<6> selects mouse speed :-   <1> = slow,...,<6> = fast."
 6220PRINT'" <S> = SAVE Screen as PIC1,PIC2 etc. / <L> = LOAD picture - filename required.":PRINT" <S>+<SHIFT> = SAVE dialogue box.      <L>+<SHIFT> = LOAD dialogue box.":PRINT'" <Shift>+<Q> = Quit to Desktop."
 6230PRINT'" TOOL BAR:     Click {S} to select your required tool or the ColourBox.":PRINT'" DRAWING AREA: <SPACE>=abort current action, <ALT>=toggle pointer/cross cursor."
 6240PRINT'" <SHIFT>+{S} picks up a pure colour, <SHIFT>+{A} picks up a dithered partner.":PRINT'SPC18"Click {S} to start using your chosen tool.":VDU5:ENDPROC
 6250DEFPROCx_:L_%=800:PROCr_:PROCRd:PROCSd:L_%=512:ENDPROC
 6260DEFPROCy_:L_%=800:PROCr_:PROCRd:PROCTd:L_%=512:ENDPROC
 6270DEFPROCRd:LOCALERROR:ONERRORLOCALVDU5:PROCu_:RESTOREERROR:ENDPROC
 6280PRINTTAB(1,1)"Which Filing system ?   A) Disc  B) RAM   (Press A,B) :- ";:REPEAT:Z$=GET$:UNTILINSTR("ABab",Z$)>0:IFZ$="A"ORZ$="a"THENPRINT"Disc":OSCLI("ADFS"):OSCLI("MOUNT")
 6290IFZ$="B"ORZ$="b"THENPRINT"RAM":OSCLI("RAM"):OSCLI("DIR")
 6300PRINTTAB(1,1)SPC80:PRINTTAB(1,1)"ROOT Directory Catalogue :-"':*CAT
 6310REPEAT:PRINT'" Change Directory ?  (Y/N)  :- ";:Z$=GET$:IFZ$="Y"ORZ$="y"THEN
 6320INPUT''" New Directory name :- "Ud$:OSCLI("Dir "+Ud$):VDU30:FORI%=1TO24:PRINTSPC80:NEXT:PRINTTAB(1,1)"Catalogue :-"':*CAT
 6330ENDIF:UNTILZ$<>"Y"ANDZ$<>"y":ENDPROC
 6340DEFPROCSd:LOCALERROR:ONERRORLOCALVDU5:PROCu_:RESTOREERROR:ENDPROC
 6350SYS6,21,0:VDU7:INPUT''" Please enter name of picture file to LOAD :- "B`$:PROCu_:VDU5:IFB`$<>""VDU24,0;V_%;W_%;X_%;:OSCLI"SCREENLOAD "+B`$
 6360ENDPROC
 6370DEFPROCTd:LOCALERROR:ONERRORLOCALVDU5:PROCu_:RESTOREERROR:ENDPROC
 6380SYS6,21,0:VDU7:INPUT''" Please enter name of picture file to SAVE :- "B`$:PROCu_:VDU5:IFB`$<>""VDU24,0;V_%;W_%;X_%;:OSCLI"SCREENSAVE "+B`$
 6390ENDPROC
 6400DEFPROCw_:SOUND1,-9,148,4:L_%=360:REPEAT:PROCr_:PROCVd:PROCu_:PROCWd:UNTILXd%=TRUE:VDU5:L_%=512:SOUND1,-9,148,4:ENDPROC
 6410DEFPROCb_:DIMYd$(12):Yd$(1)="Corpus.Bold":Yd$(2)="Corpus.Bold.Oblique":Yd$(3)="Corpus.Medium":Yd$(4)="Corpus.Medium.Oblique":Yd$(5)="Homerton.Bold":Yd$(6)="Homerton.Bold.Oblique"
 6420Yd$(7)="Homerton.Medium":Yd$(8)="Homerton.Medium.Oblique":Yd$(9)="Trinity.Bold":Yd$(10)="Trinity.Bold.Italic":Yd$(11)="Trinity.Medium":Yd$(12)="Trinity.Medium.Italic":DIMZd%(10),Zd$(10):Zd%(0)=10:Zd%(1)=14:Zd%(2)=16
 6430Zd%(3)=20:Zd%(4)=24:Zd%(5)=32:Zd%(6)=40:Zd%(7)=48:Zd%(8)=56:Zd%(9)=72:Zd%(10)=96:FORI%=0TO10:Zd$(I%)=STR$(Zd%(I%)):NEXT:Yd%=10:ad%=4:bd%=Zd%(ad%):cd%=4:dd%=Zd%(cd%):ed$="":fd%=0:ENDPROC
 6440DEFPROCVd:Xd%=FALSE:gd%=FALSE:VDU4:MOUSEOFF:ON:PROChd:IFid%=TRUETHEN
 6450PROCjd:PROCkd
 6460ENDIF:PROCld:ENDPROC
 6470DEFPROChd:VDU30:FORI%=1TO4:PRINTSPC80:NEXT:PRINTTAB(1,1)"FONT : ";Yd$(Yd%);SPC13;"Width = ";Zd$(ad%);SPC13;"Height = ";Zd$(cd%):PRINTTAB(1,3)"TEXT:  Any changes to current font, or width/height ?  (Y/N) ";:SYS6,21,0:Z$=GET$:IFZ$="Y"ORZ$="y"THENid%=TRUEELSEid%=FALSE
 6480ENDPROC
 6490DEFPROCjd:VDU30:FORI%=1TO9:PRINTSPC80:NEXT:PRINTTAB(1,1)"Which FONT ?":FORI%=0TO2:FORJ%=1TO4:PRINTTAB(28*I%,2+J%)CHR$(4*I%+J%+64)+") "+Yd$(4*I%+J%):NEXT:NEXT:PRINT'" Press  A,B,C,...  OR <RETURN>     { <RETURN> = Default/Current font }  :- ";:REPEATUNTILNOTINKEY(-74):SYS6,21,0:REPEAT:Z$=GET$
 6500UNTILINSTR("ABCDEFGHIJKLabcdefghijkl"+CHR$13,Z$)>0:VDU30:FORI%=1TO9:PRINTSPC80:NEXT:VDU30:IFASCZ$<>13THENmd%=ASCZ$:md%=md%AND&5F:Yd%=md%-64
 6510ENDPROC
 6520DEFPROCkd:PRINTTAB(1,1)"FONT : ";Yd$(Yd%)':FORI%=0TO9:PRINT" "+CHR$(65+I%)+"="+Zd$(I%)+",";SPC1;:NEXT:PRINT" "+CHR$(75)+"="+Zd$(10):PRINT'" ( Press  A,B,C,...  OR <RETURN>    { <RETURN> = Default/Previous }  )":PRINT''" Width ?  :- ";:REPEATUNTILNOTINKEY(-74):SYS6,21,0:REPEAT:Z$=GET$
 6530UNTILINSTR("ABCDEFGHIJKabcdefghijk"+CHR$13,Z$)>0:IFASCZ$<>13THENmd%=ASCZ$:md%=md%AND&5F:ad%=md%-65
 6540PRINTZd$(ad%);:bd%=Zd%(ad%):SOUND1,-6,86,4:PRINTSPC24"Height ?  :- ";:REPEATUNTILNOTINKEY(-74):SYS6,21,0:REPEAT:Z$=GET$:UNTILINSTR("ABCDEFGHIJKabcdefghijk"+CHR$13,Z$)>0:IFASCZ$<>13THENmd%=ASCZ$:md%=md%AND&5F:cd%=md%-65
 6550dd%=Zd%(cd%):VDU30:FORI%=1TO9:PRINTSPC80:NEXT:VDU30:ENDPROC
 6560DEFPROCld:VDU30:FORI%=1TO7:PRINTSPC80:NEXT:PRINTTAB(1,2)"FONT : ";Yd$(Yd%);SPC13;"Width = ";Zd$(ad%);SPC13;"Height = ";Zd$(cd%):REPEATUNTILNOTINKEY(-74):nd$=ed$:od%=fd%:PRINT''" Type in your text  ( <RETURN> = Previous text = """+ed$+""" ) :"''" >> ";:ed$="":fd%=0
 6570REPEAT:SYS6,21,0:Z$=GET$:IFZ$<>CHR$13THEN
 6580IFfd%>0ANDZ$=CHR$127 fd%-=1:ed$=LEFT$(ed$,fd%):PRINTZ$;
 6590IFZ$<>CHR$127 ed$+=Z$:fd%+=1:PRINTZ$;
 6600ENDIF:UNTILZ$=CHR$13:VDU30:FORI%=1TO6:PRINTSPC80:NEXT:IFed$=""THENed$=nd$:fd%=od%
 6610IFed$=""THENXd%=TRUE:VDU30
 6620ENDPROC
 6630DEFPROCWd:IFXd%=TRUETHENENDPROC
 6640``$=Yd$(Yd%):OFF:MOUSEON:PROCpd:PROCZd:X%=640-qd%/2:Y%=512:Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:VDU24,0;V_%;W_%;X_%;:PROCud(Oa%,Pa%,rd%,sd%):MOUSETOOa%,Pa%:REPEAT:IFINKEY(-36)gd%=TRUE:REPEATUNTILNOTINKEY(-36)
 6650IFINKEY(-99)Xd%=TRUE:REPEATUNTILNOTINKEY(-99)
 6660IFY%<Z_%THEN
 6670VDU26:X%=20*(X%DIV20)+8:Y%=24*(Y%DIV24)+7:MOUSEON129:MOUSESTEP3:POINTTOX%,Y%:IFB%=4THENPROCp_:q_%=FALSE:PROCpd
 6680IFB%=2THEN
 6690L_%=512:PROCr_:PROCvd:VDU5:PROCt_:PROCu_:L_%=360
 6700ENDIF:IFB%=1THENPROCq_
 6710ENDIF:MOUSEX%,Y%,B%:IFY%>Z_%THEN
 6720VDU24,0;V_%;W_%;X_%;:MOUSEON1:MOUSESTEPK_%:IFB%=1THEN
 6730ad%+=1:cd%+=1:IFad%>10THENad%=10:cd%-=1
 6740IFcd%>10THENcd%=10:ad%-=1
 6750bd%=Zd%(ad%):dd%=Zd%(cd%):PROCZd:PROCud(Oa%,Pa%,rd%,sd%):PROCud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:PROCt_
 6760ENDIF:IFB%=2THEN
 6770ad%-=1:cd%-=1:IFad%<0THENad%=0:cd%+=1
 6780IFcd%<0THENcd%=0:ad%+=1
 6790bd%=Zd%(ad%):dd%=Zd%(cd%):PROCZd:PROCud(Oa%,Pa%,rd%,sd%):PROCud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:PROCt_
 6800ENDIF:IFB%=4THEN
 6810PROCZd:PROCud(Oa%,Pa%,rd%,sd%):SYS262278,,ed$,&10,X%,Y%:PROCud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:SYS262274,f%:PROCt_
 6820ENDIF:IFX%<>Oa%ORY%<>Pa%THEN
 6830WAIT:WAIT:PROCud(Oa%,Pa%,rd%,sd%):PROCud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%
 6840ENDIF
 6850ENDIF:UNTILXd%=TRUEORgd%=TRUE:VDU24,0;V_%;W_%;X_%;:PROCud(Oa%,Pa%,rd%,sd%):IFgd%=TRUESOUND1,-6,84,4
 6860ENDPROC
 6870DEFFNwd(C%,T%):LOCALR%,G%,B%:T%=T%>>>6:R%=((C%AND3)<<2)+T%:G%=(C%AND12)+T%:B%=((C%AND48)>>>2)+T%:=(R%<<12)+(G%<<20)+(B%<<28)
 6880DEFPROCpd:xd%=FNwd(N_%,O_%):SYS262291,,0,1,14,xd%,xd%:ENDPROC
 6890DEFPROCZd:SYS262273,,``$,bd%*16,dd%*16,0,0TOf%:SYS262277,,ed$,1E8,1E8,-1,1E8TO,,qd%:td%=dd%*1000:SYS262280,,qd%,td%TO,qd%,td%:ENDPROC
 6900DEFPROCud(X%,Y%,qd%,td%):GCOL4,0:LINEX%,Y%-1100,X%,Y%+1100:LINEX%-1600,Y%-4,X%+1600,Y%-4:MOVEX%,Y%-td%/4:DRAW BY qd%,0:DRAW BY 0,td%:DRAW BY -qd%,0:ENDPROC
 6910DEFPROCvd:PRINTTAB(36,1)"Help - TEXT":PRINT'" To initiate text entry:- Press <T> when the pointer is on the Colour Bar.":PRINT'" In the first dialogue box:-  <Y>=changes,  <other>=default/current values."
 6920PRINT" Enter your choices in the Font box, and then the Width/Height box.":PRINT" Text Box:-  Enter your text at the prompt, followed by <RETURN>.":PRINT" Pressing <T> again at any time brings back the first dialogue box."
 6930PRINT'" Drawing area:-  {S} = draw text at pointer, {A} = larger text, {M} = smaller.":PRINT'" On the Colour Bar:-   {S} = Select colour of text, {M} = Help-Text window.":PRINT'" Press <SPACE> to finish.":ENDPROC

��A_:�
t�15:�:�B_&30000:�C_% 32:D_=1/�2:E_%=12:F_%=4:G_%=3:H_%=1:I_%=0:J_%=0:!B_=&30000:B_!4=0:B_!8=16:B_!12=16:*POINTER
�K_%=3:L_%=512:�19,0,24,96,96,96:M_%=1:N_%=0:O_%=0:P_%=N_%:Q_%=O_%:R_%=0:S_%=0:T_%=0:U_%=0:�191Ȝ192:V_%=148:W_%=1279:X_%=1023:Y_%=144:Z_%=96:�24,0;V_%;W_%;X_%;:�5:�:�26:*FX 163,242,16
(�a_:�b_:�:�Y%>Y_%�
2.ȗ�1:�24,0;V_%;W_%;X_%;:ȗ�K_%:c_%=�:ȎK%�
<�0:�:�d_:�c_%=�
F�1:�:�e_:�c_%=�
P�2:�:�f_:�c_%=�
Z�3:�:�g_:�c_%=�
d�4:�:�h_:�c_%=�
n�5:�:�i_:�c_%=�
x�6:�:�j_:�c_%=�
��7:�:�k_:�c_%=�
��8:�:�l_:�c_%=�
��9:�:�m_:�c_%=�
��10:�:�n_:�c_%=�
��11:�:�o_:�c_%=�
��:ș6,21,0
��:ȗX%,Y%,B%:�Y%<Z_%�
�L�26:X%=20*(X%�20)+8:Y%=24*(Y%�24)+7:ȗ�3:ȗ�129:Ȓ�X%,Y%:�B%=4��p_:q_%=�
��B%=2��r_:�s_:�t_:�u_
�
�B%=1��q_
��(-85)�
�)L_%=832:�r_:�v_:����(-85):�u_:L_%=512
��:�(-36)��w_
�(-87)��(-1)��x_
�(-82)��(-1)��y_
�(-17)��(-1)�*DESKTOP
"�(-3)�
,"z_%=1-z_%:�1,-6,200,3:����(-3)
6�:�K%=9��(-38)��__
@AZ$=�(0):`_%=�Z$:�`_%>0�`_%<7�K_%=`_%:ȗ�K_%:�1,-8,120+8*K_%,3
J�(-97)�
T�A`:����(-97)
^�:�(-82)���(-1)�
hf�24,0;V_%;W_%;X_%;:�7:ș6,21,0:�"DIR "+"<ART$DIR>":�"SCREENSAVE "+"Pic"+�(M_%):M_%=M_%+1:����(-82)
r�:�(-87)���(-1)�
|�����(-87):�24,0;V_%;W_%;X_%;:ș6,21,0:�191Ȝ128:�0Ȝ0:�4,7:�16,0)"Please enter name of picture file :- "B`$:�5:�B`$<>""�"DIR "+"<ART$DIR>":�"SCREENLOAD "+B`$��
��
��:�Y%>Z_%�Y%<Y_%�
�c�26:C`%=X%�110:X%=106*C`%+72:Y%=124:ȗ�3:ȗ�129:Ȓ�X%,Y%:�(B%=4�C`%<>K%)��D`(K%,C`%):K%=C`%:�t_
��K%=9��(-38)��__
��B%=1�C`%=K%�
�	ȎK%�
�
�0:�E`(1)
�
�3:�F`(1)
�
�5:�G`(1)
�
�6:�H`(1)
�
�9:�I`
��10:�J`
�	�:�t_
�:�B%=2�C`%=K%�
	ȎK%�
�0:�E`(-1)
&�5:�G`(-1)
0�6:�H`(-1)
:
�9:�K`
D�10:�L`
N	�:�t_
X�:ș6,21,0
b
�:��:�
l$��A_:�12:ȗ�4:�:�" at line ";�:�
v��a_:�M`:�N`:�O`:�
����M`:X%=640:Y%=512:B%=0:K%=5:P`%=�:S%=2:Q`%=2^(S%+2):R`%=4:S`%=25*R`%:D$=�(64+R`%):R%=3:T`=1:U`%=3:V`%=16:W`%=64:X`%=0:N%=5:F%=0:Y`=1.48:Y`%=4:Z`%=20:G=0.01:a`%=8:b`%=0:Y`$=�(64+Y`%):�23,225,255,255,255,255,255,255,255,255
�%c`%=360:z_%=0:d`%=�:q_%=�:e`%=�:�
����N`:�f`%(3),g`%(3):�X%(c`%),Y%(c`%):�T$(10),N$(10),X`%(10),h`%(10),P$(3):�23,230,3,30,112,192,192,96,48,31:�23,231,192,120,14,3,3,14,28,248:P$(0)=�230+�231+" ":�23,234,7,61,225,191,195,102,60,31
���23,235,224,188,135,253,195,102,60,248:P$(1)=�234+�235+" ":�23,236,1,1,225,61,7,14,28,56:�23,237,128,128,135,188,224,112,56,28:P$(2)=�236+�237+" "
��T$()="Jagg ","//gram","Ellip","Arc ","Circle","Free ","Line ","Fill","Rect",P$(0)," Air ":X`%()=116,116,100,100,112,116,116,88,84,96,128:h`%(0)=0:�I%=1�10:h`%(I%)=h`%(I%-1)+X`%(I%-1):�
�UN$(0)=�(U`%):N$(3)=�(b`%+1):N$(5)=�(R%):N$(6)=�(X`%+1):N$(9)=�(N%):N$(10)=�(S%):�
����O`:�C%=0�255:i`%=0:j`%=19:k`%=20:�C%�4Ȝ(C%�4)*64:ȓȐ(C%�64)*k`%,(C%�64)*24,15,19:�:�l`(P_%,Q_%):�m`(T_%,U_%):�60Ȝ0:ȓȐ0,96,1280,48:�n`(K%):�63Ȝ192:ȓ1172,100,104,40:�N_%ȜO_%:ȓȐ1174,104,100,32:�
�=��n`(K%):o`%=0:�5:�I%=0�10:p`%=16:q`%=47:�I%=K%�Ȕp`%,q`%
�'�r`(I%):�:p`%=16:q`%=47:�N_%ȜO_%:�
�k��r`(G%):�p`%Ȝ192:ȓȐ4+h`%(G%),100,X`%(G%)-8,40:�q`%Ȝ192:�10+h`%(G%),132:�G%=3�q`%Ȝ192:�T$(3)+N$(3)
��G%<9�G%<>3�T$(G%)+N$(G%)
��G%=9�P$(F%)+N$(9)
�/�G%=10�19Ȝ96:�D$;:�q`%Ȝ192:�T$(10)+N$(10)
�
'��D`(I%,J%):�I%<11�r`(I%):Ȕp`%,q`%
�J%<11�r`(J%):Ȕp`%,q`%
 �N_%ȜO_%:�
*-��A`:�24,0;V_%;W_%;X_%;:�191Ȝ192:�:�26:�
40��o_:�:ȗX%,Y%,B%:�B%�Y%<Y_%:�Y%<Y_% c_%=�:�
>�B%=4�p_:�
H�B%=1�q_:�
R
�B%=2�
\Hs`%=X%:t`%=Y%:u`%=30:v`%=X%*u`%:w`%=Y%*u`%:x`%=0:X%()=X%:Y%()=Y%:�y`
f�:�
p+��y`:�:ȗX%,Y%,B%:�z`(X%,Y%,u`%):�B%=2�
z;_`%=2:``%=�X%,Y%):Aa%=Ȝ(X%,Y%):�Aa%<64 Ba%=64*(�(2)-1)
�#�Aa%>63�Aa%<128 Ba%=64*(�(3)-1)
� �Aa%>127�Aa%<192 Ba%=64*�(3)
��Aa%>191 Ba%=64*(�(2)+1)
��0,``%ȜBa%:符(-99)�
�3Ca%=s`%-X%:Da%=t`%-Y%:�X%,Y%:�1,_`%*Ca%,_`%*Da%
��:�(-99)�
�XCa%=s`%-X%:Da%=t`%-Y%:Ea=0.5*�(Ca%^2+Da%^2):�X%<>s`%�Y%<>t`%ȏȐX%,Y%,Ea�ȏȐX%,Y%,6
��
��:s`%=X%:t`%=Y%:�B%=0:�
���t_:�ȗX%,Y%,B%:�B%=0:�
�O��Fa(G%):Ȕq`%,p`%:�26,5:�r`(G%):�0,N_%ȜO_%:�24,0;V_%;W_%;X_%;:Ȕq`%,p`%:�
���p_:N_%=�X%,Y%):O_%=Ȝ(X%,Y%):�26:�l`(P_%,Q_%):�l`(N_%,O_%):P_%=N_%:Q_%=O_%:�N_%ȜO_%:ȓȐ1174,104,100,32:�24,0;V_%;W_%;X_%;:�q_%=��q_%=�:�m`(T_%,U_%)
�	�t_:�
.��Ga:R_%=�X%,Y%):S_%=Ȝ(X%,Y%):�26:�q_%=��
-�m`(T_%,U_%):�m`(R_%,S_%):T_%=R_%:U_%=S_%
�:�q_%=��q_%=�:�m`(T_%,U_%)
$M�80,0:ȓȐ1174,104,100,32:�(N_%<>R_%�O_%<>S_%)�5:�1176,132:�4,0:�"------"
.&�N_%=R_%�O_%=S_%��0,N_%ȜO_%:q_%=�
8	�t_:�
Bg��l`(C%,T%):i`%=16:j`%=19:Ha%=C%*4+T%�64:�4,0:Ia%=(Ha%�64)*20:Ja%=(Ha%�64)*24:ȓIa%-2,Ja%-4,19,27:�
Lm��m`(Ka%,La%):�4,0:i`%=16:j`%=19:Ha%=Ka%*4+La%�64:Ia%=(Ha%�64)*20:Ja%=(Ha%�64)*24:ȓȐIa%-3,Ja%+15,21,5:�
V$��k_:�:ȗX%,Y%,B%:�(-99)�P`%=��
`�e`%=��q_%=��
j9�128+N_%ȜO_%:�0,Ma%ȜNa%:ȐOa%,Pa%:�0,N_%ȜO_%:P`%=�
t�:�e`%=��q_%=��
~3�128+N_%ȜO_%:�80,0:ȐOa%,Pa%:P`%=�:�0,N_%ȜO_%
��:�e`%=��q_%=��
�-�80,128:�0,Ma%ȜNa%:ȐOa%,Pa%:P`%=�:�80,0
��
�&�:�B%>0�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
��B%=4��(-1)��p_:q_%=�:�
��B%=1��(-1)��q_:�
��B%=4���(-1)�
�eP`%=�:Oa%=X%:Pa%=Y%:Ma%=�X%,Y%):Na%=Ȝ(X%,Y%):Qa%=�X%+2,Y%):Ra%=Ȝ(X%+2,Y%):�(Qa%<>Ma%�Ra%<>Na%)�
� e`%=�:�Sa(Ma%,Na%,Qa%,Ra%,�)
���128+Ma%ȜNa%:e`%=�
�
�:�q_%=��
�+�(Ma%<>N_%�Na%<>O_%�Qa%<>N_%�Ra%<>O_%)�
�0,N_%ȜO_%:ȐX%,Y%:P`%=�

�
�:�(q_%=��e`%=�)�
(�Sa(N_%,O_%,R_%,S_%,�):ȐX%,Y%:P`%=�
(�:�(q_%=��e`%=�)�
2 �Sa(N_%,O_%,R_%,S_%,�):P`%=�
<�
F�:�t_:�
PE��q_:R_%=�X%,Y%):S_%=Ȝ(X%,Y%):q_%=�:�Sa(N_%,O_%,R_%,S_%,�):�Ga:�
Z8��e_:�:ȗX%,Y%,B%:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
d�B%=4��(-1)�p_:�
n�B%=1��(-1)�q_:�
x��t_:Oa%=X%:Pa%=Y%:f`%(1)=X%:g`%(1)=Y%:Ua%=f`%(1):Va%=g`%(1):Wa%=f`%(1):Xa%=g`%(1):�4,0:�Ua%,Va%,Wa%,Xa%:�Ya:�ȗX%,Y%,B%:�(-99)�Ua%,Va%,Wa%,Xa%:�Ya:�
�Ȗ:Ȗ:�z_%=1�Ya:�Za
�ІUa%,Va%,Wa%,Xa%:�Ua%,Va%,X%,Y%:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:�B%=1�B%=4:f`%(2)=X%:g`%(2)=Y%:�t_:Ua%=f`%(2):Va%=g`%(2):Wa%=f`%(2):Xa%=g`%(2):�aa(Wa%,Xa%):�f`%(2),g`%(2):�ȗX%,Y%,B%:�(-99)�aa(Wa%,Xa%):�Ya:�
��z_%=1�Ya:�Za
�
�B%<2�
�Ȗ:Ȗ:�aa(Wa%,Xa%):�B%=1�ba
�*�aa(X%,Y%):Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%
��:�B%=5�B%=3�
�,�Za:�aa(Wa%,Xa%):�q_%=��0,N_%ȜO_%��80,0
��B%=5�aa(Wa%,Xa%)
�3�B%=3�f`%(1),g`%(1):�f`%(2),g`%(2):�&75,Wa%,Xa%
�T�ba:�4,0:�aa(X%,Y%):Wa%=X%:Xa%=Y%:�ȗX%,Y%,B%:�B%<2:ȗ�Oa%,Pa%:X%=Oa%:Y%=Pa%:�Ya
�9�:�B%=2�B%=4:�Za:�aa(Wa%,Xa%):�q_%=��0,N_%ȜO_%��80,0
�<�aa(X%,Y%):�B%=2�f`%(1),g`%(1):�f`%(2),g`%(2):�&75,X%,Y%
	�t_:�
h��ba:ca%=X%-Wa%:da%=Y%-Xa%:f`%(1)=f`%(1)+ca%:g`%(1)=g`%(1)+da%:f`%(2)=f`%(2)+ca%:g`%(2)=g`%(2)+da%:�
n��aa(ea%,fa%):�f`%(1),g`%(1):�f`%(2),g`%(2):�ea%,fa%:�f`%(1)-f`%(2)+ea%,g`%(1)-g`%(2)+fa%:�f`%(1),g`%(1):�
"E��n_:ga%=6:ha%=24:�:ȗX%,Y%,B%:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
, ia%=X%:ja%=Y%:�B%=2�L`:�t_:�
6�B%=1���(-1)��J`:�t_:�
@�B%=4��(-1)��p_:�
J�B%=1��(-1)��q_:�t_:�
T�26:*POINTER
^.�24,0;V_%;W_%;X_%;:�q_%=��0,N_%ȜO_%��80,0
h�u`%=40:v`%=X%*u`%:w`%=Y%*u`%:x`%=0:X%()=X%:Y%()=Y%:�ȗX%,Y%,B%:�z`(X%,Y%,u`%):�(B%=4�(X%<>ia%�Y%<>ja%))�(B%=4��(-99))�(B%=6)�
r?A=�(�(360)):T=Q`%*�(1):H=T*�A:K=T*�A:�B%>3���(-51)���(-68)�
|�(100)<S`%�ȒX%+H,Y%+K
�0�S`%=125�ȒX%-H,Y%-K:ȒX%+K,Y%-H:ȒX%-K,Y%+H
��:�B%>3��(-51)�
�Cga%=5+�((X%-ia%)^2+(Y%-ja%)^2):�(125)<S`%�ȏȐX%+H,Y%+K,�(ga%)
�K�S`%=125�ȏȐX%-H,Y%-K,�(ga%):ȏȐX%+K,Y%-H,�(ga%):ȏȐX%-K,Y%+H,�(ga%)
��:�B%>3��(-68)�
��(125)<S`%��ka(X%+H,Y%+K)
�9�S`%=125��ka(X%-H,Y%-K):�ka(X%+K,Y%-H):�ka(X%-K,Y%+H)
��:ia%=X%:ja%=Y%
�
�:�B%=0:�
�m��ka(f`,g`):�f`,g`:�f`+(�(ha%)-ha%/2),g`+(�(ha%)-ha%/2):�53+32*�(2),f`+(�(ha%)-ha%/2),g`+(�(ha%)-ha%/2):�
�6��J`:S%=1+S%�5:Q`%=2^(S%+2):N$(10)=�(S%):�Fa(10):�
�6��L`:R`%=1+R`%�5:S`%=25*R`%:D$=�(64+R`%):�Fa(10):�
�8��d_:�:ȗX%,Y%,B%:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
�B%=1��E`(1):�t_:�
�B%=2��E`(-1):�t_:�
�B%=4��(-1)��p_:�
&�B%=1��(-1)��q_:�
0��t_:la=U`%/V`%:Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:ma%=X%:na%=Y%:Oa%=X%:Pa%=Y%:�4,0:�Ua%,Va%,Wa%,Xa%:�Ya:�:ȗX%,Y%,B%:�(-99)�Ua%,Va%,Wa%,Xa%:�Ya:�
:Ȗ:Ȗ:�z_%=1�Ya:�Za
DF�Ua%,Va%,Wa%,Xa%:�Ua%,Va%,X%,Y%:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:�B%=4�
N.�Za:�Ua%,Va%,X%,Y%:�q_%=��0,N_%ȜO_%��80,0
X^�oa(Ua%,Va%,X%,Y%):Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:�4,0:�Za:�Ua%,Va%,X%,Y%:�ȗX%,Y%,B%:�B%�2=0
b;�:�B%=1�B%=2:�Za:�Ua%,Va%,X%,Y%:�q_%=��0,N_%ȜO_%��80,0
l.�oa(Ua%,Va%,X%,Y%):�B%=2�oa(X%,Y%,ma%,na%)
v	�t_:�
�$��E`(I%):U`%=U`%+I%:�U`%=7�U`%=1
��U`%=0�U`%=6
�N$(0)=�(U`%):�Fa(0):�
����oa(pa%,qa%,ra%,sa%):�ta%,ua%,Ua%,Va%,va%,wa%:ta%=ra%-pa%:ua%=sa%-qa%:Ua%=ra%+pa%:Va%=sa%+qa%:�ta%*ta%+ua%*ua%<=W`%�pa%,qa%:�ra%,sa%:�
�dxa=la*(2*�(1)-1):va%=.5*Ua%-xa*ua%:wa%=.5*Va%+xa*ta%:�oa(pa%,qa%,va%,wa%):�oa(va%,wa%,ra%,sa%):�
����ya(N%,ia%,ja%,H%,V%,A%,F%):�D,C,S,za,_a,Ha,`a,X,Y,Ab,Bb,Cb,Db,R,P%:�29,ia%;ja%;:D=2*�/N%:C=�D:S=�D:X=0:Y=V%:�N%=4�Eb=�/4:X=H%*�Eb:Y=V%*�Eb
��N%=6�X=H%:Y=0
�"�N%=8�Eb=�/8:X=H%*�Eb:Y=V%*�Eb
ПHa=��A%:`a=��A%:R=H%/V%:za=S*R:_a=S/R:Ab=X*Ha-Y*`a:Bb=X*`a+Y*Ha:�Ab,Bb:�I%=1�N%:Cb=X*C-za*Y:Db=Y*C+X*_a:Ab=Cb*Ha-Db*`a:Bb=Cb*`a+Db*Ha:�F%=3��0,0:P%=85�P%=5
��F%<>2��P%,Ab,Bb
��F%>0��0,0:�Ab,Bb
�X=Cb:Y=Db:�:�29,0;0;:�
���K`:F%=(F%+1)�3:�Fa(9):�
��I`:N%=N%+1:�N%>9�N%=3
N$(9)=�(N%):�Fa(9):�
���__:�26,5,7:�:Fb$="":Gb%=0:�47Ȝ192:�58+h`%(9),132:�225+�225:�16Ȝ192:�:�:ș6,21,0:Hb$=�:��"0123456789"+�13,Hb$)>0:Fb$=Fb$+Hb$:�58+16*Gb%+h`%(9),132:�Hb$:Gb%=Gb%+1:�Gb%=2:N%=�(Fb$):�N%>2:�7:�:N$(9)=�(N%):�Fa(9):�
 8��j_:�:ȗX%,Y%,B%:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
*�B%=1���(-1)�H`(1):�t_:�
4�B%=2�H`(-1):�t_:�
>�B%=4��(-1)�p_:�
H�B%=1��(-1)�q_:�
R��t_:Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:ma%=X%:na%=Y%:Oa%=X%:Pa%=Y%:�4,0:�Ua%,Va%,Wa%,Xa%:�Ya:�:ȗX%,Y%,B%:�(-99)��Ua%,Va%,Wa%,Xa%:�Ya:�
\�(-100)ȗ�Ua%,Y%:X%=Ua%
f�(-85)ȗ�X%,Va%:Y%=Va%
p7Ȗ:Ȗ:�Ua%,Va%,Wa%,Xa%:�Ua%,Va%,X%,Y%:�z_%=1�Ya:�Za
z&Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:�B%=4�
��Za:�q_%=��0,N_%ȜO_%��80,0
�`�Ib(Ua%,Va%,X%,Y%,X`%):Ua%=X%:Va%=Y%:Wa%=X%:Xa%=Y%:�4,0:�Za:�Ua%,Va%,X%,Y%:�ȗX%,Y%,B%:�B%<3
�,�:�B%=1�B%=2:�Za:�q_%=��0,N_%ȜO_%��80,0
�6�Ib(Ua%,Va%,X%,Y%,X`%):�B%=2�Ib(X%,Y%,ma%,na%,X`%)
�	�t_:�
�2��Ib(Oa%,Pa%,X%,Y%,X`%):�X`%=0�Oa%,Pa%,X%,Y%:�
��Jb%=X%-Oa%:Kb%=Y%-Pa%:Eb%=2^X`%:L=Eb%/(�(Jb%*Jb%+Kb%*Kb%)+1E-6):Lb=Kb%*L:Mb=Jb%*L:�Oa%+Lb,Pa%-Mb:�Oa%-Lb,Pa%+Mb:�85,X%+Lb,Y%-Mb:�85,X%-Lb,Y%+Mb:�X`%>1ȏȐOa%,Pa%,Eb%:ȏȐX%,Y%,Eb%
��
�$��H`(I%):X`%=X`%+I%:�X`%=6 X`%=0
��X`%=-1 X`%=5
�N$(6)=�(X`%+1):�Fa(6):�
�N��g_:�t_:Nb%=�:Ib%=�:Ob%=�:�:ȗX%,Y%,B%:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
��B%=1���(-1)��F`(1):�t_:�
	�B%=2��F`(-1):�t_:�
	�B%=4��(-1)��p_:�
	�B%=1��(-1)��q_:�
	$2pa%=X%:qa%=Y%:Oa%=X%:Pa%=Y%:�Pb:Qb%=�:�Ob%=���
	.
�B%<3�
	8�q_%=��0,N_%ȜO_%��80,0
	B�Ib(pa%,qa%,ra%,sa%,b`%):�
	L.�:Rb=�((ra%-pa%)^2+(sa%-qa%)^2):�Rb<G�Rb=G
	V�Sb%=pa%:Tb%=qa%:Ub%=ra%:Vb%=sa%:Wb%=ra%:Xb%=sa%:Yb=pa%:Zb=qa%:�:�t_:�ab:�4,0:�Ya:ȏȐpa%,qa%,a`%:ȏra%,sa%,a`%:�bb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):�bb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):�:ȗX%,Y%,B%:�(-99)�
	`��4,0:ȏȐpa%,qa%,a`%:ȏra%,sa%,a`%:�bb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):�bb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):Ib%=�:�q_%=��0,N_%ȜO_%��80,0
	j(�Qb%=��Ya:�Ib(pa%,qa%,ra%,sa%,b`%):�
	t�Qb%=��
	~O�Ya:�bb(pa%,qa%,Yb,Zb,ra%,sa%,ra%,sa%):�bb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):�
	��
	�[�:ib%=Wb%:jb%=Xb%:Wb%=X%:Xb%=Y%:kb=eb:lb=fb:mb=cb:nb=db:�ab:�z_%=1�Ya:�Za:Oa%=X%:Pa%=Y%
	���bb(pa%,qa%,Yb,Zb,ra%,sa%,mb,nb):�bb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):�bb(ra%,sa%,kb,lb,ib%,jb%,ib%,jb%):�bb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):�B%>0:Qb%=�:�Za:ȏȐpa%,qa%,a`%:ȏra%,sa%,a`%:�bb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):�Nb%=��
	�C�4,0:�bb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):�q_%=��0,N_%ȜO_%��80,0
	�XIb%=�:�bb(pa%,qa%,Yb,Zb,ra%,sa%,cb,db):Ib%=�:�4,0:�bb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb)
	�
�:�Nb%=��
	�gb=cb:hb=db:Nb%=�
	��:�B%=1�
	��q_%=��0,N_%ȜO_%��80,0
	�UIb%=�:�bb(ra%,sa%,eb,fb,Wb%,Xb%,Wb%,Xb%):�bb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):Ib%=�
	��:�B%=2�
	�C�4,0:�bb(Sb%,Tb%,Sb%,Tb%,Ub%,Vb%,gb,hb):�q_%=��0,N_%ȜO_%��80,0
�Ib%=�:ob=eb:pb=fb:pa%=ra%:qa%=sa%:ra%=Wb%:sa%=Xb%:Wb%=Sb%:Xb%=Tb%:Rb=qb:�ab:�bb(pa%,qa%,ob,pb,ra%,sa%,cb,db):ob=eb:pb=fb:pa%=ra%:qa%=sa%:ra%=Wb%:sa%=Xb%:Wb%=Ub%:Xb%=Vb%:Rb=qb:�ab:�bb(pa%,qa%,ob,pb,ra%,sa%,cb,db)

$�bb(ra%,sa%,eb,fb,Ub%,Vb%,gb,hb)
E�:pa%=ra%:qa%=sa%:ra%=Wb%:sa%=Xb%:Yb=eb:Zb=fb:Rb=qb:Ib%=�:�B%<3:�
t��Pb:�t_:�4,0:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:�Ya:�pa%,qa%,Wa%,Xa%:�:ȗX%,Y%,B%:�(-99)��pa%,qa%,Wa%,Xa%:�Ya:Ob%=�:�
(Ȗ:Ȗ:�z_%=1�Ya:�Za
2h�pa%,qa%,Wa%,Xa%:�pa%,qa%,X%,Y%:Wa%=X%:Xa%=Y%:Oa%=X%:Pa%=Y%:�B%:ra%=X%:sa%=Y%:�pa%,qa%,ra%,sa%:�Ya:�
<1��ab:qb=�((Wb%-ra%)^2+(Xb%-sa%)^2):�qb<G�qb=G
F{r=Rb/(Rb+qb):R=2*r:r1=1-r:eb=(ra%-(pa%-r*(pa%+Wb%)))/R:fb=(sa%-(qa%-r*(qa%+Xb%)))/R:cb=(ra%-r*eb)/r1:db=(sa%-r*fb)/r1:�
P���bb(rb,sb,tb,ub,vb,wb,xb,yb):zb=(3-Y`)*rb+Y`*tb:_b=(3-Y`)*sb+Y`*ub:`b=(3-Y`)*vb+Y`*xb:Ac=(3-Y`)*wb+Y`*yb:�rb,sb:Bc=rb:Cc=sb:�I%=1�Z`%:t=I%/Z`%:Dc=1-t:Ec=Dc^3:Fc=Dc*Dc*t:Gc=Dc*t*t:Hc=t^3:x=Ec*rb+Fc*zb+Gc*`b+Hc*vb
Z(y=Ec*sb+Fc*_b+Gc*Ac+Hc*wb:�Ib%=��x,y
d�Ib%=��Ib(Bc,Cc,x,y,b`%)
nBc=x:Cc=y:�:�
x<��Ic:Y`%=1+Y`%�6:Y`$=�(64+Y`%):�Fa(3):Y`=0.84+Y`%*0.16:�
�&��F`(Jc%):b`%=b`%+Jc%:�b`%=6 b`%=0
��b`%=-1 b`%=5
�N$(3)=�(b`%+1):�Fa(3):�
���Ta:�(-3)�
�"z_%=1-z_%:�1,-8,200,3:����(-3)
��:�z_%=0��
�*POINTER 0
���Oa%,Pa%:Oa%=X%:Pa%=Y%:�4,0:�Oa%-1600,Pa%,Oa%+1600,Pa%:�Oa%,Pa%-1100,Oa%,Pa%+1100:�:ȗX%,Y%,B%:Ȗ:�Oa%-1600,Pa%,Oa%+1600,Pa%:�Oa%,Pa%-1100,Oa%,Pa%+1100:�X%-1600,Y%,X%+1600,Y%:�X%,Y%-1100,X%,Y%+1100:Oa%=X%:Pa%=Y%:�(-3)�
�"z_%=1-z_%:�1,-8,200,3:����(-3)
��:�K%=5�
��(-20)�
�T`=0.25:�7:����(-20)
��:�(-19)�
T`=0.5:�7:����(-19)
�:�(-18)�
T`=1:�7:����(-18)
"�:�(-50)�
,T`=2:�7:����(-50)
6�:�(-49)�
@T`=3:�7:����(-49)
J�
TQ�:�B%�Y%<Y_%�z_%=0��(-38):�X%-1600,Y%,X%+1600,Y%:�X%,Y%-1100,X%,Y%+1100:�B%��
^�26:*POINTER
h�24,0;V_%;W_%;X_%;:�
r��Ya:�z_%=0�
|*POINTER 0
���23,6,&FF,0,&FF,0,&FF,0,&FF,0:�Oa%-1600,Pa%:�21,Oa%+1600,Pa%:�23,6,&F0,&F0,&F0,&F0,&F0,&F0,&F0,&F0:�Oa%,Pa%-1100:�21,Oa%,Pa%+1100:�
���Za:�z_%=0�
��23,6,&FF,0,&FF,0,&FF,0,&FF,0:�X%-1600,Y%:�21,X%+1600,Y%:�23,6,&F0,&F0,&F0,&F0,&F0,&F0,&F0,&F0:�X%,Y%-1100:�21,X%,Y%+1100:�
�5��Sa(Kc%,Fc%,Lc%,Gc%,Mc):�A%,B%:�Kc%>Lc%ȔKc%,Lc%
��Fc%>Gc%ȔFc%,Gc%
��A%=Fc%�64+(Kc%�33)*4+(Kc%�14)*8+(Kc%�16)/2:B%=Gc%�64+(Lc%�33)*4+(Lc%�14)*8+(Lc%�16)/2:�23,2,A%,B%,A%,B%,A%,B%,A%,B%:�23,3,B%,A%,B%,A%,B%,A%,B%,A%:�23,4,A%,B%,A%,B%,A%,B%,A%,B%:�23,5,B%,A%,B%,A%,B%,A%,B%,A%:�80,128+Mc*128:�
�8��h_:�:ȗX%,Y%,B%:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
��B%=4��(-1)�p_:�
��B%=1��(-1)�q_:�
�l�t_:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:R1=4:R2=4:Oa%=X%:Pa%=Y%:�4,0:ȏNc%,Oc%,R1:�Ya:�:ȗX%,Y%,B%:�z_%=1�Ya:�Za
�3�B%=0 R2=�((X%-Nc%)^2+(Y%-Oc%)^2):Oa%=X%:Pa%=Y%
�5�B%=1 Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
�#Ȗ:Ȗ:�(-99)ȏNc%,Oc%,R1:�Ya:�
$ȏNc%,Oc%,R1:ȏQc%,Rc%,R2:�B%=5�
�Za:�q_%=��0,N_%ȜO_%��80,0
SȏQc%,Rc%,R2:�4,0:ȏQc%,Rc%,R2:�:ȗX%,Y%,B%:�B%<>5:ȗ�Oa%,Pa%:X%=Oa%:Y%=Pa%:�Ya
&�:�B%=3�
0�Za:�q_%=��0,N_%ȜO_%��80,0
:UȏȐQc%,Rc%,R2:�4,0:ȏQc%,Rc%,R2:�:ȗX%,Y%,B%:�B%<>3:ȗ�Oa%,Pa%:X%=Oa%:Y%=Pa%:�Ya
D�:�(B%=2�B%=4)��(-83)�
N�Za:�q_%=��0,N_%ȜO_%��80,0
X�B%=4ȏNc%,Oc%,R2
b�B%=2ȏȐNc%,Oc%,R2
l�4,0:ȏNc%,Oc%,R2:�Ya
vL�:R1=R2:Nc%=Qc%:Oc%=Rc%:�(B%=2�B%=4)���(-83):�Za:�q_%=��0,N_%ȜO_%��80,0
��B%=4ȏQc%,Rc%,R2
��B%=2ȏȐQc%,Rc%,R2
�	�t_:�
���i_:�:ȗX%,Y%,B%:�z_%=0�
��(-20)�
�T`=0.25:�7:����(-20)
��:�(-19)�
�T`=0.5:�7:����(-19)
��:�(-18)�
�T`=1:�7:����(-18)
��:�(-50)�
�T`=2:�7:����(-50)
��:�(-49)�

T`=3:�7:����(-49)

�

1�:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:ș6,21,0:�

 �B%=1���(-1)��G`(1):�t_:�

*�B%=2��G`(-1):�t_:�

4�B%=4��(-1)��p_:�

>�B%=1��(-1)��q_:�

H�B%=4���(-1)�

RSc%=2^(R%-1):�26:*POINTER

\Lc`%=T`*(90-6*R%):�24,0;V_%;W_%;X_%;:�N_%ȜO_%:�X%,Y%:�(-99)�R%>3�Tc��Uc

f�q_%=��80,0��N_%ȜO_%

p�:�

z&��Uc:d`%=�:�0,N_%ȜO_%:�q_%=��80,0

�cv`%=X%*c`%:w`%=Y%*c`%:x`%=0:X%()=X%:Y%()=Y%:ib%=X%:jb%=Y%:�:ȗX%,Y%,B%:�(-100)ȗ�ib%,Y%:X%=ib%

�符(-100)ib%=X%

��(-85)ȗ�X%,jb%:Y%=jb%

�符(-85)jb%=Y%

�,�z`(X%,Y%,c`%):�R%=1�X%,Y%�ȏȐX%,Y%,Sc%

��(-99)�R%>3 d`%=�

��B%=0�d`%=�:�R%>2�d`%=��Tc

��

�!��Tc:s`%=X%:t`%=Y%:*POINTER 0

�yu`%=T`*(50-5*R%):v`%=X%*u`%:w`%=Y%*u`%:x`%=0:X%()=X%:Y%()=Y%:�4,0:ȏs`%,t`%,Sc%:�:ȗX%,Y%,B%:�(-100)ȗ�ib%,Y%:X%=ib%

�符(-100)ib%=X%

��(-85)ȗ�X%,jb%:Y%=jb%

�符(-85)jb%=Y%
B�z`(X%,Y%,u`%):�I%=1�300:�:ȏs`%,t`%,Sc%:�q_%=��N_%ȜO_%��80,0
>ȏȐX%,Y%,Sc%:�4,0:ȏX%,Y%,Sc%:s`%=X%:t`%=Y%:符(-99)d`%=�
(�B%=0�d`%=�:ȏX%,Y%,Sc%:�26:*POINTER
$ �24,0;V_%;W_%;X_%;:�d`%=��Uc
.�
8���z`(�x%,�y%,c`%):Vc%=v`%:Wc%=w`%:v`%=v`%-X%(x`%)+x%:w`%=w`%-Y%(x`%)+y%:X%(x`%)=x%:Y%(x`%)=y%:x%=(Vc%+v`%)�(2*c`%):y%=(Wc%+w`%)�(2*c`%):x`%=(x`%+1)�c`%:�
B"��G`(Jc%):R%=R%+Jc%:�R%=7�R%=1
L�R%=0�R%=6
VN$(5)=�(R%):�Fa(5):�
`8��f_:�:ȗX%,Y%,B%:�Ta:�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
j�B%=4��(-1)�p_:�
t�B%=1��(-1)�q_:�
~��t_:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:Xc%=4:Yc%=4:Zc%=4:ac%=4:L%=0:bc%=0:Oa%=X%:Pa%=Y%:�4,0:�Ya:ȝNc%,Oc%,Xc%,Yc%:�:ȗX%,Y%,B%:�(-99)�
�7�Ya:�L%<>0ȝNc%,Oc%,Xc%,Yc%,�(L%)�ȝNc%,Oc%,Xc%,Yc%
��
��:�z_%=1�Ya:�Za
�3�B%=0 Zc%=�(X%-Nc%):ac%=�(Y%-Oc%):Oa%=X%:Pa%=Y%
�5�B%=1 Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
��Zc%<4�Zc%=4
��ac%<4�ac%=4
��(-67)�
� bc%=(L%-3)�360:�L%=0 bc%=357
��:�(-98)�
�!bc%=(L%+3)�360:�bc%=360 bc%=0
�;�:Ȗ:Ȗ:�L%<>0ȝNc%,Oc%,Xc%,Yc%,�(L%)�ȝNc%,Oc%,Xc%,Yc%
5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%


�B%=5�
�Za:�q_%=��0,N_%ȜO_%��80,0
5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
(N�:ȗX%,Y%,B%:�B%<>5:�4,0:�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
2 ȗ�Oa%,Pa%:X%=Oa%:Y%=Pa%:�Ya
<�:�B%=3�
F�Za:�q_%=��0,N_%ȜO_%��80,0
P9�bc%<>0ȝȐQc%,Rc%,Zc%,ac%,�(bc%)�ȝȐQc%,Rc%,Zc%,ac%
ZN�:ȗX%,Y%,B%:�B%<>3:�4,0:�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
d ȗ�Oa%,Pa%:X%=Oa%:Y%=Pa%:�Ya
n�:�(B%=2�B%=4)��(-83)�
x�Za:�q_%=��0,N_%ȜO_%��80,0
�
�B%=4�
�5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
��:�B%=2�
�9�bc%<>0ȝȐQc%,Rc%,Zc%,ac%,�(bc%)�ȝȐQc%,Rc%,Zc%,ac%
�<�:�4,0:�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
��Ya
�]�:Nc%=Qc%:Oc%=Rc%:Xc%=Zc%:Yc%=ac%:L%=bc%:�(B%=2�B%=4)���(-83):�Za:�q_%=��0,N_%ȜO_%��80,0
�
�B%=4�
�5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
��:�B%=2�
�9�bc%<>0ȝȐQc%,Rc%,Zc%,ac%,�(bc%)�ȝȐQc%,Rc%,Zc%,ac%
��:�t_:�
�%��m_:�:ȗX%,Y%,B%:�Ta:�(-38)��__
"�B%�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
�B%=4��(-1)�p_:�
�B%=1��(-1)�q_:�
"�B%=1���(-1)�
,N%=N%+1:�N%>9�N%=3
6N$(9)=�(N%):�Fa(9):�t_:�
@$�:�B%=2 F%=(F%+1)�3:�Fa(9):�t_:�
J�26:*POINTER
Tv�24,0;V_%;W_%;X_%;:�t_:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:Xc%=4:Yc%=4:Zc%=4:ac%=4:L%=0:bc%=0:�4,0:�N%>20ȝNc%,Oc%,Xc%,Yc%
^'�N%<21�ya(N%,Nc%,Oc%,Xc%,Yc%,L%,F%)
h�:ȗX%,Y%,B%:�B%=0�
rWZc%=2*�(X%-Nc%):ac%=2*�(Y%-Oc%):Oa%=X%:Pa%=Y%:�(-85)Zc%=ac%:ȗ�Nc%+ac%/2,Oc%+ac%/2
|)�(-34)ac%=Zc%:ȗ�Nc%+ac%/2,Oc%+ac%/2
�=�:�B%=1���(-1)Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
��Zc%<4�Zc%=4
��ac%<4�ac%=4
��(-67)�
� bc%=(L%-3)�360:�L%=0 bc%=357
��:�(-98)�
�!bc%=(L%+3)�360:�bc%=360 bc%=0
��:Ȗ:Ȗ:Ȗ:�4,0:�(-99)�
��N%>20�
�3�L%<>0ȝNc%,Oc%,Xc%,Yc%,�(L%)�ȝNc%,Oc%,Xc%,Yc%
�)�:�N%<21�ya(N%,Nc%,Oc%,Xc%,Yc%,L%,F%)
�	�t_:�
�
�:�N%>20�
3�L%<>0ȝNc%,Oc%,Xc%,Yc%,�(L%)�ȝNc%,Oc%,Xc%,Yc%
5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%

�:�N%<21�
&@�ya(N%,Nc%,Oc%,Xc%,Yc%,L%,F%):�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
0�:�B%=5�B%=3�
:�4,0:�N%>20�
D5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
N�:�q_%=��0,N_%ȜO_%��80,0
X
�B%=5�
b6�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%):�:ȗX%,Y%,B%:�B%<>5
l�:�B%=3�
v5�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,3):�:ȗX%,Y%,B%:�B%<>3
��:�4,0:�N%>20�
�5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
�+�:�N%<21��ya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
��:�(B%=2�B%=4)��(-83)�
��4,0:�N%>20�
�5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
��:�q_%=��0,N_%ȜO_%��80,0
�
�B%=4�
�6�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%):�:ȗX%,Y%,B%:�B%<>4
��:�B%=2�
�5�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,3):�:ȗX%,Y%,B%:�B%<>2
��:�4,0:�N%>20�
�5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
+�:�N%<21��ya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
I�:Nc%=Qc%:Oc%=Rc%:Xc%=Zc%:Yc%=ac%:L%=bc%:�(B%=2�B%=4)���(-83):�N%>20�
5�bc%<>0ȝQc%,Rc%,Zc%,ac%,�(bc%)�ȝQc%,Rc%,Zc%,ac%
 *�:�N%<21�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
*�q_%=��0,N_%ȜO_%��80,0
4'�B%=4�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,F%)
>&�B%=2�ya(N%,Qc%,Rc%,Zc%,ac%,bc%,3)
H	�t_:�
R,��cc:�dc:L%=0:C=1:S=0:I_%=0:�26:*POINTER
\��24,0;V_%;W_%;X_%;:�N_%ȜO_%:X%=Oa%:Y%=Pa%:W%=Xc%:H%=Yc%:Sb%=Oa%-W%:Tb%=Pa%+H%:Ub%=Oa%+W%:Vb%=Tb%:ec%=Ub%:fc%=Pa%-H%:gc%=Sb%:hc%=fc%:�
f���ic:jc%=�:kc%=�:lc%=�:�cc:ș46,272,B_,"SPRITE",0,gc%,hc%,Ub%,Vb%:�4,0:�mc(Sb%,Tb%,Ub%,Vb%,ec%,fc%,gc%,hc%):ȗ�Oa%,Pa%:�:ȗva%,wa%,B%:X%=va%:Y%=wa%:�(-99)�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�7:�
p�qc:�(-85)�
z4�1,-2,180,3:ș46,289,B_,"SPRITE":jc%=�:����(-85)
��:�(-100)�
�5�1,-2,210,3:ș46,303,B_,"SPRITE":kc%=�:����(-100)
��:�B%=4�jc%�kc%�
���mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):C_%!0=pa%<<8:C_%!4=qa%<<8:C_%!8=ra%<<8:C_%!12=sa%<<8:C_%!16=Wb%<<8:C_%!20=Xb%<<8:C_%!24=nc%<<8:C_%!28=oc%<<8:ș46,256+56,B_,"SPRITE",%01,,,C_%:jc%=�:kc%=�:�I_%=0��:ȗX%,Y%,B%:�B%<>4
�(�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%)
�5�:�B%=2:�7:�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�
����rc:lc%=�:�cc:�4,0:�mc(Sb%,Tb%,Ub%,Vb%,ec%,fc%,gc%,hc%):ȗ�Oa%,Pa%:�:ȗva%,wa%,B%:X%=va%:Y%=wa%:�(-99)�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):sc%=0:�
��qc:�B%=4�B%=5�
�@�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�q_%=��0,N_%ȜO_%��80,0
�m�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�4,0:�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�I_%=0�:ȗva%,wa%,B%:�B%<4
��:�B%=2�B%=3�
�@�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�q_%=��0,N_%ȜO_%��80,0
�m�tc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�4,0:�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�I_%=0�:ȗva%,wa%,B%:�B%<2
�:�sc%=0:�t_:�
*��qc:�(-51)L%=0:C=1:S=0:W%=Xc%:H%=Yc%

�(-101)�
$#I_%=1-I_%:�1,-6,72,3:����(-101)
.�:�(-104)�
8 W%=2*W%:�W%>64*Xc%�W%=64*Xc%
B H%=2*H%:�H%>64*Yc%�H%=64*Yc%
L����(-104)
V�:�(-103)�
`%W%=W%/2:�W%<Xc%/16 W%=�W%*Xc%/16
j%H%=H%/2:�H%<Yc%/16 H%=�H%*Yc%/16
t����(-103)
~(�:�(-49)L%=45:C=D_:S=C:�7:����(-49)
�%�(-50)L%=90:C=0:S=1:�7:����(-50)
�)�(-18)L%=135:C=-D_:S=-C:�7:����(-18)
�'�(-19)L%=180:C=-1:S=0:�7:����(-19)
�(�(-20)L%=225:C=-D_:S=C:�7:����(-20)
�'�(-53)L%=270:C=0:S=-1:�7:����(-53)
�(�(-37)L%=315:C=D_:S=-C:�7:����(-37)
�$�(-22)L%=0:C=1:S=0:�7:����(-22)
�$�(-40)L%=0:C=1:S=0:�7:����(-40)
��(-82)�
��W%<�H%�uc%=�W%�uc%=�H%
�H%=�H%*uc%:W%=�W%*uc%
��:�(-122)�
�(-8)W%=W%+F_%�W%=W%+E_%

�:�(-26)�
�(-8)W%=W%-F_%�W%=W%-E_%
�:�(-58)�
(�(-8)H%=H%+F_%�H%=H%+E_%
2�:�(-42)�
<�(-8)H%=H%-F_%�H%=H%-E_%
F�:�(-98)�
P)�(-5)L%=(L%+H_%)�360�L%=(L%+G_%)�360
ZC=��(L%):S=��(L%)
d�:�(-67)�
n)�(-5)L%=(L%-H_%)�360�L%=(L%-G_%)�360
xC=��(L%):S=��(L%)
���:vc=-C*W%-S*H%:wc=-S*W%+C*H%:xc=C*W%-S*H%:yc=S*W%+C*H%:pa%=X%+vc:qa%=Y%+wc:ra%=X%+xc:sa%=Y%+yc:Wb%=X%-vc:Xb%=Y%-wc:nc%=pa%+Wb%-ra%:oc%=qa%+Xb%-sa%:Ȗ:Ȗ:ș6,21,0:�mc(Sb%,Tb%,Ub%,Vb%,ec%,fc%,gc%,hc%)
�q�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):Sb%=pa%:Tb%=qa%:Ub%=ra%:Vb%=sa%:ec%=Wb%:fc%=Xb%:gc%=nc%:hc%=oc%:�(-55)�
�@�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�q_%=��0,N_%ȜO_%��80,0
�;lc%=�:�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�J_%=1 lc%=�
�>�4,0:�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�I_%=0�����(-55)
��:�(-68)�
�@�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�q_%=��0,N_%ȜO_%��80,0
�c�tc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�4,0:�mc(pa%,qa%,ra%,sa%,Wb%,Xb%,nc%,oc%):�I_%=0�����(-68)
��:�
�t��mc(tb%,xb%,ub%,yb%,zc%,_c%,`c%,Ad%):�tb%,xb%:�ub%,yb%:�zc%,_c%:�`c%,Ad%:�tb%,xb%:�lc%=�ȏtb%,xb%,8:ȏub%,yb%,8
��
�U��tc(tb%,xb%,ub%,yb%,zc%,_c%,`c%,Ad%):�tb%,xb%:�ub%,yb%:�85,`c%,Ad%:�85,zc%,_c%:�
�?��l_:�:ȗX%,Y%,B%:�Ta:�B%=1�B%=4�Y%<Y_%:�Y%<Y_%�c_%=�:�t_:�
�B%=4��(-1)�p_:�
�B%=1��(-1)�q_:�
x�t_:J_%=0:sc%=0:Nc%=X%:Oc%=Y%:Qc%=X%:Rc%=Y%:Bd%=4:Cd%=4:Dd%=4:Ed%=4:�4,0:ȓNc%,Oc%,Bd%,Cd%:�Ya:�:ȗX%,Y%,B%:�(-99)�
"ȓNc%,Oc%,Bd%,Cd%:�Ya:�t_:�
,�:�z_%=1�Ya:�Za:Ȗ:Ȗ
6(�(-106)J_%=1:�1,-5,112,4:����(-106)
@�(-52)sc%=1:�7:����(-52)
J�(-98)sc%=1
T�(-67)sc%=1
^�(-82)�
hDDd%=X%-Nc%:Ed%=Y%-Oc%:Oa%=X%:Pa%=Y%:�Ed%<�Dd%�uc%=�Ed%�uc%=�Dd%
r0Dd%=�Dd%*uc%:Ed%=�Ed%*uc%:ȗ�Nc%+Dd%,Oc%+Ed%
|/�:�B%=0 Dd%=X%-Nc%:Ed%=Y%-Oc%:Oa%=X%:Pa%=Y%
�5�B%=1 Qc%=Nc%+X%-Oa%:Rc%=Oc%+Y%-Pa%:Oa%=X%:Pa%=Y%
�
�B%=5�
��Za:�q_%=��0,N_%ȜO_%��80,0
�\ȓQc%,Rc%,Dd%,Ed%:�4,0:ȓQc%,Rc%,Dd%,Ed%:�ȗX%,Y%,B%:�B%<>5:ȗ�Oa%,Pa%:X%=Oa%:Y%=Pa%:�Ya
��:�B%=3�
��Za:�q_%=��0,N_%ȜO_%��80,0
�^ȓȐQc%,Rc%,Dd%,Ed%:�4,0:ȓQc%,Rc%,Dd%,Ed%:�ȗX%,Y%,B%:�B%<>3:ȗ�Oa%,Pa%:X%=Oa%:Y%=Pa%:�Ya
̅�:Ȗ:ȓNc%,Oc%,Bd%,Cd%:ȓQc%,Rc%,Dd%,Ed%:Nc%=Qc%:Oc%=Rc%:Cd%=Ed%:Bd%=Dd%:�B%=2�B%=4�J_%=1�sc%=1:�Za:�J_%=1ȓQc%,Rc%,Dd%,Ed%:�ic:�
�!�sc%=1ȓQc%,Rc%,Dd%,Ed%:�rc:�
��q_%=��0,N_%ȜO_%��80,0
��B%=4ȓQc%,Rc%,Dd%,Ed%:�t_
� �B%=2ȓȐQc%,Rc%,Dd%,Ed%:�t_
��
��dc:�Dd%<0�Qc%=Qc%+Dd%
�Ed%<0�Rc%=Rc%+Ed%
7Xc%=�(Dd%)/2:Yc%=�(Ed%/2):Oa%=Qc%+Xc%:Pa%=Rc%+Yc%:�
&���r_:ș46,256+16,B_,"SPRITE",0,0,X_%-L_%,W_%,X_%:�0Ȝ0:ȓȐ0,X_%-L_%,W_%,16:�63Ȝ128:ȓȐ0,X_%-L_%+16,W_%,L_%-16:�4:�191Ȝ128:�0Ȝ0:�
0��s_:ȎK%�
:
�0:�Fd
D
�1:�Gd
N
�2:�Hd
X
�3:�Id
b
�4:�Jd
l
�5:�Kd
v
�6:�Ld
�
�7:�Md
�
�8:�Nd
�
�9:�Od
��10:�Pd
��11:�Qd
�
�:�5:�
�.��u_:ș46,256+34,B_,"SPRITE",0,X_%-L_%,0:�
ƚ��Fd:�26,1)"HELP - Jagged Curve"':�" Click {S} to start. Moving the mouse will display a dotted line.":�" Click {S} again to continue to add points."
���" A continuous jagged curve will be displayed passing through succesive points"':�" Click {A} to finish with your last point  ( with an open path ),":�" OR click {M} to complete a closed path ( to your initial point )."'
�A�" Parameter: 1 = minor variation,  6 = violent variation.":�
���Gd:�26,1)"HELP - Parallelogram"':�" Click {S} to fix a start point. Moving the mouse displays a dotted line.":�" Clicking {S} again will fix this first side of the parallelogram."'
��" Click {S} again to finish with an outline parallelogram,":�" OR click {M} to get a colour filled parallelogram."':�" Hold {A} down and move the mouse to move the parallelogram bodily."
�U�" While holding {A} down click on {S} for outline,or {M} for a colour filled.":�
���Hd:�26,1)"HELP - Ellipse"':�" Click {S} to start. Move the mouse to display various sized ellipses.":�" Click {S} again for outline ellipse,OR click {M} for colour filled ellipse."'
��" Click / Hold <Z>,<X> to rotate the ellipse anticlockwise / clockwise.":�" Holding <C> down fixes the centre, enabling 'concentric' ellipses."':�" Holding {A} down will enable the ellipse to be moved bodily."
R�" Clicking on {S} / {M} as well will still give outline / filled ellipses.":�
 ���Id:�26,1)"HELP - Arc"':�" This enables smooth curves (open/closed) to be drawn through various points."':�" The R.H parameter adjusts the width of the curve:- 1=thinest,6=thickest."'
*��" Click {S} to start. Moving the mouse will display a dotted line.":�" Click {S} again to continue to add points - a smooth curve will be drawn."':�" Click {A} on the last point to finish with a smooth open curve,"
4��" OR click {M} to finish with a smooth closed path (to your initial point )."':�" Note: the first 'branch' is not finalised until the final {A} or {M}.":�
>���Jd:�26,1)"HELP - Circle"':�" Click {S} to start. Moving the mouse displays various sized circles.":�" Click {S} again for outline circle,OR click {M} for colour filled circle."'
H��" Holding <C> down enables concentric circles to be drawn."':�" Holding {A} down will enable the circle to be moved bodily.":�" Clicking on {S}/{M} as well will still give outline / filled circles.":�
R���Kd:�26,1)"HELP - Free Hand"':�" Press <1>,...,<5> to select the speed/smoothness of drawing. Default=3.":�" Click {S} to start and HOLD it down. Moving the mouse gives free-hand curve."'
\��" Holding the keys <H>/<V> will force horizontal/vertical lines."':�" ERASER: - choose the background colour as the current colour.":�" Holding {S}+<SPACE> displays a small outline circle ( for thickness >3 )"
f��" which makes it easier to see with accuracy the area to be deleted."':�" The parameter determines the width of the line : 1 = thinest, 6 = thickest.":�
p���Ld:�26,1)"HELP - Line"':�" Click {S} to start. Moving the mouse will display a dotted line.":�" Use {S} again to continue to add points - a continuous path will be drawn."'
z��" Hold the keys <H>,<V> to force horizontal / vertical lines."':�" Click {A} to finish with your last point - giving an open path,":�" OR click {M} to complete a closed path to your initial point."'
�U�" The parameter determines the width of the line : 1 = thinest,6 = thickest."':�
����Md:�26,1)"HELP - Fill"':�" Click {S} to fill an area with the current colour."':�" If the current colour is 'pure' then filling always works, irrespective of"
���" the colour already present in the chosen area. If the current colour is ":�" dithered then filling will only work if the colour in the area is 'pure'."
���" So to overwrite a dithered area you must first fill the area with a pure":�" colour and THEN refill with your chosen dithered colour."':�" <SPACE> 'undoes' the last fill (if NO colour changes made in the meantime).":�
����Nd:�26,1)"HELP - Rectangle/Copy"':�" ROTATION mode: Press <R> (or <Z>,<X>) to activate the following :-":�"    <Z>=rotate anticlockwise, <X>=clockwise, <0>...<8>=multiples of 45 degrees."
���"    <S>=Force into Square,<D>=original rectangle Dimensions,<B>=toggles Brush.":�"    > = double size , < = half size , Cursor keys = adjust width/height."'
���" RECTANGLE: Click {S} to start,{S} again for outline OR {M} for colour filled.":�"    Holding {A} down enables it to be moved bodily, and {S}/{M} still work."'
ʧ�" COPY:"'"     Press <Copy> to start, move area to desired place and click {S}.":�"     <H> = flip about horizontal (x-axis), <V> = flip about vertical (y-axis)."
�U�"     Use <Z>,<X> etc. as above.  Press <SPACE> (or {M}) to finish Copy mode.":�
����Od:�26,1)"HELP - Polygon"':�" L.H icon = 'styles' - Outline, Outline+spokes,or spokes. Use {M} to increment.":�" R.H parameter = no.of sides. {A} to increment OR <I> to input values (3-99)."'
��"  Click {S} to start,{S} again to finish,OR {M} to get colour filled polygon.":�"  Hold {A} down to move the polygon bodily.  {S}/{M} will still work."'
��"  Hold <C> = concentric polygons, <Z>/<X> = rotate anticlockwise/clockwise.":�"  Press <H>,<W> to force polygon into circle with the current height/width.":�
����Pd:�26,1)"HELP - AirSpray"':�" L.H.parameter = density of spray.Use {M} to increment. A=lowest,E=highest.":�" R.H.parameter = radius of spray. Use {A} to increment. 1=least,5=largest."'
��" Hold {S} down to spray with fine dots, but ONLY if the pointer is moving.":�" {S}+<SPACE> ( or {S}+{M}/{A} ) will spray even if pointer is NOT moving."':�" {S}+<D> gives a spray of coarser circular dots  ( D = 'Dots')."
D�" {S}+<F> gives a spray of angular shapes  ( F = 'Foliage').":�
���Qd:�26,1)"HELP - ColourBox"':�" Click {S} to pick up the colour ( under the pointer ) from the drawing area ":�" Clicking {A} will pick up a dithered partner from the drawing area."'
$��" At all stages the current colour (pure or dithered) is shown in the box."'':�" SPECIAL EFFECTS:-"':�" Hold {M} down to 'scratch' an area with hues of the colour under the pointer."
.Y�" Hold {M}+<SPACE> to paint with 'blobs' of hues of the colour under the pointer.":�
8���v_:�30,1)"HELP - General":�'" NOTATION: MOUSE: {S}=Select, {M}=Menu, {A}=Adjust. KEYBOARD: <X>=Press 'X' etc":�'" COLOUR BAR: {S} = Select a 'pure' colour, {A} = 'dithered' partner colour."
B��'" Hold down {M} for Help on current tool, OR hold down <H> for Help - General.":�'" <TAB> = Clear the Screen."�16"<T> = TEXT entry dialogue box.":�'" <1>,<2>,...,<6> selects mouse speed :-   <1> = slow,...,<6> = fast."
L��'" <S> = SAVE Screen as PIC1,PIC2 etc. / <L> = LOAD picture - filename required.":�" <S>+<SHIFT> = SAVE dialogue box.      <L>+<SHIFT> = LOAD dialogue box.":�'" <Shift>+<Q> = Quit to Desktop."
V��'" TOOL BAR:     Click {S} to select your required tool or the ColourBox.":�'" DRAWING AREA: <SPACE>=abort current action, <ALT>=toggle pointer/cross cursor."
`��'" <SHIFT>+{S} picks up a pure colour, <SHIFT>+{A} picks up a dithered partner.":�'�18"Click {S} to start using your chosen tool.":�5:�
j&��x_:L_%=800:�r_:�Rd:�Sd:L_%=512:�
t&��y_:L_%=800:�r_:�Rd:�Td:L_%=512:�
~��Rd:�:���5:�u_:��:�
���1,1)"Which Filing system ?   A) Disc  B) RAM   (Press A,B) :- ";:�:Z$=�:��"ABab",Z$)>0:�Z$="A"�Z$="a"��"Disc":�("ADFS"):�("MOUNT")
�+�Z$="B"�Z$="b"��"RAM":�("RAM"):�("DIR")
�7�1,1)�80:�1,1)"ROOT Directory Catalogue :-"':*CAT
�?�:�'" Change Directory ?  (Y/N)  :- ";:Z$=�:�Z$="Y"�Z$="y"�
�`�''" New Directory name :- "Ud$:�("Dir "+Ud$):�30:�I%=1�24:�80:�:�1,1)"Catalogue :-"':*CAT
��:�Z$<>"Y"�Z$<>"y":�
���Sd:�:���5:�u_:��:�
�{ș6,21,0:�7:�''" Please enter name of picture file to LOAD :- "B`$:�u_:�5:�B`$<>""�24,0;V_%;W_%;X_%;:�"SCREENLOAD "+B`$
��
���Td:�:���5:�u_:��:�
�{ș6,21,0:�7:�''" Please enter name of picture file to SAVE :- "B`$:�u_:�5:�B`$<>""�24,0;V_%;W_%;X_%;:�"SCREENSAVE "+B`$
��
N��w_:�1,-9,148,4:L_%=360:�:�r_:�Vd:�u_:�Wd:�Xd%=�:�5:L_%=512:�1,-9,148,4:�

���b_:�Yd$(12):Yd$(1)="Corpus.Bold":Yd$(2)="Corpus.Bold.Oblique":Yd$(3)="Corpus.Medium":Yd$(4)="Corpus.Medium.Oblique":Yd$(5)="Homerton.Bold":Yd$(6)="Homerton.Bold.Oblique"
�Yd$(7)="Homerton.Medium":Yd$(8)="Homerton.Medium.Oblique":Yd$(9)="Trinity.Bold":Yd$(10)="Trinity.Bold.Italic":Yd$(11)="Trinity.Medium":Yd$(12)="Trinity.Medium.Italic":�Zd%(10),Zd$(10):Zd%(0)=10:Zd%(1)=14:Zd%(2)=16
�Zd%(3)=20:Zd%(4)=24:Zd%(5)=32:Zd%(6)=40:Zd%(7)=48:Zd%(8)=56:Zd%(9)=72:Zd%(10)=96:�I%=0�10:Zd$(I%)=�(Zd%(I%)):�:Yd%=10:ad%=4:bd%=Zd%(ad%):cd%=4:dd%=Zd%(cd%):ed$="":fd%=0:�
()��Vd:Xd%=�:gd%=�:�4:ȗ�:�:�hd:�id%=��
2�jd:�kd
<�:�ld:�
F���hd:�30:�I%=1�4:�80:�:�1,1)"FONT : ";Yd$(Yd%);�13;"Width = ";Zd$(ad%);�13;"Height = ";Zd$(cd%):�1,3)"TEXT:  Any changes to current font, or width/height ?  (Y/N) ";:ș6,21,0:Z$=�:�Z$="Y"�Z$="y"�id%=��id%=�
P�
Z���jd:�30:�I%=1�9:�80:�:�1,1)"Which FONT ?":�I%=0�2:�J%=1�4:�28*I%,2+J%)�(4*I%+J%+64)+") "+Yd$(4*I%+J%):�:�:�'" Press  A,B,C,...  OR <RETURN>     { <RETURN> = Default/Current font }  :- ";:����(-74):ș6,21,0:�:Z$=�
di��"ABCDEFGHIJKLabcdefghijkl"+�13,Z$)>0:�30:�I%=1�9:�80:�:�30:�Z$<>13�md%=�Z$:md%=md%�&5F:Yd%=md%-64
n�
x���kd:�1,1)"FONT : ";Yd$(Yd%)':�I%=0�9:�" "+�(65+I%)+"="+Zd$(I%)+",";�1;:�:�" "+�(75)+"="+Zd$(10):�'" ( Press  A,B,C,...  OR <RETURN>    { <RETURN> = Default/Previous }  )":�''" Width ?  :- ";:����(-74):ș6,21,0:�:Z$=�
�P��"ABCDEFGHIJKabcdefghijk"+�13,Z$)>0:�Z$<>13�md%=�Z$:md%=md%�&5F:ad%=md%-65
���Zd$(ad%);:bd%=Zd%(ad%):�1,-6,86,4:�24"Height ?  :- ";:����(-74):ș6,21,0:�:Z$=�:��"ABCDEFGHIJKabcdefghijk"+�13,Z$)>0:�Z$<>13�md%=�Z$:md%=md%�&5F:cd%=md%-65
�)dd%=Zd%(cd%):�30:�I%=1�9:�80:�:�30:�
����ld:�30:�I%=1�7:�80:�:�1,2)"FONT : ";Yd$(Yd%);�13;"Width = ";Zd$(ad%);�13;"Height = ";Zd$(cd%):����(-74):nd$=ed$:od%=fd%:�''" Type in your text  ( <RETURN> = Previous text = """+ed$+""" ) :"''" >> ";:ed$="":fd%=0
��:ș6,21,0:Z$=�:�Z$<>�13�
�,�fd%>0�Z$=�127 fd%-=1:ed$=�ed$,fd%):�Z$;
�!�Z$<>�127 ed$+=Z$:fd%+=1:�Z$;
�8�:�Z$=�13:�30:�I%=1�6:�80:�:�ed$=""�ed$=nd$:fd%=od%
��ed$=""�Xd%=�:�30
��
���Wd:�Xd%=���
�``$=Yd$(Yd%):�:ȗ�:�pd:�Zd:X%=640-qd%/2:Y%=512:Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:�24,0;V_%;W_%;X_%;:�ud(Oa%,Pa%,rd%,sd%):ȗ�Oa%,Pa%:�:�(-36)gd%=�:����(-36)
��(-99)Xd%=�:����(-99)
�Y%<Z_%�
P�26:X%=20*(X%�20)+8:Y%=24*(Y%�24)+7:ȗ�129:ȗ�3:Ȓ�X%,Y%:�B%=4��p_:q_%=�:�pd

�B%=2�
"&L_%=512:�r_:�vd:�5:�t_:�u_:L_%=360
,�:�B%=1��q_
6�:ȗX%,Y%,B%:�Y%>Z_%�
@)�24,0;V_%;W_%;X_%;:ȗ�1:ȗ�K_%:�B%=1�
J'ad%+=1:cd%+=1:�ad%>10�ad%=10:cd%-=1
T�cd%>10�cd%=10:ad%-=1
^kbd%=Zd%(ad%):dd%=Zd%(cd%):�Zd:�ud(Oa%,Pa%,rd%,sd%):�ud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:�t_
h�:�B%=2�
r%ad%-=1:cd%-=1:�ad%<0�ad%=0:cd%+=1
|�cd%<0�cd%=0:ad%+=1
�kbd%=Zd%(ad%):dd%=Zd%(cd%):�Zd:�ud(Oa%,Pa%,rd%,sd%):�ud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:�t_
��:�B%=4�
�u�Zd:�ud(Oa%,Pa%,rd%,sd%):ș262278,,ed$,&10,X%,Y%:�ud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%:ș262274,f%:�t_
��:�X%<>Oa%�Y%<>Pa%�
�OȖ:Ȗ:�ud(Oa%,Pa%,rd%,sd%):�ud(X%,Y%,qd%,td%):Oa%=X%:Pa%=Y%:rd%=qd%:sd%=td%
��
�K�:�Xd%=��gd%=�:�24,0;V_%;W_%;X_%;:�ud(Oa%,Pa%,rd%,sd%):�gd%=��1,-6,84,4
��
�sݤwd(C%,T%):�R%,G%,B%:T%=T%>>>6:R%=((C%�3)<<2)+T%:G%=(C%�12)+T%:B%=((C%�48)>>>2)+T%:=(R%<<12)+(G%<<20)+(B%<<28)
�4��pd:xd%=�wd(N_%,O_%):ș262291,,0,1,14,xd%,xd%:�
�x��Zd:ș262273,,``$,bd%*16,dd%*16,0,0�f%:ș262277,,ed$,1E8,1E8,-1,1E8�,,qd%:td%=dd%*1000:ș262280,,qd%,td%�,qd%,td%:�
���ud(X%,Y%,qd%,td%):�4,0:�X%,Y%-1100,X%,Y%+1100:�X%-1600,Y%-4,X%+1600,Y%-4:�X%,Y%-td%/4:� BY qd%,0:� BY 0,td%:� BY -qd%,0:�
����vd:�36,1)"Help - TEXT":�'" To initiate text entry:- Press <T> when the pointer is on the Colour Bar.":�'" In the first dialogue box:-  <Y>=changes,  <other>=default/current values."
��" Enter your choices in the Font box, and then the Width/Height box.":�" Text Box:-  Enter your text at the prompt, followed by <RETURN>.":�" Pressing <T> again at any time brings back the first dialogue box."
��'" Drawing area:-  {S} = draw text at pointer, {A} = larger text, {M} = smaller.":�'" On the Colour Bar:-   {S} = Select colour of text, {M} = Help-Text window.":�'" Press <SPACE> to finish.":�
�
00000000  0d 00 0a 0b ee 85 f2 41  5f 3a e0 0d 00 14 74 eb  |.......A_:....t.|
00000010  31 35 3a 87 3a de 42 5f  26 33 30 30 30 30 3a de  |15:.:.B_&30000:.|
00000020  43 5f 25 20 33 32 3a 44  5f 3d 31 2f b6 32 3a 45  |C_% 32:D_=1/.2:E|
00000030  5f 25 3d 31 32 3a 46 5f  25 3d 34 3a 47 5f 25 3d  |_%=12:F_%=4:G_%=|
00000040  33 3a 48 5f 25 3d 31 3a  49 5f 25 3d 30 3a 4a 5f  |3:H_%=1:I_%=0:J_|
00000050  25 3d 30 3a 21 42 5f 3d  26 33 30 30 30 30 3a 42  |%=0:!B_=&30000:B|
00000060  5f 21 34 3d 30 3a 42 5f  21 38 3d 31 36 3a 42 5f  |_!4=0:B_!8=16:B_|
00000070  21 31 32 3d 31 36 3a 2a  50 4f 49 4e 54 45 52 0d  |!12=16:*POINTER.|
00000080  00 1e bb 4b 5f 25 3d 33  3a 4c 5f 25 3d 35 31 32  |...K_%=3:L_%=512|
00000090  3a ef 31 39 2c 30 2c 32  34 2c 39 36 2c 39 36 2c  |:.19,0,24,96,96,|
000000a0  39 36 3a 4d 5f 25 3d 31  3a 4e 5f 25 3d 30 3a 4f  |96:M_%=1:N_%=0:O|
000000b0  5f 25 3d 30 3a 50 5f 25  3d 4e 5f 25 3a 51 5f 25  |_%=0:P_%=N_%:Q_%|
000000c0  3d 4f 5f 25 3a 52 5f 25  3d 30 3a 53 5f 25 3d 30  |=O_%:R_%=0:S_%=0|
000000d0  3a 54 5f 25 3d 30 3a 55  5f 25 3d 30 3a e6 31 39  |:T_%=0:U_%=0:.19|
000000e0  31 c8 9c 31 39 32 3a 56  5f 25 3d 31 34 38 3a 57  |1..192:V_%=148:W|
000000f0  5f 25 3d 31 32 37 39 3a  58 5f 25 3d 31 30 32 33  |_%=1279:X_%=1023|
00000100  3a 59 5f 25 3d 31 34 34  3a 5a 5f 25 3d 39 36 3a  |:Y_%=144:Z_%=96:|
00000110  ef 32 34 2c 30 3b 56 5f  25 3b 57 5f 25 3b 58 5f  |.24,0;V_%;W_%;X_|
00000120  25 3b 3a ef 35 3a da 3a  ef 32 36 3a 2a 46 58 20  |%;:.5:.:.26:*FX |
00000130  31 36 33 2c 32 34 32 2c  31 36 0d 00 28 16 f2 61  |163,242,16..(..a|
00000140  5f 3a f2 62 5f 3a f5 3a  e7 59 25 3e 59 5f 25 8c  |_:.b_:.:.Y%>Y_%.|
00000150  0d 00 32 2e c8 97 ee 31  3a ef 32 34 2c 30 3b 56  |..2....1:.24,0;V|
00000160  5f 25 3b 57 5f 25 3b 58  5f 25 3b 3a c8 97 88 4b  |_%;W_%;X_%;:...K|
00000170  5f 25 3a 63 5f 25 3d a3  3a c8 8e 4b 25 ca 0d 00  |_%:c_%=.:..K%...|
00000180  3c 13 c9 30 3a f5 3a f2  64 5f 3a fd 63 5f 25 3d  |<..0:.:.d_:.c_%=|
00000190  b9 0d 00 46 13 c9 31 3a  f5 3a f2 65 5f 3a fd 63  |...F..1:.:.e_:.c|
000001a0  5f 25 3d b9 0d 00 50 13  c9 32 3a f5 3a f2 66 5f  |_%=...P..2:.:.f_|
000001b0  3a fd 63 5f 25 3d b9 0d  00 5a 13 c9 33 3a f5 3a  |:.c_%=...Z..3:.:|
000001c0  f2 67 5f 3a fd 63 5f 25  3d b9 0d 00 64 13 c9 34  |.g_:.c_%=...d..4|
000001d0  3a f5 3a f2 68 5f 3a fd  63 5f 25 3d b9 0d 00 6e  |:.:.h_:.c_%=...n|
000001e0  13 c9 35 3a f5 3a f2 69  5f 3a fd 63 5f 25 3d b9  |..5:.:.i_:.c_%=.|
000001f0  0d 00 78 13 c9 36 3a f5  3a f2 6a 5f 3a fd 63 5f  |..x..6:.:.j_:.c_|
00000200  25 3d b9 0d 00 82 13 c9  37 3a f5 3a f2 6b 5f 3a  |%=......7:.:.k_:|
00000210  fd 63 5f 25 3d b9 0d 00  8c 13 c9 38 3a f5 3a f2  |.c_%=......8:.:.|
00000220  6c 5f 3a fd 63 5f 25 3d  b9 0d 00 96 13 c9 39 3a  |l_:.c_%=......9:|
00000230  f5 3a f2 6d 5f 3a fd 63  5f 25 3d b9 0d 00 a0 14  |.:.m_:.c_%=.....|
00000240  c9 31 30 3a f5 3a f2 6e  5f 3a fd 63 5f 25 3d b9  |.10:.:.n_:.c_%=.|
00000250  0d 00 aa 14 c9 31 31 3a  f5 3a f2 6f 5f 3a fd 63  |.....11:.:.o_:.c|
00000260  5f 25 3d b9 0d 00 b4 0e  cb 3a c8 99 36 2c 32 31  |_%=......:..6,21|
00000270  2c 30 0d 00 be 19 cd 3a  c8 97 58 25 2c 59 25 2c  |,0.....:..X%,Y%,|
00000280  42 25 3a e7 59 25 3c 5a  5f 25 8c 0d 00 c8 4c ef  |B%:.Y%<Z_%....L.|
00000290  32 36 3a 58 25 3d 32 30  2a 28 58 25 81 32 30 29  |26:X%=20*(X%.20)|
000002a0  2b 38 3a 59 25 3d 32 34  2a 28 59 25 81 32 34 29  |+8:Y%=24*(Y%.24)|
000002b0  2b 37 3a c8 97 88 33 3a  c8 97 ee 31 32 39 3a c8  |+7:...3:...129:.|
000002c0  92 b8 58 25 2c 59 25 3a  e7 42 25 3d 34 8c f2 70  |..X%,Y%:.B%=4..p|
000002d0  5f 3a 71 5f 25 3d a3 0d  00 d2 19 e7 42 25 3d 32  |_:q_%=......B%=2|
000002e0  8c f2 72 5f 3a f2 73 5f  3a f2 74 5f 3a f2 75 5f  |..r_:.s_:.t_:.u_|
000002f0  0d 00 dc 0d e7 42 25 3d  31 8c f2 71 5f 0d 00 e6  |.....B%=1..q_...|
00000300  0c e7 a6 28 2d 38 35 29  8c 0d 00 f0 29 4c 5f 25  |...(-85)....)L_%|
00000310  3d 38 33 32 3a f2 72 5f  3a f2 76 5f 3a f5 fd ac  |=832:.r_:.v_:...|
00000320  a6 28 2d 38 35 29 3a f2  75 5f 3a 4c 5f 25 3d 35  |.(-85):.u_:L_%=5|
00000330  31 32 0d 00 fa 11 cd 3a  e7 a6 28 2d 33 36 29 8c  |12.....:..(-36).|
00000340  f2 77 5f 0d 01 04 15 e7  a6 28 2d 38 37 29 80 a6  |.w_......(-87)..|
00000350  28 2d 31 29 8c f2 78 5f  0d 01 0e 15 e7 a6 28 2d  |(-1)..x_......(-|
00000360  38 32 29 80 a6 28 2d 31  29 8c f2 79 5f 0d 01 18  |82)..(-1)..y_...|
00000370  1a e7 a6 28 2d 31 37 29  80 a6 28 2d 31 29 8c 2a  |...(-17)..(-1).*|
00000380  44 45 53 4b 54 4f 50 0d  01 22 0b e7 a6 28 2d 33  |DESKTOP.."...(-3|
00000390  29 8c 0d 01 2c 22 7a 5f  25 3d 31 2d 7a 5f 25 3a  |)...,"z_%=1-z_%:|
000003a0  d4 31 2c 2d 36 2c 32 30  30 2c 33 3a f5 fd ac a6  |.1,-6,200,3:....|
000003b0  28 2d 33 29 0d 01 36 16  cd 3a e7 4b 25 3d 39 80  |(-3)..6..:.K%=9.|
000003c0  a6 28 2d 33 38 29 8c f2  5f 5f 0d 01 40 41 5a 24  |.(-38)..__..@AZ$|
000003d0  3d bf 28 30 29 3a 60 5f  25 3d bb 5a 24 3a e7 60  |=.(0):`_%=.Z$:.`|
000003e0  5f 25 3e 30 80 60 5f 25  3c 37 8c 4b 5f 25 3d 60  |_%>0.`_%<7.K_%=`|
000003f0  5f 25 3a c8 97 88 4b 5f  25 3a d4 31 2c 2d 38 2c  |_%:...K_%:.1,-8,|
00000400  31 32 30 2b 38 2a 4b 5f  25 2c 33 0d 01 4a 0c e7  |120+8*K_%,3..J..|
00000410  a6 28 2d 39 37 29 8c 0d  01 54 11 f2 41 60 3a f5  |.(-97)...T..A`:.|
00000420  fd ac a6 28 2d 39 37 29  0d 01 5e 15 cd 3a e7 a6  |...(-97)..^..:..|
00000430  28 2d 38 32 29 80 ac a6  28 2d 31 29 8c 0d 01 68  |(-82)...(-1)...h|
00000440  66 ef 32 34 2c 30 3b 56  5f 25 3b 57 5f 25 3b 58  |f.24,0;V_%;W_%;X|
00000450  5f 25 3b 3a ef 37 3a c8  99 36 2c 32 31 2c 30 3a  |_%;:.7:..6,21,0:|
00000460  ff 22 44 49 52 20 22 2b  22 3c 41 52 54 24 44 49  |."DIR "+"<ART$DI|
00000470  52 3e 22 3a ff 22 53 43  52 45 45 4e 53 41 56 45  |R>":."SCREENSAVE|
00000480  20 22 2b 22 50 69 63 22  2b c3 28 4d 5f 25 29 3a  | "+"Pic"+.(M_%):|
00000490  4d 5f 25 3d 4d 5f 25 2b  31 3a f5 fd ac a6 28 2d  |M_%=M_%+1:....(-|
000004a0  38 32 29 0d 01 72 15 cd  3a e7 a6 28 2d 38 37 29  |82)..r..:..(-87)|
000004b0  80 ac a6 28 2d 31 29 8c  0d 01 7c a4 f5 fd ac a6  |...(-1)...|.....|
000004c0  28 2d 38 37 29 3a ef 32  34 2c 30 3b 56 5f 25 3b  |(-87):.24,0;V_%;|
000004d0  57 5f 25 3b 58 5f 25 3b  3a c8 99 36 2c 32 31 2c  |W_%;X_%;:..6,21,|
000004e0  30 3a fb 31 39 31 c8 9c  31 32 38 3a fb 30 c8 9c  |0:.191..128:.0..|
000004f0  30 3a ef 34 2c 37 3a e8  8a 31 36 2c 30 29 22 50  |0:.4,7:..16,0)"P|
00000500  6c 65 61 73 65 20 65 6e  74 65 72 20 6e 61 6d 65  |lease enter name|
00000510  20 6f 66 20 70 69 63 74  75 72 65 20 66 69 6c 65  | of picture file|
00000520  20 3a 2d 20 22 42 60 24  3a ef 35 3a e7 42 60 24  | :- "B`$:.5:.B`$|
00000530  3c 3e 22 22 ff 22 44 49  52 20 22 2b 22 3c 41 52  |<>""."DIR "+"<AR|
00000540  54 24 44 49 52 3e 22 3a  ff 22 53 43 52 45 45 4e  |T$DIR>":."SCREEN|
00000550  4c 4f 41 44 20 22 2b 42  60 24 8b da 0d 01 86 05  |LOAD "+B`$......|
00000560  cd 0d 01 90 15 cd 3a e7  59 25 3e 5a 5f 25 80 59  |......:.Y%>Z_%.Y|
00000570  25 3c 59 5f 25 8c 0d 01  9a 63 ef 32 36 3a 43 60  |%<Y_%....c.26:C`|
00000580  25 3d 58 25 81 31 31 30  3a 58 25 3d 31 30 36 2a  |%=X%.110:X%=106*|
00000590  43 60 25 2b 37 32 3a 59  25 3d 31 32 34 3a c8 97  |C`%+72:Y%=124:..|
000005a0  88 33 3a c8 97 ee 31 32  39 3a c8 92 b8 58 25 2c  |.3:...129:...X%,|
000005b0  59 25 3a e7 28 42 25 3d  34 80 43 60 25 3c 3e 4b  |Y%:.(B%=4.C`%<>K|
000005c0  25 29 8c f2 44 60 28 4b  25 2c 43 60 25 29 3a 4b  |%)..D`(K%,C`%):K|
000005d0  25 3d 43 60 25 3a f2 74  5f 0d 01 a4 14 e7 4b 25  |%=C`%:.t_.....K%|
000005e0  3d 39 80 a6 28 2d 33 38  29 8c f2 5f 5f 0d 01 ae  |=9..(-38)..__...|
000005f0  11 e7 42 25 3d 31 80 43  60 25 3d 4b 25 8c 0d 01  |..B%=1.C`%=K%...|
00000600  b8 09 c8 8e 4b 25 ca 0d  01 c2 0d c9 30 3a f2 45  |....K%......0:.E|
00000610  60 28 31 29 0d 01 cc 0d  c9 33 3a f2 46 60 28 31  |`(1).....3:.F`(1|
00000620  29 0d 01 d6 0d c9 35 3a  f2 47 60 28 31 29 0d 01  |).....5:.G`(1)..|
00000630  e0 0d c9 36 3a f2 48 60  28 31 29 0d 01 ea 0a c9  |...6:.H`(1).....|
00000640  39 3a f2 49 60 0d 01 f4  0b c9 31 30 3a f2 4a 60  |9:.I`.....10:.J`|
00000650  0d 01 fe 09 cb 3a f2 74  5f 0d 02 08 13 cd 3a e7  |.....:.t_.....:.|
00000660  42 25 3d 32 80 43 60 25  3d 4b 25 8c 0d 02 12 09  |B%=2.C`%=K%.....|
00000670  c8 8e 4b 25 ca 0d 02 1c  0e c9 30 3a f2 45 60 28  |..K%......0:.E`(|
00000680  2d 31 29 0d 02 26 0e c9  35 3a f2 47 60 28 2d 31  |-1)..&..5:.G`(-1|
00000690  29 0d 02 30 0e c9 36 3a  f2 48 60 28 2d 31 29 0d  |)..0..6:.H`(-1).|
000006a0  02 3a 0a c9 39 3a f2 4b  60 0d 02 44 0b c9 31 30  |.:..9:.K`..D..10|
000006b0  3a f2 4c 60 0d 02 4e 09  cb 3a f2 74 5f 0d 02 58  |:.L`..N..:.t_..X|
000006c0  0e cd 3a c8 99 36 2c 32  31 2c 30 0d 02 62 0a cd  |..:..6,21,0..b..|
000006d0  3a fd a3 3a e0 0d 02 6c  24 dd f2 41 5f 3a eb 31  |:..:...l$..A_:.1|
000006e0  32 3a c8 97 88 34 3a f6  3a f1 22 20 61 74 20 6c  |2:...4:.:." at l|
000006f0  69 6e 65 20 22 3b 9e 3a  e1 0d 02 76 16 dd f2 61  |ine ";.:...v...a|
00000700  5f 3a f2 4d 60 3a f2 4e  60 3a f2 4f 60 3a e1 0d  |_:.M`:.N`:.O`:..|
00000710  02 80 e2 dd f2 4d 60 3a  58 25 3d 36 34 30 3a 59  |.....M`:X%=640:Y|
00000720  25 3d 35 31 32 3a 42 25  3d 30 3a 4b 25 3d 35 3a  |%=512:B%=0:K%=5:|
00000730  50 60 25 3d a3 3a 53 25  3d 32 3a 51 60 25 3d 32  |P`%=.:S%=2:Q`%=2|
00000740  5e 28 53 25 2b 32 29 3a  52 60 25 3d 34 3a 53 60  |^(S%+2):R`%=4:S`|
00000750  25 3d 32 35 2a 52 60 25  3a 44 24 3d bd 28 36 34  |%=25*R`%:D$=.(64|
00000760  2b 52 60 25 29 3a 52 25  3d 33 3a 54 60 3d 31 3a  |+R`%):R%=3:T`=1:|
00000770  55 60 25 3d 33 3a 56 60  25 3d 31 36 3a 57 60 25  |U`%=3:V`%=16:W`%|
00000780  3d 36 34 3a 58 60 25 3d  30 3a 4e 25 3d 35 3a 46  |=64:X`%=0:N%=5:F|
00000790  25 3d 30 3a 59 60 3d 31  2e 34 38 3a 59 60 25 3d  |%=0:Y`=1.48:Y`%=|
000007a0  34 3a 5a 60 25 3d 32 30  3a 47 3d 30 2e 30 31 3a  |4:Z`%=20:G=0.01:|
000007b0  61 60 25 3d 38 3a 62 60  25 3d 30 3a 59 60 24 3d  |a`%=8:b`%=0:Y`$=|
000007c0  bd 28 36 34 2b 59 60 25  29 3a ef 32 33 2c 32 32  |.(64+Y`%):.23,22|
000007d0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
*
000007f0  35 0d 02 8a 25 63 60 25  3d 33 36 30 3a 7a 5f 25  |5...%c`%=360:z_%|
00000800  3d 30 3a 64 60 25 3d a3  3a 71 5f 25 3d a3 3a 65  |=0:d`%=.:q_%=.:e|
00000810  60 25 3d a3 3a e1 0d 02  94 c7 dd f2 4e 60 3a de  |`%=.:.......N`:.|
00000820  66 60 25 28 33 29 2c 67  60 25 28 33 29 3a de 58  |f`%(3),g`%(3):.X|
00000830  25 28 63 60 25 29 2c 59  25 28 63 60 25 29 3a de  |%(c`%),Y%(c`%):.|
00000840  54 24 28 31 30 29 2c 4e  24 28 31 30 29 2c 58 60  |T$(10),N$(10),X`|
00000850  25 28 31 30 29 2c 68 60  25 28 31 30 29 2c 50 24  |%(10),h`%(10),P$|
00000860  28 33 29 3a ef 32 33 2c  32 33 30 2c 33 2c 33 30  |(3):.23,230,3,30|
00000870  2c 31 31 32 2c 31 39 32  2c 31 39 32 2c 39 36 2c  |,112,192,192,96,|
00000880  34 38 2c 33 31 3a ef 32  33 2c 32 33 31 2c 31 39  |48,31:.23,231,19|
00000890  32 2c 31 32 30 2c 31 34  2c 33 2c 33 2c 31 34 2c  |2,120,14,3,3,14,|
000008a0  32 38 2c 32 34 38 3a 50  24 28 30 29 3d bd 32 33  |28,248:P$(0)=.23|
000008b0  30 2b bd 32 33 31 2b 22  20 22 3a ef 32 33 2c 32  |0+.231+" ":.23,2|
000008c0  33 34 2c 37 2c 36 31 2c  32 32 35 2c 31 39 31 2c  |34,7,61,225,191,|
000008d0  31 39 35 2c 31 30 32 2c  36 30 2c 33 31 0d 02 9e  |195,102,60,31...|
000008e0  96 ef 32 33 2c 32 33 35  2c 32 32 34 2c 31 38 38  |..23,235,224,188|
000008f0  2c 31 33 35 2c 32 35 33  2c 31 39 35 2c 31 30 32  |,135,253,195,102|
00000900  2c 36 30 2c 32 34 38 3a  50 24 28 31 29 3d bd 32  |,60,248:P$(1)=.2|
00000910  33 34 2b bd 32 33 35 2b  22 20 22 3a ef 32 33 2c  |34+.235+" ":.23,|
00000920  32 33 36 2c 31 2c 31 2c  32 32 35 2c 36 31 2c 37  |236,1,1,225,61,7|
00000930  2c 31 34 2c 32 38 2c 35  36 3a ef 32 33 2c 32 33  |,14,28,56:.23,23|
00000940  37 2c 31 32 38 2c 31 32  38 2c 31 33 35 2c 31 38  |7,128,128,135,18|
00000950  38 2c 32 32 34 2c 31 31  32 2c 35 36 2c 32 38 3a  |8,224,112,56,28:|
00000960  50 24 28 32 29 3d bd 32  33 36 2b bd 32 33 37 2b  |P$(2)=.236+.237+|
00000970  22 20 22 0d 02 a8 bc 54  24 28 29 3d 22 4a 61 67  |" "....T$()="Jag|
00000980  67 20 22 2c 22 2f 2f 67  72 61 6d 22 2c 22 45 6c  |g ","//gram","El|
00000990  6c 69 70 22 2c 22 41 72  63 20 22 2c 22 43 69 72  |lip","Arc ","Cir|
000009a0  63 6c 65 22 2c 22 46 72  65 65 20 22 2c 22 4c 69  |cle","Free ","Li|
000009b0  6e 65 20 22 2c 22 46 69  6c 6c 22 2c 22 52 65 63  |ne ","Fill","Rec|
000009c0  74 22 2c 50 24 28 30 29  2c 22 20 41 69 72 20 22  |t",P$(0)," Air "|
000009d0  3a 58 60 25 28 29 3d 31  31 36 2c 31 31 36 2c 31  |:X`%()=116,116,1|
000009e0  30 30 2c 31 30 30 2c 31  31 32 2c 31 31 36 2c 31  |00,100,112,116,1|
000009f0  31 36 2c 38 38 2c 38 34  2c 39 36 2c 31 32 38 3a  |16,88,84,96,128:|
00000a00  68 60 25 28 30 29 3d 30  3a e3 49 25 3d 31 b8 31  |h`%(0)=0:.I%=1.1|
00000a10  30 3a 68 60 25 28 49 25  29 3d 68 60 25 28 49 25  |0:h`%(I%)=h`%(I%|
00000a20  2d 31 29 2b 58 60 25 28  49 25 2d 31 29 3a ed 0d  |-1)+X`%(I%-1):..|
00000a30  02 b2 55 4e 24 28 30 29  3d c3 28 55 60 25 29 3a  |..UN$(0)=.(U`%):|
00000a40  4e 24 28 33 29 3d c3 28  62 60 25 2b 31 29 3a 4e  |N$(3)=.(b`%+1):N|
00000a50  24 28 35 29 3d c3 28 52  25 29 3a 4e 24 28 36 29  |$(5)=.(R%):N$(6)|
00000a60  3d c3 28 58 60 25 2b 31  29 3a 4e 24 28 39 29 3d  |=.(X`%+1):N$(9)=|
00000a70  c3 28 4e 25 29 3a 4e 24  28 31 30 29 3d c3 28 53  |.(N%):N$(10)=.(S|
00000a80  25 29 3a e1 0d 02 bc cf  dd f2 4f 60 3a e3 43 25  |%):.......O`:.C%|
00000a90  3d 30 b8 32 35 35 3a 69  60 25 3d 30 3a 6a 60 25  |=0.255:i`%=0:j`%|
00000aa0  3d 31 39 3a 6b 60 25 3d  32 30 3a e6 43 25 81 34  |=19:k`%=20:.C%.4|
00000ab0  c8 9c 28 43 25 83 34 29  2a 36 34 3a c8 93 c8 90  |..(C%.4)*64:....|
00000ac0  28 43 25 83 36 34 29 2a  6b 60 25 2c 28 43 25 81  |(C%.64)*k`%,(C%.|
00000ad0  36 34 29 2a 32 34 2c 31  35 2c 31 39 3a ed 3a f2  |64)*24,15,19:.:.|
00000ae0  6c 60 28 50 5f 25 2c 51  5f 25 29 3a f2 6d 60 28  |l`(P_%,Q_%):.m`(|
00000af0  54 5f 25 2c 55 5f 25 29  3a e6 36 30 c8 9c 30 3a  |T_%,U_%):.60..0:|
00000b00  c8 93 c8 90 30 2c 39 36  2c 31 32 38 30 2c 34 38  |....0,96,1280,48|
00000b10  3a f2 6e 60 28 4b 25 29  3a e6 36 33 c8 9c 31 39  |:.n`(K%):.63..19|
00000b20  32 3a c8 93 31 31 37 32  2c 31 30 30 2c 31 30 34  |2:..1172,100,104|
00000b30  2c 34 30 3a e6 4e 5f 25  c8 9c 4f 5f 25 3a c8 93  |,40:.N_%..O_%:..|
00000b40  c8 90 31 31 37 34 2c 31  30 34 2c 31 30 30 2c 33  |..1174,104,100,3|
00000b50  32 3a e1 0d 02 c6 3d dd  f2 6e 60 28 4b 25 29 3a  |2:....=..n`(K%):|
00000b60  6f 60 25 3d 30 3a ef 35  3a e3 49 25 3d 30 b8 31  |o`%=0:.5:.I%=0.1|
00000b70  30 3a 70 60 25 3d 31 36  3a 71 60 25 3d 34 37 3a  |0:p`%=16:q`%=47:|
00000b80  e7 49 25 3d 4b 25 8c c8  94 70 60 25 2c 71 60 25  |.I%=K%...p`%,q`%|
00000b90  0d 02 d0 27 f2 72 60 28  49 25 29 3a ed 3a 70 60  |...'.r`(I%):.:p`|
00000ba0  25 3d 31 36 3a 71 60 25  3d 34 37 3a e6 4e 5f 25  |%=16:q`%=47:.N_%|
00000bb0  c8 9c 4f 5f 25 3a e1 0d  02 da 6b dd f2 72 60 28  |..O_%:....k..r`(|
00000bc0  47 25 29 3a e6 70 60 25  c8 9c 31 39 32 3a c8 93  |G%):.p`%..192:..|
00000bd0  c8 90 34 2b 68 60 25 28  47 25 29 2c 31 30 30 2c  |..4+h`%(G%),100,|
00000be0  58 60 25 28 47 25 29 2d  38 2c 34 30 3a e6 71 60  |X`%(G%)-8,40:.q`|
00000bf0  25 c8 9c 31 39 32 3a ec  31 30 2b 68 60 25 28 47  |%..192:.10+h`%(G|
00000c00  25 29 2c 31 33 32 3a e7  47 25 3d 33 e6 71 60 25  |%),132:.G%=3.q`%|
00000c10  c8 9c 31 39 32 3a f1 54  24 28 33 29 2b 4e 24 28  |..192:.T$(3)+N$(|
00000c20  33 29 0d 02 e4 1d e7 47  25 3c 39 80 47 25 3c 3e  |3).....G%<9.G%<>|
00000c30  33 f1 54 24 28 47 25 29  2b 4e 24 28 47 25 29 0d  |3.T$(G%)+N$(G%).|
00000c40  02 ee 16 e7 47 25 3d 39  f1 50 24 28 46 25 29 2b  |....G%=9.P$(F%)+|
00000c50  4e 24 28 39 29 0d 02 f8  2f e7 47 25 3d 31 30 e6  |N$(9).../.G%=10.|
00000c60  31 39 c8 9c 39 36 3a f1  44 24 3b 3a e6 71 60 25  |19..96:.D$;:.q`%|
00000c70  c8 9c 31 39 32 3a f1 54  24 28 31 30 29 2b 4e 24  |..192:.T$(10)+N$|
00000c80  28 31 30 29 0d 03 02 05  e1 0d 03 0c 27 dd f2 44  |(10)........'..D|
00000c90  60 28 49 25 2c 4a 25 29  3a e7 49 25 3c 31 31 f2  |`(I%,J%):.I%<11.|
00000ca0  72 60 28 49 25 29 3a c8  94 70 60 25 2c 71 60 25  |r`(I%):..p`%,q`%|
00000cb0  0d 03 16 1b e7 4a 25 3c  31 31 f2 72 60 28 4a 25  |.....J%<11.r`(J%|
00000cc0  29 3a c8 94 70 60 25 2c  71 60 25 0d 03 20 0f e6  |):..p`%,q`%.. ..|
00000cd0  4e 5f 25 c8 9c 4f 5f 25  3a e1 0d 03 2a 2d dd f2  |N_%..O_%:...*-..|
00000ce0  41 60 3a ef 32 34 2c 30  3b 56 5f 25 3b 57 5f 25  |A`:.24,0;V_%;W_%|
00000cf0  3b 58 5f 25 3b 3a e6 31  39 31 c8 9c 31 39 32 3a  |;X_%;:.191..192:|
00000d00  da 3a ef 32 36 3a e1 0d  03 34 30 dd f2 6f 5f 3a  |.:.26:...40..o_:|
00000d10  f5 3a c8 97 58 25 2c 59  25 2c 42 25 3a fd 42 25  |.:..X%,Y%,B%:.B%|
00000d20  84 59 25 3c 59 5f 25 3a  e7 59 25 3c 59 5f 25 20  |.Y%<Y_%:.Y%<Y_% |
00000d30  63 5f 25 3d b9 3a e1 0d  03 3e 0e e7 42 25 3d 34  |c_%=.:...>..B%=4|
00000d40  f2 70 5f 3a e1 0d 03 48  0e e7 42 25 3d 31 f2 71  |.p_:...H..B%=1.q|
00000d50  5f 3a e1 0d 03 52 0a e7  42 25 3d 32 8c 0d 03 5c  |_:...R..B%=2...\|
00000d60  48 73 60 25 3d 58 25 3a  74 60 25 3d 59 25 3a 75  |Hs`%=X%:t`%=Y%:u|
00000d70  60 25 3d 33 30 3a 76 60  25 3d 58 25 2a 75 60 25  |`%=30:v`%=X%*u`%|
00000d80  3a 77 60 25 3d 59 25 2a  75 60 25 3a 78 60 25 3d  |:w`%=Y%*u`%:x`%=|
00000d90  30 3a 58 25 28 29 3d 58  25 3a 59 25 28 29 3d 59  |0:X%()=X%:Y%()=Y|
00000da0  25 3a f2 79 60 0d 03 66  07 cd 3a e1 0d 03 70 2b  |%:.y`..f..:...p+|
00000db0  dd f2 79 60 3a f5 3a c8  97 58 25 2c 59 25 2c 42  |..y`:.:..X%,Y%,B|
00000dc0  25 3a f2 7a 60 28 58 25  2c 59 25 2c 75 60 25 29  |%:.z`(X%,Y%,u`%)|
00000dd0  3a e7 42 25 3d 32 8c 0d  03 7a 3b 5f 60 25 3d 32  |:.B%=2...z;_`%=2|
00000de0  3a 60 60 25 3d b0 58 25  2c 59 25 29 3a 41 61 25  |:``%=.X%,Y%):Aa%|
00000df0  3d c8 9c 28 58 25 2c 59  25 29 3a e7 41 61 25 3c  |=..(X%,Y%):.Aa%<|
00000e00  36 34 20 42 61 25 3d 36  34 2a 28 b3 28 32 29 2d  |64 Ba%=64*(.(2)-|
00000e10  31 29 0d 03 84 23 e7 41  61 25 3e 36 33 80 41 61  |1)...#.Aa%>63.Aa|
00000e20  25 3c 31 32 38 20 42 61  25 3d 36 34 2a 28 b3 28  |%<128 Ba%=64*(.(|
00000e30  33 29 2d 31 29 0d 03 8e  20 e7 41 61 25 3e 31 32  |3)-1)... .Aa%>12|
00000e40  37 80 41 61 25 3c 31 39  32 20 42 61 25 3d 36 34  |7.Aa%<192 Ba%=64|
00000e50  2a b3 28 33 29 0d 03 98  1c e7 41 61 25 3e 31 39  |*.(3).....Aa%>19|
00000e60  31 20 42 61 25 3d 36 34  2a 28 b3 28 32 29 2b 31  |1 Ba%=64*(.(2)+1|
00000e70  29 0d 03 a2 19 e6 30 2c  60 60 25 c8 9c 42 61 25  |).....0,``%..Ba%|
00000e80  3a e7 ac a6 28 2d 39 39  29 8c 0d 03 ac 33 43 61  |:...(-99)....3Ca|
00000e90  25 3d 73 60 25 2d 58 25  3a 44 61 25 3d 74 60 25  |%=s`%-X%:Da%=t`%|
00000ea0  2d 59 25 3a ec 58 25 2c  59 25 3a f0 31 2c 5f 60  |-Y%:.X%,Y%:.1,_`|
00000eb0  25 2a 43 61 25 2c 5f 60  25 2a 44 61 25 0d 03 b6  |%*Ca%,_`%*Da%...|
00000ec0  0e cd 3a e7 a6 28 2d 39  39 29 8c 0d 03 c0 58 43  |..:..(-99)....XC|
00000ed0  61 25 3d 73 60 25 2d 58  25 3a 44 61 25 3d 74 60  |a%=s`%-X%:Da%=t`|
00000ee0  25 2d 59 25 3a 45 61 3d  30 2e 35 2a b6 28 43 61  |%-Y%:Ea=0.5*.(Ca|
00000ef0  25 5e 32 2b 44 61 25 5e  32 29 3a e7 58 25 3c 3e  |%^2+Da%^2):.X%<>|
00000f00  73 60 25 84 59 25 3c 3e  74 60 25 c8 8f c8 90 58  |s`%.Y%<>t`%....X|
00000f10  25 2c 59 25 2c 45 61 8b  c8 8f c8 90 58 25 2c 59  |%,Y%,Ea.....X%,Y|
00000f20  25 2c 36 0d 03 ca 05 cd  0d 03 d4 1b cd 3a 73 60  |%,6..........:s`|
00000f30  25 3d 58 25 3a 74 60 25  3d 59 25 3a fd 42 25 3d  |%=X%:t`%=Y%:.B%=|
00000f40  30 3a e1 0d 03 de 1c dd  f2 74 5f 3a f5 c8 97 58  |0:.......t_:...X|
00000f50  25 2c 59 25 2c 42 25 3a  fd 42 25 3d 30 3a e1 0d  |%,Y%,B%:.B%=0:..|
00000f60  03 e8 4f dd f2 46 61 28  47 25 29 3a c8 94 71 60  |..O..Fa(G%):..q`|
00000f70  25 2c 70 60 25 3a ef 32  36 2c 35 3a f2 72 60 28  |%,p`%:.26,5:.r`(|
00000f80  47 25 29 3a e6 30 2c 4e  5f 25 c8 9c 4f 5f 25 3a  |G%):.0,N_%..O_%:|
00000f90  ef 32 34 2c 30 3b 56 5f  25 3b 57 5f 25 3b 58 5f  |.24,0;V_%;W_%;X_|
00000fa0  25 3b 3a c8 94 71 60 25  2c 70 60 25 3a e1 0d 03  |%;:..q`%,p`%:...|
00000fb0  f2 9b dd f2 70 5f 3a 4e  5f 25 3d b0 58 25 2c 59  |....p_:N_%=.X%,Y|
00000fc0  25 29 3a 4f 5f 25 3d c8  9c 28 58 25 2c 59 25 29  |%):O_%=..(X%,Y%)|
00000fd0  3a ef 32 36 3a f2 6c 60  28 50 5f 25 2c 51 5f 25  |:.26:.l`(P_%,Q_%|
00000fe0  29 3a f2 6c 60 28 4e 5f  25 2c 4f 5f 25 29 3a 50  |):.l`(N_%,O_%):P|
00000ff0  5f 25 3d 4e 5f 25 3a 51  5f 25 3d 4f 5f 25 3a e6  |_%=N_%:Q_%=O_%:.|
00001000  4e 5f 25 c8 9c 4f 5f 25  3a c8 93 c8 90 31 31 37  |N_%..O_%:....117|
00001010  34 2c 31 30 34 2c 31 30  30 2c 33 32 3a ef 32 34  |4,104,100,32:.24|
00001020  2c 30 3b 56 5f 25 3b 57  5f 25 3b 58 5f 25 3b 3a  |,0;V_%;W_%;X_%;:|
00001030  e7 71 5f 25 3d b9 8c 71  5f 25 3d a3 3a f2 6d 60  |.q_%=..q_%=.:.m`|
00001040  28 54 5f 25 2c 55 5f 25  29 0d 03 fc 09 f2 74 5f  |(T_%,U_%).....t_|
00001050  3a e1 0d 04 06 2e dd f2  47 61 3a 52 5f 25 3d b0  |:.......Ga:R_%=.|
00001060  58 25 2c 59 25 29 3a 53  5f 25 3d c8 9c 28 58 25  |X%,Y%):S_%=..(X%|
00001070  2c 59 25 29 3a ef 32 36  3a e7 71 5f 25 3d b9 8c  |,Y%):.26:.q_%=..|
00001080  0d 04 10 2d f2 6d 60 28  54 5f 25 2c 55 5f 25 29  |...-.m`(T_%,U_%)|
00001090  3a f2 6d 60 28 52 5f 25  2c 53 5f 25 29 3a 54 5f  |:.m`(R_%,S_%):T_|
000010a0  25 3d 52 5f 25 3a 55 5f  25 3d 53 5f 25 0d 04 1a  |%=R_%:U_%=S_%...|
000010b0  1f cd 3a e7 71 5f 25 3d  a3 8c 71 5f 25 3d b9 3a  |..:.q_%=..q_%=.:|
000010c0  f2 6d 60 28 54 5f 25 2c  55 5f 25 29 0d 04 24 4d  |.m`(T_%,U_%)..$M|
000010d0  e6 38 30 2c 30 3a c8 93  c8 90 31 31 37 34 2c 31  |.80,0:....1174,1|
000010e0  30 34 2c 31 30 30 2c 33  32 3a e7 28 4e 5f 25 3c  |04,100,32:.(N_%<|
000010f0  3e 52 5f 25 84 4f 5f 25  3c 3e 53 5f 25 29 ef 35  |>R_%.O_%<>S_%).5|
00001100  3a ec 31 31 37 36 2c 31  33 32 3a e6 34 2c 30 3a  |:.1176,132:.4,0:|
00001110  f1 22 2d 2d 2d 2d 2d 2d  22 0d 04 2e 26 e7 4e 5f  |."------"...&.N_|
00001120  25 3d 52 5f 25 80 4f 5f  25 3d 53 5f 25 8c e6 30  |%=R_%.O_%=S_%..0|
00001130  2c 4e 5f 25 c8 9c 4f 5f  25 3a 71 5f 25 3d a3 0d  |,N_%..O_%:q_%=..|
00001140  04 38 09 f2 74 5f 3a e1  0d 04 42 67 dd f2 6c 60  |.8..t_:...Bg..l`|
00001150  28 43 25 2c 54 25 29 3a  69 60 25 3d 31 36 3a 6a  |(C%,T%):i`%=16:j|
00001160  60 25 3d 31 39 3a 48 61  25 3d 43 25 2a 34 2b 54  |`%=19:Ha%=C%*4+T|
00001170  25 81 36 34 3a e6 34 2c  30 3a 49 61 25 3d 28 48  |%.64:.4,0:Ia%=(H|
00001180  61 25 83 36 34 29 2a 32  30 3a 4a 61 25 3d 28 48  |a%.64)*20:Ja%=(H|
00001190  61 25 81 36 34 29 2a 32  34 3a c8 93 49 61 25 2d  |a%.64)*24:..Ia%-|
000011a0  32 2c 4a 61 25 2d 34 2c  31 39 2c 32 37 3a e1 0d  |2,Ja%-4,19,27:..|
000011b0  04 4c 6d dd f2 6d 60 28  4b 61 25 2c 4c 61 25 29  |.Lm..m`(Ka%,La%)|
000011c0  3a e6 34 2c 30 3a 69 60  25 3d 31 36 3a 6a 60 25  |:.4,0:i`%=16:j`%|
000011d0  3d 31 39 3a 48 61 25 3d  4b 61 25 2a 34 2b 4c 61  |=19:Ha%=Ka%*4+La|
000011e0  25 81 36 34 3a 49 61 25  3d 28 48 61 25 83 36 34  |%.64:Ia%=(Ha%.64|
000011f0  29 2a 32 30 3a 4a 61 25  3d 28 48 61 25 81 36 34  |)*20:Ja%=(Ha%.64|
00001200  29 2a 32 34 3a c8 93 c8  90 49 61 25 2d 33 2c 4a  |)*24:....Ia%-3,J|
00001210  61 25 2b 31 35 2c 32 31  2c 35 3a e1 0d 04 56 24  |a%+15,21,5:...V$|
00001220  dd f2 6b 5f 3a f5 3a c8  97 58 25 2c 59 25 2c 42  |..k_:.:..X%,Y%,B|
00001230  25 3a e7 a6 28 2d 39 39  29 80 50 60 25 3d b9 8c  |%:..(-99).P`%=..|
00001240  0d 04 60 11 e7 65 60 25  3d a3 80 71 5f 25 3d a3  |..`..e`%=..q_%=.|
00001250  8c 0d 04 6a 39 e6 31 32  38 2b 4e 5f 25 c8 9c 4f  |...j9.128+N_%..O|
00001260  5f 25 3a e6 30 2c 4d 61  25 c8 9c 4e 61 25 3a c8  |_%:.0,Ma%..Na%:.|
00001270  90 4f 61 25 2c 50 61 25  3a e6 30 2c 4e 5f 25 c8  |.Oa%,Pa%:.0,N_%.|
00001280  9c 4f 5f 25 3a 50 60 25  3d a3 0d 04 74 13 cd 3a  |.O_%:P`%=...t..:|
00001290  e7 65 60 25 3d b9 80 71  5f 25 3d a3 8c 0d 04 7e  |.e`%=..q_%=....~|
000012a0  33 e6 31 32 38 2b 4e 5f  25 c8 9c 4f 5f 25 3a e6  |3.128+N_%..O_%:.|
000012b0  38 30 2c 30 3a c8 90 4f  61 25 2c 50 61 25 3a 50  |80,0:..Oa%,Pa%:P|
000012c0  60 25 3d a3 3a e6 30 2c  4e 5f 25 c8 9c 4f 5f 25  |`%=.:.0,N_%..O_%|
000012d0  0d 04 88 13 cd 3a e7 65  60 25 3d a3 80 71 5f 25  |.....:.e`%=..q_%|
000012e0  3d b9 8c 0d 04 92 2d e6  38 30 2c 31 32 38 3a e6  |=.....-.80,128:.|
000012f0  30 2c 4d 61 25 c8 9c 4e  61 25 3a c8 90 4f 61 25  |0,Ma%..Na%:..Oa%|
00001300  2c 50 61 25 3a 50 60 25  3d a3 3a e6 38 30 2c 30  |,Pa%:P`%=.:.80,0|
00001310  0d 04 9c 05 cd 0d 04 a6  26 cd 3a fd 42 25 3e 30  |........&.:.B%>0|
00001320  84 59 25 3c 59 5f 25 3a  e7 59 25 3c 59 5f 25 8c  |.Y%<Y_%:.Y%<Y_%.|
00001330  63 5f 25 3d b9 3a f2 74  5f 3a e1 0d 04 b0 1b e7  |c_%=.:.t_:......|
00001340  42 25 3d 34 80 a6 28 2d  31 29 8c f2 70 5f 3a 71  |B%=4..(-1)..p_:q|
00001350  5f 25 3d a3 3a e1 0d 04  ba 15 e7 42 25 3d 31 80  |_%=.:......B%=1.|
00001360  a6 28 2d 31 29 8c f2 71  5f 3a e1 0d 04 c4 11 e7  |.(-1)..q_:......|
00001370  42 25 3d 34 80 ac a6 28  2d 31 29 8c 0d 04 ce 65  |B%=4...(-1)....e|
00001380  50 60 25 3d a3 3a 4f 61  25 3d 58 25 3a 50 61 25  |P`%=.:Oa%=X%:Pa%|
00001390  3d 59 25 3a 4d 61 25 3d  b0 58 25 2c 59 25 29 3a  |=Y%:Ma%=.X%,Y%):|
000013a0  4e 61 25 3d c8 9c 28 58  25 2c 59 25 29 3a 51 61  |Na%=..(X%,Y%):Qa|
000013b0  25 3d b0 58 25 2b 32 2c  59 25 29 3a 52 61 25 3d  |%=.X%+2,Y%):Ra%=|
000013c0  c8 9c 28 58 25 2b 32 2c  59 25 29 3a e7 28 51 61  |..(X%+2,Y%):.(Qa|
000013d0  25 3c 3e 4d 61 25 84 52  61 25 3c 3e 4e 61 25 29  |%<>Ma%.Ra%<>Na%)|
000013e0  8c 0d 04 d8 20 65 60 25  3d b9 3a f2 53 61 28 4d  |.... e`%=.:.Sa(M|
000013f0  61 25 2c 4e 61 25 2c 51  61 25 2c 52 61 25 2c a3  |a%,Na%,Qa%,Ra%,.|
00001400  29 0d 04 e2 18 cc e6 31  32 38 2b 4d 61 25 c8 9c  |)......128+Ma%..|
00001410  4e 61 25 3a 65 60 25 3d  a3 0d 04 ec 0d cd 3a e7  |Na%:e`%=......:.|
00001420  71 5f 25 3d a3 8c 0d 04  f6 2b e7 28 4d 61 25 3c  |q_%=.....+.(Ma%<|
00001430  3e 4e 5f 25 84 4e 61 25  3c 3e 4f 5f 25 84 51 61  |>N_%.Na%<>O_%.Qa|
00001440  25 3c 3e 4e 5f 25 84 52  61 25 3c 3e 4f 5f 25 29  |%<>N_%.Ra%<>O_%)|
00001450  8c 0d 05 00 1d e6 30 2c  4e 5f 25 c8 9c 4f 5f 25  |......0,N_%..O_%|
00001460  3a c8 90 58 25 2c 59 25  3a 50 60 25 3d b9 0d 05  |:..X%,Y%:P`%=...|
00001470  0a 05 cd 0d 05 14 15 cd  3a e7 28 71 5f 25 3d b9  |........:.(q_%=.|
00001480  80 65 60 25 3d a3 29 8c  0d 05 1e 28 f2 53 61 28  |.e`%=.)....(.Sa(|
00001490  4e 5f 25 2c 4f 5f 25 2c  52 5f 25 2c 53 5f 25 2c  |N_%,O_%,R_%,S_%,|
000014a0  b9 29 3a c8 90 58 25 2c  59 25 3a 50 60 25 3d b9  |.):..X%,Y%:P`%=.|
000014b0  0d 05 28 15 cd 3a e7 28  71 5f 25 3d b9 80 65 60  |..(..:.(q_%=..e`|
000014c0  25 3d b9 29 8c 0d 05 32  20 f2 53 61 28 4e 5f 25  |%=.)...2 .Sa(N_%|
000014d0  2c 4f 5f 25 2c 52 5f 25  2c 53 5f 25 2c b9 29 3a  |,O_%,R_%,S_%,.):|
000014e0  50 60 25 3d a3 0d 05 3c  05 cd 0d 05 46 0b cd 3a  |P`%=...<....F..:|
000014f0  f2 74 5f 3a e1 0d 05 50  45 dd f2 71 5f 3a 52 5f  |.t_:...PE..q_:R_|
00001500  25 3d b0 58 25 2c 59 25  29 3a 53 5f 25 3d c8 9c  |%=.X%,Y%):S_%=..|
00001510  28 58 25 2c 59 25 29 3a  71 5f 25 3d b9 3a f2 53  |(X%,Y%):q_%=.:.S|
00001520  61 28 4e 5f 25 2c 4f 5f  25 2c 52 5f 25 2c 53 5f  |a(N_%,O_%,R_%,S_|
00001530  25 2c b9 29 3a f2 47 61  3a e1 0d 05 5a 38 dd f2  |%,.):.Ga:...Z8..|
00001540  65 5f 3a f5 3a c8 97 58  25 2c 59 25 2c 42 25 3a  |e_:.:..X%,Y%,B%:|
00001550  f2 54 61 3a fd 42 25 84  59 25 3c 59 5f 25 3a e7  |.Ta:.B%.Y%<Y_%:.|
00001560  59 25 3c 59 5f 25 8c 63  5f 25 3d b9 3a f2 74 5f  |Y%<Y_%.c_%=.:.t_|
00001570  3a e1 0d 05 64 14 e7 42  25 3d 34 80 a6 28 2d 31  |:...d..B%=4..(-1|
00001580  29 f2 70 5f 3a e1 0d 05  6e 14 e7 42 25 3d 31 80  |).p_:...n..B%=1.|
00001590  a6 28 2d 31 29 f2 71 5f  3a e1 0d 05 78 99 f2 74  |.(-1).q_:...x..t|
000015a0  5f 3a 4f 61 25 3d 58 25  3a 50 61 25 3d 59 25 3a  |_:Oa%=X%:Pa%=Y%:|
000015b0  66 60 25 28 31 29 3d 58  25 3a 67 60 25 28 31 29  |f`%(1)=X%:g`%(1)|
000015c0  3d 59 25 3a 55 61 25 3d  66 60 25 28 31 29 3a 56  |=Y%:Ua%=f`%(1):V|
000015d0  61 25 3d 67 60 25 28 31  29 3a 57 61 25 3d 66 60  |a%=g`%(1):Wa%=f`|
000015e0  25 28 31 29 3a 58 61 25  3d 67 60 25 28 31 29 3a  |%(1):Xa%=g`%(1):|
000015f0  e6 34 2c 30 3a 86 55 61  25 2c 56 61 25 2c 57 61  |.4,0:.Ua%,Va%,Wa|
00001600  25 2c 58 61 25 3a f2 59  61 3a f5 c8 97 58 25 2c  |%,Xa%:.Ya:...X%,|
00001610  59 25 2c 42 25 3a e7 a6  28 2d 39 39 29 86 55 61  |Y%,B%:..(-99).Ua|
00001620  25 2c 56 61 25 2c 57 61  25 2c 58 61 25 3a f2 59  |%,Va%,Wa%,Xa%:.Y|
00001630  61 3a e1 0d 05 82 17 c8  96 3a c8 96 3a e7 7a 5f  |a:.......:..:.z_|
00001640  25 3d 31 f2 59 61 3a f2  5a 61 0d 05 8c d0 86 55  |%=1.Ya:.Za.....U|
00001650  61 25 2c 56 61 25 2c 57  61 25 2c 58 61 25 3a 86  |a%,Va%,Wa%,Xa%:.|
00001660  55 61 25 2c 56 61 25 2c  58 25 2c 59 25 3a 57 61  |Ua%,Va%,X%,Y%:Wa|
00001670  25 3d 58 25 3a 58 61 25  3d 59 25 3a 4f 61 25 3d  |%=X%:Xa%=Y%:Oa%=|
00001680  58 25 3a 50 61 25 3d 59  25 3a fd 42 25 3d 31 84  |X%:Pa%=Y%:.B%=1.|
00001690  42 25 3d 34 3a 66 60 25  28 32 29 3d 58 25 3a 67  |B%=4:f`%(2)=X%:g|
000016a0  60 25 28 32 29 3d 59 25  3a f2 74 5f 3a 55 61 25  |`%(2)=Y%:.t_:Ua%|
000016b0  3d 66 60 25 28 32 29 3a  56 61 25 3d 67 60 25 28  |=f`%(2):Va%=g`%(|
000016c0  32 29 3a 57 61 25 3d 66  60 25 28 32 29 3a 58 61  |2):Wa%=f`%(2):Xa|
000016d0  25 3d 67 60 25 28 32 29  3a f2 61 61 28 57 61 25  |%=g`%(2):.aa(Wa%|
000016e0  2c 58 61 25 29 3a df 66  60 25 28 32 29 2c 67 60  |,Xa%):.f`%(2),g`|
000016f0  25 28 32 29 3a f5 c8 97  58 25 2c 59 25 2c 42 25  |%(2):...X%,Y%,B%|
00001700  3a e7 a6 28 2d 39 39 29  f2 61 61 28 57 61 25 2c  |:..(-99).aa(Wa%,|
00001710  58 61 25 29 3a f2 59 61  3a e1 0d 05 96 11 e7 7a  |Xa%):.Ya:......z|
00001720  5f 25 3d 31 f2 59 61 3a  f2 5a 61 0d 05 a0 0a e7  |_%=1.Ya:.Za.....|
00001730  42 25 3c 32 8c 0d 05 aa  1f c8 96 3a c8 96 3a f2  |B%<2.......:..:.|
00001740  61 61 28 57 61 25 2c 58  61 25 29 3a e7 42 25 3d  |aa(Wa%,Xa%):.B%=|
00001750  31 f2 62 61 0d 05 b4 2a  f2 61 61 28 58 25 2c 59  |1.ba...*.aa(X%,Y|
00001760  25 29 3a 57 61 25 3d 58  25 3a 58 61 25 3d 59 25  |%):Wa%=X%:Xa%=Y%|
00001770  3a 4f 61 25 3d 58 25 3a  50 61 25 3d 59 25 0d 05  |:Oa%=X%:Pa%=Y%..|
00001780  be 11 cd 3a e7 42 25 3d  35 84 42 25 3d 33 8c 0d  |...:.B%=5.B%=3..|
00001790  05 c8 2c f2 5a 61 3a f2  61 61 28 57 61 25 2c 58  |..,.Za:.aa(Wa%,X|
000017a0  61 25 29 3a e7 71 5f 25  3d a3 e6 30 2c 4e 5f 25  |a%):.q_%=..0,N_%|
000017b0  c8 9c 4f 5f 25 8b e6 38  30 2c 30 0d 05 d2 15 e7  |..O_%..80,0.....|
000017c0  42 25 3d 35 f2 61 61 28  57 61 25 2c 58 61 25 29  |B%=5.aa(Wa%,Xa%)|
000017d0  0d 05 dc 33 e7 42 25 3d  33 ec 66 60 25 28 31 29  |...3.B%=3.f`%(1)|
000017e0  2c 67 60 25 28 31 29 3a  ec 66 60 25 28 32 29 2c  |,g`%(1):.f`%(2),|
000017f0  67 60 25 28 32 29 3a f0  26 37 35 2c 57 61 25 2c  |g`%(2):.&75,Wa%,|
00001800  58 61 25 0d 05 e6 54 f2  62 61 3a e6 34 2c 30 3a  |Xa%...T.ba:.4,0:|
00001810  f2 61 61 28 58 25 2c 59  25 29 3a 57 61 25 3d 58  |.aa(X%,Y%):Wa%=X|
00001820  25 3a 58 61 25 3d 59 25  3a f5 c8 97 58 25 2c 59  |%:Xa%=Y%:...X%,Y|
00001830  25 2c 42 25 3a fd 42 25  3c 32 3a c8 97 b8 4f 61  |%,B%:.B%<2:...Oa|
00001840  25 2c 50 61 25 3a 58 25  3d 4f 61 25 3a 59 25 3d  |%,Pa%:X%=Oa%:Y%=|
00001850  50 61 25 3a f2 59 61 0d  05 f0 39 cd 3a fd 42 25  |Pa%:.Ya...9.:.B%|
00001860  3d 32 84 42 25 3d 34 3a  f2 5a 61 3a f2 61 61 28  |=2.B%=4:.Za:.aa(|
00001870  57 61 25 2c 58 61 25 29  3a e7 71 5f 25 3d a3 e6  |Wa%,Xa%):.q_%=..|
00001880  30 2c 4e 5f 25 c8 9c 4f  5f 25 8b e6 38 30 2c 30  |0,N_%..O_%..80,0|
00001890  0d 05 fa 3c f2 61 61 28  58 25 2c 59 25 29 3a e7  |...<.aa(X%,Y%):.|
000018a0  42 25 3d 32 ec 66 60 25  28 31 29 2c 67 60 25 28  |B%=2.f`%(1),g`%(|
000018b0  31 29 3a ec 66 60 25 28  32 29 2c 67 60 25 28 32  |1):.f`%(2),g`%(2|
000018c0  29 3a f0 26 37 35 2c 58  25 2c 59 25 0d 06 04 09  |):.&75,X%,Y%....|
000018d0  f2 74 5f 3a e1 0d 06 0e  68 dd f2 62 61 3a 63 61  |.t_:....h..ba:ca|
000018e0  25 3d 58 25 2d 57 61 25  3a 64 61 25 3d 59 25 2d  |%=X%-Wa%:da%=Y%-|
000018f0  58 61 25 3a 66 60 25 28  31 29 3d 66 60 25 28 31  |Xa%:f`%(1)=f`%(1|
00001900  29 2b 63 61 25 3a 67 60  25 28 31 29 3d 67 60 25  |)+ca%:g`%(1)=g`%|
00001910  28 31 29 2b 64 61 25 3a  66 60 25 28 32 29 3d 66  |(1)+da%:f`%(2)=f|
00001920  60 25 28 32 29 2b 63 61  25 3a 67 60 25 28 32 29  |`%(2)+ca%:g`%(2)|
00001930  3d 67 60 25 28 32 29 2b  64 61 25 3a e1 0d 06 18  |=g`%(2)+da%:....|
00001940  6e dd f2 61 61 28 65 61  25 2c 66 61 25 29 3a ec  |n..aa(ea%,fa%):.|
00001950  66 60 25 28 31 29 2c 67  60 25 28 31 29 3a df 66  |f`%(1),g`%(1):.f|
00001960  60 25 28 32 29 2c 67 60  25 28 32 29 3a df 65 61  |`%(2),g`%(2):.ea|
00001970  25 2c 66 61 25 3a df 66  60 25 28 31 29 2d 66 60  |%,fa%:.f`%(1)-f`|
00001980  25 28 32 29 2b 65 61 25  2c 67 60 25 28 31 29 2d  |%(2)+ea%,g`%(1)-|
00001990  67 60 25 28 32 29 2b 66  61 25 3a df 66 60 25 28  |g`%(2)+fa%:.f`%(|
000019a0  31 29 2c 67 60 25 28 31  29 3a e1 0d 06 22 45 dd  |1),g`%(1):..."E.|
000019b0  f2 6e 5f 3a 67 61 25 3d  36 3a 68 61 25 3d 32 34  |.n_:ga%=6:ha%=24|
000019c0  3a f5 3a c8 97 58 25 2c  59 25 2c 42 25 3a f2 54  |:.:..X%,Y%,B%:.T|
000019d0  61 3a fd 42 25 84 59 25  3c 59 5f 25 3a e7 59 25  |a:.B%.Y%<Y_%:.Y%|
000019e0  3c 59 5f 25 8c 63 5f 25  3d b9 3a f2 74 5f 3a e1  |<Y_%.c_%=.:.t_:.|
000019f0  0d 06 2c 20 69 61 25 3d  58 25 3a 6a 61 25 3d 59  |.., ia%=X%:ja%=Y|
00001a00  25 3a e7 42 25 3d 32 f2  4c 60 3a f2 74 5f 3a e1  |%:.B%=2.L`:.t_:.|
00001a10  0d 06 36 1a e7 42 25 3d  31 80 ac a6 28 2d 31 29  |..6..B%=1...(-1)|
00001a20  8c f2 4a 60 3a f2 74 5f  3a e1 0d 06 40 15 e7 42  |..J`:.t_:...@..B|
00001a30  25 3d 34 80 a6 28 2d 31  29 8c f2 70 5f 3a e1 0d  |%=4..(-1)..p_:..|
00001a40  06 4a 19 e7 42 25 3d 31  80 a6 28 2d 31 29 8c f2  |.J..B%=1..(-1)..|
00001a50  71 5f 3a f2 74 5f 3a e1  0d 06 54 10 ef 32 36 3a  |q_:.t_:...T..26:|
00001a60  2a 50 4f 49 4e 54 45 52  0d 06 5e 2e ef 32 34 2c  |*POINTER..^..24,|
00001a70  30 3b 56 5f 25 3b 57 5f  25 3b 58 5f 25 3b 3a e7  |0;V_%;W_%;X_%;:.|
00001a80  71 5f 25 3d a3 e6 30 2c  4e 5f 25 c8 9c 4f 5f 25  |q_%=..0,N_%..O_%|
00001a90  8b e6 38 30 2c 30 0d 06  68 81 75 60 25 3d 34 30  |..80,0..h.u`%=40|
00001aa0  3a 76 60 25 3d 58 25 2a  75 60 25 3a 77 60 25 3d  |:v`%=X%*u`%:w`%=|
00001ab0  59 25 2a 75 60 25 3a 78  60 25 3d 30 3a 58 25 28  |Y%*u`%:x`%=0:X%(|
00001ac0  29 3d 58 25 3a 59 25 28  29 3d 59 25 3a f5 c8 97  |)=X%:Y%()=Y%:...|
00001ad0  58 25 2c 59 25 2c 42 25  3a f2 7a 60 28 58 25 2c  |X%,Y%,B%:.z`(X%,|
00001ae0  59 25 2c 75 60 25 29 3a  e7 28 42 25 3d 34 80 28  |Y%,u`%):.(B%=4.(|
00001af0  58 25 3c 3e 69 61 25 84  59 25 3c 3e 6a 61 25 29  |X%<>ia%.Y%<>ja%)|
00001b00  29 84 28 42 25 3d 34 80  a6 28 2d 39 39 29 29 84  |).(B%=4..(-99)).|
00001b10  28 42 25 3d 36 29 8c 0d  06 72 3f 41 3d b2 28 b3  |(B%=6)...r?A=.(.|
00001b20  28 33 36 30 29 29 3a 54  3d 51 60 25 2a b3 28 31  |(360)):T=Q`%*.(1|
00001b30  29 3a 48 3d 54 2a 9b 41  3a 4b 3d 54 2a b5 41 3a  |):H=T*.A:K=T*.A:|
00001b40  e7 42 25 3e 33 80 ac a6  28 2d 35 31 29 80 ac a6  |.B%>3...(-51)...|
00001b50  28 2d 36 38 29 8c 0d 06  7c 1b e7 b3 28 31 30 30  |(-68)...|...(100|
00001b60  29 3c 53 60 25 8c c8 92  58 25 2b 48 2c 59 25 2b  |)<S`%...X%+H,Y%+|
00001b70  4b 0d 06 86 30 e7 53 60  25 3d 31 32 35 8c c8 92  |K...0.S`%=125...|
00001b80  58 25 2d 48 2c 59 25 2d  4b 3a c8 92 58 25 2b 4b  |X%-H,Y%-K:..X%+K|
00001b90  2c 59 25 2d 48 3a c8 92  58 25 2d 4b 2c 59 25 2b  |,Y%-H:..X%-K,Y%+|
00001ba0  48 0d 06 90 13 cd 3a e7  42 25 3e 33 80 a6 28 2d  |H.....:.B%>3..(-|
00001bb0  35 31 29 8c 0d 06 9a 43  67 61 25 3d 35 2b b6 28  |51)....Cga%=5+.(|
00001bc0  28 58 25 2d 69 61 25 29  5e 32 2b 28 59 25 2d 6a  |(X%-ia%)^2+(Y%-j|
00001bd0  61 25 29 5e 32 29 3a e7  b3 28 31 32 35 29 3c 53  |a%)^2):..(125)<S|
00001be0  60 25 8c c8 8f c8 90 58  25 2b 48 2c 59 25 2b 4b  |`%.....X%+H,Y%+K|
00001bf0  2c b3 28 67 61 25 29 0d  06 a4 4b e7 53 60 25 3d  |,.(ga%)...K.S`%=|
00001c00  31 32 35 8c c8 8f c8 90  58 25 2d 48 2c 59 25 2d  |125.....X%-H,Y%-|
00001c10  4b 2c b3 28 67 61 25 29  3a c8 8f c8 90 58 25 2b  |K,.(ga%):....X%+|
00001c20  4b 2c 59 25 2d 48 2c b3  28 67 61 25 29 3a c8 8f  |K,Y%-H,.(ga%):..|
00001c30  c8 90 58 25 2d 4b 2c 59  25 2b 48 2c b3 28 67 61  |..X%-K,Y%+H,.(ga|
00001c40  25 29 0d 06 ae 13 cd 3a  e7 42 25 3e 33 80 a6 28  |%).....:.B%>3..(|
00001c50  2d 36 38 29 8c 0d 06 b8  1e e7 b3 28 31 32 35 29  |-68).......(125)|
00001c60  3c 53 60 25 8c f2 6b 61  28 58 25 2b 48 2c 59 25  |<S`%..ka(X%+H,Y%|
00001c70  2b 4b 29 0d 06 c2 39 e7  53 60 25 3d 31 32 35 8c  |+K)...9.S`%=125.|
00001c80  f2 6b 61 28 58 25 2d 48  2c 59 25 2d 4b 29 3a f2  |.ka(X%-H,Y%-K):.|
00001c90  6b 61 28 58 25 2b 4b 2c  59 25 2d 48 29 3a f2 6b  |ka(X%+K,Y%-H):.k|
00001ca0  61 28 58 25 2d 4b 2c 59  25 2b 48 29 0d 06 cc 13  |a(X%-K,Y%+H)....|
00001cb0  cd 3a 69 61 25 3d 58 25  3a 6a 61 25 3d 59 25 0d  |.:ia%=X%:ja%=Y%.|
00001cc0  06 d6 0d cd 3a fd 42 25  3d 30 3a e1 0d 06 e0 6d  |....:.B%=0:....m|
00001cd0  dd f2 6b 61 28 66 60 2c  67 60 29 3a ec 66 60 2c  |..ka(f`,g`):.f`,|
00001ce0  67 60 3a ec 66 60 2b 28  b3 28 68 61 25 29 2d 68  |g`:.f`+(.(ha%)-h|
00001cf0  61 25 2f 32 29 2c 67 60  2b 28 b3 28 68 61 25 29  |a%/2),g`+(.(ha%)|
00001d00  2d 68 61 25 2f 32 29 3a  f0 35 33 2b 33 32 2a b3  |-ha%/2):.53+32*.|
00001d10  28 32 29 2c 66 60 2b 28  b3 28 68 61 25 29 2d 68  |(2),f`+(.(ha%)-h|
00001d20  61 25 2f 32 29 2c 67 60  2b 28 b3 28 68 61 25 29  |a%/2),g`+(.(ha%)|
00001d30  2d 68 61 25 2f 32 29 3a  e1 0d 06 ea 36 dd f2 4a  |-ha%/2):....6..J|
00001d40  60 3a 53 25 3d 31 2b 53  25 83 35 3a 51 60 25 3d  |`:S%=1+S%.5:Q`%=|
00001d50  32 5e 28 53 25 2b 32 29  3a 4e 24 28 31 30 29 3d  |2^(S%+2):N$(10)=|
00001d60  c3 28 53 25 29 3a f2 46  61 28 31 30 29 3a e1 0d  |.(S%):.Fa(10):..|
00001d70  06 f4 36 dd f2 4c 60 3a  52 60 25 3d 31 2b 52 60  |..6..L`:R`%=1+R`|
00001d80  25 83 35 3a 53 60 25 3d  32 35 2a 52 60 25 3a 44  |%.5:S`%=25*R`%:D|
00001d90  24 3d bd 28 36 34 2b 52  60 25 29 3a f2 46 61 28  |$=.(64+R`%):.Fa(|
00001da0  31 30 29 3a e1 0d 06 fe  38 dd f2 64 5f 3a f5 3a  |10):....8..d_:.:|
00001db0  c8 97 58 25 2c 59 25 2c  42 25 3a f2 54 61 3a fd  |..X%,Y%,B%:.Ta:.|
00001dc0  42 25 84 59 25 3c 59 5f  25 3a e7 59 25 3c 59 5f  |B%.Y%<Y_%:.Y%<Y_|
00001dd0  25 8c 63 5f 25 3d b9 3a  f2 74 5f 3a e1 0d 07 08  |%.c_%=.:.t_:....|
00001de0  16 e7 42 25 3d 31 8c f2  45 60 28 31 29 3a f2 74  |..B%=1..E`(1):.t|
00001df0  5f 3a e1 0d 07 12 17 e7  42 25 3d 32 8c f2 45 60  |_:......B%=2..E`|
00001e00  28 2d 31 29 3a f2 74 5f  3a e1 0d 07 1c 15 e7 42  |(-1):.t_:......B|
00001e10  25 3d 34 80 a6 28 2d 31  29 8c f2 70 5f 3a e1 0d  |%=4..(-1)..p_:..|
00001e20  07 26 15 e7 42 25 3d 31  80 a6 28 2d 31 29 8c f2  |.&..B%=1..(-1)..|
00001e30  71 5f 3a e1 0d 07 30 8f  f2 74 5f 3a 6c 61 3d 55  |q_:...0..t_:la=U|
00001e40  60 25 2f 56 60 25 3a 55  61 25 3d 58 25 3a 56 61  |`%/V`%:Ua%=X%:Va|
00001e50  25 3d 59 25 3a 57 61 25  3d 58 25 3a 58 61 25 3d  |%=Y%:Wa%=X%:Xa%=|
00001e60  59 25 3a 6d 61 25 3d 58  25 3a 6e 61 25 3d 59 25  |Y%:ma%=X%:na%=Y%|
00001e70  3a 4f 61 25 3d 58 25 3a  50 61 25 3d 59 25 3a e6  |:Oa%=X%:Pa%=Y%:.|
00001e80  34 2c 30 3a 86 55 61 25  2c 56 61 25 2c 57 61 25  |4,0:.Ua%,Va%,Wa%|
00001e90  2c 58 61 25 3a f2 59 61  3a f5 3a c8 97 58 25 2c  |,Xa%:.Ya:.:..X%,|
00001ea0  59 25 2c 42 25 3a e7 a6  28 2d 39 39 29 86 55 61  |Y%,B%:..(-99).Ua|
00001eb0  25 2c 56 61 25 2c 57 61  25 2c 58 61 25 3a f2 59  |%,Va%,Wa%,Xa%:.Y|
00001ec0  61 3a e1 0d 07 3a 17 c8  96 3a c8 96 3a e7 7a 5f  |a:...:...:..:.z_|
00001ed0  25 3d 31 f2 59 61 3a f2  5a 61 0d 07 44 46 86 55  |%=1.Ya:.Za..DF.U|
00001ee0  61 25 2c 56 61 25 2c 57  61 25 2c 58 61 25 3a 86  |a%,Va%,Wa%,Xa%:.|
00001ef0  55 61 25 2c 56 61 25 2c  58 25 2c 59 25 3a 57 61  |Ua%,Va%,X%,Y%:Wa|
00001f00  25 3d 58 25 3a 58 61 25  3d 59 25 3a 4f 61 25 3d  |%=X%:Xa%=Y%:Oa%=|
00001f10  58 25 3a 50 61 25 3d 59  25 3a e7 42 25 3d 34 8c  |X%:Pa%=Y%:.B%=4.|
00001f20  0d 07 4e 2e f2 5a 61 3a  86 55 61 25 2c 56 61 25  |..N..Za:.Ua%,Va%|
00001f30  2c 58 25 2c 59 25 3a e7  71 5f 25 3d a3 e6 30 2c  |,X%,Y%:.q_%=..0,|
00001f40  4e 5f 25 c8 9c 4f 5f 25  8b e6 38 30 2c 30 0d 07  |N_%..O_%..80,0..|
00001f50  58 5e f2 6f 61 28 55 61  25 2c 56 61 25 2c 58 25  |X^.oa(Ua%,Va%,X%|
00001f60  2c 59 25 29 3a 55 61 25  3d 58 25 3a 56 61 25 3d  |,Y%):Ua%=X%:Va%=|
00001f70  59 25 3a 57 61 25 3d 58  25 3a 58 61 25 3d 59 25  |Y%:Wa%=X%:Xa%=Y%|
00001f80  3a e6 34 2c 30 3a f2 5a  61 3a 86 55 61 25 2c 56  |:.4,0:.Za:.Ua%,V|
00001f90  61 25 2c 58 25 2c 59 25  3a f5 c8 97 58 25 2c 59  |a%,X%,Y%:...X%,Y|
00001fa0  25 2c 42 25 3a fd 42 25  83 32 3d 30 0d 07 62 3b  |%,B%:.B%.2=0..b;|
00001fb0  cd 3a fd 42 25 3d 31 84  42 25 3d 32 3a f2 5a 61  |.:.B%=1.B%=2:.Za|
00001fc0  3a 86 55 61 25 2c 56 61  25 2c 58 25 2c 59 25 3a  |:.Ua%,Va%,X%,Y%:|
00001fd0  e7 71 5f 25 3d a3 e6 30  2c 4e 5f 25 c8 9c 4f 5f  |.q_%=..0,N_%..O_|
00001fe0  25 8b e6 38 30 2c 30 0d  07 6c 2e f2 6f 61 28 55  |%..80,0..l..oa(U|
00001ff0  61 25 2c 56 61 25 2c 58  25 2c 59 25 29 3a e7 42  |a%,Va%,X%,Y%):.B|
00002000  25 3d 32 f2 6f 61 28 58  25 2c 59 25 2c 6d 61 25  |%=2.oa(X%,Y%,ma%|
00002010  2c 6e 61 25 29 0d 07 76  09 f2 74 5f 3a e1 0d 07  |,na%)..v..t_:...|
00002020  80 24 dd f2 45 60 28 49  25 29 3a 55 60 25 3d 55  |.$..E`(I%):U`%=U|
00002030  60 25 2b 49 25 3a e7 55  60 25 3d 37 8c 55 60 25  |`%+I%:.U`%=7.U`%|
00002040  3d 31 0d 07 8a 10 e7 55  60 25 3d 30 8c 55 60 25  |=1.....U`%=0.U`%|
00002050  3d 36 0d 07 94 19 4e 24  28 30 29 3d c3 28 55 60  |=6....N$(0)=.(U`|
00002060  25 29 3a f2 46 61 28 30  29 3a e1 0d 07 9e 8b dd  |%):.Fa(0):......|
00002070  f2 6f 61 28 70 61 25 2c  71 61 25 2c 72 61 25 2c  |.oa(pa%,qa%,ra%,|
00002080  73 61 25 29 3a ea 74 61  25 2c 75 61 25 2c 55 61  |sa%):.ta%,ua%,Ua|
00002090  25 2c 56 61 25 2c 76 61  25 2c 77 61 25 3a 74 61  |%,Va%,va%,wa%:ta|
000020a0  25 3d 72 61 25 2d 70 61  25 3a 75 61 25 3d 73 61  |%=ra%-pa%:ua%=sa|
000020b0  25 2d 71 61 25 3a 55 61  25 3d 72 61 25 2b 70 61  |%-qa%:Ua%=ra%+pa|
000020c0  25 3a 56 61 25 3d 73 61  25 2b 71 61 25 3a e7 74  |%:Va%=sa%+qa%:.t|
000020d0  61 25 2a 74 61 25 2b 75  61 25 2a 75 61 25 3c 3d  |a%*ta%+ua%*ua%<=|
000020e0  57 60 25 ec 70 61 25 2c  71 61 25 3a df 72 61 25  |W`%.pa%,qa%:.ra%|
000020f0  2c 73 61 25 3a e1 0d 07  a8 64 78 61 3d 6c 61 2a  |,sa%:....dxa=la*|
00002100  28 32 2a b3 28 31 29 2d  31 29 3a 76 61 25 3d 2e  |(2*.(1)-1):va%=.|
00002110  35 2a 55 61 25 2d 78 61  2a 75 61 25 3a 77 61 25  |5*Ua%-xa*ua%:wa%|
00002120  3d 2e 35 2a 56 61 25 2b  78 61 2a 74 61 25 3a f2  |=.5*Va%+xa*ta%:.|
00002130  6f 61 28 70 61 25 2c 71  61 25 2c 76 61 25 2c 77  |oa(pa%,qa%,va%,w|
00002140  61 25 29 3a f2 6f 61 28  76 61 25 2c 77 61 25 2c  |a%):.oa(va%,wa%,|
00002150  72 61 25 2c 73 61 25 29  3a e1 0d 07 b2 90 dd f2  |ra%,sa%):.......|
00002160  79 61 28 4e 25 2c 69 61  25 2c 6a 61 25 2c 48 25  |ya(N%,ia%,ja%,H%|
00002170  2c 56 25 2c 41 25 2c 46  25 29 3a ea 44 2c 43 2c  |,V%,A%,F%):.D,C,|
00002180  53 2c 7a 61 2c 5f 61 2c  48 61 2c 60 61 2c 58 2c  |S,za,_a,Ha,`a,X,|
00002190  59 2c 41 62 2c 42 62 2c  43 62 2c 44 62 2c 52 2c  |Y,Ab,Bb,Cb,Db,R,|
000021a0  50 25 3a ef 32 39 2c 69  61 25 3b 6a 61 25 3b 3a  |P%:.29,ia%;ja%;:|
000021b0  44 3d 32 2a af 2f 4e 25  3a 43 3d 9b 44 3a 53 3d  |D=2*./N%:C=.D:S=|
000021c0  b5 44 3a 58 3d 30 3a 59  3d 56 25 3a e7 4e 25 3d  |.D:X=0:Y=V%:.N%=|
000021d0  34 8c 45 62 3d af 2f 34  3a 58 3d 48 25 2a 9b 45  |4.Eb=./4:X=H%*.E|
000021e0  62 3a 59 3d 56 25 2a b5  45 62 0d 07 bc 12 e7 4e  |b:Y=V%*.Eb.....N|
000021f0  25 3d 36 8c 58 3d 48 25  3a 59 3d 30 0d 07 c6 22  |%=6.X=H%:Y=0..."|
00002200  e7 4e 25 3d 38 8c 45 62  3d af 2f 38 3a 58 3d 48  |.N%=8.Eb=./8:X=H|
00002210  25 2a 9b 45 62 3a 59 3d  56 25 2a b5 45 62 0d 07  |%*.Eb:Y=V%*.Eb..|
00002220  d0 9f 48 61 3d 9b b2 41  25 3a 60 61 3d b5 b2 41  |..Ha=..A%:`a=..A|
00002230  25 3a 52 3d 48 25 2f 56  25 3a 7a 61 3d 53 2a 52  |%:R=H%/V%:za=S*R|
00002240  3a 5f 61 3d 53 2f 52 3a  41 62 3d 58 2a 48 61 2d  |:_a=S/R:Ab=X*Ha-|
00002250  59 2a 60 61 3a 42 62 3d  58 2a 60 61 2b 59 2a 48  |Y*`a:Bb=X*`a+Y*H|
00002260  61 3a ec 41 62 2c 42 62  3a e3 49 25 3d 31 b8 4e  |a:.Ab,Bb:.I%=1.N|
00002270  25 3a 43 62 3d 58 2a 43  2d 7a 61 2a 59 3a 44 62  |%:Cb=X*C-za*Y:Db|
00002280  3d 59 2a 43 2b 58 2a 5f  61 3a 41 62 3d 43 62 2a  |=Y*C+X*_a:Ab=Cb*|
00002290  48 61 2d 44 62 2a 60 61  3a 42 62 3d 43 62 2a 60  |Ha-Db*`a:Bb=Cb*`|
000022a0  61 2b 44 62 2a 48 61 3a  e7 46 25 3d 33 8c ec 30  |a+Db*Ha:.F%=3..0|
000022b0  2c 30 3a 50 25 3d 38 35  8b 50 25 3d 35 0d 07 da  |,0:P%=85.P%=5...|
000022c0  14 e7 46 25 3c 3e 32 8c  f0 50 25 2c 41 62 2c 42  |..F%<>2..P%,Ab,B|
000022d0  62 0d 07 e4 15 e7 46 25  3e 30 8c df 30 2c 30 3a  |b.....F%>0..0,0:|
000022e0  ec 41 62 2c 42 62 0d 07  ee 1a 58 3d 43 62 3a 59  |.Ab,Bb....X=Cb:Y|
000022f0  3d 44 62 3a ed 3a ef 32  39 2c 30 3b 30 3b 3a e1  |=Db:.:.29,0;0;:.|
00002300  0d 07 f8 1d dd f2 4b 60  3a 46 25 3d 28 46 25 2b  |......K`:F%=(F%+|
00002310  31 29 83 33 3a f2 46 61  28 39 29 3a e1 0d 08 02  |1).3:.Fa(9):....|
00002320  1b dd f2 49 60 3a 4e 25  3d 4e 25 2b 31 3a e7 4e  |...I`:N%=N%+1:.N|
00002330  25 3e 39 8c 4e 25 3d 33  0d 08 0c 18 4e 24 28 39  |%>9.N%=3....N$(9|
00002340  29 3d c3 28 4e 25 29 3a  f2 46 61 28 39 29 3a e1  |)=.(N%):.Fa(9):.|
00002350  0d 08 16 da dd f2 5f 5f  3a ef 32 36 2c 35 2c 37  |......__:.26,5,7|
00002360  3a f5 3a 46 62 24 3d 22  22 3a 47 62 25 3d 30 3a  |:.:Fb$="":Gb%=0:|
00002370  e6 34 37 c8 9c 31 39 32  3a ec 35 38 2b 68 60 25  |.47..192:.58+h`%|
00002380  28 39 29 2c 31 33 32 3a  f1 bd 32 32 35 2b bd 32  |(9),132:..225+.2|
00002390  32 35 3a e6 31 36 c8 9c  31 39 32 3a f5 3a f5 3a  |25:.16..192:.:.:|
000023a0  c8 99 36 2c 32 31 2c 30  3a 48 62 24 3d be 3a fd  |..6,21,0:Hb$=.:.|
000023b0  a7 22 30 31 32 33 34 35  36 37 38 39 22 2b bd 31  |."0123456789"+.1|
000023c0  33 2c 48 62 24 29 3e 30  3a 46 62 24 3d 46 62 24  |3,Hb$)>0:Fb$=Fb$|
000023d0  2b 48 62 24 3a ec 35 38  2b 31 36 2a 47 62 25 2b  |+Hb$:.58+16*Gb%+|
000023e0  68 60 25 28 39 29 2c 31  33 32 3a f1 48 62 24 3a  |h`%(9),132:.Hb$:|
000023f0  47 62 25 3d 47 62 25 2b  31 3a fd 47 62 25 3d 32  |Gb%=Gb%+1:.Gb%=2|
00002400  3a 4e 25 3d bb 28 46 62  24 29 3a fd 4e 25 3e 32  |:N%=.(Fb$):.N%>2|
00002410  3a ef 37 3a 87 3a 4e 24  28 39 29 3d c3 28 4e 25  |:.7:.:N$(9)=.(N%|
00002420  29 3a f2 46 61 28 39 29  3a e1 0d 08 20 38 dd f2  |):.Fa(9):... 8..|
00002430  6a 5f 3a f5 3a c8 97 58  25 2c 59 25 2c 42 25 3a  |j_:.:..X%,Y%,B%:|
00002440  f2 54 61 3a fd 42 25 84  59 25 3c 59 5f 25 3a e7  |.Ta:.B%.Y%<Y_%:.|
00002450  59 25 3c 59 5f 25 8c 63  5f 25 3d b9 3a f2 74 5f  |Y%<Y_%.c_%=.:.t_|
00002460  3a e1 0d 08 2a 1c e7 42  25 3d 31 80 ac a6 28 2d  |:...*..B%=1...(-|
00002470  31 29 f2 48 60 28 31 29  3a f2 74 5f 3a e1 0d 08  |1).H`(1):.t_:...|
00002480  34 16 e7 42 25 3d 32 f2  48 60 28 2d 31 29 3a f2  |4..B%=2.H`(-1):.|
00002490  74 5f 3a e1 0d 08 3e 14  e7 42 25 3d 34 80 a6 28  |t_:...>..B%=4..(|
000024a0  2d 31 29 f2 70 5f 3a e1  0d 08 48 14 e7 42 25 3d  |-1).p_:...H..B%=|
000024b0  31 80 a6 28 2d 31 29 f2  71 5f 3a e1 0d 08 52 85  |1..(-1).q_:...R.|
000024c0  f2 74 5f 3a 55 61 25 3d  58 25 3a 56 61 25 3d 59  |.t_:Ua%=X%:Va%=Y|
000024d0  25 3a 57 61 25 3d 58 25  3a 58 61 25 3d 59 25 3a  |%:Wa%=X%:Xa%=Y%:|
000024e0  6d 61 25 3d 58 25 3a 6e  61 25 3d 59 25 3a 4f 61  |ma%=X%:na%=Y%:Oa|
000024f0  25 3d 58 25 3a 50 61 25  3d 59 25 3a e6 34 2c 30  |%=X%:Pa%=Y%:.4,0|
00002500  3a 86 55 61 25 2c 56 61  25 2c 57 61 25 2c 58 61  |:.Ua%,Va%,Wa%,Xa|
00002510  25 3a f2 59 61 3a f5 3a  c8 97 58 25 2c 59 25 2c  |%:.Ya:.:..X%,Y%,|
00002520  42 25 3a e7 a6 28 2d 39  39 29 8c 86 55 61 25 2c  |B%:..(-99)..Ua%,|
00002530  56 61 25 2c 57 61 25 2c  58 61 25 3a f2 59 61 3a  |Va%,Wa%,Xa%:.Ya:|
00002540  e1 0d 08 5c 1c e7 a6 28  2d 31 30 30 29 c8 97 b8  |...\...(-100)...|
00002550  55 61 25 2c 59 25 3a 58  25 3d 55 61 25 0d 08 66  |Ua%,Y%:X%=Ua%..f|
00002560  1b e7 a6 28 2d 38 35 29  c8 97 b8 58 25 2c 56 61  |...(-85)...X%,Va|
00002570  25 3a 59 25 3d 56 61 25  0d 08 70 37 c8 96 3a c8  |%:Y%=Va%..p7..:.|
00002580  96 3a 86 55 61 25 2c 56  61 25 2c 57 61 25 2c 58  |.:.Ua%,Va%,Wa%,X|
00002590  61 25 3a 86 55 61 25 2c  56 61 25 2c 58 25 2c 59  |a%:.Ua%,Va%,X%,Y|
000025a0  25 3a e7 7a 5f 25 3d 31  f2 59 61 3a f2 5a 61 0d  |%:.z_%=1.Ya:.Za.|
000025b0  08 7a 26 57 61 25 3d 58  25 3a 58 61 25 3d 59 25  |.z&Wa%=X%:Xa%=Y%|
000025c0  3a 4f 61 25 3d 58 25 3a  50 61 25 3d 59 25 3a e7  |:Oa%=X%:Pa%=Y%:.|
000025d0  42 25 3d 34 8c 0d 08 84  1f f2 5a 61 3a e7 71 5f  |B%=4......Za:.q_|
000025e0  25 3d a3 e6 30 2c 4e 5f  25 c8 9c 4f 5f 25 8b e6  |%=..0,N_%..O_%..|
000025f0  38 30 2c 30 0d 08 8e 60  f2 49 62 28 55 61 25 2c  |80,0...`.Ib(Ua%,|
00002600  56 61 25 2c 58 25 2c 59  25 2c 58 60 25 29 3a 55  |Va%,X%,Y%,X`%):U|
00002610  61 25 3d 58 25 3a 56 61  25 3d 59 25 3a 57 61 25  |a%=X%:Va%=Y%:Wa%|
00002620  3d 58 25 3a 58 61 25 3d  59 25 3a e6 34 2c 30 3a  |=X%:Xa%=Y%:.4,0:|
00002630  f2 5a 61 3a 86 55 61 25  2c 56 61 25 2c 58 25 2c  |.Za:.Ua%,Va%,X%,|
00002640  59 25 3a f5 c8 97 58 25  2c 59 25 2c 42 25 3a fd  |Y%:...X%,Y%,B%:.|
00002650  42 25 3c 33 0d 08 98 2c  cd 3a fd 42 25 3d 31 84  |B%<3...,.:.B%=1.|
00002660  42 25 3d 32 3a f2 5a 61  3a e7 71 5f 25 3d a3 e6  |B%=2:.Za:.q_%=..|
00002670  30 2c 4e 5f 25 c8 9c 4f  5f 25 8b e6 38 30 2c 30  |0,N_%..O_%..80,0|
00002680  0d 08 a2 36 f2 49 62 28  55 61 25 2c 56 61 25 2c  |...6.Ib(Ua%,Va%,|
00002690  58 25 2c 59 25 2c 58 60  25 29 3a e7 42 25 3d 32  |X%,Y%,X`%):.B%=2|
000026a0  f2 49 62 28 58 25 2c 59  25 2c 6d 61 25 2c 6e 61  |.Ib(X%,Y%,ma%,na|
000026b0  25 2c 58 60 25 29 0d 08  ac 09 f2 74 5f 3a e1 0d  |%,X`%).....t_:..|
000026c0  08 b6 32 dd f2 49 62 28  4f 61 25 2c 50 61 25 2c  |..2..Ib(Oa%,Pa%,|
000026d0  58 25 2c 59 25 2c 58 60  25 29 3a e7 58 60 25 3d  |X%,Y%,X`%):.X`%=|
000026e0  30 86 4f 61 25 2c 50 61  25 2c 58 25 2c 59 25 3a  |0.Oa%,Pa%,X%,Y%:|
000026f0  e1 0d 08 c0 b7 4a 62 25  3d 58 25 2d 4f 61 25 3a  |.....Jb%=X%-Oa%:|
00002700  4b 62 25 3d 59 25 2d 50  61 25 3a 45 62 25 3d 32  |Kb%=Y%-Pa%:Eb%=2|
00002710  5e 58 60 25 3a 4c 3d 45  62 25 2f 28 b6 28 4a 62  |^X`%:L=Eb%/(.(Jb|
00002720  25 2a 4a 62 25 2b 4b 62  25 2a 4b 62 25 29 2b 31  |%*Jb%+Kb%*Kb%)+1|
00002730  45 2d 36 29 3a 4c 62 3d  4b 62 25 2a 4c 3a 4d 62  |E-6):Lb=Kb%*L:Mb|
00002740  3d 4a 62 25 2a 4c 3a ec  4f 61 25 2b 4c 62 2c 50  |=Jb%*L:.Oa%+Lb,P|
00002750  61 25 2d 4d 62 3a ec 4f  61 25 2d 4c 62 2c 50 61  |a%-Mb:.Oa%-Lb,Pa|
00002760  25 2b 4d 62 3a f0 38 35  2c 58 25 2b 4c 62 2c 59  |%+Mb:.85,X%+Lb,Y|
00002770  25 2d 4d 62 3a f0 38 35  2c 58 25 2d 4c 62 2c 59  |%-Mb:.85,X%-Lb,Y|
00002780  25 2b 4d 62 3a e7 58 60  25 3e 31 c8 8f c8 90 4f  |%+Mb:.X`%>1....O|
00002790  61 25 2c 50 61 25 2c 45  62 25 3a c8 8f c8 90 58  |a%,Pa%,Eb%:....X|
000027a0  25 2c 59 25 2c 45 62 25  0d 08 ca 05 e1 0d 08 d4  |%,Y%,Eb%........|
000027b0  24 dd f2 48 60 28 49 25  29 3a 58 60 25 3d 58 60  |$..H`(I%):X`%=X`|
000027c0  25 2b 49 25 3a e7 58 60  25 3d 36 20 58 60 25 3d  |%+I%:.X`%=6 X`%=|
000027d0  30 0d 08 de 11 e7 58 60  25 3d 2d 31 20 58 60 25  |0.....X`%=-1 X`%|
000027e0  3d 35 0d 08 e8 1b 4e 24  28 36 29 3d c3 28 58 60  |=5....N$(6)=.(X`|
000027f0  25 2b 31 29 3a f2 46 61  28 36 29 3a e1 0d 08 f2  |%+1):.Fa(6):....|
00002800  4e dd f2 67 5f 3a f2 74  5f 3a 4e 62 25 3d b9 3a  |N..g_:.t_:Nb%=.:|
00002810  49 62 25 3d a3 3a 4f 62  25 3d a3 3a f5 3a c8 97  |Ib%=.:Ob%=.:.:..|
00002820  58 25 2c 59 25 2c 42 25  3a f2 54 61 3a fd 42 25  |X%,Y%,B%:.Ta:.B%|
00002830  84 59 25 3c 59 5f 25 3a  e7 59 25 3c 59 5f 25 8c  |.Y%<Y_%:.Y%<Y_%.|
00002840  63 5f 25 3d b9 3a f2 74  5f 3a e1 0d 08 fc 1d e7  |c_%=.:.t_:......|
00002850  42 25 3d 31 80 ac a6 28  2d 31 29 8c f2 46 60 28  |B%=1...(-1)..F`(|
00002860  31 29 3a f2 74 5f 3a e1  0d 09 06 17 e7 42 25 3d  |1):.t_:......B%=|
00002870  32 8c f2 46 60 28 2d 31  29 3a f2 74 5f 3a e1 0d  |2..F`(-1):.t_:..|
00002880  09 10 15 e7 42 25 3d 34  80 a6 28 2d 31 29 8c f2  |....B%=4..(-1)..|
00002890  70 5f 3a e1 0d 09 1a 15  e7 42 25 3d 31 80 a6 28  |p_:......B%=1..(|
000028a0  2d 31 29 8c f2 71 5f 3a  e1 0d 09 24 32 70 61 25  |-1)..q_:...$2pa%|
000028b0  3d 58 25 3a 71 61 25 3d  59 25 3a 4f 61 25 3d 58  |=X%:qa%=Y%:Oa%=X|
000028c0  25 3a 50 61 25 3d 59 25  3a f2 50 62 3a 51 62 25  |%:Pa%=Y%:.Pb:Qb%|
000028d0  3d b9 3a e7 4f 62 25 3d  b9 8c e1 0d 09 2e 0a e7  |=.:.Ob%=........|
000028e0  42 25 3c 33 8c 0d 09 38  1b e7 71 5f 25 3d a3 e6  |B%<3...8..q_%=..|
000028f0  30 2c 4e 5f 25 c8 9c 4f  5f 25 8b e6 38 30 2c 30  |0,N_%..O_%..80,0|
00002900  0d 09 42 1e f2 49 62 28  70 61 25 2c 71 61 25 2c  |..B..Ib(pa%,qa%,|
00002910  72 61 25 2c 73 61 25 2c  62 60 25 29 3a e1 0d 09  |ra%,sa%,b`%):...|
00002920  4c 2e cd 3a 52 62 3d b6  28 28 72 61 25 2d 70 61  |L..:Rb=.((ra%-pa|
00002930  25 29 5e 32 2b 28 73 61  25 2d 71 61 25 29 5e 32  |%)^2+(sa%-qa%)^2|
00002940  29 3a e7 52 62 3c 47 8c  52 62 3d 47 0d 09 56 cc  |):.Rb<G.Rb=G..V.|
00002950  53 62 25 3d 70 61 25 3a  54 62 25 3d 71 61 25 3a  |Sb%=pa%:Tb%=qa%:|
00002960  55 62 25 3d 72 61 25 3a  56 62 25 3d 73 61 25 3a  |Ub%=ra%:Vb%=sa%:|
00002970  57 62 25 3d 72 61 25 3a  58 62 25 3d 73 61 25 3a  |Wb%=ra%:Xb%=sa%:|
00002980  59 62 3d 70 61 25 3a 5a  62 3d 71 61 25 3a f5 3a  |Yb=pa%:Zb=qa%:.:|
00002990  f2 74 5f 3a f2 61 62 3a  e6 34 2c 30 3a f2 59 61  |.t_:.ab:.4,0:.Ya|
000029a0  3a c8 8f c8 90 70 61 25  2c 71 61 25 2c 61 60 25  |:....pa%,qa%,a`%|
000029b0  3a c8 8f 72 61 25 2c 73  61 25 2c 61 60 25 3a f2  |:..ra%,sa%,a`%:.|
000029c0  62 62 28 70 61 25 2c 71  61 25 2c 59 62 2c 5a 62  |bb(pa%,qa%,Yb,Zb|
000029d0  2c 72 61 25 2c 73 61 25  2c 63 62 2c 64 62 29 3a  |,ra%,sa%,cb,db):|
000029e0  f2 62 62 28 72 61 25 2c  73 61 25 2c 65 62 2c 66  |.bb(ra%,sa%,eb,f|
000029f0  62 2c 57 62 25 2c 58 62  25 2c 57 62 25 2c 58 62  |b,Wb%,Xb%,Wb%,Xb|
00002a00  25 29 3a f5 3a c8 97 58  25 2c 59 25 2c 42 25 3a  |%):.:..X%,Y%,B%:|
00002a10  e7 a6 28 2d 39 39 29 8c  0d 09 60 88 e6 34 2c 30  |..(-99)...`..4,0|
00002a20  3a c8 8f c8 90 70 61 25  2c 71 61 25 2c 61 60 25  |:....pa%,qa%,a`%|
00002a30  3a c8 8f 72 61 25 2c 73  61 25 2c 61 60 25 3a f2  |:..ra%,sa%,a`%:.|
00002a40  62 62 28 70 61 25 2c 71  61 25 2c 59 62 2c 5a 62  |bb(pa%,qa%,Yb,Zb|
00002a50  2c 72 61 25 2c 73 61 25  2c 63 62 2c 64 62 29 3a  |,ra%,sa%,cb,db):|
00002a60  f2 62 62 28 72 61 25 2c  73 61 25 2c 65 62 2c 66  |.bb(ra%,sa%,eb,f|
00002a70  62 2c 57 62 25 2c 58 62  25 2c 57 62 25 2c 58 62  |b,Wb%,Xb%,Wb%,Xb|
00002a80  25 29 3a 49 62 25 3d b9  3a e7 71 5f 25 3d a3 e6  |%):Ib%=.:.q_%=..|
00002a90  30 2c 4e 5f 25 c8 9c 4f  5f 25 8b e6 38 30 2c 30  |0,N_%..O_%..80,0|
00002aa0  0d 09 6a 28 e7 51 62 25  3d b9 f2 59 61 3a f2 49  |..j(.Qb%=..Ya:.I|
00002ab0  62 28 70 61 25 2c 71 61  25 2c 72 61 25 2c 73 61  |b(pa%,qa%,ra%,sa|
00002ac0  25 2c 62 60 25 29 3a e1  0d 09 74 0b e7 51 62 25  |%,b`%):...t..Qb%|
00002ad0  3d a3 8c 0d 09 7e 4f f2  59 61 3a f2 62 62 28 70  |=....~O.Ya:.bb(p|
00002ae0  61 25 2c 71 61 25 2c 59  62 2c 5a 62 2c 72 61 25  |a%,qa%,Yb,Zb,ra%|
00002af0  2c 73 61 25 2c 72 61 25  2c 73 61 25 29 3a f2 62  |,sa%,ra%,sa%):.b|
00002b00  62 28 53 62 25 2c 54 62  25 2c 53 62 25 2c 54 62  |b(Sb%,Tb%,Sb%,Tb|
00002b10  25 2c 55 62 25 2c 56 62  25 2c 67 62 2c 68 62 29  |%,Ub%,Vb%,gb,hb)|
00002b20  3a e1 0d 09 88 05 cd 0d  09 92 5b cd 3a 69 62 25  |:.........[.:ib%|
00002b30  3d 57 62 25 3a 6a 62 25  3d 58 62 25 3a 57 62 25  |=Wb%:jb%=Xb%:Wb%|
00002b40  3d 58 25 3a 58 62 25 3d  59 25 3a 6b 62 3d 65 62  |=X%:Xb%=Y%:kb=eb|
00002b50  3a 6c 62 3d 66 62 3a 6d  62 3d 63 62 3a 6e 62 3d  |:lb=fb:mb=cb:nb=|
00002b60  64 62 3a f2 61 62 3a e7  7a 5f 25 3d 31 f2 59 61  |db:.ab:.z_%=1.Ya|
00002b70  3a f2 5a 61 3a 4f 61 25  3d 58 25 3a 50 61 25 3d  |:.Za:Oa%=X%:Pa%=|
00002b80  59 25 0d 09 9c e4 f2 62  62 28 70 61 25 2c 71 61  |Y%.....bb(pa%,qa|
00002b90  25 2c 59 62 2c 5a 62 2c  72 61 25 2c 73 61 25 2c  |%,Yb,Zb,ra%,sa%,|
00002ba0  6d 62 2c 6e 62 29 3a f2  62 62 28 70 61 25 2c 71  |mb,nb):.bb(pa%,q|
00002bb0  61 25 2c 59 62 2c 5a 62  2c 72 61 25 2c 73 61 25  |a%,Yb,Zb,ra%,sa%|
00002bc0  2c 63 62 2c 64 62 29 3a  f2 62 62 28 72 61 25 2c  |,cb,db):.bb(ra%,|
00002bd0  73 61 25 2c 6b 62 2c 6c  62 2c 69 62 25 2c 6a 62  |sa%,kb,lb,ib%,jb|
00002be0  25 2c 69 62 25 2c 6a 62  25 29 3a f2 62 62 28 72  |%,ib%,jb%):.bb(r|
00002bf0  61 25 2c 73 61 25 2c 65  62 2c 66 62 2c 57 62 25  |a%,sa%,eb,fb,Wb%|
00002c00  2c 58 62 25 2c 57 62 25  2c 58 62 25 29 3a fd 42  |,Xb%,Wb%,Xb%):.B|
00002c10  25 3e 30 3a 51 62 25 3d  a3 3a f2 5a 61 3a c8 8f  |%>0:Qb%=.:.Za:..|
00002c20  c8 90 70 61 25 2c 71 61  25 2c 61 60 25 3a c8 8f  |..pa%,qa%,a`%:..|
00002c30  72 61 25 2c 73 61 25 2c  61 60 25 3a f2 62 62 28  |ra%,sa%,a`%:.bb(|
00002c40  72 61 25 2c 73 61 25 2c  65 62 2c 66 62 2c 57 62  |ra%,sa%,eb,fb,Wb|
00002c50  25 2c 58 62 25 2c 57 62  25 2c 58 62 25 29 3a e7  |%,Xb%,Wb%,Xb%):.|
00002c60  4e 62 25 3d a3 8c 0d 09  a6 43 e6 34 2c 30 3a f2  |Nb%=.....C.4,0:.|
00002c70  62 62 28 53 62 25 2c 54  62 25 2c 53 62 25 2c 54  |bb(Sb%,Tb%,Sb%,T|
00002c80  62 25 2c 55 62 25 2c 56  62 25 2c 67 62 2c 68 62  |b%,Ub%,Vb%,gb,hb|
00002c90  29 3a e7 71 5f 25 3d a3  e6 30 2c 4e 5f 25 c8 9c  |):.q_%=..0,N_%..|
00002ca0  4f 5f 25 8b e6 38 30 2c  30 0d 09 b0 58 49 62 25  |O_%..80,0...XIb%|
00002cb0  3d b9 3a f2 62 62 28 70  61 25 2c 71 61 25 2c 59  |=.:.bb(pa%,qa%,Y|
00002cc0  62 2c 5a 62 2c 72 61 25  2c 73 61 25 2c 63 62 2c  |b,Zb,ra%,sa%,cb,|
00002cd0  64 62 29 3a 49 62 25 3d  a3 3a e6 34 2c 30 3a f2  |db):Ib%=.:.4,0:.|
00002ce0  62 62 28 53 62 25 2c 54  62 25 2c 53 62 25 2c 54  |bb(Sb%,Tb%,Sb%,T|
00002cf0  62 25 2c 55 62 25 2c 56  62 25 2c 67 62 2c 68 62  |b%,Ub%,Vb%,gb,hb|
00002d00  29 0d 09 ba 0d cd 3a e7  4e 62 25 3d b9 8c 0d 09  |).....:.Nb%=....|
00002d10  c4 15 67 62 3d 63 62 3a  68 62 3d 64 62 3a 4e 62  |..gb=cb:hb=db:Nb|
00002d20  25 3d a3 0d 09 ce 0c cd  3a e7 42 25 3d 31 8c 0d  |%=......:.B%=1..|
00002d30  09 d8 1b e7 71 5f 25 3d  a3 e6 30 2c 4e 5f 25 c8  |....q_%=..0,N_%.|
00002d40  9c 4f 5f 25 8b e6 38 30  2c 30 0d 09 e2 55 49 62  |.O_%..80,0...UIb|
00002d50  25 3d b9 3a f2 62 62 28  72 61 25 2c 73 61 25 2c  |%=.:.bb(ra%,sa%,|
00002d60  65 62 2c 66 62 2c 57 62  25 2c 58 62 25 2c 57 62  |eb,fb,Wb%,Xb%,Wb|
00002d70  25 2c 58 62 25 29 3a f2  62 62 28 53 62 25 2c 54  |%,Xb%):.bb(Sb%,T|
00002d80  62 25 2c 53 62 25 2c 54  62 25 2c 55 62 25 2c 56  |b%,Sb%,Tb%,Ub%,V|
00002d90  62 25 2c 67 62 2c 68 62  29 3a 49 62 25 3d a3 0d  |b%,gb,hb):Ib%=..|
00002da0  09 ec 0c cd 3a e7 42 25  3d 32 8c 0d 09 f6 43 e6  |....:.B%=2....C.|
00002db0  34 2c 30 3a f2 62 62 28  53 62 25 2c 54 62 25 2c  |4,0:.bb(Sb%,Tb%,|
00002dc0  53 62 25 2c 54 62 25 2c  55 62 25 2c 56 62 25 2c  |Sb%,Tb%,Ub%,Vb%,|
00002dd0  67 62 2c 68 62 29 3a e7  71 5f 25 3d a3 e6 30 2c  |gb,hb):.q_%=..0,|
00002de0  4e 5f 25 c8 9c 4f 5f 25  8b e6 38 30 2c 30 0d 0a  |N_%..O_%..80,0..|
00002df0  00 d7 49 62 25 3d b9 3a  6f 62 3d 65 62 3a 70 62  |..Ib%=.:ob=eb:pb|
00002e00  3d 66 62 3a 70 61 25 3d  72 61 25 3a 71 61 25 3d  |=fb:pa%=ra%:qa%=|
00002e10  73 61 25 3a 72 61 25 3d  57 62 25 3a 73 61 25 3d  |sa%:ra%=Wb%:sa%=|
00002e20  58 62 25 3a 57 62 25 3d  53 62 25 3a 58 62 25 3d  |Xb%:Wb%=Sb%:Xb%=|
00002e30  54 62 25 3a 52 62 3d 71  62 3a f2 61 62 3a f2 62  |Tb%:Rb=qb:.ab:.b|
00002e40  62 28 70 61 25 2c 71 61  25 2c 6f 62 2c 70 62 2c  |b(pa%,qa%,ob,pb,|
00002e50  72 61 25 2c 73 61 25 2c  63 62 2c 64 62 29 3a 6f  |ra%,sa%,cb,db):o|
00002e60  62 3d 65 62 3a 70 62 3d  66 62 3a 70 61 25 3d 72  |b=eb:pb=fb:pa%=r|
00002e70  61 25 3a 71 61 25 3d 73  61 25 3a 72 61 25 3d 57  |a%:qa%=sa%:ra%=W|
00002e80  62 25 3a 73 61 25 3d 58  62 25 3a 57 62 25 3d 55  |b%:sa%=Xb%:Wb%=U|
00002e90  62 25 3a 58 62 25 3d 56  62 25 3a 52 62 3d 71 62  |b%:Xb%=Vb%:Rb=qb|
00002ea0  3a f2 61 62 3a f2 62 62  28 70 61 25 2c 71 61 25  |:.ab:.bb(pa%,qa%|
00002eb0  2c 6f 62 2c 70 62 2c 72  61 25 2c 73 61 25 2c 63  |,ob,pb,ra%,sa%,c|
00002ec0  62 2c 64 62 29 0d 0a 0a  24 f2 62 62 28 72 61 25  |b,db)...$.bb(ra%|
00002ed0  2c 73 61 25 2c 65 62 2c  66 62 2c 55 62 25 2c 56  |,sa%,eb,fb,Ub%,V|
00002ee0  62 25 2c 67 62 2c 68 62  29 0d 0a 14 45 cd 3a 70  |b%,gb,hb)...E.:p|
00002ef0  61 25 3d 72 61 25 3a 71  61 25 3d 73 61 25 3a 72  |a%=ra%:qa%=sa%:r|
00002f00  61 25 3d 57 62 25 3a 73  61 25 3d 58 62 25 3a 59  |a%=Wb%:sa%=Xb%:Y|
00002f10  62 3d 65 62 3a 5a 62 3d  66 62 3a 52 62 3d 71 62  |b=eb:Zb=fb:Rb=qb|
00002f20  3a 49 62 25 3d a3 3a fd  42 25 3c 33 3a e1 0d 0a  |:Ib%=.:.B%<3:...|
00002f30  1e 74 dd f2 50 62 3a f2  74 5f 3a e6 34 2c 30 3a  |.t..Pb:.t_:.4,0:|
00002f40  57 61 25 3d 58 25 3a 58  61 25 3d 59 25 3a 4f 61  |Wa%=X%:Xa%=Y%:Oa|
00002f50  25 3d 58 25 3a 50 61 25  3d 59 25 3a f2 59 61 3a  |%=X%:Pa%=Y%:.Ya:|
00002f60  86 70 61 25 2c 71 61 25  2c 57 61 25 2c 58 61 25  |.pa%,qa%,Wa%,Xa%|
00002f70  3a f5 3a c8 97 58 25 2c  59 25 2c 42 25 3a e7 a6  |:.:..X%,Y%,B%:..|
00002f80  28 2d 39 39 29 8c 86 70  61 25 2c 71 61 25 2c 57  |(-99)..pa%,qa%,W|
00002f90  61 25 2c 58 61 25 3a f2  59 61 3a 4f 62 25 3d b9  |a%,Xa%:.Ya:Ob%=.|
00002fa0  3a e1 0d 0a 28 17 c8 96  3a c8 96 3a e7 7a 5f 25  |:...(...:..:.z_%|
00002fb0  3d 31 f2 59 61 3a f2 5a  61 0d 0a 32 68 86 70 61  |=1.Ya:.Za..2h.pa|
00002fc0  25 2c 71 61 25 2c 57 61  25 2c 58 61 25 3a 86 70  |%,qa%,Wa%,Xa%:.p|
00002fd0  61 25 2c 71 61 25 2c 58  25 2c 59 25 3a 57 61 25  |a%,qa%,X%,Y%:Wa%|
00002fe0  3d 58 25 3a 58 61 25 3d  59 25 3a 4f 61 25 3d 58  |=X%:Xa%=Y%:Oa%=X|
00002ff0  25 3a 50 61 25 3d 59 25  3a fd 42 25 3a 72 61 25  |%:Pa%=Y%:.B%:ra%|
00003000  3d 58 25 3a 73 61 25 3d  59 25 3a 86 70 61 25 2c  |=X%:sa%=Y%:.pa%,|
00003010  71 61 25 2c 72 61 25 2c  73 61 25 3a f2 59 61 3a  |qa%,ra%,sa%:.Ya:|
00003020  e1 0d 0a 3c 31 dd f2 61  62 3a 71 62 3d b6 28 28  |...<1..ab:qb=.((|
00003030  57 62 25 2d 72 61 25 29  5e 32 2b 28 58 62 25 2d  |Wb%-ra%)^2+(Xb%-|
00003040  73 61 25 29 5e 32 29 3a  e7 71 62 3c 47 8c 71 62  |sa%)^2):.qb<G.qb|
00003050  3d 47 0d 0a 46 7b 72 3d  52 62 2f 28 52 62 2b 71  |=G..F{r=Rb/(Rb+q|
00003060  62 29 3a 52 3d 32 2a 72  3a 72 31 3d 31 2d 72 3a  |b):R=2*r:r1=1-r:|
00003070  65 62 3d 28 72 61 25 2d  28 70 61 25 2d 72 2a 28  |eb=(ra%-(pa%-r*(|
00003080  70 61 25 2b 57 62 25 29  29 29 2f 52 3a 66 62 3d  |pa%+Wb%)))/R:fb=|
00003090  28 73 61 25 2d 28 71 61  25 2d 72 2a 28 71 61 25  |(sa%-(qa%-r*(qa%|
000030a0  2b 58 62 25 29 29 29 2f  52 3a 63 62 3d 28 72 61  |+Xb%)))/R:cb=(ra|
000030b0  25 2d 72 2a 65 62 29 2f  72 31 3a 64 62 3d 28 73  |%-r*eb)/r1:db=(s|
000030c0  61 25 2d 72 2a 66 62 29  2f 72 31 3a e1 0d 0a 50  |a%-r*fb)/r1:...P|
000030d0  d8 dd f2 62 62 28 72 62  2c 73 62 2c 74 62 2c 75  |...bb(rb,sb,tb,u|
000030e0  62 2c 76 62 2c 77 62 2c  78 62 2c 79 62 29 3a 7a  |b,vb,wb,xb,yb):z|
000030f0  62 3d 28 33 2d 59 60 29  2a 72 62 2b 59 60 2a 74  |b=(3-Y`)*rb+Y`*t|
00003100  62 3a 5f 62 3d 28 33 2d  59 60 29 2a 73 62 2b 59  |b:_b=(3-Y`)*sb+Y|
00003110  60 2a 75 62 3a 60 62 3d  28 33 2d 59 60 29 2a 76  |`*ub:`b=(3-Y`)*v|
00003120  62 2b 59 60 2a 78 62 3a  41 63 3d 28 33 2d 59 60  |b+Y`*xb:Ac=(3-Y`|
00003130  29 2a 77 62 2b 59 60 2a  79 62 3a ec 72 62 2c 73  |)*wb+Y`*yb:.rb,s|
00003140  62 3a 42 63 3d 72 62 3a  43 63 3d 73 62 3a e3 49  |b:Bc=rb:Cc=sb:.I|
00003150  25 3d 31 b8 5a 60 25 3a  74 3d 49 25 2f 5a 60 25  |%=1.Z`%:t=I%/Z`%|
00003160  3a 44 63 3d 31 2d 74 3a  45 63 3d 44 63 5e 33 3a  |:Dc=1-t:Ec=Dc^3:|
00003170  46 63 3d 44 63 2a 44 63  2a 74 3a 47 63 3d 44 63  |Fc=Dc*Dc*t:Gc=Dc|
00003180  2a 74 2a 74 3a 48 63 3d  74 5e 33 3a 78 3d 45 63  |*t*t:Hc=t^3:x=Ec|
00003190  2a 72 62 2b 46 63 2a 7a  62 2b 47 63 2a 60 62 2b  |*rb+Fc*zb+Gc*`b+|
000031a0  48 63 2a 76 62 0d 0a 5a  28 79 3d 45 63 2a 73 62  |Hc*vb..Z(y=Ec*sb|
000031b0  2b 46 63 2a 5f 62 2b 47  63 2a 41 63 2b 48 63 2a  |+Fc*_b+Gc*Ac+Hc*|
000031c0  77 62 3a e7 49 62 25 3d  a3 df 78 2c 79 0d 0a 64  |wb:.Ib%=..x,y..d|
000031d0  1c e7 49 62 25 3d b9 f2  49 62 28 42 63 2c 43 63  |..Ib%=..Ib(Bc,Cc|
000031e0  2c 78 2c 79 2c 62 60 25  29 0d 0a 6e 11 42 63 3d  |,x,y,b`%)..n.Bc=|
000031f0  78 3a 43 63 3d 79 3a ed  3a e1 0d 0a 78 3c dd f2  |x:Cc=y:.:...x<..|
00003200  49 63 3a 59 60 25 3d 31  2b 59 60 25 83 36 3a 59  |Ic:Y`%=1+Y`%.6:Y|
00003210  60 24 3d bd 28 36 34 2b  59 60 25 29 3a f2 46 61  |`$=.(64+Y`%):.Fa|
00003220  28 33 29 3a 59 60 3d 30  2e 38 34 2b 59 60 25 2a  |(3):Y`=0.84+Y`%*|
00003230  30 2e 31 36 3a e1 0d 0a  82 26 dd f2 46 60 28 4a  |0.16:....&..F`(J|
00003240  63 25 29 3a 62 60 25 3d  62 60 25 2b 4a 63 25 3a  |c%):b`%=b`%+Jc%:|
00003250  e7 62 60 25 3d 36 20 62  60 25 3d 30 0d 0a 8c 11  |.b`%=6 b`%=0....|
00003260  e7 62 60 25 3d 2d 31 20  62 60 25 3d 35 0d 0a 96  |.b`%=-1 b`%=5...|
00003270  1b 4e 24 28 33 29 3d c3  28 62 60 25 2b 31 29 3a  |.N$(3)=.(b`%+1):|
00003280  f2 46 61 28 33 29 3a e1  0d 0a a0 10 dd f2 54 61  |.Fa(3):.......Ta|
00003290  3a e7 a6 28 2d 33 29 8c  0d 0a aa 22 7a 5f 25 3d  |:..(-3)...."z_%=|
000032a0  31 2d 7a 5f 25 3a d4 31  2c 2d 38 2c 32 30 30 2c  |1-z_%:.1,-8,200,|
000032b0  33 3a f5 fd ac a6 28 2d  33 29 0d 0a b4 0e cd 3a  |3:....(-3).....:|
000032c0  e7 7a 5f 25 3d 30 8c e1  0d 0a be 0e 2a 50 4f 49  |.z_%=0......*POI|
000032d0  4e 54 45 52 20 30 0d 0a  c8 df ea 4f 61 25 2c 50  |NTER 0.....Oa%,P|
000032e0  61 25 3a 4f 61 25 3d 58  25 3a 50 61 25 3d 59 25  |a%:Oa%=X%:Pa%=Y%|
000032f0  3a e6 34 2c 30 3a 86 4f  61 25 2d 31 36 30 30 2c  |:.4,0:.Oa%-1600,|
00003300  50 61 25 2c 4f 61 25 2b  31 36 30 30 2c 50 61 25  |Pa%,Oa%+1600,Pa%|
00003310  3a 86 4f 61 25 2c 50 61  25 2d 31 31 30 30 2c 4f  |:.Oa%,Pa%-1100,O|
00003320  61 25 2c 50 61 25 2b 31  31 30 30 3a f5 3a c8 97  |a%,Pa%+1100:.:..|
00003330  58 25 2c 59 25 2c 42 25  3a c8 96 3a 86 4f 61 25  |X%,Y%,B%:..:.Oa%|
00003340  2d 31 36 30 30 2c 50 61  25 2c 4f 61 25 2b 31 36  |-1600,Pa%,Oa%+16|
00003350  30 30 2c 50 61 25 3a 86  4f 61 25 2c 50 61 25 2d  |00,Pa%:.Oa%,Pa%-|
00003360  31 31 30 30 2c 4f 61 25  2c 50 61 25 2b 31 31 30  |1100,Oa%,Pa%+110|
00003370  30 3a 86 58 25 2d 31 36  30 30 2c 59 25 2c 58 25  |0:.X%-1600,Y%,X%|
00003380  2b 31 36 30 30 2c 59 25  3a 86 58 25 2c 59 25 2d  |+1600,Y%:.X%,Y%-|
00003390  31 31 30 30 2c 58 25 2c  59 25 2b 31 31 30 30 3a  |1100,X%,Y%+1100:|
000033a0  4f 61 25 3d 58 25 3a 50  61 25 3d 59 25 3a e7 a6  |Oa%=X%:Pa%=Y%:..|
000033b0  28 2d 33 29 8c 0d 0a d2  22 7a 5f 25 3d 31 2d 7a  |(-3)...."z_%=1-z|
000033c0  5f 25 3a d4 31 2c 2d 38  2c 32 30 30 2c 33 3a f5  |_%:.1,-8,200,3:.|
000033d0  fd ac a6 28 2d 33 29 0d  0a dc 0c cd 3a e7 4b 25  |...(-3).....:.K%|
000033e0  3d 35 8c 0d 0a e6 0c e7  a6 28 2d 32 30 29 8c 0d  |=5.......(-20)..|
000033f0  0a f0 18 54 60 3d 30 2e  32 35 3a ef 37 3a f5 fd  |...T`=0.25:.7:..|
00003400  ac a6 28 2d 32 30 29 0d  0a fa 0e cd 3a e7 a6 28  |..(-20).....:..(|
00003410  2d 31 39 29 8c 0d 0b 04  17 54 60 3d 30 2e 35 3a  |-19).....T`=0.5:|
00003420  ef 37 3a f5 fd ac a6 28  2d 31 39 29 0d 0b 0e 0e  |.7:....(-19)....|
00003430  cd 3a e7 a6 28 2d 31 38  29 8c 0d 0b 18 15 54 60  |.:..(-18).....T`|
00003440  3d 31 3a ef 37 3a f5 fd  ac a6 28 2d 31 38 29 0d  |=1:.7:....(-18).|
00003450  0b 22 0e cd 3a e7 a6 28  2d 35 30 29 8c 0d 0b 2c  |."..:..(-50)...,|
00003460  15 54 60 3d 32 3a ef 37  3a f5 fd ac a6 28 2d 35  |.T`=2:.7:....(-5|
00003470  30 29 0d 0b 36 0e cd 3a  e7 a6 28 2d 34 39 29 8c  |0)..6..:..(-49).|
00003480  0d 0b 40 15 54 60 3d 33  3a ef 37 3a f5 fd ac a6  |..@.T`=3:.7:....|
00003490  28 2d 34 39 29 0d 0b 4a  05 cd 0d 0b 54 51 cd 3a  |(-49)..J....TQ.:|
000034a0  fd 42 25 84 59 25 3c 59  5f 25 84 7a 5f 25 3d 30  |.B%.Y%<Y_%.z_%=0|
000034b0  84 a6 28 2d 33 38 29 3a  86 58 25 2d 31 36 30 30  |..(-38):.X%-1600|
000034c0  2c 59 25 2c 58 25 2b 31  36 30 30 2c 59 25 3a 86  |,Y%,X%+1600,Y%:.|
000034d0  58 25 2c 59 25 2d 31 31  30 30 2c 58 25 2c 59 25  |X%,Y%-1100,X%,Y%|
000034e0  2b 31 31 30 30 3a e7 42  25 8c e1 0d 0b 5e 10 ef  |+1100:.B%....^..|
000034f0  32 36 3a 2a 50 4f 49 4e  54 45 52 0d 0b 68 18 ef  |26:*POINTER..h..|
00003500  32 34 2c 30 3b 56 5f 25  3b 57 5f 25 3b 58 5f 25  |24,0;V_%;W_%;X_%|
00003510  3b 3a e1 0d 0b 72 10 dd  f2 59 61 3a e7 7a 5f 25  |;:...r...Ya:.z_%|
00003520  3d 30 e1 0d 0b 7c 0e 2a  50 4f 49 4e 54 45 52 20  |=0...|.*POINTER |
00003530  30 0d 0b 86 87 ef 32 33  2c 36 2c 26 46 46 2c 30  |0.....23,6,&FF,0|
00003540  2c 26 46 46 2c 30 2c 26  46 46 2c 30 2c 26 46 46  |,&FF,0,&FF,0,&FF|
00003550  2c 30 3a ec 4f 61 25 2d  31 36 30 30 2c 50 61 25  |,0:.Oa%-1600,Pa%|
00003560  3a f0 32 31 2c 4f 61 25  2b 31 36 30 30 2c 50 61  |:.21,Oa%+1600,Pa|
00003570  25 3a ef 32 33 2c 36 2c  26 46 30 2c 26 46 30 2c  |%:.23,6,&F0,&F0,|
00003580  26 46 30 2c 26 46 30 2c  26 46 30 2c 26 46 30 2c  |&F0,&F0,&F0,&F0,|
00003590  26 46 30 2c 26 46 30 3a  ec 4f 61 25 2c 50 61 25  |&F0,&F0:.Oa%,Pa%|
000035a0  2d 31 31 30 30 3a f0 32  31 2c 4f 61 25 2c 50 61  |-1100:.21,Oa%,Pa|
000035b0  25 2b 31 31 30 30 3a e1  0d 0b 90 10 dd f2 5a 61  |%+1100:.......Za|
000035c0  3a e7 7a 5f 25 3d 30 e1  0d 0b 9a 7f ef 32 33 2c  |:.z_%=0......23,|
000035d0  36 2c 26 46 46 2c 30 2c  26 46 46 2c 30 2c 26 46  |6,&FF,0,&FF,0,&F|
000035e0  46 2c 30 2c 26 46 46 2c  30 3a ec 58 25 2d 31 36  |F,0,&FF,0:.X%-16|
000035f0  30 30 2c 59 25 3a f0 32  31 2c 58 25 2b 31 36 30  |00,Y%:.21,X%+160|
00003600  30 2c 59 25 3a ef 32 33  2c 36 2c 26 46 30 2c 26  |0,Y%:.23,6,&F0,&|
00003610  46 30 2c 26 46 30 2c 26  46 30 2c 26 46 30 2c 26  |F0,&F0,&F0,&F0,&|
00003620  46 30 2c 26 46 30 2c 26  46 30 3a ec 58 25 2c 59  |F0,&F0,&F0:.X%,Y|
00003630  25 2d 31 31 30 30 3a f0  32 31 2c 58 25 2c 59 25  |%-1100:.21,X%,Y%|
00003640  2b 31 31 30 30 3a e1 0d  0b a4 35 dd f2 53 61 28  |+1100:....5..Sa(|
00003650  4b 63 25 2c 46 63 25 2c  4c 63 25 2c 47 63 25 2c  |Kc%,Fc%,Lc%,Gc%,|
00003660  4d 63 29 3a ea 41 25 2c  42 25 3a e7 4b 63 25 3e  |Mc):.A%,B%:.Kc%>|
00003670  4c 63 25 c8 94 4b 63 25  2c 4c 63 25 0d 0b ae 15  |Lc%..Kc%,Lc%....|
00003680  e7 46 63 25 3e 47 63 25  c8 94 46 63 25 2c 47 63  |.Fc%>Gc%..Fc%,Gc|
00003690  25 0d 0b b8 e2 41 25 3d  46 63 25 81 36 34 2b 28  |%....A%=Fc%.64+(|
000036a0  4b 63 25 80 33 33 29 2a  34 2b 28 4b 63 25 80 31  |Kc%.33)*4+(Kc%.1|
000036b0  34 29 2a 38 2b 28 4b 63  25 80 31 36 29 2f 32 3a  |4)*8+(Kc%.16)/2:|
000036c0  42 25 3d 47 63 25 81 36  34 2b 28 4c 63 25 80 33  |B%=Gc%.64+(Lc%.3|
000036d0  33 29 2a 34 2b 28 4c 63  25 80 31 34 29 2a 38 2b  |3)*4+(Lc%.14)*8+|
000036e0  28 4c 63 25 80 31 36 29  2f 32 3a ef 32 33 2c 32  |(Lc%.16)/2:.23,2|
000036f0  2c 41 25 2c 42 25 2c 41  25 2c 42 25 2c 41 25 2c  |,A%,B%,A%,B%,A%,|
00003700  42 25 2c 41 25 2c 42 25  3a ef 32 33 2c 33 2c 42  |B%,A%,B%:.23,3,B|
00003710  25 2c 41 25 2c 42 25 2c  41 25 2c 42 25 2c 41 25  |%,A%,B%,A%,B%,A%|
00003720  2c 42 25 2c 41 25 3a ef  32 33 2c 34 2c 41 25 2c  |,B%,A%:.23,4,A%,|
00003730  42 25 2c 41 25 2c 42 25  2c 41 25 2c 42 25 2c 41  |B%,A%,B%,A%,B%,A|
00003740  25 2c 42 25 3a ef 32 33  2c 35 2c 42 25 2c 41 25  |%,B%:.23,5,B%,A%|
00003750  2c 42 25 2c 41 25 2c 42  25 2c 41 25 2c 42 25 2c  |,B%,A%,B%,A%,B%,|
00003760  41 25 3a e6 38 30 2c 31  32 38 2b 4d 63 2a 31 32  |A%:.80,128+Mc*12|
00003770  38 3a e1 0d 0b c2 38 dd  f2 68 5f 3a f5 3a c8 97  |8:....8..h_:.:..|
00003780  58 25 2c 59 25 2c 42 25  3a f2 54 61 3a fd 42 25  |X%,Y%,B%:.Ta:.B%|
00003790  84 59 25 3c 59 5f 25 3a  e7 59 25 3c 59 5f 25 8c  |.Y%<Y_%:.Y%<Y_%.|
000037a0  63 5f 25 3d b9 3a f2 74  5f 3a e1 0d 0b cc 14 e7  |c_%=.:.t_:......|
000037b0  42 25 3d 34 80 a6 28 2d  31 29 f2 70 5f 3a e1 0d  |B%=4..(-1).p_:..|
000037c0  0b d6 14 e7 42 25 3d 31  80 a6 28 2d 31 29 f2 71  |....B%=1..(-1).q|
000037d0  5f 3a e1 0d 0b e0 6c f2  74 5f 3a 4e 63 25 3d 58  |_:....l.t_:Nc%=X|
000037e0  25 3a 4f 63 25 3d 59 25  3a 51 63 25 3d 58 25 3a  |%:Oc%=Y%:Qc%=X%:|
000037f0  52 63 25 3d 59 25 3a 52  31 3d 34 3a 52 32 3d 34  |Rc%=Y%:R1=4:R2=4|
00003800  3a 4f 61 25 3d 58 25 3a  50 61 25 3d 59 25 3a e6  |:Oa%=X%:Pa%=Y%:.|
00003810  34 2c 30 3a c8 8f 4e 63  25 2c 4f 63 25 2c 52 31  |4,0:..Nc%,Oc%,R1|
00003820  3a f2 59 61 3a f5 3a c8  97 58 25 2c 59 25 2c 42  |:.Ya:.:..X%,Y%,B|
00003830  25 3a e7 7a 5f 25 3d 31  f2 59 61 3a f2 5a 61 0d  |%:.z_%=1.Ya:.Za.|
00003840  0b ea 33 e7 42 25 3d 30  20 52 32 3d b6 28 28 58  |..3.B%=0 R2=.((X|
00003850  25 2d 4e 63 25 29 5e 32  2b 28 59 25 2d 4f 63 25  |%-Nc%)^2+(Y%-Oc%|
00003860  29 5e 32 29 3a 4f 61 25  3d 58 25 3a 50 61 25 3d  |)^2):Oa%=X%:Pa%=|
00003870  59 25 0d 0b f4 35 e7 42  25 3d 31 20 51 63 25 3d  |Y%...5.B%=1 Qc%=|
00003880  4e 63 25 2b 58 25 2d 4f  61 25 3a 52 63 25 3d 4f  |Nc%+X%-Oa%:Rc%=O|
00003890  63 25 2b 59 25 2d 50 61  25 3a 4f 61 25 3d 58 25  |c%+Y%-Pa%:Oa%=X%|
000038a0  3a 50 61 25 3d 59 25 0d  0b fe 23 c8 96 3a c8 96  |:Pa%=Y%...#..:..|
000038b0  3a e7 a6 28 2d 39 39 29  c8 8f 4e 63 25 2c 4f 63  |:..(-99)..Nc%,Oc|
000038c0  25 2c 52 31 3a f2 59 61  3a e1 0d 0c 08 24 c8 8f  |%,R1:.Ya:....$..|
000038d0  4e 63 25 2c 4f 63 25 2c  52 31 3a c8 8f 51 63 25  |Nc%,Oc%,R1:..Qc%|
000038e0  2c 52 63 25 2c 52 32 3a  e7 42 25 3d 35 8c 0d 0c  |,Rc%,R2:.B%=5...|
000038f0  12 1f f2 5a 61 3a e7 71  5f 25 3d a3 e6 30 2c 4e  |...Za:.q_%=..0,N|
00003900  5f 25 c8 9c 4f 5f 25 8b  e6 38 30 2c 30 0d 0c 1c  |_%..O_%..80,0...|
00003910  53 c8 8f 51 63 25 2c 52  63 25 2c 52 32 3a e6 34  |S..Qc%,Rc%,R2:.4|
00003920  2c 30 3a c8 8f 51 63 25  2c 52 63 25 2c 52 32 3a  |,0:..Qc%,Rc%,R2:|
00003930  f5 3a c8 97 58 25 2c 59  25 2c 42 25 3a fd 42 25  |.:..X%,Y%,B%:.B%|
00003940  3c 3e 35 3a c8 97 b8 4f  61 25 2c 50 61 25 3a 58  |<>5:...Oa%,Pa%:X|
00003950  25 3d 4f 61 25 3a 59 25  3d 50 61 25 3a f2 59 61  |%=Oa%:Y%=Pa%:.Ya|
00003960  0d 0c 26 0c cd 3a e7 42  25 3d 33 8c 0d 0c 30 1f  |..&..:.B%=3...0.|
00003970  f2 5a 61 3a e7 71 5f 25  3d a3 e6 30 2c 4e 5f 25  |.Za:.q_%=..0,N_%|
00003980  c8 9c 4f 5f 25 8b e6 38  30 2c 30 0d 0c 3a 55 c8  |..O_%..80,0..:U.|
00003990  8f c8 90 51 63 25 2c 52  63 25 2c 52 32 3a e6 34  |...Qc%,Rc%,R2:.4|
000039a0  2c 30 3a c8 8f 51 63 25  2c 52 63 25 2c 52 32 3a  |,0:..Qc%,Rc%,R2:|
000039b0  f5 3a c8 97 58 25 2c 59  25 2c 42 25 3a fd 42 25  |.:..X%,Y%,B%:.B%|
000039c0  3c 3e 33 3a c8 97 b8 4f  61 25 2c 50 61 25 3a 58  |<>3:...Oa%,Pa%:X|
000039d0  25 3d 4f 61 25 3a 59 25  3d 50 61 25 3a f2 59 61  |%=Oa%:Y%=Pa%:.Ya|
000039e0  0d 0c 44 1a cd 3a e7 28  42 25 3d 32 84 42 25 3d  |..D..:.(B%=2.B%=|
000039f0  34 29 80 a6 28 2d 38 33  29 8c 0d 0c 4e 1f f2 5a  |4)..(-83)...N..Z|
00003a00  61 3a e7 71 5f 25 3d a3  e6 30 2c 4e 5f 25 c8 9c  |a:.q_%=..0,N_%..|
00003a10  4f 5f 25 8b e6 38 30 2c  30 0d 0c 58 15 e7 42 25  |O_%..80,0..X..B%|
00003a20  3d 34 c8 8f 4e 63 25 2c  4f 63 25 2c 52 32 0d 0c  |=4..Nc%,Oc%,R2..|
00003a30  62 17 e7 42 25 3d 32 c8  8f c8 90 4e 63 25 2c 4f  |b..B%=2....Nc%,O|
00003a40  63 25 2c 52 32 0d 0c 6c  19 e6 34 2c 30 3a c8 8f  |c%,R2..l..4,0:..|
00003a50  4e 63 25 2c 4f 63 25 2c  52 32 3a f2 59 61 0d 0c  |Nc%,Oc%,R2:.Ya..|
00003a60  76 4c cd 3a 52 31 3d 52  32 3a 4e 63 25 3d 51 63  |vL.:R1=R2:Nc%=Qc|
00003a70  25 3a 4f 63 25 3d 52 63  25 3a fd 28 42 25 3d 32  |%:Oc%=Rc%:.(B%=2|
00003a80  84 42 25 3d 34 29 80 ac  a6 28 2d 38 33 29 3a f2  |.B%=4)...(-83):.|
00003a90  5a 61 3a e7 71 5f 25 3d  a3 e6 30 2c 4e 5f 25 c8  |Za:.q_%=..0,N_%.|
00003aa0  9c 4f 5f 25 8b e6 38 30  2c 30 0d 0c 80 15 e7 42  |.O_%..80,0.....B|
00003ab0  25 3d 34 c8 8f 51 63 25  2c 52 63 25 2c 52 32 0d  |%=4..Qc%,Rc%,R2.|
00003ac0  0c 8a 17 e7 42 25 3d 32  c8 8f c8 90 51 63 25 2c  |....B%=2....Qc%,|
00003ad0  52 63 25 2c 52 32 0d 0c  94 09 f2 74 5f 3a e1 0d  |Rc%,R2.....t_:..|
00003ae0  0c 9e 1d dd f2 69 5f 3a  f5 3a c8 97 58 25 2c 59  |.....i_:.:..X%,Y|
00003af0  25 2c 42 25 3a e7 7a 5f  25 3d 30 8c 0d 0c a8 0c  |%,B%:.z_%=0.....|
00003b00  e7 a6 28 2d 32 30 29 8c  0d 0c b2 18 54 60 3d 30  |..(-20).....T`=0|
00003b10  2e 32 35 3a ef 37 3a f5  fd ac a6 28 2d 32 30 29  |.25:.7:....(-20)|
00003b20  0d 0c bc 0e cd 3a e7 a6  28 2d 31 39 29 8c 0d 0c  |.....:..(-19)...|
00003b30  c6 17 54 60 3d 30 2e 35  3a ef 37 3a f5 fd ac a6  |..T`=0.5:.7:....|
00003b40  28 2d 31 39 29 0d 0c d0  0e cd 3a e7 a6 28 2d 31  |(-19).....:..(-1|
00003b50  38 29 8c 0d 0c da 15 54  60 3d 31 3a ef 37 3a f5  |8).....T`=1:.7:.|
00003b60  fd ac a6 28 2d 31 38 29  0d 0c e4 0e cd 3a e7 a6  |...(-18).....:..|
00003b70  28 2d 35 30 29 8c 0d 0c  ee 15 54 60 3d 32 3a ef  |(-50).....T`=2:.|
00003b80  37 3a f5 fd ac a6 28 2d  35 30 29 0d 0c f8 0e cd  |7:....(-50).....|
00003b90  3a e7 a6 28 2d 34 39 29  8c 0d 0d 02 15 54 60 3d  |:..(-49).....T`=|
00003ba0  33 3a ef 37 3a f5 fd ac  a6 28 2d 34 39 29 0d 0d  |3:.7:....(-49)..|
00003bb0  0c 05 cd 0d 0d 16 31 cd  3a f2 54 61 3a fd 42 25  |......1.:.Ta:.B%|
00003bc0  84 59 25 3c 59 5f 25 3a  e7 59 25 3c 59 5f 25 8c  |.Y%<Y_%:.Y%<Y_%.|
00003bd0  63 5f 25 3d b9 3a f2 74  5f 3a c8 99 36 2c 32 31  |c_%=.:.t_:..6,21|
00003be0  2c 30 3a e1 0d 0d 20 1d  e7 42 25 3d 31 80 ac a6  |,0:... ..B%=1...|
00003bf0  28 2d 31 29 8c f2 47 60  28 31 29 3a f2 74 5f 3a  |(-1)..G`(1):.t_:|
00003c00  e1 0d 0d 2a 17 e7 42 25  3d 32 8c f2 47 60 28 2d  |...*..B%=2..G`(-|
00003c10  31 29 3a f2 74 5f 3a e1  0d 0d 34 15 e7 42 25 3d  |1):.t_:...4..B%=|
00003c20  34 80 a6 28 2d 31 29 8c  f2 70 5f 3a e1 0d 0d 3e  |4..(-1)..p_:...>|
00003c30  15 e7 42 25 3d 31 80 a6  28 2d 31 29 8c f2 71 5f  |..B%=1..(-1)..q_|
00003c40  3a e1 0d 0d 48 11 e7 42  25 3d 34 80 ac a6 28 2d  |:...H..B%=4...(-|
00003c50  31 29 8c 0d 0d 52 1d 53  63 25 3d 32 5e 28 52 25  |1)...R.Sc%=2^(R%|
00003c60  2d 31 29 3a ef 32 36 3a  2a 50 4f 49 4e 54 45 52  |-1):.26:*POINTER|
00003c70  0d 0d 5c 4c 63 60 25 3d  54 60 2a 28 39 30 2d 36  |..\Lc`%=T`*(90-6|
00003c80  2a 52 25 29 3a ef 32 34  2c 30 3b 56 5f 25 3b 57  |*R%):.24,0;V_%;W|
00003c90  5f 25 3b 58 5f 25 3b 3a  e6 4e 5f 25 c8 9c 4f 5f  |_%;X_%;:.N_%..O_|
00003ca0  25 3a ec 58 25 2c 59 25  3a e7 a6 28 2d 39 39 29  |%:.X%,Y%:..(-99)|
00003cb0  80 52 25 3e 33 f2 54 63  8b f2 55 63 0d 0d 66 19  |.R%>3.Tc..Uc..f.|
00003cc0  e7 71 5f 25 3d b9 e6 38  30 2c 30 8b e6 4e 5f 25  |.q_%=..80,0..N_%|
00003cd0  c8 9c 4f 5f 25 0d 0d 70  07 cd 3a e1 0d 0d 7a 26  |..O_%..p..:...z&|
00003ce0  dd f2 55 63 3a 64 60 25  3d a3 3a e6 30 2c 4e 5f  |..Uc:d`%=.:.0,N_|
00003cf0  25 c8 9c 4f 5f 25 3a e7  71 5f 25 3d b9 e6 38 30  |%..O_%:.q_%=..80|
00003d00  2c 30 0d 0d 84 63 76 60  25 3d 58 25 2a 63 60 25  |,0...cv`%=X%*c`%|
00003d10  3a 77 60 25 3d 59 25 2a  63 60 25 3a 78 60 25 3d  |:w`%=Y%*c`%:x`%=|
00003d20  30 3a 58 25 28 29 3d 58  25 3a 59 25 28 29 3d 59  |0:X%()=X%:Y%()=Y|
00003d30  25 3a 69 62 25 3d 58 25  3a 6a 62 25 3d 59 25 3a  |%:ib%=X%:jb%=Y%:|
00003d40  f5 3a c8 97 58 25 2c 59  25 2c 42 25 3a e7 a6 28  |.:..X%,Y%,B%:..(|
00003d50  2d 31 30 30 29 c8 97 b8  69 62 25 2c 59 25 3a 58  |-100)...ib%,Y%:X|
00003d60  25 3d 69 62 25 0d 0d 8e  13 e7 ac a6 28 2d 31 30  |%=ib%.......(-10|
00003d70  30 29 69 62 25 3d 58 25  0d 0d 98 1b e7 a6 28 2d  |0)ib%=X%......(-|
00003d80  38 35 29 c8 97 b8 58 25  2c 6a 62 25 3a 59 25 3d  |85)...X%,jb%:Y%=|
00003d90  6a 62 25 0d 0d a2 12 e7  ac a6 28 2d 38 35 29 6a  |jb%.......(-85)j|
00003da0  62 25 3d 59 25 0d 0d ac  2c f2 7a 60 28 58 25 2c  |b%=Y%...,.z`(X%,|
00003db0  59 25 2c 63 60 25 29 3a  e7 52 25 3d 31 df 58 25  |Y%,c`%):.R%=1.X%|
00003dc0  2c 59 25 8b c8 8f c8 90  58 25 2c 59 25 2c 53 63  |,Y%.....X%,Y%,Sc|
00003dd0  25 0d 0d b6 16 e7 a6 28  2d 39 39 29 80 52 25 3e  |%......(-99).R%>|
00003de0  33 20 64 60 25 3d b9 0d  0d c0 1e fd 42 25 3d 30  |3 d`%=......B%=0|
00003df0  84 64 60 25 3d b9 3a e7  52 25 3e 32 80 64 60 25  |.d`%=.:.R%>2.d`%|
00003e00  3d b9 f2 54 63 0d 0d ca  05 e1 0d 0d d4 21 dd f2  |=..Tc........!..|
00003e10  54 63 3a 73 60 25 3d 58  25 3a 74 60 25 3d 59 25  |Tc:s`%=X%:t`%=Y%|
00003e20  3a 2a 50 4f 49 4e 54 45  52 20 30 0d 0d de 79 75  |:*POINTER 0...yu|
00003e30  60 25 3d 54 60 2a 28 35  30 2d 35 2a 52 25 29 3a  |`%=T`*(50-5*R%):|
00003e40  76 60 25 3d 58 25 2a 75  60 25 3a 77 60 25 3d 59  |v`%=X%*u`%:w`%=Y|
00003e50  25 2a 75 60 25 3a 78 60  25 3d 30 3a 58 25 28 29  |%*u`%:x`%=0:X%()|
00003e60  3d 58 25 3a 59 25 28 29  3d 59 25 3a e6 34 2c 30  |=X%:Y%()=Y%:.4,0|
00003e70  3a c8 8f 73 60 25 2c 74  60 25 2c 53 63 25 3a f5  |:..s`%,t`%,Sc%:.|
00003e80  3a c8 97 58 25 2c 59 25  2c 42 25 3a e7 a6 28 2d  |:..X%,Y%,B%:..(-|
00003e90  31 30 30 29 c8 97 b8 69  62 25 2c 59 25 3a 58 25  |100)...ib%,Y%:X%|
00003ea0  3d 69 62 25 0d 0d e8 13  e7 ac a6 28 2d 31 30 30  |=ib%.......(-100|
00003eb0  29 69 62 25 3d 58 25 0d  0d f2 1b e7 a6 28 2d 38  |)ib%=X%......(-8|
00003ec0  35 29 c8 97 b8 58 25 2c  6a 62 25 3a 59 25 3d 6a  |5)...X%,jb%:Y%=j|
00003ed0  62 25 0d 0d fc 12 e7 ac  a6 28 2d 38 35 29 6a 62  |b%.......(-85)jb|
00003ee0  25 3d 59 25 0d 0e 06 42  f2 7a 60 28 58 25 2c 59  |%=Y%...B.z`(X%,Y|
00003ef0  25 2c 75 60 25 29 3a e3  49 25 3d 31 b8 33 30 30  |%,u`%):.I%=1.300|
00003f00  3a ed 3a c8 8f 73 60 25  2c 74 60 25 2c 53 63 25  |:.:..s`%,t`%,Sc%|
00003f10  3a e7 71 5f 25 3d a3 e6  4e 5f 25 c8 9c 4f 5f 25  |:.q_%=..N_%..O_%|
00003f20  8b e6 38 30 2c 30 0d 0e  10 3e c8 8f c8 90 58 25  |..80,0...>....X%|
00003f30  2c 59 25 2c 53 63 25 3a  e6 34 2c 30 3a c8 8f 58  |,Y%,Sc%:.4,0:..X|
00003f40  25 2c 59 25 2c 53 63 25  3a 73 60 25 3d 58 25 3a  |%,Y%,Sc%:s`%=X%:|
00003f50  74 60 25 3d 59 25 3a e7  ac a6 28 2d 39 39 29 64  |t`%=Y%:...(-99)d|
00003f60  60 25 3d a3 0d 0e 1a 28  fd 42 25 3d 30 84 64 60  |`%=....(.B%=0.d`|
00003f70  25 3d a3 3a c8 8f 58 25  2c 59 25 2c 53 63 25 3a  |%=.:..X%,Y%,Sc%:|
00003f80  ef 32 36 3a 2a 50 4f 49  4e 54 45 52 0d 0e 24 20  |.26:*POINTER..$ |
00003f90  ef 32 34 2c 30 3b 56 5f  25 3b 57 5f 25 3b 58 5f  |.24,0;V_%;W_%;X_|
00003fa0  25 3b 3a e7 64 60 25 3d  a3 f2 55 63 0d 0e 2e 05  |%;:.d`%=..Uc....|
00003fb0  e1 0d 0e 38 9d dd f2 7a  60 28 f8 78 25 2c f8 79  |...8...z`(.x%,.y|
00003fc0  25 2c 63 60 25 29 3a 56  63 25 3d 76 60 25 3a 57  |%,c`%):Vc%=v`%:W|
00003fd0  63 25 3d 77 60 25 3a 76  60 25 3d 76 60 25 2d 58  |c%=w`%:v`%=v`%-X|
00003fe0  25 28 78 60 25 29 2b 78  25 3a 77 60 25 3d 77 60  |%(x`%)+x%:w`%=w`|
00003ff0  25 2d 59 25 28 78 60 25  29 2b 79 25 3a 58 25 28  |%-Y%(x`%)+y%:X%(|
00004000  78 60 25 29 3d 78 25 3a  59 25 28 78 60 25 29 3d  |x`%)=x%:Y%(x`%)=|
00004010  79 25 3a 78 25 3d 28 56  63 25 2b 76 60 25 29 81  |y%:x%=(Vc%+v`%).|
00004020  28 32 2a 63 60 25 29 3a  79 25 3d 28 57 63 25 2b  |(2*c`%):y%=(Wc%+|
00004030  77 60 25 29 81 28 32 2a  63 60 25 29 3a 78 60 25  |w`%).(2*c`%):x`%|
00004040  3d 28 78 60 25 2b 31 29  83 63 60 25 3a e1 0d 0e  |=(x`%+1).c`%:...|
00004050  42 22 dd f2 47 60 28 4a  63 25 29 3a 52 25 3d 52  |B"..G`(Jc%):R%=R|
00004060  25 2b 4a 63 25 3a e7 52  25 3d 37 8c 52 25 3d 31  |%+Jc%:.R%=7.R%=1|
00004070  0d 0e 4c 0e e7 52 25 3d  30 8c 52 25 3d 36 0d 0e  |..L..R%=0.R%=6..|
00004080  56 18 4e 24 28 35 29 3d  c3 28 52 25 29 3a f2 46  |V.N$(5)=.(R%):.F|
00004090  61 28 35 29 3a e1 0d 0e  60 38 dd f2 66 5f 3a f5  |a(5):...`8..f_:.|
000040a0  3a c8 97 58 25 2c 59 25  2c 42 25 3a f2 54 61 3a  |:..X%,Y%,B%:.Ta:|
000040b0  fd 42 25 84 59 25 3c 59  5f 25 3a e7 59 25 3c 59  |.B%.Y%<Y_%:.Y%<Y|
000040c0  5f 25 8c 63 5f 25 3d b9  3a f2 74 5f 3a e1 0d 0e  |_%.c_%=.:.t_:...|
000040d0  6a 14 e7 42 25 3d 34 80  a6 28 2d 31 29 f2 70 5f  |j..B%=4..(-1).p_|
000040e0  3a e1 0d 0e 74 14 e7 42  25 3d 31 80 a6 28 2d 31  |:...t..B%=1..(-1|
000040f0  29 f2 71 5f 3a e1 0d 0e  7e 85 f2 74 5f 3a 4e 63  |).q_:...~..t_:Nc|
00004100  25 3d 58 25 3a 4f 63 25  3d 59 25 3a 51 63 25 3d  |%=X%:Oc%=Y%:Qc%=|
00004110  58 25 3a 52 63 25 3d 59  25 3a 58 63 25 3d 34 3a  |X%:Rc%=Y%:Xc%=4:|
00004120  59 63 25 3d 34 3a 5a 63  25 3d 34 3a 61 63 25 3d  |Yc%=4:Zc%=4:ac%=|
00004130  34 3a 4c 25 3d 30 3a 62  63 25 3d 30 3a 4f 61 25  |4:L%=0:bc%=0:Oa%|
00004140  3d 58 25 3a 50 61 25 3d  59 25 3a e6 34 2c 30 3a  |=X%:Pa%=Y%:.4,0:|
00004150  f2 59 61 3a c8 9d 4e 63  25 2c 4f 63 25 2c 58 63  |.Ya:..Nc%,Oc%,Xc|
00004160  25 2c 59 63 25 3a f5 3a  c8 97 58 25 2c 59 25 2c  |%,Yc%:.:..X%,Y%,|
00004170  42 25 3a e7 a6 28 2d 39  39 29 8c 0d 0e 88 37 f2  |B%:..(-99)....7.|
00004180  59 61 3a e7 4c 25 3c 3e  30 c8 9d 4e 63 25 2c 4f  |Ya:.L%<>0..Nc%,O|
00004190  63 25 2c 58 63 25 2c 59  63 25 2c b2 28 4c 25 29  |c%,Xc%,Yc%,.(L%)|
000041a0  8b c8 9d 4e 63 25 2c 4f  63 25 2c 58 63 25 2c 59  |...Nc%,Oc%,Xc%,Y|
000041b0  63 25 0d 0e 92 05 e1 0d  0e 9c 13 cd 3a e7 7a 5f  |c%..........:.z_|
000041c0  25 3d 31 f2 59 61 3a f2  5a 61 0d 0e a6 33 e7 42  |%=1.Ya:.Za...3.B|
000041d0  25 3d 30 20 5a 63 25 3d  94 28 58 25 2d 4e 63 25  |%=0 Zc%=.(X%-Nc%|
000041e0  29 3a 61 63 25 3d 94 28  59 25 2d 4f 63 25 29 3a  |):ac%=.(Y%-Oc%):|
000041f0  4f 61 25 3d 58 25 3a 50  61 25 3d 59 25 0d 0e b0  |Oa%=X%:Pa%=Y%...|
00004200  35 e7 42 25 3d 31 20 51  63 25 3d 4e 63 25 2b 58  |5.B%=1 Qc%=Nc%+X|
00004210  25 2d 4f 61 25 3a 52 63  25 3d 4f 63 25 2b 59 25  |%-Oa%:Rc%=Oc%+Y%|
00004220  2d 50 61 25 3a 4f 61 25  3d 58 25 3a 50 61 25 3d  |-Pa%:Oa%=X%:Pa%=|
00004230  59 25 0d 0e ba 10 e7 5a  63 25 3c 34 8c 5a 63 25  |Y%.....Zc%<4.Zc%|
00004240  3d 34 0d 0e c4 10 e7 61  63 25 3c 34 8c 61 63 25  |=4.....ac%<4.ac%|
00004250  3d 34 0d 0e ce 0c e7 a6  28 2d 36 37 29 8c 0d 0e  |=4......(-67)...|
00004260  d8 20 62 63 25 3d 28 4c  25 2d 33 29 83 33 36 30  |. bc%=(L%-3).360|
00004270  3a e7 4c 25 3d 30 20 62  63 25 3d 33 35 37 0d 0e  |:.L%=0 bc%=357..|
00004280  e2 0e cd 3a e7 a6 28 2d  39 38 29 8c 0d 0e ec 21  |...:..(-98)....!|
00004290  62 63 25 3d 28 4c 25 2b  33 29 83 33 36 30 3a e7  |bc%=(L%+3).360:.|
000042a0  62 63 25 3d 33 36 30 20  62 63 25 3d 30 0d 0e f6  |bc%=360 bc%=0...|
000042b0  3b cd 3a c8 96 3a c8 96  3a e7 4c 25 3c 3e 30 c8  |;.:..:..:.L%<>0.|
000042c0  9d 4e 63 25 2c 4f 63 25  2c 58 63 25 2c 59 63 25  |.Nc%,Oc%,Xc%,Yc%|
000042d0  2c b2 28 4c 25 29 8b c8  9d 4e 63 25 2c 4f 63 25  |,.(L%)...Nc%,Oc%|
000042e0  2c 58 63 25 2c 59 63 25  0d 0f 00 35 e7 62 63 25  |,Xc%,Yc%...5.bc%|
000042f0  3c 3e 30 c8 9d 51 63 25  2c 52 63 25 2c 5a 63 25  |<>0..Qc%,Rc%,Zc%|
00004300  2c 61 63 25 2c b2 28 62  63 25 29 8b c8 9d 51 63  |,ac%,.(bc%)...Qc|
00004310  25 2c 52 63 25 2c 5a 63  25 2c 61 63 25 0d 0f 0a  |%,Rc%,Zc%,ac%...|
00004320  0a e7 42 25 3d 35 8c 0d  0f 14 1f f2 5a 61 3a e7  |..B%=5......Za:.|
00004330  71 5f 25 3d a3 e6 30 2c  4e 5f 25 c8 9c 4f 5f 25  |q_%=..0,N_%..O_%|
00004340  8b e6 38 30 2c 30 0d 0f  1e 35 e7 62 63 25 3c 3e  |..80,0...5.bc%<>|
00004350  30 c8 9d 51 63 25 2c 52  63 25 2c 5a 63 25 2c 61  |0..Qc%,Rc%,Zc%,a|
00004360  63 25 2c b2 28 62 63 25  29 8b c8 9d 51 63 25 2c  |c%,.(bc%)...Qc%,|
00004370  52 63 25 2c 5a 63 25 2c  61 63 25 0d 0f 28 4e f5  |Rc%,Zc%,ac%..(N.|
00004380  3a c8 97 58 25 2c 59 25  2c 42 25 3a fd 42 25 3c  |:..X%,Y%,B%:.B%<|
00004390  3e 35 3a e6 34 2c 30 3a  e7 62 63 25 3c 3e 30 c8  |>5:.4,0:.bc%<>0.|
000043a0  9d 51 63 25 2c 52 63 25  2c 5a 63 25 2c 61 63 25  |.Qc%,Rc%,Zc%,ac%|
000043b0  2c b2 28 62 63 25 29 8b  c8 9d 51 63 25 2c 52 63  |,.(bc%)...Qc%,Rc|
000043c0  25 2c 5a 63 25 2c 61 63  25 0d 0f 32 20 c8 97 b8  |%,Zc%,ac%..2 ...|
000043d0  4f 61 25 2c 50 61 25 3a  58 25 3d 4f 61 25 3a 59  |Oa%,Pa%:X%=Oa%:Y|
000043e0  25 3d 50 61 25 3a f2 59  61 0d 0f 3c 0c cd 3a e7  |%=Pa%:.Ya..<..:.|
000043f0  42 25 3d 33 8c 0d 0f 46  1f f2 5a 61 3a e7 71 5f  |B%=3...F..Za:.q_|
00004400  25 3d a3 e6 30 2c 4e 5f  25 c8 9c 4f 5f 25 8b e6  |%=..0,N_%..O_%..|
00004410  38 30 2c 30 0d 0f 50 39  e7 62 63 25 3c 3e 30 c8  |80,0..P9.bc%<>0.|
00004420  9d c8 90 51 63 25 2c 52  63 25 2c 5a 63 25 2c 61  |...Qc%,Rc%,Zc%,a|
00004430  63 25 2c b2 28 62 63 25  29 8b c8 9d c8 90 51 63  |c%,.(bc%).....Qc|
00004440  25 2c 52 63 25 2c 5a 63  25 2c 61 63 25 0d 0f 5a  |%,Rc%,Zc%,ac%..Z|
00004450  4e f5 3a c8 97 58 25 2c  59 25 2c 42 25 3a fd 42  |N.:..X%,Y%,B%:.B|
00004460  25 3c 3e 33 3a e6 34 2c  30 3a e7 62 63 25 3c 3e  |%<>3:.4,0:.bc%<>|
00004470  30 c8 9d 51 63 25 2c 52  63 25 2c 5a 63 25 2c 61  |0..Qc%,Rc%,Zc%,a|
00004480  63 25 2c b2 28 62 63 25  29 8b c8 9d 51 63 25 2c  |c%,.(bc%)...Qc%,|
00004490  52 63 25 2c 5a 63 25 2c  61 63 25 0d 0f 64 20 c8  |Rc%,Zc%,ac%..d .|
000044a0  97 b8 4f 61 25 2c 50 61  25 3a 58 25 3d 4f 61 25  |..Oa%,Pa%:X%=Oa%|
000044b0  3a 59 25 3d 50 61 25 3a  f2 59 61 0d 0f 6e 1a cd  |:Y%=Pa%:.Ya..n..|
000044c0  3a e7 28 42 25 3d 32 84  42 25 3d 34 29 80 a6 28  |:.(B%=2.B%=4)..(|
000044d0  2d 38 33 29 8c 0d 0f 78  1f f2 5a 61 3a e7 71 5f  |-83)...x..Za:.q_|
000044e0  25 3d a3 e6 30 2c 4e 5f  25 c8 9c 4f 5f 25 8b e6  |%=..0,N_%..O_%..|
000044f0  38 30 2c 30 0d 0f 82 0a  e7 42 25 3d 34 8c 0d 0f  |80,0.....B%=4...|
00004500  8c 35 e7 62 63 25 3c 3e  30 c8 9d 51 63 25 2c 52  |.5.bc%<>0..Qc%,R|
00004510  63 25 2c 5a 63 25 2c 61  63 25 2c b2 28 62 63 25  |c%,Zc%,ac%,.(bc%|
00004520  29 8b c8 9d 51 63 25 2c  52 63 25 2c 5a 63 25 2c  |)...Qc%,Rc%,Zc%,|
00004530  61 63 25 0d 0f 96 0c cd  3a e7 42 25 3d 32 8c 0d  |ac%.....:.B%=2..|
00004540  0f a0 39 e7 62 63 25 3c  3e 30 c8 9d c8 90 51 63  |..9.bc%<>0....Qc|
00004550  25 2c 52 63 25 2c 5a 63  25 2c 61 63 25 2c b2 28  |%,Rc%,Zc%,ac%,.(|
00004560  62 63 25 29 8b c8 9d c8  90 51 63 25 2c 52 63 25  |bc%).....Qc%,Rc%|
00004570  2c 5a 63 25 2c 61 63 25  0d 0f aa 3c cd 3a e6 34  |,Zc%,ac%...<.:.4|
00004580  2c 30 3a e7 62 63 25 3c  3e 30 c8 9d 51 63 25 2c  |,0:.bc%<>0..Qc%,|
00004590  52 63 25 2c 5a 63 25 2c  61 63 25 2c b2 28 62 63  |Rc%,Zc%,ac%,.(bc|
000045a0  25 29 8b c8 9d 51 63 25  2c 52 63 25 2c 5a 63 25  |%)...Qc%,Rc%,Zc%|
000045b0  2c 61 63 25 0d 0f b4 07  f2 59 61 0d 0f be 5d cd  |,ac%.....Ya...].|
000045c0  3a 4e 63 25 3d 51 63 25  3a 4f 63 25 3d 52 63 25  |:Nc%=Qc%:Oc%=Rc%|
000045d0  3a 58 63 25 3d 5a 63 25  3a 59 63 25 3d 61 63 25  |:Xc%=Zc%:Yc%=ac%|
000045e0  3a 4c 25 3d 62 63 25 3a  fd 28 42 25 3d 32 84 42  |:L%=bc%:.(B%=2.B|
000045f0  25 3d 34 29 80 ac a6 28  2d 38 33 29 3a f2 5a 61  |%=4)...(-83):.Za|
00004600  3a e7 71 5f 25 3d a3 e6  30 2c 4e 5f 25 c8 9c 4f  |:.q_%=..0,N_%..O|
00004610  5f 25 8b e6 38 30 2c 30  0d 0f c8 0a e7 42 25 3d  |_%..80,0.....B%=|
00004620  34 8c 0d 0f d2 35 e7 62  63 25 3c 3e 30 c8 9d 51  |4....5.bc%<>0..Q|
00004630  63 25 2c 52 63 25 2c 5a  63 25 2c 61 63 25 2c b2  |c%,Rc%,Zc%,ac%,.|
00004640  28 62 63 25 29 8b c8 9d  51 63 25 2c 52 63 25 2c  |(bc%)...Qc%,Rc%,|
00004650  5a 63 25 2c 61 63 25 0d  0f dc 0c cd 3a e7 42 25  |Zc%,ac%.....:.B%|
00004660  3d 32 8c 0d 0f e6 39 e7  62 63 25 3c 3e 30 c8 9d  |=2....9.bc%<>0..|
00004670  c8 90 51 63 25 2c 52 63  25 2c 5a 63 25 2c 61 63  |..Qc%,Rc%,Zc%,ac|
00004680  25 2c b2 28 62 63 25 29  8b c8 9d c8 90 51 63 25  |%,.(bc%).....Qc%|
00004690  2c 52 63 25 2c 5a 63 25  2c 61 63 25 0d 0f f0 0b  |,Rc%,Zc%,ac%....|
000046a0  cd 3a f2 74 5f 3a e1 0d  0f fa 25 dd f2 6d 5f 3a  |.:.t_:....%..m_:|
000046b0  f5 3a c8 97 58 25 2c 59  25 2c 42 25 3a f2 54 61  |.:..X%,Y%,B%:.Ta|
000046c0  3a e7 a6 28 2d 33 38 29  8c f2 5f 5f 0d 10 04 22  |:..(-38)..__..."|
000046d0  fd 42 25 84 59 25 3c 59  5f 25 3a e7 59 25 3c 59  |.B%.Y%<Y_%:.Y%<Y|
000046e0  5f 25 8c 63 5f 25 3d b9  3a f2 74 5f 3a e1 0d 10  |_%.c_%=.:.t_:...|
000046f0  0e 14 e7 42 25 3d 34 80  a6 28 2d 31 29 f2 70 5f  |...B%=4..(-1).p_|
00004700  3a e1 0d 10 18 14 e7 42  25 3d 31 80 a6 28 2d 31  |:......B%=1..(-1|
00004710  29 f2 71 5f 3a e1 0d 10  22 11 e7 42 25 3d 31 80  |).q_:..."..B%=1.|
00004720  ac a6 28 2d 31 29 8c 0d  10 2c 16 4e 25 3d 4e 25  |..(-1)...,.N%=N%|
00004730  2b 31 3a e7 4e 25 3e 39  8c 4e 25 3d 33 0d 10 36  |+1:.N%>9.N%=3..6|
00004740  1c 4e 24 28 39 29 3d c3  28 4e 25 29 3a f2 46 61  |.N$(9)=.(N%):.Fa|
00004750  28 39 29 3a f2 74 5f 3a  e1 0d 10 40 24 cd 3a e7  |(9):.t_:...@$.:.|
00004760  42 25 3d 32 20 46 25 3d  28 46 25 2b 31 29 83 33  |B%=2 F%=(F%+1).3|
00004770  3a f2 46 61 28 39 29 3a  f2 74 5f 3a e1 0d 10 4a  |:.Fa(9):.t_:...J|
00004780  10 ef 32 36 3a 2a 50 4f  49 4e 54 45 52 0d 10 54  |..26:*POINTER..T|
00004790  76 ef 32 34 2c 30 3b 56  5f 25 3b 57 5f 25 3b 58  |v.24,0;V_%;W_%;X|
000047a0  5f 25 3b 3a f2 74 5f 3a  4e 63 25 3d 58 25 3a 4f  |_%;:.t_:Nc%=X%:O|
000047b0  63 25 3d 59 25 3a 51 63  25 3d 58 25 3a 52 63 25  |c%=Y%:Qc%=X%:Rc%|
000047c0  3d 59 25 3a 58 63 25 3d  34 3a 59 63 25 3d 34 3a  |=Y%:Xc%=4:Yc%=4:|
000047d0  5a 63 25 3d 34 3a 61 63  25 3d 34 3a 4c 25 3d 30  |Zc%=4:ac%=4:L%=0|
000047e0  3a 62 63 25 3d 30 3a e6  34 2c 30 3a e7 4e 25 3e  |:bc%=0:.4,0:.N%>|
000047f0  32 30 c8 9d 4e 63 25 2c  4f 63 25 2c 58 63 25 2c  |20..Nc%,Oc%,Xc%,|
00004800  59 63 25 0d 10 5e 27 e7  4e 25 3c 32 31 f2 79 61  |Yc%..^'.N%<21.ya|
00004810  28 4e 25 2c 4e 63 25 2c  4f 63 25 2c 58 63 25 2c  |(N%,Nc%,Oc%,Xc%,|
00004820  59 63 25 2c 4c 25 2c 46  25 29 0d 10 68 17 f5 3a  |Yc%,L%,F%)..h..:|
00004830  c8 97 58 25 2c 59 25 2c  42 25 3a e7 42 25 3d 30  |..X%,Y%,B%:.B%=0|
00004840  8c 0d 10 72 57 5a 63 25  3d 32 2a 94 28 58 25 2d  |...rWZc%=2*.(X%-|
00004850  4e 63 25 29 3a 61 63 25  3d 32 2a 94 28 59 25 2d  |Nc%):ac%=2*.(Y%-|
00004860  4f 63 25 29 3a 4f 61 25  3d 58 25 3a 50 61 25 3d  |Oc%):Oa%=X%:Pa%=|
00004870  59 25 3a e7 a6 28 2d 38  35 29 5a 63 25 3d 61 63  |Y%:..(-85)Zc%=ac|
00004880  25 3a c8 97 b8 4e 63 25  2b 61 63 25 2f 32 2c 4f  |%:...Nc%+ac%/2,O|
00004890  63 25 2b 61 63 25 2f 32  0d 10 7c 29 e7 a6 28 2d  |c%+ac%/2..|)..(-|
000048a0  33 34 29 61 63 25 3d 5a  63 25 3a c8 97 b8 4e 63  |34)ac%=Zc%:...Nc|
000048b0  25 2b 61 63 25 2f 32 2c  4f 63 25 2b 61 63 25 2f  |%+ac%/2,Oc%+ac%/|
000048c0  32 0d 10 86 3d cd 3a e7  42 25 3d 31 80 ac a6 28  |2...=.:.B%=1...(|
000048d0  2d 31 29 51 63 25 3d 4e  63 25 2b 58 25 2d 4f 61  |-1)Qc%=Nc%+X%-Oa|
000048e0  25 3a 52 63 25 3d 4f 63  25 2b 59 25 2d 50 61 25  |%:Rc%=Oc%+Y%-Pa%|
000048f0  3a 4f 61 25 3d 58 25 3a  50 61 25 3d 59 25 0d 10  |:Oa%=X%:Pa%=Y%..|
00004900  90 10 e7 5a 63 25 3c 34  8c 5a 63 25 3d 34 0d 10  |...Zc%<4.Zc%=4..|
00004910  9a 10 e7 61 63 25 3c 34  8c 61 63 25 3d 34 0d 10  |...ac%<4.ac%=4..|
00004920  a4 0c e7 a6 28 2d 36 37  29 8c 0d 10 ae 20 62 63  |....(-67).... bc|
00004930  25 3d 28 4c 25 2d 33 29  83 33 36 30 3a e7 4c 25  |%=(L%-3).360:.L%|
00004940  3d 30 20 62 63 25 3d 33  35 37 0d 10 b8 0e cd 3a  |=0 bc%=357.....:|
00004950  e7 a6 28 2d 39 38 29 8c  0d 10 c2 21 62 63 25 3d  |..(-98)....!bc%=|
00004960  28 4c 25 2b 33 29 83 33  36 30 3a e7 62 63 25 3d  |(L%+3).360:.bc%=|
00004970  33 36 30 20 62 63 25 3d  30 0d 10 cc 1c cd 3a c8  |360 bc%=0.....:.|
00004980  96 3a c8 96 3a c8 96 3a  e6 34 2c 30 3a e7 a6 28  |.:..:..:.4,0:..(|
00004990  2d 39 39 29 8c 0d 10 d6  0b e7 4e 25 3e 32 30 8c  |-99)......N%>20.|
000049a0  0d 10 e0 33 e7 4c 25 3c  3e 30 c8 9d 4e 63 25 2c  |...3.L%<>0..Nc%,|
000049b0  4f 63 25 2c 58 63 25 2c  59 63 25 2c b2 28 4c 25  |Oc%,Xc%,Yc%,.(L%|
000049c0  29 8b c8 9d 4e 63 25 2c  4f 63 25 2c 58 63 25 2c  |)...Nc%,Oc%,Xc%,|
000049d0  59 63 25 0d 10 ea 29 cd  3a e7 4e 25 3c 32 31 f2  |Yc%...).:.N%<21.|
000049e0  79 61 28 4e 25 2c 4e 63  25 2c 4f 63 25 2c 58 63  |ya(N%,Nc%,Oc%,Xc|
000049f0  25 2c 59 63 25 2c 4c 25  2c 46 25 29 0d 10 f4 09  |%,Yc%,L%,F%)....|
00004a00  f2 74 5f 3a e1 0d 10 fe  0d cd 3a e7 4e 25 3e 32  |.t_:......:.N%>2|
00004a10  30 8c 0d 11 08 33 e7 4c  25 3c 3e 30 c8 9d 4e 63  |0....3.L%<>0..Nc|
00004a20  25 2c 4f 63 25 2c 58 63  25 2c 59 63 25 2c b2 28  |%,Oc%,Xc%,Yc%,.(|
00004a30  4c 25 29 8b c8 9d 4e 63  25 2c 4f 63 25 2c 58 63  |L%)...Nc%,Oc%,Xc|
00004a40  25 2c 59 63 25 0d 11 12  35 e7 62 63 25 3c 3e 30  |%,Yc%...5.bc%<>0|
00004a50  c8 9d 51 63 25 2c 52 63  25 2c 5a 63 25 2c 61 63  |..Qc%,Rc%,Zc%,ac|
00004a60  25 2c b2 28 62 63 25 29  8b c8 9d 51 63 25 2c 52  |%,.(bc%)...Qc%,R|
00004a70  63 25 2c 5a 63 25 2c 61  63 25 0d 11 1c 0d cd 3a  |c%,Zc%,ac%.....:|
00004a80  e7 4e 25 3c 32 31 8c 0d  11 26 40 f2 79 61 28 4e  |.N%<21...&@.ya(N|
00004a90  25 2c 4e 63 25 2c 4f 63  25 2c 58 63 25 2c 59 63  |%,Nc%,Oc%,Xc%,Yc|
00004aa0  25 2c 4c 25 2c 46 25 29  3a f2 79 61 28 4e 25 2c  |%,L%,F%):.ya(N%,|
00004ab0  51 63 25 2c 52 63 25 2c  5a 63 25 2c 61 63 25 2c  |Qc%,Rc%,Zc%,ac%,|
00004ac0  62 63 25 2c 46 25 29 0d  11 30 11 cd 3a e7 42 25  |bc%,F%)..0..:.B%|
00004ad0  3d 35 84 42 25 3d 33 8c  0d 11 3a 10 e6 34 2c 30  |=5.B%=3...:..4,0|
00004ae0  3a e7 4e 25 3e 32 30 8c  0d 11 44 35 e7 62 63 25  |:.N%>20...D5.bc%|
00004af0  3c 3e 30 c8 9d 51 63 25  2c 52 63 25 2c 5a 63 25  |<>0..Qc%,Rc%,Zc%|
00004b00  2c 61 63 25 2c b2 28 62  63 25 29 8b c8 9d 51 63  |,ac%,.(bc%)...Qc|
00004b10  25 2c 52 63 25 2c 5a 63  25 2c 61 63 25 0d 11 4e  |%,Rc%,Zc%,ac%..N|
00004b20  1d cd 3a e7 71 5f 25 3d  a3 e6 30 2c 4e 5f 25 c8  |..:.q_%=..0,N_%.|
00004b30  9c 4f 5f 25 8b e6 38 30  2c 30 0d 11 58 0a e7 42  |.O_%..80,0..X..B|
00004b40  25 3d 35 8c 0d 11 62 36  f2 79 61 28 4e 25 2c 51  |%=5...b6.ya(N%,Q|
00004b50  63 25 2c 52 63 25 2c 5a  63 25 2c 61 63 25 2c 62  |c%,Rc%,Zc%,ac%,b|
00004b60  63 25 2c 46 25 29 3a f5  3a c8 97 58 25 2c 59 25  |c%,F%):.:..X%,Y%|
00004b70  2c 42 25 3a fd 42 25 3c  3e 35 0d 11 6c 0c cd 3a  |,B%:.B%<>5..l..:|
00004b80  e7 42 25 3d 33 8c 0d 11  76 35 f2 79 61 28 4e 25  |.B%=3...v5.ya(N%|
00004b90  2c 51 63 25 2c 52 63 25  2c 5a 63 25 2c 61 63 25  |,Qc%,Rc%,Zc%,ac%|
00004ba0  2c 62 63 25 2c 33 29 3a  f5 3a c8 97 58 25 2c 59  |,bc%,3):.:..X%,Y|
00004bb0  25 2c 42 25 3a fd 42 25  3c 3e 33 0d 11 80 12 cd  |%,B%:.B%<>3.....|
00004bc0  3a e6 34 2c 30 3a e7 4e  25 3e 32 30 8c 0d 11 8a  |:.4,0:.N%>20....|
00004bd0  35 e7 62 63 25 3c 3e 30  c8 9d 51 63 25 2c 52 63  |5.bc%<>0..Qc%,Rc|
00004be0  25 2c 5a 63 25 2c 61 63  25 2c b2 28 62 63 25 29  |%,Zc%,ac%,.(bc%)|
00004bf0  8b c8 9d 51 63 25 2c 52  63 25 2c 5a 63 25 2c 61  |...Qc%,Rc%,Zc%,a|
00004c00  63 25 0d 11 94 2b cd 3a  e7 4e 25 3c 32 31 8c f2  |c%...+.:.N%<21..|
00004c10  79 61 28 4e 25 2c 51 63  25 2c 52 63 25 2c 5a 63  |ya(N%,Qc%,Rc%,Zc|
00004c20  25 2c 61 63 25 2c 62 63  25 2c 46 25 29 0d 11 9e  |%,ac%,bc%,F%)...|
00004c30  1a cd 3a e7 28 42 25 3d  32 84 42 25 3d 34 29 80  |..:.(B%=2.B%=4).|
00004c40  a6 28 2d 38 33 29 8c 0d  11 a8 10 e6 34 2c 30 3a  |.(-83)......4,0:|
00004c50  e7 4e 25 3e 32 30 8c 0d  11 b2 35 e7 62 63 25 3c  |.N%>20....5.bc%<|
00004c60  3e 30 c8 9d 51 63 25 2c  52 63 25 2c 5a 63 25 2c  |>0..Qc%,Rc%,Zc%,|
00004c70  61 63 25 2c b2 28 62 63  25 29 8b c8 9d 51 63 25  |ac%,.(bc%)...Qc%|
00004c80  2c 52 63 25 2c 5a 63 25  2c 61 63 25 0d 11 bc 1d  |,Rc%,Zc%,ac%....|
00004c90  cd 3a e7 71 5f 25 3d a3  e6 30 2c 4e 5f 25 c8 9c  |.:.q_%=..0,N_%..|
00004ca0  4f 5f 25 8b e6 38 30 2c  30 0d 11 c6 0a e7 42 25  |O_%..80,0.....B%|
00004cb0  3d 34 8c 0d 11 d0 36 f2  79 61 28 4e 25 2c 51 63  |=4....6.ya(N%,Qc|
00004cc0  25 2c 52 63 25 2c 5a 63  25 2c 61 63 25 2c 62 63  |%,Rc%,Zc%,ac%,bc|
00004cd0  25 2c 46 25 29 3a f5 3a  c8 97 58 25 2c 59 25 2c  |%,F%):.:..X%,Y%,|
00004ce0  42 25 3a fd 42 25 3c 3e  34 0d 11 da 0c cd 3a e7  |B%:.B%<>4.....:.|
00004cf0  42 25 3d 32 8c 0d 11 e4  35 f2 79 61 28 4e 25 2c  |B%=2....5.ya(N%,|
00004d00  51 63 25 2c 52 63 25 2c  5a 63 25 2c 61 63 25 2c  |Qc%,Rc%,Zc%,ac%,|
00004d10  62 63 25 2c 33 29 3a f5  3a c8 97 58 25 2c 59 25  |bc%,3):.:..X%,Y%|
00004d20  2c 42 25 3a fd 42 25 3c  3e 32 0d 11 ee 12 cd 3a  |,B%:.B%<>2.....:|
00004d30  e6 34 2c 30 3a e7 4e 25  3e 32 30 8c 0d 11 f8 35  |.4,0:.N%>20....5|
00004d40  e7 62 63 25 3c 3e 30 c8  9d 51 63 25 2c 52 63 25  |.bc%<>0..Qc%,Rc%|
00004d50  2c 5a 63 25 2c 61 63 25  2c b2 28 62 63 25 29 8b  |,Zc%,ac%,.(bc%).|
00004d60  c8 9d 51 63 25 2c 52 63  25 2c 5a 63 25 2c 61 63  |..Qc%,Rc%,Zc%,ac|
00004d70  25 0d 12 02 2b cd 3a e7  4e 25 3c 32 31 8c f2 79  |%...+.:.N%<21..y|
00004d80  61 28 4e 25 2c 51 63 25  2c 52 63 25 2c 5a 63 25  |a(N%,Qc%,Rc%,Zc%|
00004d90  2c 61 63 25 2c 62 63 25  2c 46 25 29 0d 12 0c 49  |,ac%,bc%,F%)...I|
00004da0  cd 3a 4e 63 25 3d 51 63  25 3a 4f 63 25 3d 52 63  |.:Nc%=Qc%:Oc%=Rc|
00004db0  25 3a 58 63 25 3d 5a 63  25 3a 59 63 25 3d 61 63  |%:Xc%=Zc%:Yc%=ac|
00004dc0  25 3a 4c 25 3d 62 63 25  3a fd 28 42 25 3d 32 84  |%:L%=bc%:.(B%=2.|
00004dd0  42 25 3d 34 29 80 ac a6  28 2d 38 33 29 3a e7 4e  |B%=4)...(-83):.N|
00004de0  25 3e 32 30 8c 0d 12 16  35 e7 62 63 25 3c 3e 30  |%>20....5.bc%<>0|
00004df0  c8 9d 51 63 25 2c 52 63  25 2c 5a 63 25 2c 61 63  |..Qc%,Rc%,Zc%,ac|
00004e00  25 2c b2 28 62 63 25 29  8b c8 9d 51 63 25 2c 52  |%,.(bc%)...Qc%,R|
00004e10  63 25 2c 5a 63 25 2c 61  63 25 0d 12 20 2a cd 3a  |c%,Zc%,ac%.. *.:|
00004e20  e7 4e 25 3c 32 31 f2 79  61 28 4e 25 2c 51 63 25  |.N%<21.ya(N%,Qc%|
00004e30  2c 52 63 25 2c 5a 63 25  2c 61 63 25 2c 62 63 25  |,Rc%,Zc%,ac%,bc%|
00004e40  2c 46 25 29 0d 12 2a 1b  e7 71 5f 25 3d a3 e6 30  |,F%)..*..q_%=..0|
00004e50  2c 4e 5f 25 c8 9c 4f 5f  25 8b e6 38 30 2c 30 0d  |,N_%..O_%..80,0.|
00004e60  12 34 27 e7 42 25 3d 34  f2 79 61 28 4e 25 2c 51  |.4'.B%=4.ya(N%,Q|
00004e70  63 25 2c 52 63 25 2c 5a  63 25 2c 61 63 25 2c 62  |c%,Rc%,Zc%,ac%,b|
00004e80  63 25 2c 46 25 29 0d 12  3e 26 e7 42 25 3d 32 f2  |c%,F%)..>&.B%=2.|
00004e90  79 61 28 4e 25 2c 51 63  25 2c 52 63 25 2c 5a 63  |ya(N%,Qc%,Rc%,Zc|
00004ea0  25 2c 61 63 25 2c 62 63  25 2c 33 29 0d 12 48 09  |%,ac%,bc%,3)..H.|
00004eb0  f2 74 5f 3a e1 0d 12 52  2c dd f2 63 63 3a f2 64  |.t_:...R,..cc:.d|
00004ec0  63 3a 4c 25 3d 30 3a 43  3d 31 3a 53 3d 30 3a 49  |c:L%=0:C=1:S=0:I|
00004ed0  5f 25 3d 30 3a ef 32 36  3a 2a 50 4f 49 4e 54 45  |_%=0:.26:*POINTE|
00004ee0  52 0d 12 5c 8a ef 32 34  2c 30 3b 56 5f 25 3b 57  |R..\..24,0;V_%;W|
00004ef0  5f 25 3b 58 5f 25 3b 3a  e6 4e 5f 25 c8 9c 4f 5f  |_%;X_%;:.N_%..O_|
00004f00  25 3a 58 25 3d 4f 61 25  3a 59 25 3d 50 61 25 3a  |%:X%=Oa%:Y%=Pa%:|
00004f10  57 25 3d 58 63 25 3a 48  25 3d 59 63 25 3a 53 62  |W%=Xc%:H%=Yc%:Sb|
00004f20  25 3d 4f 61 25 2d 57 25  3a 54 62 25 3d 50 61 25  |%=Oa%-W%:Tb%=Pa%|
00004f30  2b 48 25 3a 55 62 25 3d  4f 61 25 2b 57 25 3a 56  |+H%:Ub%=Oa%+W%:V|
00004f40  62 25 3d 54 62 25 3a 65  63 25 3d 55 62 25 3a 66  |b%=Tb%:ec%=Ub%:f|
00004f50  63 25 3d 50 61 25 2d 48  25 3a 67 63 25 3d 53 62  |c%=Pa%-H%:gc%=Sb|
00004f60  25 3a 68 63 25 3d 66 63  25 3a e1 0d 12 66 c8 dd  |%:hc%=fc%:...f..|
00004f70  f2 69 63 3a 6a 63 25 3d  a3 3a 6b 63 25 3d a3 3a  |.ic:jc%=.:kc%=.:|
00004f80  6c 63 25 3d b9 3a f2 63  63 3a c8 99 34 36 2c 32  |lc%=.:.cc:..46,2|
00004f90  37 32 2c 42 5f 2c 22 53  50 52 49 54 45 22 2c 30  |72,B_,"SPRITE",0|
00004fa0  2c 67 63 25 2c 68 63 25  2c 55 62 25 2c 56 62 25  |,gc%,hc%,Ub%,Vb%|
00004fb0  3a e6 34 2c 30 3a f2 6d  63 28 53 62 25 2c 54 62  |:.4,0:.mc(Sb%,Tb|
00004fc0  25 2c 55 62 25 2c 56 62  25 2c 65 63 25 2c 66 63  |%,Ub%,Vb%,ec%,fc|
00004fd0  25 2c 67 63 25 2c 68 63  25 29 3a c8 97 b8 4f 61  |%,gc%,hc%):...Oa|
00004fe0  25 2c 50 61 25 3a f5 3a  c8 97 76 61 25 2c 77 61  |%,Pa%:.:..va%,wa|
00004ff0  25 2c 42 25 3a 58 25 3d  76 61 25 3a 59 25 3d 77  |%,B%:X%=va%:Y%=w|
00005000  61 25 3a e7 a6 28 2d 39  39 29 f2 6d 63 28 70 61  |a%:..(-99).mc(pa|
00005010  25 2c 71 61 25 2c 72 61  25 2c 73 61 25 2c 57 62  |%,qa%,ra%,sa%,Wb|
00005020  25 2c 58 62 25 2c 6e 63  25 2c 6f 63 25 29 3a ef  |%,Xb%,nc%,oc%):.|
00005030  37 3a e1 0d 12 70 10 f2  71 63 3a e7 a6 28 2d 38  |7:...p..qc:..(-8|
00005040  35 29 8c 0d 12 7a 34 d4  31 2c 2d 32 2c 31 38 30  |5)...z4.1,-2,180|
00005050  2c 33 3a c8 99 34 36 2c  32 38 39 2c 42 5f 2c 22  |,3:..46,289,B_,"|
00005060  53 50 52 49 54 45 22 3a  6a 63 25 3d b9 3a f5 fd  |SPRITE":jc%=.:..|
00005070  ac a6 28 2d 38 35 29 0d  12 84 0f cd 3a e7 a6 28  |..(-85).....:..(|
00005080  2d 31 30 30 29 8c 0d 12  8e 35 d4 31 2c 2d 32 2c  |-100)....5.1,-2,|
00005090  32 31 30 2c 33 3a c8 99  34 36 2c 33 30 33 2c 42  |210,3:..46,303,B|
000050a0  5f 2c 22 53 50 52 49 54  45 22 3a 6b 63 25 3d b9  |_,"SPRITE":kc%=.|
000050b0  3a f5 fd ac a6 28 2d 31  30 30 29 0d 12 98 14 cd  |:....(-100).....|
000050c0  3a e7 42 25 3d 34 84 6a  63 25 84 6b 63 25 8c 0d  |:.B%=4.jc%.kc%..|
000050d0  12 a2 de f2 6d 63 28 70  61 25 2c 71 61 25 2c 72  |....mc(pa%,qa%,r|
000050e0  61 25 2c 73 61 25 2c 57  62 25 2c 58 62 25 2c 6e  |a%,sa%,Wb%,Xb%,n|
000050f0  63 25 2c 6f 63 25 29 3a  43 5f 25 21 30 3d 70 61  |c%,oc%):C_%!0=pa|
00005100  25 3c 3c 38 3a 43 5f 25  21 34 3d 71 61 25 3c 3c  |%<<8:C_%!4=qa%<<|
00005110  38 3a 43 5f 25 21 38 3d  72 61 25 3c 3c 38 3a 43  |8:C_%!8=ra%<<8:C|
00005120  5f 25 21 31 32 3d 73 61  25 3c 3c 38 3a 43 5f 25  |_%!12=sa%<<8:C_%|
00005130  21 31 36 3d 57 62 25 3c  3c 38 3a 43 5f 25 21 32  |!16=Wb%<<8:C_%!2|
00005140  30 3d 58 62 25 3c 3c 38  3a 43 5f 25 21 32 34 3d  |0=Xb%<<8:C_%!24=|
00005150  6e 63 25 3c 3c 38 3a 43  5f 25 21 32 38 3d 6f 63  |nc%<<8:C_%!28=oc|
00005160  25 3c 3c 38 3a c8 99 34  36 2c 32 35 36 2b 35 36  |%<<8:..46,256+56|
00005170  2c 42 5f 2c 22 53 50 52  49 54 45 22 2c 25 30 31  |,B_,"SPRITE",%01|
00005180  2c 2c 2c 43 5f 25 3a 6a  63 25 3d a3 3a 6b 63 25  |,,,C_%:jc%=.:kc%|
00005190  3d a3 3a e7 49 5f 25 3d  30 8c f5 3a c8 97 58 25  |=.:.I_%=0..:..X%|
000051a0  2c 59 25 2c 42 25 3a fd  42 25 3c 3e 34 0d 12 ac  |,Y%,B%:.B%<>4...|
000051b0  28 f2 6d 63 28 70 61 25  2c 71 61 25 2c 72 61 25  |(.mc(pa%,qa%,ra%|
000051c0  2c 73 61 25 2c 57 62 25  2c 58 62 25 2c 6e 63 25  |,sa%,Wb%,Xb%,nc%|
000051d0  2c 6f 63 25 29 0d 12 b6  35 cd 3a fd 42 25 3d 32  |,oc%)...5.:.B%=2|
000051e0  3a ef 37 3a f2 6d 63 28  70 61 25 2c 71 61 25 2c  |:.7:.mc(pa%,qa%,|
000051f0  72 61 25 2c 73 61 25 2c  57 62 25 2c 58 62 25 2c  |ra%,sa%,Wb%,Xb%,|
00005200  6e 63 25 2c 6f 63 25 29  3a e1 0d 12 c0 98 dd f2  |nc%,oc%):.......|
00005210  72 63 3a 6c 63 25 3d a3  3a f2 63 63 3a e6 34 2c  |rc:lc%=.:.cc:.4,|
00005220  30 3a f2 6d 63 28 53 62  25 2c 54 62 25 2c 55 62  |0:.mc(Sb%,Tb%,Ub|
00005230  25 2c 56 62 25 2c 65 63  25 2c 66 63 25 2c 67 63  |%,Vb%,ec%,fc%,gc|
00005240  25 2c 68 63 25 29 3a c8  97 b8 4f 61 25 2c 50 61  |%,hc%):...Oa%,Pa|
00005250  25 3a f5 3a c8 97 76 61  25 2c 77 61 25 2c 42 25  |%:.:..va%,wa%,B%|
00005260  3a 58 25 3d 76 61 25 3a  59 25 3d 77 61 25 3a e7  |:X%=va%:Y%=wa%:.|
00005270  a6 28 2d 39 39 29 f2 6d  63 28 70 61 25 2c 71 61  |.(-99).mc(pa%,qa|
00005280  25 2c 72 61 25 2c 73 61  25 2c 57 62 25 2c 58 62  |%,ra%,sa%,Wb%,Xb|
00005290  25 2c 6e 63 25 2c 6f 63  25 29 3a 73 63 25 3d 30  |%,nc%,oc%):sc%=0|
000052a0  3a e1 0d 12 ca 13 f2 71  63 3a e7 42 25 3d 34 84  |:......qc:.B%=4.|
000052b0  42 25 3d 35 8c 0d 12 d4  40 f2 6d 63 28 70 61 25  |B%=5....@.mc(pa%|
000052c0  2c 71 61 25 2c 72 61 25  2c 73 61 25 2c 57 62 25  |,qa%,ra%,sa%,Wb%|
000052d0  2c 58 62 25 2c 6e 63 25  2c 6f 63 25 29 3a e7 71  |,Xb%,nc%,oc%):.q|
000052e0  5f 25 3d a3 e6 30 2c 4e  5f 25 c8 9c 4f 5f 25 8b  |_%=..0,N_%..O_%.|
000052f0  e6 38 30 2c 30 0d 12 de  6d f2 6d 63 28 70 61 25  |.80,0...m.mc(pa%|
00005300  2c 71 61 25 2c 72 61 25  2c 73 61 25 2c 57 62 25  |,qa%,ra%,sa%,Wb%|
00005310  2c 58 62 25 2c 6e 63 25  2c 6f 63 25 29 3a e6 34  |,Xb%,nc%,oc%):.4|
00005320  2c 30 3a f2 6d 63 28 70  61 25 2c 71 61 25 2c 72  |,0:.mc(pa%,qa%,r|
00005330  61 25 2c 73 61 25 2c 57  62 25 2c 58 62 25 2c 6e  |a%,sa%,Wb%,Xb%,n|
00005340  63 25 2c 6f 63 25 29 3a  e7 49 5f 25 3d 30 f5 3a  |c%,oc%):.I_%=0.:|
00005350  c8 97 76 61 25 2c 77 61  25 2c 42 25 3a fd 42 25  |..va%,wa%,B%:.B%|
00005360  3c 34 0d 12 e8 11 cd 3a  e7 42 25 3d 32 84 42 25  |<4.....:.B%=2.B%|
00005370  3d 33 8c 0d 12 f2 40 f2  6d 63 28 70 61 25 2c 71  |=3....@.mc(pa%,q|
00005380  61 25 2c 72 61 25 2c 73  61 25 2c 57 62 25 2c 58  |a%,ra%,sa%,Wb%,X|
00005390  62 25 2c 6e 63 25 2c 6f  63 25 29 3a e7 71 5f 25  |b%,nc%,oc%):.q_%|
000053a0  3d a3 e6 30 2c 4e 5f 25  c8 9c 4f 5f 25 8b e6 38  |=..0,N_%..O_%..8|
000053b0  30 2c 30 0d 12 fc 6d f2  74 63 28 70 61 25 2c 71  |0,0...m.tc(pa%,q|
000053c0  61 25 2c 72 61 25 2c 73  61 25 2c 57 62 25 2c 58  |a%,ra%,sa%,Wb%,X|
000053d0  62 25 2c 6e 63 25 2c 6f  63 25 29 3a e6 34 2c 30  |b%,nc%,oc%):.4,0|
000053e0  3a f2 6d 63 28 70 61 25  2c 71 61 25 2c 72 61 25  |:.mc(pa%,qa%,ra%|
000053f0  2c 73 61 25 2c 57 62 25  2c 58 62 25 2c 6e 63 25  |,sa%,Wb%,Xb%,nc%|
00005400  2c 6f 63 25 29 3a e7 49  5f 25 3d 30 f5 3a c8 97  |,oc%):.I_%=0.:..|
00005410  76 61 25 2c 77 61 25 2c  42 25 3a fd 42 25 3c 32  |va%,wa%,B%:.B%<2|
00005420  0d 13 06 12 cd 3a fd 73  63 25 3d 30 3a f2 74 5f  |.....:.sc%=0:.t_|
00005430  3a e1 0d 13 10 2a dd f2  71 63 3a e7 a6 28 2d 35  |:....*..qc:..(-5|
00005440  31 29 4c 25 3d 30 3a 43  3d 31 3a 53 3d 30 3a 57  |1)L%=0:C=1:S=0:W|
00005450  25 3d 58 63 25 3a 48 25  3d 59 63 25 0d 13 1a 0d  |%=Xc%:H%=Yc%....|
00005460  e7 a6 28 2d 31 30 31 29  8c 0d 13 24 23 49 5f 25  |..(-101)...$#I_%|
00005470  3d 31 2d 49 5f 25 3a d4  31 2c 2d 36 2c 37 32 2c  |=1-I_%:.1,-6,72,|
00005480  33 3a f5 fd ac a6 28 2d  31 30 31 29 0d 13 2e 0f  |3:....(-101)....|
00005490  cd 3a e7 a6 28 2d 31 30  34 29 8c 0d 13 38 20 57  |.:..(-104)...8 W|
000054a0  25 3d 32 2a 57 25 3a e7  57 25 3e 36 34 2a 58 63  |%=2*W%:.W%>64*Xc|
000054b0  25 8c 57 25 3d 36 34 2a  58 63 25 0d 13 42 20 48  |%.W%=64*Xc%..B H|
000054c0  25 3d 32 2a 48 25 3a e7  48 25 3e 36 34 2a 59 63  |%=2*H%:.H%>64*Yc|
000054d0  25 8c 48 25 3d 36 34 2a  59 63 25 0d 13 4c 0e f5  |%.H%=64*Yc%..L..|
000054e0  fd ac a6 28 2d 31 30 34  29 0d 13 56 0f cd 3a e7  |...(-104)..V..:.|
000054f0  a6 28 2d 31 30 33 29 8c  0d 13 60 25 57 25 3d 57  |.(-103)...`%W%=W|
00005500  25 2f 32 3a e7 94 57 25  3c 58 63 25 2f 31 36 20  |%/2:..W%<Xc%/16 |
00005510  57 25 3d b4 57 25 2a 58  63 25 2f 31 36 0d 13 6a  |W%=.W%*Xc%/16..j|
00005520  25 48 25 3d 48 25 2f 32  3a e7 94 48 25 3c 59 63  |%H%=H%/2:..H%<Yc|
00005530  25 2f 31 36 20 48 25 3d  b4 48 25 2a 59 63 25 2f  |%/16 H%=.H%*Yc%/|
00005540  31 36 0d 13 74 0e f5 fd  ac a6 28 2d 31 30 33 29  |16..t.....(-103)|
00005550  0d 13 7e 28 cd 3a e7 a6  28 2d 34 39 29 4c 25 3d  |..~(.:..(-49)L%=|
00005560  34 35 3a 43 3d 44 5f 3a  53 3d 43 3a ef 37 3a f5  |45:C=D_:S=C:.7:.|
00005570  fd ac a6 28 2d 34 39 29  0d 13 88 25 e7 a6 28 2d  |...(-49)...%..(-|
00005580  35 30 29 4c 25 3d 39 30  3a 43 3d 30 3a 53 3d 31  |50)L%=90:C=0:S=1|
00005590  3a ef 37 3a f5 fd ac a6  28 2d 35 30 29 0d 13 92  |:.7:....(-50)...|
000055a0  29 e7 a6 28 2d 31 38 29  4c 25 3d 31 33 35 3a 43  |)..(-18)L%=135:C|
000055b0  3d 2d 44 5f 3a 53 3d 2d  43 3a ef 37 3a f5 fd ac  |=-D_:S=-C:.7:...|
000055c0  a6 28 2d 31 38 29 0d 13  9c 27 e7 a6 28 2d 31 39  |.(-18)...'..(-19|
000055d0  29 4c 25 3d 31 38 30 3a  43 3d 2d 31 3a 53 3d 30  |)L%=180:C=-1:S=0|
000055e0  3a ef 37 3a f5 fd ac a6  28 2d 31 39 29 0d 13 a6  |:.7:....(-19)...|
000055f0  28 e7 a6 28 2d 32 30 29  4c 25 3d 32 32 35 3a 43  |(..(-20)L%=225:C|
00005600  3d 2d 44 5f 3a 53 3d 43  3a ef 37 3a f5 fd ac a6  |=-D_:S=C:.7:....|
00005610  28 2d 32 30 29 0d 13 b0  27 e7 a6 28 2d 35 33 29  |(-20)...'..(-53)|
00005620  4c 25 3d 32 37 30 3a 43  3d 30 3a 53 3d 2d 31 3a  |L%=270:C=0:S=-1:|
00005630  ef 37 3a f5 fd ac a6 28  2d 35 33 29 0d 13 ba 28  |.7:....(-53)...(|
00005640  e7 a6 28 2d 33 37 29 4c  25 3d 33 31 35 3a 43 3d  |..(-37)L%=315:C=|
00005650  44 5f 3a 53 3d 2d 43 3a  ef 37 3a f5 fd ac a6 28  |D_:S=-C:.7:....(|
00005660  2d 33 37 29 0d 13 c4 24  e7 a6 28 2d 32 32 29 4c  |-37)...$..(-22)L|
00005670  25 3d 30 3a 43 3d 31 3a  53 3d 30 3a ef 37 3a f5  |%=0:C=1:S=0:.7:.|
00005680  fd ac a6 28 2d 32 32 29  0d 13 ce 24 e7 a6 28 2d  |...(-22)...$..(-|
00005690  34 30 29 4c 25 3d 30 3a  43 3d 31 3a 53 3d 30 3a  |40)L%=0:C=1:S=0:|
000056a0  ef 37 3a f5 fd ac a6 28  2d 34 30 29 0d 13 d8 0c  |.7:....(-40)....|
000056b0  e7 a6 28 2d 38 32 29 8c  0d 13 e2 1c e7 94 57 25  |..(-82).......W%|
000056c0  3c 94 48 25 8c 75 63 25  3d 94 57 25 8b 75 63 25  |<.H%.uc%=.W%.uc%|
000056d0  3d 94 48 25 0d 13 ec 19  48 25 3d b4 48 25 2a 75  |=.H%....H%=.H%*u|
000056e0  63 25 3a 57 25 3d b4 57  25 2a 75 63 25 0d 13 f6  |c%:W%=.W%*uc%...|
000056f0  0f cd 3a e7 a6 28 2d 31  32 32 29 8c 0d 14 00 1d  |..:..(-122).....|
00005700  e7 a6 28 2d 38 29 57 25  3d 57 25 2b 46 5f 25 8b  |..(-8)W%=W%+F_%.|
00005710  57 25 3d 57 25 2b 45 5f  25 0d 14 0a 0e cd 3a e7  |W%=W%+E_%.....:.|
00005720  a6 28 2d 32 36 29 8c 0d  14 14 1d e7 a6 28 2d 38  |.(-26).......(-8|
00005730  29 57 25 3d 57 25 2d 46  5f 25 8b 57 25 3d 57 25  |)W%=W%-F_%.W%=W%|
00005740  2d 45 5f 25 0d 14 1e 0e  cd 3a e7 a6 28 2d 35 38  |-E_%.....:..(-58|
00005750  29 8c 0d 14 28 1d e7 a6  28 2d 38 29 48 25 3d 48  |)...(...(-8)H%=H|
00005760  25 2b 46 5f 25 8b 48 25  3d 48 25 2b 45 5f 25 0d  |%+F_%.H%=H%+E_%.|
00005770  14 32 0e cd 3a e7 a6 28  2d 34 32 29 8c 0d 14 3c  |.2..:..(-42)...<|
00005780  1d e7 a6 28 2d 38 29 48  25 3d 48 25 2d 46 5f 25  |...(-8)H%=H%-F_%|
00005790  8b 48 25 3d 48 25 2d 45  5f 25 0d 14 46 0e cd 3a  |.H%=H%-E_%..F..:|
000057a0  e7 a6 28 2d 39 38 29 8c  0d 14 50 29 e7 a6 28 2d  |..(-98)...P)..(-|
000057b0  35 29 4c 25 3d 28 4c 25  2b 48 5f 25 29 83 33 36  |5)L%=(L%+H_%).36|
000057c0  30 8b 4c 25 3d 28 4c 25  2b 47 5f 25 29 83 33 36  |0.L%=(L%+G_%).36|
000057d0  30 0d 14 5a 15 43 3d 9b  b2 28 4c 25 29 3a 53 3d  |0..Z.C=..(L%):S=|
000057e0  b5 b2 28 4c 25 29 0d 14  64 0e cd 3a e7 a6 28 2d  |..(L%)..d..:..(-|
000057f0  36 37 29 8c 0d 14 6e 29  e7 a6 28 2d 35 29 4c 25  |67)...n)..(-5)L%|
00005800  3d 28 4c 25 2d 48 5f 25  29 83 33 36 30 8b 4c 25  |=(L%-H_%).360.L%|
00005810  3d 28 4c 25 2d 47 5f 25  29 83 33 36 30 0d 14 78  |=(L%-G_%).360..x|
00005820  15 43 3d 9b b2 28 4c 25  29 3a 53 3d b5 b2 28 4c  |.C=..(L%):S=..(L|
00005830  25 29 0d 14 82 cb cd 3a  76 63 3d 2d 43 2a 57 25  |%).....:vc=-C*W%|
00005840  2d 53 2a 48 25 3a 77 63  3d 2d 53 2a 57 25 2b 43  |-S*H%:wc=-S*W%+C|
00005850  2a 48 25 3a 78 63 3d 43  2a 57 25 2d 53 2a 48 25  |*H%:xc=C*W%-S*H%|
00005860  3a 79 63 3d 53 2a 57 25  2b 43 2a 48 25 3a 70 61  |:yc=S*W%+C*H%:pa|
00005870  25 3d 58 25 2b 76 63 3a  71 61 25 3d 59 25 2b 77  |%=X%+vc:qa%=Y%+w|
00005880  63 3a 72 61 25 3d 58 25  2b 78 63 3a 73 61 25 3d  |c:ra%=X%+xc:sa%=|
00005890  59 25 2b 79 63 3a 57 62  25 3d 58 25 2d 76 63 3a  |Y%+yc:Wb%=X%-vc:|
000058a0  58 62 25 3d 59 25 2d 77  63 3a 6e 63 25 3d 70 61  |Xb%=Y%-wc:nc%=pa|
000058b0  25 2b 57 62 25 2d 72 61  25 3a 6f 63 25 3d 71 61  |%+Wb%-ra%:oc%=qa|
000058c0  25 2b 58 62 25 2d 73 61  25 3a c8 96 3a c8 96 3a  |%+Xb%-sa%:..:..:|
000058d0  c8 99 36 2c 32 31 2c 30  3a f2 6d 63 28 53 62 25  |..6,21,0:.mc(Sb%|
000058e0  2c 54 62 25 2c 55 62 25  2c 56 62 25 2c 65 63 25  |,Tb%,Ub%,Vb%,ec%|
000058f0  2c 66 63 25 2c 67 63 25  2c 68 63 25 29 0d 14 8c  |,fc%,gc%,hc%)...|
00005900  71 f2 6d 63 28 70 61 25  2c 71 61 25 2c 72 61 25  |q.mc(pa%,qa%,ra%|
00005910  2c 73 61 25 2c 57 62 25  2c 58 62 25 2c 6e 63 25  |,sa%,Wb%,Xb%,nc%|
00005920  2c 6f 63 25 29 3a 53 62  25 3d 70 61 25 3a 54 62  |,oc%):Sb%=pa%:Tb|
00005930  25 3d 71 61 25 3a 55 62  25 3d 72 61 25 3a 56 62  |%=qa%:Ub%=ra%:Vb|
00005940  25 3d 73 61 25 3a 65 63  25 3d 57 62 25 3a 66 63  |%=sa%:ec%=Wb%:fc|
00005950  25 3d 58 62 25 3a 67 63  25 3d 6e 63 25 3a 68 63  |%=Xb%:gc%=nc%:hc|
00005960  25 3d 6f 63 25 3a e7 a6  28 2d 35 35 29 8c 0d 14  |%=oc%:..(-55)...|
00005970  96 40 f2 6d 63 28 70 61  25 2c 71 61 25 2c 72 61  |.@.mc(pa%,qa%,ra|
00005980  25 2c 73 61 25 2c 57 62  25 2c 58 62 25 2c 6e 63  |%,sa%,Wb%,Xb%,nc|
00005990  25 2c 6f 63 25 29 3a e7  71 5f 25 3d a3 e6 30 2c  |%,oc%):.q_%=..0,|
000059a0  4e 5f 25 c8 9c 4f 5f 25  8b e6 38 30 2c 30 0d 14  |N_%..O_%..80,0..|
000059b0  a0 3b 6c 63 25 3d a3 3a  f2 6d 63 28 70 61 25 2c  |.;lc%=.:.mc(pa%,|
000059c0  71 61 25 2c 72 61 25 2c  73 61 25 2c 57 62 25 2c  |qa%,ra%,sa%,Wb%,|
000059d0  58 62 25 2c 6e 63 25 2c  6f 63 25 29 3a e7 4a 5f  |Xb%,nc%,oc%):.J_|
000059e0  25 3d 31 20 6c 63 25 3d  b9 0d 14 aa 3e e6 34 2c  |%=1 lc%=....>.4,|
000059f0  30 3a f2 6d 63 28 70 61  25 2c 71 61 25 2c 72 61  |0:.mc(pa%,qa%,ra|
00005a00  25 2c 73 61 25 2c 57 62  25 2c 58 62 25 2c 6e 63  |%,sa%,Wb%,Xb%,nc|
00005a10  25 2c 6f 63 25 29 3a e7  49 5f 25 3d 30 8c f5 fd  |%,oc%):.I_%=0...|
00005a20  ac a6 28 2d 35 35 29 0d  14 b4 0e cd 3a e7 a6 28  |..(-55).....:..(|
00005a30  2d 36 38 29 8c 0d 14 be  40 f2 6d 63 28 70 61 25  |-68)....@.mc(pa%|
00005a40  2c 71 61 25 2c 72 61 25  2c 73 61 25 2c 57 62 25  |,qa%,ra%,sa%,Wb%|
00005a50  2c 58 62 25 2c 6e 63 25  2c 6f 63 25 29 3a e7 71  |,Xb%,nc%,oc%):.q|
00005a60  5f 25 3d a3 e6 30 2c 4e  5f 25 c8 9c 4f 5f 25 8b  |_%=..0,N_%..O_%.|
00005a70  e6 38 30 2c 30 0d 14 c8  63 f2 74 63 28 70 61 25  |.80,0...c.tc(pa%|
00005a80  2c 71 61 25 2c 72 61 25  2c 73 61 25 2c 57 62 25  |,qa%,ra%,sa%,Wb%|
00005a90  2c 58 62 25 2c 6e 63 25  2c 6f 63 25 29 3a e6 34  |,Xb%,nc%,oc%):.4|
00005aa0  2c 30 3a f2 6d 63 28 70  61 25 2c 71 61 25 2c 72  |,0:.mc(pa%,qa%,r|
00005ab0  61 25 2c 73 61 25 2c 57  62 25 2c 58 62 25 2c 6e  |a%,sa%,Wb%,Xb%,n|
00005ac0  63 25 2c 6f 63 25 29 3a  e7 49 5f 25 3d 30 8c f5  |c%,oc%):.I_%=0..|
00005ad0  fd ac a6 28 2d 36 38 29  0d 14 d2 07 cd 3a e1 0d  |...(-68).....:..|
00005ae0  14 dc 74 dd f2 6d 63 28  74 62 25 2c 78 62 25 2c  |..t..mc(tb%,xb%,|
00005af0  75 62 25 2c 79 62 25 2c  7a 63 25 2c 5f 63 25 2c  |ub%,yb%,zc%,_c%,|
00005b00  60 63 25 2c 41 64 25 29  3a ec 74 62 25 2c 78 62  |`c%,Ad%):.tb%,xb|
00005b10  25 3a df 75 62 25 2c 79  62 25 3a df 7a 63 25 2c  |%:.ub%,yb%:.zc%,|
00005b20  5f 63 25 3a df 60 63 25  2c 41 64 25 3a df 74 62  |_c%:.`c%,Ad%:.tb|
00005b30  25 2c 78 62 25 3a e7 6c  63 25 3d b9 c8 8f 74 62  |%,xb%:.lc%=...tb|
00005b40  25 2c 78 62 25 2c 38 3a  c8 8f 75 62 25 2c 79 62  |%,xb%,8:..ub%,yb|
00005b50  25 2c 38 0d 14 e6 05 e1  0d 14 f0 55 dd f2 74 63  |%,8........U..tc|
00005b60  28 74 62 25 2c 78 62 25  2c 75 62 25 2c 79 62 25  |(tb%,xb%,ub%,yb%|
00005b70  2c 7a 63 25 2c 5f 63 25  2c 60 63 25 2c 41 64 25  |,zc%,_c%,`c%,Ad%|
00005b80  29 3a ec 74 62 25 2c 78  62 25 3a ec 75 62 25 2c  |):.tb%,xb%:.ub%,|
00005b90  79 62 25 3a f0 38 35 2c  60 63 25 2c 41 64 25 3a  |yb%:.85,`c%,Ad%:|
00005ba0  f0 38 35 2c 7a 63 25 2c  5f 63 25 3a e1 0d 14 fa  |.85,zc%,_c%:....|
00005bb0  3f dd f2 6c 5f 3a f5 3a  c8 97 58 25 2c 59 25 2c  |?..l_:.:..X%,Y%,|
00005bc0  42 25 3a f2 54 61 3a fd  42 25 3d 31 84 42 25 3d  |B%:.Ta:.B%=1.B%=|
00005bd0  34 84 59 25 3c 59 5f 25  3a e7 59 25 3c 59 5f 25  |4.Y%<Y_%:.Y%<Y_%|
00005be0  8c 63 5f 25 3d b9 3a f2  74 5f 3a e1 0d 15 04 14  |.c_%=.:.t_:.....|
00005bf0  e7 42 25 3d 34 80 a6 28  2d 31 29 f2 70 5f 3a e1  |.B%=4..(-1).p_:.|
00005c00  0d 15 0e 14 e7 42 25 3d  31 80 a6 28 2d 31 29 f2  |.....B%=1..(-1).|
00005c10  71 5f 3a e1 0d 15 18 78  f2 74 5f 3a 4a 5f 25 3d  |q_:....x.t_:J_%=|
00005c20  30 3a 73 63 25 3d 30 3a  4e 63 25 3d 58 25 3a 4f  |0:sc%=0:Nc%=X%:O|
00005c30  63 25 3d 59 25 3a 51 63  25 3d 58 25 3a 52 63 25  |c%=Y%:Qc%=X%:Rc%|
00005c40  3d 59 25 3a 42 64 25 3d  34 3a 43 64 25 3d 34 3a  |=Y%:Bd%=4:Cd%=4:|
00005c50  44 64 25 3d 34 3a 45 64  25 3d 34 3a e6 34 2c 30  |Dd%=4:Ed%=4:.4,0|
00005c60  3a c8 93 4e 63 25 2c 4f  63 25 2c 42 64 25 2c 43  |:..Nc%,Oc%,Bd%,C|
00005c70  64 25 3a f2 59 61 3a f5  3a c8 97 58 25 2c 59 25  |d%:.Ya:.:..X%,Y%|
00005c80  2c 42 25 3a e7 a6 28 2d  39 39 29 8c 0d 15 22 1f  |,B%:..(-99)...".|
00005c90  c8 93 4e 63 25 2c 4f 63  25 2c 42 64 25 2c 43 64  |..Nc%,Oc%,Bd%,Cd|
00005ca0  25 3a f2 59 61 3a f2 74  5f 3a e1 0d 15 2c 19 cd  |%:.Ya:.t_:...,..|
00005cb0  3a e7 7a 5f 25 3d 31 f2  59 61 3a f2 5a 61 3a c8  |:.z_%=1.Ya:.Za:.|
00005cc0  96 3a c8 96 0d 15 36 28  e7 a6 28 2d 31 30 36 29  |.:....6(..(-106)|
00005cd0  4a 5f 25 3d 31 3a d4 31  2c 2d 35 2c 31 31 32 2c  |J_%=1:.1,-5,112,|
00005ce0  34 3a f5 fd ac a6 28 2d  31 30 36 29 0d 15 40 1d  |4:....(-106)..@.|
00005cf0  e7 a6 28 2d 35 32 29 73  63 25 3d 31 3a ef 37 3a  |..(-52)sc%=1:.7:|
00005d00  f5 fd ac a6 28 2d 35 32  29 0d 15 4a 10 e7 a6 28  |....(-52)..J...(|
00005d10  2d 39 38 29 73 63 25 3d  31 0d 15 54 10 e7 a6 28  |-98)sc%=1..T...(|
00005d20  2d 36 37 29 73 63 25 3d  31 0d 15 5e 0c e7 a6 28  |-67)sc%=1..^...(|
00005d30  2d 38 32 29 8c 0d 15 68  44 44 64 25 3d 58 25 2d  |-82)...hDDd%=X%-|
00005d40  4e 63 25 3a 45 64 25 3d  59 25 2d 4f 63 25 3a 4f  |Nc%:Ed%=Y%-Oc%:O|
00005d50  61 25 3d 58 25 3a 50 61  25 3d 59 25 3a e7 94 45  |a%=X%:Pa%=Y%:..E|
00005d60  64 25 3c 94 44 64 25 8c  75 63 25 3d 94 45 64 25  |d%<.Dd%.uc%=.Ed%|
00005d70  8b 75 63 25 3d 94 44 64  25 0d 15 72 30 44 64 25  |.uc%=.Dd%..r0Dd%|
00005d80  3d b4 44 64 25 2a 75 63  25 3a 45 64 25 3d b4 45  |=.Dd%*uc%:Ed%=.E|
00005d90  64 25 2a 75 63 25 3a c8  97 b8 4e 63 25 2b 44 64  |d%*uc%:...Nc%+Dd|
00005da0  25 2c 4f 63 25 2b 45 64  25 0d 15 7c 2f cd 3a e7  |%,Oc%+Ed%..|/.:.|
00005db0  42 25 3d 30 20 44 64 25  3d 58 25 2d 4e 63 25 3a  |B%=0 Dd%=X%-Nc%:|
00005dc0  45 64 25 3d 59 25 2d 4f  63 25 3a 4f 61 25 3d 58  |Ed%=Y%-Oc%:Oa%=X|
00005dd0  25 3a 50 61 25 3d 59 25  0d 15 86 35 e7 42 25 3d  |%:Pa%=Y%...5.B%=|
00005de0  31 20 51 63 25 3d 4e 63  25 2b 58 25 2d 4f 61 25  |1 Qc%=Nc%+X%-Oa%|
00005df0  3a 52 63 25 3d 4f 63 25  2b 59 25 2d 50 61 25 3a  |:Rc%=Oc%+Y%-Pa%:|
00005e00  4f 61 25 3d 58 25 3a 50  61 25 3d 59 25 0d 15 90  |Oa%=X%:Pa%=Y%...|
00005e10  0a e7 42 25 3d 35 8c 0d  15 9a 1f f2 5a 61 3a e7  |..B%=5......Za:.|
00005e20  71 5f 25 3d a3 e6 30 2c  4e 5f 25 c8 9c 4f 5f 25  |q_%=..0,N_%..O_%|
00005e30  8b e6 38 30 2c 30 0d 15  a4 5c c8 93 51 63 25 2c  |..80,0...\..Qc%,|
00005e40  52 63 25 2c 44 64 25 2c  45 64 25 3a e6 34 2c 30  |Rc%,Dd%,Ed%:.4,0|
00005e50  3a c8 93 51 63 25 2c 52  63 25 2c 44 64 25 2c 45  |:..Qc%,Rc%,Dd%,E|
00005e60  64 25 3a f5 c8 97 58 25  2c 59 25 2c 42 25 3a fd  |d%:...X%,Y%,B%:.|
00005e70  42 25 3c 3e 35 3a c8 97  b8 4f 61 25 2c 50 61 25  |B%<>5:...Oa%,Pa%|
00005e80  3a 58 25 3d 4f 61 25 3a  59 25 3d 50 61 25 3a f2  |:X%=Oa%:Y%=Pa%:.|
00005e90  59 61 0d 15 ae 0c cd 3a  e7 42 25 3d 33 8c 0d 15  |Ya.....:.B%=3...|
00005ea0  b8 1f f2 5a 61 3a e7 71  5f 25 3d a3 e6 30 2c 4e  |...Za:.q_%=..0,N|
00005eb0  5f 25 c8 9c 4f 5f 25 8b  e6 38 30 2c 30 0d 15 c2  |_%..O_%..80,0...|
00005ec0  5e c8 93 c8 90 51 63 25  2c 52 63 25 2c 44 64 25  |^....Qc%,Rc%,Dd%|
00005ed0  2c 45 64 25 3a e6 34 2c  30 3a c8 93 51 63 25 2c  |,Ed%:.4,0:..Qc%,|
00005ee0  52 63 25 2c 44 64 25 2c  45 64 25 3a f5 c8 97 58  |Rc%,Dd%,Ed%:...X|
00005ef0  25 2c 59 25 2c 42 25 3a  fd 42 25 3c 3e 33 3a c8  |%,Y%,B%:.B%<>3:.|
00005f00  97 b8 4f 61 25 2c 50 61  25 3a 58 25 3d 4f 61 25  |..Oa%,Pa%:X%=Oa%|
00005f10  3a 59 25 3d 50 61 25 3a  f2 59 61 0d 15 cc 85 cd  |:Y%=Pa%:.Ya.....|
00005f20  3a c8 96 3a c8 93 4e 63  25 2c 4f 63 25 2c 42 64  |:..:..Nc%,Oc%,Bd|
00005f30  25 2c 43 64 25 3a c8 93  51 63 25 2c 52 63 25 2c  |%,Cd%:..Qc%,Rc%,|
00005f40  44 64 25 2c 45 64 25 3a  4e 63 25 3d 51 63 25 3a  |Dd%,Ed%:Nc%=Qc%:|
00005f50  4f 63 25 3d 52 63 25 3a  43 64 25 3d 45 64 25 3a  |Oc%=Rc%:Cd%=Ed%:|
00005f60  42 64 25 3d 44 64 25 3a  fd 42 25 3d 32 84 42 25  |Bd%=Dd%:.B%=2.B%|
00005f70  3d 34 84 4a 5f 25 3d 31  84 73 63 25 3d 31 3a f2  |=4.J_%=1.sc%=1:.|
00005f80  5a 61 3a e7 4a 5f 25 3d  31 c8 93 51 63 25 2c 52  |Za:.J_%=1..Qc%,R|
00005f90  63 25 2c 44 64 25 2c 45  64 25 3a f2 69 63 3a e1  |c%,Dd%,Ed%:.ic:.|
00005fa0  0d 15 d6 21 e7 73 63 25  3d 31 c8 93 51 63 25 2c  |...!.sc%=1..Qc%,|
00005fb0  52 63 25 2c 44 64 25 2c  45 64 25 3a f2 72 63 3a  |Rc%,Dd%,Ed%:.rc:|
00005fc0  e1 0d 15 e0 1b e7 71 5f  25 3d a3 e6 30 2c 4e 5f  |......q_%=..0,N_|
00005fd0  25 c8 9c 4f 5f 25 8b e6  38 30 2c 30 0d 15 ea 1e  |%..O_%..80,0....|
00005fe0  e7 42 25 3d 34 c8 93 51  63 25 2c 52 63 25 2c 44  |.B%=4..Qc%,Rc%,D|
00005ff0  64 25 2c 45 64 25 3a f2  74 5f 0d 15 f4 20 e7 42  |d%,Ed%:.t_... .B|
00006000  25 3d 32 c8 93 c8 90 51  63 25 2c 52 63 25 2c 44  |%=2....Qc%,Rc%,D|
00006010  64 25 2c 45 64 25 3a f2  74 5f 0d 15 fe 05 e1 0d  |d%,Ed%:.t_......|
00006020  16 08 1b dd f2 64 63 3a  e7 44 64 25 3c 30 8c 51  |.....dc:.Dd%<0.Q|
00006030  63 25 3d 51 63 25 2b 44  64 25 0d 16 12 16 e7 45  |c%=Qc%+Dd%.....E|
00006040  64 25 3c 30 8c 52 63 25  3d 52 63 25 2b 45 64 25  |d%<0.Rc%=Rc%+Ed%|
00006050  0d 16 1c 37 58 63 25 3d  94 28 44 64 25 29 2f 32  |...7Xc%=.(Dd%)/2|
00006060  3a 59 63 25 3d 94 28 45  64 25 2f 32 29 3a 4f 61  |:Yc%=.(Ed%/2):Oa|
00006070  25 3d 51 63 25 2b 58 63  25 3a 50 61 25 3d 52 63  |%=Qc%+Xc%:Pa%=Rc|
00006080  25 2b 59 63 25 3a e1 0d  16 26 89 dd f2 72 5f 3a  |%+Yc%:...&...r_:|
00006090  c8 99 34 36 2c 32 35 36  2b 31 36 2c 42 5f 2c 22  |..46,256+16,B_,"|
000060a0  53 50 52 49 54 45 22 2c  30 2c 30 2c 58 5f 25 2d  |SPRITE",0,0,X_%-|
000060b0  4c 5f 25 2c 57 5f 25 2c  58 5f 25 3a e6 30 c8 9c  |L_%,W_%,X_%:.0..|
000060c0  30 3a c8 93 c8 90 30 2c  58 5f 25 2d 4c 5f 25 2c  |0:....0,X_%-L_%,|
000060d0  57 5f 25 2c 31 36 3a e6  36 33 c8 9c 31 32 38 3a  |W_%,16:.63..128:|
000060e0  c8 93 c8 90 30 2c 58 5f  25 2d 4c 5f 25 2b 31 36  |....0,X_%-L_%+16|
000060f0  2c 57 5f 25 2c 4c 5f 25  2d 31 36 3a ef 34 3a fb  |,W_%,L_%-16:.4:.|
00006100  31 39 31 c8 9c 31 32 38  3a fb 30 c8 9c 30 3a e1  |191..128:.0..0:.|
00006110  0d 16 30 0e dd f2 73 5f  3a c8 8e 4b 25 ca 0d 16  |..0...s_:..K%...|
00006120  3a 0a c9 30 3a f2 46 64  0d 16 44 0a c9 31 3a f2  |:..0:.Fd..D..1:.|
00006130  47 64 0d 16 4e 0a c9 32  3a f2 48 64 0d 16 58 0a  |Gd..N..2:.Hd..X.|
00006140  c9 33 3a f2 49 64 0d 16  62 0a c9 34 3a f2 4a 64  |.3:.Id..b..4:.Jd|
00006150  0d 16 6c 0a c9 35 3a f2  4b 64 0d 16 76 0a c9 36  |..l..5:.Kd..v..6|
00006160  3a f2 4c 64 0d 16 80 0a  c9 37 3a f2 4d 64 0d 16  |:.Ld.....7:.Md..|
00006170  8a 0a c9 38 3a f2 4e 64  0d 16 94 0a c9 39 3a f2  |...8:.Nd.....9:.|
00006180  4f 64 0d 16 9e 0b c9 31  30 3a f2 50 64 0d 16 a8  |Od.....10:.Pd...|
00006190  0b c9 31 31 3a f2 51 64  0d 16 b2 0a cb 3a ef 35  |..11:.Qd.....:.5|
000061a0  3a e1 0d 16 bc 2e dd f2  75 5f 3a c8 99 34 36 2c  |:.......u_:..46,|
000061b0  32 35 36 2b 33 34 2c 42  5f 2c 22 53 50 52 49 54  |256+34,B_,"SPRIT|
000061c0  45 22 2c 30 2c 58 5f 25  2d 4c 5f 25 2c 30 3a e1  |E",0,X_%-L_%,0:.|
000061d0  0d 16 c6 9a dd f2 46 64  3a f1 8a 32 36 2c 31 29  |......Fd:..26,1)|
000061e0  22 48 45 4c 50 20 2d 20  4a 61 67 67 65 64 20 43  |"HELP - Jagged C|
000061f0  75 72 76 65 22 27 3a f1  22 20 43 6c 69 63 6b 20  |urve"':." Click |
00006200  7b 53 7d 20 74 6f 20 73  74 61 72 74 2e 20 4d 6f  |{S} to start. Mo|
00006210  76 69 6e 67 20 74 68 65  20 6d 6f 75 73 65 20 77  |ving the mouse w|
00006220  69 6c 6c 20 64 69 73 70  6c 61 79 20 61 20 64 6f  |ill display a do|
00006230  74 74 65 64 20 6c 69 6e  65 2e 22 3a f1 22 20 43  |tted line.":." C|
00006240  6c 69 63 6b 20 7b 53 7d  20 61 67 61 69 6e 20 74  |lick {S} again t|
00006250  6f 20 63 6f 6e 74 69 6e  75 65 20 74 6f 20 61 64  |o continue to ad|
00006260  64 20 70 6f 69 6e 74 73  2e 22 0d 16 d0 e1 f1 22  |d points."....."|
00006270  20 41 20 63 6f 6e 74 69  6e 75 6f 75 73 20 6a 61  | A continuous ja|
00006280  67 67 65 64 20 63 75 72  76 65 20 77 69 6c 6c 20  |gged curve will |
00006290  62 65 20 64 69 73 70 6c  61 79 65 64 20 70 61 73  |be displayed pas|
000062a0  73 69 6e 67 20 74 68 72  6f 75 67 68 20 73 75 63  |sing through suc|
000062b0  63 65 73 69 76 65 20 70  6f 69 6e 74 73 22 27 3a  |cesive points"':|
000062c0  f1 22 20 43 6c 69 63 6b  20 7b 41 7d 20 74 6f 20  |." Click {A} to |
000062d0  66 69 6e 69 73 68 20 77  69 74 68 20 79 6f 75 72  |finish with your|
000062e0  20 6c 61 73 74 20 70 6f  69 6e 74 20 20 28 20 77  | last point  ( w|
000062f0  69 74 68 20 61 6e 20 6f  70 65 6e 20 70 61 74 68  |ith an open path|
00006300  20 29 2c 22 3a f1 22 20  4f 52 20 63 6c 69 63 6b  | ),":." OR click|
00006310  20 7b 4d 7d 20 74 6f 20  63 6f 6d 70 6c 65 74 65  | {M} to complete|
00006320  20 61 20 63 6c 6f 73 65  64 20 70 61 74 68 20 28  | a closed path (|
00006330  20 74 6f 20 79 6f 75 72  20 69 6e 69 74 69 61 6c  | to your initial|
00006340  20 70 6f 69 6e 74 20 29  2e 22 27 0d 16 da 41 f1  | point )."'...A.|
00006350  22 20 50 61 72 61 6d 65  74 65 72 3a 20 31 20 3d  |" Parameter: 1 =|
00006360  20 6d 69 6e 6f 72 20 76  61 72 69 61 74 69 6f 6e  | minor variation|
00006370  2c 20 20 36 20 3d 20 76  69 6f 6c 65 6e 74 20 76  |,  6 = violent v|
00006380  61 72 69 61 74 69 6f 6e  2e 22 3a e1 0d 16 e4 bb  |ariation.":.....|
00006390  dd f2 47 64 3a f1 8a 32  36 2c 31 29 22 48 45 4c  |..Gd:..26,1)"HEL|
000063a0  50 20 2d 20 50 61 72 61  6c 6c 65 6c 6f 67 72 61  |P - Parallelogra|
000063b0  6d 22 27 3a f1 22 20 43  6c 69 63 6b 20 7b 53 7d  |m"':." Click {S}|
000063c0  20 74 6f 20 66 69 78 20  61 20 73 74 61 72 74 20  | to fix a start |
000063d0  70 6f 69 6e 74 2e 20 4d  6f 76 69 6e 67 20 74 68  |point. Moving th|
000063e0  65 20 6d 6f 75 73 65 20  64 69 73 70 6c 61 79 73  |e mouse displays|
000063f0  20 61 20 64 6f 74 74 65  64 20 6c 69 6e 65 2e 22  | a dotted line."|
00006400  3a f1 22 20 43 6c 69 63  6b 69 6e 67 20 7b 53 7d  |:." Clicking {S}|
00006410  20 61 67 61 69 6e 20 77  69 6c 6c 20 66 69 78 20  | again will fix |
00006420  74 68 69 73 20 66 69 72  73 74 20 73 69 64 65 20  |this first side |
00006430  6f 66 20 74 68 65 20 70  61 72 61 6c 6c 65 6c 6f  |of the parallelo|
00006440  67 72 61 6d 2e 22 27 0d  16 ee bf f1 22 20 43 6c  |gram."'....." Cl|
00006450  69 63 6b 20 7b 53 7d 20  61 67 61 69 6e 20 74 6f  |ick {S} again to|
00006460  20 66 69 6e 69 73 68 20  77 69 74 68 20 61 6e 20  | finish with an |
00006470  6f 75 74 6c 69 6e 65 20  70 61 72 61 6c 6c 65 6c  |outline parallel|
00006480  6f 67 72 61 6d 2c 22 3a  f1 22 20 4f 52 20 63 6c  |ogram,":." OR cl|
00006490  69 63 6b 20 7b 4d 7d 20  74 6f 20 67 65 74 20 61  |ick {M} to get a|
000064a0  20 63 6f 6c 6f 75 72 20  66 69 6c 6c 65 64 20 70  | colour filled p|
000064b0  61 72 61 6c 6c 65 6c 6f  67 72 61 6d 2e 22 27 3a  |arallelogram."':|
000064c0  f1 22 20 48 6f 6c 64 20  7b 41 7d 20 64 6f 77 6e  |." Hold {A} down|
000064d0  20 61 6e 64 20 6d 6f 76  65 20 74 68 65 20 6d 6f  | and move the mo|
000064e0  75 73 65 20 74 6f 20 6d  6f 76 65 20 74 68 65 20  |use to move the |
000064f0  70 61 72 61 6c 6c 65 6c  6f 67 72 61 6d 20 62 6f  |parallelogram bo|
00006500  64 69 6c 79 2e 22 0d 16  f8 55 f1 22 20 57 68 69  |dily."...U." Whi|
00006510  6c 65 20 68 6f 6c 64 69  6e 67 20 7b 41 7d 20 64  |le holding {A} d|
00006520  6f 77 6e 20 63 6c 69 63  6b 20 6f 6e 20 7b 53 7d  |own click on {S}|
00006530  20 66 6f 72 20 6f 75 74  6c 69 6e 65 2c 6f 72 20  | for outline,or |
00006540  7b 4d 7d 20 66 6f 72 20  61 20 63 6f 6c 6f 75 72  |{M} for a colour|
00006550  20 66 69 6c 6c 65 64 2e  22 3a e1 0d 17 02 bc dd  | filled.":......|
00006560  f2 48 64 3a f1 8a 32 36  2c 31 29 22 48 45 4c 50  |.Hd:..26,1)"HELP|
00006570  20 2d 20 45 6c 6c 69 70  73 65 22 27 3a f1 22 20  | - Ellipse"':." |
00006580  43 6c 69 63 6b 20 7b 53  7d 20 74 6f 20 73 74 61  |Click {S} to sta|
00006590  72 74 2e 20 4d 6f 76 65  20 74 68 65 20 6d 6f 75  |rt. Move the mou|
000065a0  73 65 20 74 6f 20 64 69  73 70 6c 61 79 20 76 61  |se to display va|
000065b0  72 69 6f 75 73 20 73 69  7a 65 64 20 65 6c 6c 69  |rious sized elli|
000065c0  70 73 65 73 2e 22 3a f1  22 20 43 6c 69 63 6b 20  |pses.":." Click |
000065d0  7b 53 7d 20 61 67 61 69  6e 20 66 6f 72 20 6f 75  |{S} again for ou|
000065e0  74 6c 69 6e 65 20 65 6c  6c 69 70 73 65 2c 4f 52  |tline ellipse,OR|
000065f0  20 63 6c 69 63 6b 20 7b  4d 7d 20 66 6f 72 20 63  | click {M} for c|
00006600  6f 6c 6f 75 72 20 66 69  6c 6c 65 64 20 65 6c 6c  |olour filled ell|
00006610  69 70 73 65 2e 22 27 0d  17 0c d6 f1 22 20 43 6c  |ipse."'....." Cl|
00006620  69 63 6b 20 2f 20 48 6f  6c 64 20 3c 5a 3e 2c 3c  |ick / Hold <Z>,<|
00006630  58 3e 20 74 6f 20 72 6f  74 61 74 65 20 74 68 65  |X> to rotate the|
00006640  20 65 6c 6c 69 70 73 65  20 61 6e 74 69 63 6c 6f  | ellipse anticlo|
00006650  63 6b 77 69 73 65 20 2f  20 63 6c 6f 63 6b 77 69  |ckwise / clockwi|
00006660  73 65 2e 22 3a f1 22 20  48 6f 6c 64 69 6e 67 20  |se.":." Holding |
00006670  3c 43 3e 20 64 6f 77 6e  20 66 69 78 65 73 20 74  |<C> down fixes t|
00006680  68 65 20 63 65 6e 74 72  65 2c 20 65 6e 61 62 6c  |he centre, enabl|
00006690  69 6e 67 20 27 63 6f 6e  63 65 6e 74 72 69 63 27  |ing 'concentric'|
000066a0  20 65 6c 6c 69 70 73 65  73 2e 22 27 3a f1 22 20  | ellipses."':." |
000066b0  48 6f 6c 64 69 6e 67 20  7b 41 7d 20 64 6f 77 6e  |Holding {A} down|
000066c0  20 77 69 6c 6c 20 65 6e  61 62 6c 65 20 74 68 65  | will enable the|
000066d0  20 65 6c 6c 69 70 73 65  20 74 6f 20 62 65 20 6d  | ellipse to be m|
000066e0  6f 76 65 64 20 62 6f 64  69 6c 79 2e 22 0d 17 16  |oved bodily."...|
000066f0  52 f1 22 20 43 6c 69 63  6b 69 6e 67 20 6f 6e 20  |R." Clicking on |
00006700  7b 53 7d 20 2f 20 7b 4d  7d 20 61 73 20 77 65 6c  |{S} / {M} as wel|
00006710  6c 20 77 69 6c 6c 20 73  74 69 6c 6c 20 67 69 76  |l will still giv|
00006720  65 20 6f 75 74 6c 69 6e  65 20 2f 20 66 69 6c 6c  |e outline / fill|
00006730  65 64 20 65 6c 6c 69 70  73 65 73 2e 22 3a e1 0d  |ed ellipses.":..|
00006740  17 20 bd dd f2 49 64 3a  f1 8a 32 36 2c 31 29 22  |. ...Id:..26,1)"|
00006750  48 45 4c 50 20 2d 20 41  72 63 22 27 3a f1 22 20  |HELP - Arc"':." |
00006760  54 68 69 73 20 65 6e 61  62 6c 65 73 20 73 6d 6f  |This enables smo|
00006770  6f 74 68 20 63 75 72 76  65 73 20 28 6f 70 65 6e  |oth curves (open|
00006780  2f 63 6c 6f 73 65 64 29  20 74 6f 20 62 65 20 64  |/closed) to be d|
00006790  72 61 77 6e 20 74 68 72  6f 75 67 68 20 76 61 72  |rawn through var|
000067a0  69 6f 75 73 20 70 6f 69  6e 74 73 2e 22 27 3a f1  |ious points."':.|
000067b0  22 20 54 68 65 20 52 2e  48 20 70 61 72 61 6d 65  |" The R.H parame|
000067c0  74 65 72 20 61 64 6a 75  73 74 73 20 74 68 65 20  |ter adjusts the |
000067d0  77 69 64 74 68 20 6f 66  20 74 68 65 20 63 75 72  |width of the cur|
000067e0  76 65 3a 2d 20 31 3d 74  68 69 6e 65 73 74 2c 36  |ve:- 1=thinest,6|
000067f0  3d 74 68 69 63 6b 65 73  74 2e 22 27 0d 17 2a db  |=thickest."'..*.|
00006800  f1 22 20 43 6c 69 63 6b  20 7b 53 7d 20 74 6f 20  |." Click {S} to |
00006810  73 74 61 72 74 2e 20 4d  6f 76 69 6e 67 20 74 68  |start. Moving th|
00006820  65 20 6d 6f 75 73 65 20  77 69 6c 6c 20 64 69 73  |e mouse will dis|
00006830  70 6c 61 79 20 61 20 64  6f 74 74 65 64 20 6c 69  |play a dotted li|
00006840  6e 65 2e 22 3a f1 22 20  43 6c 69 63 6b 20 7b 53  |ne.":." Click {S|
00006850  7d 20 61 67 61 69 6e 20  74 6f 20 63 6f 6e 74 69  |} again to conti|
00006860  6e 75 65 20 74 6f 20 61  64 64 20 70 6f 69 6e 74  |nue to add point|
00006870  73 20 2d 20 61 20 73 6d  6f 6f 74 68 20 63 75 72  |s - a smooth cur|
00006880  76 65 20 77 69 6c 6c 20  62 65 20 64 72 61 77 6e  |ve will be drawn|
00006890  2e 22 27 3a f1 22 20 43  6c 69 63 6b 20 7b 41 7d  |."':." Click {A}|
000068a0  20 6f 6e 20 74 68 65 20  6c 61 73 74 20 70 6f 69  | on the last poi|
000068b0  6e 74 20 74 6f 20 66 69  6e 69 73 68 20 77 69 74  |nt to finish wit|
000068c0  68 20 61 20 73 6d 6f 6f  74 68 20 6f 70 65 6e 20  |h a smooth open |
000068d0  63 75 72 76 65 2c 22 0d  17 34 9f f1 22 20 4f 52  |curve,"..4.." OR|
000068e0  20 63 6c 69 63 6b 20 7b  4d 7d 20 74 6f 20 66 69  | click {M} to fi|
000068f0  6e 69 73 68 20 77 69 74  68 20 61 20 73 6d 6f 6f  |nish with a smoo|
00006900  74 68 20 63 6c 6f 73 65  64 20 70 61 74 68 20 28  |th closed path (|
00006910  74 6f 20 79 6f 75 72 20  69 6e 69 74 69 61 6c 20  |to your initial |
00006920  70 6f 69 6e 74 20 29 2e  22 27 3a f1 22 20 4e 6f  |point )."':." No|
00006930  74 65 3a 20 74 68 65 20  66 69 72 73 74 20 27 62  |te: the first 'b|
00006940  72 61 6e 63 68 27 20 69  73 20 6e 6f 74 20 66 69  |ranch' is not fi|
00006950  6e 61 6c 69 73 65 64 20  75 6e 74 69 6c 20 74 68  |nalised until th|
00006960  65 20 66 69 6e 61 6c 20  7b 41 7d 20 6f 72 20 7b  |e final {A} or {|
00006970  4d 7d 2e 22 3a e1 0d 17  3e b8 dd f2 4a 64 3a f1  |M}.":...>...Jd:.|
00006980  8a 32 36 2c 31 29 22 48  45 4c 50 20 2d 20 43 69  |.26,1)"HELP - Ci|
00006990  72 63 6c 65 22 27 3a f1  22 20 43 6c 69 63 6b 20  |rcle"':." Click |
000069a0  7b 53 7d 20 74 6f 20 73  74 61 72 74 2e 20 4d 6f  |{S} to start. Mo|
000069b0  76 69 6e 67 20 74 68 65  20 6d 6f 75 73 65 20 64  |ving the mouse d|
000069c0  69 73 70 6c 61 79 73 20  76 61 72 69 6f 75 73 20  |isplays various |
000069d0  73 69 7a 65 64 20 63 69  72 63 6c 65 73 2e 22 3a  |sized circles.":|
000069e0  f1 22 20 43 6c 69 63 6b  20 7b 53 7d 20 61 67 61  |." Click {S} aga|
000069f0  69 6e 20 66 6f 72 20 6f  75 74 6c 69 6e 65 20 63  |in for outline c|
00006a00  69 72 63 6c 65 2c 4f 52  20 63 6c 69 63 6b 20 7b  |ircle,OR click {|
00006a10  4d 7d 20 66 6f 72 20 63  6f 6c 6f 75 72 20 66 69  |M} for colour fi|
00006a20  6c 6c 65 64 20 63 69 72  63 6c 65 2e 22 27 0d 17  |lled circle."'..|
00006a30  48 cd f1 22 20 48 6f 6c  64 69 6e 67 20 3c 43 3e  |H.." Holding <C>|
00006a40  20 64 6f 77 6e 20 65 6e  61 62 6c 65 73 20 63 6f  | down enables co|
00006a50  6e 63 65 6e 74 72 69 63  20 63 69 72 63 6c 65 73  |ncentric circles|
00006a60  20 74 6f 20 62 65 20 64  72 61 77 6e 2e 22 27 3a  | to be drawn."':|
00006a70  f1 22 20 48 6f 6c 64 69  6e 67 20 7b 41 7d 20 64  |." Holding {A} d|
00006a80  6f 77 6e 20 77 69 6c 6c  20 65 6e 61 62 6c 65 20  |own will enable |
00006a90  74 68 65 20 63 69 72 63  6c 65 20 74 6f 20 62 65  |the circle to be|
00006aa0  20 6d 6f 76 65 64 20 62  6f 64 69 6c 79 2e 22 3a  | moved bodily.":|
00006ab0  f1 22 20 43 6c 69 63 6b  69 6e 67 20 6f 6e 20 7b  |." Clicking on {|
00006ac0  53 7d 2f 7b 4d 7d 20 61  73 20 77 65 6c 6c 20 77  |S}/{M} as well w|
00006ad0  69 6c 6c 20 73 74 69 6c  6c 20 67 69 76 65 20 6f  |ill still give o|
00006ae0  75 74 6c 69 6e 65 20 2f  20 66 69 6c 6c 65 64 20  |utline / filled |
00006af0  63 69 72 63 6c 65 73 2e  22 3a e1 0d 17 52 c1 dd  |circles.":...R..|
00006b00  f2 4b 64 3a f1 8a 32 36  2c 31 29 22 48 45 4c 50  |.Kd:..26,1)"HELP|
00006b10  20 2d 20 46 72 65 65 20  48 61 6e 64 22 27 3a f1  | - Free Hand"':.|
00006b20  22 20 50 72 65 73 73 20  3c 31 3e 2c 2e 2e 2e 2c  |" Press <1>,...,|
00006b30  3c 35 3e 20 74 6f 20 73  65 6c 65 63 74 20 74 68  |<5> to select th|
00006b40  65 20 73 70 65 65 64 2f  73 6d 6f 6f 74 68 6e 65  |e speed/smoothne|
00006b50  73 73 20 6f 66 20 64 72  61 77 69 6e 67 2e 20 44  |ss of drawing. D|
00006b60  65 66 61 75 6c 74 3d 33  2e 22 3a f1 22 20 43 6c  |efault=3.":." Cl|
00006b70  69 63 6b 20 7b 53 7d 20  74 6f 20 73 74 61 72 74  |ick {S} to start|
00006b80  20 61 6e 64 20 48 4f 4c  44 20 69 74 20 64 6f 77  | and HOLD it dow|
00006b90  6e 2e 20 4d 6f 76 69 6e  67 20 74 68 65 20 6d 6f  |n. Moving the mo|
00006ba0  75 73 65 20 67 69 76 65  73 20 66 72 65 65 2d 68  |use gives free-h|
00006bb0  61 6e 64 20 63 75 72 76  65 2e 22 27 0d 17 5c d6  |and curve."'..\.|
00006bc0  f1 22 20 48 6f 6c 64 69  6e 67 20 74 68 65 20 6b  |." Holding the k|
00006bd0  65 79 73 20 3c 48 3e 2f  3c 56 3e 20 77 69 6c 6c  |eys <H>/<V> will|
00006be0  20 66 6f 72 63 65 20 68  6f 72 69 7a 6f 6e 74 61  | force horizonta|
00006bf0  6c 2f 76 65 72 74 69 63  61 6c 20 6c 69 6e 65 73  |l/vertical lines|
00006c00  2e 22 27 3a f1 22 20 45  52 41 53 45 52 3a 20 2d  |."':." ERASER: -|
00006c10  20 63 68 6f 6f 73 65 20  74 68 65 20 62 61 63 6b  | choose the back|
00006c20  67 72 6f 75 6e 64 20 63  6f 6c 6f 75 72 20 61 73  |ground colour as|
00006c30  20 74 68 65 20 63 75 72  72 65 6e 74 20 63 6f 6c  | the current col|
00006c40  6f 75 72 2e 22 3a f1 22  20 48 6f 6c 64 69 6e 67  |our.":." Holding|
00006c50  20 7b 53 7d 2b 3c 53 50  41 43 45 3e 20 64 69 73  | {S}+<SPACE> dis|
00006c60  70 6c 61 79 73 20 61 20  73 6d 61 6c 6c 20 6f 75  |plays a small ou|
00006c70  74 6c 69 6e 65 20 63 69  72 63 6c 65 20 28 20 66  |tline circle ( f|
00006c80  6f 72 20 74 68 69 63 6b  6e 65 73 73 20 3e 33 20  |or thickness >3 |
00006c90  29 22 0d 17 66 9d f1 22  20 77 68 69 63 68 20 6d  |)"..f.." which m|
00006ca0  61 6b 65 73 20 69 74 20  65 61 73 69 65 72 20 74  |akes it easier t|
00006cb0  6f 20 73 65 65 20 77 69  74 68 20 61 63 63 75 72  |o see with accur|
00006cc0  61 63 79 20 74 68 65 20  61 72 65 61 20 74 6f 20  |acy the area to |
00006cd0  62 65 20 64 65 6c 65 74  65 64 2e 22 27 3a f1 22  |be deleted."':."|
00006ce0  20 54 68 65 20 70 61 72  61 6d 65 74 65 72 20 64  | The parameter d|
00006cf0  65 74 65 72 6d 69 6e 65  73 20 74 68 65 20 77 69  |etermines the wi|
00006d00  64 74 68 20 6f 66 20 74  68 65 20 6c 69 6e 65 20  |dth of the line |
00006d10  3a 20 31 20 3d 20 74 68  69 6e 65 73 74 2c 20 36  |: 1 = thinest, 6|
00006d20  20 3d 20 74 68 69 63 6b  65 73 74 2e 22 3a e1 0d  | = thickest.":..|
00006d30  17 70 b3 dd f2 4c 64 3a  f1 8a 32 36 2c 31 29 22  |.p...Ld:..26,1)"|
00006d40  48 45 4c 50 20 2d 20 4c  69 6e 65 22 27 3a f1 22  |HELP - Line"':."|
00006d50  20 43 6c 69 63 6b 20 7b  53 7d 20 74 6f 20 73 74  | Click {S} to st|
00006d60  61 72 74 2e 20 4d 6f 76  69 6e 67 20 74 68 65 20  |art. Moving the |
00006d70  6d 6f 75 73 65 20 77 69  6c 6c 20 64 69 73 70 6c  |mouse will displ|
00006d80  61 79 20 61 20 64 6f 74  74 65 64 20 6c 69 6e 65  |ay a dotted line|
00006d90  2e 22 3a f1 22 20 55 73  65 20 7b 53 7d 20 61 67  |.":." Use {S} ag|
00006da0  61 69 6e 20 74 6f 20 63  6f 6e 74 69 6e 75 65 20  |ain to continue |
00006db0  74 6f 20 61 64 64 20 70  6f 69 6e 74 73 20 2d 20  |to add points - |
00006dc0  61 20 63 6f 6e 74 69 6e  75 6f 75 73 20 70 61 74  |a continuous pat|
00006dd0  68 20 77 69 6c 6c 20 62  65 20 64 72 61 77 6e 2e  |h will be drawn.|
00006de0  22 27 0d 17 7a cb f1 22  20 48 6f 6c 64 20 74 68  |"'..z.." Hold th|
00006df0  65 20 6b 65 79 73 20 3c  48 3e 2c 3c 56 3e 20 74  |e keys <H>,<V> t|
00006e00  6f 20 66 6f 72 63 65 20  68 6f 72 69 7a 6f 6e 74  |o force horizont|
00006e10  61 6c 20 2f 20 76 65 72  74 69 63 61 6c 20 6c 69  |al / vertical li|
00006e20  6e 65 73 2e 22 27 3a f1  22 20 43 6c 69 63 6b 20  |nes."':." Click |
00006e30  7b 41 7d 20 74 6f 20 66  69 6e 69 73 68 20 77 69  |{A} to finish wi|
00006e40  74 68 20 79 6f 75 72 20  6c 61 73 74 20 70 6f 69  |th your last poi|
00006e50  6e 74 20 2d 20 67 69 76  69 6e 67 20 61 6e 20 6f  |nt - giving an o|
00006e60  70 65 6e 20 70 61 74 68  2c 22 3a f1 22 20 4f 52  |pen path,":." OR|
00006e70  20 63 6c 69 63 6b 20 7b  4d 7d 20 74 6f 20 63 6f  | click {M} to co|
00006e80  6d 70 6c 65 74 65 20 61  20 63 6c 6f 73 65 64 20  |mplete a closed |
00006e90  70 61 74 68 20 74 6f 20  79 6f 75 72 20 69 6e 69  |path to your ini|
00006ea0  74 69 61 6c 20 70 6f 69  6e 74 2e 22 27 0d 17 84  |tial point."'...|
00006eb0  55 f1 22 20 54 68 65 20  70 61 72 61 6d 65 74 65  |U." The paramete|
00006ec0  72 20 64 65 74 65 72 6d  69 6e 65 73 20 74 68 65  |r determines the|
00006ed0  20 77 69 64 74 68 20 6f  66 20 74 68 65 20 6c 69  | width of the li|
00006ee0  6e 65 20 3a 20 31 20 3d  20 74 68 69 6e 65 73 74  |ne : 1 = thinest|
00006ef0  2c 36 20 3d 20 74 68 69  63 6b 65 73 74 2e 22 27  |,6 = thickest."'|
00006f00  3a e1 0d 17 8e a5 dd f2  4d 64 3a f1 8a 32 36 2c  |:.......Md:..26,|
00006f10  31 29 22 48 45 4c 50 20  2d 20 46 69 6c 6c 22 27  |1)"HELP - Fill"'|
00006f20  3a f1 22 20 43 6c 69 63  6b 20 7b 53 7d 20 74 6f  |:." Click {S} to|
00006f30  20 66 69 6c 6c 20 61 6e  20 61 72 65 61 20 77 69  | fill an area wi|
00006f40  74 68 20 74 68 65 20 63  75 72 72 65 6e 74 20 63  |th the current c|
00006f50  6f 6c 6f 75 72 2e 22 27  3a f1 22 20 49 66 20 74  |olour."':." If t|
00006f60  68 65 20 63 75 72 72 65  6e 74 20 63 6f 6c 6f 75  |he current colou|
00006f70  72 20 69 73 20 27 70 75  72 65 27 20 74 68 65 6e  |r is 'pure' then|
00006f80  20 66 69 6c 6c 69 6e 67  20 61 6c 77 61 79 73 20  | filling always |
00006f90  77 6f 72 6b 73 2c 20 69  72 72 65 73 70 65 63 74  |works, irrespect|
00006fa0  69 76 65 20 6f 66 22 0d  17 98 9e f1 22 20 74 68  |ive of"....." th|
00006fb0  65 20 63 6f 6c 6f 75 72  20 61 6c 72 65 61 64 79  |e colour already|
00006fc0  20 70 72 65 73 65 6e 74  20 69 6e 20 74 68 65 20  | present in the |
00006fd0  63 68 6f 73 65 6e 20 61  72 65 61 2e 20 49 66 20  |chosen area. If |
00006fe0  74 68 65 20 63 75 72 72  65 6e 74 20 63 6f 6c 6f  |the current colo|
00006ff0  75 72 20 69 73 20 22 3a  f1 22 20 64 69 74 68 65  |ur is ":." dithe|
00007000  72 65 64 20 74 68 65 6e  20 66 69 6c 6c 69 6e 67  |red then filling|
00007010  20 77 69 6c 6c 20 6f 6e  6c 79 20 77 6f 72 6b 20  | will only work |
00007020  69 66 20 74 68 65 20 63  6f 6c 6f 75 72 20 69 6e  |if the colour in|
00007030  20 74 68 65 20 61 72 65  61 20 69 73 20 27 70 75  | the area is 'pu|
00007040  72 65 27 2e 22 0d 17 a2  e0 f1 22 20 53 6f 20 74  |re'."....." So t|
00007050  6f 20 6f 76 65 72 77 72  69 74 65 20 61 20 64 69  |o overwrite a di|
00007060  74 68 65 72 65 64 20 61  72 65 61 20 79 6f 75 20  |thered area you |
00007070  6d 75 73 74 20 66 69 72  73 74 20 66 69 6c 6c 20  |must first fill |
00007080  74 68 65 20 61 72 65 61  20 77 69 74 68 20 61 20  |the area with a |
00007090  70 75 72 65 22 3a f1 22  20 63 6f 6c 6f 75 72 20  |pure":." colour |
000070a0  61 6e 64 20 54 48 45 4e  20 72 65 66 69 6c 6c 20  |and THEN refill |
000070b0  77 69 74 68 20 79 6f 75  72 20 63 68 6f 73 65 6e  |with your chosen|
000070c0  20 64 69 74 68 65 72 65  64 20 63 6f 6c 6f 75 72  | dithered colour|
000070d0  2e 22 27 3a f1 22 20 3c  53 50 41 43 45 3e 20 27  |."':." <SPACE> '|
000070e0  75 6e 64 6f 65 73 27 20  74 68 65 20 6c 61 73 74  |undoes' the last|
000070f0  20 66 69 6c 6c 20 28 69  66 20 4e 4f 20 63 6f 6c  | fill (if NO col|
00007100  6f 75 72 20 63 68 61 6e  67 65 73 20 6d 61 64 65  |our changes made|
00007110  20 69 6e 20 74 68 65 20  6d 65 61 6e 74 69 6d 65  | in the meantime|
00007120  29 2e 22 3a e1 0d 17 ac  c2 dd f2 4e 64 3a f1 8a  |).":.......Nd:..|
00007130  32 36 2c 31 29 22 48 45  4c 50 20 2d 20 52 65 63  |26,1)"HELP - Rec|
00007140  74 61 6e 67 6c 65 2f 43  6f 70 79 22 27 3a f1 22  |tangle/Copy"':."|
00007150  20 52 4f 54 41 54 49 4f  4e 20 6d 6f 64 65 3a 20  | ROTATION mode: |
00007160  50 72 65 73 73 20 3c 52  3e 20 28 6f 72 20 3c 5a  |Press <R> (or <Z|
00007170  3e 2c 3c 58 3e 29 20 74  6f 20 61 63 74 69 76 61  |>,<X>) to activa|
00007180  74 65 20 74 68 65 20 66  6f 6c 6c 6f 77 69 6e 67  |te the following|
00007190  20 3a 2d 22 3a f1 22 20  20 20 20 3c 5a 3e 3d 72  | :-":."    <Z>=r|
000071a0  6f 74 61 74 65 20 61 6e  74 69 63 6c 6f 63 6b 77  |otate anticlockw|
000071b0  69 73 65 2c 20 3c 58 3e  3d 63 6c 6f 63 6b 77 69  |ise, <X>=clockwi|
000071c0  73 65 2c 20 3c 30 3e 2e  2e 2e 3c 38 3e 3d 6d 75  |se, <0>...<8>=mu|
000071d0  6c 74 69 70 6c 65 73 20  6f 66 20 34 35 20 64 65  |ltiples of 45 de|
000071e0  67 72 65 65 73 2e 22 0d  17 b6 a2 f1 22 20 20 20  |grees."....."   |
000071f0  20 3c 53 3e 3d 46 6f 72  63 65 20 69 6e 74 6f 20  | <S>=Force into |
00007200  53 71 75 61 72 65 2c 3c  44 3e 3d 6f 72 69 67 69  |Square,<D>=origi|
00007210  6e 61 6c 20 72 65 63 74  61 6e 67 6c 65 20 44 69  |nal rectangle Di|
00007220  6d 65 6e 73 69 6f 6e 73  2c 3c 42 3e 3d 74 6f 67  |mensions,<B>=tog|
00007230  67 6c 65 73 20 42 72 75  73 68 2e 22 3a f1 22 20  |gles Brush.":." |
00007240  20 20 20 3e 20 3d 20 64  6f 75 62 6c 65 20 73 69  |   > = double si|
00007250  7a 65 20 2c 20 3c 20 3d  20 68 61 6c 66 20 73 69  |ze , < = half si|
00007260  7a 65 20 2c 20 43 75 72  73 6f 72 20 6b 65 79 73  |ze , Cursor keys|
00007270  20 3d 20 61 64 6a 75 73  74 20 77 69 64 74 68 2f  | = adjust width/|
00007280  68 65 69 67 68 74 2e 22  27 0d 17 c0 a5 f1 22 20  |height."'....." |
00007290  52 45 43 54 41 4e 47 4c  45 3a 20 43 6c 69 63 6b  |RECTANGLE: Click|
000072a0  20 7b 53 7d 20 74 6f 20  73 74 61 72 74 2c 7b 53  | {S} to start,{S|
000072b0  7d 20 61 67 61 69 6e 20  66 6f 72 20 6f 75 74 6c  |} again for outl|
000072c0  69 6e 65 20 4f 52 20 7b  4d 7d 20 66 6f 72 20 63  |ine OR {M} for c|
000072d0  6f 6c 6f 75 72 20 66 69  6c 6c 65 64 2e 22 3a f1  |olour filled.":.|
000072e0  22 20 20 20 20 48 6f 6c  64 69 6e 67 20 7b 41 7d  |"    Holding {A}|
000072f0  20 64 6f 77 6e 20 65 6e  61 62 6c 65 73 20 69 74  | down enables it|
00007300  20 74 6f 20 62 65 20 6d  6f 76 65 64 20 62 6f 64  | to be moved bod|
00007310  69 6c 79 2c 20 61 6e 64  20 7b 53 7d 2f 7b 4d 7d  |ily, and {S}/{M}|
00007320  20 73 74 69 6c 6c 20 77  6f 72 6b 2e 22 27 0d 17  | still work."'..|
00007330  ca a7 f1 22 20 43 4f 50  59 3a 22 27 22 20 20 20  |..." COPY:"'"   |
00007340  20 20 50 72 65 73 73 20  3c 43 6f 70 79 3e 20 74  |  Press <Copy> t|
00007350  6f 20 73 74 61 72 74 2c  20 6d 6f 76 65 20 61 72  |o start, move ar|
00007360  65 61 20 74 6f 20 64 65  73 69 72 65 64 20 70 6c  |ea to desired pl|
00007370  61 63 65 20 61 6e 64 20  63 6c 69 63 6b 20 7b 53  |ace and click {S|
00007380  7d 2e 22 3a f1 22 20 20  20 20 20 3c 48 3e 20 3d  |}.":."     <H> =|
00007390  20 66 6c 69 70 20 61 62  6f 75 74 20 68 6f 72 69  | flip about hori|
000073a0  7a 6f 6e 74 61 6c 20 28  78 2d 61 78 69 73 29 2c  |zontal (x-axis),|
000073b0  20 3c 56 3e 20 3d 20 66  6c 69 70 20 61 62 6f 75  | <V> = flip abou|
000073c0  74 20 76 65 72 74 69 63  61 6c 20 28 79 2d 61 78  |t vertical (y-ax|
000073d0  69 73 29 2e 22 0d 17 d4  55 f1 22 20 20 20 20 20  |is)."...U."     |
000073e0  55 73 65 20 3c 5a 3e 2c  3c 58 3e 20 65 74 63 2e  |Use <Z>,<X> etc.|
000073f0  20 61 73 20 61 62 6f 76  65 2e 20 20 50 72 65 73  | as above.  Pres|
00007400  73 20 3c 53 50 41 43 45  3e 20 28 6f 72 20 7b 4d  |s <SPACE> (or {M|
00007410  7d 29 20 74 6f 20 66 69  6e 69 73 68 20 43 6f 70  |}) to finish Cop|
00007420  79 20 6d 6f 64 65 2e 22  3a e1 0d 17 de c6 dd f2  |y mode.":.......|
00007430  4f 64 3a f1 8a 32 36 2c  31 29 22 48 45 4c 50 20  |Od:..26,1)"HELP |
00007440  2d 20 50 6f 6c 79 67 6f  6e 22 27 3a f1 22 20 4c  |- Polygon"':." L|
00007450  2e 48 20 69 63 6f 6e 20  3d 20 27 73 74 79 6c 65  |.H icon = 'style|
00007460  73 27 20 2d 20 4f 75 74  6c 69 6e 65 2c 20 4f 75  |s' - Outline, Ou|
00007470  74 6c 69 6e 65 2b 73 70  6f 6b 65 73 2c 6f 72 20  |tline+spokes,or |
00007480  73 70 6f 6b 65 73 2e 20  55 73 65 20 7b 4d 7d 20  |spokes. Use {M} |
00007490  74 6f 20 69 6e 63 72 65  6d 65 6e 74 2e 22 3a f1  |to increment.":.|
000074a0  22 20 52 2e 48 20 70 61  72 61 6d 65 74 65 72 20  |" R.H parameter |
000074b0  3d 20 6e 6f 2e 6f 66 20  73 69 64 65 73 2e 20 7b  |= no.of sides. {|
000074c0  41 7d 20 74 6f 20 69 6e  63 72 65 6d 65 6e 74 20  |A} to increment |
000074d0  4f 52 20 3c 49 3e 20 74  6f 20 69 6e 70 75 74 20  |OR <I> to input |
000074e0  76 61 6c 75 65 73 20 28  33 2d 39 39 29 2e 22 27  |values (3-99)."'|
000074f0  0d 17 e8 9e f1 22 20 20  43 6c 69 63 6b 20 7b 53  |....."  Click {S|
00007500  7d 20 74 6f 20 73 74 61  72 74 2c 7b 53 7d 20 61  |} to start,{S} a|
00007510  67 61 69 6e 20 74 6f 20  66 69 6e 69 73 68 2c 4f  |gain to finish,O|
00007520  52 20 7b 4d 7d 20 74 6f  20 67 65 74 20 63 6f 6c  |R {M} to get col|
00007530  6f 75 72 20 66 69 6c 6c  65 64 20 70 6f 6c 79 67  |our filled polyg|
00007540  6f 6e 2e 22 3a f1 22 20  20 48 6f 6c 64 20 7b 41  |on.":."  Hold {A|
00007550  7d 20 64 6f 77 6e 20 74  6f 20 6d 6f 76 65 20 74  |} down to move t|
00007560  68 65 20 70 6f 6c 79 67  6f 6e 20 62 6f 64 69 6c  |he polygon bodil|
00007570  79 2e 20 20 7b 53 7d 2f  7b 4d 7d 20 77 69 6c 6c  |y.  {S}/{M} will|
00007580  20 73 74 69 6c 6c 20 77  6f 72 6b 2e 22 27 0d 17  | still work."'..|
00007590  f2 a3 f1 22 20 20 48 6f  6c 64 20 3c 43 3e 20 3d  |..."  Hold <C> =|
000075a0  20 63 6f 6e 63 65 6e 74  72 69 63 20 70 6f 6c 79  | concentric poly|
000075b0  67 6f 6e 73 2c 20 3c 5a  3e 2f 3c 58 3e 20 3d 20  |gons, <Z>/<X> = |
000075c0  72 6f 74 61 74 65 20 61  6e 74 69 63 6c 6f 63 6b  |rotate anticlock|
000075d0  77 69 73 65 2f 63 6c 6f  63 6b 77 69 73 65 2e 22  |wise/clockwise."|
000075e0  3a f1 22 20 20 50 72 65  73 73 20 3c 48 3e 2c 3c  |:."  Press <H>,<|
000075f0  57 3e 20 74 6f 20 66 6f  72 63 65 20 70 6f 6c 79  |W> to force poly|
00007600  67 6f 6e 20 69 6e 74 6f  20 63 69 72 63 6c 65 20  |gon into circle |
00007610  77 69 74 68 20 74 68 65  20 63 75 72 72 65 6e 74  |with the current|
00007620  20 68 65 69 67 68 74 2f  77 69 64 74 68 2e 22 3a  | height/width.":|
00007630  e1 0d 17 fc c0 dd f2 50  64 3a f1 8a 32 36 2c 31  |.......Pd:..26,1|
00007640  29 22 48 45 4c 50 20 2d  20 41 69 72 53 70 72 61  |)"HELP - AirSpra|
00007650  79 22 27 3a f1 22 20 4c  2e 48 2e 70 61 72 61 6d  |y"':." L.H.param|
00007660  65 74 65 72 20 3d 20 64  65 6e 73 69 74 79 20 6f  |eter = density o|
00007670  66 20 73 70 72 61 79 2e  55 73 65 20 7b 4d 7d 20  |f spray.Use {M} |
00007680  74 6f 20 69 6e 63 72 65  6d 65 6e 74 2e 20 41 3d  |to increment. A=|
00007690  6c 6f 77 65 73 74 2c 45  3d 68 69 67 68 65 73 74  |lowest,E=highest|
000076a0  2e 22 3a f1 22 20 52 2e  48 2e 70 61 72 61 6d 65  |.":." R.H.parame|
000076b0  74 65 72 20 3d 20 72 61  64 69 75 73 20 6f 66 20  |ter = radius of |
000076c0  73 70 72 61 79 2e 20 55  73 65 20 7b 41 7d 20 74  |spray. Use {A} t|
000076d0  6f 20 69 6e 63 72 65 6d  65 6e 74 2e 20 31 3d 6c  |o increment. 1=l|
000076e0  65 61 73 74 2c 35 3d 6c  61 72 67 65 73 74 2e 22  |east,5=largest."|
000076f0  27 0d 18 06 e2 f1 22 20  48 6f 6c 64 20 7b 53 7d  |'....." Hold {S}|
00007700  20 64 6f 77 6e 20 74 6f  20 73 70 72 61 79 20 77  | down to spray w|
00007710  69 74 68 20 66 69 6e 65  20 64 6f 74 73 2c 20 62  |ith fine dots, b|
00007720  75 74 20 4f 4e 4c 59 20  69 66 20 74 68 65 20 70  |ut ONLY if the p|
00007730  6f 69 6e 74 65 72 20 69  73 20 6d 6f 76 69 6e 67  |ointer is moving|
00007740  2e 22 3a f1 22 20 7b 53  7d 2b 3c 53 50 41 43 45  |.":." {S}+<SPACE|
00007750  3e 20 28 20 6f 72 20 7b  53 7d 2b 7b 4d 7d 2f 7b  |> ( or {S}+{M}/{|
00007760  41 7d 20 29 20 77 69 6c  6c 20 73 70 72 61 79 20  |A} ) will spray |
00007770  65 76 65 6e 20 69 66 20  70 6f 69 6e 74 65 72 20  |even if pointer |
00007780  69 73 20 4e 4f 54 20 6d  6f 76 69 6e 67 2e 22 27  |is NOT moving."'|
00007790  3a f1 22 20 7b 53 7d 2b  3c 44 3e 20 67 69 76 65  |:." {S}+<D> give|
000077a0  73 20 61 20 73 70 72 61  79 20 6f 66 20 63 6f 61  |s a spray of coa|
000077b0  72 73 65 72 20 63 69 72  63 75 6c 61 72 20 64 6f  |rser circular do|
000077c0  74 73 20 20 28 20 44 20  3d 20 27 44 6f 74 73 27  |ts  ( D = 'Dots'|
000077d0  29 2e 22 0d 18 10 44 f1  22 20 7b 53 7d 2b 3c 46  |)."...D." {S}+<F|
000077e0  3e 20 67 69 76 65 73 20  61 20 73 70 72 61 79 20  |> gives a spray |
000077f0  6f 66 20 61 6e 67 75 6c  61 72 20 73 68 61 70 65  |of angular shape|
00007800  73 20 20 28 20 46 20 3d  20 27 46 6f 6c 69 61 67  |s  ( F = 'Foliag|
00007810  65 27 29 2e 22 3a e1 0d  18 1a bd dd f2 51 64 3a  |e').":.......Qd:|
00007820  f1 8a 32 36 2c 31 29 22  48 45 4c 50 20 2d 20 43  |..26,1)"HELP - C|
00007830  6f 6c 6f 75 72 42 6f 78  22 27 3a f1 22 20 43 6c  |olourBox"':." Cl|
00007840  69 63 6b 20 7b 53 7d 20  74 6f 20 70 69 63 6b 20  |ick {S} to pick |
00007850  75 70 20 74 68 65 20 63  6f 6c 6f 75 72 20 28 20  |up the colour ( |
00007860  75 6e 64 65 72 20 74 68  65 20 70 6f 69 6e 74 65  |under the pointe|
00007870  72 20 29 20 66 72 6f 6d  20 74 68 65 20 64 72 61  |r ) from the dra|
00007880  77 69 6e 67 20 61 72 65  61 20 22 3a f1 22 20 43  |wing area ":." C|
00007890  6c 69 63 6b 69 6e 67 20  7b 41 7d 20 77 69 6c 6c  |licking {A} will|
000078a0  20 70 69 63 6b 20 75 70  20 61 20 64 69 74 68 65  | pick up a dithe|
000078b0  72 65 64 20 70 61 72 74  6e 65 72 20 66 72 6f 6d  |red partner from|
000078c0  20 74 68 65 20 64 72 61  77 69 6e 67 20 61 72 65  | the drawing are|
000078d0  61 2e 22 27 0d 18 24 bb  f1 22 20 41 74 20 61 6c  |a."'..$.." At al|
000078e0  6c 20 73 74 61 67 65 73  20 74 68 65 20 63 75 72  |l stages the cur|
000078f0  72 65 6e 74 20 63 6f 6c  6f 75 72 20 28 70 75 72  |rent colour (pur|
00007900  65 20 6f 72 20 64 69 74  68 65 72 65 64 29 20 69  |e or dithered) i|
00007910  73 20 73 68 6f 77 6e 20  69 6e 20 74 68 65 20 62  |s shown in the b|
00007920  6f 78 2e 22 27 27 3a f1  22 20 53 50 45 43 49 41  |ox."'':." SPECIA|
00007930  4c 20 45 46 46 45 43 54  53 3a 2d 22 27 3a f1 22  |L EFFECTS:-"':."|
00007940  20 48 6f 6c 64 20 7b 4d  7d 20 64 6f 77 6e 20 74  | Hold {M} down t|
00007950  6f 20 27 73 63 72 61 74  63 68 27 20 61 6e 20 61  |o 'scratch' an a|
00007960  72 65 61 20 77 69 74 68  20 68 75 65 73 20 6f 66  |rea with hues of|
00007970  20 74 68 65 20 63 6f 6c  6f 75 72 20 75 6e 64 65  | the colour unde|
00007980  72 20 74 68 65 20 70 6f  69 6e 74 65 72 2e 22 0d  |r the pointer.".|
00007990  18 2e 59 f1 22 20 48 6f  6c 64 20 7b 4d 7d 2b 3c  |..Y." Hold {M}+<|
000079a0  53 50 41 43 45 3e 20 74  6f 20 70 61 69 6e 74 20  |SPACE> to paint |
000079b0  77 69 74 68 20 27 62 6c  6f 62 73 27 20 6f 66 20  |with 'blobs' of |
000079c0  68 75 65 73 20 6f 66 20  74 68 65 20 63 6f 6c 6f  |hues of the colo|
000079d0  75 72 20 75 6e 64 65 72  20 74 68 65 20 70 6f 69  |ur under the poi|
000079e0  6e 74 65 72 2e 22 3a e1  0d 18 38 c4 dd f2 76 5f  |nter.":...8...v_|
000079f0  3a f1 8a 33 30 2c 31 29  22 48 45 4c 50 20 2d 20  |:..30,1)"HELP - |
00007a00  47 65 6e 65 72 61 6c 22  3a f1 27 22 20 4e 4f 54  |General":.'" NOT|
00007a10  41 54 49 4f 4e 3a 20 4d  4f 55 53 45 3a 20 7b 53  |ATION: MOUSE: {S|
00007a20  7d 3d 53 65 6c 65 63 74  2c 20 7b 4d 7d 3d 4d 65  |}=Select, {M}=Me|
00007a30  6e 75 2c 20 7b 41 7d 3d  41 64 6a 75 73 74 2e 20  |nu, {A}=Adjust. |
00007a40  4b 45 59 42 4f 41 52 44  3a 20 3c 58 3e 3d 50 72  |KEYBOARD: <X>=Pr|
00007a50  65 73 73 20 27 58 27 20  65 74 63 22 3a f1 27 22  |ess 'X' etc":.'"|
00007a60  20 43 4f 4c 4f 55 52 20  42 41 52 3a 20 7b 53 7d  | COLOUR BAR: {S}|
00007a70  20 3d 20 53 65 6c 65 63  74 20 61 20 27 70 75 72  | = Select a 'pur|
00007a80  65 27 20 63 6f 6c 6f 75  72 2c 20 7b 41 7d 20 3d  |e' colour, {A} =|
00007a90  20 27 64 69 74 68 65 72  65 64 27 20 70 61 72 74  | 'dithered' part|
00007aa0  6e 65 72 20 63 6f 6c 6f  75 72 2e 22 0d 18 42 e0  |ner colour."..B.|
00007ab0  f1 27 22 20 48 6f 6c 64  20 64 6f 77 6e 20 7b 4d  |.'" Hold down {M|
00007ac0  7d 20 66 6f 72 20 48 65  6c 70 20 6f 6e 20 63 75  |} for Help on cu|
00007ad0  72 72 65 6e 74 20 74 6f  6f 6c 2c 20 4f 52 20 68  |rrent tool, OR h|
00007ae0  6f 6c 64 20 64 6f 77 6e  20 3c 48 3e 20 66 6f 72  |old down <H> for|
00007af0  20 48 65 6c 70 20 2d 20  47 65 6e 65 72 61 6c 2e  | Help - General.|
00007b00  22 3a f1 27 22 20 3c 54  41 42 3e 20 3d 20 43 6c  |":.'" <TAB> = Cl|
00007b10  65 61 72 20 74 68 65 20  53 63 72 65 65 6e 2e 22  |ear the Screen."|
00007b20  89 31 36 22 3c 54 3e 20  3d 20 54 45 58 54 20 65  |.16"<T> = TEXT e|
00007b30  6e 74 72 79 20 64 69 61  6c 6f 67 75 65 20 62 6f  |ntry dialogue bo|
00007b40  78 2e 22 3a f1 27 22 20  3c 31 3e 2c 3c 32 3e 2c  |x.":.'" <1>,<2>,|
00007b50  2e 2e 2e 2c 3c 36 3e 20  73 65 6c 65 63 74 73 20  |...,<6> selects |
00007b60  6d 6f 75 73 65 20 73 70  65 65 64 20 3a 2d 20 20  |mouse speed :-  |
00007b70  20 3c 31 3e 20 3d 20 73  6c 6f 77 2c 2e 2e 2e 2c  | <1> = slow,...,|
00007b80  3c 36 3e 20 3d 20 66 61  73 74 2e 22 0d 18 4c c5  |<6> = fast."..L.|
00007b90  f1 27 22 20 3c 53 3e 20  3d 20 53 41 56 45 20 53  |.'" <S> = SAVE S|
00007ba0  63 72 65 65 6e 20 61 73  20 50 49 43 31 2c 50 49  |creen as PIC1,PI|
00007bb0  43 32 20 65 74 63 2e 20  2f 20 3c 4c 3e 20 3d 20  |C2 etc. / <L> = |
00007bc0  4c 4f 41 44 20 70 69 63  74 75 72 65 20 2d 20 66  |LOAD picture - f|
00007bd0  69 6c 65 6e 61 6d 65 20  72 65 71 75 69 72 65 64  |ilename required|
00007be0  2e 22 3a f1 22 20 3c 53  3e 2b 3c 53 48 49 46 54  |.":." <S>+<SHIFT|
00007bf0  3e 20 3d 20 53 41 56 45  20 64 69 61 6c 6f 67 75  |> = SAVE dialogu|
00007c00  65 20 62 6f 78 2e 20 20  20 20 20 20 3c 4c 3e 2b  |e box.      <L>+|
00007c10  3c 53 48 49 46 54 3e 20  3d 20 4c 4f 41 44 20 64  |<SHIFT> = LOAD d|
00007c20  69 61 6c 6f 67 75 65 20  62 6f 78 2e 22 3a f1 27  |ialogue box.":.'|
00007c30  22 20 3c 53 68 69 66 74  3e 2b 3c 51 3e 20 3d 20  |" <Shift>+<Q> = |
00007c40  51 75 69 74 20 74 6f 20  44 65 73 6b 74 6f 70 2e  |Quit to Desktop.|
00007c50  22 0d 18 56 a3 f1 27 22  20 54 4f 4f 4c 20 42 41  |"..V..'" TOOL BA|
00007c60  52 3a 20 20 20 20 20 43  6c 69 63 6b 20 7b 53 7d  |R:     Click {S}|
00007c70  20 74 6f 20 73 65 6c 65  63 74 20 79 6f 75 72 20  | to select your |
00007c80  72 65 71 75 69 72 65 64  20 74 6f 6f 6c 20 6f 72  |required tool or|
00007c90  20 74 68 65 20 43 6f 6c  6f 75 72 42 6f 78 2e 22  | the ColourBox."|
00007ca0  3a f1 27 22 20 44 52 41  57 49 4e 47 20 41 52 45  |:.'" DRAWING ARE|
00007cb0  41 3a 20 3c 53 50 41 43  45 3e 3d 61 62 6f 72 74  |A: <SPACE>=abort|
00007cc0  20 63 75 72 72 65 6e 74  20 61 63 74 69 6f 6e 2c  | current action,|
00007cd0  20 3c 41 4c 54 3e 3d 74  6f 67 67 6c 65 20 70 6f  | <ALT>=toggle po|
00007ce0  69 6e 74 65 72 2f 63 72  6f 73 73 20 63 75 72 73  |inter/cross curs|
00007cf0  6f 72 2e 22 0d 18 60 8c  f1 27 22 20 3c 53 48 49  |or."..`..'" <SHI|
00007d00  46 54 3e 2b 7b 53 7d 20  70 69 63 6b 73 20 75 70  |FT>+{S} picks up|
00007d10  20 61 20 70 75 72 65 20  63 6f 6c 6f 75 72 2c 20  | a pure colour, |
00007d20  3c 53 48 49 46 54 3e 2b  7b 41 7d 20 70 69 63 6b  |<SHIFT>+{A} pick|
00007d30  73 20 75 70 20 61 20 64  69 74 68 65 72 65 64 20  |s up a dithered |
00007d40  70 61 72 74 6e 65 72 2e  22 3a f1 27 89 31 38 22  |partner.":.'.18"|
00007d50  43 6c 69 63 6b 20 7b 53  7d 20 74 6f 20 73 74 61  |Click {S} to sta|
00007d60  72 74 20 75 73 69 6e 67  20 79 6f 75 72 20 63 68  |rt using your ch|
00007d70  6f 73 65 6e 20 74 6f 6f  6c 2e 22 3a ef 35 3a e1  |osen tool.":.5:.|
00007d80  0d 18 6a 26 dd f2 78 5f  3a 4c 5f 25 3d 38 30 30  |..j&..x_:L_%=800|
00007d90  3a f2 72 5f 3a f2 52 64  3a f2 53 64 3a 4c 5f 25  |:.r_:.Rd:.Sd:L_%|
00007da0  3d 35 31 32 3a e1 0d 18  74 26 dd f2 79 5f 3a 4c  |=512:...t&..y_:L|
00007db0  5f 25 3d 38 30 30 3a f2  72 5f 3a f2 52 64 3a f2  |_%=800:.r_:.Rd:.|
00007dc0  54 64 3a 4c 5f 25 3d 35  31 32 3a e1 0d 18 7e 1a  |Td:L_%=512:...~.|
00007dd0  dd f2 52 64 3a ea 85 3a  ee 85 ea ef 35 3a f2 75  |..Rd:..:....5:.u|
00007de0  5f 3a f7 85 3a e1 0d 18  88 88 f1 8a 31 2c 31 29  |_:..:.......1,1)|
00007df0  22 57 68 69 63 68 20 46  69 6c 69 6e 67 20 73 79  |"Which Filing sy|
00007e00  73 74 65 6d 20 3f 20 20  20 41 29 20 44 69 73 63  |stem ?   A) Disc|
00007e10  20 20 42 29 20 52 41 4d  20 20 20 28 50 72 65 73  |  B) RAM   (Pres|
00007e20  73 20 41 2c 42 29 20 3a  2d 20 22 3b 3a f5 3a 5a  |s A,B) :- ";:.:Z|
00007e30  24 3d be 3a fd a7 22 41  42 61 62 22 2c 5a 24 29  |$=.:.."ABab",Z$)|
00007e40  3e 30 3a e7 5a 24 3d 22  41 22 84 5a 24 3d 22 61  |>0:.Z$="A".Z$="a|
00007e50  22 8c f1 22 44 69 73 63  22 3a ff 28 22 41 44 46  |".."Disc":.("ADF|
00007e60  53 22 29 3a ff 28 22 4d  4f 55 4e 54 22 29 0d 18  |S"):.("MOUNT")..|
00007e70  92 2b e7 5a 24 3d 22 42  22 84 5a 24 3d 22 62 22  |.+.Z$="B".Z$="b"|
00007e80  8c f1 22 52 41 4d 22 3a  ff 28 22 52 41 4d 22 29  |.."RAM":.("RAM")|
00007e90  3a ff 28 22 44 49 52 22  29 0d 18 9c 37 f1 8a 31  |:.("DIR")...7..1|
00007ea0  2c 31 29 89 38 30 3a f1  8a 31 2c 31 29 22 52 4f  |,1).80:..1,1)"RO|
00007eb0  4f 54 20 44 69 72 65 63  74 6f 72 79 20 43 61 74  |OT Directory Cat|
00007ec0  61 6c 6f 67 75 65 20 3a  2d 22 27 3a 2a 43 41 54  |alogue :-"':*CAT|
00007ed0  0d 18 a6 3f f5 3a f1 27  22 20 43 68 61 6e 67 65  |...?.:.'" Change|
00007ee0  20 44 69 72 65 63 74 6f  72 79 20 3f 20 20 28 59  | Directory ?  (Y|
00007ef0  2f 4e 29 20 20 3a 2d 20  22 3b 3a 5a 24 3d be 3a  |/N)  :- ";:Z$=.:|
00007f00  e7 5a 24 3d 22 59 22 84  5a 24 3d 22 79 22 8c 0d  |.Z$="Y".Z$="y"..|
00007f10  18 b0 60 e8 27 27 22 20  4e 65 77 20 44 69 72 65  |..`.''" New Dire|
00007f20  63 74 6f 72 79 20 6e 61  6d 65 20 3a 2d 20 22 55  |ctory name :- "U|
00007f30  64 24 3a ff 28 22 44 69  72 20 22 2b 55 64 24 29  |d$:.("Dir "+Ud$)|
00007f40  3a ef 33 30 3a e3 49 25  3d 31 b8 32 34 3a f1 89  |:.30:.I%=1.24:..|
00007f50  38 30 3a ed 3a f1 8a 31  2c 31 29 22 43 61 74 61  |80:.:..1,1)"Cata|
00007f60  6c 6f 67 75 65 20 3a 2d  22 27 3a 2a 43 41 54 0d  |logue :-"':*CAT.|
00007f70  18 ba 18 cd 3a fd 5a 24  3c 3e 22 59 22 80 5a 24  |....:.Z$<>"Y".Z$|
00007f80  3c 3e 22 79 22 3a e1 0d  18 c4 1a dd f2 53 64 3a  |<>"y":.......Sd:|
00007f90  ea 85 3a ee 85 ea ef 35  3a f2 75 5f 3a f7 85 3a  |..:....5:.u_:..:|
00007fa0  e1 0d 18 ce 7b c8 99 36  2c 32 31 2c 30 3a ef 37  |....{..6,21,0:.7|
00007fb0  3a e8 27 27 22 20 50 6c  65 61 73 65 20 65 6e 74  |:.''" Please ent|
00007fc0  65 72 20 6e 61 6d 65 20  6f 66 20 70 69 63 74 75  |er name of pictu|
00007fd0  72 65 20 66 69 6c 65 20  74 6f 20 4c 4f 41 44 20  |re file to LOAD |
00007fe0  3a 2d 20 22 42 60 24 3a  f2 75 5f 3a ef 35 3a e7  |:- "B`$:.u_:.5:.|
00007ff0  42 60 24 3c 3e 22 22 ef  32 34 2c 30 3b 56 5f 25  |B`$<>"".24,0;V_%|
00008000  3b 57 5f 25 3b 58 5f 25  3b 3a ff 22 53 43 52 45  |;W_%;X_%;:."SCRE|
00008010  45 4e 4c 4f 41 44 20 22  2b 42 60 24 0d 18 d8 05  |ENLOAD "+B`$....|
00008020  e1 0d 18 e2 1a dd f2 54  64 3a ea 85 3a ee 85 ea  |.......Td:..:...|
00008030  ef 35 3a f2 75 5f 3a f7  85 3a e1 0d 18 ec 7b c8  |.5:.u_:..:....{.|
00008040  99 36 2c 32 31 2c 30 3a  ef 37 3a e8 27 27 22 20  |.6,21,0:.7:.''" |
00008050  50 6c 65 61 73 65 20 65  6e 74 65 72 20 6e 61 6d  |Please enter nam|
00008060  65 20 6f 66 20 70 69 63  74 75 72 65 20 66 69 6c  |e of picture fil|
00008070  65 20 74 6f 20 53 41 56  45 20 3a 2d 20 22 42 60  |e to SAVE :- "B`|
00008080  24 3a f2 75 5f 3a ef 35  3a e7 42 60 24 3c 3e 22  |$:.u_:.5:.B`$<>"|
00008090  22 ef 32 34 2c 30 3b 56  5f 25 3b 57 5f 25 3b 58  |".24,0;V_%;W_%;X|
000080a0  5f 25 3b 3a ff 22 53 43  52 45 45 4e 53 41 56 45  |_%;:."SCREENSAVE|
000080b0  20 22 2b 42 60 24 0d 18  f6 05 e1 0d 19 00 4e dd  | "+B`$........N.|
000080c0  f2 77 5f 3a d4 31 2c 2d  39 2c 31 34 38 2c 34 3a  |.w_:.1,-9,148,4:|
000080d0  4c 5f 25 3d 33 36 30 3a  f5 3a f2 72 5f 3a f2 56  |L_%=360:.:.r_:.V|
000080e0  64 3a f2 75 5f 3a f2 57  64 3a fd 58 64 25 3d b9  |d:.u_:.Wd:.Xd%=.|
000080f0  3a ef 35 3a 4c 5f 25 3d  35 31 32 3a d4 31 2c 2d  |:.5:L_%=512:.1,-|
00008100  39 2c 31 34 38 2c 34 3a  e1 0d 19 0a af dd f2 62  |9,148,4:.......b|
00008110  5f 3a de 59 64 24 28 31  32 29 3a 59 64 24 28 31  |_:.Yd$(12):Yd$(1|
00008120  29 3d 22 43 6f 72 70 75  73 2e 42 6f 6c 64 22 3a  |)="Corpus.Bold":|
00008130  59 64 24 28 32 29 3d 22  43 6f 72 70 75 73 2e 42  |Yd$(2)="Corpus.B|
00008140  6f 6c 64 2e 4f 62 6c 69  71 75 65 22 3a 59 64 24  |old.Oblique":Yd$|
00008150  28 33 29 3d 22 43 6f 72  70 75 73 2e 4d 65 64 69  |(3)="Corpus.Medi|
00008160  75 6d 22 3a 59 64 24 28  34 29 3d 22 43 6f 72 70  |um":Yd$(4)="Corp|
00008170  75 73 2e 4d 65 64 69 75  6d 2e 4f 62 6c 69 71 75  |us.Medium.Obliqu|
00008180  65 22 3a 59 64 24 28 35  29 3d 22 48 6f 6d 65 72  |e":Yd$(5)="Homer|
00008190  74 6f 6e 2e 42 6f 6c 64  22 3a 59 64 24 28 36 29  |ton.Bold":Yd$(6)|
000081a0  3d 22 48 6f 6d 65 72 74  6f 6e 2e 42 6f 6c 64 2e  |="Homerton.Bold.|
000081b0  4f 62 6c 69 71 75 65 22  0d 19 14 d9 59 64 24 28  |Oblique"....Yd$(|
000081c0  37 29 3d 22 48 6f 6d 65  72 74 6f 6e 2e 4d 65 64  |7)="Homerton.Med|
000081d0  69 75 6d 22 3a 59 64 24  28 38 29 3d 22 48 6f 6d  |ium":Yd$(8)="Hom|
000081e0  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 2e 4f 62 6c  |erton.Medium.Obl|
000081f0  69 71 75 65 22 3a 59 64  24 28 39 29 3d 22 54 72  |ique":Yd$(9)="Tr|
00008200  69 6e 69 74 79 2e 42 6f  6c 64 22 3a 59 64 24 28  |inity.Bold":Yd$(|
00008210  31 30 29 3d 22 54 72 69  6e 69 74 79 2e 42 6f 6c  |10)="Trinity.Bol|
00008220  64 2e 49 74 61 6c 69 63  22 3a 59 64 24 28 31 31  |d.Italic":Yd$(11|
00008230  29 3d 22 54 72 69 6e 69  74 79 2e 4d 65 64 69 75  |)="Trinity.Mediu|
00008240  6d 22 3a 59 64 24 28 31  32 29 3d 22 54 72 69 6e  |m":Yd$(12)="Trin|
00008250  69 74 79 2e 4d 65 64 69  75 6d 2e 49 74 61 6c 69  |ity.Medium.Itali|
00008260  63 22 3a de 5a 64 25 28  31 30 29 2c 5a 64 24 28  |c":.Zd%(10),Zd$(|
00008270  31 30 29 3a 5a 64 25 28  30 29 3d 31 30 3a 5a 64  |10):Zd%(0)=10:Zd|
00008280  25 28 31 29 3d 31 34 3a  5a 64 25 28 32 29 3d 31  |%(1)=14:Zd%(2)=1|
00008290  36 0d 19 1e ae 5a 64 25  28 33 29 3d 32 30 3a 5a  |6....Zd%(3)=20:Z|
000082a0  64 25 28 34 29 3d 32 34  3a 5a 64 25 28 35 29 3d  |d%(4)=24:Zd%(5)=|
000082b0  33 32 3a 5a 64 25 28 36  29 3d 34 30 3a 5a 64 25  |32:Zd%(6)=40:Zd%|
000082c0  28 37 29 3d 34 38 3a 5a  64 25 28 38 29 3d 35 36  |(7)=48:Zd%(8)=56|
000082d0  3a 5a 64 25 28 39 29 3d  37 32 3a 5a 64 25 28 31  |:Zd%(9)=72:Zd%(1|
000082e0  30 29 3d 39 36 3a e3 49  25 3d 30 b8 31 30 3a 5a  |0)=96:.I%=0.10:Z|
000082f0  64 24 28 49 25 29 3d c3  28 5a 64 25 28 49 25 29  |d$(I%)=.(Zd%(I%)|
00008300  29 3a ed 3a 59 64 25 3d  31 30 3a 61 64 25 3d 34  |):.:Yd%=10:ad%=4|
00008310  3a 62 64 25 3d 5a 64 25  28 61 64 25 29 3a 63 64  |:bd%=Zd%(ad%):cd|
00008320  25 3d 34 3a 64 64 25 3d  5a 64 25 28 63 64 25 29  |%=4:dd%=Zd%(cd%)|
00008330  3a 65 64 24 3d 22 22 3a  66 64 25 3d 30 3a e1 0d  |:ed$="":fd%=0:..|
00008340  19 28 29 dd f2 56 64 3a  58 64 25 3d a3 3a 67 64  |.()..Vd:Xd%=.:gd|
00008350  25 3d a3 3a ef 34 3a c8  97 87 3a ee 3a f2 68 64  |%=.:.4:...:.:.hd|
00008360  3a e7 69 64 25 3d b9 8c  0d 19 32 0b f2 6a 64 3a  |:.id%=....2..jd:|
00008370  f2 6b 64 0d 19 3c 0b cd  3a f2 6c 64 3a e1 0d 19  |.kd..<..:.ld:...|
00008380  46 d5 dd f2 68 64 3a ef  33 30 3a e3 49 25 3d 31  |F...hd:.30:.I%=1|
00008390  b8 34 3a f1 89 38 30 3a  ed 3a f1 8a 31 2c 31 29  |.4:..80:.:..1,1)|
000083a0  22 46 4f 4e 54 20 3a 20  22 3b 59 64 24 28 59 64  |"FONT : ";Yd$(Yd|
000083b0  25 29 3b 89 31 33 3b 22  57 69 64 74 68 20 3d 20  |%);.13;"Width = |
000083c0  22 3b 5a 64 24 28 61 64  25 29 3b 89 31 33 3b 22  |";Zd$(ad%);.13;"|
000083d0  48 65 69 67 68 74 20 3d  20 22 3b 5a 64 24 28 63  |Height = ";Zd$(c|
000083e0  64 25 29 3a f1 8a 31 2c  33 29 22 54 45 58 54 3a  |d%):..1,3)"TEXT:|
000083f0  20 20 41 6e 79 20 63 68  61 6e 67 65 73 20 74 6f  |  Any changes to|
00008400  20 63 75 72 72 65 6e 74  20 66 6f 6e 74 2c 20 6f  | current font, o|
00008410  72 20 77 69 64 74 68 2f  68 65 69 67 68 74 20 3f  |r width/height ?|
00008420  20 20 28 59 2f 4e 29 20  22 3b 3a c8 99 36 2c 32  |  (Y/N) ";:..6,2|
00008430  31 2c 30 3a 5a 24 3d be  3a e7 5a 24 3d 22 59 22  |1,0:Z$=.:.Z$="Y"|
00008440  84 5a 24 3d 22 79 22 8c  69 64 25 3d b9 8b 69 64  |.Z$="y".id%=..id|
00008450  25 3d a3 0d 19 50 05 e1  0d 19 5a dc dd f2 6a 64  |%=...P....Z...jd|
00008460  3a ef 33 30 3a e3 49 25  3d 31 b8 39 3a f1 89 38  |:.30:.I%=1.9:..8|
00008470  30 3a ed 3a f1 8a 31 2c  31 29 22 57 68 69 63 68  |0:.:..1,1)"Which|
00008480  20 46 4f 4e 54 20 3f 22  3a e3 49 25 3d 30 b8 32  | FONT ?":.I%=0.2|
00008490  3a e3 4a 25 3d 31 b8 34  3a f1 8a 32 38 2a 49 25  |:.J%=1.4:..28*I%|
000084a0  2c 32 2b 4a 25 29 bd 28  34 2a 49 25 2b 4a 25 2b  |,2+J%).(4*I%+J%+|
000084b0  36 34 29 2b 22 29 20 22  2b 59 64 24 28 34 2a 49  |64)+") "+Yd$(4*I|
000084c0  25 2b 4a 25 29 3a ed 3a  ed 3a f1 27 22 20 50 72  |%+J%):.:.:.'" Pr|
000084d0  65 73 73 20 20 41 2c 42  2c 43 2c 2e 2e 2e 20 20  |ess  A,B,C,...  |
000084e0  4f 52 20 3c 52 45 54 55  52 4e 3e 20 20 20 20 20  |OR <RETURN>     |
000084f0  7b 20 3c 52 45 54 55 52  4e 3e 20 3d 20 44 65 66  |{ <RETURN> = Def|
00008500  61 75 6c 74 2f 43 75 72  72 65 6e 74 20 66 6f 6e  |ault/Current fon|
00008510  74 20 7d 20 20 3a 2d 20  22 3b 3a f5 fd ac a6 28  |t }  :- ";:....(|
00008520  2d 37 34 29 3a c8 99 36  2c 32 31 2c 30 3a f5 3a  |-74):..6,21,0:.:|
00008530  5a 24 3d be 0d 19 64 69  fd a7 22 41 42 43 44 45  |Z$=...di.."ABCDE|
00008540  46 47 48 49 4a 4b 4c 61  62 63 64 65 66 67 68 69  |FGHIJKLabcdefghi|
00008550  6a 6b 6c 22 2b bd 31 33  2c 5a 24 29 3e 30 3a ef  |jkl"+.13,Z$)>0:.|
00008560  33 30 3a e3 49 25 3d 31  b8 39 3a f1 89 38 30 3a  |30:.I%=1.9:..80:|
00008570  ed 3a ef 33 30 3a e7 97  5a 24 3c 3e 31 33 8c 6d  |.:.30:..Z$<>13.m|
00008580  64 25 3d 97 5a 24 3a 6d  64 25 3d 6d 64 25 80 26  |d%=.Z$:md%=md%.&|
00008590  35 46 3a 59 64 25 3d 6d  64 25 2d 36 34 0d 19 6e  |5F:Yd%=md%-64..n|
000085a0  05 e1 0d 19 78 de dd f2  6b 64 3a f1 8a 31 2c 31  |....x...kd:..1,1|
000085b0  29 22 46 4f 4e 54 20 3a  20 22 3b 59 64 24 28 59  |)"FONT : ";Yd$(Y|
000085c0  64 25 29 27 3a e3 49 25  3d 30 b8 39 3a f1 22 20  |d%)':.I%=0.9:." |
000085d0  22 2b bd 28 36 35 2b 49  25 29 2b 22 3d 22 2b 5a  |"+.(65+I%)+"="+Z|
000085e0  64 24 28 49 25 29 2b 22  2c 22 3b 89 31 3b 3a ed  |d$(I%)+",";.1;:.|
000085f0  3a f1 22 20 22 2b bd 28  37 35 29 2b 22 3d 22 2b  |:." "+.(75)+"="+|
00008600  5a 64 24 28 31 30 29 3a  f1 27 22 20 28 20 50 72  |Zd$(10):.'" ( Pr|
00008610  65 73 73 20 20 41 2c 42  2c 43 2c 2e 2e 2e 20 20  |ess  A,B,C,...  |
00008620  4f 52 20 3c 52 45 54 55  52 4e 3e 20 20 20 20 7b  |OR <RETURN>    {|
00008630  20 3c 52 45 54 55 52 4e  3e 20 3d 20 44 65 66 61  | <RETURN> = Defa|
00008640  75 6c 74 2f 50 72 65 76  69 6f 75 73 20 7d 20 20  |ult/Previous }  |
00008650  29 22 3a f1 27 27 22 20  57 69 64 74 68 20 3f 20  |)":.''" Width ? |
00008660  20 3a 2d 20 22 3b 3a f5  fd ac a6 28 2d 37 34 29  | :- ";:....(-74)|
00008670  3a c8 99 36 2c 32 31 2c  30 3a f5 3a 5a 24 3d be  |:..6,21,0:.:Z$=.|
00008680  0d 19 82 50 fd a7 22 41  42 43 44 45 46 47 48 49  |...P.."ABCDEFGHI|
00008690  4a 4b 61 62 63 64 65 66  67 68 69 6a 6b 22 2b bd  |JKabcdefghijk"+.|
000086a0  31 33 2c 5a 24 29 3e 30  3a e7 97 5a 24 3c 3e 31  |13,Z$)>0:..Z$<>1|
000086b0  33 8c 6d 64 25 3d 97 5a  24 3a 6d 64 25 3d 6d 64  |3.md%=.Z$:md%=md|
000086c0  25 80 26 35 46 3a 61 64  25 3d 6d 64 25 2d 36 35  |%.&5F:ad%=md%-65|
000086d0  0d 19 8c a2 f1 5a 64 24  28 61 64 25 29 3b 3a 62  |.....Zd$(ad%);:b|
000086e0  64 25 3d 5a 64 25 28 61  64 25 29 3a d4 31 2c 2d  |d%=Zd%(ad%):.1,-|
000086f0  36 2c 38 36 2c 34 3a f1  89 32 34 22 48 65 69 67  |6,86,4:..24"Heig|
00008700  68 74 20 3f 20 20 3a 2d  20 22 3b 3a f5 fd ac a6  |ht ?  :- ";:....|
00008710  28 2d 37 34 29 3a c8 99  36 2c 32 31 2c 30 3a f5  |(-74):..6,21,0:.|
00008720  3a 5a 24 3d be 3a fd a7  22 41 42 43 44 45 46 47  |:Z$=.:.."ABCDEFG|
00008730  48 49 4a 4b 61 62 63 64  65 66 67 68 69 6a 6b 22  |HIJKabcdefghijk"|
00008740  2b bd 31 33 2c 5a 24 29  3e 30 3a e7 97 5a 24 3c  |+.13,Z$)>0:..Z$<|
00008750  3e 31 33 8c 6d 64 25 3d  97 5a 24 3a 6d 64 25 3d  |>13.md%=.Z$:md%=|
00008760  6d 64 25 80 26 35 46 3a  63 64 25 3d 6d 64 25 2d  |md%.&5F:cd%=md%-|
00008770  36 35 0d 19 96 29 64 64  25 3d 5a 64 25 28 63 64  |65...)dd%=Zd%(cd|
00008780  25 29 3a ef 33 30 3a e3  49 25 3d 31 b8 39 3a f1  |%):.30:.I%=1.9:.|
00008790  89 38 30 3a ed 3a ef 33  30 3a e1 0d 19 a0 db dd  |.80:.:.30:......|
000087a0  f2 6c 64 3a ef 33 30 3a  e3 49 25 3d 31 b8 37 3a  |.ld:.30:.I%=1.7:|
000087b0  f1 89 38 30 3a ed 3a f1  8a 31 2c 32 29 22 46 4f  |..80:.:..1,2)"FO|
000087c0  4e 54 20 3a 20 22 3b 59  64 24 28 59 64 25 29 3b  |NT : ";Yd$(Yd%);|
000087d0  89 31 33 3b 22 57 69 64  74 68 20 3d 20 22 3b 5a  |.13;"Width = ";Z|
000087e0  64 24 28 61 64 25 29 3b  89 31 33 3b 22 48 65 69  |d$(ad%);.13;"Hei|
000087f0  67 68 74 20 3d 20 22 3b  5a 64 24 28 63 64 25 29  |ght = ";Zd$(cd%)|
00008800  3a f5 fd ac a6 28 2d 37  34 29 3a 6e 64 24 3d 65  |:....(-74):nd$=e|
00008810  64 24 3a 6f 64 25 3d 66  64 25 3a f1 27 27 22 20  |d$:od%=fd%:.''" |
00008820  54 79 70 65 20 69 6e 20  79 6f 75 72 20 74 65 78  |Type in your tex|
00008830  74 20 20 28 20 3c 52 45  54 55 52 4e 3e 20 3d 20  |t  ( <RETURN> = |
00008840  50 72 65 76 69 6f 75 73  20 74 65 78 74 20 3d 20  |Previous text = |
00008850  22 22 22 2b 65 64 24 2b  22 22 22 20 29 20 3a 22  |"""+ed$+""" ) :"|
00008860  27 27 22 20 3e 3e 20 22  3b 3a 65 64 24 3d 22 22  |''" >> ";:ed$=""|
00008870  3a 66 64 25 3d 30 0d 19  aa 1d f5 3a c8 99 36 2c  |:fd%=0.....:..6,|
00008880  32 31 2c 30 3a 5a 24 3d  be 3a e7 5a 24 3c 3e bd  |21,0:Z$=.:.Z$<>.|
00008890  31 33 8c 0d 19 b4 2c e7  66 64 25 3e 30 80 5a 24  |13....,.fd%>0.Z$|
000088a0  3d bd 31 32 37 20 66 64  25 2d 3d 31 3a 65 64 24  |=.127 fd%-=1:ed$|
000088b0  3d c0 65 64 24 2c 66 64  25 29 3a f1 5a 24 3b 0d  |=.ed$,fd%):.Z$;.|
000088c0  19 be 21 e7 5a 24 3c 3e  bd 31 32 37 20 65 64 24  |..!.Z$<>.127 ed$|
000088d0  2b 3d 5a 24 3a 66 64 25  2b 3d 31 3a f1 5a 24 3b  |+=Z$:fd%+=1:.Z$;|
000088e0  0d 19 c8 38 cd 3a fd 5a  24 3d bd 31 33 3a ef 33  |...8.:.Z$=.13:.3|
000088f0  30 3a e3 49 25 3d 31 b8  36 3a f1 89 38 30 3a ed  |0:.I%=1.6:..80:.|
00008900  3a e7 65 64 24 3d 22 22  8c 65 64 24 3d 6e 64 24  |:.ed$="".ed$=nd$|
00008910  3a 66 64 25 3d 6f 64 25  0d 19 d2 15 e7 65 64 24  |:fd%=od%.....ed$|
00008920  3d 22 22 8c 58 64 25 3d  b9 3a ef 33 30 0d 19 dc  |="".Xd%=.:.30...|
00008930  05 e1 0d 19 e6 11 dd f2  57 64 3a e7 58 64 25 3d  |........Wd:.Xd%=|
00008940  b9 8c e1 0d 19 f0 9c 60  60 24 3d 59 64 24 28 59  |.......``$=Yd$(Y|
00008950  64 25 29 3a 87 3a c8 97  ee 3a f2 70 64 3a f2 5a  |d%):.:...:.pd:.Z|
00008960  64 3a 58 25 3d 36 34 30  2d 71 64 25 2f 32 3a 59  |d:X%=640-qd%/2:Y|
00008970  25 3d 35 31 32 3a 4f 61  25 3d 58 25 3a 50 61 25  |%=512:Oa%=X%:Pa%|
00008980  3d 59 25 3a 72 64 25 3d  71 64 25 3a 73 64 25 3d  |=Y%:rd%=qd%:sd%=|
00008990  74 64 25 3a ef 32 34 2c  30 3b 56 5f 25 3b 57 5f  |td%:.24,0;V_%;W_|
000089a0  25 3b 58 5f 25 3b 3a f2  75 64 28 4f 61 25 2c 50  |%;X_%;:.ud(Oa%,P|
000089b0  61 25 2c 72 64 25 2c 73  64 25 29 3a c8 97 b8 4f  |a%,rd%,sd%):...O|
000089c0  61 25 2c 50 61 25 3a f5  3a e7 a6 28 2d 33 36 29  |a%,Pa%:.:..(-36)|
000089d0  67 64 25 3d b9 3a f5 fd  ac a6 28 2d 33 36 29 0d  |gd%=.:....(-36).|
000089e0  19 fa 1a e7 a6 28 2d 39  39 29 58 64 25 3d b9 3a  |.....(-99)Xd%=.:|
000089f0  f5 fd ac a6 28 2d 39 39  29 0d 1a 04 0c e7 59 25  |....(-99).....Y%|
00008a00  3c 5a 5f 25 8c 0d 1a 0e  50 ef 32 36 3a 58 25 3d  |<Z_%....P.26:X%=|
00008a10  32 30 2a 28 58 25 81 32  30 29 2b 38 3a 59 25 3d  |20*(X%.20)+8:Y%=|
00008a20  32 34 2a 28 59 25 81 32  34 29 2b 37 3a c8 97 ee  |24*(Y%.24)+7:...|
00008a30  31 32 39 3a c8 97 88 33  3a c8 92 b8 58 25 2c 59  |129:...3:...X%,Y|
00008a40  25 3a e7 42 25 3d 34 8c  f2 70 5f 3a 71 5f 25 3d  |%:.B%=4..p_:q_%=|
00008a50  a3 3a f2 70 64 0d 1a 18  0a e7 42 25 3d 32 8c 0d  |.:.pd.....B%=2..|
00008a60  1a 22 26 4c 5f 25 3d 35  31 32 3a f2 72 5f 3a f2  |."&L_%=512:.r_:.|
00008a70  76 64 3a ef 35 3a f2 74  5f 3a f2 75 5f 3a 4c 5f  |vd:.5:.t_:.u_:L_|
00008a80  25 3d 33 36 30 0d 1a 2c  0f cd 3a e7 42 25 3d 31  |%=360..,..:.B%=1|
00008a90  8c f2 71 5f 0d 1a 36 19  cd 3a c8 97 58 25 2c 59  |..q_..6..:..X%,Y|
00008aa0  25 2c 42 25 3a e7 59 25  3e 5a 5f 25 8c 0d 1a 40  |%,B%:.Y%>Z_%...@|
00008ab0  29 ef 32 34 2c 30 3b 56  5f 25 3b 57 5f 25 3b 58  |).24,0;V_%;W_%;X|
00008ac0  5f 25 3b 3a c8 97 ee 31  3a c8 97 88 4b 5f 25 3a  |_%;:...1:...K_%:|
00008ad0  e7 42 25 3d 31 8c 0d 1a  4a 27 61 64 25 2b 3d 31  |.B%=1...J'ad%+=1|
00008ae0  3a 63 64 25 2b 3d 31 3a  e7 61 64 25 3e 31 30 8c  |:cd%+=1:.ad%>10.|
00008af0  61 64 25 3d 31 30 3a 63  64 25 2d 3d 31 0d 1a 54  |ad%=10:cd%-=1..T|
00008b00  19 e7 63 64 25 3e 31 30  8c 63 64 25 3d 31 30 3a  |..cd%>10.cd%=10:|
00008b10  61 64 25 2d 3d 31 0d 1a  5e 6b 62 64 25 3d 5a 64  |ad%-=1..^kbd%=Zd|
00008b20  25 28 61 64 25 29 3a 64  64 25 3d 5a 64 25 28 63  |%(ad%):dd%=Zd%(c|
00008b30  64 25 29 3a f2 5a 64 3a  f2 75 64 28 4f 61 25 2c  |d%):.Zd:.ud(Oa%,|
00008b40  50 61 25 2c 72 64 25 2c  73 64 25 29 3a f2 75 64  |Pa%,rd%,sd%):.ud|
00008b50  28 58 25 2c 59 25 2c 71  64 25 2c 74 64 25 29 3a  |(X%,Y%,qd%,td%):|
00008b60  4f 61 25 3d 58 25 3a 50  61 25 3d 59 25 3a 72 64  |Oa%=X%:Pa%=Y%:rd|
00008b70  25 3d 71 64 25 3a 73 64  25 3d 74 64 25 3a f2 74  |%=qd%:sd%=td%:.t|
00008b80  5f 0d 1a 68 0c cd 3a e7  42 25 3d 32 8c 0d 1a 72  |_..h..:.B%=2...r|
00008b90  25 61 64 25 2d 3d 31 3a  63 64 25 2d 3d 31 3a e7  |%ad%-=1:cd%-=1:.|
00008ba0  61 64 25 3c 30 8c 61 64  25 3d 30 3a 63 64 25 2b  |ad%<0.ad%=0:cd%+|
00008bb0  3d 31 0d 1a 7c 17 e7 63  64 25 3c 30 8c 63 64 25  |=1..|..cd%<0.cd%|
00008bc0  3d 30 3a 61 64 25 2b 3d  31 0d 1a 86 6b 62 64 25  |=0:ad%+=1...kbd%|
00008bd0  3d 5a 64 25 28 61 64 25  29 3a 64 64 25 3d 5a 64  |=Zd%(ad%):dd%=Zd|
00008be0  25 28 63 64 25 29 3a f2  5a 64 3a f2 75 64 28 4f  |%(cd%):.Zd:.ud(O|
00008bf0  61 25 2c 50 61 25 2c 72  64 25 2c 73 64 25 29 3a  |a%,Pa%,rd%,sd%):|
00008c00  f2 75 64 28 58 25 2c 59  25 2c 71 64 25 2c 74 64  |.ud(X%,Y%,qd%,td|
00008c10  25 29 3a 4f 61 25 3d 58  25 3a 50 61 25 3d 59 25  |%):Oa%=X%:Pa%=Y%|
00008c20  3a 72 64 25 3d 71 64 25  3a 73 64 25 3d 74 64 25  |:rd%=qd%:sd%=td%|
00008c30  3a f2 74 5f 0d 1a 90 0c  cd 3a e7 42 25 3d 34 8c  |:.t_.....:.B%=4.|
00008c40  0d 1a 9a 75 f2 5a 64 3a  f2 75 64 28 4f 61 25 2c  |...u.Zd:.ud(Oa%,|
00008c50  50 61 25 2c 72 64 25 2c  73 64 25 29 3a c8 99 32  |Pa%,rd%,sd%):..2|
00008c60  36 32 32 37 38 2c 2c 65  64 24 2c 26 31 30 2c 58  |62278,,ed$,&10,X|
00008c70  25 2c 59 25 3a f2 75 64  28 58 25 2c 59 25 2c 71  |%,Y%:.ud(X%,Y%,q|
00008c80  64 25 2c 74 64 25 29 3a  4f 61 25 3d 58 25 3a 50  |d%,td%):Oa%=X%:P|
00008c90  61 25 3d 59 25 3a 72 64  25 3d 71 64 25 3a 73 64  |a%=Y%:rd%=qd%:sd|
00008ca0  25 3d 74 64 25 3a c8 99  32 36 32 32 37 34 2c 66  |%=td%:..262274,f|
00008cb0  25 3a f2 74 5f 0d 1a a4  17 cd 3a e7 58 25 3c 3e  |%:.t_.....:.X%<>|
00008cc0  4f 61 25 84 59 25 3c 3e  50 61 25 8c 0d 1a ae 4f  |Oa%.Y%<>Pa%....O|
00008cd0  c8 96 3a c8 96 3a f2 75  64 28 4f 61 25 2c 50 61  |..:..:.ud(Oa%,Pa|
00008ce0  25 2c 72 64 25 2c 73 64  25 29 3a f2 75 64 28 58  |%,rd%,sd%):.ud(X|
00008cf0  25 2c 59 25 2c 71 64 25  2c 74 64 25 29 3a 4f 61  |%,Y%,qd%,td%):Oa|
00008d00  25 3d 58 25 3a 50 61 25  3d 59 25 3a 72 64 25 3d  |%=X%:Pa%=Y%:rd%=|
00008d10  71 64 25 3a 73 64 25 3d  74 64 25 0d 1a b8 05 cd  |qd%:sd%=td%.....|
00008d20  0d 1a c2 4b cd 3a fd 58  64 25 3d b9 84 67 64 25  |...K.:.Xd%=..gd%|
00008d30  3d b9 3a ef 32 34 2c 30  3b 56 5f 25 3b 57 5f 25  |=.:.24,0;V_%;W_%|
00008d40  3b 58 5f 25 3b 3a f2 75  64 28 4f 61 25 2c 50 61  |;X_%;:.ud(Oa%,Pa|
00008d50  25 2c 72 64 25 2c 73 64  25 29 3a e7 67 64 25 3d  |%,rd%,sd%):.gd%=|
00008d60  b9 d4 31 2c 2d 36 2c 38  34 2c 34 0d 1a cc 05 e1  |..1,-6,84,4.....|
00008d70  0d 1a d6 73 dd a4 77 64  28 43 25 2c 54 25 29 3a  |...s..wd(C%,T%):|
00008d80  ea 52 25 2c 47 25 2c 42  25 3a 54 25 3d 54 25 3e  |.R%,G%,B%:T%=T%>|
00008d90  3e 3e 36 3a 52 25 3d 28  28 43 25 80 33 29 3c 3c  |>>6:R%=((C%.3)<<|
00008da0  32 29 2b 54 25 3a 47 25  3d 28 43 25 80 31 32 29  |2)+T%:G%=(C%.12)|
00008db0  2b 54 25 3a 42 25 3d 28  28 43 25 80 34 38 29 3e  |+T%:B%=((C%.48)>|
00008dc0  3e 3e 32 29 2b 54 25 3a  3d 28 52 25 3c 3c 31 32  |>>2)+T%:=(R%<<12|
00008dd0  29 2b 28 47 25 3c 3c 32  30 29 2b 28 42 25 3c 3c  |)+(G%<<20)+(B%<<|
00008de0  32 38 29 0d 1a e0 34 dd  f2 70 64 3a 78 64 25 3d  |28)...4..pd:xd%=|
00008df0  a4 77 64 28 4e 5f 25 2c  4f 5f 25 29 3a c8 99 32  |.wd(N_%,O_%):..2|
00008e00  36 32 32 39 31 2c 2c 30  2c 31 2c 31 34 2c 78 64  |62291,,0,1,14,xd|
00008e10  25 2c 78 64 25 3a e1 0d  1a ea 78 dd f2 5a 64 3a  |%,xd%:....x..Zd:|
00008e20  c8 99 32 36 32 32 37 33  2c 2c 60 60 24 2c 62 64  |..262273,,``$,bd|
00008e30  25 2a 31 36 2c 64 64 25  2a 31 36 2c 30 2c 30 b8  |%*16,dd%*16,0,0.|
00008e40  66 25 3a c8 99 32 36 32  32 37 37 2c 2c 65 64 24  |f%:..262277,,ed$|
00008e50  2c 31 45 38 2c 31 45 38  2c 2d 31 2c 31 45 38 b8  |,1E8,1E8,-1,1E8.|
00008e60  2c 2c 71 64 25 3a 74 64  25 3d 64 64 25 2a 31 30  |,,qd%:td%=dd%*10|
00008e70  30 30 3a c8 99 32 36 32  32 38 30 2c 2c 71 64 25  |00:..262280,,qd%|
00008e80  2c 74 64 25 b8 2c 71 64  25 2c 74 64 25 3a e1 0d  |,td%.,qd%,td%:..|
00008e90  1a f4 7f dd f2 75 64 28  58 25 2c 59 25 2c 71 64  |.....ud(X%,Y%,qd|
00008ea0  25 2c 74 64 25 29 3a e6  34 2c 30 3a 86 58 25 2c  |%,td%):.4,0:.X%,|
00008eb0  59 25 2d 31 31 30 30 2c  58 25 2c 59 25 2b 31 31  |Y%-1100,X%,Y%+11|
00008ec0  30 30 3a 86 58 25 2d 31  36 30 30 2c 59 25 2d 34  |00:.X%-1600,Y%-4|
00008ed0  2c 58 25 2b 31 36 30 30  2c 59 25 2d 34 3a ec 58  |,X%+1600,Y%-4:.X|
00008ee0  25 2c 59 25 2d 74 64 25  2f 34 3a df 20 42 59 20  |%,Y%-td%/4:. BY |
00008ef0  71 64 25 2c 30 3a df 20  42 59 20 30 2c 74 64 25  |qd%,0:. BY 0,td%|
00008f00  3a df 20 42 59 20 2d 71  64 25 2c 30 3a e1 0d 1a  |:. BY -qd%,0:...|
00008f10  fe bc dd f2 76 64 3a f1  8a 33 36 2c 31 29 22 48  |....vd:..36,1)"H|
00008f20  65 6c 70 20 2d 20 54 45  58 54 22 3a f1 27 22 20  |elp - TEXT":.'" |
00008f30  54 6f 20 69 6e 69 74 69  61 74 65 20 74 65 78 74  |To initiate text|
00008f40  20 65 6e 74 72 79 3a 2d  20 50 72 65 73 73 20 3c  | entry:- Press <|
00008f50  54 3e 20 77 68 65 6e 20  74 68 65 20 70 6f 69 6e  |T> when the poin|
00008f60  74 65 72 20 69 73 20 6f  6e 20 74 68 65 20 43 6f  |ter is on the Co|
00008f70  6c 6f 75 72 20 42 61 72  2e 22 3a f1 27 22 20 49  |lour Bar.":.'" I|
00008f80  6e 20 74 68 65 20 66 69  72 73 74 20 64 69 61 6c  |n the first dial|
00008f90  6f 67 75 65 20 62 6f 78  3a 2d 20 20 3c 59 3e 3d  |ogue box:-  <Y>=|
00008fa0  63 68 61 6e 67 65 73 2c  20 20 3c 6f 74 68 65 72  |changes,  <other|
00008fb0  3e 3d 64 65 66 61 75 6c  74 2f 63 75 72 72 65 6e  |>=default/curren|
00008fc0  74 20 76 61 6c 75 65 73  2e 22 0d 1b 08 d6 f1 22  |t values."....."|
00008fd0  20 45 6e 74 65 72 20 79  6f 75 72 20 63 68 6f 69  | Enter your choi|
00008fe0  63 65 73 20 69 6e 20 74  68 65 20 46 6f 6e 74 20  |ces in the Font |
00008ff0  62 6f 78 2c 20 61 6e 64  20 74 68 65 6e 20 74 68  |box, and then th|
00009000  65 20 57 69 64 74 68 2f  48 65 69 67 68 74 20 62  |e Width/Height b|
00009010  6f 78 2e 22 3a f1 22 20  54 65 78 74 20 42 6f 78  |ox.":." Text Box|
00009020  3a 2d 20 20 45 6e 74 65  72 20 79 6f 75 72 20 74  |:-  Enter your t|
00009030  65 78 74 20 61 74 20 74  68 65 20 70 72 6f 6d 70  |ext at the promp|
00009040  74 2c 20 66 6f 6c 6c 6f  77 65 64 20 62 79 20 3c  |t, followed by <|
00009050  52 45 54 55 52 4e 3e 2e  22 3a f1 22 20 50 72 65  |RETURN>.":." Pre|
00009060  73 73 69 6e 67 20 3c 54  3e 20 61 67 61 69 6e 20  |ssing <T> again |
00009070  61 74 20 61 6e 79 20 74  69 6d 65 20 62 72 69 6e  |at any time brin|
00009080  67 73 20 62 61 63 6b 20  74 68 65 20 66 69 72 73  |gs back the firs|
00009090  74 20 64 69 61 6c 6f 67  75 65 20 62 6f 78 2e 22  |t dialogue box."|
000090a0  0d 1b 12 c6 f1 27 22 20  44 72 61 77 69 6e 67 20  |.....'" Drawing |
000090b0  61 72 65 61 3a 2d 20 20  7b 53 7d 20 3d 20 64 72  |area:-  {S} = dr|
000090c0  61 77 20 74 65 78 74 20  61 74 20 70 6f 69 6e 74  |aw text at point|
000090d0  65 72 2c 20 7b 41 7d 20  3d 20 6c 61 72 67 65 72  |er, {A} = larger|
000090e0  20 74 65 78 74 2c 20 7b  4d 7d 20 3d 20 73 6d 61  | text, {M} = sma|
000090f0  6c 6c 65 72 2e 22 3a f1  27 22 20 4f 6e 20 74 68  |ller.":.'" On th|
00009100  65 20 43 6f 6c 6f 75 72  20 42 61 72 3a 2d 20 20  |e Colour Bar:-  |
00009110  20 7b 53 7d 20 3d 20 53  65 6c 65 63 74 20 63 6f  | {S} = Select co|
00009120  6c 6f 75 72 20 6f 66 20  74 65 78 74 2c 20 7b 4d  |lour of text, {M|
00009130  7d 20 3d 20 48 65 6c 70  2d 54 65 78 74 20 77 69  |} = Help-Text wi|
00009140  6e 64 6f 77 2e 22 3a f1  27 22 20 50 72 65 73 73  |ndow.":.'" Press|
00009150  20 3c 53 50 41 43 45 3e  20 74 6f 20 66 69 6e 69  | <SPACE> to fini|
00009160  73 68 2e 22 3a e1 0d ff                           |sh.":...|
00009168