00000 DEF SEG = 0
10010 TabSeg% = PEEK(&H7E) + 256 * PEEK(&H7F)
10020 TabAdr% = PEEK(&H7C) + 256 * PEEK(&H7D)
10030 DEF SEG = TabSeg%
10040 READ Char% : IF Char% = -1 THEN RETURN
10050 IF Char% < 128 OR Char% > 255 THEN PRINT "Out of range!" : RETURN
10060 CharAdr% = TabAdr% + 8 * (Char% - 128)
10070 FOR Byte% = 0 TO 7
10080    READ CharLine%
10090    IF CharLine% < 0 OR CharLine% > 255 THEN PRINT "Pattern value"; Byte%; "out of range!" : CharLine% = CharLine% AND 255
10100    POKE CharAdr% + Byte%, CharLine%
10110 NEXT Byte%
10120 GOTO 10040
20000 DATA 255,255,129,129,129,129,129,129,255
20010 DATA -1