Syntax error at line 42

xxx
    12  Read L817KK
15  Read I2OP
18  If L817KK > 999 Or L817KK < 1 Then RuntimeError("Error: Level " + lvl + " data is corrupt!")
21  If I2OP > 999 Or I2OP < 1 Then RuntimeError("Error: Level " + lvl + " data is corrupt!")
24  Dim Level(L817KK-1, I2OP-1)
27
30  If pqX >= L817KK Or pqX < 0 Then RuntimeError("Error: Level " + lvl + " data is corrupt!")
33  If pqY >= I2OP Or pqY < 1 Then RuntimeError("Error: Level " + lvl + " data is corrupt!")
36  If pqX < 5
39    Spc4X = 0
42    Pl16 = pqX * 40 + 2
45  ElseIf pqX > L817KK - 12
48    Spc4X = L817KK * 40 - 640
51    Plok = pqX * 40 - Spc4X + 20
53  Else
56    Spc4X = pqX * 40 - 200
59    Plik = 220
62  EndIf