home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
UP.SCR
< prev
next >
Wrap
Text File
|
1989-04-01
|
1KB
|
53 lines
;LANS 10-18-88 13:55 UP.SCR
;
GETSCR
CLRSCR
COLOR 15
BOX 3 1 78 13
STRING login logend dirpath correct prtcol YorN BBSlog autosel
STRING desc1 desc2 desc3 desc4 desc5 desc6 desc7 desc8 scr_type
STRING pcb-prtcol
STRING Owrite num_file
ASSIGN scr_type 'U'
ASSIGN num_file 'EIGHT (8)'
CLRSCR
ATWRITE 7 3 14 ' ****-'
ATWRITE 13 3 29 'Multiple'
ATWRITE 21 3 15 '-File UpLoad/Logoff - Qmodem 4.0-****'
SCRIPT initmsg.mod
GOTO add
edit-entry:
SCRIPT upedit.mod
GOTO go
add:
SCRIPT upsel.mod
go:
ATWRITE 7 11 6 ' ( )uit, ( )dd, ( )dit or ( )pload? '
ATWRITE 12 11 13 'Q'
ATWRITE 20 11 13 'A'
ATWRITE 27 11 13 'E'
ATWRITE 37 11 14 'U'
ATWRITE 46 11 3 'U'
GOTOXY 43 10
COLOR 15
GET 0 1
IF '$0' = '' go2
IF '$0' = 'U' go2
IF '$0' = 'E' edit-entry
IF '$0' = 'A' add
IF '$0' = 'Q' done
GOTO go
go2:
SCRIPT txt_area.mod
TIMEOUT 60 $logend
IF '$board' = '' $logend
SCRIPT upload.$BBSlog
GOTO $logend
done:
COLOR 11
PUTSCR
EXIT
logoff:
SCRIPT logoff.mod
;