34 lines
428 B
Plaintext
34 lines
428 B
Plaintext
|
#! /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
|
||
|
|
||
|
|
||
|
|
||
|
|