home *** CD-ROM | disk | FTP | other *** search
- SUB DisablePrintScreen ()
-
- 'Purpose : To disable the Print Screen Function
- 'Input : none
- 'Return : none
-
- DEF SEG = 0
- POKE &H500, 1
- DEF SEG
- END SUB
-
- SUB EnablePrintScreen
-
- 'Purpose : To enable the Print Screen Function previously disabled
- 'Input : none
- 'Output : none
-
- DEF SEG = 0
- POKE &H500, 0
- DEF SEG
- END SUB
-