home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
DOOR
/
1STDEAL.ZIP
/
MASTER.SCR
< prev
next >
Wrap
Text File
|
1994-09-01
|
5KB
|
151 lines
:TOP
CLS 7
IF GREATER(@BAUD@,2400) THEN SHOWFILE "LOGO1" ELSE SHOWFILE "LOGO2"
BOX(8,10,21,70,112,112,1,1,"","Main menu")
APRINT("@X0F 1 @X70 What is offline mail?",10,21)
APRINT("@X0F 2 @X70 How can 1stReader help you?",12,21)
APRINT("@X0F 3 @X70 Download your demo copy of 1stReader",14,21)
APRINT("@X0F 4 @X70 Receive a coupon good for @X71$3.00",16,21)
APRINT("@X70off 1stReader's $25 registration",17,26)
APRINT("@X0F 5 @X70 Quit and return to the BBS",19,21)
APRINT("@X0E(@X0C@TIMELEFT@@X0E mins. left) @X0FPlease select your choice (1-5)? ",24,10)
:CHOICE
GETKEY(Choice$,"12345")
ON Choice$ GOTO CHOICE1,CHOICE2,CHOICE3,CHOICE4,CHOICE5
GOTO CHOICE
:CHOICE1
CLS
SHOWFILE "OFFLINE.TXT"
PRINT
PRINT "Press any key to continue ";
PAUSE
GOTO TOP
:CHOICE2
CLS
SHOWFILE "1ST.TXT"
PRINT
PRINT "Press any key to continue... ";
PAUSE
GOTO TOP
:CHOICE3
CLS
PRINT "@X0FDownload your demo copy of 1stReader (@X0C@FILESIZE(1ST-112.ZIP) @X0Fbytes in size)"
PRINT "@X0E────────────────────────────────────────────────────────────────"
PRINT
SET_FILE @SYSDIR@1ST-112.ZIP
GOSUB SET_PROTOCOL
CLS
PRINT "@X0FReady to transmit the 1stReader demo system"
PRINT "@X0E───────────────────────────────────────────"
PRINT
PRINT "@X0BProtocol: @X0E@PROT_NAME@"
PRINT "@X0BFilename: @X0E1ST-112.ZIP"
PRINT "@X0BFilesize: @X0C@FILESIZE(1ST-112.ZIP) @X0Ebytes"
PRINT
PRINT "@X0EInstallation instructions:@X0B"
PRINT
PRINT " 1. Create a subdirectory named C:\1ST"
PRINT " 2. Unzip 1ST-112.ZIP into the C:\1ST subdirectory."
PRINT " 3. CHDIR into the C:\1ST subdirectory."
PRINT " 4. Type '@X0EINSTALL@X0B' and press the ENTER key."
PRINT " 5. Follow the instructions on your screen."
PRINT
PRINT "@X0EPress any key to begin downloading 1stReader...@X07";
PAUSE
PRINT
SHELL "@PROT_UP@"
PAUSE 5
PRINT
PRINT "Press any key to continue... ";
PAUSE
GOTO TOP
:CHOICE4
CLS
PRINT "@X0FDownload your 1stReader coupon"
PRINT "@X0E──────────────────────────────"
PRINT
SET_FILE 1ST.CPN
GOSUB SET_PROTOCOL
COUPON 1ST
IF EXIST 1ST.CPN THEN GOTO READY
PRINT
PRINT "Sorry, but we could not create a coupon."
PRINT
PRINT "Press any key to continue... ";
PAUSE
GOTO TOP
:READY
CLS
PRINT "@X0FReady to transmit the 1stReader coupon"
PRINT "@X0E──────────────────────────────────────"
PRINT
PRINT "@X0BProtocol: @X0E@PROT_NAME@"
PRINT "@X0BFilename: @X0E1ST.CPN"
PRINT
PRINT "@X0EInstallation instructions:@X0B"
PRINT
PRINT " 1. Copy 1ST.CPN into the C:\1ST subdirectory."
PRINT " 2. Start 1stReader and fill out your order form."
PRINT " 3. Call our tollfree order line and transmit your order."
PRINT " 4. That's it!"
PRINT
PRINT "@X0EPress any key to begin downloading your coupon...@X07";
PAUSE
PRINT
SHELL "@PROT_UP@"
PAUSE 5
PRINT
PRINT "Press any key to continue... ";
PAUSE
GOTO TOP
:CHOICE5
PRINT "5"
PRINT
PRINT "Returning to @BBSNAME@..."
EXIT
:SET_PROTOCOL
PRINT "@X0BPlease select from one of the following file transfer protocols. If you are"
PRINT "unsure of which protocol to use, we recommend you use the Zmodem protocol."
BOX(8,20,20,60,112,112,1,1,"","Protocol menu")
APRINT("@X0F X @X70 Xmodem",10,33)
APRINT("@X0F Y @X70 Ymodem",12,33)
APRINT("@X0F G @X70 Ymodem/G",14,33)
APRINT("@X0F Z @X70 Zmodem",16,33)
APRINT("@X0F Q @X70 Quit",18,33)
APRINT("@X0E(@X0C@TIMELEFT@@X0E mins. left) @X0FPlease select your choice (X,Y,G Z, or Q)? ",23,11)
GETKEY(Choice$,"XYGZQ")
ON Choice$ GOTO XMODEM,YMODEM,YMODEMG,ZMODEM,QUIT
:XMODEM
ASSIGN(Protocol$,0,"X")
GOTO DONE
:YMODEM
ASSIGN(Protocol$,0,"Y")
GOTO DONE
:YMODEMG
ASSIGN(Protocol$,0,"G")
GOTO DONE
:ZMODEM
ASSIGN(Protocol$,0,"Z")
GOTO DONE
:QUIT
RETURN TOP
:DONE
SET_PROT Protocol$
RETURN