home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
CASIOCOL.ZIP
/
KRILE1D.ZIP
/
SOURCE.ZIP
/
TESTA.ASI
< prev
next >
Wrap
Text File
|
1997-12-05
|
264b
|
27 lines
a$=filename$
b=len(a$)
b=b-4
b$=left$(a$,b)
print b$
b=len(b$)
d=varptr(b$)
c=d+b
e=c
exit=0
while exit=0
a=peek(c)
a$=chr$(a)
if a$="\" then
e=len(temp$)
exit=1
else
temp$=temp$+a$
c=c-1
e=e-c
endif
wend
file_name$=right$(b$,e)
return