FAUST ; 280288/15.17D("CRT:M1":,:, ::MU$"V15T4O2S6M2"V2J1$"T6V15O3S6M11C5FR1R1GFGA5AAS8M2T7R0O4":J2$"T6V13O4S6M19C5FR1C0FG1CGA5AAT7R0",<I@:MU$MU$"+#C1#G#A#G":_F"T4V15O1#G8#A3#GO2#C1#D#E7#E3O1#A3#GO2#C1#DE7E3O1#A3#G#AO2#C7T6O3";MU$"O1#A1#GV10S8#E7"PXp:Yp:QSH:QB@:QC:"FAUST":XX:YY:QC:"FAUST":XX:YY:"FAUST"TZJ@:I*:[J]() ,()H:I,JtdQ@:"BOR":O$"HLAVOLAM":[]|,,O$,@,:[]p,,O$,@,mnO$"(C) VFR'SOFT 1988":[]0,4,O$,,:[]@,4,O$,, xQP:,Q:O$:O$""Q Q:: ::,:!"INICI":ST:JOH X(X)(X)#: Y(Y) (Y)("MENU":"KREM":KX@:KYSTKXST@KX;I :[]I,,I,H:ME@ ME@"NAVOD":"MENU"f"POLE":"CRT:M1":Q:"BOR":,:,:@,p:,"[],,,G,:QB:QC:X:Y:QSH:"FAUST":[]p,,"",,:Ip:[]I,,I,\:7,XX@:YY@:QC@:QB:"FAUST"6[], ,,<,:,,"K... ",,:,(,"P... ",,@[],R,,,:,Z,"_ ^ SPC",,:,n," ... ",,J[],,,?,:[], ,"CASRESENI",,:H,,"0:00:00",,r"HRA":"READ":XKX:YKY:QB:QC:"KRE0":X(X)P,Y(Y) ,"CILOVA",,:X(X)P,Y(Y) ,"POLOHA",,:QB@T|[QB]4, ," START ",,:QB@QB:O$:O$"" |"000000":TU$E"P1":"KREPO":XXP(,):YYP(,):PPU"P2":PAP(X,Y):PL(P(X,Y) ):PRP(X,Y)PL :XXP(PL,PR):YYP(PL,PR)!PP"PAN1"::"PAN0""P3":TU$ ::TN$(TU$,)(TN$,)[],,,?,:H,,(TN$,,)":"(TN$,@,)":"(TN$,),,:"E": ^[]H,,,9,:R,,(TN$,),,TU$TN$:O$:O$"K" ::"SMAPO":[]*, ,"?",,:[]>,/,"(A/N)",@,O$:O$"A""MENU"O$"N""P1":: O$"P" bTU$:"SMAPO":O$"PRERUSENA":[]*,,O$,,:(,,O$,,:QXX:QYY:"+CGC"&Q:XH:YW0O$"HRA":[]U, ,O$,,:S,,O$,,:QQ\(:[]jX,<Y,pX,HY,:[]Xj,Y<,Xp,YH,:X(Q) :YP(Q) :Xj,Y<,Xp,YH,:jX,<Y,pX,HY,DQQ,NO$:O$"" :::TU$:XQX:YQY:"P1"5bSK(JO):SG(JO):SG SK "P3"=lSG PLPPPP:"+G":"PANM":"P2"vSG"KREK":"P2""SK(SK)"P3"!PP"POHYB"::"PANM"SK 3P(X,Y)H"WARN"::YY: SK 3P(X,Y)H"WARN"::YY: SK@ 3P(X,Y)H"WARN"::XX: SK`"P3"3P(X,Y)H"WARN"::XX: PAP(X,Y)"P2"SK 4P(X,Y)H"WARN"::YY:"P2"SK 4 P(X,Y)H"WARN"::YY:"P2"SK@ *4 P(X,Y)H"WARN"::XX:"P2"4*P(X,Y)H"WARN"::XX:"P2">"WARP":PP:"PANM"3H"WARN":"+C#A":XXP(PL,PR):YYP(PL,PR):"P2""\ "POHYB":QX:QYfSKQYpSK@QXzSK QYSK`QX"TESTIK":Q"WARP"!PA Q@"WARP";PL (SK SK ) Q@"WARP";PL (SK@ SK`) Q@"WARP"@QQ:XP(PL,PR)XQX:YP(PL,PR)YQY:UXX:UYY:I1"PREPOLE":X:Y FP(X,Y) XP(,)X:YP(,)Y:IIFP(X,Y)$XP(,)X:YP(,)Y:IIIY,XXUX:YUY:"PANM":"MAZP"XXQX:YYQY:"KREK"6KXXP(,) KYYP(,)"P2""S2M5T6V15O3D5M9G8M5A2DAB5BBB1+C+DGB6A3G7A3BB4A1G3RA4B1B5A4B1B5G4A1A7#F5DM9G8M5":"A2DAB5BBB1+C+DGB6A3G7A3BB4A1G3RA4B1B5A4B1B5A2BAG5"YXX(X):YY(Y):IH~L:[]XI,YI,XI,YI:IQ:"BOR":,:@,p::J  :IH:J,I,"!",,:I,J$: ,H, ,/,@:4,X, ,-,:[]h,\,"PRUMERNE CASY",,:[] ,X, ,.:[],,,,i.OT$():OT$()"0:20:00":OT$()"0:35:00":OT$(@)"2:00:00":OT$()"5:00:00"C8I:0,Ip:I;". - ";OT$(I):B[]h,h,"TVUJ CAS",,:0,:ST;". - ";(TN$,,)":"(TN$,@,)":"(TN$,)&LQB:STSTST-VO$:O$"",QB:QB QB: V`,:"MENU""FAUST": QB:QQS(cQX,Y,X,QY:,,,Q Y:,,QX,:,,QX,Q@Yc,,QX,:,,,Q Y:,,QX,:,,QX,QY:,,,Y![QC]X,Q Y,QB{Q@X,Y,QX,Q Y:,,Q X,:,,QPX,Q Y:,,QX, QYE,,QX,:,,Q`X,Y:,,Q@X,![QC]QPX,Y,QB]QX,Y,QX,QY:,,Q(X,Q Y:,,Q@X,c,,QPX,QY:,,,Y:,,Q@X,:,,QDX,Q`Yk,,Q4X,QY:,,Q$X,Q`Y:,,Q(X,Y:,,QX,![QC]Q333X,Y,QB{QX,Y,Q`X,Q@Y:,,QX,QY:,,Q`X,Q Y:,,QX,k,,QX,QY:,,QpX,Q@Y:,,Q fffX,Y:,,QX,! [QC]QX,Y,QBlQX,Y,Q X,QY:,,QX,:,,QX,Q Y:,,Q$X,\,,Q X,QY:,,Q*fffX,:,,Q(X,Y:,,QX,!([QC]Q X,Y,QB2 @: <:'---=F"BOR":,>,Q,,,@,,y,:(): P:'---BZ"READ":P( ,@),XP(,@),YP(,@)#dST ST@"DATA1"nST"DATA2"xST"DATA4";Y@:X :P(X,Y):X,Y>D:C@:XP(D,C),YP(D,C):C,D: "DATA1"'50,50,50,50,50,50,50,0,0,10,10,50'50,0,0,11,11,50,50,30,31,40,41,50)50,20,21,12,12,50,50,20,21,13,13,5050,50,50,50,50,501,5,7,7,7,7,7,73,5,3,4,3,2,3,11,2,2,2,7,7,7,71,3,2,3,7,7,7,73,3,4,3,7,7,7,7 "DATA2"'50,50,50,50,50,50,50,0,0,10,10,50'50,0,0,11,11,50,50,30,31,40,41,50)50,12,12,20,21,50,50,13,13,20,21,50"50,50,50,50,50,50,1,5,7,7,7,7,7,763,5,3,4,1,2,1,1@3,2,4,2,7,7,7,7J1,3,2,3,7,7,7,7T3,3,4,3,7,7,7,7 ^"DATA4"'h50,50,50,50,50,50,50,20,0,0,21,50'r50,20,0,0,21,50,50,22,10,10,23,50)|50,22,30,31,23,50,50,32,40,41,33,5050,50,50,50,50,502,5,7,7,7,7,7,72,3,7,7,7,7,7,71,5,4,5,1,3,4,32,2,3,2,1,1,4,12,1,3,1,7,7,7,7"KREPO":J1$;J2$[],, ,H,:QB:QC:D@:C@:XP(D,C)` ::XXP(D,C):YYP(D,C),(D)"KRE0","KRE1","KRE2","KRE3"C,D:: :'---y"KRE0":[QB]X(X),Y(Y),X(X),Y(Y),QC:[]X(X),Y(Y),"F",@,: :'---A"KRE1":[QB]X(X),Y(Y),X(X),Y(Y),QC: :'---A"KRE2":[QB]X(X),Y(Y),X(X),Y(Y),QC: &:'---A0"KRE3":[QB]X(X),Y(Y),X(X),Y(Y),QC: ::'---5D"MAZP":QB:QC:QD(P(X,Y) )4N(PL)"KRE0","KRE1","KRE2","KRE3","KRE3"X b:'---5l"KREK":QB:QC:QD(P(X,Y) )-v(QD)"KRE0","KRE1","KRE2","KRE3" :'---"SMAPO":QB:QC:XXP(,):YYP(,):"KRE3":XXP(,):YYP(,):"KRE3":Q4@:[],,Q,Q<6,:[],,Q,Q<6,y[],G,Q,GQ<6,:[],G,Q,GQ<6,::: :'---F"PAN0":QB@:(PL)"XAN0","XAN1","XAN2","XAN3","XAN3" :'---L"XAN0":[QB]X(X)@,Y(Y)@,X(X),Y(Y): :'---L"XAN1":[QB]X(X)@,Y(Y)@,X(X),Y(Y): :'---L"XAN2":[QB]X(X)@,Y(Y)@,X(X),Y(Y): :'---L"XAN3":[QB]X(X)@,Y(Y)@,X(X),Y(Y): :'---F*"PANM":QB:(PL)"XAN0","XAN1","XAN2","XAN3","XAN3"A4QB:QC:(PL)"KRE0","KRE1","KRE2","KRE3"> H:'---FR"PAN1":QB@:(PL)"XAN0","XAN1","XAN2","XAN3","XAN3"A\QB:QC@:(PL)"KRE0","KRE1","KRE2","KRE3"f p:'---Dz"DEBUG":DBDB:DBUXX:UYY:"KREPO":XUX:YUY:dI:J :X(I) ,Y(J) ,(P(I,J)),,@:J,I: :'---"TESTIK":Q>P(XP(,)QX,YP(,)QY)PAQ@P(XP(,)QX,YP(,)QY)PAQQ :'---S"PREPOLE":QRQXQY@:(PL)"PREP0","PREP1","PREP2","PREP3" :'---1"PREP0":QR"P0LE","P0DO","X","P0NA","P0PR" :'---1 "PREP1":QR"P1LE","P1DO","X","P1NA","P1PR"  :'---1$ "PREP2":QR"P2LE","P2DO","X","P2NA","P2PR". 8 :'---1B "PREP3":QR"P3LE","P3DO","X","P3NA","P3PR"L V :'---p` "P0LE":P(X,Y):P(X,Y):P(X,Y) :P(X,Y)$: j :'---bt "P0DO":P(X,Y):P(X,Y):P(X,Y) :P(X,Y)$: ~ :'---p "P0NA":P(X,Y):P(X,Y):P(X,Y) :P(X,Y)$: :'---b "P0PR":P(X,Y):P(X,Y):P(X,Y) :P(X,Y)$: :'---6 "P1LE":P(X,Y)PA:P(X,Y) Q: :'---Z "P1DO":P(X,Y)PA:P(X,Y)PA:P(X,Y) :P(X,Y)$: :'---Z "P1NA":P(X,Y)PA:P(X,Y)PA:P(X,Y) :P(X,Y)$: :'---/ "P1PR":P(X,Y)PA:P(X,Y) Q: :'---Z "P2LE":P(X,Y)PA:P(X,Y)PA:P(X,Y) :P(X,Y)$: :'---/ "P2DO":P(X,Y)PA:P(X,Y) Q:  :'---6( "P2NA":P(X,Y)PA:P(X,Y) Q: 2 :'---Z< "P2PR":P(X,Y)PA:P(X,Y)PA:P(X,Y) :P(X,Y)$: F :'---/P "P3LE":P(X,Y)PA:P(X,Y) Q: Z :'---/d "P3DO":P(X,Y)PA:P(X,Y) Q: n :'---/x "P3NA":P(X,Y)PA:P(X,Y) Q: :'---/ "P3PR":P(X,Y)PA:P(X,Y) Q: :'--- "KREM":J1$;J2$::Q:"BOR":,:"DATAM":I@:QX,QY,QR,Q:[]QX,QY,QR,Q::@, [@],,:@,p:J@@:IHJ:[],I,,I:I,J:,p= X :Y :QS:QB@:QC:"FAUST"U I@:QX,QY,Q$,QN,QD:IJO@ IST`QC::QC@ [QC]QX,QY,Q$,QN,QD: :'---8 QW:ME@:"DATAM":I:Q$:p QX,QY,QR,Q:[@]QX,QY,QR@,Q:QBp:IH:,QB:QBQB:O$:O$""   QW" :[]QX,QY,QR@,Q' ME@ ::MEME:  :'--- ME@ ME , ::…"DATAS":I :Q$::I@:QU,QZ,Q$,QN,QD:MEIQC::QC@-" [QC]QU,QZ,Q$,QN,QD::JOME@: @ , ME ME0 J ::…"DATAS":I :Q$::I:QU,QZ,Q$,QN,QD:MEI`QC::QC@-6 [QC]QU,QZ,Q$,QN,QD::STME`: @ )@ "DATAM":IME:O$::J QW:5T "DATAM":194,40,58,.6,250,130,60,.3,67,30,47,.5)^ 67,64,47,.5,80,90,47,.5,50,155,35,10h 150,140,47,2,200,173,18,1.5,228,170,18,1.50r 261,171,18,1.5,293,168,18,1.5,280,86,32,.7w| "DATAS":160,55,MENU,2,1,199,127, ,1,1,28,26,,1,1,28,60, 1,1,1,41,87, 2,1,1q 30,145,NAVOD,1,3,130,139,START,1,1,196,167,1,1,2,224,163,2,1,2,257,165,3,1,2,289,161,4,1,2,260,83,,1,1 :'----? "NAVOD"::Q`:"BOR":,`:@, "";:" ":" MAJAK ":" MZ-800 (C) VFR'SOFT 1988" "":" H FAUST, OSEL ":" , "; " . D ,":" ,.";:" ." :" U -":" (FAUST) ":" . O -";:" , " " FAUSTA.":" K () -":" '', () -";:" ''."s " H 4 ,";:" ."::" M !" O$:O$"" 8 Q:"BOR"::@,p:,:% :' N , $ :' , & :' M INVAZI. :' S (:'P.S,C 545,K.H