oi

# Type your text here:ClrHome
:ClrDraw
:0→X      // vogel x (constant)
:7→Y      // vogel y (verticale positie)
:0→S      // score
:randInt(8,12)→GX  // eerste gaping x
:randInt(1,11)→GY  // gaping y (bovenste pixel van gat)
:Repeat getKey(54) // toets [CLEAR] stopt
:ClrDraw
:Text(1,1,"SCORE:"  
:Output(1,8,S)
:For(I,0,83) // tekenen achtergrond (optioneel)
:End
:Locate(1,1)
:For(XP,0,83) // teken buizen: als XP==GX teken verticale kolom met gat GY..GY+3
:If XP=GX
:For(P,0,15)
:If not(P≥GY and P≤GY+3)
:Then
:Pt-On(XP,P)
:End
:If XP=GX+20 // maak meerdere buizen verschuiving
:End
:EndFor
: // teken vogel als blok
:Pt-On(10,Y)
: // zwaartekracht + input: toets [2ND]+▲ (=getKey code 45) of toets 5? we gebruiken key 24 (up)
:If getKey(24)
:Y-2→Y
:Else
:Y+1→Y
:If Y>15 or Y<0
:Then
:Text(6,1,"GAME OVER")
:Disp "Score:",S
:Pause
:Stop
:End
: // verplaats buizen naar links (we simuleren door GX te verlagen)
:GX-1→GX
:If GX<0
:Then
:84→GX
:randInt(1,11)→GY
:S+1→S
:End
:Pause 0.05
:End
:ClrDraw