Date   : Fri, 20 Nov 2009 09:10:34 +0000
From   : robert@... (Rob)
Subject: Quine

This was my version of doing a self-LIST, started before I realised it
was quicker to cut down the code to a PRINT $(PAGE+n) ! ......   I
avoided the whole GOTO issue!!  I've finished it off and it seems to
work..

    5@%=5
   10DIMA$(128)
   20REPEAT:READ B%:IF B% THEN READ B$:A
$(B%-126)=B$
   30UNTILB%=0
   40FORI%=PAGE TO TOP-2
   50A%=?I%
   60IFA%=13ANDI%?1<>255THENPRINT'I%?2+2
56*I%?1;:I%=I%+3
   70IFA%>31ANDA%<127VDUA%
   80IF A%>126 PRINTA$(A%-126);
   90NEXT
  100DATA128,"AND",144,"PAGE",184,"TO"
  110DATA220,"DATA",231,"IF",243,"READ"
  120DATA245,"REPEAT",253,"UNTIL"
  130DATA241,"PRINT",227,"FOR"
  140DATA140,"THEN",132,"OR",239,"VDU"
  150DATA247,"RESTORE",237,"NEXT"
  160DATA 222,"DIM"
  170DATA0
>

On 20/11/2009, Mick Champion <rs423@...> wrote:
> Steve Fewell wrote:
>> Also:
>> 570 DATA 247,"RESTORE"
>>
>> For me line 140 still prints with a '#' after the line number - I can't
>> work out why that is!
>>
>> Steve.
>>
> For me it's a "!"???
>
>
> Mick.
>
>
>
>> --- On Fri, 20/11/09, Steve Fewell <kranser@...> wrote:
>>
>>
>>> From: Steve Fewell <kranser@...>
>>> Subject: Re: [BBC-Micro] Quine
>>> To: bbc-micro@..., "Mick Champion" <rs423@...>
>>> Date: Friday, 20 November, 2009, 1:22
>>> No you had STR$ - you missed CHR$!
>>>
>>> 455 DATA 189,"CHR$"
>>>
>>> I also made these changes:
>>> 70 UNTIL A%>=TOP-1
>>> 140 B%=?A%*256+A%?1:A%=A%+2:PRINT ;B%;
>>> 270 PRINT ;?B%-B%?1;
>>> 320 IF A$="*" A$="<*"+STR$?A%+"*>"
>>>
>>> Steve.
>>>
>>> --- On Fri, 20/11/09, Mick Champion <rs423@...>
>>> wrote:
>>>
>>>
>>>> From: Mick Champion <rs423@...>
>>>> Subject: Re: [BBC-Micro] Quine
>>>> To: bbc-micro@...
>>>> Date: Friday, 20 November, 2009, 0:50
>>>> Mick Champion wrote:
>>>>
>>>>> 400 DATA 128,"AND"
>>>>> 410 DATA 130,"EOR"
>>>>> 420 DATA 132,"OR"
>>>>>
>>>>>
>>>> ....
>>>>
>>>> Arrrgh! I missed out the token for STR$
>>>>
>>>> 455 DATA 195,"STR$"
>>>>
>>>>
>>>> Also see a "!" on line 140. Oh dear. Failure!!!!
>>>>
>>> Better
>>>
>>>> leave looking
>>>> more until I wake up sometime next month <cry>
>>>>
>>>>
>>>> Mick.
>>>>
>>>>
>>>> _______________________________________________
>>>> bbc-micro mailing list
>>>> bbc-micro@...
>>>> http://lists.cloud9.co.uk/mailman/listinfo/bbc-micro
>>>>
>>>>
>>>
>>>
>>> _______________________________________________
>>> bbc-micro mailing list
>>> bbc-micro@...
>>> http://lists.cloud9.co.uk/mailman/listinfo/bbc-micro
>>>
>>>
>>
>>
>>
>>
>> ------------------------------------------------------------------------
>>
>>
>> No virus found in this incoming message.
>> Checked by AVG - www.avg.com
>> Version: 9.0.707 / Virus Database: 270.14.73/2514 - Release Date: 11/19/09
>> 19:42:00
>>
>>
>
>
> _______________________________________________
> bbc-micro mailing list
> bbc-micro@...
> http://lists.cloud9.co.uk/mailman/listinfo/bbc-micro
>