Sharp PC-1500 Anwenderhandbuch Seite 38

10:
28:
38:
40:
3G:
68:
65:
7B:
88:
120:
°138:
140:
158:
168:
165:
7B:
18a:
280:
21B:
220:
238:
240:
245:
258:
268:
205%
270:
27d:
277:
2848:
2385:
298:
2a:
308:
310:
320:
{ Programmlisting ]
"A"; CLEAR :
WAIT @
CLS. : (NPUT "N=
"3N;3N=N-]1
DIM ACN; ND
FOR: [=0TO Nets)
FOR J=@TO N
O$="ACVF+STRE ¢
I+1)+", "+STRS$
CIP ete
PRINT: AS;:
INPUT ACI, J}:
CLS
NEXT J
NEXT I: END
"BY FOR J]=8TO
N
FOR J=0TO N
AS="QC"4+STRE ¢
J+l)+", "4+STRS$
CJ+194"%)="
CLS :PRINT A$;
ACI, J)3
CURSOR 15
INPUT E£:A¢], J)
=E
NEXT J
NEXT I:END
"C";GOSUB 592:
FOR J=@TO N
ACs LI=AC I. 14
1:NEXT I
FOR M=@TO N
P=ACM, M)-1
IF P=QTHEN 982
FOR J=OTO N
ACM; JI=SACMy 57
P:NEXT J
FOR J=@TO N
IF I=MTHEN 298
O=A¢1, Mm)
FOR J=OTO N
ACI, JI=ACH, J2-
OxACM, JD
NEXT J
NEXT 1:NEXT M
FOR 1=@TO N
ACI, 1)=A¢4; 1)-
1
NEXT |
COSUB 552: END
5@@:FOR 1=8TO N
51Q:FOR J=@TO N
520: AS="AC"+STRS ¢
14+1)+4", "+STRS
(J+) )4")5"
539: LPRINT A$;ACI,
J)
54@Q:NEXT J:NEXT I: |
RETURN
35@:BEEP 1:FOR ]=@8
TON |
960:FOR J=4TO N
SAB: ASK" CC"+STRE ¢
I+1)4+", "+STR$
CI Ppa ys"
LPRINT A$;4¢]1,
J> a
I98:NEXT J:NEXT I:
RETURN
99@:LPRINT
"FEHLER
"> END
58a:
STATUS 1!
36
_ [ Speicherinhalt ]
PROGRAMM-NR.
P5—A-11]
3]
oe
C
Korrekturdaten
fata
v
Laufende Eingabe-Nr.
li
|e]
<[e
A
Eingabe-Meldung
{N,N)| Eingabedaten >