home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / dmp105.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  49 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8845 VOICE
  2. 2 CLS:PRINT:PRINTTAB(10)"HOME-BREW PRINTER"
  3. 5 PRINT:PRINT" Use the '½' symbol for paragraph  divi-sions.  (Not return.)  Tab indentations if desired. (Not spaces.)  Tab  before  '½' for accidental line feeds.":FORF=1TO1200:NEXT
  4. 10 'By Russ Hall
  5. 11 'For Tandy DMP-105
  6. 12 'Makes doublestrike printouts
  7. 13 'No other formatting needed
  8. 14 'For return add, margins, paragraphs
  9. 20 CLS:PRINT:PRINT" IS THE PRINTER ON?"
  10. 30 LPRINTCHR$(27);CHR$(21)' turns off line feeds
  11. 40 CLEAR500:DEFINT A-Z
  12. 45 CLS:FILES
  13. 50 INPUT"Which file to print";F$
  14. 55 PRINT:INPUT"Left margin";LM
  15. 56 PRINT"Double LF on paragraphs?"
  16. 57 G$=INKEY$:IFG$=""THEN57
  17. 58 IFG$="N"ORG$="n"THENU=12:GOTO60
  18. 59 U=24' Twelfths of inches LF
  19. 60 B$=STRING$(58-LM,32)+"1380  Diane  Drive":GOSUB3000' insert own return add.
  20. 62 B$=B$+"Salt Lake City, UT":GOSUB3000
  21. 64 B$=B$+DATE$+"     84123":GOSUB3000
  22. 66 B$=""
  23. 75 OPEN F$FOR INPUTAS1
  24. 80 C$="":IFEOF(1)THEN500
  25. 90 C$=INPUT$(1,1):IFC$=" "THENC$="":GOTO90
  26. 92 IFC$=CHR$(9)THENR=64 ELSE R=70
  27. 95 C$=STRING$(LM,32)+C$
  28. 100 FORA=1TOLM*2-RSTEP-1
  29. 110 IFEOF(1)THEN500
  30. 120 A$=INPUT$(1,1):B$=B$+A$
  31. 130 IFA$="½"THEN1000
  32. 135 NEXT
  33. 140 FORA=1TO10
  34. 145 IFEOF(1)THEN500
  35. 150 A$=INPUT$(1,1):B$=B$+A$:IFA$=" "THEN2000
  36. 160 IFA$="½"THEN1000
  37. 170 NEXT
  38. 180 GOTO80
  39. 500 ONERRORGOTO600:B$=LEFT$(B$,(LEN(B$)-1)):LPRINTC$;B$:LPRINTC$;B$
  40. 600 PRINT:PRINT" Print another?"
  41. 602 K$=INKEY$:IFK$=""THEN602
  42. 604 IFK$="Y"ORK$="y"THENLPRINTCHR$(27);CHR$(90);CHR$(12):GOTO45
  43. 610 LPRINTCHR$(27);CHR$(22):MENU
  44. 1000 B$=LEFT$(B$,LEN(B$)-1):LPRINTC$;B$:LPRINTC$;B$
  45. 1010 LPRINTCHR$(27);CHR$(90);CHR$(U):B$="":GOTO80
  46. 2000 LPRINTC$;B$:LPRINTC$;B$
  47. 2010 LPRINTCHR$(27);CHR$(90);CHR$(12):B$="":GOTO80
  48. 3000 LPRINTB$:LPRINTB$:LPRINTCHR$(27);CHR$(90);CHR$(12):B$=STRING$(58-LM,32):RETURN
  49.