home *** CD-ROM | disk | FTP | other *** search
/ 3D Game Programming for Teens (2nd Edition) / 3DGPFT2E.iso / Source / Chapter02 / demo02-08.bb < prev    next >
Encoding:
Text File  |  2009-01-21  |  252 b   |  16 lines
  1. ;demo02-08.bb - tests the keys pressed
  2.  
  3. x = Input$("Enter 1 to say hi, or 0 to quit. ") 
  4.  
  5. Select x
  6.      Case 1
  7.           Print "Hi!"
  8.      Case 0
  9.           End
  10.      Default
  11.           Print "Huh?"
  12. End Select
  13.  
  14. ;Wait five seconds
  15. Delay 5000
  16.