home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / heimwerk / mausdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-11  |  2.3 KB  |  77 lines
  1. '* ------------------------------------------------------- *
  2. '*                     MAUSDEMO.BAS                        *
  3. '*            (c) 1990 Kay Glahn  &  TOOLBOX               *
  4. '* ------------------------------------------------------- *
  5.  
  6. DIM z(15, 1) AS INTEGER
  7.  
  8. z(0, 0) = &HFFF7  '1111111111110111
  9. z(1, 0) = &HFFE3  '1111111111100011
  10. z(2, 0) = &HFFC1  '1111111111000001
  11. z(3, 0) = &HFF80  '1111111110000000
  12. z(4, 0) = &HFF01  '1111111100000001
  13. z(5, 0) = &HFE03  '1111111000000011
  14. z(6, 0) = &HFC07  '1111110000000111
  15. z(7, 0) = &HF80F  '1111100000001111
  16. z(8, 0) = &HF01F  '1111000000011111
  17. z(9, 0) = &HE03F  '1110000000111111
  18. z(10, 0) = &HC07F '1100000001111111
  19. z(11, 0) = &HC0FF '1100000011111111
  20. z(12, 0) = &H81FF '1000000111111111
  21. z(13, 0) = &H87FF '1000011111111111
  22. z(14, 0) = &H1FFF '0001111111111111
  23. z(15, 0) = &H3FFF '0011111111111111
  24.  
  25. z(0, 1) = &H0     '0000000000000000
  26. z(1, 1) = &H8     '0000000000001000
  27. z(2, 1) = &H14    '0000000000010100
  28. z(3, 1) = &H22    '0000000000100010
  29. z(4, 1) = &H44    '0000000001000100
  30. z(5, 1) = &H88    '0000000010001000
  31. z(6, 1) = &H110   '0000000100010000
  32. z(7, 1) = &H220   '0000001000100000
  33. z(8, 1) = &H440   '0000010001000000
  34. z(9, 1) = &H880   '0000100010000000
  35. z(10, 1) = &H1100 '0001000100000000
  36. z(11, 1) = &H1200 '0001001000000000
  37. z(12, 1) = &H2800 '0010100000000000
  38. z(13, 1) = &H2000 '0010000000000000
  39. z(14, 1) = &H4000 '0100000000000000
  40. z(15, 1) = &H0    '0000000000000000
  41.  
  42. CLS
  43. SCREEN 2
  44. CALL init
  45. CALL gcurs(1, 15, VARPTR(z(0, 0)), VARSEG(z(0, 0)))
  46. CALL grenzen(11, 26, 610, 185)
  47. CALL cursan
  48. CALL setzmaus(320, 100)
  49. LINE (10, 25)-(611, 186), , B
  50. LOCATE 1, 30: PRINT "Ende mit <ESC>"
  51. WHILE INKEY$ <> CHR$(27)
  52.   LOCATE 1, 3: PRINT "X :"; xpos - 10; "  ";
  53.   LOCATE 1, 13: PRINT "Y :"; ypos - 25; "  ";
  54.   SELECT CASE knopf
  55.     CASE IS = 2
  56.       CALL cursaus
  57.       CLS
  58.       LINE (10, 25)-(611, 186), , B
  59.       LOCATE 1, 30: PRINT "Ende mit <ESC>"
  60.       CALL cursan
  61.     CASE IS = 1
  62.       x2 = xpos
  63.       y2 = ypos
  64.       CALL cursaus
  65.       LINE (x1, y1)-(x2, y2)
  66.       CALL cursan
  67.       x1 = x2
  68.       y1 = y2
  69.     CASE IS <> 1
  70.       x1 = xpos
  71.       y1 = ypos
  72.   END SELECT
  73. WEND
  74. END
  75. '* ------------------------------------------------------- *
  76. '*                 Ende von MAUSDEMO.BAS                   *
  77.