*C-FOCAL,1969
*
*01.01 C    BILL WILMOT'S GRADE PROGRAM 2/9/71
*01.02 C    THIS PROGRAM CAN BE USED FOR ANY NUMBER OF GRADES PER
*01.03 C    STUDENT.  IT CALCULATES, FOR EITHER WEIGHTED OR
*01.04 C    UNWEIGHTED GRADES, THE 1) AVERAGE FOR EACH STUDENT,
*01.05 C    2) CLASS AVERAGE, AND 3) THE STANDARD DEVIATION.
*01.06 C    BILL HOPES THE PROGRAM SAVES YOU MANY HOURS OF WORK
*01.07 C    IN FIGURING YOUR CLASS GRADES!!   HAVE FUN.......
*01.08 C    TO START, AFTER THIS TAPE ENDS, PRESS G AND "RETURN".
*01.09 ERASE
*01.10 A "HOW MANY STUDENTS?"XN; T !
*01.11 A "HOW MANY GRADES PER STUDENT?"G; T !
*01.13 A "ARE THE GRADES OF EQUAL WEIGHT? TYPE Y OR N"H; T !
*01.14 IF (H-0Y)1.15,1.41,1.15
*01.15 IF (H-0N)5.01,1.16, 5.01
*01.16 SET ST=0; T !; G 2.02
*01.40 
*01.41 SET ST=0; G 3.01
*01.44 T !!; T "CLASS AVERAGE"; S CAV=TOT/XN; T ""CAV; T !
*01.45 S VA=XN*SA-(TOT*TOT); S SD=FSQT(VA)/XN
*01.46 T "STANDARD DEVIATION OF AVERAGE GRADES"SD
*01.51 QUIT
*
*02.02 T "TYPE THE RESPECTIVE WEIGHTS FOR THE GRADES IN DECIMALS"!
*02.03 T "--BE SURE TO DO IT IN ORDER!!!! TOTAL MUST=1.00"; T !
*02.04 T ! "REMEMBER, NOW.....TOTAL MUST BE 1.0. I WILL NOT CATCH"
*02.05 T ! "YOUR ERROR IF TOTAL OF DECIMALS IS NOT 1.0........"
*02.06 T ! "WEIGHTS?"; F I=1,G; A W(I)
*
*03.01 T !
*03.02 S ST=ST+1; T ! "STUDENT NUMBER"ST; T !
*03.04 FOR I=1,G; ASK X(I)
*03.05 I (H-0N)3.08,3.06,3.08
*03.06 G 5.12
*03.08 FOR I=1,G; DO 3.09
*03.09 SET SUM=SUM+X(I)
*03.13 SET AV=SUM/G ; T "AVERAGE"AV; T !; S SA=SA+(AV*AV)
*03.55 S TOT=TOT+AV; T !; S SUM=0; S AV=0
*03.56 SET SUM=0; SET AV=0
*03.57 IF (ST-XN)3.01,1.44,1.44
*
*05.01 T "YOU GAVE AN IMPOSSIBLE ANSWER-START OVER!"; T !!!!; G 1.09
*05.12 FOR I=1,G; DO 5.13
*05.13 SET X(I)=X(I)*W(I)
*05.14 FOR I=1,G; DO 5.15
*05.15 SET AV=AV+X(I)
*05.16 S SA=SA+(AV*AV); T %10.03,"WEIGHTED AVERAGE"AV; G 3.55
*05.21 SET TOT=TOT+AV; G 3.56
**\