5 REM AUTONUMERAR
10 GOSUB3000
20 GOSUB1000
30 END
100 GOSUB1000
310 GETA$:IFA$<>"[160]"THEN310
1000 X=49152
1010 READY:IFY=-1THEN1030
1020 POKEX,Y:X=X+1:Z=Z+Y:GOTO1010
1030 IFZ<>12374THENPRINT"ERROR EN DATA":END
1040 RETURN
1999 RETURN
3000 POKE53281,14:POKE53280,15:PRINT"[147]";
3010 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3020 PRINT"[180]                 AUTONUMERAR          [170]";
3030 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3040 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3050 PRINT"[180]       ES UNA UTILIDAD QUE GENERA     [170]";
3060 PRINT"[180]    AUTOMATICAMENTE LA NUMERACION     [170]";
3070 PRINT"[180]    DE LAS LINEAS DEL PROGRAMA BASIC  [170]";
3080 PRINT"[180]    QUE ESTES ENTRANDO. EMPIEZA A     [170]";
3090 PRINT"[180]    NUMERAR EN 100, INCREMENTANDO     [170]";
3100 PRINT"[180]    DE 10 EN 10.                      [170]";
3110 PRINT"[180]        EL PROCEDIMIENTO PARA EJE-    [170]";
3120 PRINT"[180]    CUTARLO ES EL SIGUIENTE:          [170]";
3130 PRINT"[180]        UNA VEZ SALGA EL MESAJE DE    [170]";
3140 PRINT"[180]        'READY', ESCRIBIR NEW, PUL-   [170]";
3150 PRINT"[180]    SAR RETURN Y ESCRIBIR A CONTI-    [170]";
3160 PRINT"[180]    NUACION SYS 49152 Y RETURN.       [170]";
3170 PRINT"[180]        SI QUIERES SALIR DEL PROGRA-  [170]";
3180 PRINT"[180]    MA, PULSA RETURN EN CUANTO SAL-   [170]";
3190 PRINT"[180]    GA UN NUMERO DE LINEA. PARA       [170]";
3200 PRINT"[180]    VOLVER A EL, SYS49160.            [170]";
3210 PRINT"[180]                                      [170]";
3220 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3230 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3240 PRINT"[180]      PULSA 'SPACE' PARA CONTINUAR    [170]";
3250 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3950 GETA$:IFA$<>" "THEN3950
3999 RETURN
10000 DATA169,90,133,251,169,0,133,252,169,19,141,2,3,169,192,141,3,3,96,32,25
10010 DATA192,76,134,164,24,169,10,101,251,133,251,144,2,230,252,165,251,133,99
10020 DATA165,252,133,98,162,144,56,32,73,188,32,221,189,162,0,189,1,1,240,9,32
10030 DATA210,255,157,0,2,232,208,242,32,18,225,201,13,240,3,76,105,165,56,165
10040 DATA251,233,20,176,2,198,252,169,131,141,2,3,169,164,141,3,3,76,118,165,-1