0 REM γονπυτε΅’ξοφΈµ’πη±±µ’ψσ›32000 CLR :GRAPHICS 0:STMTAB=PEEK(136)+PEEK(137)*256:POKE 82,2:POKE 83,39:DIM L$(114)›32001 LINE=PEEK(STMTAB)+PEEK(STMTAB+1)*256›32002 IF LINE=32000 THEN 32015›32003 PRINT CHR$(125):POSITION 2,6:LIST LINE›32004 LOCATE 3+LEN(STR$(LINE)),7,A:LOCATE 4+LEN(STR$(LINE)),7,B:LOCATE 5+LEN(STR$(LINE)),7,C›32005 IF A=82 AND B=69 AND C=77 THEN 32009›32006 L=1:FOR X=7 TO 9:FOR Y=2 TO 39:LOCATE Y,X,M:L$(L)=CHR$(M):L=L+1:NEXT Y:NEXT X›32007 FOR X=1 TO 110:IF L$(X,X+3)=":REM" THEN 32012›32008 NEXT X:STMTAB=STMTAB+PEEK(STMTAB+2):GOTO 32001›32009 PRINT CHR$(125):POSITION 2,6:PRINT LINE›32010 POSITION 0,0:POKE 842,13:POSITION 2,7:PRINT "CONT":POSITION 2,4:STOP ›32011 POKE 842,12:GOTO 32001›32012 PRINT CHR$(125):POSITION 2,6:PRINT L$(1,X-1):PRINT "CONT"›32013 POSITION 0,0:POKE 842,13:POSITION 2,4:STOP ›32014 POKE 842,12:STMTAB=STMTAB+PEEK(STMTAB+2):GOTO 32001›32015 PRINT CHR$(125):POSITION 2,6:FOR X=32000 TO 32016:PRINT X:NEXT X:PRINT "PRINT CHR$(125):POKE 842,12:END"›32016 POKE 842,13:POSITION 2,2:STOP ›