Radio Shack TRS-80 Model 100 Basic Manual page 202

380 IF A(j)<A(j+1) GOTO
a00
390 A=A(j):A(j)=A(j+1):A(j+1)=A
400 NEXT j:NEXT I
410 CLS
420 INPUT" OUTPUT SORTEO l,JALUES (Y
0
r
N)" H$
430 IF T$="N" GO TO 550
4a0 IF T$<>"Y" GO TO 410
a50 PRINT "OUTPUT ON LCD, LINE PRINTER OR BOTH"
460 INPUT"(L, P
or
6)"H$
a70
IF T$="L" GOTO 500
480 IF T$="P" GO TO 530
a90 IF T$<>"6" GOTO a50
500 CLS:FOR 1=1 TO N
510 PRINT A(
1)
:NEXT I
520 IF T$="L" GOTO 550
530 FOR 1=1 TO N
540 LPRINT A(I):NEXT I
550 REM CALCULATE THE MEAN
560 FOR 1=1 TO N:S=S+A(I):NEXT I
570 M=S/N
580 REM CALCULATE THE (SAMPLE) l,JARIANCE
590 S=0:FOR 1=1 TO N
600 S=S+(A(I)-M)A2:NEXT I
610 l,J=S/(N-1)
620 REM CALCULATE THE (SAMPLE) STANDARD DEVIATION
630 SD=SQR(l,J)
640 REM CALCULATE THE MEDIAN
650 N1=INT((N+1)/2):N2=INT((N+2)/2)
660 MD=(A(N1)+A(N2»/2
670 REM DISPLAY THE RESULTS
675 CLS
680 PRINT"NUMBER OF VALUES"TAB(20)N
682 PRINT"MAX, MIN IJALUES"TAB(20)A(N) jA(1)
68a
PRINT"MEAN"TAB(20)M
686 PRINT"MEDIAN"TAB(20)MD
688 PRINT"l,JARIANCE"TAB(20)IJ
700 PR I NT" STANDARD DElJI AT I ON" TAB (20) SO
702 PRINT:INPUT"OUTPUT RESULTS TO PRINTER (Y
or
N)"
H$
70a IF T$="N" GOTO 7a0
706 IF T$<>"Y" GOTO 702
708 LPRINT NUM6ER OF IJALUES"TA6(a0)N
710 LPRINT MAX, MIN l,JALUES"TA6(40)A(N) ;A(1)
720 LPRINT MEAN"TAB(40)M
725 LPRINT MEDIAN"TAB(40)MD
730 LPRINT VARIANCE"TAB(a0)IJ
735 LPRINT STANDARD DEVIATION"TAB(a0)SD
738 LPRINT ":LPRINT" ":LPRINT"
II
740 CLS:INPUT"HISTOGRAM (Y
or
N)"H$
750 IF T$="N" THEN END
760 IF T$<>"Y" GOTO
7a0
770 CLS
780 INPUT"NUM6ER OF CLASSES (6-10)";NC$
196