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