home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PWAEQU11.ZIP
/
U.PPS
< prev
next >
Wrap
Text File
|
1995-11-15
|
314b
|
15 lines
string tmpbuf
tmpbuf = ppepath() + "EQUTMP." + string(pcbnode())
if (exist(tmpbuf)) then
delete tmpbuf
endif
tmpbuf = ppepath() + "ATTACH." + string(pcbnode())
if (!exist(tmpbuf)) then
fopen 1, tmpbuf, O_WR, S_DW
fclose 1
endif
kbdstuff "U"