home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Computer Club 13
/
Commodore_Computer_Club_13_19xx_-_es.d64
/
renumerador
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
36 lines
100 poke53280,0:poke53281,0
120 print"[147]
140 [153]" subrutina de renumeracion
160 print"[158] la subrutina situada a partir de la
180 [153]" de la linea 9990 permite renumerar
200 print" las linea de parte de un programa.
220 [153]"list pulsa una tecla
230 geta$:ifa$=""then230
240 print"[147] la subrutina usa tres variables:
260 [153]"sys a.- numero de la primera linea que se
280 print" modifica y de la primera creada.
300 [153]" i.- incremento entre dos lineas
320 print" l.- numero de la ultima linea que se
340 [153]" modifica.
350 print"[155] pulsa una tecla
380 [161]a$:[139]a$[178]""[167]380
400 [153]"loadsys l debe ser menor de 9990 para no
420 print" afectar a la propia subrutina.
450 [153]"cont haz una prueba con este programa.
500 input " linea inicial (a)";a
550 input " incremento (i)";i
590 input " ultima linea (l)";l
600 gosub 9990
700 list -9000
1000 end
9990 c=2049
9991 t=peek(c+2)+peek(c+3)*256
9992 if t>=a then t=a:goto 9994
9993 c=peek(c)+peek(c+1)*256:goto9991
9994 pokec+3,int(t/256)
9995 pokec+2,t-256*int(t/256)
9996 c=peek(c)+peek(c+1)*256
9997 t2=peek(c+2)+peek(c+3)*256
9998 t=t+i:ift2<l then 9994
9999 return