100 GOSUB 190 : REM SET UP ROM COPY ROUTINE 110 SYS 384 : REM COPY ROMS TO RAM 120 GOSUB 190 : REM COPY A CHUNK FOR REPLACEMENT ROM CODE 130 IF Q=0 GOTO 120 : REM LOOP TILL ALL ROM CHUNKS COPIED 140 POKE 1,53 : REM SWITCH OUT ROMS 150 SYS 65526 : REM ACTIVATE WEDGE 160 END 170 : 180 REM READ A,N; POKE N BYTES STARTING AT A 190 READ A 200 IF A=-1 THEN Q=1: RETURN 210 READ N 220 FOR I=A TO A+N-1 230 READ B: POKE I,B 240 NEXT I 250 RETURN 260 : 1000 DATA 384,28 : REM POKE 28 BYTE ROM COPY ROUTINE TO 384 1010 DATA 169, 160, 32, 135, 1, 169, 224, 160, 0, 132, 251, 133 1020 DATA 252, 162, 32, 177, 251, 145, 251, 200, 208, 249, 230, 252 1030 DATA 202, 208, 244, 96 1040 : 1050 DATA 57818,1 :REM 1 BYTE AT $E1DA 1060 DATA 008 1070 DATA 57896,3 :REM 3 BYTES AT $E228 1080 DATA 004, 160, 007 1090 DATA 58443,2 :REM 2 BYTES AT $E44B 1100 DATA 052, 247 1110 DATA 58504,14 :REM 14 BYTES AT $E488 1120 DATA 203, 069, 082, 078, 065, 076, 043, 043, 032, 214, 049, 046 1130 DATA 048, 032 1140 DATA 58551,13 :REM 13 BYTES AT $E4B7 1150 DATA 076, 079, 065, 068, 034, 048, 058, 042, 034, 044, 056, 044 1160 DATA 049 1170 DATA 58858,6 :REM 6 BYTES AT $E5EA 1180 DATA 076, 095, 246, 234, 162, 005 1190 DATA 59173,5 :REM 5 BYTES AT $E725 1200 DATA 076, 025, 250, 234, 234 1210 DATA 59346,2 :REM 2 BYTES AT $E7D2 1220 DATA 058, 250 1230 DATA 59746,3 :REM 3 BYTES AT $E962 1240 DATA 076, 008, 250 1250 DATA 60482,1 :REM 1 BYTE AT $EC42 1260 DATA 132 1270 DATA 60536,3 :REM 3 BYTES AT $EC78 1280 DATA 023, 021, 026 1290 DATA 60543,1 :REM 1 BYTE AT $EC7F 1300 DATA 025 1310 DATA 60587,1 :REM 1 BYTE AT $ECAB 1320 DATA 022 1330 DATA 60599,1 :REM 1 BYTE AT $ECB7 1340 DATA 133 1350 DATA 60647,4 :REM 4 BYTES AT $ECE7 1360 DATA 013, 082, 085, 078 1370 DATA 62158,3 :REM 3 BYTES AT $F2CE 1380 DATA 076, 113, 242 1390 DATA 62347,2 :REM 2 BYTES AT $F38B 1400 DATA 076, 019 1410 DATA 62777,2 :REM 2 BYTES AT $F539 1420 DATA 076, 019 1430 DATA 63066,2 :REM 2 BYTES AT $F65A 1440 DATA 234, 234 1450 DATA 63071,39 :REM 39 BYTES AT $F65F 1460 DATA 201, 131, 208, 003, 076, 238, 229, 201, 132, 208, 004, 162 1470 DATA 013, 208, 006, 201, 133, 208, 017, 162, 009, 120, 134, 198 1480 DATA 189, 182, 228, 157, 118, 002, 202, 208, 247, 076, 205, 229 1490 DATA 076, 254, 229 1500 DATA 63276,876 :REM 876 BYTES AT $F72C 1510 DATA 032, 083, 228, 169, 008, 133, 190, 096, 166, 122, 208, 036 1520 DATA 201, 064, 240, 114, 201, 062, 240, 110, 201, 095, 240, 030 1530 DATA 201, 037, 240, 038, 201, 094, 240, 037, 201, 047, 240, 033 1540 DATA 201, 061, 240, 029, 201, 033, 240, 007, 201, 035, 240, 026 1550 DATA 076, 124, 165, 076, 089, 249, 032, 077, 249, 032, 089, 225 1560 DATA 032, 058, 248, 076, 017, 249, 169, 001, 044, 169, 000, 076 1570 DATA 140, 248, 173, 001, 002, 240, 094, 032, 077, 249, 164, 183 1580 DATA 200, 169, 044, 153, 000, 002, 200, 169, 083, 153, 000, 002 1590 DATA 132, 183, 032, 060, 249, 169, 025, 032, 210, 255, 165, 144 1600 DATA 208, 014, 032, 225, 255, 240, 009, 032, 165, 255, 032, 210 1610 DATA 255, 076, 150, 247, 032, 066, 246, 076, 104, 247, 032, 077 1620 DATA 249, 173, 001, 002, 240, 038, 201, 035, 240, 049, 201, 081 1630 DATA 240, 035, 201, 036, 240, 054, 201, 092, 240, 025, 032, 050 1640 DATA 249, 160, 000, 185, 001, 002, 032, 168, 255, 200, 196, 183 1650 DATA 208, 245, 032, 174, 255, 076, 242, 247, 076, 017, 249, 240 1660 DATA 094, 169, 124, 141, 004, 003, 169, 165, 141, 005, 003, 173 1670 DATA 002, 002, 041, 015, 133, 190, 032, 122, 166, 076, 123, 164 1680 DATA 032, 060, 249, 169, 003, 133, 156, 032, 165, 255, 133, 158 1690 DATA 032, 165, 255, 133, 159, 166, 144, 208, 039, 198, 156, 208 1700 DATA 238, 166, 158, 164, 159, 032, 205, 189, 169, 032, 032, 210 1710 DATA 255, 032, 165, 255, 240, 006, 032, 210, 255, 076, 029, 248 1720 DATA 032, 058, 248, 032, 225, 255, 240, 004, 169, 002, 208, 201 1730 DATA 032, 066, 246, 076, 242, 247, 169, 013, 076, 210, 255, 032 1740 DATA 050, 249, 160, 000, 185, 104, 248, 032, 168, 255, 200, 192 1750 DATA 031, 208, 245, 032, 174, 255, 032, 050, 249, 160, 000, 185 1760 DATA 135, 248, 032, 168, 255, 200, 192, 005, 208, 245, 032, 174 1770 DATA 255, 076, 017, 249, 077, 045, 087, 000, 006, 025, 032, 066 1780 DATA 208, 173, 002, 007, 073, 004, 141, 002, 007, 141, 166, 007 1790 DATA 169, 065, 141, 001, 001, 032, 007, 239, 076, 066, 208, 077 1800 DATA 045, 069, 000, 006, 133, 185, 032, 077, 249, 166, 043, 164 1810 DATA 044, 173, 000, 002, 201, 061, 240, 002, 169, 000, 032, 158 1820 DATA 244, 176, 047, 165, 144, 041, 016, 208, 047, 173, 000, 002 1830 DATA 201, 037, 240, 043, 165, 174, 133, 045, 165, 175, 133, 046 1840 DATA 032, 089, 166, 032, 051, 165, 032, 142, 166, 173, 000, 002 1850 DATA 201, 094, 208, 019, 169, 000, 133, 157, 141, 000, 002, 076 1860 DATA 174, 167, 170, 208, 012, 162, 030, 044, 162, 028, 044, 162 1870 DATA 128, 169, 255, 133, 058, 108, 000, 003, 160, 002, 132, 188 1880 DATA 136, 132, 187, 136, 185, 001, 002, 240, 029, 201, 034, 240 1890 DATA 003, 200, 016, 244, 162, 000, 185, 002, 002, 157, 001, 002 1900 DATA 240, 010, 201, 034, 240, 006, 200, 232, 224, 037, 208, 238 1910 DATA 138, 168, 132, 183, 096, 032, 084, 249, 165, 186, 032, 180 1920 DATA 255, 169, 111, 032, 150, 255, 032, 165, 255, 032, 210, 255 1930 DATA 201, 013, 240, 004, 165, 144, 240, 242, 032, 171, 255, 076 1940 DATA 242, 247, 165, 186, 032, 177, 255, 169, 111, 076, 147, 255 1950 DATA 169, 096, 133, 185, 032, 213, 243, 165, 186, 032, 180, 255 1960 DATA 165, 185, 076, 150, 255, 032, 228, 248, 165, 190, 133, 186 1970 DATA 169, 000, 133, 144, 096, 173, 001, 002, 240, 209, 201, 068 1980 DATA 240, 033, 201, 042, 240, 035, 201, 048, 144, 197, 201, 060 1990 DATA 176, 193, 141, 032, 208, 172, 002, 002, 240, 007, 024, 152 2000 DATA 105, 010, 141, 032, 208, 141, 033, 208, 076, 242, 247, 032 2010 DATA 159, 249, 076, 242, 247, 169, 001, 168, 145, 043, 032, 051 2020 DATA 165, 165, 034, 133, 045, 165, 035, 133, 046, 032, 089, 166 2030 DATA 076, 242, 247, 169, 128, 141, 138, 002, 169, 000, 141, 032 2040 DATA 208, 234, 234, 141, 033, 208, 169, 153, 032, 210, 255, 169 2050 DATA 014, 076, 210, 255, 032, 044, 247, 032, 191, 227, 032, 159 2060 DATA 249, 032, 034, 228, 162, 251, 154, 169, 001, 133, 002, 173 2070 DATA 141, 002, 201, 001, 240, 006, 201, 004, 240, 004, 208, 034 2080 DATA 070, 002, 032, 231, 255, 160, 255, 200, 185, 253, 249, 153 2090 DATA 001, 002, 208, 247, 032, 228, 248, 165, 002, 208, 003, 169 2100 DATA 094, 044, 169, 037, 141, 000, 002, 076, 068, 247, 076, 134 2110 DATA 227, 048, 058, 063, 042, 000, 032, 159, 249, 108, 002, 160 2120 DATA 133, 172, 120, 169, 253, 141, 000, 220, 173, 001, 220, 201 2130 DATA 127, 240, 244, 088, 096, 016, 003, 076, 212, 231, 201, 023 2140 DATA 240, 003, 076, 042, 231, 165, 216, 240, 008, 169, 000, 133 2150 DATA 216, 133, 212, 240, 006, 165, 212, 208, 244, 230, 212, 076 2160 DATA 168, 230, 201, 021, 240, 015, 201, 022, 240, 029, 201, 025 2170 DATA 240, 035, 201, 026, 240, 060, 076, 068, 236, 169, 032, 145 2180 DATA 209, 173, 033, 208, 145, 243, 200, 196, 213, 144, 242, 240 2190 DATA 240, 176, 007, 160, 000, 162, 024, 032, 012, 229, 076, 168 2200 DATA 230, 162, 025, 202, 228, 214, 240, 011, 181, 217, 009, 128 2210 DATA 149, 217, 032, 255, 233, 048, 240, 032, 240, 233, 032, 036 2220 DATA 234, 164, 211, 076, 077, 250, 162, 255, 232, 181, 217, 009 2230 DATA 128, 149, 217, 032, 255, 233, 228, 214, 208, 242, 240, 206 2240 DATA 64767,3 :REM 3 BYTES AT $FCFF 2250 DATA 076, 184, 249 2260 DATA 65135,3 :REM 3 BYTES AT $FE6F 2270 DATA 076, 002, 250 2280 DATA 65408,1 :REM 1 BYTE AT $FF80 2290 DATA 016 2300 DATA 65526,3 :REM 3 BYTES AT $FFF6 2310 DATA 076, 044, 247 2320 DATA -1