Dim X(14) As WordDim W As WordDim D As ByteDim N As ByteDim Ticks As Byte

Dim Xgeschw As IntegerDim Ygeschw As IntegerDim Xpos As ByteDim Ypos As ByteDim Altpos As Byte

Dim Vh1 As Integer

Dim Ad0 As WordDim Ad0_mean As Word

Dim I As ByteDim Vhelp As WordDim Vhelp1 As Integer'Dim Vhelp3 As IntegerDim Dat As IntegerDim Vy As ByteDim Col As ByteDim Portdout As ByteDim Portcout As Byte

'MENUEDim Mplaywahl As BitDim Pl2c As BitDim Pl1c As BitDim Pl2c1 As BitDim Pl2c2 As BitDim Pl1c1 As BitDim Pl1c2 As BitDim Mdlauf As WordDim Mdlaufa As ByteDim Vtime As ByteDim Noadcpl2 As BitDim Noadcpl1 As BitDim Plst As Bit

Dim Level As ByteDim Vhlepl1 As ByteDim Levelpl1 As ByteDim Vhlepl2 As ByteDim Levelpl2 As Byte

Dim Ue As IntegerDim E2 As SingleDim U2 As SingleDim U As IntegerDim Ysch1 As WordDim Ysch1pos As ByteDim Vysch1pos As ByteDim Ysch2pos As ByteDim Vysch2pos As ByteDim Pupl1 As ByteDim Pupl2 As ByteDim Vhelp2 As WordDim Vhelp3 As IntegerDim Y(10) As Word