home *** CD-ROM | disk | FTP | other *** search
/ Video Commodore 64 #2 / Video_Commodore_64_2_19xx_GEASA.d64 / pausa (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  76 lines
  1. 5 rem pausa -  vc64-02
  2. 10 gosub3000
  3. 100 gosub1000
  4. 400 end
  5. 1000 fora=679to714:readb:pokea,b:next
  6. 1010 k1=4:k2=3:poke715,k1:poke716,k2
  7. 1020 print"[147]"
  8. 1030 print"cargado en memoria el"
  9. 1040 print"programa 'p a u s a'
  10. 1050 [153]"escriba   sys 679   para ejecutarlo"
  11. 1060 [153]"y sift/run stop para cargar"
  12. 1070 [153]"el siguiente programa."
  13. 1080 [153]"pulse 'space' para continuar"
  14. 1090 [161]a$:[139]a$[179][177]" "[167]1090
  15. 1100 [142]
  16. 2000 [128]
  17. 3000 [151]53281,14:[151]53280,15:[153]"load";
  18. 3010 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  19. 3020 [153]"sgn                p a u s a             +";
  20. 3030 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  21. 3040 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  22. 3050 [153]"sgn        nunca te han llamado por te-  +";
  23. 3060 [153]"sgn    lefono cuando estabas a punto     +";
  24. 3070 [153]"sgn    de superar tu propio record en    +";
  25. 3080 [153]"sgn    un juego que carecia de tecla     +";
  26. 3090 [153]"sgn    para pausa?.                      +";
  27. 3100 [153]"sgn        y nunca has deseado parar     +";
  28. 3110 [153]"sgn    la ejecucion del listado de un    +";
  29. 3120 [153]"sgn    programa largo, para poder exa-   +";
  30. 3130 [153]"sgn    minar unas lineas, y continuar    +";
  31. 3140 [153]"sgn    despues exactamente en el mismo   +";
  32. 3150 [153]"sgn    sitio?                            +";
  33. 3160 [153]"sgn                                      +";
  34. 3170 [153]"sgn        con este programa lo conse-   +";
  35. 3180 [153]"sgn    guiras:                           +";
  36. 3190 [153]"sgn        una vez ejecutado, quedara    +";
  37. 3200 [153]"sgn    en memoria hasta que pulses       +";
  38. 3210 [153]"sgn    run stop/restore o apagues tu     +";
  39. 3220 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  40. 3230 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  41. 3240 [153]"sgn      pulsa 'space' para continuar    +";
  42. 3250 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  43. 3255 [161]a$:[139]a$[179][177]" "[167]3255
  44. 3260 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  45. 3270 [153]"sgn           patrulla espacial          +";
  46. 3280 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  47. 3290 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  48. 3300 [153]"sgn    commodore. para volver a acti-    +";
  49. 3310 [153]"sgn    varlo, en el primer caso es-      +";
  50. 3320 [153]"sgn    cribe simplemente   sys 679       +";
  51. 3330 [153]"sgn    en modo directo. en el segun-     +";
  52. 3340 [153]"sgn    do caso, vuelvelo a cargar.       +";
  53. 3350 [153]"sgn        una vez ejecutado, carga      +";
  54. 3360 [153]"sgn    cualquier otro programa y ve-     +";
  55. 3370 [153]"sgn    ras que la tecla f1 detiene       +";
  56. 3380 [153]"sgn    la ejecucion del mismo y la       +";
  57. 3390 [153]"sgn    tecla f7 la reanuda.              +";
  58. 3400 [153]"sgn        si quieres incorporarlo       +";
  59. 3410 [153]"sgn    como rutina a tus propios pro-    +";
  60. 3420 [153]"sgn    gramas, simplemente copia las     +";
  61. 3430 [153]"sgn    lineas 1000-1100 y 10000 a        +";
  62. 3440 [153]"sgn    10040 y pon un gosub1000 en       +";
  63. 3450 [153]"sgn    tu programa.                      +";
  64. 3460 [153]"sgn                                      +";
  65. 3470 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  66. 3480 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  67. 3490 [153]"sgn      pulsa 'space' para continuar    +";
  68. 3500 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  69. 3950 [161]a$:[139]a$[179][177]" "[167]3950
  70. 3999 [142]
  71. 10000 [131]120,169,180,141,20,3,169,2
  72. 10010 [131]141,21,3,88,96,165,197,205
  73. 10020 [131]203,2,240,3,76,49,234,32
  74. 10030 [131]159,255,165,197,205,204,2,240
  75. 10040 [131]243,76,190,2,234,234,234,234
  76.