Content
Image Gallery
Math Flasher: Division
5 REM %M%A%T%H% %F%L%A%S%H%E%R% %4% %D%I%V%I%S%I%O%N
10 PRINT "DIVISION"
20 FOR L=1 TO 8
30 PRINT "*";
40 NEXT L
50 PRINT
60 PRINT
100 LET P=INT (10*RND)
110 LET Q=INT (10*RND)
120 IF Q<1 THEN GOTO 110
130 IF P/Q<>INT (P/Q) THEN GOTO 100
200 PRINT "DIVIDE ";P;" BY ";Q
210 INPUT R
220 CLS
300 IF R=P/Q THEN GOTO 400
310 PRINT "%W%R%O%N%G"
320 GOTO 410
400 PRINT "%C%O%R%R%E%C%T"
410 PRINT P;" DIVIDED BY ";Q;" = ";P/Q
500 PRINT
510 PRINT
520 GOTO 10
600 SAVE "1006%1"
700 RUN
People
No people associated with this content.