#: 4274 S10/Tandy CoCo
    11-Jun-90  22:04:55
Sb: #syscall blues
Fm: Darrell Coffey 76106,767
To: all

 I tried you're tips, but I'm still having trouble...
 I must not be understanding things properly.
  here is what I have written, please let me know if you notice anything wrong.

 my picture I have drawn is in window number 7

 type registers=cc,a,b,dp:BYTE; X,Y,U:integer
 dim regs:REGISTERS
 dim path,callcode:byte
 dim group:byte
 dim bs,bl:integer
 run syscall($0c,regs)
 group=regs.a
 open #path,"/w7":update
 run gfx2(path,"GET",group,1,0,0,639,1)
 regs.a=path
 regs.b=$84
 regs.x=group*256+1
 regs.y=$1
 run syscall($8d,regs)
 bl=regs.x
 bs=regs.y
 close #path
 print "Buffer at :";bl
 print "Buffer lgt:";bs
 end

 the first time I run this procedure, It returns 22803 in x and 1 in y
 and anytime after that It returns 257 in x, and 1 in y.

  Boy, I don't think I'm ever going to catch on to syscall....

 any help greatly appreciated. thank you


       Darrell Coffey



There is 1 Reply.