1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       BISQAR: SQUARING BINOMIALS
4  REM
5  REM       36240 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
8  DIM A$[10]
9  PRINT "SQUARING BINOMIALS ......."
10  PRINT "DO YOU WANT DIRECTIONS";
11  INPUT A$
12  IF A$="NO" THEN 90
13  PRINT "YOU ARE GOING TO PRACTICE SQUARING BINOMIALS OF THE FORM"
20  PRINT "  A*X + B.  IN EACH CASE YOUR ANSWER WILL BE A TRI-"
30  PRINT "NOMIAL OF THE FORM  P*X^2 + Q*X + R. WHEN I ASK FOR YOUR"
40  PRINT "ANSWER, YOU SHOULD TYPE IN THE VALUES OF P,Q,AND R SEPAR-"
50  PRINT "ATED BY COMMAS. AFTER YOU HAVE TYPED IN 'R' YOU SHOULD HIT"
60  PRINT "THE 'RETURN' KEY. NOTE THAT YOU ARE ONLY TYPING IN THE"
70  PRINT "COEFFICIENTS OF THE ANSWER. YOU WILL BE ASKED TO DO FIVE"
80  PRINT "PROBLEMS AND THEN YOU WILL BE TOLD HOW WELL YOU DID."
90  T1=TIM(0)
100  DIM M[50]
110  X=Z=W=0
120  I=1
130  S=INT(RND(I)*2)
140  IF S=0 THEN 170
150  A=INT(RND(I)*10)+1
160  GOTO 180
170  A=-1*(INT(RND(I)*10)+1)
180  S=INT(RND(X)*2)
190  IF S=0 THEN 220
200  B=INT(RND(I)*10)+1
210  GOTO 230
220  B=-1*(INT(RND(I)*10)+1)
230  PRINT "NO. ";X+1;TAB(6);":"
240  PRINT "WHAT IS THE SQUARE OF  ";A;TAB(25);"*X + ";B
250  INPUT P,Q,R
260  IF P#A*A OR Q#2*A*B OR R#B*B THEN 310
270  X=X+1
280  Z=Z+1
290  IF X=5 THEN 360
300  GOTO 130
310  X=X+1
320  M[I]=X
330  I=I+1
340  W=W+1
350  GOTO 290
360  T2=TIM(0)
370  IF W=0 THEN 460
380  PRINT "YOU GOT ";Z;"OUT OF ";X;"CORRECT. YOU MISSED THE FOLLOWING:"
390  FOR I=1 TO W
400  PRINT "NO. ";M[I];"   ";
410  NEXT I
419  PRINT 
420  PRINT "IT TOOK YOU ";T2-T1;"MINUTES."
430  PRINT "CORRECT YOUR ERRORS ON THIS PAPER AND TURN IT IN FOR"
440  PRINT "CREDIT. MAYBE NEXT TIME YOU WILL GET 100%. BYE!"
450  GOTO 480
460  PRINT "YOU GOT THEM ALL RIGHT "'7'7'7'7'7'7'7"!! NICE WORK! IT TOOK YOU ";
470  PRINT T2-T1;"MINUTES."
480  END 
