{* Прыгающий шарик *}

REM basic

' Пусть шарик прыгает по поверхности, а когда поверхность закончится - упадет вниз.


{Прыгающий шарик
}SCREEN 1
x = 1
y = 100

{поверхность
}LINE (0, y + 20)-(220, y + 20)

For i = 1 To 140

c = 1
CIRCLE (x, y), 2, c
PAINT (x, y), c, c

For j = 1 To 250000
Next j

c = 0
CIRCLE (x, y), 2, c
PAINT (x, y), c, c

x = x + 2
If i < 115 Then
y = y + 10 * COS(.5 * i)
Else
y = y + 4
SOUND 200, 1
End If

Next i

LOCATE 10, 15: PRINT "GAME OVER :)"
End