@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}L= ( 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} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 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;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}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},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭ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|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u+, DATHEXLINTOTADATLIDDBYTPASCHKSU@T} *** BACKGROUND PRINTER ***BY A. GIAMBRA990,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,U}12,13,14,15(s;@,9@",/-@"3"<68,-@ L6-A`V#Ap` A s(}CHECKING DATV}A2V6-6-%@/-@@;(LINE:?"VB:,@AP<F%6-F:A,%F:A,$AVW}+C(LINE  MISSING!FFv$-@B:,&@@:6-@:7<,,&@H`6-@:7%@<%@,,&@HX}v6-8,$@%8,P."@*@ $". @PZ6-%8,%8, d""@Pn APY}x33F:A,@*F:A,@AP":@@ D:AUTORUN.SYSF6-@Z}R6-A`\#Apf A@y(}CREATING FILE @P@0B:,"@0*"A0& A00 @`[}(BAD DATA: LINE jjFFFF00220E221522822279227A22792279224C7A2216221123A5CCF0298A48A200A90B9D4203A9FA9D4403A9239\}D4503,545jjA9119D4803A9009D49032056E468AAA081989D430360A5CDD0D3A9E69D4403A9239D4503A90185CBA000B91A03C944F0,597jj05C8]}C8C810F4C8B91A0385CEC8B91A0385CFA4CBB1CE4888B1CE48A5D06085D0A90785CBD0D2A5CBC907D0F1A90385CB,728jj205522A210A9039D4203A9E^}69D4403A9239D4503A9049D4A032056E4A9269D42032056E4BD4C0385CCBD4D0385CDA90C,587jj9D42032056E4A90085CE85D085CF85D1A974850AA9_}E4850BA907A0E2A222205CE4604C62E4A5D1D0F9A5D0D02D85CB8D,659jj1522A9018D0103A9528D0203A90B8D0403A9248D0503A5CC8D0A03A5CD8D0`}B032053E4983012230A24CCE6D0D0C8EE15,563jj22AD1522C902D0BEA9008D1522A5CFD07BE6D1A4CEB90B2448A057A228A94E8D0A038C0203861EA6a}1D689DC003E8E41E,649jjF015861DC99BF005A0014C8F23A9209DC003E8E41ED0F8A900851DA2C0A0038E04038C0503A9408D0003A9018D0103A9,56b}5jj808D0303A51E8D0803A9008D0903A51C8D06032059E4C6D1981004E6CFD00AA4CEC8CC8A24B02584CE4CDF22C6CFE6D1,656jj4C6023200000c}AD13228D2402AD14228D2502A98B850AA924850BD0DDA90085CE85D0AD8824290385CDF002E6CBAD8924,587jj85CCF002E6CBA5CBF0C94CDF22443A5d}052494E542E53504C443A4D454D2E534156D0D2C9CED4AED3D0CCA0C9CEA0D5D3,711jjC59B8B247D25A210A90D9D4203A9F19D4403A9239D45032056e}E4C0AAD034A000B91A03C942F005C8C8C810F4A900991A,593"jj03A9008DE702A9228DE802AD0F22850CAD1022850DAD1122850AAD1222850B6C0A00Af}D11228500AD122285016C0000A9,512,jj0085CC85CDAD0F228DF724AD10228DF8242000004C0E25A50C8D0F22A50D8D1022A9E4850CA924850DA50A8Dg}1122A50B,5956jj8D1222A98B850AA924850BAD24028D1322AD25028D1422A97E8DE702A9258DE802A000B91A03F00CC950D003205B25C8,573@jjCh}8C810EFA942991A03C8A900991A03C8A922991A03609848C8B91A0385CEC8B91A0385CFA00218B1CE69018DAD23C8B1,651J((CE69008DAE2368A860E0i}02E102FC24,195D:BACKPRNT.BAS1A03609848C8B91A0385CEC8B91A0385CFA00218B1CE69018DAD23C8B1,651J((CE69008DAE2368A860E0%#$| PORTPACTSTROBFUNCDELALIN@ k} '6-B@6-B@'6-@2, 6-F:,&@&AU,9@,%68@,- l}@:68@,-@O68@,-@d68@,-@y68@,-@68@,-@(#6-@0 m} A# A2-#-F:@,F:@,&@*(-$< @P Fy%2A@@A6 n}-@#@#@c2o6-@y @`P$ (ENTER VALUE 1=10: $ZJ  o}@)!@9-F:@,F:@,&@@(J @_6-$@ $dy%2A@@A6 p}-@#@#@c2o6-Ay @`n"(ENTER FUNCTION: "xJ @ q})!@9-F:@,F:@,&@@(J A}D 6-8,""@)"@.6-:6-D r}Apy%2A@@A6-@#@#@c2o6-A@y @` s}"(ENTER DEVICE #: "J @)!@9-F:@,F:@,&@@(J A@F+6-@ t}$+(+'@&P:'@,,,F6-P:+&@,'@,#"@)"@# @pe 6-%%6-@#@ u}+G6-@#@#@U%@_ A e @@&S (}2($حҠ v}ՠ5(S( Ԡ&&(1. ON 4. OFF &&(2. BRIGHT 5. DIM '' w}(3. ALL LIGHTS ON 6. SYSTEM OFF(( &&(1.KITCHEN LIGHTS 9.COFFEE POT$&&(2.LIV RM LIGHTS x} 10.COMPUTER .''(3.OUTSIDE LIGHTS 11.STEREO 8&&(4. 12. B&&(5. 13. y} L&&(6. 14. V&&(7. 15. `&&(8. 16. j ( z} ( $@ F:@ , A $D:BITPIECE.BAS`&&(8. 16. j ( Q42 POSITION 3,14:? #6;"WRITE CHECKS"150 RUN "D:CHECKWTR"225 IF OLDROW=12 THEN POSITION 3,12:? #6;"PRINT REPORT":POSITION 3,|}14:? #6;""230 IF OLDROW=14 THEN POSITION 3,14:? #6;"WRITE CHECKS":POSITION 3,4:? #6;""":POSITION 3,phi1FILERECSWNUMNAMEMONTHAMTDATEMSGWORDPAYEEAMOUNTCHECKCHKNUCHECNULENGTAMAMOUNLINEN~} }dMicrocheck - Check Writeriby Jeff KilleennRR};Ac,;@c,;@,;@,;@,;@,;@,sGG;@,;@P,;@,;@0},;@,;@, 6.OFF + A%@EEIF USING TWO DRIVES, CHANGE THE WORD "ONE" TO }"TWO" IN LINE 150_ (}-@ @4(Ready drive one withF-@ @_(Microcheck data disk>-@ }@'AR@>(and press Ԡ. F:B2y,@A`EEIF USING TWO DRIVES, CHANGE THE DEVICE} "D1" TO "D2" IN LINE 165W#67@<@,.D1:MONTH:67@ <@,.W67@<@,..DAT * AE}*@@6-@6-@6-%@67<%@b,.007@<}@,4END*"@AG&&7@<@,4ENDA6-%@c A(@6-@(6}-&@-@**7%@<%@,4DEPAE++7%@<%@,40000AE7<,}4*AE!!6-A:7%@<%@,, AE A A A6-%@c }< 4OFF(67%@<%@,.2 A< Ap!!MASTER RESET FOR EPSON RX804*@@')*@}@d4@.@.@@K:4ONAN (}-@@N(No checks }to print for 7@<@,.;-@@'AR@;((Press any key))@"+@%}@'X-@@0(@ N - NEW MONTHB-@@X(@M - MENU,)@.FFIF USING} TWO DRIVES CHANGE THE NUMBER "316" TO "320" IN LINE 3051"@:M,A6"@:N,A@;11IF USING TWO DRIVES} REMOVE LINES 316 TO 318<b (}-@ @4(Remove data disk andF-@ @b(insert MICROCHECK disk,=}?-@ @'AR@?(then press Ԡ.> F:B2y,@A?99IF USING TWO DRIVES REMOVE }"TRAP 316" FROM LINE 320@*@ A(}*%D1:MENUE5 6.-@@1(Enter month ==>5J }A%6-A:, BO!!!@ * @AT""@ 6.09" AY""@6.08" A}^""@6.07" Ac""@6.06" Ah""@6.05" Am""@6.}04" Ar""@6.03" Aw""@6.02" A|""@6.01" A~""}6.00" A A%: 6.-@@6(Starting check # ==>: A6-A:, B}$ #A"I/7@<@,47%@<%@,F6.7@<@,I$ A4O}NAP@z (}-@@:(Ready printer with checks,L-@@z(starting with No. 7}%@<%@,>-@@'AR@>(and press Ԡ. F:B2y,@A5r A }-@@P:66.ON<(}N-@@`AR@r( Printing.....CCMASTER RESET, DO}UBLE STRIKE & ELITE MODE CODES FOR EPSON RX80u*@@')*@@d<*@@'O*@@q}b*@@'u*@@wg(@(@g(@  7%@<%@ ,, 197%@}<%@,9(@(@$(@9(@ 16. ********.00167@&<@,.=:,0}-@@H&B:,,(@ 0 (@P(@(@/(@ :(@E(@}P(@/(@(@$(@/(@$i 6.6.i67@|||~~}|xxxx|8||||G@ttt@t@@UUVTUUU}UUUV`XXVVVVXXTXddFEeUUVVXXX``fDUU```)e]]]ZUVVo???@^==?@}}uuU}@}]]uu}}t}U]]}}}U@}PU]]uu]Ui@PPTTTu]uvVVVuW}]UUiUUuuUUTTTPP@@PUTUUUUUUTTTP**iUUP@@R@#*ÂȨD; ҝ<}ҍ ( Ԣy%8ԩЩЩ~ԩ%ԩˍ& H' (6ԭ7˩%̢i 90i˥i} .Lo$ /% ' <% ( ) - t+ * =q%(!0!8!@! <% ( ( ) - t+ (^ * D+L})% Q+L)% \+L)% i+L)% \+ D+L)% i+ Q+L)% \+ Q+L)% i+ D+ *L$` e% /% /%` }e% /%L#``<~~<JpppF%p00pppppppA~%!.!,/'02%3%.43floydthedroidgoesblastin}G}#opyright# 0laysoft0rogrammedby0aul,ay0resstobegingameHHH}< ԍЌ<)<Р' ԍ8 Ԉ l'hhh@ʊHH ԎЍʍ Ԏ̍ ԍЎhh@c}ҩƍҩ`)W )?ҭi  ҍҮ'iҭi i}p`0`PdPxPdPxdxdxȩ ( ԩ)ͩ5Ω'(8xԩ(ԩ'Ԣ( } *55 t+ҩ (`ppD)5Ax(79:;<=9>--.-8;@;?----7AB:;-------8} t` ` "`)(`  5`` (ͥ`55i!5i%5`Н}!5i%5`i!5i%5`i!5ѝ%5`i!5i%5` Н!5ѝ%5`Н!5i%5`i!5ѝ%5`5}`5!5%5 *˩55!5!5f !5(8!5W%5%5K %58%5< !5%5%5-!5%58%5} !5%5%5 !5%58%5Jҩҽ!50!(%50 *iL)ҩ5L)Ѝэ *ͥ e۪*}i(˥i`  !"#$)˩5̭ͩΠ&Έeͅ˥e΅̠&Έeͅ˥e΅}m˥i`ۥ%`ۥ`ۥ`ۥ` s, .10L&,Lf,4}Lm, ,)N122 22L+3333ҩ&ҽ20 & 300 ~,0 ,L\, 2)8}J  ҩ. ,1L+`4L, )i0 )12 )33%2 )3 } )?23 )?232&0)%230)3 )?4`2Խ3 *ͭ m(-i(˥i`)}))))))))+++++++++,,,,,,,,,NMLQPOTSRWVUZYX]\[`_^cbafedrqputsxwvۢ1I}2Խ3 *͠)6)2%08%50 .L- .1 .Ы`i(˥i088-08 8-}0 `68`ҍҩҩЅԥх * ҍ)i)ˈi(˥iŢҚL#8i78`8 8}8i70 -8`8`8i70 -8`8` 9i70 - 9` 9`+˩&̩8&iͥiΠˑ͈8˥}ة˩%̥ He˅˥ih e˅˥i̠0/ˈi ͥiΠ 98͈iͥiΠ / /0/ͭA (} 0ܠѠ 08$й0i%00L}/` `}#Ѡ 08$й0i%00L}/` ` %A1 ҅ % `?5D u+ + +UTIޠ/ +IL& L&.1210 , }+>)急it.... //8逍/_:(恥iy.../i@/8/3ɜ>1 l 51}9191L &i1G5 u+UTŁ ߍ8..9. ,B1 +BXD5EH VX5K}5 ֢X5SL'戦 Z5i 晥Z5 +RUTL'0&Z5 +懩X<.CY=.RUTL' B}ZD5EH VL' B VR1/.8.9.<.X@=.YTU 1 +  }-ݭL+)L%x !Ь + 1 +!%1IB5X<.D5Y=.L( }扥Ɖ iՎ  88Վ + 1 + eL(} -L@+X0ԩ.1Ԣ91)1j85Ł ,]./^.0/֍Щ }Ц448咅哅Lq*58 /L* , - ,BjD5EJ VBDEHI V䤂H}4IB4CɈj55Lq* B V}4}B4悥ńL)Ł ,]./^.0/֍Щ Х}58 /L* , - , BjD5EJ V B4D4E4HB4I V䥃łj55Ls) }B V惥łL*ńLs) u+<.X@=.Y8..9. +UT!0 + ,L%@]`i}U8T`HDE BLVg8..9.X<.@Y=.`9140.1` B VBFD5EJLVG5i`=/e/}X<.Y=./8./9.(1 + +B BXDD5EEHHT , V0 U Vߩ B VW8./}9.` m5`i1k5j58 /`//].^.// `}( &e晈i晅 i}B5}D5 I0e5I5xҥ80} e`5愊5@`5 & &}5 &}5iBi1 z5z5 m5뤌.m5}挢z5 m5  ƌ m5`pp Bg.B@A4.ppppG/p0G/AX.}􀳴􀳯󀲥}倥􀳴倀倀}reading05432#$)3+).$054$34$)3+).$()42%4"544/.ӂ ӂ Change SOURCE d}rive Ă Change DESTINATION drive - Disk Directory ̭ Exit to DOS ̭Ԃ Text Brightness} ̭Ƃ Foreground color ̭‚ Background color ΠreadingwritingPress RETURN o}r button to restart  }HX1234B55@CD1:*.*DOS SYS D1: } @@ >1 ?1 %@1 %A1ƅ % XYq0@1@}膁L%pppG@pppppppppppppppppAq@ -5,4)#/09 }pressstart4 @pppppppppAq@ -5,4)#/09 <EF PITCHKINDPULSECHOICENTENTEDATCLOCDELAVOICXPORATDNUCOP }@  8-BIT MUSIC DATA GENERATOR""B }Y ALLAN MOOSE/MARIAN LORENZVERSION 3.0(AUGUST 19852%%*******************************<<<;@,;@, };@,;@,;@,F''(ENTER THE TOTAL NUMBER OF NOTESP%(YOU WANT TO PROGRAM% @Zd 9 },n1 1 &ENTER THE CLOCK FREQUENCY YOU WILL USEx  (15K OR 64K) A@# 415K6-BV# Ap }# 464K6-B9!# Ap A''  YOU WILL GET  DATA NUMBERS% % AT A CLOCK FREQUENCY OF  }-AP  }"" ENTER NOTE (A,B,C,D,E,F,G) A! ! ENTER THE KIND OF NOTE } N=NATURAL,S=SHARP,F=FLAT AP. . #ENTER THE OCTAVE OF YOUR NOTE (0-7)" A,6! 4 }A6-@ ! A@! 4B6-@! AJ! 4C6-! AT! 4D6-@! A^ }! 4E6-@! Ah! 4F6-@! Ar! 4G6-@! A| A%" }6-@5% A%"@6-@2p% A%"@6-@eA% A%"@6-A0% }A%"@6-Aac% A%"@6-A#%% A%"@6-AFP% A% }"@6-A % A5+ #YOU ENTERED AN INAPPROPRIATE OCTAVE5 A 4N A # 4S6-%@ }# A # 4F6-&@# A 7 - "YOU ENTERED THE WRONG KIND OF NOTE7 A@6-$+@`#, }""6-P:+'+@$,,&@,6-%@& 68,-0   A:((  HOW DO YOU WANT TO DISPLAY DATA?D } N((  ON THE SCREEN (S) OR PRINTER (P)Xb 4S A@l 4P Apv Ap }!-@ } 8,,!  A` B A TURN ON PRINTER-A ##@@ }P:-@ @8, @, @D:MUSICVB1.BAS@ |01@VNUEMPTTRANVCHANGBALMOVSCROLVBSTARMUSI@%A@@AFA%@q%}@ A6 A( UP! UP! AND AWAY!**** MUSIC ****DURING THE VERTICAL BLANK(""BY ALLAN MOOSE/MARI%}AN LORENZ2***** 1985 *****< #@F--@")A%- PGG104,169,0,162,30,160,0,145,2%}03,200,208,251,230,204,202,208,246,96Zd #A n--@")A%%- xPP104,162,4,160,0,17%}7,205,145,203,200,208,249,230,206,230,204,202,208,242,96 #A`--@")A6%- **%}104,169,7,160,0,162,131,32,92,228,96 #A--@")AF%- 66104,160,0,177,205,%}145,203,200,192,144,208,247,96 #A@--@")Aa%- RR0,0,1,3,7,15,31,31,0,126,%}255,255,255,255,255,255,0,0,128,192,224,240,248,248]]63,63,63,63,63,63,63,63,255,255,255,255,255,255,255,255,252,252,252,%}252,252,252,252,248]]31,15,7,3,1,0,0,0,255,255,255,255,255,255,126,126,248,240,224,192,128,0,0,0,36,36,36,36--255,255% },255,255,255,255,255,126,0,0,0,0"%%SET UP RESERVED SPACE AND CLEAR,9AA0'A9A% }A066-?:A,@ APJ""SET GRAPHICS MODE AND COLORSTC +@AR@1A@C% }AA`^''MOVE STANDARD CHARACTERS/REDEFINEh'A'AA$r6-?:A%,|'A% }A%'A@'A@$'AAH6-?:AF, SET UP CUSTOM DISPLAY LIST/-% }@+B%A/ 7BA7SCROLLING BIT SET (64+7+32=103)'B'BA%}TX-@ +B%@9/ XSCROLL BIT SET AT EVERY LINE (7+32=39)B@B %}@e'B'BAW66TELL ANTIC AND OS WHERE DL AND SCREEN MERORY ARE'AY'%}TURN OFF SCREEN'A`'AaAW'@'@AT5AVAH5INSTALL%} CHARACTER SET ADDRESS&AY@4&TURN ON SCREEN&PUT BALLOON IN MEMORY0&-@@& @#%}$%:&-@@& @&'(D&-@@ & @)*+N4-@@$ @4INVERSE %}VIDEOX4-@@$ @4INVERSE VIDEObLOAD IN SCROLL ROUTINEl #APv--@p"%})BH%- PP164,205,200,192,120,240,19,132,205,166,206,232,224,16,240,11,142,5,212,134XX206,169,6%},141,26,2,96,216,24,173,4,157,105,20,176,16,141,4,157,169,0,141,5,212,133YY206,169,6,141,26,2,96,238,5,157,141,4,15%}7,169,0,141,5,212,133,206,169,6,141,26,2,96..INSTALL ADDRESS OF THE SCROLLING PROGRAM'AR'AS%}AX--SET REGISTERS USED BY SCROLLING ROUTINE9A'A9BBwSTART SY%}STEM TIMER 2A8@!!SET REGISTERS USED BY MUSIC KA'A9B7u@K%}B7aAhSTART SYSTEM TIMER 4 AB@*LINK IN MUSIC PROGRAM46-?:A6,> A0H%}R #A\--@R")B56%- fpFF172,44,2,240,3,76,98,228,166,203,240,13,169,0,141,0,2%}10,142,30,2zee198,203,76,98,228,232,134,203,166,204,224,168,240,16,189,0,132,141,0,210,232,189,0,132,141,30,2%}232,134,204,76,98,228--Ag")B7%- hh80,30,60,40,80,30,63,35,80,30,71,25,95,30,%}95,30,80,20,71,20,80,20,71,30,80,20,71,20,80,20,71,30,8020,71,20ii80,20,71,25,128,30,128,25,80,20,60,25%},71,30,63,25,80,30,71,25,128,30,128,30,80,20,71,20,80,20,71,3080,20,71,20,80,20ee71,30,80,20,71,20,80,2%}0,71,25,95,30,95,25,80,30,60,25,80,30,63,25,80,30,71,25,95,30,95,30,80,2071,20,80,20,71,30$.ee80,20,71,20% },80,20,67,30,71,20,75,20,71,20,47,25,53,30,53,25,71,30,53,25,60,30,63,30,71,20,75,208BMM71,20,60,25,95,30,80,30,85,20%!},80,20,75,20,71,25,90,30,63,25,80,25,60,25L$D:MUSICVB2.BAS0,71,20,75,208BMM71,20,60,25,95,30,80,30,85,20$G0 DIM BALANCE$(8):? CHR$(125):POSITION 2,10:? "YOUR STARTING BALANCE";:INPUT BALANCE$:GOTO 68220 OPEN #1,4,0,"K:":GET #1,A:C)#}LOSE #1:RETURN 682 TRAP 682:? CHR$(125):POSITION 2,10:? "ENTER STARTING MONTH (EXAMPLE: 01)":INPUT X683 IF X<0 OR X>12 THEN)$} 682684 TRAP 40000:POKE 752,1:? :? "IS THIS THE CORRECT STARTING MONTH?":? X685 GOSUB 20:IF A<>ASC("Y") AND A<>ASC("N") THE)%}N 685686 IF A=ASC("N") THEN 682695 OPEN #1,8,0,"D:BEGINFO":? #1;BALANCE$:? #1;X:? #1;"0":? #1;"1":? #1;"0":? #1;"0":CLOSE #)&}1698 OPEN #1,8,0,"D:PRNTINFO":? #1;BALANCE$:? #1;X:? #1;"0":? #1;"1":? #1;"0":? #1;"0":CLOSE #11":? #1;"0":? #1;"0":CLOSE #(a40 POSITION 3,12:? #6;"PRINT REPORT"42 POSITION 3,14:? #6;"END"50 POSITION 7,18:? #6;"USE TO CHOOSE ITEM":POSITION 9-(},22:? #6;"PRESS TO BEGIN"100 ON CHOICE GOTO 110,120,130,140,145,150145 RUN "D:REPORT"160 OLDROW=ROW:ROW=ROW+2:IF ROW-)}=16 THEN ROW=4220 IF OLDROW=10 THEN POSITION 3,10:? #6;"UTILITIES":POSITION 3,12:? #6;""225 IF OLDROW=12 THEN P-*}OSITION 3,12:? #6;"PRINT REPORT":POSITION 3,14:? #6;""230 IF OLDROW=14 THEN POSITION 3,14:? #6;"END":POSITION 3,4:? #6;"-+}"310 POKE DL-1,198:POKE DL+2,135:POKE DL+3,134:POKE DL+16,134:POKE DL+18,1343,14:? #6;"END":POSITION 3,4:? #6;",YrscINFOCKDATEPAYEEAMTMEMOFILESPDLRNAMEKTIMEAMCNBALANCMONTITEPAGDEPTTCKTTDEPCKPLINSINFN1-}P @ 1.}""*1/}***************************""* REPORT GENERATOR *""* by BOYD E. ARNOLD *""* FEBRUARY, 1985 10} *""* for use with MICROCHECK *""* by Clayton Walnum *""* #27-28, A.N.A.L.O.G. * ""*************11}*************** ~;@c,;@,;@,;@!,;@ ,;@",;@,;@,;@ ,;@`12},9@,6. C6-$68@,-968@,-C Ap LINES 40-90 FORMAT DOLL13}ARS(y 6-B:,6. (6-46-K-@6@Y6-%@f7<,4.l6-o'y @`14}2) 67B:,%@,..00) @<36-@& 36.7@}   ? @@4 DEP 4 @7@,?6-%A:,90 DEP . @7@, 91?}6-%A:,K+6-%A:,$+4 DEP ,&A:,$+0 DEP ,46.=:,> @@K @N$0 DEP *7@<@,0@ 1@}@7@,N6-%@"#@H AP# A`, Ap6""ROUTINE TO CHECK END OF FILE@1A}" A`J)6-%@"@)6-@T'8@,"@'68@,-^6- AP1B}h""ROUTINE TO END THIS PRINTOUTr/"/@@P:|n-@@" @0 @1C}I6.TOTALS ӠU"@n6.TOTALS Ϡ <" @7@,(6-4"@<6-%1D}B 6.=:, @@( @ .6-:"@B6-%' 6.=:, @@# @' t6-&@ 1E}@9 @ END OF REPORTG6-%@Q AP\@h"t6-@ A@t A 1F}@@@@ D:PRNTINFOM @Z @g @t @/ @%! @1G}%,@/$##ROUTINE TO PRINT PAGE HEADING[ A @8@@P:L-@1H}@W @[ 8-@@%6-$@ 86.7&@<,v-@@@&B:,, @ 01I} C*@@'V*@@i*@@v @*@@')*@@<*@1J}@ \-@@t&@l @ p  @Page l @ @l @C DA1K}TE PAYEE CK. # DEPOSITS CHECKS BALANCE! 6.=:, @@! @j, @BALANCE CA1L}RRIED FORWARD @-@@N @R j @7@, @@$&TO END PAGE01M}E-@@T&$ @( 66-%@B6-E$:q +@-@@? @**************1N}****Q-@@q @* *Dg-@@5 @*report generator*G-@@1O}g @* *Ng-@@5 @* BY *G-@@ g @* 1P} *Xg-@@5 @* Ů *G-@@g @* *ba-@1Q}@5 @******************G-@@a @ FOR USE WITHl}-@@- @ 1R}?-@ @O @bya-@@} @CLAYTON WALNUMv-@AP s6-%@1S}+@--@@G @ ԠY-@@ s @ [1] ALL DATA-@@/1T} @ [2] NEW DATAA-@@Y @ [3] RETURNk-@@ @TO MENU1(1(%Enter CHO1U}ICE (1/2/3) and PRESS Y#@@K:0)@;@O @:1,)!@:3,Y Ap#1V}"@:2,#68@,-@D+"@:3,*@*8@,!:6-8@,D A@="@:3,6.PROGRAM1W}(6-@2 A=%D:MENU/6. D:PRNTINFO"@:1,/6. D:BEGINFO0"@6.DATA&6-0 A1X}q +@-@@ < @PREPARE PRINTERN-@ @_ @ANDq-@@5# @1Y}PRESS '' TO PRINT5AVA$P#@@K:0)@;@F@:P,P AP1Z}\ +@-@@ : @ PRESS ANY KEYL-@ @\ @TO1-@@1 @1[}abort PRINTING  Ak +@-@@: @ please insertN-@&@k @your 1\} disk o-@@0 @ into drive #B-@@"] @ PRESS KEYoAVA$*>#1]}@@K:0)@;@>$4M@@$@. BCF:A,"A81^}M A0>-F:A,"Ap#6.DATA- AH6-&@ A@ D:REPORT3.BASCF:A,"A80g2205 IF YRS>0 THEN YEAR=YRS2520 YRS=0:IF M=N1 THEN POSITION N20,N16:? " YEAR ";YEAR;"? (Y/N) ":GOSUB IN2:IF A=ASC("Y") THE5`}N 25282521 IF M<>N1 THEN 25282522 POSITION N20,N16:? " YEAR? ":COL=36:ROW=N5:GOSUB IN:FOR X=N1 TO N22524 IF TEM5a}P$(X,X)<"0" OR TEMP$(X,X)>"9" THEN GOSUB SND2:POP :GOTO 25222525 NEXT X:YEAR=VAL(TEMP$(N1,N2)):YRS=YEAR:GOTO 25202528 POSIT5b}ION 0,N16:? B$:DATE$(N3,N6)="/ /":DATE$(N7,N8)=STR$(YEAR):POSITION 30,N5:? DATE$TEMP$(N1,N2)):YRS=YEAR:GOTO 25202528 POSIT4R985 CLOSE #N2:OPEN #N2,N4,N0,"D:BEGINFO":INPUT #N2;STARTMO:INPUT #N2;STARTMO:CLOSE #N21005 MONTHDAT$=""1040 POSITION N11,N19d}1:? #N6;MONTH;" "1080 IF CHECK$(N2,N5)="DEP " THEN UCDEP=UCDEP+N1:UCDAMNT=UCDAMNT+VAL(CHECK$(35))1085 IF CHECK$(N2,N5)="DEP9e} " THEN MONTHDAT$(LEN(MONTHDAT$)+N1)=CHECK$(N1,41):GOTO 10601090 UNCAN=UNCAN+N1:UCAMNT=UCAMNT+VAL(CHECK$(35)):MONTHDAT$(LEN(9f}MONTHDAT$)+N1)=CHECK$(N1,41):GOTO 10601100 STMTH=N0:IF MONTH=N0 THEN STMTH=N1:IF STARTMO<>N1 THEN MONTH=STARTMO-N11105 MONT9g}H=MONTH+N1:IF MONTH=N13 THEN MONTH=N11108 IF MONTH<>STARTMO+STMTH THEN 10101110 CLOSE #N2:OPEN #N2,N4,N0,"D:BALANCE.DAT":IN9q}KB%DOS SYSB*)DUP SYSBSBACKPRNTBASBjBITPIECEBASB{CHECKWT1LSTB4}CHECKWT2BASB"FLOYD OBJBMULTCOPYOBJBMUSICVB1BASB"MUSICVB2BASB"REPORT1 LSTB'REPORT2 LSTB3,REPORT3 BASB_REPORT4 LSTBcREPORT5 LSTPUT #N2;BALANCE$:CLOSE #N21480 POSITION N11,22:? #N6;"M=MENU P=PRINTOUT"1515 IF A=ASC("P") THEN GOTO 16001600 FOR XX=0 TO9r} N2:POSITION N0,N20+XX:? B$:NEXT XX:POSITION N2,21:? "Report Date (MM/DD/YY)";:INPUT AMOUNT$1610 POSITION N0,21:? B$:TRAP 409s}000:POSITION N1,21:? "Prepare & Press to Print";1620 OPEN #N1,N4,N0,"K:":GET #N1,X:CLOSE #N1:IF X<>ASC("P") THEN G9t}OTO 16201630 POSITION N0,21:? B$1640 CLOSE #3:CLOSE #N4:OPEN #N4,N4,0,"D:NAME.DAT"1650 TRAP 1610:OPEN #N3,N8,0,"P:":PRINT 9u}#N3;B$(N20);AMOUNT$:PRINT #N31660 FOR N=N1 TO N3:INPUT #N4;MEMO$1670 FOR X=N1 TO 40-LEN(MEMO$):PRINT #N3;" ";:NEXT X:PUT #N9v}3,27:PUT #N3,87:PUT #N3,N1:PRINT #N3;MEMO$1680 PUT #N3,27:PUT #N3,87:PUT #N3,0:NEXT N:PRINT #N3:PRINT #N3:CLOSE #N41690 PRI9w}NT #N3;B$(N20);"BANK STATEMENT BALANCE";1700 FOR X=N1 TO N17-LEN(EBAL$):PRINT #N3;".";:NEXT X:PRINT #N3;"$";EBAL$:PRINT #N39x}1710 PRINT #N3;B$(N20);" OUTSTANDING CHECKS:":PRINT #N31720 IF UNCAN=0 THEN PRINT #N3;B$(N15);"NONE":PRINT #N3:GOTO 17409y}1730 COUNT=0:GOSUB 1870:PRINT #N3;B$(N15);"TOTAL";1740 FOR X=N1 TO 29-LEN(UCAMNT$):PRINT #N3;".";:NEXT X:PRINT #N3;"(";UCAM9z}NT$;")":PRINT #N31750 TEMP$=STR$(EBAL-UCAMNT):GOSUB DOLFORMAT:PRINT #N3;B$(N15);"SUBTOTAL";1760 FOR X=N1 TO 27-LEN(TEMP$):P9{}RINT #N3;".";:NEXT X:PRINT #N3;TEMP$:PRINT #N31770 PRINT #N3;B$(N20);" OUTSTANDING DEPOSITS:":PRINT #N31780 IF UCDEP=0 9|}THEN PRINT #N3;B$(N15);"NONE":? #N3:GOTO 18001790 COUNT=N1:GOSUB 18701800 PRINT #N3;B$(N15);"TOTAL";:FOR X=N1 TO 30-LEN(UCD9}}AMNT$):PRINT #N3;".";:NEXT X:PRINT #N3;UCDAMNT$:PRINT #N31810 TEMP$=STR$(EBAL-UCAMNT+UCDAMNT):GOSUB DOLFORMAT:PRINT #N3;B$(N9~}20);"YOUR BALANCE SHOULD BE";1820 FOR X=N1 TO N17-LEN(TEMP$):PRINT #N3;".";:NEXT X:PRINT #N3;"$";TEMP$1830 PRINT #N3:PRINT 9}#N3;B$(N20);"YOUR BALANCE IS";1840 FOR X=N1 TO 24-LEN(BALANCE$):PRINT #N3;".";:NEXT X:PRINT #N3;"$";BALANCE$:PRINT #N31850 9}TEMP$=STR$(DIF):GOSUB DOLFORMAT:PRINT #N3;B$(N20);"DIFFERENCE";1860 FOR X=N1 TO 29-LEN(TEMP$):PRINT #N3;".";:NEXT X:PRINT #N9}3;"$";TEMP$:CLOSE #N3:GOTO 14701870 FOR XX=N1 TO LEN(MONTHDAT$) STEP 41:IF MONTHDAT$(XX,XX+N4)=" DEP " AND COUNT=0 THEN GOTO9} 19201880 IF MONTHDAT$(XX,XX+N4)<>" DEP " AND COUNT=N1 THEN GOTO 19201890 CHECK$=MONTHDAT$(XX,XX+40):PRINT #N3;B$(N15);CHEC9}K$(N2,N5);" ";CHECK$(N6,N13);" ";1900 TEMP$=STR$(VAL(CHECK$(35,41))):GOSUB DOLFORMAT1910 FOR X=N1 TO N8-LEN(TEMP$):PRINT #N9}3;" ";:NEXT X:PRINT #N3;TEMP$1920 NEXT XX:PRINT #N3:RETURN 35,41))):GOSUB DOLFORMAT1910 FOR X=N1 TO N8-LEN(TEMP$):PRINT #N8=