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
Muito legal, parabéns!
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!
Frequentemente, rodas reinventadas rodam melhor.
Ainda mais quando adaptadas à irregularidades do terreno.
Ô seu fudeba, vc n portou p/ MSX não?
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”!
Pelos comentários me parece que a imagem desenhada pelo programa é bem conhecida por parte dos adeptos de retrocomputação. De que se trata?
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 🙂