[Coco] Cryptic BASIC program

[Barry Nelson]

Actually, I believe this is the corrected listing, but I could be wrong.

100 CLS
110 IF MEM < 16000 THEN PRINT "16K":END
120 FOR X = 16000 TO 16013
130 READ Y : POKE X, Y : NEXT X
140 DEF USR0 = 16000
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

If I am right, it simply tell you the amount of RAM that is installed.

On Sep 25, 2015, at 10:58 PM, coco-request at maltedmedia.com wrote:

> Date: Fri, 25 Sep 2015 20:59:53 -0400
> From: Salvador Garcia <ssalvadorgarcia at netscape.net>
> To: coco at maltedmedia.com
> Subject: [Coco] Cryptic BASIC program
> Message-ID: <1500729d65a-3386-7a1f at webprd-a69.mail.aol.com>
> Content-Type: text/plain; charset=utf-8
> 
> 
> 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.