/FIND/

FIELD 0

                         /8-30-73/

LISN=43
DEMO=7100
TRAINI=1400
TRAINS=2001
IDENT=1200
TEST=400
CLBUFR=200
SCOPE=76
IMAGE=7200

FIND, JMS LISN
  AND (0007)
  TAD (5210)
  DCA .+1
  NOP
*210
  JMP DEMO
  JMP A
  JMP TRAINI
  JMP TRAINS
  JMP IDENT
  JMP TEST
  CDF CIF 10
  JMP CLBUFR
A, CLA CLL
 TAD (1600)
 6150
 NOP
 NOP
 TAD (0022)
 6151
 TAD (-1400)
 DCA INDEXS
 6156
 JMP .-1
 ISZ INDEXS
 JMP .-2
 6152
 JMP FIND
INDEXS, 0
  JMP FIND
$