{* Летящая стрела *}

REM basic

' Составить программу летящей стрелы


CLS
SCREEN 7

a=100

c=2

x=0

y=60

v=50
Do
 LINE (x,y)-(x+a,y),c
 LINE (x+a,y)-(x+a-a/4,y+a/5),c
 LINE (x+a,y)-(x+a-a/4,y-a/5),c
 SLEEP(v)
 CLS
 x=x+1
Loop While x+a