10 REM File Dump
20 REM By R.A.Waddilove 30 REM (c)Computing with the Amstrad 40 PRINT"CALL &A000 to dump a file.":PRINT"CALL &A000,1 to list a text file." 50 MEMORY &9FFF 60 address=&A000 70 FOR i=1 TO 21 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 line ";150+i*10:END 150 NEXT 160 DATA A7205DCD89A0CDC3A00A0D,561 170 DATA 002AF4A0CDCDA03E3ACD5A,597 180 DATA BB1139A00608CD80BCF5CD,57E 190 DATA D2A03E20CD5ABBF1E67FFE,706 200 DATA 2030023E2E121310E7CDC3,36A 210 DATA A020313233343536373800,264 220 DATA 2AF4A00108000922F4A0CD,453 230 DATA 7CA02AF6A0010800ED4222,436 240 DATA F6A07C3C20A81819CD89A0,53D 250 DATA CDC3A00A0D00CD80BCE67F,5B5 260 DATA CD5ABBCD7CA0CD89BC38F0,705 270 DATA C37DBCCD1EBBCB6920F9CB,6BA 280 DATA 79C8E118F0CDC3A04E616D,676 290 DATA 653A00CD7BBBCD81BB21E8,5B4 300 DATA A0010C00CD06BBFE203809,39A 310 DATA 7723CD5ABB040D20F021E8,4A6 320 DATA A0ED5B89AECD77BC30CCED,708 330 DATA 53F4A0ED43F6A0C9E17ECD,7A2 340 DATA 5ABB23B720F8E97CCDD2A0,6AB 350 DATA 7DF50F0F0F0FCDDBA0F1E6,5CD 360 DATA 0FC69027CE4027C35ABB00,499 400 PRINT"Is this a CPC464?" 410 k$=UPPER$(INKEY$) 420 IF k$="Y" THEN END 430 IF k$<>"N" THEN 410 440 POKE &A0B3,&6C |