home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / TRACE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  46 lines
  1. 1 REM"TRACE"
  2. 15 D=2
  3. 100 DATA-342,162,5,189,162,227,149,115,202,16,248
  4. 110 DATA169,239,133,131,96,173,-342,133,55,173,-341
  5. 120 DATA133,56,169,255,133,45,160,0,162,3,134,46
  6. 130 DATA162,3,32,-271,208,249,202,208,248,32,-271
  7. 140 DATA32,-271,76,142,166,162,5,189,-6,149,115,202
  8. 150 DATA16,248,169,242,133,131,96,230,45,208,2,230
  9. 160 DATA46,177,45,96,230,122,208,2,230,123,96,32
  10. 170 DATA118,0,8,72,133,215,138,72,152,72,166,58,165
  11. 180 DATA57,197,251,208,4,228,252,240,106,133,251
  12. 190 DATA133,38,134,252,134,39,169,5,133,110,202,208,253
  13. 200 DATA136,208,250,234,234,198,110,208,244
  14. 210 DATA232,160,80,169,160,153,255,3,138,153,255,215
  15. 220 DATA136,208,244,132,254,132,40,132,41,132,42
  16. 230 DATA120,248,160,15,6,38,38,39,162,253,181,43
  17. 240 DATA117,43,149,43,232,48,247,136,16,238,216
  18. 250 DATA88,162,2,169,48,133,106,134,105,181,40,72
  19. 260 DATA74,74,74,74,32,-44,104,41,15,32,-44,166
  20. 270 DATA105,202,16,233,32,-38,32,-38,165,253,197
  21. 280 DATA122,240,55,165,215,208,4,133,251,240,47
  22. 290 DATA16,42,201,255,208,8,169,105,32,-30,24,144
  23. 300 DATA33,41,127,170,160,0,185,157,160,48,3,200
  24. 310 DATA208,248,200,202,16,244,185,157,160,48,6
  25. 320 DATA32,-32,200,208,245,41,127,32,-32,165,122
  26. 330 DATA133,253,104,168,104,170,104,40,96,168,173
  27. 340 DATA18,208,41,255,208,249,152,96,9,48,197,106
  28. 350 DATA208,4,169,32,208,2,198,106,41,63,9,128
  29. 360 DATA132,109,32,-54,164,254,153,0,4,192,195
  30. 370 DATA208,2,160,7,200,132,254,164,109,96,76
  31. 380 DATA-255,32,-262
  32. 400 S2=53000:S1=S2+D-344
  33. 410 FORJ=S1TOS2-1
  34. 420 READX:IFX>0ORX=0THEN450
  35. 430 Y=X+S2:X=INT(Y/256):Z=Y-X*256
  36. 440 POKEJ,Z:J=J+1
  37. 450 POKEJ,X
  38. 460 NEXTJ
  39. 470 PRINT"[147]"
  40. 500 PRINT"INITIALIZE WITH SYS(";S1+17")"
  41. 510 PRINT"ENABLE WITH SYS(";S1+56")"
  42. 520 PRINT"DISABLE WITH SYS(";S1+2")"
  43. 530 PRINT"CHANGE SPEED WITH POKE";S1+121-D",X"
  44. 600 END
  45. 700 ::::::LOAD:RUN:RECORD SYS LOCATIONS:NEW:INITIALIZE:NEW:LOAD'BUG':ENABLE:RUN
  46.