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 checks$:checks=VAL("&"+checks$) 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 insert 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 |