Sharp PC-1500 Anwenderhandbuch Seite 155

758:
235:
768:
763:
7B:
800:
B85:
B18:
815:
820:
825:
830:
B33:
835:
B40:
845:
B58:
855
B57:
B58:
B59:
BBG:
INPUT ""KASSETT
E AUS OK=1/"NO=
27° 3H
IF (H=1)+(H=2)
<>1GOTO 758
IF H=2GOTO 7728
PRINT #-1,A$;A
» BECK), BOK)
RETURN
FOR 1=8T0 A]
LPRINT USING "
HHH" 5S 1+15" "3B
$€]): USING
IF G=8GOTO 848
FOR J=8TO Q
LPRINT USING "
PERKKEREK" 5 DSC
J;USING ""##HH
";BCJ, Id
USING :NEXT J
LPRINT "GESANT
";BCQ+1;, 1)
W=INT (BCQ+1], 1
7 (CO4+1)4+.5)
LPRINT "DSCHN.
"3W:GOSUB
588:
LEP
NEXT J
IF G=@8GOTO 869
LPRINT "KLASSE
GESANT" 5 F
>ReB:LPRINT "KL
ASSENDURCHSCHN
TT's M: C=C+M:
IF K>=D-1LET D
(D-1)=M
FOR O=8T0 A-1i:
S=INT (B¢Q+1,0
d7(O4I194.5)92R=
CS-MIAC2+R: NEXT
0
IF A=1GOTO 864
N=R/7(A-1]): N=
INT (NK19003+.5
71803: \-PRINT
"YARIANZ" SN
G=@:LF 2:
RETURN
980:
9083:
385:
988:
919:
913:
915:
928:
934:
949:
368:
[ Programmlisting ]
LPRINT 'SAULEN
D1AGRAMN"
GRAPH :
GLCURSOR (@, @)
:SORGN :LINE ¢
58, B)-(215, @):
LINE (59, @)-(5
8, -458)
S=E(@):FOR I=
TO U-it1r SCEC
I)LET S=EC1)
NEXT 1
Y=9:FOR 1=0TO
U~1:X=115/S*E¢
1D
IF X=@GO0TO 938
LINE (5@, Y)-¢x
+58, Y-458/7U), @
,2,B
COLOR @:
GLCURSOR (X+55
, Y-28):LPRINT
EI)
GLCURSOR (8, Y-
13):LPRINT FC]
)
V=¥-458/U! NEXT
1: TEXT : COLOR
@:LF 2
RETURN
STATUS 1
Za79
= 149: —
PROGRAMN-NR.
P5—-D—24