mode 12:off
repeat
date$ = left$( time$, 15)
clock$ = right$( time$, 8)
*font Courier New, 60
print tab(2, 3)date$
*font Courier New, 94
print tab(2,3)clock$
wait 50
until false
 |
| This code produces a very simple, but rather effect clock app. |
A simple Clock App in BBC BASIC
rem Simple Clock
mode 12:off
repeat
date$ = left$( time$, 15)
clock$ = right$( time$, 8)
*font Courier New, 60
print tab(2, 3)date$
*font Courier New, 94
print tab(2,3)clock$
wait 50
until false
mode 12:off
repeat
date$ = left$( time$, 15)
clock$ = right$( time$, 8)
*font Courier New, 60
print tab(2, 3)date$
*font Courier New, 94
print tab(2,3)clock$
wait 50
until false