perm filename PPSAV.TMP[EST,CSR] blob sn#528259 filedate 1980-08-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	OLD FILE NAME--fiche
C00006 00003	(the program)
C00013 ENDMK
CāŠ—;
OLD FILE NAME--fiche

READY
run

FICHE         09:08         15-AUG-80



HELLO, I'M CAPABLE OF ESTIMATING THE COST OF MAKING A REPORT INTO
MICROFICHE.  BUT FIRST I NEED SOME INFORMATION FROM YOU.

PLEASE INPUT THE NUMBER OF COPIES OF FICHE YOU WANT.
 ?400
THANK YOU.
NOW INPUT THE NUMBER OF PAGES IN THE REPORT.
 ?12

THANK YOU, I WILL CALCULATE YOUR ESTIMATE FOR YOU NOW.

FORMATTING =  $ 8
HEADER =      $ 3.2
FILMING =     $ 4.284
PRINTING =    $ 130.
HANDLING =    $ 10

SO, IN ORDER TO GET 400 FICHE COPIES OF A REPORT 12 PAGES LONG,
IT WOULD RUN YOU ABOUT $ 155.484

IF YOU WOULD LIKE TO RUN ANOTHER ESTIMATE AT THIS TIME, ENTER ANY
INTEGER LESS THAN 10.  IF NOT, ENTER ANY INTEGER GREATER THAN 10.
 ?9
PLEASE INPUT THE NUMBER OF COPIES OF FICHE YOU WANT.
 ?900
THANK YOU.
NOW INPUT THE NUMBER OF PAGES IN THE REPORT.
 ?45

THANK YOU, I WILL CALCULATE YOUR ESTIMATE FOR YOU NOW.

FORMATTING =  $ 8
HEADER =      $ 3.2
FILMING =     $ 16.065
PRINTING =    $ 292.5
HANDLING =    $ 10

SO, IN ORDER TO GET 900 FICHE COPIES OF A REPORT 45 PAGES LONG,
IT WOULD RUN YOU ABOUT $ 329.765

IF YOU WOULD LIKE TO RUN ANOTHER ESTIMATE AT THIS TIME, ENTER ANY
INTEGER LESS THAN 10.  IF NOT, ENTER ANY INTEGER GREATER THAN 10.
?9
PLEASE INPUT THE NUMBER OF COPIES OF FICHE YOU WANT.
 ?999
THANK YOU.
NOW INPUT THE NUMBER OF PAGES IN THE REPORT.
 ?99999
THAT CAN'T BE RIGHT.
NOW INPUT THE NUMBER OF PAGES IN THE REPORT.
 ?9

THANK YOU, I WILL CALCULATE YOUR ESTIMATE FOR YOU NOW.

FORMATTING =  $ 8
HEADER =      $ 3.2
FILMING =     $ 3.213
PRINTING =    $ 324.675
HANDLING =    $ 10

SO, IN ORDER TO GET 999 FICHE COPIES OF A REPORT 9 PAGES LONG,
IT WOULD RUN YOU ABOUT $ 349.088

IF YOU WOULD LIKE TO RUN ANOTHER ESTIMATE AT THIS TIME, ENTER ANY
INTEGER LESS THAN 10.  IF NOT, ENTER ANY INTEGER GREATER THAN 10.
 ?99

IF YOU'RE DONE FOR NOW, JUST TYPE 'BYE' TO GET OUT OF 'BASIC'.
IT WAS MY PLEASURE TO SERVE YOU. PLEASE CALL ON ME ANY TIME.

READY
bye

Exit
ā†‘C
.
(the program)

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