Arquivo da tag: MarMSX

Antes tarde do que mais tarde

Brincar com as funções de gráficos do BASIC de um micro clássico é uma das coisas mais divertidas que existem. Mas havia uma lacuna na minha experiência. Já mexi com gráficos de TRS-80 (Color e não-Color), Apple II, GW-BASIC no PC, até no FM-7, Thomson MO-5 e Commodore Plus/4… mas nunca no MSX. No feriado, assim do nada, resolvi procurar um tutorial escrito. Achei este excelente curso do Marcelo Silveira, fui direto pra parte de gráficos e comecei a brincar. Muito parecido com o do CoCo, mas obviamente com mais capacidades. O resultado está aí embaixo.

100 SCREEN 2
110 COLOR 15,3,3
120 LINE(0,0)-(255,63),1,BF
130 LINE(0,64)-(255,127),15,BF
140 LINE(0,128)-(255,191),12,BF
150 LINE(0,0)-(100,96),8
160 LINE-(0,191),8
170 PAINT(3,10),8,8
180 IF INKEY$="" THEN 180
190 COLOR 15,0,0

Às vezes as coisas mais simples são as que mais dão satisfação.