===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 05-05-93 (14:56)             Number: 34
From: CALVIN FRENCH                Refer#: NONE
  To: CASEY PEARSON                 Recvd: NO  
Subj: XPONENT.BAS part 3             Conf: (35) Quick Basi
---------------------------------------------------------------------------
 On 05-03-93 CASEY PEARSON wrote to CALVIN FRENCH...

 CP>         Wast there suppose to be a part 3; this was all I got?

Yeah i guess it diddn't get through. Thanks! :-)

Part Three of XPONENT.BAS:
'>>> Start of page 3.

PRINT "e": PRINT "o": PRINT "p": PRINT "l": PRINT "e": PRINT ""+_
" ": PRINT "W"
PRINT "h": PRINT "o": PRINT " ": PRINT "K": PRINT "n": PRINT_
 "o": PRINT "w"

PALETTE 4, 0
COLOR 4

FOR n = 33 TO 33 + (32 * (hours - 1)) STEP 32
     LINE (n, 368 - (KnowArray(n / 32 - 1) / 100 + 1))-(n + 33,_
 368 - (KnowArray(n / 32) / 100 + 1))
NEXT n

FOR n = 0 TO 63
     PALETTE 4, n
NEXT n

COLOR 15
LOCATE 27, 1
PRINT "<Press Any Key>";
a$ = INPUT$(1)

SCREEN 0
WIDTH 80

END SUB

SUB PrintData

SHARED TotalPeople

LOCATE 1, 1
PRINT "People Who Know:       "; PeopleWhoKnow
PRINT "People Who Don't Know: "; TotalPeople - PeopleWhoKnow
PRINT "Hours (probes):        "; hours

END SUB

SUB PrintLastTextScreen

PRINT "So, as you have seen, there is a definite probability"+_
" 'curve' as it"
PRINT "were. It starts off small, makes a big jump, and then"+_
" evens off slowly."
PRINT "Although this makes sense, I would like to know a FASTER"+_
" way of"
PRINT "Calculating these values. Of course, it would not be"+_
" totally accurate"
PRINT "but heck, niether is QB's RND function that effective!"+_
" Well, sorry"
PRINT "for all you people with 286's (like Rich <G>) that had to"+_
" sit for a "
PRINT "long time for it to compute! Hope you liked it, and of"+_
" course feel"
PRINT "free to use any of the code in your programs (esp."+_
" NeatoColoring) but"
PRINT "remember credit where credit is due! This did take a"+_
" while to do"
PRINT "but oh well, no problem!"
PRINT
PRINT "- Calvin -"
PRINT
PRINT
PRINT
PRINT "<Press Any Key>"

NeatoColoring

END SUB

SUB ProbabilityCompute (TotalPeople)
CLS

COLOR 7

hours = 0
PeopleWhoKnow = 1

DO

PrintData

'>>> Continued on page 4

... OFFLINE 1.52  "Not complaining but, was it suppose to smoke like that???"

--- Maximus 2.01wb
 * Origin: RJ's Byteline =[HST/DS]= Calgary (403)247-3180 CANADA (1:134/75)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20