*20/CRUDS4
  KCF=6030
  TOTAL,0
  BUFFER,1000
  PAGES,0
  PCHEK,0
  CHRCNT,0
  CNT,0
  FLAG,0
  POINTR,0
  CHEK,0
*200
  CLA
  TAD (1000)
  DCA BUFFER
  TLS
  TAD FLAG
  SZA
  JMP START
  TAD (-5200)
  DCA CNT
  TAD (BUFF1)
  DCA POINTR
  TAD (BUFF1)
  DCA FLAG
CLEAR,CLA/CLEAR THE BUFFER
  TAD (40)
  DCA I POINTR
  ISZ POINTR
  ISZ CNT
  JMP CLEAR
START,CLA CLL
  TAD BUFFER
  6150
  6151
  CLA
  TAD BUFFER
  DCA POINTR
  JMP CHAR
LINE,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA PCHEK
  TAD PCHEK
  TAD (-12)
  SNA
  JMP NPAGE
  CLA CLL
  TAD PCHEK
  AND (1)
  SZA
  JMP ONE
  KSF 100
  JMP .-1
  KRB 100
  AND (17)
  RTL
  RTL
  RTL
  TAD BUFFER
  DCA POINTR
  JMP CHAR
ONE,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (17)
  RTL
  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
  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 (254)
  DCA I POINTR
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA CHEK
  TAD CHEK/ CHECK FOR CONTROL-C=RETURN TO MONITOR
  TAD (-3)
  SZA
  JMP .+2
  JMP END
  CLA
  TAD CHEK/CHECK FOR A LF=HARDCOPY OF PAGE
  TAD (-12)
  SZA
  JMP .+2
  JMP PRINT
  CLA
  TAD CHEK/CHECK FOR A CR
  TAD (-15)
  SZA
  JMP .+4
  TAD (40)
  DCA I POINTR
  JMP LINE
  CLA
  TAD CHEK/CHECK FOR  A TAB
  TAD (-11)
  SZA
  JMP .+17
  TAD (40)
  DCA I POINTR
  TAD (20)
  TAD POINTR
  DCA POINTR
  CLA CLL
  TAD (2000)
  TAD POINTR
  SNL
  JMP CHAR
  CLA
  TAD (5777)
  DCA POINTR
  JMP CHAR
  CLA
  TAD CHEK/CHECK FOR A RUBOUT
  TAD (-177)
  SZA
  JMP .+17
  CLA
  TAD (40)
  DCA I POINTR
  TAD POINTR
  TAD (-1)
  DCA POINTR
  TAD POINTR
  TAD (-777)
  SZA
  JMP CHAR
  CLA
  TAD (BUFF1)
  DCA POINTR
  JMP CHAR
  CLA/DISPLAY CHARACTER
  TAD CHEK
  DCA I POINTR
  ISZ POINTR
  TAD POINTR
  TAD (-6000)
  SZA
  JMP CHAR
  TAD (5777)
  DCA POINTR
  JMP CHAR
END,CLA/RETURN TO THE MONITOR
  TAD (40)
  DCA I POINTR
  6152
  JMP I (7600)
*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
*1000
BUFF1,0
  *3400
BUFF2,0
*6000
  3000
$$$$$$$$$$$
$$$$$$$$$$
B@B:?0&< *>??:=*;1(1):/<;1*1;:<(/9;8< *41**17888/<;1*5178886/<:=1*5+:4:31+1*0!+0&+*+:20!+0&:10!+#0&+	C1
?,

?6
? D;?1*1>=< *+:<< */;::< *9/8:7< *.96;5<*:4*:3< +
:92