8-Bit Software Online Conversion

Bulk Delete - Listing

10 ON ERROR CLS:PRINT"FILE NOT FOUND" : END 20 CLS:*. 30 DIM A$(50) 40 A=1 50 INPUTTAB(0,23)"Filename : "A$(A) 60 PRINTTAB(0,23);STRING$(39," ") 70 IF A$(A)="" THEN GOTO 90 80 A=A+1:GOTO 50 90 CLS 100 PRINTTAB(20-5,0);"ACCESSING."' 110 FOR L=1TOA-1 120 PRINT"ACCESSING FILE - ";A$(L) 130 B$=A$(L)+" WR" 140 OSCLI("ACCESS "+B$) 150 NEXT 160 CLS 170 PRINTTAB(20-(9/2),0)"DELETING"' 180 FOR L=1TO A-1 190 PRINT"DELETING FILE - ";A$(L) 200 OSCLI("DELETE "+A$(L)) 210 NEXT