Шрифт:
10 REM — LRCMAG. BAS —
20 KEY OFF: CLS
30 PRINT "Введите данные для кодирования"
40 PRINT "затем нажать ENTER"
50 А$=""
60 INPUT В$
70 IF В$ = "" THEN 100
80 А$=А$+В$
90 GOTO 60
100 C$=""
110 FOR F=1 TO LEN(A$)
120 IF MID$(A$,F,1)="{" THEN 300
130 V=VAL(MID$(A$,F,1))
140 C$=C$+CHR$ (V)
150 NEXT F
160 L=0
170 FOR F=1 TO LEN(C$)
180 L=L XOR ASC(MID$(C$,F, 1))
190 NEXT F
200 PRINT "LRC ="
210 IF L=11 THEN PRINT "{start}": GOTO 280
220 IF L=13 THEN PRINT "{sep)": GOTO 280
230 IF L=15 THEN PRINT "{end}": GOTO 280
240 IF L=10 THEN PRINT "{10}": GOTO 280
250 IF L=12 THEN PRINT "{12}": GOTO 280
260 IF L=14 THEN PRINT "{14}": GOTO 280
270 PRINT L
280 END
300 F=F+1
310 IP MID$(A$,F,1) = "1" THEN 340
320 IF MID$(A$,F,1) = "s" THEN 390
330 IF MID$(A$,F,1)="e" THEN C$=C$+CHR$ (15): F=F+3: GOTO 430
340 F=F+1
350 IF MID$(A$,F, 1) = "0" THEN C$=C$+CHR$(10): F=F+1: GOTO 430
360 IF MID$(A$,F,1) = "2" THEN C$=C$+CHR$(12): F=F+1: GOTO 430
370 IF MID$(A$,F,1) = "4" THEN C$=C$+CHR$(14): F=F+1: GOTO 430
380 GOTO 130
390 F=F+1
400 IF HID$(A$,F,1) = "t" THEN C$=C$+CHR$ (11): F=F+4: GOTO 430
410 IF MID$ (A$,F, 1) ="e" THEN C$=C$+CHR$ (13): F=F+2: GOTO 430
420 CLS: PRINT "Ошибка!": BEEP: END
430 IF MID$(A$,F, 1)<>")" THEN 420
440 GOTO 150
450 REM (c)1996 Patrick GUEULLE
После двойного нажатия на клавишу ENTER программа выдает символ, который надо вставить за флажком end во время ввода данных в программе кодирования CREMAG.
Как и все магнитные носители, карты могут стираться практически неограниченное число раз. Самый простой способ стереть карту — произвести новую запись, которая затрет предыдущие данные.
Однако общее стирание рекомендуется делать в любом случае, поскольку из-за несоответствия стандартам, например минимального несоответствия высоты воздушного зазора или небольшого смещения положения записывающей головки, существует опасность того, что часть старых данных не перекроется новыми.
При этом возможна ситуация, когда карта будет нормально считываться на одних считывающих устройствах и неправильно — на других. Может также возникнуть необходимость убрать некоторые данные, относящиеся к разряду конфиденциальных, например расположенных на дорожках ISO 1 и ISO 3, карты, которая используется повторно и запись на которую будет вестись только на дорожке ISO 2.
Наиболее надежно стирается вся информация с дорожек карты при помощи простого постоянного магнита. По крайней мере, это относится к картам с низкой коэрцитивностью (LoCo). Только очень мощные магниты (например, от громкоговорителей) могут претендовать на эффективное стирание дорожек HiCo на 2750 Э и тем более на 4000 Э.
Оптимальный порядок действий состоит в том, чтобы положить карту на стальной лист (автор данной книги воспользовался корпусом блока питания для кодера) и к нему через карту приставить мощный магнит.