Mesta )G)d *** Hra Msta *** Nmt Duncan Anderson Sinclair Programs July 1983 eskou verzi pepracoval  1984 Otto Adametz n 320@ xkek na souad. x,y P1:x,y-2:0,4:x-2,y:4,0:0: popis sousednch stt %30:4,3;"NDR":30:13 ,1;"NSR":30:16,6;"RAKOUSKO":30:18,21;"MAARSKO":30:13 ,31;"S";14,31;"S";15,31;"S";16,31;"R":30:8,22;"POLSKO": Bkresl mapu republiky zl$; zatky 6 kivek jsou v a(s),b(s) #m=10 :k=20:p=1 s=16 a(s),b(s) x=l$(p): .x=10 x=-(l$(p+1)):p=p+1 x=20p=p+1:s: p=p+1 y=l$(p) .y=10 y=-(l$(p+1)):p=p+1  p=p+1 x,y:200 !zatek programu, autostart "H236099\,100d:7:"sisli"65368X,168:0 , :760 6"zatek programu, warm start @!::7:7:0: J!750:170:150 TO30:" Kterou variantu (a,b,c,{d}) ?"';a$ Ya$="c"9992' ^F"Jak stupe obtnosti (1-9)? ";a:a<1a>9 350^ hga=9 6::750:"Jak stupe obtnosti (1-8)? ";a:a<1a>8360h ra=a*10 |d(a):sc=0: a$="a"430 a$="b"650  320@ var a - hdn polohy c=110 #r=(*a)+1:d(r)440 :d(r)=1:p$=c$(r):xx=c(r,1):yy=c(r,2) I2,11 ;"Kde le ";p$;3,12 ;" " x=140:y=110n x=x+2*(="p"x<252)-2*(="o"x>9 ):y=y+2*(="0"y<135)-2*(="l"y>13 ):130:0:130 "1"480 1130:n=2040(:.006yD,n:n xd=(xx-x):yd=(yy-y):d=(xd*xd+yd*yd):d=((20-d)/1.9s333):d=(dd>0)+(0d<0):4,12 ;"Pesnost: ";d;"/10 ":1,d:sc=sc+d +n=21-(yy/8):m=(xx/8) #xx,yy:1;1;n,m;" "  150: &#0;1;n,m;" ":xx,yy 0_8204:2,9 ;" ":4,12 ;" " :1;xx,yy:130 Dxx=xyy=y600X NO(xx-x)=0ƽ(yy-y)5(yy-y)=0ƽ(xx-x)51;xx,yy Xc bn=03:m=3040(:.01z# =,m:m:n:2,9 ;"Tvoje skre je ";sc;"/100 ";3,11 ;" " l#1;1,0;"Pro dal hru stiskni cokoli":0:#1;1,0;" ":2,9 ;" ";3,12 ;" " v.4L,10 :340T var b - hdn msta c=110  9999' #r=(*a)+1:d(r)660 bt$(12 ):2,11 ;"Jak se jmenuje ";3,11 ;"toto msto ? " d(r)=1:x=c(r,1):y=c(r,2):n=21-(y/8):m=(x/8):130:1;1;n,m;" ":100d:0;1;n,m;" "  ">>";t$ t$c$(r).1}L,20:.1}L,20:.1}L,20:2,11 ;"Nikoli, toto msto se";3,11 ;"jmenuje: ";c$(r):8204:2,11 ;" ";3,11 ;" ":720 w2,11 ;"Sprvn ! ";3,11 ;" ":1,15:sc=sc+10  130 c  610b  Podprogramy 10,4;"Msta v eskoslovensku": 750:3,3;"Program m ti varianty:"''"a) mus uhodnou, kde le vy-bran msto, umstit na to mstokek a stisknout 1. K ovldnkku se pouvaj klvesy"''" 0 o p l" '"b) pota umst kek a tymus uhodnout, kter msto toje. Psmena s hky a rkami jenutno vkldat v grafickm mdu !"'' ?'"c) pota ti postupn uke,kdele jednotliv msta."  8204: r"Pi kad he dostane 10 kol.Stupe obtnosti * 10 je poetmst, mezi ktermi si potame vybrat."  '"Pro normln lidi jsou stupnobtnosti 1-8. Pro zempisnexperty, kter omrz normlnhra,je stupe 9. Pi jeho zvole-n se pota podruh zept nastupe obtnosti. Nyn udej 1-8Nvrat do normln hry je monvolbou psmene d pi dotazu navariantu." *''"Dleit upozornn !"'"Potebn data jsou uloena vpromnnch, kter se nahrvajz kazety souasn s programem. Nesm se proto pouvat RUN,vdyjen GOTO, nebo GOSUB!" 4#1;1,0;"Stiskni kteroukoli klvesu ":0:#1;1,0;" ": '*********************** 'r:"Zznam :":"Mesta"280:"sisli"65368X,168::"Verifikace :"'':"Mesta":"sisli":300, ' Postup. zobraz. mst ' -n=180P:2,12 ;c$(n) ' ax=c(n,1):y=c(n,2):m=-9 9 :130:1:130:m:130 ' "8204:1:130:n ' @2,0;" ":340T ' Grafick symboly 'T20,2;"md G: abcdefghijklmnopqrstu": P '  'kp a bpe fpghx>yl!-|I!{@%2JD112Gm3H2L212m112111m32m1m1m22m20m3200m24m31m2m1m20m3m3m14m20m52m11m41m3204m24m62m22m22m3112m20m2203m3m2m3m1m1m1m4m42m2m3m1m2m4m5m5m2m5m2m2m34m50m3m2m42m3m1m6m33m34m3m2m22m11m500m2m4m1k3m40m14m23m1422m1112m21332023m11216301m2313m17m3206m4301m1825m2201m7m2m56m80m22m1m1m2m7m21m6m7m2m5m12m2k204m21m32m11m13m13m27m42m1414m12220m120313913141355m23m1222231300223012431412m1101m1210m2422m112302m2202m6301260021m13m36m51m231k1644m1212013611022m230km20m33m2m1m32m20m66m1m1m43m4m1m42m2m3m21m2m12m1m4m3m64m2m1m31m3m10m2m30m3m6m32m2m2m2112m15m40m46m3m2m10m2m5m51m13m1m1m1302m53m15m12m50m74m3m1m3003m3242m24m6m2m54m52m203m50m2m10m4m1m3m3m48m3002m323224m33m50m1m2m13m30m13m3m1m62m25m32m31m1m4m3m14729m42km4m103m63m31m2m13m3m6m2m6m3m5m1m4m301m6m4m20m3m3m41m5m1m5m5m1m3m23m32kZo  ^p.dP Praha Bratislava Brno Ostrava Koice Plze Olomouc Liberec Hr.Krlov Pardubice .Budjovicest n.L. Havov Gottwaldov Nitra ilina Karvin Preov Kladno B.Bystrica Trnava Most F.Mstek K.Vary Opava Martin Dn Chomutov Teplice Jihlava A Cheb Tachov Mar.Lzn Domalice Suice Strakonice Pbram .Krumlov Tbor Beneov Jind.HradecMl.Boleslav Koln Jin Jablonec n.NHavl.Brod Teb r n.S Trutnov Znojmo Nchod Mikulov Blansko .Tebov Beclav umperk Prostjov Jesenk Uhersk Hr. Perov Komrno N.Zmky Topolany Trenn Humenn Michalovce Bardejov Preov Spi.N.Ves Poprad Rim.Sobota Lipt.MikulBrezno Luenec Zvolen Pov.BystricaPrievidza Levice Turnov P P %P>l{(pJa<%a}ZL^p\j=E6aL+LcE7o:--}\seG:'{2XS tqgmX+O0O3_9?CTCaJJIwPiSxPV[^L`X`|b?ewp>pQldv=xf|S}pET4?C>OECF/H>,5G;'MP Hr.Krlov Ab5  Pardubice Zsisli X]8