For those who want to use the pass feature start at line 162 and replace it with this
Sub Striker_KeyDown(ByVal keycode)
If keycode = LeftMagnaSave then controller.switch(76)=1
If keycode = RightMagnaSave then controller.switch(46)=1
If keycode = StartGameKey Then Controller.Switch(26)=1 ',Controller.Switch(16)=1
If keycode = LeftTiltKey Then Nudge 90, 2
If keycode = RightTiltKey Then Nudge 270, 2
If keycode = CenterTiltKey Then Nudge 0, 2
if vpmKeyDown(keycode) Then Exit Sub
If keycode = PlungerKey Then Plunger.Pullback:playsound"plungerpull"
End Sub
Sub Striker_KeyUp(ByVal keycode)
If keycode=LeftMagnaSave then controller.switch(76)=0 'A
If keycode=RightMagnaSave then controller.switch(46)=0' '
If vpmKeyup(keycode) Then Exit Sub
If keycode = PlungerKey Then Plunger.Fire:PlaySound"plunger"
End Sub