REM PROGRAMMED BY: TRAVIS SCHULTZ


SCREEN 0
KEY(10) ON
CLS
tim = TIMER
FOR nat = 1 TO LEN(na$)
k = k + ASC(MID$(na$, nat, 1))
NEXT
RANDOMIZE k
COLOR 15
PRINT "Programmed 1997 by Travis Schultz"
INPUT "Name: "; na$
PRINT "Personality:"
yo1 = CINT(RND * 10) + 90
FOR pr1 = 0 TO yo1
LOCATE 4, 22: PRINT pr1; "% "
a = TIMER: DO: LOOP UNTIL TIMER > a + .1
NEXT
COLOR 12
PRINT "Common sence:"
yo2 = CINT(RND * 100)
FOR pr2 = 0 TO yo2
LOCATE 5, 25: PRINT pr2; "% "
a = TIMER: DO: LOOP UNTIL TIMER > a + .2
NEXT
PRINT "Book Smart:"
yo3 = CINT(RND * 100)
FOR pr3 = 0 TO yo3
LOCATE 6, 23: PRINT pr3; "% "
a = TIMER: DO: LOOP UNTIL TIMER > a + .1
NEXT
COLOR 2
PRINT "Memory Status:"
yo4 = CINT(RND * 100)
FOR pr4 = 0 TO yo4
LOCATE 7, 17: PRINT pr4; "% "
a = TIMER: DO: LOOP UNTIL TIMER > a + .17
NEXT
COLOR 12
PRINT "Physical Ability:"
yo5 = CINT(RND * 100)
FOR pr5 = 0 TO yo5
LOCATE 8, 22: PRINT pr5; "% "
a = TIMER: DO: LOOP UNTIL TIMER > a + .12
NEXT
PRINT "Reflex Test:"
yo6 = CINT(RND * 100)
FOR pr6 = 0 TO yo6
LOCATE 9, 14: PRINT pr6; "% "
a = TIMER: DO: LOOP UNTIL TIMER > a + .14
NEXT
PRINT "Humor:"
yo31 = CINT(RND * 200)
FOR pr31 = 0 TO yo31
LOCATE 10, 23: PRINT pr31; "% "
a = TIMER: DO: LOOP UNTIL TIMER > a + .07
NEXT
COLOR 14
PRINT "É"; STRING$(78, 205); "»"
dur = (pr2 + pr3 + pr4 + pr5 + pr6 + (100 - ABS(pr31 - 100))) / 6
PRINT "º Average:"; dur; "%", "Total:"; 100 - dur; "%";
LOCATE CSRLIN, 80: PRINT "º"
PRINT "È"; STRING$(78, 205); "¼"
SLEEP
CLS
COLOR 12
LOCATE 15, 14
PRINT "Thank You !"
BEEP: SLEEP