home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / UPLOAD.PCB (.png) < prev    next >
PC-Board  |  1989-04-01  |  4KB  |  640x2640
Labels: text | screenshot
OCR: LANS 10-18-88 20:13 UPLOAD . PCB SEND '^M' WHEN WHEN ' keep upload inside' '$YorN^M' WHEN 'over-write' '$Owrite^M' WHEN 'duplicate' file2 COLOR 3 IF '$1' = WAITFOR 'ommand?' go_back SEND 'u $1 $prtcol^M' WHEN 'command?' file2 WAITFOR ' SEND 'Sdesc1^M' WAITFOR 'Ctrl-X' WINDOW 1 1 80 24 ATWRITE 4 3 138 ' File 1 >' JPLD $pcb-prtcol $dirpath\$1 ATWRITE 4 3 13 ' File 1 >' COLOR 12 BOX 1,14,80, $last_row CLRSCR file2 : WHEN WHEN 'keep upload inside' '$YorN^M' WHEN 'over-write' '$Owrite^M' WHEN 'duplicate' file3 COLOR 3 IF '$2' = '' go_back WAITFOR 'ommand?' SEND 'u $2 $prtcol^M' WHEN ' command?' file3 WAITFOR ' SEND 'Sdesc2^M' WAITFOR 'Ctrl-X' WINDOW 1 1 80 24 ATWRITE 4 4 138 ' File 2 >' UPLD $pcb-prtcol $dirpath\$2 ATWRITE 4 4 13 ' File 2 >' COLOR 12 BOX 1,14,80, $last_row CLRSCR file3: WHEN WH ...