Sharp CE-125 - Page 58

1 41
1 1 2 1
490:LP R I N T " * GTTL * •
50 0 : L PRIN T USI NG •nn aaua
naau • ;n
se s : •x•: LPRI HT • • :
L P R I H T •• : L P RI N T • •
5 1 0 : EH D
s20 : •z • : PAUSE " TA P E S E T
UP \ "
530 : IHP U T ' DATA IN z 1 1 0H T
= 2 ?. i K: I F (K=l ) + ( K=
2 )= 1 G OTO 55 0
540 : B EE P 3 : GOTO 530
550 : IF K = 2 P R I N T a• CF ' i A
, B : PR INT ll'C F -DAT A"
i B (*) : E ND
5 6 0 : CLEAR : I N P UT :•cF " i
A ,B: D I M B <A - l 1 B -l) :
INP UT u•cF - D A TA ' i B(*
)
570 : EH D
- - - - -- - - -- - - ~
320 : FOR J =0 TO B - 1
330 :E=0
340 : FOR !=0 TO A - 1
35 0 :E = E + B(I 1 J)
36 0 : HE X T I
370 : F= IN T ( E / D* E 5 + 0 . 5 )/
E 3
380 : LP R INT "H" ; U SI NG "U
nnn • ; J+ li ':• ; USING
" ltttttttt UIU l tt U " ; E ;• : • ;
USI N G •an: . na• ; F
390 : NE X T J
4 0 0:FOR I =0 T O A - 1
4 1 0:G:o0
420 : F O R J = 0 TO B-1
4 3 0 : G = G+B(l1J)
440 : H E XT J
4 50 : H = I NT ( G / D* E 5+0 . 5 ) /
E 3
4 60 : L PRINT ·v· ; US ING ·n
llU " ll+l i " :' ; US I NG
• a :aa a a a a naa •;G ; • : • ;
USING · a a :. t a • ; H
470: N E XT I
48 0 : L P R INT • -- - - - - - -- - --
27 0 : D =0
2 8 0 : FOR 1 =0 T O A - 1
290 : FO R J = 0 TO B-1
300 : D= D +B <I .J )
310 : N E X T J : NEXT I
- -- - -+- - - - - - "
10 : " A ' : CLEAR : W AIT :
U S I H G : LPRIN T "* D A
TA LI ST *•
2 0 : INP U T " VERT I CA L =" i A
30 : I N P UT " HORIZONTA L = •;
B
40 : D I M B(A-l i B-1)
50:F O R ! = 1 T O A
60 : F O R J = l TO B
7 0 : PAUSE " A ( • ; U SING " U
nn • ;r;• , , ; J ; ' >"
se : r HP UT B ( l-l i J -1 )
90 : LPRINT " A ( " ; US ING •
nu•; r;. r . j J j ' ) = " i
U S I HG ' UUUUllllttU' i B
<I- 1 .J -1)
100: N E XT J : NE X T I
110 : G O T O 505
1 2 0 : 'B ': W A IT : USING
L PR I N T '* R E VISED DA
TA *"
130 : I H PUT " RE VI SION P O SI
TIOH = " i C $ : Z = L E H C$ :
X $= R IG H T $ ( C$ 1 Z-2> :
Y = V A L X $ : GOTO 1 4 5
14 0:G OTO 130
14 5 : IF Y< l GOTO 1 30
150 : W = Z - L E N ST R$ Y - 3
1 60 :IF W < 0 GO TO 130
17 0 :I F M I D$ (C $1Z-W 1 1 ) ()
' 1 " LE T W=W - 1 : G O T O
16 0
1 8 0: V $ = RI G HT $ (C $ 1 W):U=
V AL V $: IF U < 1 GO TO
130
200:P A U SE B < Y - 11 U-1)
2 1 0: I HP UT B < Y- l•U-1)
2 2 0:LP RIH T ' A c • ; U S ING •
1nu • ; y ; • , • ; u ;• > =" i
US I HG ' lttUU tttt ttU Utt "iB
< Y - 1 1 U - 1)
230 : G OTO 130
2 4 0 : ' C ': WA IT : USHIG :
L P RI HT '* T OT A L PERC
E tH AGE * "
2 50 : L PRIN T ' POS I TION
TT L: % "
2 60 : LPRI H T " - - - - - +- -- - - -
PROGRAM LIST
promsoft.com