home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Commodore 64 #2
/
Video_Commodore_64_2_19xx_GEASA.d64
/
autonumerar
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
46 lines
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