BasinC Attract Screen

1 BORDER 0: PAPER 0: INK 7: BRIGHT 0: CLS
2 LET a$="Ugdr Owks =WP'N>fIA[\@ Tn\\U DKJ|\\o/\{p2i6}\ :\{p4i5}\ :"
3 FOR x=1 TO 17: PRINT INK 2;AT 11,5+x;a$(x);AT 11,5+x; OVER 1; INK 7;a$(x+17);
4 PAUSE 1: NEXT x: PRINT " ";a$(35 TO ): BEEP 0.1,28: PAUSE 100
5 FOR x=22 TO 0 STEP -1: PRINT AT 11,x;a$(35 TO ); PAPER 0;"  ": PAUSE 2: NEXT x: CLS
6 FOR x=0 TO 7: PAPER x: POKE 23624,x*8: CLS : BORDER x: CLS : PAUSE 1: NEXT x