home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / FNTPAK32.ZIP / BASIC.EXE / DEMO_GMS.BAS < prev    next >
BASIC Source File  |  1995-08-16  |  2KB  |  78 lines
  1. DEFINT A-Z
  2.  
  3. '$INCLUDE: 'Font_Pak.Inc'           '... For QB/PDS/VB-DOS
  4.  
  5. '======================================================== PowerBasic Users
  6. ''$INCLUDE "Font_Pak.Inc"             '... PB users, UN-REM these lines
  7.  
  8. ''$Link    "FontPakP.OBJ"             '... SHAREWARE users
  9.  
  10. ''$Link    "Mouse_P.OBJ"              '... REGISTERED users
  11. ''$Link    "LDGFXCur.OBJ"             '...      "       "
  12. ''$Link    "Fonts.OBJ"                '...      "       "
  13. '======================================================== PowerBasic Users
  14.  
  15. '============================================================ Demo_GMS.Bas
  16. '
  17. ' A Font Pak Demonstration         Copyright 1991-1994 Rob W. Smetana
  18. '
  19. ' Demonstrates how to select GRAPHICS-MODE mouse cursors from a library.
  20. '
  21. ' Requires:  - Ega or Vga monitor (we won't check).  May NOT work
  22. '              on all EGA monitors!
  23. '
  24. '            - Font_Pak.LIB (QB/PDS/VB-DOS) -or- Font_Pak.PBL (PowerBasic)
  25. '
  26. '============================================================ Demo_GMS.Bas
  27.  
  28. DECLARE FUNCTION NumGFXShapes% ()
  29.  
  30. COLOR 7, 1: CLS
  31.  
  32. CALL fpInitialize: CLS        '=== SHAREWARE versions ONLY
  33.  
  34. IF rsThereIsAMouse = 0 THEN
  35.    PRINT
  36.    PRINT "Sorry, I couldn't find or initialize the mouse.  I can't continue."
  37.    PRINT
  38.    END
  39. END IF
  40.  
  41. SCREEN 9
  42.  
  43. PRINT "               Demonstrates Graphics Mode Mouse Cursor Shapes. "
  44. PRINT "               Click any mouse button to see the next shape."
  45. PRINT : PRINT
  46.  
  47.     CALL rsShowCursor
  48.     PRINT "                       Here's the normal mouse cursor. ";
  49.     GOSUB GetMouseClick
  50.  
  51.     LOCATE , 1: PRINT SPACE$(70);
  52.     FOR x = 1 TO NumGFXShapes%          '...display them all
  53.  
  54.         CALL rsLoadGFXCursor(x, 1, 1)
  55.         LOCATE 5, 30
  56.         PRINT "Here is cursor #:"; x;
  57.         GOSUB GetMouseClick
  58.  
  59.     NEXT
  60.  
  61. SCREEN 0: PRINT "That's all . . ."
  62.  
  63. END
  64.  
  65. GetMouseClick:      '...get, and then scrub mouse clicks
  66.  
  67.     DO                              '...get a mouse click
  68.        Ky = rsButtonPressed(MouseRow, MouseCol, -1)
  69.        IF INKEY$ = CHR$(27) THEN END
  70.     LOOP UNTIL Ky
  71.  
  72.     DO                              '...scrub mouse clicks
  73.        Ky = rsButtonPressed(MouseRow, MouseCol, -1)
  74.     LOOP WHILE Ky
  75.  
  76. RETURN
  77.  
  78.