home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / SPEED-UP.bas < prev    next >
BASIC Source File  |  2023-02-26  |  815b  |  23 lines

  1. 10  REM  **********************
  2. 11  REM  * SPEED-UP           *
  3. 12  REM  * BY THE FLOETERS    *
  4. 13  REM  * COPYRIGHT (C) 1982 *
  5. 14  REM  * BY MICRO-SPARC INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 20  REM  ROUTINE TO PATCH DOS SO IT CAN SPEED-UP SAVE'S AND BSAVE'S
  9. 30  REM  WRITTEN BY VALERIE AND AL FLOETER
  10. 40  REM  JUNE, 1982 --- THE SOFTWARE EXPERIENCE
  11. 50 HEX$ = "B11D: 20 69 BA": GOSUB 110
  12. 60  CALL  -144: REM  EXECUTE KEY BUFFER
  13. 70 HEX$ = "BA69: AD 5F AA C9 30 F0 07 C9 04 F0 03 20 DC AF 60": GOSUB 110
  14. 80  PRINT "DOS IS PATCHED FOR SPEED UP"
  15. 90  CALL  -144: REM  EXECUTE KEY BUFFER
  16. 100  END 
  17. 110  REM  ROUTINE TO STORE CODES INTO KEY BUFFER
  18. 120 HEX$ = HEX$ +" N D823G"
  19. 130  FOR I = 1 TO  LEN(HEX$)
  20. 140  POKE 511 +I, ASC( MID$ (HEX$,I,1)) +128
  21. 150  NEXT I
  22. 160  POKE 72,0
  23. 170  RETURN