Jeg lave noget blinkende tekst på denne måde:
ClrHome
0->X
While X<100
X+1->X
ClrHome
If int(X/2)*2=X
Then
Disp "Blinkende"
End
sum(seq(3B,B,0,50))->A //denne fungerer kun som pause, så lortet ikke går amok! Pausen længde justeres på det sidste tal (50)
End
den kan selvfølgelig og blinke uendeligt ved at sige:
While X=X
Dette kan dog ikke anbefales!!!