home *** CD-ROM | disk | FTP | other *** search
/ Commodore Computer Club 13 / Commodore_Computer_Club_13_19xx_-_es.d64 / pintar (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  777b  |  23 lines
  1. 10 a=a+1
  2. 20 ifa=1thenload"pintar cm",8,1
  3. 30 poke53280,0:poke53281,0:poke646,1
  4. 50 print"[147]          programa de dibujo"
  5. 60 print"[154]        puedes usar el joystick en
  6. 70 [153]"        el port 2 o el teclado.
  7. 90 print"[158]    clr/home[154]      borra la pantalla
  8. 120 [153]"sys    boton   cont      sube o baja el lapiz
  9. 150 print"[155]                  key
  10. 200 [161]g$:[139]g$[178]""[167]200
  11. 220 [133]"loadcont       velocidad (0/255)";a
  12. 250 [151]820,a
  13. 300 [153]"loadcont       las teclas para dibujar son
  14. 350 print"[158]               t   y   u                         [160]
  15. 360 [153]"                 g   h                          close
  16. 370 print"               v   b   n                         [160]
  17. 390 [153]"sys      spc cont    sube o baja el lapiz
  18. 450 print"[155]                  key
  19. 500 [161]g$:[139]g$[178]""[167]500
  20. 523 [158]32768:[143]"
  21.  onon
  22. 600 rem (c) fernando moreno-torres camy
  23. 650 sys64738
  24.