home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / task.amos / task.amosSourceCode
AMOS Source Code  |  1993-01-08  |  508b  |  28 lines
  1. '*              Task.AMOS             *
  2. '*      ï¿½1992 by Volker Stepprath     *
  3. '*  Closing task ! Makes AMOS faster  *
  4. '**** Normal speed ****
  5. Print "Normal:";
  6. Gosub TEST
  7. Wait Key 
  8. Home 
  9. Cls 1
  10. '**** Closing tasks **** 
  11. Print "Task closed:";
  12. XFORBID=Execall(-132)
  13. Gosub TEST
  14. '**** Open closed tasks **** 
  15. XPERMIT=Execall(-138)
  16. Wait Key 
  17. Edit 
  18. '**** Example **** 
  19. TEST:
  20.   T=Timer
  21.   For I=0 To 320
  22.     For I2=10 To 190
  23.       Plot I,I2
  24.     Next I2
  25.   Next I
  26.   T=(Timer-T)/50
  27.   Print T;" Seconds ! (key)"
  28. Return