On Thu, 18 Mar 2010 10:20:07 +0100, Ace <(E-Mail Removed)>
wrote in <(E-Mail Removed)>:
> On Thu, 18 Mar 2010 09:07:20 +0000 (UTC), "Dr Ivan D. Reid"
><(E-Mail Removed)> wrote:

>>On 18 Mar 2010 08:50:29 GMT, CT <(E-Mail Removed)>
>> wrote in <(E-Mail Removed)>:
>>> Ace wrote:

>>>> Fooking cheater. It only takes a few lines of code:
>>>> data;
>>>> x='01000110011101010110001101101011001000000111100 10110111101110101001
>>>> 01100001000000111100101101111011101010010000001100 11001110101011000110
>>>> 11010110110100101101110011001110010000001100110011 10101011000110110101
>>>> 1' ; length eights1-eights30 $ 8 ; length c $ 30 ;
>>>> array eights eights1-eights30 ;
>>>> do i = 1 to ((length(x)/8)) ;
>>>> eights(i)=substr(x,(i*8-7),8) ;
>>>> p=input(eights(i),binary8.) ;
>>>> substr(c,i,1)=byte(p);
>>>> end;
>>>> E=put(c,$EBCDIC34.) ;
>>>> put c= e= ;
>>>> run;

>>> It don't look like any kind of code I've ever written.

>> It's Swiss-German...

> You understood it then?

Inasmuch as my Swiss-German is about as good as my SAS!

--
Ivan Reid, School of Engineering & Design, _____________ CMS Collaboration,
Brunel University. Ivan.Reid@[brunel.ac.uk|cern.ch] Room 40-1-B12, CERN
GSX600F, RG250WD "You Porsche. Me pass!" DoD #484 JKLO#003, 005
WP7# 3000 LC Unit #2368 (tinlc) UKMC#00009 BOTAFOT#16 UKRMMA#7 (Hon)
KotPT -- "for stupidity above and beyond the call of duty".

darsy <(E-Mail Removed)> wrote in
news:(E-Mail Removed):

> On Wed, 17 Mar 2010 17:57:56 +0100, Ace <(E-Mail Removed)> wrote:
>
>>EBCDIC
>
> for puffs.
>
> proper coders used BCD, if they had to pander to non-binary readers.

I've never actually used EBCDIC (in that era I was doing Unix systems),
but I have used BCD; for some reason I forget now I needed it when
writing assembly code for the BBC micro. I'm not sure that makes me a
"proper coder" though.

--
Jeremy
R1200RT

On Thu, 18 Mar 2010 10:20:07 +0100, Ace <(E-Mail Removed)> wrote:

>On Thu, 18 Mar 2010 09:07:20 +0000 (UTC), "Dr Ivan D. Reid"
><(E-Mail Removed)> wrote:
>
>>On 18 Mar 2010 08:50:29 GMT, CT <(E-Mail Removed)>
>> wrote in <(E-Mail Removed)>:
>>> Ace wrote:
>>
>>>> Fooking cheater. It only takes a few lines of code:
>>>> data;
>>>> x='01000110011101010110001101101011001000000111100 10110111101110101001
>>>> 01100001000000111100101101111011101010010000001100 11001110101011000110
>>>> 11010110110100101101110011001110010000001100110011 10101011000110110101
>>>> 1' ; length eights1-eights30 $ 8 ; length c $ 30 ;
>>>> array eights eights1-eights30 ;
>>>> do i = 1 to ((length(x)/8)) ;
>>>> eights(i)=substr(x,(i*8-7),8) ;
>>>> p=input(eights(i),binary8.) ;
>>>> substr(c,i,1)=byte(p);
>>>> end;
>>>> E=put(c,$EBCDIC34.) ;
>>>> put c= e= ;
>>>> run;
>>
>>> It don't look like any kind of code I've ever written.
>>
>> It's Swiss-German...
>
>You understood it then?

I did
--
Adie
(replace spam with nickname to reply)

UKRM FAQ: http://www.ukrm.info/faq/

YZF-R1 : FZ1N : RD350LC
(anyone would think I was partial to Yamahas)
keeper of the FAQ for my sins
MRO#11 BOTAFOF#7 BOTAFOT#130 DIAABTCOD#17 MIB#24 YTC#16
BOB#15 ex-UKRMMA#22 BOMB#11

On Thu, 18 Mar 2010 16:28:12 +0000 (UTC), "Dr Ivan D. Reid"
<(E-Mail Removed)> wrote:

>On Thu, 18 Mar 2010 10:20:07 +0100, Ace <(E-Mail Removed)>
> wrote in <(E-Mail Removed)>:
>> On Thu, 18 Mar 2010 09:07:20 +0000 (UTC), "Dr Ivan D. Reid"
>><(E-Mail Removed)> wrote:
>
>>>On 18 Mar 2010 08:50:29 GMT, CT <(E-Mail Removed)>
>>> wrote in <(E-Mail Removed)>:
>>>> Ace wrote:
>
>>>>> Fooking cheater. It only takes a few lines of code:
>>>>> data;

>>>> It don't look like any kind of code I've ever written.
>
>>> It's Swiss-German...
>
>> You understood it then?
>
> Inasmuch as my Swiss-German is about as good as my SAS!

In both cases you can at least recognise it and make an educated guess
as to meaning, right?

