10REM: Start 20MODE7:VDU23;8202;0;0;0; 30PRINTTAB(0,0)CHR$141CHR$131CHR$157C HR$129" ELECTRICITY and GAS CONSUMPTION "CHR$156TAB(0,1)CHR$141CHR$131CHR$157C HR$129" ELECTRICITY and GAS CONSUMPTION "CHR$156 40PRINTTAB(0,2)CHR$141CHR$131CHR$157C HR$129" and COST PROGRAMS "CHR$156TAB(0,3)CHR$141CHR$131CHR$157C HR$129" and COST PROGRAMS "CHR$156 50PRINTTAB(8,6)CHR$131CHR$157CHR$129" by Ron Boyce (K2H) "CHR$156 60PROCjingle 70PRINTTAB(1,9)CHR$135CHR$157CHR$129" Press 1 if you are using these "CHR$ 156TAB(1,10)CHR$135CHR$157CHR$129" Programs for the first "CHR$156 80PRINTTAB(1,11)CHR$135CHR$157CHR$129 " time and/or you want to "CHR $156TAB(1,12)CHR$135CHR$157CHR$129" read the INSTRUCTIONS "CHR$156 90PRINTTAB(1,15)CHR$135CHR$157CHR$129 "Press 2 if you do NOT want "CHR $156TAB(1,16)CHR$135CHR$157CHR$129" the INSTRUCTIONS "CHR$156 100PRINTTAB(1,16)CHR$135CHR$157CHR$129 " the INSTRUCTIONS "CHR $156 110PRINTTAB(10,20)CHR$141CHR$131CHR$15 7CHR$129"Press 1 or 2 "CHR$156TAB(10)C HR$141CHR$131CHR$157CHR$129"Press 1 or 2 "CHR$156:A=GET 120IF A<49 OR A>50 THEN VDU7:PRINTTAB( 10,20)CHR$141CHR$129CHR$157CHR$135"Press 1 or 2 "CHR$156TAB(10)CHR$141CHR$129CH R$157CHR$135"Press 1 or 2 "CHR$156:FOR X = 1 TO 3000:NEXT X:GOTO 110 130IF A=49 THEN CHAIN"Instruc" 140IF A=50 THEN CHAIN"E/Gmenu" 150END 160REM: ***** 170PRINTTAB(1)CHR$131CHR$157CHR$129" read the INSTRUCTIONS "CHR$15 6 180PRINTTAB(1)CHR$131CHR$157CHR$129" the INSTRUCTIONS "CHR$15 6 190DEFPROCjingle 200ENVELOPE8,1,0,0,0,0,0,0,120,0,0,-1, 100,100 210chan%=1 220RESTORE320 230FORu=1TO7 240READnote,dur 250dur=dur+2 260SOUNDchan%,8,note,dur 270FORT=1TO400:NEXT 280chan%=chan%+1:IFchan%=4chan%=1 290NEXT 300ENDPROC 310REM: Jingle DATA 320DATA129,4,125,4,109,4,101,4,89,4,81 ,4,77,4 330END 340REM: *****