home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / basic / prtsc.bas < prev    next >
BASIC Source File  |  1994-03-04  |  357b  |  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.