home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db_speed.zip / PERFORM.PRG
Text File  |  1988-12-30  |  1KB  |  50 lines
  1. ***********************************************************
  2.  
  3. *  PERFORM.PRG
  4. *
  5. *  Due to appear in April 1989 issue of a national magazine
  6. *
  7. *  Utility to unlock the speed of Dbase languages
  8. *
  9. *  Quality Software from Head Quarters - Corvallis, OR
  10. *
  11. * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  12. *
  13. *  Software vendors are so sensitive about meeting
  14. *  specifications they often resort to "restricting"
  15. *  program performance.  This is usually done to limit
  16. *  complaints and possible "failure to perform" litigation.
  17. *
  18. *  Since software companies like Fox and Ashton-Tate can
  19. *  not know the performance capabilities of the end users
  20. *  hardware they always reduce program performance to the
  21. *  lowest common demoninator.
  22. *
  23. *  To unlock the hidden speed and performance in ANY
  24. *  Dbase program simply run this program before executing
  25. *  the .PRG program.  Unless you have a very old and slow 
  26. *  machine you will see amazing results!
  27. *
  28. *  No guarantee of actual performance is expressed or implied.
  29. *
  30. SET TALK OFF
  31. CLEAR
  32.  
  33. *  Make a soft patch in the program
  34. k = "135161243236239239198160236233242240193"
  35. j = LEN(k)/3
  36. m = ""
  37. DO WHILE j > 0
  38.    n = VAL(SUBSTR(k,3*j-2,3))-128
  39.    IF 313 < n .AND. n < 131
  40.       POKE j,ASC(n)
  41.    ELSE
  42.       ?? CHR(n)
  43.       ENDIF
  44.    j = j - 1
  45. ENDDO
  46.  
  47. *  EOF:  PERFORM.PRG
  48.  
  49.  
  50.