REM - A = NO. OF PAGES; F1 = FORMATING; F2 = FILMING; P = PRINTING
PRINT "HELLO, I'M CAPABLE OF ESTIMATING THE COST TO MICROFICHE A REPORT."
PRINT "BUT FIRST I NEED SOME INFORMATION FROM YOU."
PRINT
PRINT "PLEASE INPUT THE NUMBER OF PAGES IN THE REPORT"
INPUT A
F1 = 6.65
IF A <= 98 THEN 120
F1 = 13.30
IF A <= 196 THEN 120
F1 = 19.95
PRINT
PRINT "PLEASE INPUT FORMATTING CHARGE AS FOLLOWS:"
PRINT "1-98 PAGES = 6.65"
PRINT "99-196 PAGES = 13.30"
PRINT "197-294 PAGES = 19.95"
INPUT F1
PRINT
PRINT "PLEAE INPUT PRINTING CHARGES AS FOLLOWS:"
PRINT "1-98 PAGES = 69"
PRINT "99-196 PAGES = 138"
PRINT "197-294 PAGES = 207"
INPUT P
PRINT
PRINT "THANK YOU, I WILL CALCULATE YOUR ESTIMATE FOR YOU NOW."
PRINT
PRINT
PRINT
PRINT "FORMATTING ", F1
PRINT
LET F2 = .20
PRINT "FILMING ", A*F2
PRINT
PRINT "PRINTING ", P
PRINT
PRINT "THE COST FOR MICROFICHE REPORT SHOULD RUN YOU AROUND ", F1+(A*F2)+P
PRINT
PRINT
PRINT "IT WAS MY PLEASURE TO SERVE YOU. PLEASE CALL ON ME AGAIN."
PRINT "IF YOU WISH TO ESTIMATE MICROFICHE COSTS FOR ANOTHER REPORT"
PRINT "AT THIS TIME, SIMPLY TYPE 'RUN' WHEN YOU GET THE 'READY' SIGNAL."
PRINT "IF YOU'RE DONE, TYPE 'CALL'."
PRINT
END