Publicidad
250 IF s=60 THEN LET s=0
:
POKE
23672
.0:
POKE 23673 , 0 : LET
om=m: LET m=m+1
:
GO TO 290
260
PLOT xc.yc
:
DRAW rs*s(os+l
)
.rs*c(os+l
)
270 GO SUB 440
280 GO TO 220
290
IF m=60 THEN LET m=0: LET o
h=h
:
LET
h=h+1:
GO TO
330
300 PLOT
xC, yc :
DRAW
r
m *s (om +1)
, r
msc
(om+1)
310 GO SUB 470
320
GO TO 260
330
IF h=12 THEN LET h=0
340 PLOT xc.yc: DRAW rh*s
(oh*5+
1) ,
rh*c
(oh*5+1)
350
GO
SUB 500
360 GO TO
300
370 PRINT AT 14
,0
380 FOR 1=6 TO 360 STEP 6
390 PRINT ".";
400
LET
s(1/6)
=
SIN
«
1-6 ) . PI
1
18CO)
410 LET
c
( 1/ 6) =
COS
«
1-6)* PI
1
180)
420
NEXT 1
430
RETURN
440
PLOT xc,yc: DRAW rs*s(s+l),
r
s*c(s+l)
450
LET s$= STR$
(s)
:
PRINT OVE
R 0¡ AT 18.
27 ;
INK 4
¡" :"¡
1
NK
6
¡z $( TO 2- LEN (s$» ;s$
460 RETURN
470
PLOT
xC,
yc: DRAW r
m* s
Cm+l)
,
rmsc
(m+1
)
480
LET m$= STR$ (m) : PRINT OVE
R 0 ¡ AT 18,24 ¡
1NK 2
; " : " ; 1
NK 5¡z$( TO
2-
LEN (m $ » ; m $
490 RETURN
500
PLOT
xC,yc: DR
A W rh*
s (h* 5+ 1
) ,
r hs
c
(h*5 +1)
Sección
33. Programas
de ejemplo
327
Publicidad
