1 ' Tester 2 ' by Peter Shersby 3 ' Amstrad Action April 88 10 MEMORY &97FF:addr=&9800:chk=0:li=110 20 FOR f=1 TO 16:READ a$:POKE addr,VAL("&"+a$) 30 addr=addr+1:chk=chk+VAL("&"+a$):NEXT 40 READ a$:IF chk<>VAL("&"+a$) THEN PRINT"ERROR in ";li:END 50 chk=0:li=li+10:IF li<350 THEN 20 60 CALL &9800:CLS:PRINT"SUBROUTINE TESTER INSTALLED":END 70 ' 80 ' 90 ' 100 DATA CD,0C,98,21,73,99,01,77,99,C3,D1,BC,01,03,00,21,624 110 DATA 70,99,11,30,00,ED,B0,C9,ED,73,81,99,B7,CA,9C,98,8DF 120 DATA DD,66,01,DD,6E,00,DD,2B,DD,2B,3D,E9,FD,E5,DD,E5,969 130 DATA E5,D5,C5,F5,DD,21,00,00,DD,39,FD,21,56,99,06,0C,7A7 140 DATA DD,66,01,DD,6E,00,FD,74,01,FD,75,00,DD,23,DD,23,773 150 DATA FD,23,FD,23,10,EA,21,C8,98,CD,9F,98,06,0C,DD,21,7CF 160 DATA 56,99,C5,DD,E5,DD,66,01,DD,6E,00,CD,A8,98,21,C5,8F8 170 DATA 98,CD,9F,98,DD,E1,C1,DD,23,DD,23,10,E5,CD,00,BB,998 180 DATA 3E,42,CD,1E,BB,20,10,3E,12,CD,1E,BB,28,EF,F1,C1,715 190 DATA D1,E1,DD,E1,FD,E1,C9,ED,7B,81,99,C9,21,3B,99,7E,AD5 200 DATA B7,C8,CD,5A,BB,23,18,F7,7C,CD,AD,98,7D,F5,06,04,89D 210 DATA CB,3F,10,FC,CD,BA,98,F1,E6,0F,C6,30,FE,3A,38,02,883 220 DATA C6,07,C3,5A,BB,0A,0D,00,20,20,20,20,20,20,20,20,3BC 230 DATA 41,46,0A,0D,20,20,20,20,20,20,20,20,42,43,0A,0D,23A 240 DATA 20,20,20,20,20,20,20,20,44,45,0A,0D,20,20,20,20,220 250 DATA 20,20,20,20,48,4C,0A,0D,20,20,20,20,20,20,20,20,22B 260 DATA 49,58,0A,0D,20,20,20,20,20,20,20,20,49,59,0A,0D,271 270 DATA 20,20,20,20,20,20,20,20,50,43,0A,0D,20,20,20,20,22A 280 DATA 20,20,20,20,53,74,61,63,6B,20,43,6F,6E,74,65,6E,4FD 290 DATA 74,73,0D,0B,0B,0B,0B,0B,0B,0B,00,45,52,52,4F,52,2CB 300 DATA 20,2D,20,4E,6F,20,61,64,64,72,65,73,73,20,67,69,520 310 DATA 76,65,6E,0D,0A,00,00,00,00,00,00,00,00,00,00,00,160 320 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,000 330 DATA C3,2C,98,00,00,00,00,7C,99,C3,18,98,54,45,53,D4,5CF