home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK example progs / $Print_Case_For_Ticks < prev    next >
Encoding:
Text File  |  1994-01-26  |  137 b   |  10 lines  |  [TEXT/KEEN]
  1.     {
  2.     if (match($0, /'.*'/))
  3.         {
  4.         char = substr($0, RSTART, RLENGTH);
  5.         print "\tcase " char ":"
  6.         print "\t\t"
  7.         print "\tbreak;"
  8.         }
  9.     }
  10.