home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / BRIDGE.HANDS.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  1.1 KB  |  32 lines
  1. 10  REM **********************
  2. 20  REM *    BRIDGE.HANDS    *
  3. 30  REM *  BY LOREN WRIGHT   *
  4. 40  REM * COPYRIGHT (C) 1986 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  PRINT  CHR$(4)"BRUN SUPER.SORT"
  9. 90 C$ = "AKQJT98765432":S$ = "SHDC"
  10. 100  DIM DL(52),D%(52),VP(3),HP(3)
  11. 110  FOR I = 0 TO 3: READ VP(I),HP(I): NEXT 
  12. 120  REM  CREATE RANDOM DECK
  13. 130  FOR I = 1 TO 52:DL(I) =  RND(1):D%(I) = I: NEXT 
  14. 140  REM  SORT FP ARRAY WITH INT TAGALONGS
  15. 150  & DL,1,52,D%
  16. 160  REM  SORT EACH HAND
  17. 170  FOR H = 0 TO 3:F = 13 *H +1:L = F +12: & D%,F,L: NEXT 
  18. 180  REM  DISPLAY FOUR HANDS
  19. 190  GOSUB 310
  20. 200  FOR H = 0 TO 3
  21. 210 SL = 0
  22. 220  VTAB VP(H): HTAB HP(H)
  23. 230  FOR C = 1 TO 13
  24. 240 X = D%(13 *H +C)
  25. 250 S =  INT((X -1)/13): IF S < >SL  THEN  VTAB VP(H) +S: HTAB HP(H):SL = S
  26. 260  PRINT  MID$ (C$,X -13 *S,1);
  27. 270  NEXT C: PRINT : NEXT H
  28. 280  INPUT "ANOTHER? ";YN$: IF YN$ = "Y"  THEN 130
  29. 290  END 
  30. 300  REM  PRINT SUIT LETTERS
  31. 310  HOME : FOR H = 0 TO 3: VTAB VP(H): FOR S = 1 TO 4: HTAB HP(H) -2: PRINT  MID$ (S$,S,1): NEXT S,H: RETURN 
  32. 320  DATA 1,15,9,3,9,28,18,15