       10 // Game consoles
       20 FOR x:=10 TO 1000000 DO
       30   x$:=STR$(x)
       40   last$:=x$(-1:)
       50   x'trim$:=x$(:-2)
       60   x'new$:=last$+x'trim$
       70   IF VAL(x'new$)=4*x THEN PRINT x," <-> ",x'new$
       80 ENDFOR x
