Шрифт:
910 IF C$="0101111" THEN PRINT "Z";
920 IF C$="1101110'' THEN PRINT "{3BH}";
930 IF C$="0011111" THEN PRINT "{3DH}";
940 IF C$="1011110" THEN PRINT "{3EH}"
950 IF C$="1111111" THEN PRINT "{40H}";
960 RETURN
970 REM (c) 1996 Patrick GUEULLE
Время от времени приходится сталкиваться с файлом .CAR, который после считывания карты не мог быть декодирован надлежащим образом с помощью программ LECTISO.
Прежде чем приступить к изучению карты с использованием «магнитного разоблачителя», желательно провести простой анализ посредством специальной программы.
10 REM — PARITY.BAS—
20 KEY OFF: CLS
30 PRINT "имя файла, подлежащего проверке";
40 INPUT N$: IF N$ = "" THEN END
50 FOR F=1 TO LEN (N$)
60 IF MID$(N$,F,1) = "." THEN 90
70 NEXT F
80 N$=N$+".CAR"
90 OPEN N$ FOR INPUT AS #1
100 CLS: PRINT "идет контроль четности…": PRINT
110 DIM A(LOF(1))
120 M=0: WHILE NOT EOF(1)
130 INPUT#1,A(M): M=M+1: WEND
140 PRINT "0…0";
150 X=0
160 IF A(X) =1 THEN 180
170 X=X+1: GOTO 160
180 N=0: FOR F=X TO X+4
190 IF A(F) =1 THEN N=N+1: PRINT "1"; ELSE PRINT "0";
200 NEXT F: PRINT " ";
210 IF (N/2)-INT(N/2)=0 THEN 230
220 IF X>=M THEN 310 ELSE X=X+5: GOTO 180
230 IF N>0 THEN 290
240 FOR G=X TO M
250 IF A(G)>0 THEN 290
260 NEXT G
270 PRINT "0…0"
280 GOTO 310
290 PRINT: PRINT: PRINT: PRINT "четность 5-разрядного кода неправильная"
300 ВЕЕР: PRINT: PRINT: PRINT: GOTO 330
310 PRINT: PRINT: PRINT: PRINT "четность 5-разрядного кода правильная"
320 PRINT: PRINT: PRINT
330 PRINT"0…..0";
340 X=0
350 IF A(X)=1 THEN 370
360 X=X+1: GOTO 350
370 N=0: FOR F=X TO X+6
380 IF A(F) =1 THEN N=N+1: PRINT"!";ELSE PRINT "0";
390 NEXT F: PRINT " ";
400 IF (N/2)-INT(N/2)=0 THEN 420
410 IF X>=M THEN 500 ELSE X=X+7: GOTO 370
420 IF N>0 THEN 480
430 FOR G=X TO M
440 IF A(G) >0 THEN 480
Начиная с первого бита в 1, программа PARITY.BAS применяет определенные правила для проверки четности блоков данных по пять бит, затем по семь бит. При отсутствии ошибки это позволяет ей четко отличать файлы, закодированные пятиразрядным кодом ANSI, от закодированных семиразрядным кодом ANSI. Пока ошибка не обнаружена, программа выдает группы, успешно прошедшие проверку, и останавливается на первом символе с ошибкой, иначе говоря, на первой группе по пять или семь бит, содержащей четное число единиц.
Конечно, если проверки по пять бит и по семь бит окончились неудачей еще до конца файла, нельзя сразу сделать вывод. Необходим более тщательный анализ. Начать, если это возможно, следует с нового считывания карты.
В общем, эта программа позволит убедиться в отсутствии ошибки четности в любом файле .CAR.
Ниже представлен результат проверки файла TEST5.CAR (его можно найти на сайте www.dmk.ru) закодированного пятиразрядным кодом и не имеющего никаких ошибок четности. Следует обратить внимание, что нули запуска и заполнения представлены в сокращенной форме.