home *** CD-ROM | disk | FTP | other *** search
- 10 rem bilddaten logo-painter laden
- 20 rem von nikolaus heusler 2.91
- 30 ifa=0thena=1:load"screen*",8,8:rem bilddaten laden
- 40 ifa=1thena=2:load"char*",8,8:rem zeichensatz laden
- 50 print"[147]"
- 60 fori=0to239
- 70 poke1384+i,peek(6144+i):rem bilddaten umkopieren
- 80 poke55656+i,9:rem farbe setzen
- 90 next
- 100 poke53272,24:rem zeichensatz einschalten
- 110 poke53270,216:rem multicolor einschalten
- 120 poke53280,0:poke53281,0:rem hintergrundfarbe
- 130 poke53282,11:poke53283,15:rem multicolor-farben
-