heey, ive created LINGO (Dutch), a kind of mastermind, but with words.

but i think ive a very long code. please can someone look if he sees something that can shorter? tanx in advance!

in english: if you won: 'You have won"

if you lose you see the original word

but i think ive a very long code. please can someone look if he sees something that can shorter? tanx in advance!

**Code:**```
:DCS
```

"BB777777777777BBB77222222222277B77222222222222777222BBBB222222277222BBBB2222222777222BB22222222777722BB22222222777777BB22222222777777BB77222222777777BB77777777777777BB777BB77777777BBBBBBBB77777777BBBBBBBB77777777777777777777B77777777777777BBB777777777777BB

Lbl ZZ

ClrHome

If 80>det([[20

Then

Disp "Get Doors CSE to run this:","http://dcs.cemetech.net"

Return

End

Disp "========LINGO v1.0========"," 1 PLAYER"," 2 PLAYERS"," QUIT"

2->R

Repeat Ans=105

If Ans

Then

Output(R,1," "

Output(R,26," "

End

min(4,max(2,R+sum(DeltaList(Ans={25,34->R

Output(R,1,">

Output(R,26,"<

getKey

End

If R=4

Then

ClrHome

Disp "Made by Peter Tillema"

Return

End

If R=3

Then

Repeat length(Str9)=5

ClrHome

Disp "PLEASE ENTER A WORD OF 5","LETTERS:","",""

Asm(prgmALOCK

Input " ",Str9

End

End

If R=2

Then

"rowSwap(LINGO"->Str0

randInt(1,479

det(0

End

{22,14,17,3,26,27}->|LLING

0->P

"LINGO2"

real(5,0,0

real(0,1,1

real(0,3,4,93,1

real(0,3,4,93,0

For(A,1,5

For(B,1,5

real(7,7,19A-17,19B-17,20,20,0,1

real(7,7,19A-17,19B-17,20,20,0,0

End

End

For(A,1,dim(|LLING

real(4,0,6A+110,20,1,1,0,0,255,1,0,|LLING(A)

real(4,0,6A+110,20,1,1,0,0,255,0,0,|LLING(A)

End

real(9

Repeat Str3=Str9 or P>4

" "->Str3

Repeat K=105 and length(Str3)=6

Repeat Ans>40 and Ans<94 or max(Ans={105,23

getKey->K

End

Ans-20-5int(.1Ans

If 6>length(Str3) and 0<Ans and Ans<29

Str3+sub("ABC DEFGHIJKLMNOPQRSTUVWXYZ",Ans,1->Str3

If K=23 and 1<length(Str3

Then

real(7,3,6length(Str3)+104,30,93,8,1

real(7,3,6length(Str3)+104,30,93,8,0

sub(Str3,1,length(Str3)-1->Str3

End

For(A,1,length(Str3

real(4,0,6A+104,30,1,1,0,0,255,1,0,inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ: ",sub(Str3,A,1))-1

real(4,0,6A+104,30,1,1,0,0,255,0,0,inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ: ",sub(Str3,A,1))-1

End

real(9

End

If 1<length(Str3

sub(Str3,2,length(Str3)-1->Str3

For(A,1,5

If sub(Str3,A,1)=sub(Str9,A,1)

Then

real(7,9,19A-16,3+19P,18,18,224,1

real(7,9,19A-16,3+19P,18,18,224,0

Else

If inString(Str9,sub(Str3,A,1)

Then

real(7,12,19A-8,11+19P,8,231,1

real(7,12,19A-8,11+19P,8,231,0

End

End

real(4,0,19A-10,8+19P,1,1,0,0,255,1,0,inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ: ",sub(Str3,A,1))-1

real(4,0,19A-10,8+19P,1,1,0,0,255,0,0,inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ: ",sub(Str3,A,1))-1

End

real(7,3,110,30,93,40,1

real(7,3,110,30,93,40,0

P+1->P

End

If P=5 and Str3!=Str9

Then

For(A,1,5

real(7,9,19A-16,98,18,18,224,1

real(7,9,19A-16,98,18,18,224,0

real(4,0,19A-10,103,1,1,0,0,255,1,0,inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Str9,A,1))-1

real(4,0,19A-10,103,1,1,0,0,255,0,0,inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Str9,A,1))-1

End

End

If Str3=Str9

Then

{9,4,27,7,4,1,19,27,6,4,22,14,13,13,4,13}->|LLING

For(A,1,dim(|LLING

real(4,0,6A+3,103,1,1,0,0,255,1,0,|LLING(A)

real(4,0,6A+3,103,1,1,0,0,255,0,0,|LLING(A)

End

End

Pause

real(0,3,4,255,1

real(0,3,4,255,0

real(0,1,0,1

Goto ZZ

in english: if you won: 'You have won"

if you lose you see the original word