100 P=0
110 CLS:PRINTP:FORI=1TO99:NEXTI
120 GOSUB 1000
130 K$=INKEY$:IFK$="" THEN 130
140 IF ASC(K$)=94 THEN P=P+1
142 IF ASC(K$)=10 THEN P=P-1
150 IF ASC(K$)=95 THEN P=P+10
152 IF ASC(K$)=91 THEN P=P-10
190 GOTO 110
200 K$=INKEY$:IFK$="" THEN 200
210 PRINT ASC(K$)
220 GOTO 200
999 END
1000 REM PAGE P
1004 IF P < 0 THEN RETURN
1005 IF P >= 128 THEN RETURN
1010 P2=P
1015 P9=&HFFC6
1020 P3=INT(P2/2)
1025 P4=1
1030 IF P3*2=P2 THEN P4=0
1040 POKE P9+P4,0
1050 P9=P9+2
1055 P2=P3
1060 IF P9 < &HFFD4 THEN 1020
1090 RETURN