,440: "DRAW PRO 128...BY L.K. SNYDER"W3,1:PN(3),SM$(9):270:L$"H"v 215:FB.215:FB.215 165:25:A$Z(L$,A$,1):Z450,420,430,435,315,350,385,405:1010FB.DMOP,X,Y:#DMTSM$(SM),X,Y,T:(DM3SM$(9),X,Y,.-P2.,O:.,5,5,"CHANGE PENS:SELECT PEN # (1-3)"}7208,.:A$:A$"1"A$"3"O,699,20:55<P(A$):O,9999,3:3:O,17,0,A$,O:P,.,.,"PEN COLOR ",O:A.,O:.,11,5,"PEN #"(P)" IS ACTIVE.":OTPN(P) F5,OT:.,18,7," ",ObK208,.:.,8,9,"COLOR (1-16);0 TO EXIT":.,14,11,"#":CN$:CN(CN$):CN.CN1675PCN.PN(P)OT:P,PN(P):3:P,.,.,"PEN COLOR ",O:UOTCN:70ZOTPN(P)0_.,.,.," EXIT ":L10:IO8:SM$(I),LI10,.::FB.:(T)127::OXSX:OYSY:TXX:TYY\d215:A$:A$"":OTOTO:OT16OTTziP,OT:5,OT::A$""95nFB.100sSX214DMO:T,5999,3:xDMT:SX204SX212SM8:}SX184SX192SM7:SX164SX174SM6: SX146SX154SM5:, SX126SX134SM4:F SX106SX114SM3:^ SX84SX94SMT:v SX64SX74SMO: 100 SY57 FB. FB.:SX159SX18150:(T)127:: SX60SX9665:(2)127::E!SX230SX24090:305:O,9999,3:(T)127::SXOX:SYOY:1,SX,SY:XTX:YTY:PN(P)OT:h!(T)127::SX306SX330!DM3DM1:1,35,0,"OFF",1:O,9999,3:205!DM1DM2DM3:1,35,0,"ON ",1:O,9999,3!:!!J(T):J127FBO:JJ128:FB."J."JOSYSYO:YYO?"JTSYSYO:YYO:SXSXT:XXOd"J4SYSYO:YYO:SXSXT:XXO"J6SYSYO:YYO:SXSXT:XXO"J8SYSYO:YYO:SXSXT:XXO"J5SYSYO:YYO"J3SXSXT:XXO"J7SXSXT:XXO# O,SX,SY:a#0,1:4,12:1,3:2,7:3,15:SX150:SY150:X62:Y100:X,Y:1,X,Y:1,1,8:1,SX,SY:T2:O1#O,O:1,.,4.,.6,.:1,.,.6,4:P$,.,.,23,23:P$,O:3,O:SM$(9),0,0,4,8$PN(O)3:PN(T)7:PN(3)15:1,.,.,"":SM$(1),.,.,4,8:SM$(2),.,.,4,4::1,.,.," ",1:SM$(3),.,.,4,8$SM$(4),.,.,4,4::1,.,.,"":SM$(5),.,.,4,8::1,.,.,"":SM$(6),.,.,4,8::1,.,.,"",1:SM$(7),.,.,4,8$":1,.,.,"",1:SM$(8),.,.,4,8:DM1:P1:SM1:$'1,(133):3,(134):5,(135)%,300:I18:A:I,(A)::133,137,134,138,135,139,136,140b%11,.,.,"PEN COLOR :PEN # 1 :STAMP :ERASE OFF ",1:P,.,.,"PEN COLOR ",1h%6%;0,1:0,15,5,"SAVE PICTURE":208,.%@0,9,7,"PRESS <RETURN> TO ABORT"&E0,0,9,"ENTER PICTURE NAME..BE SURE NAME IS LESS  THAN EIGHT LETTERS"H&JF$"":F$::0,15,13,">>":F$:F$(13)3:&O(F$)80,0,11,(27)"@":0,15,11,"FILENAME TOO LONG":1,699,10: 2:0,0,11,(27)"@":330&T3:S$F$".PIC":S$".PIC"F$(13)3:C'U(S$),B0,P7168P16383: 2:S$F$".CM":(S$),B0,P55296P56295: 2:S$F$".BC":(S$),B0,P53280P53282'Y0,1:0,10,5,"DISK STATUS:"DS$:0,10,7,"PRESS BACK ARROW TO EXIT":A$"_":A$::3:'^0,1:0,15,5,"LOAD PICTURE":208,.'c.,9,7,"PRESS <RETURN> TO ABORT":F$""U(h.,.,9,"ENTER PICTURE NAME..BE SURE NAME IS LESS  THAN EIGHT LETTERS"z(m.,15,13,">>":F$:F$(13)3:(r(F$)8.,.,11,(27)"@":.,15,11,"FILENAME TOO LONG":1,699,10: 2:.,.,11,(27)"@":365/)w3:S$F$".PIC":(S$),B0: 2:S$F$".CM":(S$),B0: 2:S$F$".BC":(S$),B0)|0,1:.,10,5,"DISK STATUS:"DS$:.,10,7,"PRESS BACK ARROW TO EXIT":A$"_":A$::3:)0,1:0,15,5,"HELP MENU",1:0,10,7,"F1 - CHANGE BACKGROUND COLOR":0,10,9,"F3 - CLEARS SCREEN"j*0,10,11,"F5 - PAINTS OBJECT":0,10,13,"F7 - SAVES PICTURE":0,10,15,"F2 - CHANGES STAMP COLOR"*0,10,17,"F4 - DISK CATALOG":0,10,19,"F6 - RAM DISK":0,10,21,"F8 - LOADS PICTURE"+0,15,23,"PRESS <RETURN>",1:I115:A$::A$(13):A$::3:b+0,1:5,SC2: 2: :208,.:"PRESS F4 TO VEIW AGAIN. TO EXIT"~+208,.:A$:A$""405+A$(13)3::410+SCSCO:SC16SCO+0,SC:+:305:O,9999,3:+P,XO,YO,1:9,ER30:0,1:0,0,0,"QUIT!....ARE YOU SURE (Y/N)":208,.:A$:A$"Y" :3:T,ER30A$"Y"3::[,|,0,1:(ER)" IN LINE "EL::,0,1:.,10,2,"RAM DISK OPTIONS"--.,2,5,"1 SAVE PICTURE TO RAM EXPANSION":.,2,7,"2 LOAD PICTURE FROM RAM EXPANSION":.,2,9,"3 ABORT AND RETURN TO GRAPHICS SCREEN"b-AA$:AA$"3"AA$"1"460:AA(AA$):AA33:-AA19000,7168,0,0:3:-!9000,7168,0,0:3: