Ecos da BASIC Week do Retro Battlestations

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

Sobre Giovanni Nunes

Giovanni Nunes (anteriormente conhecido como “O Quinto Elemento”) é uma das mentes em baixa resolução que compõem o Governo de Retrópolis, responsável pela identidade visual de todas as facetas do nosso Império Midiático.

0 pensou em “Ecos da BASIC Week do Retro Battlestations

    1. O pior é que só agora descobri que havia um programa no Github e que só bastava adaptá-lo para a plataforma destino. Mas meu código ficou mais legal!

        1. Ainda mais quando adaptadas à irregularidades do terreno.

        1. Duas considerações: (i) o código original já tinha versão para MSX lá no GitHUB e (ii) onde você acha que foram feitos os testes? Foi “cross-retro-programing”!

    1. A ideia da BASIC Week era a de pegar um programa disponibilizado pelo no GitHub que desenha as marcas do Retro Battlestations e do Reddit, adaptar para seu micro clássico e postar uma foto do fato entre os dias 9 e 13/09/2013. As melhores ganhariam uns prêmios. Como só fiquei sabendo no domingo, dia 15, além de frustrado não estava preso às regras mas a ideia ficou na cabeça e… …dois dias depois… fiz algo do zero porém com o mesmo objetivo 🙂