<UPDATA U\VCAZ:16500D16000:AZ:MA260D 5DT1$(20),T2(20),T3$(MA4)?D2000\UVD2"MEMORIA BETELT.":2040D<"NINCS ILYEN NEV^ ADAT]LLOM]NY.":2040DF"TUL NAGY BLOKKSZ]M.":DP"EHEZ KEV@S A L@TREHOZOTT BLOKKSZ]M!":2040 EZKU0,"NINCSEN EGY ADAT]LLOM]NY SEM.":2040:E"",190:'EK1KU8ET1$(K)A$,>EFEUV60[E,A1(A$)(B$)wE6(A$,A,(B$))B$,F0:E@:F1:E"Kil`pt`l a programb[l.":"Visszat`r`s az adatok t|rl`se n`lk~l : 'GOTO 2000'":E"PDATA SYSTEM"F"A PDATA programmal sz|veges adat}llom}nyo-kat lehet l`trehozni.Az adat}lloUVm}nyokal magn[ mveleteket is lehet v`gezni. A programkatalogusban fell kell t~ntetni a PDS jelz`st `s az }llom}ny";7G" PDS blokksz}-m}t.":"A beolvas}s el{tt az adat}llom}nyt l`tre kell hozni a feljegyzett n`vvel `s blokk- sz}mmal."G"Ha LUV_j adatokat akarunk hozz}irni az adat- }llom}nyhoz nagyobb m`ret FILE-t hozzunk l`tre."G:"Ha elolvastad nyomj}l SPACE-t."G" ",1016:LH"A program az adat}llom}nyokat blokkokra osztja.Egy blokk fel`pt`se:":"1 sor blokk azonost[":"3 UVsor sz|veg"I"Beolvas}skor '' g`pel`s`vel a blokkon belli hib}k javthat[ak, mert igy ujra az el{z{ sorba rhatunk.Ha olyan sorba runk amelyben m}r van valami hangjelz`st kapunk."+I :"Ha elolvastad nyomj}l SPACE-t."?I " ",1036:UVI"Kil`p`s a beolvas}sb[l '' .Ezt a jelet nem r|gzti a rendszer.A FILE V@GE jelet viszont igen : ''.Ilyen jelet csak a 3. sorba rjunk!"J"Beolvas}sn}l a '+' jel }tugorja az `ppen beirand[ sort."bJ"List}n}l `s kiirat}sn}l b}rmely bilUVlenty megnyom}s}val lapozhatsz."J$"Keres`sn`l ha spacet nyomsz a keres`s meg}ll,T-val folytathatod."JL4580J"]TNEVEZ@S"J"R`gi n`v";A$J200J"Uj n`v";T1$(K)K2000K"FILE t|rl`s"0K"FILE n`v";A$:200TK("T\RL@S='T'EU V B]RMI M]S=MEN^";B$fK2B$"T",2000K<"T|rl|m a "A$" nev FILE-t!"KAKKU,KUKU1:2040KFA1(T2(KU)T2(K))KPT3$(AT2(K1))T3$(AT2(K))KZKdKUKU1LnAKKU1:T1$(A)T1$(A1):T2(A)T2(A1):%LqQQ("")/Ls2000PL:9)(2)"**UV PDATA **"(18)L:"1. L`trehoz}s":"2. Beolvas}s":"3. Kiirat}s":"4. Lista":"5. Keres`s":"6. Javt}s":"7. Inform}ci[":"8. ]tnevez`s":"9. T|rl`s":"0. Kil`p`s":M3)"********** HSFT SOFTWARE **********";M64,131;41,204;53,158;47,179cMAUV $:A$"0"A$"9",2020:A(A$)1uM30,30;120,60{MMA900,3000,3500,4000,4500,5000,5500,1000,1200,1300MA02000:A:2000M "L@TREHOZ]S":M "N`v,blokksz}m";A$,AN A0,3010N KU20,503N (T2(KU)4A)MA,70:50^N KUKU1:TUV 1$(KU)A$:T2(KU)T2(KU1)A4hN 2000yN "BEOLVAS]S"N "Magn[r[l vagy Billenytyzetr{l";A$N A$"m"A$"M",F1:F0N "Adat}llom}ny n`v";A$N 200N F1,3700 O "Blokk kezd{sorsz}m";KZ1O KZ(T2(K)T2(K1))4,70:3545MO YKZ(T2(K^UV )T2(K1))4\O Y".Blokk"O T3$(T2(K1)1(Y1)4)"",20,40;90,40;20,50O "Azonost[";A$O A$"",3800O A$"+",3583O T3$(T2(K1)1(Y1)4)A$O A$""PA13:A".";5P T3$(T2(K1)1(Y1)4A)"",20,40;90,40;20,40=PA$OPUV A$"",3800yPA$"",AA1:A0,3570:A".";:3600PA$"+",3615PT3$(T2(K1)1(Y1)4A)A$PA$""P$A,YP.2000Qt"H]NY BLOKKOS A FELVETT FILE";KZ:KZ(T2(K)T2(K1))4,80#Q}"Indithatod a magn[t!"+Q~A$NQ$5,0,"Beolvas}s (UV elkezd{d|tt!"lQAT2(K1)1T2(K1)KZ4}Q#T3$(A)::Q"Bet|lt`s k`sz!":2040Q"KIL@P@S A BEOLVAS]SBOL:":"FILE:"T1$(K):"BLOKK:"YQ2040Q"KIIRAT]S" R"Magn[ra vagy K`peny{re";A$)RA$"m"A$"M",F1:F0DR"Adat}llom}ny n`v"UV;A$MR200[RF1,4200R"Blokk kezd{sz}m,v`gsz}m(0,0=teljes)";Q,WRQ0,Q1:W(T2(K)T2(K1))4RWQ,4050RYQWR(4)Y".Blokk "(20)S(5)" "T3$(T2(K1)1(Y1)4)" "(21)SA135SA":"T3$(T2(K1)1(Y1)4A)DSA:190UV:YNS"4580Sh"1= TELJES FILE , 2=FILEV@GE JELIG 0=MEN^";ASiA0,2000SjA1,KZT2(K):4209SkAT2(K1)T2(K):T3$(A)"",KZA:4209:ATl"NINCS FILE V@GE JEL!":4200*Tq"Nyomd meg a RETURN-t ha mehet!";A2TrA$FTAT2(K1)UV1KZST#T3$(A)[T:wT"Felv`tel k`sz!":2040T"LISTA"T12)"]LLOM]NYNEVEK"T90TA1KUTA":"T1$(A)20)(T2(A)T2(A1))4" BLOKK"T.U:"MEMORY TOTAL:"20)(T2(KU)4)" BLOKK":"MAX BLOCK:"20)MA" BLOKK"JU"FRE:"20)("UV")" BYTE"U"Melyik adat}llom}nyb[l akarsz blokkazono- st[ list}t(sz}m,0=MEN^)";AUA0,2000UKJAUKZT2(A1)1UAKZT2(KJ)4U190#VT3$(A)"",(AKZ)41". EMPTY BLOCKNAME"::(AKZ)41". "T3$(A):BV(4)" VISSZA=SPACE "(20'U V)YV" ",4590:2000hV"KERES@S"pV90V"Adat}llom}ny kezd{,v`gsorsz}m(0,0=|sszes) ";Q,WVQ0,Q1:WKUV"A keresett sz[";B$W:"1. Blokkazonost[k k|z|tt":"2. Mindenhol":"3. MEN^"5WA$:A$"1"A$"3",5020:A(A$)>WFO0TWU!VA5040,5200,2000\WG4~WYQW:"]llom}nyn`v: "T1$(Y)WRT2(Y1)1T2(Y)GWA$T3$(R):300:F1,:Y"/"((RT2(Y1)1)4)1,T1$(Y)" - "T3$((R4)41):A$:FOFO1X" ",5100 X%XFO" darabot tal}ltam."/X5005JX"Wait ..., TU"V -tov}bb"mX"T","Continue":5080:5110{XPG1:5050X|"JAVIT]S"X"Melyik adat}llom}nyban";A$X200X"Blokksz}m,sorsz}m(0-3)";Q,WXT3$(T2(K1)1(Q1)4W)Y"G`peld be az _j sort!";A$4YT3$(T2(K1)1(Q1)4W)A$>Y2000##