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¢
