# bponu$ --- on-unit for the BAD_PASSWORD$ condition

   subroutine bponu$ (cp)
   longint cp

   include SWT_COMMON

   call pl1$nl (Bplabel)
   call remark ("in bponu$: can't happen"s)

   return
   end