1000 '************************************ 1010 '* F1-Spirit * 1020 '* TINY-YAROU with NandemoMML * 1030 '************************************ 1040 _MUSIC(0,0,1,1,1,1,1) 1050 DIM V%[16] 1060 FOR I=0 TO 15:READ A$:V%[I]=VAL("&H"+A$):NEXT 1070 _VOICE COPY(V%,@63) 1080 PRINT"HIT ANY KEY":A$=INPUT$(1) 1090 RESTORE 2000 1100 READ A$,B$,C$,D$,E$,F$,G$,H$ 1110 IF A$="END" THEN RESTORE 2160:GOTO 1100 1120 PLAY#2,A$,B$,C$,D$,E$,F$,G$,H$ 1130 GOTO 1100 1500 DATA0000,0000,0000,0000 1510 DATA0000,0006,0000,0000 1520 DATA0602,00F0,0000,0000 1530 DATA0806,A1F4,0000,0000 2000 DATA"t225l64r1r2&r8 2010 DATA"t225l64r1r2&r8 2020 DATA"t225l64@63r64o4v14a2&a8&ar4&r32.a2&a8&ar32 2030 DATA"t225l64@63r64o4v14a2&a8&ar4&r32.a2&a8&ar32 2040 DATA"t225l64@63r64o4v14a2&a8&ar4&r32.a2&a8&ar32 2050 DATA"t225l64r16.o4v10a16.v9a16.v8a16.v7a16.v6a16.v5a16.r4.v10a16.v9a16.v8a16.v7a16.v6a16.v5a16.r32 2060 DATA"t225l64r16.o4v10a16.v9a16.v8a16.v7a16.v6a16.v5a16.r4.v10a16.v9a16.v8a16.v7a16.v6a16.v5a16.r32 2070 DATA"t225l64r16.o4v10a16.v9a16.v8a16.v7a16.v6a16.v5a16.r4.v10a16.v9a16.v8a16.v7a16.v6a16.v5a16.r32 2080 DATA"r1r4&r64@63o2v15bf+32.d32.a1&a8&ar8.&r32r16.&r64 2110 DATA"r4&r64>a1&a8&ar8.&r32r16.&r64 2120 DATA"r4&r64>a1&a8&ar8.&r32r16.&r64 2130 DATA"r4.&r32.>v9a8&av8a8&a32v7a8&a32.v6a8&av5a8.&a32.v4a8.&ar8&r32 2140 DATA"r4.&r32.>v9a8&av8a8&a32v7a8&a32.v6a8&av5a8.&a32.v4a8.&ar8&r32r16.&r64 2150 DATA"r4.&r32.>v9a8&av8a8&a32v7a8&a32.v6a8&av5a8.&a32.v4a8.&ar8&r32 2160 DATA"t225l64o1v15a+32.>>dead>ad>aecad>ad>d>adv13a+16b16.>c16.c16&cc16&cf16&fc16&cf16&fg16&g>d16&ddddv12afb32r64v10afbr64v8afbr64v6afbr64v4afbr1r16. 2240 DATA"f16f32.f+8.g16.g+8.a8&aa32.a32.f+32.e32.d+32.d8&dd8&dd8.d+8.&d+ 2250 DATA"r1r2&r8 2260 DATA"cr32e8r32c8r32a+8r32a8r32g8r32c8r32c8r32c8r32e8r32c8r32a+ 2270 DATA"c32.g16&gf16&fc16&cf16&fc16&cc16&cf16&fc16&cc 2280 DATA"a+2.&a+16&a+a2.&a32. 2290 DATA"r16r8&r32>dddddv14dedead>adeaddead>ad>aecad>adf16&fc16&cf16&fg16&gc16&cf16&fg16&g>c16&cddbr64v10av12afbr64v10afbr64v8afv12afbr64v10afbv12afbr64v10afbr64v8afbr64v6afbr64v4afbr16&r64 2400 DATA">>d>adc4&c32c+4&c+16a+e>eead32<>a32ead>ad>a 2410 DATA"r1r2&r8 2420 DATA"f16&fe16&ed16&dc8r32c8r32e8r32c8r32a+8r32a8r32g8r32.c16.&cr32c8&c 2430 DATA"g16&g>c16&cg16&g>c8.&c32c16&cc16.f16c16.f16g16&g>d16.dbr64v10av12afbr64v10afb32v8af32v12fbr64v10afbr64v8afbr64v6a 2480 DATA"ec32ad>ad>d>a32c4c+4&c+32d8.d8.&d32. 2490 DATA"r1r2&r8 2500 DATA"r64c8r32e8r32c8&cr64a+8r32a8r32g8r32c8r32c8&cr64c8r32.e16.&er32c32. 2510 DATA"gf16&fc16&cg16&gf16&fc16.f16&fc16&cc16.f16c16&cddbr64v4afbr8&r64>v11dv12d+v11d+32.dv10fv11dv12d+v11d+32.dv10fd32d+32.dv8fv9dv10d+32v9d+32d32v7d32d+32.dv5fd32d+32.d32r2&r8.&r64 2560 DATA"d16.d+4.e1&e8&e32 2570 DATA"r1r2&r8 2580 DATA"c16.r64a+8r32.a16.&ar32g8r32c8r32c8r32c16.c16e8r32c8&cr32a+8r32a16. 2590 DATA"g32.e16>c16.f16c16f16.g16&gc16.f16g16. 2600 DATA"a2&a16&a>d1&d32. 2610 DATA"bar16.&r64ba32r16.o4v10cr4&r32.cr8&r32o1v15b32ar16.>d>v9ar32. 2620 DATA"f+2&f+32v8f+v7f+32v12av11a32v10av9a2.&a8.&a32. 2630 DATA"r1r2&r8 2640 DATA"e2.&e16.&e>d32e32d32e32dd32e32d32de32da32ded32de 2650 DATA"r1r2&r8 2660 DATA"a32r32g16&gf16&fe16.d16&dc16.&cr32c8r32e8r32c8&cr32a+16.&a+r32.a16.&ar32.g8r32c8&c 2670 DATA">c16c16.g8.&g32>c8&c32d8&d32e4.&e16.&ef8&f32e8&e 2680 DATA"d4.&dc4.&c16.&cd8&d32c8&c 2690 DATA"r64ar16r16>v10cr16cr16cr16<dv10cv9c32.v8c16.v10dv9d32v8d16.&dv10e32v9ev8e4.&e16v10fv9fv8f16.&f 2710 DATA"r2.&r8b32v10av12a32b32v10af32bv12a32b32v10af32bv12a32b32v10af32br32v8fv12a32bv10af32bv12a32b 2720 DATA"ed32de32dad32<>aecad>add32dd32dd32dddb32r64v10f32br32v8fv6ab32v4af32br16.&r64>v12ed+v13e32v12d+d32fv11d32v13e32v12ed+32v13ev12d+32dfev11dv13e32v12d+32dfev11dv12d+v13ev12d+32dfv10ev11dd+v10ed+32dv9fedd+ed+32v7dfedd+ed+v6d+dfedd+er16 2800 DATA"a8&a32a16.g+4&g+32g4.&g16.g+4&g+16&g+g+32.a8&ag+16.&g+ 2810 DATA"r1r2&r8 2820 DATA"d+16&d+r32d+8r32d+8r32a+4&a+16f4&f16f8r32f8r32f8r32f16.&f 2830 DATA"d+4.&d+32.f8&f32g8&g32a+4&a+16>c4&c16c8&c32d8&d32d+4&d+16f4&f16d+4&d+ 2850 DATA"r8>ddddddddv10cv9c32v8c4&cc4.&c16.c8&c32d8&d32e4.&e16.f8&f32e 2920 DATA"d+32.d4&d16c8&c32c4.&c16.d8&d32c 2930 DATA"r16>dddddv10cv9c32v8c16.&cv10dv9d32v8d16.&dv10ev9e32v8e4.&e32.v10f 2950 DATA"r2&r16o4v14afc+o1a>>afd>afd>afd>afd>f<>afd>f<>afd>f<c4&c32c+4&c+16&c+d8&dd8&d32. 2970 DATA"r1r2&r8 2980 DATA"c4&c32.c8r32e8r32c8r32a+8r32a8r32g4&g16d+8r32d+16&d+ 2990 DATA"e4.&e16&ef8&f32g4&g16f4&f16e8&e32d+8.&d+32. 3000 DATA"c4.&c16&cd8&d32e4&e16d4&d16c8&c32ddddddc4&c16c8&c32d8&d32d+4&d+16f4&f16d+8&d+ 3090 DATA"r16.o4v10cr8&r64<ddddv10cv9c32v8c4 3110 DATA"r1r2&r8 3120 DATA"c+16&c+c8&co6c32o3eaf32dfo8g+32o1bo8g+32o1g>a32o8g+o2d32o8g+o1a32gc32>d+>dd32>dd32>dc+>d32a32o8eo2d32o8eo1a32>af32dfo8e32o1bo8e32o1g32.>gd+32>c+32c+>c+32c+>c+32dc+32r64af 3140 DATA"r64f8r32>c4.&c16.c4.&c16.<c8&cd8&d32e4.&e16.&ef32 3160 DATA"d+8&d+32.f4.&f16.c4.&c16.&cd32 3170 DATA"r8.&r64>>v5ar16v9ar32.>v10cr16&r64r16cr16cr16&r64o1v15ba32r16.>ddv9c32.v8c4.&c32.<v10cv9c32v8c16.&cv10d32v9dv8d8v9e32.v8e4&e32. 3190 DATA"r8.&r32.o7v12f>fd32b32.a16c16&cf32.<>d32c16f16&fd>c32.f16<ba32>c32.f16<ba32>v12c 3200 DATA">d32c+>d>d32d32>dd32>dd32c+>d32d32>d32>d32c+>c+32dc+afc+32a+f+32>c+>c+32c+>c+32c+32r64afc+32a+f+32>c+af32>dc+a 3220 DATA"g16&gr32.c4&c16c16.&cr32.e16.&er32c8&cr64a+8r32.a16.&ar32.g4&g16d+16. 3230 DATA"f8e4.&e16.f8&fg4&g16f4&f16&fe8&e32d+16. 3240 DATA"d8c4.&c16.d8&de4&e16&ed4&d16c8&c32d32ddd>c32.f16<ba32>v10c16f32.<>d32c16f16&fd>v8c32.f16&fd>c16f16<>d32v6c16&cf32.<>dd32>dc+>d32>d32d32>ddc+>d32c+de>dec+>c+32dc+af32>d32c+>c+c+32>c+dc+>c+dc+de>dec4&c32. 3320 DATA"a+2&a+8.&a+>c8&c32d8&d32d+4&d+16f4&f32. 3330 DATA"r16>d32dd32ddd32v10cv9cv8c16.&c 3350 DATA"r1r2&r8 3360 DATA"r64afd>de>de>de>dec+32.d32.d+32.f32.f+32.g32.g+32.a 3370 DATA"fr64afd>de>de>de>dec4.&c16.c8&c32d8&d32e4&e16.&e 3400 DATA"fd+4&d+16d4&d16c8&c32c4&c16.&c 3410 DATA"r64>d32ddddddddv10cv9c32v8c16.&cv10dv9d32v8d16.&dv10ev9e32v8e8&e32 3430 DATA"r1r2&r8 3440 DATA">>v13dv14d+ff+32g32r64dd+ff+32g32r64dd+ff+32g32r64dd+ff+32g32r64dd+gf+32g32r64dd+gf+32g32r64dd+gf+32g32r64dd+ff+32g32r64dd+ff+32g32r64dd+ff+32g32r64dd+ff+32g32r64dd+gf+32g32r64dd+gf+32g32r64 3450 DATA"r4&r64o4v3ev4ev5ev6ev7ev8ev9ev10ev11d+32.v12d+32.v13d+32.v14d32.c+2&c+8&c+32.r4. 3460 DATA"a16&ar32g8r32c4&c16c8r32e8r32c8r32a+8r32a8r32g4&g 3470 DATA"e16.&ef8&f32e4.&e16.f8&f32g4&g16f4&f16e16.&e 3480 DATA"c16.&cd8&d32c4.&c16.d8&d32e4&e16d4&d16c16.&c 3490 DATA"ar16.&r64r8&r32>ddddddc+32.c8&c32. 3560 DATA"c32.c8&c32d8&d32d+4&d+16f8&f32. 3570 DATA"r16>ddddddv10c 3590 DATA"r64v5dd+f+fv4f+g32r1r2 3600 DATA"f16>c32.c4.&c16.<c4.&c16.<d8.&d32. 3640 DATA"f8&fd+4&d+16f4.&f16.>v5ar16ar32.>v10cr16cr16cr16cr16<ddv10cv9c32v8c4.&c16r8&r32<c4&c32c+16.c+16.c+8&c+32c+32c8.ddddd32v10dv9d32v8d4.&d32.v10cv9c32v8c4&cc16c8af32df32dfo8g+o2d32o8g+o1a32 3770 DATA"r1r8&r32<a32o8eo2d32o8eo1a32>a32o8eo2d32o8eo1a32>afo8e32o1bo8e32 3780 DATA"r64g8r32g8r32a8r32a8r32a8r32a8r32a8r32a8&ar64a4&a16a32. 3790 DATA"g8&g32.a4.&a16.>e2&e8e8&e32g8.&g 3800 DATA"g8&g32.a4.&a16.>e2.&e32g8.&g 3810 DATA"r32>dd32dd32d32 3820 DATA"a8&a32.v10gv9g32v8g4&gv10av9a32.v8a4.&a32>v10ev9e32.v8e2&e16v10ev9e32 3830 DATA"r1o7v12fv13c+32g+v12f32>fd32b32.a16c32 3840 DATA"g32>gd+32>dc+>d32c+>d32c+>d32c+>d32c+>d32c+32>dg32>c+32dc+32r64af32>dc+32r64af32>dc+32r64af32>dc+32r64af32>dc+32af32>d32c+af32>da8r32g8r32.e8r32d16. 3880 DATA"g32f+8.&f+32.d8&d32e2&e8&ed4.&d16.c16. 3890 DATA"d32ddd32d>d32>c16&cf32.<>d32c16f16&fd>c32.f16<ba32>v12c16&cf32.<>d32c16f16&fd>v10c32.f16<ba32>c16&cf32. 3920 DATA"f>d>d32c+>ddc+>ddc+>ddc+>ddc+>ddc+>ddc+a32f>d32c+>c+dc+>c+dc+>c+dc+>c+dc+>c+dc+>c+d 3940 DATA"g32r32g8r32g8r32g8r32g8r32f8r32g8r32g8r32g8r32g8r32g8r32 3950 DATA"d4.c4&c16d32ddddddv10dv9dv8d4.&d16v10cv9c32v8c4&c>d32v8c16f16&fd>c16f16<>d>v6c16f16<>dc+>ddc+>ddc+de>de>de>de>de>de 4010 DATA"c+>c+dc+>c+dc+de>de>de>de>de>de8r32f8r32f8r32f8r32f8r32f8r32f8r32f8.&f32 4030 DATA"g4&g16a4.&a16.>d4.&d16.g4&g16f16 4040 DATA"g4&g16a1&a4&a16 4050 DATA"r64r8&r32>ddddddddv10dv9d32v8d4.&d32.v10gv9g32v8g 4070 DATA"r1r2&r8 4080 DATA">cr64cr64ec8r32d4.&d16 4130 DATA"r16.&r64>dddddd4.&d16.c4&c16dddddd 4220 DATA"g4&g16.>v10dv9d32v8d4.&d32.v10cv9c32v8c4&ce2&e16.&ee16. 4280 DATA"a8g4&g16&ga4.&a16.>e2&e8.&e 4290 DATA"ddddv10e32v9ev8e4&e16.&e 4310 DATA"r1r8.v8ev9ev10d+32v11d+v12d+16.&d+d16.c+16v11c+16. 4320 DATA"b16&bb8&b>c4.c+4&c+16&c+d8.d4.&dd+8 4330 DATA"c+2r1r8 4340 DATA"a8.&a32a8r32.>a16.&ar32g8r32.e8&er64dddd32d4.&d16.c4&c32.dd32ddv10d32v9dv8d4.&d32.v10c32v9cv8c4&c>a 4480 DATA"c+c2&c8.&c 4490 DATA"c+4.&c+16.&c+r1r8&r64 4500 DATA"g8.&gg8.&g32.a16.&ar32.a+8r32a+16.&a+r32.a+16.&a+r32.a+8r32a+16.&a+r32.a+8r32a+16. 4510 DATA"a4&a32g4&g16a+1&a+32 4520 DATA"a4&a32g4&g16d16&df16&fg+16&g+d16f16.g+16&g+a+16&a+f16g+16.a+16&a+>d16&dd32dd32d>fd32>v12afc+32>v10af32o1a>>a32d32>fd32f< 4600 DATA"a+16>d16&df16&fd16&df16.&fg+16&g+d16&df16&fg+16&g+a+16&a+f16&fg+16&g+a+16&a+>d16&dg+16&g+a+16&a+d16&d 4610 DATA"r16&r64o1v15ba32r16.&r64r16&r64r4&r64>>v9ar16ar16r16&r64r16&r64r16&r64r8.&r32.r16&r64r16&r64>v7e32.v8e32.v9e32.v10d+16.v11d+32 4800 '[END] 4810 DATA"END",,,,,,,,,,,,,,,