Here's an analogue clock in 20 colon-less lines:
Do
CLS
time$ = Get time$()
print time$
seconds# = VAL(RIGHT$(time$,2))*6.0
minutes# = VAL(MID$(time$,4)+MID$(time$,5))*6.0+seconds#/60.0
hours# = VAL(LEFT$(time$,2))*30.0+minutes#/12.0
line screen width()/2.0,screen height()/2.0,screen width()/2.0+200.0*SIN(minutes#),screen height()/2.0-200.0*COS(minutes#)
line screen width()/2.0,screen height()/2.0,screen width()/2.0+100.0*SIN(hours#),screen height()/2.0-100.0*COS(hours#)
ink RGB(255,0,0),RGB(0,0,0)
line screen width()/2.0,screen height()/2.0,screen width()/2.0+200.0*SIN(seconds#),screen height()/2.0-200.0*COS(seconds#)
ink RGB(255,255,255),RGB(0,0,0)
For x = 1 to 60
DOT screen width()/2.0+220.0*SIN(x*6.0),screen height()/2.0+220.0*COS(x*6.0)
Next x
For x = 1 to 12
circle screen width()/2.0+220.0*SIN(x*30.0),screen height()/2.0-220.0*COS(x*30.0),1
center text screen width()/2.0+230.0*SIN(x*30.0),screen height()/2.0-230.0*COS(x*30.0)-text height(STR$(x))/2.0,STR$(x)
Next x
Loop
The optomist's right, The pessimist's right.