home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / PRTSC.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  384 b   |  5 lines
  1. 1 '   PrtSc = Routine to print the screen from a basic program    12-4-82
  2. 501 DIM Z.%(1):Z.%(0)=&H5CD:Z.%(1)=&HCB  ' Create tiny machine language program
  3. 503 Y.%=VARPTR(Z.%(0)):CALL Y.%         ' Call it to print screen
  4. 505 ERASE Z.%:RETURN            ' Erase it & return
  5.