0001 DIM A$[256],D$[60] ! LXDUMP75 (adaptÅ de DATAFILE V3N6P4)
0002 W=12 @ R$,D$=" " @ FOR I=1 TO W+W/2-4 @ D$=D$&"-" @ NEXT I
0003 INPUT "Nom LEX ? ";F$ @ F$=LEFT$(F$,8) @ I=-31414
0004 B$=APEEK$(DTH$(I),18) @ IF B$[1,2]='' THEN DISP F$&' non trouve'; @ GOTO 3
0005 IF B$[11]#F$ THEN I=I+18 @ GOTO 4
0006 A=HTD(HEX$(REV$(B$[1,2]))) @ A$=B$&APEEK$(DTH$(A),18) @ A=A+18
0007 I,K,C1,C2=0 @ L1=1 @ L=HTD(HEX$(REV$(A$[3,4])))+18
0008 R=HTD(HEX$(REV$(A$[19,20]))) @ IF A$[6,6]='L' THEN R$='  ROM ID: '&STR$(R)
0010 PRINT F$;' '&B$[6,6];L;' Octets '&R$ @ PRINT
0011 PRINT 'Ligne'&D$&' Data'&D$&' Check' @ PRINT
0012 K=1 @ FOR J=1 TO L @ I=I+1 @ IF I=37 THEN I=1 @ A$=APEEK$(DTH$(A),36) @ A=A+36
0013 IF MOD(J,W)=1 THEN PRINT USING '3d,a' ; L1;' '; @ L1=L1+1 @ C1=0
0014 B1=NUM(A$[I]) @ PRINT FNH$(B1);
0015 C1=MOD(C1+B1,255) @ C2=MOD(C2+B1,65535) @ IF NOT MOD(J,W) THEN PRINT ' ';FNH$(C1)
0016 NEXT J @ IF NOT MOD(L,W) THEN 18
0017 FOR I=1 TO W-MOD(L,W) @ PRINT '   '; @ NEXT I @ PRINT ' ';FNH$(C1)
0018 IF C2>32767 THEN C2=C2-65536
0019 PRINT USING '3d,2x,k' ; L1,DTH$(C2)
0020 PRINT @ END
0021 DEF FNH$(X) = ' '&HEX$(CHR$(X))
0022 ! (c) 1987 PPC Paris et l'Auteur