10REM: Sound
20*FX210,0
30VDU23;8202;0;0;0;
40CLS:PROCtitle:PRINTTAB(12,4)CHR$135
CHR$157CHR$132"SOUND Menu "CHR$156:PROC
jingle
50PRINTTAB(2,7)CHR$141"Do you want th
e Sound ON or OFF ?"TAB(2,8)CHR$141"Do y
ou want the Sound ON or OFF ?"
60PRINTTAB(9,10)CHR$141"Press 1 for S
OUND ON"TAB(9,11)CHR$141"Press 1 for SOU
ND ON"TAB(8,13)CHR$141" Press 2 for SOUN
D OFF"TAB(8,14)CHR$141" Press 2 for SOUN
D OFF"
70PRINTTAB(9,21)CHR$141CHR$131CHR$157
CHR$129" Press 1 or 2 "CHR$156:PRINTTA
B(9)CHR$141CHR$131CHR$157CHR$129" Press
1 or 2 "CHR$156:PROCpause1:PROCting:A=
GET
80IF A<49 OR A>50 THEN PROCrasp:PRINT
TAB(9,21)CHR$141CHR$129CHR$157CHR$131" P
ress 1 or 2 "CHR$156TAB(9)CHR$141CHR$1
29CHR$157CHR$131" Press 1 or 2 "CHR$15
6:PROCpause:GOTO70
90IF A=49 THEN CLS:GOTO150
100IF A=50 THEN CLS:*FX210,1
110IF A=50 THEN PROCtitle:PRINTTAB(4,7
)CHR$141"You have selected to have the"T
AB(4,8)CHR$141"You have selected to have
the"TAB(4,9)CHR$141"SOUND turned OFF"TA
B(4,10)CHR$141"SOUND turned OFF"
120IF A=50 THEN PRINTTAB(4,12)CHR$141"
It can only be turned ON again"TAB(4,13)
CHR$141"It can only be turned ON again"T
AB(4,14)CHR$141"when you press SHIFT/BRE
AK or"TAB(4,15)CHR$141"when you press SH
IFT/BREAK or"
130IF A=50 THEN PRINTTAB(4,16)CHR$141"
return to the SOUND Menu"TAB(4,17)CHR$14
1"return to the SOUND Menu"
140IF A=50 THEN PRINTTAB(8,21)CHR$141C
HR$131CHR$157CHR$129" Press any key "
CHR$156TAB(8,22)CHR$141CHR$131CHR$157CHR
$129" Press any key "CHR$156:PROCpaus
e1:A=GET:CHAIN"EleMenu"
150PROCtitle
160PRINTTAB(2,6)CHR$141"You will hear
this sound to remind"TAB(2,7)CHR$141"You
will hear this sound to remind"TAB(2,8)
CHR$141"you to PRESS a key, "TAB(2.9)CHR
$141"you to PRESS a key, ":PROCpause1:PR
OCting:PROCpause
170PRINTTAB(2,11)CHR$141"this sound to
remind you to ENTER a"TAB(2,12)CHR$141"
this sound to remind you to ENTER a"TAB(
1,13)CHR$141" number,"TAB(1,14)CHR$141"
number,":PROCpause1:PROCbeep:PROCpause
180PRINTTAB(2,16)CHR$141"and this soun
d if you PRESS the WRONG"TAB(2,17)CHR$14
1"and this sound if you PRESS the WRONG"
TAB(1,18)CHR$141" KEY"TAB(1,19)CHR$141"
KEY":PROCpause1:PROCrasp:PROCpause
190PRINTTAB(8,22)CHR$141CHR$141CHR$131
CHR$157CHR$129" Press any key "CHR$156
:PRINTTAB(8)CHR$141CHR$141CHR$131CHR$157
CHR$129" Press any key "CHR$156:PROCpa
use:PROCting:A=GET:*FX210,0
200CHAIN"EleMenu":END
210REM: *****
220DEFPROCtitle: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
230REM: *****
240DEFPROCpause:FOR X=1 TO 3000:NEXT X
:ENDPROC
250REM: *****
260DEFPROCpause1:FOR X=1 TO 1000:NEXT
X:ENDPROC
270REM: *****
280REM: *****
290DEFPROCbeep:SOUND2,-15,100,1:FOR X=
1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC
300REM: *****
310DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0
,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPR
OC
320REM: *****
330DEFPROCrasp: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
340REM: *****
350DEFPROCjingle
360ENVELOPE8,1,0,0,0,0,0,0,120,0,0,-1,
100,100
370chan%=1
380RESTORE480
390FORu=1TO7
400READnote,dur
410dur=dur+2
420SOUNDchan%,8,note,dur
430FORT=1TO400:NEXT
440chan%=chan%+1:IFchan%=4chan%=1
450NEXT
460ENDPROC
470REM: Jingle DATA
480DATA129,4,125,4,109,4,101,4,89,4,81
,4,77,4
490END
500REM: *****
510END