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]
6000  REM
6020  GOSUB 9610
6025  IF K<8 THEN 6040
6027  PRINT '10'10;
6028  PRINT 
6030  CHAIN "$GPACC"
6040  PRINT "ENTER:  MIN, MAX, INC ";
6045  INPUT L,U,I
6050  PRINT '10"-"'10'10'10,"HISTOGRAM",D$
6060  PRINT '10;TAB(12);T$;TAB(44);B$[6*K-5,6*K]
6090  PRINT '10"    INTERVAL","  NUM "'10;
6100  GOSUB 9100
6110  LET J1=0
6120  LET L1=11
6150  FOR X=U TO L+I STEP -I
6160  LET J=0
6170  LET G=X-I
6180  FOR I1=1 TO C[2]
6185  IF T[1,I1]=-1 THEN 6220
6190  IF X<T[K,I1] OR G >= T[K,I1] THEN 6220
6200  LET J=J+1
6220  NEXT I1
6225  LET Z=G
6230  GOSUB 9920
6240  PRINT " - ";
6250  LET Z=X
6260  GOSUB 9920
6265  LET Z=J
6270  GOSUB 9910
6280  PRINT TAB(21);"+";
6290  IF J=0 THEN 6330
6295  LET J1=J1+J
6300  FOR I1=1 TO J
6310  PRINT "*";
6320  NEXT I1
6330  PRINT 
6335  LET L1=L1+1
6340  NEXT X
6345  PRINT TAB(21);
6350  GOSUB 9100
6360  PRINT "     TOTAL";TAB(15);
6370  LET Z=J1
6375  GOSUB 9910
6380  PRINT 
6382  PRINT 
6385  IF L1>66 THEN 6020
6390  IF L1=66 THEN 6410
6395  FOR J=1 TO 65-L1
6400  PRINT '10;
6405  NEXT J
6410  PRINT "-"'10;
6430  GOTO 6020
6440  REM
9100  PRINT "I++++I++++I++++I++++I++++I++++I++++I++++I++++I++++I"
9120  RETURN 
9600  REM
9606  DIM K$[6]
9607  REM
9610  PRINT 
9611  PRINT "   KEY ";
9612  INPUT K$[1,6]
9613  PRINT 
9614  IF K$="HELP  " THEN 9625
9615  FOR K=1 TO B
9616  IF K$=B$[6*K-5,6*K] THEN 9640
9617  NEXT K
9620  LET K=7
9621  IF K$="SCORE " THEN 9640
9622  LET K=8
9623  IF K$="RETURN" THEN 9640
9624  PRINT "INVALID KEY,",
9625  PRINT "POSSIBLE KEYS ARE:"
9626  PRINT "  HELP";
9627  GOSUB 9710
9628  FOR Z1=1 TO 8-B
9629  PRINT " ";
9630  NEXT Z1
9631  PRINT "SCORE ";
9632  FOR Z1=1 TO 8-B
9633  PRINT " ";
9634  NEXT Z1
9635  PRINT "RETURN"
9636  PRINT 
9637  GOTO 9610
9638  REM
9640  RETURN 
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]
9909  REM
9910  LET Z9=INT(Z+.5)
9911  LET Z7=0
9912  LET Z5=-2
9913  GOTO 9926
9915  REM
9920  LET Z9=INT(ABS(Z)*10+.5)/10
9921  LET Z7=-2
9922  LET Z5=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 6+Z5+Z7-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
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 
