HEADING:(SRSTEP.1X) S&R ROUTINE (1 DIMENSIONAL ARRAY)  4-29-91 GF


STEP
  6   GOTO  STEP 443
  8   IF  DUM 807 = 00 THEN   LET  DUM 807 = 01
 15   GOSU  STEP 400
 16   LET  DLTA 900 = POS 900 - POS 899
 17   DISP   DLTA 900
 18   MOVE   POS 899  SPD 0
400   IF  DUM 807 = 00 THEN   GOTO  STEP 407
401   PRIN  STRG 3
402   PRIN  "PROGRAM STOPPED AT PART # " DUM 807
403   PRIN  STRG 3
404   PRIN  "ENTER PART # YOU WANT TO START ON >" STRG 1
405   READ  TTY:;DUM 808 %1.0 THEN   QUIT
406   LET  DUM 807 = 00
407   MOVE   POS 990  SPD 0
408   SHOM   REG 990
409   SHOM   REG 0
414   LET  DLTA 998 = POS 997
415   IF  BIT 6 = 01 THEN   GOTO  STEP 423
418   PRIN  "ALIGN THETA" STRG 3
419   ALIN   POS 998  REF 999  REG 998
420   PRIN  "ALIGN X-Y" STRG 3
421   ALIN   POS 0  REF 0  REG 0
422   LET  DLTA 998 = POS 997 - POS 999
423   GOTO  STEP 439
424   LET  DLTA 998 = DLTA 998 + DLTA 999
439   GOSU  STEP 447
440   IF  DUM 807 < DUM 999 THEN   GOTO  STEP 424
441   LET  DUM 807 = 00
442   LET  DUM 808 = 00
443   SHOM   REG 990
444   SHOM   REG 0
445   SHOM   REG 991
446   QUIT
447   LET  DUM 807 = DUM 807 + 01
448   IF  DUM 808 > DUM 807 THEN   EXIT
449   SMOV   DLTA 998  SPD 0  REG 0
450   LET  DLTA 998 = 00
451   PRIN  "PART # " DUM 807
452   GOSU  STEP 16
453   EXIT
REG
990   03
991   04
998   -01
999   07747
POS
990   0, 0
997   0, 0
998   -10000, 1000
999   10000, 1000
REF
999   POS 999
DUM
807   0.00000E+00
808   0.00000E+00
999   2.00000E+00
DLTA
998   0, 0
999   1000, 0