Listing of file='MADICE.BAS;01' on disk='vmedia/othello-sector.ccvf'
0 REM COPYRIGHT (C) 1977 BY COMPUCOLOR CORPORATION. 1 REM UPDATED 2/1 1977 BY EZRA MINTZ AND CHARLES MUENCH 10 PLOT 6:PLOT 32:PLOT 12:PLOT 27:PLOT 11:PLOT 14 11 PLOT 3,12,6:PRINT " COMPUCOLOR PRESENTS DICE MATHEMATICS " 12 FOR A= 0TO 3000:NEXT :PLOT 6:PLOT 2:PLOT 12 20 PRINT "THIS PROGRAM GENERATES SUCCESSIVE PICTURES OF TWO DICE." 21 PRINT "TYPE IN THE TOTAL NUMBER OF * ON THE DICE," 22 PRINT "AND THEN HIT THE RETURN KEY" 23 PRINT "TO STOP PLAYING 'TYPE' ANY LETTER THEN HIT RETURN KEY." 24 PRINT 105 N= N+ 1 110 D= INT (RND (1)* 6+ 1) 130 IF D= 1THEN 200 140 IF D= 2THEN 180 150 IF D= 3THEN 180 160 PRINT " * * " 170 GOTO 210 180 PRINT " * " 190 GOTO 210 200 PRINT " " 210 IF D= 2THEN 260 220 IF D= 4THEN 260 230 IF D= 6THEN 270 240 PRINT " * ":GOTO 280 260 PRINT " ":GOTO 280 270 PRINT " * * " 280 IF D= 1THEN 350 290 IF D= 2THEN 330 300 IF D= 3THEN 330 310 PRINT " * * ":GOTO 360 330 PRINT " * ":GOTO 360 350 PRINT " " 360 PRINT 375 IF N= 2THEN 500 380 PRINT " +" 381 PRINT 400 A= D 410 GOTO 105 500 T= D+ A 520 INPUT " = ";T1$ 525 A$= T1$:GOSUB 910 526 T1= TT 530 IF T1= TTHEN 590 540 PRINT "NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER." 550 INPUT " = ";T2$ 555 A$= T2$:GOSUB 910 556 T2= TT 560 IF T2= TTHEN 590 570 PRINT "NO, THE ANSWER IS:";T 580 GOTO 600 590 PRINT " RIGHT!!!" 600 PRINT 601 PRINT " THE DICE ROLL AGAIN....." 610 PRINT 615 N= 0 620 GOTO 105 900 END 910 IF ASC (A$)> = 65AND ASC (A$)< = 90THEN LOAD "MENU":RUN 920 IF ASC (A$)> = 48AND ASC (A$)< = 57THEN 940 930 PRINT "THAT IS NOT A NUMBER !":RETURN 940 TT= VAL (A$) 950 RETURN