home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / progs / calc / katcalc / k0000002.pgm < prev    next >
Text File  |  1990-05-11  |  481b  |  26 lines
  1. *This is a test of a menu with letter prompts
  2. :Init
  3. :Menu
  4.    WDI [A] for alpha
  5.    WDI [B] for beta
  6.    WDI [C] for charlie
  7.    WDI [Q] to quit program
  8.    RD   R1
  9.    JE   R1, 65, ALPHA
  10.    JE   R1, 66, BETA
  11.    JE   R1, 67, CHARLIE
  12.    JE   R1, 81, EXIT
  13.    CLRS
  14.    WD   That was an invalid selection
  15.    J   EXIT
  16. :ALPHA
  17.    WD  ALPHA! ALPHA
  18.    J   menu
  19. :BETA
  20.    WD   BETA? BETA?
  21.    J   menu
  22. :CHARLIE
  23.    WD   Charlie....Charlie....
  24.    J   menu
  25. :Exit
  26.    WD Bye, Bye!