home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tkmengen.zip / CALCTIME.CLA < prev    next >
Text File  |  1990-03-23  |  1KB  |  32 lines
  1.          MEMBER('    ')  !enter name of your program here
  2. DISP_CLOCK   PROCEDURE
  3.   CODE
  4.     NORMAL                     ! Set to normal colors
  5.     SHOW(25,1,TODAY(),@D1)             ! Display date
  6.     SHOW(25,10,CLOCK(),@T1)             ! Display time
  7.  
  8.  !Following omitted because no entry fields are in this demo
  9.  !
  10.  !  IF GETINS()                    ! If insert state ON
  11.  !   SHOW(25,67,'Ins',@s3)             !  Display INS as on
  12.  !  ELSE                     ! ELSE
  13.  !   SHOW(25,67,'   ',@s3)             !  Clear INS as off
  14.  !  .                         ! End
  15.  
  16.     PEEK(0417h,I#)                 ! Get shift status byte into I#
  17.     IF BAND(I#,01000000b)             ! If Caps lock is locked
  18.      SHOW(25,70,'Cap',@s3)             !  Display CAP as on
  19.     ELSE                     ! ELSE
  20.      SHOW(25,70,'   ',@s3)             !  Clear CAP as off
  21.     .                         ! End
  22.     PEEK(0417h,I#)                 ! Get shift status byte into I#
  23.     IF BAND(I#,00100000b)             ! If Num lock is locked
  24.      SHOW(25,73,'Num',@s3)             !  Display NUM as on
  25.     ELSE                     ! ELSE
  26.      SHOW(25,73,'   ',@s3)             !  Clear NUM as off
  27.     .                         ! .
  28.  
  29.     SHOW(25,77,FORMAT(MEMORY()/1000,@n3) & 'k')     ! Display memory
  30.     SETHUE()                     ! Disable colors
  31.     RETURN                     ! Return to caller
  32.