home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / colorscreen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  537b  |  16 lines
  1. 0 print"[147][158]wieviel farben (min=2";
  2. 1 input" / max=18) ";w:data120,169,39
  3. 2 fori=49152to49226:reada:pokei,a:next
  4. 3 poke49216,w:fori=1tow:poke49231+i,i+1
  5. 4 poke49247+i,i*int(255/w):next:data141
  6. 5 print"[147]  colorscreen 64 by markus ";
  7. 6 print"hillebrand":sys49152:data20,3
  8. 7 data169,192,141,21,3,169,0,141,18,208
  9. 8 data173,17,208,41,127,141,17,208,160
  10. 9 data127,140,13,220,200,140,13,220,200
  11. 10 data140,26,208,88,96,169,1,141,25
  12. 11 data208,174,79,192,189,80,192,141,32
  13. 12 data208,141,33,208,189,96,192,141,18
  14. 13 data208,232,224,1,144,2,162,0,142,79
  15. 14 data192,76,49,234:rem(c)'85 mh soft
  16.