Sharp CE-125 - Page 62

1 45
A
B L oop count er
c
L oo p co un t e r
D
Loop co u nt e r
E
L oop cou n te r
F
G
H
I
J
.J
K
L
M
Cha ra cte r an d nu m b e r s el e ctio n
N
Nu mb er of d at a
0
I nc r e a s i ng o r d ec r ea s in g or d e r s elec ti o n
p
F o r nu mber s o rt i ng
Q
R
s
T
u
v
w
x
y
z
B $ ( N - 1)
Ch a r act er d ata
C $( 0 ) Fo r ch ar ac t er s o r t ing
B (N - 1)
N um be r va l u e d ata
MEMORY CONTENTS
5 6 1
3 5 0 : H E XT D
3 60 : H E X T C
37 0 : FO R E=0 T O N - 1
380 : LP RINT B C E )
3 9 0 : N E X T E
4 0 0 : LP RIH T • •: L P RI N T • •
: L P R I N T v v : E ND
PROGRAM LI ST
10 : 0 A '' : C LEAR : INP UT •
C HA R AC T E R = 1 / N U M BER= 2
? " ;M
t5 : I F ( M = l ) + (M = 2) < ) 1
G OTO 1 0
2 0 : 1 N P U T 'NO. OF DAT A= "
; N
3 0 : IN PUT • r H CR EA S E= l /D E
C R E A SE =2 ? " ; 0
35: I F ( 0= 1 ) + ( 0 =2> < > 1
G O TO 3 0
40 :I F M = 2 G O T O 230
5 0 :D IM B$ (H - 1 ) , C $ ( 0 )
60 : FO R B = 0 T O N - 1
7 0 :I N P U T " X $=';B$ ( B )
80 :H E X T B
90 : FOR C = 0 T O N - 2
10 0 : J = C+l
110: F OR D= J T O N-1
1 2 0 : I F 0 = 2 G O T O 15 0
130 : IF B $ (C) ) B$ ( D ) GOTO
16 0
140 : G OTO 170
t5 0 :I F B$ ( C ) ( B$ ( Il ) GOTO
1 60
1 55 : GOTO 170
1 6 0: C $ ( 0 ) =B $ C C > : BS <C > = B $
( D ) :B$ (D ) =C $ ( 0 )
1 7 0 : N E XT D
18 0: NE X T C
190: F O R E =0 T O N -1
2 00: L P R IN T B $ ( E )
21 0 : N E X T E
220 : GO TO 400
230 :DI M B ( N - 1 )
2 4 0 : F O R B = 0 T O N -1
2 5 0 :I N PUT " X= " ;B ( B )
260:HE X T B
270 : FO R C = 0 T O N- 2
2 80:J =C +1
290 : FO R D = J TO N - 1
300 : IF 0 = 2 G O T O 330
3 1 0 :IF B ( C ) ) B ( D ) G OT O 3 4
0
320: GO TO 3 50
3 30 :I F B < C >< B< D ) G O TO 34
0
3 35 : GOTO 3 50
34 0 :P= B( C ) :B (C ) = B < D > :B ( D
> = P
promsoft.com