home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D02.D64 / qw (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  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.