%20-%20Ayrton%20Senna%20-%20Tema%20da%20Vit%C3%B3ria%20(640%20px).png "MSX - Aryton Senna (Tema da Vitória)")
Esta versão em 8 bits do "Tema da Vitória", cuja forma instrumental foi composta pelo maestro Eduardo Souto Neto em 1981, é uma homenagem a todos os pilotos brasileiros que chegaram à principal categoria do automobilismo:
PILOTOS BRASILEIROS NA FÓRMULA 1
(Brazilian F1 Drivers)
--------------
> Chico Landi (1951), Gino Bianco (1952), Hermano da Silva Ramos (1955), Fritz d'Orey (1959), Emerson Fittipaldi (1970), Wilson Fittipaldi Júnior (1972), José Carlos Pace (1972), Luiz Pereira Bueno (1973), Ingo Hoffmann (1976), Alex Dias Ribeiro (1976), Nelson Piquet (1978), Chico Serra (1981), Raul Boesel (1982), Roberto Pupo Moreno (1982), Ayrton Senna (1984), Maurício Gugelmin (1988), Christian Fittipaldi (1992), Rubens Barrichello (1993), Pedro Paulo Diniz (1995), Ricardo Rosset (1996), Tarso Marques (1996), Ricardo Zonta (1999), Luciano Burti (2000), Enrique Bernoldi (2001), Felipe Massa (2002), Cristiano da Matta (2003), Antônio Pizzonia (2003), Nelson Piquet Jr. (2008), Lucas di Grassi (2010), Bruno Senna (2010), Felipe Nasr (2015), Pietro Fittipaldi (2020) e Gabriel Bortoleto (2025).
LINK PARA DOWNLOAD
(Download link)
--------------
SUGESTÕES DE COMANDOS BASIC
PARA UMA DIGITAÇÃO MAIS RÁPIDA / PRÉ-DIGITAÇÃO
(Suggested BASIC commands for faster typing / pre-typing)
--------------
key1,"DATA"+CHR$(32)
key3,",Z,"
auto
LISTAGEM DO PROGRAMA EM LINGUAGEM BASIC
(Program listing in BASIC language)
--------------
10 ' AYRTON SENNA
20 ' TEMA DA VITORIA
30 ' -------------------
40 ' MSX 1/2/2+/TURBO-R
50 ' ANO MSX BASIC: 2026
60 ' -------------------
70 COLOR 15,1,1:SCREEN 2
80 BLOAD"A:SENNA01.SC2",S
90 ' Leitura dos Dados
100 ' ----------------
110 READ A$,B$,C$
120 IF A$="!" THEN GOTO 150
130 PLAY A$,B$,C$
140 GOTO 110
150 ' Fim
160 ' ---
170 IF PLAY(1) GOTO 170
180 I$=INPUT$(1)
190 SCREEN 0:WIDTH 40:LIST
200 END
210 ' Dados para o comando PLAY
220 ' ‐------------------------
230 DATA T138L4S0M15000V12O5F+16V0F+16V12F+16V0A16V12A2.,T138L4S0M15000V12O5A16D16A8E64G2.,T138L4S0M15000V12V0A1,A16V0A16V12A16V0A16V12A2.,G8G8A2.,F+1,F+16V0F+16V12F+16V0A16V12A2.,A16D16A16D16E64G2.,A1,A16V0A16V12A16V0A16V12A2.,G8G8A2.,A+1
240 DATA V0F+32V12O4F+1,V0A+1,V12O2D2D2,V0F+64V12F+4G7A4G8F+7.,A+1,D2D2,V0E32.V12E1,E1,D2D2,V0G64V12G4A4B7.V0B32.V12O3B7.,G32V12G4A4B5.O4B8.,D4.V0D5V12D4.,V0E32.V12O4E1,O5E1,D2D2,E4F+6G4F+9E4,V0A+1,D4.V0D7.V12D4.,V0A+1,A+1,D2D2
250 DATA D1V12O5D32,A64V12O4A4O5D4F+5.E5,D4.V0C+2V12C+8,V0B1,V0D32.V12D1,O1B2B2,V12O4B8.O5C+7.D4C+8O4B7.,V0B1,O2E4.V0E7.V12E4.,V0C+32V12O5C+1,E4V12E4G+4B4,O1A2A2,O4A7.B10.O5C+4O4B10.A7.,V0A64V12A1,O2F+1,V0B64V12B1,V0D4V12D64G4A4B7.,G4.V0G5V12G4.
260 DATA V0A4V12A9V0B32V12B4A8G4,V0G64V12G1D64,E1,V0E2V12E2,V0B32V12O4B1,O1A2A2,V0D2.V12D4,V0D2.V12D4,A1,B1,B5.O5D4G4A7.,O2G2V0G6V12G4.,V0B64V12B9O5C+8D10.E4D8E7.,V0B64V12O4B64O5D64B1,G+1,V0F+64V12F+1,V0F+64V12F+4A7.O6D4E4,O1A4.V0A5V12A4.
270 DATA F+4G10.A7.G7F+7.,F+1,B4.V0B5V12B4.,E2.O4B5,O5E2.O4B5,A2V0A6V12A4.,O5D2C+2,O5D2C+2,A4.V0A5V12A4.,V0G1,A16D16A8E64G2.,O2D4.V0D5V12D4.,F+1,G8G8A2.,C4.V0C7.V12C4.,G1,A16D16A8E64G2.,D4.V0D5V12D4.,A+1,G8G8A2.,C4.V0C7.V12C4.
280 DATA F+32V12O4F+1,V0A+1,D2D2,V0F+64V12F+4G7A4G8F+7.,A+1,D2D2,V0E32V12E1,A+1,D2D2,G4A4B4O3B4,G32V12G4A4B5.O4B8.,D4.V0D7.V12D4.,O4E1,O5E1,D2D2,V0F+4V12F+8V0G32V12G4F+8V0E32V12E7.,V0E64V12E4F+10.G4F+7E7.,D4.V0D5V12D4.,V0D64V12D1,D1,D4.V0D5V12D4.
290 DATA V0D1V12O5D32,V0A64V12O4A4O5D4F+5.E5,D4.V0C+2V12C+8,V0B1,V0D64V12D1,O1B2B2,V12O4B8.O5C+7.D4C+8O4B7.,O4B4O5C+10.D4C+10.O4B5,O2E4.V0E5V12E4.,V0C+32V12O5C+1,V0C+32.V12O5C+5E4G+4B4,O1A4.V0A5V12A4.
300 DATA O4A7.B10.O5C+4O4B10.A7.,O4A64O5A2.O4A8.,O2F+4.V0F+5V12F+4.,V0B64V12B1,V0D4V12O5D4F+4A4,G2G2,V0A4V12A9V0B32V12B4A8G4,V0G64V12G1O4G64,E4.V0E7.V12E4.,V0E2V12E2,V0F+64V12F+2E2,O1A2A2,V0D2.V12D4,V0G64V12G2A2,A4.V0A5V12A4.
310 DATA B1,B5.O5D4G4A7.,O2G4.V0G5V12G4.,V0B64V12B9O5C+8D10.E4D9E7.,V0B64V12O4B32O5B1,G+4.V0G+7.V12G+4.,V0F+64V12F+1,V0F+64V12F+4A7.O6D4E4,O1A4.V0A5V12A4.,F+4G10.A7.G7F+7.,F+1,B4.V0B5V12B4.,E2.O4B5,O5E2.O4B5,A2A2,O5D2C+2,O5D2C+2,A4.V0A7.V12A4.
320 DATA D1,D1,O2D4.V0D5V12D4.,V0D2.V12O4D4,V0D2.V12O4D4,D4.V0D7.V12D4.,B1,B5.O5D4G4A7.,G2G2,V0B64V12B9O5C+8D10.E4D9E7.,V0B64V12O4B32O5B1,G+4.V0G+7.V12G+4.,V0F+64V12F+1,V0F+64V12F+4A7.O6D4E4,O1A2A2,F+4G10.A7.G7F+7.,F+1,B4.V0B5V12B4.
330 DATA E2.O4B5,O5E2.O4B5,A2V0A6V12A4.,O5D2C+2,O5D2C+2,A4.V0A5V12A4.,V0G1,A16D16A8E64G2.,O2D2V0D6V12D4.,F+1,G8G8A2.,C4.V0C7.V12C4.,G1,A16.D32A8E64G2.,D2D2,A1,G8G8A2.G16,C4.V0C5V12C4.,G1,A16D16A8E64G2.,D2V0D6V12D4.,F+1,G8G8A2.,C4.V0C7.V12C4.
340 DATA F+1,F+1,D2V0D6V12D4.,C+1,V0C+1,D1,C+1,F+1,O3C+2O2C2,!,!,!
20 ' TEMA DA VITORIA
30 ' -------------------
40 ' MSX 1/2/2+/TURBO-R
50 ' ANO MSX BASIC: 2026
60 ' -------------------
70 COLOR 15,1,1:SCREEN 2
80 BLOAD"A:SENNA01.SC2",S
90 ' Leitura dos Dados
100 ' ----------------
110 READ A$,B$,C$
120 IF A$="!" THEN GOTO 150
130 PLAY A$,B$,C$
140 GOTO 110
150 ' Fim
160 ' ---
170 IF PLAY(1) GOTO 170
180 I$=INPUT$(1)
190 SCREEN 0:WIDTH 40:LIST
200 END
210 ' Dados para o comando PLAY
220 ' ‐------------------------
230 DATA T138L4S0M15000V12O5F+16V0F+16V12F+16V0A16V12A2.,T138L4S0M15000V12O5A16D16A8E64G2.,T138L4S0M15000V12V0A1,A16V0A16V12A16V0A16V12A2.,G8G8A2.,F+1,F+16V0F+16V12F+16V0A16V12A2.,A16D16A16D16E64G2.,A1,A16V0A16V12A16V0A16V12A2.,G8G8A2.,A+1
240 DATA V0F+32V12O4F+1,V0A+1,V12O2D2D2,V0F+64V12F+4G7A4G8F+7.,A+1,D2D2,V0E32.V12E1,E1,D2D2,V0G64V12G4A4B7.V0B32.V12O3B7.,G32V12G4A4B5.O4B8.,D4.V0D5V12D4.,V0E32.V12O4E1,O5E1,D2D2,E4F+6G4F+9E4,V0A+1,D4.V0D7.V12D4.,V0A+1,A+1,D2D2
250 DATA D1V12O5D32,A64V12O4A4O5D4F+5.E5,D4.V0C+2V12C+8,V0B1,V0D32.V12D1,O1B2B2,V12O4B8.O5C+7.D4C+8O4B7.,V0B1,O2E4.V0E7.V12E4.,V0C+32V12O5C+1,E4V12E4G+4B4,O1A2A2,O4A7.B10.O5C+4O4B10.A7.,V0A64V12A1,O2F+1,V0B64V12B1,V0D4V12D64G4A4B7.,G4.V0G5V12G4.
260 DATA V0A4V12A9V0B32V12B4A8G4,V0G64V12G1D64,E1,V0E2V12E2,V0B32V12O4B1,O1A2A2,V0D2.V12D4,V0D2.V12D4,A1,B1,B5.O5D4G4A7.,O2G2V0G6V12G4.,V0B64V12B9O5C+8D10.E4D8E7.,V0B64V12O4B64O5D64B1,G+1,V0F+64V12F+1,V0F+64V12F+4A7.O6D4E4,O1A4.V0A5V12A4.
270 DATA F+4G10.A7.G7F+7.,F+1,B4.V0B5V12B4.,E2.O4B5,O5E2.O4B5,A2V0A6V12A4.,O5D2C+2,O5D2C+2,A4.V0A5V12A4.,V0G1,A16D16A8E64G2.,O2D4.V0D5V12D4.,F+1,G8G8A2.,C4.V0C7.V12C4.,G1,A16D16A8E64G2.,D4.V0D5V12D4.,A+1,G8G8A2.,C4.V0C7.V12C4.
280 DATA F+32V12O4F+1,V0A+1,D2D2,V0F+64V12F+4G7A4G8F+7.,A+1,D2D2,V0E32V12E1,A+1,D2D2,G4A4B4O3B4,G32V12G4A4B5.O4B8.,D4.V0D7.V12D4.,O4E1,O5E1,D2D2,V0F+4V12F+8V0G32V12G4F+8V0E32V12E7.,V0E64V12E4F+10.G4F+7E7.,D4.V0D5V12D4.,V0D64V12D1,D1,D4.V0D5V12D4.
290 DATA V0D1V12O5D32,V0A64V12O4A4O5D4F+5.E5,D4.V0C+2V12C+8,V0B1,V0D64V12D1,O1B2B2,V12O4B8.O5C+7.D4C+8O4B7.,O4B4O5C+10.D4C+10.O4B5,O2E4.V0E5V12E4.,V0C+32V12O5C+1,V0C+32.V12O5C+5E4G+4B4,O1A4.V0A5V12A4.
300 DATA O4A7.B10.O5C+4O4B10.A7.,O4A64O5A2.O4A8.,O2F+4.V0F+5V12F+4.,V0B64V12B1,V0D4V12O5D4F+4A4,G2G2,V0A4V12A9V0B32V12B4A8G4,V0G64V12G1O4G64,E4.V0E7.V12E4.,V0E2V12E2,V0F+64V12F+2E2,O1A2A2,V0D2.V12D4,V0G64V12G2A2,A4.V0A5V12A4.
310 DATA B1,B5.O5D4G4A7.,O2G4.V0G5V12G4.,V0B64V12B9O5C+8D10.E4D9E7.,V0B64V12O4B32O5B1,G+4.V0G+7.V12G+4.,V0F+64V12F+1,V0F+64V12F+4A7.O6D4E4,O1A4.V0A5V12A4.,F+4G10.A7.G7F+7.,F+1,B4.V0B5V12B4.,E2.O4B5,O5E2.O4B5,A2A2,O5D2C+2,O5D2C+2,A4.V0A7.V12A4.
320 DATA D1,D1,O2D4.V0D5V12D4.,V0D2.V12O4D4,V0D2.V12O4D4,D4.V0D7.V12D4.,B1,B5.O5D4G4A7.,G2G2,V0B64V12B9O5C+8D10.E4D9E7.,V0B64V12O4B32O5B1,G+4.V0G+7.V12G+4.,V0F+64V12F+1,V0F+64V12F+4A7.O6D4E4,O1A2A2,F+4G10.A7.G7F+7.,F+1,B4.V0B5V12B4.
330 DATA E2.O4B5,O5E2.O4B5,A2V0A6V12A4.,O5D2C+2,O5D2C+2,A4.V0A5V12A4.,V0G1,A16D16A8E64G2.,O2D2V0D6V12D4.,F+1,G8G8A2.,C4.V0C7.V12C4.,G1,A16.D32A8E64G2.,D2D2,A1,G8G8A2.G16,C4.V0C5V12C4.,G1,A16D16A8E64G2.,D2V0D6V12D4.,F+1,G8G8A2.,C4.V0C7.V12C4.
340 DATA F+1,F+1,D2V0D6V12D4.,C+1,V0C+1,D1,C+1,F+1,O3C+2O2C2,!,!,!