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