home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / COMPUTER / PRINTER / BANNER.ARC / BANNER.BAS
Encoding:
BASIC Source File  |  1985-08-07  |  10.4 KB  |  380 lines

  1. 1 CLS
  2. 10 GOTO 2700
  3. 20 FOR X=1 TO 4:LPRINT:NEXT X
  4. 25 RETURN
  5. 40 FOR X=1 TO 16:LPRINT :NEXT X
  6. 45 RETURN
  7. 100 REM
  8. 101 REM ----------- A -----------
  9. 102 REM
  10. 105 B=63
  11. 110 FOR X=1 TO 4
  12. 115 LPRINT STRING$(B,"#")
  13. 120 B=B+4
  14. 125 NEXT X
  15. 130 FOR X=1 TO 8:LPRINT TAB(33)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  16. 135 FOR X=1 TO 4
  17. 140 B=B-4
  18. 145 LPRINT STRING$(B,"#")
  19. 150 NEXT X:GOSUB 20:RETURN
  20. 200 REM
  21. 201 REM-------------- B ----------
  22. 202 REM
  23. 205 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  24. 210 FOR X=1 TO 8
  25. 215 LPRINT STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
  26. 220 NEXT X
  27. 225 A=0:B=72
  28. 230 FOR X=1 TO 2
  29. 235 A=A+4
  30. 240 LPRINT TAB(A)STRING$(B,"#")
  31. 245 B=B-8
  32. 250 NEXT X
  33. 255 B=44:C=24
  34. 260 FOR X=1 TO 2
  35. 265 A=A+4
  36. 270 LPRINT TAB(A)STRING$(C,"#")TAB(B)STRING$(C,"#")
  37. 275 B=B+4:C=C-8
  38. 280 NEXT X:GOSUB 20:RETURN
  39. 300 REM
  40. 301 REM ----------- C -----------
  41. 302 REM
  42. 305 A=16:B=48
  43. 310 FOR X=1 TO 4
  44. 315 LPRINT TAB(A)STRING$(B,"#")
  45. 320 A=A-4:B=B+8
  46. 325 NEXT X
  47. 330 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  48. 335 B=16
  49. 340 FOR X=1 TO 4
  50. 341 A=A+4
  51. 345 LPRINT TAB(A) STRING$(B,"#") TAB(60) STRING$(B,"#")
  52. 350 B=B-4
  53. 355 NEXT X:GOSUB 20:RETURN
  54. 400 REM
  55. 401 REM ------------ D ---------
  56. 402 REM
  57. 405 B=79:C=0
  58. 410 FOR X=1 TO 4 :LPRINT STRING$(79,"#"):NEXT X
  59. 415 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  60. 420 FOR X=1 TO 4
  61. 425 B=B-8:C=C+4
  62. 430 LPRINT TAB(C)STRING$(B,"#")
  63. 435 NEXT X:GOSUB 20:RETURN
  64. 500 REM
  65. 501 REM ----------------- E --------------
  66. 502 REM
  67. 505 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  68. 510 FOR X=1 TO 8
  69. 515 LPRINT STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
  70. 520 NEXT X
  71. 525 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  72. 530 GOSUB 20:RETURN
  73. 600 REM
  74. 601 REM ------------- F -------------
  75. 602 REM
  76. 605 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  77. 610 FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  78. 615 FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  79. 620 GOSUB 20:RETURN
  80. 700 REM
  81. 701 REM ------------- G ------------------
  82. 702 REM
  83. 705 A=16:B=48
  84. 710 FOR X=1 TO 4
  85. 715 LPRINT TAB(A)STRING$(B,"#")
  86. 716 A=A-4:B=B+8
  87. 720 NEXT X
  88. 725 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  89. 730 FOR X=1 TO 4
  90. 731 LPRINT STRING$(16,"#")TAB(24)STRING$(16,"#")TAB(64)STRING$(16,"#")
  91. 732 NEXT X
  92. 735 B=36:C=20
  93. 736 FOR X=1 TO 4
  94. 739 A=A+4
  95. 740 LPRINT TAB(A)STRING$(B,"#")TAB(56)STRING$(C,"#")
  96. 741 B=B-4:C=C-4
  97. 745 NEXT X:GOSUB 20:RETURN
  98. 800 REM
  99. 801 REM ------------ H ----------------
  100. 802 REM
  101. 805 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  102. 810 FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#"):NEXT X
  103. 815 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  104. 820 GOSUB 20:RETURN
  105. 900 REM
  106. 901 REM ------------ I --------------
  107. 902 REM
  108. 905 FOR X=1 TO 2:LPRINT STRING$(16,"#")TAB(64) STRING$(16,"#"):NEXT X
  109. 910 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  110. 915 FOR X=1 TO 2:LPRINT STRING$(16,"#")TAB(64) STRING$(16,"#"):NEXT X
  111. 920 GOSUB 20:RETURN
  112. 1000 REM
  113. 1001 REM ------------- J ---------------
  114. 1002 REM
  115. 1005 A=16:B=16
  116. 1010 FOR X=1 TO 4
  117. 1015 LPRINT TAB(A)STRING$(B,"#")
  118. 1020 A=A-4:B=B+4
  119. 1021 NEXT X
  120. 1025 FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
  121. 1030 B=76
  122. 1040 FOR X=1 TO 4
  123. 1041 A=A + 4
  124. 1045 LPRINT TAB(A)STRING$(B,"#")
  125. 1050 B=B-4
  126. 1055 NEXT X:GOSUB 20:RETURN
  127. 1100 REM
  128. 1101 REM --------------- K --------------
  129. 1102 REM
  130. 1105 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  131. 1110 A=32:B=44:C=16
  132. 1115 FOR X=1 TO 3
  133. 1120 LPRINT TAB(A)STRING$(C,"#")
  134. 1125 C=C+8:A=A-4
  135. 1130 NEXT X
  136. 1135 FOR X=1 TO 5
  137. 1140 LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
  138. 1145 A=A-4:B=B+4
  139. 1150 NEXT X
  140. 1155 FOR X=1 TO 4
  141. 1160 LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#")
  142. 1165 NEXT X:GOSUB 20:RETURN
  143. 1200 REM
  144. 1201 REM -------------- L -------------------
  145. 1202 REM
  146. 1205 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  147. 1215 FOR X=1 TO 12:LPRINT STRING$(16,"#"):NEXT X
  148. 1220 GOSUB 20:RETURN
  149. 1300 REM
  150. 1301 REM --------------- M -----------------
  151. 1302 REM
  152. 1305 A=56
  153. 1310 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  154. 1315 FOR X=1 TO 4
  155. 1320 LPRINT  TAB(A)STRING$(16,"#")
  156. 1325 A=A-4
  157. 1330 NEXT X
  158. 1335 FOR X=1 TO 4
  159. 1340 A=A+4
  160. 1345 LPRINT TAB(A)STRING$(16,"#")
  161. 1350 NEXT X
  162. 1355 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  163. 1360 GOSUB 20:RETURN
  164. 1400 REM
  165. 1401 REM ------------- N -----------------
  166. 1402 REM
  167. 1405 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  168. 1410 B=56
  169. 1415 FOR X=1 TO 8
  170. 1420 LPRINT TAB(B)STRING$(15,"#")
  171. 1425 B=B-4
  172. 1430 NEXT X
  173. 1435 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  174. 1440 GOSUB 20:RETURN
  175. 1500 REM
  176. 1501 REM  --------------- O -------------
  177. 1502 REM
  178. 1505 A=16:B=48
  179. 1510 FOR X=1 TO 4
  180. 1515 LPRINT TAB(A)STRING$(B,"#")
  181. 1520 A=A-4:B=B+8
  182. 1525 NEXT X
  183. 1530 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  184. 1540 FOR X=1 TO 4
  185. 1545 A=A+4:B=B-8
  186. 1550 LPRINT TAB(A)STRING$(B,"#")
  187. 1555 NEXT X:GOSUB 20:RETURN
  188. 1600 REM
  189. 1601 REM --------------- P -----------------
  190. 1602 REM
  191. 1605 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  192. 1610 A=36:B=40
  193. 1615 FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  194. 1620 FOR X=1 TO 4
  195. 1625 LPRINT TAB(A)STRING$(B,"#")
  196. 1630 A=A+4:B=B-8
  197. 1635 NEXT X :GOSUB 20:RETURN
  198. 1700 REM
  199. 1701 REM ----------------- Q ------------------
  200. 1702 REM
  201. 1705 A=16:B=48
  202. 1710 FOR X=1 TO 4
  203. 1715 LPRINT TAB(A)STRING$(B,"#")
  204. 1720 A=A-4:B=B+8
  205. 1725 NEXT X
  206. 1730 FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  207. 1735 FOR X=1 TO 2
  208. 1740 A=A+4:B=B-8
  209. 1745 LPRINT TAB(A)STRING$(B,"#")
  210. 1750 NEXT X
  211. 1755 B=68
  212. 1760 FOR X=1 TO 4
  213. 1765 IF X > 2 THEN 1780
  214. 1770 LPRINT STRING$(B,"#")
  215. 1771 B=B-4
  216. 1775 NEXT X:GOSUB 20:RETURN
  217. 1780 B=16:GOTO 1770
  218. 1800 REM
  219. 1801 REM -------------- R ----------------
  220. 1802 REM
  221. 1805 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  222. 1810 A=32:B=16
  223. 1815 FOR X=1 TO 5
  224. 1820 LPRINT TAB(A)STRING$(B,"#")TAB(64)STRING$(16,"#")
  225. 1825 A=A-4:B=B+4
  226. 1830 NEXT X
  227. 1835 FOR X=1 TO 3
  228. 1840 LPRINT TAB(A)STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
  229. 1845 A=A-4
  230. 1850 NEXT X
  231. 1855 A=36:B=40
  232. 1856 FOR X=1 TO 4
  233. 1860 LPRINT STRING$(16,"#")TAB(A)STRING$(B,"#")
  234. 1865 A=A+4:B=B-8
  235. 1870 NEXT X:GOSUB 20:RETURN
  236. 1900 REM
  237. 1901 REM -------------- S -------------------
  238. 1902 REM
  239. 1905 A=16:B=8:C=16:D=48
  240. 1910 FOR X=1 TO 4
  241. 1915 LPRINT TAB(A) STRING$(B,"#") TAB(D)STRING$(C,"#")
  242. 1920 A=A-4:B=B+4:C=C+8:D=D-4
  243. 1925 NEXT X
  244. 1930 FOR X=1 TO 8
  245. 1935 LPRINT STRING$(16,"#") TAB(33)STRING$(16,"#")TAB(64)STRING$(16,"#")
  246. 1940 NEXT X
  247. 1945 A=4:B=20:C=41:D=56
  248. 1950 FOR X=1 TO 4
  249. 1955 LPRINT TAB(A)STRING$(C,"#")TAB(D)STRING$(B,"#")
  250. 1960 A=A+4:B=B-4:C=C-8
  251. 1965 NEXT X
  252. 1970 GOSUB 20:RETURN
  253. 2000 REM
  254. 2001 REM ---------------- T ------------------
  255. 2002 REM
  256. 2005 FOR X=1 TO 6:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  257. 2010 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  258. 2015 FOR X=1 TO 6:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  259. 2020 GOSUB 20:RETURN
  260. 2100 REM
  261. 2101 REM ----------------- U -----------------
  262. 2102 REM
  263. 2105 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  264. 2110 FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
  265. 2115 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  266. 2120 GOSUB 20:RETURN
  267. 2200 REM
  268. 2201 REM ---------------- V -----------------
  269. 2202 REM
  270. 2205 C=16:B=63
  271. 2210 FOR X=1 TO 4
  272. 2215 LPRINT TAB(C)STRING$(B,"#")
  273. 2220 C=C-4:B=B+4
  274. 2225 NEXT X
  275. 2230 FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
  276. 2235 FOR X=1 TO 4
  277. 2240 C=C+4:B=B-4
  278. 2245 LPRINT TAB(C)STRING$(B,"#")
  279. 2250 NEXT X:GOSUB 20:RETURN
  280. 2300 REM
  281. 2301 REM ------------- W ------------------
  282. 2302 REM
  283. 2305 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  284. 2310 A=4
  285. 2315 FOR X=1 TO 4
  286. 2320 LPRINT TAB(A)STRING$(16,"#")
  287. 2325 A=A+4
  288. 2330 NEXT X
  289. 2335 FOR X=1 TO 4
  290. 2340 A=A-4
  291. 2345 LPRINT TAB(A)STRING$(16,"#")
  292. 2350 NEXT X
  293. 2355 FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  294. 2360 GOSUB 20:RETURN
  295. 2400 REM
  296. 2401 REM ---------------- X ---------------
  297. 2402 REM
  298. 2405 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  299. 2410 A=8:B=56
  300. 2415 FOR X=1 TO 2
  301. 2420 LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
  302. 2425 A=A+8:B=B-8
  303. 2430 NEXT X
  304. 2435 C=32
  305. 2440 FOR X=1 TO 2
  306. 2445 LPRINT TAB(A)STRING$(C,"#")
  307. 2450 A=A+8:C=C-16:NEXT X
  308. 2455 FOR X=1 TO 2:A=A-8:C=C+16
  309. 2460 LPRINT TAB(A)STRING$(C,"#")
  310. 2465 NEXT X
  311. 2470 FOR X=1 TO 2:A=A-8:B=B+8
  312. 2475 LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
  313. 2480 NEXT X
  314. 2485 FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  315. 2490 GOSUB 20:RETURN
  316. 2500 REM -------------- Y -------------
  317. 2502 REM
  318. 2505 FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  319. 2510 A=56
  320. 2515 FOR X=1 TO 2
  321. 2520 LPRINT TAB(A)STRING$(16,"#")
  322. 2525 A=A-8:NEXT X
  323. 2530 B=56
  324. 2531 FOR X=1 TO 2:LPRINT STRING$(B,"#"):B=B-8:NEXT X
  325. 2532 FOR X=1 TO 2:B=B+8:LPRINT STRING$(B,"#"):NEXT X
  326. 2535 FOR X=1 TO 2
  327. 2540 A=A+8:LPRINT TAB(A)STRING$(16,"#"):NEXT X
  328. 2550 FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  329. 2555 GOSUB 20:RETURN
  330. 2600 REM
  331. 2601 REM ----------- Z ---------------
  332. 2602 REM
  333. 2605 A=20
  334. 2610 FOR X=1 TO 4:LPRINT STRING$(A,"#")TAB(64)STRING$(16,"#"):A=A+4:NEXT X
  335. 2615 A=20
  336. 2620 FOR X=1 TO 7
  337. 2625 LPRINT STRING$(16,"#")TAB(A)STRING$(16,"#")TAB(64)STRING$(16,"#")
  338. 2630 A=A+4:NEXT X
  339. 2635 B=32
  340. 2640 FOR X=1 TO 5:LPRINT STRING$(16,"#")TAB(A)STRING$(B,"#")
  341. 2645 A=A+4:B=B-4:NEXT X:GOSUB 20:RETURN
  342. 2700 REM ----- PICKING LETTERS -----
  343. 2710 CLS:PRINT "ENTER THE LETTER AND NOTHING ELSE. PRESS <Esc> TO CHAIN CAT."
  344. 2720 A$=INKEY$:IF A$="" THEN 2720
  345. 2721 PRINT A$;
  346. 2725 IF ASC(A$)=13 THEN PRINT "INVALID OPTION, BUD!!":GOTO 2720
  347. 2726 IF ASC(A$)=32 THEN GOSUB 40:GOTO 2720
  348. 2727 IF ASC(A$)=27 THEN CHAIN"CAT
  349. 2730 IF ASC(A$)<65 OR ASC(A$)>90 THEN PRINT "I CAN'T PRINT THAT LETTER ON THE PRINTER":GOTO 2720
  350. 2740 IF A$="A" THEN GOSUB 100
  351. 2750 IF A$="B" THEN GOSUB 200
  352. 2760 IF A$="C" THEN GOSUB 300
  353. 2770 IF A$="D" THEN GOSUB 400
  354. 2780 IF A$="E" THEN GOSUB 500
  355. 2790 IF A$="F" THEN GOSUB 600
  356. 2800 IF A$="G" THEN GOSUB 700
  357. 2810 IF A$="H" THEN GOSUB 800
  358. 2820 IF A$="I" THEN GOSUB 900
  359. 2830 IF A$="J" THEN GOSUB 1000
  360. 2840 IF A$="K" THEN GOSUB 1100
  361. 2850 IF A$="L" THEN GOSUB 1200
  362. 2860 IF A$="M" THEN GOSUB 1300
  363. 2870 IF A$="N" THEN GOSUB 1400
  364. 2875 IF A$="Y" THEN GOSUB 2500
  365. 2880 IF A$="O" THEN GOSUB 1500
  366. 2890 IF A$="P" THEN GOSUB 1600
  367. 2900 IF A$="Q" THEN GOSUB 1700
  368. 2910 IF A$="R" THEN GOSUB 1800
  369. 2920 IF A$="S" THEN GOSUB 1900
  370. 2930 IF A$="T" THEN GOSUB 2000
  371. 2940 IF A$="U" THEN GOSUB 2100
  372. 2950 IF A$="V" THEN GOSUB 2200
  373. 2960 IF A$="W" THEN GOSUB 2300
  374. 2970 IF A$="X" THEN GOSUB 2400
  375. 2980 IF A$="Z" THEN GOSUB 2600
  376. 2990 GOTO 2720
  377. EN GOSUB 2200
  378. 2960 IF A$="W" THEN GOSUB 2300
  379. 2970 IF A$="X" THEN GOSUB 2400
  380. 2980 IF A$="Z" THEN GOSUB 2