Print At 1,1,"vertrek"
Print At 1,9,"aankomst"
Print At 2,3,Dec a ," "
Print At 2,14,Dec b," "
Print At 2,6, " ",Dec uit ," "
Select uit
Case 5 ' 1 naar 1
GoSub standaard
Case 10
GoSub standaard
If PORTE.2 = 0 Then PORTB.0 = 0
If PORTE.2 = 1 Then PORTB.0 = 1 'portb.0 = de uitgang naar de 2 rail railes
PORTB.1 = 1
PORTD = %11111100 '1 naar 2 2 naar 1
PORTC = %10111111
Case 12
GoSub standaard '1 naar 2
Case 15
GoSub standaard '2 naar 3
If PORTE.2 = 0 Then PORTB.0 = 0
If PORTE.2 = 1 Then PORTB.0 = 1 'portb.0 = de uitgang naar de 2 rail railes
Case 16
GoSub standaard '3 naar 2
If PORTE.2 = 0 Then PORTB.0 = 0
If PORTE.2 = 1 Then PORTB.0 = 1 'portb.0 = de uitgang naar de 2 rail railes
PORTB.1 = 0
Case 20 '3 naar 3
GoSub standaard '2 naar 3
Case 25
GoSub standaard '3 naar 4
PORTD = %11111111
PORTC = %01111111 ' c6 was 0
Case 30 '3 naar 7
GoSub standaard
PORTB.0 = 1
PORTB.1 = 1
PORTD = %10011111
PORTC = %11111111
Case 31
GoSub standaard '3 naar 2
PORTD.5 = 0
PORTB.1 = 1 'portb.0 = de uitgang naar de 2 rail railes
PORTD.2 = 1 'nul vervangen verkeerde functie
PORTD.6 = 0
Case 35 '3 naar 8
GoSub standaard
PORTD.2 = 0
PORTD.6 = 0
Case 36
GoSub standaard '3 naar 2
PORTB.1 = 1 'portb.0 = de uitgang naar de 2 rail railes
PORTD.2 = 0
PORTD.6 = 0
Case 40 '3 naar 9
GoSub standaard
PORTD.2 = 0
PORTD.6 = 0
PORTD = %10011011
PORTC = %11111111
Case 41
GoSub standaard '3 naar 2
PORTB.1 = 1 'a = de uitgang naar de 2 rail railes
PORTD.2 = 0
PORTD.6 = 0
Case 45 '3 naar 10
GoSub standaard
PORTD.2 = 0
PORTD.6 = 0
PORTC.6 = 0
PORTD = %10111011
PORTC = %10111111
Case 46
GoSub standaard
Case 50 ' 4 naar 4
GoSub standaard
'3 naar 2
PORTB.1 = 1 'portb.0 = de uitgang naar de 2 rail railes
PORTD.2 = 0
PORTD.6 = 0
PORTC.6 = 0
Case 55
GoSub standaard
PORTD = %01111011 ' 4 naar 7
PORTC = %10011111 'd5 is door 1 vervangen
Case 60
GoSub standaard
PORTD = %01011011
PORTC = %10011111
Case 65
GoSub standaard
PORTD = %01111011
PORTC = %10101111
Case 70
GoSub standaard
PORTD = %01010111
PORTC = %10101111
Case 75
GoSub standaard '7 naar 5
PORTD = %10010111
PORTC = %10101111
Case 80
GoSub standaard
PORTD = %11011011
PORTC = %10101111
Case 85
GoSub standaard
PORTD = %11111111 '5 naar 9
PORTC = %10101111
Case 90
GoSub standaard
PORTD = %11111111 '5 naar 10
PORTC = %10101111
Case 95
GoSub standaard
PORTD = %01110111
PORTC = %10111111
Case 100
GoSub standaard
PORTD = %11011011
PORTC = %10011111
Case 105
GoSub standaard
PORTD = %11111111
PORTC = %10111111
Case 110
GoSub standaard
PORTD = %11111111
PORTC = %10111111
End Select
DelayMS 2000
Cls
Print At 1,4,"Druk reset"
Print At 2,5," toets"
While PORTE.0 = 1 :Wend
Cls
PORTB.0 = 1
PORTB.1 = 1
a=0
b=0
Cls
GoTo main