>Date: Sat, 28 Feb 1998 21:36:55 +0200
>To: futurebasic-associate.com
>From: Alessandro Medici <alexmed@...>
>Subject:
>Cc:
>Bcc:
>X-Attachments:
>
>Hy,
>
>I have this routine in FBII basic code, but is too slow for my.
>Everyone that made this in Asm code for my is free for a week or more at
>my home in Venice.....
>
>
>Many thanks for suggestions and other ...
>
>
>Ciao at all!
>globals
>dim Gcolonna = "1111111111111"
>end globals
>
>LOCAL
>DIM punta,a$
>LOCAL FN nuovacolonna(punta)                      '(Gcolonna$,Gpt)
>  a$ = MID$(Gcolonna$,punta,1)
>  SELECT a$
>    CASE "1"
>      MID$(Gcolonna$,punta,1) = "X"
>    CASE "X"
>      MID$(Gcolonna$,punta,1) = "2"
>    CASE "2"
>      LONG IF punta < 13
>        MID$(Gcolonna$,punta,1) = "1"
>        INC(punta)
>        FN nuovacolonna(punta)
>      END IF
>  END SELECT
>END FN
>
>


	Ciao, Alessandro

Alessandro dr Medici
Venezia, Italy
			_______________________________


			...vuolsi cosi', cola' ove si puote

			cio' che si vuole, e piu' non dimandare...

			_______________________________