AA ZEMPL-78 V:7COPYRIGHT 5,6/1991 AXOFT-A.KEPRT 023624H\,:0:0:0 W0:0:0:0:0:23613=\,0:23624H\,0  59999_ "" 23743\,80P ("" <"" ]]&\]`Copyright _"?xxx?@% JP"17~xxx?@% J@w?>p```xp|s|||p 0```|?p8ppq||>>p` ``n?pxxxp<<<<x?c?Ï8`Àpgxp<<<<pxxx_~xgp`?~cpq||>>p8pp??xn `~~aps||pqÀpl?pw?p FFFFFFFFFFGGGGGGGFFFFFFFFFFGGGGGGG!!!!FE!!!!!!FFFFFFEEEEEEE!!!!!!!!DDDDDDEEEEEEEEE !!!!!!!! DDDDDDEEEDDDDDE !!!!!!!!!DDDDDDDDDDDDDDD !!!!!!! DDDDDDDDDDDDDDD !!! ! DDDDGGGGGGGDDDDD !!!!!DDDDGGGGGGGDDDDD !!!!DDDDGGGGGGGDDDDDA !!!GGGGGGGGGGGGGGGGG!!!!!!GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEFFFFFFFFFFFFFFFFFFFFFFFFFFFFXAXOFT 1991p!$$66666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|0000ffff>fff<ckk6f<<~ 0~ p 001kF<![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// 00``6$H >`|  |c|&L?2`|x3`|x?f 0``33~|3c>x ?F8b 0@ n;0`>|>||v6&~D̈6&|FjB3:jnscx<2&|`M00`13bfx33&flXp##BV|#&8fBbb40?F 0b<00000<`0 < <33ff> n33ff 33ff>>|vp0fv3~`<|00x3f> 806;sf ,2<ff<836xl 04x6kn33ff3cf<n33|`;ff| n;0`>`| |0`d833ff>cflcclc6l33f> |?F8bpppv\3,2,"Je rozm+st&n+ obyvatelstva","na Zemi rovnom&rn%?",3,"NENI","NE","N" ?2,3,"Kte<+ tink)1220 A(bor+2inkborink)1220 ink=papbor=ink1220 bor:bor:ink:  !  23613=\,0:pap radek sloup ok  1  1000 23613=\,0:0  a$(radek,sloup) a=1radek a$(a) (rz-1+a,sz;a$(a) 2a F .01z# =,20:1400x P323613=\,0:rz-1+menu,sz;a$(menu) Z x'1;rz-1+menu,sz;a$(menu) 'RZ+MENU-1,SZ;1;A$(MENU) S=n$menu>11360P:23613=\,0:menu=menu-1:1350F Q=d$menu1pot-k<5z$="aj+ ":Y$="ky" pot-k=1Y$="ka" 81;"Ot@zka ";k;" Je#t& zb-v";z$;pot-k;" ot@z";Y$ '' )y3=15:ys=0:Q:A=1Q Z$ 6CS=9 :XS=1:y3=y3+ys*8:ys=2 TISK:23613=\,0 A  1250 23613=\,0:menu=ok#1;" Tato odpov&$ je spr@vn@!!! ":998:23613=\,0:.25~,20:.3,30:ANO=ANO+1:BODY=BODY+1 MENUOK#1;" Tato odpov&$ je chybn@ !!! ":998:23613=\,0:.3,20:.3,0 "BODYMAX=BODYMAX+1 , @10 ,21,0,"Opakovan+","Sv&tad+ly","Sov&tsk- svaz","Rozd&len+ sv&ta","Evropsk@ spole*enstv+","Lid%","T&:k- pr`mysl","Lehk- pr`mysl","Zem&d&lstv+" A "Doprava" JMENU=1 K1200:23613=\,0:cs=9 :Z$="Odkud za*+t?":xs=1:ys=2:y3=20:tisk:23613=\,0 T2pap:1600@:1250:23613=\,0 Yrm=MENU:1900l+rm ^1200:23613=\,0:cs=9 :Z$="Od kter% kapitoly za*+t?":xs=1:ys=2:y3=20:tisk:23613=\,0 cMENU=1 h!1250:23613=\,0 j1920+rm ma=1rm:kapmin:a rj1200:23613=\,0:cs=9 :Z$="Kde kon*it?":xs=1:ys=2:y3=20:tisk w2pap:1600@:1250:23613=\,0 |rm=MENU:1900l+rm 1200:23613=\,0:cs=9 :Z$="U kter% kapitoly kon*it?":xs=1:ys=2:y3=20:tisk:23613=\,0 menu=1 !1250:23613=\,0 1920+rm :a=1MENU+1:kapmax:kapmax=kapmax-1:a Rkapmax,63? .63?,65A,66B,71G,72H 72H,74J,77M .77M,82R,85U,87W,88X 88X,89Y  !   #2,9 ;"Zm&na ovl@d@n+" #3,9 ;"=============="  998:23613=\,0 '5,10 ;"Nahoru";20; =""2015 >n$=:.01z# =,20:998:23613=\,0:n$ %7,10 ;"Dol`";20; =""2030 WD$=:D$""D$N$.01z# =,20:998:23613=\,0:d$:2040  2030 D$=""2030 '10 ,10 ;"VOLBA";20; =""2045 O$=:O$""O$N$D$O$.01z# =,20:998:23613=\,0:O$;:10 ,20;"ENTER"O$=13 :10 ,20;"SPACE"O$=32 :2055  2045 &13 ,10 ;"QUIT";20;  =""2060  X$=:X$O$X$N$X$D$X$"".01z# =,20:998:23613=\,0:X$:13 ,20;"ENTER"X$=13 :13 ,20;"SPACE"X$=32 :2070  2060   0 "16,10 ;"O.K.? A>N"  =""2080  *Z$= /'Z$="N".01z# =,0:2000 1@.01z# =,25:998:23613=\,0:2310 3!  44BODYMAX=0:BODY=0:ANO=0:o(pot) 9k=1pot : >)res=kapmin+(*(kapmax-kapmin+1)) H o(k)=res Mk=12160p Ra=1k-1 \res=o(a)2110> fA pres zgoto goto=11500 goto=23200 goto=341506 23613=\,0 k page:23613=\,0 !1200:23613=\,0 z$="ot@zek." pot=1z$="ot@zku." 'pot2pot4z$="ot@zky." #'" Celkem jsi dostal ";pot;" ";z$ Ux$="bylo":z$="ot@zek":y$=" bylo":ano2ano4x$="byly":z$="ot@zky" %ano=1x$="byla":z$="ot@zka" pot-ano=1y$=" byla" -pot-ano2pot-ano4y$=" byly" E'" Z toho ";x$;" ";ano;" ";z$;" dob1X$="z+skal "+body+"." /''" Z celkov%ho po*tu ";bodymax;z$'" jsi ";x$ +proc=(.5+(100d*body/bodymax)) '" To je ";proc;" procent."  2268 ܌"velkou jedni*ku","jedni*ku","malou jedni*ku","dvojku","hor#+ dvojku","trojku","hor#+ t1pot-k<5z$="aj+":y$="ky" pot-k=1z$="@":y$="ka" <1;"Ot@zka ";k;" Je#t& zb-v";z$;" ";pot-k;" ot@z";y$ tisa=15:KOLIKR a=1kolikr z$ Qy3=(a-1)*16+tisa:ys=2:xs=1:tisk:23613=\,0 a pap radek:RADEK=RADEK+2 8b$(RADEK):A=1RADEK:B$(A)="1":A:MENU=1 sloup &pap:3000 :23613=\,0 a$(radek,sloup) A$(RADEK)="KONEC" a=1radek-2 a$(a) a OK502K$(RADEK):K$ a=1radek .rz-1+a,sz;a$(a);" ";a$(radek-1) a )!  *GAT=SZ+((B$(MENU))-1)*SLOUP:(B$(MENU))=2AT=AT+1 /'rz-1+menu,AT;1;a$(menu) 4-z$=:z$"".01z# =,10 :3400H > 33804 CRz$=N$MENU=RADEK3160X :23613=\,0:MENU=MENU-2:3370* HTz$=N$MENU>13160X :23613=\,0:MENU=MENU-1:3370* MZz$=D$MENU=RADEK-23160X :23613=\,0:MENU=MENU+2:3370* RZz$=D$MENU1bodyted<5Z$="y" dbodyted>0#1;5;"Z+skal jsi ";bodyTed;" bod";Z$;".":.3,2*BODYTED bodyted=0#1;"Ani jedna odpov&$ nebyla spr@vn@":.2~L,25:.25~,20:998:23613=\,0    RADEK=1:SLOUP=20 #1200:23613=\,0: 81:PAP:1000:23614>\,0:0 8A=RZRZ+RADEK-1:A,SZ;" ":A C$(20) X=SZ-1:I$="" 3 RZ,X+1;" ";RZ,1+X;:4060 RZ,X;I$;1;" " I$= {I$=9 X<24.01z# =,14:X=X+1:I$="":RZ,X;1;"   ";8:X<204060 I$=9 4060 nI$=8X6.01z# =,14:X=X-1:I$="":RZ,X;1;"   ";8:4060 I$=13 I$=84060 I$=12 X6.01z# =,14:X=X-1:I$="":RZ,X;1;" ";0;" ";1;" ";8:C$(X-4X-4)=" ":4060 0(I$<480ůI$>90Z)I$" "4060 (I$59ƯI$<65)I$" "4060  X=X+1 C$(X-5X-5)=I$ .01z# =,15 " XSZX1pot-k4z$="aj+ ":y$="ky" @B0,0;"Ot@zka ";k;" Je#te zb-v";z$;pot-k;" ot@z";y$ Jkolikr Oy3=15-16 Ta=1kolikr ^z$ c cs=9 hCxs=1:ys=2:y3=y3+18:tisk:23613=\,0 ra t Q:W$(Q,20):A=1Q wW$(A) yA |!4025:23613=\,0 };.01z# =,20:C$=" "4235 ~/C$(1)=" "C$=C$(2):4222~  A=1Q c$=W$(A)#1;" Tato odpov&$ je spr@vn@ ! ":body=body+1:.3,20:.3,25:ano=ano+1:4250 A ASI=1+(*Q) z#1;" Tato odpov&$ je nespr@vn@ ! ";#2;18,6;w$(ASI):.3,20:.3,15 bodymax=bodymax+1  998:23613=\,0   kolikr=0 MENU=1 8,28,0,"Toto je OKNO (WINDOW)","V tomto p<+pad& si najedete","pomoc+ navolen%ho ovl@d@n+","inversn+m <@dkem","na zvolenou odpov&$","a ode#lete.","Za spr@vnou odpov&$","dostanete jeden bod."  4310 B1200:23613=\,0:1250:23613=\,0  OK=502 13 ,14,"Tento asi nej>","zaj+mav&j#+","zp`sob se na>","z-v@ Dvoj okno",">Double window","Zde si najede>","te kursorem na","zvolen- <@dek","a pomoc+","tla*+tka VOLBA","jej p","pov&zen- <@dek","m`:ete dostat","jeden bod.","To znamen@,",":e ot@zky","tohoto typu","jsou nejd`le>",":it&j#+!" B1200:23613=\,0:3270 :23613=\,0 &!4000:23613=\,0 0/1,1;"Toto je klasick% Input Window (vstupn+ okno). Funguje v podstat& jako p<+kaz INPUT. M`:ete pou:+vat #ipky vlevo a vpravo, delete. Nedovol+ v#ak ps@t nic jin%ho ne: velk@ p+smena a *+slice. (Nefunguje tedy ani STOP!)" :!4025:23613=\,0 DBOR:17,0; " Program v@s pova:uje za :@ka z@kladn+ #koly. Proto ti bude tykat. Ale# Keprt" N_#1;0,0;"P.S. Zdrav+m ""na#e milovan% program@tory"" FUXOFT a CIDSOFT." SPAP X 0 b 2310 !1200:23613=\,0 Uz$="Reset po*+ta*e":y3=20:xs=1:ys=2:tisk:23613=\,0 gz$="Jste si jist-?":1:y3=80P:xs=1:ys=2:tisk:23613=\,0:0 W14,10 ;"A pro ANO"''10 ;"Y for YES"''" Ostatn+>N@vrat do menu" i$=:i$=""4540 i$"Y"i$"A"2310  998:23613=\,0 65350F !1200:23613=\,0 1,1;"Firma AXOFT SYSTEM v@m nab+z+ ============================= AA ZEMPL > U*ebn+ programy zem&pisu pro v#echny ro*n+ky z@kladn+ch #kol a gymn@zia. AA CESAK > U*ebn+ programy *esk%ho jazyka pro z@kladn+ #koly a gymn@zia. AA DEJAK > U*ebn+ programy D&jepisu pro z@kladn+ #koly a gymn@zia. AA BIO > U*ebn+ programy p<+rodopisu pro z@kladn+ #koly a gymn@zia." page:23613=\,0 0,1;"D@le v@m nab+z+me textovky ========================== CRACKER 2 > V-born- simul@tor D.O.S. a sou*asn& zaj+mav@ logick@ hra. Jste v roli novin@ Obdoba hry DOSTIHY A SAZKY (nen+ stejn%).A: 5 hr@*` ROTANOV 1 > Prav@ textovka podle knihy Dlouh% sv+t@n+ na Enn&.P<+b&h kosmonauta. Hra je zaj+mav@ a lehce ";  U" hrateln@>ne v#ak";#1;0,0;" jednoduch@." page:23613=\,0  1,1;"Pro po*+ta* Sam Coup% ===================== PSPECTRUM zat+m neuva:uji z d`vod` #patn% grafiky a p>>>>>>>>>>> 7 8 3 1 3" 4page:23613=\,0 ;0  "23613=\,0:" SAVE V PODOBE CODE "'';"D%lka ";(23641Y\+256*23642Z\)-23551[,"od adresy 23552":"ZEMPL 7 "23552\,(23641Y\+256*23642Z\)-23551[:4300:23613=\,0:2310 &N9976&:23613=\,0:4300:23613=\,0:2310 &;bbc:23613=\,0:1200:23613=\,0 &\Z$="AA ZEMPL":xs=3:ys=7:y3=18:cs=10 :tisk:23613=\,0 &|ys=3:cs=8:Z$="pro 7.ro*n+k":xs=2:y3=100d:darec:23613=\,0:tisk:23613=\,0 &VZ$="z@kladn+ #koly":xs=2:ys=3:y3=125}:tisk:23613=\,0 &pa=0:darec:23613=\,0:#0;0,0;" ":p$=" Stiskn&te n&co ! ":pause:23613=\,0 &rbbc:23613=\,0:pip:23613=\,0:#0;1,0;" " &x1=0:x2=12 :0:cls:23613=\,0:0,95_:255,0:0,80P:-255,0:0,-80P 'idarec:23613=\,0:Z$="by Ale# Keprt"::xs=2:ys=2:y3=100d:cs=8:tisk 'v23613=\,0:bbc:23613=\,0:Z$=" AXOFT"::xs=4:ys=5:y3=120x:cs=9 :tisk '23613=\,0:darec:23613=\,0:21,0;" All rights reserved. ":page:23613=\,0: ']23613=\,0:pause:23613=\,0:65350F:0,0;:7: 'm23613=\,0:PAP:x=2110 -1::x,0;" ":x: 'E23613=\,0:236066\,168:236077\,246: 'D23613=\,0:236066\,38&:236077\,251: '<23613=\,0:#0;1,0;2;p$ '""9992' ' =""9993 ' ' pip:23613=\,0: ' !x=(256-xs*cs*Z$)/2 ' 23306 [,x:23307 [,y3:23308 [,xs:23309 [,ys:23310[,cs:i=1̱Z$:23310[+i,Z$(i):i:23310[+i,255:64256: ' DAREC:''10 ;"SAVE"''':9999':"jak?";q$:q$9998':23736\,181:"AA Zempl "60825,4605:'" Nyn+ to zkontrolujeme!":9989':Q$:"": '_23743\,80P:60000`:"":23743\,83S:23658j\,8:9973& '"Tato verze je dlouh@ ";(23641Y\+256*23642Z\)-23755\;" byte."''"Voln% m+sto v pam&ti ";60825-23755\-(23641Y\+256*23642Z\)+23755\;" byte.": enoanadelou  il'aus'ag'are'b'is 'x  ' 'P$ Stiskn&te n&co ! oliko apmaXapmiNQDAO odyma"odn5 4.#< ,K 9eKotsisodyted  1222121211  01100101 ZIVOCISNEHO  I X z+skal 26.roLYmalou jedni*kuQ1-Z1- 2 S T A R Tparametryovl@d@n+ instrukceK O N E Cj