home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / BF / BF006.ZIP / CKLOOK.TBC (.txt) < prev    next >
Turbo Basic Chain module  |  1989-02-08  |  18KB  |  14 lines
  1. 'j    "'j    1'j    @'j    A'
  2. $T SC$=MKI$(X3%):PUT #1,B%+1
  3. 3070 X8%=0:IF N1$="Y" THEN GOSUB 3600
  4. 3080 GOSUB 1492:GOTO 1770
  5. 3090 IF SP%<2 THEN GET #2,1:SP%=CVI(SPD$)
  6. 3100 LSET SPD$=Y$:IF SP%<2 THEN SP%=2
  7. 3110 PUT #2, SP%:LSET SC$=MKI$(SP%)
  8. 3120 SP%=SP%+1:LSET SPD$=MKI$(SP%)
  9. 3130 PUT #
  10. 1:RETURN
  11. T CC$=MKI$
  12.  RETURN When
  13. 00XXXXXXXX*** NO FILES OF THAT TYPE ON THAT DISK *** -Checking Data File For This Number - *** MUST BE A LETTER 'A' THROUGH 'L' ****** NO PERIODS ****** TOO LONG *** *** AT LINE NUMBER: *** ERROR NUMBER *** THAT FILE NOT ON THIS DRIVE ****** THAT DRIVE NOT AVAILABLE ****** THAT DRIVE NOT READY ***CKEXSET*** CAN'T FIND THE DRIVE NAME FILE.  WAIT:*.CDE: ARE FILES ON  DRIVE *** NOT FOUND ON *** ########,.## NOT FOUND ****** THIS CODE NOT FOUND ****** 7 CHARACTERS MAX ****** WRONG DATE ***End Of File -- Press Return||-||-|||||||||||||||||||||||||||Beginning Of File -- Press Return  New Description: New Amount  *** YOU MUST CHOOSE CATEGORY FIRST ***/New Category  New Name  New Date  *** THAT NUMBER ALREADY EXISTS ***New Check Number:  New Group?  GN#*** YOU MUST COMPLETE ENTRY BEFORE QUITING ***1BLPRETURN IF No More Changes To This Check -- QUIT SPACE Next Check   P   Previous Check   S   Special Description   A   Amount   C   Category   G   Group   N   Name   D   Date   #   # (Number) Of CheckWhat Do You Want To Change Or Add?  As The New Check Number.  If No Changes Desired, RETURN  To Delete A Check, press '#', Then Enter A Negative Number Description:  Category:  Group  ; Date:  CK #: |BLNK|BLANK--K1BLAN1BLANK--*** NOT ACCEPTABLE ***RETURN To Re-enterA  to Add NOT FOUND  ****** CHECK NUMBER *** ERROR -- END OF FILE NOT FOUND ****** ERROR -- THIS FILE APPEARS TO BE EMPTY ***NUMBER Of Check To Change, Add Or DeleteRETURN  To Go To Previous QuestionCheck # ?  QLABCDRETURN To CONTINUE The Listing   Q  QUIT ProgramA  ACCOUNT Number Change - Get Different Acct NumberD  DATA File Change - Get Different FileB  BEGIN Display AgainC  CHANGE, Add Or Delete A CheckL  LOOK At A Check  Description:  ; Amount:$$#######,.##   Category:    ; Name:  Date: ; ########,.##   CK #: *** DONE ***||||||||Account Number?RETURN  For Previous Menu             )                  (       ACC'T #     ACC'T CODE      ACC'T DESCRIPTION:SPCDESC:ACCTLST.CDEExpense Category File Name?   *.CKD Are:Files On *** FILE NOT FOUND ON THAT DRIVE ***.CKDR:DISK DRIVE Where You Saved These Checks?.You Want To Look At?NAME Of The FILE Of ChecksRETURN  For Previous MenuCKMMCKSORTSX0RETURN  To PROCEEDX  EXIT To The Operating SystemS  SORT MenuM  MAIN MenuChecks In Any FileThis Is The Program To Look At Or ChangeDISKDRVEI 
  14.