' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` `  `>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  @ à@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` dӠ z#ӍŠōōōŠӍŠōō΍čōǍ΍͍č΍̠ԍčǍŠӍƠȍōō΍ōōȍ΍΍čŠӍōōōٍǍŠ͠ҍčӍōŠƍנӍԍנōƠӍōōӠ΍ԍōōčǍōōǍӍǍԍčҍ΍΍Ӎ΍Š΍ĠӍōٍ΍ō΍ō΍ōōƠӍō٠čŠԍō͍čԍ΍΍čǍōٍ΍РƍŠčōΠٍӍǍōōٍҠҍӍōŠ΍Ǎ΍ύɍ΍̍ōōōΠƍŠӍ΍ōōٍōōōӍōנōĠō΍Ӎōԍō̍ōō̍ˍō΍̍΍ԍҍҍōōΠōҠɍōǠ΍   ȍǍÍčǍō΍ǍŠٍč΍ٍ͍΍΍ΠٍӍ΍ӍōǍōҍǍōȍǍōȍǍҍǍōōٍǍԍҍĠٍǍ̍ōǍҍӍԍˍӍ΍ō΍ōǍӍԍӍōٍ̍Ǎōҍٍōō΍ύԍ΍ōԍӍōԠӍȍōō΍Ӎō̍ō͍ҍǍŠōōǍǍō͠ȠōōΠԍҍӍōōōύōҍǍōčӍԍǍ٠ōԍŠԠƍĠԠōĠƠō׍ȱҠƍŠӍōנŠԍӠ΍ōϠϠōĠƍŠӍōٍΠōٍōӍōō΍ŠԍϠҍōō΍ԍŠǍ΍͠ӍϠӍ ōŠ΍΍ԍԍӍōӍōԍԍӍōǍ΍ǍΠƍԍԍӍōŠӠҠ΍٠ōōԍٍōōōӠƍōŠ٠ԍōōŠȍ΍΍ԍҍ΍΍ҍōԠӍƠōōŠҍŠƠō΍ōŠ΍ӍԍǍōٍٍԍŠ̠̍Ơōōčōԍ΍ōō٠΍΍ٍōčٍōō΍ōύŠҍǍŠōٍҠōŠȍōǠŠčҍōōōǍٍύčӍǍ٠ύŠҍƠōȍōōčōōӍ΍΍ˍƠōҍӍōŠŠč̠ƠōĠȍōӍԍٍ΍΍αĠƍŠōĠŠƍŠōōȠ΍ŠӍōōŠ΍ƠōÍōōˍƍŠō΍ԍčύōŠӍ׍ōōōǍӍ  57m 57m 5???.m->;MI m)>w-7?m)>oI m)>7m)?w575oI--57m??oI RI:?7-->?7--N--->??7--->??7--- >7m?7-->7m)>oI 575757m??oI m 5??.--57m 57m 5oIIm)>7- 5??7--5?7m)>oI )-;.M5;.M5;.M?oI--;.M5;.-75oI )-;.M5;.M5?7m)>?oI--;.M5;.-57m)>oI )-;.M:?N)>m)?oI--;.>.>.>M m)>7m)>7m)>7m)?oIm)>7m)>7m)>w-oIm?????'-------%???????'-------%???????'-------%???????? ?m)>7--5;.M5;MI--;.M??.M5;.M??MI)-;.>.>.M?oI--;.M5;.M5;.M??MI--7m??.>.M??oI --7m??.>.>MI)-;.>. ->7m)?oIm)>7m)>??.M5;.M5;MI)-75757?oI)-7575m?oI m)MI--7?7m??oI --7?N57??MIm)>7m)>??N 575o--7m??N 57??MI)-7m??.M5;.M?oI--57575oI)-;.M?m)>7m)?oI)-;.M5;-->.??MII-??-VI-------%???????'-------%???????'-------%???????'-------%???????'-------%???????'-------%??----5;7mI??7----??.MI)>;.mI->????---??II ----5????7----5?wI -?-?.>.?7-5?II --???----5??.MI)>?---5???-M ->;.mI->????---??II --???----5??.MI)>;.mI->???w-- 5*MI->????---??II )-;.M5;.M5;.M?oI-575757m:??->??N)5?.5?.5?.m????.---5????VII --???----5?wII)>*--???-7mI 5????7----5????III --???----5?wII)>--5??wI->ۛmI)5????w---??II I ->?-->?-M5?.M m:????.----7?7-5?I ----5????7----;.MI:???.---?5*MI->????---??II --???$$$,-------->???????7-------->????????.-------->???????7-------->???????7-------->???????7-------->???????7-------->???????7-------->???????7----------->??7--->??7--->??7---N m:?m?w ??NuI --???---->?.MI5;.MI5;.MI5;.m ->???w---??VIII)5?*-?7-5?II-mI-5??7-mI-7m)M5;7m)M5;7m)M5;7m-m5????7-m)->?VIII-m)->??7-m)-wm)?w5-;mI?;?.-M-5?;?VIII-m)->??7-m)-7mI;.--?w57?7-5?II----5????7----5?wI -?-?-?-MI5????7----5????III---------666666666?????????$$$$$5;.m)-???w---5??VII---????.---->7mI)>7mI-???7--->;.M ?;?.-M-5?;?VIII --???---->75w--??wI)>mI)>???w---??VII----5????7----5;wI575757?7-5?II-m)->??7-m)-7mI57mI57mI57mI5??--?II-m)->??7-m)-7mI57mI5wm)>w-5-??.-M-5?;?. -m5?7m)M5;7mI ??7-mI-5??IIII-m -5??7-m -?7-m 5;7mm)>;.Mm5?7m -5?;?.-M)5?;?VIII --???---->?.MI5;.MI5;.MI5;.m ->???w---??VII---???7---->7mI57m -???.--7?7-5?III --???---->?.MI5;.MI5;.MI;.mI5????---??VII-m -5??7-m -;.MI5;.---5????.MI5;.MI??7-m -5??III I--5??7--;.>.>.>.??7--5??III)-->??.--757575mI5???w--?II -m)->??7-m)-7m)7-??.M7mIm:?;?.-M-->?;?VIII -5?7-7575757m 5???7---5???III-MI)5?;7-mImI)7---7mI)>7mI->????.---???III --???---->?.>.>.>.mI5????---??VII---???7---->7mI57mI57mI57m ->???7---???VII ---->???7---->757--->??757mI5????.---5????VII ---->???7---->757--5??757?7-5?III --???---->?.>.MI?7m -5@o ['PRr4uPHzJ X Y3]  ! 3 G ] i 3 J b s   : S j ~  * : o I-5?7-;.M?߿mI57---57mI?;?.-M-5?;?VIII---????.---->7   *U*U*U*U~*@ @P~ry~a~`~L~fLL~~*@ @P~aL*U*U*U*U~*@ @P~ry~~~~~~~~s*U*U*U*U~*@ @P~~O3~~|3~~O?~Os~O3~~L3~~s3~~L?~fLL@*U*U*U*UxL*@ @P~Ny~*@ @P~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~~~~~~~~~*U*U*U*U~~~~~~~~~~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*@ @P~~y`*@ @P~|*U*U*U*U>x@~`~r`||~A~a~p~@~`~Nrp~xp`*@ @P~|ժժժժժժժժժժժժժժժժժժժ*U*U*U*U~~fLL@~~~~~gLL~~*@ @P~LLy*U*U*U*U~*@ @P~rCA~~~~~~~~s*U*U*U*U~*@ @P~~O3~~|3~~O?~Os~O3~~L3~~s3~~L?~fLLH*U*U*U*UL*@ @P~3Ny~*@ @P~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~~~~~~~~~*U*U*U*U~~~~~~~~~~~*@ @P~*U*U*U*U~*@ @P~~s|*@ @P~3N*U*U*U*U~~L``~~~~~Nsp~~|O*@ @P~syժժժժժժժժժժժժժժժժժժժ*U*U*U*Ux`~@fLLH~a~`~x~s~`rgLL~|~*@ @P~LLy*U*U*U*U*U*U*@ @P*U*Uryy~~~~~~~~s*U*U*U*U~*@ @P~>~A3~~y3~~O?~Os~O3~~L3~~s3~~L?~fLLL*U*U*U*UL*@ @P~3Ny~*@ @P~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~~~~~~~~~*@ @P~*U*U*U*U~*@ @P~~s|*@ @P~3N*U*U*U*U~~rL||~~~~~Nsr~~|O*@ @P~syժժժժժժժժժժժժժժժժժժժ*U*U*U*U~sO~|?~fLLL~L3~~O?~~s~s3~~O?~fLL~?~y~*@ @P~D@y*U*U*U*U~*@ @P~ry~~~~~~~~s*U*U*U*U~*@ @P~~~L3~~c3~~@Os~c3~~a3~~s3~~`L`L*U*U*U*Upa*@ @P~3|~*@ @P~*U*U*U*U~*@ @P~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~~~~~~~~~~~*@ @P~*U*U*U*U~*@ @P~p@*@ @P~x*U*U*U*U~~rL||~~~~~Nss~~|O*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~gy~~~~~~~~~~*U*U*U*U~sO~|?~L`L~L3~~O?~~s~s3~~O?~Naaa~?~y~*@ @P~|LA*U*U*U*U~*@ @P~rCC~~~~~~~~x*U*U*U*U~*@ @P~~~L3~~O3~~LsOs~O3~~L3~~s3~~|s~*U*U*U*U~*@ @P~~|`*@ @P~|*U*U*U*Uxa*@ @P~?|~*@ @P~*U*U*U*U~~faLL~~~~~~aa~~*@ @P~ժժժժժժժժժժժժժժժժժժժ*U*U*U*U~*@ @P~~*@ @P~*U*U*U*U~~`@@~~~~~N3s~~|`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~|p~~~~~~~~faLL*U*U*U*U>pO~y?~~~L3~~A~~s~s3~~O?~~~?~y~*@ @P~|Ly*U*U*U*U~*@ @P~~~~~~~~~~~*U*U*U*U~*@ @P~BC~L3~~O3~~LsOs~O3~~L3~~s3~~|sx*U*U*U*U~*@ @P~~|O*@ @P~3~y*U*U*U*U~sL*@ @P~?Ny~*@ @P~*U*U*U*U~~fLLL~~~~~NgLL~~*@ @P~ժժժժժժժժժժժժժժժժժժժ*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~*@ @P~*U*U ~~~~~~~~~~~||*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~?N~~~~~~~~fLLL*U*U*U*Us`~crL@@~`3~~L3~~x~g3~~cN3s~|~*@ @P~Lay*U*U           *U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~ry~a~`~L~fLL~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~ry~~~~~~~~s*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~O3~~|3~~O?~Os~O3~~L3~~s3~~L?~fLL@*U*U*U*UxL*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~Ny~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~~~~~~~~~*U*U*U*U~~~~~~~~~~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~y`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~|*U*U*U*U>x@~`~r`||~A~a~p~@~`~Nrp~xp`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~|*U*U*U*U~~fLL@~~~~~gLL~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~rCA~~~~~~~~s*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~O3~~|3~~O?~Os~O3~~L3~~s3~~L?~fLLH*U*U*U*UL*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~3Ny~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~~~~~~~~~*U*U*U*U~~~~~~~~~~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~s|*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~3N*U*U*U*U~~L``~~~~~Nsp~~|O*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~sy*U*U*U*Ux`~@fLLH~a~`~x~s~`rgLL~|~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uryy~~~~~~~~s*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~>~A3~~y3~~O?~Os~O3~~L3~~s3~~L?~fLLL*U*U*U*UL*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~3Ny~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~~~~~~~~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~s|*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~3N*U*U*U*U~~rL||~~~~~Nsr~~|O*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~sy*U*U*U*U~sO~|?~fLLL~L3~~O?~~s~s3~~O?~fLL~?~y~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~ry~~~~~~~~s*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~L3~~c3~~@Os~c3~~a3~~s3~~`L`L*U*U*U*Upa*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~3|~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~~~~~~~~~~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~p@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~x*U*U*U*U~~rL||~~~~~Nss~~|O*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~gy~~~~~~~~~~*U*U*U*U~sO~|?~L`L~L3~~O?~~s~s3~~O?~Naaa~?~y~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~rCC~~~~~~~~x*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~L3~~O3~~LsOs~O3~~L3~~s3~~|s~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~|`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~|*U*U*U*Uxa*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~?|~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~~faLL~~~~~~aa~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~~`@@~~~~~N3s~~|`*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~|p~~~~~~~~faLL*U*U*U*U>pO~y?~~~L3~~A~~s~s3~~O?~~~?~y~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~~~~~~~~~~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~BC~L3~~O3~~LsOs~O3~~L3~~s3~~|sx*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~|O*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~3~y*U*U*U*U~sL*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~?Ny~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~~fLLL~~~~~NgLL~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U*U*U~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U ~~~~~~~~~~~||*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~?N~~~~~~~~fLLL*U*U*U*Us`~crL@@~`3~~L3~~x~g3~~cN3s~|~*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~*U*U                 ";:Q$:49168,0'!Q$"n"Q$"N"1900B!Q$"y"Q$"Y"đ::10L!&1800a!0GG48267,135:!l::12:12:"One moment please...":" RUN PROGRAMS"GRAMS"E27:1150:C0:UUU:Y RND# YL((1)XX1):Y ENDING.Z:::14:" S U1160:1190:W1:D37:E27:1160:C0:UUU:? L((1)XX1): :::14:" S U M M A R Y "::5:11:"PLAYER TOTAL" 11:"------ -----" CC1N :11:N$(CC);:28:Z$(CC) !22:"Do you want another round? (Y/N) 500:e|:22:"As we had no winner, a new puzzle will be selected...":750:1690:T1:C0:FF0:30U1N:680:Q(U)5:B$(U)"0":480:0:X34:Y42:M14:Z112:64X,Y:XX18::X34:YY21:7:Y146157:229,Y274,Y:* W0:D34:E25:";::1610@T$(T);J:,^680:480h:22:"Only vowels remain in the puzzle (or theentire puzzle is exposed). Each player gets a chance to solve it. (HIT A KEY)";:756:Y1N:Q(Y)5:780:r:23:"The correct answer was....":930:T12T)(T$,T,1):JD231:0:M1(A$(5)):((A$(5),M,1))D,148:DD7::gXX100:1730:L26U1:uN11490L51U2:N21490L76U3:N31490U4:"T1L$"0",T126:L$T$(T)T$(T)" " 6T$(T)" "ĝ:" (D$(T))64(D$(T))91AA1eZD$(T)"A"D$(T)"E"D$(T)"I"D$(T)"O"D$(T)"U"D$(T)" "AA1kdzFF114507:T7:P47:Q148:M1N:B$(M)"0":Q(M)5:(B$(M))P,Q:PP56:36T,147:TT56:T$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":T126:T$(3)""1300J P$P$" "A$(3):M25((A$(3))24):D$(M)(A$(3),M24,1):dA$(4):A$(4)""1320P$P$" "A$(4):M37((A$(4))36):D$(M)(A$(4),M36,1):(A$(5)::YY(0)<" CLOSE TEXT";SF1:A0:T148:D$(T)" "Ĕ27X(T),Y(T)P";S" READ TEXT";S.A$:L(A$)124081220fT148:D$(T)" "::A$(1):A$(1)""1260P$A$(1):M1(A$(1)):D$(M)(A$(1),M,1):A$(2):A$(2)""1280P$P$" "A$(2):M13((A$(2))12):D$(M)(A$(2),M12,1): A$(3):A$(M),T))651140)`((N$(M),T))901140Bj((N$(M),T))Z,135ntZZ10:T:ZZ(((5((N$(M)))))106):B1:C12:T14:MBC:X(M)D:Y(M)E:DD18:M:BB12:CC12:EE21:D34:W1D37:XX3:1730:SL:XX40:1730:" OPEN TEXTN$(M),T))90((N$(M),T))971010O((N$(M),T))96((N$(M),T))1231010:"Is the name entered correctly? (Y/N) ";$Q$:49168,0:Q$"n"Q$"N"1010.Q$"y"Q$"Y"110081060L7:T1(N$(M)):((N$(M),T))321140V((N$( (1-4) ";:N$:N(N$):N1N4X15:350:980FZ7:M1N:Z$(M)"0":24:"(UP TO 5 LETTERS WITH CAPS LOCK DOWN)":22:"NAME OF PLAYER #";M;:" ";N$(M):(N$(M))5(N$(M))11010T1(N$(M)):((N$(M),T))122((N$(M),T))651010"((:30 880T:23:X15:350:"Sorry, your guess is wrong...":T1500::700:3:I1:J0:H14:MI((A$(H)))J:D$(M)" "960D$(M)"*"960(((D$(M)))64)X(M),Y(M):X3:350:II12:JJ12::-:23:"How many contestants?$P$Č768::930:23:"OK ";:N$(U);:", you won this game":"Want to continue the round? (Y/N) ";:Q$:49168,0:140fZ$P$910pQ$"N"Q$"n"1810zQ$"Y"Q$"y"Z$(U)(((Z$(U)))((B$(U)))):3:1840:4:GGGG1:1840:750:1680:T1:C0:FF0"Type in your guess exactly......"::Z$=::22::Z$:d 24:"Is this your guess? (Y/N) ";u*Q$:49168,04Q$"n"Q$"N"780>Q$"y"Q$"Y"850H810R:Z$P$GG3Č768:930:M12000::Z$(U)(((Z$(U)))((B$(U)))):1750t\ZK39,H:550RR1:RLı'::84:480:7:HQ(U)5750Q(U)5ė:22:"Want to use a free spin? (Y/N) ";:Q$:49168,0Q$"y"Q$"Y"Q(U)Q(U)1:Q$"n"Q$"N"750710UU1:UNU1UUU:) :21::N$(U)::I,H=bK235,H:V$"65":650:K235,H:K207,H:V$"10":650lK207,H:K179,H:V$"80":650:K179,H:K151,H:V$"30":650:K151,HvK123,H:V$"100":650:K123,H:K95,H:V$"45":650:K95,H:K67,H:V$"20":650:K67,H K39,H:V$"90":650:V$"5":650:K151,F:K179,F:V$"70":650:K179,F:K207,FNV$"35":650:K207,F:K235,F:V$"7":650:K235,F:KI,F:V$"55":650:KI,F:KI,27:V$"40":650:KI,27XKI,55:V$"25":650:KI,55:KI,83:V$"85":650:KI,83:KI,H:V$"6":650:KG,H:KG,83:V$"75":650:KG,83:KG,55:V$"15":650:KG,550KG,27:V$"50":650:KG,27:KG,F:V$"95":650:KG,F:K39,F:V$"25":650:K39,F:K67,F:V$"2":650:K67,F:K95,F:V$"60":650:K95,F:K123,F:V$"99":650:K123,F<DK151,F:)"*":X3:350@:V0İ680:B$(U)(((B$(U)))(V25)):480:UX15:350:700:oP47:Q148:U2P103~U3P159U4P215B1(B$(U)):((B$(U),B))P,Q:PP10::XX26:1730:L50LL520:R0=&KG,H:V$"8":650:Kr150:15:1570:::3:23:V0:"Which vowel do you want....?";:L$:49168,0:(L$)96(L$)123L$((L$)32)L$"A"L$"E"L$"I"L$"O"L$"U"430X15:350:T1:400M148:D$(M)"*"ī450L$D$(M)Ĕ((L$)64)X(M),Y(M):VV1:D$(MACFF1; ":V0İ680:B$(U)(((B$(U)))(V((V$)))):P ,X15:350:700:` @N1Q(1)5f J ^S1X:YY(O)(O)(O)(O)(O):: r(B$(U))199400 |(B$(U))200X15:350 :23:"Sorry, must have $200 minimum...":T11600::L$"u"L$"A"L$"E"L$"I"L$"O"L$"U"X15:350:T1:220X (L$)65(L$)122220s (L$)97(L$)90220 (L$)123(L$)96L$(((L$))32) M148:D$(M)"*"ī290 L$D$(M)Ĕ((L$)64)X(M),Y(M):VV1:CC1:D$(M)"*":X3:350 :V$"2"Q(U)Q(U)1:198:320:: V$"6"Č198:700:g V$"8"Č198:680:B$(U)"0":480:700: V$"7"Č198:680:B$(U)((B$(U))100): 220 150:15:1570:::3:"Pick a consonant...";:L$:49168,0< L$"a"L$"e"L$"i"L$"o"έU$"S"U$"s"İ780" dGG41750O nU$"S"U$"s"U$"B"U$"b"(U$)3230a xX15:350:50 3:G3923628:KG,100:KG,10::G278328:K21,G:K253,G::K21,10:K21,100:K253,10:K253,100: :21::N$(U);:" $";:Z$(U);:! V0olve the puzzle":4:"[ESC] to end [SPACEBAR] to spin";X ((16384)128RN(1):40d 215:U$ 416368,0:U$(27)1900 5140:(U$)32F10:G21:H100:I253:530:170 <FF11630 FV$"2"V$"6"30 P680:480:U$"B"U$"b"İ370 Z$(1101)6ĺ" BRUN LC.CONV"] :O(0):N$(4),D$(48),X(48),Y(48),B$(4),Q(4),T$(26)O16335:" BLOAD PIC2":W0:D34:E25::980:1490:1190:W1:D37:E27:1160:C0:4:GG1:1840:FF0:K31:T19 150:15:1570:::"[B]uy a vowel [S]                   ĺWW(" PR#0":780 ";:KV24:6:" [ESC] EXITS PRINT FUNCTION ";::{V12:5:"Slot for printer? ";:16368,0:Z$VZ$(27)780VZ$"1"Z$"7"1250VSL(Z$):" PR#";SL:26:TT$::V I1722:A$(I);" ";A$(I1)WI15I27I55X1500::%UM119:T:M767,T:0U6,100rU173,48,192,136,208,4,198,7,240,8,202,208,246,166,7,76,0,3,96xUUTT$"UPTIME Presents: Frame of Fortune"::1::41):40:" ";:40:" ";:40:41):U3:4:TT$U34,6:V5:7::" 65122,135T85130,133,T71138,135860:35,24:49232,0:460oRHLOC16385:LOC1,0:103,LOC(LOC256)256:104,(LOC256)RR:" RUN FRAME.MAIN"R\24:2::" [ESC] TO END [RETURN] TO CONTINUE ";::35,23:16368,0:Z$RfZ$"P"Z$"p"Ĺ35,24:1230 SpZ$the screen is the":A$(70)"current player. The $ total behind the":A$(71)"name is that person's total from":A$(72)"previous games in the round."Q 49233,0:1200QA1:5:9::" [P] PRINTS INSTRUCTIONS ";::Q IAA7:A$(I)::Q*I728304)"actually mean a real or fictional":A$(65)"person or a cartoon or puppet"PA$(66)"character. The displayed alphabet will":A$(67)"show all the letters that have not been"QA$(68)"guessed yet. The name in inverse at":A$(69)"the lower left of -type your answer."qOA$(59)"The game box will show which game (1-3)":A$(60)"you are playing in at the time."MPA$(61)"The description box under the game box":A$(62)"will give you an idea of what the":A$(63)"puzzle is. The term 'PERSON' can":A$(6pe in your guess exactly as":A$(54)"you want it, with no extra spaces, and"NA$(55)"then press RETURN. If you are satisfied"OA$(56)"with your answer, press 'Y' to enter":A$(57)"it. If you have made a mistake of any":A$(58)"kind, press 'N' to re)"it is suggested you use caution before"MA$(49)"you decide to buy one. NOTE! You must":A$(50)"have $200 minimum to buy a vowel."LNA$(51)"Select [S] on your turn to attempt to":A$(52)"solve the puzzle. To solve the puzzle":A$(53)"you must tynant. For":A$(43)"each occurrence of that letter in the":A$(44)"puzzle,you will earn the dollar value."*MA$(45)"Select [B] on your turn to buy any of":A$(46)"the vowels. The vowels will cost $25":A$(47)"for each occurrence in the puzzle, so":A$(48d one."UKA$(37)"Lose All...Lose all your money, and you":A$(38)"lose your turn."KA$(39)"Win $100...Adds $100 to your money and":A$(40)"you retain your turn."iLA$(41)"When you land on a dollar value, you'll":A$(42)"be asked to select a consoA$(31)"22 which are dollar values and 4 which":A$(32)"are 'special' cases explained below:"JA$(33)"End Turn...Play is passed to next":A$(34)"player with no loss of money."KA$(35)"Free Turn...A turn 'in reserve' for":A$(36)"when you really neecebar to spin the ball in the frame,"hIlA$(26)"buy a vowel, or attempt to solve":A$(27)"the puzzle."IvA$(28)"Each option will be explained fully as":A$(29)"you proceed through the instructions."]JA$(30)"The frame is divided into 26 sections,":ber from":A$(20)"1-4, you must type in each name using":A$(21)"up to 5 letters. The computer will"HXA$(22)"print each name on the gameboard and":A$(23)"randomly pick a player to go first."%IbA$(24)"In his turn a player may Press the":A$(25)"Spaave been added. Please, do"tG:A$(15)"not expect FRAME OF FORTUNE to be an":A$(16)"exact duplicate of any show."GDA$(17)"When the game starts you will be asked":A$(18)"for the number of contestants who will"eHNA$(19)"play. After entering a num(9)"(where the puzzle is not guessed) will":A$(10)"be replayed with a new puzzle."F&A$(11)"As you will see, this game is loosely":A$(12)"based on a familiar TV game show. Some"G0A$(13)"things have been changed, some omitted,":A$(14)"and some hthe game is to be"mEA$(4)"the contestant with the most money":A$(5)"after a round. Whoever guesses the"EA$(6)"puzzle in each game has his dollars":A$(7)"added to his grand total; all others"TFA$(8)"get no money for that game. Tie games":A$t instructions? (Y/N) ";7D(16384)128L(1):470[DQ$:49168,0:Q$"Y"Q$"y"510xDQ$"N"Q$"n"Č768:840D460EA$(1)"When you play FRAME OF FORTUNE you'll":A$(2)"be playing a round consisting of three":A$(3)"games. The object of 430CJ15127,90:430,CT18145,90:430@C^20163,90:430TCh21181,90:430hCr14199,90:430{C|5217,90:430C1150C910C1140C460CS13:Y(O)(O)(O)(O)(O):S:C1150CD:16301,0:23:4:"Do you wan3:220&BZ118:X,YZX15,YZ::9B2055,27:430KB873,27:430bB591,27:430:440tB673,48:430B1891,48:430B1109,48:430B13127,48:430B"5145,48:430:440B,1591,69:430B66109,69:430:440C@6109,90:100)Ad::O163352An" BLOAD SHAPES,A$6000"KAx232,0:233,96:1:0YA16302,0mA" BLOAD PIC1"}A1140:1160A0:Y24:X529018:210:AY45:X7015018:210:AY66:X8811018:210:AY87:X10622018:210:B1150:!@ WRITTEN BY RON O'LAUGHLINN@ PUBLISHED BY VIKING TECHNOLOGIES, INC.s@ PO BOX 299, NEWPORT, RI 02840@( (401) 847-2455@2(104)6480@<104,64:103,1:16384,0@F" RUN FRAME OF FORTUNE"@P(1101)6ĺ" BRUN LC.CONV"AZA$(             䍲덲 >#P155ė:12:12:"One moment please...":" RUN PROGRAMS"O#P1411930a#:16368,0:):40:2):40:2):40:2):40:2):40:41)::3:4:"UPTIME Presents:"f"X3:22:"GROCERY LIST""b5:18:"By: Karen McCullough":34,8:"l"v"24:1:" [ESC] TO END [RETURN] TO CONTINUE ";":16368,0:16384,128"P(16384)"[3] Review Master List":9:"[4] Print Master List":24:12::" [ESC] TO END ";:!&21:9:"Enter Selection : ";:16368,0:X$!(X$(27)1590!+X$"1"X$"4"1830!01830!:X(X$):216,0:X0ī1830!DX270,530,1370,1120K"N:::410)% GL$(AISLE,J):QL%(AISLE,J):J0 AISLEE " CLOSE":1800P 216,0w AISLE115:QL%(AISLE,0)0:AISLE " CLOSE"  MAIN MENU :V9:30:14);"Master Menu"S!13:9:"[1] Enter Master List":9:"[2] Maintain Master List":9:BLESTZFLAG1ī1800=hGL$(15,100):QL%(15,100):ZFLAG1YrI125:BL$BL$" ":Iq| LOAD GROCERY LIST|1770:" OPEN GROCERIES":" READ GROCERIES"AISLE115QL%(AISLE,0)QL%(AISLE,0)0ī1750 J1QL%(AISLE,TO END [RETURN] TO CONTINUE ";<:16368,0:16384,128LP(16384)_P155ġ:1800pP1411520AISLE15ġ:1800"V10:40:VE9:VE:NU0N1NUĺ"Aisle=";AISLE::VEVE2,6P155:1950@1870:1610J INITIALIZE VARIAisle=";AISLE::VEVE2.NU0VEVE1:1450bVE:GL$(AISLE,N1);:20:"Qty = ";QL%(AISLE,N1)vVEVE1:N1N11N1NUī1480AISLEAISLE1:AISLE15İ1500VEVE1:VE20İ15001400VE20İ15001420 24:" [ESC] )N$(QL%(AISLE,J1))9 (N$)5ĪN$" "N$:1290WL1$L1$(BL$,20)L2$N$`L1$g(Jm2x<AISLEF" PR#0"P1800Z REVIEW MASTER LISTd:9:11);"Review Master List"nAISLE1:VE11xNUQL%(AISLE,0):N11:VE:"AL$(AISLE,J)(BL$,20L):L20ĪL1$(GL$(AISLE,J),20)RN$(QL%(AISLE,J))p(N$)5ĪN$" "N$:1230L1$L1$N$GL$(AISLE,J1)""ī1310L(GL$(AISLE,J1)):L20ĪL2$GL$(AISLE,J1)(BL$,20L)L20ĪL2$(GL$(AISLE,J1),20uantity changed":50:V18:40:540:` PRINT MASTER LISTZj:12);"Print Master List"ht" PR#1"~34)"GROCERY LIST":AISLE115QL%(AISLE,0)0ī1340"AISLE : ";AISLE:J1QL%(AISLE,0)2L(GL$(AISLE,J)):L20ĪL1$G18:40:540H$20:"Aisle number : ";AISLE:J12500:J:V18:40:540^. CHANGE QUANTITYw8600:670:P0ī1080B20:"Quantity to keep on hand : ";QL%(AISLE,P):21:"New quantity : ";QT$:QT$""ĪQT$"0"LQT(QT$):QL%(AISLE,P)QT"VMS$"QAN ITEM(18:"Name of item : ";ITEM$DITEM$""V18:40:540bV23:30:16:"Searching"vAISLE0:I115QL%(I,0)0ī1040J1QL%(I,0)GL$(I,J)ITEM$AISLEI:I15:JQL%(I,0)JI AISLE0MS$"Item not found":50:V(AISLE,0)1:GL$(AISLE,J)GL$(AISLE,J1):QL%(AISLE,J)QL%(AISLE,J1):JGL$(AISLE,QL%(AISLE,0))"":QL%(AISLE,0)QL%(AISLE,0)1QL%(NA,0)QL%(NA,0)1:NQL%(NA,0):GL$(NA,N)ITEM$:QL%(NA,N)QTMS$"Item moved":50:V18:40:540 SEARCH FOR V18:40:540GfNA(NA$):NA1NA15ĪMS$"Invalid aisle":50:860vpQL%(NA,0)100ĪMS$"AISLE FULL":50:860z21:16:"OK? (Y/N) ";:16368,0:AN$|AN$"N"AN$"n"V18:40:850~AN$"Y"AN$"y"890QTQL%(AISLE,P)GJPQL%LE,0)1D GL$(AISLE,J)GL$(AISLE,J1):QL%(AISLE,J)QL%(AISLE,J1)K*J4GL$(AISLE,QL%(AISLE,0))"":QL%(AISLE,0)QL%(AISLE,0)1>MS$"Item deleted":50:V18:40:740H MOVE AN ITEMR600:670:P0ī850\20:"New aisle : ";NA$:NA$""P0MS$"Item not found":50:V18:40-B DELETE AN ITEMP600:670^P0ī74020:5:"Delete this item? (Y/N) ";:16368,0:AN$AN$(27)1590AN$"Y"AN$"y"ī790AN$"N"AN$"n"V18:40:540 760JPQL%(AISV18:40::540"q24:1:39);Bv19:1:"Aisle # : ";AISLE$VAISLE(AISLE$)AISLE1AISLE15ĪMS$"Invalid aisle number":50:630 FIND ITEM POSITIONP0:I1QL%(AISLE,0)GL$(AISLE,I)ITEM$PI:IQL%(AISLE,0)I'X$"E"X$(27)560T:X0:CH$"DMSCE":I1(CH$):X$(CH$,I,1)ĪXI:I(CH$)uDI::X730,840,950,1070,410~N560X GET ITEM AND AISLE]24:3::" [RETURN] ALONE FOR MAINTENCE MENU ";:b18:1:"Name of item : ";ITEM$lITEM$""10:"[D] Delete an Item":10:"[M] Move an Item":10:"[S] Search for an Item":10:"[C] Change Quantity":10:"[E] End maintenance"018:10:"Please Select : ";:16368,0:X$3(X$)96(X$)123X$((X$)32)5X$"D"X$"M"X$"S"X$"C"ERIES"" WRITE GROCERIES"/AISLE115VQL%(AISLE,0):QL%(AISLE,0)0ī500lJ1QL%(AISLE,0)GL$(AISLE,J):QL%(AISLE,J)JAISLE" CLOSE"1800 "MAINTAIN MASTER LIST":11);"Maintain Master List"&11:$"Y"AN$"y"380{GL$(AISLE,N)ITEM$:QL%(AISLE,N)QT:NN1:QL%(AISLE,0)N:N100ĪMS$"Aisle full":50:V10:40:290MS$"Item added":50:V10:40:11:"Aisle # : ";AISLE:330 SAVE GROCERY LISTV23:30:17:"Saving"" OPEN GROCem # = ";N+T15:1:"Item Name : ";ITEM$\^ITEM$""NN1:QL%(AISLE,0)N:V10:40:290h17:1:"Quantity to keep on hand : ";QT$:QT$""ĪQT$"1"rQT(QT$)|19:16:"OK ? (Y/N) ";:16368,0:AN$~AN$"N"AN$"n"V10:40:340ANER MASTER LIST. :12);"Enter Master List"P "V11:40:"Aisle # : ";AISLE$d ,AISLE$""ī410 6AISLE(AISLE$):AISLE1AISLE15ĪMS$"Invalid aisle":50:290 @NQL%(AISLE,0):NN1:N100ĪMS$"Aisle full":50:290 JV13:30:1:"Next It$ :24:12:" [ESC] TO END ";:X 14:10:"Print Instructions? ";:16368,0:PG$ PG$"Y"PG$"y"PG$"N"PG$"n"PG$(27)230 PG$"Y"PG$"y"ė:" PR#1":P112:A$(P)::P:" PR#0": PG$(27)P155:1950 1610  ENTantity"; A$(9)"to keep on hand. When you are finished"m A$(10)"entering or maintaining items, press" A$(11)"[RETURN] until the display goes back to" A$(12)"the menu." PP17:A$(PP)::PP:1910 PP812:A$(PP)::PP:1910 grocery list"@ nA$(4)"for you. Use the enter list option to"q xA$(5)"add new items to the list. Maintain" A$(6)"lets you delete an item, move it from" A$(7)"one aisle to another, find the aisle" A$(8)"it's listed on, or change the qu(MS$))2))1:MS$:TIME11000:TIME:30:6 <A$(12)x F -------------------- START CODE HERE -------------------- PA$(1)"GROCERY LIST keeps an inventory of" ZA$(2)"grocery items to keep on hand, sorted" dA$(3)"by aisle, and prints out a b# WRITTEN BY KAREN MCCULLOUGHP PUBLISHED BY VIKING TECHNOLOGIES, INC.u PO BOX 299, NEWPORT, RI 02840 (401) 847-2455 (1101)6ĺ" BRUN LC.CONV":1870:60V:1:868:V:(V1:1:958:V:* 2V23:30:(((40              |@-C # 6633(?6673+3 30   ?330>3> 3? 66#   3?3 p3% ! 7  3?3 66 03?33 #0??  ??? 33   3?3 3?? #??33  66 66  6  Y3Y6YYY33Y.7* 66%>33 @xx* ? 6%  37! 37;3333 ?0 06603366  66? 3  ߃߃?333?3 66333(666633+3 ?331 3?33033 !?3 66 3  ! 33]?]3 ]3 + ?'  "> 33 66 ߃߃33?33a * 6 6'   3?3"3?3333?  6>33666> ߃߃3?366663? 666 ` (0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``y A$:A$:A$:B$#YY1:840e" PR#0"::12:12:"One moment please...":" RUN PROGRAMS"F"............................................"@PY11470JZ::ZdB$:A$:A$|n": CUT THIS PIECE OUT :"x": OF 2 X 4 STOCK :"": OR SIMILAR :"X17:A$:": SIDE A :"X15: :"X13R ": : : :":": ... :"C$(": + :"2": SCREWHOLE :"<C$2 :":A": : : : : ... ^ G :"u": : : : : ! R :"": : : : : ! A :"": : : : : ! I :"": : : ... ! N : : : : : ... :".X12d": : : : : : : : : :":": : : : : : : : : + :"": : : : : : : ... SCREWHOLE :"X13 ": : : : : : : : :":FV".... : : : : : : : : : : : :"z`": : : : : : : : : : : ... :"jX12t": : : : : : : : : : : :":~": : : : : : : : : : : :"#": : : : );:": : : : : : : : : : : ... :"3X12f$10);:": : : : : : : : : : : :":.5);:".... : : : : : : : : : : : :"85);:": : : : : : : : : : : ... :"BX12L5);:": : : : : : : : : : :":-20);:".... : : : : : : : :"8X13a20);:": : : : : : : : : :":15);:".... : : : : : : : : : :"X1315);:": : : : : : : : : : : :":10);:".... : : : : : : : : : : : :"(10R40);:"...."\X131f40);:": :":Ip35);:".... : :"TzX13n35);:": : : :":30);:".... : : : :"X1330);:": : : : : :":25);:".... : : : : : :"X1325);:": : : : : : :SL(SL$)U24:13::" [ESC] TO END ";::15:6:"IS YOUR PRINTER READY? [ ]";q 15:30:16368,0:Y$:Y$(27)1470 (Y$)78(Y$)110ė:12:"PREPARE YOUR PRINTER":23:770*(Y$)89(Y$)1218404780>H" PR#";SL7: 640816297,0:16304,0:16300,0:16302,0I756::510O:h---GO TO PRINTER---n::24:13::" [ESC] TO END ";::12:3:"What slot is your printer card in? ";:16368,0:SL$SL$(27)1470SL$"1"SL$"7"730 C] TO END ";:(:16:13:16368,0:E$<D:(E$)49680NN(E$)50710`X(E$)51140sbE$(27)1470|l570v....HIT ANY KEY....24:3::" [ESC] TO END [RETURN] TO CONTINUE ";::16368,0:Z$Z$(27)1470Z$(13)ė:"and you will never want to be without it"?"again....."O35,24:630l7:8:"Do you want to:"10:12:"[1] See assembly hints":12:"[2] Run the program":12:"[3] Review instructions"&16:12:"[ ]"024:12::" [ESsk-"4"holder could even be made from thick "d"cardboard instead of wood. The utility ""of the project is the important thing, ""not what it looks like, right?? "630"Make and use one of these disk-holders "- on. ";h:"Now cut the center support piece and "kr"assemble with screws or nails and glue. "|"This diskholder may be stained if you "630"want a professional-looking project, but""it is not necessary. In fact, the di Thicker wood "@ ,"is preferred because it gives the holder"I 6630y @"more weight. Cut out the two sides with" J"a jigsaw, coping saw, or whatever else " T"you have that'll do the job. Take your " ^"time...it will be worth it laterted on your printer. The two "P "large patterns will be templates for " "Cutting the wooden sides. With tape or " "rubber cement, fasten the two patterns " "to any wood 1/4-3/4 inches thick. (Do " ""not use particle board!) r 8 disks were scattered around "N "your desk? That describes the need." :"To meet the need, you'll have to have " "a printer hooked up to your computer and" 35,23:630 "run the program. Several patterns will " "be genera ASSEMBLY.PAC", 0,0:1,97:230,32:24576a :7:"This program is a bit different as far": "as computer programs go, but it meets a " "basic need for many of us. Did you ever" "try to find a disk you were looking for "" "when 7 o:"UPTIME Presents: Disk Holder"E (5:22::"BY: RON O'LAUGHLIN":K 2:Q <:Y FY0} PA$": :" ZB$".........................." dC$": :" n" BLOAD PACK/UNPACK" x" BLOADf! WRITTEN BY RON O'LAUGHLINN PUBLISHED BY VIKING TECHNOLOGIES, INC.s PO BOX 299, NEWPORT, RI 02840 (401) 847-2455 16368,0:::(1101)6ĺ" BRUN LC.CONV"1::41):40:" ";:40:" ";:40:41)::34,5 3:7 z#  ŮΠ ñ" ò"Ӡ ԱԲ Գ " "ˠҠ ˯ˠٮà ٠ԠɠӠ ŠƠŠ  ԠĮŠĮԠɮԨש ɮԠŠ٠+"֮Š"Ԡ Ҡ٠ ΠŠ ǠӠŠԠŠӠϠŠҠӠȠ àŮ̠  î֠ ӠˠŠŠĠڮԠӠ! <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"(~ < (&20 *, **>> """ " >> ">> """>""""""< >> "L`H hɺ-ɡ4ɗɌLďLޭiɖ` X`\67L67LɠaH)<=H8< <<<&=<&=e<)e?>i>?i?hhL F犨P ,0``6.?>?/----m)----=?'?%$$$$$$$$$$'??--5,.65.6.6565656565%%$%$%$%$%,$,$%,,--=?776666666666=7??-----M----------%$$$6667???????>???'$$$$,?><+c_u2--c~ -----??>/66666666.655-.-----,%%%,$$$$$$$$,??????7$'$$$$$=/6666666666.?>?/----mI ---------'---------MII-----??/666666666   "Programs","Ask the Apple Wizard","Product Reviews","Information Please","Coming Attractions","Reader Survey","Letters to the Editor","The Front Side"1(ST$(A)):J110:XX(SS)::(ST$(A),I,1);:I:; y I1(ST$(A)):X((ST$(A),I,1)):X$X$(X32(X96)):I 470 1016,215:A3Ĺ1016,0 A8ė::2 KC,0:::(4)"RUN"X$ 216,0:::"UNABLE TO RUN ";::X$:: 3:259I,34:3 T51,2551,X:71,2571,X:100,3N ^0:I13:259I,34:j h51,2551,X:71,2571,X r3:51,4251,44:69,4269,44 |16:390:390:400 I6097:2I,X:SS,I: :6:11:"Table of Contents": 4 :9A:17:" ";:Iies."- 251,46259,46259,57251,57251,46: 49236,0e KC,0:I1(FST$):7:37:(FST$,I,1) J150:J:(KB)128Ă:270 "A$((KB)128):A$"1"A$"8"270 ,7:37:A$:A(A$) 6X(A6)820 @0:I13:259I,14: J3:32:I1:I"-";::" "ST$(I):I! GS0Y (64435)6(64448)224(64447)0(49175)0GS1 GS0ĺ::::40)::13:"Select by number" GS1Ģ22:"IIGS users please set Alt Display Mode":"to On and system speed to normal from":"the Desk AccessorI18:ST$(I):' dKB49152:KC49168G nFST$"!/-\":SS16336:DA20N xU j I13:1I,0:I :27:"P.O.Box 299":27:"Newport, RI":33:"02840" I4244:0,I279,I:I::6:11:"Table of Contents"::70,39188,39 10:I18:15:5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.B :(21)M35840m(1023)99Ĺ230,64:3086(230,32:308624::(1014)16ĺ(4)"BLOADUPTIME.ML"<49239,0:49232,0:49237,0:49234,0F36608P232,0:233,140:0:1:3 Z     (16384)27Ĭd(16384)80(16384)112S$" ":T$"":2000:34,0:500:S$(13):T$S$:600m700O"Following the smash success of 'UNITED"S$T$"STATES', Larry Sage brings us yet "T$"another interactive educational game."S$T$"'Rivers' tests X:4:%bJ140:"=";:::5nlB$"'"(A$(I),18)"'"" PROGRAM DESCRIPTION":C20((B$)2):C:B$vv:wI1000,1100,1200,1300,140021:1::120):22:" RETURN = RUN / ESC = MENU / P = PRINT ";::40:A$(16384)13ık your disk drive."}:23:1:" PRESS [RETURN] FOR THE MENU ";::16368,0:16384,128:((16384)141)400:::40)::2:11):"UPTIME DISK MONTHLY ";:10):3:"VOLUME "VO;:22):"NUMBER "NU;:NU100ĺ" ";:NU10ĺ" ";90 h$ mH(20((A$(I))11)2)M r1::H);A$(I);" IS LOADING.";H):X w40000l |D$;"RUN";A$(I) 216,0::6:1:" There is a problem with your disk.":::A20(((A$(I))17)2):A:A$(I);:" will not execute."::" Please chec(16384)27ĺD$"PR#6" 6BIu @I$"C"I$"c"ė:D$;"CATALOG":49168,0:::2:"PRESS [RETURN] TO CONTINUE ";: EI$"C"I$"c"ľI1$:I1$(13)325 FI$"C"I$"c"Ĭ J216,0:(IN)(I1)Ė1:290 OS$(13):T$S$ T500:600:700 ^3): 280 49168,0 (CV08):"THIS MENU IS NAMED 'PROGRAMS'. PRESS [C] TO CATALOG THE DISK. [ESC] RETURNS TO THE TABLE OF CONTENTS. " "49168,0:"SELECT A PROGRAM: [ ]";::(20):I$:I(I$):I1I$"C"I$"c"(16384)27Ė1:290 ,1):N5K.5$ ((I))1L2:170, L1^ (16KL)(I2(I2))2:"["I;"] ";(A$,17);i K1ĺ} (K1)(N19)ĺ N5CV(37):: K0CV(37) CV21ĂI A$(N) :" ["N"] FEATURE PROGRAM: ";:A$(N): (CV5):1::80AN 36 MENU ITEMS":I0:J12000::2108 FSP$" "j PT$" UPTIME " ZU$"VOLUME "(VO)" NUMBER "(NU)(SP$,3((NU)))"FLIP SIDE PROGRAMS" d:T$;::U$ n:80):: I1N1:A$:A$(I)A$ K(Kɍ5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.C16368,0U:::D$" "x(1101)6ĺD$"BRUN LC.CONV" VOLUME12:NUMBER650(N188:A$:2216,0::NN1:A$(N):K1:D$;"NOMONI,O,C":& <N36Ģ10:2:"THERE ARE MORE TH     gʆhL;ɲ3Ƀ/">LȱL;ȱL;`iL sLIL'" sL\L` ɀ8 `  0>3>3333300>333>3?633>03333 00000333 >kkcc33333333333>003>063333333 cckk>3 3333>0? ?𘘜833?3333333333333333;33333?333? ?00003333?3?33333337;3333333333337;3333303? 33333333333 33333?333 33333 ?0 ?8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p83;?73  ?30 ?30038<63?00?0333?3 333333>0 ~~ < <~b0 ,(C) 1986 BY VIKING TECHNOLOGIES, INC.6i1000<n:BxN1:" "h804,(54):805,(55)y54,29:55,31002(9);"80N"X(KB)128MM,64MM1,61MMMM1MM1784Ĺ1783,61:MM1745X0200 SB     ults are in."֜50000: :vꜢ1:1::40);::10:12:"One moment please...":14:H2:A$(I);" is loading.":PÁL13000:Zñ16:14:"Fill out and return":18:15:"THE READER SURVEY"H50000:N:5:5:"Don't forget to check out our":7:5:"regular columns:"œ11:3:"Editorial: A unique way to heat your"ǜ12:14:"home." ̜16:3:"News and Views: The resRAME OF FORTUNE@:;JL222:L::1:" ";:40:" ";:RT23:1:40);:2:Z^L3gcI3L2teI5L1hL40060,40110,40160r|:6:4:"To give you more of what you want,":8:4:"we need your feedback.";12:10:"Please":17)"UPTIME DISK MONTHLY --- VOLUME ";VO;" NUMBER ";NU:SJ180:"=";::B$"'"(A$(I),18)"'"" PROGRAM DESCRIPTION":C40((B$)2):C);B$:I1000,1100,1200,1300,1400:'RIVERS,HOME INVENTORY,DISK HOLDER,GROCERY LIST II,F84)155ġ:49168,0:IB:8: 3140:D$;"PR#1":49168,0:D 14::10:"PRESS [RETURN] TO PAUSE"::9:" BETWEEN DESCRIPTIONS "N 22::40);S 32,0:33,1:34,23:35,24:X 14:10::"PRINTING DESCRIPTION":=32,0:33,1:34,23:35,24::(9): D$;"PR#1":40005 I15:(16384)127İ3100? 4500W :IB:D$;"PR#0";:y 32,0:33,40:34,0:35,24:22! D$;"PR#0":49168,0::14:12:"[RETURN] TO START";::6):16::9:"[ESC] TO STOP PRINTING";& (16384)12731100 (163N. " 2600! 40:22::A$' A( L16:X2X4:2620I2 X2[< 777,X:768:aF u (16384)27ı (16384)13İ2540:3000 13::220) Q$"1"İ3160:3150:D$;"PR#1":4000:4500:D$;"PR#0": Q$"2"İ3140 49168,0$"3"(16384)272160%\Q$"4"Ĭ5f2500:3000;kApc 34,5:::10:X112:40): " [RETURN] TO CONTINUE OR [ESC] TO STOP ";:40) 8:14::"YOU MUST HAVE A PRINTER "::8:"CONNECTED TO SLOT NUMBER"::8:"ONE WITH THE POWER O3,48:774,192:775,136:776,208n*777,2:778,198:779,1:780,240:781,8:782,202:783,208:784,246:785,1664786,0:787,76:788,4:789,3:790,96>18:::6:"ENTER SELECTION ";::Q$HQ$"1"Q$"2"Q$"3"Q$"4"(16384)272110RQ ";:40)+::::"DO YOU WISH TO:"R:6:"1.) PRINT THIS DESCRIPTION":6:"2.) PRINT ALL PROGRAM DESCRIPTIONS" :6:"3.) END THE PRINT OPTION":6:"4.) RETURN TO PROGRAMS MENU" 768,169:769,53:770,133:771,1:772,173:77h's"S$T$"Flip Side Feature. Of course, we've "T$"added several twists and surprises."S$T$"Your computer gets you into the "T$"game, but the fun keeps you coming"S$T$"back."::56)"UPTIME";:18) " PROGRAM DESCRIPTION PRINT ROUTINE"Organize your next trip to the"S$T$"supermarket, save time and money. "T$"'Grocery List II' produces a list of"S$T$"items you'll need and order them by "T$"the aisle numbers in your favorite"S$T$"store."x"You're sure to recognize this montT$"property saver..."`"Here's one for the handyman. Increase"S$T$"your productivity at your computer "T$"tenfold, with a small investment in"S$T$"time and materials. It did for me. I "T$"can now see there's a desk under those"S$T$"disks."your knowledge of our "T$"land's major waterways. Take a trip"S$T$"with Larry."UL"Could you produce an inventory of the"S$T$"items in your home? If disaster struck "T$"'Home Inventory' could save you"S$T$"precious time, as well as money. A real "܍ȭР܍ѳ܍ɠ򠤶嬠䬠쮠܍򮠠ᬠ܍ѲѰ塠蠲ɬ䢠܍ѱ     7:820,253:821,160:822,2:823,138:824,145:825,105:826,200:827,169:828,0:829,145Xu830,105:831,200:832,169:833,2:834,145:835,105:836,76:837,57:838,213bu }81,208:u782,5:783,169:784,141:785,32:786,240:787,253:788,201:789,224:790,144:791,2:792,41:793,223:794,76:795,240Du796,253:797,201:798,252:799,208:800,2:801,169:802,160:803,76:804,240:805,253WNu816,162:817,0:818,32:819,112030 HR\TT1-fTA(R)20806p200EX271085ZX80X112İ500iX8RR2sRR1R21203010850u768,162:769,11:770,134:771,54:772,162:773,3:774,134:775,55:776,76:777,234:778,3:779,201:780,252:7inue":24:"[<-] to go back a frame [P] to print"=R0CPR0R0i RĺT$((R2)(R2))owT0 A$(R,T)%VT(37)*VT16TA(R)121304:"-more-";::" ";::200:>X271085?X80X112İ500AX8RR1:========"R020$1743R,64?"-------------------"W T$((R2)(R2)):pT0A(R):A$(R,T):v"(12),768:1090:34,1:1::"========= ASK THE APPLE WIZARD ========="::523:"[ESC] to exit [RETURN] to cont22000110I"================================================":aZZ$;" ";CO$:"================================================""(c) 1986 by Philip Chien and Viking Technologies" "========================================Please wait ...":300L22::"=======================================":"[ESC] for the main menu [P] to print":"all questions [RETURN] to continue";35,21:7:200X27ĺ::16370,0:D$"PR#0":D$"RUN TOC"X80X11r give personal answers."H ~"We will answer several general interest"v "questions each month in this column.": "Send your questions to:" " Ask the Apple Wizard c/o UPTIME" " PO BOX 299 Newport, RI 02840"RF0Ģ22:"D$"NOMON I,O,C" $30000% )(21)@ .(637)223Ĺ793,255I 8768O =:X B900` L11 V"This column will try to help you with" `"your Apple problems. Due to the amount" j"of requests received, we cannot answer" t"all questions oby Philip Chien" 16369,0$ * :J IN$"*":IN816:MM1745:RF0_ A$(20,20),A(20)k D$(4) CO$"Volume 12 Number 6" ZZ$"Ask the Apple Wizard" F$"WIZ.DATA.8" KB16384:SB16368 T$(0)"Question:":T$(1)"Answer:" CLOSE" YRF1 ^ 110$ < T$((R2)(R2)):U T0A(R):A$(R,T):[ d 768n &RR1t 0 :(21):: 41):40:2):40:2):40:2):40:2):40:41)::3:12:"UPTIME PRESENTS:" 5:20((ZZ$)2):ZZ$:9:15:",0 A$(X32(X96)) / ,D$"OPEN "F$@ 6D$"READ "F$L @R020[ B1760R,64c ES0| JIN:A$(R,S)(IN$,1) L(A$(R,S))4(A$(R,S),1)"Q"330 O(A$(R,S),1)"\"SS1:330 QA(R)S:A$(R,S)(A$(R,S),(A$(R,S))1) RR TD$" PURCHASING":M$(4)"CANNOT RECOMMEND THIS PRODUCT"T nA$(0)"1":A$(1)"2":A$(2)"P" A$(3)"ESC":G$" The Observatory by Lightspeed Software":E$" Animate by Broderbund"< :::415 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.?::b (1101)6ĺ" BRUN LC.CONV"2 dM1:H$" ":M$(1)"HIGHLY RECOMMEND THIS PRODUCT":M$(2)"RECOMMEND THIS PRODUCT":M$(3)"SUGGEST YOU TRY THIS BEFORE          嬠報܍܍ľľ󮠠܍ѱ栬򠶴܍ѹ܍ﬠ嬠ﬠ嬠àɠ򠤱܍Ѹᠱˠ܍͠󮠠àéɠ܍ѷ܍䠱ˠ򍱬宍嬠󮠠à󠸠宠䬠䬠堭܍ɠ䬠嬠٠ᠴزشӠ嬠䠲رӠ宠Ӡ܍Ѷ͠宠ˠɯϠ䬠ͬͬɯϠ堶ˠ堶宠蠲܍ѵ܍ɠˠͬˠ͠䠨፲ˠ򬠱ˠᠵé䠴ˠɮɠ򠤱܍Ѵɠ܍㮠ɠᠶ䠴ˠͬ䠵ˠàͮ䮍ɧ䬠ɠɍ is hard at work, but","sometimes you get impatient. It's like","watching TV ads: you must pay the price","for a good show.",""| "As a learning and recreational tool,","The Observatory intelligently escorts","you Out There -- and beyond.",""D"bs, etc.","" "WEAKNESSES:","","During several viewing changes","(switching to another star map, doing a","Forced Search, etc.), you could chew","molasses while you wait. A shrinking","red line on your screen's upper left" "shows your computerearted and entertaining way. Pro","and beginner should spend loads of","pleasurable time tracking the skies,","charting constellations, printing sky","maps, tutoring others (the program" P"includes a Teacher's Guide), scheduling","optimum veiwing date"","A person thumbing through a star atlas","couldn't begin to match this program's","ability at cross-referencing so much","information in so many areas. The","directions explain how the program works" "(using simple keyboard input) in a","light-hnification, as if"$ "you were using a real telescope. A","special feature allows you to institute","constellation lines and to search for","specific celestial objects (typing Q","reveals pertinent data on size and","distance).","" "STRENGTHS:",rth's past, in the vicinity of" "Austria, circa March 16, 1485, to view a","total eclipse of the sun.)","","You can also look at different regions","of the sky, rotating your view left or","right, choosing a degree angle and","'zoom in' for extra magses,","Jupiter and its moons and much more.",""\ "Setting latitude and longitude, you can","see the heavens from any spot on earth;","adjusting date and time, you can choose","any period spanning 10,000 years.","(Thus, you could easily journey to","Eaoftware","Software","$49.95","Apple ][ series with 64K"/"The Observatory turns your Apple into a","comprehensive software planetarium,","offering stars, planets, nebulae, star","clusters, solar eclipses, Halley's","Comet, the sun, the moon and its pha<16368,0:400/A$"END"ĭK$"2"A$"":yL0:23:1::" [ESC] EXITS [RETURN] CONTINUES ";::16366,0hP(16384):P1274200P155Ĺ16368,0:4000P141Ĺ16366,0:4200716368,0::: "The Observatory",,"Lightspeed SR$:::"COMPATIBILITY:";::" ";D$:::L11:(D$)25L12R A$:A$"END"3700i A$:A$""ĺ:3500H (A$)40L17ĺ LL2:L17İ40003200t4100:7200::24:2:" PRESS [RETURN] TO CONTINUE. ";:(16384)1413800:13:A$;::H311:2:H2:" ";:42H:" ";:2:H:"[";:40HT "]";:::G34:G,3::P$,P1$,M$,F$,R$,D$::"PRODUCT:";::" ";P$:P1$""ĺ" ";P1$ ::"MADE BY:";::" ";M$::; "FORMAT: ";::" ";F$:::"SUGGESTED RETAIL:";::" ";A$)2))A$:A$:A$B$:2000-A$B$:B$""ĺ7` 1900z R,O::"WE "M$(R)"."::"OVERALL WE GIVE IT A";:(O)8ĺ"N";( " "O:" "::(4)"PR#0":400 7700? J4:I2:C0::::17:"UPTIME":A$"PRODUCT REVIEWS":V24I2I:VI:13:15);:VPRODUCT: "P$:P1$""ĺ" "P1$f "BY: "B$:"FORMAT: "F$:"RETAIL: "R$:"COMPATIBILITY: "C$:} lA$:A$"END"2500 A$A$" ":B$:B$"END"ĺA$:2500 4(A$)(B$)80A$" "ĺA$:A$B$:2000(A$,1)" "A$(A$,(A$)1):A$(H$,(30(500] 34,6::12:" PRINTING REVIEW":34,23:35,24:32,0:33,1:::(4)"PR#"M| N2ćA$:A$"DUMMY"1300 xP$,P1$,B$,F$,R$,C$:L1(C$):(C$,L,1)" "1700 LL1 @(C$,L,1)" "C$(C$,L1)(C$,(C$L):1600% L:" ":":(4)"RUN TOC"# :K$"1"2700J K$"2"ćA$:A$"DUMMY"900:2700 K$"P"Ģ22:1:868:" PRESS [ESC] TO EXIT.":19:1:868:"Which review would you like to print? "; L:" ";::L1:7900:N(K$):N1N2Ģ19:1:868:22:868:):T13:40:2)::39)::3:9:" UPTIME PRODUCT REVIEWS" 8:"PRESS: [1] To see the review for "G$:15:" [2] To see the review for "E$:19:" [P] To print a review":::"[ESC] To exit Product Reviews" X24:1::39):L3 7900:B27Ē 5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.X(1101)6ĺ" BRUN LC.CONV"^ ::41):40:02):40:2):40:41);:34,5::3:11:"UPTIME READER SURVEY":dP$(19)X116:P$(X):X ::"UPTIME wants to know     6):B49B50B80B278100&'@7900@':16368,0:K$(B):' T1((1)8):B(16384)128:KK32(K96):K49K50K66K277000 FAIR EXCELLENT";:T11000::20:N1E:7600:(3N)4::N;::T1150::NEĖ(3N)4:N;&D1300:::E(E)İ7600:(3(N1)3)::E;:&L16368,0:&P(16336)(16336)(16336):&:'B(16384)128:BB32(B9"DUMMY"% :F,E:6:19:"WE:":R((1)4)4:I1R:T1J:9T:20((M$(T))2)::M$(T)::9T:20((M$(T))2):M$(T):::9F:20((M$(F))2)::M$(F):18::10:"OVERALL, WE GIVE IT A:"::" <= 1..2..3..4..5..6..7..8..9..10 =>"m&" POOR ns of 'Etch-a-Sketch' fine","work. However, you'll marvel at the","miracles one can still attain in this","format.",""$ "If you're a budding artist tired of","still lifes, you'll be 'drawn' to","Animate!",""$X "","by John DiPrete"% "END",1,9,ish","sea-bed; the lazy, stretch-coil wind-up","of a baseball pitcher; and a host of","other possibilities. You will discover","for yourself the difficulty of","rendering natural curves (something game"v$ "programmers already know) and the","limitatios.",""" "Animate consists of three disks: start","up, graphics library and demonstration.","The latter shows you what an artist (or","careful time-spender) can do with this","tool. High-resolution scenarios of"# "stomach-flipping whales in a bluith Dazzle Draw, make flip","books with a printer or store your","vignettes to a blank disk.",""" "Don't be alarmed by the hefty user's","manual. A Quick Start procedure gets","you right into the basics. You can be","making your own cartoons in hourin' to each frame you're","working on, painting individual pixels","or frame cells for striking detail. You"`! "can erase mistakes, duplicate backdrops,","modify screen-image movement order and","much more. If you wish, you can use the","program wd "scratch. Choosing palette color, stroke","shape and brush size, you can draw a","frame-by-frame sequence from your own","imagination. When you activate the","frames, your images move.",""m , "When designing your action scene, you","can 'zoom  "'choreograph' in place. Your Animation","and Background Library offers a wide","choice of character and setting -- even","such 'stage magic' as sound effects.","" "The best part about Animate, however,","lets you create motion pictures from" you probably enjoyed","as a child, except that with Animate" "you are creating living pictures.","","Your cursor walks you through various","on-screen choices, allowing you to","assign specific shapes to each","background scenario, which you must"sequence, using a pre-designed set of","background and figure drawings. You"=8 "can decide the number of frames you","want, the type of scenery, movement","direction, speed, etc. The process","partially resembles the 'Colorform'","stick-on activity colorful landscape of form","and motion -- just a touch away from","your mouse, Apple Graphic Tablet,"M "joystick or KoalaPad.","","Starting the program introduces you to","the science of stop-motion illusion,","letting you play with pattern and","y John DiPrete"* "END",2,7.5,"DUMMY"x  "Animate",,"Broderbund","Software","$69.95","Apple IIc/IIe with 128K"gp"Broderbund's sequel to Fantavision","brings to your fingertips the art of","animation. Designed for 128K, Animate","offers you a3::"PRESS [RETURN] TO CONTINUE => ";> mG$:(G$)13365F r: |23::3:"ENTER SELECTION OR [ESC] FOR MENU";:I$:I(I$):(16384)27I1IDFE380 (16384)27ĝ:34,0::12:12:"One moment please...":" RUN TOC" : C$"" What if my disk doesn't work?":A$(3)"[4] Who gets suggestions and complaints?" A$(5)"[6] What if I get a friend to subscribe?":A$(6)"[7] Does UPTIME have a toll free phone?":A$(7)"":A$(8)"": ":V5:X0N:V:A$(X):VV2::' h49168,0:23:290:380:49168,0:I450,700,920,1290,1410,1719,2070:80K 360:34,0:80X :I0Ne A$(I):k q P N8:A$(0)"[1] Who publishes UPTIME?":A$(1)"[2] Would you like to see my programs?":A$(2)"[3] How may I subscribe to UPTIME?":A$(4)"[5]5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.N :(1101)6İ2300rA$(19),K$(10),U(4)::D9:X2::A$"INFORMATION PLEASE ":I39(A$)111:2:I:A$:Z1100:::8 P::::120):2:12:"INFORMATION PLEASE":34,3:::5:190:       ING" :D23:1::"[RETURN] TO RETURN TO TABLE OF CONTENTS":s16368,0:16384,128:(16384)141202023:1:868:812204)141202023:1:868:812200 :P"Fun Time","Puzzle Time","Language Arts III","Savem","Sea Battle""Rivers","Home Inventory","Disk Holder","Grocery List II","Frame of Fortune""Apple Wizard","News and Views","Editorial","Product Reviews","Cover","OVERALL ISSUE RAT"Along with your name and address.":8A1552000I" RUN TOC"21::"PRESS: [RETURN] TO CONTINUE [ESC] TO RETURN TO MENU ":16368,0:16384,128:A(16384):A155A141124016368,0A155117;"PR#0"%~::10:15:"THANK YOU!"+18:"Please select your favorite programs from this issue and tell us which ones you liked best.":"Just jot us a note and mail to:"::5:"UPTIME":5:"Box 299":5:"Newport, RI 02840":'(1):A$(2):A$(3)" "A$(4)" ":"("A$(5)") "A$(6)6.8"--------------------------------------------------------------------------":B"MAIL THIS COMPLETED SURVEY FORM TO:":" UPTIME":" BOX 299":" NEWPORT, RI":" 02840"t(4)OT RATED.":K" PROGRAM RATING COMMENTS":WX115z(1101)6ĺ"*";P$(X);:1050P$(X);23(P$(X))):LN$::X:P$(16);:23(P$(16))):LN$::"Do you use AppleWorks? ____________"0:A$...":1220 :310, :33,1:34,23:24A :(4);"PR#";SL LN$"[ ] ___________________________________________" "UPTIME VOL. 12 NO. 6": "PLEASE RATE THE FOLLOWING PROGRAMS IN THIS ISSUE":"FROM 1-10 (10 = EXCELLENT) OR 'NR' FOR NA$(5)(A$(5),3):V:20:") ... ....":23:"NUMBER": I 24:"Is this information correct? Y/N ";:(36)3:X$:X$"y"X$"n"X$"Y"X$"N"X$(13)Ė1:420 X$"y"X$"Y"X$(13)İ1000::34,5::1:1:" ";:::12:12:"One moment please:"_ h::"Your Name"::"Street Address"::"City/State"::"ZIP Code"::"Phone Number":13 rV11:I16:H16:VV2:I4H17:I6H22:VV2 |V:H:657:A$(I)"":X512767:(X)141A$(I)A$(I)((X)128):X :A$(I)(A$(I),28)3 I5280 "AN$"Y"AN$"y"1170j ,:9:"What slot is your printer in? ";:SL$:SL(SL$):SL7SL1300 613:I14:E21:I3E5 @16:J1E:".";: J:: TI5Ė16:"(...)":16:" AREA"; ^1:9:" Please enter the following information the type of":> "programs you'd like in your magazine!":n "Help us by rating the programs in this": "issue. Send in your selections today!": 1230 9:1:958:"Do you have a printer? ";:AN$::AN$"Y"AN$"N"AN$"y"AN$"n"3.3' are trade- ":"marks of Apple Computer, Inc. and are ""made available to us through an agree- ":"ment with Apple Computer, Inc. "360:C:::B118:A$(B)::2:14:"UPTIME JACKPOT":F$"+++++++++++++++++++++++++++++++++++++":E$" :"regarding 'UPTIME' or its usability, ""merchantability or its fitness for any ":"particular purpose. We are licensed by ""Apple Computer, Inc. 'UPTIME' is the ":"registered trademark of Viking Technol- "="ogies. 'Apple' and 'DOS ot allow the "j"exclusion or limitation of implied war- ":"ranties, thus the above exclusion may ""not apply to you if you reside in said ":"states. Apple Computer, Inc. makes no "+"warranties either expressed or implied ":360::4contained herein. The programs ":"contained in this magazine are for user ""enjoyment. Viking Technologies assumes ":360::4:"no liability for loss or damage caused ""by the contents of this publication, or ":"their use. Some states do n ":34,2:::"'UPTIME' is copyrighted each month with":"the U.S. Government Office of Copyrights":"and is sold 'as is'. 'UPTIME' and its ""parent company, Viking Technologies, as-":"sume no liability for the use of the "L"material e. If you are not 100% satisfied with any 'UpTime' product, return it. We'll replace the disk or"" refund your purchase price. Just write Bill Travers or call: 1-800-437-0033":360::::" WARRANTY WARRANTY WARRANTYe to:":" Bill Travers, Editor-In-Chief UPTIME P.O. Box 299 Newport, RI 02840 " "GO TO THE TOP! Bill answers his own mail and calls. ":360:c::384:9)"THE 'UPTIME' GUARANTEE"8):380:" Our guarantee is unconditional. It's that simpl "," "," UPTIME - The Disk Monthly "," P.O. Box 299 " " Newport, Rhode Island 02840 ",""360:Q ::384:14)"WRITE TO BILL"13):380:" Any problems, compliments, or ideas? Writend check, money order or charge to","your Visa or MasterCard. Please include","your card no. and the expiration date."," "c "Add $2.00 per issue in all foreign countries except Canada and A.P.O.","or F.P.O. "," "," MAIL TO: 19:A$(X):X:X119:A$(X)::360::" == HOW TO SUBSCRIBE TO UPTIME == "," "," One issue of UPTIME $11.95"," Three issues (3 months) $30.00"{ " Six issues (6 months) $48.00"," Twelve issues (1-year) $66.00 ","Self, send us a backup of your disk."360::" Simply put your work on a disk, and send to: Jay Wilbur, Editor UPTIME P.O. Box 299 Newport, RI 02840. Make sure your disk has your name, address and phone number on it."360:::X1. We pay $50 to $250 for programs used in the magazine. Separately marketed packages are paid for on a royalty basis."%" Although the utmost care is taken in handling your programs, we cannot be responsible for lost submissions. To protect yoursreview your programs. They should be completely debugged, and include a letter describing what the program does.":" All programs should use DOS 3.3, and exit to a program called 'PROGRAMS'."y360::"We are interested in all types of soft- ware,1):M$;:M$" "āJ12:S(16336):6:868::[A$"":I140:A$A$"-"::630:aq:40)::N0:C0:::X1200:"Yes! ";:X:Z11000:Z::384:3)"BECOME A PROFESSIONAL PROGRAMMER!"3):34,2:380" We would like to l Travers":630::A$"Editor..............Jay Wilbur":630: A$"Circulation.........Donna Timberlake":630::A$"Sales/Marketing.....Danuta Moryl":630: ::::" Press [RETURN] to continue.";:678: l&vI1(A$)::D$;::M$(A$,I/ Y1(A$(X)):B$(A$(X),Y,1):B$"*"B$""> C$C$B$:M A$(X)C$: N0:C0:X0:::" UPTIME The Disk Monthly":D$"==>":I1(D$):D$D$(8):::::A$"Publisher...........Bill Kelly":630:A$"":630< A$"Editor-In-Chief.....Bil K14:" Press [RETURN] to re-read or [ESC] to quit" P16368,0:16384,128:A(16384):A141A15580 ZA141Ĭ d160 n34,0 x23:1::" [RETURN] TO CONTINUE [ESC] TO QUIT ":" [P] TO PRINT 5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.K(1101)6İ440tT$"Letters to the Editor":RP$"TOC"(:::41):40:2):40:2):40:41)::3:50:34,6:-450221((T$)2):T$:F:T$"Your letters are welcome.":6:50G     TOC"$ (13)(4)"BRUN LC.CONV":8,0:"To re-enter UPTIME - The Disk Monthly type: RUN TOC ": A155ĉ::10:12:"Please wait..."::" We are returning to the Flip Side." A141ĉ::10:12:"Please wait..."::" We are going to the Front Side." (13)(4)"RUN the Flip Side Table of Contents, just press [ESC]."` " To exit to Applesoft, press [B]." 23:1::" PRESS [RETURN], [ESC], OR [B] ": 16368,0:16384,128:A(16384):A155A141A194A226160F A194A226ĉ::8:1636%5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.K(1101)6İ220U::(:13)"THE FRONT SIDE";:13)::34,25 :4:"To see the Front Side Table of Contents, remove your UPTIME disk, flip it over, and press [RETURN]. To return toon! fA$(2)"Of course, we will bring another winning Editorial. More Product Reviews, Ask the Apple Wizard and our other regular features. LOOK FOR UPTIME VOLUME 12 NUMBER 7!" h4 h24:18)"PRESS [RETURN] -->";:678:936: eA$(1)"We give Poker a new twist with a great game called Poker Squares. Also, if you use 'The Print Shop', next month's issue will be for you. BorderCat will help you to organize your border collecti5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.A A$(15)d(1101)6ĺ" BRUN LC.CONV"m101(:::48)"UPTIME COMING ATTRACTIONS"55);:"FOR VOLUME 12 NUMBER 7"47):234,7<:I12:A$(I)::80:IF::" RUN TOC". P  ":"and questions!!"::"SAVE..SAVE..SAVE!!!!":360:M" BRUN LC.CONV": N" ":" " "a ++++++++++++++"," Donate a one-year subscription of "," UPTIME to5:::" TOLL FREE "::5:"Don't waste your money on long distance ":"phone calls anymore, use our toll free ":"number: 1-800-437-0033 for your orders 958:X:18:" Just send in the 12 month subscription":h" and ask for your JACKPOT BONUS!":360:BZ13000:Z::" Get a friend to subscribe to +++++"," UPTIME for 12 months... ++++++++"," Give a 12-month subscription of "," UPTIME as a gift... ":B$(7):X16:K$:K$(X)K$X::X512:X:E$:X::X611:X:2:F$;:X::X152:8:3:K$(X1);:9:3:K$(X2);9B$B$B$:14:" Bill will extend your subscription"::" for one extra month!":360:20:1:BZĢ10:A$" BY: LARRY SAGE ":20:34,7:BZ12 Z d::12:12:"One moment please...":104,8:103,1:2048,0:" RUN PROGRAMS" nY0 xTE$(A$,XXY):(TE$)(A$)180 (TE$,1)" "150 YY1:120 (TE$,XX1): T(A$)(TE$):T0NTINUE ";::T$:T$(13)ĭ(T$)27ĺBL$;:30A ((T$)27100G 2 <24:1::" [ESC] TO END [RETURN] TO CONTINUE ";::35,23: F:A$"RIVERS":::41):40:2):40:2):40:2):40:2):40:41)::3:12:"UPTIME Presents:":5:20, P:| 5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.i PO BOX 299, NEWPORT, RI 02840 (401) 847-2455 WRITTEN BY LARRY SAGE(1101)6ĺ" BRUN LC.CONV" 470(XX(A$))2:A$;:/ 35,23:24:1::" [ESC] TO END [RETURN] TO CO     "at least one educational program in each","issue. We strive to strike a balance","between game, utility, home or","business application and educational"l"software on every disk."Twelcome."T"v " Your letters are welcome."Ttches made","in relation to the total amout of","numbers you picked. (see Payoff for","odds) The Repeat box is used if you","would care to play the same numbers","again.",""b"To answer your question on educational","programs: you can be sure to find",space bar. When you are","satisfied with you choices, move the","pointer to the Play Box and press the","space bar. The computer will begin to","'call off' or pick twenty numbers."X"The amount of 'compucash' you win is","determined by the amount of ma gambling game played at most","every casino. DELUXE KENO (UPTIME's","Apple version of KENO) is played by","picking from one to fifteen numbers on","your KENO card. Numbers are selected by"N"moving the pointer to the desired number","and pressing the uenan","Lockport, N.Y.","":"Apologies are extended from the Editors","desk. Many letters on the subject of the","documentation for DELUXE KENO (or the","lack thereof) have reached me. The","following should clear things up.","-Jay-",""D"KENO is a not explain the directions","clearly. My family has not yet been able","to play this game.",""+"I have two children, ages 10 and 13, and","would hope there will be more","educational programs in the disks that","will soon be coming.",""0"Carol Q""Ĺ37,21(37)21İ110'4602216,0:70"Dear UPTIME: ","We are recent subscribers to UPTIME and","my family has spent many hours enjoying","the new programs each month.",""_& "On Volume 12, Number 3, the game Deluxe","Keno does0L:13:14:"Printing...":::"Press [SPACE] to pause, [ESC] to abort"l32,0:33,1:34,23:35,24:(4)"PR#"PS:16368,0:(13)(4)"BRUN LC.CONV":::520A$(37)(34)A$""460A$:(A$)40ĺ (37)20A$B$"":C%0:2506 ^216,0:A$""ĺA$" ";:B$""ĺB$V h:(4)"PR#0":::34,8::p r(4)"PR#0"::34,8: |14:14:"Pausing...":::" [SPACE] to continue, [ESC] to abort " 16368,0:16384,128:A(16384):A160A155390A15536(A$,1)" "A$(A$,(A$)1):2605 A$""ĺ:250= B$Q "B$""B$(13)x ,(A$,1)"-"A$(A$,(A$)1):C%1 6(16384)155Ĺ16368,0::(4)"PR#0":360 @(16384)160Ĺ16368,0:370 JS$" ":C%1(A$,1)" "S$"" TA$S$B$:A$"":A$"7"ĭA$(13)A$(27)180: A$(13)A$(27)360G PS(A$) :13:14:"Printing...":::"Press [SPACE] to pause, [ESC] to abort" 32,0:33,1:34,23:35,24::16368,0 :(4)"PR#"PS::350 T$:A1(T$):"-";:: A$#  ";::1:23S 16368,0:16384,128:A(16384):A141A155A208A240130b A141ė:w A208A240180 :12:12:"One moment please..." :(4)"RUN";RP$ :16368,0:14:1:"What slot is your printer in? (1-7)? ";:A$:A$"1"΁   @< @ = (> ?  @  ABC@D@ EF"PGHIJKLM N @+ ,  @*- @. @P / @ 0 @ 1 @2 @3 4@ 5@ 6@ 7@ @(8@  9@  :  @; (          " @A *(  U! "A  # $ % & (' @U( ) A* "s(@P@*@" @ @    P@      P  @ @       KANSAS{X 120,111,48,PLATTE,106,92,48,MISSOURI,98,140,16,RIO GRANDE,70,116,16,COLORADO,70,100,16,SNAKE,66,76,16,COLUMBIAted next to the map. Type the number of the river's name."LD110:30:250N 46,45,0,YUKON,86,35,32,MACKENZIE,106,68,0,NELSON,150,74,0,ST LAWRENCE,166,80,16,HUDSON,164,115,48,POTOMAC,160,106,32,OHIO,150,120,32,MISSISSIPPI,120,140,48,RED,128,130,48,ARL$;:5305T$"Y"T$"y"ĺ" BLOAD ASCII.SET":570f&T$"N"T$"n"ĺ" BLOAD ASCII.SET(BW)":570o0100:::11:A$"This program draws a map of North America with its rivers. An arrow will point at a river and the names of four rivers will be lisO%(16,3),R$(16),D%(16),C%(16),C$(4),F$(10):I116:J13:CO%(I,J)::R$(I)::BL280^7020:1:"Are you using a color monitor? ";::"(Y/N)";::" ";24:12::A$" [ESC] TO END ":20:T$:T$"Y"T$"y"T$"n"T$"N"ĭ(T$)27ĺB510(104)645002104,64:103,1:16384,0F" RUN RIVERS"::" BLOAD NORTH AMERICA1":" BRUN COMPACT READ.FILE":" BLOAD ASCIIMID.SET":" BLOAD CLEARBB"VBL$(7):BS$(8)(95)(8):D$(4):KY16384:KP16368:1:0:XX40:CT0:C2048:280_BZ1:16303,0:35,24::70::8:A$" RIVERS MISSED ":20::10:15:"SCORE = "CT::I1M:14:F$(I)::30220:VT45:I12:HT184:ST$"SCORE = ":190::ST$(CT):HT184:HT244:190:ST$"0":HT244:190:16304,0:16302,0::BL1:,VT:JANVT45:HT244:ST$(CT):190:CTCT1:HT244:ST$(CT):190:ST$"CORRECT":420|ST$"INCORRECT":MM1:F$(M)R$(I)VT100:HT185:190:30:CO%(I,3):230:30CO%(I,1),CO%(I,2):0 8,27:9,13:6,89:253,13:2048:8,25:9,15:6,103:253,56:$(L)R$(K):C%(K)1:Eh230:CO%(I,3):30CO%(I,1),CO%(I,2):0:220rVT98:QR14:VTVT12:HT168:ST$(QR)"."C$(QR):190:|VT156:HT181::ST$"ANSWER:":190T$:T$"1"T$"4"ĭ(T$)27ĺBL$;:390(T$)27100VAN(T$):16AN246":190:ST$(CT):HT244:1903 PRPR1:PR10440_ "QR116:C%(QR)0::QR14:C$(QR)"": ,I((1)161):D%(I)1300 6C%(I)1:D%(I)1:J((1)41):C$(J)R$(I) @QR13 JK((1)161):C%(K)1330 TL((1)41):C$(L)""340^C0:16297,0:1:230:1,159279,159279,1911,1911,159:175,16257,16257,28175,28175,16 VT25:HT170:ST$"RIVERS":190:VT170:HT2:ST$"<1-4> TO SELECT ANSWER":190:VT183:HT8:ST$"ESC ENDS: RET CONTINUES":190 220:VT45:HT184:ST$"SCORE = 180 A$(A$,T):110! A$:I F1(ST$):((ST$,F,1))TL0210o ((ST$,F,1))TLFHYHT,VT:210w : HY8:TL32:232,112:233,23: HY12:TL32:232,250:233,10: HY20:TL35:232,252:233,28:Z 16304,0:16302,0:16300, lL`inLLNLN 8J      !$ h i " $$$II ۛiJN LLI!$$$$$MI 66 3 #$$N 6$ h N6$$l II $vi $$NL  ``i I!$$ k 6vi $I lII6$$J`qq!$$\ LLL $ II LLLLII LL I!$$$ l LL  سjII I!$lII" n  66&H ܖIIN $$$XIMIp! NNpi LI$$$  $L U $$$&JIIL X& $$, N#  L $$$ N6I $di  $$$ 066& $$l  Vi $$$$$II sqq!II $$$$$$ Jrih066&$$$Njj $$$ $di 66$$$  $di 66L $$$ RI pi  L I!$$MI  $$MI 66Iaa!$66666MI $$$2HIIn U  3 L" di &II $$vi HHI  Ik HLLL  XII N`i J&II  $di 6J $$ `qq16&$$$  II  $di $$$ 66 66&H $$$ nJI! XILLۓX2 2N V N XI6I#lh Iaa!, I!$$J` U ۣI $$VJ H I!H L $, 66 L XI!$$M!`i ޟn `i j2 II$$$n M!XII6 6 X /_4>FOgqx 1BHO[j 0:KWer$;MYfrx*0AJWbov/I! $$X1n $ $$$M166&H ߳# KI$$$Nri ,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048 120 ((X$)271670( 2X$(8)90> <AN$""ĺBL$;:30] F(AN$)1AN$"":BS$;:30 PAN$(AN$,(AN$)1):BS$;:30 ZX$(13)(AN$)0ĺBL$;:20 dX$(13)AN$"INV."AN$:150 nBL$;:30 x(AN$)LĺBL$;:30 X$;:AN$AN$X$ b) WRITTEN BY LARRY SAGEJ PUBLISHED BY VIKING TECHNOLOGIES, INC.o PO BOX 299, NEWPORT, RI 02840 (401) 847-2455 FG0:1680AN$"":VT:HT:868FG026"INV.";T1L:"_";::T1L:(8);: X$:X$J$X$K$           !!! ! ! ! ! !!!!!!!!!""" " " " " $ !$$NL  `i $$k 66 $$6vq  $$$M16  M  RI $6n#ILL I`! [I$$$ L<hh"MLETTEYFPIPIP? 5eOi   4$ $N6 $ֳK!$$M1Id!l  RIRI$$$ n2n2 $$$  N&pik#$$$ I LL  $$$&I`i"$$di $ܟvi$$$ 6 $ &p $ $$$ VK $ $$$$$_I2 P16&$$6 H66 d!6$$l#I!$2 $$d1 66&$$$ s1I  $di"$$$ 66I$l l $l$ I 0 $di"$$$ 066&  $$ #pi $$$$$ l 2I$$$$$$PI666  $$$M166 $$ $di26#$$$ # $di26#$$$ s1&I  L $$$M! $$366n  $$M166$$$M166 ۶ XI$X1& $$ $# $$$M# $M! #h K! ( $di26#  $$Ida!<pi L"I!$$3nM!pi P l vi $L l vidi2I!$$ܟv!X   (L  I ܖj d &؟I  $dip_(06<@HS\gp{$.9BN[ely,6BKOS\cnx )6AU`lv} $$6M!$$$$M166&M $$$NN{I  ` X66$$-6&)- ?6"$$-?I!"$?v-$$ ---? -%I ? $/- ) T$6& $3v- %$6&   - $$3v--- X ??I9''g%g- $$$-,< '? 5eOi   $$36  q$$$366,(p&  $<8 M1I9?'     & NN3NU3Ĺ16303,0:IMMI:170:1610HIM200820RVT160:HT30:ST$"DO ANOTHER ITEM? (Y/N) _":370\T$:T$"N"T$"Y"ĭ(T$)27ĺBL$;:T$(13)790BL$;:6104(AN$)LĺBL$:610_T$(34)T$(44)T$(58)ĺBL$;:610qT$(32)770A(T$)TL:AHT,VTHTHTHY:AN$AN$T$ 610AN$""AN$"XXXX" ITEM$(IM,PL)AN$:VTVT14:HT95:PLPL1:PL10830*60AN$""ĺBL$;:16368,0:610G(AN$)1AN$" "HTHTHY:AN$"":610(AN$)1HTHTHY:A(AN$)TL:AHT,VT:AN$"":610A((AN$,1))TL:A0HTHTHY:AN$(AN$,(AN$)1):610A((AN$,1))TL:HTHTHY:AHT,VT:AN$(AN$,(AN$)1):610 ,112:233,23:1DHY12:TL32:232,250:233,10:TNHY20:HL35:232,252:233,28:_XAN$""b(KY)128ĕ11HT,VT:Q150::11HT,VT:610lK(KY)128:T$(K):KP,0vT$(32)T$(95)730(T$)271670T$(8)T$(127)710LETE FILE "FL$"? ";::"(Y/N)";::" _";:(8);:T$nT$"Y"T$"y"T$"N"T$"n"ĭ(T$)27ĺBL$;:540&:(T$)27T$"N"T$"n"1670022:1:958::A$" DELETING FILE "AN$" ":160::D$"UNLOCK"AN$:D$"DELETE"AN$:1670:HY8:TL32:232"WHICH FILE? ":FG1:20:FG0:FL$AN$:NU4540]34,7:D$"OPEN"AN$:D$"READ"AN$:NU3NZ2IM:I1IM:J19:ITEM$(I,J):::D$"CLOSE"AN$:NU1,1230,1230,540,123016303,0::220:14::A$" FILE IS EMPTY ":160:3FL4:22:1:868:3:"DE A FILE"::160::34,9:12:12:"Catalog Disk? ";:T$uT$"Y"T$"y"T$"N"T$"n"ĭ(T$)27ĺBL$;:462T$"N"T$"n"500T$(27)28044452,11:44605,10:" CATALOG".FL1:20:1:958:J$"A":K$"Z":VT22:HT13:L7:22:1:,1))TL03903|((ST$,F,1))TLFHYHT,VT:400lSPāQ19:FHYHT6,VT(Q2)FHYHT13,VT(Q2):t:~KP,0(KY)127420(KY)12813ı(KY)128271670BL$;:410::FL3:35,24::220:7:8:1:868:A$"SELECT12:12:"One moment please...":104,8:103,1:2048,0:" RUN PROGRAMS"N "Y0s ,TE$(A$,XXY):(TE$)(A$)360 6(TE$,1)" "330 @YY1:300 J(TE$,XX1): TT(A$)(TE$):T0360 ^A$(A$,T):290 hA$: rF1(ST$):((ST$,FE UP --> MOVE DOWN [ESC] MENU ":" [RETURN] TO SELECT ";:35,22: :A$"UPTIME Presents: HOME INVENTORY":::41):40:2):40:2):40:2):40:2):40:41)::3:4:A$ :5:22:"By: Larry Sage ":34,7:BZ1 F ::24:3::" [ESC] FOR MENU ";::35,23: 24:2::" [ESC] FOR MENU [RETURN] TO CONTINUE ";::35,23: 23::" <-- MOVE UP --> MOVE DOWN [ESC] ENDS ":" [RETURN] TO SELECT ";:35,22:U 23::" <-- MOVhe files, a Disk Full error will be avoided.";*290:180*35,24:KP,0:HZ13::8:1:868::10:" SELECT AN OPTION "::11:QR15:HZ:MU$(QR):::230:11:NU1:VT11*KP,0:VT:HZ::MU$(NU):*&(KY)1271830*0(KY)128211890+:iles HOME INVENTORY, ASCII.SET(BW), ASCIIMID.SET, CLEARBB and COUT To an"n) 290:22:24:"initialized":180-*:10:A$"DOS 3.3 disk. As a file gets larger the disk will get fuller. Eventually to the point of filling it up compleatly. By transfering ttion of the program. View the sample file named: 'SAMPLE'."I(290:180S(:10I)A$"The prefix 'INV.' is used by the program for file identification. When typing in a file name it will automatically be appended. We recommend that you transfer the f:I13:NN$(I,1):NN$(I,2)::I19:AY$(I):<'BL1810E'250O':10;(A$"This program allows you to create, edit and save inventory files of up to 200 items. You can create as many files as you wish. Follow the directions as you use each secLOAD ASCIIMID.SET":" BLOAD COUT"E&(1101)6ĺ" BRUN LC.CONV"P&1980&BL$(7):BS$(8)(95)(8):D$" ":KY16384:KP16368:1:0:XX40:HC1:NZ1/'MU$(5),NN$(3,2),ITEM$(200,9),TF(200),FD$(200),AY$(9):I15:MU$(I)::I1200:TF(I)I:"T$"y"T$"n"T$"N"ĭ(T$)27ĺBL$;:1640Q%r(T$)27T$"N"T$"n"1670Z%|930~%:16303,0:35,24:BL1::1720%(104)641710%104,64:103,1:16384,0%" RUN HOME INVENTORY""&" BLOAD CLEARBB":" BLOAD ASCII.SET(BW)":" B$(QR1,J)::G$J4:22:868:SY$" ANOTHER ITEM? (Y/N) _";:(8);:T$$MT$"Y"T$"y"T$"n"T$"N"ĭ(T$)27ĺBL$;:1610$T(T$)271670$^T$"Y"T$"y"Ģ22:1:868:$h2:22:868:8::" SAVE THE FILE? (Y/N) _";:(8);:T$0%kT$"Y12832İ410:KP,0E#(KY)12813VZ(37)1:1570:34,7:35,20:VZK##"KP,0:22:9:"WHICH NUMBER? ";:J$"0":K$"9":L3:VT22:HT23:20:AN(AN$):ANIMĺBL$;:1570#,NN3IMAN:1090#6IMIM1:IM0530 $@QRANIM:J19:ITEM$(QR,J)ITEMN"35,24::8:NN2A$"REMOVE WHICH ITEM?"::160:170::10:SY$" REMOVE""NN3A$"CHANGE WHICH ITEM?"::160:170::10:SY$" CHANGE""34,7:35,20:MIIM:I1IM:6:I9Ė5"IMIMIIM1560"I". "ITEM$(I,1)"QR1125:#(KY)ɢ20:A$"NOTHING FOR THAT SELECTION"::160:180:1230D!NU51060!1090:I1TY:VT21:KTF(I):J19:VTVT14:HT95:ST$ITEM$(K,J):370:"180:QR2914114:8,12:9,27:6,QR:253,7:2048:::HT97:VT162:ST$"{LISTING FINISHED}":370:180:1670NN2NZ1ĺ"WHICH ROOM? ":HT13:20:RM2Z dNN3NZ1ĺ"WHICH CATEGORY? ":HT17:20:RM7n nNN1NZ21090 xNN2NZ21480 NN3NZ21480 NN1TYIM:1450 FIND$(AN$,5,17):TY0:I1IM:FIND$ITEM$(I,RM)TYTY1:TF(TY)I5!:TY0 (KY)128271810,BL$;:KP,0:1250LVT:HZ:NN$(NN,NZ):NNNN1i(VTVT2:NN3NN1:VT11s21240<VT:HZ:NN$(NN,NZ):NNNN1FVTVT2:NN1NN3:VT15P1240( ZKP,0:35,24:17:958:220:VT18:L22:J$(32):K$(95):18:1:5:L21:IMIM1:600M35,24:KP,0:HZ13::8:A$" CHOOSE ACTION "::160:11:QR13:HZ:NN$(QR,NZ):::240:11:NN1:VT11KP,0:VT:HZ::NN$(NN,NZ):(KY)1271250(KY)128211310(KY)12881340(KY)128131370______________":370VTVT14:HT8:ST$"DESCRIBE: _____________________":370:VTVT14:ST$" OTHER: _____________________":370:NU1PL1:VT35:HT95:L21:IM1:600NU3NN3PL1:VT35:HT95:L21:600NU2ıNU3NN1PL1:VT35:HT9 COST: _____________________":370VTVT14:HT0:ST$" CHECK #: _____________________":370:VTVT14:HT0:ST$"WHERE GOT: _____________________":370VTVT14:HT0:ST$" WHEN GOT: _____________________":370:VTVT14:HT0:ST$" CATEGORY: _______,5,7):3701j1,170277,170277,1911,1911,170qt570:VT183:HT8:ST$"{ESC} TO MENU {RET} TO CONTINUE":370~VT36:HT0:ST$"ITEM NAME: _____________________":370$VTVT14:HT0:ST$" ROOM IN: _____________________":370:VTVT14:HT0:ST$"         )-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?;?F" `((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048 CREATE A FILE,VIEW A FILE,EDIT A FILE,DELETE A FILE,PRINT A FILE,ALL ITEMS,ADD TO,ONE ROOM,REMOVE FROM,ONE CATEGORY,CHANGE/UPDATEa1H "ITEM ","ROOM IN ","COST OPENED ":160:22:A$" OR DISK NOT INITIALIZED ":160:180:FL500,930,460,500Y/ 1670/:220:21:3:"FILE EXISTS: REPLACE IT? (Y/N) _";:(8);/ T$:T$"N"T$"y"T$"n"T$"Y"ĭ(T$)27ĺBL$;:20800*:T$"N"T$"n"(T$)27ĺD$"LOCK"A500.ER9Ģ20:1:958:20:160::21:A$" DISK FULL ":160:22:A$" TO SAVE A FILE REPLACE DISK ":160:D$"CLOSE"AN$:180:930.ER13Ģ20:958:20:160::21:A$" WRONG FILE TYPE ":160:180:500O/ER8Ģ20:958:20:160::21:A$" DRIVE DOORT ON DISK ":160:180:500y-ER6ER5Ģ20:958:21:160:22:::A$" LIST NOT ON DISK ":160:D$"DELETE"AN$:180:500.ER4Ģ20:1:958:20:160::21:A$" DISK IS WRITE-PROTECT ":160:22:A$" REMOVE TAB ":160:D$"CLOSE"AN$:180:FL500,930,460,,ER(222):A$"-- ERROR HAS OCCURRED --":3288:,20:958:21:160:22:::A$" FILE NOT FOR THIS PROGRAM ":160:180:460,ER(222):A$"-- ERROR HAS OCCURRED --":3288:,FL2FZ1-FL4ER6ER5Ģ20:958:21:160:22:::A$" LIST NO(KY)12881920-+D(KY)12813İ1950:1810C+N(KY)12827280S+XBL$;:1820p+bVT:HZ:MU$(NU):NUNU1+lVTVT2:NU5NU1:VT11+v1820+VT:HZ:MU$(NU):NUNU1+VTVT2:NU1NU5:VT19+1820+KP,0:NU1090,460,460,460,4603