home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / IOTYPE.OPL < prev    next >
Text File  |  1993-02-01  |  748b  |  43 lines
  1.  
  2. PROC IOTYPE:
  3. LOCAL RET%,FNAME$(128),OUTNAME$(128),TXT$(255),ADDR%,HANDLE%,MODE%,K%
  4. PRINT "INPUT FILENAME ", :INPUT FNAME$ :CLS
  5. PRINT "OUT FILENAME ", :INPUT OUTNAME$
  6. CREATE OUTNAME$,A,X$
  7. MODE%= $0400 OR $0020
  8. RET%=IOOPEN(HANDLE%,FNAME$,MODE%)
  9. IF RET%<0
  10.  SHOWERR:(RET%)
  11.  RETURN
  12. ENDIF
  13. ADDR%=ADDR(TXT$)
  14.  WHILE 1
  15.   K%=KEY
  16.   IF K%
  17.    IF K%=27 :RETURN
  18.    ELSEIF GET=27 :RETURN
  19.    ENDIF
  20.   ENDIF
  21.   RET%=IOREAD(HANDLE%,ADDR%+1,255)
  22.   IF RET%<0
  23.    IF RET%<>-36
  24.     SHOWERR:(RET%)
  25.    ENDIF
  26.    BREAK
  27.   ELSE POKEB ADDR%,RET%
  28. PRINT TXT$ :A.X$=TXT$ :APPEND
  29.   ENDIF
  30.  ENDWH
  31.  RET%=IOCLOSE(HANDLE%) :CLOSE
  32.  IF RET%
  33.   SHOWERR:(RET%)
  34.  ENDIF
  35.  PAUSE -100 :KEY
  36. ENDP
  37.  
  38. PROC SHOWERR:(VAL%)
  39.  PRINT "ERROR",VAL%,ERR$(VAL%)
  40.  GET
  41. ENDP
  42.  
  43.