0 ' PIZZA.BA - by Tony Anderson 1 ' CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 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 15 FORI=1TO75:LPRINT"-";:NEXT:LPRINT :RETURN 16 FORI=1TO24:LPRINT"-";:NEXT:RETURN