$%&'KEYPAINTBAS#+& :@66,"KEYPAINT V1.0"&7@258,"INITALIZING..."&^@98,"(C)COPYRIGHT 1984-10 M LOWE"&~(@130,"ALL RIGHTS RESERVED"&2@322,"PRESS -H- FOR HELP"&<@162,"MARK@ZEROGGAMES.COM"&F&P ----- INIT SEQUENCE&Z'd A(16),B(24),C(20),D(16),E(16),F(12),G(24),H(12),I(12)'Zn J(16),K(12),L(8),M(16),N(20),O(16),P(16),Q(20),R(24)'x S(24),T(8),U(12),V(20),W(28),X(28),Y(20),Z(12),LL(26)''@275,"FONT SETUP": 2520'P$"ON"': 4,1: 1,1:(X10:Y13:TAG$"KEYPAINT H FOR HELP"(6 Q1 (TAG$):L ((TAG$,Q,1))64:GL(K L 1 210(Ȉ L 3390,3410,3430,3450,3470,3490,3510,3530,3550,3570,3590,3610,3630,3650,3670,3690,3710,3730,3750,3770,3790,3810,3830,3850,3870,3890(XX8: Q)X(2562):Y(1912):NXX:NYY:MXX:MYY)܂): ----- CLEAR/PREP SCREEN)@)a 1,0:(10,15)(246,181),,B)g")m')w, 1,1)6(X,Y))@)J ----- KEYBOARD LOOP)T)^A$)h A$"" 350)r ----- START FONT)| A$"W" 2380*  A$"H" 1750: 350*/ A$"I" YY1:D$A$: 620*Q A$"K" YY1:D$A$: 620*s A$"J" XX1:D$A$: 620* A$"L" XX1:D$A$: 620* ----- STATUS UPDATE*… A$"S" 1010*̂ ----- PIXEL ON / OFF+օ A$"P" P$"OFF" P$"ON": 620+0 A$"P" P$"ON" P$"OFF": 620+I ----- CLEAR SCREEN+p A$"Z" D$"Z" :D$A$: 250+ A$"1" XX1:YY1:D$A$: 620+ A$"2" XX1:YY1:D$A$: 620+ A$"3" XX1:YY1:D$A$: 620, A$"4" XX1:YY1:D$A$: 620,+& A$"Q" :: 5000,D0 ----- SAVE DRAWING,X: A$"*" 1130,qD ----- LOAD DRAWING,N A$"-" 1940,X ----- REPEAT,b A$"8" 700,l ----- CHECK REPEAT,v P$"OFF" 0,0:(X1,Y1): 1,1- P$"ON" NDND1-(X,Y): 4030-*X1X:Y1Y: 350-0-H ----- REPEAT CODE-N-h D$"I" 710 : 730-YY1: Y15 Y181-н(X,Y): 4030:X1X:Y1Y:A$:Ω A$"0" 350 : 710-څ D$"K" 740 : 760-YY1: Y180 Y11.((X,Y): 4030:X1X:Y1Y:A$: A$"0" 350 : 740.B D$"J" 770 : 790.[XX1: X11 X244. (X,Y): 4030:X1X:Y1Y:A$: A$"0" 350 : 770. D$"L" 800 : 820. XX1: X244 X11/*(X,Y): 4030:X1X:Y1Y:A$: A$"0" 350 : 800/4 D$"1" 830 : 860/9>XX1:YY1: X11 X244/LH Y11 Y180/R(X,Y): 4030:X1X:Y1Y:A$: A$"0" 350 : 830/\ D$"2" 870 : 900/fXX1:YY1: X244 X11/p Y11 Y1800 z(X,Y): 4030:X1X:Y1Y:A$: A$"0" 350 : 8700$ D$"3" 910 : 9400CXX1:YY1: X11 X2440V Y180 Y160(X,Y): 4030:X1X:Y1Y:A$: A$"0" 350 : 9100 D$"4" 950 : 3000XX1:YY1: X244 X110 Y180 Y161ʽ(X,Y): 4030:X1X:Y1Y:A$: A$"0" 350 : 9501Ԃ14ނ ----- STATUS SCREEN1:1d: "-------- STATUS ---------------"1 " LAST COMMAND -";D$;"-"1: " X-AXIS = ";X101: " Y-AXIS = ";Y151: " NUMBER OF DOTS:";ND1: " X MIN/MAX:";NX10;"/";MX102!": " Y MIN/MAX:";NY15;"/";MY152'$2N. " <>"2j8 " " 1090 : 10802{B 1,1: 3502L2V ----- SAVE SCREEN2`2j: "-------- SAVING ---------------"2t " NAME OF PIC:";N$2~ " SAVE TYPE:3! " (H)ORIZONTAL OR (V)ERTICAL:";K$3H " <>"3[ "" 11803o: "SAVING..."3 K$"H" K$"" 1240 : 153033Ă ----- HORIZONTAL SAVE SEQUENCE3΂3ؙ "O",#1,N$3 1,1: 1,03 #1,"H"4(200,5)(245,8),,BF:CN04)TT (MXNX)(MYNY)49 YNY MY4I XNX MX4] "Q" 14704i( 424042 (X,Y) X1X1 : 13904< (X1,Y)0 13704FX1X11: 13404ZX1X11: #1,X,X1,Y:XX14n 41304 X4 Y4 #15ȇ: "SAVED!"5.҉ "WOULD YOU LIKE TO CONTINUE";Y$:5Oׅ (Y$,1)"Y" 300 : 50005U܂5x ----- VERTICAL SAVE SEQUENCE5~5 1,1: 1,05 "O",#1,N$5(200,5)(245,8),,BF:CN05TT (MXNX)(MYNY)5" #1,"V"5, XNX MX 16 6 YNY MY 16@ "Q" 14706+J 42406JT (X,Y) Y1Y1 : 16606b^ (X,Y1)0 16406vcY1Y11: 16306hY1Y11: #1,Y,Y1,X:YY16| 41306 Y6‹ X6̚ #1: 14806֞6 "------------ HELP -----------"7 " I UP"7 " J L LEFT RIGHT"74 " K DOWN"7:7S " 1 2 DIAGNALS"7c " 4 3 "7& " P .... TOGGLE DRAWING"70 " W/! ... FONT ON/OFF"7:7D " */- ... SAVE/LOAD PIC"7N7X " Z .... (TWO TIMES CLS)"8b " 8/0 ... REPEAT/STOP"8+l " Q .... QUIT"8Rv " <>"8e "" 19208q 1,1:8w8 ----- LOAD SCREEN88: "--------- LOADING -----------"8 "NAME OF PIC:";N$9Ƈ: " <>"9Ѕ "" 20009"ڙ"I",#1,N$9P 1,1: 0,0:(11,16)(245,180),,BF: 1,09\ #1,S$9 S$"H" S$"" 2080 : 223099 ----- LOAD HORIZONTAL SEQUENCE99 (1) 21909* #1,RX,XR,RY94(RX,RY)(XR,RY),:> "Q" 350: H 4130: 2080:( #1: 350:.:Q ----- LOAD VERTICAL SEQUENCE:W:j (1) 2340:| #1,RY,YR,RX:ʻ(RX,RY)(RX,YR),:ԅ "Q" 350:ށ 4130:  2230: $ #1: 350: .: 8 ----- TYPING FONT LOOP: B; L 0,0:(X,Y): 1,1;@ VW$:(X1,Y1)(X8,Y8),,B: W$"" 2390;r ` 0,0:(X1,Y1)(X8,Y8),,B: A$"!" 300; j 1,1: 4090; t W$" " 2480; ~ W$"!" 300; L(W$)64:GL; L 26 2390; L 1 2390 2@275,"J": T1 16: J(T): T>; <@275,"K": T1 12: K(T): T>^ F@275,"L": T1 8: L(T): T> P@275,"M": T1 16: M(T): T> Z@275,"N": T1 20: N(T): T> d@275,"O": T1 16: O(T): T> n@275,"P": T1 16: P(T): T? x@275,"O": T1 20: Q(T): T?6 @275,"Q": T1 24: R(T): T?Z @275,"S": T1 24: S(T): T?} @275,"T": T1 8: T(T): T? @275,"U": T1 12: U(T): T? @275,"V": T1 20: V(T): T? @275,"W": T1 28: W(T): T@ @275,"X": T1 24: X(T): T@1 ȇ@275,"Y": T1 20: Y(T): T@U ҇@275,"Z": T1 12: Z(T): T@} ܇@275,"DONE": T1 26: LL(T): T@ @ @ ----- FONT LINE DATA@ @  A@  -8,4,-8,5,-7,3,-2,3,-5,5,-5,4,-7,6,-2,6@ " BA* , -8,3,-2,3,-8,3,-8,5,-7,6,-6,6,-5,4,-5,5,-4,6,-2,6,-2,3,-2,6A2 6 CAj @ -8,4,-8,6,-7,3,-3,3,-2,4,-2,6,-3,7,-4,7,-7,7,-6,7Ar J DA T -8,3,-2,3,-2,3,-2,5,-8,3,-8,5,-7,6,-3,6A ^ EA h -8,3,-8,6,-8,3,-2,3,-2,3,-2,6,-5,3,-5,5A r FB | -8,3,-8,6,-8,3,-2,3,-5,3,-5,5B GBL -8,4,-8,5,-7,3,-3,3,-2,4,-2,5,-3,6,-4,6,-4,6,-4,5,-7,6,-6,6BT HBx -8,3,-2,3,-5,3,-5,6,-8,6,-2,6B IB -8,3,-8,7,-7,5,-3,5,-2,3,-2,7B ‚ JB ̆ -8,3,-8,6,-7,5,-3,5,-2,3,-2,5,-2,3,-4,3B ւ KC -8,3,-2,3,-5,2,-8,7,-5,2,-2,7C LC( -8,3,-2,3,-2,3,-2,6C0 MC^  -8,2,-2,2,-8,2,-5,5,-5,5,-8,8,-8,8,-2,8Cf  NC  -8,3,-2,3,-7,3,-7,4,-6,5,-4,5,-3,6,-3,7,-8,7,-2,7C & OC 0 -8,4,-8,6,-7,3,-3,3,-2,4,-2,6,-7,7,-3,7C : PD D -8,3,-8,5,-8,3,-2,3,-5,3,-5,5,-7,6,-6,6D N QDJ X -8,4,-8,6,-7,3,-3,3,-7,7,-1,7,-2,4,-2,6,-3,6,-4,5DR b RD l -8,3,-2,3,-8,3,-8,5,-7,6,-6,6,-5,3,-5,5,-5,5,-4,5,-3,6,-2,6D v SD -8,4,-8,5,-7,3,-6,3,-7,6,-6,6,-6,3,-3,6,-2,6,-2,4,-2,4,-3,3D TE -8,3,-8,7,-8,5,-2,5E UE, -8,3,-3,3,-8,6,-3,6,-2,4,-2,5E4 VEl -8,3,-6,3,-5,4,-3,4,-2,5,-3,6,-3,6,-5,6,-6,7,-8,7Et Ƃ WE І -8,2,-6,2,-5,3,-4,3,-3,4,-2,4,-5,5,-4,5,-3,6,-2,6,-4,7,-5,7,-8,8,-6,8E ڂ XF -8,3,-7,3,-6,4,-4,6,-3,3,-2,3,-8,7,-7,7,-3,7,-2,7,-4,4,-6,6F YFJ -8,3,-7,3,-7,3,-5,5,-5,5,-7,7,-8,7,-7,7,-5,5,-2,5FR  ZFv -8,3,-8,7,-7,7,-3,3,-2,3,-2,7F| F ----- CHAR LINE COUNT ARRAYF *F 4 4,6,5,4,4,3,6,3,3,4,3,2,4,5,4,4,5,6,6,2,3,5,7,6,5,3G# > T1 LL(G)4 4:(XA(T1),YA(T))(XA(T3),YA(T2)),: TG) HGn R T1 LL(G)4 4:(XB(T1),YB(T))(XB(T3),YB(T2)),: TGt \G f T1 LL(G)4 4:(XC(T1),YC(T))(XC(T3),YC(T2)),: TG pH z T1 LL(G)4 4:(XD(T1),YD(T))(XD(T3),YD(T2)),: TH HO T1 LL(G)4 4:(XE(T1),YE(T))(XE(T3),YE(T2)),: THU H T1 LL(G)4 4:(XF(T1),YF(T))(XF(T3),YF(T2)),: TH H T1 LL(G)4 4:(XG(T1),YG(T))(XG(T3),YG(T2)),: TH I0 ʀ T1 LL(G)4 4:(XH(T1),YH(T))(XH(T3),YH(T2)),: TI6 ԐI{ ހ T1 LL(G)4 4:(XI(T1),YI(T))(XI(T3),YI(T2)),: TI I T1 LL(G)4 4:(XJ(T1),YJ(T))(XJ(T3),YJ(T2)),: TI J T1 LL(G)4 4:(XK(T1),YK(T))(XK(T3),YK(T2)),: TJJ\ T1 LL(G)4 4:(XL(T1),YL(T))(XK(T3),YL(T2)),: TJb$J. T1 LL(G)4 4:(XM(T1),YM(T))(XM(T3),YM(T2)),: TJ8JB T1 LL(G)4 4:(XN(T1),YN(T))(XN(T3),YN(T2)),: TJLK=V T1 LL(G)4 4:(XO(T1),YO(T))(XO(T3),YO(T2)),: TKC`Kj T1 LL(G)4 4:(XP(T1),YP(T))(XP(T3),YP(T2)),: TKtK~ T1 LL(G)4 4:(XQ(T1),YQ(T))(XQ(T3),YQ(T2)),: TKL T1 LL(G)4 4:(XR(T1),YR(T))(XR(T3),YR(T2)),: TL$Li T1 LL(G)4 4:(XS(T1),YS(T))(XS(T3),YS(T2)),: TLoL T1 LL(G)4 4:(XT(T1),YT(T))(XT(T3),YT(T2)),: TLĐL΀ T1 LL(G)4 4:(XU(T1),YU(T))(XU(T3),YU(T2)),: TMؐMJ T1 LL(G)4 4:(XV(T1),YV(T))(XV(T3),YV(T2)),: TMPM T1 LL(G)4 4:(XW(T1),YW(T))(XW(T3),YW(T2)),: TMM T1 LL(G)4 4:(XX(T1),YX(T))(XX(T3),YX(T2)),: TMN+ T1 LL(G)4 4:(XY(T1),YY(T))(XY(T3),YY(T2)),: TN1(Nv2 T1 LL(G)4 4:(XZ(T1),YZ(T))(XZ(T3),YZ(T2)),: TN|<NN ----- CHECKING MAX AND MIN POSITIONSNN XMX MX X1NÅ XNX NX X1Nȅ YMY MY Y1O ͅ YNY NY Y1OҐO܂OM ----- CHECKING MAX AND MIN POSITIONS FOR TYPINGOSOo (X8)MX MX (X9)O XNX NX XO YMY MY YO (Y10)NY NY (Y9)OO(9,Y):(X,14):OO ----- ACTIVITY INDICATOROP" DR1 4140 : 4170PJ, 1,0:(194,5)(195,6),,BF:(196,7)(197,8),,BFP6 0,0:(194,7)(195,8),,BF:(196,5)(197,6),,BF:DR0P@ 1,0:PJ 0,0:(194,5)(195,6),,BF:(196,7)(197,8),,BFQT 1,0:(194,7)(195,8),,BF:(196,5)(197,6),,BF:DR1Q^ 1,0:QhQ-r ----- PROGRESS BARQ3QYCN CN1:PC((CNTT)43): 1,1Qq PC 43 PC 43Q(201,6)(201PC,7),,BFQQ END OF LINE