home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / MASTER.SCR < prev    next >
Encoding:
Text File  |  1994-09-01  |  4.6 KB  |  151 lines
  1. :TOP
  2.         CLS 7
  3.         IF GREATER(@BAUD@,2400) THEN SHOWFILE "LOGO1" ELSE SHOWFILE "LOGO2"
  4.         BOX(8,10,21,70,112,112,1,1,"","Main menu")
  5.         APRINT("@X0F 1 @X70  What is offline mail?",10,21)
  6.         APRINT("@X0F 2 @X70  How can 1stReader help you?",12,21)
  7.         APRINT("@X0F 3 @X70  Download your demo copy of 1stReader",14,21)
  8.         APRINT("@X0F 4 @X70  Receive a coupon good for @X71$3.00",16,21)
  9.         APRINT("@X70off 1stReader's $25 registration",17,26)
  10.         APRINT("@X0F 5 @X70  Quit and return to the BBS",19,21)
  11.         APRINT("@X0E(@X0C@TIMELEFT@@X0E mins. left) @X0FPlease select your choice (1-5)? ",24,10)
  12.  
  13. :CHOICE
  14.     GETKEY(Choice$,"12345")
  15.         ON Choice$ GOTO CHOICE1,CHOICE2,CHOICE3,CHOICE4,CHOICE5
  16.         GOTO CHOICE
  17.  
  18. :CHOICE1
  19.         CLS
  20.         SHOWFILE "OFFLINE.TXT"
  21.         PRINT
  22.         PRINT "Press any key to continue ";
  23.         PAUSE
  24.         GOTO TOP
  25.  
  26. :CHOICE2
  27.         CLS
  28.         SHOWFILE "1ST.TXT"
  29.         PRINT
  30.         PRINT "Press any key to continue... ";
  31.         PAUSE
  32.         GOTO TOP
  33.  
  34. :CHOICE3
  35.         CLS
  36.         PRINT "@X0FDownload your demo copy of 1stReader (@X0C@FILESIZE(1ST-112.ZIP) @X0Fbytes in size)"
  37.         PRINT "@X0E────────────────────────────────────────────────────────────────"
  38.         PRINT
  39.     SET_FILE @SYSDIR@1ST-112.ZIP
  40.         GOSUB SET_PROTOCOL
  41.         CLS
  42.         PRINT "@X0FReady to transmit the 1stReader demo system"
  43.         PRINT "@X0E───────────────────────────────────────────"
  44.         PRINT
  45.         PRINT "@X0BProtocol: @X0E@PROT_NAME@"
  46.         PRINT "@X0BFilename: @X0E1ST-112.ZIP"
  47.         PRINT "@X0BFilesize: @X0C@FILESIZE(1ST-112.ZIP) @X0Ebytes"
  48.         PRINT
  49.         PRINT "@X0EInstallation instructions:@X0B"
  50.         PRINT
  51.         PRINT "    1. Create a subdirectory named C:\1ST"
  52.         PRINT "    2. Unzip 1ST-112.ZIP into the C:\1ST subdirectory."
  53.         PRINT "    3. CHDIR into the C:\1ST subdirectory."
  54.         PRINT "    4. Type '@X0EINSTALL@X0B' and press the ENTER key."
  55.         PRINT "    5. Follow the instructions on your screen."
  56.         PRINT
  57.         PRINT "@X0EPress any key to begin downloading 1stReader...@X07";
  58.         PAUSE
  59.         PRINT
  60.         SHELL "@PROT_UP@"
  61.         PAUSE 5
  62.         PRINT
  63.         PRINT "Press any key to continue... ";
  64.         PAUSE
  65.         GOTO TOP
  66.  
  67. :CHOICE4
  68.         CLS
  69.         PRINT "@X0FDownload your 1stReader coupon"
  70.         PRINT "@X0E──────────────────────────────"
  71.         PRINT
  72.     SET_FILE 1ST.CPN
  73.         GOSUB SET_PROTOCOL
  74.         COUPON 1ST
  75.         IF EXIST 1ST.CPN THEN GOTO READY
  76.         PRINT
  77.         PRINT "Sorry, but we could not create a coupon."
  78.         PRINT
  79.         PRINT "Press any key to continue... ";
  80.         PAUSE
  81.         GOTO TOP
  82.  
  83. :READY
  84.         CLS
  85.         PRINT "@X0FReady to transmit the 1stReader coupon"
  86.         PRINT "@X0E──────────────────────────────────────"
  87.         PRINT
  88.         PRINT "@X0BProtocol: @X0E@PROT_NAME@"
  89.         PRINT "@X0BFilename: @X0E1ST.CPN"
  90.         PRINT
  91.         PRINT "@X0EInstallation instructions:@X0B"
  92.         PRINT
  93.         PRINT "    1. Copy 1ST.CPN into the C:\1ST subdirectory."
  94.         PRINT "    2. Start 1stReader and fill out your order form."
  95.         PRINT "    3. Call our tollfree order line and transmit your order."
  96.         PRINT "    4. That's it!"
  97.         PRINT
  98.         PRINT "@X0EPress any key to begin downloading your coupon...@X07";
  99.         PAUSE
  100.         PRINT
  101.         SHELL "@PROT_UP@"
  102.         PAUSE 5
  103.         PRINT
  104.         PRINT "Press any key to continue... ";
  105.         PAUSE
  106.         GOTO TOP
  107.  
  108.  
  109. :CHOICE5
  110.         PRINT "5"
  111.         PRINT
  112.         PRINT "Returning to @BBSNAME@..."
  113.         EXIT
  114.  
  115. :SET_PROTOCOL
  116.         PRINT "@X0BPlease select from one of the following file transfer protocols.  If you are"
  117.         PRINT "unsure of which protocol to use, we recommend you use the Zmodem protocol."
  118.         BOX(8,20,20,60,112,112,1,1,"","Protocol menu")
  119.         APRINT("@X0F X @X70  Xmodem",10,33)
  120.         APRINT("@X0F Y @X70  Ymodem",12,33)
  121.         APRINT("@X0F G @X70  Ymodem/G",14,33)
  122.         APRINT("@X0F Z @X70  Zmodem",16,33)
  123.         APRINT("@X0F Q @X70  Quit",18,33)
  124.         APRINT("@X0E(@X0C@TIMELEFT@@X0E mins. left) @X0FPlease select your choice (X,Y,G Z, or Q)? ",23,11)
  125.         GETKEY(Choice$,"XYGZQ")
  126.         ON Choice$ GOTO XMODEM,YMODEM,YMODEMG,ZMODEM,QUIT
  127.  
  128. :XMODEM
  129.         ASSIGN(Protocol$,0,"X")
  130.         GOTO DONE
  131.  
  132. :YMODEM
  133.         ASSIGN(Protocol$,0,"Y")
  134.         GOTO DONE
  135.  
  136. :YMODEMG
  137.         ASSIGN(Protocol$,0,"G")
  138.         GOTO DONE
  139.  
  140. :ZMODEM
  141.         ASSIGN(Protocol$,0,"Z")
  142.         GOTO DONE
  143.  
  144. :QUIT
  145.         RETURN TOP
  146.  
  147. :DONE
  148.         SET_PROT Protocol$
  149.         RETURN
  150.  
  151.