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