home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
GETPATH.MOD
< prev
next >
Wrap
Text File
|
1989-04-01
|
295b
|
19 lines
;LANS 10-18-88 06:44 GETPATH.MOD
;
ATWRITE 30 6 138 '#4> '
COLOR 15
IF '$scr_type' <> 'D' U-L
GOTOXY 28 5
GOTO D-L
U-L:
GOTOXY 31 5
D-L:
GET 0 24
ATWRITE 30 6 4 '#4> '
IF '$0' = '' go_back
ASSIGN dirpath '$0'
ATWRITE 34 6 11 '$dirpath '
go_back:
RETURN
;