1 CLS:A$=CHR$(96)+CHR$(155)+CHR$(147):B$=CHR$(145):H=0:FORI=6TO26
2 C=RND(7)+151:FORJ=RND(4)+8TO15:PRINT@J*32+I,CHR$(C);:NEXTJ,I
3 PRINT@H,A$;:IFPEEK(28672+H+3)<>96,6
4 IFINKEY$<>""ANDB=0,B=H+33:GOSUB9ELSEIFB<>0,GOSUB9
5 H=H+.5:IFH=507,6ELSE3
6 IFH>R,R=H:PRINT@0,"SCORE:";H:PRINT@23,"HIGH:";R;
7 FORI=1TO100:NEXTI:R$=INKEY$: PRINT@73,"ANOTHER?";
8 R$=INKEY$:IFR$="",8ELSEIFR$<>"N",RUNELSECLS:END
9 IFB>=510,B=0:GOTO10ELSEIFPEEK(28672+B)<>96,PRINT@B,CHR$(96);
10 PRINT@B1,CHR$(96);:IFB<>0,PRINT@B,B$;:B1=B:B=B+32:RETURNELSERETURN
