Publicidad
Reloj
Este
programa
convierte
el ordenador en un reloj analógico
(y
digital).
Para ponerlo en marcha dé la orden
RUN.
Luego introduzca la
hora
(de I a 12)
y
los mi
nutos (de O a 59),
10 DI!( s(60): DIM c(60)
20 BDRDER 0: PAPER 0
:
BRIGHT 1
: INK 7
:
CLS
30 PRINT AT
'l0 ,l;"Espere
un po
ca mientras calculo"
40 PRINT AT 11,l
;"unos
senos y
c
os e nos "
50 GO
SUB
370
60 LET 2$="00"
70 CLS
80 INPUT "Hora
C0-12 )
:
"
;h
90 INPUT "Minutos C0-59
):
".
,
m
100 LET s=0: POKE 2367
2,0 :
POKE
23673,0
110 IF h=12 THEN LET h=0
120
LET xc=112: LET
yc=90 :
LET
r=70
:
LET rh=r
/ 2 :
LET rm=rf
3
/4 :
LET rs=rf5/6
130 CIRCLE xC,yc,r
140 INK 1
150 FOR 1=0 TO 359 STEP 30
160 PLOT
C
r +1 H s C i/ 6+1)+ xc ,
C
r +l
H cCi/6+U+yc
170 lfEXT 1
180 INK 4
190
OVER 1: GO SUB 500
200 GO
SUB 470
210
GO
SUB 440
220
LET
tm= INT CC PEEK 23672+2
56'
PEEK
23673 )/50 )
230 IF
s
+1=t m THEN LET
os=s :
LE
T 5=5+1: GD TO 250
240
G
O TO 220
Capítulo 8. Guía de programación en +3 BASrC
326
Publicidad
