1 REM BLOCK-KONVERTERLADER
2 IFA=1THEN20
6 IFA=2THEN40
7 PRINTCHR$(147)
8 POKE19,64:INPUT"KONVERTIERTER BILDBLOCK:";BL$:POKE19,0:PRINT
9 POKE251,PEEK(53265):POKE53265,11
10 IFA=0THENA=1:LOAD"FNT."+BL$,8,1
20 IFA=1THENA=2:LOAD"SCN."+BL$,8,1
40 POKE252,PEEK(53272):POKE53272,24
50 POKE53265,PEEK(251)
60 POKE198,0:WAIT198,1
70 PRINTCHR$(147):POKE53272,PEEK(252)