V ULOGO UC500C9000D *** NYLT\RL{ ***"D RR0,HD XP(OLDRAD2.5):YP(OLDRAD2.5)]D (X,Y):X1X:Y1Y|DX2XP5X:Y2YP5Y:50000D(X,Y):X1X:Y1YDXP(OLDRAD2.5):YP(zUOLDRAD2.5)DX2XP5X:Y2YP5Y:50000DD *** VONALH_Z[ ***ERADDG180EXP(RAD):YP(RAD)9E PP1,(X,Y):X1X:Y1YUE PP0,(X,Y):X1X:Y1YEXXPTL252 XXPTL3 ,TLTL1:28EYYPTL189 YYPTL3 ,TLTL1:29EU PP1,X2XXP(TL1):Y2YYP(TL1):40000E(XXXPTL:YYYPTLE*F- RR0,+F.RADDG180: *** NYLRAJZOL[ ***@F/(X,Y):X1X:Y1YOF2OLDRADRADuF4XP(OLDRAD2.5):YP(OLDRAD2.5)F5X1X:Y1YF6X2XP5X:Y2YP5Y:40000F8(X,YnU):X1X:Y1YF:XP(OLDRAD2.5):YP(OLDRAD2.5)F<X2XP5X:Y2YP5Y:40000GFGd *** FORDT[ ***%Gn VM0,>G *** BEHAT]ROL[ ***OGV$"NEMVEGE"eG IV(VM) (P$)G (P$,I,1)" ",I$(P$,V(VM),IV(VM)):V(VM)I1:500:V$"VEGE",1~U00GIG"G *** AZONOST[ ***GC$""G (P$)I,G  (P$)I,550DH ((P$,I1,1)"A"(P$,I1,1)" "),C$C$(P$,I1,1):II1:530jHC$"",PAR(C$):V(VM)I2:II1H&I$I$" ":I$(I$,7)H0A116: I$F$(A),A701,702,U703,704,705,706,707,708,709,710,711,712,713,714,715,716:H5AI: *** ELJ]R]SOK ***?IDA1ELJSZAMA:I$E$(A),VMVM1:V(VM)E(A):V$"VEGE":EIIIS$0,25,"NEM ISMEREM A":$1,25,I$:$2,25,"PARANCSOT!":V$"VEGE":VM0:I *** V@GREHAJT[ ***ICUTLPAR:10:20:45:ITLPAR:10:20:45:I10:DGDGPAR:45: J10:DGDGPAR:45:FJRSPRSP1:R(RSP)I1:W(RSP)PAR1:: *** ISM@TL@S ***J W(RSP)0,IR(RSP):V(VM)I:W(RSP)W(RSP)1:: *** ISMV@GE ***JRSPRSP1:JV$"VEGE":V(VUM)0:VMVM1:JPP1:JPP0:K10:X128:Y96:(X,Y):X1X:Y1Y:DG90:45: K:45:%K:GOSUB9000:RETURN4KRR1:45:CK10:RR0:IKbK *** SZERKESZT{ ***kKSO0uKA$""KL"L";B$KQ B$"S",KV B$"",1100K` (B$U ,1)" ",B$B$" "KjA$A$B$KtSOSO1: (B$,2)"VE",1100L~ (A$,2)"LE",1700:SOSO1:1020L1300'L1000=L *** PARANCS ***GLRSP0XLPRVEGE(P$)pL(VM1:V(VM)PRVEGE1}L2P$P$A$L<100LFP$(P$,PRVEGE)LnL *** EULJ]R]S ***LA3(A$): (A$,A,1)" ",A$(A$,(A$)A):1730LLMA1(A$): (A$,A,1)" ",B$(A$,A1):E(ELJSZAMA)(P$)(B$)2:B$B$" ":B$(B$,7):E$(ELJSZAMA)B$:ELJSZAMAELJSZAMA1:1740MAMMP$P$A$:PRVEGE(P$)U MM(# *** INDT]S ***M-#16452,183M2# *** HIDEGINDT]S ***MF# V(50) NP#F$(16)NZ#A116:F$(A):Nd# "ELORE ","HATRA ","JOBBRA ","BALRA ","ISM ","ISMVEGE","","VEGE ","TOLL ","TOLLNE ","","KOZEP ","SZIVACS","FELEJT ","ORR "U ,"ORRNE "Ni#Nn#PP1Nx#P$""N# E$(20)N# E(20)N#ELJSZAMA1O$RR1O$9500:1000*O% *** MELEGINDT[ ***0O&%PO0%X128:Y96:(X,Y):X1X:Y1YZO:%DG90bOD%45nON% R(10)xOX%RSP0Ob% W(10)Ov%O%OH&"CSMLOGO/3"OR&O\&qU O& *** ]LLAPOTJELZ{ ***O@ H_Z[ PJR1X2X1:S1Y2Y1:E1(R1):(S1)E1,E1(S1)(S10)8PT X3011E1:(X1R1X3,Y1S1X3)::DPPÓ T\RL{~PZR1X2X1:S1Y2Y1:E1(R1):(S1)E1,E1(S1)(S10)PdÁ X3011E1:(X1R1X3,Y1S1X3)::