home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / plrg.ba < prev    next >
Text File  |  2006-10-19  |  979b  |  20 lines
  1. 0 ' PLRG.BAS  (Report Generator for         project parts lists)
  2. 2 'By Tony B. Anderson                     Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 CLS:PRINT:INPUT" Name of the partlist file";F$
  4. 20 FORA=1TOLEN(F$):B=ASC(MID$(F$,A,1)):IFB>95THENMID$(F$,A,1)=CHR$(B-32)
  5. 30 NEXT:OPENF$FORINPUTAS1
  6. 40 PRINT:PRINT" Working..."
  7. 50 LPRINT"Parts List Report for the "F$" file."TAB(70)DATE$:LPRINTTAB(70)LEFT$(TIME$,5):LPRINT:LPRINT
  8. 60 IFEOF(1)THEN110
  9. 70 LINEINPUT#1,A$
  10. 80 IFA$=""THEN100
  11. 90 IFINSTR(A$,"$")THENB$=RIGHT$(A$,6):T=T+VAL(B$)
  12. 100 LPRINTA$:GOTO60
  13. 110 LPRINTTAB(70)STRING$(9,45):LPRINTTAB(55)"Subtotal:"TAB(70);:LPRINTUSING"$ ####.##";T
  14. 120 LPRINTTAB(55)"Sales Tax:"TAB(70);:TX=T*.06:LPRINTUSING"$ ####.##";TX
  15. 130 LPRINT:LPRINTTAB(55)"GRAND TOTAL:"TAB(70);:LPRINTUSING"$ ####.##";T+TX
  16. 140 LPRINTCHR$(12)
  17. 150 CLOSE:T1=INT((T+TX)*100)/100
  18. 160 OPENF$FORAPPENDAS1:PRINT#1,:PRINT#1,DATE$"  Total Price to date: $"T1
  19. 170 MENU
  20.