HEADING:RUNTIME JOYSTICK ROUTINE STEP 500 PRIN STRG 500 501 XFER DEV 500 REG 0 MASK 0 BRAN 0 502 XFER DEV 501 REG 0 MASK 0 BRAN 0 503 LET REG 500 = 00 504 GOSU STEP 514 505 XFER DEV 502 REG 0 MASK 0 BRAN 0 506 LET REG 500 = 1.00000E+00 507 GOSU STEP 514 508 LET REG 501 = 00 509 XFER DEV 503 REG 501 MASK 500 BRAN 0 510 IF REG 501 = 00 THEN GOTO STEP 502 511 XFER DEV 504 REG 0 MASK 0 BRAN 0 512 XFER DEV 505 REG 0 MASK 0 BRAN 0 513 EXIT 514 XFER DEV 506 REG 502 MASK 501 BRAN 0 515 IF REG 502 = 00 THEN GOTO STEP 527 516 XFER DEV 506 REG 502 MASK 502 BRAN 0 517 IF REG 502 # 00 THEN GOTO STEP 523 518 IF REG 500 = 00 THEN GOTO STEP 521 519 NIBL DLTA 500 POS 500 DENS 500 BRAN 0 520 GOTO STEP 527 521 NIBL DLTA 501 POS 500 DENS 500 BRAN 0 522 GOTO STEP 527 523 IF REG 500 = 00 THEN GOTO STEP 526 524 NIBL DLTA 502 POS 501 DENS 500 BRAN 0 525 GOTO STEP 527 526 NIBL DLTA 503 POS 501 DENS 500 BRAN 0 527 EXIT DENS 500 SPD 500 PWR 0 DEV 500 06002 501 06401 502 06402 503 06564 504 06561 505 06001 506 06444 REG 500 00 501 00 502 00 MASK 500 01000 501 01 502 02 POS 500 -3810, -3810 501 3810, 3810 SPD 500 1.00000E+03, 1.00000E+03 STRG 500 _ DLTA 500 0, -5 501 -5, 0 502 0, 5 503 5, 0