home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29b.dsk / DOS.TRACER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  660b  |  17 lines
  1. 10  REM  **********************
  2. 20  REM  *DOS.TRACER          *
  3. 30  REM  *                    *
  4. 40  REM  *BY PHILIP GOETZ     *
  5. 50  REM  *COPYRIGHT 1986 BY   *
  6. 60  REM  *MICROSPARC, INC.    *
  7. 70  REM  *CONCORD, MA  01742  *
  8. 80  REM  **********************
  9. 90 A$ = "BCDF:8C F8 6 A0 FE B9 EE B6 20 DA FD A9 A0 20 F0 FD C8 D0 F2 AD F4 B7 20 E3 FD 4C 62 FC N BD06:20 DF BC N F328G"
  10. 100  TEXT : HOME : NORMAL 
  11. 110  VTAB 5: PRINT "PATCHING DOS, PLEASE WAIT..."
  12. 120  FOR X = 1 TO  LEN(A$)
  13. 130  POKE 511 +X, ASC( MID$ (A$,X)) +128
  14. 140  NEXT 
  15. 150  POKE 72,0: POKE 223, PEEK(248)
  16. 160  CALL 65392
  17. 170  VTAB 5: PRINT  CHR$(7);: HTAB 1: PRINT "DOS TRACER IS INSTALLED.    "