これ
randomize
s = 0
while(s<10)
color 255,255,255
boxf
color 0,0,0
y = 240
for x,0,640
line x,y-((10-s)*5),x,y+((10-s)*5)
y=y+rnd(3)-1
next
x = 0
y = 240
do
pget x,y
if ginfo_b != 0 {
pos 280,200
color 0,255,255
mes "Game Over"
stop
}
color 255,0,0
pset x,y
y+=1
x++
stick key,0x10
if(key&0x10) : y-=2
await 16
until ( x >= 640 )
s++
wend
を、暗記でなく、何やってるか理屈で覚えて
試行錯誤して良いから何処に行っても見ずに書けるようになれ。