home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG021.ARK / BANNER.ASC < prev    next >
Text File  |  1984-04-29  |  3KB  |  93 lines
  1.  
  2.  
  3. 1 CLEAR 300
  4. 100 REM PROGRAM BY TOM KELLY TO PLOT WORDS ON TELETYPE
  5. 101 REM *************************10/24/75*****************************
  6. 103 DIM M(60,6),P(15)
  7. 104 PRINT "SIZE  (1-7)";
  8. 105 INPUT Z
  9. 106 PRINT "WHAT'S YOUR MESSAGE";
  10. 107 INPUT B$
  11. 108 PRINT 
  12. 109 PRINT "METHOD (1 OR 2)";
  13. 110 INPUT A
  14. 111 IF A<>2 THEN 114
  15. 112 PRINT " INPUT 2 OF YOUR CHARACTERS";
  16. 113 INPUT C$
  17. 114 PRINT:A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789<>=#+-*/\()[].,;:!"
  18. 115 A$=A$+"?&$%":REM "&" GIVES QUOTE
  19. 116 FOR N=1 TO 60: FOR N1=1 TO 6:READ M(N,N1):NEXT N1,N
  20. 117 FOR I=1 TO 9
  21. 118 LET T(I)=2^(I)-1
  22. 119 NEXT I
  23. 120 FOR I=1 TO LEN(B$)
  24. 121 FOR J=1 TO 60
  25. 122 IF MID$(A$,J,1)<>MID$(B$,I,1) THEN125
  26. 123 F=J
  27. 124 GOTO 126
  28. 125 NEXT J
  29. 126 FOR K=1 TO 6
  30. 127 LET X=M(F,K)
  31. 128 IF X=0 THEN 156
  32. 129 FOR Q=1 TO 9
  33. 130 IF T(Q)<X THEN 133
  34. 131 LET Y=Q
  35. 132 GOTO 134
  36. 133 NEXT Q
  37. 134 FOR L=1 TO 9
  38. 135 LET P(L)=X-2*INT(X/2)
  39. 136 LET X=INT(X/2)
  40. 137 NEXT L
  41. 138 FOR M=1 TO Z
  42. 139 FOR O=1 TO Y
  43. 140 IF P(O)=0 THEN 148
  44. 141 FOR Z1=1 TO Z
  45. 142 ON A GOTO 143,145
  46. 143 PRINT MID$(B$,I,1)MID$(B$,I,1);
  47. 144 GOTO 146
  48. 145 PRINT C$;
  49. 146 NEXT Z1
  50. 147 GOTO 152
  51. 148 FOR Z2=1 TO Z
  52. 150 PRINT "  ";
  53. 151 NEXT Z2
  54. 152 NEXT O
  55. 153 PRINT 
  56. 154 NEXT M
  57. 155 GOTO 158
  58. 156 PRINT
  59. 157 PRINT
  60. 158 NEXT K
  61. 159 NEXT I
  62. 160 PRINT :PRINT
  63. 161 DATA 511,264,264,264,511,0,511,273,273,273,238,0
  64. 162 DATA 511,257,257,257,387,0,511,257,257,257,254,0
  65. 163 DATA 511,273,273,273,257,0,511,272,272,256,256,0
  66. 164 DATA 511,257,273,273,415,0,511,16,16,16,511,0
  67. 165 DATA 0,257,511,257,0,0,3,1,1,1,511,0
  68. 166 DATA 511,16,40,68,387,0,511,1,1,1,1,0
  69. 167 DATA 511,96,24,96,511,0,511,96,24,6,511,0
  70. 168 DATA 511,257,257,257,511,0,511,272,272,272,496,0
  71. 169 DATA 511,257,261,259,511,0,511,272,272,272,239,0
  72. 170 DATA 499,273,273,273,415,0,256,256,511,256,256,0
  73. 171 DATA 510,1,1,1,510,0,496,12,3,12,496,0
  74. 172 DATA 511,12,48,12,511,0,387,204,48,204,387,0
  75. 173 DATA 384,96,31,96,384,0,259,269,313,353,385,0,0,0,0,0,0,0
  76. 174 DATA 511,263,313,449,511,0,0,129,511,1,0,0
  77. 175 DATA 391,265,281,273,225,0,387,273,273,273,495,0
  78. 176 DATA 496,16,16,16,511,0,499,273,273,273,270,0
  79. 177 DATA 511,273,273,273,415,0,384,263,280,352,384,0
  80. 178 DATA 238,273,273,273,238,0,499,273,273,273,511,0
  81. 179 DATA 16,40,40,68,68,0,68,68,40,40,16,0
  82. 180 DATA 40,40,40,40,40,0,40,124,40,124,40,0
  83. 181 DATA 16,16,124,16,16,0,16,16,16,16,16,0,68,40,254,40,68,0
  84. 182 DATA 3,14,56,224,384,0,384,224,56,14,3,0
  85. 183 DATA 0,56,198,387,257,0,257,387,198,56,0,0
  86. 184 DATA 0,511,257,257,0,0,0,257,257,511,0,0
  87. 185 DATA 0,0,1,1,0,0,0,0,2,3,0,0
  88. 186 DATA 0,0,130,131,0,0,0,0,130,130,0,0
  89. 187 DATA 0,0,509,509,0,0,128,256,269,285,224,0
  90. 188 DATA 0,448,0,448,0,0,0,0,448,0,0,0
  91. 189 DATA 499,273,511,273,415,0,387,398,312,483,487,0
  92. 190 WAIT 0,1,1:END
  93.