Page 54 - Revista_60.pub

RetroComputing

Imperial March

Título: Imperial March SOUND 185, 8
SOUND 0, 1
Autores: Apocsantos SOUND 156, 6
SOUND 0, 1
Ano: 1991 SOUND 196, 2
SOUND 0, 1
Plataformas: MS-DOS; Windows; GNU/Linux; Mac, Chro- SOUND 233, 8
meOS SOUND 0, 1
SOUND 196, 6
Compilador/Interpretador: Qbasic / QB64 SOUND 0, 1
SOUND 233, 2
Descrição do Programa: Marcha imperial, uma linha melódica SOUND 0, 1
do excerto inicial da composição. SOUND 294, 16
SOUND 0, 1
End Sub
'Imperial March
'"We shall never surrender!" (Churchill) Re- Sub R2D2()
menber this when you grow old! SOUND 233, 2
'We are "kings"! And some day... Code will be SOUND 0, 1
life! SOUND 220, 2
'Apocsantos SOUND 0, 1
SOUND 233, 2
'main code SOUND 0, 8
'calls all subs SOUND 156, 2
Call Trooper SOUND 0, 4
Call yoda SOUND 185, 8
Call Darth SOUND 0, 1
Call yoda SOUND 156, 6
Call R2D2 SOUND 0, 1
SOUND 233, 2
'sub code here SOUND 0, 1
Sub yoda() SOUND 196, 6
SOUND 392, 8 SOUND 0, 4
SOUND 0, 1 SOUND 156, 6
SOUND 196, 6 SOUND 0, 1
SOUND 0, 1 SOUND 233, 2
SOUND 196, 2 SOUND 0, 1
SOUND 0, 1 SOUND 196, 16
SOUND 392, 8 SOUND 0, 1
SOUND 0, 1 End Sub
SOUND 370, 6
SOUND 0, 1
SOUND 349, 2 Sub Trooper()
SOUND 0, 1 For i = 0 To 3
SOUND 330, 2 SOUND 0, 1
SOUND 0, 1 SOUND 98, 6
SOUND 311, 2 SOUND 0, 1
SOUND 0, 1 SOUND 0, 2
SOUND 330, 2 SOUND 98, 2
SOUND 0, 8 SOUND 0, 1
SOUND 208, 2 SOUND 0, 2
SOUND 0, 4 SOUND 98, 1
SOUND 277, 8 SOUND 0, 1
SOUND 0, 1 SOUND 98, 1
SOUND 262, 6 SOUND 0, 1
SOUND 0, 1 SOUND 98, 1
SOUND 247, 2 SOUND 0, 2
SOUND 0, 1 SOUND 98, 2
End Sub SOUND 0, 2
SOUND 98, 1
Sub Darth() SOUND 0, 1
SOUND 233, 2 SOUND 98, 1
SOUND 0, 1 SOUND 0, 1
SOUND 220, 2 SOUND 98, 1
SOUND 0, 1 SOUND 0, 1
SOUND 233, 2 SOUND 185, 1
SOUND 0, 8 SOUND 0, 1
SOUND 156, 2 SOUND 185, 1
SOUND 0, 4

54