7m…ôcU”\cd!REM The folowing code reads any file.REM You can read OPL file, txt file orREM 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$="C:\ReadTXT.txt" dINIT "File to Read" dEDIT fname$,"Open File",20 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 :KEYENDPPROC showErr:(val%) PRINT "Error",val%,err$(val%) GETENDPÐР   \cîefd\cöefdý‚.ÆA…*TextEd.app…þ‰…