Re: Comet32/CosP error

Posted by Grant Foraker on July 15, 2011 at 11:42:37:

In Reply to: Re: Comet32/CosP error posted by Jim Guerber on July 15, 2011 at 08:11:38:

1) GFL's open brings up the ? dialog. GFL1 crashes with no ? dialog.

2) no DES

3) compiled under Comet16

4) seems to be every printer (LP1, LAA, and L11). Laser, DocMgr, and ?.

5) which program is bombing brings up an interesting twist

I added MSGBOX's to both programs

1070
!!!XACC000F = I
!!!XARRAY00 = XACC000F
!!!IF ZPART$(XARRAY00) NE "   " GOTO 1075
!!!GOTO 1080
!!!1075
!!!XACC000F = I
!!!XARRAY01 = XACC000F
!!!PART$ = ZPART$(XARRAY01)
!!!ACTIVATE PART$,"GFL1",EXCP=1145
!!!CLOSE (01)
!!!PRINT (00,0002)
!!!SEL$ = "B"
!!!PRINT (00,0010)
!!!GOTO 1195
!!!1080
     MSGBOX('GFL END')
   RUN "GFL1"
!
   CLEARLOCAL
   ERRORTO 1090
     MSGBOX('GFL1 START')
   CLOSE (01)
   OPEN (01) ZLP$,EXCP=1100
   IF TERM$ EQ "   " GOTO 1000
   PRINT (00,0001)
   GOTO 1015

a) with both MSGBOXs the program works.

b) with both REMd the program bombs

c) with MSGBOX in GFL REMd and MSGBOX in GFL1 operational the program runs.

Other weird thing is program has an ALL and RANGE option. I've been testing with range = 700-700. If I chose ALL, the program runs OK. Regardless of MSGBOX's.

What seems to work is REMing out the superfluous 2nd printer OPEN.

!!!MSGBOX('GFL1 START')
!!!CLOSE (01)
!!!OPEN (01) ZLP$,EXCP=1100
!!!IF TERM$ EQ "   " GOTO 1000

Follow Ups:

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.