@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}}}Ҡ |||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 ALLOWED384 FREE SECTORS COPYING---D2:DIRP4}RINT.BAS# 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 D4uVWgKFFRMPICNUMNQTESTEXTFLAINLINROCOCHAKECOLTALUMTADSTARV} W} !2X}************************3* LOANSHARK *4* BY *5* MARTY SCHMIDT *6**Y}**********************P7@@S:7@@S:ZM6-@4AY% B7AZ}ACAYM A_FORMAT NUMBERSd 6-6.n-@B:,x%7<,4.6-B:,&% A@[} ' "6.=:P:%?P,,' A6-P:@#%?P,6-P:$%?P,' 6.=:,-@B:\},7<,4.A 67&%@<&%B:,,.$,INPUT ROUTINE6"-@B:,"6-@:7<,,@]}"@FAPJ+"@'+(@@+O0"@ AS# AP&'0 A@T!! @H^})!@WAp^ h 6-A:,$r% 6-A:,%6-A:7%@:, )@%%7@<@,4 AQ3@ "63(s}@ APP3 BBA$PE-@E(@' PRESS ANY KEY TO CONTINUE. Ugt}BBA<("} THERE IS NO PRINTER ON LINE!!g(& IF YOU PROCEED WITHOUT A PRINTER THEZ..(& DATA NOW ON THE SCu}REEN WILL BE LOST.d5@@K:*)@5@n AQ APE-@E(@' v} PRESS ANY KEY TO CONTINUE. R&(} TURN YOUR PRINTER ONR(' IF YOU WANT THE ABOVE DATA PRINTED!!w}BBA AR p-@@z @2,/@9 $0uINITIALIZE SCREEN5u1 #Bx}p-@"-Ad%1 :u6-A6-%@$>u6-?:A,NuAA(XuA@y}lu%%6-F:A`,%AV$F:Aa,vu-%@%@(uA0u u%@AuBBz}Au >:A%,uAF:,uA F:,u$u''72,138,72,174,156,6,189,176,6,141u((10,212,141,24{},208,189,200,6,141,23u))208,238,156,6,104,170,104,64,14,104u&&169,7,160,168,162,6,32,92,228,96v''169,1,141,156,6,76,|}98,228,162,170 v--156,170,156,170,156,170,156,170,156,170v--156,170,156,170,156,170,156,162,204,204 v204,204,14,0,0,}}0,0,0,0,0*v0,0,0,0,0,0,0,0,0,04v0,14,0,0,0,0,0,0,0,0D:LOANSHRK.BAS6,170,156,162,204,204 v204,204,14,0,0,Sz33SETCHBASBYTCODTEMDINSDLBLANKTRKDATANSTYPEGRASHODDSFILEATEMPBLDAYHESWTRACESORTNUY }CLASFGHTSTARFWINTWOWONCPTLNGLBTOPCLOOTBPFLADATWAI }  }@@@@ !"#$% }&'()*+,-./01234 }567dHORSEPLAYfBY DAVE ELWOODhANTIC MAGAZINEnΠŠҠ٢q, +( }Wait....,@t;@2%A$,w$$6-+F:A,&@,$AVzԤנҠԛ}&-@ }@2"67,.& kk67@3,.Xrrrrrrr~~~rrrr~~~rrrr~~~ppp~~~~pppp~~~rrrrppppppp~~~rrrrrrrrrrr@FON }GO kk67A!,.Xbr r~~~rrrrrrr~~~r~~~tvv~~~~||pp~~~r~~~pppkk67 }A ,.Xpppp~~~r~~~rrrrr~~ F@C\PPPP@b: PPPP\C@Fkk67A,.X }@ :bONGOF@ rb@/[[67A,.H|? }??p@@8̠נҠԛ3-@AV/%&@@:7<,, }3 ŠΠɠś%-AdA"!% ??72,169,224,141,9,212,169,146,141,0,2,169,6,141,1,2,10 }4,64??72,169,152,141,9,212,169,128,141,0,2,169,6,141,1,2,104,64ŠΠנ٠ԛ$6-F:AY,$AY }'A`'Aa@6-A6-@" % 1%@F:@ },1%@F:@,-@@ " % 1%@!F:A`,1%@"F:Aa,77 }112,112,112,71,7,7,7,7,135,6,6,6,6,6,134,7,7,7,65(>:A%, AVF:A,&@9AA('A }@9BBAEAA'A @H9AADEAY4-@ 4(@ } -.CCCCCCCCC/014-@4(@ => ?@A4-@ @4(@ DE }FGA4-@4(@ IJBBBBBBBBBKLA4-@ @4(@ H2222222222223(-@@ }((by dave elwood++(# *PREDICTING ODDS* -@@@"-@"(@ }mnopq)-%@ @)(@rstu!-@!(@ vwx -AAU)-@@P }- 4F:B2y,"@*@@4 Ac-AAD)-@@P-  AH** }* Main Program Here **C#@@E:C@@K: 6;A ,6. '67A },.667@,. ]];@,;@,;@,;@,;@,;@,;@,;@ ,hh;A },;@,;@,;@ ,9@,9@,9@,;@,9@, +%%6-F:A`,%F: }Aa,$AV ***DLI for Color change***-A6AF"  ",,72,169,50,141,10,212,141,24,208, }104,64%%@A0(9A'A@9BBA+'A@H'A@R }.***Modify DL for Title***1?%@@q+%@?%@@4"(>:A%,"-@ }7) A)Trap for nonnumeric input:(="A)@!!(  RACE C( T }he Field:(F ApI#-@@#( ΠL0(0(% HDCP A NEW RACE PRINT THIS RACEO,,($ GET A S }AVED RACE SAVE THIS RACER++(# SCRATCH A HORSE DELETE A FILEU""( SEE DISK FILES QUITX+(( C }HOOSE==>+)@[-@(^6-A:>:,,aGGAbA(AvAUAAAg }Ad Ag***Handycap a new Race***j1 +AA1AABm'AA' }AABp,-@@,(FOLLOW EACH ANSWERs%-@@%( WITH v-@A y },((WHAT TRACK ------- ,@|)(DATE ------------- )@ A;-@@.(WHI }CH RACE ------- ;@ A;-@@ .(HOW MANY HORSES -- ;@!@A }/(/($WHAT WAS THE APPROX DATE 30 DAYS AGO,( ===>)@,(-@@/"(EVERY }THING ABOVE OK?(Y/N)/)@"@:Y, A"@:N, Ab A B(>:A%, }(A) Is this race a....*(*( laiming race takes race,(,(! llowance race andicap race?-@ }@2(Type in the letter ===>?)@$"@:C,6-A3$ AI$"@:A,6-AH$ AI$ }"@:S,6-A$ AI$"@:H,6-A$ AI A1A-@@4(B) One Mile }or more (Y/N)A)@"@:Y,)"@:N,Ad ARE-@@8(C) Is this a grass race (Y/N })E)@"@:Y,)"@:N,Ay Ad(>:A%,''***store names in pseudo array***&#(D) }Type in the horses names&() 6. 67@,.)67@,.2-@%(NO.HORSE:2@) 6 }-B:, @)67%@,.0#6-+&@,$@%@,67,.0 @-@@!3(Ǡˠ }ˠٯΩ@)@"@:Y,A'"@:N,Ay  A *** Initialize Array ***$-@ } 68,-@$ -@(>:A%,##6-+&@,$@%@##( Lets Figure 7<%@ , }7 AB(>:A%,7( Figuring 7<%@ ,!I-@@<(2) Has He raced since  (Y/N)I)@ }$"@:Y,A`'$"@:N,6-$ Ai* AB09-@@9(Enter Finish position la }st race3&((1,2,3,etc) ===>&@90-@@0(3) In the last 6 races<--@@-(at a M }AJOR track...?--@@)(How many WINS -B--@@)(How many 2NDS -E--@@ }-(at a MINOR track...H--@@)(How many WINS -K@-@@!3(ǠˠˠٯΩ@)@ }N"@:Y,AQ"@:N,ABT AW#"@#68,-8,%@Z#"@#68,-8 },%@]#"@#68,-8,%@`#"@#68,-8,%c#"@#68,-8,&@f#"@ }#68,-8,&@i#!@#68,-8,&@l6-$@%%o#@#68,-8,%@r#"@ }#68,-8,%@u#"@#68,-8,%@x#"@#68,-8,%@{#"@#68,-8,%@ }~#"@#68,-8,&@#"#68,-8,&@ AE-(>:A%,-( Figuring 7<% }@ ,@-@@@(&4)Find and add the two best first call?-@@?(%positions AT THIS DISTANCE }OR SHORTER'( ('(Example: 4 4 1 PINCAY""( + 2 1 1 SHOEMKR(  4'( 7 } Enter Here ===>4@ 68,-3(&(5)Enter Todays Weight ===>3@ 68,- "@:Y,  }A  Mile?!"@:Y, A G!Grass? 2-@@!2(Stand by................ B''** }* Transfer ES to SORT Array ***!-@68,-8,!  A t""*** Adjust for ES rating ***A-@ }#8,8@,768,-8,%@A A(68,-8,&@ ''*** Transfer WT to SORT Array ***! }-@68,-8,!  A tSort SORT(HO)""*** Adjust for WT rating ***C-@%8,8&@ },968,-8,%@C AI68,-8,&@ ***Minumum value=1***3-@ 8,/6 }8,-@3 $##***Figure and Display ODDS***6--@6-%8,  -6-?6 }-$?y-Less 21% Take-@##6-+&@,$@%@6-6-8,'-"6. }OUT# A-Scratch>>***If odds are higher then 9-2(NUM) then figure exact*** /  %6.=:P:@'&@,, }/ A#''***If lower then 9-2 use Table***&-@@") ! A, /@"@6(@ }7<%@ , ------ @ A$2G!@#-@!&@=(7<%@ , -- G A$5(7<% }@ , -- 85 #A'#A0 &@26-5$;\\.85,1-5,.71,2-5,.67,1-2,.62,3-5,.55,4-5,.5,EVEN,. }45,6-5,.41,7-5,.4,3-2,.38,8-5,.35,9-5>...33,2,.28,5-2,.25,3,.22,7-2,.2,4,.18,9-2@A>-@@>($1)Has He e }ver finished 1st or 2nd inDB-@@5(this class or higher (Y/N)B)@G%"@:Y,"68,-8,%@ }%$J%"@:N,"68,-8,&@%$M A3P<-@@<("1)Has He ever raced in a Stakes orS>-@ }@1( Handicap race? (Y/N)>)@V"@:Y,AcY"@:N,Au\ AH_N-@@ }A(& Has He run in a claimer since? (Y/N)N)@b%"@:Y,"68,-8,&@%$e%"@:N,"68,-8,% }@%$h Ack8-@@8( Has He run only Allowance ornJ-@@ =(" Non Claiming Maide }n Races (Y/N)?J)@q"@:Y,$t%"@:N,"68,-8,&@%$w Auz<-@@<("1)Ha }s He ever raced in a Stakes or}<-@@/(Handicap race? (Y/N)<)@"@:Y,A %"@:N },"68,-8,&@%$ A9-@@,(Did He Win? (Y/N)9)@%"@:Y,"68,-8,%@ }%$"@:N,$ A =-@@=(#6)Was his last race a Mile or more?--@@ ((Y }/N)-)@%"@:Y,"68,-8,%@%$"@:N,A 2 A I-@@<(!Any Race a }t a Mile or more? (Y/N)I)@%"@:Y,"68,-8,%@%$"@:N,$ A 2:-@@ }:( 7)Was his last race on the Turf?--@@ ((Y/N)-)@%"@:Y,"68,-8,%@%$ }"@:N,A b A GF-@@ 9(Any Race at on the Turf? (Y/N)F)@%"@:Y,"68,-8, }%@%$"@:N,$ A b*** Sort Routine ***6-&@6-#6-P:'@, "#$ }-@&6- 6-%8,8,A = 6-8,68,-8,!68,-)6-&=@A  }  A Save a race to Disk A#?"!-@/( No Field!<(>:AS,?$(- }@(( Saving Race 0 6.D1:!67@,.RACE067@,. @@DD(@ }>:AU,>:AU,>:AU,>:AU,%-@!(@8,% @$W@/( }Disk full or Write Protected<(>:AS,P-@APT W$Get a race from Disk4-@0(Whi }ch Race Number ==>40 6.D1:!67@,.RACE067@,.  AI  @@@ }+-@@'68,-+ @$$$( No Race NO.  on Disk2(>:AS },$-@A( 2 AF*** Read Disk Files ***0 +0@@D:*.*"@ }(%Q7@<@,4FREE*@-(A( Hit N)@Q$( AX**** Delete a File } ***+A-@=("Which Race do you wish to delete? A.0 6.D1:!67@,.RACE067@,.1+(@ }3@+$4Scratches7?"!-@/( No Field!<(>:AS,?$:6- }@2(Type in the Horses name6= 6-B:,@-@C##6-+&@,$@%@FH47<&@ }%,667<%@ ,. SCRATCHED E68,-H$IQ (>:AS,6(None by that Name (Spelling?)J-@AP }N Q$K*** Print a Race ***L?"!-@/( No Field!<(>:AS,?$Oj#@@ }P:5-@]("Position the Paper Then Hit j)@R:6-@/ @  RACE: }:(@U Ap$X& +@#@& D:HORSPLAY-@/ @  RACE: U>$$FF1FFFCLCSSLF1LABCFDF1F2F1FF1F2FF1FUF1F1F1MYFDATDAYFIFDFJF12F12B}KMSCSRDAF2F1DE@@@@AR@& @ @  & }& &@@'@@ @@@@"@@@@@}@t } @ !@"@#@$@%@(&A'@()@*@+@(},BB-A&.A%/B~~0@12@3@!4@A56 APPOINTMENT CALENDARBY ALF}RED FILSKOV%%(c) 1985, ANTIC PUBLISHING INC. ""ԠҠ""٠ĠȮ֠ A}(DISPLAY CALENDAR2- A!00!('-6-<K 6- A!0@#+-@#/(3(7(}?-C(G K(FK 6- A!0@(+-@(/(3(7(?-C(G K(P8 6- A!0-}#(+-/(3 8(Z7 6- A!0-#('(+(/(3(7(d! 6- A!0-(!(n) -}!67<,.>:@#,% )(x- 67,.67,.-%-)(- 7 -67<,.>:, )-/-3}(7 / -!67<,.>:@$,% +-/(?67<,.>:@$,#67,.>:,)-2(7<,;(7<,?(< 6.}67B:,%,. (67B:,%,.8-P:&B:,',<(. #A-"!-*(7<,. >>MONDAY,TUESDAY,WEDNESD}AY,THURSDAY,FRIDAY,SATURDAY,SUNDAY! -"-(! ZZ29,1,MENU,24,3,1. View date,24,4,2. Edit date,24,5,3}. Print date,24,6,4. Print monthDD24,7,5. Main menu,30,12,MESSAGE,2,18,DATE,11,15,><DISPLAY DATESF 6}-#A@-"# :"@(*'"P:',F6-@)))31,28,31,30,31,30,31,31,30,31,30,31;6-+&A,$}%%6-A:7<,,/6-$&56-;6- -'  6. 67,.=:,' A 6.=:,">7$&<$,0}-:67<,.>:@:7<,,%A(,> , - (6 6-%!6-6-%@ 6-% JGET MENU OPTIONT 6}- A^, )6-&@H, )!%APh77AAAA`A ArVIEW DAY}|, 6-% A!-@6',(4 )4+!@W) @H,*@2A@ (>:,)(>:,7}7+!@W) @H,*@2*AUA@/6-&@H6-&@G) )!/6-  )!6-}6-$%& A` 6- )!A@ "6- A 6-%& !6-& A2 #A}-" )-@ 2(7<,-&B:=:,,( > -6-$&%$!-%,(7<%,0 >"A@}EDIT APPOINTMENTS 6-6-& -(0 ):"@'AD%"@(*!6-&% }APN%"@)* 6-%% APX1+"@0)"A&,*!'6-&1 APb+"@1* @&!6-%}+ APl+"AU* 6-%!6-+ APv77 @2)+!A$* A`,)!ARA` 6-6-$}&%+&,$%&67<,.>:,(>:,'"@&(>:@0,' AP 6-% AP%-@$%( 6.}  6- A APPRINT DATE(AP A@6- A7 6.-67,. }67,.,67<,.+767,.+, #A-" #6.,67,.567&P:B:,'%?P,,.,67B:,%,.567},.* 6.67B:,%,. *67B:,%,.=:,Q67B:,%,., %67B:,%,.=:,+6.F67&P:B:,'%?P,,.Q67<,.} 67B:,%,.67,..3"3| APPOINTMENTS FOR |&3*3.3 8 -6-$&%$43| 7<%@, |}8 *Q 6.67,.67,.#6._.67,. 767,.E67<,.| Q67,. |4 -33 3>3 3 3} A@H/ 6- A!-A% / A@RPRINT MONTH\ 6- A Af9P(}(3(>:@',A>:,96-p# 6.67<,.#67@3,.z0 6-B:,!6-&P:'%?P,067<%&,.(}>:,(F A-@g*67<,.+. ?67@x,.+F(7 6.-@g$67<,.( 76}7@x,.[ #A-""6-B:,A6-$@&P:'%?P,&P67<%&,.T [(W A-@}s*67<,.+;67%<%,.+? P67@x,.+W(d 6.-A(67,. <67%,.>:@', }P67%,.-1| |d67%,.>:@',67%,.-0 . -+"*,)$68,-. AA 6-%68, }-6-$&'6.=:,- 56. A67,.=:,67<%,.- -(>:,>:@',Q>:A7,? -6. } 67A,.0-A4;67<,.?  -(8,A@$$67$&<$,.78,$&%$&, ( } 4(>:,>:@',QP48,*8, A @$? A-@g*67<,.+. ?67@x,.+.2#( }>:@',A>:,>:,(2 A@85 6.-67@,. %67,.267<,.+5$B6- AL}-A  A@V EXIT`(Aj 6- At )6.>:,~4Y)4yA4N})4nA@ A@SAVE MONTH A@6- A+ 6.D:67,.67,.+67,..AC}2-@16-$&)(7<%,- 2(-@$(7<,6-( A@-F:A,"Ab#}6-- A` 6-) A-A ) A@ MESSAGE$ --@) (7<,$   6-6}-#A`A@"4X$(-@)(2 6-% A<"0XA@F 6-}% APChoose a,menu,option.,XZ**What date,do you,want to,view? >__,Xd**What date,do you,want to,edit? >__,}Xn;;Edit the,appoint-,ments for,the date,and press,ESC.,XxFinished,editing.,X Printing,current,date...,XPr}inting,month...,XError in,printing!,XSaving,month...,XDisk not,ready,error!,XDisk full,error!,X++}Exit,without,saving,month?,(Y/N) >_,X START #A;;"OO}0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,82,125,126,752*+@@9!0'*(>>;}A9,;,;A,;,;,;,;,;,9,66;@8,;@8,;@8,;A4,;,W 6. 67,}. 67,..6.>:@0,@67,.>:@1,O6.>:A%,W6.|K"""READ FIRST DAY OF EACH MONTH,> #}A6.(-@@,":67B:,%,.> 6255136147257,366247251361@477351362472,512573514624J7}33614625735,144725736146T255136147257,367351362472^511462473513,622573514624h733614625735,145136147257r36}6247251361,477351362472|511462473513MAIN MENU- A!(%0-0 #@"("}(6-@& A!0; - (((-!(% )(-(1(;#A0( -"-$%$(}. ( CCLoad/Create a month,Delete a month,Disk directory,End programA -( MAIN MENU-6(Choose an opti}on =><A(* )6-&@H* )!AP+(+AAPA @A!LOAD/CREATE A MON }TH6. load/create A. A.(Loading month...8-@1%67$&,.) .!}8 @P F:A,ApA!5#(Creating new month...1-AP5 &/ 6. 67A9,. %"}67,./ @P0DELETE MONTH:6.delete AD: A!( Erasing...0@3: AN!!#}LOAD/CREATE, DELETE ROUTINEX* 6-@8 A!0#(&(*(b..(&| 1-JANUARY 5-MAY 9-SEPTEMBER |l..(&| $}2-FEBRUARY 6-JUNE 10-OCTOBER |v..(&| 3-MARCH 7-JULY 11-NOVEMBER |..(&| 4-APRIL 8-AUGUST 12-DECEMBER%} |(  A >( (!(What # month to %> )!)P:,A 1 #A -" #-1&}(MONTH: / -/(What year (85-99)7:)?I*} A C 6-%'"P:',(0( Press a key>7):(=(C6-* A `4 END>  +HCONSTR+}UCT STRINGSR: 6.>:,67,.  67,..67<,.>:,:67,.>:,\3 6. 67,. 67,.*67<,.367,.f# ,}6.67<,.>:,#67,.>:,p, 6.67<,.>:@&,)67,.>:,,$z ERRORSP  (M(ERROR #F:A, -}AT LINE F:A,%F:A,$AVP&N ((2(DISK ERROR--OPERATION ABORTED!@-AD N A.}D1:AC.F:A,%F:A,$AVP&N ((2(DISK ERROR--OPERATION ABORTED!@-AD N A UVb++AHISNNHIMRCJITV400SECSCCRIC1C2BBAFFIFQJINA%0} %1}@@ !"%2}#$%&'()*A +'0@@A0@@%3} ';A`,'6-I:,$?;$?,;$?,;@ ,d##@@%4}K:i<<9@,9@,;A,;A,;A,n&& }(I) INITIALIZE A NEW DATA SETx// &(L) LOAD A PREV%5}IOUSLY SAVED DATA BASE?)@ >:,">:,4L A" A">:,4I A" A A%6}O A@*6-+%@,$O >:A%,(S) SAVE CURRENT DATA (P) PRINT DATA  (A) ADD DATA%7} (C) CHANGE A RECORD (D) DELETE A RECORD (T) SORT (F) FILE NAMES  (N) NEW FILES"  (Q) Q%8}UIT ?')) CHARACTERS FREE:P:$?,&$,)@ >:,@">:,4S A " AJ">:,4P A0%9}" AT">:,4A A@" A^">:,4C AP" Ah:>:,4D6-@&6-@0 A%:}: Ar">:,4T Ap" A|">:,4F A" A>:,4Q)>:,4NA A%;} 6-"@A@R" CURRENT FILE IS NOT SAVED.> CANCEL COMMAND? (Y/N) K)@R >:,>:%<},4YA>:,0NA>:,4N%&XA +'0@@A0@@%=}b&&@@D:*.*g APl@v  A %@)@% A%>}$  ENTER INPUT FILESPEC$ A= 6.D: 67B:,%@,.=@@@%?}@@#@#;$%%@,V6-@t6-@y@zB:,"%@}A~ 67,.6-%AP AE"6@A6-@@ 67,.*%A}B:,"AP 6-%AP* AU@6-@$8 FILE NOT FOUND#)@.@8 A%B}!  HOW MANY HEADINGS! @A)% ENTER MAXIMUM HEADING LENGTH) @A2%C}6-&@6-6@6-A 6.6."-,%!  HEADING #%@ :%-; B:,!%D}1 MAXIMUM LENGTH IS  . REENTER; A/, B:, "67B:,%@,. , A167B:,%@,.6 @%E}6-$% ! ENTER OUTPUT FILESPEC%* A"4= 6.D: 67B:,%@,.=@@%F}H @I @J @K @R6-@W3B:,%AI) @7:,4%K}S B$6-@. A0 >:,0DA0 6-@ ) & (S) SCREEN OR (P) PRINTER ?)  )@%L} $>:,4P6-@$ A0P >:,0SA0 d6-@ = &AFTER EACH RECORD WILL RETURN TOd %M}"THE MENU, ANY OTHER KEY CONTINUES. ,  PRESS ANY KEY")@, A @ AR $ P%N}RINT ONE RECORD VERS.4 A7A8 ()@"@'(6-@ $((PRINT ONE RECORD TO PRINTER %O}VERS.4A7A88$t8 @- @RECORD %@8 @~-@@ @7& }AA@A@U@_C)0UA@@@ @p B BQ} @ _C)0UFe(6&X"@T mmAN IRA PLANNER FROM JULY 1982 COMPUTE TO PLAN FOR RETIREMENT. MODIFIED & DR}ONATED BY FRED WARD;@,(&+ (&(AT WHAT AGE DO YOU PLAN2#(TO OPEN AN IRA ACCOUNT#<1(-(!AT WHAS}T AGE DO YOU PLAN TO RETIRE1F 6-&P"("(HOW MUCH DO YOU PLAN TOZ&(DEPOSIT EACH YEAR $ &6-d$($(T}WHAT IS YOUR TAX BRACKET?n($((ENTER PERCENT AS A DECIMAL)(x,(,(!WHAT IS AVERAGE INTEREST RATE YOU..(&EXPECT U}FOR YOUR ACCOUNT OVER THE YEARS+'((ENTER PERCENTAGE AS A DECIMAL)+)()(WHAT IS AVERAGE INFLATION RATE++(#YOV}U EXPECT BETWEEN OPENING ACCOUNT 0,($AND RETIREMENT. (ENTER AS A DECIMAL)0 6-$6(6(YOU WILL SAVE $P:,W} ON TAXES THIS YEAR. 6-$0(0(%THE TOTAL AMOUNT DEPOSITED - IN YOUR @1(IRA ACCOUNT OVER THE  YEARS- WILX}L BE@($P:,.-@%%6-$+@%'Ae,#Ae 6-% ".(.(#WHEN YOU RETIRE, THE AMY}OUNT IN YOUR,""(ACCOUNT WILL BE $P:,.66-+@%,#@ 6-'J*(*(...WHICH IS WORTH $P:, IN TZ}( 1982 DOLLARS.^0(0(%WOULD YOU LIKE TO TRY THIS AGAIN WITHh..(&DIFFERENT INTEREST AND INFLATION RATESr((Y OR N[})| 4N%D:MENU 6- A  D:IRAITHh..(&DIFFERENT INTEREST AND INFLATION RATESr((Y OR N=e? %ͳBB! % P* v% w%u % D %LH&]}^}$%-fffffff>`<|0`̌8l8pv00```00 0f< xa}|||||||~|l8l8lfff< 0`@`0 b}000006c|™|™|~x|™|as22sa>2222r|晒xLLLLc}NB|晁晉|™||™v|~Þ~fdddd||晙d8晙™晙dd|2x`x`~d}<~~< Xpx ~ <~~<|~~||~~||>````~~8<e}8<||~~~|0000~l8|ll8l~ 8`f}8pp80$1$3$4$ s?s?1$4$ॄ``eg}x$w$e{$z$褄 x${$`(mlDeXYio?p?r?{?)^kD)kDȄq}B'DOS SYSB*+DUP SYSB)ULOANSHRKBASBg~HORSPLAYBASBJCALENDARBASB PIRAPLAN BASBC\SPDSCRPTOBJBFSPDCALC OBJBBIORHYTHBASBX/DATABASEBASBSAMCROMAILBASB'MCROMAILDOCBCALENDARDOC{?Čein?kD@L$i(L$y?z?`f?o?u?g?p?v?8i?g?Ƌ拑r}` /` /` @jD %LH&} /r?f?h?j?l??@ClD(kDDig?18m?8k?8i?s}?Km?i?k?m?` -f?g? $ &= Y%q?L' &= Y%q?`'XRUT`H)h)` i@LE&8 `jDt}CIjDIjD $ /(ЭjD +LH&)کLQ&ЭCq?H &hɛL&,C0ɜu}f) `{\\X^T_PHC^r? |,h ,&) C $8u?v?iu?iv? 'LH&S'S'LH&ʊ &Hv}GHx'Hw'H`#\^~ }|_   ((("))))*1+{,[+,-0-Q-2.85\41|67f)7L+ 7O*;m=S,K,/fhdgsaLJ:K\^OPUI}_|VCBXZ$#&%"![ ]NM?REYTWQ()'@}FHDGSA {   ` } 1pzD}>EHIJB V0\gDgDdCeCgDgD 10?+K / 103iD 10) /iDiD. /LV1  1ƌL-1p }B VpC`H /h / 10 /L1pHIBLV 5 Y/ 5R} / 1 3CCCgDgD 3 o%2a)_2}L2ʊ *2H)2H`RLUF1234 F2S2p222322T3n3n3n3n33v3 3CLa2 3CgD CCCL1 3C8La2} 3CigDުLa2z>C) 87 C 콺C.ʎCC`pBCHIDCELV 2! 2L3 3L1 2#L}2 2$L2 3O? Y%@ .x?+ 2C,CȽ?Cx?CC 3 L2 3L2 3Z? Y% , 3 2L2{>L1pC}J 2 20% % ~50} / - &LH&T /L/? 1 32> Y%? / /l> Y% o% 3L2 I` 3? Y%}{>L/CL 4Cf?g?L&4C8v?勪,C0ɛ^LR4 ,&LR4^LR4 87` &> Y% 40@ 4pf?}Dg?E8u?f?Hv?g?I B V0 3 10 L5H 3h!H} /2> Y%h / 4 -q?` &:> Y%L4C BLVpCC}H@ .hx? &hhL- 4CD?Ex?HICJBLV8f?g?ą &T> Y% 4L4 }% ~5L4L5CDE8h?冝Hi?凝IB V`CHmf?u?Img?v?u?eu?v?ev? 4u?v?` 4}L4} /J> Y%L4@ԭ))`????8* &?.??.??.??.? ??L"6? ?8???}???LT6?`8?j???k?? ? &> Y%q?`m?m?8u?倅v?偅ei? &> Y%q?` M$?}mu?u??mv?v?j?k? $L'ȱȊ`)?! ;I@L(H)h)` @@LO7i `KB:P}?HH8????1pHI B? V( 4LH&hh?` &>LY%L8 &> Y% 5 4L8 5 7?}???CR7? ??]7C@f?g?????L9^)@???t??t?ȱt?8e}i? M9? u98.?t?s?@ < 9?? 88u?v?<:? ?? 8?E /l> Y% o% 1} -} / &LH&L88??0 9?s?B u9 < 9 9 9???8???? &Š> Y% o% 7?s?}A u9 Y% .?L &??x?L &?}?S? ,&ъ 拥v?6?eiu?Ōv?卐8??? '` &> Y%q?`Э# &> Y%} .@?@x?L &8??e??ee8u?傅v?僅 $8u??u?v?v?@)?? ,@ ,&}@m@iL's?0 87 b7?  b7_ b7L<`?)? 87c8?s?J8? b7?LError #}BREAK Key AbortNo ErrorsLoad (Device:Filename)> Press D1:*.*Memory FullNo text in bufferPrint (Device:Filename)>}Printing...Insert next sheet, press Find:Not foundChange to: -elete ock nlock ename ormat }-oad Drive [ ]: Rename to:Format diskfoundChange to: -elete ock nlock ename ormat 8 AYɼ?^ Y! !Dl?# Y! # #BiAi)AA1>A6B6B l# ! ! ! D # & !}H !h ݭ  {[aL$ʊ HpH H H`}   `  S#C*()%)u,-12T6Z)A)q))#4`4}3F!4!564:-k% @ # & #?H Y!Lq HH };hh` m:m4>4>` m:m3>3>`̄ˎ2>TU !} :`2A(A`X(`Ap ? Y!8 N7L'L' "h^ivih h !Ah)hA"ݚ"}7 } "AAAwh^ʽhiAAhL!ʊ "H"H`h^A`6> L!6>h^L!6}>L!L4"وh^јih^hL!~3"x"h"h"K"X"}"H)h)` i@L"8 `H)h)` @@L"i `H}H3>EO%N ԍЍ4>EO%NЮ2>7> hh@@ԩ"01‘`@ԭ3>4>`? Y! !)_Y} l#L! # ~!,> # &>`A˭A̠̦AAA`` #L2$XiȅYiAii}آ $iiإi(i $`iȥ)JJJJiȥ)i`XiYiȑȑȮAAAJiʩ} > Ƚ> ȦAJʩAmAA轴AmA%ʎA(`(` !?& A%%} % >A>A N7 7 3Lq >> >L<2AAmAA%A` m:@ Y! !)_LCRL& }>)A AAL% m:@ Y! (} % 8=ok>) A AA2>AA>AA) >}iiş8 N7L&8 N7 A AL!AAAAAiAAAAAAi8AG>_>8 N7}L&AlhA8A00A) &J AAAAA8AL&AAAAA AAA A 'L& 'A}ALa& AAAAL#&AAmAA膆3'AmA(L#&AmA A`(8AAG>_>}AA懤AAhx8 N7/A AAȱhA^hA>g`g^h` A}JJJJAⱂ A莀AA ȮAA ? L`(ȱ*Ȫʽ }ʝA `~A` m:L( @ Y! ( % 8=51%-A2> ~!L(}A %AAA 2$L!A :~ : !ɛ3~$) A0:U&ڙ : :L( :A}`d懭AiŇA #`ƇAćγA #`2#憬AĆAA}A%䆐 2$`ƆAĆβA 2$`@ Y! }(>> >N8A0ICA >98@042.mA3&A > < 8=e S RAL"*L!A %AA AAL<*}A #L!AņAŇAA #`AA` > B >B >B >(L9* B*L9B*B*膗 HHL}8h >ʊ *H*H` AEILSSRSABXNOGQNUVSPTGNRDMEw==?==~==U=,b, +BB >:? > +BB >), >BBL9B}BL9ȥAA`L9 N7X)NȱAȱA>H>H %h>h>B`BB`8`A}A N7L9 >ABA >A[8@mA3ǍA > < 8=еeA`4B5B * O+>HHHHHH4B5}B O+hAhhhhhh =AH(­AA N7` , =5B4B < =` B ?#} :BB[A Y! (L-3B ~:A}O Y!BB : : : :BABA :AAʩ 8 N7[A#A8A0A)  'JLH-} 'AAϮA* "AA1 :BL,B懩 :B0L, : : }:AA3BE˩A n! ! # # & !L#AA m:AABL.L!AA m:AAB L.ABAB X.}ABBB @ˢ Y! m0BBL!A* Y!La.A Y! & !.ݞ.La.ʊ .H`H.H.H`hhBB` !Lq }C*Z)A))q)..B3[BeTBB8 N7EA AAȢAA 9/A '/BB N7 7`B}B N7 5 N7ȑL/A`A`B8B BB8B B "hAhh>>˩ > b0 >LC0@L}.0CB >Ac[_8@e3Um BAB8i@ b0 b0 >3 < 8=)%e!m B < <B b0 >L/}h "L\0 b0 > b0 > b0 >L/Aˢ "򩀍`x`B8AmA BB8BmA BBAL01}AAJABBBABAB .BBBBBBBBABABL1BB BBBBAB .BABB}BBBBBB BBL1AAJABBBAB BB .BBBBBBBBABABL1BB BB}BB BB .BABBBBBBBB BBL3 :,BhhL2`@+ Y! (BL! ?#A ~: : :0~} : 1 1 1 12A 1AA 1 1 1ȱ 1iişѩ 1 1慥ʼn}BH : : #hB H; & #` ;,BhhLK3`@C Y! (BL! ?#A ~: : :0f : 2~ 2w # 2 2}2 2A 2 2 2 2L3 2慥ʼnBH : :,B l# #hB H; &L# : : #A Y}! # &`Bɀ`>`Aw Y!AAAA5)&8 N7AAȱAA 7i}懥eв憥3ЦAA8 N7L! 5 N7ȑ 3`@ Y! m:>I>>N :`F : :`6> !6>N' }L4A%3 % >A N7 >AL4)A 7 3`Aʽ%v轀A轀8轀8i bOA }I%A8A%A`Ɨ%hhȽh}A` !UTA8刨A 5B` <  Y! !)_Yl L!A}A N7AAAAAAL9HAAAAAAAAhA0 >@0e3 > < 8=Ќe8 }N7ALm6 󱂝A>H>H %h>h>AA N7AAAAAA`ʆdjfe}ʊei&mA(`()A)AȱA8` 5A2AAȥA AȭAȢA}L=8 8AA8AmAAAAȽAȥA AȭAȢ~AmAɺmAi`}ȑ@ Y!AALq A "()AL9H>> >R-N+J.FP%(A B@L9 6L}9HL8 m*L9 >IL99 < >L9@e < >w+7-2*-/(^#)L9hH 9L59>>L9L*hHw>w>} 9hHw>w>HHHHHHHL8jL=hH 9L9h <B "A "L4hhhhhhhhh}契 HH>H~>H`AA@L9} : ?#h: ~: : : :0 : ;,B0 :L7: : :˩A n!} ! # & ! #`D:*.*Э` `B`BBB`B x:DEBHIBJBKB VB`B`B`BB}BB` x: BL:x;y;z;B x:HI Bx; :y;z;x;`y;z;B x:HIB :y;z; `{; :{;L:B0 @}[ Y!`ɀ @w Y!`@k Y! 5`: +`|; ;|;)?<|;)@`I@`|;;,P a}{)ɀ`HdҢҠh`lj;k+*opui-=vcbxz436521, .nm/reytwq907~8<>fhdgsaLJ:K\^OPUI_|VCBXZ$#}&%"![ ]NM?REYTWQ()'@}FHDGSA {   ` } `ԅ ` ؠ0}B)BșBB`>> = $=>e>>i>`B `B "`B "` ٤ԥ`)8}>`ԍ>)ԢҠ= = @=> `)`H = = > =``Hԕh`>>:  808`:`(2Vr.D}28v @h0X Hp8`99=====.4&,!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5}!6!7!8!9!:"!"""#"$"%"&"'"(")"*"+","-"."/"0"1"2"3"4"5"6"7"8EXIT to DOS: Are you sure? (Y/N):SpeedCalc}SpeedCalc By K. Martin} & C. BrannonSYSTEM Trapped.}You must have 48K to run SpeedCalc.Remove any cartridges, or on XL/XEhold down } as you re-boot.Press to re-boot:CLEAR SHEET: Are you sure? (Y/N): error Width:Goto:Recalculation is OSave (Dev}ice:Filename)>Load (Device:Filename)>OK. No errors.I/O Error # Break key abort!Format: eft, enter, or ight Justify?}Number of decimal places?Processing data transferNot enough room to enter dataMove cursor to top left of new positionMove} cursor to bottom right of blockPrinting...Print to (Device:Filename)>Recalculating...Not a SpeedCalc file.Press } o bottom right of blockPrinting...Print to (Device:Filename)>Recalculating...Not a SpeedCalc file.Press  23+f|UXCLRAX1X2WJJJXXX3X@!} !} BIORHYTHM$$COPYRIGHT 1984 DILITHIUM PRESS@!}ss;@@,9@,;@@,;@@,;@@,;@@,;@@,;@@,;@@,;@@,!}((-@@"$68,-( 2))31,28,31,30,31,30,31,31,30,31,30,31<36-6-?'6-@36-!}@eFC-@@)+67<,.>:@,?67<,.>:@2,C PC#67@<@,.>:@#,C67@<@!},.>:A$,Z+ +%  BIORHYTHM( + d  ENTER BIRTHDATEn A@6-x& &  ENTER START !}DATE FOR CHART! A@6-!AP?? 7 CHART DATE CAN'T BE EARLIER THAN BIRTHDATE - TRY AGAIN A!}-AR@)-@A-  A0M 6-&6-@#! AP-6-@(7 APC6-@3M!} APW A6-%@-AR@1 E-@%@I W6-%@ @ApC!}AdAU C % PRESS'E' TO END OR SPACE TO CONTINUE&6-F:Ad,&"AUAH"@B!Ad!}AU3ARE@@H6- A`468@,-@( '  YEAR +46-P:,!}#  A@# A@00+'A,&+P:'A,,Ap00+'A,&+P:'A,,A!}=(+'@,&+P:'@,,"=68@,-@)1@6-%A1   ASSUMEDQ  MON!}TH (1 TO 12) '6-P:,= @)!@G A@Q A"I  DAY (1 TO 8,) "5 @)!8,? !}A@I A,o 6-P:+&@,'A"%,E6-P:Aa$+%AH%,'@,o6-Ag$+&@&$@,'@!}6 6-%@Y 6-P:,6-%D6-P:P:@$+%AI%,'A,'@,V6-%&B u&Y$JZ +!}-@@1AR@?  BIORHYTHMQ-@@Z DATETl-@@- D O W N 0 U P"}A-@@O >:@,S e-@@i l$^6-P:',6-&$h@#Ar 6.|"}"@#6.P"@(6.E"@36.IJ 6-'6-$@$&6-$G:,66-%%@P?6-P:"},J6.7<,4P)4E)4*6.*"@Ap"%%@AP6.7@<&@,56"}.7B:,&+%&,6-B:,G6-B:,P6-B:,E67@<,.)67%@<%,.B67%%@<%%,.E$]"6."}7B:,&+%&@,:,0C*>:,0K*>:,0RAP` >:,>:,4KAP&}$>:,4R6-@$ AP%! 7$%@<$%, : %C B:,!9 TOO LONG, MAXIMUM SIZE IS  .&} REENTERC AP, B:, "67B:,%@,. , AP$$67$%@%$<$%$%,.6- &}6-"6-$oDELETE SUBROUTINE VERS. 2p  DELETE THIS RECORD?,)@,>&}:,0Y*>:,0NA`p >:,>:,4NAa`67B:,%@,. ))67$%@,.7$%@%$%,+6&}-&@6-+6-&@6.7@:,4A6-@$ Aq$>:,4&}D6-@$ Aq Ap`-&@ 6--%@  Aq0Aq@&}E?7$%@%$<$%$%,27$%@%$<$%$%,E6- AqEE?7$%@%$<$%$%,37$&}%@%$<$%$%,E6- "Aqa6.7$%@<$%,H67$%@<$%,.7$%@<$%,& }a67$%@<$%,.   6-$?SEARCH SUBROUTINE VERS. 2@"6@ A$JC6-&!}6-!6-768,-6@C6-@O }SEARCH CRITERIA: T 0) RECORD NUMBER^;-7 &"}%@) 7$%@<$%,; c  %@) BEGINhL-@@ (  WHICH FIELD: ,L )!&#}%@A@m+"%@!68,-6@+ APr68,-&@|k-@@!: (1) <= (2) = &$} (3) >= >G68,-k8, @)8,!@A` 6-9-@@"! VALUE:98,"6@A&%}  9 B:,!/ TOO LONG, MAXIMUM LENGTH IS 9 A, B:, "67B:,%@,. , A>6&&}7$%@<$%,.*6-%@>!@A` A.  . @)!%@A6-&&'}@8,"@6-@8,"@6-6-8,"@6- A @A&(}c-@@!:  1) ITEM MUST MEET ALL CONDITIONS_ 2) ITEM MAY MEET ANY CONDITION c!! @)!@&)}A` E6-"@;@@P:E AP o#@@S:=0@@&*}W0@@iAR@o  : 6-&@<  -6-%@? #6-#-&+}@D )8,"6@6-@) AEF 6.7$%@<$%,I KB:,!%7B:,:,4Y&3}$.'>:,0NB8'>. %(L) LOAD FORMAT, OR (C) CREATE FORMAT;)@> B'>:,4CBL'>:,0L&4}B@j' Bpt' ENTER FORMAT NAME~'= 6.D: 67B:,%@,.=@@'' 6.&5}'C@-+@?67B:,%@,.C '@'$': FORMAT NOT FOUND%)@&6}0@: A'"6-6-"6.'F+ #}START IN THE UPPER LEFT CORNER ANDF WORK ACROSS EACH LINE.&7}'N- %1:HEADING, 2:ITEM, 3:TAB, 4:NEXT LINEJ 5:STRING, 6:END, 7:ERRORN'!! @)!@B 'I"@&8}' YOU MAY BEGIN AGAIN;-@A? I B((67B:,%@,.=:,(6-%@ (77B`B`B&9}BBPB(;-7 %@) 7$%@<$%,; (9 WHICH?!6-&@9&:} )!Bp(( B<(H  HOW MANY?, @)!@>  OUT OF RANGE.H BF(7 6.=:, @&;} 6.0767B:,%@,.=:,P(%67B:,%@,.%6-%@Z( Bn(* STRING:*67B:,%@,.&<}!("67B:,%@,."6-%B:,(( B (  FORMAT NAME:( B`(= 6.D: 67B:,%@,.&=}=@@((( @P:+B:,&@,'AP,())-P:+B:,&@,'AP,(KB:, $A&>}P%APA @7$AP%@?@A*G}BCDEFGHI $$ϭ̠$$ by Clayton Walnu*H}m $$#REVISED 12/16/85( A2Q #A!-@u"+67,.>:,/*I} =-ARA"M67,.>:,Q <$F$A!B7tA$$P"-B:,67<,4 " Z6.7<*J},$d  $n[A@T-2(ADDRESS BOOK EMPTY< A J-AN Q'[ A`x22@*K}!-@P% /22$& 2- #2&$bA@T-2( ENTRY NOT FOUND < A *L}J-AN X Ab A`22IF SCAN AND PEEK(764)=N12 THEN P=P-N1:RETURN?&6.7$@p&@i<$@p*M},.-;7<,0 ? B6.7<&,#6.7%<@$,1-B:,6>7<,4 B ;6.7<,6.7<@H*N},*-677<,4 ; A6.7<,%6.7@I<@c,0-6=7<,4 A 6.7<, A $A*O}K:#AdAU5A@dAA"F:Ad,"AU" A mQF:Ad,"@9)F:A*P}d,"@`)F:Ad,"A$)F:Ad,"AcAdAUm A  )$M 6-6."Ad*Q}AU*10-<!A(C(>:,M Ap(>:%A(," A"AR"$"A`"*R}AR"A , 6-%!AR $6- -%&(>:,#67<,.>:,- Ap@, !(>:A&,6*S}-&%",6.J !6.7<,T Ap^* 6- A`4*!6-'6-*$h1(6-?:C:,:,D6.*X}7$@p&@i<$@p&@F,N A0 4 A  Ap @$6-B:,67<,0*Y} " , A 6 A`G6.7<&, 6.7%:,>6.7$@p&@E<$@p&,H A*[}: 4 A  APD67<%B:,,.$N - ( X 6-6-6- APbB **\}4-(>:,86.7$@p&<$@p&,B A0l 4 A  Av"67@I<@H%B:,,."$*]} - (  6-6-6- APB *4-(>:,86.7$@p&<$@p&,B A*^}. B:,-(-$ A . AP67@d<@e,.$ - (  6-6-*_}6- AP6 *4-(>:,,6.7$@p&,6 APC B:, -($-B:,%+(-/ 9 A *`}C AA --@:7,, @H)@:7,,!@W7 A A A 67@f<@p,.$_' ' '*a}' A# A)-A( SA@@Y6-_6-3 B A3 @:1,)!@:6,*b}Ap \ -(7, Ap(6-&@H\A`AAA0AA`+ A-+( *c}IS THIS A LIST?  D A"@:Y,6-&6. 167,. :67,.D A0*"@:N,6- A04 A*d}> AP(A@H;7<,4**67,.*(67,.*167,.; A 0R+ AP-+(PRINT THIS AD*e}DRESS?\ A*"A 0f"@:N,A p@:Y,A`z 6-(A p67<,.* 6-*f}%!A % AP(A 5 A A0-5( ARE THESE LABELS? ( A"@:Y,*g}6-( A p"@:N,6- A  A @5 A p-+( HOW MANY 1-5"A`*h}E A0-(7,&AY8AdAUE(A0(-3 6-8 -7<,0**i} .AY@48 A` AP(A9 -F:Ad,"'/AY@49 A`3 *j} 3 333 , 7@d<@e, 7@f,$3 3 3 .  8AY@4 A`*k}BHE3,   , 7@d<@e, 7@f,H3G0F:Ad,"%&AY@40 A`L, *l}6-%"@`-"3& ,6-V `% 6-AY@4% A`jPA@T'AY@4--*m}F( CHECK PRINTER! P A t A"A`~ -(7, A * 6- A AP*(*n}A@8 - ( RETURN = STOP &-8( ESCAPE = MENU1AdAU AP--A1 F:Ad*o},"%AF:Ad,A`% -(START%AdAUF:Ad,"APF:Ad,"%*p}A A  -(STOP  6-%!A A- -(7,-(7,#6-- A` *q}"ApW 6. 67@p,. %67,./ A`9 A@C AM A@W A -(EVERYTHIN*r}G OK?(, A"@:N," A, A2@:Y,A < 6-%67B:,%,.F, !,6-?:C:,VV141,2,6,162,1,160,0,177,203,209,205,208,8,200,204,2,6,208,244,240,22,236,0,*}6,240H^^15,232,165,203,24,109,1,6,133,203,144,224,230,204,176,220,162,0,134,212,169,0,133,213,96RYY104,104,141,1,6,104,*}141,0,6,104,104,141,2,6,104,104,141,3,6,104,104,141,5,6,173,1,6\^^133,204,133,206,173,0,6,133,203,24,109,2,6,133,205,144,2*},230,206,169,0,141,6,6,162,1,160f^^0,177,203,209,205,144,8,208,38,200,204,3,6,208,242,232,236,5,6,240,71,165,203,24,109,2,*}6pbb133,203,144,2,230,204,165,205,24,109,2,6,133,205,144,212,230,206,176,208,169,1,141,6,6,160,0z__177,203,153,7,6,200,*}204,2,6,208,245,160,0,177,205,145,203,200,204,2,6,208,246,160,0,185,7>>6,145,205,200,204,2,6,208,245,240,179,173,6,6,208,*}129,96D:MICROMA2.BAS,145,203,200,204,2,6,208,246,160,0,185,7>>6,145,205,200,204,2,6,208,245,240,179,173,6,6,208,(  FF                    .}                          .}        Before running Micromail, you should insert your own name and address in the data statem.}ent on line 2050.When Micromail is run you should see an envelope with your return address in the upper left corner and dot.}ted lines in the middle. Each dotted line represents a field in the address data, and the number of characters allowed in ea.}ch field.Press number 3 to add addresses. Enter the appropriate information for each field, terminating each field with . To return to the main menu press ESC. The address you are working on will NOT be saved. When the address has been ente.}red you will be asked to confirm that the information you entered is correct. Respond with a Y or N. Please note that addre.}sses will be sorted by the "last name". This is the last word entered in the name field, so it would be best to avoid adding.} titles, such as M.D., to entries in the name field.Use number 2 to scan for a specific address. You will be prompted to e.}nter a name. The complete name need not be entered. If you enter ROB for instance, all addresses that start with ROB will b.}e displayed. When you see the address you want hit . If is hit again, the program will continue displaying addresse.}s until the end of the list is reached or is hit again. Press ESC at anytime to return to the main menu. To scan the e.}ntire list enter * when prompted for a name. You will receive a message of ENTRY NOT FOUND if no entry matches the name you .}entered.Use number 4 to change an existing entry. Enter the name you wish to change when prompted following the same guide.}lines as for number 3. The first address that matches your entry will be displayed and you will be asked whether you wish to.} change this entry. If you answer N, then the next matching entry will be displayed. When the address you wish to change is.} displayed answer the prompt with Y. If the field the cursor is on does not need changing, press , otherwise enter the c.}orrect information. Pressing ESC at anytime will return to the main menu, however the address you are working on will remain.} unchanged.Number 5 is used to delete an existing address and works similarly to the change address function. After enteri.}ng a name, the first name matching your entry will be displayed. Pressing N at the prompt will display the next matching nam.}e in the list. Press Y, and you will be prompted ARE YOU SURE?, press Y again to delete the displayed address or N to see th.}e next. Again, pressing ESC will take you back to the main menu.Number 1 is used to actually print the addresses, and two .}formats are possible. The first is in the form of a standard 3 1/2 X 15/16 label. The second format is to print your addres.}ses in horizontal format on 8 1/2 X 11 paper. You also will be asked to choose between printing a single address or creating.} a list. Label format is assumed if a single address is chosen. If you wish to create a list, press number 2 for the print .}option, and respond with a Y at the IS THIS A LIST? prompt. Enter a name following the guidelines established earlier. The f.}irst address matching your entry will be displayed. Answer Y or N at the prompt to include or not include an address in the .}list. Addresses will continue to be displayed until all matching entries have been displayed, or ESC is pressed. In the lis.}t mode, pressing ESC indicates you are through with the list and are ready to print it out. If you want a listing of all nam.}es you stored, enter * at the name prompt. Doing this will save you from choosing each name individually.Next you will be .}asked if you want labels. If you respond N then the addresses will be printed in horizontal format. If you respond with a Y.}, you will be asked how many labels you wish to print. This is the number of labels you wish for EACH address selected. The.} printing will begin when you press so have your printer prepared.If you did not create a list, you will also be asked.} to enter a name as above, but instead you will be prompted with PRINT THIS ADDRESS?. An N will display the next address. I.}f you respond with a Y, then you will be asked how many labels you wish to print. Press after entering a number. Pressi.}ng ESC will abort a printout in progress.Micromail must ALWAYS be terminated by using number 6. Your data will be saved to.} the disk in drive 1, which should be your Micromail program disk.Micromail can hold up to 100 addresses. If you need more.} capacity, change the statement NA=100 in line 1720 to a higher value(Do not exceed 256 however).ddresses. If you need more,b  FF                    2}                          2}        After running Appointment Calendar you will see the Main Menu on a red screen. Press 1 2}to create a month, then type in the NUMBER of the month and press . Next type in the last two digits of the year and pre2}ss again.You will now see a calendar for the month and four windows. To make an appointment select option 2, Edit Dat2}e, from the menu in the upper right corner of the screen. Follow the directions that will appear in the MESSAGE window in th2}e lower right corner.Type in the day and press . The cursor will now move down to the appointment window where you wri2}te your appointment message, terminating each line with . You may backspace to delete mistakes. Press ESC to load your 2}message in to the calendar where it will be indicated by the date being in inverse video.To print that day's appointments o2}nly, press 3. This should work with any printer. To print the entire calendar, press 4. This option will work only with Ep2}son, Gemini, or compatible printers since it uses condensed print to fit in the calendar spaces.You will be given the optio2}n of saving the calendar to disk before you can return to the main menu by pressing 5.When you are back in the main menu yo2}u may type 3 to view the calendars listed in the disk directory. Press 2 to delete a month you no longer need. When you are2} done, press 4 to end the program.listed in the disk directory. Press 2 to delete a month you no longer need. When you are0#