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