L^C :"a":(15360)65ʱ16526,0:16527,48:X(0)::5000:F1$(50),F2$(50),V1(50),V2(50),C1(50),C2(50),E$(50),L(50)CCL2:FC15:BC0:LT1:A0:I160175:I,A:AA8::175,255C:X1:Y1:SZ0:RAD0:90:XX(Q$):RL(XX1)256(XX2)5:16396,201:16397,191:16398,201DU100ODZQ$"ABC":LRLR6 :UD[nDd: HT Micolor logoEn sStart,eElore,jJobbra,bBalra,uUgras,wTorol,fFelejt,iIsmetles,nIsmetles vege,lLegyen,hHa,a akkor,kLegyen,vVege,?Segit,cKor,"x X erteke:","qSzinkod: ","z Szog:"zEx31,7:30,254:31,8:30,15:31,0:30,0::I018:F1$(I):F2$(I)(F1$(I),1):F1$(I)(F1$(I),2): FCL2::13)"A parancsszavak es roviditesuk"::I09:8);F2$(2I);" ";F1$(2I);40);F2$(2I1);" ";F1$(2I1)::@86419,"(Eljaras)";=F@156411,"Folytatashoz nyomjon -t !";]FA$:A$" "150::20000F: Beolvaso rutin, a beolvasott szoveg -banFK1:DB0:SO0:F@1464,"Logo ? ";(30);:I100110:30,2.5I::30,0MG(143);:A$:(24);(95);(24);:(X)50280:A$""A$":"240:A$" "260:DBDB1:30,100:30,0GA$"?"A$"`"(A$"a"A$"z")270:AA$AA$A$:A$;:L(DB)1:240HA$(13)280:A$(8)ʏDB0240:DBDB1:" ";(L(DB1)1,8);:AA$(AA$,(AA$)1):30,200:30,0:240:240]HI018:A$F2$(I)ʇ:DBDB1:240:AA$AA$(I):L(DB)(F1$(I))1:F1$(I)" ";:240H" ";:I110010:30,2.5I::30,0:(7,8);:AA$AA$":":(AA$,K,1)(12)11300:(AA$,K,1)(13)ʒ:(AA$,K,1)(14)115006I"@SO64,;:5000:SOSO1:SOSO(SO13):@SO64,(30);:K(AA$)1:DB0:220JI VE$"N":7000}I K$(AA$,M2,1):KOD(K$):KOD32M2M21:3010 J K$","K$":"KOD193100:K$"*"KOD207:K$"-"KOD206:K$"+"KOD205:K$"/"KOD208:K$"["KOD209:KOD59KOD63KOD274KODHJ VE$"N"K$"A"K$"Z"ʱCEL,("L"):CELCEL1:VE$"I"cJ K$"A"K$"Z"VE$"N"J CEL,KOD:M2M21:CELCEL1:3010J PO1PO0:0::(CEL)(" ")ʱCEL,32:CELCEL1:3100J& 7000:90:M2M21:0:K PP("X"):RL,PP:RL1,PP:RL2,213:CELRL3:]KIK(AA$):(AA$,I,1)":"ʒ:(AA$,I,1)" "ʲ(AA$,I,1);::~KF1$(((AA$,I,1)))" ";::Kp:ParancsKzAA$"":DB0:B$"":200:E$(0)AA$:M10:M21::10000KXHI$"Hiba a kifejezesben!":0:20000)L' M1-ben az eljaras szama, M2-ben: hanyadik karakter8L'AA$E$(M1) M$'LXX:LYY:A$:A$(191)HI$"":20000:AA$E$(M1):C((AA$,M2,1)):C18M2M21: C1 10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100,11200,11300,11400,11500,12000,12100,12200,12300M.'NVNV1:NV50HI$"A verem mar megtelt !": 20000:V1(NV)M1:NEV$"":IM2255:(AA$,I,1)":"NEV$NEV$(AA$,I,1):::M2I1:V2(NV)M2:NEV$(NEV$" ",8)0N8'NE0HI$"Hiszen nincs is eljaras!":20000:I1NE:NEV$(E$(I),8)ʇ:HI$"Nem ismerem a "NEV$" eljarast !":20000ENB'M1I:M29:10000RNt':Start}N~'3500:3000:XX255XX255:XX0XX0N'XXX:LXX:3500:3000:XX255Y255:LYY:CPLX,LY:10020:XX0Y0:LYY:CPLX,LY:10020:YXX:LYY:CPLX,LY:10020O':ELORE3O'3500:3000:S(RAD):C(RAD):XX:YY:CPX,YO'X(XXC)255X(XXC)0Y(XXS)255Y(XXS)0XXXX(XX):10220O'X1XXXC:Y1YXXS:30000:XX1:YY1:LXX:LYY:10020O<(:JOBBRAPF(3500:3000:SZSZXX:RADSZ3.1415926180:LSSZ:10020=P(3500:3000:SZSZXX:RADSZ3.1415926180:LSSZ:10020_P)3500:3000:S(RAD):C(RAD)P)XXXC255XXXC0YXXS255YXXS0XXXX(XX):10510:XXXXC:YYXXS:LXX:LYY:CPLX,LY:10020Ph)CL2:X127:Y127:SZ0:RAD0:6000Q):FelejtQ)NE0:10600 Q0*:IsmetlesQ:*3500:3000:NCNC1:NC50HI$"Nincs hely a ciklusoknak!":20000:C1(NC)M2:C2(NC)XX:10020Q*NC0HI$"Hiszen nincs is ciklus!":20000Q*C2(NC)0M2C1(NC):10020 R*C2(NC)C2(NC)1:(C2(NC))0M2C1(NC):10020:NCNC1AR*(AA$,M2,1)":"M2M21:10930:M2M21:10020hR*:Legyen Logo-valtozo = parameterR+CELRL:3000:10020R\+:Ha ...feltetel...akkor utasitasSf+RL,143:CELRL1:PO1:3000:CEL,202:CELCEL1:M2M21:CEL,("X"):CEL1,("X"):CEL2,213:CEL3,("1"):CELCEL4VSp+(CEL)32(CEL)(":"):CEL,32:CELCEL1:11120oSz+XX0:90:XX110020S+(AA$,M2,1)":"M2M21:11140:M2M21:10020S+HI$"Szintaktikai hiba!":20000T$,NEV$"":NENE1:NE50HI$"Nincs hely eljarasok szamara!":20000:M2K1T.,(AA$,M2,1)":"NEV$NEV$(AA$,M2,1):M2M21:11310:NEV$(NEV$" ",8):E$(NE)NEV$:UZ$"Tanulas":AA$"":DB0:B$"":@156420,NEV$" eljaras";:200:E$(NE)E$(NE)AA$:UZ$"Parancs":AA$"":B$"":DB0::200T,:VegeOU,NV0AA$"":B$"":DB0:6000:M1V1(NV):M2V2(NV):NVNV1:AA$E$(M1):10020\U,:SegityU,:"Az eljarasok nevei:"U-NE0ʲ:"Nincsen eljaras definalva!":I150:A$:A$""ʄ:6000:U -I1NE:I;(E$(I),8),:I V-::"(L)ista","(T)orol","(J)avit vagy","(P)arancs ?":]V-A$:A$"P"ʄ:6000:A$"L"A$"T"A$"J"11560:11550V(-"Nev>";NEV$:NEV$(NEV$" ",8)V2-I1NE:NEV$(E$(I),8)ʇ:"Nem ismerem a(z) ";NEV$;" eljarast!":11540::NEV$;" eljaras:";:AA$E$(I)hW<-A$"L"11600:A$"J"11620:JI1NE1:E$(J1)E$(J)::NENE1:NE0HI$"Az eljarasok elfogytak!":HI$""WF-" torolve":HI$:11540WP-:J9(E$(I)):((E$(I),J,1))19ʲF1$(((E$(I),J,1)));" ";:(E$(I),J,1)":"ʲ:(E$(I),J,1);WZ-:11540Xd-K9:JI:P10:P21:40000xXn-IKPK:(AA$,I,1)" "ʲF1$(((AA$,I,1)))" ";:(AA$,I,1)":"ʲ:A$:11650:(AA$,I,1);Xx-:A$.Y-A$:A$""11650:A$"P"E$(J)AA$::AA$"":200:A$"T"11900:A$"C"11800:A$"B"11700:(A$)91ʏP1011650:PKK:KPE:40000:11630:(A$)10ʏP2011650JY-PEK:KPK:40000:11630Y-HI$(AA$,K):AA$(AA$,K1):"Beszuras ? ";:DB0:240:AA$AA$HI$::40000:11630Y.:Circle, avagy KORRAJZOLOY.3500:3000:CRXX:10020ZD/3500:3000:XX0XX255XXXZN/CPX,Y:100208Z/3500:3000:XX((XX)):FCXX15JZ/CPX,Y:10020zZ 03500:3000:SZ(XX):RADSZ3.1415926#180%Z010020Z NM10:M21:AA$"":DB0:B$"":HI$""ʄ:6000:@0,(30);HI$:(30);:6000Z0uLNX1,Y1: