Define at_time()=
Prgm
:Local hr,mi,se,hc,mc,sc
:Local bienne,tim,dst,hl,i
:0→hr:0→mi:0→se:0→hc:0→mc:0→sc
:−42→bienne:0→tim:0→dst:0→hl
:setMode(5,2)
:Lbl deb
:Disp ""
:Disp "[enter] et donner le lieu de départ           "
:Disp "0 pour l'heure Greenwich"
:Disp "1 pour l'heure d'hiver"
:Disp "2 pour l'heure d'été"
:For i,1,3:Disp "":EndFor
:getKey(1)
:Request "DST =",dst
:For i,1,4:Disp "":EndFor
:If dst<0 or dst>2:Goto deb
:dst-1→dst
:©----------------------Entrer hms
:Request "Heure........= ",hr
:Request "Minutes.....= ",mi
:Request "Secondes...=",se
:Disp ""
:©----------------------correction dst
:hr-dst→hl
:If hl<0:hl+24→hl
:©----------------------calc
:hl*41.6666666667→hc
:mi*0.694444444444→mc
:se*0.011574074074→sc
:hc+mc+sc→tim
:int(tim)→tim
:©----------------------Sortie heure
:For i,1,2:Disp "":EndFor
:Disp hr,"h ",mi,"min ",se,"sec"
:Disp ""
:Disp "@ ",tim
:For i,1,3:Disp "":EndFor
:getKey(1)
:EndPrgm