Sharp PC-1360 - Page 332

PROGRAM EXAMPLES
II PROGRAM LIST
10: "A" : ! CLS
IT
US!
t :
iIIE. = ";A
:<rA-I)
INT "":
INT ( 'nk2
i:
I
70:FOR [=0 TO A-I:
GOSUB 220: CURSOR 5+
~j, C: I
90:F=>:(I):
10[1:LPRINT "
B 210
"~; (E-.
)/(4
11
I :
120:FOR 1=0 TO A-2:
UB 2>J>3: HEi<T I
130:8=A-1 :
1
5+ 'oTR:;; r1
D
228: CURSOR 5+ LEN
D
I D:
210
CURSOR 5+
fh C: I
220:PRINT PRINT 'r('+
:C=C+(C >3)=
240:LPRINT v Averase
~'};E/H: RETURr"4
un
575 bytes
'*0*'[ 1)
Number of items = 4
X )=
X =?
as
la~iisil [
1
X 1) = 64
X =39
X -
X =1
I~~ii~il [
1
II MEMORY CONTENTS
J