8(A;CRACRCOMOM D1:SCOPY c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 } p  gފދLh ( LD 0  C  C  \i +$+0'}; $(%)  b L[C `D P^߰")(݃   $DD}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P} Li 8GD }L[ PH >iJ ;  yyB } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 } ' r/ $ ɛ ` '  L[  l }-     }    L[L  }  '  L[   p  ` g  l }) g ' }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / }`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@BrAsTt[ }0: gL  `$0`j`& CpCi s L0JCܢj? I#}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! }S S0$}) E9`H)N,L]8GH Lq`gNgfj****8jHi h` } 2J  &e2i`"%?&;^$IM ! ! <u hh`$}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 }q D&E`I0` i`+DOS SYSMOC.I  J ٍ = ) F)}8`Ll T!U<; Ln <JM -18    HH =}D 1 :  /1[F:M #.! 0`>C #   #`>   e}L'>/b;\I\o@ @LK~ L  % /e  L ; H}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQORa/%<}) j ө  RES L%-, # 3 0 %   4(H 4(` }( 3  #  ZOiۨ L4RE 3 =F S Z +8!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L"}F F LH hL4`*J 0 B B 0a   8#}    Lkl  );<  : ` 0 } T T 7̀΀$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  %} L480  ` Ln    `   HJJJJ h) ii0HI B V`0  ,BLV&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h'}N MSп` ED` OIH`hhXhh  nL Free FilesBreakI/O-Error 162Disk f(}ullWrite protectedFile MismatchBad Filename FLOP 8 - XII/90 RUN: --------------------------------File lock)}edDevice doneDirectory fullFile not foundBad Load FileNot DOS II+Bad HexAbort-> Source-> DestinationD1:+DOS SY}% ) ) ) )  `AF9  ,-( S(`) l T+}L5)JJJJ0 ((`6)) ( S( "5)K)(((4(( a$(` (L S( (``)5)Ч)L,} S( ()(`)LF )  L 6)P  ) t#,) (p-q #6)()`(((8(((( hh()` a$-}6)`6))7)ɛ'6)6)Lz L 7)6)+ (L .) (7).)7)ML !7)A;.) " ԍ(Ս( "%.}ԍ(Ս( a$6)0La 7)@Ld!RL".) "ԍ(Ս( !"ԍ(Ս( $6)0La 7)@Ld!IM.) " " /}7)@ԍ(Ս( "ԍ(Ս( a$Ld!.)6)0La L P77)D \()7) Ld!U S(L!IL" \(Sx70})W"(.) "*Ԯ(((Ld!G " ԍ)Ld!IL"!"( "Ԯ((")Ld!(ʽ")$)L]!W_1}7)RW))6)(( a$La )7) t#L") >$ '7) '() $L?" (6)()` D ؐ`.) 2}/) ٰ` D ؐL".) /) ٰ` D ` ِL"8ԅԩ"#Յ`( S((())")0((3}(())))) $P(((( $(((((((()`H n) >$h)) 4ݛ# L# 4}7p*qL#))` 8 ΅p*qp0 pqL#pq '#$))p '(0)L#)=$=$ /') 5} '=$)H >$h)) '=$m/'`)()()( )( ))`8((((((8(((((((m(((6}(m((((( &((((m((((m((((( &(( ( ((`$%((((((((((7}((((L6%(((((((((()(((J((((j(() 0&((((L%(((L%8}( () &(m(((m(((#((8(((((((L%( +(8((%&((((L`%) \(9}``0 H h*`((8((L&( (((@)9A)(((((.())8((((((0:}")) '(N(n((')+)))0))')0') +)'),)-)`((J`((8+)L\&'(,),)`-)');},)-) s(L&)))( '(m) )m) )))8JJJm))) '(m ) )m ) ))) ')( ))) '(m ) )m)<}) )m ) ))m ))))@:(((((((( a$ \( )( )( )()( a$` S( )( )( '()()(`(*(=}8*(((N(m(Jn(*(8((((`Hm()(h)m() ((((J(Lz((` (((>}(Lz((()(()JJN( ( (8((((`HHH/ԍhhh`HHH"/ԩBhhh()` ?})))!)/)6)@7*2+ X`ibkd\z" bz" b8D|Z\DxD"z|d@}"zx`8XZBJZX`airkcd\ZJb z KTPX\d`ikDLHPT8 d" d"xyAB:b JZ[Xx{( r rJ\ `r dr 2Z 1z29I {,hS\A}cahqt:|9piryRKT iqzskXPIJ;;iY9k[s$`1 d2 |4TKIPpy{){(py{tlcYPH03+.,y{tlc\TKI:PT#IKTdkhx ikdTKIPpy8|t B}PXaclt{{yphac\TKKTt{yp`Y[Z*R"3a(l1c0y{tlZR hqslTKJQajcpy{tLx{tkh+dTK4{ypPIKx{tTK? CNIBSPXYANA2A1A3A0KE@@A @@@@G}@' @ A A 6A @AADDD%A@@x$2F$2$H}2EF@ `11;@p,;@P,;@P,;@P,0@OO6.E APROXIMAI}CE FUNKCE DANE BODY POLYNOMEM M-teho STUPNE...6.$#..6.$|y=K(1)+K(2)*J}X+K(3)*X^2+K(4)*X^3+..|(..6.$- 2 7 < A F #BK"PK}MMCZadej stupen aproximacniho polynomu M=U6-%@6-%@Z6-$@_L}9,9,9,9,9,d 9<,iG  <(NUTNO ZADAT SOURADNICE DALSICH P:&, BODUGBn!!-@M}@$&@s!68,-!68,-x68,-@}  #B%-@ "68,-N}68,-6-@!!-@@$&@68,-$8,6-$8,68,-8,%8,!AuO}68,-8,%8,$8,  68@,-8@,%8, 68@,--@-@P}68<,-8%&@,  T 6-6-%@ 9<,((-@-@Q}! "68<,-8,! Ap 68<,-8<,  `-@" -'!8<,'!R} A, 1""( Soustava nema reseni 6; " AP@ -E6-8<,J68<,-8<,O6S}8<,-T Y6-%@^-6@c68<,-8<,'8<,h m " ' Ar -w -T}|!!68<,-8<,&8<,$8<,   -@6@-@&@!!68<,-8<U},&8<,$8<,  (HH > Koeficienty K(I) aproximacniho polynomu stupne M=  V}  -@ K()=8<,   CC ; PRO VYPIS NA TISKARNU STISKNI LIB. W} KLAVESU.)<<3&APROXIMACE FUNKCE DANE BODY POLYNOMEM  STUPNE.3..3$ y=K(1)+K(2)*X+K(3)*X^2+K(4)*X}X^3+.. 3-@3K()=8<, 'T'POCET NAMERENYCH HODNOT'5'T$'SOURADNICY}E BODU X,Y)' 1,3.' 2,63' 3,118' 4,18=' 5,27 D:APROX.TBA APROXIMACE NOT'5'T$'SOURADNIC_ !K^XYJPODDRPODDRTT@(W@@ PFAPAX DA [} AP AY @yP @yPA@PA NAHRADA SCALEF6-#6-@"'@06-6@ \}<6-@F A0!!P=Xmin R=Xmax S=Ymin T=Ymax!(8/-@"'@@'@86-E:,2 A0 ]}<",F /P Z SCALE P,R,S,T " A0@ 6-%$ 6-&+%$,  ^}A3$ NASTAVENI PARAMETRU = +@'0@1@=6-A $ A1 A2! A4 _}$$ INICIALIZACE& '6-A6-AY'6-'+&,0 $  A1`: $! A1pD *$ `}"*"'6-*$N $$"*"!6-$$X 6-$O:,'+O:,%O:,,$b 6-$+6,$ INI a}CIALIZACE 6-'+&, $  A2` $! A2p *$"*"'6-*$ $ b}$"*"!6-$$ 6-$O:,'+O:,%O:,,$ 6-$+6,$ KONTROLA C 6-'6-@ c}PC2@@ G&?P6-&@+6-@PG2@@ C 6- d}'6-AC2@@@ G&?P6-&@+6-AG2@@@ J%2 e}G2@J$H OSY SOURADNICOVEHO SYSTEMUR % 6-6- A0 f} %,\ % 6-6- A0 %/f %6-6- A0 %,p (6-6- A0 %/($ g} D:SCALE.TBA6- A0 %/f %6-6- A0 %,p (6-6- A0 %/($ 05BJ#D4EK V`PDHQEIB V B V` #4ɛ ` BLV61 BƠ F0 0 i}0 Z0`ܩR} 94 BƢڠ4 BƩRO1 B I IL0L d0L0P 2L0S 3L0V 0L0DЍLj}50H1H021 O L1N L1h1h0` Device and filename ? Inversion print ONԤԹy1k}` u2UAԤԹ1` u2K u2 u2@ u2`֢Ҥ)8JJJJ1%8(ҥ` 03"4( } Nebyly zad}ane hodnoty!> BC +@$A%A1A CAVA,'/A}9/AAK/A]/o,@`/A@`-6@}- 6- A   --  6-* A4 > }H BR"F:B2y,@" AP\ + B! 6-$%6-$%!6-&$6-6J:6$&$,}$ 6-%$6-%6-%)6-F:,$A')6-F:,$A 'A 6-@$J")"@}#1,A&;@G6-J$/A&$'ɠŠ'EA A}'A9AR@E6-'-@'!!( '!!( |}|!'!!( ||||"'!!( ||$'!!( || ||&'!!( || Zadani }hodnot ||''!!( || Zadani funkce ||('!!( || Vykresleni grafu||*'!!( || Magnetofon ||,'!!( || }Barvy ||.'!!( || ||0'!!( ||1'!!( 3'16-}@6-@ '6-@1 BP8'//BBAPBBB' Bt'}~'--@(((!(-6-@'##('##(||'##(}'##(| |'##(|Pocet rezu(2-30) X: |'##(| } |'##(|Prostor.videni(A/N): |'##(| |'##(|Xmin: |'##(|Xma}x: |'##(|Ymin: |'##(|Ymax: |'##(}'=-@'@(=4 |)21)39B@' 6-A:,') @)!@0() B@'-@)}@('!0A*0N(! BP'/-@@!( %/ B`' 6-A:,'/-@}@!( %/ Be' 6-A:,'/-@@!( %/ Bp' 6-A:,'8-@@}!( %/ Bu86-A:,'Y(U(I ~~~~~~~~~~~~~~~~~~~~~~~~~~Jste si jist? (A/N)Y}'4NB' B`''@@'-@'( '( ||'( }'( |Zbyva |'( | |'( | vypoctu |'( ' BP A@' B (}55(-}Byla zadana spatna funkce nebo hodnoty.( (F=()@ B)堠) (}6}-)(Zadejte novou funkci.) (F=@") (} (,)G(1010 F=(( (CONT2-@D}AB@G&1)1AB@'B7t@d1 B*Π+3-@(((}!($('(36-@ +(+(||+(+(| |}+(| 1.Load |+(| 2.Save |+(| 3.Menu | +(| |"+(}+16-@6-@'6-@1 BP+"@B+"@B+Š+ (}} ((((+&(Save :&@+X( (X(JTed se nakresli graf. Po jeho nakres- leni se ozve zvukove nav}esti. Po nem+--(%pripravte kazetak a stisknete cokoliv+( (( Stiskni START+ F:B2y,@BP+ A}P+ @@,-B1B,*@F:,, @ AP,Ġ},8 (} ((+(Zarizeni::8@,e+@%@'A@9A@S0@}@@eAVA, @@,-B1B,)@,  AP},٠,0-@(((!($(06-@,( ,( ||-(} -( | |-( | 1.Pozadi |-( | 2.Text | -( | 3.Okraje | -(} | 4.Konec | -( | |-( -;6-@%6-@ %&@16-@; BP}-"@ B-)"@6-%@)A#-)"@6-%@)A (-)"@}6-%@)A--AU6-/-AU6-2-AU6-7- BP B}EP- B.Ġ.- (}A!A-A . ( ( (.,,($Р}ϠڠϠҠ.(.++(#Chcete-li si nahrat tento program v/,,($puvodni verzi, nesmite menit funkci./,,($Vami }zadana funkce se pak nahraje na /--(%kazetu a pri novem spusteni nesouhla-/$$(si nektere udaje v programu./++(#Pokud} jste dostal jiz spatnou verzi/++(#programu, napiste si o spravnou na !/ (adresu: Libor KLUBAL#/!!( }Spojovaci 812%/( 749 01 VITKOV&/!!( tel.0654/2503'/ A( F=(/.(.(#Jestlize funkce} nejsou stejne, mate*/(spatnou verzi programu.0/$( ($(Zastavit program?(A/N)5/4A&7/ (}C/**(" } KresleniD/**("   N/,,($  K R T E K  prostorovychP/(}  X/((( grafu]/(b/..(&g/..(&| }Program KRTEK slouzi ke kresleni |l/..(&| prostorovych grafu na pocitacich |q/..(&| ATARI XL/XE. Program vykresluje } |v/..(&| graf podle nami zadane funkce a |{/..(&| zakladnich udaju. Pri zadavani |/..(&| funkce musime znat s}yntax jazyka. |/..(&| V programu je zadana funkce ve |/..(&| tvaru F=-EXP(-X*X-Y*Y). Staci te- |/..(&| dy zada}t jen hodnoty. Pouzivame- |/..(&| li zarizeni 'T:', muzeme vygene- |/..(&| rovany obrazek pouzit v programu |/.}.(&| DESIGN MASTER 4.0. Zde muzeme |/..(&| obrazek dale graficky upravit. |/..(&}/ (Prosim cekej (cca 1min)/i Bp!-@@C2@P@@G i2}/ (Stiskni START / AP2 N AVA$%NN,@@}<6-?:A6NW,@}@%E6-?:A6,<@<A(,=,%@ @EuN 6.=:,}6.=:,zN]+6-?:A6,<@<A(,N"@} B`NG,AP@PG6-?:A6T:,")T:@,")F:Ad,"@PA}dAU`6-&%@c$a BPe!!ˠ՛e' (Chybne meze X!' B`e' }(Chybne meze Y!' Bpe$xi᠛}i::6-?:C:"hhhΩ̩̑͢Έ`,<BV,i/ #Bq}0!-BXdB`q%"+/ i/ #BrP!-BcvBe%"+/ i/ #BsP!-BW(BX%"+}/ i< #BtP!-BaBcg%"+/ 9 B<$i]]0,16,52,36,36,52,36,0,0,48,36,48,36,36,48,0,0,16,36,3}2,32,36,16,0,0,48,36,36,36,36,48,0j]]0,52,32,32,48,32,52,0,0,52,32,52,32,32,32,0,0,16,36,32,52,36,16,0,0,36,36,36,52,36,36},0jYY0,16,16,16,16,16,16,0,0,4,4,4,4,36,16,0,0,36,36,48,48,36,36,0,0,32,32,32,32,32,52,0j]]0,36,52,52,36,36,36,0,0,36,5}2,52,52,52,36,0,0,16,36,36,36,36,16,0,0,48,36,36,48,32,32,0"j\\0,16,36,36,36,52,20,0,0,48,36,36,48,36,36,0,0,20,32,48,4,36,}16,0,0,52,16,16,16,16,16,0,j]]0,36,36,36,36,36,52,0,0,36,36,36,36,52,16,0,0,36,36,36,52,52,36,0,0,36,36,16,16,36,36,06j00}0,36,36,16,16,16,16,0,0,52,4,16,16,32,52,0rjmm0,0,48,4,20,36,52,0,0,32,32,48,38,38,48,0,0,0,20,32,32,32,20,0,0,4,4,20,38,38},20,0,0,0,16,38,54,32,20,0|jZZ0,4,16,16,54,16,16,0,0,0,16,38,38,20,4,48,0,32,32,48,38,38,38,0,0,16,0,48,16,16,52,0j^^0,1}6,0,16,16,16,16,48,0,32,32,38,48,48,38,0,0,48,16,16,16,16,52,0,0,0,38,52,52,38,38,0,0jll0,48,38,38,38,38,0,0,0,16,38,38,38},16,0,0,0,48,38,38,48,32,32,0,0,20,38,38,20,4,4,0,0,48,38,32,32,32,0jll0,0,20,32,48,4,48,0,0,16,16,16,52,16,20,0,0,0,38,38},38,38,20,0,0,0,38,38,38,16,16,0,0,0,38,38,52,52,38jEE0,0,0,38,38,16,38,38,0,0,0,38,38,38,52,4,48,0,0,52,4,16,32,52,0j}0,16,36,36,52,36,16,0jhh0,4,20,36,4,4,4,0,0,16,36,4,16,32,52,0,0,48,4,16,4,4,48,0,0,4,20,36,36,52,4,0,0,52,32,48,4,36,16,}0jkk0,16,36,32,48,36,16,0,0,52,4,4,16,16,32,0,0,16,36,16,36,36,16,0,0,16,36,20,4,36,16,0,0,16,36,36,52,36:kgg0,0,0,0,0,0},0,0,4,16,48,4,20,36,52,0,0,0,0,0,0,0,0,0,36,20,20,32,32,32,20,0,36,20,4,20,38,38,16,0Dk\\4,16,20,36,52,32,20,0,36,16,20,36},52,32,20,0,5,16,33,36,36,33,16,5,48,4,33,1,1,33,4,48Ik4,16,0,48,16,16,52,0Nk\\0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}0,0,0,0,0,0,0,0,0,0,0,0,36,16,48,36,36,36,36,0Xkhh4,16,16,36,36,36,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,16,48,36,32,32,3}2,0,36,16,20,32,48,4,48,0bkbb0,17,20,16,52,16,20,0,16,16,36,36,36,36,20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0l}kII4,16,36,36,36,52,4,48,36,16,52,4,16,32,52,0,36,16,52,4,16,32,52,0,0vkOO0,0,16,52,16,16,0,0,0,0,16,16,52,16,0,0,0,0,0,16},53,16,0,0,0,0,0,4,53,4,00u렛:u6-#BDu0-A6AF"!)6-%- 0$N}u#BX ( Data error !#&u==104,104,133,209,104,133,208,104,104,133,210,104,104,133u==214,169,0,133,211,133,205},133,213,165,92,133,216,165,91u<<102,216,106,102,216,106,133,212,165,212,201,80,176,103u==106,102,213,165,94,133,203,16}5,95,133,204,160,0,132,207u<<164,211,177,208,41,127,201,96,176,11,201,32,176,4,9,64u??208,3,56,233,32,10,10,38,207,10,3}8,207,133,206,24,165,207u>>109,244,2,133,207,162,8,160,0,177,206,36,214,16,3,32,147u==6,32,191,6,36,214,80,3,32,191,6,2}30,206,202,208,230,230u>>212,36,214,16,6,36,213,48,4,16,4,230,212,230,205,230,211u<<198,210,208,147,96,133,215,169,0,13}3,216,160,3,185,183u??6,36,215,240,7,185,187,6,5,216,133,216,136,16,239,165,216v==36,213,48,4,10,10,10,10,96,1,4,16,32,}%8:8KOKDSTAPMMINVPRNTMOVXABVVRDSNNZSTICTGOKLAFCUNSULOSMASKEQFCEXYSMZ}DIPRINOLSOUUNIRPDDDNOVMSCREEJSPDUMMSZSOU@} @ @ ]}` !,l"^#$ _%&}'()*+,-./0Ci1v234[l5n6}78:m9:;<=>?@ABC W +@48AA}+F:AB,&@,$AVC6-U:AA,W6-A$$AV 9A 'A@9A@} 8AAU:AA,&A7  AY9A$;@0,;A,""6.$f>~ }0`~++67@%,.<```<8>ff>}z~++67@,.=ffff<(}`<|~++67Ai,.bfff>zff|lf x~ 0~9C:,A%A}6.$ffff>$<>f> 9C:,Ah%@!$$9C:,%@A %@# @(::Yf@(}  *::Yf@(   ,::Yf@$( }  .::Yf@2(  0::Yf@@( }  2::Y@$@V"     4::Y@$@d" }  6::Y@$@r" 8::Y@$@"  }:::Y@$@" >::Y@$A"   @::Y}@$A"   B::Y@$A "   D::Y@$A}("   F::Y@$A6"   I'AVAV'}AR@K&&( Pro ATARI XL/XE and JoystickM%%( Vytvoil Pavel Kadan kN++(# } V 1.0O++(" Potebuji jet chviliku pros m.PAY@4<6-U:@,6-$6-Av<;@@,9@},n68,-%Ad@)6-U:AA,56-A@D68@,-U68@,-%n68@,-%@$G @}6-%6-Aa16-A=6-AG AAP+-@+ A%$@-B:,&@}@116-@:7@%<@%,,&@%@!;;6-+@:7@%<@%,,&@,'A&@;;6}-+@:7@%<@%,,&@,'A&@))6-@:7@%<@%,,&@))6-@:7@%<@%,},&@))6-@:7@%<@%,,&@))6-@:7@%<@%,,&@))6-@:7@%<@%,,&}@Y>:,P A%$@   ##YA)Ad Esc - Data##YA)At Caps - }Prep##YA)A Space- MenuC @,AAt1,AAtC,AAu'98,8}@,' AEB6.83eS3eB3eK3e K3eD3e(X3e(EE$EB6.8 3e(W 3e2E[ e2ET}e2EFe]ZO eTRQehiGE$EB6.8ewxHew~JeMeIeY eUeLE$526.()eɸVe}ǣNeP)eյֶCe֤ͬZ5$,Z-AbA@VY( Z 1g }@,Aa1/AAaC/AAU/Ag/Aa36. PLBXCEF TUSQ6f}-@ A@@ +,Ab7/AbY&@Ab7'@ <'@ ,f 8,ABAc'/AB}Ah9/AGAhK/AGAc]/ABAco,ABAh/AGAc9_ACAd;}!!YADAd Esc -Data<!!YADAt Caps-Prep=E!YADA Spac-Menu3,AvAE,Aw}A@,@Ap'/@Ap9,@AvK/@A],@Aro/@A,@ }A/@AE,@4Ar'/@8Ar9,@6ApK/@6At],@6Aro/ }@%A,@#A/@'AF',@%A'/@%AJ],@BAp'/@PA }p9/@PAK/@BA]/@BApK],@EAu'/@XAu9/@XAK/@E }A]/@EAuO,@bAp'/@pAp9/@pAuK/@xAu]/@xAo/@e }A/@eA/@bA/@bApP9,@eA'/@eAu9/@uAuT}?b@Ax@?b@A@@^?bAAx@?bAA@@}`_ ,AA1/AAC,AAU/AA_@cSbA0A@/},A)ApA/A)AS_A3Ah,ABAp'/AXAp9/AXAK/ABA}]/ABApo,ABA/AXAp_ACAql TEXTm1YAbArAa1YAbA}rsYAAiM+,AA=/AAO/AAa/AAs/AAs}],AA'/AAv9/AAxK/AAx]/AAvw],AA'/AA}9/AAK/AA]/AA|MOVE ************sYA&AiM+,A"A}=/A8AO/A8Aa/A"As/A"A],A0Av'/A0A9/A(A}K/A2A]/A0A98,8@, 9 AVA .TLDRU}HY STARTNQ +@$S8AABbT B`y6-Avy;,;@@,;@0,;A,9@},;@(,;Ar,;@),9@,9@,jh6-U:@,6-C:,,68f,-%Ad@;6-U:AA,G6-A@}P68g,-[68h,-%h68i,-%h$t&&6.hX˥Y̢Iˈ`yee67g<@,.Phhh hh 6^}i_i(`_^i(izww67@<Ar,.\i%ݢ>>>>>>}>Ѯ BDEIH V`|''6.hhhhhhhΠˑ͐`~A-@@"$68,-( A}1,1,1,0,-1,-1,-1,0,0,0A-@@"$68,-( A1,-1,0,0,1,-1,0,0,1,-1?6-A$6-AV'6-B6}36-AY?6-@y]A 'A@9A@KAd@3Q6-g]6-@3}A=FRE(0):END'@@d'B7t@d ATO 6-R:f,6-%8,6-%8, T:f,"f}6-g APQZTwHLAVNI SMYCKA T:f,"f6-g" 6-R:f,"@" A0OA6-+%8,"A ,%+ }%8,"6g,%+%8,"A,%+%8,"6g,O!fA0[6-%8,6-%8,!1'g&-,1A,&8,&8,G6-[!}"@AF:Ad,P"@ A T:f,"f6-g AP "g6-fP6-f "}A@T0O: 1g&,D 9NQTO-f@y%f --g@)9%$#}@@- QT TEXT4, 6-6.6-g(AdAU,g>)"AU A!HA&$} A!`R "g6- A!\- 6-&g6-&@#Y - A!f A!p67<,.>:,6-%gz2%}Y>:,6-%@(A2 A!' "g67g:AU,' A"6.7@<&g,6-$T&}O 6-F:Ad,6- 2%2@@E@@/M@2a #"@`6-i&#6-@3 #"@'}3 A$P# A# "@( A0$ 7 "h76-&@d$+!@c,%@d$+ @d,) "A6-(}@9* "A6-@G. ??6-X:-*8 ---' >///////hRjzx}cJ~mWPnMAVy@HEeKUk<>:,,8 H "f%2g@@)}@/M@2a>6-@3H A#0= S!@* @!7 A(%@$+&@,=6-IAdS A#*}B  6-6-6-V Q T MENU 1AdAU#98f,8i,198,8f, "F:Ad,"AU" A$U+} 98i,8f,$ T POSLI $6-?:C:,,6-g&$$INVERZE P $ P P$SMAZAT  9$V,}RATITRUN T &98f,8i,'''&6-@ Z-AbA@VY( -} Z  ) Ap6-6-g)6-A O&YiAsamd Dis urbo as OYAXAsNarat r.}int sada  ="@@67g*:  '6-X:<>:,,"' A0H !@4} A2  !h6-@ A0u 6-@ E"6. OBRAZ SADAOBRAZ SADAE6.7$@<$@%@5}, Y@A Z6.LOADSAVE-Y@SA7&i<,AY@AZ6-@%B:,$@ 2 6-6} A p!67B:,%g,.2@ # A0%$hga# A0  Cg98f,8i,$ CgA$$7} 98i,8f,Bg$ BgA$$ T O!  !h A1& G6-@g6.567@<@8},.*.*GAdAU+ P0 g@f7g<@,: $ g A1!f$ A1D @Y@g9}" A1(!f66-%@@ A1N IYAe6-%@+!AP/)3P?6-@I A10X A10:}l 1Y@6-g'6.7g}g6-6g"6-F:Ad,"g" A6$"@6-6g6-f."@6-f6-6g8"@6-f6?}-g="@6-g6-fJ) 9PP6-6-) A6KOL' 6-g' AP%+&@!,$@V#6-@@}:7<,,#6-@:7%g<%g,,`K @6-@@&+6-@@&A,%$%$%$%$K A6eK Aa6-A A}&+6-A &A/%$%$%$%$K A6j` 6-%g6-A&'6-A&96-@:7%g<%g,,H6-O:$%$,`B}b%$%$%$%$m  B:,&h6-%h A6ppQr) 6-f6-6-1)AdsQO5 "f C}P6-6-6-%6-+g&1,5g!  i6-f6-f6-f!6-f)"@*"fAV) A p "iD}6-g 6-6-P AA%+$@, "g A@ A@@ !h6-6- 6-6- 1E}AVAd 6-f Q 9bO:,O:,$:fbO:,O:,g+bO:,O:,16-76F}-:$" ,g_$, 9,/$6, 9,//#/)/,$@. ,6-6G}-6-f%6-g+6-g.$J%f ,///%/K4g ,///%/+6-16-4$T 9H}Y$ ODPOR!6.((~x~vvxx.(~zzx!$6.((x.&~zzv~v$%"6.((x0$|1$|6$|7$|8(x%$'$6.I}((x0$|1$|8(tt||xx'$)&6.((x1$|2$|4'y5&z6%{7$|)$746.*((xxxx*'-'0'3'6'9'<'?'*3-303336393<3?3J}7$'$6.((xxxx*'-'0'3'*3-30333'$*'6.((xqk4(4$|8-7-9+9,*$*'6.((xqk4(4$|7-7,8+9+*$K}6.((~xs9(x$/,6."((~x9(x.%u.$t4t3"r2!q/$!6.((}x(6}.#~~s:/!$306.&((x0$L}|1$|6$|7$|8(x)-r>$>#="<";"3$ /,6."((~x~vvxx.(~zzx("~r~9.8.:-:,/$%"6.((s}/(z}#,#+$-%-+-,-*,*+%$%"6M}.(')&*'*(+),(,'-&.'.(/)0(%$('$6.((x1%{3#}}ss7%{8(x'$26. ((wwywyywyww$<# 6.((xqqx8(x0,N}t#$F!6.((txtxxxpx)'y!$P6. $,|t$$||$Z6.%+{u*%)%+&+'$d}z6.p((mxxx-s-1}8&r8*O}~*"~v+"~u,"~t-"~s5#s6"r7!q8 p5-}6.~7/80991.*-+~{,,~|+-~}*.~~%%wu%%wu?%u@$v}$n/,6."((xxxx"/x&.&0%-u8/P}<-=.=0/$x526.(((xxxx,,|,2,8+-{+3{3-33495$XTRAP I/O]gbI5YgA# Q} CHYBA:IYAAlg M@Pi' ' ''l'98@,8,' Ap' TRAP',2gAPR}@@)M@ ,a'' ' '' B6-g'. "6g96-f$6-@. AU'%6-@S}6-6-% AU|------------------------}O }98i,8f,2} B! P6-<}!!6-?:C:,:g,>:@d%@h,Z} -g@h(h>:f, d}<6U}-?:A6D:IOMAC.LIBd>D:SYSADR.M65n>D:MACRO.M65x HXԂ POI׌ PRؖ C%e}BLڛ NZܠX; !ZACNAM ANazev souboru: A#KAM ANa adresu ( hexa>21ff): ASLUS A1.volna adresa: A%f}CB ABlok c.: AIOER AI/O err n.A BUF ZACMOVA =CBLBPUT =NAM=INPUT =BUFOPEN %q})EYgtVbv3i B&DOS SYSB*AMAGRAF COMBFAPROX TBABZSCALE TBAB hHCEPSON COMBruKRTEK21 BASBrELSCHED STBB WSCALE BASB`SCALE LSTBcXLOAD M65BuCISLOV COMBwSINCLAIRBINBjREGRESE TBAB'SPACETWOACTBSPACE ACTB4MORRA BASB>DTRIAL ACTB!GETPSHOPSTBBSOUHRNPSSTBBXY4150 CAPBjCHEMIE2 BAS===BUFIDAL"'HX,BPUT =IOER= 6QHX@ HOJ CROUT CLOSE ^!ZAChDALBPUT =KAM=r HEXI%r}VENBGET =BUF=GKONX; LDA BUF%> P@HX7#HXHVEN #HXHVENbKONdBPUT =SLUS=l%s} HEXOv CLOSE :X;X; CROUQ> !EOUTCHX;IHEXOQHX;;Vystup HEX HOQHXHOHEXOUT %t}EI HEXI%>HIHEXIN $"h  \` |}Lfɘ|ɐ}ɐB|}Lf|Lf*|ə}ə}|Lf|}X|X)v}Lb䐐 BDEHI VL -CISLOVANI- (c) Sci-fi Defor 1990~ə}ə}|Lf|}X|X(SP3Pީ`ߩܩݠޑ``f <`` H D 93542 G 5 -x}} BƩ2m 4 3m 5 9 G 5L >L< 4Ӎ`601Ԍl .~ .-y} װ DL(6E/7 /223/ &/1E/12435ũ1hԅ` " 0J )-z}008``ʅΥ˅ϩ̩ B1DĝEJHK ̅ȱ̅   0 LG    L3-{}      L[$L0 ɛ  L[ B L H  BHIhL -|}8 )`ͥΥ`hhL~ !"#$%&'()*+,-./01-}}23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\[^_$abcdefghijklmno-~}pqrstuvwxyz[|]-c RND INKEY$ PI FN LOC.SCR$ATTR AT TAB VAL-}$ ASC VAL LEN SIN COS TAN ASN ACSATN LN EXP INT SQR SGN ABS PEEK IN USR STR$ CHR$ NOT BIN OR AND -}<=>=<> THEN TO STEP DEF FN CAT FORMMOVE ER.O.#CL.#MERGE VERIFY BEEP CI.C.SE.3,9,FLASH BRIGHT INV.O-}VER OUT L?L."P:"STOP READ D.RES.NEW SE.4,8,CONT DIM .F.G.GOS.I.LO.L.PAUSE N.POKE ? PL.RUN SAVE ?-}IF CLS DR.CLRRET.COPY }Copy ZX Spectrum - ATARI XE/XL (BASIC)c J.Richter 1987 & M.Oskera,S.Pavlicek  -}T B`}O.K.ist ompile =loadLV ʭ ˢh BƢn BƩ   L ` LL LL L-}L L,ns44ZAXYX1Y1DAAY2DATDMENAUTPRIHYPEEXPOLOGAPARAVPVHYVEVLOVPADPRKHYKEXKLOKPAKVYR1}XXYYXGRADMXMYAAPOPIABITATISYMIYMATPTHTETLTPVYNGTISPOK;@@@1}@@@ .= ?AHBZB1}lB~BBBBVCCDEYG /I!K"L#D1}$%&'()*+,Q-./01231}45N6789U:W;<=>{V?V@VAWB:W1}CiWDERfF] **REGRESNI ANALYZA**M +@@)A @;AMAR1}@}-@@+(@REGRESNI=-@@L(@A^-@@ }(@KORELACNI1} ANALYZA(nn(f STATISTICKA METODA PRO VYBER VHODNE FUNKCNI ZAVISLOSTI DVOU PROMENNYCH. STISKNI 2 F1}:B2y,@@P<]F, +`,POCET PROMENNYCH: N=P449,9,9,9,9@,;@,1}9,Z(HODNOTY PROMENNYCH :d-@nL A(X()=);(Y()=L 1}x 68,-68,-V ) L(.JSOU OCEKAVANY POUZE KLADNE HODNOTY PROMENNYCHV AB"8(1}$PROMENNA X NESMI MIT NULOVOU HODNOTUB A ] + (KONTROLA DAT :6-6-@1}-$@%@M( X()=8,(-@#?(:Y()=8,M6-%@y"+%@,$@1}--@@o(=KONTROLA,EVENT.OPRAVA DAT.PO UKONCENI RETURNy A@  A` 6-%1}@6- &` AY-@@V(OH-@R68,-8,68,-K:8,,\ f(P6-J:,6-J:,(68@,-pQzO1}-@68,-K:8,,68,-8, P68@,-QO-@!68,-K:8,,!68,1}-K:8,, P6-J:,68@,-QO?6-6-'6-36-?6-1}-@6-%8,6-%8,$8,6-%8,6-%8,$8,$6-%8,$8,. 8Q A%6-+$&$1},'+$&$,36-+&$,'Q6-+$%$&$','+&$',BQL]VP`=6-8@,6-%$16-+&8@,,$1}=6-@j8@,!8,At-@@)~C 6-%6-$$%6-$+%$&,36-@%%C6-AU1}&&!! )!A`A ,%%/%$AU&&$+%$+%,&, \-@@)1}C 6-%6-$$%6-$+&&$,36-@%%C6-@&%!! )!A`A` ,%%/%$@1}&%$+&&$+%,, \] P=6-8@,6-%'16-+&8@,,$=6-@8@,!1}8,A(-@@)2C 6-%6-$$%6-$+%'&,36-@%%C6-AU&&<!! )!A`1}ApF ,P%%/%$AU&&$+%'+%,&,Z d\n-@@)xC 6-%6-$$%6-$+&&1}',36-@%%C6-@&%!! )!A`A@ ,%%/%$@&%$+&&'+%,, 1}\]P=6-8@,6-$#16-+&8@,,$=6-@8@,!8,Ap-@@)1}C 6-%6-$$%6-$+$#&,36-@%%C6-AU&&!! )!A`AP ,%%/%$1}AU&&$+$#+%,&, \"-@@),C 6-%6-$$%6-$+&$#,36-@%%C6-@1}&%6!! )!A`A @ ,J%%/%$@&%$+&$#+%,,T ^\h]rP|@6-8@1},6-%$K:,46-+&8@,,$@6-@8@,!8,AP-@@)F 6-%6-$$(1}6-$+%$K:,&,66-@%%F6-AU&&!! )!A`A0 ,&&/%$AU&&$+%$K:%,&1}, \-@@)F 6-%6-$$(6-$+&&$K:,,66-@%%F6-@&%!! )1}!A`A ,&&/%$@&%$+&&$K:%,, \]&P0=6-8@,6-$#16-1}+&8@,,$=6-@:8@,!8,A0D-@@)NC 6-%6-$$%6-$+$#&,36-@%1}%C6-AU&&X!! )!A`Ab ,l%%/%$AU&&$+$+%,#&,v \-@1}@)C 6-%6-$$%6-$+&$#,36-@%%C6-@&%!! )!A`A ,1}%%/%$@&%$+&$+%,#, \]AR@$$6-P:B$%?P,'B$$6-P:B1}$%?P,'B$$6-P:B$%?P,'B//A `A pA A A! +!( Y=A+B*X 1} A= B=+ A!+!( Y=A+B/X A= B=+ A! +!( Y=A*B^X A= B=+ A!*.$( Y=A+B*1}LOG(X) A= B=. A!4!!( Y=A*X^B A= B=>B")"@8( INDEX DETERMINACE NEURCENB A1}!0H!!(INDEX DETERMINACE: I2=R**(" ENU ABULKA TISK ATA\ 6.Y4A!@f1AR1}'-@@"1 A p 4M\z 4T\4DA" 4G\-@!8,";1}!68,- \QO; +@@)A @;A!6-8@,!61}-8@,-@ 8, 6-8, 8,!6-8,   !!6-Ap'+8,&8@,, '&"1}6-AP' A#P$ 6-AP'+&,. 9,@@'/@AY9/AAY8 ,@@'1}/@@9,@AUK/@AU],@%AYo/@%AV,AAY/AAV1}B /Y@@Y/YAAIXL 8@,!8,A$V ',@#AU'/@'AU` ',@%1}AS'/@%AWj -@t 36-$+8,&8@,,36-$+8,&8@,,~ ,@#%AU& 1}/@'%AU& ,@%%AS& /@%%AW&   Q ',@#@'/@'@1} ',@%@'/@%@ -@ 36-$+8,&8@,,36-$+8@,&8,, ,@#%@1}% /@'%@% ,@%%@% /@%%@%   Q ]( ' +'0@1}2 > A&>&ZADEJ MEZNI HODNOTY X1,X2,KROK H < )`)(TABULKA HODNOT REGRESNI FUNKCEF ( 1}((XY(P jZ ]d -n (%$x   \ ] - (%'   \1} ] - ($#   \ ] - (%$K:,   \" ], -6 (1}$#@  J \T ]^ 1'( ENU ABULKA ATA1 A!@h ]r //A)@A)A0 A0`A11}| -@ :68,-%$8,:68,-P:B$8,%?P,'B   A10 -@ :681},-%'8,:68,-P:B$8,%?P,'B   A10 -@ :68,-$#8,:68,-P:B$81},%?P,'B   A10 -@ =68,-%$K:8,,=68,-P:B$8,%?P,'B  1} A10 -@& :68,-$8,#:68,-P:B$8,%?P,'B0  : O#@@1}P:.(@9(@D(@O(@D @*(@ REGRESNI FUNKCE5(@@(@N -"(@1}ZADANE PROMENNE :-(@X -@b !8,";!68,-l  v  @A2 6-P:'1}@%?P, (@XYXY DD(@3--------------------- --------------------- -@1}&@ ''(@8,8,8%,8%,   ,a@!,(@8,8, ##(@8,1}8,8,8, A3@ (@XY &&(@--------------------- -@ (@8,1}8,   !!-@@&'@ (@  * //A3A3A4A4A4 4 6(@1}.(@ REGRESE PRIMKOU2P6\> 9(@1(@ REGRESE HYPERBOLOU5P9\H <(@4(@1} REGRESE EXPONENCIALOU8P<\R D(@<(@ REGRESE LOGARITMICKOU KRIVKOU@PD\\ 8(@0(@1} REGRESE PARABOLOU4P8\f ]p  @6z //A4`A5 A5PA5pA6 R"*@1}H(@REGRESNI FUNKCE : Y =  * XR A6@ J"*"@@(@REGRESNI FUNKCE : Y = X1}J A6@ B"8(@REGRESNI FUNKCE : Y = B A6@ R*"@H(@REGRESNI F1}UNKCE : Y =  + XR A6@ Z*!P(@REGRESNI FUNKCE : Y =  +  * XZ A6@1} >4(@REGRESNI FUNKCE : Y =  * X> A6@ H">(@REGRESNI FUNKCE : Y =  / XH 1}A6@ P!F(@REGRESNI FUNKCE : Y =  +  / XP A6@ >4(@REGRESNI FUNKCE : Y1} =  / X> A6@ F"@<(@REGRESNI FUNKCE : Y = ^XF A6@ B8(@REGRESNI FUNKC1}E : Y =  * ^XB A6@ W"*@M(@REGRESNI FUNKCE : Y =  * LOG(X)W A6@ 1}P"*"@F(@REGRESNI FUNKCE : Y = LOG(X)P A6@U!K(@REGRESNI FUNKCE : 1} Y =  +  * LOG(X)U A6@C9(@REGRESNI FUNKCE : Y =  * LOG(X)C A6@C"9(@1}REGRESNI FUNKCE : Y = X^C A6@$55(@REGRESNI FUNKCE : Y =  * X^.V")"@1}$(@L(@ INDEX DETERMINACE NEURCENV A6P86(@6(@INDEX DETERMINACE : I = B:6-$1}A10'A :6-P:A$%?P,'AL:6-$@cP'AX:6-P:A$%?P,'AVG(@G(@1}MERITKA : MX =  mm MY =  mm`-@@&j(@t ~?(@4(@1}PROMENNA Y PO REGRESI :?(@ @A8(@XYXYDD(@3-------------------1}-- ----------------------@&@''(@8,8,8%,8%, ,a@!1},(@8,8,##(@8,8,8,8,` A!0(@XY&&(@-------------1}---------@(@8,8,  @` A!0(O2 #A9`<-A6A1}yF"P Z d**6-?:AD<Aw<@P<@,nQx0,0,0,0,0,0,0,0169,0,141,0,6,165,88,131}3 203,165,89,133,204,104,104104,141,107,6,104,104,133209,104,104,10,10,10,10 133,205,170,169,241,157,681} 3,169,6,157,69,3,169,8,15774,3,169,3,157,66,3,32,86 228,169,27,32,213,6,169,5732,213,6,169,27,32,213,61}169,65,32,213,6,169,1,32 213,6,24,169,64,101,209,32 213,6,32,197,6,162,0,160,0134,206,169,255,177,2031}157,1,6,24,152,105,40,168232,224,7,208,239,162,0134,208,30,1,6,38,208,232"224,7,208,246,32,215,6,231}0,206,165,206,201,8,2086231,230,203,208,2,230,204@230,207,165,207,201,40J 208,194,24,169,240,101,203T133,21}03,144,2,230,204,169^155,32,213,6,238,0,6,173h0,6,201,27,208,132r166,205,169,12,157,66,3|76,86,228,165,201}9,133,207240,9,169,0,32,213,6,198 207,208,247,96,133,208,166205,169,0,157,72,3,157,733,169,11,157,66,31},165,20832,86,228,173,255,2,208251,96,80,58,155 D:REGRESE.*5,169,0,157,72,3,157,733,169,11,157,66,30O;ŠҠ DEFINE PLAYER1="1", PLAYER2="2"BYTE X,X2,Y,Y2,A,A2,OLDA,OLDA2,LEVELBYTE WINCARD W5}IN1,WIN2CARD I,I2,SPEEDBYTE COL2=709,HCOL2=53271,hcol4=53274CARD POINTER SCREEN=88BYTE ARRAY FARBE(0)=708PROC NOP() RET5}URNPROC WAIT(CARD VAL) CARD IV FOR IV=0 TO VAL DO NOP() ODRETURNproc make_sound() sound(0,200,14,10) sound(1,201,5}14,10) sound(2,202,14,10) sound(3,203,14,10) wait(30000) poke ($D208,1)returnPROC OP(BYTE VAL) I=1600 I2=1560 DO I5}==-40 I2==+40 SETBLOCK(SCREEN^+I,40,VAL) SETBLOCK(SCREEN^+I2,40,VAL) WAIT(800) UNTIL I<=0 ODRETURN; EXPLOSION ROUTIN5}ESBYTE FUNC CH_X(BYTE CEX) IF CEX<1 OR CEX>200 THEN CEX=1 FI IF CEX>158 THEN CEX=158 FIRETURN (CEX)BYTE FUNC CH_Y(BYTE5} CEY) IF CEY<1 OR CEY>200 THEN CEY=1 FI IF CEY>78 THEN CEY=78 FIRETURN (CEY)PROC EXPLODE(BYTE EX,EY,COLVAL)BYTE EXC,EXN5},EYN,SA EXC=0COLOR=COLVALDO EXN=CH_X(EX-EXC) PLOT(EXN,EY) EXN=CH_X(EX-EXC) EYN=CH_Y(EY-EXC) PLOT(EXN,EYN) EYN=CH_Y(EY5}-EXC) PLOT(EX,EYN) EXN=CH_X(EX+EXC) EYN=CH_Y(EY-EXC) PLOT(EXN,EYN) EXN=CH_X(EX+EXC) PLOT(EXN,EY) EXN=CH_X(EX+EXC) EYN=CH_5}Y(EY+EXC) PLOT(EXN,EYN) EYN=CH_Y(EY+EXC) PLOT(EX,EYN) EXN=CH_X(EX-EXC) EYN=CH_Y(EY+EXC) PLOT(EXN,EYN) EXC==+1 COL2==-1 5}SA=RAND(0) SOUND(0,SA,0,10) SA=RAND(0) SOUND(1,SA,2,EXC) WAIT(700)UNTIL EXC=8OD SNDRST()RETURNPROC GET_STICK2() A2=ST5}ICK(1) IF A2=15 OR A2=6 OR A2=5 OR A2=9 OR A2=10 THEN A2=OLDA2 FI IF A2=14 THEN IF OLDA2=13 THEN A2=13 ELSE Y2=CH5}_Y(Y2-1) FI FI IF A2=13 THEN IF OLDA2=14 THEN A2=14 IF Y2>0 THEN Y2==-1 FI ELSE Y2=CH_Y(Y2+1) FI FI IF A2=11 TH5}EN IF OLDA2=7 THEN A2=7 ELSE X2=CH_X(X2-1) FI FI IF A2=7 THEN IF OLDA2=11 THEN A2=11 IF X2>0 THEN X2==-1 FI ELS5}E X2=CH_X(X2+1) FI FIOLDA2=A2RETURNPROC GET_STICK() A=STICK(0) IF A=15 OR A=6 OR A=5 OR A=9 OR A=10 THEN A=OLDA FI5} IF A=14 THEN IF OLDA=13 THEN A=13 ELSE Y=CH_Y(Y-1) FI FI IF A=13 THEN IF OLDA=14 THEN A=14 IF Y>0 THEN Y==-1 5}FI ELSE Y=CH_Y(Y+1) FI FI IF A=11 THEN IF OLDA=7 THEN A=7 ELSE X=CH_X(X-1) FI FI IF A=7 THEN IF OLDA=11 THEN6} A=11 IF X>0 THEN X==-1 FI ELSE X=CH_X(X+1) FI FIOLDA=ARETURNPROC INIT() GRAPHICS(7+16) POKE(752,1) MAKE_SOUND() O6}P(170) WAIT(3000) OP(0) SNDRST() COLOR=2 PLOT (0,0) DRAWTO(159,0) DRAWTO(159,79) DRAWTO(0,79) DRAWTO(0,0) X=10 Y=10 OLD6}A=7 X2=70 Y2=10 OLDA2=11 RETURNPROC PL_EXPLODE(BYTE WHICH_PLAYER)BYTE Z IF WHICH_PLAYER=0 THEN FOR Z=1 TO 10 D6}O EXPLODE(X,Y,2) EXPLODE(X,Y,0) OD ELSE FOR Z=1 TO 10 DO EXPLODE(X2,Y2,2) EXPLODE(X2,Y2,0)6} OD FIRETURNPROC PL_()DO COLOR=1 GET_STICK() A=LOCATE(X,Y) IF A<>0 THEN PL_EXPLODE(0) WIN=PLAYER2 EXIT FI6} PLOT(X,Y) COLOR=3 GET_STICK2() A=LOCATE(X2,Y2) IF A<>0 THEN PL_EXPLODE(1) WIN=PLAYER1 EXIT FI PLOT(X2,Y2) WAIT(SPEED6}) COL2==+1 ODRETURNPROC TITLE()BYTE ZAP,P1=53272,HELP GRAPHICS(18) FARBE(0)=$8A FARBE(1)=$28 FARBE(3)=$C8PRINTDE(6,"6} action user group")PRINTDE(6," : ")PRINTDE(6," ")PRINTDE(6," space zapper two") PRINTD6}E(6," ")PRINTDE(6," COPYRIGHT 1987 ")PRINTDE(6," ")PRINTDE(6," : ")PRI6 }NTDE(6," Ӡ ")PRINTDE(6,"--------------------")PRINTD(6," LEVEL : ") PRINTBDE(6,LEVEL)DOIF PEEK(53279)=6 }5 THENLEVEL==+1 IF LEVEL=5 THEN LEVEL=1 FIPOSITION(13,11) PRINTBDE(6,LEVEL)FOR ZAP=0 TO 254 DOSOUND(0,ZAP,14,15) SOUND(1,6 }ZAP,14,15)SOUND(2,ZAP,14,15) SOUND(3,ZAP,14,15)WAIT(50) ODSNDRST()FIHELP=RAND(0)POKE(53271,HELP)P1=PEEK(53272)+1 POKE(6 }53272,P1)UNTIL PEEK(53279)=6 OR STRIG(0)=0 ODIF LEVEL=1 THEN SPEED=2000 FIIF LEVEL=2 THEN SPEED=1000 FIIF LEVEL=3 THEN SP6 }EED=400 FIIF LEVEL=4 THEN SPEED=100 FIRETURNPROC FIN_PIC() IF WIN=1 THEN WIN1==+1 FI IF WIN=2 THEN WIN2==+1 FI GRAPHI6}CS(17) farbe(0)=0 farbe(1)=0 POSITION(3,3) PRINTD(6,"-------------") POSITION(3,4) PRINTD(6,"PLAYER ") PRINTBD(6,WIN) 6}PRINTDE(6," WINS") POSITION(3,5) PRINTD(6,"-------------") POSITION(2,8) PRINTDE(6,"TOTAL WINS:") POSITION(2,10) PRINTD(6}6,"PLAYER 1 :") PRINTCD(6,WIN1) POSITION(2,12) PRINTD(6,"PLAYER 2 :") PRINTCD(6,WIN2) POSITION(2,15) PRINTDE(6,"select 6}to clear...") POSITION(2,18) PRINTDE(6," press start") printde(6," or button")do hcol4=rand(0) if peek(5326}79)=5 then win1=0 win2=0 POSITION(2,10) PRINTD(6,"PLAYER 1 :") PRINTCD(6,WIN1) PRINTD(6," ") POSITION(2,16}2) PRINTD(6,"PLAYER 2 :") PRINTCD(6,WIN2) PRINTD(6," ") fiuntil peek(53279)=6 or strig(0)=0 or strig(1)=0odWAIT(506}00)returnPROC GAMESTART() INIT() PL_()RETURNPROC MAIN()LEVEL=1 WIN1=0 WIN2=0DO SNDRST() TITLE() GAMESTART() fi6}n_pic()ODRETURNMESTART() INIT() PL_()RETURNPROC MAIN()LEVEL=1 WIN1=0 WIN2=0DO SNDRST() TITLE() GAMESTART() fi4;ŠқBYTE X,Y,A,OLDA,LEVELCARD I,I2,SCORE,hiscore=[0],SPEEDBYTE COL2=709,HCOL2=53271,hcol4=53274CARD POINTER SCR:}EEN=88BYTE ARRAY FARBE(0)=708PROC NOP() RETURNPROC WAIT(CARD VAL) CARD IV FOR IV=0 TO VAL DO NOP() ODRETURNproc :}make_sound() sound(0,200,14,10) sound(1,201,14,10) sound(2,202,14,10) sound(3,203,14,10) wait(30000) poke ($D208,1)retu:}rnPROC OP(BYTE VAL) I=1600 I2=1560 DO I==-40 I2==+40 SETBLOCK(SCREEN^+I,40,VAL) SETBLOCK(SCREEN^+I2,40,VAL) WAIT(80:}0) UNTIL I<=0 ODRETURN; EXPLOSION ROUTINESBYTE FUNC CH_X(BYTE CEX) IF CEX<1 OR CEX>200 THEN CEX=1 FI IF CEX>158 THE:}N CEX=158 FIRETURN (CEX)BYTE FUNC CH_Y(BYTE CEY) IF CEY<1 OR CEY>200 THEN CEY=1 FI IF CEY>78 THEN CEY=78 FIRETURN (CEY):}PROC EXPLODE(BYTE EX,EY,COLVAL)BYTE EXC,EXN,EYN,SA EXC=0COLOR=COLVALDO EXN=CH_X(EX-EXC) PLOT(EXN,EY) EXN=CH_X(EX-EXC:}) EYN=CH_Y(EY-EXC) PLOT(EXN,EYN) EYN=CH_Y(EY-EXC) PLOT(EX,EYN) EXN=CH_X(EX+EXC) EYN=CH_Y(EY-EXC) PLOT(EXN,EYN) EXN=CH_X(:}EX+EXC) PLOT(EXN,EY) EXN=CH_X(EX+EXC) EYN=CH_Y(EY+EXC) PLOT(EXN,EYN) EYN=CH_Y(EY+EXC) PLOT(EX,EYN) EXN=CH_X(EX-EXC) EYN=C:}H_Y(EY+EXC) PLOT(EXN,EYN) EXC==+1 COL2==-1 SA=RAND(0) SOUND(0,SA,0,10) SA=RAND(0) SOUND(1,SA,2,EXC) WAIT(700)UNTIL EXC=: }8OD SNDRST()RETURNPROC GET_STICK() A=STICK(0) IF A=15 OR A=6 OR A=5 OR A=9 OR A=10 THEN A=OLDA FI IF A=14 THEN :!} IF OLDA=13 THEN A=13 ELSE Y=CH_Y(Y-1) FI FI IF A=13 THEN IF OLDA=14 THEN A=14 IF Y>0 THEN Y==-1 FI ELSE Y=CH_Y:"}(Y+1) FI FI IF A=11 THEN IF OLDA=7 THEN A=7 ELSE X=CH_X(X-1) FI FI IF A=7 THEN IF OLDA=11 THEN A=11 IF X>0 THEN :#}X==-1 FI ELSE X=CH_X(X+1) FI FIOLDA=ARETURNPROC INIT() GRAPHICS(7) POKE(752,1) POKE (710,0) MAKE_SOUND() OP(170) WA:$}IT(3000) OP(0) SNDRST() COLOR=2 PLOT (0,0) DRAWTO(159,0) DRAWTO(159,79) DRAWTO(0,79) DRAWTO(0,0) X=10 Y=10 OLDA=7 SCORE:%}=0RETURNPROC SCORE_OUT()PRINT("}Your Score >") PRINTCE(SCORE)RETURNPROC PL_EXPLODE()BYTE Z FOR Z=1 TO 10 DO :&}EXPLODE(X,Y,2) EXPLODE(X,Y,0) ODRETURNPROC PL_()DO COLOR=1 GET_STICK() A=LOCATE(X,Y) IF A<>0 THEN PL_EXPLOD:'}E() EXIT FI PLOT(X,Y) WAIT(SPEED) COL2==+1 SCORE==+1 SCORE_OUT()ODRETURNPROC TITLE()BYTE ZAP,P1=53272,HELP GRAPHICS:(}(18) FARBE(0)=$8A FARBE(1)=$28 FARBE(3)=$C8PRINTDE(6," action user group")PRINTDE(6," : ")PRINTDE(6," :)} ")PRINTDE(6," space zapper ") PRINTDE(6," ")PRINTDE(6," COPYRIGHT 1987 ")PRINTDE(6,":*} ")PRINTDE(6," : ")PRINTDE(6," Ӡ ")PRINTDE(6,"--------------------")PRINTD:+}(6," LEVEL : ") PRINTBDE(6,LEVEL)DOIF PEEK(53279)=5 THENLEVEL==+1 IF LEVEL=5 THEN LEVEL=1 FIPOSITION(13,11) PRINTBDE(:,}6,LEVEL)FOR ZAP=0 TO 254 DOSOUND(0,ZAP,14,15) SOUND(1,ZAP,14,15)SOUND(2,ZAP,14,15) SOUND(3,ZAP,14,15)WAIT(50) ODSNDRST():-}FIHELP=RAND(0)POKE(53271,HELP)P1=PEEK(53272)+1 POKE(53272,P1)UNTIL PEEK(53279)=6 OR STRIG(0)=0 ODIF LEVEL=1 THEN SPEED=:.}2000 FIIF LEVEL=2 THEN SPEED=1000 FIIF LEVEL=3 THEN SPEED=400 FIIF LEVEL=4 THEN SPEED=100 FIRETURNPROC fin_pic() GRAPH:/}ICS(17) farbe(0)=0 farbe(1)=0 POSITION(2,4) PRINTD(6,"YOUR SCORE :") PRINTCDE(6,SCORE) POSITION(2,8) IF SCORE>HISCORE THE:0}N HISCORE=SCORE PRINTDE(6,"YOU REACHED A NEW") PRINTDE(6," HISCORE") FI POSITION(2,14) PRINTD(6,"HISCORE :"):1} PRINTCDE(6,HISCORE) POSITION(2,18) PRINTDE(6," press start") printde(6," or button")do hcol4=rand(0) until pe:2}ek(53279)=6 or strig(0)=0od WAIT(5000)returnPROC GAMESTART() INIT() PL_()RETURNPROC MAIN()LEVEL=1 HISCORE=0DO T:3}ITLE() GAMESTART() fin_pic()ODRETURNeturnPROC GAMESTART() INIT() PL_()RETURNPROC MAIN()LEVEL=1 HISCORE=0DO T8*Z m DP >5} %%%%| |%%| HRA MORRA >6} |%%%%| |%%| L. Zvolensky, Bratislava |%%>7} +'0@@@A0@@@c6-F:A`,%AV$F:Aa,>8}w%@@%@@@@:-@@:  hra morra BY .(` 9 >9}.Hra je pre dvoch hracov, a hra sa takto:` "Hraci ukazu naraz jeden, alebo dva2ll cprsty na ruke, a zaroven hadaj>:}u, kolko prstov ukazal super. Ak obaja uhadnu, ake cislo hadal super,<g tak potom kolog Lkonci nerozhodne.Ak sa obidv>;}aja mylia, tak potom tiez kolo konci nerozhodne.FWT LAk vyhra jeden z hracov, ziska tolko bodov, kolko je sucet ukazanych><} prstovW PB- %Stlac Ԡ pre zacatie hry........?AR@B Z F:B2y,@@d }in-@>=}@:  hra morra BY .LARV AY n Stav je :nQ  & Kolko uka>>}zete prstov : 3@Q@*@AxK Kolko hadate prstov : -@K@*@>?}AL (6-P:H:,$@,%@LA@APA`Ap%6-@6-@% A%>@}6-@6-@% A%6-@6-@% A6-@6-@H$ Ja ukazujem :  >A}prst(y).E Ja hadam :  prst(y).H G"*")*= #Vysledok tohoto kola je nerozhodny.G A ? ">B}6-%%%%?  Vyhral ste : %%% body (ov).> "0( Vyhral som : %%% body(ov).>6-%%%%< < >C}Hrali sme (kol) : %@ | STAV - :X  (X JStlac niektoru klavesu pre hranie dal-sieho kola, alebo p?}; TRIAL BY FIRE; BY GREG KNAUSS; COPYRIGHT 1988 BY ANALOG COMPUTING;; CHECKSUM DATA;[DC ED BE 0C B3 A5 3B 0E ; 0C BE}57 BC E8 86 72 82 30 ; A8 95 4A 7E 83 10 CB 94 ; C6 BA 44 71 EA A2 10 4F ; 5F F8 73 68 2D 96 B8 B4 ; 42 58 CA 9A D4 65 98BF} ]CARD I,DL,SC,CH,CH2,DRB,K,SCORE, HSCORE,SCRBYTE S,J,PM,BABY,BABES,HIT,MISS,ADV, LVL,UD,BSAV,NXTL,KEY,BRNCARD BG}ARRAY X(5),Y(5),B(5),Q(5),UP(5)PROC CHSET()[0 0 0 0 0 0 0 00 0 1 85 2 2 2 50 0 0 0 0 0 0 00 85 86 85 162 170 160 1700 BH}64 128 80 0 128 128 1280 1 2 5 0 2 2 00 85 149 85 138 170 170 1700 0 64 85 128 128 128 805 5 5 1 0 1 1 364 84 85 85 0 85BI} 85 2550 0 111 104 0 64 64 1920 0 255 0 0 0 0 00 0 249 41 0 1 1 35 21 85 84 1 85 85 25580 80 64 0 64 64 64 1921 5 5 21BJ} 21 84 80 25285 85 69 1 1 0 0 064 64 64 80 80 80 80 2521 1 5 5 21 20 20 25285 85 65 0 0 0 0 064 80 80 84 84 20 20 2522BK}55 255 255 255 255 255 255 255255 195 195 195 195 195 195 255255 190 190 234 254 254 254 255255 235 254 254 251 239 234 25BL}5254 255 255 63 63 15 3 0191 255 255 252 252 240 192 03 15 15 15 15 63 63 6363 63 63 63 255 255 255 255253 213 213 253 2BM}53 253 255 255127 87 87 127 127 127 255 255255 255 255 255 255 255 253 253255 255 255 255 255 255 127 127]PROC FIRE()[2BN}55 255 255 255 255 253 245 2470 0 0 1 1 68 64 0117 85 119 215 213 85 85 85255 215 211 215 215 199 215 25585 85 87 87 93 8BO}5 87 12785 119 95 95 127 255 255 255255 255 247 245 245 213 215 87223 253 125 117 245 85 85 8581 81 69 84 84 80 64 016 0BP} 1 17 16 17 85 85245 197 213 215 215 215 87 9585 85 85 85 85 85 85 85]PROC FIRE2()[255 255 255 255 253 253 245 2130 0 0BQ} 0 0 4 16 093 125 117 85 93 93 85 85255 211 215 199 215 199 199 25587 87 93 85 87 119 95 127117 119 127 255 255 255 255 2BR}55255 255 255 253 247 213 215 85221 125 245 245 213 85 85 9385 84 68 16 16 64 0 00 1 1 64 68 68 69 85245 213 213 213 211BS} 211 87 9585 85 85 85 85 85 85 85]PROC BABIES()[28 56 60 153 255 60 189 25523 39 62 156 189 246 96 56216 144 246 255 25BT}5 245 144 21656 96 246 189 156 63 39 19255 189 60 255 153 60 28 5628 6 111 189 57 124 228 23227 9 175 255 255 111 9 2720BU}0 228 252 57 189 111 6 2828 56 60 153 255 60 189 2550 0 7 6 31 62 62 590 0 7 6 31 62 60 1180 0 7 6 31 62 60 2360 0 7 6 3BV}1 62 60 118]PROC DLIST()[112 112 70 0 0 7 130 16 68 0 04 4 4 4 4 4 4 4 4 4 4 4 132 4 4 4 1324 65 DLIST]PROC DLI()[72 BW}238 0 5 173 0 5 141 10212 201 1 208 17 169 0 141 9 212 16915 141 24 208 169 44 141 23 208 10464 201 2 208 7 169 86 141 22 BX}208 10464 169 0 141 0 5 169 0 141 26 208104 64]PROC PLRVBI()[162 3 189 244 6 240 89 56 221 240 6240 83 141 254 6 106 14BY}1 255 6 142253 6 24 169 0 109 253 6 24 109 2526 133 204 133 206 189 240 6 133 203173 254 6 133 205 189 248 6 170 23246 25BZ}5 6 144 16 168 177 203 145 205169 0 145 203 136 202 208 244 76 876 160 0 177 203 145 205 169 0 145203 200 202 208 244 174 B[}253 6 173254 6 157 240 6 189 236 6 240 48 133203 24 138 141 253 6 109 235 6 133204 24 173 253 6 109 252 6 133 206189 240 B\}6 133 205 189 248 6 170 1600 177 203 145 205 200 202 208 248 174 253 6 169 0 157 236 6 202 48 376 2 6 76 98 228 0 0]PROCB]} YPOS()[175 156 131 123 115 107 99 91 82 7470 66 62 58 56 55 54 54 55 54 56 5862 66 70 74 82 91 99 107 115 123 131156 175B^} 180]PROC CLRS()[44 246 72 56 76 15 146 8 146] PROC BURN()BRN=8-BRN POKE(1715,CH/256-BRN)POKE(708,86+BRN/4) RETURNPRB_}OC WAIT()FOR K=1 TO 1000 DO OD RETURNPROC SETUP()GRAPHICS(0) POKE(82,0) POKE(752,1)POKE(559,0)CH=(PEEK(106)-8)*256MOVEB`}BLOCK(CH,CHSET,8*34)MOVEBLOCK(CH+8*34,FIRE,13*8)CH2=(PEEK(106)-16)*256MOVEBLOCK(CH2,CHSET,8*34)MOVEBLOCK(CH2+8*34,FIRE2,1Ba}3*8)DL=PEEKC(88) SC=(PEEK(106)-40)*256POKEC(DLIST+3,DL) POKEC(DLIST+9,SC)POSITION(23,0)PRINT("trial by fire") ZERO(SC,3Bb}072)FOR I=0 TO 2 DO POKEC(88,SC+1024*I)POKE(82,35) POSITION(35,15)PRINT(";5?@5<5=>555555 ")POKE(82,0) POSITION(0,1)PRBc}INTE("") PRINTE("")PRINTE("66") PRINTE(" ")PRINTE("") PRINTE("")PRINTE("66") PRINTE("Bd}66")PRINTE("") PRINTE("KC")PRINTE("LEJ") PRINTE("EL")PRINTE("") PRINTE("")PRINTE("Be}") PRINTE("55")PRINTE("55") PRINTE("55")POKE(82,8+I*9) POSITION(8+I*9,16)PRINTE("!#$ %&'") PRINTE("()*++,-Bf}.")PRINTE("/01 234") OD POKEC(88,DL)MOVEBLOCK(1700,DLI,55)POKE(1715,CH/256)MOVEBLOCK(1536,PLRVBI,160)PM=PEEK(106)-56 DRBg}B=PM*256+1ZERO(DRB+1024,1024) POKE(1788,PM+4)POKE(53277,3) POKE(54279,PM)POKE(1771,PM) SETBLOCK(1784,4,8)SETBLOCK(1772,4,Bh}1) FOR I=0 TO 3 DOMOVEBLOCK(DRB+I*256,BABIES,104) ODMOVEBLOCK(704,CLRS,9)HSCORE=0 POKEC(560,DLIST)POKEC(512,1700) POKE(12Bi}80,0)POKE(54286,192) POKEC(548,PLRVBI)POKE(559,62) RETURNPROC MAIN()SETUP() LVL=1 DOPOKE(1772,1) POSITION(2,1)POKEC(DLBj}IST+9,SC+1024)POKE(53248,128) POKE(1780,180)PRINT(" Copyright 1987 Magnum")PRINT(" Opus ") BRN=0DO FOR I=0 TO 32 Bk}DOJ=PEEK(I+YPOS) POKE(1780,J+13) WAIT() BURN()KEY=PEEK(53279) IF KEY=5 OR STICK(0)<>15 THEN LVL==+1IF LVL>9 THEN LVL=1 Bl}FI POSITION(7,1)PRINT(" Level: ") PRINTB(LVL)PRINT(" ") FIJ=STRIG(0) POKE(77,0)IF KEY=6 OR J=0 THEN EXIT Bm}FI ODUNTIL KEY=6 OR J=0 OD POKE(53248,0)SCORE=0 SCR=0 BSAV=0 MISS=0 ADV=0BRN=0 NXTL=3*LVL BABES=LVL/3+1UD=1-LVL MOD 2 POSBn}ITION(7,1)PRINT(" Get ready... ")FOR I=1 TO 100 DO BURN() WAIT() ODPOSITION(2,1) PRINT("Misses: 0")PRINT(" Bo} Score: 0 Level: ")PRINTB(LVL)DOFOR I=1 TO 4 DO X(I)=0 Y(I)=0 B(I)=0Q(I)=0 UP(I)=1 OD HIT=0DO POKE(77,0) SNDRST() Bp}S=STICK(0)IF S=11 THEN J=0 ELSEIF S=7 THEN J=2 ELSE J=1 FIPOKEC(DLIST+9,SC+J*1024) BURN()IF ADV=1 AND BSAV MOD NXTL=0 THEBq}N LVL==+1 POSITION(36,1) PRINTB(LVL) NXTL=LVL*3 BSAV=0 ADV=2 UD=0 FIIF LVL MOD 2=0 AND ADV=2 THEN UD=1 FIIF LVL MOD 3=0 ABr}ND ADV=2 THEN BABES==+1 ADV=0 FIIF LVL MOD 2=0 THEN ADV=0 FIIF LVL>10 THEN UD=1-LVL MOD 2 BABES=4 FIIF SCR>SCORE THEN SCBs}ORE=SCR POSITION(22,1) PRINTC(SCORE) FIFOR BABY=1 TO BABES DOPOKE(1772+BABY-1,Q(BABY)/4*8+1)POKE(1780+BABY-1,Y(BABY)+8)PBt}OKE(53248+BABY-1,X(BABY))IF B(BABY)=1 THEN X(BABY)==+UP(BABY) Q(BABY)==+1 Y(BABY)=PEEK(YPOS+Q(BABY))IF Y(BABY)>175 AND X(Bu}BABY)=92 AND J<>0 THEN HIT=1 FIIF Y(BABY)>175 AND X(BABY)=127 AND J<>1 THEN HIT=1 FIIF Y(BABY)>175 AND X(BABY)=162 AND JBv}<>2 THEN HIT=1 FIIF Y(BABY)>175 AND HIT=0 THEN Q(BABY)=0 SOUND(0,200,10,10) UP(BABY)=1 IF UD=1 THEN UP(BABY)=RAND(2) FI SBw}CR==+UP(BABY) FIIF X(BABY)>195 THEN X(BABY)=0 Y(BABY)=0 Q(BABY)=0 B(BABY)=0 BSAV==+1 ADV=1 SCR==+LVL FI FIIF RAND(25)<1 Bx}AND B(BABY)=0 AND (Q(1)<5 OR Q(1)>15) AND (Q(2)<5 OR Q(2)>15) THEN IF (Q(3)<5 OR Q(3)>15) AND (Q(4)<5 OR Q(4)>15) THEN X(By}BABY)=67 Q(BABY)=10 B(BABY)=1 S=RAND(4) K=PEEK(CLRS+S) POKE(703+BABY,K) FI FI ODIF LVL<11 THEN WAIT() ELSE FOR K=1 TO 2Bz}000-LVL*100 DO OD FIIF PEEK(764)=33 THEN DO POKE(77,0) SNDRST() UNTIL STRIG(0)=0 OD POKE(764,255) FIUNTIL HIT<>0 ODFORB{} BABY=1 TO BABES DOIF Y(BABY)<176 THEN POKE(53248+BABY-1,0) FIIF Y(BABY)>175 THEN POKE(1780+BABY-1,215) J=BABY FOR I=1 TB|}O 1000 DO OD FI ODMISS==+1 POSITION(10,1) PRINTB(MISS)SOUND(0,200,8,12) FOR I=1 TO 60 DOBURN() WAIT() IF I=3 THEN SNDRST()B}} FIOD BABY=9 FOR I=X(J) TO 255 DO BURN()POKE(1772+J-1,BABY*8+1) BABY==+1IF BABY=12 THEN BABY=9 FIPOKE(53248+J-1,I) WAIT()B~}POKE(764,255) OD IF MISS=3 THEN EXIT FIODIF SCORE>HSCORE THEN HSCORE=SCORE FIPOSITION(1,1) PRINT(" ")PRINT(B}" ")POSITION(1,1) PRINT("Score: ")PRINTC(SCORE) POSITION(13,1)PRINT("High Score: ") PRINTC(HSCOREB})POSITION(30,1) PRINT("Level: ")PRINTB(LVL) DO BURN() WAIT() UNTILSTRIG(0)=0 OD FOR K=1 TO 10000 DO ODPOSITION(1,1) PRINTB}(" ")PRINT(" ")ODWAIT() UNTILSTRIG(0)=0 OD FOR K=1 TO 10000 DO ODPOSITION(1,1) PRINT@80MLACMDHEXSNUASCICMCHSEKUCISOBRVSEDALOBR1KESONAMSOUPRNTSCREEIOCPDUMMMENMENVOLF}BDL%%@8@@A9 % F}@@ @AvA(< <F} E!@"#A$<%%%%| GET PRINT SHOP - PRINT 1029 |F}%%| s moznosti SAVE v gr.8 |%%%%| Boris Letocha junior |%%| HradeF}c Kralove (PD) 1989 |%% Z6-A$@@Z;@7,;A(,;,;,;@F},;@,;Ar, 5 +1(VLOZ DATOVY DISK PRINT SHOP !!!5) kk67@<@,.Phhh hhF} 6^i_i(`_^i(i ww67@<Ar,.\i%ݢ>>>>F}>>>Ѯ BDEIH V`S 6. 67A(,. +67@,.36.>67,.M67@F},.S6.7-@@7"'67,.>:,+ 76-@d2 +@&(}26-@i-F} Ab Aqn- A@&(ERROR *)-%x-@A'@2}7'7<%@,4F}*'-'7 A`)( 7<%@,)6-%@   1 A1 @)!&@AF}/%6-++&@,]@,% Ab/ A6-+&@,a@??6-@:7$@2%@,,%AV$@:7$@2%F}@,,77@:7$@2%@,,*"@A--@:7$@2%@,,A+@%@F}% AP6-%6-c9C:,U:@,!@',5/%@IK/%@%@IY/%@F}_/c)0"@:-,*!@&6-&@0 A0"@:=,* A4&6-%@0 A0"@:+F},*!&6-&@0 A0"@:*,* A1&6-%@0 A0"@:_,*!&6-&@0 F}A0"@:|,* A4&6-%@0 AAUA&&6-U:@,%$@@%'@I-F}@IE9C:7$@%@,,%$@@@I #9U:@,C:,#6-\,'+@%@F}'AY6 APAY@4@9C:,U:@,J#9U:@,C:,#6-@T\-]9F}C:,U:@,)*"@:Z,-%@:S,A4 +0(SAVE GR.8-ZADEJ ZARIZENI:NAZEV4h A@F}@5@@GB@C:,R@d+@%@h\+@%@\XH"@:F}P,+6(TISK-ZADEJ ZARIZENI:NAZEV:D BH\  \"@:N, A"@:U, A\F}6-?:C:,<@:@,>:@d,>N?6-?:A6<<,$6-%A)(- 7(6<?$P$!(TISKARF}NA NENI ZAPOJENA$%R] RU:A`,"C:,\R56.pBp 58C:7@,,U:A`,%@R8A`C:,&RF}#B %$@0R1-@9") A$%- 1\Ukk0,186,46,47,54,53,0,176,50,41,46,52,0,179,33,54,37F},0,174,33,40,14,36,33,44,51,41,0,181,45,41,51,52,14U58,46,47,54,53,0Ujj0,0,0,0,0,0,0,186,46,47,54,53,0,0,0,0,176,50,4F}1,46,52,0,0,0,0,179,33,54,37,0,24,14,39,50,0,0,0,0,0,0YK( 22010 DATA'-@9>(F:U:@,%,,B H(F}~K$D:GETPSHOP.STBhhhhhh h  Sԩ`-@9>(F:U:@,%,,B H(DK0NdMLACMDHEXSNUASCICMCHSEKUCISOBRVSEDALOBR1KESONAMSOUPRNTSCREEIOCPDUMMMENMENVOLJ}BDLSCSCPO%%A6)@8@R@ % J}A(BdAvvAU< <J} !@"#$<%A'&A%'A%##NACITANI OBRAZKU Z PRINT SHOP""J}A PREVOD DO GR.8 D:PICxA.PICBoris Letocha juniorHradec Kralove (PD) 1990""POCET OBRAZKU NA DISKU : Z6J}-A$@@Z;@7,;A(,;,;,;@,;@,;Ar, 5 +1(VLOZ DATOVY DISK PRINT SJ}HOP !!!5)S 6. 67A(,. +67@,.36.>67,.M67@,.S6.+-@@7"'6J}7,.>:,+ 5-@@ ++@%@5#B'-%@6-'!A/%6-++&@,]J}@,% Ab/ A6-+&@,a@??6-@:7$@2%@,,%AV$@:7$@2%@,, APJ}"&&6-U:@,%$@@%'@I-@QE9C:7$@%@,,%$@@@I J} ;6.D:PIC!67@,.=:,;67B:,%@,.A.PIC)X A@@5@@MBJ}@U:@,X@)& 0 (KONEC6-?:C:,<@}n) kreslen` @*dek dal&)ho obr*zku je vzd*len 5 mm od 192 @*dku p@edch*zej)c)ho ! - Ozna'uje konec p@ihr*v*n) dal&)cO?}h obr*zk+ a po stisknut) libovoln[ kl*vesy n*sleduje kresba v&ech zvolen`ch obr*zk+. Po jej)m ukon'en) lze kresbu zvolen`ch oO@}br*zk+ libovoln% opakovat prost@ednictv)m "Je&t% jednou A/N"  OA} OBALKAXY  Program je ur'en pro psan) adres odes)latele a adres*ta na OB}ob*lku A5 velk*$ a ob*lku podlouhlou. K rychlej&)mu zad*v*n) slou() p@edvolba kl*vesy. Zad*v*n) je v programu um)st%no odOC} @*dku 3500. Lze p@i@adit libovolnou kl*vesu, pozor na volbu mal`ch a velk`ch p)smen.P@)klad z programu:OPTION  s = Sle'naOD}OPTION  h = Hradec Kr*lov[OPTION  5 = 50000 Program m* n*sleduj)c) z*kladn) volbu:1. Zad*n) adres*ta TA? - TitOE}ul JUDr., Sle'na, V*(en` p*n atd.$ JPA? - Jm[no a p@)jmen) na ob*lku se p)&e pro zv`razn%n) 3x$ UA? - Ulice a ')sloOF} MA? - M)sto ps*no 2x$ PA? - PS zad*v* se bez mezery, 50000$ V p@)pad%, (e zvolen[mu adres*tovi budete ps*t v)OG}cekr*t je mo(no jeho adresu ulo(it do pam%ti.2. Zad*n) odes)latele adresa je ps*na &ikmo> JPO? - Titul, jm[no a p@)jmenOH}) UO? - Ulice a ')slo MO? - PS a m)sto Mo(no ulo(it do pam%ti.3. Vybr*n) z pam%ti adres*ta Pohyb pomoc) &iOI}pek nahodu, dol+ zobrazov*no je JPA a PA.4. Vybr*n) z pam%ti odes)latele viz 3.$5. Tisk volba velikosti ob*lky$6. SAOJ}VE v`znam pouze pro majitele disketov`ch jednotek$ Odemkne program "OBALKAXY.STB" p@ep)&e ho a op%t uzamkne. Prov*d) se vOK} p@)pad% ulo(en) do pam%ti nov`ch adres*t+ 'i odes)latel+.  OL} TIDINAXY  Program je ur'en pouze pro majitele disketov`ch jednotek. ProOM}v*d) kresbu tiskopisu ob*lky na disketu s jej)m ')slem, n*zvem, po'tem program+ P:$, po'tem voln`ch sektor+ FREE:$ a v`piseON}m n*zv+ program+ do dvou nebo t@) sloupc+ podle jejich po'tu max. 64 program+, ne'te diskety pod Sparta Dosem$. Ovl*d*nOO}) dle pokyn+ dan`ch programem je n*sleduj)c):Vlo( stranu A Diskety, v p@)pad%, (e je pr*zdn* nebo pod Sparta Dosem je mo(n[ OP}odeslat Esc, jinak Return.Vlo( stranu B Diskety, shodn[ s A.Zadej ')slo diskety, max. 3 znaky.Zadej dne&n) datum, max. 10 OQ}znak+.Zadej n*zev strany A, max. 30 znak+, shodn% strana B.Volba majitele: "P"r*zdn[ "V"lastn) "K"lubTato volba zajist) OR}z*pis zvolen[ adresy na chlopn% p@elepu ob*lky na disketu nebo nechat pr*zdn[. Zm%na "V"lastn) se prov*d) na programov[m @*dkOS}u 306,307.  VYCANAXY OT} Tento program je ur'en pro v`pis text+ zpracovan`ch programem APEK a to ve dvou velikostech p)smen a to 3 sOU}tandart 70 znak+ na @*dku, ale p@i 59 @*dc)ch  Hlavi'ka  Pati'ka$ nebo 2 zmen&en) 91 znak+ na @*dek, p@i 79 @*dc)ch  HlavOV}i'ka  Pati'ka$. Dal&) mo(nosti viz popis obsluhy. Ovl*d*n) je prov*d%no pomoc) tzv. "oken", kdy nastaven[ parametry se zobraOW}zuj) v doln) polovin% monitoru. Program zaji&uje n*sleduj)c) mo(nosti p@edvolby nebo i zm%ny @)d)c)ch znak+ pro form*toOX}v*n) v`pisu hlavi'ky apod. v zpracov*van[m textu:Vstupn) za@)zen): D1,T,C,B,D2,D8N*zev souboru : nastaven TEXT.CAPZarovnOY}*v*n) A/N : A - zarovn*v* i vpravoHlavi'ka : max. 75 ti&t%n`ch znak+ u velikosti 3, pro psan) s diaOZ}kritick`mi znam)nky se v(dy objev) n*pov%daPati'ka : shodn[ s hlavi'kouOd strany : pro p@)pad, (e nestihnete O[}napsat text nar*z nebo v p@)pad% chybyRychlost : RYZ - rychlost zvednut[ho pis*tka 35,30,40,45$ O\} RYP - rychlost polo(en[ho pis*tka 85,80,90,95$Ignorovat "n" : ignoruje nastaven[ form*tov*n) d[lky str*nkO]}yVelikost p)sma : volba 3 nebo 2Esc z hl. menu : Konec A/NEsc z podmenu : n*vrat do hlavn)ho menu Po nahr*n) texO^}tu se objev) p@)kaz Vlo( pap)r a tla')tko s ')slem 136 - nahr*n cel` soubor nebo 0 - soubor se bude p@ihr*vat nen) cel` v paO_}m%ti$ Pozn*mka - pokud ve vypisovan[m textu je Hlavi'ka um)st%na na prvn)m @*dku, tak se vyp)&e i na prvn) str*nku, v jiO`}n[m p@)pad% se vypisuje a( na stranu druhou.  VYDANAXYOa}  Program je ur'en k v`pisu dat zpracovan`ch jin`mi programy nap@. Synfile nOb}ebo listingu libovoln`ch jazyk+ tedy v&eho co m* form*t textu$. Z*rov% umo(uje volbu velikosti p)sma:2 - 105 znak+, 88 @*Oc}dk+, s mo(nost) o@)znut) nebo psan) na druh` @*dek3 - 79 znak+, 66 @*dk+, - " - V p@)pad%, (e p@i volbOd}% n*zvu nahr*van[ho programu zad*v*n) shodn% s HC1$ je zad*no za@)zen) E: lze program vyu()t i jako n*hra(ku psac)ho stroje.Oe} *dek je naps*n po odesl*n) kl*vesou RETURN. P@ed odesl*n)m mo(no prov*d%t i opravy a zm%ny na v`pisov[m @*dku. Of}  VYMANAXY  ProgramOg} je p+vodn% ur'en pro v`pis listingu z programu MAC/65, mo(no v&ak pou()t i pro listing jazyk+ apod. Prov*d) v`pis do dvOh}ou sloupc+ po 50 znac)ch nap@ed prvn) sloupec, pak druh`$. Umo(uje i volbu od strany '., s t)m, (e vynechan* '*st se vypisuOi}je na obrazovku.znac)ch nap@ed prvn) sloupec, pak druh`$. Umo(uje i volbu od strany '., s t)m, (e vynechan* '*st se vypisuLKLBBXYAXXPRBCPPRSTYPSZKKEDEDSAPEDQWFRAUCBXAG@A@Sk}`@Ac"O @6 @ BS' OmSl}@@@ !"#Sm}@$%B)&$$$$|àȠŠ͠ɠŠ|$$|Sn}|$$|| by Libor KLUBAL ||$$|| ||$$|| fy P L Soft c 1988 ||$$||So} ||$$|| $$ E +(}((Sp}30@@@EA@<<;@y,;@0,;@ ,;@ ,;@ ,))(! Sq}  %%(  %%( ''( Sr} %%( %%( PP(H Ss} (MM(E   MMSt}(E | Libor KLUBAL | | |MM(E | c P L Soft 1988 | Su} ''(  !("k( (&(Prosim cekej (cca 1min)0 BpO(StiSv}skni mezernik aB@@Hk B#Z +'0@@@9A@?(}B(E(H(ZSw}AVA$$LL(D1.....Graficka tabulka 2.....Zakladni charakteristika%SS(K3.....Kovy a nekovy Sx} 4.....Rust nekterych vlastnosti prvku&__(W5.....Novy tvar periodicke soustavy prvku Sy} 6.....Konec($(( Vase volba:$@-77AATA A@ApB%di]+@Sz}%@@90@@@KA@]AVAn-A@x,S{}/A( -A(@,/A  3-@@1S|}#,@C//A3 3-@1@c#,@I//A3 U @,@1/@AS}}(C,@U/@A(K,@'/A@9,@K/A@-@S~}dA@,A@/Ar -A@Ar@,@d/A  S}-@@,A@/Aa  %6-@6-@ %#B" ,S},"4! A00 4-6-%@&6-6@0 A1$$6-?:A6podobnych vS}lastnosti.Svepozorovani zhrnul v periodickem zakoneg``(X Vlastnosti prvku jsou periodic- kou funkci jejich protS}onoveho cisla.hG(G(^ ,@AT6-?:A6,@06-?:A66-%@f APՠ<<6.2 slovkov morfmy systematickho nzvoslov prvk6,@S}A66-?:A6,@PA46. slice morfm zkratka> A;,@PAS}16. 0 nil n; A;,@PA$16. 1 un u; A;,@PA116.S} 2 bi b; A;,@PA816. 3 tri t; A;,@PAF16. 4 S} qurd q; A;,@PAS16. 5 pent p; A;,@PA`16. 6 heS}x h; A;,@PAg16. 7 sept s; A;,@PAt16. 8 okt S} o; A;,@PA16. 9 enn e; Ah ,APAT6-?:A6>109,244,2,133,207,162,8,160,0,177,206,36,214,16,3,32,147u==6,32,191,6,S}36,214,80,3,32,191,6,230,206,202,208,230,230u>>212,36,214,16,6,36,213,48,4,16,4,230,212,230,205,230,211u<<198,210,208,1S}47,96,133,215,169,0,133,216,160,3,185,183u??6,36,215,240,7,185,187,6,5,216,133,216,136,16,239,165,216v==36,213,48,4,10,S}10,10,10,96,1,4,16,32,1,2,4,8,72,164,205 vCC17,203,145,203,24,165,203,105,40,133,203,144,2,230,204,104,96yyB:,S}@B@"y-@B:,'y%@:7<,,@ % B5,y6-@:7<,,1y67<,.>:%@2,6y ;yS}$@y_#@:7@<@,,@=6-@:7@<@,,_67@<@,.>:&@2,CyB:,"@$Ey_#@:S}7@<@,, @=6-@:7@<@,,_67@<@,.>:%@2,Jy$|yyAdAUy_%S}2A@@9-@@= _2y F:Ad,@3ByS}AdAU}}_-@@92@P@@= _2 }$S}~K+@%@/0@@@AA@K@~+@%@@90@@S}@KA@ ]A@o,/A/AA/AiW6.MS}Chemie 2 Rozlouen  P L Soft '88-89iAVAv/',S}@9/A@CU,@@v6-?:A66." CzechosS}lovakiaH AZAVA$0W,AA0E6-?:A6