hier der code:

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 64
$crystal = 16000000
$baud = 9600

Dim X As Integer
Dim Y As Integer
Dim X1 As Word
Dim X2 As Word
Dim Y1 As Word
Dim Y2 As Word
Sound Portd.7 , 200 , 450
Print "Starte Joystick-Test"
Sound Portd.7 , 200 , 450
Do
'Darauf warten dass irgendwas gesendet wird
Input "" , X
Input "" , Y

'Die Variablen umskalieren
X1 = X + 20
X2 = X1 * 40

Y1 = Y + 20
Y2 = Y1 * 40
'Einen Ton (Tonhöhe = Joystick Position) ausgeben
Sound Portd.7 , 10 , X2
Sound Portd.7 , 10 , Y2
Loop