:SKETCH.BA (c) 1989 by R.H.Pigford1 :uses GRAFIX.CO (c) 1989 R.H.Pigford:285PA$:A$""20:e:pixel editingks#D1|(A$-A$"a"͊A$"z"A$((A$)223)2A$(32)D1D:165إ7A$(85)XX1:165:U<A$(1)XX12:165:s-lftAA$(79)XX1:165:O6FA$(6)XX12:165:s-rtSKA$(56)YY1:165:8tPA$(20)YY16:165:s-upUA$(75)YY1:165:KZA$(2)YY16:165:s-dnԦ_A$(55)XX1:YY1:165:7dA$(57)XX1:YY1:165:9iA$(74)XX1:YY1:165:J=nA$(76)XX1:YY1:165:LesA$(17)X0:165:ctrl+lft arrowxA$(18)X239:165:ctrl+rt arrow}A$(23)Y0:165:ctrl+up arrowݧA$(26)Y63:165:ctrl+dn arrowA$"T"A$"t"Ͳ1000,2:195 A$"D"555FD1͌5857A$(4)Ͳ15000,2:FD0GA$"/"265YA$(27)330fX0X0wX239X239Y0Y0Y63Y63D1ʹ(X,Y):(X,Y) 40 :loop backݨ:find cursor positionC(X6):R(Y8):L(R40)CL1L:save first curs vals2L$:L$""210LL$(13)Ͳ5000,2:40rL$(8)LL1:250:@L," ";:210@L,L$;:LL1:230:210:check out of limitsL0L0ǩL319L319ͩ:check to see if going back too far LL1LL1: : $:go to GRAFIX.COA  GF# :start of GRAFIX\(PF#)0470:prflage 40:intro and menu for SKETCH.BA800:100,GF#:E$(27):"800:720'@125," "E$"pENTER"E$"q key to continue or...":(35,31)(35,23),1:(65,23),1?,@205," "E$"pQ"E$"quit":(35,47)(35,39),1:(41,39)Y120: A$"Q"A$"q"ͺl6A$(13)305;325:M"GRAFIX":800@E$(27): 330E::"Could NOT loadm "E$"p GRAFIX.CO "E$"q!":"Hit <"E$"pANY"E$"q> key to BAILOUT!";:20:J16964: enable scrolingGO:725:@40,"uit":@55,"nstructions"T@80,"ew Sketch":@95,"dit EXIST.CO file.":(0,7)(239,7),1Y(2,30)(235,63),1,B:(76,20)(85,20),1:(85,30),1:(216,20)(225,20),1:(225,30),1"^@161,E$"p/"E$"q Screen SAVE + Multiple PRINT Functs."^c@201,E$"pT"E$"q Type TEXT at dot then "E$"pENTER"E$"q"h@241,E$"pD"E$"q Set 1st dot, "E$"pD"E$"q DRAW LINE to 2nd dot."m@281,E$"pESC"E$"q Erase picture and return here.";:(5,32)(5,63),10rA$"":20:A("QqIiNnEe",A$):A0370:(A1)2375,600,380,3856wR|16959: 25:no scrollo16959: 390:no scroll:look for existing Ram .CO filename then pass it's start addr to GRAFIX:"Enter your existing PIX.CO ":"filename (w/o ext.).":SI$:(SI$)0ͱ:330)L(SI$):L6ͱ:330JN$SI$:510:SI$N$:FE1395eE$(M):SI$SI$".CO"SI$" Correct? "20:A$"N"A$"n"395SS$" "ׯSP$SI$:T(SP$,"."):TSP$(SP$,T1)SP$(SP$SS$,6):D639196412811:T(D)fT160(D3)(SP$)́I26:(D2I)((SP$,I))͂I:DS256(D2)(D1):SP$SP$".CO":445D:SP$SP$".CO":SP$" NOT FOUND!";::T1300:T:330䰽:get appropriate RAM addr of .CO file and pass to GRAFIX.CO DSDS6 :move to actual file data6:go to GRAFIX.CO to put File on LCDw FZ#,,DS :pass the RAM start Addr to HL register- FILLCD: 35:"<1> Save Buffer to RAM File."˱"<2> Return to EDITING Sketch.""<3> Go to Main MENU (lose this sketch)."*20:A(A$):A1A3ͱ:480:A485,482,330D FZ#,,BS#:16959:35z:"Save Sketch File";:SN$:N$SN$:510:FE1470SN$A$:SN$".CO";" Correct? ":20:A$"N"A$"n"485SX$SN$:T0:T(SX$,"."):TSN$(SX$,T1)"Hit F4 to run SKETCH.BA again!":MSN$,BS,BE1,0 :dumps to BASICbFE0:A$"":B$"":C$"":capitalize W1(N$):B$(N$,W,1)B(B$) :IFW=1THENIFB<59ORB>122THENBEEP:GOTO550B96 B122 C$((B$) 223):540C$B$A$A$C$ !W:N$A$:E&:FE1:"Bad 1st Character in Filename!":T1250:T:l+:record points, draw/erase line0FD0X1X:Y1Y:FD1:1047,2:405X2X:Y2Yϴ:D1͒(X1,Y1)(X2,Y2),1:(X1,Y1)(X2,Y2),0?FD0:FB0:1760,2:405D:put grafix for each curs pos in buffer memory cf- 0=store,1=put back]I:make the DRAW anchor pixel flashyNZ0͵(X1,Y1):(X1,Y1)SZ1Z:X:instructions͵]:725:@40,"A drawing program, using the keys"b"forming the keypad for the 7 8 9"+g"dot drawing directions. Togggle U O"Zl"the dot on/off with the J K L"qE$"p space bar "E$"q. Combine Shft+ARROWS"v"to jump 16 dot's, and use Cntrl+ARROWS"{"to move to edges. ----more>";:(201,13)(236,41),1,B:203:"With the dot within a normal character"h"location, hit "E$"pT"E$"q to initiate TEXT on""screen. Use "E$"pENTER"E$"q when done."˷"Use "E$"pD"E$"q once to set anchor point for""a line. Move, hit "E$"pD"E$"q again to DRAW line."0"If the second dot is 'off', the line"i"will erase. Cancel 2nd "E$"pD"E$"q with Crtl-D." "With your SKETCH on screen, --more>";:20͸:" = erase sketch, go to Main Menu."" to bring up the "E$"p GRAFIX "E$"q options :"."

rint screen. Choose from 12 "]" possible Width/Height combinations."" Scans screen, asks SAVE filename?"" Dumps to BASIC. Use F4 to RUN again.";" uit = return to SKETCH editing."#"That's all. Any Key -> MAIN MENU";:20: 330Q@41,"Newark, DEL. Uses Himem"GF#"to"BE#;@0," "E$"pSKETCH.BA"E$"q & "E$"pGRAFIX.CO"E$"q "(171)"1989 R.H.Pigford"ź(77,0)(77,7),1:(5,0)(5,7),1: GF#60150 :start GRAFIX.CO%PF#60529 :PRFLAG: addr.)*BS#61030 :BUFFER: start addr>/BE#62950 :end\4FZ#60262 :FILLCD: addrb9