PROC Main:
GLOBAL Handle%,F$(255),Eof%
LOCAL lc2z$(255),C%,H%,Leng%
F$="\TXT\"
dINIT "TXT Reader"
dFILE F$,"",0
IF DIALOG=0
STOP
ENDIF
Open:(F$)
DO
C%=C%+1
IF C%=18
C%=1
GET
ENDIF
lc2z$=Read$:
IF lc2z$="+++EOF+++"
PRINT "+++EOF+++"
GET
Main:
ENDIF
PRINT lc2z$
UNTIL 1=2
GET
ENDP

PROC Open:(pr4z$)
LOCAL lc6z%
lc6z%=IOOPEN(Handle%,pr4z$,1056)
IF lc6z%<0
Error:(lc6z%)
ENDIF
ENDP

PROC Read$:
LOCAL lc9z$(255),lc10z%,lc8z%
lc8z%=ADDR(lc9z$)
lc10z%=IOREAD(Handle%,lc8z%+1,255)
IF lc10z%<0
PRINT ERR$(lc10z%)
RETURN "+++EOF+++"
ENDIF
IF NOT Eof%
POKEB lc8z%,lc10z%
RETURN lc9z$
ELSE
RETURN "+++EOF+++"
ENDIF
ENDP