HEADING:(SHELL) STANDARD PASSIVE PROGRAM BUILDING SHELL 2-20-92 GF


STEP
  1   GOTO  STEP 9
  2   GOTO  STEP 580
  3   GOTO  STEP 610
  4   GOTO  STEP 500
  5   GOTO  STEP 9
  6   GOTO  STEP 400
  7   GOTO  STEP 990
  8   GOTO  STEP 400
  9   IF  DUM 801 = 00 THEN   GOTO  STEP 990
 10   GOTO  STEP 15
 11   REM  "STEP 11,EXTRA"
 12   REM  "STEP 12,GOTO STATUS"
 13   REM  "STEP 13,EXTRA"
 14   REM  "STEP 14,EXTRA"
 15   REM  "GOSU STEP 400, S&R"
 16   LET  DLTA 900 = POS 900 - POS 899
 17   DISP   DLTA 900
 18   MOVE   POS 899  SPD 0
400   PRIN  "NO 6^T OR 8^T, NO S&R ROUTINE" STRG 3
401   QUIT
500   PRIN  "NO DRIFT TEST" STRG 3
501   QUIT
580   PRIN  STRG 3 "ARE YOU SAVING PROGRAM NOW ? " STRG 1
581   READ  TTY:;"_" STRG 1000 %1.0 THEN   QUIT
582   IF  STRG 1000 = "Y" THEN   LET  DUM 801 = 00
583   PRIN  " " 
      "NO DUMMIE ZERO ROUTINE!"
584   QUIT
610   PRIN  "NO DATALOG PRINTOUT ROUTINE" STRG 3
611   QUIT
990   PRIN  STRG 3 "ENTER NEW LOT NUMBER (WAS " STRG 333 " )  " STRG 1
991   READ  TTY:;"_" STRG 333 %1.0 THEN   QUIT
992   PRIN  "LOT NUMBER IS " STRG 333
994   PRIN  " " 
      "ENTER TODAY'S DATE (WAS " STRG 340 ")  " STRG 1
995   READ  TTY:;" " STRG 340 %1.0 THEN   QUIT
996   PRIN  " NEW DATE IS " STRG 340
997   PRIN  "NO 4-16 PHASE POSITION CHANGE ROUTINE"
998   LET  DUM 801 = 01
999   QUIT
DUM
801   0.00000E+00
STRG
  1   _
  3   
333   >LOT #<
340   >DATE<
1000   N