Werbung
» PROGRAMMBEISPIELE
PROGRAMMLISTING
|.
10:"A":J=@:
GOTO
25.
'20: Bt; Js 1
125: 'WAIT
@:
PRINT
"¥@=
"
4
»"YO=
t » "R=
u
29: DEGREE
ay
add
3@:CURSOR
4:
INPUT
A:
;
CURSGR
16:
INPUT
B:
' - CURSOR 27: INPUT c
-35:CLS
: PRINT
"X12
wou
Yi=
"
:4@:CURSOR 4:
INPUT D:
CURSOR
16:
INPUT
E
5@:IF
J<>®
CURSOR
24:
"PRINT
"A=-":
CURSOR
27:
INPUT
H:H=
DEG
H
: GOTO
9a
55:CURSOR
24:
PRINT
"x2
-
= ; CURSOR 36:
:
PRINT
"Y¥2=
*
-6@:CURSOR 28: INPUT F:
CURSOR
40:
INPUT
G:
ke
aa
GOSUB
5
0a
8@:H=xX
eS
:
a
ae
GOSUB 5
Od
100:K=W*:
SIN. (X-H)
110:L=
ACS
(K/C)
120:M=H-90-L:N=H-90+L
130:GOSUB
6@@
135:CLS
: WAIT
14@:PRINT USING "sxezzx,
somal
sUP st
O5P
15@:M=N:
GOSUB
600
160:CURSOR
24:
PRINT
"Q:
:OsP
170: END
500:W=
(X#X+Y#y)
51@:X=
ACS
(X/W):
IF y<@
LET
X=360-X
520:
RETURN
600:0=2A+C*
COS M:P=B+c#
SIN
M:
RETURN
619: END
'.). "SPEICHERINHALT
., 1"
"i208
Werbung
