home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERJL90.MSA / LISTINGS.ARC / GEM.BAS < prev    next >
BASIC Source File  |  1990-05-16  |  839b  |  37 lines
  1. REM Using the VDI: Program I
  2. REM By R.A.Waddilove
  3. REM HiSoft BASIC
  4.  
  5. LIBRARY "GEMVDI"
  6.  
  7. DEFINT a-z
  8.  
  9. REM HiSoft BASIC initialises the GEM AES arrays and opens a
  10. REM virtual workstation for you. You don't need the VDI handle,
  11. REM but if you are interested, here's how to get it...
  12. handle = FNhandle
  13.  
  14. REM Clear the workstation (screen)
  15. v_clrwk
  16.  
  17. REM Print some text using: v_gtext x, y, string
  18. v_gtext 16, 64, "This is a test..."
  19. v_gtext 16, 80, "Click the mouse button..."
  20.  
  21. REM Wait for a mouse click
  22. CALL wait
  23.  
  24. REM Close virtual workstation and exit.
  25. REM Let HiSoft BASIC do the donkey work!
  26. SYSTEM
  27.  
  28. '----------------------------------------------------------------------
  29.  
  30. REM Wait until a mouse button is pressed
  31. SUB wait
  32. x = 0 : y = 0 : button = 0
  33. DO
  34.     vq_mouse button, x, y
  35. LOOP UNTIL button>0
  36. END SUB
  37.