' Test für SerialComInstruments
$regfile = "m328pdef.dat"
$crystal = 16000000
$baud = 115200

Dim I As Integer
Dim F1 As Single
Dim F2 As Single

Config Portb.5 = Output

Do
  For I = 1 To 100
    F1 = I
    F2 = 100 / I
    Waitms 1
    Print "#1M" ; Str(f1) ; "<" ; "#2M" ; Str(f2) ; "<"
    Print "#3M" ; Str(f1) ; "<" ; "#4M" ; Str(f2) ; "<"
    Print "#5M" ; Str(f1) ; "<" ; "#6M" ; Str(f2) ; "<"
    Print "#7M" ; Str(f1) ; "<" ; "#8M" ; Str(f2) ; "<"
  Next I
Loop