1` *** PROGRAM TO COMPUTE SQUARE FOOTAGE FOR WALLPAPER ***P` *** CREATED 10-25-83u` *** UPDATED 10-25-83 ***`( FT = FEET`2 FTS = SQUARE FEET`< IN = INCHES`F INS = SQUARE INCHESaP ROLL = NUMBER OF SQUARE FEET OF PAPER IN A ROLLaZROLL$adROOM$"HALL"can "SQUARE FOOTAGE REQUIREMENTS FOR THE ";ROOM$;" WALLPAPERax " FT - IN FT(DEC) FT - IN FT(DEC) SUB TOTAL CUM TOTAL"a a FTA,INA,FTB,INBa FTA laINADINA bINBDINB bFTADFTA INAD,bFTBDFTB INBD?bFTSSFTADFTBDRbFTSCFTSCFTSSb "###.## ";FTA,INA,FTAD,FTB,INB,FTBD,FTSS,FTSCb b 3,10,7,4b 2,10,7,0b 4,10,7,0b 3,5,1,1b 1,8,7,10b" 4,3,1,2b, 1,2,7,10 c6 2,0,7,10c@ 3,0,1,1&cJ 5,0,7,105cT 3,1,7,10Cc^ 3,0,1,1Rch 0,7,7,10acr 3,10,7,2wcb 999,999,999,999cl "TOTAL NUMBER OF SQUARE FEET = ";FTSCcv "TOTAL NUMBER OF ROLLS REQUIRED FOR THE ";ROOM$;" = ";FTSCROLLc999cl "TOTAL NUMBER OF SQUARE FEET = ";FTSCcv "TOTAL NUMBER OF ROLLS REQUIRED FOR THE ";ROOM$;" = ";FTSCROLLc