240)
  KSF 100
  JMP .+3
  KCF 100
  JMP START
  TSF
  JMP .-1
  TLS
  ISZ POINTR
  ISZ TOTAL
  JMP .+2
  JMP START
  ISZ CHRCNT
  JMP CHRKP
NEWFRM,CLA
  TAD (215)
  TSF
  JMP .-1
  TLS
  CLA
  TAD (212)
  TSF
  JMP .-1
  TLS
  JMP LINEFD
*400
CHAR, CLA CLL/GET NEW CHARACTER
  TAD (337)
  DCA I POINTR
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA CHEK
  TAD CHEK/ CHECK FOR CONTROL-C=RETURN TO MONITOR
  TAD (-3)
  SNA CLA
  JMP END
  TAD CHEK/CHECK FOR A LF=HARDCOPY OF PAGE
  TAD (-12)
  SNA CLA
  JMP PRINT
  TAD CHEK/CHECK FOR A CR
  TAD (-15)
  SZA CLA
  JMP .+4
  TAD (40)
  DCA I POINTR
  JMP LINE
  TAD CHEK/CHECK FOR  A TAB
  TAD (-11)
  SZA CLA
  JMP .+31
  TAD (40)
  DCA I POINTR
  TAD POINTR
  AND (17)
  SNA
  JMP .+6
  CIA
  AND (17)
  TAD POINTR
  DCA POINTR
  JMP .+5
  CLA
  TAD (20)
  TAD POINTR
  DCA POINTR
  CLA CLL
  TAD (2000)
  TAD POINTR
  SNL
  JMP CHAR
  CLA
  TAD (5777)
  DCA POINTR
  JMP CHAR
  TAD CHEK/CHECK FOR A RUBOUT
  TAD (-177)
  SZA CLA
  JMP .+15
  TAD (40)
  DCA I POINTR
  TAD POINTR
  TAD (-1)
  DCA POINTR
  TAD POINTR
  TAD (-777)
  SZA CLA
  JMP CHAR
  TAD (BUFF1)
  DCA POINTR
  JMP CHAR
  TAD CHEK/DISPLAY CHARACTER
  DCA I POINTR
  ISZ POINTR
  TAD POINTR
  TAD (-6000)
  SZA
  JMP CHAR
  TAD (5777)
  DCA POINTR
  JMP CHAR
END,TAD (40)/FETCH AND STORE BUFFERS
  DCA I POINTR
  6152
  CDF 10
  CIF 10
  JMP I (200)
*600
NPAGE,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA PAGES
  TAD PAGES
  TAD (-60)
  SZA
  JMP .+5
  CLA
  TAD (BUFF1)
  DCA BUFFER
  JMP START
  CLA
  TAD (BUFF2)
  DCA BUFFER
  JMP START
*700
BLANK,CLA
  TAD POINTR
  DCA TEMP
  ISZ POINTR
  TAD POINTR
  AND (77)
  SNA CLA
  JMP BLKFIX
  TAD I POINTR
  TAD (-40)
  SNA CLA
  JMP BLANK+3
  TAD TEMP
  DCA POINTR
  JMP CHRKP+6
BLKFIX,TAD TEMP
  CIA
  TAD POINTR
  TAD TOTAL
  SNA
  JMP START
  DCA TOTAL
  JMP NEWFRM
*1000
BUFF1,0
  *3400
BUFF2,0
*6000
  3000
FIELD 1
*20
NEXTC,0
*200
NEXT,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA NEXTC
  TAD NEXTC
  TAD (-123)
  SNA CLA
  JMP I (400)
  TAD NEXTC
  TAD (-122)
  SNA CLA
  JMP I (1000)
  CDF 00
  CIF 00
  JMP I (200)
$$$$$$$$$$$
$$$$$$$$$$
/PART OF CRUDS WHICH SAVES BUFFERS
MQL=7421
MQA=7501
BSW=7002
FIELD 1
*400
A, CLA CLL /DISPLAY A NAME BUFFER
 TAD (-7)
 DCA CNT
 TAD (BUFFER+1)
 DCA DPOINT
 TAD (3000)
 DCA I DPOINT
 ISZ DPOINT
 ISZ CNT
 JMP .-4
 CLA CLL
 TAD (BUFFER)
 6150
   TAD (10)
 6151
 TAD (BUFFER)
 DCA DPOINT
 A1, KSF 100
 JMP .-1
 KRB 100
 AND (0177)
 DCA I DPOINT
 JMS FIND
 ISZ DPOINT
 CLA CLL
 TAD (BUFFER+7)
 CIA
 TAD DPOINT
 SPA CLA
 JMP A1
 TAD (BUFFER+6)
 DCA DPOINT
 JMP A1
FIND,0/ACCEPT A SIX CHARACTER NAME
 TAD I DPOINT
 TAD (-54)
 SZA CLA
 JMP F1
 CLA CLL CMA RAL
 TAD DPOINT
 DCA DPOINT
 TAD (BUFFER-1)
 CIA
 TAD DPOINT
 SMA SZA CLA
 JMP I FIND
 TAD (BUFFER-1)
 DCA DPOINT
 JMP I FIND
F1, TAD I DPOINT
 TAD (-15)
 SZA CLA
 JMP I FIND
 JMP COMPRS
BUFFER,0063
0
0
0
0
0
0
0
COMPRS, CLA CLL/COMPRESS SIX CHARACTERS INTO THREE WORDS
 TAD BUFFER
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+1
 AND (77)
 TAD TEMP1
 DCA NAME
 TAD BUFFER+2
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+3
 AND (77)
 TAD TEMP1
 DCA NAME+1
 TAD BUFFER+4
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+5
 AND (77)
 TAD TEM