home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / extended.color (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  411b  |  20 lines
  1. 90 fori=0to3:reada(i):next
  2. 100 poke53280,12:rem rahmenfarbe
  3. 110 poke53281,12:rem farbe 0-63
  4. 120 poke53282,2:rem farbe 64-127
  5. 130 poke53283,7:rem farbe 128-191
  6. 140 poke53284,5:rem farbe 192-255
  7. 200 poke53265,91:rem  extended on
  8. 210 print"[155]":rem zeichenfarbe weiss
  9. 220 print"[147]":rem bsch loeschen
  10. 300 fori=0to255
  11. 320 poke1024+i,i
  12. 330 poke55296+i,a(a):l=l+1:ifl=64thenl=0:a=a+1
  13. 340 next
  14. 400 poke198,0:wait 198,1
  15. 410 poke 53265,27
  16. 420 poke198,0:wait 198,1
  17. 430 poke 53265,91
  18. 440 goto400
  19. 450 data1,7,2,0
  20.