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

_{60 IF MID$ (N$,F,1)="." THEN 90}

_{70 NEXT F}

_{80 N$=N$+".CAR"}

_{90 OPEN N$ FOR INPUT AS #1}

_{100 OPEN "carte.bak" FOR OUTPUT AS #2}

_{110 DIM M(LOF(1)): CLS}

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

_{130 INPUT #1,M(L)}

_{140 PRINT#2,M(L);: L=L+1}

_{150 WEND}

_{160 CLOSE #1}

_{170 OPEN N$ FOR OUTPUT AS #1}

_{180 FOR F=L-1 TO 0 STEP -1}

_{190 PRINT M(F);}

_{200 IF M(F)=1 THEN PRINT#1,"1";}

_{210 IF M(F)=0 THEN PRINT#1,"0";}

_{220 NEXT F: PRINT}

_{230 END}

_{240 REM COPYRIGHT (c)1997 Patrick GUEULLE}

Ниже представлен результат, полученный с помощью файла-образца TEST5.CAR.

Программа преобразования в формат .CRD

Автор этой книги, естественно, не единственный в мире любитель магнитных карт, тем более что этот «вид спорта» особенно популярен в США. За океаном предпочтение отдают файлам формата .CRD,который отличается от .CAR отсутствием пробелов.

Поскольку в Internet можно встретить интересные программы, использующие формат .CRD, нам показалось полезным снабдить читателей служебной программой, способной сделать файлы .CAR совместимыми с ними. Речь идет о программе CARTOCRD.BAS.

В том виде, в котором она написана, эта небольшая программа может преобразовать файл CARTE.CAR, который был только что считан, в файл CARTE. CRD.

_{10 REM — CARTOCRD.BAS —}

_{20 CLS: KEY OFF}

_{30 PRINT "Преобразование файла CARTE.CAR в CARTE.CRD"}

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

_{50 OPEN "carte.crd" FOR OUTPUT AS #2}

_{60 IF EOF(1) THEN 110}

_{70 INPUT #1,A}

_{80 IF A=1 THEN PRINT#2,"1";}

_{90 IF A=0 THEN PRINT#2,"0";}

_{100 GOTO 60}

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

_{120 END}

_{130 REM (c) 1996 Patrick GUEULLE}

Ниже показано, во что превращается файл TEST5.CAR, обработанный программой CARTOCRD.BAS (сначала его надо скопировать под именем CARTE .CAR).

Программа импорта файлов

Служебная программа CRDTOCAR.BAS осуществляет обратную операцию по отношению к предыдущей. Иначе говоря, выполняет преобразование файла CARTE.CRD в CARTE.CAR, совместимый со всеми нашими остальными программами.

_{10 REM — CRDTOCAR.BAS —}

_{20 CLS: KEY OFF}

_{30 PRINT "Преобразование файла CARTE.CRD в CARTE.CAR"}

_{40 OPEN "carte.crd" FOR INPUT AS #1}

_{50 OPEN "carte.car" FOR OUTPUT AS #2}

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