10 REM:MODQuit
   20 VDU23;8202;0;0;0;
   30 CLS::PROCtitle:PRINTTAB(6,10)CHR$141CHR$131CHR$157CHR$129"ARE YOU SURE ? (Y/N)  "CHR$156TAB(6,11)CHR$141CHR$131CHR$157CHR$129"ARE YOU SURE ? (Y/N)  "CHR$156
   40 PRINTTAB(10,20)CHR$141CHR$131CHR$157CHR$129"Press�Y�or�N� "CHR$156TAB(10,21)CHR$141CHR$131CHR$157CHR$129"Press�Y�or�N� "CHR$156:PROCting:A=GET
   50 IF A=78 OR A=110 THEN CHAIN"EleMenu"
   60 IF A=89 OR A=121 THEN *FX210,0
   70 CLS:PROCtitle:PRINTTAB(10,4)CHR$141CHR$135CHR$157CHR$129"�IMPORTANT�  "CHR$156TAB(10,5)CHR$141CHR$135CHR$157CHR$129"�IMPORTANT�  "CHR$156
   80 PRINTTAB(0,9)"Although these Programs have been made"TAB(0,10)"as 'error-trapped' as possible, you are"TAB(0,11)"strongly advised to make a�'BACKUP'�copy"TAB(0,12)"of the whole disc as soon as possible in"
   90 PRINTTAB(0,13)"case you accidentally erase any of the"TAB(0,14)"Programs."
  100 PRINTTAB(9,21)CHR$141CHR$131CHR$157CHR$129"Press�any�key  "CHR$156TAB(9,22)CHR$141CHR$131CHR$157CHR$129"Press�any�key  "CHR$156:PROCting:A=GET
  110 CLS: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:PROCjingle:PROCpause:CLS:*FX138,0,129
  120 END
  130 REM:EOR*****
  140 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
  150 REM:EOR*****
  160 DEFPROCpause:FOR X=1 TO 3000:NEXT X:ENDPROC
  170 REM:EOR*****
  180 DEFPROCpause1:FOR X=1 TO 1000:NEXT X:ENDPROC
  190 REM:EOR*****
  200 DEFPROCbeep:SOUND2,-15,100,1:FOR X=1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC
  210 REM:EOR*****
  220 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPROC
  230 REM:EOR*****
  240 DEFPROCrasp:ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SOUND1,1,80,10:ENDPROC
  250 REM:EOR*****
  260 DEFPROCjingle
  270 ENVELOPE8,1,0,0,0,0,0,0,120,0,0,-1,100,100
  280 chan%=1
  290 RESTORE390
  300 FORu=1TO7
  310 READnote,dur
  320 dur=dur+2
  330 SOUNDchan%,8,note,dur
  340 FORT=1TO400:NEXT
  350 chan%=chan%+1:IFchan%=4chan%=1
  360 NEXT
  370 ENDPROC
  380 REM:MODJingle DATA
  390 DATA129,4,125,4,109,4,101,4,89,4,81,4,77,4
  400 END
  410 REM:EOR*****
  420 END