Retrocomputer, Emulazione, Riparazioni Scambi/Vendite e collezionismo - Cerco Commodore - Approfondimenti, Listati Basic Commodore

Commodore CErco COmmodore - l'iniziativa di appassionati di retrocomputer


Listato per il basic del Commodore 64 che consente di fare l'hard-copy dello schermo.

Il programma serve a fare l'hard-copy dello schermo (sia modalità testo che modalità grafica). Parte delle routine sono scritte in linguaggio macchina, parte in basic.

        10 if peek(2)<>1 then print"cuore in reverse ed esse in reverse";:goto 30
        20 if peek(2)=1 then 70
        30 fori=49152 to 49179: read d:pokei,d:nexti:print"cuore in reverse ed esse in reverse"; 
        35 rem il cuore in reverse e la s in riverse servono a pulire lo schermo 
        ed a posizionare il cursore nell'angolo superiore sinistro
        40 sys49152:end
        50 data 169,11,141,24,3,169,192,141,25,3,96,169,1,141,2,0,32,89,166,169,0,141
        60 data 0,8,76,174,167,64
        70 sa=0
        80 print"s in reverse";
        90 open3,3:open4,4,sa
        100 for k=0 to 24:a$=""
        110 for j=0 to 38
        120 get#3,b$:a$=a$+b$
        130 next j
        140 print#4,a$;
        150 next k:print
        160 close 3: close 4:clr:r$="":poke2,0:run
		  

Torna indietro



Copyright 2003 - 2018 (c) - Tutti i diritti riservati -