10 REM:MODGasMenu 20 *FX18 30 *KEY0 CLS|M LIST 1990,2080|M A=GET:GOTO430|M 40 *KEY1 ?&FE4E=&7F:CALL!-4|M|N 50 *KEY8 RUN|M 60 *KEY9 MODE135|M|N *FX4|M *FX200|M LISTO 1|M LIST|M|N 70 VDU14 80 MODE7:VDU23;8202;0;0;0; 90 PROCbasicinfo 100 CLS:PROCtitle 110 PRINTTAB(9,2)CHR$135CHR$132CHR$157CHR$135"Gas Program Menu "CHR$156 120 PRINTTAB(0,4)CHR$141"‚Press 1 if using this Program for the"TAB(0,5)CHR$141"‚Press 1 if using this Program for the"TAB(0,6)CHR$141"‚first time in a 13+ week period"TAB(0,7)CHR$141"‚first time in a 13+ week period" 130 PRINTTAB(0,8)CHR$141"ƒPress 2 to enter readings"TAB(0,9)CHR$141"ƒPress 2 to enter readings" 140 PRINTTAB(0,10)CHR$141"†Press 3 to see readings entered and"TAB(0,11)CHR$141"†Press 3 to see readings entered and"TAB(0,12)CHR$141"†total cost of Gas to date"TAB(0,13)CHR$141"†total cost of Gas to date" 150 PRINTTAB(0,14)CHR$141"„Press 4 for Electricity Program"TAB(0,15)CHR$141"„Press 4 for Electricity Program" 160 PRINTTAB(0,16)CHR$141"‡Press 5 to select SOUND‚On‡orOFF"TAB(0,17)CHR$141"‡Press 5 to select SOUND‚On‡orOFF" 170 PRINTTAB(0,18)CHR$141"…Press 6 for Instructions"TAB(0,19)CHR$141"…Press 6 for Instructions" 180 PRINTTAB(0,20)CHR$141"Press 7 to QUIT Program"TAB(0,21)CHR$141"Press 7 to QUIT Program" 190 PRINTTAB(6,23)CHR$132CHR$157CHR$135"Pressˆ1 2 3 4 5 6‰orˆ7 "CHR$156:PROCting:A=GET 200 IF A<49 OR A>55 THEN PRINTTAB(6,23)CHR$135CHR$157CHR$132"Pressˆ1 2 3 4 5 6‰orˆ7 "CHR$156:PROCrasp:PROCpause:GOTO190 210 IF A=49 THEN GOTO 300 220 IF A=50 THEN GOTO 670 230 IF A=51 THEN GOTO 1110 240 IF A=52 THEN CHAIN"EleMenu" 250 IF A=53 THEN CHAIN"Sound" 260 IF A=54 THEN CHAIN"Instruc" 270 IF A=55 THEN CHAIN"Quit" 280 END 290 REM:EOR***** 300 CLS:PRINTTAB(1,1)CHR$141"Did you pressˆ1‰by mistake?‚Y‡orN?"TAB(1,2)CHR$141"Did you pressˆ1‰by mistake?‚Y‡orN?"TAB(10,3)"ƒ-------------------" 310 PRINTTAB(0,6)"‡If you press‚Y (for YES)‡then you will"TAB(0,7)" be returned to the Menu and can select" 320 PRINTTAB(0,8)"‡another number/choice" 330 PRINTTAB(0,12)" If you pressN (for NO)‡you willWIPE"TAB(0,13)"OUTˆALL‰PREVIOUS READINGS‡and will"TAB(0,14)" then be able to enter new readings for"TAB(0,15)" a new 13+ week period." 340 PRINTTAB(11,21)CHR$141"ˆPress‚Y‡orN"TAB(11)CHR$141"ˆPress‚Y‡orN":PROCting:A=GET 350 IF A=78 OR A=110 THEN CLS:GOTO370 360 IF A=89 OR A=121 THEN RUN 370 PROCtitle:PRINTTAB(4,6)"As this is the first time you are"TAB(0,7)"using this Program, it isESSENTIAL‡that"TAB(0,8)"you should first confirm/amend certain"TAB(0,9)"basic data on the next page." 380 PRINTTAB(4,11)"(All these figures appear on your"TAB(0,12)"last Gas Bill, and should be carefully"TAB(0,13)"checked.)" 390 PRINTTAB(5,22)CHR$132CHR$157CHR$135"Press any key to continue "CHR$156:PROCting:A=GET 400 *FX138,0,128 410 END 420 REM:EOR***** 430 CLS:PRINTTAB(0,0)"‡Week"TAB(10,0)"ƒReading"TAB(21,0)"†Cubic Feet used"TAB(0,1)STRING$(40,"-")TAB(0,19)STRING$(40,"-") 440 PRINTTAB(0,18)"ƒˆPrevious‰" 450 X=1:Y=17 460 PRINTTAB(3,Y);X:Y=Y-1:X=X+1 470 IF Y=8 THEN GOTO 480 ELSE GOTO 460 480 X=10:Y=8 490 IF Y<9 THEN PRINTTAB(2,Y);X:Y=Y-1:X=X+1 500 IF Y=1 THEN GOTO 510 ELSE GOTO490 510 F=OPENOUT("GAS") 520 w%=0:Y=18 530 IF w%=0 THEN PRINTTAB(0,18)"ƒˆPrevious" 540 PRINTTAB(3,20)"EnterƒPrevious Reading‡as shown on"TAB(0,21)" your last gas bill":PROCbeep:INPUT;" ƒ";normreadw% 550 PRINTTAB(1,23)"ƒIs that correct? Y/N":A=GET 560 IF A=89 OR A=121 THEN PRINTTAB(0,18)"ƒ‰Previous":GOTO590 570 IF A=78 OR A=110 THEN PROCclear:GOTO 540 580 PROCrasp:PROCclear:FOR X=1 TO 2000:NEXT X:GOTO 540 590 PROCnormunits:PROCclear:PROCnorre:PROCnorun 600 PROCclear:PROCwait 610 PRINT#F,w%,normreadw%,normunitsw% 620 PROCclear:PRINTTAB(4,20)CHR$141"FileƒGAS‡is now beingCREATED"TAB(4,21)CHR$141"FileƒGAS‡is now beingCREATED":PROCpause 630 CLOSE#F 640 PROCclear:PRINTTAB(3,20)CHR$141"‚FileƒGAS‚has beenCREATED‚O.K."TAB(3,21)CHR$141"‚FileƒGAS‚has beenCREATED‚O.K." 650 PROCpause:RUN 660 REM:EOR***** 670 ON ERROR GOTO 1060 680 CLS:PRINTTAB(0,0)"‡Week"TAB(10,0)"ƒReading"TAB(21,0)"†Cubic Feet used"TAB(0,1)STRING$(40,"-")TAB(0,19)STRING$(40,"-") 690 PRINTTAB(0,18)"ƒPrevious" 700 X=1:Y=17 710 PRINTTAB(3,Y);X:Y=Y-1:X=X+1 720 IF Y=8 THEN GOTO 730 ELSE GOTO 710 730 X=10:Y=8 740 IF Y<9 THEN PRINTTAB(2,Y);X:Y=Y-1:X=X+1 750 IF Y=1 THEN GOTO 760 ELSE GOTO740 760 F=OPENUP("GAS") 770 w%=0:Y=18 780 REPEAT 790 INPUT#F,w%,normreadw%,normunitsw% 800 IF w%=0 THEN PROCclear:PRINTTAB(0,Y)"ƒPrevious":PROCnorre:PROCnorun:PROCnormunits 810 IF w%>0 AND w%<10 THEN PROCclear:PRINTTAB(3,Y);w%;:PROCnorre:PROCnorun:PROCnormunits 820 IF w%>9 THEN PROCclear:PRINTTAB(2,Y);w%:PROCnorre:PROCnorun:PROCnormunits 830 w%=w%+1:Y=Y-1 840 UNTIL EOF#F 850 ON ERROR GOTO 1060 860 REPEAT 870 PRINTTAB(0,18)"ƒPrevious" 880 IF w%>0 AND w%<10 THEN GOTO900 890 IF w%>9 AND w%<17 THEN GOTO950 900 IF w%>0 AND w%<10 THEN PRINTTAB(2,Y);"ˆ";w%;"‰" 910 IF w%>0 AND w%<10 THEN PRINTTAB(2,20)"EnterƒReading‡for week ";w%:PROCbeep:INPUT;" ƒ";normreadw%:PRINTTAB(1,22)"ƒIs that correct? Y/N":A=GET 920 IF A=89 OR A=121 THEN PROCclear:PRINTTAB(2,Y);"‰";w%:GOTO 1000 930 IF A=78 OR A=110 THEN PROCclear:GOTO 910 940 PROCclear:GOTO 910 950 IF w%>9 AND w%<17 THEN PRINTTAB(1,Y);"ˆ";w%;"‰" 960 IF w%>9 AND w%<17 THEN PRINTTAB(2,20)"EnterƒReading‡for week ";w%:PROCbeep:INPUT;" ƒ";normreadw%:PRINTTAB(1,22)"ƒIs that correct? Y/N":A=GET 970 IF A=89 OR A=121 THEN PROCclear:PRINTTAB(1,Y);"‰";w%:GOTO1000 980 IF A=78 OR A=110 THEN PROCclear:GOTO 960 990 PROCclear:GOTO 960 1000 PROCnormunits:PROCclear:PROCnorre:PROCnorun 1010 PROCclear:PROCwait 1020 PRINT#F,w%,normreadw%,normunitsw% 1030 IF w%>15 THEN PROCclear:PRINTTAB(3,20)"‡PressESCAPE‡toSAVE‡readings to"TAB(3,21)" weekƒ";w%:PROCting:A=GET:PROCclear:PROCwait:PROCpause:CLOSE#F 1040 IF w%<16 THEN PROCclear:PRINTTAB(3,20)"‡PressESCAPE‡toSAVE‡readings to"TAB(3,21)" weekƒ";w%;"‡OR†any other key‡to enter"TAB(0,22)" readings for weekƒ";w%+1:PROCting:A=GET:w%=w%+1:Y=Y-1:PROCclear 1050 UNTIL FALSE 1060 IF ERR=17 THEN PROCclear:PROCwait:PROCpause 1070 IF ERR<>17 THEN CLS:REPORT:PRINT" at line ";ERL:STOP 1080 CLOSE#F 1090 PROCclear:PRINTTAB(3,20)CHR$141"‚FileƒGAS‚has beenSAVED‚O.K."TAB(3,21)CHR$141"‚FileƒGAS‚has beenSAVED‚O.K.":PROCpause:CLS:RUN 1100 REM:EOR***** 1110 CLS:PRINTTAB(0,0)"‡Week"TAB(10,0)"ƒReading"TAB(21,0)"†Cubic Feet used"TAB(0,1)STRING$(40,"-")TAB(0,19)STRING$(40,"-") 1120 PRINTTAB(0,18)"ƒPrevious" 1130 X=1:Y=17 1140 PRINTTAB(3,Y);X:Y=Y-1:X=X+1 1150 IF Y=8 THEN GOTO 1160 ELSE GOTO 1140 1160 X=10:Y=8 1170 IF Y<9 THEN PRINTTAB(2,Y);X:Y=Y-1:X=X+1 1180 IF Y=1 THEN GOTO 1190 ELSE GOTO1170 1190 F=OPENIN("GAS") 1200 w%=0:Y=18 1210 REPEAT 1220 INPUT#F,w%,normreadw%,normunitsw% 1230 IF w%=0 THEN PRINTTAB(0,18)"ƒPrevious":PROCnormunits:PROCnorre:PROCnorun 1240 IF w%>0 AND w%<10 THEN PROCnormunits:PRINTTAB(3,Y);w%;:PROCnorre:PROCnorun 1250 IF w%>9 AND w%<18 THEN PROCnormunits:PRINTTAB(2,Y);w%:PROCnorre:PROCnorun 1260 w%=w%+1:Y=Y-1 1270 UNTIL EOF#F 1280 CLOSE#F 1290 IF w%=0 THEN PROCclear:PRINTTAB(3,20)CHR$141CHR$132CHR$157CHR$135"Pressˆany key‰for GAS Menu "CHR$156TAB(3,21)CHR$141CHR$132CHR$157CHR$135"Pressˆany key‰for GAS Menu "CHR$156:PROCting:A=GET:RUN 1300 PRINTTAB(0,20)CHR$141CHR$132CHR$157CHR$135"Press a key for Cost to week ";w%-1;" "CHR$156:PRINTTAB(0,21)CHR$141CHR$132CHR$157CHR$135"Press a key for Cost to week ";w%-1;" "CHR$156:A=GET 1310 CLS:PRINTTAB(4,0)CHR$132CHR$157CHR$135CHR$141" COST OF GAS TO WEEK ";w%-1;" "CHR$156:PRINTTAB(4,1)CHR$132CHR$157CHR$135CHR$141" COST OF GAS TO WEEK ";w%-1;" "CHR$156 1320 PRINTTAB(0,3)" ======================================" 1330 Total1=normreadw%-normA 1340 Total2=Total1*cubic 1350 Total3=Total2*calorific 1360 Total4=Total3/kilowatt 1370 Total5=Total4*(1.520/100) 1380 Total6=standingcharge 1390 Total7=((Total5+Total6)/100)*8 1400 Total8=(Total5+Total6+Total7) 1410 PRINTTAB(0,4)CHR$141"‡";INT(Total1);" cubic feet used":PRINTTAB(0,5)CHR$141"‡";INT(Total1);" cubic feet used" 1420 @%=&020208:PRINTTAB(0,6)CHR$141;"‚= ";Total2;" cubic metres used"TAB(0,7)CHR$141;"‚= ";Total2;" cubic metres used":@%=&10 1430 Total3=Total2*calorific 1440 PRINTTAB(0,8)CHR$141"= ";INT(Total4);"kilowatt hours used"TAB(0,9)CHR$141"= ";INT(Total4);"kilowatt hours used" 1450 PRINTTAB(0,10)" ======================================" 1460 PRINTTAB(0,11)CHR$141;"ƒ";INT(Total4);"ƒKWH at ";kilocost;"p.="TAB(27,11)"`";:PROCtot5 1470 PRINTTAB(0,12)CHR$141;"ƒ";INT(Total4);"ƒKWH at ";kilocost;"p.="TAB(27,12)"`";:PROCtot5 1480 @%=&020208:PRINTTAB(0,13)CHR$141"†Plus Standing Charge of":PRINTTAB(27,13)"`";:PROCtot6:@%=&10 1490 @%=&020208:PRINTTAB(0,14)CHR$141"†Plus Standing Charge of":PRINTTAB(27,14)"`";:PROCtot6:@%=&10 1500 @%=&020208:PRINTTAB(0,15)CHR$141"…Plus VAT at ";VAT;"% =";:PRINTTAB(27,15)"`":PROCtot7:@%=&10 1510 @%=&020208:PRINTTAB(0,16)CHR$141"…Plus VAT at ";VAT;"% =";:PRINTTAB(27,16)"`":PROCtot7:@%=&10 1520 PRINTTAB(0,17)" ======================================" 1530 PRINTTAB(0,18)CHR$141"‡Cost of gas to week ";w%-1;" =";:PRINTTAB(27,18)"`":PROCtot8:PRINTTAB(0,19)CHR$141"‡Cost of gas to week ";w%-1;" =";:PRINTTAB(27,19)"`":PROCtot8 1540 PRINTTAB(0,20)" ======================================" 1550 PRINTTAB(3,21)CHR$132CHR$157CHR$135CHR$141"Pressˆany key‰for GAS Menu "CHR$156TAB(3,22)CHR$132CHR$157CHR$135CHR$141"Pressˆany key‰for GAS Menu "CHR$156:A=GET:CHAIN "GasMenu" 1560 REM:EOR***** 1570 DEFPROCnorre 1580 IF normreadw%<10 THEN PRINTTAB(16,Y);"ƒ";normreadw%:ENDPROC 1590 IF normreadw%>9 AND normreadw%<100 THEN PRINTTAB(15,Y);"ƒ";normreadw%:ENDPROC 1600 IF normreadw%>99 AND normreadw%<1000 THEN PRINTTAB(14,Y);"ƒ";normreadw%:ENDPROC 1610 IF normreadw%>999 AND normreadw%<10000 THEN PRINTTAB(13,Y);"ƒ";normreadw%:ENDPROC 1620 IF normreadw%>9999 AND normreadw%<100000 THEN PRINTTAB(12,Y);"ƒ";normreadw%:ENDPROC 1630 REM:EOR***** 1640 DEFPROCnorun 1650 IF normunitsw%<10 THEN PRINTTAB(30,Y);"†";normunitsw%:ENDPROC 1660 IF normunitsw%>9 AND normunitsw%<100 THEN PRINTTAB(29,Y);"†";normunitsw%:ENDPROC 1670 IF normunitsw%>99 AND normunitsw%<1000 THEN PRINTTAB(28,Y);"†";normunitsw%:ENDPROC 1680 IF normunitsw%>999 AND normunitsw%<10000 THEN PRINTTAB(27,Y);"†";normunitsw%:ENDPROC 1690 IF normunitsw%>9999 AND normunitsw%<100000 THEN PRINTTAB(26,Y);"†";normunitsw%:ENDPROC 1700 PRINT"Error In Entry. RUN The Program Again." 1710 REM:EOR***** 1720 DEFPROCnormunits 1730 IF w%=0 THEN normA=normreadw%:normunitsw%=0:ENDPROC 1740 IF w%=1 THEN normB=normreadw%:normunitsw%=normB-normA:ENDPROC 1750 IF w%=2 THEN normC=normreadw%:normunitsw%=normC-normB:ENDPROC 1760 IF w%=3 THEN normD=normreadw%:normunitsw%=normD-normC:ENDPROC 1770 IF w%=4 THEN normE=normreadw%:normunitsw%=normE-normD:ENDPROC 1780 IF w%=5 THEN normF=normreadw%:normunitsw%=normF-normE:ENDPROC 1790 IF w%=6 THEN normG=normreadw%:normunitsw%=normG-normF:ENDPROC 1800 IF w%=7 THEN normH=normreadw%:normunitsw%=normH-normG:ENDPROC 1810 IF w%=8 THEN normI=normreadw%:normunitsw%=normI-normH:ENDPROC 1820 IF w%=9 THEN normJ=normreadw%:normunitsw%=normJ-normI:ENDPROC 1830 IF w%=10 THEN normK=normreadw%:normunitsw%=normK-normJ:ENDPROC 1840 IF w%=11 THEN normL=normreadw%:normunitsw%=normL-normK:ENDPROC 1850 IF w%=12 THEN normM=normreadw%:normunitsw%=normM-normL:ENDPROC 1860 IF w%=13 THEN normN=normreadw%:normunitsw%=normN-normM:ENDPROC 1870 IF w%=14 THEN normO=normreadw%:normunitsw%=normO-normN:ENDPROC 1880 IF w%=15 THEN normP=normreadw%:normunitsw%=normP-normO:ENDPROC 1890 IF w%=16 THEN normQ=normreadw%:normunitsw%=normQ-normP:ENDPROC 1900 REM:EOR***** 1910 DEFPROCtitle:PRINTTAB(2,0)CHR$141CHR$132CHR$157CHR$135"GAS CONSUMPTION/COST PROGRAM "CHR$156TAB(2,1)CHR$141CHR$132CHR$157CHR$135"GAS CONSUMPTION/COST PROGRAM "CHR$156:ENDPROC 1920 REM:EOR***** 1930 1940 1950 DEFPROCbasicinfo 1960 1970 cubic=2.83: REM:OR(Cubic metres ORmultiply figure) 1980 1990 calorific=38.2:REM:OR(Calorific ORvalue figure) 2000 2010 kilowatt=3.6: REM:OR(Kilowatt ORmultiplier) 2020 2030 kilocost=1.520:REM:OR(KWH cost in ORpence) 2040 2050 standingcharge=9.45:REM:OR(10.39p ORper day x 91 days) 2060 2070 VAT=8:REM:OR(per cent) 2080 2090 REM:ORWhen you have altered or ORdecidedDIVNOTORto change any MODORof these figures, press DIVSTEP DIV ANY KEYSTEPexcept ESCAPE ORto return to the GAS Menu 2100 2110 ENDPROC 2120 REM:EOR***** 2130 DEFPROCbeep:SOUND 2,-15,100,1:FOR X=1 TO 250:NEXT X:SOUND 2,-15,100,1:ENDPROC 2140 REM:EOR***** 2150 DEFPROCting:ENVELOPE1,1,0,0,0,0,0,0,126,-1,0,-1,126,0:SOUND1,1,150,5:ENDPROC 2160 REM:EOR***** 2170 DEFPROCrasp 2180 ENVELOPE1,1,4,5,0,255,255,0,127,-1,-1,-1,0,0 2190 SOUND0,-15,3,10:SOUND1,1,80,10 2200 ENDPROC 2210 REM:EOR***** 2220 DEFPROCclear:PRINTTAB(0,20)SPC(160);:ENDPROC 2230 REM:EOR***** 2240 DEFPROCpause:FOR X=1 TO 2000:NEXT X:ENDPROC 2250 REM:EOR***** 2260 DEFPROCwait:PRINTTAB(3,20)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds"TAB(3,21)CHR$141"ƒPleaseˆW A I T‰ƒa few seconds":PROCpause:ENDPROC 2270 REM:EOR***** 2280 DEFPROCtot5 2290 IF INT Total5 <10 THEN @%=&020208:PRINTTAB(32,11)CHR$141"ƒ";;Total5:PRINTTAB(32,12)CHR$141"ƒ";;Total5:@%=&10:ENDPROC 2300 IF INT Total5>9 AND INT Total5<100 THEN @%=&020208:PRINTTAB(31,11)CHR$141"ƒ";Total5:PRINTTAB(31,12)CHR$141"ƒ";Total5:@%=&10:ENDPROC 2310 IF INT Total5>99 AND INT Total5<1000 THEN @%=&020208:PRINTTAB(30,11)CHR$141"ƒ";Total5:PRINTTAB(30,12)CHR$141"ƒ";Total5:@%=&10:ENDPROC 2320 IF INT Total5>999 AND INT Total5<10000 THEN @%=&020208:PRINTTAB(29,11)CHR$141"ƒ";Total5:PRINTTAB(29,12)CHR$141"ƒ";Total5:@%=&10:ENDPROC 2330 REM:EOR***** 2340 DEFPROCtot6 2350 IF INT Total6 <10 THEN @%=&020208:PRINTTAB(32,13)CHR$141"†";Total6:PRINTTAB(32,14)CHR$141"†";Total6:@%=&10:ENDPROC 2360 IF INT Total6>9 AND INT Total6<100 THEN @%=&020208:PRINTTAB(31,13)CHR$141"†";Total6:PRINTTAB(31,14)CHR$141"†";Total6:@%=&10:ENDPROC 2370 IF INT Total6>99 AND INT Total6<1000 THEN @%=&020208:PRINTTAB(30,13)CHR$141"†";Total6:PRINTTAB(30,14)CHR$141"†";Total6:@%=&10:ENDPROC 2380 IF INT Total6>999 AND INT Total6<10000 THEN @%=&020208:PRINTTAB(29,13)CHR$141"†";Total6:PRINTTAB(29,14)CHR$141"†";Total6:@%=&10:ENDPROC 2390 REM:EOR***** 2400 DEFPROCtot7 2410 IF INT Total7 <10 THEN @%=&020208:PRINTTAB(32,15)CHR$141"…";Total7:PRINTTAB(32,16)CHR$141"…";Total7:@%=&10:ENDPROC 2420 IF INT Total7 >9 AND INT Total7<100 THEN @%=&020208:PRINTTAB(31,15)CHR$141"…";Total7:PRINTTAB(31,16)CHR$141"…";Total7:@%=&10:ENDPROC 2430 IF INT Total7 >99 AND INT Total7<1000 THEN @%=&020208:PRINTTAB(30,15)CHR$141"…";Total7:PRINTTAB(30,16)CHR$141"…";Total7:@%=&10:ENDPROC 2440 REM:EOR***** 2450 DEFPROCtot8 2460 IF INT Total8 <10 THEN @%=&020208:PRINTTAB(32,18)CHR$141"‡";Total8:PRINTTAB(32,19)CHR$141"‡";Total8:@%=&10:ENDPROC 2470 IF INT Total8 >9 AND INT Total8<100 THEN @%=&020208:PRINTTAB(31,18)CHR$141"‡";Total8:PRINTTAB(31,19)CHR$141"‡";Total8:@%=&10:ENDPROC 2480 IF INT Total8>99 AND INT Total8<1000 THEN @%=&020208:PRINTTAB(30,18)CHR$141"‡";Total8:PRINTTAB(30,19)CHR$141"‡";Total8:@%=&10:ENDPROC 2490 IF INT Total8>999 AND INT Total8<10000 THEN @%=&020208:PRINTTAB(29,18)CHR$141"‡";Total8:PRINTTAB(29,19)CHR$141"‡";Total8:@%=&10:ENDPROC 2500 REM:EOR***** 2510 END