2 ' This program prints a chart on your printer which compares PIZZA prices,
3 ' based on a "price per square inch" basis. You can use the chart to
4 ' compare whether it would be a better value to buy one 13 inch Pizza, or
5 ' two 9 inch Pizzas.....
6 '
7 ' (Oh the wonderful things you can do with computers......)
8 '
9 DATA 9,11,13,15,17,19,23
10 CLS:PRINT@45,"P I Z Z A C A L C U L A T O R":PRINT:IF(INP(187)AND6)=2THEN12
11 BEEP:PRINT" Printer not Ready. Setup Printer and":INPUT" Press ENTER to Continue ";A$:GOTO10
12 PRINT" Output now going to Printer":PRINT:LPRINTTAB(24)"P I Z Z A C A L C U L A T O R":LPRINT:S$=" In.":LPRINT"Size ";:FORI=1TO7:READN:LPRINTUSING"######"; N;:LPRINTS$;:NEXT:LPRINT:RESTORE:GOSUB15:LPRINT"SQIN";:FORI=1TO7:READN
13 T(I)=(N/2)^2*3.141592:LPRINTUSING"########.#";T(I);:NEXTI:LPRINT:GOSUB15:LPRINT:LPRINTTAB(10);:GOSUB16:LPRINT "PRICE OF PIZZA";:GOSUB16:LPRINT
14 LPRINTTAB(20)"Read Price per square inch in first column.":LPRINT:FORI=.03TO.15 STEP.005:LPRINTUSING".###";I;:FORJ=1TO7:LPRINTUSING"#######.##";I*T(J);:NEXTJ:LPRINT:NEXTI:GOSUB15:LPRINTCHR$(12):PRINT" Job Finished - Enjoy your Pizza!":END
