10 rem Epinions Income Share Calculator
20 cat = 1.5
30 dim mnth(12)
40 for x = 1 to 12
50 read mnth(x)
60 next x
70 print "CaptainD's Epinions Share Calculator"
80 print "Accurate to within £1m in any calendar month..."
90 print
100 print "Which month do you want to calculate your prospective income share for?"
110 print "(1 for Jan, 2 for Feb, etc...)"
120 input month
130 print "Input total number of reviews"
140 input reviews
150 print "Input total number of page views"
160 input views
170 print "Input total number of members on your WOT"
180 input wot
190 print "Approximately how many of your reviews are in Writers' Corner?"
200 input wc
210 print "Which category do you write most reviews in?"
220 print "(Please use all lower case)"
230 input cat$
240 if cat$ = "movies" then cat = 2.5
250 if cat$ = "books" then cat = 2
260 if cat$ = "music" then cat = 1
270 if cat$ = "electronics" then cat = 5
280 if cat$ = "computer hardware" then cat = 3.5
281 print "How many Top Reviewer hats do you have?"
282 input hats
290 print
300 print "*********************************************"
310 print "      Calculating Epinions Income Share"
330 print "*********************************************"
380 a = int(views/1000)*int(wot/100)
381 a = a+(hats/2)
390 b = reviews-wc
400 c = mnth(month)*cat
440 d = (a*b)/1000
450 e = d*c
480 f = d*e
490 g = f/8000
500 print
510 print
520 print "$"+str$(g)
530 stop
540 rem data statements
550 data 5,1,1,1,1,1,1,1,1,2,3,4