Banner

Source Code

   20 CLS : LET P$="": INPUT "MESSAGE?";M$
   30 FOR L=1 TO LEN M$: LET A$=M$(L TO L): PRINT A$;
   40 READ X$,L1,L2,L3,L4,L5: IF A$=X$ THEN GO TO 100
   50 GO TO 40
  100 LET X=L1: GO SUB 200
  110 LET X=L2: GO SUB 200
  120 LET X=L3: GO SUB 200
  130 LET X=L4: GO SUB 200
  140 LET X=L5: GO SUB 200
  150 LPRINT : LPRINT :: RESTORE : NEXT L : STOP 
  200 IF X-64>=0 THEN GO SUB 500: LET X=X-64: GO TO 220
  210 IF X-64<0 THEN GO SUB 510
  220 IF X-32>=0 THEN GO SUB 500: LET X=X-32: GO TO 240
  230 IF X-32<0 THEN GO SUB 510
  240 IF X-16>=0 THEN GO SUB 500: LET X=X-16: GO TO 260
  250 IF X-16<0 THEN GO SUB 510
  260 IF X-8>=0 THEN GO SUB 500: LET X=X-8: GO TO 280
  270 IF X-8<0 THEN GO SUB 510
  280 IF X-4>=0 THEN GO SUB 500: LET X=X-4: GO TO 300
  290 IF X-4<0 THEN GO SUB 510
  300 IF X-2>=0 THEN GO SUB 500: LET X=X-2: GO TO 320
  310 IF X-2<0 THEN GO SUB 510
  320 IF X-1>=0 THEN GO SUB 500
  330 IF X-1<0 THEN GO SUB 510
  340 LPRINT P$: LPRINT P$: LET P$="": RETURN 
  500 LET P$=P$+A$+A$+A$+A$: RETURN 
  510 LET P$=P$+"    ": RETURN 
 1000 DATA " ",0,0,0,0,0
 1010 DATA "A",124,18,17,18,124
 1020 DATA "B",65,127,73,73,54
 1030 DATA "C",62,65,65,65,34
 1040 DATA "D",65,127,65,65,62
 1050 DATA "E",127,73,73,65,65
 1060 DATA "F",127,9,9,1,1
 1070 DATA "G",62,65,65,73,121
 1080 DATA "H",127,8,8,8,127
 1090 DATA "I",0,65,127,65,0
 1100 DATA "J",32,64,64,64,63
 1110 DATA "K",127,8,20,34,65
 1120 DATA "L",127,64,64,64,64
 1130 DATA "M",127,2,12,2,127
 1140 DATA "N",127,2,4,8,127
 1150 DATA "O",62,65,65,65,62
 1160 DATA "P",127,9,9,9,6
 1170 DATA "Q",62,65,81,33,94
 1180 DATA "R",127,9,25,41,70
 1190 DATA "S",38,73,73,73,50
 1200 DATA "T",1,1,127,1,1
 1210 DATA "U",63,64,64,64,63
 1220 DATA "V",7,24,96,24,7
 1230 DATA "W",127,32,16,32,127
 1240 DATA "X",127,32,16,32,127
 1250 DATA "Y",3,4,120,4,3
 1260 DATA "Z",97,81,73,69,67
 1300 DATA "1",0,66,127,64,0
 1310 DATA "2",114,73,73,73,70
 1320 DATA "3",34,65,73,73,54
 1330 DATA "4",24,20,18,127,16
 1340 DATA "5",39,69,69,69,57
 1350 DATA "6",60,74,73,73,48
 1360 DATA "7",1,113,9,5,3
 1370 DATA "8",54,73,73,73,54
 1380 DATA "9",6,73,73,41,30
 1390 DATA 0,62,81,73,69,62
 9998 SAVE "BANNER"