home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / funnel / tg02.fw < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.3 KB  |  72 lines
  1. TG02: Test expansions with no indentation.
  2.  
  3. @p indentation = none
  4.  
  5. @O@<tg02.out@>@{@-
  6. @<Poem@>
  7.  
  8. @<Indentation test@>
  9. @}
  10.  
  11. @!******************************************************************************
  12.  
  13. @A@<Poem Section@>
  14.  
  15. @$@<Poem@>@{@-
  16. The other day upon the stair,
  17. @<Middle@>
  18. I think he's from the CIA.@}
  19.  
  20. @$@<Middle@>@{@-
  21. I met a man who wasn't there.
  22. @<Second line of middle@>@}
  23.  
  24. @$@<Second line of middle@>@{He wasn't there @<again@> today,@}
  25.  
  26. @$@<again@>@{again@}
  27.  
  28. @!******************************************************************************
  29.  
  30. @A@<Program Section@>
  31.  
  32. @$@<Indentation test@>@{@-
  33. In the output begin0 should be at the left margin, then begin1 to begin wayout
  34. should be indented by three spaces. Then the "It's scary" should be
  35. positioned over the "a" ofd margin. The rest should be at the left margin.
  36.  
  37. begin0
  38.    @<A@>
  39. end0@}
  40.  
  41.  
  42. @$@<A@>@{@-
  43. begin1
  44.    @<B@>
  45. end1@}
  46.  
  47. @$@<B@>@{@-
  48. begin2
  49.    @<C@>
  50. end2@}
  51.  
  52. @$@<C@>@{@-
  53. begin3
  54.    @<D@>
  55. end3@}
  56.  
  57. @$@<D@>@{@-
  58. begin4
  59.    @<E@>
  60. end4@}
  61.  
  62. @$@<E@>@{@-
  63. begin wayout----------V
  64.                       @<wayout@>
  65. end   wayout----------^@}
  66.  
  67. @$@<wayout@>@{@-
  68. It's scary out here
  69. So far from the left margin.@}
  70.  
  71. @!******************************************************************************
  72.