Sharp PC-1500 Handbuch Seite 155

All and more about Sharp PC-1500 at http://www. PC-1500.info
PROGRAMMNAME: SCHULISCHE LEISTUNGEN
( Programmlisting )
750: INPUT „KASSETT
E AUS OK=J/NQ=
2?„
i
H
755: IF <H =I )+< H=2>
<> I GOTO 750
760: IF H=2GOTO 770
765:PRJNT tt-J,AS;A
'ß$ (f),
ß('I:)
770:RETURN
800 : FOR 1=0TO A- !
805:LPRJN T USJNG "
UU#"; l+I;" " ;B
$(J):USJNG
8J0: IF G=0GOTO 840
815: FOR J =0TO
0
820 :LPRINT USJNG "
&&&&&&&&& ••
i 0 $ (
J);USI NG
" 1111~11
„ ;B<J, I>
825:US JNG :NEXT J
830:LPRJNT '' GESAM T
"jß(Q+J,J)
833 : W = lNT <B< O+J,
1
)/ (Q+ ] ) +.5)
835: LPRJ NT '' OSCHN.
"i 1.1:
CiOSUB 500:
LF
1
840 : NEXT
J
845: IF G=0GOTO 860
850:LPR INT '' KLASSE
GESAMT"
;F
855:°R=0: LPRINT " KL
ASSENOURCHSCHN
1
rr•; n :c=c+n:
IF
K>=O-ILET
0
<O- l>=M
85/:FQR 0=0TO A- J :
S=I NT <B<O+J,O
)l'( Q+J )+ . 5>:R=
<S-M)"2+R:NEX T
0
959: JF A=JGOTO 860
959:N=R/C A-f):N=
!NT CNlf0"3+ . 5
)/ l0"3:LPRI NT
"VARJ ANZ";N
860:G=0 : LF
2:
RE TURN
De not sale this PDF!!!
900:LPRJ NT
' SA~LE k
DIAGRAMM"
903:GRAPH :
GLCURSOR <0, 0>
:SORGN :LJNE C
50, 0) - (215,
0):
LlN E <50, 0>-<5
0,
- 450)
905: 5=&<0>: FQR l =J
T O U- J:
I F
S<E<
J>L ET S=E<ll
808:NEXT
1
9J 0: V=0: FOR 1=0 T O
V-l :X= l J51'S1'E<
1 )
9J3 : IF X=0GOTO 930
9J5 :LJNE (50, V)-<X
„50, V-450/U), 0
, 2, B
920:COLOR 0:
GLCURSOR C X+ 55
, V- ,0>: LPR INT
ECJ)
930:GL CURSOR <0, Y-
J3):LPR JNT FC!
)
940 :Y=Y - 450/U:NEXT
J:
rExT : COLOR
0:LF
2
960:R EfURN
STATUS
l
2575
- 149 -
PROGRAMM-NR.
PS- D-24
9