home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / list / banner.lbr / BANNER.BZS / BANNER.BAS
BASIC Source File  |  1987-08-29  |  13KB  |  179 lines
  1. 10 PRINT CHR$(26):C$="X":B$=" "
  2. 20 X=1
  3. 30 DIM A$(30)
  4. 40 PRINT CHR$(26);:FOR X=1 TO 20:PRINT:NEXT:PRINT TAB(35)"BANNER":PRINT:PRINT:PRINT TAB(32)"By:  Nik Haus"
  5. 50 FOR X=1 TO 13:PRINT:NEXT:PRINT TAB(15)"type <S> to begin, any other key for instructions"
  6. 60 PRINT:PRINT
  7. 70 A$=INKEY$:IF A$="S" THEN PRINT CHR$(26);:GOTO 100
  8. 80 IF A$>CHR$(0) THEN 1690
  9. 90 GOTO 70
  10. 100 PRINT CHR$(30)
  11. 110 PRINT">";
  12. 120 ON ERROR GOTO 1780
  13. 130 A$(G)=INKEY$
  14. 140 IF A$(G)=CHR$(13) THEN 180
  15. 150 IF A$(G)=CHR$(8) THEN G=G-1:PRINT CHR$(8);:GOTO 130
  16. 160 IF A$(G)>CHR$(0) THEN PRINT A$(G);:G=G+1
  17. 170 GOTO 130
  18. 180 PRINT CHR$(30)
  19. 190 PRINT"> ";
  20. 200 FOR F=1 TO G
  21. 210 IF F=1 THEN PRINT A$(1);CHR$(8);:GOTO 230
  22. 220 PRINT A$(F-1);A$(F);CHR$(8);
  23. 230 IF A$(F)="A" THEN 580
  24. 240 IF A$(F)="B" THEN 640
  25. 250 IF A$(F)="C" THEN 680
  26. 260 IF A$(F)="D" THEN 730
  27. 270 IF A$(F)="E" THEN 780
  28. 280 IF A$(F)="F" THEN 800
  29. 290 IF A$(F)="G" THEN 830
  30. 300 IF A$(F)="H" THEN 890
  31. 310 IF A$(F)="I" THEN 900
  32. 320 IF A$(F)="J" THEN 930
  33. 330 IF A$(F)="K" THEN 960
  34. 340 IF A$(F)="L" THEN 1000
  35. 350 IF A$(F)="M" THEN 1010
  36. 360 IF A$(F)="N" THEN 1050
  37. 370 IF A$(F)="O" THEN 1070
  38. 380 IF A$(F)="P" THEN 1120
  39. 390 IF A$(F)="Q" THEN 1150
  40. 400 IF A$(F)="R" THEN 1200
  41. 410 IF A$(F)="S" THEN 1250
  42. 420 IF A$(F)="T" THEN 1310
  43. 430 IF A$(F)="U" THEN 1340
  44. 440 IF A$(F)="V" THEN 1380
  45. 450 IF A$(F)="W" THEN 1450
  46. 460 IF A$(F)="X" THEN 1530
  47. 470 IF A$(F)="Y" THEN 1580
  48. 480 IF A$(F)="Z" THEN 1650
  49. 490 IF A$(F)=CHR$(32) THEN 1640
  50. 500 RUN
  51. 510 FOR T=1 TO 4:FOR X=1 TO 78:LPRINT C$;:NEXT:LPRINT C$:NEXT
  52. 520 RETURN
  53. 530 FOR T=1 TO 4:FOR X=1 TO 73+T:LPRINT C$;:NEXT:LPRINT C$:NEXT
  54. 540 RETURN
  55. 550 FOR T=1 TO 4:FOR X=1 TO 78-T:LPRINT C$;:NEXT:LPRINT C$:NEXT
  56. 560 RETURN
  57. 570  FOR X=1 TO 10:LPRINT:NEXT:NEXT
  58. 580 GOSUB 530
  59. 590 GOSUB 510
  60. 600 FOR T=1 TO 14:FOR X=1 TO 19:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 20:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  61. 610 GOSUB 510
  62. 620 GOSUB 550
  63. 630 GOTO 570
  64. 640 GOSUB 510:GOSUB 510
  65. 650 FOR T=1 TO 10:FOR X=1 TO 16:LPRINT C$;:NEXT:FOR X=1 TO 16:LPRINT B$;:NEXT:FOR X=1 TO 16:LPRINT C$;:NEXT:FOR X=1 TO 15:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:LPRINT C$:NEXT
  66. 660 GOSUB 510:FOR T=1 TO 4:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 42-(2*T):LPRINT C$;:NEXT:FOR X=1 TO 2*T:LPRINT B$;:NEXT:FOR X=1 TO 37-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  67. 670 GOTO 570
  68. 680 FOR T=1 TO 4:FOR X=1 TO 4-T:LPRINT B$;:NEXT:FOR X=1 TO 71+(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT 
  69. 690 GOSUB 510:FOR T=1 TO 10:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 39:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  70. 700 FOR T=0 TO 3:FOR X=1 TO 30:LPRINT C$;:NEXT:FOR X=1 TO 19:LPRINT B$;:NEXT:FOR X=1 TO 30:LPRINT C$;:NEXT:LPRINT B$:NEXT
  71. 710 FOR T=1 TO 4:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 30-T:LPRINT C$;:NEXT:FOR X=1 TO 19:LPRINT B$;:NEXT:FOR X=1 TO 30-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  72. 720 GOTO 570
  73. 730 GOSUB 510:GOSUB 510
  74. 740 FOR T=1 TO 11:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 39:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  75. 750 FOR T=1 TO 3:FOR X=1 TO 20+T:LPRINT C$;:NEXT:FOR X=1 TO 39-(2*T):LPRINT B$;:NEXT:FOR X=1 TO 20+T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  76. 760 GOSUB 510:FOR T=1 TO 4:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  77. 770 GOTO 570
  78. 780 GOSUB 510:GOSUB 510:FOR T=1 TO 14:FOR X=1 TO 17:LPRINT C$;:NEXT:FOR X=1 TO 17:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:FOR X=1 TO 15:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:LPRINT B$:NEXT
  79. 790 GOTO 570
  80. 800 GOSUB 510:GOSUB 510:FOR T=1 TO 10:FOR X=1 TO 35:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:FOR X=1 TO 15:LPRINT B$;:NEXT:FOR X=1 TO 14:LPRINT C$;:NEXT:LPRINT B$:NEXT
  81. 810 FOR T=1 TO 5:FOR X=1 TO 65:LPRINT B$;:NEXT:FOR X=1 TO 14:LPRINT C$;:NEXT:LPRINT B$:NEXT
  82. 820 GOTO 570
  83. 830 FOR T=4 TO 1 STEP -1:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT:GOSUB 510
  84. 840 FOR T=1 TO 5:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 40:LPRINT B$;:NEXT:FOR X=1 TO 19:LPRINT C$;: NEXT: LPRINT B$:NEXT
  85. 850 FOR T=1 TO 10:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 10:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:FOR X=1 TO 15:LPRINT B$;:NEXT:FOR X=1 TO 19:LPRINT C$;:NEXT:LPRINT B$:NEXT
  86. 860 FOR T=1 TO 4:FOR X=1 TO 45:LPRINT C$;:NEXT:FOR X=1 TO 11:LPRINT B$;:NEXT:FOR X=1 TO 23:LPRINT C$;:NEXT:LPRINT B$:NEXT
  87. 870 FOR T=1 TO 4:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 45-(2*T):LPRINT C$;:NEXT:FOR X=1 TO 11+T:LPRINT B$;:NEXT:FOR X=1 TO 23-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  88. 880 GOTO 570
  89. 890 GOSUB 510:GOSUB 510:FOR T=1 TO 14:FOR X=1 TO 30:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:LPRINT B$:NEXT:GOSUB 510:GOSUB 510:GOTO 570
  90. 900 FOR T=1 TO 4:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 39:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  91. 910 GOSUB 510:GOSUB 510:FOR T=1 TO 4:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 39:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  92. 920 GOTO 570
  93. 930 FOR T=4 TO 1 STEP -1:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 25-T:LPRINT C$;:NEXT:LPRINT B$:NEXT:FOR T=1 TO 4:FOR X=1 TO 25:LPRINT C$;:NEXT:FOR X=1 TO 400:NEXT:LPRINT B$:NEXT
  94. 940 FOR T=1 TO 8:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 400:NEXT:LPRINT B$:NEXT
  95. 950 GOSUB 510:FOR T=1 TO 4:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-T:LPRINT C$;:NEXT:LPRINT B$:NEXT:GOTO 570
  96. 960 GOSUB 510:GOSUB 510:FOR T=1 TO 8 STEP 2:FOR X=1 TO 20+T:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  97. 970 FOR T=1 TO 10 STEP 2:FOR X=1 TO 28-T:LPRINT B$;:NEXT:FOR X=1 TO 20+(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  98. 980 FOR T=1 TO 18 STEP 2:FOR X=1 TO 18-T:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO (2*T):LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  99. 990 GOTO 570
  100. 1000 GOSUB 510:GOSUB 510:FOR T=1 TO 14:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 400:NEXT:LPRINT B$:NEXT:GOTO 570
  101. 1010 GOSUB 510:GOSUB 510
  102. 1020 FOR T=1 TO 20 STEP 2:FOR X=1 TO 60-T:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  103. 1030 FOR T=20 TO 1 STEP -2:FOR X=1 TO 60-T:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  104. 1040 GOSUB 510:GOSUB 510:GOTO 570
  105. 1050 GOSUB 510:GOSUB 510
  106. 1060 FOR T=1 TO 30 STEP 2:FOR X=1 TO 60-T:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT:GOSUB 510:GOSUB 510:GOTO 570
  107. 1070 FOR T=4 TO 1 STEP -1:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  108. 1080 GOSUB 510
  109. 1090 FOR T=1 TO 14:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 39:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  110. 1100 GOSUB 510:FOR T=1 TO 4:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  111. 1110 GOTO 570
  112. 1120 GOSUB 510:GOSUB 510:FOR T=1 TO 10:FOR X=1 TO 40:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:FOR X=1 TO 9:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:LPRINT B$:NEXT
  113. 1130 FOR T=1 TO 4: FOR X=1 TO 40+T:LPRINT B$;:NEXT:FOR X=1 TO 40-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  114. 1140 GOTO 570
  115. 1150 FOR T=4 TO 1 STEP -1:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  116. 1160 GOSUB 510
  117. 1170 FOR T=1 TO 8:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 39:LPRINT B$;:NEXT: FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  118. 1180 FOR T=1 TO 8 STEP 2:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 8-T:LPRINT B$;:NEXT:FOR X=1 TO 10:LPRINT C$;:NEXT:FOR X=1 TO 21+T:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  119. 1190 GOSUB 510:GOSUB 550:GOTO 570
  120. 1200 GOSUB 510:GOSUB 510
  121. 1210 FOR T=1 TO 10:FOR X=1 TO 25-T:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:FOR X=1 TO T-1:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:FOR X=1 TO 10:LPRINT B$;:NEXT:FOR X=1 TO 15:LPRINT C$;:NEXT:LPRINT B$:NEXT
  122. 1220 FOR T=1 TO 4:FOR X=1 TO 30-T:LPRINT C$;:NEXT:FOR X=1 TO 9+T:LPRINT B$;:NEXT:FOR X=1 TO 40:LPRINT C$;:NEXT:LPRINT B$:NEXT
  123. 1230 FOR T=1 TO 4:FOR X=1 TO 26-T:LPRINT C$;:NEXT:FOR X=1 TO 13+(2*T):LPRINT B$;:NEXT:FOR X=1 TO 40-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  124. 1240 GOTO 570
  125. 1250 FOR T=4 TO 1 STEP -1:FOR X=1 TO T-1:LPRINT B$;:NEXT:FOR X=1 TO 26-T::LPRINT C$;:NEXT:FOR X=1 TO 3+T:LPRINT B$;:NEXT:FOR X=1 TO 52-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  126. 1260 FOR T=1 TO 4:FOR X=1 TO 25:LPRINT C$;:NEXT:FOR X=1 TO 4:LPRINT B$;:NEXT:FOR X=1 TO 50 :LPRINT C$;:NEXT:LPRINT B$:NEXT
  127. 1270 FOR T=1 TO 10:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 9:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 10:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  128. 1280 FOR T=1 TO 4:FOR X=1 TO 49:LPRINT C$;:NEXT:FOR X=1 TO 5:LPRINT B$;:NEXT:FOR X=1 TO 25:LPRINT C$;:NEXT:LPRINT B$:NEXT
  129. 1290 FOR T=1 TO 4:FOR X=1 TO T-1:LPRINT B$;:NEXT:FOR X=1 TO 51-(2*T):LPRINT C$;:NEXT:FOR X=1 TO 4+T:LPRINT B$;:NEXT:FOR X=1 TO 26-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  130. 1300 GOTO 570
  131. 1310 GOSUB 1320:GOSUB 510:GOSUB 510:GOSUB 1320:GOTO 570
  132. 1320 FOR T=1 TO 10:FOR X=1 TO 59:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  133. 1330 RETURN
  134. 1340 FOR T=3 TO 0 STEP -1:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  135. 1350 GOSUB 510
  136. 1360 FOR T=1 TO 14:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:FOR X=1 TO 400:NEXT:NEXT
  137. 1370 GOSUB 510:FOR T=0 TO 3:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-T:LPRINT C$;:NEXT:LPRINT B$:NEXT:GOTO 570
  138. 1380 FOR T=70 TO 1 STEP -10:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  139. 1390 GOSUB 510
  140. 1400 FOR T=70 TO 10 STEP -10:FOR X=1 TO T+9:LPRINT C$;:NEXT:LPRINT B$:NEXT:FOR X=1 TO 400:NEXT
  141. 1410 FOR T=10 TO 70 STEP 10:FOR X=1 TO T+9:LPRINT C$;:NEXT:LPRINT B$:NEXT
  142. 1420 GOSUB 510
  143. 1430 FOR T=0 TO 70 STEP 10:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  144. 1440 GOTO 570
  145. 1450 FOR T=4 TO 1 STEP -1:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  146. 1460 GOSUB 510
  147. 1470 FOR T=1 TO 4:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  148. 1480 FOR T=1 TO 8:FOR X=1 TO 30:LPRINT C$;:NEXT:LPRINT B$:NEXT
  149. 1490 FOR T=1 TO 4:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  150. 1500 GOSUB 510
  151. 1510 FOR T=1 TO 4 :FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 79-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  152. 1520 GOTO 570
  153. 1530 FOR T=1 TO 20 STEP 2:FOR X=1 TO T-1:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 38-(2*T):LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  154. 1540 FOR T=1 TO 10 STEP 2:FOR X=1 TO 19+T:LPRINT B$;:NEXT:FOR X=1 TO 38-(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  155. 1550 FOR T=1 TO 10 STEP 2: FOR X=1 TO 27-T:LPRINT B$;:NEXT:FOR X=1 TO 22+(2*T):LPRINT C$;:NEXT:LPRINT B$:NEXT
  156. 1560 FOR T=20 TO 1 STEP -2:FOR X=1 TO T-3:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 42-(2*T):LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:LPRINT B$:NEXT
  157. 1570 GOTO 570
  158. 1580 FOR T=1 TO 4:FOR X=1 TO 4-T:LPRINT B$;:NEXT:FOR X=1 TO 17+T:LPRINT C$;:NEXT:FOR X=1 TO 23-T:LPRINT B$;:NEXT:FOR X=1 TO 35+T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  159. 1590 FOR T=1 TO 4:FOR X=1 TO 21:LPRINT C$;:NEXT:FOR X=1 TO 19:LPRINT B$;:NEXT:FOR X=1 TO 39:LPRINT C$;:NEXT:LPRINT B$:NEXT
  160. 1600 FOR T=1 TO 10:FOR X=1 TO 17:LPRINT C$;:NEXT:FOR X=1 TO 23 :LPRINT B$;:NEXT:FOR X=1 TO 16:LPRINT C$;:NEXT:LPRINT B$:FOR X=1 TO 400:NEXT:NEXT
  161. 1610 GOSUB 510
  162. 1620 FOR T=1 TO 4:FOR X=1 TO T-1:LPRINT B$;:NEXT:FOR X=1 TO 80-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  163. 1630 GOTO 570
  164. 1640 FOR X=1 TO 20:LPRINT:NEXT:GOTO 570
  165. 1650 FOR T=1 TO 10:FOR X=1 TO 30+T:LPRINT C$;:NEXT:FOR X=1 TO 30-T:LPRINT B$;:NEXT:FOR X=1 TO 19:LPRINT C$;:NEXT:LPRINT B$:NEXT
  166. 1660 FOR T=1 TO 20:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO T:LPRINT B$;:NEXT:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 20-T:LPRINT B$;:NEXT:FOR X=1 TO 19:LPRINT C$;:NEXT:LPRINT B$:NEXT
  167. 1670 FOR T=1 TO 10:FOR X=1 TO 20:LPRINT C$;:NEXT:FOR X=1 TO 20+T:LPRINT B$;:NEXT:FOR X=1 TO 39-T:LPRINT C$;:NEXT:LPRINT B$:NEXT
  168. 1680 GOTO 570
  169. 1690 PRINT CHR$(26);"BANNER             By: Nik Haus"
  170. 1720 PRINT:PRINT"Type a message of up to 30 letters (only CAPITAL letters, no symbols or":PRINT"numbers!) length, with one space at the very start to prepare the computer.":PRINT"If the space is forgotten, so is the first letter of your message!"
  171. 1730 PRINT:PRINT"If you make a mistake, hit the [backspace] until the first wrong letter":PRINT"flashes. Then retype your message from that letter."
  172. 1740 PRINT:PRINT"keep the [CAPS LOCK] on."
  173. 1745 PRINT:PRINT"** WARNING ** Letters are 80 spaces tall and 6";CHR$(34);" wide, so make shure":PRINT"you have enough paper!"
  174. 1746 PRINT:PRINT"The flashing letter is the one being printed."
  175. 1750 PRINT:PRINT"hit any key to go on";
  176. 1760 A$=INKEY$:IF A$>CHR$(0) THEN PRINT CHR$(26);:GOTO 100
  177. 1770 GOTO 1760
  178. 1780  PRINT"ERROR":FOR X=1 TO 5000:NEXT:RUN
  179.