Star Micronics Delta

86 Delta User’s Manual

2020 LPRINT CHR$(27) CHR$(43) CHR$(27) CHR$(36)

CHR$(0) CHR$(27) CHR$(69) CHR$(30) 'Macro

instruction is used to select standard

characters, emphasized

2g3@ LPRINT CHR$(27) CHR$(42) CHR$(0)

'Load standard characters in RAM

2p14@ FOR I=1 TO 4

'This loop reads data for the four

2050 LPRINT CHR$(27) CHR$(42) CHR$(l);

'card suit characters and sends it

2jJ6@ FOR J=l TO 13 'to the printer

2070 READ X : LPRINT CHR$(X);

2(38@ NEXT J

2898 NEXT I

2100 LPRINT

2110 RETURN

2120 DATA 72,11,4,10,20,10,52,72,52,10,20,10,4

2130 DATA 83,11,16,8,20,8,86,41,86,8,20,8,16

2140 DATA 67,11,8,16,8,18,65,62,65,18,8,16,8

2150 DATA 68,11,8,0,28,0,62,65,62,0,28,0,8

3000 'Deal cards

3010 FOR CARD = 1 ~0 52

3920 X = INT(RND * 4 c 1)

3030 IF HAND(X)=13 THEN 3020 ELSE HAND(X)=HAND(X)+l

3040 DECK(CARD)=X

3050 NEXT CARD

3060 RETURN

4000 'Print four hands

4010 LPRINT CHR$(27) "!" CHR$(9) "NORTH"

4020 LPRINT CHR$(27) "$" CHR$(l) CHR$(27) CHR$(70)

4030 HAND = 1

4040 FOR SUIT = 0 TO

4050 LPRINT CHR$(9);

4060 GOSUB 4300

4070 LPRINT

4080 NEXT SUIT

4090 LPRINT CHR$(27) 'I!" "WEST" CHR$(9) CHR$(9)

"EAST"

4100 LPRINT CHR$(27) "$" CHR$(l) CHR$(27) CHR$(70)

4110 FOR SUIT = 0 TO

4120 HAND = 2

4130 GOSUB 4300

4140 LPRINT CHR$(9) CHR$(9);

4150 HAND = 3

4160 GOSUB 4300