Advertisement
Guest User

prgmCYCLONE

a guest
Jan 17th, 2014
42
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.67 KB | None | 0 0
  1. prgmCYCLONE
  2. WRITTEN BY: Toothless the Night Fury
  3. LANGUAGE: TI-BASIC
  4. TOTAL BYTES: 304 (not including comments)
  5.  
  6. :ClrHome
  7. :DelVar A
  8. :1 → B
  9. :Output(2,3,"-----^------
  10. :For(A,3,6
  11. :"!
  12. :Output(A,2,Ans
  13. :Output(A,15,Ans
  14. :End
  15. :Output(7,3,"------------
  16. :For(A,9,15
  17. :Output(B,A,"o
  18. :rand(5
  19. :getKey → K
  20. :If Ans=105
  21. :Goto A
  22. :Output(B,A,"_
  23. :End
  24. :While 1
  25. :For(B,1+7(A=1),7-5(A=1),1-2(A=1)
  26. :Output(B,A,"o
  27. :rand(5
  28. :getKey → K
  29. :If Ans=105
  30. :Goto A
  31. :Output(B,A,"_
  32. :End
  33. :For(A,16-15(B=1),2+13(B=1),-1+2(B=1
  34. :Output(B,A,"o
  35. :rand(5
  36. :getKey → K
  37. :If Ans=105
  38. :Goto A
  39. :Output(B,A,"_
  40. :End
  41. :End
  42. :Lbl A
  43. :"YOU_LOSE.
  44. :If A=8 and B=1
  45. :"YOU_WIN.
  46. :Output(1,1,Ans
  47. :"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement