home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / USEFULPOKES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.9 KB  |  149 lines
  1. 0 REM SPLIT SCREEN
  2. 1 POKE646,7
  3. 2 POKE53272,23:POKE774,0
  4. 3 POKE808,234
  5. 10 POKE56,159:POKE52,159
  6. 11 FORJ=40800TO40888:READA:POKEJ,A:NEXT
  7. 12 DATA120,169,127,141,013,220,169,001
  8. 13 DATA141,026,208,169,010,042,042,042
  9. 14 DATA105,050,141,095,159,141,018,208
  10. 15 DATA169,027,141,017,208,169,137,141
  11. 16 DATA020,003,169,159,141,021,003,088
  12. 17 DATA096,173,018,208,205,095,159,208
  13. 18 DATA021,169,000,141,018,208,169,007
  14. 19 DATA141,033,208,169,001,141,025,208
  15. 20 DATA104,168,104,170,104,064,173,095
  16. 21 DATA159,141,018,208,169,002,141,033
  17. 22 DATA208,169,001,141,025,208,076,049
  18. 23 DATA234
  19. 24 REM SPLIT SCREEN WITH SYS 40800
  20. 25 REM BOTTOM COLOR IS CHANGED BY ENTERING POKE 40855,C(C=# FOR COLOR)
  21. 26 REM TO CHANGE SPLIT LOCATION ON AN ALREADY SPLIT SCREEN, ENTER POKE 40812,N
  22. 27 REM N=# OF LINES TO APPEAR ABOVE SPLIT: REM THEN SYS 40800
  23. 30 DATA169,160,133,252,169,222,133,254
  24. 40 DATA169,0,133,251,133,253,160,0,177
  25. 50 DATA251,145,251,177,253,145,253,136,208,245,230,252,230,254,208,237,96
  26. 60 FORT=49152TO49185:READA:POKET,A:NEXTT
  27. 70 SYS49152:POKE59639,10
  28. 80 POKE1,PEEK(1)AND253
  29. 90 SYS40800
  30. 100 POKE40855,0
  31. 110 POKE40812,11:SYS40800
  32. 120 PRINT"[147]             [208]OKES & [211]YS'S"
  33. 130 PRINT"                   "
  34. 140 PRINT"                   BY"
  35. 150 PRINT""
  36. 160 PRINT"              [196]AVID [210]AMTHUN"
  37. 170 PRINT
  38. 180 PRINT"     [193] TUTORIAL ON SOME HANDY POKES"
  39. 190 PRINT"             AND SYS NUMBERS"
  40. 200 PRINT:PRINT:PRINT:PRINT:PRINT"[159]"
  41. 210 PRINT"[208][208][208][208][208][208][208][208]"
  42. 220 PRINT"[208]       [208]"
  43. 230 PRINT"[208]       [208]"
  44. 240 PRINT"[208]       [208]"
  45. 250 PRINT"[208][208][208][208][208][208][208][208]"
  46. 260 PRINT"[208]"
  47. 270 PRINT"[208]"
  48. 280 PRINT"[208]    OKES"
  49. 290 PRINT"[208]"
  50. 300 PRINT"[208]RESS A KEY TO CONTINUE:"
  51. 305 GETK$:IFK$=""THEN305
  52. 307 PRINT:PRINT:PRINT:PRINT:PRINT
  53. 310 PRINT"[212]HE FOLLOWING WILL BE A LIST OF [208]OKES"
  54. 320 PRINT"THAT CAN BE USED IN YOUR OWN PROGRAMS"
  55. 330 PRINT"THAT YOU WRITE. [201] HOPE YOU LIKE THEM."
  56. 340 SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626
  57. 350 REM
  58. 360 REM
  59. 370 REM  SYS59626:SYS59626- DEACTIVATED TO ADD 'PRESS A KEY' LINE
  60. 375 PRINT"[208]RESS A KEY TO CONTINUE:"
  61. 378 GETK$:IFK$=""THEN378
  62. 380 SYS59626:SYS59626:SYS59626:SYS59626
  63. 390 PRINT"56325,0-255  [195]URSOR [194]LINK [211]PEED"
  64. 400 PRINT"53281,0-15   [194]ACKGROUND [195]OLOR"
  65. 410 PRINT"53280,0-15   [194]ORDER [195]OLOR"
  66. 420 PRINT"53272,21     [213]PPERCASE/[199]RAPHICS"
  67. 430 PRINT"53272,23     [204]OWERCASE/[213]PPERCASE"
  68. 440 PRINT"53265,11     [194]LANK [211]CREEN"
  69. 450 PRINT"53265,27     [197]NABLE [211]CREEN"
  70. 460 PRINT"819,246      [196]ISABLE [211]AVE"
  71. 470 PRINT"819,245      [197]NABLE [211]AVE"
  72. 480 PRINT"808,239      [196]ISABLE [211]TOP [203]EY"
  73. 490 PRINT
  74. 500 PRINT"[208]RESS A KEY TO CONTINUE:"
  75. 510 GETK$:IFK$=""THEN510
  76. 520 SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626
  77. 530 SYS59626:SYS59626:SYS59626
  78. 540 PRINT"808,237      [197]NABLE [211]TOP [203]EY"
  79. 550 PRINT"808,234      [196]ISABLE [211]TOP,[210]ESTORE,[204]IST"
  80. 560 PRINT"808,237      [197]NABLE [211]TOP,[210]ESTORE,[204]IST"
  81. 570 PRINT"792,193      [196]ISABLE [210]ESTORE"
  82. 580 PRINT"792,71       [197]NABLE [210]ESTORE"
  83. 590 PRINT"788,49       [197]NABLE [211]TOP [203]EY"
  84. 600 PRINT"775,168      [196]ISABLE [204]IST"
  85. 610 PRINT"775,167      [197]NABLE [204]IST"
  86. 620 PRINT"775,171      [195]RASH ON [204]IST"
  87. 630 PRINT"774,0        [204]IST [204]INE #'S [207]NLY"
  88. 640 PRINT:PRINT"[208]RESS A KEY TO CONTINUE:"
  89. 650 GETK$:IFK$=""THEN650
  90. 660 SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626
  91. 670 SYS59626:SYS59626:SYS59626
  92. 680 PRINT"774,26      [197]NABLE [198]ULL [204]ISTING"
  93. 690 PRINT"770,106:771,223  [210]ESET [198]ASTLOAD"
  94. 700 PRINT"770,131:771,164  [196]ISABLE [198]ASTLOAD"
  95. 710 PRINT"657,128     [196]ISABLE [211]HIFT [203]EY"
  96. 720 PRINT"657,0       [197]NABLE [211]HIFT [203]EY"
  97. 730 PRINT"650,128     [193]LL [203]EYS [210]EPEAT"
  98. 740 PRINT"650,0       [196]ISABLE [203]EYS [210]EPEAT"
  99. 750 PRINT"649,0       [196]ISABLE [203]EYBOARD"
  100. 760 PRINT"649,10      [197]NABLE [203]EYBOARD"
  101. 770 PRINT:PRINT"[208]RESS A KEY TO CONTINUE:"
  102. 780 GETK$:IFK$=""THEN780
  103. 790 SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626
  104. 800 SYS59626:SYS59626:SYS59626
  105. 810 PRINT"646,0-15    [195]HANGE [195]HARACTER [195]OLOR"
  106. 820 PRINT"19,0        [197]NABLE '?' ON [201]NPUT"
  107. 830 PRINT"152,0       [195]LOSE [193]LL [198]ILES"
  108. 840 PRINT:PRINT:PRINT
  109. 850 PRINT"[215]ELL, THOSE ARE ALL THE POKES FOR NOW.  [201] WILL NOW SHOW YOU SOME ";
  110. 860 PRINT"HELPFUL [211][217][211]     NUMBERS."
  111. 870 PRINT"[208]RESS A KEY TO CONTINUE:"
  112. 880 GETK$:IFK$=""THEN880
  113. 890 SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626
  114. 900 SYS59626:SYS59626:SYS59626
  115. 910 PRINT" [211][211][211][211][211][211]"
  116. 920 PRINT"[211]      [211]"
  117. 930 PRINT"[211]"
  118. 940 PRINT"[211]"
  119. 950 PRINT" [211][211][211][211][211][211]  [217]   [217]  [211][211][211][211]"
  120. 960 PRINT"       [211]  [217] [217]   [211]"
  121. 970 PRINT"       [211]   [217]    [211][211][211][211]"
  122. 980 PRINT"[211]      [211]   [217]       [211]  [195][207][196][197][211]"
  123. 990 PRINT" [211][211][211][211][211][211]    [217]    [211][211][211][211]"
  124. 1000 PRINT"[208]RESS A KEY TO CONTINUE:"
  125. 1005 GETK$:IFK$=""THEN1005
  126. 1010 SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626
  127. 1020 SYS59626:SYS59626:SYS59626
  128. 1030 PRINT"65126     [194][193][211][201][195] [215]ARM [211]TART"
  129. 1040 PRINT"64738     [194][193][211][201][195] [195]OLD [211]TART"
  130. 1050 PRINT"59626     [211]CROLL [203]EY 1 [204]INE"
  131. 1060 PRINT"59516     [205]OVE [195]URSOR [196]OWN 1 [204]INE"
  132. 1070 PRINT"58726     [200]OME THE [195]URSOR"
  133. 1080 PRINT"58692     [195]LEAR [211]CREEN/[200]OME [195]URSOR"
  134. 1090 PRINT"58266     [208]RINT [211]TART [213]P [205]ESSAGE"
  135. 1100 PRINT"57194     [210]ESET [198]ASTLOAD"
  136. 1110 PRINT"42115     [210]ESET TO [194][193][211][201][195](NO READY)"
  137. 1120 PRINT"[210][197][212][213][210][206] TO READY(MODE)"
  138. 1130 PRINT
  139. 1140 PRINT"[208]RESS ANY KEY TO CONTINUE:"
  140. 1150 GETK$:IFK$=""THEN1150
  141. 1160 SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626:SYS59626
  142. 1170 SYS59626:SYS59626:SYS59626
  143. 1180 PRINT"    [201] HOPE YOU LIKE THESE.  [212]HIS         PROGRAM WAS OBTAINED FROM A";
  144. 1190 PRINT" [194][194][211], NOW    CLOSED, OPERATED BY THE AUTHOR, [196]AVE    [210]AMTHUN OF [195]ORNLAND";
  145. 1200 PRINT" [201]LL.  [205]R [210]AMTHUN    IS NOW INVOLVED WITH A [194][194][211] / USER CLUB  IN [211]PRING";
  146. 1210 PRINT"FIELD, [201]LL."
  147. 1220 PRINT"     [212]HIS PROGRAM WAS SUBMITTED BY [210]ON   [212]URNER ([210][210][212]-[205][193][201][204]).
  148. 1280 [129]I[178]1[164]8000:[130]I:[151]53272,21:[158]64738
  149.