10 MODE 2:MEMORY &9FFF:FOR i=&A000 TO &A046:READ c$ 20 c=VAL("&"+c$):POKE i,c:s=s+c:NEXT 30 IF s<>7962 THEN PRINT "ERROR!!!":LIST 40 PRINT "CALL &A000,a,b,c... etc. to leave":PRINT"selected ROM numbers on" 50 DATA 21,46,A0,77,B7,CA,14,A0,47,23,DD,7E,00,77,DD,23,DD,23 60 DATA 10,F5,0E,00,21,1C,A0,CD,16,BD,3E,C9,32,CB,BC,3A,46,A0 70 DATA B7,CA,3F,A0,47,DD,21,47,A0,11,40,00,21,7F,AB,C5,DD,4E 80 DATA 00,CD,CE,BC,C1,DD,23,10,F4,DF,42,A0,06,C0,00,00,00,00