PROC IOTYPE: LOCAL RET%,FNAME$(128),OUTNAME$(128),TXT$(255),ADDR%,HANDLE%,MODE%,K% PRINT "INPUT FILENAME ", :INPUT FNAME$ :CLS PRINT "OUT FILENAME ", :INPUT OUTNAME$ CREATE OUTNAME$,A,X$ MODE%= $0400 OR $0020 RET%=IOOPEN(HANDLE%,FNAME$,MODE%) IF RET%<0 SHOWERR:(RET%) RETURN ENDIF ADDR%=ADDR(TXT$) WHILE 1 K%=KEY IF K% IF K%=27 :RETURN ELSEIF GET=27 :RETURN ENDIF ENDIF RET%=IOREAD(HANDLE%,ADDR%+1,255) IF RET%<0 IF RET%<>-36 SHOWERR:(RET%) ENDIF BREAK ELSE POKEB ADDR%,RET% PRINT TXT$ :A.X$=TXT$ :APPEND ENDIF ENDWH RET%=IOCLOSE(HANDLE%) :CLOSE IF RET% SHOWERR:(RET%) ENDIF PAUSE -100 :KEY ENDP PROC SHOWERR:(VAL%) PRINT "ERROR",VAL%,ERR$(VAL%) GET ENDP