10000 ' print the screen 10010 DEF SEG 'set segment to BASIC's data segment 10020 PRTSCCODE! = 0 'allocate four bytes of memory 10030 PRTSC = VARPTR(PRTSCCODE!) 'find out where it is 10040 POKE prtsc, &HCD 'put the code into the memory 10050 POKE prtsc + 1, 5 10060 POKE prtsc + 2, &HCB 10080 CALL PRTSC