Sharp PC-1500 - PC-1500 Assembly Diagrams and Detailed Schematics

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
DETERMINANT
PROGRAM NO .
4
Tl T LE
PS - A- 10
I Program List ]
I Memory Contents ]
10: ""A"":CL EAR
: 3 10 :BEEP
J:LPR!t H
A
WAIT
0
''de t : '" ; Q: ENO
20 : CLS
: I NPVT ''N=
500 :FOR
1= 0TO N
B
.. ;N: N=N -1
5 10:FOR J=0TO N
J 0: 0JM ACN,N>
520:A $ •" A< " •S TR $
{
c
40;FQR J:0TO N
1+1>+", " +S TR $
0
De termlnant Value
s e:F"OR J"0TO N
(J + ))i- .. ) = ''
60:A S="Ac"•STR$
(
530 : LPRINT
A $; A<J,
E
Correction Data
1 -+- l ) + •J, "+STR S
J)
(J+l)+'') a 'I
540 :NEXT
J:HEXT I : F
6S:PR!NT
A$ ; RETURN
G
'0: INPUT A(J, J >:
9 00 :LP RINT " ERR OR "
CLS
:ENO
H
80:N EXT J
120:NEXT
I : END .
I
v
130:"8"":FOR
1=
0TO
J
v
N
STA TUS I 584
140:FOR J•0TO N
K
1se:A$ • ""A<"•STR•
(
l-t-1 >•", ''+STRS
L
<J+ l )+")= ''
M
v
1 60:C LS
:PRI NT
Q$;
A<l,J >;
N Number of the order
165:CUR SOR LS
1/0 :J N PU T
E: A
<l,J) 0
=E
p
v
1 se:N E XT J
200:NEXT
J :E NO
a .J
2 J 0: "" C "" : GOS UB 500
21s:·o ·· :FOR M• N TO
R
!STEP - I
s
220: P• ACM,M)
225: IF P=0T ME N 900
T
2Je:F'OR
1•0TO
1'1 · I
240:Q=A<J, M) /P
u
250: FOR J • 0T O M
v
260:A(l,Jl•A(l, Jl-
Q'$'.A CM
1
J)
w
2/0 : NEXT
J :t<EXT
l:
NE XT l'1
x
2/S :Q•AC 0,0 >
y
280: FOR
l"\T O N
290:
O•O tA < 1, I >
z
300:N[Xl l
AS
Input/Output mes.sa ge
A(N.NI
Input data
Do not sale this PDF !!!
- 29 -