Programmeren in TI-Basic/Snake: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
Geen bewerkingssamenvatting |
Geen bewerkingssamenvatting |
||
Regel 25:
:3→V
:0→S
: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!
:Text(4,8,S
:If pxl-Test(L2(P)*5+11,L1(P)*5+
: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
:Then
:1→P
Regel 91 ⟶ 89:
:1→L1(P)
:If L2(P)=0
:9→L2(P)
:1→L2(P)
:End
:Lbl 0
:Text(27,
:Goto 2
:Lbl 1
Regel 102:
:Text(33,53,S
:Pause
:ClrDraw
:ClrHome
:ZStandard▼
:ClrList L1,L2
▲:ZStandard
:AxesOn
:FnOn
:Disp
|