\SETUP \COPY0 \HEAD13 \IN0,SKIP12-#TM TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining TOP MARGIN LINE \%LINE\, \tab 20,%LINES,tab23\ remaining \ \FOOT15 \IF NOT COUNT="1",END \IN10,SKIP12-#BM BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining BOTTOM MARGIN LINE \%LINE\, \tab34,%LINES,tab37\ remaining \SET COUNT="" \ \FORMFEED OFF \TEXT \CLS \GET TM="Give me top margin between zero and 12 lines" \IF#TM<=12,skip 5 \SHOW "**** OOOPS! ",:TM," IS MORE LINES THAN I CAN COUNT. ****" \GET TM="Give me a number between zero and 12" \IF #TM<=12,skip2 \SHOW "**** THAT'S STILL TOO MUCH. TRY AGAIN WHEN YOU KNOW HOW TO COUNT. ****" \END \GET BM="Give me a bottom margin between zero and twelve lines" \IF#BM<=12,SKIP 5 \SHOW "**** OOOPS! ",:BM," IS MORE LINES THAN I CAN COUNT. ****" \GET BM="Give me a number between zero and 12" \IF #BM<=12,SKIP2 \SHOW "**** THAT'S STILL TOO MUCH. TRY AGAIN WHEN YOU KNOW HOW TO COUNT. ****" \END \NOTE Give me page length up to 66 lines \GET PL="(Remember the page length must be more than top and bottom margins)" \IF #PL>=#BM+#TM+1,SKIP7 \NOTE That did not add up right. I'll give you one more chance. \GET TM="Revised top margin?" \GET BM="Revised bottom margin?" \GET PL="Revised page length? \IF #PL>=#BM+#TM+1,SKIP2 \CLS,NOTE I give up. Re-read the section and try again later \END \IF #PL<=66,SKIP2 \SHOW "YOU DON'T REALLY EXPECT TO COUNT TO ",:PL,", DO YOU?" \END \TM0,BM0,PL1 \NP \PL#PL,BM#BM,TM#TM \IN5 ******** BODY OF THE TEXT ******** \=#PL-#TM-#BM\ available. \SKIP66-#PL+#TM+#BM BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining BODY OF THE TEXT LINE \%LINE\, \TAB32,%LINES,TAB35\ remaining \SET COUNT="1" T LINE \%LIN