perm filename HARD.BAS[EST,CSR]1 blob
sn#415896 filedate 1979-02-06 generic text, type T, neo UTF8
1 REM - A = NO. OF PAGES
2 REM - B = NO. OF COPIES TO BE PRINTED
3 REM - P = PRINTING CHARGES
4 REM - C1 = COLLATIN CHARGES
5 REM - C2 = COVERS
6 REM - S = STAPLING
10 PRINT "HELLO, I'M CAPABLE OF ESTIMATING THE COST TO TO PRINT A REPORT"
11 PRINT "IN HARDCOPY. BUT FIRST I NEED SOME INFORMATION FROM YOU."
12 PRINT
13 PRINT "PLEASE INPUT THE NUMBER OF PAGES IN THE REPORT"
20 INPUT A
22 IF A <= 0 THEN 30
24 IF A > 300 THEN 30
26 IF A = INT(A) THEN 34
30 PRINT "THAT CAN'T BE RIGHT."
32 GO TO 13
34 PRINT "THANK YOU."
36 PRINT "NOW I NEED TO KNOW HOW MANY COPIES YOU WANT."
38 INPUT B
40 IF B <= 0 THEN 46
44 IF B = INT(B) THEN 90
46 PRINT "THAT CAN'T BE RIGHT."
48 GO TO 36
90 IF B<=100 THEN 100
91 IF B<=150 THEN 235
92 IF B<=200 THEN 369
99 IF B>999 THEN 46
100 C2=14.50
101 S=5
102 C1=6
103 P=28
104 IF A<=10 THEN 9000
105 P=48
106 C2=14.50
107 S=5
108 IF A<=20 THEN 9000
109 C2=14.50
110 S=5
111 P=72
112 IF A<=30 THEN 9000
113 C2=14.50
114 S=5
115 P=95
116 C1=11
117 IF A<=40 THEN 9000
118 C2=14.50
119 S=5
120 P=120
121 IF A<=50 THEN 9000
122 C2=14.50
123 S=5
124 P=143
125 C1=15
126 IF A<=60 THEN 9000
127 C2=14.50
128 S=5
129 P=168
130 IF A<=70 THEN 9000
131 C2=14.50
132 S=5
133 P=193
134 C1=19
135 IF A<=80 THEN 9000
136 C2=14.50
137 S=5
138 P=215
139 IF A<=90 THEN 9000
140 C2=14.50
141 S=5
142 P=240
143 IF A<=100 THEN 9000
144 C2=14.50
145 S=5
146 P=263
147 IF A<=110 THEN 9000
148 C2=14.50
149 S=5
150 P=288
151 C1=24
152 IF A<=120 THEN 9000
153 C2=14.50
154 S=5
155 P=311
156 IF A<=130 THEN 9000
157 C2=14.50
158 S=5
159 P=335
160 C1=34
161 IF A<=140 THEN 9000
162 C2=14.50
163 S=5
164 P=358
165 IF A<=150 THEN 9000
166 C2=14.50
167 S=5
168 P=383
169 C1=38
170 IF A<=160 THEN 9000
171 C2=14.50
172 S=5
173 P=408
174 IF A<=170 THEN 9000
175 C2=14.50
176 S=5
177 P=431
178 C1=42
179 IF A<=180 THEN 9000
180 C2=14.50
181 S=5
182 P=456
183 IF A<=190 THEN 9000
184 C2=14.50
185 S=5
186 P=515
187 C1=47
188 IF A<=200 THEN 9000
190 C2=14.50
191 S=5
192 P=503
193 IF A<=210 THEN 9000
194 C2=14.50
195 S=5
196 P=526
197 C1=53
198 IF A<=220 THEN 9000
199 C2=14.50
200 S=5
201 P=551
202 IF A<=230 THEN 9000
203 C2=14.50
204 S=5
205 P=576
206 C1=58
207 IF A<=240 THEN 9000
208 C2=14.50
209 S=5
210 P=599
211 IF A<=250 THEN 9000
212 C2=14.50
213 S=5
214 P=623
215 C1=61
216 IF A<=260 THEN 9000
217 C2=14.50
218 S=5
219 P=646
220 IF A<=270 THEN 9000
221 C2=14.50
222 S=5
223 P=668
224 C1=66
225 IF A<=280 THEN 9000
226 C2=14.50
227 S=5
228 P=692
229 IF A<=290 THEN 9000
230 C2=14.50
231 S=5
232 P=715
233 C1=70
234 IF A<=300 THEN 9000
235 C2=17
236 S=7
237 C1=8
238 P=52
239 IF A<=10 THEN 9000
240 P=52
241 C2=17
242 S=7
243 IF A<=20 THEN 9000
244 C2=17
245 S=7
246 P=78
247 IF A<=30 THEN 9000
248 C2=17
249 S=7
250 P=103
251 C1=15
252 IF A<=40 THEN 9000
253 C2=17
254 S=7
255 P=129
256 IF A<=50 THEN 9000
257 C2=17
258 S=7
259 P=155
260 C1=28
261 IF A<=60 THEN 9000
262 C2=17
263 S=7
364 P=180
265 IF A<=70 THEN 9000
266 C2=17
267 S=7
268 P=206
269 C1=28
270 IF A<=80 THEN 9000
271 C2=17
272 S=7
273 P=231
274 IF A<=90 THEN 9000
275 C2=17
276 S=7
277 P=256
278 IF A<=100 THEN 9000
279 C2=17
280 S=7
281 P=283
282 IF A<=110 THEN 9000
283 C2=17
284 S=7
285 P=309
286 C1=34
287 IF A<=120 THEN 9000
288 C2=17
289 S=7
290 P=335
291 IF A<=130 THEN 9000
292 C2=17
293 S=7
294 P=361
295 C1=49
296 IF A<=140 THEN 9000
297 C2=17
298 S=7
299 P=385
300 IF A<=150 THEN 9000
301 C2=17
302 S=7
303 P=411
304 C1=55
305 IF A<=160 THEN 9000
306 C2=17
307 S=7
308 P=437
309 IF A<=170 THEN 9000
310 C2=17
311 S=7
312 P=464
313 C1=61
314 IF A<=180 THEN 9000
315 C2=17
316 S=7
317 P=489
318 IF A<=190 THEN 9000
319 C2=17
320 S=7
321 P=515
322 C1=68
323 IF A<=200 THEN 9000
324 C2=17
325 S=7
326 P=540
327 IF A<=210 THEN 9000
328 C2=17
329 S=7
330 P=566
331 C1=77
332 IF A<=220 THEN 9000
333 C2=17
334 S=7
335 P=591
336 IF A<=230 THEN 9000
337 C2=17
338 S=7
339 P=617
340 C1=83
341 IF A<=240 THEN 9000
342 C2=17
343 S=7
344 P=644
345 IF A<=250 THEN 9000
346 C2=17
347 S=7
348 P=670
349 C1=90
350 IF A<=260 THEN 9000
351 C2=17
352 S=7
353 P=694
354 IF A<=270 THEN 9000
355 C2=17
356 S=7
357 P=713
358 C1=96
359 IF A<=280 THEN 9000
360 C2=17
361 S=7
362 P=739
363 IF A<=290 THEN 9000
364 C2=17
365 S=7
366 P=768
367 C1=102
368 IF A<=300 THEN 9000
369 C2=19.5
370 S=9
371 C1=11
372 P=31
373 IF A<=10 THEN 9000
374 P=55
375 C2=19.5
376 S=9
377 IF A<=20 THEN 9000
378 C2=19.5
379 S=9
380 P=82
381 IF A<=30 THEN 9000
382 C2=19.5
383 S=9
384 P=110
385 C1=19
386 IF A<=40 THEN 9000
387 C2=19.5
388 S=9
389 P=137
390 IF A<=50 THEN 9000
391 C2=19.5
392 S=9
393 P=166
394 C1=37
395 IF A<=60 THEN 9000
396 C2=19.5
397 S=9
398 P=193
399 IF A<=70 THEN 9000
400 C2=19.5
401 S=9
402 P=221
403 C1=28
404 IF A<=80 THEN 9000
405 C2=19.5
406 S=9
407 P=248
408 IF A<=90 THEN 9000
409 C2=19.5
410 S=9
411 P=276
412 IF A<=100 THEN 9000
413 C2=19.5
414 S=9
415 P=302
416 IF A<=110 THEN 9000
417 C2=19.5
418 S=9
419 P=330
420 C1=45
421 IF A<=120 THEN 9000
422 C2=19.5
423 S=9
424 P=357
425 IF A<=130 THEN 9000
426 C2=19.5
427 S=9
428 P=384
429 C1=64
430 IF A<=140 THEN 9000
431 C2=19.5
432 S=9
433 P=412
434 IF A<=150 THEN 9000
435 C2=19.5
436 S=9
437 P=451
438 C1=72
439 IF A<=160 THEN 9000
440 C2=19.5
441 S=9
442 P=468
443 IF A<=170 THEN 9000
444 C2=19.5
445 S=9
446 P=495
447 C1=81
448 IF A<=180 THEN 9000
449 C2=19.5
450 S=9
451 P=523
452 IF A<=190 THEN 9000
453 C2=19.5
454 S=9
455 P=550
456 C1=90
457 IF A<=200 THEN 9000
458 C2=19.5
459 S=9
460 P=578
461 IF A<=210 THEN 9000
462 C2=19.5
463 S=9
464 P=605
465 C1=100
466 IF A<=220 THEN 9000
467 C2=19.5
468 S=9
469 P=633
470 IF A<=230 THEN 9000
471 C2=19.5
472 S=9
473 P=660
474 C1=109
475 IF A<=240 THEN 9000
476 C2=19.5
477 S=9
478 P=688
479 IF A<=250 THEN 9000
480 C2=19.5
481 S=9
482 P=715
483 C1=117
484 IF A<=260 THEN 9000
485 C2=19.5
486 S=9
487 P=741
488 IF A<=270 THEN 9000
489 C2=19.5
490 S=9
491 P=767
492 C1=125
493 IF A<=280 THEN 9000
494 C2=19.5
495 S=9
496 P=794
497 IF A<=290 THEN 9000
498 C2=19.5
499 S=9
500 P=821
501 C1=134
502 IF A<=300 THEN 9000
9000 PRINT "OKAY, I WILL NOW CALCULATE THE ESTIMATE FOR YOU."
9001 PRINT
9002 PRINT "IT SHOULD COST ABOUT $"; P; "TO PRINT THE PAGES"
9003 PRINT "IT SHOULD COST ABOUT $"; C2; "TO PRINT THE COVERS"
9004 PRINT "IT SHOULD COST ABOUT $"; C1; "TO COLLATE THE REPORT"
9005 PRINT "IT SHOULD COST ABOUT $"; S; "TO BIND IT ALL TOGETHER"
9006 PRINT
9007 PRINT "SO, IN ORDER TO GET"; B; "COPIES MADE OF A REPORT"; A; "PAGES LONG"
9008 PRINT "IT WOULD COST YOU APPROXIMATELY $"; P+C1+C2+S
9999 END