>>SOURCE FORMAT FREE
identification division.
program-id. mainframe.
*> This program emits the website's content as HTML.
*> Compiled by GnuCOBOL to C, then by Emscripten to WebAssembly.
data division.
working-storage section.
01 html-pointer binary-long.
linkage section.
01 page-html pic x(8192).
procedure division using page-html.
    move spaces to page-html
    move 1 to html-pointer
    string
      '<main><h1>This website was built in cobol.</h1>'
      '<p>It could have been built in React. Maybe it was. '
      'I have no idea, I didn’t look at the source. '
      'I built this whole thing from my phone in less than 10 mins. '
      'I deployed it from a Mac mini at home that’s connected to '
      'my cloud hosting provider.</p>'
      '<p>It probably doesn’t matter if you know the internals '
      'of react. You don’t think super intelligence can manage '
      'the dom and event handlers?</p>'
      '<footer><a href="source.cbl">View source</a>'
      '<span class="share">share: '
      '<a href="https://x.com/intent/post?text=This%20website%20was'
      '%20built%20in%20cobol.&amp;url=https%3A%2F%2F'
      'maybeitwasreact.com%2F" target="_blank" '
      'rel="noopener noreferrer">X</a> / '
      '<a href="https://news.ycombinator.com/submitlink?u='
      'https%3A%2F%2Fmaybeitwasreact.com%2F&amp;t=This%20website'
      '%20was%20built%20in%20cobol." target="_blank" '
      'rel="noopener noreferrer">HN</a></span></footer></main>' 
      into page-html with pointer html-pointer
    end-string
    goback.
end program mainframe.