1 / 362

DIM A(10)

DIM A(10). CLS 1. let N = 0. PRINT 1 "Press any key when". PRINT 1 "you're ready to play". lab TARGET1:. let N = N + 1. let ky=0. let ky=key(). IF ky=0. GOTO TARGET1:. ENDIF. CLS 1. keyhide. gosub board:. lab TARGET14:. CLS 1. FOR N = 1 TO 9. let A(N)=0. NEXT.

kristy
Download Presentation

DIM A(10)

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. DIM A(10)

  2. CLS 1

  3. let N = 0

  4. PRINT 1 "Press any key when"

  5. PRINT 1 "you're ready to play"

  6. lab TARGET1:

  7. let N = N + 1

  8. let ky=0

  9. let ky=key()

  10. IF ky=0

  11. GOTO TARGET1:

  12. ENDIF

  13. CLS 1

  14. keyhide

  15. gosub board:

  16. lab TARGET14:

  17. CLS 1

  18. FOR N = 1 TO 9

  19. let A(N)=0

  20. NEXT

  21. PRINT 1 "I'll have the first move"

  22. GOTO TARGET2:

  23. lab end:

  24. end

  25. lab TARGET6:

  26. GOSUB TARGET3:

  27. IF FLAG = 0

  28. GOTO TARGET16:

  29. endif

  30. GOSUB TARGET4:

  31. IF A(X)=A(Y) and A(Y)=A(Z)andA(X)<>0

  32. GOTO TARGET13:

  33. ENDIF

  34. GOSUB TARGET5:

  35. lab TARGET2:

  36. GOSUB TARGET3:

  37. IF FLAG = 0

  38. GOTO TARGET16:

  39. endif

  40. GOSUB TARGET4:

  41. IF A(X)=A(Y) and A(Y)=A(Z)andA(X)<>0

  42. GOTO TARGET13:

  43. ENDIF

  44. IF A(5) = 0 let A(5)=1

  45. GOTO TARGET6:

  46. ENDIF

  47. let D=1 let B=1

  48. lab TARGET9:

  49. IF B = 1

  50. let X = 1

More Related