KillFile 删除

'*********************************************************
' KillFile 删除
'*********************************************************
   Sub KillFile
        Open "A:outstock.Txt" As #11
        Clfile #11   'Clear All File Record
        close #11
           
        'Kill "A:outstock.Txt"
      
       while 1
            screen 1,0
            Print "Function is OK !"
            print
            Print "按任意键退出"
            wait 0,1
            k$=Input$(1)
            Exit Sub
       Wend
   End Sub

'*****************************
'         main
'*****************************
MAIN:
       Cls
       Out &H6080,1 '0:standard-size;  1:the small-size 

       call KillFile
 

ERRCOMM:
 Cls
 Beep 8
 'Print "操作错误:"
 'Print
 'Print "按任意键退出";
 'Wait 0,1
 'k$=Input$(1)
 End