0 PRINT CHR$(26):PRINT "IF YOU HAVE A NEC 8023A PRINTER, TYPE 0 RETURN AND THEN 1 RETURN.   SAVE THIS PROGRAM WITH THE TITLE OF NEC.BAS ,A.  LOAD BIGPRINT AND TYPE MERGE NEC.  THIS WILL CHANGE BIG PRINT TO WORK ON THE NEC."
1 PRINT:PRINT "YOU WILL NEED QUOTE MARKS BEFORE THE N IN NEC WHEN SAVING AND AFTER THE S IN BAS.  YOU WILL NEED THEM AGAIN BEFORE THE N IN NEC WHEN YOU MERGE NEC.":STOP
10 LPRINT CHR$(&H1B);"!":REM **THIS MAKES ENHANCED OR DARK PRINT ON THE NEC 8023
70 Z=STRING$(5,CHR$(196)):REM THIS MAKES A FANCY "&" SIGN ON THE NEC REPLACE WITH ONE FOR YOUR PRINTER
1360 LPRINT CHR$(&H1B);CHR$(&H51);:REM***THIS SETS THE NEC PRINTER TO SMALL (CONDENSED PRINT TO MAKE THE c RATHER THAN C FOR Mc
1420 LPRINT CHR$(&H1B);CHR$(&H4E);:REM THIS RETURNS YOU TO 10 CHARACTERS PER INCH ON THE NEC AFTER PRINTING c RATHER THAN C.
4480 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. 
4510 LPRINT TAB(K-1); STRING$(24-(2*K),CHR$(232));:REM THE CHR$(232) IS A SPADE SEE LINE 4480
4560 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
4590 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
4770 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 
4810 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
7370 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.
R$(233) IS A SMA