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#msg46302Tiene 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:
2 ?cH(147):a$=" ":fori=1to23:?cH(18)cH(5)" "a$a$a$a$:next:l=fnr(48)*2Así 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.
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
