Grundsätzlich habe ich mir überlegt, kann man den Fehlerkanal der Floppy in einer Schleife abfragen.
Falls die Diskette entfernt wird, sollte ein Fehler auftreten.
1 :close1:open1,8,15:close1:on-(st=0)goto1:if st then print"diskwechsel"
(Nicht getestet)
Schönen Gruß.