1  REM STEVE MUNZEL, AUTHOR.  PROGRAM FOR ONE DIGIT DIVISION.
2  DIM Z$[72]
3  B=0
4  R=0
5  PRINT "HELLO, THERE!  SO YOU WANT SOME DIVISION PRACTICE, HUH?!"
6  PRINT "WELL, YOU CAME TO THE RIGHT PLACE!"
7  PRINT "WHAT IS YOR NAME ";
8  INPUT Z$
9  PRINT "TRY TO ANSWER THESE EASY PROBLEMS, "Z$
10  FOR I=1 TO 10
11  FOR J=1 TO 5
12  C=0
13  X=INT(RND(0)*100)
14  Y=INT(RND(0)*10)
15  IF Y=0 THEN 14
16  N=X*Y
17  PRINT 
18  PRINT "WHAT IS";N;"DIVIDED BY";Y;"? ";
19  ENTER 60,P,A
20  PRINT 
21  C=C+P
22  IF P=-256 THEN 35
23  IF P<0 THEN 18
24  IF A=X THEN 38
25  PRINT 
26  PRINT "THAT'S NOT WHAT I GOT, "Z$" . . . TRY IT AGAIN!!"
27  PRINT 
28  PRINT "HOW MANY TIMES DOES";Y;"GO INTO";N;"? ";
29  ENTER 60,P,A
30  PRINT 
31  C=C+P
32  IF P=-256 THEN 35
33  IF P<0 THEN 28
34  IF A=X THEN 38
35  PRINT N;"DIVIDED BY";Y;"IS";X;", "Z$"."
36  B=B+1
37  GOTO 49
38  W=INT(RND(0)*3+1)
39  R=R+1
40  IF W=1 THEN 44
41  IF W=2 THEN 46
42  PRINT "YOU'RE R*"'7"I*"'7"G*"'7"H*"'7"T, "Z$"!!";X;"WAS THE ANSWER I GOT, TOO!"
43  GOTO 48
44  PRINT "THAT'S G*"'7"R*"'7"E*"'7"A*"'7"T, "Z$"!!";X;"IS COMPLETELY CORRECT!!"
45  GOTO 48
46  PRINT Z$", YOU'RE T*"'7"E*"'7"R*"'7"R*"'7"I*"'7"F*"'7"I*"'7"C!!";X;"IS RIGHT!!!"
47  P=C
48  PRINT "THAT TOOK YOU JUST";P;"SECOND(S) TO GET CORRECT!!!"
49  NEXT J
50  PRINT 
51  PRINT Z$",YOU NOW HAVE";R;"PROBLEMS RIGHT AND";B;"WRONG!"
52  PRINT "I HAVE GIVEN YOU ";I*5;"PROBLEMS SO FAR. . . "
53  PRINT "YOUR TOTAL PER CENT RIGHT IS NOW";(R*100)/(I*5)
54  PRINT 
55  PRINT "WANT TO TRY FIVE MORE??   1=YES   0=NO  ";
56  INPUT C
57  IF C=0 THEN 60
58  NEXT I
59  PRINT "I'VE HAD ENOUGH FOR AWHILE. . ."
60  PRINT "SEE YA' LATER, "Z$"!  NOW WE ARE . . . "
61  END 
