10 REM TEXTRAPOLATION 2/3 -- PREDICTION = 2 OUT OF 3 CHOICES BEFORE
100 DIM A(255) ,B(255), C(255):REM RESERVE SPACE FOR SAVING LETTERS
110 PRINT"[147][144]BEGIN TYPING...":POKE53281,1:POKE53280,7:WAIT198,1
190 PRINT"[147][144]":POKE53281,1:POKE53280,7:      NL=0
200 :
210 GET X$: IF X$="" THEN 210:              REM WAIT FOR USER TO TYPE A LETTER
211 IFX$="_"THEN63000
212 L=L+1:IFL>38THENPRINT:PRINT:PRINT:      L=0:NL=NL+1:IFNL=7THEN190
220 PRINT"[144]"CHR$(8);X$;:                  REM BACKSPACE-THEN PRINT CHOSEN LETTER
300 X1=ASC(X$): N=N+1: IF P=X1 THEN R=R+1: REM CONVERT CHARACTER, ADD ONE
305 IFP=0THEN380
350 PRINT "[157]"CHR$(P)"[145]";:                 REM SHOW PREDICTION ON SCREEN
380 CL=PEEK(214):CC=PEEK(211):              PRINT"[144]SCORE:"R;
382 POKE783,0:POKE781,CL:POKE782,CC:        SYS65520
400 C(X0)=B(X0): B(X0)=A(X0): A(X0)=X1:     X0=X1: REM SHIFT IN NEW INFORMATION
420 P=A(X0): IF B(X0)=C(X0) THEN P=B(X0): REM DOES STUFF
500 GOTO 200
63000 REM   RECONNECT TO BOOT PROGRAM
63002 PRINT"[147]LOAD"CHR$(34)"TEXT BOOT"      CHR$(34)",8":PRINT"RUN"
63004 POKE631,13:POKE632,13:POKE198,2:        END