home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / GETPATH.MOD < prev    next >
Text File  |  1989-04-01  |  295b  |  19 lines

  1. ;LANS  10-18-88  06:44  GETPATH.MOD
  2. ;
  3. ATWRITE 30 6 138 '#4> '
  4. COLOR 15
  5. IF '$scr_type' <> 'D' U-L
  6. GOTOXY 28 5
  7. GOTO D-L
  8. U-L:
  9. GOTOXY 31 5
  10. D-L:
  11. GET 0 24
  12. ATWRITE 30 6 4 '#4> '
  13. IF '$0' = '' go_back
  14. ASSIGN dirpath '$0'
  15. ATWRITE 34 6 11 '$dirpath                   '
  16. go_back:
  17. RETURN
  18. ;
  19.