diff view
color-ed3.f color-dirk4c.f
end of diff view
1. 0 [IF]
2.    Forth to HTML converter
3.  
1. 0 [IF]
2.    Forth to HTML converter
3.  
4.    Main contributors: Brad Eckert & Ed Beroset
5.    Revision 4. See bottom for revision history.
4.    Main contributors: Brad Eckert, Ed Beroset & Dirk Busch
5.    Revision 4b. See bottom for revision history.
6.  
7.    This ANS Forth program is public domain. It translates ANS Forth to colorized
8.    HTML. Hyperlinks to the ANS Forth draft standard are inserted for all ANS
9.    standard words. Hyperlinks to user definitions are included.
10.  
11.    Usage: HTML FileName    Generates HTML file from Forth source.
12.                            Output file is Filename with .HTM extension.
13.           Q [forth code]   Outputs HTML for 1 line to screen
14.  
15.    Q is used for debugging. You can use "linenum ?" to show the line number if an
16.    ABORT occurs. The HTML is about 10 times as big as the Forth source because of
17.    all the links, color changes and whitespace.
18.  
19.    INCLUDEd files produce corresponding HTML pages. Most browsers get severely
20.    bogged down with large files. If you're converting a large Forth program to
21.    HTML, try to keep the source files under 500 lines each by splitting long
22.    source into multiple INCLUDE files.
23.  
24.    When you INCLUDE this file some redefinition complaints may occur. That's
25.    okay since you won't be loading an application on top of this.
26.  
27.    Users of specific Forths can extend the hyperlink table to point to words
28.    in a glossary for that particular Forth.
6.  
7.    This ANS Forth program is public domain. It translates ANS Forth to colorized
8.    HTML. Hyperlinks to the ANS Forth draft standard are inserted for all ANS
9.    standard words. Hyperlinks to user definitions are included.
10.  
11.    Usage: HTML FileName    Generates HTML file from Forth source.
12.                            Output file is Filename with .HTM extension.
13.           Q [forth code]   Outputs HTML for 1 line to screen
14.  
15.    Q is used for debugging. You can use "linenum ?" to show the line number if an
16.    ABORT occurs. The HTML is about 10 times as big as the Forth source because of
17.    all the links, color changes and whitespace.
18.  
19.    INCLUDEd files produce corresponding HTML pages. Most browsers get severely
20.    bogged down with large files. If you're converting a large Forth program to
21.    HTML, try to keep the source files under 500 lines each by splitting long
22.    source into multiple INCLUDE files.
23.  
24.    When you INCLUDE this file some redefinition complaints may occur. That's
25.    okay since you won't be loading an application on top of this.
26.  
27.    Users of specific Forths can extend the hyperlink table to point to words
28.    in a glossary for that particular Forth.
29.  
30.    You can change the following bold/italic/nestable options:
 
31. [THEN]
32.  
33. ONLY FORTH ALSO DEFINITIONS
34.  
29. [THEN]
30.  
31. ONLY FORTH ALSO DEFINITIONS
32.  
35. 0 VALUE bold                                    \ T if bold text
33. \ ------------------------------------------------------------------------------
34. \ Configuration - You can change the options:
35. 1 VALUE bold                                      \ T if bold text
36. 1 VALUE italic                                  \ T if italic comments
36. 1 VALUE italic                                  \ T if italic comments
37. 1 VALUE nestable                                \ T if INCLUDE nests files
37. 1 VALUE nestable                                  \ T if INCLUDE nested files
38. 1 VALUE linksource                                \ T link to the org. file /4a/
39. create  dpanspath ," .\"                          \ path to the ANS-Files   /4a/
40. create  copyright ," "                            \ copyright to output at  /4a/
41.                                                   \ the bottom of the HTML-file
42. \ ------------------------------------------------------------------------------
38.  
39. : undefined ( <name> -- f ) BL WORD FIND NIP 0= ;
40. undefined C+!    [IF] : C+! SWAP OVER C@ + SWAP C! ;                      [THEN]
41. undefined BOUNDS [IF] : BOUNDS OVER + SWAP ;                              [THEN]
42. undefined SCAN   [IF] : SCAN
43.    >R
44.    BEGIN DUP WHILE OVER C@ R@ <> WHILE 1 /STRING REPEAT THEN
45.    R> DROP ;                                                              [THEN]
46. undefined SKIP   [IF] : SKIP
47.    >R
48.    BEGIN DUP WHILE OVER C@ R@ = WHILE 1 /STRING REPEAT THEN
49.    R> DROP ;                                                              [THEN]
50. undefined NOOP   [IF] : NOOP ;                                            [THEN]
51. undefined +PLACE [IF] : +PLACE 2DUP 2>R COUNT CHARS + SWAP MOVE 2R> C+! ; [THEN]
52. undefined PLACE  [IF] : PLACE  0 OVER C! +PLACE ;                         [THEN]
53. undefined FDROP  [IF] : FDROP ;                                           [THEN]
54. undefined >FLOAT [IF] : >FLOAT DROP C@ [CHAR] 0 [CHAR] 9 1+ WITHIN ;      [THEN]
55.  
56. 0 VALUE outf                                    \ output to file
57. 1 VALUE screen-only                             \ screen is for testing
58. : werr  ABORT" Error writing file" ;
59. : out   screen-only IF TYPE    ELSE outf WRITE-FILE werr THEN ;
60. : outln screen-only IF TYPE CR ELSE outf WRITE-LINE werr THEN ;
61.  
43.  
44. : undefined ( <name> -- f ) BL WORD FIND NIP 0= ;
45. undefined C+!    [IF] : C+! SWAP OVER C@ + SWAP C! ;                      [THEN]
46. undefined BOUNDS [IF] : BOUNDS OVER + SWAP ;                              [THEN]
47. undefined SCAN   [IF] : SCAN
48.    >R
49.    BEGIN DUP WHILE OVER C@ R@ <> WHILE 1 /STRING REPEAT THEN
50.    R> DROP ;                                                              [THEN]
51. undefined SKIP   [IF] : SKIP
52.    >R
53.    BEGIN DUP WHILE OVER C@ R@ = WHILE 1 /STRING REPEAT THEN
54.    R> DROP ;                                                              [THEN]
55. undefined NOOP   [IF] : NOOP ;                                            [THEN]
56. undefined +PLACE [IF] : +PLACE 2DUP 2>R COUNT CHARS + SWAP MOVE 2R> C+! ; [THEN]
57. undefined PLACE  [IF] : PLACE  0 OVER C! +PLACE ;                         [THEN]
58. undefined FDROP  [IF] : FDROP ;                                           [THEN]
59. undefined >FLOAT [IF] : >FLOAT DROP C@ [CHAR] 0 [CHAR] 9 1+ WITHIN ;      [THEN]
60.  
61. 0 VALUE outf                                    \ output to file
62. 1 VALUE screen-only                             \ screen is for testing
63. : werr  ABORT" Error writing file" ;
64. : out   screen-only IF TYPE    ELSE outf WRITE-FILE werr THEN ;
65. : outln screen-only IF TYPE CR ELSE outf WRITE-LINE werr THEN ;
66.  
62. WORDLIST CONSTANT hyperlinks
63. VARIABLE attrib
64. : /a      ( -- )         attrib @ IF S" </a>" out THEN 0 attrib ! ;
 
