10 REM:MODStart 20 MODE7:VDU23;8202;0;0;0; 30 PRINTTAB(0,0)CHR$141CHR$131CHR$157CHR$129" ELECTRICITY and GAS CONSUMPTION "CHR$156TAB(0,1)CHR$141CHR$131CHR$157CHR$129" ELECTRICITY and GAS CONSUMPTION "CHR$156 40 PRINTTAB(0,2)CHR$141CHR$131CHR$157CHR$129" and COST PROGRAMS "CHR$156TAB(0,3)CHR$141CHR$131CHR$157CHR$129" and COST PROGRAMS "CHR$156 50 PRINTTAB(8,6)CHR$131CHR$157CHR$129"by Ron Boyce (K2H) "CHR$156 60 PROCjingle 70 PRINTTAB(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 80 PRINTTAB(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 90 PRINTTAB(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 100 PRINTTAB(1,16)CHR$135CHR$157CHR$129" the INSTRUCTIONS "CHR$156 110 PRINTTAB(10,20)CHR$141CHR$131CHR$157CHR$129"Pressˆ1‰orˆ2‰ "CHR$156TAB(10)CHR$141CHR$131CHR$157CHR$129"Pressˆ1‰orˆ2‰ "CHR$156:A=GET 120 IF A<49 OR A>50 THEN VDU7:PRINTTAB(10,20)CHR$141CHR$129CHR$157CHR$135"Pressˆ1‰orˆ2 "CHR$156TAB(10)CHR$141CHR$129CHR$157CHR$135"Pressˆ1‰orˆ2‰ "CHR$156:FOR X = 1 TO 3000:NEXT X:GOTO 110 130 IF A=49 THEN CHAIN"Instruc" 140 IF A=50 THEN CHAIN"E/Gmenu" 150 END 160 REM:EOR***** 170 PRINTTAB(1)CHR$131CHR$157CHR$129" read the INSTRUCTIONS "CHR$156 180 PRINTTAB(1)CHR$131CHR$157CHR$129" the INSTRUCTIONS "CHR$156 190 DEFPROCjingle 200 ENVELOPE8,1,0,0,0,0,0,0,120,0,0,-1,100,100 210 chan%=1 220 RESTORE320 230 FORu=1TO7 240 READnote,dur 250 dur=dur+2 260 SOUNDchan%,8,note,dur 270 FORT=1TO400:NEXT 280 chan%=chan%+1:IFchan%=4chan%=1 290 NEXT 300 ENDPROC 310 REM:MODJingle DATA 320 DATA129,4,125,4,109,4,101,4,89,4,81,4,77,4 330 END 340 REM:EOR*****