ISZ CNT
  JMP CLEAR
START,CLA CLL
  TAD BUFFER
  6150
  6151
  TAD BUFFER
  DCA POINTR
  JMP CHAR
LINE,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA PCHEK
  TAD PCHEK
  TAD (-12)
  SNA CLA
  JMP NPAGE
  TAD PCHEK
  AND (1)
  SZA CLA
  JMP ONE
  KSF 100
  JMP .-1
  KRB 100
  AND (17)
  RTL CLL
  RTL
  RTL
  TAD BUFFER
  DCA POINTR
  JMP CHAR
ONE,KSF 100
  JMP .-1
  KRB 100
  AND (17)
  RTL CLL
  RTL
  RTL
  TAD (1200)
  TAD BUFFER
  DCA POINTR
  JMP CHAR
PRINT,CLA/PRINT THE BUFFER
  TAD (40)
  DCA I POINTR
  6152
  TAD BUFFER
  DCA POINTR 
  TAD (-2400)
  DCA TOTAL
  JMP NEWFRM
LINEFD,CLA
  TAD (-100)
  DCA CHRCNT
CHRKP,CLA
  TAD (200)
  TAD I POINTR
  TAD (-240)
  SNA
  JMP BLANK
  TAD (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
  AN