home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
GETLOG.MOD
< prev
next >
Wrap
Text File
|
1989-04-01
|
2KB
|
105 lines
;LANS 10-18-88 08:58 GETLOG.MOD
;
ASSIGN 0 'P'
ASSIGN BBSlog 'PCB'
ASSIGN autosel 'N'
ASSIGN logend 'done'
ASSIGN prtcol 'F'
ASSIGN dirpath 'C:\U2'
ASSIGN YorN 'Y'
ASSIGN Owrite 'Y'
getlog:
CLRSCR
IF $offline offlinemsg
ATWRITE 7 2 14 ' On-line with '
ATWRITE 24 2 78 ' $board '
GOTO jf1
offlinemsg:
ATWRITE 7 2 14 ' Currently Not On-Line'
jf1:
ATWRITE 7 3 6 ' ( )C-Board, ( )xec-PC, ( )Planz, ( )ido, ( )BBS ? '
ATWRITE 61 3 4 '#1> '
SCRIPT getBBS.mod
ATWRITE 65 3 3 '$BBSlog'
ATWRITE 7 4 6 ' Select Auto-Logoff after File Transfers [ or ]? '
ATWRITE 61 4 4 '#2> '
SCRIPT YorN.mod
ATWRITE 65 4 3 '$autosel'
ATWRITE 7 5 6 ' Select Download Protocol [ , , , , , , , , ] '
ATWRITE 56 5 4 '#3> '
ASSIGN 0 '$prtcol'
SCRIPT selprt.mod
ATWRITE 60 5 3 '$prtcol'
ATWRITE 7 6 6 ' Select '
ATWRITE 18 6 13 'Drive:\Path '
ATWRITE 30 6 4 '#4> '
ATWRITE 34 6 3 '$dirpath'
IF '$scr_type' = 'D' get_correct
ATWRITE 7 7 6 ' Keep U/L in conference? [ or ] '
ATWRITE 44 7 4 '#5> '
SCRIPT ULYorN.mod
ATWRITE 48 7 3 '$YorN'
ATWRITE 7 8 6 ' Over-write existing files? [ or ] '
ATWRITE 47 8 4 '#6> '
SCRIPT OWYorN.mod
ATWRITE 51 8 3 '$Owrite'
get_correct:
ATWRITE 7 10 6 ' Selection # or ( )ll to change or ( ) > '
ATWRITE 27 10 13 'A'
ATWRITE 46 10 13 'RET'
IF '$scr_type' <> 'D' U-L
GOTOXY 47 9
GOTO D-L
U-L:
GOTOXY 50 9
D-L:
COLOR 15
GET correct 1
IF '$correct' = '' getone
IF '$correct' = '1' cng_def
IF '$correct' = '2' auto_log
IF '$correct' = '3' prot_col
IF '$correct' = '4' selpath
IF '$scr_type' = 'D' skip5
IF '$correct' = '5' ULconf
IF '$correct' = '6' over_write
skip5:
IF '$correct' = 'A' cng_def
GOTO get_correct
getone:
RETURN
cng_def:
ATWRITE 61 3 138 '#1> '
COLOR 15
IF '$scr_type' <> 'D' U-L1
GOTOXY 59 2
GOTO D-L1
U-L1:
GOTOXY 62 2
D-L1:
GET 0 1
ATWRITE 61 3 4 '#1> '
IF '$0' = '' auto_log
SCRIPT getbbs.mod
ATWRITE 65 3 11 '$BBSlog'
auto_log:
IF '$correct' = '1' get_correct
SCRIPT autolog.mod
prot_col:
IF '$correct' = '2' get_correct
SCRIPT getprt.mod
selpath:
IF '$correct' = '3' get_correct
SCRIPT getpath.mod
ULconf:
IF '$scr_type' = 'D' get_correct
IF '$correct' = '4' get_correct
SCRIPT ULconf.mod
over_write:
IF '$correct' = '5' get_correct
SCRIPT overrite.mod
IF '$correct' = '6' get_correct
IF '$correct' = 'A' get_correct
GOTO get_correct
;