Syntax error at line 42

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