-=> Quoting James Goldbloom to All <=-
JG> Converted to PB, it looks like, and works properly (up to the alias)
JG> as:
JG> ------------------- PB STRUCTURE ------------------------------
JG> TYPE SysInfoRecord
JG> CallCount as long
JG> LastCallNameLen as string * 1
JG> LastCallName as string * 35
JG> LastCallerAliasLen as string * 1
JG> LastCallerAlias as string * 35
JG> ExtraSpace ?? what goes here ??
JG> END TYPE
JG> --------------------------------------------------------------
JG> Look to the right of "ExtraSpace" above in my code... I don't know
JG> what comes next to match the TP structures shown in the first snippet!
I'd say read that in as string * 92, then extract individual byte
values as needed with:
DIM Byte(92) 'integer
FOR x = 1 TO 92
Byte(x) = ASC(MID$(ExtraSpace, x, 1)) 'unless PB has a byte data type.
NEXT x
coffeerp@adan.kingston.net Û] COFFEE MUG SOFTWARE Û]
--- InterEcho 1.16
---------------
* Origin: CrossRoads * Kingston, Ont. (1:249/1)
|