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_SCRN.PRG < prev    next >
Text File  |  1992-09-01  |  4KB  |  103 lines
  1. #pragma W_MAC_REDEF-
  2. #pragma W_FUNC_PROC-
  3. #pragma W_INDIRECT-
  4.  
  5. #include MKSTRING.HDR
  6. #include MKSCREEN.HDR
  7. #include SYSTEM.HDR
  8. #include SCREEN.HDR
  9. #include STRING.HDR
  10. #include DATE.HDR
  11.  
  12. #define CRON_HEAD "                              MK CRON Version 1.0                               "
  13. #define CRON_FOOT "                     Unternehmensberatung Kalkhoff (C) 1992                     "
  14. #define NOTHING   "unbenutzt"
  15. #define NODEF     "nicht def."
  16.  
  17. VARDEF EXTERN
  18.    LOGICAL     use_scrn_save
  19.    LOGICAL     use_log_file
  20.    CHAR( 12 )  crn_file
  21.    CHAR( 08 )  end_time
  22.    CHAR( 128 ) log_file
  23.    BYTE        palette[5]
  24. ENDDEF
  25.  
  26.  ******************************************************************************
  27.  *                                          *
  28.  *  Programm        : MKCRON V1.0               (C) 1992 Kalkhoff   *
  29.  *  Modul           : CRONSCRN                              *
  30.  *  Autor           : M.T. Kalkhoff                          *
  31.  *  letzte Änderung : 07.09.1992                          *
  32.  *                                          *
  33.  *  Aufgabe         : Die Routine CRONSCRN baut den Standardbildschirm des    *
  34.  *              Programms auf.                          *
  35.  *                                          *
  36.  ******************************************************************************    
  37. PROCEDURE CronScrn
  38.  
  39.    Fill( 01, 00, 23, 79, "▒▒▒▒▒▒▒▒" , "▒", palette[0], palette[0], 0 )
  40.    Fill( 03, 02, 21, 45, &DOUBLE_BOX, " ", palette[0], palette[0], 6 )
  41.    Fill( 03, 48, 14, 77, &DOUBLE_BOX, " ", palette[0], palette[0], 6 )
  42.    Fill( 16, 48, 21, 77, &DOUBLE_BOX, " ", palette[0], palette[0], 6 )
  43.    HBorderLine( 18, 02, 44, "╟─║", palette[0] )
  44.    FastWrite( 00, 00, &CRON_HEAD, palette[1] )
  45.    FastWrite( 24, 00, &CRON_FOOT, palette[1] )
  46.    SayAt( 03, 17, "[ Task Liste ]", palette[0] )
  47.    SayAt( 03, 58, "[ Info ]", palette[0] )
  48.    SayAt( 05, 51, "Aktuelle Zeit:", palette[2] )
  49.    SayAt( 06, 51, "Programmende :", palette[2] )
  50.    SayAt( 07, 51, "akt. Datum   :", palette[2] )
  51.    SayAt( 09, 51, "Steuerdatei  :", palette[2] )
  52.    SayAt( 10, 51, "Logbuch ist  :", palette[2] )
  53.    SayAt( 11, 51, "Screensave in:", palette[2] )
  54.    SayAt( 11, 72, "sec", palette[2] )
  55.    SayAt( 18, 19, "[ Status ]", palette[0] )
  56.    SayAt( 17, 54, "Entwicklungssystem", palette[2] )
  57.    SayAt( 19, 52, "FCO 2.4 / MK Adv. 2.4", palette[0] )
  58.  
  59. ENDPRO
  60.  
  61.  ******************************************************************************
  62.  *                                          *
  63.  *  Programm        : MKCRON V1.0                 (C) 1992 Kalkhoff   *
  64.  *  Modul        : CRONUSERSCRN                          *
  65.  *  Autor           : M.T. Kalkhoff                          *
  66.  *  letzte Änderung : 07.09.1992                          *
  67.  *                                          *
  68.  *  Aufgabe         : Im Gegensatz zur Prozedur CRONSCRN erfolgt in der nun   *
  69.  *              folgenden Routine die Darstellung aller Texte, welche   *
  70.  *              in irgendeiner Art variabel sind und somit auch durch   *
  71.  *              Schalter in der Kommandozeile abhängig sind.            *
  72.  *                                              *
  73.  ******************************************************************************
  74. PROCEDURE CronUserScrn
  75.  
  76.    IF XEmpty( &TYPE_CHAR, end_time )
  77.       SayAt( 06, 66, &NODEF, palette[0] )
  78.    ELSE
  79.       SayAt( 06, 66, end_time, palette[0] )
  80.    ENDIF
  81.  
  82.    SayAt( 07, 66, Dtoc( Today() ), palette[0] )
  83.    SayAt( 09, 66, BeforeAtNum( ".", crn_file, 1, 0 ), palette[0] )
  84.  
  85.    IF use_log_file
  86.       IF At( "\", log_file ) > 0
  87.          SayAt( 10, 66, SubStr( log_file, Rat( "\", log_file ) + 1, 12 ), palette[0] )
  88.       ELSE
  89.          SayAt( 10, 66, SubStr( log_file, At( ":", log_file ) + 1, 12 ), palette[0] )
  90.       ENDIF
  91.    ELSE
  92.       SayAt( 10, 66, &NOTHING, palette[0] )
  93.    ENDIF
  94.  
  95.    IF use_scrn_save
  96.       SayAt( 11, 72, "sec", palette[2] )
  97.    ELSE
  98.       SayAt( 11, 66, &NOTHING, palette[0] )
  99.    ENDIF
  100.  
  101.    SetRC( 0, 0 )
  102.  
  103. ENDPRO