rUGYORS PROGRAMT]RUUC 20000,DA$"PROGRAMN@V - BLOKK / KAZETTA ADATOK":B$(500)YD:$0,8,(4)(2)" MEN^ LISTA "(20)(18)D($2,2,(4)" 1 "(20)" - J PROGRAM BER]SA":$4,2,(4)" 2 "(20)" - PROGRAMADATOK MAGNRL":$6,2,(4)" 3 "(20)" - PROGRAMADATOK MAGNRA"^E-[U$8,2,(4)" 4 "(20)" - GYORS RENDEZ@S":$10,2,(4)" 5 "(20)" - KIRAT]S":$12,2,(4)" 6 "(20)" - ADAT JAVT]S"E/$14,2,(4)" 7 "(20)" - V@GE "(4)" 8 "(20)" - SAVE":S$""E2S$:S$""50: (S$)8(S$)150: (S$) 240,90,60,470,310,1U10,590,610 F<: MAGNRA>FF:$7,0," KAPCSOLD FELV@TELRE A MAGNT !"zFPI11000::"PROGRAMADATOK":#N:I1N:#B$(I):::30FZ: MAGNRLFd:$7,0," KAPCSOLD LEJ]TSZ]SRA A MAGNT !":"PROGRAMADATOK":#N:I1N:#B$(I):::U30 Gn: ADATOK JAVT]SAG7GI1N:B$(I):"JAVTOD (I/N):?"KGC$:C$""170ZGV150: vGC$"N" C$"n" :30GC$"I" C$"i" 210 : 30G"J ADAT:";B$(I)GG30G: J ADAT BEK@R@SGNN1$H:$U0,10,(2)"KIL@P@S=*"(18):N"."," "(I)NH" "A$" :": L$:L$"*"NN1 : 290VH30iH"B$(N)L$:L$""rH,250H6: KIRAT]SH@K0HJ:"K|vetkez{k = + ",(I)H^"Visszat`r{ = SPACE "Ih$2,0,(4)" U ":$2,3,A$":"(20)IrI112)I|IKN400?I$I2,0,B$(IK):WIC$: C$"" 400uIC$"+" C$";" KK12IC$" "30I KN ʲ$0,0,(6)" "(4)(2)" Nincs t|bb adat!"(7)(18)(20)" ":330I400I: rendez7U`sJ:$6,0,(2)"OK V]RJ EGY KICSIT"(18)$J 10410,JD302JN^Jb:$7,4,"KAPCSOLD FELV@TELRE A MAGNT!"Jl I1 1000:::$7,0,"A MOST FUT PROGRAM FELV@TELE K\VETKEZIK!"Jv I1 1000::"GYORS PROGRAMT]R"J: 30J( <<< GYORS RENDU EZ >>>K( I1 NK( JI N: NI;1K( B$(J)B$(I) 10470AK(AJ(B$(J))QK(AI(B$(I))^K(A0(AJ)mK(A1(AJ1)|K(A2(AJ2)K(AJ,(AI)K(AJ1,(AI1)K(AJ2,(AI2)K(AI,A0K(AI1,A1K(AI2,A2K( JK( IK(