Content
Image Gallery
Multiples
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
People
No people associated with this content.