perm filename FICHE.BAS[EST,CSR] blob sn#499940 filedate 1980-04-11 generic text, type T, neo UTF8
10REM - A = NO. OF PAGES; C = COPIES; F1 = FORMATING; F2 = FILMING; 
11REM - H = HEADER; B=YES OR NO; P = PRINTING; S = SETS
20PRINT "HELLO, I'M CAPABLE OF ESTIMATING THE COST OF MAKING A REPORT INTO"
21PRINT "MICROFICHE.  BUT FIRST I NEED SOME INFORMATION FROM YOU."
30PRINT
40PRINT "PLEASE INPUT THE NUMBER OF COPIES OF FICHE YOU WANT."
41INPUT C
42IF C <= 0 THEN 45
43IF C > 1000 THEN 45
44IF C = INT(C) THEN 48
45PRINT "THAT CAN'T BE RIGHT."
46GO TO 40
47PRINT
48PRINT "THANK YOU."
50PRINT "NOW INPUT THE NUMBER OF PAGES IN THE REPORT."
60INPUT A
61IF A <= 0 THEN 65
62IF A > 588 THEN 65
63IF A = INT(A) THEN 70
65PRINT "THAT CAN'T BE RIGHT."
66GO TO 50
70S = 1
80IF A <= 98 THEN 200
90S = 2
100IF A <= 196 THEN 200
110S = 3
115IF A <= 294 THEN 200
120S = 4
125IF A <= 392 THEN 200
130S = 5
135IF A <= 490 THEN 200
140S = 6
145IF A <= 588 THEN 200
200PRINT
250PRINT "THANK YOU, I WILL CALCULATE YOUR ESTIMATE FOR YOU NOW."
260PRINT
290PRINT "FORMATTING =", "$"8.00*S
295PRINT "HEADER =", "$"3.20*S
310PRINT "FILMING =", "$".357*A
330PRINT "PRINTING =", "$".3250*C*S
340PRINT "HANDLING =", "$"10
350PRINT
360PRINT "SO, IN ORDER TO GET"; C; "FICHE COPIES OF A REPORT"; A; "PAGES LONG,"
361PRINT "IT WOULD RUN YOU ABOUT $"(8.00*S)+(3.20*S)+(.357*A)+(.3250*C*S)+10
370PRINT
380PRINT "IF YOU WOULD LIKE TO RUN ANOTHER ESTIMATE AT THIS TIME, ENTER ANY"
381PRINT "INTEGER LESS THAN 10.  IF NOT, ENTER ANY INTEGER GREATER THAN 10."
384INPUT B
385IF B < 10 THEN 40
386IF B > 10 THEN 387
387PRINT
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