Sharp PC-1500 Anwenderhandbuch Seite 84

[ Programmlisting ]
4898: R=L-S: G=G/N:H=
H+G: P=P+R
498:NEXT A
520: U=P/N: T=H/N
5S18:LPRINT "xx x x
x"
520: D=2-YCM-2; 15:0
' JSD: 1F D<BLET
538: XC=T: XL=T-CYC(M
—-2; B) KU): XU=T+
CYCM=2, B>*UD
S58: LPRINT "LCL=";
AL
Jo4¢L PRINT Cs os
xc.
554: LPRINT "UCL=";
xu su
SS6:LF 1:LPRINT "x
* R ¥K"
568: RC=U: RL=D*U: RU
=YCM-2; 13*U
S78: LPRINT ""LCL=";
RL
272° PRINT "ELS is
RC
374:LPRINT "UCL=";
RU
588: END
590: "F":LF 2:COLOR
3:LPRINT "xX KO
NTROLLKARTE"
620: COLOR '2:_LPRINT
"R KONTROLLKAR
TE" .
619: GRAPH
628:COLOR @:ROTATE
7, ;
638: GLCURSOR (18, -
5Q@>:LPRINT "Le
Li :
648: GLCURSOR (32, -
S@:LPRINT "CL
659:GLCURSOR (162,
-5@):LPRINT "U
ee" |
668:GLCURSOR (109,
-82):SORGN —
670:LINE (-75, @)~¢
75; 2), 2,1
68@:LINE (75, 8)-¢7
Js -488)>;, 1, 1
698:LINE ¢75,-48@a)
—¢-?5, -48@), @,
I
7@Q:LINE ¢-75, -480
)-(-75, O),.1, 1
71IB:LINE <@, @)-(g,
-482),Q9; 1
728: F=458/N? DX=YCM
-~2, @)*U/75:
COLOR 3 -
72/8: Y1=-F
273: COLOR 3:T1=xXC
78@:FOR B=1TO N-
738: 1F BsNGOTO 84a
880: X2=X(M, Bd): Y2=¥
L-F
84@8:GOSUB 6ag2
854: X1=X2: yl=¥2
868:NEXT B
878: COLOR 2
920:DA=@: IF X1>RC
LET BA=CRU-RCO)
773:G0TO 9349
948: TL=RC
958:FOR B=1TO N
6812:
6028:
6038:
6240:
'6858:
/PO8R:
2012:
7020:
7030:
P@4Q:
858:
STATUS 1
PROGRAMM-NR.
PS-B-14
>X3=(X1-T1)/D
'XtLINE ¢X3-2
5 Y142)—(X342
a te ee a oo as
cd
yTLe2>
LINE ¢X3-2,¥
1=23=CX342; 7
iC?
CSIZE dé
LPRINT. B
IF B=NRETURN
X4=¢€X2-T1l)7D
X:LINE ¢X3; ¥
13-€X4, Y2)
RETURN -
%3=¢€X1-Tl)7D
Az:LINE ¢X3~2
3 Y1-2)
LINE ¢X3~-2,Y
1-2.)-CX34+2, ¥
Lt 2)
CSIZE 1:
LPRINT B
IF B=NRE TURN
K4=CX2-T1d70D
B:LINE ¢X3, ¥
1)-CK4; Y2)
RETURN
- 39837