SHARPTEXT MZ-800 y SHARPTEXT,VERZE MZ-800,:, : "NORMALNI TEXT...1"*,(: " ...2"9( ,p,"SHARP MZ-821",,,82 p, \,"SHARPTEXT",@,,< A$: A$"" <F A$"2" AP A$"2" "CRT:M3": nZ A$"1" <1d"CRT:M1":@: ,:A n:x A$(),B$()"O2T5V15D1F4A2B2"8,p,"SHARP MZ-821",,, p, \,"SHARPTEXT",@,, : ,:"CTENI SOUBORU...1": ,(:"NOVY SOUBOR.....2" A$: A$""  A$"2" : n A$"1"  A$"1"  CTENI SOUBORUD:"NAZEV SOUBORU:";X$: (X$) ,p: c:"PRIPRAV SOUBOR ";X$;" NA CMT:": ,:"PO NASTAVENI UVODU SOUBORU STISKNI "#,"CMT:"X$( I z: #,A$(I)$ A$(I)"KONEC SOUBORU"  I # :IIK"O3F1D3A0"&": I z:I;"";A$(I), A$: A$"" ,6,p@ A$"K" h$J A$(I)"KONEC SOUBORU" hT A$() ,^ Ih J  :: Jr "O3D1F3A0"|, :"LISTOVANI...........1":,(:"LISTOVANI OD RADKU..2":,0:"KONEC LISTOVANI.....3":,8:"MODIFIKACE SOUBORU..4" A$: A$""  A$"1" " A$"3" n A$ "4"  A$"2"   "CISLO RADKU:";IL  IIL z:I;"";A$(I)$ A$(I)"KONEC SOUBORU" h A$: A$""  A$"K"  A$()  I  h NOVY SOUBOR.&:"NAZEV SOUBORU (.16 ):": X$:,0 (X$) ,p: &:"VKLADEJ POSTUPNE RADKY:"D I z :I&N A G : GX" ";(G)"" b A$(I)l A$(I)"K" v IA$(I)"KONEC SOUBORU":IKI :"OPRAVY: (ANO..A;NE..N)" A$: A$""  A$"N"  A$"A" :I0& II0 z:I;(@)A$(I)$ A$(I)"KONEC SOUBORU"  A$: A$""   ,p* A$() A$"O"  :  A$"O" I K `:: K "O3D0C3": ,:"LISTOVANI.............1": , :"LISTOVANI OD RADKU....2": ,0:"ZAPIS SOUBORU NA CMT..4"0 ,(:"MODIFIKACE SOUBORU....3"/ ,8:"KONEC.................5"* A$: A$"" *4 A$"5" > A$"1" H A$"2" : R A$"3" \ A$"4" *+f:"PRIPRAV KAZETU PRO ZAPIS SOUBORU:"pX$)z:"PO PRIPRAVE STISKNI "#,"CMT:"X$' I IK:#,A$(I): I #5  ,H:p,p:\, `: , :"LISTOVANI (OPRAVY)...1":,(:"DALSI SOUBOR(NEBO KONEC)..2" A$: A$""  A$"2"  A$"1" A$"1" A$"2"  MODIFIKACE SOUBORU4"OPRAVY V SOUBORU...1":"ROZSIRENI SOUBORU..2""VLOZENI RADKU......3""ELIMINACE RADKU....4" A$: A$"" !$ A$"4" d: : n!. A$"3" : : n8 A$"1" : nB A$"2" 0L: I IK: H:I;" ";A$(I): I VIKI: IIK z&` A G : G.jI;(G)"":" ";: A$(I): p, 2t H "POZOR! KONEC PAMETI,ZADEJ K!"(~ A$(I)"K" A$(I)"KONEC SOUBORU"$ A$(I)"KONEC SOUBORU"  IIKI: :"OPRAVA-CISLO RADKU"; " I0: I0IK I0  II0(:" ";A$(I):"NOVY TEXT:": A$(I) :"CISLO RADKU:";I0 I0IK I0  2:"CISLO RADKU,ZA KTERY MA BYT TEXT VLOZEN:"(  2 IV;< IIV IK:B$(I)A$(I): I:IKIKAB$(IK)"KONEC SOUBORU"&B IIV IK:A$(I)B$(I):IF"VLOZENY TEXT:""P" ";(G)"" : A$(IV)Zd dn:"OD RADKU:";I1x x "DO RADKU:";I2 II1 I2:A$(I)" ": I+ I I1:A$(I)A$(I): IIEI2I1) II2 IK:A$(IIE)A$(I):I$IKIKIE:A$(IK)"KONEC SOUBORU" 0