home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / BF / BF006.ZIP / CKNUMBR.TBC (.txt) < prev    next >
Turbo Basic Chain module  |  1989-02-08  |  13KB  |  10 lines

  1. .JUNK%=0
  2. 10577 SWAP SORTARRN#(III%),SORTARRN#(AR%-X%):JUNK%=0
  3. 10578 SWAP RECNUM%(III%),RECNUM%(AR%-X%):JUNK%=0
  4. 10579 X%=X%+1:FLAG2%=3:GOTO 10890
  5. 10580 SWAP RECNUMD&(
  6. I%),RECNUMD&(A
  7. ):JUNK%=
  8. .CTNSort Section 3 Completed -- Writing Pointer File*Sort Section 1 -- Sorting *2*** DATA FILE EMPTY ****** FILE TOO BIG - 8000 MAX ***Quick In Memory Sort -- Reading File    --- PRESS RETURN NOW ---    ADD MORE MEMORY TO YOUR COMPUTER.    REMOVE SOME MEMORY RESIDENT PROGRAMS, OR    AVAILABLE MEMORY.  DELETE SOME ACTIVITIES, OR*** YOUR FILE IS TOO BIG TO SORT IN THE ****** NO FILE OF THAT TYPE ON THAT DISK ****** MUST BE A LETTER 'A' THROUGH 'L' ******NO PERIODS ****** TOO LONG ***CKMMCKSORTSXRETURN  To PROCEEDX  EXIT To The Operating SystemS  SORT MenuM  MAIN Menu   Check NUMBERThis Is The Program To Sort Your Checks By*** NEED DATE IN THE FORM OF 2-15-82 ***ENDING DATE For This Report?STARTING DATE For This Report?*** YOUR DATES NOT FOUND ***:FILEDATE AT LINE NUMBER: *** ERROR NUMBER *** THAT FILE NOT ON THIS DISK ****** CAN'T FIND DRIVE NAME. PUT DISKDRVE ON THIS DISK ****** THAT DRIVE NOT AVAILABLE ****** THAT DRIVE NOT READY ***:*.CDE ARE: YOUR FILES ON  ***: *** CAN'T FIND CKNUMBR---REPORT PREPARED--- TOTAL OF ALL CHECKS LESS ALL DEPOSITS = $$######,.##    ***   TOTAL OF ALL DEPOSITS =(**$#####,.##)   TOTAL OF ALL CHECKS =   $$######,.##(**$####,.##) $$#####,.##  \      \ -######,.# ; \                       \- \     \No:######,.# ;  TO    FOR THE PERIOD OF      REPORT OF CHECKS SORTED BY CHECK NUMBER---SORT DONE, NOW WRITING YOUR REPORT---||||||||O:SPCDESC:NEWSORT:ACCTLST--BEGINNING SORT--.NBRReport Saved As DRIVE To Save Your NEW Sorted File?.CDEEXPENSE CATEGORY File Name?*.CKD Are:Your Files On *** FILE NOT FOUND ON THAT DRIVE ***.CKD:RDISK Drive Where You Saved These Checks?.0Checks To Sort By Check NUMBERNAME Of The File Where You Saved The DISKDRVEI
  9. DO UNTIL INN%=I
  10.