home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 10 / Ozsi_10_1998_Tide_Side_C.d64 / renumber (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  160 lines
  1. 1 rem.*****************************
  2. 2 rem.**      bel renumber       **
  3. 3 rem.**                         **
  4. 4 rem.** bel renumbering program **
  5. 5 rem.*****************************
  6. 12 at=679:for n=attoat+22:readm:poken,m:next
  7. 14 data32,180,2,132,251,32,180,2
  8. 16 data 166,251,76,240,255,32,253,174
  9. 17 print"[147]":poke53280,1 :poke53281,1 :poke646,1:print chr$(14)
  10. 18 data 32,158,173,32,170,177,96
  11. 22 sysat,0,1:print"    ********************************  "
  12. 23 sysat,1,1:print"---------------------------------------"
  13. 24 sysat,2,1:print"  [200][201][204][204][211] 64 [199][210][207][213][208] [160][210][197][206][213][205][194][197][210][201][206][199][160][208][210][207][199][210][193][205]  "
  14. 26 sysat,3,1:print"---------------------------------------"
  15. 28 sysat,4,1:print"[204]oad & run the program and wait whilst"
  16. 29 sysat,5,1:print"it sets up the routines."
  17. 30 sysat,7,1:print"[197]nter 'new' and press return."
  18. 32 sysat,9,1:print"[204]oad the program to be renumbered and"
  19. 33 sysat,10,1:print"then type [211][217][211]50505,l,[201]"
  20. 34 sysat,12,1:print" l = the line number to start at."
  21. 35 sysat,13,1:print" [201] = increment/step of line numbers."
  22. 36 sysat,15,1:print"[198]or example:[211][217][211]50505,10,5 will renumber"
  23. 37 sysat,16,1:print"your program starting with line [206]o.10 &"
  24. 38 sysat,17,1:print"counting from then on in steps of 5."
  25. 39 sysat,18,1:print"---------------------------------------"
  26. 40 sysat,20,9 :print"[208]lease wait while [201] load "
  27. 41 :
  28. 42 :
  29. 43 :
  30. 44 :
  31. 45 :
  32. 46 :
  33. 47 :
  34. 48 :
  35. 49 :
  36. 50 :
  37. 51 :
  38. 52 :
  39. 53 :
  40. 54 :
  41. 55 :
  42. 56 :
  43. 57 :
  44. 58 :
  45. 59 :
  46. 60 :
  47. 61 :
  48. 62 :
  49. 63 :
  50. 64 :
  51. 65 :
  52. 66 :
  53. 67 :
  54. 68 :
  55. 69 :
  56. 70 :
  57. 71 :
  58. 72 :
  59. 73 :
  60. 74 :
  61. 75 :
  62. 76 :
  63. 77 :
  64. 78 :
  65. 79 :
  66. 80 :
  67. 81 :
  68. 82 :
  69. 83 :
  70. 84 :
  71. 85 :
  72. 86 :
  73. 87 :
  74. 88 :
  75. 89 :
  76. 90 :
  77. 91 :
  78. 92 :
  79. 93 :
  80. 94 :
  81. 95 :
  82. 96 :
  83. 97 :
  84. 98 :
  85. 99 :
  86. 100 rem bel software computing  1986
  87. 200 rem renumber sys50505 ,start,step
  88. 300 i=50505:t=0
  89. 400 reada:ifa=-1then700
  90. 500 pokei,a:i=i+1
  91. 600 t=t+a:goto400
  92. 700 ift<>52549thenprint"checksum error":end
  93. 800 ifi<>50928thenprint"number of value erroe":end
  94. 900 print"[147]  [194]el [211]oftware [210]enumbering [208]rogram "
  95. 1000 print"   use sys 50505,start,step"
  96. 1100 print"   to renumber program"
  97. 1150 print"   load your program to renumber now"
  98. 1200 end
  99. 1300 data32,253,174,32,107,169,165
  100. 1400 data20,133,53,165,21,133,54
  101. 1500 data32,253,174,32,107,169,165
  102. 1600 data20,133,49,165,21,133,50
  103. 1700 data32,142,166,32,201,198,32
  104. 1800 data201,198,208,33,32,2,198
  105. 1900 data32,201,198,32,201,198,208
  106. 2000 data3,76,212,198,32,201,198
  107. 2100 data165,99,145,122,32,201,198
  108. 2200 data165,98,145,122,32,13,198
  109. 2300 data240,226,32,201,198,32,201
  110. 2400 data198,32,201,198,201,34,208
  111. 2500 data11,32,201,198,240,197,201
  112. 2600 data34,208,247,240,238,170,240
  113. 2700 data188,16,233,162,4,221,235
  114. 2800 data198,240,5,202,208,248,240
  115. 2900 data221,165,122,133,59,165,123
  116. 3000 data133,60,32,115,0,176,211
  117. 3100 data32,107,169,32,32,198,165
  118. 3200 data60,133,123,165,59,133,122
  119. 3300 data160,0,162,0,189,0,1
  120. 3400 data240,17,72,32,115,0,144
  121. 3500 data3,32,82,198,104,160,0
  122. 3600 data145,122,232,208,234,32,115
  123. 3700 data0,176,8,32,97,198,32
  124. 3800 data121,0,144,248,201,44,240
  125. 3900 data186,208,152,165,53,133,99
  126. 4000 data165,54,133,98,76,142,166
  127. 4100 data165,99,24,101,49,133,99
  128. 4200 data165,98,101,50,133,98,32
  129. 4300 data201,198,208,251,96,32,2
  130. 4400 data198,32,201,198,32,201,198
  131. 4500 data208,8,169,255,133,99,133
  132. 4600 data98,48,14,32,201,198,197
  133. 4700 data20,208,16,32,201,198,197
  134. 4800 data21,208,12,162,144,56,32
  135. 4900 data73,188,76,223,189,32,201
  136. 5000 data198,32,13,198,240,209,32
  137. 5100 data114,198,230,251,32,165,198
  138. 5200 data230,45,208,2,230,46,96
  139. 5300 data32,114,198,198,251,32,141
  140. 5400 data198,165,45,208,2,198,46
  141. 5500 data198,45,96,32,124,198,160
  142. 5600 data0,132,17,132,251,96,165
  143. 5700 data122,133,34,165,123,133,35
  144. 5800 data165,45,133,36,165,46,133
  145. 5900 data37,96,164,17,200,177,34
  146. 6000 data164,251,200,145,34,32,190
  147. 6100 data198,208,1,96,230,34,208
  148. 6200 data236,230,35,208,232,164,17
  149. 6300 data177,36,164,251,145,36,32
  150. 6400 data190,198,208,1,96,165,36
  151. 6500 data208,2,198,37,198,36,76
  152. 6600 data165,198,165,34,197,36,208
  153. 6700 data4,165,35,197,37,96,160
  154. 6800 data0,230,122,208,2,230,123
  155. 6900 data177,122,96,32,51,165,165
  156. 7000 data34,166,35,24,105,2,133
  157. 7100 data45,144,1,232,134,46,32
  158. 7200 data89,166,76,116,164,0,137
  159. 7300 data138,141,167,-1
  160.