home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CASIOCOL.ZIP / KRILE1C.ZIP / SOURCE.ZIP / TESTA.ASI < prev    next >
Text File  |  1997-12-05  |  264b  |  27 lines
  1. a$=filename$
  2. b=len(a$)
  3. b=b-4
  4. b$=left$(a$,b)
  5. print b$
  6. b=len(b$)
  7. d=varptr(b$)
  8. c=d+b
  9. e=c
  10. exit=0
  11. while exit=0
  12. a=peek(c)
  13. a$=chr$(a)
  14. if a$="\" then
  15. e=len(temp$)
  16. exit=1
  17. else
  18. temp$=temp$+a$
  19. c=c-1
  20. e=e-c
  21. endif
  22. wend
  23.  
  24. file_name$=right$(b$,e)
  25. return
  26.  
  27.