7 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
8 PRINT "PRINTER MUST BE TURNED ON TO WORK THIS PROGRAM!!!!"
9 LPRINT
10 WIDTH 50:PRINT CHR$(26):PRINT "STOP EVERYTHING!!!!  THIS IS SET UP FOR AN NEC  - 8023A"
20 PRINT " TO FIT YOUR PRINTER CHANGE LINES 80,160,1510,1570,4630,4660,4710,4740,4920,4960,7520,THEY EACH HAVE REMARK STATEMENTS TO TELL YOU WHAT THEY ARE FOR THE NEC 8023A PRINTER"
30 LINE INPUT "IF NOT SURE OF YOUR PRINTER CHR$ COMMANDS, TYPE ^C AND THEN RUN PRINTER.BAS  OTHERWISE PUSH >RETURN<";DUMMY$ 
40 PRINT CHR$(26):PRINT "IF THE PROGRAM IS NOW SET FOR YOUR PRINTER,   YOU MAY WANT TO DELETE LINES 10 THRU 60 AND   YOU  CAN SET YOUR OWN ENDING MESSAGE FROM THE KEY BOARD IN  THIS   UPDATE!":PRINT
50 LINE INPUT "READ THESE INSTRUCTIONS THEN PUSH RETURN:    THIS PROGRAM WILL WRITE A BANNER.  FIRST YOU TYPE IN THE BIG LETTERS OF THE MESSAGE AND THEN    THE LITTLE LETTERS WHICH GO IN EACH LETTER.";DUMMY$
60 PRINT CHR$(26):PRINT "  THIS PROPGRAM WAS DEVELOPED AND WRITTEN BY PETE DAVIS  AFTER GREAT EFFORT.      DONATIONS FOR HIS  HUNDREDS  HOURS OF WORK WILL BE WELECOME.  
70 PRINT:LINE INPUT "The author grants permission to copy this file on a not-for-profit basis.  No copies of this file maybe sold for profit execpt by the author.           PRESS RETURN TO START"; DUMMY$
80 LPRINT CHR$(&H1B);"!":REM **THIS MAKES ENHANCED OR DARK PRINT ON THE NEC 8023
90 GOSUB 7660
100 FOR K=5 TO 4550:NEXT K 
110 DEFSTR H:DIM H(60)
120 PRINT CHR$(26)
130 DEFINT K
140 DEFSTR A-E,Z
150 E="*":EE="**":EEE="***"
155 INPUT "IF YOU WANT A PERIOD BLOCK AT THE END, TYPE <YES>   OTHERWISE PUSH <RETURN>"; CHE$:IF LEFT$(CHE$,1)="Y" THEN GOSUB 20000
160 Z=STRING$(5,CHR$(196)):REM THIS MAKES A FANCY "&" SIGN ON THE NEC REPLACE WITH ONE FOR YOUR PRINTER
170 DIM AA(100)
180 PRINT:PRINT:PRINT "USE ALL CAPS LETTERS, ALL NUMBERS AND +,-,=,!,.,?,<,>,^,| FOR DOWN ARROW, @ FOR HEART we also have a small c.":PRINT:PRINT:PRINT
190 INPUT " WHAT BIG MESSAGE DO YOU WANT";MESS$
200 PRINT
210 FOR K=1 TO LEN(MESS$)
220 PRINT"STRING$ MESSAGE # "K"  YOU MUST USE CHARACTERS. NO BLANKS"
230 PRINT"IF YOU WANT TO REUSE OLD MESSAGES IN THE ORDER OF WHICH THEY WERE GIVEN -- TYPE >STOP< "
240 PRINT:PRINT "AFTER UP TO >9< CHARACTERS THEN TYPE >#<"
250 PRINT
260 IF MID$(MESS$,K,1)=" " OR MID$(MESS$,K,1)="." OR MID$(MESS$,K,1)="@" THEN PRINT "THERE ARE NO MESSAGES IN BLANKS, PERIODS, OR HEARTS  -- DO THE NEXT ONE:":GOTO 380
270 IF SF<>0 AND KK=KS THEN KK=0
280 IF SF<>0 THEN AA(K)=AA(KK):PRINT:PRINT:PRINT"YOUR MESSAGE IS:"AA(K):GOTO 330
290 INPUT;AA(K)
300 BLANK$=" ": IF INSTR(AA(K),BLANK$)<>0 THEN PRINT" YOU BLEW IT!!!!  NO BLANKS!!!!! TRY AGAIN BUSTER!!!":GOTO 220
310 PRINT:PRINT
320 IF RIGHT$(AA(K),1)="#" THEN GOTO 7360
330 IF AA(K)="STOP"   THEN SF=4:KS=K:KK=KK+1:GOTO 280
340 IF SF<>0 AND AA(K)="" THEN KK=KK+1:GOTO 270
350 IF SF<>0 THEN KK=KK+1:GOTO 390
360 PRINT:PRINT
370 IF LEN(AA(K))<>10 THEN PRINT"YOU MUST USE TEN LETTERS OR LESS THEN 10 FOLLOWED BY >#< ":PRINT:PRINT:PRINT:GOTO 290
380 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN RETURN      
390 NEXT K
400 FOR J=1 TO LEN(MESS$)
410 A=AA(J):Z=LEFT$(A,5):IF DUMMY$<>"" THEN 500
420 FOR K=1 TO LEN(MESS$) :IF K<24 THEN PRINT K"  ";: PRINT MID$(MESS$,K,1)"="AA(K)
430 IF K>23 THEN INPUT "PRESS ENTER TO CONTINUE";DUMMY:PRINT TAB(24);K" ";MID$(MESS$,K,1)"="AA(K)
440 NEXT K
450 IF FINI<>0 THEN END  ELSE IF DUMMY$="" THEN INPUT" IF THIS IS OK THEN  TYPE  >Y<  ELSE ^C AND START AGAIN     OR YOU CAN TYPE THE NUMBER OF THE LETTER ABOVE AND CORRECT";DUMMY$
460 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN GOSUB 7860
470 IF VAL(LEFT$(DUMMY$,2))>0 AND VAL(LEFT$(DUMMY$,2))<50 THEN DUMMY$="" :GOTO 400
480 LM=LEN(MESS$)
490 IF LEFT$(DUMMY$,1)<>"Y" THEN PRINT CHR$(26):PRINT "YOU HAVE "LM;:PRINT" SPACES LESS . AND HEART TRY AGAIN WITH "MESS$;:PRINT :PRINT:GOTO 200
500 FOR K=1 TO 8:LPRINT:NEXT K
510 IF MID$(MESS$,J,1)="A" THEN 1000:'IN
520 IF MID$(MESS$,J,1)=" " THEN FOR K=1 TO 20:LPRINT :NEXT K:GOTO 1260
530 IF MID$(MESS$,J,1)="B" THEN 1290
540 IF MID$(MESS$,J,1)="C" THEN 1520
550 IF MID$(MESS$,J,1)="c" THEN 1510
560 IF MID$(MESS$,J,1)="D" THEN 1590:' IN
570 IF MID$(MESS$,J,1)="E" THEN 2350:'IN
580 IF MID$(MESS$,J,1)="F" THEN 1890
590 IF MID$(MESS$,J,1)="G" THEN 2010:'IN
600 IF MID$(MESS$,J,1)="H" THEN 2130
610 IF MID$(MESS$,J,1)="I" THEN 2260:'IN
620 IF MID$(MESS$,J,1)="J" THEN 2470
630 IF MID$(MESS$,J,1)="K" THEN 2770:'IN
640 IF MID$(MESS$,J,1)="L" THEN 2850
650 IF MID$(MESS$,J,1)="M" THEN 2970:'IN
660 IF MID$(MESS$,J,1)="N" THEN 3150:'IN
670 IF MID$(MESS$,J,1)="O" THEN 1820
680 IF MID$(MESS$,J,1)="P" THEN 3300:'IN
690 IF MID$(MESS$,J,1)="Q" THEN 2660
700 IF MID$(MESS$,J,1)="R" THEN 4280:'IN
710 IF MID$(MESS$,J,1)="S" THEN 3480:'IN
720 IF MID$(MESS$,J,1)="T" THEN 3880:'IN
730 IF MID$(MESS$,J,1)="U" THEN 3690
740 IF MID$(MESS$,J,1)="V" THEN 3760
750 IF MID$(MESS$,J,1)="W" THEN 3970:'IN
760 IF MID$(MESS$,J,1)="X" THEN 4170
770 IF MID$(MESS$,J,1)="Y" THEN 4460:'IN
780 IF MID$(MESS$,J,1)="Z" THEN 6480
790 IF MID$(MESS$,J,1)="." THEN 4610:'IN
800 IF MID$(MESS$,J,1)="!" THEN 4690:'IN
810 IF MID$(MESS$,J,1)="+" THEN 4770:'IN
820 IF MID$(MESS$,J,1)="?" THEN 4860:'IN
830 IF MID$(MESS$,J,1)="-" THEN 5050:'IN
840 IF MID$(MESS$,J,1)="=" THEN 5100:'IN
850 IF MID$(MESS$,J,1)="3" THEN 5150:'IN
860 IF MID$(MESS$,J,1)="1" THEN 5300:'IN
870 IF MID$(MESS$,J,1)="2" THEN 5360:'IN
880 IF MID$(MESS$,J,1)="4" THEN 5500:'IN
890 IF MID$(MESS$,J,1)="8" THEN 5640:'IN
900 IF MID$(MESS$,J,1)="9" THEN 5890:'IN
910 IF MID$(MESS$,J,1)="5" THEN 6080:'IN
920 IF MID$(MESS$,J,1)="6" THEN 6270:'IN
930 IF MID$(MESS$,J,1)="0" THEN 1820
940 IF MID$(MESS$,J,1)="7" THEN 6610
950 IF MID$(MESS$,J,1)=">" THEN 6760
960 IF MID$(MESS$,J,1)="<" THEN 6860
970 IF MID$(MESS$,J,1)="^" THEN 6980
980 IF MID$(MESS$,J,1)="|" THEN 7140
990 IF MID$(MESS$,J,1)="@" THEN 7500
1000 REM A
1010 DEFSTR A
1020 IF A="" THEN A="ABCDEFGHIJ"
1030 FOR K=1 TO 2:LPRINT A:NEXT K
1040 FOR K=1 TO 3
1050 FOR KK= 1 TO 2
1060 LPRINT TAB(7*K+1)A
1070 NEXT KK
1080 NEXT K
1090 FOR K= 4 TO 8
1100 FOR KK=1 TO 2
1110 LPRINT TAB(18);A;:LPRINT TAB(7*K)A
1120 NEXT KK
1130 NEXT K
1140 FOR K=1 TO 2 :LPRINT TAB(18)A;:LPRINT TAB(63)A:NEXT K
1150 FOR K=8 TO 4 STEP -1
1160 FOR KK=1 TO 2
1170 LPRINT TAB(18)A;:LPRINT TAB(7*K)A
1180 NEXT KK
1190 NEXT K
1200 FOR K=3 TO 1 STEP -1
1210 FOR KK=1 TO 2
1220 LPRINT TAB(7*K)A
1230 NEXT KK
1240 NEXT K
1250 FOR K=1 TO 2:LPRINT A:NEXT K
1255 IF OP<>0 THEN END:'INPUT ;DUMMY
1260 NEXT J:FOR K=1 TO 18:LPRINT :NEXT K:PRINT"PROGRAM IS NOW COMPLETE!!!!!":LPRINT ED1$ :LPRINT ED2$:LPRINT ED3$:LPRINT ED4$:LPRINT ED5$:LPRINT ED6$:FOR K=1 TO 7:LPRINT :NEXT K
1270 FINI=7:GOSUB 7660
1280 INPUT "after you write your check, pust return";DUMMY$:FOR K=1 TO 180:NEXT K:OP=23:GOTO 420
1290 REM B
1300 DEFSTR X,Y
1310 FOR K=1 TO 4
1320 LPRINT Z;
1330 FOR KK=1 TO 7
1340 LPRINT A;
1350 NEXT KK
1360 LPRINT 
1370 NEXT K
1380 FOR K= 1 TO 6
1390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A
1400 NEXT K
1410 FOR K=1 TO 8
1420 IF K<10 THEN X=RIGHT$(A,K+4)  ELSE X=A 
1430 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A
1440 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A
1450 NEXT K
1460 FOR K=1 TO 3
1470 B=A+A+A:LPRINT TAB(9+(2*K));LEFT$(B,29-(4*K));
1480 LPRINT TAB(47+(2*K));:LPRINT LEFT$(B,20-(4*K))
1490 NEXT K
1500 GOTO 1260
1510 LPRINT CHR$(&H1B);CHR$(&H51);:REM***THIS SETS THE NEC PRINTER TO SMALL (CONDENSED PRINT TO MAKE THE c RATHER THAN C FOR Mc
1520 REM C
1530 GOSUB 7320
1540 FOR K=1 TO 18
1550 LPRINT A;:LPRINT TAB(65)A
1560 NEXT K
1570 LPRINT CHR$(&H1B);CHR$(&H4E);:REM **********THIS RETURNS YOU TO 10 CHARACTERS PER INCH ON THE NEC AFTER PRINTING c RATHER THAN C.
1580 GOTO 1260
1590 REM D
1600 FOR K=1 TO 4
1610 LPRINT LEFT$(A,5);
1620 FOR KK=1 TO 7
1630 LPRINT A;
1640 NEXT KK
1650 LPRINT 
1660 NEXT K
1670 IF FL<>0 THEN FL=0:STOP
1680 FOR K=1 TO 4
1690 LPRINT A;:LPRINT TAB(66);A
1700 NEXT K
1710 FOR K=1 TO 6
1720 FOR KK=1 TO 2
1730 LPRINT TAB(2*K)A;:LPRINT TAB((65-(2*K)))A
1740 NEXT KK
1750 NEXT K
1760 FOR KK=1 TO 2
1770 LPRINT TAB(18)A;:LPRINT TAB(65-(18))A
1780 NEXT KK
1790 FOR K= 1 TO 2:LPRINT TAB(22);A+A+A:NEXT K
1800 FOR K=1 TO 2:LPRINT TAB(27);A+A:NEXT K
1810 GOTO 1260
1820 REM O
1830 GOSUB 7320
1840 FOR K=1 TO 18
1850 LPRINT A;:LPRINT TAB(65)A
1860 NEXT K
1870 GOSUB 7330
1880 GOTO 1260
1890 REM F
1900 FOR K=1 TO 4
1910 LPRINT Z;
1920 FOR KK=1 TO 7
1930 LPRINT A;
1940 NEXT KK
1950 LPRINT 
1960 NEXT K
1970 FOR K=1 TO 14
1980 LPRINT TAB(33);A;:LPRINT TAB(66)A
1990 NEXT K
2000 GOTO 1260
2010 REM G
2020 GOSUB 7320
2030 FOR K=1 TO 10
2040 LPRINT A;:LPRINT TAB(65);A
2050 NEXT K
2060 FOR K=1 TO 5
2070 LPRINT A;:LPRINT TAB(21);A;:LPRINT TAB(65);A
2080 NEXT K
2090 FOR K=1 TO 4
2100 LPRINT A+A+A;:LPRINT TAB(65);A
2110 NEXT K
2120 GOTO 1260
2130 REM H
2140 FOR K=1 TO 4
2150 LPRINT Z;
2160 FOR KK=1 TO 7
2170 LPRINT A;
2180 NEXT KK
2190 LPRINT 
2200 NEXT K
2210 IF FL<>0 THEN FL=0:GOTO 1260
2220 FOR K=1 TO 15
2230 LPRINT TAB(33);A
2240 NEXT K
2250 FL=5:GOTO 2140
2260 REM I
2270 FOR K=1 TO 8
2280 LPRINT A;:LPRINT TAB(66);A
2290 NEXT K
2300 IF FL<>0 THEN FL=0:GOTO 1260
2310 FOR K=1 TO 4
2320 LPRINT "**";A+A+A+A+A+A+A;"***"
2330 NEXT K
2340 FL=5 :GOTO 2270
2350 REM E
2360 FOR K=1 TO 4
2370 LPRINT Z;
2380 FOR KK=1 TO 7
2390 LPRINT A;
2400 NEXT KK
2410 LPRINT 
2420 NEXT K
2430 FOR K=1 TO 15
2440 LPRINT A;:LPRINT TAB(33);A;:LPRINT TAB(66);A
2450 NEXT K
2460 GOTO 1260
2470 REM J
2480 FOR K=1 TO 4
2490 LPRINT TAB(5-K);A+A+A
2500 NEXT K
2510 FOR K=1 TO 12
2520 LPRINT A;:LPRINT TAB(66);A
2530 NEXT K
2540 FOR K=1 TO 4
2550 X$=Z
2560 LPRINT TAB(K);LEFT$(X$,6-K);
2570 FOR KK=1 TO 7
2580 LPRINT A;
2590 NEXT KK
2600 LPRINT 
2610 NEXT K
2620 FOR K=1 TO 9
2630 LPRINT TAB(66);A
2640 NEXT K
2650 GOTO 1260
2660 REM Q
2670 GOSUB 7320
2680 FOR K=1 TO 18
2690 LPRINT A;:IF K>10 THEN LPRINT TAB(56-2*K);A;
2700 LPRINT TAB(65)A
2710 NEXT K
2720 GOSUB 7330
2730 FOR K=14 TO 1 STEP-2
2740 LPRINT TAB(K)A
2750 NEXT K
2760 GOTO 1260
2770 REM K
2780 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K
2790 FOR L= 1 TO 8
2800 FOR LL=1 TO 2
2810 LPRINT TAB(30-(4*L));A;:LPRINT TAB(34+(4*L));A
2820 NEXT LL
2830 NEXT L
2840 GOTO 1260
2850 REM L
2860 FOR K=1 TO 4
2870 LPRINT Z;
2880 FOR KK=1 TO 7
2890 LPRINT A;
2900 NEXT KK
2910 LPRINT 
2920 NEXT K
2930 FOR K=1 TO 18
2940 LPRINT A
2950 NEXT K
2960 GOTO 1260
2970 REM M
2980 DEFSTR M
2990 M=A$
3000 FOR K=1 TO 4:LPRINT Z;:FOR KK=1 TO 7:LPRINT A;:NEXT KK:LPRINT :NEXT K
3010 IF F<>0 THEN F=0 :GOTO 3140
3020 FOR K=61 TO 26  STEP -5
3030 FOR KK=1 TO 2
3040 LPRINT TAB(K);M
3050 NEXT KK
3060 NEXT K
3070 FOR K=31  TO 65 STEP 5
3080 FOR KK=1 TO 2
3090 LPRINT TAB(K);M
3100 NEXT KK
3110 NEXT K
3120 F=4
3130 GOTO 3000
3140 GOTO 1260
3150 REM N
3160 FOR K=1 TO 4
3170 LPRINT Z;
3180 FOR KK=1 TO 7
3190 LPRINT A;
3200 NEXT KK
3210 LPRINT 
3220 NEXT K
3230 IF FL<>0 THEN FL=0:GOTO 1260
3240 FOR K=66 TO 1 STEP-7
3250 FOR KK=1 TO 2
3260 LPRINT TAB(K)A
3270 NEXT KK
3280 NEXT K
3290 FL=5:GOTO 3160
3300 REM P
3310 FOR K=1 TO 4
3320 LPRINT Z;
3330 FOR KK=1 TO 7
3340 LPRINT A;
3350 NEXT KK
3360 LPRINT 
3370 NEXT K
3380 FOR K= 1 TO 6
3390 LPRINT TAB(35);A;:LPRINT TAB(66);A
3400 NEXT K
3410 FOR K=1 TO 8
3420 LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A
3430 NEXT K
3440 FOR K=1 TO 3
3450 B=A+A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K))
3460 NEXT K
3470 GOTO 1260
3480 REM S
3490 DEFSTR X,Y,B
3500 B=A+A+A
3510 FOR K=1 TO 3
3520 LPRINT TAB(11-K)A;:LPRINT TAB(50-(2*K));:LPRINT LEFT$(B,10+(4*K))
3530 NEXT K
3540 FOR K=1 TO 8 
3550 X=A:Y=A
3560 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A
3570 NEXT K
3580 FOR K= 1 TO 6
3590 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A
3600 NEXT K
3610 FOR K=1 TO 8
3620 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A
3630 NEXT K
3640 B=A+A+A
3650 FOR K=1 TO 3
3660 LPRINT TAB(8+(2*K));:LPRINT LEFT$(B,30-(4*K));:LPRINT TAB(57-K)A
3670 NEXT K
3680 GOTO 1260
3690 REM U
3700 GOSUB 7340
3710 FOR K=1 TO 15
3720 LPRINT A
3730 NEXT K
3740 GOSUB 7350
3750 GOTO 1260
3760 REM V
3770 FOR K=65 TO 6 STEP -7
3780 FOR KK=1 TO 2
3790 LPRINT TAB(K)A
3800 NEXT KK
3810 NEXT K
3820 FOR K=2 TO 65 STEP 7
3830 FOR KK=1 TO 2
3840 LPRINT TAB(K)A
3850 NEXT KK
3860 NEXT K
3870 GOTO 1260
3880 REM T
3890 FOR K=1 TO 13
3900 LPRINT TAB(66);A
3910 NEXT K
3920 IF FL<>0 THEN FL=0:GOTO 1260
3930 FOR K=1 TO 4
3940 LPRINT "**";A+A+A+A+A+A+A;"***"
3950 NEXT K
3960 FL=5 :GOTO 3890
3970 REM W
3980 FOR K=1 TO 4
3990 LPRINT Z;
4000 FOR KK=1 TO 7
4010 LPRINT A;
4020 NEXT KK
4030 LPRINT 
4040 NEXT K
4050 IF FL<>0 THEN FL=0:GOTO 1260
4060 FOR K=1 TO 7
4070 FOR KK=1 TO 2
4080 LPRINT TAB(5*K)A
4090 NEXT KK
4100 NEXT K
4110 FOR K= 1 TO 6
4120 FOR KK=1 TO 2
4130 LPRINT TAB(35-(5*K))A
4140 NEXT KK
4150 NEXT K
4160 FL=5:GOTO 3980
4170 REM X
4180 FOR K=0 TO 29 STEP 3
4190 LPRINT TAB(K)A;:LPRINT TAB(66-K)A
4200 NEXT K
4210 FOR K=1 TO 2
4220 LPRINT TAB(28)A+A
4230 NEXT K
4240 FOR K=1 TO 29 STEP 3
4250 LPRINT TAB(28-K);A;:LPRINT TAB(38+K);A
4260 NEXT K
4270 GOTO 1260
4280 REM R
4290 FOR K=1 TO 4
4300 LPRINT Z;
4310 FOR KK=1 TO 7
4320 LPRINT A;
4330 NEXT KK
4340 LPRINT 
4350 NEXT K
4360 FOR K= 1 TO 6
4370 LPRINT TAB(27-2*K);A;:LPRINT TAB(35);A;:LPRINT TAB(66);A
4380 NEXT K
4390 FOR K=1 TO 8
4400 LPRINT TAB(15-2*K);A;:LPRINT TAB(K+34)A;:LPRINT TAB(66-K)A
4410 NEXT K
4420 FOR K=1 TO 3
4430 B=A+A:LPRINT TAB(43+(2*K));LEFT$(B,24-(4*K))
4440 NEXT K
4450 GOTO 1260
4460 REM Y
4470 FOR K=65 TO 35 STEP -6
4480 FOR KK=1 TO 2
4490 LPRINT TAB(K);A
4500 NEXT KK
4510 NEXT K
4520 FOR K=1 TO 3
4530 LPRINT A+A+A+A
4540 NEXT K
4550 FOR K=35 TO 65 STEP 6
4560 FOR KK=1 TO 2
4570 LPRINT TAB(K);A
4580 NEXT KK
4590 NEXT K
4600 GOTO 1260
4610 REM .
4620 FOR K = 2 TO 10 STEP 2
4630 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:REM***THIS PRINTS THE SPADE SYMBOL ON AS ON A 4 OF SPADES ON CARDS.  REPLACE WITH THE SYMBOL OF YOUR CHOICE ON YOUR PRINTER. 
4640 NEXT K
4650 FOR K=2 TO 12 STEP 2
4660 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:REM THE CHR$(232) IS A SPADE SEE LINE 4480
4670 NEXT K
4680 GOTO 1260
4690 REM !
4700 FOR K = 2 TO 10 STEP 2
4710 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480
4720 NEXT K
4730 FOR K=2 TO 12 STEP 2
4740 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:LPRINT TAB(35);A+A+A+A:REM THE CHR$(232) IS A SPADE SEE LINE 4480
4750 NEXT K
4760 GOTO 1260
4770 REM +
4780 FOR K=1 TO 10
4790 LPRINT TAB(21)A+A
4800 NEXT K
4810 IF FL<>0 THEN FL=0:GOTO 1260
4820 FOR K= 1 TO 10
4830 LPRINT A+A+A+A+A+A
4840 NEXT K
4850 FL=3:GOTO 4780
4860 REM ?
4870 FOR K=55 TO 65 STEP 2
4880 LPRINT TAB(K);A
4890 NEXT K
4900 REM !
4910 FOR K = 1 TO 10 STEP 2
4920 LPRINT TAB(11-K); STRING$(2*K,CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480 
4930 NEXT K
4940 FOR K=1 TO 11 STEP 2
4950 IF K=1 THEN T=22 ELSE T=24
4960 LPRINT TAB(K-1); STRING$(T-(2*K),CHR$(232));:LPRINT TAB(29)"??"A+A;:LPRINT TAB(65)A:REM CHR$(232) IS A SPADE SEE LINE 4480
4970 NEXT K
4980 FOR K=1 TO 6
4990 LPRINT TAB(40+K);A;:LPRINT TAB(66-K)A
5000 NEXT K
5010 FOR K=1 TO 4
5020 LPRINT TAB(47+K);STRING$(23-2*K,"?")
5030 NEXT K
5040 GOTO 1260
5050 REM-
5060 FOR K=1 TO 23
5070 LPRINT TAB(20)A+A
5080 NEXT K
5090 GOTO 1260
5100 REM =
5110 FOR K=1 TO 23
5120 LPRINT TAB(15)A+A;:LPRINT TAB(45);A+A
5130 NEXT K
5140 GOTO 1260
5150 REM 3
5160 DEFSTR X,Y
5170 FOR K= 1 TO 6
5180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A
5190 NEXT K
5200 FOR K=1 TO 8
5210 IF K<10 THEN X=RIGHT$(A,K+4)  ELSE X=A 
5220 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A
5230 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A
5240 NEXT K
5250 FOR K=1 TO 3
5260 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"3");
5270 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"3")
5280 NEXT K
5290 GOTO 1260
5300 REM 1
5310 FOR K=1 TO 2:LPRINT TAB(66)A:NEXT K
5320 FOR K= 1 TO 5
5330 LPRINT"11"A+A+A+A+A+A+A"111"
5340 NEXT K
5350 GOTO 1260
5360 REM 2
5370 FOR K= 1 TO 8
5380 LPRINT A"2"STRING$(K,"2");:LPRINT TAB(47+2*K)A
5390 NEXT K
5400 FOR K= 1 TO 7
5410 LPRINT A"2";:LPRINT TAB(10+2*K)A;:LPRINT TAB(65)A
5420 NEXT K
5430 FOR K= 1 TO 8
5440 LPRINT A"2";:LPRINT TAB(25+2*K)A;:LPRINT TAB(67-2*K)A
5450 NEXT K
5460 FOR K= 1 TO 3
5470 LPRINT A"2";:LPRINT TAB(41+2*K);STRING$(20-4*K,"2")
5480 NEXT K
5490 GOTO 1260
5500 REM 4
5510 FOR K=1 TO 4
5520 LPRINT TAB(33)A+A+A+A
5530 NEXT K
5540 FOR K= 1 TO 10
5550 LPRINT TAB(33)A
5560 NEXT K
5570 FOR K=1 TO 4
5580 LPRINT"44"A+A+A+A+A+A+A"444"
5590 NEXT K
5600 FOR K= 1 TO 10
5610 LPRINT TAB(33)A
5620 NEXT K
5630 GOTO 1260
5640 WIDTH 80
5650 REM 8
5660 DEFSTR X,Y
5670 FOR K=1 TO 3
5680 LPRINT TAB(16-2*K);STRING$(13+(4*K),"8");
5690 LPRINT TAB(55-(2*K));:LPRINT STRING$(5+(4*K),"8")
5700 NEXT K
5710 FOR K=1 TO 8 
5720 IF K>1 THEN X=RIGHT$(A,13-K) ELSE X=A
5730 IF K>1 THEN Y=LEFT$(A,13-K) ELSE Y=A
5740 LPRINT TAB(8-K)A;:LPRINT TAB(26+K);Y;:LPRINT TAB(48-K)X;:LPRINT TAB(57+K)A
5750 NEXT K
5760 FOR K= 1 TO 6
5770 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A
5780 NEXT K
5790 FOR K=1 TO 8
5800 IF K<10 THEN X=RIGHT$(A,K+4)  ELSE X=A 
5810 IF K<10 THEN Y=LEFT$(A,K+4) ELSE Y=A
5820 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(K+39)X;:LPRINT TAB(66-K)A
5830 NEXT K
5840 FOR K=1 TO 3
5850 LPRINT TAB(9+(2*K));STRING$(29-(4*K),"8");
5860 LPRINT TAB(47+(2*K));:LPRINT STRING$(20-(4*K),"8")
5870 NEXT K
5880 GOTO 1260
5890 REM 9
5900 DEFSTR X,Y
5910 FOR K=1 TO 3
5920 LPRINT TAB(50-(2*K));:LPRINT STRING$(10+(4*K),"9")
5930 NEXT K
5940 FOR K=1 TO 8 
5950 X=A:Y=A
5960 LPRINT TAB(43-K)X;:LPRINT TAB(57+K)A
5970 NEXT K
5980 FOR K= 1 TO 6
5990 LPRINT TAB(35);A;:LPRINT TAB(66);A
6000 NEXT K
6010 FOR K=1 TO 5
6020 LPRINT TAB(36+K);Y;:LPRINT TAB(66-K)A
6030 NEXT K
6040 FOR K=1 TO 4
6050 LPRINT A+A+A+A+A+A+A
6060 NEXT K
6070 GOTO 1260
6080 REM 5
6090 DEFSTR X,Y
6100 FOR K=1 TO 4
6110 LPRINT TAB(12-K)A;:LPRINT TAB(47-K);STRING$(K-1,"5");:LPRINT TAB(46);:LPRINT A+A+A
6120 NEXT K
6130 FOR K=1 TO 7
6140 X=A:Y=A
6150 LPRINT TAB(8-K)A;:LPRINT TAB(43-K)X;:LPRINT TAB(66)A
6160 NEXT K
6170 FOR K= 1 TO 6
6180 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A
6190 NEXT K
6200 FOR K=1 TO 8
6210 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66)A
6220 NEXT K
6230 FOR K=1 TO 3
6240 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"5");:LPRINT TAB(66)A
6250 NEXT K
6260 GOTO 1260
6270 REM 6
6280 DEFSTR X,Y
6290 K=0:GOSUB 6310
6300 FOR K=2 TO 4
6310 LPRINT TAB(12-K)A+A+A+A;:LPRINT TAB(52-(K));:LPRINT STRING$(11+(2*K),"6")
6320 IF K=0 THEN RETURN
6330 NEXT K
6340 FOR K=1 TO 8 
6350 X=A:Y=A
6360 LPRINT TAB(8-K)A;:LPRINT TAB(35)X;:LPRINT TAB(57+K)A
6370 NEXT K
6380 FOR K= 1 TO 6
6390 LPRINT;A;:LPRINT TAB(35);A;:LPRINT TAB(66);A
6400 NEXT K
6410 FOR K=1 TO 8
6420 LPRINT TAB(K)A;:LPRINT TAB(36-K);Y;:LPRINT TAB(66-K)A
6430 NEXT K
6440 FOR K=1 TO 3
6450 LPRINT TAB(8+(2*K));STRING$(30-(4*K),"6");:LPRINT TAB(57-K)A
6460 NEXT K
6470 GOTO 1260
6480 REM Z
6490 DEFSTR B
6500 B=LEFT$(A,5)
6510 LPRINT A;:LPRINT TAB(66);A
6520 LPRINT A+B;:LPRINT TAB(66);A
6530 FOR K=1 TO 10
6540 FOR KA=1 TO 3
6550 LPRINT A;:LPRINT TAB(6+(5*K));A;:LPRINT TAB(66);A
6560 NEXT KA
6570 NEXT K
6580 LPRINT A;:LPRINT TAB(61);A+B
6590 LPRINT A;:LPRINT TAB(66);A
6600 GOTO 1260
6610 REM 7
6620 DEFSTR B
6630 B=LEFT$(A,5)
6640 FOR K=1 TO 3
6650 LPRINT A;:LPRINT TAB(61);A+B
6660 NEXT K
6670 FOR K=1 TO 9
6680 FOR KA=1 TO 3
6690 LPRINT TAB((6*K));A;:LPRINT TAB(66);A
6700 NEXT KA
6710 NEXT K
6720 FOR K=1 TO 3
6730 LPRINT TAB(56);A+A
6740 NEXT K
6750 GOTO 1260
6760 REM =>
6770 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*"
6780 B=A+A:B=B+B
6790 FOR K= 1 TO 20
6800 LPRINT TAB(23);A+A
6810 NEXT K
6820 FOR K=20 TO 1 STEP -1
6830 LPRINT TAB(33-K);LEFT$(B,2*K)
6840 NEXT K
6850 GOTO 1260
6860 REM =>
6870 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*"
6880 B=A+A:B=B+B
6890 GOTO 6940
6900 FOR K= 1 TO 20
6910 LPRINT TAB(23);A+A
6920 NEXT K
6930 GOTO 1260
6940 FOR K=1 TO 20
6950 LPRINT TAB(33-K);LEFT$(B,2*K)
6960 NEXT K
6970 GOTO 6900
6980 REM ^
6990 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*"
7000 B=A+A+A:B=B+B
7010 FOR K= 1 TO 16
7020 IF K>12 THEN GOSUB 7130
7030 LPRINT TAB(40);;LEFT$(B,2*K)
7040 NEXT K
7050 LPRINT LEFT$(A,3)+B+A
7060 LPRINT LEFT$(A,5)+B+A
7070 LPRINT LEFT$(A,3)+B+A
7080 FOR K=1 TO 16
7090 IF K<5 THEN GOSUB 7130
7100 LPRINT TAB(40);LEFT$(B,34-2*K)
7110 NEXT K
7120 GOTO 1260
7130 LPRINT A+A+A+LEFT$(A,9);:RETURN
7140 REM \|/
7150 DEFSTR A,B:IF A="" THEN A="PHDEEDMDR*"
7160 B=A+A+A:B=B+B
7170 FOR K=1 TO 17
7180 IF K<12 THEN LPRINT TAB(35-2*K);;LEFT$(B,2*K)
7190 IF K>13 THEN LPRINT TAB(39-2*K);LEFT$(B,2*K);
7200 IF K>13 THEN GOSUB 7300
7210 NEXT K
7220 LPRINT TAB(3)LEFT$(A,4)+B+A
7230 LPRINT LEFT$(A,6)+B+A
7240 LPRINT TAB(3)LEFT$(A,4)+B+A
7250 FOR K=1 TO 16
7260 IF K<5 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K);:GOSUB 7310
7270 IF K>4 THEN LPRINT TAB(3+2*K);LEFT$(B,32-2*K)
7280 NEXT K
7290 GOTO 1260
7300 LPRINT TAB(39);A+A+A+LEFT$(A,8):RETURN
7310 LPRINT TAB(35);LEFT$(A,2)+A+A+A+A:RETURN
7320 B=A+A:FOR K=1 TO 4 :LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,6+2*K):NEXT K:RETURN
7330 B=A+A:FOR K=1 TO 4 :LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,16-2*K):NEXT K:RETURN
7340 B=A+A:FOR K=1 TO 4:LPRINT TAB(5-K);A+A+A+A+A+A+LEFT$(B,13+K):NEXT K:RETURN
7350 B=A+A:FOR K=1 TO 4:LPRINT TAB(K);A+A+A+A+A+A+LEFT$(B,18-K):NEXT K:RETURN
7360 AA(K)=LEFT$(AA(K),LEN(AA(K))-1)
7370 M=LEN(AA(K))
7380 ON M GOTO 7390,7400,7410,7420,7430,7440,7450,7460,7470,370
7390 AA(K)=E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K)+E+AA(K):GOTO 370
7400 AA(K)=EE+AA(K)+E+AA(K)+E+AA(K):GOTO 370
7410 AA(K)=EE+AA(K)+EE+AA(K):GOTO 370
7420 AA(K)=E+AA(K)+E+AA(K):GOTO 370
7430 AA(K)=EE+EEE+AA(K):GOTO 370
7440 AA(K)=E+EEE+AA(K):GOTO 370
7450 AA(K)=EEE+AA(K):GOTO 370
7460 AA(K)=EE+AA(K):GOTO 370
7470 AA(K)=E+AA(K):GOTO 370
7480 GOTO 370
7490 REM HEART
7500 REM
7510 FOR K=1 TO 52
7520 H(K)=STRING$(K,CHR$(233)):REM ***ON THE NEC THE CHR$(233) IS A SMALL HEART WHICH IS USED IN THE HEART--IF YOU DON'T HAVE ONE ON YOUR PRINTER SUBSTITUE THE CHR$ OF YOUR CHOICE.
7530 NEXT K
7540 FOR K=1 TO 13
7550 IF K>0 THEN K1=K+1:IF K>7 THEN K1=16-K
7560 IF K>10 THEN KA=10 ELSE KA=K
7570 LPRINT TAB(50-2*K)H(5+2*KA);H(K1)
7580 NEXT K
7590 FOR K=1 TO 12
7600 IF K<6 THEN K1=4+K-1
7610 IF K>5 THEN K1=14-K
7620 IF K=1 THEN KB=2 ELSE KB=K
7630 IF K<3 THEN LPRINT TAB(24+2*K)H(23+KB);H(K1) ELSE LPRINT TAB(24+2*K)H(31-2*K); H(K1)
7640 NEXT K
7650 GOTO 1260
7660 PRINT STRING$(50,"*")
7670 FOR K=1 TO 13
7680 IF K=5 THEN GOSUB 7760
7690 IF K=6 THEN GOSUB 7790
7700 IF K=8 THEN GOSUB 7810
7710 IF K=10 THEN GOSUB 7840
7720 PRINT "*";:PRINT TAB(50)"*"
7730 NEXT
7740 PRINT STRING$(50,"*")
7750 IF FINI=0 THEN GOTO 100 ELSE GOTO 1280
7760 PRINT"*       BANNER PRINTER";:PRINT TAB(50)"*"
7770 PRINT"*            **BY**";:PRINT TAB(50)"*"
7780 RETURN
7790 PRINT"*                PETER H. DAVIS";:PRINT TAB(50)"*"
7800 RETURN
7810 PRINT"*       2610 EAST CAMERON AVE.";:PRINT TAB(50)"*"
7820 PRINT"*       WEST COVINA, CA. 91791";:PRINT TAB(50)"*"
7830 RETURN
7840 PRINT"*       IF THIS PROGRAM IS A HELP--";:PRINT TAB(50)"*"
7850 PRINT"*       PLEASE SEND $10 TO HELP WITH COSTS";:PRINT TAB(50)"*":RETURN
7860 K=VAL(DUMMY$)
7870 GOSUB 240
7880 RETURN
20000 PRINT CHR$(26):PRINT " YOU WILL HAVE  6 LINES FOR THIS  PERIOD  BLOCK I SUGGEST THAT YOU FILL IN WITH <*> TO MAKE THE LINE 15 SPACES LONG.":INPUT "FIRST LINE UP TO 16 SPACES";ED1$
20001 INPUT "SECOND LINE UP TO 16 SPACES";ED2$
20010 INPUT "THIRD LINE UP TO 16 SPACES";ED3$
20020 INPUT "FOURTH LINE UP TO 16 SPACES";ED4$
20050 INPUT "FIFTH LINE UP TO 16 SPACES";ED5$
20060 INPUT "SIXTH LINE UP TO 16 SPACES";ED6$
20070 RETURN
O 16 SPACES";ED4$
20050 INPUT "FIFTH LINE UP TO 16 SPACES";ED5$
20060 INPUT "SIXTH LINE UP TO 16 SPACES";ED6$
20070 RETURN
