z@@XMRMAZERONTWTHREFOUSEVEEIGHUPCASFMLLEWRMFXFYFWFLDNAMFSIZFPOSMUSFNDXWNDXBCHFNAMPKEYKJKKXNPDBNAMEOUNAMEERIMFDBELHD1HD2RECOLDRECBLANKFLBLBARSSVFZZFNSDEUNDEADINCHACDLDLJJWKKATRACOLDOLDSHFLONXEONSONCNDNPNNFBDESDBITPSHFTPEODRPTYPFCLEANFDXYFINNENNDERRSAOUMORFMODUPDATAPPENCONSOOPTIOSTARCNULHDPLDLISDDM @@@@@@@@@ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz''INFO MINDER 1.0 by James W. Brownd6-@!6-AnW6--@'6-@36-@?6-@K6-@W6-@s6-@dx1 6-6-A0!6-A 16-$%@}%%9,9,9,;$,9,9,9$,9,9,%%;@5,;,;,;@,;,;,;,;$,9,;@,;@,&&;@7,;@,;@,;,;@p,;,;,;, ;@7,;@0,;,00;@2,;@),;@),;,;,$$;@",;,;,;,;, ALSort indexQ7 6-'6-P:?P%$M:,'A,1 A7VS !-@!S(Sort will take P:@0$,'@ to  minutes.[-@"(Sorting]LAYA`-Aa@?AY@4LScreen off`H  AY'A`3AaEAY@4H$j6-P:',6-&t 6-~ -'-@@"'(:7<, 6-%6-$&%6-%&6-$&%6-%&6.7<,6.7<,I 36.67<,.%67<,..6-8,:68,-8,C68,-I6- A@  A Position cursor -&( -&( 6-6-$Input/modify screen7 6-6-6-$6-8,-6-8,7 A )A @ "6-$ "6-$ " AR6-$ "6-6-6$ "6-6-$ "6-$ "6-$""@)"@#6-"$'"@*! A9' A A `"@6-6-$"@6-6-6$' "67<,. AR$6-'$-"@!67<,.$ AR*6--$ ""@:, A0" A ""@:, A1" A ."@:,)")")"$ A2. A ""@:, A3" A   " A5 A %""@:, A5" A *;@: ,*@:z,-'(>:%,1 A3; A / A3 A ( Pack pointers2 68,-%$ $ Unpack pointers  6-!$ 6-P:8,',6-8,&$ $ Display record R  A' AF 6.7<,0*"$ -@#(Record  AHAAS $T ^ !!6.ENTER KEY TO SEARCH FORh  A-@r 4!(Enter part or all of key:%.6-B:,4|  "6.7<,$   67%,.7<&, $ Cursor up  8, A$  A76-& A4 A $ Cursor down& A70 1 8,6-6-8,$6-8,. A1$:  6-% A4 A $ Cursor left ! !8,6-& A!$ : ! A76-&$6-8,-6-8,7 A:$ A $ Cursor right ( 8,%8,&6-%% A($ :   A76-%$6-8,-6-8,7 A:$ A1G $H Find 1st fld on line Y\ -f  "8,6-8,6-$p   $ Cursor to next fld  A76-& ' 6-%6-8,6-8,' A$tFix size fieldy!)")$P:',$~) 6-8,-%)(7<@ , - 11%@$"@:,)"@:,6-$6-@:, -(>:,>:,  6-& 6-& 6.>:,67,.>:, A76-A:,  )!@(A768',-6- -6-%8, -@2(-@#(( !-%(MaxTot( A  $0 -%(BAD SIZE& A0 A7<Repeat fieldF-8,8,6-8&,P-%8&,&Z6-@:7<,,%(>:,d n A5 A$!!Set up entry/display screen -!-8%,!(7$&<$,: 4 -8,4(#Next Prev Save Delete Cancel $Mark data fields - 6-8,6-8,6-8," -(7<,, g$hWrite a recordr ABP | 6. $ /6.DISK WRITE ERROR % Ay/ A$Pack screen to record 6-167<,.>:, 6-!6-% -28&,@" 6-8,6-8,"6-%8,& -1 6-& 6-%67<,.>:,  ! 2/$0Unpack record to screen5 6-!6-%: 6--D 6-8,6-8,6-8,N -X-%&]6-@:7<,,%(>:,b g 6-%l v"6.7<,6-8,&"6-8, - ( 4-( -&&( -($Read data base 6- AE0 A-@$$(Do you want to enable access$$(to deleted records [Y or N]6-4Y! As6-6-(!$AE@2-@((Create an index now.2 4Y Au A AF6- 6-$"7<,4)6-%" AG7<,06-%C-@ +( records in database.C( deleted records.  AE@Read a record AFP    6.  6- $*   6-4=F:,A6)6.DISK READ ERROR 3 Ay= A[$\Pack record to indexf   $p6-")+7<,4*",z)67$+&,%<$,.& A&)$ 6-- 6-8,6-8,6-8,67,.7<%&,6-% 67$+&,%<$,. A&$Record to screen AD A#$,"6.ADD AN ENTRY TO DATABASE, A. !6.DATABASE IS FULL.+ A.$ 6- A@ AA6-% -( A  ( $6 A-@",( Processing...6 AW 6-%6-! AC AG! AB$##6.CHECK/CHANGE/DELETE ENTRY A6.   6. A$<  /6.You must create an index first.9 A<$ 6-6- AY ( $( -(7<,2 AC AG<  ABF"6.RECORD UPDATED" AO$P(Un)deleteZ7<,46.d7<,46.n67<,.x -( A$Create index' Au Av*' A$"""6.REPORT DATABASE CONTENTS,&   A6.# A&$6# 6. A6.# A@ 6-%! AJ AV" A@T!!6-+8,%8,%!@v*",^3>:@',B>:,h' - A($F:Ad,"'$m r3>:@',B>:,{$|Close/exit  #6.DATABASE CLOSED# A ( (Enter Ҡ to restart.((Enter Ѡ to quit. 6-6((Choice 4R6- 4Q6-   A AU  6-6-$Set file mode to update " $ 6-C$DSet file mode to appendN " $X 6-b$ Get a record A)6-  ! A6-$*46.7$+&,%<$,"3)1*6-%4 AY 4! AV A'! AF9$7<,0*"6-%$ AY > 6. AH! A@ AA! ADR! 6- A !"AYW 6-%\  )! A$a AY@f0 A-@"0( Processing...o$pMain menuz"6. INFO MINDER A"(--6.#| |/+(#/(/+(#| Add a new entry. |/(/+(#| Check/change/delete an entry. |/(/+(#| Create/change index. |/(/+(#| Update (re-sort) index. |/(/+(#| Produce database report. |/(/+(#| Copy live records to a new file.|/(/+(#| Close database and exit/restart.|/(++(# 6-% Ai6-@ Ab AF:,Aa`- A6-%!!@-6-@  Aa F:,Aa  A$L 6-6L+&,'APAQASAATAcAU. A`7$8Highlight line YB -(|$7'6.COPY LIVE RECORDS TO NEW FILE-6.7 A  6. A$% A Ae%"Ac 6- Ar($ 6-6. A - A' AF A$A7<,4 !-@9( RECORDS COPIED.A6-%  A$ $ -$(Enter filename in form&-@&(Dn:filename.ext  (Filec$dn6.OPEN OUTPUT FILEx A(6.or P: Ad   Ae  6-$   6-.6.FILE OPEN ERROR $ Ay. A$--(%Use Π key to select an option.""(Press Ԡ when ready.W$X]6. OPEN DATABASE6.b A6.l Ad6-v   6- Ap   6- AE A$, F:,"Ap Aq,Ap@.6.FILE OPEN ERROR $ Ay. A ApCreate new database file At 6. A-@( CREATING  Aq6-  6- Ar6-  $ &6.FILE CREATE ERROR & Ay A Aq  Write header* Ar 4 ,FIELDS> -H6.7$&<$,R 8,,\ f  p 6- $z. $6.ERROR WRITING HEADER: . Ay A6-$Read header 6- As- 06.NOT AN  67,.* A-$ 68,-68,- -5 68,-*68,-8&,%8&,568%,-67$&<$,.   6-$$ $6.ERROR READING HEADER:  Ay A$!6. DEFINE FIELDS! A( Total=1 %%( Status 01 Done!-8,&-((! 8 6-6-$ AA!6-+ A 8(At % AC6-68,-%68,- -6-$@%6.7%<%,%47<,At 6-A:,At# 6-%#67$&<$,.7&<,$ 68,-)68,-8&,%8&,.68%,-8,8 K$LQ 6. DEFINE INDEX AV 6-6-(`' -#(7$&<$,8,' j9-@9(%Fld# to index,0 if done,-1 to cancel:o "$q Aut? !+6.REQUESTED FIELD NOT DEFINED5 A? Au0y 6-%68,-~7-@3(Enter # of characters to index:7= )!8,)6.VALUE OUT OF RANGE3 A= AuPT %!/6.TOO MANY CHARS. MAX SIZE IS @67B:,%,.=:,J AT AuP 68,-6-%9-@9( Max total: . Current total:  Au0Read DB to new index 6- AV AE A$Append err nr67B:,%,.=:F:,,?$@Title screenJ (} T$-@$(INFO MINDER 1.0^-@(byh(-@@((James W. Brownm$-@$(On menu screens:n!!(Use Π and Ԡ.r*-@*(On data entry screens:|,,($Use -arrow keys or or --(%to move cursor. Put cursor on action++(#box and press Π to execute. 3(3( recs,  max index, I:, free.$6. SELECT REPORT A(/+(#/(/+(#| Report to screen. |/(/+(#| Report to printer. |/(/+(#| Report to file (user code). |/(.+(#.( Ai6-@ Ab AF:,A- A6-%!!@-6-@  AeF:,Ae A46-+&,'"*6.Printer ready?4 A ! Ae (A $ For RPTYPE=3 #6.NOT IMPLEMENTED# Ak $4!Set up rept hdrs9!-@6@(<<<>!1 -1(#Enter report header (70 chars max):C!  H!3 6-B:, @p)67%@,.3 A R! 6-6-@6.\! -6-8,f!67B:,%,.p!67B:,%,.7$&<$,z! !67B:,%,.7<&,! !67B:,%,. Rec!$!Print rept line!6.7<,! 46.! -! 6-8,6-8,!67B:,%,.!67B:,%,.7<%&,!  67B:,%,.7<&,! ! 6-% @dA! !-3 ! 6-%6-@!""37<%$@6,Page ! 3 3! 3!$! Delay" - _"$`"j"4*6. REQUESTED RECORD NOT IN DATABASE4 A"$" Buzz"/2@U@!-% /2'#$(# Error2#! 0!2@U@<# AF# 02#$#Wait/return#3-@"/(Press Π when ready 3#$# Notice#'0@'2A!@$ A$ 02S$$T$Clear bottom of screen^$&-@!@#-"(& $$$Notice msg$! A A! A%$%Draw box around S$&% (}0%' 6-B:,6-@&P:','6-%:%(7<,7<,D%(7<,|  |N%(7<,7<,%$%Error msg%! A A! A%$%Status msg% A%-@!(G&$H& InitJ&%6-AU A%6-BL&!6-B2y6-@!6-N&7/6.% 76. P&E(6.6-@A67,.|E R&**6. T&6.INFO MINDER FILEV&(6.DATABASE IS EMPTY.(6-AVX& 6.Field# Name Size^&# 6. D6.Und6-#6-`&36-A&6-AT'6-AU36-Adb&'6-@w6-A'6-Ad&$6-B6.7,$6-AUf&-6-@ 6-@'6-@5-6-p&-$&r&26-%@68,-)68,-@268,-t&*68%,-68%,-@!*68%,-v& x&- 6-$%6-%6-%%6-%-6-%~& -&0 6-%68,-@'68,-$%068,-& &1 #AP-""68,--68$,-1 & #A`-&""68,-68,-"68,-& &* 68,-68,-@7$68,-*6-&) 6.A6.D6-A() A&@K:&@@S:&16-F:A`,!6-F:Aa,16-%AV$&<+6-F:%,%AV$F:%@,%A@<6-P:'AV,&'-A6AQ#A' &7AR@f+AS&AV$7AT&?AU!AV@e-AW?AX@& Main&' 6- Ap' A`&A&&%%121,108,96,91,81,72,64,60,53,47&6,12,18,28,36D8:INFOMIND.BAS