home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / MAINF.ZIP / STARTUP.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-07-05  |  1.3 KB  |  39 lines
  1.  
  2. Sub Main ()
  3.     Screen.MousePointer = 11
  4. 'JOHN - Browser should be changed to use Lurker Path or Message directory
  5.     ' FilePath$ = InputBox$("Enter the complete path to the directory where LURKER.MAK resides (with a trailing backslash)", GioHeader, "c:\lurker\")
  6.     ' If FilePath$ = "" Then End
  7.     Lurker.Hide
  8. 'JOHN - Let's not load Browser until it's needed.
  9.     ' Browser.Hide
  10.     Startup.Show
  11.     Startup.Timer1.Interval = 5000
  12.     Startup.Timer1.Enabled = -1
  13.     Screen.MousePointer = 0
  14. 'JOHN - Use time while splash screen's up to load global variables
  15.     GSioLurkerPath = FioReadLurkerPath()
  16.     If GSioLurkerPath <> GioDEFAULT Then
  17.         GSioLurkerIni = GSioLurkerPath + "Lurker.Ini"
  18.         GSioActiveUser = FioUserGetActive()
  19.         GSioUserIni = FioUserGetIni(GSioActiveUser)
  20.         Debug.Print GSioLurkerPath
  21.         Debug.Print GSioLurkerIni
  22.         Debug.Print GSioActiveUser
  23.         Debug.Print GSioUserIni
  24.         'Need to get active Host here, also
  25.         Lurker.laUser.Caption = GSioActiveUser
  26.         'Lurker.laHost.Caption = GSioActiveHost
  27.         GetForums Lurker.lbForums
  28.     End If
  29.  
  30.     While Not Lurker.Visible
  31.         Junk% = DoEvents()
  32.     Wend
  33.  
  34.     If GSioLurkerPath = GioDEFAULT Then
  35.         ConfigureLurker
  36.     End If
  37. End Sub
  38.  
  39.