home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / testsrc / select.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  144 b   |  16 lines
  1. PROC main()
  2.    DEF a
  3.    a := 21
  4.    SELECT a
  5.    CASE 5 TO 20
  6.       PrintF('yep!\n')
  7.    DEFAULT
  8.       PrintF('nope!\n')
  9.    ENDSELECT
  10. ENDPROC
  11.  
  12.  
  13.  
  14.  
  15.  
  16.