Магнитные карты и ПК

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

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

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

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

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

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

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

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

_{2152 IF C$*"1101101" THEN PRINT "{1BH}";}

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

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

_{2155 IF C$="0111101" THEN PRINT "{1EH}";}

_{2160 IF C$="1000011" THEN PRINT "A";}

_{2161 IF C$="0100011" THEN PRINT "В";}

_{2162 IF C$="1100010" THEN PRINT "C";}

_{2163 IF C$="0010011" THEN PRINT "D";}

_{2164 IF C$="1010010" THEN PRINT "E";}

_{2165 IF C$="0110010" THEN PRINT "F";}

_{2166 IF C$="1110011" THEN PRINT "G";}

_{2167 IF C$="0001011" THEN PRINT "H";}

_{2168 IF C$="1001010" THEN PRINT "I";}

_{2169 IF C$="0101010" THEN PRINT "J";}

_{2170 IF C$="1101011" THEN PRINT "K";}

_{2171 IF C$="0011010" THEN PRINT "L";}

_{2172 IF C$="1011011" THEN PRINT "M";}

_{2173 IF С$="0111011" THEN PRINT "N";}

_{2174 IF C$="1111010' THEN PRINT "O";}

_{2175 IF C$="0000111” THEN PRINT "P";}

_{2176 IF C$="1000110" THEN PRINT "Q";}

_{2177 IF C$="0100110" THEN PRINT "R";}

_{2178 IF C$="1100111" THEN PRINT "S";}

_{2179 IF C$="0010110" THEN PRINT "T";}

_{2180 IF C$="1010111" THEN PRINT "U";}

_{2181 IF C$="0110111" THEN PRINT "V";}

_{2182 IF C$="1110110" THEN PRINT "W;}

_{2183 IF C$="0001110" THEN PRINT "X";}

_{2184 IF C$="1001111" THEN PRINT "Y";}

_{2185 IF C$="0101111" THEN PRINT "Z";}

_{2190 IF C$="1101110" THEN PRINT "{3BH);}

_{2191 IF C$="0011111" THEN PRINT "{3DH);}

_{2192 IF C$="1011110" THEN PRINT "{3EH);}

_{2193 IF C$="1111111" THEN PRINT "{40H};}

_{2999 RETURN}

_{3000 REM (c) 1996 Patrick GUEULLE}

LECTISO1.BAS — основная программа, которая посредством вызова

LECT210.EXE выполняет следующие операции:

• считывает 630 бит с дорожки ISO 1 и создает файл CARTE.CAR;

• отображает считанные 630 бит;

• отображает соответствующие алфавитно-цифровые символы.

Ниже представлен результат работы программы для частного случая файла TEST7.CAR, содержащегося на сайте www.dmk.ru (мы намеренно убрали несколько нулей заполнения).

Считывание дорожки ISO 3

Как и ISO 1, дорожка ISO 3 имеет плотность записи 210 bpi, но она содержит цифровые данные, которые закодированы пятиразрядным кодом.

Считывание производится при помощи программы LECT210.EXE, но считанные 630 бит на этот раз соответствуют 126 группам по 5 бит. На самом деле в записи может содержаться 107 цифр плюс 95 нулей заполнения.

Для запуска считывающей программы и декодирования требуется основная программа, которая по аналогии с LECTISO1 и LECTISO2 получила название LECTISO3.BAS.

_{10 REM — LECTIS03. BAS —}

_{20 KEY OFF: CLS: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT}

_{30 SHELL "LECT210.EXE"}

_{40 OPEN "carte.car" FOR INPUT AS #I}

_{50 DIM T(630)}

_{60 FOR F=1 TO 630}

_{70 INPUT #1,T(F)}

_{80 NEXT F}

_{90 J=1}

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

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

_{120 IF T(J+2)<>0 THEN 160}

_{130 IF T(J+3)<>1 THEN 160}

_{140 IF T(J+4)<>0 THEN 160}

_{150 K=J: GOTO 200}

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

_200 C$=""

_{210 FOR F=0 TO 4}

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