       10 // CASE sample program
       20 //
       30 DIM a(10)
       40 FOR f:=1 TO 10 DO
       50   CASE f OF
       60     // Test kees
       70   WHEN 1
       80     SYS assert, f=1
       90     a(f):=TRUE
      100   WHEN <=2
      110     SYS assert, f=2
      120     a(f):=TRUE
      130   WHEN 6, 7
      140     SYS assert, f=6 OR f=7
      150     a(f):=TRUE
      160   WHEN >9
      170     SYS assert, f=10
      180     a(f):=TRUE
      190   OTHERWISE
      200     SYS assert, f=3 OR f=4 OR f=5 OR f=8 OR f=9
      210     a(f):=TRUE
      220   ENDCASE
      230   //
      240 ENDFOR f
      250 //
      260 FOR f:=1 TO 10 DO SYS assert, a(f)=1
      270 PRINT "Ok"
