: CHECKS.600 v 2.3 - a check recording program for the Tandy 600/ZP-150,: Copyright 1987 by David Dunn Thomas - All rights reserved. Contributions}: by users of this program will be welcomed. $20, or whatever, may be sent: to the author at 2308 Chetwood Circle, #103; Timonium, MD 21093 : Enhancements available on request: Voice: 301-252-5379 GE Mail: MORTIMERI : Delphi: MORTIMER - CompuServe: 70526,1117S  :  )"Which of these fields do you wish to search?": )"";: X FT: X;F$(X)" ";::"0 Exit":  , : :"Selection?";::" ";: :FSZ: FS Y F$(FS)" field selected ...": , : "Number or word to search for ";MD$:MD(MD$):M:c { Z$$():Z(Z$):  RNUMF(H,RT):  : ,:RT"checks recorded.": ,F::  ,2: :"Press any key ->";::" ";: :$  Q(),F$( ),F( ),D$( ),D( ),T( )  JK: J P:SP$SP$" ":DA$DA$():: S$(X)(SP$,X): D$(X)(DA$,X):BL$S$()"":U$"$$####,.##"P : : :(,)(,),,BF:(,d)(,i),,BF: ,: :" C H E C K R E C O R D E R "::  ,:"by David Dunn Thomas":  ,!:"Copyright 1987": A :  "DBCALLS.LIB": F$: DBOPEN(F$,,H): FT: X FT: F$(X): FGID(H,F$(X),F(X)): FGTYPE(H,F(X),T(X)): : : ,:" Check Recorder ":: ! : )"1) Enter checks"-)"4) Print records"V : )"2) Sort records"-)"5) Delete records" : )"3) Find checks"-)"6) Exit Program"   ,: :"Select number:";::" ";  : Z Z   Z d,,,,,,Xd:: )"Check Recording Section": be: )"";:"How many checks will you record ";CH: K CH:f J : J,,: S$(1): Jg I h I, ,: :"Enter: "F$(I);:: );:: C$(I):C(I)(C$(I)): C$(I)"" i I ((C$(I)) (C$(I),,)"/" (C$(I),,)"/" (C$(I),,)"/") , ,: S$(();:: ,,:"Six digits! '021387' Try again!";: C$(I): ij Ik RCREATE(H): J  l T(J) FPUT(H,F(J),C$(J)) : FPUT(H,F(J),C(J)): J CTCTC()m J#n RCLOSE(H)Jo : ,: RT"checks recorded."p  ,2: U$;CT;:" recorded":  ,=:"this session."q K:CT:RT: :  ::: )"Sort Records Section": RT ::  )"There are no records to sort.": :  T: )"Which of these fields do you wish to sort by?"::);: X FT:X;F$(X)" ";::"0 Exit":  )"Selection? ";: :XZ: X : )"Sorting by "F$(X)" field ...": DBSORT(H,,F(X))2 )"Sorted! Returning to Menu ...": I :: , ::: )"Check Finding Section": RT ::  )"There are no checks to find; returning to Menu ...": I :: - . QSTART(H,Q())//: )"Display all checks? [y/n] ";: : Z$"Y" Z$"y" FS:M:MD: 190  1 T(FS) QFIELD(H,Q(),F(FS),M,,MD) : QFIELD(H,Q(),F(FS),M,,MD$)2 QEND(H,Q()):QF3:: );F$(); );F$(););F$();*);F$();D);F$()4 DA$;: ,,5 X RT: QF RFIND(H,X,,Q(),X)/6 ROPEN(H,X)H7 Y FT:D$(Y)BL$8 T(Y) FGET(H,F(Y),D(Y)) : FGET(H,F(Y),D$(Y))9: RCLOSE(H): "########";D();;  ) (D$(),)"/"(D$(),,)"/"(D$(),);< ) D$(); = *) D$();&> @)"";: U$;D()i?  XRT : J : J,,: SP$;: J: ,,@TCTC:CTCTD()A XB , : : TC"checks for ";:: U$;CT;:" this search.":TC:CTC : m ::: )"Print Records Section": RT ::  )"There are no records to print; returning to Menu ...": I :: w : )"This section will print selected records in "F$" to line printer.":" Use Sort Section of this program to arrange in desired order before printing."x: )"Print out all check records? [y/n] ";: : Z$"Y" Z$"y" FS:M:MD:    QSTART(H,Q()) T(FS) QFIELD(H,Q(),F(FS),M,,MD) : QFIELD(H,Q(),F(FS),M,,MD$) QEND(H,Q()):QF: Z: );F$(); );F$(););F$();*);F$();D);F$(): J P: "-";::LF:d  X RT: QF RFIND(H,X,,Q(),X) ROPEN(H,X) Y FT:D$(Y)BL$ T(Y) FGET(H,F(Y),D(Y)) : FGET(H,F(Y),D$(Y)): RCLOSE(H)! "########";D();[  ) (D$(),)"/"(D$(),,)"/"(D$(),);m ) D$(); *) D$(); @)"";: U$;D():LFLF LF8 ( ): CTCTD():TCTC: X): ) "A total of"TC" checks for ";: U$;CT;:" this report.":TC:CT6 ( )F :  ::: )"Record Deletion Section": RT ::  )"There are no records to delete; returning to Menu...": I ::  :  )"";:"Delete which Check # ";A QSTART(H,Q()): QFIELD(H,Q(),F(),,,A)Q QEND(H,Q()):DF~ D RT: DF RFIND(H,D,,Q(),D) RDELETE(H,D) D  )"Delete another check? [y/n] ";: : Z$"Y" Z$"y"  : OX:"Closing records ...": DBCLOSE(H): :"Records and DBCALLS Library closed.": I ::Y CHECKS.DAT,5,Number,Date,Payee,Purpose,Amount:Error trapping subroutines. 5  ,:"Oops! DBCALLS.LIB must be loaded to RAM!": :& [ "Error""in line": : 7 DBERROR(E)R EB 5 Bm EB   EB  D  )"Check #"A"deleted.":   EB   )"Check #"A"not recorded.":  "Database Call Error #"E"in line": :