From: "Wiebe Zoon" 
Subject: Re: ASM - Routine
 
 
>Hallo zusammen !
Hallo !!
 
>For z=1 to len(Test)
> Werte(z)=asc(mid$(Test,z,1))
>Next z
>
>Diese Routine funzt ja auch pr*chtig, ist allerdings seeehr laaanngsam
 
 
Dim Test as String
Dim Werte(32000) as integer
 
def seg = varseg(Werte(0))
poke$ varptr(Werte(0)),Test
 
is really a lot faster allready
 
 
>Gru*,
Bye
>
>Dennis Tw.
Wiebe
 
 
*** QwkNews (tm) v2.1
 * [TN71] Toast House Import
--- GEcho 1.20/Pro
---------------