LiC Alapok:OTLET-84 aug.30,35.szam/24.(Zatonyi Sandor Egeszsegugyi Szakkozepiskola es Gimnazium,5600Bekescsaba,Gyulai ut 55.)sC 21704D I H T L O G O I tDKESZITETTE: Z A T O N Y I S A N D O R BEKESCSABA 1984.gE(::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::zE2 E L O R EE<PP(UT$):PP0ʑ940EFCO(FI.0174532925):SI(FI.0174532925)EPRR%0PP:(X0RR%CO,Y0RR%SI):FZX0X0PPCO:Y0Y0PPSI:(X0,Y0)Fd)Fn J O B B R ACFxPP(UT$):PP0ʑ940^FPP360PPPP360:130wFPP0PPPP360:140FFIFIPP:FI0FIFI360FF B A L R AFPP(UT$):PP0ʑ940FPP360PPPP360:190FPP0PPPP360:200GFIFIPP:FI360FIFI360 G9G I S M E T L E SSGPP(UT$):PP0ʑ940zGKI%KI%1:IS%(KI%)PP:CI%(KI%)II%GG I S M E T L E S V E G EGIS%(KI%)IS%(KI%)1G"IS%(KI%)0KI%KI%1:G,II%CI%(KI%):G6 U G R A SH@PP(UT$):PP0ʑ940QHJX0X0PP(FI.0174532925):Y0Y0PP(FI.0174532925)`HT(X0,Y0):sH^ S T A R T}HhJJ%1Hr(UT$,JJ%,1)";"JJ%JJ%1:370H|X0((UT$,JJ%1)):Y0((UT$,(UT$)JJ%)) :(X0,Y0):FI0HH T O R O LI:X00:Y00:FI0:A0:B0:C0:D0:E0:F0:G0:H0:I0:J0:K 0:L0:M0:N0:P0:Q0:R0:S0:T0:U0:V0:W0:X0:Y0:Z0: I V E G E ( E L J A R A S )III%CE%(KE%):KE%KE%1:I L E G Y E N ( E R T E K E D A S )JJJ%1(UT$):CH%((UT$,JJ%,1))!J570DJ17399JJ%,CH%::JJ%JJ%17399kJJJ%,58:JJ%1,146:JJ%2,58:40:J H A A K K O RJJJ%1J(UT$,JJ%,5)"AKKOR"JJ%JJ%1:510JFEL$(UT$,JJ%1):UT$(UT$,(UT$)JJ%4)K17400,143:JJ%1(FEL$):CH%((FEL$,JJ%,1))'K 570K&17400JJ%,CH%::JJ%17400JJ%:JJ%,202:JJ%1, 54:JJ%2,55:JJ%3,48:JJ%4,58:JJ%5,149: JJ%6,146:JJ%7,58:40:K0 B A S I C A S C I I K O D O L OK:CH%42CH%207KDCH%43CH%205LNCH%45CH%206'LXCH%47CH%208;LbCH%60CH%214OLlCH%61CH%213cLvCH%62CH%212wLCH%91CH%209}LL A K K O RL(UT$,5)"ELORE"UT$(UT$,(UT$)5): 60L(UT$,6)"JOBBRA"UT$(UT$,(UT$)6): 1201M(UT$,5)"BALRA"UT$(UT$,(UT$)5): 180kM(UT$,8)"ISMETLES"UT$(UT$,(UT$)5): 240M(UT$,13)"ISMETLES VEGE"(UT$,8)"ISM VEGE" (UT$,8)"ISM.VEGE"280M(UT$,5)"UGRAS"UT$(UT$,(UT$)5): 320(N(UT$,5)"START"UT$(UT$,(UT$)5): 360BN(UT$,5)"TOROL"410aN(UT$,4)"VEGE"KE%0430N(UT$,4)"VEGE"KE%0910N(UT$,6)"LEGYEN"UT$(UT$,(UT$)6): 450N 800:900N E L J A R A S K E R E S E SN JJ%1 O*KOD%(JJ%)11840%O4JJ%200JJ%JJ%1:810XO>@0,UT$" NINCS!";(25,32);:MOD$"PARANCS":910oOHUT$UT$(JJ%)820ORKE%KE%1:CE%(KE%)II%:II%JJ%:O\ U T A S I T A S E L E M Z OOfII%CK%:@960,(63,32);OpKOD%(II%)0910>PzUT$UT$(II%):KOD%(II%)60,120,180,240,280,320,360,410 ,430,450,999,800,500QPII%II%1:880PJJ%CK%CK%PH%:UT$(JJ%)"":KOD%(JJ%)0::PH%0P990P P A R A M E T E R K I S Z A M I T A S APUT$""ʒP(UT$)32UT$(UT$,(UT$)1):940NQCH%(UT$):CH%65CH%90ʲ@0,"HIBAS VALTOZO: " ;UT$;" ":910Q17400,80:17401,80:17402,213:17403,CH%: 17404,58:17405,146:17406,58:40Q U T A S I T A S B E O L V A S OQ1000:1240>R2130:@960,"(";(MOD$,1);") : <"(27,32 )"<---(32)---<<<< KAPCSOLJ";:UT$"":VV$_R@34,"U T A S I T A S O K:";R@96,"START parameter1 ; parameter2";R@160,"ELORE valtozo";:@224,"JOBBRA valtozo";R@288,"BALRA valtozo";:@352,"ISMETLES valtozo";#S@416,"ISMETLES VEGE";:@480,"UGRAS valtozo";FS$@544,"TOROL";:@608,"FELEJT";nS.@672,"LEGYEN valtozo = kifejezes";S8@736,"HA feltetel AKKOR utasitas";:@800,"VEGE";SB@864,"LEGYEN eljaras";:@928,"SEGIT";SLVV$:VV$""1100SVVV%(VV$)T`VV%13(UT$)251190'TjVV%8VV%241160?TtVV%32VV%911100eT~UT$UT$VV$:@966,UT$"< ";:1100vTUT$""1000TUT$(UT$,(UT$)1):@966,UT$"< ";:1100T T O M O R I T OTNN%1UHH%(UT$):(UT$,NN%,1)" "UT$(UT$,NN%1) (UT$,HH%NN%):12000UNN%HH%NN%NN%1:12006U[U U T A S I T A S K O D O L OU MOD$"PARANCS"PH%PH%1:1260UCK%CK%1UJJ%1UKOD%(JJ%)0JJ%JJ%1:1270U(UT$,4)"VEGE"UT$""UT$(JJ%)"":1430 V (UT$,5)"SEGIT"(UT$)631520V1310:990IV(UT$,5)"ELORE"UH%5:KOD%(JJ%)1:1450xV((UT$,6)"JOBBRA"UH%6:KOD%(JJ%)2:1450V2(UT$,5)"BALRA"UH%5:KOD%(JJ%)3:1450W<(UT$,13)"ISMETLESVEGE"(UT$,8)"ISM.VEGE" (UT$,8)"ISMVEGE"KOD%(JJ%)5:1WF(UT$,8)"ISMETLES"UH%8:KOD%(JJ%)4:1450_WP(UT$,5)"UGRAS"UH%5:KOD%(JJ%)6:1450WZ(UT$,5)"START"UH%5:KOD%(JJ%)7:1450Wd(UT$,6)"FELEJT"UT$"---"ʎWn(UT$,6)"LEGYEN"1460Wx(UT$,5)"TOROL"UT$"-"KOD%(JJ%)8:$X(UT$,2)"HA"UH%2:KOD%(JJ%)13:1450DXKOD%(JJ%)12:UT$(JJ%)UT$:iXMOD$"PARANCS"KOD%(JJ%)0:870XKOD%(JJ%)9:MOD$"PARANCS":990XUT$(JJ%)(UT$,(UT$)UH%):XUT$(UT$,(UT$)6)X(UT$,2,1)"="KOD%(JJ%)10:UT$(JJ%)UT$:=YMOD$"PARANCS"ʲ@0,MOD$;" MODBAN VAGYOK!"; (10,32);:2110:YMOD$"TANULAS":KOD%(JJ%)11:UT$(JJ%)UT$:CK%CK%1: Y S E G I TY@960,"HIBAZTAL, SEGITEK";:2110:JJ%0900: :1520-ZKI%0:KE%0:MOD$"SEGIT":JJ%CK%CK%PH%:UT$(JJ%)"": KOD%(JJ%)0::PH%0:410EZ"ELJARASOK:":JJ%1[ZKOD%(JJ%)01590sZKOD%(JJ%)111580Z5)UT$(JJ%)Z"(10)1570Z,JJ%JJ%1:JJ%2011540Z6Z@1000:UT$"!"UT$"PARANCS"ZJ(UT$)51600[T(UT$,7)"PARANCS"MOD$"PARANCS":990D[^UB$(UT$,5):UT$(UT$,(UT$)5):JJ%1[hHH%(UT$):(UT$,JJ%,1)" "UT$(UT$,JJ%1) (UT$,HH%JJ%):1640[rJJ%HH%JJ%JJ%1:1640[|UB$"JAVIT"1820[UB$"LISTA"1750[UB$"TOROL"1710[1600$\ T O R L E S ( E L J A R A S T )=\800:KE%KE%1:EH%0h\EH%EH%1:JJ%JJ%1:KOD%(JJ%)91720\JJ%II%200EH%:UT$(JJ%)UT$(JJ%EH%):KOD%(JJ%) KOD%(JJ%EH%)::JJ%201EH%200:UT$(JJ%)"":KOD%(JJ% )0:CK%CK%EH%:1520 ] L I S T A!]800:KE%KE%1:C]KOD$(KOD%(JJ%));" ";UT$(JJ%)Z](" ")101770w]KOD%(JJ%)0KOD%(JJ%)9]KOD%(JJ%)9JJ%JJ%1:1760]1520] J A V I T]800:KE%KE%1: ^&KOD$(KOD%(II%));" ";UT$(II%):II%II%1:JJ%01000: :J^0JJ%II%:@128,KOD$(KOD%(II%));" ";UT$(II%):2130: ^:5)"T = TORLES":5)"C = CSERE":5) "B = BESZURAS":5)"K = KOVETKEZO":5) "E = ELOZO":VV$^DVV$:VV$""1860^NVV$"B"2030_XVV$"E"VV$(91)2090_bKOD%(II%)91520;_lKOD%(II%)0KOD%(II%)9:1520M_vVV$"C"1990__VV$"T"1960{_VV$"K"VV$(10)2070_1860_ T O R L E S ( E L J A R A S S O R T )$`:JJ%II%199:KOD%(JJ%)KOD%(JJ%1):UT$(JJ%)UT$(JJ% 1)::KOD%(200)0:UT$(200)"":KOD%(II%)915208`CK%CK%1:1840K` C S E R E_`1000::JJ%II%`(UT$,4)"VEGE"UT$""ʑ2110:1840`1310:II%II%1:1840` B E S Z U R A S`1000:JJ%II%`(UT$,4)"VEGE"UT$""ʑ2110:1840Ya:JJ%199II%1:KOD%(JJ%1)KOD%(JJ%):UT$(JJ%1) UT$(JJ%)::JJ%II%:1310:CK%CK%1:1840ta  K O V E T K E Z Oa:II%II%1:1840a  E L O Z Oa*:II%II%1:KOD%(II%)111830:1840a4 H A N Ga>2130aH2130bRJJ%015:HH%:31,JJ%:30,HH%:9b\0,0,0,0,0,0,15,7,16,16,16,0,12,0,0,0Abf:xbp K E Z D O E R T E K E K B E A L L I T A S A7cz:"a":(15360)97ʱ16527,48:16526,6: X(A):3000:UT$(200),KOD$(13),KOD%(200),CE% (200),CI%(25):1510::(17348)90ʶ302200::5dKOD$(0)"VEGE":KOD$(1)"ELORE":KOD$(2)"JOBBRA":KOD$(3) "BALRA":KOD$(4)"ISMETLES":KOD$(5)KOD$(4)" VEGE":KOD$(6) "UGRAS":KOD$(7)"START":KOD$(8)"TOROL":KOD$(9)"VEGE":KOD$ (10)"LEGYEN":KOD$(11)KOD$(10):KOD$(12)"":KOD$(13)"HA"dMOD$"PARANCS":CK%1:(17365)83ʶ302000:990::GOTO990_e I A PROGRAM SZABAD MASOLHA I eRESZES KEZELESI UTMUTA AZ OT FOLYOIRAT BITΌ MELLEKEBEN TALALHA. (1984.AUG.30I SZAM 24.OLDAL) fKIPROBALASHOZ JAVASLOM: ELE 20 ֻ JOBBRA 60 ֻ ELE 20 ֻ VEGE ֻ f O