30 lines
377 B
Plaintext
Executable File
30 lines
377 B
Plaintext
Executable File
#! /usr/bin/gforth-fast
|
|
\ forthtest.cgi - Test driver for html5cgi.fs
|
|
|
|
include html5cgi.fs
|
|
|
|
s" Document Title" $alloc *title* *head*
|
|
|
|
0
|
|
s" Level 1 Heading" $alloc *h1*
|
|
|
|
s" Level 2 Heading" $alloc *h2*
|
|
|
|
s" Level 3 Heading" $alloc *h3*
|
|
|
|
s" Level 4 Heading" $alloc *h4*
|
|
|
|
s" Level 5 Heading" $alloc *h5*
|
|
|
|
s" Level 6 Heading" $alloc *h6*
|
|
|
|
*body* *html* *http-html5*
|
|
|
|
ctype
|
|
|
|
bye
|
|
|
|
|
|
|
|
|