10 SCREEN 5
20 LINE(100,100)-(110,110),8,BF
30 LINE(120,120)-(190,130),3,BF
35 A$=INPUT$(1)
40 COPY(100,100)-(190,130) TO (100,0),,PRESET
50 GOTO 50