*04K?b6X':\612345,?k$>"9")(k$<"a"k$>"z")k$" "806& 'k$=" "k$="x": (l=8:795 )a$="":n=0:811+ */k$=:k$=" "l=8:795:800  +*k$"0"k$"9"k=k$-21:814. ,*k$"a"k$"z"k=k$-96`:814. - 810* .#n$(k,4)=0810* /7c=n$(k,1):13 +n,6;x$(k);" ";w$(c) 0>n=n+1:a$=a$+(k):c=de(type=1k=m2)8204 1n=812 ,6;1;"THIS ROUTE IS TOO LONG":k=1300,:k::l=8:795:12 ,6;" ":800  2""8182 3 810* 4l=8:795 5,13 ,6;"MESSAGE TO BE SEND VIA" 6)k=02:15+k,6; 7j=13 8k*3+j>n827; 9ag=a$(k*3+j) : x$(ag);" "; ;j:k >620,6;1;"KEY CLEAR,COPY OR ENTER" ?k$=:k$""831? @k$= A k$="x" BFk$="z"20,6;" "::k$=13 CHk$=13 20,6;"THE MESSAGE IS BEING SENT":840H D 832@ Hs$(3,stack)=m$ P R)e=0:a$=i$+a$:n=a$:k=1n Sag=a$(k):to=n$(ag,1) T6e=1Űz$(from,to)>1e=1:860\ U2orank=n$(ag,p+1):erank=n$(ag,4-p) Vorankerank860\ WTim=f$(2,ag,5):im>0Ưf$(2,ag,im+5)=stack860\ X+im=im+1:f$(2,ag,5)=im Z"f$(2,ag,im+5)=stack [bn$(ag,4)1e=1:k=nƯm$(1)<10 Ưn$(ag,4)=2e=0 \ from=to ak b+m$(1)>9 e=1870f corank=0870f d0orankb=07 Hn R"a"+c*8+b,n \b fc  t$(3,20) l=13 t$(l) l  u$(2,12 ,33!) a$=""  b$=""  c$="" d$="" e$="" f$="" g$=""  h$=""  i$=""  j$=""  k$="" l$="" y$=(16)+(2) z$=(16)+(1) m$=y$+" " <u$(1,1)=y$+c$+z$+d$+""+m$+z$+""+j$+y$+i$ >u$(1,2)=y$+d$+c$+z$+d$+""+m$+z$+""+j$+y$+i$+j$ Bu$(1,3)=z$+c$+y$+d$+c$+z$+f$+m$+z$+g$+y$+i$+j$+z$+i$ 7u$(1,4)=z$+""+c$+y$+e$+m$+h$+z$+i$+"" ,u$(1,5)=" "+m$+" " .u$(1,6)=y$+"" )u$(1,7)=u$(1,6) !)u$(1,8)=u$(1,5) "7u$(1,9 )=z$+""+j$+y$+k$+m$+b$+z$+d$+"" #Cu$(1,10 )=z$+j$+y$+i$+j$+z$+l$+m$+z$+a$+y$+d$+c$+z$+d$ $?u$(1,11 )=y$+i$+j$+z$+i$+""+m$+z$+""+c$+y$+d$+c$ %=u$(1,12 )=y$+j$+z$+i$+""+m$+z$+""+c$+y$+d$ .l=112 /c=33!22-1 01u$(1,l,c)=" "u$(1,l,c)=(8) 1c 2l 82l$=(16)+(6)+(17)+(2) 9c=119 : l$=l$+" " ;c <c=110 =l$=l$+(8) >c Bl=112 Cu$(2,l)=l$ Dl L,u$(2,2,2122)="" M,u$(2,3,2122)="" ^ ` n(26) a v(8) bv$(2,2,36$) c t(2) jv=18 kv(v) lv tj=-12 012 vn$ wk=18 xl=n$(k)-96` y n(l)=v(k)+j zk {j ~k=12 j=12 v$(k,j) j k t(1),t(2)  !p=2:x=0:y=6 900 950 30 #p=1:x=13 :y=10 900 950 & (p$(2,2,18) 2)p$(1,1),p$(2,1) <)p$(1,2),p$(2,2) A@o$(2,3):q$(3,6):r$(3,13 ) F@o$(2,3):q$(3,6):r$(3,13 ) Ks$(3,16,6) Po$(1),o$(2) Z%q$(1),q$(2),q$(3) d%r$(1),r$(2),r$(3) n5n$(36$,5):f$(2,36$,14) o+k=126:n$(k,1)=(k):k p3k=2731:n$(k,1)=(18):k q3k=32 36$:n$(k,1)=(25):k s.m$="":k=113 :m$=m$+0:k x:k=136$ ya,b z>c=(*36$+1):n$(c,2)32 2682z {$n$(c,2)=a:n$(c,3)=b |3f$(1,c)=1+m$:n$(c,4)=1 }`(a=1b=0)(a=0b=1)f$(1,c)=3+m$:n$(c,4)=3 ~f$(2,c)=f$(1,c) n$(c,5)=0 k g$(2,6) o(6,5):s(4)  -w$(26,10 ):x$(36$,7) k=126 w$(k),x$(k) k k=2736$ x$(k) k y$(26,8) k=126 y$(k) k  ::11 ,5;2;"PLEASE START THE TAPE" z$(26,26)  ""z$() A11 ,5;2;"PLEASE STOP THE TAPE":40(  day=3 stack=1 p=1 <r=(*26+1):r=18r=253030 s(1)=r:schwag=0 "j=15:7000X:j <r=(*26+1):r=18r=253060 btag=0:btloc=r Dr=(*26+1):r=18r=25r=btloc3070 %bcag=0:bcloc=r:bcon=2 manloc=(*26+1) explod=0  5000  100d H5,6;p$(p,1,14);"AGENT & RANK DAY ";day y=7:x=6 k=136$ =n$(k,4)=0ůn$(k,p+1)=03550 a=n$(k,p+1) y,x;x$(k);" ";a y=y+1 #y=18y=7:x=18 k 200   100d I5,6;p$(p,1,14);"AGENT REPORTS DAY ";day y=7:x=6 k=136$  $n$(k,4)=03660L $orank=n$(k,p+1) )erank=n$(k,4-p) .8orankerankůf$(1,k,5)=03660L 8'y,x;x$(k);" ";f$(1,k,5) B0y=y+1:y=18y=7:x=18 Lk V 200  reports=0:150 reports=55100  100d day=35100 ,5,6;p$(p,1);" DAY ";day .7,6;"YESTERDAY'S FIELD REPORTS" *9 ,6;"KEY 1 List all agents" *10 ,6;" and their rank" ,12 ,6;"KEY 2 List agents with" /13 ,6;" reports to send and" ,14,6;" how many reports" ,16,6;"KEY 3 Call in a report" /18,6;"KEY 4 Finish with reports" /19,6;" Give today's orders" !k$=:k$<"1"k$>"4"5050  k$="1"3500 :5005  k$="2"3600:5005 8k$="3"400:reports=reports+1:5005  orders=0 orders=351702  100d ,5,6;p$(p,1);" DAY ";day #7,6;"TODAY'S ORDERS" *9 ,6;"KEY 1 List all agents" *10 ,6;" and their rank" )12 ,6;"KEY 2 Give an order"  .14,6;"KEY 3 Finish with orders"  +15,6;" Operations over"  *16,6;" until tomorrow" !k$=:k$<"1"k$>"3"5140  k$="1"3500 :5101 (6k$="2"700:orders=orders+1:5101 2$p=p+1:p<35000 N P 6000p Zday=day+1 dk=116 is$(1,k)=s$(2,k) ns$(2,k)=s$(3,k) sk:stack=1 x.m$="":k=113 :m$=m$+0:k }k=136$ f$(1,k)=f$(2,k)  f$(2,k)=n$(k,4)+m$ k  p=1  5000 n p0::1 z 100d 25,6;"END OF DAY ";day;"'s TREACHRY"  7000X <k=16:j=15:o(k,j)=0:j:k  no=0 k=136$ +o1=n$(k,5):o1=06080 no=no+1 'o(no,1)=s$(3,o1,1) 'o(no,2)=s$(3,o1,2) 'o(no,3)=s$(3,o1,5) 'o(no,4)=s$(3,o1,6) 'o(no,5)=s$(3,o1,3) n$(k,5)=0 k  y=7 0o=1no:o(o,1)=9 7100 o 0o=1no:o(o,1)=17200  o 2o=1no:o(o,1)=57300 o 0o=1no:o(o,1)=67400 o 0o=1no:o(o,1)=37500L o 0o=1no:o(o,1)=47600 o 0o=1no:o(o,1)=27700 o 0o=1no:o(o,1)=87800x o $0o=1no:o(o,1)=77900 %o .k=136$ 0Yf$(2,k,2)0f$(2,k,5)=(f$(2,k,5)+1) 1k 83y,6;"3 days ago SCHWEINSTEIN":y=y+1 B7y,6;"was seen in ";w$(s(4)):y=y+1 Lbcon=26230V Q3y,6;"BEACON ON in ";w$(bcloc):y=y+1 Vbtag=06240` [2y,6;"FIRING BUTTON detected":y=y+1 \)y,6;"in ";w$(btloc):y=y+1 `explod=16300 jd=z$(manloc,bcloc) o$d=0bcon=16270~ tn=0:k=18 uy$(manloc,k)" "n=n+1 vk wr=(*n+1) x9bcon=2manloc=y$(manloc,r)-64@:6270~ yc=y$(manloc,r)-64@ zz$(c,bcloc)d6263w { manloc=c ~3y,6;"MANDROID in ";w$(manloc):y=y+1 4s(1)18s(1)25200 vs(1)=18y,6;"SCHWEINSTEIN IN LONDON":y=y+2:y,6;"MI6 HAVE WON THE GAME":p=1 zs(1)=25y,6;"SCHWEINSTEIN IN MOSCOW":y=y+2:y,6;"THE KGB HAVE WON THE GAME":p=2 950:6330 V Xk=42-1 bs(k)=s(k-1) lk vschwag>0 n=0:k=18 #y$(s(1),k)" "n=n+1 k r=(*n+1) c=y$(s(1),r)-64@ 0c=s(3)c=18c=257050 s(1)=c:  explod=1 2ag=o(o,2):btagagob=2:74808 1y,6;"MIND-BOMB explodes in":y=y+1 $y,6;w$(manloc):y=y+1 ]manloc=18y=y+1:y,6;"THE KGB HAVE WON THE GAME":p=2:6330 Ymanloc=25y=y+1:y,6;"MI6 HAVE WON THE GAME":p=1:6330 k=136$ #n$(k,1)manloc7170 n$(k,4)=0 btag=kbtag=0 bcag=kbcag=0 schwag=kschwag=0 k  explod=1:   !ag=o(o,2):c=o(o,3) %n$(ag,4)=0 *n$(ag,1)=c 4btag=agbtloc=c >bcag=agbcloc=c Hschwag=ags(1)=c R#y,6;x$(ag);" go to ";w$(c) \y=y+1:  "ag=o(o,2):ob=o(o,3) n$(ag,4)=0 7300+10 *ob schwagag74808 schwag=0: btagag74808 btag=0: bcagag74808 bcag=0:  <ag=o(o,2):ob=o(o,3):to=o(o,4):ag=to 3n$(ag,4@)=0ůn$(to,4)=0 (fc=n$(ag,1):tc=n$(to,1) z$(fc,tc)>"1" 7400+10 *ob schwagag74808 schwag=to:s(1)=tc  7450 btagag74808 btag=to:btloc=tc  7450 bcagag74808 bcag=to:bcloc=tc "f$(2,to,2)=13 f$(2,to,3)=ob $f$(2,to,4)=ag . 8"o(o,1)=47490B 9"f$(2,ag,2)=14 :f$(2,ag,3)=ob ; B"f$(2,to,2)=14 Cf$(2,to,3)=ob E J L!ag=o(o,2):c=o(o,3) Qn$(ag,4)=0 V(sl=0:k=32-1 Ws(k)=csl=k Xk Ysl=07520` Z"f$(2,ag,2)=12 [*f$(2,ag,3)=(day+1-sl) \f$(2,ag,4)=c `s(1)c7530j aIschwag=0schwag=ag:f$(2,ag,2)=10 :7525e b"f$(2,ag,2)=11 e!f$(2,ag,3)=1 ff$(2,ag,4)=c h j"btloccbtag07540t k"f$(2,ag,2)=10 l!f$(2,ag,3)=2 mf$(2,ag,4)=c n btag=ag tbcloccbcon=1 uEbcag=0bcag=ag:f$(2,ag,2)=10 :7545y v"f$(2,ag,2)=11 y!f$(2,ag,3)=3 zf$(2,ag,4)=c ~  <to=o(o,2):ob=o(o,3):ag=o(o,4):ag=to  7401 $f$(2,to,2)13 "f$(2,ag,2)=15   "ag=o(o,2):to=o(o,3)  ag=to 3n$(ag,4)=0ůn$(to,4)=0 c=n$(ag,1) #n$(to,1)c (n$(to,4)=0 -btag=tobtag=0 2bcag=tobcag=0 7schwag=toschwagag=0 <$y,6;x$(to);" is eliminated" A y=y+1 F v x"ag=o(o,2):on=o(o,3) }n$(ag,4)=0 !bcagagob=3:74808  bcon=on   "ag=o(o,2):pl=o(o,5) n$(ag,4)=0 orank=n$(ag,pl+1) erank=n$(ag,4-pl) erank>orank n$(ag,4)=o(o,3)   < >nA B  !                            ABCDEHIJL!  + ֗$ddffdfdsaugfdafsgfdsa* 822614141866111133666 iyiutiiuyydueytrewqweuteytrewqweute*633661111336631313333 }L~ j   px y dK*OMI6 LONDON CONTROLSCHW.315b/QZ KGB MOSCOW CENTRALLIQ./ROBOTNIK/S-20 ON OFFASLEEPAWAKE ACTIVE, SCHWEINSTEIN FIRING BUTTONHOMING BEACON' ! ι$     $                                                                        M a    AMSTERDAM BELGRADE VIENNA PARIS OSLO LISBON MADRID TANGIER WARSAW ROME ATHENS ISTANBUL BUCHAREST SOFIA PRAGUE COPENHAGENREYKJAVIK LONDON BRUSSELS BERLIN HELSINKI BUDAPEST DUBLIN ZURICH MOSCOW STOCKHOLM $ALPHA BRAVO CHARLIEDELTA ECHO FOXTROTGOLF HOTEL IVAN JULIET KING LIMA MIKE NOBLE OSCAR PAPA QUIZ ROMEO SIERRA TANGO UNCLE VICTOR WINTER X-RAY YANKEE ZULU ZERO ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE PTSR VMNKJC OVBJXT STXJGR UZPRWQ WRGH RDJKHF KFG YVOTPZ CBKGDX NLHGJB YKNM YLNBV MLKB IVCT EZITAR UEW EPASDGFWATDR PIOCXDSAYZEQ IYMBCO QERF TCJD LMVIZU UYIPE ک0323233444213111332232301243222112112343323142232102332321232212432131412322202212212333223111332133243202232333343111221313212332201132234342212334134322212101311232323122332233323231104212324332334323342334033223113221213211311132123012222342224231343122321131012133423332322342333322221011333343224312412334332221012334432143124123432232111034434332432322123434123323024321314222132212231333342021212134431233344334420233131422133111122223433120122312321321222322344422310133223312112323123333113210323122333313342432233212330224113113343312221212333220421224421122333444421123240332221133232123332242214230333223243313211222233211330123331334143223212232122310atacrchwa"" ;M3E3-ۜ*33c3-33-ۖb} > 8gD,8????/$mÁÃÃ&<@ |~< F$1:0:7:0 G04,5;"" HIk=116:4+k,5;" ":k I121,5;"" K 0 P Z b d04,5;"" i04,5;"" nk=520 x*k,5;" " k 121,5;""   0::1 ,x=0:y=0:900:950 100d k=13 #4+k,9 ;3;t$(k) k !8,10 ;p$(p,1) &10 ,6;"OPERATIONAL FILE" )12 ,6;"REF: ";p$(p,2) -14,6;"Heidelberg Schweinstein" )16,6;"GRADE 1 ACCESS ONLY" *18,6;"ENTER CLEARANCE CODE" +20,6;"_ " c$="":k=16 k$=:k$<"a"k$>"z"188 k$=(k$-32 ):c$=c$+k$ !20,5+k;2;k$ ""191 k:day=3g$(p)=c$ Lc$g$(p)20,13 ;2;"IS INCORRECT":950:186   020,6;1;"KEY COPY OR ENTER" &k$=:k$"z"k$13 210 1k$="z"20,6;" ": '20,6;" "   100d ,5,6;p$(p,1);" DAY ";day $6,6;"INCOMING REPORT" -8,6;"PRESS KEY FOR YOUR AGENT" k$=:k$=" " +k$"a"k$"z"ag=k$-96`:440 +k$"0"k$"9"ag=k$-21:440  435 $n$(ag,4)=0436 orank=n$(ag,p+1) erank=n$(ag,4-p) 8orank>erankƯf$(1,ag,5)>0450 510 ,6;1;"NO REPORT IS AVAILABLE" k=1300,:k  400 ,f$(1,ag,2)=0460 m1=f$(1,ag,2) m5=f$(1,ag,3) m6=f$(1,ag,4) !f$(1,ag,2)=0  470 ;m1=17:f$(1,ag,1)>1m1=16 m5=f$(1,ag,6)  m6=0 Af$(1,ag,613 )=f$(1,ag,714) m2=ag m3=p m4=day-1 ;f$(1,ag,5)=(f$(1,ag,5)-1) m$=m1+m2+m3+m4+m5+m6 from=n$(ag,1) 3type=1:de=18:p=2de=25 J8,6;x$(ag);" TO ";p$(p,1,518):800  k$="x"400 me=stack-1:md=3  100d ,5,6;p$(p,1);" DAY ";day $6,6;"INCOMING REPORT" pe=18,6;"REPORT HAS BEEN SENT BUT":9 ,6;"IT HAS NOT BEEN RECEIVED":200 y=7:500  200  m1=s$(md,me,1) m2=s$(md,me,2) m3=s$(md,me,3) m4=s$(md,me,4) m5=s$(md,me,5) m6=s$(md,me,6) 5y,6;"":y=y+1 Gm1<10 y,6;p$(m3,1,518);" TO ";x$(m2) Fm1>9 y,6;x$(m2);" TO ";p$(m3,1,518)  y=y+1 #600X+m1*5:y=y+1  (y,6;""  ]y,6;"Go to ";w$(m5): by,6;"Kill ";x$(m5): gy,6;"Search ";w$(m5): l)y,6;"Steal ";r$(m5):y=y+1 m#y,6;"from agent ";x$(m6): qy,6;"Hide ";r$(m5): v,y,6;"Transfer ";r$(m5):y=y+1 w!y,6;"to agent ";x$(m5): {)y,6;"Change status to ";q$(m5): -y,6;"Switch HOMING BEACON ";o$(m5): !y,6;"Explode MINDBOMB": ,y,6;r$(m5);" captured":y=y+1 y,6;"in ";w$(m6): +y,6;r$(m5);" located":y=y+1 y,6;"in ";w$(m6): 5y,6;"SCHWEINSTEIN was seen on ":y=y+1 &y,6;"DAY ";m5;" in ";w$(m6): .y,6;"I have got ";r$(m5):y=y+1 y,6;"from ";x$(m6): *y,6;"I have not got":y=y+1 y,6;r$(m5): 'y,6;"Goods have been stolen": 6y,6;"Message stopped on DAY ";m4:y=y+1 3md=1y,6;"Contents not available": #me=m5:md=md-1:500: 5y,6;"Message passed on DAY ";m4:y=y+1 3md=1y,6;"Contents not available": #me=m5:md=md-1:500:  Ji$="":m6=0:100d:5,6;p$(p,1);" DAY ";day #7,6;"OUTGOING ORDER" -9 ,6;"PRESS KEY FOR YOUR AGENT" k$=:k$=" " +k$"a"k$"z"m2=k$-96`:707 +k$"0"k$"9"m2=k$-21:707  703 $n$(m2,4)=0703 ?9 ,6;p$(p,1,518);" TO ";x$(m2) '11 ,6;"KEY 1 Go to city" '12 ,6;"KEY 2 Kill agent" (13 ,6;"KEY 3 Search city" )14,6;"KEY 4 Steal object" (15,6;"KEY 5 Hide object" ,16,6;"KEY 6 Transfer object" *17,6;"KEY 7 Change status" *18,6;"KEY 8 Switch BEACON" .19,6;"KEY 9 Explode MIND-BOMB"  k$=:k$<"1"k$>"9"720 m1=k$ k=19 010 +k,6;" " k #10 ,6;:740+k$ m3=p:m4=day (m$=(m1)+(m2)+(m3)+(m4)+(m5)+(m6) m$=m1+m2+m3+m4+m5+m6 )from=18:p=2from=25 -type=0:de=n$(m2,1):800  k$="x"700   "go to ...":750 ;"Kill ...":760:m5=ag:10 ,11 ;x$(m5): (m5=n$(m2,1):"Search ";w$(m5): "Steal ...":770:10 ,12 ;r$(m5):11 ,6;"from agent ...":760:m6=ag:11 ,17;x$(m6): 4"Hide ...":770:10 ,11 ;r$(m5): "Transfer ...":770:10 ,15;r$(m5):11 ,6;"to agent ...":760:m6=ag:11 ,15;x$(m6): @"Change status to ...":780 :10 ,23;q$(m5): D"Switch HOMING BEACON ...":790:10 ,27;o$(m5): "Explode MIND-BOMB": 2l=8:m5=n$(m2,1):k=18 8k$=y$(m5,k):k$=" "l=k-1:k=8:753 312 +k,6;"KEY ";k;" ";w$(k$-64@) k k$=:k$<"1"k$>l755  795 6m5=y$(m5,k$)-64@:10 ,12 ;w$(m5):  )13 ,6;"PRESS KEY FOR AGENT" k$= +k$"a"k$"z"ag=k$-96`:765 +k$"0"k$"9"ag=k$-21:765  761 $n$(ag,4)=0761 l=1:795   k=13 (12 +k,6;"KEY ";k;" ";r$(k) k  k$=:k$<"1"k$>"3"773 m5=k$ l=3:795     k=13  (12 +k,6;"KEY ";k;" ";q$(k) k  k$=:k$<"1"k$>"3"783 m5=k$  775  13 ,6;"KEY 1 ON" 14,6;"KEY 2 OFF"  k$=:k$<"1"k$>"2"792 m5=k$  l=2 Ck=1l:12 +k,6;" ":k:   .13 ,6;"Choose route for message" !-14,6;"by pressing agent keys." ",16,6;"Destination of message" #+17,6;"will end route entry." $(19,6;"SPACE will cancel." %/20,6;"Longest route = 8 agents." &9k$=:(k$<"0"