1hC :A PROGRAM FUTASA FELKEPERNYOT KIVAN, CELSZERU A KERDESEKET IS UGY BEGEPELNI.A KERDESEK SZAMANAK A MEMORIA SZAB HATART.C:SOK (KB.50-NEL TOBB),DE NEM TUL HOSSZU KERDESEK ESETEN A 30.SORT 6500-RE KELL MODOSITANI.C 7000C( 90 D2A$:A(A$): A 130,620,1750,1170,80D< A$"" 50#DF 40)DPkDZ:@10,"U N I F E L":@192,"UNIVERZALIS FELELTETO PROGRAM.":Dd"A PROGRAM SEGITSEGEVEL GEPI",,,"SZAMONKEREST VALOSITHAT MEG.":CEn "KERDESBEGEPELES(1),",,,"FELELES(2), ",,,,"A KERDESEK ROGZITESE(3)",,,"VAGY HIBAJAVITAS(4) KOVETKEZIK?",,,"VAGY VEGE A PROGRAMFUTASNAK(5)?"IExjE:"A KERDESEK SZAMA:";N:Z0E:"EBBOL FELELETVALASZTOS:";YE YN 140E KE$(N): VA$(N): V$(Y,5): P(N): K(N)E:"A FELELES TEMAJA:": TE$:F X1 N:"KEREM A ";X;".KERDEST:"kF" "; KE$(X):F"A VALASZ JELLEGE:",,,"KARAKTERSOR(1)",,,,"EGY SZAM(2)",,,,"FELELETVALASZTOS(3)"FA$:A(A$): A 230,240,260F 210BG "A HELYES VALASZ: ";VA$(X): 350G "A HELYES ERTEK:";VA$(X):A1(VA$(X)): A148 A157 240GVA$(X)"!"VA$(X): 350G:"A LEHETSEGES VALASZOK(MAX.4)",,,,,,,"B":ZZ1G K$:V$(Z,1)"B "K$ H"D": K$:V$(Z,2)"D "K$+H""G": K$:V$(Z,3)"G "K$IH,"T": K$:V$(Z,4)"T "K$ZH6V$(Z,5)(X)H@"A HELYES VALASZ BETUJELE:": K$HJ K$"B" K$"D" K$"G" K$"T" 320HTVA$(X)"*"K$H^"A HELYES VALASZ HANY PONTOT ER?": P(X):Hh X4Ir"KEREM ADJA MEG AZ OSZTALYZATOK",,,"PONTHATARAIT!"SI|"HANY %-TOL ELEGSEGES";ELfI EL100 380I"HANY %-TOL KOZEPES";KOI KO100 KOEL 400I"HANY %-TOL NEGYES";NEI NE100 NEKO 420I"HANY %-TOL JELES";JEJ JE100 JENE 440OJ:"ROGZITES ELOTT KIVANJA",,,"ELLENORIZNI AZ ADATOKAT?(1)J:"ROGZITENI KIVANJA AZ ADATOKAT?(2)",,"(AKKOR ALLITSA BE A MAGNOT",,,"FELVETELRE, A MEGFELELO HELYRE)"J:"VAGY CSAK MOST AKAR EBBOL",,,"A TEMABOL FELELTETNI?(3)")KA$: A$"1" A$"2" A$"3" 490IKA(A$): A 1170,520,620OKlK#1,N,Y,EL,KO,NE,JE,TE$K X1 N:#1,P(X)K XK& X1 N: #1,KE$(X)K0 XK: X1 N:#1,VA$(X)KD X!LN X1 Y:#1,V$(X,1):#1,V$(X,2):#1,V$(X,3):#1,V$(X,4):#1,V$(X,5) )LX X/LbLl:"A KERDESEKET KAZETTAROL",,,"OLVASSAM BE? (1)",,,"(AKKOR ALLITSA BE A MAGNOT),",,,"VAGY BENT VAN A MEMORIABAN?(2)"LvA$: A$"1" 650L A$"2" 750 : 630L#1,N,Y,EL,KO,NE,JE,TE$&M KE$(N): VA$(N): V$(Y,5): P(N): K(N)>M X1 N:#1,P(X)FM X`M X1 N:#1,KE$(X)hM XM X1 N:#1,VA$(X)M XM X1 Y:#1,V$(X,1):#1,V$(X,2):#1,V$(X,3):#1,V$(X,4):#1,V$(X,5)M X!N N0 :"NINCS KERDES A MEMORIABAN!": X1 1000: X:^N:"HANY KERDEST TEGYEK FEL ";N;"-BOL?": M: MN 760 nN X1 M:N K(X)(N): X1 810N Z1 (X1): K(X)K(Z) 780 : 800N  ZN* XN4"A FELELOT EN VALASZTOM?(I/N)"N>A$: A$"I" 850 OH A$"N" 860 : 830aOR"KEREM AZ OSZTALY LETSZAMAT:": L:S(L)::"A FELELO SORSZAMA:";SO\"A FELELES TEMAJA:": TE$:PO0:PS0Of X1 M:"A ";X;".KERDES:":HK(X): KE$(H)Op (VA$(H),1)"*" 890 : 950OzZ0 PZZ1: (V$(Z,5))H 910 : 900NP"LEHETSEGES VALASZOK:": V$(Z,1):V$(Z,2):V$(Z,3): V$(Z,4)PPOPOP(H):A$" ": A$:B$(VA$(H),2,1): B$A$ 930 : 940P"HELYES A VALASZ,";P(H);" PONTOT ER.":PSPSP(H): 1010P"HIBAS A VALASZTAS,";B$;" A HELYES!" : 1010!Q (VA$(H),1)"!" 960 : 990\QPOPOP(H): ER:C(VA$(H)):C$(VA$(H),2,C1):C(C$)Q ER(C0.03C) ER(C0.03C) 980 : 930Q"HIBAS A VALASZ, ";C;" A JO.": 1010Q C$:POPOP(H): C$VA$(H) 930 : 1000R"HIBAS A VALASZ,A HELYES VALASZ:":VA$(H).R"MEHETEK TOVABB?(I)"HR "I" 1030 : 1020NRVR XzR PSPOJE0.01 1070 : 1060R$ PO;"-BOL ";PS;" PONTOT ERTEL EL,",,,"JELES OSZTALYZATOT KAPSZ!": 1140R. PSPONE0.01 1090 : 10809S8 PO;"-BOL ";PS;" PONTOT ERTEL EL,",,,"NEGYES OSZTALYZATOT KAPSZ!": 1140\SB PSPOKO0.01 1110 : 1100SL PO;"-BOL ";PS;" PONTOT ERTEL EL,",,,"KOZEPES OSZTALYZATOT KAPSZ!": 1140SV PSPOEL0.01 1130 : 1120T` PO;"-BOL ";PS;" PONTOT ERTEL EL,",,,"ELEGSEGES OSZTALYZATOT KAPSZ!":1140kTj PO;"-BOL CSAK";PS;"PONTOT ERTEL EL,",,"ELEGTELEN OSZTALYZATOT KAPSZ!"Tt@960,"LESZ TOVABBI SZAMONKERES?(I/N)";T~A$: A$"I" 760T A$"N" : 1150U:"SORBA MEGYEK A KERDESEKEN",,,"(KERDES,VALASZ,PONTSZAM).",,,"HA JAVITANI AKAR VALAMELYIK",,,"ADATON AKKOR A 'J' BETUT,",,,"HA NEM KELL JAVITANI AKKOR A",,,"'SPACE' BILLENTYUT NYOMJA LE."U:"KEZDHETEM?(I)"U "I" 1200 : 1190U"A FELELES TEMAJA:":TE$UA$: A$" " 1240 V A$"J" 1230 :1210TV"GEPELJE BE HELYESEN: ";TE$\VZ0V X1 (N)::(X);".KERDES:": KE$(X)VA$: A$" " 1290V A$"J" 1280 : 1260W "GEPELJE BE HELYESEN: ";KE$(X)-W  (VA$(X),1)"*" 1300 : 1400OWZZ1:"LEHETSEGES VALASZOK:"fW J1 4:V$(Z,J)W(A$: A$" " 1350W2 A$"J" 1340 : 1320W<"GEPELJE BE HELYESEN ";V$(Z,J)WF JXPC$(VA$(X),2,1):"A VALASZ:":C$0XZA$: A$" " 1490LXd A$"J" 1390 : 1370|Xn"A HELYES VALASZ:";A$:VA$(X)"*"A$: 1490Xx (VA$(X),1)"!" 1410 : 1450X"A VALASZ:":(VA$(X),2,((VA$(X))1))XA$: A$" " 1490Y A$"J" 1440 : 14200Y"A HELYES ERTEK";A$:VA$(X)"!"A$: 1490IY"A VALASZ:":VA$(X)cYA$: A$" " 1490Y A$"J" 1480 : 1460Y "GEPELJE BE HELYESEN: ";VA$(X)Y"A PONTSZAM:";P(X)YA$: A$" " 1530Z A$"J" 1520 : 15009Z"A HELYES PONTSZAM";P(X)AZ XYZ"ELEGSEGES(%) ";ELsZA$: A$" " 1580Z A$"J" 1570 : 1550Z""UJ ERTEK(%)";ELZ,"KOZEPES(%) ";KOZ6A$: A$" " 1620Z@ A$"J" 1610 : 1590 [J "UJ ERTEK(%) ";KO[T"NEGYES(%) ";NE8[^A$: A$" " 1660T[h A$"J" 1650 : 1630k[r"UJ ERTEK(%) ";NE[|"JELES(%) ";JE[A$: A$" " 1700[ A$"J" 1690 : 1670[ "UJ ERTEK(%) ";JE@\:"KIVANJA ROGZITENI? (I/N)"::"(HA IGEN, AKKOR ALLITSA BE A",,,"MAGNOT FELVETELRE,A MEGFELELO",,,"HELYRE!)"Y\A$: A$"" 1710j\ A$"N" \ A$"I" 1710 : 520\]:"ALLITSA BE A MAGNOT FELVETELRE,",,,"A MEGFELELO HELYRE!"::"HA KEZDHETEM,NYOMJON MEG EGY",,,"BILLENTYUT!"!]A$: A$""1760 : 520)]:0