OFFSET
0,3
PROG
(Liberty Basic)DO:x$ = STR$(a):l = LEN(x$):m = a MOD l:IF m = 0 THEN PRINT a:a = a + 1:LOOP UNTIL Inkey$ <> "":END
CROSSREFS
KEYWORD
dead
STATUS
approved