home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / ttt / ttt.bas < prev   
Encoding:
BASIC Source File  |  1993-06-30  |  2.8 KB  |  137 lines
  1. CLS
  2. COLOR 1
  3. PRINT "                                  Tic Tac Toe"
  4. PRINT "                         Created By: Anthony Maniscalco"
  5. Music$ = "G4 G4 G8 F8 E8 E8 D4 A8 A4 G8 G4 G10 F10 E8 D8 E8 F8 G8 A8 A3 G8 G3 G10 F10 E8 D8 C2"
  6. PLAY Music$
  7. PRINT
  8. COLOR 2
  9. PRINT "THIS IS A TWO PLAYER TIC-TAC-TOE GAME."
  10. INPUT "PLAYER 1 - "; A$
  11. INPUT "PLAYER 2 - "; B$
  12. PRINT
  13. COLOR 3
  14. PRINT "O = "; A$; ""
  15. PRINT "X = "; B$; ""
  16. PRINT
  17. COLOR 4
  18. PRINT "NOTE: THIS GAME DOES NOT AUTOMATICALLY DETERMINE WHO HAS WON THE GAME."
  19. PRINT "IF YOU HAVE BEATEN YOUR OPPONENT, TYPE 10.  IF A DRAW HAS OCCURED, TYPE"
  20. PRINT "11.  TO EXIT THE GAME, TYPE 12.  THANK YOU!"
  21. INPUT "PLEASE PRESS ENTER TO BEGIN.", C$
  22. CLS
  23. COLOR 5
  24. PRINT "   1 ";
  25. PRINT STRING$(1, 179);
  26. PRINT "  2  ";
  27. PRINT STRING$(1, 179); : PRINT " 3"
  28. PRINT "     ";
  29. PRINT STRING$(1, 179);
  30. PRINT "     ";
  31. PRINT STRING$(1, 179)
  32. PRINT "   ";
  33. PRINT STRING$(11, 196)
  34. PRINT "   4 ";
  35. PRINT STRING$(1, 179);
  36. PRINT "  5  ";
  37. PRINT STRING$(1, 179); : PRINT " 6"
  38. PRINT "     ";
  39. PRINT STRING$(1, 179);
  40. PRINT "     ";
  41. PRINT STRING$(1, 179)
  42. PRINT "   ";
  43. PRINT STRING$(11, 196)
  44. PRINT "   7 ";
  45. PRINT STRING$(1, 179);
  46. PRINT "  8  ";
  47. PRINT STRING$(1, 179); : PRINT " 9"
  48. PRINT "     ";
  49. PRINT STRING$(1, 179);
  50. PRINT "     ";
  51. PRINT STRING$(1, 179)
  52. PRINT
  53. 1 INPUT "CHOOSE A BOX, PLAYER 1. ", D
  54. IF D = 1 THEN LOCATE 1, 4
  55. IF D = 1 THEN PRINT "O"
  56. IF D = 2 THEN LOCATE 1, 9
  57. IF D = 2 THEN PRINT "O"
  58. IF D = 3 THEN LOCATE 1, 14
  59. IF D = 3 THEN PRINT "O"
  60. IF D = 4 THEN LOCATE 4, 4
  61. IF D = 4 THEN PRINT "O"
  62. IF D = 5 THEN LOCATE 4, 9
  63. IF D = 5 THEN PRINT "O"
  64. IF D = 6 THEN LOCATE 4, 14
  65. IF D = 6 THEN PRINT "O"
  66. IF D = 7 THEN LOCATE 7, 4
  67. IF D = 7 THEN PRINT "O"
  68. IF D = 8 THEN LOCATE 7, 9
  69. IF D = 8 THEN PRINT "O"
  70. IF D = 9 THEN LOCATE 7, 14
  71. IF D = 9 THEN PRINT "O"
  72. IF D = 10 THEN GOTO 100
  73. IF D = 11 THEN GOTO 50
  74. IF D = 12 THEN END
  75. LOCATE 10, 1
  76. INPUT "CHOOSE A BOX, PLAYER 2. ", E
  77. IF E = 1 THEN LOCATE 1, 4
  78. IF E = 1 THEN PRINT "X"
  79. IF E = 2 THEN LOCATE 1, 9
  80. IF E = 2 THEN PRINT "X"
  81. IF E = 3 THEN LOCATE 1, 14
  82. IF E = 3 THEN PRINT "X"
  83. IF E = 4 THEN LOCATE 4, 4
  84. IF E = 4 THEN PRINT "X"
  85. IF E = 5 THEN LOCATE 4, 9
  86. IF E = 5 THEN PRINT "X"
  87. IF E = 6 THEN LOCATE 4, 14
  88. IF E = 6 THEN PRINT "X"
  89. IF E = 7 THEN LOCATE 7, 4
  90. IF E = 7 THEN PRINT "X"
  91. IF E = 8 THEN LOCATE 7, 9
  92. IF E = 8 THEN PRINT "X"
  93. IF E = 9 THEN LOCATE 7, 14
  94. IF E = 9 THEN PRINT "X"
  95. IF D = 10 THEN GOTO 150
  96. IF D = 11 THEN GOTO 50
  97. IF D = 12 THEN END
  98. LOCATE 10, 1
  99. GOTO 1
  100. 50 PRINT
  101. COLOR 6
  102. PRINT "A DRAW HAS OCCURRED.  NEITHER OF YOU HAVE WON!  HOPE YOU ENJOYED THE GAME!"
  103. END
  104. 100 PRINT
  105. COLOR 7
  106. PRINT "CONGRATULATIONS, "; A$; "!  YOU HAVE BEATEN YOUR OPPONENT IN A GAME OF"
  107. PRINT "TIC TAC TOE!"
  108. END
  109. 150 PRINT
  110. COLOR 8
  111. PRINT "CONGRATULATIONS, "; B$; "!  YOU HAVE BEATEN YOUR OPPONENT IN A GAME OF"
  112. PRINT "TIC TAC TOE!"
  113. END
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.