0B C$(90) C A$(8),B(8),M(60)3C 195,259,452,408,645,599,838,788LC I1 8: B(I): IeCHIB0:ID0:K0:B0:C( I1 58:Y64I: 200C2(Y,39): IC<X39CFYY1:XX1:(Y,X): 200CP Y1 90 : 70CZ I1 10:XX1:(Y,X): 200: I Dd I1 5: XX1:YY1:(Y,X): 200: IEDn I1 3:YY1:(Y,X): 200: IqDx I1 5: XX1:YY1:(Y,X): 200: ID I1 9:XX1:(Y,X): 200: ID I1 5:XX1:YY1:(Y,X): 200: ID@ 713,"K T A T O'P R O G R A M";D 260E 31,0: 30,200E 31,1: 30,0:E 31,7: 30,248: 31,8: 30,15ME J1 10: JmE 31,0: 30,0: 31,1: 30,0sEE I1 10:@ 330,"B I L L E N T Y U";(34);E J1 20: J: I: I1 300: IE" 500E,: "AZ OKTATOPROGRAM CELJA:":F6 "AZ ISKOLAI SZAMITOGEP BILLENTYU-": "ZETENEK MEGISMERTETESE, BEGYA-": "KOROLTATASA; A GYORSABB PROGRAM": "ES ADATROGZITES ERDEKEBEN.":@ 960,"USS LE EGY Y-T";F;A$: A$"Y" 320 : 315F@: "AZ OKTATOPROGRAM MUKODESE:":GJ "A PROGRAM FUTASA ALATT A KEPER-": "NYON A SZAMITOGEP BILLENTYUZETE-": "NEK KEPE LESZ LATHATO (AZ OLDA=": "LAKON ELHELYEZETT VEZERLOBIL-": "LENTYUK NELKUL)."::HT "HA KIVANCSI VAGY ERRE A KEPRE,": "NYOMD LE AZ X-ET,HA TOVABB ": "AKARSZ LAPOZNI AKKOR AZ Y-T!";H^A$: A$"X" 600: 350 : A$"Y" 360 : 350Ih: "A PROGRAM NEGYFELE MODBAN UZE-":"MELTETHETO. MINDEN ESETBEN A GE-": "PELES GYAKORLASAT TESZI LEHETOVE": "MINDEN MODBAN EGYSEGESEN A KEP-": "ERNYON VILLOGO BILLENYU GYORS": "LEUTESE A CEL.EKKOR A ";Ir"TALALATOT": "HANGJEL, A HIBAT PEDIG ZAJ KI-": "SERI,MAJD UJABB KARAKTER KEZD ": "VILLOGNI...STB.":"MINDEN MUKODESI MOD ERTEKELESSEL": "ZARUL, MAJD MASIK MODBAN LEHET": "PROBALKOZNI.": "Y-RA LAPOZHATSZ!"I|A$: A$"" 380J: "1-ES MOD MUKODESE:"::"A KEPERNYON VELETLEN SORRENDBEN":"VILLANNAK FEL A JELEK,": "200 KARAKTER LEUTESE UTAN AUTO-":"MATIKUSAN ERTEKELI A TELJESIT-": "MENYT.":: "2-ES MOD MUKODESE:"RK:"EZ AZ UZEMMOD A BASIC UTASITASOK":"ES A LEGGYAKORIBB PARANCSOK GE-": "PELESET GYAKOROLTATJA BE.EZ A": "MOD 100 SZO UTAN ERTEKEL."kKA$ : A$"" 410/L: "3-AS MOD MUKODESE:"::"EZ A MOD A BETUKAPCSOLAS GYA-":"KORLASAT TESZI LEHETOVE.":"NAGYON FARASZTO ES IDOIGENYES EZ":"A MOD, MERT 90 BETUSORT A GYA-":"KORLAS MIATT EGYENKENT 10-SZER"L"KELL BEUTNI AHHOZ, HOGY KEMENY":"MUNKANK ERTEKELESET MEGKAPJUK."::"4-ES MOD MUKODESE:"::"EBBEN A MODBAN 100 SZAM VILLAN":"FEL VELETLENSZERUEN. AZ ADATGE-": "PELES GYAKORLASAHOZ SEGITSEG."MA$: A$"" 440M:"MINDEN MODBOL LEHETOSEG VAN KI-":"LEPNI MIELOTT AZ ADOTT FELADAT": "BEFEJEZODIK. EZT A FELFELE MUTA-": "TO NYIL LEUTESEVEL TEHETJUK."::wN "HA LEHETOSEG VAN A MOD":"MEGVALASZTASAHOZ, AKKOR 5-TEL KI":"LEHET LEPNI A PROGRAMBOL.":::"J-RE A HANGJELET, R-RE A ZAJT ":"HALLGATHATOD MEG!":"Y-RA NEHANY MASODPERC MULVA IN-": "DUL A PROGRAM."NA$: A$"J" 1900: 460 : A$"R" 1800: 460 : A$"Y" 800 : 460NA$(1)"! "(34)" # $ % & ' ( ) * ="OA$(2)"1 2 3 4 5 6 7 8 9 0 : -"AOA$(3)"Q W E R T Y U I O P @"OOA$(4)" "oOA$(5)"A S D F G H J K L ;"}O&A$(6)"+"O0A$(8)"< > ?"O:A$(7)"Z X C V B N M , . /"ON 300OX:Ob "  ";(151);(23,(131));(171) Pl " ";(149);A$(1);(170)*Pv " ";(149);A$(2);(170)`P " ";(131);(151);(21,(131));(171);(131)P " ";(149);(20," ");A$(4);(170)P " ";(149);A$(3);(170)P " ";(131);(151);(19,(131));(171);(131)Q " ";(149);(18," ");A$(6);(170)0Q " ";(149);A$(5);(170)`Q " ";(131);(151);(19,(131));(171)Q " ";(149);(14," ");A$(8);(170)Q " ";(149);A$(7);(170)Q " ";(21,(131))QQ  J1 8:H(A$(J))R* I1 H1 2R4 AC((A$(J),I,1))32)R>KIB(J)5RHM(AC)KARR I: J_R\ 1500:Q1: A5 5000}Rf A 950,2500,3500,4000Rp 860CS ASDFJKLE,ASDFIK,ELKJMJ,AMJ,SMJ,DMJ,FMJ,JMJ,KMJ,EMJ,ADJAM,MAJMA,FIAME,AJKAM,FIAIM,DAMIL,KEMIA,MALMA,FEMME,MAFLA,ALMALE,DALLAM,AKADEMIA,ALKALMAD,KAKASAIM,DIADALMAS,DALAIMMAL,ALKALMAIMT EKEFSFS,KEKFESTEK,KES,FEK,EK,KESS,ELKESS,KESES,KEKES,KESE,FAKAD,FELES,AIK,SIK,DIK,FIK,EIK,LIK,KIK,LAKIK,KESIK,AKIKE,SISAK,KIFLI,AJKAI,FAJAI,KLIKK,ALAKI,DALIA,KISSE,DALAI,LILA,ELIK,DELI,FALIT JLJLDADA;T JLDA,DAL,ADJ,ALADALJA,ELKJFDSAeT JIKEFSDA,JKFDLESA,KEIJDASF,AKADFELJT ASDFDF,ELKIMJ,ARF,SRF,FRF,JRF,KRF,KERTEL,FERFI,KIFER,KAMRA,FARKAS,KADARKA,KARDDAL,SIRALMAS,IRKAFIRKA,RADARU ABS,AND,ASC,ATN,CDBL,CHR$,CINT,CLEAR,CLOSE,CLS,CONT,COS,DATA,DEFN,DEFDBL,DEFINT,DEFSNG,DEFSTR,DELETE,DIM,EDIT,ELSE,END,ERL,ERR,ERROR,EXP,FIX,FOR,FRE,GET,GOSUB,GOTO,IF,INKpV LSET,LEN,LINE,LIST,LOAD,MEM,MID$,NAME,NEW,NEXT,NOT,ON,OUT,PEEK,POINT,POKE,POS,PRINT,PUT,RANDOM,READ,REM,RESET,RESTORE,RETURN,RESUME,RIGHT$,RND,SET,SGN,SIN,SQR,STEP,STOP,STRING$,STR$,TAB,TAN,THEN,TROFF,TRON,USING,USR,VAL,VARPTRV PRINT,INPUT,FORI=1TON,NEXTN,IF,THEN,GOTO,GOSUB,END,RUN,EDIT,LIST,CLEAR,CONT,NEW,SYSTEM,OUT,READ,DATA,RESTORE,RETURN,DIM,ELSE,STEPW 600:B0:ID0:HIB0:T7.15+WA((0)591)JWJ0:IM(A): I10 1000pWJJ1:@ I, (32);: N1 10: NWX$: X$"" @ I,(32A);: N1 10: N: 1020 W @ I,(32A);X X$(A32) 1900:IDIDJ : X$"[" 2000: : HIBHIB1: 1800:IDID1=XBB1: B200 2000: 1050 : 1000CXKX:sX " MELYIK UZEMMODBAN AKAROD HASZ-"X "NALNI A PROGRAMOT?"X : " 1-VELETLEN JELSOROZAT"X: " 2-BASIC ELEMEKBOL ALLO JELSOR"Y: " 3-BETUKAPCSOLATOK GYAKORLASA"+Y: " 4-SZAMIRAS GYAKORLASA"VY": " 5-NEM AKAROD TOVABB HASZNALNI"Y,Q$: Q$"" 1580 : (Q$)49 (Q$)53 @ 961,"A VALASZOD:1/2/3/4/5 LEHET!": 1580Y6A(Q$)Y@Y BONGO Z 31,6: 30,31: 31,7: 30,247: 31,8: 30,15:Z I0 10: I: 31,7: 30,255: 31,6: 30,0@ZbMZl CSENGOZv 31,0: 30,200: 31,7: 30,254: 31,8: 30,15Z I0 10: I: 31,7: 30,255: 31,0: 30,0Z Z: B;"-BOL HELYESEN UTOTTEL LE:"Z BHIB;" JELET,"[ "ROSSZUL:"-[ HIB;" JELET."::: B.1 2060_[ "EGY LEUTES ATLAGIDEJE: ": ID(TB);" SEC"[ "AZ OSSZES IDO PEDIG: ": IDT;" SEC"[ : "MEHET:"[Q$: Q$"" 2070[ [ BASIC A 910,915 DATABOL[ B0:HIB0:ID0: 600:G0:T6.65\ : I1 98: B$: I3\ K1 90: C$(K): KW\ K(90):H(C$(K)):@ 11,C$(K);\ Z1 H:A$(C$(K),Z,1):A(A$)32\ 3000:BB1: Q1 2800\ Z\ @ 11," "\ GG1: G100 2540\( 2000\ ] J0:IM(A): I10 3050/] JJ1:@ I,(32);: N0 10: Nf] X$: X$"" @ I,(32A);: N0 10: N: 3010x] @ I,(32A);] X$(A32) 1900:IDIDJ: 3050 : X$"[" 2000:Q1: : HIBHIB1: 1800:IDIDJ: 3050] Q0: ^ BETUKAPCS. A900-905 SORBOL,^ B0:HIB0:ID0: 600::T6.25E^ I1 8: B(I): Ic^ K1 90: C$:@ 11,C$;^ H(C$): G1 10:@ 2,G;^ Z1 H:A$(C$,Z,1):A(A$)32^ 3000:BB1: Q1 3900^ Z: G:@ 11," ": K^ 2000_<_ VELETLENSZERU SZAMOK<_B0:HIB0:ID0: 600:T6.65P_A((0)1016)p_ 3000:BB1: Q1 4100_ B100 2000: 4100_ 4010__:@ 325,"J O' P I H E N E'S T !":::::"