How can this structure be cleaned-up?

  begin case
        case Ans = 'A'  ;  gosub Check.A
        case Ans = 'B'  ;  gosub Check.B   
        case Ans = '2'  ;  gosub Check.B  
  end   case

The following is more difficult to read.

  begin case
        case Ans = 'A'               ;  gosub Check.A
        case Ans = 'B' or Ans = '2'  ;  gosub Check.B   
  end   case

I would like something like...

  begin case
        case Ans = 'A'  ;  gosub Check.A
        case Ans = 'B'    
        case Ans = '2'  ;  gosub Check.B  
  end   case

so that the "gosub Check.B" command is not repeated.  I have tried a few
alternatives without a victory.

Suggestions would be appreciated.

--Bill
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to