home *** CD-ROM | disk | FTP | other *** search
/ The Education Master 1994 (4th Edition) / EDUCATIONS_MASTER_4TH_EDITION.bin / files / commadio / odyssey1 / ody200sh.lzh / REGISTER.SCR < prev    next >
Text File  |  1993-11-29  |  6KB  |  123 lines
  1.  
  2. /* 
  3.  This script file will automatically dial the TRIUS BBS line, and 
  4.  then give you an opportunity to either simply leave a message, or, 
  5.  order a registered copy of ODYSSEY while on line. 
  6.  
  7.  The script uses the file REGISTER.MSG which you should edit as 
  8.  needed, prior to invoking execution of the script. 
  9.  
  10.  Please, note that the purpose of this script is not to display all 
  11.  the capabilities of ODYSSEY but simply to give you a glimpse of the 
  12.  powerful Pascal-like structure of the ODYSSEY script language ad help
  13.  you order a registered copy at the same time.
  14. */
  15.  
  16. SCRIPT register;
  17.  
  18. VAR yn:String;
  19. VAR success,connect:Flag;
  20. VAR fullscreen:Number;
  21.  
  22. /*...............................................................*/
  23.  
  24. Proc CallTRIUS();
  25. Begin
  26.      Connect := false;
  27.      If Dial("REGISTER") then
  28.          Connect := True;
  29.          When("for help):","m|");
  30.          When("Subject:","ODYSSEY|");
  31.          Waitfor("1:");
  32.          Success := Upload(ASCII,"register.msg");
  33.          If Success = True then
  34.              Delay(1);
  35.              Transmit("|");
  36.              Delay(1);
  37.              Transmit ("s|");
  38.             write(" ");
  39.             Write("|   ╔═══════════════════════════════════════════════════════╗|");
  40.              Write("   ║  You may enter the command 'G' to Logoff at any time! ║|");
  41.              Write("   ║  Feel free to stay on and browse around the BBS.      ║|");
  42.              Write("   ║  Exiting the script now.                              ║|");
  43.              Write("   ╚═══════════════════════════════════════════════════════╝|");
  44.              Transmit ("|");
  45.              Rdkey();
  46.              Exit();
  47.            else
  48.          End;
  49.      End;
  50. End;
  51.  
  52.  
  53. Proc Null();
  54. Begin
  55. End;
  56.  
  57. /*.......................................................................*/
  58.  
  59. BEGIN
  60.  
  61.      ClrScr();
  62.      Write("   ╔═══════════════════════════════════════════════════════════════════╗|");
  63.      Write("   ║   This procedure will make a long distance  phone call to North   ║|"); 
  64.      Write("   ║   Andover, Massachusetts, to the TRIUS BBS!                       ║|");
  65.      Write("   ║   You may press ESC at any point to end this call.                ║|");
  66.      Write("   ║                                                                   ║|");
  67.      Write("   ║   Do you wish to continue? (Enter Y or N, press ENTER)            ║|");
  68.      Write("   ╚═══════════════════════════════════════════════════════════════════╝|");
  69.      Read(yn);
  70.      If yn = "y" then
  71.          Write("   ╔══════════════════════════════════════════════════════════════════════╗|");
  72.          Write("   ║ At this point, you may use the ODYSSEY built-in editor to customize  ║|");
  73.          Write("   ║ the text of the REGISTER.MSG file which may then be used to register ║|");
  74.          Write("   ║ on line.  After you have finished modifying the text,                ║|");
  75.          Write("   ║                                                                      ║|");
  76.          Write("   ║   Press F2, to save te modified text file, and                       ║|");
  77.          Write("   ║   Pres ESC to exit the ODYSSEY editor and return to ready mode.      ║|");
  78.          Write("   ║                                                                      ║|");
  79.          Write("   ║  Press any key to continue...                                        ║|");
  80.          Write("   ╚══════════════════════════════════════════════════════════════════════╝|");
  81.          Priority (TRUE);
  82.          RdKey();
  83.          Priority (FALSE);
  84.          Edit("register.msg");
  85.          Write("   ╔═════════════════════════════════════════════════════════════════════════╗|");
  86.          Write("   ║ ODYSSEY will now call the TRIUS BBS in order to leave a private message ║|");
  87.          Write("   ║ to the Sysop. ordering your registered copy of the program.             ║|");
  88.          Write("   ║                                                                         ║|");
  89.          Write("   ║ If this is the first time calling our BBS, you will need to supply your ║|");
  90.          Write("   ║ name, telephone #, and other information.  Once you are finished        ║|");
  91.          Write("   ║ supplying the required information, your message will be posted!        ║|");
  92.          Write("   ║                                                                         ║|");
  93.          Write("   ║ Press Any Key to Continue...                                            ║|");
  94.          Write("   ╚═════════════════════════════════════════════════════════════════════════╝|");
  95.          Priority (TRUE);
  96.          RdKey();
  97.          Priority (FALSE);
  98.          CallTRIUS();
  99.          While Online() do
  100.              Null();
  101.          End;
  102.          If connect = false then
  103.              Write("  ┌───────────────────────────────────────────────────────┐|");
  104.              Write("  │ ╔═══════════════════════════════════════════════════╗ │|");
  105.              Write("  │ ║  Something went wrong!   The dialing directory    ║ │|");
  106.              Write("  │ ║  (Alt-N, F2) might need to be modified if you are ║ │|");
  107.              Write("  │ ║  calling from within  the 508 area code.          ║ │|");
  108.              Write("  │ ╚═══════════════════════════════════════════════════╝ │|");
  109.              Write("  └───────────────────────────────────────────────────────┘|");
  110.            else
  111.              Write("  ┌───────────────────────────────────────────────────────┐|");
  112.              Write("  │ ╔═══════════════════════════════════════════════════╗ │|");
  113.              Write("  │ ║  Your connection to the TRIUS BBS was interrupted ║ │|");
  114.              Write("  │ ║  before your message could  be posted!            ║ │|");
  115.              Write("  │ ║  You might want to try it again, or call:         ║ │|");
  116.              Write("  │ ║               508-794-0140 (Voice)                ║ │|");
  117.              Write("  │ ╚═══════════════════════════════════════════════════╝ │|");
  118.              Write("  └───────────────────────────────────────────────────────┘|");
  119.          End;
  120.      End;
  121. END;
  122.  
  123.