und hier noch das original Programm, aus welchem ich den Teil kopiert habe....

Code:
'Konfiguration µC:
$regfile = "m32def.dat"                                     'AT-Mega32
$crystal = 14745600                                         'Quarz: 14,7456 MHz
$baud = 9600                                                'Baudrate definieren

'-------------------------------------------------------------------------------


'-------------------------------------------------------------------------------
Open "com1:" For Binary As #1

Dim Samples As Word
Dim Delayms As Word
Dim Channels As Word
Dim N As Integer
Dim I As Integer
Dim L As Integer
Dim S As String * 20
Dim Ad As Integer

Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Off
Start Adc
Echo Off

Do
  Input S
Loop Until S = "D:\>"                                       'USB Controller abfragen, bis D:\> gesendet wird
Portb.0 = 1                                                 'schreib-LED einschalten
Waitms 1000
Print "rd todo.txt" + Chr(13);                              'todo.txt Datei LESEN
Input Samples                                               'Werte aus Datei übernehmen
Get #1 , L
Input Delayms
Get #1 , L
Input Channels
Get #1 , L
Input S
Print "OPW Log.txt" + Chr(13);                              'Datei Log.txt öffnen
Input S
For N = 1 To Samples                                        'Anzahl Messungen
  S = ""
  For I = 1 To Channels                                     'Kanäle 1-8 MAX 'geändert
    Ad = Getadc(i)
    S = S + Str(ad)
    If I < Channels Then S = S + Chr(9)
  Next I
  S = S + Chr(13) + Chr(10)
  L = Len(s)                                                'gibt die Länge von String "S" wieder
  Print "WRF ";
  Put #1 , 0
  Put #1 , 0
  Put #1 , 0
  Put #1 , L                                                'L ist die Länge vom String S
  Put #1 , 13
  Print S ;
  Input S
  Waitms Delayms                                            'Wartezeit zwischen den Messungen
Next N
Print "CLF log.txt" + Chr(13);                              'Datei log.txt schließen
Input S
Portb.0 = 0                                                 'schreib-LED ausschalten
End