1  REM * PRINTS TOTAL (FOR ALL PTS) AVE$ USAGE AND PUTS ON G0 *
8  DIM P[13],U[30],W[30]
9  DIM A$[3]
10  DIM P$[10],X$[20]
20  READ O,O1,O2,N9
25  DATA 21,7,9,13
50  DATA "G1","G2","G3","G4","G5","G6","G7","G8","G9"
100  FILES G1,G0
110  FOR I=1 TO O
120  READ #2;W[I]
130  NEXT I
140  READ #2;A1,A2,B1,B2,C1,C2,K5,K6
295  T1=0
300  Q=1
302  Q3=0
305  READ A$
310  ASSIGN A$,1,W5
315  IF  END #1 THEN 345
320  READ #1;P$
325  MAT  READ #1;P
330  IF P[1]=0 THEN 345
335  GOSUB 400
340  GOTO 320
345  IF Q3 OR (Q#2 AND Q#4 AND Q#7) THEN 365
350  A$[3]="A"
355  Q3=1
360  GOTO 310
365  PRINT Q
367  Q=Q+1
370  IF Q>9 THEN 440
375  GOTO 302
400  REM
405  GOSUB 9700
410  GOSUB 9200
420  T1=T1+T
425  RETURN 
440  X$=" "
445  Z$="$#######.##"
447  Z[1]=T1
460  PRINT "TOTAL AVERAGE WEEKLY $ USAGE (T) ";
465  GOSUB 7000
467  PRINT 
490  PRINT #2;T1, END 
495  END 
7000  REM
7003  LET Z2=Z3=Z4=Z5=Z7=Z8=Z9=1
7004  DIM Y$[10],Z$[72]
7005  LET Y$="0123456789"
7006  LET Z0=Z9-1
7007  LET Z0=Z0+1
7008  IF Z0=LEN(Z$)+1 THEN 7059
7009  IF Z$[Z0,Z0]="#" THEN 7016
7010  IF Z$[Z0,Z0+1]=".#" THEN 7016
7011  IF Z$[Z0,Z0+1]="+#" THEN 7014
7012  PRINT Z$[Z0,Z0];
7013  GOTO 7007
7014  LET Z4=0
7015  GOTO 7007
7016  LET Z=100
7017  LET Z6=Z[Z2]
7018  LET Z9=Z0-1
7019  LET Z9=Z9+1
7020  IF Z$[Z9,Z9]="." THEN 7023
7021  IF Z$[Z9,Z9]="#" THEN 7019
7022  GOTO 7027
7023  IF Z5#1 THEN 7027
7024  LET Z5=0
7025  LET Z=Z9
7026  GOTO 7019
7027  IF Z#100 THEN 7029
7028  LET Z=Z9
7029  IF Z4=1 THEN 7034
7030  IF Z6 >= 0 THEN 7033
7031  PRINT "-";
7032  GOTO 7034
7033  PRINT " ";
7034  LET Z6=ABS(Z6)+10^(Z-Z9-1)
7035  FOR Z1=Z-Z0 TO Z+1-Z9 STEP -1
7036  IF Z$[Z-Z1,Z-Z1]#"." THEN 7041
7037  PRINT ".";
7038  LET Z3=0
7039  LET Z7=2
7040  GOTO 7055
7041  LET Z8=INT(Z6/(10^(Z1+Z7-2)))
7042  IF Z6<10^(Z-Z0) THEN 7045
7043  PRINT "#";
7044  GOTO 7055
7045  LET Z6=Z6-Z8*10^(Z1+Z7-2)
7046  IF Y$[Z8+1,Z8+1]="0" THEN 7048
7047  LET Z3=0
7048  IF Z3=0 THEN 7054
7049  IF Z1#1 THEN 7052
7050  PRINT "0";
7051  GOTO 7055
7052  PRINT X$;
7053  GOTO 7055
7054  PRINT Y$[Z8+1,Z8+1];
7055  NEXT Z1
7056  LET Z3=Z4=Z5=Z7=1
7057  LET Z2=Z2+1
7058  GOTO 7006
7059  RETURN 
9200  REM ****DETERMINE T--TOTAL AVE. WEEKLY $ USAGE OF ITEM****
9202  T=0
9230  FOR I=1 TO O
9232  IF U[I]=99 THEN 9240
9235  T=T+(P[2]*U[I]*W[I])
9240  NEXT I
9245  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 N9
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 
