--- /dev/null
+VERSION 4.00
+Begin VB.Form ChatWindow
+ AutoRedraw = -1 'True
+ BorderStyle = 0 'None
+ Caption = "Chat"
+ ClientHeight = 5940
+ ClientLeft = 1485
+ ClientTop = 1635
+ ClientWidth = 6690
+ ControlBox = 0 'False
+ Height = 6345
+ Left = 1425
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 5940
+ ScaleWidth = 6690
+ Top = 1290
+ Width = 6810
+ Begin VB.CommandButton list_button
+ Caption = "&List chat users"
+ Height = 495
+ Left = 3240
+ TabIndex = 3
+ Top = 5280
+ Width = 1335
+ End
+ Begin VB.CommandButton quit_button
+ Caption = "Exit Chat Mode"
+ Height = 495
+ Left = 4680
+ TabIndex = 2
+ Top = 5280
+ Width = 1335
+ End
+ Begin VB.Timer ChatRefresh
+ Interval = 2000
+ Left = 120
+ Top = 5280
+ End
+ Begin VB.TextBox Outgoing
+ Height = 375
+ Left = 120
+ MultiLine = -1 'True
+ TabIndex = 1
+ Top = 4680
+ Width = 6495
+ End
+ Begin VB.TextBox Incoming
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 4095
+ Left = 120
+ Locked = -1 'True
+ MultiLine = -1 'True
+ TabIndex = 0
+ Top = 120
+ Width = 6495
+ End
+End
+Attribute VB_Name = "ChatWindow"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Dim LastUser$
+
+Private Sub ChatRefresh_Timer()
+
+Top:
+If InStr(TCPinbuf$, Chr$(10)) > 0 Then
+ a$ = serv_gets()
+ If a$ = "000" Then
+ ChatRefresh.Enabled = False
+ end_trans
+ DoEvents
+ Unload ChatWindow
+ Load RoomPrompt
+ GoTo TheEnd
+ End If
+
+ p = InStr(a$, "|")
+ If p < 1 Then
+ a$ = "?|" + a$
+ p = 2
+ End If
+ ThisUser$ = Left$(a$, p - 1)
+ a$ = Right$(a$, Len(a$) - p)
+ If a$ = "NOOP" Then GoTo Top
+ If (ThisUser$ <> LastUser$) Then
+ Incoming.Text = Incoming.Text + Chr$(13) + Chr$(10) + ThisUser$ + ":"
+ LastUser$ = ThisUser$
+ End If
+ Incoming.Text = Incoming.Text + a$ + Chr$(13) + Chr$(10)
+
+ ' Count the lines and strip down to 28
+ nl = 0
+ For b = 1 To Len(Incoming.Text)
+ If Mid$(Incoming.Text, b, 1) = Chr$(13) Then nl = nl + 1
+ Next b
+ Do While nl > 28
+ np = InStr(Incoming.Text, Chr$(13))
+ Incoming.Text = Right$(Incoming.Text, Len(Incoming.Text) - np - 2)
+ nl = nl - 1
+ Loop
+
+ GoTo Top
+ End If
+
+
+ChatRefresh.Interval = 2000
+ChatRefresh.Enabled = True
+
+TheEnd: Rem - go here when done
+
+End Sub
+
+
+Private Sub Form_Load()
+
+MainWin.MousePointer = 0
+Show
+LastUser$ = ""
+Outgoing.SetFocus
+
+End Sub
+
+
+
+
+
+Private Sub Form_Resize()
+
+ ChatWindow.Left = 0
+ ChatWindow.Top = 0
+ ChatWindow.Width = MainWin.Width - 200
+ ChatWindow.Height = MainWin.Height - 450
+
+ Incoming.Left = 100
+ Incoming.Width = ChatWindow.Width - 200
+ Incoming.Top = 100
+ Incoming.Height = ChatWindow.Height - 1200
+
+ Outgoing.Left = 100
+ Outgoing.Width = ChatWindow.Width - 200
+ Outgoing.Top = ChatWindow.Height - 1100
+ Outgoing.Height = 400
+
+ quit_button.Top = ChatWindow.Height - 100 - quit_button.Height
+ quit_button.Left = ChatWindow.Width - 100 - quit_button.Width
+ list_button.Top = quit_button.Top
+ list_button.Left = quit_button.Left - quit_button.Width - 100
+
+End Sub
+
+
+Private Sub list_button_Click()
+
+serv_puts ("/who")
+
+End Sub
+
+Private Sub Outgoing_Change()
+
+a = InStr(Outgoing.Text, Chr$(13) + Chr$(10))
+If (a > 0) Then
+ serv_puts (Left$(Outgoing.Text, a - 1))
+ Outgoing.Text = Right$(Outgoing.Text, Len(Outgoing.Text) - a - 1)
+ End If
+
+If (Len(Outgoing.Text) > 55) Or (Len(Outgoing.Text) > 48 And Right$(Outgoing.Text, 1) = " ") Then
+ serv_puts (Outgoing.Text)
+ Outgoing.Text = ""
+ End If
+
+End Sub
+
+
+Private Sub quit_button_Click()
+
+ serv_puts ("/QUIT")
+
+
+End Sub
+
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form CitUser
+ AutoRedraw = -1 'True
+ BorderStyle = 1 'Fixed Single
+ ClientHeight = 6600
+ ClientLeft = 1140
+ ClientTop = 1500
+ ClientWidth = 9255
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 7005
+ Left = 1080
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 6600
+ ScaleWidth = 9255
+ Top = 1155
+ Width = 9375
+ Begin Threed.SSPanel helloframe
+ Height = 3375
+ Left = 120
+ TabIndex = 11
+ Top = 3120
+ Width = 6255
+ _Version = 65536
+ _ExtentX = 11033
+ _ExtentY = 5953
+ _StockProps = 15
+ BackColor = 12632256
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ Begin VB.TextBox hello
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ Height = 3135
+ Left = 120
+ MultiLine = -1 'True
+ TabIndex = 12
+ Top = 120
+ Width = 6015
+ End
+ End
+ Begin Threed.SSPanel Panel3D1
+ Height = 1935
+ Left = 6480
+ TabIndex = 10
+ Top = 2160
+ Width = 2655
+ _Version = 65536
+ _ExtentX = 4683
+ _ExtentY = 3413
+ _StockProps = 15
+ BackColor = 12632256
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ End
+ Begin Threed.SSPanel Instructions
+ Height = 2295
+ Left = 6480
+ TabIndex = 1
+ Top = 4200
+ Width = 2655
+ _Version = 65536
+ _ExtentX = 4683
+ _ExtentY = 4048
+ _StockProps = 15
+ Caption = $"CITUSER.frx":0000
+ BackColor = 12632256
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ End
+ Begin VB.CommandButton newuser_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "New User"
+ Height = 375
+ Left = 6480
+ TabIndex = 9
+ Top = 1680
+ Width = 1335
+ End
+ Begin VB.CommandButton disc_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Disconnect"
+ Height = 375
+ Left = 7920
+ TabIndex = 5
+ Top = 1680
+ Width = 1215
+ End
+ Begin VB.CommandButton login_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Log In"
+ Height = 375
+ Left = 6480
+ TabIndex = 4
+ Top = 1200
+ Width = 1335
+ End
+ Begin VB.TextBox Password
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "Wingdings"
+ charset = 2
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 525
+ Left = 240
+ TabIndex = 3
+ Top = 2400
+ Width = 6015
+ End
+ Begin VB.TextBox UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 18
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Left = 240
+ TabIndex = 0
+ Top = 1440
+ Width = 6015
+ End
+ Begin Threed.SSFrame Frame3D2
+ Height = 855
+ Left = 120
+ TabIndex = 8
+ Top = 2160
+ Width = 6255
+ _Version = 65536
+ _ExtentX = 11033
+ _ExtentY = 1508
+ _StockProps = 14
+ Caption = "Password:"
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 855
+ Left = 120
+ TabIndex = 2
+ Top = 1200
+ Width = 6255
+ _Version = 65536
+ _ExtentX = 11033
+ _ExtentY = 1508
+ _StockProps = 14
+ Caption = "User Name:"
+ End
+ Begin VB.Label BBScity
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C00000&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H0000FFFF&
+ Height = 375
+ Left = 120
+ TabIndex = 7
+ Top = 720
+ Width = 9015
+ End
+ Begin VB.Label BBSname
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C00000&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 18
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H0000FFFF&
+ Height = 495
+ Left = 120
+ TabIndex = 6
+ Top = 120
+ Width = 9015
+ End
+End
+Attribute VB_Name = "CitUser"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub check_buttons()
+ If UserName.Text <> "" And Password.Text <> "" Then
+ login_button.Enabled = True
+ newuser_button.Enabled = True
+ Else
+ login_button.Enabled = False
+ newuser_button.Enabled = False
+ End If
+End Sub
+
+Private Sub disc_button_Click()
+
+
+ Call serv_puts("QUIT")
+ dummy$ = serv_gets()
+
+ Unload CitUser
+ Unload IPC
+ Load SelectBBS
+
+End Sub
+
+Private Sub form_activate()
+ CitUser.WindowState = 0
+ CitUser.Left = Int((MainWin.Width - CitUser.Width) / 2)
+ CitUser.Top = Int((MainWin.Height - CitUser.Height) / 3)
+End Sub
+
+Private Sub Form_Load()
+ CitUser.WindowState = 0
+ CitUser.Left = Int((MainWin.Width - CitUser.Width) / 2)
+ CitUser.Top = Int((MainWin.Height - CitUser.Height) / 3)
+ Call check_buttons
+ Show
+ SaveOldCount = 0
+ SaveNewCount = 0
+ CurrRoomName$ = ""
+
+ ' Use the INFO command to retrieve global server information
+ ' (This could probably get moved to the IPC module)
+ '
+ If begin_trans() = False Then GoTo skipcitu
+
+ serv_puts ("IDEN 0|2|100|WinCit")
+ buf$ = serv_gets()
+
+ serv_puts ("INFO")
+ buf$ = serv_gets()
+ If Left$(buf$, 1) = "1" Then
+ a% = 0
+ buf$ = ""
+ Do
+ buf$ = serv_gets()
+ If buf$ = "000" Then Exit Do
+ a% = a% + 1
+ Select Case a%
+ Case 1
+ serv_pid% = Val(buf$)
+ Case 2
+ serv_nodename$ = buf$
+ Case 3
+ serv_humannode$ = buf$
+ Case 4
+ serv_fqdn$ = buf$
+ Case 5
+ serv_software$ = buf$
+ Case 6
+ serv_rev_level! = CDbl(buf$) / 100
+ Case 7
+ serv_bbs_city$ = buf$
+ Case 8
+ serv_sysadm$ = buf$
+ End Select
+ Loop
+ Call end_trans
+ BBSname.Caption = serv_humannode$
+ BBScity.Caption = serv_bbs_city$
+ End If
+
+ MainWin.Caption = serv_humannode$
+skipcitu:
+
+ If begin_trans() = False Then GoTo skiphello
+ serv_puts ("MESG hello")
+ c$ = serv_gets()
+ If (Left$(c$, 1) = "1") Then
+ b$ = ""
+ Do
+ c$ = serv_gets()
+ If (c$ <> "000") Then
+ Do While Left$(c$, 2) = " "
+ c$ = Right$(c$, Len(c$) - 1)
+ Loop
+ b$ = b$ + c$ + Chr$(13) + Chr$(10)
+ End If
+ Loop Until c$ = "000"
+ hello.Text = Cit_Format(b$)
+ Else
+ hello.Text = c$
+ End If
+ Call end_trans
+
+
+skiphello:
+ Call form_activate
+ CitUser.SetFocus
+ UserName.SetFocus
+
+End Sub
+
+' begin_trans() will already have been called before get_uparms()
+'
+Private Sub get_uparms(loginstr As String)
+
+ p$ = Right$(loginstr, Len(loginstr) - 4)
+ axlevel% = Val(extract(p$, 1))
+
+ serv_puts ("CHEK")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "2" Then
+ a$ = Right$(a$, Len(a$) - 4)
+ m$ = ""
+ nm% = Val(extract(a$, 0))
+ If nm% = 1 Then m$ = m$ + "You have a new private message in Mail>" + Chr$(13) + Chr$(10)
+ If nm% > 1 Then m$ = m$ + "You have " + Str$(nm%) + " new private messages in Mail>" + Chr$(13) + Chr$(10)
+
+ If axlevel >= 6 And Val(extract(a$, 2)) > 0 Then m$ = m$ + "Users need validation" + Chr$(13) + Chr$(10)
+
+ If Len(m$) > 0 Then MsgBox m$, 64
+
+ need_regis% = Val(extract(a$, 1))
+
+ End If
+
+
+
+End Sub
+
+Private Sub Login_Button_Click()
+
+ If begin_trans() = True Then
+ serv_puts ("USER " + UserName.Text)
+ buf$ = serv_gets()
+ Call end_trans
+ If Left$(buf$, 1) <> "3" Then
+ MsgBox Right$(buf$, Len(buf$) - 4), 16
+ End If
+ If Left$(buf$, 1) = "3" Then
+ serv_puts ("PASS " + Password.Text)
+ buf$ = serv_gets()
+ If Left$(buf$, 1) <> "2" Then
+ MsgBox Right$(buf$, Len(buf$) - 4), 16
+ End If
+ If Left$(buf$, 1) = "2" Then
+ get_uparms (buf$)
+ Unload CitUser
+ If need_regis% = 1 Then
+ Load Registration
+ Else
+ Load RoomPrompt
+ End If
+ End If
+ End If
+ End If
+
+
+End Sub
+
+Private Sub newuser_button_Click()
+ If begin_trans() = True Then
+ serv_puts ("NEWU " + UserName.Text)
+ buf$ = serv_gets()
+ If Left$(buf$, 1) = "2" Then
+ serv_puts ("SETP " + Password.Text)
+ buf$ = serv_gets()
+ Call end_trans
+ If Left$(buf$, 1) <> "2" Then
+ MsgBox Right$(buf$, Len(buf$) - 4), 16
+ End If
+ get_uparms (buf$)
+ Unload CitUser
+ If need_regis% = 1 Then
+ Load Registration
+ Else
+ Load RoomPrompt
+ End If
+ Else
+ MsgBox Right$(buf$, Len(buf$) - 4), 16
+ End If
+ Call end_trans
+ End If
+End Sub
+
+Private Sub Password_Change()
+ Call check_buttons
+End Sub
+
+Private Sub Password_Click()
+
+Rem
+
+End Sub
+
+
+Private Sub Password_KeyPress(keyascii As Integer)
+ If keyascii = 13 Then Call Login_Button_Click
+End Sub
+
+Private Sub UserName_Change()
+ Call check_buttons
+End Sub
+
+Private Sub UserName_KeyPress(keyascii As Integer)
+ If keyascii = 13 Then Call Password_Click
+End Sub
+
--- /dev/null
+"UNCENSORED! BBS ","uncnsrd.mt-kisco.ny.us ",504
+"The Dog Pound II ","compucomis.net ",504
+"Bear Cave ","bbs.kopower.com ",504
+"MascotSpeak ","uncnsrd.mt-kisco.ny.us ",2112
+"The Mighty Fortress ","fortress.ardvark.com ",504
--- /dev/null
+VERSION 4.00
+Begin VB.Form Download
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Download..."
+ ClientHeight = 3120
+ ClientLeft = 4140
+ ClientTop = 3630
+ ClientWidth = 5610
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 3525
+ Left = 4080
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3120
+ ScaleWidth = 5610
+ Top = 3285
+ Width = 5730
+ Begin Threed.SSPanel info
+ Height = 495
+ Left = 1200
+ TabIndex = 5
+ Top = 1320
+ Width = 4335
+ _Version = 65536
+ _ExtentX = 7646
+ _ExtentY = 873
+ _StockProps = 15
+ Caption = "info"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ End
+ Begin GaugeLib.Gauge progress
+ Height = 255
+ Left = 240
+ TabIndex = 4
+ Top = 2040
+ Width = 5175
+ _Version = 65536
+ _ExtentX = 9128
+ _ExtentY = 450
+ _StockProps = 73
+ Autosize = -1 'True
+ NeedleWidth = 1
+ End
+ Begin VB.CommandButton start_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Start download"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Left = 2280
+ TabIndex = 3
+ Top = 2520
+ Width = 1815
+ End
+ Begin Threed.SSPanel DestFile
+ Height = 495
+ Left = 1200
+ TabIndex = 2
+ Top = 720
+ Width = 4335
+ _Version = 65536
+ _ExtentX = 7646
+ _ExtentY = 873
+ _StockProps = 15
+ Caption = "DestFile"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ End
+ Begin Threed.SSPanel SourceFile
+ Height = 495
+ Left = 1200
+ TabIndex = 1
+ Top = 120
+ Width = 4335
+ _Version = 65536
+ _ExtentX = 7646
+ _ExtentY = 873
+ _StockProps = 15
+ Caption = "SourceFile"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 492
+ Left = 4200
+ TabIndex = 0
+ Top = 2520
+ Width = 1332
+ End
+ Begin Threed.SSPanel Panel3D1
+ Height = 495
+ Left = 120
+ TabIndex = 9
+ Top = 1920
+ Width = 5415
+ _Version = 65536
+ _ExtentX = 9551
+ _ExtentY = 873
+ _StockProps = 15
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ End
+ Begin MSComDlg.CommonDialog SaveAs
+ Left = 1680
+ Top = 2520
+ _Version = 65536
+ _ExtentX = 847
+ _ExtentY = 847
+ _StockProps = 0
+ DialogTitle = "Save As..."
+ InitDir = "C:\"
+ End
+ Begin VB.Label Label3
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Info"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 300
+ Left = 120
+ TabIndex = 8
+ Top = 1440
+ Width = 420
+ End
+ Begin VB.Label Label2
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Save As:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 300
+ Left = 120
+ TabIndex = 7
+ Top = 840
+ Width = 945
+ End
+ Begin VB.Label Label1
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Source:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 6
+ Top = 240
+ Width = 975
+ End
+End
+Attribute VB_Name = "Download"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim InProgress%
+Dim Cancelled%
+
+Private Sub cancel_button_Click()
+
+If InProgress% = 1 Then
+ Cancelled% = 1
+Else
+ Unload Download
+ Load RoomPrompt
+ End If
+
+End Sub
+
+Private Sub Form_Load()
+
+
+ Show
+ Download.WindowState = 0
+ Download.Top = Int((MainWin.Height - Download.Height) / 3)
+ Download.Left = Int((MainWin.Width - Download.Width) / 2)
+
+ SourceFile.Caption = DownLoadFileName$
+
+ SaveAs.filename = DownLoadFileName$
+ SaveAs.Action = 2
+
+ DestFile.Caption = SaveAs.filename
+
+
+
+End Sub
+
+Private Sub start_button_Click()
+
+If begin_trans() = True Then
+ Info.Caption = "Sending server command"
+
+ serv_puts ("OPEN " + DownLoadFileName$)
+ a$ = serv_gets()
+ Info.Caption = a$
+
+ If Left$(a$, 1) <> "2" Then
+ FileLength& = (-1)
+ Else
+ FileLength& = Val(extract$(Right$(a$, Len(a$) - 4), 0))
+ End If
+
+ Info.Caption = "File len is " + Str$(FileLength&)
+ Call end_trans
+ End If
+
+If FileLength& < 0 Then
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ Unload Download
+ Load RoomPrompt
+ End If
+
+InProgress% = 1
+Open DestFile.Caption For Output As #1
+start_button.Enabled = False
+start_button.Visible = False
+
+Progress.min = 0
+Progress.Max = FileLength& / 1024
+
+GotBytes& = 0
+Do While GotBytes& < FileLength&
+ If Cancelled% = 1 Then GoTo ENDOFXFER
+ NeedBytes& = 4096
+ If (FileLength& - GotBytes&) < 4096 Then NeedBytes& = FileLength& - GotBytes&
+ If begin_trans() = True Then
+ serv_puts ("READ " + Str$(GotBytes&) + "|" + Str$(NeedBytes&))
+ a$ = serv_gets()
+ If Left$(a$, 1) = "6" Then
+ b$ = serv_read(CInt(NeedBytes&))
+ GotBytes& = GotBytes& + NeedBytes&
+ Print #1, b$;
+ End If
+ Call end_trans
+ End If
+ Progress.Value = GotBytes& / 1024
+ Info.Caption = "Received " + Str$(GotBytes&) + " of " + Str$(FileLength&) + " bytes"
+ DoEvents
+ Loop
+
+ENDOFXFER:
+Close #1
+If begin_trans() = True Then
+ serv_puts ("CLOS")
+ a$ = serv_gets()
+ cancel_button.Caption = "&OK!"
+ InProgress% = 0
+ Call end_trans
+ End If
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form EditBBS
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ ClientHeight = 1875
+ ClientLeft = 1005
+ ClientTop = 1830
+ ClientWidth = 6420
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 2280
+ Left = 945
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 1875
+ ScaleWidth = 6420
+ Top = 1485
+ Width = 6540
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Cancel = -1 'True
+ Caption = "Cancel"
+ Height = 495
+ Left = 5280
+ TabIndex = 6
+ Top = 1320
+ Width = 1095
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Save"
+ Height = 495
+ Left = 4080
+ TabIndex = 5
+ Top = 1320
+ Width = 1095
+ End
+ Begin Threed.SSFrame fPhoneOrAddress
+ Height = 615
+ Left = 120
+ TabIndex = 1
+ Top = 600
+ Width = 6255
+ _Version = 65536
+ _ExtentX = 11033
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Internet address"
+ Begin VB.TextBox uPhoneOrAddress
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ Height = 285
+ Left = 120
+ TabIndex = 4
+ Text = "Text11"
+ Top = 240
+ Width = 6015
+ End
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 615
+ Left = 120
+ TabIndex = 0
+ Top = 0
+ Width = 6255
+ _Version = 65536
+ _ExtentX = 11033
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Name"
+ Begin VB.TextBox uName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ Height = 288
+ Left = 120
+ TabIndex = 3
+ Text = "Text11"
+ Top = 240
+ Width = 6012
+ End
+ End
+ Begin Threed.SSFrame fTCPport
+ Height = 615
+ Left = 120
+ TabIndex = 2
+ Top = 1200
+ Width = 3255
+ _Version = 65536
+ _ExtentX = 5741
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Port number"
+ Begin VB.TextBox uTCPport
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ Height = 288
+ Left = 120
+ TabIndex = 7
+ Top = 240
+ Width = 3012
+ End
+ End
+End
+Attribute VB_Name = "EditBBS"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+ Load SelectBBS
+ Unload EditBBS
+End Sub
+
+Private Sub Form_Load()
+ uname.Text = StripTrailingWhiteSpace(CurrBBS.Name)
+ If uname.Text = "newbbs000" Then uname.Text = "New BBS entry"
+ uPhoneOrAddress = StripTrailingWhiteSpace(CurrBBS.PhoneOrAddress)
+
+ EditBBS.Height = 2550
+ uTCPport.Text = Str$(CurrBBS.TCPport)
+
+
+End Sub
+
+Private Sub save_button_Click()
+ CurrBBS.Name = uname.Text
+ CurrBBS.PhoneOrAddress = uPhoneOrAddress.Text
+ On Error Resume Next
+ CurrBBS.TCPport = Int(uTCPport)
+ If Err <> 0 Then CurrBBS.TCPport = DefaultPort
+
+ Load SelectBBS
+ Unload EditBBS
+End Sub
+
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form EditInfo
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ ClientHeight = 6915
+ ClientLeft = -420
+ ClientTop = 1950
+ ClientWidth = 9600
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Serif"
+ charset = 0
+ weight = 700
+ size = 6.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 7320
+ Left = -480
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 6915
+ ScaleWidth = 9600
+ Top = 1605
+ Width = 9720
+ Begin VB.CommandButton ShowFmt
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Show &Formatted"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 5520
+ TabIndex = 2
+ Top = 6480
+ Width = 1572
+ End
+ Begin Threed.SSPanel message_panel
+ Height = 6375
+ Left = 0
+ TabIndex = 3
+ Top = 0
+ Width = 9615
+ _Version = 65536
+ _ExtentX = 16960
+ _ExtentY = 11245
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 9
+ BorderWidth = 0
+ BevelOuter = 1
+ Begin VB.TextBox message_text
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "Courier New"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 6135
+ Left = 120
+ MultiLine = -1 'True
+ ScrollBars = 2 'Vertical
+ TabIndex = 1
+ Top = 120
+ Width = 9375
+ End
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 7200
+ TabIndex = 4
+ Top = 6480
+ Width = 1092
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 8400
+ TabIndex = 0
+ Top = 6480
+ Width = 1092
+ End
+End
+Attribute VB_Name = "EditInfo"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+ Unload EditInfo
+ Load RoomPrompt
+End Sub
+
+Private Sub Form_Load()
+
+ EditInfo.Caption = "Room Info for " + CurrRoomName$
+ message_text.FontName = GetPrivateProfileVBString("Preferences", "VariFontName", "MS Serif", "WINCIT.INI")
+ message_text.FontSize = GetPrivateProfileInt("Preferences", "VariFontSize", 12, "WINCIT.INI")
+
+ Show
+ DoEvents
+
+ If begin_trans() = True Then
+ serv_puts ("RINF")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ b$ = ""
+ Do
+ c$ = serv_gets()
+ If c$ <> "000" Then b$ = b$ + c$ + Chr$(13) + Chr$(10)
+ Loop Until c$ = "000"
+ message_text.Text = Cit_Format(b$)
+ End If
+ Call end_trans
+ End If
+
+ message_text.SetFocus
+
+End Sub
+
+Private Sub Form_Resize()
+ EditInfo.Left = 0
+ EditInfo.Top = 0
+ EditInfo.Width = MainWin.Width
+ EditInfo.Height = MainWin.Height - 450
+
+ cancel_button.Top = Abs(EditInfo.Height - 520)
+ save_button.Top = Abs(EditInfo.Height - 520)
+ ShowFmt.Top = Abs(EditInfo.Height - 520)
+ message_text.Width = Abs(EditInfo.Width - 336)
+ message_text.Height = Abs(EditInfo.Height - 864)
+ message_panel.Height = Abs(EditInfo.Height - 624)
+ message_panel.Width = Abs(EditInfo.Width - 100)
+End Sub
+
+Private Sub hold_button_Click()
+ HoldMessage$ = message_text.Text
+ Unload EditInfo
+ Load RoomPrompt
+End Sub
+
+Private Sub InsQuote_Click()
+
+ message_text.SelText = Clipboard.GetText()
+ Call ShowFmt_Click
+
+End Sub
+
+Private Sub save_button_Click()
+
+ a$ = message_text.Text
+ Do While Right$(a$, 2) = Chr$(13) + Chr$(10)
+ a$ = Left$(a$, Len(a$) - 2)
+ Loop
+ message_text.Text = Cit_Format(a$)
+ DoEvents
+
+ If begin_trans() = True Then
+ a$ = "EINF 1"
+ serv_puts (a$)
+ a$ = serv_gets()
+ If Left$(a$, 1) <> "4" Then
+ Call end_trans
+ MsgBox a$
+ Else
+ Transmit_Buffer (message_text.Text)
+ serv_puts ("000")
+ Call end_trans
+ HoldMessage$ = ""
+ Unload EditInfo
+ Load RoomPrompt
+ End If
+ End If
+
+End Sub
+
+Private Sub ShowFmt_Click()
+ a$ = message_text.Text
+ Do While Right$(a$, 2) = Chr$(13) + Chr$(10)
+ a$ = Left$(a$, Len(a$) - 2)
+ Loop
+ message_text.Text = Cit_Format(a$)
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form EditRoom
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Edit this room"
+ ClientHeight = 6105
+ ClientLeft = 105
+ ClientTop = 2340
+ ClientWidth = 7410
+ ClipControls = 0 'False
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 6510
+ Left = 45
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 6105
+ ScaleWidth = 7410
+ Top = 1995
+ Width = 7530
+ Begin VB.CheckBox check_ReadOnly
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Read-only room"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 3840
+ TabIndex = 29
+ Top = 4920
+ Width = 3375
+ End
+ Begin VB.TextBox DirName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 285
+ Left = 3840
+ TabIndex = 28
+ Text = "Directory"
+ Top = 2880
+ Width = 3375
+ End
+ Begin Threed.SSFrame Frame3D9
+ Height = 1215
+ Left = 3720
+ TabIndex = 2
+ Top = 4200
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 2143
+ _StockProps = 14
+ Caption = "Other options"
+ ForeColor = 0
+ Begin VB.CheckBox check_netroom
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Network shared room"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 3
+ Top = 360
+ Width = 3375
+ End
+ End
+ Begin Threed.SSFrame Frame3D8
+ Height = 1215
+ Left = 120
+ TabIndex = 24
+ Top = 4200
+ Width = 3495
+ _Version = 65536
+ _ExtentX = 6165
+ _ExtentY = 2143
+ _StockProps = 14
+ Caption = "Anonymous messages"
+ ForeColor = 0
+ Begin VB.OptionButton radio_anonoption
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Prompt users for anonymity"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 27
+ Top = 840
+ Width = 3255
+ End
+ Begin VB.OptionButton radio_anononly
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "All messages anonymous"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 26
+ Top = 600
+ Width = 3255
+ End
+ Begin VB.OptionButton radio_noAnon
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "No anonymous messages"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 25
+ Top = 360
+ Width = 3255
+ End
+ End
+ Begin VB.TextBox RoomAide
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 285
+ Left = 3840
+ TabIndex = 23
+ Text = "Room Aide"
+ Top = 3720
+ Width = 3375
+ End
+ Begin Threed.SSFrame Frame3D7
+ Height = 615
+ Left = 3720
+ TabIndex = 22
+ Top = 3480
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Room Aide"
+ ForeColor = 0
+ End
+ Begin Threed.SSFrame Frame3D6
+ Height = 615
+ Left = 3720
+ TabIndex = 21
+ Top = 2640
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Directory name"
+ ForeColor = 0
+ End
+ Begin Threed.SSFrame Frame3D5
+ Height = 1455
+ Left = 120
+ TabIndex = 16
+ Top = 2640
+ Width = 3495
+ _Version = 65536
+ _ExtentX = 6165
+ _ExtentY = 2566
+ _StockProps = 14
+ Caption = "Directory options"
+ ForeColor = 0
+ Begin VB.CheckBox check_visdir
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Visible directory"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 20
+ Top = 1080
+ Width = 3255
+ End
+ Begin VB.CheckBox check_download
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Downloading allowed"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 19
+ Top = 840
+ Width = 3255
+ End
+ Begin VB.CheckBox check_uploading
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Uploading allowed"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 18
+ Top = 600
+ Width = 3255
+ End
+ Begin VB.CheckBox check_directory
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Enable as a directory room"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 17
+ Top = 360
+ Width = 3255
+ End
+ End
+ Begin Threed.SSFrame Frame3D4
+ Height = 975
+ Left = 3720
+ TabIndex = 13
+ Top = 1560
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 1720
+ _StockProps = 14
+ Caption = "Access options"
+ ForeColor = 0
+ Begin VB.CheckBox CurrForget
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Cause users to forget room"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 15
+ Top = 600
+ Width = 3375
+ End
+ Begin VB.CheckBox PrefOnly
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Preferred users only"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 14
+ Top = 360
+ Width = 3375
+ End
+ End
+ Begin Threed.SSFrame PWframe
+ Height = 615
+ Left = 3720
+ TabIndex = 11
+ Top = 840
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Password"
+ ForeColor = 0
+ Begin VB.TextBox Password
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 285
+ Left = 120
+ TabIndex = 12
+ Text = "Password"
+ Top = 240
+ Width = 3375
+ End
+ End
+ Begin Threed.SSFrame Frame3D2
+ Height = 1695
+ Left = 120
+ TabIndex = 6
+ Top = 840
+ Width = 3495
+ _Version = 65536
+ _ExtentX = 6165
+ _ExtentY = 2990
+ _StockProps = 14
+ Caption = "Access"
+ ForeColor = 0
+ Begin VB.OptionButton radio_invonly
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Invitation only"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 10
+ Top = 1080
+ Width = 1935
+ End
+ Begin VB.OptionButton radio_passworded
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Accessible using a password"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 9
+ Top = 840
+ Width = 3255
+ End
+ Begin VB.OptionButton radio_guessname
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Accessible by guessing room name"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 8
+ Top = 600
+ Width = 3255
+ End
+ Begin VB.OptionButton radio_public
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Public"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 7
+ Top = 360
+ Width = 1935
+ End
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ Height = 492
+ Left = 6120
+ TabIndex = 0
+ Top = 5520
+ Width = 1212
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ Height = 492
+ Left = 4800
+ TabIndex = 1
+ Top = 5520
+ Width = 1212
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 735
+ Left = 120
+ TabIndex = 4
+ Top = 0
+ Width = 7215
+ _Version = 65536
+ _ExtentX = 12726
+ _ExtentY = 1296
+ _StockProps = 14
+ Caption = "Room Name"
+ ForeColor = 0
+ Begin VB.TextBox RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 120
+ TabIndex = 5
+ Text = "Room Name"
+ Top = 240
+ Width = 6975
+ End
+ End
+End
+Attribute VB_Name = "EditRoom"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim roomFlags&
+
+Private Sub cancel_button_Click()
+ Unload EditRoom
+ Load RoomPrompt
+End Sub
+
+Private Sub check_directory_Click()
+ If check_directory.Value = 1 Then
+ check_uploading.Enabled = True
+ check_download.Enabled = True
+ check_visdir.Enabled = True
+ DirName.Enabled = True
+ Else
+ check_uploading.Enabled = False
+ check_download.Enabled = False
+ check_visdir.Enabled = False
+ DirName.Enabled = True
+ End If
+
+End Sub
+
+Private Sub DirName_Change()
+
+If Len(DirName.Text) > 14 Then DirName.Text = Left$(DirName.Text, 14)
+
+End Sub
+
+Private Sub Form_Load()
+ Show
+ EditRoom.WindowState = 0
+ EditRoom.Top = Int((MainWin.Height - EditRoom.Height) / 3)
+ EditRoom.Left = Int((MainWin.Width - EditRoom.Width) / 2)
+ DoEvents
+
+ a$ = " "
+
+ If begin_trans() = True Then
+ serv_puts ("GETR")
+ a$ = serv_gets()
+ serv_puts ("GETA")
+ b$ = serv_gets()
+ Call end_trans
+
+ If Left$(a$, 1) <> "2" Then GoTo no_access
+ a$ = Right$(a$, Len(a$) - 4)
+ RoomName.Text = extract$(a$, 0)
+ Password.Text = extract$(a$, 1)
+ DirName.Text = extract$(a$, 2)
+ roomFlags& = Val(extract$(a$, 3))
+
+ If Left$(b$, 1) = "2" Then
+ b$ = Right$(b$, Len(b$) - 4)
+ RoomAide.Text = extract$(b$, 0)
+ Else
+ RoomAide.Text = ""
+ End If
+
+ pr& = roomFlags& And 4 ' Private
+ gn& = roomFlags& And 16 ' GuessName
+ pw& = roomFlags& And 8 ' Passworded
+
+ Radio_Public.Value = False
+ Radio_Guessname.Value = False
+ Radio_Passworded.Value = False
+ Radio_InvOnly.Value = False
+
+ If pr& = 0 Then Radio_Public.Value = True
+ If pr& = 4 And gn& = 16 Then Radio_Guessname.Value = True
+ If pr& = 4 And pw& = 8 Then
+ Radio_Passworded.Value = True
+ Password.Enabled = True
+ Else
+ Password.Enabled = False
+ End If
+ If pr& = 4 And gn& = 0 And pw& = 0 Then Radio_InvOnly.Value = True
+
+ If roomFlags& And 4096 Then
+ PrefOnly.Value = 1
+ Else
+ PrefOnly.Value = 0
+ End If
+
+ If roomFlags& And 2048 Then
+ check_netroom.Value = 1
+ Else
+ check_netroom.Value = 0
+ End If
+
+ If roomFlags& And 32 Then
+ check_directory.Value = 1
+ check_uploading.Enabled = True
+ check_download.Enabled = True
+ check_visdir.Enabled = True
+ DirName.Enabled = True
+ Else
+ check_directory.Value = 0
+ check_uploading.Enabled = False
+ check_download.Enabled = False
+ check_visdir.Enabled = False
+ DirName.Enabled = True
+ End If
+ check_uploading.Value = (roomFlags& And 64) / 64
+ check_download.Value = (roomFlags& And 128) / 128
+ check_visdir.Value = (roomFlags& And 256) / 256
+
+ If roomFlags& And 512 Then Radio_AnonOnly.Value = True
+ If roomFlags& And 1024 Then Radio_AnonOption.Value = True
+ If (roomFlags& And (512 Or 1024)) = 0 Then radio_NoAnon.Value = True
+
+ check_readonly.Value = (roomFlags& And 8192) / 8192
+
+ save_button_enabled = True
+ End If
+ GoTo end_load_edit
+no_access:
+ save_button.Enabled = False
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+end_load_edit:
+
+End Sub
+
+Private Sub Password_Change()
+If Len(Password.Text) > 9 Then Password.Text = Left$(Password.Text, 9)
+End Sub
+
+Private Sub radio_guessname_Click()
+ If Radio_Public.Value = False Then
+ CurrForget.Enabled = True
+ Else
+ CurrForget.Value = 0
+ CurrForget.Enabled = False
+ End If
+
+End Sub
+
+Private Sub radio_invonly_Click()
+ If Radio_Public.Value = False Then
+ CurrForget.Enabled = True
+ Else
+ CurrForget.Value = 0
+ CurrForget.Enabled = False
+ End If
+
+End Sub
+
+Private Sub radio_passworded_Click()
+
+ pwframe.Enabled = Radio_Passworded.Value
+ Password.Enabled = Radio_Passworded.Value
+ If Radio_Public.Value = False Then
+ CurrForget.Enabled = True
+ Else
+ CurrForget.Value = 0
+ CurrForget.Enabled = False
+ End If
+
+End Sub
+
+Private Sub radio_public_Click()
+
+ If Radio_Public.Value = False Then
+ CurrForget.Enabled = True
+ Else
+ CurrForget.Value = 0
+ CurrForget.Enabled = False
+ End If
+
+End Sub
+
+Private Sub RoomName_Change()
+
+If Len(RoomName.Text) > 19 Then RoomName.Text = Left$(RoomName.Text, 19)
+
+End Sub
+
+Private Sub save_button_Click()
+
+ unload_ok% = 0
+
+ roomFlags& = roomFlags& Or 4 Or 8 Or 16
+ If Radio_Public.Value = True Then roomFlags& = roomFlags& - 4 - 8 - 16
+ If Radio_Guessname.Value = True Then roomFlags& = roomFlags& - 8
+ If Radio_Passworded.Value = True Then roomFlags& = roomFlags& - 16
+ If Radio_InvOnly.Value = True Then roomFlags& = roomFlags& - 8 - 16
+
+ roomFlags& = (roomFlags& Or 32 Or 64 Or 128 Or 256) - 32 - 64 - 128 - 256
+ roomFlags& = roomFlags& Or (check_directory.Value * 32)
+ roomFlags& = roomFlags& Or (check_uploading.Value * 64)
+ roomFlags& = roomFlags& Or (check_download.Value * 128)
+ roomFlags& = roomFlags& Or (check_visdir.Value * 256)
+
+ roomFlags& = (roomFlags& Or 512 Or 1024) - 512 - 1024
+ If Radio_AnonOnly.Value = True Then roomFlags& = roomFlags& Or 512
+ If Radio_AnonOption.Value = True Then roomFlags& = roomFlags& Or 1024
+
+ roomFlags& = (roomFlags& Or 2048) - 2048
+ roomFlags& = roomFlags& Or (check_netroom.Value * 2048)
+
+ roomFlags& = (roomFlags& Or 4096) - 4096
+ roomFlags& = roomFlags& Or (PrefOnly.Value * 4096)
+
+ roomFlags& = (roomFlags& Or 8192) - 8192
+ roomFlags& = roomFlags& Or (check_readonly.Value * 8192)
+
+ If begin_trans() = True Then
+ unload_ok% = 1
+ rf$ = Str$(roomFlags&)
+ rf$ = Right$(rf$, Len(rf$) - 1)
+ cf$ = Str$(CurrForget.Value)
+ cf$ = Right$(cf$, Len(cf$) - 1)
+ a$ = "SETR " + RoomName.Text + "|" + Password.Text + "|" + DirName.Text + "|" + rf$ + "|" + cf$
+ serv_puts (a$)
+ a$ = serv_gets()
+
+ serv_puts ("SETA " + RoomAide.Text)
+ b$ = serv_gets()
+ Call end_trans
+
+ If Left$(a$, 1) <> "2" Then
+ unload_ok% = 0
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ Else
+ CurrRoomName$ = RoomName.Text
+ End If
+
+ If Left$(b$, 1) <> "2" Then
+ unload_ok% = 0
+ MsgBox Right$(b$, Len(b$) - 4), 16, "Error"
+ End If
+ End If
+
+ If unload_ok% = 1 Then
+ Unload EditRoom
+ Load RoomPrompt
+ End If
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form EnterConfiguration
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Account Configuration"
+ ClientHeight = 3660
+ ClientLeft = 2655
+ ClientTop = 3825
+ ClientWidth = 6420
+ ClipControls = 0 'False
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 4065
+ Left = 2595
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3660
+ ScaleWidth = 6420
+ Top = 3480
+ Width = 6540
+ Begin VB.CheckBox Unlisted
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Be unlisted in the userlog"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 120
+ TabIndex = 0
+ Top = 1680
+ Width = 6135
+ End
+ Begin VB.CheckBox LastOld
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Display last old message when reading new messages"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 120
+ TabIndex = 1
+ Top = 960
+ Width = 6135
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ Height = 492
+ Left = 5160
+ TabIndex = 2
+ Top = 3120
+ Width = 1212
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ Height = 492
+ Left = 3840
+ TabIndex = 3
+ Top = 3120
+ Width = 1212
+ End
+End
+Attribute VB_Name = "EnterConfiguration"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+' ScreenWidth and ScreenHeight don't get used in WinCit.
+' We read them in when we do a GETU only so we can save
+' them back when we save with SETU. This way, if the
+' user is also using the same server with the text client,
+' his/her screen dimensions won't get frotzed.
+Dim ScreenWidth%
+Dim ScreenHeight%
+
+' Here's what we're really interested in.
+Dim UserFlags%
+
+Private Sub cancel_button_Click()
+ Unload EnterConfiguration
+ Load RoomPrompt
+End Sub
+
+Private Sub Form_Load()
+ Show
+ EnterConfiguration.WindowState = 0
+ EnterConfiguration.Top = Int((MainWin.Height - EnterConfiguration.Height) / 3)
+ EnterConfiguration.Left = Int((MainWin.Width - EnterConfiguration.Width) / 2)
+ DoEvents
+
+ a$ = " "
+
+ If begin_trans() = True Then
+ serv_puts ("GETU")
+ a$ = serv_gets()
+ Call end_trans
+ End If
+
+ If Left$(a$, 1) = "2" Then
+ b$ = Right$(a$, Len(a$) - 4)
+ ScreenWidth% = Val(extract$(b$, 0))
+ ScreenHeight% = Val(extract$(b$, 1))
+ UserFlags% = Val(extract$(b$, 2))
+ Else
+ save_button_enabled = False
+ MsgBox Right$(a$, Len(a$) - 4), 16
+ End If
+
+ If (UserFlags% And 16) Then
+ LastOld.Value = 1
+ Else
+ LastOld.Value = 0
+ End If
+
+ If (UserFlags% And 64) Then
+ Unlisted.Value = 1
+ Else
+ Unlisted.Value = 0
+ End If
+
+End Sub
+
+Private Sub save_button_Click()
+
+ UserFlags% = UserFlags% Or 16 Or 64
+
+ If LastOld.Value = 0 Then UserFlags% = UserFlags% - 16
+ If Unlisted.Value = 0 Then UserFlags% = UserFlags% - 64
+
+ a$ = "SETU " + Str$(ScreenWidth%) + "|" + Str$(ScreenHeight%) + "|" + Str$(UserFlags%)
+
+ If begin_trans() = True Then
+
+ serv_puts (a$)
+ a$ = serv_gets()
+ If Left$(a$, 1) <> "2" Then
+ MsgBox Right$(a$, Len(a$) - 4), 16
+ End If
+ Call end_trans
+ Unload EnterConfiguration
+ Load RoomPrompt
+ End If
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form EnterPassword
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ ClientHeight = 2625
+ ClientLeft = 960
+ ClientTop = 2820
+ ClientWidth = 6345
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 3030
+ Left = 900
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 2625
+ ScaleWidth = 6345
+ Top = 2475
+ Width = 6465
+ Begin VB.CommandButton CancelButton
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Cancel"
+ Height = 492
+ Left = 3840
+ TabIndex = 5
+ Top = 2040
+ Width = 1692
+ End
+ Begin VB.CommandButton SetPass
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Change Password"
+ Height = 492
+ Left = 840
+ TabIndex = 4
+ Top = 2040
+ Width = 1692
+ End
+ Begin VB.TextBox ConfPass
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "Wingdings"
+ charset = 2
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 492
+ Left = 240
+ TabIndex = 3
+ Top = 1320
+ Width = 5892
+ End
+ Begin VB.TextBox NewPass
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "Wingdings"
+ charset = 2
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 528
+ Left = 240
+ TabIndex = 2
+ Top = 360
+ Width = 5892
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 855
+ Left = 120
+ TabIndex = 1
+ Top = 120
+ Width = 6135
+ _Version = 65536
+ _ExtentX = 10821
+ _ExtentY = 1508
+ _StockProps = 14
+ Caption = "Enter new password:"
+ End
+ Begin Threed.SSFrame Frame3D2
+ Height = 855
+ Left = 120
+ TabIndex = 0
+ Top = 1080
+ Width = 6135
+ _Version = 65536
+ _ExtentX = 10821
+ _ExtentY = 1508
+ _StockProps = 14
+ Caption = "Enter it again to verify:"
+ End
+End
+Attribute VB_Name = "EnterPassword"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub CancelButton_Click()
+ Unload EnterPassword
+ Load RoomPrompt
+End Sub
+
+Private Sub ConfPass_Change()
+ If NewPass.Text <> "" And NewPass.Text = confpass.Text Then
+ SetPass.Enabled = True
+ Else
+ SetPass.Enabled = False
+ End If
+
+End Sub
+
+Private Sub Form_Load()
+
+ Show
+ EnterPassword.WindowState = 0
+ EnterPassword.Top = Int((MainWin.Height - EnterPassword.Height) / 3)
+ EnterPassword.Left = Int((MainWin.Width - EnterPassword.Width) / 2)
+ DoEvents
+ SetPass.Enabled = False
+ NewPass.Text = ""
+ confpass.Text = ""
+
+End Sub
+
+Private Sub NewPass_Change()
+ If NewPass.Text <> "" And NewPass.Text = confpass.Text Then
+ SetPass.Enabled = True
+ Else
+ SetPass.Enabled = False
+ End If
+End Sub
+
+Private Sub SetPass_Click()
+ If begin_trans() = True Then
+ serv_puts ("SETP " + NewPass.Text)
+ buf$ = serv_gets()
+ If Left$(buf$, 1) <> "2" Then
+ MsgBox Right$(buf$, Len(buf$) - 4), 48
+ End If
+ Unload EnterPassword
+ Load RoomPrompt
+ Call end_trans
+ End If
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form EnterMessage
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ ClientHeight = 6915
+ ClientLeft = 1410
+ ClientTop = 2880
+ ClientWidth = 9600
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Serif"
+ charset = 0
+ weight = 700
+ size = 6.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 7320
+ Left = 1350
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 6915
+ ScaleWidth = 9600
+ Top = 2535
+ Width = 9720
+ Begin VB.CommandButton hold_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Hold"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 6000
+ TabIndex = 15
+ Top = 6480
+ Width = 1092
+ End
+ Begin VB.CommandButton ShowFmt
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Show &Formatted"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 2640
+ TabIndex = 14
+ Top = 6480
+ Width = 1572
+ End
+ Begin Threed.SSPanel CurrPos
+ Height = 375
+ Left = 120
+ TabIndex = 13
+ Top = 6480
+ Width = 1695
+ _Version = 65536
+ _ExtentX = 2990
+ _ExtentY = 661
+ _StockProps = 15
+ Caption = "0 / 0"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin VB.CommandButton InsQuote
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Insert &Quote"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 4320
+ TabIndex = 12
+ Top = 6480
+ Width = 1572
+ End
+ Begin Threed.SSPanel message_panel
+ Height = 5535
+ Left = 0
+ TabIndex = 11
+ Top = 840
+ Width = 10455
+ _Version = 65536
+ _ExtentX = 18441
+ _ExtentY = 9763
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 9
+ BorderWidth = 0
+ BevelOuter = 1
+ Begin VB.TextBox message_text
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "Courier New"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 5295
+ Left = 120
+ MultiLine = -1 'True
+ ScrollBars = 2 'Vertical
+ TabIndex = 1
+ Top = 120
+ Width = 10215
+ End
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 7200
+ TabIndex = 10
+ Top = 6480
+ Width = 1092
+ End
+ Begin Threed.SSPanel room_panel
+ Height = 375
+ Left = 6000
+ TabIndex = 9
+ Top = 420
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 661
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.24
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin Threed.SSPanel date_panel
+ Height = 375
+ Left = 6000
+ TabIndex = 6
+ Top = 15
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 661
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.24
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin Threed.SSPanel to_panel
+ Height = 375
+ Left = 480
+ TabIndex = 5
+ Top = 420
+ Width = 4935
+ _Version = 65536
+ _ExtentX = 8705
+ _ExtentY = 661
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.24
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 8400
+ TabIndex = 0
+ Top = 6480
+ Width = 1092
+ End
+ Begin Threed.SSPanel from_panel
+ Height = 375
+ Left = 480
+ TabIndex = 2
+ Top = 15
+ Width = 4935
+ _Version = 65536
+ _ExtentX = 8705
+ _ExtentY = 661
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.24
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin VB.Label Label5
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Room:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 5400
+ TabIndex = 8
+ Top = 480
+ Width = 615
+ End
+ Begin VB.Label Label4
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Date:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 5520
+ TabIndex = 7
+ Top = 120
+ Width = 495
+ End
+ Begin VB.Label Label3
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "To:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 0
+ TabIndex = 4
+ Top = 480
+ Width = 495
+ End
+ Begin VB.Label Label2
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "From:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 0
+ TabIndex = 3
+ Top = 120
+ Width = 495
+ End
+End
+Attribute VB_Name = "EnterMessage"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+ HoldMessage$ = ""
+ Unload EnterMessage
+ Load RoomPrompt
+End Sub
+
+Private Sub Form_Load()
+
+ message_text.FontName = GetPrivateProfileVBString("Preferences", "VariFontName", "MS Sans Serif", "WINCIT.INI")
+ message_text.FontSize = GetPrivateProfileInt("Preferences", "VariFontSize", 10, "WINCIT.INI")
+ If Len(HoldMessage$) > 0 Then
+ message_text.Text = Cit_Format(HoldMessage$)
+ End If
+ to_panel.Caption = recp$
+ room_panel.Caption = CurrRoomName$
+
+ Show
+ DoEvents
+ message_text.SetFocus
+
+End Sub
+
+Private Sub Form_Resize()
+
+ EnterMessage.Left = 0
+ EnterMessage.Top = 0
+ EnterMessage.Width = MainWin.Width
+ EnterMessage.Height = MainWin.Height - 450
+
+ cancel_button.Top = Abs(EnterMessage.Height - 520)
+ save_button.Top = Abs(EnterMessage.Height - 520)
+ InsQuote.Top = Abs(EnterMessage.Height - 520)
+ ShowFmt.Top = Abs(EnterMessage.Height - 520)
+ hold_button.Top = Abs(EnterMessage.Height - 520)
+ CurrPos.Top = Abs(EnterMessage.Height - 520)
+ message_text.Width = Abs(EnterMessage.Width - 336)
+ message_text.Height = Abs(EnterMessage.Height - 1664)
+ message_panel.Height = Abs(EnterMessage.Height - 1424)
+ message_panel.Width = Abs(EnterMessage.Width - 100)
+End Sub
+
+Private Sub hold_button_Click()
+ HoldMessage$ = message_text.Text
+ Unload EnterMessage
+ Load RoomPrompt
+End Sub
+
+Private Sub InsQuote_Click()
+
+ message_text.SelText = Clipboard.GetText()
+ Call ShowFmt_Click
+
+End Sub
+
+Private Sub message_text_Click()
+
+ CurrPos.Caption = Str$(message_text.SelStart) + " / " + Str$(Len(message_text.Text))
+
+End Sub
+
+Private Sub message_text_KeyDown(KeyCode As Integer, Shift As Integer)
+
+ CurrPos.Caption = Str$(message_text.SelStart) + " / " + Str$(Len(message_text.Text))
+
+End Sub
+
+Private Sub save_button_Click()
+
+ a$ = message_text.Text
+ Do While Right$(a$, 2) = Chr$(13) + Chr$(10)
+ a$ = Left$(a$, Len(a$) - 2)
+ Loop
+ message_text.Text = Cit_Format(a$)
+ DoEvents
+
+ If begin_trans() = True Then
+ a$ = "ENT0 1|" + recp$
+ serv_puts (a$)
+ a$ = serv_gets()
+ If Left$(a$, 1) <> "4" Then
+ Call end_trans
+ MsgBox a$
+ Else
+ Transmit_Buffer (message_text.Text)
+ serv_puts ("000")
+ Call end_trans
+ HoldMessage$ = ""
+ Unload EnterMessage
+ Load RoomPrompt
+ End If
+ End If
+
+End Sub
+
+Private Sub ShowFmt_Click()
+ a$ = message_text.Text
+ Do While Right$(a$, 2) = Chr$(13) + Chr$(10)
+ a$ = Left$(a$, Len(a$) - 2)
+ Loop
+ message_text.Text = Cit_Format(a$)
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form EnterRoom
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Enter a new room..."
+ ClientHeight = 3840
+ ClientLeft = 1980
+ ClientTop = 3390
+ ClientWidth = 5640
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 4245
+ Left = 1920
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3840
+ ScaleWidth = 5640
+ Top = 3045
+ Width = 5760
+ Begin VB.OptionButton NewRoomType
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Invitation-only (explicit invitation by Aide or Room Aide)"
+ ForeColor = &H80000008&
+ Height = 255
+ Index = 3
+ Left = 240
+ TabIndex = 10
+ Top = 1920
+ Width = 5175
+ End
+ Begin VB.OptionButton NewRoomType
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Passworded (hidden plus password required for access)"
+ ForeColor = &H80000008&
+ Height = 255
+ Index = 2
+ Left = 240
+ TabIndex = 9
+ Top = 1680
+ Width = 5175
+ End
+ Begin VB.OptionButton NewRoomType
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "GuessName (hidden until user explicitly types room name)"
+ ForeColor = &H80000008&
+ Height = 255
+ Index = 1
+ Left = 240
+ TabIndex = 8
+ Top = 1440
+ Width = 5175
+ End
+ Begin VB.OptionButton NewRoomType
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Public (all users can access this room by default)"
+ ForeColor = &H80000008&
+ Height = 255
+ Index = 0
+ Left = 240
+ TabIndex = 7
+ Top = 1200
+ Width = 5175
+ End
+ Begin VB.TextBox NewRoomPass
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 240
+ TabIndex = 6
+ Top = 2640
+ Width = 5175
+ End
+ Begin Threed.SSFrame Frame3D3
+ Height = 735
+ Left = 120
+ TabIndex = 5
+ Top = 2400
+ Width = 5415
+ _Version = 65536
+ _ExtentX = 9551
+ _ExtentY = 1296
+ _StockProps = 14
+ Caption = "Room Password"
+ ForeColor = 0
+ End
+ Begin Threed.SSFrame Frame3D2
+ Height = 1455
+ Left = 120
+ TabIndex = 4
+ Top = 840
+ Width = 5415
+ _Version = 65536
+ _ExtentX = 9551
+ _ExtentY = 2566
+ _StockProps = 14
+ Caption = "Type of room"
+ ForeColor = 0
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 735
+ Left = 120
+ TabIndex = 2
+ Top = 0
+ Width = 5415
+ _Version = 65536
+ _ExtentX = 9551
+ _ExtentY = 1296
+ _StockProps = 14
+ Caption = "Name for new room"
+ ForeColor = 0
+ Begin VB.TextBox NewRoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 120
+ TabIndex = 3
+ Top = 240
+ Width = 5175
+ End
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ Height = 492
+ Left = 4200
+ TabIndex = 1
+ Top = 3240
+ Width = 1332
+ End
+ Begin VB.CommandButton ok_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&OK (create)"
+ Height = 492
+ Left = 2760
+ TabIndex = 0
+ Top = 3240
+ Width = 1332
+ End
+End
+Attribute VB_Name = "EnterRoom"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+
+ Unload EnterRoom
+ Load RoomPrompt
+
+End Sub
+
+Private Sub Form_Load()
+
+
+ Show
+ EnterRoom.WindowState = 0
+ EnterRoom.Top = Int((MainWin.Height - EnterRoom.Height) / 3)
+ EnterRoom.Left = Int((MainWin.Width - EnterRoom.Width) / 2)
+
+ NewRoomType(0).Value = True
+ NewRoomType(1).Value = False
+ NewRoomType(2).Value = False
+ NewRoomType(3).Value = False
+ NewRoomPass.Enabled = NewRoomType(2).Value
+ ok_button.Enabled = False
+
+End Sub
+
+Private Sub NewRoomName_Change()
+
+ If Len(NewRoomName.Text) > 0 Then
+ ok_button.Enabled = True
+ Else
+ ok_button.Enabled = False
+ End If
+
+End Sub
+
+Private Sub NewRoomType_Click(Index As Integer)
+
+ NewRoomPass.Enabled = NewRoomType(2).Value
+
+End Sub
+
+Private Sub ok_button_Click()
+
+ b% = 0
+ For c% = 0 To 3
+ If NewRoomType(c%).Value = True Then b% = c%
+ Next c%
+
+ If begin_trans() = True Then
+ serv_puts ("CRE8 1|" + NewRoomName.Text + "|" + Str$(b%) + "|" + NewRoomPass.Text)
+ a$ = serv_gets()
+ Call end_trans
+ End If
+
+ If Left$(a$, 1) <> "2" Then
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ Else
+ CurrRoomName$ = NewRoomName.Text
+ SaveOldCount = 0
+ SaveNewCount = 0
+ Unload EnterRoom
+ Load RoomPrompt
+ End If
+
+End Sub
+
--- /dev/null
+Attribute VB_Name = "GLOBALS"
+' KeepAlive is the frequency with which to send NOOP
+' commands to the server to keep it from timing out
+' (and also to check for express messages).
+
+Global Const KeepAlive = 30000
+Global Const MaxRooms = 200
+Global Const DefaultPort = 2112
+
+' Used during startup for user or system cancel of call
+Global Cancelled
+
+Global CurrRoomName$
+Global CurrRoomFlags%
+Global IsRoomAide%
+Global DoubleClickAction$
+
+Global SaveNewRooms$(MaxRooms)
+Global SaveOldRooms$(MaxRooms)
+Global SaveNewCount
+Global SaveOldCount
+
+Global serv_pid%
+Global serv_nodename$
+Global serv_humannode$
+Global serv_fqdn$
+Global serv_software$
+Global serv_rev_level!
+Global serv_bbs_city$
+Global serv_sysadm$
+
+Global msg_array&(256)
+Global max_msgs%
+
+Global recp$
+
+Global axlevel%
+Global need_regis%
+
+Global axdefs$(7)
+Global HoldMessage$
+
+Global DownLoadFileName$
+
+Global LastMessageRead&
+
+Function Cit_Format(ib As String) As String
+
+ob$ = ""
+fl% = 0
+Do Until Len(ib) = 0
+
+ nl% = InStr(ib, Chr$(13) + Chr$(10))
+ If nl% = 0 Then
+ a$ = ib
+ ib = ""
+ Else
+ a$ = Left$(ib, nl% - 1)
+ ib = Right$(ib, Len(ib) - nl% - 1)
+ End If
+
+ If fl% = 1 And Left$(a$, 1) = " " Then
+ ob$ = ob$ + Chr$(13) + Chr$(10)
+ End If
+
+ ob$ = ob$ + a$ + " "
+
+ fl% = 1
+ Loop
+
+ Do While Left$(ob$, 2) = Chr$(13) + Chr$(10)
+ ob$ = Right$(ob$, Len(ob$) - 2)
+ Loop
+ Do While Right$(ob$, 2) = Chr$(13) + Chr$(10)
+ ob$ = Left$(ob$, Len(ob$) - 2)
+ Loop
+
+Cit_Format = ob$
+End Function
+
+Function extract$(source$, parmnum%)
+
+ buf$ = source$
+ If parmnum% > 0 Then
+ For a% = 1 To parmnum%
+ b% = InStr(1, buf$, "|")
+ If (b% > 0) Then buf$ = Right$(buf$, Len(buf$) - b%)
+ Next a%
+ End If
+
+ b% = InStr(1, buf$, "|")
+ If b% > 0 Then buf$ = Left$(buf$, b% - 1)
+
+ extract$ = buf$
+End Function
+
+Sub main()
+ Call setvars ' set unixtime stuff in Ford module
+ editedBBSnum = (-1)
+
+ axdefs$(0) = "Marked for deletion"
+ axdefs$(1) = "New unvalidated user"
+ axdefs$(2) = "Problem user"
+ axdefs$(3) = "Local user"
+ axdefs$(4) = "Network user"
+ axdefs$(5) = "Preferred user"
+ axdefs$(6) = "Aide"
+
+ Load SelectBBS
+End Sub
+
+Function StripTrailingWhiteSpace(padstr As String) As String
+ If Len(padstr) > 0 Then
+ Do While Asc(Right$(padstr, 1)) = 0 Or Right$(padstr, 1) = " "
+ padstr = Left$(padstr, Len(padstr) - 1)
+ If Len(padstr) < 1 Then Exit Do
+ Loop
+ End If
+
+ If Len(padstr) > 0 Then
+ Do While Asc(Left$(padstr, 1)) = 0 Or Left$(padstr, 1) = " "
+ padstr = Right$(padstr, Len(padstr) - 1)
+ If Len(padstr) < 1 Then Exit Do
+ Loop
+ End If
+
+ StripTrailingWhiteSpace = padstr
+End Function
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form Invite
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Invite a user"
+ ClientHeight = 3225
+ ClientLeft = 2430
+ ClientTop = 2940
+ ClientWidth = 4710
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 3630
+ Left = 2370
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3225
+ ScaleWidth = 4710
+ Top = 2595
+ Width = 4830
+ Begin Threed.SSPanel Panel3D1
+ Height = 615
+ Left = 120
+ TabIndex = 5
+ Top = 1560
+ Width = 4455
+ _Version = 65536
+ _ExtentX = 7858
+ _ExtentY = 1085
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelInner = 1
+ Begin VB.ComboBox UserName
+ Appearance = 0 'Flat
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 420
+ Left = 120
+ TabIndex = 6
+ Top = 120
+ Width = 4215
+ End
+ End
+ Begin VB.CommandButton invite_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Invite this user"
+ Height = 735
+ Left = 120
+ TabIndex = 0
+ Top = 2400
+ Width = 2175
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ Height = 735
+ Left = 2400
+ TabIndex = 4
+ Top = 2400
+ Width = 2175
+ End
+ Begin Threed.SSPanel RoomName
+ Height = 735
+ Left = 120
+ TabIndex = 3
+ Top = 360
+ Width = 4455
+ _Version = 65536
+ _ExtentX = 7858
+ _ExtentY = 1296
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelInner = 1
+ End
+ Begin VB.Label Label2
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "User to invite:"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 1
+ Top = 1320
+ Width = 4455
+ End
+ Begin VB.Label Label1
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Room Name:"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 2
+ Top = 120
+ Width = 4455
+ End
+End
+Attribute VB_Name = "Invite"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+
+ Unload Invite
+ Load RoomPrompt
+
+End Sub
+
+Private Sub Form_Load()
+ Show
+ Invite.WindowState = 0
+ Invite.Top = Int((MainWin.Height - Invite.Height) / 3)
+ Invite.Left = Int((MainWin.Width - Invite.Width) / 2)
+ RoomName.Caption = CurrRoomName$
+ DoEvents
+
+If begin_trans() = True Then
+
+ serv_puts ("LIST")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If (a$ <> "000") Then UserName.AddItem (extract(a$, 0))
+ DoEvents
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+ End If
+
+End Sub
+
+Private Sub invite_button_Click()
+
+If begin_trans() = True Then
+
+ serv_puts ("INVT " + UserName.Text)
+ a$ = serv_gets()
+ Call end_trans
+
+ If Left$(a$, 1) <> "2" Then
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ Else
+ Unload Invite
+ Load RoomPrompt
+ End If
+
+ End If
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form IPC
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BorderStyle = 1 'Fixed Single
+ ClientHeight = 3075
+ ClientLeft = 2130
+ ClientTop = 1575
+ ClientWidth = 5895
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "System"
+ charset = 0
+ weight = 700
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 3480
+ Left = 2070
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3075
+ ScaleWidth = 5895
+ Top = 1230
+ Width = 6015
+ Begin VB.Timer md_timeout
+ Left = 120
+ Top = 2520
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Cancel"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 492
+ Left = 4680
+ TabIndex = 1
+ Top = 2520
+ Width = 1092
+ End
+ Begin VB.TextBox DebugWin
+ Appearance = 0 'Flat
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 2052
+ Left = 0
+ MultiLine = -1 'True
+ ScrollBars = 2 'Vertical
+ TabIndex = 0
+ Top = 360
+ Width = 5892
+ End
+ Begin IPOCXLib.IPocx TCP
+ Left = 600
+ Top = 2520
+ _Version = 65536
+ _ExtentX = 2143
+ _ExtentY = 873
+ _StockProps = 0
+ HostAddr = ""
+ HostPort = 0
+ LocalAddr = ""
+ LocalPort = 0
+ End
+ Begin VB.Label StatMsg
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H80000005&
+ Caption = "Connecting to server, please wait..."
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 300
+ Left = 0
+ TabIndex = 2
+ Top = 0
+ Width = 5892
+ WordWrap = -1 'True
+ End
+End
+Attribute VB_Name = "IPC"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+
+Private Sub cancel_button_Click()
+ Cancelled = True
+ DebugWin.Text = "CANCELLED!"
+End Sub
+
+Private Sub Form_Load()
+
+ Cancelled = False
+ IPC.Width = 5988
+ IPC.Height = 3492
+ IPC.Top = Int((MainWin.Height - IPC.Height) / 3)
+ IPC.Left = Int((MainWin.Width - IPC.Width) / 2)
+ Show
+ DoEvents
+
+
+TCPConnect:
+ tcpconnected = False
+ h$ = StripTrailingWhiteSpace(CurrBBS.PhoneOrAddress)
+ p$ = StripTrailingWhiteSpace(Str$(CurrBBS.TCPport))
+
+ On Error Resume Next
+ statmsg.Caption = "Trying <" + h$ + "> port <" + p$ + ">"
+ TCP.HostAddr = h$
+ TCP.HostPort = p$
+ TCP.Connect
+ TCPinbuf$ = ""
+
+ If Cancelled = True Then GoTo endload
+
+StartServer:
+ statmsg.Caption = serv_gets()
+
+ IPC.Width = 0
+ IPC.Height = 0
+
+ DoubleClickAction$ = GetPrivateProfileVBString("Preferences", "DoubleClickAction", "GOTO", "WINCIT.INI")
+ Load CitUser
+ md_timeout.Interval = KeepAlive
+ md_timeout.Enabled = True
+ InTrans = False
+ SaveNewCount = 0
+ SaveOldCount = 0
+
+endload:
+ If Cancelled = True Then
+ TCP.Connected = False
+ IPC.Width = 0
+ IPC.Height = 0
+ Load SelectBBS
+
+ End If
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+
+ If tcpconnected = True Then
+ tcpconnected = False
+ End If
+
+End Sub
+
+Private Sub md_timeout_Timer()
+ md_timeout.Enabled = False
+ If begin_trans() = True Then
+ serv_puts ("NOOP")
+ a$ = serv_gets()
+ If Left$(a$, 1) <> "2" Then
+ MsgBox a$, 48
+ End If
+ If Mid$(a$, 4, 1) = "*" Then
+ serv_puts ("PEXP")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ ex$ = ""
+ Do
+ a$ = serv_gets()
+ If a$ <> "000" Then ex$ = ex$ + a$ + Chr$(13) + Chr$(10)
+ Loop Until a$ = "000"
+ MsgBox ex$, 0, "Express message"
+ End If
+ End If
+ Call end_trans
+ End If
+ md_timeout.Interval = KeepAlive
+ md_timeout.Enabled = True
+End Sub
+
+
+Private Sub TCP_DataReceived(ByVal data As String, ByVal l As Long)
+
+TCPinbuf$ = TCPinbuf$ + data
+
+End Sub
+
+Private Sub TCP_Disconnected()
+
+tcpconnected = False
+
+End Sub
+
+
--- /dev/null
+Line 25: Class IPPORT of control TCP was not a loaded control class.
+Line 35: Class MSComm of control modem was not a loaded control class.
+Line 26: The property name EOL in TCP is invalid.
+Line 27: The property name InBufferSize in TCP is invalid.
+Line 29: The property name Linger in TCP is invalid.
+Line 30: The property name LocalPort in TCP is invalid.
+Line 31: The property name OutBufferSize in TCP is invalid.
+Line 32: The property name Port in TCP is invalid.
+Line 36: The property name CommPort in modem is invalid.
+Line 37: The property name Handshaking in modem is invalid.
+Line 38: The property name InBufferSize in modem is invalid.
+Line 39: The property name InputLen in modem is invalid.
+Line 40: The property name Interval in modem is invalid.
+Line 42: The property name OutBufferSize in modem is invalid.
+Line 43: The property name RThreshold in modem is invalid.
+Line 44: The property name RTSEnable in modem is invalid.
+Line 45: The property name Settings in modem is invalid.
--- /dev/null
+Attribute VB_Name = "IPCSUPP"
+Global tcpconnected
+Global count_serv_puts&
+Global InTrans
+Global TCPinbuf$
+
+Type BBSdir
+ Name As String * 80
+ PhoneOrAddress As String * 50
+ TCPport As Integer
+ End Type
+
+Global CurrBBS As BBSdir
+Global editedBBSnum As Integer
+
+Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
+Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
+Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
+
+
+
+Function begin_trans() As Integer
+
+ If InTrans = True Then
+ begin_trans = False
+ Else
+ InTrans = True
+ MainWin.MousePointer = 11
+ begin_trans = True
+ End If
+End Function
+
+
+
+
+Sub end_trans()
+ MainWin.MousePointer = 0
+ InTrans = False
+End Sub
+
+Function GetPrivateProfileVBString(lpApplicationName As String, lpKeyName As String, nDefault As String, ByVal lpFileName As String) As String
+
+ buf$ = " "
+ a% = GetPrivateProfileString(lpApplicationName, lpKeyName, nDefault, buf$, Len(buf$), lpFileName)
+
+
+ GetPrivateProfileVBString = StripTrailingWhiteSpace(buf$)
+End Function
+
+
+Function serv_gets()
+ buf$ = ""
+
+ Do
+ DoEvents
+ Loop While InStr(TCPinbuf$, Chr$(10)) = 0
+ b% = InStr(TCPinbuf$, Chr$(10))
+ serv_gets = Left$(TCPinbuf$, b% - 1)
+ TCPinbuf$ = Right$(TCPinbuf$, Len(TCPinbuf$) - b%)
+
+End Function
+
+Sub serv_puts(buf$)
+ IPC.TCP.Send (buf$ + Chr$(10))
+End Sub
+
+Function serv_read(bytes As Integer)
+ buf$ = ""
+
+ Do
+ DoEvents
+ Loop While Len(TCPinbuf$) < bytes
+ serv_read = Left$(TCPinbuf$, bytes)
+ TCPinbuf$ = Right$(TCPinbuf$, Len(TCPinbuf$) - bytes)
+
+
+End Function
+
+Sub Transmit_Buffer(SendBuf As String)
+ a$ = SendBuf
+ Do Until Len(a$) = 0
+ nl% = InStr(a$, Chr$(13) + Chr$(10))
+ If (nl% > 0) And (nl% < 200) Then
+ serv_puts (Left$(a$, nl% - 1))
+ a$ = " " + Right$(a$, Len(a$) - nl% - 1)
+ End If
+ If (nl% = 0) And (Len(a$) < 200) Then
+ serv_puts (a$)
+ a$ = ""
+ End If
+ If ((nl% = 0) And (Len(a$) >= 200)) Or (nl% >= 200) Then
+ ns% = 0
+ For z = 1 To Len(a$)
+ y = InStr(z, a$, " ")
+ If (y > ns%) Then ns% = y
+ Next z
+ If (ns% = 0) Or (ns% >= 200) Then ns% = 200
+ serv_puts (Left$(a$, ns% - 1))
+ a$ = Right$(a$, Len(a$) - ns%)
+ End If
+ Loop
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form KickOut
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Kick Out a user"
+ ClientHeight = 3225
+ ClientLeft = 2430
+ ClientTop = 2940
+ ClientWidth = 4710
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 3630
+ Left = 2370
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3225
+ ScaleWidth = 4710
+ Top = 2595
+ Width = 4830
+ Begin Threed.SSPanel Panel3D1
+ Height = 615
+ Left = 120
+ TabIndex = 5
+ Top = 1560
+ Width = 4455
+ _Version = 65536
+ _ExtentX = 7858
+ _ExtentY = 1085
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelInner = 1
+ Begin VB.ComboBox UserName
+ Appearance = 0 'Flat
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 420
+ Left = 120
+ TabIndex = 6
+ Top = 120
+ Width = 4215
+ End
+ End
+ Begin VB.CommandButton KickOut_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Kick Out this user"
+ Height = 735
+ Left = 120
+ TabIndex = 0
+ Top = 2400
+ Width = 2175
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ Height = 735
+ Left = 2400
+ TabIndex = 4
+ Top = 2400
+ Width = 2175
+ End
+ Begin Threed.SSPanel RoomName
+ Height = 735
+ Left = 120
+ TabIndex = 3
+ Top = 360
+ Width = 4455
+ _Version = 65536
+ _ExtentX = 7858
+ _ExtentY = 1296
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelInner = 1
+ End
+ Begin VB.Label Label2
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "User to Kick Out:"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 1
+ Top = 1320
+ Width = 4455
+ End
+ Begin VB.Label Label1
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Room Name:"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 2
+ Top = 120
+ Width = 4455
+ End
+End
+Attribute VB_Name = "KickOut"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+
+ Unload KickOut
+ Load RoomPrompt
+
+End Sub
+
+Private Sub Form_Load()
+ Show
+ KickOut.WindowState = 0
+ KickOut.Top = Int((MainWin.Height - KickOut.Height) / 3)
+ KickOut.Left = Int((MainWin.Width - KickOut.Width) / 2)
+ RoomName.Caption = CurrRoomName$
+ DoEvents
+
+If begin_trans() = True Then
+
+ serv_puts ("WHOK")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If (a$ <> "000") Then UserName.AddItem (extract(a$, 0))
+ DoEvents
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+ End If
+
+End Sub
+
+Private Sub KickOut_button_Click()
+
+If begin_trans() = True Then
+
+ serv_puts ("KICK " + UserName.Text)
+ a$ = serv_gets()
+ Call end_trans
+
+ If Left$(a$, 1) <> "2" Then
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ Else
+ Unload KickOut
+ Load RoomPrompt
+ End If
+
+ End If
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.MDIForm MainWin
+ BackColor = &H8000000C&
+ Caption = "WinCit"
+ ClientHeight = 5940
+ ClientLeft = 1140
+ ClientTop = 1515
+ ClientWidth = 6690
+ Height = 6405
+ Icon = "MainWin.frx":0000
+ Left = 1080
+ LinkTopic = "MDIForm1"
+ ScrollBars = 0 'False
+ Top = 1110
+ Width = 6810
+ WindowState = 2 'Maximized
+End
+Attribute VB_Name = "MainWin"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
--- /dev/null
+VERSION 4.00
+Begin VB.Form ModemSetup
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ ClientHeight = 4170
+ ClientLeft = 2295
+ ClientTop = 1710
+ ClientWidth = 5370
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 4575
+ Left = 2235
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 4170
+ ScaleWidth = 5370
+ Top = 1365
+ Width = 5490
+ Begin VB.CommandButton Cancel_Button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Cancel"
+ Height = 492
+ Left = 3960
+ TabIndex = 23
+ Top = 3600
+ Width = 1332
+ End
+ Begin VB.CommandButton Save_Button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Save"
+ Height = 492
+ Left = 2520
+ TabIndex = 22
+ Top = 3600
+ Width = 1332
+ End
+ Begin Threed.SSFrame Frame3D7
+ Height = 615
+ Left = 120
+ TabIndex = 21
+ Top = 2880
+ Width = 5175
+ _Version = 65536
+ _ExtentX = 9128
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Dial Command Prefix"
+ ForeColor = 0
+ Font3D = 1
+ Begin VB.TextBox uDialPrefix
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ Height = 288
+ Left = 120
+ TabIndex = 25
+ Top = 240
+ Width = 4932
+ End
+ End
+ Begin Threed.SSFrame Frame3D6
+ Height = 615
+ Left = 120
+ TabIndex = 20
+ Top = 2280
+ Width = 5175
+ _Version = 65536
+ _ExtentX = 9128
+ _ExtentY = 1085
+ _StockProps = 14
+ Caption = "Modem Initialization String"
+ ForeColor = 0
+ Font3D = 1
+ Begin VB.TextBox uInitString
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ Height = 288
+ Left = 120
+ TabIndex = 24
+ Top = 240
+ Width = 4932
+ End
+ End
+ Begin Threed.SSFrame Frame3D5
+ Height = 1095
+ Left = 4320
+ TabIndex = 16
+ Top = 1200
+ Width = 975
+ _Version = 65536
+ _ExtentX = 1720
+ _ExtentY = 1931
+ _StockProps = 14
+ Caption = "Stop Bits"
+ ForeColor = 0
+ Font3D = 1
+ Begin VB.OptionButton SB2
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "2"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 18
+ Top = 720
+ Width = 732
+ End
+ Begin VB.OptionButton SB1
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "1"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 17
+ Top = 360
+ Width = 732
+ End
+ End
+ Begin Threed.SSFrame Frame3D4
+ Height = 1095
+ Left = 4320
+ TabIndex = 6
+ Top = 0
+ Width = 975
+ _Version = 65536
+ _ExtentX = 1720
+ _ExtentY = 1931
+ _StockProps = 14
+ Caption = "Data Bits"
+ ForeColor = 0
+ Font3D = 1
+ Begin VB.OptionButton DB7
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "7"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 15
+ Top = 720
+ Width = 612
+ End
+ Begin VB.OptionButton DB8
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "8"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 14
+ Top = 360
+ Width = 612
+ End
+ End
+ Begin Threed.SSFrame Frame3D3
+ Height = 2295
+ Left = 3120
+ TabIndex = 4
+ Top = 0
+ Width = 1095
+ _Version = 65536
+ _ExtentX = 1931
+ _ExtentY = 4048
+ _StockProps = 14
+ Caption = "Parity"
+ ForeColor = 0
+ Font3D = 1
+ Begin VB.OptionButton ParSpace
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Space"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 13
+ Top = 1800
+ Width = 852
+ End
+ Begin VB.OptionButton ParMark
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Mark"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 12
+ Top = 1440
+ Width = 852
+ End
+ Begin VB.OptionButton ParOdd
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Odd"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 11
+ Top = 1080
+ Width = 852
+ End
+ Begin VB.OptionButton ParEven
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Even"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 10
+ Top = 720
+ Width = 852
+ End
+ Begin VB.OptionButton ParNone
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "None"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 5
+ Top = 360
+ Width = 852
+ End
+ End
+ Begin Threed.SSFrame Frame3D2
+ Height = 855
+ Left = 1320
+ TabIndex = 2
+ Top = 0
+ Width = 1695
+ _Version = 65536
+ _ExtentX = 2990
+ _ExtentY = 1508
+ _StockProps = 14
+ Caption = "Speed"
+ ForeColor = 0
+ Font3D = 1
+ Begin VB.ComboBox SpeedSel
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 315
+ Left = 120
+ TabIndex = 3
+ Top = 360
+ Width = 1452
+ End
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 2295
+ Left = 120
+ TabIndex = 0
+ Top = 0
+ Width = 1095
+ _Version = 65536
+ _ExtentX = 1931
+ _ExtentY = 4048
+ _StockProps = 14
+ Caption = "COM Port"
+ ForeColor = 0
+ Font3D = 1
+ Begin VB.OptionButton Com5
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Com 5"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 19
+ Top = 1800
+ Width = 852
+ End
+ Begin VB.OptionButton Com4
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Com 4"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 9
+ Top = 1440
+ Width = 852
+ End
+ Begin VB.OptionButton Com3
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Com 3"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 8
+ Top = 1080
+ Width = 852
+ End
+ Begin VB.OptionButton Com2
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Com 2"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 7
+ Top = 720
+ Width = 852
+ End
+ Begin VB.OptionButton Com1
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Com 1"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 1
+ Top = 360
+ Width = 852
+ End
+ End
+End
+Attribute VB_Name = "ModemSetup"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+ Unload ModemSetup
+ Load SelectBBS
+End Sub
+
+Private Sub Form_Load()
+
+ Select Case comport%
+ Case 1
+ Com1.Value = True
+ Case 2
+ Com2.Value = True
+ Case 3
+ Com3.Value = True
+ Case 4
+ Com4.Value = True
+ Case 5
+ Com5.Value = True
+ End Select
+
+ SpeedSel.Text = Str$(comspeed&)
+ SpeedSel.AddItem ("300")
+ SpeedSel.AddItem ("1200")
+ SpeedSel.AddItem ("2400")
+ SpeedSel.AddItem ("4800")
+ SpeedSel.AddItem ("9600")
+ SpeedSel.AddItem ("19200")
+
+ Select Case ComParity$
+ Case "N"
+ ParNone.Value = True
+ Case "E"
+ ParEven.Value = True
+ Case "O"
+ ParOdd.Value = True
+ Case "M"
+ ParMark.Value = True
+ Case "S"
+ ParSpace.Value = True
+ End Select
+
+ Select Case comdatabits%
+ Case 8
+ DB8.Value = True
+ Case 7
+ DB7.Value = True
+ End Select
+
+ Select Case comstopbits%
+ Case 1
+ SB1.Value = True
+ Case 2
+ SB2.Value = True
+ End Select
+
+ uInitString.Text = cominitstring$
+ uDialPrefix.Text = comdialprefix$
+
+End Sub
+
+Private Sub Form_Resize()
+
+ ModemSetup.Left = Abs(Int((MainWin.Width - ModemSetup.Width) / 2))
+ ModemSetup.Top = Abs(Int((MainWin.Height - ModemSetup.Height) / 3))
+
+
+End Sub
+
+Private Sub save_button_Click()
+
+ If Com1.Value = True Then comport% = 1
+ If Com2.Value = True Then comport% = 2
+ If Com3.Value = True Then comport% = 3
+ If Com4.Value = True Then comport% = 4
+ If Com5.Value = True Then comport% = 5
+
+ comspeed& = CLng(SpeedSel.Text)
+
+ If ParNone.Value = True Then ComParity$ = "N"
+ If ParEven.Value = True Then ComParity$ = "E"
+ If ParOdd.Value = True Then ComParity$ = "O"
+ If ParMark.Value = True Then ComParity$ = "M"
+ If ParSpace.Value = True Then ComParity$ = "S"
+
+ If DB8.Value = True Then comdatabits% = 8
+ If DB7.Value = True Then comdatabits% = 7
+
+ If SB1.Value = True Then comstopbits% = 1
+ If SB2.Value = True Then comstopbits% = 2
+
+ cominitstring$ = uInitString.Text
+ comdialprefix$ = uDialPrefix.Text
+
+ a% = WritePrivateProfileString("Modem Setup", "ComPort", Str$(comport%), "WINCIT.INI")
+ a% = WritePrivateProfileString("Modem Setup", "Speed", CStr(comspeed&), "WINCIT.INI")
+ a% = WritePrivateProfileString("Modem Setup", "Parity", ComParity$, "WINCIT.INI")
+ a% = WritePrivateProfileString("Modem Setup", "DataBits", Str$(comdatabits%), "WINCIT.INI")
+ a% = WritePrivateProfileString("Modem Setup", "StopBits", Str$(comstopbits%), "WINCIT.INI")
+ a% = WritePrivateProfileString("Modem Setup", "InitString", cominitstring$, "WINCIT.INI")
+ a% = WritePrivateProfileString("Modem Setup", "DialPrefix", comdialprefix$, "WINCIT.INI")
+
+ Unload ModemSetup
+ Load SelectBBS
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form PageUser
+ BorderStyle = 1 'Fixed Single
+ Caption = "Page another user"
+ ClientHeight = 5760
+ ClientLeft = 1545
+ ClientTop = 1725
+ ClientWidth = 6690
+ ControlBox = 0 'False
+ Height = 6165
+ Left = 1485
+ LinkTopic = "Form1"
+ MDIChild = -1 'True
+ ScaleHeight = 5760
+ ScaleWidth = 6690
+ Top = 1380
+ Width = 6810
+ Begin VB.CommandButton send_button
+ Caption = "&Send message"
+ Height = 615
+ Left = 3120
+ TabIndex = 5
+ Top = 5040
+ Width = 1695
+ End
+ Begin VB.TextBox message_text
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 3135
+ Left = 3120
+ MaxLength = 200
+ MultiLine = -1 'True
+ TabIndex = 2
+ Top = 360
+ Width = 3495
+ End
+ Begin VB.ListBox online_users
+ Height = 5325
+ Left = 120
+ TabIndex = 1
+ Top = 360
+ Width = 2895
+ End
+ Begin VB.CommandButton cancel_button
+ Caption = "&Cancel"
+ Height = 615
+ Left = 4920
+ TabIndex = 0
+ Top = 5040
+ Width = 1695
+ End
+ Begin VB.Label Label2
+ Caption = "Message to send:"
+ Height = 255
+ Left = 3120
+ TabIndex = 4
+ Top = 120
+ Width = 3375
+ End
+ Begin VB.Label Label1
+ Caption = "User to page:"
+ Height = 255
+ Left = 120
+ TabIndex = 3
+ Top = 120
+ Width = 1095
+ End
+End
+Attribute VB_Name = "PageUser"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Private Sub cancel_button_Click()
+
+Unload PageUser
+Load RoomPrompt
+
+End Sub
+
+
+Private Sub Form_Load()
+
+PageUser.Width = 6795
+PageUser.Height = 6135
+PageUser.WindowState = 0
+PageUser.Top = Int((MainWin.Height - PageUser.Height) / 3)
+PageUser.Left = Int((MainWin.Width - PageUser.Width) / 2)
+Show
+
+If begin_trans() = True Then
+ serv_puts ("RWHO")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If a$ <> "000" Then
+ online_users.AddItem (extract(a$, 1))
+ End If
+ Loop Until a$ = "000"
+ End If
+ end_trans
+ End If
+
+End Sub
+
+
+Private Sub send_button_Click()
+
+If Len(message_text.Text) < 1 Then GoTo dont_send
+
+If online_users.ListIndex >= 0 Then
+ mto$ = online_users.List(online_users.ListIndex)
+Else
+ GoTo dont_send
+ End If
+
+If begin_trans() <> True Then GoTo dont_send
+
+buf$ = "SEXP " + mto$ + "|"
+
+For a = 1 To Len(message_text.Text)
+ If Asc(Mid$(message_text.Text, a, 1)) < 32 Then
+ buf$ = buf$ + " "
+ Else
+ buf$ = buf$ + Mid$(message_text.Text, a, 1)
+ End If
+ Next a
+
+ serv_puts (buf$)
+ buf$ = serv_gets()
+ If Left$(buf$, 1) <> "2" Then
+ MsgBox Right$(buf$, Len(buf$) - 4), 16
+ End If
+
+end_trans
+
+Unload PageUser
+Load RoomPrompt
+
+dont_send:
+
+End Sub
+
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form Preferences
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ ClientHeight = 4290
+ ClientLeft = 1530
+ ClientTop = 1800
+ ClientWidth = 5865
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 4695
+ Left = 1470
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 4290
+ ScaleWidth = 5865
+ Top = 1455
+ Width = 5985
+ Begin Threed.SSFrame Frame3D1
+ Height = 855
+ Left = 120
+ TabIndex = 13
+ Top = 2880
+ Width = 5655
+ _Version = 65536
+ _ExtentX = 9975
+ _ExtentY = 1508
+ _StockProps = 14
+ Caption = "Misc Preferences"
+ ForeColor = 0
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Begin VB.CheckBox MailNotice
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "Display message at login if you have new private mail"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 14
+ Top = 360
+ Width = 5412
+ End
+ End
+ Begin VB.CommandButton Save
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Save"
+ Height = 372
+ Left = 3480
+ TabIndex = 10
+ Top = 3840
+ Width = 1092
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Cancel = -1 'True
+ Caption = "Cancel"
+ Height = 372
+ Left = 4680
+ TabIndex = 9
+ Top = 3840
+ Width = 1092
+ End
+ Begin Threed.SSFrame Frame3D2
+ Height = 1455
+ Left = 120
+ TabIndex = 0
+ Top = 0
+ Width = 5655
+ _Version = 65536
+ _ExtentX = 9975
+ _ExtentY = 2566
+ _StockProps = 14
+ Caption = "Default action when a room is double-clicked"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Begin VB.OptionButton DefaultIsAbandon
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "<A>bandon (set last-read pointer where you stopped reading)"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 3
+ Top = 1080
+ Width = 5412
+ End
+ Begin VB.OptionButton DefaultIsSkip
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "<S>kip (leave all messages marked unread)"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 120
+ TabIndex = 2
+ Top = 720
+ Width = 5055
+ End
+ Begin VB.OptionButton DefaultIsGoto
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Caption = "<G>oto (mark all messages as read)"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 120
+ TabIndex = 1
+ Top = 360
+ Width = 4452
+ End
+ End
+ Begin Threed.SSFrame Frame3D3
+ Height = 1335
+ Left = 120
+ TabIndex = 4
+ Top = 1440
+ Width = 5655
+ _Version = 65536
+ _ExtentX = 9975
+ _ExtentY = 2355
+ _StockProps = 14
+ Caption = "Font preferences"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Begin VB.CommandButton ChangeFixedFont
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Change"
+ Height = 375
+ Left = 4680
+ TabIndex = 8
+ Top = 840
+ Width = 855
+ End
+ Begin VB.CommandButton ChangeVariFont
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Change"
+ Height = 375
+ Left = 4680
+ TabIndex = 7
+ Top = 360
+ Width = 855
+ End
+ Begin VB.Label FixedFontName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Fixed Font Name"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Left = 1560
+ TabIndex = 11
+ Top = 915
+ Width = 3135
+ End
+ Begin VB.Label VariFontName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Variable Font Name"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Left = 1560
+ TabIndex = 12
+ Top = 435
+ Width = 3135
+ End
+ Begin VB.Label Label2
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H00C0C0C0&
+ Caption = "Fixed width font:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 195
+ Left = 120
+ TabIndex = 6
+ Top = 960
+ Width = 1155
+ End
+ Begin VB.Label Label1
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H00C0C0C0&
+ Caption = "Variable width font:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 195
+ Left = 120
+ TabIndex = 5
+ Top = 480
+ Width = 1350
+ End
+ End
+ Begin MSComDlg.CommonDialog CMDialog1
+ Left = 120
+ Top = 3840
+ _Version = 65536
+ _ExtentX = 847
+ _ExtentY = 847
+ _StockProps = 0
+ DialogTitle = "Change Font"
+ Max = 32767
+ End
+End
+Attribute VB_Name = "Preferences"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim varifontsize
+
+Private Sub cancel_button_Click()
+
+ Load SelectBBS
+ Unload Preferences
+
+End Sub
+
+Private Sub ChangeFixedFont_Click()
+
+ On Error Resume Next
+ CMDialog1.min = 0
+ CMDialog1.Max = 32767
+ CMDialog1.DialogTitle = "Font for Fixed-format messages"
+ CMDialog1.Flags = &H4001&
+ CMDialog1.FontName = fixedfontname
+ CMDialog1.Action = 4
+ If Err <> 0 Then
+ MsgBox "Can't open font dialog", 48
+ Return
+ End If
+ fixedfontname.FontName = CMDialog1.FontName
+ fixedfontname.Caption = fixedfontname.FontName
+
+End Sub
+
+Private Sub ChangeVariFont_Click()
+
+ On Error Resume Next
+ CMDialog1.min = 0
+ CMDialog1.Max = 32767
+ CMDialog1.DialogTitle = "Font for vari-format messages"
+ CMDialog1.Flags = &H1&
+ CMDialog1.FontName = varifontname.FontName
+ CMDialog1.FontSize = varifontsize
+ CMDialog1.Action = 4
+ If Err <> 0 Then
+ MsgBox "Can't open font dialog", 48
+ Return
+ End If
+ varifontname.FontName = CMDialog1.FontName
+ varifontsize = CMDialog1.FontSize
+ varifontname.Caption = varifontname.FontName + " " + Str$(varifontsize)
+End Sub
+
+Private Sub Form_Load()
+
+ On Error Resume Next
+
+ varifontname.FontName = GetPrivateProfileVBString("Preferences", "VariFontName", "MS Sans Serif", "WINCIT.INI")
+ varifontsize = GetPrivateProfileInt("Preferences", "VariFontSize", 10, "WINCIT.INI")
+ varifontname.FontBold = False
+ varifontname.FontItalic = False
+ varifontname.Caption = varifontname.FontName + " " + Str$(varifontsize)
+
+ fixedfontname.FontName = GetPrivateProfileVBString("Preferences", "FixedFontName", "Courier New", "WINCIT.INI")
+ fixedfontname.FontBold = False
+ fixedfontname.FontItalic = False
+ fixedfontname.Caption = fixedfontname.FontName
+
+ a$ = GetPrivateProfileVBString("Preferences", "DoubleClickAction", "GOTO", "WINCIT.INI")
+ DefaultIsGoto.Value = True
+ If a$ = "SKIP" Then DefaultIsSkip.Value = True
+ If a$ = "ABANDON" Then DefaultIsAbandon.Value = True
+
+ b% = GetPrivateProfileInt("Preferences", "MailNotice", 1, "WINCIT.INI")
+ If (b% > 0) Then
+ MailNotice.Value = 1
+ Else
+ MailNotice.Value = 0
+ End If
+
+End Sub
+
+Private Sub Save_Click()
+
+ a% = WritePrivateProfileString("Preferences", "VariFontName", varifontname.FontName, "WINCIT.INI")
+ a% = WritePrivateProfileString("Preferences", "VariFontSize", Str$(varifontsize), "WINCIT.INI")
+
+ a% = WritePrivateProfileString("Preferences", "FixedFontName", fixedfontname.FontName, "WINCIT.INI")
+
+ If DefaultIsGoto.Value = True Then a% = WritePrivateProfileString("Preferences", "DoubleClickAction", "GOTO", "WINCIT.INI")
+ If DefaultIsSkip.Value = True Then a% = WritePrivateProfileString("Preferences", "DoubleClickAction", "SKIP", "WINCIT.INI")
+ If DefaultIsAbandon.Value = True Then a% = WritePrivateProfileString("Preferences", "DoubleClickAction", "ABANDON", "WINCIT.INI")
+
+ If MailNotice.Value = 1 Then
+ a% = WritePrivateProfileString("Preferences", "MailNotice", "1", "WINCIT.INI")
+ Else
+ a% = WritePrivateProfileString("Preferences", "MailNotice", "0", "WINCIT.INI")
+ End If
+
+ Load SelectBBS
+ Unload Preferences
+
+End Sub
+
--- /dev/null
+Line 304: Cannot load control CMDialog1; license not found.
--- /dev/null
+ CITADEL/UX CLIENT FOR WINDOWS
+ Copyright (c) 1995-1998 by Art Cancro. All Rights Reserved.
+
+ This program is distributed under the terms of the GNU General Public License.
+
+ DESCRIPTION
+ -----------
+ WinCit is a client program that allows point-and-click access to BBS's running
+the Citadel/UX software. All functions of the BBS including rooms (message
+bases), electronic mail, multiuser chat, file upload/download, and paging
+(express messages) are supported.
+
+ SYSTEM REQUIREMENTS
+ -------------------
+ Hmm... good question. Probably at least a 486 with 8 megabytes of memory to
+run the program with reasonable performance. This client is designed to
+run under Windows 95 or Windows NT. It will not run under Windows 3.1 or OS/2.
+
+ INSTALLATION
+ ------------
+ If you downloaded this distribution, unpack it into a temporary directory and
+then run SETUP. After setup is complete, you may delete the files in the
+temporary directory. If you have floppy disks, simply run SETUP off the first
+floppy.
+
+ The setup program should set up a dialing directory with a few BBS's in it.
+If the directory is missing, simply add the BBS of your choice using the "Add"
+button. A good place to start would be UNCENSORED! BBS at uncnsrd.mt-kisco.ny.us
+(port 504).
+
+ USING THE CLIENT
+ ----------------
+ This program suffers from a chronical lack of online help. :)
+
+ Citadel/UX BBS's are not Internet service providers (although some ISP's have
+their own Citadels set up also). You must first be connected to the Internet,
+either through a LAN or with a modem connection. If you use a modem, dial up
+your Internet provider *before* starting WinCit. Then connect to the BBS of
+your choice.
--- /dev/null
+VERSION 4.00
+Begin VB.Form ReadMessages
+ BorderStyle = 0 'None
+ ClientHeight = 6915
+ ClientLeft = 1650
+ ClientTop = 1980
+ ClientWidth = 9600
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Serif"
+ charset = 0
+ weight = 700
+ size = 6.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 7320
+ Left = 1590
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 6915
+ ScaleWidth = 9600
+ ShowInTaskbar = 0 'False
+ Top = 1635
+ Width = 9720
+ Begin VB.CommandButton print_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Print"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 2880
+ TabIndex = 19
+ Top = 6480
+ Width = 735
+ End
+ Begin VB.CommandButton quote_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Quote"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 3720
+ TabIndex = 18
+ Top = 6480
+ Width = 735
+ End
+ Begin VB.CommandButton Move_Button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Move"
+ Enabled = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 1200
+ TabIndex = 17
+ Top = 6480
+ Width = 735
+ End
+ Begin VB.CommandButton Delete_Button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Delete"
+ Enabled = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 2040
+ TabIndex = 16
+ Top = 6480
+ Width = 735
+ End
+ Begin Threed.SSPanel msg_num
+ Height = 375
+ Left = 120
+ TabIndex = 15
+ Top = 6480
+ Width = 975
+ _Version = 65536
+ _ExtentX = 1720
+ _ExtentY = 661
+ _StockProps = 15
+ BackColor = 12632256
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin Threed.SSPanel message_panel
+ Height = 5535
+ Left = 0
+ TabIndex = 14
+ Top = 840
+ Width = 10455
+ _Version = 65536
+ _ExtentX = 18441
+ _ExtentY = 9763
+ _StockProps = 15
+ BackColor = 12632256
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 9
+ BorderWidth = 0
+ BevelOuter = 1
+ Begin VB.TextBox message_text
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "Courier New"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 5295
+ Left = 120
+ Locked = -1 'True
+ MultiLine = -1 'True
+ ScrollBars = 2 'Vertical
+ TabIndex = 3
+ Top = 120
+ Width = 10215
+ End
+ End
+ Begin VB.CommandButton first_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "<<- &First"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 4560
+ TabIndex = 13
+ Top = 6480
+ Width = 855
+ End
+ Begin VB.CommandButton last_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Last ->>"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 7680
+ TabIndex = 12
+ Top = 6480
+ Width = 855
+ End
+ Begin Threed.SSPanel room_panel
+ Height = 375
+ Left = 6000
+ TabIndex = 11
+ Top = 420
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 661
+ _StockProps = 15
+ BackColor = 12632256
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin Threed.SSPanel date_panel
+ Height = 375
+ Left = 6000
+ TabIndex = 8
+ Top = 15
+ Width = 3615
+ _Version = 65536
+ _ExtentX = 6376
+ _ExtentY = 661
+ _StockProps = 15
+ BackColor = 12632256
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin Threed.SSPanel to_panel
+ Height = 375
+ Left = 480
+ TabIndex = 7
+ Top = 420
+ Width = 4935
+ _Version = 65536
+ _ExtentX = 8705
+ _ExtentY = 661
+ _StockProps = 15
+ BackColor = 12632256
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin VB.CommandButton back_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "<- &Back"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 5520
+ TabIndex = 2
+ Top = 6480
+ Width = 975
+ End
+ Begin VB.CommandButton next_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Next ->"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 6600
+ TabIndex = 1
+ Top = 6480
+ Width = 975
+ End
+ Begin VB.CommandButton stop_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Stop"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 8640
+ TabIndex = 0
+ Top = 6480
+ Width = 855
+ End
+ Begin Threed.SSPanel from_panel
+ Height = 375
+ Left = 480
+ TabIndex = 4
+ Top = 15
+ Width = 4935
+ _Version = 65536
+ _ExtentX = 8705
+ _ExtentY = 661
+ _StockProps = 15
+ BackColor = 12632256
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 3
+ BorderWidth = 4
+ BevelOuter = 1
+ End
+ Begin VB.Label Label5
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Room:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 5400
+ TabIndex = 10
+ Top = 480
+ Width = 615
+ End
+ Begin VB.Label Label4
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Date:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 5520
+ TabIndex = 9
+ Top = 120
+ Width = 495
+ End
+ Begin VB.Label Label3
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "To:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 0
+ TabIndex = 6
+ Top = 480
+ Width = 495
+ End
+ Begin VB.Label Label2
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "From:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 0
+ TabIndex = 5
+ Top = 120
+ Width = 495
+ End
+End
+Attribute VB_Name = "ReadMessages"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim curr_msg%
+Dim varifontname
+Dim varifontsize
+Dim fixedfontname
+
+Private Sub back_button_Click()
+
+ curr_msg% = curr_msg% - 1
+ Call display_msg
+
+End Sub
+
+Private Sub check_quote_button()
+ If message_text.SelLength > 0 Then
+ Quote_Button.Enabled = True
+ Else
+ Quote_Button.Enabled = False
+ End If
+End Sub
+
+Private Sub Delete_Button_Click()
+ If begin_trans() = False Then GoTo skipdelete
+ serv_puts ("DELE " + Str$(msg_array&(curr_msg%)))
+ a$ = serv_gets()
+ Call end_trans
+
+ If (Left$(a$, 1) = "2") Then
+ For b% = curr_msg% To max_msgs% - 2
+ msg_array&(b%) = msg_array(b% + 1)
+ Next b%
+ max_msgs% = max_msgs% - 1
+ If max_msgs% = 0 Then Unload ReadMessages
+ If curr_msg% >= (max_msgs% - 1) Then curr_msg% = curr_msg% - 1
+ Call display_msg
+ Else
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ End If
+
+skipdelete:
+End Sub
+
+Private Sub display_msg()
+
+ If curr_msg% = 0 Then
+ back_button.Enabled = False
+ first_button.Enabled = False
+ Else
+ back_button.Enabled = True
+ first_button.Enabled = True
+ End If
+
+ If curr_msg% = (max_msgs% - 1) Then
+ next_button.Enabled = False
+ last_button.Enabled = False
+ Else
+ next_button.Enabled = True
+ last_button.Enabled = True
+ End If
+
+ msg_num.Caption = Str$(curr_msg% + 1) + " of " + Str$(max_msgs%)
+ If begin_trans() = False Then GoTo skipitall
+ LastMessageRead& = msg_array&(curr_msg%)
+ serv_puts ("MSG0 " + Str$(msg_array&(curr_msg%)))
+ a$ = serv_gets()
+ format_type% = 0
+ b$ = ""
+ source_node$ = ""
+ source_hnode$ = ""
+ intext% = 0
+ from_panel.Caption = ""
+ to_panel.Caption = ""
+ room_panel.Caption = ""
+ date_panel.Caption = ""
+
+ If Left$(a$, 1) = "1" Then
+ message_text.Text = a$
+ Do
+ a$ = serv_gets()
+ If a$ = "000" Then Exit Do
+ If intext% = 0 Then
+ If Left$(a$, 5) = "from=" Then from_panel.Caption = Right$(a$, Len(a$) - 5)
+ If Left$(a$, 5) = "rcpt=" Then to_panel.Caption = Right$(a$, Len(a$) - 5)
+ If Left$(a$, 5) = "room=" Then room_panel.Caption = Right$(a$, Len(a$) - 5)
+ If Left$(a$, 5) = "time=" Then date_panel.Caption = strtime(Val(Right$(a$, Len(a$) - 5)))
+ If Left$(a$, 5) = "type=" Then format_type% = Val(Right$(a$, Len(a$) - 5))
+ If Left$(a$, 5) = "node=" Then source_node$ = Right$(a$, Len(a$) - 5)
+ If Left$(a$, 5) = "hnod=" Then source_hnode$ = Right$(a$, Len(a$) - 5)
+ If Left$(a$, 4) = "text" Then
+ intext% = 1
+ If format_type% = 1 Then
+ message_text.FontName = fixedfontname
+ message_text.FontSize = Int(message_text.Width / 1000)
+ message_text.FontBold = False
+ message_text.FontItalic = False
+ Else
+ message_text.FontName = varifontname
+ message_text.FontSize = varifontsize
+ message_text.FontBold = False
+ message_text.FontItalic = False
+ End If
+ End If
+ Else
+ b$ = b$ + a$ + Chr$(13) + Chr$(10)
+ End If
+
+ Loop
+ If format_type% = 0 Then
+ message_text.Text = Cit_Format(b$)
+ Else
+ message_text.Text = b$
+ End If
+ If source_node$ <> "" Then from_panel.Caption = from_panel.Caption + " @ " + source_node$
+ If source_hnode$ <> "" Then from_panel.Caption = from_panel.Caption + " (" + source_hnode$ + ")"
+ Else
+ message_text.Text = a$
+ End If
+
+ Call end_trans
+skipitall:
+ Call message_text_Click
+
+End Sub
+
+Private Sub first_button_Click()
+ curr_msg% = 0
+ Call display_msg
+End Sub
+
+Private Sub Form_Load()
+
+ varifontname = GetPrivateProfileVBString("Preferences", "VariFontName", "MS Sans Serif", "WINCIT.INI")
+ varifontsize = GetPrivateProfileInt("Preferences", "VariFontSize", 10, "WINCIT.INI")
+
+ fixedfontname = GetPrivateProfileVBString("Preferences", "FixedFontName", "Courier New", "WINCIT.INI")
+
+ curr_msg% = 0
+
+ move_button.Enabled = IsRoomAide%
+ delete_button.Enabled = IsRoomAide%
+
+ Show
+ DoEvents
+ Call display_msg
+
+End Sub
+
+Private Sub Form_Resize()
+
+ ReadMessages.Left = 0
+ ReadMessages.Top = 0
+ ReadMessages.Width = MainWin.Width
+ ReadMessages.Height = MainWin.Height - 400
+
+ stop_button.Top = Abs(ReadMessages.Height - 520)
+ last_button.Top = Abs(ReadMessages.Height - 520)
+ next_button.Top = Abs(ReadMessages.Height - 520)
+ back_button.Top = Abs(ReadMessages.Height - 520)
+ first_button.Top = Abs(ReadMessages.Height - 520)
+ move_button.Top = Abs(ReadMessages.Height - 520)
+ delete_button.Top = Abs(ReadMessages.Height - 520)
+ Quote_Button.Top = Abs(ReadMessages.Height - 520)
+ print_button.Top = Abs(ReadMessages.Height - 520)
+ msg_num.Top = Abs(ReadMessages.Height - 520)
+ message_text.Width = Abs(ReadMessages.Width - 336)
+ message_text.Height = Abs(ReadMessages.Height - 1664)
+ message_panel.Height = Abs(ReadMessages.Height - 1424)
+ message_panel.Width = Abs(ReadMessages.Width - 100)
+End Sub
+
+Private Sub last_button_Click()
+ curr_msg% = max_msgs% - 1
+ Call display_msg
+End Sub
+
+Private Sub message_text_Change()
+ Call check_quote_button
+End Sub
+
+Private Sub message_text_Click()
+ Call check_quote_button
+End Sub
+
+Private Sub next_button_Click()
+
+ curr_msg% = curr_msg% + 1
+ Call display_msg
+
+End Sub
+
+Private Sub print_button_Click()
+
+ a$ = message_text.Text
+ message_text.Text = quotify(a$)
+
+
+
+End Sub
+
+Private Sub quote_button_Click()
+
+ a$ = message_text.SelText
+ Clipboard.SetText quotify(a$)
+
+End Sub
+
+Private Function quotify(instring As String) As String
+
+a$ = instring
+b$ = ""
+
+Do
+
+CHKLN:
+ If Len(a$) = 0 Then GoTo CHKEND
+
+ If Len(a$) < 72 Then
+ b$ = b$ + " >" + a$ + Chr$(13) + Chr$(10)
+ a$ = ""
+ End If
+
+ c = InStr(a$, Chr$(13) + Chr$(10))
+ If (c < 72) And (c <> 0) Then
+ b$ = b$ + " >" + Left$(a$, c - 1) + Chr$(13) + Chr$(10)
+ a$ = Right$(a$, (Len(a$) - c) - 1)
+ End If
+
+ c = InStr(a$, " ")
+ If (c > 72) Or (c = 0) Then
+ b$ = b$ + " >" + Left$(a$, 72) + Chr$(13) + Chr$(10)
+ If Len(a$) > 0 Then a$ = Right$(a$, Len(a$) - 72)
+ GoTo CHKLN
+ End If
+
+ d = 0
+ c = 1
+ Do
+ e = InStr(c, a$, " ")
+ If e > 0 Then
+ If c < 72 Then d = e
+ c = e + 1
+ End If
+
+ Loop Until e = 0 Or c >= 72
+ELN:
+
+ If d <> 0 Then
+ b$ = b$ + " >" + Left$(a$, d) + Chr$(13) + Chr$(10)
+ a$ = Right$(a$, (Len(a$) - d) + 1)
+ GoTo CHKLN
+ End If
+
+ Loop Until Len(a$) = 0
+CHKEND:
+ quotify = b$
+
+End Function
+
+Private Sub stop_button_Click()
+
+ Unload ReadMessages
+ Load RoomPrompt
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form Recipient
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ ClientHeight = 1530
+ ClientLeft = 870
+ ClientTop = 1530
+ ClientWidth = 6420
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 1935
+ Left = 810
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 1530
+ ScaleWidth = 6420
+ Top = 1185
+ Width = 6540
+ Begin Threed.SSPanel StatMsg
+ Height = 495
+ Left = 120
+ TabIndex = 4
+ Top = 960
+ Width = 3735
+ _Version = 65536
+ _ExtentX = 6588
+ _ExtentY = 873
+ _StockProps = 15
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ BevelWidth = 4
+ BorderWidth = 5
+ BevelOuter = 1
+ End
+ Begin VB.CommandButton ok_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&OK"
+ Height = 492
+ Left = 3960
+ TabIndex = 3
+ Top = 960
+ Width = 1092
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ Height = 492
+ Left = 5160
+ TabIndex = 2
+ Top = 960
+ Width = 1212
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 855
+ Left = 120
+ TabIndex = 1
+ Top = 0
+ Width = 6255
+ _Version = 65536
+ _ExtentX = 11033
+ _ExtentY = 1508
+ _StockProps = 14
+ Caption = "Enter recipient:"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Begin VB.TextBox recpname
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 0 'None
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 120
+ TabIndex = 0
+ Top = 360
+ Width = 6012
+ End
+ End
+End
+Attribute VB_Name = "Recipient"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+ Unload Recipient
+ Load RoomPrompt
+End Sub
+
+Private Sub Form_Load()
+
+ Recipient.WindowState = 0
+ Recipient.Top = Abs((MainWin.Height - Recipient.Height) / 3)
+ Recipient.Left = Abs((MainWin.Left - Recipient.Width) / 2)
+ Show
+
+End Sub
+
+Private Sub ok_button_Click()
+
+ If begin_trans() = True Then
+ serv_puts ("ENT0 0|" + recpname.Text)
+ a$ = serv_gets()
+ Call end_trans
+ If Left$(a$, 1) = "2" Then
+ recp$ = recpname.Text
+ Unload Recipient
+ Load EnterMessage
+ Else
+ statmsg.Caption = Right$(a$, Len(a$) - 4)
+ End If
+ End If
+
+End Sub
+
+Private Sub recpname_KeyPress(keyascii As Integer)
+ If keyascii = 13 Then Call ok_button_Click
+ If keyascii = 27 Then Call cancel_button_Click
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form Registration
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Registration"
+ ClientHeight = 3660
+ ClientLeft = 2820
+ ClientTop = 3105
+ ClientWidth = 6420
+ ClipControls = 0 'False
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 4065
+ Left = 2760
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3660
+ ScaleWidth = 6420
+ Top = 2760
+ Width = 6540
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ Height = 492
+ Left = 5160
+ TabIndex = 10
+ Top = 3120
+ Width = 1212
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ Height = 492
+ Left = 3840
+ TabIndex = 14
+ Top = 3120
+ Width = 1212
+ End
+ Begin VB.TextBox Phone
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 288
+ Left = 1560
+ TabIndex = 12
+ Top = 2520
+ Width = 1692
+ End
+ Begin VB.TextBox ZIP
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 288
+ Left = 1560
+ TabIndex = 7
+ Top = 2160
+ Width = 1212
+ End
+ Begin VB.TextBox TheState
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 288
+ Left = 1560
+ TabIndex = 6
+ Top = 1800
+ Width = 612
+ End
+ Begin VB.TextBox City
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 288
+ Left = 1560
+ TabIndex = 5
+ Top = 1440
+ Width = 2772
+ End
+ Begin VB.TextBox Address
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 288
+ Left = 1560
+ TabIndex = 4
+ Top = 1080
+ Width = 4692
+ End
+ Begin VB.TextBox RealName
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 288
+ Left = 1560
+ TabIndex = 0
+ Top = 720
+ Width = 4692
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00FFFFFF&
+ BackStyle = 0 'Transparent
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 18
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 492
+ Left = 120
+ TabIndex = 13
+ Top = 120
+ Width = 6252
+ End
+ Begin VB.Label Label6
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Telephone:"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 11
+ Top = 2520
+ Width = 1452
+ End
+ Begin VB.Label Label5
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "State/Province:"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 9
+ Top = 1800
+ Width = 1452
+ End
+ Begin VB.Label Label4
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "ZIP Code:"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 8
+ Top = 2160
+ Width = 1452
+ End
+ Begin VB.Label Label3
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "City/Town:"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 3
+ Top = 1440
+ Width = 1452
+ End
+ Begin VB.Label Label2
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Address:"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 2
+ Top = 1080
+ Width = 1452
+ End
+ Begin VB.Label Label1
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H00FFFFFF&
+ BackStyle = 0 'Transparent
+ Caption = "Real name:"
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 1
+ Top = 720
+ Width = 1452
+ End
+End
+Attribute VB_Name = "Registration"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+ Unload Registration
+ Load RoomPrompt
+End Sub
+
+Private Sub Form_Load()
+ Show
+ Registration.WindowState = 0
+ Registration.Top = Int((MainWin.Height - Registration.Height) / 3)
+ Registration.Left = Int((MainWin.Width - Registration.Width) / 2)
+ DoEvents
+
+ If begin_trans() = True Then
+ serv_puts ("GREG _SELF_")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ UserName.Caption = Right$(a$, Len(a$) - 4)
+ b% = 0
+ Do
+ a$ = serv_gets()
+ If b% = 2 Then RealName.Text = a$
+ If b% = 3 Then Address.Text = a$
+ If b% = 4 Then City.Text = a$
+ If b% = 5 Then TheState.Text = a$
+ If b% = 6 Then ZIP.Text = a$
+ If b% = 7 Then Phone.Text = a$
+ b% = b% + 1
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+ End If
+
+End Sub
+
+Private Sub save_button_Click()
+
+ If begin_trans() = True Then
+ serv_puts ("REGI")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "4" Then
+ serv_puts (RealName.Text)
+ serv_puts (Address.Text)
+ serv_puts (City.Text)
+ serv_puts (TheState.Text)
+ serv_puts (ZIP.Text)
+ serv_puts (Phone.Text)
+ serv_puts ("000")
+ End If
+ Call end_trans
+ need_regis% = 0
+ Unload Registration
+ Load RoomPrompt
+ End If
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form RoomDirectory
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Directory of this room..."
+ ClientHeight = 6150
+ ClientLeft = 1485
+ ClientTop = 2865
+ ClientWidth = 8985
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 6555
+ Left = 1425
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 6150
+ ScaleWidth = 8985
+ Top = 2520
+ Width = 9105
+ Begin VB.CommandButton download_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Download"
+ Height = 495
+ Left = 5880
+ TabIndex = 69
+ Top = 5640
+ Width = 1575
+ End
+ Begin VB.VScrollBar TheScroll
+ Height = 5055
+ Left = 8640
+ TabIndex = 4
+ Top = 480
+ Width = 255
+ End
+ Begin VB.CommandButton ok_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&OK"
+ Height = 492
+ Left = 7560
+ TabIndex = 0
+ Top = 5640
+ Width = 1332
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 20
+ Left = 3360
+ TabIndex = 1
+ Top = 5280
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 20
+ Left = 2280
+ TabIndex = 2
+ Top = 5280
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 20
+ Left = 120
+ TabIndex = 3
+ Top = 5280
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 19
+ Left = 3360
+ TabIndex = 7
+ Top = 5040
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 19
+ Left = 2280
+ TabIndex = 8
+ Top = 5040
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 19
+ Left = 120
+ TabIndex = 9
+ Top = 5040
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 18
+ Left = 3360
+ TabIndex = 10
+ Top = 4800
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 18
+ Left = 2280
+ TabIndex = 11
+ Top = 4800
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 18
+ Left = 120
+ TabIndex = 12
+ Top = 4800
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 17
+ Left = 3360
+ TabIndex = 13
+ Top = 4560
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 17
+ Left = 2280
+ TabIndex = 14
+ Top = 4560
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 17
+ Left = 120
+ TabIndex = 15
+ Top = 4560
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 16
+ Left = 3360
+ TabIndex = 16
+ Top = 4320
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 16
+ Left = 2280
+ TabIndex = 17
+ Top = 4320
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 16
+ Left = 120
+ TabIndex = 18
+ Top = 4320
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 15
+ Left = 3360
+ TabIndex = 19
+ Top = 4080
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 15
+ Left = 2280
+ TabIndex = 20
+ Top = 4080
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 15
+ Left = 120
+ TabIndex = 21
+ Top = 4080
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 14
+ Left = 3360
+ TabIndex = 22
+ Top = 3840
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 14
+ Left = 2280
+ TabIndex = 23
+ Top = 3840
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 14
+ Left = 120
+ TabIndex = 24
+ Top = 3840
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 13
+ Left = 3360
+ TabIndex = 25
+ Top = 3600
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 13
+ Left = 2280
+ TabIndex = 26
+ Top = 3600
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 13
+ Left = 120
+ TabIndex = 27
+ Top = 3600
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 12
+ Left = 3360
+ TabIndex = 28
+ Top = 3360
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 12
+ Left = 2280
+ TabIndex = 29
+ Top = 3360
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 12
+ Left = 120
+ TabIndex = 30
+ Top = 3360
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 11
+ Left = 3360
+ TabIndex = 31
+ Top = 3120
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 11
+ Left = 2280
+ TabIndex = 32
+ Top = 3120
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 11
+ Left = 120
+ TabIndex = 33
+ Top = 3120
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 10
+ Left = 3360
+ TabIndex = 34
+ Top = 2880
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 10
+ Left = 2280
+ TabIndex = 35
+ Top = 2880
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 10
+ Left = 120
+ TabIndex = 36
+ Top = 2880
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 9
+ Left = 3360
+ TabIndex = 37
+ Top = 2640
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 9
+ Left = 2280
+ TabIndex = 38
+ Top = 2640
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 9
+ Left = 120
+ TabIndex = 39
+ Top = 2640
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 8
+ Left = 3360
+ TabIndex = 42
+ Top = 2400
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 8
+ Left = 2280
+ TabIndex = 43
+ Top = 2400
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H00000000&
+ Height = 230
+ Index = 8
+ Left = 120
+ TabIndex = 44
+ Top = 2400
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 7
+ Left = 3360
+ TabIndex = 45
+ Top = 2160
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 7
+ Left = 2280
+ TabIndex = 46
+ Top = 2160
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 7
+ Left = 120
+ TabIndex = 47
+ Top = 2160
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 6
+ Left = 3360
+ TabIndex = 48
+ Top = 1920
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 6
+ Left = 2280
+ TabIndex = 49
+ Top = 1920
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 6
+ Left = 120
+ TabIndex = 50
+ Top = 1920
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 5
+ Left = 3360
+ TabIndex = 68
+ Top = 1680
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 5
+ Left = 2280
+ TabIndex = 67
+ Top = 1680
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 5
+ Left = 120
+ TabIndex = 66
+ Top = 1680
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 4
+ Left = 3360
+ TabIndex = 65
+ Top = 1440
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 4
+ Left = 2280
+ TabIndex = 64
+ Top = 1440
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 4
+ Left = 120
+ TabIndex = 63
+ Top = 1440
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 3
+ Left = 3360
+ TabIndex = 62
+ Top = 1200
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 3
+ Left = 2280
+ TabIndex = 61
+ Top = 1200
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 3
+ Left = 120
+ TabIndex = 60
+ Top = 1200
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 2
+ Left = 3360
+ TabIndex = 59
+ Top = 960
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 2
+ Left = 2280
+ TabIndex = 58
+ Top = 960
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 2
+ Left = 120
+ TabIndex = 57
+ Top = 960
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 1
+ Left = 3360
+ TabIndex = 56
+ Top = 720
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 1
+ Left = 2280
+ TabIndex = 55
+ Top = 720
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 1
+ Left = 120
+ TabIndex = 54
+ Top = 720
+ Width = 2175
+ End
+ Begin VB.Label filedesc
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 0
+ Left = 3360
+ TabIndex = 53
+ Top = 480
+ Width = 5175
+ End
+ Begin VB.Label filesize
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 0
+ Left = 2280
+ TabIndex = 52
+ Top = 480
+ Width = 1095
+ End
+ Begin VB.Label filename
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ ForeColor = &H80000008&
+ Height = 230
+ Index = 0
+ Left = 120
+ TabIndex = 51
+ Top = 480
+ Width = 2175
+ End
+ Begin VB.Label MaxFilesDisplay
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Total number of files:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 0
+ TabIndex = 41
+ Top = 5760
+ Width = 5055
+ End
+ Begin VB.Label Label3
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Description"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Left = 4680
+ TabIndex = 5
+ Top = 0
+ Width = 3975
+ End
+ Begin VB.Label Label2
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Size"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Left = 1680
+ TabIndex = 6
+ Top = 0
+ Width = 1935
+ End
+ Begin VB.Label Label1
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Filename"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Left = 120
+ TabIndex = 40
+ Top = 0
+ Width = 1575
+ End
+End
+Attribute VB_Name = "RoomDirectory"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim FileSizeArr&(1024)
+Dim FileNameArr$(1024)
+Dim FileDescArr$(1024)
+Dim MaxFiles%
+
+Private Sub download_button_Click()
+
+ If Len(DownLoadFileName$) > 0 Then
+ Unload RoomDirectory
+ Load Download
+ End If
+
+End Sub
+
+Private Sub filename_Click(Index As Integer)
+ For z% = 0 To 20
+ filename(z%).ForeColor = &H0&
+ Next z%
+ filename(Index).ForeColor = &HFFFF&
+ DownLoadFileName$ = filename(Index).Caption
+ If Len(DownLoadFileName$) > 0 Then download_button.Enabled = True
+End Sub
+
+Private Sub Form_Load()
+
+
+ Show
+ RoomDirectory.WindowState = 0
+ RoomDirectory.Top = Int((MainWin.Height - RoomDirectory.Height) / 3)
+ RoomDirectory.Left = Int((MainWin.Width - RoomDirectory.Width) / 2)
+ DoEvents
+
+MaxFiles% = 0
+DownLoadFileName$ = ""
+download_button.Enabled = False
+
+If begin_trans() = True Then
+
+ serv_puts ("RDIR")
+ a$ = serv_gets()
+
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If (a$ <> "000") And MaxFiles% < 1024 Then
+ FileSizeArr&(MaxFiles%) = Val(extract$(a$, 1))
+ FileNameArr$(MaxFiles%) = extract$(a$, 0)
+ FileDescArr$(MaxFiles%) = extract$(a$, 2)
+ MaxFiles% = MaxFiles% + 1
+ End If
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+
+ b% = MaxFiles% - 21
+ If (b% < 0) Then b% = 0
+ TheScroll.Max = b%
+
+ MaxFilesDisplay.Caption = "Total number of files: " + Str$(MaxFiles%)
+ Call LoadContents
+
+ End If
+
+End Sub
+
+Private Sub LoadContents()
+
+ For a% = 0 To 20
+
+ If (TheScroll.Value + a%) <= (MaxFiles% - 1) Then
+
+ If FileSizeArr&(TheScroll.Value + a%) <> 0 Then
+ FileSize(a%).Caption = Str$(FileSizeArr&(TheScroll.Value + a%))
+ Else
+ FileSize(a%).Caption = " "
+ End If
+ filename(a%).Caption = FileNameArr$(TheScroll.Value + a%)
+ FileDesc(a%).Caption = FileDescArr$(TheScroll.Value + a%)
+
+ Else
+
+ FileSize(a%).Caption = " "
+ filename(a%).Caption = " "
+ FileDesc(a%).Caption = " "
+
+ End If
+
+ Next a%
+
+
+End Sub
+
+Private Sub ok_button_Click()
+ Unload RoomDirectory
+ Load RoomPrompt
+End Sub
+
+Private Sub TheScroll_Change()
+
+ Call LoadContents
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form RoomPrompt
+ AutoRedraw = -1 'True
+ BorderStyle = 0 'None
+ ClientHeight = 6210
+ ClientLeft = 1005
+ ClientTop = 1935
+ ClientWidth = 9600
+ ForeColor = &H80000008&
+ Height = 6900
+ Left = 945
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 6210
+ ScaleWidth = 9600
+ ShowInTaskbar = 0 'False
+ Top = 1305
+ Width = 9720
+ Begin VB.CommandButton button_abandon
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Abandon"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Index = 0
+ Left = 0
+ TabIndex = 21
+ Top = 720
+ Width = 1572
+ End
+ Begin VB.ListBox OldRooms
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Columns = 6
+ Height = 1980
+ Left = 120
+ Sorted = -1 'True
+ TabIndex = 17
+ Top = 3960
+ Width = 10095
+ End
+ Begin VB.ListBox NewRooms
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Columns = 6
+ Height = 1980
+ Left = 120
+ Sorted = -1 'True
+ TabIndex = 14
+ Top = 1560
+ Width = 10095
+ End
+ Begin VB.CommandButton button_ungoto
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Ungoto"
+ Enabled = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 1560
+ TabIndex = 11
+ Top = 0
+ Width = 1572
+ End
+ Begin VB.CommandButton button_page
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Page a user"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 6240
+ TabIndex = 13
+ Top = 360
+ Width = 1572
+ End
+ Begin VB.CommandButton button_dir
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Read &Directory"
+ Enabled = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 1560
+ TabIndex = 12
+ Top = 720
+ Width = 1572
+ End
+ Begin VB.CommandButton button_chat
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Chat"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 4680
+ TabIndex = 5
+ Top = 720
+ Width = 1575
+ End
+ Begin VB.CommandButton button_who
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Who is online"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 6240
+ TabIndex = 6
+ Top = 0
+ Width = 1572
+ End
+ Begin VB.CommandButton button_terminate
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Terminate"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Index = 3
+ Left = 6240
+ TabIndex = 2
+ Top = 720
+ Width = 1575
+ End
+ Begin VB.CommandButton button_skip
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Skip"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Index = 1
+ Left = 0
+ TabIndex = 1
+ Top = 360
+ Width = 1572
+ End
+ Begin VB.CommandButton button_zap
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Zap (forget)"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 1560
+ TabIndex = 7
+ Top = 360
+ Width = 1572
+ End
+ Begin VB.CommandButton button_forward
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Read &Forward"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Index = 5
+ Left = 4680
+ TabIndex = 4
+ Top = 0
+ Width = 1575
+ End
+ Begin VB.CommandButton button_old
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Read &Old"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 3120
+ TabIndex = 10
+ Top = 360
+ Width = 1572
+ End
+ Begin VB.CommandButton button_new
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Read &New"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Left = 3120
+ TabIndex = 9
+ Top = 0
+ Width = 1572
+ End
+ Begin VB.CommandButton button_last5
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Read &Last 5"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 4680
+ TabIndex = 8
+ Top = 360
+ Width = 1575
+ End
+ Begin VB.CommandButton button_goto
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Goto"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Index = 0
+ Left = 0
+ TabIndex = 0
+ Top = 0
+ Width = 1572
+ End
+ Begin VB.CommandButton button_enter
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Enter message"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 372
+ Index = 4
+ Left = 3120
+ TabIndex = 3
+ Top = 720
+ Width = 1572
+ End
+ Begin Threed.SSFrame Frame3D1
+ Height = 1335
+ Left = 7830
+ TabIndex = 18
+ Top = 0
+ Width = 1755
+ _Version = 65536
+ _ExtentX = 3096
+ _ExtentY = 2355
+ _StockProps = 14
+ Caption = "Current room:"
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Begin VB.Label MsgsCount
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00808080&
+ BackStyle = 0 'Transparent
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 372
+ Left = 36
+ TabIndex = 20
+ Top = 840
+ Width = 456
+ End
+ Begin VB.Label CurrRoom
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H00808080&
+ BackStyle = 0 'Transparent
+ BeginProperty Font
+ name = "Arial"
+ charset = 0
+ weight = 700
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 285
+ Left = 225
+ TabIndex = 19
+ Top = 360
+ Width = 60
+ End
+ End
+ Begin VB.Label Label2
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H00C0C0C0&
+ Caption = "No unseen messages in:"
+ ForeColor = &H00800000&
+ Height = 240
+ Left = 120
+ TabIndex = 16
+ Top = 3720
+ Width = 2184
+ End
+ Begin VB.Label Label1
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H00C0C0C0&
+ Caption = "Rooms with unread messages:"
+ ForeColor = &H00800000&
+ Height = 240
+ Left = 120
+ TabIndex = 15
+ Top = 1200
+ Width = 2736
+ End
+ Begin VB.Menu menu_enter
+ Caption = "&Enter"
+ Begin VB.Menu menu_enter_conf
+ Caption = "&Configuration"
+ End
+ Begin VB.Menu menu_enter_file
+ Caption = "&File (upload)"
+ End
+ Begin VB.Menu menu_enter_regis
+ Caption = "Re&gistration Info"
+ End
+ Begin VB.Menu menu_enter_passwd
+ Caption = "Set &Password..."
+ End
+ Begin VB.Menu menu_enter_room
+ Caption = "Create New &Room..."
+ End
+ End
+ Begin VB.Menu menu_read
+ Caption = "&Read"
+ Begin VB.Menu menu_read_directory
+ Caption = "&Directory"
+ End
+ Begin VB.Menu menu_read_file
+ Caption = "&File (download)"
+ End
+ Begin VB.Menu menu_read_info
+ Caption = "Room &Info File"
+ End
+ Begin VB.Menu menu_read_userlist
+ Caption = "&User List"
+ End
+ End
+ Begin VB.Menu menu_term
+ Caption = "&Terminate"
+ Begin VB.Menu menu_term_quit
+ Caption = "Terminate and &Quit"
+ End
+ Begin VB.Menu menu_term_stay
+ Caption = "Terminate and &Stay Online"
+ End
+ End
+ Begin VB.Menu menu_aide
+ Caption = "&Aide"
+ Begin VB.Menu menu_aide_edit
+ Caption = "&Edit Room..."
+ End
+ Begin VB.Menu menu_aide_file
+ Caption = "&File Commands..."
+ Begin VB.Menu menu_aide_file_delete
+ Caption = "&Delete File..."
+ End
+ Begin VB.Menu menu_aide_file_move
+ Caption = "&Move File..."
+ End
+ Begin VB.Menu menu_aide_file_send
+ Caption = "&Send File over Net..."
+ End
+ End
+ Begin VB.Menu menu_aide_info
+ Caption = "Edit &Info File"
+ End
+ Begin VB.Menu menu_aide_kill
+ Caption = "&Kill this Room"
+ End
+ Begin VB.Menu menu_aide_room
+ Caption = "&Room commands..."
+ Begin VB.Menu menu_aide_room_invite
+ Caption = "&Invite a user..."
+ End
+ Begin VB.Menu menu_aide_room_kick
+ Caption = "&Kick out a user..."
+ End
+ End
+ Begin VB.Menu menu_aide_useredit
+ Caption = "Edit a &User..."
+ End
+ Begin VB.Menu menu_aide_valid
+ Caption = "&Validate New Users..."
+ End
+ Begin VB.Menu menu_aide_whoknows
+ Caption = "&Who Knows Room"
+ End
+ End
+End
+Attribute VB_Name = "RoomPrompt"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim newmsgs%
+
+Private Sub button_abandon_Click(Index As Integer)
+
+ If begin_trans() = True Then
+ serv_puts ("SLRP " + Str$(LastMessageRead&))
+ a$ = serv_gets()
+ Call end_trans
+ newmsgs% = 1
+ Call button_skip_click(0)
+ End If
+
+End Sub
+
+Private Sub button_chat_Click()
+
+If begin_trans() = True Then
+ serv_puts ("CHAT")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "8" Then
+ Unload RoomPrompt
+ Load ChatWindow
+ Else
+ end_trans
+ End If
+ End If
+
+End Sub
+
+Private Sub button_dir_Click()
+ Call menu_read_directory_click
+End Sub
+
+Private Sub button_enter_Click(Index As Integer)
+
+ recp$ = ""
+ can_enter% = 0
+
+ If begin_trans() = True Then
+ serv_puts ("ENT0")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "2" Then can_enter% = 1
+ If Left$(a$, 3) = "570" Then can_enter% = 2
+ Call end_trans
+ End If
+
+ If can_enter% = 0 Then
+ MsgBox Right$(a$, Len(a$) - 4)
+ End If
+ If can_enter% = 1 Then
+ Unload RoomPrompt
+ Load EnterMessage
+ End If
+ If can_enter% = 2 Then
+ Unload RoomPrompt
+ Load Recipient
+ End If
+
+End Sub
+
+Private Sub button_forward_Click(Index As Integer)
+
+ max_msgs% = 0
+ If begin_trans() = False Then GoTo skipfwd
+ serv_puts ("MSGS ALL")
+ a$ = serv_gets()
+
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If a$ = "000" Then Exit Do
+ msg_array&(max_msgs%) = CLng(Val(a$))
+ max_msgs% = max_msgs% + 1
+ Loop
+ End If
+ Call end_trans
+skipfwd:
+
+ If max_msgs% > 0 Then
+ Unload RoomPrompt
+ Load ReadMessages
+ Else
+ MsgBox "This room is empty."
+ End If
+
+End Sub
+
+Private Sub button_goto_click(Index As Integer)
+
+ If begin_trans() = True Then
+ serv_puts ("SLRP HIGHEST")
+ a$ = serv_gets()
+ Call end_trans
+ If NewRooms.ListIndex >= 0 Then newmsgs% = 0
+ If OldRooms.ListIndex >= 0 Then newmsgs% = 1
+ Call button_skip_click(0)
+ End If
+
+End Sub
+
+
+Private Sub button_last5_Click()
+ max_msgs% = 0
+ If begin_trans() = False Then GoTo skiplast5
+ serv_puts ("MSGS LAST|5")
+ a$ = serv_gets()
+
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If a$ = "000" Then Exit Do
+ msg_array&(max_msgs%) = CLng(Val(a$))
+ max_msgs% = max_msgs% + 1
+ Loop
+ End If
+ Call end_trans
+skiplast5:
+
+ If max_msgs% > 0 Then
+ Unload RoomPrompt
+ Load ReadMessages
+ Else
+ MsgBox "This room is empty."
+ End If
+
+
+
+End Sub
+
+Private Sub button_new_Click()
+ max_msgs% = 0
+ If begin_trans() = False Then GoTo skipnew
+ serv_puts ("MSGS NEW")
+ a$ = serv_gets()
+
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If a$ = "000" Then Exit Do
+ msg_array&(max_msgs%) = CLng(Val(a$))
+ max_msgs% = max_msgs% + 1
+ Loop
+ End If
+ Call end_trans
+skipnew:
+
+ If max_msgs% > 0 Then
+ Unload RoomPrompt
+ Load ReadMessages
+ Else
+ MsgBox "This room is empty."
+ End If
+
+
+End Sub
+
+Private Sub button_old_Click()
+ max_msgs% = 0
+ If begin_trans() = False Then GoTo skipold
+ serv_puts ("MSGS OLD")
+ a$ = serv_gets()
+
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If a$ = "000" Then Exit Do
+ msg_array&(max_msgs%) = CLng(Val(a$))
+ max_msgs% = max_msgs% + 1
+ Loop
+ End If
+ Call end_trans
+skipold:
+
+ If max_msgs% > 0 Then
+ Unload RoomPrompt
+ Load ReadMessages
+ Else
+ MsgBox "This room is empty."
+ End If
+
+
+End Sub
+
+Private Sub button_page_Click()
+
+Unload RoomPrompt
+Load PageUser
+
+End Sub
+
+Private Sub button_skip_click(Index As Integer)
+
+ h$ = CurrRoomName$
+ n% = newmsgs%
+
+ a% = OldRooms.ListIndex
+ If (a% >= 0) Then
+ b$ = OldRooms.List(a%)
+ End If
+
+ a% = NewRooms.ListIndex
+ If (a% >= 0) Then
+ b$ = NewRooms.List(a%)
+ End If
+
+ Call goto_room(b$)
+ If n% = 0 Then
+ OldRooms.AddItem (h$)
+ Else
+ NewRooms.AddItem (h$)
+ End If
+
+End Sub
+
+Private Sub button_terminate_click(Index As Integer)
+
+ If begin_trans() = True Then
+ serv_puts ("LOUT")
+ buf$ = serv_gets()
+ Call end_trans
+ Unload RoomPrompt
+ Load CitUser
+ End If
+
+End Sub
+
+Private Sub button_who_Click()
+ Unload RoomPrompt
+ Load WhoIsOnline
+End Sub
+
+Private Sub button_zap_Click()
+ q% = MsgBox("Are you sure you want to Zap (forget) '" + CurrRoomName$ + "'?", 33, CurrRoomName$)
+
+ If q% = 1 Then
+
+ If begin_trans() = True Then
+
+ serv_puts ("FORG")
+ a$ = serv_gets()
+ Call end_trans
+ End If
+
+ If Left$(a$, 1) <> "2" Then
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ Else
+ Call goto_room("_BASEROOM_")
+ End If
+ End If
+
+End Sub
+
+Private Sub Form_Load()
+ NewRooms.Left = RoomPrompt.Left + 120
+ NewRooms.Width = RoomPrompt.Width - 240
+
+ OldRooms.Left = RoomPrompt.Left + 120
+ OldRooms.Width = RoomPrompt.Width - 240
+
+ Show
+ RoomPrompt.WindowState = 2
+
+ If SaveOldCount = 0 And SaveNewCount = 0 Then
+ Call RefreshRoomLists
+ Else
+ NewRooms.Clear
+ OldRooms.Clear
+ For a% = 1 To SaveNewCount
+ NewRooms.AddItem (SaveNewRooms$(a%))
+ Next a%
+ For a% = 1 To SaveOldCount
+ OldRooms.AddItem (SaveOldRooms$(a%))
+ Next a%
+ End If
+ If CurrRoomName$ = "" Then CurrRoomName$ = "_BASEROOM_"
+ Call goto_room(CurrRoomName$)
+
+ If LastMessageRead& > 0 Then
+ button_abandon(0).Enabled = True
+ Else
+ button_abandon(0).Enabled = False
+ End If
+
+ Show
+
+End Sub
+
+Private Sub Form_Resize()
+
+ RoomPrompt.Left = 0
+ RoomPrompt.Top = 0
+ RoomPrompt.Width = MainWin.Width - 200
+ RoomPrompt.Height = MainWin.Height - 600
+
+ NewRooms.Left = RoomPrompt.Left + 60
+ NewRooms.Width = RoomPrompt.Width - 120
+
+ OldRooms.Left = RoomPrompt.Left + 60
+ OldRooms.Width = RoomPrompt.Width - 120
+
+ NewRooms.Top = Label1.Top + Label1.Height
+ NewRooms.Height = Abs(Int(((RoomPrompt.Height - Label1.Top) / 2) - 300))
+
+ Label2.Top = NewRooms.Top + NewRooms.Height + 20
+ OldRooms.Top = Label2.Top + Label2.Height
+ OldRooms.Height = Abs((RoomPrompt.Height - OldRooms.Top) - 300)
+
+ Frame3D1.Width = Abs((RoomPrompt.Width - Frame3D1.Left) - 120)
+ CurrRoom.Width = Abs(Frame3D1.Width - 150)
+ MsgsCount.Width = Abs(Frame3D1.Width - 150)
+
+ 'CurrRoom.FontSize = Abs(Frame3D1.Width / 225)
+
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+
+ ' Save the room lists
+ SaveNewCount = NewRooms.ListCount
+ For a% = 1 To SaveNewCount
+ SaveNewRooms$(a%) = NewRooms.List(a% - 1)
+ Next a%
+ SaveOldCount = OldRooms.ListCount
+ For a% = 1 To SaveOldCount
+ SaveOldRooms$(a%) = OldRooms.List(a% - 1)
+ Next a%
+
+
+End Sub
+
+Private Sub goto_room(RoomName As String)
+
+ If begin_trans() = False Then GoTo skipgoto
+ If RoomName <> CurrRoomName$ Then LastMessageRead& = 0
+ serv_puts ("GOTO " + RoomName)
+ a$ = serv_gets()
+ Call end_trans
+
+ If (Left$(a$, 1) <> "2") Then
+ serv_puts ("GOTO" + "_BASEROOM_")
+ a$ = serv_gets()
+ End If
+
+ a$ = Right$(a$, Len(a$) - 4)
+ CurrRoomName$ = extract$(a$, 0)
+ CurrRoomFlags% = Val(extract$(a$, 4))
+ RoomPrompt.Caption = CurrRoomName$
+ button_abandon(0).Enabled = False
+
+ ' Enable file transfer commands only if we're in a directory room
+ If (CurrRoomFlags% And 32) = 32 Then
+ b = True
+ Else
+ b = False
+ End If
+
+ ' Enable some aide commands if user is the room aide
+ IsRoomAide% = False
+ If Val(extract$(a$, 8)) > 0 Then IsRoomAide% = True
+
+ menu_read_directory.Enabled = b
+ button_dir.Enabled = b
+ menu_aide_file.Enabled = (b And IsRoomAide%)
+ menu_read_file.Enabled = b
+ menu_enter_file.Enabled = b
+ menu_aide_edit.Enabled = IsRoomAide%
+ menu_aide_info.Enabled = IsRoomAide%
+ menu_aide_kill.Enabled = IsRoomAide%
+ menu_aide_whoknows.Enabled = IsRoomAide%
+
+ If (axlevel >= 6) Or (IsRoomAide% = True) Then
+ menu_aide.Enabled = True
+ Else
+ menu_aide.Enabled = False
+ End If
+
+ CurrRoom.Caption = CurrRoomName$
+ newmsgs% = Val(extract$(a$, 1))
+ MsgsCount.Caption = extract$(a$, 2) + " messages" + Chr$(13) + Chr$(10) + extract(a$, 1) + " new"
+
+ If (NewRooms.ListCount >= 0) Then
+ For c% = 0 To NewRooms.ListCount - 1
+ If NewRooms.List(c%) = CurrRoomName$ Then NewRooms.RemoveItem (c%)
+ Next
+ End If
+
+ If (OldRooms.ListCount >= 0) Then
+ For c% = 0 To OldRooms.ListCount - 1
+ If OldRooms.List(c%) = CurrRoomName$ Then OldRooms.RemoveItem (c%)
+ Next
+ End If
+
+ If (OldRooms.ListIndex = (-1)) And (NewRooms.ListIndex = (-1)) And NewRooms.ListCount > 0 Then
+ NewRooms.ListIndex = 0
+ Else
+ If (OldRooms.ListIndex = (-1)) And (NewRooms.ListIndex = (-1)) And OldRooms.ListCount > 0 Then
+ OldRooms.ListIndex = 0
+ End If
+ End If
+
+ If Val(extract$(a$, 3)) > 0 Then Call ReadRoomInfo(0)
+
+skipgoto:
+
+End Sub
+
+Private Sub menu_aide_edit_Click()
+
+ Unload RoomPrompt
+ Load EditRoom
+
+End Sub
+
+Private Sub menu_aide_info_Click()
+
+ If begin_trans() = True Then
+ serv_puts ("EINF 0")
+ a$ = serv_gets()
+ Call end_trans
+ If Left$(a$, 1) = "2" Then
+ Unload RoomPrompt
+ Load EditInfo
+ Else
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ End If
+ End If
+
+End Sub
+
+Private Sub menu_aide_kill_Click()
+
+ q% = 2
+
+ If begin_trans() = True Then
+ serv_puts ("KILL 0")
+ a$ = serv_gets()
+ Call end_trans
+ End If
+
+ If Left$(a$, 1) = "2" Then
+ q% = MsgBox("Are you sure you want to delete '" + CurrRoomName$ + "'?", 33, CurrRoomName$)
+ Else
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ End If
+
+ If q% = 1 Then
+
+ If begin_trans() = True Then
+
+ serv_puts ("KILL 1")
+ a$ = serv_gets()
+ Call end_trans
+ End If
+
+ If Left$(a$, 1) <> "2" Then
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ Else
+ Call goto_room("_BASEROOM_")
+ End If
+ End If
+
+End Sub
+
+Private Sub menu_aide_room_invite_Click()
+
+ Unload RoomPrompt
+ Load Invite
+
+End Sub
+
+Private Sub menu_aide_room_kick_Click()
+
+ Unload RoomPrompt
+ Load KickOut
+
+End Sub
+
+Private Sub menu_aide_valid_Click()
+
+ Unload RoomPrompt
+ Load Validation
+
+End Sub
+
+Private Sub menu_aide_whoknows_Click()
+
+ Unload RoomPrompt
+ Load WhoKnowsRoom
+
+End Sub
+
+Private Sub menu_enter_conf_Click()
+ Unload RoomPrompt
+ Load EnterConfiguration
+End Sub
+
+Private Sub menu_enter_passwd_Click()
+ Unload RoomPrompt
+ Load EnterPassword
+End Sub
+
+Private Sub menu_enter_regis_Click()
+ Unload RoomPrompt
+ Load Registration
+End Sub
+
+Private Sub menu_enter_room_Click()
+
+ If begin_trans() = True Then
+ serv_puts ("CRE8 0|0|0|0")
+ a$ = serv_gets()
+ Call end_trans
+ If Left$(a$, 1) = "2" Then
+ Unload RoomPrompt
+ Load EnterRoom
+ Else
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ End If
+ End If
+
+End Sub
+
+Private Sub menu_help_about_Click()
+
+n$ = Chr$(13) + Chr$(10)
+a$ = ""
+a$ = "Citadel/UX Client for Windows" + n$
+a$ = a$ + "Copyright © 1995 by Art Cancro" + n$
+a$ = a$ + "WinSock code Copyright © 1994 by Brian Syme" + n$
+a$ = a$ + n$
+a$ = a$ + "The home of Citadel/UX is UNCENSORED! BBS at 914-244-3252." + n$
+a$ = a$ + n$
+a$ = a$ + "THIS IS A PRELIMINARY AND UNFINISHED DISTRIBUTION" + n$
+a$ = a$ + "FOR DEMONSTRATION PURPOSES ONLY."
+
+MsgBox a$
+End Sub
+
+Private Sub menu_read_directory_click()
+
+ Unload RoomPrompt
+ Load RoomDirectory
+
+
+End Sub
+
+Private Sub menu_read_file_Click()
+
+ Unload RoomPrompt
+ Load Download
+
+End Sub
+
+Private Sub menu_read_info_click()
+
+Call ReadRoomInfo(1)
+End Sub
+Private Sub ReadRoomInfo(deliberate As Integer)
+
+foundit = 0
+ If begin_trans() = True Then
+ serv_puts ("RINF")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ foundit = 1
+ i$ = ""
+ Do
+ a$ = serv_gets()
+ If a$ <> "000" Then i$ = i$ + a$ + Chr$(13) + Chr$(10)
+ Loop While a$ <> "000"
+ Else
+ i$ = "No info file available for this room."
+ End If
+ Call end_trans
+ If foundit = 1 Or deliberate = 1 Then
+ MsgBox Cit_Format(i$), 64, CurrRoomName$
+ End If
+ End If
+
+End Sub
+
+Private Sub menu_read_userlist_Click()
+ Unload RoomPrompt
+ Load UserList
+End Sub
+
+Private Sub menu_term_quit_Click()
+
+
+ If begin_trans() = True Then
+ serv_puts ("QUIT")
+ buf$ = serv_gets()
+ Call end_trans
+ End If
+
+ Unload RoomPrompt
+ Unload IPC
+ Load SelectBBS
+
+End Sub
+
+Private Sub menu_term_stay_Click()
+ Call button_terminate_click(0)
+End Sub
+
+Private Sub NewRooms_Click()
+
+ a% = NewRooms.ListIndex
+ OldRooms.ListIndex = (-1)
+ NewRooms.ListIndex = a%
+
+End Sub
+
+Private Sub NewRooms_DblClick()
+
+ If DoubleClickAction$ = "GOTO" Then Call button_goto_click(0)
+ If DoubleClickAction$ = "SKIP" Then Call button_skip_click(0)
+ If DoubleClickAction$ = "ABANDON" Then Call button_abandon_Click(0)
+
+
+End Sub
+
+Private Sub NewRooms_KeyPress(keyascii As Integer)
+
+ If keyascii = 13 Or keyascii = 10 Then Call NewRooms_DblClick
+
+End Sub
+
+Private Sub OldRooms_Click()
+
+ a% = OldRooms.ListIndex
+ NewRooms.ListIndex = (-1)
+ OldRooms.ListIndex = a%
+
+End Sub
+
+Private Sub OldRooms_DblClick()
+
+ Call button_skip_click(0)
+
+End Sub
+
+Private Sub OldRooms_KeyPress(keyascii As Integer)
+
+ If keyascii = 13 Or keyascii = 10 Then Call OldRooms_DblClick
+
+End Sub
+
+Private Sub RefreshRoomLists()
+
+ ' First, clear out the saved rooms arrays...
+ SaveNewCount = 0
+ SaveOldCount = 0
+
+ ' Then, clear out the windows if there's anything there...
+ OldRooms.Clear
+ NewRooms.Clear
+
+ If begin_trans() = False Then GoTo skiproom
+ serv_puts ("LKRN")
+ buf$ = serv_gets()
+ If Left$(buf$, 1) = "1" Then
+ Do
+ buf$ = serv_gets()
+ If buf$ = "000" Then Exit Do
+ NewRooms.AddItem (extract$(buf$, 0))
+ Loop
+ End If
+
+ serv_puts ("LKRO")
+ buf$ = serv_gets()
+ If Left$(buf$, 1) = "1" Then
+ Do
+ buf$ = serv_gets()
+ If buf$ = "000" Then Exit Do
+ OldRooms.AddItem (extract$(buf$, 0))
+ Loop
+ End If
+ Call end_trans
+skiproom:
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form SelectBBS
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ ClientHeight = 3120
+ ClientLeft = 2130
+ ClientTop = 3780
+ ClientWidth = 7500
+ ControlBox = 0 'False
+ FillColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 3525
+ Left = 2070
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3120
+ ScaleWidth = 7500
+ Top = 3435
+ Width = 7620
+ Begin VB.CommandButton Prefs_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Preferences..."
+ Height = 492
+ Left = 6000
+ TabIndex = 5
+ Top = 2520
+ Width = 1452
+ End
+ Begin VB.CommandButton Call_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Connect"
+ Height = 495
+ Left = 4560
+ TabIndex = 4
+ Top = 2520
+ Width = 1215
+ End
+ Begin VB.CommandButton Delete_Button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Delete"
+ Height = 495
+ Left = 3120
+ TabIndex = 3
+ Top = 2520
+ Width = 1215
+ End
+ Begin VB.CommandButton Edit_Button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "Edit"
+ Height = 495
+ Left = 1560
+ TabIndex = 2
+ Top = 2520
+ Width = 1335
+ End
+ Begin VB.CommandButton New_Button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "New"
+ Height = 495
+ Left = 120
+ TabIndex = 1
+ Top = 2520
+ Width = 1215
+ End
+ Begin VB.ListBox List1
+ Appearance = 0 'Flat
+ BeginProperty Font
+ name = "Arial"
+ charset = 0
+ weight = 700
+ size = 9
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 1830
+ Left = 120
+ TabIndex = 0
+ Top = 120
+ Width = 7335
+ End
+End
+Attribute VB_Name = "SelectBBS"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim myDirectory(30) As BBSdir
+Dim maxEntries%
+
+Private Sub call_button_click()
+
+ If List1.ListIndex >= 0 Then
+
+ CurrBBS = myDirectory(List1.ListIndex)
+
+ Cancelled = False
+ Unload SelectBBS
+ Unload IPC
+ Load IPC
+ End If
+
+End Sub
+
+Private Sub Delete_Button_Click()
+
+ If List1.ListIndex >= 0 Then
+ If (MsgBox("Are you sure you wish to delete this system from your list?", 4 + 48 + 256) = 6) Then
+ For a% = List1.ListIndex To maxEntries% - 1
+ myDirectory(a%) = myDirectory(a% + 1)
+ Next
+
+ maxEntries% = maxEntries% - 1
+
+ End If
+
+ Call SaveDialingDirectory
+ Call display_directory
+ End If
+
+End Sub
+
+Private Sub display_directory()
+ List1.Clear
+ If maxEntries > 0 Then
+ For a% = 0 To maxEntries - 1
+ List1.AddItem (myDirectory(a%).Name)
+ Next a%
+ End If
+
+End Sub
+
+Private Sub edit_button_click()
+ If List1.ListIndex >= 0 Then
+ CurrBBS = myDirectory(List1.ListIndex)
+ editedBBSnum = List1.ListIndex
+ Load EditBBS
+ Unload SelectBBS
+ End If
+
+End Sub
+
+Private Sub Form_Load()
+
+ Cancelled = True
+ MainWin.Caption = "Citadel/UX Client for Windows"
+
+ Show
+ SelectBBS.Width = Int(MainWin.Width * 0.9)
+ SelectBBS.Height = Int(MainWin.Height * 0.7)
+ SelectBBS.Left = Int((MainWin.Width - SelectBBS.Width) / 2)
+ SelectBBS.Top = Int((MainWin.Height - SelectBBS.Height) / 4)
+
+
+ ' Initialize the dialing directory
+ maxEntries% = 0
+
+ Call LoadDialingDirectory
+
+End Sub
+
+Private Sub Form_Resize()
+
+ new_button.Top = Abs(SelectBBS.Height - 996)
+ edit_button.Top = Abs(SelectBBS.Height - 996)
+ delete_button.Top = Abs(SelectBBS.Height - 996)
+ call_button.Top = Abs(SelectBBS.Height - 996)
+ prefs_button.Top = Abs(SelectBBS.Height - 996)
+ List1.Height = Abs(SelectBBS.Height - 1212 - List1.Top + 120)
+ List1.Width = Abs(SelectBBS.Width - 288)
+
+End Sub
+
+Private Sub List1_DblClick()
+ Call call_button_click
+End Sub
+
+Private Sub List1_KeyPress(keyascii As Integer)
+ If keyascii = 13 Then Call call_button_click
+End Sub
+
+Private Sub LoadDialingDirectory()
+ On Error Resume Next
+ Open "dialing.dir" For Input As #1
+ If Err = 0 Then
+ maxEntries% = 0
+ Do
+ a% = maxEntries
+ Input #1, myDirectory(a%).Name, myDirectory(a%).PhoneOrAddress, myDirectory(a%).TCPport
+ If Err = 0 Then maxEntries = maxEntries + 1
+ Loop Until Err <> 0
+ Close #1
+ End If
+
+
+ b% = 0
+ If editedBBSnum >= 0 Then
+ myDirectory(editedBBSnum) = CurrBBS
+ editedBBSnum = (-1)
+ b% = 1
+ End If
+
+ If maxEntries% > 0 Then
+ For a% = 0 To maxEntries - 1
+ If Left$(myDirectory(a%).Name, 9) = "newbbs000" Then
+ myDirectory(a%) = myDirectory(a% + 1)
+ maxEntries% = maxEntries% - 1
+ End If
+ Next
+ End If
+
+ If b% = 1 Then Call SaveDialingDirectory
+ Call display_directory
+
+End Sub
+
+Private Sub New_Button_Click()
+
+ maxEntries% = maxEntries% + 1
+
+ z = maxEntries% - 1
+
+ myDirectory(z).Name = "newbbs000"
+ myDirectory(z).PhoneOrAddress = ""
+ myDirectory(z).TCPport = 504
+
+ Call SaveDialingDirectory
+ Call display_directory
+ List1.ListIndex = z
+
+ Call edit_button_click
+End Sub
+
+Private Sub Prefs_button_Click()
+ Load Preferences
+ Unload SelectBBS
+End Sub
+
+Private Sub SaveDialingDirectory()
+ On Error Resume Next
+ Open "dialing.dir" For Output As #1
+ If Err = 0 Then
+ If maxEntries > 0 Then
+ For a% = 0 To maxEntries - 1
+ Write #1, myDirectory(a%).Name, myDirectory(a%).PhoneOrAddress, myDirectory(a%).TCPport
+ Next
+ End If
+ Close #1
+ End If
+
+End Sub
+
+
--- /dev/null
+Option Explicit
+DefInt A-Z
+
+Global dayo(13) As Integer
+Global mnth(12) As String
+Const FordConstant = 18032'/* 5 hours 32 seconds, 5 hours is GMT, 32 seconds, I have no idea. */
+
+Sub humantime (ByVal l&, mo%, da%, yr%, h%, m%, s%)
+ ' here art, pass it l the unix time number, and it'll return the others
+ Dim lm&, lh&, ld&, ll&
+ Dim leap%
+ Dim Craig%
+
+ l = l - FordConstant ' account for GMT
+ lm = Int(l / 60)
+ s = (l - lm * 60)
+ l = Int(l / 60)
+
+ lh = Int(l / 60) ' was lm
+ m = (l - lh * 60)
+ l = Int(l / 60)
+
+ ll = Int(l / 24)
+ h = (l - ll * 24)
+ l = Int(l / 24)
+
+ lm = Int((l + 365) / 365)
+ lm = Int(lm / 4)'; /* leap days */
+
+ '/* l is now whole days left */
+ yr = Int((l - lm) / 365)
+ yr = yr + 1970
+
+ If (yr Mod 4) = 0 Then
+ leap = 1
+ Else
+ leap = 0
+ End If
+
+ ld = Int((l - lm) / 365)
+ da = ((l - ld * 365) - lm) + 1
+
+ '/* da is days in this year */
+
+ For lm = 1 To 12 ' was 0
+ If (leap And lm > 1) Then
+ Craig = dayo(lm) + 1
+ Else
+ Craig = dayo(lm)
+ End If
+ If (da <= Craig) Then
+ ld = dayo(lm)
+ mo = lm
+ Exit For
+ End If
+ Next lm
+
+ If (mo > 1) Then
+ If (leap) And (mo > 2) Then
+ da = da - (dayo(mo - 1) + 1)
+ Else
+ da = da - dayo(mo - 1)
+ End If
+ End If
+
+End Sub
+
+Sub setvars ()
+
+ 'setup for unixcalc
+ dayo(0) = 0
+ dayo(1) = 31
+ dayo(2) = 59
+ dayo(3) = 90
+ dayo(4) = 120
+ dayo(5) = 151
+ dayo(6) = 181
+ dayo(7) = 212
+ dayo(8) = 243
+ dayo(9) = 273
+ dayo(10) = 304
+ dayo(11) = 334
+ dayo(12) = 365
+
+ mnth(1) = "Jan"
+ mnth(2) = "Feb"
+ mnth(3) = "Mar"
+ mnth(4) = "Apr"
+ mnth(5) = "May"
+ mnth(6) = "Jun"
+ mnth(7) = "Jul"
+ mnth(8) = "Aug"
+ mnth(9) = "Sep"
+ mnth(10) = "Oct"
+ mnth(11) = "Nov"
+ mnth(12) = "Dec"
+
+End Sub
+
+Function strtime (t As Long) As String
+ 'given a unixtime make a good string out of it
+ Dim s As String
+ Dim xmo%
+ Dim xda%
+ Dim xyr%
+ Dim xh%
+ Dim xm%
+ Dim xs%
+ Dim ap As String
+ Dim tm$
+
+ Call humantime(t, xmo, xda, xyr, xh, xm, xs)
+ s = mnth(xmo) + " " + Trim$(Str$(xda)) + ", " + Trim$(Str$(xyr))
+ If xh >= 12 Then
+ ap = "pm"
+ xh = xh - 12
+ Else
+ ap = "am"
+ End If
+ If xh = 0 Then xh = 12
+ tm$ = Trim$(Str$(xm))
+ If (xm < 10) Then tm$ = "0" + tm$
+ s = s + " " + Trim$(Str$(xh)) + ":" + tm$ + ap
+ strtime = s
+End Function
+
+Function unixtime (mo%, da%, yr%, hr%, min%, sec%) As Long
+ 'art, this is the other way, pass it month, day year ..., and it
+ 'returns the long int
+
+ Dim yr2%, leap%
+ Dim ret As Long, first As Long, retl As Long
+
+ yr2 = yr - 1970
+ '/* leap year is divisible by four except every 4 hunred years, don't worry about it
+ ' we'll just die in year 2000, it happens to be divisible by 400 */
+ leap = 0
+ If (yr Mod 4 = 0) Then
+ leap = 1'; /* leap a bit wrong 12/31/88 to 1/1/89 */
+ End If
+
+ first = yr2 * 365
+ first = first + ((yr2 + 1) \ 4)
+
+ first = first + dayo(mo - 1)' /* add up days in this year so far */
+ If ((leap = 1) And (mo > 2)) Then
+ first = first + 1
+ End If
+
+ first = first + da'; /* add the days in this month */
+ first = first - 1';/* don't count today's seconds */
+
+ '/* first is number of days go to seconds */
+ ret = (60 * 60)
+ ret = ret * 24
+ ret = ret * first'; /* number of seconds from 1970 to last nite */
+ retl = 60 * 60
+ retl = retl * hr
+ ret = ret + retl
+ ret = ret + (60 * min)
+ ret = ret + sec
+ ret = ret + FordConstant'; /* I have no idea */
+ unixtime = ret
+End Function
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form UserList
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "User Listing"
+ ClientHeight = 5430
+ ClientLeft = 1440
+ ClientTop = 1425
+ ClientWidth = 6270
+ ClipControls = 0 'False
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 5835
+ Left = 1380
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 5430
+ ScaleWidth = 6270
+ Top = 1080
+ Width = 6390
+ WindowState = 2 'Maximized
+ Begin VB.CommandButton ok_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "OK"
+ Height = 492
+ Left = 4920
+ TabIndex = 1
+ Top = 4920
+ Width = 1332
+ End
+ Begin VB.ListBox TheList
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 5424
+ Left = 0
+ Sorted = -1 'True
+ TabIndex = 0
+ Top = 0
+ Width = 4812
+ End
+End
+Attribute VB_Name = "UserList"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub Form_Load()
+
+
+ Show
+ UserList.WindowState = 0
+ UserList.Top = Int((MainWin.Height - UserList.Height) / 3)
+ UserList.Left = Int((MainWin.Width - UserList.Width) / 2)
+ DoEvents
+
+If begin_trans() = True Then
+
+ serv_puts ("LIST")
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ UserList.Caption = "Total number of users: " + Right$(a$, Len(a$) - 4)
+ Else
+ UserList.Caption = Right$(a$, Len(a$) - 4)
+ End If
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If (a$ <> "000") Then TheList.AddItem (extract(a$, 0))
+ DoEvents
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+ End If
+
+End Sub
+
+Private Sub ok_button_Click()
+ Unload UserList
+ Load RoomPrompt
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form Validation
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Validate new users"
+ ClientHeight = 4890
+ ClientLeft = 2415
+ ClientTop = 2880
+ ClientWidth = 6855
+ ClipControls = 0 'False
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 9.75
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 5295
+ Left = 2355
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 4890
+ ScaleWidth = 6855
+ Top = 2535
+ Width = 6975
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Index = 6
+ Left = 3480
+ TabIndex = 22
+ Top = 4320
+ Width = 1575
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Index = 5
+ Left = 1800
+ TabIndex = 21
+ Top = 4320
+ Width = 1575
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Index = 4
+ Left = 120
+ TabIndex = 20
+ Top = 4320
+ Width = 1575
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Index = 3
+ Left = 5160
+ TabIndex = 19
+ Top = 3720
+ Width = 1575
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Index = 2
+ Left = 3480
+ TabIndex = 18
+ Top = 3720
+ Width = 1575
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Index = 1
+ Left = 1800
+ TabIndex = 17
+ Top = 3720
+ Width = 1575
+ End
+ Begin VB.CommandButton cancel_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Cancel"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Left = 5160
+ TabIndex = 5
+ Top = 4320
+ Width = 1575
+ End
+ Begin VB.CommandButton save_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "&Save"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ Height = 495
+ Index = 0
+ Left = 120
+ TabIndex = 8
+ Top = 3720
+ Width = 1575
+ End
+ Begin VB.Label Label8
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Please choose an access level for this user:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = -1 'True
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 300
+ Left = 1080
+ TabIndex = 23
+ Top = 3240
+ Width = 4725
+ End
+ Begin VB.Label TheAxLevel
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Access level"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 1560
+ TabIndex = 16
+ Top = 2880
+ Width = 4695
+ End
+ Begin VB.Label Label7
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Current access:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 0
+ TabIndex = 15
+ Top = 2880
+ Width = 1455
+ End
+ Begin VB.Label Phone
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Phone"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 1560
+ TabIndex = 14
+ Top = 2520
+ Width = 4695
+ End
+ Begin VB.Label ZIP
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "ZIP"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 1560
+ TabIndex = 13
+ Top = 2160
+ Width = 4695
+ End
+ Begin VB.Label TheState
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "State"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 1560
+ TabIndex = 12
+ Top = 1800
+ Width = 4695
+ End
+ Begin VB.Label City
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "City"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 1560
+ TabIndex = 11
+ Top = 1440
+ Width = 4695
+ End
+ Begin VB.Label Address
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Address"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 1560
+ TabIndex = 10
+ Top = 1080
+ Width = 4695
+ End
+ Begin VB.Label RealName
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Real Name"
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 1560
+ TabIndex = 9
+ Top = 720
+ Width = 4695
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00FFFFFF&
+ BackStyle = 0 'Transparent
+ Caption = "UserName"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 18
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 492
+ Left = 120
+ TabIndex = 7
+ Top = 120
+ Width = 6252
+ End
+ Begin VB.Label Label6
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Telephone:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 6
+ Top = 2520
+ Width = 1452
+ End
+ Begin VB.Label Label5
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "State/Province:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 4
+ Top = 1800
+ Width = 1452
+ End
+ Begin VB.Label Label4
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "ZIP Code:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 3
+ Top = 2160
+ Width = 1452
+ End
+ Begin VB.Label Label3
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "City/Town:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 2
+ Top = 1440
+ Width = 1452
+ End
+ Begin VB.Label Label2
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Address:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 1
+ Top = 1080
+ Width = 1452
+ End
+ Begin VB.Label Label1
+ Alignment = 1 'Right Justify
+ Appearance = 0 'Flat
+ BackColor = &H00FFFFFF&
+ BackStyle = 0 'Transparent
+ Caption = "Real name:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 252
+ Left = 0
+ TabIndex = 0
+ Top = 720
+ Width = 1452
+ End
+End
+Attribute VB_Name = "Validation"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub cancel_button_Click()
+ Unload Validation
+ Load RoomPrompt
+End Sub
+
+Private Sub Form_Load()
+ Show
+ Validation.WindowState = 0
+ Validation.Top = Int((MainWin.Height - Validation.Height) / 3)
+ Validation.Left = Int((MainWin.Width - Validation.Width) / 2)
+
+ For i = 0 To 6
+ save_button(i).Caption = Str$(i) + " (" + axdefs$(i) + ")"
+ Next i
+
+ Call GetNextUnregisteredUser
+
+End Sub
+
+Private Sub GetNextUnregisteredUser()
+
+ RealName.Caption = ""
+ Address.Caption = ""
+ City.Caption = ""
+ TheState.Caption = ""
+ ZIP.Caption = ""
+ Phone.Caption = ""
+ TheAxLevel.Caption = ""
+
+ If begin_trans() = True Then
+
+ serv_puts ("GNUR")
+ a$ = serv_gets()
+
+ If Left$(a$, 1) = "2" Then
+ Call end_trans
+ 'Unload Validation
+ 'Load RoomPrompt
+ End If
+
+ UserName.Caption = Right$(a$, Len(a$) - 4)
+
+ If Left$(a$, 1) <> "3" Then
+
+ For i = 0 To 6
+ save_button(i).Enabled = False
+ Next i
+
+
+ Else
+
+ serv_puts ("GREG " + UserName.Caption)
+ a$ = serv_gets()
+ If Left$(a$, 1) = "1" Then
+ UserName.Caption = Right$(a$, Len(a$) - 4)
+ b% = 0
+ Do
+ a$ = serv_gets()
+ If b% = 2 Then RealName.Caption = a$
+ If b% = 3 Then Address.Caption = a$
+ If b% = 4 Then City.Caption = a$
+ If b% = 5 Then TheState.Caption = a$
+ If b% = 6 Then ZIP.Caption = a$
+ If b% = 7 Then Phone.Caption = a$
+ If b% = 8 Then TheAxLevel.Caption = a$ + " (" + axdefs$(Val(a$)) + ")"
+ b% = b% + 1
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+ For i = 0 To 6
+ save_button(i).Enabled = True
+ Next i
+
+ End If
+
+ Call end_trans
+ End If
+
+End Sub
+
+Private Sub save_button_Click(axl As Integer)
+
+ If begin_trans() = True Then
+ serv_puts ("VALI " + UserName.Caption + "|" + Str$(axl))
+ a$ = serv_gets()
+ Call end_trans
+ If Left$(a$, 1) = "2" Then
+ Call GetNextUnregisteredUser
+ Else
+ MsgBox Right$(a$, Len(a$) - 4), 16, "Error"
+ End If
+ End If
+
+End Sub
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form WhoIsOnline
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Who is currently online..."
+ ClientHeight = 5820
+ ClientLeft = 1500
+ ClientTop = 1800
+ ClientWidth = 8940
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 6225
+ Left = 1440
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 5820
+ ScaleWidth = 8940
+ Top = 1455
+ Width = 9060
+ Begin VB.Timer WhoRefresh
+ Left = 7080
+ Top = 5280
+ End
+ Begin VB.VScrollBar TheScroll
+ Height = 4575
+ Left = 8640
+ TabIndex = 4
+ Top = 600
+ Width = 255
+ End
+ Begin VB.CommandButton ok_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "OK"
+ Height = 492
+ Left = 7560
+ TabIndex = 0
+ Top = 5280
+ Width = 1332
+ End
+ Begin VB.Label MaxUsersDisplay
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Total number of users:"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 0
+ TabIndex = 41
+ Top = 5280
+ Width = 7455
+ End
+ Begin VB.Label Label3
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Room Name"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 5520
+ TabIndex = 5
+ Top = 120
+ Width = 3135
+ End
+ Begin VB.Label Label2
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "User Name"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 1440
+ TabIndex = 6
+ Top = 120
+ Width = 4095
+ End
+ Begin VB.Label Label1
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Session"
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 13.5
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 120
+ TabIndex = 40
+ Top = 120
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 11
+ Left = 5640
+ TabIndex = 39
+ Top = 4680
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 11
+ Left = 1440
+ TabIndex = 38
+ Top = 4680
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 11
+ Left = 120
+ TabIndex = 37
+ Top = 4680
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 10
+ Left = 5640
+ TabIndex = 36
+ Top = 4320
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 10
+ Left = 1440
+ TabIndex = 35
+ Top = 4320
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 10
+ Left = 120
+ TabIndex = 34
+ Top = 4320
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 9
+ Left = 5640
+ TabIndex = 33
+ Top = 3960
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 9
+ Left = 1440
+ TabIndex = 32
+ Top = 3960
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 9
+ Left = 120
+ TabIndex = 31
+ Top = 3960
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 8
+ Left = 5640
+ TabIndex = 30
+ Top = 3600
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 8
+ Left = 1440
+ TabIndex = 29
+ Top = 3600
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 8
+ Left = 120
+ TabIndex = 28
+ Top = 3600
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 7
+ Left = 5640
+ TabIndex = 27
+ Top = 3240
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 7
+ Left = 1440
+ TabIndex = 26
+ Top = 3240
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 7
+ Left = 120
+ TabIndex = 25
+ Top = 3240
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 6
+ Left = 5640
+ TabIndex = 24
+ Top = 2880
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 6
+ Left = 1440
+ TabIndex = 23
+ Top = 2880
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 6
+ Left = 120
+ TabIndex = 22
+ Top = 2880
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 5
+ Left = 5640
+ TabIndex = 21
+ Top = 2520
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 5
+ Left = 1440
+ TabIndex = 20
+ Top = 2520
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 5
+ Left = 120
+ TabIndex = 19
+ Top = 2520
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 4
+ Left = 5640
+ TabIndex = 18
+ Top = 2160
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 4
+ Left = 1440
+ TabIndex = 17
+ Top = 2160
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 4
+ Left = 120
+ TabIndex = 16
+ Top = 2160
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 3
+ Left = 5640
+ TabIndex = 15
+ Top = 1800
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 3
+ Left = 1440
+ TabIndex = 14
+ Top = 1800
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 3
+ Left = 120
+ TabIndex = 13
+ Top = 1800
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 2
+ Left = 5640
+ TabIndex = 12
+ Top = 1440
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 2
+ Left = 1440
+ TabIndex = 11
+ Top = 1440
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 2
+ Left = 120
+ TabIndex = 10
+ Top = 1440
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 1
+ Left = 5640
+ TabIndex = 9
+ Top = 1080
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 1
+ Left = 1440
+ TabIndex = 8
+ Top = 1080
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 1
+ Left = 120
+ TabIndex = 7
+ Top = 1080
+ Width = 1095
+ End
+ Begin VB.Label RoomName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 0
+ Left = 5640
+ TabIndex = 3
+ Top = 720
+ Width = 2895
+ End
+ Begin VB.Label UserName
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 0
+ Left = 1440
+ TabIndex = 2
+ Top = 720
+ Width = 3975
+ End
+ Begin VB.Label SessionNum
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 400
+ size = 12
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 375
+ Index = 0
+ Left = 120
+ TabIndex = 1
+ Top = 720
+ Width = 1095
+ End
+End
+Attribute VB_Name = "WhoIsOnline"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Dim SessionNumArr%(1024)
+Dim UserNameArr$(1024)
+Dim RoomNameArr$(1024)
+Dim MaxUsers%
+
+
+Private Sub Form_Load()
+
+
+ Show
+ WhoIsOnline.WindowState = 0
+ WhoIsOnline.Top = Int((MainWin.Height - WhoIsOnline.Height) / 3)
+ WhoIsOnline.Left = Int((MainWin.Width - WhoIsOnline.Width) / 2)
+ DoEvents
+
+ Call DoWho
+End Sub
+
+Private Sub DoWho()
+
+MaxUsers% = 0
+
+If begin_trans() = True Then
+
+ serv_puts ("RWHO")
+ a$ = serv_gets()
+
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If (a$ <> "000") And MaxUsers% < 1024 Then
+ SessionNumArr%(MaxUsers%) = Val(extract$(a$, 0))
+ UserNameArr$(MaxUsers%) = extract$(a$, 1)
+ RoomNameArr$(MaxUsers%) = extract$(a$, 2)
+ MaxUsers% = MaxUsers% + 1
+ End If
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+
+ b% = MaxUsers% - 12
+ If (b% < 0) Then b% = 0
+ TheScroll.Max = b%
+
+ MaxUsersDisplay.Caption = "Total number of users: " + Str$(MaxUsers%)
+ Call LoadContents
+
+ WhoRefresh.Interval = 30000
+ WhoRefresh.Enabled = True
+
+ End If
+
+End Sub
+
+Private Sub LoadContents()
+
+ For a% = 0 To 11
+
+ If (TheScroll.Value + a%) <= (MaxUsers% - 1) Then
+
+ If SessionNumArr(TheScroll.Value + a%) <> 0 Then
+ SessionNum(a%).Caption = Str$(SessionNumArr(TheScroll.Value + a%))
+ Else
+ SessionNum(a%).Caption = " "
+ End If
+ UserName(a%).Caption = UserNameArr(TheScroll.Value + a%)
+ RoomName(a%).Caption = RoomNameArr(TheScroll.Value + a%)
+
+ Else
+
+ SessionNum(a%).Caption = " "
+ UserName(a%).Caption = " "
+ RoomName(a%).Caption = " "
+
+ End If
+
+ Next a%
+
+
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+WhoRefresh.Enabled = False
+End Sub
+
+Private Sub ok_button_Click()
+ Unload WhoIsOnline
+ Load RoomPrompt
+End Sub
+
+Private Sub TheScroll_Change()
+
+ Call LoadContents
+
+End Sub
+
+Private Sub WhoRefresh_Timer()
+
+Call DoWho
+
+End Sub
+
+
--- /dev/null
+VERSION 4.00
+Begin VB.Form WhoKnowsRoom
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Who knows this room..."
+ ClientHeight = 3870
+ ClientLeft = 1530
+ ClientTop = 1440
+ ClientWidth = 6270
+ ControlBox = 0 'False
+ BeginProperty Font
+ name = "MS Sans Serif"
+ charset = 0
+ weight = 700
+ size = 8.25
+ underline = 0 'False
+ italic = 0 'False
+ strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 4275
+ Left = 1470
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MDIChild = -1 'True
+ MinButton = 0 'False
+ ScaleHeight = 3870
+ ScaleWidth = 6270
+ Top = 1095
+ Width = 6390
+ Begin VB.CommandButton ok_button
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ Caption = "OK"
+ Height = 492
+ Left = 4920
+ TabIndex = 1
+ Top = 3360
+ Width = 1332
+ End
+ Begin VB.ListBox TheList
+ Appearance = 0 'Flat
+ BackColor = &H00C0C0C0&
+ Height = 3864
+ Left = 0
+ Sorted = -1 'True
+ TabIndex = 0
+ Top = 0
+ Width = 4812
+ End
+End
+Attribute VB_Name = "WhoKnowsRoom"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+
+Private Sub Form_Load()
+
+
+ Show
+ WhoKnowsRoom.WindowState = 0
+ WhoKnowsRoom.Top = Int((MainWin.Height - WhoKnowsRoom.Height) / 3)
+ WhoKnowsRoom.Left = Int((MainWin.Width - WhoKnowsRoom.Width) / 2)
+ DoEvents
+
+If begin_trans() = True Then
+
+ serv_puts ("WHOK")
+ a$ = serv_gets()
+ WhoKnowsRoom.Caption = Right$(a$, Len(a$) - 4)
+ If Left$(a$, 1) = "1" Then
+ Do
+ a$ = serv_gets()
+ If (a$ <> "000") Then TheList.AddItem (a$)
+ Loop Until a$ = "000"
+ End If
+ Call end_trans
+ End If
+
+End Sub
+
+Private Sub ok_button_Click()
+ Unload WhoKnowsRoom
+ Load RoomPrompt
+End Sub
+
--- /dev/null
+Module=IPCSUPP; IPCSUPP.BAS
+Module=GLOBALS; GLOBALS.BAS
+Module=UNIXTIME; UNIXTIME.BAS
+Form=SELECTBB.FRM
+Form=PREFS.FRM
+Form=CITUSER.FRM
+Form=ROOMPROM.FRM
+Form=ENTERPAS.FRM
+Form=EDITBBS.FRM
+Form=READMSG.FRM
+Form=ENTMSG.FRM
+Form=RECP.FRM
+Form=WHOKNOWS.FRM
+Form=USERLIST.FRM
+Form=REGIS.FRM
+Form=ROOMDIR.FRM
+Form=ENTCONFG.FRM
+Form=WHOISON.FRM
+Form=EDITROOM.FRM
+Form=VALIDATE.FRM
+Form=ENTROOM.FRM
+Form=DOWNLOAD.FRM
+Form=EDITINFO.FRM
+Form=INVITE.FRM
+Form=KICKOUT.FRM
+Form=ipc.frm
+Form=MainWin.frm
+Form=chatwindow.frm
+Form=PageUser.frm
+Object={0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0; THREED32.OCX
+Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.0#0; COMDLG32.OCX
+Object={7A080CC8-26E2-101B-AEBD-04021C009402}#1.0#0; GAUGE32.OCX
+Object={067CC705-D99C-11CF-AF7D-0020AFC0FB3A}#1.0#0; IPOCX.OCX
+ProjWinSize=27,820,194,190
+ProjWinShow=2
+IconForm="MainWin"
+HelpFile=""
+Title="WinCit"
+ExeName32="wincit.exe"
+ExeName="WINCIT.EXE"
+Name="wincit"
+HelpContextID="0"
+StartMode=0
+Description="WinCit"
+VersionCompatible32="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionLegalCopyright="(c)1995-1997 by Art Cancro. All Rights Reserved. This program is freeware and may be redistributed and used without limitation. Sale, modification, or reverse engineering is strictly prohibited."
+VersionProductName="WinCit"
--- /dev/null
+[SetupWiz]
+VBExe=D:\VB\vb32.exe
+SetupProj=C:\Program Files\Microsoft Visual Basic\setupkit\setup1\setup1.vbp
+BootStrap=C:\Program Files\Microsoft Visual Basic\setupkit\kitfil32\setup.exe
+RemoveInstallEXE=C:\Program Files\Microsoft Visual Basic\setupkit\kitfil32\ST4UNST.EXE
+CompressToDir=F:\appl\newcit\wincit\SetupWiz\
+
+[Flags]
+AppTitle=WinCit
+DefaultDir=$(ProgramFiles)\wincit
+MakeFilePath=F:\appl\newcit\wincit\wincit.vbp,0
+Disk Drive=0
+Disk Type=1:1.44 MB Disk
+AppExeName=F:\appl\newcit\wincit\wincit.exe
+Deployment=0
+RemoteProvider=0
+DataAccess=0
+FilesChanged=0
+CheckSum=107216
+
+[Dependencies]
+File1=C:\WINDOWS\SYSTEM\THREED32.OCX,0,32764
+File2=C:\WINDOWS\SYSTEM\COMDLG32.OCX,0,32764
+File3=C:\WINDOWS\SYSTEM\GAUGE32.OCX,0,32764
+File4=C:\WINDOWS\SYSTEM\IPOCX.OCX,0,32764
+
+[Files]
+File1=C:\WINDOWS\SYSTEM\VB40032.DLL,0,$(WinSysPath),,|32767|,-1,-1,0,0,,,0
+File2=C:\WINDOWS\SYSTEM\ven2232.olb,0,$(WinSysPathSysFile),,|32767|,-1,0,0,0,,,0
+File3=C:\WINDOWS\SYSTEM\olepro32.dll,0,$(WinSysPath),$(DLLSelfRegister),|32767|6|8|9|,-1,-1,0,0,,,0
+File4=C:\WINDOWS\SYSTEM\msvcrt20.dll,0,$(WinSysPathSysFile),,|32767|,-1,0,0,0,,,0
+File5=C:\WINDOWS\SYSTEM\msvcrt40.dll,0,$(WinSysPath),,|32767|6|8|9|,-1,-1,0,0,,,0
+File6=C:\Program Files\Microsoft Visual Basic\setupkit\kitfil32\Sys32\ctl3d32.dll,0,$(WinSysPathSysFile),,|32767|,-1,0,0,0,,,0
+File7=C:\WINDOWS\SYSTEM\THREED32.OCX,0,$(WinSysPath),$(DLLSelfRegister),|32764|,-1,-1,0,0,,,0
+File8=C:\WINDOWS\SYSTEM\MFC40.DLL,0,$(WinSysPath),$(DLLSelfRegister),|6|8|9|,-1,-1,0,0,,,0
+File9=C:\WINDOWS\SYSTEM\COMDLG32.OCX,0,$(WinSysPath),$(DLLSelfRegister),|32764|,-1,-1,0,0,,,0
+File10=C:\WINDOWS\SYSTEM\GAUGE32.OCX,0,$(WinSysPath),$(DLLSelfRegister),|32764|,-1,-1,0,0,,,0
+File11=C:\WINDOWS\SYSTEM\IPOCX.OCX,0,$(WinSysPath),,|32764|,-1,-1,0,0,,,0
+File12=F:\appl\newcit\wincit\wincit.exe,0,$(AppPath),$(EXESelfRegister),|32766|,-1,0,0,0,,,0
+File13=F:\appl\newcit\wincit\dialing.dir,0,$(AppPath),,|32760|,-1,0,0,0,,,0
projects / citadel.git / commitdiff