home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / NOTAVAL.PRG < prev    next >
Text File  |  1988-11-12  |  1KB  |  33 lines
  1. NOTAVAL      PROCEDURE
  2. !---------------------------------------------------------------------!
  3. !  THIS IS A DUMMY PROCEDURE USED TO DISPLAY A WINDOW WITH A MESSAGE  !
  4. !  OF NOT AVAILABLE. USED DURING PROGRAM DEVELOPMENT.              !
  5. !                                      !
  6. !  TO CALL THIS PROCEDURE.                          !
  7. !                                      !
  8. !     NOTAVAL                                  !
  9. !---------------------------------------------------------------------!
  10. !     COMPILER: CLARION V2.0                          !
  11. !    SYSTEM: N/A                              !
  12. !    PROCEDURE: NOTAVAL                              !
  13. !  ENVIRONMENT: CALLED HAS A PROCEDURE                      !
  14. !   REFERENCES:                                  !
  15. !---------------------------------------------------------------------!
  16. !  HISTORY:                                  !
  17. !    WRITTEN   10/20/88 BY DOMINICK G. GALLUCCI                  !
  18. !    MODIFIED  00/00/00                              !
  19. !---------------------------------------------------------------------!
  20.  
  21. NOTAVAL         SCREEN      WINDOW(3,53),AT(12,15),HUE(7,0,0)
  22.            ROW(1,1)      STRING('█▀{51}█'),ENH
  23.            ROW(2,1)      STRING('█<0{51}>█'),ENH
  24.            ROW(3,1)      STRING('█▄{51}█'),ENH
  25.            ROW(2,3)      STRING('Function Not Available At This Time Press '  |
  26.                 & 'Any Key')
  27.          .
  28.  
  29.  CODE
  30.    OPEN(NOTAVAL)          !SEND MESSAGE
  31.    ASK                  !WAIT FOR A KEY
  32.    CLOSE(NOTAVAL)          !CLOSE IT
  33.