;scroll128.bas ==1c01== 1000 rem save"0:scroll128.bas",8 1010 rem 1020 rem transactor magazine, march 1987, joseph f. caffrey, page 65 1025 rem 1030 for j=4864 to 5887:read x:poke j,x:ch=ch+x:next 1040 if ch<>112895 then print checksum error":stop 1050 print "{clr}{down}{down}sys(4864):rem to enable" 1055 print "{down}{down}- cursor keys, scroll program listing .." 1056 print "- @get ";chr$(34);"text";chr$(34);", find a string" 1057 print "- @if ";chr$(34);"text";chr$(34);" then ";chr$(34);"replace";chr$(34);", search and replace text" 1059 print "{home}";:end 1060 : 1070 data 76,219,22,36,127,48,9,120 1080 data 72,41,127,201,17,240,5,104 1090 data 88,76,173,198,165,46,205,17 1100 data 18,208,9,166,45,232,232,236 1110 data 16,18,240,235,104,48,103,165 1120 data 228,197,235,208,6,165,230,197 1130 data 236,240,4,169,17,208,217,32 1140 data 104,20,32,4,20,32,19,20 1150 data 144,22,165,229,197,235,208,6 1160 data 32,113,20,76,51,19,32,129 1170 data 146,145,27,74,0,76,61,19 1180 data 32,113,20,169,17,32,105,146 1190 data 32,100,80,144,206,32,209,22 1200 data 134,97,133,98,160,1,32,236 1210 data 66,208,12,32,129,146,13,13 1220 data 0,166,45,165,46,208,233,32 1230 data 130,20,169,0,133,244,32,129 1240 data 146,27,74,0,88,96,165,229 1250 data 197,235,208,6,165,230,197,236 1260 data 240,4,169,145,208,151,32,104 1270 data 20,32,4,20,32,19,20,144 1280 data 20,165,228,197,235,208,6,32 1290 data 113,20,76,154,19,169,141,32 1300 data 105,146,76,164,19,32,113,20 1310 data 32,100,80,144,213,32,143,20 1320 data 166,97,134,250,165,98,133,251 1330 data 197,46,208,26,228,45,208,22 1340 data 56,173,16,18,233,2,170,173 1350 data 17,18,233,0,134,250,133,251 1360 data 32,143,20,32,143,20,166,45 1370 data 165,46,134,97,133,98,32,209 1380 data 22,197,251,208,245,228,250,208 1390 data 241,76,127,19,169,126,162,3 1400 data 32,186,255,32,192,255,162,126 1410 data 76,198,255,32,92,20,176,67 1420 data 41,15,133,22,169,0,133,23 1430 data 32,92,20,144,2,24,96,41 1440 data 15,72,6,22,38,23,176,42 1450 data 166,22,164,23,6,22,38,23 1460 data 176,32,6,22,38,23,176,26 1470 data 138,101,22,133,22,152,101,23 1480 data 133,23,176,14,104,101,22,133 1490 data 22,169,0,101,23,133,23,144 1500 data 199,36,104,96,32,228,255,201 1510 data 48,144,3,201,58,96,56,96 1520 data 165,236,133,250,165,235,133,251 1530 data 96,169,126,32,195,255,32,204 1540 data 255,165,250,133,236,165,251,133 1550 data 235,96,160,2,32,236,66,170 1560 data 200,32,236,66,76,35,81,32 1570 data 129,146,27,87,0,96,72,169 1580 data 0,141,0,255,104,76,160,20 1590 data 32,241,22,224,11,208,37,201 1600 data 64,208,31,32,128,3,162,1 1610 data 221,207,20,240,5,202,16,248 1620 data 48,16,104,104,138,10,170,189 1630 data 210,20,72,189,209,20,72,76 1640 data 128,3,162,11,76,63,77,161 1650 data 139,212,20,212,20,134,197,240 1660 data 241,201,34,240,4,201,39,208 1670 data 233,133,196,162,0,32,88,21 1680 data 132,195,165,197,240,33,162,34 1690 data 36,127,48,216,32,132,21,201 1700 data 167,208,207,32,128,3,197,196 1710 data 208,200,162,32,32,88,21,132 1720 data 32,152,56,229,195,133,94,32 1730 data 132,21,32,251,94,76,80,21 1740 data 160,3,162,0,200,32,236,66 1750 data 240,39,221,0,11,208,243,232 1760 data 228,195,208,240,165,197,240,6 1770 data 32,195,21,32,79,79,32,130 1780 data 20,32,152,85,32,181,75,165 1790 data 197,240,6,165,34,168,136,208 1800 data 209,32,209,22,134,97,133,98 1810 data 32,175,22,144,195,76,134,3 1820 data 32,128,3,160,0,142,1,255 1830 data 177,61,142,3,255,197,196,240 1840 data 18,201,0,240,19,157,0,11 1850 data 232,200,192,31,208,231,162,23 1860 data 76,63,77,192,0,240,1,96 1870 data 162,11,208,244,24,152,101,61 1880 data 133,61,165,62,105,0,133,62 1890 data 76,128,3,141,1,255,177,89 1900 data 145,91,200,208,249,202,240,6 1910 data 230,90,230,92,208,240,141,3 1920 data 255,96,142,1,255,177,89,145 1930 data 91,136,192,255,208,247,202,240 1940 data 6,198,90,198,92,208,238,141 1950 data 3,255,96,132,34,165,94,240 1960 data 64,8,152,24,101,97,133,89 1970 data 165,98,105,0,133,90,173,16 1980 data 18,56,229,89,133,91,173,17 1990 data 18,229,90,133,92,166,92,232 2000 data 40,16,60,165,91,73,255,168 2010 data 200,132,91,165,89,56,229,91 2020 data 133,89,165,90,233,0,133,90 2030 data 32,85,22,32,147,21,32,107 2040 data 22,165,34,56,229,195,105,0 2050 data 168,162,0,142,1,255,189,32 2060 data 11,145,97,200,232,228,32,208 2070 data 245,132,34,142,3,255,96,32 2080 data 129,22,32,159,22,164,91,136 2090 data 165,89,24,101,91,133,89,165 2100 data 90,101,92,133,90,132,91,56 2110 data 165,89,229,91,133,89,165,90 2120 data 233,0,133,90,32,85,22,32 2130 data 170,21,76,6,22,24,165,94 2140 data 101,89,133,91,165,90,133,92 2150 data 144,2,230,92,165,94,16,2 2160 data 198,92,96,24,165,94,109,16 2170 data 18,141,16,18,144,3,238,17 2180 data 18,165,94,16,3,206,17,18 2190 data 96,24,165,94,109,16,18,172 2200 data 17,18,144,1,200,204,19,18 2210 data 240,3,176,6,96,205,18,18 2220 data 144,250,162,16,76,63,77,160 2230 data 0,32,236,66,56,229,97,101 2240 data 94,176,1,96,76,118,21,160 2250 data 1,32,236,66,208,3,56,176 2260 data 23,160,3,32,236,66,197,23 2270 data 144,14,208,12,136,32,236,66 2280 data 197,22,144,4,240,1,36,24 2290 data 96,160,0,32,236,66,170,200 2300 data 76,236,66,120,162,10,189,150 2310 data 20,157,228,3,202,16,247,169 2320 data 228,141,0,3,169,3,141,1 2330 data 3,120,72,169,3,141,60,3 2340 data 169,19,141,61,3,104,88,96