Problem with COMLIBA

 

I don't know what's happened or how it's happened. I'm stuck.

I'm adding DATA lines to a program I'm writing, and suddenly it's all stopped working. It uses various libraries:

FNusing v1.3
WINLIB2 v1.1
WINLIB5A v1.1
COMLIBA v3.4

Suddenly this morning, it refuses to run. It gets stuck on the last-but-one line of FNinvoke:

      DEF FN_invoke(O%,T%,N$,P$,U%)
      LOCAL M%,D%,I%,F%,R%,S%
      DIM D% LOCAL 15,I% LOCAL 15,M% LOCAL 2*LENN$+1
      SYS "MultiByteToWideChar",0,0,N$,-1,M%,LENN$
      SYS !(!O%+20),O%,I%,^M%,1,`LCID%,^F% TO R%
      IF R% THEN =R%
      !D%=!^P$:D%!8=LENP$/16
      IF T% AND 12 S%=-3:D%!4=^S%:D%!12=1
      SYS !(!O%+24),O%,F%,I%,`LCID%,T%,D%,U%,0,0 TO R%
      =R%

and all I can do is exit the program. I don't know what FN invoke does or why it gets stuck.

The thoroughly wierd thing is that it seems to have infected previous version of the program (I'm now on version 1.57a and have 78 previous versions on file here). The program's quite big and is rather important to me. Cam anyone offer any advice?

Alan Roberts

Join bb4w@groups.io to automatically receive all group messages.