Msg: 18 *Conference*

05-18-91 17:57:31

From: BOB GENDRON

To : ALL

Subj: PIZZA ET ALL...

 0 ' PIZZA.BA - by Tony Anderson
 1 ' CLUB 100 LIBRARY - 415/939-1246 BBS
 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:LP
RINT:NEXTI:GOSUB15:LPRINTCHR$(12):PRINT"  Job Finished - Enjoy your Pizza!":END
 15 FORI=1TO75:LPRINT"-";:NEXT:LPRINT :RETURN
 16 FORI=1TO24:LPRINT"-";:NEXT:RETURN