Horloge_Wistaro_z80

etTime->|LHR
StoreGDB 1
ClrDraw:AxesOff:Degree:DelVar A:DelVar B
~1.2->Xmin:1.2->Xmax:~1.2->Ymin:1.2->Ymax
Circle(0,0,1.2
Text(55,3,"By":Text(55,78,"Willy":Text(1,1,"HR":Text(1,78,"v1.2":StorePic 2:Repeat K=45
    Text(43,30,|LHR(1):Text(43,40,":":Text(43,43,|LHR(2):Text(43,53,":":Text(43,55,|LHR(3)
    RecallPic 2
    getTime->|LHR
    getKey->K
If A>=361:Then:1->A:End
If |LHR(3)=01:Then:ClrDraw:End
    Line(0,0,sin(|LHR(2)*6),cos(|LHR(2)*6)

    Line(0,0,sin(|LHR(2)*6),cos(|LHR(2)*6)
    Line(0,0,sin(|LHR(1)*15),cos(|LHR(1)*15)
    Line(0,0,sin(|LHR(3)*6),cos(|LHR(3)*6)
Text(1,45,12:Text(55,45,6:Text(27,2,9:Text(27,89,3:Line(0,0,sin(|LHR(3)*6),cos(|LHR(3)*6),0:End
RecallGDB 1
DelVar GDB1
ClrDraw:ClrHome