10 REM TypeChecker v1.0 by Simon Forrest
20 REM for Amstrad Action December 1992 30 memory &9fff 40 csum=0 50 for addr=&a000 to &a05b 60 read byte$ 70 byte=val("&"+byte$) 80 poke addr,byte 90 csum=csum+byte 100 next addr 110 if csum<>&2add then print"Checksum Error":end 115 poke &a001,peek (&bb5b):poke &a002,peek (&bb5c) 120 poke &bb5a,&c3:poke &bb5b,&3:poke &bb5c,&a0 130 print"TypeChecker V1.0 Installed":end 140 data cf,fe,93,fe,0a,ca,00,a0,f5,c5,d5,e5,fe,0d,ca,22 150 data a0,5f,16,00,2a,5a,a0,19,22,5a,a0,e1,d1,c1,f1,c3 160 data 00,a0,3e,20,cd,00,a0,3e,18,cd,00,a0,2a,5a,a0,7c 170 data cd,45,a0,7d,cd,45,a0,3e,18,cd,00,a0,21,00,00,22 180 data 5a,a0,c3,1b,a0,f5,e6,0f,c6,41,cd,00,a0,f1,e6,f0 190 data 1f,1f,1f,1f,c6,41,cd,00,a0,c9,00,00,end |