10 '*********************************** 20 '* RAMTEST and MACHINE TYPE routine* 30 '* by Rob Scott * 40 '*********************************** 50 ' 60 code=&8000 70 FOR a=&8000 TO &803E:READ c$ 80 POKE a,VAL("&"+c$):NEXT 90 CALL code:CALL code+3 110 machine=PEEK(code+&3E) 120 ramyes=PEEK(code+&3D) 140 END 150 DATA C3,06,80,C3,33,80,21,00,40,3E 160 DATA C4,06,7F,ED,79,77,3E,C0,ED,79 170 DATA 3E,C4,ED,79,AF,7E,FE,C4,CA,29 180 DATA 80,D6,04,ED,79,3E,00,32,3D,80 190 DATA C9,D6,04,ED,79,3E,01,32,3D,80 200 DATA C9,0E,00,CD,15,B9,7C,32,3E,80 210 DATA C9,00,00