Creating Your Own Characters a7
4170 LPRINT
4180 NEXT SUIT
4190 LPRINT CHR$(27) "!" CHR$(9) "SOUTH"
42jap; LPRINT CHR$(27) "$!I CHR$(l) CHR$(27) CHR$(70);
4210 HAND = 4
4220 FOR SUIT = 0 TO 3
4230 LPRINT CHR$(9);
4240 GOSUB 4300
4250 LPRINT
4260 NEXT SUIT
4270 LPRINT CHR$(27) "$" CHR$(@) CHR$(27) CHR$(70)
4280 RETURN
4290 'Print one line
4300 LPRINT SUIT$(SUIT);
4310 FOR CARD = 13 TO 1 STEP -1
4320 IF DECK(SUIT*13+CARD)=HAND THEN LPRINT
CARD$(CARD);
4330 NEXT CARD
4340 RETURN
Note that we didn’t have to re-enter the download characters,
since they were already sent to the printer with the previous pro-
gram. They will stay with the printer until you download new
characters to replace them or turn the printer off. Even the (ESC)
“@I” command, which initializes the printer, does not destroy the
contents of download RAM.
Figure 7-13. The card program shuffles, deals, and prints out a bridge hand.