SUGGESTED BASIC COMMANDS FOR FASTER TYPING / PRE-TYPING
(Sugestões de comandos BASIC para uma digitação mais rápida / pré-digitação)
---------
key1,"PLAY"+CHR$(34)
key2,CHR$(34)+CHR$(44)+CHR$(34)
key3,"DATA "+CHR$(34)
auto
PROGRAM LISTING IN BASIC LANGUAGE
(Listagem do programa em linguagem BASIC)
---------
(Listagem do programa em linguagem BASIC)
---------
10 ' -------------------------
20 ' MSX Music.NET
30 ' Year: 2025
40 ' BASIC Language
50 ' MSX/MSX2/MSX2+/TURBO-R
60 ' -------------------------
70 ' FIFA Club World Cup theme
80 ' Freed From Desire
90 ' Gala Rizzatto
100 ' ---------------------
110 ' Colors and resolution
120 ' ---------------------
130 COLOR 15,1,1
140 SCREEN 2
150 C=INT(RND(-TIME)*2)+10
160 PSET(111,169),C
200 ' --------------------
210 ' PLAY sequence begins
220 ' --------------------
230 I=42
240 ON INTERVAL=I GOSUB 2500
250 INTERVAL ON
300 PLAY"L4T190","L4T190","L4T190"
310 PLAY"O3V8","O4V8","O5V8"
320 PLAY"S0M9000","S0M9000","S0M9000"
330 ' Measure 1
340 PLAY"O3D4","O4D4"
350 PLAY"O3D4","O4D4"
360 PLAY"O3D4","O4D4"
370 PLAY"O3D8","O4D8"
380 PLAY"O3D8","O4D8"
390 ' Measure 2
400 PLAY"R2","R2"
410 ' Measure 3
420 PLAY"O3D4","O4D4"
430 PLAY"O3D4","O4D4"
440 PLAY"O3D4","O4D4"
450 PLAY"O3D8","O4D8"
460 PLAY"O3D8","O4D8"
470 ' Measure 4
480 PLAY"R4."
490 PLAY"O5E8"
500 PLAY"R1","O5E8"
510 PLAY"O5E8"
520 PLAY"O5E8"
530 PLAY"O5E8"
540 ' Measure 5
550 PLAY"O3D2","O3F2","O5F8"
560 PLAY"O5D4"
570 PLAY"O5D8"
580 PLAY"O3C2","O3E2","O5C8"
590 PLAY"O5C8"
600 PLAY"O5C8"
610 PLAY"O5C16"
620 PLAY"O4B-16"
630 ' Measure 6
640 PLAY"O2B-1","O3D1","R4."
650 PLAY"O5E8"
660 PLAY"O5E8"
670 PLAY"O5E8"
680 PLAY"O5E8"
690 PLAY"O5E8"
700 ' Measure 7
710 PLAY"O3D2","O3F2","O5F8"
720 PLAY"O5D4"
730 PLAY"O5D8"
740 PLAY"O3C2","O3E2","O5C8"
750 PLAY"O5C8"
760 PLAY"O5C8"
770 PLAY"O5C16"
780 PLAY"O4B-16"
790 ' Measure 8
800 PLAY"O2B-1","O3D1","R4."
810 PLAY"O5E8"
820 PLAY"O5E8"
830 PLAY"O5E8"
840 PLAY"O5E8"
850 PLAY"O5E8"
860 ' Measure 9
870 PLAY"O3D2","O3F2","O5F8"
880 PLAY"O5D4"
890 PLAY"O5D8"
900 PLAY"O3C2","O3E2","O5C8"
910 PLAY"O5C8"
920 PLAY"O5C8"
930 PLAY"O5C16"
940 PLAY"O4B-16"
950 ' Measure 10
960 PLAY"O2B-1","O3D1","R4."
970 PLAY"O5E8"
980 PLAY"O5E8"
990 PLAY"O5E8"
1000 PLAY"O5E8"
1010 PLAY"O5E8"
1020 ' Measure 11
1030 PLAY"O3D2","O3F2","O5F8"
1040 PLAY"O5D4"
1050 PLAY"O5D8"
1060 PLAY"O3C2","O3E2","O5C8"
1070 PLAY"O5C8"
1080 PLAY"O5C8"
1090 PLAY"O5C16"
1100 PLAY"O4B-16"
1110 ' Measure 12
1120 PLAY"O2B-1","O3D1","R2"
1130 PLAY"R8"
1140 PLAY"O4A8"
1150 PLAY"O5C8"
1160 PLAY"O5D8"
1170 ' Measure 13
1180 PLAY"O3D1","O3F1","O5D2."
1190 PLAY"O5D8"
1200 PLAY"O5D8"
1210 ' Measure 14
1220 PLAY"O3D1","O3F1","O5C8"
1230 PLAY"O5D8"
1240 PLAY"O5D8"
1250 PLAY"O5C8"
1260 PLAY"O5D8"
1270 PLAY"O4A8"
1280 PLAY"O5C8"
1290 PLAY"O5D8"
1300 ' Measure 15
1310 PLAY"O2B-1","O3D1","O5F1"
1320 ' Measure 16
1330 PLAY"O3C1","O3E1","O5C8"
1340 PLAY"O5D8"
1350 PLAY"O5D8"
1360 PLAY"O5C8"
1370 PLAY"O5D8"
1380 PLAY"O4A8"
1390 PLAY"O5C8"
1400 PLAY"O5D8"
1410 ' Measure 17
1420 PLAY"O3D1","O3F1","O5D2."
1430 PLAY"O5D8"
1440 PLAY"O5D8"
1450 ' Measure 18
1460 PLAY"O3D1","O3F1","O5C8"
1470 PLAY"O5D8"
1480 PLAY"O5D8"
1490 PLAY"O5C8"
1500 PLAY"O5D8"
1510 PLAY"O4A8"
1520 PLAY"O5C8"
1530 PLAY"O5D8"
1540 ' Measure 19
1550 PLAY"O2B-1","O3D1","O5D1"
1560 ' Measure 20
1570 PLAY"O3C1","O3E1","O5C8"
1580 PLAY"O5D8"
1590 PLAY"O5D8"
1600 PLAY"O5C8"
1610 PLAY"O5D2"
1620 ' Measure 21
1630 PLAY"O3D1","O3F1","O5F4"
1640 PLAY"O5D8"
1650 PLAY"O5D8"
1660 PLAY"O5C4"
1670 PLAY"O5C4"
1680 ' Measure 22
1690 PLAY"O3F2","O5F8"
1700 PLAY"O5F8"
1710 PLAY"O5F8"
1720 PLAY"O5F8"
1730 PLAY"O3E2","O5E8"
1740 PLAY"O5E8"
1750 PLAY"O5E8"
1760 PLAY"O5E8"
1770 ' Measure 23
1780 PLAY"O2B-1","O3D1","O5F4"
1790 PLAY"O5D8"
1800 PLAY"O5D8"
1810 PLAY"O5C4"
1820 PLAY"O5C4"
1830 ' Measure 24
1840 PLAY"O3F2","O5F8"
1850 PLAY"O5F8"
1860 PLAY"O5F8"
1870 PLAY"O5F8"
1880 PLAY"O3E2","O5E8"
1890 PLAY"O5E8"
1900 PLAY"O5E8"
1910 PLAY"O5E8"
1920 ' Measure 25
1930 PLAY"O3D1","O3F1","O5F4"
1940 PLAY"O5D8"
1950 PLAY"O5D8"
1960 PLAY"O5C4"
1970 PLAY"O5C4"
1980 ' Measure 26
1990 PLAY"O3F2","O5F8"
2000 PLAY"O5F8"
2010 PLAY"O5F8"
2020 PLAY"O5F8"
2030 PLAY"O3E2","O5E8"
2040 PLAY"O5E8"
2050 PLAY"O5E8"
2060 PLAY"O5E8"
2070 ' Measure 27
2080 PLAY"O2B-1","O3D1","O5F4"
2090 PLAY"O5D8"
2100 PLAY"O5D8"
2110 PLAY"O5C4"
2120 PLAY"O5C4"
2130 ' Measure 28
2140 PLAY"O3C1","O3G1","O4B-1"
2200 ' --------------------
2210 ' Screensaver Function
2220 ' --------------------
2230 FOR D=1 TO 1500
2240 I$=INKEY$:IF I$<>"" GOTO 2260
2250 NEXT
2260 CLS
2270 C=INT(RND(-TIME)*14)+2
2280 PSET(111,169),C
2290 RESTORE
2300 ' ------------------------
2310 ' Draws logo (screensaver)
2320 ' ------------------------
2330 READ A$,B$
2340 IF A$="STOP" OR B$="STOP" GOTO 2200
2350 DRAW A$+B$
2360 GOTO 2330
2500 ' --------------------
2510 ' Draws logo in stages
2520 ' --------------------
2530 FOR L=1 TO 10
2540 READ A$,B$
2550 IF A$="STOP" OR B$="STOP" GOTO 2200
2560 DRAW A$+B$
2570 NEXT
2580 RETURN
3000 ' ----------------
3010 ' DRAW subcommands
3020 ' ----------------
3040 DATA "R3","BM133,22","R2","BM114,23","R8","BM132,23","R4","BM114,24","R10","BM132,24","R4","BM114,25","R10","BM132,25","R4","BM149,25","R1","BM114,26","R4","BM120,26","R4","BM132,26","R4","BM149,26","R4","BM100,27","R3","BM114,27","R4","BM121,27"
3050 DATA "R3","BM132,27","R4","BM148,27","R7","BM98,28","R7","BM114,28","R4","BM121,28","R3","BM132,28","R3","BM148,28","R8","BM97,29","R9","BM114,29","R10","BM132,29","R3","BM148,29","R9","BM96,30","R11","BM114,30","R9","BM132,30","R3","BM147,30","R4",""
3060 DATA "BM154,30","R4","BM95,31","R4","BM103,31","R4","BM115,31","R8","BM131,31","R4","BM147,31","R4","BM155,31","R3","BM95,32","R3","BM104,32","R4","BM115,32","R9","BM131,32","R4","BM147,32","R4","BM155,32","R3","BM95,33","R3","BM104,33","R4"
3070 DATA "BM115,33","R10","BM131,33","R9","BM146,33","R4","BM155,33","R3","BM95,34","R3","BM105,34","R3","BM115,34","R4","BM121,34","R5","BM131,34","R9","BM146,34","R4","BM154,34","R4","BM85,35","R1","BM95,35","R4","BM105,35","R3","BM115,35","R4"
3080 DATA "BM122,35","R4","BM131,35","R8","BM145,35","R4","BM154,35","R4","BM84,36","R2","BM95,36","R4","BM104,36","R4","BM115,36","R3","BM138,36","R1","BM145,36","R13","BM83,37","R4","BM95,37","R5","BM103,37","R5","BM145,37","R12","BM84,38","R3"
3090 DATA "BM96,38","R11","BM147,38","R9","BM84,39","R4","BM97,39","R9","BM149,39","R6","BM79,40","R3","BM85,40","R4","BM98,40","R7","BM79,41","R4","BM85,41","R4","BM100,41","R2","BM174,41","R3","BM79,42","R11","BM172,42","R7","BM76,43","F9","BM79,43",""
3100 DATA "R11","BM171,43","R9","BM75,44","R1","BM80,44","R11","BM122,44","R1","BM133,44","F12","BM170,44","R11","BM74,45","R3","BM81,45","R10","BM116,45","R3","BM123,45","D17","BM133,45","F3","BM135,45","R4","BM169,45","R6","BM177,45","R5","BM74,46"
3110 DATA "R4","BM80,46","R12","BM112,46","R2","BM133,46","F9","BM136,46","R6","BM169,46","R4","BM179,46","R3","BM75,47","R4","BM81,47","R10","BM110,47","R1","BM122,47","D15","BM133,47","F8","BM137,47","R9","BM169,47","R4","BM180,47","R2","BM76,48","R4",""
3120 DATA "BM82,48","R3","BM88,48","R2","BM107,48","R1","BM121,48","D14","BM138,48","R10","BM169,48","R3","BM180,48","BM78,49","R3","BM83,49","R3","BM89,49","BM105,49","R1","BM120,49","D13","BM134,49","F7","BM139,49","R11","BM169,49","R3","BM79,50","R3"
3130 DATA "BM84,50","R2","BM103,50","R1","BM116,50","R3","BM134,50","F7","BM138,50","F5","BM140,50","R12","BM169,50","R4","BM80,51","R3","BM85,51","R1","BM101,51","R1","BM113,51","R6","BM134,51","F7","BM141,51","R13","BM170,51","R4","BM82,52","R2"
3140 DATA "BM86,52","G1","BM100,52","BM111,52","R8","BM134,52","F7","BM142,52","R14","BM170,52","R5","BM83,53","R1","BM98,53","G2","BM108,53","R11","BM134,53","F7","BM143,53","R14","BM171,53","R5","BM187,53","R2","BM106,54","R13","BM134,54","F7",""
3150 DATA "BM144,54","R15","BM172,54","R3","BM185,54","R4","BM104,55","R15","BM134,55","F7","BM145,55","R15","BM184,55","R6","BM94,56","G6","BM103,56","R9","BM115,56","R4","BM134,56","F7","BM146,56","R15","BM182,56","R8","BM101,57","R8","BM115,57","R4"
3160 DATA "BM134,57","F7","BM147,57","R15","BM181,57","R7","BM100,58","R7","BM115,58","R4","BM134,58","F6","BM149,58","R15","BM180,58","R7","BM99,59","R7","BM115,59","R4","BM134,59","F4","BM151,59","R14","BM179,59","R6","BM191,59","R1","BM97,60","R7"
3170 DATA "BM115,60","R4","BM134,60","F2","BM153,60","R12","BM179,60","R4","BM189,60","R4","BM96,61","R6","BM115,61","R4","BM133,61","R1","BM154,61","R12","BM179,61","R3","BM188,61","R6","BM63,62","R3","BM96,62","R5","BM115,62","R4","BM133,62","R2"
3180 DATA "BM155,62","R12","BM179,62","R3","BM186,62","R8","BM62,63","R5","BM95,63","R5","BM115,63","R4","BM156,63","R12","BM179,63","R13","BM61,64","R11","BM87,64","G2","BM94,64","R5","BM115,64","R1","BM157,64","R12","BM180,64","R11","BM61,65","R12"
3190 DATA "BM93,65","R5","BM159,65","R4","BM165,65","R5","BM181,65","R8","BM60,66","R3","BM65,66","R8","BM92,66","R5","BM160,66","R4","BM166,66","R5","BM182,66","R5","BM60,67","R3","BM65,67","R8","BM91,67","R5","BM161,67","R4","BM167,67","R4","BM183,67",""
3200 DATA "R3","BM59,68","R9","BM70,68","R3","BM84,68","G1","BM90,68","R5","BM161,68","R11","BM59,69","R8","BM70,69","R3","BM90,69","R4","BM162,69","R11","BM59,70","R9","BM70,70","R3","BM83,70","G1","BM89,70","R4","BM163,70","R4","BM169,70","R4",""
3210 DATA "BM197,70","R1","BM61,71","R11","BM88,71","R4","BM164,71","R10","BM193,71","R5","BM63,72","R9","BM88,72","R4","BM165,72","R3","BM170,72","R4","BM190,72","R8","BM65,73","R6","BM81,73","BM87,73","R4","BM165,73","R4","BM171,73","R4","BM187,73"
3220 DATA "R12","BM67,74","R4","BM87,74","R4","BM166,74","R9","BM186,74","R13","BM69,75","R1","BM80,75","BM86,75","R4","BM166,75","R4","BM172,75","R4","BM186,75","R13","BM86,76","R3","BM167,76","R9","BM186,76","R7","BM197,76","R2","BM79,77","D1"
3230 DATA "BM86,77","R3","BM167,77","R4","BM173,77","R4","BM186,77","R7","BM196,77","R3","BM85,78","R3","BM168,78","R9","BM191,78","R8","BM56,79","R5","BM85,79","R3","BM168,79","R4","BM174,79","R3","BM191,79","R8","BM56,80","R9","BM78,80","D1","BM85,80",""
3240 DATA "R3","BM169,80","R3","BM175,80","R3","BM192,80","R7","BM55,81","R12","BM85,81","R2","BM169,81","R3","BM175,81","BM177,81","R1","BM193,81","R5","BM55,82","R12","BM85,82","R2","BM170,82","R2","BM178,82","D1","BM195,82","R1","BM58,83","R10"
3250 DATA "BM77,83","D2","BM86,83","D3","BM170,83","R1","BM64,84","R4","BM170,84","R1","BM179,84","D12","BM65,85","R3","BM170,85","BM55,86","R3","BM65,86","R3","BM54,87","R14","BM171,87","F7","BM176,87","R2","BM54,88","R13","BM76,88","D12","BM85,88"
3260 DATA "D10","BM171,88","F7","BM176,88","R2","BM54,89","R13","BM84,89","D9","BM91,89","R3","BM162,89","R5","BM171,89","F7","BM174,89","R4","BM56,90","R10","BM80,90","D9","BM83,90","D8","BM86,90","R6","BM94,90","D3","BM162,90","F8","BM166,90","R5",""
3270 DATA "BM175,90","R3","BM180,90","D10","BM61,91","R3","BM82,91","D7","BM86,91","R5","BM162,91","F6","BM164,91","F7","BM167,91","R5","BM176,91","R2","BM81,92","D6","BM86,92","R4","BM162,92","F5","BM168,92","R5","BM177,92","R1","BM77,93","R2","BM86,93",""
3280 DATA "R3","BM167,93","R6","BM178,93","BM77,94","R2","BM86,94","R3","BM163,94","F3","BM168,94","R7","BM77,95","R2","BM86,95","R4","BM93,95","D2","BM163,95","F2","BM169,95","R7","BM77,96","R2","BM86,96","R5","BM163,96","F1","BM170,96","R7","BM64,97",""
3290 DATA "R2","BM77,97","R2","BM86,97","R6","BM163,97","BM171,97","R6","BM190,97","R1","BM64,98","R2","BM77,98","R2","BM172,98","R6","BM190,98","R2","BM199,98","R3","BM64,99","R3","BM77,99","R2","BM176,99","R3","BM190,99","R3","BM199,99","R3","BM64,100",""
3300 DATA "R3","BM189,100","R5","BM199,100","R3","BM64,101","R3","BM189,101","R7","BM199,101","R3","BM54,102","R13","BM189,102","R13","BM54,103","R13","BM189,103","R13","BM54,104","R13","BM189,104","R3","BM194,104","R8","BM54,105","R13","BM189,105","R3",""
3310 DATA "BM195,105","R6","BM55,106","R5","BM190,106","R2","BM196,106","R5","BM85,108","R1","BM170,108","R1","BM78,109","R8","BM170,109","R8","BM80,110","R6","BM170,110","R7","BM179,110","BM65,111","R3","BM78,111","D2","BM81,111","R6","BM169,111","R6",""
3320 DATA "BM65,112","R4","BM84,112","R3","BM169,112","R5","BM178,112","D1","BM188,112","R2","BM66,113","R3","BM84,113","R3","BM168,113","R4","BM187,113","R4","BM56,114","R3","BM66,114","R3","BM79,114","D1","BM84,114","R4","BM168,114","R4","BM187,114",""
3330 DATA "R3","BM193,114","R2","BM56,115","R3","BM67,115","R3","BM85,115","R3","BM168,115","R4","BM177,115","D1","BM186,115","R3","BM193,115","R5","BM56,116","R3","BM67,116","R3","BM85,116","R4","BM167,116","R4","BM186,116","R3","BM192,116","R8",""
3340 DATA "BM57,117","R3","BM66,117","R4","BM80,117","D1","BM85,117","R4","BM167,117","R4","BM176,117","D1","BM186,117","R3","BM192,117","R7","BM57,118","R3","BM65,118","R4","BM86,118","R4","BM166,118","R4","BM186,118","R13","BM57,119","R12","BM81,119",""
3350 DATA "D1","BM86,119","R5","BM165,119","R5","BM186,119","R8","BM196,119","R3","BM58,120","R11","BM87,120","R4","BM165,120","R4","BM175,120","G1","BM187,120","R7","BM196,120","R3","BM59,121","R9","BM82,121","D1","BM88,121","R4","BM164,121","R4",""
3360 DATA "BM187,121","R6","BM195,121","R3","BM60,122","R6","BM88,122","R5","BM163,122","R5","BM174,122","G1","BM189,122","R2","BM195,122","R3","BM63,123","BM83,123","BM89,123","R4","BM163,123","R4","BM196,123","R2","BM89,124","R5","BM162,124","R4"
3370 DATA "BM173,124","G2","BM84,125","F1","BM90,125","R5","BM161,125","R4","BM91,126","R5","BM160,126","R4","BM92,127","R5","BM128,127","F10","BM159,127","R4","BM171,127","G11","BM86,128","F3","BM93,128","R5","BM126,128","R2","BM158,128","R4","BM93,129",""
3380 DATA "R6","BM124,129","R5","BM131,129","F9","BM157,129","R4","BM94,130","R6","BM122,130","R8","BM133,130","F9","BM148,130","F1","BM156,130","R4","BM95,131","R6","BM121,131","R10","BM135,131","F9","BM145,131","R3","BM155,131","R4","BM96,132","R6",""
3390 DATA "BM119,132","R7","BM129,132","R3","BM137,132","R1","BM145,132","R3","BM153,132","R5","BM167,132","G3","BM90,133","F2","BM97,133","R7","BM117,133","R7","BM127,133","D4","BM130,133","R3","BM138,133","R2","BM146,133","BM152,133","R5","BM160,133"
3400 DATA "R2","BM98,134","R8","BM115,134","R7","BM125,134","R1","BM132,134","R2","BM139,134","R3","BM150,134","R5","BM159,134","R3","BM93,135","F4","BM99,135","R8","BM113,135","R7","BM123,135","R3","BM134,135","R1","BM140,135","R3","BM148,135","R6",""
3410 DATA "BM157,135","R5","BM99,136","G2","BM101,136","R17","BM121,136","R5","BM136,136","BM141,136","R12","BM156,136","R5","BM102,137","R14","BM119,137","R7","BM128,137","R1","BM142,137","R9","BM154,137","R6","BM104,138","R10","BM118,138","R8",""
3420 DATA "BM130,138","BM143,138","R6","BM153,138","R6","BM98,139","F2","BM106,139","R6","BM116,139","R8","BM132,139","BM144,139","R3","BM151,139","R7","BM108,140","R2","BM114,140","R8","BM134,140","BM145,140","BM150,140","R7","BM101,141","F1"
3430 DATA "BM112,141","R8","BM136,141","BM147,141","R9","BM103,142","F1","BM111,142","R7","BM138,142","F1","BM146,142","R8","BM111,143","R5","BM140,143","BM146,143","R6","BM106,144","R1","BM111,144","R3","BM142,144","F1","BM146,144","R4","BM108,145","R1"
3440 DATA "BM111,145","R1","BM144,145","BM146,145","R2","BM110,146","BM111,158","R8","BM121,158","R3","BM127,158","R8","BM138,158","R3","BM111,159","R8","BM121,159","R3","BM127,159","R8","BM137,159","R5","BM111,160","R7","BM121,160","R3","BM127,160","R7"
3450 DATA "BM137,160","R5","BM111,161","R3","BM121,161","R3","BM127,161","R3","BM137,161","R5","BM111,162","R3","BM121,162","R3","BM127,162","R3","BM136,162","R7","BM111,163","R6","BM121,163","R3","BM127,163","R6","BM136,163","R7","BM111,164","R6"
3460 DATA "BM121,164","R3","BM127,164","R6","BM136,164","R2","BM141,164","R3","BM111,165","R5","BM121,165","R3","BM127,165","R5","BM135,165","R3","BM141,165","R3","BM111,166","R3","BM121,166","R3","BM127,166","R3","BM135,166","R9","BM111,167","R3"
3470 DATA "BM121,167","R3","BM127,167","R3","BM134,167","R11","BM111,168","R3","BM121,168","R3","BM127,168","R3","BM134,168","R3","BM141,168","R4","BM121,169","R3","BM127,169","R3","BM134,169","R3","BM142,169","R3","B"
3480 DATA "B","STOP"
3490 END