Commodore 64 > BASIC

Meter listados de BASIC en el VICE desde el portapapeles

(1/1)

javierglez:
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: ---2 ?cH(147):a$="         ":fori=1to23:?cH(18)cH(5)"   "a$a$a$a$:next:l=fnr(48)*2
--- Fin del código ---

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: ---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
--- Fin del código ---

josepzin:
Un poco liante el tema...

La verdad es que teclear los símbolos se disfruta desde un teclado de C64.

javierglez:
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:
Jajjaja si si, eso si, digo liante lo de convertir los caracteres en CHR$(n)

javierglez:
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

Navegación

[0] Índice de Mensajes