@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}} }CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u`EiͩkΩ͙kCop j`j0 {j`Hi͝ΝhV}`LTCERID:D"NURͩkΩ͙kCop j`j0 {j`Hi͝Νh,"#TFILEFILE1SELDPAGFLG X} d..** ATARI DISK MENU SYSTEM ** VERSION 2.1i''** PROGRAM BY: DAVID STELLMACK **k## Y}** MODIFIED BY JOSEPH BLUE **l##** TO LOAD M.L. PROGRAMS **m##** FROM 2ND BOOK OF ATARI **n Axp- Z}@"D ٠ΠŠ V-@ @ p(NEW DRIVE # |-@$@  ( [} * A0<-@$@ NAdAURh @)!@r A| A0 B$e +@ \}-@@< @DISK # NOTN-@@e(@ ON SYSTEM8 A A`#6-@ ]}- Ap8@ B Ab-@"C((͠ӠˠM BX ^}@b A`m A-@@P:?-@"m (ҠΠŠ _}6@ Ap" A`, B6 A l-@"C (ҠԠΠŠM `} AW A`b@l Bn A@.@@R1:@-@"n((ӭ a}̠ӠΠŠ,@ Ap" A`, APW-@"C((ӭ̠ӠԠΠ b}ŠM AW A`" B@" A-@A $b%2@@ c}@9-@@P= _2b$b%2@U@@9-@@P d}= _2b$"z1;@,;@,;@,;@,C@U@e e}a6-@m6-@z6.D :*.*, +AR@90@S0@] B f}w67@<@,.=:, AP@@6]1()}ŠŠƠӠŠC-@ g}G(Y-@8](@A@!6-5-@@4? A`L@V B h}b @v-@%(0J7 @*!@ --@%7(T1!@+-@ i}@%&@1(^ h F:A,A6ArM @-"( .-@A( FREE SECTO j}RS M6-@|m!@+-@ @%&@2( N-@%@%&@a( FREE SECTORS m6-@ k}M B-@"M((ίЩŠĩŠөӠ>-@@ $( SELECTION >0@@ l} @] Ap-@$@ +( =-@$@ OAdAUY A]S27@<@ m},4P*+"@)"@,=@I6-@S AL7@<@,4P(6-@B0@ n}L AG7@<@,4D(6-@2 A =@G A$$7@<@,4SA o}: 6-A:,& @)!&@&0 A: A_ B(}@;@@G6- p}S"@_6-@4$-@% @$ +67@<@,.7@<@,S67@<@, q}.7@<@,l67@<@,..67@<@,.7@<@,Y 6.-@@,6-@:7< r},,B"@F)"@XY67B:,%@,.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G s} @@+@e@=ARG Apr +@-@@4(@LOADINGF-@ t}@d(@7@<@,n A5r%??7@<@,4BIN)7@<@,4OBJAPA  u}A(@4(@FILE NOT FOUND> A`A%&%-A6A"!% 0WW162,16,32,173,6,134,207, v}104,104,157,69,3,104,157,68,3,169,4,157,74,3,169,3,157,66:RR3,32,86,228,16,3,76,166,6,169,203,157,68,3,169,0,157,69,3,169, w}2,157,72,3,169DXX0,157,73,3,169,7,157,66,3,32,86,228,16,6,192,136,240,92,208,96,169,255,197,203,208NXX4,197,204,240,210 x},169,205,157,68,3,169,0,157,69,3,32,86,228,16,2,48,69,165,207,240X\\14,165,203,141,224,2,165,204,141,225,2,169,0,133,207,1 y}65,203,157,68,3,165,204,157,69,3bXX165,205,56,229,203,157,72,3,165,206,229,204,157,73,3,254,72,3,208,3,254,73,3,32,86l[[ z}228,16,137,192,3,240,133,76,166,6,32,173,6,108,224,2,152,133,212,169,0,133,213,169,12v157,66,3,32,86,228,966-?:A {}6 the} game box <*> SELECT NUMBER`BbD EhKJ V `B dD E VyD ET V  i<ȱi D`Ȅ 1  ɪH Fȩ T U U BD E Vx*H` B V`}BޝD EhKJ V `B UD E VD ET V ` Fi<ȱin   S ixi} F摠ñҪʎХ)( Q 81ň܅ m ʍ301``HI`R }` `j   S ii奈ii ȱ  ` S <  S b Ȅ̤}0 ̰ # < Аՠ}) ȱ м зllH . 1 h`l`ȱͥ ȘȱȱȘ`Hh}` Fii(i% iҩХЍ` Q`WARNING 䠔S:<*> the }game box <*> ԠқɪH Fȩ T U U BD E Vx*H` B V` D`Ȅ  4 TU 5 BD E V2H` B V`BD EhKJ V `B }5ÝD E V؝D ET V @ &i<ȱin   S ixi &摠ñҪʎХ})( 1 81ň܅ M ʍ301``HI`R 酐` @i   S }ii奈ii ȱ  @ S   S B Ȅ̤ͥ0 ̰   Аՠ})} ȱ м зllH   h`l`ȱͥ ȘȱȱȘ`Hh` &ii(i}% iҩХЍ` 1`} R E M O V E C A R T R I D G E S:<*> the game box <*> SELECT NUMBER}% iҩХЍ` 1`} R E M O V E C A R T R I D G E S:<*> the game box <*> SELECT NUMBER<=E['m'ACIODEFMXOFCIDBBSSBEELAHAEA ! }>BEg@ @ @U A @@A@@w }Bq dGAMEBOX SYSTEM MAKERnDBM }ver 3.02x^R;@,;@,;@ ,;A ,;@,;A ,;A ,^6-BEg'6.h S` }6.h0 V`'+J 6.K:6-@$6-@. A@AR@J A" AE"@W( }}"%6-&@H%"@HA $@%A+Π̠Л6 AA0@ A }A0J A0A0T APA0^ A A0h AC A0r Ap }A0| A$5)@"A."@'1'5 $ ,)6-$+" },%A0$+,,$. A.(INSERT DISK TO BE FORMATTED$(THEN6-A0$ A ( (ARE }YOU SURE? (Y/N)) A@(N) A (Y A`L?6-@6-'6-AD36-A }?6-@V/ A/6-AV$F:Bhh,%F:Bhg,`"AA`jEA@X'-@@ E( }THIS DISK CONTAINS DATA!tG(FORMAT ANYWAY? (Y/N))6-A3 AG@A~( (Y A(A }UA; (}1AT@D:; A= A06-@%6-@16-@=6 }-A# A6.D:*.*# A' A6-%@"'(/!@!6-@% A / A }0 A  A  (4-@@#'( To CONTINUE,1 A4$2) A&(CURRENT DIRECTORY })$wԠÛxI6-@6-'6-@36-A?6-@I A@A9A'AF }36-@= A@$Šԛ A!!(1] BOOT with message(2] BOOT with  }""(3] BOOT with Š A $&&(4] RE-WRITE BOOT #%@(5] to CONTINUE }I( SELECTION:!6-A+ A5 AI"@RA"0"AU$ A %:(USE WHICH O }NE?&6-A0 A: AG6-&@I6-@)6-@G @I)!@QA E6. D:GBOX }.OBJ/67@<@,.=:,;6-@E A2 A p A+-@@2)"@6- }"@6-"@6-"@6-   A ! A A! A 5*A 6-$ }AV%'6-$AV%76-&%@A A3Р ̠ϛ4(A@ A(GETCHR> }AAH;$A&AV$P:'AV,;AP:'AV,R6-?:C:,,56.246567@, }.>:P:'A(,%@,767@,.>:%AP,767@,.>:&@,96-%@!AU+6-&AV96 }-%@<67@,.>:,'67@,.>:,667@,.<6.Y( (6- A) A/6-56- }A6-@M6-Y6-@ A6-%A(+!AU6-&AV+6-%@%6-%@% } @A"5 A  Š՛ K6-6@ A2(1] Create menuK(2] Change menu }*( SELECTION: 6-A * A + A+ @I)!@PA0 %"@P6-@% AC T0( }'}ENTER UP TO NINE NAMES FOR THE GAMEBOXT(MENU, USING 17 LETTERS OR LESS. ##(ENTER WHEN COMPLETE h 6. }6-"6-@.6-:6-AF6-AR6-@^"@Ih A +6-%@%-@)@ }%+(! +(GAME # >+"@IA10& ) 6-6-$@@&@6) AD5 % 6-( %-@@ }%: .*"@*7@<@,4 . ? >7@<@,4 &(46-&@> A2D X67% }<%,.>:%@,067%%@,.D67B:,%@,.X"@ A2I %6-%@@% A"A1N '6-@ }6-%A(' A1 ""ԠŠՠϠ˛ (TRANSLATING # D-@B:,"6-@:7<,,. }"@2:6-D A20 !!") @2A2@ 6-@:7<,,%A` -67<,.>:,-(P:'@@,%@ }  67Av,.>:, %6-@ A6-%6- ) A6-%@)6-%A( +!AU }6-&AV+6-%@  AA3<,,($}PRINT 'GAMEBOX' MENU ON PRINTER? YF-6-A0 A- }AUAAŠՠϠқ AI/-@B:,@/6.7<%@,,,( >:P:' }@,%@I,  ( ,,($}YOUR 'GAMEBOX' DISK IS NOW READY TO**("HAVE THE BINARY FILES TRANSFERRED. }(WHEN YOU'RE DONE,"00((JUST REBOOT YOUR SYSTEM AND PLAY AWAY!,//('REMEMBER, YOU MUST LOAD THE PROGRAMS6&&(I }N THE AS THE MENU!@--(%PRESS TO TRANSFER FILES, ORJ))(!PRESS TO END THIS SESSION, ORT (PR }ESS 'P' TO PRINT MENU.^-6-AB A-"AUAc"@A@h$Ԡՠ͠˛ }O A6-%6-A`16-A0; AE AO A 36-@6-A'6-@-6-3 }6-Q A6-%@)6-%A 5!AUC6-&AVQ6-%@Q A6-%@)6-%A }5!AUC6-&AVQ6-%@ A"@$ AI&-@B:,@@& AD++ }@:7@<@,,"@2AC))( P:'@@,%@ &( $/Šӛ0Z6 }.7<%@,*-@@86-@:7<,,D"P6-@2Z AD :6-&A`D67<,.>:, $ }#Ҡˠқ$<6-@6-@$6.P:. AIP8 A< .6-A0 A8 ( }Alig }n PAPER, AB&!(<*> THE GAME BOX <*>&(L$VM"(} NO PRINTER AVAILABLEM(&PRESS TO CONTIN }UE, TO EXITj A$Šٛ9 A6-%6-A0/ A9 A8A }@X(8( Directory names? NO/7 A6-"@*6.̠7(APE(àՠԠɠϠ }E($ THIS PROCESS BE REVERSED! (ARE YOU S U R E  16-4YES%6-@16. },,(DIRECTORY NAMES  BE ERASED ![6-@6-A'6-@36-?6-@QA[ } A'6-@6-%@' A76-@6-A% A7A6'6-@6-% }@' A/6-&@ A`/-@A(A5%@:7<,, 6-@ A '6- }@6-&@' A%6-@6-A% AoA6'A9@ 9A@@ }KAAA(]ABAoACA&'-ADAc#AU' (%6-@6-A% A }<((( }YOUR GAMEBOX DISK HAS JUST BEENAA'(ALTERED TO REDUCE THE CHANCE OFA(UNAUTHORIZED COPYING.F**("Pres }s 'B' to boot 'GAMEBOX', orG##(Press for main menu, orHH#(Press any OTHER key to quit- A9"@fH6-? }:B,K/(ENJOY!!,AR/p6.B<\\\\|////>u((67B:,%@,.B THE z }((67B:,%@,.B GAMEBOX ((67B:,%@,.B VIDEO ((67B:,%@,.BTIMEWASTING((67 }B:,%@,.B SYSTEM ((67B:,%@,.B((67B:,%@,.B $W!! }Š٠ÛX/ A6-%6-A0/ AbI6-@6-A'6-@36- }?6-@I Al%6-@6-A% Av96-@6-%@' A9A6@f'6-@ }6-&@' A'6-@6-%@' A*6-@6-&@' A*$?ˠ }̛@#Ai@# AJApěT!ArAs!ƛ^"AxAy" }ãh6-?:C:,,$Š٠ӛ A)!A$-A(@A6% } --@@--A(@"A6%  "$(# A-#%%(THIS PROGRAM } WILL STEP YOU2#%%( THRU THE PROCEDURE FOR CRE7#%%(ATING A GAMEBOX CORE SYSTEM<#%%(. PRESS TO EXIT FROM A }A#$$(NY PROCEDURE. THIS WILL REF#''(TURN YOU TO THE PREVIOUS STEP.K###(PRESS TO CONTINUEP#6-A0 } A$U#& A6-6@&6-Z###(0] CREATE 'GAMEBOX' SYSTEM_#(1] FORMAT DISKd#(2] C }REATE BOOTi#(3] CREATE/EDIT MENUn#(4] SCRAMBLE DISKs#(5] DISPLAY DIRECTORYx#(6] REPRINT MENU}# }(7] UNSCRAMBLE DISK###(8] TRANSFER FILES TO DISK#( 9] #E( SELECTION: A5 @H)!@W };(E AE#$#767@,.67,..67@,.46.7$# 6-C:,#26-&AV$P:'AV,/6 }-P:'AV,2$$ 6-C:, AT$+6."@+6.^$%(INSERT  DISK,% Ar$I6 }-@6-@'6-36-?6-@I A|$26-#-A6AF.6-F:,%2 $" }A*"@$$<9"*+")"A D)"A)"A,<$$ ( A$#( Press  }A#$$"(}THE GAMEBOX SYSTEM"$%& A6-@# A&. D:BOXMAKER! e<=5dxNSATTNNNHMZCCNUDIQTOTOTOTOTOTA0 A~ @@$}@A $}̠ˠ + 99CHANGE L$}OOP IN LINE 330 TO ADJUST TIME SPEED +#V&9@,9@,;@ ,26-@>6-@J6-A$}V6-( (} ((( TIMER(2( DIGITAL CLOCK/CALENDAR<U( ( (( OPTIONS((1( 1 - SET D$}ATEC( 2 - SET TIMEU( 3 - SET TICKA+( 4 - SET ALARM+( 5 - START CLOCKFF( ( (( WHICH OPTION"((}F$} @)!@@pP//AApA@AZm(ALARM TIME (H, M, S)$m!6@*$} @$*!6@* @`*!6@* @`@`d0&(ILLEGAL TIME (24 HOUR FORMAT)!0 @n&(CURRENT DAT$}E (M, D, Y)&x A6-A%68@,-@1-68@,-@)B68@,-@1W68@$},-@0l68@,-@168@,-@068@,-@168@,-@168@ ,-@068@$},-@168@,-@068@,-@1&&!* 8,%@AP> A 4( ONLY HAS A MA$}X OF8, DAYS!> A!!@)@)A`$$"P:'@,$@A`H>(THE NEXT LEAP YEAR I$}S@%P:'@,$@!H A @`&(CURRENT TIME (H, M, S)&LL!6@* @$*!6$}@* @`*!6@* @`@`0&(ILLEGAL TIME (24 HOUR FORMAT)!0 ApC+(#DO YOU WANT SOUND OF TI$}CK? (Y OR N)/74YC6-@ @`_ +@@),@'@;,@'@"M,@H@$}_,@H@"+6-@!AR@+ A `6-@6- A6-@26- A$}6-@R6- A%6-%@% @`A6-%6-%@% @`A6$}-6-%@" @$A,6- A 6k"@12@E@@E-$}@I k2@--))& @)&!@A0Ec)2@+@$,$}@@=-@5A c2@J-@` O0@@^$}A@hA0r A |DIGIT OUTPUT*-@@&68,-@*  A%@ $$}68@,- A$l68@,--68@,-B68@,-W68@,-$}l68@,- A$-68@,--68@,- A$-68@,--6$}8@,- A$B68@,--68@,-B68@,- A$-68$}@,--68@,- A$-68@,--68@,- A$&W68@$},--68@,-B68@,-W68@,-0 A$: A$D768@,-$}-68@,-7 ApN AX b-@@l (8, Av -@$}@(8,A @ A $ A%@$*,%@ '/%@%$}@ *$2,%@%@//%@%@ 2$*,%@'/%@%@*$ ,/%@$}$ ,/%@$",%@/%@ "$*,%@'/%@%@*$ 6-P:'@,$} A6-%@ 6-&@$ A*$4 A %@$>6.JANUARY A PH6.FEB%}RUARY A PR6.MARCH A P\6.APRIL A Pf 6.MAY A Pp6.JUNE A Pz6.JUL%}Y A P6.AUGUST A P6. SEPTEMBER A P6.OCTOBER A P6.NOVEMBER A P%}6.DECEMBER A P$X A (}1(  , 4(U(ALARM SET FOR ::X$E6%}-%@E!8,)+"@)*P:'@,$@,A A `$16-%@6-@1 @A %}'6-@6-%@' A l++(# PROGRAMMA D2:CLOCK.DIG@$o9:sOUTICRISSULINECOUNPLILINUNLCTOTACHKSUPRODUC)} d88 DEBUGGING AID BY ISTVAN MOHOSn!!VERSI)}ON 2 MODS AND CASSETTExVERSION BY TOM HUDSONT +(T(?This run will LIST data statements to the screen or )}printer.i(f([This DATA is created by evaluating each character of a user program, LISTed to tape.i(&&;@) },;A(,;@,>$(OUTPUT TO CREEN OR RINTER(>0S*0PA`5 4S+@@) }E:5 A7@3(READY PRINTER AND PRESS 7- A-@@P:,(() }ENTER ISSUE NUMBER( A,M('(READY TAPE AND PRESS G@@C:J(M('6-) }6-6-'6-@B A@@(6-%@B6-A:7@<@,,/6-%@/!@* ) }@A"@A(@6-@S 4S6-%@%"@C(PRESS TO CO)}NTINUEGS6- 6- (@ DATA "! 6-!@ !6-@,R-@B:,$6-$@:7<,,)},6-%:6-%@F"@R6-@6= 6-%$AU%6-%@1"@=6-@@6-&A$P)}:'A,J'(@,6-%' A0T@"Ap^(@h@rD (}D()}5Your typed-in program was not properlyLISTed to tape.|n(](*Please LIST your program to tape, thenRUN >:@4,CHEC)}K>:@4, again.h@kn D:CCHECK.BASSUPRODUC(<RS 0 FIPIISSULINECOUNICRSRANGLINCOUNCHECKSUNUMBEPRODUCITETOTADATU-}@ @ -} 88 DEBUGGING AID BY ISTVAN MOHOS""VERSION 2 MODS BY TOM HUDSON[ +-}([(FThis run will LIST data statements with the name: , to the disk.(i(f([The DATA is created by evaluatin-}g each character of a user program, LISTed to disk.i(2;@,<&@"(ENTER FILENAME&F*6-F:A-}Y,6-*P,((ENTER ISSUE NUMBER( @,Z* @`*@@dA-}Anf (},(DISABLING SCREEN...STAND BY...@-@AD PAYfdebug before pokingx 6--};A&,( AP@(6-%@ A0K@6-P:'@,69,9,;@,K+"-})4,A0II@:7@<@,, @H)@:7@<@,,!@WA06-@ @4 6-6-}-#-@@067<,. 4  6-*@6-@*6-%@87<,0  67<,.7<,.-}6-%@8 A 6-A:, 68,-6-%@ Ap@%6-%@%"@A-} A@$@6-@$ @-@6-"F)@6-$ 6-%.6-%@:"@-}F6-@,"AUA 6 A@?6-&A$P:'A,'68,-3!@ ?6-@J T@- }@1@@D:BUG:6-8,@6-^'6-@6-! @'6-h @ DATA -!}rB-@$6-8@$%,6 @,>6-%B | @36-%@6-&@3 @-"}A  6-8, AP@AYUU(M}To check data against printed data statements, t-#}ype NEW. Then type:\\(ENTER >:@4,@D:BUG . Type LIST after the READY prompt.U(U(JThe-$} line number of each data statementcoincides with the first line of the88(0user program which the data statement evaluate-%}s.aa(YNumbers within each data statement represent consecutive lines of the user program.%%(The last number is-&} the total.R(R(GCheck the number of each state- ment against the printed version;PP(Honly in case of a discre-'}pancy check each number in the data statement.]](7Make note of the lines containing the bugs. Then ENTER >:@4,-(}D:yourprog# (to make the corrections.#PAY(}P(5Your typed-in program was not properlyLISTed to-)} disk.e(_(*Please LIST your program to disk, thenRUN >:@4,D:CHECK>:@4, again.be D:CHECK2.B-*}ASRS 0 FIPIISSULINECOUNICRSRANGLINCOUNCHECKSUNUMBEPRODUCITETOTADATU,HHYTPNBLEXCHMONPAYINABCDEFGHIJKLMN1OPQRSTUVWXYZAZYREOCKCK1ATMON1DT1,}OTTOTAVNCTOTOTONTOTTOTAVTOTTOTAVDNWERL@@@@1-} 1.} !"#$%@&@'1/}()*+,-./012345610}789:;<=>?@ABC6-@ 11}A ;@,;@,;@@,9@E<@,9@<@,;@,9@E,9@<@,12};@,;@,;@,;@,;@,;@, ;@,;@,;@,;@,;@,13};@,;@,;@,;@,;@,;@,;@,;@,;@,;@,;@,14};@,;@,;@,;@,;@,;@,;@,9@<@E,9@<@E,;@15},;@,>67@,. #67@@,.267@,.>6-@ 6.=:, AA@'A16}@9A ?(}QAR@c-@@(f-@@17}(--@3@3(E-@@f( A JANUARY G JULY f-@@(--@3@18}3(E-@@f( B FEBRUARY H AUGUST f-@@(--@3@3(E-@@ 19}f( C MARCH I SEPTEMBER f-@@(--@3@3(E-@@f( D APRIL J 1:}OCTOBER f-@@(--@3@3(E-@@f( E MAY K NOVEMBER f-@1;}@(--@3@3(E-@@f( F JUNE L DECEMBER  f-@@(--@31<}@3(E-@@f(~-@@ 4(ENTER MONTH OR WEEK NUMBERT@1=}@K:a)@l@~B7tA,!@H @T)6-&@H,$c @e1>})!@v--@@O2@0@@c-@@ @e)!@v ?21?}@@@S-@@W [ }2 A@ %A),6. 1@}"6.D:JAN., A*,6. "6.D:FEB., A+,6. "6.D:MAR., A,,61A}. "6.D:APR., A-,6. "6.D:MAY., A.,6. "6.D:JUN., A1B}/,6. "6.D:JUL., A0,6. "6.D:AUG., A1,6. "6.D:SEP., 1C}A2,6. "6.D:OCT., A3,6. "6.D:NOV., A4,6. "6.D:1D}DEC., AL$u6-6-'6-;-@@0H6-%8<,[6-%8<@,n6-%8<@1E},r u$ J (}0("ĠŠӠ3(6(J(RENT/MORTGAGE-- ,(ELECTRIC-------,(TELEPHONE--1F}---- 3( ((((((#('(+(/(3( h6-@#-@@7-@%@K6.=:8<1G},,U Ad(7@<,h  J#@@K:0)@;@GJ$ (} W)(1H}!ŠŠӠ,(/(C(FOOD-----------W(CLOTHING------- 7( ((((((#('(+(/1I}(3(7( h6-@#-@@07-@&@K6.=:8<,,U Ad(7@<,h  J#@1J}@K:0)@;@G!J$-@"J(ӠӠԠԿ CAT=>:%@1K}d, j@@K:w)@@"@$"@x' AeE A@1L}-@"J(ӠӠԠԿ CAT=>:%@I, j@@K:w)@1M}@ "@$"@x' Ag@ AA~@'A@9A@K1N}A Q(}~((ǠӠ@-@@(&ACCOUNT NO. 1 2 1O} 3 B-@B(( o-@"(BALANCES4-@@1P}@6-L6-V A` Ao(7@<,-@"@!6--6-@7 AA AP1Q}(7@<,b-@1@n6-z6-@ A A(7@<,A-@"(TOTAL 1R}OF1( THE CHECKSA( OUTSTANDINGn6-#-@@E66-%8<,: L-@@ U6.=:,_ A1S}n(7@<,n6-#-@@E66-%8@<,: L-@"@ U6.=:,_ An(7@1T}<,n6-#-@@E66-%8@<,: L-@1@ U6.=:,_ An(7@<,B-1U}@B((|j-@#( 1 DEPOSIT5-@G( 2 WRITE CHECK1V}Y-@j( 3 WITHDRAWAL~Z-@3(4 LIST OUTSTANDING CHECKSE-@Z(5 RETURN TO MENU1W}B7tA'-@ 6( CATEGORY?V@@K:c)@n@B7tA1X}!! @I)!@SAU77&@HAVAWAXAYAU  AU[ (}-1Y}@G('ǠŠԠQ B[ A-@ )(ACCOUNT NUMBER?I@@1Z}K:V)@a@ @I)!@QAVB7tA/( +(1[}DEPOSIT/1168<&@I,-8<&@I,% APD-@ )(ACCOUNT NUMBER?I@1\}@K:V)@a@ @I)!@QAWFB7tAI[(AMOUNT OF CHECK1]}D(" W( CHECK NUMBER[KmB7tA6.=:,-B:, @U(#ˠ1^}ҠԠŽŠi-@Am LGB:, @=(& G AWNV1_}6-&@I%-@@E68<,"A68<,-L68<,-V AW S X+!68<,-8<,&+ 1`}AP-@ )(ACCOUNT NUMBER?I@@K:V)@a@o6-&@I 1a})!@AXB7tAY( -( WITHDRAWAL1O68<,-8<,&Y1b} AP G (}-G('ǠӠ~((ACCOUNT NUMBER?:@@1c}K:G)@R@`6-&@I~ )!@AYB7tA AYp)-1d})-@@E M8<,"6.=:8<,,, AM(8<, $7@<, %*F:@,"1e}@*@@ * 4-@4(DELETE OUTSTANDING CHECKS?T@@K:a)@1f}l@"@xAP9"@AYP; AY@>;$( 7( CHECK NUMBER1g};C-@@EH08<,"68<,-068<,-M R]-@##-O(' 1q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSb%WDIRECT b|BOXMAKERRUNb~GBOX0 OBJbGBOX1 OBJbGBOX2 OBJbOBOXMAKERBASb$CLOCK BASbCCHECK BASbDCHECK2 BASb+BUDGET BASbVKILOWATTBASb]THERMOWTBASbBzSOLIDS BASbSOLIDS DATb SOUNDEMOBAS S ] AYoO#@@K:0)@;@OA1r}rd 4(}"-@@B(YOU FORGOT TO ENTER A MONTHV-@AZ d Aso"(}1s}'-@@M(!YOU FORGOT TO ENTER A WEEK NUMBERa-@Ae o At$u) A` A`)@1t}vA@'A@9A ?(}QAY@4c-(1u}ĠӠw[-@ @0(() TOT VAR<6-@Q(A RENT/MORTGAGE-[ Az"(B ELE1v}CTRIC------" A"(C TELEPHONE-----" A (D  A (E  A (F  A1w} (G  A (H  A (I  A (J  A (K  A (L  A1x} (M  A (N  A (O  Ah6-#-@@06-%8<,4 =61y}.=:,O-@@Y Ah(7@<,n6-#-@@66-%8<@,: C6.=:,U-@$1z}@_ An(7@<,(  TOTALS Aa@n6-#-@@66-%8<@,: C61{}.=:,U-@2@_ An(7@<,7-@@6.=:,( A7(7@<,k-@$@1|}6.=:,( A7(7@<,I-@2@R6.=:,\ Ak(7@<,d-@@"#( CATEGORY?C1}}@@K:P)@[@g"@Hs6-@} A A`ea6-&@d' @1~})!@9-@ a(#P RETURN TO MENU 0 UPDATE DISPLAYfV @)!@+-@!V(&Q CHANGE 1}DATE R VARIABLE EXPENSESgs @)!@+-@"?(S LIST PAYMENTSS-@AW i-1}@ s Aeis"@6-@!(}3-@_('ǠŠԠi B1}s Aj Aeke/(' [(' e AeEs1}Q"@6.6.% A+6.16.=6-@G AQ A`x#"@ A# Af}/"@1} A0%6-@/ A`f-@ @"!(AMOUNT%.6.=:,fB:,!@*7B:,&@1}#"@4 A0# Af@E"@26.6.% A+6.16.; AE AfEf-@ @"!(1}AMOUNT%.6.=:,fB:,!@*7B:,&@(14 H(15 h(16 DEFINE VARIABLE EXPENSESl Ar?-@@ 1}'( LABEL NUMBER+?!@Ar,-@@! (LABEL, Ar%  A@! A" A1}# A$ Ap% Ap& Ap' Ap( Ap) Ap*1} Ap+ Ap, Ap- Ap. Ap/ Ap0 As=-@1}@#-@ 6(RETURN TO MENU: =$~ (}AA(-AA(?A A8Q-1}~((ŠŠӠ_((1 FOOD ( 2 CLOTHING)(3 2(4 ;(5 D(6 M(7 V1}(8 _(9 ? (10 (11 !(12 +(13 5(14 ?(15 :-@@#-@ 6(RETURN1} TO MENU: ?-@@ '( LABEL NUMBER+?!@At,-@@! (LABEL, At% 1}A@ A A As As As As As1} As As As As As As As As1} As@D 6.6-B:,%@+-@B:,87<,4.>6-D6-Ea 6-%$67&%@<,.1}567&<&,..G-&%@T7<,4 a67<,.0J   $ 6.=:8<,,6-@ $ 6.=:8<,,6-1}@ $6.=:8,,$6.=:8<,,$ !@6-%@  @6- t-@%@! 1}A+ A:(7@<,@6-L6-@V A` At-@$%@ l(7@<,6-@( A1}2 AF-@2%@U(7@<,[6-i6-%@l$'# +(# AAY@41A1}AtCAAtUA A`gAR@m(}-@B7tA-#00((1}2#j-@@,(A = BUDGET - FIXED>-@@X(B = BUDGET - VARIABLEj-@1}@7#o(C = CHANGE DATE)-@@ C(D = CHECKING ACCOUNTSU-@@o(E = DEFINE CATEGORIES9#J1}-@@'( F = FILE DATA9-@@J( G = GET DATA:#(-@@((H = CLEAR DATA<#"-@@1}"(COMMAND?>#z-@B((b@@K:o)@1}z@K#b"@q(}'-@@4(ԠF-@@X( ARE YOU SURE?b A7L# A81}M#;#@@K:0)@;@N#9"@q"@% A`/ B9 AP#d"1}@p(}'-@@6( ŠH-@@Z( ARE YOU SURE?d ABQ# ACR#;#@@1}K:0)@;@S#9"@p"@% A`/ B9 AU#c"@h A`+-1}@!O(ǠŠԠY Bc APZ#q"@e6-@% A`7-@!1}[(ǠŠԠe Bq6-@e\##"@e A# A`_#q"@f6-@% A1}`7-@![(ǠŠԠe Bq6-@f`##"@f A# Afa#"1}@iApd#"@g Ai#e"@r(}'-@@7( ҠI-@@[( ARE YOU 1}SURE?e Agj# Ak#;#@@K:0)@;@l#c"@r"@!(}3-@1}@A( ǡS-@@c( PLEASE WAITn#\"@r"@/-@C-@@01}T68<,-X \ # A%t6-F:A,("@)"@4!@> Aj(' 1} t Ag0!%8F:A,"@$ @. A8 Ae5"%8F:A,"@$!@1}. A8 Ag0&%t6-F:A,("@)"@4 @> Aj(' 1}t Ae5+%6-F:A,,%r"A0)"ApE('ŠԠĠ٠ΠY-@A] h1}@r A0%%6-F:A,%AV$F:A,9-@@[2@0@@(& INPU1}T ERROR - TRY AGAIN :%-@@ D%%2@@@P(&ԠҠ٠1}Πd-@@h l 2N%=/(' 9 A1}= '67@<@,.)6.>:AU,F@@Z-@n-@@0 @1}8<,  'W-@+-@@E= @8<,O @8<,S W '3-@1}/ @8<,3 ',, @'00 @'1}00 @$'@$'67@<@,.)6.>:AU,F@@1}Z-@n-@@0{@68<,-  'c-@+-@@E81}@C68<,-P@[68<,-_ c '9-@$@568<,-9 '..@1}'""@;(@$ D2:BUDGET.BASKCK1ATMON1DT0h'**DDNMKKPDPRNTRMINCMINHFCTNUNITDAYNEHCLOYHIYDUKPCLCLCLCLAVYUSCOSDDDIDDAVTIM5}SEHCDDICDTOHDDIHDTOCDAVHDAVHAVCAVLIN 5} 5} !"#$%&'(5})*+,-./0 @""(} KILOWATTS!!(5} ELECTRICITY($$( ANALYSIS PROGRAM2!!( BY JOE HARB<mm(eDURING OPERATION OF5} THIS PROGRAM, DO NOT DEPRESS RETURN KEY AFTER TYPING ANSWERS TO PROMPTS.Fn#@@K:nOPEN KE5}YBOARD TO GET INPUTS LATER IN PROGRAM WHEN GET STATEMENT IS USEDP4('(DEPRESS ANY KEY TO CONTINUE.4)@ZGG;5}@,;@,;@,;@,;@e,;@,d]6-A6-A'6-A]MINCD=MINIMUM COOLIN5}G DAYS NECESSARY FORCOMPUTATIONn11MINHD=MINIMUM HEATING DEGREE DAYS NECESSARYxbbFCTR=NR. OF KILOWATTS TO BE SUBTRACTED 5}FROM MONTHLY KILOWATT USE WHEN COMPUTING DEGREE DAYS.ooSUBTRACTING FCTR REDUCES EXTENT TO WHICH OTHER HOUSEHOLD ELECTRICI5}TY USE BIASES HEATING AND COOLING STATSaaCALCULATE: TOTAL MONTHS OF DATA (NR); LOW YEAR OF DATA (LOYR); AND HIGH YEAR OF 5}DATA (HIYR)6-"CCM$=MONTH, Y=YEAR, UNITS=KILOWATTS USED USED IN BILLING PERIOD((DAYS=NR5}. OF DAYS IN BILLING PERIODXXNET=COST OF ELECTRICITY WHEN BILL PAID ON TIME,DD=DEGREE DAYS DURING BILLING MONTHHD=H5}EATING DEGREE DAYSCD=COOLING DEGREE DAYS 6- #"", 4END# A 66-%@6-5}@ AmmSUBROUTINE TO GET INPUT FOR MENU OPTIONS A & B; THEN CLEAR INPUT QUESTIONS FROM SCREEN TO ALLOW DISPLAY5}OF ADDITIONAL DATA]6(.}TYPE FIRST THREE LETTERS OF MONTH YOU WANT.C)@P)@])@DDNEXT5} LINE CONVERTS ATASCI VALUES TYPED ON KEYBOARD TO A STRINGG 6.>:,#67B:,%@,.>:,:67B:,%@,.>:,D A05}G$p @F:@,&@4-@`(' d p39 SPACES# @5}F:@,&@#$""ҠӠϠśkEND,999,0,0,0,0,0MENU OPTIONS?<(4}THIS PROGRAM AL5}LOWS THE FOLLOWING SELECTIONS:?(DD(< A. TOTAL MONTHLY AND AVERAGE DAILY KILOWATT USEEE(= B. TO5}TAL MONTHLY AND AVERAGE DAILY KILOWATT COST<<(4 C. TOTAL ANNUAL KILOWATT USE AND COST<<(4 D5}. PRINTOUT OF ALL ELECTRICAL USE DATA''( E. DATA INPUT INSTRUCTIONS ( F. EXIT PROGRAM(4'(T5}YPE LETTER OF OPTION YOU WANT.4)@ WWGET IS USED TO DETERMINE LETTER TYPED ON KEYBOARD; A=ATASCI VALUE OF LETTER 5}TYPED*"@eA04"@fA@>"@gAPHM"@h A!`9@@5}P:C BM A`R"@iAp\$"@p!@@$f A ppPRINTER ERROR MESSAGE5}z?@+(PRINTER IS NOT ON-LINE!5 B? A p ""SUBROUTINE FOR MENU OPTION A A lU(MDO YOU 5}WANT TO INCLUDE INFORMATION ON HEATING(H), COOLING(C) OR NEITHER(N)?b)@l A0 &"@g6.COOL&6-5} &"@r6.HEAT&6-@ 2"@x6. &6-@26- ,,($MONTH TOTAL AVG T5}OTAL AVG KWU A+(! KWU DAILY DGREE PER A8 SPACES BEFORE KWU E.(& KWU USE DAYS DGREE DAY5}E14 SPACES BEFORE KWU -@ " 0A2& Y6-P:A$','AYCOMPUTE UNITS PER5} DAY AND LIMIT DECIMAL PLACES DISPLAYED0 %"6-!% A1P: %"@6-!% A1PD +"@5}))!6.N/A+ A1pN X06-P:A$+&,'++'@0,$,,'A96.=:,XCOMPUTE UNITS PER DEGREE DAYX >>5}LINES 3170-3190 USED TO ALIGN AND PRINT SCREEN DISPLAYb \6-@&B:=:P:,,,16-@&B:=:P:,,,E6-@&&B:=:,,5}\6-@2&B:=:P:,,,l J( -F:@,"(1-F:@,6(E-F:@,J(v -F:@,(  5} # L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@ -"@ A0# A- A05}  (} A ""SUBROUTINE FOR MENU OPTION B A%%(MONTH TOTAL TOTAL UNIT;%( KWU 5} COST COST;9 SPACES BEFORE KWU-@"0A@> 6-P:B$+',,'B>5}CALCULATE AVERAGE DAILY USE16-@&B:=:P:,,,16-@&B:=:P:,,,U( -F:@,(( 7-F:@5},<(Q-@%F:@,U(   #L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@5}-"@ A0# A- A@0 (} A ""SUBROUTINE FOR MENU OPTION C_L(D}DO YOU WANT TO INCLUD5}E INFORMATION ON HEATING (H) OR COOLING (C)?Y)@_6-&"@g6.COOL&6-&"@r6.5}HEAT&6-@G/(  AVG KWATTG22 SPACES BEFORE DDN$G.(&YEAR KWATTS DGREE P5}ER DGREEG10 SPACES BEFORE DGREE((( USED COST DAYS DAY36-6-'6-36-5}-@"AQ@1"6-'6-1 AQ01"@6-5}'6-1 AQ0 6-%6-%&  6-%6-%   #66-!66-P:A$','A5}(H6-@&B:=:P:,,,16-@&&B:=:P:,,,H6-@0&B:=:P:,,,2T(%A  ,-F:@,1(5}@-F:@,E(T-F:@,<(F'6-%@' %@AP`P#Z:(-("DEPRESS ANY KEY TO RETURN T5}O MENU.:)@d A o""SUBROUTINE FOR MENU OPTION Dp6-6-Q(1}TYPE NUMBER OF LINES PER 5}PAGE TO BE PRINTED.^)@k)@6-++&@H,$@,%+&@H,zC3>:@',>:@V,CDISABLE 5}EPSON "END OF PAPER" FUNCTION\C(@2 TOTAL AVG TOTAL AVG\24 SPACES BEFORE TOTAL]5}E(@4 HEAT KWATT COOL KWATT]24 SPACES BEFORE HEAT[C(@2 KWATTS TOT5}AL DGR PER DGR PER[8 SPACES BEFORE KWATTJG(@6YEAR USED COST DAYS DGR DAY DAYS DGR DA5}YJ36-%@6-c6-6-'6-36-?6-K6-W6-c6-5}hhCDDIV & HDDIV ARE NUMBER OF ANNUAL KILOWATTS FOR HEATING & COOLING. ONLY MONTHS WITH MORE THAN 100nnCOOLING OR 2005} HEATING DEGREEDAYS ARE INCLUDED. 500 KWATTS PER MONTH SUBTRACTED BY FCTR FOR OTHER ELECT.ggCDTOT & HDTOT ARE TOTAL HEATI5}NG/COOLING DEGREES PER ANNUM FROM MONTHS WITH SUFFICIENT DEGREE DAYSWK6.A 6} W65 SPACES9-@9CALCULATE ANNUAL CONSUMPTION AND COST"Aa6} !6-%6-%& !6-%6-%& 6-%6-%$   #.*!*6-P:A$','A86}*!*6-P:A$','AB;(@%A;67@&B:=:,,<@,.=:,L((67@&B:=:P:,,,6}<@,.=:,V%%67@%&B:=:,,<@$,.=:,`((67@0&B:=:P:,,,<@2,.=:,j%%67@A&B:=:,,<@@,.=6}:,t((67@E&B:=:P:,,,<@G,.=:,~(@6-%@'6-%@' %@A`p# 366}-%@hhCALCULATE AND PRINT MONTHLY DATA. SUBROUTINE 6410 PRINTS COLUMN HEADINGS ON EACH SHEET OF PAPER Ad6} Ad` qR(@A KWAT KWAT`6-%@q47 & 10 SPACES6}_Q(@@MONTH DAILY MNTHLY MNTHLY COST HEAT PER COOL PER_6-%@uR(@A KWATT6} KWATT COST PER DGRE DGRE DGRE DGRE`6-%@u8 SPACES BE4 KWATT(pQ(@@ USE USE 6 } KWU DAYS DAY DAYS DAYT3b6-%@p8 & 13 SPCS2$< 6.JAN AfF 6.FEB Af6 }P 6.MAR AfZ 6.APR Afd 6.MAY Afn 6.JUN Afx 6.JUL Af 6.6 }AUG Af 6.SEP Af 6.OCT Af 6.NOV Af 6.DEC Af@(6 }} A :-@:CALCULATE MONTHLY CONSUMPTION AND COST"6-6-06 }Ah (@ WK6.A W65 SPACES 6-6}P:A$+',,'A((67@&B:=:P:,,,<@,.=:,%%67@&B:=:,,<@,.=:,"((67@"&B:=:P:,6},,<@$,.=:,, 6-P:A$+',,'A6((67@(&B:=:P:,,,<@1,.=:,@%%67@9&B:=:,,<@8,.=:,6}J* !*6-P:A$++&,',,'AT4"*67@B<@D,.N/A4 Ag`^((67@C&B:=:P:,,,<@F6},.=:,h%%67@S&B:=:,,<@R,.=:,r* !*6-P:A$++&,',,'A|4"*67@V<@X,.6}N/A4 Ah((67@W&B:=:P:,,,<@`,.=:,#6-%@"#6-@(@   #"6}Ahp4DECAhJ=(5INSERT ANOTHER SHEET OF PAPER; THEN DEPRESS ANY KEYJ)@%6-6}6-% Ad"36-%@""Ah@$W++INSTRUCTIONS FOR PREPARING DATA LINESX6-%A bI6}I(A}FOR EACH MONTH OF DATA YOU HAVE, YOU MUST TYPE ONE DATA LINE.l66(.THE FIRST DATA LINE MUST BE NUMBERED 1000.v6}SS(KAFTER THAT, EACH DATA LINE MUST BE NUMBERED ONE HIGHER THAN THE LAST.LL(DFOR EXAMPLE, 1000 MUST BE FOLLOWED B6}Y 1001, 1002, 1003, 1004, ETC.K>(6DEPRESS ANY KEY WHEN READY FOR NEXT INSTRUCTIONS.K)@66(.}THE FOLLO6}WING IS THE FORMAT FOR A DATA LINE:--(%1000 DATA OCT,82,1350,30,79.25,495,0++(#REQUIRED DATA SEQUENCE AND FORMAT:6}((( 1. MONTH; MUST BE 3 LETTERS LONG''(2. YEAR; MUST BE 2 NUMBERS LONG,,($3. NUMBER OF KILOWATTS USED IN MONTH6}++(#4. NUMBER OF DAYS IN BILLING PERIOD99(15. NET COST OF ELECTRICITY IN BILLING PERIOD99(16. HEATING DEGREE DA6}YS IN BILLING PERIOD99(17. COOLING DEGREE DAYS IN BILLING PERIOD:A :($LAST LINE OF DATA 6}YOU ENTERED WAS: ))(!NOW BEGIN TYPING NEW DATA LINES. D:KILOWATT.BASCLCLCLAVYUSCOSDDDIDDAVTIM4Y.(.A1A2DDNMKKPDPRNTRMINCMINHFCTNUNITDAYNEGUNITGNEHCLOYHIYUDKPCLCLCLCLANEAVYU:}SCOSDDDIDDAVTIMSEHLIN@H  A` A A A:} @% @AB@(@(@X@S7AE@y@@e@x@&A: }B@ @!"#@($?I%&'()*:!}+,-.  (}@( THERMOWATTS""( GAS & ELECTRICITY(:"}$!( ANALYSIS PROGRAM$(2"( BY JOE HARB"(<e(e(ZDURING OPERATION OF THIS PROGRAM, DO NOTDEPRES:#}S RETURN KEY AFTER TYPING ANSWERS TO PROMPTSFo#@@K:oOPEN KEYBOARD TO GET INPUTS WHEN GET STATEM:$}ENT IS USED THROUGHOUT PROGRAMP:('(DEPRESS ANY KEY TO CONTINUE.4)@:(}d]];@ ,;@,;@:%},;@,;@,;@,;@e,;@,n]6-A6-A'6-A]MINCD=MINIMUM COOLING DAYS :&}NECESSARY FORCOMPUTATIONxllA1$ & A2$ ARE USED TO PRINT VARIATIONS OF THE WORDS KWATTS OR THERMS SO ONE SUBROUTINE CAN BE U:'}SED FOR$$ELECTRICITY OR GAS COMPUTATIONaaCALCULATE: TOTAL MONTHS OF DATA (NR); LOW YEAR OF DATA (LOYR); AND HIGH YEAR:(} OF DATA (HIYR)6-"VVM$=MONTH, Y=YEAR, UNITS=KILOWATTS USED & GUNITS=GAS THERM USED IN :)}BILLING PERIOD((DAYS=NR. OF DAYS IN BILLING PERIODSSNET=COST OF ELECTRICITY WHEN BILL PAID ON TIME, GNET=COST OF GAS :*}PAID ON TIMEiiCALCULATE NR. OF MONTHS OF INFO IN DATA BASE(NR), HIGH YEAR OF DATA(HIYR), & LOW YEAR OF DATA(LOYR) 6-:+} #"" 4END# A ,6-%@6-6 AjjSUBROUTINE TO GET INPUT FOR ME:,}NU OPTIONS A, B, E, F; THEN CLEAR INPUT QUESTIONS FROM SCREEN TO ALLOW DISPLAY OF ADDITIONAL DATA\5(-TYPE FIRST THRE:-}E LETTERS OF MONTH YOU WANT.B)@O)@\)@DDNEXT LINE CONVERTS ATASCI VALUES TYPED ON KEYBOARD:.} TO A STRINGG 6.>:,#67B:,%@,.>:,:67B:,%@,.>:,D A0G$p @F:@,&@4-:/}@`(' d p39 SPACES# @F:@,&@#$((JAN,79,624,16,:0}26.20,51,36.18,984,0))FEB,79,602,31,25.98,60,42.40,1100,0))MAR,79,536,29,21.65,55,40.61,520,15((APR,79,454,30,19.:1}80,49,35.20,354,4((MAY,79,527,32,27.91,40,31.55,75,72((JUN,79,768,29,38.46,33,22.75,6,183((JUL,79,1281,30,55.65,1:2}0,9.04,2,348&&AUG,79,691,29,36.45,8,8.50,3,341**SEP,79,1242,32,52.16,12,14.26,22,145))OCT,79,571,30,24.43,20,20.1:3}1,311,28((NOV,79,686,32,27.92,32,25.67,425,1((DEC,79,688,31,26.75,49,40.03,757,0((JAN,80,619,28,24.45,53,38.88,96:4}2,0((FEB,80,527,32,20.97,57,45.98,967,0((MAR,80,520,29,21.41,50,41.09,723,0((APR,80,521,30,24.64,39,23.05,273,0:5}((MAY,80,591,32,34.82,22,18.97,74,97((JUN,80,739,29,37.98,16,10.49,6,203((JUL,80,1603,30,98.70,11,7.43,0,415&&A:6}UG,80,838,29,53.52,8,6.66,0,431**SEP,80,1530,32,74.26,15,10.77,20,245))OCT,80,589,30,30.45,28,22.84,311,17((NOV,8:7}0,690,33,30.21,33,27.64,620,0((DEC,80,770,31,33.04,41,34.49,908,0))JAN,81,642,28,28.85,58,53.37,1145,0kEND,999,0:8},0,0,0,0,0,0MENU SUBROUTINE>;(3THIS PROGRAM ALLOWS THE FOLLOWING SELECTIONS:>(<<(4 A. TOTAL MONTHLY :9}AND AVERAGE DAILY KILOWATT USE==(5 B. TOTAL MONTHLY AND AVERAGE DAILY KILOWATT COST44(, C. TOTAL ANNUAL KILOW::}ATT USE AND COST44(, D. PRINTOUT OF ALL ELECTRICAL USE DATA==(5 E. TOTAL MONTHLY AND AVERAGE DAILY GAS THE:;}RM USE ::(2 F. TOTAL MONTHLY AND AVERAGE DAILY THERM COST//(' G. TOTAL ANNUAL THERM USE AND COST ,,($ H:<}. PRINTOUT OF ALL GAS USE DATA*''( I. DATA INPUT INSTRUCTIONS4( J. EXIT PROGRAM>XXGET IS USED TO DETERMI:=}NE LETTER TYPED ON KEY BOARD; A=ATASCI VALUE OF LETTER TYPEDH9&(TYPE LETTER OF OPTION YOU WANT3)@9(}Rw6-:>}#"@eA0wT IS FLAG TO TELL LATER SUBROUTINES WHETHER GAS OR ELECTRICITY ANALYSIS REQUESTED\"@f:?}A@f"@gAPpS"@h/@@P:9 A`SOPEN CHANNEL TO PRINTERz#6-@:@}#"@iA0"@pA@"@qAP9"@r/@@P:9 A`:A}"@sAp$"@t!@@$ ''SUBROUTINE FOR MENU OPTIONS A & E A &":B}6.COOL&6.KWU  &"@6.HEAT&6.THERM C,(" AVG TOTAL AVG C15 SPACES BEF:C}ORE AVG **( TOTAL DAILY  USE ,,(   DGREE PER  //('MONTH USE USE D:D}AYS DGREE DAY -@ " 0A2  6-"@6-& Y6-P:A$','A:E}YCOMPUTE UNITS PER DAY AND LIMIT DECIMAL PLACES DISPLAYED0 #"6-#!A1P: 1"@6-!:F}'6-1 A1PD ! )6.N/A! A1pN X06-P:A$+&,'++'@0,$,,'A96.=:,XCOMPUTE UN:G}ITS PER DEGREE DAYX 66LINES 3170-3190 ALIGN AND PRINT SCREEN DISPLAYb \6-@&B:=:P:,,,16-@&B:=:P:,,,E6:H}-@'&B:=:,,\6-@2&B:=:P:,,,l O(  "-F:@,'(6-F:@,;(J-F:@,O(v -:I}F:@,(   # L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@ -"@ A0:J}# A- A0p  (} A ''SUBROUTINE FOR MENU OPTIONS B & F A%%(MONTH TOTAL TOTAL :K}UNIT'6.KWU "@'6.THERM;%(  COST COST;9 SPACES BEFORE A1$-@":L}0AA' 6-6-"@!6-'6-: 6-P:B$+',,'B:CALCULATE COST PE:M}R UNIT.6-@&B:=:,,.6-@&B:=:P:,,,U( -F:@,(( 7-F:@,<(Q-@%F::N}@,U(   # (L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@"-"@ A0:O}# A- A@@, (} A ''SUBROUTINE FOR MENU OPTIONS C & G'"6.COOL'6.KWATTS3:P}"@6.HEAT'6.THERMS36- 6-D,(  AVG D22 SPACES BEFORE DDN$E:Q}-(  DGREE PER DGREEE9 SPACES BEFORE DGREE((( YEAR USED COST DAYS DAY36-6-:R}'6-36--@"' 6-6-"@!6-'6-AQP:S}1"6-'6-1 AQ@1"@6-'6-1 AQ@  6-%6-%&:T} 6-%6-%   #(66-!66-P:A$','A2Y6-@&B:=:,,.6-@&B:=:P:,,,:U}B6-@&&B:=:,,Y6-@0&B:=:P:,,,<8(%A-F:@,$(3-F:@,8(F*-F:@,(&-:V}F:@,*(P'6-%@' %@AP`Z7*("DEPRESS ANY KEY TO RETURN TO MENU.7)@d (} A :W}o::SUBROUTINE FOR MENU OPTIONS D & H FOR (LINE PRINTER)p6-6-O(/TYPE NUMBER OF LINES PER PAGE T:X}O BE PRINTED\)@i)@6-++&@H,$@,%+&@H,zK3>:@',>:@V,KDISABLE EPSON P:Y}RINTER "END OF PAPER" FUNCTIONK6.KWATTS6.COOL'"@46.THERMS?6.HEATK6-P7(@& :Z} TOTAL AVGP26 SPACES BEFORE TOTALO7(@  O26 SPAC:[}ES BEFORE DDN$L6(@  TOTAL DEGREE PERL9 SPACES BEFORE A1$>;(@*YEAR USED C:\}OST DAYS DGR DAY>36-%@6-36-6-'6-36-WK6.A :]} W65 SPACES9-@9CALCULATE ANNUAL CONSUMPTION AND COST:^}"' 6-6-"@!6-'6-Aa1"6-'6-1 Aap:_}1"@6-'6-1 Aap 6-%6-%& 6-%6-%$   #.66-!:`}66-P:A$','A8%%67@&B:=:,,<@,.=:,B((67@&B:=:P:,,,<@!,.=:,L%%67@(&B:=:,:a},<@0,.=:,V((67@3&B:=:P:,,,<@6,.=:,`((@%A(6-%@j'6-%@' %@:b}A`t36-%@ggCALCULATE AND PRINT MONTHLY DATA. SUBROUTINE 6410 PRINTS COLUMN HEADINS ON EACH SHEET O:c}F PAPER Ad Adp =6.KWATT6.COOL&"@26.THERM=6.HEAT]F @3 :d} ]51 SPACES BEFORE A1$HH @+MONTH DAILY MONTHLY TOTAL COST  :e} PER(`J @  # MONTHLY PER DEGREE DEGREE`9 SPACES BEFORE A1$2kG @# :f} USE USE COST  DAYS DAYU6-%@k9 SPACES BEFORE USE<$F 6.JAN AfP 6.FE:g}B AfZ 6.MAR Afd 6.APR Afn 6.MAY Afx 6.JUN Af 6.JUL Af:h} 6.AUG Af 6.SEP Af 6.OCT Af 6.NOV Af 6.DEC Af@:i}(} A -@JJ6.@ ":j}0Ah' 6-6-"@!6-'6- 6-P:A$+',,'A 6-P:A$+',,'A:k}#"6-#Ag#"@6-#Ag"#  ) 6-# Ag,906-P:A:l}$+&,'++'@0,$,,'A96.=:,6((67@&B:=:P:,,,<@,.=:,@%%67@&B:=:,,<@,.=:,J((6:m}7@%&B:=:P:,,,<@',.=:,T((67@1&B:=:P:,,,<@4,.=:,^%%67@A&B:=:,,<@@,.=:,h4":n}*67@I<@Q,.N/A4 Agr((67@H&B:=:P:,,,<@Q,.=:,| @ #6-%@":o}#6-@   #"AhP4DECAh`M@(8INSERT ANOTHER SHEET OF PAPER; THEN DEPRESS ANY:p} KEY.M)@%6-6-% Ad"36-%@""Ah $W++INSTRUCTIONS FOR PREPARI:q}NG DATA LINESX (}6-%A bKH(@FOR EACH MONTH OF DATA YOU HAVE, YOU MUST TYPE ONE DATA LINE.K(l11()THE FI:r}RST DATA LINE MUST BE NUMBERED 1000vVV(NAFTER THAT, EACH DATA LINE MUST BE NUMBERED ONE HIGHER THAN THE LAST, FORI:s}F(>EXAMPLE 1000 MUST BE FOLLOWED BY 1001, 1002, 1003, 1004, ETC.I(J=(5DEPRESS ANY KEY WHEN READY FOR NEXT INSTRUCT:t}IONS.J)@&&(REQUIRED FORMAT FOR DATA LINE:55(-1000 DATA OCT,82,1350,30,79.25,40,35.20,675,0(DATA ITE:u}MS ARE:))(!1. MONTH; MUST BE 3 LETTERS LONG.((( 2. YEAR; MUST BE 2 NUMBERS LONG.00((3. NUMBER OF KILOWATTS USED D:v}URING MONTH++(#4. NUMBER OF DAYS IN BILLING PERIODSS(K5. NET COST OF ELECTRICITY IN BILLING PERIOD. DO NOT USE '$' :w}BEFORE COST.77(/6. NUMBER OF THERMS USED DURING BILLING PERIOD...(&7. NET GAS COST DURING BILLING PERIOD.11()8. H:x}EATING DEGREE DAYS IN BILLING PERIOD.11()9. COOLING DEGREE DAYS IN BILLING PERIOD. 22((THE LAST LINE OF DATA YOU ENTER:y}ED WAS: ((( NOW BEGIN TYPING NEW DATA LINES.D:THERMOWT.BASGNEHCLOYHIYUDKPCLCLCLCLANEAVYU8J !AFDMAOEGINXXYYOFPPXYZPVISQQQLLNZOOOOOVVVDDDDUCCCSSQQQXYZVCVCVC>{}AAAXAYATQISAVIIXTYTZTXTYTZTFFXYXYPOPLLLRRTTBBXYXY>|} @ @@@@>}}@ !"#>~}$%&'()*+,-./012>}3456789:;<=>?@AB>}CDEFGHIJKLMNOPQR>}STUVWXYd +n##(***************************x##(* 3-D IM>}AGE PLOT SYSTEM *##(* BY TOM HUDSON *##(* ANALOG COMPUTING # 16 *##(***************************>}nG;@,;@ ,;@,;@,;@,;@,V6.>:@',n67@,.>:@,?6->}6-A'6-36-A?6-B-((DMA OFF-0Y*0NA7((OUTPUT TO PLOTTER!>}70Y*0NA4NA a A@7@@PU(@*H*I*M0,-300*I>}a6-6("(ILE OR EYBOARD INPUT&64FA0KA )(%(HOW MANY POINTS ARE THERE)>}&&9,9,9,9<@,9,..(&ENTER X,Y,Z COORDINATES FOR EACH POINTF-@(POINT '>}068,-968,-B68,-F 7($(HOW MANY LINES ARE THERE(79<@,"&(&(NOW ENTER POINT INFORMATION,>}(FOR EACH LINE.6n-@( (LINE 0( FROM POINT4E68<,-U( TO POINTYj68<@,->}n @?(+(DO YOU WANT TO SAVE THIS OBJECT/?4YAPJ0NA T!!***************************^!!>}* TIME FOR NEW PLOT *h!!***************************r((((ENTER OBSERVER LOCATION X,Y,Z|( OR FOR EDIT >}A@6-@ ,(,(!ENTER COORDINATES LOOKED AT X,Y,Z A.((ENTER ZOOM FACTO>}R& A0*. 068,-!68,-068,-)6-@4Y)AY!!***********>}****************!!* CALCULATE PERSPECTIVE *!!*************************** 6-&6-&6-&.6-M:$%$>}%$,"".6-= 6-'6-'6-')6-M:@&$,)6-M:@&$,! 6-%$6-%$!6>}-%$:-6-8,#6-8,,6-8,6 A: &(-(8,"Ap02 6-8,6-8,>}6-8,( A2 Ap:  A@D!!***************************N!!* IS THE POINT VISIBLE? *X!!*******>}********************b*68,-@6-&"6-&*6-&l$%$%$!$v68,-$!!********>}*******************!!* NOW CALC PLOT COORDS *!!***************************6-'+$%$%$,! 6-%$6>}-%$!6-%$"A &&68<@,-++&,$&+&,$,'68<@,-+&,'$&&68<@,->}++&,$%+&,$,'68<@,-+&,'$!!***************************!!* SCALE THE IMAGE *!!*****>}**********************6-AP$- !!68<@,-8<@,$!!68<@,-8<@,$  >}*"6-A`&8<@,A6-@&8<@,O-@m68<@,-8<@,%68<@,>}-8<@,% 4!!***************************>!!* NOW DRAW THE IMAGE! *H!!***************************R5 +>}@$'0@1@5 \9 4Y9(@ M0,0*D480,0*D480,288*D0,288*D0,0fI-@56->}88<,,%88<@,,I"Ap"@A zl6-6-/88<,,"@6>}-8<,Q6-8<@,b6-8<,l A 66-8<@,%6-8<,66-8<@,Q 6-8,>}6-8,6-8,'6-8,06-8,96-8,E6-Q6-C6-+%,'@'6-+%,'@96-+%,'@>}C A.8,!6-6-$6-. A P 6-6-6-%6-%@% @A  6-6>}-6- Ab Ap-68<@,-8<@,$%M68<@,-8<@,$%\68,-b6-6->}88<,<@,C6-A&88<,<@,_6-88<@,<@,6-A&88<@,<@,>} AP4N)"Ai[(@M$@P,+A&,$@P*D$@P,+A&,$@P>}i6-%@ 4!((@ H*M0,-300*I46-@ -@6@<2A(>}@@ 33F:B2y,"@*T:,"@A@" +"(LAST PARAMETERS:$V(#( OBSERVER: >},,@( VIEWPOINT:,,L(ZOOM:V A@.!!***************************8!!* LOAD 3-D IMAGE FILE >} *B!!***************************L_@*(ENTER FILENAME TO LOAD.8 AU@@_ A>}V3@39,9,9,9<@,9,`+-@@'68,-+ j+-@@>}'68,-+ t+-@@'68,-+ ~@9<@,Q-@@/6>}8<,-<@M68<@,-Q @  A@(((FILE FORMAT ERROR!( A-(#(>} I/O ERROR - F:A,- A((CAN'T OPEN FILE!( PRESS %!!***************************>}!!* SAVE 3-D IMAGE FILE *!!***************************_@*(ENTER FILENAME TO SAVE.8 AU>}@@_ A(@%-@!(@8,% %-@!(@8,% >} %-@!(@8,% \(@-@6(@8<,N(@8<@,R \ Ap>}!!***************************(!!* EDIT THE 3-D IMAGE DATA *2!!***************************<7  (#(RINT, >}DIT OR UIT'74EAF4QA@P0PA@Z A@3POINTS:3d9-@23POI>}NT : 8,8,8,6 93n3LINES:3xT-@C3LINE : 8<, TO 8<@,G J3>}T A@>  (*(EDIT OINT OR INE OR XIT.>4LA4EA 0PAH("(ENTE>}R POINT# OR , A0H!) A@&(&(X=8,Y=8,Z=8,.($(ENTER NEW X,Y,Z OR >}. A0 68,-68,-&68,-0 AG(!(ENTER LINE# OR + A/G!) >}A@(#( FROM POINT:8<,@( TO POINT:8<@,4(*(ENTER NEW LINE POINTS OR 4 A>}&( FROM POINT:&!A68<,-&( TO POINT:&!A068<@,- A>}!!***************************!!* GRAPHICS CLIP ROUTINE *"!!***************************,o6-6->}'6-36-?6-K6-W6-c6-o6-6  6-@ A@ >}!6-@J !6-@ A0T  6-@^  6-@ APh !6-@r >}!6-@ Ap|  6-@85%"@)%"@)%"@)%"@8$% 6-6-6-6>}-% A0 6-6-6-6-1 6-6-6-6-!6-'6-1 A0(% )!) )!) )!) )!>}($ ,/6-@$$%%%"6-!6-$$> 6-%6-%+&,$+&,'+&,+6-16-;>}*>$> 6-%6-%+&,$+&,'+&,+6-16-;*>$> 6-%6-%+&,$+&,'+&,+6-16-;*>}>$1 6-%6-%+&,$+&,'+&,+6-16-$ D2:SOLIDS.BASVDDDDUCCCSSQQQXYZVCVCVC<S44-5.5-8-8-16-16-5.500-2.5-2.50-1.25-1.25-2.5-4.5-4.5-3.2-2.5-4-40441.251.252.52.55.55.52.54.5B}4.53.22.51616883.50.50.5-0.5-3.5-0.5-5.5-131417211600-6.5-7.5-2-7.518.52218135.5-6-7.5-26-B}7.5-6-7.5-20-6.5-5.52118.52218135.517143-1-9.5-9.5-19-9.5-9.5-190000002.52.51.251.252.51.5B}1.51.256.56.531.25000001.51.51.251.25001.256.56.531.2500000.2520.620.250.6587662929729B}35353636373738382828296554433221167889910101826262727283031313232333334343014B}1515161617171818141013131212912813111188252526112424252724242323222224131919202013B}112121222021424343444442394040414139-2.5-4.5-4.5-3.2-2.5-4-40441.251.252.52.55.55.52.54.5@7.SdA(@@Q##SOUND DEMONSTRATION PROGRAM WRITTEN BY  F}JERRY FENNING 70235,672 ##THIS PROGRAM REQUIRES PADDLESbbROTATE PADDLE 1 TO CHANGE PITCH.PRESS RED BUTTOF}N TO CHANGE DISTORTION.JJPRESS PACE BAR FOR COLOR DISPLAY PRESS 1 TO KILL COLOR.iiALSO BY PUF}SHING THE RED BUTTON ON PADDLE 2,WHILE PADDLE TWO IS ROTATED FULLY CLOCKWISE YOU CAN GET A VOLUMN DROP.bF}bIF PADDLE 2 IS ROTATED COUNTER CLOCKWISE YOU WILL GET A REVERB EFFECT.d +n/0@F}/AR@x6-Q:,2@#-@@#( NOTE )-@@F})( DISTORTION ' @!-@&@'( ' A!-@'@'( ' @!-@)F}@'( !@6->S:,",-@@P0 >6-%@IS:@,"F}5-@6@E2I t+Q:@, @*S:@,"H-@6@F}X2l-@@ p t 5F:Ad,"@35A F:A,%@8F:Ad,"@3$AF}8A%@VF:Ad,"@120@DAVA @ A F} D:SOUNDMOA(@@Q##SOUND DEMONSTRATION PROGRAM WRITTEN BY  D