home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / citizn.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  64 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 5 'Citizen 120-D formatter-controller
  3. 6 'by Russ Hall
  4. 20 MAXFILES=2
  5. 30 ES$=CHR$(27):D=0:CLS:FILES
  6. 50 PRINT:INPUT"Print file (ENTER for prnt ctl)";B$
  7. 55 IFB$=""THEN500
  8. 60 OPENB$FORINPUTAS1' sizes document
  9. 70 ONERRORGOTO120
  10. 80 A$=INPUT$(40,1):D=D+1
  11. 100 IFEOF(1)THEN130
  12. 110 GOTO70
  13. 120 RESUME130
  14. 130 CLOSE:IFD<73THEN150
  15. 141 IFD>94THEND=70:GOTO150
  16. 142 Y=INT((95-D)/5):RM=90-Y
  17. 144 LPRINTES$"M";' Elite print
  18. 146 D=D-15:GOTO170
  19. 150 Y=INT((72-D)/5):RM=75-Y
  20. 170 LM=Y+5:IFLM=9THENLM=10'  Mine  has  glitch on left margin of 9
  21. 180 LF=22-INT(D/3):IFLF<1THEN210
  22. 185 IFLF>10THENLF=LF-1
  23. 190 FORX=1TOLF:LPRINT:NEXT
  24. 210 LPRINTES$"x1"ES$"Q"CHR$(RM);
  25. 225 LPRINTES$"l"CHR$(LM)ES$"N"CHR$(8)
  26. 232 R$(1)="1380  Diane  Drive":R$(2)="Salt Lake City, UT 84123"'home address
  27. 233 R$(3)="P.O. Box 3335":R$(4)="Logan, UT 84321":A=1' work address
  28. 240 IFA=5THENLPRINT:LPRINT:GOTO290
  29. 242 PRINT"Return address of "R$(A)" ?"
  30. 246 K$=INKEY$:IFK$=""THEN246
  31. 247 IFK$="Y"ORK$="y"THEN250 ELSE A=A+2:GOTO240
  32. 250 LPRINTES$"a";CHR$(2);
  33. 260 LPRINTR$(A):LPRINTR$(A+1)
  34. 280 LPRINTDAY$".  "DATE$
  35. 290 LPRINTES$"a"CHR$(3)
  36. 300 OPENB$FORINPUTAS1:OPEN"LPT:"FOROUTPUTAS2
  37. 320 IFEOF(1)THEN360
  38. 330 A$=INPUT$(1,1):PRINT#2,A$;
  39. 350 GOTO320
  40. 360 PRINT#2,CHR$(12);
  41. 370 CLOSE:MENU
  42. 500 CLS:PRINT@3,"PRESS CAPS LOCK...":PRINT@23,"<Q>uit"
  43. 510 PRINT@43,"<H>alf LF":PRINT@63,"<D>oublestrike":PRINT@83,"<E>lite":PRINT@103,"<P>roportional"
  44. 520 PRINT@123,"<I>talic":PRINT@143,"<R>everse":PRINT@163,"<C>ondensed":PRINT@183,"E<X>panded"
  45. 530 PRINT@203,"<V>ert. Enlarged, <O>ff":PRINT@243,"<G>raphics":PRINT@263,"<S>ubscript"
  46. 540 PRINT@283,"<T>hree/quarter LF  E<M>phasized";
  47. 550 K$=INKEY$:IFK$=""THEN550
  48. 560 IFK$="V"THENR$="h"
  49. 570 IFK$="E"THENR$="M"
  50. 580 IFK$="T"THENR$="0"
  51. 590 IFK$="S"THENR$="S1"
  52. 600 IFK$="X"THENR$="W1"
  53. 610 IFK$="I"THENR$="4"
  54. 620 IFK$="H"THENR$="1"
  55. 630 IFK$="G"THENR$="m"+CHR$(4)
  56. 640 IFK$="O"THENR$="@"
  57. 650 IFK$="R"THENR$="r"
  58. 660 IFK$="C"THENR$=CHR$(15)
  59. 670 IFK$="D"THENR$="G"
  60. 680 IFK$="Q"THENMENU
  61. 690 IFK$="P"THENR$="p1"
  62. 695 IFK$="M"THENR$="E"
  63. 700 LPRINTES$R$:GOTO550
  64.