Sorry your browser is not supported!

Randomize timer():a=rnd(12):b=rnd(12)*5:if b=5 then b=05:print a,":",b
if a=1 then c$="un":if a=2 then c$="deux":if a=3 then c$="trois"
if a=4 then c$="quatre":if a=5 then c$="cinq":if a=6 then c$="six"
if a=7 then c$="sept":if a=8 then c$="huit"
if a=9 then c$="neuf":if a=10 then c$="dix":if a=11 then c$="onze"
if a=12 then c$="douze":if b=5 then d$="cinq":if b=10 then d$="dix"
if b=15 then d$="et quart":if b=20 then d$="vingt":if b=25 then d$="vingt-cinq"
if b=30 then d$="demie":if b=35 then d$="moins vingt-cinq":if b=40 then d$="moins vingt"
if b=45 then d$="moins le quart":if b=50 then d$="moins dix":if b=55 then d$="moins cinq"
if b=60 then d$="":print "il est ",c$," heure ",d$:wait key

Randomize timer():a=rnd(12):b=rnd(12)*5
if b=5 then b=05
print a,":",b
if a=1 then c$="un"
if a=2 then c$="deux"
if a=3 then c$="trois"
if a=4 then c$="quatre"
if a=5 then c$="cinq"
if a=6 then c$="six"
if a=7 then c$="sept"
if a=8 then c$="huit"
if a=9 then c$="neuf"
if a=10 then c$="dix"
if a=11 then c$="onze"
if a=12 then c$="douze"
if b=5 then d$="cinq"
if b=10 then d$="dix"
if b=15 then d$="et quart"
if b=20 then d$="vingt"
if b=25 then d$="vingt-cinq"
if b=30 then d$="demie"
if b=35 then d$="moins vingt-cinq"
if b=40 then d$="moins vingt"
if b=45 then d$="moins le quart"
if b=50 then d$="moins dix"
if b=55 then d$="moins cinq"
if b=60 then d$=""
print "il est ",c$," heure ",d$
wait key

DIM hours$(12)
hours$(1)="un"
hours$(2)="deux"
hours$(3)="trois"
hours$(4)="quatre"
hours$(5)="cinq"
hours$(6)="six"
hours$(7)="sept"
hours$(8)="huit"
hours$(9)="neuf"
hours$(10)="dix"
hours$(11)="onze"
hours$(12)="douze"

DIM mins$(12)
mins$(1)="cinq"
mins$(2)="dix"
mins$(3)="et quart"
mins$(4)="vingt"
mins$(5)="vingt-cinq"
mins$(6)="demie"
mins$(7)="moins vingt-cinq"
mins$(8)="moins vingt"
mins$(9)="moins le quart"
mins$(10)="moins dix"
mins$(11)="moins cinq"
mins$(12)=""

Randomize timer()

DO
   h=rnd(12):m=rnd(12)
   print h,":",m*5
   print "il est ",hours$(h)," heure ",mins$(m)
   wait key
   cls
LOOP

DO
   computertime$=GET TIME$()
   h=VAL(LEFT$(computertime$,2))
   m=VAL(MID$(computertime$,4)+MID$(computertime$,5))
   IF h=01 OR h=13 : a$="un" : ENDIF : IF h=02 OR h=14 : a$="deux" : ENDIF
IF h=03 OR h=15 : a$="trois" : ENDIF : IF h=04 OR h=16 : a$="quatre" : ENDIF : IF h=05 OR h=17 : a$="cinq" : ENDIF : IF h=06 OR h=18 : a$="six" : : ENDIF IF h=07 OR h=19 : a$="sept" : ENDIF : IF h=08 OR h=20 : a$="huit" : ENDIF : IF h=09 OR h=21 : a$="neuf" : ENDIF : IF h=10 OR h=22 : a$="dix" : ENDIF : IF h=11 OR h=23 : a$="onze" : ENDIF : IF h=12 OR h=00 : a$="douze" : ENDIF
IF (m)>2 AND (m)<8 : b$="cinq" : ENDIF : IF (m)>7 AND (m)<13 : b$="dix" : ENDIF : IF (m)>12 AND (m)<18 : b$="et quart" : ENDIF : IF (m)>17 AND (m)<23 : b$="vingt" : ENDIF : IF (m)>22 AND (m)<28 : b$="vingt-cinq" : ENDIF : IF (m)>27 AND (m)<33 : b$="demie" : ENDIF : IF (m)>32 AND (m)<38 : b$="moins vingt-cinq" : ENDIF : IF (m)>37 AND (m)<43 : b$="moins vingt" : ENDIF : IF (m)>42 AND (m)<48 : b$="moins le quart" : ENDIF : IF (m)>47 AND (m)<53 : b$="moins dix" : ENDIF : IF (m)>52 AND (m)<48 : b$="moins cinq" : ENDIF
IF (m)>57 AND ((m)<50 OR (m)<3) THEN b$=""
   CLS
   PRINT
   PRINT
   PRINT space$(5),computertime$
   PRINT
   PRINT space$(5), "il est ",a$," heure ",b$
LOOP

rem pseudo code
If min/10=min/10.0 or min/15=min/15.0
  If min>30
    message$=hour$(hour+1)+min$(60-min)
  Else
    message$=hour$(hour)+min$(min)
  Endif
Endif