/* TEMPORARY FIELDS */

"EXTENDED COST",D,13,'$X,XXX,XX^X.XX'
"EXTENDED PRICE",D,13,'$X,XXX,XX^X.XX'                                          
"PERCENT MARGIN",D,5,'X^X.X%'   /* USED TO DEFINE HOW 8TH OUTPUT FIELD LOOKS */
"",D,12,'XXXXXXXXX000'	/* NUMBERS PUT IN THIS FIELD WILL BE MULTIPIED BY 1000
			   AS IT ADDS 3 ZEROES TO THE END OF THE NUMBER */

"",A,18,'READY YOUR PRINTER'
"",A,17,'WITH 8 1/2" PAPER'
"",A,19,'AND THEN PRESS <CR>'

		/* INPUT - OUTPUT SPECIFICATIONS */

INPUT (INV.DAT,INV.FD)
OUTPUT (INVO.DAT:1,1 1,2 1,5 1,6 1,7 0,1 0,2 0,3)


2,(1-2)=1,(1-2);	/* PASS THE PART NUMBER AND DESCRIPTION TO FILE 2 */
2,3=1,5;		/* ASSIGN THE UNIT COST TO 3RD OUTPUT FIELD */
2,4=1,6;		/* ASSIGN THE UNIT PRICE TO 4TH OUTPUT FIELD */
2,5=1,7;		/* QUANTITY ON HAND IS ASSIGNED TO 5TH OUTPUT FIELD */
0,1=1,7*1,5;		/* EXTENDED COST EQUALS QUANTITY TIMES COST */
2,6=0,1;		/* ASSIGN THE EXTENDED COST TO 6TH OUTPUT FIELD */
0,2=1,7*1,6;		/* EXTENDED PRICE EQUALS QUANTITY TIMES PRICE */
2,7=0,2;		/* ASSIGN THE EXTENDED PRICE TO THE 7TH OUTPUT FIELD */
0,4=1,6-1,5;		/* THE MARGIN EQUALS THE PRICE MINUS THE COST */
2,8=0,4/1,6;		/* THE MARGIN WAS PUT IN TEMP. FIELD 4 TO MULTIPLY IT
			   BY 1000. NOW IT IS DEVIDED BY THE PRICE TO GET THE
			   PERCENT MARGIN AND ASSIGNED TO 8TH OUTPUT FIELD */
WRITE 2;		/* WRITE THE DATA OUT TO THE FILE INVO.DAT */
END;			/* END OF EFM REQUEST */