In message <(E-Mail Removed)>, Ace
<(E-Mail Removed)> writes
>On Thu, 18 Mar 2010 09:07:20 +0000 (UTC), "Dr Ivan D. Reid"
><(E-Mail Removed)> wrote:
>
>>On 18 Mar 2010 08:50:29 GMT, CT <(E-Mail Removed)>
>> wrote in <(E-Mail Removed)>:
>>> Ace wrote:
>>
>>>> Fooking cheater. It only takes a few lines of code:
>>>> data;
>>>> x='01000110011101010110001101101011001000000111100 10110111101110101001
>>>> 01100001000000111100101101111011101010010000001100 11001110101011000110
>>>> 11010110110100101101110011001110010000001100110011 10101011000110110101
>>>> 1' ; length eights1-eights30 $ 8 ; length c $ 30 ;
>>>> array eights eights1-eights30 ;
>>>> do i = 1 to ((length(x)/8)) ;
>>>> eights(i)=substr(x,(i*8-7),8) ;
>>>> p=input(eights(i),binary8.) ;
>>>> substr(c,i,1)=byte(p);
>>>> end;
>>>> E=put(c,$EBCDIC34.) ;
>>>> put c= e= ;
>>>> run;
>>
>>> It don't look like any kind of code I've ever written.
>>
>> It's Swiss-German...
>
>You understood it then?
>
NOBODY understands Swetzer dooch

--
geoff

On Thu, 18 Mar 2010 17:30:54 GMT, "Jérémy" <(E-Mail Removed)> wrote:

>darsy <(E-Mail Removed)> wrote in
>news:(E-Mail Removed) :
>
>> On Wed, 17 Mar 2010 17:57:56 +0100, Ace <(E-Mail Removed)> wrote:
>>
>>>EBCDIC
>>
>> for puffs.
>>
>> proper coders used BCD, if they had to pander to non-binary readers.
>
>I've never actually used EBCDIC (in that era I was doing Unix systems),
>but I have used BCD; for some reason I forget now I needed it when
>writing assembly code for the BBC micro. I'm not sure that makes me a
>"proper coder" though.

it doesn't.

HTH.

--
d.

On Thu, 18 Mar 2010 20:45:43 +0100, Ace <(E-Mail Removed)>
wrote in <(E-Mail Removed)>:
> On Thu, 18 Mar 2010 16:28:12 +0000 (UTC), "Dr Ivan D. Reid"
><(E-Mail Removed)> wrote:

>>On Thu, 18 Mar 2010 10:20:07 +0100, Ace <(E-Mail Removed)>
>> wrote in <(E-Mail Removed)>:
>>> On Thu, 18 Mar 2010 09:07:20 +0000 (UTC), "Dr Ivan D. Reid"
>>><(E-Mail Removed)> wrote:

>>>>On 18 Mar 2010 08:50:29 GMT, CT <(E-Mail Removed)>
>>>> wrote in <(E-Mail Removed)>:

>>>>> It don't look like any kind of code I've ever written.

>>>> It's Swiss-German...

>>> You understood it then?

>> Inasmuch as my Swiss-German is about as good as my SAS!

> In both cases you can at least recognise it and make an educated guess
> as to meaning, right?

Yup!

--
Ivan Reid, School of Engineering & Design, _____________ CMS Collaboration,
Brunel University. Ivan.Reid@[brunel.ac.uk|cern.ch] Room 40-1-B12, CERN
GSX600F, RG250WD "You Porsche. Me pass!" DoD #484 JKLO#003, 005
WP7# 3000 LC Unit #2368 (tinlc) UKMC#00009 BOTAFOT#16 UKRMMA#7 (Hon)
KotPT -- "for stupidity above and beyond the call of duty".

Adie wrote:
> On Thu, 18 Mar 2010 10:20:07 +0100, Ace <(E-Mail Removed)> wrote:

>>>>> Fooking cheater. It only takes a few lines of code:
>>>>> data;
>>>>> x='01000110011101010110001101101011001000000111100 10110111101110101001
>>>>> 01100001000000111100101101111011101010010000001100 11001110101011000110
>>>>> 11010110110100101101110011001110010000001100110011 10101011000110110101
>>>>> 1' ; length eights1-eights30 $ 8 ; length c $ 30 ;
>>>>> array eights eights1-eights30 ;
>>>>> do i = 1 to ((length(x)/8)) ;
>>>>> eights(i)=substr(x,(i*8-7),8) ;
>>>>> p=input(eights(i),binary8.) ;
>>>>> substr(c,i,1)=byte(p);
>>>>> end;
>>>>> E=put(c,$EBCDIC34.) ;
>>>>> put c= e= ;
>>>>> run;
>>>
>>>> It don't look like any kind of code I've ever written.
>>>
>>> It's Swiss-German...
>>
>> You understood it then?
>
> I did

*CLIQUE*!!

--
Hog

On Fri, 19 Mar 2010 09:58:29 -0000, "'Hog"
<(E-Mail Removed)> wrote:

>Adie wrote:
>> On Thu, 18 Mar 2010 10:20:07 +0100, Ace <(E-Mail Removed)> wrote:

>>>>>> run;
>>>>
>>>>> It don't look like any kind of code I've ever written.
>>>>
>>>> It's Swiss-German...
>>>
>>> You understood it then?
>>
>> I did
>
>*CLIQUE*!!

Of 2? Surely we'd need more than that?

Ace wrote:
> On Fri, 19 Mar 2010 09:58:29 -0000, "'Hog"
> <(E-Mail Removed)> wrote:
>
>> Adie wrote:
>>> On Thu, 18 Mar 2010 10:20:07 +0100, Ace <(E-Mail Removed)>
>>> wrote:
>
>>>>>>> run;
>>>>>
>>>>>> It don't look like any kind of code I've ever written.
>>>>>
>>>>> It's Swiss-German...
>>>>
>>>> You understood it then?
>>>
>>> I did
>>
>> *CLIQUE*!!
>
> Of 2? Surely we'd need more than that?

<thinks>

Based on other applications you may be right, it needs 3.

--
Hog