home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd617 / len_tucker / pathof.amos / pathof.amosSourceCode
AMOS Source Code  |  1986-08-03  |  466b  |  32 lines
  1. F$=Fsel$("","","")
  2. PATHOF_EASY[F$]
  3. Print Param$
  4. Procedure PATHOF_CLASSIC[FL$]
  5. FL$=Flip$(FL$)
  6. I=Instr(FL$,"/")
  7. If I=0
  8. I=Instr(FL$,":")
  9. FO$=Mid$(FL$,I)
  10. Else 
  11. FO$=Mid$(FL$,I)
  12. End If 
  13. FO$=Flip$(FO$)
  14. End Proc[FO$]
  15. Procedure PATHOF_EASY[FL$]
  16. For Z=Len(FL$) To 1 Step -1
  17. T$=T$+Mid$(FL$,Z,1)
  18. Next Z
  19. FL$=T$
  20. I=Instr(FL$,"/")
  21. If I=0
  22. I=Instr(FL$,":")
  23. FO$=Mid$(FL$,I)
  24. Else 
  25. FO$=Mid$(FL$,I)
  26. End If 
  27. T$=""
  28. For Z=Len(FO$) To 1 Step -1
  29. T$=T$+Mid$(FO$,Z,1)
  30. Next Z
  31. FO$=T$
  32. End Proc[FO$]