effectus errors

[postpunkpl]

hello,

I have simply action code:

Code:

MODULE

BYTE CH=764, i

PROC WG(CHAR ARRAY TX CARD G,I BYTE A,B)CLOSE(2)OPEN(2,TX,A,B)IF A=4 THEN POKE($362,7) ELSE POKE($362,11) FI
POKEC($364,G)POKEC($368,I)[162 32 32 $56 $E4 133 $A3]CLOSE(2)[96]

PROC Pause (CARD times)

    BYTE wsync=$14,q
    CARD u

    FOR u=1 TO times
    DO
      FOR q=1 TO 200
      DO
   wsync=q
      OD
    OD

RETURN

PROC WVBI()
BYTE rtclk=$14,u
u=rtclk
DO
UNTIL rtclk#u
OD
RETURN
 
PROC KEYPRESS()
BYTE KEY=764
KEY=255
WHILE KEY=255 DO OD
RETURN

PROC DRAWPLAYER(BYTE X,Y)

CARD SAVMSC = $58
BYTE ARRAY SCREEN
SCREEN = SAVMSC

SCREEN(X+40*Y) = 1
SCREEN(X+1+40*Y) = 2

SCREEN(X+40*(Y+1)) = 33
SCREEN(X+1+40*(Y+1)) = 34

RETURN

PROC CLEARPLAYER(BYTE X,Y)

CARD SAVMSC = $58
BYTE ARRAY SCREEN
SCREEN = SAVMSC

SCREEN(X+40*Y) = 0
SCREEN(X+1+40*Y) = 0

SCREEN(X+40*(Y+1)) = 0
SCREEN(X+1+40*(Y+1)) = 0

RETURN

PROC MAIN()

BYTE XX

POKE(106,144)

WG("H1:FONT.FNT",$9000,1024,4,128)

GRAPHICS(12+16)
POKE(756,144)

CH=255
XX=0
DRAWPLAYER(0,0)

WHILE CH=255
DO
  i=Stick(0)
  IF i<>15 THEN
    PrintBE(i)
  FI
  i=Strig(0)
  IF i=0 THEN
  CLEARPLAYER(XX,0)
  ;WVBI()
  IF XX<=39 THEN XX==+1 FI
  IF XX=40 THEN XX=0 FI
 DRAWPLAYER(XX,0)
 ;pause(30)
 WVBI()
 FI
OD
CH=255

;DRAWPLAYER(0,0)
;KEYPRESS()

RETURN

and error message from terminal:

Code:

Piotreks-iMac:action piotrek$ effectus char.act
An unhandled exception occurred at $00051CBD :
                                              EConvertError : "" is an invalid integer
        $00051CBD
                  $0007E628
                              $00077943

                                      Piotreks-iMac:action piotrek$


what's up?