5 REM STRICHCURSOR
10 PRINT"[147]":FORI=0TO255:POKEI+1024,I:NEXT:PRINTCHR$(142):REM GRAFIKZEICHEN AN
20 POKE53272,25:REM NEUE ZEICHENBASIS
30 FORI=0TO1024:POKE56334,0:POKE1,51
40 POKEI+8192,PEEK(I+53248):POKEI+9216,PEEK(I+53248)
50 POKE1,55:POKE56334,1:NEXT:REM KOPIEREN DES ZEICHENSATZES TEIL 1 INS RAM
60 PRINTCHR$(14):REM KLEINSCHRIFT AN
70 FORI=2048TO3072:POKE56334,0:POKE1,51
80 POKEI+8192,PEEK(I+53248):POKEI+9216,PEEK(I+53248)
90 POKE1,55:POKE56334,1:NEXT:REM KOPIEREN DES ZEICHENSATZES TEIL 2 INS RAM
100 FORI=1024TO2047STEP8:POKEI+8199,255:POKEI+10247,255:NEXT
110 POKE44,48:POKE48*256,0:NEW