home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / requestdrawer < prev    next >
Encoding:
AmigaDOS Script File  |  1995-08-27  |  443 b   |  22 lines
  1. .key default/A,title/A,outfile/A,DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:
  6.  
  7. IF EXISTS C:RequestFile
  8.     RequestFile >{outfile} DRAWER "{default}" TITLE "{title}" SAVEMODE DRAWERSONLY
  9.     IF WARN
  10.         Echo >{outfile} "*"{default}*""
  11.         Set requestdrawerresult 5
  12.     ENDIF
  13. ELSE
  14.     :C/NessyFileRequester >{outfile} "{default}" "{title}" SAVEMODE DRAWERSONLY
  15.     IF WARN
  16.         Echo >{outfile} "*"{default}*""
  17.         Set requestdrawerresult 5
  18.     ENDIF
  19. ENDIF
  20.  
  21. :C/return $requestdrawerresult
  22.