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

---

Back to previous page