home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / printer / lbanner.arc / LBANNER.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1988-07-01  |  2.9 KB  |  93 lines
  1. 20  PRINT "WARNING !!!!! THE CAPS-LOCK KEY MUST BE ON !!! "
  2. 30  PRINT "-----------------------------------------------"
  3. 50  INPUT "horizontal size ";X
  4. 60  INPUT "vertical size ";Y
  5. 70  INPUT "centered (y/n)";L$
  6. 75  IF ASC(L$)>96 THEN PRINT "put caps lock key on":GOTO 70
  7. 80  G1=0: IF LEFT$(L$,1)="Y" THEN G1=1
  8. 90  PRINT "letter or word to make large letters from or 'ALL' to make the large letters out of same smaller one":INPUT M$
  9. 110  INPUT "statement to print";A$
  10. 120  INPUT; "set the page and press return to print";O$
  11. 140  FOR T= 1 TO LEN(A$)
  12. 150  P$=MID$(A$,T,1)
  13. 160  FOR O=1 TO 50
  14. 170  READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
  15. 180  REM if p$=" " then 500
  16. 190  IF P$=S$ THEN 210
  17. 200  NEXT O
  18. 210  RESTORE
  19. 220  X$=M$
  20. 230  IF M$="ALL" THEN X$=S$
  21. 240  FOR U=1 TO 7
  22. 250  FOR K= 8 TO 0 STEP -1
  23. 260  IF 2^K<S(U) THEN 290
  24. 270  J(9-K)=0
  25. 280  GOTO 310
  26. 290  J(9-K)=1:S(U)=S(U)-2^K
  27. 300  IF S(U)=1 THEN 520
  28. 310  NEXT K
  29. 320  FOR T1=1 TO X
  30. 330  LPRINT TAB((63-4.5*Y)*G1/(LEN(X$))+1);
  31. 340  FOR B=1 TO F(U)
  32. 350  IF J(B)=0 THEN 380
  33. 360  FOR I=1 TO Y:LPRINT X$;:NEXT I
  34. 370  GOTO 420
  35. 380  FOR I=1 TO Y
  36. 390  FOR I1 =1 TO LEN(X$)
  37. 400  LPRINT " ";:NEXT I1
  38. 410  NEXT I
  39. 420  NEXT B
  40. 430  LPRINT " "
  41. 440  NEXT T1
  42. 450  NEXT U
  43. 460  FOR H=1 TO 2*X:LPRINT " ":NEXT H
  44. 470  NEXT T
  45. 480  FOR H=1 TO 75:LPRINT " ":NEXT H
  46. 490  END
  47. 500  FOR H=1 TO 7*X:LPRINT " ";:NEXT H
  48. 510  GOTO 470
  49. 520  F(U)=9-K:GOTO 320
  50. 530  DATA " ",000,000,000,000,000,000,000
  51. 540  DATA "A",505,037,035,034,035,037,505
  52. 550  DATA "B",512,274,274,274,274,274,239
  53. 560  DATA "C",125,131,258,258,258,131,069
  54. 570  DATA "D",512,258,258,258,258,131,125
  55. 580  DATA "E",512,274,274,274,274,258,258
  56. 590  DATA "F",512,018,018,018,018,002,002
  57. 600  DATA "G",125,131,258,258,290,163,101
  58. 610  DATA "H",512,017,017,017,017,017,512
  59. 620  DATA "I",258,258,258,512,258,258,258
  60. 630  DATA "J",065,129,257,257,257,129,128
  61. 635  DATA "K",512,017,017,041,069,131,259
  62. 640  DATA "L",512,257,257,257,257,257,257
  63. 650  DATA "M",512,007,013,125,013,007,512
  64. 660  DATA "N",512,007,009,017,033,193,512
  65. 670  DATA "O",125,131,258,258,258,131,125
  66. 680  DATA "P",512,018,018,018,018,018,015
  67. 690  DATA "Q",125,131,258,258,322,131,381
  68. 700  DATA "R",512,018,018,050,082,146,271
  69. 710  DATA "S",069,139,274,274,274,163,069
  70. 720  DATA "T",002,002,002,512,002,002,002
  71. 730  DATA "U",128,129,257,257,257,129,128
  72. 740  DATA "V",064,065,129,257,129,065,064
  73. 750  DATA "W",256,257,129,065,129,257,256
  74. 760  DATA "X",388,069,041,017,041,069,388
  75. 770  DATA "Y",008,009,017,481,017,009,008
  76. 780  DATA "Z",386,322,290,274,266,262,260
  77. 790  DATA "0",125,131,262,274,322,131,125
  78. 800  DATA "1",000,261,259,512,257,257,000
  79. 810  DATA "2",261,387,322,290,274,267,261
  80. 820  DATA "3",066,130,258,274,266,150,100
  81. 830  DATA "4",033,049,041,037,035,512,033
  82. 840  DATA "5",160,274,274,274,274,274,226
  83. 850  DATA "6",194,291,293,297,305,289,193
  84. 860  DATA "7",258,130,066,034,018,010,008
  85. 870  DATA "8",069,171,274,274,274,171,069
  86. 880  DATA "9",263,138,074,042,026,010,007
  87. 890  DATA "?",005,003,002,354,018,011,005
  88. 900  DATA "*",069,041,017,512,017,041,069
  89. 910  DATA "=",041,041,041,041,041,041,041
  90. 920  DATA "!",001,001,384,001,001,001,001
  91. 930  DATA ".",001,001,129,449,129,001,001
  92. 940  END
  93.