home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / bazy / easybase / pack1.prg / EBOUT / DEMOAPP / PROC28.DEF < prev    next >
Encoding:
Text File  |  1995-08-04  |  1.8 KB  |  102 lines
  1.  
  2.  
  3.                   ╔════════════════════════════════════════╗
  4.                   ║              TIME  SHEETS              ║
  5.                   ║              ════════════              ║
  6.                   ║                                        ║
  7.                   ║     The Computer Clock is Showing      ║
  8.                   ║                                        ║
  9.                   ║                                        ║
  10.                   ║                                        ║
  11.                   ║                                        ║
  12.                   ║         Is this correct?               ║
  13.                   ╚════════════════════════════════════════╝
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. ╠                                                                                
  90. ((40showdate            No N/AText          No Invisible  N/AYes                                    ((40shoedate2           No N/AText          No 2nd Alt.   N/AYes                                 .3 ok                  No N/AChoice        YesField      N/AYes                    LIST0.DAT   jointext(timeampm(system time)," on ",spellday(Dayofweek(system date))," ",datetext(system date))
  91. jointext(stringof((40-lengthtext(showdate))/2,chr$(255)),showdate)
  92. if(ok = blank,blank,ok[run])
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  *,-.-,+*)('&%$#"! ,¢+)('&%$#"! VTimecheck           YYNN≡?