home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / PEEKSCR.PRG < prev    next >
Text File  |  1990-10-22  |  413b  |  20 lines
  1. ***********
  2. * PEEKSCR.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO PEEKSCR WITH <seg>, <offset> 
  7. * RETURN: 4000-byte screen image
  8. ***********
  9. PARAMETERS  par1, par2
  10. Call Trpass WITH  par1
  11. CALL Trpass WITH  par2
  12. CALL Trexe  WITH TYPE( "par2" )
  13. CALL Trexe  WITH "PEEKSCR"
  14. IF fox
  15.    RETURN (.T.)
  16. ENDIF
  17. * eof peekscr *
  18.  
  19.  
  20.