home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / SKEW.bas < prev    next >
BASIC Source File  |  2023-02-26  |  867b  |  21 lines
  1. 10  REM  **********************
  2. 11  REM  * SKEW               *
  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 FOR THE 9 SECTOR SKEWING IN THE INIT ROUTINE
  9. 30  REM  WRITTEN BY VALERIE AND AL FLOETER
  10. 40  REM  JUNE, 1982 --- THE SOFTWARE EXPERIENCE
  11. 50 HEX$ = "BF21: A4 3F B9 F0 BC 4C DF BC": GOSUB 90: CALL  -144
  12. 60 HEX$ = "BCDF: 85 3F F0 03 4C 15 BF 4C 29 BF A0 94 88 96 91": GOSUB 90: CALL  -144
  13. 70 HEX$ = "BCEE: 91 C8 01 02 05 04 07 06 09 08 0B 0A 0D 0C 00 0E 0F 03": GOSUB 90: CALL  -144
  14. 80  PRINT "DOS IS PATCHED FOR SKEWING": END 
  15. 90  REM  ROUTINE TO STORE CODES INTO KEY BUFFER
  16. 100 HEX$ = HEX$ +" N D823G"
  17. 110  FOR I = 1 TO  LEN(HEX$)
  18. 120  POKE 511 +I, ASC( MID$ (HEX$,I,1)) +128
  19. 130  NEXT I
  20. 140  POKE 72,0
  21. 150  RETURN