home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1090 / guide.exe / GUIDEKEY.SHW < prev    next >
Encoding:
Text File  |  1994-02-01  |  988 b   |  50 lines
  1. SET CURSOR OFF
  2. COLOR FOREGROUND 15
  3. COLOR BACKGROUND 4
  4. COLOR ATTRIBUTE 79
  5. GOXY 3 22 DRAW BOX 45 2
  6.  
  7. IF mouseuse EQ 1 DO JUMPMARK 1
  8.  
  9. ; Keyboard input
  10. GOXY 4 23 WRITE "Push any key to continue, <Alt> + X to Exit."
  11. READ KEY inkey
  12. JUMPMARK 10
  13.  
  14. ; Mouse input
  15. MARK 1
  16. VARIABLE CREATE mousex TYPE NUMBER 1
  17. VARIABLE CREATE mousey TYPE NUMBER 1
  18. VARIABLE CREATE inrange TYPE NUMBER 0
  19. GOXY 4 23 WRITE "                                            "
  20. COLOR BACKGROUND 3
  21. GOXY 10 23 WRITE " Continue "
  22. GOXY 31 23 WRITE " Exit "
  23. MOUSE ON
  24.  
  25. MARK 2
  26. MOUSE TRACK 1 mousex mousey
  27. ; Check the range
  28. IF mousey NE 23 DO JUMPMARK 2
  29. ; Continue button is hit
  30. IF mousex IN 10 19 DO
  31.    VARIABLE VALUE inkey 1
  32.    MATH inrange = 1
  33. END
  34. ; Exit button is hit
  35. IF mousex IN 31 36 DO
  36.    VARIABLE VALUE inkey 445
  37.    MATH inrange = 1
  38. END
  39. IF inrange EQ 0 DO JUMPMARK 2
  40.  
  41. MOUSE OFF
  42.  
  43. ; Clean up after us
  44. VARIABLE RELEASE mousex
  45. VARIABLE RELEASE mousey
  46. VARIABLE RELEASE inrange
  47.  
  48. MARK 10
  49.  
  50.