100 REM *** GADGET.BL *** 110 PRINT"[147]GADGET - A UTILITY PROGRAM TO APPEND" 120 PRINT" AND RENUMBER BASIC PROGRAMS." 130 PRINT" BY M.W. CAPRIO 9/30/84." 140 PRINT:PRINT" NOW LOADING[146]" 150 FORI=49152TO49459:READA:POKEI,A:T1=T1+A:NEXTI 155 IFT1<>37623THENPRINT"DATA ERROR IN LINES 210-380":STOP 160 FORI=49700TO51059:READA:POKEI,A:T2=T2+A:NEXTI 165 IFT2<>182439THENPRINT"DATA ERROR IN LINES 390-1190":STOP 170 SYS49449 180 PRINT:PRINT"LOADING COMPLETE[146]" 190 PRINT:PRINT"USE #/RETURN[146] TO RENUMBER." 200 PRINT"USE &/RETURN[146] TO APPEND." 210 DATA73,99,8,78,65,77,69,32,84,79,79,32,76,79,78,71,32 220 DATA69,82,82,79,82,78,65,77,69,32,79,70,32,70,73,76,69 230 DATA63,84,69,83,84,49,13,255,255,255,255,255,255,255,255,255,255 240 DATA70,73,76,69,32,69,82,82,79,82,165,46,141,2,192,165,45 250 DATA56,233,2,176,3,206,2,192,141,1,192,173,1,192,133,43,173 260 DATA2,192,133,44,169,8,162,8,160,0,32,186,255,32,211,192,160 270 DATA0,185,22,192,32,210,255,200,192,13,208,245,32,211,192,160,0 280 DATA32,207,255,201,34,240,249,153,35,192,200,192,16,240,58,201,13 290 DATA208,237,152,162,35,160,192,32,189,255,169,0,174,1,192,172,2 300 DATA192,32,213,255,166,144,224,0,240,23,224,64,240,19,32,211,192 310 DATA160,0,185,51,192,32,210,255,200,192,10,208,245,76,228,192,32 320 DATA51,165,76,217,192,32,211,192,160,0,185,3,192,32,210,255,200 330 DATA192,19,208,245,76,1,193,169,13,32,210,255,96,166,174,134,45 340 DATA166,175,134,46,76,1,193,169,1,162,0,160,192,32,189,255,169 350 DATA15,162,8,160,15,32,186,255,32,192,255,162,15,32,198,255,32 360 DATA207,255,32,231,255,162,1,134,43,162,8,134,44,76,36,193,201 370 DATA38,208,3,76,61,192,201,35,208,3,76,36,194,224,128,240,3 380 DATA76,58,164,76,116,164,234,234,160,15,140,0,3,160,193,140,1,3,96 390 DATA169,0,162,0,157,0,194,232,224,36,208,248,169 400 DATA2,141,0,194,169,194,141,1,194,160,0,169,1,141,10,194,141 410 DATA8,194,141,12,194,141,28,194,169,8,141,11,194,141,9,194,141 420 DATA13,194,141,15,194,169,5,141,14,194,160,0,162,0,32,214,198 430 DATA173,29,194,32,142,194,141,30,194,173,28,194,32,142,194,141,29 440 DATA194,177,251,32,142,194,141,28,194,238,14,194,173,14,194,201,0 450 DATA208,215,238,15,194,76,95,194,201,0,208,5,232,224,3,240,1 460 DATA96,173,14,194,141,16,194,173,15,194,141,17,194,169,5,141,14 470 DATA194,169,8,141,15,194,169,0,141,30,194,160,0,32,214,198,177 480 DATA251,201,0,208,45,32,195,198,32,195,198,32,195,198,32,195,198 490 DATA32,195,198,76,18,198,160,0,32,195,198,32,214,198,177,251,201 500 DATA34,240,7,201,0,240,6,76,210,194,32,195,198,76,179,194,201 510 DATA34,240,225,201,137,240,37,201,141,240,33,201,203,240,29,201,167 520 DATA240,69,201,145,208,8,162,1,142,30,194,76,113,195,162,1,236 530 DATA30,194,240,6,32,195,198,76,179,194,162,0,32,195,198,32,214 540 DATA198,177,251,201,32,240,244,201,164,240,240,201,48,48,11,201,58 550 DATA16,7,157,2,194,232,76,26,195,142,35,194,201,44,208,78,76 560 DATA147,195,234,160,0,32,195,198,32,214,198,177,251,201,32,240,244 570 DATA201,141,240,194,201,137,240,190,201,145,240,165,162,0,201,48,48 580 DATA7,201,58,16,3,76,42,195,32,195,198,76,179,194,162,0,32 590 DATA195,198,32,214,198,177,251,201,0,240,239,201,58,240,232,201,137 600 DATA240,4,201,141,208,232,76,26,195,169,0,141,30,194,173,35,194 610 DATA201,1,240,212,169,0,205,35,194,240,205,141,21,194,141,22,194 620 DATA141,23,194,173,0,194,133,251,173,1,194,133,252,172,21,194,177 630 DATA251,72,24,14,22,194,46,23,194,173,22,194,172,23,194,14,22 640 DATA194,46,23,194,14,22,194,46,23,194,24,109,22,194,141,22,194 650 DATA152,109,23,194,141,23,194,104,56,233,48,24,109,22,194,141,22 660 DATA194,144,3,238,23,194,238,21,194,202,224,0,208,177,160,0,140 670 DATA24,194,140,25,194,173,8,194,141,10,194,173,9,194,141,11,194 680 DATA173,10,194,133,251,173,11,194,133,252,177,251,162,0,141,26,194 690 DATA200,177,251,141,27,194,200,177,251,141,28,194,200,177,251,141,29 700 DATA194,76,126,196,173,26,194,133,251,173,27,194,133,252,160,0,238 710 DATA24,194,173,24,194,201,0,208,3,238,25,194,173,26,194,201,0 720 DATA208,1,232,141,10,194,173,27,194,201,0,208,1,232,141,11,194 730 DATA224,2,208,16,173,14,194,133,251,173,15,194,133,252,234,234,234 740 DATA76,179,194,162,0,76,13,196,76,13,196,173,28,194,205,22,194 750 DATA208,173,173,29,194,205,23,194,208,165,234,24,14,24,194,46,25 760 DATA194,173,24,194,172,25,194,14,24,194,46,25,194,14,24,194,46 770 DATA25,194,24,109,24,194,141,24,194,152,109,25,194,141,25,194,24 780 DATA173,24,194,105,100,141,24,194,144,3,238,25,194,173,0,194,133 790 DATA251,173,1,194,133,252,32,225,198,169,0,141,31,194,141,32,194 800 DATA162,16,24,46,24,194,46,25,194,46,31,194,46,32,194,56,173 810 DATA31,194,233,10,168,173,32,194,233,0,144,6,140,31,194,141,32 820 DATA194,202,208,221,46,24,194,46,25,194,173,31,194,24,105,48,32 830 DATA26,197,173,24,194,13,25,194,208,187,234,76,58,197,72,160,0 840 DATA177,251,168,240,9,177,251,200,145,251,136,136,208,247,104,160,1 850 DATA145,251,160,0,177,251,24,105,1,145,251,96,174,21,194,32,80 860 DATA198,202,208,250,173,0,194,133,251,173,1,194,133,252,160,0,177 870 DATA251,170,205,35,194,240,67,16,4,76,110,197,234,56,237,35,194 880 DATA141,21,194,141,20,194,32,96,198,76,194,197,234,141,21,194,173 890 DATA35,194,56,237,21,194,141,21,194,138,174,21,194,141,21,194,173 900 DATA14,194,133,253,173,15,194,133,254,169,32,145,253,200,32,195,198 910 DATA202,208,247,174,21,194,160,1,32,80,198,173,14,194,141,28,194 920 DATA133,253,173,15,194,141,29,194,133,254,32,195,198,202,177,251,145 930 DATA253,32,195,198,200,224,0,208,243,76,179,194,173,16,194,141,18 940 DATA194,173,17,194,141,19,194,206,21,194,174,21,194,224,255,240,55 950 DATA238,35,194,32,45,198,173,18,194,133,251,173,19,194,133,252,160 960 DATA0,177,251,200,145,251,173,18,194,205,14,194,208,8,173,19,194 970 DATA205,15,194,240,195,206,18,194,173,18,194,201,255,208,213,206,19 980 DATA194,76,222,197,76,67,197,160,0,173,12,194,133,251,173,13,194 990 DATA133,252,177,251,141,12,194,200,177,251,141,13,194,76,179,194,234 1000 DATA174,16,194,232,142,16,194,208,3,238,17,194,96,234,173,14,194 1010 DATA205,16,194,208,11,173,15,194,205,17,194,208,3,76,237,198,96 1020 DATA234,206,14,194,173,14,194,201,255,208,3,206,15,194,96,234,234 1030 DATA173,12,194,133,251,173,13,194,133,252,160,0,177,251,141,33,194 1040 DATA24,105,1,145,251,200,177,251,141,34,194,234,234,105,0,145,251 1050 DATA173,33,194,208,5,173,34,194,240,13,173,33,194,133,251,173,34 1060 DATA194,133,252,76,106,198,173,16,194,141,18,194,173,17,194,141,19 1070 DATA194,206,18,194,173,18,194,201,255,208,3,206,19,194,173,18,194 1080 DATA133,251,173,19,194,133,252,160,0,169,0,145,251,96,72,238,14 1090 DATA194,173,14,194,201,0,208,3,238,15,194,32,59,198,104,96,173 1100 DATA14,194,133,251,173,15,194,133,252,96,160,0,169,0,145,251,200 1110 DATA192,6,208,249,96,174,16,194,172,17,194,232,224,0,208,1,200 1120 DATA134,45,132,46,169,100,141,28,194,169,0,141,29,194,173,8,194 1130 DATA141,10,194,173,9,194,141,11,194,160,0,140,30,194,173,10,194 1140 DATA133,251,173,11,194,133,252,177,251,141,26,194,200,177,251,141,27 1150 DATA194,200,173,28,194,145,251,200,173,29,194,145,251,162,0,238,28 1160 DATA194,173,28,194,201,0,208,3,238,29,194,232,224,10,208,238,173 1170 DATA26,194,201,0,208,3,238,30,194,141,10,194,173,27,194,201,0 1180 DATA208,3,238,30,194,141,11,194,174,30,194,224,2,240,3,76 1190 DATA19,199,76,36,193 1200 END