5 REM HOME       
7 LET N=0
8 REM 7-1-81
10 REM THIS PROGRAM IS A 8K VERSION OF THE METER PROGRAM
20 DIM A(48,6)
60 PRINT "TO ACCESS GAS,WATER,ELECTRICTY,OR CLOSE FILE "
70 PRINT "TYPE FIRST LETTER (G,W,E,C)";
80 LET G=PUT(GET(X))
100 LET C=0
120 IF G<>71 THEN GO TO 140 \C=0\R=.399\V=18.9\GO TO 250 
140 IF G<>87 THEN 160 \C=12\R=1.9529\V=4.948\GO TO 250 
160 IF G<>69 THEN 180 \C=24\R=.2761\V=3.25\GO TO 250 
180 IF G<>67 THEN 200 \GO TO 1000 
200 PRINT \PRINT "INVALID ENTRY "\GO TO 60 
250 PRINT \PRINT "TO MODIFY OR PRINT TABLE TYPE IN FIRST LETTER (M,P)";
260 LET H=PUT(GET(X))
270 IF H=80 THEN 500 
280 IF H=77 THEN 300 
290 PRINT \PRINT "INVALID ENTRY "\GO TO 250 
300 PRINT \PRINT "ENTER MONTH NUMBER (1 TO 12) ";\INPUT M
310 IF M>12 THEN 300 
315 REM L=LINE NUMBER IN ARRAY
320 LET L=M+C
330 PRINT "INPUT LAST READING ";\INPUT A(L,1)
340 PRINT "INPUT NEW READING ";\INPUT A(L,2)
350 LET A(L,3)=A(L,2)-A(L,1)
360 LET A(L,4)=(A(L,3)*R)+V
370 PRINT "INPUT AMOUNT PAID THIS MONTH ";\INPUT A(L,5)
380 REM WORK OUT TOTAL BALANCE AND STORE IN A(L,6)
400 LET B=0\LET T=0
410 FOR Z=C+1 TO L
420 LET T=A(Z,4)+T
430 LET B=A(Z,5)+B
440 NEXT Z
450 LET A(L,6)=T-B
460 GO TO 60 
500 REM PRINT ROUTINE
510 PRINT \PRINT \RESTORE
520 IF G<>71 THEN 530 \PRINT "GAS USE FOR YEAR 1981 "
530 IF G<>87 THEN 540 \PRINT "WATER USE FOR 1981 "
540 IF G<>69 THEN 550 \PRINT "ELECTRICTY USE FOR YEAR 1981 "
550 PRINT "COST PER UNIT";R;"COST PER MONTH";V
560 PRINT \PRINT 
570 PRINT TAB(N);"MONTH     OLD       NEW       USED      COST      BILLS";
575 PRINT "     BALANCE"
580 PRINT TAB(N);"---------------------------------------------------------";
585 PRINT "----------"
600 FOR L=C+1 TO C+12
610 READ O\READ P\READ Q
615 PRINT TAB(N);\X9=PUT(O)=PUT(P)=PUT(Q)
616 PRINT TAB(N+10);A(L,1);TAB(N+20);A(L,2);TAB(N+30);A(L,3);TAB(N+40);A(L,4);
617 PRINT TAB(N+50);A(L,5);TAB(N+60);A(L,6)
640 NEXT L
650 PRINT \PRINT \GO TO 60 
700 DATA 74,65,78,70,69,66,77,65,82,65,80,82,77,65,89,74
710 DATA 85,78,74,85,76,65,85,71,83,69,80,79,67,84,78,79
720 DATA 86,68,69,67
1000 END