home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
DNSEL.005
< prev
next >
Wrap
Text File
|
1989-04-01
|
764b
|
45 lines
;LANS 10-18-88 09:17 DNSEL.005
;
GOTO Select5
go_back:
ASSIGN 0 'Go_back'
RETURN
select5:
ATWRITE 11 5 2 'File # 5 > '
COLOR 3
GOTOXY 16 4
GET 0 12
IF '$0' = '' no_entry
ASSIGN 5 '$0'
no_entry:
IF '$5' = ' ' blank_file
IF '$5' = '' go_back
Check5:
EXIST $dirpath\$5 Redo5
GOTO Select6
Redo5:
ASSIGN 0 '$5'
ATWRITE 22 5 143 '** EXISTS **'
PAUSE 2000
ATWRITE 22 5 3 ' '
ATWRITE 22 5 3 '$5'
GOTOXY 16 4
COLOR 11
GET 0 12
IF '$0' = ' ' blank_file
IF '$0' = '' Select6
ATWRITE 22 5 11 ' '
ATWRITE 22 5 11 '$0'
ASSIGN 5 '$0'
GOTO Check5
select6:
ASSIGN 0 'Select6'
RETURN
blank_file:
ATWRITE 22 5 143 '* End of Entries *'
PAUSE 2500
ATWRITE 22 5 143 ' '
ASSIGN 5 ''
GOTO go_back
;