1  REM STEVE MUNZEL, AUTHOR. PROGRAM FOR TWO DIGIT MULTIPLICATION. 4/74
2  DIM Z$[72]
3  PRINT "HELLO, THERE!!  I'M 2DIGIT.  JUST CALL ME '2', FOR SHORT!"
4  PRINT "WHAT IS YOUR FIRST NAME";
5  INPUT Z$
6  PRINT "TRY TO SOLVE THESE TWO DIGIT MULTIPLICATION PROBLEMS, "Z$
7  N=0
8  W=0
9  FOR J=1 TO 100
10  FOR I=1 TO 5
11  C=0
12  X=INT(RND(0)*10)
13  Y=INT(RND(0)*100)
14  IF Y<10 THEN 13
15  PRINT "WHAT IS";X;"X";Y;"? ";
16  ENTER 45,P,A
17  PRINT 
18  IF P=-256 THEN 31
19  C=C+P
20  IF P<0 THEN 15
21  IF A=X*Y THEN 34
22  PRINT "THAT'S NOT WHAT I GOT,"Z$;". . . TRY IT AGAIN!"
23  PRINT 
24  PRINT X;"X";Y;"=";
25  ENTER 45,P,A
26  PRINT 
27  IF P=-256 THEN 31
28  C=C+P
29  IF P<0 THEN 24
30  IF A=X*Y THEN 34
31  PRINT "THE CORRECT ANSWER WAS";X*Y
32  W=W+1
33  GOTO 44
34  Q=INT(RND(0)*4+1)
35  IF Q=1 THEN 38
36  PRINT Z$", YOU'RE F*"'7"A*"'7"N*"'7"T*"'7"A*"'7"S*"'7"T*"'7"I*"'7"C!!!";X*Y;"IS RIGHT!!!"
37  GOTO 41
38  PRINT "HOW DO YOU DO IT, "Z$"??";X*Y;"WAS CORRECT!!"'7'7'7'7'7'7'7'7'7'7'7'7'7
39  GOTO 41
40  PRINT "R*"'7"I*"'7"G*"'7"H*"'7"T*"'7"O!!! "Z$"  THE ANSWER WAS INDEED,";X*Y;"!!!"
41  P=C
42  PRINT "THAT TOOK YOU";P;"SECOND(S) TO DO CORRECTLY!"
43  N=N+1
44  NEXT I
45  PRINT Z$", YOUR TOTAL NUMBER RIGHT IS NOW...";N;"YOU GOT ";W;"WRONG."
46  PRINT "I HAVE GIVEN YOU";J*5;"PROBLEMS, SO FAR. . . "
47  PRINT "YOUR TOTAL PER CENT RIGHT IS NOW,";(N*100)/(J*5)
48  PRINT "WANT TO TRY 5 MORE??   1=YES   O=NO";
49  INPUT A
50  IF A=0 THEN 55
51  NEXT J
52  PRINT "THAT'S ENOUGH FOR ME!!!"
53  PRINT "SEE YA' LATER,"Z$
54  GOTO 56
55  PRINT "O.K.,"Z$", THEN YOU ARE NOW. . . "
56  END 
