Code:

$regfile = "m32def.dat"

$framesize = 32
$swstack = 32
$hwstack = 32



Config Portc.4 = Input
Config Portc.5 = Input
Config Portc.6 = Output
Config Portd.7 = Output
Config Porta.1 = Output

Dim Wert As Integer
Dim Licht As Integer
Dim Eins As Integer
Dim Zwei As Integer
Dim Drei As Integer
Dim Vier As Integer
Dim Funf As Integer
Dim Sechs As Integer
Dim Sieben As Integer
Dim Acht As Integer
Dim Neun As Integer


Dim Zahl As String * 200
Dim Zeichen As String * 200

Portc.4 = 1
Portc.5 = 1
Portc.6 = 1

Sound Portd.7 , 400 , 450                                   'als start
Waitms 500
Sound Portd.7 , 400 , 450

Config Adc = Single , Prescaler = Auto


  Do


   Start Adc
   Licht = Getadc(1)
   If Licht > 900 Then
   Eins = 1
     End If
   If Licht < 900then
   Eins = 0
     End If


   If Licht > 900 Then
   Zwei = 2
     End If
   If Licht < 900 Then
   Zwei = 0

     End If
   If Licht > 900 Then
   Drei = 4
     End If
   If Licht < 900 Then
   Drei = 0
      End If


   If Licht > 900 Then
   Vier = 7
     End If
   If Licht < 900 Then
   Vier = 0
      End If


   If Licht > 900 Then
   Funf = 15
     End If
   If Licht < 900 Then
   Funf = 0
    End If

   If Licht > 900 Then
   Sechs = 30
    End If
   If Licht < 900then
   Sechs = 0
     End If


   If Licht > 900 Then
   Sieben = 60
     End If
   If Licht < 900 Then
   Sieben = 0
     End If


   If Licht > 900 Then
   Acht = 90
      End If
   If Licht < 900 Then
   Acht = 0
    End If
   Wert = A + B + C + D + E + F + G + H
       If Wert = 1 Then
   Zeichen = A
           End If
   If Wert = 2 Then
   Zeichen = B
     End If

   If Wert = 4 Then
   Zeichen = C
      End If
   If Wert = 7 Then
   Zeichen = D
      End If
   If Wert = 15 Then
   Zeichen = E
      End If
   If Wert = 30 Then
   Zeichen = F
       End If
   If Wert = 60 Then
   Zeichen = G
       End If
   If Wert = 90 Then
   Zeichen = H
       End If
   If Wert = 3 Then
    Zeichen = I
       End If
   If Wert = 5 Then
   Zeichen = J
      End If
   If Wert = 16 Then
   Zeichen = K
           End If
   If Wert = 31 Then
   Zeichen = L
         End If
   If Wert = 61 Then
   Zeichen = M
     End If
   If Wert = 91 Then
   Zeichen = N
     End If
   If Wert = 6 Then
   Zeichen = O
     End If
   If Wert = 9 Then
  Zeichen = P
    End If
   If Wert = 17 Then
   Zeichen = Q
     End If
   If Wert = 32 Then
   Zeichen = R
     End If
   If Wert = 62 Then
   Zeichen = S
     End If
   If Wert = 64 Then
  Zeichen = T
    End If
   If Wert = 94 Then
   Zeichen = U
     End If
   If Wert = 11 Then
   Zeichen = V
     End If
   If Wert = 19 Then
   Zeichen = W
     End If
   If Wert = 34 Then
  Zeichen = X
    End If
   If Wert = 94 Then
   Zeichen = Y

     End If





Print Zeichen





Loop
End