34 lines
428 B
Plaintext
Executable File
34 lines
428 B
Plaintext
Executable File
#! /usr/pkg/bin/gforth-fast
|
|
\ forthtest.cgi - Test driver for html5cgi.fs
|
|
|
|
include html5cgi.fs
|
|
|
|
: main ( -- )
|
|
0
|
|
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*
|
|
;
|
|
|
|
main
|
|
c$type
|
|
|
|
\ bye
|
|
|
|
|
|
|
|
|