,ML  X c0C)HCCH Mhhݩh `eCDiCD`  RyHP   * 1H0芢@) Y0.Ș`i#(PM%\ \b Pgi 0  % @ / ՠ`d   0DDԝLȀN@  )?HI Y0`HIJH) * J j * hJJJ )HJ h i      YS S0 i`큅쀄H J3xj2h 1 |9 ӭ45(420 *(0241өX.`  R *i)Lvw  ~*PE 5 LN(G E  r s k rsrL ( E LO(0d( L iE0O +)$IC  H S8 q p h   j 8no CDLQ CFl M  LO Ri)Llk2'")*F$F$F$F$F$ 5 )ШF/Șl]kpqС,LQ/A! Ti)Zlk@ ܬ/i)(")")k$F$F$F 5$/L /lF@jj(LNkle$$%8(k()` R 8 ELO Ri)^>jf | NrC s  ) vw5g   enfo Glvw LQ@iLm>j FL ~Jjjjii p qEhjlrs`LQ:$ȱ$@+[_#{ 8  Խut! ai 8   E I   ] C H h    ˰ 8  N   Lm E  ,  [ `LQ ,/ 8 ~/  Ơ? ѩ/  [ / Lj0?MoLn FjMqLp NklLOLQnLoMlNLO R"(+ըHH`Q R!!  % !   / .   FȑF! /GF \H"+0+* ! F t LQnm: J~nTF1F  *n+)5! n (, n)1JJJn(n*o I ,0  ci a oF? @ , 8,0 ʩ0H Eh   i  D ]D mmFLQvtu`*&!*@h ] 0 ^0` c 0l$$%()()%*&J%H,@hH hH@,h $% 8i8$(%)0hhH ]h`() c 0H c 0 h`hhh&JJ ]( ll  LQ0  /qnoHH 9 9 H H  I9  9  Nd EH  Q8 o n  FnoL HII/ Ih8`h`Lnon`no`u F E VEhLO/luF l0BF/lɜɛ׽hE N  b VFL FREE SECTORS C H) *Fh ):FȽ F FC IH' 0 d  i:Fȩ/F.l`CD/08HDICIHȰ/F`ȱ$>.+.i ȱ$:刄H !A \ Hȱ$*?ȝ 2. ? [_{ ,0-:) 0$:>WI  IТ,LQH  0hLd ~ t u`C ?( 0(C.` E  R =! .ti S0N EE D XC )0')AY  )ע ? 0E088FG \on  (HhLcL3 iJ i Lqp 0=rspnqopqlk`jZj0  j FL`HFhȑFȽlFi0 h FFLFpvqwgneofLF pq7  G0i 0 FJJh1FqȱFpȱFk`B!08`hEE D 8. =D}tui( TʩL`b!)    cȌaȌd b`aabH8 hdaHcd8 cH hHH  \h hc` =Hh I8ih( t  ( t(!` L\CJfCJfCJfCDfC` a  HII  INdh  `h  `n)8jHniPoijIjFIjFIjh` a I 38  8H0 I  ' H LQ8j Y  8j NdY  &I &I &IHeH.pIiq  `!.莿 2Jjj }.m Ȉ!m FG` ɩLQ z  e Hi04 \ Ȍ  8 i h !`I0 `C Y8.`DOS SYS I  ` ~ݩ.C/`ba.m۩mѤC9 `C L] H  ,- '0 l , BLVDE`D1:AUTORUN.SYS8hhJ ȱHȱIȱBȱDȱEeeHHLV)  1*  ,,p-  0 I &  '0   Lw)l, 0  I&LD1:MEM.SAVE:D1:DUP.SYSJ)1CD1:DOS.SYS n  * \*`آ R'S )ɀ@  U))% BError loading MEM.SAV or memory!  0* b*c*d*e* R Hd*JSDd*J-=e* 0c*ʈд =}MYDOS 4.50T - Copyright 1988,˛Disks 1D= 2S= 8R D: = D1: ~= =1-8.Dir of D1:-D8: *. Dir of D:A. Disk Directory K. Save MemoryB. Run Cartridge L. Load MemoryC. Copy File(s) M. Run at AddressD. Delete File(s) N. Load MEM.SAVE. Rename File(s) O. Change Config.F. Lock File(s) P. Set DensityG. Unlock File(s) Q. Make DirectoryH. Write DOS Files R. Pick DirectoryI. Initialize Disk S. Set RAMdisk #J. Duplicate Disk V. Set Verify Flag  ?莼( 0  =Select Item ( for menu):@  =ɛL)1L,*L,:W@ ,,L=No such item!L*, -L*, BNeed new file name! BNo drive or directories allowed in new name!Lock Unlock Delete Lock which file?â-#Unlock which file?ɢ-$((H @ AQ/wDelete what file?Ѣ-!((H @ ANJ =Answer 'Y' or 'N'h `B L?;(( ~=( ~= =? =Y ?Lj.H @ AhR ?R)L*,LM/L-Lz-File to rename, new name? @ A(9', ȱ:>0{ ПFull directory name?Z"L.Directory to be used as 'D:'? @ A(5)L.(I: ȱޝL*, BInvalid directory!L?( (0Li-File source, destination? '( @C۩2ڭ82ܭC B9'0 @(ߍeލd(DЍ( ? 9' A rBȱޙ':>Ȍ(C0J* .B :'ȱ/.* #,ɛȝ:' ߰ A L?,(0L*, 'ut(:'3?&' .'Ƚ:'?&'  .ى'Q?''(#( ~= =-->' ~=Q =YR_o (J(  0?B݌''BK)`''utz0( >(L0L*,L?nDisk to FORMAT: YA B(UTލ1 =(Press for Enhanced Dns)Type to Format Drive :: =AIYZNj[R VL?L*,D1:DUP.SYSDrive to write DOS files to? YAH1:*K)2J) Z wB hpJ) 2<2UTC٩1ة۩کL;Source, Destination (Sectors)? YA)((9'( SA)((((( @(0% =Insert both disks, type = A( A((/( B(( BDrives not compatible!J(j(9'Hi''h(ɛy BInvalid options! @-&& @)׍&&(&&&۩ک&&&&8* <4&&&& <48*8(ܭ(ݥ2C!, BNot enough memory! ک&&`(Mh  & =L?&i &&&&mm   =  &((&թԥԍ(Ս(((( ( ((C2((ՠԍ((,(0"( (( ="m(m( & &("L*,  ( AL4,(, =Insert DESTINATION disk, press =Nͼ J) b( 0K) ?((ԭ(խ( ( (((L4Drive, new density: YA9'ɛ BDrive unchanged.(ު#90٨Ȍ(SD  ABL)xԌҭHӭ@ @ ʎӆ@ӭ@@ :  $ӹ @hөԥX` Aˠ =RAM disk present? =NL#8 =xlon or E type RAMdisk? =Aό $  L   M A, A6: ' =No extra memory available!L#8L7 & & & =Use default config for 0)ȩ ~= =K? =NL7 =Size(K)? ? @FjFjFjFj: =Page sequence? ? @o* =RAM disk drive no? =% 09) `8 -8**H***) 9 Ȋ)h9 @@ʊ H'h(#''/'(ɛ ? @(@: 3 ʽ' L7 =Duplicated sequence number!L7 =Wrong number of entries!L7K&큅쀄 =Verify WRITEs? ; =Number of File Buffers? ? @  6 Lw),R( ';L*,Drive number or : =ɛLC99L60Ȍ( =Remove drive? =Y =Is drive configurable? =YЂ =H'igh capacity drive? =Yy =Is drive double sided? =Y ; =Tracks/side? ? @#0M P( ; =Step rate? =4/ ; ';L*, =Drive size (in sectors)? ? @H(h *;L*,RAM disk drive no? 8L*,Verify WRITEs? ;L*,( =WNPy`(`(  LABSAVE:filename,start,end(,init(,run)) @TUH @Cp` 2< @؆8օڊ BInvalid START-END range!۩ @  @ hԄՠAμȌZ wB04*  0$)ڍXۍY֍T׍U,0LBLB #CL?ֆ׌`Load MEM.SAV from what file? 0#L*,L?Load from what file?) @TU&̩Z wB &0&-&а&𨭼INIZ'RV0II BNO CARTRIDGE!Ԇ*  )L?Run from what address? ?ɛ @ BAddress must be 1-4 hex digits! BHILV n=`hh =HH` =0{a Hɛ n= n=h` n=L*, = = pHH =hh`K: p `(((+( i ɀ((L?(`(B'(0!HH''^>I^>(`^>DH(`(HI`(o5 ~= =( B( >@A (J wB0x((HHIIDDEE B ?(CɈK(٢A ~= =( BL>(B^>((ڤ, ܝHݝI VL_>L?(" B !B J)  B(L& R XY( ?&:0H&((& ( .( & ( .(ʩ(`ލD&ߍEBIʎH( V0`ԩ ؠ@ȱ@ȱ-)@ BError -- 128&`$8f 3AԄձG/ $<68i/(Ԧ`H&եԦ&&eԅheԅԊe(iL*@&&&&ԅL*@B ? 3A?*(ɛ:./2SX(0ȱ/.ɛ(ލ9'ި.0#:Ȱ :ފ :ȱ: : CAD CAޥ`(eޅީe߅`(` @L\A @TUȪ: BFile name not allowed!: )  i( =0+L TUD BNot a disk file!(0` =Insert SOURCE disk, press / =,(pӮ(A(O  1B AB1B ` % 1(L/ b(de BJKO L?O` B((*(((`ȱޙ((:>Ȍ(`D:`OS.SYS,DOS.SYShh =L*,  VLJ0 C C,pLiLF#Խ٩Յ׆  LB` % 1(L/ b(de BJKO L?O` B((*(((`ȱޙ((:>Ȍ(`D:`OS.SYS,DOS.SYShh =L*,  VLJ<)6^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<11111{!!\]_\ED!EOHI B V`}   2TURBO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ӥL]""$$ (p%J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5RŢt3d.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$LENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ$4 ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(0000000--**2*(22(2222222 V`hh@,lHH$HHHHHHӍl"H$HH5l $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( ӑ) ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eeee6Ӧee褢%ƚƜ`88夅奅8夕奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 *څۅ܅݅ޅ߄ԠF70y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈0ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0ǠF0y"ڥy"8٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠ"("!""" "L**""""""&О"("!""" "L**9""""""&О"("!""" "L**""""""&О"("!""" "L**""""""&О:"("!""" "L**""""""&Оd"("!""" "L**""""""&ОL-6"e""e""e""e";"e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօׅ؅`` ` <` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I))83Ԥԥդե֤=֥פץؤإ٤L,K6"ХL--L--L--E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8م٘؅ؘׅטօ֘ՅL-ؤm>\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥؅ץم؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱ሱ`ԅՅօׅ؅م`ԍՍ?֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ׽ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - M 1. &Je0F 2 . /L(8@`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ) 2f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$)Ԧ61718191:1;1 (Ať)8@0$Յ)e)e -F . / , . &1 1. #/ &F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G  1.Ӱ6 #/ &.ӽߕ ,ԅԥ BB1 (`8``0?i? . . / , #/ &ԍՍ֍׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥eՊi؊؅٥ׅإօץՅֆե1ԥ'JffffCJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&&&&*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3ԥ}3`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ`D 0@P`'Nu pX@(#d,X L(  兢0襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ⅊0 eee拰 L f5дƨE 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30  5Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` O#`,#5  6`]5 6FDE 68DHEIHI V0$ 6Sл B V,# 6` $#LllBHI V0HH V0Ԩh``{a$%Ȏ$$xө$Ѝ$ ` `@X a Ӆʩ ʎD G _ɠ %` ɩHH `өL: g% D:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0Y|ڝDa۝EօܥׅݥܝHݝI V0+ӠڑڑH0`l `  䅠 _ɠԐe拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?L˜ KԪȱLRHHצ R, hhLRHHHHHH /I0ȑȑޠhhhhhh`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)i桰` )``L(兢ħ #$J x Hҩ h$襚ҥ ԝ` UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Lĩ ½J*K+ $LąLĩ …L~ …`H Ġh é`,HK hH Ġ  ĭ 8}} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ LHé éLH#h ĩ`H hKJ L+ , H hHHL s hKhJ  Lĩ# qL ĩ ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ Ċ Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ M L] Ln LŠIHEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,NH ĥDEԝH՝Ih L©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إOٰو LǠFfؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưP=ŗ78֪א& eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]& 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BQJe؅eم0&ffff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHRO]  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0 `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eSeŶɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +T` ʐL3LBˢԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐ=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!U`ƪ@! ǩjҤ /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠVԄ h L} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` nW)8@ -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 n 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JXjH@MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh & Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`Y!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝HeםI Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤZ ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠&[&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 e\`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`樱I ]屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ, , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!乡!㹁!^a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅiȅȩȩ Lfإ  4  \ +] ¥򄟄_   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 &!$P`* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ 襡L 9:枢0 O L :H9Hhh tLHH`hhLCL馩`aʆLC枢0ְşLC`A枢Ɣ!L!L!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰0 S0:$b$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % +HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ` 넬$ + c  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFOҗNEXԑGOTϑGO TϑGOSU½TRAАdBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREAĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- DPOKœMOVœ-MOVŪ*ƐREPEAԑUNeTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTIME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚGOTGOSUTSTETHEΣ<<>ުNfOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABINPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5&6(+8,<Xgk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/01 2!3"4Ɛ"-"."-؂ٿ֐ːhĐאŐbj+9,+;,ʐͭͭ@ABC\=>[<+:е<,&%rvnnxc<\-78s_XV+@D&0d*"i'2GJh NRl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡  䅭 bɠ04Ů .ŭ%)j e拰 ĩ L+Ư0 Le`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :7 8 Lbԩ- L 8 8,kI ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" ¥ 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ L<>EO ƹƹ0`H f5lh`I&` =? FQA` L񄳱ȱI 䦐Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅH h hhhh ȱIELZ Lm`ȱI Hȱȱȱȱȱ , h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥0 ` Lk 䦪`! 䧰Ln A@L `I&`L ©؅ L.0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #ԤLQ #LLei  `LoԑȥՑȥ֑ȥבȥؑȥّ``䈥剰#)iiLɠL4űI&`048ץğ=ȱȄ `L  L0e拠0ȱpȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ`,,L L PQ 8q,L ȱI ѝߠȱ`ԩ,L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g 0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMrEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOTRUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?s>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2t sŠ 5  <)  < L L + e +e`e`&&&&&&eee` &&eee&*`` 兙 䦪!0 4 ۄܱ **mu ݤܱEۅڦڱ= ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYvߥ䥛 9 FfЎᰈ `  M 8*` 兙 󥐅i祣L{ &L  0 & L ȑ & L; # w)ȱ L )ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ```=`]``` E߭H Ġ} hL±&Lvx`[  ȱ R]  L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`)ȱJJJ```=`]``` E߭H Ġ} hL±&Lv1 REM ******************************2 REM * HRATKY S PMG OD LIEBL-SOFT *3 REM ******************************10 RAMTOP=10620 PMBASE=5427930 SDMCTL=55940 GRACTL=5327750 HPSP0=5324860 PCOLR0=70470 SIZEP0=5325680 POKE 710,0:? "$)"90 ? "OBRAZEK C.z1,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 310130 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=256*A{180 POKE SDMCTL,62190 POKE GRACTL,3200 FOR I=MYPMBASE+1024 TO MYPMBASE+1280210 POKE I,0220 NEXT I230 POKE PCOLR0,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,254,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,124,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,36,36,1023}30 DATA 139,139,202,202,171,171,154,154,139,139340 ? "$)":POKE 710,0350 S=201:POKE 764,255:POSITION 1,1:? "ZMACKNI 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 2,202,171,171,154,154,139,139340 ? "$)":POKE 710,0350 S=201:POKE 764,255:POSITION 1,1:? "ZMACKNI 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 POKE5 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,80: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+Y28 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 3050 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,15,-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,5,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,-1,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,-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,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,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,26,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,21,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,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,15,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,27,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,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,54,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,331038 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 24,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,48,49,-2DATA 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 24,25,27,34,40,42,47,48,53,68k10 GRAPHICS 2+1620 ? #6;" LIEBL-SOFT"30 ? #6;" UVADI ,"40 ? #6;" SVOJI PRVNI"50 ? #6;" CESKOU "60 ? #6;" AMATERSKOU "70 ? #6;" HRU "80 PAUSE 500:GRAPHICS 290 ? #6;" *** G "100 ? #6;" * * I "110 ? #6;" * . . * G "120 ? #6;" * + * A "130 ? #6;" * -_- * H "140 ? #6;" * * L "150 ? #6;" *** A "160 ? #6;" V "170 ? #6;"GIGAHLAVA!!! A "180 PAUSE 500:? "STISKNETE NEJAKOU KLAVESU A MUZETE HRAT...":POKE 764,255190 IF PEEK(764)<>255 THEN GOTO 210200 GOTO 190210 GRAPHICS 2+16:POSITION 7,5:? #6;"1.KOLO":PAUSE 300220 REM ******************************230 REM * PETR LIEBL,KRCINOVA 36,C.B.*240 REM * 37011 TEL.038/44962 *250 REM * UVADI HRU "GIGAHLAVA" *260 REM * VOLNE PRELOZENO OD ZDENKA *270 REM * TRAVNICKA,Z PROGRAMOVACIHO *280 REM * JAZYKU PASCAL DO TURBOBASIC*290 REM * INSTRUKCE+1.KOLO ZACINA... *300 REM ******************************310 OPEN #1,12,0,"E:":OPEN #2,4,0,"K:"320 POKE 710,0330 ? "$)":? "PRAVE DOSTAVATE DO RUKOU UPRAVENOU VERZI HRY GIGAHLAVA.JE TO MOJE PRVNI HRA,TAKZE MOZNA NIC MOC."340 ? "JE ROZDELENA NA NEKOLIK KOL,KTERA SE SAMA SPUSTI."350 ? "OVLADANI JE: *-VPRAVO;+-VLEVO;NEKDY:-=NAHORU A =-TLACITKO. PRI HRANI BUDETE INFORMOVANI O RUZNYCH VECECH."360 ? "TYTO INSTRUKCE SI PRECTETE A RIDTE SE JIMI.SBOHEM.":? :? "STISKNETE KLAVESU A HRA ZACNE....":POKE 764,255370 IF PEEK(764)<>255 THEN GOTO 390380 GOTO 370390 GRAPHICS 8:POKE 710,0:COLOR 1:? "TOTO JE 1.KOLO,VE KTEREM SE BUDETE POHYBOVAT."400 PAUSE 100:? "MUSITE DOJIT DO PRAVEHO ROHU.":PAUSE 100410 REM VYKRESLENI 1.KOLA420 PLOT 1,150:DRAWTO 319,150430 PLOT 300,150:DRAWTO 300,130:DRAWTO 319,130:PLOT 1,150:DRAWTO 20,140:DRAWTO 1,130440 X=139:Y=139:? "$)MUZETE HRAT...POHYB: + DOLEVA,* DOPRAVA":GOTO 470450 COLOR 1:CIRCLE X,Y,10:RETURN 460 COLOR 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 ? "$)VIC DOLEVA UZ NEMUZETE!"510 IF X>305 THEN ? "$)MUZETE HRAT DRUHE KOLO":GOTO 540520 IF X<30 THEN ? "$)JA VAS VAROVAL! UMIRATE! ZKUSTE HRAT ZNOVU...!":PAUSE 200:GOTO 390530 GOTO 470540 PAUSE 200550 PAUSE 300:? "STISKNETE KLAVESU A MUZETE HRAT DALSI KOLO...":POKE 764,255560 IF PEEK(764)<>255 THEN 580570 GOTO 560580 GRAPHICS 2+16:POSITION 7,5:? #6;"2.KOLO":PAUSE 300590 REM ******************************600 REM * PETR LIEBL,KRCINOVA 36,C.B.*610 REM * 37011 TEL.038/44962 *620 REM * UVADI HRU "GIGAHLAVA" *630 REM * VOLNE PRELOZENO OD ZDENKA *640 REM * TRAVNICKA,Z PROGRAMOVACIHO *650 REM * JAZYKU PASCAL DO TURBOBASIC*660 REM * 2.KOLO ZACINA... *670 REM ******************************690 POKE 710,0700 GRAPHICS 8:POKE 710,0:COLOR 1:? "TOTO JE 2.KOLO,VE KTEREM SE BUDETE POHYBOVAT."710 PAUSE 100:? "MUSITE DOJIT DO PRAVEHO ROHU.":PAUSE 200720 REM VYKRESLENI 2.KOLA730 PLOT 1,150:DRAWTO 160,150:PLOT 200,150:DRAWTO 319,150740 PLOT 300,150:DRAWTO 300,130:DRAWTO 319,130:PLOT 1,150:DRAWTO 20,140:DRAWTO 1,130750 X=100:Y=139760 PLOT 120,100:DRAWTO 240,100770 ? "$)MUZETE HRAT...POHYB: + DOLEVA,* DOPRAVA,- NAHORU":GOTO 800780 COLOR 1:CIRCLE X,Y,10:RETURN 790 COLOR 0:CIRCLE X,Y,10:RETURN 800 GOSUB 780:GET #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"840 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 BYSTE SE ZABILI! RADIM VAM DOBRE,NECHODTE TAM!"860 IF X<125 AND X>40 THEN GOTO 770870 IF X<41 THEN ? "$)VIC DOLEVA UZ NEMUZETE!"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>305 THEN ? "$)MUZETE HRAT TRETI KOLO":GOTO 950910 IF X>160 AND X<200 AND Y=139 THEN ? "$)NEPOSLOUCHATE! UZ JSTE SE ZASE ZABIL 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 VAROVAL! UMIRATE! ZKUSTE HRAT ZNOVU...!":PAUSE 200:GOTO 700940 GOTO 800950 PAUSE 200960 PAUSE 300:? "STISKNETE KLAVESU A MUZETE HRAT DALSI KOLO...":POKE 764,255970 IF PEEK(764)<>255 THEN 990980 GOTO 970990 GRAPHICS 2+16:POSITION 7,5:? #6;"3.KOLO":PAUSE 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: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 GOTO 10701090 IF J=790 THEN RETURN 1100 J=790:Y=89:GOTO 10701110 DIM A$(5)1120 REM ******************************1130 REM * PETR LIEBL,KRCINOVA 36,C.B.*1140 REM * 37011 TEL.038/44962 *1150 REM * UVADI HRU "GIGAHLAVA" *1160 REM * VOLNE PRELOZENO OD ZDENKA *1170 REM * TRAVNICKA,Z PROGRAMOVACIHO *1180 REM * JAZYKU PASCAL DO TURBOBASIC*1190 REM * 3.KOLO ZACINA... *1200 REM ******************************1220 POKE 710,0:POKE 752,11230 GRAPHICS 8:POKE 710,0:COLOR 1:? "TOTO JE 3.KOLO,VE KTEREM SE BUDETE POHYBOVAT."1240 PAUSE 100:? "MUSITE DOJIT DO PRAVEHO ROHU.":PAUSE 2001250 REM VYKRESLENI 3.KOLA1260 PLOT 1,150:DRAWTO 319,1501270 PLOT 300,150:DRAWTO 300,130:DRAWTO 319,130:PLOT 1,150:DRAWTO 20,140:DRAWTO 1,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 DRAWTO 210,130:DRAWTO 230,150:PLOT 140,140:DRAWTO 145,140:PLOT 140,141:DRAWTO 145,141:PLOT 140,142:DRAWTO 145,1421300 PLOT 230,150:DRAWTO 230,1001310 X=100:Y=1391320 ? "$)MUZETE HRAT...POHYB: + DOLEVA,* DOPRAVA,- NAHORU,= TLACITKO":GOTO 13501330 COLOR 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+51370 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 HRAT ZNOVU...":PAUSE 200:GOTO 12301400 IF X>305 THEN ? "$)MUZETE HRAT CTVRTE KOLO":GOTO 15201410 IF X>250 AND Y=14 THEN GOSUB 17301420 IF X>129 AND X<149 AND Y=139 THEN ? "$)MUZETE STOUPAT...STISKNETE TLACITKO...VICE VPRAVO UZ NESMITE!!"1430 IF X>129 AND 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 X<201 AND Y=39 AND K=45 THEN GOSUB 16301460 IF X>250 AND Y=14 THEN GOSUB 17301470 IF X>139 AND X<200 AND Y=139 THEN X=1391480 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 X<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 2001530 PAUSE 300:? "STISKNETE KLAVESU A MUZETE HRAT DALSI KOLO...":POKE 764,2551540 IF PEEK(764)<>255 THEN 15601550 GOTO 15401560 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 GOTO 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=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:GOTO 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:Y=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=1340:Y=14:GOTO 17401780 R=01790 REM ******************************1800 REM * PETR LIEBL,KRCINOVA 36,C.B.*1810 REM * 37011 TEL.038/44962 *1820 REM * UVADI HRU "GIGAHLAVA" *1830 REM * VOLNE PRELOZENO OD ZDENKA *1840 REM * TRAVNICKA,Z PROGRAMOVACIHO *1850 REM * JAZYKU PASCAL DO TURBOBASIC*1860 REM * 4.KOLO ZACINA... *1870 REM * SVA KOLA SI SEM SAMOZREJME *1880 REM * MUZETE DODAVAT SAMI... *1890 REM ******************************1910 POKE 710,01920 R=0:GRAPHICS 8:POKE 710,0:COLOR 1:? "TOTO JE 4.KOLO,VE KTEREM SE BUDETE POHYBOVAT":PAUSE 1001930 ? "MUSITE DOJIT DO PRAVEHO ROHU.":PAUSE 1001940 REM VYKRESLENI 4.KOLA1950 PLOT 1,150:DRAWTO 160,150:PLOT 200,150:DRAWTO 319,1501960 PLOT 300,150:DRAWTO 300,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 130,80:PLOT 140,50:DRAWTO 170,50:DRAWTO 245,1251980 DRAWTO 270,1251990 X=100:Y=139:? "$)MUZETE HRAT...POHYB: + DOLEVA,* DOPRA-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:GOSUB 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 ? "$)JA VAS VAROVAL! UMIRATE! ZKUSTE HRAT ZNOVU...!":PAUSE 200:GOTO 19202070 IF X>305 THEN ? "$)DALSI KOLO UZ NENI...":GOTO 22402080 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 SI 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 DO 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 24002130 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 IF 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 ? "$)A JEDEME DOLU PO SKLUZAVCE...":GOSUB 25002170 IF X>269 AND Y=114 THEN ? "$)TAK PADAME,PADAME...":GOSUB 25502180 IF X>114 AND 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 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 X=1412230 GOTO 20202240 PAUSE 2002250 PAUSE 300:? "STISKNETE KLAVESU A HRA SKONCI...":POKE 764,2552260 IF PEEK(764)<>255 THEN 22802270 GOTO 22602280 GRAPHICS 2+16:POSITION 7,3:? #6;"KONEC":PAUSE 100:POSITION 5,5:? #6;"GIGAHLAVA":POSITION 5,7:? #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 J=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=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 2390 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 1: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 GOTO 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 GOSUB 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:GOTO 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:Y=G:GOTO 2560Y=Y+1:IF X>244 AND Y=114 THEN GOTO 25302520 GOTO 25102530 IF J=2010 THEN F=0:G=0: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 20IF ST=13 THEN Y=Y+1100 IF ST=9 THEN X=X-1:Y=Y+1110 IF1 REM *****************************2 REM *** 'KOLOTOC' PRO 2 HRACE ***3 REM ******* OD LIEBL-SOFT *******4 REM *****************************5 ------------------------------10 DIM A$(150),B$(150),C$(150),D$(100),Z$(100)20 H=3630 POKE 710,0:? "$)":? " INSTRUKCE"40 ? "TATO HRA JE PODOBNA T.V. HRE 'KOLOTOC' -NEKDO ZADA TAJENKU A NAPOVEDU, A DVAHRACI SE JI SNAZI PO ";50 ? "PISMENECH NEBO CELOU UHADNOUT. DAVAJI A UBIRAJI SE ZATO NAHODNE BODY.STISKNETE KLAVESU'ESC'":POKE 764,25560 IF PEEK(764)=255 THEN GOTO 6070 ? :? :? :? :? :? :? :? "AT NEHRAJICI ZADA TAJENKU(NEJVIC 35 PISMEN):";:INPUT A$:? "...A NAPOVEDU:";:INPUT Z$80 ? "$)":A=LEN(A$):POSITION 1,2:FOR Z=1 TO A:? "-";:NEXT Z90 POSITION 1,1:? " "100 POSITION 1,3:? " "110 POSITION 1,5:? "NAPOVEDA:";Z$120 POKE 752,1:REPEAT :Y=Y+1:D$=A$(Y,Y)130 IF D$=" " THEN POSITION Y,2:? " ":C$(Y,Y)=A$(Y,Y)140 UNTIL Y=A:D$=""150 ------------------------------160 POKE 752,1:FOR U=1 TO 10:B=INT((RND(0)*9)+1)*10:PAUSE 20170 POSITION 5,7:? "HRAJE SE O:";B;" BODU!":NEXT U:POKE 752,0180 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:? 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 S12=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 270260 POSITION 2,9:? "HRAC C.1 MA CELKEM:";S1;" BODU.":RETURN 270 GOTO 160280 ------------------------------290 POKE 752,1:FOR U=1 TO 10:B=INT((RND(0)*9)+1)*10:PAUSE 20300 POSITION 5,7:? "HRAJE SE O:";B;" BODU!":NEXT U:POKE 752,0310 POSITION 2,21:? "ZADEJ PISMENO(TAJENKU) HRACI C.2:";:INPUT B$:Y=0320 REPEAT :Y=Y+1:D$=A$(Y,Y):IF B$=D$ THEN POSITION Y,2:? B$;:S22=S22+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:POSITION 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 POSITION 2,12:? "HRAC C.2 MA CELKEM:";S2;" BODU.":RETURN 400 GOTO 290410 ------------------------------420 IF S12=2000 THEN S1=S1+S12:S12=0430 IF S21=2000 THEN S2=S2+S21:S21=0440 ? "$)"450 IF S1>S2 THEN ? "HRAC C.1 ZATIM VYHRAVA S ";S1;" BODY!":? :? :? :? A$460 IF S2>S1 THEN ? "HRAC C.2 ZATIM VYHRAVA S ";S2;" BODY!":? :? :? :? A$470 ? :? :? "CHCETE HRAT:1=ZNOVU,2=DALE,3=SKONCIT";: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:? "NA SHLEDANOU NEKDY PRISTE...":END 500 ------------------------------510 AS=ASC(B$)+128:REPEAT :G=G+1:POSITION G,18:? " ";CHR$(AS):PAUSE 5: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 "NA SHLEDANOU NEKDY PRISTE...":END 500 ------------------------------510 AS=ASC(B$)+128:REPEAT :G=G+1:POSITION G,18:? " ";CHR$(AS):PAUSE 5:UNTIL G=H:H=H-2:G=0520 IF Q1=R10 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*I190 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 1220 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.01*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)380 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 360HEN A=95:B=81:COLOR 1340 IF K=3 THEN 1 REM *** MORSEOVKA ***2 REM * BY LIEBL-SOFT *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:IF 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 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$;130 IF E$="-" THEN X=50:GOSUB 190140 IF E$="." THEN X=25:GOSUB 190150 IF E$="/" THEN X=40:GOSUB 200160 PAUSE 10170 NEXT I180 GOTO 60190 SOUND 0,121,10,13200 PAUSE X210 SOUND 0,0,0,0250 RETURN 300 DATA A,.-/,B,-.../,C,-.-./,D,-../,E,./,F,..-./,G,--./,H,..../,I,../,J,.---/,K,-.-/,L,.-../,M,--/310 DATA N,-./,O,---/,P,.--./,Q,--.-/,R,.-./,S,.../,T,-/,U,..-/,V,...-/,W,.--/,X,-..-/,Y,-.--/,Z,--../320 DATA 1,.----/,2,..---/,3,...--/,4,....-/,5,...../,6,-..../,7,--.../,8,---../,9,----./,0,-----/, ,/-./,H,..../,I,../,J,.---/,K,-.-/,L,.-../,M,--/310 DATA N,-./,O,---/,P,.--./,Q,--.-/,R,.-./,S,.../,T,-/,U,..-/,V,...-/,W,10 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 FOR 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 NEXT 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,29220 DATA 31,30,26,24,29,27,51,53,48,50,54,55(I/2) THEN 60110 POKE 764,255:SOUND 0,0,0,0:OLDCHR=-1:GOTO 60200 DATA 243,230,217,204,1910 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 #12) THEN 60110 POKE 764,255:SOUND 0,0,0,0:OLDCHR=-1:GOTO 60200 DATA 243,230,217,204,1910 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 300X=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-1100 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:GOTO 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:SETCOLOR 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 110 79340 COLOR INT(COL+0.5)350 PLOT X+80,Y1:DRAWTO 80+X,Y2:DRAWTO 79-X,Y2:DRAWTO 79-X,Y1360 Y1=Y11 REM *****************2 REM * VYCHOD SLUNCE *3 REM *****************10 GRAPHICS 2320 POKE 708,226:POKE 709,208:POKE 710,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 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,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,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,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,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 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 Y160 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 54279,P250 PMBASE=P*256260 POKE 53256,3270 POKE 53277,2280 X=30:Y=91300 POKE 53248,X310 FOR J=PMBASE+512 TO PMBASE+639:POKE 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,255,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 400420 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 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 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 RETURN 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 THEN C=75650 CO=INT(C/15)*2660 POKE 704,34+CO:POKE 712,128+CO/2:POKE 709,208+CO670 Y=Y-1680 RETURN ,208+CO570 Y=Y+1580 RETURN 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 THEN C=75650 CO=INT(C/15)*M1 REM *************2 REM * SQUASH *3 REM *************9 REC=010 X=12520 GRAPHICS 5:SETCOLOR 2,0,030 COLOR 1:PLOT 0,0: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,4660 POKE 704,18870 I=PEEK(106)-880 POKE 54279,I90 POKE 53277,3100 POKE 53256,I110 PMBASE=I*256120 FOR I=PMBASE+512 TO 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 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: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=A+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=-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 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;" CAS ";: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 210340 POKE 53277,0:POKE 53265,0:POKE 53261,0350 GRAPHICS 18360 POSITION 2,3:? #6;"BODY: ";P365 IF P>REC THEN S=REC:POSITION 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 THEN CLR :GOTO 20400 IF PEEK(53279)=5 THEN GRAPHICS 0:END 410 GOTO 390ITION 2,3:? #6;"BODY: ";P365 IF P>REC THEN S=REC:POSITION 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 THEN CLR :GOTO 2040510 REM *****************************20 REM *** "TENIS" OD LIEBL-SOFT ***30 REM *** OVLADANI JOYSTICKY ***40 REM *****************************50 GRAPHICS 0:POKE 710,0:COLOR 1:X=5:Y=5:Y1=10:Y2=10:POKE 752,1:F=060 POSITION 2,1:? " 1 MA ";R1;" BODU 2 MA ";R2;" BODU "70 POSITION 2,23:? " "80 ------------------------------90 POSITION X,Y:? ".":GOSUB 370:X=X+1:Y=Y+1100 IF X=37 AND U<>1 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 THEN ? "$)":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 GOTO 230290 ------------------------------300 POSITION X,Y:? ".":GOSUB 370:X=X-1:Y=Y-1310 IF X<3 AND U<>1 THEN GOTO 230320 IF 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:? "CAS:";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 PALKA1470 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:? "1";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:? " ";700 POSITION 38,Y2+3:? "2";710 POSITION 38,Y2+4:? " ";720 POSITION 38,Y2+5:? " ";730 POSITION 38,Y2+6:? " ";740 ENDPROC 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:? "ZEMREL JSI HRACI C.1!";800 POSITION 3,3:? "HRAC C.2 MA +1 BOD! HRAJTE ZNOVU!";810 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:? "ZEMREL JSI HRACI C.2!";850 POSITION 3,20:? "HRAC C.1 MA +1 BOD! HRAJTE ZNOVU!";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 HRAJTE ZNOVU!";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 1 ? "$)":POKE 710,0:POKE 752,110 ? "PRELET NAD NEBEZPECNYM KANONEM"20 LET S=030 ? :? "JAK DLOUHY KANON(1-1000)";:INPUT M40 ? :? "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 Y=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=-1114 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 X:NEXT G150 LET N=L160 GOSUB 1000170 ? "I";180 LET N=Y190 GOSUB 1000200 ? "*";210 LET N=R220 GOSUB 1000230 ? "I"250 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 16565 ? "$)"70 PRINT ;"Program dava odpoved na otazku,jak se k sobe partneri hodi z hlediska biory- tmu."72 PRINT ;"Pro manzelske pary se vypocet nedopo- rucuje."74 PRINT ;"Pocitac nebere zodpovednost za vznikle problemy."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 pravdepodobnost 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 84,8230 ? "NAROZENI ZENY (D,M,R)"240 INPUT D,M,R241 PRINT ;"NAROZENI ZENY :";D;".";M;".";R270 B=1280 GOSUB 1170290 S1=S300 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)450 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)/100480 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)890 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 10101000 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 11201250 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 13201310 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 I1380 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*3651490 RETURN 9999 POKE 752,0:? "$)":END S+P(M)-D+11345 IF M=12 THEN 13801350 FOR I=M+1 TO 121360 S=S+P(I)1370 NEXT I1380 K=T-R-11390 FOR J=R+1 TO T-1141010 REM *****************20 REM *** VIDEOSTOP ***30 REM *****************40 REM Vladimir Adamovsky50 DIM VEC$(20),POC(3)59 ? "$)":? "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 752 ,1100 SETCOLOR 0,12,10110 SETCOLOR 1,0,12120 SETCOLOR 2,3,2130 SETCOLOR 3,0,0140 SETCOLOR 4,3,2150 POKE 39975,7160 POKE 39980,6170 POKE 39994,7180 POSITION 6,2:? "VIDEOSTOP"190 POSITION 22,6:? "score 0 chyb 0"200 REM HLAVNI PROGRAM210 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,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 SETCOLOR 4,0,1 5330 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) THEN 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-5:GOTO 4104 00 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:? CH430 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:? "PREMIE":PR=1 460 REM VYHRY470 IF S<0 THEN VEC$=" "480 IF S>=0 THEN VEC$=" SMOULY"490 IF S>8 THEN VEC$="KULICKY "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$="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 THEN VEC$="TISKARNU"580 IF S>80 THEN VEC$="FAVORITA"585 IF S>120 THEN VEC$="AUTO "590 POSITION 3,16:? "DOSTANES :";VEC$;""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)660 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 GRAPHICS 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,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 770780 POKE 764,255790 GRAPHICS 1+16800 POSITION 4,3:? #6;"ZNOVU...START"810 P=PEEK(53279)820 IF P=6 THEN GOTO 59830 IF 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,0,0,1,0,11050 DATA 1,0,1,0,1,0,1,0,11060 DATA 1,1,1,0,0,0,1,1,1NOVU...START"810 P=PEEK(53279)820 IF P=6 THEN GOTO 59830 IF 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,0,0,1,0,11050 DATA 1,0,1,0,1,$10 REM ***VODOPAD***20 GOTO 200100 REM 110 TEMP=PEEK(705):POKE 705,PEEK(706):POKE 706,PEEK(707):POKE 707,PEEK(708):POKE 708,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,6400 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:GOSUB 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 COLOR 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 FILL500 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+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:DRAWTO 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:FOR 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 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: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,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: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(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:DRAWTO 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: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:POSITION 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 STARTCOL=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,179,15,155,27,164,35,173,60,181,66,1741500 COL=INT(RND(0)*4)+1:IF COL=STARTCOL THEN 15201520 STARTCOL=COL+CFLAG1530 IF STARTCOL=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,179,15,155,27,164,35,173,60,181,66,ڬUٺ\ޫ%SltfޮU H@ B @ I@$JA@@@ $ @I"HBvIUDJ(!ɶR  @@5UV@ D*][n蕨 U5UvUZU2ꪉU-T56WUUvRTUTUlTj5[*UUVRDTUk**R+5]eUZUE*U{*ʪ-)JRUUR*H֩RH,R0kUE*UU)Vj2*AUV$,ZT4PPJUi**H ,HuDUjSRhҤ YA! *4%YR*#IRJB HJH*[I TQ!JT*P%*Nҭ U%԰% %Re J%K TRjJ$ԤIIP $ZR $R @! bRI@,E2DE5" JR DE4"IH$AJ@@@H "$  @*#IRJB HJH*[I TQ!JT*P%*Nҭ U%԰% %Re J%K TRjJ$ԤIIP $ZR $R @! bRI@,E2DE5" JR DE4"IH$AJ@@@H ﮭUUWowj{muww}^oWUUWnwuڵw_uUwnֻwuﮪ}_w}^]w۷__u~}}_]oK۾zw^i߷oM[[?{u5}wu{Jk֥wV$޾r^=e׺uH% $JBotTkzA"I"TBUYoRTHRVQ=I %[JJ(hb(DȦYVKU$DBJQEmm[("#ZZNA@HLEmmU$*T[5j(CVA@D*JCUj4 *T*i H%@PeeU UUj{|ݹH* B j*۷b(R UR%WDU„j$,m6(*UZR@j`kTD}]ZH d he$ TuXR~֔R@+^WC " @ TjH  @5%0"@s.@{RET u~bq^Ȣ@uժ" 2pE_eT%퀋jZ"J'4ݵj @ *Z!۫WY&B @V*DBP!,lZĒ"BMj),ENB%JA" H`LIMj$D (PI  BVAmj " @B DHR*1h"ESdA A"HD PAT DDjq!$DTJ ")PD AR("B%@ Z!۫WY&B @V*DBP!,lZĒ"BMj),ENB%JA" H`LIMj$D (PI  BVAmj " @B DHR*1h"ESdA A"HD PAT DDjq!$DTJ ")PD ARUUUVmUUUUVmUnmVmVۭYպRWeUZe2ֵewjR;k^f̵U]U)fgjIK\ֵz[J*%UkjUJ-6ݽkUC%mn!fSknԪIZ6ڶJakܮկ֥%국Z[y]ZvaRZkncVlZY=VޫZﭷ$)Y*CwY*){mIWuk/wUQ*VRUK{Yj+uֵ`mRohm{vHBmmZ_dݶڴPjvI!%mjfk{ J5TjR0jK%j>J¿S4ju /JcU4Uˊ׫*[jV=WH ?mR]UR궒IHr("7jU2.mWURaWJU*$U6! [_޻QMWb+kYm$+YZֳyHKU%inPժIHmOz& [UZ1=UrH@uUV/"'Vjlԋfu;$K16ݏjjUUz*' 6U@TJȒ Ui(UU5UU`UԨ{ȕJT W 2% (URZDRP{H,XBMB ejH JK (@Qa(EBPHhJ‹ $ڨT( !BT@@j-"@r"JUdB  Lh B%qRWdA@` " !@D$YT  v%D@Dj ]QTԺ $-$GokbܖsDV+޵  j*5j@@P*U*ݿE!vkStHi6իLjDVɪU[z DJjWWTR; $RZ뽽BDHRU,URcY$!Sm*J꭮(@Z,UWUBYP%,U5) BH,jѪU^hA %Jӑ*UM/!.ZLfUmmBܖsDV+޵  j*5j@@P*U*ݿE!vkStHi6իLjDVɪU[z DJjWWTR; $RZ뽽BDHRU,URcY$!Sm*J꭮(@Z,UWUBYP%,U5) BH,jѪU^hA %Jӑ*UM/!IRDURjuUAP@UV*A%!$BTlVD%(HD@T WJAH@@0#jV쵭Ԕ"BV*@![[uuuT)RQ !J6֮  Dtj@! e(RʓE;g6B$(JmU[ Ȥ"HA7&Jݚ**"${7g#*@!@I0H I"f[-TJnE!! A"DE*٭K:TJPD{]!#mmBUA D"RmH!R )JzmET+BA ֶEQ BFVM}(( ׻ڀEERE!'}oSt R@JJBU$B"wP& %b PL@@( uB PQ1Z P"&B * R%#ԠDP#+DAP@HV G(B)+ _$h* AD@HP(@AWB/ P)&*$BP ݹ bBGFHr@DF (A-(A$$AB[!A+@ HP (JBGEOP(QAP*P ""C$(Z"EH20HkHP%$B. H HiBR$\on!DU-B[+EJDUR*P@*ݷo%$TvUw HFk}^+h%uRUJJHdRJUZdGTDR%&JVJ_UTC,T%&&}ؒPQ('DH~H(^[PQPׅH +_Y_(B[";5IҚbkV/D #Ue4U$$@ʪ),Vud$EQ5ʛ*UJd 5ddIKEUx@HʒSI,jZk 5m*ZTU=UHER%"bSj *ZUBIU] UDJ$*R@BjT RUlpUE*D @JU*%SUeU% 5UJTHbZڔJUR$ %% D%E% ҪNUZ*U()UJPDTK!ƪZ 4NY9$SDH)J )TtYBYZ@UH4T"%\R"tIIMUQAD *P>U*V*Ԧ%ZQmRPDIJU H$%U* rUUE,ʕDP@JM-+* ՒD!D$@@$%I T HJ!D@A*!JRQ) A B%K2B%@@P%0JXD *EZkDR*:J[+^ R ZSZU@D)1h-T4 [ ((RjWZQ̖$$J?+T9-RH@( 1+:ԕUTA!lVDU-j)*UBM)ZjʔT`RJ j0H $ $QXVf)@D" *%"Gj(RDT؄U+!RQ*A)"ITJDTJd!JH"*UPI IDZeX*hK*"**DTmNJZXU*+V"$RUAEUdJI RZ$ITU$I$T@2e"%(U֪RIP1+:ԕUTA!lVDU-j)*UBM)ZjʔT`RJ j0H $ $QXVf)@D" *%"Gj(RDT؄U+!RQ*A)"ITJDTJd!JH"*UPI IDZeX*hK*"**DTmNJZXU*+V"$RUAEUdJI RZ$ITU$I$TV^}߽jՀZ׵kj$-nkjڻnﺵVTW۷^j-*.}oZVjJӭ~몬-{kz^US-ZU$nmѺRIݽu.mlU Skwva FW^IG}M.m^{WZ]jZ^hF=oH,?Id& D I!)EDT-J?tp)A*X1eTT_AIv QYU(H$@KW^*V(KEPBT +/J([W&> FW^IG}M.m^{WZ]jZ^hTJ*WңVj $~~wR@JUSuյTR*kujB$$ڪ}I*qzŵDKWԿ?n[@~߿ڪA+JyU{׷t8Lv}]]I%**_ײAtjWPY u~:Q"ҴuIA)RHVoӽKEbR4K$D?o*[_nk@ U߭VԚBH%J;WZu}!(@QR]]TjPUB@L*mwzm26nT!`-Wn߿iUE_KV$i< Vou%$@BۭWQRkURD"(m>U@ PUm{Svծ!(Q֟*RIzUuVEkO]*(4ֻ{jR*mhHPn7l0ZUdp (=۫mJ@ 0Z]{Z@d]U!@ (} mUցZSIP4uwUjS$ dHl-nkZu! h֪T`J,mUR@!q[ߪjD6j 5]UM%@lw޾=ݵTP];޿ zwT @~W@@j@{(@(]k P@ mKTB@ @{@* D@o@ ~P   " D!׺ @ H׶BPAHB}߷H$ Io"Uw@ %{ @( AP"AkL$MQ N{@* D@o@ ~P   " D!׺ @ H׶BPAHB}߷H$ Io"Uw@ %{ @( AP"Ak[ݿo߿wmoon߫ݷW~ޯWnunݫmw~߿ݯ߿o~}۷{mN{۽}w}nw_w}ooo{ۻۿ{owjnn}ϯon];ݷm׾z˯p{yVU]~\( *Okv^ܕҪiJm?a!$E⒒{V l%"j J҂Uw3ZD%jD5TG?TB"(@ L_%@"DAS(@"@UyT_K@ !!DP*J)O"Bf"BQHdL(RAB)E4*$DMJ)R(AAIP; HP (iDD )U(RHV@ H* ;D(UT)iP@%% B ! dB (T-V  B@*L rVsrHU,UҲV&!Ai-a*4rRUJ*JI&*a+TTiJTUkJUJJVW*iUaZT*LUիUNJUkEuVYe5UjT$JJU֫VUHH"QB DHE)TJ2R+h*2iQ$HU(c(JE*IR"E9LSU(TJRBLLBJeR5$***U*ZHR**JUJUJUe6U"5j+UZE+$J*ʕJ[e7IQj)j+^FIVUT[j7JJjk5NF(IVʪ[j7JJjj5UUNF(IVJUj7JJjjJRQ*.F(IVR+h*2iQ$HU(c(JE*IR"E9LSU(TJRBLLBJeR5$***U*ZHR**JUJUJUe6U"5j+UZE+$J*ʕJ[e7IQj)j+^FIVUT[j7JJjk5NF(IVʪ[j7JJjj5UUNF(IVJUj7JJjjJ`(A_H K D#ɉVR{W$DH)dB Iu[B_TR*(]^('o))Kڭ(T$B wlЁB{*";HPm{ UI%?[րHm%E! G߭k[@QD!%ku{[X T@ֶٺHzgU!"* /mV!D C}۽[X)iU!EU tBUˆ!Q#|]m0J MD"EzUUA@ Ԉ}Em$*)~ҺUJDB%jvmHB@O<:%wj(UZ-"!-u:VB@J' @JeUZSZ]@ʪ%MK5UY8 PHPURM(>(K6SQB (HTVP%UPVZ@TR !UUD P)!VUB$@@(JeTꔠ@WJ@(R  k@" "!ܵTDTUDT#HJ*P T PR"R  DH@ J D` \"! W'j !RQAP QW @0 &)hPRQY]PBH@(n@@ JAmRPT" "%DH @Z]Q*T)),Ʃ~]$PAHhmQ_l`׬h]Y*S+g$8j~A]PAJBE+׶ճU( !9Pmo["%)vն`DIm (EXmwU]BLi)hPRQY]PBH@(n@@ JAmRPT" "%DH @Z]Q*T)),Ʃ~]$PAHhmQ_l`׬h]Y*S+g$8j~A]PAJBE+׶ճU( !9Pmo["%)vն`DIm (E+$N{Q2R@D>ڽv!Lo]ZHH Y}їf&Yp_Q( șWO""+TDza"HT $#G)$HI+@ E"% `j _uE!E$EKL"(R!"a!2Z HRHP!: $WӘ* "HDHT vOrK{ oDHFdvb# _JW) o!M~"c3("+a-E]vuTY @cR[O]a(i,1"ITBUUH[ JB$o+J) jTd@I` 0@$ʨD AV;9o()V}J@W[뵟im{ 66Kfӭ[C;@vV[ UFb!D ~݁ RJwuU&}߅耀[\ z@IyW${]0WoU<XDBPM]B P_QY^YA}L%]J޶ڞZK@kܞ[o~X~ ~}FU]nGJH+o! !ĝݯ]Bk|QA! UIkw*V]@[=תo}߿k+wUmW}_V_߻Sjw]^^{QA! UIkw*V]@[=תo}߿k+wUmW}_V_߻Sjw]^ }$kWOT"IȒuﵵ*_w{AUzVWр֖{HuJ[ $m?PIuhZj! HRU[rQ[UD VTISTꪩPoT(@ʁ֪TvEXB`ߑ*uRh?@jS>*U%Jr?"POQUSLA_jҦJ*afP79@zjJRTĂ=UDŔJ#)]ii zkf~JAWBX#$:鴄jM"h!:I!u}H W%H j j*YPյQ.7a@o„iVO $({.i*O '!B*R"iBR@)@'HUi@{47uv+JJ g2 !*пRpv/@ԍ.1Ĩ'IVuH7r1(2\uĸG‘kN:_ hPڮ2&)w:\ʐ5B!>y  *2%^>b %@?/_7:P鿨 C!B-o+o͈,OA_Q/ ~J 4icOW}T$b#mꀈSDiRd"@B*UI""DUQ4(D  5J#EAO5@!T!?JJ a!VBB/[)슗 IcoC He%BOR CU__S"TTjcDUþ<h ZH$Rɠ/0V 0GI]~DJ*]QW Jԍ*^D$JT8ImZTJV%FTUk U*Ji %$Hr [ڵ(5.$dRO{ZUQ %BOR CU__S"TTjcDUþ<h ZH$Rɠ/0V 0GI]~DJ*]QW Jԍ*^D$JT8ImZTJV%FTUk U*Ji %$Hr [ڵ(5.$I* JU333UURII$) ̪dJE"UK)RRUI)$ Md֪U%( E@UJJUU)UU"$U֪D!K eH*JUU)UU  4ҚB֪DR$ʭRJ JUS) @5BUUVT@PA RHhR)Pv5T1%R( ZZ$HdBBWR) f V[D jUEV$!T@*TjIDI*KEwKRmV2@)-T)A$J!RZI%15I)(BJUZBH"dRDIu|,ȉT(R Q+]!($C UD VTBS*IJ2"D"$Mk%)  HH~ݹQQHRPdRI@ ն"&D B#mFDQ*FIQgdRKZ $QPRC`KJ$$" I*tIHHU=EPHH2RJ{%hD*_$dQ") T DA BH$VRP(*Z,WIҪA eAȑ$UDPEUTI2$TEU D"dPePJ Q "$B-H0&@" UReI$(DD Rh$SuJ  qFDOS SYSFDUP SYSFH1AUTORUN SYSFyZKUSPMG TBAF DINO TBAF,GIGAHLAVTBAFJOYKRESLTBAF KOLOTOC TBAFKRUHY1 TBAFMORSEL1 TBAFMUZIKAX TBAFMUZIKAY TBAFODRAZKA TBAFPRIKOP TBAF SLUNICKOTBAFSQUASH TBAF TENIS TBAFUZINA TBAFVHODNOSTTBAF VIDEOSTPTBAF VODOPAD TBADS31 DATDS32 DAT#DS33 DAT)DS34 DAT/DS35 DAT5DS36 DAT;DS37 DATADS41 DATGDS42 DATMDS43 DATSDS44 DATYDS45 DAT_DS46 DATeDS47 DATtDS54 DATzDS55 DATDS56 DATDS57 DATDS64 DATDS65 DATDS66 DATDS68 DATRNEW4 TXT @$@}D:P@A!H @D@_@$>$NlBDF~FPUB>H@@nR#͋ @uBTJnZ)֐ <"gb׉cCCi(. !SyQWbۑd@ кRf BI' VIk$ rRpUQR"MCT yUi)Uj PJWKVV"@Mjv@ @m$UWA  !KQw}B B D[B@" '^]T@ RXV-BlV!P :UU_uS (Ģm@PLu( U ilU=UDJLv,s")':(uK5$MCT yUi)Uj PJWKVV"@Mjv@ @m$UWA  !KQw}B B D[B@" '^]T@ RXV-BlV!P :UU_uS (Ģm@PLu( U ilU=UDJLv,mmmtSommmUVmUۿmnmvm]Y[vU]{nm?v-o՝˙+nYwզݙnoMۯݶ*UtmU_k9;޶nv[WUm߭Jխn}{u[vuVfۻ޽u]ovnk~}--j]m{;k[VVmW]{mfmsW֭]}W^Ϊvum}kvﯭ޺}_d͵k3of[߷vzݯmn߻zmn[nmݾ]۾߻k}}v[]W׫׶kw}}V}ݮ׽][mukz}}U{n׾׫mnnkk~[ۮ۶߻նUv{mu߾vn]U߭[v{Z_w[UwU_jkVWk[}]wkwwW]un{WwֽW]}WvVVwWw}WݶkVvUwվ۽WnݟkW뺪on^{v׵u]k׮u}߻wk{wvZ^kֺ׺Rֺ}oU[]u)HZWZo$[]v" xUITUSRIML]iV *J3R!ZEJmO;_VEZuRF%$@$JVDMn_@FQI lZ)ѲR  $A ֯U"J@A"D";tH" timD D(VTVB[J!UXE$"bwkjjU!JBͶTo""&H_[kZA"HJ"HkZeV y@P ֵ]j]iV *J3R!ZEJmO;_VEZuRF%$@$JVDMn_@FQI lZ)ѲR  $A ֯U"J@A"D";tH" timD D(VTVB[J!UXE$"bwkjjU!JBͶTo""&H_[kZA"HJ"HkZeV }ժExzI**^DD@(H{ʫjJ5h%)?+Є]*< $Pߟn#6}[$WR0" RWD n]iu(3mr{@Ϸ7` AHf(HV],߿}۪jT)$@ TJr }r^DD"~hA}tNJE AD&")*}(w^Z4TJD@UGwq%ƪ%U!)(_]6JJk"$JX ?Ie'JUY2(A!P*~ҢI|/ N@ڶABJXPB!UN/T]mb*E" 5B%U' dD*HݴP @e"WP(B*MPhVդWfJR*a*n(,J@+VXғA*FReIEIJATMHKw_U$!j@&#漢 UB@5 4ֶE%  DJI#cj}@H*! RH @$EI`D(B*D *"! HJ)D` "$QAD"*DU BRIE)R (@RHPE$@  AJR R((H@JD((HB!TURP)@$BH*D$DAAB P$HD(() HH%*HPH@"բAUHo~TT(@PDPU$*@Q *[mVB"VUD!A$@J Z H$@UTȈA  $ZT""@BUTKTB* %*JR@TJTTP DBJP DP ) TZd!DDH&֪UJQHH UThĥ iV UZQ5A! UTRʥ(@AIV UZR1T"$ $$*@Q *[mVB"VUD!A$@J Z H$@UTȈA  $ZT""@BUTKTB* %*JR@TJTTP DBJP DP ) TZd!DDH&֪UJQHH UThĥ iV UZQ5A! UTRʥ(@AIPP)#T&!@R((JHz J HBA,ʞ( R$[aQ% DCR@"D! (H,ʑ%JP% @KbHBQ(ܓT.@!"GkP DDoʂ QKX-շT@DDEV7_D Kio]ju}@""nԯZݺ%[خnD(V+ZU6nkvѪQ$om}ͿQ! 4ʰ7Jʩ PVvͺmuum7  $mSۖT )MwUmRD&$Anyڤ IUk}5I P d*%nkRD P~Դ E$EZRY;H HMmkfJ%Rs$ Zmݭ!@DIUiZնzrzDR "BmE T-vp-]jۻ "H %Z]bA$JUmm߶$$ PS 4ݥH@ $P%-k!*bPJ_A"E P͠ B BD$J*oPUR$ @)EW$"HHHJ]U@QJP DIT"* $QD=(ZKJ @ %$+BV"A "H`"J RH!PiB!RT(Dڥ @B$P$A1)ME( TDUI@ZRH())[nyBDRE=IVT"BGe= )!D5#>ȡ BD@BʱV BlSw[m("AIUVwH&!Iw"Ɋpo!Dij RPuUskDO(IAoU@$((B 6LD "ժewZ*UDFoUuWBQ,Y)(SIQI%SB@\ H$]oj)%@DVRI*L%JtU)SJԱ*Q$"$K)FD IT"I*Q)@TmI@J$ $TRD**IRQ@IRT*$"Q$"RI)1@I *HII-5(EĉDB"%*E(BUeKLH$QYBU"*) S)AF%TTTJBQ,Y)(SIQI%SB@\ H$]oj)%@DVRI*L%JtU)SJԱ*Q$"$K)FD IT"I*Q)@TmI@J$ $TRD**IRQ@IRT*$"Q$"RI)1@I *HII-5(EĉDB"%*E(BUeKLH$QYBU"*) S)Q@wR WQJ @>TE*R(AWZQ:UTj  T,%kRj$U`QQi2VkI*[ ֪T&B $Jm-RUHJ@*Q4RUV7**!Kj֭jUP-UU)SWk$IjKkwY0ҝZ[" -v+5mHMej]*~--ؕeRU%"/iU?IXjjeEU'[J%HfRUiH ]J%KFHjJjI$°UbDZI@e+YZ"V%` R"YRH H]U(5Jb8Y*/HJZTD&TIRJ[KJHIB62ZJ T[KJI(RPH*I+6JR RTQI)L$ԥIS$U4ډDIQTD%%%U @UTX%e ԪʠUz)ZRJ(IJQT(RR AVEHQjUJDP T JJ!XRU i$URJ$TB򔤂)J()E-"Q%BS +!@(jBPW$H$T%R$$JId@I $J1 d%}(( JDR ʂ 2BRJUIDT©TD!UOR -R! JB "@"TPJ J"ࠥ@B  %H"R (!R @JD%BB$9(@ P*H @IU9$B$6YRD $IRU4@$ @Vʩ)IB RU)DB""  A@@ UUM)"%J A *  QGLR@ &)1$RBIUJ 1b Et$  D@m2E  EHd" @B@HԒ@D")%HA"J@Vʩ)IB RU)DB""  A@@ UUM)"%J A *  QGLR@ &)1$RBIUJ 1b Et$  D@m2E  EHd" @B@HԒ@D")%KZ^U.mQֿw{_U%>muWTuVV_{ʭA=e]V7{kAJ?_JԸe>j/WV5ajZk]zo{RBfA!*ZئF*jDWR7B*ke^j ϧZ-^ ]0W:v%՘u^KͪN[j$@n<-dzUn۾j~N&-֤۶.JUZ[VﾮPkjYEZ-mڪkݦ:rRu*޶}N^OߢR=)Ym(^U;m$RHz\W{IUj&׮VTj[}}nU*u*%*_\UI77i֮L]u"&JojRjȝh}?O]z"*3V+JתIAVT{][_mt],?;]RQ+wJ|utu_}&]?!2p^JIV[IUW풒u_h2*.z)$۵TZjݾVSJnI׵]]wڽ]Z_Z!s{ꪩS--u]%JN]UVY~[_VXR-kUTiunTT־֪BTTK:?[;[yũTVAU>!:-ڪKviTJ.Tu߯Wu,髫Y&z(RUVTuH׫[ZKFm(z&EB?RYjzP^Kwmoe]o.ߙ7nVkurUZ6n2~~U}YM3]6z̥ۻޞԤkU7~Q%iI$-k}~]ڵI Rߟ%@R/u{UT.H{wp &PSudE"U EkorT[ UZ@$dT"b(BBgv AI*B*j&`2XI"$*ԑcZM)*%PIH$Aj)+U?RTIڪI*P I"aYe%A>E*ECT"D$ JT)P$)I@"I5b@*RIBB@II6ʒ5,2%RA1TDB@ߟ%@R/u{UT.H{wp &PSudE"U EkorT[ UZ@$dT"b(BBgv AI*B*j&`2XI"$*ԑcZM)*%PIH$Aj)+U?RTIڪI*P I"aYe%A>E*ECT"D$ JT)P$)I@"I5b@*RIBB@II6ʒ5,2%JUUUUUUmDEUEUQ(fZp(RT0Iu׾V„ZۡU( ]0C*tJ(AJP!LU_P^JKo^m)""PݿJHH!H)ko}V@ Sw%% P"RRIBD DJ}dL  %)ߡ` RHQ^o}T@ADUס Q)]o_\LP)h DARkkE@t޿I% 5HQa,*EM__QD(H(PR$/@ )JQIZ￯P@EJwB$)(Mz B"BʷJR @"Jﺨ,J@uP) +]H$jB"(RR{ UTwe*U ! 4 J*BD T(XA --EHBPS3J*  R Lo$$ "P"Ҫ{H D)@ B""DI"TR"I\IHۈ$%IR2 JjJDQUH2 )$Rh2!&BIj$E(  @) I%IBJEB"Ub[-A("PIT Q2 AQ2+K$b`D RT !TT U$" p`!@*TRdԤB !%(@*(D`A THTE!P*HPIZI(DPdTDRT!` U)"]RB% @ U*!$@ PAJEZVJt*E TX@Ш*`RQd*:RTJhp()t*.)@#$UTZh`B TJQmVȇtZUm5:Vϖs{W_ZmkRw_֮v[v}Ղ @ ւ" @$DTBHP!  $   "@$$ D @@@@@H@"! Zh`B TJQmVȇtZUm5:Vϖs{W_ZmkRw_֮v[v}Ղ @ ւ" @$DTBHP!  $   "@$$ D @@@@@H@ `H@wuA@@U]@J AJ{7j` TJkoԀ@\A$}ڨ"!A""(;Wnq@PDH njA ﯮݒ  ~! H@" J?ﭭHHZX@@ WjH!&" @I_$A)zQH(@@% ߠ"% R"(Pk}DBL(*B~@D%@U   qRE~ d"U4 m$ !P- *(DPA B!@VD@B 6DD( H$j!@ *JQPA!! BT$!BNHH@@D!EPH@)BPB IʤQ bI  @BA"DHA`$*J)H@$ @ @R(I*T JA@WD* . !"@D*A$JnD @!*P" B *}ZȁEBU׷HB }m IU !B*P@@RV H [רA @nWV$Ie*@@@ ߽֫l @!D* Va@@H Rޕ@ARkn.oo ! )Rە6BTIRZխm@ UV-*[n[^( P*SҭZeBV7m6kof޽26K+lI"YYEȪtkT[RZ5U]tuQ"R v5U@uUJJ۪D5VompiIJYm k*AU$ USJUmkUV$H@m۶Y@@J+nݺwA B@*VmkhD)Hն۶*V! AV-*[n[^( P*SҭZeBV7m6kof޽26K+lI"YYEȪtkT[RZ5U]tuQ"R v5U@uUJJ۪D5VompiIJYm k*AU$ USJUmkUV$H@m۶Y@@J+nݺwA B@*VmkhD)HI$UU]UUUVwۻIUH۽v*VjUUUUjHJE[J]^UU[ZUURWmjUJu۶ZU]Vjm]n[k56V~ٽm}3]}mnko~޻ݽwmjm{}mݻu߻wޯ}ww}�^o߾ߵ{}{w[_o}w^m^m׽}[ճVkjwonn߯_uݿnz7]5z[߷jٶ֍H mWlm-"[{۳W[jm]zַ۫nvB սvڭ  k̷{vzQj޸-uwVʠ%mwklݩ1HQbXnݫRB V泹~-Tb_nVɦDR}miH*"ԺZ EI]EV R*:V｟@)AJ5uA P*_oj)DADV{ߕJR P)$vAK]+jT uwZ׽Q@ IJjյURD$ZJVDTaR2 Z%Jj$THE2U"P@.R%*D*A M*UUD*@UmU*@ҪUU+3DU*@RjUT+ )*@ m @"B$)-i( :* V-DRҒ (@RU[-jT V("UVR A*UUUU`u@"U.]TMUUU*&ʨU-UZ֪*IUUQRիm@U+*ZuU$TiYʪmUUA*mZ]jUUݨ"m[6:3.UZڪ3uZluե[J[[SVM[*zkUWZֵUUJڅk֕VڥJ ɵ%~)jU[RY6[[~ѪZ]e"ۦUUUUU`u@"U.]TMUUU*&ʨU-UZ֪*IUUQRիm@U+*ZuU$TiYʪmUUA*mZ]jUUݨ"m[6:3.UZڪ3uZluե[J[[SVM[*zkUWZֵUUJڅk֕VڥJ ɵ%~)jU[RY6[[~Ѫ1 DIM W$(120),O$(50),S$(20),POL$(10),CO$(30),ODM1$(20),ODM2$(20),POZO$(50),A$(30),FIL$(30),PE$(1280),TYM$(50),OWCA$(12)8 DIM ITE(6,7):DIM SPACE$(40):FOR I=1 TO 40:SPACE$(I)=" ":NEXT I17 ------------------------------18 ------------------------------20 HAND=0:X=4:Y=7:B=0:DL=3821 ------------------------------22 ------------------------------23 ------------------------------24 ITE(1,1)=0:ITE(1,2)=0:ITE(1,3)=31:ITE(1,4)=0:ITE(1,5)=27:ITE(1,6)=0:ITE(1,7)=1425 ITE(2,1)=0:ITE(2,2)=0:ITE(2,3)=10:ITE(2,4)=0:ITE(2,5)=0:ITE(2,6)=0:ITE(2,7)=1826 ITE(3,1)=0:ITE(3,2)=32:ITE(3,3)=0:ITE(3,4)=0:ITE(3,5)=0:ITE(3,6)=0:ITE(3,7)=027 ITE(4,1)=0:ITE(4,2)=0:ITE(4,3)=0:ITE(4,4)=21:ITE(4,5)=0:ITE(4,6)=0:ITE(4,7)=028 ITE(5,1)=0:ITE(5,2)=0:ITE(5,3)=0:ITE(5,4)=0:ITE(5,5)=33:ITE(5,6)=0:ITE(5,7)=029 ITE(6,1)=0:ITE(6,2)=0:ITE(6,3)=0:ITE(6,4)=24:ITE(6,5)=0:ITE(6,6)=0:ITE(6,7)=030 ------------------------------31 PE=ADR(PE$):PRE=058 EXEC START59 GRAPHICS 8:COLOR 161 POKE 559,062 EXEC KOMPAS63 PLOT 15,20:DRAWTO 144,20:PLOT 15,21:DRAWTO 15,100:PLOT 16,100:DRAWTO 144,100:PLOT 144,21:DRAWTO 144,9969 POKE 731,181 RESTORE (X*10+Y+5000):READ N,S,W,E,W$,A$,D,G,T82 POKE 710,T:POKE 709,G84 IF B>6:IF X=4 AND Y=3:A$="DS68.DAT":ENDIF:ENDIF91 FIL$="D:"92 FIL$(LEN(FIL$)+1)=A$97 EXEC LADUJ98 FOR I=LEN(W$)+1 TO 40:W$(I)=" ":NEXT I99 TEXT 15,7,W$100 IF X=4 AND Y=3:W$="":FOR I=LEN(W$)+1 TO 40:W$(I)=" ":NEXT I101 TEXT 15,131,W$:TEXT 15,119,W$:TEXT 15,107,W$:ENDIF 102 IF BYLI=1:EXEC MAZAK:BYLI=0:ENDIF 103 EXEC KIER104 EXEC ITEMY129 CLS :? "What now";:POKE 752,0130 IF PRE=0:EXEC CRY:POKE 710,0:POKE 709,0:POKE 559,34:EXEC DUCH:EXEC LIGHTON:PRE=1:ENDIF 131 INPUT A$:POKE 752,2:CLS 132 EXEC LTRIM:EXEC POLECENIE133 IF A$="V" OR A$="VOCABULARY":EXEC VOC:ELSE 134 IF A$="G" OR A$="GOSSIPS":EXEC GOS:ELSE 135 IF POL$="T" OR POL$="TAKE":EXEC TAKE:ELSE 136 IF POL$="D" OR POL$="DROP":EXEC DROP:ELSE 137 IF POL$="U" OR POL$="USE":EXEC USE:ELSE 140 IF A$="N" OR A$="NORTH":EXEC N:ELSE 150 IF A$="W" OR A$="WEST":EXEC W:ELSE 160 IF A$="S" OR A$="SOUTH":EXEC S:ELSE 170 IF A$="E" OR A$="EAST":EXEC E:ELSE 172 ? "Try another word or V for vocabulary":PAUSE (75)173  ENDIF :ENDIF :ENDIF :ENDIF :ENDIF :ENDIF :ENDIF :ENDIF :ENDIF180 GOTO 129190 END 191 ------------------------------400 PROC N403 IF N=1:X=X-1:? "You are going north...":GOTO 81420 ELSE :? "You can't go that way":PAUSE (75):GOTO 129:ENDIF 430 ENDPROC 440 PROC W441 IF B<8 AND X=4 AND Y=2:? "You can't go that way...":PAUSE(75):? "The dragon sleeps in a cave!":PAUSE (75)443 ELSE:IF W=1:Y=Y-1:? "You are going west...":GOTO 81465 ELSE:? "You can't go that way":PAUSE (75):GOTO 129:ENDIF:ENDIF470 ENDPROC 480 PROC S483 IF S=1:X=X+1:? "You are going south...":GOTO 81500 ELSE :? "You can't go that way":PAUSE (75):GOTO 129:ENDIF 510 ENDPROC 520 PROC E523 IF E=1:Y=Y+1:? "You are going east...":GOTO 81540 ELSE :? "You can't go that way":PAUSE (75):GOTO 129:ENDIF 550 ENDPROC 551 ------------------------------552 ------------------------------553 ------------------------------559 PROC KIER560 W$="You can go "561 IF W=1562 POKE EK+40*59+22,136563 POKE EK+40*60+22,136564 POKE EK+40*61+22,168565 POKE EK+40*62+22,168566 POKE EK+40*63+22,80567 W$(LEN(W$)+1)="WEST, "571 ELSE 572 POKE EK+40*59+22,0573 POKE EK+40*60+22,0574 POKE EK+40*61+22,0575 POKE EK+40*62+22,0576 POKE EK+40*63+22,0577 ENDIF 578 IF N=1579 POKE EK+40*42+28,34580 POKE EK+40*43+28,50581 POKE EK+40*44+28,42582 POKE EK+40*45+28,38583 POKE EK+40*46+28,34584 W$(LEN(W$)+1)="NORTH, "589 ELSE 590 POKE EK+40*42+28,0591 POKE EK+40*43+28,0592 POKE EK+40*44+28,0593 POKE EK+40*45+28,0594 POKE EK+40*46+28,0595 ENDIF 600 IF E=1601 POKE EK+40*59+35,31602 POKE EK+40*60+35,16603 POKE EK+40*61+35,28604 POKE EK+40*62+35,16605 POKE EK+40*63+35,31606 W$(LEN(W$)+1)="EAST, "610 ELSE 611 POKE EK+40*59+35,0612 POKE EK+40*60+35,0613 POKE EK+40*61+35,0614 POKE EK+40*62+35,0615 POKE EK+40*63+35,0616 ENDIF 617 IF S=1618 DPOKE EK+40*94+28,49155619 DPOKE EK+40*95+28,4620 DPOKE EK+40*96+28,32771621 DPOKE EK+40*97+28,16384622 DPOKE EK+40*98+28,32775623 W$(LEN(W$)+1)="SOUTH, "627 ELSE 628 DPOKE EK+40*94+28,0629 DPOKE EK+40*95+28,0630 DPOKE EK+40*96+28,0631 DPOKE EK+40*97+28,0632 DPOKE EK+40*98+28,0633 ENDIF 649 FOR I=LEN(W$)-1 TO 40:W$(I)=" ":NEXT I650 IF X=4 AND Y=3:TEXT 15,104,W$:ELSE :TEXT 15,107,W$:ENDIF 660 ENDPROC 665 ------------------------------700 PROC MAZAK704 TEXT 15,149,SPACE$:TEXT 15,140,SPACE$706 TEXT 15,131,SPACE$:TEXT 15,122,SPACE$708 TEXT 15,113,SPACE$:TEXT 15,104,SPACE$730 ENDPROC 779 ------------------------------800 PROC ITEMY801 W$="You see nothing ":CZY=0802 IF ITE(X,Y)>0804 W$=W$(1,8):CZY=1810 LET S$=STR$(ITE(X,Y))811 I=2812 WHILE I<=LEN(S$)814 RESTORE (VAL(S$(I-1,I))+6000)816 READ O$,VIS817 W$(LEN(W$)+1)=O$:W$(LEN(W$)+1)=", "855 I=I+2856 WEND 860 ENDIF 861 IF X=4 AND Y=3:BYLI=1863 IF LEN(OWCA$)>0:IF CZY=0:W$=W$(1,8):CZY=2:ENDIF 864 I=2866 WHILE I<=LEN(OWCA$)868 RESTORE (VAL(OWCA$(I-1,I))+6000)870 READ O$,VIS872 W$(LEN(W$)+1)=O$:W$(LEN(W$)+1)=", "874 I=I+2876 WEND 878 ENDIF 882 IF CZY>0:W$=W$(1,LEN(W$)-2):ENDIF 887 EXEC ZLAMAS:IF LEN(TYM$)>0:FOR I=LEN(TYM$)+1 TO 40:TYM$(I)=" ":NEXT I:DX=113:TEXT 15,DX,TYM$:JED1=1:ENDIF 888 EXEC ZLAMAS:IF LEN(TYM$)>0:FOR I=LEN(TYM$)+1 TO 40:TYM$(I)=" ":NEXT I:DX=122:TEXT 15,DX,TYM$:JED2=1:ENDIF 889 EXEC ZLAMAS:IF LEN(TYM$)>0:FOR I=LEN(TYM$)+1 TO 40:TYM$(I)=" ":NEXT I:DX=131:TEXT 15,DX,TYM$:JED3=1:ENDIF 890 EXEC ZLAMAS:IF LEN(TYM$)>0:FOR I=LEN(TYM$)+1 TO 40:TYM$(I)=" ":NEXT I:DX=140:TEXT 15,DX,TYM$:JED4=1:ENDIF 891 WY=DX+9:EXEC CRY892 ELSE 897 IF CZY>0:W$=W$(1,LEN(W$)-1):ENDIF 898 FOR I=LEN(W$) TO 40:W$(I)=" ":NEXT I899 TEXT 15,119,W$900 ENDIF 901 EXEC CRY902 ENDPROC 999 ------------------------------1000 PROC POLECENIE1001 STICK=01002 POL$=""1003 IF A$<>""1010 FOR I=1 TO LEN(A$)1020 IF A$(I,I)=" " AND STICK=01030 POL$=A$(1,I-1)1031 IF LEN(A$)>-I+11032 CO$=A$(I+1,LEN(A$))1033 ENDIF 1038  STICK=11039 ENDIF 1040 NEXT I1041 ENDIF 1099 ENDPROC 1199 ------------------------------1200 PROC TAKE1206 POZO$=""1208 I=2:J=01210 S$=STR$(ITE(X,Y)):IF ITE(X,Y)=0:S$="":ENDIF 1211 IF X=4 AND Y=3:S$(LEN(S$)+1)=OWCA$:ENDIF 1212 WHILE I<=LEN(S$) AND J=01214 RESTORE (VAL(S$(I-1,I))+6000)1216 READ O$,VIS,ODM1$,ODM2$1218 IF CO$<>ODM1$:IF VIS=11220 POZO$(LEN(POZO$)+1)=S$(I-1,I)1224 ITE(X,Y)=VAL(POZO$):ENDIF 1226 ELSE :J=1:IF VIS=0:J=2:ENDIF :I=I-2:ENDIF 1228 I=I+21230 WEND 1231 IF J=11232 IF HAND=0:HAND=VAL(S$(I-1,I)):PRINT "You are taking ";O$1233 P=HAND:EXEC USUN1234 IF X=4 AND Y=3:TEXT 15,DX+9,SPACE$1235 IF JED4=1:TEXT 15,140,SPACE$:ENDIF 1236 IF JED3=1:TEXT 15,131,SPACE$:ENDIF:ENDIF1237 EXEC ITEMY:EXEC CRY:PAUSE (75)1238 ELSE :? "You are carrying something":PAUSE (75):ENDIF 1239 ELSE :IF J=2:? "You can't carry it":PAUSE (75):ELSE :? "There isn't anything like that here":PAUSE (75):ENDIF :ENDIF 1242 ENDIF :GOTO 1291300 ENDPROC 1301 ------------------------------1400 PROC CRY1401 W$="You are carrying "1402 IF HAND>0:RESTORE (HAND+6000):READ O$,VIS,ODM1$:W$(LEN(W$)+1)=O$1403 ELSE 1404 W$(LEN(W$)+1)="nothing":ENDIF 1405 FOR I=LEN(W$)+1 TO 40:W$(I)=" ":NEXT I1406 IF X=4 AND Y=3:TEXT 15,WY,W$:ELSE :TEXT 15,131,W$:ENDIF 1410 ENDPROC 1411 ------------------------------1500 PROC DROP1501 IF HAND>01505 IF LEN(STR$(ITE(X,Y)))>5:? "You can't store any more here":PAUSE (75):ELSE 1506 RESTORE (HAND+6000):READ O$,VIS,ODM1$,ODM2$1507 IF CO$=ODM1$1508 ITE(X,Y)=ITE(X,Y)*100+HAND1510 HAND=01520 ? "You are about to drop ";O$1521 PAUSE (75):EXEC CRY:EXEC ITEMY1522 ELSE :? "You are not carrying it":PAUSE (75):ENDIF 1523 ENDIF 1530 ELSE 1531 ? "You are not carrying anything":PAUSE (75)1533 ENDIF :GOTO 1291540 ENDPROC 1541 ------------------------------1599 PROC VOC1600 W$="":FOR I=LEN(W$)+1 TO 40:W$(I)=" ":NEXT I1602 IF X=4 AND Y=3:TEXT 15,DX+9,W$1603 IF JED4=1:TEXT 15,140,W$:ENDIF 1604 IF JED3=1:TEXT 15,131,W$:ENDIF 1606 IF JED2=1:TEXT 15,122,W$:ENDIF 1608 IF JED1=1:TEXT 15,113,W$:ENDIF 1612 TEXT 15,104,W$1614 ELSE 1616 TEXT 15,131,W$:TEXT 15,119,W$:TEXT 15,107,W$1618 ENDIF 1620 TEXT 15,104,"NORTH or N, SOUTH or S"1622 TEXT 15,113,"WEST or W, EAST or E"1624 TEXT 15,122,"TAKE (object) or T (object)"1626 TEXT 15,131,"DROP (object) or D (object)"1628 TEXT 15,140,"USE (object) or U (object)"1630 TEXT 15,149,"GOSSIPS or G, VOCABULARY or V"1632 ? "Press any key";:GET KEY1634 TEXT 15,149,W$:TEXT 15,140,W$:TEXT 15,131,W$1636 TEXT 15,122,W$:TEXT 15,113,W$:TEXT 15,104,W$1638 EXEC KIER:EXEC ITEMY:EXEC CRY:GOTO 1291640 ENDPROC 1642 PROC GOS1644 W$="":FOR I=LEN(W$)+1 TO 40:W$(I)=" ":NEXT I1645 IF X=4 AND Y=3:TEXT 15,DX+9,W$1646 IF JED4=1:TEXT 15,140,W$:ENDIF 1647 IF JED3=1:TEXT 15,131,W$:ENDIF 1648 IF JED2=1:TEXT 15,122,W$:ENDIF 1649 IF JED1=1:TEXT 15,113,W$:ENDIF 1650 TEXT 15,104,W$1651 ELSE 1658 TEXT 15,131,W$:TEXT 15,119,W$:TEXT 15,107,W$1660 ENDIF 1662 TEXT 15,104,"The woodcutter lost his home key..."1664 TEXT 15,113,"The butcher likes fruit... The cooper"1666 TEXT 15,122,"is greedy... Dratewka plans to make a"1668 TEXT 15,131,"poisoned bait for the dragon... The"1670 TEXT 15,140,"tavern owner is buying food from the"1672 TEXT 15,149,"pickers... Making a rag from a bag..."1694 ? "Press any key";:GET KEY1695 TEXT 15,149,W$:TEXT 15,140,W$:TEXT 15,131,W$1696 TEXT 15,122,W$:TEXT 15,113,W$:TEXT 15,104,W$1697 EXEC KIER:EXEC ITEMY:EXEC CRY:GOTO 1291698 ENDPROC 1699 ------------------------------1700 PROC USE1701 IF HAND>01702 RESTORE (HAND+6000):READ O$,VIS,ODM1$,ODM2$1703 IF CO$=ODM2$1704 IF HAND=36:EXEC THEEND1709 ELSE:IF HAND=10 AND X=5 AND Y=61713 ? "You opened a tool shed and took an axe":PAUSE (75):HAND=111721 ELSE:IF HAND=11 AND X=6 AND Y=71723 ? "You cut sticks for sheeplegs":HAND=12:PAUSE (75)1725 ELSE:IF HAND=12 AND X=4 AND Y=31726 ? "You prepared legs for your fake sheep":OWCA$(LEN(OWCA$)+1)="13":PAUSE (75):HAND=0:B=B+11728 ELSE:IF HAND=14 AND X=3 AND Y=41729 ? "The tavern owner paid you money":HAND=15:PAUSE (75)1730 ELSE:IF HAND=15 AND X=3 AND Y=71731 ? "The cooper sold you a new barrel":PAUSE (75):HAND=161732 ELSE:IF HAND=16 AND X=4 AND Y=31733 ? "You made a nice sheeptrunk":OWCA$(LEN(OWCA$)+1)="17":PAUSE (75):HAND=0:B=B+11734 ELSE:IF HAND=18 AND X=3 AND Y=61735 ? "The butcher gave you wool":PAUSE (75):HAND=191736  ELSE:IF HAND=19 AND X=4 AND Y=31737 ? "You prepared skin for your fake sheep":OWCA$(LEN(OWCA$)+1)="20":PAUSE (75):HAND=0:B=B+1 1738 ELSE:IF HAND=21 AND X=5 AND Y=71740 ? "You used your tools to make a rag":PAUSE (75):HAND=221741 ELSE:IF HAND=22 AND X=4 AND Y=31742 ? "You made a fake sheephead":OWCA$(LEN(OWCA$)+1)="23":PAUSE (75):HAND=0:B=B+1 1743 ELSE:IF HAND=24 AND X=1 AND Y=11744 ? "You are digging...":PAUSE (75):? "and digging...":PAUSE (75):? "That's enough sulphur for you":PAUSE (75):HAND=25:B=B+11745 ELSE:IF HAND=25 AND X=4 AND Y=31746 ? "You prepared a solid poison":OWCA$(LEN(OWCA$)+1)="26":PAUSE (75):HAND=01747 ELSE:IF HAND=27 AND X=2 AND Y=11748 ? "You got a bucket full of tar":PAUSE (75):HAND=281749 ELSE:IF HAND=28 AND X=4 AND Y=31750 ? "You prepared a liquid poison":OWCA$(LEN(OWCA$)+1)="29":PAUSE (75):HAND=0:B=B+11755 ELSE:IF HAND=37 AND X=4 AND Y=3 AND B=71756 ? "The dragon noticed your gift...":PAUSE (100):CLS:? "The dragon ate your sheep and died!":PAUSE(75):HAND=0:B=8:ITE(X,Y)=ITE(X,Y)*100+30:GOTO 811757 ELSE:IF HAND=33 AND X=4 AND Y=3 AND B=81758 ? "You cut a piece of dragon's skin":PAUSE (75):HAND=341759 ELSE:IF HAND=34 AND X=5 AND Y=71760 ? "You used your tools to make shoes":PAUSE (75):HAND=351761 ELSE:IF HAND=35 AND X=4 AND Y=11762 ? "The King is impressed by your shoes":PAUSE (75):HAND=361768 ELSE1769 ? "Nothing happened":PAUSE (75)1770 ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF1771 IF X=4 AND Y=3 AND B=61772 CLS:? "Your fake sheep is full of poison and ready to be eaten by the dragon":PAUSE (75):HAND=37:B=7:OWCA$=""1773 TEXT 15,149,SPACE$:TEXT 15,140,SPACE$:TEXT 15,131,SPACE$1777 ENDIF1779 ELSE :? "You aren't carrying anything like that":PAUSE (75):ENDIF 1780 ELSE :? "You aren't carrying anything like that":PAUSE (75):ENDIF1784 EXEC ITEMY:GOTO 1291799 ENDPROC 1801 ------------------------------1802 PROC USUN1805 I=21810 S$=STR$(ITE(X,Y))1815 WHILE I<=LEN(S$)1820 IF VAL(S$(I-1,I))=P1822 ITE(X,Y)=ITE(X,Y)-(10^(LEN(S$)-I))*P1830 ENDIF 1832 I=I+21835 WEND 1899 ENDPROC 1900 PROC LTRIM1901 IF A$<>""1904 TEMP=11905 FOR I=1 TO LEN(A$)1910 IF A$(I,I)=" "1912 TEMP=I+11914 ELSE 1916 A$=A$(TEMP,LEN(A$))1917 EXIT 1918 ENDIF 1919 NEXT I1920 ENDIF 1930 ENDPROC 2099 ------------------------------2100 PROC START2101 GRAPHICS 24:POKE 731,1:POKE 709,0:POKE 710,0:EK=DPEEK(DPEEK(560)+4)2102 OPEN #1,4,0,"D:START.DAT":BGET #1,EK,7680:CLOSE #12103 FOR A=0 TO 13:POKE 710,A+192:PAUSE 2:NEXT A:GET KEY2104 FOR A=0 TO 13:POKE 710,205-A:PAUSE 2:NEXT A2105 GRAPHICS 0:POKE 752,2:POKE 710,192:POKE 709,02106 FOR A=0 TO 3:? "":NEXT A2107 ? "This is based on a true story not a"2108 ? "legend! ;-) Dratewka the Shoemaker"2109 ? "was a boy who lived in a small"2110 ? "village close to Cracov in Poland"2111 ? "during the middle ages. One day"2112 ? "a terrifying dragon arrived in the"2113 ? "town, living in the cave at the"2114 ? "foot of the Wawel Castle mountain."2115 ? "The dragon began terrorizing the"2116 ? "people and animals in and around"2117 ? "the town. The fearless knights were"2118 ? "unable to defeat the beast head on."2119 ? "Dratewka himself had no weapons but"2120 ? "he used his skill and cunning to"2121 ? "kill the dragon. He proved his feat"2122 ? "by making shoes from the dragon's"2123 ? "skin! "2124 FOR A=0 TO 13:POKE 709,A+192:PAUSE 2:NEXT A:GET KEY2125 FOR A=0 TO 13:POKE 709,205-A:PAUSE 2:NEXT A2126 CLS :FOR A=0 TO 5:? "":NEXT A2127 ? "Now it is your turn to follow in"2128 ? "Dratewka's footsteps... Happy dragon"2129 ? "slaying! Later you can visit Cracov"2130 ? "city and the famous dragon cave."2131 ? ""2132 ? "Story by Kaz, design and program by"2133 ? "Scalak and Kaz, most pictures stolen"2134 ? "from different sources by Kaz. Thanks"2135 ? "for support to Tezz, Mono, Larek and"2136 ? "Jurgi. Atari rules forever!"2137 ? ""2138 ? " atarionline.pl 2008"2139 FOR A=0 TO 13:POKE 709,A+192:PAUSE 2:NEXT A:GET KEY2140 FOR A=0 TO 13:POKE 709,205-A:PAUSE 2:NEXT A:POKE 752,0:POKE 731,02141 ENDPROC 3100 PROC THEEND3101 POKE 53277,0:GRAPHICS 24:POKE 731,1:POKE 709,0:POKE 710,0:EK=DPEEK(DPEEK(560)+4)3102 OPEN #1,4,0,"D:THEEND.DAT":BGET #1,EK,7680:CLOSE #13103 POKE 710,192:FOR A=0 TO 13:POKE 709,A+192:PAUSE 2:NEXT A3104 GOTO 31043105 ENDPROC 3200 PROC LIGHTON3201 POKE 710,2:FOR A=2 TO 13:POKE 709,A:PAUSE 2:NEXT A3202 ENDPROC 4000 PROC LADUJ4005 EK=DPEEK(DPEEK(560)+4)4010 OPEN #2,4,0,FIL$4012 BGET #2,PE,12804014 CLOSE #24016 POKE 704,D:POKE 705,D4018 FOR I=1 TO 794020 MOVE PE+I*16,EK+I*40+2+40*20,164022 NEXT I4024 ENDPROC 4100 PROC KOMPAS4101 EK=DPEEK(DPEEK(560)+4)4102 OPEN #2,4,0,"D:COMPASS.DAT":BGET #2,PE,1280:CLOSE #24103 FOR I=0 TO 794110 MOVE PE+I*16,EK+I*40+21+40*20,164115 NEXT I4119 CLOSE #24120 ENDPROC 4200 PROC DUCH4202 POKE 559,624204 PMBASE=PEEK(106)-40:POKE 54279,PMBASE4206 PM=256*PMBASE4208 FOR I=PM+1024 TO PM+15364210 POKE I,0:NEXT I4212 PL0=PM+1024:PL1=PM+12804213 FOR I=53 TO 1314214 POKE PL0+I,2554215 POKE PL1+I,255:NEXT I4216 POKE 53277,34217 POKE 53248,564218 POKE 53249,884219 POKE 53256,3:POKE 53257,34300 ENDPROC 4305 PROC ZLAMAS4310 IF LEN(W$)=0:TYM$="":ENDPROC :ENDIF 4315 I=1:POZ=04320 WHILE I<=DL AND I<=LEN(W$)4325  IF W$(I,I)=" ":POZ=I:ENDIF 4330 I=I+14335 WEND 4340 IF LEN(W$)ުNfOOANĨ<<>STRCHRUSASVALEADATCOPEESIR NFREXLOCLOSQSGABINPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5&6(+8,<Xgk`fghilm^deDѳHc?,Ќ,е,Y_ Ҳ+7,/01 2!3"4Ɛ"-"."-؂ٿ֐ːhĐאŐbj+9,+;, ʐͭͭ@ABC\=>[<+:е<,&%rvnnxc<\-78s_XV+@D&0d*"i'2GJh  NRl~&2 +饰(+VWZ]a8`L`  ¤ħ.H h L5 䄡𛠀 䅭 bɠ04Ů .ŭ%)j e拰 ĩ L+ Ư0 Le`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :7 8 Lbԩ- L 8 8,kI ɨ 8L.UH `ƨh $ %3  + \L L 8󅯩" ¥ 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ L<>EO ƹƹ0`H f5lh`I&`=?FQA` L񄳱ȱI 䦐Ħ Л ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅH h hhhh ȱIELZ Lm`ȱI Hȱȱȱȱ , h @ $L+L.*ȱȱȱȱȱjEEԛ`EjI`e`ħ ¥0 ` Lk 䦪`!𛦨䧰LnA@L`I&`L ©؅ L.0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #ԤLQ #LLei`LoԑȥՑȥ֑ȥבȥؑȥّ``䈥剰#)iiLɠL4űI&`048ץğ=ȱȄ `L L0e拠0ȱpȄL  䦪`!' >?L (<ж`!Л $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ`,,L L PQ 8q,L ȱI ѝȱ`ԩ,L EЛ $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g 0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMrEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOTRUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?s>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0` 0LoH - . /h &@Յ՘JJJJ X)0:i`AVC2t sŠ 5  <)  < L L +㛛e +e`e`&&&&&&eee` &&eee&*`` 兙 䦪!0 4 ۄܱ **mu ݤܱEۅڦڱ= ܥeƥiեLN@ `**)]` 00`` (((((((((8`W)ߥ&ߛ&eߛ&߽řِ׼JJJJ&eXޥeYvߥ䥛 9 FfЎᰈЛ `  M8*` 兙 󥐅i祣L{ &L  0 & L ȑ & L; # w)ȱ L )ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ```=`]``` E߭H Ġ} hL±&Lvx`[  ȱ R]  L L  䅠 bɰhhğȱȄ Ll"0e拱LjLx`)ȱJJJ```=`]``` E߭H Ġ} hL±&Lvz"2*&":{yx_@ <x88>0^~ ??jPU~5U_*UUU~UUU???UUUU|UUUUUL @ 80~~<>x>>   } @@@@!~@@@@"[__#߻߿o$w^]߿_o%m__wo_o[}Mǿa[Z&+S1{>~@>>կ%!o{V'$??H?mz#[?aN?Wsw??(?/߿~m~7tQ_?޿^W~{@ū'{뗿?/_?)owx}=1~?=;cc!>o{~_|Fk{|Uо|ݿ-?xϘo@W*[]??x_n?x|O{W?x?pGW+>>x; `_>>xsOa?9_>>|x'aowm?{}G+~>88`O4P?8p  <?p|/=|ys{zk7?~K}tU۸,v#_[߿~;A~G_ջ@zW-~jߏ%g}{-J?Ͽ8'}7@oo^+_d7v&Mﷻc#$.?ifl,*3#I?с 0!>c2^?xcgjGoc OqU'z_cc eoW'.Rc,9%J0c#wID8xÜca9`#89>xg7-~?o>0Z;P:?V/4Uw?-(5o??Yu sdlcmn>wa ;?A t{]LOR<=9G}y>p0C'>rDvW 8pWA??j?/|@???/|A??ZBC)SԀD*@W]m@P-Uy@PEZwo60!j6FP$6IWPP$Wj_n@EYY)kZG`u$)klAIi(PkU1Ft@+@H@@APB@ }@0׺h2gPHJQ5P*7EMBI([U]S.Kv`(ݿV MZFj@@*lݪ%m"dۻU@J$UH@Ik]D!V(}[ $+=I!ERXI$TJuUERIK*U[K-ڪ,$*"U@Re*UT2DT""QQIRP)$6]UULfRJHDjJHHUTZ@U$Zd%%WQIU:JEaJ"VZT IHZ%)QJ2%MVUJR&ȩY$"DHɤUY*D$TqDV FjVUYTM)U*URP$QBUUVDLZ*NIJ-J+QKT@HBRRRRTJD(*+iZ)JQa!1P) PLE$FJD%BvIR=蒒ؔDJOIRU $")r(P*$R~IT $P1IZ@"X(OzEzHQ"BYWoUP~ؿoQP*>BT ^յ5Q# JR[Va".܀Yi@"QUYUzkZݠ*Ji_"ZV}NQ\YJbD_*VZVZJRlթRTJZVmZh]YjZU,U,EJRj)*\UJAJURUjD*iU*vS$ŮTI"YU*VRZTj) UPURUEP ZSmf%BI HU"R@HR ""!$QH Tp?xUx<>Vxx0g0pW<<???s?xx?8x=8xX=8x<<8x<<<<|(rUiSoT@YH*\5!rZĂ$AT/YZ5 @,F4'IekN/J6{+I4N= $fʻ#$]ֶ\_j%Hw=s_ЫΑFo"d/oՍwڿu{& {\O_@ ?'ײIel֕N/J6{+I4N= $fʻ#$]ֶ\_j%Hw=s_ЫΑFo"d/oՍwڿu{& {\O_Jm_USRVWU$#q뤜 *ʻ^#nu]{VoQUU۷*R{[%U[muww}JRڮuQJZݗUu&5:}w}ʭmumֽ~)z+kwmumkUoof޿_םk_ݵ-{v]wڶۣVk5_em|]m^^?nm]KUU^?Ummt[m˦u7{bJȯ]]IjZ)%B/RkLkT~}q]ڪwVl7uZTޯۭz]ݿj[}nvUb_kUN\ޯ]"_W.wUqPe >[u)oݭRoҾʿE~M}ubgK^Mnʯo}骫ݕl*ݲZm)oUU!*nnwwԄoJ[wU)*׿ߦg}I\Kjz׭򲿰Xb[RJ-lnյVHjRH$[C۷nRjڬ%UO*M&Ruj"3ZղhkoAJ+eQ[Rڜv^j7+`KTԵ\A5@{'Jp-vN([56+UJtҽT-Wj"bRnm[DD̄JMR)9T߿ &VUkw~I=_A*w*p UQ)SJRVB_@^ӫݵҷʀKZ5VmM[iUW{5W_w*qmV)@EQk|j{^UKn*:@ ^VֵݱjQ-Jmwݵ@$ҢwJIQ]Zͮ*\jrwJUjn_kHVԬ4P "jS^LVVXmwMZN^^ZVWVR"騥UR{_~QrQVUV)@EQk|j{^UKn*:@ ^VֵݱjQ-Jmwݵ@$ҢwJIQ]Zͮ*\jrwJUjn_kHVԬ4P "jS^LVVXmwMZN^^ZVWVR"騥URsm[۷ڪ}v~wom몫o}~ݶ޿{{wݷuoݻow{w}z}{۷k}~v޷{no^ݪnwowt]{~owWު{von]n_߻ｿzU[w]{Wvk~o]~{Uۻ_z]W{vow~~j_Vݿu߫U޺jz_Zm^׮wfvUuzoTگeqU%lUZu&ڊl^^ݧuUv۶Y+lZͶʦ_]Utmu]W+`E[U]]U[rz4۪I^k+v I)CnUu{wQ*Bu9wDIJ IZf*oڕ&$fWjg(@BPCTH݂YU&BE;hRb$vT)ڍ[&A (DQ/6"R"PPիJRMKM(TRISUTAVh!$($UTTVDBe BIIA@B" TEEeB $R$Z$I PId)U% HE")*TEBH$$JDRDE P$R!I$HBId@U"EP@ * w"IBTDDDB((T"$ ( RPATE"()AB(QR!R@DDE$ @(@DD@d BEBE ("AQ@!H@ HLB(A2IHЄ %DeRH! "D!D("BVRH"LAD PHDDxD %2$UIBI"HEH((T"$ ( RPATE"()AB(QR!R@DDE$ @(@DD@d BEBE ("AQ@!H@ HLB(A2IHЄ %DeRH! "D!D("BVRH"LAD PHDyDD %2$$DRFHWҐIDU)J!Z+5%ZRViȫS*5mUKPMW;VnQ)JRWTȃ-QUJ5SJ%*K]UM4JJlXJr("QC2TBFDjZ,WF$R(4RiecKT\$T(%KPпL&TՒJJ0h}T4|T*NHk}$UUjPAz,QkTh*ԤY$qEFxI*V?kVJ)ԕo@TDU)6Ҫ+ݩU*j&ͿU{VdHR~e[ViWUgK-D+nZR_[je%l*]jl$6Z%*.vqK j*}eZYMUn%/@tjy%UiUmP%_uv]~TZ5^?Uf+Z*&)^դDZ)ҤR[U5>*V?kVJ)ԕo@TDU)6Ҫ+ݩU*j&ͿU{VdHRe[ViWUgK-D+mJj1QUU%UU*) %UFUJHWmRJRUUI&%sJUiU%RUI&I3ZfUJMDIITJ%TTU)*I,rj*EAUJlRͪu"X6E(I]SU*R)S5j2NU*-aTJ-DTU)jU*J_O-)`ґhU5IUVeZJFC&ʪ̭ZY*6kJ&UD$%RRڲQ)IR*յjmBPBLHUUkiAT%*Jզm%1D$IUUm{Ui"*T"UIU+jªЩEdkU]NմD$Z%$++ki9TJ$BP[kJ[YMR$J D:h)*PJnVQ% k$d󟮮RX$URJoT=]hI+%R%*RTDJJTڿQ;Q))KL%RnΥ*ĒT%ER)\˺:E$RT"oOJTJBIUWڤzjF2-n7F%QKUEJET(ZjII/T mHRVAU(U[Hzf6$CJP(bAE\V,JUBU2&- ZݪU@UTl 6a*Q2Z%*Y@O%JELBU$ת@]j2UTI\@{ȩ) +UhJBqKRHUh7TU*$rj*kʥE$dluTSTRU:jI[jե(*RյUY1*URfJ*$ YFDWdպ aER"TuU"ҬAWH[eVM2j H;T)ZDDlRj"Wf(DhSU]ue *BT@UUPJ*[tzY6."ɊEaծTW[2zҥYzWUw{E+%MTl֭SYOۤүVӻZUUekV'6TVmKTi)+}-UE۶UbSVkZUUz^cW%]wܩum-^7ޫ:쳶UVtZ%mj[VK7۷wmJRmT.Uv_SվqJ]ڴյjZi޵Tku՛j+o]WկevT*UW^Zn[W+ L]UUvV[5WYOۤүVӻZUUekV'6TVmKTi)+}-UE۶UbSVkZUUz^cW%]wܩum-^7ޫ:쳶UVtZ%mj[VK7۷wmJRmT.Uv_SվqJ]ڴյjZi޵Tku՛j+o]WկevT*UW^Zn[W+ L]UUvVmw{won.իz&]_^_D}/v~_mkڿtq/[ɫUF_~қ;_իOﭻMַme,՗U磌￿73^ϛY tRtW]T$Ok[R9fVzv$%JɍHR[9o[R$:_']rJu߽HfTGu_hGJ_gʈ$v"۠eIEzJR"I#K.QRTi߫ B!!ԙ!"nw*@H [J@HPbz Amݿ"joD(@ %o_B )EwA(B(!B)PA~@( Ro} @@! I!Qw @G]B jA B@o{U@@$ֵ$"*!@)JB*ֵ($P @@AHIU)@!B*RQ @B@% *Q&IRHIR AiT(%%((*BإR(BQUjk"JU@ NRI4Rja *iHVKE*@S*S$RU Ut%"\Br)TZR!MESvjJRʲ%\DMjD%ڨ$P @@AHIU)@!B*RQ @B@% *Q&IRHIR AiT(%%((*BإR(BQUjk"JU@ NRI4Rja *iHVKE*@S*S$RU Ut%"\Br)TZR!MESvjJRʲ%moJHٷQTV{*9u2o)SKUHԒTUoz%IqvղHu?ҿi*eYdmے䈟DJR/ו5)$Jeڢ(IRBd_}$3mmTȏڪ))$"/}VBDBIHu*߽!"@(aU*JHRV* H_v"%D0Q(?w}E"E2AD$Un{U@)EH@!!#r+BDB%L7ڿTEH3~Z$QDuڿJʢED!BwoZQ5W_RQEA!kڪRT Y_zUHEIPU~j**@*fݻUL{ݷfkT*)u6ڬ@A EBKZuuQ2BkJDP"R]TXv(TRD zj% ܪZR2H(AJ+uj$@JVԫݪʉ$ "&VTRH YUT%Z Un۷j!"H$Zl$ D@!TnRPD!EZGuUI%D:Tj! EZGm)" HjURT$"GZ+J$ BDjOT*)@$I+J@B@URRUR!JI PPJI%RTE !*TjUJ$$!$JRHB!$ %J*-JBDBUTt"$!$YRrR@A"$UUT* Q "KZI$EUT*$ RҚd@@P!LdI$%QD0jIR *"H*$@*RUZU"!URRUR!JI PPJI%RTE !*TjUJ$$!$JRHB!$ %J*-JBDBUTt"$!$YRrR@A"$UUT* Q "KZI$EUT*$ RҚd@@P!LdI$%QD0jIR *"H*$@E@VZJU ![*K"6HL*ZU&!@ReHTP}_B|uTEQ$իAVH@IRwʔ%UR)i%LͺAHI BDچdV$M-}zmTPjR%Z$ BH.EU(ImZJjolu-BZ$IVիZEQ%0ET*%VHERU+[WUuEUvUm5kd %%T"eUԉEHHU[ve5mM*$RUJJUU$R +mTbH(UJUQw-R;uE V]vvhw$Mdղ՚")͵jүm5]"U;R_MȤJmʻT4߳IJ W5fMJm1[ԷI@!oj[UM]RK-Tuu.mUbDWJ]֭R'UT%hmWoV?ߪ*_Tju*B*U,U[*UUTo]7e@#U\U~ڪJE$R۷u^uefʩ]UTmJjJ)V\VUUU6W'ERRmWVTMUTS[ׯWUTTtBJukV#22[6[URXT*DBͶ֤UJ(V[m}IZ)Jrz֖V*J%2e/K}m[JDEH=wҚ%*kӭeIbRDHA$kmޮR )XJ\nێ`TJBB]Sۿv!76kP$ )[[֭PI-JJBRջvYRDB;kսE_պbj$)"JtmJFueHom*b *X$_ڽZJ@@EIuujqVp[7UUV-AF$n5כ((_ږUUVBPBU_u{IS*%VeUjD IhʪU)*UW–t孴U*UU8!ZJ[ ׊%UzU*I%4JH( Tv֪Kk@TUT_պbj$)"JtmJFueHom*b *X$_ڽZJ@@EIuujqVp[7UUV-AF$n5כ((_ږUUVBPBU_u{IS*%VeUjD IhʪU)*UW–t孴U*UU8!ZJ[ ׊%UzU*I%4JH( Tv֪Kk@~O]Ֆ-_O%l؇^aMZҿK(BV_*wUaQk mm*z% V&]v:Ubӿ/`˛]uoV7wRS=uUOm׶`Uh,lO $WJ[" -$M ZZPZjV|@ կA]Uj!U#*)HZMN2D*3l*dF}V"K TʧTWա)ԆZ:kCbfP/KֺKjwX]_V5PWKSKU{ 5pUY P P!PRwUQAR%R5%?J-4xע(P WqRU 2$x7!EOPF {,PQB{9A0*x*%BvD=aAJi݀6 dPkD$$C'(5hI@m%DA@P(@IXY"@T6 TVbA!((*yu^ 9ERE_"$H& gU *4ۭƯ%*YTAS!(J"HKRnH]P )URv "+TJf)T ;@UB)B>"M'R4@  !f(J%ah/@0ژEEjie)Nު@7ut@BY:4Z@mE@+bRaAUEÂR T+ik(mD$U(BAH H Z*THDJTAS!(J"HKRnH]P )URv "+TJf)T ;@UB)B>"M'R4@  !f(J%ah/@0ژEEjie)Nު@7ut@BY:4Z@mE@+bRaAUEÂR T+ik(mD$U(BAH U*U%"@DH@@sn?D"?(I?0HJz"J %aO$I%A[R! A.J?A#"￿DJ?P(h0)kvvZuo ޝ{Ψ߻ w{G?E_}_zB]_ݻ J߽on_R]iկ {ݽU^ k~{ջ >w{U$g@ȕoקL h/}z޵D0R1J׽uRDQ }T )Mz{RBWU{)-]yH/{UwvOu *z YMpD)^ґ=LUi$"){mmVxDC]nVj$}yVA]WjUP%_"V@V^vX*~WF VժwA!-!D긄$ Bj꿯r+_jU̔BBz߯q# [zڪxw!3@w^ޮmu-o^W~*Q) B!WTRvzzBT^׷J"  5m~mBAwɤH5"![TH"6"D$*$&J$"PKV$ "@IDI"Q%RP"T)H"(A$D)B HҤ @URT"ZU0R(P$TT E%@*K) DQ$REB"PH!T@`U$@ B+8)I(% @H$TBVB@I$%D E"RdT+"IDM$H@EFJMAE(KV$ "@IDI"Q%RP"T)H"(A$D)B HҤ @URT"ZU0R(P$TT E%@*K) DQ$REB"PH!T@`U$@ B+8)I(% @H$TBVB@I$%D E"RdT+"IDM$H@EmmUUBUUVjmvꬪ5Win۵[Y@UZȜYnh"#ZoZjSjMmUNiڵݵiT$U[]m3kU+2sZo*Q El!ZεU۪HJіm޶t$,SU|͵UTrW׻mr('[ZBI(w;ko2EAnUDB )[Y[VyT(P3{!HBJmU2(V@(OKjdB ߶*@D![Ԕ3nm"D M@AIJ%t qD!%E- (D=]tQ"BEvTA@PR[m!Q(p@!$?H@I -n THPPJ/%hH'@DJRJ!U(%m{Ԭ$@H6R%]6R"mB@5MPil=iZQlTU X, ma*X@QAn$(JYTZY(H>EJ"J"P(-WCAZ5\ʂ @mJ7"KBHDoIV%RPHQI@KdDXAB(S鲨EYD %R2dQB$TgɤH!J#UǷ"UR*PA @NH("D*(.A`LTE$-*H/݊E(@Dv *hқKuEօA /]`($9@X ַD":UU("-P @ UQTl@U"B%D[{B%% I) ~H&B@ VZmUȈE)$EZ*{JDYJH$T֗H) 5)n!D-JDB TUA*R@)R"D(H@9I0@!(U)TWB%$D_"$ TQQT$ȑ!@PU[7(JJQPDP "U *RARUI*JPD$I**TRE"$DDD*P! PT2Q@) %$D"DJ" %@H) 5)n!D-JDB TUA*R@)R"D(H@9I0@!(U)TWB%$D_"$ TQQT$ȑ!@PU[7(JJQPDP "U *RARUI*JPD$I**TRE"$DDD*P! PT2Q@) %wvD@w]UUUUUuH u"Pk^HPվvT$!믭UUUݼE(Hi(QATHmUB(uuH)HR$W[В!@ n֥$)Eo{k}I $"mkJ(oRd H"uo}mp()"H(%[kHJ(HPTmmTD$({P)$$A$BPζBA("t"-H$PBQBE$Ht%B(D QEPA!AFP@(H!%A$%H j @PD@HBA!"K% PPE P$BH%(@IA(EAAPPPBP@!@(RATAH)((@T"BAH("TAB!ID*@@HJ2@@D@J!RQ@I!$P* H$ED@(H@T*R@@!RA*"DB@BHHPB@dDR""A!$!T$DQ AB"" $E%LD$ HBH@H$ @@)"@"UH!BP@)I"!JR") @B!DBD(ePIEH!(JARS$$@P!"IeIE%H H()JRH "d&%B T$(@DBEI)2 @"D"RaDDJ((" @@U$PE$@DDdI)I"D DT"0D JTDERJHBH* $ $P$H!2(@@TI"DUE"P1IT"IQH (D $I"LDSK%(@P2$(RJB@%D*JT "H@Y&EJ$%aT"RaDDJ((" @@U$PE$@DDdI)I"D DT"0D JTDERJHBH* $ $P$H!2(@@TI"DUE"P1IT"IQH (D $I"LDSK%(@P2$(RJB@%D*JT "H@Y&EJDu)6U5[A@YߺҒF UUץ [+B*oj@Zĉ[\Wՠ Ė-u!R׽B R+۽WŠ@kfZuRZ뿓t bNUgJua,pU#Kev–)-D蠛mURAEgu!TR"-TjJJ"Ueb XUR$&-FE%IUUTd[(R@EoAR#$Yb`U{oU;AU5^`@jJ@$U[窂*B*D}p(RP![ZJVE*JT`$%i`@E*Zk@TEHPWXBUp6@F&%*E*@RP@@"a#*Pd a!R!P!V BP#I+JITBRJ R$!MDHB($ BIP)@@)JT" ((H *$B-{ @@(l@`$9H /I bHH$JHR%E@!@ iZU(+!.)QWh@5V"@ &VeL 7Q@EiE8T4TBAi5l@+H%I)TIl2Jҁ!TR 9EM$V@$J@EY !QjP&JPRB$$TJ*HJR29T &TP@P1PATT)QĀ$ CJB$<["$h.IDRQuPABvTb2D @XT"A"5EO $( Q"!9TH  CD<A*@@,H>ĐI᪀! DJu` k@ "HPȀBc@sHHRFP (H42">IP@-HED )lAU@ BUEBT@a"$TX@  !T!(@A@ EO $( Q"!9TH  CD<A*@@,H>ĐI᪀! DJu` k@ "HPȀBc@sHHRFP (H42">IP@-HED )lAU@ BUEBT@a"$TX@  !T!E@!0h aD IPB4#Л !`Sh` D"AP±4a Pch`@a(PCP Pp0Ҡ6a@ C`C($A0QP@$HVa!0ک*C@@EIBQH HPQ`(#Ha PC$H PA@a4R@@A2P(MH" `QP' PDHPBI !a`Pb`RPCTK@H!T1@S *D`b0 KVa@A(S`h@BQPRIJA B!P P!Q` R*AA0"0D KBQPP@ X`AP0RR ``D+DaP2D A  @QP%P 1 P&Q@A) pA D#`80!HR% `&%@(0PA @Dhpʀ(  @A H0PI(C $! 0PQ F@hP"P  AP % B( A!@ B0hBFP @C dB@P`RD (P€ P D@A ( a$ ! PHI"("P 0`aP@@D HH@$@!B 0Pa@(!@!@""( h@ @@B@@D@H! P APH@ @  P"@@@HT @`DP(  @! PH"A "H P!AB@D$( "@@AP@H*H@J@@D@P !"B BI DUQA "1H EIRA@ (AHEA@( B@@PIPAP H "H P!AB@D$( "@@AP@H*H@J@@D@P !"B BI DUQA "1H EIRA@ (AHEA@( B@@PIPA%+EWw}~nP{ۿ&BI[7]nw !5ABn Y-o JJX?w$2{J_07{{w & oz]K~Vt$7~]~k +}oϯ^S {U 7IX@P_ۻ24 )>wՊH $Fd$BJ(P.J׏Gw2"+Q~߿DD&o}e"Q\ݿz]j"TUߢVJ$U_j>YtTB)UV* #YD UU%("JA$jVȣ)BI$PQ+UHJBIFf&U.D: n٪R!$EBK`wwITUmVͬ!"DQ*IJ -[SJ@H"D[UEH($.mիy TA5m{vHB "KvmmݵtU*Ͷn(@*mۺa(!UmmVvZBmֽոHUm)-{od`"! ([zԔ@AVURkEQ@%Y]%ԾP "VTK-ՠ) Q)Y]$*PJ@!U&TK,բEJ$*ZB% $IIE*եDJA@RJU**UZ*(*TbDRAAEDRPTHI+)JZSL"5!1J*j QI5@LD&D!@"T@$) ,$J%I#I"UE$ XHTTI2M2$ԉ4@$$ HDE$I%2HA@"d$IHZDH$IED) ("d$$I"DB$"II4!( """B@"$AIA!"HR H)H%!(@ DAP)(HJ (BB@"($%(5@LD&D!@"T@$) ,$J%I#I"UE$ XHTTI2M2$ԉ4@$$ HDE$I%2HA@"d$IHZDH$IED) ("d$$I"DB$"II4!( """B@"$AIA!"HR H)H%!(@ DAP)(HJ (BB@o}{]j}֭߯fw^7uRw_w׿[{}Uk{޽Uu_ݶjm_oZݷWw]U>~ܩvV]Tvw5ݲ횶DVSo]ꦗu]Y&-x*6U|ZkkuK׻mm[MmU}VڥjV[ګuUmd[]jZTvsZ2۪b޵nVz}kRUkU{ngkTnoڬUٺ\ޫ%SltfޮU H@ B @ I@$JA@@@ $ @I"HBvIUDJ(!ɶR  @@5UV@ D*][n蕨 U5UvUZU2ꪉU-T56WUUvRTUTUlTj5[*UUVRDTUk**R+5]eUZUE*U{*ʪ-)JRUUR*H֩RH,R0kUE*UU)Vj2*AUV$,ZT4PPJUi**H ,HuDUjSRhҤYA!*4%YR*#IRJBHJH*[I TQ!JT*P%*Nҭ U%԰% %Re J%K TRjJ$ԤIIP $ZR$R@! bRI@,E2DE5"JR DE4"IH$AJ@@@H "$  @*#IRJBHJH*[I TQ!JT*P%*Nҭ U%԰% %Re J%K TRjJ$ԤIIP $ZR$R@! bRI@,E2DE5"JR DE4"IH$AJ@@@H ﮭUUWowj{muww}^oWUUWnwuڵw_uUwnֻwuﮪ}_w}^]w۷__u~}}_]oK۾zw^i߷oM[[?{u5}wu{Jk֥wV$޾r^=e׺uH%$JBotTkzA"I"TBUYoRTHRVQ=I%[JJ(hb(DȦYVKU$DBJQEmm[("#ZZNA@HLEmmU$*T[5j(CVA@D*JCUj4*T*i H%@PeeU UUj{|ݹH*Bj*۷b(RUR%WDU„j$,m6(*UZR@j`kTD}]ZH dhe$ TuXR~֔R@+^WC "@ TjH @5%0"@s.@{RETٛu~bq^Ȣ@uժ"2pE_eT%퀋jZ"J'4ݵj @ *Z!۫WY&B @V*DBP!,lZĒ"BMj),ENB%JA"H`LIMj$D (PI  BVAmj "@B DHR*1h"ESdA A"HD PAT DDjq!$DTJ ")PD AR("B%@ Z!۫WY&B @V*DBP!,lZĒ"BMj),ENB%JA"H`LIMj$D (PI  BVAmj "@B DHR*1h"ESdA A"HD PAT DDjq!$DTJ ")PD ARUUUVmUUUUVmUnmVmVۭYպRWeUZe2ֵewjR;k^f̵U]U)fgjIK\ֵz[J*%UkjUJ-6ݽkUC%mn!fSknԪIZ6ڶJakܮկ֥%국Z[y]ZvaRZkncVlZY=VޫZﭷ$)Y*CwY*){mIWuk/wUQ*VRUK{Yj+uֵ`mRohm{vHBmmZ_dݶڴPjvI!%mjfk{J5TjR0jK%j>J¿S4ju /JcU4Uˊ׫*[jV=WH ?mR]UR궒IHr("7jU2.mWURaWJU*$U6!