Thanks to the following code :
Code: Select all
BITMAP ENABLE(320,200,4)
CLS
DECLARE SYSTEM PROC scnkey AT $BB06 ON CPC
DECLARE SYSTEM PROC myTime AT $BD0D ON CPC
DIM de AS WORD
DIM hl AS WORD
PRINT "Attendez un peu, et appuyez sur une touche "
CALL scnkey
ON CPUZ80 BEGIN ASM
CALL $BD0D
LD (_de),DE
LD (_hl),HL
END ASM
DIM time AS FLOAT
time = (de*256.0 + hl)/300.0
PRINT time ; "secondes"