perm filename FICHE.BAS[EST,CSR]4 blob sn#436934 filedate 1979-04-20 generic text, type T, neo UTF8
10REM - A = NO. OF PAGES; F1 = FORMATING; F2 = FILMING; P = PRINTING; B=YES OR NO
20PRINT "HELLO, I'M CAPABLE OF ESTIMATING THE COST OF MAKING 300 MICROFICHE "
21PRINT "COPIES OF A REPORT A REPORT."
30PRINT "BUT FIRST I NEED SOME INFORMATION FROM YOU."
40PRINT
50PRINT "PLEASE INPUT THE NUMBER OF PAGES IN THE REPORT"
60INPUT A
61IF A <= 0 THEN 65
62IF A > 392 THEN 65
63IF A = INT(A) THEN 70
65PRINT "THAT CAN'T BE RIGHT."
66GO TO 50
70F1 = 6.65
75P = 69
80IF A <= 98 THEN 120
90F1 = 13.30
95P = 138
100IF A <= 196 THEN 120
110F1 = 19.95
115P = 207
116IF A <= 294 THEN 120
117F1 = 26.60
118P = 276
120PRINT
250PRINT "THANK YOU, I WILL CALCULATE YOUR ESTIMATE FOR YOU NOW."
260PRINT
270PRINT
280PRINT
290PRINT "FORMATTING =", "$"F1
300PRINT
310LET F2 = .20
320PRINT "FILMING =", "$"A*F2
330PRINT
340PRINT "PRINTING =", "$"P
350PRINT
360PRINT "SO, IN ORDER TO GET 300 FICHE COPIES OF A REPORT"; A; "PAGES LONG,"
361PRINT "IT WOULD RUN YOU ABOUT $"F1+(A*F2)+P
370PRINT
380PRINT "IF YOU WOULD LIKE TO RUN ANOTHER ESTIMATE AT THIS TIME, ENTER ANY"
381PRINT "INTEGER LESS THAN 10.  IF NOT, ANY INTEGER GREATER THAN 10."
382INPUT B
383IF B < 10 THEN 50
384IF B > 10 THEN 385
385PRINT
390PRINT "IF YOU'RE DONE FOR NOW, JUST TYPE 'BYE' TO GET OUT OF 'BASIC'."
400PRINT "IT WAS MY PLEASURE TO SERVE YOU. PLEASE CALL ON ME ANY TIME."
410PRINT
999END