REM The folowing code reads any file. REM You can read OPL file, txt file or REM anything else you may choose. REM This can be useful in programs. PROC Readtxt: LOCAL ret%,fname$(255),txt$(255),address%,handle%,mode%,k%,a1$(255),a2$(255),a3$(255),a4$(255),x%,c%,z% Fname$="\OPL\*.*" dINIT "File to Read" dFILE fname$,"Open File",64 IF DIALOG=0 STOP ENDIF mode%=$0400 OR $0020 ret%=IOOPEN(handle%,fName$,mode%) IF ret%<0 ShowErr: (ret%) RETURN ENDIF address%=ADDR(txt$) WHILE 1 k%=KEY IF k% IF k%=27 RETURN ELSEIF GET=27 RETURN ENDIF ENDIF ret%=IOREAD (handle%,address%+1,255) IF ret%<0 IF ret%<>-36 showErr:(ret%) ENDIF BREAK ELSE POKEB address%,ret% PRINT txt$ ENDIF ENDWH ret%=IOCLOSE(handle%) IF ret% showerr:(ret%) ENDIF PAUSE -100 :KEY ENDP PROC showErr:(val%) PRINT "Error",val%,err$(val%) GET ENDP