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

Гёлль Патрик

Осуществить считывание позволяет программа LECT210.PAS, которая работает аналогично LECT75.PAS. Ее исполняемая версия (LECT210.EXE) может использоваться либо самостоятельно для создания файла CARTE.CAR на 630 бит, либо вызываться из другой программы в оболочке Basic.

Отметим,

что 630 бит — это 90 раз по 7 бит, то есть они соответствуют 79 знакам, которые максимально может содержать дорожка ISO 1, плюс 77 нулей заполнения.

_{10 REM — LECTISO1.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 #1}

_{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)<>0 THEN 160}

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

_{130 IF T(J*3)<>0 THEN 160}

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

_{141 IF T(J+5)<>0 THEN 160}

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

_{150 K=J: GOTO 200}

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

_200 C$=""

_{210 FOR F=0 TO 6}

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

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

_{240 NEXT F}

_{250 GOSUB 2000}

_{260 K=K+7: IF K>623 THEN END}

_{270 GOTO 200}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

_{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";}