home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qb_sub / prtsc.sub < prev    next >
Encoding:
Text File  |  1987-07-14  |  2.1 KB  |  50 lines
  1. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. '%  (C) 1987 HUMBLEWARE Custom Programming    Author: Lawrence A. Westhaver  %
  3. '%        247 Paul Martin Drive,  Baltimore MD  21227  (301) 799-1975        %
  4. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  5. '%                                                                           %
  6. '%     FILENAME: PRTSC.SUB                       LAST UPDATE: 05-24-1987     %
  7. '%                                                                           %
  8. '%  DESCRIPTION: Allows software invokation of the print screen function.    %
  9. '%                                                                           %
  10. '%         CALL: CALL PRTSC                                                  %
  11. '%                                                                           %
  12. '%       INPUTS: None.                                                       %
  13. '%                                                                           %
  14. '%      OUTPUTS: None.                                                       %
  15. '%                                                                           %
  16. '%         NOTE: The Microsoft QuickBASIC INT86 assembly routine must be     %
  17. '%               linked into your program at compile time or it must be      %
  18. '%               present in the QuickBASIC USERLIB.EXE file before this      %
  19. '%               routine can be used.                                        %
  20. '%                                                                           %
  21. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  22.  
  23.  
  24. SUB PRTSC Static
  25.  
  26.  
  27. 'dim parameter storage for INT86 call
  28.  
  29.     DIM PARMIN%(7),PARMOUT%(7)
  30.  
  31.  
  32. 'declare indexes for INT86 calls
  33.  
  34.     AXREG%=0    'AX register
  35.     BXREG%=1    'BX register
  36.     CXREG%=2    'CX register
  37.     DXREG%=3    'DX register
  38.     BPREG%=4    'BP register
  39.     SIREG%=5    'SI register
  40.     DIREG%=6    'DI register
  41.     FLAGS%=7    'Flags
  42.  
  43.  
  44. 'invoke print screen function
  45.  
  46.     CALL INT86(&H05,VARPTR(PARMIN%(0)),VARPTR(PARMOUT%(0)))
  47.  
  48.  
  49. END SUB 'prtsc
  50.