home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE28.MSA / GIVEAWAY.028_DEANO_DEANO.ZIP / GIN_RUM.BAS (.txt) < prev    next >
Atari STOS Basic  |  2004-10-01  |  115KB  |  135 lines
  1. 10 KEY
  2. 100 REM SHOW PLAYERS CARDS
  3. 1000 REM COMPUTERS WINNING HANDS
  4. 1010 DATA
  5. 1020 DATA
  6. 1030 DATA
  7. 1040 DATA
  8. 1050 DATA
  9. 1060 DATA
  10. 1070 DATA
  11. 1080 DATA
  12. 1090 DATA
  13. 110 VARNAME
  14. 1100 DATA
  15. 1110 DATA
  16. 1120 DATA
  17. 1130 DATA
  18. 1140 DATA
  19. 1150 DATA
  20. 120 FOR
  21. 130 SPRITE
  22. 140 LOCATE
  23. 150 SHOW
  24. 153 VARNAME
  25. 154 VARNAME
  26. 156 WAIT VBL
  27. 160 IF
  28. 170 IF
  29. 180 IF
  30. 190 IF
  31. 195 IF
  32. 196 IF
  33. 197 GOTO
  34. 20 DIM
  35. 200 REM TAKE A CARD
  36. 210 LOCATE
  37. 220 WAIT
  38. 222 WAIT VBL
  39. 225 IF
  40. 230 IF
  41. 235 IF
  42. 240 LOCATE
  43. 25 EXTENSION (Index #0) (Token 0x80)
  44. 250 WAIT
  45. 26 FOR
  46. 260 IF
  47. 27 READ
  48. 270 REM REPLACE A CARD
  49. 28 NEXT
  50. 280 LOCATE
  51. 290 WAIT
  52. 30 EXTENSION (Index #0) (Token 0x80)
  53. 300 REM REPLACE CHOSEN CARD
  54. 310 VARNAME
  55. 320 SWAP
  56. 40 VARNAME
  57. 400 REM SORT OUT HAND
  58. 4000 REM COMPUTERS GO
  59. 4010 LOCATE
  60. 4020 IF
  61. 4030 RETURN
  62. 4040 VARNAME
  63. 4050 EXTENSION (Index #17) (Token 0x8e)
  64. 4060 FOR
  65. 4070 VARNAME
  66. 41 HOME
  67. 410 LOCATE
  68. 420 WAIT
  69. 430 LOCATE
  70. 440 WAIT
  71. 45 EXTENSION (Index #17) (Token 0x8e)
  72. 450 SWAP
  73. 50 GOSUB
  74. 500 REM 
  75. 5000 REM SORT RANDOM CARDS
  76. 5005 VARNAME
  77. 5010 FOR
  78. 5015 FOR
  79. 5020 VARNAME
  80. 5030 FOR
  81. 5040 IF
  82. 5050 NEXT
  83. 5060 INC
  84. 5070 IF
  85. 5075 REM or X=1 to 52 : print CARDS(X); : next X : stop
  86. 5080 FOR
  87. 5090 RETURN
  88. 510 VARNAME
  89. 520 FOR
  90. 530 INC
  91. 580 RETURN
  92. 60 RESET ZONE
  93. 600 REM HAND PUT DOWN
  94. 610 VARNAME
  95. 615 VARNAME
  96. 620 FOR
  97. 630 VARNAME
  98. 640 VARNAME
  99. 645 REM ome : print CHECK,X,A$,C$,FOUND,D;"      " : wait key
  100. 65 SET ZONE
  101. 650 NEXT
  102. 660 IF
  103. 670 IF
  104. 680 IF
  105. 690 IF
  106. 70 SET ZONE
  107. 800 REM CHECK FOR CARDS IN ORDER OF SUIT
  108. 810 VARNAME
  109. 820 FOR
  110. 830 VARNAME
  111. 845 FOR
  112. 850 VARNAME
  113. 860 VARNAME
  114. 870 IF
  115. 872 IF
  116. 873 IF
  117. 874 IF
  118. 875 REM ome : print X,FOUND,SET;"   " : wait 20
  119. 880 NEXT
  120. 890 IF
  121. 891 IF
  122. 895 IF
  123. 896 IF
  124. 897 IF
  125. 898 GOTO
  126. 900 REM MUSIC
  127. 9000 REM ERRORS
  128. 9010 IF
  129. 9020 RESUME
  130. 910 IF
  131. 920 VARNAME
  132. 930 OPEN IN
  133. 940 RESERVE
  134. 950 VARNAME
  135.