Initial revision
authorReginald Oot <root@example.com>
Wed, 18 Aug 1999 01:08:44 +0000 (01:08 +0000)
committerReginald Oot <root@example.com>
Wed, 18 Aug 1999 01:08:44 +0000 (01:08 +0000)
39 files changed:
wincit/chatwindow.frm [new file with mode: 0755]
wincit/cituser.frm [new file with mode: 0755]
wincit/cituser.frx [new file with mode: 0755]
wincit/dialing.dir [new file with mode: 0755]
wincit/download.frm [new file with mode: 0644]
wincit/editbbs.frm [new file with mode: 0644]
wincit/editinfo.frm [new file with mode: 0755]
wincit/editroom.frm [new file with mode: 0644]
wincit/entconfg.frm [new file with mode: 0644]
wincit/enterpas.frm [new file with mode: 0644]
wincit/entmsg.frm [new file with mode: 0644]
wincit/entroom.frm [new file with mode: 0644]
wincit/globals.bas [new file with mode: 0755]
wincit/invite.frm [new file with mode: 0644]
wincit/ipc.frm [new file with mode: 0755]
wincit/ipc.log [new file with mode: 0755]
wincit/ipcsupp.bas [new file with mode: 0755]
wincit/ipocx.ocx [new file with mode: 0755]
wincit/kickout.frm [new file with mode: 0755]
wincit/mainwin.frm [new file with mode: 0755]
wincit/mainwin.frx [new file with mode: 0755]
wincit/modemset.frm [new file with mode: 0644]
wincit/pageuser.frm [new file with mode: 0644]
wincit/prefs.frm [new file with mode: 0755]
wincit/prefs.log [new file with mode: 0755]
wincit/readme.txt [new file with mode: 0755]
wincit/readmsg.frm [new file with mode: 0755]
wincit/recp.frm [new file with mode: 0644]
wincit/regis.frm [new file with mode: 0644]
wincit/roomdir.frm [new file with mode: 0644]
wincit/roomprom.frm [new file with mode: 0755]
wincit/selectbb.frm [new file with mode: 0755]
wincit/unixtime.bas [new file with mode: 0755]
wincit/userlist.frm [new file with mode: 0644]
wincit/validate.frm [new file with mode: 0644]
wincit/whoison.frm [new file with mode: 0755]
wincit/whoknows.frm [new file with mode: 0644]
wincit/wincit.vbp [new file with mode: 0755]
wincit/wincit.vbz [new file with mode: 0644]

