0001 DIM A$[256] ! LEXPOKE adaptÅ de HPCC/Datafile V3N6P5 0002 INPUT 'Fichier Txt source: '; F$ @ IF F$='' THEN CAT ALL @ GOTO 2 0003 DISP 'Verif. CHKSUMs en cours" 0004 ASSIGN # 1 TO F$ @ A$=FNA$(1) @ L1=LASTLN?(F$) 0005 L=HTD(HEX$(REV$(A$[3,4]))) @ T$=A$[6,6] 0006 A1$='rxelpcnt' 0007 FOR I=1 TO 7 @ IF FLAG?(A$[5,5],8-I) THEN A1$[I,I]=UPRC$(A1$[I,I]) 0008 NEXT I 0009 C2=0 @ Y=1 @ IF NOT POS('TALWB',T$) THEN DO ERROR 68 0010 FOR I=1 TO L1-1 @ A$=FNA$(I) @ C1=0 0011 FOR B=1 TO LEN(A$)-1 @ B1=NUM(A$[B]) @ C1=MOD(C1+B1,255) @ C2=MOD(C2+B1,65535) @ NEXT B 0012 IF C1=NUM(A$[B]) THEN NEXT I ELSE 23 0013 IF C2>32767 THEN C2=C2-65536 0014 IF C2#HTD(HEX$(FNA$(I))) THEN 25 0015 F1$=F$[1,LEN(F$)-1] @ DISP 'Creation LEX : '&F1$ 0016 D=HTD(CREATE$(F1$,T$,A1$,L)) 0017 DISP 'POKE en cours' @ R=18 0018 FOR I=1 TO L1-Y @ A$=FNA$(I) 0019 Q=LEN(A$)-Y @ IF R=0 THEN 21 0020 IF R>Q THEN R=R-Q @ NEXT I ELSE A$=A$[R+1] @ R=0 @ GOTO 19 0021 APOKE DTH$(D),A$[1,Q] @ D=D+Q @ NEXT I 0022 BEEP @ DISP 'Termine' @ END 0023 INPUT 'Presence Chksms ?','O'; A1$ @ Y=POS(UPRC$(A1$),'O') 0024 IF NOT Y THEN 15 0025 EDIT F$ @ DISP 'Ligne';I;': ERR verif.' @ BEEP @ STOP @ GOTO 10 0026 DEF FNA$(X) 0027 READ # 1,X ; A$ @ FNA$=ASC$(MAP$(' ','',A$)) @ END DEF 0028 ! (c) 1987 PPC Paris et l'Auteur