Sharp PC-1500 Anwenderhandbuch Seite 83

19: "Q":CLEAR =
WAIT :DIM YC8;
1)
14: 1F CAgSH"Y"D+6A
$="N")¢>1G0TO
L2
15:WAIT @
16: 1F Ags="Y"GOTO
132
28: INPUT ""ANZAHL
DER DATEN=";
BO: IF ¢2<=Md+CMK<=
18)<€>2GOTO 28
52: INPUT "ANZAHL
DER GRUPPEN=";
N:D1M X<M+1,; N-
13
6@:FOR A=BTO N-1
65: Z1=-18°8: 22-10
og
78:FQR B=8TO M1
ga:CLS :A$="GRUPP
E="4STR$ CAI)
+", DATEN="
90:CLS :PRINT A$;
1@@: INPUT X¢B, AD
195: XCM; AS=KCM, Ad+
X¢B; AD
1097:1F 21<xX(B; AD
LET Zi1=xX€B, AD
188: 1F 22>x¢B, Ad
LET 22=X(B; AD
11B:NEXT B:CLS
115: X¢M, AISKCN, AIZ
M
117: X¢M+1, Ad=Z1-Z2
128:NEXT A
122:WAIT : INPUT "D
ATA CSAVE? CY/N
"3 AS
123: 1F CAS="Y"ID+CA
$="N"9¢>1GO0TO
122
124: WAIT @:1F Ag="
N'' GOTO 138
126:PRINT #"X-R DA
TEN" 3M; N
128:PRINT #"X-R DA
TEN" 3 XOK)
138:CLS :END
PROGRAMMNAME: X—R KONTROLLKARTE
{ Programmlisting ]
132: CLEAR :WAIT :
INPUT #"X-R DA
TEN"S Ms N
134:DIM X(M+1,N-1)
3 YC8; 1d
136: INPUT #"X=-R DA
TEN"; XC*)3 END
148: "B":WAIT @:
INPUT "UBERPRU
F.sKORR.:? Sus K
> ";N$: GOTO 16
Q
1528: END
160: 1F (NS$S"U")4CN
$="K")C>1G0TO
142
170: 1F N$s"U"GOTO
279
188: INPUT ""XGRUPPE
="3A:GOTO 228
1928: G0TO 258
208: 1F (€1<=AD+CACH
N><>2GOTO 188
2228: INPUT "ANZAHL=
"3B:GDTO 248
230:GOTO 188
248: IF C1<=B)+¢(BK=
M)<>2G0TO 2228
245: INPUT "DATEN="
34%(B-1,A-1):
GOTO 228
258:FOR A=@TO N-1
252: X(M; AI=8: Z1=-1
B°B8: 22=]1048
254:FOR B=8TO M-1
256: 1F 21<xCB; Ad
LET Z1=X(B; Ad
257: IF Z22>XCB; A?
LET 22=xX(B; AD
258: XCMs AD=XCM; AD+
XCB; AD
259:NEXT B: XCM, Ad=
*CM, ADZN
260: X(M+1,; AI=Z21-Z22
:NEXT A:GOTO 1
40
262: WAIT : INPUT "D
ATA CSAVE? CYZN
"3AS
263: 1F CAS="Y"94+CR
$="N")C51G0TO
262
PROGRAMM-NR.
PS—B—14
264: WAIT B:1F ASs="
N" END
265:PRINT #"X-R DA
TEN"3M, N
266:PRINT #"x-R DA
TEN'; XCk): END
270:FOR A=8TO N-]
280:;LF 1:LPRINT "*
GRUPPES"; A+]
298:FOR B=ATO M1
32080:LPRINT USING "
HHH" 5 B+15
385: USING :LPRINT
X€B; AD
318:NEXT B
315:LPRINT "MITTEL
"3%OM;, AD
317:LPRINT " R "3X
(M+1; Ad
328: NEXT A
339:GOTO 262
340: "C"': CB, Bd=1.8
B84: YCB, 132-3. 26
?
358:YC1, 0)=1.023:7
€3,1)922.575:¥¢
2; 0)=8.729:YC2
3 1)=2. 282
368: YC3;, B=B.577:9
C3, Los2.11527¢
4,-0)=8.483:7¢4
3 1)=2, 604
370: °YC5, 8)38.419: 7
C5, 1251.924:7¢
6, @)=08. 373: YC6
> 15=1.864
388: C7, 8)=8.337:Y
(7; 1951.816: 7¢
8, 2)=8. 308: Y¢(8
g 1512777
398:LF 1
408: H=8:P=0
418:FOR A=8TO N-]
428: 6=X(0,; AD: L=X¢B
>A: S=xK%CB, AD
430:FOR B=1TO M-1
440: G=G+X¢B, AD
458: 1F L<x¢B; ASLET
L=XCB, AD
468: IF S>X¢B;, AILET
S=xX(B; AD
47@:NEXT B
(a Suivre)