Return to Statement

Choose Single Option Example 1

This example demonstrates the use of the CHOOSE statement to create a menu to prompt the user to change views.

   L0:
   CHOOSE/'SEL. PRINC. PLANE',$
   'XY Plane',$
   'YZ Plane',$
   'ZX Plane',DEFLT,1,RSP
   JUMP/L0:,L5:,,,L1:,L2:,L3:,RSP
   L1: $$$$$ option #1 $$$$$
   VIEW/1
   JUMP/L4:
   L2: $$$$$ option #2 $$$$$
   VIEW/3
   JUMP/L4:
   L3: $$$$$ option #3 $$$$$
   VIEW/2
   L4:
   MESSG/'VIEW CHANGED'
   L5: