10 COLOR15,15,14:SCREEN2:X=32:DIM M(6):B=14 20 M(0)=10 : M(1)=7 : M(2)=2 : M(3)=13 : M(4)=8 : M(5)=4 : M(6)=1 30 FOR F=0TO192STEP32 40 LINE(X+F,0)-(X+F+31,192),M(C),BF 50 C=C+1 60 NEXT F 70 A$=INKEY$ 80 IFA$=CHR$(13)THENB=B+1:GOSUB 200 90 IFA$=CHR$(32)THENLINE(0,94)-(256,95),B,BF:LINE(127,0)-(128,192),B,BF 100 IFA$=CHR$(27)THENSCREEN0,0,1:COLOR15,1,1:NEW:END 120 GOTO 70 200 IFB>15THENB=1 210 COLOR,,B:RETURN