10 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL 20 REM-MATHDICE*** (BASIC PROGRAM BEGINS AT LINE 100) WAS PROGRAMMED 30 REM-BY JIM GERRISH, FOURTH GRADE TEACHER AT THE BERNICE A. RAY 40 REM-SCHOOL, HANOVER, NEW HAMPSHIRE. LAST CHANGE: 3/21/72. 50 REM 60 REM-PROGRAM PERFORMS PICTORAL DRILL ON ADDITION FACTS USING 70 REM-PRINTED DICE, NO READING INVOLVED. GOOD FOR BEGINNING 80 REM-ADDITION, SINCE ANSWER CAN BE DERRIVED FROM COUNTING SPOTS 90 REM-DICE AS WELL AS BY MEMORIZING MATH FACTS OR AWARENESS 100 REM-OF NUMBER CONCEPTS. 110 REM- 120 PRINT"THIS PROGRAM GENERATES SUCCESSIVE PICTURES OF TWO DICE." 130 PRINT"WHEN TWO DICE AND AN EQUAL SIGN FOLLOWED BY A QUESTION" 140 PRINT"MARK HAVE BEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY." 150 PRINT"TO CONCLUDE THE LESSON, TYPE CTRL/C AS YOUR ANSWER." 160 PRINT 170 PRINT 180 RANDOMIZE 190 LET N=N+1 200 LET D=INT(RND(0)*6+1) 210 LET D1=INT(RND(0)*6+1) 220 T=D+D1 230 IF T>2 THEN 280 240 GOSUB 1410\GOSUB 1530\GOSUB 1410\PRINT 250 GOSUB 1450\GOSUB 1510\GOSUB 1450\PRINT 260 GOSUB 1410\GOSUB 1530\GOSUB 1410\PRINT 270 GOTO 1250 280 IF T>3 THEN 330 290 GOSUB 1410\GOSUB 1530\GOSUB 1430\PRINT 300 GOSUB 1450\GOSUB 1510\GOSUB 1410\PRINT 310 GOSUB 1410\GOSUB 1530\GOSUB 1470\PRINT 320 GOTO 1250 330 IF T<12 THEN 380 340 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 350 GOSUB 1490\GOSUB 1510\GOSUB 1490\PRINT 360 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 370 GOTO 1250 380 IF T<11 THEN 430 390 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 400 GOSUB 1450\GOSUB 1510\GOSUB 1490\PRINT 410 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 420 GOTO 1250 430 IF T>4 THEN 530 440 IF D=D1 THEN 490 450 GOSUB1410\GOSUB 1530\GOSUB 1430\PRINT 460 GOSUB 1450\GOSUB 1510\GOSUB 1450\PRINT 470 GOSUB 1410\GOSUB 1530\GOSUB 1470\PRINT 480 GOTO 1250 490 GOSUB 1430\GOSUB 1530\GOSUB 1430\PRINT 500 GOSUB 1410\GOSUB 1510\GOSUB 1410\PRINT 510 GOSUB 1470\GOSUB 1530\GOSUB 1470\PRINT 520 GOTO 1250 530 IF T>5 THEN 630 540 IF ABS(D-D1)=1 THEN 590 550 GOSUB 1410\GOSUB 1530\GOSUB 1490\PRINT 560 GOSUB 1450\GOSUB 1510\GOSUB 1410\PRINT 570 GOSUB 1410\GOSUB 1530\GOSUB 1490\PRINT 580 GOTO 1250 590 GOSUB 1430\GOSUB 1530\GOSUB 1430\PRINT 600 GOSUB 1410\GOSUB 1510\GOSUB 1450\PRINT 610 GOSUB 1470\GOSUB 1530\GOSUB 1470\PRINT 620 GOTO 1250 630 IF T>6 THEN 770 640 IF D<>D1 THEN 690 650 GOSUB 1430\GOSUB 1530\GOSUB 1430\PRINT 660 GOSUB 1450\GOSUB 1510\GOSUB 1450\PRINT 670 GOSUB 1470\GOSUB 1530\GOSUB 1470\PRINT 680 GOTO 1250 685 IF ABS(D-D1)=4 THEN 730 690 GOSUB 1430\GOSUB 1530\GOSUB 1430\PRINT 700 GOSUB 1450\GOSUB1510\GOSUB 1450\PRINT 710 GOSUB 1470\GOSUB 1530\GO SUB 1470\PRINT 720 GOTO1250 730 GOSUB 1410\GOSUB 1530\GOSUB 1490\PRINT 740 GOSUB 1450\GOSUB 1510\GOSUB 1450\PRINT 750 GOSUB 1410\GOSUB 1530\GOSUB 1490\PRINT 760 GOTO 1250 770 IF T>7 THEN 920 780 IF ABS(D-D1)>1 THEN 830 790 GOSUB 1430\GOSUB 1530\GOSUB 1490\PRINT 800 GOSUB 1450\GOSUB 1510\GOSUB 1410\PRINT 810 GOSUB 1470\GOSUB 1530\GOSUB 1490\PRINT 820 GOTO 1250 830 IF ABS(D-D1)>3 THEN 880 840 GOSUB 1430\GOSUB 1530\GOSUB 1490\PRINT 850 GOSUB 1410\GOSUB 1510\GOSUB 1450\PRINT 860 GOSUB 1470\GOSUB 1530\GOSUB 1490\PRINT 870 GOTO 1250 880 GOSUB 1410\GOSUB 1530\GOSUB 1490\PRINT 890 GOSUB 1450\GOSUB 1510\GOSUB 1490\PRINT 900 GOSUB 1410\GOSUB 1530\GOSUB 1490\PRINT 910 GOTO 1250 920 IF T>8 THEN 1070 930 IF D<>D1 THEN 980 940 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 950 GOSUB 1410\GOSUB 1510\GOSUB 1410\PRINT 960 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 970 GOTO 1250 980 IF ABS(D-D1)>2 THEN 1030 990 GOSUB 1430\GOSUB 1530\GOSUB 1490\PRINT 1000 GOSUB 1450\GOSUB 1510\GOSUB 1450\PRINT 1010 GOSUB 1470\GOSUB 1530\GOSUB 1490\PRINT 1020 GOTO 1250 1030 GOSUB 1430\GOSUB 1530\GOSUB 1490\PRINT 1040 GOSUB 1410\GOSUB 1510\GOSUB 1490\PRINT 1050 GOSUB 1470\GOSUB 1530\GOSUB 1490\PRINT 1060 GOTO 1250 1070 IF T>9 THEN 1170 1080 IF ABS(D-D1)>1 THEN 1130 1090 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 1100 GOSUB 1410\GOSUB 1510\GOSUB 1450\PRINT 1110 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 1120 GOTO 1250 1130 GOSUB 1430\GOSUB 1530\GOSUB 1490\PRINT 1140 GOSUB 1450\GOSUB 1510\GOSUB 1490\PRINT 1150 GOSUB 1470\GOSUB 1530\GOSUB 1490\PRINT 1160 GOTO 1250 1170 IF D=D1 THEN 1220 1180 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 1190 GOSUB 1410\GOSUB 1510\GOSUB 1490\PRINT 1200 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 1210 GOTO 1250 1220 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 1230 GOSUB 1450\GOSUB 1510\GOSUB 1450\PRINT 1240 GOSUB 1490\GOSUB 1530\GOSUB 1490\PRINT 1250 PRINT " = "; 1260 INPUT T1 1270 IF T1=T THEN 1340 1280 PRINT "NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER." 1290 PRINT " = "; 1300 INPUT T2 1310 IF T2=T THEN 1340 1320 PRINT "NO, THE ANSWER IS ";T 1330 GOTO 1350 1340 PRINT "RIGHT!" 1350 PRINT 1360 PRINT "THE DICE ROLL AGAIN....." 1370 PRINT 1380 LET N=0 1390 GOTO 180 1400 STOP 1410 PRINT "I I", 1420 RETURN 1430 PRINT "I* I", 1440 RETURN 1450 PRINT "I * I", 1460 RETURN 1470 PRINT "I *I", 1480 RETURN 1490 PRINT "I * * I", 1500 RETURN 1510 PRINT "+", 1520 RETURN 1530 PRINT " ", 1540 RETURN 1550 END