]> git.gag.com Git - debian/pforth/blob - fth/t_load_pairs.fth
Implement FILE-STATUS
[debian/pforth] / fth / t_load_pairs.fth
1 \ Test INCLUDE errors.
2
3 : T.LOAD.PAIRS
4     10 0 DO i . THEN
5 ;