home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 12 / 64er_Magazin_Sonderheft_12_86-12_1986_Markt__Technik_de_Side_A.d64 / fill-beispiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  618b  |  17 lines
  1. 10 ifa=0thena=1:load"fill-c",8,1
  2. 20 sl=32256:sh=32512:ad=2^15:d=256:fori=0to199step8
  3. 30 forj=0to7:b=ad+j:h=int(b/d):l=b-h*d
  4. 40 pokesl+i+j,l:pokesh+i+j,h:next:ad=ad+320:next
  5. 50 rem oben wird die anfangszeilentabelle
  6. 60 rem aufgestellt (aadl/h)
  7. 70 v=53248:pokev+24,8*16:pokev+17,59:poke56576,2:rem  grafik ein
  8. 80 gosub 140:sys12*4096:rem grafik loeschen
  9. 90 fori=6*4096to6*4096+999:pokei,16:next:rem farbe
  10. 100 fori=0to100:poke2^14+rnd(0)*8000,1:next
  11. 110 sys7*4096,160,100:rem paint
  12. 120 poke198,0:wait198,1
  13. 130 pokev+24,21:pokev+17,27:poke56576,3:end
  14. 140 forx=12*4096to12*4096+28:reada:pokex,a:next:return
  15. 150 data160,0,132,251,169,64,133,252,152,145,251,230,251,208,2,230,252,56,165
  16. 160 data251,233,1,165,252,233,96,144,236,96
  17.