home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_87-12_1987_-_de_Side_A.d64 / strichcursor (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  488b  |  13 lines
  1. 5 rem strichcursor
  2. 10 print"[147]":fori=0to255:pokei+1024,i:next:printchr$(142):rem grafikzeichen an
  3. 20 poke53272,25:rem neue zeichenbasis
  4. 30 fori=0to1024:poke56334,0:poke1,51
  5. 40 pokei+8192,peek(i+53248):pokei+9216,peek(i+53248)
  6. 50 poke1,55:poke56334,1:next:rem kopieren des zeichensatzes teil 1 ins ram
  7. 60 printchr$(14):rem kleinschrift an
  8. 70 fori=2048to3072:poke56334,0:poke1,51
  9. 80 pokei+8192,peek(i+53248):pokei+9216,peek(i+53248)
  10. 90 poke1,55:poke56334,1:next:rem kopieren des zeichensatzes teil 2 ins ram
  11. 100 fori=1024to2047step8:pokei+8199,255:pokei+10247,255:next
  12. 110 poke44,48:poke48*256,0:new
  13.