* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Дополнительное оборудование для компьютеров GOSUB screenlayout WHILE (INP(a1) AND 64) = 0 a$ = INKEY$: IF a$ <> "" THEN GOTO readytoend WEND x = 0: j = 0: start! = TIMER readholes: WHILE (INP(a1) AND 64) = 64: WEND X = 0: WHILE (INP(a1) AND 64) = 0: X = X + 1: WEND j = j + 1: x(j) = x IF x = 0 OR (TIMER start!) > 2 THEN ERROR 6 IF j < 16 THEN GOTO readholes done1: VIEW PRINT 3 TO 24: CLS : VIEW PRINT: BEEP stat = 0: ttl = 0 FOR i = 2 TO 16 SELECT CASE stat CASE IS = 0 IF x(i) > l.5 * x(i 1) THEN ttl = ttl +2 ^ (i 2): stat = 1 ELSE stat = 0 END IF CASE IS = 1 IF x(i) < .667 * x(i 1) THEN stat = 0 ELSE ttl = ttl + 2 ^ (i 2): stat = 1 END IF CASE ELSE ERROR 6 END SELECT NEXT LOCATE 14, 3 LOCATE 10, 35: PRINT "ОПРЕДЕЛЕН ID:"; ttl GOSUB screenlayout GOTO start1 readytoend: IF a$ = CHR$(27) THEN CLS : LOCATE 18, 1, 1: END BEEP: GOTO readholes REM** REM** SCREEN LAYOUT ВЫВОД НА ЭКРАН REM** screenlayout: LOCATE 1, 34, 0: PRINT "КАРТОЧКА Pc SWIPE"; LOCATE 2, 1: PRINT STRING$(79, 220) LOCATE 18, 35: COLOR 23, 0: PRINT "Подождите........" COLOR 7, 0 LOCATE 21, 33: PRINT "(Для завершения нажать ESC)" RETURN REM** 187