home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / printer / lbanner.arc / LBANNE1.BAS next >
BASIC Source File  |  1988-07-01  |  3KB  |  87 lines
  1. 1 REM FROM PCSIG VOL 128, Snarfed from NCSU Archives Jun 88
  2. 2 REM Minor tweaks for speed.
  3. 3 REM Original author unknown.
  4. 4 REM David Kirschbaum, Toad Hall, kirsch@braggvax.ARPA
  5. 20 PRINT "WARNING !!!!! THE CAPS-LOCK KEY MUST BE ON !!! "
  6. 30 PRINT "-----------------------------------------------"
  7. 50 INPUT "Horizontal size ";HOR
  8. 60 INPUT "Vertical size ";VER
  9. 70 INPUT "Centered [Y/N]";L$
  10. 75 IF ASC(L$)>96 THEN PRINT "put caps lock key on":GOTO 70
  11. 80 CTRFLG=0: IF LEFT$(L$,1)="Y" THEN CTRFLG=1
  12. 90 PRINT "Letter or word to make large letters from or 'ALL' to make the large letters out of same smaller one":INPUT M$
  13. 110 INPUT "Statement to print";A$
  14. 120 INPUT; "Set the page and press return to print";O$
  15. 140 FOR T= 1 TO LEN(A$)
  16. 150 CURLTR$=MID$(A$,T,1)
  17. 160 FOR O=1 TO 50
  18. 170 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
  19. 179 REM Toad Hall Note:  Next line was commented out.  Line after is my tweak
  20. 182 REM IF S(U)=1 THEN FOR H=1 TO 7*HOR:LPRINT " ";:NEXT:GOTO 470
  21. 202 IF CURLTR$<>S$ THEN NEXT O
  22. 210 RESTORE
  23. 220 X$=M$:IF M$="ALL" THEN X$=S$
  24. 240 FOR U=1 TO 7
  25. 250 FOR K= 8 TO 0 STEP -1:K9=9-K        :REM TH Make a constant K9
  26. 282 IF 2^K>=S(U) THEN J(K9)=0:GOTO 310
  27. 290 J(K9)=1:S(U)=S(U)-2^K
  28. 302 IF S(U)=1 THEN F(U)=K9:GOTO 320
  29. 310 NEXT K
  30. 320 LENX=LEN(X$):TT1=(63-4.5*VER)*CTRFLG/(LENX)+1
  31. 321 FOR T1=1 TO HOR
  32. 330 LPRINT TAB(TT1);    :REM (63-4.5*VER)*CTRFLG/(LEN(X$))+1);
  33. 340 FOR B=1 TO F(U)
  34. 372 IF J(B)<>0 THEN FOR I=1 TO VER:LPRINT X$;:NEXT:GOTO 420
  35. 412 FOR I=1 TO VER:FOR I1=1 TO LENX:LPRINT " ";:NEXT:NEXT
  36. 420 NEXT B
  37. 430 LPRINT " "
  38. 440 NEXT T1
  39. 450 NEXT U
  40. 460 FOR H=1 TO 2*HOR:LPRINT " ":NEXT H
  41. 470 NEXT T
  42. 480 FOR H=1 TO 75:LPRINT " ":NEXT H
  43. 490 END
  44. 530 DATA " ",000,000,000,000,000,000,000
  45. 540 DATA "A",505,037,035,034,035,037,505
  46. 550 DATA "B",512,274,274,274,274,274,239
  47. 560 DATA "C",125,131,258,258,258,131,069
  48. 570 DATA "D",512,258,258,258,258,131,125
  49. 580 DATA "E",512,274,274,274,274,258,258
  50. 590 DATA "F",512,018,018,018,018,002,002
  51. 600 DATA "G",125,131,258,258,290,163,101
  52. 610 DATA "H",512,017,017,017,017,017,512
  53. 620 DATA "I",258,258,258,512,258,258,258
  54. 630 DATA "J",065,129,257,257,257,129,128
  55. 635 DATA "K",512,017,017,041,069,131,259
  56. 640 DATA "L",512,257,257,257,257,257,257
  57. 650 DATA "M",512,007,013,125,013,007,512
  58. 660 DATA "N",512,007,009,017,033,193,512
  59. 670 DATA "O",125,131,258,258,258,131,125
  60. 680 DATA "P",512,018,018,018,018,018,015
  61. 690 DATA "Q",125,131,258,258,322,131,381
  62. 700 DATA "R",512,018,018,050,082,146,271
  63. 710 DATA "S",069,139,274,274,274,163,069
  64. 720 DATA "T",002,002,002,512,002,002,002
  65. 730 DATA "U",128,129,257,257,257,129,128
  66. 740 DATA "V",064,065,129,257,129,065,064
  67. 750 DATA "W",256,257,129,065,129,257,256
  68. 760 DATA "X",388,069,041,017,041,069,388
  69. 770 DATA "Y",008,009,017,481,017,009,008
  70. 780 DATA "Z",386,322,290,274,266,262,260
  71. 790 DATA "0",125,131,262,274,322,131,125
  72. 800 DATA "1",000,261,259,512,257,257,000
  73. 810 DATA "2",261,387,322,290,274,267,261
  74. 820 DATA "3",066,130,258,274,266,150,100
  75. 830 DATA "4",033,049,041,037,035,512,033
  76. 840 DATA "5",160,274,274,274,274,274,226
  77. 850 DATA "6",194,291,293,297,305,289,193
  78. 860 DATA "7",258,130,066,034,018,010,008
  79. 870 DATA "8",069,171,274,274,274,171,069
  80. 880 DATA "9",263,138,074,042,026,010,007
  81. 890 DATA "?",005,003,002,354,018,011,005
  82. 900 DATA "*",069,041,017,512,017,041,069
  83. 910 DATA "=",041,041,041,041,041,041,041
  84. 920 DATA "!",001,001,384,001,001,001,001
  85. 930 DATA ".",001,001,129,449,129,001,001
  86. 940 END
  87.