home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmmac.zip / MYSTUFF.SMP < prev    next >
Text File  |  1989-02-16  |  684b  |  18 lines
  1. ; Note:  For E3 users, must have USE_APPEND or WANT_GET_ENV set to 1 if you
  2. ; want to copy this into your MYSTUFF.E.  For EOS/2 or EPM users, the
  3. ; default for GET_ENV is 1.
  4.  
  5. definit  -- sample code to point temp files to your VDISK.
  6.    universal vTEMP_PATH, vTEMP_FILENAME
  7.  
  8.    temp_temp = get_env('VDISK')       -- If user has a VDISK set,
  9.    if temp_temp <> '' then            --    use it.
  10.       if length(temp_temp) = 1 then       --    'D'
  11.          temp_temp = temp_temp':\'
  12.       elseif substr(temp_temp,length(temp_temp),1) <>'\' then
  13.          temp_temp = temp_temp'\'
  14.       endif
  15.       vTEMP_PATH = temp_temp
  16.       vTEMP_FILENAME = temp_temp'e.tmp'
  17.    endif
  18.