1  REM STEVE MUNZEL,AUTHOR. PROGRAM FOR ONE DIGIT ADDITION. 4/74
2  DIM Z$[72]
3  PRINT "GLAD YOU CALLED!! I'M ADD1. BETTER KNOWN TO YOU AS JUST 'ADD'!!"
4  PRINT "WHAT IS YOUR FIRST NAME";
5  INPUT Z$
6  PRINT "TRY TO ANSWER THESE ONE DIGIT ADDITION PROBLEMS, "Z$"!!"
7  PRINT "IF YOU GET THE PROBLEM RIGHT, I'LL RING MY BELL FOR YOU!!!"
8  A=N=0
9  W=0
10  FOR J=1 TO 100
11  FOR I=1 TO 5
12  B=0
13  X=INT(RND(0)*10)
14  Y=INT(RND(0)*10)
15  PRINT 
16  PRINT "WHAT IS";X;"+";Y;"?";
17  ENTER 30,P,A
18  PRINT 
19  B=B+P
20  IF P>0 THEN 23
21  IF P=-256 THEN 35
22  GOTO 16
23  IF A=X+Y THEN 38
24  PRINT "THAT'S NOT WHAT I GOT,"Z$;". . . TRY IT AGAIN!"
25  PRINT 
26  B=B+P
27  PRINT X;"+";Y;"=";
28  ENTER 30,P,A
29  IF P>0 THEN 33
30  IF P=-256 THEN 35
31  B=B+P
32  GOTO 27
33  PRINT '10
34  IF A=X+Y THEN 38
35  PRINT "THE ANSWER TO";X;"PLUS";Y;"IS...";X+Y
36  W=W+1
37  GOTO 48
38  Q=INT(RND(0)*3+1)
39  IF Q=1 THEN 61
40  IF Q=2 THEN 63
41  PRINT "THAT REALLY MAKES ME R*"'7"I*"'7"N*"'7"G!!";Z$;X+Y;"IS RIGHT!!"
42  P=B
43  IF P>1 THEN 46
44  PRINT "THAT TOOK YOU ONE SECOND, VERY GOOD!"
45  GOTO 47
46  PRINT "THAT TOOK YOU";P;"SECONDS!"
47  N=N+1
48  NEXT I
49  PRINT 
50  PRINT 
51  PRINT Z$", YOUR TOTAL NUMBER RIGHT IS NOW...";N;"YOU GOT ";W;"WRONG."
52  PRINT "I HAVE GIVEN YOU";J*5;"PROBLEMS, SO FAR. . . "
53  PRINT 
54  PRINT "WANT TO TRY 5 MORE?? 1=YES   O=NO";
55  INPUT A
56  IF A=0 THEN 65
57  NEXT J
58  PRINT "THAT'S ENOUGH FOR ME!!!"
59  PRINT "SEE YA' LATER,"Z$
60  GOTO 66
61  PRINT "YOU ARE VERY S*"'7"M*"'7"A*"'7"R*"'7"T!! "Z$;" ";X+Y;"WAS CORRECT!!"
62  GOTO 42
63  PRINT Z$", THAT IS EXACTLLY R*"'7"I*"'7"G*"'7"H*"'7"T!!";X;"+";Y;"IS";X+Y;"!!"
64  GOTO 42
65  PRINT "O.K., "Z$", THEN YOU ARE NOW. . . "
66  END 
