252____________________________________________

ELSE 'вариант отмены хода

IF ist% = isrc% THEN OK% = 1 END IF LOOP UNTIL OK% LOCATE jmark%, imark%: COLOR 14, 2: PRINT " ";

'стирание метки END IF END IF LOOP UNTIL ptrs(9) + ptrs(10) + ptrs(ll) + ptrs(12) = 52

'конец игры IF enough % = 0 THEN LOCATE 40: PRINT "ПОЗДРАВЛЯЮ!" SLEEP 2 COLOR 7, 0 CLS END

'показ карты drawcard:

IF card% < 0 THEN 'заготовка закрытой карты COLOR 5, 3 FOR i% = 1 ТО 7

IF i% MOD 2 > 0 THEN a(i%) = odd$ ELSE a(i%) = even$ NEXT i% ELSE

IF card% = 0 OR card% > 52 THEN 'заготовка пустого места IF card% > 52 THEN COLOR 10 ELSE COLOR 2 FOR i% = 1 TO 7: a(i%) = STRING$(7, 219): NEXT i% ELSE 'заготовка открытой карты FOR i% = 2 ТО 4: a(i%) = empty$: NEXT i% ranbr% = (card% - 1) MOD 13+1 rank$ = MID$("A234567890JQK", nmbr%, 1) IF ninbr% =10 THEN rank$ = "1" + rank$ IF ninbr% =10 THEN langth% = 4 ELSE length» = 5 suit$ = CHR$(3 + (card% - 1) \ 13) a(l) = suit$ + STRING$(length%, 249) + rank$ a(7) = rank$ + STRING$(length%, 249) + suit$ one$ = CHR$(249) + " " + suit$ + " " + CHR$(249) two$ = CHR$<249) + " " + suit$ + " " + suit$ + " " + CHR$<249)

thr$ == CHR$(249) + " " + suit$ + suit$ + suit$ + " " + CHR$(249)

IF card% < 27 THEN COLOR 4, 7 ELSE COLOR 0, 7 SELECT CASE ninbr% CASE 1 a(4) = one$ CASE 2 a(3) = one$ CASE 3 a(2) = one$: a(4) = one$ CASE 4 a(3) = two$ CASE 5 a(2) = two$: a(4) = one$ CASE 6 a(2) = two$: a(4) = two$ CASE 7 a (2) = two$: a (4) = thr$ CASE 8 a(2) = two$: a(3) = one$: a(4) = two$ CASE 9 a(2) = two$: a(3) = one$: a(4) = thr$ CASE 10: a(2) = thr$: a(3) = one$: a(4) = two$ CASE 11: a(4) = CHR$(249) + "JACK " + CHR$(249) CASE 12: a(4) = CHR$(249) + "QUEEN" + CHR$(249)