home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK5 / DOS_01 / 4DUM12.ZIP / 4CLK12.BTM < prev    next >
Text File  |  1990-11-06  |  7KB  |  205 lines
  1. :***************************************************************************
  2. :
  3. :Name: 4Clk12.BTM  (4DOS > 3.01 required)       Timestamp: 11-06-90 01:48pm
  4. :      Copyright (c) 1990, Dick Botbyl          CIS 71571,151
  5. :
  6. :Description: Shows big clock on screen
  7. :             needs 110 bytes free environment
  8. :***************************************************************************
  9.  
  10.   @echo off
  11.   setlocal
  12.   *set _BClr=blu on whi
  13.   *set _chr=▓
  14.   *set _SU=x
  15.   *set _ST=7
  16.   *set _MU=x
  17.   *set _MT=7
  18.   *set _HU=x
  19.   *set _HT=3
  20.   *set sec_col=%@eval[%_ccol+3]
  21.  
  22. :BEGIN
  23.   drawbox 4 %@eval[%_ccol+4] 14 %@eval[%_ccol+78] 2 bla on bla fill bla
  24.   drawbox 3 %@eval[%_ccol+2] 13 %@eval[%_ccol+76] 2 whi on blu fill whi
  25.   scrput  3 %@eval[%_ccol+33] bri yel on blu ` 4DOS Clock `
  26.   scrput  7 %@eval[%_ccol+26] bla on whi %_chr
  27.   scrput  9 %@eval[%_ccol+26] bla on whi %_chr
  28.   scrput  7 %@eval[%_ccol+51] bla on whi %_chr
  29.   scrput  9 %@eval[%_ccol+51] bla on whi %_chr
  30. :TIME_TO                                   Esc to exit
  31.   screen 1 1
  32.   inkey /W0 %%Key_code >nul
  33.      IF "%Key_code" EQ "" GOTO FINI
  34.  
  35. :SECONDS UNITS
  36.   *set digit=%@substr[%_TIME,7,1]
  37.   IFF %digit NE %_SU THEN
  38.     *set _SU=%digit
  39.     *set num_row= 5
  40.     *set num_col= %@eval[%_ccol+64]
  41.     GOSUB WHAT_NUM
  42.     unset digit
  43.   ENDIFF
  44. :SECONDS TENS
  45.   *set digit=%@substr[%_TIME,6,1]
  46.   IFF %digit NE %_ST THEN
  47.     *set _ST=%digit
  48.     *set num_row= 5
  49.     *set num_col= %@eval[%_ccol+53]
  50.     GOSUB WHAT_NUM
  51.     unset digit
  52.   ENDIFF
  53. :MINUTES UNITS
  54.   *set digit=%@substr[%_TIME,4,1]
  55.   IFF %digit NE %_MU THEN
  56.     *set _MU=%digit
  57.     *set num_row= 5
  58.     *set num_col= %@eval[%_ccol+40]
  59.     GOSUB WHAT_NUM
  60.     unset digit
  61.   ENDIFF
  62. :MINUTES TENS
  63.   *set digit=%@substr[%_TIME,3,1]
  64.   IFF %digit NE %_MT THEN
  65.     *set _MT=%digit
  66.     *set num_row= 5
  67.     *set num_col= %@eval[%_ccol+28]
  68.     GOSUB WHAT_NUM
  69.     unset digit
  70.   ENDIFF
  71. :HOURS UNITS
  72.   *set digit=%@substr[%_TIME,1,1]
  73.   IFF %digit NE %_HU THEN
  74.     *set _HU=%digit
  75.     *set num_row= 5
  76.     *set num_col= %@eval[%_ccol+15]
  77.     GOSUB WHAT_NUM
  78.     unset digit
  79.   ENDIFF
  80. :HOURS TENS
  81.   *set digit=%@substr[%_TIME,0,1]
  82.   IFF %digit NE %_HT THEN
  83.     *set _HT=%digit
  84.     *set num_row= 5
  85.     *set num_col= %@eval[%_ccol+4]
  86.     GOSUB WHAT_NUM
  87.     unset digit
  88.   ENDIFF
  89. :MOVING SECONDS
  90.   *set sec_row=12
  91.   scrput  %sec_row %sec_col %_BClr ─
  92.   *set sec_col=%@eval[%sec_col + 1]
  93.      IF %sec_col EQ %@eval[%_ccol+76] *set sec_col=%@eval[%_ccol+3]
  94.   scrput  %sec_row %sec_col red on whi ═
  95.   screen 14 4
  96.  
  97. GOTO TIME_TO
  98.  
  99. :WHAT_NUM
  100.   IFF %digit EQ 1 THEN
  101.     scrput %@eval[%num_row+0] %num_col %_BClr `    ▒▒    `
  102.     scrput %@eval[%num_row+1] %num_col %_BClr `  ▒▒▒▒    `
  103.     scrput %@eval[%num_row+2] %num_col %_BClr `    ▒▒    `
  104.     scrput %@eval[%num_row+3] %num_col %_BClr `    ▒▒    `
  105.     scrput %@eval[%num_row+4] %num_col %_BClr `    ▒▒    `
  106.     scrput %@eval[%num_row+5] %num_col %_BClr `    ▒▒    `
  107.     scrput %@eval[%num_row+6] %num_col %_BClr `  ▒▒▒▒▒▒  `
  108.     RETURN
  109.   ENDIFF
  110.   IFF %digit EQ 2 THEN
  111.     scrput %@eval[%num_row+0] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  112.     scrput %@eval[%num_row+1] %num_col %_BClr `▒▒      ▒▒`
  113.     scrput %@eval[%num_row+2] %num_col %_BClr `       ▒▒ `
  114.     scrput %@eval[%num_row+3] %num_col %_BClr `     ▒▒   `
  115.     scrput %@eval[%num_row+4] %num_col %_BClr `   ▒▒     `
  116.     scrput %@eval[%num_row+5] %num_col %_BClr ` ▒▒       `
  117.     scrput %@eval[%num_row+6] %num_col %_BClr `▒▒▒▒▒▒▒▒▒▒`
  118.     RETURN
  119.   ENDIFF
  120.   IFF %digit EQ 3 THEN
  121.     scrput %@eval[%num_row+0] %num_col %_BClr `▒▒▒▒▒▒▒▒▒▒`
  122.     scrput %@eval[%num_row+1] %num_col %_BClr `      ▒▒▒ `
  123.     scrput %@eval[%num_row+2] %num_col %_BClr `    ▒▒▒   `
  124.     scrput %@eval[%num_row+3] %num_col %_BClr `      ▒▒▒ `
  125.     scrput %@eval[%num_row+4] %num_col %_BClr `        ▒▒`
  126.     scrput %@eval[%num_row+5] %num_col %_BClr `▒▒      ▒▒`
  127.     scrput %@eval[%num_row+6] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  128.     RETURN
  129.   ENDIFF
  130.   IFF %digit EQ 4 THEN
  131.     scrput %@eval[%num_row+0] %num_col %_BClr `    ▒▒▒▒  `
  132.     scrput %@eval[%num_row+1] %num_col %_BClr `   ▒▒ ▒▒  `
  133.     scrput %@eval[%num_row+2] %num_col %_BClr `  ▒▒  ▒▒  `
  134.     scrput %@eval[%num_row+3] %num_col %_BClr ` ▒▒   ▒▒  `
  135.     scrput %@eval[%num_row+4] %num_col %_BClr `▒▒▒▒▒▒▒▒▒▒`
  136.     scrput %@eval[%num_row+5] %num_col %_BClr `      ▒▒  `
  137.     scrput %@eval[%num_row+6] %num_col %_BClr `      ▒▒  `
  138.     RETURN
  139.   ENDIFF
  140.   IFF %digit EQ 5 THEN
  141.     scrput %@eval[%num_row+0] %num_col %_BClr `▒▒▒▒▒▒▒▒▒▒`
  142.     scrput %@eval[%num_row+1] %num_col %_BClr `▒▒        `
  143.     scrput %@eval[%num_row+2] %num_col %_BClr `▒▒▒▒▒▒▒▒▒ `
  144.     scrput %@eval[%num_row+3] %num_col %_BClr `        ▒▒`
  145.     scrput %@eval[%num_row+4] %num_col %_BClr `        ▒▒`
  146.     scrput %@eval[%num_row+5] %num_col %_BClr `▒▒      ▒▒`
  147.     scrput %@eval[%num_row+6] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  148.     RETURN
  149.   ENDIFF
  150.   IFF %digit EQ 6 THEN
  151.     scrput %@eval[%num_row+0] %num_col %_BClr `    ▒▒    `
  152.     scrput %@eval[%num_row+1] %num_col %_BClr `   ▒▒     `
  153.     scrput %@eval[%num_row+2] %num_col %_BClr `  ▒▒      `
  154.     scrput %@eval[%num_row+3] %num_col %_BClr ` ▒▒ ▒▒▒▒▒ `
  155.     scrput %@eval[%num_row+4] %num_col %_BClr `▒▒      ▒▒`
  156.     scrput %@eval[%num_row+5] %num_col %_BClr `▒▒      ▒▒`
  157.     scrput %@eval[%num_row+6] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  158.     RETURN
  159.   ENDIFF
  160.   IFF %digit EQ 7 THEN
  161.     scrput %@eval[%num_row+0] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  162.     scrput %@eval[%num_row+1] %num_col %_BClr `▒▒      ▒▒`
  163.     scrput %@eval[%num_row+2] %num_col %_BClr `        ▒▒`
  164.     scrput %@eval[%num_row+3] %num_col %_BClr `       ▒▒ `
  165.     scrput %@eval[%num_row+4] %num_col %_BClr `      ▒▒  `
  166.     scrput %@eval[%num_row+5] %num_col %_BClr `     ▒▒   `
  167.     scrput %@eval[%num_row+6] %num_col %_BClr `    ▒▒    `
  168.     RETURN
  169.   ENDIFF
  170.   IFF %digit EQ 8 THEN
  171.     scrput %@eval[%num_row+0] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  172.     scrput %@eval[%num_row+1] %num_col %_BClr `▒▒      ▒▒`
  173.     scrput %@eval[%num_row+2] %num_col %_BClr `▒▒      ▒▒`
  174.     scrput %@eval[%num_row+3] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  175.     scrput %@eval[%num_row+4] %num_col %_BClr `▒▒      ▒▒`
  176.     scrput %@eval[%num_row+5] %num_col %_BClr `▒▒      ▒▒`
  177.     scrput %@eval[%num_row+6] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  178.     RETURN
  179.   ENDIFF
  180.   IFF %digit EQ 9 THEN
  181.     scrput %@eval[%num_row+0] %num_col %_BClr ` ▒▒▒▒▒▒▒▒ `
  182.     scrput %@eval[%num_row+1] %num_col %_BClr `▒▒      ▒▒`
  183.     scrput %@eval[%num_row+2] %num_col %_BClr `▒▒      ▒▒`
  184.     scrput %@eval[%num_row+3] %num_col %_BClr ` ▒▒▒▒▒ ▒▒ `
  185.     scrput %@eval[%num_row+4] %num_col %_BClr `      ▒▒  `
  186.     scrput %@eval[%num_row+5] %num_col %_BClr `     ▒▒   `
  187.     scrput %@eval[%num_row+6] %num_col %_BClr `    ▒▒    `
  188.     RETURN
  189.   ENDIFF
  190.   IFF %digit EQ 0 THEN
  191.     scrput %@eval[%num_row+0] %num_col %_BClr `  ▒▒▒▒▒▒  `
  192.     scrput %@eval[%num_row+1] %num_col %_BClr ` ▒▒    ▒▒ `
  193.     scrput %@eval[%num_row+2] %num_col %_BClr `▒▒      ▒▒`
  194.     scrput %@eval[%num_row+3] %num_col %_BClr `▒▒      ▒▒`
  195.     scrput %@eval[%num_row+4] %num_col %_BClr `▒▒      ▒▒`
  196.     scrput %@eval[%num_row+5] %num_col %_BClr ` ▒▒    ▒▒ `
  197.     scrput %@eval[%num_row+6] %num_col %_BClr `  ▒▒▒▒▒▒  `
  198.     RETURN
  199.   ENDIFF
  200.   RETURN
  201.  
  202. :FINI
  203.   :unset _BClr _chr _SU _ST _MU _MT _HU _HT
  204.   :unset sec_col sec_row num_col num_row digit Key_Code
  205.   quit