Agradecimentos a Giovanni Nunes pela rapidez no gatilho.
10 COLOR 15,14,14:SCREEN 2:DIM X%(4),Y%(4):PI!=3.14159 15 FOR I%=0 TO 8:LINE(0,6+I%*20)-STEP(255,19),1+14*(I% AND 1),BF:NEXT I%:LINE(0,6)-STEP(99,99),1,BF 20 R%=45:GOSUB 65 25 LINE(X%(0),Y%(0))-(X%(2),Y%(2)),15 30 LINE-(X%(4),Y%(4)),15 35 LINE-(X%(1),Y%(1)),15 40 LINE-(X%(3),Y%(3)),15 45 LINE-(X%(0),Y%(0)),15 50 R%=35:GOSUB 65:PAINT(51,58),15 55 FOR I%=0 TO 4:PAINT(X%(I%),Y%(I%)),15:NEXT I% 60 GOTO 60 65 J%=0:FOR I!=0 to PI!*2 STEP PI!/2.5 70 X%(J%)=50+R%*SIN(I!):Y%(J%)=58-R%*COS(I!) 75 J%=J%+1:NEXT I!:RETURN
PI
Link
Sabe o que faltou? Tocar o hino no PSG. Ou o hino ou aquela da Beth Carvalho.
O ouvinte atleticano não sorriu com a brincadeira.