home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
DNSEL.016
< prev
next >
Wrap
Text File
|
1989-04-01
|
756b
|
42 lines
;LANS 10-18-88 17:33 DNSEL.016
;
GOTO Select16
go_back:
ASSIGN 0 'Go_back'
RETURN
select16:
ATWRITE 45 10 2 'File #16 > '
COLOR 3
GOTOXY 50 9
GET 0 12
IF '$0' = '' no_entry
ASSIGN f16 '$0'
no_entry:
IF '$f16' = ' ' blank_file
IF '$f16' = '' go_back
Check16:
EXIST $dirpath\$f16 Redo16
GOTO Go_back
Redo16:
ASSIGN 0 '$f16'
ATWRITE 56 10 143 '** EXISTS **'
PAUSE 2000
ATWRITE 56 10 3 ' '
ATWRITE 56 10 3 '$f16'
GOTOXY 50 9
COLOR 11
GET 0 12
IF '$0' = ' ' blank_file
IF '$0' = '' Go_back
ATWRITE 56 10 11 ' '
ATWRITE 56 10 11 '$0'
ASSIGN f16 '$0'
GOTO Check16
blank_file:
ATWRITE 56 10 143 '* End of Entries *'
PAUSE 2500
ATWRITE 56 10 143 ' '
ASSIGN f16 ''
GOTO go_back
;