10 LET L$="10"
  20 LET I=VAL "16512"
  30 PRINT TAB (VAL "4"-LEN L$);L$;
  40 LET I=I+VAL "1"
  50 LET C=PEEK I
  60 IF C=VAL "118" THEN GOTO VAL "90"
  70 PRINT CHR$ C;
  80 GOTO VAL "40"
  90 PRINT
 100 LET L$=STR$ (VAL L$+VAL "10")
 110 LET I=I+VAL "4"
 120 IF VAL L$<=VAL "120" THEN GOTO VAL "30"