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

  1. 5 rem autonumerar
  2. 10 gosub3000
  3. 20 gosub1000
  4. 30 end
  5. 100 gosub1000
  6. 310 geta$:ifa$<>"[160]"then310
  7. 1000 x=49152
  8. 1010 ready:ify=-1then1030
  9. 1020 pokex,y:x=x+1:z=z+y:goto1010
  10. 1030 ifz<>12374thenprint"error en data":end
  11. 1040 return
  12. 1999 return
  13. 3000 poke53281,14:poke53280,15:print"[147]";
  14. 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]";
  15. 3020 print"[180]                 autonumerar          [170]";
  16. 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]";
  17. 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]";
  18. 3050 print"[180]       es una utilidad que genera     [170]";
  19. 3060 print"[180]    automaticamente la numeracion     [170]";
  20. 3070 print"[180]    de las lineas del programa basic  [170]";
  21. 3080 print"[180]    que estes entrando. empieza a     [170]";
  22. 3090 print"[180]    numerar en 100, incrementando     [170]";
  23. 3100 print"[180]    de 10 en 10.                      [170]";
  24. 3110 print"[180]        el procedimiento para eje-    [170]";
  25. 3120 print"[180]    cutarlo es el siguiente:          [170]";
  26. 3130 print"[180]        una vez salga el mesaje de    [170]";
  27. 3140 print"[180]        'ready', escribir new, pul-   [170]";
  28. 3150 print"[180]    sar return y escribir a conti-    [170]";
  29. 3160 print"[180]    nuacion sys 49152 y return.       [170]";
  30. 3170 print"[180]        si quieres salir del progra-  [170]";
  31. 3180 print"[180]    ma, pulsa return en cuanto sal-   [170]";
  32. 3190 print"[180]    ga un numero de linea. para       [170]";
  33. 3200 print"[180]    volver a el, sys49160.            [170]";
  34. 3210 print"[180]                                      [170]";
  35. 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]";
  36. 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]";
  37. 3240 print"[180]      pulsa 'space' para continuar    [170]";
  38. 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]";
  39. 3950 geta$:ifa$<>" "then3950
  40. 3999 return
  41. 10000 data169,90,133,251,169,0,133,252,169,19,141,2,3,169,192,141,3,3,96,32,25
  42. 10010 data192,76,134,164,24,169,10,101,251,133,251,144,2,230,252,165,251,133,99
  43. 10020 data165,252,133,98,162,144,56,32,73,188,32,221,189,162,0,189,1,1,240,9,32
  44. 10030 data210,255,157,0,2,232,208,242,32,18,225,201,13,240,3,76,105,165,56,165
  45. 10040 data251,233,20,176,2,198,252,169,131,141,2,3,169,164,141,3,3,76,118,165,-1
  46.