Math Flasher: Division

Gallery

Source Code

   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