I need Help simplifying this program. Any and all optimisations are welcom

P.S. I did use Hybrid basic libraries using Celtic 2 on Doors CSE 8.0

```
:DCS
"22020022202220222002002020020020220200202002002202020020200200022202202220020022333333333333333333333333333333333AAAA3AAAA3AAAA33AAAA3AAAA3AAAA3333AA333AA333AA3333AA333AA333AA333AA333AA333AA3333AA333AA333AA3333AA333AA333AA3333333333333333333333333333333333
real(0,2,0)
real(8,2,0)
real(0,3,4,256
real(9)
real(0,3,4,256
real(9)
real(0,1,0,0
SetUpEditor |LUSD
If |LUSD(1)=0
100->|LUSD(1)
0->|LUSD(2)
Output(4,4," "
Output(5,4," "
Output(6,4," "
det(12,255,255,0,0)
For(X,6,20,2)
Output(10,1,"O"
Output(5,X," "
Output(10,1," "
End
real(0,3,3)
Lbl 1
Repeat K
getKey->K
End
Output(10,1,"O"
|LUSD(1)-5->|LUSD(1)
If K=45
Stop
Output(10,1," "
DelVar K
Lbl theta
Output(10,1,"O")
randInt(0,1)->E
randInt(1,7)->A
randInt(1,7)->B
randInt(1,7)->C
randInt(1,7)->D
Output(10,1," "
If E!=1 and (A!=B or A!=C or A!=D or B!=C or B!=D or C!=D)
Goto theta
Output(10,1," "
Output(10,1,"O"
If A=B
|LUSD(2)+5->|LUSD(2)
If A=C
|LUSD(2)+5->|LUSD(2)
If A=D
|LUSD(2)+5->|LUSD(2)
If B=C
|LUSD(2)+5->|LUSD(2)
If B=D
|LUSD(2)+5->|LUSD(2)
If C=D
|LUSD(2)+5->|LUSD(2)
If A=B and B=C and C=D
|LUSD(2)+100->|LUSD(2)
Output(10,1," "
Output(10,1,"O"
det(12,160,254,0,0)
Output(5,7,A)
Output(5,11,B)
Output(5,15,C)
Output(5,19,D)
det(12,255,255,0,0
Output(7,11," "
Output(10,1," "
Output(10,1,"O"
Output(10,24," "
|LUSD(2)+|LUSD(1)->|LUSD(1)
If |LUSD(1)<=20
det(12,Red,Black
Output(10,23,|LUSD(1))
det(12,255,255,0,0
Output(10,1," "
0->|LUSD(2)
If |LUSD(1)!=0
Goto 1
Output(1,1,"YOU LOST ALL YOUR MONEY"
```