3 REM BISQAR: SQUARING BINOMIALS 4 REM DRILL FOR STUDENT USEAGE 5 REM TRANSLATED TO BASIC-PLUS BY PROJECT DELTA STUDENTS 6 REM 8 RANDOMIZE 10 PRINT'DO YOU WANT DIRECTIONS'; 11 INPUT A$ 12 IF A$='NO' THEN 100 13 PRINT'YOU ARE GOING TO PRACTICE SQUARING BINOMIALS OF THE FORM' 20 PRINT' A*X+B. IN EACH CASE YOU 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" 70PRINT'COEFFICIENTS OF THE ANSWER. YOU WILL BE ASKED TO DO FIVE' 80 PRINT'PROBLEMS AND THEN YOU WILL BE TOLD HOW WELL YOU DID.' 100 DIM M(50) 110 X,Y,Z=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 370 300 GOTO 130 310 X=X+1 320 M(I)=X 330 I=I+1 340 W=W+1 350 GOTO 290 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 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 !! NICE WORK!' 480 END