10 REM Thousand Instruction 20 REM by M.Bobrowski 4'94 30 : 40 MODE7:VDU23;8202;0;0;0;:FORY%=1TO2:PRINTTAB(13,Y%)CHR$141CHR$129"THOUSAND":NEXT 50 PRINTTAB(1,9)CHR$134"Do you wish an instruction (Y/N) ? ";:REPEATG$=GET$:UNTILINSTR("YyNn",G$):IF INSTR("Nn",G$) THEN 260 60 PRINTTAB(5,24)CHR$131"Press SPACE BAR to continue";:VDU28,0,22,38,4 70 PRINTCHR$134"Thousand is a game played with a pack"'CHR$134"of 24 cards (from Aces to Nines). The"'CHR$134"values of the cards are as follows:"'CHR$129" Ace - 11, Ten - 10, King - 4,"'CHR$129" Queen - 3, Jack - 2, Nine - 0." 80 PRINTCHR$134"In this version, the computer plays"'CHR$134"one of the hands."''CHR$134"At the start of each round no trump"'CHR$134"suit is defined and six cards are"'CHR$134"dealt to both, the player and the" 90 PRINTCHR$134"computer. The rest of the cards"'CHR$134"turned face down constitutes a pile."''CHR$134"In each round, the opponents lay their";CHR$134"cards, one at a time, trying to win"'CHR$134"tricks."CHR$133"A card to be played or" 100 PRINTCHR$133"discarded is selected by pressing the"'CHR$133"number shown beneath it.";:REPEAT UNTIL GET=32:CLS 110 PRINTCHR$134"When replying the opponent's lead, a"'CHR$134"player always has to follow the suit,"'CHR$134"however, there is no need to lay a"'CHR$134"card with a higher value. If a player"'CHR$134"has no card of the suit of the lead," 120 PRINTCHR$134"then he must lay down a card of the"'CHR$134"current trump suit (of course, the"'CHR$134"latter rule applies to situations"'CHR$134"when a trump suit is defined - see"'CHR$134"below)." 130 PRINT'CHR$134"To fill the hands up to six cards,"'CHR$134"the player who wins a trick picks up"'CHR$134"the top card of the pack, and the"'CHR$134"other player gets the next one." 140 PRINTCHR$133"(This operation is done automatically"'CHR$133"by the computer).‡";:REPEATUNTILGET=32:CLS 150 PRINTCHR$134"Moreover, whoever wins a trick becomes";CHR$134"the lead for the next go."CHR$133"The order of";CHR$133"playing is checked by the computer and";CHR$133"displayed in the text window." 160 PRINT'CHR$134"When the pack is empty the round is"'CHR$134"continued with a decreasing number of"'CHR$134"cards, until no card remains in either";CHR$134"hand.";:REPEAT UNTILGET=32:CLS 170 PRINTCHR$134"When a player has"CHR$129"a pair"CHR$134"in his hand"'CHR$134"(the Queen and King of the same suit),";CHR$134"he should announce it"CHR$133"by leading with"'CHR$133"the Queen"CHR$134"which is a member of the" 180 PRINTCHR$134"pair"CHR$133"(just press the number displayed"'CHR$133"underneath the Queen in question)"CHR$134"and"'CHR$133"by pressing the Y key"CHR$134"in reply to the"'CHR$134"prompt that appears in the text"'CHR$134"window." 190 PRINTCHR$134"To announce a pair, the player has to"'CHR$134"win one trick at least.";:REPEATUNTILGET=32:CLS 200 PRINTCHR$134"There is a bonus for announcing a pair"CHR$134"and the number of points obtained"'CHR$134"depends on the suit of the pair:"''CHR$129"100 points "CHR$134"is awarded for the pair"'SPC12;CHR$134"of Heards," 210 PRINTCHR$129"80 points"CHR$134"- for the pair of Diamonds,"'CHR$129"60 points†- for the pair of Clubs,"'CHR$129"40 points†- for the pair of Spades." 220 PRINT'CHR$134"Furthermore, the suit of the pair"'CHR$134"announced"CHR$1129"becomes the trump suit"'CHR$134"until the end of a round, or unless"'CHR$134"other pair is announced by the player"'CHR$134"or by the computer in next goes." 230 PRINTCHR$133"The current trump suit is dispalyed"'CHR$133"in the text window.";:REPEATUNTILGET=32:CLS 240 PRINTCHR$134"When a round is over the values of the"CHR$134"cards in the tricks are summed up."'CHR$134"Additional points are obtained for"'CHR$134"each pair announced."''CHR$134"The first player to reach 1000 points" 250 PRINTCHR$134"is the winner. Usually several rounds"'CHR$134"have to be played to constitute a"'CHR$134"final winner of the game."'''SPC10;CHR$130"HAVE A GOOD LUCK!";:VDU26:PRINTTAB(25,24)"start ";:REPEAT UNTIL GET=32 260 PAGE=&1100:CHAIN"L305"