10 @%=&20209 20 REM Program for calculating quantities in decorating 30 CLS 40 INPUT''"Enter the length of the room in metres.",length 50 CLS 60 INPUT''"Enter the width of the room in metres ",width 70 CLS 80 area=length*width 90 PRINT''"The area of the floor, and likewise the ceiling, is ";area;"sq.metres." 100 INPUT''"Are you intending to replace the carpet Y/N ?",C$ 110 IF C$="Y" OR C$="y"THEN PROCCARPET ELSE PROCPAINT 120 END 130 : 140 DEFPROCCARPET 150 CLS 160 INPUT''"Enter the cost per sq. metre of carpet ",carpsqm 170 CLS 180 carpcost=carpsqm*area 190 PRINT''"The total cost of carpet is GBP ";carpcost 200 PRINT''"Press any key to continue." 210 G=GET 220 CLS 230 PROCPAINT 240 ENDPROC 250 : 270 DEFPROCPAINT 280 PRINT''"The area of the ceiling is ";area;" sq.m." 290 CLS:INPUT''"Enter the coverage per litre of emulsion ",coverage_ltr 300 PRINT''"The ceiling will require ";area/coverage_ltr;" litres of emulsion." 310 PRINT'"Press any key to continue." 320 G=GET 330 CLS 340 INPUT''"Enter the height of the room ",height 350 wallarea=2*(length*height)+2*(width*height) 360 CLS 370 PRINT''"The area of the walls, including doors and windows, is ";wallarea;"sq.m." 380 INPUT''"Are you going to emulsion the walls or paper them e/p ",wallfinish$ 390 IF wallfinish$="E" OR wallfinish$="e" THEN PROCEMUL ELSE PROCPAPER 400 ENDPROC 410 : 420 DEFPROCEMUL 430 CLS 440 INPUT''"Enter the coverage per litre of emulsion ",coverage_ltr 450 CLS 460 emulqty=wallarea/coverage_ltr 470 PRINT''"The emulsion required, disregarding windows and doors, is ";emulqty 480 ENDPROC 490 : 520 DEFPROCGLOSS 530 INPUT "Measure the height of the door",doorheight 540 INPUT "Measure the width of the door ",doorwidth 550 : 560 CLS 570 PRINT''"The area of the door is ";doorwidth;" sq.m." 580 CLS:INPUT''"Measure the height of the skirting board"'"and enter it as a decimal fraction of "'"a metre ",skirt 590 board=skirt*((2*length)+(2*width)) 600 CLS:PRINT''"The total area to be glossed is ",doorwidth+skirt 610 ENDPROC 615 : 620 DEFPROCPAPER 630 CLS 640 INPUT''"Enter the coverage per roll of paper "'"that you have chosen ",coverage 650 CLS 660 rolls=wallarea/coverage 670 PRINT''"You will need ";rolls;" rolls of wallpaper." 680 ENDPROC