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

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

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

_{240 NEXT F}

_{250 GOSUB 2000}

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

_{270 GOTO 200}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

_{2999 RETURN}

Эта программа абсолютно идентична LECTISO2, но она дает несколько более громоздкие результаты.

ПРОГРАММЫ ПРЕОБРАЗОВАНИЯ

Файлы с расширением .CAR, полученные с помощью LECT75 и LECT210, естественно, не вызывают никаких проблем совместимости с программами данной книги. Однако это не всегда получается при их использовании в другом контексте, что, конечно, вправе сделать любой из наших читателей.

Ниже приводятся несколько весьма полезных служебных программ для решения небольших проблем, которые рано или поздно могут появиться.

Программа выравнивания

Как уже показывалось, наши программы считывания магнитных дорожек создают линейные — однострочные, то есть без специальных символов перехода на новую строку, — файлы с расширением .CAR. Это нисколько не мешает их отображению, например с помощью команды ТУРЕ операционной системы DOS, но может возникнуть желание их распечатать или сохранить в более удобном формате.

Для этого вместо программы текстового редактора более практично, по нашему мнению, использовать небольшую программу JUSTCAR.ВAS, трансформирующую любой файл .CAR в строго упорядоченный блок из 32 колонок.

_{10 REM — JUSTCAR. 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 NS: 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 NS FOR OUTPUT AS #1}

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

_{190 PRINT M(F);}

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

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

_{220 G=G+1: IF G=32 THEN PRINT#1, G=0}

_{230 NEXT F: PRINT}

_{240 END}

Отметим, что аварийный файл CARTE.ВАК был создан прежде всего для сохранения данных в случае сбоя, происшедшего во время обработки (разрыв сети и т. д.).

Кроме того, если имя исходного файла содержит расширение .CAR, у нас не будет необходимости его набирать, поскольку оно добавится автоматически.

В результате работы программы преобразованные данные заменяют содержимое исходного файла, при этом новый файл, хотя уже и выровненный, остается совместимым с программами данной книги.

Ниже показано, что получается при обработке файла TEST5.CAR с помощью программы JUSTCAR.

Программа инвертирования

Большинство считывающих устройств, начиная с описанных в данной главе, ожидают прохода карты в строго определенном направлении — как правило, это слева направо перед головкой. Иногда приходится проводить карту в обратном направлении (справа налево) или работать с нестандартными картами, записанными наоборот.

Программа INVERT.BAS способна «перевернуть» любой файл .CAR вне зависимости от его длины.

_{10 REM — INVERT.BAS —}

_{20 KEY OFF: CLS}

_{30 PRINT "имя файла, который следует перевернуть?"}

_{40 INPUT N$: IF N$="" THEN END}

_{50 FOR F=1 TO LEN(NS)}

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

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

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

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