5 CLEAR500:P=479+RND(26):K=0:GOTO100
10 A$=""
20 A$=""+A$+""+A$
30 BB=207:T2=32:P5=16385:P6=16386
40 X$="A":S$="S":B$=" "
50 PM=16383:SL=511
55 PX=16353:PE=16895
60 PS=16384:E=255:Z=0:TT=-32
70 TW=2:TH=3:E1=256:B=128
80 F=197:O=1:LM=480:RM=507
90 RETURN
100 CLS0:GOSUB10
110 FORT=ZTOESTEPTW
115 PRINT@T,A$;
116 GOSUB130
117 NEXTT
120 FORT=E1TOSLSTEPTW
125 PRINT@T,LEFT$(A$,SL-T);
126 IFPEEK(PM+P)<>BTHENGOSUB500
127 GOSUB130
128 NEXTT:GOTO100
130 PRINT@P,"";
131 IFG=ZTHENG=T+RND(SL-T):G=PS+G:IFPEEK(G)=BTHENG=0:GOTO134
132 GOSUB600
134 I$=INKEY$:IFI$=""THEN140
135 IFI$=B$THENGOSUB200:GOTO140
136 IFI$=X$THENIFP>LMTHENP=P-1
137 IFI$=S$THENIFP<RMTHENP=P+1
140 RETURN
200 FORC=PX+PTOPSSTEPTT
210 IFPEEK(C)<>BTHENGOSUB300:GOTO230
220 POKEC,F:POKEC,B
225 NEXTC
230 RETURN
300 POKEC,B:POKEC-O,B:POKEC+O,B
330 C=C-PS:K=K+1
335 Y=VARPTR(A$)
340 H=(PEEK(Y+TW)*E1)+PEEK(Y+TH)+(C-T)
345 POKEH,B:POKEH-O,B:POKEH+O,128
350 RETURN
500 PRINT@8,"THEY GOT YOU!";
510 PRINT@40,"SCORE =";K;
520 PRINT@70,"PLAY AGAIN (Y/N)?";
530 I$=INKEY$:IFI$=""THEN530
540 IFI$="N"ORI$="n"THEN END
550 IFI$="Y"ORI$="y"THENT=SL:TW=E:K=0:A$="":RETURN
560 GOTO530
600 POKEG,B
610 G=G+T2:IFG>PETHENG=Z:GOTO690
620 POKEG,BB
630 IFG=P5+PORG=P6+PTHENGOSUB500
690 RETURN

