home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBPRO7.ZIP / FULLCUR.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-07-24  |  837 b   |  27 lines
  1. ' A very small (3343 bytes on my system), but useful program created with
  2. ' the QB/Pro Volume 7 XModules.
  3.  
  4. ' This program presumes a color monitor is present, and changes the
  5. ' cursor to a full block.
  6.  
  7. ' Compile this program with: BC FULLCUR/O;
  8. ' Link it like this:
  9. '  LINK FULLCUR+XERROR+XFLOAT+XINPUT+XINTS+XREDIR+XVIDEO+MHLOCATE/NOE/EXE;
  10.  
  11. ' If using BC 4.50 (QB 4.50), substitute XERROR45 for XERROR
  12.  
  13. ' Following are Precommands for use by the PreProcessor program:
  14.  
  15. '#LinkSwitches: '/noe/exe'
  16. '#CompileSwitches: '/o'
  17. '#TrailingObject: 'XERROR'
  18. '#TrailingObject: 'XFLOAT'
  19. '#TrailingObject: 'XINPUT'
  20. '#TrailingObject: 'XINTS'
  21. '#TrailingObject: 'XREDIR'
  22. '#TrailingObject: 'XVIDEO'
  23. '#Libraries: 'MHPRO7'
  24.  
  25.     CALL MhLocate(0%, 0%, 0%, 1%, 0%, 7%)   ' For color
  26.     'CALL MhLocate(0%, 0%, 0%, 1%, 0%, 13%) ' For mono
  27.