/CLEAR BUFFER AND ADD FRAME/

FIND=200
FIELD 1
*200
CLBUFR, CLA
  TAD (1600)
  DCA TINDEX
  DCA I TINDEX
  ISZ TINDEX
  JMP .-2
VLINE, TAD (3564)
  DCA INDEXL
  TAD (-2)
  DCA INDEXF
  IAC
  DCA TEMP
  TAD (-102)
  DCA INDEXT
  TAD TEMP
  DCA I INDEXL
  TAD INDEXL
  TAD (20)
  DCA INDEXL
  ISZ INDEXT
  JMP .-6
  ISZ INDEXF
  JMP MOD1
  JMP HLINE
MOD1, TAD (3572)
  DCA INDEXL
  TAD (0200)
  DCA TEMP
  JMP VLINE+6
HLINE, TAD (3565)
  DCA INDEXL
  TAD (-2)
  DCA INDEXF
  TAD (-5)
  DCA INDEXT
  TAD (-1)
  DCA I INDEXL
  ISZ INDEXL
  ISZ INDEXT
  JMP .-4
  TAD (7600)
  DCA I INDEXL
  ISZ INDEXF
  JMP MOD2
  CDF CIF 00
  JMP FIND
MOD2, TAD (5605)
  DCA INDEXL
  JMP HLINE+4
TEMP, 0
TINDEX, 0
INDEXL, 0
INDEXF, 0
INDEXT, 0
$