Add files via upload

Octal/FrmOct.frm

@@ -0,0 +1,89 @@
+VERSION 5.00
+Begin VB.Form FrmOct 
+   BorderStyle     =   1  'Fixed Single
+   Caption         =   "Octal Translator"
+   ClientHeight    =   3720
+   ClientLeft      =   45
+   ClientTop       =   330
+   ClientWidth     =   4680
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   ScaleHeight     =   3720
+   ScaleWidth      =   4680
+   StartUpPosition =   2  'CenterScreen
+   Begin VB.CommandButton CmdClose 
+      Caption         =   "&Close"
+      Height          =   375
+      Left            =   3600
+      TabIndex        =   3
+      Top             =   3240
+      Width           =   975
+   End
+   Begin VB.CheckBox ChkBreak 
+      Caption         =   "&Break up output"
+      Height          =   330
+      Left            =   120
+      TabIndex        =   2
+      Top             =   3275
+      Width           =   2295
+   End
+   Begin VB.TextBox TxtOutput 
+      BackColor       =   &H80000004&
+      Height          =   1455
+      Left            =   120
+      Locked          =   -1  'True
+      MultiLine       =   -1  'True
+      ScrollBars      =   2  'Vertical
+      TabIndex        =   1
+      Top             =   1680
+      Width           =   4455
+   End
+   Begin VB.TextBox TxtInput 
+      Height          =   1455
+      Left            =   120
+      MultiLine       =   -1  'True
+      ScrollBars      =   2  'Vertical
+      TabIndex        =   0
+      Top             =   120
+      Width           =   4455
+   End
+End
+Attribute VB_Name = "FrmOct"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub ChkBreak_Click()
+  TxtOutput.Text = OctCode(TxtInput.Text)
+End Sub
+
+Private Sub CmdClose_Click()
+  End
+End Sub
+
+Private Sub Form_Terminate()
+  End
+  ' `-> I doubt this has any use; but just incase...
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+  End
+  ' `-> I doubt this has any use; but just incase...
+End Sub
+
+Private Sub TxtInput_Change()
+  TxtOutput.Text = OctCode(TxtInput.Text)
+End Sub
+
+Function OctCode(OctString As String) As String
+  Dim Code As String, I As Integer
+  For I = 1 To Len(OctString)
+    Code = Code & Oct(Asc(Mid(OctString, I, 1)))
+    If ChkBreak.Value = 1 Then
+      Code = Code & " "
+    End If
+  Next
+  OctCode = RTrim(Code)
+End Function
+
+' EOF

Octal/Octal.vbp

@@ -0,0 +1,40 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINXP\system32\stdole2.tlb#OLE Automation
+Form=FrmOct.frm
+IconForm="FrmOct"
+Startup="FrmOct"
+HelpFile=""
+Title="Octal"
+ExeName32="Octal.exe"
+Command32=""
+Name="OctalTranslator"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="Jigsy"
+VersionFileDescription="Translates ASCII characters to octal values. E.g. A = 101"
+VersionLegalCopyright="N/A - Open Source Software"
+VersionProductName="Octal Translator"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+DebugStartupOption=0
+
+[MS Transaction Server]
+AutoRefresh=1

Octal/Octal.vbw

@@ -0,0 +1 @@
+FrmOct = 110, 110, 640, 557, C, 66, 66, 596, 513, C