10 :'Toolbasic + fuer CPC 6128 11 MEMORY &95FF:LOAD"tool+.bin" 12 FOR i=1 TO 13:READ a$,b$ 13 a=VAL("&"+a$):b=VAL("&"+b$) 14 b=UNT(b)+65536:h=INT(b/256):l=b-256*h 15 POKE a,l:POKE a+1,h:NEXT 16 SAVE"tool+.bin",b,&9600,&3FF 17 DATA 9729,ae58,98c1,ae58,9923,ae58 18 DATA 9928,b7c3,9705,e9a3,98e9,e9a3 19 DATA 98f1,e9a3,9906,e9a3,98c9,ae66 20 DATA 993b,ac06,996b,c3f5,9965,c3a0 21 DATA 997e,9fe9