home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / printr.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  42 lines
  1. 0 'PRINTR.BA
  2. 1 CLS:CLEAR2000:MAXFILES=2:DEFINTA-L:DEFSTRM-Z:FILES:O=CHR$(27)+CHR$(69)
  3. 2 P=SPACE$(4):Y=CHR$(32)
  4. 3 Q=CHR$(27)+CHR$(74):C=0:D=1:E=1
  5. 4 GOSUB10:INPUT".DO file to print  ";N:IFN=""THENMAXFILES=1:MENU
  6. 5 GOSUB10:INPUT"Enter page title";R:CLS:PRINT@120,"Don't ask me now Chief, I'm busy!!"
  7. 6 GOSUB10:M="Y"
  8. 7 GOSUB10:L=8:A=86:IFL=0THENL=1:REM L is left margin & A is line length
  9. 8 S=SPACE$(L-1):GOSUB10:B=1
  10. 9 OPENNFORINPUTAS1:W="LPT:":OPENWFOROUTPUTAS2:GOTO11
  11. 10 PRINT@205,Q:PRINT@205,"";:RETURN
  12. 11 IFR=""THENT=S+TIME$+P+DATE$:GOTO14
  13. 12 T=SPACE$(A-20)+TIME$+P+DATE$
  14. 13 MID$(T,L,(LEN(R)))=R
  15. 14 IFM="Y"ORM="y"THENU=S:GOSUB35
  16. 15 U=S
  17. 16 IFC>=55THENGOTO32: REM C is # of printed lines including header
  18. 17 FORJ=LEN(U)TOA
  19. 18 U=U+INPUT$(1,1)
  20. 19 IFEOF(1)THENCLOSE1:E=2:GOTO27
  21. 20 IFRIGHT$(U,1)=CHR$(10)THEN26
  22. 21 IFRIGHT$(U,1)=CHR$(128)THENU=LEFT$(U,J-1):GOTO32
  23. 22 NEXT
  24. 23 IFMID$(U,J,1)=YTHEN25
  25. 24 J=J-1:GOTO23
  26. 25 V=MID$(U,J+1,A):U=MID$(U,1,J):GOTO27
  27. 26 U=LEFT$(U,LEN(U)-2)
  28. 27 IFMID$(U,L,3)="   "THEN29
  29. 28 IFMID$(U,L,1)=YTHENU=MID$(U,2,LEN(U)):GOTO28
  30. 29 PRINT#2,U:C=C+1:IFE=2THEN32
  31. 30 IFB=2THENPRINT#2,Y:C=C+1
  32. 31 U=S+V:V="":GOTO16
  33. 32 PRINT#2,CHR$(12);:D=D+1
  34. 33 IFE=2THEN1
  35. 35 PRINT#2,O:PRINT#2,T:PRINT#2,S"Page "D
  36. 36 PRINT#2,Y:C=4:GOTO17
  37. 40 'Strange place for comments.
  38. 41 'Byte Fyter's version of Ed Juge's PRINTR.100
  39. 42 'Variable "O" sets Prowriter to Elite font; adjust for your printer.
  40. 43 'Change line 1 to end with O=CHR$(27)+CHR$(77) for Epson & compatibles
  41. 44 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  42.