home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / MISCBAS.ZIP / PRTSC.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-06-23  |  357 b   |  9 lines
  1. 10000 ' print the screen
  2. 10010 DEF SEG                       'set segment to BASIC's data segment
  3. 10020 PRTSCCODE! = 0                'allocate four bytes of memory
  4. 10030 PRTSC = VARPTR(PRTSCCODE!)    'find out where it is
  5. 10040 POKE prtsc, &HCD              'put the code into the memory
  6. 10050 POKE prtsc + 1, 5
  7. 10060 POKE prtsc + 2, &HCB
  8. 10080 CALL PRTSC
  9.