i   S09I 0C޹ߢ 0IiѮ q8`ލ ߍ ؅٩XY    80 ؐeڅڐ ۥڥ۰ Lrllؐ%  # S0ح~ }) ٽ`8hh`SYS SODTTTTDOS.SYS ? "}Ӡ㩠Ҡ砛MEMORY : 64 kB TAPE MODE : 8 ? "}Ӡ㩠Ҡ砛MEMORY : 64 kB TAPE MODE : 8***)H" "h" " "DRIVE : 9 "}" " ": TAPE SPEED: 87 7# "1-3. DRIVE+DIR ESC. TAPE DIRA. DIRECTORY I. FORMAT DISKB. RUN CARTR}IDGE J. CONFIGURATEC. COPY FILE(S) K. BINARY SAVED. DELETE FILE(S) L. BIN.LOAD+RUNE. LOCK FILE(S) M. BINARY LOAD}F. UNLOCK FILE(S) N. CHANGE SPEEDG. RUN AT ADDRESS O. CHANGE MODEH. WRITE BOOTFILE P. TURBO LOAD " " "SELECT ITE}M9" "H " S#h,14,)_AQL ) ]"Խ^" /"L!l<""} "Խ" " S# S# #L!#%4$&4'7' }#+K''#*''$s+(LLSSSDSDhChDCDC "DHCH`GHFH` ")_`%H$H`D1:*.* "0 \# C \#KCJ } "SPEC.>I #BHLV X# "0 "0I "0 "L# "ERROR # ؠ) "(L"$0 }0 :<"DE` "hhL*# QکԅՅ ۱$ ذLȄ0&:) GA7&հ }ԅ8`ɛ` "GOTO: #+l "SPEED [0-20]: #Ԑԍ7L L*# "SOURCE,DEST.>ԅD-ՅE }@ "0ʠ0,*?橛Ȅ \#@0ȱ0 :ȱ: "C0B:轀0: )A} [轀0/轀AF N )ܥJ, # "L*# &0 " X&%<`):ʆئؤٽ0}ۭ01$pԤȅ܄ݩC # "0 %0' %0 %L*# $?۩$0 C #L"HeԅܽIeՅ " %0 %0 "J}L"%` ,HԝD՝E8Ԩ՝IhL"Fԭ )L   "NO CARTRIDGE` "INIT BASIC ? Y/N "Y)8}fL%ԥհؠȱ֝8eօ֐`:ʆةԅ֩-Յע "0խ Qڠ  . &} &橛 &̢` "0D &0? X&S "DELETE ٽɛ " " ? Y/N "Y #! "L*##,$ "0 \# "0` }"FORMAT DRIVE [1-3] "1r4n)94 "INGLE,EDIUM "SMA,H "FORMAT ? Y/N "Yh` #h "L*#,}@ "0 \# 0` "SELECT DRIVE Nr. 0 " S# ( "A=FLOPPY ( "B=RAMDISK 1 ( "C=RAMDISK 2} "AD) L'`3 "SELECT DEVICE CODEA. DISK=D,TAPE=BB. TAPE=D,DISK=B "A/C+@ iB}<I9<9 LL Խ` uL "0 352 <   8ɪՄ48օ9 }Ϡ ܰ 9 : M *#Lɛ ЈՐ "FOUND: Խ "Ր2}43}5} S#3! "WRONG ADDRESSL u *#L  ( L? () c #} D   L ( q Lk 0j 4 ?  .B D C L 7$} L?  ` )  L/A! ) /GL?L %})L :")+! $G$Ș 8(()(0ۥ)  G/Ș   L(L? )W>R &} HH)H h      hyhy 7 L:JJ     L4*'}` B#$!/:6L , )  7 L:  q 7 L:܍H'n ӭh(}ӄIo !5*6#FEF@ v !EY Y EI?!6 EJE 7E6)},EEȩ?EȩE 0EȩE !6 7 L:dK7n Z GEqEHȱE*}qEh  Gȹ G . L?L] G/ɛL:  L?FREE SECTORS)  Gȩ GȽG +} GȌd 8 8  8 +G`DC8CD 0GDC`) "   c  ,}  E`$0d:ȩ$. ȩ ,* ?%$?0:)A[   г .` -}pi!6N 4#0!)C)Ƣ?مи 0.}8.` `L 08` DG }GȽ G ? L(   }`   `0  8` /} @0%}G)G) ȱG ȱG` 5B! 8`8ii(aE=!e 5k 6S Sd!0}  E  ` GE 8  8LFEh   V9L5 )  EiFi(LdEE1}` dE`H)h /DH^ ji hEEdEiEȱEiE` WE DQEEH.8  *2} h  d ) 8EEȱEEE ` .!!ʽEF.  Ș3}JHjiGhiH` `8LPhChDC.C/`0. .` C ? Y4}7CJB)L L K 8T? 0UVW L? .YDE h; Y5}+0<өV)iL` hT)@ W XdeGH  l . ;  m . &UVL6}0C  ?YC`L(i ψРЈ0i٭%H$H`778m7ʍk ',yʎ>7}ʎuʎʎCʎ7 ` CU$TV0`U`V0 L`J /W/T8}W``.@T ):*; :.T0<WLSJUW V f<ӍӠ`T2435 9}LLt=>0<   ٤8 Ҥ9 : f8.(<;6<223 )078i< +9:}&<81E<124351hҩԘ`@ ,JI88j98j: 8  9 @<`8`64ӌө@>;} Ҡ` ԍԅ1`S2435<14xԍԍҩ$J;J;0 8 70  8LZ4253 <}2}) 8llD:AUTORUN.SYS5:TTDUP.SYSjj *+HH`@DHKEBJ V0Xp ?}ép DE 8DHEIHI V0 SмH B VhɈ @ `@llBH@}I V0 H V0h`hhhL M0  LL H) h  )Y/-ӭ@@@JJA}Hӵԍ@hL>/--v?I@[?? ?3 S T?H?-Ha-Lg1h1B} i12 2 21E2%4 _2k20 -J _2e2234-5 -23Ѕ4;5І - LC}Хх! '?h P0#!f 0 " %? C?Ѧ %?  *0?  JDLtH G9D}h 0`HL'  ʈ  L  ʈ(  44)4423x 0 ӥ4hj 20002E}XLJf0)? @1 ***) 4 )``128k192k256k320k  Dl -3x 0 ӥ4hj 20002O\D  a6 )6ӥL]G}\]_\ED!EHI B V`} * HAPPY COMPUTER * TT-BASIC XH}L 2.11 (c) 1985 Frank Ostrowski & TURBO 2000 SYSTEM (c) 1988 J. RichterI}$$ (p%J[WܠjeC /D%Zub2gTSt$8®݊J}2% 5RŢtd.’$3@X7t5w5$?K} $#L+D:*.*S:C:P:) `ENeU\l؏&/ؕ؄sأ$LENeL}U\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ$M} ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(000000N}0--**2*(22(2222222 V`hh@,lHH$HHHHHHӍl"H$HHO}l $`GHFH\` `L7LA: 4Lq ӠԪӅԆL} Ӡ L( ӑ) P}` b% +L:#HH 0 HHLj%ӥHlL{ee 8eeeeQ}Ӧee褢%ƚƜ`88夅奅8夕奕R}Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 *څۅ܅݅ޅS}߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈0ǠFT}0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0ǠF0yU}"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠ"("!V}""" "L**""""""&О"("!""" W}"L**""""""&О"("!""" "L**""X}""""&О"("!""" "L**""""""Y}&О"("!""" "L**""""""&Оd"(Z}"!""" "L**""""""&ОL-6"e""e"[}"e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"""m""\}"m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօׅ؅`]}` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUȐFi^}iFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I))8_}3Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L--`}E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8م٘؅ؘa}טօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥؅ץم؆لԘb})q +` . |. &7i |. ,%!L?.`刱䈱㈱∱ሱ`ԅc}Յօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ׽ؽd}` L%/`ӽޕ &ԅ)@إ)JJJe)e - M 1. &e}Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ) 2ff} / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$)g}Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1. #/ &F h}I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G  1.Ӱ6 #/i} &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍ֍׍j}ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥eՊi؊k}؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&&&&*`l}Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3ԥ}3`m})JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢0襙n} bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ⅊0 o}eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30  5Ԅp} +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` O#`q},#5  6`]5 6DE 68DHEIHI V0$ 6Sл B V,# 6r}` $#LllBHI V0H H V0Ԩh` T!`TL6`X6P767>*) !`?s}ʆ=@X6ʎ6 0L;=<7 ;3542L:?0=6=6X6 <`?`<324@5 90*<t} @8鿬@X6<6=𺠎`=<=77@ ``H24<3@5h :=<7ԭ0`=7<=@u}7i 370<=>?ЩC9 BƢS9 BƩ > )_LVSQL Dl L8|9 : ~:0Ģɛv}   8們ȵ偑88倍%偍&$q'( L7*2)435 :w}iȅ2345 :L788L7 L73542 90Mi2m 43m5  Bƭ)x} q9 BL7 08 9МL78 9 BL7eȱe [L:LkBASIC TURBO-DOSOAD AVEy} UIT ERIFY OSERROR - 21PROGRAM NAME:O.K.864Ӎө01Ԍ1 ^::7 Y:ؐ:7 ^:z}ް ^:tL:X(699ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOC}LOSQSGABINPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+},%5&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+}7,/01 2!3"4Ɛ"-"."-؂ٿ֐ː}ĐאŐbj+9,+;,ʐ}ͭͭ@ABC\=>[<+:е<,&%rvnnxc}<\-78s_XV+@D&0d*"'2GJh} NRl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 }  䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0} Le`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :}62T F :7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L }L 8󅯩" ¥ 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H} YhZ L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱}ȱI 䦐Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`}HHąŅH h hhhh ȱIELZ L`ȱI Hȱȱȱȱ}ȱ , h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥}0 ` Lk 䦪`! 䧰L A@L `I&`L ©} L.0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH} h #ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``}䈥剰#)iiLɠL4űI&`048ץğ=ȱȄ} `L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!}  $Л +`,LőŐ78Ƒ8 Ƒ`8` - P}Ѡ`,,L L PQ 8,L ȱI ѝߠ}ȱ`ԩ,L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL }g 0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTAC}OVERFLO?LIN?FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OP}EΣRD ONLEOTRUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOIN}LOCKEDCM>DI?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@}Մ$ 0` 0` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <})  < L L + e +e`e`&&&&&&eee}` &&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ=} ܥeƥiեLN@ ` **)]` 00`` ( ((((((((}8`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 Ff}Ўᰈ `  M 8*` 兙 󥐅i祣}L{ &L  0 & L ȑ & L; # )ȱ L} )ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)}ȱJJJ```=`]``` E߭H Ġ} hL±&Lv`[  }ȱ R]  L L  䅠 bɰhhğȱȄ L l"0e拱LjLx}2a L L  䅠 bɰhhğȱȄ L l"0e拱LjLx 10 GRAPHICS 7+16:X=80:Y=4020 ST=STICK(0)30 IF ST=7 THEN X=X+140 IF ST=6 THEN X=X+1:Y=Y-150 IF ST=14 THEN Y=Y-160 IF ST=5} THEN X=X+1:Y=Y+170 IF ST=11 THEN X=X-180 IF ST=10 THEN X=X-1:Y=Y-190 IF ST=13 THEN Y=Y+1100 IF ST=9 THEN X=X-1:Y=Y+1110} IF X>159 THEN X=159120 IF Y>95 THEN Y=95130 IF X<0 THEN X=0140 IF Y<0 THEN Y=0150 COLOR 1160 PLOT X,Y170 FOR W=1 TO 20}:NEXT W180 COLOR 0190 IF STRIG(0)=0 THEN COLOR 1200 PLOT X,Y210 GOTO 20EN Y=0150 COLOR 1160 PLOT X,Y170 FOR W=1 TO 20L10 GRAPHICS 8+16:POKE 710,0:COLOR 1:PLOT 0,0:X=0:Y=020 PLOT X,Y:X=X+1:Y=Y+130 IF X=319 THEN GOTO 10040 IF Y=190 THEN GOTO }20050 GOTO 20100 PLOT X,Y:X=X-1:Y=Y+1110 IF X=0 THEN GOTO 20120 IF Y=190 THEN GOTO 300130 GOTO 100200 PLOT X,Y:X=X+1:Y= }Y-1210 IF X=319 THEN GOTO 300220 IF Y=0 THEN GOTO 20230 GOTO 200300 PLOT X,Y:X=X-1:Y=Y-1310 IF X=0 THEN GOTO 200320 IF }Y=0 THEN GOTO 100330 GOTO 300220 IF Y=0 THEN GOTO 20230 GOTO 200300 PLOT X,Y:X=X-1:Y=Y-1310 IF X=0 THEN GOTO 200320 IF 4 POKE 709,14:POKE 710,116:POKE 712,200:? "}":POKE 752,110 DIM P(12)11 P(1)=3112 P(3)=3113 P(5)=3114 P(7)=3115 P(8)=31}16 P(10)=3117 P(12)=3130 P(2)=2831 P(4)=3032 P(6)=3033 P(9)=3034 P(11)=3045 PRINT "VYPOCET VHODNOSTI PARTNERU,VYPOCET }PO-HLAVI DITETE "46 PRINT ;"**************************************"47 PRINT 48 ? "CHCES UVODNI TEXT ?(1=ANO:2=NE)"49 INPU}T B52 PRINT 64 IF B<>1 THEN 16565 ? "}"70 PRINT ;"Program dava odpoved na otazku,jak se k sobe partneri hodi z hlediska b}iory- tmu."72 PRINT ;"Pro manzelske pary se vypocet nedopo- rucuje."74 PRINT ;"Pocitac nebere zodpovednost za vznikle prob}lemy."76 PRINT ;"Vypocet pohlavi ditete je otazkou vel- mi slozitou a na doporuceni pocitace je nutne se divat ";77 PRINT }"z hlediska nejprav-depodobnejsiho vysledku vaseho snazeni"78 PRINT ;"Z dlouhodobe statistiky vsak vyplyva 88,35% na pravd}epodobnost odpovedi."90 ? :? "**************************************"165 ? :? " STISKNI START!"166 IF PEEK(53279})<>6 THEN 166167 ? "}"170 ? "DNESNI DATUM (D,M,R)"180 INPUT A1,A2,T182 PRINT ;"DNESNI DATUM :";A1;".";A2;".";T190 POKE 8}4,8230 ? "NAROZENI ZENY (D,M,R)"240 INPUT D,M,R241 PRINT ;"NAROZENI ZENY :";D;".";M;".";R270 B=1280 GOSUB 1170290 S1=S}300 POKE 84,16:PRINT "NAROZENI MUZE (D,M,R)"310 INPUT D,M,R320 PRINT ;"NAROZENI MUZE :";D;".";M;".";R360 GOSUB 1170370 S2}=S375 PRINT "}"380 ? "Vypocet vhodnosti partneru ? (1=ANO:2=NE)"410 }INPUT B420 IF B<>1 THEN 580421 PRINT "}":? "VYPOCET VHODNOSTI PARTNERU : "430 S=ABS(S1-S2)+1440 F=S-23*INT(S/23+1E-04)45}0 X=ABS(1-2*F/23)*100455 X=INT(X*100+0.5)/100460 C=S-28*INT(S/28+1E-04)470 Y=ABS(1-2*C/28)*100475 Y=INT(Y*100+0.5)/10048}0 H=S-33*INT(S/33+1E-04)492 Z=ABS(1-2*H/33)*100495 Z=INT(Z*100+0.5)/100510 ? :? :? " ZHODA VE FYZICKEM CYKLU ";X;" %";}530 ? :? :? " CITOVEM CYKLU ";Y;" %";550 ? :? :? " INTELEKT.CYKLU ";Z;" %";555 ? :? :? "*******}******************************"570 PRINT ;" FAKTOR UPLNE SHODY ";575 PRINT ;INT(((X+Y+Z)/3)*100+0.5)/100;" %"577 }PRINT ;"************************************"580 POKE 84,20:? " STISKNI START!"582 IF PEEK(53279)<>6 THEN 582583} ? "}"586 ? "Vypocet pohlavi ditete ? 1=ano "610 INPUT B620 IF B<>1 THEN 9999621 ? "}"622 PRINT ;" ** VYPOCET POHLAVI} DITETE **"625 PRINT 630 ? :? "Predpokladany rok poceti ?";633 INPUT T1634 IF T1=0 THEN 9999635 IF T1=9999 THEN 9999641} ? "}":? "PREDPOKLADANY ROK POCETI :";T1670 LET T=T1680 ? :? :PRINT ;"M/D 1-6 7-12 13-18 19-26 OD 27"682 PRINT ;"---------}---------------------------"700 S=ABS(S1-S2)+3*(T-1880)710 T1=INT(S/365)720 X=(S-365*T1)/30+T1730 J=1740 K=0810 FOR Y=0}.2 TO 12.2 STEP 0.2820 K=K+1830 IF K=1 THEN 850840 GOTO 870850 PRINT ;J;" ";870 Z=(X+Y)/7880 A1=INT(Z)89}0 Z=(Z-A1)*10900 A2=INT(Z)910 IF A2=5 THEN 970920 P1=3.14159921 IF COS(A2*P1)<0 THEN 950930 PRINT ;" CH ";}940 GOTO 1010950 PRINT ;" D ";960 GOTO 1010970 IF INT(Z*10)=55 THEN 1000980 PRINT ;"NEUR ";990 GOTO 10101}000 PRINT ;"DVOJ ";1010 IF K=5 THEN 10301020 GOTO 10601030 K=01040 J=J+11041 IF J>12 THEN 10701050 PRINT }1060 NEXT Y1070 PRINT 1100 GOTO 6301120 ? "TAKE DATUM NEPOCITAM!"1160 GOTO 2301170 S=01180 IF M>12 THEN 11201190 IF M }<1 THEN 11201200 IF D<1 THEN 11201210 IF M=2 THEN 12401220 IF D>P(M) THEN 11201230 GOTO 12501240 IF D>P(M)+1 THEN 11201 }250 IF R<1880 THEN 11201260 IF M>2 THEN 13301270 FOR I=1880 TO T STEP 41280 IF R=I THEN 13101290 NEXT I1300 GOTO 1320 }1310 S=11320 GOTO 13401330 S=01340 S=S+P(M)-D+11345 IF M=12 THEN 13801350 FOR I=M+1 TO 121360 S=S+P(I)1370 NEXT I13 }80 K=T-R-11390 FOR J=R+1 TO T-11410 IF (J/4-INT(J/4))=0 THEN 14301420 GOTO 14501430 S=S+11450 NEXT J1470 S=S+K*36 }51490 RETURN 9999 POKE 752,0:? "}":END (J/4-INT(J/4))=0 THEN 14301420 GOTO 14501430 S=S+11450 NEXT J1470 S=S+K*36*10 REM ***GRAFICKE-KRUHY***20 GRAPHICS 31:COLOR 130 POKE 708,91:POKE 709,181:POKE 710,13140 A=20:B=3350 FOR K=1 TO 560 } FOR I=0 TO 1 STEP 0.0370 ZEI=6.283*I80 PLOT A,B:DRAWTO A+15*SIN(ZEI+0.01*6.283),B+30*COS(ZEI+0.01*6.283)90 NEXT} I100 IF K=1 THEN A=50:B=33:COLOR 2110 IF K=2 THEN A=80:B=33:COLOR 3120 IF K=3 THEN A=110:B=33:COLOR 1130 IF K=4 }THEN A=140:B=33:COLOR 2140 NEXT K150 A=20:B=129:COLOR 3160 FOR K=1 TO 5170 FOR I=0 TO 1 STEP 0.03180 ZEI=6.283*I1}90 PLOT A,B:DRAWTO A+15*SIN(ZEI+0.01*6.283),B+30*COS(ZEI+0.01*6.283)200 NEXT I210 IF K=1 THEN A=50:B=129:COLOR 122}0 IF K=2 THEN A=80:B=129:COLOR 2230 IF K=3 THEN A=110:B=129:COLOR 3240 IF K=4 THEN A=140:B=129:COLOR 1250 NEXT K260} A=35:B=81:COLOR 2270 FOR K=1 TO 4280 FOR I=0 TO 1 STEP 0.03290 ZEI=6.283*I300 PLOT A,B:DRAWTO A+15*SIN(ZEI+0.0}1*6.283),B+30*COS(ZEI+0.01*6.283)310 NEXT I320 IF K=1 THEN A=65:B=81:COLOR 3330 IF K=2 THEN A=95:B=81:COLOR 1340 }IF K=3 THEN A=125:B=81:COLOR 2350 NEXT K360 IF A=1 THEN POKE 708,INT(RND(0)*255)370 IF A=2 THEN POKE 709,INT(RND(0)*255)3}80 IF A=3 THEN POKE 710,INT(RND(0)*255)390 FOR U=1 TO 20:NEXT U400 A=INT(RND(0)*3+1)410 GOTO 360OKE 709,INT(RND(0)*255)3d10 DIM CHORD(37),TUNE(12)20 GRAPHICS 0:? :? " HUDEBNI PROGRAM"21 ? :? "TLACITKA 1,2,3,4,5,6,7,8,9,0,<,> HRAJI NOTY"30 FO}R X=1 TO 37:READ A:CHORD(X)=A:NEXT X40 FOR X=1 TO 12:READ A:TUNE(X)=A:NEXT X50 OPEN #1,4,0,"K:"55 OLDCHR=A60 A=PEEK(764):}IF A=255 THEN 6063 IF A=OLDCHR THEN 10065 OLDCHR=A70 FOR X=1 TO 12:IF TUNE(X)=A THEN SOUND 0,CHORD(X),10,8:GOTO 10080 NEX}T X100 I=INT(PEEK(53775)/4):IF (I/2)=INT(I/2) THEN 60110 POKE 764,255:SOUND 0,0,0,0:OLDCHR=-1:GOTO 60200 DATA 243,230,217,}204,193,182,173,162,153,144,136,128,121,114,108,102,96,91,85,81,76,72,68,64,60210 DATA 57,53,50,47,45,42,40,37,35,33,31,292}20 DATA 31,30,26,24,29,27,51,53,48,50,54,55108,102,96,91,85,81,76,72,68,64,60210 DATA 57,53,50,47,45,42,40,37,35,33,31,292,10 GRAPHICS 1820 POSITION 7,5:? #6;"MUSIKA"30 OPEN #1,4,0,"K:"40 FOR I=1 TO 1000050 GET #1,A:A=A-65:A=A*10+560 SOUND} 1,A,10,15:POKE 708,A:NEXT I70 CLOSE #1KA"30 OPEN #1,4,0,"K:"40 FOR I=1 TO 1000050 GET #1,A:A=A-65:A=A*10+560 SOUND)100 GOTO 210110 SOUND 3,255,0,8120 IF PEEK(753)=0 THEN TEMP=PEEK(710):POKE 710,PEEK(709):POKE 709,PEEK(708):POKE 708,TEMP:G!!}OTO 140130 TEMP=PEEK(708):POKE 708,PEEK(709):POKE 709,PEEK(710):POKE 710,TEMP140 PDL=25150 SOUND 0,PDL,0,8:SOUND 1,PDL+90,!"}0,8:SOUND 2,PDL+160,0,8160 PAUSE 3170 GOTO 120210 COL=1:Y1=45:Y2=49220 GRAPHICS 7+16230 SETCOLOR 0,3,8:SETCOLOR 1,3,8:SE!#}TCOLOR 2,3,4330 FOR X=2 TO 79340 COLOR INT(COL+0.5)350 PLOT X+80,Y1:DRAWTO 80+X,Y2:DRAWTO 79-X,Y2:DRAWTO 79-X,Y1360 !$} Y1=Y1-0.6:Y2=Y2+0.6370 IF Y1<0 THEN Y1=0380 IF Y2>95 THEN Y2=95390 COL=COL+(79-X)/160400 IF COL+0.5>=4 THEN COL=!%}COL-3410 NEXT X420 GOTO 110Y1<0 THEN Y1=0380 IF Y2>95 THEN Y2=95390 COL=COL+(79-X)/160400 IF COL+0.5>=4 THEN COL= 10 REM ***VODOPAD***20 GOTO 200100 REM 110 TEMP=PEEK(705):POKE 705,PEEK(706):POKE 706,PEEK(707):POKE 707,PEEK(708):POKE 70%'}8,TEMP120 PAUSE 2130 GOTO 110200 REM 210 FILL=1300220 GRAPHICS 10230 POKE 704,9*16+10240 POKE 705,8*16+10250 POKE 706%(},8*16+8260 POKE 707,8*16+6270 SETCOLOR 0,8,4280 SETCOLOR 1,12,4290 SETCOLOR 2,2,4300 SETCOLOR 3,12,6310 SETCOLOR 4,3,6%)}400 REM 410 COLOR 7:POKE 765,7420 PLOT 79,10:DRAWTO 79,45:X1=78:Y1=10:X2=66:Y2=15:GOSUB FILL430 X1=65:Y1=15:X2=61:Y2=18:GO%*}SUB FILL:X1=60:Y1=18:X2=56:Y2=25:GOSUB FILL440 X1=56:Y1=25:X2=65:Y2=35:GOSUB FILL:X1=66:Y1=35:X2=78:Y2=45:GOSUB FILL450 COL%+}OR 6:POKE 765,6460 PLOT 79,46:DRAWTO 79,145:X1=56:Y1=26:X2=56:Y2=117:GOSUB FILL470 Y1=117:X2=68:Y2=132:GOSUB FILL:X1=68:Y1=%,}132:X2=78:Y2=145:GOSUB FILL480 COLOR 7:POKE 765,7490 PLOT 0,191:DRAWTO 79,191:DRAWTO 79,146:X1=0:Y1=191:X2=0:Y2=91:GOSUB FI%-}LL500 REM 510 FALL=58:CFLAG=0520 FOR Y=25 TO 34530 GOSUB 1500540 FOR X=79 TO FALL STEP -1550 COLOR COL560 %.}PLOT X,Y570 COL=COL-1:IF COL=0 THEN COL=4580 NEXT X590 FALL=FALL+1600 NEXT Y610 FALL=0:CFLAG=-1620 FOR X=58 TO %/}66630 FALL=FALL+1640 GOSUB 1500650 PLOT X,25+FALL660 FOR Y=30 TO 120 STEP 4670 COLOR COL680 DRAWTO X,Y+%0}FALL690 COL=COL-1:IF COL=0 THEN COL=4700 NEXT Y:NEXT X710 COLOR 6:PLOT 58,28:DRAWTO 58,25:DRAWTO 59,25:PLOT 66,38:DR%1}AWTO 66,129720 COLOR 7:PLOT 73,33:DRAWTO 79,33:PLOT 68,34:DRAWTO 79,34730 FALL=57:CFLAG=1740 FOR Y=121 TO 128:GOSUB 1500:F%2}OR X=FALL TO 0 STEP -1:COLOR COL:PLOT X,Y:COL=COL-1:IF COL=0 THEN COL=4750 NEXT X:FALL=FALL+1:NEXT Y900 REM 910 FOR T=1 %3}TO 11:READ X,Y:COLOR 8930 FOR I=0 TO 2:PLOT X-I,Y-40+2*I:DRAWTO X-I,Y-20-2*I:NEXT I950 FOR I=-2 TO -1:PLOT X-I,Y-40-2*I%4}:DRAWTO X-I,Y-20+2*I:NEXT I960 COLOR 6970 PLOT X,Y:DRAWTO X,Y-21980 COLOR 5990 PLOT X,Y+1:DRAWTO X+7,Y+4:PLOT X+8%5},Y+3:DRAWTO X+8,Y+5:DRAWTO X+9,Y+61000 DRAWTO X+9,Y+3:DRAWTO X+10,Y+3:DRAWTO X+10,Y+71010 PLOT X+11,Y+7:DRAWTO X+11,Y+4%6}:DRAWTO X+12,Y+5:DRAWTO X+12,Y+71020 COLOR 81030 FOR I=1 TO 15:RX=X+INT(RND(0)*7)-3:IF RX=X THEN 10301040 RY=Y+INT%7}(RND(0)*8)-3:PLOT RX,RY:NEXT I:NEXT T1100 REM 1120 PLOT 57,114:DRAWTO 65,122:PLOT 57,116:DRAWTO 65,1241150 PLOT 56,116:DRA%8}WTO 65,125:PLOT 56,117:DRAWTO 65,1261170 PLOT 56,118:DRAWTO 65,127:PLOT 56,119:DRAWTO 65,1281190 PLOT 55,119:DRAWTO 64,128:%9}PLOT 55,120:DRAWTO 63,1281250 REM 1260 FOR I=0 TO 3:SOUND I,I*50,0,8:NEXT I1270 GOTO 1001300 REM 1310 PLOT X1,Y1:POSITIO%:}N X2,Y2:XIO 18,#6,0,0,"S:":RETURN 1500 COL=INT(RND(0)*4)+1:IF COL=STARTCOL THEN 15201520 STARTCOL=COL+CFLAG1530 IF STARTCO%;}L=0 THEN STARTCOL=41540 IF STARTCOL=5 THEN STARTCOL=11550 RETURN 2000 REM 2010 DATA 7,106,13,96,30,100,40,112,47,145,7,17%<}9,15,155,27,164,35,173,60,181,66,1745 THEN STARTCOL=11550 RETURN 2000 REM 2010 DATA 7,106,13,96,30,100,40,112,47,145,7,17$%1 REM 2 REM ٠̭Ԡ3 REM 4 ------------------------------5 DIM A$(1000),B$(5))>},C$(5),D$(10),E$(5):? "}":POKE 710,010 ? "}":? :? :? " MATE PRED SEBOU PROGRAM,"20 ? " KTERY UMOZNUJE PIPAT A PSAT"30 )?}? " MORSEOVOU ABECEDOU."40 ? :? " ZADEJ TEXT SLOVY"45 ? " MEZI SLOVY MUSI BYT JEDNA MEZERA"50 ? :INPUT A$60 Y=Y+1:I)@}F Y>LEN(A$) THEN ? "//":? "JESTE JEDNOU(1=ANO)";:INPUT D:IF D=1 THEN GOTO 10:IF D<>1 THEN END 61 IF Y>LEN(A$) AND D<>1 THEN )A}END 70 B$=A$(Y,Y):RESTORE 30090 READ C$:READ D$:IF C$<>B$ THEN GOTO 90100 FOR I=1 TO LEN(D$)110 E$=D$(I,I)120 ? E$;)B}130 IF E$="-" THEN X=50:GOSUB 190140 IF E$="." THEN X=25:GOSUB 190150 IF E$="/" THEN X=40:GOSUB 200160 PAUSE 1017)C}0 NEXT I180 GOTO 60190 SOUND 0,121,10,13200 PAUSE X210 SOUND 0,0,0,0250 RETURN 300 DATA A,.-/,B,-.../,C,-.-./,D,-../,E,)D}./,F,..-./,G,--./,H,..../,I,../,J,.---/,K,-.-/,L,.-../,M,--/310 DATA N,-./,O,---/,P,.--./,Q,--.-/,R,.-./,S,.../,T,-/,U,..-/,)E}V,...-/,W,.--/,X,-..-/,Y,-.--/,Z,--../320 DATA 1,.----/,2,..---/,3,...--/,4,....-/,5,...../,6,-..../,7,--.../,8,---../,9,---)F}-./,0,-----/, ,/-..-/,Y,-.--/,Z,--../320 DATA 1,.----/,2,..---/,3,...--/,4,....-/,5,...../,6,-..../,7,--.../,8,---../,9,---(1 REM 2 REM ĠŠ3 REM 10 GRAPHICS 2320 POKE 708,226:POKE 709,208:POKE 710,-H}6:POKE 712,12830 COLOR 1:FOR X=0 TO 5:PLOT X,0:DRAWTO X,95:NEXT X40 FOR X=152 TO 159:PLOT X,0:DRAWTO X,95:NEXT X50 FOR Y=0-I} TO 70:READ R:PLOT 6,Y:DRAWTO R,Y:NEXT Y60 FOR Y=0 TO 53:READ L:PLOT L,Y:DRAWTO 151,Y:NEXT Y70 DATA 37,38,39,40,40,41,41,41-J},40,40,38,36,35,34,33,33,33,32,33,35,36,38,37,37,36,35,34,28,25,24,23,22,23,24,2480 DATA 26,27,26,24,22,20,17,18,19,20,20,18-K},16,14,11,8,7,8,7,9,8,10,13,15,15,14,14,10,9,11,10,10,9,7,8,790 DATA 148,146,144,141,138,139,143,147,148,143,141,147,145,143-L},140,137,134,131,128,129,130,134,138,143,141100 DATA 139,137,138,140,136,132,128,123,124,125,128,131,135,139,143,149,147,145-M},142,139,135,131,126,121,119110 DATA 120,122,125,131120 COLOR 3:Z=Z+1130 X=INT(RND(0)*80)+40:Y=INT(RND(0)*70):PLOT X,Y140-N} IF Z<30 THEN 120150 COLOR 2:FOR Y=0 TO 7:PLOT 6,81+Y:DRAWTO 52,84+Y:DRAWTO 80,80+Y:DRAWTO 135,86+Y:DRAWTO 150,82+Y:NEXT Y1-O}60 FOR Y=86 TO 95:PLOT 6,Y:DRAWTO 150,Y:NEXT Y200 POKE 704,34210 POKE 623,8220 POKE 559,42230 P=PEEK(106)-20240 POKE 542-P}79,P250 PMBASE=P*256260 POKE 53256,3270 POKE 53277,2280 X=30:Y=91300 POKE 53248,X310 FOR J=PMBASE+512 TO PMBASE+639:POK-Q}E J,0:NEXT J320 FOR J=PMBASE+512+Y TO PMBASE+512+31+Y:READ D:POKE J,D:NEXT J330 DATA 24,60,60,60,126,126,126,126,126,255,25-R}5,255,255,255,255,255340 DATA 255,255,255,255,255,255,255,126,126,126,126,126,60,60,60,24400 S=STICK(0)410 IF S=15 THEN 40-S}0420 IF S=7 THEN X=X+1430 IF S=11 THEN X=X-1440 POKE 53248,X:IF X<18 THEN X=18450 IF S=13 THEN GOSUB 500460 IF S=14 THEN-T} GOSUB 600470 GOTO 400500 IF Y>92 THEN RETURN 510 FOR J=32 TO 0 STEP -1520 POKE PMBASE+512+Y+J,PEEK(PMBASE+511+Y+J)530-U} NEXT J540 C=C-1:IF C<0 THEN C=0550 CO=INT(C/15)*2560 POKE 704,34+CO:POKE 712,128+CO/2:POKE 709,208+CO570 Y=Y+1580 RETUR-V}N 600 IF Y<16 THEN RETURN 610 FOR J=0 TO 32620 POKE PMBASE+511+Y+J,PEEK(PMBASE+512+Y+J)630 NEXT J640 C=C+1:IF C>75 THE-W}N C=75650 CO=INT(C/15)*2660 POKE 704,34+CO:POKE 712,128+CO/2:POKE 709,208+CO670 Y=Y-1680 RETURN J640 C=C+1:IF C>75 THE,e1 REM 2 REM SQUASH3 REM 9 REC=010 X=12520 GRAPHICS 5:SETCOLOR 2,0,030 COLOR 1:PLOT 0,01Y}:DRAWTO 79,0:DRAWTO 79,39:DRAWTO 0,39:DRAWTO 0,0:GOTO 5040 POKE 752,1:? "}SCORE ";P;" CAS ";S;:RETURN 50 POKE 559,1Z}4660 POKE 704,18870 I=PEEK(106)-880 POKE 54279,I90 POKE 53277,3100 POKE 53256,I110 PMBASE=I*256120 FOR I=PMBASE+512 TO1[} PMBASE+640:POKE I,0:NEXT I130 POKE PMBASE+512+85,60:POKE PMBASE+513+85,60140 FOR I=PMBASE+384 TO PMBASE+512:POKE I,0:NEXT 1\}I150 POKE PMBASE+384,3:S=999160 YV=INT(1*RND(0)+2):XV=INT(-4*RND(0)+4)170 YM=19:XM=120180 ST=STICK(0):IF ST=7 THEN X=X+4:1]}IF X>200 THEN X=200190 IF ST=11 THEN X=X-4:IF X<50 THEN X=50191 POKE 53248,X200 POKE 53278,0210 POKE PMBASE+384+YM1,0:A=A1^}+1:S=S-1220 IF S>10 THEN ? "";230 IF S>100 THEN ? "";240 GOSUB 40250 XM=XM+XV:YM1=YM:YM=YM+YV:IF XM<50 OR XM>205 THEN XV=1_}-XV:SOUND 0,20,10,15:SOUND :GOTO 210260 IF S=0 THEN GOTO 340270 IF YM<19 OR YM>92 THEN YV=-YV:SOUND 0,20,10,15:SOUND :GOTO 1`}210280 POKE PMBASE+384+YM,3:POKE 53252,XM290 DF=0300 IF PEEK(53256)<>0 AND A>2 THEN POKE 752,2:P=P+5:? " SCORE 2 ";P;" CAS1a} ";:YV=-YV:XV=-XV:DF=1:S=S+50310 IF DF=1 THEN POKE 53278,0:A=0:GOTO 330320 GOTO 180330 XV=INT(-4*RND(0)+2):GOTO 2101b}340 POKE 53277,0:POKE 53265,0:POKE 53261,0350 GRAPHICS 18360 POSITION 2,3:? #6;"BODY: ";P365 IF P>REC THEN S=REC:POSITION1c} 2,6:? #6;"REKORD!":P=0370 POSITION 2,9:? #6;"START=Nova hra"380 POSITION 2,11:? #6;"SELECT=Konec"390 IF PEEK(53279)=6 THE1d}N CLR :GOTO 20400 IF PEEK(53279)=5 THEN GRAPHICS 0:END 410 GOTO 390ITION 2,11:? #6;"SELECT=Konec"390 IF PEEK(53279)=6 THE0F10 REM *****************20 REM *** VIDEOSTOP ***30 REM *****************40 REM Vladimir Adamovsky50 DIM VEC$(20),POC(3)55f}9 ? "}":? "ZVOL OBTIZNOST 1-10 (1=NEJVETSI):";:INPUT U60 GRAPHICS 070 S=0:CH=0:PR=080 POC(1)=0:POC(2)=0:POC(3)=090 POKE 75g}52,1100 SETCOLOR 0,12,10110 SETCOLOR 1,0,12120 SETCOLOR 2,3,2130 SETCOLOR 3,0,0140 SETCOLOR 4,3,2150 POKE 39975,7160 P5q}BBTTDOS SYSBFTBASIC21COMBJOYKRESLTBABODRAZKA TBAB VHODNOSTTBAB KRUHY1 TBABMUZIKAX TBABMUZIKAY TBAB PRIKOP TBAB&VODOPAD TBAB =MORSEL1 TBABGSLUNICKOTBAB XSQUASH TBABeVIDEOSTPTBAB UZINA TBABTENIS TBAB ZKUSPMG TBABKOLOTOC TBABYGIGAHLAVTBAB DINO TBAOKE 39980,6170 POKE 39994,7180 POSITION 6,2:? "VIDEOSTOP"190 POSITION 22,6:? "score 0 chyb 0"200 REM HLAVNI PROGRAM2105r} POC(MI)=PO220 MI=INT(RND(0)*3)+1230 PO=INT(RND(0)*6)+1240 IF POC(MI)=PO THEN PO=PO-1250 IF PO=0 THEN PO=6260 SOUND 0,2,5s}2,10270 FOR I=0 TO U*100-S:NEXT I280 SOUND 290 IF PEEK(764)=255 THEN 600300 REM STISK KLAVESY310 POKE 764,255320 SETCOL5t}OR 4,0,15330 FOR I=1 TO 20:NEXT I340 SETCOLOR 4,3,2350 ZK=S360 IF POC(1)=POC(2) THEN S=S+POC(1)370 IF POC(2)=POC(3) THEN5u} S=S+POC(2)380 IF POC(1)=POC(3) THEN S=S+POC(3)390 IF ZK=S THEN CH=CH+1:SOUND 0,100,10,15:FOR I=1 TO 50:NEXT I:SOUND :S=S-55v}:GOTO 410400 IF ZK<>S THEN SOUND 0,50,10,15:FOR I=1 TO 50:NEXT I:SOUND 410 POSITION 28,6:? S;" "420 POSITION 37,6:? CH435w}0 POSITION 32,6:? "chyb"440 IF CH=10 THEN 700450 IF POC(1)=POC(2) AND POC(2)=POC(3) AND POC(1)=POC(3) THEN POSITION 7,20:? 5x}"PREMIE":PR=1460 REM VYHRY470 IF S<0 THEN VEC$=" "480 IF S>=0 THEN VEC$=" SMOULY"490 IF S>8 THEN VEC$="KULIC5y}KY "500 IF S>16 THEN VEC$="DISKETU "510 IF S>24 THEN VEC$="KONICKA "520 IF S>32 THEN VEC$="JOYSTICK"530 IF S>40 THEN VEC$5z}="HRY "540 IF S>48 THEN VEC$="KAZETY "550 IF S>56 THEN VEC$="MONITOR "560 IF S>64 THEN VEC$="POCITAC "570 IF S>72 TH5{}EN VEC$="TISKARNU"580 IF S>80 THEN VEC$="FAVORITA"585 IF S>120 THEN VEC$="AUTO "590 POSITION 3,16:? "DOSTANES :";VEC$;"5|}"600 REM KOSTKA610 RESTORE 1000+PO*10620 FOR I=1 TO 3630 READ K1,K2,K3640 K1=148+12*(1-K1)650 K2=148+12*(1-K2)665}}0 K3=148+12*(1-K3)670 POSITION 40-MI*10,8+I:? CHR$(K1);CHR$(K2);CHR$(K3)680 NEXT I690 GOTO 200700 REM KONEC710 GRAPH5~}ICS 2+16720 POSITION 5,3:? #6;"MAS:";S;" BODU"730 POSITION 10-(LEN(VEC$)/2),4:? #6;VEC$740 IF S>REC THEN REC=S:POSITION 7,5}6:? #6;"rekord"750 IF PR=1 THEN POSITION 7,8:? #6;"premii"760 POSITION 7,10:? #6;"klavesu"770 IF PEEK(764)=255 THEN GOTO 75}70780 POKE 764,255790 GRAPHICS 1+16800 POSITION 4,3:? #6;"ZNOVU...START"810 P=PEEK(53279)820 IF P=6 THEN GOTO 59830 IF 5}P=7 THEN 810840 END 1010 DATA 0,0,0,0,1,0,0,0,01020 DATA 1,0,0,0,0,0,0,0,11030 DATA 1,0,0,0,1,0,0,0,11040 DATA 1,0,1,0,05},0,1,0,11050 DATA 1,0,1,0,1,0,1,0,11060 DATA 1,1,1,0,0,0,1,1,1,0,0,0,0,0,11030 DATA 1,0,0,0,1,0,0,0,11040 DATA 1,0,1,0,04A1 ? "}":POKE 710,0:POKE 752,110 ? "PRELET NAD NEBEZPECNYM KANONEM"20 LET S=030 ? :? "JAK DLOUHY KANON(1-1000)";:INPUT M409} ? :? "JAK JE SIROKY";:INPUT W50 ? :? "JAKA RYCHLOST:1-1000(1=NEJVETSI)";:INPUT X60 LET W=INT(W/2)70 LET L=10:D=080 LET Y9}=W90 LET R=W100 IF STICK(1)=11 THEN D=D-1110 IF STICK(1)=7 THEN D=D+1111 Q=L+D112 IF D>1 THEN D=1113 IF D<-1 THEN D=-19}114 IF Q>34-W-W THEN D=D-2:GOTO 100115 IF Q<0 THEN D=D+2:GOTO 100120 LET L=L+D130 LET Y=Y-D140 LET R=R+D145 FOR G=0 TO X9}:NEXT G150 LET N=L160 GOSUB 1000170 ? "I";180 LET N=Y190 GOSUB 1000200 ? "*";210 LET N=R220 GOSUB 1000230 ? "I"250 9}IF STICK(0)=11 THEN Y=Y-1:R=R+1260 IF STICK(0)=7 THEN Y=Y+1:R=R-1310 IF Y<1 OR R<1 THEN GOTO 370320 LET S=S+1330 IF S1 THEN GOTO 160110 IF Y=21 THEN GOTO 230120 EXEC JOY:IF U=1 =}THEN EXEC KONEC130 IF K=1 THEN ? "}":K=0:GOTO 50140 GOTO 90150 ------------------------------160 POSITION X,Y:? "":GOSUB=} 370:X=X-1:Y=Y+1170 IF X<3 AND U<>1 THEN GOTO 90180 IF Y=21 THEN GOTO 300190 EXEC JOY:IF U=1 THEN EXEC KONEC200 IF K=1 TH=}EN ? "}":K=0:GOTO 50210 GOTO 160220 ------------------------------230 POSITION X,Y:? "":GOSUB 370:X=X+1:Y=Y-1240 IF X=37=} AND U<>1 THEN GOTO 300250 IF Y<2 THEN GOTO 90260 EXEC JOY:IF U=1 THEN EXEC KONEC270 IF K=1 THEN ? "}":K=0:GOTO 50280 GOT=}O 230290 ------------------------------300 POSITION X,Y:? "":GOSUB 370:X=X-1:Y=Y-1310 IF X<3 AND U<>1 THEN GOTO 230320 I=}F Y=1 THEN GOTO 160330 EXEC JOY:IF U=1 THEN EXEC KONEC340 IF K=1 THEN ? "}":K=0:GOTO 50350 GOTO 300360 ------------------=}------------370 PAUSE 3:COLOR 0:POSITION X,Y:? " ";:COLOR 1:RETURN 380 ------------------------------390 -----------------=}-------------400 PROC JOY:EXEC PALKA1:EXEC PALKA2:EXEC POLOHA410 F=F+1:POSITION 15,23:? "Ӻ";F;420 S1=STICK(0)430 =} IF S1=15 THEN GOTO 480440 IF S1=13 THEN Y1=Y1+1:EXEC PALKA1450 IF Y1<1 THEN Y1=1460 IF S1=14 THEN Y1=Y1-1:EXEC PALK=}A1470 IF Y1>16 THEN Y1=16480 S2=STICK(1)490 IF S2=15 THEN GOTO 540500 IF S2=14 THEN Y2=Y2-1:EXEC PALKA2510 IF =}Y2<1 THEN Y2=1520 IF S2=13 THEN Y2=Y2+1:EXEC PALKA2530 IF Y2>16 THEN Y2=16540 ENDPROC 550 ---------------------------=}---560 PROC PALKA1570 POSITION 1,Y1:? " ";580 POSITION 1,Y1+1:? "";590 POSITION 1,Y1+2:? "";600 POSITION 1,Y1+=}3:? "";610 POSITION 1,Y1+4:? "";620 POSITION 1,Y1+5:? "";630 POSITION 1,Y1+6:? " ";640 ENDPROC 650 ------------=}------------------660 PROC PALKA2670 POSITION 38,Y2:? " ";680 POSITION 38,Y2+1:? "";690 POSITION 38,Y2+2:? "";70=}0 POSITION 38,Y2+3:? "";710 POSITION 38,Y2+4:? "";720 POSITION 38,Y2+5:? "";730 POSITION 38,Y2+6:? " ";740 END=}PROC 750 ------------------------------760 PROC KONEC770 IF U1<>1 THEN R1=R1+1:GOTO 830780 FOR A=Y1 TO Y1+4:POSITION =}1,A:? " ";:NEXT A790 POSITION 3,2:? "̠ɠɠî";800 POSITION 3,3:? "àîġŠա";81=}0 R2=R2+1820 K=1:U1=0:U=0:GOTO 870830 FOR A=Y2 TO Y2+4:POSITION 38,A:? " ";:NEXT A840 POSITION 3,19:? "̠ɠ=}ɠî";850 POSITION 3,20:? "àîġŠա";860 K=1:U=0:U2=0870 PAUSE 200880 ENDPROC 890 =}------------------------------900 PROC POLOHA:U=0:U1=0:U2=0910 IF X<4 AND YY1+5 THEN U1=1:U=1920 IF X=}>35 AND Y35 AND Y>Y2+5 THEN U2=1:U=1930 ENDPROC 0910 IF X<4 AND YY1+5 THEN U1=1:U=1920 IF X<;1 REM 2 REM ٠ӠǠĠ̭Ԡ3 REM 10 RAMTOP=106A}20 PMBASE=5427930 SDMCTL=55940 GRACTL=5327750 HPSP0=5324860 PCOLR0=70470 SIZEP0=5325680 POKE 710,0:? "}"90 ? "OBRAZEK A}C.1,2,3 NEBO 4";:INPUT O100 IF O=1 THEN C=17:RESTORE 290110 IF O=2 THEN C=17:RESTORE 300120 IF O=3 THEN C=21:RESTORE 3101A}30 IF O=4 THEN C=15:RESTORE 320140 IF O>4 OR O<1 THEN C=9:RESTORE 330150 A=PEEK(RAMTOP)-16160 POKE PMBASE,A170 MYPMBASE=2A}56*A180 POKE SDMCTL,62190 POKE GRACTL,3200 FOR I=MYPMBASE+1024 TO MYPMBASE+1280210 POKE I,0220 NEXT I230 POKE PCOLR0,A}140240 POKE SIZEP0,1250 FOR I=0 TO C260 READ X270 POKE MYPMBASE+1100+I,X280 NEXT I290 DATA 84,84,254,254,186,186,25A}4,254,68,68,124,124,56,56,40,40,108,108300 DATA 8,8,28,28,20,20,62,62,127,127,107,107,127,127,127,127,54,54310 DATA 40,40,1A}24,124,84,84,124,124,108,108,124,124,84,84,108,108,124,124,40,40,108,108320 DATA 24,36,36,36,24,126,153,153,189,60,36,36,36,A}36,36,102330 DATA 139,139,202,202,171,171,154,154,139,139340 ? "}":POKE 710,0350 S=201:POKE 764,255:POSITION 1,1:? "ZMACKNA}I CISLO A RETURN A JEDEM..."360 REPEAT 370 S=S-1:IF S=55 THEN S=201380 POKE HPSP0,S390 PAUSE 1400 UNTIL PEEK(764)255410 POKE HPSP0,5420 RUN 0 REPEAT 370 S=S-1:IF S=55 THEN S=201380 POKE HPSP0,S390 PAUSE 1400 UNTIL PEEK(764)<@1 REM 2 REM çϠŠ3 REM Ġ̭Ԡ4 REM E}5 ------------------------------10 DIM A$(150),B$(150),C$(150),D$(100),Z$(100)20 H=3630 POKE 710,0:? "}E}":? " "40 ? "TATO HRA JE PODOBNA T.V. HRE '' -NEKDO ZADA TAJENKU A NAPOVEDU, A DVAHRACI SE JI SNAZIE} PO ";50 ? "PISMENECH NEBO CELOU UHADNOUT. DAVAJI A UBIRAJI SE ZATO NAHODNE BODY.Šէç":POKE 764,25560 IE}F PEEK(764)=255 THEN GOTO 6070 ? :? :? :? :? :? :? :? "AT NEHRAJICI ZADA TAJENKU(NEJVIC 35 PISMEN):";:INPUT A$:? "...A NAPE}OVEDU:";:INPUT Z$80 ? "}":A=LEN(A$):POSITION 1,2:FOR Z=1 TO A:? "-";:NEXT Z90 POSITION 1,1:? "E}"100 POSITION 1,3:? ""110 POSITION 1,5:? "";Z$120 POKE 752,1:REPEAT :Y=Y+1E}:D$=A$(Y,Y)130 IF D$=" " THEN POSITION Y,2:? " ":C$(Y,Y)=A$(Y,Y)140 UNTIL Y=A:D$=""150 ------------------------------16E}0 POKE 752,1:FOR U=1 TO 10:B=INT((RND(0)*9)+1)*10:PAUSE 20170 POSITION 5,7:? "ŠŠϺ";B;"ա":NEXT U:POKE 752,018E}0 POSITION 2,20:? "ZADEJ PISMENO(TAJENKU) HRACI C.1:";:INPUT B$:Y=0190 REPEAT :Y=Y+1:D$=A$(Y,Y):IF B$=D$ THEN POSITION Y,2:?E} B$;:S11=S11+1:C$(Y,Y)=A$(Y,Y)200 PAUSE 3210 UNTIL Y=A220 IF C$=A$ THEN S12=2000:PAUSE 100:GOTO 420230 IF B$=A$ THEN S1E}2=2000:POSITION 1,2:? B$:GOTO 420240 IF S11=0 THEN Q1=1:GOSUB 510:GOTO 290250 S1=S1+S11*B+S12:S11=0:S12=0:GOSUB 260:GOTO 27E}0260 POSITION 2,9:? "àîͺ";S1;"ծ":RETURN 270 GOTO 160280 ------------------------------290 POKE 752,1E}:FOR U=1 TO 10:B=INT((RND(0)*9)+1)*10:PAUSE 20300 POSITION 5,7:? "ŠŠϺ";B;"ա":NEXT U:POKE 752,0310 POSITION 2E},21:? "ZADEJ PISMENO(TAJENKU) HRACI î:";:INPUT B$:Y=0320 REPEAT :Y=Y+1:D$=A$(Y,Y):IF B$=D$ THEN POSITION Y,2:? B$;:S22=S22E}+1:C$(Y,Y)=A$(Y,Y)330 PAUSE 3340 UNTIL Y=A350 IF C$=A$ THEN S21=2000:PAUSE 100:GOTO 420360 IF B$=A$ THEN S21=2000:POSITE}ION 1,2:? B$:GOTO 420370 IF S22=0 THEN Q2=1:GOSUB 510:GOTO 160380 S2=S2+S22*B+S21:S22=0:S21=0:GOSUB 390:GOTO 400390 POSITIE}ON 2,12:? "àîͺ";S2;"ծ":RETURN 400 GOTO 290410 ------------------------------420 IF S12=2000 THEN S1=SE}1+S12:S12=0430 IF S21=2000 THEN S2=S2+S21:S21=0440 ? "}"450 IF S1>S2 THEN ? "àî ZATIM VYHRAVA S ";S1;" BODY!":? :? :E}? :? A$460 IF S2>S1 THEN ? "àî ZATIM VYHRAVA S ";S2;" BODY!":? :? :? :? A$470 ? :? :? "CHCETE HRAT:1=,2=,3=E}";:INPUT X:IF X=1 THEN RUN 480 IF X=2 THEN Y=0:A$="":C$="":B$="":GOTO 20490 IF X=3 THEN GRAPHICS 0:? "ՠE}٠Ů":END 500 ------------------------------510 AS=ASC(B$)+128:REPEAT :G=G+1:POSITION G,18:? " ";CHR$(AS):PAUSE 5:E}UNTIL G=H:H=H-2:G=0520 IF Q1=1 THEN S1=S1-B:Q1=0:GOSUB 260530 IF Q2=1 THEN S2=S2-B:Q2=0:GOSUB 390540 RETURN (AS):PAUSE 5:Dp10 GRAPHICS 2+1620 ? #6;" LIEBL-SOFT"30 ? #6;" UVADI ,"40 ? #6;" SVOJI PRVNI"50 ? #6;" CESKOU "6I}0 ? #6;" AMATERSKOU "70 ? #6;" HRU "80 PAUSE 500:GRAPHICS 290 ? #6;" *** G "100 ? #6;" * * I}I "110 ? #6;" * . . * G "120 ? #6;" * + * A "130 ? #6;" * -_- * H "140 ? #6;" * * L "150 ? #6;" I} *** A "160 ? #6;" V "170 ? #6;"GIGAHLAVA!!! A "180 PAUSE 500:? "STISKNETE NEJAKOU KLAVESU A MUZETE HRI}AT...":POKE 764,255190 IF PEEK(764)<>255 THEN GOTO 210200 GOTO 190210 GRAPHICS 2+16:POSITION 7,5:? #6;"1.KOLO":PAUSE 3002I}20 REM 230 REM Ҡ̬î®240 REM ̮250 REM I}ɠՠ260 REM ŠϠĠ270 REM ڠϠ280 REM ՠI}̠Ϡê290 REM ūϠ300 REM 310 OPEN #1,12,0,"E:":OPEI}N #2,4,0,"K:"320 POKE 710,0330 ? "}":? "PRAVE DOSTAVATE DO RUKOU UPRAVENOU VERZI HRY .JE TO MOJE PRVNI HRA,TAKZE MI}OZNA NIC MOC."340 ? "JE ROZDELENA NA NEKOLIK KOL,KTERA SE SAMA SPUSTI."350 ? "OVLADANI JE: *-VPRAVO;+-VLEVO;NEKDY:-=NAHORUI} A =-TLACITKO. PRI HRANI BUDETE INFORMOVANI O RUZNYCH VECECH."360 ? "TYTO INSTRUKCE SI PRECTETE A RIDTE SE JIMI.SBOHEM.":? :I}? "STISKNETE KLAVESU A HRA ZACNE....":POKE 764,255370 IF PEEK(764)<>255 THEN GOTO 390380 GOTO 370390 GRAPHICS 8:POKE 710,0I}:COLOR 1:? "TOTO JE 1.KOLO,VE KTEREM SE BUDETE POHYBOVAT."400 PAUSE 100:? "MUSITE DOJIT DO PRAVEHO ROHU.":PAUSE 100410 I}REM ɠ420 PLOT 1,150:DRAWTO 319,150430 PLOT 300,150:DRAWTO 300,130:DRAWTO 319,130:PLOT 1,150:DRAWTO 20,140:DI}RAWTO 1,130440 X=139:Y=139:? "}MUZETE HRAT...º + DOLEVA,* DOPRAVA":GOTO 470450 COLOR 1:CIRCLE X,Y,10:RETURN 460 COLORI} 0:CIRCLE X,Y,10:RETURN 470 GOSUB 450:GET #2,K:GOSUB 460480 IF K=42 THEN X=X+5490 IF K=43 THEN X=X-5500 IF X<41 THEN ? "}I}VIC DOLEVA UZ NEMUZETE!"510 IF X>305 THEN ? "}MUZETE HRAT DRUHE KOLO":GOTO 540520 IF X<30 THEN ? "}JA VAS VAROVAL! UMIRATE!I} ZKUSTE HRAT ZNOVU...!":PAUSE 200:GOTO 390530 GOTO 470540 PAUSE 200550 PAUSE 300:? "STISKNETE KLAVESU A MUZETE HRAT DALSI I}KOLO...":POKE 764,255560 IF PEEK(764)<>255 THEN 580570 GOTO 560580 GRAPHICS 2+16:POSITION 7,5:? #6;"2.KOLO":PAUSE 300590 I}REM 600 REM Ҡ̬î®610 REM ̮620 REM I}ɠՠ630 REM ŠϠĠ640 REM ڠϠ650 REM ՠI}̠Ϡê660 REM Ϡ670 REM 690 POKE 710,0700 GRAPHICS I}8:POKE 710,0:COLOR 1:? "TOTO JE 2.KOLO,VE KTEREM SE BUDETE POHYBOVAT."710 PAUSE 100:? "MUSITE DOJIT DO PRAVEHO ROHU.":PAI}USE 200720 REM ɠ730 PLOT 1,150:DRAWTO 160,150:PLOT 200,150:DRAWTO 319,150740 PLOT 300,150:DRAWTO 300,130:DI}RAWTO 319,130:PLOT 1,150:DRAWTO 20,140:DRAWTO 1,130750 X=100:Y=139760 PLOT 120,100:DRAWTO 240,100770 ? "}MUZETE HRAT...I}º + DOLEVA,* DOPRAVA,- NAHORU":GOTO 800780 COLOR 1:CIRCLE X,Y,10:RETURN 790 COLOR 0:CIRCLE X,Y,10:RETURN 800 GOSUB 780:GI}ET #2,K:GOSUB 790810 IF K=42 THEN X=X+5820 IF K=43 THEN X=X-5830 IF X>125 AND X<240 AND Y=139 THEN ? "}MUZETE STOUPAT"840I} IF K=45 AND X>125 AND X<240 AND Y=139 THEN ? "}MUZETE STOUPAT":GOSUB 1010850 IF X<210 AND X>199 AND Y=139 THEN ? "}VLEVO BYI}STE SE ZABILI! RADIM VAM DOBRE,NECHODTE TAM!"860 IF X<125 AND X>40 THEN GOTO 770870 IF X<41 THEN ? "}VIC DOLEVA UZ NEMUZETEI}!"880 IF X<160 AND X>149 AND Y=139 THEN ? "}VPRAVO SE ZABIJETE! VARUJU VAS!"890 IF X>240 AND Y=89 THEN GOSUB 1060900 IF X>I}305 THEN ? "}MUZETE HRAT TRETI KOLO":GOTO 950910 IF X>160 AND X<200 AND Y=139 THEN ? "}NEPOSLOUCHATE! UZ JSTE SE ZASE ZABIL I}UTOPENIM V BAZINE! HRAJTE ZNOVU..."920 IF X>160 AND X<200 AND Y=139 THEN PAUSE 200:GOTO 700930 IF X<30 THEN ? "}JA VAS VAROI}VAL! UMIRATE! ZKUSTE HRAT ZNOVU...!":PAUSE 200:GOTO 700940 GOTO 800950 PAUSE 200960 PAUSE 300:? "STISKNETE KLAVESU A MUZETI}E HRAT DALSI KOLO...":POKE 764,255970 IF PEEK(764)<>255 THEN 990980 GOTO 970990 GRAPHICS 2+16:POSITION 7,5:? #6;"3.KOLO":PI}AUSE 3001000 GOTO 11101010 J=780:? "}"1020 GOSUB J:Y=Y-1:IF Y=89 THEN GOTO 10401030 GOTO 10201040 IF J=790 THEN COLOR 1:I}PLOT 120,100:DRAWTO 240,100:RETURN 1050 J=790:Y=139:GOTO 10201060 J=7801070 GOSUB J:Y=Y+1:IF Y=139 THEN GOTO 10901080 GOTI}O 10701090 IF J=790 THEN RETURN 1100 J=790:Y=89:GOTO 10701110 DIM A$(5)1120 REM 1130 REM I}Ҡ̬î®1140 REM ̮1150 REM ɠՠ1160 REM I}ŠϠĠ1170 REM ڠϠ1180 REM ՠ̠Ϡê1190 REM I}Ϡ1200 REM 1220 POKE 710,0:POKE 752,11230 GRAPHICS 8:POKE 710,0:COLOR 1:? "I}TOTO JE 3.KOLO,VE KTEREM SE BUDETE POHYBOVAT."1240 PAUSE 100:? "MUSITE DOJIT DO PRAVEHO ROHU.":PAUSE 2001250 REM I}ɠ1260 PLOT 1,150:DRAWTO 319,1501270 PLOT 300,150:DRAWTO 300,130:DRAWTO 319,130:PLOT 1,150:DRAWTO 20,140:DRAWTO 1,I}1301280 PLOT 150,150:DRAWTO 150,50:DRAWTO 200,50:PLOT 175,25:DRAWTO 250,25:PLOT 150,150:DRAWTO 170,130:DRAWTO 190,1501290 DI}RAWTO 210,130:DRAWTO 230,150:PLOT 140,140:DRAWTO 145,140:PLOT 140,141:DRAWTO 145,141:PLOT 140,142:DRAWTO 145,1421300 PLOT 23I}0,150:DRAWTO 230,1001310 X=100:Y=1391320 ? "}MUZETE HRAT...º + DOLEVA,* DOPRAVA,- NAHORU,= TLACITKO":GOTO 13501330 COI}LOR 1:CIRCLE X,Y,10:RETURN 1340 COLOR 0:CIRCLE X,Y,10:RETURN 1350 GOSUB 1330:GET #2,K:GOSUB 13401360 IF K=42 THEN X=X+513I}70 IF K=43 THEN X=X-51380 IF X<41 THEN ? "}VIC DOLEVA UZ NEMUZETE!"1390 IF X<30 THEN ? "}JA VAS VAROVAL!UMIRATE!ZKUSTE HRATI} ZNOVU...":PAUSE 200:GOTO 12301400 IF X>305 THEN ? "}MUZETE HRAT CTVRTE KOLO":GOTO 15201410 IF X>250 AND Y=14 THEN GOSUB 17I}301420 IF X>129 AND X<149 AND Y=139 THEN ? "}MUZETE STOUPAT...STISKNETE TLACITKO...VICE VPRAVO UZ NESMITE!!"1430 IF X>129 AI}ND X<149 AND Y=139 AND K=61 THEN GOSUB 15801440 IF X>174 AND X<201 AND Y=39 THEN ? "}MUZETE STOUPAT..."1450 IF X>174 AND X250 AND Y=14 THEN GOSUB 17301470 IF X>139 AND X<200 AND Y=139 THEN X=139148I}0 IF X>201 AND X<251 AND Y=39 THEN ? "KLESATE DO HLUBIN PEKELNYCH....AZ DOPADNETE,TAK ZKUSTE HRAT ZNOVU!"1490 IF X>201 AND XI}<251 AND Y=39 THEN GOSUB 1680:PAUSE 200:GOTO 12301500 IF X<241 AND X>150 AND Y=139 THEN X=2411510 GOTO 13501520 PAUSE 200I}1530 PAUSE 300:? "STISKNETE KLAVESU A MUZETE HRAT DALSI KOLO...":POKE 764,2551540 IF PEEK(764)<>255 THEN 15601550 GOTO 1540I}1560 GRAPHICS 2+16:POSITION 7,5:? #6;"4.KOLO":PAUSE 3001570 GOTO 17801580 J=1330:? "}"1590 GOSUB J:Y=Y-2:IF Y=39 THEN GOTI}O 16101600 GOTO 15901610 IF J=1340 THEN COLOR 1:X=155:RETURN 1620 J=1340:Y=139:GOTO 15901630 J=1330:? "}"1640 GOSUB J:Y=I}Y-1:IF Y=14 THEN GOTO 16601650 GOTO 16401660 IF J=1340 THEN COLOR 1:PLOT 175,25:DRAWTO 250,25:RETURN 1670 J=1340:Y=39:GOTOJ} 16401680 J=13301690 GOSUB J:Y=Y+1:IF Y=139 THEN GOTO 17101700 GOTO 16901710 IF J=1340 THEN COLOR 1:RETURN 1720 J=1340:YJ}=39:GOTO 16901730 J=13301740 GOSUB J:Y=Y+2:IF Y=138 THEN GOTO 17601750 GOTO 17401760 IF J=1340 THEN Y=139:RETURN 1770 J=J}1340:Y=14:GOTO 17401780 R=01790 REM 1800 REM Ҡ̬î®1810 REM J}̮1820 REM ɠՠ1830 REM ŠϠĠ1840 REM J}ڠϠ1850 REM ՠ̠Ϡê1860 REM Ϡ1870 REM ɠJ}Š1880 REM ŠԠɮ1890 REM 1910 POKE 710,01920 R=0:GRAPHIJ}CS 8:POKE 710,0:COLOR 1:? "TOTO JE 4.KOLO,VE KTEREM SE BUDETE POHYBOVAT":PAUSE 1001930 ? "MUSITE DOJIT DO PRAVEHO ROHU."J}:PAUSE 1001940 REM ɠ1950 PLOT 1,150:DRAWTO 160,150:PLOT 200,150:DRAWTO 319,1501960 PLOT 300,150:DRAWTO 300J},130:DRAWTO 319,130:PLOT 1,150:DRAWTO 20,140:DRAWTO 1,1301970 PLOT 120,150:DRAWTO 160,110:DRAWTO 180,110:PLOT 170,80:DRAWTO J }130,80:PLOT 140,50:DRAWTO 170,50:DRAWTO 245,1251980 DRAWTO 270,1251990 X=100:Y=139:? "}MUZETE HRAT...º + DOLEVA,* DOPRJ }A-VA,- NAHORU":GOTO 20202000 COLOR 1:CIRCLE X,Y,10:RETURN 2010 COLOR 0:CIRCLE X,Y,10:RETURN 2020 GOSUB 2000:GET #2,K:GOSUBJ } 20102030 IF K=42 THEN X=X+52040 IF K=43 THEN X=X-52050 IF X<41 THEN ? "}VIC DOLEVA UZ NEMUZETE!"2060 IF X<30 THEN ? "}JAJ } VAS VAROVAL! UMIRATE! ZKUSTE HRAT ZNOVU...!":PAUSE 200:GOTO 19202070 IF X>305 THEN ? "}DALSI KOLO UZ NENI...":GOTO 224020J }80 IF X<55 AND X>41 AND Y=139 THEN ? "}TAKOVY ROZJEZD BY MOHL STACIT...":R=12090 IF X>115 AND Y=139 AND R=0 THEN ? "}DEJTE SJ}I VETSI ROZJEZD..."2100 IF X>110 AND X<160 AND Y=139 AND R=1 THEN GOSUB 23002110 IF X>179 AND Y=99 THEN ? "}POMALU PADATE DJ}O BAZINY...SBOHEM...HRA-JTE ZNOVU VY BLAZNE!":GOSUB 2350:GOTO 19202120 IF X<180 AND X>160 AND Y=99 AND K=45 THEN GOSUB 2400J}2130 IF X<160 AND X>130 AND Y=69 THEN ? "}MUZETE STOUPAT..."2140 IF X<160 AND X>130 AND Y=69 AND K=45 THEN GOSUB 24502150 IJ}F X>174 AND Y=69 THEN ? "}ZABIJITE SE V BAZINE VY BLAZNE...HRAJ-TE ZNOVU":GOSUB 2350:GOTO 19202160 IF X>171 AND Y=39 THEN ? J}"}A JEDEME DOLU PO SKLUZAVCE...":GOSUB 25002170 IF X>269 AND Y=114 THEN ? "}TAK PADAME,PADAME...":GOSUB 25502180 IF X>114 AJ}ND X<160 AND Y=139 THEN X=1142190 IF X<180 AND X>160 AND Y=99 THEN ? "}MUZETE STOUPAT..."2200 IF X<200 AND X>160 AND Y=139 J}THEN ? "ZAPADATE DO BAZINY...A UMIRATE...":PAUSE 100:GOTO 19202210 IF X<131 AND Y=69 THEN X=1312220 IF X<141 AND Y=39 THEN J}X=1412230 GOTO 20202240 PAUSE 2002250 PAUSE 300:? "STISKNETE KLAVESU A HRA SKONCI...":POKE 764,2552260 IF PEEK(764)<>255 J}THEN 22802270 GOTO 22602280 GRAPHICS 2+16:POSITION 7,3:? #6;"KONEC":PAUSE 100:POSITION 5,5:? #6;"GIGAHLAVA":POSITION 5,7:? J}#6;"SE S VAMI"2290 PAUSE 250:POSITION 7,9:? #6;"LOUCI":POSITION 7,4:? #6;"-----":PAUSE 500:GRAPHICS 0:POKE 710,0:END 2300 JJ}=2000:F=X2310 GOSUB J:X=X+1:Y=Y-1:IF X<162 AND Y=99 THEN GOTO 23302320 GOTO 23102330 IF J=2010 THEN RETURN 2340 J=2010:Y=J}139:X=F:GOTO 23102350 J=2000:F=X:G=Y2360 GOSUB J:Y=Y+1:IF Y=139 THEN GOTO 23802370 GOTO 23602380 IF J=2010 THEN RETURN 2J}390 J=2010:Y=G:GOTO 23602400 J=2000:G=Y2410 GOSUB J:Y=Y-1:IF Y=69 THEN GOTO 24302420 GOTO 24102430 IF J=2010 THEN COLOR 1J}:PLOT 130,80:DRAWTO 170,80:RETURN 2440 J=2010:Y=G:GOTO 24102450 J=2000:G=Y2460 GOSUB J:Y=Y-1:IF Y=39 THEN GOTO 24802470 GJ}OTO 24602480 IF J=2010 THEN COLOR 1:PLOT 140,50:DRAWTO 170,50:RETURN 2490 J=2010:Y=G:GOTO 24602500 J=2000:F=X:G=Y2510 GOSJ}UB J:X=X+1:Y=Y+1:IF X>244 AND Y=114 THEN GOTO 25302520 GOTO 25102530 IF J=2010 THEN F=0:G=0:RETURN 2540 J=2010:X=F:Y=G:GOTJ}O 25102550 J=2000:G=Y2560 GOSUB J:Y=Y+1:IF Y=139 THEN GOTO 25802570 GOTO 25602580 IF J=2010 THEN G=0:RETURN 2590 J=2010:J}Y=G:GOTO 25602000:G=Y2560 GOSUB J:Y=Y+1:IF Y=139 THEN GOTO 25802570 GOTO 25602580 IF J=2010 THEN G=0:RETURN 2590 J=2010:H5 Y=6510 CLS 20 GRAPHICS 15+1621 SETCOLOR 4,3,6:SETCOLOR 1,1,4:SETCOLOR 2,0,14:SETCOLOR 0,0,025 COLOR 1:CIRCLE 80,85,45,8N!}0:PAINT 0,027 COLOR 2:PLOT 53,17+65:DRAWTO 57,25+Y:DRAWTO 66,32+Y:PLOT 76,36+Y:DRAWTO 83,34+Y:PLOT 101,35+Y:DRAWTO 105,36+YN"}28 PLOT 20+40,101:DRAWTO 65,10130 READ X35 IF X=-1 THEN Y=Y+1:READ X37 IF X=-2 THEN 5040 COLOR 1:PLOT X+40,Y45 GOTO 305N#}0 COLOR 2:PAINT 83,76:PAINT 46,66:PAINT 60,105:PAINT 100,105:PAUSE 10001000 DATA 6,7,8,9,10,11,-1,4,5,10,12,-1,3,10,13,14,15N$},-1,3,8,9,12,13,16,-1,2,4,6,5,7,12,13,16,-1,2,4,15,16,-11010 DATA 2,4,11,16,-1,2,4,7,8,17,-1,2,3,4,7,8,17,-1,2,3,4,17,-1,2,5N%},17,43,44,-1,45,46,47,38,39,40,41,42,3,4,16,-11012 DATA 3,7,8,9,10,14,15,17,36,37,39,45,48,49,50,-1,3,6,17,35,48,51,52,53,-1N&},4,16,34,51,54,-1,5,8,9,10,15,33,55,-11014 DATA 6,7,11,12,13,14,15,32,56,-1,7,15,31,49,57,-1,8,15,31,50,57,-1,8,16,30,48,57,N'}-1,8,17,29,49,58,-11016 DATA 8,18,27,28,50,59,-1,8,19,25,26,49,60,-1,9,20,21,22,23,24,48,61,-1,9,46,48,62,-1,10,27,36,46,47,N(}63,-11018 DATA 11,24,27,36,45,47,64,-1,11,22,24,26,37,45,47,61,65,-1,12,21,24,26,36,37,45,47,61,66,67,-11020 DATA 20,23,13,N)}26,37,45,47,61,68,-1,14,15,23,26,36,47,60,69,70,-1,16,22,26,36,40,43,47,60,71,72,-1,17,26,36,40,431022 DATA 46,59,73,-1,18,2N*}6,27,31,32,33,35,36,39,42,45,59,74,-1,18,19,26,30,32,36,39,42,45,58,75,-11024 DATA 18,20,26,29,32,36,38,40,44,58,76,-1,18,21N+},26,28,33,35,38,40,44,57,59,60,61,76,-11026 DATA 17,23,24,25,26,36,43,54,58,65,66,67,68,77,-1,16,26,27,34,35,36,37,42,43,44,N,}45,46,48,51,53,54,55,56,57,59,601028 DATA 60,69,70,78,-1,16,23,24,25,28,29,33,37,38,39,40,41,43,48,52,54,61,62,71,72,78,-1,1N-}5,24,28,32,34,35,36,37,43,441030 DATA 45,46,52,54,63,64,73,78,-1,15,23,28,37,43,52,54,63,65,66,67,68,69,73,78,-1,15,16,23,27N.},33,34,35,36,37,44,451032 DATA 52,55,63,70,71,73,78,-1,15,16,22,27,36,44,53,54,55,56,63,64,71,74,78,-1,14,17,18,23,27,36,44,N/}53,54,56,57,631034 DATA 64,72,74,78,-1,13,23,27,35,45,53,55,57,58,59,64,73,77,-1,12,14,16,18,24,25,26,27,35,42,43,44,45,53,5N0}4,56,631036 DATA 73,76,-1,11,13,15,18,23,26,27,34,41,44,46,53,55,56,57,58,59,60,61,62,72,75,-1,12,13,15,18,22,23,24,26,27,33N1}1038 DATA 34,40,42,45,52,53,70,71,74,-1,13,15,17,20,21,22,27,34,40,41,43,46,52,53,69,73,-1,14,15,16,17,18,19,221040 DATA 24N2},25,27,34,40,42,47,48,53,68,71,72,-1,23,32,33,41,52,68,70,-1,24,30,31,42,43,44,50,51,69,-1,25,26,27,281042 DATA 29,45,46,47,N3}48,49,-2,40,42,47,48,53,68,71,72,-1,23,32,33,41,52,68,70,-1,24,30,31,42,43,44,50,51,69,-1,25,26,27,281042 DATA 29,45,46,47,L h @ @@@ @  @ pp @  @pȈp ` pp @p0p0PppZ5}p ppppx` @ @@ @  @p 8@pp PppZ6}ppp ppبȨppph𠐈xp Z7}pP PP PP  @x@@@@@x@ xx P  pxxpP xxZ8}pp ppP ppP ` pp pPppP @ppP  ppPPxpP P xpZ9}(p  x00xp0pP P  @ PppPp   xpxxZ:}xxxxpp p xx ` p0`` pШppxxZ;}xp p xP PP Px @PpxxPppPx(H(@`PHP`@LSzZ<}IIL?8Ӣө<ӎӭ`J`K)?8KJJJJL|Z=}K|ɛ L8jЌԍ  % L|( q)Z>}  LU Ѝ q)  q)$  %jj* ĭТI ǵZ?}Lɴ Lɴ ǵ` q)ӢP` q) q)`H (Z@} - -Ө (h`lj))` ` 8 i@ .l .lkmll M`ӠZA}` q)` q)` `ĶǶĶĶL0өө<Ӡ<Ӡ``!ɛ0  ߷ <`ZB}"ɀ4<) Ӡ``HHS S0) hh`0ǷǷǷLlZC}Э{ѭ| g+`PЭѭ ` I* I`IJFL< II L<` LP LP۸ZD}  LPF FLP I0w @- 'G+`FI LLF FLPFLPF FLPZE} `IjFkIJ,JLP`ɛҬI{ c0 kI,D7 (Nk,DN,Ș ܸZF}׹ 0CI̩ A  IJ LP A LL` A   L J & & & ZG} ` (OGk,G,WOjHOh)`  @8 & &iMObGHb.NZH}H عӺNHL׹ILf`NOKMHI B 0OK``Hʽ`HNM`IJhh``Hʽ`H P`LZI}M`LM`%H$H` BLVJKBDELVBDEHILV ,BDEHILVZJ}Ժa0 B Y)_AE L@X`L 8A ҭЭӭѭK K`ܠ BƩ Y)_Y l` BƢ 0 bZK} j0  B Y b`jj k L MK ) * LTP!`ҭЭӭѭ`SZL}!` ޭ ޭ `90`22.12.1991 OLDA SOFT JRCl!`ҭЭӭѭ`SXZ$C88888ffffff~`~~fl0fF68of;8p88pf<88888888p 0 ~~`0 ^O}0`~f ~fnn`~~ff~ff~f|ff~~f``f~|lffl|~`|``~~`|```~``nf~ff~fff~~f~flxxlf`````~cwkcc^P}fv~~nf~ffff~~ff~``~ffflv~ff~lf|`~~~fffff~ffff<cckwcff<~f~``~ff~|```|~ff~~f~`|>~ff~~``~fff8<>``lxlf8^T}<fkc~ffff~fff~~ff~``~ff~~f```~`~~~ffff~fff<ck>6f<>>))))* *~nm~P3P4PENTERPRISES^Z}?<8p~~|xp^[}~?x?x~_</^ ?O?ď$?H?^\}? ?L?>珀||^]}>HɦȽ<@ ԍȦh@ȅMBY +?<ƈI?H)(%@. i`(^^}𩡬%E(&Ei(ЈL_HE 32@@i`(D 32@@i`(D 32@@i`(h^_}Lb䆑`` BeBi(8呅ɛ Y.(ĉ`BB'` N. C. -^`} N.8`C@{a `~!Ɓ -äĉH)I)L=-ɜ𡤁ɛ Y.ĉH)ĉȄ -L=-ɛL1-^a} N.`H)I)`a{)`yТɀɁɂ I@L-Ƀ@лɄɅ𳥂@a { ^b}L-` `H)` k.Q@` k.U@`H****)h)` !OQB!`L/ f00 2 =0 30L)>. ,^c} -=B , /Ǝ 2L. - f0 =0L)> - R1 / #0 v00  4L/ =0 30L)> R1 /( /#ɛD:!^d} / =0L)> R1L)>L/ /5 /L)>@ɛ,Ȣ@ɛ /L)>H 30hBDE V =0` - ,^e}@ , - -ɛ YN -(` ,@ ,L)> - ,|C , /-`ȹ.ɛ@0 -L/`@ɛ^f}` BLV䄕 30 B` BHBhL, ,@ , ,@ , 30}@JKBD@E V^g}`@BDDEqHI V` 0HI)DEE V` 30 -(`DmD旈`80( $^h}B80 e`8`` 30 y.BJD@EK V =0L)>BHIDE^i} V0ح0:L30 ɛ Y.i i敥 溥РL30&^j}u` 2)@@H)B@h)JJJJA@@@i0@@`i0@ - ,A ,ƒĠ@ ,DHDh /-` ^k}5 ,沥͹D`j8墪` 30BDBEJK V =0L)>` BDCEHI ^l}V0`ͅD f0 =0L)> /r #0 ,Ѡ@ ,DDEDDD%E'E /-L)>NA80 , -Di1@^m}A ,ƒĠ@ , /-L)> - , , /й DD - ,A ,ƒ Ġ@ , /- 1DD^n}D - 4i iDŚL3DmDD ,$A , -))D%EA -LANA$ ,?A , /-LANA^o}80&E x5D莹DDD8DE&EE'EyD(EL)> y.ͅD C.1_ȱɛ  :DyD^p} ,i 栥͸Dг`HD膑yE"iD %;ɛC򩛙CC ,h̸Dл`8塅j墅8D^q}0뎼D`H "hDHEhɛ "`渥ŵmD"̺D` E6D`^r}'E%E N6  N6  (E` 86L 6mD`` -" -ż` 5ĥ"# E6DDL6 5^s}D8夅DͻD 86L6mDi 6ƽ8DL6#̺D`̺D`Dż`^t}Dŵ 86L77mDi 6漦D̺DλD`L7 7L)> -DͼD - ,RA , -L)> 4 ^^u}2 ,lA , / ,+B ,L}7 - ^6LW7DL 5 4 05 ` ƯD毥ͻDL7L^v}78`?L7 D𔅯L7СDJЊ - 7 , -^A , / -L)> 6DέD$ - 4Di0A ,^w}{A , /-  - -L)>͎A080 - ,A ,D /-Ġɛ -#E̸DDEä̻^x}DL8 5 49 4 05 ,A ,A , / -L8L8e…!i搠 -#`8`Di0A 7L8^y}ťƠ - ,ǠA , /-ݭ080͹DхEDEà -i0@ ,A ,ƒĠ@ ,D /- - ^z} , , -ߠA , /Ь&E"Ņƅ 6 n: ^6ą#" n:"̺D 4 05 - - ,A , /Lu9Lm9^{}"½ɛ "`Di0'B - ,B ,D /-  - 30L)>Cɛ&810͸DߝDDD}CiC^|} 2 0;̻D 5 %; ;ȹɛ ; 3L: C` %;Cɛ$ BBɛ C ; 3^}}Cɛ -C 3LE 5̸D^~}V BB %;ɛC :C褼EDùE" C ; 3L; E/^}!*н&* .=敥ƕ .=ƕ漥春ũЍТA L=@[ *C=*D=`HH^}Ѝ i8 ԍЅhh@`abcde` M< y. $0(1?ʅ˅̅^}pDߍ++ \k, \ԩ)E 2yzyzL`>') - -ɛB+ Ɔ*憥^}G@')))) )L)> Y@Z@_@>`@>ۥDР') - -L ?L> -ɛ^} ? `7+ ƍ*捥J@ ?) )0 ?L)>')))` >e@=?f@>?L >o@Q?p@R?L^} ?L? -ɛA7+ ƍ*捥 ?O@) )0 ?L)> y@?z@?L`ʅ`,oad3^}ave2en$el.ew2ead%dit!dd$el3rch!ll&ieldsD|~ ^} @ ` @`??@+???S?..F/ /"3Q7d9W7/8a8;: BDA.D:*.ADBD: . Are you sure [Y/N]? No file in memoryFIELD^} # [n]?# of FIELDS [1-8]?Saving file...Loading file...ENTER DATA FORLENGTH OFNAME OF[A]scending, [D]escending?Index F^}ield [1-n]?Memory fullRECORD DELETERECORD CORRECTSEARCH ON FIELD [1-X]?SEARCH FOR WHAT?RECORD FOUNDCONTINUE SEARCH [Y/^}N]?EDIT WHICH FIELD [1-X]?NEW DATA CORRECT [Y/N]?EDIT THIS RECORD MORE [Y/N]?FIELDS TO PRINT [1-X]?CORRECTING RECORDSAV^}E FILE IN MEMORYܝ䀀ݝ䀀倀􀀣򀀺􀀥P:DDDDDD EE ( P x ^} !@!h!!!( )p) (2