Sharp CE-125 - Page 28

111
10 79
24 5 : G OT O 16 €1
2 5 0:I N P U T •A LL D A T A P~I N
T ? C ' r'-' N ) • ; GS
2 6 0:lF GS =" N " END
27 8 : IF G S < > " Y" G O TO 2 50
2 80: LP R I N T • • : L PR I ~ T "M
= •;M : L PRI N T " L= ' ; L :
LPR INT ' ' N=" ; N
2 9 0 :FOR ! = 0 T O M - 1 : F O R
J = 0 TO l -1: L PRit H •
A ( '' ; S TR S ( I + l) ; • ,•;
8T RS ( J+ 1) ; • : 0 = " i ll ( I1
J:< : NE> : T J : N E X T I
3 00 : F OR 1 = 0 TO L- 1 : F OR
J = 0 T O N - 1 : L PR I HT "
:a c • ; S T R S C I + l );• , • ;
S T R$ (J +l ) i ") = "; C( l . 1
J ) : N Er ~ T J : N E X T I :
END
3 1 0 : ''C' : L P R I N T • •: F OR
K = 0 TO M - 1: F O R J = 0
T O N -l : D( K , J ) = 0 : F O R
1=0 T O L -l :DCK 1J ) = D<
K 1 J ) +B C K 1 I )*C CI 1J ) :
NEX T I
3 1S :NE X T J : N E XT K
3 20 : FO R ! = 0 T O M - 1 : FD R
J =0 TO N - 1 : L PR I NT •
cc • ; ST RS ( I +i)j• , • ;
S T RS C J + l ) ; •) ='! D C I1
J ) : N E X T J: N E X T I :
END
; c c'i · - 1 ,u - 1 )
; Bi:Y- : , u-~ . ~ 1
2 40 : I F < R s =~ Bv ) + ( Y < = L ) + (
0 ( ; N ) = 3 ~ ~ P ~ T YR E V ~ S
: O N VA LL~ E ~ y ; c ( Y - 1 , u -
1) : LP Rit ~T B S • : l!J. ) : v = v
2 1 0 : V$ = R I GH T S ( B$ ( ~ > ,W )
: U = VA L V $ : ! F u c i
G OTO :6 0
22 0 : R I = ~ EF T $ ( B $ ( 0 ) 1 l)
2 2 5 :I= ( R S= " A' ) + ( Y < = M ) +C
U < =~) = 3 IN P UT "R EVIS
! ON V A L U E= " ; B ( Y - ! , U -
l ) ! ~ 0 R I ~ ,. B $(0) ; • = •
:6 1 : G (l "T" l) 25 0
~ 7 0: X S= R IGH TS ( BS( 0 ) , Z -
2) : Y'= YA L ~a : 1i:- ' I < ~
G O T O : 6 0
1 80 : ~= Z - L E ~ STR S Y - 3
:90 : IF W < 0 GO T O !6 0
20 0 : r ~ ~ID S ( BS ( B ) , z - w , 1
) { ) v ,v L E~ ~ = W- 1 :
G O TO 1 90
G OT O : 7 0
9 0 : N E X T J : kE XT I :
P AU ': : E "L = ' ' ; L
1 0 0 : JNPUT " N = " : N : L P P t 4 T
''M = '' ; ~ l : DI ' " C i 'L - 1 • N -
l ) : G O T O ' . 20
1 1£1 : G G T O 1 0 £ 1
: 20 : FO~ I = 0 T O L - : : F u ~ :
J = B T O N - 1 : 3S C 0) = "E (
• + S 7 R I ( ! + 1 ) + • , •+
S T ~ : :t (J + l )+ ' · ' ) = ' 1
1 30 : P f:l lJSE B $ (0 ) : i r l? U T c
( I , J ) : ~ P RI N T Bt ( 0 ) :
C ( !,J ) : G O T O 1 50
: 40 : G 07 0 ! 3t l
: 5 0 : ~ E X 7 J : ~ E X T r : 1rr
::: 1( M - ! , N - l ) : E N D
~60 : "B" : BS( 0) = ' ' : I NP UT
' R E V IS I ON POSIT I ON ='
;Bl ( 0 ) : Z = LE N BS C 0 ) :
80 : G O TO 70
4 0: GO T O 3 £ 1
5 0 : D I M B CM - ~ • L- l ),B 5 ( 0 )
60:F OR 1 = 0 · o ~ -1 : FO~
J = 0 T O L - : : B S ( 0 ) = "A (
q + S T R $ ( !+ : ) + Y , v+
: ~ . TR$ ( J + l ) +'' ) =''
7( 1 : PA U SE 3$ ( 0 ) : I i ~ P UT 'B
( l , J ) ! :.. P R !N T Bl ( 0 ) ;
"f : ( I , J ) : GO T O 9 £1
''i'1 ='': r ~ : GO TO 30
20 : GOT O ~ 0
3 0 : r : , p u - , , :.. = ' ' ; ; _ : L? R HH
: 0 : ' ' A'' : C L~A R : w A i T f t :
~ t ..:P U T ~ · · · ~ = ·· · : ~ ~ : i_PP.I t-.. T
PROGRAM LIST
promsoft.com