home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / m / mkcron.zip / CRN_SSCR.PRG < prev    next >
Text File  |  1992-09-01  |  1KB  |  54 lines
  1. #pragma STACK-
  2. #pragma RANGE-
  3. #pragma W_FUNC_PROC-
  4. #pragma W_MAC_REDEF-
  5.  
  6. #include MKSCREEN.HDR
  7. #include MKTIME.HDR
  8. #include SCREEN.HDR
  9. #include MKKBD.HDR
  10. #include IO.HDR
  11.  
  12. VARDEF EXTERN
  13.    LOGICAL use_scrn_save
  14. ENDDEF
  15.  
  16. VARDEF PRIVATE
  17.    LOGICAL on_off_scrn = .T.
  18. ENDDEF
  19.  
  20.  ******************************************************************************
  21.  *                                          *
  22.  *  Programm        : MKCRON V1.0                 (C) 1992 Kalkhoff   *
  23.  *  Modul           : CRONSCRNSAVE                          *
  24.  *  Autor           : M.T. Kalkhoff                          *
  25.  *  letzte Änderung : 07.09.1992                          *
  26.  *                                          *
  27.  *  Aufgabe         : Dieses Modul handelt den Screen Saver.                  *
  28.  *                                          *
  29.  ******************************************************************************
  30. PROCEDURE CronScrnSave
  31.  
  32.    IF on_off_scrn
  33.  
  34.       Save_Screen()
  35.       HideClock( 0, .F. )
  36.       HideClock( 1, .F. )
  37.       HideClock( 2, .F. )
  38.       ClearSlow( 30, 00, 00, 24, 79, ' ', 15 )
  39.  
  40.    ELSE
  41.  
  42.       Restore_Area()
  43.       ShowClock( 0 )
  44.       ShowClock( 2 )
  45.  
  46.       IF use_scrn_save
  47.          ShowClock( 1 )
  48.       ENDIF
  49.  
  50.    ENDIF
  51.  
  52.    on_off_scrn = .NOT. on_off_scrn
  53.  
  54. ENDPRO