>
> list
Dim in%(5)
In %(1)=7    'was in%(1)=7
>
> run
[2] In %(1)=7
Error : Missing Program statement
>

Saved 43 bytes
[2] Cat %(1)=2
Error : Variable name

Option explicit
Option default none
Option milliseconds on
If Instr(MM.DEVICE$,"RP2350") Then
 MODE 3
Else
 MODE 1
EndIf
FRAMEBUFFER create
FRAMEBUFFER write f
Const sw=-5,mw=-9,hw=-11
Const sl=220,ml=190,hl=160
Const xc=MM.HRES\2,yc=MM.VRES\2
Dim t$
Dim integer s,m,h
Do
 show s,sw,sl,0
 show m,mw,ml,0
 show h,hw,hl,0
 t$=Time$
 s=Val(Mid$(t$,7,2))*6+Val(Right$(t$,3))/1000*6
 m=Val(Mid$(t$,4,2))*6
 h=Val(Left$(t$,2))*30
 show h,hw,hl,RGB(yellow)
 show m,mw,ml,RGB(green)
 show s,sw,sl,RGB(red)
 Circle xc,yc,-mw,,,RGB(blue),RGB(blue)
 FRAMEBUFFER copy f,n,b
 Do
 Loop Until Time$<>t$
Loop
'
Sub show(byval angle As integer, byval w As integer,byval l As integer, byval c
ol As integer)
 Local integer x=l*Sin(Rad(angle))+xc
 Local integer y=yc-l*Cos(Rad(angle))
 Line xc,yc,x,y,w,col
End Sub

 '
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 
 dim string a, b
 dim integer idx
 
 '#    1   2       3        4      5   6
 a = "aaa bbb    ccc   'ddd  eee' fff ggg"
 
 for idx = 1 to 10
   print ">"; field$(a, idx, " ", "'"); "<"
 next idx