Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
'' -----------------------------------------------------'IF kanal|=0 AND RIGHT$(a$,1)lf$ AND a$cr$ ! +LF im Monitora$=a$+lf$ENDIFPRINT a$;! INFO-AusgabeDEFAULT! Falls Status falschPRINT "Falsche TNC-Antwort bei PROCEDURE STATUS: ";status|DELAY 3STOP! ProgrammendeENDSELECTRETURN''PROCEDURE eingabe' ------------------------------------------------------------' Eingaben von Tastatur werden ausgewertet.' Dabei wird verhindert, da_ die beim Korrigieren eingegebenen' Backspace-Zeichen gesendet werden. Überlange Eingaben werden' nicht abgefangen.'OPENW #fwin|+5! Eingabewindow ÷ffnenIF z$=CHR$(8)! Wenn Eingabe=BackspaceIF LEN(eingabe$(fwin|))>0 ! Nur wenn Eingabestring > 0eingabe$(fwin|)=LEFT$(eingabe$(fwin|),LEN(eingabe$(fwin|))-1)PRINT z$;" ";z$;! Letztes Zeichen l÷schenENDIFELSEPRINT z$;! Zeichen ausgebeneingabe$(fwin|)=eingabe$(fwin|)+z$ !Eingabestring akualisierenENDIFIF z$=cr$! Wenn RETURNPRINTt$=eingabe$(fwin|)! BefehlsstringIF LEFT$(t$,1)=":"! Wenn BefehlGOSUB befehl(fwin|)ELSEGOSUB send_to_tnc(fwin|,0,t$) ! SendenENDIFeingabe$(fwin|)=""! Eingabestring leerENDIFRETURN''PROCEDURE send_to_tnc(k|,mode|,text$)' ------------------------------------------------------------' k| =Kanalnummer; mode| =Modus; text$ =zu sendender Text oderBefehl' ------------------------------------------------------------PRINT #1;CHR$(k|);CHR$(mode|);CHR$(LEN(text$)-1);text$;kanal|=INP(#1)status|=INP(#1)IF status|0! Wenn kein ErfolgOPENW #kanal|GOSUB statusENDIFRETURN'09.11.02 erweitertes <strong>Handbuch</strong> zum TNC Seite 31
Change language