9000 T=-1:CP=0:X=PEEK(211):Y=PEEK(214):L=PEEK(648)*256+Y*40+X:IFLI=0THENLI=39
9010 IN=0:IFPEEK(L)=32ORPEEK(L)=96ORPEEK(L)=160ORPEEK(L)=224THENW$=""
9020 FORI=L+54272TOL+54272+LI:POKEI,PEEK(646):NEXT
9030 GETA$:ON-(TI>15)GOSUB9170:IFA$=""THEN9030
9040 ON-(A$="")-2*(A$="[157]")-3*(A$=CHR$(13))-4*(A$="	")GOTO9120,9140,9310,9180
9050 ON-(A$=CHR$(20))-2*(A$=CHR$(148))-3*(A$="")GOTO9190,9210,9280
9060 IF(A$<" "ORA$>"_")THENIFA$<"[193]"ORA$>"[218]"THEN9030
9070 IFLEN(W$)>=LITHEN9030
9080 ON-(CP<LEN(W$))-2*(CP>=LEN(W$))GOTO9090,9110
9090 W$=LEFT$(W$,CP)+A$+MID$(W$,CP+1-IN):GOSUB9160:CP=CP+1:GOSUB9290:GOSUB9300
9100 GOTO9030
9110 W$=W$+A$:GOSUB9160:CP=CP+1:PRINTA$;:GOTO9030
9120 IFLEN(W$)THENIFCP<LEN(W$)THENGOSUB9160:CP=CP+1:GOSUB9170:POKE212,0:PRINT"";
9130 GOTO9030
9140 IFLEN(W$)THENIFCP>0THENGOSUB9160:CP=CP-1:POKE212,0:PRINT"[157]";:GOSUB9170
9145 IFNI=1THENIN=-1:NI=0
9150 GOTO9030
9160 IFTTHENRETURN
9170 POKEL+CP,PEEK(L+CP)+128AND255:TI$="000000":T=NOTT:RETURN
9180 IN=NOTIN:GOTO9030
9190 ON-(CP=0)-2*(CP<LEN(W$)ANDCP>0)-3*(CP>=LEN(W$))GOTO9030,9230,9270
9200 GOTO9030
9210 IFLEN(W$)<LITHENPOKE631,32:POKE632,157:POKE198,2:IFIN=-1THENNI=1:IN=0
9220 GOTO9030
9230 IFCP>1THEN9250
9240 GOSUB9160:W$=MID$(W$,CP+1):GOSUB9290:GOTO9260
9250 GOSUB9160:W$=LEFT$(W$,CP-1)+MID$(W$,CP+1):GOSUB9290
9260 POKE211,X+CP:POKE214,Y:SYS58732:CP=CP-1:GOTO9030
9270 GOSUB9160:W$=LEFT$(W$,LEN(W$)-1):GOSUB9290:PRINT"[157]";:CP=CP-1:GOTO9030
9280 GOSUB9160:CP=0:GOSUB9170:GOTO9030
9290 POKE211,X:POKE214,Y:SYS58732:PRINTW$" ";:RETURN
9300 POKE211,CP+X:POKE214,Y:SYS58732
9310 GOSUB9160:RETURN