Programmeren in TI-Basic/Snake: verschil tussen versies

Verwijderde inhoud Toegevoegde inhoud
FOudman (overleg | bijdragen)
Geen bewerkingssamenvatting
FOudman (overleg | bijdragen)
Geen bewerkingssamenvatting
Regel 25:
:3→V
:0→S
:0→N
:Text(24,43,"*
:While 1
:P-L+1→T
:T+85(T<=0)→T
:If N=0
:Text(L2(T)*5+9,L1(T)*5+3," ← ← Let op! Vier spaties!
:If N=1
:0→N
:Text(4,8,S
:If pxl-Test(L2(P)*5+11,L1(P)*5+96)=1
:Goto 0
:Text(L2(P)*5+9,L1(P)*5+3,"°
Regel 74 ⟶ 70:
:If pxl-Test(5*V+10,5*U+5)=1
:Goto A
:Text(V*5+9,U*5+3,"*
:If pxl-Test(V*5+10,U*5+10)=1
:Text(V*5+9,U*5+8,"°
:End
:P+1→P
:If P°=86
:Then
:1→P
Regel 91 ⟶ 89:
:1→L1(P)
:If L2(P)=0
:9→L2(P)
:If NL2(P)=010
:1→L2(P)
:End
:Lbl 0
:Lbl0
:Text(27,2830," GAME OVER!
:Goto 2
:Lbl 1
Regel 102:
:Text(33,53,S
:Pause
:ClrDraw
:ClrDrasw
:ClrHome
:ZStandard
:ClrList L1,L2
:ZStandard
:Axeson
:AxesOn
:FnOn
:Disp
Informatie afkomstig van https://nl.wikibooks.org Wikibooks NL.
Wikibooks NL is onderdeel van de wikimediafoundation.