Page History

$insert Logical
/* The program control branches to statement label EQUAL if A is equal to B,  
to label LESSTHAN if A is less than B,  
and to NEITHER if neither of the above is true. */
Begin Case
  Case A EQ B
    GoSub EQUAL
  Case A LT B
    GoSub LESSTHAN
  Case OTHERWISE$
    GoSub NEITHER
End Case
/* If the inventory quantity is less than 10, the program calls the subroutine EXPEDITE.  
If QTY is more than or equal to 10 but less than 100, the program calls the subroutine REORDER.  
Otherwise the program continues without calling either subroutine. */
Begin Case
  Case QTY LT 10
    Call EXPEDITE
  Case QTY LT 100
    Call REORDER
End Case