home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-03_1989_-_de_Side_B.d64 / hauptprogramm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  432b  |  16 lines
  1. 10 print"[153][147]";:fori=0to255:poke1024+i,i:next
  2. 20 print""
  3. 30 print"der normale zeichensatz"
  4. 40 gosub1000:poke53272,25
  5. 50 print"ein neuer zeichensatz  ":gosub1000
  6. 60 poke53265,peek(53265)or2^6
  7. 70 print"vier hintergrundfarben  ":gosub1000
  8. 80 poke53265,27:poke53270,8+16
  9. 90 print"und nun ein echter vierfarbiger zeichen-satz              ";
  10. 95 print"        "
  11. 100 gosub1000
  12. 110 poke53270,8:end
  13. 1000 print"bitte <<return>> druecken"
  14. 1010 geta$:ifa$<>chr$(13)then1010
  15. 1020 return
  16.