30 lines
377 B
Plaintext
30 lines
377 B
Plaintext
|
#! /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
|
||
|
|
||
|
|
||
|
|
||
|
|