Multiples

Gallery

Source Code

   5 PRINT "%M%U%L%T%I%P%L%E%S"
  10 PRINT "TYPE ANY NUMBER 0 TO 99"
  20 INPUT N
  30 CLS 
 100 PRINT "THE MULTIPLES OF ";N;" ARE:"
 110 IF N=0 THEN LET N=100
 200 FOR J=0 TO 9
 210 FOR K=0 TO 9\66
 220 IF J=0 THEN PRINT " ";
 230 LET M=10*J+K
 240 IF INT (M/N)*N=M THEN GOTO 500
 250 PRINT M;" ";
 260 NEXT K
 270 PRINT 
 280 PRINT 
 290 NEXT J
 300 GOTO 10
 500 IF J>0 THEN PRINT CHR$ (J+156);
 510 PRINT CHR$ (K+156);" ";
 520 GOTO 260
 600 SAVE "1004%1"
 610 RUN