HEADING:(SRSTEP) STANDARD MODEL 25 STEP & REPEAT ROUTINE 7-19-90 GF STEP 6 GOTO STEP 443 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 15 GOSU STEP 400 2.00000E+00 2.00000E+00 1.00000E+03 1.00000E+03 16 LET DLTA 900 = POS 900 - POS 899 17 DISP DLTA 900 18 MOVE POS 899 SPD 0 398 HAND 399 EXIT 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 30 409 SHOM REG 0 410 LET DUM 998 = VALU 3 411 LET DUM 999 = VALU 4 412 LET REG 990 = 00 413 LET REG 991 = 00 414 LET DLTA 995 = DLTA 993 415 IF BIT 6 = 00 THEN GOTO STEP 418 416 LET DLTA 998 = POS 997 417 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 GOSU STEP 447 424 LET REG 990 = REG 990 + 01 425 LET REG 991 = REG 991 + 01 426 LET REG 999 = ( REG 991 - 01 ) * DUM 999 427 LET REG 999 = REG 991 * DUM 999 - REG 999 428 LET DLTA 999 = REG 999 * DLTA 995 429 LET DLTA 998 = DLTA 998 + DLTA 999 430 GOSU STEP 447 431 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 425 432 IF REG 990 = VALU 1 THEN GOTO STEP 440 433 LET DLTA 995 = DLTA 995 * ( - 01 ) 434 LET REG 999 = ( REG 990 - 01 ) * DUM 998 435 LET REG 999 = REG 990 * DUM 998 - REG 999 436 LET DLTA 997 = REG 999 * DLTA 994 437 LET DLTA 998 = DLTA 998 + DLTA 997 438 GOSU STEP 447 439 LET REG 991 = 00 440 IF REG 990 < VALU 1 THEN GOTO STEP 424 441 LET DUM 807 = 00 442 LET DUM 808 = 00 443 SHOM REG 30 444 SHOM REG 31 445 SHOM REG 32 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 1 00 2 00 3 00 4 00 30 03 31 00 32 04 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 998 0.00000E+00 999 0.00000E+00 DLTA 900 0, 0 993 0, 1 994 -1, 0 995 0, 1 996 0, 0 997 0, 0 998 0, 0 999 0, 0