API tools faq
paste
Guest User

program ti basic

a guest
Mar 18th, 2015
220
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.21 KB | None | 0 0
raw download clone embed print report
  1. Nom de la variable: GUESSV3
  2. Commentaire:Program file 03/18/15, 21:08
  3. Stockage: RAM
  4. ----------
  5. ClrHome
  6. Output(3,1,"DEVINE LE NOMBRE"
  7. Output(4,4,"(VERSION 4)"
  8. Output(7,4,"PRESS ENTER")
  9. Pause
  10. Lbl B
  11. ClrHome
  12. Menu("WELCOME:","PLAY",J,"RULES*READ IT*",R,"SCORES LIST",L,"QUIT",T)
  13.  
  14. Lbl J
  15.  
  16. Menu("DID U READ RULES","YES",O,"NO",P)
  17.  
  18. Lbl O
  19. Goto Q
  20.  
  21. Lbl P
  22. Goto R
  23.  
  24. Lbl Q
  25.  
  26. Lbl W
  27. ClrHome
  28. Input "ENTRE TON PSEUDO",Str1
  29. ClrHome
  30. If length(Str1)>8
  31. Then
  32. Output(3,1,"PSEUDO TROP LONG")
  33. Output(6,4,"PRESS ENTER")
  34. Pause
  35. Goto W
  36. End
  37.  
  38.  
  39. If length(Str1)>8
  40. Goto W
  41.  
  42. If length(Str1)=1
  43. Output(3,8,Str1
  44. If length(Str1)=2
  45. Output(3,8,Str1
  46. If length(Str1)=3
  47. Output(3,7,Str1
  48. If length(Str1)=4
  49. Output(3,7,Str1
  50. If length(Str1)=5
  51. Output(3,6,Str1
  52. If length(Str1)=6
  53. Output(3,6,Str1)
  54. If length(Str1)=7
  55. Output(3,5,Str1
  56. If length(Str1)=8
  57. Output(3,5,Str1
  58.  
  59. Output(2,6,"PRET(E)"
  60. Output(4,8,"?")
  61. Output(6,4,"PRESS ENTER")
  62. Pause
  63.  
  64. Lbl A
  65.  
  66. ClrHome
  67. 0üS
  68. Output(2,12,"BS=")
  69. Output(2,15,Á)
  70. randIntú10000,10000)üY
  71. While XøY
  72. Prompt X
  73. If X>Y
  74. Disp "C'EST -"
  75. If X<Y
  76. Disp "C'EST +"
  77. If X=Y
  78. Disp "GG U FOUND IT"
  79. S+1üS
  80. Output(6,13,"S=")
  81. Output(6,15,S)
  82. End
  83. If S<Á
  84. SüÁ
  85. ClrHome
  86. Output(1,1,"WELL PLAYED YOU"
  87. Output(2,1,"HAVE FOUND X")
  88. Output(4,1,"YOUR SCORE=")
  89. Output(4,12,S)
  90. Output(6,1,"BEST SCORE=")
  91. Output(6,12,Á)
  92. Output(8,4,"PRESS ENTER")
  93. Pause
  94.  
  95. Menu("GAME OVER","PLAY AGAIN",G,"SCORES LIST",U,"GO TO MENU",V,"QUIT",H)
  96.  
  97. Lbl G
  98. Goto A
  99.  
  100. Lbl U
  101. Goto L
  102.  
  103. Lbl V
  104. Goto B
  105.  
  106. Lbl H
  107. ClrHome
  108. Return
  109. Stop
  110.  
  111. Lbl R
  112. ClrHome
  113. ClrHome
  114. ClrDraw
  115. CoordOf
  116. AxesOff
  117. 0üTmin
  118. 94üTmax
  119. 1üXscl
  120. ú64üÁmin
  121. 0üÁmax
  122. 1üYscl
  123. Text(1,1,"GUESS X FOR X BEETWEEN"
  124. Text(7,1,"ú10000 AND 10000"
  125. Text(14,1,"BS=BEST SCORE")
  126. Text(21,1,"S=SCORE")
  127. Text(35,1,"IF THE NUMBER IS NEGATIVE,
  128. Text(42,1,"PRESS (ú),NOT (-)")
  129. Text(49,35,"HAVE FUN!"
  130. Text(56,1,"PRESS ENTER")
  131. Pause
  132. Goto B
  133. Stop
  134.  
  135. Lbl L
  136. CoordOf
  137. AxesOff
  138. ClrDraw
  139. ClrHome
  140. 0üTmin
  141. 94üTmax
  142. ú64üXscl
  143. 0üÁmax
  144. 1üYscl
  145. 1üXscl
  146. Vertica47
  147. Horizonú7
  148. Horizonú14
  149. Horizonú21
  150. Horizonú28
  151. Horizonú35
  152. Horizonú42
  153. Horizonú49
  154. Horizonú56
  155. Text(1,2,"PLAYER NAME")
  156. Text(1,62,"SCORE")
  157. Text(57,26,"PRESS ENTER")
  158. Pause
  159. Goto B
  160.  
  161.  
  162. Lbl T
  163. ClrHome
  164. Return
  165. Stop
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!