NNNNNNwp NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNNQO`  @`! #')+-/1 3 7=A C@E`GIKMOQ WY]_a c@e`gikmq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !Aa#A'+-1!3A5a79;=?A!CAEaGIKOU!OoWY[]O`  @`! #')+-/1 3 7=A C@E`GIKMOQ WY]_a c@e`gikmq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !Aa#A'+-1!3A5a79;=?A!CAEaGIKOU!OoWY[]DOODLE 7t BASPRGS ft 4CLRGMES t oMEGAROIDS St $TIME_BANDITt STERM  t DESKACCS  t %BASIC BUFkANPRGTR HlMKAL PRG t QSA PRG t SUBE PRG t U. 8 t.. 8 tDOODLE DOC<t  DOODLE PRGAt aDOODLE RSCGt 9 PUSSY DOO10660103030572 9[.........................................................] *DRDOODLE*  -Overview-  o DRDoodleisaColourorMonochromedrawingutilitythat canbeusedtocreatedetailedpicturesandslides. o Withmonochromesystemsverydetailedformsandlabelled presentationscanbecreated,savedtodiskandprinted. o Oncoloursystems,anyoftheST's512colourscanbe usedtoproduceattractivepicturesorslides. o Threedifferentbrushandcharacterwidthsareavailable. -Instructions- TorunDRDOODLE,double-clickontheDOODLE.PRGfileicon. FILEMENU "LOAD"-LoadsinanexistingDOODLEpicturefilefrom disk.Afteryouchoosethiscommand,youseetheitem selectorboxappearonthescreen.Selectthefile thatyouwantandDRDOODLEplacesitintheediting  window.UseUppercaseonly. "SAVE" -Savesthepicturethatyouarecurrentlyeditingto diskwithitsexistingfilename,replacingthe contentsoftheoriginalpicturefile.Useuppercase only. "SAVEAS"-Savesthepicturethatyouarecurrentlyeditingto disk.Whenthiscommandisselectedtheitemselector boxappears,typeinthenewfilenamebeforeclicking ontheOKbox.Useuppercaseonly. "ABANDON" - Abandonsanychangesmadetothepicturethatyouare currentlyeditingandreloadsthelastversionsaved todisk. "QUIT"- QuitstheDOODLEprogramandreturnstotheDesktop. OPTIONSMENU "PEN/ERASESELECTION"-Whenthiscommandischoosenthe Pen/Eraser selectionboxappears.Thewidthofthe drawingpen,orerasercanbechangedbyclickingon the appropriateiconwithintheselectionbox.On coloursystemsthepencolourmaybechangedby clickingononeofthecoloursshownatthebottomof theselectionbox.Thecompleterangeofsixteen coloursavailablewhilstinlowresolutioncanbe viewedbyclickingoneitherofthehorizontalscroll arrowsor.Thethreeavailabletextsizesare relatedtothecurrentbrushsize.Toentertextonto apicture,simplypositionthecursor,andstart typing.ColourscanbechangedusingtheControl PanelDeskAccessory. "ERASEPICTURE"-Thiscommandwhenselected,clearsthepicture currentlybeingedited. o Toprintascreen,presstheALTERNATEandHELPkeys simultaneously. 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`vxUckjn`Hd4*O.|TT*m - ЭЭм// ?<?<JNA <h#TXN./<NA"/0<NBNu#LLNA/9LLNu /#T\.|X`/N .yT\NuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^NuNVH?BCB..,. f#LP <`hlDRCJlDRCn8fzB`0l :HGH`xe`Jge`|fD#LP D`#LP JLN^Nu#LL3[3]~NAl"3[3]~|nFy]~y]~/9LLNuNV0.n l0.`0. N^NuNV0.n o0.`0. N^NuNV.Y?.?<N;X .N^NuNV n0"n 2Af< n0("n 2)Af( n0("n 2)Af n0("n 2)AgB@`pN^NuNV n "n0 n "n1i n "n1i n "n1iN^NuNV n> n0(W n ? n 0(WaT=@ n> n0(W n ?( n 0(WaT=@ n> n ?aT=@ n> n ?(aT=@ n 0 n 1n0.n"n 3@0.n"n 3@0.no 0.nnB@`pN^NuNV n 0nbB n 0(n b4 n 0"n 2)Anc n 0("n 2)An cp``B@N^NuNV n "n0T n "n0T n0"n2)AS@"n 2T n0("n2)AS@"n 2N^NuNV./. aX.Q/.aX././?.?9]jN> N^NuNV0.@"n3@0.@"n3@ n1n n1| n N^NuNV>?. /./a =|>?././a Bn./?9]jN?\N^NuNV0. Юм @-P n-P nX=P n\=P>?./.?./.aJ N^NuNV>?.?.?.?<?<?. ?. N7>?.?.?.?.N9PN^NuNV.Q/]/Y/U?<?.N:&>N9>?.?.?.?<?<?. ?. N7N^NuNV.Q/. aX.Q?.?9]jN@XN^NuNV n=P n=h n0"n2)AS@=@ n0("n2)AS@=@=n=n=n=n=n=n=n.?<?9]jN>XN^NuNV0.|2.| gr`BAAN^NuNV> /.a (X n2. ҮҼ "A 0. Юм @  n!n n =@Bn0. ЮT @=P`V>/.a X0.R@@HЮ2.ҮҼ "A"0.R@HH@=@0.Ю @=P0.n f0. Ю @=P>/.a HX0.HH@R@@HЮ2.ҮҼ "A"N^NuNV0. Юм @-P> /.a X0. Юм @"n nX-P0. ЮT @=P`L>/.a X0.Юм @2.ҮҼ "A"Q 0.Ю @=P0.n f0. Ю @=P>/.a VX0.Юм @-P0.Юм @"n .HS@N^NuNV> /.a X=@ 0. Ю @=P 0. Юм @-P nX-P n -@ .Ю-@0. ЮT @=P`0.Юм @-P0.@HѮ`$/. .갮op`pH/NPѮ .갮o .갮n0.Юм @ 0.Ю @=P0.n fn> /.aXN^NuNV.Q?. /.a^\WnWn\n\n>?.?.?.?< Bg/.N4N^NuNV0.`0. Юм @-P> /.aX=@ 0. Ю @=P 0. Юм @ > /.aFX`^>?. /.a\> /.a$X`<>?. /.a\> /.aX```|g|gΰ|gB`B@N^NuNV.Q/]/Y/U/.N6L>?.?.?.?.?.?.?.BgN5>?.?.?.?.?.?.?.?<N5>?.?.?.?< Bg/.N4> /.N5X|=@ |2.Ү00|=@Jng>?./.a:\J@f`>?.?.?.?.?.?.?.?<N5>?.?.?.?.?.?.?.?<N50.N^NuNV>/./NH?9]jN@T`BW?9]jN@T>?9]jNAT>?9]jNALTSnSnRnRn.a.\4?<aTB@N^NuNV.\:/<\8/<\6/<\4?<?9YN:&3\8Y3\:Y>Ya3Y09Y29YyYA=@l 0.yY09Y29YyYA=@l 0.yYJngBWBgBg?9Y09YW?<?9YN/F\??<?9YN:v BWBgBg?9Y09YW?<?9YN/F\??< ?9YN:v BWBgBg?9Y?<?9\8N/F\??<?9YN:v BWBgBg?9Y?<?9\:N/F\??<?9YN:v .\4/<YaX3\8Y3\:YN^NuNV.Q/<\4a X.Q/<YaLXB?<N8T.Y/<Y/<Y/Q?<aB?<N8TN^NuNV.Q/<\4aX.Q/<YaXB?<N8T.Y/Q/<Y/<Y?<aFB?<N8TN^NuNV0. Юм @=P0.n2. ҮҼ "A2N^NuNV0. Юм @=P0.F@n2. ҮҼ "A2N^NuNV>?. /.ap\N^NuNV>?. /.a\N^NuNV>?./9Yaz\N^NuNV0. ЮP @=P0.F@n2. ҮP"A2N^NuNV0. ЮP @=P0.n2. ҮP"A2N^NuNV>?. /.a\N^NuNV>?. /.ah\N^NuNV n fp`T0. Ю @=P ng6`=n 0. Ю @=P |2.Ү00n f0.N^NuNV.T/.?. /.N4 n2. ҮҼ"A1Q n2. ҮҼ"A1QN^NuNV.?</9Ya\.Y?<BgN;X nl-P n  n0 nB>?.?.?.?</.a |f~B@=@=@`60nPRnJ.g" . g ._g0nRn` nJg.J .2.HЁ/N.X>/.atXp``>/.a`XB@N^NuNVNC=@0.|A"n n|: n|\.V?.RWNET.N.ư|o.J/.N/X` nB(. /.N/XN^NuNV.N.=@`SnJng n2n0H@|\g .:f n2nB. /.N/XN^NuNV`.J/<HtaXB..U//<HtN9TPJngF./<HtaTX>/<HtNDPX3]"JngJng Jy[fp` `B@``~N^NuNV09\>R@=@09\@y]n=@09\>R@=@09\@yY=@>?9]jN@T>?9]jN?9]jNALT>?9]jNATB?<N8T.\4?<aT.Q?<?9]jN>X.\4BgaTB?<N8TN^NuNV>HhaN^NuNVBWaN^NuNVBBgN8TBn0.` n fa`0. `@>a`Nar`Ha`B>/<HtNDPX3]"BWa`"=|``||b@0@I PN0. `a~`a`` |g|g`|gj|gr|g>?./9YN3\\.Hp?9HnN8T0.N^NuNV.?</9Ya\.Y?<BgN;X>?.?.?.Bg/.a >/.aXN^NuNVJng >aJ@gBJy[f:.]v?9]t?9]"NDX>]"ND~>af>a^aBN^NuNVJ9Htg>/<HtNDPX3]"Jy[gBW/<HtNEJX3]"`BWa@.?<N6T|g6.]v?9]t?9]"NDX>a>a>]"ND~N^NuNV.a.J@g./<HtaXa /.atXR@N^NuNV.?</9Ya\.?<BgN;X09Hj`\JyHfg>`>/.apX`PJyHfg>`>/.aRX`2JyHfg>`>/.a4X``|g|g| g.?9Hh?</.aP>?.?.?.Bg/.a =@=|`.0.Юм @g>/.aX` Rn no>/.aX=@ n f0.`>]@?<aT3Hf`>]F?<aT3Hf`|>]^?< aT3Hf``.I?9]@?<aX`H.IF?9]F?<aX`0.H?9]^?< aX``W@|b@0@I PN3Hh> /.aX`> /.aXN^NuNV.Y/<Y/<Y/<YBga*aN^NuNVB@09]>@|fp`~B?<N8TJy\ f>?9]jNHh?9]jNBT.Y/<\/<\/<]h?9Hl?9]jNBP09Yy\3]n.U/U?<Bg?9]jNA .U/U/<Y/<YN8 RyY3Y\>SyY3Y\@`aB. .f"aB?<N8TB@3\ `n`F . f 09Yy]ny\@3Y\>` .f:Jy\ g.09\>yYg Bn`Sy\>aRn0.y\m` . m .zn=y\>09\@yY=@=y\=yY./afX./<\4aX./aXJ@fB?<N8TB@`l.\4?<aT.Y?9\@?9\>?9]jN=4\.\4BgaT09\y\>Jy\ f3\ aB?<N8TB@N^NuNVBn=yY09Y`>Y?.aT=@`.Y?.aT`BWBgBgBg?< ?.N:v `=|`>a`09Y`BW?9Y09YWaT3Y`09YyY`BW?9Y?9\t?9\r?<N/F\WaBT3Y`>\t?9\r?<N/FXyY`fBW?9Y09YWaT3Y`H09YyY`:BW?9YWaT3Y` yY``|b@0@J PN>aVar`>?9Y?9Y09YWN/FX>a3Y>aa6`l>?9Y?9Y09YWN/FX3Y>aa`6.]/Q//?9Y?9Y?9Y?9Y?<?<N:>a=@>a=@.Y/<Y/<Y/<Y?.?.?.?.?<BgN:>Y?9Y?9Y?9Y?<?.N:v >a`h>Yap3Y>Y?9Y?9Y?9YaNT?SW?<?.N:v BWa``| |b@0@J& PN0.N^NuNVB?<N8T.U/Y/]/Q?< ?.N:&`.Q/. a~XJ@g0.yYf./QaX./<\4aDXJ@g^0.y\4yY=@0.y\6yY=@=n=n.Y//<Y/?<av.U/Y/]/Q?< ?.N:&JngJnf&B?<N8TN^NuNVB?<N8T.///?<?.N:&.U/Y/]/Q?<?.N:&.///?<?.N:&./aTXJ@g>?.?.?.?.?.?.?.N7>?.?.?.?<?.N:v .Y/<YaFX>aT0.nf0.nf.\4?.aT`j.Y/<YaX>?.?.?.?.?.?.?.N7>?.?.?.?<?.N:v >aB?<N8TN^NuNVJyHdgBBgN8T`.Hp?9HnN8TJyHdgB@`p3HdBn0.N^NuNVBn.\4?9Y&?9Y$aFXJ@g>Y&?9Y$a T0.N^NuNV.\4?<aT=n=n >Hf?9]jN@T>?9]jN?9]jNALTJyHfgJ>Hj?9]jNAT>?<?9]jNAXBn=|}=|&B?<N8T`(>?9]jN@TBW?9]jN@bT=|Bn`X.////U/Y?.?./9]pBgBgBgBgBg?<?<?.?.?<Bg?<?<?.N18=@.g\.fB?<N8TJyHfg.Q?<?9]jN>X`>?.aTB?<N8T=|`.gB?<N8T=|`b.fB?<N8TJyHfg.Q?<?9]jN>X=|&`>?.a:TB?<N8T=n=nJng.\4BgaޖTaN^NuNV yHjf*0.U@=@0. S@=@0.T@=@0. R@=@`\ yHjf*0.Y@=@0. U@=@0.X@=@0. T@=@`(0.]@=@0. W@=@0.\@=@0. V@=@.Q?9]jN?*TN^NuNVBy\ Bn.]l/<]>/<]N:9YfJy\ gaBy\ a89YgaJ@fB9YgaJ@f09YgaJ@f9YgaJ@f BWN:` N^NuNV0.`j09Y H>09\ H??9YaHX>YN:BWBN2X.YNGL>]jN= BWN:N0&``|b@0@Jr PNN^NuNV.Y?<BgN;X> /.a X.Y?<BgN;X=|`>/.aX0.Ю\ @00.W@=@0.@Hм\B @ TX0.@Hм\B @2.ҮҼ "A!Q0.@Hм\B2.ҮҼ "A"Rn nofN^NuNVN/3]D y]Dfp`>N:B?<N8T.JN;^J@f$BBgN8T.J?<N6Tp`fBn` N2n1|Rn n m=|.Y/<\/<\/<]hN8 3]B3]B]j.\/<]j/N=PJy]jfp`09\R@3\<09\R@3Y"3\\r3\\t3] ]@3]]F09]F@3]^.\?<?9]jN>ZX3\\3\<Y09Y@3Y3Y"Y3\YByY09Y@YY3]tB09]t.NG#Y#]vJYfp`ByYByY3\<Y3Y"YBY.Y/<YaՒX.Y/<Y/<Y/<YBga>a#Y]p.Y /<\ /<\/<\?<BgN:&.YBgBgN;X>/9YN2X>Y ?9\ ?9\?9\SW?<N9P3Y yYf>aX.?<N6Tp`B?<N8TBWBg/9H?<?9YN:v >\a3\>Y ?9\ ?9\?9\aT?SW09Y H?09\ H??9YaP .\:/<\8/<\6/<\4?<?9YN:&>a.Y/<YaXBBgN8TBWN:B@N^NuNVa&=@fa>aN^NuNVBn`Rn nHRJf0.N^NuNV n H"nR RJ@f .N^NuNV`R nJf n H"nR RJ@f .N^Nu0/@R@@NuNV3\v0.|HмJ-@=|` nH2n\v2RRn nm.]8NLB@09\N^NuNV#\vY#\Y#\~Y#\Y#]`Y#]zY#Y]8> aF3\]DpN^NuNV>a*pN^NuNV3\~3 \# ]`> aN^NuNV3\~3 \# ]`> aN^NuNV#]`> aN^NuNV#]`3 \~3\>aN^NuNV#]`3 \~>axN^NuNV>ahN^NuNV3\~3 \3 \>a@ n0\ n0\ n0\ n0\B@09\N^NuNV3\~3 \3 \3\3\>a n0\ n0\ n0\ n0\B@09\N^NuNV#]`>aN^NuNV3\~3 \>apN^NuNV3\~3 \3 \3\3\3\3\3\3\3\3\3\3 \3"\#$]`3(\3*\>a n,0\ n00\ n40\ n80\ n<0\ n@0\B@09\N^NuNV3\~3 \>atN^NuNV#]`3 \~>aTN^NuNV#]`3 \~3\>a,N^NuNV#]`3 \~3\> aN^NuNV#]`3 \~3\>!aN^NuNV#]`3 \~#]d>"aN^NuNV3\~# ]`>#aN^NuNV#]`3 \~3\>(alN^NuNV#]`3 \~>)aLN^NuNV#]`3 \~3\3\3\3\3\>*aN^NuNV#]`3 \~3\3\3\>+aN^NuNV#]`3 \~3\>-aN^NuNV#]`3 \~>,a n0\ n0\B@09\N^NuNV#]`3 \~3\ n3\3\>.a. n0\B@09\N^NuNV#]`3 \~3\3\3\3\3\3\3\>/aN^NuNV#]`3 \~>2aN^NuNV3\~3 \3 \3\3\3\3\3\3\>3aLN^NuNV3\~# ]`>4a,N^NuNV3\~>5aN^NuNV#]`>6a n 0\ n0\ n0\ n0\B@09\N^NuNV3\~3 \3 \3\>Fa n0\ n0\B@09\N^NuNV3\~3 \3 \3\3\3\3\3\>Ga0 n0\ n0\B@09\N^NuNV3\~3 \3 \3\3\3\>HaN^NuNV3\~3 \3 \3\3\3\3\3\>IaN^NuNV3\~3 \3 \3\3\3\3\3\>Ja4N^NuNV#]`3 \3\3\>KaN^NuNV#]`3 \~3\3\>LaN^NuNV>Ma n0\ n 0\ n0\ n0\B@09\N^NuNV3\~# ]`>NatN^NuNV>Oad n0\ n 0\ n0\ n0\N^NuNV#]`>Pa$N^NuNV#]`>Qa N^NuNV#]`# ]d>Za n0\B@09\N^NuNV3\~3 \3 \3\3\>daN^NuNV3\~3 \3 \3\3\>eajN^NuNV3\~>faRN^NuNV3\~>ga:N^NuNV3\~3 \>ha n 0\ n0\ n0\ n0\B@09\N^NuNV3\~3 \3 \3\3\3\>iaN^NuNV3\~3 \>jaN^NuNV3\~>karN^NuNV3\~3 \3 \3\3\3\>la2 n0\ n0\ n0\ n 0\B@09\N^NuNV#]`>naN^NuNV>oaN^NuNV3\~3 \>pa n ]zB@09\N^NuNV3\~3 \# ]`>qaN^NuNV#]`3 \~>ra`N^NuNV#]`# ]d>xa@N^NuNV3\~3 \3 \#]`#]d>yaN^NuNV#]`3 \~>zaN^NuNV#]`3 \~>{aN^NuNV#]`>|aN^NuNV#]`# ]d>}aN^NuNV3 Xx3 ]HBy]J3]N3]TNB09Y(N^NuNV3e]HBy]JBy]N3]TNBN^NuNV3 Y3 YBn nH2nXx2RRnJ@f3]H3]JSn3]N3]TNBN^NuNV#Xh#Xp .мZ#Xt3d]HBy]J3 ]N n 3]TNB n 0]T#XxXh#Y(Xp#[Xt#YXlN^NuNV# Xl3]H3 ]JBy]N3]TNB#YXlN^NuNV#XxXh#YXl# Xp . мZ#Xt3 Xx3f]HBy]J3]N3]TNB#Y(Xp#[XtN^NuNV3 Xx.NB.NB# Xl3m]H3]J3]N3]TNB#YXlN^NuNV# Xl3r]H3]JBy]N3]TNB#YXlN^NuNV3 Xx n3XzT n3X|.NB.NB# Xl3y]H3]J3]N3]TNB#YXlN^NuNV. NB.NB3n]HBy]JBy]N3]TNBN^NuNV# Xl3 Xx3]H3]J3]N3]TNB#YXlN^NuNV3 Xx3]HBy]J3]N3]TNB09Y(N^NuNV3 Xx3]HBy]J3]N3]TNB09Y(N^NuNV3 Xx3]HBy]J3]N3]TNB09Y(N^NuNV3 Xx3 Xz3l]HBy]J3]N3]TNBN^NuNV3 Xx3]HBy]J3]N3]TNB09Y(N^NuNV3 YByY3]H3]JBy]N3]TNB09[N^NuNV3 Xx3 Xz3']HBy]J3]N3]TNB n0Y( n0Y*N^NuNV3 Xx3]HBy]J3]N3]TNB09Y(N^NuNVByY3 Y3 ]H3]JBy]N3]TNB n 0[ n0[ n0[ n0[N^Nu#]VNu#]ZNu#]HXd"<XdpsNBNuNVa>aJN^NuNVB/<LD/. ?<?<KNz / n Jy[fZ n-P n ( "n")Ё"n")Ём-@. n/Bg?<JNzPJy[fp` `p``pN^NuNV>?<NzTN^NuNV>?<NzTHN^NuNV>?<NzTN^NuNV. ?.NzTN^NuNV>NzN^NuNV.?<NzTN^NuNV> /.?<NNz\JgB@`pN^NuNV>ONzJgB@`pN^NuNV.?<=NzT-@Jy[gB@`` .N^NuNV>?<>NzTN^NuNV. B0. /?.?<?NzPN^NuNV. B0. /?.?<@NzPN^NuNV> ?./. ?<BNzPN^NuNV.?<;NzTN^NuNV>/. ?<GNz\N^NuNV>?<NzTN^NuNV> /.?<?. /.?<CNzPN^NuNV=n =n >?./Y?<WNzPN^NuNV.Bg?<2axX.?<NzT./<LEN.X. H|@@>/?<NNz\Jf. /N.Xp``B@N^NuNV.?<ANzTN^NuNV>SW/?<6Nz\/./.NP-@/./.NP/ n /./.NP/ n pN^NuNV. /.Bg?<VNzPN^NuNV.?<:NzTN^NuNV.?<HNzTN^NuNV.?<HNzTN^NuNV.?<INzTN^NuNVH>.. *n SGfJL N^Nu o"oBRfNu o"oBBR2fNu o2/ 0/g0S@fNu o"o0/ BA0S@fNu o"o0/ g0S@fNu o0/2/ g0S@fNu o2/ 4/ 2og 0SIfNu oB@R@ fS@NuLB0/ gmS@fNuS@!S@jNuJ1q2r3s4t5u6v7w8x9yAzB{C|D}E~F` ` ` ` ` 000* 8TnJjz !!!!!!!!! *4@ B ~ !)r)))) Dr Doodle Window .DOO\*.DOODOODLE.RSC[3][Fatal Error !|DOODLE.RSC|File Not Found][ Abort ]  :\*.*_crystalL_gemdosXldivlmul_trapz_drawaddTX_m_outHd_dood_shHf_pen_shaHh_dood_peHj_dood_heHl_monumbeHn_mofaddrHp_file_naHt_wdw_titH_usercolH_color_sH_erase_bH_erase_mIF_erase_fI_min_max_string__rc_equa_rc_copyv_rc_inte_inside_grect_t_rast_opB_vdi_fix_vdi_tra_trans_g4_do_open_do_clos_set_cli@_draw_rel_align_x_set_sel_indir_oP_get_sel<_dir_objh_move_do \_get_par_redraw_ z_objc_xy_xtend_d _hndl_di _dr_code _set_wor_save_woF_restore_do_obj_undo_obT_sel_obj_desel_o_enab_me_unflag__flag_ob_dial_naH_get_patX_add_fil_get_fil:_cursor_curs_on_curs_of_hndl_me_do_abou_do_load_do_saver_do_svas _do_pens_do_eras_set_pen<_set_erab_set_col_get_col_hndl_ke(_hndl_ms_do_redr!_do_full#_hndl_mo$_hndl_bu%,_draw_pe%h_eraser'_doodle(`_dood_te)h_pict_in)_dood_in*_main._strlen._strcpy._strcat/_umul_di/F_UMUL_DI/F_ctrl_cnJ_crys_if/Z_appl_in/_appl_ex0&_appl_wr08_appl_re0`_appl_fi0_appl_tp0_appl_tr0_evnt_ke0_evnt_bu0_evnt_mo1P_evnt_me1_evnt_ti1_evnt_mu1_evnt_dc2_menu_ba2_menu_ic3 _menu_ie34_menu_tn3\_menu_te3_menu_re3_objc_ad3_objc_de3_objc_dr4_objc_fi4\_objc_or4_objc_of4_objc_ed4_objc_ch5D_form_do5_form_di5_form_al6_form_er64_form_ce6L_graf_ru6_graf_dr6_graf_mb7L_graf_gr7_graf_sh7_graf_wa8,_graf_sl8\_graf_ha8_graf_mo8_graf_mk8_scrp_re9$_scrp_wr9<_fsel_in9T_wind_cr9_wind_op9_wind_cl9_wind_de:_wind_ge:&_wind_se:v_wind_fi:_wind_up:_wind_ca:_rsrc_lo;^_rsrc_fr;v_rsrc_ga;_rsrc_sa;_rsrc_ob;_shel_re<_shel_wr< _shel_ge_vq_extn>Z_vro_cpy>_vr_recf?*_vrt_cpy?h_vr_trnf?_vs_clip@_vsf_col@b_vsf_int@_vsl_col@_vsl_endA_vsl_typAL_vsl_widA_vst_aliA_vst_colB_vst_heiBP_i_ptrB_i_ptr2B_gsx1B_gsx2B_iioffXh_iooffXp_pioffXl_pooffXt_vdiB_isdriveB_dos_gdrC_dos_sdrE2_pgmldB_chroutC_rawconC_prt_chrC_dos_funC_dos_sdtC_dos_sfiD_dos_sneD4_dos_opeDP_dos_cloD~_dos_reaD_dos_wriD_dos_lseD_dos_chdD_dos_gdiE_dos_creEJ_dos_mkdEf_dos_chmE_dos_setE_dos_labE_bfillGd_dos_delFd_dos_spaF|_dos_renF_dos_rmdG_dos_allG_dos_avaG2_dos_freGL_LSTRLENH*_LBCOPYH<_LWFILLG_LBDSKIPG_LWCOPYG_LBFILLG_LBALTH _LSTCPYG_LBWMOVG_intinXx_save_arY_gl_hfulY _scrn_heY"_mousexY$_mouseyY&_intoutY(_gl_hboxY_dood_whY_cY_ev_whicY_scrn_arY_undo_arY_gl_menuY_undo_mfY_scrn_mfY_key_xbeY_key_ybeY_gl_rmsgY_ptsinY_DOS_ERR[_ptsout[_gl_wful\ _key_inp\ _gl_wbox\_gl_xful\_gl_yful\_scrn_pl\_global\_work_ar\4_scrn_wi\<_key_xcu\>_key_ycu\@_brushub\B_scrn_xs\r_scrn_ys\t_control\v_int_in\~_int_out\_bstate\_gl_hcha\_work_ou\_file_ha]"_userbru]$_ad_c]8_kstate]<_kreturn]>_char_fi]@_gem_han]B_gl_apid]D_char_me]F_contrl]H_char_br]^_addr_in]`_gl_wcha]h_vdi_han]j_bclicks]l_gl_hspa]n_ad_rmsg]p_buff_si]t_buff_lo]v_addr_ou]z_DOS_AX]~0 vf  Pn (&*..0&p0($ N*   $          0X48 J     $D&J P" &N:   ,   "   &,   $&         .$  $ ($4 0$4H$ (,$    F2& "4^       F(2  6          $(        " "   (         $F& "$$ &,0& "(\(2222222222222U@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?222222~ |z C 9\\\\\]]]0]E]Z]o]]]]]]]]]^^^!^)^6^9^R^i^r^^^^^^^^^^^^^_;sg~0c&8U_`@@EP'D D( H*DDMUVHp|P ` G  x|?@@@@@@  P L M Z PP |  P             %  :  D  K  R  _  i y    &                 + ( B  E (   /  c  &4 BP^ l    $    $   @@ @1q@2r@3s@4t1q   ,4SSTTZTTUDOODLE.RSCFFG$GVGVFGVFFFFF Desk File Options Dr Doodle Info...-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Load... Save Quit Save As... Abandon Erase Picture Pen/Eraser Selection...--------------------------Dr DoodleGEM Sample ApplicationAuthors-------Tom RolanderOkVersion 1.1 March, 1985Digital Research, Inc.Tim OrenSave Dr Doodle picture asOkCancel________.DOOANNNNNNNDr Doodle Pen/Eraser SelectionPens:OkErasers:CancelPen Colors:Selected:[2][You are about|to write over|an existing file.][Ok| Cancel ][3][ GEM does not have| any windows left,| Dr Doodle aborting][ Sorry ] f5k 0+ l5@ j f5k 0j2+ 4<n aA40+j2+ 4<n aA5@0,0g j`j5|$_&_N^NuNV??>.<. / &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?/ ?<?<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@g`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  &. s t4.. s tCONVERT BAStt 5MIDI BAS{t :GAME BASt ?MISC BASt S. u t5.. u t4LOWHIGH BASvt 6 README DOCyt 9i10 rem ##################################################################### 20 rem # # 30 rem # Low - High - Converter # 40 rem # ---------------------- # 50 rem # written 1986 by Sven Krppel, Linderner Str.29, 5138 Heinsberg # 60 rem # ---------------------------------------------------------------- # 70 rem # LEVEL 16 Public Domain # 80 rem # # 90 rem #################### UK Conversion by Blob XL ####################### 100 dim w(80) 110 fullw 2:clearw 2 120 main: 130 poke contrl,123:poke contrl+2,0:poke contrl+6,0:vdisys 140 gotoxy 7,2:?"Low Resolution - High Resolution - CONVERTER" 150 gotoxy 7,3:?"--------------------------------------------" 160 gotoxy 7,5:?"LEVEL 16 Public Domain" 170 gotoxy 0,10:input "Source - Filename (*=Stop Program) ";l$ 180 if l$="*" then goto mausan 190 gotoxy 0,12:input "Destination - Filename (*=Stop Program) ";s$ 200 if s$="*" then goto mausan 202 gotoxy 0,14:?"Most colour files have a number of bytes determining" 204 gotoxy 0,16:?"picture colours etc. This program must ignore these" 206 gotoxy 0,18:?"so you are now asked to input an offset." 210 gotoxy 0,20:input "Offset (Usually 32) ";offset 220 gosub laden 230 gosub convert 240 gosub speichern 250 out 2,7:a=inp(2) 260 goto main 270 laden: 280 sm=peek(&h44e)*65536+abs(peek(&h450)) 290 bload l$,sm+offset 300 for i=sm to sm+158:poke i,-1:next 310 return 320 speichern: 330 bsave s$,sm,32000 340 return 350 convert: 360 for y=sm+160 to sm+31840 step 160 370 for x=0 to 79:w(x)=peek(y+x*2):if sgn(w(x))=-1 then w(x)=65536+w(x) 380 next 390 x1=0 400 for x=0 to 76 step 4 410 k=32768:j=1 420 h1=32768:h2=h1:p1=0:p2=0 430 if w(x)>=k then p1=p1+h1:w(x)=w(x)-k 440 h1=h1/2 450 if w(x+1)>=k then p1=p1+h1:w(x+1)=w(x+1)-k 460 h1=h1/2 470 if w(x+2)>=k then p2=p2+h2:w(x+2)=w(x+2)-k 480 h2=h2/2 490 if w(x+3)>=k then p2=p2+h2:w(x+3)=w(x+3)-k 500 h2=h2/2 510 k=k/2 520 if j=8 then poke y+x1*2,p1:poke y+x1*2+80,p2:j=1:x1=x1+1:goto 420 530 j=j+1:if k>=1 then 430 540 next:next:return 550 mausan: 560 poke contrl,122:poke contrl+2,0:poke contrl+6,1:poke intin,0:vdisys 570 end  The file in this folder is a BASIC program that will convert low resolution colour pictures into high resolution monochrome pictures. Just load BASIC and then load this program. You will be asked to enter the source and destination filenames. (It may help if these are in the top directory). . | t:.. | t4MIDISE BAS}t ;SILENT BASt < 10 clearw 2 :clear 30 if inp(-3)=-1 then a= inp(3) else 50 :goto 30 50 defint a-m : dim midarray(320,1) 70 m=0 80 Print"Begin, Hit Pitch Wheel to Finish Recording" 90 if inp(-3)=0 then f=f+1:goto 90 110 a=inp(3)+256 130 if m=0 and a<>144 then f=0:goto 90 150 midarray(m,0)=a 170 midarray(m,1)=f 190 f=0 :m=m+1 210 if a= 224 then goto 290 230 goto 90 250 ?inp(-2) 270 goto 250 290 print"Playback: (switch midi cords now)" 310 input"Tempo <1 to 5>";tempo 330 for b = 0 to m 350 if midarray(b,1)=0 then 370 else for t=0 to midarray(b,1)*tempo:next 370 out 3,midarray(b,0) 390 next 410 end 1000 for t = 0 to m 1010 ?hex$(midarray(t,0));" ";midarray(t,1), 1020 next eeeeeeeeeeeeeeeeeeeeeeeeeee10 '************************************************************** 20 '** A MIDI PROGRAM THAT PLAYS SILENT NIGHT ** 30 '** WRITTEN BY ** 40 '** JAMES M. MAYFIELD ** 50 '** NOVEMBER 17, 1985 ** 60 '************************************************************** 70 ' The note values change by 1 half step for each change in number 80 ' Middle C = 60 90 ' The length is determined by the following numbers: 100 ' 2 = sixteenth note 110 ' 3 = dotted sixteenth note 120 ' 4 = eighth note 130 ' 5 = dotted eighth note 140 ' 6 = quarter note 150 ' 7 = dotted quarter note 160 ' 8 = half note 170 ' 9 = dotted half note 180 ' 10 = whole note 190 INPUT "ENTER TEMPO";TEMPO% 200 FOR COUNT% = 1 TO 46 210 READ N1%,N2%,N3%,N4%,LENGTH% 220 OUT 3,&H90:' STATUS BYTE TO TURN NOTES ON 230 OUT 3,N1%:OUT 3,64:OUT 3,N2%:OUT 3,64:OUT 3,N3%:OUT 3,64:OUT 3,N4%:OUT 3,64 240 FOR Y = 1 TO LENGTH% * TEMPO% * 2:NEXT: ' DELAY WHILE CHORD PLAYS 250 OUT 3,&H80:' STATUS BYTE TO TURN NOTES OFF 260 OUT 3,N1%:OUT 3,64:OUT 3,N2%:OUT 3,64:OUT 3,N3%:OUT 3,64:OUT 3,N4%:OUT 3,64 270 NEXT: ' GO AND PLAY NEXT CHORD 280 ' DATA FOR NOTES AND LENGTH (N1%,N2%,N3%,N4%,LENGTH%) 290 DATA 65,62,58,46,5,67,63,58,46,2,65,62,58,46,4,62,58,53,46,7 300 DATA 65,62,58,46,5,67,63,58,46,2,65,62,58,46,4,62,58,53,46,7 310 DATA 72,63,57,53,6,72,63,57,53,4,69,60,53,53,7 320 DATA 70,62,53,46,6,70,62,53,46,4,65,62,58,46,7 330 DATA 67,63,58,51,6,67,63,58,51,4,70,67,55,51,5,69,65,57,51,2,67,63,58,51,4 340 DATA 65,62,58,46,5,67,63,58,46,2,65,62,58,46,4,62,58,53,46,7 350 DATA 67,63,58,51,6,67,63,58,51,4,70,67,55,51,5,69,65,57,51,2,67,63,58,51,4 360 DATA 65,62,58,46,5,67,63,58,46,2,65,62,58,46,4,62,58,53,46,7 370 DATA 72,63,57,53,6,72,63,57,53,4,75,69,60,53,5,72,63,57,53,2,69,60,53,53,4 380 DATA 70,62,53,46,7,74,53,58,46,7 390 DATA 70,62,58,53,5,65,62,58,53,2,62,58,53,53,4,65,62,53,41,5,58,60,53,41,2,60,57,51,41,4 400 DATA 58,58,50,46,9 .  t?..  t4JOURNEY DOCt @IBONGO BASt [LJANJORN DOCĢlM80 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 .  tS..  t4BOXESLR BASt TDEMO BASt ULABELS BASt VSOUNDD BASt Z10 'fill boxes symmetrically 20 randomize 0:c=0 30 color 1,0,1,1,1:fullw 2:clearw 2 40 for x=18 to 284 step 19 50 linef x,0,x,166 60 next x 70 for y=13 to 153 step 14 80 linef 0,y,330,y 90 next y 100 c=c+1:if c=16 then c=1 110 color 1,c,1 120 col=int(rnd*16)*19+9:row=int(rnd*12)*14+7 130 fill col,row,1 140 if col>151 then cenc=col-151:fill col-(cenc*2),row,1 150 if col<152 then colh=302-col:fill colh,row,1 160 if row>82 then rowh=row-((row-82)*2):fill col,rowh,1 170 if row<83 then rowh=164-row:fill col,rowh,1 180 if col>151 then fill col-(cenc*2),rowh,1 else fill colh,rowh,1 190 goto 100 10 'display grid with 36 fill patterns 20 color 1,0,1,1,1:fullw 2:clearw 2 30 if peek(systab)=1 then 60 40 if peek(systab)=2 then 70 50 goto 80 60 x=102:y=56:a=28:b=308:c=56:d=51:e=561:f=102:goto 90 70 x=102:w=28:a=14:b=154:c=28:d=51:e=561:f=102:goto 90 80 x=51:y=28:a=14:b=154:c=28:d=25:e=280:f=51 90 for x=f to e-d step f 100 linef x,0,x,345 110 next x 120 for y=c to b-a step c 130 linef 0,y,615,y 140 next y 150 i=2:p=1 160 for y=a to b step c 170 for x=d to e step f 180 color 1,1,1,p,i:fill x,y,1 190 p=p+1:if p=25 then p=1:i=i+1 200 if i=4 then end 210 next x,y 10 ' LABELS.BAS created on 16 November 1985 by Wm. A. Van Nest 20 ' 30 closew 0:closew 1:closew 3 40 START: fullw 2: clearw 2: Atari$=Chr$(14)+Chr$(15) 50 CLEAR 60 title$=" Van's Label Maker for Epson RX/FX series printers " 70 title$=chr$(32)+chr$(14)+chr$(15)+title$ 80 title$=title$+chr$(14)+chr$(15)+chr$(32) 90 poke systab+24,1 : ' Don't need to see this... 100 a# = gb : ' Fetch globals address 110 gintin = peek(a#+8) : ' AES int_in array 120 poke gintin+0,peek(systab+8) : ' OUTPUT window handle 130 poke gintin+2,2 : ' we're changing it's name 140 s# = gintin+4 : ' DBL address for long poke 150 title$ = title$ + chr$(0) : ' assure zero terminator 160 poke s#,varptr(title$) : ' title of new window 170 gemsys(105) : ' wind_set AES call 180 poke systab+24,0 : ' Turn things back on 190 p$(1) = "Reset printer to default state" 200 p$(2) = "Printer in BOLD face type" 210 p$(3) = "Printer in Condensed mode" 220 p$(4) = "Printer in Enlarged mode" 230 p$(5) = "Printer in Italics mode" 240 p$(6) = "Printer in Elite mode" 250 clearw 2: gotoxy 0,0: print 260 ? " A - Enter label B - Print labels C - Exit to TOS":? 270 ? " Print modes in RED are active and may be combined.":? 280 for x = 1 to 6 290 if P(x) = 0 then color 1,0,1 else color 2,0,1 300 print X; " ";p$(x); 310 if x/2 = int(x/2) then ? else ? tab(40); 320 next x 330 color 1,0,1: print 340 print tab(30);"Current label:": PRINT 350 for x = 1 to 5 360 print tab(5);x;" ";l$(x) 370 next x 380 gotoxy 20,17: ? "Enter selection: ";: s$ = input$ (1) 390 if s$="C" or s$="c" then 850 400 if s$="A" or s$="a" then 560 410 if s$="B" or s$="b" then 640 420 if s$<"1" or s$>"6" then 380 430 s=val(s$) 440 p(s) = p(s) xor 1 450 if s<>1 then p(1) = 0: goto 480 460 for x=2 to 6: p(x)=0: next x: p(1)=1 470 lprint chr$(27);"@"; 480 if s=2 then if p(s)=1 then lprint chr$(27);"E"; else lprint chr$(27);"F"; 490 if s=3 then if p(s)=1 then lprint chr$(15); else lprint chr$(18); 500 if s<>4 then 530 510 if p(s)=1 then lprint chr$(27);"W";chr$(1); 520 if p(s)=0 then lprint chr$(27);"W";chr$(0); 530 if s=5 then if p(s)=1 then lprint chr$(27);"4"; else lprint chr$(27);"5"; 540 if s=6 then if p(s)=1 then lprint chr$(27);"M"; else lprint chr$(27);"P"; 550 goto 250 560 clearw 2: gotoxy 0,0: print 570 print "Input each of 5 lines. Edit BEFORE pressing [Return]!" 580 print 590 for x=1 to 5 600 print x;" "; 610 line input l$(x) 620 next x 630 goto 250 640 clearw 2:gotoxy 0,0:print 650 print "Printing alignment label..." 660 gosub 800 670 gotoxy 0,5:?"Is that OK? (Y or N please): "; 680 z$=input$ (1) 690 if z$="Y" or z$="y" then 720 700 if z$="N" or z$="n" then 640 710 goto 670 720 gotoxy 0,7:?"How many labels should I print (0 to end): "; 730 input c:if c=0 then 250 740 gotoxy 0,10:?"Printing label number:" 750 for x=1 to c 760 gotoxy 25,10:?x 770 gosub 800 780 next x 790 goto 250 800 for i=1 to 5 810 lprint l$(i) 820 next i 830 lprint 840 return 850 clearw 2:gotoxy 0,0:color 2,0,1 860 print "Type 'QUIT' to return to GEM Desktop" 865 color 1,0,1 870 end 100 'A Simple tester for STbasic sound 101 'Given to PD by D.Groves 11/17/85 102 FULLW 2 'Open the output window to full size 103 CLEARW 2 104 'Clear the output window 105 FOR N=1 TO 3 'Data Reading Loop 106 ? "Octave for Voice";N;"(0-8 11) TO END";:INPUT OCTAVE(N) 107 IF OCTAVE(N)>10 THEN END 108 IF OCTAVE(N)<0 OR OCTAVE(N)>8 THEN 106 109 ? "Note for Voice";N;"(0-12)";:INPUT NOTE(N) 110 IF NOTE(N)<0 OR NOTE(N)>12 THEN 109 111 ? "Volume for Voice";N;"(0-15)";:INPUT VOL(N) 112 IF VOL(N)<0 OR VOL(N)>15 THEN 111 113 ? "Voice";N;"Hold in 1/50ths of a sec.";:INPUT DUR(N) 114 CLEARW 2 115 NEXT N 116 ? "Wave Shape (0-8)";:INPUT SHAPE 117 ? "Wave Period (0-?????)";:INPUT PERIOD 118 ? "Delay Voice 1/50ths";:INPUT DELAY 119 CLEARW 2 120 WAVE 7,7,SHAPE,PERIOD,DELAY 'Please let me know why this line is needed 121 FOR N=1 TO 3 122 SOUND N,VOL(N),NOTE(N),OCTAVE(N),DUR(N) 123 NEXT N 124 FOR N=1 TO 3:SOUND N,0,0,0,0:NEXT N 125 GOTO 104 uuuuuuuuuuu10 rem ##################################################################### 20 rem # # 30 rem # - BONGO - # 40 rem # # 50 rem # LEVEL 16 Public-Domain-Software # 60 rem # # 70 rem # written 1986 by Sven Krppel, Linderner Str.29, 5138 Heinsberg # 80 rem # # 90 rem ##################################################################### 100 dim spieler$(4),p(3),x(10),y(10),z(9),g(6),wurf(5),score(4,15),bongo(4) 110 init: 120 zug=1:sp=1:wurf=1:for i=1 to 4:bongo(i)=0:next:for i=1 to 5:wurf(i)=0:next 130 a#=gb:aintout=peek(a#+12) 140 data Ones,Twoes,Threes,Fours,Fives,Sixes,Bonus,Three Alike 150 data Four Alike,Full House,Low Run,High Run,Bongo,Chance,TOTAL 160 for x=1 to 4:for y=1 to 15:score(x,y)=-1:next y,x 170 fullw 2:clearw 2:out 2,27:out 2,69:gosub mausaus:gosub titel 180 x(1)=200:y(1)=250:p(1)=1:p(2)=1:p(3)=200:t$="Mouse Button Starts":gosub text 190 j=1:huell=9:periode=9000:kanal=7 200 for h=1 to 2:restore 3770:for i=1 to 22:read ton,oktave,laenge 210 gemsys 79:if peek(aintout+6)<>0 then goto eingabe 220 sound 1,0,ton,oktave:sound 2,0,ton,oktave-1:sound 3,0,ton,oktave+1 230 wave kanal,7,huell,periode,laenge:next:next 240 restore 3800:for i=1 to 21:read ton,oktave,laenge 250 gemsys 79:if peek(aintout+6)<>0 then goto eingabe 260 sound 1,0,ton,oktave:sound 2,0,ton,oktave-1:sound 3,0,ton,oktave+1 270 wave kanal,7,huell,periode,laenge:next 280 if j=1 then huell=9:periode=7000:kanal=13 290 if j=2 then huell=15:periode=1500:kanal=7 300 if j=3 then huell=9:periode=1000:kanal=15 310 if j=4 then huell=9:periode=7000:kanal=3 320 if j=5 then huell=15:periode=1500:kanal=15 330 if j=5 then 190 340 j=j+1:goto 200 350 rem ################### Namen eingeben ################ 360 eingabe: 370 color 1,0,1,1,1:x(1)=190:y(1)=230:x(2)=400:y(2)=260:gosub recht 380 p(1)=1:gosub effekt 390 p(1)=1:p(2)=1:p(3)=200:y(1)=237:x(1)=100:t$="Number of Players ?" 400 gosub text:out 2,27:out 2,89:out 2,46:out 2,71:out 2,27:out 2,101 410 a=inp(2):if a<49 or a>52 then out 2,7:goto 410 else out 2,a:a=a-48 420 for i=1 to a:spieler$(i)="":az=0 430 y(1)=237+i*16:t$="Name of player"+str$(i)+" ?":gosub text 440 out 2,27:out 2,89:out 2,46+i:out 2,71 450 z=inp(2):if z=8 and az>0 then out 2,8:out 2,32:out 2,8:az=az-1 460 if z=13 then 520 470 if az>8 then goto 450 480 if z>64 and z<91 then az=az+1:z(az)=z:out 2,z 490 if z>96 and z<123 then az=az+1:z=z-32:z(az)=z:out 2,z 500 if z=32 or z=45 then az=az+1:z(az)=z:out 2,z 510 goto 450 520 for z=1 to az:spieler$(i)=spieler$(i)+chr$(z(z)):next x,i 530 out 2,27:out 2,102 540 rem ##################### Layout ##################### 550 layout: 560 clearw 2:out 2,27:out 2,69:color 1,1,1,1,1 570 p(1)=0:p(2)=1000:gosub farbe:p(1)=1:p(2)=0:gosub farbe 580 x(1)=0:y(1)=0:x(2)=639:y(2)=399:gosub recht:color 1,1,1,0,0 590 p(1)=3:gosub linie:x(1)=10:y(1)=57:x(2)=420:y(2)=384:gosub rrecht 600 x(1)=430:x(2)=635:y(2)=230:gosub rrecht 610 x(1)=430:x(2)=635:y(1)=307:y(2)=384:gosub rrecht 620 x(1)=10:y(1)=3:x(2)=635:y(2)=50:gosub rrecht 630 p(1)=2:x(1)=140:x(2)=140:y(1)=57:y(2)=384:gosub polyline 640 x(1)=10:x(2)=420:y(1)=80:y(2)=80:gosub polyline 650 y(1)=361:y(2)=361:gosub polyline 660 p(1)=0:gosub linie:p(1)=2:x(1)=10:x(2)=420:for y=100 to 340 step 20 670 y(1)=y:y(2)=y:gosub polyline:next 680 y(1)=57:y(2)=384:for x=210 to 350 step 70:x(1)=x:x(2)=x:gosub polyline:next 690 y(1)=80:for x=445 to 565 step 60:x(1)=x:gosub wuerfel:next 700 y(1)=140:for x=470 to 530 step 60:x(1)=x:gosub wuerfel:next 710 x(1)=445:y(1)=195:x(2)=615:y(2)=220:gosub rrecht 720 y(1)=315:y(2)=340:gosub rrecht:y(1)=350:y(2)=375:gosub rrecht 730 rem ########### Bildschirm beschriften ############### 740 schrift: 750 p(1)=17:gosub effekt:t$="Name :":p(1)=1:p(2)=1:p(3)=110:x(1)=20:y(1)=75 760 gosub text:y(1)=31:gosub groesse:p(1)=5:gosub effekt:t$="LEVEL 16":p(3)=150 770 gosub text:p(1)=4:gosub effekt:p(1)=1 780 y(1)=8:gosub groesse:t$=" presents ":p(3)=130:y(1)=13:x(1)=180 790 gosub text:p(1)=0:gosub effekt:x(1)=20:y(1)=46:p(1)=1:p(3)=610 800 t$="written by Sven Krppel, Linderner Str.29, 5138 Heinsberg" 810 gosub text 820 color 1,1,1,1,1:x(1)=320:y(1)=6:x(2)=620:y(2)=35:gosub rrecht 830 color 0,1,1,0,0:p(1)=2:gosub mode:p(1)=1:gosub effekt:y(1)=32:gosub groesse 840 x(1)=360:p(3)=220:t$="BONGO":gosub text:color 1,1,1,0,0 850 y(1)=13:gosub groesse 860 y(1)=75:p(3)=63:for j=1 to a:t$=spieler$(j):x(1)=75+j*70:gosub text:next 870 restore 140:p(3)=110:x(1)=20:for y=1 to 15:read t$:y(1)=y*20+77:gosub text 880 next:p(1)=0:gosub effekt 890 p(1)=0:gosub effekt:y(1)=13:gosub groesse:x(1)=470:y(1)=213:p(3)=120 900 t$="Roll 'em!":gosub text:p(1)=1:gosub mode 910 t$="New Game":y(1)=333:gosub text:t$="End Program":y(1)=368:gosub text 920 t$="0":for sp=1 to a:x(1)=sp*70+100:y(1)=217:gosub text:y(1)=377 930 gosub text:next:sp=1 940 rem vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv 950 rem ================ Hauptprogramm ==================== 960 rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 970 start: 980 if sprung=1 then goto wertung 990 if zug>13 then gosub ende:goto 1080 1000 color 1,1,1,1,1:x(1)=430:x(2)=635:y(1)=235:y(2)=300:gosub recht 1010 p(1)=1:gosub effekt:y(1)=265:gosub groesse:color 0,1,1,0,0:p(1)=2 1020 gosub mode:x(1)=450:p(1)=1:p(2)=1:p(3)=160:t$=spieler$(sp):gosub text 1030 p(1)=1:p(2)=1:p(3)=90:x(1)=480:p(1)=0:gosub effekt 1040 y(1)=19:gosub groesse:y(1)=295:t$="Roll No"+str$(wurf):gosub text:p(1)=0 1050 y(1)=13:gosub groesse:color 1,1,1,0,0:p(1)=1:gosub mode 1060 if wurf=1 then gosub wuerfeln 1070 gosub becher:mc=1:gosub mausan 1080 gosub maus 1090 if xm<140 or xm>635 or ym<80 or ym>384 then out 2,7:goto 1080 1100 if xm<445 and mc=1 and wurf<>1 then gosub mausaus:gosub stift:mc=0 1110 if xm>445 and mc=0 and wurf<>3 then gosub mausaus:gosub becher:mc=1 1120 gosub mausan 1130 if button=0 then 1080 1140 mc=1:if xm<445 then goto wertung 1150 if ym>315 and ym<340 then goto init 1160 if ym>350 and ym<375 then end 1170 gosub mausaus:if wurf=3 then gosub stift:mc=0:goto 1080 1180 if ym>195 and ym<220 then gosub wuerfeln:wurf=wurf+1:goto start 1190 for i=1 to 3:x(1)=385+i*60:x(2)=x(1)+40:y(1)=80:y(2)=120 1200 if xm>x(1) and xmy(1) and ymx(1) and xmy(1) and ym14 or y=7 then out 2,7:goto 1080 1300 if score(sp,y)>=0 then out 2,7:goto 1080 1310 p(1)=0:p(2)=0:y(1)=y*20+77:x(1)=sp*70+100 1320 if bongo=0 and bongo(sp)<2 then 1370 1330 if bongo=1 and score(sp,13)=0 then bongo=0:goto 1370 1340 if bongo=1 and score(sp,13)=-1 and y<>13 then bongo(sp)=bongo(sp)-1 1350 if bongo=1 and score(sp,13)=-1 and y<>13 then 1370 1360 score(sp,y)=bongo(sp)*50:t$=str$(score(sp,y)):gosub text:goto bonus 1370 on y goto 1400,1420,1440,1460,1480,1500,1520,1570,1630,1690,1750,1900,1950 1380 goto 1990 1390 rem Einer 1400 score(sp,y)=g(1):t$=str$(score(sp,y)):gosub text:goto bonus 1410 rem Zweier 1420 score(sp,y)=g(2)*2:t$=str$(score(sp,y)):gosub text:goto bonus 1430 rem Dreier 1440 score(sp,y)=g(3)*3:t$=str$(score(sp,y)):gosub text:goto bonus 1450 rem Vierer 1460 score(sp,y)=g(4)*4:t$=str$(score(sp,y)):gosub text:goto bonus 1470 rem Fnfer 1480 score(sp,y)=g(5)*5:t$=str$(score(sp,y)):gosub text:goto bonus 1490 rem Sechser 1500 score(sp,y)=g(6)*6:t$=str$(score(sp,y)):gosub text:goto bonus 1510 rem Bonus 1520 bonus: 1530 score(sp,7)=0:h=0 1540 for i=1 to 6:h=h+score(sp,i):next:if h>63 then score(sp,7)=35 1550 t$=str$(score(sp,7)):y(1)=217:gosub text:goto summe 1560 rem Dreierpasch 1570 if score(sp,y)<>-1 then out 2,7:goto 1080 1580 for i=1 to 6:if g(i)>2 then 1600 else next 1590 score(sp,y)=0:goto 1610 1600 for i=1 to 5:score(sp,y)=score(sp,y)+wurf(i):next:score(sp,y)=score(sp,y)+1 1610 t$=str$(score(sp,y)):gosub text:goto summe 1620 rem Viererpasch 1630 if score(sp,y)<>-1 then out 2,7:goto 1080 1640 for i=1 to 6:if g(i)>3 then 1660 else next 1650 score(sp,y)=0:goto 1670 1660 for i=1 to 5:score(sp,y)=score(sp,y)+wurf(i):next:score(sp,y)=score(sp,y)+1 1670 t$=str$(score(sp,y)):gosub text:goto summe 1680 rem Full House 1690 if score(sp,y)<>-1 then out 2,7:goto 1080 1700 for i=1 to 6:for j=1 to 6:if g(i)=3 and g(j)=2 then 1720 else next:next 1710 score(sp,y)=0:goto 1730 1720 score(sp,y)=25 1730 t$=str$(score(sp,y)):gosub text:goto summe 1740 rem Kleine Strae 1750 if score(sp,y)<>-1 then out 2,7:goto 1080 1760 for i=1 to 6:if g(i)>2 then score(sp,y)=0:goto 1880 else next 1770 h=0:for i=1 to 6:if g(i)=2 then h=h+1 1780 next:if h>1 then score(sp,y)=0:goto 1880 1790 if wurf(1)=3 then 1870 1800 if wurf(1)=1 and wurf(2)=3 and h=0 then 1870 1810 h=0:i=1:j=wurf(1) 1820 if g(j)=2 then i=i+1 1830 if i>5 then 1860 1840 if wurf(i)=j then h=h+1 1850 i=i+1:j=j+1:goto 1820 1860 if h<4 then score(sp,y)=0:goto 1880 1870 score(sp,y)=30 1880 t$=str$(score(sp,y)):gosub text:goto summe 1890 rem Groe Strae 1900 if score(sp,y)<>-1 then out 2,7:goto 1080 1910 for i=1 to 6:if g(i)>1 then score(sp,y)=0:goto 1930 else next 1920 if wurf(1)=1 and wurf(5)=6 then score(sp,y)=0 else score(sp,y)=40 1930 t$=str$(score(sp,y)):gosub text:goto summe 1940 rem Bongo 1950 if score(sp,y)<>-1 then out 2,7:goto 1080 1960 if bongo=1 then score(sp,y)=50 else score(sp,y)=0 1970 t$=str$(score(sp,y)):gosub text:goto summe 1980 rem Chance 1990 for i=1 to 5:score(sp,y)=score(sp,y)+wurf(i):next:score(sp,y)=score(sp,y)+1 2000 t$=str$(score(sp,y)):gosub text:goto summe 2010 rem Summe 2020 summe: 2030 score(sp,15)=0 2040 for i=1 to 14:if score(sp,i)<>-1 then score(sp,15)=score(sp,15)+score(sp,i) 2050 next 2060 t$=str$(score(sp,15)):y(1)=377:gosub text 2070 sp=sp+1:if sp>a then sp=1:zug=zug+1 2080 wurf=1:for i=1 to 5:wurf(i)=0:next:goto start 2090 rem ########## Text ausgeben ######################## 2100 text: 2110 poke contrl,11:poke contrl+2,2:poke contrl+6,len(t$)+2:poke contrl+10,10 2120 poke intin,p(1):poke intin+2,p(2) 2130 for vdi=1 to len(t$):poke intin+2+vdi*2,asc(mid$(t$,vdi,1)):next 2140 poke ptsin,x(1):poke ptsin+2,y(1):poke ptsin+4,p(3):vdisys 2150 return 2160 rem ########## Text-Effekte ########################### 2170 effekt: 2180 poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,p(1):vdisys 2190 return 2200 rem ########### Text-Gre ############################ 2210 groesse: 2220 poke contrl,12:poke contrl+2,1:poke contrl+6,0:poke ptsin,0 2230 poke ptsin+2,y(1):vdisys 2240 return 2250 rem ############ Schreibmodus festlegen ##################### 2260 mode: 2270 poke contrl,32:poke contrl+2,0:poke contrl+6,1:poke intin,p(1):vdisys 2280 return 2290 rem ########## Rechteck zeichnen ####################### 2300 recht: 2310 poke contrl,11:poke contrl+2,2:poke contrl+6,0:poke contrl+10,1 2320 poke ptsin,x(1):poke ptsin+2,y(1):poke ptsin+4,x(2):poke ptsin+6,y(2) 2330 vdisys 2340 return 2350 rem ########## Polygon zeichnen ######################### 2360 polyline: 2370 poke contrl,6:poke contrl+2,p(1):poke contrl+6,0 2380 for vdi=1 to p(1):poke ptsin+(vdi-1)*4,x(vdi):poke ptsin+vdi*4-2,y(vdi) 2390 next:vdisys 2400 return 2410 rem ################ Polygon ausfllen ############# 2420 polyfill: 2430 poke contrl,9:poke contrl+2,p(1):poke contrl+6,0 2440 for vdi=1 to p(1):poke ptsin+(vdi-1)*4,x(vdi):poke ptsin+vdi*4-2,y(vdi) 2450 next:vdisys 2460 return 2470 return 2480 rem ######### Linienbreite festlegen ############## 2490 linie: 2500 poke contrl,16:poke contrl+2,1:poke contrl+6,0:poke ptsin,p(1):vdisys 2510 return 2520 rem ######### abgerundetes Rechteck ############### 2530 rrecht: 2540 poke contrl,11:poke contrl+2,2:poke contrl+6,0:poke contrl+10,9 2550 poke ptsin,x(1):poke ptsin+2,y(1):poke ptsin+4,x(2):poke ptsin+6,y(2) 2560 vdisys 2570 return 2580 rem ############ Wrfel ######################### 2590 wuerfel: 2600 x(2)=x(1)+40:y(2)=y(1)+40:gosub recht:color 1,1,1,15,2:p(1)=8 2610 x(4)=x(1):y(4)=y(1):x(1)=x(1)+40:x(2)=x(1)+10:y(2)=y(1)-10:x(3)=x(2)-40 2620 y(3)=y(2):x(5)=x(1):y(5)=y(1):x(6)=x(5):y(6)=y(5)+40:x(7)=x(2) 2630 y(7)=y(6)-10:x(8)=x(2):y(8)=y(2):gosub polyfill:color 1,1,1,0,0:return 2640 rem ############# Augen zeichnen ################ 2650 augen: 2660 x(1)=x:y(1)=y:x(2)=x+40:y(2)=y+40:gosub recht 2670 color 1,1,1,1,1:p(1)=wurf(i) 2680 x(1)=x+20:y(1)=y+20:x(2)=x+10:y(2)=y+10:x(3)=x+30:y(3)=y+30:x(4)=x+30 2690 y(4)=y+10:x(5)=x+10:y(5)=y+30:x(6)=x+20:y(6)=y+10 2700 if p(1)=2 then x(1)=x(3):y(1)=y(3) 2710 if p(1)=4 then x(1)=x(5):y(1)=y(5) 2720 if p(1)=6 then x(1)=x+20:y(1)=y+30 2730 for j=1 to p(1):pcircle x(j)-1,y(j)-38,3:next:color 1,1,1,0,0:return 2740 rem ################# wrfeln ######################### 2750 wuerfeln: 2760 bongo=0:sprung=1:randomize peek(&h468):for i=1 to 5 2770 if wurf(i)=0 then wurf(i)=int(rnd*6)+1:sprung=0 2780 next:if sprung=1 then return 2790 for i=1 to 4:for j=1 to 4 2800 if wurf(j+1)score(wi,15) then wi=sp 3270 next 3280 p(1)=1:gosub effekt:y(1)=15:gosub groesse:for i=1 to 10:color 1,1,1,1,1 3290 x(1)=430:y(1)=235:x(2)=635:y(2)=300:gosub recht:color 0:p(1)=2 3300 gosub mode:x(1)=450:p(1)=1:p(2)=1:p(3)=160:y(1)=265:t$="Sieger :" 3310 gosub text:y(1)=30:gosub groesse:y(1)=300:t$=spieler$(wi):gosub text 3320 for j=1 to 250:next 3330 next:p(2)=1:gosub mode:color 1,1,1,0,0:p(1)=0:gosub effekt:y(1)=13 3340 gosub groesse:return 3350 rem ################### Titelbild ####################### 3360 titel: 3370 p(1)=0:p(2)=0:gosub farbe:p(1)=1:p(2)=1000:gosub farbe:p(1)=2:gosub farbe 3380 p(1)=5:gosub effekt:y(1)=27:gosub groesse:x(1)=10:p(1)=1:p(2)=1:y(1)=24 3390 p(3)=170:t$="LEVEL 16":gosub text:t$="freigegeben ab 16 Bit":p(3)=200 3400 y(1)=8:gosub groesse:x(1)=180:gosub text:x(1)=400:y(1)=20:p(3)=120 3410 t$="prsentiert":gosub text 3420 restore 3610 3430 color 2,2,2,22,2 3440 read x(1),y(1),x(2),y(2) 3450 if x(1)=999 then 3470 3460 sound 1,15,1,9,2:sound 1,10:color 2,2,2,22,2:gosub rrecht:goto 3440 3470 p(1)=0:gosub effekt 3480 y(1)=6:gosub groesse:y(1)=372:x(1)=10:t$="written 1986 by":p(3)=150 3490 gosub text:y(1)=18:gosub groesse:p(1)=17:gosub effekt:p(1)=1:y(1)=395 3500 p(3)=590:t$="Sven Krppel, Linderner Str.29, 5138 Heinsberg":gosub text 3510 p(1)=0:gosub effekt:y(1)=13:gosub groesse 3520 x=0:i=1:wurf(i)=1:color 1,1,1,0,0:for y=320 to 80 step -40:y(1)=y:x(1)=0 3530 gosub wuerfel:gosub augen:wurf(i)=wurf(i)+1:if wurf(i)>6 then wurf(i)=1 3540 next:y=40:for x=0 to 520 step 40:x(1)=x:y(1)=40:gosub wuerfel:gosub augen 3550 wurf(i)=wurf(i)+1:if wurf(i)>6 then wurf(i)=1 3560 next:wurf(i)=6:y=320:for x=40 to 560 step 40:x(1)=x:y(1)=320 3570 gosub wuerfel:gosub augen:wurf(i)=wurf(i)-1:if wurf(i)<1 then wurf(i)=6 3580 next:x=560:for y=280 to 40 step -40:x(1)=560:y(1)=y:gosub wuerfel 3590 gosub augen:wurf(i)=wurf(i)-1:if wurf(i)<1 then wurf(i)=6 3600 next:return 3610 data 60,100,80,200,80,100,120,120,117,111,137,141,80,140,130,160 3620 data 127,150,150,190,80,180,130,200 3630 data 170,110,190,190,187,100,233,120,230,110,250,190,187,180,233,200 3640 data 270,100,290,200,290,120,310,160,310,140,330,180,330,100,350,200 3650 data 387,100,450,120,370,110,390,190,387,180,430,200,430,160,450,200 3660 data 410,140,450,160 3670 data 470,110,490,190,487,100,533,120,530,110,550,190,487,180,533,200 3680 data 999,999,999,999 3690 data 57344 , 36864 , 44032 , 20992 , 8448 , 8320 , 4160 , 2080 3700 data 1104 , 648 , 292 , 146 , 73 , 38 , 20 , 8 3710 data 0 , 24576 , 20480 , 11264 , 7680 , 7936 , 3968 , 1984 3720 data 928 , 368 , 216 , 108 , 54 , 24 , 8 , 0 3730 data 992 , 3096 , 4580 , 5060 , 5124 , 4772 , 5444 , 4772 3740 data 5444 , 4772 , 5444 , 4772 , 5444 , 4772 , 3096 , 992 3750 data 0 , 992 , 3096 , 3096 , 3064 , 3416 , 2744 , 3416 3760 data 2744 , 3416 , 2744 , 3416 , 2744 , 3416 , 992 , 0 3770 data 8,2,5,8,2,5,10,2,5,12,2,5,1,3,40,3,3,5,4,3,40,12,2,5,1,3,13,3,3,5 3780 data 4,3,13,9,3,5,8,3,13,1,3,5,4,3,13,8,3,5,7,3,50,6,3,4,4,3,4,1,3,4 3790 data 11,2,4,1,3,50 3800 data 1,4,15,11,3,5,8,3,13,6,3,5,4,3,13,1,3,5,7,3,13,7,3,13,7,3,13,7,3,13 3810 data 7,3,13,6,3,13,4,3,13,1,3,5,11,2,15,1,3,40,6,3,20,4,3,13,1,3,5,11,2,15 3820 data 1,3,40 .  to..  tRIPCORD PRGt pTWOGAM PRGt xRIPCORD DAT, /t` *O.|!*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVN./</</<bNb 3r0A0RA A m3./</<NP>N0<}rQa#N"?<?<?<#NN\34?<NNT3* @gJ @g ?</<p?<=NAP3|/<!/<t?9|?<?NA 2<G"|\""QB&|0(|@$|Pt68Qa.?<NTaa 3#0000ByByByByaa`aaaa\3L3 a#3#at3Jyg*#3#a@3Ry y f#3d3|aa`a`ByByByByBy33(3:aaaafa,a aJyf"aJygSy`#aJyfUyga |a`JyfR yoa F`aJyf Uyfa Ty ym` yna Fa(`^aJyf Uyfa bRy ym` a a`(3aH#(aa BJygR09yy`>33 ydn 3`yda#FaJyfaa 6JygaZaaxNuByByBya2a0aa:aNaa ypm yl y`m yl`Jyf3Bya`Jyf3Byafa`29ATygaaF9!gpB29A Agt Ag~ Ag Ag Ag` aRB29AT3ҹ"Ҽ8"A&I8<4<0<YQ"KQaNuBya(a`3aa`3a3x3h#aJNu3a3x3p#aNu#pna`6#na`&ah#^ra #nraa#fraaRNu/9r?< NA\Nu?<%NNTNuB?< NA\#&Nu/9&?< NA\NuNV>NN^NuNV>?9NTN^Nu0<aQNuNV>?9NTN^NuNV./</</<?9?9N0N^NuNV.?9?9?9N*\N^Nua B?<NATNuazB?<NAT fX``a?|&@3Nu?<NNTNu4<(2<QNuBB29,$|2$yp r $|2J29.I$|2r"B>9B<92222QQNuBB3.3329 |\3aJyf#daZNuBB3.3329 |\3a6Nu"<"y"""QNu"<"y"n""QNu"<?"y"s""QNuBB |T293 .333aNuBB |UH2<3.333ah |W@2<03.333xa: |[2<h3.333xa NuaBB |2<83X.33A3haJyfa`aaNuNV3 a.?<?9?9N*\N^Nua\NV3a3a#303ba3aH#323da~3a8#v3D3@aR#343Ha4#3P3aN^aTNuNV>?9NT.?<d?<d?9N*\.?<d?<?9N*\N^NuNV>?9NTN^NuNV>?9NTN^NuNV>?9NTN^Nu/9?< NN\Nu#tp3.3,333aNu#p3.3,333apNu#p3.3,333a4Nu#p3.3,333aNu#p3.3,333aNua"3NuNuNV./</< ?9N@ N^Nua29 yn Jy k3 Jyg:Sy`2 ym"Jy f3 ylRy`By Nual9!g33NuaJ9!gH333y6Jyf# aNuByBy0929Am@| An83QAAm$\AAnWA@f32#aV`Nuaj09 yH2<H H@0H@QL3#~aVJyg3#a8Nu?< NATJ@j?<?<NMX`Nua#^raT#:raFa6#fra4a`ahB&|0(|@t8QB@95?B@94??<#NN\a >NNPN^NuNV30.|Hм-@=|` nH2n2RRn nm.8N>B@09*N^NuNV### #*#V#^#8> aF3*a*pN^NuNV>MN n0, n 0. n00 n02B@09*N^NuNV3 # V>NNN^NuNV3 3 >By@3D3JN09N^NuNV3e>By@ByD3JNN^NuNV3 3 Bn nH|2n2RRnJ@f3>3@Sn3D3JNN^NuNV3{>By@ByD3JNN^NuNV## .мZ#3d>By@3 D n 3JN n 0J####N^NuNV3|>By@ByD3JN n 0 n0 n0N^NuNV3 3z>By@3D3JNN^NuNV3 3>By@3D3JN09N^NuNV3 3j>By@3D3JN09N^NuNVBy3 3 >3@ByD3JN 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;=@BD F0H@JPL`NpPR`bd f0h@jPl`npprtvxz|~                      $$$$$$$$((((((((,,,,,,,,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$  $                           . ,   &        ` o"h###,Oc.N//Bg?<JNA BbByN@2NV?<NNN^Nu/,HNVAV-HNJ@jD@?<r/<?Nw:Nx0. ?NwFNxp?NwFNzNw0=@0.N^,_ _TN/,HNVA6-HNnrNj?9nHyHyHyHyN]?9nHyHyHyHyN]09J@V09J@VCBdr?9?9?9?9HyHyHyHyNi@d?9?9?9?9NhBgNl?9?9?9?9Ne@?< Nm09@#?09@ ?CvO$OpQNbBgNm09@ ?09@?CO$O pQNb09@U?09@(?CO$OpQNb09@(?09@2?CO$OpQNb09@F?09@O$O!p QNb09@ ?09@?CO$OpQNb09@ ?09@?CO$OpQNb?9nHyHyHyHyN]`vNjNnN^?HyHyHyHyN]?9?9?9?9NhN^,_Nu$10.00 to the above address. or money order in the amount ofsource code, please send a cheque If you would like a copy of theUsed by permission of OSS.Portions copyright 1986, OSS & CCD.Public domain; you may make copies.Canada. K1C 3M5Gloucester, Ontario6053 Valley Field Crescentby David S. Lay written in OSS Personal PascalBox the Dragon & Mastermind/,HNVA0-H09nrAo?9nBgBgBgBgN_p3 N^,_Nu/,HNVA$-HNnrNj?9lHyHyHyHyN]?9lHyHyHyHyN]09J@V09J@VCBd`?9?9?9?9HyHyHyHyNi@d?9?9?9?9NhBgNl?9?9?9?9Ne@?< Nm09@Z?09@ ?CO$Op QNb09@b?09@?CHO$O p QNbBgNm09@ ?09@(?CO$O#p"QNb09@ ?09@2?CO$OpQNb09@ ?09@O$O#p"QNb09@ ?09@n?CO$O%p$QNb09@ ?09@x?CO$O"p!QNb09@ ?09@?C:O$O pQNb09@ ?09@?CO$O pQNb09@ ?09@?CO$OpQNb?9jHyHyHyHyN]`TNjNnN^?HyHyHyHyN]?9?9?9?9NhN^,_Nucolour in the wrong place.place, a white one for a correcteach correct colour in the rightYou will get a black indicator foron the selected spot then press againthen press the button. Put the pegmouse pointer over the desired colourpeated. To select a peg place theare five pegs and colours may be re-which the computer has picked. Thereout the pattern of coloured pegs The object of the game is to workInstructionsMastermind/,HNVA0-H09jrAo?9jBgBgBgBgN_p3N^,_Nu/,HNVA-H?< CO$OpQNJ#/9CdO$O pQNF3/9C.O$Op QNF3/9?9CO$OpQNI3/9?9CO$OpQNI3/9?9CbO$OpQNI3/9?9CJO$OpQNI3/9?9CO$OpQNI3/9?9CO$O pQNI3/9?9CO$O pQNI3/9?9CHO$O pQNI3/9?9?<NNB/9NON^,_Nu fast medium slow quit Mastermind; play instructions Box the Dragon; play Dragon Speed Options About the game /,HNVA|-HBg?<?<?<Nk?<BgBgBgNk?<?<BgBgNk?<Bg?<BgNk?<BgBg?<Nk?<BgBg?<Nk?<?<?<BgNk?<Bg?<BgNk?<?<?<?<Nk?< ?<?<?<Nk?< Bg?<?<Nk?< Bg?<?<Nk?< ?<Bg?<Nk?< ?<Bg?<Nk?<?<?<BgNk?<?<?<BgNkp38p3:p3p 3@p 3Bp3Dp3FN^,_Nu/,HNVA-H09429AArA81?<Nl0929AAY@30929AW@3Nnr?9?9?<?<NgRNnN^,_Nu/,HNVA-H09429AArA81?<Nl0929AAY@30929AW@3Nnr?9?9?<?<NgRNnN^,_Nu/,HNVA-H0.42. AAA8Bp?<Nlp3p3092.AA_@3092. A]@3Nnr?9?9?9?9Ne@NnN^,_ _XN/,HNVA-H0.42. AArA81?<Nlp3p3092.AA_@3092. A]@3Nnr?9?9?9?9Ne@NnN^,_ _XN/,HNVAH-HBn n(n6Bn nn"0.42.AAA8BpRn`Rn`N^,_Nu/,HNVA8-HNnrNj?9pHyHyHyHyN]09J@V09J@VCBd?9?9?9?9HyHyHyHyNi@d6?9?9?9?9Nh?<Nl?<Nl?9?9?9?9Ne@?<Nl?9?9?9?9Ne@p=@=y0.nnp=@=y0.nn0.42.AAA820`B?.?.N`L33N>`433N`SA AbA2;NRn`vRn`T?9pHyHyHyHyN]`NNnNj?9pHyHyHyHyN]?9?9?9?9NhN^,_Nu/,HNVAt-H?<?<?<?<p/?<BgBgBgBgBgBgBgBgBgHy|HyvHyvHyvHyHyHyvNob3z09zrAJ@gN^,_Nu/,HNVAr-HByx?9pHyHyHyHyN]N09]@rH309]@rH309@R@309R@30929’ytHA30929ytHA309rH=@p=@=n0.nnj09U@?N\R@=@09U@?NHR@=@0.42.AAA820JAf0.42.AArA81Rn`?9N3?9N309429AAA820JAf09429AArA81?9N3?9N309429AAA820JAW09yJ@jD@29yJAjDAAr A^CBd09429AArA813333N^,_Nu/,HNVA-H09@ =@09r Ao09@ =@`09y@=@pd=@p(=@09yW09yWCBdNnr?<Nl?.?.?.?.Ne@BgNl0.Z@?0.Z@?0.@?0.@?Ne@0.@?0.@?CO$OpQNbNnNNhN09J@fNnr?<Nl?.?.?.?.Ne@BgNl0.Z@?0.Z@?0.@?0.@?Ne@0.@?0.@?C2O$OpQNbNnNBNNN^,_NuYou win!Gotcha!/,HNVA-HNnrNj?9rHy(HyHyHyN]09(y3609y309(29tHA3.09(29tHA3*09*29tHA3,09rH3Z09.yZ30090yZ32092yZ340929t HA30929t HA309yr H3^09yrH3\?9rHnHnHnHnN]0.J@V0.J@VCBd.?9?9?9?9HnHnHnHnNi@d?.?.?.?.Nh?<Nl?<Nl?9(?9?9?9Ne@?9*?9?9.?9NdLp=@ nn:0.@A(?0?90.@A(?0?9NdLRn`Bn n n8092.^A=@?9*?.?9.?.NdLRn`Bn nnBn nnx0.@n3X092.RA\A=@0.X@=@09X@A8?0Nl0.@A(?0?.?9Z?9\Ne@Rn`Rn`l09rUH3b09^rH3`p=@=yt0.nn092.^A29^tHA=@p=@ nn09,2.49v#H…A=@0.2.AAAd20p@f ?.?.?9b?9`Ng`H0.2.AAAd20AA8?0Nl?.?.?9b?9`NgRRn`Lp=@ nn09*2.49v#H…A=@0.2.AAA20`P?<Nl?.?.?9b?9`NgR`@BgNl?.?.?9b?9`NgR`SA AbA2;NRn`NRn`T09y^=@p=@ nnJ09,2.49v#H…A=@?<Nl?.?.?9b?9`NgRRn`?9rHnHnHnHnN]`NjNn?9?9?9?9NhN^,_Nu/,HNVA-HByByp3?9pHyHyHyHyN]?<NnNp rArArA??<?<?<09H/?<?9?9?9?9BgBgBgBgBgHy|HyvHyvHyvHyHyHyvNob3z09zrAJ@V09|rAWCBdv09ypf N`^09yrf N`F09ynf NL`.09ylf N*`09yjfN 09zrAJ@gLByByBy09yP@rH309y^@rH309yop3`09yl p309yop3`09yl p309J@V09J@VCBd<09yJ@jD@29yJAjDAAo By`By09yrA]09yy^ÄC09yrA]ÄC09yy^ÄCBdByBy09J@V09J@VÄCBd09y309y309429AAA820`l?9?9N33p3N<`N09429AAA820p@W09yrA^C09yrA^C09y29RAA]C09y29RAA]CBd*09y309y3`T09429AAA820JAfb?9?9N?9?9N09y309y3?9?9Np3N` AbA2;N09zr AJ@V„yBdByp=@ nnp=@ nn09n309n309rA^09rA^C0929RAA]C0929RAA]CBd09429AAA820`P09R@309@A109@A1`2p 3=n=n` AbA2;NRn`Rn`09rAo09r Alb?9N3?9?9N0929AAp30929AAp3N`6?9?9N09n309n3NdN09zrAJ@V09yWÄCBdxBgNnNN^,_Nu/,HNVAj-Hp=@ n nVp=@ nn@0.2.AArAd10.2.AArA1Rn`Rn`N^,_Nu/,HNVA<-Hp=@ nn(0.@/?<Nф" SAA1Rn`N^,_Nu/,HNVA-H0.rAf8Nnr09 |r|Af?9nN^`N@Nn0. yf8Nnr09|r|Af?9lN^`NNn0. yf\09|r|Af?9rN^`6?9r?<?<(?<?<N_p3NJNp3t0. yfP09 |r|Af?9pN^`*?9p?<?<(?<?<N_p3 N0. yf8Nnr09|r|Af?9jN^`NFNn0. yfH/9?9?<NNB/9?9BgNNB/9?9BgNNB30. yfH/9?9?<NNB/9?9BgNNB/9?9BgNNBpd30. yfH/9?9?<NNB/9?9BgNNB/9?9BgNNBp 3N^,_ _XN/,HNVA-H?9?9?9?9?9N_09yrf?9rHy(HyHyHyN]09(y3609y309(29tHA3.09(29tHA3*09*29tHA3,09rH3Z09.yZ30090yZ32092yZ340929t HA30929t HA3`f?9pHyHyHyHyN]0929’ytHA30929ytHA3?9HyHyHyHyN]N^,_Nu/,HNVA-H09yhl 3h09yfl 3f?9?9?9?9?9N_09ypf.N09y_09y_CBdN?9HyHyHyHyN]N^,_Nu/,HNVA-H09y^=@p=@ nnb09,2.49v#H…A=@0.@A20AA8?0Nl?.?.?9b?9`NgRRn`N^,_Nu/,HNVA-Hp3p3p3 p3"09X@A83$Bn nn(0.@A&Bp0.@AFBpRn`3x&3(3*3,3.303x230H3xJ3xL3xN30PHyNn*N^,_Nu/,HNVA~-HByBnBnp=@ nn09t2.AAAd20p@fp3`,0.@29t4.BBAd40A10.@2.AA40A1Rn`x09@ep=@ nnR0.@A200.@Apf,0.R@=@0.@rA10.@rA1Rn`p=@ nnhp=@ nnR0.@A200.@Apf,0.R@=@0.@rA10.@rA1Rn`Rn`0929t^A29^tHA=@Nnr0.rAop=@=n0.ܰnnh09*2.49v#H…A=@?<Nl?.?.?9b?9`NgR09t2.AArA1Rn`0.rAop=@=n0.ܰnnn09*2.n49v#H…A=@BgNl?.?.?9b?9`NgR09t2.nAArA1Rn`0.rAf p 3t09tR@3t09tr Alz0929t^A29^tHA=@p=@ nn@09,2.49v#H…A=@?.?.?9b?9`NgRn``NNnN^,_Nu/,HNVA-Hp3X?9rHyHyHyHyN]?<NnN094y0=@09yy\=@09y\=@prArAr A?BgBgBgp/?<?9?9?9?9Bg?90?.?.?.Hy|HyvHyvHyvHnHnHyvNob3z09zrAJ@V09|rAWCBdv09ypf Nߦ`^09yrf N`F09ynf N`.09ylf N`09yjfN09zrAJ@gDprArA??<?<?<p/?<?9?9?9?9?<?90?.?.?.Hy|HyvHyvHyvHnHnHyvNob3z09zrAJ@g0.y2op3X`ByX0.29y\Al09XR@3X0.29y\y\Al09XR@3X0.29y\y\y\Al09XR@3XN09zrAJ@g0.y,^0.y.]C0.2969t^CA^C0.2969tSC^CA]C09XrA^CBdprAr A??<?<?<p/?<BgBgBgBg?<BgBgBgBgHy|HyvHyvHyvHnHnHyvNob3z09zrAJ@gp=@p=@ nnF09,2.49v#H…A29tFHA=@0.no=nRn`09t2.AAAd1X09,2.49v#H…A=@0929t^A29^tHA=@Nnr09X@A8?0Nl?.?.?9b?9`NgR?<NnNNnp3X0.y,^0.y.]C0.2969t^CA^C0.2969tSC^CA]C09XrA^CBeprAr A??<?<?<p2/?<?9?9?9?9Bg?90?.?.?.Hy|HyvHyvHyvHnHnHyvNob3z09zrAJ@V09XrA^CBdp3X?<NnN09zrAJ@V09XrAWCBdN`09tr Af|pr A??<?<?<0<:H/?<BgBgBgBg?<BgBgBgBgHy|HyvHyvHyvHnHnHyvNob3zNFp3tNN^09zrAJ@V09yWÄCBdBgNnNN^,_NuA0B1|Al01|A #NrJ@kp3tN^BgHyHyHyHyN]?9?9?9?9NhHyvHyvHyhHyfNpX09h3h09f 3fBgNnNprArAr A3CEpQ?9HyBgBgBgBgN`3p?9pBg?<?<?<N_p3 CHE p Q?9HyBgBgBgBgN`3r?9r?<?<(?<?<N_p3CEpQprA?HyBgBgBgBgN`3nCEBpQprA?HyBBgBgBgBgN`3lC>EpQprA?HyBgBgBgBgN`3jNN>By ByBypd3NЈNpN^?HyHyHyHyN]prA?BgBgBgp/Bg?9?9?9?9BgBgBgBgBgHy|HyHyvHyvHyHyHyvNob3z09zrAJ@g09|`r?9N^?9HyHyHyHyN]`z09ypf Nְ`^09yrf Nݾ`F09ynf N`.09ylf N`09yjfN`N`N`?9N_09ypf By `f09ynf By `L09ylf By`209yjf By`09yrfBy`d?9?9Nb/9?9NP`>@ @b2@0;N&&&&&&&&&z6&&&&&.09zrAJ@g.N^ypf N<`N^yrfN>09yf^?9rNa?9pNa/9NPNs,HylNv$BgNA How to Play Mastermind How to Box the Dragon About the Game Mastermind Box the Dragon Nu/,HNVNTA-HBn"n0.-I"n0)n m"n$n0*R@3@"n0)n m"n$n0*R@3@"n0n m"n$n0R@2"n0.0)r AJ@f0.R@=@`f0.n m4"n0.R@$n0.p"Q0.S@=@`N^,_ _\N/,HNVNTA -H"n 0-I"n0)rAfpT@=@`"n0)R@=@/. ?.N"n 0.-I"nBi"nBi"np. 3@"n3|"np 3@"np2"np3@"np3@"nBi"nBi "nB /. ?<?.NX/. ?.NX/. ?.A O"Op?"QBgBgNSpT@=@"n 0.Bi"n 0.=Q0.rAg@"n 0.$n 0.0*$n 2.j3@=n`"n $n 0.0*$n 2.j3@D/. "n ?)?<?<BgBgBgBg?<?<NW=@/. ?.NX"n 0.$n 0.0*$n 2.j3@=n0.N^,_ _ON/,HNVNTA-Hp=@0. U@S@=@"n$n0*=i0.rAo 0.S@=@"n0.=Q`/.?.?<BgBgp. ??<BgBgBgNW=@/.?.A O"Op?"QBgBgNS"n0.=iBn0.ng 0.R@=@"n0.=Q`"n0.3n/.?.NX"n0.0)"n2.io$"n0.$n0.3j"n0.=i"n0.$n0.3j"n0.3n=n0.N^,_ _ON/,HNVNTA-Hp@n =@?.NU-@/.?=@/.?.CO$OpQN=@/.?.CO$OpQN=@/.?.ClO$OpQN=@/.?.C2O$OpQN=@-n .N^,_ _ON Desk Accessory 6 Desk Accessory 5 Desk Accessory 4 Desk Accessory 3 Desk Accessory 2 Desk Accessory 1 -------------------- Desk /,HNVNTA-H/. NV\N^,_ _XNNu/,HNVtNTA8-H=n0. rA=@-nx?<HnHnHnxHntNtfN^,_ _PN/,HNVtNTA2-H=n p=@-nx?< HnHnHnxHntNtfN^,_ _\N/,HNVtNTA0-H=n Bn-nx?< HnHnHnxHntNtfN^,_ _\N/,HNVNTA*-H/.?. A O"Op?"QBgBgNSN^,_ _ON/,HNVnNTAL-H"n $n p*R@r=n"n / Nv-@r?<#HnHnzHnrHnnNtf0.N^,_ _\NNu/,HNVxNTp=@-n |?<HnHnHn|HnxNtfN^,_ _XN/,HNVxNTBn-n |?<HnHnHn|HnxNtfN^,_ _XN/,HNVxNT=n Bn-n|?<!HnHnHn|HnxNtfN^,_ _\N/,HNVxNT=n p=@-n|?<!HnHnHn|HnxNtfN^,_ _\NNu/,HNVtNTAV-H=n=n=n=n=n=n=n=n=n ?<3HnHnHnxHntNtfN^,_ _ON/,HNVnNTA@-H0. J@jBn =n -nr?<2HnHnzHnrHnnNtf=nz0.N^,_ _\N/,HNVNTAp-H/.BgHnHnHnHnN[NBgBgBgBgBg?.?.?.?.N/.Bg?<?.?.?.?.NY=n<-n$?<HnHnHnHnNtf=n"n2"n2"n2"n 2"n 2"n20.N^,_ _O3|NAXNuHp`:Hp`.Hp`"Hp`Hp` Hp _/fJ/ gLJ/kJ`L/ fJkB`</jJk2`,gbJk&` Jk`"eb// ebr`r`rAV ?/LNuHv` Hv _ `Hv` Hv _0HJ[fBBg`,j Dj4<` 4<ЀkSB`Jf].B/BJg 2/.?o /@?A /LNuHv` Hv _ [2Jkp`&4<cH@j JgR@kJ@kJgD@?/LNuHv` Hv _ [2Jkp`$4<cd JgRkJk~JgD//LNuJ/ goNuNuH _?///` H _0/2// Jv/ 8://N~/DD?DBoJgJgC|k?>BGHGv8ބdRC8ބdRC>HGvކdRC8ބdRCHGv48ބBޅB:>HG8ކkE߇SDkBg|d RdRDUJg( DbRD ME \/LNuBBo `H _0/2// v/ 8://~/?DD?DBo 8JgJgG|HD8H@0zr)`рe efef<څ߇QgRCgڼd RGdSCJCkD|blo/EC \/LNuoH _p2/g/ f/W?o `ֲ@e:f$/&e&f // d*B6//J/ k`(&// S@Q`&// `R"/?/[4JfFӃddRdRR/eJd RdRd`/AG o Jk`z0H*kS/JkFft grkRBjIHA~`( dtHAI.kRBҁjBG` BBRBӁj/e2/AG o Jk\/LNuH _0 @&b(C|C/)?/LNuHy}`Hy}LNs Hz@CPt$> nk(:C@hԥ*5 c_1ɿ1.Ź^ k:v #-xŬX&x2n)h? SYQa@%oNˏ'?9x!7I|o|@Eŭ+E75vV 9@{pvP *** Floating point overflow *** *** Floating point division by zero *** Nu# _ ged 9NHy `HyNst`t _"_0gR@| e.G$S" ghjebb"*f&"`v&A%S"`l&J`ذ|gb*|f8"9g0$A#`""9g$A#`"9g $A#"`"E&R"$b HyNsJgr"QHd2S@k"QN _"_0" ged gR@ @mz @ e@E"fB3@B$`\&A2+@ef "'I`F"3@B$`8$K`ư|f"#` |f"#` "#NHeap overruns stackPointer NILPointer not in heap _ hNVf 0(gr"OD@Hd2S@k "Q` _"ye HyNsN#L#H .f -|`-| nNнHf yLNStack overruns heapH?P _z gBjDRE"g8jDRE$6HBJBg8HAJAf,HBJBf$ւi EdD.` $HB8`B/L?PNu0NvDNHP|` HP| _z f0NjDRE"g`jDREdJgR(`DfxJg<`DxSDbb JgHA8`"tcRЀ`xeWJg(MdD.`B/LPNu09Nu _3NByNu[3][][ Abort ]Copyright 1986, CCD and OSS, Inc. ,:  *    " " " " " " "  " " " " " "     " " " " " " " " " " " " "     " " " " " " " " " " " " " " 6     ,2L,     $ 8 F$   ($          *0 *08      2     " $  $ 2    "                 $ &    >    NR2                    $* 4"    (0         H& *    4 B            "      F p$Z(d ($&$:42,0&$*,X<"$>,$8(l*lrh\,&D0T>0,8&&,F.:FFFF*@4n(>2020nD(."F<"..ZJ"4\ZBBL:\  @@(&.$@$$2$*|4$&&$$6  LD"2 T &( 0&  >        L z  f H F  J  <   , Fz V  HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHk 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 ] bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbk File Options Dr Doodle Info...-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Load... Save Quit Save As... Abandon Erase Picture Pen/Eraser Selection...--------------------------Dr DoodleGEM Sample ApplicationAuthors-------Tom RolanderOkVersion 1.1 Marc$ = 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````````````````````````````````.  t..  tISCORE t TB PRGt ZTIMELORDHS t !.  t..  tSTERM TOS t " `|\*O.|*m - ЭЭм// ??<JNA N/<NA"/0<NBNu CUBITS:YOU'RE A SHADOW MEGLOS THE MERCILESS 173492GRAZNO DARKSTON 119361A4FAST EDDIE 58890 GTHE KEEPER OF THE <> 3940dyCAPTAIN DELTA 1480STING 340T b==================== 0==================== 04==================== 0G==================== 0y==================== 0==================== 0OCONGRATULATIONS, PLAYER _ONEO! YOUR NAME?OCONGRATULATIONS, PLAYER _TWOO! YOUR NAME??PRESS ANY KEY TO CONTINUEPRESS SPACEBAR...END OF ADVENTURE!! (1A)  TIMELORD.HS! z J *J  j   :N|:N,E,9|a#a.yByBy3a.ya%`.y3a aja4aRa1.yaaa/3`aa ajaa a@a.Fa,a,xa("aa0|a0a"a NX |$"Pg/N _X`#^aa,A4Naa*N!#~aaTazAVNa4 aN!aara/" yg9USyyf"MU><KppQ`a|a.aDaNaJagCE;e8<b0fJRQQ0RgJyg`3a3`<g`<1fByNu<2f,3Nu"y4A0LpAr/ ""Q"_QNu"y4AUl`par/ ""Q"_QNu"y4AjpFr/ ""Q"_QNu"y4Aq<pFr/ ""Q"_QNuA3%>9 p2<NA>9 p2<NN$  L~>Aa| pNNua"y4 y8><LH QNur y4"y80<QQNr y4"y80<QQNr y4"y80<QQN3(3(*aSy*fap y(3*aSy*faUy(fN~ <<8By(3*a\aXaT09* y4"y829(H""""QLQRy(y*|HQNu~ <)"i| GRGO|aJ"_$_JRkF0*"i|o8yzl02*$i|o"y|l,jV(jZ*y4/ a"_$IGU3>(JSkh0+j|oZyzlR2+ j|oDy|l<(k&,k*>+Ok k"0pjBk`HOO*y4aBk2Rk28Sy(jNuA>| GRGOJ@jA`y~mA|JAj<XFDAIIBA`yo <y|DF|HIAIANNu"| |NSF "$&0246( 8:HE:-ʄ;EHE::HE:-ʄ;EHE::HE:-ʄ;EHE::HE:-ʄ;EHE:QNu"| |NSF "$&0246( 8:HEʄHE::HEʄHE::HEʄHE::HEʄHE:QNuPM"|NSF0246( 8hijk:D@::DA::DB::DC:QNu# a g# <Pg<pf2AvNaBa>a ,a ް< fAN`<qgL<QgDBABBHfRBPfSBKfSAMfRA6BgaJnJgSnJ3jByl .*g3j yfByl0..=@0"."-A&4HAA|=B229jkBH@AJp/=|anaNuzXO0.n.f n0fBn2Nu=n.=n0JnkJn2g-n0..H {NJn*fJn,fSn a0.Ln,jSnXn,n$=n.NuJn,fJn*fSna0.Ln*jSnXn*n"=n.NuJn*fVJn,fRn a\0.Ln, n,fRnYn,n$=n.NuJn,fJn*fRna$0.Ln* n*fRnYn*n"=n.Nu0.H2. IAc@004j|JCR|41 <oe,<yg(<xgT<tgx<|d<p./fN8NuJnfJnBf|RnBSyJ|@1n8xahNuJnBgRSnBSyJ|@1n8xa>NuJ|@1y 09n8|F3Ry89|aNuH*NaLNupyaa=D --@-@=| =| 4=|6N,JnkVJ*fP0.H2.IAc@004j|JCR|41 6[||g|g<zg<{g,NuRn81@pNRy yfB@`Nu09|dD@3Zn81@pNRy yfB@`BNu?a0H|HER-n"&=|H22=AI=A"22=AI=A$NuH| ES.0293##ER22fS2N0."nyo$yl40.$nyoXylf`0.&n"gڰ|g԰|g`0.&n"g°|g|gnjBn`09nnl=@`0.(n$|g8|g2`0.(n$|g"|gnjBn`09pnl=@0.2H=@N|=AR40.2H=@P|=ATAf"0.H.2.hvjgTA|?=Ah=j0."n|H2.$nIAIA=@^Rn:n:Jn2fBn:2..In:AlJngAB@0jBn:`H nd-HZH n`-HVNu    NuJyTgJyU<K5pHE>pQ=pahNRy yfByJygSy 9#RpJyfp y ep29@faNuNu | aj | ajaNu3"<AUaja09ajaadNuA abjaNu3"<AUaja09a\jaMU*<}><6p>HEpQ3Nu?< NATONu?</?<=NAPOJ@NuBg/?<NAXOJ@Nu//??<@NA J@Nu//??<?NA J@Nup yCE&Ty yfBy2j2(DA4IBI3rQJyU:j3pRyU:JyUj3WRyUJyg$Sy yb 9g3`By#ZNu?<?<NMXOJ@fNu?<?<NMXOJNu?<>a 8QNuC9|A,29p a2CEA,29paNup333333333A49f 0 JMp,v H3ri32PP| I3,3<34I#*na~## ### nCT(B@kR2B@BAaa23AB@BAaa3@3AQb423Bib 4)3A3BPI`ahaava y|<9g.CPa3AP3tRyaXSy y,9CPa^3APCSG"Q y|<9g(CPa*33AP3ya y|<9gCPaAP3xaBGMTa~MUha4NuCcSG0H2I@09aQNuBG$IdHa2(Ha2RGJgTHN%5GNu.DH3.EH3F.GHIA^#AH#Ah#AcBGBF0|fMaRFyeRGyeNu0aH2a$IAMUB0NuJyg yR@D@NuJyg yRADANu6989SCSDBGBFaRFCoRGDoNuAc0H2IAJPgpC'LpBBJ220g|QJGf|Df| JFf|Cf| a2 |fJhgt PKa|J@3 Hy0Nu6989SCSDBGBFaRFCoRGDoNuAc0H2IAJPfaap|3y@NuGT(2keke kbkc `GE',2BA3|fE'<3Nu@-/ 9'"#'"NuJyg(a.29|g|g|g |fY@NuS@NuJyga49|g|fSANuJyg|qf3s|sf3qJyg|rf3p|pf3rNu y3B@|fNu|f`29ygҰ|@e3|fa\N(Cca8HBAa:I@09|g^|g|gް|pe|sb a N(@Ev0gRyg\JN)z$j0g82N)p:ar=D=ELM=D=E =y/a _/ yfX5XXM`=| 4`ER890|@1LHHa!|`!|d1|F a$AU<1y>!|`!|d1|! !| !|0BBh8Bh@BhF1| 41|LBhHNu |r,t,~Jyg |r$t~3v3x3T3T3U>3U@3U09vH3z3~Yy~|3309xH3|3YyG33Yy09HA3n09HB3pNu0<7B6QSVSn6Sn NuMV\JVk 8QXONuA49J00 20 JRByeBB3Nupy yfpaaa~ yb~#=G4=@=AHI=@=A ab|=@|=@H@| y09|H0H=@0.A0"|H-I&"|H-I*=X00H"|-I"=X a|=X."Jyf( ne yb¼UUUU yb¼(-A0.HnnAc nfJngTH nf Jng-HNuMU~?Jnk./f n2eaB`Sn4jRn4"9®g ybJn4frByJf./gaJ@k=@`a nerfjRy<.9gNAUaP=G=m.-m-m"-m*=| =G6aNuMUKT~aMcDKU<~JngIV\<<:Jlg le0.ljD@|n0. l jD@|n/9g40.g|gJlf`Jlf 9@NaNHajLp`fVm83*9|?,0NaN0 l"09|)D9| BlBlBl.9g HNa6LppN9g n`a`8Q8QNu3( y**N09*g|gJmfH`Jmf@pyaa=y*-m-m-m=| =|6=|a8Ry*y*Sy(jNuIU<>Jnk@<.|e|e0r|g|fSA0-"njD@Ab0-$n jD@Ac 8QNuJyg.Ry896 n8|=Dav=| BnNupTgpnf n b;|HapL`ajpNJmg;|(JNuSm4j~;|JmBgSmBRlBJTgNu+|`+|Nd0-2-|  A%Npyaa-m-m-m=|a=| BnNua(fNuHGR|81:|J@<9B@` sgT@Q7RyH1A:NC:NEG,H|@M:|@LĚ|pMz02@Y62@Y62@Y62@Y6QLNuH1LNuMTa MU29U@JyU< 0h|88x<|??<<<|??<<x8xxppxxxxN~~N@@@@``PP(88(DllDXX 00 @ ` @ `@ >|@@~~@@~~>|?@@=d"; 3 8p????~ރ|^3H^|^?~ރ|^?@@?` yy IxzWhyt ;Krzpyyy{xxx{ބ!{J^{{ބ!{xxHx>? ?@ϔk@@8?`3<?q}@0?_?_?-\P* ^P WWWW{ބ!{J^{{ބ!{\}|#h>?xp( xx88{ބ!{J^{{ބ!{hxpxx88{ބ!{J^{{ބ!{0RT8 zb< r*p\@n4L|^@ <0? x`` ?>@2s@"c7" >}H H  qr. vr0@D9@8F8< 0u1c]|we9tċ+1%'c ~F Zb@ ȠP" I`BGV407e B0 8 T.T@@! ?B?:%% "0@\? 4|gYf`as p ~ =x' -_ p`{8-|`Hq0D9dt0~9q@h P{`3`0p??'?-_q`{8-|`K3Ddtߋ0~ρ9q@h P{`3|0@ ]߳.]ѻ]9]߿@  ? ?!81{B=B@@0_PP1____@@GTTW0Ϗߟ0p|~? O@@ 0 O@@ ?Ͽ@1@q@@PPPϫT1ΫT1TκE1Tp1BϠ@1N_P_θ@1Th1? `'X /P(+(   0@q Ϗߟ0p 0p@ Ϗߟ0p   @@  20? >? ?Xj`F` Q'#H .*8?  #C@@ TTTTPTD+`T(*U)+?( 4`   TTϫT1ΫT1PTDUTTίP1TDTTT+((,( 8)~+T(+(ίP1TDTTTTTPTD+T(+(+(   0pD ?@p`obߗJʀ0hukii>ATUTj*U**t*T*Y SP ? @Og@W 移( @HeDPU$j@(Tl%JrY*$uڡ%8;G O  @o@OWW PsPS(Uj@T B<??'?-_q`{8-|`K3Ddtߋ0~ρ9q@h P{`3|0{V~b{ |}||ju44J@?޿o[{U~uAv $^~0``?wp~~z<@߼{u|>~|x<|~~|o] @@||f ~|<?DH?w@*|>z?@???__y__ooxf ggK k+@kimu-v-9IM|ol}}|l}~~x¶ ||~ @_ffzNW"k$$I/L2_#o>@@~@w+@#}He u*Ǡ@ J 26aF>8~}<5JH޿}p~x| 'AXV~^O߿_ ~~@z|~j,ǀ$HG " >~~p\߅x>AKr4N^z?~4~@~t ~j$Ǭ&LJH $+H~~~ MDスN^~?z~~mǬ&Ňo$(k>@>(~? @MD<}mmE(m%@ekkx)-̓tHi3%/@  @   x|>mzmI$mE e+@ky%-IMxZ M @mi@mE e+@k-|-=IM|~ _emI$m%@ekk}--EMx@~ I$meme@e+@k}-t-EtMt~ wim}`}`ky`-`-x ~ $` M0ME0Esc^c=%L%EJ4E­@(V m@mimee+@k~%-I!MlǩD.m@- )@>5>=QM> }]8"98D@{?O_0 4p ћϟm ϣt7 gкAsus B ϞwwY&(itc iY yPP|i+w M@w@w @B/m |#sO PQ/i %b ͎``7HP*Rކ`!aB s PQ/i %c ͏``7PP``_#o>@@~@w/@ }Oo u*Ǡ@ J 27aG>9}<5JH8888~|o] @@||f ~<?DH?w@*????????  ?????mm>cc9;9^^`g`ffl<l 9 9 BpBANDIT 1'S BANDIT 2'S CONTROLLER:CONTROLLER: (FOR TWO PLAYER GAME)! PRESS F1 & F2 TO CHANGE CONTROLLERSPRESS "1+ OR "2+ TO START THE ADVENTURE KEYBOARD JOYSTICK 1JOYSTICK 2 MOUSE ? 6ii(   ;:xA6/(Nu1|1|1|1|32Nu1|1|1| 1|32Nu1|1|1| 1|32Nu1|1|1|1|| 32NuH pa 32Nu@|<g.<f<?9<``FNuHA6Jhk,Shf1|Sh hnBhBhhh Jhk,Shf1|Sh hnBhBhhh Jhk,Shf1| Sh hnBhBhhh Jhk4Shf"1hRhSh hn ShBhBhhh JhkD0(|~ PPpp?` I_   @ @5@@"-<   @  @  @ ` `  7'304" H ```  `@  @ @@  ` @ @ @@@:oUw<#gbfD`C `(  `( `p@ @ @ @@ < p00   @``@@@@   @ oh <@@    @  @( 8 @0 @ @``  @ @ < p00@@ `@ `@`Pp  13xac D @( ` (   @`0p0x@@ `"`< @@ `@`@  @ 0 -` y{0  @ (8 @ `"`<   `0x@@` @@ @@      @ ` `  @  @ @@@@@@   @ / @( (@,0,P 0    5 5A>@pPPXpX?`6I      @ )@! @ ,     @@@@@`` @ @ @  `  ( '3 P3P$@@ @`   @ @``P  @ @@ `  @    @ *@*"oU"D<#D cdG@c`!@ @ @ @(@ @`` @   @@ @ < p00       `X`@@   @@   @@ ! h <@@   @ @( p0@@   `X`    @ @ < p00@@ @@@@@ @ @  P  H1"Hzab   @  `(  @ @0@    x@``@@@@ @"`7  @@@@@@ @ @ ``@ @@@@@`@0`-@b`yb@ppPP@@ @PP(0 @ @@@@`"`7  ``   ``@@@ @    x@@`@ @ @@@@@@@@````  @@@@ ((((((((((((@@@@ @ @ @ @ @ @ @ @@@@@@@@@ 1 1 1 1 @@@@Бpppp@@@@@@@@@@@@@@@@ @ @ @ @, , , , """"@@@@@@@@@@@@@@@@@@@@@@@@```` P P P P(((((((((((((((()()()()( @@@@@@@@````     P P P P p p p p @@@@ @@@@ HHHHTTTTĔf@f@f@f@    PPPP$P$P$P$Pxxxx@@@@ ppppHHHHpppp@@@@@@@@ @ @ @ @@@@@     @@@@        @ @ @ @ @@@@@@@@ 8888    $P$P$P$Pxxxx@@@@@@@@ dHdHdHdHtttt %@%@%@%@) ) ) ) ((((xxxx@@@@@@@@@@@@    9999J J J J ;;;; @ @ @ @@@@@@@@@@@@@@@@@  @ @ @ @@@@@ @@@@@@@@@@@@ @ @ @ @pppp "@"@"@"@% % % % ((((x`x`x`x`@@@@@@@ |@@@@|@@@@8801>``@@1``>`Kx(T*xx(Tx+*T+H*@@@@@@@@44**^ TTTT 66$$JJ^J@@@@@@@@,,{{!!TTzPg@g@w@g@****00ll$$RRzReeue((((**@++  pp @00@@@@@ h ( `hM55 HwH  h (3X1XLL@`` l 'v#6^ZZ֥+?ة}rm] sT7p7p*+)^WV;j~:g/8j|0@ @ 0(6H&XHJd2QQ[IjN$9*j.DWv`dV:3` `` hl"BHL@) !)HD"r T@VT@@()" E(H8jD   @0XPAQ  F BB TF !DD "@ @ @@ `@@@@ `@@  @@ @ @@ @@@@@@@ ```` @P   @   @   8 8z88 $`bx(z(y@PT$@.RZ (p0B8R0 023 ~x~F~Fpp3;;Cbb&AaaF80 8h 0x~x~F~Fxx#;;Cbb&AAAB@`` 0 0 ~x~F~Fxx#;;Cbb&aAaF`@``@`P`p(0 8 ~x~F~Fxx#;;Cbb&AAAB@`` 0 0  @ @@H(  hh&84 *JD::C   \r ((d aii .y8:;   " $$$<  " D22 D((8 :N11P((h&PP ((@@@  I0ppt``@\ `@ @ C D++$YHYH`$$pp<@@@@@@ PPD "LL"HH`!!?@ @/@ `ss 0 @@@ @@@@@@     ``   @@@  ` ` @@  ``   33----         ""8FF<<``@@@@//    00    @@ @ @ __@C< | | ``@@@@@@@@ ` ` __@G8xx   00   __@@0@@`ePe"R &+ Q\VC."al? 0^:px,gށ! bR"  !@@@@ T,$+ \VC."a<*/<B ]VR*#`4,+ X X@=P=PP_h. Y`Q^` [a^h$9&@@@" @=P=P^Q!ԽL<<Cb|R.| L4<C`nQ<#P@@@"  T//  __ p pp?T?T  T8 $$ $XxXX7?07 00p??@p1? p00`` ==?>? ?? ????8? 8?0 p p 00L|00L|00`` x0   p `()0!CCLxO` @0p 8?==??@?X?????8? 8?77@wH@ssǀ@@@@`3.0"a0a}Z@0Xpt0t0pp??@p1?7?7o`o?`?߀/ ``WGqck?? 0``  L Lp   x`0???<<?8`8`=8@8@8@&8(?(@0d?  008888??@??  ?x8??@ <|||~x???@ 88@xx~8???   00888??@?? ~x`?? @ <|||xp`??@ @88xxpp``??@??@  8>@ @ ??? |~@>>@? ??  ??@>@? ? ?  8>??@>??@????  ? |~>>??@????? ? ?>??@???  @`??n.hql]]cs֏wLLIdv~2=? @`??n.hql]]cs֏LLdZe= >?@`??~6 wpoto{`|$;{>x= @`??~6 wpoto{`p@;{>L= @`??kT+Hw[`[l gz{t džhvXf8~}L}L*j?p4x @`?P5X*j}l}l~8Xvhvr{|@ǎ[`[l@gkD+Xw?p}Au@4 # # # # # # # # # # # # # # # #CASTLE GREYMOON "2&/+ (%*&/%*-$4-9=)5$=*',."  "),.260.  2+(*5&'21 2 2#'/$  *-(2'&;&$/$2(/9,3$." (.-(5.?3!""!//    ! )),/)4)1,.,3,    )1) ,,C2&/+%*.&/%*-$4-9=)5$=*',."  "),.260D " (-(q 0s0%%$#$>#$>/<'ln$#>#>/m 3'$ 1 $ +2 '/ "2$,;;;c0l>0l#%$l#&n&&n&#=$l#c/n//m/""73l3" -l-91;/8+;/7+;/8);28-;251;221;2>28112810081)181+(+&9-8**-8*7(41++41*+(1C<)191>2*)+)*+++)-*-+--1510010200111210212227)8)7+8+7-8-9-\G?L\G Ȅ??w?p?7Cw7 }8w77####  C# #C  @@"B (@ HFm@HBD@HBD@~m@ (@ }OA8 @A?/)T ???@@# # $!-"!!-.$$****))))SECRET SLIME PIT  ;40 ,=($$( +47:=>"&<,"'& = '/4 070+ .    ??      $'hD C ;40 ,=($$( +47:=ml>n9>=m. l84n"=. -8""943sq   3 +8CUD8CU\8?U\!~U][!UT!߀[UP;UAU;T{Q/A x6 x6 }x6 x x6 x>n=?{:ۢЪި+¿ڀһ֐ҷnօHۢՀ6A"]nE"!`/h˵ =@??x  .%%%%%&&'%%%&''()%&''''))%&'()))*OLD BOMB FACTORY   # (**+   (%*      %  %  -rp  q  s  h&  p@rpq 0rr  j       i+%'&')  )  %  '  (  *  &  *)'(&&)*(*(&&'()(+ **%%%%!**%%%%"**%%%%D   # (**+  !@!@@!@!BB!@!@!@!BB!@!@@!o!!7z@!7 ! DAAߡpЁāŁ +%?xx qq@@+++MAJOR HAZARD5 23 6 >131;>>$ ' "#8!>'.).!))9960.#) 8>.""" 0!9/..="??>h>B5 23 6 >131;>>$ ' "#8!>'.).!))99}>/91=1}#$'}>==>7;4999 78< ; 348 7.8 :.80 ; 7 348%/<(( (  ) )$'$0".+0++++  )$'/",*% 3`,77}3@!@!@@!@@!@"@@@!@@!@@!@!@@@}@>  0     >           03331144111444221442254522555555SHADOWLAND  @              {r     0 3 1 4 2 4 2  5 2 5 @ ]] D ] @ ] `D _ ннЀнЁ݀ݹ @нЌppпЀ@g`w@C20`0@pwW7fD@wpw@C!2C0@wpw@C "3E@wpw@C "E@wpw@C C0@wpw@CEP@1""21@@22222222222  2DDDD333333333333DDDD333333333333DDDD0'WupppPwwwwgWG77Gg#EfgfW5#&'&        2:J BB@L4I RI$bWWUUUUWWWUUUUW\UUUU\\\ UUUU\UUUU\\aUUUUawwwwar%UUUUr%wwwwvUUUUvUUUUvwwwwvwwwwvv UUUU  wwww  wwww$  UUUU$  wwww$  $ !UUUU$ !wwww$ !`@ @ @ @ `@ lH$H$U***U*PPP0 x | 0    00  0,PX"lH$H$`@ @`@  @ @|8DDD|00~|~|8 ~|@@@@XD8|    |88DD8||8D4r`@ `@ `@ `@ @   Q AA( 0@@`| r  p >|dDD>b @@ b> DDHpp@p@@>b @L$b2DD|DD    HpBDHP PHD@@@@@HdDDDDpHDDDD8l(DD(l8|@@8l(DD$`8pHD  0  $DDDDD8|DDDHP`DDDDdHBH$ D(DDDD|88  @ |@ @ @ @ @ `@ `L D `0 D[ L`@kD `@@ d@ (8D H "@@"x0         ,PX"@ H$$@`@ @~|`@  @ @,VBBB b<088D ~8D((H|rL@p @ L V(B$B0<88  @@@ @p  @ p@  @ ` p3@   `p@  zX "{\@pxx ! X:? @ @ 4H@# H 5HA`ApV`h> 0( 2 V2&&v{{@ @ \ b %Mڒ$AAp%B%BJJOGH p I6III؎q&    !`!pP/PBB'| _00;   ;\@pA>@?@8P< 0    x@   XBXBp0  @`4 XX||  0 0aVp+ pp  !R00H  g`|` g`YI@@0#Aܢp50 `W`(P5T g` @8g`o`P5pP`Pg @`{8  W(P` W($Q` 0 B^BpN@\@0G80@x8:  g`? 0g&c `pqX2`̓pp`g`[$W(P0LdD;DpR0pP \@G8@  9 D  g`l+%X `pHHC9C}pE0`g`9G8@:,$V(P\@pp8aǂ~pBpW(Pc  g` eG8@p0CpCN @`g`0  W(P 'X `pP8bÁ?p!P\@G8@b@G8@G8@pN@B8B^pP)p(W(P0 g`  O0H\@pP8pOѰ.A`'X f@  G8@   #\ `ppa@/pЀ(CP@W(P0X  J5JqN@8sx`g`b@O@||!R!R` v  `B8B0hHH< W(P~>u < 8x`x'X   ,@@z`ZHH8a @G8@|\l ^¸!@ W(PX `)(L03D8C8@$l Ӏ,/P hph-P   x_ @+T^ @?@<?@@?22((LLqq11)K)KmmRR??? JIJ@@RRJ@JG||| J JЀЀJJ@@RRBB JJJ %%zz((PPssAA IKK i i p((VV  JKJ@@PP@@@GHHTT((R((PQ  J J@@PPJPJP ?;;TTꄘB3 $ `HJ@D `JJ011P@D@7P@1 P@A1A S c xA$$lH1y gB @IAH$$=AI$`y$H A$ H7 I-'̀  `%%gX 6?I-?6?6!l#`83P1&>P1@Io P1G$=P<`v *v@@(Vש(DD8@@@0@@+@30,AP W2Yƀ8 T""A> A  ~@1>  @@aP9A@X07  @@0aD  4@Y0AfɄ4H8e02`182@@ 100` 0@ @10 $dA90@@$d*1@@@k 0pk*k*`pJJ</`Ap~@ 8  FÁ8 FF`z`:OK( @85 5Pu PT@%$ 'UU@@8hhs ` l O0@O0@ zK )8<@O 0Fͅ Gj``p+T"ɉbd60~X@2I 6A `& @`4- R! b`60aLL3@ua`& X]@ML1@ b`(``, Q =``& [@L 0@y@b`(X`@0,P 8`& X`@4 p?@ *T`(;` L0@pX& + P2sp@,P 0 (=6H< p 8@`,  @,," "PP*6@&L*[0" "R$"S22((LL)K)KmmRR J JЀЀ%%zz((PPi i p((VV((R((PQ B3 $ `HJ@D `@D@@AA$$lHAH$ A$ H  `%%gX!l#`8ggss)$)$)$)$!!==$$ $ $$ $0tts s(x ;X!c0pH60H a$~ iH$H a'I$8@yd aHnPHqlPd#cl#`p8 ` `@E@pp@??=!19!5!110?0 00000 `0 00 F90 90 0 0A19`3p1`p ``"@`@2 (Fn, " + (G!`g,G0\!R@@E? n~ |vD|~L|zD| L|D|   %@8v@Ae?p,@ D!? 0?'?<0`xxDvv sv  t ;Fpp s#p c3xp 3< p 2x s f2 wf2w39c37a?> D0808@@8@0`80`8<~9 19r88989s<0Ï00Î89c03000@9c0>009c0800`9c00089c00089c000~09cy00 9c`09݀"p0@9`@8`p`1D a`0?La`+dq`71b_?0Ca<@XC0@@/p`?@?A> U*`p?`?? ?`? 0@p#8G??0p?`xp7`g 8@ @8 `0` xx0o g<aB<c~a aFqg  |1 nf19@@ `1y|@ `1n` a1!`` g1!qc` o11yC` nq0;G`A<c?1 .0&  D4& $$$$222    &&           >4  ^ L    $ &     *6*,2<: FH p ,     $l"   < .0$ 6  "      n       $(H6   $  f2" &  &  . ,  "* 4  @      < $02:  P* 8   ` FB $*0  Z*.6BdX 2      *   F> (""(L2 `      L,(.}nQpg;(#gS!W)֝ K;i.+{'4w)2?/YvCDM JScysVTxIR_^\@ldbghi*LWk1z`'Xc4]o?$b幑ʋp"-ٰ R풹&爰f,彔Q?3/ݏF.ɒRs`p*O.|L*m - ЭЭм// ??<JNA <a<vaAa aа|ffa6Ca9 ga69 g@< lAp0006<g$AP09 R@3 |fHaa@|faD<;f y `r<9 fAa`Ty fAa`fX9 gA a`bA vaaBa JjAa`>3  A a`"<?f9 fAa`A(aHy H/<?9 ?<?NA <gj9 H< f 9 Jf 9 fa6a~|fa6Ca:aF|f aJ<g9 H J<g<ft<a?9 ?<>NA ANa`:<@f y `(<Af&y gAoa` Aa`<bfAa`|gab9 gap`:a^Bg?9 /9 ?<BNA HyP0/?9 ?<@NA 3 ѹ a(Nu??<?<NM\Nu/?< NA\Nu??<?<NM\Nu?<?<NMXNu?<?<NMX6H@Nu?<?<NMXNu?<?<NMXNuHy ?< NAA B0Nua|faa<Yg&?9 ?<>NANu?<Hy ?< = TOGGLE PRINTER = TOGGLE CAPTURE = CREATE CAPTURE FILE = OPEN UPLOAD FILE = UPLOAD TEXT FILE = TOGGLE DUPLEX = TOGGLES LF AFTER CR RETURN (UPLOADS ONLY) * * * THIS FILE ALREADY EXISTS, OPENING IT FOR DOWNLOAD WILL DESTROY IT * * * PRESS TO PROCEED, ANY OTHER KEY ABORTS > * * * START DISK CAPTURE * * * * * * STOP DISK CAPTURE * * * * * * STARTING FILE UPLOAD * * * * * * UPLOAD COMPLETE * * * * * * LF SENT AFTER CR (DURING UPLOADS) * * * * * * LF NOT SENT AFTER CR (DURING UPLOADS) * * * * * * FILE NOT OPEN * * * * * * TOS FILE ERROR * * * * * * AN OUTPUT FILE ALREADY EXISTS! * * * ENTER FILE NAME (FOR DISK CAPTURE) > ENTER FILE NAME (TO BE TRANSMITTED) > * * * FILE CREATED * * * * * * FILE OPENED FOR OUTPUT * * * P>  ( &  8 t \.  t%..  tFREERAM ACC t & WATCH ACC t )A`.| N BBNA"/0<NBNu# NA/9 NuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^NuNVH?BCB..,. f# <`hlDRCJlDRCn8fzB`0l :HGH`xe`Jge`|fD# D`# JLN^NuNVN,. ?9,NT3`X.FN y(FfB09Nyf4.N#. m/9a X. Z?<NTJy gN^NuNVBn-|B@``/./.NP-@/./.N.P/ .-@ .м0"n 4nRn/< /.NP-@ nmN^NuNV>NNN^NuNV>"NNN^NuNV>NAN^NuNV>?<NAN^NuNV>?<NAN^NuNV>NAN^NuNV.?< NAN^NuNV.?< NAN^NuNV>?<NAN^NuNV>NAN^NuNV>NAN^NuNV>*NAN^NuNV>?<+NAN^NuNV>,NAN^NuNV>?<-NAN^NuNV> /.?<6NAN^NuNV> /.?< /.?<=NAN^NuNV>?<>NAN^NuNV./. ?.?<?NAN^NuNV./. ?.?<@NAN^NuNV.?<ANAN^NuNV.?<HNAN^NuNV.?<INAN^NuNV. /.?<?<JNAN^NuNV>/NAN^NuNV.?<NAN^NuNV> /.?<NNAN^NuNV>ONAN^NuNV./. ?.?<VNAN^NuNV>?. /.?<WNAN^NuNV>?<NMN^NuNV>?<NMN^NuNV> ?.?<NMN^NuNV>?<NMN^NuNV> NMN^NuNV>NNN^NuNV>NNN^NuNV>NNN^NuNV>/. /.?<NNN^NuNV.?<NNN^NuNV> ?.?<NNN^NuNV>NNN^NuNV>%NNN^NuNV.?<&NNN^NuNV>?.?.?. ?. ?.?<NNN^NuNV.?<NNN^NuNV>NNN^NuNV> /.?<1NAN^Nu?/?<LNANu#. "< psNBNu0/2/ҀgV 4<eHA4<|cRBA`B6<c4BfSB2C|gAC8be0Nu4`6`0Nur0/jDA4/BjDADB/&HCCjDCCBmA&Nu0/@kR@`S@@Nu0/@R@@Nu# aF3,pN^NuNV>a*pN^NuNV#V>NN^NuNV3# V>4NN^NuNV3# V>#NN^Nu [0][Available RAM: 0000000 bytes][ OK ] Free RAM sizevf  &8  $   xxxxxxxx` .|N.NA"/0<NBNuNVJyfB?<NT3N^NuNVJygB?<NTByN^NuNVBn`0n 0Rn n m33.^/</< N DPN^NuNV=n=n 0.n S@=@0. nS@=@.Q?<?9N XN^NuNV.Q/]/Y/U09@?RW?<Z?<2?<d?< BgN\>?.?.?.?< NP3BWBg/<~?<?9N >?.?.?.?9?9?<2?<dN >?.?.?.?9N@P./</<"/< ?<?9NN^NuNVa>NB=n =n =n=n.U/Y/]/Q?< ?9N`\.Q/NXJ@g>?.?.?.a>\>a.U/Y/]/Q?< ?9NJngJnfBWNBa|N^NuNVN ./</<\/< N 3.?9NT3>N 8-@g. .r>?<+N XT .>?<-N XT3ByaN^NuNV`Bn./</</</</<Bg?</<BgBgBgBgBgBgBgBgBgBgBg?<?<?<1N 8=@>NB./</</<$?< ?9N.g09`09ְyf(Jnf">?9?9?9?<aP`09ְyfBWBgBgBg?< ?9N `|09ְyf yg>N 3`L09ְyfj>Nz>?9?9"?9 09@?RW09@?BgBgN.>N>N 3`09ְyf\>?9?9?9?<?9N ./</<"/< ?<?9N`b09ذyf2 yf aa6`BWBgBgBg?< ?9N =|``||b@0@& PN ygB@`p=@>,N X0y"f.g0 yg&Jnf >?9?9"?9 BgaPBWNB`N^NuNVJngh>?9N FTBW?9N T=y =y"09 yS@=@09"yS@=@.Q?9N hT>,N X=@0.r `|=@0.@|?=@0.|@=@|:|:B.| 0.H |@0.H H@|@0.H |@0.H H@|@0.H |@0.H H@|@Jy gp `p@.]/Q?<Bg?9N >?9N T.?9"RW?9 RW?9N \3">*N X=@y$fJng0.|=@0.@|=@0.r `|P=@|/|/B.| | 0.H |@0.H H@|@0.H |@0.H H@|@0.H |@0.H H@|@.?9"09W?9 RW?9N \3$N^Nu#NN/9Nu#NM/9Nu#NA/9NuNV# 3 3By33N #N^NuNV3eByBy3N N^NuNV3 3 Bn nH|2n2RRnJ@f33Sn33N N^NuNV## .мZ#3dBy3  n 3N n 0####N^NuNV# 3 3333N #N^NuNV3 3By33N 09N^NuNV3 3By33N 09N^NuNV3 3 3'By33N n0 n0N^NuNV3 3By33N 09N^Nu#"<psNBNuNV3&0.|Hм-@=|` nH2n&2RRn nm.NB@09NN^NuNV#&##.#N###> aF3NpN^NuNV>a*pN^NuNV3.3 03 23436383:3<3>3@3B3D3 F3"H#$3(J3*L>N n,0P n00R n40T n80V n<0X n@0ZB@09NN^NuNV3.3 03 23436383:3<>IN N^NuNV3.3 03 23436383:3<>JN N^NuNV>MN n0P n 0R n0T n0VB@09NN^NuNV3.# >NN N^NuNV3.# >#N N^NuNV3.3 03 23436>dN N^NuNV3.3 03 23436>eN N^NuNV3.>fN N^NuNV3.>gN N^NuNV3.3 0>hN n 0P n0R n0T n0VB@09NN^NuNV3.3 03 2343638>iN N^NuNV3.>kN N^NuNV3.3 03 2343638>lN n0P n0R n0T n 0VB@09NN^NuNVH *n(n >0-W?0,WNT:>0-W?,0,WNT8>?NdT>>?,NdT<89F0G9@0F9@GoFnB@`pJL0N^NuNV0.n o0.`0. N^NuNV0.n l0.`0. N^Nu @(#)WATCH.ACC V0.01 Atari Corp. /jwt0jFj WATCH Watch @    2>    (           $            $              * >>~~??????>??????__??~~>>???##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]`%Sn Jn f>/.aXJL0N^NuNVN^NuNVN^NuNVH >.HμgR*y?(G?.Nz|f3 >3?>p`>Bg/ N\ JL0N^NuNVH>N6*@ fp`XJnfB@`N-g3 >3?>p`0-g>/. / N6hP``>/. / N7xPJL N^NuNVH|BG` >f >0`RG|m3>3?>pJLN^NuNVp2.`F@H>B@N^NuNVHBG`>aRG|mJLN^NuNVH 0.8*@G\0.@BUB-+| BB> Bg/ N\> ?< / N\JL0N^NuNVH>.|e3 >3?>B`0B@08*@G\-f3 >3?>B` JL N^NuNVH *n(n >.B@=@=@``Rnnc L2n  fB@0.ncf>?.B@0.W B2.Ё//-/ N:=@B0.ѭJnf3>3?>p`^=n`8Rn>?</<>/-/ N:=@B0.ѭnb4 -o+mB@0.JL0N^NuNVH*n>?./. /-/ N:=@Jnf3>3?>p` B0.ѭ -o+mB@1 gosub 32000 2 fullw 2:clearw 2:gotoxy 20,6 3 poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,13:vdisys(1) 4 color 2,0,2 5 print "Journey to the Center of the Earth" 6 color 1,0,1 7 poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,4:vdisys(1) 8 ?:? 9 gotoxy 26,8:?" A 520ST Adventure" 10 poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,5:vdisys(1) 11 gotoxy 19,10:print"Converted to ST Basic by Rich Noe" 12 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 C`,^*O.|*m - ЭЭм// ??<JNA a09pR@@309rR@@3S@3!|D!|D ByvByxp3zByt#T|09vaF3v09xa83xaa4J@gapA,00000aBgNAa, A*m AUTmR@ymyNuS@j09S@NuSytjRyz3t"9|g Ag Ag A#|HANuNqa`DyvaXDyxaPDyvaH09v3xv3xa0Dyxa(Dyva Dyxa09x3vx3vNuNq3zD09vy3D29xy3FNuAD0<0QA,0 0000aA,0M0000aAD3bA,1|d1|1| ADp2< 0Q0aA,3 bAD3p3rA,1|1|1|aA,1|!1|1|AD1|1|arpCda~pCjarpCjapCdaA,1|1|1|`*pCdanpCjadA,0e1|1|3b8ps"<NBNu/ A,1|1|1|AD00aAF"_222NuA,1|1|1|AD0000`A,1|1|1|`p?< NATNu0<"<NBNu,DDDD,DDDDD2   2 &     *`,*O.|*m - ЭЭм// ??<JNA aB3T pB@3 t3 x3 v3 z3 3 3 3 3 |*| Jy g paAH0000aJy f< y jg"p y hgpRy |y |fRy |a@R@3 Jy fPa@Q@3 ~a@Q@3 a@Q@3 a@Q@3 a@R@3 09 ty ~ky hoDy ~`3 t09 vy ky joDy `3 v09 xy ky hoDy `3 x09 zy ky joDy `3 z09 |aAH0 t0 v0 x0 za89 : t: v: x: zPD D m3 BD*| 3 Sy Sy aJ@g0aA000000aBgNAA H0<0QA00 0000aTA00M0000a6AH3 fA01|d1|1| AHp2< 0Q0aA03 fAH3 h3 jA01|1|1|aBA01|!1|1|AH1|1|`A00e1|1|3 f13 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