1 ' Memkit 2 ' Mark Baldwin 3 ' Amstrad Action November 1988 10 MEMORY &9FFF:add=&A000:FOR p=1 TO 20:sum=0 20 FOR x=1 TO 16:READ a$:byte=VAL("&"+a$):POKE add,byte 30 add=add+1:sum=sum+byte:NEXT:READ a$ 40 IF sum<>VAL("&"+a$) THEN PRINT"ERROR in line";50+p*10:END 50 NEXT:CALL &A000:PRINT"Commands installed":NEW 60 DATA 21,3B,A1,01,09,A0,C3,D1,BC,1D,A0,C3,51,A0,C3,FD,828 70 DATA A0,C3,DD,A0,C3,CB,A0,C3,EC,A0,C3,3A,A0,4D,44,55,9E0 80 DATA 4D,D0,4D,46,49,4C,CC,44,4F,4B,C5,44,45,45,CB,42,68F 90 DATA 4D,4F,56,C5,4D,54,59,50,C5,00,3D,C2,1D,A1,3E,42,603 100 DATA CD,1E,BB,C0,1A,FE,20,30,02,3E,2E,CD,5A,BB,13,18,649 110 DATA ED,FE,02,28,0F,FE,03,C2,1D,A1,DD,4E,00,CD,0F,B9,765 120 DATA DD,23,DD,23,DD,46,00,DD,5E,02,DD,56,03,3E,42,CD,6E3 130 DATA 1E,BB,20,3A,7A,CD,B4,A0,7B,CD,B4,A0,D5,48,06,08,795 140 DATA 3E,20,CD,5A,BB,1A,CD,B4,A0,13,10,F4,3E,20,CD,5A,717 150 DATA BB,D1,06,08,1A,FE,20,30,02,3E,2E,CD,5A,BB,13,10,575 160 DATA F3,3E,0D,CD,5A,BB,3E,0A,CD,5A,BB,41,10,BF,0E,00,668 170 DATA CD,0F,B9,C9,F5,07,07,07,07,CD,BD,A0,F1,E6,0F,F6,875 180 DATA 30,FE,3A,38,02,C6,07,CD,5A,BB,C9,FE,02,C2,1D,A1,79A 190 DATA DD,6E,02,DD,66,03,7E,12,23,13,7E,12,C9,FE,02,C2,674 200 DATA 1D,A1,DD,6E,02,DD,66,03,73,23,72,C9,FE,03,C2,1D,702 210 DATA A1,CD,10,A1,DD,4E,00,DD,46,01,ED,B0,C9,FE,03,C2,897 220 DATA 1D,A1,CD,10,A1,DD,46,00,70,23,1B,7A,B3,20,F9,C9,71C 230 DATA DD,6E,04,DD,66,05,DD,5E,02,DD,56,03,C9,21,2A,A1,6BF 240 DATA 06,11,7E,CD,5A,BB,23,10,F9,C9,50,61,72,61,6D,65,6C2 250 DATA 74,65,72,20,65,72,72,6F,72,0D,0A,00,00,00,00,00,3AC