Ti80.Online

Pour plus de programmes
http://www.ti80.online.fr
ti80@citeweb.net


Écran Veille 4
Vous rapellera un écran de veille Windows

:clrdraw
:fnoff
:1->xmin
:50->xmax
:60->xscl
:1->ymin
:50->ymax
:60->yscl
:1->A
:1->B
:lbl A
:randint (1,50)->D
:if B=D
:goto A
:if D>B
:then
:lbl 1
:if B=D
:goto B
:line (A,B,A,B+1)
:B+1->B
:goto 1
:end
:if D<B
:then
:lbl 2
:if B=D
:goto B
:line (A,B,A,B-1)
:B-1->B
:goto 2
:end
:lbl B
:randint (1,50)->C
:if C=A
:goto B
:if C>A
:then
:lbl 3
:if C=A
:goto A
:line (A,B,A+1,B)
:A+1->A
:goto 3
:end
:if C<A
:then
:lbl4
:if C=A
:goto A
:line (A,B,A-1,B)
:A-1->A
:goto 4
:end