ф?ZQК ************* ZBasic 4.0 Graphics Editor **************?ZQК * Written by: Scott Terry *?ZQК * *?ZQК * In order to use this program, the mouse hardware *?ZQК * and software must be installed. Also, ZBasic *?ZQК * must be configured to support the mouse. Use the *?ZQК * onfigure option when powering up ZBasic. *?ZQК * NOTE: Additional keyboard commands: *? ZQК * "Q" - Quit *? ZQК * "S" - Save *?ZQК * "L" - Load (not yet done) *?ZQК * "N" - New *? ZQК * Also, clicking the RIGHT mouse button will toggle *?ZQК * the menu on and off. *?ZQК * (This program is not yet complete.) *?ZQК *******************************************************ZQ: ZQА- 17G`QА Ж(0)=0 К А1 "Cannot find mouse driver ... program halted.":А#yQColor=1:Background=0:Palette=0@ЛQА S(18),X(18),Y(18),Z(15,50),T(15), 7 S$(15), 63 Text$(15).(ЛQА I=0 К 14 : А X(I),Y(I),И(S(I)) : Аb2└Q"NEW" А "DRAW MENU" : Ж(4) : Menu_on=-1 : C=0 : Entry=1 : LEntry=0 : Z(0,Entry)=0 : NText=0d№Q"NEXT" CO=CnRА "WAIT MOUSE"xRА А Д MENUЫR Ж(5)ФаR А C А "N","Y","ERASE","LINE","STRAIGHT LINE","FILL","BOX","RECTANGLE","BOX FILL","F","B","P","TEXT","ARC","PIE","CIRCLE","OVAL","OVAL FILL" кCRА А"пCRА C<4 К C>9 К C<13 К C=CO┤ЕRА "NEXT"╛ИR"N" Ж(4) : А╚ПR"F"═ПRColor=(Color+1) К 16,╥аRА = Color : А* А 5,74 К 110,138:А=3▄└RА1@(4,3)"F";ц╨RЖ(4) : А·╫R"B" Ж(4):▌RBackground=(Background+1) К 16 : А ,Background : А,їR"P" Ж(4),6√RPalette=PaletteXOR1 : А=,,Palette : АЇS"ERASE"■SА : А "NEW"чS:шS"LINE" Type=1`SА=Color : А X0,Y0j%SЖ(4) : А8 Ж(3)AND1t.S X=Ж(1):Y=Ж(2)~@S А А X<>X1 К Y<>Y1'ИiS Ж(5):А 0 : А X0,Y0 К X1,Y1ТЙS X1=X : Y1=Y-ЧХS А=Color : А X0,Y0 К X1,Y1 : Ж(4)Ь╡S А Аж╡SА9░┬SА "SAVE ENTRY"║┼S:▄┼S"STRAIGHT LINE" Type=1ц╦SА=Color : А X0,Y0Ё█SЖ(4) : А8 Ж(3)AND1·фS X=Ж(1) : Y=Ж(2)ЎS А А X<>X2 К Y<>Y2T X2=X : Y2=Y)+T А 0 : Ж(5) : А X0,Y0 К X1,Y1:"KT А Ж(X-X0)>Ж(Y-Y0) К X1=X:Y1=Y0 :А X1=X0:Y1=Y-,ЛT А=Color : А X0,Y0 К X1,Y1 : Ж(4)6лT А А@лTА9д╕TА "SAVE ENTRY"о╗T:╨╗T"RECTANGLE" Type=2ф┴T"R2" А=Color : А X0,Y0ю╤TЖ(4) : А8 Ж(3)AND1°┌T X=Ж(1) : Y=Ж(2)ьT А А X<>X1 К Y<>Y1)U Ж(5) : А 0 : А* X0,Y0 К X1,Y15U X1=X : Y1=Y- AU А=Color : А* X0,Y0 К X1,Y1 : Ж(4)*aU А А4aUА9ШnUА "SAVE ENTRY"вqU:№qU"BOX FILL" Type=3 wUА "R2") zUЖ(5) : А* А X0,Y0 К X1,Y1 : Ж(4)` ЪUАj ЫU:─ ЫU"BOX" Type=2╬ бUX2=X0:Y2=Y0╪ нUА=Color : А X0,Y0т ╜UЖ(4) : А8 Ж(3)AND1ь ╞U X=Ж(1):Y=Ж(2)Ў ╪U А А X<>X2 К Y<>Y2(√ V X2=X : Y2=Y : XD=X-X0 : YD=Y-Y0) !V Ж(5) : А 0 : А* X0,Y0 К X1,Y1, AV X1=X : Y1=Y : XA=Ж(XD) : YA=Ж(YD)8 eV А XA>YA К Y1=Y0+Ж(YD)*XA :А X1=X0+Ж(XD)*YA- аV А=Color : А* X0,Y0 К X1,Y1 : Ж(4)( └V А А2 └VА9М ═VА "SAVE ENTRY"Ц ╨V:╕╨V"CIRCLE" Type=4╜╓VX2=X1:Y2=Y1:R=0:А# 0,0┬ЄVЖ(4) : А8 Ж(3)AND1╠√V X=Ж(1):Y=Ж(2)╤ W А А X<>X1 К Y<>Y10╓6W X1=X : Y1=Y : XD=(X-X0)/2 : YD=(Y-Y0)/24рfW RT=Ж (XD*XD+YD*YD+0.) : XT=X0+XD : YT=Y0+YD"ъ╝W А 0 : Ж(5) : А$ X2,Y2,R'Ї╫W А=Color : А$ XT,YT,RT : Ж(4)■ЄW X2=XT : Y2=YT : R=RTX А АXА9АXAX=0:AY=0:А "SAVE CIRCLE"К X:м X"OVAL" Type=5╢ &X"OV2" X2=X1:Y2=Y1:R=0└ 8XЖ(4) : А8 Ж(3)AND1╩ AX X=Ж(1):Y=Ж(2)╘ SX А А X<>X1 К Y<>Y10▐ |X X1=X : Y1=Y : XD=(X-X0)/2 : YD=(Y-Y0)/2*ш мX XT=X0+XD : YT=Y0+YD : AX=0 : AY=0ОЄ ╠X А XD=YD К RT=1.4*Ж(XD) :А А Ж(XD)>Ж(YD) К RT=1.4*Ж(XD):AY=-Ж(128-Ж(128*YD\XD)) :А RT=1.4*Ж(YD):AX=-Ж(128-Ж(128*XD\YD))"№ ╬Y А 0 : Ж(5) : А$ X2,Y2,R2щY А=Color : А# AX,AY : А$ XT,YT,RT : Ж(4)Z X2=XT : Y2=YT : R=RT Z А А. ZА9t-ZА "SAVE CIRCLE"~0Z:╪0Z"OVAL FILL" Type=6 т6ZА "OV2"ь9ZА 0 : Ж(5) : А$ X2,Y2,R%ЎTZА=Color : А$ А X2,Y2,R : Ж(4)<oZАFpZ:;ЦpZ"PIE" Type=7 : Routine = В "PIE ROUTINE" : А "DO IT"ЫВZ:.аВZ"ARC" Type=8 : Routine = В "ARC ROUTINE"кСZ"DO IT" X2=X0:Y2=Y0:R=0┤гZЖ(4) : А8 Ж(3)AND1╛мZ X=Ж(1):Y=Ж(2)╚╛Z А А X<>X1 К Y<>Y1@╥чZ X1=X : Y1=Y : XS=X-X0 : YS=Y-Y0 : XD=Ж(XS) : YD=Ж(YS)▄[ А А XD>YD<ц+[ XT=X0 : YT=Y1 : RT=XD : AX=0 : AY=(128*YD\XD)-128Ёq[ А<·t[ XT=X1 : YT=Y0 : RT=YD : AX=(128*XD\YD)-128 : AY=0║[ А А5║[ SBT=32-Ж(XS)*Ж(YS)*32 : А SBT=32 К SBT=0ъ[ А А YS>=0Bї[ А YD>=XD К SBT=SBT+128 :А А YD=0 К XS<0 К SBT=128 9\ А"<\ А XD>YD К SBT=SBT+128N\ А А&N\ А 0 : Ж(5) : А, Ж(Routine)&"_\ X2=XT : Y2=YT : R=RT : SB=SBT5'w\ А=Color : А# AX,AY : А, Ж(Routine) : Ж(4),Т\ А А@Т\А9LEntry К LEntry=LEntry+1░_Entry=Entry+1т_Аь_:(#_"FILL" Type=9&Ц#_А=Color : А Ж(1),Ж(2) : Ж(4)Ё#3_А "SAVE ENTRY"·#6_:T$6_"TEXT" Type=10h$<_А %(X0,Y0);"";Text$(NText)%r$]_Ж(4) : А Text$(NText)="" К А/╕$Е_X1=NText : NText=NText+1 : А "SAVE ENTRY"'Т_:%'Т_К *****************************%$'Т_К * DRAW SELECTION MENU *%.'Т_К *****************************8'Т_"DRAW MENU" B'Т_А 3.L'Ш_А I=0 К 2 : А 0,I*70 К 1015,I*70 : А1V'╠_А I=0 К 1024 К 113 : А I,0 К I,140 : А.`'ї_А 335,0 К 335,140 : А 332,0 К 332,140j'`А I=0 К 8%t'#` А К I*113+X(I),Y(I),И(S(I))~'Y`АИ'e`А I=9 К 14,Т'k` А К (I-6)*113+X(I),Y(I)+70,И(S(I))Ь'з`Аж'│`А 957,30 : А 957,100%░'╟`А=Color : А* А 5,75 К 110,137║'с`А1@(4,3)"F";─'ё`А1@(12,3)"B";╬'aА1@(20,3)"P";╪'aА NaК-*NaК *************************************-4NaК * GET MOUSE DOWN IN MENU *-9NaК * ON EXIT: MENU = TRUE IF IN MENU *->NaК *************************************HNa"WAIT MOUSE" : А XRNaMENU=0TNaА3 : А4 И =""WN2a"WAITING" А3 : А4 Ж(3)=08\N=140 К А C=0 К "WAITING" :А А1uN└aА Д Menu_on THENIF C=0 К "WAITING" :А А5vN▀aC=X0/113+Y0/70*9+1 : А C<4 К C>9 К C<13 К АwN@bА8 Ж(3)AND1zNCb C=X0/113+Y0/70*9+1CNgb А CO<>C К А "HIDE SELECTION" : CO=C : А "SHOW SELECTION"5ДNb X=Ж(1):Y=Ж(2):А Y<140 К X>339 К X0=X:Y0=YОN╞bА9ШN╙bMENU=-1 : АшN┌b: ЁN┌b"KEY"ЄN┌bI=Д(1,"SLNQ",Inkey$)(№NєbА I А "SAVE","LOAD","NEW2","QUIT"OcА "WAITING"Oc:░Oc"QUIT"*║OcЖ(5) : А LEntry=0 К А : А- 2 : АR╝O#cА "SAVE?":А : А File$="" К А :А А1"Graphic Saved in File: ";File$:А1:А:─O[c"SAVE?" Ж(5):А' 0,6:А В:А1"Save graphics ? ";3╔OtcА3 : File$=И : А4 Ж(File$) : File$=И(File$)G╬OЬcА File$="N" К File$="":А :А А File$<>"Y" К ╔O :А А "SAVE"Pуc:Pуc"SAVE"(PуcЖ(5) : А' 0,6 : А В/2PЎcА "Enter filename to be saved as: ";File$3 К C<10 К C>12 К А "SHOW SELECTION"0R╝dА5R┐d А LEntry=0 К gR:R═d I=0 : I2=0 : А3DR┘d I=I+1NR▌d А NOTI2 К I2=Z(0,I)XR¤d А I2 К А "DRAW I"bR e А4 I=LEntry gReА А╨ReЖ(4) : А "WAITING"└]e"Y"┼]eА╩]eА I=1 К LEntry╘]%e А "DRAW I"▐](eАЄ]5eЖ(4) : А иa=0 К B$=И(B$,2) 2ihА В=B$PFi!h"INIT" S$(1)=В S$(Z(2,1)) : S$(2)=В S$(Background) : S$(3)=В S$(Palette)CPimhC$="MODE 5 : COLOR "+S$(1)+","+S$(2)+","+S$(3) : А "PRINT C$"Zi▓hАxi│h: Вi│h"SAVE I"$Мi│hА J=1 К 10 : T(J)=Z(J,I) : А)ОiуhА J=1 К 8 : S$(J)=В S$(T(J)) : АEСiiА T(2)<>TColor К TColor=T(2):C$="COLOR = "+S$(2):А "PRINT C$"УiNiА А T(1)>3 К T(1)<9]ЦiЕi А AX<>T(7) К AY<>T(8) К AX=T(7):AY=T(8):C$="RATIO "+S$(7)+","+S$(8) : А "PRINT C$" Ыi jА АBаi jА T(1) А "S1","S2","S3","S4","S5","S6","S7","S8","S9","S10"кi,j"PRINT C$" А1 #1,C$ : А ╛i?j"S1" A$="PLOT " : А "S123"╚iNj"S2" A$="BOX " : А "S123"╥i]j"S3" A$="BOX FILL "=▄iij"S123" C$=A$+S$(3)+","+S$(4)+" TO "+S$(5)+","+S$(6) : А цi└j"S4"Ёi└j"S5" A$=""<їi╠j"S45678" C$="CIRCLE "+A$+S$(3)+","+S$(4)+","+S$(5) : А"·ik"S6" A$="FILL " : А "S45678"(j$k"S7" А "S4" : A$=" TO " : А "S78"j6k"S8" А "S4" : A$=" PLOT "$jEk"S78" C$=C$+A$+S$(6)+",64" : А)@jlk"S9" C$="FILL "+S$(3)+","+S$(4) : АKJjЫk"S10" C$="PRINT%("+S$(3)+","+S$(4)+") "+И(34)+Text$(T(5))+И(34) : А/uўkК,0uўk"SHOW SELECTION" : C1=1 : C2=0 : А Xu#:ul"HIDE SELECTION" : C1=0 : C2=3#XulА CO<4 К CO>9 К CO<13 К А&buOlX=(CO-1) К 9*113 : Y=(CO-1)/9*700lu{lЖ(5) : А C1 : А* А X+3,Y+5 К X+110,Y+67quйlА CO>9 К I=CO-3 :А I=CO/vu╞lА C2 : А К X+X(I-1),Y+Y(I-1),И(S(I-1))4АumА CO=9 К А 957,30 :А А CO=18 К А 957,100Фu3mЖ(4) : АP├:mК%Z├:mК *****************************%d├:mК * PATTERN DEFINITIONS *%n├:mК *****************************x├:mК --- UP ARROW ---.В├:mА 35,40,RRRRDDDDRRRRUUUURRRRHHHHHHKKKKKKМ├:mК --- DOWN ARROW.Ц├:mА 35,35,RRRRUUUURRRRDDDDRRRRKKKKKKHHHHHHа├:mК --- ERASER`к├:mА 28,25,RRRRRRRRRRRRRRJJJLLLLLLLLLLLLLLDRRRRRRRRRRRRRRDDDLLLLLLLLLLLLLLUUUUHHHDJJJDDDHHHUU┤├:mК --- LINE╛├:mА 38,60,IIIIIIIIIIII╚├:mК --- STRAIGHT LINE4╥├:mА 25,35,RRRRRRRRRRRRRRRR-KKKKKKLL+UUUUUUUUUUUU▄├:mК --- BUCKET0ц├:mА 70,32,HHHHKKKKKKJJJJIIIIIIURRDLDR-DD+LDRЁ├:mК --- BOX9·├:mА 35,17,RRRRRRRRRRRRDDDDDDDDDDLLLLLLLLLLLLUUUUUUUUU─:mК --- RECTANGLEA─:mА 25,24,RRRRRRRRRRRRRRRRRRRDDDDDDDLLLLLLLLLLLLLLLLLLLUUUUUU─:mК --- RECTANGLE FILLA"─:mА 25,24,RRRRRRRRRRRRRRRRRRRDDDDDDDLLLLLLLLLLLLLLLLLLLUUUUUU,─:mК --- TEXT;6─:mА 35,25,UURRRRRRRRRRRRRRDD-HLLLLLL+DDDDDDDDDDLL-RRR+R@─:mК --- ARCJ─:mА 38,18,RRRRJRRJRJJJDDDT─:mК --- SEGMENT0^─:mА 38,20,RRRRJRRJRJJJDDDLLLLLLLLLLLLUUUUUUUh─:mК --- CIRCLE5r─:mА 50,13,RRJRRJRJDJDDKDKLKLLKLLHLLHLHUHUUIUIRIRR|─:mК --- OVALDЖ─:mА 53,20,RRRRRJRRRJRJRJDKLKLKLLLKLLLLLLLLHLLLHLHLHUIRIRIRRRIRRRР─:mК --- OVAL FILLDЪ─:mА 53,20,RRRRRJRRRJRJRJDKLKLKLLLKLLLLLLLLHLLLHLHLHUIRIRIRRRIRRR