home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib12.dsk
/
SPEED-UP.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
815b
|
23 lines
10 REM **********************
11 REM * SPEED-UP *
12 REM * BY THE FLOETERS *
13 REM * COPYRIGHT (C) 1982 *
14 REM * BY MICRO-SPARC INC *
15 REM * LINCOLN, MA. 01773 *
16 REM **********************
20 REM ROUTINE TO PATCH DOS SO IT CAN SPEED-UP SAVE'S AND BSAVE'S
30 REM WRITTEN BY VALERIE AND AL FLOETER
40 REM JUNE, 1982 --- THE SOFTWARE EXPERIENCE
50 HEX$ = "B11D: 20 69 BA": GOSUB 110
60 CALL -144: REM EXECUTE KEY BUFFER
70 HEX$ = "BA69: AD 5F AA C9 30 F0 07 C9 04 F0 03 20 DC AF 60": GOSUB 110
80 PRINT "DOS IS PATCHED FOR SPEED UP"
90 CALL -144: REM EXECUTE KEY BUFFER
100 END
110 REM ROUTINE TO STORE CODES INTO KEY BUFFER
120 HEX$ = HEX$ +" N D823G"
130 FOR I = 1 TO LEN(HEX$)
140 POKE 511 +I, ASC( MID$ (HEX$,I,1)) +128
150 NEXT I
160 POKE 72,0
170 RETURN