I Finally got this program to work. It doesn't run very well, but it is working.

```
PROGRAM:CYCLONE
If Y=1:Then
Goto B:Else
Goto A:End
Lbl A
If θ=0:Goto 0
If θ=1:Goto 1
If θ=2:Goto 2
If θ=3:Goto 3
If θ=4:Goto 4
If θ=5:Goto 5
If θ=6:Goto 6
If θ=7:Goto 7
If θ=8:Goto 8
If θ=9:Goto 9
If θ=10:Goto 10
If θ=11:Goto 11
If θ=12:Goto 12
If θ=13:Goto 13
If θ=14:Goto 14
If θ=15:Goto 15
If θ=16:Goto 16
If θ=17:Goto 17
If θ=18:Goto 18
If θ=19:Goto 19
If θ=20:Goto 20
If θ=21:Goto 21
If θ=22:Goto 22
If θ=23:Goto 23
If θ=24:Goto 24
If θ=25:Goto 25
If θ=26:Goto 26
If θ=27:Goto 27
If θ=28:Goto 28
If θ=29:Goto 29
If θ=30:Goto 30
If θ=31:Goto 31
If θ=32:Goto 32
If θ=33:Goto 33
If θ=34:Goto 34
If θ=35:Goto 35
If θ=36:Goto 36
If θ=37:Goto 37
If θ=38:Goto 38
If θ=39:Goto 39
If θ=40:Goto 40
If θ=41:Goto 41
If θ=42:Goto 42
If θ=43:Goto 43
If θ=44:Goto 44
Lbl 0
ClrHome
Output(2,3,"-----^------
Output(3,2,"!
Output(4,2,"!
Output(5,2,"!
Output(6,2,"!
Output(3,15,"!
Output(4,15,"!
Output(5,15,"!
Output(6,15,"!
Output(7,3,"------------
0→X
Repeat X=105
Lbl 1:2→θ:0→Z
Output(1,8,"
Output(1,9,"°
prgmθCHECK
Lbl 2:3→θ
Output(1,9,"
Output(1,10,"°
prgmθCHECK
Lbl 3:4→θ
Output(1,10,"
Output(1,11,"°
prgmθCHECK
Lbl 4:5→θ
Output(1,11,"
Output(1,12,"°
prgmθCHECK
Lbl 5:6→θ
Output(1,12,"
Output(1,13,"°
prgmθCHECK
Lbl 6:7→θ
Output(1,13,"
Output(1,14,"°
prgmθCHECK
Lbl 7:8→θ
Output(1,14,"
Output(1,15,"°
prgmθCHECK
Lbl 8:9→θ
Output(1,15,"
Output(1,16,"°
prgmθCHECK
Lbl 9:10→θ
Output(1,16,"
Output(2,16,"°
prgmθCHECK
Lbl 10:11→θ
Output(2,16,"
Output(3,16,"°
prgmθCHECK
Lbl 11:12→θ
Output(3,16,"
Output(4,16,"°
prgmθCHECK
Lbl 12:13→θ
Output(4,16,"
Output(5,16,"°
prgmθCHECK
Lbl 13:14→θ
Output(5,16,"
Output(6,16,"°
prgmθCHECK
Lbl 14:15→θ
Output(6,16,"
Output(7,16,"°
prgmθCHECK
Lbl 15:16→θ
Output(7,16,"
Output(8,16,"°
prgmθCHECK
Lbl 16:17→θ
Output(8,16,"
Output(8,15,"°
prgmθCHECK
Lbl 17:18→θ
Output(8,15,"
Output(8,14,"°
prgmθCHECK
Lbl 18:19→θ
Output(8,14,"
Output(8,13,"°
prgmθCHECK
Lbl 19:20→θ
Output(8,13,"
Output(8,12,"°
prgmθCHECK
Lbl 20:21→θ
Output(8,12,"
Output(8,11,"°
prgmθCHECK
Lbl 21:22→θ
Output(8,11,"
Output(8,10,"°
prgmθCHECK
Lbl 22:23→θ
Output(8,10,"
Output(8,9,"°
prgmθCHECK
Lbl 23:24→θ
Output(8,9,"
Output(8,8,"°
prgmθCHECK
Lbl 24:25→θ
Output(8,8,"
Output(8,7,"°
prgmθCHECK
Lbl 25:26→θ
Output(8,7,"
Output(8,6,"°
prgmθCHECK
Lbl 26:27→θ
Output(8,6,"
Output(8,5,"°
prgmθCHECK
Lbl 27:28→θ
Output(8,5,"
Output(8,4,"°
prgmθCHECK
Lbl 28:29→θ
Output(8,4,"
Output(8,3,"°
prgmθCHECK
Lbl 29:30→θ
Output(8,3,"
Output(8,2,"°
prgmθCHECK
Lbl 30:31→θ
Output(8,2,"
Output(8,1,"°
prgmθCHECK
Lbl 31:32→θ
Output(8,1,"
Output(7,1,"°
prgmθCHECK
Lbl 32:33→θ
Output(7,1,"
Output(6,1,"°
prgmθCHECK
Lbl 33:34→θ
Output(6,1,"
Output(5,1,"°
prgmθCHECK
Lbl 34:35→θ
Output(5,1,"
Output(4,1,"°
prgmθCHECK
Lbl 35:36→θ
Output(4,1,"
Output(3,1,"°
prgmθCHECK
Lbl 36:37→θ
Output(3,1,"
Output(2,1,"°
prgmθCHECK
Lbl 37:38→θ
Output(2,1,"
Output(1,1,"°
prgmθCHECK
Lbl 38:39→θ
Output(1,1,"
Output(1,2,"°
prgmθCHECK
Lbl 39:40→θ
Output(1,2,"
Output(1,3,"°
prgmθCHECK
Lbl 40:41→θ
Output(1,3,"
Output(1,4,"°
prgmθCHECK
Lbl 41:42→θ
Output(1,4,"
Output(1,5,"°
prgmθCHECK
Lbl 42:43→θ
Output(1,5,"
Output(1,6,"°
prgmθCHECK
Lbl 43:44→θ
Output(1,6,"
Output(1,7,"°
prgmθCHECK
Lbl 44:1→θ:1→Z
Output(1,7,"
Output(1,8,"°
prgmθCHECK
End
Lbl B
0→X:0→θ:0→Y
If Z=1:Then
Output(4,6,"WINNER
Else
Output(4,6,"LOSER
End:Stop
```