home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
DNLOAD.EPC
< prev
next >
Wrap
Text File
|
1989-04-01
|
6KB
|
296 lines
;LANS 10-18-88 06:35 DNLOAD.EPC
;
IF '$1' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$1;$prtcol^M'
WHEN 'RETURN for main menu.' next2
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 3 138 'File # 1 >'
DOWNLD $prtcol $dirpath\$1
ATWRITE 11 3 13 'File # 1 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
;
next2:
IF '$2' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$2;$prtcol^M'
WHEN 'RETURN for main menu.' next3
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 3 138 'File # 2 >'
DOWNLD $prtcol $dirpath\$2
ATWRITE 45 3 13 'File # 2 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next3:
IF '$3' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$3;$prtcol^M'
WHEN 'RETURN for main menu.' next4
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 4 138 'File # 3 >'
DOWNLD $prtcol $dirpath\$3
ATWRITE 11 4 13 'File # 3 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next4:
IF '$4' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$4;$prtcol^M'
WHEN 'RETURN for main menu.' next5
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 4 138 'File # 4 >'
DOWNLD $prtcol $dirpath\$4
ATWRITE 45 4 13 'File # 4 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next5:
IF '$5' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$5;$prtcol^M'
WHEN 'RETURN for main menu.' next6
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 5 138 'File # 5 >'
DOWNLD $prtcol $dirpath\$5
ATWRITE 11 5 13 'File # 5 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next6:
IF '$6' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$6;$prtcol^M'
WHEN 'RETURN for main menu.' next7
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 5 138 'File # 6 >'
DOWNLD $prtcol $dirpath\$6
ATWRITE 45 5 13 'File # 6 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next7:
IF '$7' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$7;$prtcol^M'
WHEN 'RETURN for main menu.' next8
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 6 138 'File # 7 >'
DOWNLD $prtcol $dirpath\$7
ATWRITE 11 6 13 'File # 7 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next8:
IF '$8' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$8;$prtcol^M'
WHEN 'RETURN for main menu.' next9
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 6 138 'File # 8 >'
DOWNLD $prtcol $dirpath\$8
ATWRITE 45 6 13 'File # 8 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next9:
IF '$9' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$9;$prtcol^M'
WHEN 'RETURN for main menu.' next10
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 7 138 'File # 9 >'
DOWNLD $prtcol $dirpath\$9
ATWRITE 11 7 13 'File # 9 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next10:
IF '$f10' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$f10;$prtcol^M'
WHEN 'RETURN for main menu.' next11
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 7 138 'File #10 >'
DOWNLD $prtcol $dirpath\$f10
ATWRITE 45 7 13 'File #10 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next11:
IF '$f11' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$f11;$prtcol^M'
WHEN 'RETURN for main menu.' next12
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 8 138 'File #11 >'
DOWNLD $prtcol $dirpath\$f11
ATWRITE 11 8 13 'File #11 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next12:
IF '$f12' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$f12;$prtcol^M'
WHEN 'RETURN for main menu.' next13
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 8 138 'File #12 >'
DOWNLD $prtcol $dirpath\$f12
GOTOXY 41 8
COLOR 13
ATWRITE 45 8 13 'File #12 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next13:
IF '$f13' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$f13;$prtcol^M'
WHEN 'RETURN for main menu.' next14
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 9 138 'File #13 >'
DOWNLD $prtcol $dirpath\$f13
ATWRITE 11 9 13 'File #13 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next14:
IF '$f14' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$f14;$prtcol^M'
WHEN 'RETURN for main menu.' next15
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 9 138 'File #14 >'
DOWNLD $prtcol $dirpath\$f14
ATWRITE 45 9 13 'File #14 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next15:
IF '$f15' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$f15;$prtcol^M'
WHEN 'RETURN for main menu.' next16
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 11 10 138 'File #15 >'
DOWNLD $prtcol $dirpath\$f15
ATWRITE 11 10 13 'File #15 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
next16:
IF '$f16' = '' go_back
COLOR 3
SEND '^M'
WHEN
WHEN '?) -->' 'd'
WAITFOR '(ENTER to quit) -->'
SEND '$f16;$prtcol^M'
WHEN 'RETURN for main menu.' go_back
WAITFOR 'FLAG>>'
PAUSE 1500
WINDOW 1 1 80 24
ATWRITE 45 10 138 'File #16 >'
DOWNLD $prtcol $dirpath\$f16
ATWRITE 45 10 13 'File #16 >'
COLOR 12
BOX 1,14,80,$last_row
CLRSCR
go_back:
RETURN
;