10REM: E/Gmenu
20CLS:PROCtitle:PRINT:PRINTTAB(5)CHR$
131CHR$157CHR$129"Electricity or Gas Me
nu "CHR$156''''
30PRINTTAB(0)CHR$141CHR$135CHR$157CHR
$132"Press 1 for ELECTRICITY PROGRAM "
CHR$156TAB(0)CHR$141CHR$135CHR$157CHR$13
2"Press 1 for ELECTRICITY PROGRAM "CHR
$156:PRINT''
40PRINTTAB(0)CHR$141CHR$132CHR$157CHR
$135" Press 2 for GAS PROGRAM "
CHR$156TAB(0)CHR$141CHR$132CHR$157CHR$13
5" Press 2 for GAS PROGRAM "CHR
$156
50PRINTTAB(10,22)CHR$141CHR$131CHR$15
7CHR$129"Press 1 or 2 "CHR$156TAB(10)CH
R$141CHR$131CHR$157CHR$129"Press 1 or 2
"CHR$156:PROCting:A=GET
60IF A<49 OR A>50 THEN PROCrasp:PRINT
TAB(10,22)CHR$141CHR$132CHR$157CHR$135"P
ress 1 or 2 "CHR$156TAB(10)CHR$141CHR$13
2CHR$157CHR$135"Press 1 or 2 "CHR$156:PR
OCpause:GOTO50
70IF A=49 THEN CHAIN"EleMenu"
80IF A=50 THEN CHAIN"GasMenu"
90END
100REM: *****
1000DEFPROCtitle:PRINTTAB(0,0)CHR$141CH
R$131CHR$157CHR$129" ELECTRICITY/GAS
PROGRAMS "CHR$156TAB(0)CHR$141CHR$1
31CHR$157CHR$129" ELECTRICITY/GAS PRO
GRAMS "CHR$156:ENDPROC
1010REM: *****
1020DEFPROCwipe:FOR X=0 TO 23:PRINTTAB(
0,X)SPC(40):FOR Z=0 TO 39:NEXT Z:NEXT X:
ENDPROC
1030REM: *****
1040DEFPROCbeep:SOUND2,-15,100,1:FOR X=
1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC
1050REM: *****
1060DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0
,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPR
OC
1070REM: *****
1080DEFPROCrasp: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
1090REM: *****
1100DEFPROCpause:FOR X=1 TO 2000:NEXT X
:ENDPROC
1110REM: *****
1120END