Date   : Wed, 18 Nov 2009 12:32:17 +0000
From   : rs423@... (Mick Champion)
Subject: Quine

me@... wrote:
> On 17 Nov 2009, at 11:59, Mick Champion wrote:
>
>   
>> (Nothing could be as useless 
>> as Quine though.)
>>     
>
> Here's an improved version.
>
> 10 LET Q$ = "20 PRINT CHR$(49) + CHR$(48) + CHR$(32) + CHR$(76) + CHR$(69)
+ CHR$(84) + CHR$(32) + CHR$(81) + CHR$(36) + CHR$(32) + CHR$(61) + CHR$(32)
+ CHR$(34) + Q$ + CHR$(34): PRINT Q$"
>
> 20 PRINT CHR$(49) + CHR$(48) + CHR$(32) + CHR$(76) + CHR$(69) + CHR$(84)
+ CHR$(32) + CHR$(81) + CHR$(36) + CHR$(32) + CHR$(61) + CHR$(32) + CHR$(34)
+ Q$ + CHR$(34): PRINT Q$
>
> (Note split lines, there are only two lines of BASIC.)
>   

Here's a much easier Quine ;

10 OSCLI"FX138,0,76"
20 OSCLI"FX138,0,46"
30 OSCLI"FX138,0,13"


You could add this to the end of a useful program, but it wouldn't be 
Quine then would it.

If you want it to be really annoying ;

40 OSCLI"FX138,0,82"
50 OSCLI"FX138,0,85"
60 OSCLI"FX138,0,78"
70 OSCLI"FX138,0,13"

 :-) 


Cheers,

Mick