ZX

10 rem $<
20 let la = len a$
   if la=0 then goto 50

30 scroll
   let p = 256*peek(16397)+peek(16396)+20*33+1

40 if la>31 then let la=31
45 for i=1 to la
46 poke p+i,code a$(i)
47 next i

50 print "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""http://www.w3.org/TR/html4/loose.dtd"">"
   print "<html>"
   print "<head>"
   print "<title>ZX81 Message Board</title>"
   print "<link href=""zx.css"" rel=""stylesheet"" type=""text/css""/>"
   print "</head>"
   print "<pre>"
   print "<em>Previous messages:</em><br/>"
   copy
   print "<form name=""form"" action=""msg.php"" method=""get"">"
   print "<em>Your message:</em><br/>"
   print "<input type=""text"" name=""arg"" value=""""/><input type=""submit"" value=""Submit""/>"
   print "</form>"
   print "</pre>"
   print "</body>" 
   print "</html>"

60 rem $>
70 stop