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