home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR22 / JORF21_2.ZIP / WHATKEY.J < prev    next >
Text File  |  1993-07-05  |  293b  |  13 lines
  1. WhatKey:Start
  2.   | Sample for: Kbd:Get, Event:Add
  3.   New (Key)
  4.   Win:Add ("What Key?", 5, 15, 10, 50)
  5.   Win:Msg ("Press ESC to Quit")
  6.  
  7.   While (Kbd:Got!="Esc_Key")
  8.     Str:Put ("Press a Key: ")
  9.     Key = Kbd:Get ("Big")
  10.     Str:PutLine ('That was the "' + Key + '".')
  11.   Return (Ok)
  12.  
  13.