NEW

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

70 REM ADD BORDER
80 FOR L = 12288 TO 12327 : POKE L, 32 : POKE L + 1024, 176 : 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 887 : REM TOTAL AFFECTED TILES
10001 DATA 0,176,255,1,176,175,2,176,246,3,176,254
10002 DATA 4,176,246,5,176,254,6,176,191,7,176,239
10003 DATA 8,176,173,9,176,253,10,176,248,11,176,239
10004 DATA 12,176,244,13,176,254,14,176,184,15,176,187
10005 DATA 16,176,185,17,176,198,19,144,224,20,9,175
10006 DATA 21,9,175,23,176,230,24,176,254,25,176,247
10007 DATA 26,176,167,27,176,178,28,11,177,29,176,255
10008 DATA 30,176,233,31,176,244,32,176,254,33,176,239
10009 DATA 34,176,185,35,176,232,36,176,167,37,176,253
10010 DATA 38,176,171,39,176,250,40,176,191,41,11,177
10011 DATA 42,176,255,43,176,249,44,176,254,45,11,188
10012 DATA 46,176,191,47,176,254,48,176,174,49,176,247
10013 DATA 50,176,239,51,176,244,52,176,247,53,176,248
10014 DATA 54,176,231,55,176,167,56,176,196,57,112,215
10015 DATA 58,128,254,59,137,185,60,137,196,61,137,198
10016 DATA 62,137,46,63,144,180,64,176,171,65,176,250
10017 DATA 66,176,254,67,176,244,68,176,185,69,176,248
10018 DATA 70,176,185,71,176,255,72,176,254,73,176,247
10019 DATA 74,176,167,75,176,170,76,176,246,77,176,244
10020 DATA 78,176,232,79,176,167,80,176,236,81,176,231
10021 DATA 82,176,230,83,11,178,84,11,173,85,11,184
10022 DATA 86,176,175,87,176,188,88,11,177,89,176,251
10023 DATA 90,176,254,91,176,244,92,176,184,93,11,226
10024 DATA 94,176,171,95,176,29,96,112,215,97,7,217
10025 DATA 98,120,177,99,135,255,100,137,246,101,137,31
10026 DATA 102,137,176,103,137,32,104,144,201,105,176,167
10027 DATA 106,176,253,107,176,239,108,176,230,109,176,255
10028 DATA 110,176,248,111,176,248,112,176,171,113,176,185
10029 DATA 114,176,239,115,176,244,116,176,249,117,176,248
10030 DATA 118,176,170,119,176,246,120,176,29,121,15,251
10031 DATA 122,176,171,123,176,169,124,11,226,125,176,235
10032 DATA 126,176,239,127,176,166,128,11,226,129,176,169
10033 DATA 130,176,167,132,128,136,133,144,240,134,144,31
10034 DATA 135,144,176,136,7,181,137,7,181,138,135,251
10035 DATA 139,135,251,140,152,226,141,128,169,142,128,162
10036 DATA 143,137,46,144,144,181,145,176,246,146,176,244
10037 DATA 147,176,185,148,176,249,149,176,191,150,176,178
10038 DATA 151,176,249,152,176,232,153,176,244,154,176,185
10039 DATA 155,176,249,156,176,191,157,176,255,158,176,248
10040 DATA 159,176,248,160,240,176,161,240,225,162,176,196
10041 DATA 163,15,251,164,176,198,165,240,224,167,240,224
10042 DATA 168,15,251,169,176,196,170,112,232,171,120,177
10043 DATA 172,120,176,173,152,185,174,152,191,175,144,255
10044 DATA 176,144,180,177,120,185,178,120,185,179,120,177
10045 DATA 180,120,176,181,128,244,182,144,249,183,144,191
10046 DATA 184,144,217,185,176,27,186,11,177,187,176,184
10047 DATA 188,176,177,189,240,224,190,176,162,191,176,225
10048 DATA 192,176,170,193,176,246,194,176,244,195,176,185
10049 DATA 196,176,249,197,176,191,198,176,178,199,176,249
10050 DATA 201,240,228,202,15,251,203,15,247,204,15,250
10051 DATA 205,240,184,206,240,167,207,15,251,210,112,255
10052 DATA 211,120,244,212,135,251,213,8,159,214,128,183
10053 DATA 215,144,162,216,144,185,217,112,170,218,112,245
10054 DATA 219,112,245,220,135,251,221,152,226,222,144,231
10055 DATA 223,144,223,225,176,46,227,11,252,229,240,228
10056 DATA 230,11,247,231,176,253,233,176,162,234,112,136
10057 DATA 235,112,240,236,112,240,237,112,136,238,176,162
10058 DATA 239,176,225,240,240,169,241,240,246,243,176,46
10059 DATA 244,240,170,245,240,231,248,176,198,250,112,171
10060 DATA 251,7,199,252,112,171,254,176,46,256,144,232
10061 DATA 257,144,229,258,112,199,259,112,199,260,112,199
10062 DATA 261,144,224,262,144,223,263,144,26,264,144,176
10063 DATA 265,176,224,266,176,201,267,176,215,268,176,46
10064 DATA 269,240,244,270,176,198,272,112,248,273,112,255
10065 DATA 274,112,255,275,7,31,276,8,28,277,120,144
10066 DATA 278,128,151,279,176,253,281,240,251,282,11,247
10067 DATA 283,176,28,284,176,165,285,240,183,286,128,215
10068 DATA 287,128,252,288,128,244,290,176,46,295,176,198
10069 DATA 296,144,162,297,144,231,298,144,180,299,144,169
10070 DATA 300,144,173,301,144,225,302,144,184,303,144,231
10071 DATA 304,144,246,305,144,180,306,176,187,307,11,178
10072 DATA 308,176,198,309,15,178,311,7,29,312,7,136
10073 DATA 313,7,29,314,112,245,315,112,198,316,112,225
10074 DATA 317,120,45,318,128,152,319,176,196,320,176,46
10075 DATA 321,240,161,322,112,184,324,128,203,325,128,244
10076 DATA 326,128,170,327,135,183,328,135,32,329,112,253
10077 DATA 332,176,46,333,176,198,337,144,207,338,144,246
10078 DATA 339,137,32,340,144,254,341,144,231,342,144,223
10079 DATA 343,144,224,344,144,254,345,144,255,346,144,176
10080 DATA 347,176,31,348,176,177,349,240,247,351,112,161
10081 DATA 352,112,176,353,112,199,354,112,248,355,7,17
10082 DATA 356,120,169,357,128,255,358,128,151,359,176,188
10083 DATA 360,176,176,361,176,165,362,112,169,363,112,240
10084 DATA 364,112,248,365,112,254,366,120,245,367,135,178
10085 DATA 368,135,32,369,7,29,370,112,201,371,176,198
10086 DATA 373,1,29,374,16,255,375,30,253,376,30,253
10087 DATA 377,30,29,378,224,180,379,144,225,380,144,161
10088 DATA 381,9,251,383,144,231,384,144,253,385,144,255
10089 DATA 386,144,181,387,176,166,388,176,176,389,15,225
10090 DATA 390,176,215,392,112,27,393,7,240,394,7,240
10091 DATA 395,120,161,396,128,255,397,8,224,398,112,224
10092 DATA 399,112,176,400,176,230,401,176,177,402,8,240
10093 DATA 403,128,241,404,135,161,405,7,240,406,112,171
10094 DATA 407,135,226,408,112,161,409,7,201,410,112,181
10095 DATA 411,176,26,413,30,253,414,225,27,415,225,27
10096 DATA 416,30,253,417,30,29,418,224,145,419,9,178
10097 DATA 420,144,166,421,9,252,422,144,180,423,144,162
10098 DATA 424,144,254,425,144,191,426,144,161,427,112,233
10099 DATA 428,128,180,429,15,178,431,7,29,432,128,245
10100 DATA 433,128,252,434,128,162,435,128,16,436,128,162
10101 DATA 437,112,26,438,112,255,439,120,183,440,176,187
10102 DATA 441,176,177,442,7,240,443,7,252,444,176,215
10103 DATA 445,11,225,446,176,229,447,112,171,448,112,219
10104 DATA 449,112,199,450,7,199,451,112,201,452,176,165
10105 DATA 453,30,253,454,16,217,455,1,215,456,16,199
10106 DATA 457,14,30,458,30,165,459,224,180,460,144,177
10107 DATA 461,144,162,463,176,215,465,11,225,466,7,161
10108 DATA 467,120,249,468,128,255,469,128,180,471,112,239
10109 DATA 472,128,167,473,64,248,474,176,252,475,176,201
10110 DATA 476,176,201,477,112,162,478,112,239,479,120,177
10111 DATA 480,176,215,481,176,244,482,176,254,483,176,244
10112 DATA 484,176,246,485,176,191,486,176,167,487,176,215
10113 DATA 488,176,254,489,176,249,490,112,162,491,112,161
10114 DATA 492,16,215,493,16,235,494,123,181,495,24,199
10115 DATA 496,183,255,497,121,181,498,30,30,499,224,169
10116 DATA 500,144,225,501,9,247,502,144,228,504,176,215
10117 DATA 505,176,184,506,112,162,507,7,137,508,8,252
10118 DATA 509,184,176,510,176,176,511,8,247,512,4,181
10119 DATA 513,75,245,514,75,245,515,176,186,516,176,176
10120 DATA 517,176,201,518,7,181,519,135,251,520,176,215
10121 DATA 521,11,225,522,176,187,523,176,215,524,176,225
10122 DATA 525,176,210,526,176,246,527,176,191,528,176,167
10123 DATA 529,176,246,530,176,191,531,176,244,532,1,153
10124 DATA 533,224,199,534,135,31,535,128,255,536,135,31
10125 DATA 537,121,161,538,225,27,539,16,215,540,144,173
10126 DATA 542,144,161,544,176,201,545,176,217,546,176,217
10127 DATA 547,176,46,549,8,28,550,139,29,552,4,181
10128 DATA 553,75,30,554,75,161,555,11,26,556,11,26
10129 DATA 557,176,176,559,128,255,560,176,171,561,176,184
10130 DATA 562,176,215,563,176,167,564,176,240,565,176,187
10131 DATA 566,176,217,567,176,210,568,176,215,569,176,201
10132 DATA 570,176,201,571,176,215,572,176,201,573,224,217
10133 DATA 574,128,162,575,8,240,576,8,31,577,144,161
10134 DATA 578,16,199,579,224,217,580,144,162,581,9,251
10135 DATA 582,144,169,584,176,224,587,176,201,589,128,170
10136 DATA 590,139,177,591,176,177,592,64,170,593,75,161
10137 DATA 594,75,161,595,176,217,596,176,162,599,128,170
10138 DATA 600,176,176,601,176,215,602,176,201,603,176,230
10139 DATA 604,176,251,605,176,239,606,176,215,607,176,167
10140 DATA 608,176,215,609,11,201,610,11,199,611,176,201
10141 DATA 612,176,231,613,176,166,614,64,248,615,135,226
10142 DATA 616,183,26,617,64,244,618,176,235,620,144,177
10143 DATA 621,144,161,622,9,251,623,176,167,624,176,240
10144 DATA 625,176,187,626,176,46,628,176,217,630,11,28
10145 DATA 631,176,177,633,11,137,634,128,232,635,128,187
10146 DATA 636,8,226,637,176,252,638,176,31,639,176,176
10147 DATA 640,176,167,641,176,136,642,176,187,643,176,229
10148 DATA 644,176,215,645,176,248,646,176,201,647,176,230
10149 DATA 648,176,251,649,11,199,650,176,230,651,176,251
10150 DATA 652,176,239,653,64,232,654,64,255,655,75,137
10151 DATA 656,180,161,657,64,255,658,64,180,659,176,177
10152 DATA 661,144,207,662,144,180,663,96,176,664,176,171
10153 DATA 665,176,176,666,176,26,668,112,144,669,112,144
10154 DATA 670,176,27,671,176,176,672,1,29,673,225,26
10155 DATA 674,14,27,675,224,28,676,224,176,677,176,29
10156 DATA 678,11,26,679,176,255,680,176,230,681,176,251
10157 DATA 682,176,239,683,176,191,684,176,254,685,11,178
10158 DATA 686,176,255,687,11,215,688,11,215,689,11,226
10159 DATA 690,11,201,691,176,215,693,64,254,694,64,27
10160 DATA 695,180,240,696,75,167,697,64,162,698,64,253
10161 DATA 699,176,224,700,176,177,701,176,29,702,144,171
10162 DATA 703,144,235,704,176,226,705,176,167,707,7,29
10163 DATA 708,7,28,709,128,253,710,128,217,711,176,198
10164 DATA 712,16,235,713,190,252,714,235,235,715,235,255
10165 DATA 716,235,255,717,224,252,718,224,28,719,176,161
10166 DATA 720,144,215,721,176,46,722,144,215,724,176,217
10167 DATA 725,96,176,726,176,167,727,176,199,728,32,176
10168 DATA 729,32,248,730,32,176,731,32,176,732,128,174
10169 DATA 733,128,239,734,4,153,735,64,255,736,180,226
10170 DATA 737,176,151,738,128,191,739,8,251,740,32,248
10171 DATA 741,32,28,742,32,176,743,144,198,744,176,170
10172 DATA 745,176,230,746,128,170,747,128,169,748,112,225
10173 DATA 749,112,248,750,128,252,751,128,172,752,64,224
10174 DATA 753,235,186,754,235,184,755,235,32,756,235,28
10175 DATA 757,190,31,758,190,31,759,235,191,760,144,215
10176 DATA 761,144,232,762,144,176,763,6,225,764,2,225
10177 DATA 765,96,171,766,2,225,767,6,225,768,32,171
10178 DATA 769,96,161,770,96,171,771,96,171,772,96,169
10179 DATA 773,9,247,774,4,181,775,75,247,776,75,229
10180 DATA 777,176,152,779,144,161,780,144,161,781,32,171
10181 DATA 782,96,233,783,2,178,785,176,177,786,128,170
10182 DATA 787,128,217,788,120,169,789,128,185,790,128,177
10183 DATA 791,128,217,792,64,170,793,228,30,794,228,30
10184 DATA 795,180,27,796,235,28,797,235,29,798,235,161
10185 DATA 799,235,28,800,144,201,801,144,182,802,32,248
10186 DATA 803,96,228,804,144,215,805,144,215,806,6,247
10187 DATA 807,96,184,808,96,248,809,96,185,810,96,249
10188 DATA 811,144,249,812,96,249,813,144,249,814,4,181
10189 DATA 815,180,226,816,75,181,817,176,181,820,144,28
10190 DATA 821,144,169,822,9,247,823,96,27,824,32,167
10191 DATA 825,96,228,826,128,199,828,8,28,829,128,217
10192 DATA 831,64,224,832,4,225,833,78,247,834,78,247
10193 DATA 835,64,191,836,64,191,837,64,191,838,64,191
10194 DATA 839,64,191,840,32,224,841,32,180,842,32,161
10195 DATA 843,144,201,844,9,251,845,96,228,846,6,177
10196 DATA 847,6,177,848,6,161,849,6,161,850,6,161
10197 DATA 851,96,255,852,96,247,853,96,247,854,8,247
10198 DATA 855,8,251,856,8,243,858,144,240,859,144,248
10199 DATA 860,144,248,861,144,246,862,144,246,863,144,226
10200 DATA 864,144,226,865,32,27,866,32,184,867,144,180
10201 DATA 868,128,161,869,128,217,871,64,191,872,64,191
10202 DATA 873,4,251,874,64,191,875,4,251,876,64,191
10203 DATA 877,4,251,878,64,191,879,64,164,880,144,226
10204 DATA 881,96,170,882,208,190,883,96,180,884,96,177
10205 DATA 885,144,207,886,144,187,887,96,251,888,96,187
10206 DATA 889,96,251,890,105,251,891,96,251,892,105,171
10207 DATA 893,96,251,894,96,251,895,144,251,896,144,251
10208 DATA 897,150,251,898,150,251,899,150,251,900,144,187
10209 DATA 901,144,251,902,144,187,903,144,187,904,144,169
10210 DATA 905,144,161,906,32,233,907,96,165,908,128,161
10211 DATA 909,144,244,911,64,231,912,64,231,913,4,251
10212 DATA 914,64,231,915,4,251,916,64,231,917,4,251
10213 DATA 918,64,231,919,64,164,921,144,201,923,144,201
10214 DATA 924,96,171,925,144,162,926,144,178,927,144,207
10215 DATA 928,144,178,929,144,166,930,144,166,931,144,166
10216 DATA 932,144,230,933,9,177,934,9,177,935,9,176
10217 DATA 936,144,230,937,144,226,938,144,226,939,144,162
10218 DATA 940,144,178,941,144,162,942,144,178,943,144,162
10219 DATA 944,144,162,945,208,232,946,96,237,947,144,232
10220 DATA 948,144,165,949,144,178,951,64,231,952,64,162
10221 DATA 953,64,231,954,64,162,955,64,231,956,64,162
10222 DATA 957,64,231,958,64,162,959,64,231
