10REM: Quit
20VDU23;8202;0;0;0;
30CLS::PROCtitle:PRINTTAB(6,10)CHR$14
1CHR$131CHR$157CHR$129"ARE YOU SURE ? (Y
/N) "CHR$156TAB(6,11)CHR$141CHR$131CHR$
157CHR$129"ARE YOU SURE ? (Y/N) "CHR$15
6
40PRINTTAB(10,20)CHR$141CHR$131CHR$15
7CHR$129"Press Y or N "CHR$156TAB(10,21
)CHR$141CHR$131CHR$157CHR$129"Press Y or
N "CHR$156:PROCting:A=GET
50IF A=78 OR A=110 THEN CHAIN"EleMenu
"
60IF A=89 OR A=121 THEN *FX210,0
70CLS:PROCtitle:PRINTTAB(10,4)CHR$141
CHR$135CHR$157CHR$129" IMPORTANT "CHR$
156TAB(10,5)CHR$141CHR$135CHR$157CHR$129
" IMPORTANT "CHR$156
80PRINTTAB(0,9)"Although these Progra
ms have been made"TAB(0,10)"as 'error-tr
apped' as possible, you are"TAB(0,11)"st
rongly advised to make a 'BACKUP' copy"T
AB(0,12)"of the whole disc as soon as po
ssible in"
90PRINTTAB(0,13)"case you accidentall
y erase any of the"TAB(0,14)"Programs."
100PRINTTAB(9,21)CHR$141CHR$131CHR$157
CHR$129"Press any key "CHR$156TAB(9,22)
CHR$141CHR$131CHR$157CHR$129"Press any k
ey "CHR$156:PROCting:A=GET
110CLS:PRINTTAB(4,10)CHR$141" O.K. G
O O D B Y E"TAB(4,11)CHR$141" O.
K. G O O D B Y E":PROCpause:PROCj
ingle:PROCpause:CLS:*FX138,0,129
120END
130REM: *****
140DEFPROCtitle:PRINTTAB(0,0)CHR$141CH
R$131CHR$157CHR$129" ELECTRICITY/GAS
PROGRAMS "CHR$156TAB(0,1)CHR$141CH
R$131CHR$157CHR$129" ELECTRICITY/GAS
PROGRAMS "CHR$156:ENDPROC
150REM: *****
160DEFPROCpause:FOR X=1 TO 3000:NEXT X
:ENDPROC
170REM: *****
180DEFPROCpause1:FOR X=1 TO 1000:NEXT
X:ENDPROC
190REM: *****
200DEFPROCbeep:SOUND2,-15,100,1:FOR X=
1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC
210REM: *****
220DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0
,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPR
OC
230REM: *****
240DEFPROCrasp:ENVELOPE1,1,4,5,0,255,2
55,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SO
UND1,1,80,10:ENDPROC
250REM: *****
260DEFPROCjingle
270ENVELOPE8,1,0,0,0,0,0,0,120,0,0,-1,
100,100
280chan%=1
290RESTORE390
300FORu=1TO7
310READnote,dur
320dur=dur+2
330SOUNDchan%,8,note,dur
340FORT=1TO400:NEXT
350chan%=chan%+1:IFchan%=4chan%=1
360NEXT
370ENDPROC
380REM: Jingle DATA
390DATA129,4,125,4,109,4,101,4,89,4,81
,4,77,4
400END
410REM: *****
420END