string$ function August 04, 2014 02:18AM |
Registered: 9 years ago Posts: 14 |
//Returns a string l long of c$ characters function string$(l,c$) dim a$[255],i,j a$="" for i=1 to l a$=a$+c$ next i return a$ endf
Re: string$ function August 05, 2014 01:00AM |
Registered: 9 years ago Posts: 14 |
//Returns a string l long of c$ characters function string$(l,c$) dim a$[64],i,c c = asc(c$,0) for i=?a$+4 to ?a$+l+4 pokec (i,c)) next i //Append null to terminate string pokec (i,0x00) return a$ endf //string$