10 REM:MODEleMenu 20 *FX18 30 *KEY0 CLS|M LIST 2720,2820|M A=GET:GOTO140|M 40 *KEY1 ?&FE4E=&7F:CALL!-4|M|N 50 *KEY7 MODE135|M|N *FX4|M *FX200|M LISTO 1|M LIST|M|N 60 *KEY8 RUN|M 70 *KEY9 MODE135|M|N *FX4|M *FX200|M LISTO 1|M LIST|M|N 80 VDU14 90 MODE7:VDU23;8202;0;0;0; 100 PROCbasicinfo 110 PROCmenu 120 END 130 REM:EOR***** 140 CLS:PRINTTAB(0,0)"‡Week"TAB(8,0)"Normal"TAB(17,0)" Units"TAB(25,0)"‚Low"TAB(33,0)"‚Units"TAB(0,1)STRING$(40,"-")TAB(0,19)STRING$(40,"-") 150 PRINTTAB(0,18)"Previous" 160 X=1:Y=17 170 PRINTTAB(3,Y);X:Y=Y-1:X=X+1 180 IF Y=8 THEN GOTO 190 ELSE GOTO 170 190 X=10:Y=8 200 IF Y<9 THEN PRINTTAB(2,Y);X:Y=Y-1:X=X+1 210 IF Y=1 THEN GOTO 220 ELSE GOTO200 220 F=OPENOUT("ELECT") 230 w%=0:Y=18 240 IF w%=0 THEN PRINTTAB(0,18)"Previous" 250 PRINTTAB(1,20)"EnterPrevious Normal Reading‡as shown"TAB(1,21)" on your last Electricity Bill":PROCbeep:INPUT;" ";normreadw% 260 PRINTTAB(1,23)"ƒIs that correct? Y/N":A=GET:PROCclear2 270 IF A=89 OR A=121 THEN PROCclear2:GOTO300 280 IF A=78 OR A=110 THEN PROCclear2:GOTO 250 290 PROCrasp:PROCclear:FOR X=1 TO 2000:NEXT X:GOTO 250 300 PROCnormunits:PROCclear:PROCnorre:PROCnorun 310 PRINTTAB(1,20)"Enter‚Previous Low Reading‡as shown on"TAB(1,21)" your last Electricity Bill":PROCbeep:INPUT;"‚";lowreadw% 320 PRINTTAB(1,23)"ƒIs that correct? Y/N":A=GET:PROCclear2 330 IF A=89 OR A=121 THEN PROCclear2:GOTO 360 340 IF A=78 OR A=110 THEN PROCclear2:GOTO 310 350 PROCrasp:PROCclear:FOR X=1 TO 2000:NEXT X:GOTO 250 360 PROClowunits:PROCclear:PROClowre:PROClowun 370 PROCclear:PRINTTAB(3,20)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds"TAB(3)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds":PROCpause 380 PRINT#F,w%,normreadw%,normunitsw%,lowreadw%,lowunitsw% 390 PROCclear2:PRINTTAB(4,20)CHR$141"FileƒELECT‡is now beingCREATED"TAB(4,21)CHR$141"FileƒELECT‡is now beingCREATED":PROCpause 400 CLOSE#F 410 PROCpause:RUN 420 REM:EOR***** 430 ON ERROR GOTO 870 440 CLS:PRINTTAB(0,0)"‡Week"TAB(8,0)"Normal"TAB(17,0)" Units"TAB(25,0)"‚Low"TAB(33,0)"‚Units"TAB(0,1)STRING$(40,"-")TAB(0,19)STRING$(40,"-") 450 PRINTTAB(0,18)"Previous" 460 X=1:Y=17 470 PRINTTAB(3,Y);X:Y=Y-1:X=X+1 480 IF Y=8 THEN GOTO 490 ELSE GOTO 470 490 X=10:Y=8 500 IF Y<9 THEN PRINTTAB(2,Y);X:Y=Y-1:X=X+1 510 IF Y=1 THEN GOTO 520 ELSE GOTO500 520 F=OPENUP("ELECT") 530 w%=0:Y=18 540 REPEAT 550 INPUT#F,w%,normreadw%,normunitsw%,lowreadw%,lowunitsw% 560 IF w%=0 THEN PROCclear:PRINTTAB(0,Y)"Previous":PROCnorre:PROCnorun:PROClowre:PROClowun:PROCnormunits:PROClowunits 570 IF w%>0 AND w%<10 THEN PROCclear:PRINTTAB(3,Y);w%;:PROCnorre:PROCnorun:PROClowre:PROClowun:PROCnormunits:PROClowunits 580 IF w%>9 AND w%<17 THEN PROCclear:PRINTTAB(2,Y);w%:PROCnorre:PROCnorun:PROClowre:PROClowun:PROCnormunits:PROClowunits 590 w%=w%+1:Y=Y-1 600 UNTIL EOF#F 610 ON ERROR GOTO 870 620 REPEAT 630 PRINTTAB(0,18)"Previous" 640 IF w%>0 AND w%<10 THEN GOTO660 650 IF w%>9 AND w%<17 THEN GOTO710 660 IF w%>0 AND w%<10 THEN PRINTTAB(2,Y);"ˆ";w%;"‰" 670 IF w%>0 AND w%<10 THEN PRINTTAB(2,20)"EnterNormal Reading‡for week ";w%:PROCbeep:INPUT;" ";normreadw%:PRINTTAB(1,22)"ƒIs that correct? Y/N":A=GET:PROCclear2 680 IF A=89 OR A=121 THEN PROCclear2:GOTO 740 690 IF A=78 OR A=110 THEN PROCclear2:GOTO 670 700 PROCclear:GOTO 670 710 IF w%>9 AND w%<17 THEN PRINTTAB(1,Y);"ˆ";w%;"‰" 720 IF w%>9 AND w%<17 THEN PRINTTAB(2,20)"EnterNormal Reading‡for week ";w%:PROCbeep:INPUT;" ";normreadw% 730 IF w%>9 AND w%<17 THEN PRINTTAB(1,Y);"ˆ";w%; 732 IF w%>9 AND w%<17 THEN PRINTTAB(1,22)"ƒIs that correct? Y/N‡":A=GET:PROCclear2 734 IF A=89 OR A=121 THEN PROCclear2:GOTO 740 736 IF A=78 OR A=110 THEN PROCclear2:GOTO720 740 PROCnormunits:PROCclear:PROCnorre:PROCnorun 750 PRINTTAB(2,20)"Enter‚Low Reading‡for week ";w%:PROCbeep:INPUT;" ‚";lowreadw% 760 PRINTTAB(1,22)"ƒIs that correct? Y/N":A=GET:PROCclear2 770 IF A=89 OR A=121 THEN PROCclear2:GOTO 800 780 IF A=78 OR A=110 THEN PROCclear2:GOTO 750 790 PROCclear:GOTO 750 800 IF w%>0 AND w%<10 THEN PROClowunits:PROCclear:PROClowre:PROClowun:PRINTTAB(2,Y);"‰";w% 810 IF w%>9 AND w%<17 THEN PROClowunits:PROCclear:PROClowre:PROClowun:PRINTTAB(1,Y);"‰";w% 820 PROCclear2:PRINTTAB(3,20)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds"TAB(3,21)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds":PROCpause 830 PRINT#F,w%,normreadw%,normunitsw%,lowreadw%,lowunitsw% 840 IF w%>15 THEN PROCclear2:PRINTTAB(0,20)"‡PressESCAPE toSAVE‡readings to week ":PRINTTAB(0,21);"";w%:PROCting:A=GET:PROCclear2:PROCwait:PROCpause:CLOSE#F:RUN 850 IF w%<16 THEN PROCclear2:PRINTTAB(0,20)"‡PressESCAPE toSAVE‡readings to week ":PRINTTAB(0,21);"";w%;"‡OR‚any other key‡to enter readings":PRINTTAB(14,22)"for week‚";w%+1:w%=w%+1:Y=Y-1:PROCting:A=GET:PROCclear2 860 UNTIL FALSE 870 IF ERR=17 THEN PROCclear2:PRINTTAB(3,20)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds"TAB(3,21)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds":PROCpause 880 IF ERR<>17 THEN CLS:REPORT:PRINT" at line ";ERL:STOP 890 CLOSE#F 900 PROCclear2:PRINTTAB(3,20)CHR$141"‚FileƒELECT‚has beenSAVED‚O.K."TAB(3,21)CHR$141"‚FileƒELECT‚has beenSAVED‚O.K.":PROCpause:RUN 910 REM:EOR***** 920 CLS:PRINTTAB(0,0)"‡Week"TAB(8,0)"Normal"TAB(17,0)" Units"TAB(25,0)"‚Low"TAB(33,0)"‚Units"TAB(0,1)STRING$(40,"-")TAB(0,19)STRING$(40,"-") 930 PRINTTAB(0,18)"Previous" 940 X=1:Y=17 950 PRINTTAB(3,Y);X:Y=Y-1:X=X+1 960 IF Y=8 THEN GOTO 970 ELSE GOTO 950 970 X=10:Y=8 980 IF Y<9 THEN PRINTTAB(2,Y);X:Y=Y-1:X=X+1 990 IF Y=1 THEN GOTO 1000 ELSE GOTO980 1000 F=OPENIN("ELECT") 1010 w%=0:Y=18 1020 REPEAT 1030 INPUT#F,w%,normreadw%,normunitsw%,lowreadw%,lowunitsw% 1040 IF w%=0 THEN PRINTTAB(0,18)"Previous":PROCnormunits:PROCnorre:PROCnorun 1050 IF w%>0 AND w%<10 THEN PROCnormunits:PRINTTAB(3,Y);w%;:PROCnorre:PROCnorun 1060 IF w%>9 AND w%<18 THEN PROCnormunits:PRINTTAB(2,Y);w%:PROCnorre:PROCnorun 1070 PROClowunits:PROClowre:PROClowun 1080 w%=w%+1:Y=Y-1 1090 UNTIL EOF#F 1100 CLOSE#F 1110 IF w%=0 THEN PROCclear:PRINTTAB(0,20)CHR$141CHR$135CHR$157CHR$132"Press a key for Electricity Menu "CHR$156TAB(0,21)CHR$141CHR$135CHR$157CHR$132"Press a key for Electricity Menu "CHR$156:PROCting:A=GET:RUN 1120 PROCclear:PRINTTAB(1,20)CHR$141CHR$135CHR$157CHR$132"Press a key for Cost to week ";w%-1;" "CHR$156TAB(1,21)CHR$141CHR$135CHR$157CHR$132"Press a key for Cost to week ";w%-1;" "CHR$156:PROCting:A=GET:CLS 1130 PRINTTAB(0,2)CHR$141CHR$135CHR$157CHR$132"COST OF ELECTRICITY TO WEEK ";w%-1;" "CHR$156:PRINTTAB(0,3)CHR$141CHR$135CHR$157CHR$132"COST OF ELECTRICITY TO WEEK ";w%-1;" "CHR$156 1140 Total1=normreadw%-normA 1150 PROCclear:PRINTTAB(0,6);"";Total1;"Normal Units @ .0";normalunitcost;"=":@%=&020208:Total2=Total1*normalunitcost/10000:PRINTTAB(29,6);"`":PROCtot2:@%=10 1160 Total3=lowreadw%-lowA 1170 PRINTTAB(0,9);"‚";Total3;"‚Low Units @ .0";lowunitcost;"‚=":@%=&020208:Total4=Total3*lowunitcost/1000:PRINTTAB(29,9);"‚`":PROCtot4:@%=10 1180 Total5=standingcharge/100 1190 PRINTTAB(0,12)"…Plus Standing Charge of ":PRINTTAB(30,12);"`":@%=&020208:PRINTTAB(31,12):PROCtot5:@%=10 1200 Total6=(Total2+Total4+Total5)/100*8 1210 PRINTTAB(0,15)"ƒPlus VAT @ 8% = ":PRINTTAB(30,15);"`":@%=&020208:PRINTTAB(31,15):PROCtot6:@%=10 1220 Total7=(Total2+Total4+Total5+Total6) 1230 PRINTTAB(0,18)"†Total cost of Electricity =":@%=&020208:PROCtot7:@%=10 1240 PRINTTAB(0,21)CHR$141CHR$135CHR$157CHR$132"Pressˆany key‰for Electricty Menu "CHR$156TAB(0,22)CHR$141CHR$135CHR$157CHR$132"Pressˆany key‰for Electricty Menu "CHR$156:PROCting:A=GET:RUN 1250 REM:EOR***** 1260 DEFPROCmenu 1270 PROCbasicinfo:CLS:PROCtitle1 1280 PRINTTAB(10,2)CHR$135CHR$157CHR$132"Electricity Menu "CHR$156 1290 PRINTTAB(0,4)CHR$141"‚Press 1 if using this Program for the"TAB(0,5)CHR$141"‚Press 1 if using this Program for the"TAB(0,6)CHR$141"‚first time in a 13+ week period"TAB(0,7)CHR$141"‚first time in a 13+ week period" 1300 PRINTTAB(0,8)CHR$141"ƒPress 2 to enter readings"TAB(0,9)CHR$141"ƒPress 2 to enter readings" 1310 PRINTTAB(0,10)CHR$141"†Press 3 to see readings entered to"TAB(0,11)CHR$141"†Press 3 to see readings entered to"TAB(0,12)CHR$141"†date - and total cost of electricity"TAB(0,13)CHR$141"†date - and total cost of electricity" 1320 PRINTTAB(0,14)CHR$141"„Press 4 for GAS Program"TAB(0,15)CHR$141"„Press 4 for GAS Program" 1330 PRINTTAB(0,16)CHR$141"‡Press 5 for SOUND‚On‡orOFF"TAB(0,17)CHR$141"‡Press 5 for SOUND‚On‡orOFF" 1340 PRINTTAB(0,18)CHR$141"…Press 6 for Instructions"TAB(0,19)CHR$141"…Press 6 for Instructions" 1350 PRINTTAB(0,20)CHR$141"Press 7 to QUIT Program"TAB(0,21)CHR$141"Press 7 to QUIT Program" 1360 PRINTTAB(6,23)CHR$135CHR$157CHR$132"Pressˆ1 2 3 4 5 6‰orˆ7 "CHR$156:PROCting:A=GET 1370 IF A<49 OR A>55 THEN PRINTTAB(6,23)CHR$132CHR$157CHR$135"Pressˆ1 2 3 4 5 6‰orˆ7 "CHR$156:PROCrasp:PROCpause:GOTO1360 1380 IF A=49 THEN GOTO1470 1390 IF A=50 THEN GOTO430 1400 IF A=51 THEN GOTO920 1410 IF A=52 THEN CHAIN"GasMenu" 1420 IF A=53 THEN CHAIN"Sound" 1430 IF A=54 THEN CHAIN"Instruc" 1440 IF A=55 THEN CHAIN"Quit" 1450 ENDPROC 1460 END 1470 REM:EOR***** 1480 CLS:PRINTTAB(1,1)CHR$141"Did you pressˆ1‰by mistake?‚Y‡orN?"TAB(1,2)CHR$141"Did you pressˆ1‰by mistake?‚Y‡orN?"TAB(10,3)"ƒ-------------------" 1490 PRINTTAB(0,6)"‡If you press‚Y (for YES)‡then you will"TAB(0,7)" be returned to the Menu and can select" 1500 PRINTTAB(0,8)"‡another number/choice" 1510 PRINTTAB(0,12)" If you pressN (for NO)‡you willWIPE"TAB(0,13)"OUTˆALL‰PREVIOUS READINGS‡and will"TAB(0,14)" then be able to enter new readings for"TAB(0,15)" a new 13+ week period." 1520 PRINTTAB(11,21)CHR$141"ˆPress‚Y‡orN"TAB(11,22)CHR$141"ˆPress‚Y‡orN":PROCting:A=GET 1530 IF A=78 OR A=110 THEN CLS:GOTO1550 1540 IF A=89 OR A=121 THEN RUN 1550 PROCtitle1:PRINTTAB(4,6)"As this is the first time you are"TAB(0,7)"using this Program, it isESSENTIAL‡that"TAB(0,8)"you should first confirm/amend certain"TAB(0,9)"basic data on the next page." 1560 PRINTTAB(4,11)"(All these figures appear on your"TAB(0,12)"last Gas Bill, and should be carefully"TAB(0,13)"checked.)" 1570 PRINTTAB(5,22)CHR$135CHR$157CHR$132"Press any key to continue "CHR$156:PROCting:A=GET 1580 *FX138,0,128 1590 END 1600 DEFPROCnorre 1610 IF normreadw%<10 THEN PRINTTAB(13,Y);"";normreadw%:ENDPROC 1620 IF normreadw%>9 AND normreadw%<100 THEN PRINTTAB(12,Y);"";normreadw%:ENDPROC 1630 IF normreadw%>99 AND normreadw%<1000 THEN PRINTTAB(11,Y);"";normreadw%:ENDPROC 1640 IF normreadw%>999 AND normreadw%<10000 THEN PRINTTAB(10,Y);"";normreadw%:ENDPROC 1650 IF normreadw%>9999 AND normreadw%<100000 THEN PRINTTAB(9,Y);"";normreadw%:ENDPROC 1660 ENDPROC 1670 IF INT Total7>9999 AND INT Total7<100000 THEN @%=&020208:PRINTTAB(27,18)"= ` ";Total7:@%=&10:ENDPROC 1680 ENDPROC 1690 REM:EOR***** 1700 DEFPROCnorun 1710 IF normunitsw%<10 THEN PRINTTAB(21,Y);"";normunitsw%:ENDPROC 1720 IF normunitsw%>9 AND normunitsw%<100 THEN PRINTTAB(20,Y);"";normunitsw%:ENDPROC 1730 IF normunitsw%>99 AND normunitsw%<1000 THEN PRINTTAB(19,Y);"";normunitsw%:ENDPROC 1740 IF normunitsw%>999 AND normunitsw%<10000 THEN PRINTTAB(18,Y);"";normunitsw%:ENDPROC 1750 IF normunitsw%>9999 AND normunitsw%<100000 THEN PRINTTAB(17,Y);"";normunitsw%:ENDPROC 1760 REM:EOR***** 1770 DEFPROCnormunits 1780 IF w%=0 THEN normA=normreadw%:normunitsw%=0:ENDPROC 1790 IF w%=1 THEN normB=normreadw%:normunitsw%=normB-normA:ENDPROC 1800 IF w%=2 THEN normC=normreadw%:normunitsw%=normC-normB:ENDPROC 1810 IF w%=3 THEN normD=normreadw%:normunitsw%=normD-normC:ENDPROC 1820 IF w%=4 THEN normE=normreadw%:normunitsw%=normE-normD:ENDPROC 1830 IF w%=5 THEN normF=normreadw%:normunitsw%=normF-normE:ENDPROC 1840 IF w%=6 THEN normG=normreadw%:normunitsw%=normG-normF:ENDPROC 1850 IF w%=7 THEN normH=normreadw%:normunitsw%=normH-normG:ENDPROC 1860 IF w%=8 THEN normI=normreadw%:normunitsw%=normI-normH:ENDPROC 1870 IF w%=9 THEN normJ=normreadw%:normunitsw%=normJ-normI:ENDPROC 1880 IF w%=10 THEN normK=normreadw%:normunitsw%=normK-normJ:ENDPROC 1890 IF w%=11 THEN normL=normreadw%:normunitsw%=normL-normK:ENDPROC 1900 IF w%=12 THEN normM=normreadw%:normunitsw%=normM-normL:ENDPROC 1910 IF w%=13 THEN normN=normreadw%:normunitsw%=normN-normM:ENDPROC 1920 IF w%=14 THEN normO=normreadw%:normunitsw%=normO-normN:ENDPROC 1930 IF w%=15 THEN normP=normreadw%:normunitsw%=normP-normO:ENDPROC 1940 IF w%=16 THEN normQ=normreadw%:normunitsw%=normQ-normP:ENDPROC 1950 REM:EOR***** 1960 DEFPROClowre 1970 IF lowreadw%<10 THEN PRINTTAB(29,Y);"‚";lowreadw%:ENDPROC 1980 IF lowreadw%>9 AND lowreadw%<100 THEN PRINTTAB(28,Y);"‚";lowreadw%:ENDPROC 1990 IF lowreadw%>99 AND lowreadw%<1000 THEN PRINTTAB(27,Y);"‚";lowreadw%:ENDPROC 2000 IF lowreadw%>999 AND lowreadw%<10000 THEN PRINTTAB(26,Y);"‚";lowreadw%:ENDPROC 2010 IF lowreadw%>9999 AND lowreadw%<100000 THEN PRINTTAB(25,Y);"‚";lowreadw%:ENDPROC 2020 ENDPROC 2030 REM:EOR***** 2040 DEFPROClowun 2050 IF lowunitsw%<10 THEN PRINTTAB(37,Y);"‚";lowunitsw%:ENDPROC 2060 IF lowunitsw%>9 AND lowunitsw%<100 THEN PRINTTAB(36,Y);"‚";lowunitsw%:ENDPROC 2070 IF lowunitsw%>99 AND lowunitsw%<1000 THEN PRINTTAB(35,Y);"‚";lowunitsw%:ENDPROC 2080 IF lowunitsw%>999 AND lowunitsw%<10000 THEN PRINTTAB(34,Y);"‚";lowunitsw%:ENDPROC 2090 IF lowunitsw%>9999 AND lowunitsw%<100000 THEN PRINTTAB(33,Y);"‚";lowunitsw%:ENDPROC 2100 ENDPROC 2110 REM:EOR***** 2120 DEFPROClowunits 2130 IF w%=0 THEN lowA=lowreadw%:lowunitsw%=0:ENDPROC 2140 IF w%=1 THEN lowB=lowreadw%:lowunitsw%=lowB-lowA:ENDPROC 2150 IF w%=2 THEN lowC=lowreadw%:lowunitsw%=lowC-lowB:ENDPROC 2160 IF w%=3 THEN lowD=lowreadw%:lowunitsw%=lowD-lowC:ENDPROC 2170 IF w%=4 THEN lowE=lowreadw%:lowunitsw%=lowE-lowD:ENDPROC 2180 IF w%=5 THEN lowF=lowreadw%:lowunitsw%=lowF-lowE:ENDPROC 2190 IF w%=6 THEN lowG=lowreadw%:lowunitsw%=lowG-lowF:ENDPROC 2200 IF w%=7 THEN lowH=lowreadw%:lowunitsw%=lowH-lowG:ENDPROC 2210 IF w%=8 THEN lowI=lowreadw%:lowunitsw%=lowI-lowH:ENDPROC 2220 IF w%=9 THEN lowJ=lowreadw%:lowunitsw%=lowJ-lowI:ENDPROC 2230 IF w%=10 THEN lowK=lowreadw%:lowunitsw%=lowK-lowJ:ENDPROC 2240 IF w%=11 THEN lowL=lowreadw%:lowunitsw%=lowL-lowK:ENDPROC 2250 IF w%=12 THEN lowM=lowreadw%:lowunitsw%=lowM-lowL:ENDPROC 2260 IF w%=13 THEN lowN=lowreadw%:lowunitsw%=lowN-lowM:ENDPROC 2270 IF w%=14 THEN lowO=lowreadw%:lowunitsw%=lowO-lowN:ENDPROC 2280 IF w%=15 THEN lowP=lowreadw%:lowunitsw%=lowP-lowO:ENDPROC 2290 IF w%=16 THEN lowQ=lowreadw%:lowunitsw%=lowQ-lowP:ENDPROC 2300 REM:EOR***** 2310 DEFPROCtot2 2320 IF INT Total2 <10 THEN @%=&020208:PRINTTAB(34,6)"";;Total2:@%=&10:ENDPROC 2330 IF INT Total2>9 AND INT Total2<100 THEN @%=&020208:PRINTTAB(33,6)"";Total2:@%=&10:ENDPROC 2340 IF INT Total2>99 AND INT Total2<1000 THEN @%=&020208:PRINTTAB(32,6)"";Total2:@%=&10:ENDPROC 2350 IF INT Total2>999 AND INT Total2<10000 THEN @%=&020208:PRINTTAB(31,6)"";Total2:@%=&10:ENDPROC 2360 ENDPROC 2370 REM:EOR***** 2380 DEFPROCtot4 2390 IF INT Total4 <10 THEN @%=&020208:PRINTTAB(34,9)"‚";Total4::@%=&10:ENDPROC 2400 IF INT Total4>9 AND INT Total4<100 THEN @%=&020208:PRINTTAB(33,9)"‚";Total4:@%=&10:ENDPROC 2410 IF INT Total4>99 AND INT Total4<1000 THEN @%=&020208:PRINTTAB(32,9)"‚";Total4:@%=&10:ENDPROC 2420 IF INT Total4>999 AND INT Total4<10000 THEN @%=&020208:PRINTTAB(31,9)"‚";Total4:@%=&10:ENDPROC 2430 ENDPROC 2440 REM:EOR***** 2450 DEFPROCtot5 2460 IF INT Total5 <10 THEN @%=&020208:PRINTTAB(34,12)"…";Total5:@%=&10:ENDPROC 2470 IF INT Total5 >9 AND INT Total5<100 THEN @%=&020208:PRINTTAB(33,12)"…";Total5::@%=&10:ENDPROC 2480 IF INT Total5>99 AND INT Total5<1000 THEN @%=&020208:PRINTTAB(32,12)"…";Total5:@%=&10:ENDPROC 2490 IF INT Total5>999 AND INT Total5<10000 THEN @%=&020208:PRINTTAB(31,12)"…";Total5:@%=&10:ENDPROC 2500 ENDPROC 2510 END 2520 REM:EOR***** 2530 DEFPROCtot6 2540 IF INT Total6 <10 THEN @%=&020208:PRINTTAB(34,15)"ƒ";Total6:@%=&10:ENDPROC 2550 IF INT Total6 >9 AND INT Total6<100 THEN @%=&020208:PRINTTAB(33,15)"ƒ";Total6:@%=&10:ENDPROC 2560 IF INT Total6>99 AND INT Total6<1000 THEN @%=&020208:PRINTTAB(32,15)"ƒ";Total6:@%=&10:ENDPROC 2570 IF INT Total6>99 AND INT Total6<1000 THEN @%=&020208:PRINTTAB(31,15)CHR$141"ƒ";Total6:@%=&10:ENDPROC 2580 IF INT Total6>999 AND INT Total6<10000 THEN @%=&020208:PRINTTAB(30,15)"ƒ";Total6:@%=&10:ENDPROC 2590 ENDPROC 2600 REM:EOR***** 2610 DEFPROCtot7 2620 IF INT Total7 <10 THEN @%=&020208:PRINTTAB(32,18)"†` ";Total7:@%=&10:ENDPROC 2630 IF INT Total7 >9 AND INT Total7<100 THEN @%=&020208:PRINTTAB(31,18)"†` ";Total7:@%=&10:ENDPROC 2640 IF INT Total7>99 AND INT Total7<1000 THEN @%=&020208:PRINTTAB(30,18)"†` ";Total7:@%=&10:ENDPROC 2650 IF INT Total7>999 AND INT Total7<10000 THEN @%=&020208:PRINTTAB(29,18)"†` ";Total7:@%=&10:ENDPROC 2660 IF INT Total7>9999 AND INT Total7<100000 THEN @%=&020208:PRINTTAB(27,18)"= ` ";Total7:@%=&10:ENDPROC 2670 ENDPROC 2680 REM:EOR***** 2690 2700 2710 DEFPROCbasicinfo 2720 2730 2740 normalunitcost=0725 2750 lowunitcost=027 2760 standingcharge=1308 2770 VAT=8 2780 2790 2800 REM:MODWhen you have altered or MODdecidedDIVNOTMODto change any MOD of these figures, press DIVSTEP DIV ANY KEYSTEPexcept ESCAPE MODto return to the Menu 2810 2820 2830 ENDPROC 2840 REM:EOR***** 2850 DEFPROCclear:PRINTTAB(0,20)SPC(40);:ENDPROC 2860 END 2870 REM:EOR***** 2880 DEFPROCclear1:PRINTTAB(0,20)SPC(80);:ENDPROC 2890 REM:EOR***** 2900 DEFPROCclear2:PRINTTAB(0,20)SPC(160);:ENDPROC 2910 REM:EOR***** 2920 DEFPROCpause:FOR X=1 TO 3000:NEXT X:ENDPROC 2930 REM:EOR***** 2940 DEFPROCpause1:FOR X=1 TO 1000:NEXT X:ENDPROC 2950 REM:EOR***** 2960 REM:EOR***** 2970 DEFPROCtitle:PRINTTAB(0,0)CHR$141CHR$131CHR$157CHR$129" ELECTRICITY/GAS PROGRAMS "CHR$156TAB(0,1)CHR$141CHR$131CHR$157CHR$129" ELECTRICITY/GAS PROGRAMS "CHR$156:ENDPROC 2980 REM:EOR***** 2990 DEFPROCtitle1:PRINTTAB(0,0)CHR$141CHR$135CHR$157CHR$132"ELECTRICITY CONSUMPTION and COST "CHR$156TAB(0,1)CHR$141CHR$135CHR$157CHR$132"ELECTRICITY CONSUMPTION and COST "CHR$156:ENDPROC 3000 REM:EOR***** 3010 DEFPROCbeep:SOUND2,-15,100,1:FOR X=1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC 3020 END 3030 REM:EOR***** 3040 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPROC 3050 REM:EOR***** 3060 DEFPROCrasp:ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SOUND1,1,80,10:ENDPROC 3070 REM:EOR***** 3080 DEFPROCjingle 3090 ENVELOPE8,1,0,0,0,0,0,0,120,0,0,-1,100,100 3100 chan%=1 3110 RESTORE3210 3120 FORu=1TO7 3130 READnote,dur 3140 dur=dur+2 3150 SOUNDchan%,8,note,dur 3160 FORT=1TO400:NEXT 3170 chan%=chan%+1:IFchan%=4chan%=1 3180 NEXT 3190 ENDPROC 3200 REM:MODJingle DATA 3210 DATA129,4,125,4,109,4,101,4,89,4,81,4,77,4 3220 END 3230 REM:EOR***** 3240 END