31500 TRAP 31514:CLR :OPEN #1,12,0,"S:":REM ** REMREMOVE ** F. Neil Simms›31501 S=PEEK(136)+256*PEEK(137):POKE 752,1:DIM B$(129):B$=" ":B$(129)=B$:B$(2)=B$›31502 K=3:L=PEEK(S+2)›31503 T=PEEK(S)+256*PEEK(S+1):IF T>32749 THEN 31515›31504 IF PEEK(S+K+1)<>0 THEN 31512›31505 ? CHR$(125):POSITION 2,4:LIST T›31506 POSITION 2,4›31507 GET #1,T:IF T<>82 THEN 31507›31508 GET #1,T:IF T<>69 THEN 31507›31509 GET #1,T:IF T<>77 THEN 31507›31510 ? "~~~~";B$;:POSITION 0,0:POKE 842,13:POSITION 2,10:? "CONT":POSITION 2,2:STOP ›31511 POKE 842,12:GOTO 31502›31512 K=PEEK(K+S):T=PEEK(K+S-1):IF T<>22 AND T<>155 THEN 31503›31513 S=S+L:GOTO 31502›31514 ? "ERROR #";PEEK(195)›31515 CLOSE #1:POKE 752,0:? "}":POSITION 2,4:FOR X=31500 TO 31516:? X:NEXT X›31516 POSITION 2,21:? "POKE 842,12":POSITION 2,0:POKE 842,13›