PICASO PLOTTER 2 #% :'******************************%:'*PICASO PLOTTER 2 *%:'* MZ-1P16*%(:'*----------------------------*%2:'*+C (C)+ $ D&N*%<:'*B DARBUJAN CESKA LIPA*%F:'*B 2473 18.4. 1988*%P:'******************************>Z :KO: :\,:KO:"000000"-dS():WE$:WE$"" S drn()"CRT:M3":BA:MO::"CRT:M4":,:,@:BA@:MOx: : *F :A$:|,F:A$:*|,:"Z ##### .";+|,:"P ##### **";Q{TVORBA OBRAZKU,DOKRESLENI,POKRAC. KRESLENI,VYSTUP OBRAZOVKA,VYSTUP PLOTTER,LOAD DATA,PRIHREJ DATA,SAVE DATA,CLS,KONECP1:P2 : /P h, r, ^, , J, , , F, ,  : x : x+p,,,>,:3[],,p,G,:2PP1:FP1P2:t,F:" "::G: J(S():G():S G S():G()dH$:H$(X): ,H,"T !",,:F9CP::: #S G 0: t,P:" "3"(S) (S) (S)PP3,(S) (S ) (S@)PP6PP1PP2@PP2PP1,Jt,P:"":H,:HTG: ^: :OB: |h: : : |rQ xC|Qz x: : :F :A$:|,F:A$:WPOCATEK,LINE,LINE CONT,BOX,CIRCLE,TEXT,BARVA PERA,POSLEDNI ZRUS,RASTR,NAVRAT MENU: :Qy x*|,@:"Z ##### .";0|,`:"P ##### **";Q: HP1:P2 : :P , , , , , &, l, , , xP1 :P2H: :|,:"ROZTEC": $:@:FEpP:F2HP:FE,F2::: QQ0 :AX:BY:A$(Q)"1"W$(X)W$(Y): AQQ: :[BA]A,B,X,Y:A$(Q)"2"W$(X)W$(Y): G|,:"U CR":|,:"STRIG(3)":z1 :P3 P$(P) Qy D[BA]A,B,X,Y:AX:BY:QQ:A$(Q)"3"W$(X)W$(Y): AQQ: :[BA]A,B,X,Y:A$(Q)"4"W$(X)W$(Y): 0QQ:YB:XA:CI : :CI_AZp AZ :|,:"P ":z:QQ: 2A$(Q)"5"W$(Z):[BA]A,B,Z,: &QQ0P1:P2@: :|,:"VELIKOST PISMA": $:T2P: :|,:"KONEC - [CR]":|,:"MAZANI - [DEL]":X$"":T$:T$"" :NDT$(P)(X$)A$(Q)"6"W$(T2)X$: :QQ: NT$() (X$)[]A,B,X$,T2,T2:X$(X$,(X$)):(X$)[BA]A,B,X$,T2,T2: :: :XT$():: :BbX$X$T$:(X$)[BA]A,B,X$,T2,T2: :AlQQ: v:F:A$:|,pF:A$: vCERNA,MODRA,ZELENA,CERVENA$P1:P2: :PPP1"MOBAP:BABA@A$(Q)"7"(P):BBP: bQ :|,:"Z ":,:"####";Q:QQ : Q $ Q0ZQ :ZWFZQ:C$A$(F):(C$,)"1" (C$,)"3"AW():BW( )L OB |,@:"ZNOVU KRESLIT ?": (:W$"A" :   ( :p,@:"KROK:##";K; XXXoXoYY YFYFaB1(X,Y):B2(X,Y):B3(X,Y):B4(X,Y):B5(X,Y):[BA]X,YA |,@:"P X,Y":|,P:" ### ";A;B*|,p:"C X,Y":|,:"V:":|,(:"Z ":|,0:" #####";<4S():G():P3(@):S G P3 H>S():G()HP$:P$(P) P3 G [BA]X,Y:[B2]X,Y:[B3]X,Y:[B4]X,Y:[B5]X,Y:p,@:();:hRP$(X)"CRT:M3": ,H,"T !",,:F9CP::: \[B1]X,Y:[B2]X,Y:[B3]X,Y:[B4]X,Y:[B5]X,Y:P$"0" P$"9"K(P$):K,:,@:K;:KK :"10"; fCI pSYYK:zSXXK:YYKSXXK:YYKSXXK:YYKS YYKS@XXK:YYKS`XXKS@XXKXoXXXoYFYYYFB1(X,Y):B2(X,Y):B3(X,Y):B4(X,Y):B5(X,Y):[BA]X,Y:[BA]X,Y:[BA]X,Y:[BA]X,Y:[BA]X,YS 0: 4"|,:" ### ";X;Y"|,:" ####";Z  43[]q,0,,=,:$PP1:G: ~ .PP1)8S():G():S G LBS():G()#LS G 0: 85V(S) (S) (S)PP5`(S) (S ) (S@)PPjPP1PP2tPP2PP1/~0,:, :"####";P G  87A:B:X:Y:T$"?":@QQQ"C$A$(QQ):C((C$,))#C , , , , , , <"AW():BW( ):0XW():YW( ):[BA]A,B,X,Y:8XW():YW( ):[BA]A,B,X,Y:AX:BY:0XW():YW( ):[BA]A,B,X,Y:'SW():[BA]A,B,S,:N T2W():C$(C$,(C$)):[BA]A,B,C$,T2,T2:Q:K :W(X)((C$,X,@)):N(X)H((C$,X,@)):W$(X)("000"(X),@):Z(((XA)(XA)(YB)(YB))): A$(z):X:Y:OB:()BA:MO::BA@:MO3,,,R:+`,M,Z,,v,,O,@,m,r,I:9:,0,*:R,I:U:,I:,L,*,&,*,*,L,,:r(P1`:P2p:|,`:" ** NE **":|,p:" ** ANO **": :PpW$"A":W$"N"2-<MOBA((C$,)):::BA:=F :|,:"MOHU NAHRAVAT ?": (:W$"N" x-P|, :" RECORD.PLAY":@Z#0,"PLOTTERDATA"d#0,Q$nFQ:#0,A$(F): 0@xC$A$(F):C((C$,)):C , , , , , , < :: x~x,:"VYSTUP PLOTTER ?": (:W$"A"GR:x,:" POSUN PAPIRU ? ": (:W$"A":,M:&,:" PLAY":@#0,"PLOTTERDATA"M#0,SX:SXQz:|,0:"MNOHO PLOZEK!":;: xFXF1F1SX:#0,A$(FX):C$A$(FX):C((C$,)):W$"N"C , , , , , , <:C |, , , , , ,  0:::W$"A"= :|,:"MOHU NAHRAVAT ?": (:W$"N" x%: :F1: :QSX: x= :|,:"MOHU NAHRAVAT ?": (:W$"N" x)F1Q: :QF1SX: xR,P:"OPRAVDU ?": (:W$"N" x: U:,x:R,QT"CRT:M1":,@:@,:, ,,4:@M,?[@],(,"+ PICASO PLOTTER ",,`6"H,,"D A R B U J A N ",,@*,t,,"AUTOR",,6M,,@KO:¡:,8:&J@:TS:GR:,H:TFQ!^C$A$(F):C((C$,))#hC |, , , , , , r:, : x.|AW():BN( ):A,B:;XW():YN( ):A,B:%,X,Y:CXW():YN( ):A,B:%,X,Y:AX:BY:GXW():YN( ):A,B:%,X,B,X,Y,A,Y,A,B: SW():A,B,S:A,B:S((C$,)):S:2T2W():C$(C$,(C$))T2 %A,BT2:[T2,],C$:SFE:F2:AFE,BT2F2:[T2,],C$:::RGC((A$(Q),)):t,(:"POSLEDNI POLOZKA:":t,0 :FGC:G$:&GCG$"$ B.D" G$;" ";6GC@((A$(Q),(A$(Q))),@)2GC` v:VBB:G$::G$*GC@ GC W$(A);" ";W$(B)&0TY$k: ,@:" ";(,,);":";(,@,);":";(, ,);:TY$: ."K "P: