[Cobe]

I was poking in a dark, I mean in QAmiga mode and got semi-successful results even corrupted disk. So I decided to try it in Amiga mode and it seems that everything's fine.

.savesomething ;without pop up window/qamiga friendly

Poke.l Peek.l(Peek.l(4)+276)+184,-1 ;disable pop up window

dummy=WriteFile(0,"hs")

 If dummy=-1
  Print"Type something to save:"
  a$=Edit$(22)
  FileOutput 0
  Print a$
  CloseFile 0
  DefaultOutput
  NPrint"Saved"
 Else
  NPrint"Disk Write-Protected!"
  NPrint"Eject Disk & Write Enable!"
  Repeat
  dummy=Exists ("hs")
   If dummy=0
    Repeat
     dummy=Exists ("hs")
     If dummy>0  Goto savesomething
     NPrint "Insert Disk!"
     VWait 50
    Forever
   EndIf
  Until Joyb(1)=1 ;safety exit
 EndIf
End

So now I have to rewrite it and confirm that it works in QAmiga mode with all the going back and forth to Blitz mode(VWaiting 250...not pleasant) in order to display prints on screen.