': $iPointer ++; break; case '<': $iPointer --; break; case '.': echo chr($aMemory[ $iPointer ]); break; case ',': $aMemory[ $iPointer ] = fread( $rSTDIN, 1 ); break; case '[': $szChunk = ''; $i++; while ($aChunk[$i] != ']') { $szChunk .= $aChunk[ $i ]; $i++; } while ($aMemory[ $iPointer ] != 0) { Parse( $szChunk, true ); } break; case ']': break; } } } Parse( $szFile ); ?>