'**************************************
'*              Task.AMOS             *
'*      ©1992 by Volker Stepprath     *
'*  Closing task ! Makes AMOS faster  *
'**************************************
'
'**** Normal speed ****
'
Print "Normal:";
Gosub TEST
Wait Key 
Home 
Cls 1
'
'**** Closing tasks **** 
'
Print "Task closed:";
XFORBID=Execall(-132)
Gosub TEST
'
'**** Open closed tasks **** 
'
XPERMIT=Execall(-138)
'
Wait Key 
Edit 
'
'**** Example **** 
'
TEST:
  T=Timer
  For I=0 To 320
    For I2=10 To 190
      Plot I,I2
    Next I2
  Next I
  T=(Timer-T)/50
  Print T;" Seconds ! (key)"
Return