[Coco] 64k test

[Rietveld Rietveld]

This program will test for 64k memory on a Coco 1/2

After running the program the 'OK' prompt at the top of the screen will be replaced with 'OY' if you have 64k else it will stay 'OK' if you have less than 64k


10 READ A$:IF A$="X" THEN 35
20 POKE 20000+N,VAL("&H"+A$)
30 N=N+1:GOTO10
35 EXEC 20000:POKE &HABEF,89:END
40 DATA 34,01,1A,50,10,8E,80,00
50 DATA B7,FF,DE,EC,A4,AE,22,EE
60 DATA 24,B7,FF,DF,ED,A1,AF,A1
70 DATA EF,A1,10,8C,FE,FC,25,E8
80 DATA 10,8C,FF,00,24,0C,B7,FF
90 DATA DE,EC,A4,B7,FF,DF,ED,A1
100 DATA 20,EE,35,01,39
110 DATA X




Sent from my BlackBerry Passport Red Edition.