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]
3500  REM
3550  PRINT "-"'10'10'10,"GPAC STATUS CHECK"
3590  PRINT '10;TAB(18);N$
3600  PRINT '10"TITLE:  ";T$
3620  PRINT '10"NUMBER OF BINS IN USE:  ";B
3640  PRINT '10"HEADINGS:     ";
3650  GOSUB 9710
3660  PRINT 
3670  PRINT 
3680  IF M=2 THEN 3710
3690  PRINT "  WEIGHTS: ";
3700  GOTO 3720
3710  PRINT "P FACTORS: ";
3720  FOR J=1 TO B
3730  LET Z=P[J]
3740  GOSUB 9910
3750  NEXT J
3751  PRINT 
3752  PRINT " POSSIBLE: ";
3755  FOR J=1 TO B
3758  LET Z=T[J,N]
3760  GOSUB 9910
3763  NEXT J
3770  PRINT 
3790  PRINT '10'10"STUDENT NUMBER BASE:  ";C[1]
3800  PRINT "LARGEST STUDENT NUMBER:  ";C[2]+C[1]
3810  PRINT "NUMBER OF STUDENTS IN CLASS:  ";C[3]
3822  IF C[2]=C[3] THEN 3840
3825  PRINT '10"INACTIVE S.N.:",
3826  FOR I=1 TO C[2]
3827  IF T[1,I]#-1 THEN 3829
3828  PRINT I+C[1];
3829  NEXT I
3830  PRINT 
3840  PRINT '10'10"DATE FILES LAST UPDATED:  ";D$
3870  PRINT '10'10'10'10'10'10
3880  CHAIN "$GPACC"
9700  REM
9710  LET Z9=0
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
9740  RETURN 
9900  REM
9905  DIM Z$[10]
9907  REM
9910  LET Z9=INT(Z+.5)
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-Z1
9941  PRINT " ";
9942  NEXT Z2
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
9970  RETURN 
9999  END 
