Магнитные карты и ПК - Гёлль Патрик - Страница 18

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

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

_{660 IF С$="1000011" THEN PRINT "A";}

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

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

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

_{700 IF С$="1010010^" THEN PRINT "E";}

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

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

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

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

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

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

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

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

_{790 IF C$="0111011" THEN PRINT "N";}

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

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

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

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

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

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

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

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

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

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

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

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