[Coco] Cryptic BASIC program

[Bruce W. Calkins]

Although that might imply that all the instances of 1600 should be 16000.
Bruce W.
================

On 09/25/2015 10:35 PM, Bruce W. Calkins wrote:
> More probably it should be: "120 FOR X = 16000 to 16013" which would 
> put it in high RAM but below the active high memory for a 16k machine 
> after a normal startup.
> Debugging Basic was always "fun."
> Bruce W.
>
> On 09/25/2015 09:09 PM, Stephen Pereira wrote:
>> Yes, I agree with you that the upper limit of the loop should be 1613.
>> Then, the right number of bytes will be deposited into memory 
>> starting at 1600.
>>
>> After that, I would have to decipher what the bytes will do as 6809 
>> machine language, when called...
>>
>> smp
>> -- 
>> Stephen M. Pereira
>> Bedford, NH  03110
>> KB1SXE
>>
>>
>>> On Sep 25, 2015, at 8:59 PM, Salvador Garcia 
>>> <ssalvadorgarcia at netscape.net> wrote:
>>>
>>>
>>> Hi all, I am once again at the location where my Color Computer is 
>>> located and was looking over the books that I have. I found a BASIC 
>>> listing that a Radio Shack employee gave me back when I upgraded my 
>>> CoCo I from 16 to 64K. I know it is related to the upgrade, but I do 
>>> not know what it does exactly. Following is the listing. If anyone 
>>> recognizes what it does it sure would be helpful. Thank you
>>>
>>> Salvador
>>>
>>> 100 CLS
>>> 110 IF MEM < 1600 THEN PRINT "32K"
>>> 120 FOR X = 1600 TO 16013
>>> 130 READ Y : POKE X, Y : NEXT X
>>> 140 DEF USR0 = 1600
>>> 150 A = USR0(0)
>>> 160 IF A THEN PRINT "32K" ELSE PRINT "64K"
>>> 170 END
>>> 180 DATA 198, 191, 247, 255, 2, 246, 255, 34, 196, 4, 79, 126, 180, 244
>>>
>>> PS: looking over the code it seems there is an anomaly with the 
>>> upper range of the for loop. I believe it should be 1613. I typed it 
>>> in exactly as the listing that I have shows.
>>>
>>> -- 
>>> Coco mailing list
>>> Coco at maltedmedia.com
>>> https://pairlist5.pair.net/mailman/listinfo/coco
>>
>