home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #2 / Commodore_Disk_User_Vol.3_2_1989_-.d64 / qw (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  40 lines
  1. 0 rem123456789012345678901234567890123456789012345678901234567890123
  2. 1 rem1234567890123456789012345678901234567890123456789012345678901234567890
  3. 2 rem1234567890123456789012345678901234567890123456789012345678901234567890
  4. 3 rem1234567890123456789012345678901234567890123456789012345678901234567890
  5. 20 if a then 110
  6. 100 a=-1:load"ram.exe",8,1
  7. 110 rem move basic rom into ram at $a000 - $bfff
  8. 120 data 165,1,41,254,133,1,96,160,255,200,32,32,8,190,1,1,32,6,8,138,153,1,1
  9. 130 data 200,208,240,165,1,9,1,133,1,96,32,6,8,24,162,255,232,160,255,200,185
  10. 135 data 75,8,133,20,185,151,8,48,01,96,133,21,185,227,8,129,20,144,235
  11. 139 data 0
  12. 140 ad = 2054
  13. 150 read a : if a<>0 then poke ad,a : ad = ad+1 : goto 150
  14. 155 rem
  15. 156 rem quikword loader qw -
  16. 157 rem alter basic rom for quikword
  17. 158 rem
  18. 160 rem copy rom -
  19. 165 poke 2068,0 : poke 2075,0
  20. 170 for x = 160 to 191
  21. 190 poke 2069,x : poke 2076,x
  22. 200 sys 2061
  23. 210 next x
  24. 220 poke 2068,1 : poke 2075,1
  25. 221 rem data for rom execute alteration
  26. 223 x=0 : data 225,167,76,226,167,105,227,167,192
  27. 224 data 173,175,76,174,175,74,175,175,196
  28. 227 data 0
  29. 228 read t1 : if t1=0 then 230
  30. 229 read t2,t3 : poke 2123+x,t1:poke2199+x,t2:poke2275+x,t3:x=x+1:goto 228
  31. 230 sys 2087 : rem alter rom
  32. 231 rem
  33. 232 poke 42500,76 : poke 42501,194 : poke 42502,192
  34. 240 rem
  35. 241 poke 774,150 : poke 775,192
  36. 250 rem
  37. 251 poke 40996,49:poke 40997,193
  38. 300 print"[147]load";chr$(34);"quikword";chr$(34);",8run";
  39. 310 poke 631,13 : poke 632,13 : poke 198,2 : end
  40.