anchor.diff:  	GOTO :NEXT
   )
   IF !INSTR!==^, (
  -	CALL :GETCHAR
  +	CALL :GETCHAR MEM[!MEMPTR!]
   	GOTO :NEXT
   )
   IF !INSTR!==. (
  -	CALL :PUTCHAR
  +	CALL :PUTCHAR !MEM[%MEMPTR%]!
   	GOTO :NEXT
   )
   IF !INSTR!==[ (
  
positive.code: :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=?
  	)
  )
  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
  )
  :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
  )
  GOTO :EOF
  
  :FINDCODELEN <CODE>
  
negative.code: @ECHO OFF
  SET "STDIN="
  
  FOR /F "TOKENS=*" %%A IN ('FINDSTR /n $') DO (
  	SETLOCAL DISABLEDELAYEDEXPANSION
  	SET "LINE=%%A"
  