Listato per il basic del Commodore Vic 20 che stampa a video i semi delle carte da gioco e fa
variare i colori modificando nel registro 16 i bit relativi al colore dello sfondo, del bordo e del modo diretto/inverso.
10 mv=7680:mc=38400
15 if peek(648)=16 then mv=4096:mc=37888
17 print"[cuore in reverse]"
20 pokemv+25,65:pokemv+30,83:pokemv+35,90:pokemv+40,88
30 pokemv+69,25:pokemv+74,83:pokemv+79,90:pokemv+84,88
35 x=0
40 fork=0to15
45 poke36879,(peek(36879)and15)ork*2[elevato alla]4
50 foi=0to7
55 poke36879,(peek(36879)and248)ori
60 pokemc+25,I:pokemc+30,i:pokemc+35,i:pokemc+40,i
65 pokemc+69,i:pokemc+74,i:pokemc+79,i:pokemc+84,i
70 forj=1to300:nextj
75 next i
77 if x=0then x=1:goto79
78 x=0
79 poke36879,(peek(36879)and247)orx*2[elevato alla]3
80 next k
90 end
Torna indietro