# dbKill.bas draw -1 form fld 50,34,32,12, "",1 form btn 40,147,60,12, "Enter",1 draw "dbKill",10,20,1 draw "db Name:",10,35 top: x = asc(input$(1)) target$=s$(0) n=db.find(target$) if n<0 then goto fnf goto clean fnf: print "File Not Found!" goto top clean: # the next line opens a db and makes # the db index number the variable! # don't know why! g = open target$ # g = DBOS index number! kill target$,g,-99,-9 'deletes db n=db.find(target$) if n<0 then print "Database deleted." goto top end