home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / basw / banner2.bas < prev    next >
Encoding:
BASIC Source File  |  1990-10-01  |  17.2 KB  |  368 lines
  1. 1 '  WARNING!!! DO NOT ALTER, BYPASS OR REMOVE LINES 1-100
  2. 3 '
  3. 5 '  BANNER PROGRAM    (version 1.1)
  4. 7 '
  5. 9 '  by Lloyd Casterline
  6. 11 ' Lewis-Casterline Associates
  7. 13 ' 4013 North St.
  8. 15 ' Peoria, Il 61614
  9. 17 '
  10. 19 ' |=========================>  NOTICE  <=========================|
  11. 21 ' |  A limited license is granted to all users of this program,  |
  12. 23 ' |  to make copies of this program and distribute them to other |
  13. 25 ' |  users, on the following conditions:                         |
  14. 27 ' |     1. The notices contained in lines 1 through 100 of the   |
  15. 29 ' |        program are not to be altered, bypassed, or removed.  |
  16. 31 ' |     2. The program is not to be distributed to others in     |
  17. 33 ' |        modified form.                                        |
  18. 35 ' |     3. No fee is to be charged (or any other consideration   |
  19. 37 ' |        received) for copying or distributing the program.    |
  20. 39 ' |                                                              |
  21. 41 ' |==============================================================|
  22. 43 '
  23. 45 '
  24. 47 DEFSTR A-H,M-Z:KEY OFF
  25. 49 CLS:WIDTH 80
  26. 51 PRINT SPC(13);CHR$(201);STRING$(49,CHR$(205));CHR$(187)
  27. 53 PRINT SPC(13);CHR$(186);SPC(49);CHR$(186)
  28. 55 PRINT SPC(13);CHR$(186);"  U S E R - S U P P O R T E D   S O F T W A R E  ";    CHR$(186)
  29. 57 PRINT SPC(13);CHR$(186);SPC(49);CHR$(186):PRINT SPC(13);CHR$(200);              STRING$(49,205);CHR$(188)
  30. 59 PRINT :PRINT SPC(6);CHR$(201);STRING$(63,205);CHR$(187)
  31. 61 FOR I=1 TO 11:READ A$:PRINT SPC(6) CHR$(186);A$;SPC(63-LEN(A$));CHR$(186):      NEXT I
  32. 63 PRINT SPC(6) CHR$(200)STRING$(63,205)CHR$(188)
  33. 65 DATA"    If you are using this program and finding it of value,
  34. 67 DATA"    your contribution ($10 suggested) will be appreciated.
  35. 69 DATA"
  36. 71 DATA"                   Lewis-Casterline Associates
  37. 73 DATA"                         4013 North St.
  38. 75 DATA"                        Peoria, Il 61614
  39. 77 DATA"
  40. 79 DATA"       You are encouraged to copy and share this program
  41. 81 DATA"  with other users, on the conditions that the program is not
  42. 83 DATA"  distributed in modified form, that no fee or consideration
  43. 85 DATA"  is charged, and that this notice is not bypassed or removed.
  44. 87 '
  45. 89 PRINT:PRINT :PRINT :PRINT "press any key to continue..."
  46. 91 FOR I=1 TO 2000:NEXT I
  47. 93 F=INKEY$:IF F="" THEN 93
  48. 100 '
  49. 1000 CLS
  50. 1010 WIDTH "LPT1:",81
  51. 1020 DEFSTR A-H,M-Z
  52. 1030 DEFINT I-L
  53. 1040 D="X"
  54. 1050 A=STRING$(11,D)
  55. 1060 B=STRING$(13,D)
  56. 1070 C=STRING$(15,D)
  57. 1080 DIM BANNER(40)
  58. 1090 PRINT :PRINT
  59. 1100 PRINT SPC(10);CHR$(201);STRING$(58,205);CHR$(187)
  60. 1110 PRINT SPC(10);CHR$(186);SPC(15);"B A N N E R    P R O G R A M";SPC(15);         CHR$(186)
  61. 1120 PRINT SPC(10);CHR$(186);SPC(50);"ver 1.1";SPC(1);CHR$(186)
  62. 1130 PRINT SPC(10);CHR$(200);STRING$(58,205);CHR$(188)
  63. 1140 PRINT:PRINT:PRINT:INPUT "DO YOU WANT INSTRUCTIONS ?  Y/N ";ANSW
  64. 1150 IF ANSW="Y" OR ANSW="y" THEN GOSUB 3320
  65. 1160 PRINT :INPUT "DO YOU WANT EMPHASIZED PRINT ON YOUR BANNER ?  Y/N ";ANS
  66. 1170 IF ANS="Y" OR ANS="y" THEN LPRINT CHR$(27);"E"
  67. 1180 PRINT :PRINT "ENTER THE STRING YOU WANT TO PRINT (no lower case please)":       PRINT:LINE INPUT "===>";BANNER
  68. 1190 K=LEN(BANNER)
  69. 1200 FOR I=1 TO K
  70. 1210    ING=ASC(MID$(BANNER,I,1))
  71. 1220    IF ING=32 OR ING=33 OR ING=39 OR ING=40 OR ING=41 OR ING=43 OR ING=45           OR ING=46 OR ING=61 OR ING=63 THEN 1270
  72. 1230    IF ING>47 AND ING<58 THEN 1270
  73. 1240    IF ING>64 AND ING<91 THEN 1270
  74. 1250    PRINT:PRINT BANNER:PRINT
  75. 1260    PRINT "WARNING ! ! !":PRINT :PRINT "THIS PROGRAM WILL PRINT ONLY ":PRINT        "CAPITAL LETTERS, NUMBERS, BLANK, ., ', ?, !, -, +,(,),=.":PRINT:END
  76. 1270 NEXT I
  77. 1280 FOR J=1 TO K
  78. 1290    IF MID$(BANNER,J,1)="=" THEN GOSUB 4030:GOTO 1430
  79. 1300    IF MID$(BANNER,J,1)=" " THEN FOR L=1 TO 26:LPRINT :NEXT L:GOTO 1440
  80. 1310    IF MID$(BANNER,J,1)="(" THEN GOSUB 4060:GOTO 1430
  81. 1320    IF MID$(BANNER,J,1)=")" THEN GOSUB 4100:GOTO 1430
  82. 1330    IF MID$(BANNER,J,1)="+" THEN GOSUB 4140:GOTO 1430
  83. 1340    IF MID$(BANNER,J,1)="'" THEN GOSUB 3190:GOTO 1430
  84. 1350    IF MID$(BANNER,J,1)="." THEN GOSUB 3160:GOTO 1430
  85. 1360    IF MID$(BANNER,J,1)="'" THEN GOSUB 3190:GOTO 1430
  86. 1370    IF MID$(BANNER,J,1)="!" THEN GOSUB 3220:GOTO 1430
  87. 1380    IF MID$(BANNER,J,1)="?" THEN GOSUB 3250:GOTO 1430
  88. 1390    IF MID$(BANNER,J,1)="-" THEN GOSUB 3490:GOTO 1430
  89. 1400    IF ASC(MID$(BANNER,J,1))>57 THEN GOTO 1420
  90. 1410    ON (ASC(MID$(BANNER,J,1))-47) GOSUB 2290,3520,3570,3630,3690,3750,3820,           3870,3910,3980:GOTO 1430
  91. 1420    ON (ASC(MID$(BANNER,J,1))-64) GOSUB 1470,1540,1600,1670,1730,1780,1830,           1900,1950,2000,2060,2120,2160,2230,2290,2360,2420,2550,2630,2700,2750,          2820,2870,2940,3030,3100
  92. 1430    FOR L=1 TO 12:LPRINT :NEXT L
  93. 1440 NEXT J
  94. 1450 LPRINT CHR$(27);"F"
  95. 1460 END
  96. 1470 '                  *** PRINT A ***
  97. 1480 FOR I=1 TO 6:LPRINT STRING$(54+2*I,D):NEXT I
  98. 1490 FOR I=1 TO 6:LPRINT SPC(34);A;SPC(10+2*I);A:NEXT I
  99. 1500 FOR I=1 TO 3:LPRINT SPC(34);A;SPC(24);A:NEXT I
  100. 1510 FOR I=6 TO 1 STEP -1:LPRINT SPC(34);A;SPC(10+2*I);A:NEXT I
  101. 1520 FOR I=6 TO 1 STEP -1:LPRINT STRING$(54+2*I,D):NEXT I
  102. 1530 RETURN
  103. 1540 '                  *** PRINT B ***
  104. 1550 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  105. 1560 FOR I=1 TO 7:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
  106. 1570 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D);SPC(21-4*I);B:     NEXT I
  107. 1580 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I);STRING$(32-4*I,D)     :NEXT I
  108. 1590 RETURN
  109. 1600 '                  *** PRINT C ***
  110. 1610 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
  111. 1620 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
  112. 1630 FOR I=1 TO 4:LPRINT A;SPC(58);A:NEXT I
  113. 1640 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(54-4*I);B:NEXT I
  114. 1650 FOR I=1 TO 6:LPRINT SPC(8+2*I);STRING$(21-2*I,D);SPC(22);STRING$(21-2*I,D):     NEXT I
  115. 1660 RETURN
  116. 1670 '                  *** PRINT D ***
  117. 1680 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  118. 1690 FOR I=1 TO 7:LPRINT A;SPC(58);A:NEXT I
  119. 1700 FOR I=0 TO 5:LPRINT SPC(I*2);B;SPC(54-4*I);B:NEXT I
  120. 1710 FOR I=1 TO 5:LPRINT SPC(10+2*I);STRING$(60-4*I,D):NEXT I
  121. 1720 RETURN
  122. 1730 '                  *** PRINT E ***
  123. 1740 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  124. 1750 FOR I=1 TO 8:LPRINT A;SPC(23);A;SPC(24);A:NEXT I
  125. 1760 FOR I=1 TO 3:LPRINT A;SPC(58);A:NEXT I
  126. 1770 RETURN
  127. 1780 '                  *** PRINT F ***
  128. 1790 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  129. 1800 FOR I=1 TO 8:LPRINT SPC(35);A;SPC(23);A:NEXT I
  130. 1810 FOR I=1 TO 4:LPRINT SPC(69);A:NEXT I
  131. 1820 RETURN
  132. 1830 '                  *** PRINT G ***
  133. 1840 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
  134. 1850 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
  135. 1860 FOR I=1 TO 4:LPRINT A;SPC(19);A;SPC(28);A:NEXT I
  136. 1870 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(17-2*I);A;SPC(26-2*I);B:NEXT I
  137. 1880 FOR I=1 TO 6:LPRINT SPC(8+2*I);STRING$(33-2*I,D);SPC(14);STRING$(17-2*I,D):     NEXT I
  138. 1890 RETURN
  139. 1900 '                  *** PRINT H ***
  140. 1910 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  141. 1920 FOR I=1 TO 10:LPRINT SPC(34);A:NEXT I
  142. 1930 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  143. 1940 RETURN
  144. 1950 '                  *** PRINT I ***
  145. 1960 FOR I=1 TO 6:LPRINT A;SPC(58);A:NEXT I
  146. 1970 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  147. 1980 FOR I=1 TO 6:LPRINT A;SPC(58);A:NEXT I
  148. 1990 RETURN
  149. 2000 '                  *** PRINT J ***
  150. 2010 FOR I=5 TO 0 STEP -1:LPRINT SPC(I*2);B;SPC(56-2*I);A:NEXT I
  151. 2020 FOR I=1 TO 6:LPRINT A;SPC(58);A:NEXT I
  152. 2030 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  153. 2040 FOR I=1 TO 9:LPRINT SPC(69);A:NEXT I
  154. 2050 RETURN
  155. 2060 '                  *** PRINT K ***
  156. 2070 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  157. 2080 FOR I=0 TO 2:LPRINT SPC(32-2*I);STRING$(16+4*I,D):NEXT I
  158. 2090 FOR I=13 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(54-4*I);B:NEXT I
  159. 2100 FOR I=3 TO 1 STEP -1:LPRINT STRING$(5+2*I,D);SPC(70-4*I);STRING$(5+2*I,D):      NEXT I
  160. 2110 RETURN
  161. 2120 '                  *** PRINT L ***
  162. 2130 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  163. 2140 FOR I=1 TO 15:LPRINT A:NEXT I
  164. 2150 RETURN
  165. 2160 '                  *** PRINT M ***
  166. 2170 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  167. 2180 FOR I=0 TO 9:LPRINT SPC(67-2*I);B:NEXT I
  168. 2190 FOR I=9 TO 0 STEP -1:LPRINT SPC(67-2*I);B:NEXT I
  169. 2200 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  170. 2210 '
  171. 2220 RETURN
  172. 2230 '                  *** PRINT N ***
  173. 2240 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  174. 2250 FOR I=16 TO 0 STEP -1:LPRINT SPC(4*I);C:NEXT I
  175. 2260 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  176. 2270 '
  177. 2280 RETURN
  178. 2290 '                  *** PRINT O ***
  179. 2300 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
  180. 2310 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
  181. 2320 FOR I=1 TO 4:LPRINT A;SPC(58);A:NEXT I
  182. 2330 FOR I=7 TO 1 STEP -1:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
  183. 2340 FOR I=6 TO 1 STEP -1:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
  184. 2350 RETURN
  185. 2360 '                  *** PRINT P ***
  186. 2370 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  187. 2380 FOR I=1 TO 7:LPRINT SPC(34);A;SPC(24);A:NEXT I
  188. 2390 FOR I=0 TO 4:LPRINT SPC(34+2*I);B;SPC(20-4*I);B:NEXT I
  189. 2400 FOR I=0 TO 3:LPRINT SPC(44+2*I);STRING$(26-4*I,D):NEXT I
  190. 2410 RETURN
  191. 2420 '                  *** PRINT Q ***
  192. 2430 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
  193. 2440 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
  194. 2450 FOR I=1 TO 3:LPRINT A;SPC(58);A:NEXT I
  195. 2460 LPRINT A;SPC(6);STRING$(2,D);SPC(50);A
  196. 2470 LPRINT B;SPC(2);STRING$(6,D);SPC(46);B
  197. 2480 FOR I=6 TO 4 STEP -1:LPRINT SPC(14-2*I);STRING$(21,D);SPC(18+4*I);B:NEXT I
  198. 2490 LPRINT SPC(7);STRING$(18,D);SPC(34);B
  199. 2500 FOR I=2 TO 1 STEP -1:LPRINT SPC(1+2*I);STRING$(13-4*I,D);B;SPC(26+4*I);B:       NEXT I
  200. 2510 FOR I=6 TO 5 STEP -1:LPRINT SPC(13-2*I);STRING$(41+4*I,D):NEXT I
  201. 2520 FOR I=4 TO 2 STEP -1:LPRINT SPC(13-2*I);STRING$(4*I-6,D);SPC(19-4*I);           STRING$(28+4*I,D):NEXT I
  202. 2530 LPRINT SPC(24);STRING$(32,D)
  203. 2540 RETURN
  204. 2550 '                  *** PRINT R ***
  205. 2560 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  206. 2570 FOR I=1 TO 6:LPRINT SPC(34);A;SPC(24);A:NEXT I
  207. 2580 FOR I=0 TO 2:LPRINT SPC(31-4*I);STRING$(16+6*I,D);SPC(20-4*I);B:NEXT I
  208. 2590 FOR I=3 TO 4:LPRINT SPC(31-4*I);C;SPC(6*I-12);B;SPC(20-4*I);B:NEXT I
  209. 2600 FOR I=0 TO 3:LPRINT SPC(11-4*I);C;SPC(18+6*I);STRING$(26-4*I,D):NEXT I
  210. 2610 FOR I=1 TO 3:LPRINT STRING$(15-3*I,D):NEXT I
  211. 2620 RETURN
  212. 2630 '                  *** PRINT S ***
  213. 2640 FOR I=3 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(32);STRING$(25-4*I,D):NEXT I
  214. 2650 FOR I=4 TO 0 STEP -1:LPRINT A;SPC(24+2*I);B;SPC(19-4*I);B:NEXT I
  215. 2660 FOR I=1 TO 4:LPRINT A;SPC(24);A;SPC(23);A:NEXT I
  216. 2670 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(19-4*I);B;SPC(24+2*I);A:NEXT I
  217. 2680 FOR I=0 TO 3:LPRINT SPC(10+2*I);STRING$(25-4*I,D);SPC(32);B:NEXT I
  218. 2690 RETURN
  219. 2700 '                  *** PRINT T ***
  220. 2710 FOR I=1 TO 9:LPRINT SPC(69);A:NEXT I
  221. 2720 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  222. 2730 FOR I=1 TO 9:LPRINT SPC(69);A:NEXT I
  223. 2740 RETURN
  224. 2750 '                  *** PRINT U ***
  225. 2760 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(54+2*I,D):NEXT I
  226. 2770 FOR I=1 TO 7:LPRINT SPC(14-2*I);B:NEXT I
  227. 2780 FOR I=1 TO 4:LPRINT A:NEXT I
  228. 2790 FOR I=7 TO 1 STEP -1:LPRINT SPC(14-2*I);B:NEXT I
  229. 2800 FOR I=6 TO 1 STEP -1:LPRINT SPC(26-2*I);STRING$(54+2*I,D):NEXT I
  230. 2810 RETURN
  231. 2820 '                  *** PRINT V ***
  232. 2830 FOR I=12 TO 0 STEP -1:LPRINT SPC(5*I);STRING$(20,D):NEXT I
  233. 2840 LPRINT C
  234. 2850 FOR I=0 TO 12:LPRINT SPC(5*I);STRING$(20,D):NEXT I
  235. 2860 RETURN
  236. 2870 '                  *** PRINT W ***
  237. 2880 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  238. 2890 FOR I=0 TO 9:LPRINT SPC(2*I);B:NEXT I
  239. 2900 FOR I=9 TO 0 STEP -1:LPRINT SPC(2*I);B:NEXT I
  240. 2910 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  241. 2920 '
  242. 2930 RETURN
  243. 2940 '                  *** PRINT X ***
  244. 2950 FOR I=0 TO 2:LPRINT STRING$(7+3*I,D);SPC(66-6*I);STRING$(7+3*I,D):NEXT I
  245. 2960 FOR I=0 TO 9:LPRINT SPC(3*I);B;SPC(54-6*I);B:NEXT I
  246. 2970 LPRINT SPC(30);STRING$(20,D)
  247. 2980 LPRINT SPC(33);STRING$(14,D)
  248. 2990 LPRINT SPC(30);STRING$(20,D)
  249. 3000 FOR I=9 TO 0 STEP -1:LPRINT SPC(3*I);B;SPC(54-6*I);B:NEXT I
  250. 3010 FOR I=2 TO 0 STEP -1:LPRINT STRING$(7+3*I,D);SPC(66-6*I);STRING$(7+3*I,D):      NEXT I
  251. 3020 RETURN
  252. 3030 '                  *** PRINT Y ***
  253. 3040 FOR I=0 TO 2:LPRINT SPC(73-3*I);STRING$(7+3*I,D):NEXT I
  254. 3050 FOR I=1 TO 9:LPRINT SPC(67-3*I);B:NEXT I
  255. 3060 FOR I=1 TO 6:LPRINT STRING$(52,D):NEXT I
  256. 3070 FOR I=9 TO 1 STEP -1:LPRINT SPC(67-3*I);B:NEXT I
  257. 3080 FOR I=2 TO 0 STEP -1:LPRINT SPC(73-3*I);STRING$(7+3*I,D):NEXT I
  258. 3090 RETURN
  259. 3100 '                  *** PRINT Z ***
  260. 3110 FOR I=0 TO 3:LPRINT STRING$(13+3*I,D);SPC(56-3*I);A:NEXT I
  261. 3120 FOR I=0 TO 14:LPRINT A;SPC(2+3*I);B;D;SPC(42-3*I);A:NEXT I
  262. 3130 FOR I=4 TO 1 STEP -1:LPRINT A;SPC(59-3*I);STRING$(10+3*I,D):NEXT I
  263. 3140 '
  264. 3150 RETURN
  265. 3160 '                  *** PRINT . ***
  266. 3170 FOR I=1 TO 6:LPRINT A:NEXT I
  267. 3180 RETURN
  268. 3190 '                  *** PRINT ' ***
  269. 3200 FOR I=1 TO 6:LPRINT SPC(54+2*I);STRING$(26-2*I,D):NEXT I
  270. 3210 RETURN
  271. 3220 '                  *** PRINT ! ***
  272. 3230 FOR I=1 TO 6:LPRINT A;SPC(11);STRING$(58,D):NEXT I
  273. 3240 RETURN
  274. 3250 '                  *** PRINT ? ***
  275. 3260 FOR I=2 TO 6:LPRINT SPC(48);STRING$(8+2*I,D):NEXT I
  276. 3270 FOR I=0 TO 5:LPRINT SPC(57+2*I);B:NEXT I
  277. 3280 FOR I=1 TO 5:LPRINT A;SPC(11);STRING$(4+2*I,D);SPC(43-2*I);A:NEXT I
  278. 3290 FOR I=0 TO 5:LPRINT SPC(25+2*I);B;SPC(29-4*I);B:NEXT I
  279. 3300 FOR I=1 TO 5:LPRINT SPC(35+2*I);STRING$(35-4*I,D):NEXT I
  280. 3310 RETURN
  281. 3320 '
  282. 3330 PRINT :PRINT
  283. 3340 FOR I=1 TO 8
  284. 3350    READ R
  285. 3360    PRINT SPC(4);R
  286. 3370 NEXT I
  287. 3380 DATA " This program will print a banner on most standard format printers."
  288. 3390 DATA " It was developed on an Epson FX-80, but does not use any special"
  289. 3400 DATA " attributes except the code for emphasized printing. If the code "
  290. 3410 DATA " for your printer is different, make the necessary change to line"
  291. 3420 DATA " 1170. The program as originally written uses the character `X' as"
  292. 3430 DATA " the printer character. If you wish to change it, simply change the"
  293. 3440 DATA " statement in line 1040. Also note that the maximum banner length "
  294. 3450 DATA " is 40 characters, although this may be changed in line 1080."
  295. 3460 PRINT :PRINT :PRINT "press any key to continue..."
  296. 3470 CON=INKEY$:IF CON="" THEN 3470
  297. 3480 RETURN
  298. 3490 '                  *** PRINT - ***
  299. 3500 FOR I=1 TO 12:LPRINT SPC(34);A:NEXT I
  300. 3510 RETURN
  301. 3520 '                  *** PRINT 1 ***
  302. 3530 FOR I=1 TO 6:LPRINT A;SPC(57);STRING$(2*I,D):NEXT I
  303. 3540 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  304. 3550 FOR I=1 TO 6:LPRINT A:NEXT I
  305. 3560 RETURN
  306. 3570 '                  *** PRINT 2 ***
  307. 3580 FOR I=1 TO 7:LPRINT STRING$(9+2*I,D);SPC(44);B:NEXT I
  308. 3590 FOR I=0 TO 3:LPRINT A;SPC(1+2*I);B;SPC(44-2*I);A:NEXT I
  309. 3600 FOR I=4 TO 10:LPRINT A;SPC(1+2*I);B;SPC(50-4*I);B:NEXT I
  310. 3610 FOR I=1 TO 4:LPRINT A;SPC(21+2*I);STRING$(36-4*I,D):NEXT I
  311. 3620 RETURN
  312. 3630 '                  *** PRINT 3 ***
  313. 3640 FOR I=3 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(54-4*I);B:NEXT I
  314. 3650 FOR I=1 TO 9:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
  315. 3660 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D);SPC(21-4*I);B:     NEXT I
  316. 3670 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I);STRING$(32-4*I,D)     :NEXT I
  317. 3680 RETURN
  318. 3690 '                  *** PRINT 4 ***
  319. 3700 FOR I=1 TO 6:LPRINT SPC(34);STRING$(46,D):NEXT I
  320. 3710 FOR I=1 TO 12:LPRINT SPC(34);A:NEXT I
  321. 3720 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  322. 3730 FOR I=1 TO 3:LPRINT SPC(34);A:NEXT I
  323. 3740 RETURN
  324. 3750 '                  *** PRINT 5 ***
  325. 3760 FOR I=5 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(21-2*I);STRING$(46,D):NEXT I
  326. 3770 FOR I=1 TO 7:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
  327. 3780 LPRINT B;SPC(21);STRING$(12,D);SPC(23);A
  328. 3790 FOR I=1 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);B;SPC(22+2*I);A:NEXT I
  329. 3800 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(29+2*I);A:NEXT I
  330. 3810 RETURN
  331. 3820 '                  *** PRINT 6 ***
  332. 3830 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  333. 3840 FOR I=1 TO 12:LPRINT A;SPC(23);A:NEXT I
  334. 3850 FOR I=1 TO 6:LPRINT STRING$(45,D):NEXT I
  335. 3860 RETURN
  336. 3870 '                  *** PRINT 7 ***
  337. 3880 FOR I=1 TO 15:LPRINT SPC(69);A:NEXT I
  338. 3890 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  339. 3900 RETURN
  340. 3910 '                  *** PRINT 8 ***
  341. 3920 FOR I=4 TO 1 STEP -1:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I);              STRING$(32-4*I,D):NEXT I
  342. 3930 FOR I=4 TO 0 STEP -1:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D);           SPC(21-4*I);B:NEXT I
  343. 3940 FOR I=1 TO 7:LPRINT A;SPC(23);A;D;SPC(23);A:NEXT I
  344. 3950 FOR I=0 TO 4:LPRINT SPC(2*I);B;SPC(21-4*I);STRING$(12+4*I,D);SPC(21-4*I);B:     NEXT I
  345. 3960 FOR I=1 TO 4:LPRINT SPC(8+2*I);STRING$(32-4*I,D);SPC(4*I);STRING$(32-4*I,D)     :NEXT I
  346. 3970 RETURN
  347. 3980 '                  *** PRINT 9 ***
  348. 3990 FOR I=1 TO 6:LPRINT SPC(34);STRING$(46,D):NEXT I
  349. 4000 FOR I=1 TO 12:LPRINT SPC(34);A;SPC(24);A:NEXT I
  350. 4010 FOR I=1 TO 6:LPRINT STRING$(80,D):NEXT I
  351. 4020 RETURN
  352. 4030 '                  *** PRINT = ***
  353. 4040 FOR I=1 TO 9: LPRINT SPC(33);STRING$(5,D);SPC(5);STRING$(5,D):NEXT I
  354. 4050 RETURN
  355. 4060 '                  *** PRINT ( ***
  356. 4070 FOR I=1 TO 6:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
  357. 4080 FOR I=1 TO 7:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
  358. 4090 RETURN
  359. 4100 '                  *** PRINT ) ***
  360. 4110 FOR I=7 TO 1 STEP -1:LPRINT SPC(14-2*I);B;SPC(26+4*I);B:NEXT I
  361. 4120 FOR I=6 TO 1 STEP -1:LPRINT SPC(26-2*I);STRING$(28+4*I,D):NEXT I
  362. 4130 RETURN
  363. 4140 '                  *** PRINT + ***
  364. 4150 FOR I=1 TO 6:LPRINT SPC(34);A:NEXT I
  365. 4160 FOR I=1 TO 6:LPRINT SPC(23);A;A;A:NEXT I
  366. 4170 FOR I=1 TO 6:LPRINT SPC(34);A:NEXT I
  367. 4180 RETURN
  368.