4C ADATBEOLVASO PROGRAM.TERJEDELME:12 OSZTALY,25 TANAR,22 TORZSTANTARGY ES 20 FAK.TANTARGY .MEMORIAIGENYE:16 KBYTE. Keszult 1985.januarban.Keszitette:KRUCHIO GABOR.cD:"AZ ADATOK BEOLVASASA ELOTT BEKERI A PROGRAM":@70,"A KOTELEZO TARGYAK,A FAKULTATIV TARGYAK ES A":@134,"TANAROK SZAMAT,MAJD UTANA A NEVET.":@198,"ELOSZOR A TANTARGYAKAT,MAJD A TANAROK NEVET ROGZITI."E: "AZ ADATOK BEOLVASASA OSZTALYONKENT,":@390,"KAZETTARA ROGZITESE EVFOLYAMONKENT TORTENIK.":"A 4.EVFOLYAM ROGZITESE UTAN KERI BE A PROGRAM A FAKULTATIV":" CSOPORTOK ADATAIT."QE(:"HA FELKESZULT,NYOMJA LE AZ I VAGY A K BETUT!"xE2P$: P$"I" P$"K" 60 : 50E< 1000:: A,B,C,D,E,F,G,I,J,L,M,Q,T,Z: V,RFF A(3,2,14,6),B(3,2),D(3,2,14,6),C(3,2),Z(19,11),M(3,2),L(3,2),Y(3,2),VA(21),VT(24),R(19),LB(3,2),BF(3,2),S(3,2)mFP@448,"TANTARGYAK SZAMA (MAX.22!):";: AS: AS22 AS("") :80 : FZ"FAK.TARGYAK SZAMA (MAX.20!):";: FS: FS20 FS("") 90 : Fd "TANAROK SZAMA (MAX.25!): ";: TS: TS25 TS("") 100 : Gn"KEREM A TANTARGYAK MEGNEVEZESET (MAX.4 KARAKTER!)!": Q0 AS1: Q1".";: VA(Q): VA(Q)"" (VA(Q))4 QQ1: 120 : VA(Q)"-" 130 : Q14 Gx Q:>H "A FAK.TARGYAK MEGNEVEZESET (MAX.6 KARAKTER)!": Q0 FS1: Q1".";: R(Q): R(Q)"" (R(Q))6 QQ1: 140 : R(Q)"-" 150 : Q14 TH Q:: 640: 670H"KEREM A TANAROK NEVET (MAX.12 KARAKTER!)!": Q0 TS1: Q1".";: VT(Q): VT(Q)"" (VT(Q))12 QQ1: 160 : VT(Q)"-" 170 : Q14 I Q:: 640: 710I E0 3: M0 2lI "A "(E1)"/"(M65)".OSZT.LETSZAMA (MAX.50!):";: L(E,M): L(E,M)50 180I L(E,M)("-") 410J "KOZULUK LEANY: ";: Y(E,M): "FIZ.DOLGOZO:";: M(E,M)::"BUKOTT TANULOK SZAMA:";: LB(E,M):"KOZULUK FIZ. DOLGOZO:";: BF(E,M):J Y(E,M)L(E,M) M(E,M)L(E,M) LB(E,M)L(E,M) BF(E,M)LB(E,M) BF(E,M)M(E,M) "ADATAI ELLENTMONDAST TARTALMAZTAK! JOBBAN FIGYELVE IRJA BE UJRA!": 180RK "A "(E1)"/"(M65)".OSZTALY HIANYZASI ORASZAMA:";:B(E,M): "EBBOL IGAZOLATLAN:";: C(E,M): B(E,M)("") C(E,M)("") B(E,M)C(E,M) 220 : :L M0 "KEREM: - A TANTARGYAK KODJAT,":" - A TANITO TANAR SORSZAMAT, ES AZ":" - OSZTALYZATOK SZAMAT OSSZES,EBBOL FIZIKAI SORRENDBEN!"::10)"KESZ?" : 250.LP$: P$"I" P$"K" 250 : 240hL: I0 14: I0 ʲ@ I64,((E1),1)"/"(M65)".";L J0 6: J1 270,320,350,350,350,350,350L 930: TANTARGYL V"[" I0 II2: 400L" V"-" 410M, V"[" I0 M0 EE2: 420 : MM2: 410rM6 (V)1 (V)AS 270 : A(E,M,I,0)(V):D(E,M,I,0)(V):@I646," ":390M@ 960: TANARMJ V"[" I0 II1: 400 : 340NT (V)1 (V)TS @I6414," ":320 : A(E,M,I,J)(V):D(E,M,I,J)(V): @I6412," ";: 390;N^ 990: OSZTALYZATOK (OSSZES!)Nh V"[" II1: 400 : (V)0 (V)99 @I64J83," ":350 : A(E,M,I,J)(V):@I64J83," ";Nr 1030: OSZTALYZATOK (FIZ.DOLG.)BO| V"[" II1: 400 : (V)0 (V)99 @ I64J87,"": 370 : D(E,M,I,J)(V):@I64J87," ";JO JRO I\O: MpO 640: 740: EO:22)"FAKULTATIV TARGYAK:" P:::"ADD MEG - AZ ELSO HELYEN A FAKULTATIV TARGY KODJAT,"::" - A MASODIK HELYEN A TANAR SORSZAMAT, MAJD"RP" - A TOBBI HELYEN AZ OSZTALYZATOKAT !": Q1 2000: Q:cP G0 FS1P G15 IG:490: G15ʄPIG15P J0 6:@ I64,"FAK.": J1 500,540,560,560,560,560,560P 930: TANTARGYQ V"[" I0 GG2: 610Q V"-" 640XQ (V)1 (V)FS 500 : Z(G,J)(V):@ I646," ": 600jQ 960: TANARQ& (V)1 (V)TS @ I6414," ": 540 : Z(G,J)(V):@ I6412," ";: 600Q0 990: OSZTALYZAT OSSZESQR: V"[" GG1: 610 : (V)0 (V)99 @ I64J83," ": 560 : Z(G,J)(V):@ I64J83," ";sRD 1030: OSZTALYZAT FIZ.DOLG.RN V"[" GG1: 610 : (V)0 (V)99 @ I64J87,"": 580 : Z(G,J5)(V):@ I64J87," ";RX JRb G: 640: 900Sl:@208,"MINDEN ADATOD A KAZETTAN VAN !";:@386,"OLVASD BE A FELDOLGOZO PROGRAMOT ES UTANA TOLTSD BE EZEKKEL AZ";:@536,"ADATOKKAL !"SvS:"ALLITSD A KAZAETTAT A MEGFELELO HELYRE AZ ADATOK ROGZITESERE !"::22)"KESZ ?";TP$: P$"I" P$"K" 660 : 650T2T TANTARGYAK MEGNEVEZESET#1,VA(0),VA(1),VA(2),VA(3),VA(4),VA(5),VA(6),VA(7),VA(8),VA(9),VA(10),VA(11),VA(12),VA(13),VA(14),VA(15),VA(16),VA(17),VA(18),VA(19),VA(20),VA(21),AS,FS,TSKU#1,R(0),R(1),R(2),R(3),R(4),R(5),R(6),R(7),R(8),R(9),R(10),R(11),R(12),R(13),R(14),R(15),R(16),R(17),R(18),R(19)SU:fU TANAROK NEVEV#1,VT(0),VT(1),VT(2),VT(3),VT(4),VT(5),VT(6),VT(7),VT(8),VT(9),VT(10),VT(11),VT(12),VT(13),VT(14),VT(15),VT(16),VT(17),VT(18),VT(19),VT(20),VT(21),VT(22),VT(23),VT(24)V:DV M0 2: EREDMENYTABLAZAT OSSZESW#1,A(E,M,0,0),A(E,M,0,1),A(E,M,0,2),A(E,M,0,3),A(E,M,0,4),A(E,M,0,5),A(E,M,0,6),A(E,M,1,0),A(E,M,1,1),A(E,M,1,2),A(E,M,1,3),A(E,M,1,4),A(E,M,1,5),A(E,M,1,6),A(E,M,2,0),A(E,M,2,1),A(E,M,2,2),A(E,M,2,3)W#1,A(E,M,2,4),A(E,M,2,5),A(E,M,2,6),A(E,M,3,0),A(E,M,3,1),A(E,M,3,2),A(E,M,3,3),A(E,M,3,4),A(E,M,3,5),A(E,M,3,6),A(E,M,4,0),A(E,M,4,1),A(E,M,4,2),A(E,M,4,3),A(E,M,4,4),A(E,M,4,5),A(E,M,4,6),A(E,M,5,0)X#1,A(E,M,5,1),A(E,M,5,2),A(E,M,5,3),A(E,M,5,4),A(E,M,5,5),A(E,M,5,6),A(E,M,6,0),A(E,M,6,1),A(E,M,6,2),A(E,M,6,3),A(E,M,6,4),A(E,M,6,5),A(E,M,6,6),A(E,M,7,0),A(E,M,7,1),A(E,M,7,2),A(E,M,7,3),A(E,M,7,4)Y #1,A(E,M,7,5),A(E,M,7,6),A(E,M,8,0),A(E,M,8,1),A(E,M,8,2),A(E,M,8,3),A(E,M,8,4),A(E,M,8,5),A(E,M,8,6),A(E,M,9,0),A(E,M,9,1),A(E,M,9,2),A(E,M,9,3),A(E,M,9,4),A(E,M,9,5),A(E,M,9,6),A(E,M,10,0),A(E,M,10,1)cZ#1,A(E,M,10,2),A(E,M,10,3),A(E,M,10,4),A(E,M,10,5),A(E,M,10,6),A(E,M,11,0),A(E,M,11,1),A(E,M,11,2),A(E,M,11,3),A(E,M,11,4),A(E,M,11,5),A(E,M,11,6),A(E,M,12,0),A(E,M,12,1),A(E,M,12,2),A(E,M,12,3),A(E,M,12,4),A(E,M,12,5) [ #1,A(E,M,12,6),A(E,M,13,0),A(E,M,13,1),A(E,M,13,2),A(E,M,13,3),A(E,M,13,4),A(E,M,13,5),A(E,M,13,6),A(E,M,14,0),A(E,M,14,1),A(E,M,14,2),A(E,M,14,3),A(E,M,14,4),A(E,M,14,5),A(E,M,14,6)A[* EREDMENYTABLAZAT FIZ.DOLG.&\4#1,D(E,M,0,0),D(E,M,0,1),D(E,M,0,2),D(E,M,0,3),D(E,M,0,4),D(E,M,0,5),D(E,M,0,6),D(E,M,1,0),D(E,M,1,1),D(E,M,1,2),D(E,M,1,3),D(E,M,1,4),D(E,M,1,5),D(E,M,1,6),D(E,M,2,0),D(E,M,2,1),D(E,M,2,2),D(E,M,2,3),D(E,M,2,4),D(E,M,2,5) ]>#1,D(E,M,2,6),D(E,M,3,0),D(E,M,3,1),D(E,M,3,2),D(E,M,3,3),D(E,M,3,4),D(E,M,3,5),D(E,M,3,6),D(E,M,4,0),D(E,M,4,1),D(E,M,4,2),D(E,M,4,3),D(E,M,4,4),D(E,M,4,5),D(E,M,4,6),D(E,M,5,0),D(E,M,5,1),D(E,M,5,2),D(E,M,5,3),D(E,M,5,4)]H#1,D(E,M,5,5),D(E,M,5,6),D(E,M,6,0),D(E,M,6,1),D(E,M,6,2),D(E,M,6,3),D(E,M,6,4),D(E,M,6,5),D(E,M,6,6),D(E,M,7,0),D(E,M,7,1),D(E,M,7,2),D(E,M,7,3),D(E,M,7,4),D(E,M,7,5),D(E,M,7,6),D(E,M,8,0),D(E,M,8,1),D(E,M,8,2),D(E,M,8,3)^R#1,D(E,M,8,4),D(E,M,8,5),D(E,M,8,6),D(E,M,9,0),D(E,M,9,1),D(E,M,9,2),D(E,M,9,3),D(E,M,9,4),D(E,M,9,5),D(E,M,9,6),D(E,M,10,0),D(E,M,10,1),D(E,M,10,2),D(E,M,10,3),D(E,M,10,4),D(E,M,10,5),D(E,M,10,6),D(E,M,11,0),D(E,M,11,1)_\#1,D(E,M,11,2),D(E,M,11,3),D(E,M,11,4),D(E,M,11,5),D(E,M,11,6),D(E,M,12,0),D(E,M,12,1),D(E,M,12,2),D(E,M,12,3),D(E,M,12,4),D(E,M,12,5),D(E,M,12,6),D(E,M,13,0),D(E,M,13,1),D(E,M,13,2)P`f#1,D(E,M,13,3),D(E,M,13,4),D(E,M,13,5),D(E,M,13,6),D(E,M,14,0),D(E,M,14,1),D(E,M,14,2),D(E,M,14,3),D(E,M,14,4),D(E,M,14,5),D(E,M,14,6),L(E,M),Y(E,M),M(E,M),B(E,M),C(E,M),LB(E,M),BF(E,M)X`p M`z: E1".EVFOLYAM ADATAI ROGZITVE !":` FAK.EREDMENYEKFa Q0 11:#1,Z(0,Q),Z(1,Q),Z(2,Q),Z(3,Q),Z(4,Q),Z(5,Q),Z(6,Q),Z(7,Q),Z(8,Q),Z(9,Q),Z(10,Q),Z(11,Q),Z(12,Q),Z(13,Q),Z(14,Q),Z(15,Q),Z(16,Q),Z(17,Q),Z(18,Q),Z(19,Q): QLaa I14 940 : @ I644,(65," "):@ (I1)645,"targy"a@ I646,"";: V: (V)47 (V)58 950 : V"-" V"[" 950 : 930ab I14 970 : @ (I1)6411,"tanar"Wb@ I6412,"";: V: (V)47 (V)58 980 : V"[" 980 : 960]bb J2 J3 J5 L$"-es" : J4 L$"-as" : L$"-os"b I14 1010 : @ (I1)64J82,J1;L$: osztalyzatok*c@ I64J83,"";: V: (V)47 (V)58 1020 : V"[" 1020 : 10000c^c I14 1040 : @ (I1)64J87,"fiz"c@ I64J87,"";: V: (V)47 (V)58 1050 : V"[" 1050 : 1030c