5 PAPER 0: CLS
10 LET d=0: INK 1: GO SUB 40
20 LET d=1: INK 6: GO SUB 40
30 STOP
40 RESTORE
50 FOR n=1 TO 5
60 READ a$
70 FOR j=1 TO LEN a$
80 PRINT AT n+7,j+5+d;
90 IF a$(j)="X" THEN PRINT CHR$ 143: REM Equivalent to 219 in ASCII extended for IBM PC
100 NEXT j
110 NEXT n
120 RETURN
130 DATA "XXX  XXXX XXX X XXX"
140 DATA "X  X X  X X   X X  "
150 DATA "XXX  XXXX XXX X X  "
160 DATA "X  X X  X   X X X  "
170 DATA "XXX  X  X XXX X XXX"