12 lines
657 B
Mathematica
12 lines
657 B
Mathematica
RMPFEP2 ;DDC/KAW-ENTER/EDIT PRODUCTS FOR PSAS [ 06/16/95 3:06 PM ]
|
|
;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
|
|
W @IOF,!,"PRODUCT ENTER/EDIT"
|
|
W !!,"*** USE THIS OPTION WITH CAUTION ***"
|
|
W !!!,"Products must be entered or edited ONLY as directed by the DDC."
|
|
W !!,"If entries vary in any way (even by one character) from the entry in the DDC",!,"file, all orders for which this entry is chosen will be rejected."
|
|
P1 W ! S DIC="^RMPF(791811,",DIC(0)="AEQLM",DLAYGO=791811
|
|
D ^DIC G END:Y=-1 S DIE=DIC,DA=+Y,DR=".01;.03;.04;.05;.08;.09" D ^DIE
|
|
K DIC,DIC,DA,DR,DD,DO,DQ,D0,DDH
|
|
G P1
|
|
END K X,Y,DIC,DIE,DA,DR,DD,DO,DQ,D0,H,DI,DISYS,%,I,C,%R,%Y,DLAYGO Q
|