true constant UseTOC
include lib/latex.4th

%texArticle
%beginTex
s" Hans Bezemer" s" My life with 4tH" %texTitle

s" Foreword" %subSection
." First I want to thank my parents, my teachers," cr
." my girlfriend, my hairdresser and most of all" cr
." my dog Snoopy, who never lost faith in me." cr

%endSection

s" The beginning" %subSection
." It was late at night, I couldn't catch sleep." cr
." So I decided to create a compiler in order to" cr
." archieve world peace and love and harmony for" cr
." all mankind." cr

s" Basic philosophy" %subSection
." To make the best product on the market, give the" cr
." best possible service to our paying customers and" cr
." squeeze each and every penny out of their pockets." cr

%endSection
%endSection

s" Pedigree" %subSection

%enumerate begins
  item: ." Artic Forth" cr
  item: ." FPC" cr
  item: ." gForth" cr
%enumerate ends


%tablefloat begins
  %center begins
    %table begins
      s" | l | l | c |" %layout %line
      s" Name"        s" Platform" s" Year" 3 %cells %line
      s" Artic Forth" s" Spectrum" s" 1983" 3 %cells %line
      s" FPC"         s" MS-DOS"   s" 1991" 3 %cells %line
      s" 4tH"         s" Linux"    s" 1994" 3 %cells %line
    %table ends
  %center ends
  s" Some Forth implementations" %caption
%tablefloat ends


%description begins
  s" Word" means: ." A function in Forth." cr
  s" Flag" means: ." A boolean in Forth." cr
  s" Cell" means: ." A native integer number in 4tH." cr
%description ends

%listing begins
  ."   : rot >r swap r> swap ;    \ define ROT" cr
  ."   2 3 4 rot                  \ application of ROT" cr
%listing ends

%endSection
%endTex