Ok, trying to port a roguelike project to FB....

[Jocke The Beast]

Thanks guys. It was like you said Vic...fixed now.

Ok, next error :wink:

error 10 : expected '=', found: 'SEG'

And the code where the error is:

Code:

SUB ScreenFun (arg%)

SELECT CASE arg%
  CASE 1  'Save the Screen
    DEF SEG = &HB800
    FOR x = 0 TO 4000
      SCREENSAVE(x) = PEEK(x)
    NEXT x
    DEF SEG
  CASE 2  'Restore the Screen
    DEF SEG = &HB800
    FOR x = 0 TO 4000
      POKE x, SCREENSAVE(x)
    NEXT x
    DEF SEG
END SELECT

END SUB