home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / utilities / riscpckeys / KeyPatch (.txt) < prev   
Encoding:
RISC OS BBC BASIC V Source  |  1994-06-07  |  1.2 KB  |  43 lines
  1.  >KeyPatch 
  2.  (C) Nick Craig-Wood 1994
  3. buffer_size%=8192
  4.  buffer% buffer_size%
  5. rmload("Keyboard")
  6. change(&1FC,&3B,&5D)
  7. change(&240,&5D,&3B)
  8. rmsave("Keyboard+")
  9. rmload("InternationalKeyboard")
  10. change(&FD4,&23,&5C)
  11. change(&FD5,&7E,&7C)
  12. change(&1206,&AC,&7E)
  13. change(&1226,&22,&40)
  14. change(&1236,&A3,&23)
  15. change(&1248,&04,&03)
  16. change(&124A,&04,&03)
  17. change(&124E,&00,&A3)
  18. change(&124F,&03,&00)
  19. change(&1346,&40,&22)
  20. change(&135C,&AB,&90)
  21. change(&135E,&00,&94)
  22. change(&135F,&03,&00)
  23. change(&136C,&BB,&91)
  24. change(&136E,&00,&95)
  25. change(&136F,&03,&00)
  26. rmsave("IntKeyBrd+")
  27. rmload(module$)
  28.  "OS_Module",18,module$ 
  29.  ,,,base%
  30.   size%=base%!-4
  31.  size%>buffer_size% 
  32.  1,"Buffer too small"
  33.  i%=0 
  34.  size%-1: buffer%?i%=base%?i%: 
  35. rmsave(file$)
  36.  "OS_File",10,file$,&FFA,,buffer%,buffer%+size%
  37. change(address%,old%,new%)
  38.  address%>=size% 
  39.  1,"Illegal address or wildly outside array"
  40.  buffer%?address%<>old% 
  41.  1,"This isn't the correct module version for this patch"
  42.   buffer%?address%=new%
  43.