[Coco] Cryptic BASIC program

[Stephen Pereira]

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