100 REM TASTATURABFRAGE MIT SPRUNG
200 REM:
300 REM VORHER:
400 :
410 GETA$:IFA$=""THEN410
420 IFA$="A"THEN2000:REM PROGRAMMTEIL A
430 IFA$="B"THEN3000:REM PROGRAMMTEIL B
440 IFA$="X"THEN END:REM ENDE
450 GOTO410
499 :
500 REM NACHHER:
600 :
610 GETA$:ON1-(A$="A")-2*(A$="B")-3*(A$="X"GOTO610,2000,3000:END