20 FORMAT "M";1;"INKA"
30 RESTORE 1000
40 FOR I=1000 TO 9999
50 READ F$,START,LENGTH
60 IF F$="#" THEN GO TO 200
70 PRINT AT 0,0;
80 LOAD F$ CODE START
90 SAVE *"M";1;F$ CODE START,LENGTH
100 NEXT I

200 PRINT AT 18,0;"Done.",
210 STOP

