home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / gadget (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  114 lines
  1. 100 rem *** gadget.bl ***
  2. 110 print"[147]gadget - a utility program to append"
  3. 120 print"         and renumber basic programs."
  4. 130 print"         by m.w. caprio 9/30/84."
  5. 140 print:print"              now loading[146]"
  6. 150 fori=49152to49459:reada:pokei,a:t1=t1+a:nexti
  7. 155 ift1<>37623thenprint"data error in lines 210-380":stop
  8. 160 fori=49700to51059:reada:pokei,a:t2=t2+a:nexti
  9. 165 ift2<>182439thenprint"data error in lines 390-1190":stop
  10. 170 sys49449
  11. 180 print:print"loading complete[146]"
  12. 190 print:print"use #/return[146] to renumber."
  13. 200 print"use &/return[146] to append."
  14. 210 data73,99,8,78,65,77,69,32,84,79,79,32,76,79,78,71,32
  15. 220 data69,82,82,79,82,78,65,77,69,32,79,70,32,70,73,76,69
  16. 230 data63,84,69,83,84,49,13,255,255,255,255,255,255,255,255,255,255
  17. 240 data70,73,76,69,32,69,82,82,79,82,165,46,141,2,192,165,45
  18. 250 data56,233,2,176,3,206,2,192,141,1,192,173,1,192,133,43,173
  19. 260 data2,192,133,44,169,8,162,8,160,0,32,186,255,32,211,192,160
  20. 270 data0,185,22,192,32,210,255,200,192,13,208,245,32,211,192,160,0
  21. 280 data32,207,255,201,34,240,249,153,35,192,200,192,16,240,58,201,13
  22. 290 data208,237,152,162,35,160,192,32,189,255,169,0,174,1,192,172,2
  23. 300 data192,32,213,255,166,144,224,0,240,23,224,64,240,19,32,211,192
  24. 310 data160,0,185,51,192,32,210,255,200,192,10,208,245,76,228,192,32
  25. 320 data51,165,76,217,192,32,211,192,160,0,185,3,192,32,210,255,200
  26. 330 data192,19,208,245,76,1,193,169,13,32,210,255,96,166,174,134,45
  27. 340 data166,175,134,46,76,1,193,169,1,162,0,160,192,32,189,255,169
  28. 350 data15,162,8,160,15,32,186,255,32,192,255,162,15,32,198,255,32
  29. 360 data207,255,32,231,255,162,1,134,43,162,8,134,44,76,36,193,201
  30. 370 data38,208,3,76,61,192,201,35,208,3,76,36,194,224,128,240,3
  31. 380 data76,58,164,76,116,164,234,234,160,15,140,0,3,160,193,140,1,3,96
  32. 390 data169,0,162,0,157,0,194,232,224,36,208,248,169
  33. 400 data2,141,0,194,169,194,141,1,194,160,0,169,1,141,10,194,141
  34. 410 data8,194,141,12,194,141,28,194,169,8,141,11,194,141,9,194,141
  35. 420 data13,194,141,15,194,169,5,141,14,194,160,0,162,0,32,214,198
  36. 430 data173,29,194,32,142,194,141,30,194,173,28,194,32,142,194,141,29
  37. 440 data194,177,251,32,142,194,141,28,194,238,14,194,173,14,194,201,0
  38. 450 data208,215,238,15,194,76,95,194,201,0,208,5,232,224,3,240,1
  39. 460 data96,173,14,194,141,16,194,173,15,194,141,17,194,169,5,141,14
  40. 470 data194,169,8,141,15,194,169,0,141,30,194,160,0,32,214,198,177
  41. 480 data251,201,0,208,45,32,195,198,32,195,198,32,195,198,32,195,198
  42. 490 data32,195,198,76,18,198,160,0,32,195,198,32,214,198,177,251,201
  43. 500 data34,240,7,201,0,240,6,76,210,194,32,195,198,76,179,194,201
  44. 510 data34,240,225,201,137,240,37,201,141,240,33,201,203,240,29,201,167
  45. 520 data240,69,201,145,208,8,162,1,142,30,194,76,113,195,162,1,236
  46. 530 data30,194,240,6,32,195,198,76,179,194,162,0,32,195,198,32,214
  47. 540 data198,177,251,201,32,240,244,201,164,240,240,201,48,48,11,201,58
  48. 550 data16,7,157,2,194,232,76,26,195,142,35,194,201,44,208,78,76
  49. 560 data147,195,234,160,0,32,195,198,32,214,198,177,251,201,32,240,244
  50. 570 data201,141,240,194,201,137,240,190,201,145,240,165,162,0,201,48,48
  51. 580 data7,201,58,16,3,76,42,195,32,195,198,76,179,194,162,0,32
  52. 590 data195,198,32,214,198,177,251,201,0,240,239,201,58,240,232,201,137
  53. 600 data240,4,201,141,208,232,76,26,195,169,0,141,30,194,173,35,194
  54. 610 data201,1,240,212,169,0,205,35,194,240,205,141,21,194,141,22,194
  55. 620 data141,23,194,173,0,194,133,251,173,1,194,133,252,172,21,194,177
  56. 630 data251,72,24,14,22,194,46,23,194,173,22,194,172,23,194,14,22
  57. 640 data194,46,23,194,14,22,194,46,23,194,24,109,22,194,141,22,194
  58. 650 data152,109,23,194,141,23,194,104,56,233,48,24,109,22,194,141,22
  59. 660 data194,144,3,238,23,194,238,21,194,202,224,0,208,177,160,0,140
  60. 670 data24,194,140,25,194,173,8,194,141,10,194,173,9,194,141,11,194
  61. 680 data173,10,194,133,251,173,11,194,133,252,177,251,162,0,141,26,194
  62. 690 data200,177,251,141,27,194,200,177,251,141,28,194,200,177,251,141,29
  63. 700 data194,76,126,196,173,26,194,133,251,173,27,194,133,252,160,0,238
  64. 710 data24,194,173,24,194,201,0,208,3,238,25,194,173,26,194,201,0
  65. 720 data208,1,232,141,10,194,173,27,194,201,0,208,1,232,141,11,194
  66. 730 data224,2,208,16,173,14,194,133,251,173,15,194,133,252,234,234,234
  67. 740 data76,179,194,162,0,76,13,196,76,13,196,173,28,194,205,22,194
  68. 750 data208,173,173,29,194,205,23,194,208,165,234,24,14,24,194,46,25
  69. 760 data194,173,24,194,172,25,194,14,24,194,46,25,194,14,24,194,46
  70. 770 data25,194,24,109,24,194,141,24,194,152,109,25,194,141,25,194,24
  71. 780 data173,24,194,105,100,141,24,194,144,3,238,25,194,173,0,194,133
  72. 790 data251,173,1,194,133,252,32,225,198,169,0,141,31,194,141,32,194
  73. 800 data162,16,24,46,24,194,46,25,194,46,31,194,46,32,194,56,173
  74. 810 data31,194,233,10,168,173,32,194,233,0,144,6,140,31,194,141,32
  75. 820 data194,202,208,221,46,24,194,46,25,194,173,31,194,24,105,48,32
  76. 830 data26,197,173,24,194,13,25,194,208,187,234,76,58,197,72,160,0
  77. 840 data177,251,168,240,9,177,251,200,145,251,136,136,208,247,104,160,1
  78. 850 data145,251,160,0,177,251,24,105,1,145,251,96,174,21,194,32,80
  79. 860 data198,202,208,250,173,0,194,133,251,173,1,194,133,252,160,0,177
  80. 870 data251,170,205,35,194,240,67,16,4,76,110,197,234,56,237,35,194
  81. 880 data141,21,194,141,20,194,32,96,198,76,194,197,234,141,21,194,173
  82. 890 data35,194,56,237,21,194,141,21,194,138,174,21,194,141,21,194,173
  83. 900 data14,194,133,253,173,15,194,133,254,169,32,145,253,200,32,195,198
  84. 910 data202,208,247,174,21,194,160,1,32,80,198,173,14,194,141,28,194
  85. 920 data133,253,173,15,194,141,29,194,133,254,32,195,198,202,177,251,145
  86. 930 data253,32,195,198,200,224,0,208,243,76,179,194,173,16,194,141,18
  87. 940 data194,173,17,194,141,19,194,206,21,194,174,21,194,224,255,240,55
  88. 950 data238,35,194,32,45,198,173,18,194,133,251,173,19,194,133,252,160
  89. 960 data0,177,251,200,145,251,173,18,194,205,14,194,208,8,173,19,194
  90. 970 data205,15,194,240,195,206,18,194,173,18,194,201,255,208,213,206,19
  91. 980 data194,76,222,197,76,67,197,160,0,173,12,194,133,251,173,13,194
  92. 990 data133,252,177,251,141,12,194,200,177,251,141,13,194,76,179,194,234
  93. 1000 data174,16,194,232,142,16,194,208,3,238,17,194,96,234,173,14,194
  94. 1010 data205,16,194,208,11,173,15,194,205,17,194,208,3,76,237,198,96
  95. 1020 data234,206,14,194,173,14,194,201,255,208,3,206,15,194,96,234,234
  96. 1030 data173,12,194,133,251,173,13,194,133,252,160,0,177,251,141,33,194
  97. 1040 data24,105,1,145,251,200,177,251,141,34,194,234,234,105,0,145,251
  98. 1050 data173,33,194,208,5,173,34,194,240,13,173,33,194,133,251,173,34
  99. 1060 data194,133,252,76,106,198,173,16,194,141,18,194,173,17,194,141,19
  100. 1070 data194,206,18,194,173,18,194,201,255,208,3,206,19,194,173,18,194
  101. 1080 data133,251,173,19,194,133,252,160,0,169,0,145,251,96,72,238,14
  102. 1090 data194,173,14,194,201,0,208,3,238,15,194,32,59,198,104,96,173
  103. 1100 data14,194,133,251,173,15,194,133,252,96,160,0,169,0,145,251,200
  104. 1110 data192,6,208,249,96,174,16,194,172,17,194,232,224,0,208,1,200
  105. 1120 data134,45,132,46,169,100,141,28,194,169,0,141,29,194,173,8,194
  106. 1130 data141,10,194,173,9,194,141,11,194,160,0,140,30,194,173,10,194
  107. 1140 data133,251,173,11,194,133,252,177,251,141,26,194,200,177,251,141,27
  108. 1150 data194,200,173,28,194,145,251,200,173,29,194,145,251,162,0,238,28
  109. 1160 data194,173,28,194,201,0,208,3,238,29,194,232,224,10,208,238,173
  110. 1170 data26,194,201,0,208,3,238,30,194,141,10,194,173,27,194,201,0
  111. 1180 data208,3,238,30,194,141,11,194,174,30,194,224,2,240,3,76
  112. 1190 data19,199,76,36,193
  113. 1200 end
  114.