1REM A = NUMBER OF COPIES
2REM C = COVERS
3REM S = STAPLES
4REM B = BINDING WITH TAPE
5PRINT "HELLO, I'M CAPABLE OF ESTIMATING THE COST OF PRINTING A REPORT."
6PRINT "BUT FIRST I NEED SOME INFORMATION FROM YOU."
7PRINT 
8PRINT "PLEASE INPUT THE NUMBER OF COPIES OF YOU WANT TO PRINT."
9INPUT A
10IF A <= 0 THEN 13
11IF A <= 500 THEN 16
12IF A = INT(C) THEN 16
13PRINT "THAT CAN'T BE RIGHT."
14GO TO 8
15PRINT
16PRINT "THANK YOU."
17C=8+14
18S=2
19B=2
20IF A<=10 THEN 900
21C=9+14
22S=2
23B=7
24IF A<=20 THEN 900
25C=10+14
26S=2
27B=12
28IF A<=40 THEN 900
29C=11+14
30S=2
31B=15
32IF A<=50 THEN 900
33C=12+14
34S=4
35B=18
36IF A<=60 THEN 900
37C=13+14
38S=5
39B=25
40IF A<=80 THEN 900
41C=14+14
42S=7
43B=27
44IF A<=90 THEN 900
45C=15+14
46S=7
47B=30
48IF A<=100 THEN 900
49C=16+14
50S=8
51B=36
52IF A<=120 THEN 900
53C=17+14
54S=8
55B=40
56IF A<=130 THEN 900
57C=18+14
58S=9
59B=42
60IF A<=140 THEN 900
61C=19+14
62S=11
63B=49
64IF A<=160 THEN 900
65C=20+14
66S=11
67B=51
68IF A<=170 THEN 900
69C=21+14
70S=11
71B=54
72IF A<=180 THEN 900
73C=22+14
74S=12
75B=61
76IF A<=200 THEN 900
77C=23+14
78S=13
79B=64
80IF A<=210 THEN 900
81C=24+14
82S=14
83B=67
84IF A<=220 THEN 900
85C=25+14
86S=15
87B=74
88IF A<=240 THEN 900
89C=26+14
90S=15
91B=76
92IF A<=250 THEN 900
93C=27+14
94S=15
95B=78
96IF A<=260 THEN 900
97C=28+14
98S=16
99B=82
100IF A<=270 THEN 900
101C=29+14
102S=18
103B=88
104IF A<=290 THEN 900
105C=30+14
106S=18
107B=91
108IF A<=300 THEN 900
109C=31+14
110S=20
111B=94
112IF A<=310 THEN 900
113C=32+14
114S=20
115B=101
116IF A<=330 THEN 900
117C=33+14
118S=22
119B=103
120IF A<=340 THEN 900
121C=34+14
122S=22
123B=106
124IF A<=350 THEN 900
125C=35+14
126S=22
127B=110
128IF A<=360 THEN 900
129C=36+14
130S=23
131B=116
132IF A<=380 THEN 900
133C=37+14
134S=25
135B=118
136IF A<=390 THEN 900
137C=38+14
138S=25
139B=121
140IF A<=400 THEN 900
141C=39+14
142S=25
143B=125
144IF A<=410 THEN 900
145C=40+14
146S=26
147B=130
148IF A<=430 THEN 900
149C=41+14
150S=27
151B=133
152IF A<=440 THEN 900
153C=42+14
154S=27
155B=137
156IF A<=450 THEN 900
157C=43+14
158S=28
159B=140
160IF A<=460 THEN 900
161C=44+14
162S=28
163B=145
164IF A<=480 THEN 900
165C=45+14
166S=30
167B=150
168IF A<=490 THEN 900
169C=46+14
170S=30
171B=152
172IF A<=500 THEN 900
900PRINT
910PRINT "BREAKDOWN AS FOLLOWS:"
912PRINT "COVERS = $"C
914PRINT "STAPLING = $"S
916PRINT "BINDING = $"B
918PRINT
920PRINT "TOTAL = $"C+S+B
922PRINT
924PRINT "UNIT COST IS $"(C+S+B)/A
999END