Подключение телеграфного аппарата РТА-80.

[Savoj]

Нужно обмениваться текстом между компьютером и телеграфным аппаратом. Нужно установить скорость 50 или 100 бод, 5 бит, 1,5 интервал и русский шрифт. Больше наворотов нет смысла. И хотелось бы что бы половина экрана на прием и половина на передачу. А то к примеру в Terminal 1.9 на передачу выделена одна строка.
В общем я слаб в программных продуктах и прошу совета что бы такое найти.

[fifan]

А что значит "телеграфный аппарат"?

[Savoj]

Телеграфный аппарат РТА-80.

[Lavr]

...вполне можно написать свой терминал с Джонни Деппом и Обогрей Сашу.

Свой Терминал, если без шахмат и библиотекарьш, пишется на ЯВУ весьма просто:

 TERMINAL.BAS

Code: Select all

DEFINT A-Z

DECLARE SUB Filter (InString$)

COLOR 7, 1                      ' Set screen color.
CLS

Quit$ = CHR$(0) + CHR$(16)      ' Value returned by INKEY$
                                ' when ALT+q is pressed.

' Set up prompt on bottom line of screen and turn cursor on:
LOCATE 24, 1, 1
PRINT STRING$(80, "_");
LOCATE 25, 1
PRINT TAB(30); "Press ALT+q to quit";

VIEW PRINT 1 TO 23              ' Print between lines 1 & 23.

' Open communications (1200 baud, no parity, 8-bit data,
' 1 stop bit, 256-byte input buffer):
OPEN "COM1:1200,N,8,1" FOR RANDOM AS #1 LEN = 256

