10MODE1:VDU19,128,132;0; 20T$=" ELECTRIC APPLIANCE RATING S" 30L$=STRING$(40,"`") 40PRINTT$ 50PRINTL$;"First, find your torch.... ":PRINT 60PRINT"This program calculates the p ower consumption and running costs of any electrical appliance. The onl y data you have to enter is the time you r electricity meter takes to ma ke one or" 70PRINT"more revs, first without the item you want to rate, then with it. J ust follow the program prompts. Timing 2 or 3 revs should be slightly more accur ate than 1." 80PRINT"THIS PROGRAM ASSUMES THAT: 1)Your electricity meter revo lves at a rate of 112.5 revs/kWh - it should say on the meter. If not, adjust variable REVS approp riately." 90PRINT:PRINT"2)Your electricity cost s 7.27 p/unit. If not, change variab le PENCE to suit." 100PRINT"3)You have turned off any ite m which uses power intermittently, such as a fridge, which could confuse the situation. "; 110PRINT"And don't blame me if you forget to turn it back on and your ice cream melts. Try a straw..." 120PRINT:PRINT"PRESS ANY KEY" 130A$=GET$ 140ONERRORGOTO620 150MODE6:VDU19,0,4;0; 160REVS=112.5 170PENCE=7.27 180Y=16 190F=3600/REVS 200PRINTT$ 210PRINTL$ 220PRINT:INPUT"WHICH ELECTRICAL ITEM", IT$;":" 230IF IT$=""THENIT$="APPLIANCE" 240CLS:PRINT"RATING AND RUNNING COSTS OF ";IT$;":" 250PRINTL$;"First enter timing without ";IT$;":" 260PRINT"(if meter stationary just pre ss RETURN)" 270PRINT 280INPUT"NO. OF REVS",R1 290IFR1=0THENW1=0:PRINT:PRINT"EVERYTHI NG ELSE TURNED OFF":Y=13:GOTO420 300PRINT:PRINT"ENTER TOTAL TIME - MINS & SECS:" 310INPUT"MINS",M1 320INPUT"SECS",S1 330T1=M1*60+S1 340IF T1<=0THEN620 350 PRINTTAB(0,7)"TOTAL TIME= ";M1;"mi n";S1;"sec. " 360PRINTSTRING$(10," ") 370TR1=T1/R1 380W1=INT(1000*(F/TR1)) 390PRINT"Rating without ";IT$;"= ";W1; " watts." 400C1=INT(PENCE*W1/10)/100 410PRINT"COST= ";C1;"p/hour or ";C1*24 ;"p/day." 420PRINTL$;"Now enter timing with ";IT $;":" 430PRINT 440INPUT"NO. OF REVS",R2 450PRINT:PRINT"ENTER TOTAL TIME - MINS & SECS:" 460INPUT"MINS",M2 470INPUT"SECS",S2 480 PRINTTAB(0,Y)"TOTAL TIME= ";M2;"mi n";S2;"sec. " 490Y=16 500PRINTSTRING$(10," ") 510T2=M2*60+S2 520TR2=T2/R2 530W2=INT(1000*(F/TR2)) 540IFW2-W1<0THEN620 550PRINT"Rating of ";IT$;"= ";W2-W1;" watts." 560C2=INT(PENCE*(W2-W1)/10)/100 570 PRINT"COST= ";C2;"p/hour or ";C2*2 4;"p/day." 580PRINTL$ 590PRINT"PRESS: N FOR NEW RUN SPACE TO ESCAPE" 600A$=GET$:IF A$="N" THEN150 610END 620PRINTL$ 630PRINT"A GLITCH HAS OCCURRED-PLEASE CHECK DATA" 640PRINT:PRINT"PRESS: R TO REPEAT SPACE TO ESCAPE" 650A$=GET$:IF A$="R"THEN240