`:" "→Str1`

:Str1→Str2

:Str1→Str3

:Str1→Str4

:Str1→Str5

:Str1→Str6

:Str1→Str7

:Str1→Str8

:

:

:

:ClrHome

:Output(1,1,"RUSSIAN ROULETTE PRESS ENTER TO FIRE

:For(A,0,1750

:End

:Lbl AA

:ClrHome

:Output(2,1,"HOW MANY PEOPLE?(1≤X≤8)

:Input "=",X

:If X<1:Goto AA

:If X>8:Goto AA

:Lbl AB

:ClrHome

:Output(2,1,"HOW MANY CHAMBERS? (>0)

:Input "=",Y

:If Y<1:Goto AB

:

:ClrHome

:Output(1,1,"PLAYER NAMES

:For(θ,0,750

:End

:ClrHome

:Input "1=",Str1

:If X>1:Input "2=",Str2

:If X>2:Input "3=",Str3

:If X>3:Input "4=",Str4

:If X>4:Input "5=",Str5

:If X>5:Input "6=",Str6

:If X>6:Input "7=",Str7

:If X>7:Input "8=",Str8

:

:ClrHome

:Output(1,3,Str1

:Output(2,3,Str2

:Output(3,3,Str3

:Output(4,3,Str4

:Output(5,3,Str5

:Output(6,3,Str6

:Output(7,3,Str7

:Output(8,3,Str8

:DelVar ∟ALIVE

:8→dim(∟ALIVE

:For(θ,1,X

:¦ 1→∟ALIVE(θ)

:End

:

:

:While 1

:¦ For(θ,1,X

:¦ ¦ If ∟ALIVE(θ)=0:End

:¦ Output(θ,1,"*

:¦ Pause

:¦ randInt(1,Y)→Q

:¦

:¦ :If Q=1:Then

:¦ ¦ ClrDraw:RecallPic 2:For(W,0,1750):End:Output(θ,1," ":Output(θ,11,"(DEAD)":0→∟ALIVE(θ):

:¦ ¦

:¦ ¦ :If ∟ALIVE(1)+∟ALIVE(2)+∟ALIVE(3)+∟ALIVE(4)+∟ALIVE(5)+∟ALIVE(6)+∟ALIVE(7)+∟ALIVE(8)=1:Goto H:End

:¦

:¦

:¦ If Q≠1:Then:Output(θ,11,"(MIS)":For(W,0,1750):End:Output(θ,1," ":Output(θ,11," "

:¦ End

:End

:End

:

:Lbl H

:

:For(θ,1,8

:¦ If ∟ALIVE(θ)=1:Goto G

:End

:

:

:Lbl G

:ClrHome

:If θ=1:Output(1,1,Str1

:If θ=2:Output(1,1,Str2

:If θ=3:Output(1,1,Str3

:If θ=4:Output(1,1,Str4

:If θ=5:Output(1,1,Str5

:If θ=6:Output(1,1,Str6

:If θ=7:Output(1,1,Str7

:If θ=8:Output(1,1,Str2

:Output(2,1,"WINS

:Pause

(or attached file)

and btw: I know the code is all over the place :)

(the error is line 61)