NEW

10 REM CLEAR SCREEN AND FILL
20 ?CHR$(11)
30 POKE 12369, 32
40 GOSUB 9500
50 C = 112
60 ZZ = USR(C)

70 REM ADD BORDER
80 FOR L = 12288 TO 12327 : POKE L, 32 : POKE L + 1024, 112 : NEXT

90 REM DRAW SCENE
100 READ N
110 FOR I = 1 TO N
120 READ P, B, C
130 IF C = 32 THEN 150
140 POKE 12328 + P, C
150 POKE 13352 + P, B
160 NEXT I

170 REM ADD CUSTOM CODE HERE
180 IF INKEY$ = "" THEN 180
190 PRINT CHR$(11)
200 END

9500 REM MACK'S FAST FILL ROUTINE
9501 DIM ZX(16)
9502 ZW = PEEK(14553) * 256 + PEEK(14552) + 7
9503 FOR ZZ = 0 to 15
9504 READ ZY
9505 POKE ZW + ZZ, ZY
9506 NEXT
9507 POKE 14341, ZW/256
9508 POKE 14340, ZW AND 255
9509 DATA 205,130,6
9510 DATA 1,255,3,33,0,52,115,17,1,52,237,176,201
9511 RETURN

REM SCENE DATA (POS, COLOR, CHAR)
10000 DATA 699 : REM TOTAL AFFECTED TILES
10001 DATA 3,112,201,7,112,201,11,112,46,13,112,132
10002 DATA 14,112,208,17,112,132,19,112,172,21,112,132
10003 DATA 24,112,208,25,112,132,27,112,46,31,112,215
10004 DATA 35,112,215,41,7,192,42,112,202,43,112,192
10005 DATA 44,7,172,45,7,192,46,112,202,48,112,46
10006 DATA 49,112,198,50,112,196,53,112,208,54,112,132
10007 DATA 55,112,149,56,112,172,57,7,203,58,112,168
10008 DATA 59,7,134,60,112,164,61,7,219,62,112,172
10009 DATA 63,112,133,64,112,132,65,112,208,68,112,196
10010 DATA 69,112,198,70,112,46,72,112,218,73,7,193
10011 DATA 74,7,172,75,112,193,76,112,218,77,7,193
10012 DATA 81,112,202,82,112,192,83,7,172,84,7,192
10013 DATA 85,112,202,91,112,215,92,112,201,94,112,62
10014 DATA 95,112,47,96,112,132,97,112,148,98,7,134
10015 DATA 100,7,134,101,112,148,102,112,132,103,112,92
10016 DATA 104,112,60,106,112,215,107,112,201,113,112,218
10017 DATA 114,7,193,115,7,172,116,112,193,117,112,218
10018 DATA 120,112,199,121,112,192,122,7,172,123,7,192
10019 DATA 124,112,202,127,112,213,130,112,13,131,112,199
10020 DATA 132,112,217,133,112,47,134,112,202,136,7,134
10021 DATA 137,112,161,139,112,143,141,112,162,142,7,134
10022 DATA 144,112,218,145,112,92,146,112,199,147,112,217
10023 DATA 148,112,10,151,112,213,154,112,218,155,7,193
10024 DATA 156,7,172,157,112,193,158,112,217,161,112,128
10025 DATA 163,112,199,167,112,141,170,112,92,172,112,202
10026 DATA 173,112,202,175,112,162,176,112,148,177,112,162
10027 DATA 179,112,198,181,112,161,182,112,148,183,112,161
10028 DATA 185,112,218,186,112,218,188,112,47,191,112,24
10029 DATA 195,112,217,197,112,128,201,112,172,202,112,215
10030 DATA 203,112,215,204,112,201,205,112,201,206,112,250
10031 DATA 207,7,15,208,112,244,210,112,13,211,112,216
10032 DATA 212,112,16,213,112,180,214,112,94,216,112,162
10033 DATA 218,112,203,219,112,198,220,112,219,222,112,161
10034 DATA 224,112,94,225,112,232,226,112,16,227,112,216
10035 DATA 228,112,10,230,112,248,231,7,17,232,112,245
10036 DATA 233,112,215,234,112,215,235,112,201,236,112,201
10037 DATA 237,112,172,240,112,132,241,112,132,242,7,159
10038 DATA 243,7,141,244,7,24,245,7,159,246,112,132
10039 DATA 247,112,132,248,112,132,249,112,202,250,112,202
10040 DATA 251,112,47,252,112,218,253,112,168,254,112,46
10041 DATA 256,112,168,257,112,58,258,112,47,259,112,198
10042 DATA 260,112,92,261,112,58,262,112,164,264,112,46
10043 DATA 265,112,164,266,112,202,267,112,92,268,112,218
10044 DATA 269,112,218,270,112,132,271,112,132,272,112,132
10045 DATA 273,7,159,274,7,141,275,7,24,276,7,159
10046 DATA 277,112,132,278,112,132,280,112,208,281,112,208
10047 DATA 282,7,219,283,7,141,284,7,24,285,7,203
10048 DATA 286,112,208,287,112,208,288,112,202,289,112,16
10049 DATA 290,112,60,293,112,218,294,112,58,295,112,203
10050 DATA 296,112,172,297,112,202,298,112,168,299,112,213
10051 DATA 300,112,164,301,112,218,302,112,172,303,112,219
10052 DATA 304,112,58,305,112,202,308,112,62,309,112,16
10053 DATA 310,112,218,311,112,208,312,112,208,313,7,219
10054 DATA 314,7,141,315,7,24,316,7,203,317,112,208
10055 DATA 318,112,208,320,112,148,321,112,148,322,7,143
10056 DATA 323,7,203,324,7,219,325,7,143,326,112,148
10057 DATA 327,112,47,328,112,149,333,112,222,334,7,159
10058 DATA 335,112,58,336,112,202,337,112,168,338,112,92
10059 DATA 339,112,138,340,112,47,341,112,164,342,112,218
10060 DATA 343,112,58,344,7,159,345,112,206,350,112,133
10061 DATA 351,112,92,352,112,148,353,7,143,354,7,203
10062 DATA 355,7,219,356,7,143,357,112,148,358,112,148
10063 DATA 361,112,172,363,7,11,364,7,12,366,112,215
10064 DATA 367,112,201,368,112,149,369,112,214,370,112,46
10065 DATA 371,112,130,372,112,46,373,7,142,374,7,150
10066 DATA 375,112,216,376,112,34,377,112,92,378,112,22
10067 DATA 379,112,214,380,112,131,381,112,47,382,112,34
10068 DATA 383,112,216,384,7,150,385,7,158,386,112,46
10069 DATA 387,112,21,388,112,46,389,112,214,390,112,133
10070 DATA 391,112,215,392,112,201,394,7,11,395,7,12
10071 DATA 397,112,172,401,112,255,403,112,199,404,112,217
10072 DATA 406,112,199,407,112,217,409,112,214,411,112,131
10073 DATA 412,112,210,414,112,194,416,112,168,417,112,23
10074 DATA 418,112,141,419,112,214,420,112,24,421,112,140
10075 DATA 422,112,164,424,112,194,426,112,210,427,112,22
10076 DATA 429,112,214,431,112,199,432,112,217,434,112,199
10077 DATA 435,112,217,437,112,255,441,112,255,442,112,232
10078 DATA 443,7,16,444,7,15,445,7,16,446,7,15
10079 DATA 447,112,245,449,112,168,450,112,222,451,112,217
10080 DATA 452,112,199,453,7,210,454,112,245,455,112,186
10081 DATA 456,112,176,457,112,164,458,112,131,459,7,20
10082 DATA 460,112,22,461,112,168,462,112,224,463,112,229
10083 DATA 464,112,250,465,7,210,466,112,217,467,112,199
10084 DATA 468,112,206,469,112,164,471,112,250,472,7,17
10085 DATA 473,7,16,474,7,17,475,7,16,476,112,180
10086 DATA 477,112,255,481,112,172,482,112,208,483,112,208
10087 DATA 484,112,208,485,112,208,486,112,208,487,112,208
10088 DATA 488,112,92,489,112,60,490,112,168,491,112,222
10089 DATA 492,112,199,493,7,31,494,112,217,495,112,92
10090 DATA 496,7,10,497,7,16,498,112,186,499,7,172
10091 DATA 500,112,229,501,7,16,502,7,13,503,112,47
10092 DATA 504,112,199,505,7,31,506,112,217,507,112,206
10093 DATA 508,112,164,509,112,62,510,112,47,511,112,208
10094 DATA 512,112,208,513,112,208,514,112,208,515,112,208
10095 DATA 516,112,208,517,112,172,520,112,148,521,112,148
10096 DATA 522,112,148,523,112,148,524,112,148,525,112,148
10097 DATA 526,112,148,527,112,148,528,112,148,529,112,218
10098 DATA 530,112,47,531,112,168,532,112,222,533,112,58
10099 DATA 534,7,178,535,112,24,536,7,210,537,7,10
10100 DATA 538,112,247,539,7,16,540,112,251,541,7,13
10101 DATA 542,7,210,543,112,141,544,7,225,545,112,58
10102 DATA 546,112,206,547,112,164,548,112,92,549,112,202
10103 DATA 550,112,148,551,112,148,552,112,148,553,112,148
10104 DATA 554,112,148,555,112,148,556,112,148,557,112,148
10105 DATA 558,112,148,560,112,133,561,112,255,562,112,149
10106 DATA 563,112,149,564,112,149,565,112,149,566,112,149
10107 DATA 567,112,149,568,112,149,569,112,88,570,112,216
10108 DATA 571,112,46,572,112,184,573,112,176,574,112,141
10109 DATA 575,112,164,576,112,194,577,7,210,578,7,150
10110 DATA 579,112,159,580,7,150,581,7,210,582,112,194
10111 DATA 583,112,168,584,112,24,585,112,224,586,112,228
10112 DATA 587,112,46,588,112,216,589,112,88,590,112,133
10113 DATA 591,112,133,592,112,133,593,112,133,594,112,133
10114 DATA 595,112,133,596,112,133,597,112,255,598,112,149
10115 DATA 600,112,132,601,112,132,602,112,132,603,112,132
10116 DATA 604,112,132,605,112,132,606,112,132,607,112,132
10117 DATA 608,112,132,609,112,202,610,112,47,611,112,62
10118 DATA 612,7,11,613,112,141,614,112,24,615,112,176
10119 DATA 616,112,164,617,112,194,618,7,193,619,7,19
10120 DATA 620,7,192,621,112,194,622,112,168,623,112,224
10121 DATA 624,112,141,625,112,24,626,7,12,627,112,60
10122 DATA 628,112,92,629,112,218,630,112,132,631,112,132
10123 DATA 632,112,132,633,112,132,634,112,132,635,112,132
10124 DATA 636,112,132,637,112,132,638,112,132,641,112,172
10125 DATA 642,112,208,643,112,208,644,112,208,645,112,208
10126 DATA 646,112,208,647,112,208,648,112,47,650,112,16
10127 DATA 651,112,218,653,112,184,654,112,228,655,112,24
10128 DATA 656,112,131,657,112,199,658,112,229,660,112,186
10129 DATA 661,112,217,662,112,22,663,112,141,664,112,184
10130 DATA 665,112,228,667,112,202,668,112,16,670,112,92
10131 DATA 671,112,208,672,112,208,673,112,208,674,112,208
10132 DATA 675,112,208,676,112,208,677,112,172,681,112,255
10133 DATA 682,112,217,683,112,215,684,112,201,686,112,11
10134 DATA 687,112,132,690,112,132,692,112,218,693,112,168
10135 DATA 694,112,166,695,112,141,697,112,131,698,112,199
10136 DATA 700,112,217,701,112,22,703,112,24,704,112,169
10137 DATA 705,112,164,706,112,202,708,112,132,711,112,132
10138 DATA 712,112,12,714,112,215,715,112,201,716,112,199
10139 DATA 717,112,255,721,7,172,723,112,199,724,112,217
10140 DATA 728,112,225,729,112,178,733,112,218,735,112,58
10141 DATA 736,112,203,737,112,23,739,7,134,741,112,140
10142 DATA 742,112,219,743,112,58,745,112,202,749,112,225
10143 DATA 750,112,178,754,112,199,755,112,217,757,7,172
10144 DATA 761,7,144,762,112,196,763,112,198,766,112,166
10145 DATA 767,112,228,768,7,13,769,7,10,770,112,184
10146 DATA 771,112,169,772,112,198,773,112,196,774,112,216
10147 DATA 775,112,46,777,112,16,778,112,224,779,7,134
10148 DATA 780,112,176,781,112,16,783,112,46,784,112,216
10149 DATA 785,112,196,786,112,198,787,112,166,788,112,228
10150 DATA 789,7,13,790,7,10,791,112,184,792,112,169
10151 DATA 795,112,198,796,112,196,797,7,144,800,112,215
10152 DATA 801,7,193,802,7,172,803,112,193,806,112,228
10153 DATA 807,112,166,808,7,11,809,7,12,810,112,169
10154 DATA 811,112,184,813,112,202,814,112,92,815,112,218
10155 DATA 817,112,164,818,7,134,819,7,150,820,7,134
10156 DATA 821,112,168,823,112,202,824,112,47,825,112,218
10157 DATA 827,112,228,828,112,166,829,7,11,830,7,12
10158 DATA 831,112,169,832,112,184,835,112,192,836,7,172
10159 DATA 837,7,192,838,112,201,841,112,218,842,7,193
10160 DATA 843,7,172,844,112,193,848,112,178,849,112,225
10161 DATA 852,112,47,853,112,215,854,112,201,855,112,208
10162 DATA 856,112,16,858,112,132,859,7,134,860,112,132
10163 DATA 862,112,16,863,112,208,864,112,215,865,112,201
10164 DATA 866,112,92,869,112,178,870,112,225,874,112,192
10165 DATA 875,7,172,876,7,192,877,112,202,881,112,193
10166 DATA 882,112,218,883,7,193,884,7,172,885,112,193
10167 DATA 887,112,148,890,112,148,891,112,11,893,112,199
10168 DATA 894,112,217,895,112,224,896,112,132,897,7,203
10169 DATA 898,112,149,899,112,172,900,112,133,901,7,219
10170 DATA 902,112,132,903,112,176,904,112,199,905,112,217
10171 DATA 907,112,12,908,112,148,911,112,148,913,112,192
10172 DATA 914,7,172,915,7,192,916,112,202,917,112,192
10173 DATA 923,112,217,934,112,208,935,112,148,936,112,132
10174 DATA 938,112,148,939,112,132,940,112,148,942,112,132
10175 DATA 943,112,148,944,112,208,955,112,199