[Coco] Cryptic BASIC program

[Bruce W. Calkins]

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
>