@L|"}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0,0'@R !L` ` C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`EiͩkΩ͙kCopj`j {j`Hi͝Νh`}L"SYS.UNEM:D"NURͩkΩ͙kCopj`j {j`Hi͝Νh`>?FILENAMELOOARRAYFILENAMEDISKFILECOUNCHOICPAUSBINAR$ }8@   MENU &&;A(,;@ ,;@ , ;@,'@}@'@@9 +AR@2 6.D1:< 6.F67B:,%@,.*.*d @@ }n6-x@}pp7@<@,4 DOS SYS)7@<@,4 DUP SYS)7@ }<@,4 MEM SAVA pp7@<@,4 AUTORUN SYS)7@<@,4 MENU )7@<@,4 } DISK CATA B:, @A6-%@3"@#!@@ 3-@ %!@D }6-@D% A 6. 77@<@,4 767@ <@ ,. ++67@<@ },.7@<@,++67@<@,.7@<@,, @  6 ) @57@<@,0} 567@ <@ ,..J(67B:,%@,. A  A@AR'-}@@"'  RUN NUMBER @@ 6-P:,& @)!AX 6.b&&6.7$@}&@<$@,dE97@ <@,4.EXE)7@ <@,4.OBJE6-@l-@@v)7<,}0 )67B:,%@,.7<,  A &-@@"&  LOADING "@AP% BEg}D 67B:,%@,.>:AU,2AU4DAU5AP 6-C:,6-P:'AV,)AS?AR&}AV$P6-?:C:hL,,/-@@"/  CAN'T RUN:) -@A   AD:MEN}UV$P6-?:C:hL,,/-@@"/  CAN'T RUN:) -@A   AD:MEN9h~SENTENCEMENd!!***************************e!!* } *f!!* *g!!* *h!!* INSTRUCIONS FOR FINANCE *i!!* B}Y AL GIORDANO *j!!* *k!!* PROGRAM INSPIRED BY *l!!* SOFTSIDE DATABASE *m!!* } PROGRAM *n!!* *o!!***************************x AF-@}@#'AR@F(Ӡ٠٠Ϡ F:Ad,"AUAUAdAU$= (}#0@}@@=0@@..(&*** ̠̠ ***4-@@.(*** } ***1(4$,$ A$(1. INITIAL STARTUP6I(I(= You must load the finance program by typing 'D:FINANC}E'.@88(/ After typing enter today's date as asked.JUU(M You will be asked whether you would like to } or categories.TR(R(G You will have to new categories upon initial start-up.YEE(Q  HH)8)}  hyhyB q L> Lm JJ  Ln*` dB%'8*}8  H H` 1 { LL   !L     Hh SY?  q  1L8+}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L8,}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@8-}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q8.} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF 8/} G) *Gȩ GȽG GȌd q q G`  8   0G  `D80}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y81}`piH n0)բY? 08`0 82}  0$L GGȽG L `8L`L83}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`84}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE85} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR86}1LJ舩9GIH`LJJ`HGHh l`87} S gL   8 rii `дCDCG W  88}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}``89} |||DDOS DOSDOS SYS }8:}8}:8;}B STUDENT 9 B STUDENT 10 BSTUDENT 11 BSTUDENT 12 BSTUDENT 13 bASSIGN C"DOS SYS8<} 0`BDELV !B 8=}`LVUQ   ]   TU J ]L!T  #      TU 8>} L ? .  t`GBJ V~DEHI B V0dV8?}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh8@}DEL8HI   0 HI,0 0  9 .G VLO8A},0 LD*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEGH&I8B} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI8C} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO 8D}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -8E}LLu DEHILV 9 .l 9 .l  `` s$B VBGH&8F}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL8G}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e8H}1i1232435ޥ<<88} CE: vC y@y@`A# *` :105L; 0L>! * 0` * : k;` 1 *` 1 *` Disk Drive Sp check drive speedL > list error sectorsP > print error sectorsW > write al return to main menuCATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟n> ` 0l>^>  D, N; ,`COPY SECTORS`RLS : , ,>  , ,  ,ޢ>  , ,`e= `h=L :ɛ`hL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLt810ꍲCC , > 1C1=  :7>810ꍳCC , > 1CͳCC 1 * 鈹Cɛሢ 1 * Cɛ ~* 6ܭCCCC C˭CͼCLY50$蹨C *00C0C *0" CCL7`<|}C X*`8` ,@  *0\X TCɛM ~*HC)JJJJ *6CȽC) *(CC0CCC`8`<}}h=84=Wy 84=PyL ON : *nDEǍHI 1C L8 :C q+L8L 9 N;L8P 9 N;L8W<~} +L8ML 15))C g+L8 ,CD?E BHCCC /,C\XCC X*C ?0  ?<}C0L:8鉍C mC mC"??C V0*CͼCͻC L49Cˢ? `CL 9PC B VBӝD@<}EJNK V0 9 ,? PC D,P B V`εCC mC mC??L9CC`i`<}i`i`i`i`P B VBНD@EJ VBH<}IL1HI B} V@`HS S ShH )L@;LG;h` 0)¢)  N; ,` *;hL; b,hL; ,> <} , ,L,h=L1 :HOh:` k; 0L>!}DISK UTILITIES (c)1983 Atari Ver 2.5F <} A. DISK DIRECTORY K. BINARY SAVEB. RUN CARTRIDGE L. BINARY LOADC. COPY FILE M. RUN AT ADDRESSD. DELETE FILE <} N. CREATE MEM.SAVE. RENAME FILE O. DUPLICATE FILEF. LOCK FILE P. COPY SECTORSG. UNLOCK FILE Q. CHECK SECTORSH<}. WRITE DOS/DUP R. RADIX CONVERTI. FORMAT DISK S. DRIVE SPEEDJ. DUPLICATE DISK T. WRITE VERIFY:ƛ9!&x#!7&p))<}'&5./)L''-6(6876j8COPY DISK Insert source disk and Λ Insert DESTINATION disk and Λ IT'S DONE !'Y' to<} execute or for menuSource drive # ?DESTINATION drive # ?Source drive is # Destination drive is # Enter first s<}ectorEnter last sectorCHECK DRIVE # X >>>>ERROR # <<<! * 0` * : k;` 1 *` 1 *` Disk Drive Sp<$ply type the name of the file you would like to use and the main menu will be called up -( SIMPLE HUH!+ AP} A(( 2. MAIN MENU+(pp(ha). (D) ٠ˠ - just as it reads. Suggest you do this befo}re entering a check.X(X(Lb). (C) ˠ - check search sub-menu. Allows you to see checks,,($ ,prev}iously entered, sorted by: m(( 1 ((2 A(3 ؠX(4 ˠm(5 } ̠q AP Aq(Tc). (S) ŠԠ - this is used only for saving the category file}$$( which was just initialized.J(J(>d). (B) ٠ - This calls up the budget sub-menu.**(" It run}s the 'D:FIN1' programR(R(Ge). (Q) - Ends the finance program and returns to basic.K(K(?f). (I}) Š - allows user to enter and view income( and sourcesb AP A(b(Bg). (L) Ԡ}Š - Enables user to view various category00(( files contained on present disk.&. AP A(}.(3. ˠ 0X(X(LA. Entering a check requires you to enter: , (mo),5--($ }(A-Z), (y/n):++(#, , and (9 char. max).Dl(l(` In order for you to just enter a depos}it, you must null the check by entering dummy data:N33(+ (Ex. checknumber=999, category=misc. etc.)Xd(d(Y The r}ange for check numbers should be from 000-999 only to protect the screen format] AP Abm(m(b When e}ntering categories simply type the letter that cooresponds to the category you want.lR(R(F When you are through e}ntering your check you will hear a beep.vii(` To continue entering checks enter a (+), to quit enter a (*), to corre}ct the previous entry33(+ enter a (>). You shouldhere a second beep.6 AP A(6(4. Ԡ­.}....I(I(= The budget program starts exactly like the main program.LL(C You can either set up a new category fi}le or load an existing one.cc([ It is suggested that you load the category file which you set up for the main progra}m.E(E(9 Upon initial start-up you will have to set up a budget.``(W This is done by pressing master menu item (}B) ٠, AND pressing sub-menu !!(item (1) Š. AP Abb(Y You will be pr}ompted by each category, simply enter the amount you would like tomm(e budget yourself. The budget can be set-up }with monthly, weekly, or yearly amounts-Your choise! AP A (ΠԠ(II(A(S) Š}Ԡ - used only to save the category file. MM(E(B) ٠Ԡ - display budget sub menu (described la}ter).*DD(<(Q) ΠϠՠ - returns to main finance menu.4GG(>(F) Š̠Š - create a file fo}r large bills. All>nn(f monthly payments are automatically deducted from a predetermined bala}nce.HU AP AU(9(C) Ġ٠ - loads a new category file.R]](U(L) ԠŠ - lists }all the category file names on present disk.\/ AP A,(Ԡ­ՠ/(f..(&(1) Š}Ԡ- described above.pMM(D(2) ٠- displays a previously entered budget.z\\(T Use thi}s to do different budget models by entering various income amountsA-(%(3) ΠϠ- Self explanitory.7 AP}A AOO(F(4) ԠӮ- this dandy item compares your budget to the ke(]actual check you have writ}ten for a given period. ( SEE FURTHER EXPLANATION BELOW )h(k(oo(f You may select any given monthly or yearly} data simply by aswering the prompts: ԠȨ aa(XOR ̠Ȩ٠Ω.With the global searchyou will be} asked for a starting monthW(W(K The starting month can be the month,(1-12 please), you started entering ))(! c}hecks or the first of the year.j AP A(j(KWell there you have it. Please don't use this to replace you}r checkbook.OO(GI suggest you parrallel the two systems just to check each other.L(L(@I have written this pro}gram to take advantage of the features 44(+in ï by ĠӠ. FF(>And I am currently wor}king on a microsoft version as well. ii(aPlease keep in touch with your bulletin board for further details or wr}ite to me directly.(-@@((Atarily yours,,-@@,(ALFRED J. GIORDANO(-@@}((202 9th Street,-@@ ,(Cresskill NJ 07626?-@@"5(*** END OF INSTRUCTIONS ***? AP}% D:FINANCED:INSTRUCT.BASd!!***************************e!!* (<?@ABCDEFGH }IJKLMNOPQ$$.....BY AL GIORDANO...........$$........ }......................$$.....202 9TH STREET...........$$.....CRESSKILL NJ 07626.......$$......................... }.....@@**ACE 3662 VINE MAPLE EUGENE OR* ** 97405 **$$.............................. Π }٠1 +@@10@@70@@@70@@_-@ }@5(@pErSoNaL FiNaNcIaLG-@@_(@ MAnageMENT1-@@1(@BY AL }GIORDANO1-@@1(@atari computer .-@@.(@ enthusiasts!--@@ }-(@ eugene, or(-@A FZ-@@1(@PRESS SPACEBARC-@@Z(@ } TO beginP0#@@K:0)@U +'0@@@A0@@ }S-@@r(DO YOU NEED INSTRUCTIONS?)@V!>:,4Y!%D:INSTRUCT.BASW>:,0N@Z3 }6-Ae6-Af'6-Ag36-An;A`,*6-P:I:,$?`,66-@Z;$?,;@ },;,;,f6-A0r6-A@;@,;@ ,oC6-A56-C;@,;@,;@,;@ },xC6-6-@#6-%+6-%36-%;6-%C6-%}f&;@ ,;@@,;@,86. D:EXPENSES. }f;@,;@,;@,;@,~%;@,;@,% A-A $a >:A%,*0 }@@@D0@@^0@@@a$= -@=( }o-@@9(|̠̠|K-@@o( }"-@@"(FILE: =:,40A`C-@@C(DATA: ACTIVE MONTH # 7@, }1-@%@!!1( RECORDS: "-@@"(DATE: ( ( ($709,9,;A,; }A,;A,76-6 AT0@@70@@@Q0@@@T$ }K:  6.D: A46.NULL 4((I) INITIALIZE NEW P((L) LOAD A SAVED FILE ( }-(SELECT?4)P>:,0L*>:,0IA0  AB 6. (ENTER FILE NAME $,4 8-@"B  }A`M 67,.67B:,%,..DAT*-B:,77<,4.C-@"M A`   $"">:,4L A" A },">:,4I A`" A06"A0@ A0J)  )( (E) CHECK ENTRYO$$( (D) Q }UEREY BANK BALANCET( (C) CHECK SEARCH^""( (S) SAVE CURRENT FILEr( (B) DISPLAY BUDGETx( }(Q) QUIT( (I) INCOME MODULE ( (L) LIST FILE NAMES%%( (P) PROPERTY COMPARISONS##( (H) H }ELP..INSTRUCTIONS( ((  )(>:, ">:,4S A P" A0">:,4C A " }A0">:,4N A0" A0(>:,4E6- A@( A0>:,4B%D:FIN1">:,4D A }6" A0!>:,4H!%D:INSTRUCT.BAS">:,4I A" A0>:,4P% D:PROPCOMP">:,4L } A" A0 A0N^>:,4L(} -@1( DATA FILES:; AND:*.DATX A^6 }-X:-@ .(CAN'T READ DISK DIRECTORY.37 :$b lB-@@ --@)@ B7<,0 } Apv/ -(7<@, 6-%'+ / 7<,0 Ap8-@@#1(PRESS RETURN FOR }MORE 8)5-@#@6 -'( + 5 A : " (,(NO DATA FILES IN DIRECTORY0 : A0 }E-@#>:,0L>(PRESS RETURN TO CONTINUE E)$ A"$-@" A`9 }  ((LOADING $ AP/9 AP 0AP/!#;$%%,/6-+%,$ } 6- B:,"A $ 67,.6-%AP$ Ap"6A0  6-* 43 67,.B: },"AP)6-%AP3 A>H 6- $R7(  NOT FOUND$6-@p. A46-7$\; A`( })(HOW MANY CATEGORIES-; A`fA()(ENTER MAXIMUM CATEGORY LENGTH-A @App 6-&6-6 }6. z -( CATEGORY #%:; B:,!1(MAXIMUM LENGTH IS RE-ENTER ; A & B:, }67B:,%,. & A 67B:,%,.  6- $? #( IS FILE NAME--O.K.*)5>:,4N? A` } ((SAVING  % (((%6--B:,%AI#(7:%@e,E(7$%<$ }%,U V6-%A:,X 6-%Y 6-&Z$!!ˠ٠Š'6-6-'6- } A3AR@] 2(& CHECK ENTRY ](& }'6-6-'6-[-@@+-&@;(>:%@e,Q(.7$%<$% },W(|[ m-@@+-@ &@=@@M(>:%@e,c(.7$%<$%,i(|m "e }-@&@#-@5@@&E(>:%@e,[(.7$%<$%,a(|e ,,( (-@@ },( Ҡ13 A0("@@/(DEPOSIT36C(@@!(MO:%C!@) @ }A07*@@*(LAST CHECK # ;b(@@%(CHECK# );@@L( CATEGORY: } Pb@@(@( TAX DED:A0Y*0NA0JR(@@&(AMOUNT$ *<@ }@ J(PAYEE: NR K4AL6-%A:,6-%6-&T3(@@3(ˠŠ }^1(1(%ҠԯԯŠ )>:,4>A4 A  A0] }-@@ #-O(' S ] A06-6.6.$6.0 }6-!!ԠϠˠ Ap4 AP*@@ 4 A`3@3 }@@@ @ @ @ @ @ @ } @((@@D>:,4+AN">:,4* A70" A0 [6- }@    1AR@X(" ˠȠ[( u-@@5(DO YOU WANT TO S }EARCH BY...G@@S(1. NAMEe@@u( 2. CATEGORY @@2(3. TAX DEDUCTIBLE CHECKS }D@@X(4. CHECK NUMBERj@@(5. ALL MONTHLY RECORDS P(( YOUR CHOICE...,)@ }3(>:,>>:,44F6.YP A09 /( GLOBAL SEARCH/4YA04 A( WHAT MONTH (1-12)#A! }@) @A00 0YA09 )%( STARTING WITH WHICH MONTH) , 6. 6.>:, ",6-@ } >:,42A0` !>:,456.>:,! A& >:,41A2 >:,44 A1 >:,43$ } A0   Q-@@+-&@M(>:%@e,.7$%<$%,Q  [-@ @#- }@5@@ W(>:%@e,.7$%<$%,[  ((YOUR CHOICE... $   & d-@ }@3((1) SPECIFIC CHECK NUMBERE-@@d((2) RANGE OF CHECK NUMBERS0 #)@#>:,42A1@1 D }  -@@6(ENTER CHECK NUMBER :D A&: A0D   N ^-@@0(ENTER THE C }HECK NUMBERB-@@Z(OF THE LOWER LIMIT^S a(-@@3(ENTER THE CHECK NUMBERE-@@ }](OF THE UPPER LIMITaX '6-@$ $    ^@@-(ENTER NAME OF PAYEE?@@ }Z(NOT MORE THAN 9 CHAR.^ $ !!ΠŠ '6-6-'6-   }6-6- > A5P>@@@ D:RECON.DTA ) A5)-@ } @" @$ @* 6-%@/  6-%6-%C 6-&H  R 6-& @ } 6-%@ 6- $  AR@)(@@)( BANK BALANCE$(.8 }Y@@0((1) QUERY BANK BALANCEB@@Y((2) RETURN TO MENUB%)@>:,41% A3G }>:,42A0L   Vz@@5(G@@b(|BANK BALANCE IS $ } t@@3z(|X5@@5(g AIij A0!!Ԡ }Ϡˠ@ A7P6@@  D:RECON.DTA@ A7`?@?@@@ } D:RECON.DTA @ @ @44@@ D:RECON.DTA }$ (PRESS RETURN TO CONTINUE)@ A6XAR@'-@@"K(PRESS RETURN TO SEE } MORE CHECKSX)@ w"@)@(A(%ŠˣS-@e( CHECK } LISTINGw-@@$EAR@'-@@"E(PRESS ANY KEY TO CONTINUE)@ A0 !} ԠǠŠ 6-A:,&&6-P:+%>P,$A,'A# 6.00#67B:,%@,.=:,<& "}7B:,&@&7B:,&@67B:,%@,..006- #}@&&B:, @(7@, $4A AP4YAZ A4A $} A"AT " " A' A,!* *44A| Apa  -@ %}@4(WARNING: THIS WILLF-@@a(DESTROY ALL DATA FILESzB-@@'( DELETE (Y/N)4)@ &}?>:,4NB$((@3@$8 B44@3@ D:RECON.DATL '}$d_-@@92@ @@= _2n$_-@@ (}92@ @@= _2$,b -A@@6@<2 )}@@@ b26$XŠŠś 6-P:,67@,.=:,*$l ! *}!ŠŠq   AR@v '@@'( INCOME MODULEx O(@@'( +} ENTER DATE9@@K( (MM/DD/YY): Oy 2@@.(ENTER WEEKLY SALARY2{ 1@@-( ,}ENTER WAGE EARNER 1  A@ A0   < AP<@@@ D:INC.DTA  -}   ) A)-@ 6-%@ @ @ @ 9"@ .}9(%ŠŠŠҠ G@@(,@@1(C@@&G( 6-% /}   AI  AI4!@f!9"9(%٠ϠΠŠh!,(@ 0}@,( TOTAL INCOME z!%6-6-% AI!  AR@!*(@@*( INC 1}OME MODULE!(!!P@@*((1) ENTER INCOME<@@P((2) VIEW INCOME!%)@>:, 2}41% A!>:,42A@!   "!!ԠϠˠ$"> AP4@@  D: 3}INC.DTA> A`."=@=@@@ D:INC.DTA8" @:" @<" @ 4}L"22@@ D:INC.DATV"$(# @2#5 A5@@ D:DATE. 5}DTA<#@@F#@P#5-@@5(DATE OF LAST PROGRAM RUN #@#D-@ 6}@3(TODAY'S DATE (MM/DD/YY) 7>4D6.# 06.#B:,@A#++@@ 7} D:DATE.DTA#(@(@#@#$ D:FINANCE.ACEDATENAMNNNNNNFILENAMEEXPENSE W++BEEBOOBOCHANGANHFIFNFMTDELALOGSBNACLEAHASDONDDATEFLAGDATENAMBDNNNNNNFILENAMEEXPE9}NSECATTAXECHOISMRC1C2FBCNSJNHINTSEIINEOBTOEXPENSCHECKNUSEUUEODEPOSIBBCHOICPAFILE3:}FILTEMEXPENSESBMONAeAfAgAAv@   A0 A;}@ $& A5@/7:AJ@@@@<}@ .(V b!c"f #p$A%@&A'A()*td+=}d,-@I.@'/@0@1@2@%3@ 4567AQ89@':;>}?@AABCD@EFGHIJ?}KL@'MBNOPQ  Π٠Z36-Ae6-Af'6-Ag@}36-An;A`,*6-P:I:,$?`,66-@Z;$?,;@,;,;,f6-A0r6-A@A};@,;@ ,od6-A56-d;@,;@,;@,;@,9@',;@ ,;@ ,B}xC6-6-@#6-%+6-%36-%;6-%C6-%}p&;@ ,;@@,;@,86. D:EXPENSES.fC};@,;@,;@,;@ ,p A-A $s(>:A%,*0@@@D0@D}@^0@@@pAR@s$= -@@=(E}o-@@9(|̠̠|K-@@o("-@F}@"(FILE: =:,40A`A-@@A(DATA: ACTIVE MONTH # 7@,1-@%G}@!!1( RECORDS: ( ( ($709,9,;A,;A,;A,76-6 AT0H}@@70@@@Q0@@@T$K:  6.D:46.NULLI} 4((I) INITIALIZE NEW P((L) LOAD A SAVED FILE (-(SELECT?4)P>:,0L*>:,0IA0 J} AB 6. (ENTER FILE NAME $,4 8-@"B A`M 67,.67B:,%,..DAT*-B:,77<K},4.C-@"M A`   $"">:,4L A" A,">:,4I A`" A06"A0@L} A0J  ^""( (S) SAVE CURRENT FILEr( (B) DISPLAY BUDGETx( (Q) RETURN TO MENU|M} ( (F) LARGE BILL FILE( (C) LOAD CATEGORY ( (L) LIST FILE NAMES( ((  )N}(>:, ">:,4S A P" A0">:,4F A3" A0>:,4Q% D:FINANCE">:,4BO} A " A0>:,4C A0">:,4L A" A0 A0N^>:,4L(} -@1(P} DATA FILES:; AND:*.DATX A^6-X:-@ .(CAN'T READ DISK DIRECTORY.37 :$b Q}lB-@@ --@)@ B7<,0 Apv/ -(7<@, 6-%'+ / 7<R},0 Ap8-@@#1(PRESS RETURN FOR MORE 8)5-@#@6 -'( + 5 A S}4  "(0(NO DATA FILES IN DIRECTORY4 E-@#>:,0L>(PRESS RETURN TO CONTINUE E)$T} A"$-@" A`9  ((LOADING $ AP/9 AP 0APU}/!#;$%%,/6-+%,$ 6- B:,"A $ 67,.6-%AP$ ApV}"6A0  6-* 43 67,.B:,"AP)6-%AP3 A>H 6- $R7(  NOT FOW}UND$6-@p. A46-7$ȠԠś-@&%4>:%@e,%68,-8,%A:,X}  Ap!!Ԡ٠Š:  @@4(-- BUDGET ENTRY --7(:(AR@Y}##( (1) ŠԠ##( (2) ٠##( (3) ΠϠՠ&#( (4Z}) ԠӠ&()( SELECT !))@ >:,41A">:,42A >:,44A[} A0 --@@ D:BUDGET.DAT!+  ('(ENTER INCOME AMOUNT+%2 2(&\}Ԡ٠*6-6-+٠ΠΠ4 A!`6H-&]}@R@\5-(>:%@e,.7$%<$%, $ 56-%f g-@ @h-@^}@iG@@ ?(>:%@e,.7$%<$%, $ G6-%k lT.(&_}@@@ T( TOTAL INCOME mN@@ )( TOTAL BUDGET ;@@ N( BALANCE = &n`}=@@#& =(էŠġoL(@@&&!L(YOU CAN PUT $ & Ia}N THE BANKp@ AI--@@ D:BUDGET.DAT8 (ҠԠ8(٠b} A"`-@&!"@!-@ @!!@!@@ (7$%c}<$%, @ @ AI +@%@@90@@@S0@d}@@e-@@(@PLEASE STAND-BY$ I @@2(*** CREATE FILE ***5(? Ae}0I A0 @-@+(>:%@e,.<(7$%<$%,@  g-@ @)-@@%;@f}@ O(>:%@e,.`(7$%<$%,d g$ %(!(ENTER FILE NAME (A-Z)% 4(ENTER UNPAID AMOUNT g}0( ENTER DATE4 ?-@%(4>:%@e,;6.7$%<$%,?  67,. A0 @q}?BAUTORUN SYSBMENU SYSB5INSTRUCTBASB{FINANCE BX8FIN1 BDATE DTABRHOMELOAN BINC DTABINVENTRYBASBVKILOWATTBASBdVFINOPSYSBASSTUDENT 12 STUDENT 13 ASSIGN B'"DOS SYSBLIDUP SYS@  @  @  @ @ !!ԠŠ C  (r}(#@@@(*** LARGE BILL FILE ***C( Y(@@1((1) CREATE BILL FILEC@@Y(s}(2) SEE BILL FILE #)@#>:,41A0 >:,42A6  6.Y4YA3  )6-@ Apt})0YA3( 6-@ Ap GOSUB CHANGE 6- 2 A5P2@@@u} ) A5)-@ @ @ @ @ @! v}@" @# 6-%@$  46-%A:,% ȠԠś* ? 4( @@w}'(*9@@%?(&H   @ "A@ # 4Y6-%@# A5b $ &@x}!@&6-@  Ap A30 6-6-$ 8@@.(VIEW LARGE y}BILL FILE8 A0$4( (@@0(ENTER FILE NAME4&;-@%(4>:%@e,;6.7$%<z}$%,( . 67,.3 A68 @@B@L@V@`{}@jX @@.(LARGE BILL FILEX(%ŠĠŠŠt(@@!(|}|3@@8(J@@)Q(|c@@0h(z@@7(|..(&Ӡ}}ԠǠ6- A3 AI A36-EAR@'-@@"~}E(PRESS ANY KEY TO CONTINUE)@ A0 ԠǠŠ 6-A:,&&6-P:+%>P,}$A,'A# 6.00#67B:,%@,.=:,<&7B:,&@&7B:,&}@67B:,%@,..006-@&&B:, @(7@, $4A }AP4YAZ A4A A",!!!* A *44A| A}dw-@@92@@@M-@Q s2w e}$-@@92A9@@[2@A@@@o-@s 2}2@ $XŠŠś 6-P:,67@,.=:,}*$l !!ԠŠv *-@&&68,-* x y 5  !( ALL MONTHS ?%5}4YA { B( ENTER MONTH& Ap2 A%B0YA( ?%( STARTING WITH WHICH MONTH)3 }Ap? A% A0 6- 2 AP2@@@ ) A)-@} @ @ @ @ @ @ @} 6-%@ ȠԠś -@& %>:%@e,4%68,-8,%A:,     } 4YA` 4!@f!"Ap!# 4Y6-%@# Abq! Ar!&@}!@&6-@s! Ap A0z!/6-6-% A/ AI(# +6-2#<#}x#--@@ D:BUDGET.DATy#}# A~###6-6-#٠}ΠΠ# A`#--(%٠Ԡ̠Ơ箱#-&@#@#IF BD(I)}=0 THEN 9150#s(7$%<$%,'@@0($B@@ M(P:8,,_@@'k(&P:8,,s6-}%#)&P:8,, )@@5##&P:8,, (*#? -@@!?(!(*) = ACTUAL EXP}ENSES OVER BUDGET#C-@@"2(PRESS ANY KEY FOR PAGE 2?)@C # A##H-(%٠}Ԡ̠Ơ箲;-@H@#s(7$%<$%,'@@0($B@@ M(P:8,},_@@'k(&P:8,,s6-%#)&P:8,, )@@5#&P:8,, (*#* -}@&&6-%8,* #Q.(&______________________________________@@@Q( TOTALS ##2@}@(,@@'2(&#*-@&&68,-* #6-#@ AI#"}"ŠȠŠ#6. JANUARY 1982$#6. FEBRUARY 1982$#6. MARCH 1982$#6. APRIL 1982}$#6.MAY 1982$#6. JUNE 1982$#6. JULY 1982$#6. AUGUST 1982$#6.SEPTEMBER 1982$#6}. OCTOBER 1982$#6. NOVEMBER 1981$#6. DECEMBER 1981$T$2 2(&ԠӠ̠Ӡ^$5 }4Y5(% YEARLY DATA h$! 0Y@@!($$D:FIN1NNNNFILENAMEEXPEf08/01/8508/01/85 YEARLY DATA h$! 0Y@@!($$D:FIN1NNNNFILENAMEEXPE((QQQQQQQQQQ1Q1Q1Q1Q1Q1Q1Q1Q1Q2Q2Q2Q2Q2Q2Q2Q3Q3Q3Q4Q5Q7Q8Q10Q16Q17Q18Q20Q25}Q25Q27Q30Q33Q38Q43Q44Q46Q59Q69Q69Q73Q75Q76Q76Q89Q92Q96Q98LNILTTMLINECNPASYEARSFFINABADAS}0485.2304/03/83RONALD MCII NEWSTRIB AMOCO DR.WHITE RAYVOGUE SCHOOLBETNEWENGLANLICENSE MISC MISC EPHOHIIIXFINPFESBABJTPTOTTITOTBORDRGSNFINISLINEPRINTBEGISJSELECFFINYEARSIPAKEYADBAMSBABCALDP}MMPMAVAAYEAARATFVAFYEAPVBAMKSNBSNYKERETRNZZ} } !"#$%&'}()*+,-./0123456}789:;<=>?@A@BCDEF}GHIJKLMNOPQRSTUV}WXYZ[\]^_`abcde}fghijklmnopqrstu}vwxy@z{|}~6-6-@'6-@36-@}?6-@K6-@W6-@c6-@o6-@{6-@6-@6-@6-@6-@6-}@ 6-@6->P6-@6-@ 6-@!6-@"6-@'6-@36-@&?6-@}(K6-BPW6-@8c6-@9o6-@@{6-A0P6-@u6-A06-A6-A`6-Ap}6-A6-A'6-A2P36-AU?6-B2yK6-A3W6-A#0c6-Ao6-A$0{6-A@}6-A4`6-A%{6-A&6-A'6-A036-AR?6-A'`K6-AdW6-A(c6-A) o6}-A `{6-A >>> HOMELOAN ANALYSIS <<<(>>> VERSION 0.8 <<<2F A3PPR " }T " ZE K:6-!-1( 1 7=-E6.1d7 )"AU"(-}7 Ax."A&*!6-&&67,. . >:, ! '# @F)"@G)!@W' %67<,.>}:,(>:,!6-%% A 6-F:,6-T:,$6-F:A2,-6-F:,7")"A A  6-8, @}" -( ")""6-% ")"6-& !6-  6-& -(=>-@E" & "}ApA A A PAA AA0APA!0A!A"0A"A#},  @ " J "    T "   ^   " r |s@w}'A@66-F:@,KF:@,!A(_@&A(sB7t&A($ A@d!}$$32@U- )2,$3KSND 02= - 2'-A+ 30}6$=BSND- 2- #2&$-GSND 6- A 6-% A 6-)+}  0!0)0e%( Π;( $ Monthe(  YEARS %} $&(($( DATEPRININTBAL((DN0 6.=:,B:,""67<,. 067<,.=:,X= A@6.=:},-7B:,&:,6 j 6-F:,"' t 3  $ 6-6-%%  6-}9 A6- ! '6--6-36-96-C -2(# CALCULATING >-@$C(}U -3($ (Press to Exit Calculation) ;6-&E-%M-U6-%(   A@2 6-6-%<5 6}-$6-P:+%,$,'$6-$-6-P:,56-'Z7 6-&6-%6-%$6-F:,* -'36-7 n  APx} 6-&L  -8( CALCULATING  B2L2 *    - 6-}&6-6-6-&# ) - > -"(LAST PAYMENT %(!>( +  BALLOON $- +}% 00%0-0A 0  +  HOME A  LOAN ,=  ANALY}SIS 8  ٠͠ = T?  !',-/3/9/?/h F:, A@}r   A:,!C   6-A:, A:,!@P % 6-A:,6.6-'!6-% }A:, @  6-A:,6- &D 6-A:, )!6-X b 6-A:,  6}-A:,   A:,  6-A:,   6-A:,6- *H 6-A:,6.   Rp} 6-A:,  6-A:,  6-A:,    6-A:,  $ '  6-6-6- #6-'} L V A:, @ j  6-A:, ~  / A%`6-+&,&!6-''6-/6-% # "6-+%,#+$,}# A$ 6-+%,#++$,&, $6-$$'+&,$6-P:+%,$,' A%' 3 6.=:,#7B:,&;,;@5,;,9,*67,. 567,. >67,.h [16.'| } | [6.# then press l P06.&--------------------------------------4 }> A7B F P A  = 6.0'-=(# I couldn't read the last number  I -2(# you typed... P}lease try again. 7; E BI   O -)(Purchase Price......... /-O(Down Payment........... } O -)(Interest Rate......... /-O(Balloon Payment........  O -)(Length of Loan in Years /-}O(Monthly Payment........ O -)(Year of First Payment. /-O(Month of First Payment. $V -)}(Amortization Year...... /-V(" 8U -)(Appraised Value........ 5-@}U(Appraised Year......... LO -)(Appreciation rate...... /-O(Resale Value........... `R -)}(Resale Year............ /-R( t$~J#-"68,- "$J1,1,1,9,7,5},7,2,6,4,2,4,1,7,4,5,7,4,1D:HOMELOAN.PV2Q1Q1Q1Q2Q2Q2Q2Q2Q2Q2Q3Q3Q3Q4Q5Q7Q8Q10Q16Q17Q18Q20Q251 SDCCC1C2MENU qq(@@@ AA@ @ AU!} AUŠ٪ By 9/15/81 Roy R.Dugan  ŠƠ!}Š  3662 VINE MAPLE  EUGENE, OR 97405 d;A`,;@@!},'6-36-@?6-@K6-@ W6-Ad67<,.; !@@K:!  +-@!}"(HOME INVENTORY%(((+$$67B:,%,.!67B:,%,.;$$d+,X --(SPACE REMAINING = A`&B:,0(T(!} PRESS FOR NO ENTRYX 6(ITEM:4 ; @((MODEL: J(( SERIAL #: !}T"((YEAR ACQUIRED:" ^((VALUE: $  6.# PAGE ENDLB:,!AY6( END OF INVEN!}TORY STORAGE SPACED-A H L  ALIST INVENTORY ROUTINE B:,  +AR6-6!}-70@@@70@@@ (ITEM #-B:,&V7<,4;((JAP!}A`ApAAAR6-%V 7<,4#A0 (7<,  A@^-@.(!}PRESS FOR NEXT ITEM;)@C6-%I(}M Z(ITEM #^ > (}-((END OF INVENTORY RUN6-A!}: > &(ITEM: $0(MODEL: $:( SERIAL #: $D(YEAR ACQUIRED: $N(VALUE: $$S 6!}- $XSAVE INVENTORY ROUTINEY B:,  b##@D:INVENTRY.SAVv ($$( INVENTORY SAVE!}D ON DISKETTE-A   LOAD INVENTORY SUBROUTINE*-#@D:INVENTRY.SAV- AP/ 6.!}CLEAR STRING4-A`> )H67B:,%,.>:, R6.7:,#67B:,%@,.>:,:67B:,%@,.>:,D A0&}G$p @F:@,&@4-@`(' d p39 SPACES# @&}F:@,&@#$""ҠӠϠśkEND,999,0,0,0,0,0MENU OPTIONS?<(4}THIS PROGRAM AL&}LOWS THE FOLLOWING SELECTIONS:?(DD(< A. TOTAL MONTHLY AND AVERAGE DAILY KILOWATT USEEE(= B. TO&}TAL MONTHLY AND AVERAGE DAILY KILOWATT COST<<(4 C. TOTAL ANNUAL KILOWATT USE AND COST<<(4 D&}. PRINTOUT OF ALL ELECTRICAL USE DATA''( E. DATA INPUT INSTRUCTIONS ( F. EXIT PROGRAM(4'(T&}YPE LETTER OF OPTION YOU WANT.4)@ WWGET IS USED TO DETERMINE LETTER TYPED ON KEYBOARD; A=ATASCI VALUE OF LETTER &}TYPED*"@eA04"@fA@>"@gAPHM"@h A!`9@@&}P:C BM A`R"@iAp\$"@p!@@$f A ppPRINTER ERROR MESSAGE&}z?@+(PRINTER IS NOT ON-LINE!5 B? A p ""SUBROUTINE FOR MENU OPTION A A lU(MDO YOU &}WANT TO INCLUDE INFORMATION ON HEATING(H), COOLING(C) OR NEITHER(N)?b)@l A0 &"@g6.COOL&6-&} &"@r6.HEAT&6-@ 2"@x6. &6-@26- ,,($MONTH TOTAL AVG T&}OTAL AVG KWU A+(! KWU DAILY DGREE PER A8 SPACES BEFORE KWU E.(& KWU USE DAYS DGREE DAY&}E14 SPACES BEFORE KWU -@ " 0A2& Y6-P:A$','AYCOMPUTE UNITS PER&} DAY AND LIMIT DECIMAL PLACES DISPLAYED0 %"6-!% A1P: %"@6-!% A1PD +"@& }))!6.N/A+ A1pN X06-P:A$+&,'++'@0,$,,'A96.=:,XCOMPUTE UNITS PER DEGREE DAYX >>&!}LINES 3170-3190 USED TO ALIGN AND PRINT SCREEN DISPLAYb \6-@&B:=:P:,,,16-@&B:=:P:,,,E6-@&&B:=:,,&"}\6-@2&B:=:P:,,,l J( -F:@,"(1-F:@,6(E-F:@,J(v -F:@,(  &#} # L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@ -"@ A0# A- A0&$}  (} A ""SUBROUTINE FOR MENU OPTION B A%%(MONTH TOTAL TOTAL UNIT;%( KWU &%} COST COST;9 SPACES BEFORE KWU-@"0A@> 6-P:B$+',,'B>&&}CALCULATE AVERAGE DAILY USE16-@&B:=:P:,,,16-@&B:=:P:,,,U( -F:@,(( 7-F:@&'},<(Q-@%F:@,U(   #L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@&(}-"@ A0# A- A@0 (} A ""SUBROUTINE FOR MENU OPTION C_L(D}DO YOU WANT TO INCLUD&)}E INFORMATION ON HEATING (H) OR COOLING (C)?Y)@_6-&"@g6.COOL&6-&"@r6.&*}HEAT&6-@G/(  AVG KWATTG22 SPACES BEFORE DDN$G.(&YEAR KWATTS DGREE P&+}ER DGREEG10 SPACES BEFORE DGREE((( USED COST DAYS DAY36-6-'6-36-&,}-@"AQ@1"6-'6-1 AQ01"@6-&-}'6-1 AQ0 6-%6-%&  6-%6-%   #66-!66-P:A$','A&.}(H6-@&B:=:P:,,,16-@&&B:=:P:,,,H6-@0&B:=:P:,,,2T(%A  ,-F:@,1(&/}@-F:@,E(T-F:@,<(F'6-%@' %@AP`P#Z:(-("DEPRESS ANY KEY TO RETURN T&0}O MENU.:)@d A o""SUBROUTINE FOR MENU OPTION Dp6-6-Q(1}TYPE NUMBER OF LINES PER &1}PAGE TO BE PRINTED.^)@k)@6-++&@H,$@,%+&@H,zC3>:@',>:@V,CDISABLE &2}EPSON "END OF PAPER" FUNCTION\C(@2 TOTAL AVG TOTAL AVG\24 SPACES BEFORE TOTAL]&3}E(@4 HEAT KWATT COOL KWATT]24 SPACES BEFORE HEAT[C(@2 KWATTS TOT&4}AL DGR PER DGR PER[8 SPACES BEFORE KWATTJG(@6YEAR USED COST DAYS DGR DAY DAYS DGR DA&5}YJ36-%@6-c6-6-'6-36-?6-K6-W6-c6-&6}hhCDDIV & HDDIV ARE NUMBER OF ANNUAL KILOWATTS FOR HEATING & COOLING. ONLY MONTHS WITH MORE THAN 100nnCOOLING OR 200&7} HEATING DEGREEDAYS ARE INCLUDED. 500 KWATTS PER MONTH SUBTRACTED BY FCTR FOR OTHER ELECT.ggCDTOT & HDTOT ARE TOTAL HEATI&8}NG/COOLING DEGREES PER ANNUM FROM MONTHS WITH SUFFICIENT DEGREE DAYSWK6.A &9} W65 SPACES9-@9CALCULATE ANNUAL CONSUMPTION AND COST"Aa&:} !6-%6-%& !6-%6-%& 6-%6-%$   #.*!*6-P:A$','A8&;}*!*6-P:A$','AB;(@%A;67@&B:=:,,<@,.=:,L((67@&B:=:P:,,,&<}<@,.=:,V%%67@%&B:=:,,<@$,.=:,`((67@0&B:=:P:,,,<@2,.=:,j%%67@A&B:=:,,<@@,.=&=}:,t((67@E&B:=:P:,,,<@G,.=:,~(@6-%@'6-%@' %@A`p# 36&>}-%@hhCALCULATE AND PRINT MONTHLY DATA. SUBROUTINE 6410 PRINTS COLUMN HEADINGS ON EACH SHEET OF PAPER Ad&?} Ad` qR(@A KWAT KWAT`6-%@q47 & 10 SPACES&@}_Q(@@MONTH DAILY MNTHLY MNTHLY COST HEAT PER COOL PER_6-%@uR(@A KWATT&A} KWATT COST PER DGRE DGRE DGRE DGRE`6-%@u8 SPACES BE4 KWATT(pQ(@@ USE USE &B} KWU DAYS DAY DAYS DAYT3b6-%@p8 & 13 SPCS2$< 6.JAN AfF 6.FEB Af&C}P 6.MAR AfZ 6.APR Afd 6.MAY Afn 6.JUN Afx 6.JUL Af 6.&D}AUG Af 6.SEP Af 6.OCT Af 6.NOV Af 6.DEC Af@(&E}} A :-@:CALCULATE MONTHLY CONSUMPTION AND COST"6-6-0&F}Ah (@ WK6.A W65 SPACES 6-&G}P:A$+',,'A((67@&B:=:P:,,,<@,.=:,%%67@&B:=:,,<@,.=:,"((67@"&B:=:P:,&H},,<@$,.=:,, 6-P:A$+',,'A6((67@(&B:=:P:,,,<@1,.=:,@%%67@9&B:=:,,<@8,.=:,&I}J* !*6-P:A$++&,',,'AT4"*67@B<@D,.N/A4 Ag`^((67@C&B:=:P:,,,<@F&J},.=:,h%%67@S&B:=:,,<@R,.=:,r* !*6-P:A$++&,',,'A|4"*67@V<@X,.&K}N/A4 Ah((67@W&B:=:P:,,,<@`,.=:,#6-%@"#6-@(@   #"&L}Ahp4DECAhJ=(5INSERT ANOTHER SHEET OF PAPER; THEN DEPRESS ANY KEYJ)@%6-&M}6-% Ad"36-%@""Ah@$W++INSTRUCTIONS FOR PREPARING DATA LINESX6-%A bI&N}I(A}FOR EACH MONTH OF DATA YOU HAVE, YOU MUST TYPE ONE DATA LINE.l66(.THE FIRST DATA LINE MUST BE NUMBERED 1000.v&O}SS(KAFTER THAT, EACH DATA LINE MUST BE NUMBERED ONE HIGHER THAN THE LAST.LL(DFOR EXAMPLE, 1000 MUST BE FOLLOWED B&P}Y 1001, 1002, 1003, 1004, ETC.K>(6DEPRESS ANY KEY WHEN READY FOR NEXT INSTRUCTIONS.K)@66(.}THE FOLLO&Q}WING IS THE FORMAT FOR A DATA LINE:--(%1000 DATA OCT,82,1350,30,79.25,495,0++(#REQUIRED DATA SEQUENCE AND FORMAT:&R}((( 1. MONTH; MUST BE 3 LETTERS LONG''(2. YEAR; MUST BE 2 NUMBERS LONG,,($3. NUMBER OF KILOWATTS USED IN MONTH&S}++(#4. NUMBER OF DAYS IN BILLING PERIOD99(15. NET COST OF ELECTRICITY IN BILLING PERIOD99(16. HEATING DEGREE DA&T}YS IN BILLING PERIOD99(17. COOLING DEGREE DAYS IN BILLING PERIOD:A :($LAST LINE OF DATA &U}YOU ENTERED WAS: ))(!NOW BEGIN TYPING NEW DATA LINES.  D:KILOWATTCLCLCLCLAVYUSCOSDDDIDDAVTIM$Ul11QUIAA1CFCNSPACESDDDEDRFILECLENNRM2M3DAWSTACURSOOFCOCANCEKBZCHCHATTPDPOII*W}IPPBBBBPGPXDW2SWEQEENTERERJPCALNZCCCCLALDD*X} @*Y} @!"@#*Z}$%&'()*+,-./012*[}345@6789:;<=>?@AB*\}CDEFGHIJKLMNOPQ*]}RSTUVWX##SS SS SS SS SS SS SS SS SS SS ##SS ATARI BASIC SS*^}##SS FINANCIAL OPERATING SYS SS##SS AUTHOR J. M. KEYNES SS##SS TRANS. RICH BOUCHARD SS##SS TYPED BY C'E*_}ST MOI SS###SS COPYRIGHT 1983 SS(##SS SS SS SS SS SS SS SS SS SSd +n~~;@,;@,*`};@@,;@@,;@ ,;@ ,;@,;@ ,;@,;@,;@ ,oRR;@,;@,*a};@ ,;@`,;@8,;@V,;@ ,p9@,qZ6.>:@4,6-@*6-AR66-@*b}B6-N6-B33Z6-Adr6. x A0Y 0-@B:,)6-@:7<,,U67<,.>:&*c}@2$+@*A!,,Y $5#@@K:/AU5G >:A`,>:@0,0-*d}@@GF:,AUAJ   >:@0,--@@<F:,"AU@ J A`0)@*e}6-"A(06-&A('@*A"'6-&@23 6.>:,@23 >:%A(,>:@0,*f}@$+ AP+AU*@'A$# AP#0Y*0NA $?-@*g}@? %FINANCIAL OPERATING SYSTEM - ISSUE 44A - "A commodity timing system based onA moving averages; . *h}#Only daily closing prices should be; entered.M . #Fractional values may be entered asM decimals or mixed number*i}s.88 268 3/4 or 268.75, for example. A`" +,** "I have data for all the following*j} 6S* "commodities. Others can easily beS $added to the data statements at the @ end of the program. J6-*k}T "^$ 4END# A`$ Ah$@%@ r,6-%@"@)6-, *l}| A@F +-@@F "If you are not willing to maintainU+ #complete discipline I will not wor*m}kU %for you. Do as I say and you'll growU(  to love me. Mastermind your ownK trades and you will go busted!U A`*n} +006.&DATA # DATE PRICE MOVING AVGAA6.7No action indicated. A change of trend may be occur*o}ing.. 6.67@,.RETURN.67@,.. 6.67@,.ESCAPE.67@,.2&9A,;A,*p}9A,26-=67@,. %67A,. =67@,.7@, AL-@@2 D=Di*q}sk load T=Tape loadL RETURN=Create list > AP4DA4TAr4>:@,A*r}W +7 %Which month (should be 3 months away)C@GQ A0W6.K , !Commodity name (Gold, Corn, E*s}tc.)8@<K4A0 A06. A  Ap&9 ! Enter previous prices,9 oldest pri*t}ce first.0&& Type  for date when done.:  A`<  A >#"@'+# A@?Ad*u}@5@@C:? A D NA6- . Which file do you want2A4AP*v} A06. A X  Load from A `b @@l$@$ Apv*w}P-@ @C67$@&@<$@,.L68,-P  Ap@ A %@*x}: ApN 06-%@;67$@&@<$@,.D68,-N A` +0-@*y}@0 Stand by...I'm working-@6-%@ 6-8,6-%68,-'#6-%@#6*z}-#6-%@#6- 6- $!@ 6.DOWN$ A0"!@ 6.UP" A*{}0  + A" @  6- -@6@* A!>6-&@HAR/*|}6-%@/@)"@A\< $ Press  for next page< or  for menu f& A"@'*}} & A p&6-+& @z <@6-&6-26-< A'*~}6-6-'6-F:@,F:@, . . #L=List P=Print D=Disk/T=Tape save A=Add *}data E=Edit data%% M=Moving averages Q=Quit > AP+ 4A6-!++ A` 4D *}A Ap4EA =4L)4P6-)6-+4P,3+= A4MAp4*}QA@ 4T A Ad A `3  3 $Are you sure you wish to exit (Y/N) ) AP4Y*}+) A1   A $Z  " Press  for menu< or  to restart F AZ"AUA *}&%(  A *"@'A,?Ad@5@@C:? A.)6-*}  Save to) A `8 @@B +  Saving...LCC @>:AU,>:AU,*}>:AU,,,VT -E @7$@&@<$@,>:AU,8,I T@X. +$*}  has been saved.. A``   j< What data # do you wish8  to change (1-)<t @)!A *}~ +-@@6- A" $$-%@&@6@#@*6-*}# A!1 "1 >:@(,*>:@),>:@0, @A - "Type in the correct date and pric*}e0 7  A Ap6 0-67$@&@<$@,.668,-;-@@1 Stand by....I'm working*}; A +36-'8@,!8@,36-@36-'8@,!8@,36-@*}'%"@'6.The trend is UP)%")6.The trend is DOWN0%"@06.Look for possible chan*}ge-*  There are  entries in memory.- o$ How many do you wish to save= (hit  for all)I6-M*}Y"e6-@o A@ )!A` @A0d +-@@B You sh*}uld have a minimum of 18d  entries to follow the system< " Press  to continue< or  to reenter (- *}A"@'#+- A`- 26-+&,%@<6 $ The name of the commodity6 is now >H *} Enter a new name or< hit  to keep the oldH@@/ 6.0 A0%6./ A F' ' T*}he month name is now HI  Enter a new month= or hit  to keep the oldI@J0 A0*}6.P$Z"@6-d +AfI. I must have a minimum of  entriesI for movin*}g averages toh analyze   A nU6-=  , , and  day moving averagesR will be compute*}dU x&& Do you want a printout (Y/N) # AP6-+4Y,# A"# + @ # +6-%@*}"@+6-&@"@6-&@"@6-&@C#@*@*@/*}6-9 A@C A  -&6-%@ 6-8,6-%68,-' 6-6-*})6-%@ @)68,-8,: @The "6-@06-%@: A!`W) @ day movi*}ng average is 56-@>6-8,H A W @  A0W-@@!+3-@@*}W A major  move is underway.L- %$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $A-@AE I L$H @*} H8@,8@,)8@,8@,AP& @Buy & @  Ap998@*},8@,)8@,8@,A@' @Sell ' @ " ",0ENDA.j6 @*}%The risk cannot be calculated becausej @&this commodity is not in the data base0   #$60Ap*}@6-O:8,&8,,$T @ VC' @Approximate risk is $36-@96-C A X, @*} , @ per contract^ # $h @ @ r$|@-@@#3 Hit any key to continue *}= AP@$Q*4BEANS)4 MINI BEANS)4PLYWOOD66-@B6-@ N6-@ Q$A4LUMBER)4SUGAR&6-*}@26-@ >6-@ A$N'4GOLD)4 MINI GOLD)4SILVER36-@?6-@K6-@N$I"4 MINI*} SILVER)4PLATINUM.6-@:6-@F6-@I$84T-BILLS6-@)6-@56-@!8$74*}COFFEE6-@(6-@ 46-@7$I"4YEN)4D-MARK)4POUND.6-@:6-@F6-@I$7*}4COTTON6-@(6-@46-@ 7$64COCOA6-@'6-@ 36-@"6$=4 ORANGE JUICE*}"6-@.6-@:6-@=$@4SP500)4VL500%6-@16-@=6-@"@$84BELLIES6-*}@)6-@56-@8$*6-@6-@ '6-@*$46-F:A,46-F:A,%F:A,$AV*} AK"A@A "File Not Found or Illegal FilenameK AG"A@= Ille*}gal Filename or Disk ErrorG A /"*"Ap%6-@/ A@F:@,F:@, 0"  ERRO*}R-  AT LINE & 0 A1 # 6.4 6.DATAFILE#$!-@B:,&6.7<,0%0 *0-%6*}7B:,%@,.: D)B:,!@)6.7@<@,F$N +X>4-@&P:+@%B:,%B:,,'@*},@>  b&"-@&B:,'@@& l$v 6-A:,(-@B:,!7<,0 % ($"-*}B:,7<,0/ "$ "B:,$666-A:7%@<&@,,'A:7%@* B:, * @7*}@<&B:,,H @.R @ @0\ @f$p6.=:P:,,z* B:, * @*}7@<&B:,, @$V6-@6- A!`V @ 7$@&@<$@,*} U6-@6-8," A 4 @ =6-8,G A U @$@''@*}@P:/"/@@E:$ 77BEAN MEAL,100,1000,BEAN OIL,600,600,BEANS,5*}0,1500 55BELLIES,380,1200,CATTLE,400,900,COCOA,1000,1500 00COFFEE,375,5000,COPPER,500,700,CORN,50,700 &&COTTON,500,1*}000,D-MARK,1250,1500 88FEEDER CATTLE,440,900,GNMA,1000,2000,GOLD,100,1500 77HEATING OIL,420,2000,HOGS,300,800,LUMBER,13*}0,1200 88OATS,500,400,ORANGE JUICE,150,1000,PLATINUM,50,600 55PLYWOOD,76,700,POTATOES,500,500,POUND,1250,1500 33SILV*}ER,50,2000,SP500,500,7500,SUGAR,1120,1700 --SWISS FRANC,1250,2000,T-BILLS,2500,2000 //VL500,500,7500,WHEAT,50,750,YEN,1*}250,1500& END,0,00    D:FINOPSYS.BASNRM2M3DAWSTACURSOOFCOCANCEKBZCHCHATTPDPOII(9