CHARDES V 4.2 B$ :'PROGRAM PRO NAVRH ZNAKU EPSON%:' CHARDES V 4.2 8.5.88:'("CRT:M2"(2 P(@,),S(@,)4< L$( ),LC( ,)::'PISMENA A KODY#FLP:'POINTER V PISMENECHP I @*Z J :P(I,J): Jd InST$"EMPTY"&x"S : NLQ [Q] NORM [N]"#VN :SN:BX$"NORM" K$: K$"" # K$"Q" VN@:BX$"NLQ" "BOX"( ,:"R: ";ST$#LYSP`S :'POMOC.CARKA! VP ,LY,VP ,LY"ED": "EDIT" FG "OPT" VN "SYNT"*  ,:"M";(@)2 ,: (): ,, ,:"C : ";L$ LPO LM L$(LP)L$ @ " LP$, LM "NENI PAMET!!":6LMLM:L$(LP)L$@:'NALEZENA SHODA+J  ,:"C ";(0)T VN ^:'KODOVANI NLQh X 0r YF '| YF M:: M` A Y M/AA(`Y)P(X,YYF): YLC(LP,@XYF)A  YF X  "TISK":'KODOVANI NORMALULC(LP,)BT X A :9 Y `:AA(`Y)P(X,Y): YLC(LP,X)A X  "TISK"3 ,: ();: ,"& "C ";L$(LP);", #";LP)0 VN MM:: MM : I MMD (LC(LP,I));" ";N IX "OPT": "CLRH": :'VOLBA*b  ,: "O";(P)l ,0-v:"E-R-S-C-T-P " K$: K$"" # ,:()  "CLRH" K$"E" "ED" K$"R" "REC" K$"S" "STO" K$"T" "TEST" K$"C" "CLR" K$"P" "PRN"  "OPT" "STO" ST$"EMPTY" > ,8:"REF STORE ALREADY FULL! - OVERWRITE ?" K$:K$""   K$"Y" "OPT"ST$L$(LP)+   ,: "S";(@)* XLL LR"4 YLD LU:S(X,Y)P(X,Y): Y> X :'ULOZIT VZOR!H ,: ()(R ,:"R: ";ST$ \ "OPT" f"REC":p[p,]>,SP,>VVN,SPSSN, z "BOX1"!  ,: ()" @,:"R: ";ST$ XLL LR YLD LU S(X,Y) ;CXVPVXV:CYSPSYSKV+[P,]CX,CY,Sffff,G{ [0]CX,CY,P Y X  "BOX"  "OPT" "TEST"*  ,:"T";(@)= ,8:"R : ";R$:R$(R$,)= ,8:"T ";R$;" ";L$(LP);( )$ "MPR" :'MODUJ PRINTER. "LUS" :'LOAD USER SET8"LPT:M0,S2,$A"GBP "ZNAK ";L$(LP);" ";R$;"<";R$;"<";" ";R$;" ";"< ";R$;R$;" <<"LP5V ,8:"P ? [Y/N]";( )` K$:K$"" `j K$"Y" "OPT",t ,8: "H/D";(H)~FLP:TLP  "DATP"  "OPT" "PRN":"A :" :"LPT:M0,S2,$A" I LM L$(I);( );I: I"P ";F! `,:" ";T% H,: "H/D"  "DATP" "NULOVANI PAMETI [0] "K$:K$""   K$"0" LM1 K$"0" p, :  ,  I @*( J :P(I,J): J2 I < F"CLR"2P[p,]VP,SP,VPVVN,SPSSN,Z I @*d J :P(I,J): Jn I x "BOX"  "ED" "BOX1"-VP>:SP :'UMISTENI LHOR ROHU   "BOX" ,: BX$-VPp:SP :'UMISTENI LHOR ROHU)VRH:SR::'ROZMERY OKRAJUV(VRVN) :'VODOR. ODSTS(SRSN) :'SVIS. ODST! I VN :'SVIS. CARY/ [ ,]VPIV,SP,VPIV,SPSNS I" I SN :'VODOR. CARY0 [ ,] VP,SPIS,VPVNV,SPIS I", "EDIT" :'ZMENA ZNAKU)6  ,:"E - CR"@FG%J"ED1": VN h:'NORMAL@TLD:LU:LL:LR0:KV:OFO:'NLQ ^ rFhLD:LU:LL:LR:KV:OF@:'NORMrEXLL:EYLD=|CXVPVEXV:CYSPSEYSKV)[p,]CX,CY,,G{ K$: K$""  K(K$))[,]CX,CY,,G{ K  :'UP K  :'DOWN K 0 :'LEFT K D :'RIGHT( K@ K b :'INS,A( K K&  :'DEL,S KP X :'CR K FG: | :'OSTATNI IGNORUJ$ EYLD EYEY:: EYLD  |+ EYLU EYEY:: EYLU & |$0 EXLL EXEX:: EXLL : |+D EXLR EXEX:: EXLR N |X "CLRH":b:'INSERT POINT+l[P,]CX,CY,Sffff,G{v [0]CX,CY,PP(EX,EY)  |:'DELETE POINTA(CX,CY) A0 +[P,]CX,CY,Sffff,G{ []CX,CY,P+[,]CX,CY,Sffff,G{P(EX,EY)  "BOX" \, : |& (, : @,  | "ERR"  ILD LU JLL LR  P(J,I); * J:4 I>$H "SYNT" :'SYNTAKTICKA KONTROLA+R  ,:"C";(0)\EEf YLD LUpEFz XLL LRP P(X,Y) (P(X,Y) P(X,Y)) EF X EFO  :'RADKA OKA VPVR ,SPSSY,"_X ",, p, EE: Q [,] VPVR ,SPSSY,"",, Y:'HORNI A DOLNI RADKY,BT:A :'DOLNI RADKA NEPOUZITA, X :AAP(X,): X" A $ :'NENI DOLNIBT:A, X :AAP(X,): X+ A $ :'JE DOLNI,NENI HORNIP VPVR ,SPSS,"_ HD",,:EE$ EE ?.  ,: "C- CR ": "ED1": "SYNT" 8 "CLRH"4B  ,: ():  ,:L "MPR" :'MODUJE PRINTERV "LPT:M0,S3,$A"` VN ~ Fj P (,x,,,k,); :'NASTAVENO NLQ SANS SERIF t P:~ P (,x,);  "LUS":'LOAD USER SET7 P (,:,,,);:'COPY TO RAM, P (,%,,);:'SEL USR. P (,&,);"<<";:'MENENY ZNAK VN $ P (, ,);:' ?? I   P (LC(LP,I)); I :'DATA ZNAKU P (,) :'NORMAL I  P (LC(LP,I)); I :'DATA ZNAKU( P (,); 2 < "DATP"F K$: K$"" F P TLM TLM,Z P (,x,,,Q,<,);d IF Tn P L$(I);();x K$"H" % J MM:P LC(I,J);","; J:P ) J MM:P (LC(I,J));","; J:P I P EM,*W^#V!E!͒EM,!}2a*a&@!p