home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / tipi / case_.tpi < prev    next >
Text File  |  1993-09-11  |  917b  |  27 lines
  1. # CASE$.TPI
  2. # CASE$ test
  3.  
  4. "What's your favorite" print$ cr
  5. "computer language" print$ get$
  6. lcase$
  7.  
  8. case$
  9.  "tipi"      of$ "Aw, you're just saying that to make me feel good." endof$
  10.  "forth"     of$ "Don't you find it a bit cryptic?" endof$
  11.  "c"         of$ "Don't those wild pointers drive you crazy?" endof$
  12.  "c++"       of$ "So C++ is the OBJECT of your affections." endof$
  13.  "fortran"   of$ "Ah, a fine manly language." endof$
  14.  "ada"       of$ "So how long have you been in the Army?" endof$
  15.  "assembly"  of$ "Now you're playing with power!" endof$
  16.  "basic"     of$ "If it's good enough for Bill Gates..." endof$
  17.  "pascal"    of$ "A lot of college professors agree with you." endof$
  18.  "lisp"      of$ "It's great for AI." endof$
  19.  "prolog"    of$ "It's great for AI." endof$
  20.  "cobol"     of$ "Yikes!" endof$
  21.  default$        "Well, to each his or her own."
  22. endcase$
  23.  
  24. print$
  25. begin key until
  26.  
  27.