VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Oergomized BitMaster 3000+ Deluxe v1.0"
   ClientHeight    =   3525
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   10635
   LinkTopic       =   "Form1"
   ScaleHeight     =   3525
   ScaleWidth      =   10635
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Killswitch :P"
      Height          =   1215
      Left            =   6960
      TabIndex        =   21
      Top             =   2040
      Width           =   3255
   End
   Begin VB.Frame Frame1 
      Caption         =   "VDP Test reg $C0001C"
      Height          =   1695
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   10335
      Begin VB.CommandButton Command1 
         Caption         =   "Clear all"
         Height          =   375
         Left            =   8160
         TabIndex        =   20
         Top             =   840
         Width           =   975
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   15
         Left            =   7440
         Style           =   1  'Graphical
         TabIndex        =   16
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   14
         Left            =   6960
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   13
         Left            =   6480
         Style           =   1  'Graphical
         TabIndex        =   14
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   12
         Left            =   6000
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   11
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   10
         Left            =   5040
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   9
         Left            =   4560
         Style           =   1  'Graphical
         TabIndex        =   10
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   8
         Left            =   4080
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   7
         Left            =   3600
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   6
         Left            =   3120
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   5
         Left            =   2640
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   4
         Left            =   2160
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   3
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   2
         Left            =   1200
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   1
         Left            =   720
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   600
         Width           =   495
      End
      Begin VB.CheckBox Check1 
         Caption         =   "0"
         Height          =   495
         Index           =   0
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   600
         Width           =   495
      End
      Begin VB.Label Label3 
         Caption         =   "0x0000"
         Height          =   855
         Left            =   8280
         TabIndex        =   19
         Top             =   480
         Width           =   1695
      End
      Begin VB.Label Label2 
         Caption         =   $"Form1.frx":0000
         Height          =   255
         Left            =   240
         TabIndex        =   18
         Top             =   1320
         Width           =   7695
      End
      Begin VB.Label Label1 
         Caption         =   $"Form1.frx":00A4
         Height          =   255
         Left            =   240
         TabIndex        =   17
         Top             =   1080
         Width           =   7575
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public vdpreg As Long

Private Sub Check1_Click(Index As Integer)
vdpreg = 0
For i = 0 To 15
    If Check1(i).Value Then
        Check1(i).Caption = "1"
        vdpreg = vdpreg + 2 ^ (15 - i)
    Else
        Check1(i).Caption = "0"
    End If
Next i


p$ = Hex$(vdpreg)
Label3.Caption = "0x" + String$(4 - Len(p$), "0") + p$
Open ".\tmp.tmp" For Binary As #1
    Put #1, , Chr$(Int(vdpreg / 256)) + Chr$(Int(vdpreg Mod 256))
Close #1

Shell "pskill transfer.exe"
shl$ = ".\vdptrans.bat"

Shell shl$, vbMinimizedNoFocus


End Sub

Private Sub Command1_Click()
For i = 0 To 15
    Check1(i).Value = False
Next i
Check1_Click 0
End Sub

Private Sub Command2_Click()
Shell "pskill transfer.exe"
End Sub

Private Sub Form_Load()
ChDir App.Path
ChDrive App.Path

End Sub
