Sharp PC-1500 Applications Manual page 205

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
COMPUTER-D ESIGNED FLOWER
PROGRAM NO.
2
T I TL E
PS-F- 3
[ Program List
I
[ Memory Contents
I
10: "A": CLEAR :OfM
24 0:GQSUB
"P"
X<30 ), Y<30):X(
250:FOR J=0 TO 30 : X
A
Variables
of
FOR
0)=0: Y(0)v0
<J>= -X ( J ) : N[XT
statement
20:GRAPH
!
30:GLCURSOR ( J 00,
260:GQSUB
··p··
8
-J 00>:SQRGN
270: RE TURN
c
35 : COLOR
3
300: "P"FOR !
=0TO
2
40:FQR A=0 TO 60
/STEP
3
D
STEP 30
310: LI NE
<XCJ>,YCI
50: FOR 1=110 30
))- ( X(J-<J ), YC I
E
60: XC !> =SIN
(611 1)
+J))-C XCl +2), Y
F
l COS <
HA> 'l: B0
(J+ 2) >-C XCl+3)
70: YU >=SIN <
6 11
I>
,YCH3>l
G
*S IN CH A>*BB
320:NEXT I
H
80:N[ XT
l
330: RETURN
90:GQSUB 11 0 11
Variables
of
FOR
100: NEXT
(I
I
statemen1
105 :COLOR
2
110: FOR
l =JTO 30
J
12 0:X<l>~SIN <6* 1>
STATUS
I
%50
589
K
J30:YCll =-l *5
L
J40: N fXT
1
150: GOSUB •·p··
M
155:X=XC30>: Y=YC30
)
N
J 50: L l NE CX+40, Y>
0
(X - 40, Y- I 0), 0,
0, B
p
J 70: L
J
NE C X- 35,Y-J
Q
0> -C X-25, Y- 60>
- (X+25, Y- 60>-C
R
X+35, Y- l0
>
s
l80: TEXT :LF S:
( NO
200 : "Q"GOSUB
*'P"
T
210:FOR
l=OTO 30 :X
u
(J) =-XCJ ) :NEXT
I
v
220:GOSU8 iapt•
230 : FOR
l =0TO 30:Y
w
(J >=-YCl>:NEXT
x
replacement
of
X(30)
!
y replacement
of
Y(30)
z
....
""
X-<:oordinatc
Y (O•
"'1
Y-coordinatc
Do not sale this PDF !!!
- 199 -