home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / screxist.amos / screxist.amosSourceCode
AMOS Source Code  |  1990-11-08  |  631b  |  26 lines
  1. '**AMOS V1.2***********************************************************
  2. '*               SCREXIST     By    Gary Fearn  (20/9/90)             *
  3. '**********************************************************************  
  4. '
  5. For A=0 To 7
  6.    _SCREENEXIST[A]
  7.    If Param=1
  8.       Print "Screen";A;" Exists"
  9.    Else 
  10.       Print "Screen";A;" Does not exist"
  11.    End If 
  12. Next A
  13. While Mouse Key=0 : Exit If Inkey$<>"" : Multi Wait : Wend 
  14. Edit 
  15. '
  16. ' Returns 1 if screen does exist else returns 0  
  17. Procedure _SCREENEXIST[S]
  18.    On Error Goto SERROR
  19.    T=Screen Height(S)
  20.    FLG=1 : Goto FIN
  21. SERROR:
  22.    Resume HIT
  23. HIT:
  24.    FLG=0
  25. FIN:
  26. End Proc[FLG]