Creating Your Own Characters

a7

4170 LPRINT

4180 NEXT SUIT

4190 LPRINTCHR$(27)"!" CHR$(9)"SOUTH" 42jap;LPRINTCHR$(27)"$!ICHR$(l)CHR$(27)CHR$(70); 4210 HAND = 4

4220 FOR SUIT = 0 TO 3

4230 LPRINTCHR$(9);

4240 GOSUB 4300

4250 LPRINT

4260 NEXT SUIT

4270 LPRINTCHR$(27)"$" CHR$(@)CHR$(27)CHR$(70) 4280 RETURN

4290 'Printone line

4300 LPRINTSUIT$(SUIT);

4310 FOR CARD = 13 TO 1 STEP -1

4320 IF DECK(SUIT*13+CARD)=HANDTHEN 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.

Page 99
Image 99
Star Micronics Delta user manual Lprintsuit$Suit