DEFINT A-Z SUB NewPrint (l, c, expr$, cor) SHARED a DEF SEG = VARSEG(a) + 4096 * 7& idx& = 160 * (l - 1) + 2 * (c - 1) + 25952 IF cor = 0 THEN ncor = 7 ELSE ncor = cor FOR i = 1 TO LEN(expr$) POKE idx&, ASC(MID$(expr$, i, 1)) POKE idx& + 1, ncor idx& = idx& + 2 NEXT END SUB