10 REM Variable Dump
20 REM By R.A.Waddilove 30 REM(c)Computing With The Amstrad 40 REM CALL &A000 to enable —VARDUMP Hold down key to see variables 60 MEMORY &9FFF:address=&A000 70 FOR i=1 TO 19 80 sum=0:READ code$,check$ 90 FOR j=1 TO 21 STEP 2 100 byte=VAL("&"+MID$(code$,j,2)) 110 POKE address,byte 120 sum=sum+byte:address=address+1 130 NEXT 140 IF sum<>VAL("&"+check$) THEN PRINT "Error in data in line ";150+i*10 150 NEXT 160 DATA 214BA0CB4EC0CBCE0146A0,565 170 DATA 2142A0CDD1BCCD00B9F53A,612 180 DATA 02C0A72812216AAE224DA0,3EB 190 DATA 2168AE2252A0216CAE2292,43A 200 DATA A0F1CD0CB9CDC5A04F4B0D,5FC 210 DATA 0A00C956415244554DD000,372 220 DATA 000000003AA0C34CA0002A,2B3 230 DATA 87AEE5ED5B85AEA7ED52E1,75C 240 DATA CA8FA0EB2323CD9BA03E0D,57D 250 DATA CD5ABB3E0ACD5ABBCD06BB,59A 260 DATA 09E5ED52E138E91818CD9B,5C7 270 DATA A0E5CDC5A028290D0A00E1,500 280 DATA CD06BB235E235623232319,30A 290 DATA E5ED5B89AEA7ED52E138DD,740 300 DATA C97EF620E67FCD5ABBCB7E,6ED 310 DATA 2328F37EFE0120083E2501,347 320 DATA 0500C35ABBFE0220083E24,367 330 DATA 010600C35ABB010800C9E1,392 340 DATA 7ECD5ABB23B720F8E90000,53B |