prgmNEW1

:ClrDraw
:1->A:177->B:42->C:1->D
:Repeat getKey=45
:A+1->A:A->E
:Text(1,1,A
:While not(remainder(E,2
:E/2->E:End
:If remainder((E-1)/2,2
:Then:D+1->D
:Else:D+3->D:End
:remainder(D,4->D
:For(E,1,2
:B+(D=0)-(D=2)->B
:C+(D=3)-(D=1)->C
:If C<165 and C>=0 and B>=0
:Pxl-On(C,B,D+21
:End:End