10 SCREEN 5:DIM A(INT((4*(ABS(100-190)+1)*(ABS(100-130)+1)+7)/8)+4)
20 LINE(100,100)-(110,110),8,BF
30 LINE(120,120)-(190,130),3,BF
40 COPY(100,100)-(190,130) TO A
50 A$=INPUT$(1):CLS
60 COPY A,3 TO (100,100)
65 A$=INPUT$(1):CLS
70 COPY A TO (100,100)
80 GOTO 50