0 ' PLRG.BAS  (Report Generator for         project parts lists)
2 'By Tony B. Anderson                     Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
10 CLS:PRINT:INPUT" Name of the partlist file";F$
20 FORA=1TOLEN(F$):B=ASC(MID$(F$,A,1)):IFB>95THENMID$(F$,A,1)=CHR$(B-32)
30 NEXT:OPENF$FORINPUTAS1
40 PRINT:PRINT" Working..."
50 LPRINT"Parts List Report for the "F$" file."TAB(70)DATE$:LPRINTTAB(70)LEFT$(TIME$,5):LPRINT:LPRINT
60 IFEOF(1)THEN110
70 LINEINPUT#1,A$
80 IFA$=""THEN100
90 IFINSTR(A$,"$")THENB$=RIGHT$(A$,6):T=T+VAL(B$)
100 LPRINTA$:GOTO60
110 LPRINTTAB(70)STRING$(9,45):LPRINTTAB(55)"Subtotal:"TAB(70);:LPRINTUSING"$ ####.##";T
120 LPRINTTAB(55)"Sales Tax:"TAB(70);:TX=T*.06:LPRINTUSING"$ ####.##";TX
130 LPRINT:LPRINTTAB(55)"GRAND TOTAL:"TAB(70);:LPRINTUSING"$ ####.##";T+TX
140 LPRINTCHR$(12)
150 CLOSE:T1=INT((T+TX)*100)/100
160 OPENF$FORAPPENDAS1:PRINT#1,:PRINT#1,DATE$"  Total Price to date: $"T1
170 MENU