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