home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP16_7.PRG < prev    next >
Encoding:
Text File  |  1994-01-17  |  1.9 KB  |  54 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP16_7.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ FERROR() ║»╩²╡─╖╢└².                            ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR
  7. tmpfile = SYS(3)            && ╜¿┴ó╥╗╕÷┴┘╩▒╬─╝■├√
  8. handle = FCREATE(tmpfile)   && ┤≥┐¬┴┘╩▒╬─╝■
  9.  
  10. IF handle < 0               && ╖ó╔·┤φ╬≤╩▒┤ª└φ
  11.     DO CASE                 && Determine which error
  12.         CASE FERROR() = 2
  13.             reason = ' ╒╥▓╗╡╜╬─╝■! '
  14.         CASE FERROR() = 4
  15.             reason = ' ┤≥┐¬╬─╝■╠½╢α! '
  16.         CASE FERROR() = 5
  17.             reason = ' ├ⁿ┴ε╓┤╨╨╖╜╩╜┤φ╬≤! '
  18.         CASE FERROR() = 8
  19.             reason = ' ─┌┤µ▓╗╣╗! '
  20.         CASE FERROR() = 29
  21.             reason = ' ┤┼┼╠╬▐╩ú╙α┐╒╝Σ! '
  22.         CASE FERROR() = 31
  23.             reason = ' ┤≥┐¬╬─╝■┤φ╬≤╗≥╥╗░π┤φ╬≤ '
  24.      ENDCASE
  25.     * ╧╘╩╛┤φ╬≤╘¡╥≥
  26.     WAIT WINDOW ' ▓╗─▄╜¿┴ó╬─╝■, ╥≥ '+ reason NOWAIT
  27.     RETURN
  28. ELSE                        && ╬─╝■╜¿┴ó│╔╣ª
  29.     DEFINE WINDOW wingets FROM 8,20 TO 16,60 ;
  30.         CLOSE FLOAT SHADOW  ;
  31.         COLOR SCHEME 5 TITLE ' ╩²╛▌┬╝╚δ '
  32.     ACTIVATE WINDOW wingets
  33.     @ 1,5 SAY "╨╒├√:" GET fname DEFAULT SPACE (15)
  34.     @ 3,5 SAY "╨╘▒≡:" GET lname DEFAULT SPACE (15)
  35.     @ 5,5 SAY "╓░╬±:" GET pos   DEFAULT SPACE (15)
  36.     READ
  37.     =FWRITE(handle,'╨╒├√:')  && Output info entered  by the user
  38.     =FPUTS(handle,fname)
  39.     =FWRITE(handle,'╨╘▒≡:')
  40.     =FPUTS(handle,lname)
  41.     =FWRITE(handle, '╓░╬±:')
  42.     =FPUTS(handle,pos)
  43.     =FCLOSE(handle)                 && ╣╪▒╒╬─╝■
  44.     DEACTIVATE WINDOW wingets
  45.     WAIT ' ░┤╚╬╥╗╝ⁿ╥╘╧╘╩╛╬─╝■ ' WINDOW
  46.  ENDIF
  47.  IF !WEXIST('wingets')
  48.      DEFINE WINDOW wingets FROM 8,20 TO 16,60 ;
  49.          CLOSE FLOAT SHADOW  ;
  50.          COLOR SCHEME 8 TITLE ' ╩²╛▌┬╝╚δ '
  51.  ENDIF
  52.  MODIFY FILE (tmpfile) NOWAIT WINDOW wingets && View the file
  53.  CLEAR WINDOW    && Remove the window
  54.