home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / MT_CURSR.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  59 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   MT_CURSR.DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  19. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  20.  
  21. $INCLUDE "DAS-NB01.INC"
  22. $INCLUDE "DAS-NB02.INC"
  23. SCREEN 0,,0,0
  24. CLS
  25. ? "┌────────────────────────────────────────────────────────────────────────
  26. ? "│ MouseCursor ( Mchar?, Mattr?, Cchar?, Cattr? )
  27. ? "├────────────────────────────────────────────────────────────────────────
  28. ? "│ The test mouse cursor can be changed to any character you desire. There
  29. ? "│ must be a 'mask' character/attribute and then the actual character/attr
  30. ? "│ that will be used. This can become a bit of a game to 'get things right'
  31. ? "│ so have fun! :)
  32. ? "└────────────────────────────────────────────────────────────────────────
  33. Mchar? =   0   ' A SOLID HI-WHITE
  34. Mattr? =   0   ' BLOCK
  35. Cchar? = 219
  36. Cattr? =  15
  37.                                              '┌─────────────────────────────
  38. IF fMouseSETUP?( 0 ) = 0 THEN END            '│ is there a mouse & all buttons
  39. Back? = 0                                    '│
  40. FOR R? = 9 TO 24                             '│ print all the pretty colors
  41.   IF Back? > 7 THEN                          '│
  42.       Fore? = 16                             '│
  43.     ELSE                                     '│
  44.       Fore? = 0                              '│
  45.   END IF                                     '│
  46.   FOR C? = 1 TO 77 STEP 5                    '│
  47.     COLOR Fore?, Back?                       '│
  48.     D$ = RIGHT$(STR$(1000+pbvScrnTxtAttr),3) '│
  49.     LOCATE R?, C?                            '│
  50.     PRINT " "; D$; " ";                      '│
  51.     INCR Fore?, 1                            '│
  52.   NEXT                                       '│
  53.   INCR Back?, 1                              '│
  54. NEXT                                         '│
  55. MouseCURSOR Mchar?,Mattr?,Cchar?,Cattr?      '│ set TMouse cursor
  56. MouseON                                      '│ make mouse visible
  57. fAnyKey                                      '│ end with a key-press
  58. MouseOFF : COLOR 7, 0 : CLS : END            '└─────────────────────────────
  59.