home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / COMPUTER / PRINTER / BANNER1.ARC / BANNER.BAS (.txt)
Encoding:
GW-BASIC  |  1980-01-01  |  7.0 KB  |  378 lines
  1. 10  CLS 
  2. 20  GOTO 3420
  3. 30  FOR X=1 TO 4:LPRINT:NEXT X
  4. 40  RETURN
  5. 50  FOR X=1 TO 16:LPRINT :NEXT X
  6. 60  RETURN
  7. 70  REM
  8. 80  REM ----------- A -----------
  9. 90  REM
  10. 100  B=63
  11. 110  FOR X=1 TO 4
  12. 120  LPRINT STRING$(B,"#")
  13. 130  B=B+4
  14. 140  NEXT X
  15. 150  FOR X=1 TO 8:LPRINT TAB(33)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  16. 160  FOR X=1 TO 4
  17. 170  B=B-4
  18. 180  LPRINT STRING$(B,"#")
  19. 190  NEXT X:GOSUB 30:RETURN
  20. 200  REM
  21. 210  REM-------------- B ----------
  22. 220  REM
  23. 230  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  24. 240  FOR X=1 TO 8
  25. 250  LPRINT STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
  26. 260  NEXT X
  27. 270  A=0:B=72
  28. 280  FOR X=1 TO 2
  29. 290  A=A+4
  30. 300  LPRINT TAB(A)STRING$(B,"#")
  31. 310  B=B-8
  32. 320  NEXT X
  33. 330  B=44:C=24
  34. 340  FOR X=1 TO 2
  35. 350  A=A+4
  36. 360  LPRINT TAB(A)STRING$(C,"#")TAB(B)STRING$(C,"#")
  37. 370  B=B+4:C=C-8
  38. 380  NEXT X:GOSUB 30:RETURN
  39. 390  REM
  40. 400  REM ----------- C -----------
  41. 410  REM
  42. 420  A=16:B=48
  43. 430  FOR X=1 TO 4
  44. 440  LPRINT TAB(A)STRING$(B,"#")
  45. 450  A=A-4:B=B+8
  46. 460  NEXT X
  47. 470  FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  48. 480  B=16
  49. 490  FOR X=1 TO 4
  50. 500  A=A+4
  51. 510  LPRINT TAB(A) STRING$(B,"#") TAB(60) STRING$(B,"#")
  52. 520  B=B-4
  53. 530  NEXT X:GOSUB 30:RETURN
  54. 540  REM
  55. 550  REM ------------ D ---------
  56. 560  REM
  57. 570  B=79:C=0
  58. 580  FOR X=1 TO 4 :LPRINT STRING$(79,"#"):NEXT X
  59. 590  FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  60. 600  FOR X=1 TO 4
  61. 610  B=B-8:C=C+4
  62. 620  LPRINT TAB(C)STRING$(B,"#")
  63. 630  NEXT X:GOSUB 30:RETURN
  64. 640  REM
  65. 650  REM ----------------- E --------------
  66. 660  REM
  67. 670  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  68. 680  FOR X=1 TO 8
  69. 690  LPRINT STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
  70. 700  NEXT X
  71. 710  FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  72. 720  GOSUB 30:RETURN
  73. 730  REM
  74. 740  REM ------------- F -------------
  75. 750  REM
  76. 760  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  77. 770  FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  78. 780  FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  79. 790  GOSUB 30:RETURN
  80. 800  REM
  81. 810  REM ------------- G ------------------
  82. 820  REM
  83. 830  A=16:B=48
  84. 840  FOR X=1 TO 4
  85. 850  LPRINT TAB(A)STRING$(B,"#")
  86. 860  A=A-4:B=B+8
  87. 870  NEXT X
  88. 880  FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  89. 890  FOR X=1 TO 4
  90. 900  LPRINT STRING$(16,"#")TAB(24)STRING$(16,"#")TAB(64)STRING$(16,"#")
  91. 910  NEXT X
  92. 920  B=36:C=20
  93. 930  FOR X=1 TO 4
  94. 940  A=A+4
  95. 950  LPRINT TAB(A)STRING$(B,"#")TAB(56)STRING$(C,"#")
  96. 960  B=B-4:C=C-4
  97. 970  NEXT X:GOSUB 30:RETURN
  98. 980  REM
  99. 990  REM ------------ H ----------------
  100. 1000  REM
  101. 1010  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  102. 1020  FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#"):NEXT X
  103. 1030  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  104. 1040  GOSUB 30:RETURN
  105. 1050  REM
  106. 1060  REM ------------ I --------------
  107. 1070  REM
  108. 1080  FOR X=1 TO 2:LPRINT STRING$(16,"#")TAB(64) STRING$(16,"#"):NEXT X
  109. 1090  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  110. 1100  FOR X=1 TO 2:LPRINT STRING$(16,"#")TAB(64) STRING$(16,"#"):NEXT X
  111. 1110  GOSUB 30:RETURN
  112. 1120  REM
  113. 1130  REM ------------- J ---------------
  114. 1140  REM
  115. 1150  A=16:B=16
  116. 1160  FOR X=1 TO 4
  117. 1170  LPRINT TAB(A)STRING$(B,"#")
  118. 1180  A=A-4:B=B+4
  119. 1190  NEXT X
  120. 1200  FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
  121. 1210  B=76
  122. 1220  FOR X=1 TO 4
  123. 1230  A=A + 4
  124. 1240  LPRINT TAB(A)STRING$(B,"#")
  125. 1250  B=B-4
  126. 1260  NEXT X:GOSUB 30:RETURN
  127. 1270  REM
  128. 1280  REM --------------- K --------------
  129. 1290  REM
  130. 1300  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  131. 1310  A=32:B=44:C=16
  132. 1320  FOR X=1 TO 3
  133. 1330  LPRINT TAB(A)STRING$(C,"#")
  134. 1340  C=C+8:A=A-4
  135. 1350  NEXT X
  136. 1360  FOR X=1 TO 5
  137. 1370  LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
  138. 1380  A=A-4:B=B+4
  139. 1390  NEXT X
  140. 1400  FOR X=1 TO 4
  141. 1410  LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#")
  142. 1420  NEXT X:GOSUB 30:RETURN
  143. 1430  REM
  144. 1440  REM -------------- L -------------------
  145. 1450  REM
  146. 1460  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  147. 1470  FOR X=1 TO 12:LPRINT STRING$(16,"#"):NEXT X
  148. 1480  GOSUB 30:RETURN
  149. 1490  REM
  150. 1500  REM --------------- M -----------------
  151. 1510  REM
  152. 1520  A=56
  153. 1530  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  154. 1540  FOR X=1 TO 4
  155. 1550  LPRINT  TAB(A)STRING$(16,"#")
  156. 1560  A=A-4
  157. 1570  NEXT X
  158. 1580  FOR X=1 TO 4
  159. 1590  A=A+4
  160. 1600  LPRINT TAB(A)STRING$(16,"#")
  161. 1610  NEXT X
  162. 1620  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  163. 1630  GOSUB 30:RETURN
  164. 1640  REM
  165. 1650  REM ------------- N -----------------
  166. 1660  REM
  167. 1670  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  168. 1680  B=56
  169. 1690  FOR X=1 TO 8
  170. 1700  LPRINT TAB(B)STRING$(15,"#")
  171. 1710  B=B-4
  172. 1720  NEXT X
  173. 1730  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  174. 1740  GOSUB 30:RETURN
  175. 1750  REM
  176. 1760  REM  --------------- O -------------
  177. 1770  REM
  178. 1780  A=16:B=48
  179. 1790  FOR X=1 TO 4
  180. 1800  LPRINT TAB(A)STRING$(B,"#")
  181. 1810  A=A-4:B=B+8
  182. 1820  NEXT X
  183. 1830  FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  184. 1840  FOR X=1 TO 4
  185. 1850  A=A+4:B=B-8
  186. 1860  LPRINT TAB(A)STRING$(B,"#")
  187. 1870  NEXT X:GOSUB 30:RETURN
  188. 1880  REM
  189. 1890  REM --------------- P -----------------
  190. 1900  REM
  191. 1910  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  192. 1920  A=36:B=40
  193. 1930  FOR X=1 TO 8:LPRINT TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  194. 1940  FOR X=1 TO 4
  195. 1950  LPRINT TAB(A)STRING$(B,"#")
  196. 1960  A=A+4:B=B-8
  197. 1970  NEXT X :GOSUB 30:RETURN
  198. 1980  REM
  199. 1990  REM ----------------- Q ------------------
  200. 2000  REM
  201. 2010  A=16:B=48
  202. 2020  FOR X=1 TO 4
  203. 2030  LPRINT TAB(A)STRING$(B,"#")
  204. 2040  A=A-4:B=B+8
  205. 2050  NEXT X
  206. 2060  FOR X=1 TO 8:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  207. 2070  FOR X=1 TO 2
  208. 2080  A=A+4:B=B-8
  209. 2090  LPRINT TAB(A)STRING$(B,"#")
  210. 2100  NEXT X
  211. 2110  B=68
  212. 2120  FOR X=1 TO 4
  213. 2130  IF X > 2 THEN 2170
  214. 2140  LPRINT STRING$(B,"#")
  215. 2150  B=B-4
  216. 2160  NEXT X:GOSUB 30:RETURN
  217. 2170  B=16:GOTO 2140
  218. 2180  REM
  219. 2190  REM -------------- R ----------------
  220. 2200  REM
  221. 2210  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  222. 2220  A=32:B=16
  223. 2230  FOR X=1 TO 5
  224. 2240  LPRINT TAB(A)STRING$(B,"#")TAB(64)STRING$(16,"#")
  225. 2250  A=A-4:B=B+4
  226. 2260  NEXT X
  227. 2270  FOR X=1 TO 3
  228. 2280  LPRINT TAB(A)STRING$(16,"#")TAB(32)STRING$(16,"#")TAB(64)STRING$(16,"#")
  229. 2290  A=A-4
  230. 2300  NEXT X
  231. 2310  A=36:B=40
  232. 2320  FOR X=1 TO 4
  233. 2330  LPRINT STRING$(16,"#")TAB(A)STRING$(B,"#")
  234. 2340  A=A+4:B=B-8
  235. 2350  NEXT X:GOSUB 30:RETURN
  236. 2360  REM
  237. 2370  REM -------------- S -------------------
  238. 2380  REM
  239. 2390  A=16:B=8:C=16:D=48
  240. 2400  FOR X=1 TO 4
  241. 2410  LPRINT TAB(A) STRING$(B,"#") TAB(D)STRING$(C,"#")
  242. 2420  A=A-4:B=B+4:C=C+8:D=D-4
  243. 2430  NEXT X
  244. 2440  FOR X=1 TO 8
  245. 2450  LPRINT STRING$(16,"#") TAB(33)STRING$(16,"#")TAB(64)STRING$(16,"#")
  246. 2460  NEXT X
  247. 2470  A=4:B=20:C=41:D=56
  248. 2480  FOR X=1 TO 4
  249. 2490  LPRINT TAB(A)STRING$(C,"#")TAB(D)STRING$(B,"#")
  250. 2500  A=A+4:B=B-4:C=C-8
  251. 2510  NEXT X
  252. 2520  GOSUB 30:RETURN
  253. 2530  REM
  254. 2540  REM ---------------- T ------------------
  255. 2550  REM
  256. 2560  FOR X=1 TO 6:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  257. 2570  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  258. 2580  FOR X=1 TO 6:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  259. 2590  GOSUB 30:RETURN
  260. 2600  REM
  261. 2610  REM ----------------- U -----------------
  262. 2620  REM
  263. 2630  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  264. 2640  FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
  265. 2650  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  266. 2660  GOSUB 30:RETURN
  267. 2670  REM
  268. 2680  REM ---------------- V -----------------
  269. 2690  REM
  270. 2700  C=16:B=63
  271. 2710  FOR X=1 TO 4
  272. 2720  LPRINT TAB(C)STRING$(B,"#")
  273. 2730  C=C-4:B=B+4
  274. 2740  NEXT X
  275. 2750  FOR X=1 TO 8:LPRINT STRING$(16,"#"):NEXT X
  276. 2760  FOR X=1 TO 4
  277. 2770  C=C+4:B=B-4
  278. 2780  LPRINT TAB(C)STRING$(B,"#")
  279. 2790  NEXT X:GOSUB 30:RETURN
  280. 2800  REM
  281. 2810  REM ------------- W ------------------
  282. 2820  REM
  283. 2830  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  284. 2840  A=4
  285. 2850  FOR X=1 TO 4
  286. 2860  LPRINT TAB(A)STRING$(16,"#")
  287. 2870  A=A+4
  288. 2880  NEXT X
  289. 2890  FOR X=1 TO 4
  290. 2900  A=A-4
  291. 2910  LPRINT TAB(A)STRING$(16,"#")
  292. 2920  NEXT X
  293. 2930  FOR X=1 TO 4:LPRINT STRING$(79,"#"):NEXT X
  294. 2940  GOSUB 30:RETURN
  295. 2950  REM
  296. 2960  REM ---------------- X ---------------
  297. 2970  REM
  298. 2980  FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  299. 2990  A=8:B=56
  300. 3000  FOR X=1 TO 2
  301. 3010  LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
  302. 3020  A=A+8:B=B-8
  303. 3030  NEXT X
  304. 3040  C=32
  305. 3050  FOR X=1 TO 2
  306. 3060  LPRINT TAB(A)STRING$(C,"#")
  307. 3070  A=A+8:C=C-16:NEXT X
  308. 3080  FOR X=1 TO 2:A=A-8:C=C+16
  309. 3090  LPRINT TAB(A)STRING$(C,"#")
  310. 3100  NEXT X
  311. 3110  FOR X=1 TO 2:A=A-8:B=B+8
  312. 3120  LPRINT TAB(A)STRING$(16,"#")TAB(B)STRING$(16,"#")
  313. 3130  NEXT X
  314. 3140  FOR X=1 TO 4:LPRINT STRING$(16,"#")TAB(64)STRING$(16,"#"):NEXT X
  315. 3150  GOSUB 30:RETURN
  316. 3160  REM -------------- Y -------------
  317. 3170  REM
  318. 3180  FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  319. 3190  A=56
  320. 3200  FOR X=1 TO 2
  321. 3210  LPRINT TAB(A)STRING$(16,"#")
  322. 3220  A=A-8:NEXT X
  323. 3230  B=56
  324. 3240  FOR X=1 TO 2:LPRINT STRING$(B,"#"):B=B-8:NEXT X
  325. 3250  FOR X=1 TO 2:B=B+8:LPRINT STRING$(B,"#"):NEXT X
  326. 3260  FOR X=1 TO 2
  327. 3270  A=A+8:LPRINT TAB(A)STRING$(16,"#"):NEXT X
  328. 3280  FOR X=1 TO 4:LPRINT TAB(64)STRING$(16,"#"):NEXT X
  329. 3290  GOSUB 30:RETURN
  330. 3300  REM
  331. 3310  REM ----------- Z ---------------
  332. 3320  REM
  333. 3330  A=20
  334. 3340  FOR X=1 TO 4:LPRINT STRING$(A,"#")TAB(64)STRING$(16,"#"):A=A+4:NEXT X
  335. 3350  A=20
  336. 3360  FOR X=1 TO 7
  337. 3370  LPRINT STRING$(16,"#")TAB(A)STRING$(16,"#")TAB(64)STRING$(16,"#")
  338. 3380  A=A+4:NEXT X
  339. 3390  B=32
  340. 3400  FOR X=1 TO 5:LPRINT STRING$(16,"#")TAB(A)STRING$(B,"#")
  341. 3410  A=A+4:B=B-4:NEXT X:GOSUB 30:RETURN
  342. 3420  REM ----- PICKING LETTERS -----
  343. 3430  CLS:LOCATE 12,1:PRINT "ENTER PHRASE TO BE PRINTED BELOW. USE CAPITAL LETTERS ONLY, PLEASE ":LOCATE 14,1:INPUT "",B$
  344. 3440  PRINT :PRINT B$:PRINT :INPUT  "IS THIS CORRECT (Y/N)? ",C$
  345. 3450  IF C$<>"Y" THEN 3430
  346. 3452  L=LEN(B$):FOR Z=1 TO L
  347. 3455  A$=MID$(B$,Z,1):GOTO 3460
  348. 3457  NEXT Z:
  349. 3460  IF Z=L+1 THEN LPRINT CHR$(12):END
  350. 3470  IF ASC(A$)=32 THEN GOSUB 50
  351. 3500  IF A$="A" THEN GOSUB 70
  352. 3510  IF A$="B" THEN GOSUB 200
  353. 3520  IF A$="C" THEN GOSUB 390
  354. 3530  IF A$="D" THEN GOSUB 540
  355. 3540  IF A$="E" THEN GOSUB 640
  356. 3550  IF A$="F" THEN GOSUB 730
  357. 3560  IF A$="G" THEN GOSUB 800
  358. 3570  IF A$="H" THEN GOSUB 980
  359. 3580  IF A$="I" THEN GOSUB 1050
  360. 3590  IF A$="J" THEN GOSUB 1120
  361. 3600  IF A$="K" THEN GOSUB 1270
  362. 3610  IF A$="L" THEN GOSUB 1430
  363. 3620  IF A$="M" THEN GOSUB 1490
  364. 3630  IF A$="N" THEN GOSUB 1640
  365. 3640  IF A$="Y" THEN GOSUB 3160
  366. 3650  IF A$="O" THEN GOSUB 1750
  367. 3660  IF A$="P" THEN GOSUB 1880
  368. 3670  IF A$="Q" THEN GOSUB 1980
  369. 3680  IF A$="R" THEN GOSUB 2180
  370. 3690  IF A$="S" THEN GOSUB 2360
  371. 3700  IF A$="T" THEN GOSUB 2530
  372. 3710  IF A$="U" THEN GOSUB 2600
  373. 3720  IF A$="V" THEN GOSUB 2670
  374. 3730  IF A$="W" THEN GOSUB 2800
  375. 3740  IF A$="X" THEN GOSUB 2950
  376. 3750  IF A$="Z" THEN GOSUB 3300
  377. 3760  GOTO 3457
  378.