Sharp PC-1403 Operation Manual page 236

340:L= INT Cl•1000+.5)/l
000:RETURN
350:L= INT Cl•1000000)/1
000000:RETURN
360:PAUSE "Point
•;sTR$
(I+t);BS(0):RETURN
370:LPRINT "Point •;sTR$
(I+l);B$(0):RETURN
962 Bytes
RETURN
270:S=L:L=K:GOSUB 350
2s0:K=L:LPRINT •;sTR$
0+"-"+STR$ p+•-•+
STR$
GI
290:LPRINT •A=•; USING
•ttttttttttttttttttttUU.tttttt";A
300:LPRINT •B= "iB:
LPRINT "C= •;
c:
LPRIMT '· ' H= •; J:
LPRINT USING
"UttttttlU
utttttttttt.uttuu1u•;•s= •
; S: GOTO 120
310:LPRINT ••:LPRINT "*T
S•=•; USING
•ttttttUUUtt
U.UttUtt"iK:END
320:"C":K=0:USING :PAUSE
•**TS CLEAR**":
END
230
190:C=X:IF
A>X
LET X=A
200:IF B>X LET X=B
210:I=(A+B+C)12:S=SQR
CI
*(I-A>•<I-B>•<I-C))
220:J= INT ((2•S/X)*10n3
)110A3:L=X:GOSUB 340
230:X=L:S=X•J12:K=K+S:L=
A:GOSUB 340
240:A=L:L=B:GOSUB 340
250:B=L:L=C:GOSUB 340
260:C=L:L=S:GOSUB 350
GOSUB 330
• PROGRAM LIST
10:"A":USING :CLEAR
~.JAIT 0
20:INPUT "Numbers=";N
30:IF N<t BEEP 2:GOTO 2
0
40:DIM XCN-1),YCN-1),B$
( 0)
50:FOR I=0 TO N-1
60:B$(0)="z=":GOSUB 360
70:INPUT X(I):B$(0)="z=
"+STR$ X(I):GQSUB 3
70:GOTO
90
80:N=I:END
90:BSC0)="y=":GOSUB 360
: INPUT
Yd)
100:B$(0)="y= "+STR$ 'r'(I
):GOSUB 370:NEXT I
110: BEEP
1:
UJD
120:"B':USING :INPUT
"Po
int=•;o,"Point=•;p~·
Point=";Q:GOTO 140
130:GOTO 310
140:IF (0(1)+(0)N)+(P{1)
+CP>N)+(Q(l)+(Q}N)<>
0 GOTO 120
150:C=X(0-1):D=Y(0-1):E=
X(P-l):F='r'(P-l):G=X(
G!-l):H=Y(Q-1)
160:X=E-C:Y=F-D:GOSUB 33
0
170:A=X:X=G-E:Y=H-F:
GOSUB 330
180:B=X:X=C-G:Y=D-H: