Hello Hell, 34 bytes
[+^-/>]!*/*/>[+^>][+-/<]-/<[{*+}/] The first program in my new language - Hello Hell! For information on the commands, memory model, etc. check out the repo.
Explanation:
[+^-/>] # Set the first 6 cells to 0 ! # Input */*/ # Set the cell to 0 or 49 depending on input >[+^>] # Move to the 13th cell [+-/<]-/< # Set cells 8-13 to 0 [{*+} ] # If 1, loop forever, / # otherwise print 0