Sharp PC-1500 Anwenderhandbuch Seite 31

ERSTER ORDNUNG
[ Programmlisting }
18: "Q": INPUT "X@=
ee Ns ""V@="5, saa
=""SHs; "T=" 5
:Q=14/.5:B=1-J.
5: USING :@=8@
>2=X+T: S=K
:GOSUB 548
»>K=HKF 2: R=CK-2Q
972: Y=Y+R
: Q=Q4+3*R-K72
:X=X+H/72: GOSUB
588
+ K=HXKF + R=BXCK-Q
2 Y=H¥+R
:@=0+3*R-BxKK
:GOSUB Sag
>K=H*KF:R=AXCK-Q@
»:Y=Y4+R
:Q=04+3KR-AXK
>X=x+H72: GOSUB
588
>K=HKF: R=CK-2XQ
76: Y=Y+R
>Q=04+3*R-K/2
>1F X<Z2LET S=X:
Y1=Y:GOTO 38
>1F X=Z2GOTO 288
EY 2Z=CZ-SIkCY-Y1
"H+ 1
:BEEP 3: LPRINT
ee ae
:LPRINT "Y="3 ¥2
GOTO 218
>BEEP 3:LPRINT
by tere 4
LPRINT ""Y=";¥
>2=24+7T:S=K: Y1L=¥
WAIT :PRINT X;
Y
GOTQ 38
:F=-XxKY
RETURN
STATUS 1
||| <]x|#|<[c]4[0|=[0]=[o/
PROGRAMN-NR.
PS5—A-—7 3
[ Speicherinhalt ]
1+¥ 1/
Xn—-1