10  DIM P$[10],A$[20],X$[1]
11  DIM P[13],T[2,21],U[22]
50  DATA "G1","G2","G3","G4","G5","G6","G7","G8","G9"
100  FILES G1
200  MAT T=ZER
300  PRINT "TODAY'S DATE (MDY)";
305  INPUT X
310  D1=INT(X/10^4)
315  IF D1>0 AND D1<13 THEN 330
320  PRINT '7'7"INVALID DATE"
325  GOTO 300
330  D2=INT((X-D1*10^4)/100)
335  IF D2<1 OR D2>31 THEN 320
340  D3=X-D1*10^4-D2*100
345  IF D3<72 OR D3>99 THEN 320
1000  Q=1
1002  Q3=0
1005  READ A$
1010  ASSIGN A$,1,W5
1015  IF  END #1 THEN 1060
1020  READ #1;P$
1025  MAT  READ #1;P
1030  IF P[1]=0 THEN 1060
1035  GOSUB 2000
1040  GOTO 1020
1060  IF Q3 OR (Q#2 AND Q#4 AND Q#7) THEN 1080
1065  A$[3]="A"
1070  Q3=1
1075  GOTO 1010
1080  Q=Q+1
1085  IF Q<10 THEN 1002
1100  FOR I=1 TO 4
1105  PRINT 
1110  NEXT I
1115  Z$="DATE: ##/##/##"
1120  X$=" "
1125  Z[1]=D1
1130  Z[2]=D2
1135  Z[3]=D3
1140  GOSUB 9000
1145  PRINT TAB(27)"M A N U F A C T U R I N G"
1150  PRINT TAB(28)"PRODUCT USAGE ANALYSIS"
1155  PRINT 
1160  PRINT 
1170  PRINT TAB(12)"3300/3000 2200-350 3360-100 3300-200 2200-000 2200-200"
1175  PRINT TAB(13)"3360-200 3300-300     VT06 2200-112 2200-400 2200-401 ";
1176  PRINT "2200-402 2200-420   2200PS 2200-404"
1180  PRINT 
1185  PRINT 
1190  PRINT "TOTAL DIFF";
1195  Z$="######   "
1220  J=1
1225  I1=1
1227  I2=6
1230  GOSUB 1300
1235  I1=11
1240  I2=20
1245  GOSUB 1300
1250  PRINT 
1255  PRINT "TOTAL USAGE";
1260  J=2
1265  I1=1
1270  I2=6
1275  GOSUB 1300
1280  I1=11
1285  I2=20
1290  GOSUB 1300
1295  END 
1300  PRINT TAB(15);
1302  FOR I=I1 TO I2
1305  Z[1]=T[J,I]
1310  GOSUB 9000
1320  NEXT I
1325  PRINT 
1330  RETURN 
2000  GOSUB 9700
2010  FOR J=1 TO 21
2020  IF U[J]=0 THEN 2060
2030  T[1,J]=T[1,J]+1
2040  T[2,J]=T[2,J]+U[J]
2060  NEXT J
2070  RETURN 
9000  REM
9005  V=Z2=Z3=Z4=Z5=Z7=Z8=Z9=1
9010  DIM V$[72],Y$[10],Z$[72]
9015  Y$="0123456789"
9020  Z0=Z9-1
9025  Z0=Z0+1
9030  IF Z0=LEN(Z$)+1 THEN 9350
9035  IF Z$[Z0,Z0]="#" THEN 9075
9040  IF Z$[Z0,Z0+1]=".#" THEN 9075
9045  IF Z$[Z0,Z0+1]="+#" THEN 9065
9050  V$[V,V]=Z$[Z0,Z0]
9055  V=V+1
9060  GOTO 9025
9065  Z4=0
9070  GOTO 9025
9075  Z=100
9080  Z6=Z[Z2]
9085  Z9=Z0-1
9090  Z9=Z9+1
9095  IF Z$[Z9,Z9]="." THEN 9110
9100  IF Z$[Z9,Z9]="#" THEN 9090
9105  GOTO 9130
9110  IF Z5#1 THEN 9130
9115  Z5=0
9120  Z=Z9
9125  GOTO 9090
9130  IF Z#100 THEN 9140
9135  Z=Z9
9140  IF Z4=1 THEN 9175
9145  IF Z6 >= 0 THEN 9165
9150  V$[V,V]="-"
9155  V=V+1
9160  GOTO 9175
9165  V$[V,V]=" "
9170  V=V+1
9175  IF Z=Z9 THEN 9190
9180  Z6=ABS(Z6)+5*10^(Z-Z9)
9185  GOTO 9195
9190  Z6=ABS(Z6)+.5
9195  Z7=10^(Z-Z0-1)
9200  Z4=10*Z7
9205  FOR Z1=Z-Z0 TO Z+1-Z9 STEP -1
9210  IF Z1#0 THEN 9235
9215  V$[V,V]="."
9220  V=V+1
9225  Z3=0
9230  GOTO 9330
9235  Z8=INT(Z6/Z7)
9240  IF Z6<Z4 THEN 9260
9245  V$[V,V]="#"
9250  V=V+1
9255  GOTO 9325
9260  Z6=Z6-Z8*Z7
9265  IF Z8=0 THEN 9275
9270  Z3=0
9275  IF Z3=0 THEN 9315
9280  IF Z1#1 THEN 9300
9285  V$[V,V]="0"
9290  V=V+1
9295  GOTO 9325
9300  V$[V,V]=X$
9305  V=V+1
9310  GOTO 9325
9315  V$[V,V]=Y$[Z8+1,Z8+1]
9320  V=V+1
9325  Z7=Z7/10
9330  NEXT Z1
9335  Z3=Z4=Z5=Z7=1
9340  Z2=Z2+1
9345  GOTO 9020
9350  PRINT V$;
9355  V$=""
9360  RETURN 
9700  REM ****BREAD UP Q INTO U****
9710  J=1
9720  FOR I=5 TO 9
9730  U[J]=INT(P[I]/1000)
9740  U[J+1]=P[I]-U[J]*1000
9750  J=J+2
9760  NEXT I
9765  FOR I=10 TO 13
9770  U[J]=INT(P[I]/10^4)
9772  U[J+1]=INT((P[I]-U[J]*10^4)/100)
9774  U[J+2]=P[I]-U[J]*10^4-U[J+1]*100
9776  J=J+3
9778  NEXT I
9780  RETURN 
9999  END 
