'check filesystem

For i=1 To 100

 a$= "test"+Str$(i)+".txt"
 Open a$ For output As #1

 For j=1000 To 2000
   Print #1,Str$(j)
 Next j

 Close #1

 Pause 1000 'time to let the system settle
 Print i
Next i

End

[9] Print #1,Str$(j)
Error : Error during device operation
> ? mm.info(free space)
4096
> ? mm.info(disk size)
708608

> option filesystem flash format
Error : Invalid Option
>

'***************** BULK REMOVE ******************
'
'         kills your files
'      For demonstration only
'      Use it on your own risk
'     12/2022 by Twofingers@TBS
'
' You can delete individual files or ALL together
'
'************************************************
Option explicit

Const TRUE =1
Const FALSE=Not TRUE
Dim FileName$, Confirm$, MassMode=FALSE

Print "###############################################"
Print "   BULK REMOVE = a Weapon of mass destruction"
Print "  Kills your files (use it on your own risk!)"
Print "You can delete individual files or ALL together"
Print "###############################################":Print
Pause 1000

FileName$ = Dir$("*.*", FILE)
Do While FileName$ <> ""
 If MassMode = FALSE Then ' e = exits the loop
   Print "Delete "+FileName$+" (y/n/e or ALL <for all files>) ";
   Input Confirm$
 EndIf
 If Confirm$ = "ALL" Then
    Input "Are you sure you want to DELETE ALL your files? (y/n)",confirm$
    If LCase$(Confirm$) = "y" Then
       MassMode = TRUE
       Killfile
    EndIf
 ElseIf LCase$(Confirm$) = "y" Then
   Killfile
 ElseIf LCase$(Confirm$) = "e" Then
   Print :Print "BYE! (Terminated by user)"
   Exit
 EndIf

 FileName$ = Dir$()
Loop


Sub KillFile
 On ERROR SKIP
 Kill (FileName$)
 If MM.Errno = 0 Then
    Print "File: " + FileName$ + " successfully deleted!"
 Else
    Print "ERROR @ File: "+ FileName$
 EndIf
End Sub

f$=dir$("*",FILE):do:k ill f$:f$=DIR$():loop until f$=""

f$=dir$("*",FILE):do:print f$:f$=DIR$():loop until f$=""