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