Магнитные карты и ПК - [21]

_{60 IF EOF (1) THEN 110}

_{70 A$=INPUT$ (1,#1)}

_{80 IF A$="1" THEN PRINT#2,"1";: GOT0 60}

_{90 IF A$="0" THEN PRINT#2,"0";: GOTO 60}

_{10 °CLS: BEEP: PRINT "CARTE.CRD не соответствует формату CRD": END}

_{110 PRINT "Выполнено": BEEP}

_{120 END}

_{130 REM (c) 1997 Patrick GUEULLE}

Этим можно воспользоваться, чтобы извлечь пользу из файлов. CRD, полученных от пользователей, работающих, например, с программой CARDOMAT, очень высоко ценимой в США, которая, надо признаться, несколько подстегнула воображение автора…

Рекомендуется сначала скопировать исходный файл под именем CARTE.CRD, в то время как результат преобразования будет носить имя CARTE.CAR.

ДЕКОДИРОВАНИЕ ПЯТИБИТНЫХ СИМВОЛОВ

Иногда необходимо декодировать содержимое файла .CAR, когда нет карты, с которой он был считан. Это может быть файл, уже прочитанный при помощи LECT75 или LECT210, или файл, переписанный на дискету либо полученный по электронной почте другим любителем считывания с магнитных карт. Это может быть даже файл, предварительно «перевернутый» программой INVERT, если есть подозрение, что он был считан в обратном направлении.

Наши программы LECTISO не подходят для решения такой задачи по двум основным причинам. Во-первых, они созданы специально для управления операцией считывания в оболочке, а не для работы в автономном режиме. Во-вторых, каждая из них разработана для строго определенной дорожки ISO, а значит, рассчитана на определенное число битов.

Программа DEC5.BAS, со своей стороны, может взаимодействовать с любым файлом .CAR с пятиразрядным кодированием (а значит, цифровым) вне зависимости от его длины и дорожки, с которой он взят.

Познакомиться с работой DECS.BAS можно, предложив ей декодировать файл TEST5 .CAR, который есть на сайте www.dmk.ru.

_{10 REM — DEC5.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 L=INT(LOF(1)/2)-1}

_{110 DIM T(LOF (1))}

_{120 F=1:WHILE NOT EOF(1)}

_{130 INPUT#1,T(F): F=F+1}

_{140 WEND}

_{150 J=1}

_{160 IF T(J)<>1 THEN 220}

_{170 IF T(J+1)<>1 THEN 220}

_{180 IF T(J+2)<>0 THEN 220}

_{190 IF T(J+3)<>1 THEN 220}

_{200 IF T(J+4)<>0 THEN 220}

_{210 K=J: GOTO 230}

_{220 J=J+1: GOTO 160}

_230 C$=""

_{240 FOR F=0 TO 4}

_{2S0 IF T(K+F) =0 THEN C$=C$+"0"}

_{260 IF T(K+F) =1 THEN C$=C$+"1"}

_{270 NEXT F}

_{280 GOSUB 310}

_{290 K=K+5: IF K>L-1 THEN END}

_{300 GOTO 230}

_{310 IF C$ = "11010" THEN PRINT "{Start}"}

_{320 IF C$ = "10110" THEN PRINT " {sep}"}

_{330 IF C$ = "11111" THEN PRINT "{end}"}

_{340 IF C$ = "01011" THEN PRINT "{10}";}

_{350 IF C$ = "00111" THEN PRINT "{12}";}

_{360 IF C$ = "01110" THEN PRINT "{14}";}

_{370 IF C$ = "00001" THEN PRINT "0";}

_{380 IF C$ = "10000" THEN PRINT "1";}

_{390 IF С$ = "01000" THEN PRINT "2";}

_{400 IF C$ = "11001" THEN PRINT "3";}

_{410 IF C$ = "00100" THEN PRINT "4";}

_{420 IF C$ = "10101" THEN PRINT "5";}

_{430 IF C$ = "01101" THEN PRINT "6";}

_{440 IF C$ = "11100" THEN PRINT -7";}

_{450 IF C$ = "00010" THEN PRINT "8";}

_{460 IF C$ = "10011" THEN PRINT "9";}

_{470 RETURN}

_{480 REM (с) 1996 Patrick GUEULLE}

ДЕКОДИРОВАНИЕ СЕМИБИТНЫХ СИМВОЛОВ

Программа DEC7.BAS выполняет функцию, аналогичную выполняемой программой DEC5, но с алфавитно-цифровыми файлами, символы которых закодированы семью битами.

_{10 REM — DEC7.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 L=INT(LOF(1)/2)-1}

_{110 DIM T (LOF (1))}

_{120 F=1: WHILE NOT EOF(1)}

_{130 INPUT#1,T(F): F=F+1}

_{140 WEND}

_{150 J=1}

_{160 IF T(J)<>1 THEN 240}

_{170 IF T(J+1)<>0 THEN 240}

_{180 IF T(J+2)<>1 THEN 240}

_{190 IF T(J+3)<>0 THEN 240}

_{200 IF T(J+4)<>0 THEN 240}

_{210 IF T(J+5)<>0 THEN 240}

_{220 IF T(J+6)<>1 THEN 240}

_{230 K=J: GOTO 250}

_{240 J=J+1: GOTO 160}

_250 C$=""

_{260 FOR F=0 TO 6}

_{270 IF T(K+F)=0 THEN C$=C$+"0"}

_{280 IF T(K+F)=1 THEN C$=C$+"1"}

_{290 NEXT F}

_{300 GOSUB 330}

_{310 K=K+7: IF K>L-1 THEN END}

_{320 GOTO 250}

_{330 IF C$="1010001" THEN PRINT "{start}"}

_{340 IF C$="0111110" THEN PRINT "{sep}"}

_{350 IF C$="1111100" THEN PRINT "{end}"}

_{360 IF C$="0000001" THEN PRINT " ";}

_{370 IF C$="1000000" THEN PRINT "{1H}";}

_{380 IF C$="0100000" THEN PRINT "{2H}";}

_{390 IF C$="1100001" THEN PRINT "{3H}";}

_{400 IF C$="0010000" THEN PRINT "{4H}";}

_{410 IF C$="0110001" THEN PRINT "{6H}";}

_{420 IF C$="1110000" THEN PRINT "{7H}";}

_{430 IF C$="0001000" THEN PRINT "{8H}";}

_{440 IF C$="1001001" THEN PRINT "{9H}";}

_{450 IF C$="0101001" THEN PRINT "{AH}";}

_{460 IF C$="1101000" THEN PRINT "{BH}";}

_{470 IF C$="0011001" THEN PRINT "{CH}";}

_{480 IF C$="1011000" THEN PRINT "{DH}";}

_{490 IF C$="0111000" THEN PRINT "{EH}";}

_{500 IF C$="1111001" THEN PRINT "{FH}";}

_{510 IF C$="0000100" THEN PRINT "0";}

_{520 IF C$="1000101" THEN PRINT "1";}

_{530 IF C$="0100101" THEN PRINT "2";}

_{540 IF C$="1100100" THEN PRINT "3";}

_{550 IF C$="0010101" THEN PRINT "4";}

_{560 IF C$="1010100" THEN PRINT "5";}

_{570 IF C$="0110100" THEN PRINT "6";}

_{580 IF C$="1110101" THEN PRINT "7";}

_{590 IF C$="0001101" THEN PRINT "8";}

_{600 IF C$="1001100" THEN PRINT "9";}

_{610 IF C$="0101100“ THEN PRINT "{1AH}";}

_{620 IF C$="1101101" THEN PRINT "{1BH}";}

_{630 IF C$="0011100" THEN PRINT "{1CH}";}

_{640 IF C$="1011101" THEN PRINT "{1DH}";}