Option explicit
option default NONE
dim integer i,x,a
cls
TEXT 2,16,"geoffg.net",lm,8,1,RGB(red)
DO
FOR x = 64 to -60 STEP -1
TEXT x,6,"Micromite+",lm,8,1,RGB(green)
a=4-x
TEXT a,26,"Micromite+",lm,8,1,RGB(magenta)
box a-64,22,64,8,0,0,rgb(black)
pause 50
NEXT x
LOOP