Prints a banner on a 2040 printer. Only understands upper case.
Content
Image Gallery
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"