home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / APEEKSCR.PRG < prev    next >
Text File  |  1990-10-22  |  641b  |  32 lines
  1. ***********
  2. * APEEKSCR.PRG
  3. * by Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO APEEKSCR WITH <screen number> 
  7. * RETURN: True if successful, otherwise false.
  8. ************
  9. PARAMETERS par1
  10. PRIVATE nbr
  11. nbr = LTRIM( STR(par1) )
  12. IF TYPE( "scrn&nbr" ) = "U"
  13.       tr_retl = .F.
  14.    IF fox
  15.        RETURN (tr_retl)
  16.    ELSE
  17.        RETURN
  18.    ENDIF
  19. ENDIF
  20. CALL trpass WITH scrn&nbr
  21. CALL trexe  WITH "SEPARATE"
  22. CALL trpass WITH tr_retc
  23. CALL trpass WITH tr_retn
  24. CALL trexe  WITH "N"
  25. CALL trexe  WITH "PEEKSCR"
  26. tr_retl = .T.
  27. IF fox
  28.    RETURN (tr_retl)
  29. ENDIF
  30. * eof apeekscr *
  31.  
  32.