home *** CD-ROM | disk | FTP | other *** search
/ Dream 57 / Amiga_Dream_57.iso / Amiga / Programmation / Basic / Ace / acesource.lha / Inputbox.b < prev    next >
Encoding:
Text File  |  1998-10-27  |  291 b   |  22 lines
  1.  
  2. /*    
  3.     By Magnus Lundin 27 oktober 1998
  4.     All rights reserved by Hippomus!
  5.  
  6. */    
  7.  
  8.  
  9. #include <stdio.h>
  10.  
  11. beep
  12. a$=Inputbox$("Enter a word:","Magnus frσgar","",200,100)
  13. If a$="" then
  14.      puts("you did not write anything?")
  15.     puts("Are you lame or something?")
  16. Else
  17.  
  18.     puts("You write:"+a$)
  19. end if
  20. end
  21.  
  22.