TO start
ct ts
txopen 95 ; Verbindung an USB 
pr "|TX über USB (com95) verbunden| pr()
pr "|Drücke Taster 3 ...|
while [not txinput 3] [] ; Warte auf Taster 3
pr "|--- Blinken ---> Ende mit ESC|
txlamp 5 500 wait 100 txlamp 5 0 
while [not txesc] [
  txlamp 7 512
  txlamp 8 0 wait 200
  txlamp 7 0
  txlamp 8 512 wait 200
]
txclose
pr "|...Verbindung wurde unterbrochen|
pr "|Ende|
END