diff --git a/wincit/chatwindow.frm b/wincit/chatwindow.frm
new file mode 100755 (executable)
index 0000000..00183ec
--- /dev/null
@@ -0,0 +1,193 @@
+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
+
+
diff --git a/wincit/cituser.frm b/wincit/cituser.frm
new file mode 100755 (executable)
index 0000000..c2924ea
--- /dev/null
@@ -0,0 +1,442 @@
+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
+
diff --git a/wincit/cituser.frx b/wincit/cituser.frx
new file mode 100755 (executable)
index 0000000..e6f3d23
Binary files /dev/null and b/wincit/cituser.frx differ
diff --git a/wincit/dialing.dir b/wincit/dialing.dir
new file mode 100755 (executable)
index 0000000..bb30b88
--- /dev/null
@@ -0,0 +1,5 @@
+"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
diff --git a/wincit/download.frm b/wincit/download.frm
new file mode 100644 (file)
index 0000000..a32448c
--- /dev/null
@@ -0,0 +1,345 @@
+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
+
diff --git a/wincit/editbbs.frm b/wincit/editbbs.frm
new file mode 100644 (file)
index 0000000..d214aea
--- /dev/null
@@ -0,0 +1,154 @@
+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
+
+
diff --git a/wincit/editinfo.frm b/wincit/editinfo.frm
new file mode 100755 (executable)
index 0000000..6821f60
--- /dev/null
@@ -0,0 +1,233 @@
+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
+
diff --git a/wincit/editroom.frm b/wincit/editroom.frm
new file mode 100644 (file)
index 0000000..ab2ac82
--- /dev/null
@@ -0,0 +1,661 @@
+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
+
diff --git a/wincit/entconfg.frm b/wincit/entconfg.frm
new file mode 100644 (file)
index 0000000..895fdb4
--- /dev/null
@@ -0,0 +1,174 @@
+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
+
diff --git a/wincit/enterpas.frm b/wincit/enterpas.frm
new file mode 100644 (file)
index 0000000..d49fd5c
--- /dev/null
@@ -0,0 +1,167 @@
+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
+
diff --git a/wincit/entmsg.frm b/wincit/entmsg.frm
new file mode 100644 (file)
index 0000000..85d48d4
--- /dev/null
@@ -0,0 +1,481 @@
+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
+
diff --git a/wincit/entroom.frm b/wincit/entroom.frm
new file mode 100644 (file)
index 0000000..004f20a
--- /dev/null
@@ -0,0 +1,248 @@
+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
+
diff --git a/wincit/globals.bas b/wincit/globals.bas
new file mode 100755 (executable)
index 0000000..28ef4ee
--- /dev/null
@@ -0,0 +1,129 @@
+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
+
diff --git a/wincit/invite.frm b/wincit/invite.frm
new file mode 100644 (file)
index 0000000..ed0f4dc
--- /dev/null
@@ -0,0 +1,192 @@
+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
+
diff --git a/wincit/ipc.frm b/wincit/ipc.frm
new file mode 100755 (executable)
index 0000000..3ab2a1e
--- /dev/null
@@ -0,0 +1,214 @@
+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
+
+
diff --git a/wincit/ipc.log b/wincit/ipc.log
new file mode 100755 (executable)
index 0000000..a2e3423
--- /dev/null
@@ -0,0 +1,17 @@
+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.
diff --git a/wincit/ipcsupp.bas b/wincit/ipcsupp.bas
new file mode 100755 (executable)
index 0000000..c90a192
--- /dev/null
@@ -0,0 +1,104 @@
+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
+
diff --git a/wincit/ipocx.ocx b/wincit/ipocx.ocx
new file mode 100755 (executable)
index 0000000..c81da64
Binary files /dev/null and b/wincit/ipocx.ocx differ
diff --git a/wincit/kickout.frm b/wincit/kickout.frm
new file mode 100755 (executable)
index 0000000..1c62d6a
--- /dev/null
@@ -0,0 +1,192 @@
+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
+
diff --git a/wincit/mainwin.frm b/wincit/mainwin.frm
new file mode 100755 (executable)
index 0000000..56644dd
--- /dev/null
@@ -0,0 +1,20 @@
+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
diff --git a/wincit/mainwin.frx b/wincit/mainwin.frx
new file mode 100755 (executable)
index 0000000..ebcb41e
Binary files /dev/null and b/wincit/mainwin.frx differ
diff --git a/wincit/modemset.frm b/wincit/modemset.frm
new file mode 100644 (file)
index 0000000..21d5889
--- /dev/null
@@ -0,0 +1,441 @@
+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
+
diff --git a/wincit/pageuser.frm b/wincit/pageuser.frm
new file mode 100644 (file)
index 0000000..5fa1a59
--- /dev/null
@@ -0,0 +1,150 @@
+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
+
+
diff --git a/wincit/prefs.frm b/wincit/prefs.frm
new file mode 100755 (executable)
index 0000000..ed67efd
--- /dev/null
@@ -0,0 +1,414 @@
+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
+
diff --git a/wincit/prefs.log b/wincit/prefs.log
new file mode 100755 (executable)
index 0000000..4b1ff9f
--- /dev/null
@@ -0,0 +1 @@
+Line 304: Cannot load control CMDialog1; license not found.
diff --git a/wincit/readme.txt b/wincit/readme.txt
new file mode 100755 (executable)
index 0000000..88460f9
--- /dev/null
@@ -0,0 +1,39 @@
+                   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.
diff --git a/wincit/readmsg.frm b/wincit/readmsg.frm
new file mode 100755 (executable)
index 0000000..c5b6f43
--- /dev/null
@@ -0,0 +1,724 @@
+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
+
diff --git a/wincit/recp.frm b/wincit/recp.frm
new file mode 100644 (file)
index 0000000..c5e12b0
--- /dev/null
@@ -0,0 +1,155 @@
+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
+
diff --git a/wincit/regis.frm b/wincit/regis.frm
new file mode 100644 (file)
index 0000000..608d33f
--- /dev/null
@@ -0,0 +1,266 @@
+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
+
diff --git a/wincit/roomdir.frm b/wincit/roomdir.frm
new file mode 100644 (file)
index 0000000..aeea728
--- /dev/null
@@ -0,0 +1,1009 @@
+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
+
diff --git a/wincit/roomprom.frm b/wincit/roomprom.frm
new file mode 100755 (executable)
index 0000000..2131a36
--- /dev/null
@@ -0,0 +1,1194 @@
+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..."
+