10 REM:MODInstruc 20 VDU23;8202;0;0;0; 30 CLS:PROCtitle 40 PRINTTAB(11,4)CHR$131CHR$157CHR$129"Instructions "CHR$156 50 PRINTTAB(6,8)CHR$141"Do you want Instructions?"TAB(6,9)CHR$141"Do you want Instructions?" 60 PRINTTAB(11,11)CHR$141"Press‚1‡for‚YES"TAB(11,12)CHR$141"Press‚1‡for‚YES"TAB(11,14)CHR$141"‡Press2‡forNO"TAB(11,15)CHR$141"‡Press2‡forNO" 70 PRINTTAB(10,21)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 80 IF A<49 OR A>50 THEN PROCrasp:PRINTTAB(10,21)CHR$141CHR$129CHR$157CHR$131"Pressˆ1‰orˆ2‰ "CHR$156TAB(10,22)CHR$141CHR$129CHR$157CHR$131"Pressˆ1‰orˆ2‰ "CHR$156:PROCpause:GOTO70 90 IF A=49 THEN CLS:GOTO110 100 IF A=50 THEN CHAIN"EleMenu" 110 PROCtitle:PRINTTAB(11,3)CHR$131CHR$157CHR$129"Instructions "CHR$156 120 PRINTTAB(3,5)"When you have read these instructions"TAB(0,6)"you can choose Sound‚ON‡orOFF‡and then"TAB(0,7)"you will see the Menu and can choose"TAB(0,8)"another option." 130 PRINTTAB(3,9)"If you are using either Program for"TAB(0,10)"the first time press 3 for an example of"TAB(0,11)"what the Program does." 140 PRINTTAB(3,12)"Follow the screen prompts and when"TAB(0,13)"you are returned to the Menu press 1 and"TAB(0,14)"enter your own readings -BUT‡you will"TAB(0,15)"wipe out the example, and it will b"TAB(0,16)"replaced by YOUR readings." 150 PRINTTAB(3,17)"If you press 1 you will be asked to"TAB(0,18)"enter the final official reading on your"TAB(0,19)"last Bill. (This is the starting figure"TAB(0,20)"for your next bill)." 160 PRINTTAB(9,23)CHR$131CHR$157CHR$129"ˆPress any key "CHR$156:PROCting:A=GET:CLS:PROCtitle 170 PRINTTAB(11,3)CHR$131CHR$157CHR$129"Instructions "CHR$156 180 PRINTTAB(3,5)"On return to the Menu you should"TAB(0,6)"select 2 and use this sub-program to"TAB(0,7)"enter YOUR readings, preferably on the"TAB(0,8)"same day each week, until the end of"TAB(0,9)"the 13+week period" 190 PRINTTAB(3,11)"When the official meter reader has"TAB(0,12)"read the meter again (at the end of the"TAB(0,13)"13+ week period), enter that reading as"TAB(0,14)"the final reading for the period." 200 PRINTTAB(3,16)"On return to the Menu press 3 and"TAB(0,17)"you will be shown all the readings to"TAB(0,18)"date. Then press any key and you will be"TAB(0,19)"shown the total cost to date (to the"TAB(0,20)"nearest p.)" 210 PRINTTAB(9,23)CHR$131CHR$157CHR$129"ˆPress any key "CHR$156:PROCting:A=GET:CLS 220 PROCtitle:PRINTTAB(11,3)CHR$131CHR$157CHR$129"Instructions "CHR$156 230 PRINTTAB(3,5)"Press any key again and you will be"TAB(0,6)"returned to the Menu to make another"TAB(0,7)"selection." 240 PRINTTAB(14,9)CHR$135CHR$157CHR$129"N.B:- "CHR$156 250 PRINTTAB(3,11)"In some areas your Electricity or Gas"TAB(0,12)"Bill‚MAY‡show an item of‚Credit." 260 PRINTTAB(3,14)"Obviously these Programs cannot take"TAB(0,15)"such individual cases into account and"TAB(0,16)"therefore you should deduct the‚Credit" 270 PRINTTAB(0,17)"amount, plus VAT at 8 per cent on that"TAB(0,18)"amount, from the total which these"TAB(0,19)"Programs produce." 280 PRINTTAB(9,23)CHR$131CHR$157CHR$129"ˆPress any key "CHR$156:PROCting:A=GET:CLS 290 PROCtitle:PRINTTAB(11,5)CHR$131CHR$157CHR$129"Instructions "CHR$156 300 PRINTTAB(6,10)"(In these cases there may be some"TAB(0,11)"consolation in the fact that the amount"TAB(0,12)"you actually pay may be‚LESS‡than that"TAB(0,13)"shown by the Program!)" 310 PRINTTAB(9,23)CHR$131CHR$157CHR$129"ˆPress any key "CHR$156:PROCting:A=GET:CHAIN "Sound" 320 END 330 REM:EOR***** 340 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 350 REM:EOR***** 360 DEFPROCpause:FOR X=1 TO 2000:NEXT X:ENDPROC 370 REM:EOR***** 380 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPROC 390 REM:EOR***** 400 DEFPROCrasp:ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SOUND1,1,80,10:ENDPROC 410 REM:EOR***** 430 DEFPROCbeep:SOUND2,-15,100,1:FOR X=1 TO 250:NEXT:SOUND2,-15,100,1:ENDPROC 440 REM:EOR***** 450 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND 1,1,150,5:ENDPROC 460 REM:EOR***** 470 DEFPROCrasp:ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0:SOUND0,-15,3,10:SOUND1,1,80,10:ENDPROC 480 REM:EOR***** 490 END