Directory of image this file is from
This file as a plain text file

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