10 REM:MODSound 20 *FX210,0 30 VDU23;8202;0;0;0; 40 CLS:PROCtitle:PRINTTAB(12,4)CHR$135CHR$157CHR$132"SOUND Menu "CHR$156:PROCjingle 50 PRINTTAB(2,7)CHR$141"Do you want the Sound‚ON‡orOFF‡?"TAB(2,8)CHR$141"Do you want the Sound‚ON‡orOFF‡?" 60 PRINTTAB(9,10)CHR$141"Press‚1‡for‚SOUND ON"TAB(9,11)CHR$141"Press‚1‡for‚SOUND ON"TAB(8,13)CHR$141"‡Press2‡forSOUND OFF"TAB(8,14)CHR$141"‡Press2‡forSOUND OFF" 70 PRINTTAB(9,21)CHR$141CHR$131CHR$157CHR$129"ˆPress 1 or 2‡ ‰"CHR$156:PRINTTAB(9)CHR$141CHR$131CHR$157CHR$129"ˆPress 1 or 2‡‰ "CHR$156:PROCpause1:PROCting:A=GET 80 IF A<49 OR A>50 THEN PROCrasp:PRINTTAB(9,21)CHR$141CHR$129CHR$157CHR$131"ˆPress 1 or 2‡ ‰"CHR$156TAB(9)CHR$141CHR$129CHR$157CHR$131"ˆPress 1 or 2‡‰ "CHR$156:PROCpause:GOTO70 90 IF A=49 THEN CLS:GOTO150 100 IF A=50 THEN CLS:*FX210,1 110 IF A=50 THEN PROCtitle:PRINTTAB(4,7)CHR$141"You have selected to have the"TAB(4,8)CHR$141"You have selected to have the"TAB(4,9)CHR$141"SOUND turnedOFF"TAB(4,10)CHR$141"SOUND turnedOFF" 120 IF 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"TAB(4,14)CHR$141"when you press†SHIFT/BREAK‡or"TAB(4,15)CHR$141"when you press†SHIFT/BREAK‡or" 130 IF A=50 THEN PRINTTAB(4,16)CHR$141"return to the†SOUND Menu"TAB(4,17)CHR$141"return to the†SOUND Menu" 140 IF A=50 THEN PRINTTAB(8,21)CHR$141CHR$131CHR$157CHR$129"ˆPress any key "CHR$156TAB(8,22)CHR$141CHR$131CHR$157CHR$129"ˆPress any key "CHR$156:PROCpause1:A=GET:CHAIN"EleMenu" 150 PROCtitle 160 PRINTTAB(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:PROCting:PROCpause 170 PRINTTAB(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 180 PRINTTAB(2,16)CHR$141"and this sound if youPRESS the WRONG"TAB(2,17)CHR$141"and this sound if youPRESS the WRONG"TAB(1,18)CHR$141"KEY"TAB(1,19)CHR$141"KEY":PROCpause1:PROCrasp:PROCpause 190 PRINTTAB(8,22)CHR$141CHR$141CHR$131CHR$157CHR$129"ˆPress any key "CHR$156:PRINTTAB(8)CHR$141CHR$141CHR$131CHR$157CHR$129"ˆPress any key "CHR$156:PROCpause:PROCting:A=GET:*FX210,0 200 CHAIN"EleMenu":END 210 REM:EOR***** 220 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 230 REM:EOR***** 240 DEFPROCpause:FOR X=1 TO 3000:NEXT X:ENDPROC 250 REM:EOR***** 260 DEFPROCpause1:FOR X=1 TO 1000:NEXT X:ENDPROC 270 REM:EOR***** 280 REM:EOR***** 290 DEFPROCbeep:SOUND2,-15,100,1:FOR X=1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC 300 REM:EOR***** 310 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPROC 320 REM:EOR***** 330 DEFPROCrasp:ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SOUND1,1,80,10:ENDPROC 340 REM:EOR***** 350 DEFPROCjingle 360 ENVELOPE8,1,0,0,0,0,0,0,120,0,0,-1,100,100 370 chan%=1 380 RESTORE480 390 FORu=1TO7 400 READnote,dur 410 dur=dur+2 420 SOUNDchan%,8,note,dur 430 FORT=1TO400:NEXT 440 chan%=chan%+1:IFchan%=4chan%=1 450 NEXT 460 ENDPROC 470 REM:MODJingle DATA 480 DATA129,4,125,4,109,4,101,4,89,4,81,4,77,4 490 END 500 REM:EOR***** 510 END