HEADING:MODEL 20 FOCUS ROUTINE 2-17-83 GF


STEP
  5   GOSU  STEP 55
 10   LET  DLTA 99 = POS 600 - POS 599
 15   DISP   DLTA 99
 20   MOVE   POS 1  SPD 0
 25   OVER
 30   NIBL   DLTA 1  POS 2  DENS 1  BRAN 0
 35   MOVE   POS 3  SPD 0
 40   OVER
 45   NIBL   DLTA 2  POS 4  DENS 1  BRAN 0
 50   QUIT
 55   PRIN  STRG 600
 60   XFER   DEV 600  REG 0  MASK 0  BRAN 0
 65   XFER   DEV 601  REG 0  MASK 0  BRAN 0
 70   GOSU  STEP 105
 75   LET  DLTA 600 = DUM 600 * DLTA 601
 80   XFER   DEV 602  REG 0  MASK 0  BRAN 0
 85   GOSU  STEP 105
 90   LET  POS 600 = DLTA 600 + ( DUM 600 * DLTA 602 )
 95   XFER   DEV 605  REG 0  MASK 0  BRAN 0
100   GOTO  STEP 135
105   LET  REG 600 = 00
110   LET  REG 601 = 00
115   XFER   DEV 603  REG 600  MASK 0  BRAN 0
120   XFER   DEV 604  REG 601  MASK 0  BRAN 0
125   LET  DUM 600 = REG 600 * 010000 + REG 601 - 0100000
130   EXIT
135   REM  " ANYTHING ELSE NEEDED IN SUBROUTINE GOES HERE "
140   REM  " BEFORE THE 'EXIT' STEP"
145   EXIT
DENS
  1   SPD 1  PWR 1
  2   SPD 2  PWR 2
DEV
600   06002
601   06401
602   06402
603   06412
604   06414
605   06001
REG
  1   00
  2   00
  3   00
  4   00
600   00
601   00
POS
  1   20, 20
  2   20, 0
  3   10, 10
  4   30, 10
500   20, 20
600   0, 0
DUM
600   0.00000E+00
SPD
  1   3.00000E+00, 3.00000E+00
  2   3.00000E+00, 3.00000E+00
PWR
  1   100, 100
  2   0, 0
STRG
600   _
DLTA
  1   0, -20
  2   20, 0
 99   0, 0
600   0, 0
601   1, 0
602   0, 1