Пишем большой код на мб. Минимум три строки нумерация через единицу.
0 cls
1 x%=0:y%=0
2 repaint

5 trap 6
6 h%=sch(0)
7 w%=scw(0)

8 grav=2.1: dv=0.1
9 rem grav - вектор ускорения, dv - изменение скорости.
9 gelload "hero","/hero.png"

10 gelload "plain","plain.png"
11 for i%=0 to w%/24+2
12 spritegel "p"+str$(i%),"plain"
13 next i%

14 End

Helltar (27.09.2013/12:27)

1. 3 A%=54 B%=A%/X%6 GOTO 4

обломал

15 GOTO 50

20 print "Лошадиные гонки",50,50

21 print ""

22 FILLRECT (0,0,240,320)