5 FILE.NAME$="INV.MAS"
20 FILE FILE.NAME$(248)
25 NAR.CTR$="NAR.CTR"
30 FILE NAR.CTR$(24)
35 READ #2;INVCTR,TRSCTR
70 REM IN THIS SECTION DATA IS ENTERED FROM THE KEYBOARD
50 I=INVCTR-1000
80 INPUT "PART NUMBER-E TO END";LINE FLD01$
85 IF FLD01$="E" THEN 9999
90 INPUT "DESCRIPTION?";LINE FLD02$
100 INPUT "CATAGORY?";LINE FLD03$
110 INPUT "AVERAGE COST?";LINE FLD04$
120 INPUT "SELLING PRICE?";LINE FLD05$
130 INPUT "QUANTITY ON HAND?";LINE FLD06$
140 INPUT "QUANTITY ON ORDER?";LINE FLD07$
150 INPUT "YEAR TO DATE ISSUE?";LINE FLD08$
160 INPUT "MONTH TO DATE ISSUES?";LINE FLD09$
170 INPUT "LAST ISSUE DATE?";LINE FLD10$
180 INPUT "UNIT OF MEASURE?";LINE FLD11$
190 INPUT "VENDOR NUMBER?";LINE FLD12$
200 INPUT "TAXABLE?";LINE FLD13$
210 INPUT "LAST ORDER DATE?";LINE FLD14$
220 INPUT "LOCATION CODE?";LINE FLD15$
230 INPUT "YEAR TO DATE RETURNS?";LINE FLD16$
240 INPUT "YEAR TO DATE RECEIPTS?";LINE FLD17$
250 INPUT "MONTH TO DATE RECEIPTS?";LINE FLD18$
260 INPUT "REORDER POINT?";LINE FLD19$
270 INPUT "WEIGHT?";LINE FLD20$
280 INPUT "LEAD TIME?";LINE FLD21$
290 INPUT "YEAR TO DATE COST?";LINE FLD22$
300 INPUT "YEAR TO DATE SALES?";LINE FLD23$
310 INPUT "ALLOCATED?";LINE FLD24$
320 FLD01$=RIGHT$("            "+FLD01$,12)
330 FLD02$=RIGHT$("                                "+FLD02$,32)
340 FLD03$=RIGHT$("  "+FLD03$,2)
350 FLD04$=RIGHT$("       "+FLD04$,7)
360 FLD05$=RIGHT$("       "+FLD05$,7)
370 FLD06$=RIGHT$("      "+FLD06$,6)
380 FLD07$=RIGHT$("      "+FLD07$,6)
390 FLD08$=RIGHT$("      "+FLD08$,6)
400 FLD09$=RIGHT$("      "+FLD09$,6)
410 FLD10$=RIGHT$("      "+FLD10$,6)
420 FLD11$=RIGHT$("      "+FLD11$,6)
430 FLD12$=RIGHT$("    "+FLD12$,4)
440 FLD13$=RIGHT$(" "+FLD13$,1)
450 FLD14$=RIGHT$("      "+FLD14$,6)
460 FLD15$=RIGHT$("  "+FLD15$,2)
470 FLD16$=RIGHT$("      "+FLD16$,6)
480 FLD17$=RIGHT$("      "+FLD17$,6)
490 FLD18$=RIGHT$("      "+FLD18$,6)
500 FLD19$=RIGHT$("      "+FLD19$,6)
510 FLD20$=RIGHT$("      "+FLD20$,6)
520 FLD21$=RIGHT$("  "+FLD21$,2)
530 FLD22$=RIGHT$("        "+FLD22$,8)
540 FLD23$=RIGHT$("        "+FLD23$,8)
550 FLD24$=RIGHT$("      "+FLD24$,6)
560 PRINT USING "####,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&,&"\
    ;#1;I,FLD01$,FLD02$,FLD03$,FLD04$,FLD05$,FLD06$,FLD07$,FLD08$,\
    FLD09$,FLD10$,FLD11$,FLD12$,FLD13$,FLD14$,FLD15$,FLD16$,FLD17$,\
    FLD18$,FLD19$,FLD20$,FLD21$,FLD22$,FLD23$,FLD24$
570 INVCTR=INVCTR+1
580 PRINT #2;INVCTR,TRSCTR
590 GOTO 100
9999 END
B16T