86Delta User’s Manual
2020 LPRINT CHR$(27)CHR$(43)CHR$(27)CHR$(36) |
| |||
CHR$(0)CHR$(27)CHR$(69)CHR$(30) | 'Macro |
| ||
instructionis used to selectstandard |
| - | ||
characters,emphasized |
| |||
|
| |||
2g3@ LPRINTCHR$(27)CHR$(42)CHR$(0) |
| - | ||
'Loadstandardcharactersin RAM |
| |||
2p14@ FOR I=1 TO 4 |
|
|
| |
'Thisloop reads data for the four |
| - | ||
2050 LPRINTCHR$(27)CHR$(42)CHR$(l); |
|
| ||
'cardsuit charactersand sends it |
| - | ||
2jJ6@ | FOR J=l TO 13 | 'to the printer |
| |
|
| |||
2070 READ X : LPRINTCHR$(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 'Dealcards |
|
|
| |
3010 FOR CARD = 1 ~0 52 |
|
| ||
3920 X = INT(RND* 4 c 1) |
|
| ||
3030 IF HAND(X)=13THEN 3020 ELSE HAND(X)=HAND(X)+l |
| |||
3040 DECK(CARD)=X |
|
|
| |
3050 NEXT CARD |
|
| - | |
3060 RETURN |
|
|
| |
4000 'Printfour hands |
| - | ||
4010 LPRINTCHR$(27)"!" CHR$(9)"NORTH" |
| |||
|
| |||
4020 LPRINTCHR$(27)"$" CHR$(l)CHR$(27)CHR$(70) | - | |||
4030 HAND = 1 |
|
| ||
|
| - | ||
4040 FOR SUIT = 0 TO 3 |
|
| - | |
4050 LPRINTCHR$(9); |
|
| ||
4060 GOSUB 4300 |
|
|
| |
4070 LPRINT |
|
|
| |
4080 NEXT SUIT |
|
|
| |
4090 LPRINTCHR$(27)'I!""WEST"CHR$(9)CHR$(9) | - | |||
"EAST" |
|
| ||
|
|
| ||
4100 LPRINTCHR$(27)"$" CHR$(l)CHR$(27)CHR$(70) |
| |||
4110 FOR SUIT = 0 TO 3 |
|
|
| |
4120 HAND = 2 |
|
| - | |
4130 GOSUB 4300 |
|
| ||
4140 LPRINTCHR$(9)CHR$(9); |
|
| ||
4150 HAND = 3 |
|
| - | |
4160 | GOSUB 4300 |
|
|
|
