PICASO.PLOTTER 4 -) :'**********************************):'* PICASO PLOTTER 4 *):'* K *)(:'* ------------------------------ *)2:'* +C (C)+ $ D&N *)<:'* B DARBUJAN CESKA LIPA *)F:'* B 2473 18.4. 1988 *)P:'**********************************Z:'Ld"CRT:M1":,p:@,:,,,CCnW(X)((C$,X,@)):N(X)H((C$,X,@));x[@]H, ,"PICASO PLOTTER",,@;[]D,$,"PICASO PLOTTER",,@;[@]@,(,"PICASO PLOTTER",,@BM,:H,,"D A R B U J A N ",,@*t, ,"AUTOR",,M,DFp : F,pF, F,4F:cZ:,p:,:Fp  :ZZ:Z@Z[Z]F, ,@b:[],,@: ,,,1:[]0, ,@5 A$(z):X:Y:A:B.S():WE$:WE$"" S W"CRT:M1":,`:"JSEM PRIPRAVEN NAHRAVAT":,,,C,:" PLAY"#0,"PLOTTERDATA"N#0,SX:`,@:"N !":p,p:"NAHRAVAM !""FXSX:#0,A$(FX)^"::::"DELETE-300"::"GOTO310":::"DRZ STISKNUTOU KLAVESU [CR] !":,:Q,:'**************************************************************************6:'TRANSFORMACE NA DATA@W:"CRT:M3" J"#"::TWSX *^C$A$(W):C((C$,)):A$(W)""hWW: zW;" ";$rC , , , , , , $|  WSX ^j"G."()"#"()::" DRZ STISKNUTOU KLAVESU [CR] ! "; :,:R:'***************************************************************************H::"DELETE-620"::"RENUM:CLS:LIST-99:LIST 130":,:BAW():BN( ):"PMOVE";(A);",";(B):NXW():YN( ):"PLINE";(X);",";(Y);:"!"::'LINEWXW():YN( ):"PLINE";(X);",";(Y);:AX:BY:"$"::'LINECXW():YN( ):"PLINE";(X);",";(B);",";(X);",";(Y);",";(A);",";(Y);",";(A);",";B::'BOX?SW():"PCIRCLE";(A);",";(B);",";(S);:"!":&S((C$,)):"PCOLOR";S:2T2W():C$(C$,(C$))T2 ~"PMOVE";(A);",";(BT2);":GPRINT[";(T2);",0],";();C$;();":PMOVE";(A);",";(BT2)::'Y"PMOVE";(A);",";(BT2);":GPRINT[";(T2);",0],";();C$;()a":PMOVE";(A);",";(BT2);":GPRINT[";(T2);",0],";();C$;()h":PMOVE";(A);",";(BT2);":GPRINT[";(T2);",0],";();C$;(){&":PMOVE";(A);",";(BT2);":GPRINT[";(T2);",0],";();C$;();"PMOVE";(A);",";(B):0"!":WSX::(A$(W),)"1" :1D":PMOVE";(A);",";(BT2):N"$":Z:WSX:X(A$(W),)"3" C$A$(W):A$(W)"":XW():YN( ):",";(X);",";(Y);:AX:BY:WW: Z:: Xb:Rl:'***************************************************************************)v:'**********************************):'* *):'* *):'* NAZEV OBRAZKU *):'* P MZ-1P16 *):'* *):'* J P P *):'* B *):'**********************************ZMAX:"CRT:M1":::W(X)((C$,X,@)):N(X)H((C$,X,@))",,,G&P,:"P "( ,:"NAZEV PROGRAMU ?" TN:GR::,H::TN::::'******************************************************************************