FORTR 
/      SUBROUTINE SCOPE(I,J)
ENTRY SCOPE
SCOPE, BLOCK 2
IOF
DUMMY \I
TAD I SCOPE
DCA \I
INC SCOPE#
TAD I SCOPE
DCA \I#
INC SCOPE#
DUMMY \J
TAD I SCOPE
DCA \J
INC SCOPE#
TAD I SCOPE
DCA \J#
INC SCOPE#
/      EDIT IN IOF=6001 ON SABR SOURCE BEFORE LINKAGE
/      I1=I
TAD I \I
DCA \I1
/      J1=J
TAD I \J
DCA \J1
     AND I \I1       /DUMMY TO REMOVE 6201 05
     6201            /INDIRECT TO FIELD 0
     TAD (5402
     DCA I ONE       /PUT 5402 IN 00001
     TAD DISPLA      /PUT AD DISP.ROUTINE
     DCA I TWO       /INTO 00002
     TAD \J1
     DCA I MLINES    /0:SCOPE,ELSE NOT
     TAD \J1
     SNA CLA
     JMP OFF         /TURN SCOPE OFF
     TAD \I1
     SNA
     IAC             /I=0 TREATED AS I=1
     SMA
     CIA
     DCA I RFRESH    /-CYCLES/REFRESH
     CMA
     DCA I CYCLES    /-1 TO CYCLE COUNTER
     TAD \I1
     SPA CLA
     JMP NOCLR       /I<0: LEAVE SCOPE BUFFER INTACT
     TAD ADBUFR      /I>0:CLEAR BUFFER
     DCA I EPOINT    /RESET END POINTER
     DCA I PBUFFR    /CLEAR BUFFER(0) - PMODE AD.
     TAD \J
     SMA
     CIA             /-ABS(J)
     DCA I DLINES    /INITIALIZE LINE COUNTER
     NOCLR,  TAD (60
     6134            /CLEN(60): TRIGGER 1=INTERRUPT
     ION             /INTERRUPT FOR SCOPE REFRESH
/      RETURN
RETRN SCOPE
     OFF,    6134    /CLEN(0):TRIGGER 1 OFF
/      RETURN
RETRN SCOPE
     RFRESH,6614
     DLINES,6401
     MLINES,6400
     ADBUFR,1130     /LMODE AD OF 7130
     PBUFFR,7130
     EPOINT,6526
     CYCLES,6615
     DISPLA,6616
     ONE,1
     TWO,2
/      END
CALL 0,EXIT
\I, BLOCK 2
\J, BLOCK 2
[0, BLOCK 2
END 
LAP 
\I1, BLOCK 1
\J1, BLOCK 1
DUMMY [0
CPAGE 6
EAP 
CALL 0,OPEN
PAUSE