SUBROUTINE S0 (L)
C     L IS THE VALUE OF BUTTON PUSHED
      LOGICAL Q(10)
      CHARACTER*60 E1(1),E2(1)
      E1(1)='(''SUBR. S0, THE PBA HANDLER'')'
      E2(1)='(''ANY CHOICE DELETES ALL ITAG FILES.'')'
      DO 1 I=1,10
    1 Q(I)=.FALSE.
      CALL TEXT(2,26,0,0150,7,1,E1)
      CALL TEXT(2,27,0,0100,7,1,E2)
      WRITE(7)(Q(I),I=1,10)
    2 READ(7)(Q(M),M=1,10)
C     PUSH NUMBERED BUTTON THEN INTERRUPT BUTTON
C
      DO 3 L=1,10
      IF (Q(L)) GO TO 4
    3 CONTINUE
      GO TO 2
    4 CONTINUE
      DO 5 I=10,27
      CALL TEXT(3,I)
    5 CONTINUE
      RETURN
      END