Die Routinen für das Fading könnte man ggf, noch zusammenfassen. Es braucht dann aber den Indirekten Zugriff auf des Register. Wie das in BASIC geht weiß ich nicht.
Ein Versuch wäre ggf. eine Parameter mit Call by Reference.