Advertisement
Wistaro

Horloge_Wistaro_z80

Sep 16th, 2015
1,396
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. etTime->|LHR
  2. StoreGDB 1
  3. ClrDraw:AxesOff:Degree:DelVar A:DelVar B
  4. ~1.2->Xmin:1.2->Xmax:~1.2->Ymin:1.2->Ymax
  5. Circle(0,0,1.2
  6. Text(55,3,"By":Text(55,78,"Willy":Text(1,1,"HR":Text(1,78,"v1.2":StorePic 2:Repeat K=45
  7.     Text(43,30,|LHR(1):Text(43,40,":":Text(43,43,|LHR(2):Text(43,53,":":Text(43,55,|LHR(3)
  8.     RecallPic 2
  9.     getTime->|LHR
  10.     getKey->K
  11. If A>=361:Then:1->A:End
  12. If |LHR(3)=01:Then:ClrDraw:End
  13.     Line(0,0,sin(|LHR(2)*6),cos(|LHR(2)*6)
  14.    
  15.     Line(0,0,sin(|LHR(2)*6),cos(|LHR(2)*6)
  16.     Line(0,0,sin(|LHR(1)*15),cos(|LHR(1)*15)
  17.     Line(0,0,sin(|LHR(3)*6),cos(|LHR(3)*6)
  18. 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
  19. RecallGDB 1
  20. DelVar GDB1
  21. ClrDraw:ClrHome
Advertisement
RAW Paste Data Copied
Advertisement