10 REM:MODE/Gmenu
   20 CLS:PROCtitle:PRINT:PRINTTAB(5)CHR$131CHR$157CHR$129"Electricity or Gas  Menu  "CHR$156''''
   30 PRINTTAB(0)CHR$141CHR$135CHR$157CHR$132"Press 1 for ELECTRICITY  PROGRAM  "CHR$156TAB(0)CHR$141CHR$135CHR$157CHR$132"Press 1 for ELECTRICITY  PROGRAM  "CHR$156:PRINT''
   40 PRINTTAB(0)CHR$141CHR$132CHR$157CHR$135"    Press 2 for GAS  PROGRAM      "CHR$156TAB(0)CHR$141CHR$132CHR$157CHR$135"    Press 2 for GAS  PROGRAM      "CHR$156
   50 PRINTTAB(10,22)CHR$141CHR$131CHR$157CHR$129"Pressˆ1‰orˆ2  "CHR$156TAB(10)CHR$141CHR$131CHR$157CHR$129"Pressˆ1‰orˆ2  "CHR$156:PROCting:A=GET
   60 IF A<49 OR A>50 THEN PROCrasp:PRINTTAB(10,22)CHR$141CHR$132CHR$157CHR$135"Pressˆ1‰orˆ2 "CHR$156TAB(10)CHR$141CHR$132CHR$157CHR$135"Pressˆ1‰orˆ2 "CHR$156:PROCpause:GOTO50
   70 IF A=49 THEN  CHAIN"EleMenu"
   80 IF A=50 THEN CHAIN"GasMenu"
   90 END
  100 REM:EOR*****
 1000 DEFPROCtitle:PRINTTAB(0,0)CHR$141CHR$131CHR$157CHR$129"    ELECTRICITY/GAS PROGRAMS      "CHR$156TAB(0)CHR$141CHR$131CHR$157CHR$129"    ELECTRICITY/GAS PROGRAMS      "CHR$156:ENDPROC
 1010 REM:EOR*****
 1020 DEFPROCwipe:FOR X=0 TO 23:PRINTTAB(0,X)SPC(40):FOR Z=0 TO 39:NEXT Z:NEXT X:ENDPROC
 1030 REM:EOR*****
 1040 DEFPROCbeep:SOUND2,-15,100,1:FOR X=1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC
 1050 REM:EOR*****
 1060 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPROC
 1070 REM:EOR*****
 1080 DEFPROCrasp:ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SOUND1,1,80,10:ENDPROC
 1090 REM:EOR*****
 1100 DEFPROCpause:FOR X=1 TO 2000:NEXT X:ENDPROC
 1110 REM:EOR*****
 1120 END
   10 REM:MODE/Gmenu
   20 CLS:PROCtitle:PRINT:PRINTTAB(5)CHR$131CHR$157CHR$129"Electricity or Gas  Menu  "CHR$156''''
   30 PRINTTAB(0)CHR$141CHR$135CHR$157CHR$132"Press 1 for ELECTRICITY  PROGRAM  "CHR$156TAB(0)CHR$141CHR$135CHR$157CHR$132"Press 1 for ELECTRICITY  PROGRAM  "CHR$156:PRINT''
   40 PRINTTAB(0)CHR$141CHR$132CHR$157CHR$135"    Press 2 for GAS  PROGRAM      "CHR$156TAB(0)CHR$141CHR$132CHR$157CHR$135"    Press 2 for GAS  PROGRAM      "CHR$156
   50 PRINTTAB(10,22)CHR$141CHR$131CHR$157CHR$129"Pressˆ1‰orˆ2  "CHR$156TAB(10)CHR$141CHR$131CHR$157CHR$129"Pressˆ1‰orˆ2  "CHR$156:PROCting:A=GET
   60 IF A<49 OR A>50 THEN PROCrasp:PRINTTAB(10,22)CHR$141CHR$132CHR$157CHR$135"Pressˆ1‰orˆ2 "CHR$156TAB(10)CHR$141CHR$132CHR$157CHR$135"Pressˆ1‰orˆ2 "CHR$156:PROCpause:GOTO50
   70 IF A=49 THEN  CHAIN"EleMenu"
   80 IF A=50 THEN CHAIN"GasMenu"
   90 END
  100 REM:EOR*****
 1000 DEFPROCtitle:PRINTTAB(0,0)CHR$141CHR$131CHR$157CHR$129"    ELECTRICITY/GAS PROGRAMS      "CHR$156TAB(0)CHR$141CHR$131CHR$157CHR$129"    ELECTRICITY/GAS PROGRAMS      "CHR$156:ENDPROC
 1010 REM:EOR*****
 1020 DEFPROCwipe:FOR X=0 TO 23:PRINTTAB(0,X)SPC(40):FOR Z=0 TO 39:NEXT Z:NEXT X:ENDPROC
 1030 REM:EOR*****
 1040 DEFPROCbeep:SOUND2,-15,100,1:FOR X=1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC
 1050 REM:EOR*****
 1060 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPROC
 1070 REM:EOR*****
 1080 DEFPROCrasp:ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SOUND1,1,80,10:ENDPROC
 1090 REM:EOR*****
 1100 DEFPROCpause:FOR X=1 TO 2000:NEXT X:ENDPROC
 1110 REM:EOR*****
 1120 END