' program to remove the border from a P*** object
' the vdi routine will remove the border
' Pbox 100,100,200,200
' @Vsf_perimeter(Flg!)
Procedure Vsf_perimeter(Flg!)
  Dpoke Contrl+2,0
  Dpoke Contrl+6,1
  Vdisys 104
Return