1 ' Hacker
2 ' by Martin Schroeder
3 ' Amstrad Action March 88
10 MODE 2:f$=CHR$(13)+CHR$(10):adr=44800:steps=34
20 FOR loop=1 TO steps:check=0
30 FOR q=1 TO 10:READ a$:a=VAL("&"+a$)
40 POKE adr+(loop-1)*10+q-1,a:check=check+a:NEXT
50 READ check$:checks=VAL("&"+check$)
60 IF checks<>check THEN 170
70 LOCATE 1,2:PRINT"checking line:";180+(loop-1)*10:NEXT
80 MODE 2:PRINT"HACKER V1.0  (c) 1987 M.Schroeder";f$;f$;
90 PRINT"Please instert a disc then press any key"CHR$(7)":"
100 CALL &BB18:PRINT:PRINT" saving HACKER.BIN . . ."
110 SAVE"hacker",b,&AF00,&160
120 PRINT:PRINT"For screen type: "
130 PRINT "name$=";CHR$(34);"filename";CHR$(34);":CALL ";
140 PRINT "&AF00,@name$":PRINT:PRINT"For printer type: "
150 PRINT "name$=";CHR$(34);"filename";CHR$(34);":CALL ";
160 PRINT "&B023,@name$":END
170 PRINT"Data Error in line ";180+(loop-1)*10;CHR$(7):END
180 DATA CD,04,B0,D5,C5,CD,DF,AF,D1,E1,728
190 DATA D5,7E,FE,3A,CC,41,AF,FE,21,CC,632
200 DATA 53,AF,FE,05,CC,66,AF,FE,46,CC,5F6
210 DATA 79,AF,FE,3D,CC,5B,AF,D1,E5,CD,6BC
220 DATA 09,BB,30,03,CD,18,BB,E1,23,1B,3B6
230 DATA B3,7A,FE,00,28,6C,18,D0,E5,DD,569
240 DATA E1,DD,7E,03,C9,CD,3A,AF,FE,3D,5F9
250 DATA 28,01,C9,23,23,23,3E,02,CD,84,2EC
260 DATA AF,00,C9,CD,3A,AF,FE,35,28,EF,578
270 DATA C9,3E,01,18,15,E5,DD,E1,DD,7E,533
280 DATA 01,C9,FE,70,28,08,DD,7E,02,FE,4C3
290 DATA 43,28,01,C9,3E,03,CD,84,AF,23,399
300 DATA C9,CD,5F,AF,FE,05,28,01,C9,23,4BC
310 DATA 18,EE,E5,32,1F,B0,21,AF,AF,06,471
320 DATA 06,CD,B8,AF,E1,E5,CD,C0,AF,21,65D
330 DATA B5,AF,06,03,CD,B8,AF,3A,1F,B0,4AA
340 DATA CD,C9,AF,E1,3E,0D,CD,5A,BB,3E,591
350 DATA 0A,CD,5A,BB,C9,50,4F,4B,45,20,404
360 DATA 26,2C,30,20,7E,CD,5A,BB,23,10,335
370 DATA F9,C9,7C,CD,C9,AF,7D,CD,C9,AF,745
380 DATA C9,F5,1F,1F,1F,1F,CD,D2,AF,F1,579
390 DATA E6,0F,FE,0A,38,02,C6,07,C6,30,3FA
400 DATA C3,5A,BB,21,EC,AF,06,18,CD,B8,537
410 DATA AF,CD,A4,AF,18,B8,54,72,79,20,4FE
420 DATA 74,68,65,20,66,6F,6C,6C,6F,77,3F4
430 DATA 69,6E,67,20,50,4F,4B,45,73,3A,33A
440 DATA DD,66,01,DD,6E,00,46,23,5E,23,379
450 DATA 56,EB,CD,77,BC,C5,D5,EB,CD,83,716
460 DATA BC,CD,7A,BC,D1,C1,C9,03,00,00,51D
470 DATA 00,21,5A,BB,E5,11,20,B0,01,03,300
480 DATA 00,ED,B0,E1,3E,C3,77,21,48,B0,50F
490 DATA 22,5B,BB,CD,00,AF,21,20,B0,11,3B6
500 DATA 5A,BB,01,03,00,ED,B0,C9,CD,2E,47A
510 DATA BD,38,FB,FE,0D,C8,C3,2B,BD,00,56E