home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 February / PCO_0299.ISO / filesbbs / os2 / tor165gp.exe / TMISC.ZIP / REGEND.TR2 < prev    next >
Encoding:
Text File  |  1998-11-28  |  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 ("\14Die erweiterte Registration erhoeht Deinen")
  15.   WriteLn ("Zugriffslevel wenn Du ein paar Fragen beantwortest.")
  16.   WriteLn ()
  17.   WriteLn ("\12Das einzige was verlangt wird - ehrliche Antworten.")
  18.   WriteLn ()
  19.   Write   ("\10Moechtest Du die erweiterte Registration durchfuehren?")
  20.  
  21.   YesNo (B)
  22.  
  23.   If Not B
  24.     Exit
  25.   End
  26.  
  27.   WriteLn ()
  28.   WriteLn ("\15Bitte gib die Namen Deiner 3 meistbesuchten BBSs ein")
  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 ("\15Programmierst Du?") ; YesNo (B)
  35.  
  36.   If B
  37.     Write ("\15Welche Programmiersprachen benutzt Du? \03")
  38.     ReadVar (Languages, 40)
  39.     WriteLn ()
  40.   End
  41.  
  42.   Write   ("\15Welche Musikrichtungen bevorzugst Du? \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, "Bevorzugte BBSs:")
  51.   FileWriteString (1, "1) " + BBS1)
  52.   FileWriteString (1, "2) " + BBS2)
  53.   FileWriteString (1, "3) " + BBS3)
  54.  
  55.   If B
  56.     FileWriteString (1, "Benutzte Programmiersprachen: " + Languages)
  57.   End
  58.  
  59.   FileWriteString (1, "Musik: " + Music)
  60.  
  61.   FileClose (1)
  62.  
  63.   If $SECR < 2
  64.     $SECR = 2
  65.     WriteLn ()
  66.     Message ("\10Danke fuer Deine Antworten. Nun ist Dein Zugriffslevel 2.")
  67.   End
  68.  
  69. End
  70.