A@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)ǥ%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}NjL= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"!GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G}Ǡ}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}ǿ0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}ǞC, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}ǫΞ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}Ǎ`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH}G,^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}I}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO}: TOO LONG B VL!` L1I H1EΝDL1?@D|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 128ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}rDECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8wuR}r ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8wuN) !"`3!3 +JP@TX@\>(}LIST 500 TO 699 FOR INFO!_}!!()!!(>!!(̠䠪!!(`}1򠪪#!!((!!(D-!!(򠪪2!!(㩱a}͠ˠ7!!(+5<!!(NWAj@[_@cq'AR@u*(7;b}@,D6.j(!IS THIS PROGRAM CURRENTLY RUNNINGFc(UNDER DOS  ES/O) A9(  Ӡc Ac}$+"@C ,%A$+"@5 -,KT(-("MT("|PLEASE INSERT A BLANK(!) DISK IN|PQ*("d}y|DRIVE:1 - *CAUTION* THIS PROGRAM|Q("|WILL FORMAT THE DISK, DESTROYING|Up*("|ALL DATA! PRESS TO PROCEED|S(#}e}'`;@+G,p6. *CAUTION*ZH-@KtB:,267<,.>:@:7<,,%A(,D-@x@ f}H(_4-@@/,F:B2y,@3F0 4 dH-@JsB:,267<,.>:@:7<,,&A(,D-@w@ g}H(i>-@@.,F:B2y,@2@0 4 > @DKn-QSYg(/-@ko@syA-@}h}G(K _-@"@&,q-@028Hw({ -@LP@TsG'(FORMATTING D1: DENSITY...1i} A%="@GG A0xM"@P*4CAS@KMSU[D1:M A0},,AT@j} -D1:! (DONE! B1L! AUzAi@P^'Ap@bp9At@t`Ark}IC:,&P:C:,'AV,$AVzAsP:C:,'AV,Ax@MY'Ay_9AqA(C ATl}C6-?:C:hLS,,fAi@!/xAp@3AAt@ED*ArC:,&P:C:,'AV,$AVDAsP:Cm}m:,'AV,TAx@!-'Ay3q9AqA(C AT6-?:C:hLS,,zAi@u'Apn}@ 9At@n`ArC:,&P:C:,'AV,$AVzAsP:C:,'AV,WAx@r'Ayo}c9AqA(C AT6-?:C:hLS,,W(|%(WRITING SUPER-BOOTER FILE...0@gnY@rv@zp} D1:BOOT.SYSg(@(r@,?|(DONE!4@5CH@LNTV\x D1:BOOT.SYSFAp@|q}P AEs67@<@:,. Ap@>h AE(DIRECTORY DRIVE-1=@lp@tv|r}D1:*.*J@ N([@$6_(qAR<AdAUAdAU06-F:Ad,0s}@C *@5AAdAU$n6-@P(8(!WOULD YOU LIKE THIS DISK IN ATARIT(1050 DENSITY t}- ES/O^ An(  Ӡ"@C1y6.$,)(WRITING BOOT SECTOR - F:Ax,,$#;@}u},#6. (H(,(!IS DRIVE-1 CAPABLE OF TRUE DOUBLEH(DENSITY(180K)  ES/OV A(  Ӡ56v}-@$+"@C,D6-F:@"-,S6-F:@1F,V$oAi@JX'Ap@y\9AqA(KAt@w}]Av@!oAw'D*ArC:,&P:C:,'AV,$AVDAsP:C:,'AV,26-?:C:h Yx} L,,#@/@12$Ai@5C'At@GNArC:,&P:C:,'AV,$AVhAsP:C:y}+,'AV,zAxAAy@/)AqA(&6-?:C:hLS,,)$W;A(,W6.@ Lz}B} 5 _$% l0$)$A$67B:,%@Fc,. $Hȱ$ UhLA67B:,%@gn,.>:@4r, KK67B:{},%@ ,.3 `e$$%`$%`  R@W!W;A(,W6.@( L(1 |}+  Y I` HH67B:,%@/s,.0 d  Ld M * @  $ % C((67B:,%@w,.}}uC$$)W;A(,W6.@%1 Udߥ$9%: !0 S$%"HH67B:,%@y,.0~}C@ DD˙`  }J'((67B:,%@Dc,.)Lr ,;@g$A(,1tt67B:,%}@w,.\X`xԍԬӭ t ˑ͍0 xԭ) t ͑ˍ6tt67B:,%@{,.}n\0 X@L ˩̩ͩ0΢@`ʈ` (!x$q$gň;tt67B:,%@r,.\}e*-x$q$Ĉé a$ / @rr67B:,%@i,.ZBD!Ec}ZHI VX˥Y̩qːy$y$ɵ ҍL]!ux$XE 67B:,%@^e,.>:@4i,Jtt67B:,%@}q,.\/w$I8w$< e ԍ ԍЭ) Ѣi${ͩ$΄˩̱̅OLL67B:,%@u,.4}@̥ɴ&Z7έ[8ΩZ̍[Lw}Tw 67B:,%@D],.>:AU,Z67B:,%@af,.%}} w67B:,%@:,.>:AU,Y|!67B:,%@>X,. |HappyXL >67B:,%@\c,.>:@4gu,_67B:,%@y,. }SUPER-BOOTER|67B:,%@$,.>:@4(9,^}&67B:,%@=\,. version 2.0?|C67B:,%@`y,.>:AU,}67B:,%@}},.%(9cr 67B:,%@=V,.>:AU,U67B:,%@Z],.c *** by the Happy Hacker **}*r67B:,%@.,.>:AU,hZ 67B:,%@2K,.>:AU,=67B:,%@Oh,.>:AU,Z67B:,%@l,.>:AU,mZ=} 67B:,%@,.%7EZ67B:,%@Ie,.>:AU,rk667B:,%@i,.|Insert disk for} fast boot in S67B:,%@&,.>:@4*8,k67B:,%@<S,.D1:wT 67B:,%@W^,.>:@4bp,767B:,%@t,.,|T6} 7B:,%@*,.>:AU,|Z=67B:,%@.d,.%|then press , , or !|Z67B:,%@h,.>:AU,Z=67B}:,%@ ,.%3AZ67B:,%@Ea,.>:AU,Z 67B:,%@e,.>:AU,=67B:,%@},.>:AU,Z67B:,%@">,.>:AU,Z=67B:,%@BG,.%jxZ67B:,%@|,}.>:AU,Z=67B:,%@U,.%|HappyXL O/S V/2b @ 1986 Tim Patrick|Z67B:,%@Yu,.>:AU,Z=67B:,%@y,.%}$2Z67B:,%@6R,.>:AU,Z=67B:,%@V,.%|The high speed I/O driver is @ 198}C6|Z67B:,%@/,.>:AU,Z=67B:,%@3i,.%|Happy Computers Inc., it is used by|Z67B:,%@m,.>:AU,Z} =67B:,%@F,.%|permission - and is only for use by|Z67B:,%@Jf,.>:AU,Z=67B:,%@j,.%|registered Hap}#py Enhancement owners|Z67B:,%@'C,.>:AU,Z=67B:,%@GL,.%oZ67B:,%@} ,.>:AU,tt67B:,%@$@,.\~ý~Jm2: ˅_L6΢ HH} tt67B:,%@,.\   60?@ 60@ˢh @PRWЎ<}tt67B:,%@,.\x7 605҅382 $p(  9 08 : ;44 Mͭ234$ptt67B:},%@ y,.\, M5 ,P1 ͠ ͑2 4 1Xҥ ͤ07LX` Πtt67B:,%@}}p,.\21 4 2  L^ͥ1 έ) ͩ#0<$506Ḽjj)?j) Ω< tt67B:,%@t,.\A}gC Eĩ0&͍'L\e1i1`) ߍҩҭҍ ) `H)FC67B:,%@k,.+ҩh `}'#ҍ ҩ(ҩҩ`L6F$##C""|SUPER-BOOTER was written to!!|run INFOCOM games} at HAPPY""|speed but it will work with |many other programs also! |""|Most "protected" programs &!!|at} least one of the latest|INFOCOM games (LEATHER!""|GODDESSES...) will NOT work&##|at high-speed! Programs that+}##|do not use the RAM under the0 |O/S ROM bank should work!5|:|HAPPY is a trademark of:?|HAPPY COMPUTERS,}H Inc.D|I!!|INFOCOM is a trademark of:N|INFOCOM, Inc.S##dkX##}} p]!!| If you like this program,b##| you can thank me by sendingg| $10 to: TIM PATRICKl!!|y 544-}C WAILEPO ST.q | KAILUA, HI 96734v|{##| I will then send you a disk##| containing more information}##| about HappyXL, SUPER-BOOTER##| and DOS . There will be##| info on how they work, what""| they will (and }won't) work##| with and some utilities for!!| XL/XE computers including!!| revision 2.0 of my ULTRA-| TRANS}C7LATOR!|##| Aloha from the Happy Hacker##S D:HAPPYXL.BAS ULTRA-| TRANSiM12"11DOTRKHKHHKBMGTMPDZFBhdA0QRYZabijqry}   $( AQ,- 45<=DELMTU\]delmtu|} '(/08VSAVE "D:SHRLOK.BAS-\qAP  Au A}5o6-@6-@ &'6-,236-8@?6-@DLK6-@6PVW6-\dc6-@hpo6-@t6-P}:H: ,$@, +@!A AV'AV A`EPd6-R:V^,e%%2dflntv|} nf"@1%@.%36-%@2:A-&@>GP(@KW \"@[af A@epxf"@t1&@}%36-&@#A-%@'0P(@4> \"DJf A@NYf"@]g1&@k%36-&@}A-%@P(@' \"-3f A@7Bf"@FP1%@Tf%36-%@jtA-&@xP(}@ \"@ f A@ ) @->,"@7BH ApLW"@8[p Ap"@t Ap@} "@% Ap0#"@8)/*"@3H# App#"@7LR*"@Vk# ApP :"@os*"y+-}@ @":(@(%*5"@,0*"6<#@@F5,@JN@"R]4:"@ae*"kq+-@uy@"}}:(@ %"@$ A(9AY@4=HU"@LP40VZH:`e,$@im@qwF-@{}@" U(@ ("@@$9 Ap"@=C AGR"@V\ A`tF:B2y,"@x%} A ! &6-F:A,&@%K&AV 6-$AV -QA# %F:BsD%,   #} /-@ "+@$7%%/  /-=A@EO"+@2Sf%%/  /-lp@t"+@}@%%/  /-"@&0"+@H4G%%/  /-MQ@U_"+@Vcv%%/ /-|}@"+@d4%%/ $PAY:@+"FL*"@Pb5 A`A6-@fnM6-@rP$>"}C@ *"# A`!/6-'/;6-@3A>$>"@EK*"@Oa# A`/6-@em;6-@q>$>"}@ *""# A`/6-@&.;6-@2@>$J"@DJ*"@N`# A`/6-@dl;6-@pxG6-@|} J$J"@*"-# A`/6-@19;6-@6=EG6-@IWJ$>"@[a*"@ew# A`!/6-@{;}6-@ >$>"@ *"&8# A`/6-@<D;6-@HV>$>"@Z^*"dv# A`%/6-@z;6}-@ >$>"@!*"@ %7# A`!/6-@;C;6-@GU>$>"@Y]*"cu# A`0/6-@y;6}-@>$>"@ *"@$6# A`%/6-@:B;6-@FT>$>"@X\*"bt# A`0/6-@x;6-}@>$J"@*"@ #5# A`5/6-@9A;6-@E_G6-AdJ$J"@cg*"m# A`/6-}@;6-@G6-@,J$>"@04*":L# A`@/6-@PX;6-@\j>$>"@nt*"@x# A} `5/6-@;6-@+>$>"@/5*"@9K# A`E/6-@OW;6-@ [i>$>"@ mq*"w# A`} 5/6-@;6-@*>$>"@ .4*"@8J# A`P/6-@NV;6-@Zh>$>"@lp*"v# A`E} /6-@;6-@ )>$>"@-3*"@ 7I# AP/6-@MU;6-@Yg>$>"@ko*"u# A`e} /6-@;6-@(>$>"@,2*"@ 6H# A`/6-@LT;6-@Xf>$>"@jp*"@t# A`U} /6-@ ;6-@'>$>"@+1*"@ 5G# A``/6-@KS;6-@We>$>"@im*"s# A``}/6-@ ;6-@&>$>"@*.*"4F# A`p/6-@JR;6-@Vd>$>"@hn*"@ r# A`e}/6-@ ;6-@%>$>"@)-*"3E# A`P/6-@IQ;6-@Uc>$>"@gm*"@q# A`p/}6-@ ;6-@$>$>"@(.*"@ 2D# A`u/6-@HP;6-@Tb>$J"@fj*"p# A`@/6}-@ ;6-@-G6-AdJ$#"37*"=C# AGPp{+@TX%@\v)AV'AV3@6zE,}@ @ W/@ !%i/+-39{/@=?EPq="@TX^b+,hl@pt=/z@}Ct$us +@2!AV'AV+@66:=,@BHNO/@RTZ^a,dh@ lrs/@v@ } w0"!-@@")0(@-:%x5"@D*"JP#@TZ5,@^b@fuy$zs +@y!}AV'AV+@6=,$&,2O/@68>Da/@HL@ PTs/Z^@ bm{="@qu{+}EB,@ @=/@@"+|0"17!-@;?@CJ0(@N]&}5"@ae*"kq#@u5,@}@ ~$ +@7!AV'AV+@;?=,EGMSO/@WY_ea/@im@ qus/{}@  /!+"'-@17+,@;?@CJy PT,Z^@bf1/lp@tC,@} U/@!g,@%)@-3y/@7;@?JG"@NT*"@X\#bh5,@lp@ tG/@}@ 8"@*""(#@,25,@6:@>P8$$ +@Tn!AV'AV+@rv=,|} O/@a/@#'@ +/s/59@ =A/GIOZ5"@^b*"hn#@rx5,@|}@X ,@ &,1/@028<C,BF@JNU/TX@\hX$ +@l!AV'AV} +@ =,%O/@)+17a/@;?@ CGs/MQ@ UY/_agnU t,@}@ 1/@@ C,%)@-1U/7;@?J5"@NR*"X^#@bh5,@lp@t$} +@ $!AV'AV+@(,=,24:@O/@DFLRa/@VZ@ ^bs/hl@ pt/z}  ,@ @$*1/@.2@6<C,@@D@ HNU/@RV@ Zbk"@fj*"pvu@z,}@ @$ +@"D!AV'AV+Ad=,JLRXO/@\^dja/@nr@ vs/}@ /$| *0,@46<B1/@FHNRC,X\@`dU/jn@rxg,@|}@ y/@@%|$ +@)K!AV'AV+Ad=,QSY_O/@cekqa/@uy@ }}s/ @ /$-+"39@8=C+,@GK@OV_ \b,@fj@nt1/@x@} ;@6 M,@@%_/@)-@1<="@@DJP+,@TX@ \b=/@fj@ n$ +@}&!AV'AV+Ad=,,.4:O/@>@FLa/@PT@ X\s/bf@ jn/tv|}CW"!,@ &3/@*.@26E,<@@DJW/@NR@V]U cg,mq@uy1/}}@ C,@@"U/@&*@.=$ +@Ac!AV'AV+Ad=,ikqwO/@{} a/@@ s/"&@ *./46<G="@KOU[+,@_c@gm=/@qu@yU}  ,@1/%)@-3C,@7;@ ?EU/@IM@ QdU Ad,@hl@ pv1/@z@}# C,@@ U/@!%@#)8$ +@<`!AV'AV+AdE0@dh@lp@txW,}} i/@!{/@%)@ -1/7;@ ?C/IKQX1 ^b,hl@pt1/z@}$ +@<!AV'AV+AdE0@@D@HL@PTW,Z\bhi/@lnt{/@}@ /@ /%'-4U :@,@DH@LR1/@VZ@^dC,@hjpvU/@z}$ +@2!AV'AV;0@6:@>B@FTEAdW,Z\bhi/@lnt{/@}@ /@ /%'-86-@<@@DL#-@PW2(@[j$6 U pv,@z@}  1/@@ C,@!#)/U/@35;J$ +@Nr!AV'AV+AdE0@v@}@ W,!i/@%'-3{/@7;@ ?C/IM@ QU/[]cn="@rv|}+, @=/@#,+"28@7<B+,@FJ@NU1 [a,@ei@ ms1/@w@ }$ +@1!AV'AV-6-@5;7@?EQ0@IM@QU@Y]c,cekqu/@uw}}/@ @ / @ $(/.06AH6-@EM6-@QW'"]c9-@gk@ovH(@z}(1 ,@ &1/@*,2A$Xm"GO6-@SW=2]aAei@mq@uI6-} [-@@"j(@!3%m$b"@7=*"@AI%6-@MQG2W[@_c@gk@ouS6-{]}o,@@ /@$(@,2-@6:@">E(@IY $vh"_g6-@ko=2uyA}}C@ @I6-"S@&,e,@04@"8Fh$"@JP*"@T\%6-@`dG2jn@rv@z@} S6-]!o,@%)@ -3/@7;@ ?E-@IM@"QX(@\n $"@rv*"|}%6-@ G2A!@%)@-3S6-9?e-@CG@"KRt(@V^%~dh,nr@v/}@ $"@%"@)1'6-@59I2?C@GK@OS@W]U6-cg_msq,@w@ }/@ @ -@"@"&-(@1C $x"@GM+-S_AP@cgG2ms@w@}K W6-@i-@ @"$+x(@/>(a"@BF12LNTV\^dq7-F(@u R6}-@^6-@a$LL%2$(A,0@48@<B9-HL@PPZ= I6-`nL$@P!@r6-&@} )-@ 8(@&$D"@*2P6-@6AE"@6EK AO\G)6-%@`h"@lr)6-xJ&}-@&@&(@0 $(#V-6:A>B@FJ;2PV@Z^@bhO0@lr@vS V%}Z#_#s +@7!AV'AV+Ad=,@;=CIO/@MQ@#U[a,@_agms/@qu@#y`#}- @a#"@"(+@,P-AV'AV7AdQ0@TX@\`@dl]6-@pto,z} /@ /@!%@ )//@35;?/EGMXd#-@\`@dq-,(@u!:-}&@ I(@# W6-%@'+s217@;?@COw -@SZ(@^t n# x#M6-@x@},);,#@'+M/15@9B}#-HL@PPT@X\A2bfAjn@rv@zE }g2 #)y-@-/5<(@@W#$#E6-%@[c-@gn-(@r$ 9"}@ E6-#"@6!' A+@#$# !6-FW#  6-@[l#  6-@p# !6}-@$P"1%@#7%36-%@;CA-&@GPP(@Tc  $P"@go1&@s%} 36-&@A-%@#P(@'6 $P"@:D1&@HZ%36-&@^hA-%@lsP(@w }C $P"@ 1%@-%36-%@1;A-&@?FP(@Ja $# "#6-P:H:gl,$@p,"$ @},'$"@ A +)$"@/5 A9F6$$$U +LZAR@^1( YOUR MISSION:4(U(FIND }THE GOLDEN CUP$-(-("_THEN_ BRING IT BACK TO THE START!$((any key to go$AdAU$0F:A};d,AU-(}initializing!!!0$% AP%F +@?E-@IM@QX:(@\r YOU DID IT!!!F6-x%(}0@ H:,$@@#'U2-1H:7D,$AU@HL@PV2@Z^H:dq,$AU@uy@}}0 H:,$@!H:',,$@0=%%6-%@AI%"@PMiA % A% +oH&56,56},16,56,84,16,40,68R&%%255,255,255,255,255,255,255,255\&0,6,9,249,169,169,6,0f&%%126,195,195,195,195,231,231,126p&!!}60,126,219,126,36,36,66,129z& 66,66,126,126,126,24,24,60 D:SHRLOK.BAS,0f&%%126,195,195,195,195,231,231,126p&!!PophN`d`EASY2INTERTNKEYTONEHARDEASY1FLTSHTONE1TONE2DRST1ST2IN1IN2DWNSCALE1SCALE2SCALE3EASYTSCALE}SCALEEASYHAREXERANGSEAAOUOPTDARETVANTUNVAPTPTPTPTCBDVCCBBINXXDVCHOICDUOCFLTSX1X2DERES}NPDTUNEUCDTOAASIGNASCTYPJMPSIZDUMMNUNOTENUNOTVAVAR2VARXSTEPTONEXVA7N2SCALESCALESCALE4VAR7NUNOTEG }LETAZAs>CJ ASACJ R [ h q z }& A$3AV >A 3@b+.37A!;>@`CF@aKN@SV@[^@Rcf@kn@Isv@{ } @0!@5"&'#.2$A69%@>A&@FJ'AtNQ(@VZ)A!^a*@fj+APno,vw-} }. /0AU1AU!"2)*31249:5AB6IJ7QT8@PYZ9ad:@ij;qr@ ?@@@A@$%B,-C47D@<=EDEFLMGTUH\]IdgJlmKtuL|M}NOP Q'(R.HSAT AU VORW@`WZX@`^hAY 3@Znp@[w\@E}] ^SAVE "D:MUSICIAN.BAS bb. RECENTLY INSTALLED TRAPS AT 11370 AND 7730 IF LOOPS TURN UP, TAKE THEM OUT }CAND FIND ERRORS ##@!@%'-K:%(RQ (}Q(CMUSICIANSHIP: AN EAR TRAINING PROGRAM FOR THE ATARI 8}-BIT COMPUTER.(( WRITTEN BY(( TIM MILLER(1859 CONCORD AVE(STOCKTON, CA 95204(}l$$(DONATED TO THE PUBLIC DOMAIN(AUGUST 1, 1987(!!(PRESS ANY KEY TO CONTINUE)@p (} }(WAIT A MOMENT. ZZ9@$+,;@%/6,9@:><@aBI,;@MT,;@ X_,9@$cj,9@n,PPTN(1,X) }MIS RESERVED FOR GRAPHICS DATA IF SOMEONE WANTS TO ADD THAT SOMEDAYhh;@QX,;@\c,;@ gn,;@ry,;@ }},;@ ,;@,;@!(,;@ ,8,$&&;@<C,9@ GN,9@ R^,8m19@Pbi,9@amt,9@Px,9}@P,mTHESE WILL BE THE SCALES USED TO SELECT NOTES IN THE PROPLBBACCORDING TO LEVEL OF DIFFICULTY IN NAME THAT NOTE (}EXER=53)t,A1@E,. TURN OFF KEY CLICK'AR@If'TURN OFF CURSOR-@jn@r"6}C8,- ,,2,4,5,7,9,11,12,-1,-3,-5,-7,-8,-10,-12-@GK@6O"68,-( <SS0,2,4,5,7,9,11,12}d,14,16,17,19,21,23,24,26,28,29,31,33,35,36,38,40,41,43,45,47P48,50,52,53,55,57,59,60d-@hl@apx"68},- 881,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20AA21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38}U,39,40DD41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61-@Y]@Fa="68,-=USED IN N}AME THAT NOTE. FLAT THIRD AND 7TH jj0,2,3,4,5,7,9,10,11,12,14,15,16,17,19,21,22,23,24,26,27,28,29,31,33,34,35,36,38}C,39,40,41,43,45,46,47,##48,50,51,52,53,55,57,58,59,60@-@GK@FOTB"68,-BUSED IN NAME THAT NOTE. SH}ARP TONIC AND FOURTHh |ii0,1,2,4,5,6,7,9,11,12,13,14,16,17,18,19,21,23,24,25,26,28,29,30,31,33,35,36,37,38,40,41,42,4}53,45,47##48,49,50,52,53,54,55,57,59,60-@9=@A"68,- %%2,4,5,7,9,11,12,2,4,5,7,9,11,12 } -@@$"68,- 0GG-12,-11,-10,-9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8,9,10,11,12:-!}@ @a;"68@"<,-< =VV1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,1"}CO0,11,12>==1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12,1D-@SW@a[jX"68@n<,-l #}#GG13675,12907,12182,11498,10852,10243,9668,9125,8612,8128,7672,7241KK6834,6450,6088,5746,5423,5118,4830,4559,4303,4061,3$}832,3617,3414,3222KK3040,2869,2708,2555,2412,2276,2148,2027,1913,1805,1703,1607,1517,1431//1350,1274,1202,1134,1070,1%}010,953,899,84855800,755,712,672,634,598,564,532,501,473,446,421/ }/ !YOU HAVE YOUR CHOICE OF EXERCISES  1=&}'NAME THAT INTERVAL   2='TUNE IT UP'4 3='PLAY THAT INTERVAL'H(4='FINE TUNING\(5='NAME THAT NOTEp(( '}3 ENTER YOUR CHOICE (1,2,3,4 or 5)A@d7A)@EdNEXT LINE IN6-@hs# @Iw)!@S(}# A @"@I2 A%"@Q6K A% "@ROd B $ "@Rhp6-@It8 ")}@R6-@L "@R!6 A&`` "@S: Bt # }# YOU HAVE YOUR CHOICE:  1=WAY OUT OF T*}TUNE  2=SLIGHTLY OUT OF TUNE "" ENTER YOUR CHOICE (1 or 2) A@dXb )@fs #@Iw*@P+}# A$  [ Ap`[. THIS GOSUB REQUESTS THE TYPE OF INTERVALS DESIRED AND SETS UP SCALE STEPSd 0 }0 "YOU HA,}VE YOUR CHOICE OF SEQUENTIALx  OR SIMULTANEOUS NOTES $$ 1=SEQUENTIAL 2=SIMULTANEOUS "" ENTER YOUR CHOICE (1 OR -}2) A@d! )@%2 #@I6<*@P@F# A'JU #"@QY_*"@Pc# A)  11NEXT SUB T.}[AKES CARE OF DURATION, SETS "DUR" Ar@, ""NEXT SUB INPUTS STARTING KEY@ #"@R_e*"@Iio# A@sT #"@/}R *"@P9# A2 h At@| ggAA=aA A@A`AAeA A@A`0} AA "@4 A0@ "@8B6-%@FQ "@U_6-%@$cn "@r6-%@61} #"@I*"@P"# A@&O SEQ:1=SEQUENTIAL,2=SIMUL #"@ISY*"@I]c# A@gr #"@Iv*"@Q2}# AU 0 #"@P"*"@Q&;# AI@D "@S?E A@ITX 6-@@Xl EEBEGIN NAME THAT INTERVAL,TUNEIT3}UP AND FINETUNING --SIMULTANEOUS WWNEXT SUB IS RANDOM GENERATOR FOR EASY1,EASY2,HARD.SETS UP TYPE OF INTERVAL WANTED 4}CA 7%2$&,I7B7hA  "@Md B 6-8@hv<, "@Rz65}5- 6-8@b<%, >>NEXT SUB MAKES NOTES SHARP FLAT OR NORMAL FOR TUNE IT UP #"@Pfl)"@Rp# A`4 6}QK6-P:'AV,'6-P:&$AV,86-P:'AV,K6-P:&$AV,H @ UW]\ ?B7`B7b?B7} 7c+@$@,%@Ip ?B7dB7f?B7g+@MQ$@UZ,%@^i F:@ m,  A4` 8}K'B7c+@$,%$3KB7g+@79$?B,%HS /"@PW])"@Ra%6-AU/ A6@ M 9}X}.  PRESS RETURN TO DISPLAY INTERVALM PRESS R TO REPEAT INTERVAL A@d\f )@jw "@{:} A3AU A5 $MMNEXT SUB TAKES CARE OF INTERVAL, STEP AND SECOND NOTE NAMES AND DISPLAY8 A`L;}C::NEXT SUB TAKES CARE OF SHARP AND FLAT FOR TUNE IT UP`#"@PGM)"@RQ# At!! PRESS RETURN TO TRY AGAIN<} "@R\" C CHANGES KEY. M RETURNS TO MENU  R REPEATSA@d`j)@n=-AU=}*@g *@w*@ ,3 }= A70C7"AU*"I }- KEY IS 7 A2 )"AU*"@>} }) A2 ()"@g"(*"@R,G }) A7 <"@gK` A) P"@wdy A @d"@}?} A3xCCBEGIN NAME THAT INTERVAL, TUNEITUP AND FINETUNING -SEQUENTIALWWNEXT SUB IS RANDOM GENERATOR FOR EASY1,EAS@}0Y2,HARD.SETS UP TYPE OF INTERVAL WANTED A4;b%2ACIKQSY7B7hA bTHIS POKE SETS A}$SOUND TO DOUBLE PRECISION4"@(Z B4SUB VARIES KEY AT RANDOMj6-8@^<,jVA1 IS POKE VALUE FOR FIRB}^ST NOTE (TONIC). TN(3,X) IS MASTER ARRAY FOR SOUND VALUES.AA DETERMINES TONIC4"@Rb6-4TUNB USED IN TUNE C}IT UP ONLYp6-8@<%,pN2 IS SET IN GOSUB 8420. IT IS A CERTAIN VALUE FROM ARRAYS CALLED EASY1, EASY2, OR HARD,D}#"@P )"@R# A`@_6-P:'AV,'6-P:&$AV,86-P:'AV,K6-P:&$AV,_COMPUTE PT VALUE} EST@ Ah]B7`B7b?B7c+@EI$@MR,%@V]POKE SOUND VALUES FOR TONIC|F:F}C@ ,  AB @ "(:cB7c+@>R$,%?B7g+@VX$^a,%gcPOKE SOUND VALUES FG}GOR SECOND NOTE"F:@ ", @0&9" AB@ =?Eo?B7dB7f?B7g+@sw$@{,%H}@F:@ 5,  AC@?B7c+@9M$,%?B7g+@QS$Y\,%bm/"@Pqw)"@R{%I}6-AU/ AE@0Y @S#x }:  PRESS RETURN TO DISPLAY INTERVALY PRESS R TO REPEAT INTERVALDR"@S|J}S }7 PRESS RETURN TO DISPLAY NOTE R PRESS R TO REPEAT NOTEXA@dWal)@er"@v AAK}AU AD11NEXT GOSUB NAMES SECOND NOTE, INTERVAL, ETC A`::NEXT SUB TAKES CARE OF SHARP L}"AND FLAT FOR TUNE IT UP#"@P&,)"@R0f# A!! PRESS RETURN TO TRY AGAIN !@Rj!  C CHANGES KEYM}:  M RETURNS TO MENU4  R REPEATSHA@d>H\)@Lcp=-AU*@ggm*@wqw*@{3N} }= AF)"@R#*"@g'3 }) AF7B"@gF[ A) "@_t AA"@wx AO} @7"AU*"8 }- KEY IS 7 A@<Q)"AU*"@Ua(}) A@e#"AU*"@SP}# B`,,START PLAY THAT INTERVAL, SIMULTANEOUS$OONEXT SUB SETS UP RANDOM NUMBERS FOR SECOND NOTES, DEFINES EASY HQ}7ARD N1,N28%%BEGIN PLAY THAT INTERVAL--SIMULL A;B`7%2HJPRXZ`7B7hA t"@R} B"@I AU 00NEXT TWO SUBS PRINT SCALE STEP OR INTERVAL A` TO CONTROL TONES}Y((  USE CURSOR KEYS WITH KEY&& PRESS RETURN WHEN YOU ARE DONE6-8@]<,6-'6-P:'AV,'6T}:-P:&$AV,(?B7`B7b?B7c+@>B$@FK,%@OY<)@]jPA7@Ent*@ax*@U}.*A$*AUA AQd6->P2<$6-?@M$x"@aQ6-%"A$6-%"@EV}6-&"@E6-&"AU AT@# AIh)!B`# A # Al)!B`# AI@W}T'6-P:'AV,'6-P:&$AV,?B7dB7f?B7g+@X\$@`e,%@i, AQ@U'X}C B7c+@$,% /KB7g+@35$;>,%DJU ANT AI@h**BEGIN PLAY THAT INTERVAL--SEY}Y`QUENTAIL|OONEXT SUB SETS UP RANDOM NUMBERS FOR SECOND NOTES, DEFINES EASY HARD N1,N2 Ado"@s BZ}7%2 %D7B7hA 26-8@HW<,6-&6-]c26-i36-P:'AV,[}R'6-P:&$AV,-6-36- A` HERE'S THE FIRST NOTE@ VX^0?B7`B7b?\} B7c+@$@,%@ +DF:@ /8,  AW<NX''B7c+@RT$Z],%cll@ prx"]}F:@ , @ (" AW`"@, AX $$ NOW YOU PLAY THE SECOND NOTE TO CONTROL TONE((  USE ^}CURSOR KEYS WITH KEY((  PRESS R TO HEAR FIRST NOTE AGAIN PRESS RETURN WHEN DONE 3B7dB7f_}3B7g+@"$,% )@&34KA@E7=*@aAG*@Ke*A$*AU*@iK AY H6->`}P $6-?P$\"@a$N6-%p"A$6-%"@ERe6-&"@i6-&"AUa} Ab`'"@+'B7g+@/?$,%!"@CI!@ MOU`,""@dj*F:@ ns, @ w, Aab} "@.(} AV # A2Q)!B`# A $# AU)!B`# AU 8'6-P:'AV,c}='6-P:&$AV,L?B7dB7f?B7g+@AE$@IN,%@Rq` AY t1'B7g+@uw$}d},% 1 A AU $6.2- or RO!6.1+ or DE$$"6.2 or RE6.2 or RE"$$6.3- or ME!6.e}2+ or RI$$"6.3 or MI6.3 or MI"$"6.4 or FA6.4 or FA"$$6.5- or SA!6.4+ or FO$$"6.f}5 or SO6.5 or SO"$($6.6- or LO!6.5+ or SA$$<"6.6 or LA6.6 or LA"$P$6.7- or TA!6.6+ og}r LI$$d"6.7 or TI6.7 or TI"$x"6.8 or DO6.8 or DO"$ 6. $6. (DESCENDING)$06. MIq}b%DOS SYSb*)DUP SYSbSAUTORUN SYSbTRAMDISK COMb\TOBASIC OBJbF]HAPPYXL BASbcSHRLOK BASbMUSICIANBASCpbDISKORGNBASbBASICDOSBASbq FILEPRNTBAS#1ATASCIANBAS#bDOMINOESBAS#VIELECTRICBAS#}RELAX BASqNOR SECOND-6.AUGMENTED UNISON0$ 6.SECOND6.SECOND $/6. MINOR THIRD,6.AUGMENTED SECOND/$6.r}THIRD6.THIRD$ 6.FOURTH6.FOURTH $46.DIMINISHED FIFTH16.AUGMENTED FOURTH4$,6.FIFTH6.s}FIFTH$@.6. MINOR SIXTH+6.AUGMENTED FIFTH.$T6.SIXTH6.SIXTH$h06. MINOR SEVENTH-6.AUGMENTED t}SIXTH0$|"6.SEVENTH6.SEVENTH"$ 6.OCTAVE6.OCTAVE $ 6.C6.C$!6.C SHARP6.D FLAu}T!$ 6.D6.D$!6.D SHARP6.E FLAT!$ 6.E6.E$ 6.F6.F$!6.F SHARP6.v}G FLAT!$0 6.G6.G$D!6.G SHARP6.A FLAT!$X 6.A6.A$l!6.A SHARP6.B FLAT!$w} 6.B6.B$3 }3 %CHOOSE THE KIND OF INTERVALS YOU WANT 1=EASY--ASCENDING ONLY((  2=EASY--ASCENDING x}=AND DESCENDING 3=HARD--ASCENDING ONLYA@dAs((  4=HARD--ASCENDING AND DESCENDING )@w #y} @I )!@R# Ap`4$H3 }3 %YOU HAVE YOUR CHOICE OF NOTE DURATION\## 1=SLOW 2=FASTER 3=FASTESTpz}( ENTER YOUR CHOICEA@d,6)@:G#!@QKQ) @IUj# Ar@"@Inv6-@Uz{}"@P 6-@0#"@Q'/6-@3$ }$( 1 = C8( 2 = D FLATL( 3 = D`( 4 =|}G E FLATt( 5 = E( 6 = F( 8 = G( 9 = A FLAT(10 = A( 11 = B FLAT(12 = B"@}}}S Aw (13 = VARY AT RANDOM(@(/("ENTER THE KEY YOU WANT (1 THRU 12)@( AND 2 At@<~}FP 6-P:,d"@"7 At@x# @;A)!@EZ# At@#"@^d*"@Sh# At@6-}"@6-@*"@.D$ggAAHlA A@A`AApA A@}A`AAm(ENTER R TO CHANGE RANGE""(PRESS TO CONTINUEA@dq,)@}@#AU*@<# AyT"AU A@KhE"@OU*"@Ya%6-@e;(NOW IN HIGH RANGEE} Ay |D"@*"@!)%6-@-W:(NOW IN LOW RANGED Ay G"@[a*"@em%6-@q=(NOW IN })MIDDLE RANGEG Ay $%%6-P:@-1$H:7=,,%@AL"@RPV AZs 6-? $6-?w$ !}"@I *"@(!6-%0 !"@I,2*"@6I!6-&D !"@PMS*"@Wj!6-%X !"@Pnt*"@x!6-}&l -"@*"@R;-6-%+$$>`, -"@?E*"@RIh-6-&+$$>`, "@l6- $ ))}N !FLAT=F SHARP=S CORRECT=C R=REPEAT  ENTER YOUR CHOICE A@dR\ )@`m !#"@qw*"@P{#} A3 !#"@*"@I!6# AA4!-#@p:@*@DJ*@gNc- A@H!"@g6.SHARP\!"@}6.FLATp!"@86.CORRECT!#"@<B*"@F[# A`!#"@p_e*"@i# A`!#"@}g *"@t# A`!. }$ SORRY, THE NOTE WAS . A! }  THAT'S RIGHT!$!i%6-P:H:z,$}@  ,&@`iTHIS IS NECESSARY BECAUSE THE RANDOM NUMBER GENERATOR ISNT RANDOM"6-P:@dn$H:,,%@r"6-P:}@$$H:,,%@$""@I#76-8,8""@P;O6-8,L"""@QSY)"@R]q"6-8,`""@Qu6-O:}!,t"DR:1=ASC.2=DESC"@R%-6-@1<"%@R@D* JR%6-@Va"%"@Rei*!ow%6-@{} "%"@R * %6-@#7"$"))6-+8@;I<%,&,'8@M[<%," av A@"* >uz }C#} RIGHT!* A`#F>u's* ?P }< ABOUT 1% SHARP--NOT BAD!F A`#S?P* ?w }}?I %WITHIN 3%--ABOUT A QUARTER TONE SHARPS A`(#F?CI* ?M }< ALMOST A HALF STEP SHARPF A`<#}?? E }5 MORE THAN A HALF STEP SHARP? A`P# KV6-$6@Zed#  >ui } RIGHT!x#};>u M* ?P }; ABOUT 1% FLAT--NOT BAD!#H?P* ?Q }H $WITHIN 3%--ABOUT A QUARTER TONE F}LAT#;?* ?I }; ALMOST A HALF STEP FLAT#4?M }4 MORE THAN A HALF STEP FLAT# PRE}jSS RETURN TO GO AGAIN#D(  C CHANGES KEY. M RETURNS TO MENUD R REPEATS LAST INTERVAL#A@dnx$)@|}$7-AU*@g *@w$**@.C7 A`,$"@gG\ A) @$#"@`f*"@Ij# AU`T$#"}@ *"@P%# AI`h$"@w) A @|$$$!! PRESS RETURN TO GO AGAIN.$ 6.C$$6.D FLAT$}$ 6.D$$6.E FLAT$$ 6.E$% 6.F$%$0% 6.G$D%6.A FLAT$X% 6.A$l%6.B F}ELAT$% 6.B$% } NOTE OUT OF RANGE%]'B7c+@IK$QT,%ZiKB7g+@mo$ux,%}}]@ %"F:@ "D, A " A`%$% Jc6. DOWN TO %!i6. UP TO  &$}EC &jjO:,AeAf>Af Af@Af`AfAgBfAg Ag@Ag`AgAhju4&v"@yvO}:,Ac /Ac Ac@Ac`AcAd3WAd Ad@Ad`AdAe[nAe H&v"@rvO:,Ae}(AdAd`Ad@Ad Ad,PAcAc`Ac@Ac AcTiAe \&6-8@m<%,p&'!@}6-&@%' A@& A)k&Ae@Ae`&ggAh Ah@Ah`AhAioAi Ai@}Ai`AiApFAp Ap@&(} '*"@Jp*(FROM  ()8'*"@t*(FROM}%  ()L'$`'%%6-P:@)-$H:39,,%@=Ht'"@Li B'ggAAmA A@}A`AA<A A@A`AA@M'%%6-P:@QU$H:[a,,%@ep'"@t6-@}'6-%$@'$'a! }THE KEY VARIES AT RANDOMB(ENTER THE DEVIATION YOU WANTa(1 TO 99 CENTS AND }( B (((# @#))!@-# B <(k }(1=MINOR SECOND)(2=SECOND;( 3=MINOR THIRDG(4=THIR}DT(5=FOURTHk(6=DIMINISHED FIFTHP(_(7=FIFTH!( 8=MINOR SIXTH-(9=SIXTHB(10=MINOR SEVENTHQ( 11=SEVENTH_( 12}=OCTAVEd((x((USE MINUS SIGN FOR((DESCENDING INTERVALS(3(3(&ENTER INTERVAL TO PRACTICE AND( }'B(( 6-P:,()O:, @+4)O:,!@8K) B)6-Q_)7O:,!@ck6-@o7DOES THIS D}:O ANYTHING?,)$@) NAME THAT NOTE BEGINS HERET)6-@6-h)0 (}(0(CHOOSE THE SCALE YOU WILL USE|)(}w 1=MAJOR ONLY)((( 2=MAJOR WITH SHARP TONIC AND 4TH)%%(3=MAJOR WITH FLAT 3RD AND 7TH)( 4=CHROMATIC))@{} )# @I)!@R# B*- (}-(ENTER THE MAXIMUM SIZE OF SCALE*,,($JUMPS YOU WILL WANT IN THIS EXERCISE}'0*((MINIMUM 1, MAXIMUM 9)X*)@+8l* @I<Q B`*!@WUl B`*6-&@Hp*0 (}0(}S"ENTER THE NUMBER OF NOTES YOU WANT*&&(PRESENTED IN SEQUENCE (1 TO 9)*)@Wd*# @Ihn)!@Wr# B }C *6-&@H< +! Ar@!SET NOTE DURATION +@"@R@ }(@(!DO YOU WANT ACCIDENTALS DISPLAYED4+/"@R}./ AS SHARPS (S) OR FLATS (F)?H+-"@R2J  ENTER S OR F-)@N[\+-#"@R_e*@pio*@s- B@}p+' }' CHOOSE YOUR KEY SIGNATURE+ ( 1=C+( 2 = D FLAT+( 3 = D+( 4 = E FLAT+( 5 = E+(} 6 = F+( 8 = G,( 9 = A FLAT$,(10 = A8,( 11 = B FLATL,(12 = B`,(13 = Cj, B t,, }6-P:,,"@+ B ,# @/5)!@9L# B ,6-RX6-^,``THE METHOD FOR SETTING TH}E KEY AND RANGE IS DIFFERENT HERE COMPARED TO THE OTHER EXERCISES,__WHERE TN(3,X) IS THE MASTER ARRAY FOR NOTE VALUES, SCA}LEX IS CHOSEN ACCORDING TO "SCTYPE",VVAND THE Y IN SCALEX(Y) DETERMINES THE SIZE OF THE JUMP FROM ONE NOTE TO THE NEXT-b}%2 !k7B7hA bTHIS POKE SETS SOUND TO DOUBLE PRECISION-p6-8@ou<%@$y,p}VA1 IS USED TO COMPUTE POKE VALUE FOR FIRST NOTE (TONIC). IF TONIC IS C, THEN THE(-==VALUE FOR THE TONIC WILL BE THE 25TH E}LEMENT IN TN(3,X)<-//TN(3,X) IS MASTER ARRAY FOR SOUND VALUES.P-AA DETERMINES TONICd-j6-P:'AV,'6-P:&$AV}O,j. PT1 AND PT2 ARE THE POKE VALUES FOR PLAYING FIRST NOTE (TONIC)x-@ SU[- (}(HERE'S THE TONIC-p}&B7`B7b?B7c+@*.$@27,%@;wpPOKE SOUND VALUES FOR TONIC (I.E., PLAY TONIC)-F:@ {, } B-_B7c+@!5$,%?B7g+@9;$AD,%J_TURN OFF SOUND FOR FIRST NOTE-(-**("PRE})SS RETURN TO HEAR THE NEXT NOTE.)@-Q.AU B`,.@ UW]@.% }%(HERE'S THE NEXT NO}TE(S)T.-@#h.i%6-P:H:).,$@ 27,&@;iTHIS IS NECESSARY BECAUSE THE RANDOM NUMBER GENERATOR ISNT RAND}OM|.^'6-P:H:,$++@!$,%@%i,&,^IF JMPSIZE=3 THIS SHOULD PRODUCE VALUES FROM -3 TO 3."o B.X}_ 6-%XTHIS KEEPS INCREMENTING NUNOTE UP AND DOWN WITHIN THE RANGE SET BY JMPSIZE.q"@Ick6-@ow'6-@6{q}THESE LINES BRING THE SECOND NOTE UP TO THE SAME RANGE AS THE TONIC AND.++PREVENT A VALUE OF ZERO IN SCALEX(X)..'"@}CR 6-@%'6-@a(.1"@P,2)"@Q6>%6-@BJ16-@FN[/>% @_s46-O:,%O:P:+%@w,'@}#,,> B@/A %!76-6@'7$O:,&O:P:+%@;@,'@D[,,A B@0/"@I_u6-8%,D/"@Ry6}-8%,X/"@P,6-8%,l/"@Q0H6-8%,/-%!@`LU#6-6@Yu$O:,- B@/T6-8@y<+%}W,,TADDING AA (WHICH RANGES FROM 0 TO TWELVE) ADJUSTS FOR KEY/+A!!6-6@[$O:,+ B@/<B6u26}-O:,%O:P:+%@,'@K,,< B@/ 68,-/ 6-%/'!@OY6-&@]' B" 0 68,-40M6-P:}N'AV,'6-P:&$AV,MCOMPUTE POKE VALUES FOR SECOND TONEH0"F:@ RW, @0[n" B#`\0@ rtzp0}'TB7dB7f?B7g+@+/$@38,%@<\T. PLAY SECOND NOTE0F:@ `,  B$ 0XB7c+}@$,%?B7g+@ $&),%/X. TURN OFF SECOND NOTE0 0F }+ PRESS RETURN TO DISPLAY NOTE A })PRESS R TO REPEATF(0A@d-70)@;H06"@L,(HERE'S THE NOTE(S) AGAIN6 B1`1A}KU B$$111NEXT GOSUB NAMES SECOND NOTE, INTERVAL, ETC816-@OL1jj8,Ah Ah@Ah`AhAi}(Ai Ai@Ai`AiAp,TAp Ap@`1 6-8,t1T%+"@PX^)"@Qbi,*!@mw36-&@{=} B&`TTHIS LINE WILL CAUSE1GGCAUSE CERTAIN ACCIDENTALS TO BE NAMED PROPERLY IF SCTYPE=50 OR 51199:PRINT VARXY.ERRO}-R CHECK HOPEFULLY NO LONGER NEEDED1]W@R18*+"@<B)"@FL)"@PV)"@Z`)"@dj)"@nt)"@x,]6} .1IC@R*+"@")"@&,)"@06)"@ :@)"@DV,I6.1"@RZ`*"@pdu6.1"@Ry*"}@6.2+%"@P"*+"@&,)"@0B,+6.2+%"@QFM*+"@QW)"@[,+6.(2(PUT BACK CLR LATE}R<2!  6-%@! B& P2&(&(PRESS RETURN TO TRY AGAINd2 x2( R REPEATS2(T RETURNS TO TONIC}=2  C CHANGES KEY2(M RETURNS TO MENU2A@dAK2)@Of2G7AU*@gjp*@wt*@}*@ &= }G B(@3"@g*? B 3%"@CK6-@Od% B%@,31"@hn6-t'6-}C1 B@@3"@wH A @T3"AU B@h36-NY|3-@]x3 6-8,3T6-8@|<}+%,,TADDING AA (WHICH RANGES FROM 0 TO TWELVE) ADJUSTS FOR KEY3M6-P:'AV,'6-P:&$AV,MCOMPUTE POKE VALU}ES FOR SECOND TONE3"F:@ !&, @0*=" B#`3@ ACIs3TB7dB7f?B7g+@w$@},%@ +T. PLAY SECOND NOTE4F:@ /N,  B$ 4XB7c+@Rf$,%?B7g+@jl$ru,%{X}N. TURN OFF SECOND NOTE04 D4$D:MUSICIAN.BAS4XB7c+@Rf$,%?B7g+@jl$ru,%{X; QQQQQQQQQQQ1Q1Q1Q1Q1Q1Q1Q6Q8Q31INFILETESTANVSPNUMINDESPINANCHOICSONNNND!}UBELLGAFILES!@&)@.1@69@>A@FI@NQ@VY@^a @ fi @nq @vy @}!} @ @@@!$@e),@1uA  "4BDAiy@!}A @@ @$'!@,/"@I45#<?$@DG%@ELO&@`TW'@r\`(APdg)@lo*Ptu+|,!}-./ @SAVE "D:DISKORGN.BAS 6-FN6-@RZ'6-@^f36-@jr?6-@vK6-@!} W6-@c6-@%o6-@)1{6-@ 5=6-@AI6-@MU6-@Ya6-@em6-@qy6-@}!}6-@ 6-@e 6-@$m6-AK.;,;AP,;,;,;,;,;,66. K6.{ !}81 +%00!0)010(V-@<X#( ̧/-@\s>( J-@wV(!}2a-@, ( presents,-2G(sk Me L(Q([ Aa<D:*.*!}c6-F AP6.7<,PQG+7<,4SYS,)+7<,4DAT,)+4 DISKCOMM ,)+4 MEMh rSAV,Q @pvZ!}4 DISK CAT @p_h-%)@-47(@8SNEXT SCREEN HAS I-Y]@ahh(@lwith 12 progra!}cms!d n_6.7<, A0!6-A:,'!M( THERE ARE  ON THIS DISK[-Agt_ x @pxP!}T67<%,.D:'67%<%,.7<,467%,..H67%<%,.7<,P6-% @pXB:,AJ+!}C 0@(-( % 42(J(8 Ys( ("( ` ١'(,(F( TRY!} ANOTHER DISKZ-@A !+^ p@/3@7Cs9 +@G0!0)010905(!} %6. / A`56-6.7$%<$%,5 +(%.7$%<$%,5 A0##(!}I%.7$%<$%, 6-%"6- AP AM11? #Q6;" ":? #Q6;"pick number -hit return"!};#ARK:#6-A )AU!(>:,/67<,.>:,76-%A A"5 6-A:,6-&'6!}.7$%<$%,-6-5-,(7<,0  67<,.7<,(6-%6  A@@G +%-'(m Nw !}@BAA A~ ADAV A! "51}I#8$M%b&wA'| A(A)A* +@Ng,A A-$.B /nq0@vy1@}1}C2@ 3@4@5@)!$6@),7@1289:9AB:IJ;QRij?qr@yA@1} BBrCD@E@$'F@,/G@47H@<?I@DGJ@LMKTUL\_M@dgN@ lmOtwP@P|Q1}@RS@T@"U@'+VA/2W@7:X@?CYAHHSAVE "D:DOMINOES.BAS"``DELAYS ADDED TO LINES 11}492,1532,1592, & 1612-TO SLOW DOWN WHEN IS LOADED FIRST!!!Ġ٠٠Ƞv (}A@h2}u A@$%-SAVE "D:BASICDOS.BASdo (}o͠Ġ٠ؠϭҠ̧%}EӠɠЬ FOR ҠӠ x9A KY'A@]9AAI-(%MADE F%}$OR Ş̌ӠծǮI(4 F**(" ep-@tx@|%} ))(! ' 9 ))(! Xa-@ei@m( WHEN-%}@ @"( DONE -@&*@ .B ( THEN,-@FJ@Na( TYPE-@ei@m( -%}@ @( TO-@#'@+<( DO -@@D@H\ ( OVER!5-@`d@hm2(q %}ӡ 5(;@0$,,-@(,@0P,(#1. DELETE A FILE!,*-@TX@\*(#2. LOCK A FILE!@,-@%}@ ),(#3. UNLOCK A FILE!T,-@-1@5U,(#4. FORMAT A FILE!h/-@Y]@a/(#5. WRITEDOS TO FILE!|%}1-@ @81(#6. DIRECTORY OF FILES!6-@<@@Dn6(#7. CHANGE SCR.COLOR W/POKE!4-@rv@z4(%}%EX.>POKE 710,0=BLACK SCR.!Y-@)-@1T2( D-@X\@`Y(ǡ( &}( (((*-@@!R*( ҡ( 41 AV0 42 A@D 43 A&}>X 44 A l 45 A` 46 A Bb 47 A @f( (kݭ THE END!c(>&}ŠΠҠŠĭ% 0OR Ϡ4L Ρf BPW@[b;@fj@npvE:H&};@0 ,U(b@#,m@07@;?@CEKS@3W\@`bhjpy@}&}C$ B#@'.;@26@:<BOE:H;@0Sh,U(b@lum@y&}@ @@5#(@,.46<E@Ib$ @fm1@qu@y&}E:>;@0.,O( ſ\@2;g@?F@JN@RTZb@6fk@oqwy}&} @( $4@,31@7;@?AGE:Z($ ١g)@&} r@AT@#%+-3OD1:H$\@SZ1@^b@fhnE:]('& }) ١j)@-6u@:A@EI@MOUh D:DOS.SYS@lp$ B& } @>@@#%+;D:*.*K;@0?H,_-@LP@dT[l@_sp(t w@w$& };A@[;POKE 709,0:POKE 710,10:POKE 712,114$D:BASICDOS.BAS@_sp(t w@w$$XY77TOPNFPAUSEEMHFONTSFILERTABZMETSPACELARJNWCTNMALPTONUNUMBESECNUMHNUMLIIOCAD* }+RHADRLPGLINEUSELIMIDNHUW24:<BDJLRTZ\bdjlrt z *}   %'-/57=?FGNOVW^_fgnovw}*} !")*12 9:!AB"IJ#QR$YZ%ab&ij'qr(y)*}* +,-$%.,-/450<=1DE2LM3TU4[]5cllǠϠǮ*} vŠŠŠҠŠ DR. J.FERGUSON-SAVE "D:FILEPRNT.BAS" pp* This program will print files} *} created with BANK STREET( hWRITER and a number of other mm* editors and word processors.r It will tra*}nslate symbols Xembedded in text as shown mm* on the title page, and printb out the file on à*} D using its special jj* characters and controls.R lFor other printers, changex contr*}0ol codes in linesll* 3515-3570 and 4340. The? Xunderline is set by ASCIIe codes 27 and 88 found in*}C"nn* lines 5030 and 5040. It is. Icleared with ASCII codes 27T and 89 in line 5040. Thesenn* may be *}substituted one for 6one with other codes ifE necessary.Change number ofpp* indent spaces by repla*}cing )the two 8's in line 5060.6 aChange other defaults at 50. A`el# +r(~~;@*} ,;@,;@!,;@%,,;@u07,;@;B,;@0FM,;@QX,;@\c,;@@gn,;@4r,,6-B*}`-{L;,;@+,;AP,;@/L,;A,;AP,;@'PY,\67@]y,.l67A,.{67@}*},.2DEFAULTS36-@ (6-@,4'6-@d8@36-@D[B6.TOP (#.)N6-@_wV6.Y^6.Nj6-@U{r*}=6.N}6.PICA6.6.4 6.Y6.050F=-CA4")A6%- =TRANSLATE SRTK>-*}=A"&C:,%* >RIGHT JUSTIFY SRTL--@AE@4Ij")67<,.>:,- M@-@nr@'v")6*})7<,.>:,- @WORD COUNTER SRTP +/8dr B<B AFw(}B( ENTER NUMBER TO CHANGE OR N6-}*} `AyrA$0i$(@48@%<Q$(Defaultj!@UY@%]b!(i n$$( 1. Line spa* }cing- Lx$$( 2. Text lines per page- $$( 3. Left margin-V p$$( 4. Line length-z *!}$$( 5. Start with page-! `$$( 6. Page number, where- $$( 7. Start at top-i $$( 8. Pause *"}/between pages- $$( 9. Emphasized print-4 R$$(10. Right justified-X p$$(11. Font type-| *#}'$(12. Tabs set at-# B'('$(13. Special codes:J '(8( 14. Header: 8(15. For DIRECTORY, *$}hit RETURN (  A!4wwApA8A0APA`AA0A@A`AeAp*%}A APA&%"@*26-@6<% A@K%"@OW6-@[a% Ae,M (} (.(HOW MAN*&}HY TEXT LINES PER PAGE?1(J((Normal value is 55)M(@( (  ALJ/ (} (/(ENTER # SPACES FOR LEFT MARGINO*'} ( T A_^* (} (*(ENTER LINE LENGTH (1-150)_@((Normal values:,@cg@ kt@(Pica} *(}C 64`)@@ !)(Elite) 478a*@8<@ @^*(Proportional 100b*@bf@ jx*(Condensed| 1*)})18c+( ( + @6)!APAPe A:yh/ (} (,(ENTER NUMBER FOR FIRST PAGE/(mr A}**}:|/ (} (/(DO YOU WANT PAGES NUMBERED AS:"("(> E(1) TOPO Y#.(] d(2) TOPi wPage # ({ (3*+}) BOTTOM - # -(  _(4) NONE.( .AAA A%(6-@cx6.TOP (#.)( A|*,} *6-@% 6. TOP (Page)* A)4&6-@8K6.BOTTOM& AOZ$6-@^o6.NONE$ As 4*-}Y6.N A, 4N6.Y A0I 4Y6.N AMf 4N6.Y Aj 4Y6.N*.} A # 4N6.Y A'@ 4Y6.N AD] 4N6.Y Aa (} ( (ENTER FONT */}sTYPE(( (1) PICA( (2) ELITE( (3) PROPORTIONAL( (4) CONDENSED.( .AwA*0}&AA6.PICA A*?6.ELITE ACX6.PROP. A\q6.COND. AuX$ (*1}L} ($(TABS NOW SET AT: bg( (a(STo change, enter new tab positionsP as three digit numbers separated by commas.*2}d(g(l4A+v 6. A/V (} (,(ENTER SPECIAL PRINTER CODES/(V("(Do not use spaces or punc*3}tuation)( (  AK0 (} ((ENTER HEADER: "(&0 AOxDISPLAY FILE LIST (} A|*4} \@ 1@@ "(7D:*.*<@;B\@FJ@NPVfK:$-@jn@cry$@}*5} A@@A7@#'<@+N,4 FREE SECTORSA67@RV<@Zk,4SYS,6-&@o6 Ap5*6}'@ "P:'@,.@"&@ *@5( $q2( >:@dDQ%, 7@UY<@]n, q67+&@rw,$@{%*7}@ <+&@,$@%@",..  A08-( (-(TYPE LETTER OF FILE TO PRINT OR=( FOR MENU(*8} B-)@6-&@d&-(>:@d*=%,LBB6.7+&@AF,$@JN%@RY<+&@]b,$@fj%@n,V 6.D:`*9} ,-@ @:,7<,4 A@j67B:,%@>],.7<,t ~>67B:,%@as,..>67B:,%@w,.7@*:}C  <@ *,GET FILE<6-+&@.c,$A%,6-P:'AV,<6-&AV$ 36.>:iu,$67,.>:{,*;};367@ ,. B! A#%/6@3:@>E6@IM@QSYe *@iw*6-A:7@{<*<}@,,%@$*<6-+&@(j,$A%,6-P:'AV,<6-&AV$4 GET CIO>+6-@n+@*=} H6-@$$ A"(AR%6-A2%%%@EI@M\6-P:C:,'AV,f6-C:,&$AVp*>};%@ %@$-%@(2;%@ 6\z6-?:C:hhhLV,<,:-@`oA($)@s667%*?}<%,.>:,: +'@(+6.7@,4<%&@8^,57B:,,0>:AU,567B:,%@bw,.>:AU, A0{*@}O B 3(-( CANNOT LOAD FILE!A-@7;A?IE O A M 5 (} ((5(!PRESS: RINT FILE (PRINTER*A} ON?) $($( 4IEW OR EDIT FILE (( < iENU AdAU F:Ad,"@mqA5u F:*B} Ad,"@Ap, F:Ad,"@704A8m A0@ SET PRINTER CONFIGURATION # Bqw AE{#*C}6-  .@.@#'@+-3MP: *4PICA(@QxN*SET FONT 4ELITE (@|*D}E 4PROP. (@;P 4COND. (@?OQ =(@SaL  Ael0(@p0=SET M*E}ARGIN  @(@.0 (@2G 0 4Y(@K!0SET ENHANCED MODE O 6.( 67B:,%@*F},.667B:,%@%,..D(@)AOSET TABS !(@Eg!SPECIAL CODES)Am)A%@*G}& 6-4NAA6-,NTRANSLATE SECTION$"@RY(@]q$ A@(@uHE*H}ADER$!@(@3$ A@2-@7B&B:,&@FM.(@Qe 2  "@ip (@t.*I}$"@ $(@+Page %(@/6(@:t%TOP SPACE 6-B:,) 6.67AP,.)67@x,.*J}"+ 6. 67AP,. +67@&y,.":6-F:A,6-%"6-&.!AU:6-AU',F:A, %@}*K},A@, !%AF)END6A;6-?:C:, 4Y6-?:C:,(A(E BGM A@QZ A@^g( Bk(}((TURN PR*R}INTER ON!%-@A * % A0.8 @< AdAUf (} (<( WORD COUNT = F:Ay,%AV*S}$F:A,NAy+`A1c(f(H(+( ENTER 'P' TO PRINT A SECOND COPYB(OR FOR MENUE(*T} H(  B A44P6- A58A  AEdd104,174,253,6,216,172,251,6,204,255,6,240,61,177,2*U}03,201,60,240,61,201,62,240,72,201,93,240,83dd201,94,240,92,201,91,240,101,201,92,240,111,201,3,240,114,201,9,240,119,201*V},155,240,20,172,252ff6,140,246,6,145,205,238,252,6,238,251,6,202,208,193,76,192,6,238,245,6,238,251,6,76,229,6,169,27f*W}f172,252,6,145,205,238,252,6,169,88,232,208,212,169,27,172,252,6,145,205,238,252,6,169,89,232,208ff197,238,251,6,172,251*X},6,177,203,24,105,128,144,184,238,251,6,172,251,6,177,203,24,105,64,144,171ee238,251,6,172,251,6,177,203,56,233,64,76,51,*Y}6,169,27,232,232,76,51,6,238,250,6,238,251,6,76,5,6ff173,254,6,24,105,8,141,254,6,138,56,233,8,170,238,251,6,76,5,6,138,7*Z}4,141,254,6,96,206,252,6,172dd252,6,177,205,201,32,240,25,201,27,208,9,238,251,6,206,246,6,206,246,6,201,128,144,3,206,25*[}1,6,,206,251,6,208,219,206,250,6,240,208,96dd104,104,133,208,104,133,207,173,246,6,208,1,96,206,245,6,208,9,238,246,6*\},169,1,141,249,6,96,56ff237,252,6,133,209,169,0,205,249,6,208,58,238,249,6,141,252,6,141,248,6,172,252,6,177,205,238,252*]}ff6,172,248,6,145,207,238,248,6,204,246,6,176,85,201,32,208,231,165,209,240,227,198,209,169,32,172 gg248,6,204,246,6,17*^}G6,65,145,207,238,248,6,24,144,207,206,249,6,230,209,173,246,6,141,248,6,238,248dd6,172,252,6,177,205,206,252,6,172,248,6,*_}_145,207,206,248,6,48,25,201,32,208,234,165,209,240,230dd198,209,169,32,172,248,6,145,207,206,248,6,48,3,24,144,213,160,0,*`}177,207,145,205,200,204,246,6(ee144,246,165,209,240,31,173,249,6,240,15,238,246,6,230,209,169,0,141,252,6,141,248,6,240,16*a}EDa0,1732**246,6,141,248,6,141,252,6,208,166,96PQQ104,104,133,204,104,133,203,104,133,206,104,133,205,169,0,141,250,6,141,*b}251Z226,141,252,6,141,254,6,141,246,6,141,245,6,96KK104,172,252,6,240,17,136,240,6,177,205,201,32,208,247,238,243,6,20*c}78,3238,244,6,136,16,239,96pTITLE PAGEu +=mz%%6-F:A`,%AV$F:Aa,S%@qu@y+*d}%@ @?%@  @$,S%@04@8j'AAH'AATE%@'nr@ev.%@*e}(F:A`,E%@(8F:Aa,dAR@<E(*@IM@Qn2(THE5(8(;(>(A(S@rv@zd(*f} TRANSLATIONS@@@#)'-@-1@5<@(@@W FERGEE FILE*-@[_@cj*(@nPRINTER8*g}@ '@@"'8( 3 ?1(@CG@Km1(CTRL C = CENTER LINE2@qu@y2(*h}%CTRL I = INDENT 8 SPACES1(@)-@ 171(<; S= SET UNDERLINE0@W[@ _e0(>i = CLEAR UNDERLINE*i}0@ @ 0(] 6= ATARI CHARACTER/@:>@ BH/([L e= CTRL CHARACTER5@im@ qw5(^{ = *j}ATARI CTRL CHARACTER'@!%@ )/'( \3 C= ESCAPED(( GǬŠԡDŠĠϠŠ*k} šX-@c<("ǮӠҠààҡXŠĠϠŠš8 @@gXVIEW FILE ROUTIN*l} Eb.@.@@"$*:S:l'6-@>D6-JP'6-V_v BcTRAP 7000--(}!PR*m}'ESS: P, OWN, EGINNING, ND,''(1 NHANGE, RINT, ENU0-(%s0(*n}AdAU A/7'F:Ad,"@X3>*B:,&!ABf-6-7 Ap@*F:Ad,"@j 6-&* Ap@*o} F:Ad,"@!3Ap >F:Ad,"@B7F46-P:B:,'AJO,$ASq> Ap@ F:Ad,"@uyAu}*p} F:Ad,"@A5 44F:Ad,"@78P*AdAU4 AT ApLEDIT PRINT FILE ROUTIN*q}EEV11(}%MOVE CURSOR AND SET: EGINNING, ND`((( OR: BORTJ b(NOTE: EOL = )ec-(%}*r}C 0(3(?6-@$K6-@(0W @4<c6-@@j< Au@-%A11@:7<,,"AU8( < *s}sTo (7<, t"AdAU-"(~0F:Ad,"A5&6-%@X0 Av 0F:Ad,"A4&6*t}-&@ 70 Av 0F:Ad,"AB&6-&@;g0 Av 0F:Ad,"AC&6-%@k0 Av  F:*u} Ad,"@!Aw, F:Ad,"@B04Ax8L F:Ad,"@cPTApXp AuP!@8t6-@*v} @6-@8)!@#-36-9B HP6-@#Tr Au@A)6-%++&@v,$@8*w} ,%&@ !76.7,.|B6-F:A,6-%"6-%*6-&6!AUB6-*z}AU kApA6-?:C:,:A%,4(INITIALIZING, ONE MOMENT PLEASE@6-LTL6-@X`X6-@dld6-@pxp6-@|:}|6-@ 6-@6-@#]6-A"no6-A# 6-A#@3;A$,;@a,<6-C:,Q6-P:'A%:},$c6-$AV&%o67,.>:,xP67A$,.>:,!67,.7,/-AL67%<%,.>:F:%BsD,,P B#-:}C@A&"&Ad%* 66-@$*2B6-@16!A A`? -"!67%<%,.>:,% -6-%56:}Ǔ-%? A@6-A6-A!AVA? -"!67%<%,.>:,% -6-%56-%? Ap:}p6-Ad6-Aq!AyA ? -"!67%<%,.>:,% -6-%56-%? At:}\ +@ eAV!0'-A(RELAXATION TRAINER\( >>>options >>>R( w@9(:}c ENTIRE PROGRAMMER( DEEP BREATHINGi( TRAINER,( OCEAN SOUNDSG( u@R(@:}+i( ENTER CHOICE<@/RK")-"@:E,2< AV"@:D, A#p""@::}"O, A%p,6X +@&:AV'0@>H50@L\=0O-@ `d@hX(#@Y-@:}(%$&&-@=2('()*8-C(+,-O-@ AY(./JR -(:;<-4(relaxation tra:}-iner9(R( FULL RELAXATIONTM-@1J ( PROGRAMME;(]gI-AkxM ^S +@|:}p0-4(THIS PROGRAMME IS9(S( DESIGNED TO HELPh{($( YOU LEARN TO RELAX./(@tN(@:} |Š|m(@!L | |q { A#06-@PT@X(( LET'S BEGIN, 6 A#0C:} +@ AV'0@!1/09 A#5C APP -( FIRST LET US"(:( BECOME FAMILIAR?(:}ǃP( WITH THEY(( SCREEN? & A#,-@( ON THE RIGHTE(Y( SIDE OF THEE(( S:}CREEN THERE"(7( IS A FIGURE?; E A#N -( TEXT WILL(5( APPEAR TO THE:(N( LEFT OF:} THEA(( FIGURE? & A#,-A( AT THE BOTTOMa(( OF THE SCREEN#(6( THERE IS A;:}(S( GREY TIMER BAR?W a A#P -( THE FIRST FEW#(:( TIMES THAT YOU?(P( USE THISF:}(( PROGRAMME YOU#(8( WILL NEED TO< F A#K -( PAY CLOSE(4( ATTENTION TO9(K:}( THE TEXT?H(( AFTER A WHILE#(:( YOU WILL LEARN> H A#S -(THE RELAXATION$(:}G9( INSTRUCTIONS>(S( AND YOU WILLD(( ONLY NEED TO"(6( LOOK AT THE: D A#R -:}( FIGURE AND (6( LISTEN TO THE;(R( AUDITORY CLUESX(( TO DO THE(2( EXERCISES?6 :}@ A#F-X( TO PREPARE&X(( TRY TO(.( IMAGINE A3(D( TRANQUILI(X( SCENE?0:}?  A#-*( CONCENTRATE/(?( ON THIS:W(( SCENE AND ( A#.-=(ON YOURB(:}ǃW( BREATHING SODD(( IT IS  (6( AND ?: D A#NJ -( CLOSE YOUR (3(:}w EYES AND 8(J( THEN OPENX5(( THEM AGAIN AT#(5( THE TONE?bH  A#  A#{':}0--H(THE FIRST' lV( MUSCLE GROUP(4( YOU WILL RELAX9(H( IS THEL V A#:}VvK -( #(7( AND <(K( GROUP?<-@Zk(%$-@o-('3-:}<(+>-@@.(&0-@26@::()*> W  -$( THIS TONE WILL)(?( SIG:}NAL YOU TOD(W( PREPARE TOA(( RELAX THIS (/( GROUP?3 7 A A"R -(BEGIN WIT:}wH THE$(8( HANDS? THIS=(R( TONE SIGNALSR(( YOU TO FOCUS"(9( ON YOUR HANDS?E-@{:}N(hR S  A" A"!-8(TENSE THE HANDS=(S( AND WRISTS BY<(( SQUEEZING YO:}UR$(8( HANDS HARD?< V  -(FEEL THE"(:( TENSION IN YOUR?(V( FINGERS WRISTS>(:}( AND THE BACKS#(:( OF YOUR HANDS?> Q  -(FEEL THE"(6( TENSION FOR;(Q( ABO:}UT 5 SECS?=(( RELEASE THE!(9( TENSION SLOWLY?= P  -"( ENJOY FEELING'(8( RELAXE:}D?=(P( AS THE BARR(( GETS DARKER!(6( LET YOURSELF: > D-R(BECOME H(( :}MORE AND MORE#(4( ?8 < @ H09 Ap   A") A"- 509  N -(:}_ NOW YOU WILL"(7( LEARN HOW TO<(N( RELAX THE*G(( ?$-@c-(b1 5 ;-:}GG(THIS4b(( TONE WILL  (6( SIGNAL YOU TO;(M( RELAX THER(b( BICEPS?>S   A:}" A"`%-9( THIS IS DONE>(S( BY SQUEEZINGHY(( THE BICEPS (7( THE WAY YOU DO<(:}Q( WHEN SOMEONEU Y RM -(SAYS???(4( ?9(M( DO NOT MAKE\=(( :}A FIST WITH!(5( YOUR HANDS?9 = fN -( BE SURE TO (4( REMEMBER TO9(N( DO THIS WITHp:}<(( BOTH ARMS? # )-<( NOW LET THEzT(( BICEPS ?#(:( MOVE THE STICK?(T(:} AND FOCUS ON9(( THE BAR??? # ' /09 Ap/   A" A"`# ' /0N :}-( NOW YOU WILL"(5( RELAX THE :(N( AND](( TOPS OF THE!(3( ?:}?-@ H(tT-@](fB  -'(THIS TONE WILL,(B( SIGNAL YOU TOQ(( R:}ELAX THE  (4( AND9(Q( ?<   A" A"@%-<(TO FEEL WHAT IT:}f(( IS LIKE TO (4( TENSE THESE9(O( MUSCLES PRESST(f( YOUR ARMS@  -%( :}FACE UP INTO*(@( THE ARMS OF AT(( CHAIR? FEEL!(5( THE TENSION:(T( FOR ABOUT 5 SECS?:}?  -@@ #)(' -5-@1?( O -( NOW ???"(7( LET YOURSELF<(O(:}ǃ RELAX EVENA  -((MORE AS THE BAR-(A( GETS DARKER4(( AND DARKER (4( PLEA:}nSE MOVE5(( THE STICK? # ' + 5 Ap'   A" A"@# ' $I-@r(#:} -2( NOW YOU WILL>-@$:I(.J-@>a(!-*(6-@eJ( LEARN HOW TO8S:}(( RELAX THE  (6( ;(O( AND ?S BV  -#(THIS TONE WILL((>(:}y SIGNAL YOU TOC(V( PREPARE TOLH(( RELAX THIS (6( MUSCLE GROUP?: > H A!PVU-@}:}@(f$-:(THIS TONE WILL?(U( SIGNAL YOU TO`M(( RELAX THE(1( ?5 :}G9 C A!PM A!`jN -( TENSE THE(3( BY8(N( FROWNING HARDtS(( HOLD T:}HE(4( FROWN 5 SECS?8 < B-S( THE~G(( FROWN AND(1( ENJOY THE6(G( PL:}kEASANT5(( SENSATION? # ' + 5 Ap'   A!P A!`# ' U-@os@w(:}n$-:(THIS TONE WILL?(U( SIGNAL YOU TO2(( PREPARE TO (2( RELAX THEL(( :}?   ) A!P3 A!p9-L( FIRST TENSES(( THE MIDDLE OF#(8( YOUR FACE BY=(S(:} SCRUNCHING UPA( ( THE AREA?$ ( .-A( TRY TO KEEPS(( THE FOREHEAD"(8( :}SMOOTH? TENSE=(S( THIS AREA FOR?( ( ABOUT 5 SECS???$ ( .-?( NOW BEGINM(( TO RE:}LAX(3( THIS AREA OF8(M( YOUR FACE???     Ap'   A!P A!p# ' :}U-@ @(m$-:(THIS TONE WILL?(U( SIGNAL YOU TO 2(( PREPARE TO (2( R:}ELAX THEO(( AREA? $ . A!P8 A!>-O( TENSE THEN(( BY(3( :}N PRESSING THE8(N( TOGETHER(I(( HARD???  2-@RV@ Z8-I( HOLD THE 2M((:}ǃ TENSION FOR!(7( ABOUT 5 SECS?<(M( THEN LET<6(( YOURSELF??? $ ( , 6 ApF' :},  A!P A!# ' PK-@0A($-@EX/(%$&;-@\E(()K-Ze( NOW YO:}U WILL(1( LEARN HOW TO6(I( RELAX THE N(e( dA(( AND ?! % +-:}A(THIS TONE WILLnN(( SIGNAL YOU TO#(6( PREPARE TO;(N( RELAX THISxK(( MUSCLE:} GROUP?" & 0 AB-@#'@+K(nR -(THIS TONE WILL$(:( SIGNAL YOU TO?(R( P:}REPARE TOQ(( RELAX THE(5( MUSCLES?9 = G AQ A K -( TENSE THE(/(:}ǃ BY4(K( PLACING A HAND?(( AGAINST YOUR"(7( FOREHEAD AND; ? U -( PRESS:}GING YOUR#(:( HEAD INTO YOUR?(U( HAND? DO THISL(( FOR 5 SECS?!(2( THEN ???6 : > :}>B L Ap'   A A # ' V-@BF@J(sh%-;(THIS TONE WILL@(V(:}i SIGNAL YOU TO2(( PREPARE TO (2( RELAX THES(( ? # 5-@mq@u?(:}G I AS A 0N -( TENSE THE(4( BY9(N( PUSHING THEMM(( INTO YOU:}R(.( CHAIR?2 6 <-M( HOLD THE M(( TENSION FOR!(7( ABOUT 5 SECS?<(M( THEN:}9 LET,(( YOURSELF??? $ ( , V-@=A@E(st%-;(THIS TONE WILL@(V( SIGN:}bAL YOU TO2(( PREPARE TO (2( RELAX THE"Q(( ? ! 3-@fj@n=( G A:}Q A P,K -( TENSE THE(3( BY8(K( SUCKING IN6N(( THE STOMACH!(/:}( HARD?3 7 =-N( HOLD THE @M(( TENSION FOR!(7( ABOUT 5 SECS?<(M( THEN LETJ::}c(( YOURSELF??? $ ( , 6 Ap: T#  A A P # ^A-@g(&-@:}0(6-A(+,-h> -(./-$(:;<*->( NOW YOU WILLrP(( LEARN HOW TO"(:}5( RELAX THE :(P( |>(( AND ? " (->(THIS TONE WILLN(( S:}rIGNAL YOU TO#(6( PREPARE TO;(N( RELAX THISE(( MUSCLE GROUP?" & 0 A p<-@vE(:}tR -(THIS TONE WILL$(:( SIGNAL YOU TO?(R( PREPARE TOR(( RELAX THE(6(:} MUSCLES?: > H A pR A I -( TENSE THE(1( BY6(I( STRETCHING?(:}( YOUR LEGS OUT#(7( IN FRONT OF; ? L -( YOUR BODY AS"(5( FAR AS YOU:(L( CAN?:}?? DO(( THIS FOR;(( 5 SECS? THEN! % ) - 7 Ap; #  A p A  # :}CO-@ (c-4(THIS TONE WILL9(O( SIGNAL YOU TO2(( PREPARE TO (2( RELAX :}THEQ(( MUSCLES?" & 0 A p: A!@-Q( TENSE THEN(( BY(4( R:}ESTING YOUR9(N( HEELS ON THE>(( FLOOR WITH # )->( YOUR LEGS OUTN(( IN FRONT :}OF!(7( YOU? NOW DRAW<(N( YOUR FEET&R(( UP TOWARD " (-<( YOUR FACE???A(R( :} FEEL THE08(( TENSION AND!(8( THEN LET THESE:+(( MUSCLES??? # ' + D1 Ap :})  A p) A!- 1 NO-@-(f-4(THIS TONE WILL9(O( SIGNAL YOU TOX2((:} PREPARE TO (2( RELAX THEbQ(( MUSCLES?" & 0 A p: A!0@-Q( TENSE THElK(:}( BY(2( CURLING YOUR7(K( TOES INWARDv>(( AND SQUEEZING" & ,->( THEM H:}ARD?i(( TENSE THE(5( FEET THIS WAY:(N( FOR ABOUT 5S(i( SECS? THEN???9   ;}-AAHA-@ $@P(.S-@26@:?h(F hӡl v(źn6-@l6-&6-6&2}6-%.6-%66-%>6-%F6-%N6-%V6-%^6-%f6-%n6-%G/(' ŠϠàҠȠҠš2}C-@ AG W 6-%6-%6-B2y'6-$/6-%76-%?6-$G6-%O6-$W6-$ '+AV2}eA&!0'6- BB9<,9<,9<,9,9,;,9,;,;,;,;, W6.ir   z ;62}.    W6.$/    5 ?AdAU#K:)6-3 AP"?AR;2},9,9,9,9,* --""68<,-& * ==0,0,0,0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,3,3,3,3,4,4,4,5,5,62}E==0,1,2,3,4,5,6,1,2,3,4,5,6,2,3,4,5,6,3,4,5,6,4,5,6,5,6,62@I6. <D6-A 9,;$,D6. 2} | |RF4F)4  A P! ")" A ! @pVqZ 4C A0 @pud A2} p @pxF --68<,-)68<,-- 1 9-B68,-F ) 6-6- A)4 A2}C@C A 9("HIGHEST DOUBLE OR HIGHEST TILE? C A0Dw* "  ( COME ON DUMBO* AP A{2}%A$ - 68,-8<,%8<,$ & --&"8,Ap   6-8<,6-8<,2} 6.C A"M A!K A 1(HIGHEST DOUBLE? ; A0OM)Ar? 1(%I HAVE NO DOUBLE2} S EITHER.REDEAL5 ? A0|"*A`*"A0"*A`*"A02}_% %A`W 68,-68,- 2( YOU LAY THE ,86-B APJ6.PT A"cW$@ 68,-68,-2} 2( I OPEN WITH ,86-@-P8<,"8,*8<,"8,(68<,-368<,-=-$&F(P AP2}  6.C$Q 6-6-6-6-!6-'6--6-36-96-?6-E6-K6-Q6-' " +AVA2},&'0&3 68,-68,-$68,-@&0-68,-36-0D -68,- "-26-P:H:,$%,D68&%<2},-8,:4 -68,-8%, *'"P:',4 AP"?K --,68<,-88<,<,C68<,-88%<,<,2}!G K D " AY0 A%E+++6-F:A`,%F:Aa,$AV%F -$% GA$%$"$2}'%F:A`,5$%F:Aa,A@+H. 0%0%0+AR.$X8 --)8<,"*2}8<,"/6-56-8$b  6-6-$668,-8,68,-8,!-3(8, 8,6$<  6-6-2}-$68,-( .6-46-<-L58<,"8,)8<,"8,)8<,"8,)8<,"8,=6-%C6-L68,- 2}A 1'A AA`A1 Ap "6- Ap "6.C1 ( I MUST DRAW.2}96-1"*"Ap; " 0(I HAVE 10 TILES? ALREADY!86.C;$7  &( OH DEAR! NONE LEFT.62}.C46-7$ -8<,A`S68<,-88<,<,-68<,-88<,<,56-%=6-%G-$&P(S3}$ )68,-8<,68,-8<,) A*U &( MY TURN IS 8,,8,168<,-<68<,-B6-L-$&3}aU(4& 6-6.C6-&# AP&$R8,"8,A\ -8,8,Aeuf8,A yk"3}C 8,"@6-" A5pT -%%F("|  | |8,8&,T68,-8&,z 68,-3}ǔ%68,-6- $8,A 0R -%D(" | | |8,8&,R68,-8&,3}K 68,-68,-%6- $"A pT-8,8,%F( PV| |[ae8, 8&,T68,-3}Z8&,$ 8,"-%%$( 68,-8,%$T-8,8,%F( _e| |jpt8&,3}# 8,T68,-8&,&8,"@4'-%&(68,-8,&$  -8,8,AP&3}&8,AP 8,"6- A5*V -%%H($| | | |8&,8,V68,-83}&,"68,-$68,-%6-"$8,A$T -%F($| | | |8&,83 }[,T68,-8&,. 68,-68,-6-$8"A BT-8,8,%F( `f| |kqu8&,3 }d 8,T68,-8&,L8,"$-%%(V68,-8,&$`T-8,8,%F( io| |t3 }8, 8&,T68,-8&,j!8,"*8,"-%!(t68,-8,%$~ F --+$,/(8%<,3 }l8%<,9-+$,B(F  -%-(  $ 6-1 ( your move? # A0p1A3 }) 6-"*"6-6-) Ap. "6.P +(YOU HAVE 10 TILES.$8  '(NO MORE PIECES LEFT3}!-6-56.P8$ "6.P R -8<,"+68<,-88<,<,@68<,-88<,<,H6-%R A 3}B ,( YOU DREW THE 8<,,8<,46-%B"A0%8%<,A0(+-+$+&,,((8<,83}$<,+$2<-+$+&,,9( )|8<,8<,|<$n -"8,A x"8,A    3}F ( A0H (OK68,-!68,-)6.P3 A"J;6-&E APH$# ( GAME DRAWN!# A3}es* -8<,*6-%8<,%8<,"8<,"6-%8<,%8<,   +XAR'(}x MY HA3}ND WAS/-:8<,X(# B8<, 8<,-@FJA N ! 6-%6-%! A3 Ae3}Ce+AR#6-34CA\ (} (((\(E I HAVE BEEN BEATEN!I HOPE YOUR NOTj A BEGINNER! Ԡ3}Ҡš-@A . P((2 THIS WAS MY HAND%6-+6-3->8<,"F6-%P ApV#-%%3}$$+",+%$++&$,&,,V( )A|8<, 8<, |F%6-%8<,%8<,&"%6-"G -3}U%2( YOU HAVE SCORED  POINTS.:6-%=(G A,\+AR5(Z HA HA HA I HAVE WON!!!=-H83},<,\6-%8<,%8<,6 8-@04A8L @3 6-%0(Q I HAVE SCORED  POINTS.3(J=( ( 3} YOUR TOTAL IS #(=( :MY TOTAL IS L-@>BA%FS T AeW A`^5+ -5( YOU3} HAVE ANNIHILATED ME!c1( ( (1( DO YOU WANT TO PLAY AGAIN? dAdAUh<6-F:Ad,2A3} U*@C*@5D< A6k"AUA@m"@CH%n,,($נǠՠϠˠҡo"3}"@5 K"%D:DISKORGN.BAS|  6.F$?+ -5( I HAVEV MASSACRED YOU! ? A5"A`3}-@A   -8<,"AP( -%8<,"8,*8<,"8,($   -3}28,"A%%8<,"8,*8<,"8,A6%%8<,"8,*8<,"8,A0 A8 6- A`3}M6-6-) A`/6-5 8$ !6-6-$ 68,- A Q&8 6- A`6-6-) A`/63 }6-5 8$0 !6-6-$: 68,- A :D3 6---+8<,"8,*36-%N  $X3!} b -8,"Al -68,-8, v1 -8,"8<,'68,-8<,1 AP 1 -3"}8,"8<,'68,-8<,1 AP  A3 -3+8,"8<,)8,"8<,,*Ap  A3#}EE#> -++8,"8<,)8,"8<,,*468,-> A   A + -"8,"*8<,"8<,+683$}ǂ,- > -68,-  -)8,>68,-8<,%8<, 6-&+",8 ---/3%}"8,*8,"56-8$    -8,"$  * -$ / -(-$4- -)(3&}Ǜ88<,<,,88<,<,- E -%8<,"8,*8<,"8,068<,-;68<,-E A" =8<,"8,*8<,"3'}j8,(68<,-368<,-= A"  "A"P8%<,A"P<-+$+&,,2(o puuz 3(} )< A"`1-+$+&,,'(. /449 1 A"` " $)8&<,-+$+&,,)(3)}k$  6-AdAU ) ) %"*+0 )4F,)(  %"6-6-$ = @Hou)!@Ty 3*}%3(忠= A0  1 "6-A:>:,,#0+$,%'(1 A00 (6-A:>:,,(6-( A0 &3+} -"8<,*"8<,#(&$ "8<,*"8<,($ L  *(. B(3,} 忠L A05 * ( HOLD ON FOLKS!*"A69P K -%-@8T#1+-&3(>:,7 ; B6-6H3-}6-K$W-@$!-@8(W)11-%9(>:,= A G6-T6-6@[W$. 06-&'-.(3.}NJ 6 -6( |7$&<$, 7$&<$,|5 -5(|7$&<$, 7$&<$,|3/}5 -5(|7$&<$, 7$&<$,| -(   $; - -%(dominoe30} s3-A7 ;+  $[ -[? #N6;"COPYRIGHT 1980 >(CAN YOU BEAT ME?)":?#6;" >CAN YOU BEAT THE COMPUTER?31}"kkFOR J=N1 TO N50:NEXT J:POSITION N7,N3:? #N6;"":POSITION N8,N5:? #N6;"":FOR J=N1 TO N50:NEXT JooPOSITION N232},N8:? #N6;"":POSITION N8,N8:? #N6;"":POSITION N8,N10:? #6;"":FOR J=N1 TO 200$NEXT J:RETURN*O+ 33}-7(! DO YOU WANT dINSTRUCTIONS?=-O( (y or n) /C 6--)""@xho4(@s NO<34}C-@ C$46"@" (@&>YES(-, 6 A`Bd9 ( AY0pZ+@hAR"(Z(35}52 YOUR TILES WILL APPEAR ON THE LEFT OF THE SCREEN r""(NEXT TO THE EDGES OF MINE.uP( TO PLAY A DOMINOB($ TYPE THE36} TWO NUMBERS IN LIKE THIS:-E(P( 5,6zU($( I WILL SUPPLY THE COMMA!'(E( IF YOU CANNOT GO TYPE D.O A`@U(37}E}I((( THERE ARE 4 LEVELS OF SKILL.I( (4 IS THE HIGHEST) J-n(n(c GAME 1--IF YOU CANNOT PLAY YOU DRAW -38}--- FROM THE BONEYARD AND TRY- mTO PLAY AGAIN.h(h(] GAME 2--IF YOU CANNOT PLAY YOU DRAW q-qu FROM THE39} BONEYARD AND I TRY TTO PLAY.b(b(W THE GAME CONTINUES UNTIL A CERTAINX iNUMBER OF POINTSoou- HAS BE3:}EN REACHED.>-@ @.( TYPE ANY KEY TO CONTINUE.;)@DV>$d-AZ $@= 6- +0-3;}]1( SKILL ?76-=6-E -( GAME?G- --( HOW MANYd POINTS? H0 -0(3<}WHEN YOU ARE READY PRESS J0 -%(-%"(,-$0 TF:,"*$VF:,A0Y 3=}6-& A^F:,APh) 6-%6-&$+",) Ar F:Ad,"AUA | )3>}!B /A ~5"A&-%(6 R+6-5 A !! @HV\)!@W`yA f6-$%&@H}3?}Q-%+!,%+!@y,%+!A ,%+!A,%+!B ,\(&$f A D:DOMINOES.BASf6-$%&@H}0h CANNOT PLAY YOU DRAW - 9FROM THE BONEYARD AND TRYF TO PLAY AGAIN.h(h(] GAME 2--IF YOU CANNOT PLAY YO3A} U DRAW -  ,FROM THE BONEYARD AND I TRY7 mTO PLAY.b(b(W THE GAME CONTINUES UNTIL A CERTAINq NUMBER OF PO3B}INTS  -/ HAS BEEN REACHED.>-@ 3Y.( TYPE ANY KEY TO CONTINUE.;)@]o>$d-As $@3C}v= 6- +0-1( SKILL ?76-=6-E -( GAME?G- --( HOW MANY} 3D}POINTS? H0 -0(WHEN YOU ARE READY PRESS J0 -%(-%"(,-$0 TF:,"*$V3E}F:,A0Y 6-& A^F:,APh) 6-%6-&$+",) Ar F:Ad,"A3F}CUA | )!B#HA ~5"A&-%(O k+6-5 A !! @Hou)!@WyA3G}G f6-$%&@H*Q-%+!,%+!@.,%+!A ,%+!A,%+!B ,\(&$f A D:DOMTURBO.3H}BASf6-$%&@H*Q-%+!,%+!@.,%+!A ,%+!A,%+!B ,\(&$f A D:DOMTURBO.0'**DDNMKKPDPRNTRMINCMINHFCTNUNITDAYNEHCLOYHIYDUKPCLCLCLCLAVYUSCOSDDDIDDAVTIM7J}4SEHCDDICDTOHDDIHDTOCDAVHDAVHAVCAVLIN@s8:>l AQAqtAy A7K}  A   $%,-45<@A DELMTU\]delmtu|7L} '(/078 ?@!GH"OP#WX$_`%gh&op'wx(}7M}) *+,"#-*+.23/:;0CdSAVE "D:ELECTRIC.BAS" @hjp""(} 7N} KILOWATTS!!(+ >ELECTRICITY($$(J bANALYSIS PROGRAM2!!(p BY JOE HARB<7O})mm(eDURING OPERATION OF THIS PROGRAM,0 uDO NOT DEPRESS RETURN KEY AFTER TYPING ANSWERS TO PROMPTS.Fn#@y@7P} K:nOPEN KEYBOARD TO GET INPUTS LATER IN PROGRAM WHEN GET STATEMENT IS USEDP4('(DEPRESS ANY KEY TO CON7Q} TINUE.4)@ZGG;@"),;@-4,;@8?,;@CJ,;@eNU,;@Ye,d]6-Aiq6-Au'6-A7R}]MINCD=MINIMUM COOLING DAYS NECESSARY FORCOMPUTATIONn11MINHD=MINIMUM HEATING DEGREE DAYS NECESSARYxbbFCTR=NR. OF 7S}KILOWATTS TO BE SUBTRACTED FROM MONTHLY KILOWATT USE WHEN COMPUTING DEGREE DAYS.ooSUBTRACTING FCTR REDUCES EXTENT TO WHIC7T}H OTHER HOUSEHOLD ELECTRICITY USE BIASES HEATING AND COOLING STATSaaCALCULATE: TOTAL MONTHS OF DATA (NR); LOW YEAR OF DAT7U}/A (LOYR); AND HIGH YEAR OF DATA (HIYR)6-5"CCM$=MONTH, Y=YEAR, UNITS=KILOWATTS USED USED IN 7V}BILLING PERIOD((DAYS=NR. OF DAYS IN BILLING PERIODXXNET=COST OF ELECTRICITY WHEN BILL PAID ON TIME,DD=DEGREE DAYS DUR7W}ING BILLING MONTHHD=HEATING DEGREE DAYSCD=COOLING DEGREE DAYS 6- #"", 4END# A7X}C 66-%@6-@ AmmSUBROUTINE TO GET INPUT FOR MENU OPTIONS A & B; THEN CLEAR INPUT QUESTIONS FRO7Y}YnM SCREEN TO ALLOW DISPLAYOF ADDITIONAL DATA]6(.}TYPE FIRST THREE LETTERS OF MONTH YOU WANT.C)@rP)@7Z} ])@nDDNEXT LINE CONVERTS ATASCI VALUES TYPED ON KEYBOARD TO A STRINGG 6.>:,#67B:,%@r,.>:,:677[}B:,%@ (,.>:,D A0G$p @,2F:@6;,&@?E4-KO@SX`('} 7\} d p39 SPACES# @%F:@).,&@2#$""ҠӠϠśkEND,999,0,0,0,0,0MENU OPTI7]}-ONS?<(4}THIS PROGRAM ALLOWS THE FOLLOWING4 JSELECTIONS:?(DD("@g]aAPepHM"@ht A!`7b}9@ @'P:C B+1M A`5@R"@iDHApLW\$"@p[a!@ei@m$f A p7c}%pPRINTER ERROR MESSAGEz?@)L+(PRINTER IS NOT ON-LINE!5 BP? A p ""SUBROUTINE FOR MENU OPTION A7d} A h lU(MDO YOU WANT TO INCLUDE INFORMATION ON HEATING(H), COOLING(C) OR NEITHER(N)?b)@ll A0 &7e}"@g 6.COOL&6-!, &"@r0C6.HEAT&6-@GR 2"@xV]6.a i&6-@ms26-y ,7f},($MONTH TOTAL AVG 0TOTAL AVG KWU A+(!8 qKWU DAILY DGREE PER A8 SPACES BEFORE KWU E.(&} 7g}< KWU USE DAYS DGREE DAYE14 SPACES BEFORE KWU -@@b " 0A2fs& Y6-P:Aw$','7h}AKYCOMPUTE UNITS PER DAY AND LIMIT DECIMAL PLACES DISPLAYED0 %"Qr6-!% A1P: %"@v6-7i}!% A1PD +"@G))!6.N/A+ A1pN X06-P:AKY$+&,'++'@0]f,$,,'Aj96.=:,XCOMPUTE7j}C^ UNITS PER DEGREE DAYX >>LINES 3170-3190 USED TO ALIGN AND PRINT SCREEN DISPLAYb \6-@bu&B:=:P:,,,16-@y&B:=7k}k:P:,,,E6-@&#&B:=:,,\6-@2'J&B:=:P:,,,l J( -F:@N^,"(1-F:@br,6(E-F:@v,J(7l} v -F:@e,(   # L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@iv -"@z 7m} A0# A*- A0  (} A .Y""SUBROUTINE FOR MENU OPTION B A]j%%(MONTHn TOTAL TOTAL 7n} UNIT;%( KWU "COST& KCOST;9 SPACES BEFORE KWU-@O"0A@> 6-7o}P:B $+',,'BA>CALCULATE AVERAGE DAILY USE16-@EX&B:=:P:,,,16-@\&B:=:P:,,,U( -F:7p}@,(( 7-F:@ ,,<(Q-@%06F:@:,U(   #L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? T7q}YPE Y OR N.L)@#-"@'7 A0# A;T- A@0 (} A X""SUBROUTINE FOR MENU OPTION C7r}P_L(D}DO YOU WANT TO INCLUDE INFORMATION ON HEATING (H) OR COOLING (C)?Y)@Tg_6-&"@gk6.COOL&6-7s}&"@r'6.HEAT&6-@+3G/(I  AVG KWATTG22 SPACES BEFORE DDN$G.(&YEA7t} R KWATTS CDGREE PER DGREEG10 SPACES BEFORE DGREE(((J NUSEDR VCOSTZ mDAYS DAY36-sy6-}7u}'6-36-%-@)X"AQ@1"^p6-'6-v1 AQ07v}1"@$6-'6-*o1 AQ0 6-%6-%&  6-%6-%   #66-u!7w}66-P:A$','A*(H6-@.A&B:=:P:,,,16-@&EX&B:=:P:,,,H6-@0\r&B:=:P:,,,2T(%Av 7x} ,-F:@%,1(@-F:@)9,E(T-F:@=R,<(F'6-%@V`' %@dAP`P#Z:(-("7y})DEPRESS ANY KEY TO RETURN TO MENU.:)@-8d A <go""SUBROUTINE FOR MENU OPTION Dp6-ms6-yQ(7z}%1}TYPE NUMBER OF LINES PER PAGE TO BE* 9PRINTED.^)@=Fk)@JX6-++&@H\a,$@em,%+&@Hq,zC3>:@'7{} ,>:@VB,CDISABLE EPSON "END OF PAPER" FUNCTION\C(@FI2a lTOTAL AVGq TOTAL AVG\7|}C!24 SPACES BEFORE TOTAL]E(@%(4@ DHEATH KWATT COOL KWATT]24 SPACES BEFORE HEAT[C(@7}}}2 #KWATTS TOTAL DGR( +PER0 3DGR7 \PER[8 SPACES BEFORE KWATTJG(@`g6YEARk oUSEDs wCOST{ DA7~}YS ,DGR DAY DAYS DGR DAYJ36-%@0?6-c6-EK6-QW'6-]c36-io?6-uK6-7} W6-c6-hhCDDIV & HDDIV ARE NUMBER OF ANNUAL KILOWATTS FOR HEATING & COOLING. ONLY MONTHS WITH MORE T7}HAN 100nnCOOLING OR 200 HEATING DEGREEDAYS ARE INCLUDED. 500 KWATTS PER MONTH SUBTRACTED BY FCTR FOR OTHER ELECT.ggCD7}iTOT & HDTOT ARE TOTAL HEATING/COOLING DEGREES PER ANNUM FROM MONTHS WITH SUFFICIENT DEGREE DAYSWK6.A} 7}- DW65 SPACES9-@H9CALCULATE ANNUAL CONSUMPTION AND COST"7}uAa !6-%6-%& !6-%6-%& 6-%6-%$   #.*!{*7}6-P:A $','A"8*!(2*6-P:A6?$','ACMB;(@QW%A[d;67@ht&B:=:,,<@x,.=:7} ,L((67@&B:=:P:,,,<@#4,.=:,V%%67@%8D&B:=:,,<@$HY,.=:,`((67@0]l&B:=:P:,,,<@2p,.=:,j%%67}7@A&B:=:,,<@@),.=:,t((67@E-<&B:=:P:,,,<@G@P,.=:,~(@T`6-%@dq'6-%@u' %7}@!A`p# 36-%@%hhCALCULATE AND PRINT MONTHLY DATA. SUBROUTINE 6410 PRINTS COLUMN HEADINGS ON EAC7}1H SHEET OF PAPER Ad Ad` qR(@58Ag kKWATu KWAT`67}-%@ %q47 & 10 SPACES_Q(@)P@MONTH DAILY MNTHLY MNTHLY COSTT ^HEAT PERb vCOOL PER_6-%@z7}uR(@ A *KWATT KWATT COST. 1PER6 YDGRE DGRE DGRE DGRE`6-%@]u8 SPACES BE4 KWATT(pQ(@7}@ USE USE& )KWU. 8DAYS DAY< SDAYS DAYT3b6-%@Wp8 & 13 SPCS2$< 6.JAN A7}fF 6.FEB Af/P 6.MAR Af3FZ 6.APR AfJ]d 6.MAY Afatn 6.JUN Afxx 7}6.JUL Af% 6.AUG Af)< 6.SEP Af@S 6.OCT AfWj 6.NOV Afn 6.DEC7}C Af@"(} A &1:-@5:CALCULATE MONTHLY CONSUMPTION AND COST"6-7} 6-,0Ah (@0C WK6.A} 7} W65 SPACES 6-P:A$/$+',,'A3>((67@BQ&B:=:P:,,,<@Uf,.=:,%%67@jv&B:=:,,<@z,.=7}:,"((67@"!&B:=:P:,,,<@$%8,.=:,, 6-P:A<G$+',,'AKV6((67@(Zi&B:=:P:,,,<@1m,.=:,@%%67@7}9&B:=:,,<@8.,.=:,J* !*6-P:A2A$++&,',,'AENT4"T\*67@B`d<@Dh,.N/A4 Ag`^(7}(67@C &B:=:P:,,,<@F/,.=:,h%%67@S3?&B:=:,,<@RC\,.=:,r* !*6-P:A`o$++&,',,'As|4"7} *67@V<@X&,.N/A4 Ah*5((67@W9H&B:=:P:,,,<@`L_,.=:,#6-%@cq"#6-@u(7}@   #"!Ahp4DECAhJ=(5INSERT ANOTHER SHEET OF PAPER; THEN DEPRESS ANY KEYJ7})@ %6- 6-&@% Ad"36-%@D""Ah@$W++INSTRUCTIONS FOR PREPARING DATA7}D LINESX6-%A bII(A}FOR EACH MONTH OF DATA YOU HAVE, YOUH MUST TYPE ONE DATA LINE.l66(.THE FIRST DATA LINE 7}MUST BE NUMBERED D1000.vSS(KAFTER THAT, EACH DATA LINE MUST BEJ NUMBERED ONE HIGHER THAN THE LAST.LL(DFOR EXAMP7}gLE, 1000 MUST BE FOLLOWED BY 1001, 1002, 1003, 1004, ETC.K>(6DEPRESS ANY KEY WHEN READY FOR NEXTl INSTRUCTIONS.K)7}@66(.}THE FOLLOWING IS THE FORMAT FOR A DATA LINE:--(%1000 DATA OCT,82,1350,30,79.25,495,0++(#REQUIRED7} DATA SEQUENCE AND FORMAT:((( 1. MONTH; MUST BE 3 LETTERS LONG''(2. YEAR; MUST BE 2 NUMBERS LONG,,($3. NUMBER OF7}p KILOWATTS USED IN MONTH++(#4. NUMBER OF DAYS IN BILLING PERIOD99(15. NET COST OF ELECTRICITY IN BILLINGv PERIOD7}(99(16. HEATING DEGREE DAYS IN BILLING2 aPERIOD99(17. COOLING DEGREE DAYS IN BILLINGk PERIOD:A 7}:($LAST LINE OF DATA YOU ENTERED WAS: ))(!NOW BEGIN TYPING NEW DATA LINES. D:ELECTRIC.BAS:A 4tI  Ap! % / A p9 A!0   A X-@M^($-@bu/(;-@yG(;}CEM-X(M -(-$(0-@IQJ(c=M$] -( REPEAT;}r THE (0( 5(H( M(]( CYCLE? !(( 5 SECS?!$V-@v6*;}2A@$@2AD@(4N-@8eR V  22$V-@i6*2A@;}@2@r@'N-@+`R V  22$Z --@dy622A@};} H2@r@"V-@&YZ "  22"$`-@]e"-@i682A@;}N2@r@'\-@+\`  "  22"$V-@`u6*2AC@y@;}2A@N-@"OR V   22$*V-@Sh6*2A!@lv@2@z@;}N-@JR V 4 22$>Z --@Nc622A!@gqH2@uy@};} V-@CZ H"  22"$R`-@GO"-@Sh682A!@lvN2@z@;}\-@F` \"  22"$fM-@J_6*2A@co8-@s< @ J;}2M$pM-@'6*2@S+/@3?8-@Ck< @ J2M$zH --@o622@S;}@ @-@DD H  2 $N-@HP"-@Ta682@Sei@myF-@};}0J N  2 $ 6-R:,"@4F R:,@J_A" $-@%cm !@wq$$N;}-@ "-@#682@)'+@/;F-@?nJ N  2 $H --@r622;}@) @@-@ED H  2 $M-@IV6*2@)Z^@bn8-@r< @ J2;}M$M-@.6*2A!@2>8-@Bb< @ J2M$M-@fs6*2@Pw@;}8-@4< @ J2M$ <-@ 8E-5(@IL\ p9 <$ <-@ t-5(;}@  ,9 <$ (@0G>:A%,$$ "-@KO@Ss"(. G 6--Aw0;}C ?"A)"AS)"APG6-&8  0 0$B k+6-@1W_6-@5cm#/,@&qy;/@1};}M/@1 @p_/@&"@p&dkB2wL ! 6-6-6.E! A$pV ' 6-6-@Ph6.I' A$p[ ;}UU(M USE YOUR JOYSTICK TO TIME YOUR DEEP BREATHING AS YOU INHALE AND EXHALE \ ))(  PRESS THE FIRE BUTTON FOR `;}  6-R:,6-T:,j "@"9*"A t +"@=M6-%# @pQd+6-%~ %"@h6-%!%6-&;}  !! @)"@A$"I + , AP-! + A$M 4!AI6-?:Ad,*6-AI4 A$;} R%6-F:@$,$AV%F:@(3,46-F:@7F,:"F6-@ JRR6-@V  !)!$ 6-%$% A%@;} ""6-+F:AV,$AV,%+$, !-6%$F:%,!  ! 6-%!6-%$!6-  6-%$ A 6-@;} :,0+ @21,)+!A'* A`,>6-%@d5CA$ '!@1GM* @Q['6-&@2_t $ G+2@3x;}#B2w5B2w@KGAA `AR( -@PO^66-P:H:,$@9bt%,L6-P:H:,$@"x%,V;}@F\,`  9-@#@#',9(0 aPRESS FIRE BUTTON FOR  2 T:,"-@e$2( 2 A ;}( 6-P:H:,$@F%,2 "A&`< "A&pF "@J]A&P "@aeA'itZ "@xA' ;}d J-@6$2@I#/8-@3pA< @ J A'0n A-A2/-@tx@ |;}3 7 A A'0x T-@"('2@,0@4@;-@DH@ Lp? C TT:,"A'0 P-@t6*2;}@ @>-"@ &IB F P A'0 H -2@M[/-@_c@ g3 7 HT:,"A'0;} :-62@)2-@-1@ 5O6 :  G T:,!-@VSW@F[p6+2?-@tx@ |;}C G  A% ee162,71,24,165,88,105,3,133,203,165,89,105,0,133,204,160,15,24,177,203,42,145,203,136,208,248,24 =;}=165,203,105,20,133,203,144,2,230,204,202,208,231,104,96 jj0,28,62,62,62,62,62,28,62,127,255,255,255,255,255,255,0,0,1,3,;}7,15,31,62,0,0,224,240,248,252,254,191 XX124,120,120,60,30,15,7,3,255,255,255,255,255,127,127,255,159,135,131,128,128,0,0,;}G0 hh128,192,224,240,120,88,0,0,1,0,0,0,0,0,0,0,255,127,127,119,247,247,247,247,0,0,0,0,128,128,128,128 ii247,247,247,22;}7,227,227,227,227,128,128,128,128,128,128,128,128,1,3,7,7,0,0,0,0,0,128,128,0,0,0,0,0 cc192,224,240,112,0,0,0,0,0,0,255,25;}5,255,255,0,0,195,102,60,24,195,102,60,24,0,0,0,0,0,0,96,96 NN0,0,0,0,255,255,255,255,0,126,4,8,16,32,126,0,56,56,56,255,2;}55,126,60,24 D:RELAX.BAS102,60,24,0,0,0,0,0,0,96,96 NN0,0,0,0,255,255,255,255,0,126,4,8,16,32,126,0,56,56,56,255,28 s`aYoCCCCCCCC1C1C1C1C1C2MENYECBCAFHLSPRDMODEPROMPTILLFBFTPEMN@x@/}@ @@@#&@+.@36@;> @CF @KN @SV @ [_ Apcf@klsBC@/}9^^_nv_HH_ _dd@>BAIFI@NOVW^_fgnovw }/}! "#$!"%)*&12':qSAVE "D:ATASCIAN.BAS ɠΠxy}/}tٺˠՠ<F##"Z6+A A06-I:,&A x66-/}!dR;;,;,;A,;@r%,,;@07,;A;`,H6.ԭR A@i%-Ad"!67,.>:,% n/}@ &K:xl 6.67@r*7,. ,67@;F,.F67@7JN<@8R`,.^67@9dk,.7@7o,f6.}l6-/}K ՠ)6.-6%A ) @OhARDD(7@slp<@t,/}ɠΡ7@<@#5,B -B(7@9=<@Aa,٠ˠՠ֣7@ew,C --@{/}%*(7$%<$%,. @@!%@)LC(M(( ůŠTkM( îҠy,M/}(( ӮŠ$:M( ̮ĠIa@M(( ԮŠqM( Ǯ/} Ġ1TM(( ˮAoM( ĮŠԠҠĠhC@sA`/},%/1/@8 =/@8$UC(r -A  | -( [[aĠԠ/}Ǜ6.  * )6-!A(*6-&A("@:A,6-AP"@:C,6-A/}CK"@:S,6-A` "@:L,6- 6-AP"@:T,6-AO "@:G,6- 6-A "@:K,/}>6-A"@:D,A`"A 5-@#B6-"(12H:,$5 > --@#/}(02%@4 >2& 0:ҠӠDN6.ҠX (}Ҡ/}ӼbL( (!(ARE YOU SURE(Y/N) ():")"%A(B6.}H6-L l vŠҠ/}6. Š< 6-& 6--2(END OF FILE< A # -#(ǭ7,2-/} AU6@P$2( 22 67,. A ŠΠ6. Š8AR/}(}!@w&(8AdAU 6-F:B2y,*  F:Ad,"AUAp <)@{/}(>:,$67,.>:,26-%@"< Ap4>ŠΠH\6.f (}Šμ (pR/}(E(:FILENAME OR FOR DISK DIRECTORY OR CONTROL-Q TO QUITR(SAVE D:z4  4 A  A/}B4 6-B:,6.6.&67<%,.467<,.D:%@Fe(%( SAVING... @i /}ĠŠ6.(}Ġż ApĠΠ6./}$(}Ġμ.V(E(:FILENAME OR FOR DISK DIRECTORY OR CONTROL-Q TO QUITR(LOAD D:V8 4/}s B 4 A  ApL4 6-B:,6.6.&67<%,.467<,.D:V` (}@wj/}V(6-6.t ")~ Ap6 )67,.>:,(7,,6-%@Z6 A` F:A,A&/}A@  ˠ٠D:*.* A@ ( A0 A@/},$7AAR-AY@4036-7 ŠŠ6.Š(}Š/}ż(**(" WHILE PICTURE IS BEING DISPLAYED:2!!( PRESS TO SPEED UP<""( PRESS TO SLOW DOWNF$/}P$( PRESS TO TAKE PICTUREPC( (C(4DO YOU WANT IT TO COME UP FROM THEV BOTTOM(Y/N) Z(@:,"(YES/}C 6-( Apn (NO6-x3(3('DO YOU WANT IT TO TAKE LAST FRAME(Y/N) 6 6-(}-%@t6@:,/}"Ap ٠Š٩ 6--B:,. (7<,6-F:B2y,.*A #/}E-@ f  # A` "6-& 6- "6-%"AP Aju9-@"y5(/} TAKE PICTURE OF LAST FRAME(Y/N) 9"' @:,"(}(-' AP,(DO IT AGAIN(Y/N) 6@:,"A/}@ JTĠΠ^r" 6.6-AR"(|667,.>:A%,6-%#".67,.66-/}%AY-@# +6-@9/66@:J"16@2NRAV  AP+ -16/}77,.>:,'6-%+ A'@P3 @9;A* @#E+67,.>:AU,36-%A AAR/}1AY@476-A ApӠ(}Ӽ6. &3(-/}( CURRENTLY IN @@M& COLUMNS0(3(0(PRESS 1. 38 COLUMN:'(S f2. 40 COLUMN')@jwN"@I{)/}"Aw6-X"@P)"Ax6-b lvҠҠ* ((*( ҠΠ/}J6-F:A,J(ERROR-  AT LINE F:A,$AV%F:A,%"Ap(%(FILE NOT FOUND " (/}( OUT OF MEMORY "Ab( ( DISK FULL$"Ae($( BAD FILE NAME/(( TRY AGAIN/(PRESS ANY KEY /}FOR MENU A@)  ,,1,2,3,4,5,6,7,10,14,15,17,18,20,170,89 EE160,160,145,146,151,146,151,146,146,151,146/},151,151,146,151,133& EE160,160,149,138,252,160,160,160,252,160,146,132,160,160,252,1600 FF252,252,136,149,21,8,252,252,1/}60,252,252,160,146,132,252,160,252: GG160,160,252,10,21,160,160,154,152,146,152,152,146,146,152,152,146D 152,146,146,13/}1,160,160 55125,32,21,21,21,21,21,21,10,8,21,21,21,21,21,21 55149,149,149,149,149,136,138,149,149,149,149,149D:/}ATASCIAN.BAS5125,32,21,21,21,21,21,21,10,8,21,21,21,21,21,21 55149,149,149,149,149,136,138,149,149,149,149,149D:, 5( RELAX THE :(P( |>(( AND ? " (->(THIS TONE WILLN(( S;}rIGNAL YOU TO#(6( PREPARE TO;(N( RELAX THISE(( MUSCLE GROUP?" & 0 A p<-@vE(;}GtR -(THIS TONE WILL$(:( SIGNAL YOU TO?(R( PREPARE TOR(( RELAX THE(6(;} MUSCLES?: > H A pR A I -( TENSE THE(1( BY6(I( STRETCHING?(;}( YOUR LEGS OUT#(7( IN FRONT OF; ? L -( YOUR BODY AS"(5( FAR AS YOU:(L( CAN?;}?? DO(( THIS FOR;(( 5 SECS? THEN! % ) - 7 Ap; #  A p A  # ;}O-@ (c-4(THIS TONE WILL9(O( SIGNAL YOU TO2(( PREPARE TO (2( RELAX 8}Cbdy{EE