home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / xbasic / xbpro.exe / xb / adialog.x < prev    next >
Text File  |  1996-01-19  |  503b  |  26 lines
  1. '
  2. '
  3. ' ####################
  4. ' #####  PROLOG  #####
  5. ' ####################
  6. '
  7. PROGRAM    "adialog"
  8. VERSION    "0.0000"
  9. '
  10. IMPORT "xui"
  11. '
  12. DECLARE  FUNCTION  Entry ()
  13. '
  14. '
  15. ' ######################
  16. ' #####  Entry ()  #####
  17. ' ######################
  18. '
  19. FUNCTION  Entry ()
  20. '
  21.     XuiMessage ("Hello Fellow Programmer\n\nWelcome To The Future")
  22.     XuiDialog ("What's your name?", "Billy Boy Gates", @reply, @reply$)
  23.     IF reply$ THEN XuiMessage ("Your name is \"" + reply$ + "\"?\n\nI don't believe it!")
  24. END FUNCTION
  25. END PROGRAM
  26.