Sharp PC-1500 - Page 205

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
CO MPUTER-DESIGNED FLOWER
PROGRAM NO.
2
T I TL E PS- F- 3
[ Program List I [ Memory Contents I
10: "A": CL EA R :OfM
24 0:GQSUB
"P"
X <3 0), 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:GR APH
!
30:GLCURSOR ( J 00,
260 :G QSU B
··p· ·
8
-J 00>:SQRGN
270: RE TURN
c
35: COLOR 3
3 00: "P"FOR
!=
0TO 2
40:FQR A= 0 TO 60
/STEP 3
D
STEP 30
31 0: LI NE
<XCJ>,YCI
50: FOR 1=110 30
)) - ( X(J-<J ), YC I
E
60: XC !>=SIN
(6 11 1)
+J))-C X Cl +2), Y
F
l COS
< HA> 'l: B0
(J+ 2) >-C X Cl+3)
70: YU >=SIN
< 6 11 I>
,YCH3>l
G
*S IN CHA >*BB
320:NEXT
I
H
80:N[ XT
l
330: RETUR N
90:GQSUB
11 0 11
Vari ab les of FOR
100: NEXT
(I I
statemen1
10 5 :COL OR
2
1 10 : FOR
l= JTO 30
J
12 0:X<l>~SIN
<6 * 1>
STATUS I
%50
589
K
J 30:YCll =-l *5
L
J40: N fXT
1
15 0: GOSUB
•·p··
M
15 5: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 CX- 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) :N EXT
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 -<:oor dinatc
Y (O• "'1
Y-coordinatc
Do not sale this PDF !!!
- 199 -