1000  COM T$[30],B,B$[42],M,P[6],C[3],D$[9],N,T[7,141]
1001  COM C$[6],O$[6],K,W[6],F,N$[9]
7000  REM
7010  PRINT " ","OUT SECTION"
7013  PRINT '10"ENTER SMALLEST AND LARGEST S.N. DESIRED ";
7015  INPUT L9,U9
7030  PRINT '10'10'10"-"'10'10'10'10;
7100  FOR I=(1 MAX L9-C[1]) TO (C[2] MIN U9-C[1])
7110  IF T[1,I]=-1 THEN 7470
7115  PRINT TAB(10);T$;TAB(45);D$;"    STUDENT ";I+C[1]
7120  PRINT '10;TAB(17);
7130  GOSUB 9720
7140  PRINT 
7150  IF M=2 THEN 7180
7160  PRINT "WEIGHTS",
7170  GOTO 7200
7180  PRINT "P FACTORS",
7200  FOR J=1 TO B
7210  LET Z=P[J]
7220  GOSUB 9910
7230  NEXT J
7240  PRINT 
7250  PRINT "STUDENT TOTALS",
7260  FOR J=1 TO B
7270  LET Z=T[J,I]
7280  GOSUB 9910
7290  NEXT J
7300  LET Z=T[7,I]
7310  GOSUB 9920
7320  PRINT 
7330  PRINT "POSSIBLE",
7340  FOR J=1 TO B
7350  LET Z=T[J,N]
7360  GOSUB 9910
7370  NEXT J
7375  PRINT 
7400  PRINT '10'10'10'10'10"-"'10'10'10'10;
7470  NEXT I
7480  PRINT " ","END OUT SECTION"
7490  CHAIN "$GPACC"
9700  REM
9720  LET Z9=1
9725  FOR Z1=1 TO B
9726  FOR Z2=1 TO 8-B
9727  PRINT " ";
9728  NEXT Z2
9729  PRINT B$[6*Z1-5,6*Z1];
9730  NEXT Z1
9731  IF Z9=0 THEN 9740
9732  FOR Z2=1 TO 8-B
9733  PRINT " ";
9734  NEXT Z2
9735  PRINT "SCORE"
9740  RETURN 
9900  REM
9905  DIM Z$[10]
9909  REM
9910  LET Z9=INT(Z+.5)
9911  LET Z7=0
9912  GOTO 9925
9915  REM
9920  LET Z9=INT(ABS(Z)*10+.5)/10
9921  LET Z7=-2
9922  LET Z8=-1
9923  IF Z<0 THEN 9926
9925  LET Z8=0
9926  LET Z$="0123456789"
9928  LET Z1=1
9929  IF Z9<10 THEN 9940
9930  LET Z1=2
9931  IF Z9<100 THEN 9940
9932  LET Z1=3
9933  IF Z9<1000 THEN 9940
9934  LET Z1=4
9940  FOR Z2=1 TO 14-B+Z8+Z7-Z1
9941  PRINT " ";
9942  NEXT Z2
9943  IF Z8=0 THEN 9950
9944  PRINT "-";
9950  FOR Z2=Z1-1 TO 0 STEP -1
9951  LET Z4=10^Z2
9952  LET Z3=INT(Z9/Z4)+1
9953  PRINT Z$[Z3,Z3];
9955  LET Z9=Z9-Z3*Z4+Z4
9956  NEXT Z2
9960  IF Z7=0 THEN 9970
9961  PRINT ".";
9962  LET Z3=INT(Z9*10+.5)+1
9963  PRINT Z$[Z3,Z3];
9970  RETURN 
9999  END 
