Sharp PC-1500 Anwenderhandbuch Seite 88

[ Programmlisting |
DEGREE 418:RETURN
20: INPUT "Z1 R="; 45Q:USX*COS Y:U=xx
x SIN Y |B
3B: INPUT "Z1 X="; 468: RETURN
s 585: "B": CLEAR |
48:GOSUB 422
S1@:DEGREE +INPUT
|p | R,
5@:GOSUB 352
"2A RS" 3X
) Za
)ab
68:B=U:C=V-.0 °°. 528: INPUT "2A x="3 Xf
28: INPUT "22 R="; Y 2 e e
¥ SSB: INPLUT "2B R=";
x eal
9@:GQSUB 4292
ela
M
N
ae
' > :
198:GQSUB 350 _ S60: INPUT "ZB x="5 | 1
118:D=UrEsv Y a
128: INPUT "23 R="; , 57@:GOSUB 358 OY Za )z3 ee
a S8a:D=UrE=U Xa
- 13@1 INPUT "Z3 X="; 598: INPUT "ZC R="; Es
Y x |
140:GOSUB 429 6@Q@: INPUT "ZC X="; a
158:GQSUB 358 Y :
168: F=U: GaU 612:GOSUB 352
170:.4=S: YaT » 620: F=sU: Gay Kor
180:GQSUB 35a 638: X=0: Ys0
19@3H=U: ISU 64Q:H=BkD: 1=C+E in
208: X=B¥DZH: Y=C+E~ 658: X=xX+H*COS I Ew
I:GOSUB 452 660: YaY+HXKSIN 1
218: J=U:K5U 678:H=B¥F: 1=C+6 LR |
220: X=DXKF/H: Y=E+6- 682: X=X+HKCOS 1]
J 698: Y=Y+H*SIN I
238:GQSUB 45a 718: H=D4F
240:LSU: NSU 7280: [=E+G
250: X=B¥F/H; Y=C+G- 730: X=X+HKCOS TD. s
I 2482 Y=Y+HXSIN I
268:GQSUB 452 738: GOSUB 358 hs
278:N=U: O=U 76@:H=U: 1sU
282: USING :WAIT : 278: X=H/B? Y=I-C
PRINT "ZA": 788: J=xXx¥COS YiK=Kx
PRINT J,K SIN ¥
| 298:PRINT "2B": | 798: X=H/D1Y=sI-E
"PRINT LM 8Y@:LaxXxCOS Y:M=xk = L
3Q8:PRINT "2C ": SIN Y :
PRINT N,O 818: XSH/F: Y=I-G
318: END — 828:N=X¥COS Y:0=X* |
358; USS OXEK#YKYD SIN Y ——
368: USACS ¢X/UD 869:PRINT "21 ":
| 378: 1F @>YLET U=-U PRINT L,M
388: RETURN ys 878:PRINT "22 "3°
PRINT N,Q
888:PRINT "23 ":
PRINT J, K
898: END
STATUS |