Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- prgmCYCLONE
- WRITTEN BY: Toothless the Night Fury
- LANGUAGE: TI-BASIC
- TOTAL BYTES: 304 (not including comments)
- :ClrHome
- :DelVar A
- :1 → B
- :Output(2,3,"-----^------
- :For(A,3,6
- :"!
- :Output(A,2,Ans
- :Output(A,15,Ans
- :End
- :Output(7,3,"------------
- :For(A,9,15
- :Output(B,A,"o
- :rand(5
- :getKey → K
- :If Ans=105
- :Goto A
- :Output(B,A,"_
- :End
- :While 1
- :For(B,1+7(A=1),7-5(A=1),1-2(A=1)
- :Output(B,A,"o
- :rand(5
- :getKey → K
- :If Ans=105
- :Goto A
- :Output(B,A,"_
- :End
- :For(A,16-15(B=1),2+13(B=1),-1+2(B=1
- :Output(B,A,"o
- :rand(5
- :getKey → K
- :If Ans=105
- :Goto A
- :Output(B,A,"_
- :End
- :End
- :Lbl A
- :"YOU_LOSE.
- :If A=8 and B=1
- :"YOU_WIN.
- :Output(1,1,Ans
- :"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement