*** 080
1 INPUT"&",A$:A$="&0"+A$:A=VAL(A$):DEF FN L=ASC(RIGHT$(A$,1)):IF FN L=58 THEN WHILE FN L<>59:PRINT">";HEX$(A,4);" ("+HEX$(PEEK(A),2);:INPUT") ",A$:Q=ASC(A$+" ")=45:G=ASC(MID$(A$,1-Q,1)):U=VAL("&0"+A$):POKE A,Q*(U-G)+U:A=A+1:WEND:RUN ELSE T=FN L<>35
2 IF T THEN WHILE INKEY$="":PRINT HEX$(A,4)" ";:FOR I=0 TO 7:E=PEEK(A+I):K=E<32:G=(E-46)*K:K=E>126:D=(E-46)*K:A$(I)=CHR$(E+G+D):PRINT HEX$(E,2)" ";:NEXT:FOR I=0 TO 7:PRINT A$(I);:NEXT:A=A+8:PRINT:WEND:CALL &BB06:ON INKEY(18)+2 GOTO 2,1 ELSE CALL A:CLS:RUN
->réédité dans le HS Amstrad en page 83