home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 February / PCO_0299.ISO / filesbbs / os2 / tor165gp.exe / TMISC.ZIP / REGEND.TR1 < prev    next >
Encoding:
Text File  |  1997-10-04  |  1.7 KB  |  70 lines
  1.  
  2. // This is an example of creating a simple registration query using
  3. // the Tornado built-in script language
  4. // (c) Konstantin Klyagin, 1997
  5.  
  6. Variables
  7.   BBS1, BBS2, BBS3, Languages, Music    : String
  8.   B                                     : Logical
  9. End
  10.  
  11. Program
  12.   Clear
  13.  
  14.   WriteLn ("\14Additional registration allows you to increase your")
  15.   WriteLn ("access level by answering some questions.")
  16.   WriteLn ()
  17.   WriteLn ("\12The only thing you are wanted to - to give correct answers.")
  18.   WriteLn ()
  19.   Write   ("\10Do you want to pass additional registration?")
  20.  
  21.   YesNo (B)
  22.  
  23.   If Not B
  24.     Exit
  25.   End
  26.  
  27.   WriteLn ()
  28.   WriteLn ("\15Please tell names of Your 3 favourite BBSs")
  29.   Write   ("1: \03") ; ReadVar (BBS1, 40)
  30.   Write   ("\152: \03") ; ReadVar (BBS2, 40)
  31.   Write   ("\153: \03") ; ReadVar (BBS3, 40)
  32.   WriteLn ()
  33.  
  34.   Write ("\15Are You programmer?") ; YesNo (B)
  35.  
  36.   If B
  37.     Write ("\15What programming languages do You use? \03")
  38.     ReadVar (Languages, 40)
  39.     WriteLn ()
  40.   End
  41.  
  42.   Write   ("\15What styles and genres of music do You prefer? \03")
  43.   ReadVar (Music, 40)
  44.  
  45.   FileAppend (1, "quest.txt")
  46.   FileWriteString (1, "")
  47.   FileWriteString (1, "User name: " + $NAME)
  48.   FileWriteString (1, "")
  49.  
  50.   FileWriteString (1, "Favourite BBSs:")
  51.   FileWriteString (1, "1) " + BBS1)
  52.   FileWriteString (1, "2) " + BBS2)
  53.   FileWriteString (1, "3) " + BBS3)
  54.  
  55.   If B
  56.     FileWriteString (1, "Used programming languages: " + Languages)
  57.   End
  58.  
  59.   FileWriteString (1, "Music: " + Music)
  60.  
  61.   FileClose (1)
  62.  
  63.   If $SECR < 2
  64.     $SECR = 2
  65.     WriteLn ()
  66.     Message ("\10Thank You for answers. Now your access level is 2.")
  67.   End
  68.  
  69. End
  70.