home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / emulator / model1_b.zip / SPEEDUP.BAS < prev    next >
BASIC Source File  |  1993-06-30  |  743b  |  23 lines
  1. 200 PRINT"Install speed-up patches? (Y/N)"
  2. 210 I$=INPUT$(1):IF I$="N" OR I$="n" THEN 290
  3. 220 IF I$<>"Y" AND I$<>"y" THEN 210
  4. 230 PRINT"Sure thing.  Just a sec..."
  5. 240 OPEN"R",1,"ROMIMAGE",1:FIELD 1,1 AS BYTE$
  6. 250 READ OFFSET,BEFORE,AFTER:IF OFFSET=-1 THEN 280
  7. 260 GET 1,OFFSET+1:IF ASC(BYTE$)<>BEFORE AND ASC(BYTE$)<>AFTER THEN PRINT"This version of ROM cannot be patched.":GOTO 310
  8. 270 LSET BYTE$=CHR$(AFTER):PUT 1,OFFSET+1:GOTO 250
  9. 280 CLOSE
  10. 290 PRINT"ROMIMAGE created."
  11. 300 ON ERROR GOTO 330:OPEN"I",1,"MODEL1.CFG"
  12. 310 CLOSE
  13. 320 END
  14. 330 PRINT"Run SETUP next.":RESUME NEXT
  15. 340 DATA 96,11,1
  16. 350 DATA 97,120,0
  17. 360 DATA 98,177,0
  18. 370 DATA 99,32,201
  19. 380 DATA 197,76,0
  20. 390 DATA 198,67,68
  21. 400 DATA 199,35,36
  22. 410 DATA -1,-1,-1
  23.