HEADING:(PHASE) 4-16 PHASE POSITION CHANGE ROUTINE   7/25/90 GF


STEP
  7   GOTO  STEP 990
  9   IF  DUM 801 = 00 THEN   GOTO  STEP 990
990   PRIN  STRG 3 "ENTER LOT NUMBER >" STRG 1
991   READ  TTY:;"_" STRG 333 %1.0 THEN   QUIT
992   PRIN  "LOT NUMBER IS " STRG 333
993   PRIN  STRG 3
994   PRIN  STRG 3 "ENTER TODAY'S DATE >" STRG 1
995   READ  TTY:;"_" STRG 350 %1.0 THEN   QUIT
996   PRIN  "DATE IS " STRG 350
997   LET  M = 8.01000E+02
998   LET  DUM M = 04
999   IF  DUM 1000 = 1.60000E+01 THEN   LET  DUM M = 2.50000E-01
1000   GOSU  STEP 1018
1001   LET  J = DUM 1000 * DUM M
1002   PRIN  "DO YOU WANT TO CHANGE TO " J " PHASE (Y OR N) ?" STRG 1
1003   READ  TTY:;"_" STRG 1000 %1.0 THEN   QUIT
1004   IF  STRG 1000 # "Y" THEN   GOTO  STEP 1016
1005   FOR  I = 01 TO 9.00000E+02 
1006   IF  POS I > 9.00000E+04 THEN   LET  I = POS I - 9.00000E+04
1007   LET  POS I = POS I * DUM M
1008   NEXT  I
1014   LET  SCAL 333 = SCAL 333 * DUM M
1015   LET  DUM 1000 = J
1016   GOSU  STEP 1018
1017   QUIT
1018   PRIN  "" 
      "POSITIONS SET FOR >" DUM 1000 "< PHASE." 
      "" STRG 3
1019   EXIT
DUM
1000   4.00000E+00
SCAL
333   0.00000E+00