.png "New Year’s Day - U2 (BASIC Language)")
(Link para download)
--------------
(Sugestões de comandos BASIC para uma digitação mais rápida / pré-digitação)
--------------
key1,"DATA"+CHR$(32)
auto
PROGRAM LISTING IN BASIC LANGUAGE
(Listagem do programa em linguagem BASIC)
--------------
10 ' NEW YEAR'S DAY
20 ' U2
30 ' --------------------
40 ' MSX 1/2/2+/TURBO-R
50 ' MSX-BASIC YEAR: 2026
60 ' --------------------
70 COLOR 15,1,1:SCREEN 2
80 BLOAD"A:NYD-U2.SC2",S
90 ' Reading of Data
100 ' ---------------
110 READ A$,B$,C$
120 IF A$="!" THEN GOTO 150
130 PLAY A$,B$,C$
140 GOTO 110
150 ' End
160 ' ---
170 IF PLAY(1) GOTO 170
180 I$=INPUT$(1)
190 SCREEN 0:WIDTH 40:LIST
200 END
210 ' Data for the PLAY command
220 ' ‐------------------------
230 DATA T140L4S0M15000V12V0A1,T140L4S0M15000V12V0A1,T140L4S0M15000V12V0A1,C1,C1,V12O2A4O3C8O2A2O1A8,E1,E1,O2C4E8C2E8,E1,E1,E4G8E2O1A8,C1,C1,O2E4G8E2O1E8,E1,V12O6C2O5A8O6D8E8,O2A4O3C8O2A2O1A8,B1,V0G8V12O5G2O6C8D8O5B8,O2C4E8C2E8
240 DATA B1,V0E1V12O4E8,E4G8E2O1A8,A1,O5B8O6B8O5A8O4E8O6A8O5B4.,O2E4G8E2A8,E1,O3A2O5A8O6D8E8,A4O3C8O2A2O1A8,B1,V0C2V12C8D8O5B8,O2C4E8C2E8,B1,V0E1V12O4E8,E4G8E2O1A8,A1,O5B8O6G8O5B8O6F8O5A2,O2E4G8E2A8,E1,O3A2O5A8O6D8E8,A4O3C8O2A2O1A8
250 DATA B1,V0C2V12C8D8O5B8,O2C4E8C2E8,B1,V0B1,G1,B1,C4V12O6C2O5B4,F2G8F8G8F8,D1,B2.O6C8D8,F1,C1,V0E2V12E8D8C4,F1G8,A1,C2O5B4O6C8O5A8,A1,B1,V0D2.V12O6D4,A2G8A8G8,B1,O5B1,G1,D1,B2O6C2,G1F8,D1,D1,F1,G8V12O4G8O5E8O4G8O5E8O4G8O5E4,V0E1,F1A8
260 DATA V0E1,E1,A4O3C8O2A2O1A8,E1,E1,O2C4E8C2E8,V12E2.V0E8V12E8,E1,E4G8E2O1A8,O6E4O5E2.,E1,O2E4G8E2A8,V0G1,A2V12O4A4.O5G8,A4O3C8O2A2O1A8,G1,V0G8V12G4V0G4V12G8E8G8,O2C4E8C2E8,G8V12G4D4.O4B4,V0E8V12E1,E4G8E2O1A8,V0E4.V12O5E4O4B4.,V0B1,O2E4G8E2A8
270 DATA V0A4.V12A2,A4.V12O4A2O5G8,A4O3C8O2A2O1A8,V0E4.V12O5E2,V0A1V12O4A8,O2C4E8C2E8,V0E1V12O6E8,O5G8A4E2,E4G8E2O1A8,V0A8V12O5A4G4D4.,V0D1,O2E4G8E2A8,V0G1,A4.V12O4A2,A4O3C8O2A2O1A8,G1,O5G6E10.C6G6E10.C6,O2C4E8C2E8
280 DATA V12O4B8V0B8V12B2.,G4V0A4.V12A4E8,E4G8E2O1A8,B8O5A8E4O6D8O5A4.,V0F8V12F8E2.,O2E4G8E2A8,V0D8V12D1,V0A2V12O4A4.O5G8,A4O3C8O2A2O1A8,V0A8V12A1,V0G8V12G4.V0A4.V12O4A8,O2C4E8C2E8,V0E8V12E8A8O6D2,O5G4E4D8E4.,E4G8E2O1A8,D1,V0D1,O2E4G8E4.V0A8V12A8
290 DATA D8E4.O5A2,C1,A4O3C8O2A2O1A8,V0A4.V12A2,G2V12G8E8G8,O2C4E8C2E8,O6D1O5E8,V0E8V12E4D2,E4G8E2O1A8,G4V0B2V12O4B4,V0G1,O2E4G8E2A8,O5G2A4G8,V12C4D2.,G1,G1,V0D4V12D4G4F4,V0A1,A1,E4.C2,V12A1,A1O4A8,V0C1,A1,G4O5C4D8G4.,V12C4D2.,G1
300 DATA D1,V0D4V12D4G4F4,V0A1,A2G4.,E4.F4E4C8,V12F1,O6C1,V0C1,F1A8,C1,C1,A4O3C8O2A2O1A8,V0E1,E1,O2C4E8C2E8,D2V12O5D4O6D8,D1,E4G8E2O1A8,V0D8V12D1,D1,O2E4G8E2A8,D8E4.O5A2,A2V12O4A4.O5G8,A4O3C8O2A2O1A8,V0E1,V0G8V12G2.F8,O2C4E8C2E8
310 DATA D4.V12D16G16A8.B16D8F8,E1,E4G8E2O1A8,O4B2O5G8F16D16O4B8G8,V0B1,O2E4G8E2A8,B8D8G8B8D8B4.,A4.V12O4A2O5F8,A4O3C8O2A2O1A8,B8O5G1,V0F8V12F1,O2C4E8C2E8,V0E8V12E8G2.,G8A4.E2,E4G8E2O1A8,V0B1V12O4B8,V0D1,O2E4G8E2A8
320 DATA O5D16F16G16B16D16F16G16B8G16D16O4B16O5B16G16D16O4B16,A4.V12O4A2O5G8,A4O3C8O2A2O1A8,B8O5G1,V0C1V12C8,O2C4E8C2E8,V0E8V12E8G2.,G8A4B2,E4G8E2O1A8,G1O4B8,V0B1,O2E4G8E2A8,B8D16G16O5B8D16A16B8G16F16D16O4B16O5G8,A4.V12O4A2,A4O3C8O2A2O1A8
330 DATA O4B8O5G1,O5G1,O2C4E8C2E8,O4B8O5G1,V0F+4.V12F+8G2,E4G8E2O1A8,O4B8O5G1,V0B2V12B4.O6C8,O2E4G8E2A8,B1,V0B2V12O5B4.G8,G1,G1,V0E1V12E8,V0G1,V0E1V12E8,G8A4B4.V0A8V12A8,V12A1,A1,V0C2V12O6C4.,A1,A1,O5G4V0C8V12O6C4O5B4G8,G1,A1,V0G4.V12G4A4.,V0A1
340 DATA A1,V0B8V12B4A2,V12F1,A4B8O6C2,V0C1,V0C1,C2.O5G4,V12C4D2.,V12G1,G1,V0D4V12D4G4F4,V0G1,G1,E4.C2,V12A1,A1,V0A1,A1,A1O4A8,V12C4D2.,G1,O5G1,V0D4V12D4G4F4,G1O1E8,G1,E4.F8E4.C8,F4.O2F8O1F2,A1,V0A1,F8O2F8O1F2E8,A1,G1,O2A4O3C8O2A2O1A8
350 DATA O4G8O5G8A2.,A1,O2C4E8C2E8,A1,E1,E4G8E4O3E8O2E8O1A8,V0G8V12G1,C2V12O6C4O5B4,O2E4G8E2A8,V0G8V12G2O4G4,V0E8V12E1,A4O3C8O2A2O1A8,V0A8V12O5A8V0A4V12A2,V0D4.V12D4.G4,O2C4E8C2E8,A4V0A8V12A8V0A8V12A4.,V0E4.V12E2,E4G8E2O1A8,A8G1,V0G1,O2E4G8E2A8
360 DATA G1,A1,A4O3C8O2A2O1A8,V0E1,V12O3A2O5A8O6D8E8,O2C4E8C2E8,B1,V0C2V12C8D8O5B8,E4G8E2O1A8,B1,V0E1V12O4E8,O2E4G8E2A8,A1,O5B8O6B8O5B2.,A4O3C8O2A2O1A8,E1,O3A2O5A8O6D8E8,O2C4E8C2E8,B1,V0C2V12C8D8O5B8,E4G8E2O1A8,B1,V0E1V12O4E8,O2E4G8E2A8
370 DATA A1,O5B8O6B8O5B8O6A8O5B4O6A4,A4O3C8O2A2O1A8,E1,O3A2O5A8O6D8E8,O2C4E8C2E8,B1,V0C2V12C8D8O5B8,G1,B1,V0B1,G1F8,B1,C4V12O6C2O5B4,F1,D1,B2.O6C8D8,F1A8,C1,V0E2V12E8D8C4,A1,A1,C2O5B4O6C8O5A8,A1E8,B1,V0D2.V12O6D4,G1,B1,O5B1,G1O1E8,D1,B2O6C2,F1
380 DATA B2.V12B4,D1,F1D8,V0G8V12G4.A4.E8,V0E1,O2A4O3C8O2A2O1A8,V0G4V12G4.D4.,E1,O2C4E8C2E8,E4.O4B2,B1,E4G8E2O1A8,V0B2V12O5B2,B1,O2E4G8E2A8,V0G8V12G4.A4.E8,E1,A4O3C8O2A2O1A8,V0A4V12A4.D4.,E1,O2C4E8C2E8,E4.O4B2,B1,E4G8E2O1A8
390 DATA V0A4V12O3A4O4D4G4,E1,O2E4G8E2A8,E4.G4.A4,A1,A4O3C16O2A2O1A8,V0D8V12D2.O3A8,A1,O2C4E8C2O1E8,V0B4V12B4O4D4G4,E1,O2E4O1A8O2E2O1A8,E8G8O5C2O4B8G8,B1,O2E4G8E2A8,B8G8B8O5C4.O4B8G8,E1,A4O3C8O2A2O1A8,E8A8G8O5C4.O4B4,B1,O2C4E8C2E8
400 DATA B4O5C4D2,E1,E4G8E2O1A8,V0B8V12B1,B1,O2E4G8E2A8,B2V0E8V12E4B8,V12O5E4V0D8V12D8V0E4.V12E8,A4O3C8O2A2O1A8,D8B4D8B4D4,E8V0D4V12D4.V0G8V12O4G8,O2C4E8C2E8,D8B8D8B2,O5D8O4B4A4B4.,E4G8E2O1A8,V0A2.V12A8O4B8,V0C1,O2E4G8E2A8
410 DATA V0B8V12B4O5G8O4B8O5G8O4B8O5G8,V12O5C8D1,G1,G1,V0D4V12D4G4F4,G1,A1,E4.C2,A1,V0A8V12A1,V0E1,V0E1,E8G1,V12C4D2.,V12G1,G1,V0D4V12D4G4F4,V0A1,A2G8V0E8V12E8,E4.F4E4C8,V12F1,V0G8V12G8V0C8V12C16O4B16O5C16O4B16O5C16O4B16O5E8G8,V0G1,F1,G1,V12C4D2.,G1
420 DATA G1A8,V0D4V12D4G4F4,V0A1,A1,E4.C2,V12A1,V0A8V12A8G2.,V0G1,V0G1,G1,V12C4D2.,V12G1,G1,V0D4V12D4G4F4,G1O1E8,F2O4A4O5F4,E4.F8E4C4,F1,V0G8V12G8V0G8V12G8V0E8V12E4.,V0E1,F1A8,E1,C1,A1,V0E1,C1,V0A1,!,!,!