DO                              ' Main communications loop.

   KeyInput$ = INKEY$           ' Check the keyboard.

   IF KeyInput$ = Quit$ THEN    ' Exit the loop if the user
      EXIT DO                   ' pressed ALT+q.

   ELSEIF KeyInput$ <> "" THEN  ' Otherwise, if the user has
      PRINT #1, KeyInput$;      ' pressed a key, send the
   END IF                       ' character typed to the modem.

   ' Check the modem. If characters are waiting (EOF(1) is
   ' true), get them and print them to the screen:
   IF NOT EOF(1) THEN

      ' LOC(1) gives the number of characters waiting:
      ModemInput$ = INPUT$(LOC(1), #1)

      Filter ModemInput$        ' Filter out line feeds and
      PRINT ModemInput$;        ' backspaces, then print.
   END IF
LOOP

CLOSE                           ' End communications.
CLS
END

'
' ========================= FILTER ==========================
'     Filters characters in an input string.
' ============================================================
'
SUB Filter (InString$) STATIC

   ' Look for backspace characters and recode them to
   ' CHR$(29) (the LEFT cursor key):
   DO
      BackSpace = INSTR(InString$, CHR$(8))
      IF BackSpace THEN
         MID$(InString$, BackSpace) = CHR$(29)
      END IF
   LOOP WHILE BackSpace

   ' Look for line-feed characters and remove any found:
   DO
      LineFeed = INSTR(InString$, CHR$(10))
      IF LineFeed THEN
         InString$ = LEFT$(InString$, LineFeed - 1) + MID$(InString$, LineFeed + 1)
      END IF
   LOOP WHILE LineFeed

END SUB

[Savoj]

Мне нужно типа того.....
http://www.albinarrate.com/index.php?op ... heavymetal
Я практически не понимаю в программировании......хочу для начала получить и послать почту электронную на телеграфный аппарат. Связь по RS232 есть между компом и РТА-80 туда-обратно. А вот в инет не могу зайти и почту тоже. Не хватает знаний.

[Savoj]

...вполне можно написать свой терминал с Джонни Деппом и Обогрей Сашу.

Свой Терминал, если без шахмат и библиотекарьш, пишется на ЯВУ весьма просто:

 TERMINAL.BAS

Code: Select all

DEFINT A-Z

DECLARE SUB Filter (InString$)

COLOR 7, 1                      ' Set screen color.
CLS

Quit$ = CHR$(0) + CHR$(16)      ' Value returned by INKEY$
                                ' when ALT+q is pressed.

' Set up prompt on bottom line of screen and turn cursor on:
LOCATE 24, 1, 1
PRINT STRING$(80, "_");
LOCATE 25, 1
PRINT TAB(30); "Press ALT+q to quit";

VIEW PRINT 1 TO 23              ' Print between lines 1 & 23.

' Open communications (1200 baud, no parity, 8-bit data,
' 1 stop bit, 256-byte input buffer):
OPEN "COM1:1200,N,8,1" FOR RANDOM AS #1 LEN = 256

DO                              ' Main communications loop.

   KeyInput$ = INKEY$           ' Check the keyboard.

   IF KeyInput$ = Quit$ THEN    ' Exit the loop if the user
      EXIT DO                   ' pressed ALT+q.

   ELSEIF KeyInput$ <> "" THEN  ' Otherwise, if the user has
      PRINT #1, KeyInput$;      ' pressed a key, send the
   END IF                       ' character typed to the modem.

   ' Check the modem. If characters are waiting (EOF(1) is
   ' true), get them and print them to the screen:
   IF NOT EOF(1) THEN

      ' LOC(1) gives the number of characters waiting:
      ModemInput$ = INPUT$(LOC(1), #1)

      Filter ModemInput$        ' Filter out line feeds and
      PRINT ModemInput$;        ' backspaces, then print.
   END IF
LOOP

CLOSE                           ' End communications.
CLS
END

'
' ========================= FILTER ==========================
'     Filters characters in an input string.
' ============================================================
'
SUB Filter (InString$) STATIC

   ' Look for backspace characters and recode them to
   ' CHR$(29) (the LEFT cursor key):
   DO
      BackSpace = INSTR(InString$, CHR$(8))
      IF BackSpace THEN
         MID$(InString$, BackSpace) = CHR$(29)
      END IF
   LOOP WHILE BackSpace

   ' Look for line-feed characters and remove any found:
   DO
      LineFeed = INSTR(InString$, CHR$(10))
      IF LineFeed THEN
         InString$ = LEFT$(InString$, LineFeed - 1) + MID$(InString$, LineFeed + 1)
      END IF
   LOOP WHILE LineFeed

END SUB

Спасибо. Как это загрузить и пользоваться.

[Lavr]

Мне нужно типа того.....
http://www.albinarrate.com/index.php?op ... heavymetal

Ну извиняйте, не провидец я, не знал, что вам еще что-то нужно...
Положил то, что соответствует сабжу: Программа Terminal в совсем простом исполнении.
Проще придумать трудно...

Спасибо. Как это загрузить и пользоваться.

Скопировать с экрана в файл и скомпилировать. Либо - запустить в режиме интерпретации.
Я выложил этот вариант, потому как там видна настройка под любые ваши "хотелки".

Но коли вы не программист, то остаётся вам только одно: набрать в поиске "простая программа-терминал",
скачивать всё, что найдётся, и пробовать самому.
А лучший совет дать вам трудно, потому как неизвестно даже под какую ОС нужна вам программа-терминал.

[Savoj]

Прошел год....мне здесь как-то никто и не советовал ничего. А теперь начинают, после года, что-то говорить и упрекать.
У меня дома обыкновенный комп с виндовс 7. Я в течении года установил связь между РТА-80 и компом через адаптер. Но в терминальных программах не установлен код телеграфный МТК, поэтому обмен информацией идет через символы.
Когда Вы пишите.....Скопировать с экрана в файл и скомпилировать. Либо - запустить в режиме интерпретации.....я это не знаю как делать. Я неоднократно пояснил почему. Поэтому сделайте лицо попроще.

[Shaos]

Поправил первые посты темы, чтобы драмы было поменьше

> Я в течении года установил связь между РТА-80 и компом через адаптер.

Значит как подключен аппарат сейчас? Через COM-порт?

[Savoj]

Связь установлена по RS232.

[Shaos]

Какие настройки порта на стороне винды?

[Savoj]

Вот здесь http://www.buzbee.net/heavymetal/ при обмене данными нет русского алфавита, по английски нормальный обмен. В программе Terminal 1.9 при обмене инфо только символы. Как я понимаю там не прописан код МТК-2.
Но мне бы хотелось электронную почту и интернет через это http://www.albinarrate.com/index.php?op ... heavymetal так как лучше не нашел что понимаю.

[Savoj]

Какие настройки порта на стороне винды?

Скорость 50 бод, пятиэлементный код, 1,5 размер....кажется все. Это так в программу terminal 1.9 устанавливаю. к примеру.

[Savoj]

Понимаете Terminal 1.9 когда ее загружаешь, там очень много всего, чего мне не нужно и много лишнего не экране.
Мне бы хотелось просто что бы было на экране монитора разделенные две половины, прием и передача. Но нужно естественно код МТК-2 в этой программе установить. Все телетайпы одинаковы, там скорость 50 бод и пятиэлементный код. Вот хотелось бы поставить телетайп в гараже, у меня там клевый подвал, и с него послать товарищу данные спутника о ядерном нападении.....а потом коньяк пить с ним в гараже.

[Savoj]

https://youtu.be/o7R9RN30Njs
Это мой РТА-80 на приеме.