anchor.diff:  :NEXT
   SET /A CODEPTR=!CODEPTR!+1
   GOTO LOOP
  -:PUTCHAR
  -IF EXIST ascii\ascii!MEM[%MEMPTR%]!.txt (
  -	TYPE ascii\ascii!MEM[%MEMPTR%]!.txt
  -) ELSE (
  -	IF !MEM[%MEMPTR%]! GEQ 34 (
  -		SET /A CHAR=!MEM[%MEMPTR%]!-34
  -		<NUL SET /P=!ASCII:~%CHAR%,1!
  -	) ELSE (
  -		IF !MEM[%MEMPTR%]!==32 (
  -			<NUL SET /P=.%BS% 
  -			:: WARNING: Above line must contain a space before the newline
  -			GOTO :EOF
  -		)
  -		IF !MEM[%MEMPTR%]!==33 (
  -			<NUL SET /P=^^!
  -			GOTO :EOF
  -		)
  -		IF !MEM[%MEMPTR%]!==10 (
  -			ECHO.
  -			GOTO :EOF
  -		)
  -		<NUL SET /P=?
  +:PUTCHAR <CHAR>
  +SET "CHAR=%1"
  +IF EXIST ascii\ascii!CHAR!.txt (
  +	TYPE ascii\ascii!CHAR!.txt
  +	GOTO :PUTCHAR_RETURN
  +)
  +IF !CHAR! EQU 61 GOTO :PUTCHAR_INVALID
  +IF !CHAR! GEQ 127 GOTO :PUTCHAR_INVALID
  +IF !CHAR! GEQ 34 (
  +	CALL :PUTCHAR_SLOWDOWN
  +	GOTO :PUTCHAR_RETURN
  +)
  +IF !CHAR! EQU 33 (
  +	<NUL SET /P=^^!
  +	GOTO :PUTCHAR_RETURN
  +)
  +IF !CHAR! EQU 32 (
  +	<NUL SET /P=.%BS% 
  +	REM WARNING: Above line must contain a space before the newline
  +	GOTO :PUTCHAR_RETURN
  +)
  +IF !CHAR! EQU 10 (
  +	ECHO.
  +	GOTO :PUTCHAR_RETURN
  +)
  +GOTO :PUTCHAR_INVALID
  +:PUTCHAR_SLOWDOWN
  +SET /A CHAR=%CHAR%-34
  +<NUL SET /P=!ASCII:~%CHAR%,1!
  +GOTO :EOF
  +:PUTCHAR_INVALID
  +<NUL SET /P=?
  +:PUTCHAR_RETURN
  +GOTO :EOF
  +
  +:GETCHAR <RESULT>
  +SET "RESULT=0"
  +IF [!INPUT!]==[] GOTO :GETCHAR_RETURN
  +FOR /L %%I IN (0,1,92) DO (
  +	IF "!ASCII:~%%I,1!" == "!INPUT:~0,1!" (
  +		SET "RESULT=%%I"
  +		SET /A "RESULT=!RESULT!+34"
  +		GOTO :GETCHAR_END
   	)
   )
  -GOTO :EOF
  -:GETCHAR
  -SET RESULT=0
  -FOR /L %%I IN (0,1,92) DO (
  -	SET INDEX=%%I
  -	CALL :TESTCHAR
  -	IF NOT "!RESULT!"=="0" GOTO :GETCHAR_END
  +IF "!INPUT:~0,1!"=="^!" (
  +	SET "RESULT=33"
  +	GOTO :GETCHAR_END
  +)
  +IF "!INPUT:~0,1!"==" " (
  +	SET "RESULT=32"
  +	GOTO :GETCHAR_END
   )
   :GETCHAR_END
  -GOTO :EOF
  -:DONE
  -SET /A MEM[!MEMPTR!]=!RESULT!+34
   SET "INPUT=!INPUT:~1!"
  -GOTO :EOF
  -:TESTCHAR
  -SET CHAR1=!ASCII:~%INDEX%,1!
  -SET CHAR2=!INPUT:~0,1!
  -IF [!CHAR1!]==[!CHAR2!] (
  -	SET RESULT=%INDEX%
  -	GOTO :DONE
  -)
  +:GETCHAR_RETURN
  +SET "%1=!RESULT!"
   GOTO :EOF
   
   :FINDCODELEN <CODE>
  
positive.code: 	GOTO :NEXT
  )
  IF !INSTR!==^, (
  	CALL :GETCHAR
  	GOTO :NEXT
  )
  IF !INSTR!==. (
  	CALL :PUTCHAR
  	GOTO :NEXT
  )
  IF !INSTR!==[ (
  
negative.code: @ECHO OFF
  SET "STDIN="
  
  FOR /F "TOKENS=*" %%A IN ('FINDSTR /n $') DO (
  	SETLOCAL DISABLEDELAYEDEXPANSION
  	SET "LINE=%%A"
  