5 SCREEN 7:DIM A(2,319,7),B(11),C(4),D(4),E(2,319,7),F(3):B(0)=14:B(1)=10:B(2)=2:B(3)=3:B(4)=11:B(5)=9:B(6)=1:B(7)=5:B(8)=13:B(9)=12:B(10)=4:B(11)=6:F(0)=0:F(1)=8:F(2)=7:F(3)=15:C=1:O=319
6 FOR H=0 TO 2:CLS:READ A$:D(H)=LEN(A$)*8-1:C(H)=INT((319-D(H))/2):B$=B$+" "+A$:PRINT A$:FOR I=0 TO 7:FOR J=0 TO D(H):E(H,J,I)=POINT(J,I):IF H<3 THEN A(H,J,I)=E(H,J,I)
7 NEXT J,I,H:B$=MID$(B$,2):U=LEN(B$)*8-1:DIM I(U,7):FOR H=0 TO INT(U/320):CLS:C$=MID$(B$,H*40+1,40):PRINT C$:FOR I=0 TO 7:FOR J=0 TO LEN(C$)*8-1:I(H*320+J,I)=POINT(J,I):NEXT J,I,H
10 SCREEN 7,,X,1-X:DELAY .08:X=1-X:IF INKEY$=" " THEN CLS:END
11 Z=Z-V:IF Z<0 THEN Z=11
12 V=1-V:Y=Z:L=C(R)-1:M=C(R)+D(R)+1:B=B+C:IF B=0 OR B=3 THEN IF S>3 THEN C=-F:S=0 ELSE S=S+1:IF S=1 THEN F=C:C=0
13 D=B:E=C:G=F:T=S:CLS:FOR H=0 TO 2:FOR I=0 TO 7:A=8+I+H*16:FOR J=0 TO D(H):IF A(H,J,I) THEN PSET(C(H)+J,A),B(Y)
15 NEXT:Y=Y+1:IF Y=12 THEN Y=0
20 NEXT I,H:ON Q GOTO 47:ON-(TIMER<W)GOTO 25:K=K+1:W=TIMER+.16
25 COLOR F(K):LINE(L,102)-(L,94):LINE(L,94)-(M,94):IF K>2 THEN COLOR 7
32 FOR I=0 TO 7:FOR J=0 TO D(R):IF E(R,J,I)=0 THEN PSET(C(R)+J,95+I)
40 NEXT J,I:IF K>1 THEN COLOR 8
42 LINE(M,95)-(M,103):LINE(L,103)-(M,103):IF K=3 THEN Q=1
46 GOTO 80
47 ON-(TIMER<W)GOTO 49:K=K-1:W=TIMER+.16
49 COLOR F(K):LINE(L,102)-(L,94):LINE(L,94)-(M,94):IF K>2 THEN COLOR 7
50 FOR I=0 TO 7:FOR J=0 TO D(R):IF E(R,J,I)=0 THEN PSET(C(R)+J,95+I)
55 NEXT J,I:IF K>0 THEN COLOR 8
60 LINE(M,95)-(M,103):LINE(L,103)-(M,103):IF K=0 THEN Q=0:R=R+1:IF R=3 THEN R=0
80 FOR J=0 TO U:P=J+O:FOR I=0 TO 7:IF I(J,I) AND P<320 AND P>-1 THEN PSET(P,176+I+D),B(Z)
88 NEXT:D=D+E:IF D=0 OR D=3 THEN IF T>3 THEN E=-G:T=0 ELSE T=T+1:IF T=1 THEN G=E:E=0
91 NEXT:O=O-2:IF O<-U-2 THEN O=319
92 GOTO 10
95 DATA" H A P P Y ","B I R T H D A Y,"," A L I N A !!! "