$regfile = "8515def.dat"

'Quarz 8MHz
$crystal = 8000000

 



'By default the modem works at 9600 baud
$baud = 9600
Dim Auswahl As Word
Dim Stelle1 As Word
Dim Stelle2 As Word
Dim Stelle3 As Word
Dim Stelle4 As Word
Dim Sekunden As Word

Dim Hilfe1 As String * 2
Dim Hilfe2 As String * 2
Dim Hilfe3 As String * 2
Dim Hilfe4 As String * 2

Dim Gesamtzeit As Integer

Config Portd.1 = Input

Portd.1 = 1
Start1 Alias Pind.1

  Config Porta.5 = Output
  Config Porta.6 = Output
  Config Porta.7 = Output
 

Porta.7 = 1 ' an dieser Stelle glimmt die Led nur auf, sie leuchtet nicht

'Text ist gekürzt...