Apenas fiquei sabendo no último domingo (15/09) da BASIC Week mas mesmo assim fiz algo, pelo prazer de programar, para colocar alguma cor nas participações (todos fizeram desenhos preto e branco) e, claro, para representar a comunidade do MC6847! Eu não disse que faria?

E se ficou curioso quanto ao programa…

100 GR:Y=63 105 COLOR=1 110 FOR I=8 TO 1 STEP -1 115 PLOT 0,Y TO 127,Y 120 Y=Y-I:NEXT I 125 COLOR=2 130 FOR I=0 TO 51 135 READ X1,Y1,X2,Y2 140 PLOT X1,Y1 TO X2,Y2 145 NEXT I 150 COLOR=3:Y=21 155 FOR I=0 TO 56 160 READ X1,X2,J 165 PLOT X1,Y TO X2,Y 170 IF Y>26 THEN PLOT 208-X1,Y TO 208-X2,Y 175 IF J=-1 THEN Y=Y+1 180 NEXT I 185 GOTO 185 190 REM *** RETRO BATTLESTATIONS *** 195 DATA 0,30,55,35,0,30,54,39,15,32,55,36,27,34,55,37 200 DATA 39,36,55,38,55,39,74,27,74,27,62,32,66,31,56,37 205 DATA 56,34,62,28,56,35,62,29,62,30,57,37,62,31,56,36 210 DATA 62,34,60,30,59,33,60,34,60,32,61,33,10,27,50,32 215 DATA 12,25,54,28,16,23,57,25,40,30,44,25,45,25,44,26 220 DATA 56,26,51,31,55,26,50,31,39,20,60,22,45,20,63,22 225 DATA 62,22,67,2,59,21,63,2,63,2,40,1,40,1,66,0 230 DATA 54,1,67,1,60,21,64,2,65,2,61,21,62,22,66,2 235 DATA 62,19,63,14,66,18,70,0,67,17,71,4,68,12,71,1 240 DATA 76,4,72,4,76,4,70,0,71,3,72,2,72,3,73,3 245 DATA 32,17,43,18,44,18,53,18,54,17,58,12,58,12,57,5 250 DATA 56,4,47,3,27,6,25,9,25,10,25,13,46,15,46,12 255 DATA 46,12,42,14,42,14,47,7,47,7,34,13,34,13,41,7 260 REM *** REDDIT *** 265 DATA 118,122,-1,108,111,0,117,117,0,123,123,-1,107,108,0 270 DATA 112,117,0,123,123,-1,106,107,0,117,117,0,123,123,-1 275 DATA 105,106,0,118,122,-1,104,105,-1,104,113,-1,114,117,0 280 DATA 121,124,-1,118,120,0,125,126,-1,109,112,0,121,122,0 285 DATA 127,127,-1,108,113,0,123,123,0,127,127,-1,108,113,0 290 DATA 124,126,-1,109,112,0,124,124,-1,124,124,-1,112,112,0 295 DATA 123,123,-1,109,111,0,121,122,-1,104,108,0,118,120,-1 300 DATA 114,117,-1,104,113,-1,113,116,-1,113,113,0,117,117,-1 305 DATA 113,113,0,118,118,-1,113,113,0,119,119,-1,113,113,0 310 DATA 118,118,-1,113,113,0,117,117,-1,113,116,-1,112,112,-1 315 DATA 111,111,-1,110,115,-1,108,109,0,116,117,-1,106,107,0 320 DATA 118,118,-1,104,118,0