File: PAGELD.TE of Tape: Various/ETH/htb1

(Source file text) 

---

ERPAGE.TEYJ

!1! :S@@"EOEND'-2AUC L .U1 !2! S@@E -2AUD 

!3! QD-QC"N !4! 
FEHLER:
 ZJ.U3QCIQDI Q3,.T OEND'

!5! 0L.U2 IQ1,Q2X QCI K 10I

!6! 2R 0L XZ MZ O1 

!7!!END!HK XZ XY
!
1	S BEG ROUTINE: @C.  C=QC .=Q1
2	S END
3	DO CHARS MATCH ?
4	NO, MESSAGE, TYPE CHARS
5	YES, INSERT QREG LOAD COMM.
6	COMM. IN XZ, EXECUTE, NEXT ROUTINE
7	ERASE BUFFER, XZ AND XY
!

---