Publicidad
Sección 33
Programas de ejemplo
Programas:
Renumerador
Reloj
Rebotes
Tele tenis
Renumeración de líneas de programa
Este programa es una ampliación de la opción
'Renumerar'
del menú de edición, pues per
mite elegir tanto el número inicial como el intervalo entr
e
líneas. Mezcle (con MERGE)
este programa con el que desee renumerar
y
después
p
óngalo
en marcha dando la orden
RUN 9000.
En respuesta a las instrucciones
INPUT
de las líneas 9000
y
9010, introduzca el número
que quiere que tenga la primera línea en el programa renumerado (margen de I a 9999)
y
el salto que deba
haber
entre los números de líneas consecut
ivas
(margen de I a 9999).
9000 INPUT "Linea inicial",com
90 10 INPUT " Intervalo",salto
9020 LET
c
oma l t = INT <c om/ 256 }
9030 LET saltoalt= INT
<
s a l t o/ 2
56
)
9040 POKE
23413,com-256.comalt
9050 POKE 23414,eomalt
9060 POKE
23
415 , s a l t o- 256. s a l t o
alt
9070 POKE 23416,saltoalt
9080 PRINT "Pulse EDIT
y
luego
seleccione la opeion Renum
erar"
Sección
33.
Programas
de ejemplo
325
Publicidad
