3 REM      SIPRAC:  PRACTICE WITH SIGNED NUMBERS
6 REM
8 REM             PROGRAMMER: M.S.BOLDUAN
9 REM             LINE 20 GOVERNS THE LENGTH OF RESPONSE TIME
10 RANDOMIZE
15 ON ERROR GOTO 920
20 K=5
30 PRINT'SIGNED NUMBER MANIPULATION PRACTICE ..............'
40 PRINT'DO YOU WANT DIRECTIONS';
50 INPUT S$
60 IF S$='NO' THEN 120
70 PRINT'IN THIS PROGRAM YOU WILL BE PRACTICING ADDITION, SUBTRACTION,'
80 PRINT'AND MULTIPLICATION OF SIGNED NUMBERS. YOU WILL HAVE'
90 PRINTK;'SECONDS AFTER THE PROBLEM IS STATED IN WHICH TO'
100 PRINT 'RESPOND WITH THE CORRECT ANSWER.'
120 J=1
130 R=0
140 DIM W(30)
150 PRINT"WHAT'S YOUR LUCKY NUMBER";
160 INPUT L
170 N=INT(RND(O)*L)+5
180 PRINT"YOU'LL BE DOING ";N;"PROBLEMS. GOOD LUCK!!"
190 FOR X=1 TO N
200 S=INT(RND(O)*3)
210 IF S=1 OR S=2 THEN 240
220 A1=-1*INT(RND(O)*10)
230 GOTO 250
240 A1=INT(RND(O)*20)
250 IF S=0 OR S=1 THEN 280
260 A2=-1*INT(RND(O)*20)
270 GOTO 290
280 A2=INT(RND(O)*20)
290 PRINT'NO. ';X;':     ';
300 PRINT A1;
310 A=INT(RND(O)*3)+1
320 ON A GOTO 330,390,450
330 PRINT'+  ';A2;'=';
335 WAIT 10
340 INPUT Q
360 PRINT
370 A$='+'
380 GOTO 500
390 PRINT'-  ';A2;'=';
400 INPUT Q
420 PRINT
430 A$='-'
440 GOTO 500
450 PRINT'X  ';A2;'=';
460 INPUT Q
480 PRINT
490 A$='X'
500 IF A$='+' THEN 550
510 IF A$='-' THEN 590
520 IF A$='X' THEN 630
530 PRINT'ERROR'
540 GOTO 870
550 IF Q=A1+A2 THEN 670
560 W(J)=X
570 J=J+1
580 GOTO 680
590 IF Q=A1-A2 THEN 670
600 W(J)=X
610 J=J+1
620 GOTO 680
630 IF Q=A1*A2 THEN 670
640 W(J)=X
650 J=J+1
660 GOTO 680
670 R=R+1
680 NEXT X
700 PRINT TAB(12);'YOU GOT ';R;'RIGHT OUT OF ';X
710 X=X-1
715 PRINT TAB(12);'THIS IS ';(R/(X+1))*100;'PERCENT
720 PRINT TAB(12);'YOU MISSED THE FOLLOWING PROBLEMS:'
730 IF R=X+1 THEN 810
750 PRINT TAB(5);
760 FOR H=1 TO X+1-R
770 PRINT'NO. ';W(H);'     ';
780 NEXT H
790 PRINT:PRINT'CORRECT YOUR ERRORS AND TURN IN YOUR PAPER FOR CREDIT.'
800 GOTO 930
810 PRINT'WAY TO GO!! DO YOU WANT TO TRY TO GET 100% TWO TIMES'
820 PRINT'IN A ROW';
830 INPUT B$
840 IF B$='YES' THEN 120
850 PRINT"IT'S BEEN FUN AND NOW I'M";
860 GOTO 930
870 PRINT
880 PRINT:PRINT'TOO LATE!  TRY THE NEXT ONE.'
890 W(J)=X
900 J=J+1
910 GOTO 680
920 IF ERR<>15 THENPRINT'ERR';ERR;'ERL';ERL;ELSE RESUME 880
930 END