home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / dubl.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  25 lines
  1. 0 'DUBL.BA Keith Rogers
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'DOUBLE SPACED PRINTING WITH PAGE NUMBERS.
  4. 3 'PARAGRAPHS MUST END WITH A CARRIAGE RETURN.
  5. 4 CR$=CHR$(13):SP$=" 
  6. 5 CLS:LC=4:PGN=1:LLC=67:FILES:PRINT@170,CHR$(27)"p"" TEXT FILES ONLY (.DO) "CHR$(27)"q";:PRINT@240,"FILE TO PRINT :";
  7. 6 INPUTF$:GOSUB23:PRINT@240,"CHAPTER :";:INPUTCHN:GOSUB23:PRINT@240,"LEFT MARGIN :";:M=10:GOSUB23:PRINT@240,"RIGHT MARGIN :";
  8. 7 W=70:OPENF$FORINPUTAS1:FORI=1TO36:LPRINT:NEXTI
  9. 8 IFEOF(1)THEN22
  10. 9 A$=INPUT$(1,1):IFA$<>CR$THEN12
  11. 10 LPRINT:LPRINT:LPRINT:LC=LC+2
  12. 11 LC=LC+1:LPRINTTAB(M);:LPRINTA$;:A$=INPUT$(1,1):LPRINTA$;:GOTO8
  13. 12 IFLPOS(0)>=MTHEN14
  14. 13 LC=LC+1:LPRINTTAB(M);:GOTO19
  15. 14 IFLPOS(0)<W-10THEN19
  16. 15 'LAST CHARACTER ON A LINE"
  17. 16 IFA$<>SP$THEN5
  18. 17 A$=INPUT$(1,1):IFA$=SP$THEN17
  19. 18 LPRINT:LC=LC+1:LPRINT:IFLC<LLC-5THEN11ELSE20
  20. 19 LPRINTA$;:GOTO8:LC=LC+1:LPRINTTAB(M);:LPRINTA$;:A$=INPUT$(1,1)
  21. 20 PP=LLC-LC+2:FORKK=1TOPP:LC=LC+1:LPRINT:NEXTKK:LC=4:PGN=PGN+1:LPRINTSPACE$(30)"ROGERS"CHNSPACE$(14)"PAGE "PGN;:LPRINT
  22. 21 LC=LC+1:LPRINT:LC=LC+1:LPRINTTAB(M)A$;:GOTO8
  23. 22 CLOSE:END
  24. 23 PRINT@240,SPACE$(40);:RETURN
  25.