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



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