Sharp PC-1500 Anwenderhandbuch Seite 205

PROGRAMMNAME:
[ Programmlisting |
18
20:
38:
35:
42:
52:
6B:
2B:
8Q:
90:
10a:
1@5:
118:
120:
138:
1408:
158:
155:
160:
178:
18@:
208:
218:
226:
238:
248:
250:
268:
270:
300:
:"aA"; CLEAR : DIM
%(€3B),
YC3Bd: X¢
B>=B: Y(B)=8
GRAPH
GLCURSOR (188,
-~ 108): SORGN
COLOR 3
FOR A=8TO 62
STEP 38
FOR 1=]TO 36
KCI)=SIN
(8X1)
KCOS ¢1+A)*88
YCID=SIN C6*I>
KSIN C1+A)*88
NEXT J
GOSUB "Q"
NEXT A
COLOR 2
FOR I=1TO 38
XC] =SIN 66XI>
«58
¥¢]}=-1*5
NEXT !
GOSUB "P"
LINE -CRe8Sy1=4
B)-CX-25,
Y- 68>
-(X+25,
Y-68)-¢
Mi Soy > 1 OD
TEXT 3 LF SEND
"a"GOSUB "P"
FOR J]=OTO 34:x
C1)=-K CDE NEXT
]
GOSUB "Po
FOR 1=8T0 38:
CJ] =-¥CI]2 2 NEXT
]
GOSUB "P*
FOR ]=@TO 30:%
C1)=-xXC1)> NEXT
]
GOSUB "P"
RETURN
"PYFOR 1=87T0 2
PSIER <3
EINER BLUME
dd- CKO] 419, CI
1 9-CXC14+205,Y
(1+2)9-(XC1+3>)
ei CLS 9)
32@:NEXT J
338: RETURN
STATUS ]
389
age (ee
PROGRAMN-NR. 9
P5S—F-—3
[ Speicherinhalt ]
Variablen der
FOR-Anweisung
Variablen der
FOR-Anweisung
Austausch von
X (30)
Austausch von
Y (30)
X-Koordinate
Y(0~30)) Y-Koordinate