Sharp PC-1500 Applications Manual page 155
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All and
more about Sharp
PC-1
500 at http://www.PC-1500.info
PROGRAM
T
I
T
L
E
MANAGEM ENT OF
STUDENTS' ACHI EVEMENTS
I
Program List
I
750:
INPU
T
''fAPE
-
OU
T
OK
=
1 ,
N
0,2'?
,.
;
H
/55
:
IF
<H=l
)
+(
H•
2>
<>
l
GOTO
750
'60
:
IF H=
2GO'f
0 ,
/
0
/65:PRIN
T
~
-
1,AS;A
, 8$«">,
B<*>
';;>0:R(TURN
800:FOR
1=0
TO
A-
I
805:LPR1
NT
US ING
"
~"U
"
;l
+
Jj
"'
"
iB
$(
I )
:
US
I
NG
9
J
0:
IF
G=0GO TO
840
815
: FOR
J
=0TO
Q
820:LPRI
NT
USING ''
&&&&&&&&&"
;OS(
Jl
;US
!NG
··
~~llU
"; B<J,I>
825:
US
JNG
:
NEXT
J
830
:
LPR1NT
' TOTAL"
;
B<O
+I,
ll
833:W=HH
(8(Q+l,
I
)
/
(Q~t)
+
.
5
)
835
: LPR1NT
''AUG
''
;
W
: GO
SUB 500:
U
'
I
940! N(XT
1
845:
IF
G=0GOTO
860
850:LPRINT
"CLASS
TTL";
F
855:R=0:LPRJNT "CL
ASS
AVERAGE
"
;M
:C=c
..
n
:
IF
K>=O
-!
LET
O<O-ll
=M
85
/
:
FOR
0=0 TO A
-
1:
S=INT <B<
Q ..
I,
0
)
/(Q
..
J)
+
.
5
>:R=
<S-
M>-'2+R:N
EXT
0
858:
IF
A=JGOT
O
860
859:N=R/(A-
J)
:
N=
INT
<N*10-'3+.5
)/J0-'3!
LPR
INT
"VARIANC(
•
;N
860:G=0
:
LF
2
:
RETURN
900
:LPRJNT
"
HIS
TOG
RAM
"
Do not sale
this
PDF !!!
903
:
GRAPH
:
GLCURSOR
(0, 0)
: SORGN
:
LI
NE
<
50,
0)
-(2
15, 0);
LI
NE
<
~
0,0)
-
(5
0,
-450)
905:S~E<0):
F
OR
1=1
TO
V-
J:IF S<E<
l>
LET S=C<I >
908
:
N
EXT
1
9
10:
Y=0:
FOR 1=0 TO
u-
I;
X-"
!
l
StSl<C
<
j
)
913:
IF X=0GO TO
~30
915
:
LJNE
<50,
Y)
-
(X
+50,
Y- 450tV
),
0
J
2,
8
920:
COLOR
0
:
GLCURSOR
(
X•SS
,
Y
-
20>:
LPR! NT
E<l
>
930:
GLCURSOR
(0,Y-
!3J:LPR!NT
Ft!
)
940:Y:
Y- 450/U:N•
XT
I
;
TEXT
: COLOR
0
:
LF
2
960
:
RE
TURN
STATUS
1
2541
-
149
-
PROGRAM
NO.
PS-D-24
9
Advertisement
