[Experimental Version] Como Eu Quero - Kid Abelha

DOWNLOAD LINK
(Link para download)
--------------

TXT | BAS | DSK | SC2

 

 

 

SUGGESTED BASIC COMMANDS FOR FASTER TYPING / PRE-TYPING
(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 ' COMO EU QUERO
20 ' KID ABELHA
30 ' EXPERIMENTAL VERSION
40 ' MSX 1/2/2+/TURBO-R
50 ' MSX-BASIC YEAR: 2026
60 ' --------------------
70 COLOR 15,1,1:SCREEN2,,0
80 BLOAD"A:ABELHA01.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 T122V12L4S0M30000R1,T122V11L4S0M30000R4O5F8O4A8D8A8O5F8O4A8,T122V11L4S0M30000R1,R1,O4D8A8O5F8O4A8D8A8O5F8O4A8,R1,R1,O4D8A8O5F8O4A8D8A8O5F8O4A8,R4O4D2.,R1,O4D8A8O5F8O4A8C8A8O5F8O4A8,O4D8.R16C2.
240 DATA R1,O4C8A8O5E8C8O4C8G8O5E8C8,O4C16R16F16R16G2.,R1,O4C8G8O5G8D8O4B8O5D8G8D8,O4G8.R16D2.,R1,O4B8O5D8F8O4A8D8A8O5F8O4A8,O4D16R16O3B16R16O4D2.,R1,O4D8A8O5F8O4A8C8A8O5F8O4A8,O4D8.R16C2.,R1,O4C8A8O5C8O4G8C8E8O5C8O4G8,O4C16R16A16R16O3A2.
250 DATA R1,O4C8E8O5C8O4G8C8E8O5C8O4G8,O3A8R1,R4O4G8F16R16F8E19.R32.E8D16R16,O4C8E8R2.,R4O4C2.,O4D8C16R16D16R16D16R16D19.R32.C19.R32.E4,R1,O4C8.R16D2.,O4D7.R32F8E19.R32.E8D19.R32.D8C16R16,R1,O4D8.R16C2.
260 DATA O3A8O4C7.R32C19.R32.C9R64O3A8O4D4,R1,O4C8.R16C2.,O4C4G8F16R16F8E16R16E8D16R16,R1,O4C8.R16E2.,O4D8C8D5R32.D8E8D4,R1,O4E8.R16D2.,O4D9R7F8E16R16E8D16R16D8C8,R1,O4D8.R16A2.,O3A8O4C7.R32C19.R32.C8O3A8O4D4,R1,O4A8.R16F2.
270 DATA O4C4G2.,R1,O4F8.R16C2.,O4G16R16G16R16G8F16.R32E4.D8,R1,O4C8.R16O3B2.,O4E9R64D4C2,R1,O3B8.R16F2.,O4C64R1,R1,O3F8R1,R4O4G2.,R1,R4O4E2.,O4G16.R32G16R16G8F9R64E19.R32.E4D8,R1,O4E8.R16O3B2.,O4E8D4C2,R1,O3B8.R16A2.,O4C2.R4,R1,O3A8R1
280 DATA R8O4G32.R19.G8F16.R32F8E16R16E8D19.R32.,R1,R4O4E2.,O4D8C19.R32.D5.R16E8D4,R1,O4E8.R16D2.,O4D16.R32F32.R19.F9R64E16R16E9R64D16R16D8C16R16,R1,O4D8.R16C2.,O4C8O3A8O4C7R16C7R32E9R64D4,R1,O4C8.R16C2.
290 DATA O4D32.R19.G16R16G8F9R64F8E16.R32E4,R1,O4C8.R16C2.,O4D5R6D16R16D8C8D8E8,R1,O4C8.R16O3B2.,O4D8C8F8E16.R32E8D19.R32.D8C32.R19.,R1,O3B8.R16O4A2.,O4C9R64O3A8O4C8R8C4D4,R1,O4A8.R16C2.,O4C4G2.,R1,O4C8.R16A2.
300 DATA O4G16R16G32.R19.G8F16.R32E16R16E4D8,R1,O4A8.R16G2.,O4E8D4C2,R1,O4G8.R16O3A2.,O4C2R2,R1,O3A8R1,R4O4G2.,R1,R4O4A2.,O4G19.R32.G32.R19.G8F16.R32E19.R32.E4D8,R1,O4A8.R16O3B2.,O4E8D4C2,R1,O3B8.R16O4C2.,O4C4R2.,R1,O4C8R1
310 DATA R2O4F4E4,R1,R4O4D2.,O4D4C4R64D8C4O3A8,R1,O4D8.R16A2.,O3A8.R8.O4E16R16E8C19.R32.C8D8,R1,O4A16R16A16R16E2.,O4E8D1,R1,O4E8.R16O3B2.,O4D4R4F4E4,R1,O3B16R16O4D16R16D2.,O4D5R32.D4.C8.R16C19.R32.,R1,O4D8.R16C2.
320 DATA O4C8O3A8O4D8E8C2,R1,O4C16R16A16R16O3F2.,O4C8R1,R8O3F8O4E8A4E8C8O3B8,O3F8R1,R2O4F4E4,O3B8R1,R4O4A2.,O4D4C4D8C4O3A8,R1,O4A8.R16C2.,O3A4R8O4E16.R32E19.R32.E19.R32.E8D8,R1,O4C16R16A16R16C2.,O4C8D1,R1,O4C8.R16D2.
330 DATA O4D7.R5.F4E7.R32,R1,O4D16R16O3B16R16O4D2.,O4D7.R32D4C5.R16C16R16,R1,O4D8.R16A2.,O4C8O3A8O4D8E8C2,R1,O4A16R16A16R16O3A2.,O4C2.R4.,R1,O3A8R1,R1,R1,R4O4C2.,R1,R1,O4C8.R16O3B2.,R1,R1,O3B8.R16F2.,R1,R1,O3F8R1,R1,R1,R4O4C2.
340 DATA R1,R1,O4C8.R16O3B2.,R1,R1,O3B8.R16F2.,R1,R1,O3F8R1,R1,R1,R4O4C2.,R1,R1,O4C8.R16O3B2.,R1,R1,O3B8.R16A2.,R1,R1,O3A8R1,R1,R1,R4O4C2.,R1,R1,O4C8.R16E2.,R1,R1,O4E8.R16O3A2.,R1,R1,O3A8R1,R1,R1,R4O4C2.,R1,R1,O4C8.R16O3B2.
350 DATA R1,R1,O3B8.R16F2.,R1,R1,O3F8R1,R4O4G2.,R1,R4O4C2.,O4G8.R16G8F16.R32E16.R32E4D8,R1,O4C8.R16O3B2.,O4E8D4C2,R1,O3B8.R16F2.,O4C2.R3,R1,O3F8R1,R4O4G2.,R1,R4O4E2.,O4G19.R32.G16R16G8F9R64E16.R32E4D8,R1,O4E8.R16O3B2.
360 DATA O4E8D4C4.R4,R1,O3B8.R16O4C2.,R1,R1,O4C8R1,R4O4G2.,R1,R4O4C2.,O4G1,R1,O4C5.R19.O3B2,O4G7D8.E3D3,R1,O3B2R19.O4C3,O4D7C2.,R1,O4C1,O4C2R2,R1,O4C1,R1,R1,O4C5.R2.,!,!,!