Bascom-wie löse ich eine Interrupt aus

Hallo,
habe mit nachfolgendem Text so meine Probleme.
Mit einer Taste soll eine "Sub" aufgerufen werden, die dann losläuft.
Das klappt soweit, wenn es sich um einen "Durchgang" handelt. Sobald
das Unterprogramm aber eine Schleife (hier eine simple Blinkvariante)
darstellt (Do-Loop) kann  man natürlich nicht zur nächsten "Sub"
weiterspringen. Einzige Möglichkeit wäre der RESET-Taster. While- wend
habe ich getestet, braucht aber einen weiteren Taster.
Die Möglichkeit einen Interrupt extern bekomme ich nicht hin. Wer kann
mir was raten? Leider war eine Suche ohne Erfolg, darum dieser Thread.
MFG Holger

$regfile = "2313def.dat"
Config Pind.0 =Input  'Taster

Config Portb = Output
Pind.0 = 1
Dim A As Byte
Afg:
A = 0
Do
   Debounce Pind.0 , 0 , Cnt , Sub
   Loop
End

Cnt:
  Incr A
  If A = 1 Then Gosub Eins
  If A = 2 Then Gosub Zwei
  If A = 3 Then Gosub Drei
  If A = 4 Then Goto Afg
Return

Eins:                                                         'Sub1
'Do
Portb.0 = 1
Waitms 750
Portb.0 = 0
Waitms 750
'loop
Return

Zwei:                                                         'Sub2
'Do
Portb.1 = 1
Waitms 350
Portb.1 = 0
Waitms 350
'Loop
Return

Drei:                                                         'Sub3
'Do
Portb.2 = 1
Waitms 200
Portb.2 = 0
Waitms 200
'Loop
Return