65. : ,$      ( a len -- )   DUP C, BOUNDS ?DO I C@ C, LOOP ; \ text to dictionary
67. : ,$      ( a len -- )   DUP C, BOUNDS ?DO I C@ C, LOOP ; \ text to dictionary
66. : text    ( <text> -- )  -1 WORD COUNT -TRAILING ,$ ;
67. : line    ( a line# -- ) 0 ?DO COUNT + LOOP COUNT out ;   \ output one string
68. : boiler  ( addr -- )    BEGIN COUNT DUP WHILE 2DUP + >R outln R> REPEAT 2DROP ;
69. : ital(   ( -- )         italic IF S" <i>" out THEN ;
70. : )ital   ( -- )         italic IF S" </i>" out THEN ;
 
71.  
72. \ create a named text string terminated by char
73. \ when executed, emits the named text using out
74. : namedtext ( char <name> <text> -- )                
68.  
69. \ create a named text string terminated by char
70. \ when executed, emits the named text using out
71. : namedtext ( char <name> <text> -- )                
75.    CREATE WORD COUNT -TRAILING ,$
72.    CREATE WORD COUNT BL SKIP -TRAILING ,$ \ /4c/
76.    DOES> COUNT out ;
77.  
78. \ new and improved strings are now named
73.    DOES> COUNT out ;
74.  
75. \ new and improved strings are now named
79.    CHAR ! namedtext emitfarhref <a href="AnsForth/!
80.    CHAR ! namedtext emitanchor <a name="x!
81.    CHAR ! namedtext emitcloseattrib ">!
82.    CHAR ! namedtext emitlocalhref <a href="#x!
83.    CHAR ! namedtext emitcolor <span style="color:#!
84.    CHAR ! namedtext emith1 <hr /><h1>!
85.    CHAR ! namedtext emitcloseh1 </h1><hr /><p>!
86.    CHAR ! namedtext emitclosespan </span>!
76.    CHAR ! namedtext <a_href="    <a href="!
77.    CHAR ! namedtext <a_href="#x  <a href="#x!
78.    CHAR ! namedtext </a>         </a>!
79. 
80.    CHAR ! namedtext <a_name="x   <a name="x!
81. 
82.    CHAR ! namedtext <span_style="color:# <span style="color:#!
83.    CHAR ! namedtext </span>      </span>!
84. 
85.    CHAR ! namedtext <hr_/>       <hr />!
86.    CHAR ! namedtext </hr>        </hr>!
87. 
88.    CHAR ! namedtext <h1>         <h1>!
89.    CHAR ! namedtext </h1>        </h1>!
90. 
91.    CHAR ! namedtext <p>          <p>!
92.    CHAR ! namedtext </p>         </p>!
93. 
94.    CHAR ! namedtext <br_/>       <br />
95. 
96.    CHAR ! namedtext ">           ">!
97. 
98. 
99. WORDLIST CONSTANT hyperlinks
100. VARIABLE attrib
101. : /a     ( -- )         attrib @ IF </a> THEN 0 attrib ! ;
102. : <i>    ( -- )         italic IF s" <i>" out THEN ;
103. : </i>   ( -- )         italic IF s" </i>" out THEN ;
104. : <b>    ( -- )         bold IF s" <b>" out THEN ;
105. : </b>   ( -- )         bold IF s" </b>" out THEN ;
106. 
107. : text    ( <text> -- )  -1 WORD COUNT -TRAILING ,$ ;
108. : boiler  ( addr -- )    BEGIN COUNT DUP WHILE 2DUP + >R outln R> REPEAT 2DROP ;
109. 
87.  
88. VARIABLE color                                  \ current color
89. VARIABLE infont                                 \ within <font> tag
90.  
110.  
111. VARIABLE color                                  \ current color
112. VARIABLE infont                                 \ within <font> tag
113.  
91. : fontcolor ( color -- ) BASE @ >R              \ change font color
114. : fontcolor ( color -- )                        \ change font color
92.    1 infont !
115.    1 infont !
93.    emitcolor 0 HEX <# # # # # # # #> out
94.    emitcloseattrib       R> BASE ! ;
116. 
117.    <span_style="color:#
118.    BASE @ >R 0 HEX <# # # # # # # #> out R> BASE !
119.    "> ;
95.  
96. : col ( color <name> -- )                       \ define a font color
97.    CREATE , DOES> @ color ! ;
98.  
99. HEX
100. 808080 col unknown
101. 008000 col commentary
102. CC0000 col numeric
103. 990080 col values
104. 000000 col userwords
105. 009999 col userdefiner
106. CC00CC col variables
107. 0000FF col core_ws
108. 0000FF col core_ext_ws
109. 0000FF col block_ws
110. 0000FF col double_ws
111. 0000FF col exception_ws
112. 0000FF col facilities_ws
113. 0000FF col file_ws
114. 0000FF col fp_ws
115. 0000FF col local_ws
116. 0000FF col malloc_ws
117. 0000FF col progtools_ws
118. 0000FF col searchord_ws
119. 0000FF col string_ws
120. DECIMAL
121.  
122. CREATE begin_header                             \ begin of HTML file part 1
123.    text <?xml version="1.0"?>
124.    text <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
125.    text     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
126.    text <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> 
127.    text <head>
128.    text <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" />
120.  
121. : col ( color <name> -- )                       \ define a font color
122.    CREATE , DOES> @ color ! ;
123.  
124. HEX
125. 808080 col unknown
126. 008000 col commentary
127. CC0000 col numeric
128. 990080 col values
129. 000000 col userwords
130. 009999 col userdefiner
131. CC00CC col variables
132. 0000FF col core_ws
133. 0000FF col core_ext_ws
134. 0000FF col block_ws
135. 0000FF col double_ws
136. 0000FF col exception_ws
137. 0000FF col facilities_ws
138. 0000FF col file_ws
139. 0000FF col fp_ws
140. 0000FF col local_ws
141. 0000FF col malloc_ws
142. 0000FF col progtools_ws
143. 0000FF col searchord_ws
144. 0000FF col string_ws
145. DECIMAL
146.  
147. CREATE begin_header                             \ begin of HTML file part 1
148.    text <?xml version="1.0"?>
149.    text <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
150.    text     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
151.    text <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> 
152.    text <head>
153.    text <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" />
129.    text <meta name="GENERATOR" content="Forth2HTML 0.0" />
154.    text <meta name="GENERATOR" content="Forth2HTML 0.4" />
130.    text <style type="text/css">
131.    text body {background: #FFFFEE;}
132.    text h1 {color: #000000;}
133.    text p {font-family: monospace;}
134.    text a {text-decoration:none;}
135.    text </style>
136.    text <title>
137.    0 C,
138.  
139. \ body defaults: the most common link color (blue) is made the default color
140. \ the most common plain text color (green) is made default.
141.  
142. CREATE mid_header                               \ begin of HTML file part 2
143.    text </title></head>
144.    text <body>
145.    0 C,
146.  
155.    text <style type="text/css">
156.    text body {background: #FFFFEE;}
157.    text h1 {color: #000000;}
158.    text p {font-family: monospace;}
159.    text a {text-decoration:none;}
160.    text </style>
161.    text <title>
162.    0 C,
163.  
164. \ body defaults: the most common link color (blue) is made the default color
165. \ the most common plain text color (green) is made default.
166.  
167. CREATE mid_header                               \ begin of HTML file part 2
168.    text </title></head>
169.    text <body>
170.    0 C,
171.  
147. CREATE end_header                               \ end of HTML file
148.    text </p></body>
149.    text </html>
172. CREATE end_header_part1                         \ end of HTML file part 1 /4a/
173.    text <hr />
174.    text <h4 style="color:black">
175.    0 C,
176. 
177. CREATE end_header_part2                      \ end of HTML file part 2 /4a/ /4b/
178.    text </h4>
179.    text </body></html>
150.    0 C,
151.  
152. HEX
153. : setcolor ( -- )                               \ select next color
154.    attrib @ 1 = color @ 0000FF = AND 0=         \ blue link: don't color
155.    DROP TRUE                                    \ /4/ vlinks are still purple
156.    IF color @ fontcolor THEN ;
157. DECIMAL
158.  
159. : closefont ( -- )
180.    0 C,
181.  
182. HEX
183. : setcolor ( -- )                               \ select next color
184.    attrib @ 1 = color @ 0000FF = AND 0=         \ blue link: don't color
185.    DROP TRUE                                    \ /4/ vlinks are still purple
186.    IF color @ fontcolor THEN ;
187. DECIMAL
188.  
189. : closefont ( -- )
160.    infont @ IF
161.    emitclosespan 0 infont ! THEN ;
162.     
190.    infont @ IF </span> 0 infont ! THEN ;
163.  
164. VARIABLE bltally
165. : outh    ( a n -- )                            \ HTMLized text output
166.    999 bltally !
167.    BOUNDS ?DO I C@ CASE
168.       [CHAR] & OF S" &amp;"     out ENDOF
169.       [CHAR] < OF S" &lt;"      out ENDOF
170.       [CHAR] > OF S" &gt;"      out ENDOF
171.       [CHAR] " OF S" &quot;"    out ENDOF
191.  
192. VARIABLE bltally
193. : outh    ( a n -- )                            \ HTMLized text output
194.    999 bltally !
195.    BOUNDS ?DO I C@ CASE
196.       [CHAR] & OF S" &amp;"     out ENDOF
197.       [CHAR] < OF S" &lt;"      out ENDOF
198.       [CHAR] > OF S" &gt;"      out ENDOF
199.       [CHAR] " OF S" &quot;"    out ENDOF
 
200.       [CHAR]  OF S" &copy;"    out ENDOF       \ /4a/
172.       BL       OF bltally @ 0= IF S"  " ELSE S" &nbsp;" THEN out
173.                 1 bltally +!     ENDOF
174.       I 1 out   0 bltally !
175.    ENDCASE LOOP ;
176.  
177. : outhattr  ( a n -- )                          \ HTMLized text output
178.    BOUNDS ?DO I C@ CASE
179.       [CHAR] & OF S" amp"       out ENDOF
180.       [CHAR] < OF S" lt"        out ENDOF
181.       [CHAR] > OF S" gt"        out ENDOF
182.       [CHAR] " OF S" quot"      out ENDOF
183.       [CHAR] + OF S" plus"      out ENDOF
184.       [CHAR] ! OF S" bang"      out ENDOF
185.       [CHAR] / OF S" slash"     out ENDOF
186.       [CHAR] \ OF S" backslash" out ENDOF
187.       [CHAR] ' OF S" apos"      out ENDOF
188.       [CHAR] = OF S" equal"     out ENDOF
189.       [CHAR] - OF S" dash"      out ENDOF
190.       [CHAR] @ OF S" at"        out ENDOF
191.       [CHAR] ; OF S" semi"      out ENDOF
192.       [CHAR] * OF S" star"      out ENDOF
193.       [CHAR] ? OF S" question"  out ENDOF
194.       [CHAR] ~ OF S" tilde"     out ENDOF
195.       [CHAR] # OF S" pound"     out ENDOF
196.       [CHAR] , OF S" comma"     out ENDOF
197.       [CHAR] $ OF S" dollar"    out ENDOF
198.       [CHAR] | OF S" bar"       out ENDOF
199.       [CHAR] [ OF S" leftbracket" out ENDOF
200.       [CHAR] ( OF S" leftparen" out ENDOF
201.       [CHAR] { OF S" leftbrace" out ENDOF
202.       [CHAR] ] OF S" rightbracket" out ENDOF
203.       [CHAR] ) OF S" rightparen" out ENDOF
204.       [CHAR] } OF S" rightbrace" out ENDOF
205.       BL       OF S" _"         out ENDOF
206.       I 1 out   
207.    ENDCASE LOOP ;
208.  
201.       BL       OF bltally @ 0= IF S"  " ELSE S" &nbsp;" THEN out
202.                 1 bltally +!     ENDOF
203.       I 1 out   0 bltally !
204.    ENDCASE LOOP ;
205.  
206. : outhattr  ( a n -- )                          \ HTMLized text output
207.    BOUNDS ?DO I C@ CASE
208.       [CHAR] & OF S" amp"       out ENDOF
209.       [CHAR] < OF S" lt"        out ENDOF
210.       [CHAR] > OF S" gt"        out ENDOF
211.       [CHAR] " OF S" quot"      out ENDOF
212.       [CHAR] + OF S" plus"      out ENDOF
213.       [CHAR] ! OF S" bang"      out ENDOF
214.       [CHAR] / OF S" slash"     out ENDOF
215.       [CHAR] \ OF S" backslash" out ENDOF
216.       [CHAR] ' OF S" apos"      out ENDOF
217.       [CHAR] = OF S" equal"     out ENDOF
218.       [CHAR] - OF S" dash"      out ENDOF
219.       [CHAR] @ OF S" at"        out ENDOF
220.       [CHAR] ; OF S" semi"      out ENDOF
221.       [CHAR] * OF S" star"      out ENDOF
222.       [CHAR] ? OF S" question"  out ENDOF
223.       [CHAR] ~ OF S" tilde"     out ENDOF
224.       [CHAR] # OF S" pound"     out ENDOF
225.       [CHAR] , OF S" comma"     out ENDOF
226.       [CHAR] $ OF S" dollar"    out ENDOF
227.       [CHAR] | OF S" bar"       out ENDOF
228.       [CHAR] [ OF S" leftbracket" out ENDOF
229.       [CHAR] ( OF S" leftparen" out ENDOF
230.       [CHAR] { OF S" leftbrace" out ENDOF
231.       [CHAR] ] OF S" rightbracket" out ENDOF
232.       [CHAR] ) OF S" rightparen" out ENDOF
233.       [CHAR] } OF S" rightbrace" out ENDOF
234.       BL       OF S" _"         out ENDOF
235.       I 1 out   
236.    ENDCASE LOOP ;
237.  
 
238. : end_header ( -- )                             \ output end of HTML file /4a/
239.   end_header_part1 boiler
240.   copyright COUNT ?DUP IF outh ELSE drop THEN
241.   end_header_part2 boiler ;
242. 
209. : label ( addr len -- ) /a                      \ associate a label with a word
243. : label ( addr len -- ) /a                      \ associate a label with a word
210.    emitanchor outhattr
211.    emitcloseattrib 1 attrib ! ;
244.    <a_name="x outhattr
245.    "> 1 attrib ! ;
212.  
213. \ Assuming this is running on a PC, we allocate enough storage that crashes from
214. \ string overflows can't happen.                /4/
215.  
216. CREATE inbuf 260 CHARS ALLOT                    \ current line from file
217. CREATE token 260 CHARS ALLOT                    \ the last blank delimited string
218. CREATE XPAD  260 CHARS ALLOT                    \ temporary pad for word storage
219. CREATE EPAD  260 CHARS ALLOT                    \ temporary pad for evaluation
220. CREATE fn    260 CHARS ALLOT                    \ file name
221. CREATE fn1   260 CHARS ALLOT                    \ file name backup
222. CREATE "str" 260 CHARS ALLOT                    \ parsed string storage
223. CREATE uname 260 CHARS ALLOT                    \ : definition name
224. 0 VALUE inf
225. VARIABLE nufile                                 \ T if nesting a file
226. VARIABLE utype                                  \ type of defined word
227. VARIABLE hstate
228. VARIABLE linenum
229. VARIABLE special                                \ special action, 0=none
230.  
231. : std    ( word 2nd_fn color filename label -- )
232.    CREATE ' , ' , BL WORD COUNT ,$ BL WORD COUNT ,$
233.    DOES> /a DUP >R  2 CELLS +
246.  
247. \ Assuming this is running on a PC, we allocate enough storage that crashes from
248. \ string overflows can't happen.                /4/
249.  
250. CREATE inbuf 260 CHARS ALLOT                    \ current line from file
251. CREATE token 260 CHARS ALLOT                    \ the last blank delimited string
252. CREATE XPAD  260 CHARS ALLOT                    \ temporary pad for word storage
253. CREATE EPAD  260 CHARS ALLOT                    \ temporary pad for evaluation
254. CREATE fn    260 CHARS ALLOT                    \ file name
255. CREATE fn1   260 CHARS ALLOT                    \ file name backup
256. CREATE "str" 260 CHARS ALLOT                    \ parsed string storage
257. CREATE uname 260 CHARS ALLOT                    \ : definition name
258. 0 VALUE inf
259. VARIABLE nufile                                 \ T if nesting a file
260. VARIABLE utype                                  \ type of defined word
261. VARIABLE hstate
262. VARIABLE linenum
263. VARIABLE special                                \ special action, 0=none
264.  
265. : std    ( word 2nd_fn color filename label -- )
266.    CREATE ' , ' , BL WORD COUNT ,$ BL WORD COUNT ,$
267.    DOES> /a DUP >R  2 CELLS +
234.    emitfarhref                                  \ begin hyperlink
268.    <a_href="                                    \ begin hyperlink
269.    dpanspath COUNT out                          \ output path to ANS files /4a/
235.    COUNT 2DUP + >R  out S" #" out               \ output file name      /4/
270.    COUNT 2DUP + >R  out S" #" out               \ output file name      /4/
236.    R> COUNT out emitcloseattrib                 \ and anchor name
271.    R> COUNT out ">                 \ and anchor name
237.    1 attrib !
238.    R> 2@ SWAP EXECUTE EXECUTE ;                 \ extra attributes
239.  
240. : genHTML ( -- )                                \ generate pending HTML
241.    token COUNT DUP IF setcolor THEN outh closefont /a  0 token ! ;
242.  
243. : isnumber? ( addr len -- f )                   \ string converts to number?
244.    0 0 2SWAP >NUMBER NIP NIP NIP 0= ;
245.  
246. : hparse ( a len char -- a' len' )
247.    >R 2DUP R@ SKIP R> SCAN BL SCAN
248.    2SWAP 2 PICK - token +PLACE ;
249.  
250. : >XPAD ( -- ) token COUNT BL SKIP XPAD PLACE ; \ move to temporary pad
251.  
252. : hint  ( addr len -- )                         \ interpret one line...
253.    BEGIN
254.       0 token !  BL hparse token C@
255.    WHILE unknown                                \ default color
256.       >XPAD XPAD COUNT hyperlinks SEARCH-WORDLIST \ got a hyperlink for this?
257.       IF DEPTH >R EXECUTE
258.          R> DEPTH <> ABORT" stack depth change in HTML generator"
259.       ELSE
260.          XPAD COUNT BASE @ 10 = IF
261.             >FLOAT IF FDROP numeric THEN        \ valid float or integer
262.          ELSE
263.             isnumber? IF numeric THEN
264.          THEN
265.       THEN genHTML
266.    REPEAT 2DROP
272.    1 attrib !
273.    R> 2@ SWAP EXECUTE EXECUTE ;                 \ extra attributes
274.  
275. : genHTML ( -- )                                \ generate pending HTML
276.    token COUNT DUP IF setcolor THEN outh closefont /a  0 token ! ;
277.  
278. : isnumber? ( addr len -- f )                   \ string converts to number?
279.    0 0 2SWAP >NUMBER NIP NIP NIP 0= ;
280.  
281. : hparse ( a len char -- a' len' )
282.    >R 2DUP R@ SKIP R> SCAN BL SCAN
283.    2SWAP 2 PICK - token +PLACE ;
284.  
285. : >XPAD ( -- ) token COUNT BL SKIP XPAD PLACE ; \ move to temporary pad
286.  
287. : hint  ( addr len -- )                         \ interpret one line...
288.    BEGIN
289.       0 token !  BL hparse token C@
290.    WHILE unknown                                \ default color
291.       >XPAD XPAD COUNT hyperlinks SEARCH-WORDLIST \ got a hyperlink for this?
292.       IF DEPTH >R EXECUTE
293.          R> DEPTH <> ABORT" stack depth change in HTML generator"
294.       ELSE
295.          XPAD COUNT BASE @ 10 = IF
296.             >FLOAT IF FDROP numeric THEN        \ valid float or integer
297.          ELSE
298.             isnumber? IF numeric THEN
299.          THEN
300.       THEN genHTML
301.    REPEAT 2DROP
267.    S" <br />" outln ;                           \ new line
302.    <br_/> ;                                     \ new line
268.  
269. : ofn   ( -- addr len )                         \ output file name
270.    fn COUNT 2DUP [CHAR] . SCAN NIP - EPAD PLACE
271.    S" .htm" EPAD +PLACE   EPAD COUNT ;
272.  
273. : hcreate ( addr len -- )
274.    DUP 0= IF 2DROP S" fakename" THEN            \ in case the name is missing
275.    S" CREATE " EPAD PLACE  EPAD +PLACE
276.    GET-CURRENT >R hyperlinks SET-CURRENT
277.    EPAD COUNT EVALUATE    R> SET-CURRENT ;      \ create a hyperlink generator
278.  
279. \ The user defined words use the following data structure:
280. \ CELL   xt of coloring word
281. \ STRING name of reference word
282. \ STRING name of file
283.  
284. : deflink ( addr -- )                           \ make hyperlink from data structure
285.    DUP @ EXECUTE CELL+                          \ set color
286.    DUP COUNT + COUNT ofn COMPARE                \ in an external file?
303.  
304. : ofn   ( -- addr len )                         \ output file name
305.    fn COUNT 2DUP [CHAR] . SCAN NIP - EPAD PLACE
306.    S" .htm" EPAD +PLACE   EPAD COUNT ;
307.  
308. : hcreate ( addr len -- )
309.    DUP 0= IF 2DROP S" fakename" THEN            \ in case the name is missing
310.    S" CREATE " EPAD PLACE  EPAD +PLACE
311.    GET-CURRENT >R hyperlinks SET-CURRENT
312.    EPAD COUNT EVALUATE    R> SET-CURRENT ;      \ create a hyperlink generator
313.  
314. \ The user defined words use the following data structure:
315. \ CELL   xt of coloring word
316. \ STRING name of reference word
317. \ STRING name of file
318.  
319. : deflink ( addr -- )                           \ make hyperlink from data structure
320.    DUP @ EXECUTE CELL+                          \ set color
321.    DUP COUNT + COUNT ofn COMPARE                \ in an external file?
287.    IF   emitfarhref DUP COUNT + COUNT out       \ yes, put file name
288.         S" #" out COUNT outh S" >" out
289.    ELSE emitlocalhref COUNT outhattr            \ no, just use the name
290.         emitcloseattrib
322.    IF   <a_href=" DUP COUNT + COUNT out         \ yes, put file name
323.         S" #" out COUNT outh ">
324.    ELSE <a_href="#x COUNT outhattr ">           \ no, just use the name
291.    THEN 1 attrib ! ;
292.  
293. : defx  ( a len xt -- a' len' )
294.    >R genHTML BL hparse >XPAD                   \ output defining word
295.    XPAD COUNT 2DUP hcreate R> , ,$ ofn ,$
296.    DOES> deflink ;
297.  
298. : labelnow   genHTML XPAD COUNT label ;         \ /4/
299. : defdat ['] numeric   defx numeric   labelnow ;
300. : defvar ['] variables defx variables labelnow ;
301. : defusr ['] userwords defx userwords labelnow ;
302. : defval ['] values    defx values    labelnow ;
303. : defdef ['] userdefiner defx userdefiner labelnow ;
304.  
305. : hstate=0 ( -- )             0 hstate ! ;
306. : hstate=1 ( -- )             1 hstate ! ;
307. : spec=zero ( -- )            1 special ! ;
308. : skip)  ( a len -- a' len' ) [CHAR] ) hparse ;
325.    THEN 1 attrib ! ;
326.  
327. : defx  ( a len xt -- a' len' )
328.    >R genHTML BL hparse >XPAD                   \ output defining word
329.    XPAD COUNT 2DUP hcreate R> , ,$ ofn ,$
330.    DOES> deflink ;
331.  
332. : labelnow   genHTML XPAD COUNT label ;         \ /4/
333. : defdat ['] numeric   defx numeric   labelnow ;
334. : defvar ['] variables defx variables labelnow ;
335. : defusr ['] userwords defx userwords labelnow ;
336. : defval ['] values    defx values    labelnow ;
337. : defdef ['] userdefiner defx userdefiner labelnow ;
338.  
339. : hstate=0 ( -- )             0 hstate ! ;
340. : hstate=1 ( -- )             1 hstate ! ;
341. : spec=zero ( -- )            1 special ! ;
342. : skip)  ( a len -- a' len' ) [CHAR] ) hparse ;
 
343. : skip}  ( a len -- a' len' ) [CHAR] } hparse ; \ /4a/
309. : skipw  ( a len -- a' len' ) BL hparse ;
310. : skipc  ( a len -- a len )   hstate @ 0= IF numeric skipw THEN ;
311. : skip"  ( a len -- a' len' )                   \ copy string to "str"
312.    genHTML [CHAR] " hparse token COUNT 1- "str" PLACE ;
313.  
314. \ ------------------------------------------------------------------------------
315. \ ":" definitions might be defining words, so they can't be assumed to be defusr
316. \ types. ":" makes a label and saves the name for later use by ";" which makes
317. \ a hyperlink or a hyperlink defining word.
318.  
319. :NONAME                                         \ normal : definition
320.    uname COUNT ['] userwords defx 2DROP  0 token !
321. ; CONSTANT normal_def
322.  
323. :NONAME
324.    uname COUNT 2DUP hcreate ['] userwords , ,$ ofn ,$
325.    DOES> deflink defdef
326. ; CONSTANT defining_def
327.  
328. : defunk ( a len -- a' len' )                   \ starting unknown definition
329.    hstate=1  normal_def utype !                 \ save name of : definition
330.    genHTML skipw userwords token COUNT BL SKIP 2DUP uname PLACE label ;
331.  
332. : resunk ( -- )                                 \ resolve unknown defined word
333.    genHTML utype @ EXECUTE hstate=0 ;
334.  
335. : created ( -- ) hstate @
336.    IF   defining_def utype !                    \ make ; create a defining word
337.    ELSE defdat                                  \ not compiling
338.    THEN ;
339.  
340. \ ------------------------------------------------------------------------------
341.  
344. : skipw  ( a len -- a' len' ) BL hparse ;
345. : skipc  ( a len -- a len )   hstate @ 0= IF numeric skipw THEN ;
346. : skip"  ( a len -- a' len' )                   \ copy string to "str"
347.    genHTML [CHAR] " hparse token COUNT 1- "str" PLACE ;
348.  
349. \ ------------------------------------------------------------------------------
350. \ ":" definitions might be defining words, so they can't be assumed to be defusr
351. \ types. ":" makes a label and saves the name for later use by ";" which makes
352. \ a hyperlink or a hyperlink defining word.
353.  
354. :NONAME                                         \ normal : definition
355.    uname COUNT ['] userwords defx 2DROP  0 token !
356. ; CONSTANT normal_def
357.  
358. :NONAME
359.    uname COUNT 2DUP hcreate ['] userwords , ,$ ofn ,$
360.    DOES> deflink defdef
361. ; CONSTANT defining_def
362.  
363. : defunk ( a len -- a' len' )                   \ starting unknown definition
364.    hstate=1  normal_def utype !                 \ save name of : definition
365.    genHTML skipw userwords token COUNT BL SKIP 2DUP uname PLACE label ;
366.  
367. : resunk ( -- )                                 \ resolve unknown defined word
368.    genHTML utype @ EXECUTE hstate=0 ;
369.  
370. : created ( -- ) hstate @
371.    IF   defining_def utype !                    \ make ; create a defining word
372.    ELSE defdat                                  \ not compiling
373.    THEN ;
374.  
375. \ ------------------------------------------------------------------------------
376.  
342. : header  ( addr len -- )                       \ output big header text
343.    emith1 outln emitcloseh1 ;
377. : header  ( addr len -- )                       \ output big header text /4b/
378.    <hr_/> <h1>
379.    linksource
380.    IF   2dup <a_href=" out ">
381.         outln </a>
382.    ELSE outln
383.    THEN </h1> <hr_/> <p> ;
344.  
345. : _incfil ( addr -- )                           \ trigger file nesting      /4/
346.    nestable 0= IF DROP EXIT THEN                \ don't nest files if disabled
347.    COUNT BL SKIP  2DUP R/O OPEN-FILE            \ can the file be opened?
348.    IF   DROP 2DROP                              \ no
349.    ELSE CLOSE-FILE DROP                         \ yes
350.         fn COUNT fn1 PLACE  fn PLACE 1 nufile !
351.    THEN ;
352.  
353. : incfile ( a len -- a' len' )                  \ include a file
354.    genHTML skipw token _incfil ;
355.  
356. : "incfil ( a len -- a' len' )                  \ include file from S" filename"
357.    skipw "str" _incfil ;
358.  
359. : hfill  ( -- len ior )                         \ read next line of file
360.    inbuf 256 BL FILL
361.    XPAD 256 inf READ-LINE ABORT" Error reading file"
362.    >R >R 0 XPAD R> BOUNDS                       ( idx . . )
363.    ?DO  I C@ 9 = IF 3 RSHIFT 1+ 3 LSHIFT        \ tab
364.         ELSE I C@ OVER 255 AND CHARS inbuf + C!
365.            1+ DUP 256 = IF CR ." Input line too long" THEN
366.         THEN
367.    LOOP R>
368.    1 linenum +! ;
369.  
370. : open  ( -- ) CR ." Reading " fn COUNT TYPE ."  at line " linenum @ .
371.    0 linenum !
372.    fn COUNT R/O OPEN-FILE ABORT" Error opening source file" TO inf ;
373.  
374. : close  ( -- ) CR ." closing " fn COUNT TYPE
375.    inf CLOSE-FILE ABORT" Error closing file" ;
376.  
377. : .title ( addr len -- )                        \ output as title string
378.    BOUNDS ?DO I C@ BL = IF S" %20" out ELSE I 1 out THEN LOOP ;
379.  
380. : oopen  ( -- )
381.    ofn W/O CREATE-FILE ABORT" Error creating file" TO outf
382.    begin_header boiler                          \ begin boilerplate
383.    fn COUNT .title  mid_header boiler           \ title and end boilerplate
384.  
385. : _incfil ( addr -- )                           \ trigger file nesting      /4/
386.    nestable 0= IF DROP EXIT THEN                \ don't nest files if disabled
387.    COUNT BL SKIP  2DUP R/O OPEN-FILE            \ can the file be opened?
388.    IF   DROP 2DROP                              \ no
389.    ELSE CLOSE-FILE DROP                         \ yes
390.         fn COUNT fn1 PLACE  fn PLACE 1 nufile !
391.    THEN ;
392.  
393. : incfile ( a len -- a' len' )                  \ include a file
394.    genHTML skipw token _incfil ;
395.  
396. : "incfil ( a len -- a' len' )                  \ include file from S" filename"
397.    skipw "str" _incfil ;
398.  
399. : hfill  ( -- len ior )                         \ read next line of file
400.    inbuf 256 BL FILL
401.    XPAD 256 inf READ-LINE ABORT" Error reading file"
402.    >R >R 0 XPAD R> BOUNDS                       ( idx . . )
403.    ?DO  I C@ 9 = IF 3 RSHIFT 1+ 3 LSHIFT        \ tab
404.         ELSE I C@ OVER 255 AND CHARS inbuf + C!
405.            1+ DUP 256 = IF CR ." Input line too long" THEN
406.         THEN
407.    LOOP R>
408.    1 linenum +! ;
409.  
410. : open  ( -- ) CR ." Reading " fn COUNT TYPE ."  at line " linenum @ .
411.    0 linenum !
412.    fn COUNT R/O OPEN-FILE ABORT" Error opening source file" TO inf ;
413.  
414. : close  ( -- ) CR ." closing " fn COUNT TYPE
415.    inf CLOSE-FILE ABORT" Error closing file" ;
416.  
417. : .title ( addr len -- )                        \ output as title string
418.    BOUNDS ?DO I C@ BL = IF S" %20" out ELSE I 1 out THEN LOOP ;
419.  
420. : oopen  ( -- )
421.    ofn W/O CREATE-FILE ABORT" Error creating file" TO outf
422.    begin_header boiler                          \ begin boilerplate
423.    fn COUNT .title  mid_header boiler           \ title and end boilerplate
384.    bold IF S" <b>" out THEN
424.    <b>
385.    fn COUNT header ;
386.  
387. : HTML  ( <infile> -- )
388.    S" /basic-links/" hyperlinks SEARCH-WORDLIST
389.    IF   EXECUTE  THEN                           \ remove user hyperlinks
390.    GET-CURRENT >R hyperlinks SET-CURRENT        \ replace the fence
391.    S" MARKER /basic-links/" EVALUATE
392.    R> SET-CURRENT
393.    0 TO screen-only  0 nufile !  1 linenum !    \ force usage of file
425.    fn COUNT header ;
426.  
427. : HTML  ( <infile> -- )
428.    S" /basic-links/" hyperlinks SEARCH-WORDLIST
429.    IF   EXECUTE  THEN                           \ remove user hyperlinks
430.    GET-CURRENT >R hyperlinks SET-CURRENT        \ replace the fence
431.    S" MARKER /basic-links/" EVALUATE
432.    R> SET-CURRENT
433.    0 TO screen-only  0 nufile !  1 linenum !    \ force usage of file
 
434.    0 infont !                                   \ /4b/
394.    BL WORD COUNT fn PLACE open oopen            \ open input and output files
395.    -1 DUP >R outf >R                            \ file nest uses stacks
396.    hstate=0
397.    BEGIN
398.       BEGIN 0 special !                         \ process line
399.          nufile @                               \ nest a file?
400.          IF   inf outf
401.               open oopen  outf >R               \ open new files
402.               0 nufile !
403.          THEN hfill
404.       WHILE inbuf SWAP hint
405.       REPEAT DROP
406.       close fn1 COUNT fn PLACE                  \ restore file name
407.       DUP -1 <>
408.       IF   TO outf TO inf FALSE                 \ unnest files
409.       ELSE TRUE
410.       THEN
411.    UNTIL DROP
412.    BEGIN R> DUP -1 <>                           \ close all output files
435.    BL WORD COUNT fn PLACE open oopen            \ open input and output files
436.    -1 DUP >R outf >R                            \ file nest uses stacks
437.    hstate=0
438.    BEGIN
439.       BEGIN 0 special !                         \ process line
440.          nufile @                               \ nest a file?
441.          IF   inf outf
442.               open oopen  outf >R               \ open new files
443.               0 nufile !
444.          THEN hfill
445.       WHILE inbuf SWAP hint
446.       REPEAT DROP
447.       close fn1 COUNT fn PLACE                  \ restore file name
448.       DUP -1 <>
449.       IF   TO outf TO inf FALSE                 \ unnest files
450.       ELSE TRUE
451.       THEN
452.    UNTIL DROP
453.    BEGIN R> DUP -1 <>                           \ close all output files
413.    WHILE bold IF S" </b>" out THEN
414.       end_header boiler                         \ finish up HTML
454.    WHILE </p> </b>                               \ /4b/
455.       end_header                                 \ finish up HTML
415.       CLOSE-FILE ABORT" Error closing file"
416.    REPEAT DROP ;
417.  
418. : q  ( -- ) 1 TO screen-only                    \ single line test
419.    -1 WORD COUNT inbuf PLACE inbuf COUNT hint ;
420.  
421. \ 0 [IF] is often used as a comment. If it is used as a comment, scan the file
422. \ for a [THEN]. [THEN] must be on the next line or beyond.
423.  
424. : upp ( an--) BOUNDS ?DO I C@ [CHAR] a > IF I C@ 32 - I C! THEN LOOP \ uppercase
425. ;
426.  
427. CREATE terminator 16 CHARS ALLOT                \ multiline comment terminator
428.  
429. : multicomment ( a len searchstring -- a' len' )
430.    terminator PLACE
456.       CLOSE-FILE ABORT" Error closing file"
457.    REPEAT DROP ;
458.  
459. : q  ( -- ) 1 TO screen-only                    \ single line test
460.    -1 WORD COUNT inbuf PLACE inbuf COUNT hint ;
461.  
462. \ 0 [IF] is often used as a comment. If it is used as a comment, scan the file
463. \ for a [THEN]. [THEN] must be on the next line or beyond.
464.  
465. : upp ( an--) BOUNDS ?DO I C@ [CHAR] a > IF I C@ 32 - I C! THEN LOOP \ uppercase
466. ;
467.  
468. CREATE terminator 16 CHARS ALLOT                \ multiline comment terminator
469.  
470. : multicomment ( a len searchstring -- a' len' )
471.    terminator PLACE
431.    genHTML commentary setcolor ital( outh       \ finish up this line
432.    BEGIN hfill      S" <br />" outln
472.    genHTML <i> commentary setcolor outh       \ finish up this line /4b/
473.    BEGIN hfill      <br_/>
433.    WHILE >R inbuf EPAD R@ MOVE
434.       EPAD R@ upp                               \ uppercase for search
435.       EPAD R@ terminator COUNT SEARCH
436.       IF   DROP EPAD - inbuf OVER token PLACE   \ before [THEN] is comment
437.            genHTML
438.            inbuf R> ROT /STRING
474.    WHILE >R inbuf EPAD R@ MOVE
475.       EPAD R@ upp                               \ uppercase for search
476.       EPAD R@ terminator COUNT SEARCH
477.       IF   DROP EPAD - inbuf OVER token PLACE   \ before [THEN] is comment
478.            genHTML
479.            inbuf R> ROT /STRING
439.            )ital closefont EXIT
480.            </i> closefont EXIT
440.       ELSE 2DROP inbuf R> outh                  \ whole line is comment
441.       THEN
481.       ELSE 2DROP inbuf R> outh                  \ whole line is comment
482.       THEN
442.    REPEAT inbuf SWAP )ital closefont ;          \ EOF found
483.    REPEAT inbuf SWAP </i> closefont ;          \ EOF found
443.  
444. : bigif  ( a len -- a len )  special @ 1 =
445.    IF S" [THEN]" multicomment THEN ;
446.  
447. \ =============================================================================
448.  
449. : _DEFINITIONS DEFINITIONS ;
450. : _order order ;  : _words words ; : _see see ;
451.  
452. hyperlinks SET-CURRENT
453. \ The following words are not in the ANS standard but are very common.
454. : VOCABULARY    defusr ;
455. : DEFER         defusr ;
456. : INCLUDE       hstate @ 0= IF incfile THEN ;
457. : FLOAD         hstate @ 0= IF incfile THEN ;
458. : BINARY        2 BASE ! ;
459. : OCTAL         8 BASE ! ;
460. : 0             numeric spec=zero ;
461. : 1             numeric  ;
462. : -1            numeric  ;
463. : COMMENT:      S" COMMENT;" multicomment ;
464. : ((            S" ))"       multicomment ;
465.  
484.  
485. : bigif  ( a len -- a len )  special @ 1 =
486.    IF S" [THEN]" multicomment THEN ;
487.  
488. \ =============================================================================
489.  
490. : _DEFINITIONS DEFINITIONS ;
491. : _order order ;  : _words words ; : _see see ;
492.  
493. hyperlinks SET-CURRENT
494. \ The following words are not in the ANS standard but are very common.
495. : VOCABULARY    defusr ;
496. : DEFER         defusr ;
497. : INCLUDE       hstate @ 0= IF incfile THEN ;
498. : FLOAD         hstate @ 0= IF incfile THEN ;
499. : BINARY        2 BASE ! ;
500. : OCTAL         8 BASE ! ;
501. : 0             numeric spec=zero ;
502. : 1             numeric  ;
503. : -1            numeric  ;
504. : COMMENT:      S" COMMENT;" multicomment ;
505. : ((            S" ))"       multicomment ;
506.  
 
507. \ The following words are not in the ANS standard but are used in Win32Forth
508. : ANEW          skipw ;                    \ /4a/
509. : {             commentary genHTML skip} ; \ /4a/
510. : CallBack:     defunk ;                   \ /4a/
511. : :M            defunk ;                   \ /4a/
512. : ;M            resunk ;                   \ /4a/
513. 
466. \ The rest is ANS Forth standard
467.  
514. \ The rest is ANS Forth standard
515.  
468. : \             commentary genHTML ital( token PLACE genHTML )ital token 0 ;
516. : \             commentary <i> genHTML token PLACE genHTML </i> token 0 ;
469.  
470. (   NAME                ACTION  COLOR           FILENAME        REFERENCE )
471. (   ------------------  ------  --------------  -----------     --------- )
472. std !                   NOOP    core_ws         dpans6.htm      6.1.0010
473. std #                   NOOP    core_ws         dpans6.htm      6.1.0030
474. std #>                  NOOP    core_ws         dpans6.htm      6.1.0040
475. std #S                  NOOP    core_ws         dpans6.htm      6.1.0050
476. std '                   NOOP    core_ws         dpans6.htm      6.1.0070
477. std (                   skip)   commentary      dpans6.htm      6.1.0080
478. std *                   NOOP    core_ws         dpans6.htm      6.1.0090
479. std */                  NOOP    core_ws         dpans6.htm      6.1.0100
480. std */MOD               NOOP    core_ws         dpans6.htm      6.1.0110
481. std +                   NOOP    core_ws         dpans6.htm      6.1.0120
482. std +!                  NOOP    core_ws         dpans6.htm      6.1.0130
483. std +LOOP               NOOP    core_ws         dpans6.htm      6.1.0140
484. std ,                   NOOP    core_ws         dpans6.htm      6.1.0150
485. std -                   NOOP    core_ws         dpans6.htm      6.1.0160
486. std .                   NOOP    core_ws         dpans6.htm      6.1.0180
487. std ."                  skip"   numeric         dpans6.htm      6.1.0190
488. std /                   NOOP    core_ws         dpans6.htm      6.1.0230
489. std /MOD                NOOP    core_ws         dpans6.htm      6.1.0240
490. std 0<                  NOOP    core_ws         dpans6.htm      6.1.0250
491. std 0=                  NOOP    core_ws         dpans6.htm      6.1.0270
492. std 1+                  NOOP    core_ws         dpans6.htm      6.1.0290
493. std 1-                  NOOP    core_ws         dpans6.htm      6.1.0300
494. std 2!                  NOOP    core_ws         dpans6.htm      6.1.0310
495. std 2*                  NOOP    core_ws         dpans6.htm      6.1.0320
496. std 2/                  NOOP    core_ws         dpans6.htm      6.1.0330
497. std 2@                  NOOP    core_ws         dpans6.htm      6.1.0350
498. std 2DROP               NOOP    core_ws         dpans6.htm      6.1.0370
499. std 2DUP                NOOP    core_ws         dpans6.htm      6.1.0380
500. std 2OVER               NOOP    core_ws         dpans6.htm      6.1.0400
501. std 2SWAP               NOOP    core_ws         dpans6.htm      6.1.0430
502. std :                   defunk  core_ws         dpans6.htm      6.1.0450
503. std ;                   resunk  core_ws         dpans6.htm      6.1.0460
504. std <                   NOOP    core_ws         dpans6.htm      6.1.0480
505. std <#                  NOOP    core_ws         dpans6.htm      6.1.0490
506. std =                   NOOP    core_ws         dpans6.htm      6.1.0530
507. std >                   NOOP    core_ws         dpans6.htm      6.1.0540
508. std >BODY               NOOP    core_ws         dpans6.htm      6.1.0550
509. std >IN                 NOOP    core_ws         dpans6.htm      6.1.0560
510. std >NUMBER             NOOP    core_ws         dpans6.htm      6.1.0570
511. std >R                  NOOP    core_ws         dpans6.htm      6.1.0580
512. std ?DUP                NOOP    core_ws         dpans6.htm      6.1.0630
513. std @                   NOOP    core_ws         dpans6.htm      6.1.0650
514. std ABORT               NOOP    core_ws         dpans6.htm      6.1.0670
515. std ABORT"              skip"   numeric         dpans6.htm      6.1.0680
516. std ABS                 NOOP    core_ws         dpans6.htm      6.1.0690
517. std ACCEPT              NOOP    core_ws         dpans6.htm      6.1.0695
518. std ALIGN               NOOP    core_ws         dpans6.htm      6.1.0705
519. std ALIGNED             NOOP    core_ws         dpans6.htm      6.1.0706
520. std ALLOT               NOOP    core_ws         dpans6.htm      6.1.0710
521. std AND                 NOOP    core_ws         dpans6.htm      6.1.0720
522. std BASE                NOOP    core_ws         dpans6.htm      6.1.0750
523. std BEGIN               NOOP    core_ws         dpans6.htm      6.1.0760
524. std BL                  NOOP    numeric         dpans6.htm      6.1.0770
525. std C!                  NOOP    core_ws         dpans6.htm      6.1.0850
526. std C,                  NOOP    core_ws         dpans6.htm      6.1.0860
527. std C@                  NOOP    core_ws         dpans6.htm      6.1.0870
528. std CELL+               NOOP    core_ws         dpans6.htm      6.1.0880
529. std CELLS               NOOP    core_ws         dpans6.htm      6.1.0890
530. std CHAR                skipc   core_ws         dpans6.htm      6.1.0895
531. std CHAR+               NOOP    core_ws         dpans6.htm      6.1.0897
532. std CHARS               NOOP    core_ws         dpans6.htm      6.1.0898
533. std CONSTANT            defdat  core_ws         dpans6.htm      6.1.0950
534. std COUNT               NOOP    core_ws         dpans6.htm      6.1.0980
535. std CR                  NOOP    core_ws         dpans6.htm      6.1.0990
536. std CREATE              created core_ws         dpans6.htm      6.1.1000
537. std DECIMAL             DECIMAL core_ws         dpans6.htm      6.1.1170
538. std DEPTH               NOOP    core_ws         dpans6.htm      6.1.1200
539. std DO                  NOOP    core_ws         dpans6.htm      6.1.1240
540. std DOES>               NOOP    core_ws         dpans6.htm      6.1.1250
541. std DROP                NOOP    core_ws         dpans6.htm      6.1.1260
542. std DUP                 NOOP    core_ws         dpans6.htm      6.1.1290
543. std ELSE                NOOP    core_ws         dpans6.htm      6.1.1310
544. std EMIT                NOOP    core_ws         dpans6.htm      6.1.1320
545. std ENVIRONMENT?        NOOP    core_ws         dpans6.htm      6.1.1345
546. std EVALUATE            NOOP    core_ws         dpans6.htm      6.1.1360
547. std EXECUTE             NOOP    core_ws         dpans6.htm      6.1.1370
548. std EXIT                NOOP    core_ws         dpans6.htm      6.1.1380
549. std FILL                NOOP    core_ws         dpans6.htm      6.1.1540
550. std FIND                NOOP    core_ws         dpans6.htm      6.1.1550
551. std FM/MOD              NOOP    core_ws         dpans6.htm      6.1.1561
552. std HERE                NOOP    core_ws         dpans6.htm      6.1.1650
553. std HOLD                NOOP    core_ws         dpans6.htm      6.1.1670
554. std I                   NOOP    core_ws         dpans6.htm      6.1.1680
555. std IF                  NOOP    core_ws         dpans6.htm      6.1.1700
556. std IMMEDIATE           NOOP    core_ws         dpans6.htm      6.1.1710
557. std INVERT              NOOP    core_ws         dpans6.htm      6.1.1720
558. std J                   NOOP    core_ws         dpans6.htm      6.1.1730
559. std KEY                 NOOP    core_ws         dpans6.htm      6.1.1750
560. std LEAVE               NOOP    core_ws         dpans6.htm      6.1.1760
561. std LITERAL             NOOP    core_ws         dpans6.htm      6.1.1780
562. std LOOP                NOOP    core_ws         dpans6.htm      6.1.1800
563. std LSHIFT              NOOP    core_ws         dpans6.htm      6.1.1805
564. std M*                  NOOP    core_ws         dpans6.htm      6.1.1810
565. std MAX                 NOOP    core_ws         dpans6.htm      6.1.1870
566. std MIN                 NOOP    core_ws         dpans6.htm      6.1.1880
567. std MOD                 NOOP    core_ws         dpans6.htm      6.1.1890
568. std MOVE                NOOP    core_ws         dpans6.htm      6.1.1900
569. std NEGATE              NOOP    core_ws         dpans6.htm      6.1.1910
570. std OR                  NOOP    core_ws         dpans6.htm      6.1.1980
571. std OVER                NOOP    core_ws         dpans6.htm      6.1.1990
572. std POSTPONE            NOOP    core_ws         dpans6.htm      6.1.2033
573. std QUIT                NOOP    core_ws         dpans6.htm      6.1.2050
574. std R>                  NOOP    core_ws         dpans6.htm      6.1.2060
575. std R@                  NOOP    core_ws         dpans6.htm      6.1.2070
576. std RECURSE             NOOP    core_ws         dpans6.htm      6.1.2120
577. std REPEAT              NOOP    core_ws         dpans6.htm      6.1.2140
578. std ROT                 NOOP    core_ws         dpans6.htm      6.1.2160
579. std RSHIFT              NOOP    core_ws         dpans6.htm      6.1.2162
580. std S"                  skip"   numeric         dpans6.htm      6.1.2165
581. std S>D                 NOOP    core_ws         dpans6.htm      6.1.2170
582. std SIGN                NOOP    core_ws         dpans6.htm      6.1.2210
583. std SM/REM              NOOP    core_ws         dpans6.htm      6.1.2214
584. std SOURCE              NOOP    core_ws         dpans6.htm      6.1.2216
585. std SPACE               NOOP    core_ws         dpans6.htm      6.1.2220
586. std SPACES              NOOP    core_ws         dpans6.htm      6.1.2230
587. std STATE               NOOP    core_ws         dpans6.htm      6.1.2250
588. std SWAP                NOOP    core_ws         dpans6.htm      6.1.2260
589. std THEN                NOOP    core_ws         dpans6.htm      6.1.2270
590. std TYPE                NOOP    core_ws         dpans6.htm      6.1.2310
591. std U.                  NOOP    core_ws         dpans6.htm      6.1.2320
592. std U<                  NOOP    core_ws         dpans6.htm      6.1.2340
593. std UM*                 NOOP    core_ws         dpans6.htm      6.1.2360
594. std UM/MOD              NOOP    core_ws         dpans6.htm      6.1.2370
595. std UNLOOP              NOOP    core_ws         dpans6.htm      6.1.2380
596. std UNTIL               NOOP    core_ws         dpans6.htm      6.1.2390
597. std VARIABLE            defvar  core_ws         dpans6.htm      6.1.2410
598. std WHILE               NOOP    core_ws         dpans6.htm      6.1.2430
599. std WORD                NOOP    core_ws         dpans6.htm      6.1.2450
600. std XOR                 NOOP    core_ws         dpans6.htm      6.1.2490
601. std [                  hstate=0 core_ws         dpans6.htm      6.1.2500
602. std [']                 skipw   numeric         dpans6.htm      6.1.2510
603. std [CHAR]              skipw   numeric         dpans6.htm      6.1.2520
604. std ]                  hstate=1 core_ws         dpans6.htm      6.1.2540
605. std #TIB                NOOP    core_ext_ws     dpans6.htm      6.2.0060
606. std .(                  skip)   commentary      dpans6.htm      6.2.0200
607. std .R                  NOOP    core_ext_ws     dpans6.htm      6.2.0210
608. std 0<>                 NOOP    core_ext_ws     dpans6.htm      6.2.0260
609. std 0>                  NOOP    core_ext_ws     dpans6.htm      6.2.0280
610. std 2>R                 NOOP    core_ext_ws     dpans6.htm      6.2.0340
611. std 2R>                 NOOP    core_ext_ws     dpans6.htm      6.2.0410
612. std 2R@                 NOOP    core_ext_ws     dpans6.htm      6.2.0415
613. std :NONAME             NOOP    core_ext_ws     dpans6.htm      6.2.0455
614. std <>                  NOOP    core_ext_ws     dpans6.htm      6.2.0500
615. std ?DO                 NOOP    core_ext_ws     dpans6.htm      6.2.0620
616. std AGAIN               NOOP    core_ext_ws     dpans6.htm      6.2.0700
617. std C"                  skip"   numeric         dpans6.htm      6.2.0855
618. std CASE                NOOP    core_ext_ws     dpans6.htm      6.2.0873
619. std COMPILE,            NOOP    core_ext_ws     dpans6.htm      6.2.0945
620. std CONVERT             NOOP    core_ext_ws     dpans6.htm      6.2.0970
621. std ENDCASE             NOOP    core_ext_ws     dpans6.htm      6.2.1342
622. std ENDOF               NOOP    core_ext_ws     dpans6.htm      6.2.1343
623. std ERASE               NOOP    core_ext_ws     dpans6.htm      6.2.1350
624. std EXPECT              NOOP    core_ext_ws     dpans6.htm      6.2.1390
625. std FALSE             spec=zero numeric         dpans6.htm      6.2.1485
626. std HEX                 HEX     core_ext_ws     dpans6.htm      6.2.1660
627. std MARKER              defusr  core_ext_ws     dpans6.htm      6.2.1850
628. std NIP                 NOOP    core_ext_ws     dpans6.htm      6.2.1930
629. std OF                  NOOP    core_ext_ws     dpans6.htm      6.2.1950
630. std PAD                 NOOP    core_ext_ws     dpans6.htm      6.2.2000
631. std PARSE               NOOP    core_ext_ws     dpans6.htm      6.2.2008
632. std PICK                NOOP    core_ext_ws     dpans6.htm      6.2.2030
633. std QUERY               NOOP    core_ext_ws     dpans6.htm      6.2.2040
634. std REFILL              NOOP    core_ext_ws     dpans6.htm      6.2.2125
635. std RESTORE-INPUT       NOOP    core_ext_ws     dpans6.htm      6.2.2148
636. std ROLL                NOOP    core_ext_ws     dpans6.htm      6.2.2150
637. std SAVE-INPUT          NOOP    core_ext_ws     dpans6.htm      6.2.2182
638. std SOURCE-ID           NOOP    core_ext_ws     dpans6.htm      6.2.2218
639. std SPAN                NOOP    core_ext_ws     dpans6.htm      6.2.2240
640. std TIB                 NOOP    core_ext_ws     dpans6.htm      6.2.2290
641. std TO                  NOOP    core_ext_ws     dpans6.htm      6.2.2295
642. std TRUE                NOOP    numeric         dpans6.htm      6.2.2298
643. std TUCK                NOOP    core_ext_ws     dpans6.htm      6.2.2300
644. std U.R                 NOOP    core_ext_ws     dpans6.htm      6.2.2330
645. std U>                  NOOP    core_ext_ws     dpans6.htm      6.2.2350
646. std UNUSED              NOOP    core_ext_ws     dpans6.htm      6.2.2395
647. std VALUE               defval  core_ext_ws     dpans6.htm      6.2.2405
648. std WITHIN              NOOP    core_ext_ws     dpans6.htm      6.2.2440
649. std [COMPILE]           NOOP    core_ext_ws     dpans6.htm      6.2.2530
650. std BLK                 NOOP    block_ws        dpans7.htm      7.6.1.0790
651. std BLOCK               NOOP    block_ws        dpans7.htm      7.6.1.0800
652. std BUFFER              NOOP    block_ws        dpans7.htm      7.6.1.0820
653. std FLUSH               NOOP    block_ws        dpans7.htm      7.6.1.1559
654. std LOAD                NOOP    block_ws        dpans7.htm      7.6.1.1790
655. std SAVE-BUFFERS        NOOP    block_ws        dpans7.htm      7.6.1.2180
656. std UPDATE              NOOP    block_ws        dpans7.htm      7.6.1.2400
657. std EMPTY-BUFFERS       NOOP    block_ws        dpans7.htm      7.6.2.1330
658. std LIST                NOOP    block_ws        dpans7.htm      7.6.2.1770
659. std SCR                 NOOP    block_ws        dpans7.htm      7.6.2.2190
660. std THRU                NOOP    block_ws        dpans7.htm      7.6.2.2280
661. std 2CONSTANT           defdat  double_ws       dpans8.htm      8.6.1.0360
662. std 2LITERAL            NOOP    double_ws       dpans8.htm      8.6.1.0390
663. std 2VARIABLE           defvar  double_ws       dpans8.htm      8.6.1.0440
664. std D+                  NOOP    double_ws       dpans8.htm      8.6.1.1040
665. std D-                  NOOP    double_ws       dpans8.htm      8.6.1.1050
666. std D.                  NOOP    double_ws       dpans8.htm      8.6.1.1060
667. std D.R                 NOOP    double_ws       dpans8.htm      8.6.1.1070
668. std D0<                 NOOP    double_ws       dpans8.htm      8.6.1.1075
669. std D0=                 NOOP    double_ws       dpans8.htm      8.6.1.1080
670. std D2*                 NOOP    double_ws       dpans8.htm      8.6.1.1090
671. std D2/                 NOOP    double_ws       dpans8.htm      8.6.1.1100
672. std D<                  NOOP    double_ws       dpans8.htm      8.6.1.1110
673. std D=                  NOOP    double_ws       dpans8.htm      8.6.1.1120
674. std D>S                 NOOP    double_ws       dpans8.htm      8.6.1.1140
675. std DABS                NOOP    double_ws       dpans8.htm      8.6.1.1160
676. std DMAX                NOOP    double_ws       dpans8.htm      8.6.1.1210
677. std DMIN                NOOP    double_ws       dpans8.htm      8.6.1.1220
678. std DNEGATE             NOOP    double_ws       dpans8.htm      8.6.1.1230
679. std M*/                 NOOP    double_ws       dpans8.htm      8.6.1.1820
680. std M+                  NOOP    double_ws       dpans8.htm      8.6.1.1830
681. std 2ROT                NOOP    double_ws       dpans8.htm      8.6.2.0420
682. std DU<                 NOOP    double_ws       dpans8.htm      8.6.2.1270
683. std CATCH               NOOP    exception_ws    dpans9.htm      9.6.1.0875
684. std THROW               NOOP    exception_ws    dpans9.htm      9.6.1.2275
685. std AT-XY               NOOP    facilities_ws   dpans10.htm     10.6.1.0742
686. std KEY?                NOOP    facilities_ws   dpans10.htm     10.6.1.1755
687. std PAGE                NOOP    facilities_ws   dpans10.htm     10.6.1.2005
688. std EKEY                NOOP    facilities_ws   dpans10.htm     10.6.2.1305
689. std EKEY<CHAR           NOOP    facilities_ws   dpans10.htm     10.6.2.1306
690. std EKEY?               NOOP    facilities_ws   dpans10.htm     10.6.2.1307
691. std EMIT?               NOOP    facilities_ws   dpans10.htm     10.6.2.1325
692. std MS                  NOOP    facilities_ws   dpans10.htm     10.6.2.1905
693. std TIME&DATE           NOOP    facilities_ws   dpans10.htm     10.6.2.2292
694. std BIN                 NOOP    file_ws         dpans11.htm     11.6.1.0765
695. std CLOSE-FILE          NOOP    file_ws         dpans11.htm     11.6.1.0900
696. std CREATE-FILE         NOOP    file_ws         dpans11.htm     11.6.1.1010
697. std DELETE-FILE         NOOP    file_ws         dpans11.htm     11.6.1.1190
698. std FILE-POSITION       NOOP    file_ws         dpans11.htm     11.6.1.1520
699. std FILE-SIZE           NOOP    file_ws         dpans11.htm     11.6.1.1522
700. std INCLUDE-FILE        NOOP    file_ws         dpans11.htm     11.6.1.1717
701. std INCLUDED            "incfil file_ws         dpans11.htm     11.6.1.1718
702. std OPEN-FILE           NOOP    file_ws         dpans11.htm     11.6.1.1970
703. std R/O                 NOOP    file_ws         dpans11.htm     11.6.1.2054
704. std R/W                 NOOP    file_ws         dpans11.htm     11.6.1.2056
705. std READ-FILE           NOOP    file_ws         dpans11.htm     11.6.1.2080
706. std READ-LINE           NOOP    file_ws         dpans11.htm     11.6.1.2090
707. std REPOSITION-FILE     NOOP    file_ws         dpans11.htm     11.6.1.2142
708. std RESIZE-FILE         NOOP    file_ws         dpans11.htm     11.6.1.2147
709. std W/O                 NOOP    file_ws         dpans11.htm     11.6.1.2425
710. std WRITE-FILE          NOOP    file_ws         dpans11.htm     11.6.1.2480
711. std WRITE-LINE          NOOP    file_ws         dpans11.htm     11.6.1.2485
712. std FILE-STATUS         NOOP    file_ws         dpans11.htm     11.6.2.1524
713. std FLUSH-FILE          NOOP    file_ws         dpans11.htm     11.6.2.1560
714. std RENAME-FILE         NOOP    file_ws         dpans11.htm     11.6.2.2130
715. std >FLOAT              NOOP    fp_ws           dpans12.htm     12.6.1.0558
716. std D>F                 NOOP    fp_ws           dpans12.htm     12.6.1.1130
717. std F!                  NOOP    fp_ws           dpans12.htm     12.6.1.1400
718. std F*                  NOOP    fp_ws           dpans12.htm     12.6.1.1410
719. std F+                  NOOP    fp_ws           dpans12.htm     12.6.1.1420
720. std F-                  NOOP    fp_ws           dpans12.htm     12.6.1.1425
721. std F/                  NOOP    fp_ws           dpans12.htm     12.6.1.1430
722. std F0<                 NOOP    fp_ws           dpans12.htm     12.6.1.1440
723. std F0=                 NOOP    fp_ws           dpans12.htm     12.6.1.1450
724. std F<                  NOOP    fp_ws           dpans12.htm     12.6.1.1460
725. std F>D                 NOOP    fp_ws           dpans12.htm     12.6.1.1460
726. std F@                  NOOP    fp_ws           dpans12.htm     12.6.1.1472
727. std FALIGN              NOOP    fp_ws           dpans12.htm     12.6.1.1479
728. std FALIGNED            NOOP    fp_ws           dpans12.htm     12.6.1.1483
729. std FCONSTANT           defdat  fp_ws           dpans12.htm     12.6.1.1492
730. std FDEPTH              NOOP    fp_ws           dpans12.htm     12.6.1.1497
731. std FDROP               NOOP    fp_ws           dpans12.htm     12.6.1.1500
732. std FDUP                NOOP    fp_ws           dpans12.htm     12.6.1.1510
733. std FLITERAL            NOOP    fp_ws           dpans12.htm     12.6.1.1552
734. std FLOAT+              NOOP    fp_ws           dpans12.htm     12.6.1.1555
735. std FLOATS              NOOP    fp_ws           dpans12.htm     12.6.1.1556
736. std FLOOR               NOOP    fp_ws           dpans12.htm     12.6.1.1558
737. std FMAX                NOOP    fp_ws           dpans12.htm     12.6.1.1562
738. std FMIN                NOOP    fp_ws           dpans12.htm     12.6.1.1565
739. std FNEGATE             NOOP    fp_ws           dpans12.htm     12.6.1.1567
740. std FOVER               NOOP    fp_ws           dpans12.htm     12.6.1.1600
741. std FROT                NOOP    fp_ws           dpans12.htm     12.6.1.1610
742. std FROUND              NOOP    fp_ws           dpans12.htm     12.6.1.1612
743. std FSWAP               NOOP    fp_ws           dpans12.htm     12.6.1.1620
744. std FVARIABLE           defvar  fp_ws           dpans12.htm     12.6.1.1630
745. std REPRESENT           NOOP    fp_ws           dpans12.htm     12.6.1.2143
746. std DF!                 NOOP    fp_ws           dpans12.htm     12.6.2.1203
747. std DF@                 NOOP    fp_ws           dpans12.htm     12.6.2.1204
748. std DFALIGN             NOOP    fp_ws           dpans12.htm     12.6.2.1205
749. std DFALIGNED           NOOP    fp_ws           dpans12.htm     12.6.2.1207
750. std DFLOAT+             NOOP    fp_ws           dpans12.htm     12.6.2.1208
751. std DFLOATS             NOOP    fp_ws           dpans12.htm     12.6.2.1209
752. std F**                 NOOP    fp_ws           dpans12.htm     12.6.2.1415
753. std F.                  NOOP    fp_ws           dpans12.htm     12.6.2.1427
754. std FABS                NOOP    fp_ws           dpans12.htm     12.6.2.1474
755. std FACOS               NOOP    fp_ws           dpans12.htm     12.6.2.1476
756. std FACOSH              NOOP    fp_ws           dpans12.htm     12.6.2.1477
757. std FALOG               NOOP    fp_ws           dpans12.htm     12.6.2.1484
758. std FASIN               NOOP    fp_ws           dpans12.htm     12.6.2.1486
759. std FASINH              NOOP    fp_ws           dpans12.htm     12.6.2.1487
760. std FATAN               NOOP    fp_ws           dpans12.htm     12.6.2.1488
761. std FATAN2              NOOP    fp_ws           dpans12.htm     12.6.2.1489
762. std FATANH              NOOP    fp_ws           dpans12.htm     12.6.2.1491
763. std FCOS                NOOP    fp_ws           dpans12.htm     12.6.2.1493
764. std FCOSH               NOOP    fp_ws           dpans12.htm     12.6.2.1494
765. std FE.                 NOOP    fp_ws           dpans12.htm     12.6.2.1513
766. std FEXP                NOOP    fp_ws           dpans12.htm     12.6.2.1515
767. std FEXPM1              NOOP    fp_ws           dpans12.htm     12.6.2.1516
768. std FLN                 NOOP    fp_ws           dpans12.htm     12.6.2.1553
769. std FLNP1               NOOP    fp_ws           dpans12.htm     12.6.2.1554
770. std FLOG                NOOP    fp_ws           dpans12.htm     12.6.2.1557
771. std FS.                 NOOP    fp_ws           dpans12.htm     12.6.2.1613
772. std FSIN                NOOP    fp_ws           dpans12.htm     12.6.2.1614
773. std FSINCOS             NOOP    fp_ws           dpans12.htm     12.6.2.1616
774. std FSINH               NOOP    fp_ws           dpans12.htm     12.6.2.1617
775. std FSQRT               NOOP    fp_ws           dpans12.htm     12.6.2.1618
776. std FTAN                NOOP    fp_ws           dpans12.htm     12.6.2.1625
777. std FTANH               NOOP    fp_ws           dpans12.htm     12.6.2.1626
778. std F~                  NOOP    fp_ws           dpans12.htm     12.6.2.1640
779. std PRECISION           NOOP    fp_ws           dpans12.htm     12.6.2.2035
780. std SET-PRECISION       NOOP    fp_ws           dpans12.htm     12.6.2.2200
781. std SF!                 NOOP    fp_ws           dpans12.htm     12.6.2.2202
782. std SF@                 NOOP    fp_ws           dpans12.htm     12.6.2.2203
783. std SFALIGN             NOOP    fp_ws           dpans12.htm     12.6.2.2204
784. std SFALIGNED           NOOP    fp_ws           dpans12.htm     12.6.2.2206
785. std SFLOAT+             NOOP    fp_ws           dpans12.htm     12.6.2.2207
786. std SFLOATS             NOOP    fp_ws           dpans12.htm     12.6.2.2208
787. std (LOCAL)             NOOP    local_ws        dpans13.htm     13.6.1.0086
788. std LOCALS|             NOOP    local_ws        dpans13.htm     13.6.2.1795
789. std ALLOCATE            NOOP    malloc_ws       dpans14.htm     14.6.1.0707
790. std FREE                NOOP    malloc_ws       dpans14.htm     14.6.1.1605
791. std RESIZE              NOOP    malloc_ws       dpans14.htm     14.6.1.2145
792. std .S                  NOOP    progtools_ws    dpans15.htm     15.6.1.0220
793. std ?                   NOOP    progtools_ws    dpans15.htm     15.6.1.0600
794. std DUMP                NOOP    progtools_ws    dpans15.htm     15.6.1.1280
795. std SEE                 NOOP    progtools_ws    dpans15.htm     15.6.1.2194
796. std WORDS               NOOP    progtools_ws    dpans15.htm     15.6.1.2465
797. std ;CODE               resunk  progtools_ws    dpans15.htm     15.6.2.0470
798. std AHEAD               NOOP    progtools_ws    dpans15.htm     15.6.2.0702
799. std ASSEMBLER           NOOP    progtools_ws    dpans15.htm     15.6.2.0740
800. std BYE                 NOOP    progtools_ws    dpans15.htm     15.6.2.0830
801. std CODE                defusr  progtools_ws    dpans15.htm     15.6.2.0930
802. std CS-PICK             NOOP    progtools_ws    dpans15.htm     15.6.2.1015
803. std CS-ROLL             NOOP    progtools_ws    dpans15.htm     15.6.2.1020
804. std EDITOR              NOOP    progtools_ws    dpans15.htm     15.6.2.1300
805. std FORGET              NOOP    progtools_ws    dpans15.htm     15.6.2.1580
806. std [ELSE]              NOOP    progtools_ws    dpans15.htm     15.6.2.2531
807. std [IF]                bigif   progtools_ws    dpans15.htm     15.6.2.2532
808. std [THEN]              NOOP    progtools_ws    dpans15.htm     15.6.2.2533
809. std DEFINITIONS         NOOP    searchord_ws    dpans16.htm     16.6.1.1180
810. std FORTH-WORDLIST      NOOP    searchord_ws    dpans16.htm     16.6.1.1595
811. std GET-CURRENT         NOOP    searchord_ws    dpans16.htm     16.6.1.1643
812. std GET-ORDER           NOOP    searchord_ws    dpans16.htm     16.6.1.1647
813. std SEARCH-WORDLIST     NOOP    searchord_ws    dpans16.htm     16.6.1.2192
814. std SET-CURRENT         NOOP    searchord_ws    dpans16.htm     16.6.1.2195
815. std SET-ORDER           NOOP    searchord_ws    dpans16.htm     16.6.1.2197
816. std WORDLIST            NOOP    searchord_ws    dpans16.htm     16.6.1.2460
817. std ALSO                NOOP    searchord_ws    dpans16.htm     16.6.2.0715
818. std FORTH               NOOP    searchord_ws    dpans16.htm     16.6.2.1590
819. std ONLY                NOOP    searchord_ws    dpans16.htm     16.6.2.1965
820. std ORDER               NOOP    searchord_ws    dpans16.htm     16.6.2.1985
821. std PREVIOUS            NOOP    searchord_ws    dpans16.htm     16.6.2.2037
822. std -TRAILING           NOOP    string_ws       dpans17.htm     17.6.1.0170
823. std /STRING             NOOP    string_ws       dpans17.htm     17.6.1.0245
824. std BLANK               NOOP    string_ws       dpans17.htm     17.6.1.0780
825. std CMOVE               NOOP    string_ws       dpans17.htm     17.6.1.0910
826. std CMOVE>              NOOP    string_ws       dpans17.htm     17.6.1.0920
827. std COMPARE             NOOP    string_ws       dpans17.htm     17.6.1.0935
828. std SEARCH              NOOP    string_ws       dpans17.htm     17.6.1.2191
829. std SLITERAL            NOOP    string_ws       dpans17.htm     17.6.1.2212
830.  
831. _DEFINITIONS
832.  
833. \ Revision history
834. \ 0. 1st release to guinea pigs via comp.lang.forth
835. \ 1. Added multi-line comment 0 [IF]. Colored CHAR outside definitions.
836. \ 2. (EJB) Added missing definitions for common but nonstandard words
837. \    and cleaned up to account for case sensitivity.
838. \ 3. (EJB) Fixed up to create conforming XHTML 1.0 Strict
839. \ 4. (BNE) File check before nesting, moved file names to the hyperlink table,
840. \    added some option flags, cleared hyperlink list for each run. Added more
841. \    multiline comment words. Expands tabs to spaces. Title uses %20 for blanks.
517.  
518. (   NAME                ACTION  COLOR           FILENAME        REFERENCE )
519. (   ------------------  ------  --------------  -----------     --------- )
520. std !                   NOOP    core_ws         dpans6.htm      6.1.0010
521. std #                   NOOP    core_ws         dpans6.htm      6.1.0030
522. std #>                  NOOP    core_ws         dpans6.htm      6.1.0040
523. std #S                  NOOP    core_ws         dpans6.htm      6.1.0050
524. std '                   NOOP    core_ws         dpans6.htm      6.1.0070
525. std (                   skip)   commentary      dpans6.htm      6.1.0080
526. std *                   NOOP    core_ws         dpans6.htm      6.1.0090
527. std */                  NOOP    core_ws         dpans6.htm      6.1.0100
528. std */MOD               NOOP    core_ws         dpans6.htm      6.1.0110
529. std +                   NOOP    core_ws         dpans6.htm      6.1.0120
530. std +!                  NOOP    core_ws         dpans6.htm      6.1.0130
531. std +LOOP               NOOP    core_ws         dpans6.htm      6.1.0140
532. std ,                   NOOP    core_ws         dpans6.htm      6.1.0150
533. std -                   NOOP    core_ws         dpans6.htm      6.1.0160
534. std .                   NOOP    core_ws         dpans6.htm      6.1.0180
535. std ."                  skip"   numeric         dpans6.htm      6.1.0190
536. std /                   NOOP    core_ws         dpans6.htm      6.1.0230
537. std /MOD                NOOP    core_ws         dpans6.htm      6.1.0240
538. std 0<                  NOOP    core_ws         dpans6.htm      6.1.0250
539. std 0=                  NOOP    core_ws         dpans6.htm      6.1.0270
540. std 1+                  NOOP    core_ws         dpans6.htm      6.1.0290
541. std 1-                  NOOP    core_ws         dpans6.htm      6.1.0300
542. std 2!                  NOOP    core_ws         dpans6.htm      6.1.0310
543. std 2*                  NOOP    core_ws         dpans6.htm      6.1.0320
544. std 2/                  NOOP    core_ws         dpans6.htm      6.1.0330
545. std 2@                  NOOP    core_ws         dpans6.htm      6.1.0350
546. std 2DROP               NOOP    core_ws         dpans6.htm      6.1.0370
547. std 2DUP                NOOP    core_ws         dpans6.htm      6.1.0380
548. std 2OVER               NOOP    core_ws         dpans6.htm      6.1.0400
549. std 2SWAP               NOOP    core_ws         dpans6.htm      6.1.0430
550. std :                   defunk  core_ws         dpans6.htm      6.1.0450
551. std ;                   resunk  core_ws         dpans6.htm      6.1.0460
552. std <                   NOOP    core_ws         dpans6.htm      6.1.0480
553. std <#                  NOOP    core_ws         dpans6.htm      6.1.0490
554. std =                   NOOP    core_ws         dpans6.htm      6.1.0530
555. std >                   NOOP    core_ws         dpans6.htm      6.1.0540
556. std >BODY               NOOP    core_ws         dpans6.htm      6.1.0550
557. std >IN                 NOOP    core_ws         dpans6.htm      6.1.0560
558. std >NUMBER             NOOP    core_ws         dpans6.htm      6.1.0570
559. std >R                  NOOP    core_ws         dpans6.htm      6.1.0580
560. std ?DUP                NOOP    core_ws         dpans6.htm      6.1.0630
561. std @                   NOOP    core_ws         dpans6.htm      6.1.0650
562. std ABORT               NOOP    core_ws         dpans6.htm      6.1.0670
563. std ABORT"              skip"   numeric         dpans6.htm      6.1.0680
564. std ABS                 NOOP    core_ws         dpans6.htm      6.1.0690
565. std ACCEPT              NOOP    core_ws         dpans6.htm      6.1.0695
566. std ALIGN               NOOP    core_ws         dpans6.htm      6.1.0705
567. std ALIGNED             NOOP    core_ws         dpans6.htm      6.1.0706
568. std ALLOT               NOOP    core_ws         dpans6.htm      6.1.0710
569. std AND                 NOOP    core_ws         dpans6.htm      6.1.0720
570. std BASE                NOOP    core_ws         dpans6.htm      6.1.0750
571. std BEGIN               NOOP    core_ws         dpans6.htm      6.1.0760
572. std BL                  NOOP    numeric         dpans6.htm      6.1.0770
573. std C!                  NOOP    core_ws         dpans6.htm      6.1.0850
574. std C,                  NOOP    core_ws         dpans6.htm      6.1.0860
575. std C@                  NOOP    core_ws         dpans6.htm      6.1.0870
576. std CELL+               NOOP    core_ws         dpans6.htm      6.1.0880
577. std CELLS               NOOP    core_ws         dpans6.htm      6.1.0890
578. std CHAR                skipc   core_ws         dpans6.htm      6.1.0895
579. std CHAR+               NOOP    core_ws         dpans6.htm      6.1.0897
580. std CHARS               NOOP    core_ws         dpans6.htm      6.1.0898
581. std CONSTANT            defdat  core_ws         dpans6.htm      6.1.0950
582. std COUNT               NOOP    core_ws         dpans6.htm      6.1.0980
583. std CR                  NOOP    core_ws         dpans6.htm      6.1.0990
584. std CREATE              created core_ws         dpans6.htm      6.1.1000
585. std DECIMAL             DECIMAL core_ws         dpans6.htm      6.1.1170
586. std DEPTH               NOOP    core_ws         dpans6.htm      6.1.1200
587. std DO                  NOOP    core_ws         dpans6.htm      6.1.1240
588. std DOES>               NOOP    core_ws         dpans6.htm      6.1.1250
589. std DROP                NOOP    core_ws         dpans6.htm      6.1.1260
590. std DUP                 NOOP    core_ws         dpans6.htm      6.1.1290
591. std ELSE                NOOP    core_ws         dpans6.htm      6.1.1310
592. std EMIT                NOOP    core_ws         dpans6.htm      6.1.1320
593. std ENVIRONMENT?        NOOP    core_ws         dpans6.htm      6.1.1345
594. std EVALUATE            NOOP    core_ws         dpans6.htm      6.1.1360
595. std EXECUTE             NOOP    core_ws         dpans6.htm      6.1.1370
596. std EXIT                NOOP    core_ws         dpans6.htm      6.1.1380
597. std FILL                NOOP    core_ws         dpans6.htm      6.1.1540
598. std FIND                NOOP    core_ws         dpans6.htm      6.1.1550
599. std FM/MOD              NOOP    core_ws         dpans6.htm      6.1.1561
600. std HERE                NOOP    core_ws         dpans6.htm      6.1.1650
601. std HOLD                NOOP    core_ws         dpans6.htm      6.1.1670
602. std I                   NOOP    core_ws         dpans6.htm      6.1.1680
603. std IF                  NOOP    core_ws         dpans6.htm      6.1.1700
604. std IMMEDIATE           NOOP    core_ws         dpans6.htm      6.1.1710
605. std INVERT              NOOP    core_ws         dpans6.htm      6.1.1720
606. std J                   NOOP    core_ws         dpans6.htm      6.1.1730
607. std KEY                 NOOP    core_ws         dpans6.htm      6.1.1750
608. std LEAVE               NOOP    core_ws         dpans6.htm      6.1.1760
609. std LITERAL             NOOP    core_ws         dpans6.htm      6.1.1780
610. std LOOP                NOOP    core_ws         dpans6.htm      6.1.1800
611. std LSHIFT              NOOP    core_ws         dpans6.htm      6.1.1805
612. std M*                  NOOP    core_ws         dpans6.htm      6.1.1810
613. std MAX                 NOOP    core_ws         dpans6.htm      6.1.1870
614. std MIN                 NOOP    core_ws         dpans6.htm      6.1.1880
615. std MOD                 NOOP    core_ws         dpans6.htm      6.1.1890
616. std MOVE                NOOP    core_ws         dpans6.htm      6.1.1900
617. std NEGATE              NOOP    core_ws         dpans6.htm      6.1.1910
618. std OR                  NOOP    core_ws         dpans6.htm      6.1.1980
619. std OVER                NOOP    core_ws         dpans6.htm      6.1.1990
620. std POSTPONE            NOOP    core_ws         dpans6.htm      6.1.2033
621. std QUIT                NOOP    core_ws         dpans6.htm      6.1.2050
622. std R>                  NOOP    core_ws         dpans6.htm      6.1.2060
623. std R@                  NOOP    core_ws         dpans6.htm      6.1.2070
624. std RECURSE             NOOP    core_ws         dpans6.htm      6.1.2120
625. std REPEAT              NOOP    core_ws         dpans6.htm      6.1.2140
626. std ROT                 NOOP    core_ws         dpans6.htm      6.1.2160
627. std RSHIFT              NOOP    core_ws         dpans6.htm      6.1.2162
628. std S"                  skip"   numeric         dpans6.htm      6.1.2165
629. std S>D                 NOOP    core_ws         dpans6.htm      6.1.2170
630. std SIGN                NOOP    core_ws         dpans6.htm      6.1.2210
631. std SM/REM              NOOP    core_ws         dpans6.htm      6.1.2214
632. std SOURCE              NOOP    core_ws         dpans6.htm      6.1.2216
633. std SPACE               NOOP    core_ws         dpans6.htm      6.1.2220
634. std SPACES              NOOP    core_ws         dpans6.htm      6.1.2230
635. std STATE               NOOP    core_ws         dpans6.htm      6.1.2250
636. std SWAP                NOOP    core_ws         dpans6.htm      6.1.2260
637. std THEN                NOOP    core_ws         dpans6.htm      6.1.2270
638. std TYPE                NOOP    core_ws         dpans6.htm      6.1.2310
639. std U.                  NOOP    core_ws         dpans6.htm      6.1.2320
640. std U<                  NOOP    core_ws         dpans6.htm      6.1.2340
641. std UM*                 NOOP    core_ws         dpans6.htm      6.1.2360
642. std UM/MOD              NOOP    core_ws         dpans6.htm      6.1.2370
643. std UNLOOP              NOOP    core_ws         dpans6.htm      6.1.2380
644. std UNTIL               NOOP    core_ws         dpans6.htm      6.1.2390
645. std VARIABLE            defvar  core_ws         dpans6.htm      6.1.2410
646. std WHILE               NOOP    core_ws         dpans6.htm      6.1.2430
647. std WORD                NOOP    core_ws         dpans6.htm      6.1.2450
648. std XOR                 NOOP    core_ws         dpans6.htm      6.1.2490
649. std [                  hstate=0 core_ws         dpans6.htm      6.1.2500
650. std [']                 skipw   numeric         dpans6.htm      6.1.2510
651. std [CHAR]              skipw   numeric         dpans6.htm      6.1.2520
652. std ]                  hstate=1 core_ws         dpans6.htm      6.1.2540
653. std #TIB                NOOP    core_ext_ws     dpans6.htm      6.2.0060
654. std .(                  skip)   commentary      dpans6.htm      6.2.0200
655. std .R                  NOOP    core_ext_ws     dpans6.htm      6.2.0210
656. std 0<>                 NOOP    core_ext_ws     dpans6.htm      6.2.0260
657. std 0>                  NOOP    core_ext_ws     dpans6.htm      6.2.0280
658. std 2>R                 NOOP    core_ext_ws     dpans6.htm      6.2.0340
659. std 2R>                 NOOP    core_ext_ws     dpans6.htm      6.2.0410
660. std 2R@                 NOOP    core_ext_ws     dpans6.htm      6.2.0415
661. std :NONAME             NOOP    core_ext_ws     dpans6.htm      6.2.0455
662. std <>                  NOOP    core_ext_ws     dpans6.htm      6.2.0500
663. std ?DO                 NOOP    core_ext_ws     dpans6.htm      6.2.0620
664. std AGAIN               NOOP    core_ext_ws     dpans6.htm      6.2.0700
665. std C"                  skip"   numeric         dpans6.htm      6.2.0855
666. std CASE                NOOP    core_ext_ws     dpans6.htm      6.2.0873
667. std COMPILE,            NOOP    core_ext_ws     dpans6.htm      6.2.0945
668. std CONVERT             NOOP    core_ext_ws     dpans6.htm      6.2.0970
669. std ENDCASE             NOOP    core_ext_ws     dpans6.htm      6.2.1342
670. std ENDOF               NOOP    core_ext_ws     dpans6.htm      6.2.1343
671. std ERASE               NOOP    core_ext_ws     dpans6.htm      6.2.1350
672. std EXPECT              NOOP    core_ext_ws     dpans6.htm      6.2.1390
673. std FALSE             spec=zero numeric         dpans6.htm      6.2.1485
674. std HEX                 HEX     core_ext_ws     dpans6.htm      6.2.1660
675. std MARKER              defusr  core_ext_ws     dpans6.htm      6.2.1850
676. std NIP                 NOOP    core_ext_ws     dpans6.htm      6.2.1930
677. std OF                  NOOP    core_ext_ws     dpans6.htm      6.2.1950
678. std PAD                 NOOP    core_ext_ws     dpans6.htm      6.2.2000
679. std PARSE               NOOP    core_ext_ws     dpans6.htm      6.2.2008
680. std PICK                NOOP    core_ext_ws     dpans6.htm      6.2.2030
681. std QUERY               NOOP    core_ext_ws     dpans6.htm      6.2.2040
682. std REFILL              NOOP    core_ext_ws     dpans6.htm      6.2.2125
683. std RESTORE-INPUT       NOOP    core_ext_ws     dpans6.htm      6.2.2148
684. std ROLL                NOOP    core_ext_ws     dpans6.htm      6.2.2150
685. std SAVE-INPUT          NOOP    core_ext_ws     dpans6.htm      6.2.2182
686. std SOURCE-ID           NOOP    core_ext_ws     dpans6.htm      6.2.2218
687. std SPAN                NOOP    core_ext_ws     dpans6.htm      6.2.2240
688. std TIB                 NOOP    core_ext_ws     dpans6.htm      6.2.2290
689. std TO                  NOOP    core_ext_ws     dpans6.htm      6.2.2295
690. std TRUE                NOOP    numeric         dpans6.htm      6.2.2298
691. std TUCK                NOOP    core_ext_ws     dpans6.htm      6.2.2300
692. std U.R                 NOOP    core_ext_ws     dpans6.htm      6.2.2330
693. std U>                  NOOP    core_ext_ws     dpans6.htm      6.2.2350
694. std UNUSED              NOOP    core_ext_ws     dpans6.htm      6.2.2395
695. std VALUE               defval  core_ext_ws     dpans6.htm      6.2.2405
696. std WITHIN              NOOP    core_ext_ws     dpans6.htm      6.2.2440
697. std [COMPILE]           NOOP    core_ext_ws     dpans6.htm      6.2.2530
698. std BLK                 NOOP    block_ws        dpans7.htm      7.6.1.0790
699. std BLOCK               NOOP    block_ws        dpans7.htm      7.6.1.0800
700. std BUFFER              NOOP    block_ws        dpans7.htm      7.6.1.0820
701. std FLUSH               NOOP    block_ws        dpans7.htm      7.6.1.1559
702. std LOAD                NOOP    block_ws        dpans7.htm      7.6.1.1790
703. std SAVE-BUFFERS        NOOP    block_ws        dpans7.htm      7.6.1.2180
704. std UPDATE              NOOP    block_ws        dpans7.htm      7.6.1.2400
705. std EMPTY-BUFFERS       NOOP    block_ws        dpans7.htm      7.6.2.1330
706. std LIST                NOOP    block_ws        dpans7.htm      7.6.2.1770
707. std SCR                 NOOP    block_ws        dpans7.htm      7.6.2.2190
708. std THRU                NOOP    block_ws        dpans7.htm      7.6.2.2280
709. std 2CONSTANT           defdat  double_ws       dpans8.htm      8.6.1.0360
710. std 2LITERAL            NOOP    double_ws       dpans8.htm      8.6.1.0390
711. std 2VARIABLE           defvar  double_ws       dpans8.htm      8.6.1.0440
712. std D+                  NOOP    double_ws       dpans8.htm      8.6.1.1040
713. std D-                  NOOP    double_ws       dpans8.htm      8.6.1.1050
714. std D.                  NOOP    double_ws       dpans8.htm      8.6.1.1060
715. std D.R                 NOOP    double_ws       dpans8.htm      8.6.1.1070
716. std D0<                 NOOP    double_ws       dpans8.htm      8.6.1.1075
717. std D0=                 NOOP    double_ws       dpans8.htm      8.6.1.1080
718. std D2*                 NOOP    double_ws       dpans8.htm      8.6.1.1090
719. std D2/                 NOOP    double_ws       dpans8.htm      8.6.1.1100
720. std D<                  NOOP    double_ws       dpans8.htm      8.6.1.1110
721. std D=                  NOOP    double_ws       dpans8.htm      8.6.1.1120
722. std D>S                 NOOP    double_ws       dpans8.htm      8.6.1.1140
723. std DABS                NOOP    double_ws       dpans8.htm      8.6.1.1160
724. std DMAX                NOOP    double_ws       dpans8.htm      8.6.1.1210
725. std DMIN                NOOP    double_ws       dpans8.htm      8.6.1.1220
726. std DNEGATE             NOOP    double_ws       dpans8.htm      8.6.1.1230
727. std M*/                 NOOP    double_ws       dpans8.htm      8.6.1.1820
728. std M+                  NOOP    double_ws       dpans8.htm      8.6.1.1830
729. std 2ROT                NOOP    double_ws       dpans8.htm      8.6.2.0420
730. std DU<                 NOOP    double_ws       dpans8.htm      8.6.2.1270
731. std CATCH               NOOP    exception_ws    dpans9.htm      9.6.1.0875
732. std THROW               NOOP    exception_ws    dpans9.htm      9.6.1.2275
733. std AT-XY               NOOP    facilities_ws   dpans10.htm     10.6.1.0742
734. std KEY?                NOOP    facilities_ws   dpans10.htm     10.6.1.1755
735. std PAGE                NOOP    facilities_ws   dpans10.htm     10.6.1.2005
736. std EKEY                NOOP    facilities_ws   dpans10.htm     10.6.2.1305
737. std EKEY<CHAR           NOOP    facilities_ws   dpans10.htm     10.6.2.1306
738. std EKEY?               NOOP    facilities_ws   dpans10.htm     10.6.2.1307
739. std EMIT?               NOOP    facilities_ws   dpans10.htm     10.6.2.1325
740. std MS                  NOOP    facilities_ws   dpans10.htm     10.6.2.1905
741. std TIME&DATE           NOOP    facilities_ws   dpans10.htm     10.6.2.2292
742. std BIN                 NOOP    file_ws         dpans11.htm     11.6.1.0765
743. std CLOSE-FILE          NOOP    file_ws         dpans11.htm     11.6.1.0900
744. std CREATE-FILE         NOOP    file_ws         dpans11.htm     11.6.1.1010
745. std DELETE-FILE         NOOP    file_ws         dpans11.htm     11.6.1.1190
746. std FILE-POSITION       NOOP    file_ws         dpans11.htm     11.6.1.1520
747. std FILE-SIZE           NOOP    file_ws         dpans11.htm     11.6.1.1522
748. std INCLUDE-FILE        NOOP    file_ws         dpans11.htm     11.6.1.1717
749. std INCLUDED            "incfil file_ws         dpans11.htm     11.6.1.1718
750. std OPEN-FILE           NOOP    file_ws         dpans11.htm     11.6.1.1970
751. std R/O                 NOOP    file_ws         dpans11.htm     11.6.1.2054
752. std R/W                 NOOP    file_ws         dpans11.htm     11.6.1.2056
753. std READ-FILE           NOOP    file_ws         dpans11.htm     11.6.1.2080
754. std READ-LINE           NOOP    file_ws         dpans11.htm     11.6.1.2090
755. std REPOSITION-FILE     NOOP    file_ws         dpans11.htm     11.6.1.2142
756. std RESIZE-FILE         NOOP    file_ws         dpans11.htm     11.6.1.2147
757. std W/O                 NOOP    file_ws         dpans11.htm     11.6.1.2425
758. std WRITE-FILE          NOOP    file_ws         dpans11.htm     11.6.1.2480
759. std WRITE-LINE          NOOP    file_ws         dpans11.htm     11.6.1.2485
760. std FILE-STATUS         NOOP    file_ws         dpans11.htm     11.6.2.1524
761. std FLUSH-FILE          NOOP    file_ws         dpans11.htm     11.6.2.1560
762. std RENAME-FILE         NOOP    file_ws         dpans11.htm     11.6.2.2130
763. std >FLOAT              NOOP    fp_ws           dpans12.htm     12.6.1.0558
764. std D>F                 NOOP    fp_ws           dpans12.htm     12.6.1.1130
765. std F!                  NOOP    fp_ws           dpans12.htm     12.6.1.1400
766. std F*                  NOOP    fp_ws           dpans12.htm     12.6.1.1410
767. std F+                  NOOP    fp_ws           dpans12.htm     12.6.1.1420
768. std F-                  NOOP    fp_ws           dpans12.htm     12.6.1.1425
769. std F/                  NOOP    fp_ws           dpans12.htm     12.6.1.1430
770. std F0<                 NOOP    fp_ws           dpans12.htm     12.6.1.1440
771. std F0=                 NOOP    fp_ws           dpans12.htm     12.6.1.1450
772. std F<                  NOOP    fp_ws           dpans12.htm     12.6.1.1460
773. std F>D                 NOOP    fp_ws           dpans12.htm     12.6.1.1460
774. std F@                  NOOP    fp_ws           dpans12.htm     12.6.1.1472
775. std FALIGN              NOOP    fp_ws           dpans12.htm     12.6.1.1479
776. std FALIGNED            NOOP    fp_ws           dpans12.htm     12.6.1.1483
777. std FCONSTANT           defdat  fp_ws           dpans12.htm     12.6.1.1492
778. std FDEPTH              NOOP    fp_ws           dpans12.htm     12.6.1.1497
779. std FDROP               NOOP    fp_ws           dpans12.htm     12.6.1.1500
780. std FDUP                NOOP    fp_ws           dpans12.htm     12.6.1.1510
781. std FLITERAL            NOOP    fp_ws           dpans12.htm     12.6.1.1552
782. std FLOAT+              NOOP    fp_ws           dpans12.htm     12.6.1.1555
783. std FLOATS              NOOP    fp_ws           dpans12.htm     12.6.1.1556
784. std FLOOR               NOOP    fp_ws           dpans12.htm     12.6.1.1558
785. std FMAX                NOOP    fp_ws           dpans12.htm     12.6.1.1562
786. std FMIN                NOOP    fp_ws           dpans12.htm     12.6.1.1565
787. std FNEGATE             NOOP    fp_ws           dpans12.htm     12.6.1.1567
788. std FOVER               NOOP    fp_ws           dpans12.htm     12.6.1.1600
789. std FROT                NOOP    fp_ws           dpans12.htm     12.6.1.1610
790. std FROUND              NOOP    fp_ws           dpans12.htm     12.6.1.1612
791. std FSWAP               NOOP    fp_ws           dpans12.htm     12.6.1.1620
792. std FVARIABLE           defvar  fp_ws           dpans12.htm     12.6.1.1630
793. std REPRESENT           NOOP    fp_ws           dpans12.htm     12.6.1.2143
794. std DF!                 NOOP    fp_ws           dpans12.htm     12.6.2.1203
795. std DF@                 NOOP    fp_ws           dpans12.htm     12.6.2.1204
796. std DFALIGN             NOOP    fp_ws           dpans12.htm     12.6.2.1205
797. std DFALIGNED           NOOP    fp_ws           dpans12.htm     12.6.2.1207
798. std DFLOAT+             NOOP    fp_ws           dpans12.htm     12.6.2.1208
799. std DFLOATS             NOOP    fp_ws           dpans12.htm     12.6.2.1209
800. std F**                 NOOP    fp_ws           dpans12.htm     12.6.2.1415
801. std F.                  NOOP    fp_ws           dpans12.htm     12.6.2.1427
802. std FABS                NOOP    fp_ws           dpans12.htm     12.6.2.1474
803. std FACOS               NOOP    fp_ws           dpans12.htm     12.6.2.1476
804. std FACOSH              NOOP    fp_ws           dpans12.htm     12.6.2.1477
805. std FALOG               NOOP    fp_ws           dpans12.htm     12.6.2.1484
806. std FASIN               NOOP    fp_ws           dpans12.htm     12.6.2.1486
807. std FASINH              NOOP    fp_ws           dpans12.htm     12.6.2.1487
808. std FATAN               NOOP    fp_ws           dpans12.htm     12.6.2.1488
809. std FATAN2              NOOP    fp_ws           dpans12.htm     12.6.2.1489
810. std FATANH              NOOP    fp_ws           dpans12.htm     12.6.2.1491
811. std FCOS                NOOP    fp_ws           dpans12.htm     12.6.2.1493
812. std FCOSH               NOOP    fp_ws           dpans12.htm     12.6.2.1494
813. std FE.                 NOOP    fp_ws           dpans12.htm     12.6.2.1513
814. std FEXP                NOOP    fp_ws           dpans12.htm     12.6.2.1515
815. std FEXPM1              NOOP    fp_ws           dpans12.htm     12.6.2.1516
816. std FLN                 NOOP    fp_ws           dpans12.htm     12.6.2.1553
817. std FLNP1               NOOP    fp_ws           dpans12.htm     12.6.2.1554
818. std FLOG                NOOP    fp_ws           dpans12.htm     12.6.2.1557
819. std FS.                 NOOP    fp_ws           dpans12.htm     12.6.2.1613
820. std FSIN                NOOP    fp_ws           dpans12.htm     12.6.2.1614
821. std FSINCOS             NOOP    fp_ws           dpans12.htm     12.6.2.1616
822. std FSINH               NOOP    fp_ws           dpans12.htm     12.6.2.1617
823. std FSQRT               NOOP    fp_ws           dpans12.htm     12.6.2.1618
824. std FTAN                NOOP    fp_ws           dpans12.htm     12.6.2.1625
825. std FTANH               NOOP    fp_ws           dpans12.htm     12.6.2.1626
826. std F~                  NOOP    fp_ws           dpans12.htm     12.6.2.1640
827. std PRECISION           NOOP    fp_ws           dpans12.htm     12.6.2.2035
828. std SET-PRECISION       NOOP    fp_ws           dpans12.htm     12.6.2.2200
829. std SF!                 NOOP    fp_ws           dpans12.htm     12.6.2.2202
830. std SF@                 NOOP    fp_ws           dpans12.htm     12.6.2.2203
831. std SFALIGN             NOOP    fp_ws           dpans12.htm     12.6.2.2204
832. std SFALIGNED           NOOP    fp_ws           dpans12.htm     12.6.2.2206
833. std SFLOAT+             NOOP    fp_ws           dpans12.htm     12.6.2.2207
834. std SFLOATS             NOOP    fp_ws           dpans12.htm     12.6.2.2208
835. std (LOCAL)             NOOP    local_ws        dpans13.htm     13.6.1.0086
836. std LOCALS|             NOOP    local_ws        dpans13.htm     13.6.2.1795
837. std ALLOCATE            NOOP    malloc_ws       dpans14.htm     14.6.1.0707
838. std FREE                NOOP    malloc_ws       dpans14.htm     14.6.1.1605
839. std RESIZE              NOOP    malloc_ws       dpans14.htm     14.6.1.2145
840. std .S                  NOOP    progtools_ws    dpans15.htm     15.6.1.0220
841. std ?                   NOOP    progtools_ws    dpans15.htm     15.6.1.0600
842. std DUMP                NOOP    progtools_ws    dpans15.htm     15.6.1.1280
843. std SEE                 NOOP    progtools_ws    dpans15.htm     15.6.1.2194
844. std WORDS               NOOP    progtools_ws    dpans15.htm     15.6.1.2465
845. std ;CODE               resunk  progtools_ws    dpans15.htm     15.6.2.0470
846. std AHEAD               NOOP    progtools_ws    dpans15.htm     15.6.2.0702
847. std ASSEMBLER           NOOP    progtools_ws    dpans15.htm     15.6.2.0740
848. std BYE                 NOOP    progtools_ws    dpans15.htm     15.6.2.0830
849. std CODE                defusr  progtools_ws    dpans15.htm     15.6.2.0930
850. std CS-PICK             NOOP    progtools_ws    dpans15.htm     15.6.2.1015
851. std CS-ROLL             NOOP    progtools_ws    dpans15.htm     15.6.2.1020
852. std EDITOR              NOOP    progtools_ws    dpans15.htm     15.6.2.1300
853. std FORGET              NOOP    progtools_ws    dpans15.htm     15.6.2.1580
854. std [ELSE]              NOOP    progtools_ws    dpans15.htm     15.6.2.2531
855. std [IF]                bigif   progtools_ws    dpans15.htm     15.6.2.2532
856. std [THEN]              NOOP    progtools_ws    dpans15.htm     15.6.2.2533
857. std DEFINITIONS         NOOP    searchord_ws    dpans16.htm     16.6.1.1180
858. std FORTH-WORDLIST      NOOP    searchord_ws    dpans16.htm     16.6.1.1595
859. std GET-CURRENT         NOOP    searchord_ws    dpans16.htm     16.6.1.1643
860. std GET-ORDER           NOOP    searchord_ws    dpans16.htm     16.6.1.1647
861. std SEARCH-WORDLIST     NOOP    searchord_ws    dpans16.htm     16.6.1.2192
862. std SET-CURRENT         NOOP    searchord_ws    dpans16.htm     16.6.1.2195
863. std SET-ORDER           NOOP    searchord_ws    dpans16.htm     16.6.1.2197
864. std WORDLIST            NOOP    searchord_ws    dpans16.htm     16.6.1.2460
865. std ALSO                NOOP    searchord_ws    dpans16.htm     16.6.2.0715
866. std FORTH               NOOP    searchord_ws    dpans16.htm     16.6.2.1590
867. std ONLY                NOOP    searchord_ws    dpans16.htm     16.6.2.1965
868. std ORDER               NOOP    searchord_ws    dpans16.htm     16.6.2.1985
869. std PREVIOUS            NOOP    searchord_ws    dpans16.htm     16.6.2.2037
870. std -TRAILING           NOOP    string_ws       dpans17.htm     17.6.1.0170
871. std /STRING             NOOP    string_ws       dpans17.htm     17.6.1.0245
872. std BLANK               NOOP    string_ws       dpans17.htm     17.6.1.0780
873. std CMOVE               NOOP    string_ws       dpans17.htm     17.6.1.0910
874. std CMOVE>              NOOP    string_ws       dpans17.htm     17.6.1.0920
875. std COMPARE             NOOP    string_ws       dpans17.htm     17.6.1.0935
876. std SEARCH              NOOP    string_ws       dpans17.htm     17.6.1.2191
877. std SLITERAL            NOOP    string_ws       dpans17.htm     17.6.1.2212
878.  
879. _DEFINITIONS
880.  
881. \ Revision history
882. \ 0. 1st release to guinea pigs via comp.lang.forth
883. \ 1. Added multi-line comment 0 [IF]. Colored CHAR outside definitions.
884. \ 2. (EJB) Added missing definitions for common but nonstandard words
885. \    and cleaned up to account for case sensitivity.
886. \ 3. (EJB) Fixed up to create conforming XHTML 1.0 Strict
887. \ 4. (BNE) File check before nesting, moved file names to the hyperlink table,
888. \    added some option flags, cleared hyperlink list for each run. Added more
889. \    multiline comment words. Expands tabs to spaces. Title uses %20 for blanks.
842. \ 5. (EJB) Consolidated some strings
843.  
890. \ 4a. (DBU) Added dpanspath to configure the path to the dpans-files. Added
891. \     linksource to output a hyperlink to the original source file. Added
892. \     some words used in Win32Forth. Added copyright to output a copyright text
893. \     at the bottom of the HTML-file.
894. \ 4b. (DBU) Fixed some HTML-Error's found with "CSE HTML Validator Lite v3.50"
844.  
895.