Sharp PC-1500 Handbuch Seite 207
Vorschau ausblenden
Andere Handbücher für PC-1500:
- Bedienungsanleitung (166 Seiten) ,
- Anwenderhandbuch (222 Seiten)
Werbung
All
and more about Sharp PC-1500
at
http://www.PC-1500.info
PROGRAMM NAME:
COMPUTERZEICHNU
NG
PROGRAMM·NR.
2
EIN
ER
BLUME
PS-
F-3
( Programmlisting
1
[ Speicherinhalt ]
10:
„ A„:C
L
EAR
:OIM
310
.
L INE
<X<!>.Y<!
Variablen d
er
X<30),
Y<30l:
><<
))-(X( l"l}, Y<J
A
FOR·Anweisung
0) "10:
"<0>
=
0
'1»-<X<1„2), Y
20:CRAPH
(J
··7>>-<X<l+3>
B
30:CLCURSOR
<
100,
, Y<l„3>>
c
-
!00):
50RGN
320:"1E.Xr
1
35:COLOR
3
)30:~E
r
URN
D
40:
"OR
A"
0 ro
60
E
STEP 30
50:
"OR J
"
1 TD 30
F
60:
><<
1
):.SJN
( 6>: J )
1'COS
<
l
+Al
1'80
STA
TUS
l
G
70:
V(
J
>=
S!N
<ötJ
)
589
H
1'SJN <l+A>1'80
B0:"1EXT
l
1
Variablen der
'30
:
GOSUB
"
()''
FOR-Anwcisung
l
00
:
"1EXT
A
J05
:COLOR
2
J
ll0:•0R
l
~
1 TO
30
K
120:><(
1 l
"
S
JN ( 6:1<
l)
1'!:>0
L
130:
y
(
j
)
"' -
J
':1<5
M
140:
"IEXT
1
l50
:
GOSUB
•·p•·
N
JSS:><~X<30>:Y„Y<30
0
)
J60:L
JN!;;
<
X"40,
Y
)
-
p
<.X-·40,
Y··
l 0), 0,
Q
0,8
J70:LJ NE <
X··3S,
Y-
!
R
0)-(X-25, Y-60)
·<X+25,
Y-
60)-(
s
X•
35,
Y
10)
T
1a0:ri::
xr
:Lr
S:tNO
200:
·
Q"GOSUB
''
P''
u
2J0:"0R
J
~
oro
j~
:>(
V
(J ) :
X<]):•<!
X T
1
w
220:GOSUB
r
Aust1111$C;h
von
230.
roR 1 ::0
TO
30:"
X
(J
l
=
·
Y<
Jl
.
"IE.XT
X(30)
j
Austausch
von
240:GOSUB
•
p
•
y
Y
(30)
2::i0:
roR
1
~0ro
3
0:><
(J)
-
X<
1).
"!EXT
z
1
X
K>-Dj
260:GOSUB
•.
p
•·
X-Koordinate
270:~ETURN
YK>-:Jllj
Y·Koordinate
300:
'
P„FOR
1·-
0 r
o
2
7S TEP
3
Do not sale this PDF !!!
-
199
-
Werbung
