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