Autor Tema: Meter listados de BASIC en el VICE desde el portapapeles  (Leído 504 veces)

javierglez

  • Commodore Master
  • *****
  • Mensajes: 465
  • terminator not seen
    • Ver Perfil
Meter listados de BASIC en el VICE desde el portapapeles
« en: Febrero 06, 2023, 00:08:11 »
Es usar el menu EDIT->PASTE del VICE. Esto no mete directamente las líneas en la memoria, funciona como si se estuviera tecleando en el C64, y tarda un poco.
Pero hay que tener en cuenta dos cosas:
1) El listado tiene que estar en minusculas. Pero se pueden utilizar las mayúsculas para las abreviaciones de las keywords, por ejemplo ? es PRINT y pO es POKE.
2) Para los caracteres gráficos y los códigos de control en modo comillas no hay solución fácil. Si no hay demasiados se puede buscar el código ASCII y cambiar el símbolo en cuestión por CHR$.

Por ejemplo el tenliner del laberinto que he puesto hace poco aqui
https://commodoremania.com/foro/index.php/topic,2651.msg46302/topicseen.html#msg46302
Tiene una línea con 3 códigos de esos, la línea 2: limpiar pantalla (corazoncito, es CHR$(147)), color blanco, es CHR$(5) y modo REVERSE ON, es CHR$(18).

Se puede reescribir esa línea con esas substituciones y las abreviaturas de los comandos y en este caso queda por debajo de 80 caracteres la línea, por lo que entra en el editor del C64:

Código: [Seleccionar]
2 ?cH(147):a$="         ":fori=1to23:?cH(18)cH(5)"   "a$a$a$a$:next:l=fnr(48)*2
Así es resumen, podéis copiar estas líneas de abajo y pegar en el VICE con EDIT->PASTE. A veces en la última de las líneas no coge el RETURN. Al final de todo, cuando ha acabado el pegado, lo mejor es pulsar RETURN para asegurarse que entra la línea.


Código: [Seleccionar]
1 dima(5):fori=0to5:reada(i):next:deffnr(r)=int(rnd(1)*r):a=a(5)+fnr(11)*80
2 ?cH(147):a$="         ":fori=1to23:?cH(18)cH(5)"   "a$a$a$a$:next:l=fnr(48)*2
3 o=l<37:p=l>58:m=o*(l+41)+p*(l+862)+(40*l-1362)*not(poro):j=fnr(4):x=j:pokea,4
4 b=a+a(j):ifpeek(b)=160thenpokeb,j:pokea+a(j)/2,32:a=b:j=fnr(4):x=j:goto4
5 j=(j+1)*-(j<3):ifj<>xthen4
6 j=peek(a):pokea,32:ifj<4thena=a-a(j):j=fnr(4):x=j:goto4
7 ifpeek(a(4)-m-o*40+p*40+not(poro))=160thenm=m+o+p+40*not(poro)
8 pokea(4)-m,102:pokea,81:geta$:j=asc(a$+chr$(0))-65:ifj<0orj>3then8
9 b=a+a(j)/2:q=peek(b):e=q=102:if(q=32)orethenpokeb,81:pokea,32:a=b
10 ifnotethen8:data-2,2,80,-80,1024,1105


josepzin

  • Administrador
  • Commodore Master
  • *****
  • Mensajes: 13838
  • Commodoreador web
    • Ver Perfil
    • Mi blog
Re:Meter listados de BASIC en el VICE desde el portapapeles
« Respuesta #1 en: Febrero 14, 2023, 23:37:21 »
Un poco liante el tema...

La verdad es que teclear los símbolos se disfruta desde un teclado de C64.
www.retroinvaders.com | www.commodoreplus.org  | josepzin.blogspot.com

javierglez

  • Commodore Master
  • *****
  • Mensajes: 465
  • terminator not seen
    • Ver Perfil
Re:Meter listados de BASIC en el VICE desde el portapapeles
« Respuesta #2 en: Febrero 16, 2023, 22:59:51 »
Como dijo aznar no me jodas cascos
Es pulsar el link ese que pone seleccionar, hacer CTRL-C para copiar, abrir el VICE C64, irse al menu Edit y seleccionar la opción pegar.
Luego RUN y listos.

josepzin

  • Administrador
  • Commodore Master
  • *****
  • Mensajes: 13838
  • Commodoreador web
    • Ver Perfil
    • Mi blog
Re:Meter listados de BASIC en el VICE desde el portapapeles
« Respuesta #3 en: Febrero 16, 2023, 23:16:51 »
Jajjaja si si, eso si, digo liante lo de convertir los caracteres en CHR$(n)
www.retroinvaders.com | www.commodoreplus.org  | josepzin.blogspot.com

javierglez

  • Commodore Master
  • *****
  • Mensajes: 465
  • terminator not seen
    • Ver Perfil
Re:Meter listados de BASIC en el VICE desde el portapapeles
« Respuesta #4 en: Febrero 17, 2023, 19:31:18 »
Ah yo si miro algo de eso lo hago en el emulador y lo que me cuesta es encontrar la tecla, si es que está. Entonces haces PRINT ASC(" el dibujito que sea ")
Pero es más por compartir el listado en sitios como el foro. En la web esa de los tenliners lo que comparten son los programas y ya te apañas tu a hacer el LIST si quieres mirar el programa.

Por cierto ahora ha sido el concurso de 2023
https://gkanold.wixsite.com/homeputerium/games-list-2023