[futurebasic] Re: [FB] Ha! cioccolato, a sweet drug

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : February 2005 : Group Archive : Group : All Groups

From: Scott Spencer <sj3@...>
Date: Sun, 27 Feb 2005 12:56:55 -0800
Ha... Giampaolo, you are one smart cookie!!!

On Feb 27, 2005, at 12:40 PM, Giampaolo Macciotta wrote:

> DATA 01001001,00100000,01100011,01101111,01101110,01100110
> DATA 01100101,01110011,01110011,00101110,00100000,01001101
> DATA 01111001,00100000,01110010,01100101,01100011,01100101
> DATA 01101110,01110100,00100000,01100011,01101111,01100100
> DATA 01101001,01101110,01100111,00100000,01101000,01100001
> DATA 01110011,00100000,01100010,01100101,01100101,01101110
> DATA 00100000,01101001,01101110,00100000,01011000,01100011
> DATA 01101111,01100100,01100101,00100000,01110111,01101001
> DATA 01110100,01101000,00100000,01000011,01101111,01100011
> DATA 01101111,01100001,00101100,00100000,01000011,00100000
> DATA 00100110,00100000,01001111,01100010,01101010,01100101
> DATA 01100011,01110100,01101001,01110110,01100101,00101101
> DATA 01000011,00101110,00100000,01000001,01110100,00100000
> DATA 01110100,01101000,01100101,00100000,01110010,01101001
> DATA 01110011,01101011,00100000,01101111,01100110,00100000
> DATA 01101000,01100101,01110010,01100101,01110011,01100101
> DATA 01111001,00101100,00100000,01001001,00100000,01100110
> DATA 01100101,01100101,01101100,00100000,01101001,01110100
> DATA 00100000,01101000,01100001,01110011,00100000,01101000
> DATA 01100101,01101100,01110000,01100101,01100100,00100000
> DATA 01101101,01111001,00100000,01110101,01101110,01100100
> DATA 01100101,01110010,01110011,01110100,01100001,01101110
> DATA 01100100,01101001,01101110,01100111,00100000,01101111
> DATA 01100110,00100000,01000110,01000010,00101110,00001101
> DATA 00001101,01001000,01100101,01110010,01100101,00100111
> DATA 01110011,00100000,01100001,00100000,01101100,01101001
> DATA 01110100,01110100,01101100,01100101,00100000,00100010
> DATA 01110011,01101100,01101111,01110111,00100000,01101100
> DATA 01101001,01110011,01110100,00100010,00100000,01100011
> DATA 01101000,01100001,01101100,01101100,01100101,01101110
> DATA 01100111,01100101,00101110,00100000,01001100,01100101
> DATA 01110100,00100000,01101101,01100101,00100000,01101011
> DATA 01101110,01101111,01110111,00100000,01101001,01100110
> DATA 00100000,01111001,01101111,01110101,00100000,01110111
> DATA 01100001,01101110,01110100,00100000,01110100,01101111
> DATA 00100000,01110011,01100101,01100101,00100000,01101101
> DATA 01111001,00100000,01000110,01000010,00100000,01000001
> DATA 01010011,01000011,01001001,01001001,00101101,01110100
> DATA 01101111,00101101,01000010,01101001,01101110,01100001
> DATA 01110010,01111001,00100000,01110100,01110010,01100001
> DATA 01101110,01110011,01101100,01100001,01110100,01101111
> DATA 01110010,00101110,00100000,01001000,01101111,01110111
> DATA 01100101,01110110,01100101,01110010,00101100,00100000
> DATA 01101001,01100110,00100000,01111001,01101111,01110101
> DATA 00100000,01100111,01101111,01110100,00100000,01110100
> DATA 01101000,01101001,01110011,00100000,01100110,01100001
> DATA 01110010,00100000,01111001,01101111,01110101,00100000
> DATA 01100100,01101111,01101110,00100111,01110100,00100000
> DATA 01101110,01100101,01100101,01100100,00100000,01101001
> DATA 01110100,00100001,00001101,00001101,01001000,01100001
> DATA 01110000,01110000,01111001,00100000,01100011,01101111
> DATA 01100100,01101001,01101110,01100111,00100001,00001101
> DATA 00001101,01001011,01100101,01101110
> DATA 00000000
>
> window 13
> //
> dim aVal
> dim aBin$
> //
> moveto (1, 200)
> do
> read aBin$
> aBin$ = mid$ (aBin$, 2)
> aVal = val& ("&X" + aBin$)
> print  chr$ (aVal);
> until aVal = 0
> stop
>
> //Ciao a tutti, Giampaolo.
>
> --
>
>
----
Scott Spencer
sj3@...