17 Bit Software 1: Collection A

home *** CD-ROM | disk | FTP | other *** search

/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 961.dms / 961.adf / SpectrapaintV3_0 / SpectrapaintV3_0.amosSourceCode < prev next >

Wrap

AMOS Source Code | 1978-02-21 | 211KB | 1,554 lines

Rem ***SPECTRAPAINT 3.0*** Rem **Megadoody Version!** Rem Rem (C)1991 Twilight Software Rem By K.K.Hudson RESE: ' On Error Proc ERR ' Resume Label RESTART Screen Open 0,320,200,4,Lowres Reserve Zone 8 Paper 0 Pen 1 Flash Off Cls Palette $444,$FEC,$BB,$4 Global HFLIP,VFLIP,CR,C0,C1,C2,REZ,CLRS,SCPOS,X,Y,X1,Y1,X2 Global Y2,X3,Y3,XRE,YRE,MD,MM,I,P,C,F$,BUTTON,BRSIZE,SPRAYFLAG Global UPPER,LOWER,SHIFTFLAG,SPEED,MAGSIZE,ERR,PATTERN,FONT Global T$,ITAL,BOLD,ULINE,STYLE FONT=1 Get Rom Fonts T$="Spectrapaint V3.0" SHIFTFLAG=0 SPEED=2 BRSIZE=1 I=1 P=0 CHOOSEMODE MD=1 If REZ=2 Then REZ=640 Else REZ=320 If REZ=640 Then Screen Open 0,640,256,CLRS,Hires : Screen Open 1,640,256,CLRS,Hires If REZ=320 Then Screen Open 0,320,256,CLRS,Lowres : Screen Open 1,320,256,CLRS,Lowres LOWER=0 UPPER=CLRS-1 If UPPER=63 Then UPPER=31 Curs Off Flash Off Paper 0 Pen 1 Cls Screen To Front 0 Screen 0 Curs Off Flash Off Paper 0 Pen 1 Cls Wind Save SCPOS=266 Paper 0 Pen 1 Ink 1 Curs Off Cls Screen Open 7,320,32,8,Lowres Flash Off Get Icon Palette Curs Off Paper 0 Pen 1 Screen Open 6,320,8,CLRS,Lowres Curs Off Flash Off Paper 0 Pen 1 Cls REDRAWTOOLS: Screen 6 SETUPTOOLS Screen 0 Limit Mouse 128,42 To 447,297 Reserve Zone 20 Change Mouse 2 SHIFT DEFPAL ' ' ' NEWCOLOUR RESTART: Do MESSAGE[Str$(Fast Free+Chip Free)] AGAIN: If MD=9 Then Goto SKIPPRESS Screen 0 Repeat If MD=1 and BRSIZE>1 X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Gr Writing 2 X=X+BRSIZE/2 Y=Y+BRSIZE/2 Bar X-BRSIZE,Y-BRSIZE To X,Y Wait Vbl Bar X-BRSIZE,Y-BRSIZE To X,Y Gr Writing 0 End If If MD=11 X=X Screen(X Mouse) Y=Y Screen(Y Mouse) If HFLIP=0 and VFLIP=0 Bob 1,X,Y,1 End If If HFLIP=1 and VFLIP=0 Bob 1,X,Y,$8001 End If If VFLIP=1 and HFLIP=0 Bob 1,X,Y,$4001 End If If VFLIP=1 and HFLIP=1 Bob 1,X,Y,$C001 End If End If MM=Mouse Key Screen 6 Get Palette 0 Screen 0 Until MM<>0 If MD=11 Then Bob Off 1 WRITEOVER: X=X Mouse Y=Y Mouse If Y>SCPOS-10 and Y<SCPOS Then NEWCOLOUR : Goto AGAIN If Y>SCPOS-1 and Y<SCPOS+33 Then MENU : Goto AGAIN X=X Screen(X) Y=Y Screen(Y) X1=X Y1=Y C=I SKIPPRESS: SNAP Set Pattern PATTERN If MM=2 Then C=P If MD=1 Then DTTY If MD=2 Then CONTINUOUS If MD=3 Then LINE If MD=4 Then UBLOCK If MD=5 Then FBLOCK If MD=6 Then UELLIPSE If MD=7 Then FELLIPSE If MD=8 Then SPRAY If MD=9 Then WRITE : Goto WRITEOVER If MD=10 Then CUT If MD=11 Then PASTE If MD=23 Then PA1NT If MD=24 Then PARALLELOGRAM[2] If MD=25 Then PARALLELOGRAM[1] If MD=26 Then TRINE[2] If MD=27 Then TRINE[1] If MD=28 Then RAYS Set Pattern 0 Wait Vbl SK: Loop ' ' Procs ' Procedure WRITE Repeat Until Mouse Key=0 Set Font FONT Set Text STYLE Gr Writing 2 Screen 0 Do X=X Mouse Y=Y Mouse M=Mouse Key K$=Inkey$ If M<>0 and Y>SCPOS-10 and Y<SCPOS+33 Then MM=M : Exit X=X Screen(X Mouse) Y=Y Screen(Y Mouse) K=Asc(K$) If K>31 and K<127 and Len(T$)<80 Then T$=T$+K$ If K=8 and Len(T$)>0 Then T$=Left$(T$,Len(T$)-1) Text X,Y,T$ Text X,Y,T$ If M=1 Then Gr Writing 0 : Ink I : Text X,Y,T$ : Gr Writing 2 If M=2 Then Gr Writing 0 : Ink P : Text X,Y,T$ : Gr Writing 2 Loop Gr Writing 1 End Proc Procedure SHIFT S=50-(SPEED*4) If SHIFTFLAG=0 Then Shift Off : Pop Proc If SHIFTFLAG=1 Then Shift Up S,LOWER,UPPER,1 If SHIFTFLAG=-1 Then Shift Down S,LOWER,UPPER,1 End Proc Procedure SPRAY BSIZE=BRSIZE If BSIZE<5 Then BSIZE=5 BRX=BSIZE If REZ=640 Then BRX=BRX*2 Ink C Repeat If SPRAYFLAG=1 Then Ink Rnd(UPPER-LOWER)+LOWER X1=X Screen(X Mouse) Y1=Y Screen(Y Mouse) X=Rnd(BSIZE) Y=Rnd(BSIZE) X=X-(BRï¿½ Extension_0_BFEC Extension_0_203E Extension_0_1000 Extension_0_1802 Extension_0_047C Extension_0_0200 Zï¿½ï¿½Y Extension_0_FFCB Extension_0_0075 BSIZE/2) Plot X1 Extension_0_7FCA Extension_0_C006 Extension_0_9FC9 Extension_0_1200 Extension_0_7000 Extension_0_045C Gfxcall Extension_0_F8B7 Extension_0_0280 Extension_0_7971 Extension_0_FFEA Y1 Until Extension_0_1E31 =0 End Proc Procedure NEWCOLOUR If CLRS=4 Then W=80 If CLRS=8 Then W=40 If CLRS=16 Then W=20 If CLRS=32 Then W=10 If CLRS=64 Then W=5 Screen 6 X=X Screen(X Mouse) X=X/W Ink I Box I*W,0 To I*W+W,7 Ink P Box P*W+2,2 To P*W+(W-2),5 If MM=1 Then I=X If MM=2 Then P=X Ink 0 Box Extension_0_8006 Extension_0_BF81 Extension_0_2200 Extension_0_7900 Extension_0_F7E2 Extension_0_1C06 Tab$ Extension_0_0300 Extension_0_7780 Illegal_Constant_001C Extension_0_00DE Illegal_Constant_0030 Extension_0_FF80 Extension_0_0207 Extension_0_6900 *W+W,7 Box Extension_0_8006 Extension_0_BF7B Extension_0_2200 Extension_0_6000 Extension_0_E7E2 Extension_0_0406 Extension_0_0E00 Extension_0_0D00 Extension_0_7780 Extension_0_FF80 %100000000000000011010 Extension_0_0058 Illegal_Constant_003CP*W+(ï¿½ End Proc$ Procedure DEFPAL Restore 81 C=CLRS If C=64 Then C=32 For F=0 To C-1 Read A Colour F,A Next F 81 Data 0,3786,3584,2560,3456,4064,2288,128,182,221,175,124,15,1807,3086,3080,1568,3666,2642,4042,819,1092,1365,1638,1911,2184,2457,2730,3276,3549,3822,4095 End Proc Procedure UELLIPSE Gr Writing 2 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) RX=Abs(X1-X) RY=Abs(Y1-Y) If RX=0 Then RX=1 If RY=0 Then RY=1 If Key Shift>0 and Key Shift<4 Then RY=RX Ellipse X1,Y1,RX,RY Wait Vbl Ellipse X1,Y1,RX,RY Until Mouse Key=0 Gr Writing 0 Ink C Ellipse X1,Y1,RX,RY End Proc Procedure FELLIPSE Gr Writing 2 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) RX=Abs(X1-X) RY=Abs(Y1-Y) If RX=0 Then RX=1 If RY=0 Then RY=1 If Key Shift>0 and Key Shift<4 Then RY=RX Ellipse X1,Y1,RX,RY Wait Vbl Ellipse X1,Y1,RX,RY Until Mouse Key=0 Gr Writing 1 Change Mouse 3 If C=I Then C2=P If C=P Then C2=I Ink C,C2 Ellipse X1,Y1,RX,RY For F=1 To RY Ellipse X1,Y1,RX,F Next F Draw X1-RX,Y1 To X1+RX,Y1 Paint X1,Y1,1 Change Mouse 2 End Proc Procedure PA1NT Ink C Paint X,Y,1 End Proc Procedure DTTY Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Ink C SPOT Wait Vbl Until Mouse Key=0 End Proc Procedure SPOT Plot X,Y If BRSIZE=1 Then Goto SKIPPY X=X+BRSIZE/2 Y=Y+BRSIZE/2 Bar X-BRSIZE,Y-BRSIZE To X,Y SKIPPY: End Proc Procedure FBLOCK Gr Writing 2 Plot X1,Y1 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Box X1,Y1 To X,Y Wait Vbl Box X1,Y1 To X,Y Until Mouse Key=0 Gr Writing 1 If C=I Then C2=P If C=P Then C2=I Ink C,C2 If X=X1 Then X=X+1 If Y=Y1 Then Y=Y+1 If X1>X Then Swap X1,X If Y1>Y Then Swap Y1,Y Bar X1,Y1 To X,Y Ink C,0 End Proc Procedure UBLOCK Gr Writing 2 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Box X1,Y1 To X,Y Wait Vbl Box X1,Y1 To X,Y Until Mouse Key=0 Gr Writing 0 Ink C Box X1,Y1 To X,Y End Proc Procedure LINE Gr Writing 2 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Draw X1,Y1 To X,Y Wait Vbl Draw X1,Y1 To X,Y Until Mouse Key=0 Gr Writing 0 Ink C Draw X1,Y1 To X,Y End Proc Procedure CONTINUOUS Ink C Plot X1,Y1 Repeat Draw To X Screen(X Mouse),Y Screen(Y Mouse) Wait Vbl Until Mouse Key=0 End Proc Procedure MESSAGE[M$] Screen 7 Paper 7 Gr Writing 0 For F=16 To 20 Paste Icon(F*16-16),0,F Next F If Len(M$)>9 Then M$="Too long!" Text 244,10,M$ Screen 0 End Proc Procedure CUT On Error Proc ERR Resume Label CUTERR HFLIP=0 VFLIP=0 MD=11 Gr Writing 2 Plot X1,Y1 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Box X1,Y1 To X,Y Wait Vbl Box X1,Y1 To X,Y Until Mouse Key=0 X=X+1 Y=Y+1 Gr Writing 0 If X1>X Then Swap X1,X If Y1>Y Then Swap Y1,Y If X1=X Then X=X+1 If Y1=Y Then Y=Y+1 Get Bob 1,X1,Y1 To X,Y Hot Spot 1,$11 CUTERR: End Proc Procedure PASTE On Error Proc ERR Resume Label PASTERR Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) If HFLIP=0 and VFLIP=0 Bob 1,X,Y,1 End If If HFLIP=1 and VFLIP=0 Bob 1,X,Y,$8001 End If If VFLIP=1 and HFLIP=0 Bob 1,X,Y,$4001 End If If VFLIP=1 and HFLIP=1 Bob 1,X,Y,$C001 End If Put Bob 1 Until Mouse Key=0 Bob Off 1 PASTERR: End Proc Procedure MENU Screen 7 X1=X Mouse Y1=Y Mouse X=X Screen(X) Y=Y Screen(Y) X=X/16 X=X+1 Y=Y/16 MESSAGE["Selected!"] If Y=0 Then TPMENU If Y=1 Then BTMENU Repeat Until Mouse Key=0 End Proc Procedure TPMENU If X<12 Then MD=X : Pop Proc If X=12 and HFLIP=1 Then HFLIP=0 : Goto SKIP If X=12 and HFLIP=0 Then HFLIP=1 : Goto SKIP If X=13 and VFLIP=1 Then VFLIP=0 : Goto SKIP If X=13 and VFLIP=0 Then VFLIP=1 : Goto SKIP SKIP: If X=14 Then RGBSPLIT : Pop Proc If X=15 Then HID If X>15 Then DRAGBAR End Proc Procedure BTMENU If X=1 and BRSIZE>1 Then BRSIZE=BRSIZE-1 If X=2 and BRSIZE<40 Then BRSIZE=BRSIZE+1 If X>2 and X<9 Then MD=X+20 : Pop Proc If X=9 Then NEWFONT : Pop Proc If X=10 Then MAGNIFY : Pop Proc If X=11 Then NEWPATT : Pop Proc If X=12 Then PICK : Pop Proc If X=13 Then UNDO : Pop Proc If X=14 Then SYSINFO : Pop Proc If X=15 Then PROGDATA : Pop Proc If X=16 Then REQUEST["Printer not implimented","Ok",""] : Pop Proc If X=17 Then DISK : Pop Proc If X=18 Then PAL : Pop Proc If X=19 Then SNAP : Screen 0 : Paper P : Ink I : Cls If X=20 Then QUIT If X=1 or X=2 MESSAGE["Size:"+Right$(Str$(BRSIZE),2)] : Wait 5 End If End Proc Procedure SYSINFO On Error Proc ERR Resume Label CANNEDO DISK$=Str$(Dfree) MEM$=Str$(Fast Free+Chip Free) WINDO[16,16,34,6] Print Centre "Disk free :"+DISK$+" bytes" Print Centre "Memory free :"+MEM$+" bytes" Print Print Centre "Click mouse" Repeat Until Mouse Key=0 Repeat Until Mouse Key<>0 WINDCLO CANNEDO: End Proc Procedure PROGDATA WINDO[16,32,36,19] Print Repeat Until Mouse Key=0 Restore 999 Repeat Read R$ Centre R$+" " Print Until R$="Click mouse" Repeat Until Mouse Key=1 WINDCLO 999 Data "Spectrapaint V3.0" Data "" Data "A new generation of" Data "Spectrapaint" Data "" Data "(C)1991 Twilight Software" Data "Written by K.Hudson" Data "" Data "K.K.Hudson" Data "4 Brunt Road" Data "Rawmarsh" Data "Rotherham" Data "S.Yorkshire" Data "England" Data "S62 5EW" Data "" Data "Click mouse" End Proc Procedure NEWFONT Repeat Until Mouse Key=0 HID WINDO[16,16,32,12] Repeat N=0 Repeat N=N+1 F$ Until F Extension_0_FFA1 "" N=N-1 Reserve Zone Extension_0_803E Extension_0_4000 Extension_0_200A Extension_0_F000 Locate Extension_0_783E Extension_0_0C00 Extension_0_0202 Extension_0_015C Extension_0_01BE Extension_0_00C0 " v" Print Extension_0_0106 Extension_0_0070 Extension_0_011E Extension_0_0077 "<",2),1); Extension_0_8000 Locate Extension_0_C03E Extension_0_E000 Extension_0_7007 Extension_0_285C Extension_0_F43E Extension_0_0A00 Extension_0_0506 Extension_0_0580 Print Extension_0_024E LogicLength Extension_0_00AC Extension_0_005A $Illegal_Constant_003D Locate 12,-2147434490 Extension_0_6000 Print Extension_0_D10E Extension_0_F874 Colour Extension_0_1A74 Extension_0_FF26 Proc Extension_0_2084 Extension_0_6E8E Extension_0_6570 Extension_0_01A4 Illegal_Constant_0032$ Extension_0_005B 9) Locate 22,6 Print Extension_0_810E Extension_0_4074 Extension_0_211C Extension_0_F074 Extension_0_8826 Extension_0_DC06 Extension_0_4652 Extension_0_7461 Extension_0_9FA0 Input$ Extension_0_025E Extension_0_00F0 Extension_0_038A Illegal_Constant_0038 Extension_0_007E $ Repeat P1=1 P2=1 Extension_0_8000 ï¿½3ï¿½> If " xuhiheï¿½ï¿½" If Extension_0_8846 Extension_0_BB3B Extension_0_AA70 Extension_0_5497 Extension_0_95F8 Extension_0_E3E4 Extension_0_0E1F Extension_0_0511 Extension_0_01BE Extension_0_010A Resume Next Extension_0_005B Extension_0_0218 Extension_0_70C6 and Illegal_Constant_003B If ITï¿½L Extension_0_3FA2 Extension_0_203E Extension_0_F000 Extension_0_1801 Extension_0_8EC6 Extension_0_4206 Extension_0_2112 Clear Key Extension_0_79F3 Extension_0_7B42 Extension_0_424E Extension_0_FF18 Extension_0_1087 Extension_0_0846 Locate Extension_0_1C1F Extension_0_0E37 Extension_0_030A Extension_0_07D8 Extension_0_00F8 Extension_0_0061 Extension_0_007A Extension_0_0078 Print Extension_0_0118 Extension_0_0076 Extension_0_13BB(P1 Extension_0_807C Extension_0_3FC0 Extension_0_E10E Extension_0_3074 Extension_0_F826 Extension_0_9C06 Extension_0_1353 Extension_0_FC6F Extension_0_A3E5 Extension_0_EF9C Extension_0_8C5E Extension_0_FA50 Extension_0_A3EB Extension_0_F7E8 Set Sprite Buffer Extension_0_74D9 Extension_0_1E36 Extension_0_072D Extension_0_0188 Text Locate Extension_0_005B Extension_0_01F1 Extension_0_01E7 Extension_0_01A0 Illegal_Constant_0024# Print Border$(Paper$(02ï¿½|ï¿½ï¿½9ï¿½Tï¿½&ï¿½ï¿½Vï¿½`@ï¿½LA&Aï¿½ï¿½[ï¿½6 Locate ' 'Vï¿½@Uï¿½PUï¿½ï¿½ï¿½ï¿½2ï¿½ï¿½ï¿½ï¿½ï¿½Vï¿½ï¿½ï¿½ï¿½$ Print Extension_0_811D Extension_0_4075 Extension_0_F3B9 Extension_0_5075 Extension_0_F807 Extension_0_9413 Extension_0_FC01 Extension_0_DD32 Extension_0_B3FD Extension_0_1681 Extension_0_AAA9 Extension_0_76C4 Extension_0_EEFE Extension_0_15AA Extension_0_F62A Extension_0_ACC9 Extension_0_8B34 Extension_0_B782 Extension_0_E9C1 Extension_0_ACCE Extension_0_F62E Extension_0_AD6E Extension_0_F627 Extension_0_AD7A Extension_0_F7A6 Extension_0_AD53 Extension_0_F7D7 Extension_0_AAD4 Paper Extension_0_7768 Extension_0_6B6F Extension_0_16DF Extension_0_1BF7 Locate Extension_0_1D68 Extension_0_BF7F Extension_0_4FEC Extension_0_A7AB Extension_0_D3C8 Extension_0_582F Extension_0_FC1F Extension_0_AE17 Print Extension_0_B728 Extension_0_EA99 Bob Update Extension_0_AD41 Extension_0_E791 Extension_0_C297 Extension_0_9FF4 Extension_0_689E Extension_0_85F5 Extension_0_7E7D Extension_0_DEDF Extension_0_6DAE Extension_0_CAEB Extension_0_1742 Extension_0_89D3 Extension_0_54DC Extension_0_FEE4 Locate Extension_0_4DCC Extension_0_EB9B Extension_0_374E Extension_0_AE86 Extension_0_D553 Extension_0_9F9F Extension_0_3355 Extension_0_EAE6 Print Extension_0_B8DF Extension_0_CA1E Extension_0_1337 Extension_0_B1C3 Extension_0_48CA Extension_0_0343 Extension_0_B64F Extension_0_CF95 Extension_0_BAE9 Extension_0_BDB5 Extension_0_D57B Extension_0_BA72 Extension_0_D333 Extension_0_B16E Extension_0_D4C6 Extension_0_1E6D Extension_0_8BF1 Extension_0_83FE Extension_0_2B22 Extension_0_801F Extension_0_B08E Extension_0_6837 Extension_0_7C1A Extension_0_F63B Extension_0_6313 Extension_0_EEF6 Extension_0_4E0D Extension_0_E960 Extension_0_3C73 Extension_0_9659 Extension_0_3D48 Extension_0_E776 Locate Extension_0_B371 Extension_0_58E6 Extension_0_E3F1 Extension_0_1624 Extension_0_0B52 Extension_0_9DFE Extension_0_C6C4 Extension_0_A366 Print Extension_0_D1B9 Extension_0_38C2 Extension_0_558B Extension_0_6802 Extension_0_A364 Extension_0_B7FE Extension_0_42FC Extension_0_1085 Extension_0_7857 Print Extension_0_F9F6 Extension_0_4678 Extension_0_EEC8 Extension_0_33F7 Extension_0_1BC4 Extension_0_EB0A Extension_0_8E30 Extension_0_2977 Extension_0_8CF8 Extension_0_333A Extension_0_1B83 Extension_0_144E Extension_0_8E18 Extension_0_BD0A Extension_0_E3DA Extension_0_B0F9 Extension_0_D862 Extension_0_A4F5 Extension_0_CE45 Extension_0_BB69 Extension_0_5C8F Repeat Extension_0_7CE2 Repeat Extension_0_B5CF Until Extension_0_4896 Screen Height Extension_0_3E99 Extension_0_1ADC Extension_0_0AFB Extension_0_0DB7 -ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ \ï¿½ï¿½ZMï¿½ï¿½Aï¿½]^QPï¿½Ø¼ï¿½+ ï¿½Þï¿½9Yï¿½OÇï¿½ï¿½Qï¿½ï¿½ï¿½EOï¿½2ï¿½FHÈ·ï¿½Y=ï¿½ï¿½(W{ZEï¿½ï¿½?~ï¿½Ê®ï¿½ï¿½ï¿½R0T`ð¨ï¿½OFï¿½Uï¿½ãYï¿½4ï¿½ï¿½Pï¿½ï¿½!ï¿½ï¿½ï¿½ï¿½Mï¿½, ï¿½ï¿½ï¿½ï¿½Gï¿½Ëï¿½#ï¿½ï¿½ï¿½ï¿½ê¤ï¿½ï¿½IXï¿½ï¿½~Jï¿½ï¿½ï¿½ï¿½^ï¿½)Oï¿½%C3FJï¿½ï¿½ï¿½|ï¿½Gï¿½<ï¿½YSï¿½Uï¿½ ;ï¿½ï¿½83ï¿½ï¿½ï¿½A{ï¿½ï¿½ï¿½ï¿½# ï¿½ï¿½<4ï¿½ï¿½|Ë,ï¿½Tï¿½ZZ ï¿½ï¿½ï¿½Mï¿½@ ï¿½ï¿½ï¿½ï¿½<\$ÙV# Until Extension_0_ACFD Extension_0_5A1E Extension_0_6D01 Extension_0_9883 Extension_0_41A6 Extension_0_5D5E Extension_0_7170 Extension_0_F8D8 Extension_0_BCF4 If Extension_0_AD39 Extension_0_5996 Extension_0_6FC7 Extension_0_9AFE Extension_0_C571 Get Icon Palette Extension_0_8DD4 Extension_0_456F Extension_0_1DCB Extension_0_32C8 Extension_0_6648 Extension_0_C8B7 Extension_0_C059 Extension_0_3D9F Extension_0_9628 Extension_0_777B Extension_0_7A65 Extension_0_FAD2 Extension_0_3F7E Extension_0_A1CA Extension_0_AEC3 Extension_0_EDAD Extension_0_5230 Extension_0_7460 Extension_0_F0A8 Extension_0_8981 Extension_0_BA6F Extension_0_66E1 Extension_0_951E Extension_0_55ED Extension_0_E39F Extension_0_8A59 Extension_0_C334 Extension_0_A78B Extension_0_5091 Extension_0_EB21 Extension_0_BFCE Extension_0_DAE8 Extension_0_AB08 Extension_0_6D9A If Extension_0_BF67 Extension_0_DBCB Extension_0_97A8 Extension_0_23B4 Extension_0_1B08 Extension_0_AD81 Extension_0_CAEA Extension_0_A49F Extension_0_A287 Extension_0_6978 Extension_0_03BE Extension_0_BE7E Extension_0_014A Extension_0_18E7 Extension_0_86E6 Extension_0_05FD Extension_0_865E Extension_0_C329 Extension_0_4F8B Jdown Extension_0_0825 Extension_0_6333 Extension_0_4619 Extension_0_076A Extension_0_9EF7 Extension_0_D67C Extension_0_EC67 Extension_0_C53C Extension_0_E179 Extension_0_53EA Extension_0_75B3 Auto View Off Extension_0_3B8E Extension_0_E538 Extension_0_339D Extension_0_191E Extension_0_16F3 Extension_0_82E3 Extension_0_417B Extension_0_E090 Extension_0_B0DA If Extension_0_3C34 Extension_0_9617 Extension_0_D97C Extension_0_CB86 Extension_0_2CF1 Extension_0_BA9E Extension_0_54B0 Extension_0_7A5A Menu Base Extension_0_0AA8 Extension_0_0FA5 Extension_0_03A7 Extension_0_6DBE Extension_0_7F07 Extension_0_400A Extension_0_E0EA Extension_0_100D Extension_0_8ACC Extension_0_3C11 Extension_0_5C24 Extension_0_D981 Extension_0_76E4 Extension_0_8334 Extension_0_B219 Extension_0_C095 Extension_0_D21C Extension_0_D8C2 Extension_0_B5FE Extension_0_D431 Extension_0_522F Extension_0_9378 Extension_0_59CA If Extension_0_F2D7 Extension_0_49C3 Extension_0_E674 Extension_0_5B5E Extension_0_50CF Extension_0_D4AB Extension_0_BE4B Extension_0_D316 Extension_0_3954 Extension_0_12CD Extension_0_9AD2 Extension_0_DFD2 Extension_0_A1BA Extension_0_F319 Extension_0_A4DD Extension_0_B47A Extension_0_3839 Extension_0_1D2A Extension_0_1F9A Extension_0_9D41 Extension_0_BDF6 Extension_0_2151 Extension_0_11B0 Extension_0_1BD4 Extension_0_92E6 Extension_0_3191 Extension_0_A134 Extension_0_508F Extension_0_78C9 Extension_0_EC21 Wait Vbl Extension_0_D611 Until Extension_0_BB1F Extension_0_4DA3 Extension_0_E546 Extension_0_3EE1 Extension_0_85F3 Extension_0_ED11 Extension_0_5674 Extension_0_FB73 Extension_0_51A9 Extension_0_3771 Extension_0_2C82 Extension_0_15D5 Extension_0_E827 Extension_0_BC36 Extension_0_6364 Extension_0_737D Extension_0_6878 Extension_0_1C2E Until Extension_0_1E1B Extension_0_9D0F Extension_0_418E Extension_0_4EC3 Extension_0_ECC4 Extension_0_98EF Extension_0_C429 Extension_0_627A Extension_0_710A Clw Extension_0_498F Locate Extension_0_DDFC Extension_0_D261 Extension_0_3B11 Extension_0_35C5 Extension_0_8E63 Extension_0_C2E5 Extension_0_2175 Extension_0_B0B9 Centre Extension_0_C843 Extension_0_2C7E Extension_0_FE74 Extension_0_2868 Extension_0_0414 Extension_0_B55D Extension_0_FF08 Extension_0_9BC4 Extension_0_09E6 Extension_0_D32C Extension_0_89F6 Screen Extension_0_7F75 Extension_0_61BC Extension_0_1F72 Extension_0_19EF Set Font Extension_0_04CA Extension_0_FD57 Extension_0_071D Extension_0_65E6 Extension_0_6E33 Extension_0_8026 Change Mouse Extension_0_C031 Extension_0_2008 Extension_0_F00F Extension_0_0802 Change Mouse Extension_0_3C3F Extension_0_0601 Extension_0_0103 Extension_0_8081 ï¿½Y6LHï¿½ï¿½ï¿½+ï¿½V End Proc Extension_0_2BFF Procedure NEWSTYLE[M] Locate 13,1 M=M-2 If M=1 and ULINE=0 Then ULINE=1 : Goto RE If M=2 and BOLD=0 Then BOLD=1 : Goto RE If M=3 and ITAL=0 Then ITAL=1 : Goto RE If M=1 and ULINE=1 Then ULINE=0 If M=2 and BOLD=1 Extension_0_82C6 Extension_0_4006 Extension_0_DF1B Extension_0_1400 Extension_0_6A6F Extension_0_7064 Extension_0_FDA2 Extension_0_013E Extension_0_0080 Extension_0_01C0 Extension_0_0060 If M$ Extension_0_FFA1 3 and ITAL=1 Then )TALï¿½> ï¿½E: Extension_0_4010 Paper Extension_0_2026 Extension_0_101C Extension_0_0806 Extension_0_1C03 Sï¿½Zï¿½E`ï¿½ï¿½# If ULï¿½Nï¿½ Extension_0_9FA2 Extension_0_303E Extension_0_1800 Extension_0_1401 Extension_0_0CC6 Extension_0_0D06 Extension_0_FD8F Extension_0_0540 Extension_0_74D4 Extension_0_78BC Extension_0_E518 Extension_0_BFB6 Extension_0_2018 Extension_0_EF08 Change Mouse Extension_0_7775 Extension_0_776D Extension_0_6403 Extension_0_FF40 Repeat$Illegal_Constant_0020ï¿½ If BOLD=32769 Extension_0_C2C6 Extension_0_E006 Extension_0_EF0F Extension_0_0E00 Extension_0_7F74 Extension_0_476C Extension_0_6400 Extension_0_FE22 Extension_0_8046 Extension_0_3F6F Extension_0_6610 Extension_0_436C Extension_0_6168 Extension_0_7102 Extension_0_F5C1 Extension_0_0F3F Extension_0_0E83 Extension_0_0142 Extension_0_01A0 If %11111111001111010000010000011010 Extension_0_6977 Extension_0_616A Extension_0_FFA3 Illegal_Constant_003F@_ï¿½ï¿½UMKï¿½>ï¿½ï¿½ï¿½ï¿½Sï¿½Xï¿½ï¿½L?ï¿½ï¿½;ï¿½ï¿½ï¿½ï¿½ï¿½=ï¿½# Wait Extension_0_FE3D Extension_0_F700 Extension_0_8B85 Extension_0_C240 End Proc Extension_0_E160 Procedure NEWPATT HID Screen Open 2,320,40,2,Lowres Screen Display 2,,200,, Paper 0 Ink 1 Pen 1 Cls Curs Off For F=0 To 4 For N=1 To 8 XX=(F*8)+N If XX>35 Then XX=1 Set Pattern XX If XX=1 Then Set Pattern 0 Bar N*40-39,F*8 To N*40,F*8+8 Next N Next F Palette $0, Extension_0_8036 Extension_0_4000 Extension_0_2FFF Extension_0_1000 Repeat Extension_0_0C00 Until Extension_0_1C32 Extension_0_E0A2 Extension_0_01BE Illegal_Constant_0040Illegal_Constant_0021Illegal_Constant_0030 Y Extension_0_FFA3 Extension_0_0C27(Y Mouse) X=X Screen( Extension_0_9E16 Extension_0_407C Extension_0_2000 If Extension_0_1806 Extension_0_83C3 Extension_0_CC00 Extension_0_1E00 Extension_0_CC2C Extension_0_29FE Extension_0_1420 Extension_0_1A70 Extension_0_FC40 Extension_0_019A Extension_0_FE81 Extension_0_02E1 Extension_0_79D1 Extension_0_FFAD # Extension_0_02D8 P`TU# Screen Close Illegal_Constant_003F# Screen Illegal_Constant_003F Extension_0_8001 Extension_0_C001 Extension_0_2001 If Extension_0_7806 Extension_0_B333 Extension_0_AA00 Extension_0_DF61 Extension_0_DDF4 Extension_0_B132 Extension_0_9820 Extension_0_6AB2 Extension_0_DAA6 Extension_0_FD4C Extension_0_92A3 Extension_0_D9B7 Extension_0_FCED Extension_0_6D47 Extension_0_D336 Extension_0_8CF4 Extension_0_E7A1 Extension_0_3FAF Extension_0_5393 Extension_0_8C1C Extension_0_095B Extension_0_05BF Plot Extension_0_03E5 Repeat Extension_0_0056 Until Extension_0_1FEF Extension_0_7F55 Extension_0_C034 Extension_0_E005 Extension_0_507F Extension_0_180E Set Pattern Extension_0_7C39 Extension_0_C600 Extension_0_FF01 Extension_0_9380 ï¿½4ï¿½Jï¿½ï¿½ï¿½NGFÖï¿½ï¿½{V End Proc Extension_0_F97B Procedure PATT XX=X/40 R=XX YY=Y/8 XX=(YY*8)+XX If XX>35 Then XX=0 PATTERN=XX PATTERN=PATTERN+1 If PATTERN<0 or PATTERN>35 Then PATTERN=35 End Proc Procedure RGBSPLIT WINDO[48,130,30,9] Locate 2,1 Centre "Filter which colour?" Locate 2,4 Reserve Zone 4 Print Zone$(Border$(" Red ",1),1) Locate 12,4 Print Zone$(Border$("Green",1),2) Locate 22,4 Print Zone$(Border$("Blue ",1),3) Locate 12,7 Print Zone$(Border$("Exit ",1),4) Repeat Repeat Until Mouse Key<>0 M=Mouse Zone Until M<>0 WINDCLO If M=4 Then Pop Proc SEPARATE[M] End Proc Procedure SEPARATE[N] If N=1 Then CLR$="red" If N=2 Then CLR$="green" If N=3 Then CLR$="blue" REQUEST["Really remove all "+CLR$+"?","No","Yes"] If BUTTON=1 Then Pop Proc N=N+1 C=CLRS If C=64 Then C=32 Screen 0 For X=0 To C-1 A$=Hex$(Colour(X),3) Mid$(A$,N,1)="0" Colour X,Val(A$) Next X End Proc Procedure RAYS MESSAGE["Draw rays"] Screen Hide 7 Repeat AG: Repeat Until Mouse Key<>0 X=X Mouse : Y=Y Mouse If Y>SCPOS-10 and Y<SCPOS Then MM=1 : NEWCOLOUR : Wait 5 : Goto AG Screen 0 X=X Screen(X Mouse) : Y=Y Screen(Y Mouse) If Mouse Key=1 Then Ink I : Draw X1,Y1 To X,Y Wait Vbl Until Mouse Key=2 Screen Show 7 MESSAGE["Release.."] Repeat : Until Mouse Key=0 End Proc Procedure DRAGBAR MESSAGE[" Drag me "] MX=Y1-SCPOS Repeat Y=Y Mouse-MX X Mouse=X1 Screen Display 6,,Y-9,, Screen Display 7,,Y,, Wait Vbl Until Mouse Key=0 SCPOS=Y MESSAGE[""] End Proc Procedure SNAP Screen Copy 0 To 1 Screen 0 End Proc Procedure UNDO Wait Vbl Screen Copy 1 To 0 Wait Vbl Screen 0 End Proc Procedure QUIT REQUEST["Do you really want to quit?","No","Yes"] If BUTTON=1 Then Pop Proc Screen Close 7 Screen Close 6 Screen Close 1 Screen Close 0 Edit End Proc Procedure SETUPTOOLS Screen Display 7,,SCPOS,, Screen Display 6,,SCPOS-9,, Screen To Front 7 Screen To Front 6 Screen 7 For F=1 To 20 Extension_0_8000 Paste Icon Extension_0_4074 Extension_0_2006 Extension_0_1000 Extension_0_0A00 Extension_0_6200 Extension_0_F1E2 Extension_0_013E Extension_0_1F80 Extension_0_0050 Extension_0_FFEA Extension_0_0014 Extension_0_007E Extension_0_005D Illegal_Constant_003D Paste Icon(F* Extension_0_803E Extension_0_4000 Extension_0_A010 Extension_0_AFCA Extension_0_283E Extension_0_0C00 Spritebob Col Extension_0_0D7C Extension_0_02DC Repeat$ Extension_0_01A0 Illegal_Constant_0040Illegal_Constant_0024F# Extension_0_FFC3 20 Next F Screen 6 If #LRSï¿½> If CLRS=8 Then ï¿½ If Next Extension_0_F8F5 Extension_0_07F0 Extension_0_6324 Extension_0_721F Extension_0_FFB4 Illegal_Constant_0031Illegal_Constant_001C$ï¿½ï¿½ If CLï¿½S Extension_0_3FA2 Extension_0_E03E Extension_0_7000 Extension_0_2820 Extension_0_2EC6 Extension_0_1E06 Extension_0_0706 Extension_0_0080 Extension_0_7440 Extension_0_FF42 Extension_0_001E $ If CLRS=64 Then W= Extension_0_803E Extension_0_4000 Extension_0_A005 Extension_0_D000 For Extension_0_3406 Extension_0_2E00 Extension_0_1F00 Extension_0_1C80 Extension_0_F862 Extension_0_015E Extension_0_01D0 Extension_0_0078 Extension_0_00C0 Illegal_Constant_001C Extension_0_FFD8 Extension_0_041F Extension_0_636E Extension_0_7270 Ink F Bar F*W Extension_0_805C Extension_0_C03E Extension_0_6000 Extension_0_3000 Extension_0_2894 Extension_0_1C06 Extension_0_7A00 Extension_0_0700 Extension_0_6880 Extension_0_FF22 Extension_0_0066 Extension_0_0056 Extension_0_0218 Extension_0_770C Extension_0_FFDE W#,8 Next F Get Palette Extension_0_803E Extension_0_C000 Extension_0_E000 Extension_0_7000 End Proc Extension_0_4800 Procedure CHOOSEMODE WINDO[48,16,28,16] Locate 4,1 Under On Print "Choose screen mode" Under Off CLRS=32 REZ=1 Repeat Locate 2,4 Paper 1 : If REZ=1 Then Paper 2 Print Zone$(Border$("Lo res",2),1) Locate 2,8 Paper 1 : If REZ=2 Then Paper 2 Print Zone$(Border$("Hi res",2),2) Locate 13,4 Paper 1 : If CLRS=4 Then Paper 2 Print Zone$(Border$(" 4",2),3) Locate 18,4 Paper 1 : If CLRS=8 Then Paper 2 Print Zone$(Border$(" 8",2),4) Locate 13,8 Paper 1 : If CLRS=16 Then Paper 2 Print Zone$(Border$("16",2),5) Locate 18,8 Paper 1 : If CLRS=32 Then Paper 2 Shade On : If REZ=1 Then Shade Off Print Zone$(Border$("32",2),6) Locate 23,8 Paper 1 : If CLRS=64 Then Paper 2 Shade On : If REZ=1 Then Shade Off Print Zone$(Border$("64",2),7) Shade Off Locate 10,12 Paper 1 Print Zone$(Border$(" Ok ",2),8) Repeat Repeat Until Mouse Key<>0 Until Mouse Zone<>0 If Mouse Zone=1 Then REZ=1 If Mouse Zone=2 Then REZ=2 If Mouse Zone=3 Then CLRS=4 If Mouse Zone=4 Then CLRS=8 If Mouse Zone=5 Then CLRS=16 If Mouse Zone=6 Then CLRS=32 If Mouse Zone=7 Then CLRS=64 If REZ=2 and CLRS>16 Then CLRS=16 Until Mouse Zone=8 Paper 2 Locate 10,12 Print Zone$(Border$(" Ok ",2),8) Wait 10 WINDCLO End Proc Procedure REQUEST[T$,B1$,B2$] HID WINDO[16,16,36,8] Change Mouse 1 Reserve Zone -2147467262 Extension_0_2000 Locate Extension_0_103E Extension_0_0800 Extension_0_0401 Extension_0_0E5C Extension_0_013E Extension_0_0780 Extension_0_00C1 Extension_0_0060 Centre $FF2F0206 Extension_0_741E Extension_0_FFC1 Illegal_Constant_0039 If B1$="" Then Print " rï¿½o" An,rqxerï¿½#ï¿½ ï¿½oï¿½b]txoTs" Locate 32-Len(B1$),5 Extension_0_8000 Print Extension_0_410E Extension_0_2074 Extension_0_111C Extension_0_1874 Extension_0_0406 Extension_0_0200 Extension_0_0D02 Extension_0_6DB1 Illegal_Constant_001C%100000000000000111010 Extension_0_0060 Extension_0_005E Illegal_Constant_0021 If B2$<>"" Locate Extension_0_803E Extension_0_C000 Extension_0_E003 Extension_0_F05C Extension_0_483E Extension_0_2C00 Extension_0_2E05 Close Print Input$ Extension_0_0634 For Extension_0_03BE Illegal_Constant_0022 Extension_0_0210 Extension_0_620D Illegal_Constant_0040Illegal_Constant_003CIllegal_Constant_001F2) End If Repeat Repeat Until Mouse Key Extension_0_7F66 Extension_0_C03E Extension_0_E000 Extension_0_7000 Extension_0_2800 L Until Extension_0_07B6 Menu Calc Doscall Extension_0_713E Extension_0_FF7D Illegal_Constant_003CIllegal_Constant_001F BUTTON=Q Paper Extension_0_803E Extension_0_4000 Extension_0_A002 Extension_0_D000 If Extension_0_2C06 Extension_0_2A0C Extension_0_1500 Extension_0_6C80 Extension_0_E162 Extension_0_015E Extension_0_00F0 Extension_0_00A9 , Locate Illegal_Constant_0028Illegal_Constant_003DIllegal_Constant_003B Extension_0_FFC8 Extension_0_05C5(B1$),5 Print Zone$ Extension_0_8074 Extension_0_411C Extension_0_2074 Extension_0_9006 Extension_0_D800 Extension_0_7E02 Extension_0_4C31 Extension_0_375C Extension_0_0BBE Dim Extension_0_0362 Extension_0_018C Extension_0_0114 Extension_0_009A Extension_0_00D2 # End If $ If Q=2 Locate 3,32773 Extension_0_C000 Print Extension_0_610E Extension_0_5074 Extension_0_391C Extension_0_0C74 Extension_0_0A06 Extension_0_0706 Extension_0_0382 Extension_0_63F2 Extension_0_01FC Extension_0_006E $ Extension_0_005F Illegal_Constant_0020#$ End If $ Wait Illegal_Constant_003F# WHï¿½Eï¿½Mï¿½# Extension_0_1001 Change Mouse Extension_0_183F Extension_0_9C01 Extension_0_C603 Extension_0_E701 End Proc Extension_0_CF83 Procedure TRINE[FLAG] TX=X1 TY=Y1 Repeat Until Mouse Key=0 Wait 3 Gr Writing 2 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Draw TX,TY To X,Y Draw TX,TY To X,Y Until Mouse Key<>0 XX=X : YY=Y Repeat Until Mouse Key=0 Wait 3 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Draw XX,YY To X,Y Draw TX,TY To X Extension_0_805C Extension_0_4006 Extension_0_DFC3 Extension_0_7200 Extension_0_7100 Extension_0_FC00 Draw Gfxcall Extension_0_0112 Extension_0_0280 Extension_0_79B8 )$204 Extension_0_797F Extension_0_0095 Illegal_Constant_0039 Draw ï¿½X Extension_0_405C Extension_0_2006 Extension_0_7018 Extension_0_CA00 Extension_0_1D79 Extension_0_5294 Extension_0_2706 Extension_0_0249 Extension_0_04C0 Extension_0_7D60 Extension_0_01CC Extension_0_00DE Extension_0_FF2F Extension_0_05D2 Extension_0_7929 Illegal_Constant_0033 Draw TY: Extension_0_005F TY To X, Draw Extension_0_A806 Extension_0_BC12 Extension_0_3C00 Extension_0_8378 Extension_0_1BDC Extension_0_0BC6 Extension_0_03F8 Hex$ Extension_0_78D1 Extension_0_00E8 Illegal_Constant_0030Illegal_Constant_002D Extension_0_020E Extension_0_747D Extension_0_0061 TY Until Mouse Key<>0 Gr Writing -2147434495 Extension_0_6000 If Extension_0_A806 Extension_0_5375 Extension_0_B400 Extension_0_5800 Extension_0_0422 Bob Col Extension_0_F521 Extension_0_0170 Extension_0_6668 Extension_0_0372 Extension_0_00F8 Extension_0_FFD6 Extension_0_022A Extension_0_633F Extension_0_FFA7 Illegal_Constant_003B<= Extension_0_0203 Extension_0_7000 If C=P Extension_0_82C6 Extension_0_4006 Extension_0_5FE1 Extension_0_B200 Extension_0_CB32 Extension_0_CBA2 Extension_0_EA06 Extension_0_EA81 Extension_0_7880 Extension_0_6BC0 Fix Ink Extension_0_00B6 Extension_0_FF0D Extension_0_0234 Extension_0_632A Extension_0_0051 C1# If FLAG=32769 Extension_0_42C6 Extension_0_6EBA Extension_0_5006 Extension_0_A806 Extension_0_4E00 Extension_0_DE78 Extension_0_2D5C Extension_0_E986 Extension_0_0DCC Extension_0_7FE0 Extension_0_7129 Extension_0_01EC Extension_0_00BA Extension_0_01E8 Extension_0_0235 Extension_0_7851 Extension_0_0051 YZ# To X,Y If Extension_0_4006 Extension_0_2000 Extension_0_9400 Extension_0_2E6C Extension_0_C567 Extension_0_29A2 Extension_0_973E Extension_0_7480 Extension_0_6642 Extension_0_1FE6 Extension_0_175C Extension_0_1BBE Extension_0_0262 Extension_0_0132 Extension_0_74D1 # Extension_0_0219 Extension_0_7466 Extension_0_0096 XY# Extension_0_005D YY Extension_0_8094 Extension_0_C006 Extension_0_DFC9 Extension_0_3200 Extension_0_F000 Extension_0_445C Extension_0_A206 Extension_0_2EC3 Extension_0_1D80 Extension_0_C540 Extension_0_CEB4 Extension_0_E536 Extension_0_B28E Extension_0_ED44 Extension_0_409E Extension_0_6A6F Extension_0_772E Extension_0_0D80 Flip$ Extension_0_75E4 Extension_0_00B1 Repeat Illegal_Constant_002C Until Extension_0_1E0C Extension_0_FFB5 Illegal_Constant_0038# Wait 32778 Extension_0_4000 End Proc Extension_0_6000 Procedure PARALLELOGRAM[FLAG] TX=X1 TY=Y1 Repeat Until Mouse Key=32768 Extension_0_C000 Wait Extension_0_603E Extension_0_3000 Extension_0_1803 Extension_0_0C00 Gr Writing Extension_0_023E Extension_0_0100 Extension_0_0082 Extension_0_3FC0 Repeat $ X Extension_0_FFAD X Screen(X Mouse) Draw TX,TY To Extension_0_8006 Extension_0_BFC9 Extension_0_A200 Extension_0_2800 Extension_0_285C Extension_0_1C06 Extension_0_060C Extension_0_0100 Extension_0_7AF9 Extension_0_7FC0 Draw Extension_0_0066 Extension_0_0056 Extension_0_0218 Extension_0_7474 Extension_0_0062 TY To X,TY Until Mouse Key Extension_0_7F66 Extension_0_403E Extension_0_2000 Extension_0_9000 Extension_0_5800 AXï¿½"ï¿½ï¿½ï¿½ï¿½Xï¿½ If Illegal_Constant_003Fï¿½ï¿½ |OK Repeat 1 Until Extension_0_1E31 =0 Wait 3 Repeat Extension_0_C000 ` |ï¿½ï¿½_ Extension_0_1DCC If X#-LOS<-2147434496 Extension_0_E2C6 Extension_0_9006 Extension_0_27C9 Extension_0_E600 Extension_0_2E00 Extension_0_26A2 Extension_0_7786 Extension_0_D9D8 Extension_0_7F60 Extension_0_7BDF Extension_0_0A38 Menu Mouse On Polyline Else Extension_0_02AC Extension_0_74A2 Extension_0_0063 TW Extension_0_008B XX,4Yï¿½ï¿½ï¿½ï¿½ï¿½ Polyline Extension_0_4406 Extension_0_E606 Extension_0_1300 Extension_0_ECF8 Extension_0_4C1C Extension_0_2626 Extension_0_717C Extension_0_1A88 Extension_0_7BBD Max Extension_0_0131 Get Disc Fonts Until Extension_0_7846 Extension_0_0053 542 Extension_0_7478 Extension_0_008B X Extension_0_805C Extension_0_C006 Extension_0_1FC3 Extension_0_1200 Extension_0_F100 Extension_0_C494 Extension_0_5E06 Extension_0_10C9 Extension_0_5A80 Extension_0_15C0 Extension_0_29AA Extension_0_6936 Extension_0_D760 Extension_0_6DFC Extension_0_20B1 Extension_0_5493 Extension_0_0D14 Extension_0_069A Extension_0_FB35 Extension_0_03E7 Extension_0_784C Inkey$ Extension_0_0075 Illegal_Constant_002C Extension_0_0213 Extension_0_7462 Extension_0_005F TZ# Until Mouse Key Extension_0_7F66 Extension_0_C03E Extension_0_A000 Extension_0_7000 Extension_0_9800 Gr Writing Extension_0_543E Extension_0_EE00 Extension_0_5301 Extension_0_EA80 If Extension_0_4AA6 Extension_0_A045 Extension_0_5098 Extension_0_CC4C Extension_0_5238 Extension_0_6A35 Extension_0_949F Extension_0_19B5 Extension_0_6247 Extension_0_0DBA Extension_0_0EA8 Extension_0_FE36 Extension_0_035C Extension_0_6368 Extension_0_FF97 Illegal_Constant_001B Extension_0_FF6E Extension_0_020D Extension_0_7007 $ If Extension_0_8007 Extension_0_BF74 Extension_0_A201 Extension_0_3301 Extension_0_97A3 Extension_0_9C07 Extension_0_A97A Extension_0_E701 Extension_0_2281 Extension_0_7B87 Extension_0_55A7 Extension_0_A430 Extension_0_9529 Extension_0_29A5 Extension_0_5468 Extension_0_529B Extension_0_54B2 Extension_0_CE9E Extension_0_8375 Extension_0_B327 Ink Extension_0_FBEA Extension_0_2CA3 Extension_0_BC5B Extension_0_965E Extension_0_AFC5 Extension_0_FD53 Extension_0_540C Extension_0_FECD Extension_0_C94B Extension_0_FEDD If Extension_0_7ECD Extension_0_6BEA Extension_0_5953 Extension_0_FD1A Extension_0_34B2 Extension_0_995D Extension_0_9750 Extension_0_5F77 Extension_0_FB77 Extension_0_5069 Extension_0_F764 Extension_0_0D91 Extension_0_3A48 Extension_0_8F2B Extension_0_37EE Extension_0_A715 Extension_0_D09B Extension_0_D83F Extension_0_361E Extension_0_FE4C Extension_0_4B93 Extension_0_E69A Extension_0_B14C Extension_0_7ADF Extension_0_9428 Extension_0_5684 Extension_0_FDF2 Extension_0_2F72 Extension_0_BB45 Extension_0_399C Extension_0_E747 Extension_0_52EE Extension_0_04A5 Extension_0_2F7A Extension_0_4FDB Extension_0_8B2E Extension_0_4691 Extension_0_9C9F Extension_0_93FE Extension_0_21CF Extension_0_FCEE Extension_0_4DEB Extension_0_96F6 Extension_0_F684 Extension_0_D2C6 Extension_0_0AED Extension_0_2B96 Extension_0_B4D0 Extension_0_4D9C Extension_0_4F5D Extension_0_6D99 Extension_0_F8A9 Extension_0_4DE1 Extension_0_1D8F Extension_0_32E6 Extension_0_51B3 Extension_0_94DE Extension_0_5E25 Extension_0_FD14 Extension_0_B08F Extension_0_1FA4 Extension_0_7432 Extension_0_8ED7 Extension_0_4527 Extension_0_658C Extension_0_82B3 Extension_0_A963 If Extension_0_666F Extension_0_0F3D Extension_0_8E8F Extension_0_2328 Extension_0_8719 Extension_0_C871 Extension_0_EFA6 Extension_0_BC34 Extension_0_4A1C Extension_0_7FD5 Extension_0_FC26 Extension_0_A945 Extension_0_CB98 Extension_0_9831 Extension_0_0961 Extension_0_E9E9 Extension_0_4F41 Extension_0_EA70 Extension_0_B12E Extension_0_9FEE Extension_0_3FE8 Extension_0_2A6C Extension_0_9F5F Extension_0_4799 Extension_0_1D2B Extension_0_72B6 Extension_0_8BD1 Extension_0_4C66 Extension_0_EC2D Extension_0_C562 Extension_0_4900 Extension_0_7DCC Extension_0_882A Extension_0_0936 Extension_0_F489 Extension_0_4F99 Extension_0_EF79 Extension_0_CF53 Extension_0_6A78 Extension_0_0524 Extension_0_6682 Extension_0_F509 Extension_0_754D Extension_0_CFC2 Extension_0_46A1 Extension_0_EEFB Extension_0_B89F Extension_0_446D Extension_0_6227 Extension_0_FF03 Extension_0_3B96 Extension_0_ECA7 Extension_0_B1E8 Ask Editor Extension_0_3689 Extension_0_633B Extension_0_17F6 Extension_0_0DB5 Extension_0_8D3E Extension_0_409C Extension_0_17CA Extension_0_7005 Extension_0_7833 Extension_0_7417 Extension_0_741C Extension_0_7163 Extension_0_8583 Repeat Extension_0_E161 Until Extension_0_2E63 Extension_0_E77B Extension_0_342B Extension_0_1E0F Extension_0_0304 Extension_0_0186 Wait Extension_0_017F Extension_0_00A1 Extension_0_803B Extension_0_C019 End Proc Extension_0_A035 Procedure HID If SCPOS<266 For S=SCPOS To 266 Step 8 Screen Display 7,,S,, Screen Display 6,,S-9,, Wait Vbl Next S End If SCPOS=266 Screen Display 7,,SCPOS,, Screen Display 6,,SCPOS-9,, Wait Vbl End Proc Procedure PAL HID Screen 0 Shift Off Wind Open 1,16,16,36,18 Curs Off Paper 1 Pen 0 Clw Dim PAL(CLRS+1) CR=1 Ink CR Bar 128,56 To 144,78 Ink 0 Box 128,56 To 144,78 Screen 0 IREMEMBEREDIT=CLRS If CLRS=64 Then CLRS=32 For F= Extension_0_803E Extension_0_4000 Extension_0_2000 Extension_0_3094 Extension_0_7806 Extension_0_E3D5 Tab$ Extension_0_606C Extension_0_6DF3 Extension_0_01C0 PYL Extension_0_0076 F#+1)=Colour(F) Next Extension_0_8006 Extension_0_C00C Extension_0_2200 Extension_0_1600 Extension_0_1800 Q For Ink Extension_0_A006 Extension_0_300C Extension_0_7A00 Extension_0_6A00 Extension_0_1E00 Bar Extension_0_053E Extension_0_0680 Doke Extension_0_FF60 Extension_0_00A4 ' fï¿½ï¿½'25 To 34+(ï¿½ Extension_0_BFE2 Extension_0_603E Extension_0_7000 Extension_0_0808 Extension_0_047C Until Extension_0_013E Extension_0_0080 Extension_0_00E3 Illegal_Constant_0020 Next F Ink 0 Box 25,32792 Extension_0_4094 Extension_0_603E Extension_0_1000 Extension_0_8823 Extension_0_BBC0 Extension_0_E674 Extension_0_B106 Extension_0_9655 Extension_0_7840 Extension_0_688C Extension_0_7D43 Extension_0_F252 Extension_0_02E2 Extension_0_00E2 Extension_0_00F0 Illegal_Constant_0045 Extension_0_FF89 Illegal_Constant_0034$Illegal_Constant_003F Box 26+(32769 Extension_0_3FE2 Extension_0_A03E Extension_0_7000 Extension_0_F808 Extension_0_347C Extension_0_165C Extension_0_873E Extension_0_DE80 Extension_0_A359 Extension_0_51F4 Extension_0_788E Extension_0_FC68 Extension_0_3A36 Extension_0_FADA Extension_0_01FF Extension_0_81FC Extension_0_41E1 Extension_0_6052 Extension_0_8FCA Extension_0_784A Extension_0_041A Extension_0_020B Extension_0_037E Extension_0_00DD Extension_0_00FF Illegal_Constant_0023Illegal_Constant_0033Execall Reserve Zone Illegal_Constant_0022 X ?]?ï¿½ï¿½ï¿½ ï¿½V/ï¿½Eï¿½ï¿½PQ Iï¿½TIPï¿½Pæ ï¿½Ðï¿½Sï¿½*ï¿½HÝ¦ï¿½ï¿½ï¿½Bï¿½ï¿½ï¿½-ï¿½ï¿½ X_ï¿½ï¿½ï¿½6ï¿½IÂª!^JVï¿½^+ï¿½ï¿½Ç¥#ï¿½TDï¿½ï¿½Dï¿½ï¿½Zï¿½ï¿½Tï¿½ï¿½ï¿½7Lï¿½ï¿½\ï¿½ï¿½ï¿½7Ñ©]ï¿½ Xï¿½ï¿½57/ï¿½ï¿½ï¿½X%5Tï¿½Vï¿½ï¿½BA!ï¿½ï¿½X`\"3ï¿½ZF\ï¿½ï¿½ï¿½?`ï¿½ï¿½Ø¨Fï¿½Nï¿½%;ï¿½# Locate Extension_0_203F Extension_0_1001 Extension_0_0803 Extension_0_045D Extension_0_023F Extension_0_8301 Extension_0_C087 Extension_0_20C1 Print Extension_0_112F Extension_0_8865 Extension_0_CD17 Extension_0_A670 Extension_0_5120 Extension_0_6984 Extension_0_5403 Extension_0_6950 Extension_0_FE50 Extension_0_E688 Extension_0_A098 Extension_0_D098 Extension_0_A873 Extension_0_DC2A Extension_0_AA68 Extension_0_DDA6 Extension_0_ABBD Extension_0_DD42 Extension_0_ABA0 Extension_0_DF2D Extension_0_AAE9 Locate Extension_0_5FE9 Extension_0_15AA Extension_0_0ED5 Extension_0_0D36 Extension_0_9D69 Extension_0_C2AA Erase Extension_0_106A Print Extension_0_19D9 Extension_0_045E Extension_0_032B Extension_0_9E8E Extension_0_C7A5 Extension_0_23C5 Extension_0_7444 Extension_0_FE12 Extension_0_B164 Extension_0_D604 Extension_0_D35A Extension_0_B8BD Extension_0_54C0 Extension_0_FDE2 Extension_0_376C Extension_0_A9D4 Extension_0_5CFA Extension_0_FAA6 Extension_0_37D1 Extension_0_A914 Extension_0_5DD4 Locate Extension_0_FBD4 Extension_0_3537 Extension_0_2FF8 Extension_0_9313 Extension_0_FA58 Extension_0_2535 Draw Open Out Print Extension_0_9DE8 Extension_0_4241 Extension_0_21E7 Extension_0_90F8 Extension_0_5860 Extension_0_5C22 Extension_0_33A1 Extension_0_7A66 Extension_0_5CE1 Extension_0_A3C2 Extension_0_C33F Extension_0_608E Extension_0_F0D8 Extension_0_A866 Extension_0_B46E Extension_0_EA25 Extension_0_3B03 Extension_0_0D8D Extension_0_86C2 Extension_0_C31D Extension_0_2173 Locate Extension_0_3196 Extension_0_8874 Extension_0_C46C Extension_0_226B Extension_0_3334 Extension_0_888B Extension_0_C4CA Extension_0_E223 Print Extension_0_321E Extension_0_2BFC Extension_0_8D58 Extension_0_4656 Extension_0_2735 Extension_0_918F Extension_0_5917 Extension_0_9410 Extension_0_FF2A Extension_0_D8E8 Extension_0_24E8 Extension_0_3E78 Extension_0_0B63 Set Rainbow Extension_0_8225 Extension_0_4131 Extension_0_618F Extension_0_5039 Extension_0_586B Extension_0_144A Extension_0_1609 Locate Extension_0_8539 Extension_0_4282 Extension_0_63DF Extension_0_133C Extension_0_98EE Extension_0_4438 Extension_0_6210 Extension_0_12FE Print Extension_0_1893 Extension_0_0409 Extension_0_03FD Extension_0_8105 Extension_0_C0BF Extension_0_63FB Extension_0_331E Extension_0_F78D Extension_0_A175 Extension_0_62A1 Extension_0_6F01 Extension_0_D88E Extension_0_E443 Extension_0_2E9D Extension_0_392F Extension_0_B4B6 Extension_0_47C4 Extension_0_A567 Extension_0_F183 Extension_0_29C8 Locate Extension_0_F5DA Extension_0_9E52 Extension_0_C533 Extension_0_DEA8 Extension_0_3364 Extension_0_B9A3 Extension_0_FC5D Extension_0_A219 Print Extension_0_7003 Extension_0_99F1 Extension_0_CCD9 Extension_0_AA57 Extension_0_F756 Extension_0_1E8E Extension_0_AD64 Extension_0_75C9 Extension_0_5F13 Extension_0_DEF4 Extension_0_E9EA Extension_0_559A Extension_0_664D Extension_0_D39A Extension_0_6EE9 Extension_0_57F5 Extension_0_2BA4 Extension_0_7554 Extension_0_DAD7 Extension_0_6D54 Change Mouse Extension_0_1690 Extension_0_0BD7 Extension_0_04AB Extension_0_8253 Locate Extension_0_C710 Extension_0_A0F7 Extension_0_73EB Extension_0_5873 Extension_0_2C08 Extension_0_BA09 Extension_0_7F02 Extension_0_A2D6 Extension_0_F7B1 Eof Extension_0_0C51 Extension_0_D9D8 Extension_0_C52C Locate Extension_0_E784 Extension_0_17DD Extension_0_8FCE Extension_0_C3B2 Extension_0_E227 Extension_0_510D Extension_0_E981 Extension_0_8C16 Extension_0_DE95 Extension_0_6316 Extension_0_DE89 Extension_0_AE44 Extension_0_5C62 Locate Extension_0_660D Extension_0_AD28 Extension_0_BEE5 Extension_0_3596 Extension_0_359D Extension_0_0BD6 Extension_0_0AEC Extension_0_0D80 Extension_0_851C Extension_0_C0F1 Extension_0_E0AB Extension_0_523B Extension_0_981E Locate Extension_0_44C1 Extension_0_221E Extension_0_3116 Extension_0_09DD Extension_0_8C7F Extension_0_CE61 Extension_0_E11C Extension_0_90DC Extension_0_5C32 Extension_0_6404 Extension_0_3632 Extension_0_D418 Extension_0_CD7C Locate Extension_0_5E60 Extension_0_D3E1 Extension_0_76A8 Extension_0_5795 Extension_0_3F9B Extension_0_EB53 Extension_0_8DA5 Extension_0_5A81 Extension_0_3A9F Extension_0_F3D1 Extension_0_88BB Extension_0_EEAB Extension_0_FE2A Ink Extension_0_114B Extension_0_9BBB Extension_0_5FCE Extension_0_2227 Box Extension_0_30CC Extension_0_88BB Extension_0_C468 Extension_0_E2BA Extension_0_932F Extension_0_D88B Extension_0_7DFC Extension_0_2EB6 Extension_0_770D Extension_0_4B98 Extension_0_A718 Extension_0_52A2 Extension_0_DAAF Extension_0_7DC9 Extension_0_2FE5 Extension_0_F733 Box Extension_0_0A56 Extension_0_83F4 Extension_0_47CE Extension_0_E10B Extension_0_F044 Extension_0_683F Extension_0_546E Extension_0_A6E1 Extension_0_D53B Extension_0_9983 Extension_0_DCE2 Extension_0_FBBF Extension_0_F56E Extension_0_89A8 Extension_0_C57C Extension_0_E6BA Box Extension_0_F70D Extension_0_089A Extension_0_0C19 Extension_0_02A3 Extension_0_8112 Extension_0_4196 Extension_0_A00D Extension_0_D0F7 Extension_0_782C Extension_0_3409 Extension_0_2F21 Extension_0_9D5F Extension_0_45BE Extension_0_E540 Extension_0_F330 Extension_0_E750 Box Extension_0_EC66 Extension_0_4EEC Extension_0_AF66 Extension_0_4FC9 Extension_0_1F65 Extension_0_F7AE Extension_0_FB5F Extension_0_45FC Extension_0_238A Extension_0_915A Extension_0_3963 Extension_0_646E Extension_0_3657 Extension_0_9B35 Extension_0_3719 Extension_0_19C7 Repeat Extension_0_0EB3 Screen Extension_0_0DF6 Extension_0_0264 Extension_0_8350 Extension_0_C0AB Get Palette Extension_0_61EA Extension_0_302A Extension_0_9837 Extension_0_B41A Screen Extension_0_DE41 Extension_0_731E Extension_0_BA81 Extension_0_5DC1 Paper Extension_0_339F Extension_0_1931 Extension_0_0D68 Extension_0_8275 Locate Extension_0_5F15 Extension_0_A174 Extension_0_D047 Extension_0_E87B Extension_0_7C2C Extension_0_BE0B Extension_0_DD0C Extension_0_61D6 Extension_0_B5B1 Extension_0_5C30 Extension_0_AC24 Extension_0_5704 Extension_0_2D00 Extension_0_169C Extension_0_F4B0 Extension_0_0762 Extension_0_60C3 Extension_0_0105 Extension_0_81B3 Extension_0_C1C8 Extension_0_6035 Extension_0_B078 Extension_0_5872 Extension_0_AC07 Locate Extension_0_D63C Extension_0_1503 Extension_0_8D8D Extension_0_C51C Extension_0_E75E Extension_0_F150 Extension_0_F954 Extension_0_746C If Extension_0_54F3 Extension_0_D9C0 Extension_0_1546 Extension_0_F88B Extension_0_2434 Extension_0_57DF Extension_0_FD3C Extension_0_3EB9 Extension_0_539F Extension_0_A1A3 Extension_0_AB0B Extension_0_DF89 Extension_0_E9C6 Extension_0_FE24 Extension_0_956F Extension_0_C5F6 Extension_0_E264 Extension_0_7354 Extension_0_3A7B Extension_0_A5D8 Extension_0_41F6 Extension_0_A909 Extension_0_5C9A Extension_0_26BE Extension_0_133E Print Extension_0_1BBF Extension_0_05AD Extension_0_0281 Extension_0_013B Start Extension_0_8074 Extension_0_7C2B Extension_0_A1A8 Extension_0_D034 Extension_0_9807 Extension_0_5400 Extension_0_A67F Extension_0_D55C Extension_0_79BE Extension_0_B5C0 Extension_0_2FE7 Extension_0_9B2C Extension_0_5AA8 Locate Extension_0_258A Extension_0_16FA Extension_0_1F43 Extension_0_8336 Extension_0_428B Extension_0_21FB Extension_0_91A2 Extension_0_D9D7 If Extension_0_B275 Extension_0_D441 Extension_0_9D85 Extension_0_AAAB Extension_0_B586 Extension_0_E9F6 Extension_0_B529 Extension_0_FA64 Extension_0_2DF0 Extension_0_99E5 Extension_0_5DAC Extension_0_9E77 Extension_0_7E23 Extension_0_3D6F Extension_0_B764 Extension_0_4BFD Extension_0_A55F Extension_0_7169 Extension_0_A951 Extension_0_6665 Extension_0_2A03 Extension_0_B769 Extension_0_CAB4 Extension_0_E749 Print Extension_0_90E9 Extension_0_D8A6 Extension_0_7DB7 Extension_0_D2A0 Extension_0_FBCC Extension_0_6C96 Extension_0_644A Extension_0_BEBB Extension_0_73AC Extension_0_297B Extension_0_357E Extension_0_0ED2 Extension_0_0365 Extension_0_0293 Extension_0_01D7 Extension_0_0192 Illegal_Constant_0033 Extension_0_00E6 Locate Extension_0_800B Extension_0_400B Extension_0_A017 Extension_0_B05E Extension_0_783D Extension_0_AC00 Extension_0_3E0C Extension_0_A500 If Extension_0_AFC6 Extension_0_43AB Extension_0_6CD0 Extension_0_5F80 Extension_0_57F2 Extension_0_F32C Extension_0_2FCA Extension_0_C656 Extension_0_8E39 Extension_0_5872 Extension_0_B46A Extension_0_FA35 Extension_0_65CD Extension_0_C158 Extension_0_EBF8 Extension_0_DFA3 Extension_0_A9D2 Extension_0_AE38 Extension_0_E998 Extension_0_F896 Extension_0_9A59 Extension_0_CAD2 Extension_0_AD9A Extension_0_33CC Print Extension_0_E868 Extension_0_5429 Extension_0_E7E3 Extension_0_CF08 Extension_0_5BA8 Extension_0_6D40 Extension_0_ABF2 Extension_0_A339 Extension_0_7FB8 Extension_0_9160 Extension_0_CBD0 Extension_0_A475 Extension_0_EE6B Extension_0_696B Extension_0_D4C6 Extension_0_6AF1 Extension_0_D7E6 Extension_0_EA98 Extension_0_17A7 Extension_0_0AEC Locate Extension_0_8688 Extension_0_C3B9 Extension_0_616D Extension_0_112A Extension_0_0893 Extension_0_8437 Extension_0_C626 Extension_0_2317 If Extension_0_7BD9 Extension_0_E343 Extension_0_8411 Extension_0_3269 Extension_0_92EC Extension_0_69A1 Extension_0_6401 Extension_0_E370 Extension_0_31BA Extension_0_6122 Extension_0_178E Extension_0_88C0 Extension_0_4EA7 Extension_0_31CF Extension_0_B736 Extension_0_4784 Extension_0_E7C0 Extension_0_5537 Extension_0_EF3C Extension_0_4F54 Extension_0_6AFA Extension_0_1D26 Extension_0_0B92 Extension_0_8F38 Print Extension_0_C3F2 Extension_0_A3A6 Extension_0_B2B5 Extension_0_BBA1 Extension_0_37CD Extension_0_2A13 Extension_0_AB59 Extension_0_BAF5 Extension_0_83BB Extension_0_91A3 Extension_0_398C Extension_0_F446 Extension_0_CBDC Extension_0_BD3C Extension_0_B6E1 Extension_0_6B01 Extension_0_ED93 Extension_0_DE51 Extension_0_B76D Extension_0_7ACF Extension_0_6BBE ï¿½ï¿½ï¿½]ï¿½ï¿½Kï¿½Òï¿½(D-ï¿½PQ ï¿½ï¿½Oï¿½ï¿½ï¿½)ï¿½ï¿½ ï¿½ÙXï¿½Iï¿½ï¿½ï¿½^ï¿½ï¿½0ï¿½(ï¿½ï¿½MZGï¿½%ï¿½ï¿½%ï¿½Aï¿½ï¿½ï¿½Èª$ï¿½ï¿½ï¿½(]ï¿½~Eï¿½ï¿½ï¿½Dï¿½$ *ï¿½ï¿½~Oï¿½ï¿½Uï¿½ï¿½ÄCÐVï¿½ï¿½Jï¿½ï¿½ï¿½ï¿½Nï¿½ï¿½ï¿½ï¿½ï¿½U6ï¿½ï¿½ï¿½ï¿½&Rï¿½&ï¿½ï¿½$ ï¿½ï¿½ï¿½ï¿½ï¿½KZï¿½;ï¿½ï¿½ï¿½^Ã¡ï¿½ï¿½ï¿½Mï¿½ï¿½(`ï¿½W^DENï¿½Iï¿½Sï¿½ ï¿½KEï¿½A6ï¿½ï¿½HRDDVï¿½|ï¿½Èï¿½AAï¿½Ô°ï¿½!ï¿½J0ç²ï¿½_ï¿½ï¿½9ï¿½ï¿½ï¿½ECOï¿½AHPï¿½ï¿½ï¿½<V+ï¿½ï¿½ï¿½# Ink Extension_0_6401 Extension_0_761C Extension_0_7FFF Extension_0_7C9D Bar Extension_0_82E3 Extension_0_4161 Extension_0_E0D4 Extension_0_B005 Extension_0_D821 Extension_0_AC0E Extension_0_4A30 Extension_0_E791 Extension_0_B2BD Extension_0_5FC0 Extension_0_ED83 Extension_0_39EC Extension_0_1D16 Extension_0_0F94 Extension_0_8765 Extension_0_436F Bar Extension_0_6148 Extension_0_70B9 Extension_0_F8F6 Extension_0_3C76 Extension_0_1E2B Extension_0_0F0B Extension_0_06C3 Extension_0_01D5 Extension_0_039D Extension_0_0050 Extension_0_815B Extension_0_C040 Extension_0_A020 Extension_0_D00D Extension_0_A846 Extension_0_D401 Bar Extension_0_2E3D Extension_0_9500 Extension_0_4E25 Extension_0_EB1C Extension_0_B55E Extension_0_DF70 Extension_0_23E1 Extension_0_9120 Extension_0_CB54 Extension_0_ADB7 Extension_0_D2E9 Extension_0_A97B Extension_0_4D4C Extension_0_FA7B Extension_0_3363 Extension_0_9776 Bar Extension_0_4577 Extension_0_62A7 Extension_0_0F23 Extension_0_89F7 Extension_0_CC6A Extension_0_A26A Extension_0_51BA Extension_0_F96A Extension_0_B471 Extension_0_D626 Extension_0_3BA6 Extension_0_95C7 Extension_0_5AE2 Extension_0_E5A2 Extension_0_32DE Extension_0_A929 Ink Extension_0_DDF1 Extension_0_D809 Extension_0_172F Extension_0_7884 Extension_0_0749 Bar Extension_0_0259 Extension_0_8332 Extension_0_43DF Extension_0_9F8C Extension_0_F052 Extension_0_A813 Extension_0_6C13 Extension_0_F804 Extension_0_DF33 Extension_0_3261 Extension_0_BAFE Extension_0_4DA0 Extension_0_1AD8 Extension_0_1DC4 Extension_0_1AE0 Extension_0_8510 Extension_0_4195 Extension_0_E1E4 Extension_0_B17B Extension_0_4868 Extension_0_E429 Extension_0_AEDC Extension_0_96DA Extension_0_74F7 Extension_0_8AC4 Extension_0_C7F9 Extension_0_2091 Extension_0_E1EA Extension_0_270E Extension_0_BD88 Extension_0_6E39 Extension_0_F727 Extension_0_2BEA Extension_0_7661 Extension_0_4AC1 Extension_0_E68E Border Extension_0_F8A5 Bar Extension_0_0F8D Extension_0_0628 Extension_0_01B0 Extension_0_785A Extension_0_C1BB Amal Extension_0_300F Extension_0_0A1F Extension_0_F63E Extension_0_B9E4 Extension_0_613F Extension_0_1187 Extension_0_19C8 Extension_0_041C Extension_0_826C Extension_0_4136 Extension_0_6084 Extension_0_1003 Extension_0_9877 Extension_0_C4CE Extension_0_A618 Extension_0_77B7 Exist Extension_0_5DB5 Extension_0_FA27 Extension_0_972D Extension_0_7B98 Extension_0_170E Extension_0_A19C Extension_0_26EF Extension_0_15E9 Extension_0_0BBD Extension_0_8347 Extension_0_4230 Extension_0_E1C8 Extension_0_106D Extension_0_0990 Extension_0_FC3A Bar Extension_0_8621 Extension_0_431E Extension_0_6129 Extension_0_AF81 Extension_0_2815 Extension_0_0C31 Extension_0_8E5C Extension_0_CF0C Extension_0_13B5 Extension_0_8F23 Extension_0_189D Extension_0_1430 Extension_0_8E10 Extension_0_CD80 Extension_0_23C2 Extension_0_3363 Extension_0_B8A1 Extension_0_4598 Extension_0_66BD Extension_0_5709 Extension_0_AF9A Extension_0_AC94 Extension_0_D63E Extension_0_3765 Extension_0_778F Extension_0_06E1 Extension_0_04A3 Extension_0_F383 Extension_0_BE3A Extension_0_E042 Extension_0_11DE Extension_0_0835 Extension_0_0461 Extension_0_8E41 Extension_0_C133 Extension_0_2181 Extension_0_300E Extension_0_3827 Bar Extension_0_FC4E Extension_0_9E08 Extension_0_4175 Extension_0_DF46 Extension_0_3037 Extension_0_3826 Extension_0_4355 Extension_0_F8F8 Extension_0_EC6C Extension_0_B5E7 Extension_0_0C41 Extension_0_AA03 Extension_0_AA2F Extension_0_B73B Extension_0_BD94 Extension_0_BF42 Extension_0_393D Extension_0_3B6F Extension_0_7BA9 Extension_0_1A5C Extension_0_823F Extension_0_C18A Extension_0_61DA Extension_0_D008 Extension_0_961E Extension_0_1C49 Extension_0_8A1B Extension_0_2258 Extension_0_E48D Extension_0_62B1 Extension_0_6EC4 Extension_0_68D7 Extension_0_FD8A Extension_0_032A Extension_0_008A Extension_0_004F %10010111000000000110110 Extension_0_C004 Extension_0_608D Extension_0_D003 Ink Extension_0_683E Extension_0_5C00 Extension_0_B600 Extension_0_BB00 Box Extension_0_A5BE Extension_0_B2C0 Extension_0_29C4 Extension_0_D090 Extension_0_0FDC Extension_0_0ED2 Extension_0_FEB2 Extension_0_03B7 Extension_0_F3EB Extension_0_3F9D Extension_0_61E0 Extension_0_103D Extension_0_7815 Extension_0_4461 Extension_0_3E51 Extension_0_F13F Extension_0_8F81 Extension_0_5CFE Extension_0_22F4 Extension_0_F12E Extension_0_8F88 Extension_0_DB6F Extension_0_1DE2 Extension_0_9283 Extension_0_59BE Extension_0_BC54 Extension_0_7026 Extension_0_DB40 Extension_0_8A59 Extension_0_2E72 Extension_0_B566 Extension_0_CF99 Extension_0_A5B7 Extension_0_D6B8 Extension_0_D96C Extension_0_1B5B Extension_0_1B93 Extension_0_3AD6 Box Extension_0_0293 Extension_0_01B7 Extension_0_817E Extension_0_BFBF Extension_0_61AA Extension_0_303B Extension_0_8803 Extension_0_C61D Extension_0_103F Extension_0_CEE3 Extension_0_6BBF Extension_0_B4C7 Extension_0_2A68 Extension_0_176C Extension_0_7AD4 Extension_0_CF7A Extension_0_E5E2 Extension_0_7696 Extension_0_493C Extension_0_A46A Extension_0_562A Extension_0_B9DC Extension_0_927A Extension_0_3A3B Extension_0_AD60 Extension_0_DB8F Extension_0_DFCB Extension_0_A0D6 Extension_0_26B0 Extension_0_1765 Extension_0_17AC Extension_0_06DE Extension_0_06D1 Extension_0_01EB Extension_0_81E4 Extension_0_407F Extension_0_6199 Extension_0_303D Box Extension_0_9823 Extension_0_3C1D Extension_0_E6A9 Extension_0_8EC1 Extension_0_47F5 Extension_0_ACC1 Extension_0_5E44 Cright$ Extension_0_06BB Extension_0_45A6 Extension_0_E55C Extension_0_7297 Extension_0_39C0 Extension_0_A418 Extension_0_520E Extension_0_A945 Extension_0_5DBC Extension_0_3607 Extension_0_9DF1 Extension_0_D7AF Extension_0_EDCB Extension_0_EE4F Extension_0_1692 Extension_0_6B2F Extension_0_0BAA Extension_0_0AF2 Extension_0_00AD Extension_0_7384 Extension_0_7E38 Extension_0_4041 Extension_0_21DE Extension_0_1035 Extension_0_9861 Extension_0_4C41 Extension_0_2233 Extension_0_F101 Extension_0_FBCE Extension_0_FCC7 Box Extension_0_425E Extension_0_2310 Extension_0_90F9 Extension_0_B784 Extension_0_DC16 Extension_0_6E11 Extension_0_C64D Extension_0_9B84 Extension_0_3D32 Extension_0_CC06 Extension_0_31B0 Extension_0_D5AA Extension_0_955A Extension_0_CB96 Extension_0_E5C3 Extension_0_F298 Extension_0_F90E Extension_0_7F65 Extension_0_3FAC Extension_0_1E5F Extension_0_0E39 Extension_0_0189 Extension_0_81DA Extension_0_4008 Extension_0_DE1E Extension_0_1049 Extension_0_881B Extension_0_BB58 Extension_0_280D Extension_0_6271 Extension_0_6AE4 Extension_0_E0C7 Extension_0_B982 Extension_0_272E Extension_0_9088 Extension_0_484C Extension_0_2C1E Extension_0_924B Extension_0_C936 Extension_0_6D84 Extension_0_B2CD Extension_0_5963 Ink Extension_0_B58E Extension_0_DE48 Extension_0_F565 Extension_0_FF96 Bar Extension_0_E5F5 Extension_0_F6E4 Extension_0_E948 Extension_0_6B07 Extension_0_0B92 Extension_0_0AD6 Extension_0_0288 Extension_0_0123 Extension_0_81E4 Extension_0_407F Extension_0_20FC Extension_0_1061 Extension_0_B823 Extension_0_441D Extension_0_222A Extension_0_1101 Ink Extension_0_1BBF Extension_0_84C7 Extension_0_4260 Extension_0_2310 Draw Extension_0_B0B6 Extension_0_5844 Extension_0_2478 Extension_0_69D7 Extension_0_D97C Extension_0_6582 Extension_0_4913 Extension_0_6F63 Extension_0_D1DF Extension_0_9D2D Extension_0_8F64 Extension_0_3474 Extension_0_EDF5 Extension_0_D2E4 Extension_0_E95A Extension_0_1727 Extension_0_17F0 Extension_0_06E8 Extension_0_06AD Extension_0_0191 Extension_0_814E Extension_0_4041 Extension_0_21DE Extension_0_701F Extension_0_77DD Extension_0_4C69 Extension_0_260B Extension_0_CE56 Extension_0_0181 Extension_0_E9B7 Extension_0_2E05 Extension_0_6D10 Extension_0_4F6A Extension_0_487A Extension_0_2462 Extension_0_B21F Extension_0_C974 Extension_0_65D8 Extension_0_D27C Extension_0_7963 Extension_0_AD96 Extension_0_F648 Repeat Extension_0_D796 Until Extension_0_C3F9 Extension_0_2182 Extension_0_D96C Extension_0_1B5B Extension_0_1BAC Extension_0_7AD6 ï¿½Ú¿# Extension_0_2DC0 Extension_0_7049 Extension_0_960B Extension_0_7C61 Extension_0_220D ï¿½Ç½ï¿½O(ï¿½ï¿½F# Extension_0_2C1E Extension_0_BE17 ï¿½Bï¿½ï¿½ï¿½Rï¿½H0ï¿½ï¿½<ÛZï¿½ï¿½ï¿½Rï¿½ï¿½/ï¿½~ï¿½ï¿½ï¿½ï¿½Ü¸ï¿½C^I}Gï¿½T&U5!ï¿½Ûï¿½ï¿½*EPè¨\Dï¿½ï¿½ï¿½ÝEï¿½ï¿½ï¿½ï¿½ï¿½IFï¿½Í¯ï¿½Ë¶G;Tï¿½IGDPN|ï¿½~ï¿½ï¿½.ï¿½Þï¿½0ï¿½Kï¿½ï¿½ If Extension_0_DB90 Extension_0_5A08 Extension_0_D0E4 Extension_0_D052 Extension_0_90ED Extension_0_2F92 Extension_0_7ED6 Extension_0_16B5 Extension_0_FAEF Extension_0_83DC Extension_0_B8BC Extension_0_635E Extension_0_497D Extension_0_4791 Extension_0_7413 Extension_0_2675 Extension_0_3521 Extension_0_C6DB Extension_0_85C0 Extension_0_B82A Extension_0_6550 Extension_0_E8A8 Extension_0_8702 Extension_0_5C44 Extension_0_B213 Extension_0_F913 Extension_0_E2DD Extension_0_9245 Extension_0_B6AB Extension_0_A7B1 Extension_0_8E49 Extension_0_66C9 Extension_0_CDAF Extension_0_AACB Extension_0_B647 Extension_0_3B54 Extension_0_BB69 Extension_0_4744 Extension_0_704E Extension_0_7CCC Extension_0_7ED6 Extension_0_F0B7 Extension_0_2E19 Extension_0_9CDE Extension_0_97BD If Extension_0_E43B Extension_0_6DB4 Extension_0_CB09 Extension_0_DF85 Extension_0_0D73 Extension_0_1F5D Lowres Extension_0_996C Extension_0_B27C Extension_0_66B4 Extension_0_6E86 Extension_0_CA64 Extension_0_DC32 Extension_0_8993 Extension_0_1932 Extension_0_8D86 Extension_0_CB69 Extension_0_5A3F Extension_0_B796 Extension_0_400B Extension_0_B1E4 Extension_0_C0D2 Extension_0_0895 Extension_0_97B2 Extension_0_76C6 Extension_0_1E9C Extension_0_EAEB Extension_0_8FDE Extension_0_B2BF Extension_0_605E Extension_0_AAFD Extension_0_9887 Extension_0_6DF3 Extension_0_DE65 Extension_0_E542 Extension_0_2F41 Extension_0_3FD6 Extension_0_89DE Extension_0_0051 Extension_0_E181 Extension_0_20F9 Extension_0_07AF Extension_0_E00A Extension_0_B4F6 Extension_0_24EB If Extension_0_0918 Extension_0_7246 Extension_0_CC46 Extension_0_D961 Extension_0_4E25 Extension_0_A8F6 Extension_0_AC64 Extension_0_2E62 Extension_0_D463 Extension_0_0B9A Extension_0_7577 Extension_0_C0A1 Extension_0_19B1 Extension_0_0E75 Extension_0_5843 Extension_0_FDDF Extension_0_0AE6 Extension_0_8245 Extension_0_829B Extension_0_BD0E Extension_0_A3E1 Extension_0_AAB1 Extension_0_C7A1 Extension_0_744A Extension_0_0A0A Extension_0_8583 Extension_0_A1DE Extension_0_6145 Extension_0_6F63 Extension_0_DAD0 Extension_0_C5D8 Extension_0_3196 Extension_0_A924 Extension_0_758D Extension_0_EAD7 Extension_0_D7A4 Extension_0_BB81 Extension_0_50E2 Extension_0_DC64 Extension_0_F83A Extension_0_5F35 Extension_0_8849 Extension_0_C0F3 Extension_0_26CD Extension_0_A7A7 If Extension_0_5FFD Extension_0_1DB6 Extension_0_185E Extension_0_162D Extension_0_7C37 Extension_0_C377 Extension_0_20A7 Extension_0_F0D1 Extension_0_4AB9 Extension_0_6C0E Extension_0_8F66 Extension_0_85BD Extension_0_33E4 Extension_0_02AA Extension_0_8280 Extension_0_A6D4 Extension_0_49C8 Extension_0_92E4 If Extension_0_658D Extension_0_F66E Extension_0_CB62 Extension_0_C093 Extension_0_AD6A Extension_0_5B5A Extension_0_D792 Extension_0_AA79 Extension_0_E9FA Extension_0_BA9C Extension_0_3585 Extension_0_1B25 Extension_0_D3B6 Extension_0_BD08 Extension_0_C430 Extension_0_727E If Extension_0_74AB Extension_0_4A1F Extension_0_6F65 Extension_0_9CF3 Extension_0_B66C Extension_0_6DD9 Extension_0_7252 Extension_0_F92E Extension_0_4632 Extension_0_6248 Extension_0_0E29 Extension_0_BE12 Extension_0_87D6 Extension_0_469E Extension_0_7641 Extension_0_1589 If Extension_0_C365 Extension_0_A2B8 Extension_0_5349 Extension_0_85A5 Extension_0_D391 Extension_0_1616 Extension_0_8714 Extension_0_DE7E Extension_0_DD87 Extension_0_9398 Extension_0_378C Extension_0_2EF9 Extension_0_6D6D Extension_0_FB7E Extension_0_BDEA Extension_0_4227 Extension_0_F621 Extension_0_3631 Extension_0_2C76 Extension_0_162C Extension_0_8B76 Extension_0_C64D Extension_0_2DC2 Extension_0_E87B Extension_0_01B3 Extension_0_F6B8 Extension_0_3045 Extension_0_9874 Extension_0_DDEE Extension_0_BF44 Extension_0_5380 Extension_0_562D Extension_0_ED08 Extension_0_B785 Extension_0_5D96 Extension_0_7C7D Extension_0_716E and Extension_0_3DA9 Extension_0_1B82 Extension_0_0185 Extension_0_026F Extension_0_FA80 Extension_0_066F Extension_0_F2BD Extension_0_A949 Extension_0_496B Extension_0_901E If Extension_0_2C07 Extension_0_122B Extension_0_9907 Extension_0_A180 Extension_0_D162 Extension_0_12DE Extension_0_1B90 Extension_0_0BCC Extension_0_70BC Extension_0_C130 Extension_0_DED6 Extension_0_9A44 Extension_0_3B16 Extension_0_9E52 Extension_0_C76E Extension_0_8B65 Extension_0_D386 Extension_0_A5E1 Extension_0_E51E Extension_0_B270 Extension_0_CAC9 Extension_0_BF22 Extension_0_57B4 Extension_0_A466 Extension_0_9E6C Extension_0_3986 Extension_0_198C Extension_0_6AF1 Extension_0_673B Extension_0_6CAF Extension_0_FC74 Extension_0_0357 Extension_0_00B7 Extension_0_00DA Illegal_Constant_002F Extension_0_128C Illegal_Constant_0047Illegal_Constant_003D# Kï¿½Pï¿½T$: If Extension_0_D906 Extension_0_BDAA Extension_0_50C0 Reset Zone Extension_0_3032 Extension_0_A646 Extension_0_353C Extension_0_6B89 Extension_0_F98F Extension_0_2E63 Extension_0_08B8 Extension_0_8168 Extension_0_B63C Extension_0_4B1C Extension_0_4559 Extension_0_E4CF Extension_0_2335 Extension_0_DDC7 Extension_0_EEB9 Extension_0_99B0 Extension_0_5DC7 Extension_0_2263 Extension_0_1137 If Del Bob Extension_0_8208 Extension_0_C113 Extension_0_CE78 Extension_0_8F7E Extension_0_681C Extension_0_1411 Extension_0_9FF1 Extension_0_C1DB Extension_0_A2BB Extension_0_8E0A Extension_0_E2A1 Extension_0_6759 Extension_0_534F Extension_0_F173 Extension_0_231A Extension_0_045C Extension_0_2FFC Extension_0_18CF Extension_0_B4E9 Extension_0_C614 Extension_0_2D1B If Extension_0_0941 Extension_0_8C8A Extension_0_CCD0 Extension_0_CC28 Extension_0_8E3E Extension_0_D9F0 Extension_0_9467 Extension_0_F63B Extension_0_D9CD Extension_0_B582 Extension_0_8589 Extension_0_6FA3 Extension_0_E138 Extension_0_A04E Extension_0_D992 Extension_0_939B Extension_0_3E2F Extension_0_8A54 Extension_0_5A77 Extension_0_D7E7 Extension_0_EDF2 Extension_0_0EDB Until Extension_0_BA9A Extension_0_43E4 Extension_0_A4A9 Extension_0_DDB5 Extension_0_1709 Extension_0_D46A Extension_0_B63A Extension_0_FCFA Extension_0_25C2 Extension_0_3543 Extension_0_BECB Extension_0_3ED3 Extension_0_0FF8 Extension_0_2E9E Extension_0_69D4 Extension_0_6DD5 Extension_0_D663 Extension_0_6F33 If Extension_0_96C3 Extension_0_CD49 Extension_0_A472 Extension_0_1829 Extension_0_E417 Extension_0_8F77 Extension_0_46A7 Extension_0_E4D7 Extension_0_52AF For Extension_0_94BC Extension_0_CA43 Extension_0_2726 Extension_0_57B5 Extension_0_84F9 Extension_0_1C62 Call Extension_0_0118 Extension_0_0119 Illegal_Constant_0041 Extension_0_FE37 Extension_0_0437 Extension_0_E374 Extension_0_326F Extension_0_A002 Colour Extension_0_B007 Extension_0_780D Extension_0_DE07 Extension_0_0C00 Extension_0_A2CA Extension_0_ADBE Extension_0_F2C0 Extension_0_19A1 Extension_0_14EC Extension_0_8EDE Extension_0_C3DC Extension_0_E52E Extension_0_61B4 Extension_0_E5ED Extension_0_4C43 Extension_0_A27C Extension_0_B303 Extension_0_3986 Extension_0_11C5 Extension_0_C99F Extension_0_FB10 Next Extension_0_D38E Extension_0_A6C8 Extension_0_2EA2 Extension_0_C8B3 Extension_0_CF58 End If Extension_0_2EBC Wind Close Extension_0_AF3E ï¿½F1ï¿½ï¿½ï¿½# ï¿½ï¿½ï¿½ï¿½ï¿½;?7ï¿½ï¿½E$ï¿½GVï¿½Ñ¿ï¿½BE6ï¿½ï¿½Dï¿½^>13Hï¿½ï¿½=V# Change Mouse Extension_0_4482 Extension_0_5E3E Extension_0_3133 Extension_0_6899 End Proc Extension_0_0C3D Procedure CHANGEPAL Y=Y/8 X=X-164 X=X/8 Y=Y-5 X$=Hex$(X) Y$=Hex$(Colour(CR),3) Mid$(Y$,Y,1)=Right$(X$,1) Colour CR,Val(Y$) End Proc Procedure CHANGEVEL X=X-112 X=X/8 SPEED=X End Proc Procedure PICKRANGE LOWER=CR Change Mouse 2 Repeat Until Mouse Key=0 Repeat Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Until Mouse Key<>0 Until Y>24 and Y<36 and X>25 and X<291 X=X-25 X=X/8 If X>=CLRS Then Pop Proc Ink CR Box 26+(CR*8),25 To 34+(CR*8),35 CR=X Ink 0 Box 26+(CR*8),25 To 34+(CR*8),35 Ink CR Bar 128,56 To 144,78 Ink 0 Box 128,56 To 144,78 UPPER=CR If UPPER<LOWER Then Swap UPPER,LOWER If UPPER-LOWER<1 Then UPPER=1 : LOWER=0 Change Mouse 1 End Proc Procedure COPCOL R=CR Change Mouse 2 Repeat Until Mouse Key=0 Repeat Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) Until Mouse Key<>0 Until Y>24 and Y<36 and X>25 and X<291 X=X-25 X=X/8 If X>=CLRS Then Pop Proc Ink CR Box 26+(CR*8),25 To 34+(CR*8),35 CR=X Ink 0 Box 26+(CR*8),25 To 34+(CR*8),35 Ink CR Bar 128,56 To 144,78 Ink 0 Box 128,56 To 144,78 Colour CR,Colour(R) Change Mouse 1 End Proc Procedure NEWCULLER X=X-25 X=X/8 If X>=CLRS Then Pop Proc Ink CR Box 26+(CR*8),25 To 34+(CR*8),35 CR=X Ink 0 Box 26+(CR*8),25 To 34+(CR*8),35 Ink CR Bar 128,56 To 144,78 Ink 0 Box 128,56 To 144,78 End Proc Procedure WINDO[X,Y,W,D] Screen 0 C0=Colour(0) C1=Colour(1) C2=Colour(2) If W mod(2)<>0 Then W=W+1 Wind Open 1,X,Y,W+1,D+1 Colour 0,$0 Colour 1,$BAA Colour 2,$667 Paper 1 Clw Ink 2 Bar X,Y+(D*8) To X+(W*8)-1,Y+(D*8)+7 Bar X+(W*8)-8,Y To X+(W*8)-1,Y+(D*8) Ink 0 Bar X+(W*8)-8,Y To X+(W*8)-1,Y+7 Bar X,Y+(D*8) To X+7,Y+(D*32776 Extension_0_407C Extension_0_DFC0 Extension_0_103E Extension_0_1800 Extension_0_0407 Extension_0_0200 Ink Extension_0_013E Extension_0_0180 Extension_0_01C0 Illegal_Constant_0020 Pen ' ' Locate Illegal_Constant_003F#Illegal_Constant_003F# Curs Off End Proc$ Procedure WINDCLO Screen 0 Window 1 Paper 0 Clw Wind Close Colour 0,C0 Colour 1,C1 Colour 2,C2 End Proc Procedure DISK HID WINDO[16,72,36,15] Reserve Zone 10 Locate -2147467263 Extension_0_205C Extension_0_103E Extension_0_0800 Extension_0_0401 Tab$ Under On Extension_0_0700 Print Extension_0_0FA6 Extension_0_03C9 Extension_0_5354 Extension_0_7285 Extension_0_636C Extension_0_7576 Extension_0_6502 Under Off Locate Illegal_Constant_003F13 Print Zone$(Border$("ï¿½ ` ï¿½ ï¿½ ï¿½ , . Hxhï¿½!`!ï¿½ ï¿½ 4 Z " Extension_0_005D Illegal_Constant_003F,10) Locate 2, Extension_0_803E Extension_0_4000 Amalerr Extension_0_9000 Print Extension_0_D90E Extension_0_E474 Extension_0_131C Screen Height Extension_0_0CA6 Extension_0_0247 Extension_0_4D05 Extension_0_70B0 Extension_0_4451 Extension_0_72E4 Extension_0_000D Locate 2,7 Print Zone$( Extension_0_811C Extension_0_C074 Extension_0_E026 Extension_0_1007 Extension_0_3845 Extension_0_7661 Extension_0_7565 Extension_0_2100 Asc Extension_0_007E Resume Next Illegal_Constant_0030# Locate 2,10 Print Zone$ Extension_0_8074 Extension_0_C11C Extension_0_E074 Extension_0_F026 Extension_0_8807 Extension_0_9665 Extension_0_8E61 Extension_0_7365 Extension_0_7580 Extension_0_3C1C Extension_0_0EDE Extension_0_0730 Extension_0_0379 Illegal_Constant_0030 Extension_0_0082 Extension_0_0051 Extension_0_0078 # Locate Illegal_Constant_003F1 Under On Print "Loadï¿½" Extension_0_C000 Under Off Extension_0_E000 Locate Extension_0_903E Extension_0_D800 Extension_0_DC0E Extension_0_125C Extension_0_1B3E Extension_0_3B80 Extension_0_02C4 Extension_0_0120 Print Extension_0_007E Illegal_Constant_003C Extension_0_01C0 Illegal_Constant_001A Extension_0_0059 USE# Locate Extension_0_403E Extension_0_A000 Extension_0_F00E Extension_0_E85C Extension_0_DC3E Extension_0_DA00 Extension_0_1707 Zone Print Extension_0_04CE Extension_0_02D4 Extension_0_03CC Extension_0_0F1C Extension_0_0072 Extension_0_00DD Extension_0_202F Extension_0_720A Extension_0_7364 Extension_0_200E Extension_0_005D Illegal_Constant_003F,5) Locate 14, Extension_0_803E Extension_0_C000 Extension_0_E00A Extension_0_D000 Print Extension_0_D90E Extension_0_2C74 Extension_0_0F1C Extension_0_0F74 Extension_0_3EA6 Extension_0_06C7 Extension_0_5101 Extension_0_6C35 Extension_0_74AC Extension_0_656C Illegal_Constant_0022Illegal_Constant_0031# Extension_0_005F 6) Locate 27,-2147434495 Extension_0_6000 Under On Extension_0_D000 Print Extension_0_E826 Extension_0_DC05 Extension_0_F961 Extension_0_1B65 Extension_0_1180 Extension_0_3540 Under Off Extension_0_3D60 Locate Extension_0_3ACE Extension_0_0558 Extension_0_0746 Extension_0_070A Extension_0_0795 Extension_0_005E Extension_0_007B $ Print Extension_0_010B Extension_0_0077 Extension_0_011E Extension_0_0075 Illegal_Constant_0027USE# Locate Extension_0_B5FE Extension_0_BB60 Extension_0_F34A Extension_0_DAB4 Extension_0_AD6A Extension_0_CA5A Extension_0_E5D2 Extension_0_93EB Print Extension_0_CBB0 Extension_0_E59B Extension_0_9342 Extension_0_C95D Extension_0_E54B Extension_0_12D2 Extension_0_297F Extension_0_768A Extension_0_711E Extension_0_212D Extension_0_0333 Logic Extension_0_005D %11010100000000001010001Illegal_Constant_0031 Extension_0_8006 Extension_0_4009 Extension_0_A07F Extension_0_D000 Locate Extension_0_A83E Extension_0_B400 Extension_0_FA1A Extension_0_9F5C Extension_0_4EBE Extension_0_E540 Extension_0_DEEA Extension_0_2950 Print Extension_0_B456 Extension_0_FE20 Extension_0_5C36 Extension_0_F2E9 Extension_0_DBF9 Extension_0_2FA1 Extension_0_EA4C Extension_0_938A Extension_0_56E0 Extension_0_16DA Extension_0_18B3 Extension_0_0C50 Extension_0_0229 Extension_0_06EC Extension_0_07CB Extension_0_00E6 Extension_0_00D1 Extension_0_00EE Extension_0_8000 Extension_0_C071 Extension_0_6007 Repeat Extension_0_9803 Repeat Extension_0_AA00 Until Extension_0_2B32 Extension_0_C6E6 Extension_0_F57E Extension_0_46A0 Extension_0_E730 Extension_0_DE98 ï¿½Ó¨ï¿½ï¿½ï¿½ï¿½\ï¿½ï¿½Qï¿½I:Wï¿½ï¿½ï¿½ F5K $ Until Extension_0_ABA8 Extension_0_7F51 Extension_0_9869 Extension_0_3A57 Extension_0_969C Extension_0_1CE1 Extension_0_0A66 Extension_0_0F35 Extension_0_0E6B Wï¿½Nï¿½CYï¿½$ Extension_0_4004 If Extension_0_9005 Extension_0_C800 Extension_0_AE00 Extension_0_D300 Extension_0_88A2 Extension_0_D4BE Extension_0_5AC0 Extension_0_F52A Extension_0_D856 Extension_0_2674 Extension_0_3364 Restore Extension_0_896C Extension_0_4CA9 Extension_0_EEDA Extension_0_DF3F For Extension_0_3453 Extension_0_8AED Extension_0_4F16 Extension_0_099B Extension_0_EF6E Extension_0_18A0 Extension_0_0431 Extension_0_03E8 Extension_0_03A1 Extension_0_00FD Extension_0_00CC Extension_0_02FE Extension_0_ED11 Extension_0_4009 Read Extension_0_6003 Extension_0_100F Extension_0_9A00 Extension_0_AD01 Extension_0_A201 Next Extension_0_3305 Extension_0_A886 Extension_0_4EC0 Extension_0_4CE0 Extension_0_9310 ï¿½]ï¿½ï¿½Kï¿½ï¿½ï¿½Oï¿½ï¿½#ï¿½ï¿½W)[ï¿½ï¿½ï¿½9ï¿½}ï¿½YTï¿½ï¿½ï¿½Wï¿½M_ï¿½ï¿½$ If Extension_0_295B Extension_0_BCDD Extension_0_C839 Extension_0_807D Extension_0_CD15 Extension_0_7974 Extension_0_0F7F Extension_0_1BFA Extension_0_E215 Extension_0_039B Extension_0_0157 Global Extension_0_6D5F Extension_0_FFBC ï¿½Ä°ï¿½ï¿½ï¿½AH "IFï¿½Iï¿½9ï¿½\Yï¿½ÓB'ï¿½"ï¿½ï¿½Sï¿½ï¿½Lï¿½ï¿½ï¿½8Tï¿½8MIï¿½Jï¿½*ÓKï¿½|ï¿½Nï¿½(+4ï¿½Gï¿½Mï¿½ï¿½S/ï¿½ï¿½ï¿½ï¿½ï¿½Nï¿½33ï¿½Ì¡ï¿½R]\ï¿½ï¿½#ï¿½ï¿½Uï¿½ï¿½ï¿½3ï¿½ï¿½TQï¿½ï¿½ï¿½Gï¿½Qï¿½ï¿½#()ï¿½,ï¿½Dï¿½ï¿½Kï¿½ï¿½1,ï¿½ï¿½6ï¿½ï¿½Sï¿½ï¿½9ï¿½á°#8Tï¿½Nï¿½Nï¿½V}ï¿½ï¿½@ï¿½ï¿½/ï¿½9Zï¿½$ If Extension_0_BBA2 Extension_0_4CB2 Extension_0_A4BB Extension_0_3854 Extension_0_8438 Extension_0_6D69 Extension_0_15EA Extension_0_1D4A Extension_0_802A Extension_0_0FD3 Extension_0_876B Extension_0_C27C Extension_0_CD6E Extension_0_0F8F Extension_0_282B Extension_0_3405 Extension_0_8A0B Extension_0_47C4 Extension_0_6D87 Extension_0_F753 Extension_0_2FA1 Extension_0_04D1 Extension_0_FFB0 Extension_0_BB4E Extension_0_E5B0 Extension_0_3333 Extension_0_EACC Extension_0_A1A4 Extension_0_525D Extension_0_5C1B Extension_0_969A If Extension_0_BEA0 Extension_0_D133 Extension_0_1AF8 Extension_0_9174 Extension_0_7188 Extension_0_C2D1 Extension_0_67B6 Extension_0_71BB Extension_0_9723 Extension_0_1428 Extension_0_0629 Extension_0_871D Extension_0_2CBF Extension_0_1E64 Extension_0_B1DF Extension_0_6BD3 Extension_0_F431 Extension_0_2CD2 Extension_0_EB0C Extension_0_3691 Cls Extension_0_73C0 Extension_0_F539 Extension_0_BF05 Extension_0_E192 Extension_0_B023 Extension_0_3854 Extension_0_906E Extension_0_BE6E Extension_0_C876 Extension_0_7D83 Extension_0_F940 Change Mouse Extension_0_B59E Extension_0_2FB0 Extension_0_1339 Extension_0_7A94 ï¿½RD9ï¿½^Rï¿½37ï¿½ ï¿½ï¿½1ï¿½ï¿½1BFï¿½FNA# Extension_0_A815 Extension_0_033E Extension_0_32A5 Extension_0_9960 Extension_0_C4A4 Extension_0_223D Extension_0_137B Extension_0_91B5 Extension_0_0437 Extension_0_01FC Repeat Extension_0_C1F9 Until Extension_0_3E7F Extension_0_EF9D Extension_0_B800 Extension_0_C419 Extension_0_A23D Extension_0_5307 Change Mouse Extension_0_78BE Extension_0_7C40 Extension_0_4662 Extension_0_64F0 If Extension_0_CB42 Extension_0_53C9 Extension_0_D031 Extension_0_3D18 Extension_0_8C2E Extension_0_FE60 Extension_0_C5E3 Extension_0_A454 Extension_0_5205 Extension_0_E8AD Change Mouse Extension_0_BCCF Extension_0_DAF9 Extension_0_3716 Extension_0_1EB9 If Extension_0_0FE4 Extension_0_82F3 Extension_0_4168 Extension_0_0C4C Extension_0_8844 Extension_0_486B Extension_0_641B Extension_0_F615 Extension_0_35CC Extension_0_849D Extension_0_BAF6 Extension_0_69A1 Extension_0_1DF6 Extension_0_8E9C Extension_0_ED5E Extension_0_C646 Extension_0_23A1 Extension_0_1085 Extension_0_63B9 Extension_0_4821 Extension_0_1074 Extension_0_6B68 Extension_0_8B84 If Extension_0_2627 Extension_0_1111 Extension_0_8B99 Extension_0_2947 Extension_0_1980 Extension_0_B1C9 Extension_0_5888 Extension_0_6CDE Extension_0_78A8 Extension_0_7F23 Extension_0_012B Extension_0_BBDD Extension_0_368A Extension_0_84AB Extension_0_C0BC Extension_0_D6A1 Extension_0_A9B3 Extension_0_53AC Extension_0_9DAE Extension_0_7763 Extension_0_0CD7 Bob Draw Extension_0_FE95 If Extension_0_90B9 Extension_0_48D6 Extension_0_E6F9 Extension_0_DF17 Extension_0_26A8 Extension_0_ACBD Extension_0_57C2 Extension_0_EB22 Extension_0_B777 Extension_0_DB5B Extension_0_D15B Extension_0_1FD5 Extension_0_F9CE Extension_0_2ACD Extension_0_018F Extension_0_9EAD Extension_0_B9E3 Extension_0_5F72 Extension_0_6FC7 Extension_0_0E52 Extension_0_3D9D Extension_0_6D22 Extension_0_EA0D Extension_0_C553 If Extension_0_16DA Extension_0_095E Extension_0_06D5 Extension_0_1369 Extension_0_FEBD Extension_0_00A0 Illegal_Constant_0045Illegal_Constant_0039 Extension_0_82D1 Extension_0_400A Extension_0_1C12 Extension_0_3682 Extension_0_F590 Extension_0_A870 Extension_0_4363 Extension_0_9554 Extension_0_4D28 Extension_0_6B58 Extension_0_8D84 Extension_0_FBF0 Extension_0_B1FD Extension_0_4613 Extension_0_1166 If Extension_0_444D Extension_0_EE24 Extension_0_3312 Extension_0_F58B Extension_0_BB9E Extension_0_EE10 Extension_0_B331 Extension_0_A8BC Extension_0_D703 Extension_0_AE31 Extension_0_515C Extension_0_D308 Extension_0_C6A3 Extension_0_3AC4 Extension_0_1924 Extension_0_FCC3 Extension_0_CAF8 Extension_0_A112 Extension_0_53AD Extension_0_803F Extension_0_F7AA Extension_0_3450 Extension_0_0184 Extension_0_F296 If Extension_0_E7A4 Extension_0_B271 Extension_0_5939 Extension_0_1A75 Extension_0_056B Extension_0_0701 Extension_0_82FE Extension_0_437F Extension_0_626B Extension_0_71BD Extension_0_9BE6 Extension_0_F2ED Extension_0_4678 Extension_0_696A Extension_0_7FE3 Extension_0_849A Extension_0_4009 Extension_0_E149 Extension_0_CBCF Extension_0_1C7C Extension_0_E60B Extension_0_AD92 Extension_0_2319 If Extension_0_B947 Extension_0_C463 Extension_0_A070 Extension_0_3A18 Extension_0_04DE Extension_0_B478 Extension_0_6A23 Extension_0_FF15 Extension_0_345F Extension_0_ADD5 Extension_0_226A Extension_0_BF57 Extension_0_A7F9 Extension_0_4CA4 Extension_0_FE09 Extension_0_5DFB Extension_0_E47E Extension_0_B6A5 Extension_0_B23B Extension_0_78A6 Extension_0_0090 Extension_0_8B84 Extension_0_8C94 If Extension_0_A321 Extension_0_5292 Extension_0_7B4B Extension_0_9AEC Extension_0_7174 Extension_0_4D27 Extension_0_E28F Extension_0_31D6 Extension_0_8ABB Extension_0_44C3 Extension_0_0275 Extension_0_BA73 Extension_0_1BEB Extension_0_82DF Extension_0_BC0A Extension_0_5818 Extension_0_15DC Extension_0_9DE4 Extension_0_43BE Extension_0_19D5 Extension_0_B5EB Extension_0_5BC9 Extension_0_F059 Extension_0_5E1D If Extension_0_F380 Extension_0_2AC5 Extension_0_F6E3 Extension_0_DBD0 Extension_0_325A Extension_0_26A2 Extension_0_0EF6 Extension_0_F9AC Extension_0_CE15 Extension_0_A678 Extension_0_2D23 Extension_0_BE1F Extension_0_BF25 Extension_0_D052 Extension_0_2C7B Extension_0_A6CC Extension_0_DFEC Extension_0_3FFA Extension_0_77AB Extension_0_DD98 Extension_0_4F51 Extension_0_4BD5 Extension_0_1755 ï¿½ï¿½Nï¿½U ï¿½E|ï¿½ï¿½.ï¿½6ï¿½COEï¿½ï¿½ï¿½×¨ï¿½Oï¿½ 'ï¿½4_.ï¿½C#ï¿½ï¿½ï¿½ï¿½Fï¿½ï¿½Oï¿½Hï¿½ï¿½Ì¢Gï¿½ï¿½ï¿½)ï¿½ï¿½Rï¿½ï¿½×9ï¿½Jï¿½TÜ·;0*Vï¿½Wï¿½ï¿½Aï¿½ï¿½ï¿½'ï¿½<ï¿½AÌ¿ï¿½3 ï¿½-ï¿½C-ï¿½ï¿½ï¿½ï¿½Iï¿½ï¿½YLï¿½ï¿½ï¿½TC: Data Extension_0_821B Extension_0_430B Extension_0_23F4 Extension_0_F5A0 Extension_0_AC46 Extension_0_BC1E Extension_0_974F Extension_0_8B68 Extension_0_94EC Extension_0_CCA2 Extension_0_470E Extension_0_DBE8 Extension_0_D305 Extension_0_298B Extension_0_F752 Extension_0_8BFB Extension_0_D790 Extension_0_399C Extension_0_4AB6 Extension_0_74DC Extension_0_B73B Extension_0_302A Extension_0_76CF Extension_0_57FC Extension_0_1EBE Extension_0_41B6 Extension_0_EB03 Extension_0_A427 Extension_0_863C Extension_0_9841 Extension_0_CCBF Extension_0_8833 Screen Close Extension_0_DA2D Extension_0_B81A Extension_0_432D Extension_0_1F9B Extension_0_A6B4 Extension_0_BB69 Extension_0_B5E9 Extension_0_790D Extension_0_6C98 Extension_0_93A5 Extension_0_7443 Extension_0_15C2 Extension_0_9218 Extension_0_3711 Extension_0_0C97 Extension_0_9733 Extension_0_D892 Extension_0_2460 Extension_0_BE04 Extension_0_699A Extension_0_9DFD Extension_0_B433 Extension_0_9049 Extension_0_902F Extension_0_F85E Extension_0_2410 Extension_0_7F91 Extension_0_D863 Extension_0_64F4 Extension_0_83AE Extension_0_3455 Extension_0_1CD6 Extension_0_9C84 Extension_0_5602 Extension_0_EB3A Extension_0_CDEA Extension_0_0121 Extension_0_7CD2 Extension_0_3F30 Extension_0_DE8D Extension_0_1DD9 Extension_0_6EEA Extension_0_5DCB Extension_0_A565 Extension_0_1DB7 Extension_0_D8C8 Extension_0_ED35 Extension_0_58AF Extension_0_4007 Extension_0_BBC2 Extension_0_47FB Extension_0_25A9 Extension_0_622C Extension_0_7EDA Extension_0_24BC Extension_0_E352 Extension_0_2469 Extension_0_15EC Extension_0_1045 Pï¿½Bï¿½ï¿½ ï¿½$ï¿½ï¿½ï¿½ï¿½ï¿½ ï¿½ï¿½ï¿½ï¿½VI: Screen To Front Extension_0_247F Extension_0_B6E1 Extension_0_FF15 Extension_0_9B98 Screen To Front Extension_0_F5F2 Extension_0_1F1E Extension_0_F376 Extension_0_1A49 ï¿½ï¿½TDRï¿½ï¿½B4Cï¿½ï¿½BV# Change Mouse Extension_0_9DD5 Extension_0_4234 Extension_0_6308 Extension_0_1087 End Proc Extension_0_0842 Procedure RELABEL On Error Proc ERR Resume Label REERR EX=Exist(F$) S$=F$ If EX=False Then REQUEST["File not found","Ok",""] : Pop Proc F$=Fsel$("","","- - Spectrapaint - -","Select new name for file") If F$="" Then Pop Proc EX=Exist(F$) If EX=True Then REQUEST["File alreadyï¿½e8iStc" Extension_0_085C Extension_0_3C26 Extension_0_0602 Extension_0_4C6B Asc Extension_0_00E6 Illegal_Constant_0020 Not # Extension_0_0338 Rename S$ To F$ REERR: End Proc Procedure NEWDIR On Error Proc ERR Resume Label DER F=Exist(F$) If F=True Then REQUEST["File already exists","Ok",""] : Pop Proc Mkdir F$ DER: End Proc Procedure DELETE On Error Proc ERR Resume Label DIDNTWORK F=Exist(F$) If F=False Then Pop Proc REQUEST["Do you want to delete "+F$+"?","Yes","No"] If BUTTON=2 Then Pop Proc Kill F$ DIDNTWORK: End Proc Procedure MAGNIFY MAGSIZE=16 Repeat Until Mouse Key=0 Screen 0 Screen To Front 0 Gr Writing 2 Wait Vbl Hide On Set Pattern 0 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) If X+MAGSIZE>REZ Then X=REZ-MAGSIZE If 9 Bar X Extension_0_5373 Extension_0_637A Extension_0_6000 Extension_0_FD4A Extension_0_017E Extension_0_00A0 Extension_0_0071 Extension_0_0078 Wait Vbl # Bar X$,Y To X+MAï¿½Sï¿½Z Extension_0_AFCA Extension_0_383E Extension_0_0C00 Extension_0_0A01 HtanRnd Extension_0_FE83 Extension_0_0260 Extension_0_7970 Extension_0_FFA8 MCGRI{E# Extension_0_FFCB Illegal_Constant_003F# Wait Vbl $ M# Extension_0_FFA3 Extension_0_1E33 Extension_0_8003 Until Extension_0_4006 Extension_0_2000 Extension_0_F200 Extension_0_E500 Extension_0_2366 Extension_0_A23E Extension_0_D700 Extension_0_E980 Extension_0_94C0 Screen To Front Extension_0_DA5E Extension_0_E710 Extension_0_958E Extension_0_DB44 Screen To Front Extension_0_E7DC Extension_0_9271 Extension_0_DBD8 Extension_0_E49C Screen Hide Extension_0_12E8 Extension_0_1B6D Extension_0_04A8 Extension_0_0256 Tï¿½PS/# Extension_0_4023 Extension_0_203F Extension_0_30C8 Extension_0_0801 Screen Display Extension_0_0C3D Extension_0_1E00 Extension_0_0107 Extension_0_00DC Extension_0_809C Extension_0_DFE6 Extension_0_DFDF Extension_0_9608 Extension_0_BB67 Extension_0_1C6D Extension_0_AD01 Extension_0_E95D Extension_0_1DC3 Extension_0_9640 Screen Display Extension_0_CD5E Extension_0_6FB0 Extension_0_D1BE Extension_0_E930 Extension_0_1CB2 Extension_0_166F Extension_0_F2E2 Extension_0_7897 Extension_0_71B9 Extension_0_77C0 Extension_0_72AE Extension_0_FFA3 ï¿½C Zï¿½Êï¿½ï¿½# Wait Vbl Extension_0_8803 Show On Extension_0_C400 Gr Writing Extension_0_6E3E Extension_0_1100 Extension_0_8881 Extension_0_DDC0 If Extension_0_71F6 Extension_0_A898 Extension_0_765C Extension_0_B326 Extension_0_0C93 Extension_0_99A9 Extension_0_4D5C Extension_0_AAE4 Extension_0_7735 Extension_0_DCA4 Extension_0_F37C Sï¿½Cï¿½ï¿½Yï¿½# Extension_0_0275 Extension_0_782B Extension_0_8034 )Tï¿½ë¡ï¿½ï¿½%ï¿½ï¿½@Û # ï¿½ï¿½<ï¿½ï¿½ï¿½"ï¿½Xï¿½ZC2ï¿½Zï¿½O ï¿½ï¿½Q+Iï¿½L Change Mouse Extension_0_865A Extension_0_4332 Extension_0_A27A Extension_0_F14F Screen Open Extension_0_18C0 Extension_0_0C51 Extension_0_062B Extension_0_0349 Extension_0_06A5 Extension_0_034C Extension_0_00DE Illegal_Constant_002D# Extension_0_8060 Extension_0_4038 Extension_0_E001 Extension_0_9043 Extension_0_485C Extension_0_A890 Extension_0_3200 Screen Display Extension_0_E73E Extension_0_D580 Extension_0_AA42 Extension_0_F3BC Extension_0_5FCC Extension_0_6DE6 Extension_0_9AE4 Extension_0_CF6E Extension_0_A5BB Extension_0_F708 Extension_0_59EA Paper Extension_0_6D4B Extension_0_9A59 Extension_0_CF5F Arexx Pen Extension_0_7763 Extension_0_1EA7 Extension_0_0D53 Extension_0_027B Flash Off Extension_0_017C Curs Off Extension_0_0F96 Get Palette Illegal_Constant_0043Illegal_Constant_0027 Extension_0_8032 Extension_0_401B Cls Extension_0_A03C Screen Extension_0_5038 Extension_0_E801 Extension_0_1405 Extension_0_0E00 Get Palette Extension_0_BD3E Extension_0_C280 Extension_0_E1C2 Extension_0_D760 Screen Extension_0_386E Extension_0_BCE8 Extension_0_7A16 Extension_0_671A Repeat Extension_0_C943 If Extension_0_B3A9 Extension_0_84F1 Extension_0_60B4 Extension_0_EE48 Extension_0_AC2F Extension_0_D34E Extension_0_725F Extension_0_E41A Extension_0_0F93 Extension_0_6F39 Extension_0_781F Extension_0_68F4 Extension_0_6579 Extension_0_FF93 Illegal_Constant_0035 Extension_0_7FC3 Extension_0_443C Extension_0_D263 Extension_0_CA01 Extension_0_EAC5 Extension_0_AC06 Extension_0_0199 Extension_0_A100 Extension_0_8AF2 Extension_0_BFC0 Extension_0_4A42 Extension_0_7AB6 Extension_0_EAE3 Extension_0_1EEC Extension_0_F72B Extension_0_B965 Extension_0_5E07 Extension_0_70A1 Extension_0_97D3 Extension_0_14F6 Extension_0_EB7A Extension_0_A44D Extension_0_4BFD Extension_0_1442 Extension_0_09A3 If Extension_0_063E Extension_0_FE8F Exp Extension_0_7937 Extension_0_6523 Extension_0_7FF0 Extension_0_C01E Extension_0_5F03 Extension_0_B806 Extension_0_C560 Extension_0_8B70 Extension_0_477A Extension_0_5E00 Extension_0_F436 Extension_0_0F7E Extension_0_82A0 Extension_0_430F Extension_0_627E Extension_0_103A Extension_0_E7FD Extension_0_800F Extension_0_BF74 Extension_0_421D Extension_0_CF3D Extension_0_08FE Extension_0_0CE0 Extension_0_82EF Extension_0_3EF2 Extension_0_2082 Extension_0_8F7D Illegal_Constant_0023 Extension_0_7171 Extension_0_196B Extension_0_6A76 Extension_0_64FE Illegal_Constant_0041 Zoom Illegal_Constant_001FIllegal_Constant_0031Illegal_Constant_0019 Extension_0_8061 Extension_0_C001 Extension_0_5F9B Extension_0_D403 Extension_0_D072 Extension_0_1100 Extension_0_EE5C Extension_0_1506 Extension_0_0113 Extension_0_49C0 Extension_0_1BD2 Extension_0_6A30 Extension_0_19B4 Extension_0_9CCA Extension_0_21BF Extension_0_A56D Extension_0_88E5 Extension_0_CDC4 Extension_0_0B22 Extension_0_2A17 Extension_0_4804 Extension_0_4284 Extension_0_0A23 Extension_0_75D0 Extension_0_722A Extension_0_1878 Extension_0_0FA0 Hcos Extension_0_FF0E Extension_0_84D7 Extension_0_B958 Extension_0_452F Extension_0_0FF6 Extension_0_C803 Extension_0_5B3C Extension_0_DA02 Extension_0_5460 Extension_0_EAF0 Extension_0_AFBA Fix Extension_0_FE04 Extension_0_4FF6 Extension_0_64A4 Extension_0_7234 Extension_0_0B37 Extension_0_84B2 Extension_0_C246 Extension_0_237C Extension_0_90B3 Extension_0_58F6 Extension_0_FCE4 Extension_0_CE13 Extension_0_2967 Extension_0_94BA Extension_0_DA42 Extension_0_9FA2 Extension_0_71CC Extension_0_6B66 Extension_0_13EC Extension_0_06CF Extension_0_0519 Ink Extension_0_01AB Extension_0_814B Extension_0_407C Extension_0_E04E Bar Extension_0_D017 Extension_0_A815 Extension_0_D4F2 Extension_0_BE5F Extension_0_D33C Extension_0_BA81 Extension_0_4DDA Extension_0_FAF5 Extension_0_4DED Extension_0_6AA8 Extension_0_75B8 Extension_0_F12A Extension_0_8373 Extension_0_C267 Extension_0_A10C Extension_0_50BA Extension_0_78ED Extension_0_F4E6 Extension_0_CE0F Extension_0_5CFA Extension_0_D2BB Extension_0_3943 Extension_0_15E0 Extension_0_BFD0 Ink Extension_0_C506 Extension_0_DF9C Extension_0_3147 Extension_0_17E5 Screen Copy Extension_0_FC6D Extension_0_0668 Extension_0_8F0C Extension_0_41DA Extension_0_E0CB Extension_0_EFFE Extension_0_8C50 Extension_0_3C6A Extension_0_06F4 Extension_0_7746 Extension_0_E881 Extension_0_D051 Extension_0_0A63 Lprint Extension_0_6098 Extension_0_0180 Extension_0_8FE0 Extension_0_3F48 Extension_0_2427 Extension_0_6846 Extension_0_7D3A Extension_0_7BDD Extension_0_C203 Extension_0_DE3E Extension_0_1883 Extension_0_7521 Extension_0_E353 Extension_0_AB6A Extension_0_4218 Extension_0_93D0 Extension_0_39B8 Extension_0_9BF2 Extension_0_F611 Extension_0_C27B Extension_0_A09D Extension_0_5C3F Extension_0_D0E0 Extension_0_674E Extension_0_444B Extension_0_1345 Extension_0_9385 Extension_0_60E1 Extension_0_6644 Extension_0_0336 Extension_0_034D Extension_0_0078 Extension_0_005E Extension_0_0062 Extension_0_8029 Extension_0_C00A Extension_0_A08F Extension_0_D05E Extension_0_A83F Extension_0_5C01 Extension_0_EA1B Extension_0_BF00 Reserve Zone Extension_0_5ABE Extension_0_7740 Extension_0_7EAB Extension_0_7550 Locate Extension_0_6646 Extension_0_F77C Extension_0_B688 Extension_0_64A1 Extension_0_F6D9 Extension_0_3ED2 Extension_0_04AB Extension_0_8620 Extension_0_CB2C Extension_0_303F Extension_0_31CE Extension_0_1813 Extension_0_0DED Extension_0_8210 Extension_0_4179 Extension_0_67E7 Extension_0_63FA Extension_0_7895 Extension_0_0429 Extension_0_0218 Extension_0_8106 Extension_0_C1FE Extension_0_203B Extension_0_916E Extension_0_4864 Extension_0_642E Extension_0_F6FA Extension_0_1922 Extension_0_D3EA Extension_0_F261 Extension_0_2B7D Extension_0_97AF Extension_0_CA59 Extension_0_236C Extension_0_17F3 Extension_0_8946 Locate Extension_0_DB9B Extension_0_AE73 Extension_0_56E6 Extension_0_E9D0 Extension_0_B3F0 Extension_0_DEE5 Extension_0_AF15 Extension_0_D6AB Extension_0_2EB2 Extension_0_17AC Extension_0_8BA7 Extension_0_C55E Extension_0_A256 Extension_0_E392 Extension_0_A8F7 Extension_0_D464 Extension_0_2A25 Extension_0_9530 Extension_0_CAEA Extension_0_25BF Extension_0_011E Extension_0_09A7 Extension_0_8596 Extension_0_C274 List Bank Extension_0_11EB Extension_0_89AE Extension_0_C5C1 Extension_0_2236 Extension_0_373B Extension_0_A8A4 Extension_0_CBA6 Extension_0_B5DB Extension_0_5164 Extension_0_EBB6 Get Bob Palette Extension_0_17E0 Extension_0_858B Extension_0_42EC Extension_0_E64A Extension_0_30D2 Extension_0_A995 Extension_0_D429 Extension_0_7034 Extension_0_956A Extension_0_47A5 Extension_0_ED42 Extension_0_31A9 Extension_0_1FAF Extension_0_8CCC Extension_0_4AD4 Locate Extension_0_6504 Extension_0_77B5 Extension_0_7F45 Extension_0_FC38 Extension_0_4268 Extension_0_E17B Extension_0_309A Extension_0_1812 Extension_0_0853 Extension_0_0F1D Extension_0_037C Extension_0_01DA Illegal_Constant_004C Extension_0_3459 Extension_0_006D Illegal_Constant_0027Illegal_Constant_003D Extension_0_8003 Extension_0_407E Extension_0_6067 Extension_0_E3B8 Extension_0_C874 Extension_0_243E Extension_0_1200 Extension_0_0B00 Extension_0_9CFC Extension_0_C224 Extension_0_2F46 Extension_0_11B3 Extension_0_28F8 Extension_0_AC2C Extension_0_CE76 Extension_0_B2A1 Extension_0_D0F1 Extension_0_A8FD Extension_0_5C20 Extension_0_F632 Extension_0_BD74 Extension_0_27E0 Extension_0_93CC Extension_0_4B17 Extension_0_6D56 Extension_0_6FF9 Extension_0_B354 Extension_0_4CC6 Extension_0_EEE9 Extension_0_AF2A Extension_0_48A6 Extension_0_5C0A Extension_0_1641 Extension_0_18AB Extension_0_0D8E Extension_0_FEF3 Extension_0_C6DD Extension_0_A091 Extension_0_50A5 Extension_0_5799 Extension_0_9433 Extension_0_4A08 Extension_0_4D1B Extension_0_7DE6 Extension_0_1A79 Extension_0_8DD5 Extension_0_4F91 Extension_0_E178 Extension_0_3196 Extension_0_A836 Extension_0_DCB9 Extension_0_2713 Extension_0_156D Extension_0_9AAB Extension_0_477E Extension_0_DBAE Extension_0_B10D Extension_0_C8D7 Extension_0_3CCD Extension_0_922D Extension_0_FF0E Extension_0_24FF Extension_0_8FC4 Locate Extension_0_FADC Extension_0_A393 Extension_0_CED6 Extension_0_9B70 Extension_0_3CC8 Extension_0_29C9 Extension_0_1F2F Extension_0_FBC6 Extension_0_8129 Extension_0_4EAA Extension_0_E3A6 Extension_0_B189 Extension_0_E8D6 Extension_0_8C12 Extension_0_6E4F Extension_0_FB38 Extension_0_4D83 Extension_0_6B47 Extension_0_F5DD Extension_0_4FD3 Extension_0_78D0 Extension_0_F698 Extension_0_8F68 Extension_0_44AD Extension_0_6657 Extension_0_CE86 Extension_0_29DB Extension_0_B790 Extension_0_D669 Extension_0_FD0F Extension_0_9E96 Extension_0_2AB9 Extension_0_0827 Extension_0_3FA2 Extension_0_8DD7 Extension_0_429F Extension_0_6EBC Extension_0_F0D9 Extension_0_89D1 Extension_0_4525 Extension_0_A240 Extension_0_D310 Extension_0_389A Extension_0_FAC2 Extension_0_463D Extension_0_FD0D Extension_0_CFB8 Extension_0_2757 Extension_0_9482 Extension_0_DAB3 Extension_0_3DE8 Locate Extension_0_AEB2 Extension_0_D7FA Extension_0_BBBB Extension_0_AE6F Extension_0_5726 Extension_0_FB7C Extension_0_0A4C Extension_0_0531 Extension_0_06E5 Extension_0_07F6 End Proc( Extension_0_81E8 Extension_0_7122 Extension_0_980A Extension_0_1057 Extension_0_F830 Extension_0_CC07 Extension_0_A206 Extension_0_517C Extension_0_2880 Locate X Graphic Extension_0_3A60 X Hard Extension_0_83C4 Extension_0_C7E2 Peek Extension_0_30DD Extension_0_0873 Extension_0_8042 Extension_0_4734 Extension_0_6169 Extension_0_91A3 Extension_0_5842 Extension_0_4F51 Extension_0_2A10 Extension_0_DB54 Extension_0_1CBA Extension_0_3BC2 Extension_0_0524 Extension_0_8D8C Extension_0_4148 Pen Extension_0_A082 Extension_0_D7FE Extension_0_5838 Extension_0_F42D Paper Extension_0_9601 Extension_0_BF1E Extension_0_2B85 Extension_0_2DC1 Locate Extension_0_0B5D Hex$ Extension_0_8666 Extension_0_4170 Extension_0_2094 Extension_0_1055 Extension_0_9863 Extension_0_4463 Extension_0_626C Extension_0_112D Extension_0_1984 Extension_0_C920 Extension_0_A141 Extension_0_9B11 Extension_0_711B Extension_0_EDFA Extension_0_5C4A Extension_0_FFE9 Extension_0_974D Extension_0_398B Extension_0_2759 Extension_0_33EE Extension_0_6151 Extension_0_8DE5 Extension_0_4209 Extension_0_E155 Extension_0_508C Extension_0_6844 Extension_0_5451 Extension_0_5A73 Extension_0_155E Extension_0_0B8D Extension_0_F542 Extension_0_CDE1 Screen To Front Extension_0_614F Extension_0_F0A9 Extension_0_98ED Extension_0_F436 Change Mouse Extension_0_5A43 Extension_0_F50F Extension_0_DA9C Extension_0_B54D Box Extension_0_FADF Extension_0_25D1 Extension_0_32A9 Extension_0_B989 Extension_0_C597 Extension_0_2277 Extension_0_B16A Extension_0_3903 Extension_0_25F4 Extension_0_73E7 Extension_0_CBB3 Extension_0_9CC7 Extension_0_F2FA Extension_0_9922 Extension_0_7472 Extension_0_99D8 Repeat Extension_0_E9B2 Repeat Extension_0_0A7C B7~X^E`# Until Extension_0_CE1D Extension_0_9770 Extension_0_EC33 Extension_0_5A07 Extension_0_6B02 Extension_0_9E8F Jï¿½Vï¿½SPBï¿½ ï¿½Wï¿½ï¿½Pï¿½Û¶B ï¿½ï¿½ï¿½Iï¿½í2]ï¿½Iï¿½PVÒ·ï¿½É@Jï¿½ï¿½ï¿½ï¿½ONï¿½}ï¿½ï¿½+(*ï¿½6ï¿½Cï¿½Lï¿½ï¿½ï¿½ï¿½ï¿½ï¿½K]ï¿½ï¿½.}ï¿½ï¿½ï¿½<@AUHï¿½ï¿½Ôï¿½Rï¿½Iï¿½ï¿½ï¿½ï¿½ï¿½TÈHï¿½ï¿½ï¿½ï¿½ï¿½/<ï¿½%ï¿½3ï¿½Gï¿½VW0ï¿½Fï¿½ï¿½ï¿½ï¿½,%ï¿½'8ï¿½ï¿½ï¿½$ If Extension_0_AA69 Extension_0_8AED Extension_0_9D89 Extension_0_325D Extension_0_9569 Extension_0_D570 Extension_0_1076 Extension_0_D2B7 Extension_0_D4C9 Extension_0_8D40 Extension_0_6AF6 Extension_0_0CBF Extension_0_9B95 Extension_0_4F6E Extension_0_A27D Extension_0_9004 Extension_0_E9B8 Extension_0_2B14 Extension_0_282A Extension_0_CE13 Extension_0_0236 Extension_0_DF43 Extension_0_CE6C Extension_0_BFB0 Extension_0_8F0B Extension_0_AE03 Extension_0_C216 Extension_0_FB4B Extension_0_5DC1 Extension_0_EE2E Extension_0_1313 Extension_0_7DFF Extension_0_FEC4 Extension_0_3C40 Extension_0_6155 Extension_0_68A1 Extension_0_C9D4 Extension_0_9DEA Extension_0_52AF Extension_0_6910 Extension_0_94E9 Extension_0_CFC6 Extension_0_D254 Extension_0_C890 Extension_0_48FA Extension_0_FBA2 Extension_0_E511 Extension_0_8F2F Extension_0_3C94 Extension_0_259E Extension_0_33B1 Extension_0_47F4 Extension_0_7677 Extension_0_30B1 Extension_0_4689 Extension_0_D7E1 Extension_0_13B0 Extension_0_2C25 Extension_0_B127 Extension_0_38BE Extension_0_0385 Extension_0_1FFE Extension_0_7331 Extension_0_7C5B Extension_0_474B Extension_0_E0B3 Extension_0_D5FE Extension_0_5F4E Extension_0_142D Extension_0_566B Extension_0_A718 Extension_0_0146 Extension_0_5B41 Extension_0_2DA3 Extension_0_D212 Extension_0_352E Extension_0_7EA6 Extension_0_5FF6 Extension_0_52CC Extension_0_C7B2 Extension_0_F8FD Extension_0_E5A9 Extension_0_96F6 Extension_0_4D35 Extension_0_CE8B Rainbow Extension_0_9901 Extension_0_5476 Extension_0_AE49 Extension_0_732B Extension_0_16F0 Extension_0_F577 Extension_0_DFA5 Extension_0_2551 Vslider :Uï¿½É¼ï¿½ï¿½2Z;ï¿½Kï¿½ï¿½ï¿½ï¿½VB`ï¿½ï¿½ $ ë®¤K(ï¿½>9ï¿½ï¿½ï¿½ï¿½Qï¿½Nï¿½ï¿½Fï¿½4 ï¿½ï¿½Rï¿½ï¿½5Nï¿½ï¿½=7ï¿½Pï¿½Xï¿½ï¿½~:Zï¿½Ïï¿½Oï¿½Yï¿½ï¿½(ï¿½ï¿½Rï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Öï¿½[R'ï¿½Nï¿½ï¿½Hï¿½TP:ï¿½/ï¿½ï¿½Gï¿½%ï¿½ì§Wï¿½ï¿½6ï¿½è¼·Iï¿½ï¿½Qï¿½Ø£ï¿½STZï¿½Zï¿½ï¿½] # If Extension_0_E98D Extension_0_E335 Extension_0_046E Extension_0_FCF1 Extension_0_3D37 Extension_0_E10B Extension_0_50AB Extension_0_58CD Extension_0_CB7E Extension_0_3A13 Extension_0_7AF2 Extension_0_CF84 Extension_0_07C2 Extension_0_6FD9 Extension_0_798E Extension_0_A428 Extension_0_B20B Extension_0_8852 Extension_0_AD8D Extension_0_C1BD Extension_0_B7FF Extension_0_B790 Extension_0_12D6 Extension_0_929A Extension_0_5B72 Extension_0_27F6 Extension_0_4EF4 Extension_0_C968 Extension_0_9374 Extension_0_503A Extension_0_C22F Extension_0_0BF4 Extension_0_EE67 Extension_0_9D25 Extension_0_DBEC Extension_0_A79E Extension_0_57FE Extension_0_CB36 Extension_0_F219 Extension_0_E8BC Extension_0_B749 Extension_0_CBD8 Extension_0_51F2 Extension_0_D8A3 Extension_0_F453 Extension_0_545A Extension_0_B21D Extension_0_7AF9 Extension_0_955D ï¿½[ï¿½ï¿½ï¿½\ï¿½Sï¿½ï¿½ï¿½ï¿½}%ç(ï¿½CSï¿½Aï¿½;ï¿½Oï¿½5ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½$ Until Extension_0_8373 Extension_0_C09B Extension_0_E2CA Extension_0_7D25 Extension_0_E785 Extension_0_9C28 Extension_0_C20B Extension_0_6306 Extension_0_5383 If Extension_0_6FE6 Extension_0_35F0 Extension_0_8708 Extension_0_AF84 Extension_0_18A4 Extension_0_F19D Extension_0_17B0 Extension_0_1C7A Extension_0_3D32 Extension_0_84A2 Extension_0_41B1 Extension_0_21C6 Extension_0_93A3 Extension_0_586B Extension_0_A3D6 Extension_0_3214 Extension_0_A996 Extension_0_D4DF Extension_0_1AFC Extension_0_1D21 Extension_0_1EEB Extension_0_1F14 Extension_0_9F82 Extension_0_5FFE Extension_0_3F35 Extension_0_EF8D Extension_0_1819 Extension_0_6333 Extension_0_56FE Extension_0_D26C Extension_0_37F2 Extension_0_D13B Extension_0_A921 Extension_0_A64D Extension_0_5D27 Extension_0_5F8D Extension_0_3CA3 Extension_0_922E Extension_0_B557 Extension_0_11D6 Extension_0_FECD Extension_0_0406 Extension_0_33A1 Extension_0_5F15 Extension_0_F05C Extension_0_DA0A Extension_0_7E8B Extension_0_32BD Extension_0_0BD7 Break Off Extension_0_FED1 Extension_0_7EB3 Extension_0_C78B Extension_0_98B8 Extension_0_157D Extension_0_C843 Extension_0_E40E Extension_0_0997 Extension_0_8B02 Extension_0_3DF3 Extension_0_C347 Extension_0_5720 If Extension_0_53DE Extension_0_19E4 Extension_0_3EF2 Extension_0_E88B Extension_0_4172 Extension_0_E3DC Extension_0_7153 Extension_0_ABBA Extension_0_9324 Extension_0_3BF0 Extension_0_8D0D Extension_0_BF8F Extension_0_8EC6 Extension_0_810D Extension_0_2889 Extension_0_AFA8 Extension_0_DA3C Extension_0_992C Extension_0_D789 Extension_0_12BC Extension_0_93E3 Extension_0_24B3 Extension_0_5416 Extension_0_F2D3 Extension_0_5B7E Extension_0_27BD Extension_0_124E Extension_0_991F Extension_0_AA8C Extension_0_6232 Extension_0_B3ED If Extension_0_BC4F Extension_0_D65D Extension_0_DF1F Extension_0_3B96 Extension_0_54FB Extension_0_2CA1 Extension_0_9DFE Extension_0_356E Extension_0_9853 Extension_0_D2D9 Extension_0_95E2 Extension_0_B852 Extension_0_0B00 Extension_0_C539 Extension_0_D91A Extension_0_6533 Extension_0_32FD Extension_0_0BF7 Extension_0_6E6A Extension_0_02C3 As Until Extension_0_8793 Extension_0_C0DB Extension_0_6264 Extension_0_DD12 Extension_0_27AB Extension_0_F43A Extension_0_7A02 Extension_0_4702 Extension_0_A587 Screen Close Extension_0_537E Extension_0_ABE0 Extension_0_5FD2 Extension_0_29E8 Screen Show Wait Vbl Extension_0_9D8A Extension_0_42C0 Extension_0_DFE2 Screen To Front Extension_0_716D Extension_0_3FB8 Extension_0_947A Extension_0_D7F6 Screen To Front Extension_0_6D33 Extension_0_BD8F Extension_0_DBC1 Extension_0_74A1 ï¿½ï¿½ï¿½ï¿½ï¿½KNï¿½Pï¿½Gï¿½ï¿½GZï¿½ï¿½ï¿½V Screen Extension_0_E970 Extension_0_F567 Extension_0_86D4 Extension_0_477A End Proc Extension_0_A7B5 Procedure MOVE[M] If M=8 Then YRE=YRE-MAGSIZE/2 : If YRE<1 Then YRE=0 If M=9 Then XRE=XRE-MAGSIZE/2 : If XRE<1 Then XRE=0 If M=10 Then XRE=XRE+MAGSIZE/2 : If XRE+MAGSIZE>REZ Then XRE=REZ-MAGSIZE If M=11 Then YRE=YRE+MAGSIZE/2 : If YRE+MAGSIZE>256 Then YRE=256-MAGSIZE End Proc Procedure FILBIT[M] Screen 2 If M=1 Then Ink I If M=2 Then Ink P If MAGSIZE=64 Then M=2 If MAGSIZE=32 Then M=4 If MAGSIZE=16 Then M=8 If MAGSIZE=8 Then M=16 If MAGSIZE=4 Then M=32 X=X/M Y=Y/M Bar X*M+1,Y*M+1 To X*M+M,Y*M+M Plot 140+X,28+Y End Proc Procedure PICK Repeat Until Mouse Key=0 Screen Hide 6 Screen Hide 7 Repeat X=X Screen(X Mouse) Y=Y Screen(Y Mouse) MM=Mouse Key Until MM<>0 R=Point(X,Y) Screen Show 6 Screen Show 7 If CLRS=4 Then W=80 If CLRS=8 Then W=40 If CLRS=16 Then W=20 If CLRS=32 Then W=10 If CLRS=64 Then W=5 Screen 6 Ink I Box I*W,0 To I*W+W,7 Ink P Box P*W+2,2 To P*W+(W-2),5 If MM=1 Then I=R If MM=2 Then P=R Ink 0 Box I*W,0 To I*W+W,7 Box P*W+2,2 To P*W+(W-2),5 If MM=1 Then MESSAGE["Pen :"+Str$(R)] If MM=2 Then MESSAGE["Paper:"+Str$(R)] End Proc Procedure SAVBRUSH On Error Proc ERR Resume Label ERRSAVBRU NR=Exist(F$) BUTTON=0 If NR=True Then REQUEST["Brush already exists. Overwrite? ","No","Yes"] If BUTTON=1 Then Pop Proc Save F$,1 ERRSAVBRU: End Proc Procedure LODBRUSH NR=Exist(F$) BUTTON=0 If NR=False Then REQUEST["Brush not found.","Ok",""] : Pop Proc Erase 1 Load F$ MD=11 End Proc Procedure SAVPAL On Error Proc ERR Resume Label ERRSAVPAL If F$="" Then Pop Proc NR=Exist(F$) BUTTON=0 If NR=True Then REQUEST["Palette already exists. Overwrite? ","No" Extension_0_805C Extension_0_4026 Extension_0_2003 Extension_0_4965 Extension_0_7B00 Extension_0_1C8C Tab$ If Extension_0_7F86 Extension_0_FF29 Remember X Extension_0_6265 Extension_0_747C Extension_0_6F6A Extension_0_F85C Illegal_Constant_003F<$ Change Mouse 3 Open Out 1,F$ Extension_0_8000 Print # Extension_0_403E Extension_0_2000 Extension_0_3001 Extension_0_185C Extension_0_043E Extension_0_0200 Extension_0_0303 Extension_0_0080 Print # Extension_0_007E Extension_0_0060 Extension_0_0071 Illegal_Constant_0044 Extension_0_007A Extension_0_FF55 Extension_0_060F Extension_0_7570 Extension_0_7065 Extension_0_7200 Print #1,LOWER Print # Extension_0_803E Extension_0_C000 Extension_0_6001 Extension_0_305C Extension_0_2806 Extension_0_E345 Extension_0_1C00 Extension_0_7670 Extension_0_62E5 Extension_0_64C0 Resume Next Cï¿½CMRT# If C=64 Then Extension_0_8006 Extension_0_BF75 Extension_0_2200 Extension_0_F300 Extension_0_47A2 Extension_0_EC3E Extension_0_7200 Extension_0_2F20 Extension_0_F480 Screen Extension_0_07FE Extension_0_0D60 Extension_0_0170 Extension_0_00C8 For Extension_0_00F4 Extension_0_006F Extension_0_020B Extension_0_660A Extension_0_FFA5 Illegal_Constant_0020C N=Colour(ï¿½ Print # Extension_0_017E Extension_0_00A0 Extension_0_0071 Extension_0_01B4 N#$ Next F Close 1 Change Mouse 32770 Extension_0_C000 ]Rï¿½SVYAï¿½ï¿½@ï¿½ V: End Proc Extension_0_0520 Procedure LODPAL On Error Proc ERR Resume Label ERRLODPAL If F$="" Then Pop Proc NR=Exist(F$) If NR=False Then REQUEST["Cannot find palette","",""] : Pop Proc Change Mouse 3 Open In 1,F$ Input #1,I If I<>3 Then REQUEST["Palette is from V2.0.Cannot load","Ok",""] : Close 1 : Pop Proc Input #1,UPPER Input #1,LOWER Input #1,SPEED C=CLRS If C=64 Then C=32 Screen 0 For F=1 To C Input #1,XX Colour F-1,XX Next F Close 1 Change Mouse 1 SHIFT ERRLODPAL: End Proc Procedure ERR E=Errn E$="Spectrapaint error"+Str$(E) If E=30 or E=31 or E=32 Then E$="IFF format invalid" If E=88 Then E$="Disk full" If E=24 Then E$="Memory full" REQUEST[E$,"Ok",""] Resume Label End Proc Procedure LODPIC On Error Proc ERR Resume Label SKIPTHIS If F$="" Then Pop Proc NR=Exist(F$) If NR=False Then REQUEST["File not found","",""] : Pop Proc Open In 1,F$ X$=Input$(1,20) Close 1 If Mid$(X$,9,4)<> Extension_0_8026 Extension_0_4004 Extension_0_694C Extension_0_524D Extension_0_0AC6 Extension_0_0412 Extension_0_FF8A Extension_0_0980 Extension_0_71E5 Extension_0_71B5 Extension_0_6553 Extension_0_F410 Extension_0_408C Extension_0_2022 Extension_0_1011 Extension_0_766E Extension_0_7023 Extension_0_636E Extension_0_2749 Extension_0_46C6 Extension_0_2030 Extension_0_6A83 Extension_0_7445 Extension_0_726D Extension_0_2E04 Illegal_Constant_0042Illegal_Constant_0027Illegal_Constant_001D Extension_0_4F6B ,""] Extension_0_8054 Extension_0_42A8 Extension_0_2018 Extension_0_CAF2 Extension_0_1000 Extension_0_6F6B Extension_0_6F70 Extension_0_7368 Extension_0_69F3 Illegal_Constant_0040 Change Mouse Extension_0_005E Extension_0_8010 Extension_0_400B Extension_0_200C Load Iff Extension_0_3008 Extension_0_E76C Change Mouse Extension_0_6400 Extension_0_015C Extension_0_00BE Illegal_Constant_0040Illegal_Constant_0020$ Change Mouse #Illegal_Constant_001F SCRN Extension_0_7FA2 Extension_0_CB74 Extension_0_6000 WLLSï¿½ ï¿½@ ï¿½}Ï¬#W Qï¿½Tï¿½Pï¿½O?LK# Screen Illegal_Constant_0024# Wind Save Screen Close Illegal_Constant_003F# If Extension_0_C007 Extension_0_5FDA Extension_0_5401 Extension_0_4A64 Extension_0_9601 Extension_0_89A3 Extension_0_0B3F Extension_0_0681 Extension_0_0203 Extension_0_0326 Extension_0_893A Extension_0_C056 Extension_0_A03C Extension_0_D07B Extension_0_F859 Extension_0_EC05 Extension_0_69D9 Extension_0_D907 Extension_0_8CE5 Extension_0_95C0 Extension_0_973C Extension_0_DCF6 Extension_0_FE34 Extension_0_EB14 Extension_0_EBF5 Extension_0_AE13 Extension_0_7E7F Extension_0_2EF0 Extension_0_064C Extension_0_89CD Extension_0_254F Extension_0_D305 Extension_0_AFD5 Extension_0_24CD Extension_0_9463 If Extension_0_DB1F Extension_0_8C46 Extension_0_0FC3 Extension_0_89C7 Extension_0_F5D3 Extension_0_BE4A Extension_0_A0AA Extension_0_B1CA Extension_0_2AAD Extension_0_952B Extension_0_DFF3 Extension_0_E533 Extension_0_1285 Extension_0_9946 Extension_0_DD3C Extension_0_E276 Extension_0_ECB3 Extension_0_9CB4 Extension_0_AE33 Extension_0_9825 Extension_0_12B1 Extension_0_99BF Extension_0_5DD1 Extension_0_2667 Extension_0_8271 Extension_0_7BE7 Extension_0_8411 Extension_0_DEE1 Extension_0_5CC7 Extension_0_D599 Extension_0_FBD1 Extension_0_2654 Extension_0_E64E Extension_0_7B9D Extension_0_1785 Screen Hide Extension_0_FFFD Extension_0_03A2 Extension_0_817E Extension_0_C398 Flash Off Extension_0_A1B4 Curs Off Extension_0_D02A Paper Extension_0_2853 Extension_0_9419 Extension_0_C60D Extension_0_E505 Cls Extension_0_1187 ï¿½ï¿½XXï¿½ï¿½ï¿½ï¿½ï¿½}Nï¿½ï¿½Dï¿½ï¿½ï¿½ï¿½ï¿½>V: Screen Extension_0_110F Extension_0_9999 Extension_0_44C5 Extension_0_E6E3 End Proc Extension_0_F13E Procedure SAVPIC On Error Proc ERR Resume Label FAILSP If F$="" Then Pop Proc NR=Exist(F$) If NR=True Then REQUEST["File already exists - overwrite?","No","Yes"] : If BUTTON=1 Then Pop Proc Change Mouse 3 Screen 0 Save Iff F$ Change Mouse 1 FAILSP: End Proc Procedure NEWMAG[E] If E=3 Then MAGSIZE=64 : N=2 If E=4 Then MAGSIZE=32 : N=4 If E=5 Then MAGSIZE=16 : N=8 If E=6 Then MAGSIZE=8 : N=16 If E=7 Then MAGSIZE=4 : N=32 End Proc