10 SCREEN 6
20 LINE(20,70)-(30,80),15,BF:LINE(40,20)-(100,90),3,BF
30 FOR I=1 TO 1000:NEXT:COPY(20,70)-(110,90) TO (130,70)
40 GOTO 40