AM>> SUB pout (x%, x$, t as string * 15)
 
TH> That does not work.
 
TH> I also tried (t as xs) as 'xs' is a user defined type.
AM> It works here.
UPDATE:
I'm not sure what I did last time. But using
"SUB pout (x%, x$, t as string * 15)"
Did work this time. I note that the '15' *must* be the same value used
in the TYPE declaration. Perhaps that is why it didn't work last time.
I'm not sure anymore.
Anyway, I think I just about have the conversion details figured out.

 
___ Blue Wave/QWK v2.12
--- Maximus/2 3.01
---------------
** A related thread FOLLOWS this message.

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: DAQA2333 Date: 06/21/96
From: KURT KUZBA                                            Time: 06:38am
\/To: TIM HUTZLER                                         (Read 4 times)
Subj: R: Re: Passing a field

TH>   saying that PowerBASIC has *no* provisions to accomodate
TH>   the passing of records for modification defined in a
TH>   TYPE??? What do I need do to to reference the element *and*
TH>   make modifications to it from within a SUB? QuickBASIC
TH>   doesn't have this problem, frankly I am suprised that
TH>   PowerBASIC can't deal with this.
th>..............................................................
   Try this once. Some optimizing compilers will not recognize a
defined type until after it has been defined in preceding code.
Also, in Power Basic, you do not automatically get your DECLARE
statement added when you save data. The below code has been tested
under PB31 and worked perfectly.   ( following trial and error :)
Please refrain from harsh judgements caused by frustration and
impatience. All may be forgiven, but none are ever undone.
'_|_|_|   PASSTYPE.BAS
'_|_|_|   Code to illustrate passing of defined TYPE data.
'_|_|_|   No warrantees or guarantees are given or implied.
'_|_|_|   Released to   PUBLIC DOMAIN   by Kurt Kuzba.  (6/21/96)
type txtstruct
   length as integer
   t as string * 40
end type
declare sub txtprint(t as txtstruct)
dim text as txtstruct
text.t = "hello": text.length = len(rtrim$(text.t))
txtprint text
print text.length; text.t
end
sub txtprint(t as txtstruct)
   print t.length; t.t
   t.t = "goodbye": t.length = len(rtrim$(t.t))
end sub
'_|_|_|   end   PASSTYPE.BAS

---
> ] Let's try randomly accessing YOUR memory once...............

---------------
>>>>>>>>>>>>>>>>>>>>>> LAST Message In Thread <<<<<<<<<<<<<<<<<<<<<<

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: DAM00012 Date: 06/16/96
From: DAVID ROPER                                           Time: 10:17am
\/To: STEVEN ANDERSON                                     (Read 4 times)
Subj: CRC 16BIT CODE?

  >> Has anyone got some code to get a 16Bit CRC for a string FAST?
SA>> Thankyou
  >>Steven
    Check out the source code on the POWERBASIC WEB page.  If you have
    trouble getting it, ask again, and if it's okay I'll post it here
    for you and others.  Peace.
         _____oOOo_/00\_oOOo_____      david.roper@mms.raleigh.nc.us
     1996          \__/            201 WINDING BROOK Dr, GARNER NC 27529
--- FLAME v1.1
---------------