;Erstellt einen Screenshot im aktuellen Ordner mit laufender Nummerierung
;Alte Screenshots werden nicht ueberschrieben
;RETURN$ = Dateiname des Screenshots
Function ScreenShot$()
Local PicCount%,File$
Repeat
File$ = CalcFileName$("shot.bmp",PicCount%)
PicCount% = PicCount% + 1
Until Not FileType (File$)
SaveBuffer FrontBuffer(), File$
Return File$
End Function
|