home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / mrbill_2.zip / BILLDATE.TBC (.txt) < prev    next >
Turbo Basic Chain module  |  1992-01-01  |  27KB  |  27 lines
  1. 'r)$'w)$'
  2. *('1*('_*2'b*8'h*8'p*8'v*8'|*8'
  3. +`'#+`')+`',+j'Y+j'^+j'`+t'h+t'|+~'
  4. --(A.2(D.<(
  5. .n(2/n(5/x(Q/x(m/x(
  6. )*2")-2,)d2,)o26)u26)x2@)
  7. 2J)F3J)L3J)O3O)
  8. 4Q)p4Q)v4R)
  9. 4T)D5T)J5U)
  10. 6W)"6^)
  11. 7r),7r)17r)O7r)V7r)Y7{)u7
  12. *&=    *
  13. > *$>!*I>!*Q>!*Y>!*a>!*}>!*
  14. +7@ +=@ +C@ +
  15. Af+*Ap+NAp+qAz+}A~+
  16. E$,/E.,^E.,
  17. E8,9RR$:IF LEN(DATE1$)<8 THEN DATE1$=DATE1$+" "
  18. 6232 DATE2$=P2BB$+SEP$+N6CC$+SEP$+C10RR$:IF LEN(DATE2$)<8 THEN DATE2$=DATE2$+" "
  19. 6234 DATE3$=P3BB$+SEP$+N7CC$+SEP$+C11RR$:IF LEN(DATE3$)<8 THEN DATE3$=DATE3$+" "
  20. 6236 DATE4$=P4BB$+SEP$+N8CC$+SEP$+C12RR$:IF LEN(DATE4$)<8 THEN DATE4$=DATE4$+" "
  21. 6238 IF I2$=DATE1$ THEN RPTDORD%=1:RETURN
  22. 6240 IF I2$=DATE2$ THEN RPTDORD%=2:RETURN
  23. 6242 IF I2$=DATE3$ THEN RP
  24. ORD%=3:RETURN
  25. OSUB 6440:PUT 
  26. Sorting Sort Section 3 Completed -- Writing Pointer File*Sort Section 2 CompletedSort Section 1 -- Sorting *2:NEWSORT*** DATA FILE EMPTY ***Quick In Memory Sort -- Reading FileReading File From Disk Into MemoryThis Is A Big File - Sorting It Will Take Several PassesThis File Is Too Big To Sort. 16,000 Activities Max    --- 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 ******  THERE ARE NO FILES OF THIS TYPE ON THAT DISK ******  BILLING ENTRIES NOT SORTED!  YOU MUST SORT THEM! ***: NOT READY/AVAILABLE*** DRIVE *** TOO LONG ***YOU MUST RE-SORT YOUR ENTRIESDRIVE LETTER CORRECT? IF SO, THEN  *** YOUR INDEX FILE, 'NEWSORT' NOT FOUND ON _*** NOT ACCEPTABLE ****** NO PERIODS ***    $$#####,.##  TOTAL CHARGES:                        $$#####,.##  ($$#####,.##)  TOTAL CREDITS:                        $$#####,.##: $$#####,.##  TOTAL    #            ($$#####,.##) $$#####,.##  \                              \######,.##  O     To Overwrite This Old ReportRETURN  To Abandon Your New ReportBILLMMXRETURN To PROCEEDX  To EXIT To The Operating SystemM  To Return To The MAIN MenuProgram To Create A File Of Entries In Date OrderENDING DATE For This Report?STARTING DATE For This Report?*** YOUR DATES NOT FOUND ***:FILEDATE *** AT LINE No.: *** ERROR No. :*.TBL: ARE: NOT FOUND.  FILES ON :  *** FILE *** File DISKDRVE Not Found.  Put DISKDRVE On This Disk.TOT.TBLBilling Code File Name?--- REPORT PREPARED ---BLANK DATE   BLANK      99|99|99D To      Date Report For The Period Of   --- SORT DONE, NOW PREPARING YOUR DATE REPORT ---.DSCRNEWSORT.DTE  EXISTS ! ****** WARNING -- .DTEI Will Save Your Date Report As File NO           WARNING,  If Your Last Sort Was To Prepare Bills, You MUST Re-sortNO      To Skip The Sort This TimeRETURN  To Re-Sort Your EntriesDrive On Which To Save Your Report?*.BIL Are:  Your Files On *** FILE NOT FOUND ON THAT DRIVE ***.BIL:O:TESTXXXX*** NEED LETTER 'A' THROUGH 'L' ***Disk Drive Where You Saved These Entries?.     0Entries To Use For Date Report?Name Of The File Where You Saved TheDISKDRVEI Copyright David M. Alexander, 1986,1987
  27.