home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / APOKESCR.PRG < prev    next >
Text File  |  1990-10-22  |  1KB  |  53 lines
  1. ***********
  2. * APOKESCR.PRG
  3. * by Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO APOKESCR WITH <screen number> [,'D']
  7. * RETURN: True if successful, otherwise false.
  8. ************
  9. PARAMETERS par1, par2
  10. PRIVATE nbr
  11. nbr = LTRIM(STR(par1))
  12. IF UPPER( par2 ) = "D"
  13.    IF TYPE( "scrn&nbr" ) # "U"
  14.       CALL Trpass WITH scrn&nbr
  15.       CALL Trexe  WITH "DEALLOC"
  16.       RELEASE scrn&nbr
  17.    ELSE
  18.       tr_retl = .F.
  19.    ENDIF
  20.    IF fox
  21.       RETURN (tr_retl)
  22.    ELSE
  23.       RETURN
  24.    ENDIF
  25. ENDIF
  26. IF TYPE( "scrn&nbr" ) = "U"
  27.    par1 = 4000
  28.    CALL Trpass WITH par1
  29.    CALL Trexe  WITH "ALLOCATE"
  30.    IF [] = tr_retc 
  31.       tr_retl = .F.
  32.       IF fox
  33.          RETURN (tr_retl)
  34.       ELSE
  35.          RETURN
  36.       ENDIF
  37.    ELSE
  38.       PUBLIC scrn&nbr
  39.       scrn&nbr = tr_retc
  40.    ENDIF
  41. ENDIF
  42. CALL trpass WITH scrn&nbr
  43. CALL trexe  WITH "SEPARATE"
  44. CALL trpass WITH tr_retc
  45. CALL trpass WITH tr_retn
  46. CALL trexe  WITH "N"
  47. CALL trexe  WITH "POKESCR"
  48. IF fox
  49.    RETURN (tr_retl)
  50. ENDIF
  51. * eof apokescr *
  52.  
  53.