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