$regfile = "m32def.dat" $crystal = 16000000 Config Porta = Output Config Portb = Output Config Portc = Output Config Portd = Output Dim Ebene1 As Long Dim Ebene2 As Long Dim Ebene3 As Long Dim Ebene4 As Long Dim Ebene5 As Long Dim Bild As Long Dim Nichts As Long Dim Voll As Long Nichts = &B00000000000000000000000000000000 Voll = &B00000001111111111111111111111111 Dim Warte1 As Integer Dim Kurz As Integer Dim Zaehler As Integer E1 Alias Porta.0 E2 Alias Porta.1 E3 Alias Porta.2 E4 Alias Porta.3 E5 Alias Porta.4 Declare Sub Vierecke Declare Sub Rundherum Declare Sub Vortex Declare Sub Ebenenwechsel2 Config Timer0 = Timer , Prescale = 256 On Ovf0 Ebenenwechsel Enable Timer0 Enable Interrupts Zaehler = 30 Warte1 = 20 Kurz = 10 Start Timer0 Do Gosub Rundherum Gosub Vierecke Gosub Vortex Gosub Vortex Gosub Vortex Gosub Vortex Gosub Vortex Gosub Vortex Loop Sub Vortex Ebene1 = &B00000000010000100001000010000100 Ebene2 = &B00000000001000110001000110001000 Ebene3 = &B00000000000100010001000100010000 Ebene4 = &B00000000000000011011101100000000 Ebene5 = &B00000000000000000111110000000000 Waitms Warte1 Ebene1 = &B00000000100001100001000011000010 Ebene2 = &B00000000010000100001000010000100 Ebene3 = &B00000000001000110001000110001000 Ebene4 = &B00000000000100010001000100010000 Ebene5 = &B00000000000000011011101100000000 Waitms Warte1 Ebene1 = &B00000001000001000001000001000001 Ebene2 = &B00000000100001100001000011000010 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000001000110001000110001000 Ebene5 = &B00000000000100010001000100010000 Waitms Warte1 Ebene1 = &B00000000000011000011100001100000 Ebene2 = &B00000001000001000001000001000001 Ebene3 = &B00000000100001100001000011000010 Ebene4 = &B00000000010000100001000010000100 Ebene5 = &B00000000001000110001000110001000 Waitms Warte1 Ebene1 = &B00000000000000000111110000000000 Ebene2 = &B00000000000011000011100001100000 Ebene3 = &B00000001000001000001000001000001 Ebene4 = &B00000000100001100001000011000010 Ebene5 = &B00000000010000100001000010000100 Waitms Warte1 Ebene1 = &B00000000000000011011101100000000 Ebene2 = &B00000000000000000111110000000000 Ebene3 = &B00000000000011000011100001100000 Ebene4 = &B00000001000001000001000001000001 Ebene5 = &B00000000000011000011100001100000 Waitms Warte1 Ebene1 = &B00000000000100010001000100010000 Ebene2 = &B00000000000000011011101100000000 Ebene3 = &B00000000000000000111110000000000 Ebene4 = &B00000000000011000011100001100000 Ebene5 = &B00000001000001000001000001000001 Waitms Warte1 Ebene1 = &B00000000001000110001000110001000 Ebene2 = &B00000000000100010001000100010000 Ebene3 = &B00000000000000011011101100000000 Ebene4 = &B00000000000000000111110000000000 Ebene5 = &B00000000000011000011100001100000 Waitms Warte1 Ebene1 = &B00000000000000100001000010000100 Ebene2 = &B00000000001000110001000110001000 Ebene3 = &B00000000000100010001000100010000 Ebene4 = &B00000000000000011011101100000000 Ebene5 = &B00000000000000000111110000000000 End Sub Sub Rundherum Ebene1 = &B00000000000100000000000000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000001100000000000000011000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000011100000000000000011100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000111100000000000000011110 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111100000000000000011111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110000000000000111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110000100010000111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110001100011000111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110011100011100111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110111100011110111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111111111100011111111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111111111100011111111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = Voll Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene5 = Nichts Waitms Warte1 Ebene4 = Nichts Waitms Warte1 Ebene3 = Nichts Waitms Warte1 Ebene2 = Nichts Waitms Warte1 Ebene1 = &B00000000011100111001110011100111 Ebene2 = &B00000001110011100111001110011100 Waitms Warte1 Ebene1 = &B00000000001100011000110001100011 Ebene2 = &B00000000111001110011100111001110 Ebene3 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000001100011000110001100011 Ebene2 = &B00000000011000110001100011000110 Ebene3 = &B00000000110001100011000110001100 Ebene4 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001000010000100001000010 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000100001000010000100001000 Ebene5 = &B00000001000010000100001000010000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001100011000110001100011 Ebene3 = &B00000000011000110001100011000110 Ebene4 = &B00000000110001100011000110001100 Ebene5 = &B00000000100001000010000100001000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001100011000110001100011 Ebene3 = &B00000000001000010000100001000010 Ebene4 = &B00000000011000110001100011000110 Ebene5 = &B00000000010000100001000010000100 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = Ebene1 Ebene3 = &B00000000001100011000110001100011 Ebene4 = &B00000000001000010000100001000010 Ebene5 = Ebene4 Waitms Warte1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000001000010000100001000010 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000010000100001000010000100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100001000010000100001000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001000010000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001000010000100001000011000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001000010000100001000011100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001000010000100001000011110 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001000010000100001000011111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100001000010001111101000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000010000100111110010000100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000001011111000100001000010 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111100001000010000100001 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110001000010000100000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110001100010000000000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110001100001000000000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100011111010000100001000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000010000100111110010000100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000001000010000101111100010 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000100001000010000111111 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000100001000010000111110 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000100001000010000011100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000100001000000000011000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000100000000000000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000001100000000001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000011100000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000111110000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111110000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001111010000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001110010000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001100010000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000001000010000100001000010000 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100001000010000100001000 Ebene2 = Ebene1 Ebene3 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000010000100001000010000100 Ebene2 = &B00000000110001100011000110001100 Ebene3 = &B00000000100001000010000100001000 Ebene4 = &B00000001100011000110001100011000 Ebene5 = &B00000001000010000100001000010000 Waitms Warte1 Ebene1 = &B00000000001000010000100001000010 Ebene2 = &B00000000011000110001100011000110 Ebene3 = &B00000000110001100011000110001100 Ebene4 = &B00000000110001100011000110001100 Ebene5 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001000010000100001000010 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000100001000010000100001000 Ebene5 = &B00000001000010000100001000010000 Waitms Warte1 Ebene1 = Nichts Ebene2 = &B00000000001100011000110001100011 Ebene3 = &B00000000011000110001100011000110 Ebene4 = &B00000000110001100011000110001100 Ebene5 = &B00000001100011000110001100011000 Waitms Warte1 Ebene2 = Nichts Ebene3 = &B00000000001100011000110001100011 Ebene4 = &B00000000111001110011100111001110 Ebene5 = &B00000001100011000110001100011000 Waitms Warte1 Ebene3 = Nichts Ebene4 = &B00000000011100111001110011100111 Ebene5 = &B00000001110011100111001110011100 Waitms Warte1 Ebene4 = Nichts Ebene5 = Voll Waitms Warte1 Ebene5 = &B00000001111011111111111111111111 Waitms Warte1 Ebene5 = &B00000001111011110111111111111111 Waitms Warte1 Ebene5 = &B00000001111011110111101111111111 Waitms Warte1 Ebene5 = &B00000001111011110111101111011111 Waitms Warte1 Ebene5 = &B00000001111011110111101111011110 Waitms Warte1 Ebene5 = &B00000001111011110111101111011100 Waitms Warte1 Ebene5 = &B00000001111011110111101111011000 Waitms Warte1 Ebene5 = &B00000001111011110111101111010000 Waitms Warte1 Ebene5 = &B00000001111011110111101111000000 Waitms Warte1 Ebene5 = &B00000001111011110111100111000000 Waitms Warte1 Ebene5 = &B00000001111011110011100111000000 Waitms Warte1 Ebene5 = &B00000001111011110011100111000000 Waitms Warte1 Ebene5 = &B00000000111001110011100111000000 Waitms Warte1 Ebene5 = &B00000000011001110011100111000000 Waitms Warte1 Ebene5 = &B00000000001001110011100111000000 Waitms Warte1 Ebene5 = &B00000000000001110011100111000000 Waitms Warte1 Ebene5 = &B00000000000001100011100111000000 Waitms Warte1 Ebene5 = &B00000000000001100011000111000000 Waitms Warte1 Ebene5 = &B00000000000001100011000110000000 Waitms Warte1 Ebene5 = &B00000000000001100011000100000000 Waitms Warte1 Ebene5 = &B00000000000001100011000000000000 Waitms Warte1 Ebene5 = &B00000000000001100001000000000000 Waitms Warte1 Ebene5 = &B00000000000000100001000000000000 Waitms Warte1 Ebene5 = &B00000000000000000001000000000000 Waitms Warte1 Ebene4 = Ebene5 Waitms Warte1 Ebene3 = Ebene5 Waitms Warte1 Ebene2 = Ebene5 Waitms Warte1 Ebene1 = Ebene5 Waitms Warte1 Ebene5 = Nichts Waitms Warte1 Ebene4 = Nichts Waitms Warte1 Ebene3 = Nichts Waitms Warte1 Ebene2 = Nichts Waitms Warte1 Ebene1 = &B00000000000001110011100111000000 Waitms Warte1 Ebene1 = Voll Waitms Warte1 Ebene2 = &B00000001111110001100011000111111 Waitms Warte1 Ebene3 = Ebene2 Waitms Warte1 Ebene4 = Ebene2 Waitms Warte1 Ebene5 = Ebene2 Waitms Warte1 Ebene5 = &B00000001111111111110111111111111 Waitms Warte1 Ebene5 = Voll Waitms Warte1 Ebene4 = Voll Waitms Warte1 Ebene3 = Voll Waitms Warte1 Ebene2 = Voll Waitms Warte1 Ebene5 = Nichts Waitms Warte1 Ebene4 = Nichts Waitms Warte1 Ebene3 = Nichts Waitms Warte1 Ebene2 = Nichts Waitms Warte1 Ebene1 = &B00000001101111011110111101111011 Waitms Warte1 Ebene1 = &B00000001000110001100011000110001 Waitms Warte1 Ebene2 = Ebene1 Waitms Warte1 Ebene3 = Ebene1 Waitms Warte1 Ebene4 = Ebene1 Waitms Warte1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000101001010010100101001010 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000010000100001000010000100 'I Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100001000010000100001000 Ebene2 = &B00000000110001100011000110001100 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000011000110001100011000110 Ebene5 = &B00000000001000010000100001000010 Waitms Warte1 Ebene1 = &B00000001000010000100001000010000 Ebene2 = &B00000000100001000010000100001000 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000001000010000100001000010 Ebene5 = &B00000000000100001000010000100001 Waitms Warte1 Ebene1 = Nichts Ebene2 = &B00000001100011000110001100011000 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000000001100011000110001100011 Ebene5 = Nichts Waitms Warte1 Ebene2 = Nichts Ebene3 = Voll '_ Ebene4 = Nichts Waitms Warte1 Ebene2 = &B00000000001100011000110001100011 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001000010000100001000010 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000100001000010000100001000 Ebene5 = &B00000001000010000100001000010000 Waitms Warte1 Ebene1 = &B00000000001000010000100001000010 Ebene2 = &B00000000011000110001100011000110 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000110001100011000110001100 Ebene5 = &B00000000100001000010000100001000 Waitms Warte1 Ebene1 = &B00000000010000100001000010000100 'I Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100001000010000100001000 Ebene2 = &B00000000110001100011000110001100 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000011000110001100011000110 Ebene5 = &B00000000001000010000100001000010 Waitms Warte1 Ebene1 = &B00000001000010000100001000010000 Ebene2 = &B00000000100001000010000100001000 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000001000010000100001000010 Ebene5 = &B00000000000100001000010000100001 Waitms Warte1 Ebene1 = Nichts Ebene2 = &B00000001100011000110001100011000 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000000001100011000110001100011 Ebene5 = Nichts Waitms Warte1 Ebene2 = Nichts Ebene3 = Voll '_ Ebene4 = Nichts Waitms Warte1 Ebene2 = &B00000000001100011000110001100011 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001000010000100001000010 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000100001000010000100001000 Ebene5 = &B00000001000010000100001000010000 Waitms Warte1 Ebene1 = &B00000000001000010000100001000010 Ebene2 = &B00000000011000110001100011000110 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000110001100011000110001100 Ebene5 = &B00000000100001000010000100001000 Waitms Warte1 Ebene1 = &B00000000010000100001000010000100 'I Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100001000010000100001000 Ebene2 = &B00000000110001100011000110001100 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000011000110001100011000110 Ebene5 = &B00000000001000010000100001000010 Waitms Warte1 Ebene1 = &B00000001000010000100001000010000 Ebene2 = &B00000000100001000010000100001000 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000001000010000100001000010 Ebene5 = &B00000000000100001000010000100001 Waitms Warte1 Ebene1 = Nichts Ebene2 = &B00000001100011000110001100011000 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000000001100011000110001100011 Ebene5 = Nichts Waitms Warte1 Ebene2 = Nichts Ebene3 = Voll '_ Ebene4 = Nichts Waitms Warte1 Ebene2 = &B00000000001100011000110001100011 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001000010000100001000010 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000100001000010000100001000 Ebene5 = &B00000001000010000100001000010000 Waitms Warte1 Ebene1 = &B00000000001000010000100001000010 Ebene2 = &B00000000011000110001100011000110 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000110001100011000110001100 Ebene5 = &B00000000100001000010000100001000 Waitms Warte1 Ebene1 = &B00000000010000100001000010000100 'I Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000100001000010000100001000 Ebene2 = &B00000000110001100011000110001100 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000011000110001100011000110 Ebene5 = &B00000000001000010000100001000010 Waitms Warte1 Ebene1 = &B00000001000010000100001000010000 Ebene2 = &B00000000100001000010000100001000 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000001000010000100001000010 Ebene5 = &B00000000000100001000010000100001 Waitms Warte1 Ebene1 = Nichts Ebene2 = &B00000001100011000110001100011000 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000000001100011000110001100011 Ebene5 = Nichts Waitms Warte1 Ebene2 = Nichts Ebene3 = Voll '_ Ebene4 = Nichts Waitms Warte1 Ebene2 = &B00000000001100011000110001100011 Ebene3 = &B00000000111001110011100111001110 Ebene4 = &B00000001100011000110001100011000 Waitms Warte1 Ebene1 = &B00000000000100001000010000100001 Ebene2 = &B00000000001000010000100001000010 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000100001000010000100001000 Ebene5 = &B00000001000010000100001000010000 Waitms Warte1 Ebene1 = &B00000000001000010000100001000010 Ebene2 = &B00000000011000110001100011000110 Ebene3 = &B00000000010000100001000010000100 Ebene4 = &B00000000110001100011000110001100 Ebene5 = &B00000000100001000010000100001000 Waitms Warte1 Ebene1 = &B00000000010000100001000010000100 'I Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000010000100011100010000100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000010000100111110010000100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = &B00000000010001110111110111000100 Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene1 = Voll Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 For Zaehler = 30 To 1 Step -1 Ebene1 = Nichts Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Zaehler Ebene1 = Voll Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Zaehler Next Ebene1 = Voll Ebene2 = Ebene1 Ebene3 = Ebene1 Ebene4 = Ebene1 Ebene5 = Ebene1 Waitms Warte1 Ebene5 = &B00000001101111011000001101111011 Waitms Warte1 Ebene4 = Ebene5 Waitms Warte1 Ebene3 = Ebene5 Waitms Warte1 Ebene2 = Ebene5 Waitms Warte1 Ebene1 = Ebene5 Waitms Warte1 Ebene5 = &B00000001100011000000000001100011 Waitms Warte1 Ebene4 = Ebene5 Waitms Warte1 Ebene3 = Ebene5 Waitms Warte1 Ebene2 = Ebene5 Waitms Warte1 Ebene1 = Ebene5 Waitms Warte1 Ebene5 = Nichts Waitms Warte1 Ebene4 = Nichts Waitms Warte1 Ebene3 = Nichts Waitms Warte1 End Sub Sub Vierecke Ebene1 = &B00000001100011000000000001100011 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000011000110110001100000 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000000011110111100000000 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000001100011000001100011000 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000011000110000000110001100 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000110001100000000011000110 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000001100011000000000001100011 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000011000110110001100000 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000000000011110111100000000 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000001100011000001100011000 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000011000110000000110001100 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000000110001100000000011000110 Ebene2 = Ebene1 Waitms Warte1 Ebene1 = &B00000001100011000000000001100011 'ende Ebene2 = Ebene1 Waitms Warte1 Ebene1 = Nichts Ebene2 = &B00000001100011000000000001100011 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000000011000110110001100000 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000000000011110111100000000 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000001100011000001100011000 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000011000110000000110001100 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000110001100000000011000110 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000001100011000000000001100011 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000000011000110110001100000 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000000000011110111100000000 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000001100011000001100011000 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000011000110000000110001100 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000000110001100000000011000110 Ebene3 = Ebene2 Waitms Warte1 Ebene2 = &B00000001100011000000000001100011 'ende Ebene3 = Ebene2 Waitms Warte1 Ebene2 = Nichts Ebene3 = &B00000001100011000000000001100011 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000000011000110110001100000 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000000000011110111100000000 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000001100011000001100011000 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000011000110000000110001100 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000110001100000000011000110 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000001100011000000000001100011 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000000011000110110001100000 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000000000011110111100000000 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000001100011000001100011000 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000011000110000000110001100 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000000110001100000000011000110 Ebene4 = Ebene3 Waitms Warte1 Ebene3 = &B00000001100011000000000001100011 'ende Ebene4 = Ebene3 Waitms Warte1 Ebene3 = Nichts Ebene4 = &B00000001100011000000000001100011 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000000011000110110001100000 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000000000011110111100000000 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000001100011000001100011000 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000011000110000000110001100 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000110001100000000011000110 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000001100011000000000001100011 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000000011000110110001100000 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000000000011110111100000000 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000001100011000001100011000 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000011000110000000110001100 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000000110001100000000011000110 Ebene5 = Ebene4 Waitms Warte1 Ebene4 = &B00000001100011000000000001100011 'ende Ebene5 = Ebene4 Waitms Warte1 Ebene4 = Nichts Waitms Warte1 Ebene5 = &B00000001110011100111110011100111 Waitms Warte1 Ebene5 = &B00000001111011111111111111101111 Waitms Warte1 Ebene5 = Voll Waitms Warte1 Ebene5 = &B00000001111011110111110111101111 Waitms Warte1 Ebene5 = &B00000001110011100111110011100111 Waitms Warte1 Ebene5 = &B00000001100011000111110001100011 Waitms Warte1 Ebene5 = &B00000001000010000111110000100001 Waitms Warte1 Ebene5 = &B00000000000000000111110000000000 Waitms Warte1 Ebene4 = &B00000000000000011011101100000000 Waitms Warte1 Ebene3 = &B00000000000100010001000100010000 Waitms Warte1 Ebene2 = &B00000000001000110001000110001000 Waitms Warte1 End Sub Ebenenwechsel: Stop Timer0 Bild = Ebene1 Gosub Ebenenwechsel2 E1 = 0 Waitms 1 E1 = 1 Bild = Ebene2 Gosub Ebenenwechsel2 E2 = 0 Waitms 1 E2 = 1 Bild = Ebene3 Gosub Ebenenwechsel2 E3 = 0 Waitms 1 E3 = 1 Bild = Ebene4 Gosub Ebenenwechsel2 E4 = 0 Waitms 1 E4 = 1 Bild = Ebene5 Gosub Ebenenwechsel2 E5 = 0 Waitms 1 E5 = 1 Start Timer0 Return Sub Ebenenwechsel2 Porta.5 = Bild.0 Porta.6 = Bild.1 Porta.7 = Bild.2 Portb.0 = Bild.3 Portb.1 = Bild.4 Portb.2 = Bild.5 Portb.3 = Bild.6 Portb.4 = Bild.7 Portb.5 = Bild.8 Portd.0 = Bild.9 Portd.1 = Bild.10 Portd.2 = Bild.11 Portd.3 = Bild.12 Portd.4 = Bild.13 Portd.5 = Bild.14 Portd.6 = Bild.15 Portd.7 = Bild.16 Portc.0 = Bild.17 Portc.1 = Bild.18 Portc.2 = Bild.19 Portc.3 = Bild.20 Portc.4 = Bild.21 Portc.5 = Bild.22 Portc.6 = Bild.23 Portc.7 = Bild.24 Return End Sub End