home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 80 / basic / games / memory.80 < prev    next >
Encoding:
Text File  |  2001-07-01  |  1.2 KB  |  71 lines
  1. Memory
  2. --------------------------------------------------------
  3. Version: 1.0, 980412
  4. Creator: Daniel Bergman.
  5. Description: Memory for the TI80. Try pairing the bricks together.
  6. Comments: "->" is the "STO>"-button, the ending quotes aren't
  7.           needed in some places.
  8. Known bugs: None.
  9. Size: 377 bytes.
  10.  
  11. For more games and programs, please visit http://ti80.burtrask.net.
  12.  
  13. PROGRAM:MEMORY
  14. LBL 0
  15. INPUT "PAIRS?",R
  16. IF R>49:GOTO 0
  17. IF R<2:GOTO 0
  18. CLRLIST L1,L2
  19. R->DIM L1
  20. R->DIM L2
  21. 2R->R
  22. FOR(A,1,R/2
  23. CLRHOME
  24. DISP "PLACING PAIR:",A
  25. LBL X
  26. RANDINT(1,R->X
  27. IF L2(X:GOTO X
  28. LBL Y
  29. RANDINT(1,R->Y
  30. IF L2(Y:GOTO Y
  31. IF Y=X:GOTO Y
  32. A->L1(X:A->L1(Y
  33. 1->L2(X:1->L2(Y
  34. END
  35. CLRLIST L2
  36. R->DIM L2
  37. 0->G
  38. CLRHOME
  39. LBL 1
  40. IF PROD L2:GOTO S
  41. INPUT "BRICK 1?",X
  42. IF X<1:GOTO 1
  43. IF X>R:GOTO 1
  44. IF L2(X:GOTO 1
  45. DISP L1(X
  46. LBL 2
  47. INPUT "BRICK 2?",Y
  48. IF Y<1:GOTO 1
  49. IF Y>R:GOTO 1
  50. IF L2(Y:GOTO 1
  51. DISP L1(Y
  52. G+1->G
  53. IF L1(X)=L1(Y
  54. THEN
  55. DISP "PAIR!
  56. 1->L2(X:1->L2(Y
  57. END
  58. PAUSE
  59. CLRHOME
  60. GOTO 1
  61. LBL S
  62. CLRHOME
  63. DISP "ALL TAKEN IN
  64. DISP G,"TURNS
  65. CLRLIST L1,L2
  66. DISP "TURNS/PAIR:
  67. G/.5R
  68.  
  69. --------------------------------------------------------------------
  70. Copyright (C) 1998 by Daniel Bergman & Mattias MorΘn
  71. http://ti80.burtrask.net