home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU21.ARC / SNOOPER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.9 KB  |  90 lines
  1. 1 REM******* 'SNOPER' *******
  2. 2 PRINTCHR$(147)CHR$(142):POKE53281,0:POKE53280,0:Z=0:DIMARRAY(9):GOSUB39
  3. 3 PRINTCHR$(159):LO=0:HI=48
  4. 4 POKE251,LO:POKE252,HI:SYS49152:GETA$
  5. 5 IFA$=CHR$(17)THENGOSUB13
  6. 6 IFA$=CHR$(145)THENGOSUB16
  7. 7 IFA$=CHR$(65)THENGOSUB19
  8. 8 IFA$=CHR$(80)THENGOSUB25
  9. 9 IFA$=CHR$(90)THENGOSUB36
  10. 10 IFA$=CHR$(81)THENPRINTCHR$(147)CHR$(5)CHR$(142):END
  11. 11 GOTO4
  12. 12 REM LOWER ADDRESS 40 BYTES
  13. 13 LO=LO-40:IFLO<0THENLO=LO+256:HI=HI-1:IFHI<0THENHI=HI+256
  14. 14 RETURN
  15. 15 REM RAISE ADDRESS 40 BYTES
  16. 16 LO=LO+40:IFLO>255THENLO=LO-256:HI=HI+1:IFHI>255THENHI=HI-256
  17. 17 RETURN
  18. 18 REM SHOW ADDRESSES OF SORCE BLOCK
  19. 19 A=(HI*256)+LO:B=A+999:IFB>65535THENB=B-65536
  20. 20 PRINTCHR$(19)CHR$(18)" ADDRESS = "CHR$(146);A;CHR$(157)CHR$(32);
  21. 21 PRINTCHR$(18)"TO"CHR$(146);B;CHR$(157)CHR$(32)CHR$(18)" HIT ANY KEY "
  22. 22 GETA$:IFA$=""THEN22
  23. 23 RETURN
  24. 24 REM POKE NEW VALUE INTO ADDRESS
  25. 25 PRINTCHR$(147)CHR$(17)CHR$(158)CHR$(18)TAB(4)"POKE VALUE INTO MEMORY ADDRESS"
  26. 26 PRINTCHR$(5)CHR$(17)"YOU CAN CHANGE THE NUMBER STORED IN ANY"
  27. 27 PRINTCHR$(17)"MEMORY ADDRESS BY ENTERING TWO VALUES."CHR$(17)
  28. 28 PRINTCHR$(17)"FIRST ENTER THE ADDRESS (ZERO TO 65535)."
  29. 29 PRINTCHR$(17)"THEN ENTER THE VALUE (ZERO TO 255)."
  30. 30 PRINTCHR$(17)"YOU WANT TO POKE THAT INTO ADDRESS."CHR$(17)CHR$(17)CHR$(158)
  31. 31 INPUT"ENTER 2 VALUES";C,D:POKEC,D:PRINTCHR$(17)CHR$(5)"ONCE MORE? 'Y' = YES"
  32. 32 GETA$:IFA$=""THEN32
  33. 33 IFA$="Y"THENPRINTCHR$(148):GOTO31
  34. 34 PRINTCHR$(159):RETURN
  35. 35 REM  DEFINE ARRAY ELEMENT
  36. 36 ARRAY(Z)=INT(RND(1)*255):Z=Z+1:IFZ=20THENZ=0
  37. 37 RETURN
  38. 38 RM BASIC LOADER FOR ML COPY ROUTINE
  39. 39 IFPEEK(49152)=160THENRETURN
  40. 40 POKE214,12:PRINT:PRINTTAB(10)CHR$(18)CHR$(5)" JUST A MINUTE "
  41. 41 FORJ=49152TO49200:READQ:POKEJ,Q:NEXTJ
  42. 42 DATA 160, 0, 177, 251, 153, 0, 4
  43. 43 DATA 200, 208, 248, 230, 252
  44. 44 DATA 160, 0, 177, 251, 153, 0, 5
  45. 45 DATA 200, 208, 248, 230, 252
  46. 46 DATA 160, 0, 177, 251, 153, 0, 6
  47. 47 DATA 200, 208, 248, 230, 252
  48. 48 DATA 160, 0, 177, 251, 153, 0, 7
  49. 49 DATA 200, 192, 232, 208, 246, 234
  50. 50 REM ML RTN BELOW WHITES COLOR MEMORY
  51. 51 FORJ=49201TO49220:READQ:POKEJ,Q:NEXTJ
  52. 52 DATA 162, 0, 169, 1, 157, 0, 216
  53. 53 DATA 157, 0, 217, 157, 0, 218, 157
  54. 54 DATA 0, 219, 232, 208, 241, 96
  55. 55 REM INSTRUCTION SCREEN DATA
  56. 56 DATA 240, 147, 142, 143, 143, 144
  57. 57 DATA 133, 146, 253, 25, 15, 21, 39
  58. 58 DATA 18, 5, 32, 12, 15, 15, 11, 9
  59. 59 DATA 14, 7, 32, 1, 20, 32, 13, 5
  60. 60 DATA 13, 15, 18, 25, 32, 6, 18, 15
  61. 61 DATA 13, 49, 50, 50, 56, 56, 32, 20
  62. 62 DATA 15, 32, 49, 51, 50, 56, 55, 39
  63. 63 DATA 1, 39, 32, 61, 32, 1, 4, 4, 18
  64. 64 DATA 5, 19, 19
  65. 65 DATA 39, 3, 18, 19, 18
  66. 66 DATA 39, 32, 61, 32, 13, 15, 22, 5
  67. 67 DATA 39, 16, 39, 32, 61, 32, 16
  68. 68 DATA 15, 11, 5, 39, 17, 39, 32
  69. 69 DATA 61, 32, 17, 21, 9, 20
  70. 70 REM DRAW INSTRUCTIONS
  71. 71 FORJ=12288TO13327:POKEJ,32:NEXT:FORJ=5128TO5327:POKEJ,32:NEXT
  72. 72 FORJ=12342TO12678STEP41:READQ:POKEJ,Q:NEXT
  73. 73 FORJ=12813TO12841:READQ:POKEJ,Q:NEXT
  74. 74 FORJ=12900TO12913:READQ:POKEJ,Q:NEXT
  75. 75 FORJ=12980TO12992:READQ:POKEJ,Q:NEXT
  76. 76 FORJ=13060TO13072:READQ:POKEJ,Q:NEXT
  77. 77 FORJ=13141TO13150:READQ:POKEJ,Q:NEXT
  78. 78 FORJ=13221TO13230:READQ:POKEJ,Q:NEXT
  79. 79 POKE12288,42:POKE13287,42:FORJ=12328TO12880STEP40:POKEJ,66:NEXT
  80. 80 POKE12888,74:FORJ=12889TO12898:POKEJ,67:NEXT
  81. 81 POKE12927,73:FORJ=12915TO12926:POKEJ,67:NEXT
  82. 82 FORJ=12967TO13247STEP40:POKEJ,66:NEXT
  83. 83 FORJ=12343TO12638STEP41:POKEJ,223:NEXT
  84. 84 FORJ=12382TO12677STEP41:POKEJ,95:NEXT
  85. 85 REM SCROLL INSTRUCTIONS SIDEWAYS
  86. 86 FORJ=0TO40:POKE251,J:POKE252,48:SYS49152:FORK=0TO99:NEXTK,J
  87. 87 FORJ=40TO0STEP-1:POKE251,J:POKE252,48:SYS49152:NEXT
  88. 88 RETURN
  89. 89 REM<--END BASIC  PROGRAM-----------START VARIABLES-->
  90.