Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Verlassen des Programms geschieht mit :xGOSUB install! Installation des TNC und der SoftwareHauptschleifeDOFOR kanalnummer|=0 TO 4! Kanal-Z_hler'z$=INKEY$! Eingabe von TastaturIF z$""IF ASC(z$)=155! Funktionstaste gedrnckt?GOSUB funktionstastenELSEGOSUB eingabeENDIFENDIFOUT #1,kanalnummer|,1,0,103 ! "G"-Sequenzkanal|=INP(#1)! Antwort der Kanalnummerstatus|=INP(#1)! Antwort StatusOPENW #kanal|! Ausgaben auf richtigen SchirmGOSUB status! Verzweige StatusIF kanalnummer|>0 ! "L"-Abfrage nicht bei Kanal 0llflag|=1! Flag fnr StatusabfrageOUT #1,kanalnummer|,1,0,108 ! "L" zum TNC sendenkanal|=INP(#1)! Antwort der Kanalnummerstatus|=INP(#1)! Antwort StatusOPENW #kanal|! Ausgaben auf richtigen SchirmGOSUB status! Verzweige StatusENDIFNEXT kanalnummer|LOOPPROCEDURE install' Dieser Programmteil halt folgende Aufgaben:' Dimensionierung der Variablen, definieren und ÷ffnen der Screens,' TNC in der Hostmode schalten und konfigurieren.DIM b$(30)! TNC-BefehleDIM call$(5)! Fnr BalkenanzeigeDIM balken$(5)! Fnr BalkenanzeigeDIM neu$(5)! Fnr BalkenanzeigeDIM alt$(5)! Fnr BalkenanzeigeDIM eingabe$(4)! EingabestringDIM topbalken$(5)! Oberer Balkenlf$=CHR$(10)cr$=CHR$(13)sctitel$=" Host-Mode-Demonstration von DG6UL JUNI 1990 Help: siehe Listing"OPENS 5,0,0,640,256,2,&H8000! Eigener Screen für programmTITLES #5,sctitel$OPENW #0,0,11,640,245,0,2048! MonitorfensterPRINT CHR$(27)+"[42m"+CHR$(27)+"[J" ! F_rbt MonitorfensterOPENW #9,0,11,640,34,0,2048 ! Eingabefenster kanal 4OPENW #8,0,11,640,34,0,2048 ! Eingabefenster kanal 3OPENW #7,0,11,640,34,0,2048 ! Eingabefenster kanal 2OPENW #6,0,11,640,34,0,2048 ! Eingabefenster kanal 1OPENW #5,0,11,640,41,0,2048 ! Eingabefenster kanal 0OPENW #4,0,45,640,143,0,2049 ! Connect Kanal 4PRINT CHR$(27)+"[80u"! 80 Zeichen fnr AusgabewindowsOPENW #3,0,45,640,143,0,2049 ! Connect Kanal 3PRINT CHR$(27)+"[80u"OPENW #2,0,45,640,143,0,2049 ! Connect Kanal 2PRINT CHR$(27)+"[80u"OPENW #1,0,45,640,143,0,2049+4096 ! Connect Kanal 1PRINT CHR$(27)+"[80u"'FOR x=1 TO 409.11.02 erweitertes <strong>Handbuch</strong> zum TNC Seite 45
Change language