@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}D9X9TEXTYXXTITLEYTITLEPTITLESPACETYXYSSPACEXSPACEYYSCLXSCLVHSIGNYSCLSIGNXSCLYIDXXIDXADHSAD,}UMDUM1ANSELECYMAYMIXMAXMIMSDMSDGFMXPLOYPLOEBYTEMYTYTXTXTCHSYPRXPRTHETDUMDUMDA6-}2A2A  &(2J'(r'((  (  &( -AEAAA.}AA=A9MaAeAA@A@ ?/}6!"@#$@%? &@'Ab(@F)@4*@#+@,-Af.A /0}0@21Ax2Ac3A 4A56@ Pq789:;@b<@=BD>BU11*1}* ANALOG COMPUTING ** AUG 84 ** PAGE 59 ** Q +@-@@:(@ GRAPH E'S ! !QDisplay Program Name2}x-@@,(@ FORMATTED>-@@P(@PLOTb-@@x(@PROGRAM!3}-A ( +22( ( (2(!Loading Machine Language Routine.<~~;@P,9A,9A,;4}@@,;@$,;@@,;@@,;@@,;@$,;@@,;@,Fss;@@,;@$,9@ ,95}@ ,9@ ,9@ ,9@ ,9@ ,;@ ,;@ ,PGG;@,9@ ,9@,;@,6};@,;A,Z- A7@-@@P:d A7P(@nL A LMACHINE LANGUAGE ROU7}TINE TO DRAW GR. 0 TEXT ON GR. 8 SCREEN.xb +b(P Select array size,ND. Large ND's give smoother curves, but are ti8}me consuming.KH(@ ND=10 (Useful to check graph format.)K(DA(9 ND=100 (A good starting9} value)D('$( ND=400 (** MAXIMUM **)'( ( (+ (ND=(('-A:}+ J A JTo set graph format and select graph grid/tic arrangement.Z(CLEARING ARRAYS+-A/ ;}>6-F:AY,PAYZDMA offP-A&68,-568,-9 PTo clear out arrays.<}AY +((((((!(Select plot by number.!(( (1) Sine Wave( (2) Parabol=}a!!( (3) Circle or ellipse( (4) Discrete Points"""( (5) Other (Your plot?), ( (((((>}(6[(COMPUTING ARRAYS,-A0 ?6-F:AY,QAY[DMA off@//A) A)pA00?}A0A1@JQAYQEnter title of plot and axis legends. [Alphanumeric or symbols]TA +=(+Enter Title@} of Plot (40 characters or less)A^73(+Enter y axis legend (23 characters or less)7h73(+Enter x axis legend (26 chA}aracters or less)7r116.' |006.& !!6B}. ;;Imbed titles in the middle of centered blank strings.4467@ &B:,'@<@ %B:C},'@,. 6.4467@ &B:,'@<@ %B:,'@,. 6.4467@&B:,'@<@%B:,'D}@,. 6.''Choice of auto or manual scaling.3/('DO YOU WANT (A)UTO OR (M)ANUAL SCALING)34MA0E} 4A A1P0AA A)%(ENTER MAXIMUM VALUE OF Y AXIS))%(ENTER MINIMUM VALUE OF}F Y AXIS)&)%(ENTER MAXIMUM VALUE OF X AXIS)0)%(ENTER MINIMUM VALUE OF X AXIS):26-+&,'@2(M)ajorG} (S)cale (D)ivisionD6-+&,'@N+@%@X0@@b0@@@l H}@vE'AA`A!0A#ETo draw axes and grid/tics.33Plot subroutine. For sequential points onlI}y.6-((6-AP$++8,&,'+&,,%@E006-AP&AP$++8,&,'+&,,%@% @E)!AJ}%6-@E% @)!Ac%6-Ac ,-@((6-AP$++8,&,'+&,,%@E00K}6-AP&AP$++8,&,'+&,,%@!! @E)!AAp!! @)!AcAp / L} Print title subroutine! 6.6-!6- ; A;Causes TEXT$ to be printed on screen @ H,V.*M}Print x legend4! 6.6-!6-@#> AHPrint y legendR-@B:,\(6.7<,6-N}(6-&@f Ap zPrint y scale.-@@68,-&+&@,$-68,-N:8,,-O}Separate sign and value.68,-O:8,,6-@$68@,-@968@,-@N68@,-@c6P}8@,-@x68@,-@ 68@,-@68@,-@68@,-@68@ ,-@6Q}8@,-@68@,-@ 8"@ A& 8To select scaling factor,EX. 6-8,? 56R}8,-8,$+P:+@#6,%?,,? A B&68,-8,'P:+@#,%?,BTO ASSURE MULTIPLES OF 106.S}!"@6. ! AP6.=:8,,6.0000??Suppress 0 before decimal pt. and reduce to 3 characters.T}=8, @&67B:,%@,.=6.7@<@,R'8,!@*P:8,,&8,;67B:,%@,.R6.7v}EiͩkΩ͙kCop j`j j`Hi͝Νh`3C3<V}L TRATS:D"NURkΩ͙kCop j`j j`Hi͝Νh`3C3<  MRRRD@Ǫ¸Ǹ ,;@ X},9@,,6-C:,%@'-@'"#%' RR104,104,104,162,255,160,58,202,208,9,136,208,6 Y},170,202,138,208,241,96,142,10(212,142,22,208,24,144,2352%-A6A"!% <..104,169,6,170,160,13, Z}32,92,228,96,0,12,0FCC174,12,6,165,20,201,7,208,11,169,0,133,20,232,224,2,208,2,162P--0,189,10,6,141,199,2,142,12,6,76, [}95,228Z6-?:A6,dI +@AYI6-F:A`,%AV$F:Aa,%@n?&@@q+% \}@@?%@@xm%@@+%@@?%@@eV%@F:A`,m ]}%@ F:Aa,'A@'AR@P@'-@%6( MICROCHECKH-@(@ ^}P(D-@%@$( 6-@%@D( A-@@((Copyright 1984:- _}@@A(byC-@@1(@CLAYTON WALNUMCAY@4(%@#@"(6-?:<@ `},* +AY*%D:MENU D2:CHECK2.BASǪ¸Ǹ ,;@ C'(x ROCOCONSOSTARSELECCHOICOLDRODb} Ǫ¸Ǹ AP-@@'(@9-@@S(@ c}e-@@(@ SEARCH CHECKS[-@@2(@BALANCE ACCOUNTD-@@[(@d} UTILITIES(&-@@&(@END2p-@@<(@USE TO CHOOSE ITEMN-@ e}@"p(@PRESS TO BEGIN<16-@6-@!-1(@=>F$6-F:B2y,$*@pf}P"A`Z; "6-'@&@)+;AYd//AA A0A@APng}% D:CHECKBOOx% D:CHECKPRT% D:CHECKBAL% D:UTILITYAY@4/ 6-6-%@#"h}@/6-@-@@@ A -(@ -/(@=>AB2yh"@i}!-@@;(@ ENTER CHECKSM-@@h(@ k"@!-@@<(j}@ SEARCH CHECKSN-@@k(@g"@!-@@>(@BALANCEk} ACCOUNTP-@@g(@ ["@!-@@8(@ UTILITIESJ-@@[l}(@^"@!-@@2(@ENDD-@@^(@  @pm}-6-@6-@-AY%-AdA"!% WW72,138,72,238,159,6,174,159,6,189,128,6,n}141,10,212,141,26,208,224,36,208,5,169,31!!141,159,6,104,170,104,64,31"10,0,112,0,0,I +@AYIo}6-F:A`,%AV$F:Aa,%@6g&@A+%@A5?%@A4S%@A4gp}%@A4@S%@@+%@ @?%@!@S%@"@JE%@#@eq}.%@$F:A`,E%@%F:Aa,T9AA('A@9BBA^9AA'r}A9AAxh]AFA'AG@9AU@KAY@4]@ s}r @  D2:CHECK3.BASCHOICOLDROD%jk BRKDINAMEADDRESSCITYBALANCEMONTHFILEBCHECKINSDAINSPRNODASNDDELAROCHOICOLDROBALANCYEAu} v}Ǫ¸Ǹ Ad@.@@w}K:@AdAURA@ddA F:Ad,"AU@0(33F:Ad,"@9)F:Adx},"@`@02)@@$<##*********** BRKDIS **********FD6-F:@,!A',6-&A(y}8@DB7tP$Z##************SND1*************db%2A@@9-@AP=z} _2b$n$$*************DELAY************x-@A  $$$************IN{}SDAT************l +@ #-@@>(@ please insertP-@@l(@your data disk|}j-@@0(@ into drive #1B-@@"](@ Ӡ٠g @ j$$$************IN}}SPRO************j +@ #-@@>(@ please insertP-@@j(@ program disk~}O-@@0(@ Ӡ٠: @ D AO%D:MENU$$***********INITIALIZE*********RR;@ },;@ ,;@ ,;@,;@,;@ ,;@c,K6-A@6-Ap'6-A036-A?6-}A K6-@p""*************MENU***********S +@ #A5AR@GAU@}S6-@u-@@+(@=-@@S(@new diske-@@u(@}=>+-@@+(@new autoH%( USE TO PICK ITEM((H( PRESS TO BEGIN33F}:B2y,@*F:B2y,@Ap F:B2y,"@A"6-&@,AAA}6/ 6-6-%@#"@/6-@@_"@!-@@7(@new diskI-@@_(@}J_"@!-@@7(@new yearI-@@_(@T_"@}!-@@7(@I-@@_(@new auto^;-@(@ +-@};(@=>h7-@@P -B2y@7 Apr Ap|##**********NEW DISK***********26}. D:MONTH .DAT26. t + #AR@5A@PG-t((}Šנˠ;-@@1(ˠ̠Šġ; Ao +@ #-@@}@(@please insert aR-@@o(@blank disk intob-@@+(@drive #1=-}@@"X(@ Ӡ٠b @ F AP1@@D:MENU<@F A`}i +@ #-@@@(@ǠiAT@D1:> + #-@}@7(ENTER YOUR NAME;>(&B:, @ &67B:,%@,.(!(ENTER YOUR STREET ADDRESS%((&B:}, @ &67B:,%@,.)"(ENTER CITY, STATE, AND ZIP&)(&B:, @ &67B:,%@,.X(>:A%,}"AR@4-@@I(IS THIS CORRECT?L(P(T(X() @ )@:Y,*@:N,A0"@:}N,A`&]+@@ D:NAME.DAT8(@E(@R(@]@0^ A`(>:A%},,AR>-@@^(ENTER YOUR STARTING BALANCE:6.=:,DG-@B:,!7<,0.% }=67B:,%@,..00G AN# "B:,#67B:,%@,.00X*"B:,&@*67B:,%@,.0bRAR}@(1(IS THIS YOUR CORRECTG(STARTING BALANCE?J(R($l) @ )@:Y,*@:N,A v"@:N,}A`Q A@(>:A%,,-@@M(ENTER THE YEAR (EXAMPLE: 84)Q!! )!@A@I } BAR@"(@(IS THIS THE CORRECT YEAR?I(19) @ )@:Y,*@:N,Ap"@:N,}A@S.@@ D:BALANCE.DAT;(@H(@S@5 +@ #A@}5A@[-@@4(@CREATING FILE FORF-@@[(@MONTH #-}@)-@@6(@B @[67@<@,.0u67@ <@ ,.=:, A@67@}<@ ,.=:,@ @@1(@END<@@ K+@@ D:AUTO.DAT<(}@ENDG@K e +@ #-@@=(@ ͠O-@@e(@}̠=-@@+(@Š/ 3 = A   ""**********NEW YEAR********** t + #}AR@5A@PG-t((ԠנҠ*! A!6. D:MONTH } .DAT4F  A <@@ D:MONTH01.DATF B>9@9@@ D:MONT}H00.TMPH +@ #A@5A@G-@@_(@ WORKING ONq-@@(}@MONTH #R-@)-@@6(@B @[67@<@,.0u67@ <@ },.=:, Ap\67@<@ ,.=:,f @@p"@"4ENDA z$$7@}<@,4*A(@ AK@+@@<(@ENDG@K }(@END@u6@3@ D:MONTH00.DATu@2@D}:MONTH00.TMP,MONTH00.DATV.@@ D:BALANCE.DAT;@H@V6-%@^@}9@@ D:BALANCE.TMPF(@S(@^@u6@3@ D:BAL}ANCE.DATu@2@D:BALANCE.TMP,BALANCE.DAT   A ""***********NEW AUTO*****}****g +@ #-@@<(@ ϠՠN-@@g(@ ϠŠ1-@@}1(@נϠſ) @ )@:Y,*@:N,A #"@:N, A#%D:MENUD  A}9@@ D:AUTO.DATD@f +@ #-@@=(@ ǠO-@@}f(@ Ϡ$G+@@ D:AUTO.DAT<(@ENDG@. +@ 8s-@}@+(@נ=-@@W(@ Šk-@APo s B  A@L}""*******WARNING SCREEN*******VR-@@"(ǡ4-@@ R(THIS PROGRAM WILL DESTROY`c-@}@3(ANY MICROCHECK DATA FILESE-@@c(THAT MAY BE ON YOUR DISK!jB-@#B('Ӡç}ϠŠҠͧҠՠt-@@)A@PK2A@@m2@A@}@-@@ ~uA72A@@@Y2@AA@@}m-@@q u Y%2G2@YA@P) @} )@:C,*@:M,Ap# A"@:M,#%D:MENU$c +@ #-@@=(@ }͠O-@@c(@ԠA-@@+(@Š/ 3 = AA  ******}*****NODAT**********s@+@ .-@@G(@ ӠӠY-@@s(@ }microcheck8-@@-(@ ˡ1 5 8$ D2:CHECK4.BASDELAROCHOICOLDROBALANCYEAXij:a/v/NNNNNNNNNN1N1N1N1N1N1N1N1N1N1N2NTEMPINRETRBACKSLCOROSVBEDTFLADATMEMCHNU}PAYEMONTHFILEAMOUNFLAGOLDAMNAMOUNTDICHNUMBALANCEDOLFORMACHECKDATEPAYEEMEMOSNDIBEGITDAYSNDDFLASTARENTR}ESELECOPTSEOPTIOAUTOCNFULLCOUNMONTHDATAUTOEDICNDELAEDTEMPFILEYEABRKDISNDCHNAMEADDRESSCITYAAUTOFILED} }} !"#$%&'()*+,-.}/0123456789:;<=>}?@ABCDEFGHIJKLM}NOPQRSTUVWXYǪ¸Ǹ }6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@ {6-@6-@}6-@6-@6-@6-@6-@6-@6-@%6-@6-@ % A }$$***********DELAY**************(-AP $2##*********** BRKDIS **********<8 6-F:,!A'&6-}&A(,8B7tF$P""*************IN*************Z" 6-6."AdAUd  "AR}$n" "6--@8"( x" "6--@6"( AR"A` 6-%!AR} $- -%&(>:,#67<,.>:,- A% !(~6-&"%6. !6.7<, A}!!*********** IN2 ***********AK:#AdAU5A@dAA F:Ad,"AUA}mQF:Ad,"@9)F:Ad,"@`)F:Ad,"A$)F:Ad,"AcAdAUm A )}$""********** SND1 ************& 2- #2&$**********SND2**********22@u}!-@0% /22$""*************SND3***********"22A!-A% /22$,!!***}********EDIT************6,-@!&(,6-@ --( JJ -'(A = AMOUNT N =} NUMBER--J(D = DATE P = PAYEET$ -$(M = MEMO E = END^ 6- hCC@:A,*@:D,*@:E,*}@:M,*@:N,*@:P,APr --( |"@:A,A@"@:D,  A"@:E,6}- A"@:M,  A"@:N,  A"@:P,  A"4 D:AUTO.DAT " }A  A- 6-A:, 6-&A:,&4DEP -6-66.=:A:,%, 6. 6.$-@1}( $ A< 67,.67,.67,.-67@5,.<67@B,. --( $!!******** DOL}FORMAT ********/-B:,7<,0. ,67,..00/$ B:,"67%<%,.00&B:,"%67%<%,.00}$:!!*********** DATE **********D+ -@!+( N/6-@36-1)AR/6}-X" -(>:%A(,6-" b*4Al4AvB:, A+ -+7<,20)7<,}39A 67<,.6.A:, )A:,!A -@0( 6- $7 6-@2-@3}'( --7 A!!********** CHNUM *********** -@!*(6-@26-}-(0 1- (>:%A(,&6-,6-0 4A" 4DEP67,. " A4AUTO}AB:, A  .-B:,.7<,20)7<,39A    6.*-@2( $4& -}@2( & A0> ********* PAYEE **********H? 6-6-4DEP 56.DEPOSIT ? A R}+ -@!+( \AR1f) -(>:%A(,%6-@!) p4*A }z< 6.B:, @!+-B:,%@!867<,. <  -( AR $ ********* AMOUNT *********}+ -@!+( # 6-6-@16-#1# -(>:%A(,6-# 4*+}),Ap4A   6.-B:,00+7<,20)7<,39,*7<,0.A$7<,4.*"}6-$ A 7<,4.*!A ")!AB:,!%AB:,"Ap$-B:,}%67,.  . -( B$86 -@1 ( ,AR6 A 0B ********** MEMO ***}*******L+ -@!+( V# 6-6-AR#1`) -(>:%A(,%6-@") }j4*A`t4*A`~: 6.B:, @"+-B:,%@"667,. :  - ($ ****}****** START *********80 D:AUTO.DAT-8(RETURN = ENTER NEXT CHECKG -(SELECT = REVIEW)-@C(O}PTION & SELECT = ENDG !AdAU!B2y1!F:Ad,"*0 D:AUTO.DAT'6-1 A`F:B2y,"*}(AF:B2y,"AF:B2y,"A0 A --(  6-((4DEP )}4AUTO)40000A  , 6-A:,6-% !A,6- 6.=:,B:,"A 4 6-B:,-&!67},.0% .67,.46.(     2! -!(OPTION = EDIT CHECK<I -@!+(=}AdAUIB2yFF:Ad,"APF:B2y,"AZ APd'4AUTO*"6.AUTO' }An%"A6.CHECK% Ax) 6--@!(7,"-)(7,G67,. 67,. 67,.)67,.}867@5,.G67@B,.67B:,%,.94AUTO6-%967$@c&@b<$@c,.5AR-}(7,(-@15(7@0, 6-% -(7,)4DEP 6.=:A:,%A:,,) A6.=:A:,&A:,,4} 6. 6.-@1*( 4 A --( 0-B:,,67<,.>:@:7<,,%A`,0 }[AG@R!-@!8(  >-[(PRESS RETURN TO CONTINUEAdAU F:Ad},"AUA@F:Ad,A0, - (-@! (7,,AG"BAR-(7,(-@1}5(7@0,;-B(7,,6.7<, A6) 6- 6-AQ) A0@ --( 6-}J!A@T% -!(no checks to review% ^/  -%( / Ah&-@!&( } ENTRY # rK -!(SELECT = NEXT CHECK'-9( OPTION = EDIT?-K(E = END| 6- A  6-%}!A&&6.7$@c&@b<$@c,P6.7<,6.7<@4,66.7@5<@A,E6.7@B,P6.}7<,--@2(-@0#()--(-@1(-(-@3(AdAU }F:Ad,"@BAF:B2y,"A`IF:B2y," 967$@c&@b<$@c,.?6-I A@} A@I -(7,-#(7@%,)-6(7@0,B-@!I(7,&&6.7$@c&@b<$@c,}5AR-(7,(-@15(7@0, -(7,6.7<@E, A&(Ap00 6.} 67B:,&:@4,,b'( ((CONT-$AB'&l@A}B- D:BALANCE.DAT4(;(@v4AUTO.DATAp"Ap D:AUTO.TMP}3 -/(7$@c&@b<$@c,3 (ENDH!@3 D:AUTO.DATH@2D:AU}TO.TMP,AUTO.DATB+ -,(@ n = new month2-B(m = menu "@:M,A %"@:N,6}-6.% A" A@+ -&( please insert,-@( program disk -( Ӡ٠}  A @%D:MENU5+ -!( ͠'-5(Ԡ+ -(Š ! + A } ************************** INITIALIZE * **************************PP;@!,;,;@",};,;Ac,;,;@c,;@7,;,4DD;@",;@@,;,;,;,;,;,;,;@",>;}A,;,;,HW6-AU6-A&'6-@-6-36-96-?6-K6-APQ6-W6-Ru6-A 6-}A'6-A36-A@?6-AK6-A W6-A]6-c6-o6-Apu6-\36-@`6-A'}6-@@36-Af226.(| |p,67,. 67@7,.,67@,.zl +@} #-@@>(@ please insertP-@@l(@your data diska-@@0(}@ into drive #1B-@@"](@ Ӡ٠a = A'0# D:NAME.DAT*18}=* D:BALANCE.DAT%* 6-6- D:AUTO.DAT- 4END B#}- A"P8 6-%.67$@c&@b<$@c,.8 A"0;+ AY;6-F:A`,%AV$F:Aa,%}1%A0%!%)%1%E%@$@e.%@%F:A`,E%@&F:Aa,/ #A}"!-AdA%"+/ 5572,138,72,152,72,169,10,162,0,160,56,141,10,212==141,24,208,142,24,208,140,2}3,208,104,168,104,170,104,64 'A A'A 8AF'AU@8COLOR AND TIME} QAA(!A3BBAE@ QAR$ 6 -6((}.  --( 8 6 -6((B 5 -( # -5(} L ; - (-@%"(.-@0;(V N -(-@0%($+-N(} ` E -(-3(EAY@4j 76. D:MONTH .DAT !}-7( t '6-@06-6-'AQ~  -(  ; 4A6. D:AUTO.DAT(-@0 }1(AUTO; A%@ ( B:,  -( ( A$0 ? -#7<,20)7<,39' --5( ? A$0  }  4 6.A:, )A:,! #-*( 4 A$0 4 6-A:,")")")"*6-@04 A%   "6-@) } A%  6-@1 167<,./ /!67<,.=:,--@01( 67<,. " A!p" B } # 4END# A% 6-% 0&67$@c&@b<$@c,.0 A%P M !,6.7$@c&@b }<$@c,76.7<,C6-@1M A' "*4 D:AUTO.DATA'`( A -%( START MONTH 7<,?1-@$}A( (Y/N) 2  "@:N,Ap< @:Y,A&F - (P $6.0000$ D:AUTO.DATZ  }4END*!6-d  4END A'n 67<,.7<,x -6.=:A:,&A:7@5,,,#6.' -6. 8 6-%.}67$@c&@b<$@c,.8 A&P 6.7<, 2-@!(7,(AY@42 B )-@"(} BALANCE:$) A A+ -&( NO microcheck,-A( DATA FILES ON 1 -( THIS DISK " '}1 A!p B2A!-@P% /23 8B A!p :-@"#(auto file empty' + 0}: A$ D2:CHECK5.BAS1N1N1N1N1N1N1N1N1N1N2NTEMPINRETRBACKSLCOROSVBEDTFLADATMEMCHNU!kH!_!KKKTEMPINLCOROKKKSNDIDATEFIRSTMOSNDKLASTMOFIRSTCCHNUMLASTCADOLFORMAAMOUNTLOAMNHIA}MNPAYEE1BPRNDISBRPKMONTMONTHFILECHECKKAMNPAYEECMEMODEDEPAMNCHECCHAMND} } !"#}$%&'()*+,-./012}3ǒҸǴӄ AD6-F:@,!A',6-&A(8@DB7t2$F}AK:#AdAU5A@dAAP&6-F:Ad,&"AU@Z55"@9)"@`})"A)"A$@d )$x" 6-6."AdAU. AR"AU+AR.}$"A&Ap 6-%!$- -%&(>:,#67<,.>:,- A0+ !(>:A&,6-&$(}+6. !6.7<, A0/-B:,7<,0. ,67,..00/$$ B:,"$67%<%@",.00}B:,"%67%<%,.0$82@P@'-@ + 528$82A@'-@}%+ 528$,?AR-@ !('6-36-@ 96-?-6G -@'@#(5-@ }#@G( @ 46.00J 6.T.-B:,.7<,20)7<,39Ap^$ 6-A:,!}$!@Aph$ -( -($ Ar  -(  A|  -@ ( 6-'-"}@#@'(  46.12 6..-B:,.7<,20)7<,39AP( 6-A:#},( )!@AP -( -($  -(  A.-@'("6-@'(6-$}.6-- -@"@-() 46.ANY6-6) A@B:, AP 6.+ %}-+7<,20)7<,39AP 6-A:, - ( A`&   -(  Ap0-@'&}(6-:- -@"@-( D. 46.ANY$6-A. A0NB:, A@X'} 6.b+ -+7<,20)7<,39A@l 6-A:, A@v - ($   -(  A`(}@-@ @((6-@ 46-@:6-@-3  6--@"@3(# )}46.0.00# A05-B:,6.7,5+20)39,*0.A` 4.6- B:,!%A`*}  6.6-A:, )!AA`) -( -() Ap#  -( # A`+}(-@ @((6-@ - -@"@-( & 46.9999.99& A@,} ;-B:,;+7<,20)7<,39,*7<,0.A*7<,4.6-4 B:,!%A> H 6.-}6-A:,R!AAf( -( !-%(($p#  -( # ApF-@ @.}((6-@ 46-@@6-@F-, -@#@,(  46.ANY) 6/}.-(7@#,"-&()$+ A Ap! A`+ A a-@ @"(7@,4-@ @0}A(7@,M-@a(ALL ENTRIES OK? "@:Y,A@:N,A `S-@ ( "-@ 1})( 5-@'>( J-@'S( -@ @"(7@1,4-@ @A(7@1,S-@2} @`(7@#,l-@y(7@, A @-@(7@,K-@"@)( DO YOU W3}ANT ;-@$@K( A PRINTOUT?" "@:Y,6-" A@@:N,A 5 +@ #AA4}D5A@@ -!(ƬԠ٠Ŭ'-@(ՠȠϠ$G-@'(ŠȬ5}3-@G( ΠOPTION.-A 85+ AA`)AR/6-56-B8 -5('6}ȣԠŠŠ8(L A@VT 3 3T3B CH# AMNT PAYEE MEMO 7} DATE`UR3F----------------------------------------------------------------------U3j Bt -~@8} @67<,.0667@ <@ ,.=:,@ Ap67<@ ,.=:," 4END 9}" A!F:B2y,"! A`I A'6-A:7@5<@A,,56-A:7<,,? BI A0"6:}A@ A )!A )!A,6.7@<@4,,4ANYAp##B:,!B:,)7;}}F113      P AZ1-@"-(PRESS ANY KEY TO CONTINUE1 d5-@"?}-( %6-+-5 A n(*!@Y!-@g&$3( x(*!@A 5 6.=:, (@}5(  DEBITS TOTALING $6 6.=:, (6(  CREDITS TOTALING $@ 3@3 A}  DEBITS TOTALING $>>3  CREDITS TOTALING $1-@ @#1(M=MENU S=SB}EARCH AGAIN "@:S,Ap@:M,A`F +@ -,( please insert2-F( prC}ogram disk=-@$( Ӡ٠( 2 AP=%D:MENU(K:)(%D:MENU  APD}%D:MENU1-@"-(PRESS ANY KEY TO CONTINUE1 )-@"-( ) AA +@-'E}( ͠3-@A(ԠQ-@(Š52A@C-AG Q2F}"-A  A,6-@6-@'6-@36-@?6-@K6-@W6-@c6-@G};@,;@c,;,;@,;,;,6AA;,;@ ,;@ ,;@7,;@c,;@!,@# H}6. 67@7,.#67,.J6. D:MONTH .DATT36-A 6-A'6-A`36-A^6-@06-I}@phN +@ -,( please insert8-@N(your data diskrI-@$( into drive #10-J}@"E( Ӡ٠I |5 A& D:MONTH01.DAT+5 B! 6-6-6-6-!6-A+K}AY A6-F:A`,%AV$F:Aa,%@#5 -% #AF5AU@EAL}AF!AR3AAH?@B(E(W-(%W(%M}W-(%|DATE ||CHECK # |W(%W-(%|FROM: N} ||FROM: |W(%| TO: || TO: |--(%--(%O}--(%--(%|AMOUNT ||PAYEE |-P}-(%--(%|FROM:$ ||> |--(%| TO:$ || Q} |--(%--(%&+@!AY@4R}+ A @0T +@ -@ 3(ˠҡ?-@T( PRESS ANY KEY:C2AP@'S}-A+ 529 C ADK +@ --(search aborted9-@K( ӠN-@T}(͠X "@:M,Ab"@:S,Apl AvK+@-+( ӠӠU}7-@K( microcheckY-@@'( ˡ=2A@K-AO Y2V}-A  A@D2:CHECKPRT.BASDATEFIRSTMOSNDKLASTMOFIRSTCCHNUMLASTCADOLFORMAAMOUNTLOAMNHIA3NNNNNNNNNNN1N1N1N1N1N1N1N1N2TEMPMONTHFILECHECKCHECKNUMDATEPAYEEAMOUNTCMONTHDATB!X}MEMOTEMPFILEBALANCEDIFEBALUCAMNTUCDAMNTINDEUNCAUCAMNUCDEUCDAMNDOLFORMABRKDISNDSTARSVDEBAMONTCOUNOLD!Y}AMOUNDI !Z}![} !"#$%&'()*+,-!\}./0123456789:;<!]}ǒҸǴӄ 6-6-@'6-@36-@?6-@K6-@W6-@c6-@!^}o6-@{6-@ 6-@6-@6-@6-@6-@6-@6-@6-@!_}6-@  A222A!-Au% /22$<-@ $PAK:#AdA!`}U5A@dAAZ&6-F:Ad,&"AU@d5"@9)"@`+AdAU5 @!a}n )$8 6-F:,!A'&6-&A(,8B7t$/-B:,7<,0. ,67,..00!b}/$ B:,"67%,.00B:,"%67%,.0$Š;,;@c,;,;,00;@!!c},;,;,;Ac,;@9,33;@!,;,;,;,;,;,;,;,&67,. 67@9,.&67,.!d}Q 6-6-6-6-!6--6-A`96-A0E6-@PK6-Q6-B+ -&( please insert,-B(!e}your data diskI -( into drive #1*-@"?( Ӡ٠I @+ AP& D:MONTH0!f}1.DAT+" + '['6-F:A`,%F:Aa,$AV%/%7%C@O@[AR,G( A!g}-=(ENDING BALANCE AG6-6C A-@8"( .-@&?( WHICH MONTHC!q}B'DOS SYSBt+GRAPH BASBUAUTORUN SYSB WSTART BaMENU B@tUTILITY B`CHECKBOO BCCHECKPRT B:WCHECKBAL BTDATEBOOKBASBDATEDOC BASBCALENDARBASBXMAILLISTBAS@ )!AJ6. D:MONTH .DATT.  67<,.0$67<,.=:,. A`^67<,.=:,h!r}@r 4ENDA|8 6-%.67$@c&@b<$@c,.8 Ap;+ AY;6-!s}F:A`,%AV$F:Aa,%'&@p-%%#' EAA -AA9A!t}EAAFAG*AR-*(C P=-@"#(* N)-!u}=(M E6 -6((=-@!=((!v})AY@4-)(MONTH #: " (0( ϠӠҠӠȠ: A 6-6-!w}6-&&6.7$@c&@b<$@c,L6.7<,6.7<,*6.7<@4,A6.7@5<@A,L6.7<,& !x}-7<,0  & A@* 6.67&<,.*67<&,.7<&,1 -1(  $ 7<, 7<,&!y}% 6-%6-%% *A0 6-: &!6-D -(=>NK:)X%%"*+@:N,*!z}@:E,,Ab"@:C,Al"@:*,A v"@:M,A "@:P,AP"@:N,A!{}"@:E,A A# 6-6-%!@"#6-!&$%6-) -( -(=>)!|}B2y6-&%$ A$ 6-1$"@:*,A@F -(*<67$@c&@b<$@c&@b!}},.*F AF -( <67$@c&@b<$@c&@b,. F A -&$%-( # 6-!~}%6-$%#"A !6-6-6-  6- A(  A AY*( 6.67!}<,.TMP(43 -/(7$@c&@b<$@c,3 >(ENDH@36.7!},RF+ AY((F(XIO 32,#N1,N0,N0,>:@4,,\'( ((CONT-$AB'&fAB!}p1"@:N,6-6- 6-'6.1 Az"@:E,A  1"@:M,A 0&&6.7$@c&@!!}<$@c,+ -!( MEMO:  + A3 -(7,36.7$@c&@b<$@c,L6.7<,!}6.7<,*6.7<@4,A6.7@5<@A,L6.7<,& -7<,0  & A p* 6.67&<,.*67!}<&,.7<&,; -1(  $ 7<, 7<,; A6+ -'(SCANNING MONTH--6(!}#6. D:MONTH .DAT 6-6- 6-.  67<,.0$67<,.=:,. A@67<,.=:, -(!}$ 4ENDA. 6-% 7<,4*A`897<,4DEP 6-%/6-%A:7@5!},,9 A`B) 6-%6-%A:7@5,,) A`L 6-% AV-! D:BALANCE.DAT(-!}` 6-%&j) 6.=:, 6.6.=:,# )6.t 6.=:, 6.~/+ AR#A/A !}P -)(ENDING BALANCE ------------5-@0;($L-@8&B:,P( 6.=:,+ -+(- OUTSTANDING CHECKS!} ()?-@$%B:=:,,@'&(-* ;-@8&B:,?() -)(SUBTOTAL ------------------<-@1!}(&6.=:&,* 6-@0<($!-@8&B:,(!6.=:,) -)(+ OUTSTANDING DEP. ()!}?-@"%B:=:,,@'&(-* ;-@8&B:,?(,-@1((6.=:&%,, *-@0($!}&-@8&B:,*() -)(YOUR BALANCE SHOULD BE ----> -)(YOUR BALANCE IS -----------:-@8&B:,>(!} -@1(6-&A:,6 -)(DIFFERENCE ----------------26.=:,6 (*-@0($&-@8!}&B:,*(2AP<& -(Ԡӡ&#AF0 ""62&20 APP< "6!}-@@ $-.22 < ApZ! 22!2d -  APnSS121,47,40,121,!}47,40,-1,-1,-1,162,47,40,162,47,40,121,53,45,121,60,47,-1,-1,-1xJJ162,60,47,162,60,47,121,64,50,121,60,47,-1,-1,-1,162,60,!}47,162,60,47JJ121,60,47,121,64,50,162,60,47,162,60,47,121,64,50,121,60,47,-1,-1,-1AA162,60,47,162,60,47,121,64,50,121!},60,47,162,47,40,162,47,40AA121,60,47,121,47,40,162,53,45,162,53,45,162,53,45,162,53,4566162,64,53,162,64,53,162,64,5!}3,162,64,53,-2,-2,-2  -(٠6-+&B:,,'"-@!"( T=TRY AGAIN-@"(M=MEN!}U"K:)""@:M,A0<"@:T,6-6- 6-&6-,6-26-< A A!}@+ -&( please insert,-@( program disk= -( Ӡ٠( @2 Ap=%D!}:MENUC + -)( ӠӠ/-C( microcheck; -( ˡ --A1 ; !}A`"9+ -%( ͠+-9(Ԡ,9 -(Š +-A/ 9 A0!}D2:CHECKBAL.BASNNNNNNNN1N1N1N1N1N1N1N1N2TEMPMONTHFILECHECKCHECKNUMDATEPAYEEAMOUNTCMONTHDATB r))MONTMONTHDAYYEAYXSADAXOFSEJDATDNDNMDSCRBLKGETMONTH1EXISTMOVESCTMPFLFILEREDFLD%}DIIDEDEAUPLR0RAKLRDLI@2A@9@M @1@ @ @ A%} A$ @A@Bh}DD @MMB %}ud@@a@ @!@"#@$%@&'@(Q )B*]%}+]22  AP A# (}#ŠȠ9-@@9((%}9-@@9(29-@@9(<9-@%}@9(|JAN |FEB |MAR |APR |MAY |JUNE|F9-@@9(| 1 | 2 | 3 | 4 | 5 | 6 |P9-@@9(%}|JULY|AUG |SEPT|OCT |NOV |DEC |Z9-@@ 9(| 7 | 8 | 9 | 10 | 11 | 12 |dK A-@@=(%}Which month (1-12)--->AK Bn!!!@) @Ax6-$A6-$@%A#44%}ĠӠϠŠϠҭ:YR=16-@!AR@!6-ԠҠ %}(}>-@@>($.-@@#-@*(|. H-@%}@7@3-@@9-@(|D H X-@@!@+-@T($%}X >-@@ >($/ "6-#6-/6-%}@/#7@<@,4/6-@( 6-[6-@-@#-'(56-%@A!@5%}M6-@[6-%@ #-@#("!( ! A,( 1%}A-@@A(&ξξžľվɾԾ6٠,3,31,8@٠,18,29,23JȠ,23,%}31,28T̠,3,30,8^٠,13,31,23hŠ,28,30,33r٠,3,31,7,8|Ԡ,18,31,23%}Ҡ,33,30,3Ҡ,8,31,10,13Ҡ,23,30,28Ҡ,33,31,3$Ԡ٠U-%}@"C((Use arrow keys or joystick to move crossUAY@F=-@#=("Press return or fire to ch%}oose dayd$6-P:'@%@,$@ 0B2H<6-@H6-AR AQ`dAdAU/6-F:A2%},/F:AS,APS"@ * A-6-%@ ;6-%@GB2HS6-["@%}!@'!@`56-&@ C6-&@OB2H[6-g"@!@'"@`56-%}%A C6-&@Q6-&@[ AQ`gB2HA"@!@)6-&@3 AQ`A6-&@%}C"@ &@+6-%@5 AQ`C6-%@_"@A* -6-&A ;6-%@%}GB2HU6-%@_ AQ`&56-%@A)"AU56-06-F:Ad,:S"@%} * A-6-%@ ;6-%@GB2HS6-DY"@%!@*!@`36-&@ A6-&@%}MB2HY6-Ne"@%!@*"@`36-%A A6-&@O6-&@Y AQ`eB2H%}X_"@A* -6-&A ;6-%@GB2HU6-%@_ AQ`be"@%!@%}*"@`36-%A A6-&@O6-&@Y AQ`eB2HlA"@!@)6-&@3 AQ`%}A6-&@vC"@ &@+6-%@5 AQ`C6-%@*F:Ad,AU*AdAU%}8"@)(T:,-B2H56-%8$ A!!٠Š> (}-@%}>(ԠŠҺC16-++++&@`,'@ ,$@,%@,C-@AY@4%}?-@?(7<%@, *6- ( * A5( %}%-F:@,@8!(% A'A@;%@A0O%@A0c%@%}A0w%@"A0BBA'A@d'AKA'A@%}9A@KA @@-@@8#-@*(. @@@(.(# PRESS---> %}̠-'D' when Done.@AR .-@@8#-@*(.  6. ) A)Š%}͠ˠ*' A p'ΠԠԠΠΠ4B-@(~0AdAUB> A%}6-?:C:,,HF:,*-@"O( Please stay within typing area.a-@h(~z%} A0R&AR@(& A @\ 6.fg-@ 2(PRESS---> ͠..for enuD-%}@!g( ---> ՠ...to pdate filep=-@"=( ---> Ġ...to elete entryz0AdAU%}")@-"@:M,0$"@:U, A0$*"@:D, A $ A%%ӠӠ%}ϠҤ6-?:C:,<STARTING SECTOR=/"@/( RECORD # --->Ġ,",( RECORD # --->IN USE$..(&---%}-----------------------------------. 8>$(END OF INDEX--->PRESS A KEY1)@; B>$B%%%}٠ŠL@(}.@Q@@D:*.*]6-@q-@@d%}{ A0@VA*!@"#@@ 5-@ A6-` ( j? A@%}*@@<-@@#?$oŠנӠtUU(M}Creating new files will erase any inf%}ormation on an existing file.~[/('PRESS---> 'Y' and I will create two new[('files named INDEX.FIL and DATAFILE.SCH.,%}((----->)@)@:Y,,$E@:@@D:DATAFILE.SCHE@7,@@%} D:INDEX.FIL7@$ՠd (}-@F(%Ҡ%}ҠXAR@d6-e%@@+%@@?%@@S%@"@%}eBBAUK@'A@9A KAAHA-@@8#-%}@*(6-@=(A --@@-(֠ - iew calander'A@d'A.%}-@@.(Ġ - isk directory--@@-(Š - dit schedule0-@@0(Ӡ - ee edi%}ted dates0-@@0(à - reate new files 9-@@'( 9AdAU)@%}(v"@:V, @ *-@@"Q(!PRESS---> a key to return to menu^)@j6-AUvAd2%},"@:E, @ " A@, A<;"@:D, A.(PRESS---> a key.;)@F"@:S, A%}P"@:C, A@Z#@@# A,OOӠӠƠŠӠΠˮƠϠΠ̠%}ƠԭΛ6c6-6-% A0@Y@@ D:INDEX.FILc A@nAd%}AU @2-@"W(INSERT DISK CONTAINING FILES..d)@n AJh A`@%})@6@C@P@Z Bh6-%@T2409996-6- 6-&6-26-@%}^$ A:,"6-6-6-$6-hh A:,"@C@@D:DATAFILE.SCHR@^6-%}@h Ar A|L%F:A,"A6*@*(0@<6-@ LĠŠZ$F:A,"A%}6*@*/@;6-@ZŠҠĠĠF"F:A,"A6*"-@96-@%}FנŠ2F:A,A6/(ERROR #F:A,2@@$C-@AA%},@?67<%@,.C @@$L A=@@D:DATAFILE.SCH%}L@B( (3@D:DATAFILE.SCHB@S( 8@@D:D%}ATAFILE.SCHG@M6-S6-=-@AA9(@7<%@,=  6. A%}6.067B:,%@,.=:,n (*(4@@  D:INDEX.FILA(@N(@[(@%}n(@| (*3@@ D:INDEX.FILB@O(@\(@i(@|%}(@@@$AA(ERROR F:A,AT LINEF:A,%AV$F:A,@%}@B@@ D:INDEX.FILQ@c(@0999p(@}(@(@%}@@$~Π<<;@w,;@ ,;@ ,;A,;@ ,WW6.M%}hhhhhh%ˑԈi̥i8h ˑԈˑ`^&;A,;@h,;A,H6-F:@%},%AV$F:@,^6-%@$@@NN6.Dh| T ` ` `%}/ 6.67A,.)67@,./6.#;@,#6. <<<<<<9A'B2V@9B%}2H""@@KDAY@F'B2w@DBByF:A,&@&6-F:%}A,&@&6-A6-$AV6;A$,6.'67A$,.667@,.%%6-F:A`,%AV$%}F:Aa, 7;@P,;@!,76.<<6.2HH ԍЎЩhh@HH ԍЎЩhh@%}$$6-?:C:,+++AMSFTEMPBB1B2NAMENAME1NAME2NAME3NAME4NAME5NAME6NAMEDIVBASE1BASE2LABELCITYCOUNMARKERECOR2}MANNRECLERECLENBSPACEPTPTDONBASITIMSBSBSSLSLhBkB wBZBBB2 }B B B B B C C ACAGCwCCCC@2!}@@QA@@%@P !"#$%@&2"}'()*+,-.nn***** DATA-BASE SYSTEM ****** BY KENT HERBERT UPL2#}OADED TO: ATARI LIBRARY BBS BY KENT HERBERT RR;@,;Bp,;@,;@,;@,;@,2$};@,]];@ ,;@ ,;@ ,;@ ,;@ ,;@ ,;@ ,9@,<<9@,;@02%},;@0,;@,;@0,2'6-6-'6-<9-@&68,-568,-2&}9 F- 6.6.6.6.&6.-6.PT +'0@@@1@C-@@T(2'} FIELD SET-UPUARZ%-@A % A1 +'0@@@1@22(}-@@2(Ԡ͠ -@@ (ՠ .-@@.(RECORDS IN MEMORY 2)}.-@@.(RECORD CAPACITY = _%2@P@@9-@@P= _22*}( ((DD NEW RECORDS&((DIT OLD RECORDS0 ( (RINT/DISPLAY RECORDS:((RT THE REC2+}ORDSD(( VE THE FILEI(( OAD A FILEN!(!(IELD SET-UP(NEW FILE)X(( ENTER LETTER b4A2,}Al4EA v4PA04SOA@4SAAP4LA`4F@P2-}9 (( ٠+-@A/ 9 A""**** SET UP FIELDS ******* At /-@@/(2.}ԠĠ$($(HOW MANY FIELDS (LIMIT 6) A-@ ((NAME # FIELD $2/}L+(#GIVE ITS LENGTH IN NO OF CHARACTERS5 A`9B68,-L Ap)68,-8&@,%. 36-P:B',20}8 AL At Q%&@ AsP% AV8-@@8(ҠĠ %@` 21}Auj6-&@6-%@,(,(!PUSH TO ADD ANOTHER RECORD))(!PUSH TO RETURN TO MAIN MENU22} F:B2y,"@A F:B2y,"@A A!!****** EDIT ************* At@623}-%-@@%( ԠC(?(3DO YOU WANT TO REVIEW LL OR OME OF THE RECORDS C4S24}Av A @ A At@  4A-@&5-@@5( Ԡ P:',%@25} L-@@( 0-@@L(7<8@,%&@,*E ( -@@E(7%8@,<826}@,%&@,4TB:,!( --@@T(7%8@,<8@,%&@,>TB:,!(27} --@@T(7%8@,<8@,%&@,HTB:,!( --@@ T(7%8@,<28}8@,%&@,RTB:,!( --@@T(7%8@,<8@,%&@,W9-@@ 29}9(ENTER TO DELETE ENTIRE RECORDX(ENTER FOR NO CHANGESY&&(ENTER TO RETURN TO MAIN MENU\7-@@2:}0(WHICH FIELD TO CHANGE47(^4A"_4DA`4RAa4NA"fG 4 Aq2;}%-@@)G67<8@,%&@,.kR 4 Aq %-@@)R67%8@,<8@,2<}%&@,.pR 4 Aq0%-@@)R67%8@,<8@,%&@,.uR 4 Aq@%-@2=}@)R67%8@,<8@,%&@,.zR 4 AqP%-@@)R67%8@,<8@,%&2>}@,.R 4 Aq`%-@@)R67%8@,<8@,%&@,.4-@@)-@2?}@00( 4 4-@%@)-@@0( 4  A p 4S$"&A 2@} A !!******* PRINT ***********  At`6-@ -@@( /(+( WILL YOU BE PRINT2A}ING LABELS, Y/N/  4Y As ;7(.DO YOU WANT LL OR OME OF THE RECORDS PRINTED; 4YA1 32B}NO OF FIELDS  BB3 8@,  8@,  8@, BB3 8@,  8@2C},  8@,  4S Av 4YA8  4A-@& [-@@.(2D}ǠΠ@-@@[(RECORD P:',%@ ""37<8@,%&@, ,,37%8@,<8@2E},%&@, <B:,!<37%8@,<8@,%&@, ;B:,!;37%8@,<8@,%&2F}@, <B:,!<37%8@,<8@,%&@, ;B:,!;37%8@,<8@,%&@2G},34S$   A 4A-@&37<%8@,&@,**37%8@,<%82H}@,&@,3-@3  4S$  T At`-@@2(PRINTING ENDEDF-@2I}AJ T A!!**** RE-ORDER SORT ******** AtP&-@@&( Ҡ&(&(REO2J}RDER SORT ON WHAT BASIS?( (((((((( ENTER FIELD$ 46-$6-8@,' 42K}6-8@,'6-8@,' 46-8@,'6-8@,' 46-8@,'6-8@,' 46-82L}@,'6-8@,' 46-8@,'6-8@,K AtP-@@/( SORT STATUSAAR@2M}K Aph-@&m6-@r2-@@(6-P:',%@2(:|-@&&//2N}7%<%&@,/7%%<%%,AC6-(6.7<%,(67<%,.7%<%%,67%<%%,. 2O}( ((7%<%&@,AC0@w L AtP-@@4(SORTING COMPLETE2P}H-@AL  A!!**** SAVE A FILE ********** At0 ApO-@@%( SAVING 2Q}FILE7-@@K(GIVE FILE NAMEO @@*@*@1-@@2R} 6-8,-*@1 6-&@6- At0AR@*-@@*(SAVING R2S}ECORD -@&6-%@6.7<%,-@$@( @   At2T}[-@@.(SAVING FILE COMPLETE9@M-@AQ [ Ap!!**** LOAD A FILE **********u2U} 6. z At ApP-@@&( LOADING FILE8-@@L(GIVE FILE NAMEP @2V}@)@)@G-@@$)@-68,-C68,-8&@,%G 62W}-&@6- AtAR@+-@@+(LOADING RECORD  6-$-@&2X}6-%@-@%@(@''67@<,.7@<%@,67<%,. 2Y} At\-@@/(LOADING FILE COMPLETE:@N-@AR \ AX""**** SET UP FIE2Z}LDS ********b"@6.l"@6.v"@6."@6."@6."2[}@6.6-%@U6-#-@@.6-%8,:!@U(RECORD LENGTH TOO LONG;!@2\}-(PUSH TO START OVER1; A   $ Ar$(-@8@,!(_% ($(2]}-@8@,!(_% ($(-@8@,!(_% ($(-@8@,!(_% ($(-@2^}8@,!(_% ($(-@8@,!(_% ($ 00**** PUT NEW DATA IN STRING FORM **********6-2_}%&@46-&@>67&<,.H$!!**** LABEL SET-UP *********8*("ENTER THE CITY, STATE, AND ZIPCODE2`}.8 As 1-(%ENTER THE NO. OF LINES BETWEEN LABELS1$_-@@)-@@=(MEMORY CRI2a}TICAL_2@u@@=-@@P =2E-@@)(2b} =-@@PA E D,($NO FURTHER RECORDS CAN BE ADDED.....@-@AD $""*2c}*** SETTING BACKGROUNDS ***4 +'0@@@1@4$4 +'0@@@1@2d}4$4 +'0@@@1@4$4 +'0@@@1@4$4 +'2e}0@@@1@4$$4 +'0@@@1@4$L""**** USER INPUTS INFO ****V2f}:((  Aq0-B:,%@@: Aq`:((  Aq 0-B:,%@@: AqeB:,"2g}$j:((  Aq00-B:,%@@: AqoB:,"$t:((  Aq@0-B:,%@2h}@: AqyB:,"$~:((  AqP0-B:,%@@: AqB:,"$2i}:((  Aq`0-B:,%@@: Aq$!!***** SORT BASIS ********6-"@2j} At`" At@ ( (LOCATE ON WHAT BASIS:( (((((((( ENTER FIELD2k}4A(COMPARE WITH WHICH & 4 ((6-@& Aq & 4 ((6-@& Aq !& 2l}4 ((6-@& Aq0"& 4 ((6-@& Aq@#& 4 ((6-@& AqP$& 4 ((2m}6-@& Aq`()-@@)"@Aw2<5 6-8,6-8&@,)6-@56-@U2n} (DO YOU WANT ALL RECORDS:Z(( TO _( TO di6-@ Avnp 6-8,6-8&2o}@,q (DO YOU WANT ALL RECORDS:r(( TO s( TO t@""**** RECORD SELECTION ******A? At@2p}-@@-( SEARCHING?AR@ED"@ At`+-@@D(PRINTING IN PROGRESSJ2q}-@&h7 6-%6-%%6-%%&@76-%%&@|4NEA07<,A`4E2r}QAP47<,A`4NEA07<,A 4EQAP 47<,A ) 42s}E At@ A @) A A5 *-@&@&(P:',%@* 4! A(#""**** DELETE RECORD *2t}********2#((ARE YOU SURE Y/N<#4NA F#67<&,.7%<,P#"-@67&,. " Z# 6-&2u}6-&@d# A D2:MAILLIST.BASAME3NAME4NAME5NAME6NAMEDIVBASE1BASE2LABELCITYCOUNMARKERECOR04@<@, 40006. 0$ APrint YSCL(J).6-@Print sign.8!"@6. ! Aw} B$8, 6.-$ A L 6.+V8,"6. ` Aj t76-6-@#x}7Print yaxis scale factor.~ A5 67B:,%@,.6. APrint X scale.-@@y}68,-&+&@,$-68,-N:8,,-Separate sign and value.68,-O:8,,R$P:'@,&'@"z}06-@": APRIF J IS EVEN THEN....6-@!68@,-@-68@,-@B68@ ,-@{}W68@,-@l68@,-@68@,-@!68@,-@$68@,-@'68@,-@0|}68@,-@368@,-@7"@ A'p 6-8,? 568,-8,$+P:+@#6,}}%?,,? A &&68,-8,'P:+@#,%?,6.(6.=:8,,2See 1020<=8, @~}&67B:,%@,.=6.7@<@,FR'8,!@*P:8,,&8,;67B:,%@,.R6.7@<@,}P 40006.0Z APrint XSCL(J)dPrint sign of x scl.n 68,-8,&@ 6-8,x:$P:'@},&'@"06-@": A 6-@!$8, 6.-$ AP 6.+8,"6}.  A 76-@46-@#7Print Xaxis scale factor. A5 67B:,%@,.6. } A A$p!6-Af!M.L. SUBROUTINE@6-A @LOCATED TO GIVE ROOM FOR GRAPHIC DUMP PROGRAM. #}A-Ae"" %, 6#@$JZZ104,201,4,240,9,170,240,5,104,104,202,208,251,96,104},133,215,104,133,214,104,104,168TVV104,133,217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89^YY1}01,215,133,215,152,240,15,165,214,105,64,133,214,165,215,105,1,133,215,136,208,241hUU132,221,160,0,132,220,177,216,160,0,1}70,16,1,136,132,213,138,41,96,208,4,169,64rWW16,14,201,32,208,4,169,0,16,6,201,64,208,2,169,32,133,218,138,41,31,5,218,133},218|__169,0,162,3,6,218,42,202,208,250,109,244,2,133,219,164,221,177,218,69,213,164,220,145,214WW200,132,220,196,212,}208,182,24,165,214,105,40,133,214,144,2,230,215,230,221,169,8197,221,208,159,96P6-?:<< H$R4,@EAc'/@E@4Fine} grid.\@,@7@'/@E@@At omitted yscl value.f',@EAc'/AAcp :GRIDz2}-@Ac@2(Y)(T)IC (L)ARGE,@B/A 3-@A`@3(Y) (T)IC (S})MALL,@E/A 3-@EA@%3(X) (T)IC (L)ARGE,Af/@ }3-@EA@3(X) (T)IC (S)MALL,Ac/@ $b,@EAc'/@E@}9,@DAcK/@D@bDOUBLE WEIGHT LINES. @,@7@'/@E@@At omitted yscl valu}e. K,@EAc'/AAc9,@EAdK/AAd :GRID$ 2-@Ac@2(Y)}(T)IC (L)ARGE. Z,@B/A/,@E%@C/A%@ZDOUBLE WEIGHT LINES.8  B 3-@}A`@3(Y) (T)IC (S)MALLL ,@E/AV  ` 3-@EA@%3(X) (T)IC (L)ARGEj C},Af/@/,&@AcC/&@@t  ~ 3-@EA@3(X) (T)IC (S)MALL },Ac/@   $ TTReturns here from 2520 to suppress "READY" prompt until finished with display. ==}"OPTION" key provides the options shown in 2550 to 2600 9B2y@$6-F:B2y,9READ CONSOLE KEYS. 6"@}A%06"OPTION" bypasses hard copy. B"@ A6 B"START" activates 49 sec. screen dump. A$p } + ( Choose option( ( (1) New plot?( &#( (2) New plot,current ND&( DA(9 (3) New plot,c}urrent ND and grid formatD( C@(8 (4) Current plot,new titles and scalesC( *'( (5) }Current plot,new scales*(( ( (6) Exit (2 ;;A AAA0ApA4`< 88To scale y} axis values to reduce number of digits.F A+8@,@*8@,A76-A A'`P 8@,!A}A&`Z A'd -@@n ))6-8@,'P:+@#,%?,x !! A*!@A'` }  8@, @A'  A'` ""-6@6@6@ ,,6-8@,$+P:+@#6,%?},, !! A*!@A'`   $ 88To scale X axis values to reduce number of digits. A+8@,@}*8@,A76-A A) 8@,!AA( A(P -@@ ))6-8@},'P:+@#,%?, # A*!@# A)  " 8@, @A(p, A)6 ""-6}@6@6@@ ,,6-8@,$+P:+@#6,%?,,J # A*!@# A)T  ^ $h Sin}e Curver -| / 68,-@$@$+',/68,-G:8,,   $ Parabola - 68,}-'+?$, 68,-8,#@   $ Circle or ellipse - 6-+@$@$,' #6}8,-E:,#68,-G:,'?r   $ Discrete Points #A1 & ?6-@ -#",68,-568},-;6-? 0 AA0,7,10,25,15,30,30,50,40,60,50,80,70,20,80,32,90,70,100,100: $D Your SelectionN Auto scaling s}ubroutinesX ?6-8,!6-8,06-8,?6-8,b -@l  8,!6-8,v  8, }6-8,  8,!6-8,  8, 6-8,   00(YMAX= YMIN= XMAX= XMIN= #A4P 6-}+&,'@ -6@@ -@@" g0 P:A$$@#+,%?P,'A]6-P:A}$$@#+,%?P,'Ag A3  #A4P  !!-@6@6@ '+$,$+!$&?$},'6-$   6-&@$ #A4P 6-+&,'@ -6@@* -@@"4 g}0P:A$$@#+,%?P,'A]6-P:A$$@#+,%?P,'Ag A4>  #A4P H !!}-@6@6@R '+$,$+!$&?$,'6-$\  f 6-&@$p $z 1,2,5 +@ }Closing display. -@ ))(@SEE YOU NEXT SESSION  -A  + } Inverse scale factor.  6.6. 6.=:, -@B:, 68,-@:7<,, 68,-8,%A( 6}7<,.>:8,,  6.$$o #A7!-@@a%"3A5%7 Y6-F:@,%F:@,$AV}o6-%@@$A.``THIS IS 49 SEC. SCREEN DUMP PROGRAM. POKE IN M/L PROGRAM AND SET UP DISPLAY MEMORY POINTER8 }A7@B8((@>:@',A>:@,8-%@9L$$SET LINE SPACING AND MAKE LOOPV96.>:,*67A},.>:,967@,.`B6-?:A6<:@',K>:A,>:,j66PASS BOTH VALUES TO M/L} PROGRAM AND PRINT STRINGt ~ll104,104,141,21,6,104,141,20,6,104,141,27,6,104,141,26,6,160,193,173,255,255,136,240,35,}141,255,255,238cc26,6,240,21,173,20,6,56,233,40,141,20,6,144,4,24,76,19,6,206,21,6,76,19,6,238,27,6,76,33,6,96$##}@@K: (Please turn printer on!!4( ( (+(Press any key to continue..(1(4()@}AUA@ D2:GRAPH.BASCEXSPACEYYSCLXSCLVHSIGNYSCLSIGNXSCLYIDXXIDXADHSAD?