NNNNNNp NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNNK,@`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY]_a c@e`gikmoq s@u`wy{} O` @ ` @ ` @ ` @ ǀ ɠ @ ` ٠  @` @`!A   Aa!!O%a')-/1!O5@`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY]_a c@e`gikmoq s@u`wy{} O` @ ` @ ` @ ` @ ǀ ɠ @ ` ٠  @` @`!A   Aa!!O%a')-/1!O5MEGAROIDPRGt BROWSE ARCt 0ګCHECKERSARCt [STTALK ARCt RIPCORD DATt tJOURNEY BAS t FSCRATCH BASt tBPOPCORN PRGt ;STBATTLETOSt 5BIORTHM BASt -BLACKB BAS t #RIPCORD PRG#t  CLEWSO BAS&t #PACHINKOBAS(t +READ ME +t 0= MEGAROIDRSC-t 3 `mZN0NWNWNWN]NN6N*O*m - ЭЭм!"ҍ¼.A// Bg?<JNA m"m -So Q m -SBQ(m)M*mN lHhNX/,?,N2\B@NB?<A?<NAXNuNV0,fB?<NO&\9|N^NuNV0,gB?<NO\BlN^NuNVBn n l0.RnAr0`9|9lHlHlHlrNZ N^NuNV=n=n 0.n =@0. n=@Hn?<?,NZFPN^NuNV0,[@?0,ΐ| ?0,Z@?0,|??<NNb 9@BgBgHl?<?,NO 0,А| ?0,ΐ| ?0,Z@?0,|??,?,0,2,HA?0,2,HA?NM0,А| ?0,ΐ| ?0,Z@?0,|??,NM HlHlHlHl?<?,NN*N^NuNVN4?<NNT=n=n =n =nHnHnHnHn?< ?,NM0.gX0.gRHnHnNOvPJ@g0.S@?0.S@??.?.NjPHnHnHnHn?< ?,NM`BgNMTNN^NuNV/ 0,g ?.N&T`N0,f nf`l ,&@-@ nfTTBnBnBnBn lRH=@ @Kg nlN0.D@R@=@0.nBn0.nl& lRn0,g0.| @fTRn`R`L0.R@n0.R@=@Bn0.nl* lRRn0,g0.| @fTRn` nHmlBnBn nl"BRn0,g0.| @fTRn`Rn0,g,0<g0.|g .T&@` .м&@-K`-K` ְ|}lB`&_N^NuNVNG?<NRT @fHl(?<NI\BgNMT?<NRT @]|9@HlHNLXJ@fBgNLT?< /,NR\=@ ng?</,?.NSP?.NLT lB(Bn nl*0<n lH|02.AT0Rn`N$/<?<HNR\)@9|0,g9|9|` 9|9|9|(CAp NPv?<NQT)@?<N,T?<N"THlHlHlHlNI9@HlHlHlHl?<BgNJRNHlBgBgNJPHl?<BgNJPHl?<BgNJPHl?<BgNJP l!l?</,NG\NBBgNI:\BlBl9|N*N\?< /,NPh\=@ nf?< /,NJ\=@ ng?</,?.NUxP?.NJ^TNEN^NuNuNVHlHlHlHlHlHlBgBgHlBgBgBgBgBgBgBgBgBgBg?,?<?<?<NE<=@0.|g0,|g`.?<NIzT?,?,?,?,NPBgNI\T``|g|g`BgBgBgBg?< ?,NH `l` | g``0,|g`PHlVHnNRPHl~HnNRXPHlHnNRJPHn?<NF\?<?</,NEP``|g`?<?</,NEbP`"`|g`v0,|g0<`0<?NTBn nl(0.AT0|02<n lRn`?<?</,NDP?</,ND\`h` |g`0,|=@HnHnHnHn0.A/NE?.?.?.?.BgBgBgBgBgNEH?.?.?.?.?< Bg0.A/NDzBg0.A/ND\=@BgBg?.?.?.?.Bg?.0.A/NDl?.?.?.?.BgBgBgBg?<ND?<?</,NCP`X`|g`N?<?</,NCPBn nl"0.ATBP0. l0Rn`?</,NC\\0.|g0,lf0,gBl`9|0.|g lf?,NET?,?,?,?,?,?,0,2,HA?0,2,HA?ND?,NET?,NPTN^NuNV/ / ???><P0,g><?<NLT2,HЁ&@:, T$@0,gTBF02QAAl0RF`0HSEf:<>$_&_N^NuNV0.l=@0. l=@0.ln =@0. ln=@=n=n 0.n =@0. n=@HlHlHn?<?,NPN^NuNVA )H`ҹ ` @AӪUҪUCҪUcҪUcҪUWW___UcUVxX}xUc{UV`Xu`UckUWׁ`~^u}~`~Uc~k{~~UՁ`vV`u`u`v`vUcnkjnnUՁ`vV`u`u`v`wUcnkjnoUՁU`~Vu`u`v`Uc~kjnUՀU`V`u`v`Uc끸jnUՀU`Vu`u`vxUckjnUՁU`~Vu`u`v_Uc~kjnUՁ`vV`u`u`vUVUcnkjnUՁ`vV`u`u`vUcnkjnUW~}}~`~Uc~{{~~UV`v`Uc`nUV`v}`Uc`n{UWUcUcҪUcҪUcҪUcҪUcҪUc ꯪꪪUT_U7UU@UU`5UMUc *h,jjj*UWYU\U6UgUUO5U}Uc1ﹹl:~oj/1Ua`88 T!44 V`e\`՗M4Uc`(! ,,jh ph ʨ 1UsӜVs6tW6sNUeYsNYY9ՕUMYss͖sUc1r*l*RjiRio˓ʩrrʚr1USTYPVS6TU6S@UeXS`YN\ UUMYNRSMUUc1r*l*Rjh Rih ƪrrʚ1USTYSVS6TU6SOeYSNYNY͓UUM9NRSMUUc1s:|>sjiryi9j)srϚsUPX)PCV6CU !@UC 8@08ՀU@8 ! UUc1Cllx8BjB! ,0,j,!   )U__WU}UUcrjUVUT5Uc*UUWUcҪUcҪUcҪUcUV5Uc*UW5Uc>U5Uc*U9uUc)jU9NUc)jU9NUc9jU@UcjU~UcjU@UcUUcҪUcҪUcҪUcҪUcҪUU W}UUUU}Uc ƊU@TU TMUU` UEUco ʮyʪUe_UVYeOSOeMUch i bUeXَVX VYe @UPcP eMUcl:rriʪi˛9jry9UeTvsWNYMVYeM?NUSSJYM9eMUcljiʪiʛ*jriKUeT6VNYMVYeM5NUSNSJYMeMUcl~riʪiʛ/jriK?Ug|sVsyVy͝9ussy9gUc (p(0†* 0†UC 8PW<T0ÅŁ5`0CUc UcҪUcҪUcҪUCҪUӪ@  ? 00x `00 `8>336 ><33038 c A.33030 c'330?3?0 a#3300300 `!3301210 b`` 33<0|x1  @ x@@ @@ ?0 (@@  T * P@]P0U`P@ f``ff` Pf` @f`@PHf``(ff`f` @f`~f`t ~`=~ff`*P@~f`~f`X`f`*f`T  ff`ff`(~`~f`4~f`P~ff`H~ff`UTH`f`*f`T ff`ff`` f`7hf`Pff`ff`}PP P* 0u@@ad0u@ ad?ah}uP+}*TڴU@?Z ֵUU wU[+W]Uu+|UW=UzUUpU`UUXUU` M_LUX j̰jUg_U` GLSS5LQUX ̰s*s`UgfUU` qLSP5LSUX`> ̦șr fg><UgqU`3 YLSSLSUXfg3#2f33< xjrf30fUgUU`3#32f O__U Xffg330~>38ff330`U_U`033~U}UXf&332b033` c><U`033&bUXf00<f0U`UXU`UXU`UXUUpUWuU:UUWUUWUUU =U=U|0WUpUp`::f0:`3uU`uU`f80 jjj ji ugUU`ufUU` WUXWYSUX jjji u`UU`ufUU`UXV4YYUX jjuU`uU`UXUXjjuU`uU ``9x0UXUXjj `a00ڪuU`uU ``x3><UUXUX jj`aa3 0uU`uU ``a33UuUXUX0jj`a3j uU`uU``a3VUXUX jj`a3 5U5U |x`x33  UUp Up :: UUWUUW#WUUUKN^NuNV nf A)H`Ar)H` ʹp@?@ c0  f00 ?f0p><  03`f`06   0306  0300>  0300  0300  0300>   03`06   03`f`06  ?f

<  f 0  c 0  ?       ~  00 20 ?0x0?<3 20 00aafaa0 0 0 <  0 !~a`0 0 00  0 !`a``0 0 00 0 00!afaa03 0 0 0 *0 0000a~a~00       0 0 ? 0 0 0 0 ?        00 <<  <0   xx<~|  aaf 00 0a  ~f 00 0a  f 00 0a  af 00 0a  x~a 0 < 0a|  @@p00003000?0< 030001`  3  a3 0300 3 3 00 3 3 0300 3 3 0~03 3   0300 3 3 0!03 3 3  > ꯀUU~zUpWX??Uvupqxp8?ھQ z( "D?uUUUp<<X2(<< "D?뿪"B(>p"`"D?}UvW`p? p8??W?UpU\UgUp ꪪ  U85UU\ Upu`6 Upgڪ1~ <Ups}UU\3 U7g=Upa>3ڪ1 s<:aaFUx5UU\00 Uu`<5Upa?ꪪ~ a`aFU\UUsUp>?aU\UpU\UpU\?>?j aUXuUV uWUVUUWU  &k j:  ? UXuUV uYUVUW?U  f ꪸjz j檮  ~ UXuyUV uWUVU\<矟U   jz jz<矚 x8UXuUV uWUVUW<睟Uꪸk0a j~<UXuU V0uWUVU_U?j 0ajΪ0UXuU VuUUVU03jj:?< 0UXuUVuVuUVU00jjꪮ00 UXuUVuWUVU00j??KpUVӪU Ҫ U__W_WU@kU\Xv5XpU`?n:>UWp7V`v`p5p6X \ U`;:>UWp7VV5p>X \ U`;:UWp7VV5pX \ U`;:>UWp7V`p5p6X \ UU`;n:>U_?v=p>|U` nU\ w XpU` U`ҪU`ҪU`ҪUUWUUUU]UUU_UU`2uW]UuW__W_U]}_WWUUuU}_w` 뮺꺫!몺뺫뮺뮾 ]]Uu]W!]U]U]]uuUUuW]u]uuU` 몺!ꪺꫪ뮺몺 Wu]U]uWuW!]Uu]Uw]]uuUuw]u]u]uU`*꺺꫺뮾U]U]U`UU`ҪUuU`UW]U`Uu]U`Uu]U`U]U`U`ҪU` ꮺU_WWU ]U}UuU]UUU]]U`ꫫU]uuU]w]U]uu]uUW]u]]]U`ꮺꮺ뮻U]UU]w]U]uu]uU]u]]]U`뮫ꮺ뮺뮻U]U]}U]uU]u]}]uUUu]}]]U` Ҫ U@ҪUӪp00003000?0< 030001`  3  a3 0300 3 3 00 3 3 0300 3 3 0~03 3   0300 3 3 0!03 3 3  > ꯀUU~zUpWX??Uvupqxp8?ھQ z( "D?uUUUp<<X2(<< "D?뿪"B(>"`"D?}UvW`p?lp8??W?0 ~0 f0   ?g0 80  pp`6 0g 1~ 3 1 s? 0a 0 0 0 0 ?>?` a` `~  &a ` 0f  ? a `?  f `p `  ~ `9 ` <矞   `p `x<睘 x8a `<癞a0a `~ <` 0`~?` 0a`0` `03``0?< 0```00``00 ``00`??KN^Nu)I)J"/0<NB"l$lNu NV9n20.| A" AA-H=| nl nR2.A2H0Rn`/,N.X0,N^NuNVA2)HA)HA)HA)HA)HA)HA씴)H?< NXT9l0<N^NuNV?<NN4X9@ng0<`0<N^NuNVBg/.?<0+ |gL0+ |f0<`l0+ |g?<B?+ NP?/+?+ NP @f0<`6k -K k} l?<B?+ NP n!@&Bk0<>&_N^NuNV/ &n 0+ |fk@ 0+ |@g0<` fT0+ |g A쓂ApA &'@`*0+H/N,X&'@ fk `k `0+ |g SR k `<0+ |g2k SR . H| g kl . H|`T/ NhXJ@g k@ 0<`<0+ |gBk. H|`"` 0+S@7@k . SRH|&_N^NuNV n Sh0( @m. n "R AH|`/. . H?N\N^NuNV?.?./. ?<BNJ -@ m .`?<?.B?<BN -@?<?.B?<BN -@ nf .Ю -@ `$ nf .Ю -@ `0.g <`b . oHn . /?.?<@N Bg?./. ?<BN ]|9@ng <` `Bln . N^NuNV/ 0Q"_N^NuNV/.?<HN<\N^NuNVBn nl80.A0f"0.A00.A0 `Rn`N^NuNVBn nl(0.A0nf0.ABPRn`N^NuNV?>.A"HTPgXHf0(>N^NuNV0. |?/.?<=NlP=@9@n @l0<`0. | ??.NX0.N^Nu)I)J)_NM"l$l/,Nu)I)J)_NN"l$l/,Nu)I)J)_NA"l$l/,NuNVHl/.NPHl?< N$\N^NuNV ng/. nRH?N\`N^NuNV0,lf0<9@9@0<g?<NlT=@ nf*0,g Sl?<?<NHX?<D?<N:X` n f0,RlA쒾 HlN.X`` nf ?<N>T nf 0.2,RlA쒾HlNX`&0.2,RlA쒾?.?<NX`40,A쒾H|f0<`0,RlA쒾HN^NuNV/ &n / 0.-@Bln n}fBB0.SnJ@gNH|f` `RR` .f0<` .``./. /.?.?<?N -@9@n @l0<`?.N4TJ@fx .=@ . &@$@0.gV Hm2/ /<?.?<?N 9@n @l0<`40,nf`&JH| fR`Sn` H-@Bln .$_&_N^NuNV/ / &n$n -Kg`Sg` .$_&_N^NuNV/ / &n$n -Kg` .$_&_N^NuNV .9@ .9@N^NuNV .9@ .9@N^Nu)I)JHl)_Hl" <sNB"l$lNuNV)n)n .мZ)@9|dBl9| n 9PN n 0A)HA)HA)HA)HN^NuNV9|eBlBl9nNXN^NuNV)n 9n 9|9|9|9nN(A)HN^NuNV9n /.NX/.NX)n 9|m9|9|9nNA)HN^NuNV0. Sn J@g6 nH| f?< ?<N^X nRH??<NFX`N^NuNV/ &n / $KA-H n}f?./ N\` -KBn?.NTTJ@f ndH| f |o@ H-@/./.?.?<@N 9@nHg0<`0,nn/./<?.?<@N~ 9@n @g0<`hRnR -@`R``` 6.ƼЃ$@ H-@/./.?.?<@N$ =@9@nHg0<`Bln0.$_&_N^NuA)H lA )HA)HCt2`2`2`2`2P2P2P2P2@2@2@2@2020202020202 2 2 2 2 22222C:22222222222222222222222222222C2@2@2222@2@2@2 2 2 2 22222222222222C2-23282>2D2I2N2T2Z2`2e2k2q2v2|22222222222C22222222222C222222222222C22222222222Cv2T2O2I2D2>282>2D2I2O2T2C2828282828282828282828282828282828282828282828282828282828282828282828282828282828282828282C222222222222222222222222222222222222222222222C22x2p2h2`2X2P2H2@28202(2 2222Cz2^2^2^2^2^2^2^2^2^2^2^2^2^2^2^2^2^2CX22x2p2h2`2X2P2H2@28202(2 2222C42h2h2h2h2h2h2h2h2h2h2h2h2h2h2h2h2h2CAz"A4"A"A:"A"Av"A"CA"AX"A"At"A"A"A"C222C222C22 2 C222C222C2p2 2`2 2W22 22722f2"C222 2222 222222222C2222222222222222C2222222222 2 2222 2 C2 2 2 2 2 22222222222 C22222 2 2 2 2 2 222222C2222222222222 22222 2222222 2 222222222 222222222222222AX)HA)HC222222222222222222?22?22222222222222222222222222222222222222222222222222222222/22/22O22O2222222222222222222222222222222222222222222222222222222222222222 2222'22G2222222222222 2?2@2?222222222222222222222222C222222222222222222?22?22222222222222222222222222222222222222222222222222222222/22/22O22O222222222222222222222222222p22?22222222222222222222222222222222222 2222'22G2222222222222 2?2@2?2222222<22222222222222222C222222222222222222?22?222222222222222222222222222222222222?22222222222222222222/22/22O22O2222222222222222222222222222222~22`222222?2222222222222222222222222 2222'22G2222222222222 2?2@2?22222222222?2222222222222C욜22222?2222222222?22ݿ22222CD22222222222@2222@22 2'22O22'2@2G222H2222P222?22222_22222C622222?22222222222222222@222222222222222222222222U@22?2222t@222222wA22_2222uD22_2222uu2Q@2222 ?2}T2U222*2*2}T2@2222;22U222h 2222u22j2222W22222^W222222222222W2222222222222222C 22222?2222222222222222?2C옲22222222222?22222222222222222222?22?22?22?2222222C염22|22222222222?222222222222222222222222222?222222222222222222222222222222222222222222222222222222?222222222222222222222222?22222CbC0<fff<|<`~|8|ll~  ~`~|0|f<~00<f<f<<f> xCX"""/"_"/"W"""" "`"+"U"""<"<"O<"""/"_"/"W"""" "`"+"U"""<"<"s<"""/"_"/"W"""" "`"+"U"""<<"<<"<8C"""""?"[h"""""""""?"m"""""""""?"6""""CC6ww6C22222C|"?""""""""?"""""""C<""`"0"" """""`"0"" """C쓂"2"2 2}"2"2"22}"2"2"22}"29|9|9|NuNV0.A=P0.A 2.A 0.A 2.A 0.ABP0.A0?<Bg?<N\=@ nfR9|?<0.2.AP2.A2FAA??<N\?<?<?<N\`:Bl?<0.2.AP2.A2FAA??<N\N^NuNVBn nlF0.ABP0.ABP0.A0|?Bg?<N\Rn`N^NuNVBn nlX0.A0g0.A02.A P0@|=@0.A0|??.?<N\0.A02.A P0@@=@0.A0|??.?<N\0.A0|?0.A02.A P0@??<N\0.ARP02.A P02.A0`"0.A0|?Bg?<N\Rn`N^NuNVN4N^NuNV?<NT`N^NuNV/ ? ,lg& ll-h ll!lh)llh)nl`BG0nl&lh)kh'll)KlN|g0NHH@6Nz|g 7|`7|`*NZHH@7@NJ|g 6`6N2|S@7@ k \|k N|S@7@ k \|k 7|7|)0,0g k`kRG`>&_N^NuNV/ / ? ,&@ ,$@><@ .&$SGf>$_&_N^NuNV0,W|9@0,g)l)l`)l)l?.<. / &ll gD0Gn40kGm(0+Fn0+kFm7|0<`"&k`0. gH0,xX@Gn80,x|Gm*0,vX@Fn0,v|Fm9|F0<``0,4gh0,:f\0,DGnR0,D|GmD0,BFn:0,B| Fm,9|8?<?<NX?<?<NX0<`b`V0,:fN0,DGnD0,D|Gm60,BFn,0,B|Fm9|8?<?<NX0<` 0<`&_<>N^NuNV no 0.`0.D@N^NuNV/ &ll g@0lJ?NT @&_N^NuNV/ ?><A쳰&H0+g?+?+NXSGf>&_N^NuNV/ / ??><Ax&H0+g($k <<0+j?0R?NXXSFfSGf<>$_&_N^NuNV/ ?A쳰&H><7S7k0+gSk0+ @o0+ S SmBS` Sl6~0+ k km Bk` kl7|?<?+?N\ @g& GW|??+?N\J@g7|SGfP>&_N^NuNV/ / ??><Ax&HRl0+gP'k 0,|gSk ko($k<<0+j?0R?NXXSFfSGf<>$_&_N^NuNV?/ ?<?<N LX0,Rg ><`><Ax&H0+gSG0g `0+f 67n 7|A '@'@ &_>N^NuNV/ ??9lxt9lvr0,Rg`,$f ,%gJRl,$g 0,|f0,pS@|9@p`0,|f0,pR@|9@p`Bl0,pY@|=@,-gt0,pA0ln0.A0ll ll0,pAA-H`0,pAA-H0,Rl @mBl`0,pAA-HBl0,ng0,n@f Sln` 0,n@ln0,lg0,l@f Sll` 0,l@ll0,nHѬ~0,lHѬz ,~> ,z< Gm)|~><` Gn)|~>< Fm)|z<<` Fn)|z<<9Gx9FvBg0.A0F?0,pA0G?N>\F@g:Bg0.A0F?0,pA0G?N\J@g9|FBg0.A0F?0,pA0G?N\F@g:Bg0.A0F?0,pA0G?N,\J@g9|FBg0.A0F?0,pA0G?Nj\F@g:Bg0.A0F?0,pA0G?N\J@g9|F0,Fg9|R9|69|2J9|HBlp0^@?0|?N.X0|?0|?NX0|?0P@?NX0,L|g SlL`l L0,:g9|:?</.??N ,.g0,gA쳰&HBG0+g Gl0RG ` Gl~?<?<NX0,pA02,nAA7@ 0.A02,lAA7@ 0,pA0@lx|60.A0@F|7@7|BBl`9|,1g4N`H@9@JNpH@9@H9|&_N^NuNV no 0.`0.D@=@ n o 0. `0. D@=@0.2.AAo Bn`V0.2.AAm =|`<0.2.AAo =|`"0.2.AAm =|`=| no( n o0<n`:` 0.`.`* n o0.P@``0<n|`N^NuNV/ Bg?<NTX9lD@9lB>N|=@0,D|fB0,g0.|gBl`& nf 9|` nf9| l@Dm l@DoBl0,lB0,N|=@0,D|fB0,g0.|gBl`& nf 9|` nf9| l@Dm l@DoBl0,lB0,?,@N\NNRNtNN>0,:g|Sl:0,:flRl20,2 @n Bl4`N|9@49|DN||(l09@BBl8N|g9|D9|<`9|D9|<`0,4g N`NN0,Rgr0,Lgj0,:f 0,6fSlR0,RfNNJ@g0,6g 9|R`20,JH)@~0,HH)@z9lJx9lHvBlnBllBlFNn nn8Rl0,|gBgBgNX`Bg?<NX0,:|X=@N?<%NT lLfSlPBn nl&0.A0g ?.NjTRn`N,g"B,,f N`,g`0,Pg ,3gB,3N=|0.SnJ@g&0.A`02.ATPf`0.A`02.ATPo4Bn nl&0.A`02.AT0Rn`N^NuNV?<NT)@/<?<HN \м)@/<?<HN \м)@N^Nu/ (x)_)H9@!A9<dHm ` |B00, l(l/8NuNV)x!A  | N^NuNV | N^NuNV?<?<?<N\?<%NT?<%NTHz?<&N\?<NT=@ nf?</.<. 0,g?. ??N \` Fl 02. DAAo Gl Gn`~0<F=@0.n m 0. S@=@ Fl 0nBF GPm ><P` GlBGF2AA l0H@<."<4<0<L 0Q<>N^NuNV??>.<. 0,g??N X`t0<FS@=@ n o=| Fl 0nBF G`m ><`` GlBGF2AA l0H@<."<0<L Q<>N^NuNV??>.<. 0,g??N X`v0<FS@=@ n(o=|( Fl 0nBF G@o ><@` GlBGF2AA l0H@<."<0<L Q<>N^NuNV??/ >.<. &n 0,g/ ??N P`0<FS@=@ nm=| Fl0D@FF@H0nBF0|@@C@F2AA l<.|m>JGmV0H@|pld|`lv6<L  0Y[0Q`nXKXI6<P0QS0\I\KQ`PTKTI6<P  \I\KQ`26<P0QS0\I\KQ`6<P  \I\KQ&_<>N^NuNV??/ >.<. &n 0,g/ ??N P`0<FS@=@ n m=| Fl0D@@H0nBF0|@@@CF2AA l<.0m&H@|pl6<P  Q` TKTI6<P0QS0XIXKQ`&_<>N^NuNV??/ >.<. &n 0,g/ ??N `P`d0<F=@ n)m=|( Fl0@H0nBF0|@@@CF2AA l<.|mN|mdJGm|0H@|pl|`l|Pl6<L   Q`\K\I6<P0QS0PKPIQ`XKXI6<P  PIPKQ`zTKTI6<L  0QS0XIXKQ`T6<P0QS0PIPKQ`:6<P  PIPKQ` 6<L  0QS0XIXKQ&_<>N^NuNV??/ >.<. &n 0,g?./ ??N `0<FS@=@0.nm 0.S@=@ Fl0D@H0nBFHBBD|lF`,JGl &<`|pm FCFD` |`mFDF2AA l0j | >YHH@|0<G<."4bFFBDØPLQL&_<>N^NuNV??>.<. 0,g?. ??N \` G~n Gm Fm Fo`f lF2AA0H@|`l&|C|G0PJn g0"ÐèP`$|C|G20AJn g APhP<>N^NuNV??>.<. 0,g??N X`p G~n Gm Fm Fo`L lF2AA0H@|`l|C|G"ÐèP`|C|G2PhP<>N^NuNV??>.<. 0,g??N X`Z G~n Gm Fm Fo`6 lF2AA0H@"<|`l !AP`01AP<>N^NuNV0. @2.AAHѮ 2<0.|a n HA=@ nV|`N^NuNV0. @2.AAHѮ2. 0<n|a nHAN^NuNV??BF FlBG G@l02A҈ A0F@24AԈ B002A҈ A0F@24AԈ B002A҈ A0F@24AԈ B0RG`jRF`ZBn nnBG GlBF Fl0<nAA/0.AA/0<G?0<F?NpP???N 0<nAA/0.AA/0<G?0<F?N$P???N` 0<nAA/0.AA/0<G?0<F?NP???N RF`RG`Rn`Bn nnBG GlBF Fl0<nAA/0.AA/0<F??N\P???N 0<nAA/0.AA/0<F??NP???NR 0<nAA/0.AA/0<F??NP???N RF`"RG`Rn`=| nnBG GlBF Fl0<nAA/0.AA/?0<G?NRP???N 0<nAA/0.AA/?0<G?N P???NH 0<nAA/0.AA/?0<G?NP???N RF`"RG`Rn`<>N^NuNV??>.<. Fl 02. DAAo Gl Gn`0<F=@0.n m 0. S@=@ Fl 0nBF GPm ><P` GlBGNF2AA l0H@<.TFNSF"<0< Q<>N^NuNV??>.<. 0<FS@=@ n o=| Fl 0nBF G`m ><`` GlBGNF2AA l0H@<.TFNSF"<0< Q<>N^NuNV??>.<. 0<F=@ n)m=|( Fl 0nBF G@o ><@` GlBGNF2AA l0H@<.TFNSF"<0< Q<>N^NuNV??/ >.<. &n 0<F=@ no=| Fl,0|=@0.D@nn@H0|nBF0,0l0l0@H0.2,0FAA|@n0.@S@=@ nl`0|@@C@NF2AA l<.|m\JGm~0H@|plJ|`lj6<02A[0FAX02A[0FAX02AS0FAPPIPKQ`XXKXI6<02AS0FAP Q`0TKTI6<02A[0FAX02A[0FAPPIPKQ&_<>N^NuNV??/ >.<. &n 0<F=@ n o=| Fl0|@H0|nBF0,0@H0.2,0FAA|@n0.@S@=@ nl`0|@@@CNF2AA l<.0m>H@|pl46<02A[0FAX02A[0FAPXIXKQ`&TKTI6<02AS0FAPPIPKQ`&_<>N^NuNV??/ >.<. &n 0<F=@ n)o=|) Fl0|@H0nBF0,0@H0.2,0FAA|@n0.@S@=@ nl`L0|@@@C|F2AA l<.|mz|mJGm0H@|pl`|`l|Pl6<02A[0FAX02A[0FAX02A[0FAX02A[0FAPPKPIQ`\K\I6<02AS0FAPQ`xXKXI6<02A[0FAX02AS0FAPQ`BTKTI6<02A[0FAX02A[0FAX02AS0FAP Q&_<>N^NuNV??/ >.<. &n 0<F=@0.nm=n Fl0|D@H0nBF0,0H0.2,0FAA|@n0.@S@=@ nl`HBBD|lF`,JGl &<`|pm FCFD` |`mFDNF2AA l0j | >QHH@|0<G<.FFD"XK4bƒDHAPHAhhQL&_<>N^NuNV??>.<. G~n Gm Fm Fo`z l|F2AA0H@|`l2|CN^NuNV??>.<. G~n Gm Fm Fo`P l|F2AA0H@|`l|CN^NuNV??>.<. G~n Gm Fm Fo`< l|F2AA0H@"<|`l !A!AP` <>N^NuNV/ / &n$n /?0,g 0.F@=@Bn0.nl^.JlgF<.Bn nl&$5F0.PV0.HRn`0.]@HRn`<.$_&_N^NuNV/ / &n$n /0,g 0.F@=@Bn0.nlT.JlgFBn nl $0.P0.HRn`0.Y@HRn`.$_&_N^NuNV/ / &n$n //0,g 0.F@=@Bn0.nld.<JlgFFFHF<.Bn nl&$%F0.P0.HRn`0.Q@HRn`,.$_&_N^Nu High Score: 000000HiScore MEGAROIDS [3][Use Medium or High Res][OK]MEGAROID.RSC[0][Megaroids| |By Mike & Mitch Bunnell|Copyright (C) 1985, Megamax Inc| ][ OK ] bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbBROWSE.PRGt  `40(>0ZTJ)I Ř 1*WH)H+EtlR 9p  ERȔ"RpQ#0fA5|@ME@@+$_Fxoy I@FK /%N|p,pF=$+A" ǐDq ȜqRɹd8q߿(ȀGIoϏ $@L ,g "au?d7ˣLh%H?~.*6--6,@^ a#:&ʢd10`"b!%?p ")C#B``"Z 2P@\ D>`>*c@bEG8`XdH %X¦xbE`(i1f :)A!oPX@$ؐ(5 32 JTBZ1uEf S$*(Pq 3R,raƔ: & 12ʑhChhPBB C xX#qlv,[/FK@/GK"i]#g21apQ"nkǴ # )3TV6 fX/@䁰F ,M$HBiK$ JR2e`Ip21X懊e-.m]Ѹ = 422=c .2D vd/9*A68@@`HX I$" g Р8<HAcZ iO{Q`3% "pXX@A  DAA#iZ,XNX4`L@q4@H! Fyo2@tS d \G-BG28R( !`e|[.xeɀp6 KoVZիrիaYv7h^I!qR'dHXL /K%)>V {TӀe@cPҠa` 0$ 0tz+[_*UʕB@zZux]aF ,@+ZV즹|7 `34feZ]wpm< @[0/ysLD3X(@ C=oo[ZP P/?BZԲhmE[pᏨq PwF egP3`oqB`t ~(6s79cC? 1jA ę3(R"g2X%b @3 h\8C!D| A 2B $)A =ր3@h ra ~s0Yw7uv8;ye1qL-mj8:a0 raj<-Mm 4oO& 45i5 쀘`׆ՇÀ Ap1Z̪d%eFRnIE+u`O,|Uk4\H-o1+f̔ޟRln1qECeP]i p1' JR !A ۋ`Z< tC]u @ktjX/BCwĎ'[*Jgka)Lĭ+@qbq93Mf~_]Q ʠl.h`i @9 x@Z29X`p}A,(-$@ ͑~j;V?0 \ f` eG}t~1f3K~SK=g H`$@ >6C73zP T   #(@t@*>R"pG2|tQjIPZprG@ 7h@& @ @',:Bc\,Wr&_wXmg urg0@sy7Vv[Wh>u{_'(cLjB\ЇX7X{r{GX-vx㉰{e&hOpvO5<UrtJS ~4`ps1?Ј~MⰍ:w _80>=}/H ~acwaJ@3gES{p`h;N;gp@a TPU} !(4HW%  YA I2~~!8syW?g7hS`['M29W-{)N H(Ri؂jYrPd5h-"WYM 405vSiR@ i |јR 4h F@ |P4U 'b! a 9Fl=HpH8W &;•ȇh kI ;< Y` xCB7vE( قvlg ,x{rS KS r|@1DZ%*jFj_+ Jh<9Z<+C?/ R99 r!S9+N2 <~!Z @j(q!a@jW-MЛ+-+c:@@S=2CF2]z +~Fxt&$sNr)x Jx,YQxPK y)*JQzENH:;)Jm,c7Ѡ ;)|e ʅ0cȫ&˚\(J 0Bjʪ`%֪9@UJ: jZJ7+;b꭯#ↆQ 3g# kp B0-5CPxl 0 0( |`<s&4\Q\WcCl \+ ϥVrx؊vCtY5Z^k~찵av4̨@`u0w*P fm @ L y yz > Sqe &PU& !```I up}{}Kauǘβ,˙ 7K;_QiVvrigSw"P:jgE 5KBAFGyh` ç  `~P00H ~p}/(6";~pp}hv ARp}cfW\p}:@VPiU OaUhPp쨦!/Rhdg{fgctGw^ןuDG6`;u8Hsu=?]':; CtGނE:Psgn<i g[w j'[-n`k>Ȉ:`tN%xfHD=`ǥs֜5vyJPvˢv#6Avr.ٰ )`wCm2iqg6.<`uRf0T@C3O@5h#J 002,YcfW`@3RWfh"vϙb,+p D#N^` p iPd ɓMhV9 -  UfP^| ޾`P mߵM2)j b6p[`@~AS@`@qP ~qD@Wb0Đ)b09$#D)#` #KC ,^# Őq,-lN@ E^P:?2-ׂp Z0M=R-ޕA#-&~|(>MC=nCM  B p}`bN7Uc`UcUy[ p& pP pPu=D>(a-T n9/2G+`-xEֈ.=P +n 30N~) @,a ?  ~in Щ_+ѠA ? {9(Ku<.1t83k;kfq<'r<"0.У@٠``ffiгԉ=m"`tAki57o< #Rv.P[c p@pʠ@pdP:U@ׅ`A@7%8?@Bmi1x#uW:B0 Ol#W97԰ K`!6$p"xC.S GP8kJ]dn`k(,2^'`*_2cVP{PF.pb U<ů c .`Yb  A2`0 Հ`i0 +qho41 #)  `(pRZPyyHsF + Nj + + gb`bbbN @Lf  `T@#f3@m@mPm@&a&G0ad@PN|@mL&vJ0%[pՀR0`GP0 @ρob ~Ɇ L OD"PyP2zC + gbp<@ + gbpb@ +g@D ~1Aװs Ns ; :@9SpG> :װs |H~):װs | ʅYʗGD>ʡWtx װ`_Y02>l ~ ;4P,C4Ns ;0=lx(:װ4Y3B0FDmi?X4@@ P3~AӠեe_`j&m6mkl̆mmm5VC qP"~*0.נuAwR#bP+dA|PZ`po/0ʇ. vR0 CPl'C lAPZ` pɤ/0ʇ. v0a[(o#ߏE o!3J++e›>0p00pRPjh S`YE o!3J6- C` C`GOX  z0ƠE o!3J  R`›>0p00p RPjhaE o!3JPc6- C` C`GA  RiߏE o!3J++mz!f9J>@OJ6- C` C`GOX  20U2 a>Nz!f~16- C` C`GF  vS`o zU2 R 6- C` C`GF  2 0E o!3JPchRPjCS` P2 ZѠhdRPj S`ߏ P2 ^hRPjC S`ߏ P2 b dRPjS`ߟ P2 >fL  ;D0 E o!3JѠ jL  ;0`E o!3J nL~  &0ʠ E o!3J  rLV  &0E o!3J` vL.  &0 E o!3JѠ zL  &|0`E o!3JЌﳾb RPjb̠ E o!3J  P0` RPj 5E o!3J` P0RPj1 E o!3JѠZ)]j S` 6P2 >  v S` P2 2>P0`RPjS` >P2 ` L>vANC( S` P2 Ѡ L& RPj(0U2 J>d  &1 R8 1|@ ASX |\PRz)Pi90ŰANtNJB?D~X[0[Oʼqb Dpqp}( <0*RP, &rh1SxH PټM.OB`c `f^3VB53J:z 0%5So ‘fiQQؠl-f rz 4xPR3u -ifE,7P0bvZ˂z pg%5S0? ‘fiQQ ˂zcbv`@7b,IA.EzgAsV؀C qP,SE ࠔ[`z! m.c\Ж ,jPi2- A Uepd6m]C霨\@:PSp j`@f.*DA6@D0@|H> W@fh? X23@j`  3 aA`d%Wz3P 4$ ρ?@`ɸ z b @p=^"+*):B+0&hd+@ʠv1, za^2Ftp*0.&, Z S.P0$}lMC̠qAd za `h`@(q0@C )bvp4$q #-eQ !ZPZP*0.&Ad za, za p( PP` h,y`qPoQ,0 `x2 A@`fp cg4t lE`t}3gpjE԰,C հ,@C\<@(DQ`' ` g 3@  @ՌR` x4t 1ِ \"3>;@Q+ r :pA0p ci-~Y7ِf2 4> =3Vp4R~a~ :0Ԏ"}0)Pi9mP< q`HN@Q`錅RjGXlkp>~X) r N08qPjl d9EX( P(5Ԁ9i2- A`iE鰖0 a'TQpa[KpPi ]9p0gMC4$uVtiEp\;`L 0U j0U 4}Q1F?hWQ`ـhDz`cOU Wa a u  YtА5H@VT }VULX?@Vf\iUa `ճ PX@0HW YDkEWa \DkElƕV 0㳣 PX@0 c fb,ڠ pjAe@CGHW i3<HJH P$P1$ptА6cpg L& ڠ pjae@cGHW iH P$P1$X>HW YDkEWa $5;DkElƕVd5PX@0<Sk c ܐV4t g=.\K U p1M2$&&iC3X@"du'KgP:Q  ԰` 0 =h1eׁ &ѣ3 14`K 0K "I`!l!!fNMk8>J@@@@ׇNl$q@l DfNMk83 @@@@ 1 P'آ " &y2-A ;y2-ڠlj¦P!bfqkdl"fNMk@}T1D $1lP'آ " &y2-A ;y2-ڠltk>mfNν @@@@mցA fٶ8AߠC,. (0#J. e &yA1Wы 5Y6*@P'U ,sB A1g1cs>/ ae@P 9ڠ8 ,17 P0 Pah4ps4c(I@|1G2Cb1eMy16  .`L^6.آ ,KLF R0_3s<#vg P@ G0B`0Psa@9DV36b` ܲ5[ocp [-b0B 8Fa`6>F B+S c$Pl}mpQm3  P 6hND>rFP-b B SArH3ƕdآ 4JGu54rX0%{ 耲>0  6p Ю#[R(+8F_6p/l}m  <##[b(+8F_6p/l}m  #[r(+8_9DV36b` ܲ5`q1L R3Q1p%@S e>ŀ!D^ _CKln0 1L2p  R3Q1p%@S e>!D^ _CKln0 1LF`fv$3Cti'<~ky15dPߕAkyQd0QLPߕkyQ @YbhI(^qq@@ F <AUP1 PZ:P0 ̇1P0 =D`i' .'\PQQk5DPߧk`d0Q,P` tq,vSta`h8UPPZ:d|O18@ё=8@@ &S8@@ &S hUHPn0QSS1d m5V-΢1۠PȎ@TnH@bz9`hx#]*TH # w]#  d0 Y lP%)iS0 `;cPY5HP0f %5? )Y4+%5@ )Y8``@Sf@%5A )YC^ `PY#5g$Db $F>@pD/ w 02t,p0.N,!8 / &0/  # ]#  d0 Y lP%)id?;cPY5Hd~f %5? )YLϦ4 %5@ )YC0No4`PY5T8z4`PY#5gqH@b`q_qp(+PZj!%F`fvn9 +lGf?E2c22_F.pb U<ů c .`Yb ~P|P. c L.֐i@G Y _ { lLF d+ ߯[⿲vdx@0vPlGaΨo  a Pa &o K a JPa Lo ~Pa n$b܆@@.i.zvJ` =  YU)fD1v - z.3f@"܀Ӡ;0 h~z M; G bP'`,70 `P@ܠ2Cr܀Ӡ;``z^f0 G "Y,1F g#p6@ ii(0@~!P'U9…80 b50  cƐp7<#d1v,P0 mǿ[3 hAq& Kޠ@4W2q& K@[9Wtq& 8+ ɺ4O T8; 4N T` ;` `zl'p&;D54@S7K % | % |D`W0)(B3P!a! ¢, Dᐃ`5X J0 D PM\ 2MκsB#.xJQ:y@RH&ɥ@qIayD$ӚO.2CqB5 H[dgU J[q@p03{Y &CU$  n ذ$BW&͑p-. A:R] -L_Bܚŕq4ހ[S]vk~0G D"9π@ @BaHULLDYa7DR@PB_4C P ,"F$RԠCx7 FCg+@#Č@Ag$;e> l 4`0Gn2xU8mBDpJ>ˤNOrT/_c QxHqL AX4 :@d6 Sx0bZ z@ 2NB3NNRrEx<^{s@@AůrvasϜ($#TH0Al'C  ""Rg`f`jK0 pYFQ ``g@K B @L{QL@7 d0$#Q @$ofHSVnCuFoFTH`&UVU0(s\ThD;ADe eUSEFc& Ethw(F`m c.W\9 oJopFHB~`*@/DEPg~ Ԉ()?wP^T@@XP`@ qq8^4#>] `׌[- p294Bҁ d3 "3*t( >#gC)C{udOOug0PQOAֱu 5PRO 5z*cHuOp6rA#R.A(= Q EY`!QCMQ*C'%UɔYa O ѓ  `DyRc#E=#)x&uy0|r~IS𰘔0II@Sm`` J1)yI9[W3O$PM4@##. :P AP GPZ^vgcb R` A#mfR0_@ 1o ufi$@/ {I` `E)6 )>П&qv**0pH@aP fc Hgr(]"e=)X0`*D`p-u剆$wq9mSDnL4DX WX3V{8@Vnfi20XnTnexq=ІK0n"UQgY.wq7_0G g''(?Jd*8W*|Jjf2h.zn_nf2 F]EjUh;@rJ$`&apԣ^H0qb5f򪼕9`ZH_-:V'rPƈ}=>W'נA `p =`.x@zY\a~fygN0`.cXxNPb g`g#`3j' L >w@xXP"IgKh,{'f9%AjqA (u@IE'@~PK@Hj`-"1@.(%r?-"3QL p  t'BPfA`m%Jd /d`@Kd`/T`q tQS+ adr@/6l[kRp 0/ %VZ#eg j^@+ V{O+Q+k+Jk'IqKElB ' k˰[`  g`4[[2uB@{c@$PX" z!J u M{u{0$؋`"L( 2k r@^Wt8Pg =7L xNQ[-8L#LOSk ;~b (c fK K3= @.}7LcY| "F W}7f#9 0V  G& g?ref 4԰ *ef-H] fqTO6fR«' rwKpO*KZPS@@k ;> L `߻WS% k gZR+pP%*`_Hf 6q/~\J0dz{ ` ݜ2{6 b*<*ܬw π'Uk^@CL -A+ VV?*9&5@ذ U]= lҫ l@Ւ pV `aV16Ё2>} }9g \1 Ԕ9[m b}Ge}X=[H x^]Lm=D]Ԍmz䲢-"V؇ġ Kؒ-ՕmֺN dRMՖ :`)<M &A+ BP"!PP@MPP-[P@s#0WP `PWpI+=yW&) .-\"8 6p N߀p`q{d ;0.2p{PaM( yeV"~6lVb =Q>7qqE x]O0aU~}6mu0`.0̾RفaV~T@Ύ'~p ~= MJp  utgZ(`VRsg! [^bcמ;0%b瘘Z׀@ppIv*TMZT1np.坼1~)>.S!0uvUmLZ\{O4* 0ڠ0^TSPX0>V 9ŐZ0No P.6{cA0&B `#PA @$~cPQ NM+ɈRD VS1PV@ & C@%pޖ@4" `gdo:Cj&,EPuݍ O>gdo:{bdq@LC2```A U`&fBcbW8Q^c CPf94rcbS @`A{p"! Pf$M h0n Г ГFRg`RgRA.tpN C`R1.XRIQ'p }Rn&X0&; 'fKڰ&&fBc`P8Q^c%g0xԉ~ !fdff fR@a@)p 1E 00Dpc $4Pfܝ%VLߝSg V 0P-y ќ [P>p~w{PڦfB[FЂ(@!>u ? 0ÐZ0Dpc $4PfܝyEjV-jLߝRʉ.)Yrp~we`Skmj&^j -ݹڦf_Gb.f qFv ba@0$P BPG?&gcjgckH{6& ِ {6& `.vP2 : LL~_  3̹k7`!2~d&ک`:Dl* EC2Il!{ΰ?T4q @Rgt~^c& g^~c# A z*.> S=?p~ J~m!Á  b(t ;0PI΀(p-0~.k~  y[b ~_{bMf ~ߜ~eKf@~t0PPyB)~I~e4{Pvr#`i"`#Sh"ү @a'b  ؠ FC1a`.ү 1  t`.h` e0g@gp|D "p8 'p(p, )Rʉ)@P [Pp~ {`C!Lbu! BG$S3@H 3@H@ug6  0 ௐ`l@p m 4`fտүu iǶP@S3sBd#6ـfBp -xjvl F4zxe `:q".P.PMp쯕a.N@:|=%<0 u g@ ug6c"RAeޜރl =X`# 0W$p K  0$bSϫǤȣ7WAMS" r1P qr!w6#(p)Z `ڠa:pـ,.R rgQSuF#(pfBc" ~!w6` X)q p` 3p gfqUx2:\"Ѓ 0$#pI 6/id*p oFRѽ$ [u"JUeO $#8\eZ=p1 `Oqjт R0  0 0 `6Npyrc- `3% !w6#Ev བྷ ׀6NTp#҂0:G2 [u"JUeO `reZ=pg``1 v0u- "! Npyrc- `3% !w6#M`J2S'p1lZ8@ W@(AhTQ U3ED@r! P5QA0g*c%᥼- 8&u N/ B DlS>)p @$ `x Md e` b0PS`\ G0Gpcb`P S p)*S00 @P0 ,}RR``eQ `@ךZ0ߒ !`@l"`#ShEZ2ʢLG2È PMD&N/ S>)p 0!7 `c'XѬ !e !q @ C MPe`PRpSpG?&0 0w S`0``"1-٠ 3-(Xq@L: $#/ؠQ H.|ŻV%GZ,<8qrxTrƒF+'V.N rgGP,P rg p.)q p` B&c'&C. ~ 72w4=X" C;Q r |'N2z  p5rs8 )S=8 Q VnbwpJG)s {=%<@0 E .F@:Q 0J@ :Q P}2U.Ѓ` Q Bf )ޮ=8a z@%P.Ѓ Q `JSSPD0@.A2@Ơ  Uja P O@ذjtq:zRϒq 5)p!+PPA`aGݹ ")sG`,xOѐE[p YO`uG .LS,SE  Q P', ia |! ؑ 6(T`uG|'N r1fQ(-$T(ُT(VP"N/pp0PPe1V  :  0cF;>re:zRϒq 6Vq㒁 w e  ^ r1fQ(-$T(b8qI6N/pp0PPe1f e1bp2/[re:)j #7.`fGؐ ? p n r1fQ(n-$T(r8qIR6N/pp0PPe1v e1x&w4Oe:9 z Sg %.`fp ?< )~ r1fQ(~-$T(8qI6N/pp0PPe1 e1`&'#>8\=' Sgq 6`&'1% ' r1fQ(-$T(8qI6N/pp0PPe1 e1`&'#Om/8\0 b(2w  YOZ F]w.FWv2BtS,SE  Q J! 1`-:Kq焠KJ b1GPN@"gT  gRG`01F`  W* EP@d`` "!EP@d&pw@ C   C BhQU0fQ @@'-{=%<00Z,M@` P $` P`Mp pNP Pp pU=?_Zwq  & ;he&ʮ Oݯf\/k.PVJ &˱+ ;VJP=*wl%2kl7˳2Vij,0, d]J0@{^ !q֭/3=0uw{ Apg , pt Q`Kw5B`!/1Q  Èq @_kNP+Zл ш=0ul l lQR0 gܛGt{@ H~(FP*8Ln` V+,V 0QF"% Lz V$~s\p@\TVÒQVp\PVpH `=VVd,0,`1 FÒQk`WN02g im@m2wy Q|Ȟl~LqAMɢɤl㧜xeɟ ɓYK pPd&sвp7G*!tq?paFYea75pJ}ՒQ r p`@`(  SגL0 pQ0u6 b- @)C@Q0u ?0Pp0P1 HPL@@C)Χ2 UD@@C)d%9t U P5b"?/"?d`.@  d?d` H62 PK pp pA焐 pN"QD pN"a!4 pN"at$ pN ! aժ/C:5X fRY_Sg fD`>*82 _zR]a`zRPM`xu* gp%Q:F@P[30p 4!d)KCȕW 5,0@5=M<{Dm -+EC{ W@"p۽: p W`qݫф W"@A W0y @Yg* p6POT`(  X0gOlBV! 6Niq$LV"MZ`@!j j&qč(h討6SS%`ʏP`%).ߞ|3RpV `XLY `/ѹY `/d!4zL W"焰 6b.r  HB pN7  H@1:@ AQ qh`p "'9x@4#![(GN 6G&sR#qPP \!5J:Ԫ^28p`m@d#G*1 ,t&P'2xr6!H @DS"g@ 0"3 n ,.s0 8 C$pM k6$fvD ^"cdQyi)|@*JvLS<Ur͝A@eؤF5HKOA UTM3Tk@Zk[% WbwW_VaaP8g@ vA4viAT՘EgDAglT) gLTgwgW!gnJNp\I㡐YT0<Z.>d(\>ˑw'Dg!(X2g( ȓu/q(r .|P1Xq,j*+Ur0 E kC{ŢQr>ؔP|fM=BeZj605W]5ŗ_ FXѸXcEehSG}-Xy QQAռZ5J=Dp0*DFgBp˲ ˜ -g*HB=q1qDnrgP/B q4TMڔ(0N& Ԙ~0)|hP`. dh #D)>1b̕ ,=B@Z1f)V64xHD@(A3e*  F$6` mD Bѷ{~T p[zH՚^&` 0,Bdϙ"F iA f MLZZ H]`!#HZi!6|pe#1hb- Em| t^ psKH E~_@ٓ11'\kp?\Gc1n'-f@~0c0hH7:RFb(#P2a9LʎDT%@$\a4HHUCƢq !Rr_ 8hٱ}`%=C0/ f9(y 0|@@Z  g:|bv B%Zw~5K V.gXȂ, mRߘ Br 2 !B2hbeŎ?lT `" QP?8K-N9S3؜eyQY209QA0^gM090J~|2*b:#́<$kh;D []2!uNRp{nZH>t}@WKkZҰ{"`@uVьw B__F_7 d@`;Zf}XJZӠ]PsˉBN _7"w1AFs QܙCMa3!gE`U B"*_ (6 0=Q=GR@`TH$4ID:&@UPV4U9@` * *`*(-'~`3@Ks^2 @ Bq#$2r (B(Bq w; s#q-o7qX0Z0PPqZz.tA^#DPFw*!;dRpIp<1#~JMD1@`7uA0Q !@1|@)ok@`@`7@`n>(:N@03HԈ6c6H#sagwhGD/.@(p> @9sf`IX Y2(p -9*29@2n.  c2 ` 7!.@3! $r%X<\X:JN 6YJ^nUkxA *GAe*!~/F0=s=08a5V*yι9gk   [ڥY= p ʫ԰^b 0` q#Ey,  P=2TDp⚯J IZp7ʯj{ p~XII°,d ۰, AHv,p/;z{mq,[:C E@tLP]EETC0B23T`+0` m   bx+mQvq;` @ =Pk@ oC y+!2 +H`g+ MK+F;ZpغL  q`=PBfc1`IJ(8HXhx@`𻐐P >0|{=B@;O`TE @E`VTO1kY0D2LF;?3@ ` &`"al@5|NN@5@b:lh63<8P7@LLx|Q8v\y9@nĀ1DHPL Đ`UDLƙp1ʥLDʦʧʬʫ˪<ˮ|,]+{{00 KC0  2  * * z jr  <α`p!PB OpSP DLSPlPc@\ faenqci0kO sAy Yw`]  Mѣ2M:D.@<AC@B.OP> BMFD,zH[.촢L$} 6Rpx@T`n];|n=G~-J@CM@ؓn-LA C@LB@IrBmMPaDjĀMו}D}m5VTɥMBT@SP֤-n MFAy=Ztm `\ fP^ uipeqpt)]] [@rvP:[]`(e.,ڝϱ 0--d]N> ]>o-Mou=c. dsl-"un0 dD =9.}3S ~o@i<>(M-Ze@\A epI#;=hs1TKVNu ҉ pEڨlƄnn}iR^m" \Dz>~#~ Pr  m0] | hPxdm Ϡa7:  kPy0OTRmf t `M8<ξmDVA(c`( . >ꐝO^~ C^T, mp=U`ɣ +x`~ ]F~|hOop 5?7:?SKçBmK;?RG/_gWoopHL?NA   b `CpRN>㇚^艾)MF|o"? qs iP]hqLF|?P?|OFO`oD,Ⱥ^l^Q 驼l.dho0C~#$@<^FoPgЌ~-W0ܭV@OVT14Okd lSp\Lp\L E nυKD @2` @B4ԯTOn}p҉*OF~rwi \x~) ?ep:ɮCs01Фnt4s0پ+]bഛE0Hn .ތn]Z dŐT`?rдbFٔÉ=E@aN-u=x- -c]̅x- ilN->##yIpHyuپ* opr\ po,nc]Y^mP~뇔oP poޙ^*} <=sT`F~(-OwPM7tPbPۿV=IF=iOwea'O(=*mNfҴް]l 6 o@u0 f0$=IFF$/\xޢu.>%_| ;_/eIw_,-ZoP'kD M?‟3.PxCo)@ `TNT+m14OKAXT A F.p kLp\L E nOtA@AT V4 M -Kioy@c 95180ǥb PiFiOw Mep߄ M PiPL _OHE _PiP 樂*%n*D E0Hn .ތo5U 2m~ J:gZl:2* ZDzQCPR0HL`PUTEi]E &l  V<VS鐤hݐ ړ$  n  n  5^Pn! _I@    K4RP1 -1*  oq F{?>P`K4hZFSlˊMU 7ƭhxU ~1x>1x=>P`K@  P`K3F?>@ P`K3F?>=C\F?>P`K@  O?a P`K{I@_/ P`KMP@ n  `\܋ ݐྐl*/7V#At:T,^&-椟a`av/7V#*pϐT yҮ> up@/!φYR`~_a@6t ygӐφRVLE ̎)/.r`P]g? 0@I? 0@I? 0@I? 0@P󐰜 ~fO ۓ` - 's !@?M=p>@2FL=p>P.=E@0C00ĥn 4V,u S -σ _ې 7=7=pkn>걮*-poN* TmDA*-H-A2*n-BvmDA*0-H-ױ-p1ױ-p2ױ-p3ױ-p4ױ-p5ױ-p6ױ-p7ױ-p8ױ-p9ױ-p0ױ-p1ױ-p2ױ-p3ױ-p4`!j,;# P=Dxˁ "<)N^g`BsFe*__F^gnn m@sP8~]R`:?a`>oP ~]R` m .a0аN =s C+m1H0H,`s˝ ?lH|>VCUAq C˝ϓ=8H0H,` `54YU HTݵE0S`U3NC˝0H0H,`<WH`54YHT`5VMMӐG oIN `ApلM?M͎ ^PV؍5FTN`PPCUO @l5KM nVL FTNpcPP=TN V3TUePPU(p p)}Ԝ T0`D]r=4.HL,SYPDP8@ΎLTN TPPL()`VL FTN TPPHCPT)qAPPmU@S: A0TUNS@]GP8TmDAדL1H0H,`sΓO˝E0HVCMLo5UF`ϋ-O`׊]8BvmDAדL1H0H,`sΓO˝E0HVCMLo5UF`ϋM_8`5VMP0A`i''IN `ApلVH ' '@?M7VN0I0 VRe''?M' '@?OBTBTMWðM '0'@?M VcApلnWܐGYpMH|p ӄ~p4N-O@-]LS P><W `5VM>TN`T0ɤ`D]rU0VcN8K~>9AF3 VcApلS@]&LLY FTN MPSۉA`5 P?NPM E3LY^SP8VCN?@ΎAM?MBU0V#o5DP8`5VMadL [kApDnMX\h(A)AF\X(0U ) CL| L}p pԐo''=^E@TɗE p>V#'0'VS(@)P8݂ABWp^.b 8OJϿuGn7y=..l@=. N ogYPppbog.ߍV 0Vh5V y p=[mV`Ta[ c]pOVcApِGv/oP- _cbwP ?a 3~pFE/L5pϓOoѫW -g_b?i@__1po8n`T[K n`T`zT`R w -0hP9?&4Un^80R@P0ًOV ynmVa"=rހNI@n]t`FfP8@ΎCΎS@]&LΎT0`D]r=4.HL,SYPDP8`5VMBpԜ,8lAUPPU GRMPSBBPTpE@ 0?M10a `5VMBpԜ,8UBPLTpUBPR(ӄ_BpԜ<)@? BP0ٿ=  MDP8`5VMBpԜ,8UBPF;BpԜ,8U0V <,S?MBL0HH @ ]sVcApل>H0zf5VMSE0IL@H0z 'q)FTNp-,-,-,~#< VcApل^15>MPSB< 𷀏10MS@]r=NpT+1ӉzVcApل^254MPSB> 𷀏5>+FTN SG@ 1 @OM8 VReMHAOY=\`F`\? R\þ  .!g\@YkmV R\@Yþ =/=DA0 T?P0A`.\6P0ًAOAmmV  H,!gHN)P8@OM8 VRe͎T0FM?M FYABWp fy^atp`ٞJ߳ fy#}-*O--@a  VcApلFNPM EiP`MUBPU0--E@WPT C 1  MP`SE[ QPL^>rqP0ًU0- fy1144Mӄ>TN V3TU> P`=^EyP`=@ BPT =^E@TAEp ׁ\8àET `5V yT0S-`~/ 5i; T?P0A`.\4P0MMXmV\LF=a@FP`!gܽ R }]moŮ.߽A=S`5rEp S; m5rMS :''E]>\8 zSE iABPH\R`CPRل>n/?r D@:''0OPHOYSo p0iodaP$p#fl?mFpR<TpRpDAĭqDAĭqDAĭqDAĭqDAĭqDAĭqDAĭqDAĭqDAĭqDAĭ SspeLO0*l?pw@(б^d@a`^k-@O` O>m<QV|l E=.0/>5? @ #x-p+1-p+1-p+1-p+1-p+1-p+1-p+1-p+1-p+1-p+1-p+1-p+1-p+1-+- 010B+3 - #- 030B+3@- #- 050B+3`- #- 070B+3- #- 090B+c0B+3- #- 020B+30-pD<2{pCL4S 4k o5s R >9|?? ] ?10] 14CPR ~YatEP`0==p>T~m" F`\xi@sa}tpp`knaރep 4s<痬 4w_?-!mP`K0ǝ fJ/دdů~ 0'`"\DAL4102psP`K0:?mS*/7Vs*!m\l o/O)~-g΅Љ<,ppmP8oq>ccprffl?KX1E 0iop 5`]1 K0MPgsepvMpC C MS S 4 k k s { {   Rs MR 4 0 @R8 @R 0 0!s 0A@;_RHR8 4 0 @R8 4 0 @R8 4 0   ;@ ~5 0 4 0 @R 0 0!ARX9, FS4xS]001>E402>E403>T@_oF yF AҮgN04>M`n>?E1 @KnVdwP/aN05>ۄm opr\l"H `x  `>+8i@ig  V.:07>Rvmgm.oprFF0xSR@]OoN\LF>E0ХxSmϋ-:\LF0>%:Vs ҉jxp0A>HdpV~:FV)t`\LF`80E 0 xSjmaNmp a =ێmbPs0C>E40D>E40E>E40F>E4`204P6p80204P6p80qN   &P{J@I࿊ {JP@ID%KIP {P`@I{ {iMp@I AI/ {{!0@I^f@I%[aIa@@Iބ@It@IIrP@q{Fr 8iO5.,I E@/Dl֟I ;|I F0iI FMhI :I TI E@g8`EMhI C@w80T`&^ 0֟h~hI A`h~hI @0ih~hI p_MephI @Pg89g8LM`.$ pa pp & `̂pp`̲ a˹ j,`N`p˹kg p a `a k`!p˹ A`B `p4D`N` pkj9 p 8 pe+p@p `` a Nnb¹ ` , ``a`pJe 6p4p p4p `  ׁH,,,,,,,,,,,,,,,8C hpp˹ A@  H` k  @`p  k8C8C8 q 8  @`$,p`  `a ``GRG؃H@ 2k6Q4u(# Q 10yJTN<)y^$hjTá*U!Œb1XП@R YbOSAc A{v&pg)K3CɭX#S#'B^H允Zt08h0ewz8WÕ Q\!'K+@JceJ|e.@f1 U   , CHECKERS.PAS<t |Z p9#'LcД9;(&2l@Ԁq7nБI@)d'SdJ R dpĩ 0zzzCЉ9wƐejO@eԐѱdѪ=?dѕN8epL ,P̬ys0rpFdX ̳ Ei)saWv# ΞqbΝ(]22z,8 a.f`dʖq9bj7f ,ư}݌ h\nޏ#O, +FX@ -( Le)Z4"ˠą0q#Ob PSE'bQ\d p/*G44Jq5mbSSut"84h*C,'70t蔬/,Cf0;f7{O -AߐЅD+ʋf!GO .Te%iJYX҅ʳ(C2*SL7ӚwŢ_PPB#772^T{;@E`z -;N!q&e0*$2թPT:`d]=Z ֲz5 k[׾x^ZaN d%g8?a]锤79y05cyS1zYS< )0j"4k QZb`]TǻteJoN=gWn(]1?[d`#*E5>ڳ\CYz.Ѹ]vwwif.G R aBN̮F=ʚT-IYd&ɿ6K݅D3Z v4KռەF|Ś+ME+z7* :"r /H|Jp&6k̝xiqtP)QTpv+\ ďdSx&y t}f|LMRv\Sփ՚[,)ߔk^wX'qk.ܡ oCI+D^ Z.)=QtJcHLc9 .zs/WR C}` [J*TYXc4k3e0',a'vpon#,5ʽ-j@у?ӡ`3I^ 軝͟$)Ϫ]niG=+{dcEbS=+ E41MCef9F8,@p$./7Z34=r>4,U'PAp(N 1.P|%qa$qA8X,ЊGfXD'F84zpAqX2+ъ ڸ4cr(xL 0f4"c=(8 0tt`y9edRY64dJTI[*COY4-th@KfwMw*@LReJDK3`K_:#VN#,<2šp3V'Dp&r;ȃv?ndUOTakR=: ̸1(UA :m< pӚ=7_ ZI[ɅeXhoxFۦFm^v th:r'EmnnAx?<5WA(t>ڊ8vdj[=*=5v]ҵ>ʚ {l!n9l2@pm~d]]ځ5_ gBzoHbO8;r'Q(DP`4 PDmX1;yR+t09R,hyhPxr3 NP敵VIA`hV3m_u5IIpsUu_j6U qVSQUai,5GTPZ_r;UxYU'|E0KPR0R0{SFTTCTl9V-븩&*1F4ֹj%BTٻ˶[ <+7I[Uú{;;˽6U K_e܃_~YXb/Ps*q"+[˼®k[+v R5U7a+֧̾Z#TdX1)dhyKۿ;9L<,@׫GlI,RV3kWQ}UBُP9@9HKa1?=q^K7\$x'tÈihbsZq?fRͤ>Dѣ暕Li`g.츞p![q=]fznA YرjnڱK5ʜRu?ޞΌN:U(|ZŬ1^Bt.h:s?n : O\wDi> 6 <"߲&GK *EQPs#,K?n*3;6 K+س&FpYJ˩gERVE`b:~^Mdր#av ڀ ju+x._BglF~۹=z{ә.ݢۼ]ܨM۬/I޲xݝay&/2ߐQߟuwf}Ms5+p ̎fҡBdtJr=JYNؤ]av6%kfXZP+!23wNMӽfw1k64_oHbhDbBSaToGoNkp4C%"&$X)R,#Pqh%[%p4s?0"pY{&%pY{^|jOs??![@3MF&%K#n[@3]Qgj24]Pғ[@3] ; [0"p-@3fp{#I3S[`14韩$X Y񮓴kp![@3]@%c?![@3MF&%K#n[@3]Qg24]Pғ[@3] ; [0"p-@3fp{#I3S[14韩$X Y񮓴kp![@3]@%c?Ʊ4dgRQrj?z[@3]Qg[@3]x-=z[@3] ; [0"p-@3fp{#I3Sz[@3]jO:Ii[@3]@%c?![@3MF&%%#n44]Pғ;4 p{#4:oV [0"p4s? n4韩$X Y񮓴kpJ4T2pNoY>%pph$XdP@4Sw8P6=w(@3\P6ǃ^]]9QS]pjZȡ%m]gkEpKN*Z+QĜ]k:Z,mE2F;3"p0hN].:4]#48x>%[0"p08^ZQĜ4s?Zȡ%mP914SZ韙?[@3ua.%CDwhZȡ%m9QE[m3:oZ,mE2@F;14dgRQrj8<[@3]Zȡ%mEI3SZȜ[@3]p?Zȡ%m14QRrS%Wde:߮:3m;*|q?Zs?0vOᤏH멚Zg3hɔ5h?rne*nm0@f: nm>cwjNJ5hx?%p SQd i%kp:\"%TP%%oJ=ce8vOᤒ*Z( n h3+5%R3Z 8ѴoNL#1fo,`t6[v?`2O3[v?`[ߐw?1Kg6![Yv?1MT3![߻3q'[߻dѴo(QnKyW|"AS,аgs,U- 4"QE'|M, (4"B,ě|XA (|- 4">|US- 4"A]Rlڇ}&E (E4"9lX} 8|KIoB"8| }}U&$(0ڇU {ul|RA 4Հl,'E6IoB"ASװīAGBlIoB"AS‚3KG|XA 4}·U3˂M,A 4?XG1 iM2x?2x?pq 3zjN*n(ޫ$fn( r=pN_wtq?_0Yq ó] <ˆc)8e=􏑪!Ao)8;ˆSy8C Ao)8;ˆSy8C2] <ˆc)8e=􏱫x] <ˆc)8eEVÓs] <ˆc)8eEVÓW] <ˆc)8eEVÓ] <ˆc)8eEVU>_ qh0wB?<=V<ˆc)8e=􏑪!=V<ˆc)8e=􏱫]je)8;ˆSy8C2]je)8;ˆSy8C=V<ˆc)8eEVÓs]je)8;ˆSQd>5r'ˆPѴҩ&e*tJQ75,S"%Dw7K*B35P%]x-Mc &MROZc ]pP.L bLkV$%5]p?0=BOZc OZc d[)xCZc )%5 L bLkVބ!>*O`Ix>Zc /Ӌ>Zc 4:Zc /Ì5E/3;k$,[0T:^[0T3;k$,w[0T:^c2Ce=0 ;AK[0T:^2Ce=0 ;AK[0Tv?Ce2x?k$9CRr?0qnᇆ bLkx$acRT)"5p]|SxjF%i&x$R30*/fbS#D 6515i5MyW|VY`3fbY`3)Vn@S4pKG!ef׏N[[d_;F=?[p!&d CpKpE2F;czcBUr%^%Wr?`kw?bv?`itw?`Z| ?%ci%g{!!&,xc2:bf5;SxcSxQ:`ite v?`e v? ?OHFFk{SxQ#:0_ƼaF )v4P4f@y :hʸ&2D#†C'3l(d"9qQCŌŔ9$$)#Η3(قS2HBI:~ I dL4R%2aEpM1ht8SinQK2s! /BСCA f°Ska{N۱cs4disA' ɗ(qtq3&jm갩&h82)@$"*-4D;aBQ @ep](ІFu|QmBQngl1C)`FA !X YTNe(gQEѴ@RK5TTSW^AMUӀ4HS~DuapSsБGL(PV&Z i, Ùj o)ޗvrT[؅`0L W~!;eTs[6eemrkFFrւzPu=B 2`(DV0 \vwԂf ezqF|1n,6P|ʛ)|wp7EF%p=m6N{8gá p t& eF|@s,U؃+Q>,e*#]nTBGǷ {l!T P宒t:PYF H8 ^b*dKPV=լп E#Ay`0ǹ@?Қ`BE5jB! N0 S( 1 c!rt;`Uj xͰ"k6 `hA?)#L9py"@@4A0'hNпfjS(hf J\ڿ`GA3^a  - 1yG7d_YGv0 ~:<ƀ(ŀE1a-ܮ7.xѨPbMRa^*z&ޏ' cֈh#mhBS04q= àODuM^[һ`S(% >"˂|X^ᛨXTnᇂxY! z(~V4T%-hP ;`".D|[H8WptjWυA+S󬯿pT| 񮯓*T0~A5irǭsdDUpG|ˆ[c$DZ,Ȱmc TUoC F XR2^wZEd}1NӒH~n*5Krc'e˳cS˃ c@c>\m b`^$O)6@f@x"3 9a2u|1iPX'bj"|͇W&im%(&NA&(`&h&l&p"'hW'U4'o@ #a|YYe3Q%OEU NrTX%X7`bXfe)QShdR,#؁h(N\\T$b#ZX-"(x0bWp]>TMtHES4 \5W(`eVh`O8-wAK'2^$]D#a]@Yl8YtYEE2@7BodVF2c8CAUT%wed$HZυ85BD0!gw)(+5. gg|h2urs8]lmE '"v%+C '( rPS(0JpYɗ 牀sl0E)(Ȗ;w18{Q)RcmE!\Fl9o!r9_Gn4Bp!t(RIz9GY@rFRt+i,Z11!*A+Ϲ8iԹKaYM޶8{!(^#< 7)33s'd g#Fc5>gOm [GQGQ]1bL.1jH HH~C6$ ҡ ơI+Iq`'/fOƠAO Ɣs.~."WTRJtx#*:tY4(.7/r/k/802 p0đ08P>EJ,Ƣv,=,-.b&䒔1*Šr- e1"tb2M2<䩣:q!@t_j#8)C5@BG Tv) }BN(2%6F꡸ w))4v~~JdiNѺV6d(dVsYQ3 4KX2@dY"8!pZ`m#b=HrZhjZhZ3z ;ozӰ ï[~[3|ڱ*tC7`J Z-&kW3' =k?A%0˰K8ˬʳ,k4?[F{K:R:iu(x )2)*9mV\CC11f:jt!R:"r.y Эt \X6 Է6bf8B&fx&uR @R($#ABBA g yKbj9jRB'$¸:J$ٽ1r GtNtH$*! %t*ڢt< HCj} P q4CvCw PT(n3,*!I%zDMDQVES9);F4d)y+B ຈI)>9D!*(-7ovS+h H+b8frZhʯl<| +Bb.:%|{G ֋ޛ:4̸=RzY隀úX+) v[68&+a0dCk[)C( @g)y9+Ό֫ ۋdĥ"{_ȩJٙPB|< ͓tA,miM͝(tp jI\ pLlP\ͯ3|\1+ΐ(4] pǹkBb Y6RuRT|)fJ- QӃ,L\ 8-Nʙ THmR)$X-R]7b]°įl${Z b[M41_b ѹݖ:dga}E]G *"M5@Q1 M: hs1p[+"ǿ!=!.v30?.˘:K] Jhm]RL2%61n [[Zx ʹŽNmfW k=zLi&$rc/. CHECKERS.PRGZbt zـ `4 17@4t8H6PH@>O^Pp^ rJ!~%OH:9soN F}8/ zZ #8Bf ] +x:5P&0 0&(:sͪYVɐ8AQ `)>] $jO1,@10 Dj@D?S,y8?H `g"`?H>`0";.O;m|3 ##1V/3C2*Cmh2Z#@#o: DL1a)i**Ѫ03@}:{WK?Ԉ5@lݞ-alj"nۢ)N~_4ZzH' ?{)ffG^[>{.?rV-pV1 !K #f%Z mzc 4UEbQ{dt g 1R^EEyb^t+_@J?UM`X!iRW*%DOYBUA $@ (3~[#|#bA (o" MR  PTSFh2?' `RA&{qe>aaL@ Dq3 >@hgADCN` { (C8و2肶32Ts \Pe Z $ :|RC5|Ok? >NȗMWx\䋦[QAȊ&lIyT/Dv~jQ7]ֺ E<(܊ B*pp*z(d*xNkMiªtnvrG9QyJԁ`0vN@P,d` {5 (_ieqM˶w\Vu ,d`).R>K' 쵰<gG x1# e(  xPJBH<Gh p@<R'-@ ˡ&0{-C@X0\d Ò,'R# b+زJVYD&3peA]f<y u!L/qYB;)'G>3Yht@t3J&ubLgM4ThRcևAkLD^9İalV#BeEtZ ?l8T`Կf%m\pn5+1An^5ɣv ʓZ˜hwnd{B mMP , °x>^E-Q?xj Rc˪!; Y2 v(@`Eޛ@/k`s| σ.sР0n0M͉.u[37:P 6L>A ڗG}\ :>OxA6!@7R|P:ixy@mA-;0a Mob ey/C"};|H,<`|L]+ n{4衻7: T7%<ƀ2a 7.`U/#C'!gR'e30APA A@(E>'J'$R &P:;fCb673a F9c 0 V - p95h @QDZ @AAb0)2E פ$L8:GB?7-7 7 *b~7%j AAA([b<0gB(<)MȈS,+!BRmy XR/Vq[[cpBۘ70B%3@ε#=r!pT?e-3(SB4f@ 8ĐrM0P ayUd^VT 0PِȑB!j#Q'ِ?= . >c(&ap"@aI9?qEiG3IPДOG`>Z?]a6p f9:jX^! _)3P` avp`{?%tys?bSP(bab a&Q9I~ٓk (Sj,7_Mt^ @Wm v96F 7oz `ieP1S@ d y` a0c@~)|et{9HPCE Svb@pI#W R rPApD@4v`-@  r?!/19r98j9t09000e####%Z@C)@ E0@$ or)h f2i0ru:a;fAr#'iLRz*#(c%3! LqCqO!r8@*,469>9 #:EJ:G:1c! #2$c2*23J p0@D!Y:9إ`*֭00 M R *W@ @zLZJl*#W% ]P2b rA1 1"1ꑚj-r v\9Ա-+PZ2Yj%Q5:? A=F'Cۯ@=yM 0UZ +#?2Y9d6mmo Yb;PwN Y~kNx;6 u+AjȆnrHv` `` K@p03HpO;>`qP C.k؆A0uw #?R18(!xyË+=؊g`-䰄{ GekNQͨI)6+`hHbHH X꨽Վ􎝈#?rj9j\!/3:3LڡB$JЯ`c2§@*Ē:yڨ2"}JjD<j*d{m^ $seARXf $6)] m,C L M蝞]59&ss\jAnF$A>p߾-28>,bp>g4IeK^ߛ.5.0mԚ뚎}>ԷnپA=*mBtBm+ #%NnJ.ڪz.^|E;X&>nՍo+ߎ{n]>oGr@#.1.M-_.^%6?3?MNaK>ROx_GEoHJ.*N1/ʹG; p*" UBDг\ 8p䷋q p)b?[D M"(C4X2[@V ޸FtֆB0NR7w4{H4?@@ȸq);˺@~)llC@4P`d/`2uc( 47ϥ:: bd.Apb{ mb{Mb{-b /ѥBӨ-@ V\:j8?Q6!M{-81# Zټy!d9I伺 b{.09b輺6, 9-2[Bb: -)Zi?!Z SI+Up.bbYi ? Bb?ȹA0   ׾ Z bq, 2J ?r- )2:SMλ5n  `96b?a[b??Q!$bqbrb(Bk#Z9?1bQ?**b!  Z9 * b?Q ?ᖿ+M񠢢babbo) Z  _*jb1bqbb!$2 b*bA ?Q?b! `9伇C?Q#bM{8    bbbbSd bqbb?1b!  0E0Zbbb1bb STK?bYi_^Sb   U0E4  bQ) U0EbY?1MB `9bbaټ %bQbbqټc b     k> bq*,?pـ=AB ootE p( _?FWP@ wBo7 9dar&[Y5`EC9 @p(k or&[Yx" V$?R wBȮcvq0$ʄT @"o <ɵ\2MX Sr/;` `7e>p%Z1Yy` RW$YtЀWYRLYt$A`)a_O>0tPfӿO*MRGoNQ.jQ88">専p*>C `+X<q*>C-{`2B{}o)ϛNyB,Nץ!A X>pE "YTh)a*CWH[ pH􀁖`2BC[>  p\W*Ef)q*>*Cʘrp4>0B B@[ pH􀁖` ^X`)K L*f;z0ߔ* 2 n r0*b)pY2N{^եe)@fݝʩe)N1P]*[>m;ݩ*[d `;ݩ* d`)@@ fݝʩ Bd `;ݩ* d`)@&ݝʩ B:\ * 2 n r0*b)PXA#4>uN1re)@f*[{^ *[>m;e)@`f* d`)@@ f* d`)@ f* d`)@&* d`)M˻ [t`FaF::kLb7sQ# T0>C4>ko;8f<>I UXkAPXU~c,_4= +%U7o:RXkoTX6RN>_aN3U7A+5g*7x=e>XSjA7QsRpAcxP胥=Q=AZRP7_OW_ } ή\.3@ϥ::k,`ꡑ\%kA9C4.30W#kApYc,_4= +%f藥nŜp>*P#kA>%gOA4]uA:nu>Xw^^=Z8Xu8=3+5g~ӯJm=TAhڢ+K[̩FPr/Pǡˮ`BB" \0Yb>`})^@@@_p0LP bC " T0JR@OXB 3+ k\ :Loʄ d xJ6 o E50=\P6%KgOH+ o E5`S. ڪ| ŸC!Ac/#2xr2ʺ2-eF~:2.P>Ң/z=;47>4 o E5C#et@>x$_7G"o4 타n-018c- O(#R$ ,33˳/;Y N- +o2ͱ/WpkP8 EҪ QZE=2 Q+J7Q+.*ܐ* JJP=$ D6`2Ut 0Շ ' " 74D`@@ @`v֭KHAsx_~HaD*Ԡ8@ k +6ԺӲ03dtC4*`CsE2SC ` `Cb ðb -Kb D @ +c 7 Y *2&.# 7 YІ B Y@k# W ٟ`# k?L*`V*W$ 3 ~HP# ~EE$ >\*@+$ om- H3" QZ3" ~H`- ~H@S- n/֒$M wL*EH$ ~Hа Un4 @8_ " Q+> ;PFsH` @`@+$ o}># h>EH$ ~Hа rH@ @*B# ~Hа rH ^ B# : A3 ~HP# A E" `B73@ `) =`J Ac sE)xEE4> B0B aDf0`8 " qC>  B 7\*@+$ o}*HFڪH 5W 2 #V A" @=;9`$FI r`!^#B \B@ @ Ac*sHD ^?L> @=C ^c w` є*` Y@N"  h 6") a EFOX hr8&pP O 0d" B ru1P!C0F"N%\f#il$Cd&# @QI˒'ɡ`N u%G@`H 0>Kބ WbqFZ1"tx% ILaH>+r54y@"[d ^gO/"?BaĊ#~yr˙b]YhH_X IPEV88s"Gv3ȕ3bytVp=ܽrAOGi]߅'~9tr<\GA|-=uT(baAzX}r0ѹ"IA|'Bi-kQff )9‹"bO[2r xم6NXč$bE"<OhX¨J (})!& pT0$Ab48@јb2Al&I|l:)R| ”z*}2nH`' g~P* .螑IԼ3@L̦r2OZ#kdjKBkP:M 'FW`X!. CC9O+$Ν !.WF:inɩjj$lU#D\D~K.DuU8~I`@DOE@ R5Τް{.r$O$J{=^po$Q"}kd>3H@iv_?I0b@ahl hJ ?mpb{ ;`@L Ġ :Pa RH!B@ ou bٌ>s LLfRC%AG d::,U1@^ DOVI,]zF 2 ! @@CV&#dz~fIQ*U#UIjS%BMS`Tr0M@@IN<6GY  NuԸ& mS`a,'x_'@ ?Ա)T `ifdLQOgSuTGKb*$0Z_j\p \*xc;:+4@qduŤ@qg/kí&T[B@TduMԷ8 nv;ApGV[ ptm T(sG+Um{Q@\єt >)=л"tͬSZer0KÑ]6rTtm30@1 RbDE@F $?Ae"Ҙ3=gw~>+Rwզ9mjвHQۓ#-?JH @-y*Gvy 0[8rk`"f8.7 W(iJ[H]b˘k׍m:클+üDv@czȐͮ[o3p8{}Lc\F]_F0`^ h$Lٓz3=rCA ;:٣sjGjZԪGu=^†LU7,.De ]>o@'G!bzx63%xW{яQ?|@) ʿy)xJM ^=AzšMPbQ,`'}@ΪgˀWQ`\ՑW}3 `%uUoϘ/Fx޷9eDc633a%@x#'Gw|1d`ǀEwW2((0W)e )X% 0(blP+x̰228` 6R k]7k& @e0kA0cЅsr ` ^bHf5m؅_c8ex @vy|8x{؇h(z(~Z@[&[QRvV¶]YEwP "EfR8 lj1 5USW PxVHR0ƈ芦`_Ȋa[)%XTX*؋X///eZb[ \-p(Hƈ⎲ZZclj]] ~~Vcg:8`dW PY @_O:qm~0`/ ewr@)#``z`r`"ٌvE Z )RxkxЋHxϸȏUɍX(ZR\R^R`b eɐ(ؖ[ٕ_H|~ S9S@ IuLZN(j lH;_eftgwAww}gf) 9Yy{ve@{?@` m&J -(f)Rx9Hffw(Fzihś zd+ !yrPr`*Р  pK^?[Q臓C $^ J@m?B`aR2jafB 1 @`BrrYEu6j} , qDX7iNPk 1 X&ҥ=j*ŤYfMVd'vg5&ܥ#:h+ڒo~n7d`-.0=eT%T$*hoU,mWz)&~~h:lpfa)pYī`pzVȚfńɩYEuV&K2pQɎV8M9@x}0 (3PjPpy@efL U~i ؓR//5/U/ext)u IE0$(ƈ1Ƞhrbƃ $;{ƴq` P(0ZsuKYIB kf``[d:FK)'b b b[RIv& lV` {w ;RR lSW1+y2& X:QYg@f&4]E XPLH@zPz} B^7)@ ;ZXgpG0H,RFQV0`k:y>TU5P,y%:`I%$zUѵJ@eQq"V=VZVqzIs{#fUu=,KJ#_gV Ѫ N:0m(b pOCPPym:ҸDJ6f6(C luo˸,R )uy 0A+(ײ6d7U:,O1fq}1=SZ ֭I  YuݔRu2~ bmK/8+Eh螛m_ 8m|E$a Py){@g-nS`cP90u>g.VT7ϛ2w{( OQfQrgE5P4y )nb(RsBIF1r5W" ul.sOu܈2|=kL.(i ~ @+Huzd&P8. ]}ݳ(l >^ȞUʮx8f&pwVS8t_R.)"2&9fv47V@R 2q@j[`7=X`2) 0X0XjXVPSDV}$PSeb b`1`Z@) ..X.xPnt0;d(%.HH ƨ/ƈ@L WhdAXA6mrr0ʅvVfv 2pV 2 ZfVP@ˍخP R@TVPzHH ƨ/ƈL܉򻏳6 l%_/x?Sx͝@̀_@1ףhA-ˍP (1|D*YV@) .i``RP`80O2A B*T VЮ1A*YZp\ƮU'+7yPHH ƨ/ƈ-/hvopP`RpT V@) ֢aHH ƨ/ƈBO)Оiw_z׈_=N8@J +M~iRi``RP`80OZRT hԵ,-/P (1|D*YV@) @) HH ƨ/ƈ-8뙡{cx$`wFෛ""MdЛ'oxP///H@!}8^MO<@I ] ζkRl`T`<D)ym&&E)P yRV@)/kRl`T`<DKyy(zy&<ޚjԘ߃͍,T7g0Zn&Ӹƨ0Zn1AG)0@6T7n֣hൔL:@i rɶkRl`T`<D 4\ףhZ@R V}(N`nq`p-H)]͒ ,)Bp ]kojjR_Bp ]KU!uឈ( !еFP@RR9)r ] @)zyfpPn@k1Znnf @Rp0EAk`nq`pQ@/[ o ?S9i.\ی~0Z[Iz.@[8 j`H(=X-660402 d_00ޣhS 0, 0*0(>0<Ћ$won>@[Hf ˠj}|VW p{ r5q(Q %H)M3^7j.K~9[޿M0kB0Z2`20`0`0`0еlwpP'ܨY@ WO+Sb 1 ` 0Z b2y R`L`4DY;EKy % )~ yyfRW/ u@L b)л=N8P0Z:}ncnKUpP&1Z8 b8.xP///H@LC`N@L_|aNeYH 1 N`H 1 `H 1Y` H 15 1࣪PfgJ`.JL,nB<`Pt 2,@ p & 6T `Le bjU`. P 0`0 WV (uv`05 1`RZv`05 1`R0 @[ f`Bp C, @@ `4( 0BC b.Bp8V`L?m `U/?u-v`05b0`RZĀ+2Jk@&@@c`U@jJ0g`@V]V J@gp5@-u-v`05b0`RZĀ+2Jk@$@ c`U@@ p k`U@k`U~pW-ug`m`U`U-B/`.5b0Z0`.8,J`f. F B~R@WBm1̠1ƀ+0 ?p>` BpHpv8P @d R08` @d R0>0Hpv `d R08P @d R0<`.vn @ CG`58` @  P :p>0Hp8 `kPpS@k PpgE @LPJ@g @4RDpp ME(-u ڦ`pP-ba(v`8pj`.]m. Dp50)DaBm + J0g vpH8PQ )@  P P` P`@  PpQ )g`P R  p E G@  0CCpLpmf/PCp-uvV-E.2PnW`L?m(c E:`@b &p0 0e`fEnU`. @B. ڦVE`L?` A@LgEpj@LRg@(p&PW`L?m(ƃvb` px.0R Dt`:t`0l`j.rk@nZb` xD @&`B0H0 `B06`.v`.k `&`.% &`.0 ` "p `.,V @d`0d@ pd`@  RQd@ @ A`LpV`L`0 `0*k S`. J00F`@ + k`B IA(_@@pܵ,jBp`#B 0 P RG(mpJpk` pZ/Lb0=]Hb0Z0& ($`|CB-0-uP@``E4Lb0=#Z*l#J#JńQ0P0 t@#: > Pn(PCp T h@ HpO 5` @ c  ` 1 Ő ^kv p #@Sx À`pp2ʐh S  Q@@ % t N p pxpp @o@P P7P` V  { =  ` *Qcotnp on@ vPr`lw*Q 5la@igpitdvso he o*Q R _d:%Jp P @c J e fP ⍡8@#Z"00p(eG$0"gPfPb T`` v`APSP`l`Jt *Ve8 c >p0@A0Ҁ` "10$@A0Ҁ `Vc Fp'# a F ":& " $  P8ppm"d 2   %_  +@0 0pdUmĤ(ec J `; @\`A +`UE` tI`L!`1m$`$`fc F0ɀ``aLfc B0ɀ ` Ʀc >0ɀ5DQa vPr uss@a0kPitPyIon@eWnti e@),Ap2X #:0H ApI r paW&4"j@K0n@ ES |//G1nPB|ʠ3yKA RӀ _@_`t$, B W`0B;kG$00|K `Pr {`@/Lp 1J_h [`|oXCH@ Zk@a;`[_ 5 P Px8Z# 10Ȱ `_|fМq1`-gK/ 4`1 S@a0_vPr ushPa@.H )0Zz E.jІ E p8mRP$ ! H J0$|%B,@ ĀBB`$`  E@W3.0`$H 8*$лuv@Ѐ|`05 1Rf@HfmRP"pgjІ E @pRCfxJ`g`@xS@@b@b J`gA#+ 0,``xe@@ W (pdp5 лu0 U5߀k' U[0]#J]`(fH 0oy iph@ 96-4Dad5,Ic`__$! 0 _ 2P_p_Ql(Q#P_  1 _QQ____ A# #__ A Q__ aL0 "% 0PI% rw#Zkg,2@` Q Q Q 8` `` `k  Q  *@@   v ``v,`  `  8``Q`Q`Q`Q`Q`Q`Q`Q`Q`Q`Q` @ ~    E0@qGqGq2 ` `,`  `` ``` Q`n &      @ @aA  `  ` ` 'I&p `` ` 'I&p ` ``  @ &  Qh `  V l&  Qh `  V l(`(`&@dv*  ,&ڀb&`  @F@02h$p'y'y'yb,@'y'y'y'Y},(p``` @n ` b@&`$``&`` `` ``  Q` ``` %@``@@l>v `0`l  `Ef,:bRR @@  @`@ @`j(@```lk ` ` lh2``v  l ```@` ` ``7clQ ` @ ``e` ` `QQ ` `` `  ``% ```` `` `` l`v @` d @`@ '@ &$*,Z_4\uD"@>$(ll= \`@T08`@&F.F`*@@n(>+D"`< .@ Z`40;L:  .$@$ @*4$`&$@6hp@   @`(l``>``` Q  pK v `k  f  F@ a e < ` F`k@V2v`` PSTTALK.DOC=t  8". @L҂J6kVRDʉ) TIBH@+eI .bT9 )"0rҀ! @'NIyɆM7g4N ?! bNƀpxL:pyS7mԱ*3oRURĔ2t@HB  t4 -nj)3g5Mn($ ArB(L'f!=t̄A ') ZCH!G_9k%HnXΚ# F/% $;~2 I`J Ȱh q l U|@=L\榙τ9AA)9)p 4myih[4*R9zU*NZ3WUvHCQъYۚܢָfLi\P̼PR( 'R ON,0ʰ GTD<1XgO,N) 9!)#t"4a6h7 R~q(G#I *kR3%lp A7inEɒ0d)/[.T7G~"haT(K:9ɨ{$j'T7tZiJa*'AWP2F&#D3@C[Ba2%\erҖr4r%{z:rMFHr2I Ni$TB-WT@ Y(T D;"JFF w])HO0$QU sWX݊eQ뮁in"C,), it#JڅOQϸ:L䧞@=Oub&G? CAr91L:IJ`oda]V{=:JJAX\haE qK73 WI KTe,=o.%K.??6ȓhFٰюawMHSO0<Gס|c.o7(x9DmDm*e}%Z1iRT_E:%2w $( ݸyY[ag#dJ&P$ ^Mu9ornBxHкJzᯍ9Q3^#mot@m ݙzC/-)]PR/GSw@nGj8O07,Z<1-kKfe=GBGH:Z4$ʮ !9#R xS aW=ƃ9LzddpZM}(]Yi V?hj%xo>k͉Jddb#o: 'zDϋ>yFBx#Ƣ@wL(&۳NS?b$Rems&0:9e~:s(Ppvav]1"/#".bAYDC^yk4f5!#~gG]A<.5U(uF~a4A~fHaO>d*UҁOOd7uPA4Z\#[u"݄'C5vrDz#0TߘcΤUEmvEHq1%usQ=r=5MBB5Ki3=BXP1qfRFl@.p1%z%7?\> (UeV=mG*9K^ȃv#qP(&Rs=e)sA>cdJ,bc`[Bf2+qlwAy +@h1zS8v*P/&M+j07&u RvwOW&vhʨ@ B)Q8eEw)H. xFh p}XEuWō|%Bh`k/wSOOO>f3E"~Wa$1/48spTG.Ut:V~CĒyR hR)Q2SIq,)Z؜GЖ,(kFEP6q87.}laG27&6Eӣ-V)3//B0#L䀱=3)[/YJsW ""(v-Іo<$5|˵2y||$4mP5DrA%@7h-jB2#̗(*9p3;Zg0]3)" ̹ Gu-2k:i)(@aV!ef&5K!~,A$઎56[kڈ(cd7?f:R FxԻmQ[$IS],?>ʪ*elq]''h5KB1n%5Q$#W̜gI1˅Z7.Wb^8S~ϧ9/<',MZ)7Y (ܷ)])!4,yH!YrnB2A)EE'?EA)tRA0٫R"ۆsPɃ2v$P/C]fG$ K6H>@*eVnquG9QzweM4>ZHd0#U) G{R0U"w% LV o[V^֙P PŗBsڦ3IqAԌdNm3NdBU`ؼ0|ʦk(yT7^]pՓOWQy8*N*CR!Rl`AB`7v#~G!'S* S)O΂M( rGO/ך+A]StJt 榥yE!WQm#0nv 'Rq &uv[n߳BÝ-#2pwCmlA׳.fi. PAS2W?ZQ6R1EzvB'N"B2B7q/Գv]N%'wM'e`'w@jv C:79hS1:$_!.Ξkj!Y,F_ =(xH>JabmnSLn>'`I.o~27NfU6ֵpQ4Gq|5t9O[Mmdf5@[ѥ_ s%qeJM?-0|yVY;z)+"Aut&.gq_IB`7,]XRf!+$g wM:xBP #Bn~a[AN*!Ϋ%{K5?!:JPDK*.Dz1*Bŋ?EAPBPۋQ2< K ݪ~> &QIe]mr}{>P(oqH^Cp T O1ZJCRHMPH qKBBOAgAaDKkŻP/nlm4N]!(@nq`gȐF#O뿴H~vD?/KkxyXɌH]3!Zj%Ӄ('Q >$ .r c18P#Q@)Q+z+,cPHx7Q FYonY8354P17p4pn354P7709$KF\ STTALK.EXE7yt z Li ,Z ?>!GH@x P0AID N=LFCB `&L "HF!a-hHp@ dZ YPX%[W* /Kɪ[XBZ P% lD>!@7A䇮"siH + g C*@B !,L"'@HR3I GHB"THq2$Ȥb\"C0B )T*E_ )YP^D̚)$Pu(XI!E(t!x]v9'y<>!a 0D@]l,q5@$01K'A$ v$Е]I@PÏHH SaP 8wuxpE̱|$m@vR8HP8A܃DDT!SpM @el'0oB/hØʎ³B *k- pd;4 !GvL GaBg p64tQ,y`FlQ1qor\1nZ!7wmjFeALƮiZleQZl/oz> Gi|.OF@$Mƿ{ƳG{p1yAd?__, k ,ds7Al}8'775惃'AAq:h7+Э |\`|g+耆Y"C'97J * ZBX#-)XA. :cҬC01Pa-B3\(B @,U Gh\BR@ gMSALP+[JaK4WxX6k=,_ ݫLA᲏kd =+uBGmaG) A FT` & i $ {Tl *Bnw[\hTV.7тX.mw}[hz;}\Oq("P R&['\ q}“ TpЧ&\H)R `AG\p0|$8_`+5x/q} "tB` 0L># )0P#X.>*Xl*ję+@3X&MF ZhS8N_gXAz0!6 Ԅ] uaP! Pˍt@@{R=W:͌ p#j])`^#.9L"X5K@,g P(hwEƵ@ns6P,יX,’` {0P]jK%Q8!Nh^.P!JL&tY STt^w*/300ik=0@ B~8N%{΂ x@-hH^ áCz m! 3 _=`p F *~?W y.x#i+:`y8:? U1"2 C)k R}?ݫr8߄8ȼ) p8GA# 'xm}Ma"9=`yG/X'!g y2Pl'gG ypz gѧ[jX0EP WX|W% - h B0 hU'`^\%zV`BUN0WP m`Uis!J f[^T)V0wdH > Qp^ ^0y$`C E炇}8@8  (`<p`  w , aG@~@&iD@p#_ $Up@3Xu>0X@R!Q0Tm"F4hpR2w"`(ch- R!ZЈ@7!&rX BV 3X-x" ɒ#" Xs+ x0뵀 U #`- 0W5w#-`h&_#`+F-`@,+9mR@ &iww#@Uy#, p}I*IwX ЈWs(cp -0 6+-w9uyyو@h,t $A@0  u$ yI) S < K,]|+@L+ j. ϊ @͇F   S"[in@-,,U*0` k 4Ҫy "}4P+m Fj'y)B;v,`--Yi, t+`6<@AX@%qX7}wstEq,iXܕ` ]7 CX ` q鵶xP_q 0 8pAdMGZ۷+vPiz-0v ۺրPrtx-(p($0H   R (0JJ {V Z&{߀H.# ~@ G@y@ 8J) `2AB X!Pz0@-  *Jh *P.  G.DP.0#'GX@dQ1ZH)`#ʰTh B ,dj1pڎ NE{ Hy X Yp -;J+]Y) Wb Q> `~+>#~ر*P_p@H $~Z ``%J0[NC`:ik`᳁~+,XSv32R-y#bg}X_ʧ@#4qph " B7P%2 BpyX ry$ +Ъތ:jo ^)^E+^Pt_FJz4+0 2 H 2 UR ɠ Y 8 R@ N^[N^+ş^ JP~kKwNNbxUN o'НTOL @ WU^fN+e>go_ #\,99q"Q# v+ iT8|0b "Q/O0  .>TN J0 p {Y q1N '4dK *\,At䀑;^Hp>\JqINNL pPV?'NNL `YHp`o%>\JqM^pXPN J2`P "&w2`{SP-P)KPdX*{2 1,S吇f@` Eފy2`20 3@V{1{+9PV?'NN \Hd=200Rr@!{3"4cj6_XiDr7F2` >2@ @0c!Dd ~?l?jvi{$ry"@Y@ !~20gq* D!@A3@@Y0q?40iAd y7: \siI~@R^_X LH0QHHPy4@H&peY1uqq@p> pyq~arʖw:@0k} 20,D,i*%" pA@ rH\q4p61p$*y4>@A,@ ( /`"Qe~Kxjt9a 9N {yzpDF'?c~  " H0  оF 9NaVC' J0 @ހ @g C?). "ӰP+{9a0CHذ@mp5{? y" Ȱ儧vF+)`?A06. 9@`( q0, @}@ r@ 6`1Ժq?`@@qG\! @@ 2ygz@QPDr= =@kfc,pA20,DRric lq4R"J "B5qO` 5FHO`.%%k,>OPcc\9`AOPc6 fEc"R>cK" 6"F0[p]B5P$?6s![٣FPc:" . ъ`> AH0?݊,DoS vGFP` D07*%\6|*]y˷c4H6O0ڹQ %C0|*]yI"PǰyO` 1fph(p<.b @ޮ k$P* $ J  @ǚIJ =*cQ` ""Bq:sq9@l1Pcfz2*+Q  a1Q %D0"MOQ %:\6|wO ]kRrO %\6|JИ pR@ZFQ %D0\6|(䀻-0& N"+)`Q %Rȩz (䀻-0& N"+NS@N"+ O`klD lk,!R0FR1@p=Q %:\6|#TpbT`Q %D0:\6|6wP R9ДSS/OBD0?6sa@o>X.wtœOPcz1  X.w4vH0FBPc:AS@ \_.FBQ %, D0\6|  yg1 J *帛1ΐwO 'DGcT@ wڤ QHȪv+ ,prF(D =`yGK4',m@DOjjcpX"LpU`qT@!@M@Do@p4Eh'|UzT c1\xE0 jYJ`'XdX6*%Pw.S 0vdX 0ZBO6_X Ph@HХ,TpTqT"UTeUXJD+UGUa%.df 10T@ z dr&q<3`4Hc mUlq0lq''c,4H\1`1 "lx́kd ,cc 5~r3` [3` uq3` w3`4H\1\Gd5dX^"jD Im`R~$rz@fF %paRrUpG 1w m& a@`'jQ@&I}U@L?pRdX 6XK`HOAզ2-yr',zpA)v7 G@1&ky5X|"0?zX ^r96X /F dXz)&XTO0_XAJDrF %ZfI$`RuzbR"zpZF0$rXo10G yzX|2::_X Y'@HХHJH ` FH0Ѫ1FY ! bdX5BO6_X~r3`1F@uq3`, dX0F0JZ0F@Z0F0_(" Y!0~r3` [3`_1<v?\q[1PL2S"&1- 1+)dЌD4"&^s!)nX`}S<Z.bP!_:+oTP2Pi\ "&#@!),ϱ+t8>4q^rؔ!@q\, MJzؔacp&@qdH!)&\` Kۆ #@$ZD }F %zХ,Hߠ9aоjW,/v,+/v,z]` H$ p@p.br L{]D.|/]&X] O.~;dXq]&] 1 DLdX "Z `'f^"^ ` v}*% ` vc%"D.A0<v^w^.UM@ȤR ` #@$' @/?*z}^bq^bϺ^] .b!B:.  P/ 14` {^J~KxjWF+i@PQ % \i*`q+@qO %fi*`qOu1`1zɫȩ#[_ GZ>=i/6p7+y0 PоF K)00\F adXF|r_@k&`.br"v Ϣ?~( A {^?Ps!Ni^^w.b@s#w) A {^?Ps``jW?Bw`]jW@Bw` zv~F+pFKRk.{^JyHxjWF 3 A+ fta 90P8k,!/!?Ps!i`V`%?Ps/>_ Pw` `g 3`PP><Cp?ei^3$A+/x` dYP%孀x`@a@ A .,z 0#qs#uV>y>^< `h0Pp 'O@Lx oG`88Hʕ@ !)at&!mrA,Ҁ c~<`AȒX AX0sPRB Umǩ\=DXKЈ0GxA (z RN e)S5l̙^w=HXNN;/5A1c ز[5|1ǐOd1:.Q 6 ~xw~^g{S@.Ɂ`.\D4TaY EiaUXYEg FAwZWpjk`]r)aÛNy49 R$UaqF^$k)jC )$A'8@^^8bMTA;D1 @d ]ІU8`*(9e$foyP*E"ny O E'(r@A*u?NF% {4A6hBl%w2n=j*,4la˂+M,h \$}$2P NNpZAg SvN䳑MoFAkAj@t@OkȗL_C[Hg`G}"DcS05d>L)= LªР/ &@`!_AA!q P#+ X;'`-`RAU`Bw|B| W;ü(㔨`CSb8 0NIMň` F84Z8P?,q @eA`I PJ Nm Z`0<P6 e꠻7 e :d$ ).kD&EAu5?aT@؀4>a8` \e7&e J*@8oa#@%QԜkf^407i`CpVx :! rȃc L πC0)M.Y |W# Π$Y]D)2(HCY68WW.;j61@}tyC1S J%_DpA p" j3'H WrB.m M4,GqCx W#.+'&h p(;\=M[/(xkR0N,CQTMru&`^; A1}U] %8 A(@ ".!@ 'XA>^ aH@N "=qJw`|?@h\> ]0|.2D>@?M|n{p ~ s 2@$xA PBW|1)aD6*< ~+/S Ƅ!I+HK< a^ TCCaH21a{@Tk60S4r0aV@$5z&\ "s± 1N(@Z`eԴBm3P&$lk;GH4 @3iegpˡ tܐ7J= n p7$Z1w(( 3 .@;e8@0 C(理ܕ ,q4t| [jA0;908a TCC8۩^#pLB0$|-\'d{ToZ)n;݄D p%L m{? Dh=+Aph2@ ,=F/K.٣ ahC*A@0! Uǒ9́Ы)p n['٨@'IBtZ '8@&`^o@ŧu` pl@o rf Ef(Ax)F O)#b9>8`ڥ3^=2%- -NS*CF_>h&1,20-,0bP-0qc؇D#-%#R\a `(4,SmxqHB1/p!HrXa<8`hxr!S"H(a"ۘQ!D]y![`lap?Z8v6* F](P`@BAePf ?|`8? z hN^Lu+*`-F8U8E+"тF'LQ,F  8!E[A%ܨO0yIV0kGY8dFV:ؕ6PX@7R n9A7Ŏz&Љ2HNq=I$ 7,y?AಙNQL9>I2H3FCC6PQU5i]iWY" {FP`9P@RmɝP19ܩi Ȥi ()QY"   HPj(VHL)xYƩKa V(e#*+ .ɓxD 8#SioN 4cpp7otdOpeXJ57uL) "J&#-0:<04jnq9*; |-?JƄLSf2J0B0:B n1 $zZ^ -NPD%6 Ш ""3` rЧ ᕪ"j@'h `. C(@b([ Ĭ ZgTeЬ܊+"ȆĕfpJz檢(zRx@!Q+}Ap|Ezrp0Qc0s<>@Xa !+ѡf@+k(FT8\ц&@h'+;繠A;[C$={?@K\DP!L% ZqZR;ڴGtfdJBPdOF[i`j` f**&@ci?.dJ2``+"8`v<`>  z Hn1 ۺɺh 8mhV\([i`_z6\Tu5(MG*5â9-5s+[ɽzHi2, @+{Ј#[b)DȻ (jP0G![S1_TؖkYr۽4< :Xױ :kĬR80 YJS[kG4sDbt39; xƹaCih_lk*(Z,MxlY+>(pl\!ƇϨb9ڥGOǻ*D(a+?[R[AelPC=8WQ' x^{_k"&Eo!SmE@ܖm =(Vy?ef b^0pV  )(n]ϛff=f,k<} MIBMaWuPB}i. 0fMUH1mPcV7}2=fA;mX@ҽB=36ӅN?B-DmO G\-LA@M;}zRH0xP]$qfG(9vz:It+_`'x7leuDGx7%Ğ`'65ïvl+~n钾v@zHPL8`Uf'9^n!= HAD`L@^abȇJ~bC<uzs`Ѣ!t8n%uZ/Ҏt` ^@HJ J0 b  w@@@S  LH"dhV ]uJk+X:q+r,\ (tSIusN" T>S6kq]`O{*a/! 6&P #l Ko{/N͖1H62* ֖vLWX<{˻APRP(v!q1n0mR!b]G_LˋSI1 oJ(ſho 40-sŸO-o?ϟ6k⶟ï#;@-@yDq31߽SC@ wp.s!l%b ߉;miL`q"u1R3K3ߖx&x֡x O66^* \FaÌ@9'KѾˑXyXo_>aB܎yA b3(?9:k_1MBET3щ­k0ÌÕjPcN^Rz59)a):^%noy 4_P=rb]^E C-X :J< :BО GkSK-#Lڨx6،=5U/fooڸ/LwoUme+ߩ_|`o8 -ɵR(q+ XoziU:"òP άz1H[`2kXoJmA{rrdAkwI \WiS-ϯ}@Wg8 bS-\[|5|`ߖ{0ѢѢ! @ #{0HŒFaEL> =oSQ/*Q}@WK R|P"gh6$H_ :`BѦvEVE(y *ђN~o / &mjW 5Pl,Rkmھ&kacY\/.K;J mQ|}\m3J 0I.|`.n*Pzm(zSs}?>*/;5Q|`Das}(s\+^T"LQyPl 3!? 6 Eܾ=gaڅ^~z˺[/-'JSv@rC@ wpFDgx<ڵ!Z0pTtpl_T[!kɥVNuX`Oϑ\ˑ5YP\))͆]+euX`Oϯ(Ie+1+YO[\ [0as 0p+w١]+Qۮ\ZεSXoJm`X:ARQھe+_!k**tukXoJmWOGQ./AR~,?1 21=U|`DaC\ca#0Lޡ~0`6la#0LZ~,kU4]nQ}@Wl[~g "^ Pzt0r 0sQ| OYݦ@#0ǡ3SQ%SF6+Qz1HS^4ms;ڌz1H>>..Rz31,lZ|[z1/s\+U|[z1;q=6I[~Q~K_|}\ʎ<ǵR~ yPˡQ~KR~66.QZ~,[|`}q6tu|`ʫ\y`(Iޑ :*11:PV|`ʫ^XoJmtF6]/ܱbq\`B"AT'DAït1^XoJmWOGQ./A3CɉaQ|`DaS0iaE߆L(~0`69c?RyV6X(}@W j\ j\+|`ʫ\} j\|`}q6tu|`ʫ^z$7KK#0 Yݦ@#0ǡRy+Qyy? Tz1Hd!..Ry1=U|`Dacƾ1Dܻ!~0`66^Q}@WڵYP_+ j\`Kz!!ɵ~0!͎(y`(Iٖzm(zSs(_PGi | Nmn߽SYH:M3a߽43щOl&KhT*3Q߽43щOl&KhT*66-qX`0B\o!\x jPӬkC@ wp @?J$Q+q+aصR0/YO1+)ƕ]ҳbXpZ1߽SC@ wpgs!պ[U٦zTtplsQq+q*"^9 J'}?**8m>Mz#ZPmJ]z6t ls){ 't$m8"*8ZUWR`osïtǩ/w ʢC;+\A$Ό;i-6Qz1H[FaE߆L>0r\+\qk_YmJGrït`(K_)߽SBupZA"Ŀ^]%\3Q"IUT߽ݼm\OPvF@Jc0r> }?-01`1Pdžc18PDuBlE'{ @Tz/:zN sSK' a3Iul1"PtPB3N+k]3-ɿ7}?{X_-u<&;é/-?u<&;é/-"<&;é/-+u<&;Ë-O?|_/T]*2Q-@1S^ھE%Lr!Ď 0?|_/T]*-23^T"?5C "īmL`qRm \ 0I.m L`q\"I>k o;;mi\ p8Qu`0aص0"PE쒦<\9 Ѣ\qrR*U0-jm-'K"3A;K20( /K;1h(x2_;YVьO_ɔ O3"<ҋ/-4e"*AȾ'K\.*!Ď .}!@%rR*4Ѣ6\-9Ѳ-j.R8|`ËQ2~}?8 }(`9N  DVN R QNqR H (@$k `Y@+|j|,3G{R?}} 6Fa x^kQy1p]}?a\m(@;Np+(]NѦ d0- 8(Nq 3QpjN (`N ߝ CɵR@+ 2̠,ʾ[ QФK!x \щ(s0;Q|p;Ca(s0;Q|*\Q/īϿ͕b@3a66--ݜ;!(hN2KUh>!O(Q%--, (hNѲ\щQh`A\. $p 0-lmݽ y }j- zL iQѢ{uX\\1 `6 B-7sіpj\Q߽Sy|`vC@ wp/o-'{4G|q&JF\|`2fVmJrx}`- T7s5sq&Jm)3\|`3f̆Muis -бuis4Wr-{y G|t?  88F@olXoJmtz`-tz5gr{op'HGѲ;3FPow'aP'=Jn- M Pue0|Jc0r3`$ Y?:F`owGi |-o-@a; -б 0l PItplIЗWYN)3\߽S|`7fFiO VMQ-t'toJm;7P)3\|`8fFS/I @i- CaO.oFiO?'JFpF\:FolT0n05r> -б ~I/`T5@PiX#mr? F9<F0WG-@an- If0}WZs;sYuIr?Y?߽SiPv^Oa~@/fIђђQvQPiq @o0sz33(:yD>zlFtFP4syD>wmJPt5l0?Y-C4yD>WvTA`tWOdw32߽S<0L /OEбB vKб1 `lICI/oX*s^Jc}F@Jc0r>tW6~+_lqp81 Lk0 l f֧uFђCYT\QXL-3aC4FI+YLT\1-YF3QH/~=*CԾ̣<0@. ^Dp@Epl CWYN _lqk(z:. SЦ 3L\ =ŕЦ 3L>l zP =ŕk倠D|'{ ulEP`|h|·PsQ}&-ջ zdž]+QS1R9* `*^DP J6Q+R!p !p ߐ.|V@*^Rop JL J'| 5Pk,RkPdž]+Z |ؠtlv ؠ|·PsQ}O&-ջY}lص! fR@ c` l ukQ,M(PRN  Y # g{@9'K^4+C Bm +-91hTlR_ھ9䎒kU8m]}?Y=+RMUT\3Xaص3 + -+nQ][B +-"8>,\[0a`$GiV./A+>\p,Xaص +/ -+،Z"P`J e;XOd{WYN5 +- +-،m!O![@%YpjR߽SDQ5p0r>nPpIQ5p0r>nPpI4Z9 3=<)UHET3\}/Lk[@-F9!TC fU>FȏH fUm!5-D2&5sMz͸ڈ2$M1/A%)7m]*űۻ}?r7}Vw k倰}Bu@5O|Z!nYlħ10OSY6O|Z!1AY?p0plsħ¼OS A%̦^ Bڿ(N SUN 2Sd (@N1 (Nq ?m0?O]&{j.Ry\+Z fP4s6D2p@ԿFO`ss&Ks>,3LP$,r`"+!JkD4 GKϯupO? SPoOs&ۖXQr0h6-u<ђ1[R+R- ";6DDKozf9B K"+Qp2 8 W-0Vd47uOGSiDPs\[#W{ espl  OYos;sno OweWYN ^,+m˛O@ IIUzs TI>(y  @!r׫^ZѢ?OU7֛b듆]+<>lڬH(Q,<R, {>-ڋ}66vlصBj˿x'KGj @A%WƷ "beL`{֛ߖ@ԖvOZ(}|! aFu?ˑL< `5DPsQs(0QPOwlAppyut W١]+R0^΋bPm=mؖLQћk0Bڅ(NU TN D %(pd (N (hNѦBN  > (UN((T @9䫾K `L%H^ Qmɵ(^\3˜LamɹQھc+m߶ߖ0t7KGm]K°!]N .NQp ֆ2 " (ÀÀj ,W-Q-䂦<-Qh-< PJp%E$ 2>u=ou0r3-3 gl`Jd`o?!q+b+>,ܱʸ]x:-9rAlݜq@AU楿3a[P03Nv jE *`_-8;!"; O`?C; 0pwqf9B\03щ"o0aqK" 13q`@9 bK>k4ʎ 31>*`_b2ǵ"Lr %F,ʾU:*Q ˡ *Q ˑ[}lp_Ѿˡ͘lصXU 9ʢ[ MS jR`r@i*Q,ʾ1/j\+R̵/j 5QѾT]Q :\PRG$95plQP*FU XvO0Y@ESpl2.plJ:$/5Ѓ`---*(ȐUe^9AP=S^9A`=S^9Ap=SeZWY4E('@nrՠ3P2 50STTALK.PRGt CEh `4d@8PE| qRN82CNxgO$!&XK Ĝs'=?~4Ax!R^rxVM@ 6@#lR9 :W<x("CA] !<@*0 "!lS3'qbB5C'$ "V!a! "47*H@H @:( @ji"N~R cv+x‰Vب> P'Xe{1@c REeEEf##Xl(E]Ʌw&m`x9TN/lDRT7 X X Lɐ" fcB$l4 @p`` >>~~??????>??????__??~~>>???##WW?~~00xx?UUxx88? >>~~??????>??????__??~~>>???##WW?~~00xx?UUxx88?K0K0Kx00xH{ !! ? !@@?@//?/????? K0K0Kx00xH{ !! ? !@@?@//?/????? E@@mk@@ R RTTJI0Kx00xH{**AAQ  jPP_@@[@@_TToUU R@@ma! ? ! @@_((((HHPPV;6j UUHH++PP``@?@@@_ _ _N%%HHRR +?'?/????? E@@m@@k RRTTJI0Kx00xH{**AAQ P Pj_@@@@[_TToU U @@Rma! ? ! @@_((((HHڗ;PPV6 jUHUH+P+Pԯ``@?@@@__ _Nյͭ%H%HڶRR +?'?/????? a?a~??^^vv``===R  ???.+.+.+GGG.qq_PPNN^OO)))  ___?ddd? Q& OOK bb **ii޿bb{{``__TTJ ?+W+W AA$$$pp::zBB@@@???TTyyy!W!W!W߹ n n n>>>@@@aauuummm@@@(((נ__WT@T@ UUU@@@+++l***լլSj SBBz22$MEE&&BB_^^_22mm߿88 @@@@޹?OO((--www..wvvUww߯߯I% } }wgg~@~@??KKK---߀߀++===AwAvAvOOOȾȾĀĀĀ?   ///GFXFX.Utt.._}}}ۇ$@@@zzz;  @@wWWPPP R R R(((OQOQOQhm+"""o''WVFFMcMc55 III__EEnnoo ..?x0Kx00xHo! ? $@? ??/????? @x0Kx00xHo! ? $@? ??/????? @׭ I?h(@ IBP !RO?  P?? ?zT@H;tT/O}^$l' @( I?۷h(@ IBP !RO?  P?? ?z@TH;tT/O}^$l' @(ǃǃǃÙÙÙÙÃÃÃÃßßßßßßßǃǃǃÙÙÙÙÃÃÃÃßßßßßßßǃǃǃÙÙÙÙÉÉÉÉßßßÙÙÙÙÙÙÃÃÃÃßßßÙÙÙÙÙǁǁǁǁÃÃÃßßß HELP ________________________________________ At the 'READY' prompt, you may press SPACE to begin a turn or ESC to exit to the menu. During play, press the LEFT MOUSE BUTTON to jump from the plane, andd then press the RIGHT MOUSE BUTTON to pull the cord. Scoring is based on the height that the chute is opened, and the accuracy of the landing. The later the chute is opened, the higher your points will be. Waiting too long, however, will cost you 100 points (besides making a mess). Landing on the inner pad earns you the full point score. The outer pad is worth half those points, and there is a 50 point bonus for landing exactly in the center. No points are awarded if you miss the pad completely. [PRESS ANY KEY] SOURCE ________________________________________ Complete 68000 assembly source code is available for only $19. The source includes disk, listing, and the right to do anything you like with it-- well, within reason. There are laws you know. If you don't already have it, our new FIRESTORM program is available for only $15, plus $1.50 for postage & handling. It's an arcade game for those of you with color monitors and quick fingers. Rumor has it that source can be obtained for that one, too. Send your orders and derisive remarks to: inner fire software PO Box 36503 #259 San Jose, CA 95158 [PRESS ANY KEY]0 gosub 32000 1 fullw 2:clearw 2:gotoxy 20,6 2 poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,13:vdisys(1) 3 color 2,0,2 4 print "Journey to the Center of the Earth" 5 color 1,0,1 6 poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,4:vdisys(1) 7 ?:? 8 gotoxy 26,8:?" A 520ST Adventure" 9 poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,5:vdisys(1) 10 gotoxy 19,10:print"Converted to ST Basic by Rich Noe" 11 POKE CONTRL,106:POKE CONTRL+2,0:POKE CONTRL+6,1:POKE INTIN,1:VDISYS(1) 70 CP=1:GOSUB 1930 80 CLEARW 2:GOTOXY 0,0 90 GOSUB 1830:GOSUB 1720 100 IF CP=18 AND (VB<>25 OR NO<>21)THEN PRINT"Horrors!! The troll throws an axe at me! I am dead":GOTO 1460 110 IF CP=18 THEN PRINT M2$:F5=1:GOSUB 1720 120 IF NO<23 OR VB>1 OR NO>30 THEN 210 130 IF NO<=26 THEN FD=FD+1 ELSE FD=-10000 140 IF NO>26 THEN NO=NO-4 150 NO=NO-22 160 IF CP=10 AND NO=1 THEN PRINT"And fall into the lava??? Fat chance!":GOSUB 1720:GOTO 120 170 IF CP=11 AND NO=2 THEN PRINT"Do you know what molten lava is??? It's hot, that's what!":GOSUB 1720:GOTO 120 180 IF CP=29 AND OB(10,0)=29 AND (NO=4 OR NO=2) THEN PRINT"The hydra won't let me through!":GOSUB 1720:GOTO 120 190 IF P(CP,NO)=0 THEN PRINT"I can't go THAT way!":GOSUB 1720:GOTO 120 200 CP=P(CP,NO):GOTO 80 210 IF VB<>2 AND VB<>20 THEN 290 220 IF NO=10 AND OB(33,0)=CP THEN PRINT"It is sort of heavy, you know.":GOSUB 1720:GOTO 120 230 IF NO=0 THEN PRINT"I don't know what a ";CHR$(34);NO$;CHR$(34);" is.":GOSUB 1720:GOTO 120 240 IF OB(NO,0)<>CP THEN PRINT"I don't see it here.":GOSUB 1720:GOTO 120 250 IF NO=10 OR NO=20 THEN PRINT"Oh give me a break!!":GOSUB 1720:GOTO 120 260 IF OB(NO,0)=-1 THEN PRINT"I'm already carrying it.":GOSUB 1720:GOTO 120 270 IF OB(NO,0)=CP AND NT>=6 THEN PRINT"I can't carry any more. You'll have to drop something.":GOSUB 1720:GOTO 120 280 IF OB(NO,0)=CP THEN PRINT"Check.":NT=NT+1:OB(NO,0)=-1:GOSUB 1720:GOTO 120 290 IF VB<>4 AND VB<>29 THEN 340 300 F3=0 310 PRINT"I am currently carrying :":FOR I=1 TO LO:IF OB(I,0)=-1 THEN PRINT OB$(I):F3=1 320 NEXT I:IF F3=0 THEN PRINT"Nothing." 330 GOSUB 1720:GOTO 120 340 IF VB=3 THEN 80 350 IF NO=0 AND VB=0 THEN PRINT"That doesn't make any sense to me.":GOSUB 1720:GOTO 120 360 IF VB<>5 THEN 420 370 J=0 380 FOR I=1 TO LO:IF OB(I,0)=1 THEN J=J+OB(I,1) 390 NEXT I:PRINT"Out of a maximum of 175 points, you have";J 400 IF J=0 THEN PRINT"Boy, you stink!" 410 GOSUB 1720:GOTO 120 420 IF VB<>6 AND VB<>22 THEN 490 430 IF NO$<>"Everything" AND NO$<>"All" THEN 470 440 FOR I=1 TO LO:IF OB(I,0)=-1 THEN OB(I,0)=CP 450 NEXT I:NT=0 460 PRINT"Okay.":GOSUB 1720:GOTO 120 470 IF OB(NO,0)<>-1 THEN PRINT"How can I drop what I am not holding???":GOSUB 1720:GOTO 120 480 OB(NO,0)=CP:PRINT"O.K.":NT=NT-1:GOSUB 1720:GOTO 120 490 IF VB<>7 AND VB<>28 THEN 530 500 IF H$(CP)="" THEN PRINT"You got me into this mess, now you get me out!" 510 PRINT H$(CP):H$(CP)="" 520 GOSUB 1720:GOTO 120 530 IF VB<>8 THEN 600 535 CLEARW 2:GOTOXY 0,0:?:PRINT:PRINT:PRINT TAB(10)," ";:INPUT"Filename";FILE$ 540 CLEARW 2:GOTOXY 0,0:INPUT"Press to save game";XX$:OPEN "O",1,FILE$ 550 FOR I=1 TO LO:IF OB$(I)="" THEN 570 560 PRINT#1,OB(I,0),OB(I,1) 570 NEXT I 580 PRINT#1,CP:CLOSE 590 GOSUB 1720:GOTO 120 600 IF VB<>9 THEN 670 605 CLEARW 2:GOTOXY 0,0:PRINT:PRINT:PRINT:PRINT TAB(10)," ";:INPUT"Filename";FIL 610 CLEARW 2:GOTOXY 0,0:INPUT"Press to restore ";XX$:OPEN "I",1,FILE$ 620 FOR I=1 TO LO:IF OB$(I)="" THEN 640 630 INPUT#1,OB(I,0),OB(I,1) 640 NEXT I 650 INPUT#1,CP:CLOSE 660 GOTO 80 670 IF VB<>10 THEN 690 680 GOTO 1470 690 IF VB<>11 THEN 720 700 IF NO=0 THEN PRINT"Say what?":GOSUB 1720:GOTO 120 710 PRINT"Okay, if it is really necessary...";NO$:GOSUB 1720:GOTO 120 720 IF VB<>12 THEN 760 730 IF NO<>12 THEN PRINT"I don't do stupid things.":GOSUB 1720:GOTO 120 740 IF OB(12,0)<>-1 THEN PRINT"I don't have any Coke to drink!":GOSUB 1720:GOTO 120 750 PRINT M3$:OB(12,0)=0:OB(13,0)=-1:GOSUB 1720:GOTO 120 760 IF VB<>13 THEN 830 770 IF OB(31,0)<>-1 THEN PRINT"But I have no food!!":GOSUB 1720:GOTO 120 780 IF OB(NO,0)<>CP THEN PRINT"I don't see it.":GOSUB 1720:GOTO 120 790 IF NO=10 THEN PRINT"The hydra whoofs down the food.":OB(31,0)=0:OB$(10)="a giant hydra rubbing his stomach":GOSUB 1720:GOTO 120 800 IF NO=20 THEN PRINT"The bugs in these caves only eat human flesh.":GOSUB 1720:GOTO 120 810 IF NO<>3 THEN PRINT"You can't be serious.":GOSUB 1720:GOTO 120 820 PRINT"It refuses to eat the food.":GOSUB 1720:GOTO 120 830 IF VB<>14 THEN 910 840 IF NO=10 AND OB(33,0)=CP THEN PRINT"The undertaker just took him away.":OB(33,0)=0:GOSUB 1720:GOTO 120 850 IF OB(NO,0)<>CP AND OB(NO,0)<>-1 THEN PRINT"I don't see it and I'm not holding ii, so how can I hit it?":GOSUB 1720:GOTO 120 860 IF NO=3 THEN PRINT"No!!! I kind of like the parrot! Polly want a cracker?" 870 IF NO=10 THEN PRINT"Okay... The hydra grunts >>DAMN MOSQUITOS<<" 880 IF NO=20 THEN PRINT"Yuch! I don't want to touch it!!!" 890 IF NO=30 OR NO=10 OR NO=20 THEN GOSUB 1720:GOTO 120 900 PRINT"Okay... Ouch! I hurt my hand!":GOSUB 1720:GOTO 120 910 IF VB=15 THEN PRINT"I can't kill anything, I'm too weak. But maybe if you were a bit more specific.":GOSUB 1720:GOTO 120 920 IF VB<>16 THEN 1010 930 IF OB(33,0)=CP AND NO=10 THEN PRINT"It is already burnt to a crisp.":GOSUB 1720:GOTO 120 940 IF OB(6,0)<>-1 THEN PRINT"I don't have a lighter or matches!!":GOSUB 1720:GOTO 120 950 IF NO=3 THEN PRINT"Never!! You know something, you're a sadist.":GOSUB 1720:GOTO 120 960 IF NO=10 AND OB(10,0)=CP THEN OB(10,0)=0:OB(33,0)=CP:PRINT"The hydra crumbles to the ground dead.":GOSUB 1720:GOTO 120 970 IF NO=20 THEN PRINT"The bug cannot be burnt. ":GOSUB 1720:GOTO 120 980 IF NO=10 THEN OB(10,0)=0 990 PRINT"It doesn't burn." 1000 GOSUB 1720:GOTO 120 1010 IF VB=17 THEN PRINT"And just who do you think I am, Rocky???":GOSUB 1720:GOTO 120 1020 IF VB=18 THEN PRINT"I don't know how to light things. If you want me to burn something, tell me so!":GOSUB 1720:GOTO 120 1030 IF VB<>19 THEN 1120 1040 IF NO$="COIN" THEN NO$="QUARTER":NO=7 1050 IF NO=0 THEN PRINT"I don't know what one is.":GOSUB 1720:GOTO 120 1060 IF NO=7 THEN 1080 1070 IF OB(NO,0)<>-1 THEN PRINT"I'm not holding it right now.":GOSUB 1720:GOTO 120 1080 IF CP<>27 THEN PRINT"I don't see any Coke machines here.":GOSUB 1720:GOTO 120 1090 IF NO<>7 THEN PRINT"That is ridiculous.":GOSUB 1720:GOTO 120 1100 IF OB(NO,0)<>-1 THEN PRINT"I have no money.":GOSUB 1720:GOTO 120 1110 IF OB(7,0)=-1 AND CP=27 THEN PRINT"All right. Chikclik Chinggg! A Coke popped out. There is now a bottle of Coke here.":OB(7,0)=0:NT=NT-1:OB(12,0)=27:GOSUB 1720:GOTO 120 1120 REM 1130 IF VB<>21 THEN 1210 1140 IF NO<>18 AND OB(NO,0)=-1 THEN PRINT"It's kind of heavy, you know.":GOSUB 1720:GOTO 120 1150 IF OB(NO,0)<>-1 THEN PRINT"First you have to help me find it, dummy!":GOSUB 1720:GOTO 120 1160 IF CP=10 OR CP=11 THEN 1180 1170 PRINT"Nothing happened":GOSUB 1720:GOTO 120 1180 IF CP=10 THEN CP=11:GOTO 1200 1190 CP=10 1200 GOTO 80 1210 IF VB=23 THEN VB=1:GOTO 120 1220 IF VB=24 THEN PRINT"Try kill ";NO$:GOSUB 1720:GOTO 120 1230 IF VB<>25 THEN 1260 1240 IF NO=21 THEN PRINT"Nothing happened":GOSUB 1720:GOTO 120 1250 PRINT"Sir what??? I don't understand!":GOSUB 1720:GOTO 120 1260 IF VB<>26 THEN 1330 1270 IF CP=1 AND OB(14,0)=-1 AND OB(22,0)=1 THEN PRINT"Okay!!!":GOTO 1460 1280 IF CP<>1 THEN PRINT"I can't.":GOSUB 1720:GOTO 120 1290 IF VB<>26 THEN 1330 1300 IF OB(14,0)<>-1 THEN PRINT"I can't. I have no tools.":GOSUB 1720:GOTO 120 1310 PRINT"I can't. I don't see the fribulating gonkulator around me.";:IF OB(22,0)=-1 THEN PRINT" I think I have to drop it first." ELSE PRINT 1320 GOSUB 1720:GOTO 120 1330 IF VB<>27 THEN 1410 1340 IF NO=0 THEN PRINT"What the devil is a ";NO$;"??":GOSUB 1720:GOTO 120 1350 IF NO=20 OR NO=10 THEN IF OB(NO,0)=CP THEN PRINT"Yuch!!! I'd never eat a ";NO$;"!!!":GOSUB 1720:GOTO 120 1360 IF NO=10 AND OB(33,0)=CP THEN PRINT"Well... It's cooked now, but it still looks kind of gross.":GOSUB 1720:GOTO 120 1370 IF OB(NO,0)<>-1 THEN PRINT"I'm not holding it.":GOSUB 1720:GOTO 120 1380 IF NO=3 AND OB(3,0)=-1 THEN PRINT"I'd rather not. I don't care for parrot meat.":GOSUB 1720:GOTO 120 1390 IF NO=31 AND OB(31,0)=-1 THEN NT=NT-1:PRINT"Humm! It was Filet Mignon, my favorite dish.":OB(31,0)=0:GOSUB 1720:GOTO 120 1400 PRINT"I think that ";OB$(NO);" would give me indigestion, and I don't have any Pepto-Bismol.":GOSUB 1720:GOTO 120 1410 IF VB<>30 THEN 1450 1420 IF CP<>10 AND CP<>11 THEN PRINT"Nothing happened.":GOSUB 1720:GOTO 120 1430 PRINT"Nice try, but that's an old, worn out magic word." 1440 GOSUB 1720:GOTO 120 1450 PRINT"I don't know how to do that.":GOSUB 1720:GOTO 120 1460 FOR I=1 TO 1000:NEXT I 1470 PRINT"Out of a maximum of 175 points, you have scored";:J=0 1480 FOR I=1 TO LO:IF OB(I,0)=1 THEN J=J+OB(I,1) 1490 NEXT I 1500 PRINT J;" points." 1510 IF J=175 THEN ?"All give tribute to you, ADVENTURER GRANDMASTER":goto 1590 1520 IF J>165 THEN PRINT"Your score is Master Adventurer Class A.":GOTO 1590 1530 IF J>150 THEN PRINT"Your score is Master Adventurer Class B.":GOTO 1590 1540 IF J>140 THEN PRINT"You are";CHR$(34);"Junior Master";CHR$(34):goto 1590 1550 IF J>120 THEN PRINT"You are now a Seasoned Adventurer":goto 1590 1560 IF J>110 THEN ?"You have the rating: Experienced Adventurer":goto 1590 1570 IF J>100 THEN ?"Your score is a Novice Class Adventurer.":goto 1590 1580 PRINT"You are obviously a rank amateur. Better luck next time." 1590 ' 1600 END 1610 PRINT"GADZOOKS!!! A giant bug just walked in to kill me!!!" 1620 FF=1 1630 GOSUB 1720 1640 IF NO$="Sesame" AND VB$="Open" THEN PRINT"The bug has shrunk to it's proper size and scurried away.":GOTO 1700 1650 IF NO<>20 OR VB<>15 THEN PRINT"HELP ME!!! I'm being devoured by a giant bug!!! The end is near! OW!! This hurts!! I'm dying...dying...DEAD!!!":GOTO 1460 1660 IF OB(2,0)<>-1 THEN NO=2:PRINT"I don't have a sword!!!":GOTO 1650 1670 IF SW=8 THEN PRINT"My sword is dull, remember???":NO=2:GOTO 1650 1680 PRINT"Ding! Dong! The bug is dead, the bug is dead!!!" 1690 SW=SW+1:IF SW=8 THEN PRINT"My sword is dull now." 1700 GOSUB 1720:GOTO 120 1710 END 1720 PRINT:INPUT"Enter your command";CM$:PRINT 1730 IF CM$="ABRA CADABRA" AND F5<3 AND FF=1 THEN NO$="SESAME":VB$="OPEN":FF=0:F5=F5+1:RETURN 1740 VB$="":NO$="":VB=0:NO=0 1750 LC=LEN(CM$):FOR I=1 TO LC 1754 IF MID$(CM$,I,1)>"0" THEN VB$=VB$+MID$(CM$,I,1) ELSE GOTO 1760 1755 NEXT I 1760 FOR I=1 TO NV:IF VB$(I)=VB$ THEN VB=I:GOTO 1780 ELSE NEXT I 1770 VB=0:NO$=VB$:GOTO 1800 1780 IF LEN(VB$)+1>=LEN(CM$) THEN NO=0:RETURN 1790 NO$=RIGHT$(CM$,LEN(CM$)-1-LEN(VB$)) 1800 FOR I=1 TO NN:IF NO$(I)=NO$ THEN 1820 ELSE NEXT I 1810 NO=0:RETURN 1820 NO=I:RETURN 1830 PRINT P$(CP):PRINT 1840 FOR I=1 TO LO:IF OB(I,0)=CP THEN PRINT"There is ";OB$(I);" here.":PRINT 1850 NEXT I 1860 PRINT"I can go : ";:F2=0 1870 FOR I=1 TO 4:IF P(CP,I)<>0 THEN PRINT NO$(I+22);" ";:F2=1 1880 NEXT I:IF F2=0 THEN PRINT"Nowhere!" 1890 IF CP=18 AND OB(3,0)=-1 THEN PRINT:PRINT M1$ 1900 IF RND(35)=5 AND CP<>1 AND CP<>37 AND CP<>27 THEN PRINT:GOTO 1610 1910 IF FD>4 THEN PRINT:PRINT"If you'd like, you can make it easy on yourself by typing N, S, E, or W instead of NORTH, SOUTH, etc.":FD=0 1920 RETURN 1930 NP=37:DIM P$(NP) 1940 REM 1950 P$(1)="I am in a ship. On a computer screen in here it says: Ship will not function -- Fribulating Gonkulator is burned out. It is obvious that this ship has crashed." 1960 P$(2)="I'm in a cobblestone hallway. I can hear CHIRPING BUGS NEARBY" 1965 DATA 2,6,5,4,8,1,3,5 1970 P$(3)="I'm in a dark room...OH NO!!! There are GIANT bugs all around me!!" 1975 DATA 0,0,0,2 1980 P$(4)="I'm in a small room. A scribbling here says: >>ABBADAC ARBA <<" 1985 DATA 7,0,1,0 1990 P$(5)="I'm in a dusty cobblestone hallway" 1995 DATA 0,25,2,1 2000 P$(6)="I'm in a dusty place. It is very dark in here I'm scared!" 2005 DATA 1,24,0,0 2010 P$(7)="I'm in low crawl space. It seems we're not SUPPOSED to be here!" 2015 DATA 0,4,15,0 2020 P$(8)="I'm in a room with rock walls. Imbedded in the walls are Rubies" 2025 DATA 9,2,0,13 2030 P$(9)="I'm in a dark room. This one is not so scary. I hear groans" 2035 data 10,8,23,0 2040 P$(10)="I'm on the south side of a chasm. Molten lava is beneath me." 2045 data 11,9,0,0 2050 P$(11)="I'm on the north side of the chasm." 2055 data 16,10,0,0 2060 P$(12)="I'm in a maze of twisty little passages." 2065 data 12,12,13,14 2070 P$(13)=P$(12) 2075 data 13,13,8,12 2080 P$(14)=P$(12) 2085 data 14,15,12,14 2090 P$(15)=P$(12) 2095 data 14,15,15,7 2100 P$(16)="on a wood platform. A sign warns: Go back! Go S! weak bridge N" 2105 data 17,11,0,0 2110 P$(17)="dusty passage. A sign points east and says:To TROLLS PLACE" 2115 data 0,16,18,0 2120 P$(18)="A voice booms out:Who dares enter my place (sounds like a TROLL" 2125 data 0,0,19,0 2130 P$(19)="I'm in the troll's palace. It's breathtaking!!!" 2135 data 0,20,0,0 2140 P$(20)="I'm at one end of a secret passage." 2145 data 19,0,0,21 2150 P$(21)="I'm in a secret passage." 2155 data 21,22,20,21 2160 P$(22)=P$(21) 2165 data 21,22,22,23 2170 P$(23)=P$(21) 2175 data 23,23,22,9 2180 P$(24)="I'm in a huge ice cavern. The ceiling and walls are all ice." 2185 data 6,26,25,0 2190 P$(25)="I'm in a room with many animals... Wait! They all ran away" 2195 data 5,0,0,0 2200 P$(26)="I'm in a room with traces of slime on the floor and walls." 2205 data 24,29,27,28 2210 P$(27)="I'm in Al's Diner??? There's a Coke machine. It says: Quarter " 2215 data 0,0,0,26 2220 P$(28)="I'm in a huge pit." 2230 DATA 0,0,26,0 2240 P$(29)="I'm in the hydra room. The walls are all slime." 2245 DATA 26,30,31,32 2250 P$(30)="I'm in the dragon room. It seems to decorated with dragons." 2255 data 29,34,0,33 2260 P$(31)="I'm in a torture chamber. Let's get out of here quick!!" 2265 data 31,31,31,29 2270 P$(32)="This is the clam room. The walls are solid clamshell" 2275 DATA 0,0,29,0 2280 P$(33)="I'm in a mammoth garden. This is all plants." 2285 DATA 0,0,30,0 2290 P$(34)="I'm in the velvet room. The walls and ceiling are velvet." 2295 DATA 30,34,35,0 2300 P$(35)="I'm in an Arabian room. ther is a machine oil slick nearby" 2305 DATA 36,37,0,34 2310 P$(36)="Treasure room.dwarfs guard some treasure.Nothing to flip over" 2315 DATA 0,35,0,0 2320 P$(37)="I'm at Mac's Earthdigger Bodyshop." 2325 DATA 35,0,0,0 2330 DIM P(37,4) 2335 FOR I=1 TO 37 2336 FOR J=1 TO 4 2337 READ P(I,J) 2338 NEXT J,I 2340 LO=33:DIM OB$(LO),OB(LO,1) 2350 OB$(1)="a set of keys":OB$(2)="a shiny sword" 2355 DATA 6,0,16,0 2360 OB$(3)="a parrot in a cage":OB$(4)="a gold nugget" 2365 DATA 25,5,4,10 2370 OB$(5)="a 35,000 carat diamond":OB$(6)="a cigarette lighter" 2375 DATA 7,10,28,0 2380 OB$(7)="a Quarter":OB$(8)="an enormous emerald" 2385 DATA 28,0,32,15 2390 OB$(9)="some silver bars":OB$(10)="a giant hydra with nine heads" 2395 DATA 33,15,29,0 2400 OB$(11)="a ming vase":OB$(12)="a bottle of Coke" 2405 DATA 30,10,0,0 2410 OB$(13)="an empty Coke bottle":OB$(14)="some tools" 2415 data 0,0,34,0 2420 OB$(15)="a large ruby":OB$(16)="gold bars" 2425 DATA 8,15,19,20 2430 OB$(17)="a diamond necklace":OB$(18)="a magic wand" 2435 data 19,25,14,0 2440 OB$(22)="a Fribulating Gonkulator" 2445 data 37,50 2450 OB$(20)="a giant bug asleep" 2455 DATA 31,0 2460 OB$(31)="some tasty food":OB$(32)="some human skeletons":OB(32,0)=31 2465 OB(32,1)=0 2470 OB$(33)="a dead hydra on the ground" 2480 FOR I=1 TO 20:READ OB(I,0),OB(I,1):NEXT I 2490 OB(22,0)=OB(19,0):OB(22,1)=OB(19,1) 2500 OB(19,1)=0:OB(19,0)=0 2510 OB(31,0)=27:OB(31,1)=0 2520 DATA KEYS,SWORD,PARROT,NUGGET,DIAMOND,LIGHTER,QUARTER,EMERALD,SILVER,HYDRA 2525 data VASE,COKE,BOTTLE,TOOLS,RUBY,GOLD,NECKLACE,WAND,SIGN,BUG,ALEXANDER 2526 DATA GONKULATOR,NORTH,SOUTH,EAST,WEST 2530 DATA N,S,E,W,FOOD,SKELETONS 2540 NN=32:DIM NO$(NN) 2550 FOR I=1 TO NN:READ NO$(I):NEXT I 2560 DATA GO,GET,LOOK,INVEN,SCORE,DROP,HELP,SAVE,LOAD,QUIT,SAY,DRINK,FEED,HIT 2561 DATA KILL,BURN,FIGHT,LIGHT,INSERT,TAKE,WAVE,RELEASE,CONTINUE,DESTROY,SIR 2562 DATA FIX,EAT,?,INVENTORY,HOCUS 2570 NV=30:DIM VB$(NV):FOR I=1 TO NV:READ VB$(I):NEXT I 2580 M1$="The parrot chants: Sir Alexander...Sir Alexander!" 2590 M2$="The troll scurries away in fear." 2600 M3$="Gulp gluk gulp! (burp) That was refreshing!" 2610 DIM H$(NP) 2620 H$(25)="This parrot talks..." 2630 H$(29)="Cigar? Cigarette? Tipparillo?" 2640 H$(10)="You know this world is enchanted..." 2650 H$(12)="You can make the passages look less alike by dropping things." 2660 H$(13)=H$(12):H$(14)=H$(12):H$(15)=H$(12) 2670 H$(1)="I think we're supposed to leave what we find here." 2680 H$(35)="Often times oil means an auto bodyshop is nearby." 2690 H$(31)="The bug will not bother you it is asleep. Hint: If you linger too long in this room it will wake up!" 2700 H$(2)="You know, in this enchanted world, many things that are small on earth are very large..." 2710 H$(20)="Try to find your way to the other end, dummy!!":H$(23)=H$(20) 2720 RETURN 32000 title$=" A 520ST Adventure " 32001 poke systab+24,1:'Don't need to see this... 32002 a#=gb:'Fetch globals address 32003 gintin=peek(a#+8):'AES int_in array 32004 poke gintin+0,peek(systab+8):'OUTPUT window handle 32005 poke gintin+2,2:'we're changing it's name 32006 s#=gintin+4:'DBL address for long poke 32007 title$=title$+chr$(0):'assure zero terminator 32008 poke s#,varptr(title$):'title of new window 32009 gemsys(105):'wind_set AES call 32010 poke systab+24,0:'Turn things back on 32011 return 10 START:fullw 2:clearw 2:nr=24:ni=31:nv=27:option base 1:goto INITIALIZE 30 CASE:'change from lower to upper case 40 for x=1 to len(cm$):b$=mid$(cm$,x,1) 50 if b$>="a" and b$<="z" then mid$(cm$,x,1)=chr$(asc(b$)-32) 60 next:return 70 TRANS:'print translated text 80 gotoxy 5,7:color 2 90 for x=1 to len(a$):if mid$(a$,x,1)="=" then mid$(a$,x,1)="!":goto 100 95 mid$(a$,x,1)=chr$(asc(mid$(a$,x,1))-1) 100 next:? a$:a$="":return 110 RENEW:'update screen 120 color 1:gosub DESCRIPTION:gosub VECTORS:gosub ITEMS:gosub INVENTORY:return 130 DESCRIPTION:'print room name 140 gotoxy 9,2:? space$(25):gotoxy 9,2:a$=room$(room-4):gosub 90:return 150 VECTORS:'display exits 160 gotoxy 9,4:? space$(15) 170 for x=0 to 5:vector(x+1)=vecs((room-4)*6-5+x):next 180 dr=0:gotoxy 9,4 190 for x=1 to 6:if vector(x)>0 then ? mid$(singles$,x,1);" ";:dr=1 200 next:if dr=0 then ? "None"; 210 return 220 ITEMS:'display visible items 230 color 1:for x=11 to 15:gotoxy 4,x:? space$(14):next 240 it=0:y=11:for z=1 to ni 250 if abs(iloc(z))=room then gotoxy 4,y:a$=item$(z):gosub 90:it=1:y=y+1 260 next:if it=0 then gotoxy 4,11:? "Nothing" 270 return 280 INVENTORY:'display inventory items 290 for x=11 to 15:gotoxy 19,x:? space$(14):next 300 i=0:y=11:for z=1 to 5 310 if inv(z)<>0 then gotoxy 19,y:a$=item$(inv(z)):gosub 90:i=1:y=y+1 320 next:if i=0 then gotoxy 19,11:? "Nothing" 330 return 340 PARSER:'get command 350 if len(a$)>0 then gosub TRANS 360 on error goto 2870 370 if drgcnt>0 and room<>24 then drgcnt=drgcnt+1:if drgcnt>10 then iloc(13)=0:iloc(28)=-24:drgcnt=0 380 color 1:? chr$(7):gotoxy 2,8:input cm$:gosub CASE 390 gotoxy 4,8:? space$(31):gotoxy 5,6:? space$(30):gotoxy 5,6:? cm$ 400 gotoxy 5,7:? space$(30):gotoxy 5,7:color 2 405 if cm$="QUIT" then gosub LIVEMOUSE:color 1:end 410 if cm$="HELP" then a$="Uzqf!jo!uif!fodszqufe!ijou":h=1:goto PARSER 420 if h=1 then h=0:a$=cm$:goto PARSER 430 if len(cm$)=1 then 500 440 x=instr(cm$," "):if x<3 then ? "HUH?":goto PARSER 450 verb$=left$(cm$,3):noun$=mid$(cm$,x+1,3) 460 v=instr(vtab$,verb$):if v=79 then v=6 465 if v>0 then v=tr(int(v/3)+1):goto 480 470 ? "Don't understand that verb!":goto PARSER 480 n=instr(ntab$,noun$):if n>0 then n=int(n/3)+1:goto 500 490 if room<>14 or v<>8 then ? "Don't understand that noun!":goto PARSER 500 turn=turn+1:if int(turn/10)<>turn/10 then 510 505 iloc(9)=0*(iloc(9)<0)+11*(iloc(9)=0):if room=11 then gosub ITEMS 506 if iloc(9)=-11 then bus=bus+1:if bus>2 then bus=1 510 if room=15 then scr=scr+1:if scr=3 then a$="IF!UISPXT!IJT!QJUDIGPSL=":goto DEAD 520 if room<>15 then scr=0 530 color 2:gotoxy 5,7 540 if bturn>0 then bturn=bturn+1:if bturn=5 then bturn=0:room=11:iloc(9)=0:gosub RENEW:a$="Zpv!hfu!upttfe!pgg!uif!cvt":goto PARSER 550 if len(cm$)=1 then goto ONELETTER 560 on v goto 650,800,970,1200,1250,1430,1460,1510,1610,1640,1720,1740,1780,1840,1880,1960,2050 570 ONELETTER:'single letter commands 580 v=instr(singles$,cm$):if v=0 then ? "WHAT?":goto PARSER 590 if room=24 and iloc(13)=-24 and iloc(14)=-1 then a$="UIF!XJOP!BUUBDLT!ZPV=":goto DEAD 610 if vector(v)=0 then ? "You can't go that way!":goto PARSER 620 ? "Okay":room=vector(v):gosub RENEW:goto PARSER 650 color 2 660 if room=25 and wt=0 and iloc(14)=-1 and n=39 then wt=1:a$="Zpv!gjmm!uif!cpuumf":goto PARSER 670 if n=8 and op3=1 and (iloc(4)=0 or iloc(4)=-1) then 720 680 if n=7 and op1=1 and iloc(n)=0 and room=12 then 720 685 if n=2 and op=1 and iloc(n)=0 and iloc(1)=-1 then 720 690 if n=14 and iloc(14)=0 and room=24 then 720 695 if n=26 and iloc(n)=0 and room=24 then 720 697 if n=27 and iloc(n)=0 and iloc(5)=-1 then 720 700 if n=29 and iloc(19)=-1 then 720 705 if (iloc(30)=room or iloc(30)=-1) and n=23 and iloc(n)=0 then 720 707 if n>ni then goto CANT 710 if iloc(n)<-4 then ? "You can't get that!":goto PARSER 715 if abs(iloc(n))<>room then ? "It's not here!":goto PARSER 720 if iloc(n)=-1 then ? "You already have it!":goto PARSER 730 i=0:for x=1 to 5:if inv(x)=0 then i=x 740 next:if i=0 then ? "You can't carry anymore!":goto PARSER 750 if room=27 and n=19 and iloc(18)=-room then a$="TIF!TBX!ZPV=!KBJM!UJNF=":goto DEAD 760 if room=28 and iloc(20)=-room then a$="UIF!EPH!DIFXT!ZPV!VQ=":goto DEAD 770 ? "Okay":iloc(n)=-1:inv(i)=n:color 1 780 gosub ITEMS:gosub INVENTORY:goto PARSER 800 color 2 810 if n<33 or n>34 then 850 820 pay=n-32:if pay>tok then a$="Zpv!epo(u!ibwf!fopvhi":goto PARSER 830 tok=tok-pay:if tok>0 then 835 831 for x=1 to 5:if inv(x)=8 then inv(x)=0 832 next:iloc(8)=0:gosub ITEMS:gosub INVENTORY 835 if pay-1 then ? "You don't have it!":goto PARSER 860 for x=1 to 5:if inv(x)=n then i=x 870 next:if room=27 and n=23 then b$="(Pi=!J(mm!hfu!b!qmbuf=(":iloc(23)=0:iloc(18)=0:inv(i)=0:goto 950 880 if room=28 and n=26 then b$="Uif!eph!hpccmft!ju!vq":iloc(n)=-4:iloc(24)=-room:iloc(20)=0:inv(i)=0:goto 950 890 if n=29 and iloc(14)=-1 then drg=1:b$="///jo!uif!cpuumf":iloc(n)=0:inv(i)=0:goto 950 900 if room=24 and iloc(13)=-24 and drg=1 and n=14 then drgcnt=1:iloc(14)=0:inv(i)=0:color 1:b$="Uif!xjop!ublft!ju!cbdl":goto 950 910 if room=25 and n=27 then iloc(n)=-4:inv(i)=0:b$="///jo!uif!ejti":goto 950 920 if room=25 and bl=0 and n=14 and wt=1 and wn=1 then a$="Uif!qsjftu!cmfttft!uif!xbufs":bl=1:goto PARSER 925 cnt=0:for x=1 to ni:if abs(iloc(x))=room then cnt=cnt+1 926 next:if cnt=5 then ? "No more room here!":goto PARSER 930 inv(i)=0:iloc(n)=room:? "Okay":color 1 940 gosub ITEMS:gosub INVENTORY:goto PARSER 950 color 1:gosub ITEMS:gosub INVENTORY:a$=b$:gotoxy 5,7:goto PARSER 970 if n>ni then 1180 990 if n=1 and iloc(n)=-1 and op=1 and iloc(2)=0 then a$="Uifsf(t!b!mfuufs!jotjef":goto PARSER 1000 if room=7 and n=4 and op2=0 then a$="Uif!mje!jt!mpdlfe-!ijohfe":goto PARSER 1010 if room=12 and n=6 and op1=1 and iloc(7)=0 then a$="Uifsf(t!b!tdsfxesjwfs":goto PARSER 1020 if n=4 and (iloc(n)=-1 or iloc(n)=room) and op3=1 and iloc(8)=0 then a$="Uifsf(sf!uplfot!jo!ju":goto PARSER 1030 if n<>9 or iloc(n)<>-room then 1065 1040 a$="Ju(t!hpjoh!up!":on bus goto 1050,1060 1050 a$=a$+"EPXOVOEFS":goto PARSER 1060 a$=a$+"EPXOJOHWJMMF":goto PARSER 1065 if n=8 and iloc(8)=-1 then ? "You have ";tok;" of them":goto PARSER 1070 if room=14 and n=11 then a$="Uifsf(t!b!cvuupo!po!ju":goto PARSER 1080 if room=26 and n=17 then a$="CFXBSF!PG!EPH":goto PARSER 1090 if room=24 and n=25 and iloc(26)=0 then a$="Uifsf(t!bo!pme!ibncvshfs!jo!ju":goto PARSER 1100 if n=5 and iloc(n)=-1 and iloc(27)=0 then a$="Uifsf(t!b!epmmbs!jo!ju":goto PARSER 1110 if room=25 and n=16 then a$="If!ibt!b!dpmmfdujpo!ejti":goto PARSER 1120 if room=25 and n=15 then a$="Uifsf(t!xbufs!jo!ju":goto PARSER 1130 if room=24 and (n=13 or n=28) and iloc(14)=0 then a$="If(t!hpu!b!cpuumf":goto PARSER 1140 if n=19 and iloc(n)=-1 then a$="Uifsf(t!tmffqjoh!qjmmt!jo!ju":goto PARSER 1150 if n=14 and iloc(n)=-1 and wn=0 then a$="Uifsf(t!xjof!jo!ju":goto PARSER 1160 if n=30 and iloc(n)=-1 and iloc(23)=0 then a$="Uifsf(t!dppljft!jo!ju":goto PARSER 1170 if n=3 and iloc(n)=-1 then a$="Uif!ujumf!jt;!TUSFFU!DPEFT":goto parser 1172 if room=15 and n=12 then a$="XPX=!Ipsot!boe!fwfszuijoh=":goto PARSER 1180 ? "You see nothing special":goto PARSER 1200 if n=1 and iloc(n)=-1 and op=0 then a$="Zpv!sjq!ju!pqfo":op=1:goto PARSER 1210 if room=12 and n=6 and op1=0 then ? "Okay":op1=1:goto PARSER 1220 if n=4 and (iloc(n)=-1 or iloc(n)=room) and op2=1 then a$="Pqfojoh///":op3=1:goto PARSER 1230 if n=4 and (iloc(n)=-1 or iloc(n)=room) then a$="Zpv!epo(u!ibwf!uif!lfz":goto PARSER 1235 goto CANT 1250 if n<>2 or iloc(n)<>-1 then 1400 1260 clearw 2:gotoxy 17,0:a$="777!Gjsfgbmm!Dpvsu":gosub 90 1270 gotoxy 17,1:a$="Epxovoefs-!OK!43576":gosub 90 1280 gotoxy 17,2:a$="Kvof!23-!2:97":gosub 90 1290 a$="Efbs!ofjhicps-":gosub 90:?:a$="JNBHJOF=!Bozuijoh!zpv!eftjsf!dbo!cf":gosub 90 1300 a$="zpvst!xjuijo!35!ipvst=!Uibu(t!sjhiu=":gosub 90 1310 a$="POMZ!35!IPVST=!Npofz-!Mpwf-!b!ofx":gosub 90 1320 a$="dbsffs/!!Bozuijoh!bu!bmm/!Dbo!zpv":gosub 90 1330 a$="usvtu!vt@!Ifz-!xf(wf!cffo!nbljoh":gosub 90 1340 a$="hsfbu!efbmt!gps!dfouvsjft/!Up!ublf":gosub 90 1350 a$="bewboubhf!pg!uijt!gboubtujd!pggfs-":gosub 90 1360 a$="kvtu!tjho!po!uif!epuufe!mjof!)SFE!jol":gosub 90 1370 a$="pomz-!qmfbtf*/":gosub 90:?:a$="Ns/!Tdsbudi":gosub 90 1380 color 1:gotoxy 10,17:? "Press RETURN";:input a$:gosub SCREEN:gosub RENEW 1390 goto PARSER 1400 if room=26 and n=17 then a$="CFXBSF!PG!EPH":goto PARSER 1410 if n=3 and iloc(n)=-1 then a$="Vtf;!GJOE!tusffu!obnf":goto PARSER 1430 if n=2 and iloc(n)=-1 and iloc(31)=-1 then a$="Zpv(wf!usbefe!bxbz!zpvs!tpvm=":goto DEAD 1440 goto CANT 1460 if (iloc(4)<>-1 and iloc(4)<>room) or iloc(7)<>-1 or n<>32 or op2=1 then goto CANT 1470 a$="///Vtjoh!uif!tdsfxesjwfs":op2=1:goto PARSER 1510 if room=11 and n=9 and iloc(9)=-room then room=13:bturn=1:gosub RENEW:a$="Plbz":goto PARSER 1520 if room<>14 or but=0 then 1580 1530 but=0:if n=36 then room=15:goto 1570 1540 if n=37 then room=16:goto 1570 1550 if n=38 then room=9:goto 1570 1555 if n=45 then room=14:goto 1570 1560 a$="Opuijoh!ibqqfot":goto PARSER 1570 gosub RENEW:a$="Qpppggggg=":goto PARSER 1580 if room=26 and n=22 then a$="ZPV(SF!UISPXO!JO!KBJM=":goto DEAD 1590 goto CANT 1610 if room=13 and n=9 then room=bxit:? "Okay":gosub RENEW:goto PARSER 1620 goto CANT 1640 if n<>10 or room<>13 then 1680 1650 a$="(Gbsf!jt!":on bus goto 1660,1670 1660 a$=a$+"2!uplfo(":goto PARSER 1670 a$=a$+"3!uplfot(":goto PARSER 1680 if room=24 and n=13 and iloc(13)=-24 then a$="If!cvsqt!boe!tnjmft":goto PARSER 1690 if room=27 and n=18 and iloc(n)=-27 then a$="(Ipx!bcpvu!b!tobdl@(":goto PARSER 1695 if room=25 and n=16 and iloc(27)<>-4 then a$="(Dibsjuz!jt!hppe!gps!uif!tpvm(":goto PARSER 1697 if room=25 and n=16 then a$="(Ipx!nbz!J!ifmq!zpv@(":goto PARSER 1700 goto CANT 1720 if room=14 and n=35 then a$="B!wpjdf!tbzt;!(Foufs!Dpef(":but=1:goto PARSER 1730 goto CANT 1740 if room=26 and n=22 and iloc(18)=0 then room=27:gosub RENEW:a$="Epps!jt!pqfo/!Zpv!tufq!jotjef":gotoxy 5,7:goto PARSER 1750 if room=26 and n=22 then room=27:gosub RENEW:a$="B!mbez!mfut!zpv!jo":gotoxy 5,7:goto PARSER 1760 goto CANT 1780 if n<>13 or iloc(14)<>-1 or wn=1 then 1810 1790 if room=24 and iloc(13)=-24 then a$="UIF!XJOP!BUUBDLT!ZPV=":goto DEAD 1800 wn=1:wt=0:a$="Zpv!qpvs!pvu!uif!xjof":goto PARSER 1810 if room=15 and iloc(14)=-1 and bl=1 and n=39 then a$="IF!NFMUT!BXBZ!UP!OPUIJOH":goto WINNER 1820 if room=15 and iloc(14)=-1 and n=39 then a$="IF!UISPXT!B!QJUDIGPSL=":goto DEAD 1830 goto CANT 1840 if room<16 or room>24 and n=21 and iloc(n)=-1 then a$="Xiffffffff=":goto PARSER 1850 if room>15 and room<25 and n=21 and iloc(n)=-1 then room=9:gosub RENEW:a$="Pgg!zpv!hp=":goto PARSER 1860 goto CANT 1880 if n<>40 then goto CANT 1890 ? "Saving...":open "O",#1,"SCRATCH.DAT" 1900 for x=1 to ni:write #1,iloc(x):next 1910 for x=1 to 5:write #1,inv(x):next 1920 write #1,room,op,op1,op2,op3,turn,bturn,bus,tok,bxit,but 1930 write #1,drg,drgcnt,wat,bl,wn,scr:goto 2020 1960 if n<>40 then goto CANT 1970 on error goto 2030:? "Loading...":open "I",#1,"SCRATCH.DAT" 1980 for x=1 to ni:input #1,iloc(x):next 1990 for x=1 to 5:input #1,inv(x):next 2000 input #1,room,op,op1,op2,op3,turn,bturn,bus,tok,bxit,but 2010 input #1,drg,drgcnt,wat,bl,wn,scr:gosub RENEW 2020 close:gotoxy 5,7:color 2:? "Done! ":goto PARSER 2030 a$="OP!HBNF!TBWFE=":resume PARSER 2050 if n<41 or n>44 or iloc(3)<>-1 then goto CANT 2060 a$="Uif!dpef!jt;!":if n=41 then a$=a$+"GBM" 2070 if n=42 then a$=a$+"BJO" 2080 if n=43 then a$=a$+"WJM" 2085 if n=44 then a$=a$+"UPO" 2090 goto PARSER 2100 CANT:? "You can't do that!":goto PARSER 2110 DEAD:'Player blew it! 2120 clearw 2:gotoxy 18-len(a$)/2,5:gosub 90 2130 gotoxy 6,8:? "This adventure is over!" 2140 gotoxy 6,12:? "You lasted ";turn;" turns" 2150 color 1:gotoxy 8,17:? "Play again";:input a$ 2160 if left$(a$,1)="Y" or left$(a$,1)="y" then gosub LIVEMOUSE:goto 2240 2170 if left$(a$,1)="N" or left$(a$,1)="n" then gosub LIVEMOUSE:end 2180 goto 2150 2190 WINNER:'Mission completed! 2200 clearw 2:gotoxy 18-len(a$)/2,5:gosub 90 2210 gotoxy 12,8:? "YOU WIN!!":gotoxy 6,12:? "It took you ";turn;" turns":goto 2150 2220 INITIALIZE:'set up game 2230 if peek(systab)=1 then gotoxy 10,10:? "You must have a color monitor!":for x=1 to 5000:next:end 2235 dim vector(6),vecs(nr*6),item$(ni),inv(5),room$(nr),iloc(ni+12),tr(nv) 2236 dim v%(4),ml%(50):av=varptr(v%(1)):strt=varptr(ml%(1)) 2237 dim bus(2): bus(1)=14:bus(2)=16 2240 poke contrl,32:poke contrl+2,0:poke contrl+6,1:poke intin,2:vdisys(1) 2250 restore 2360:fullw 2:clearw 2:if peek(systab)=2 then linef 302,0,302,168 2260 color 2,1:fill 150,80 2270 ef=16:gosub TEXTEFFECT:gotoxy 5,5:? "M I S T E R S C R A T C H" 2280 ef=4:gosub TEXTEFFECT:color 3:gotoxy 9,7:? " A Devilish Tale" 2290 ef=1:gosub TEXTEFFECT:color 4:if peek(systab)=2 then color 2 2300 gotoxy 15,9:? "by" 2310 gotoxy 10,10:? "Clayton Walnum":ef=0:gosub TEXTEFFECT 2340 for x=1 to 5:inv(x)=0:next:inv(1)=5:inv(2)=31 2350 for x=1 to nr*6:read vecs(x):next 2360 data 6,7,8,0,0,12,0,5,0,0,0,0,5,0,0,0,0,0,9,10,0,5,0,0 2370 data 0,8,0,0,0,0,8,11,0,0,0,0,10,0,0,0,0,0,0,0,0,0,5,0 2380 data 0,0,0,0,0,0,14,14,14,14,14,14,0,0,0,0,0,0,22,17,22,16,0,0 2390 data 16,18,24,0,0,0,17,19,25,0,0,0,18,20,26,0,0,0,19,21,0,0,0,0 2400 data 20,22,22,21,0,0,23,21,21,22,0,0,22,23,23,24,0,0,0,0,23,17,0,0 2410 data 0,0,0,18,0,0,0,0,0,19,0,0,0,0,28,26,0,0,0,0,0,27,0,0 2420 for x=1 to ni:read item$(x),iloc(x):next 2430 data Fowfmpqf,5,Mfuufs,0,Cppl,6,Kfxfmsz!cpy,7,Xbmmfu,-1,Uppm!lju,-12 2440 data Tdsfxesjwfs,0,Uplfot,0,Cvt,-11,Esjwfs,-13,Ufsnjobm,-14 2450 data Ns/Tdsbudi,-15,Xjop,-24,Cpuumf,0,Gpou,-25,Qsjftu,-25 2460 data Tjho,-26,Mbez,-27,Kbs!pg!qjmmt,27,Tobsmjoh!eph,-28,Cjdzdmf,28 2470 data Gspou!epps,-26,Dppljft,0,Ibqqz!eph,0,Hbscbhf!dbo,-24,Ibncvshfs,0 2480 data Epmmbs,0,Tmffqjoh!xjop,0,Qjmm,0,Tipqqjoh!cbh,5,Sfe!qfo,-1 2490 vtab$="GETTAKDROGIVLOOEXAOPEREASIGUNSREMGO ENTEXILEATALSPEPRE" 2500 vtab$=vtab$+"PUSKNOPOUEMPRIDSAVLOAFINPAY" 2510 for x=1 to nv:read tr(x):next 2520 data 1,1,2,2,3,3,4,5,6,7,7,8,8,9,9,10,10,11,11,12,13,13,14,15,16,17,18 2530 for x=1 to 11:read room$(x):next 2540 for x=12 to 19:room$(x)="Po!Epxojohwjmmf!Tu/":next 2550 for x=20 to nr:read room$(x):next 2560 data Jo!zpvs!mjwjoh!sppn,Jo!zpvs!efo,Jo!zpvs!cfesppn,Po!Nbjo!Tusffu 2570 data Po!Nbjo!Tusffu,Po!Nbjo!Tusffu,Bu!uif!cvt!tupq,Jo!uif!dfmmbs 2580 data Po!b!cvt,Po!Ipuufsupo!Tusffu,Jo!b!sfe!pggjdf 2590 data Jo!bo!bmmfz,Jo!b!divsdi,Jo!tpnfpof(t!gspou!zbse 2600 data Jo!b!mjwjoh!sppn,Jo!tpnfpof(t!cbdl!zbse 2610 ntab$="ENVLETBOOBOXWALKITSCRTOKBUSDRITERMR.WINBOTFONPRISIGLADJARDOGBIC" 2620 ntab$=ntab$+"DOOCOOHAPGARHAMDOLSLEPILBAGPEN" 2630 ntab$=ntab$+"HINONETWOBUTFALVILAINWATGAMFIRMAIDOWHOTTON" 2640 singles$="NSEWUD" 2645 for i=0 to 96 step 2:read c:poke strt+i,c:next 2646 data &h3f3c,&h22,&h4e4e,&h548f,&h2a6f,&h6,&h2a55,&h2040,&h41e8,&h10 2647 data &h2a90,&h2f3c,0,&h34,&h2f3c,0,&h36,&h3f3c,0,&h3f3c,0,&h4e4e 2648 data &hdffc,0,&hc,&h4e75,&h4e75,0,0,0,0,&h2a6f,&h6,&h2a55,&h2f15 2649 data &h2f3c,0,&h5e,&h3f3c,&h1,&h3f3c,0,&h4e4e,&hdffc,0,&hc,&h4e75,&h3,0 2650 room=5:op=0:op1=0:op2=0:op3=0:turn=0:bturn=0:bus=1:tok=4:bxit=11:but=0 2660 drg=0:drgcnt=0:wat=0:bl=0:wn=0:scr=0 2680 gosub SCREEN:gosub DEADMOUSE:gosub RENEW:goto PARSER 2690 SCREEN:'draw display 2700 poke contrl,32:poke contrl+2,0:poke contrl+6,1:poke intin,2:vdisys(1) 2705 restore 2730:clearw 2:color 2,4,2 2710 read a,b,c,d:if a=-1 then 2790 2720 linef a,b,c,d:goto 2710 2730 data 0,0,303,0,0,0,0,166,303,0,303,166,0,166,303,166 2740 data 92,0,92,10,218,0,218,10,10,10,293,10 2750 data 10,10,10,156,293,10,293,156,10,156,293,156 2760 data 15,14,288,14,15,15,15,151,288,15,288,151,15,151,288,151 2770 data 15,32,288,32,15,50,288,50,15,86,288,86,151,86,151,151 2780 data -1,-1,-1,-1 2790 fill 150,161:color 1,8,6,1,1:fill 150,5:fill 150,12 2795 if peek(systab)=2 then color 2 2800 gotoxy 11,0:? "MISTER SCRATCH":color 1 2810 gotoxy 2,2:? "PLACE:":gotoxy 2,4:? "EXITS:" 2820 gotoxy 2,10:? "YOU SEE:":gotoxy 17,10:? "YOU HAVE:" 2830 return 2840 TEXTEFFECT:'set effects for text 2850 poke contrl,106:poke contrl+2,0:poke contrl+6,1 2860 poke intin,ef:vdisys(1):return 2870 gotoxy 5,7:? "ERROR ";err;" AT LINE ";erl:resume PARSER 2880 DEADMOUSE:'get rid of the critter 2890 call strt(av):return 2900 LIVEMOUSE:'rodent reincarnation 2910 strt1=strt+62:call strt1(av):return `'f/*O*m#7 - ЭЭм"ҍ¼.A// Bg?<JNA y7"h#7E?/ NN"/0<NBNu o AdpNu#7BNuNV0/"/ NB7d0< A("NB0<NBN^Nu o2/0/ HSoQBNu o0/JfBNuf SNuNVN.=/<=/<=/<=NJ 3=By=`0y=? 0Ry= y =m3?.</<=/<? NP>N&3Cr yCrf>?9=NT.=/<=/<=/<=?<?9=N.) ?<PBg?9=N*\.)4?<nBg?9=N*\.=/<=/<=/<=?<?9=N.)F?<Bg?9=N*\.=/<=Bg?<?9=N J@g>=NN8B@`<>=NBnBn`^.?<?.?9=N@\ N2n1nRn N2n1nRn N2n1nRnRn nm.)?<N&T>N&#A8#B|#A/9A8/9A=aRy= y =mBy=`>=a,Ry= y =m#A8A^#A<A8#A^A< 9A/9A8/9ACr/9B|/9B|?<N& BnBn`Z N2n=hRn N2n=hRn N2n=hRn.?.?9=NXRn nm>=NN8N^NuNV0nA2nAb00nA2nB@00nB2nAb0Q0nB2nB@0Q0nAbJPlR0nAbBP0n"|B00D@2nB2 |CT2n(.(?< N&T0nAb PoT0nAb00n"|B00D@2nB2 |CT2n(.(?< N&T0nB@JPlR0nB@BP0n"|B00D@2nB2 |CT2n(.(?< N&T0nB@ P oT0nB@0 0n"|B00D@2nB2 |CT2n(.(?< N&T0n"|B00T@2nB20n"|Ab00@3)0n"|B@00@3)0n"|Ab002nB@2A@@3)N ^N^NuNV0n"|A00@3)0n"|A00@3)N N^NuNV>=N>?9=NVT.=/<=Bg?<?9=Nj >?9=N0T>?9=NjT>?9=NT>?9=NT.=/<=/<=/<=?<?9=N.)X?<P?<?9=N*\By= By= 3?=3=.= ?9=NTBW?9=NT.=/<=/<=/<=?<?9=N.)l?<?<?9=N*\.)~?<?<?9=N*\>?9=NT.)l?<?<?9=N*\.)~?<?<?9=N*\N^NuH09)69):9)2KCI8|LD"y)H EcE EcE E_cE` E/cE0M |)H|66<@"< 48jY4:jYlYmYQLNuH09)69)2KCI8|LD"y)H < ""QLNuHC$|5v)gAQLNuHA #5C5 LNuHA C5 LNuJ95gbH< fL@gF(Hd495Cil 4<`4<35d495Cil 4<`4<35LNu#7NN/97Nu#7NM/97Nu#7NA/97NuNV3 83 C4ByC63C:3C@NV09:N^NuNV# 83 C43C6ByC:3C>3C@NV#= 8N^NuNV3C4ByC6ByC:3C@NVN^NuNV3eC4ByC6ByC:3C@NVN^NuNV3 = 3 = Bn nH|2n82RRnJ@f3C43C6Sn3C:3C@NVN^NuNV3{C4ByC6ByC:3C@NVN^NuNV#7#8 .мZ#8 3dC4ByC63 C: n 3C@NV n 0C@#87#:8#?28 #= 8N^NuNV3 83 83C4ByC63C:3C@NV n0: n1y:  n1y:"N^NuNV3C4ByC6ByC:3C@NV n 0:N^NuNV3 8=|`0n8"n 0T Rn nm3C4ByC63C:3C@NVN^NuNV3 83C4ByC63C:3C@NV09:N^NuNV3 83C4ByC63C:3C@NV09:N^NuNV3 83C4ByC63C:3C@NV09:N^NuNV3 83 8#83C43 C63C:3C@NVBn`0n"|:00"nRRn09C aF3C C2pN^NuNV>a*pN^NuNV>MNl n0C" n 0C$ n0C& n0C(B@09C N^NuNVHN!BW/<(NzX>/<(NzX>/<(NzX n2n B*n`&HHм7 @g H| `HRJf> /.N$XJL N^NuNVH BWN R#8#8By8.(a*n`N`RJgHHм7 @fJg2 "g 'fFH>/ RNX(@ f.5/ aVX H> M2GBRG.Ra`BG`RG M2GJg5pHHм7 @gJ5pg M2GBRGH`BWNVBW/ RNXJ@g.R/<5aX`l>NV ->f@>/ TNX|f>B?<N\|f.R/<5a|X`$BW/ RNX|g.R/<5aVX`>?/ NXJf>*/ NXJg-|J.8?<NT>/ ?<N$\<f.5/ aX`^.H?/.aZ\.N%>RWN&L(@./ N%X.a>/ ?<N$\<f`.a`|g`JfBaSy8.8Nz|f.5/<5a*XB/98?98N\>NJL0N^NuNV|./N%X. /N%`X.6/N%`X.?< NT>NN^NuNVH*n y8 X8Ry8JL N^NuNVH*n. (nGVfJL8N^NuNVHN!:>|fp`>N!08*@CtJnfU.(/.N%XJ@f U0`R`.(/.N%XJ@fU0`2>/.?N$\J@g3#7377p`U0JL N^NuNVBW?. /.a:\N^NuNVBW?. /.a"\N^NuNV>?. /.a\N^NuNVN>NN^NuNVHBG`0м6.NRG|mJLN^NuNVH*n0-|g*.N-g .NB@H+@+@Bm m>NVJL N^NuNVH>.>N"0*@ f3 7377p`NBF0|f>?<>N'T<l|>N!>N!JFf0``37377pJL N^NuNVN^NuNVH*n0-| |f, -<o >/-?N \>Gg mp`J-gJg-g;| `;| `>0- D@H/?N\Bm +mB@JL N^NuNVHN!:>|fp`>N!08*@CtJn fUJnfU.(/.N%XJ@fU;n 0``.(/.N%XJ@fU0`d>/.?N$\J@g>N!37377p`0U>B-H?N\BWB-H?N\0JL N^NuNVBW?. /.a\N^NuNVBW?. /.a\N^NuNV>?. /.a\N^NuNVH>N"0*@ f3 7377p`$>?-/. ?<BN'P+@U -JL N^NuNV>B?.a\N^NuNVH>.^GORG>a*@ fB` >/ aXJL N^NuNVH (y6*T`ZB@0-BA2-@F@J@g>N JB`:B@0-ne `*6f>a*@ f>N JB`(M*U`JL0N^NuNVH n*PB@0. X@me n `F(MB@0. HH@B@H@B@0-n 9@B@0,F@9@( n ;n B@0-F@;@#6 PJL0N^NuNVH >.|?GG0@>N R*@fB`* R*@(M9GB@0,F@9@.Pa 96JL0N^NuNVH *nQB@0-BA2-@F@J@g>N Jp`(y6eeecd(T`e2 BA2-IHABAHAЁ" BB4,JHBBBHB҂b #6B@`n BA2-IHABAHAЁf T0(mB@0-F@;@ T*`* BA2,IHABAHAЁfB@0-lB@0,F@9@(`(#6B@JL0N^NuNVH *n.a>. ^GORG>a-@fB`J n(PPg2d`Sn a`B0. B0. `%Sn Jn f>/.aXJL0N^NuNVN^NuNVN^NuNVH >.HμgR*y7(G7.Nz|f3 7377p`>Bg/ N\ JL0N^NuNVH>N"0*@ fp`XJnfB@`N-g3 7377p`0-g>/. / N"P``>/. / N#PJL N^NuNVH|BG` 6f 60`RG|m37377pJLN^NuNVp2.`F@H6B@N^NuNVHBG`>aRG|mJLN^NuNVH 0.8*@Ct0.@BUB-+| BB> Bg/ N\> ?< / N\JL0N^NuNVH>.|e3 7377B`0B@08*@Ct-f3 7377B` JL N^NuNVH *n(n >.B@=@=@``Rnnc L2n  fB@0.ncf>?.B@0.W B2.Ё//-/ N&=@B0.ѭJnf37377p`^=n`8Rn>?</<6/-/ N&=@B0.ѭnb4 -o+mB@0.JL0N^NuNVH*n>?./. /-/ N&=@Jnf37377p` B0.ѭ -o+mB@0.JL N^NuNVH*n 0.8мCt-@~.a&M`RJg :fJgc .Am .On*K`K0.`BW/ ?<o n1GBG`BW/ ?<NN'\JgB@`0<>`d>ON'JgB@`0<>`J.?<=N'T>o n1GBG`,.?<AN'T>``||b@0@6 PN0JL8N^NuNV n am n zn n nHRJfN^NuNVH *n (n`RJff .JL0N^NuNVH *n (nf .JL0N^NuNVH *n(M`RJf HJL0N^NuNVN^NuNVH *n(n `$H>a0H>a&op`lp` JfJfB@JL0N^NuNVH>.|am |zn|0JLN^Nu _B0Z"y7CCbNC NJg .NuNV n=h.0n/0n/N'P/?.?<?N'PN^NuNV n=h.0n/0n/N'P/?.?<@N'PN^Nu#8NA/98NuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^Nu Stack Overflow$C runtimeCON:LST:  wppppwwwwThis DEMO requiresa color monitor.Press any key...Brought to you by:Huskey and MangusSoftware?444??444??444??4?@44???4?@`44???4`p44>? 4px44> ?04xx44>>?84x|44~>4~~44??444~~>`x|?44~~< 8|?~44~|<~4|x8>|x0xp 4?>p`?4?>?`?@?4?>??@?4?6??4?47?4?44?4?44?4?44?4?44?4?@4?4??4?@?`44??4?`p44>? 4px44>? 04xx44>>?84x|44~>?<<4|~44~?|8 <4~~44?|x`>4~~44??444~~>`x?|44~~< 8?|~44~|<?<>~4|x8?<>>|x0?<>xp ?4>p`??4>?`@???4>?@???46???447??444?  : unmatched quoteCannot open Cannot append Cannot create : No matchStack Overflow $   66 $% $$$% % $z!!!!"CP/M-68K(tm), Version 1.2, Copyright (c) 1983, Digital Research XXXX-0000-6543216$ N            P        "           ^                         4N<,*          &    , ,D( 0 <    >  h 0HN&  jp".86 Jp $""@2&"fHR"D>* H `$hNBf*O.|4*m - ЭЭм// ?<?<JNA B?<N2\O/<NA#,NA/9,Nu#,NN/9,Nu#,NM/9,Nu?/?<LNAXONuB0//?<HNA\ONu //?<INA\ONu o"oJfSHfNu o"ofNu oB@g,|0m|9n|0@4@@BAg |0m|9oNu0/|am |zn| Nu o2/BgfSH NuB@ oJgR@`NuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^NuNVH?BCB..,. f#, <`hlDRCJlDRCn8fzB`0l :HGH`xe`Jge`|fD#, D`#, JLN^NuNVa@a` JyFga N`apyF3Fa^|gaJ@favN^NuNV.?<NzTB?<NzTJg.?<NzT.$/<E4NX9E4H>aE4NNrNN6N.%4?<?<NXBW?<NT.%KNh.%Nh.%Nh.%Nh.&>Nh.&Nh.&Nh.'Nh.'TNh.'Nh.'?<?<NXNN8N^NuNVN.'?<#BgNX.(?< ?<NX.$hBg?<NXBW?<NTBn`">WA?.WA/<(N\Rn n m.$hBg?<NX.(4?<7?<NX.$h?<-?<NXBn`0>WA?.WA/<(C?<-?.^WNP Rn n m.$h?<-?<NXByF`RBn`>09FdмF,2.HЁ @p29FdҼE^4.H҂"ARn ndmRyF yFmByF`JBn`6JyFf0. м$.a`0. м$.aRn nmRyF yFm>a43Fp3E\3FByF*3F(>F(a 3F&N^NuNVN#|HH@N^NuNVa> a>?< aT?WA n//<(hN a=@a.=@>?./.a \J@g>?./.a,\N^NuNVaZ.(Nh.(a |N^NuNVBn`Jngp `pn =@09FdмF,2.HЁ @"n0.H H@V@=@0.H ^@=@JyFf n(H>?.?.NXRn n(Hnnh0. "n@0."n@ nB(N^NuNV0. H H@=@0. H =@ n(Hn| oJng n(Hn| oV nfNJyFf@>a"`&.(a`*.(a`.(a``J@gְ|gܰ|gB@`Bn`~Jngp `pn =@0n29FdҼF,J0gFJyFf:>a` .)aH`&.):a>`.)Ua4``J@gܰ|g|gB@`Rn n(HnntpN^NuNVa(N./<)}NXNN8N^NuNVBW?<NTNN^NuNV nam nzn 0.|`0.N^NuNV.)a =@N8=@ ng nf.)NhN` n0m n9n0.=@>NN0.| n|N^NuNV>daN=@>aB=@>?./.a\J@g>?./.a\N^NuNVBn``Jng <$` <$-@Bn`$ n(H"n)HAfRn nm nf pyF`Rn nmpN^NuNVaz.)Nha=@0n29FdҼE^0H=@f$0nryFdҼF,J0gpH`pM=@29FdҼE^4.H҂"A nHf>H`>o0.H H@?W00.H ?^WNX>a=@ga>a` -|)`&-|)`-|*``J@gܰ|g|gBW?<NTNN0.S@ @"|$./.NXNa8|gB@`p`PaBW?<NTN nMf.*)`.*0/<*!NXN nHgB@`pN^NuNVJyFg <$` <$-@0nryFdҼF,0H=@fB@`dBn`V n(Hnf: n(H=@Rn0."n@ n(Hnf0.R@`B@`Rn nmN^NuNV yFfJyF*glBn>da=@`609FdмE^2.HЁ @ HgRn0.R@HdH@=@ ndm ndg3F3E\`Bn>da=@H29FdЁ @"|E^J0f0.H H@=@0.H =@Rn0.|g&0.yF&HF(H@2.HF(HAAf nfSyF( ngl`V yE\fBn>a=@`09FH H@=@09FH =@0.`Rn`*Rn`$Sn`Sn``J@g|g|g|gJnmL n nDJnm> n n609Fd2. n=AHЁ @"|E^J0f 3E\`$0.R@HH@=@ n@RnDm4 nf 3F``P09FH H@=@09FH =@09E\`Rn`*Rn`$Sn`Sn``J@g|g|g|gJnm> n n6Jnm0 n n(0n29Fd4. H҂ҼE^J0g09E\T@HH@3E\09E\`Rn`*Rn`$Sn`Sn``J@g|g|g|gJnm n nJnm n o 3F`0n29Fd4. H҂ҼE^J0g`x0. n=@a0.H H@>0.H ?WA/<*=N\.*ea=@ nHf0nryFdҼF,J0g$ nMf(0nryFdҼF,J0g .*ha```j>N0.29FdҼE^4.H҂"A nHfbRyF* yFf3E\3F yE\f3E\>*0.H H@?VW0.H ?^WNX` yE\f3E\>a=@g3F0.S@ @"|$0HyF*0.S@ @"|$0H=@0.S@ @"|$0H=@0.S@ @"|$0H=@Bn`209FdмE^2.HЁ @*Jngp `pnRn0.nma|gB@` nHgB@`pN^NuNVBn`0. @"|$0H=@0.H ^@=@0.H H@|0=@0. @"|$J0gB@`p=@0. @"|$J0gp`B@=@Bn`<0. @"|$0H>?.?.NX0.n0.nRn0. @"|$0HnnRn nmaJ@gRy%2`Ry%0.E4N0|=@ y %0mRn y %2mRn>%2?9%0/<E4/<*qpPnH??<NPa .E4a J@g/<*`/<*NX.*a8|YgB@`pN^NuNVNNVNNBWNxN^NuNVNN8>a=@ nfa-n`R nJg nHnf nJg>NN0.``N^NuNVJnm nmB`a~`.JyE,gSyE,>E,?9E.a^T` > a09E,HH@J@f`> aRyE.09E.|fSyE.`JyE.g>E,SyE.?9E.aT` yPE,@RyE,Dl>E,?9E.aT`SyE,`vJyE,gByE,`da`^ . m< yPE,@RyE,Df> a09E.Pм429E,HЁ @ ``_@|b@0@* PNN^NuNVH*n` H>aJfJL N^NuNV>a N^NuNVBWBga T.4aN^NuNVH>9E.` >BgaTRG|mJLN^NuNV>E.?9E,aTN^NuNVN^NuNVN^NuNVaN^NuNVpN^NuNVadN^NuNVN^NuNV`N#a @J@ga J@a4.HAf y#Ef yDN``BWNx`9E+g .H>a.HN^NuNV=yE*yE*=yE,=yE.B@=@=@ nBaa\=@`JngJngSn>0.W?.aT`0.nlRn>0.W?.aT`Jng JnfRnJngj .2.HЁ. .2.HЁ/SNXSnSn>0.W?.a*T .2.HЁ.a> az>?.aT`*Jng">?.aTa nBB@=@=@`> a43E*` n la`>a0.nl .2.HЁ.a<./NX .2.HЁ. 2.HЁ/NX0."N4n@./.NXRn>0.W?.aT`0.2nRn n2nB``H |+*rW hN`N^NuNVN^NuNV n0E, n 0E.N^NuNVpN^NuNVpN^NuNVH ~PyE,SG09E.P(@4OK`(MSSGJGn. H>aJL0N^NuNV>a 4>La ,N^NuNVpN^NuNVN^NuNV <+N^NuNVN^NuNV3 E,3E.N^NuNV> ?.aT> a>N^NuNV> ?.aT. alN^NuNV> ?.aTa$N^NuNV> ?.aTavN^NuNV> ?.arT> aN^NuNV.4/.0/.,/.(/.$/. /././././. /<Ca,.C?. ?.aFXN^NuNV.0/.,/.(/.$/. /././././. /./<Ca(,.CaxN^NuNVyE*N^NuNVyE*N^NuNVyE*N^NuNVyE*N^NuNVyE*N^NuNVyE*N^NuNV3E(E*N^NuNVaN^NuNV3E*E(N^NuNVaN^NuNV>a>EaN^NuNVHBG`$BF`0P2HЁЮ @ RF|PmRG|mJLN^NuNVHBF`bBG`V0G2P"|40H:0G2P"|?a6T0G2Pa`RG|PmRF|mJLN^NuNVH>.<. y+jf y+lgJGf&JFf">a>HaB@3+l3+j`JGf> aBy+jy+lo$09+lX@@l`> aRy+ly+lny+jl$0X@y+jo`>aSy+jy+jm09+jR@@f>a>Ca|Ry+j09+lS@@f>ab>AaZSy+ly+jfy+lg0>a<>Ya4>W a*>W a 3+l3+jJLN^NuNV>aRy+jN^NuNVH>.<. :G0P4` |P@RGDmJL N^NuNV <+nN^NuNVA-H#E0 yE0B`, n%fB@=@=@=@=@ n H=@R n-f=| n H=@R n0f=| n H=@R `$0. n|=@ n H=@R n0m n9o nlf=| n H=@R 0.`H>?.?.?.?</.a -@`4>?.?.?.?</.aX -@` >?.?.?.?< /.a. -@` n0H=@TJnf> ?.SWaT>aJng> ?.SWaT` n -@-@XBn`Rn nHRJfJnf> ?.0.WaxT`>aV nH=@RJ@fJng> ?.0.Wa@T``H |+rW hN`>a n H=@R J@fN^NuNV` > aSnJnnN^NuNVB@=@=@Jng n-PX` n0H-@TJl*=| n f=| .D-@` .F-@Bn`40. H/0n/6NP/ N2nRI!_Rn0nJfJnfRn0.n=@JngB@`png0n "|+x0H>?.aT`RJngSnJng>-aJnfJng>0`> ?.aTJngJnf>?<-aT`h n gJnf0nSH 6 H@H=@`&0nSH 6 H@H/0. S@H=@0n"|+x0H>a&SnJnfJng> ?.a"T .N^NuNV n f> a0."yE0RE0 yE0BN^NuNV> NHN^NuNV>?<NHTN^NuNV>?<NHTN^NuNVHBGBF`B@0HH@B@H@м+ @0@RF|eRy+09+԰|mBy+0y++0B@0HJLN^NuNVH3+>.|?`a~SGJGfatJLN^NuNVN^Nu 0 1 2 3 4 5 6 7 8 9Aircraft CarrierBattleshipSubmarineDestroyerPT BoatStranger$A$B$D$S$P$A$B$D$S$PWelcome to Battleship! \ \ \ \ \ \ \ \ \_____________ \ \ \_____________ \ \/ | \ \/ \ \/ | \/ \_____/ |__ ________________/ | \ S.S. Penguin | \ / \___________________________________________________/ Hit any key to continue...BATTLESHIPMain Board%c . . . . . . . . . . %c Hit/Miss Board%c . . . . . . . . . . %cPlace your %s (ex.%c%d) ? What direction (0=right, 1=down) ? 01Ship is hanging from the edge of the worldTry fitting it on the boardFigure I won't find it if you put it there?There's already a ship thereCollision alert! Aaaaaagh!Er, Admiral, what about the other ship?%s -- hit any key to continue --ABCDEFGHIJ Where do you want to shoot? You sank my %s!I have this sinking feeling about my %s....Have some mercy for my %s!You %s.missedscored a hitI shoot at %c%d. Do I (H)it or (M)iss? HMYou lie!%s: %d Computer: %dWant to be humiliated again, %s? Going to give me a chance for revenge, %s? YN,8\x 4Albatross0123456789ABCDEFcdosx j @  !HZenith Z-29^09_}    _trap1H_trap13h_trap14X_exitx_malloc_free_strcat_strcpy_atoi_toupper_index_strlen0ldivlmul@_numbers$h_carrier$_battle$_sub$_destroy$_ptboat$_dftname$_plyship$_cpuship$_plywon%0_cpuwon%2_main2_introx_initgam_cputurn _plyturn 6_awinna _playaga2_uninitg_plyplac_cpuplac v_rnd_prompt_getcoor_getdirV_checkplF_placesh|_sgetc_error_hitship _signalz_initscr__scrcle__physcl_move_endwin_addch__chrout#_clear_addstrh_beep_clrtobo__clrtoe_clrtoeo_delay_o_doupdat_erase_erasech_flash$_flushin0_getch8__chstat#__chin#_killcha_getstr_refresh_gettmod_getyx_has_ic _has_il_insch _insertlr_leaveok_longnam_meta_mvaddch_mvaddst_mvgetch_mvgetst_mvinsch2_mvprintP_sprintf_printw_cbreak_echo_nl_nocbrea&_noecho6_nonlF_resetteV_resettyh_saveterr_savetty__physcud__physou_getlogi_hexdig+x_doval!_prblk!l__goutch#V_rand#_srand$.__iob+___fdecl$`_nameE4_cdirE\_hitsE^_huntoffF&_srchsteF(_cpuhitsF*_boardF,_turnF_cstartF6@f $       :L6 > H  B 4"vF"   H& ""  ><b 6XVB     ,   hB &&( H4 6     R(N& " L($F, ( bH":$ ,$&ZL& " $<L($F, ( bH1000 ' 1010 ' ST BASIC Biorhythms 1020 ' Ver. 030386 1030 ' (c) 1986 Antic Publishing 1040 ' Written by Steve Whitney 1050 ' 1060 '--------------------------------------------------- 1070 gosub INITIALIZE 1080 ' 1090 while not finished 1100 gosub BIORHYTHM 1110 wend 1120 end 1130 ' 1140 '--------------------------------------------------- 1150 COUNTDAYS: 1160 days=0 1170 birthtime=( birthyear*10000+birthmonth*100+birthday ) 1180 printtime=( printyear*10000+printmonth*100+printday ) 1190 if birthtime > printtime then gosub SWAPDATES 1200 days=( 365.25*( printyear-birthyear-1 )) 1210 if birthmonthJanuary then gosub FIRSTOFYEAR 1230 gosub FIRSTLASTMONTH 1240 return 1250 ' 1260 '--------------------------------------------------- 1270 SWAPDATES: 1280 swap birthday,printday 1290 swap birthmonth,printmonth 1300 swap birthyear,printyear 1310 return 1320 ' 1330 '--------------------------------------------------- 1340 RESTOFYEAR: 1350 for month=birthmonth+1 to December 1360 days=days+month( month ) 1370 next month 1380 return 1390 ' 1400 '--------------------------------------------------- 1410 FIRSTOFYEAR: 1420 for month=January to printmonth-1 1430 days=days+month( month ) 1440 next month 1450 return 1460 ' 1470 '--------------------------------------------------- 1480 FIRSTLASTMONTH: 1490 days=days+month( birthmonth )-birthday 1500 days=days+printday-1 1510 return 1520 ' 1530 '--------------------------------------------------- 1540 BIORHYTHM: 1550 fullw output 1560 clearw output 1570 color output, 0, 1, 1, 0 1580 gotoxy ( 15*scalex ),0: color 1: print "Biorhythm!" 1590 gotoxy ( 14*scalex ),1: color 3: print "By Steve Whitney" 1600 gotoxy 0,( 2*scaley ): color 1 1610 ' 1620 inrange=FALSE 1630 while not inrange 1640 it=0 1650 print "Enter birth month, day, and year." 1660 print "( M, D, YY ):"; 1670 input birthmonth, birthday, birthyear 1680 if birthmonth>=January and birthmonth<=December then it=it+1 1690 if birthday>=1 and birthday<=31 then it=it+1 1700 if birthyear>=0 and birthyear<=99 then it=it+1 1710 if it=3 then inrange=TRUE else print bell$ 1720 wend 1730 ' 1740 print "Enter the person's name: " 1750 input name$ 1760 ' 1770 inrange=FALSE 1780 while not inrange 1790 it=0 1800 print "Enter month and year to print." 1810 print "( M, YY ):"; 1820 input printmonth, printyear 1830 if printmonth>=January and printmonth<=December then it=it+1 1840 if printyear>birthyear then it=it+1 1850 if printyear<=99 then it=it+1 1860 if it=3 then inrange=TRUE else print bell$ 1870 wend 1880 ' 1890 month$=name$( printmonth ) 1900 year$="19"+right$( str$( printyear ),2 ) 1910 title$=name$+" -- "+month$+", "+year$ 1920 ' 1930 gosub COUNTDAYS 1940 ' 1950 dev$=" " 1960 selected=FALSE 1970 while not selected 1980 color 2: print "P";: color 1: print "rinter or "; 1990 color 2: print "S";: color 1: input "creen";dev$ 2000 dev$=left$( dev$,1 ) 2010 if ( dev$="S" or dev$="s" ) then dev$="s": selected=TRUE 2020 if ( dev$="P" or dev$="p" ) then dev$="p": selected=TRUE 2030 if not selected then print bell$ 2040 wend 2050 ' 2060 if dev$="s" then gosub ONSCREEN 2070 if dev$="p" then gosub ONPRINTER 2080 return 2090 ' 2100 '--------------------------------------------------- 2110 ONSCREEN: 2120 clearw output 2130 gosub FANCY 2140 gosub LABEL 2150 color output, 1, 1, 1, 0 2160 gotoxy titlex-len( title$ )/2, 0: print title$ 2170 gosub FINDR 2180 for column=1 to 3 2190 color output, 1, column, 2, column 2200 size=.2: j=1-size 2210 gosub CALC 2220 for index=1 to 3 2230 o( index )=s( index ) 2240 next index 2250 for j=1 to month( printmonth ) step size 2260 gosub CALC 2270 co=o( column ) 2280 so=s( column ) 2290 x1=( 70*scalex )+indx*(j-size): y1=( 80*scaley )-co*50 2300 x2=( 70*scalex )+indx*j: y2=( 80*scaley )-so*50 2310 linef x1, y1, x2, y2 2320 for index=1 to 3 2330 o( index )=s( index ) 2340 next index 2350 next j 2360 next column 2370 ' 2380 poke contrl,16 2390 poke contrl+2,1 2400 poke contrl+6,0 2410 poke ptsin,1 2420 poke ptsin+2,0 2430 vdisys(1) 2440 ' 2450 GETKEY: 2460 waiting=TRUE 2470 while waiting 2480 keystroke=inp( consol ) 2490 if keystroke=helpkey then gosub HELP 2500 if keystroke=escape then waiting=FALSE: finished=TRUE 2510 if keystroke=space then waiting=FALSE: finished=TRUE 2520 if keystroke=cr then waiting=FALSE 2530 if keystroke=F1 then waiting=FALSE 2540 print bell$ 2550 wend 2560 return 2570 ' 2580 '--------------------------------------------------- 2590 HELP: 2600 gotoxy helpx, helpy1: print "+----------HELP----------+" 2610 gotoxy helpx, helpy2: print "| Space or ESC = Quit |" 2620 gotoxy helpx, helpy3: print "| F1 or CR = Do Another |" 2630 gotoxy helpx, helpy4: print "+------------------------+" 2640 return 2650 ' 2660 '--------------------------------------------------- 2670 ONPRINTER: 2680 line0$=string$( 65,"-" ) 2690 line0$=" "+line0$+"+" 2700 mid$( line0$, 40, 1 )="*" 2710 mid$( line0$, 10, 1 )="|" 2720 line1$=bl$ 2730 mid$( line1$, 70, 1 )="+" 2740 mid$( line1$, 10, 1 )="|" 2750 mid$( line1$, 40, 1 )="*" 2760 line3$=name$+space$( 76-len( name$ )-len( month$ )-len( year$ )-1) 2770 line3$=line3$+month$+" "+year$ 2780 width lprint 255 2790 lprint chr$( escape );"0";line3$ 2800 lprint 2810 for j=1 to month( printmonth ) step 0.5 2820 gosub CALC 2830 if j=int( j ) then line2$=line0$ 2840 if j=int( j ) then mid$( line2$, 2, len( str$( j )))=str$( j ) 2850 if j<>int( j ) then line2$=line1$ 2860 mid$( line2$, 40+s( 1 )*30, 1 )="P" 2870 ' 2880 z=40+s( 2 )*30 2890 if mid$( line2$, z, 1 )<>"P" then mid$( line2$, z, 1 )="E" 2900 if mid$( line2$, z, 1 )="P" then mid$( line2$, z, 1 )="2" 2910 ' 2920 z=40+s( 3 )*30: z$=mid$( line2$, z, 1 ) 2930 if z$="2" then mid$( line2$, z, 1 )="3" 2940 if not( z$="E" or z$="P" )then mid$( line2$, z, 1 )="I" 2950 if z$="E" or z$="P" then mid$( line2$, z, 1 )="2" 2960 ' 2970 lprint line2$ 2980 next j 2990 lprint chr$( escape );"2" 3000 lprint " -=Low Point, +=High Point, *=Critical Point " 3010 lprint " P=Physical, E=emotional, I=intelectual cycle" 3020 lprint chr$( formfeed ) 3030 return 3040 ' 3050 '--------------------------------------------------- 3060 CALC: 3070 s( 1 )=sin(( j+pr )/p*pi*2 ) 3080 s( 2 )=sin(( j+er )/e*pi*2 ) 3090 s( 3 )=sin(( j+ir )/in*pi*2 ) 3100 return 3110 ' 3120 '--------------------------------------------------- 3130 FINDR: 3140 pr=days-int( days/p )*p 3150 er=days-int( days/e )*e 3160 ir=days-int( days/in )*in 3170 return 3180 ' 3190 '--------------------------------------------------- 3200 LABEL: 3210 for index=0 to month( printmonth ) step 2 3220 x1=( 75*scalex )+( indx*index ): y1=( 25*scaley ) 3230 x2=( 75*scalex )+( indx*index ): y2=( 142*scaley ) 3240 linef x1, y1, x2, y2 3250 next index 3260 gosub DATES 3270 ' 3280 poke contrl,16 3290 poke contrl+2,1 3300 poke contrl+6,1 3310 poke ptsin,3 3320 poke ptsin+2,0 3330 vdisys(1) 3340 ' 3350 x1=hlx1: y1=hly 3360 x2=hlx2: y2=hly 3370 linef x1, y1, x2, y2 3380 ' 3390 gotoxy labx, laby1: ?"High" 3400 gotoxy labx, laby2: ?"Crit" 3410 gotoxy labx, laby3: ?"Low" 3420 ' 3430 gotoxy lacx1, lacy: print "Phy"; 3440 color 2 3450 gotoxy lacx2, lacy: print "Emo"; 3460 color 3 3470 gotoxy lacx3, lacy: print "Int"; 3480 color 1 3490 return 3500 ' 3510 '--------------------------------------------------- 3520 FANCY: 3530 color 1,1,1,1,1 3540 x=len( title$ )*4+4 3550 restore FANCYDATUM 3560 for index=1 to 4 3570 read x1, y1, x2, y2 3580 linef (x1*scalex), (y1*scaley), (x2*scalex), (y2*scaley) 3590 next index 3600 read x1, y1 3610 color 1,1,1,3,3 3620 fill ( x1*scalex ), ( y1*scaley ) 3630 return 3640 ' 3650 FANCYDATUM: 3660 data 50, 20, 50, 165 3670 data 50, 165, 250, 165 3680 data 250, 165, 250, 20 3690 data 250, 20, 50, 20 3700 data 290, 136 3710 ' 3720 '--------------------------------------------------- 3730 DATES: 3740 gotoxy datesx, 16 3750 x$( hirez )="1234567891111111111222222222233" 3760 x$( medrez )="1234567891111111111222222222233" 3770 x$( lorez )="2 6 1 2 3" 3780 print x$( rez ); 3790 ' 3800 gotoxy datesx, 17 3810 x$( hirez )=" 0123456789012345678901" 3820 x$( medrez )=" 0123456789012345678901" 3830 x$( lorez )=" 2 2 0" 3840 print x$( rez ); 3850 return 3860 ' 3870 '--------------------------------------------------- 3880 INITIALIZE: 3890 dim month( 13 ), o( 3 ), s( 3 ), name$( 12 ), x$( 9 ) 3900 rez=peek( systab ) 3910 hirez=1: medrez=2: let lorez=4 3920 if rez=lorez then gosub INITLOREZ 3930 if rez=medrez then gosub INITMEDREZ 3940 if rez=hirez then gosub INITHIREZ 3950 ' 3960 p=23: e=28: in=33: pi=3.14159265: printday=1 3970 output=2: TRUE=( -1 ): FALSE=( 0 ) 3980 helpkey=226: escape=27: space=32: cr=13: F1=187 3990 consol=2: bell=7: finished=FALSE: formfeed=12 4000 bl$=space$( 80 ): bell$=chr$( 7 ) 4010 January=1: February=2: December=12 4020 ' 4030 month( January-1 )=month( December ) 4040 month( December+1 )=31 4050 restore MONTHDATUM 4060 for month=January to December 4070 read name$( month ) 4080 read month( month ) 4090 next month 4100 return 4110 ' 4120 MONTHDATUM: 4130 data January, 31, February, 28, March, 31, April, 30 4140 data May, 31, June, 30, July, 31, August, 31 4150 data September, 30, October, 31, November, 30, December, 31 4160 ' 4170 '--------------------------------------------------- 4180 INITLOREZ: 4190 scalex=1: datesx=8: labx=1: helpx=10: titlex=15: indx=5 4200 lacx1=5: lacx2=15: lacx3=22: hlx1=50: hlx2=250 4210 scaley=1: laby1=4: laby2=9: laby3=14: hly=80 4220 lacy=1: helpy1=9: helpy2=10: helpy3=11: helpy4=12 4230 xres=319 4240 yres=199 4250 return 4260 ' 4270 '--------------------------------------------------- 4280 INITMEDREZ: 4290 scalex=2: datesx=18: labx=2: helpx=10: titlex=30: indx=10 4300 lacx1=10: lacx2=30: lacx3=50: hlx1=100: hlx2=500 4310 scaley=1: laby1=4: laby2=9: laby3=14: hly=80 4320 lacy=1: helpy1=9: helpy2=10: helpy3=11: helpy4=12 4330 xres=639 4340 yres=199 4350 return 4360 ' 4370 '--------------------------------------------------- 4380 INITHIREZ: 4390 scalex=2: datesx=10: labx=2: helpx=10: titlex=30: indx=10 4400 lacx1=10: lacx2=15: lacx3=19: hlx1=100: hlx2=500 4410 scaley=2: laby1=4: laby2=9: laby3=14: hly=160 4420 lacy=1: helpy1=9: helpy2=10: helpy3=11: helpy4=12 4430 xres=639 4440 yres=399 4450 return LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL10 ' 20 ' By David S. Lay 613-824-6405 30 ' 40 ''''''''''''''''''''''''''''''''' 50 randomize 0 60 dim ball(9,9) 70 dim pat(24),col(24):gosub setup 80 gosub colset 90 xstart=20:ystart=27 100 xincr=18:yincr=15 110 xinner=43:yinner=45 120 xstop=210:ystop=183 130 inwd=xincr*8:inht=yincr*8 140 true=-1:false=0 150 a#= gb 160 control=peek(a#) 170 global=peek(a#+4) 180 gintin=peek(a#+8) 190 gintout=peek(a#+12) 200 addrin=peek(a#+16) 210 addrout=peek(a#+20) 220 fullw 2:clearw 2 230 restart:for i=0 to 9:for j=0 to 9 240 test(i,j)=0:ball(i,j)=0:next j,i 250 gosub balls 260 marker=0:numballs=0:score=0:play=1 270 poke systab+24,1 280 poke contrl,123:poke contrl+2,0:poke contrl+6,0 290 vdisys(1): rem hide mouse 300 mouse=0 310 color 1,7,7,1,1 320 x1=0: x2=304 330 y1=22:y2=188 340 gosub box 350 color 1,1,1 360 x1=xstart:x2=xstop 370 y1=ystart:y2=ystop 380 gosub box 390 x1=xstop+20:x2=x1+70 400 gosub box 410 x1=43:x2=187:y1=45:y2=165 420 color 1,9,9:gosub box 430 color 1,8,8 440 for x=42 to 186 step 18 450 linef x,5,x,161:next x 460 for y=23 to 143 step 15 470 linef 19,y,209,y:next y 480 color 1,0,1,1,1 490 x1=xstop+30:x2=xstop+80 500 y1=ystart+8:y2=y1+18:gosub box 510 y1=ystart+36:y2=y1+18:gosub box 520 y1=ystart+64:y2=ystop-8:gosub box 530 gotoxy 27,2:?"Done" 540 poke contrl,122:poke contrl+2,0:poke contrl+6,1 550 poke intin,0:vdisys(1):rem show mouse 560 mouse=1 570 getkey:gemsys(79) 580 xedge=false:yedge=false 590 x=peek(gintout+2) 600 y=peek(gintout+4) 610 key=peek(gintout+6) 620 if key=1 and newkey then 680 630 if key<>0 then getkey 640 newkey=true:if mouse=1 then getkey 650 poke contrl,122:poke contrl+2,0:poke contrl+6,0 660 poke intin,0:vdisys(1):mouse=1 670 goto getkey 680 rem process button press 690 newkey=false 700 if xystop then getkey 720 if mouse=0 then 760 730 mouse=0 740 poke contrl,123:poke contrl+2,0:poke contrl+6,0 750 vdisys(1): rem hide mouse 760 if x>xstop+30 then 2180 770 if play=0 then getkey 780 if xxinner+inwd then x1=xinner+inwd+1:xedge=true:xindex=9:goto 840 800 for i=1 to 8:xtest=xinner+i*xincr 810 if xyinner+inht then y1=yinner+inht+1:yedge=true:yindex=9:goto 900 860 for i=1 to 8:ytest=yinner+i*yincr 870 if y0 then 1000 960 if numballs>4 then getkey 970 color 1,0,1,1,1:gosub circ 980 test(xindex,yindex)=1:numballs=numballs+1 990 goto getkey 1000 color 1,9,9,1,1:gosub circ 1010 test(xindex,yindex)=0:numballs=numballs-1 1020 goto getkey 1030 bounce : rem follow ray 1040 if test(xindex,yindex)>0 then return 1050 test(xindex,yindex)=2 1060 marker=marker+1:c=col(marker):p=pat(marker) 1070 color 1,c,1,p,2:gosub box 1080 gosub colchange 1090 rayx=xindex:rayy=yindex 1100 blocked=false:reflected=false 1110 if xindex=0 then dx=1:dy=0:goto 1160 1120 if xindex=9 then dx=-1:dy=0:goto 1160 1130 if yindex=0 then dx=0:dy=1:goto 1160 1140 if yindex=9 then dx=0:dy=-1:goto 1160 1150 poke systab+24,0:?"error in bounce":end 1160 if ball(rayx+dx,rayy+dy)=1 then blocked=true:goto mark 1170 if dx=0 then 1200 1180 if ball(rayx+dx,rayy-1)=1 or ball(rayx+dx,rayy+1)=1 then reflected=true 1190 goto 1210 1200 if ball(rayx+1,rayy+dy)=1 or ball(rayx-1,rayy+dy)=1 then reflected=true 1210 if reflected goto mark 1220 rayx=rayx+dx:rayy=rayy+dy 1230 if rayx>0 and rayx<9 and rayy>0 and rayy<9 then 1260 1240 if rayx=xindex and rayy=yindex then reflected=true 1250 goto mark 1260 if ball(rayx,rayy)=1 then blocked=true:goto mark 1270 if dx=0 then 1320 1280 if ball(rayx,rayy-1)=1 and ball(rayx,rayy+1)=1 then reflected=-1:goto mark 1290 if ball(rayx,rayy-1)=0 and ball(rayx,rayy+1)=0 then 1220 1300 if ball(rayx,rayy-1)=1 then rayx=rayx-dx:dx=0:dy=1:goto 1220 1310 if ball(rayx,rayy+1)=1 then rayx=rayx-dx:dx=0:dy=-1:goto 1220 1320 if ball(rayx-1,rayy)=1 and ball(rayx+1,rayy)=1 then reflected=-1:goto mark 1330 if ball(rayx-1,rayy)=0 and ball(rayx+1,rayy)=0 then 1220 1340 if ball(rayx-1,rayy)=1 then rayy=rayy-dy:dy=0:dx=1:goto 1220 1350 if ball(rayx+1,rayy)=1 then rayy=rayy-dy:dy=0:dx=-1:goto 1220 1360 end 1370 box: rem VDI box draw routine 1380 poke contrl,11 1390 poke contrl+2,2 1400 poke contrl+6,0 1410 poke contrl+10,1 1420 poke ptsin,x1 1430 poke ptsin+2,y1 1440 poke ptsin+4,x2 1450 poke ptsin+6,y2 1460 vdisys(1) 1470 return 1480 circ: rem VDI circle draw routine 1490 poke contrl,11 1500 poke contrl+2,3 1510 poke contrl+6,0 1520 poke contrl+10,4 1530 poke ptsin,xc 1540 poke ptsin+2,yc 1550 poke ptsin+8,7 1560 vdisys(1) 1570 return 1580 setup: 1590 for i=1 to 8:read pat(i):next 1600 data 2,3,4,7,9,10,11,12 1610 for i=9 to 16:pat(i)=pat(i-8):next 1620 for i=17 to 24:pat(i)=pat(i-8):next 1630 for i=1 to 20 step 5:col(i)=6:next 1640 for i=2 to 21 step 5:col(i)=7:next 1650 for i=3 to 22 step 5:col(i)=12:next 1660 for i=4 to 23 step 5:col(i)=15:next 1670 for i=5 to 24 step 5:col(i)=4:next 1680 return 1690 balls:randomize 0:for i=1 to 5 1700 x=int(rnd*8)+1:y=int(rnd*8)+1 1710 if ball(x,y)=1 then 1700 1720 ball(x,y)=1 1730 next 1740 return 1750 mark: 1760 if rayy=0 then y1=ystart:x1=xinner+(rayx-1)*xincr+1 1770 if rayy=9 then y1=yinner+inht+1:x1=xinner+(rayx-1)*xincr+1 1780 if rayx=0 then x1=xstart:y1=yinner+(rayy-1)*yincr+1 1790 if rayx=9 then x1=xinner+inwd+1:y1=yinner+(rayy-1)*yincr+1 1800 if rayx=0 or rayx=9 then x2=x1+22:y2=y1+13 1810 if rayy=0 or rayy=9 then x2=x1+16:y2=y1+17 1820 score=score+1 1830 if blocked then color 1,2,1,1,1:goto 1860 1840 if reflected then color 1,14,1,1,1:goto 1860 1850 color 1,c,1,p,2:score=score+1:test(rayx,rayy)=2 1860 if blocked or reflected then marker=marker-1 1870 gosub box:return 1920 answer:poke contrl,123:poke contrl+2,0:poke contrl+6,0 1930 vdisys(1): rem hide mouse 1940 for x=1 to 8:for y=1 to 8 1950 if ball(x,y)=0 and test(x,y)=0 then 2020 1960 if ball(x,y)=1 and test(x,y)=1 then color 1,14,1,1,1:goto 1990 1970 if ball(x,y)=1 then color 1,3,1,1,1:score=score+5:goto 1990 1980 if test(x,y)=1 then color 1,2,1,1,1 1990 xc=xinner+x*xincr-xincr/2 2000 yc=yinner+y*yincr-yincr/2 2010 gosub circ 2020 next y,x 2030 gotoxy 27,2:?"Play" 2040 gotoxy 27,5:?"Quit" 2050 gotoxy 27,9:?"Score" 2060 gotoxy 27,11:? score 2070 gotoxy 27,13 2080 if score>22 then ?"Blah!":goto 2120 2090 if score>18 then ?"Fair.":goto 2120 2100 if score>13 then ?"Good!":goto 2120 2110 ?"Wow!!" 2120 poke systab+24,0 2130 poke contrl,122:poke contrl+2,0:poke contrl+6,1 2140 poke intin,0:vdisys(1):rem show mouse 2150 poke gintout+6,0 2160 gemsys(79) 2170 goto getkey 2180 if x>xstop+80 then getkey 2190 if yystart+54 then getkey 2200 if y>ystart+36 then 2260 2210 if play=1 then play=0:goto answer 2220 color 1,1,1,1,1 2230 x1=xstop+30:x2=xstop+80 2240 y1=ystart+8:y2=y1+18:gosub box 2250 play=1:goto restart 2260 poke systab+24,0 2270 poke contrl,122:poke contrl+2,0:poke contrl+6,1 2280 poke intin,0:vdisys(1):rem show mouse 2290 end 2300 colset: 2310 poke contrl, 14:poke contrl+2,0 2320 poke contrl+6,4 2330 for colour=0 to 15:read r,g,b 2340 redlev=r*1000/7 2350 grnlev=g*1000/7 2360 blulev=b*1000/7 2370 poke intin, colour 2380 poke intin+2, redlev 2390 poke intin+4, grnlev 2400 poke intin+6, blulev 2410 vdisys(1) 2420 next colour:return 2430 data 7,7,7,0,0,0,7,0,0,0,7,0 2440 data 0,0,7,0,0,5,5,2,0,0,5,0 2450 data 5,5,5,0,0,0,0,7,7,0,5,5 2460 data 7,0,7,5,0,5,7,7,0,5,5,0 2470 colchange: 2480 poke contrl, 14:poke contrl+2,0 2490 poke contrl+6,4 2500 for i=1 to (rnd*4+1) 2510 redlev=rnd*1000:grnlev=rnd*1000 2520 blulev=rnd*1000 2530 poke intin, 9 2540 poke intin+2, redlev 2550 poke intin+4, grnlev 2560 poke intin+6, blulev 2570 vdisys(1) 2580 octave=rnd*3+4 2590 note=rnd*12+1 2600 sound 1,15,note,octave,2:next i 2610 sound 1,0,0,0,0 2620 poke intin, 9 2630 poke intin+2, 0 2640 poke intin+4, 0 2650 poke intin+6, 0 2660 vdisys(1) 2670 return ` *O.|!*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVN./</</<`N` 3r0A0RA A m3./</<NP>N0<}rQa#N ?<?<?<#NN\32?<NNT3( @gH @g ?</<n?<=NAP3z/<!/<t?9z?<?NA 2<G"|Z""QB&|.(|@$|Nt68Qa.?<NTaa 3#0000ByByByByaa`aaaa\3L3a#3#at3Jyg*#3#a@3Ry y f#3d3|aa`a`By ByByByBy33(3:aaaafa,a aJy f"aJygSy`#aJyfUyga |a`JyfR yoa F`aJy f Uyfa Ty ym` yna Fa(`^aJy f Uyfa bRy ym` a a`(3aH#&aa BJygR09yy`>33 ydn 3`yda#DaJy faa 6JygaZaaxNuByByBya2a0aa:aNaa ypm yl y`m yl`Jyf3Bya`Jyf3Byafa`29ATygaaF9gpB29A Agt Ag~ Ag Ag Ag` aRB29AT3ҹ Ҽ8"A&I8<4<0<YQ"KQaNuBya(a`3aa`3a3x3h#aJNu3a3x3p#aNu#nla`6#la`&ah#\pa #lpaa#dpaaRNu/9p?< NA\Nu?<%NNTNuB?< NA\#$Nu/9$?< NA\NuNV>NN^NuNV>?9NTN^Nu0<aQNuNV>?9NTN^NuNV./</</<?9?9N.N^NuNV.?9?9?9N(\N^NuaB?<NATNuazB?<NAT fX``a?|&@3Nu?<NNTNu4<(2<QNuBB29*$|2$yn r $|2J29,I$|2r B>9B<92222QQNuBB3,3329 |Z3aJyf#baZNuBB3,3329 |Z3a6Nu"<"y ""QNu"<"y n""QNu"<?"y s""QNuBB |T293,333aNuBB |UF2<3,333ah |W>2<03,333xa: |Z2<h3,333xa NuaBB |2<83X,33A3haJyfa`aaNuNV3 a.?<?9?9N(\N^Nua\NV3a3a#303ba3aH#323da~3a8#t3D3@aR#343Ha4#3P3aN^aTNuNV>?9NT.?<d?<d?9N(\.?<d?<?9N(\N^NuNV>?9NTN^NuNV>?9NTN^NuNV>?9NTN^Nu/9?< NN\Nu#rn3,3*333aNu#n3,3*333apNu#n3,3*333a4Nu#n3,3*333aNu#n3,3*333aNua"3 NuNuNV./</<?9N> N^Nua29 yn Jy k3 Jyg:Sy`2 ym"Jy f3 ylRy`By Nual9g33NuaJ9gH333y6Jy f#aNuByBy0929Am@| An83QAAm$\AAnWA@f32#aV`Nuaj09 yH2<H H@0H@QL3#|aVJyg3#a8Nu?< NATJ@j B?<NAT`Nua#\paV#8paHa8#dpa6a`ajB&|.(|@t8QB@93?B@92??<#NN\a">NNNN^NuNV30.|Hм-@=|` nH2n2RRn nm.6N>B@09(N^NuNV####(#T#\#6> aF3(:pN^NuNV>a*pN^NuNV>MN n0* n 0, n0. n00B@09(N^NuNV3# T>NNN^NuNV3 3 3B3HN09N^NuNV3eByB3HNN^NuNV3 3 Bn nH|2n2RRnJ@f3<3>Sn3B3HNN^NuNV3{ByB3HNN^NuNV## .мZ#3d3 B n 3HN n 0H####N^NuNV3|ByB3HN n 0 n0 n0N^NuNV3 3z3B3HNN^NuNV3 33B3HN09N^NuNV3 3j3B3HN09N^NuNVBy3 3 <3>ByB3HN n 0 n0 n0 n0N^Nu#<"<psNBNu#NN/9Nu#NM/9Nu#NA/9Nu Y,9Please switch to low resolutioneEb1b?fA public domain program1986 by inner fire softwareCourtesy of the DukeGAME OVER@@PD3DUfW0a@P`wripcord.datPLAYER 1: 0000PLAYER 2: 0000RIPCORDREADY PLAYER 1?PLAYER 2?(    2           !#&(^*,/1^3579;=?BDF.H>JNL^NnP~R_bdf.h>jNl^nnp~rtvxz|~                      $$$$$$$$((((((((,,,,,,,,000000004444444488888888<<<<<<<<@@@@@@@@DDDDDDDDHHHHHHHHLLLLLLLLPPPPPPPPTTTTTTTTXXXXXXXX\\\\\\\\````````@ `@  ` @ `@ `@ `@ `@ ! !"`##$@$%& &'`(()@)*+ +,`--.@./0 01`223@345 56`778@89: :;`<<=@=>? ?@`AAB@BCD DE`FFG@GHI IJ`KKL@LMN NO`PPQ@QRS ST`UUV@VWX XY`ZZ[@[\] ]^`__`@`ab bc`dde@efg gh`iij@jkl lm`nno@opq qr`sst@tuv vw`xxy@yz{ {|`}.     $  "         $    > 4      $J$  $                           . *   &        YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY1 ' CLEWSOST.BAS: "Inspector Clew-So ST" -- Converted 02-Nov-85 to give 2 ' An ATARI ST-BASIC program (MED/HI) -- you people something to do. 3 ' ((MED: Change default green!)) 10 Start: ClearW 2: FullW 2: Clear: Restore: Randomize 0: Dim P(5,9) 15 Mode=Peek(SysTab+0): S$="BILLMARYPAULSUZYJOHN": If Mode=2 Then Rg=1 20 R$="LOUNGEATRIUMLIVINGDININGTROPHYGARAGE": If Mode<>4 Then Goto Game 25 ClearW 2: GotoXY 0,1: ? "Sorry, medium or high resolution only." 30 ? "Please switch (if you can) and reload.";Chr$(7): End 35 Fn$=Mid$(M$,(P*O)-(O-1),O): Return 40 For A=1 to H: M$=Y$: P=A: O=L: Gosub 35 45 If Z$=Fn$ Then P=A: Return 50 Next A: P=0: Return 55 Title: ClearW 2: GotoXY 0,1: Color 2*Rg+1: ? "*** Inspector"; 60 ? " Clew-So ST *** Converted from Atari 8-bit BASIC by R.VAN": Color 1 65 ? "Intended for FREE public distribution -- NOT FOR RESALE": ?: Return 70 Cr: Color 1: ?: ? "Please press either [RETURN] or [ENTER]"; 75 ? " to continue. ";: Input Amiga$: Return 80 Game: Gosub Title: Color 1*Rg+1 85 ? " Bill, Mary, Paul, Suzy, and John are house guests. Their host was" 90 ? " murdered by one of them between 1 pm and 9 pm. Your job as Inspector" 95 ? " Clew-So is to find the killer, time, & room. You will be given a" 100 ? " floor plan of the house and a set of questions for the suspects, but" 105 ? " the guilty party MAY try to mislead you by lying. If one of the" 110 ? " suspects claim that the host was already dead or that the host was" 115 ? " still alive, you have found the room where the murder took place." 120 Gosub Cr: Gosub Title: Color 1*Rg+1 125 ? " +--------------+--------------+--------------------+" 130 ? " ! \ 'TROPHY \ !" 135 ? " ! 'DINING ! Room' ! !" 140 ? " ! Room' +- ----------+- --+ 'GARAGE' !" 145 ? " ! ! !" 150 ? " +-------\------+ ! ! !" 155 ? " ! ! +-------------+" 160 ? " ! 'LIVING ! ! !" 165 ? " ! Room' +--------------+ 'LOUNGE' !" 170 ? " ! \ 'ATRIUM' \ !" 175 ? " +--------------+-------\------+--------------------+" 180 Color 2*Rg+1: For K=5 to 12: GotoXY 53,K: Read Txt$: ? Txt$: Next 185 Data "===========","Note that","only rooms","with doors" 190 Data "(\) will be","considered","adjacent...","============" 195 ?: ? :Gosub Cr: Gosub Title: Color 1*Rg+1 200 ? " When a suspect says he or she was 'with' someone, this means that" 205 ? " they were in the same room. When a suspect says he or she 'saw'" 210 ? " someone, that means that person was in the adjacent room. It is" 215 ? " suggested that you have a note pad to record the answers to the" 220 ? " questions you ask of your suspects. If you wish to end the game," 225 ? " enter the 'totally baffled' option.": ?: Color 2*Rg+1 230 ? " *** Please type only in UPPERCASE or the game will not function. ***" 235 Gosub Cr: Q=0: C=0: For K=1 To 5: P(K,1)=Int(6*Rnd)+1: Next 240 For L=2 To 9: For K=1 To 5 245 A=Int(6*Rnd)+1: If A=P(K,L-1) Then 245 250 P(K,L)=A: Next K: Next L: M=Int(5*Rnd)+1 255 T=Int(9*Rnd)+1: R=P(M,T): ? Chr$(7); 260 Suspects: Color 1*Rg+1: ? 265 ? "Inspector, who is your suspect (BILL, MARY, PAUL, SUZY, or JOHN)?..." 270 Color 2*Rg+1: Input S1$: Z$=S1$: Y$=S$: L=4: H=5: Gosub 40: S=P 275 ?: If S=0 Then ? "Clew-So, you are a schmuck...": Goto Suspects 280 Color 1: ? "What do you wish to question '";S1$; "' about?...:" 285 ? " *** 1) The suspect's where abouts at a particular time." 290 ? " *** 2) What time the suspect was in a certain room.": ? 295 ? "Please enter '3' if you think THE CRIME IS SOLVED! or 300 ? "enter '4' if you are totally baffled (give up)." 305 Color 2*Rg+1: Input A: ?: If A<1 Or A>4 Then 280 310 Color 1: Q=Q+1: On A Goto 315,400,450,Baffled 315 ? S1$;", I want to know where you were at... [time 1-9]" 320 Input T1: ?: If T1<1 Or T1>9 Then 315 325 R1=P(S,T1): Color 2*Rg+1: If S<>M Then 350 330 If Rnd<0.5 Then 365 335 R1=Int(6*Rnd)+1: If Rnd<0.5 Then 345 340 ? "Our host was already dead at that time.": Goto 365 345 ? "Our host was still alive at that time.": Goto 365 350 If R1<>R Or Rnd<0.5 Then 365 355 If T1>T Then ? "Our host was already dead at that time." 360 If T1R1 Then 385 380 M$=S$: P=K: O=4: Gosub 35: ? "I was with ";Fn$;"." 385 If Abs(R1-P(K,T1))<>1 Then 395 390 M$=S$: P=K: O=4: Gosub 35: ? "I saw ";Fn$;"." 395 Next K: Goto Suspects 400 ? S1$;", I was wondering when you were in the... [room]": Input R1$ 405 ?: Z$=R1$: Y$=R$: L=6: H=6: Gosub 40: T1=P: If T1=0 Then 400 410 Color 2*Rg+1: If S<>M Or Rnd<0.5 Then 430 415 T1=Int(Rnd*10) 420 If T1=0 Then ? "Inspector, I wasn't in that room...": Goto Suspects 425 ? "Inspector, I was in that room at ";T1;"(pm).": Goto Suspects 430 K=0: ? "Inspector, ";:For B=1 To 9: If P(S,B)<>T1 Then 440 435 ? "I was in that room at";B;"(pm).": K=1 440 Next B: If K=0 Then ? "I wasn't in that room..." 445 Goto Suspects 450 Color 1*Rg+1: ? "Inspector Clew-So, what do you think"; 455 ? " you know?...:": ? " *** 1) Who the killer of our host is" 460 ? " *** 2) When the murder was committed (time)" 465 ? " *** 3) What room the murder was committed in" 470 Color 2*Rg+1: Input A: ?: If A<1 Or A>3 Then 450 475 C=C+1: Color 1: On A Goto 480,510,540 480 ? "I think the killer of the host is... [name]": Input S1$ 485 ?: Z$=S1$: Y$=S$: L=4: H=5: Gosub 40: X=P: If X=0 Then 480 490 M$=S$: P=M: O=4: Gosub 35: Color 2*Rg+1: If S1$<>Fn$ Then 585 495 ? "Congratulations, you have the killer, Clew-So.";Chr$(7): Ki=1 500 If Ki+Ti+Ro=3 Then Goto Solved 505 Goto Suspects 510 ? "I think the murder was committed at... [time 1-9]" 515 Input T1: ?: If T1<1 Or T1>9 Then 510 520 Color 2*Rg+1: If T1<>T Then 585 525 ? "Inspector, you have the correct time...";Chr$(7): Ti=1 530 If Ki+Ti+Ro=3 Then Goto Solved 535 Goto Suspects 540 ? "I think the murder was committed in the... [room]": Input R1$ 545 ?: Z$=R1$: Y$=R$: L=6: H=6: Gosub 40: X=P: If X=0 Then 540 550 M$=R$: P=R: O=6: Gosub 35: Color 2*Rg+1: If R1$<>Fn$ Then 585 555 ? "Clew-So, you have the correct room...";Chr$(7): Ro=1 560 If Ki+Ti+Ro<>3 Then Goto Suspects 565 Solved: Color 1*Rg+1: ? 570 ? "You are BRILLIANT, Inspector Clew-So. It took you";Q; 575 ? "questions and";C;"confrontations to solve this mystery." 580 ? Chr$(7);: Goto 625 585 ? "Inspector Clew-So, you are a bumbling idiot. Where did you go" 590 ? "to detective school, buddy?...": Goto 260 595 Baffled: Color 1: ? "Clew-So, you couldn't find me if I was"; 600 ? " standing next to you...": ?: Color 2*Rg+1 605 ? "Well, the hard facts about the case are:" 610 M$=S$: P=M: O=4: Gosub 35: ? Fn$; " obviously killed the host"; 615 ? " at";T;"(pm) in the ";:M$=R$: P=R: O=6: Gosub 35 620 ? Fn$;" (room).":? "Don't you feel like a real schmuck?";Chr$(7) 625 ?: Color 1*Rg+1: Input "Do you want a new case, Inspector";Amiga$ 630 ClearW 2: Color 1: If Amiga$="YES" Or Amiga$="Y" Then Goto Start 635 GotoXY 14,1: ? "Thank you for playing 'Inspector Clew-So ST'...": End 1001 ' 1002 ' That wasn't that hard was it? I don't like programming in any 1003 ' BASIC... So why did I convert this? Because it was easy. 10 restore:dim sw(4,7,1),sp$(1),lb(32,4),ar$(1),pt(4,16),sc(1,8):qr=1 20 sp$(0)="\\_":sp$(1)="_//":ar$(0)=chr$(4)+" ":ar$(1)=" "+chr$(3) 30 color 1,1,1,1,1:q1=-2:q2=0:for j=1 to 4:read pt(j,0) 40 for a=0 to 1:for b=0 to 8:sc(a,b)=0:next:next 50 for k=1 to 7:read l:pt(j,k+7)=l:pt(j,8-k)=l:next k,j 60 data 10 70 data 2,2,2,2,2,2,2 80 data 40 90 data 1,2,3,5,8,13,21 100 data 20 110 data 2,3,4,5,6,7,8 120 data 80 130 data 1,4,9,16,25,36,49 140 fullw(2):clearw(2):gotoxy 0,0:input"PLAYER 1 ";p1$ 150 input "PLAYER 2 ";p2$:p1$=left$(p1$,5):p2$=left$(p2$,5):? p1$;" VS ";p2$ 160 ? "IS THIS CORRECT ?":GK=INP(2):IF GK<>ASC("Y") AND GK<>ASC("y") then 140 170 gosub 410:gosub 510:color 1,1,1 180 for rr=1 to 4: color 5:gotoxy 0,1+rr:? "*";:gotoxy 28,1+rr:? "*" 190 gosub 450 200 qr=1-qr:ty=qr*20:tx=26-ty:cx=tx:cy=0 210 color 5:m$=right$(str$(pt(rr,0)),2):gosub 1110 220 cx=6+ty:cy=0:m$=ar$(qr):gosub 1110 230 gosub 660:if sc(1-qr,rr)>=pt(rr,0)then 250 240 goto 200 250 for j=0 to 1:for k=5 to 8:sc(j,k)=0:next k,j 260 for j=0 to 1:for k=1 to 4:gl=pt(k,0):ac=sc(j,k):sc(j,5)=sc(j,5)+ac 270 sc(j,6)=sc(j,6)-(ac>=gl)*gl:sc(j,7)=sc(j,7)+(sc(j,k)-sc(1-j,k)):next k,j 280 for j=0 to 1:for k=6 to 7:sc(j,k)=sc(j,k)+sc(j,5):next k,j 290 for j=0 to 1:for k=5 to 7:sc(j,8)=sc(j,8)+sc(j,k):next k,j 300 for j=0 to 1:for k=5 to 8:y$=str$(sc(j,k)):l=len(y$):tx=5+j*28-l 310 ty=2+k:cx=tx+(tx<20):cy=ty:m$=y$:color 4:gosub 1110:next k,j 320 next rr 330 color 1,1,8 340 gotoxy 9,10:? spc(19) 350 gotoxy 9,11:? "PLAY AGAIN (Y/N) ?" 360 gotoxy 9,12:? spc(19) 370 for a=78 to 231 step 153:linef a,100,a,109:next 380 linef 78,100,231,100:linef 78,109,231,109 390 a=inp(2):if a=asc("Y") or a=asc("y") then clear:goto 10 else end 400 rem 410 clearw(2):color 4,1,6 420 for j=1 to 8:gotoxy 7+2*j,0:? j:next 430 for j=82 to 227 step 18.125:linef j,0,j,190:next 440 linef 82,9,227,9:return 450 for j=1 to 14:k=pt(rr,j):jj=2+j*2 460 if k>9 then l=int(k/10):l$=mid$(str$(l),2,1):goto 480 470 l$=chr$(32) 480 gotoxy jj,16:? l$;:cx=jj:cy=17 490 gotoxy jj,17:? right$(str$(k),1); 500 next j:return 510 gosub 580:for j=0 to 3:sy=4+j*4:for k=0 to j+3:sx=12-j*2+k*4 520 cx=sx-1:cy=sy-2:m$=" ":gosub 1110:color 0,0,0,0,0 530 linef cx*9,cy*9+10,cx*9+3,cy*9+10:wp=int(rnd(1)*2) 540 sw(j,k,0)=wp:sw(j,k,1)=0:gosub 650 550 next k,j:color 11 560 cx=1:cy=0:m$=p1$:gosub 1110 570 cx=29:cy=0:m$=p2$:gosub 1110:return 580 linef 82,51,64,69:linef 64,69,64,172 590 linef 64,87,46,105:linef 46,105,46,172 600 linef 46,123,28,141:linef 28,141,28,172 610 linef 228,51,246,69:linef 246,69,246,172 620 linef 246,87,264,105:linef 264,105,264,172 630 linef 264,123,282,141:linef 282,141,282,172 640 return 650 color 2:cx=sx-2:cy=sy-1:m$=sp$(wp):gosub 1110:return 660 for j=0 to 32:lb(j,0)=0:next:nb=1 670 a=inp(2):a$=chr$(a) 680 if a$="-" then return 685 if a$="*" then 330 690 if a$ ="+" then a$=str$(int(rnd(1)*8+1)) 700 a=val(a$):if (a<1) or (a>8) then 670 710 lb(0,0)=1:for j=1 to 3:lb(0,j)=0:next:lb(0,4)=10+a*2 720 ex=1 730 for j=0 to 32:if lb(j,0) then ex=0:gosub 760 740 next:sound 1,0,0,0:if ex then return 750 goto 720 760 dy=lb(j,0):dx=lb(j,1):ly=lb(j,2):ny=lb(j,3):nx=lb(j,4):qt=ly*4+ny 770 if (ly + ny) and ly<4 then gotoxy nx+q1,ly*4+ny+q2:? " " 780 color 11:lb(j,3)=(ny+1) and 3:on ny+1 goto 790,810,860,880 790 if ly>3 then lb(j,0)=0:goto 950 800 gosub 1120:on int(rnd(1)*3+1) goto 1000,1010,1020 810 vx=0:gosub 940:if sw(wy,wx,1)=0 or (sw(wy,wx,0)=sd)=0 then 840 820 vx=1-2*sd:lb(j,1)=vx:lb(j,3)=ny+1 830 lb(j,4)=nx+vx:gotoxy nx+q1+vx,ly*4+ny+q2-(qt<15):? "o":goto 1050 840 if sw(wy,wx,0)=sd then lb(j,0)=0:sw(wy,wx,1)=1:gosub 1120:goto 1030 850 lb(j,3)=ny+1:gosub 1120:on int(rnd(1)*3+1) goto 1000,1010,1020 860 lb(j,1)=0:lb(j,4)=nx+dx:gotoxy nx+q1+dx,ly*4+ny+q2-(qt<15):? "o" 870 goto 1060 880 if qt<15 then gosub 1120 890 lb(j,2)=ly+1:gosub 940:sw(wy,wx,0)=1-sw(wy,wx,0) 900 if sw(wy,wx,1)=0 then 930 910 lb(nb,0)=1:lb(nb,1)=0:lb(nb,2)=ly:lb(nb,3)=0:lb(nb,4)=nx+2-sd*4:nb=nb+1 920 sw(wy,wx,1)=0:gotoxy nx+q1+2-sd*4,ly*4+ny+q2-1:? "":gosub 1070 930 sx=12-wy*2+wx*4:sy=4+wy*4:wp=sw(wy,wx,0):gosub 650:goto 1050 940 wy=ly:jx=int(nx/2)+ly-6:wx=int(jx/2):sd=jx and 1:return 950 sf=pt(rr,nx/2-2) 960 sg=sc(qr,rr)+sf 970 tx=3+29*qr+(sg>9)+(sg>99)+(sg>999) 980 ty=rr+1:a$=mid$(str$(sg),2):color 6 990 cx=tx:cy=ty:M$=a$:gosub 1110:sc(qr,rr)=sg:goto 1080 1000 sound 1,15,1,3:wave 1,1,12,90,0:return 1010 sound 1,15,1,4:wave 1,1,12,90,0:return 1020 sound 1,15,6,3:wave 1,1,12,90,0:return 1030 for a=12 to 1 step -2:sound 1,15,a,5:wave 1,1,10,20 1040 next:return 1050 return 1060 wave 16,2,0,1000,3:return 1070 wave 16,2,0,18000,5:return 1080 for a =7 to 1 step -1:sound 1,15,1,a:wave 1,1,12,90,2:next 1090 sound 1,0,0,0:return 1100 rem 1110 gotoxy cx,cy:? m$:return 1120 gotoxy nx+q1,ly*4+ny+q2-(qt<15):? "o":return  ----------------------------------------------------------------- Public Domain Games and Comms Disc ----------------------------------------------------------------- All the programs with the file extension .BAS are ST Basic programs - you'll have to boot up ST Basic then load and run the programs. Double click on the .TOS and .PRG files from the desktop. ----------------------------------------------------------------- What's on the disc... ----------------------------------------------------------------- STBATTLE.TOS BLACKB.BAS BIORTHM.BAS PACHINKO.BAS POPCORN.PRG CLEWSO.BAS JOURNEY.BAS SCRATCH.BAS RIPCORD.PRG RIPCORD.DAT MEGAROID.PRG MEGAROID.RSC STTALK.PRG STTALK.DOC STTALK.EXE CHECKERS.PRG CHECKERS.PAS ------------------------------------------------------------ SBATTLE.TOS: Battleships. High resolution. POPCORN.PRG: An amazing demonstration of bouncing balls. Low resolution. RIPCORD.PRG/RIPCORD.DAT: Land the paratroopers on the target. Low resolution. BLACKB.BAS: A version of the well-known black box game. Low resolution. CLEWSO.BAS: Work out who the murderer is, what weapon they used and where the crime was committed. Medium/high resolution. JOURNEY.BAS: A text adventure game. Medium/high resolution. BIORTHM.BAS: Calculate your biorhythm chart and plan your future. Low resolution. MEGAROID.PRG/MEGAROID.RSC: Blast the asteroids and last as long as possible. Medium/high resolution. PACHINKO.BAS: Drop pennies into the machine and and swing the levers to gain a high score. Low resolution. SCRATCH.BAS: A text adventure game. Low resolution. STTALK.DOC/STTALK.EXE/STTALK.PRG: A comms program - all you need to get on line to MicroLink and bulletin boards. CHECKERS.PAS/CHECKERS.PRG: Better known as draughts - play against the ST. Medium resolution. ********************************************************************* We had a minor problem duplicating the utilities disc - it had so much on it the duplicating machine couldn't handle it! So STTALK and CHECKERS have been archived using the archiver on the utilities disc. Also BROWSE has been moved from the utilities disc to this one. Look at the READ.ME file on the utilities disc to see how to extract these files to make working copies. ********************************************************************** $ = Desk File Start Info High Score: 00000 About Megaroids-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Quit 1 Game 3 Games Free! Megamax C Source Code Clear High ScoreThis program is free.You may make as many copies as you like.It is not for resale. OK The Megamax C compiler is full K&R Its features include:full floating point, one pass compilatio OK + common extensionsn, optimized for 68000,smart linker (only loads library routines called), librarian,dynamic overlays, creates stand alone ST applications,in-line assembly language, batch facility, nothing left to buy,no liscense fees.All for only $199.95Megamax Inc., P.O. Box 851521, Richardson Tx. 75085-1521Phone: (214) 987-4931A commented source code listing (hardcopavailable for $25 from:Megamax Inc. OK y) for this program isP.O. Box 31294Dallas Tx, 75231-0294ATTN: ST Megaroids SourcePP, $ + 2  : A P  U g |    #/ =EPf(':H #( < $&+>( g+ }( + ( +  (F)  X C n(  8*    H````````````````````````````````