MSX-BASIC programs


(This page is "work in progress", so please come back again to check new improvements! Thanks!)
In this section you'll find BASIC programs for the MSX computer made by (4)Seasons.
HAVE A GOOD TIME!

Use these programs at your own risk! We're not responsible of any damage to your computer (emulated or not).




MSX Christmas mini-demo 2019! (2019)
Hello and welcome to the new mini-Christmas DEMO!
The program allows our MSX computer to draw some Christmas-themed doodles around the screen (in SCREEN 3 mode), while playing a minimal version of the famous Christmas song Last Christmas by Wham!.
The demo was created by Alberto 'BCO' Sgaggero to celebrate Christmas 2019 all together with the MSX.

10 SCREEN3,2:CLEAR300:PT=0:MF=INT(RND(1)*4)+3:ON STOP GOSUB 10000:STOP ON
20 A$="o4Co3Go4Co3Go4Co3Go4Co3Go4Co3Go4Co3Go4Co3Go4Co3B":B$="AEAEAEAEAEAEAEAE":C$="o4Do3Ao4Do3Ao4Do3Ao4Do3Ao4Do3Ao4Do3Ao4Do3Ao4Do3A":D$="BGBGBGBGBGBGBGBG"
30 PLAY"t200l4s10m10000","t200l4s10m4000"
40 GOSUB300
50 RD=INT(RND(-TIME)*16)+1:ONRDGOSUB1000,2000,2500,3000,3500,4000,4500,5500,6000,6500,7000,7500,8000,8500,9000,9500
60 C=15:READH:READW:SX=RND(1)*(64-W):SY=RND(1)*(48-H):X=0:Y=0:FC=FC+1:IFFCMODMF=0THENCR=INT(RND(1)*14):LINE(0,0)-(256,192),CR,BF:MF=INT(RND(1)*4)+3
70 IFPLAY(0)=0THENGOSUB400
80 IFSX>SYTHEND=SXELSED=SY
90 DX=SX/D:DY=SY/D
100 FORT=1TOD:X=X+DX:Y=Y+DY
110 IFPLAY(0)=0THENGOSUB400
120 PUTSPRITE0,(X*4,Y*4),1,0:PUTSPRITE1,(X*4,Y*4),C,1:PUTSPRITE2,(X*4,Y*4),11,2:NEXT
130 IFPLAY(0)=0THENGOSUB400
140 EX=SX+W:EY=SY+H:FORY=SYTOEY:FORX=SXTOEX:READCH$:C=VAL("&H"+CH$):IFC<>0THENPSET(X*4,Y*4),C
150 IFPLAY(0)=0THENGOSUB400
160 PUTSPRITE0,(X*4,Y*4),1,0:PUTSPRITE1,(X*4,Y*4),C,1:PUTSPRITE2,(X*4,Y*4),11,2:NEXT:NEXT
170 IFPLAY(0)=0THENGOSUB400
180 C=15
190 IFX>YTHEND=XELSED=Y
200 DX=X/D:DY=Y/D
210 FORT=1TOD:X=X-DX:Y=Y-DY
220 IFPLAY(0)=0THENGOSUB400
230 PUTSPRITE0,(X*4,Y*4),1,0:PUTSPRITE1,(X*4,Y*4),C,1:PUTSPRITE2,(X*4,Y*4),11,2:NEXT
240 GOTO50
300 RESTORE300:DATAFF,81,81,81,83,87,8F,FF,47,23,11,08,04,03,01,00,00,80,40,20,10,88,C4,E6,F5,FD,FD,F9,72,E4,08,F0
310 DATA00,70,70,60,00,00,00,00,38,1C,0E,07,03,00,00,00,00,00,80,C0,E0,70,38,18,08,00,00,00,80,00,00,00
320 DATA00,0E,0E,1E,7C,78,70,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,02,02,02,06,0C,18,F0,00,*
330 S=BASE(9)
340 READR$:IFR$="*"THENRETURNELSEVPOKES,VAL("&H"+R$):S=S+1:GOTO340
400 PT=(PT+1)MOD9
410 IFPT=1THENPLAY"o5Dr2Dr4Cr4o4Go5DEDCr2o4AA",A$:RETURN
420 IFPT=2THENPLAY"o5DDEr4Cr2o4ABo5Co4BAr1",B$:RETURN
430 IFPT=3THENPLAY"o5Er2Dr2r4o4Ao5EFEDr2r4C",C$:RETURN
440 IFPT=4THENPLAY"o4Bo5Co4BBr4o5Co4BBr4Gr1r2",D$:RETURN
450 IFPT=5THENPLAY"o5Cr2r4Gr2r4Er2r4o4GABo5C",A$:RETURN
460 IFPT=6THENPLAY"Dr4Co4Br4o5Cr2o4Ar2r4o5GECo4A",B$:RETURN
470 IFPT=7THENPLAY"o4Fr4r4r4r4r4r4r4r4r4r4r4o5AFEF",C$:RETURN
480 IFPT=8THENPLAY"Dr4r4r4r4r4r4r4Gr4r4r4EDCo4A",D$:PT=0:RETURN
1000 RESTORE1000:DATA20,14,0,0,0,0,0,0,F,F,F,F,F,F,0,0,0
1010 DATA0,0,0,0,F,F,F,1,1,1,1,F,F,F,0
1020 DATA0,0,F,F,F,1,1,1,9,8,1,1,1,F,F
1030 DATA0,F,F,1,1,1,C,9,8,8,8,8,1,1,F
1040 DATA0,F,1,1,F,F,F,C,8,6,6,F,F,1,F
1050 DATAF,F,1,F,F,F,F,F,C,6,1,F,E,1,F
1060 DATAF,1,1,F,1,F,1,F,F,C,1,1,1,1,F
1070 DATAF,1,9,8,8,8,F,F,F,E,1,F,F,F,F
1080 DATAF,1,1,F,F,F,F,F,F,E,1,F,0,0,0
1090 DATAF,F,1,1,F,F,F,F,E,1,1,F,0,0,0
1100 DATA0,F,1,1,9,8,8,8,8,1,1,F,0,0,0
1110 DATAF,F,1,9,8,8,8,6,6,6,1,F,F,0,0
1120 DATAF,1,1,F,F,F,F,8,6,E,1,1,F,0,0
1130 DATAF,1,F,F,F,1,F,F,8,6,E,1,F,0,0
1140 DATAF,1,F,F,F,F,F,F,8,6,E,1,F,0,0
1150 DATAF,1,F,F,F,1,F,F,F,F,E,1,F,0,0
1160 DATAF,1,F,F,F,F,F,F,F,F,E,1,F,0,0
1170 DATAF,1,1,F,F,F,F,F,F,E,1,1,F,0,0
1180 DATAF,F,1,1,F,F,F,F,E,1,1,F,F,0,0
1190 DATA0,F,F,1,1,1,1,1,1,1,F,F,0,0,0
1200 DATA0,0,F,F,F,F,F,F,F,F,F,0,0,0,0:RETURN
2000 RESTORE2000:DATA17,14,0,0,0,0,F,F,F,F,F,F,F,0,0,0,0
2010 DATA0,0,0,0,F,1,1,1,1,1,F,0,0,0,0
2020 DATA0,0,0,0,F,1,B,B,B,1,F,0,0,0,0
2030 DATA0,0,0,0,F,1,A,1,A,1,F,0,0,0,0
2040 DATA0,0,F,F,F,1,1,1,1,1,F,F,F,0,0
2050 DATA0,F,F,1,1,1,6,6,6,1,1,1,F,F,0
2060 DATA0,F,1,1,6,9,9,9,9,9,6,1,1,F,0
2070 DATAF,F,1,6,F,F,9,9,9,9,9,6,1,F,F
2080 DATAF,1,1,B,F,F,B,B,B,B,B,B,1,1,F
2090 DATAF,1,C,3,7,3,3,3,7,3,3,3,5,1,F
2100 DATAF,1,C,7,3,7,3,7,3,7,3,7,C,1,F
2110 DATAF,1,5,3,3,3,7,3,3,3,7,3,C,1,F
2120 DATAF,1,1,B,B,B,B,B,B,B,B,B,1,1,F
2130 DATAF,F,1,6,9,9,9,9,9,9,9,6,1,F,F
2140 DATA0,F,1,1,6,9,9,9,9,9,6,1,1,F,0
2150 DATA0,F,F,1,1,1,6,6,6,1,1,1,F,F,0
2160 DATA0,0,F,F,F,1,1,1,1,1,F,F,F,0,0
2170 DATA0,0,0,0,F,F,F,F,F,F,F,0,0,0,0:RETURN
2500 RESTORE2500:DATA23,23,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F
2510 DATAF,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,F
2520 DATAF,1,C,C,C,C,C,C,A,C,C,C,C,C,C,C,C,A,C,C,C,C,1,F
2530 DATAF,1,C,C,C,C,C,C,C,C,C,C,C,C,C,C,C,C,C,C,C,C,1,F
2540 DATAF,1,C,C,F,C,C,C,7,7,7,7,7,7,7,C,C,C,F,C,C,C,1,F
2550 DATAF,1,C,F,F,A,C,7,7,7,7,7,7,7,7,7,C,C,F,F,C,C,1,F
2560 DATAF,1,C,F,F,C,7,7,F,7,7,7,7,7,7,7,7,A,F,F,C,C,1,F
2570 DATAF,1,C,F,F,F,7,F,7,7,7,7,7,7,7,7,7,F,F,F,A,C,1,F
2580 DATAF,1,A,C,F,F,7,F,7,7,7,7,7,7,7,7,7,F,F,C,C,C,1,F
2590 DATAF,1,C,C,C,A,7,F,7,7,7,7,7,7,7,7,7,C,C,C,C,C,1,F
2600 DATAF,1,C,C,C,C,7,7,7,7,7,7,7,7,7,7,7,C,C,C,C,C,1,F
2610 DATAF,1,C,C,C,7,1,7,7,7,7,7,7,7,7,7,1,7,C,A,C,C,1,F
2620 DATAF,1,A,C,7,7,7,1,1,1,1,1,1,1,1,1,7,7,7,C,C,C,1,F
2630 DATAF,1,C,C,7,7,7,1,7,7,7,7,7,7,7,1,7,7,7,C,A,C,1,F
2640 DATAF,1,C,C,C,7,1,7,7,7,7,7,7,7,7,7,1,7,7,C,C,C,1,F
2650 DATAF,1,C,A,C,C,C,1,1,1,1,1,1,1,1,1,C,7,7,C,C,C,1,F
2660 DATAF,1,C,C,C,C,1,7,7,7,7,7,7,7,7,7,1,C,C,A,C,C,1,F
2670 DATAF,1,C,C,C,1,1,7,7,7,7,7,1,1,1,1,1,1,C,C,C,C,1,F
2680 DATAF,1,C,C,C,1,1,7,1,1,1,7,1,1,1,1,1,1,C,C,C,A,1,F
2690 DATAF,1,C,C,C,C,C,1,7,7,7,1,1,1,1,1,C,C,C,C,C,C,1,F
2700 DATAF,1,A,C,C,C,C,C,C,C,C,A,C,C,C,C,C,A,C,A,C,A,1,F
2710 DATAF,1,C,A,C,C,C,C,C,C,C,C,C,C,A,C,C,C,C,C,C,C,1,F
2720 DATAF,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,F
2730 DATAF,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F:RETURN
3000 RESTORE3000:DATA18,16,0,0,0,0,0,0,0,F,F,F,F,F,0,0,0,0,0
3010 DATA0,0,0,0,F,F,F,F,1,1,1,F,F,F,F,0,0
3020 DATA0,0,0,0,F,1,1,1,1,F,1,1,1,1,F,F,F
3030 DATA0,0,0,F,F,1,F,F,F,1,F,F,F,1,1,1,F
3040 DATA0,0,F,F,1,1,F,F,F,1,F,F,F,F,F,1,F
3050 DATA0,F,F,1,1,F,1,F,F,F,F,F,F,F,F,1,F
3060 DATA0,F,1,1,F,F,F,1,1,F,F,F,F,1,1,1,F
3070 DATAF,F,1,F,F,F,1,F,F,1,1,1,1,F,1,1,F
3080 DATAF,1,1,F,F,F,1,F,1,F,F,1,F,F,F,1,F
3090 DATAF,1,F,F,1,F,1,1,1,F,F,1,F,F,F,1,F
3100 DATAF,1,F,F,1,F,F,F,F,F,F,F,1,F,F,1,F
3110 DATAF,1,F,F,1,F,F,1,F,F,F,F,F,1,1,1,F
3120 DATAF,1,1,F,F,1,1,F,F,F,F,F,F,1,F,F,F
3130 DATAF,1,F,F,F,F,1,F,F,F,F,F,1,1,1,1,F
3140 DATAF,1,F,F,F,F,F,1,F,F,F,F,1,F,F,1,F
3150 DATAF,1,1,F,F,F,1,1,1,F,F,F,F,F,1,1,F
3160 DATAF,F,1,1,F,F,F,F,1,1,F,F,F,1,1,F,F
3170 DATA0,F,F,1,1,1,1,1,1,1,1,1,1,1,F,F,0
3180 DATA0,0,F,F,F,F,F,F,F,F,F,F,F,F,F,0,0:RETURN
3500 RESTORE3500:DATA19,14,0,0,0,0,0,0,0,F,F,F,F,F,F,0,0
3510 DATA0,0,0,F,F,F,F,F,1,1,1,1,F,0,0
3520 DATA0,0,F,F,1,1,1,1,1,F,F,1,F,0,0
3530 DATA0,0,F,1,1,F,F,F,F,F,F,1,F,0,0
3540 DATA0,0,F,1,F,F,F,F,F,F,1,1,F,0,0
3550 DATA0,0,F,1,1,F,F,F,1,F,1,1,F,0,0
3560 DATA0,0,F,F,1,F,F,F,F,F,F,1,F,0,0
3570 DATA0,0,0,F,1,F,F,F,F,F,1,1,F,0,0
3580 DATA0,0,F,F,1,1,1,F,F,1,1,F,F,0,0
3590 DATA0,F,F,1,1,F,F,F,F,F,1,1,F,F,0
3600 DATAF,F,1,1,F,F,F,F,F,F,F,1,1,F,F
3610 DATAF,1,1,F,F,F,F,F,F,F,F,F,1,1,F
3620 DATAF,1,F,F,F,F,F,F,F,F,F,F,F,1,F
3630 DATAF,1,F,F,1,F,F,F,F,F,1,F,F,1,F
3640 DATAF,1,1,1,1,F,F,F,F,F,F,1,1,1,F
3650 DATAF,F,1,1,F,F,F,F,1,F,F,1,F,1,F
3660 DATA0,F,1,F,F,1,1,1,1,1,F,F,F,1,F
3670 DATA0,F,1,F,F,F,F,1,1,1,1,F,1,1,F
3680 DATA0,F,1,1,1,1,1,1,F,F,1,1,1,F,F
3690 DATA0,F,F,F,F,F,F,F,F,F,F,F,F,F,0:RETURN
4000 RESTORE4000:DATA19,16,0,0,0,0,0,F,F,F,F,F,F,F,0,0,0,0,0
4010 DATA0,0,0,0,F,F,1,1,1,1,1,F,F,0,0,0,0
4020 DATA0,0,0,0,F,1,1,6,9,6,1,1,F,0,0,0,0
4030 DATA0,0,0,0,F,1,6,9,9,9,6,1,F,0,0,0,0
4040 DATA0,0,0,0,F,1,9,F,9,F,9,1,F,0,0,0,0
4050 DATAF,F,F,F,F,1,6,9,D,9,6,1,F,F,F,F,F
4060 DATAF,1,1,1,1,1,1,6,6,6,1,1,1,1,1,1,F
4070 DATAF,1,6,9,F,9,9,9,9,9,9,9,F,9,6,1,F
4080 DATAF,1,6,9,F,9,9,9,3,9,9,9,F,9,6,1,F
4090 DATAF,1,1,F,6,6,9,9,9,9,9,6,6,F,1,1,F
4100 DATAF,F,1,1,1,1,9,9,3,9,9,1,1,1,1,F,F
4110 DATA0,F,F,F,F,1,6,9,9,9,6,1,F,F,F,F,0
4120 DATA0,0,F,F,1,1,6,F,F,F,6,1,1,F,F,0,0
4130 DATA0,F,F,1,1,6,9,9,9,9,9,6,1,1,F,F,0
4140 DATA0,F,1,1,6,9,9,9,6,9,9,9,6,1,1,F,0
4150 DATA0,F,1,6,F,9,9,6,1,6,9,9,F,6,1,F,0
4160 DATA0,F,1,6,9,F,6,1,1,1,6,F,9,6,1,F,0
4170 DATA0,F,1,1,6,6,1,1,F,1,1,6,6,1,1,F,0
4180 DATA0,F,F,1,1,1,1,F,F,F,1,1,1,1,F,F,0
4190 DATA0,0,F,F,F,F,F,F,0,F,F,F,F,F,F,0,0:RETURN
4500 RESTORE4500:DATA24,20,0,0,0,0,0,0,0,0,0,F,F,F,0,0,0,0,0,0,0,0,0
4510 DATA0,0,0,0,0,0,0,0,F,F,1,F,F,0,0,0,0,0,0,0,0
4520 DATA0,0,0,0,0,0,0,F,F,1,1,1,F,F,0,0,0,0,0,0,0
4530 DATA0,0,0,0,0,0,0,F,1,1,6,1,1,F,0,0,0,0,0,0,0
4540 DATA0,0,0,0,0,0,F,F,1,6,8,6,1,F,F,0,0,0,0,0,0
4550 DATA0,0,0,0,0,0,F,1,1,8,8,8,1,1,F,0,0,0,0,0,0
4560 DATA0,0,0,0,0,0,F,1,6,8,A,8,6,1,F,0,0,0,0,0,0
4570 DATA0,0,0,0,0,0,F,1,8,A,F,A,8,1,F,0,0,0,0,0,0
4580 DATA0,0,0,0,0,0,F,1,6,B,F,B,6,1,F,0,0,0,0,0,0
4590 DATA0,0,0,0,0,0,F,1,1,6,B,6,1,1,F,0,0,0,0,0,0
4600 DATA0,0,0,0,0,0,F,F,1,1,1,1,1,F,F,0,0,0,0,0,0
4610 DATA0,0,0,0,0,0,F,F,F,F,1,F,F,F,F,0,0,0,0,0,0
4620 DATA0,0,0,0,0,0,F,1,1,1,1,1,1,1,F,0,0,0,0,0,0
4630 DATA0,0,0,0,0,0,F,1,F,F,F,F,F,1,F,0,0,0,0,0,0
4640 DATA0,0,0,0,0,0,F,1,F,F,F,F,B,1,F,0,0,0,0,0,0
4650 DATA0,0,0,0,0,0,F,1,1,1,1,B,B,1,F,0,0,0,0,0,0
4660 DATA0,0,F,F,F,F,F,F,1,F,A,1,A,1,F,F,F,F,F,0,0
4670 DATA0,F,F,1,1,1,1,1,1,F,B,A,1,1,1,1,1,1,F,F,0
4680 DATAF,F,1,1,3,3,3,1,1,1,B,1,1,1,3,3,3,1,1,F,F
4690 DATAF,1,1,3,2,2,1,F,B,6,1,F,B,6,1,2,2,3,1,1,F
4700 DATAF,1,3,2,1,1,1,B,8,6,1,B,8,6,1,1,1,2,3,1,F
4710 DATAF,1,1,C,2,2,1,6,6,6,1,6,6,6,1,2,2,C,1,1,F
4720 DATAF,F,1,1,C,C,C,1,1,1,1,1,1,1,C,C,C,1,1,F,F
4730 DATA0,F,F,1,1,1,1,1,F,F,F,F,F,1,1,1,1,1,F,F,0
4740 DATA0,0,F,F,F,F,F,F,F,0,0,0,F,F,F,F,F,F,F,0,0:RETURN
5500 RESTORE5500:DATA22,41,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F,F,F,F,0,0,0,0,0,0,0,0,0,0,0,0
5510 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F,F,1,1,F,F,0,0,0,0,0,0,0,0,0,0,0
5520 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F,F,1,F,F,1,F,F,0,0,0,0,0,0,0,0,0,0
5530 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F,1,F,F,F,F,1,F,F,F,0,0,0,0,0,0,0,0
5540 DATA0,0,0,0,0,0,F,F,F,F,F,F,F,F,0,0,0,0,0,F,F,F,F,F,F,1,E,F,F,E,1,1,1,F,F,0,0,0,0,0,0,0
5550 DATA0,0,0,F,F,F,F,6,6,6,6,6,6,F,F,F,F,F,F,F,1,1,1,1,1,1,1,E,E,8,8,9,9,1,F,F,0,0,0,0,0,0
5560 DATAF,F,F,F,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,1,A,B,B,B,B,B,A,1,1,6,8,8,9,9,1,F,F,0,0,0,0,0
5570 DATAF,6,F,6,F,6,6,9,9,9,9,9,9,6,6,6,6,6,1,A,B,8,8,8,1,8,8,8,1,1,6,6,8,9,9,1,F,F,F,F,0,0
5580 DATAF,F,F,F,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1,B,8,8,1,8,8,8,8,1,1,6,8,8,8,8,9,9,1,1,1,F,F,0
5590 DATAF,9,F,9,F,9,9,B,B,B,B,B,1,1,1,1,9,9,1,B,8,8,8,8,8,8,1,E,E,1,5,E,F,F,F,F,1,E,E,1,F,0
5600 DATAF,F,F,F,B,B,B,B,B,B,B,1,E,E,E,1,1,1,1,B,8,8,8,8,8,8,1,E,5,E,1,5,E,E,E,1,E,5,E,1,F,0
5610 DATAF,B,F,B,F,B,B,3,3,3,3,1,1,E,E,E,E,E,1,B,8,8,8,1,8,8,1,E,5,E,E,1,1,1,1,E,E,5,E,1,F,0
5620 DATAF,F,F,F,3,3,3,3,3,3,3,3,3,1,1,1,1,E,1,B,8,8,8,8,8,8,1,E,E,E,E,E,E,E,E,E,E,E,E,1,F,F
5630 DATAF,3,F,3,F,3,3,5,5,5,5,5,5,3,3,3,1,1,1,B,8,8,8,8,8,1,E,E,E,F,1,E,E,E,E,E,F,1,E,E,1,F
5640 DATAF,F,F,F,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,B,8,1,8,8,8,1,E,E,E,1,1,E,E,E,E,E,1,1,E,E,1,F
5650 DATAF,5,F,5,F,5,5,D,D,D,D,D,D,5,5,5,5,5,1,B,8,8,8,1,8,1,E,9,9,E,E,E,E,E,E,E,E,E,9,9,1,F
5660 DATAF,F,F,F,D,D,D,D,D,D,D,D,D,D,D,D,D,D,1,B,B,8,1,8,8,1,E,9,9,E,1,E,E,1,E,E,1,E,9,9,1,F
5670 DATAF,D,F,D,F,D,D,F,F,F,F,F,F,D,D,1,1,1,1,A,B,B,8,8,8,8,1,E,E,E,1,1,1,1,1,1,1,E,E,1,F,F
5680 DATAF,F,F,F,F,F,F,F,0,0,0,0,F,F,1,E,E,E,1,1,A,A,A,A,A,A,A,1,E,E,E,E,E,E,E,E,E,E,1,F,F,0
5690 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,F,1,E,E,1,F,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,F,F,0,0
5700 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,F,1,1,1,F,F,F,1,E,E,1,F,F,F,1,E,E,1,F,1,E,E,1,F,F,F,0,0,0
5710 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,F,F,F,F,F,0,F,F,1,1,1,F,0,F,F,1,1,1,F,F,1,1,1,F,0,0,0,0,0
5720 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F,F,F,F,F,0,0,F,F,F,F,F,F,F,F,F,F,0,0,0,0,0:RETURN
6000 RESTORE6000:DATA25,27,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F
6010 DATAF,6,6,6,8,8,8,9,9,9,A,A,B,B,B,B,A,A,9,9,9,8,8,8,6,6,6,F
6020 DATAF,6,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,F
6030 DATAF,6,5,5,5,5,5,5,4,1,4,5,5,5,5,5,4,1,4,5,5,5,5,5,5,5,6,F
6040 DATAF,8,5,5,5,5,1,1,1,2,1,5,5,5,5,5,1,2,1,1,1,5,5,5,5,5,8,F
6050 DATAF,8,5,5,5,5,1,3,B,3,1,4,5,5,5,4,1,3,B,3,1,5,5,5,5,5,8,F
6060 DATAF,8,5,5,5,4,1,B,F,B,2,1,4,4,4,1,2,B,F,B,1,4,5,5,5,5,8,F
6070 DATAF,9,5,5,5,1,2,3,B,3,3,2,1,4,1,2,3,3,B,3,2,1,5,5,5,5,9,F
6080 DATAF,9,5,5,5,4,1,1,2,3,2,1,1,1,1,1,1,1,2,1,1,1,4,5,5,5,9,F
6090 DATAF,9,5,5,5,5,4,4,1,2,1,F,B,8,1,F,B,8,1,1,2,3,1,1,5,5,9,F
6100 DATAF,A,5,5,5,4,4,1,1,1,1,B,8,6,1,B,8,6,1,2,3,B,3,1,4,5,A,F
6110 DATAF,A,5,5,4,1,1,A,B,9,1,8,6,D,1,8,6,D,1,3,B,F,B,3,1,5,A,F
6120 DATAF,B,5,4,1,A,B,F,F,B,A,1,1,1,1,1,1,1,5,2,3,B,3,1,4,5,B,F
6130 DATAF,B,5,1,9,1,1,B,B,B,B,9,1,F,B,8,1,4,4,5,2,3,1,1,5,5,B,F
6140 DATAF,A,5,1,A,9,9,1,B,B,A,A,1,B,8,6,1,1,1,1,1,1,4,4,5,5,A,F
6150 DATAF,A,5,4,1,A,1,A,1,A,A,A,1,8,6,D,1,9,A,A,A,A,1,4,5,5,A,F
6160 DATAF,9,5,5,1,A,1,1,9,1,A,1,4,1,1,1,A,B,B,B,1,1,9,1,5,5,9,F
6170 DATAF,9,5,5,4,1,A,F,9,1,A,1,4,4,1,9,F,B,B,1,9,9,A,1,5,5,9,F
6180 DATAF,9,5,5,5,4,1,1,A,9,1,4,5,5,1,A,F,B,1,A,1,F,1,4,5,5,9,F
6190 DATAF,8,5,5,5,5,5,4,1,1,4,5,5,5,4,1,A,1,9,1,1,A,1,5,5,5,8,F
6200 DATAF,8,5,5,5,5,5,5,5,5,5,5,5,5,5,1,A,1,9,A,A,1,4,5,5,5,8,F
6210 DATAF,8,5,5,5,5,5,5,5,5,5,5,5,5,5,4,1,9,A,1,1,4,5,5,5,5,8,F
6220 DATAF,6,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,1,1,4,5,5,5,5,5,5,6,F
6230 DATAF,6,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,F
6240 DATAF,6,6,6,8,8,8,9,9,9,A,A,B,B,B,B,A,A,9,9,9,8,8,8,6,6,6,F
6250 DATAF,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F:RETURN
6500 RESTORE6500:DATA15,15,0,0,0,0,0,0,0,0,0,0,F,F,F,F,F,F
6510 DATA0,0,0,0,0,0,0,0,F,F,F,1,1,1,1,F
6520 DATA0,0,0,0,0,0,F,F,F,1,1,1,F,F,1,F
6530 DATA0,0,0,0,F,F,F,1,1,1,9,9,F,E,1,F
6540 DATA0,0,F,F,F,1,1,1,9,9,8,8,6,1,1,F
6550 DATA0,F,F,1,1,1,F,F,6,8,8,8,6,1,F,F
6560 DATAF,F,1,1,A,A,1,F,F,6,8,6,1,1,F,0
6570 DATAF,1,1,B,B,B,A,1,F,F,6,6,1,F,F,0
6580 DATAF,1,A,1,B,1,B,A,1,F,E,1,1,F,0,0
6590 DATAF,1,B,B,B,B,B,B,A,1,E,1,F,F,0,0
6600 DATAF,1,1,1,1,1,1,1,B,A,1,1,F,0,0,0
6610 DATAF,F,F,F,F,1,1,B,B,A,1,F,F,0,0,0
6620 DATA0,0,0,F,1,1,B,B,B,1,1,F,0,0,0,0
6630 DATA0,0,0,F,1,A,A,A,1,1,F,F,0,0,0,0
6640 DATA0,0,0,F,1,1,1,1,1,F,F,0,0,0,0,0
6650 DATA0,0,0,F,F,F,F,F,F,F,0,0,0,0,0,0:RETURN
7000 RESTORE7000:DATA12,14,0,0,F,F,F,F,F,F,F,F,F,F,F,0,0
7010 DATA0,0,F,1,1,1,1,F,1,1,1,1,F,0,0
7020 DATA0,0,F,1,9,9,1,1,1,9,9,1,F,0,0
7030 DATAF,F,F,1,8,6,1,8,1,6,8,1,F,F,F
7040 DATAF,1,1,1,1,1,1,1,1,1,1,1,1,1,F
7050 DATAF,1,B,F,F,B,1,9,1,B,B,F,F,1,F
7060 DATAF,1,B,B,F,F,1,8,1,F,B,B,F,1,F
7070 DATAF,1,F,B,B,F,1,8,1,F,F,B,B,1,F
7080 DATAF,1,F,F,B,B,1,6,1,B,F,F,B,1,F
7090 DATAF,1,B,F,F,B,1,6,1,B,B,F,F,1,F
7100 DATAF,1,B,B,F,F,1,6,1,F,B,B,F,1,F
7110 DATAF,1,1,1,1,1,1,1,1,1,1,1,1,1,F
7120 DATAF,F,F,F,F,F,F,F,F,F,F,F,F,F,F:RETURN
7500 RESTORE7500:DATA31,21,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
7510 DATA1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
7520 DATA1,4,9,9,9,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
7530 DATA1,4,9,1,9,9,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1
7540 DATA1,E,9,9,1,9,2,E,1,1,1,1,1,1,E,2,E,2,E,E,2,1
7550 DATA1,2,2,9,1,9,9,1,1,1,1,1,1,1,1,2,E,E,2,2,2,1
7560 DATA1,E,E,E,9,1,9,1,9,9,9,9,9,9,9,1,E,E,E,E,E,1
7570 DATA1,E,2,E,9,9,1,9,9,1,1,1,1,1,1,9,1,2,E,E,2,1
7580 DATA1,E,E,E,E,9,9,1,1,1,1,1,1,1,1,1,9,E,E,E,E,1
7590 DATA1,F,F,F,1,9,1,1,9,9,9,9,9,9,9,1,1,F,F,F,F,1
7600 DATA1,2,2,E,9,9,1,9,9,1,9,9,9,1,9,9,1,E,2,2,2,1
7610 DATA1,E,E,E,9,1,1,9,9,1,9,9,9,1,9,9,1,E,E,E,E,1
7620 DATA1,E,E,E,1,1,9,9,9,9,9,9,9,9,9,9,E,E,E,E,E,1
7630 DATA1,E,E,E,1,1,9,9,9,1,9,9,9,1,9,9,E,E,E,E,E,1
7640 DATA1,E,E,E,E,1,1,9,9,9,1,1,1,9,9,9,E,E,E,E,E,1
7650 DATA1,E,E,E,2,2,1,1,9,9,9,9,9,9,9,E,E,E,E,E,E,1
7660 DATA1,E,E,2,2,E,E,E,9,9,9,9,9,9,E,E,E,2,E,E,E,1
7670 DATA1,E,2,2,2,E,E,6,9,9,9,9,9,6,E,E,2,E,E,E,2,1
7680 DATA1,2,2,2,E,9,9,6,6,9,9,9,9,6,9,9,2,E,2,2,2,1
7690 DATA1,2,2,2,9,9,9,6,6,9,9,9,9,6,9,9,9,2,2,2,2,1
7700 DATA1,A,A,9,9,9,9,6,6,6,9,9,6,6,9,9,9,9,9,9,A,1
7710 DATA1,A,9,9,9,9,A,6,6,6,9,9,6,6,A,A,9,9,9,9,A,1
7720 DATA1,A,9,9,9,A,A,9,9,9,9,9,9,9,A,A,A,A,A,A,A,1
7730 DATA1,A,A,A,A,A,A,6,6,6,6,6,6,6,A,A,A,A,A,A,A,1
7740 DATA1,A,A,A,A,A,A,6,6,6,6,6,6,6,9,A,A,A,A,A,A,1
7750 DATA1,A,A,A,A,A,9,9,6,6,6,6,6,9,9,A,A,A,A,A,A,1
7760 DATA1,A,A,A,9,9,9,9,9,A,A,A,A,9,9,9,A,9,A,A,A,1
7770 DATA1,A,A,A,9,9,9,9,A,A,A,A,A,9,9,9,9,9,A,A,A,1
7780 DATA1,A,A,A,9,9,9,A,A,A,A,A,A,A,9,9,9,9,A,A,A,1
7790 DATA1,A,A,A,A,9,9,9,9,A,A,A,A,A,9,9,A,A,A,A,A,1
7800 DATA1,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,1
7810 DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:RETURN
8000 RESTORE8000:DATA19,14,0,0,0,0,0,F,F,F,F,F,0,0,0,0,0
8010 DATA0,0,0,0,F,F,1,1,1,F,F,0,0,0,0
8020 DATA0,0,0,0,F,1,1,B,1,1,F,0,0,0,0
8030 DATA0,0,0,0,F,1,B,F,B,1,F,0,0,0,0
8040 DATA0,0,0,0,F,1,9,B,9,1,F,0,0,0,0
8050 DATA0,0,0,0,F,1,1,7,1,1,F,0,0,0,0
8060 DATA0,0,0,F,F,1,F,3,F,1,F,F,0,0,0
8070 DATA0,0,0,F,1,1,2,F,2,1,1,F,0,0,0
8080 DATA0,0,F,F,1,C,9,3,7,C,1,F,F,0,0
8090 DATA0,0,F,1,1,F,2,3,5,F,1,1,F,0,0
8100 DATA0,F,F,1,C,2,F,F,F,B,C,1,F,F,0
8110 DATA0,F,1,1,C,9,5,3,3,2,9,1,1,F,0
8120 DATAF,F,1,C,F,2,3,3,9,2,F,C,1,F,F
8130 DATAF,1,1,C,2,F,B,3,3,F,2,5,1,1,F
8140 DATAF,1,B,C,9,2,F,F,F,2,7,9,C,1,F
8150 DATAF,1,C,5,2,7,3,3,B,5,2,C,C,1,F
8160 DATAF,1,1,1,1,9,8,6,8,9,1,1,1,1,F
8170 DATAF,F,F,F,1,1,8,6,8,1,1,F,F,F,F
8180 DATA0,0,0,F,F,1,1,1,1,1,F,F,0,0,0
8190 DATA0,0,0,0,F,F,F,F,F,F,F,0,0,0,0:RETURN
8500 RESTORE8500:DATA16,12,0,0,F,F,F,F,F,F,F,F,F,F,F
8510 DATA0,0,F,1,1,1,1,1,1,1,1,1,F
8520 DATA0,0,F,1,F,F,F,F,F,F,F,1,F
8530 DATA0,0,F,1,7,7,7,7,7,7,7,1,F
8540 DATA0,0,F,1,1,8,8,8,8,8,1,1,F
8550 DATA0,0,F,F,1,A,B,B,B,A,1,F,F
8560 DATA0,0,0,F,1,9,9,9,9,8,1,F,0
8570 DATA0,0,F,F,1,9,9,9,9,8,1,F,0
8580 DATA0,F,F,1,1,9,9,9,9,8,1,F,0
8590 DATAF,F,1,1,9,9,9,9,9,8,1,F,0
8600 DATAF,1,1,9,9,9,9,9,8,6,1,F,0
8610 DATAF,1,A,9,9,9,9,8,6,1,1,F,0
8620 DATAF,1,9,B,9,9,8,6,1,1,F,F,0
8630 DATAF,1,8,9,B,A,8,1,1,F,F,0,0
8640 DATAF,1,1,8,8,8,1,1,F,F,0,0,0
8650 DATAF,F,1,1,1,1,1,F,F,0,0,0,0
8660 DATA0,F,F,F,F,F,F,F,0,0,0,0,0:RETURN
9000 RESTORE9000:DATA35,31,0,0,0,0,0,F,F,F,F,F,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9010 DATA0,0,0,0,0,F,1,1,1,F,F,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F,F,F,F,F,F
9020 DATA0,0,0,0,0,F,1,6,1,1,F,F,0,0,0,0,0,0,0,0,0,0,0,0,F,F,F,1,1,1,1,F
9030 DATA0,0,0,0,0,F,1,6,6,1,1,F,0,0,0,0,0,0,0,0,F,F,F,F,F,1,1,1,F,F,1,F
9040 DATA0,0,0,0,0,F,1,6,6,6,1,F,F,0,F,F,F,F,F,F,F,1,1,1,1,1,6,6,F,F,1,F
9050 DATA0,0,0,0,0,F,1,6,6,6,1,1,F,F,F,1,1,1,1,1,1,1,F,F,6,6,6,6,6,1,1,F
9060 DATA0,0,0,0,0,F,1,1,6,6,6,1,F,1,1,1,6,6,6,6,6,1,F,F,F,6,6,6,6,1,F,F
9070 DATA0,0,0,0,0,F,F,1,6,6,6,1,1,1,6,6,F,6,F,F,F,F,1,F,F,F,6,6,1,1,F,0
9080 DATA0,0,0,0,0,0,F,1,6,6,6,1,1,6,F,6,6,F,F,F,F,F,F,1,F,F,F,6,1,F,F,0
9090 DATA0,0,0,0,0,0,F,1,6,6,6,6,6,F,6,6,6,F,F,F,1,1,F,F,1,F,F,F,1,F,0,0
9100 DATA0,0,0,0,0,0,F,1,6,6,6,6,6,6,6,6,6,F,F,F,F,1,F,F,F,1,F,F,1,F,0,0
9110 DATA0,0,0,0,0,F,F,1,6,6,6,6,6,6,6,A,A,A,A,A,A,F,F,1,1,F,1,1,1,F,0,0
9120 DATA0,0,0,0,0,F,1,1,6,6,6,6,6,6,A,A,A,A,A,A,A,A,A,1,F,F,6,1,F,F,0,0
9130 DATA0,0,0,0,0,F,1,6,6,6,6,6,6,6,A,A,A,A,1,A,A,A,A,F,F,F,6,1,F,0,0,0
9140 DATA0,0,0,0,F,F,1,6,6,6,6,6,6,6,A,A,A,A,1,1,A,A,A,F,F,6,6,1,F,0,0,0
9150 DATA0,0,0,0,F,1,1,6,6,6,6,6,6,6,A,A,A,A,1,1,1,A,1,A,6,6,1,1,F,0,0,0
9160 DATA0,0,0,0,F,1,6,6,6,6,6,6,F,F,F,A,A,A,1,1,A,1,A,A,6,6,1,F,F,0,0,0
9170 DATA0,0,0,0,F,1,6,6,6,6,F,F,F,F,F,F,A,A,1,A,A,A,A,A,6,1,1,F,0,0,0,0
9180 DATA0,0,0,F,F,1,6,6,6,F,F,F,F,F,F,F,F,A,A,A,A,A,F,6,6,1,1,F,F,0,0,0
9190 DATA0,0,0,F,1,1,6,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,6,1,1,F,0,0,0
9200 DATA0,0,0,F,1,6,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,6,1,F,0,0,0
9210 DATA0,0,0,F,1,6,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,6,1,F,0,0,0
9220 DATA0,0,0,F,1,6,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,6,1,F,0,0,0
9230 DATA0,0,0,F,1,6,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,6,1,F,0,0,0
9240 DATA0,0,0,F,1,6,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,1,1,F,0,0,0
9250 DATA0,0,0,F,1,6,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,1,1,F,F,F,0,0
9260 DATA0,F,F,F,1,1,6,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,6,6,1,1,1,F,0,0
9270 DATAF,F,1,1,1,1,1,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,1,6,6,6,1,F,0,0
9280 DATAF,1,1,A,A,A,1,6,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,1,1,1,1,1,F,0,0
9290 DATAF,1,A,A,A,A,A,A,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,1,1,1,F,F,F,F,0,0
9300 DATAF,1,A,A,A,A,A,A,A,F,F,F,F,F,F,F,F,F,F,F,F,F,F,A,A,1,1,1,F,0,0,0
9310 DATAF,1,1,1,A,A,A,A,A,A,F,F,F,F,F,F,F,F,F,F,F,F,A,A,A,A,A,1,F,0,0,0
9320 DATAF,F,F,1,1,A,A,A,A,A,1,F,F,F,F,F,F,F,F,1,A,A,A,A,A,A,A,1,F,0,0,0
9330 DATA0,0,F,F,1,1,1,A,A,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,F,0,0,0
9340 DATA0,0,0,F,F,F,1,1,1,1,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,0,0,0
9350 DATA0,0,0,0,0,F,F,F,F,F,F,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:RETURN
9500 RESTORE9500:DATA15,39,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F
9510 DATAF,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,F,6,B,F,B,6,F,B,6,6,6,6,F,F,6,F
9520 DATAF,1,F,7,1,7,F,1,F,7,7,1,F,7,7,1,F,7,7,1,F,1,F,1,F,6,6,B,6,6,F,6,F,F,F,6,B,B,6,F
9530 DATAF,1,7,7,7,7,7,1,7,4,4,1,7,4,7,1,7,4,7,1,7,1,7,1,F,6,B,6,B,6,F,B,6,B,F,B,6,6,B,F
9540 DATAF,1,7,4,7,4,7,1,7,7,1,1,7,7,7,1,7,7,7,1,7,7,7,1,F,6,F,B,F,6,F,F,F,6,F,6,B,B,6,F
9550 DATAF,1,7,1,4,1,7,1,7,4,1,1,7,7,4,1,7,7,4,1,4,7,4,1,F,6,F,F,F,6,6,6,6,B,F,6,F,F,6,F
9560 DATAF,1,7,1,1,1,7,1,7,7,7,7,7,4,7,1,7,4,7,1,1,7,1,1,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F
9570 DATAF,1,4,1,1,1,4,1,4,4,4,4,4,1,4,1,4,1,4,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,F
9580 DATAF,1,F,7,7,1,F,1,F,1,F,7,7,1,F,1,F,7,7,1,F,7,7,7,F,7,1,7,F,1,7,F,7,7,1,F,7,7,1,F
9590 DATAF,1,7,4,4,1,7,1,7,1,7,4,7,1,7,1,7,4,4,1,4,7,4,4,7,7,7,7,7,1,7,4,4,7,1,7,4,4,1,F
9600 DATAF,1,7,1,1,1,7,7,7,1,7,7,7,1,7,1,7,7,7,1,1,7,1,1,7,4,7,4,7,1,7,7,7,7,1,7,7,7,1,F
9610 DATAF,1,7,1,1,1,7,4,7,1,7,7,4,1,7,1,4,4,7,1,1,7,1,1,7,1,4,1,7,1,7,4,4,7,1,4,4,7,1,F
9620 DATAF,1,7,7,7,7,7,1,7,1,7,4,7,1,7,7,7,7,7,1,1,7,1,1,7,1,1,1,7,1,7,1,1,7,7,7,7,7,1,F
9630 DATAF,1,4,4,4,4,4,1,4,1,4,1,4,1,4,4,4,4,4,1,1,4,1,1,4,1,F,1,4,1,4,1,1,4,4,4,4,4,1,F
9640 DATAF,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,F,1,1,1,1,1,1,1,1,1,1,1,1,F
9650 DATAF,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F,F:RETURN
10000 SCREEN0:WIDTH40:BEEP:PRINT"Made in 2019 by Alberto (BCO) Sgaggero  of (4)Fourseasons team!                 http://fourseasons.altervista.org       Merry Christmas to all MSX fans!"

MSX Christmas mini-demo 2019! (BASIC)

Video: https://youtu.be/-i_SZ1lYxaM




FLAPPY THING
A small program that produces a clone of the famous game Flappy Bird [https://it.wikipedia.org/wiki/Flappy_Bird] by Dong Nguyen. MSX-BASIC version Made by BCO in 2015. Have fun!

1 DEFUSR=&H156:GOSUB21:GOSUB7:ONSPRITEGOSUB15:SPRITEON
2 A=0:V#=V#+.4:IFSTRIG(0)ANDV#>.8THENV#=-3:A=1:PLAY"s10m256l8o2c"
3 Y#=Y#+V#:IFY#<8ORY#>160THENGOSUB15
4 X=X-2:IFX<-32THENGOSUB7
5 SPRITEOFF:PUTSPRITE0,(32,Y#),11,A:PUTSPRITE1,(X,Y(0)),9,2:PUTSPRITE2,(X,Y(1)),9,2:PUTSPRITE3,(X,Y(2)),9,2:PUTSPRITE4,(X,Y(3)),9,2:SPRITEON
6 GOTO2
7 SC=SC+1:Y(0)=15:Y(1)=47:Y(2)=79:Y(3)=111:C=C+2:X=256-C:K=USR(0)
8 IF256-C<=160THENC=0
9 B=B+(INT(RND(-TIME)*3)-1)
10 IFB<0THENB=0
11 IFB>4THENB=4
12 Y(B)=143
13 PLAY"s10m512l16o5cegl32ceg":LOCATE0,0:PRINT"SCORE: "SC
14 RETURN
15 SPRITEOFF
16 FORT=1TO32:SOUND0,INT(RND(-TIME)*256):SOUND1,0:SOUND8,15:PUTSPRITE0,(32+(INT(RND(-TIME)*3)-1),Y#+(INT(RND(-TIME)*3)-1)),INT(RND(-TIME)*16),1:NEXT:BEEP
17 SCREEN1:COLOR15,4,1
18 LOCATE11,4:PRINT"NICE FLY!":LOCATE7,6:PRINT"Your score is:";SC
19 LOCATE2,8:K=USR(0):PRINT "Press <space> to play again!":LOCATE1,12:PRINT"www.fourseasons.altervista.org":LOCATE6,14:PRINT"Have a nice day! :)":IFSTRIG(0)THENRUN
20 GOTO19
rem 21 SCREEN1,3,0:KEYOFF:WIDTH32:CLS:DEFINTA-Z:STOPON:ONSTOPGOSUB37
21 SCREEN1,3,0:KEYOFF:WIDTH32:CLS:DEFINTA-Z
22 DIMY(4):V=0:B=2:Y#=63:C=0:SC=0
23 FORN=0TO2:S$="":FORS=0TO31:READD$:S$=S$+CHR$(VAL("&H"+D$)):NEXT:SPRITE$(N)=S$:NEXT
24 DATA00,00,00,00,C7,EF,77,3B,1F,0F,0F,07,00,00,00,00
25 DATA00,00,00,00,F0,F8,E8,FF,F8,FE,F8,F0,00,00,00,00
26 DATA00,00,00,00,07,0F,0F,1F,3B,77,EF,C7,00,00,00,00
27 DATA00,00,00,00,F0,F8,EF,F8,F8,FE,F8,F0,00,00,00,00
28 DATA3F,7F,FF,FF,FF,FF,FF,FF,BF,FF,BF,DF,AA,95,40,3F
29 DATAFC,52,E9,F5,F9,F5,F9,F5,F9,F5,E9,D5,A9,51,02,FC
30 CT=BASE(7)+35*8:FORI=0TO7:VPOKECT+I,255:NEXT
31 PLAY"s10m512l32o4CFr32FGr32GAo5Co4AFr32CFr32FGr32GAr32r32Fr32CFr32FGr32GAo5Co4AFr32r32o5Dr32r32o4Gr32A#Ar32r32F"
32 LOCATE7,3:PRINT"-= FLAPPY THING =-"
33 LOCATE6,7:PRINT"Push <SPACE> to flap!"
34 LOCATE1,11:PRINT "(C)2015 Alberto (BCO) Sgaggero"
35 COLOR15,4,INT(RND(1)*16):IFSTRIG(0)THEN36ELSE35
36 BEEP:CLS:COLOR2,4,1:Z=BASE(5):FORN=0TO31:VPOKEZ+(32*1)+N,35:VPOKEZ+(32*22)+N,35:VPOKEZ+(32*23)+N,35:NEXT:RETURN
37 RETURN

MSX - Flappy Thing (BASIC)

Video: https://www.youtube.com/watch?v=4SsRG2P8kuw




MSX - SCREEN 1 Kaleidoscope of ASCII characters, ver. 2.0.
Here we are again with the small MSX-BASIC program which produces a colorful geometric pattern (in SCREEN 1) made by random ASCII characters (you can find it down in this page).
In this version isn't the BG-FG colors that changes, but only the colors of the characters every few seconds.

10 screen 1:color 15,4,1:width 32:key off
20 def fncc(x,y)=6144+(y*32+x)
30 on interval=320 gosub 280:interval on
40 cx=int(rnd(1)*16)
50 cy=int(rnd(1)*13)
60 n=int(rnd(1)*14)+1
70 on n gosub 140,150,160,170,180,190,200,210,220,230,240,250,270
80 vpoke fncc(cx+c,cy+r),c1
90 vpoke fncc(31-cx+c,cy+r),c2
100 vpoke fncc(cx+c,23-cy+r),c3
110 vpoke fncc(31-cx+c,23-cy+r),c4
120 a$=inkey$:if a$<>"" then cls
130 goto 40
140 c1=193:c2=199:c3=199:c4=193:return
150 c1=211:c2=213:c3=214:c4=212:return
160 c1=221:c2=222:c3=221:c4=222:return
170 c1=209:c2=209:c3=209:c4=209:return
180 c1=210:c2=210:c3=210:c4=210:return
190 c1=192:c2=192:c3=195:c4=195 :return
200 c1=24:c2=25:c3=26:c4=27:return
210 c1=29:c2=30:c3=30:c4=29:return
220 c1=30:c2=29:c3=29:c4=30:return
230 c1=28:c2=28:c3=28:c4=28:return
240 c1=8:c2=8:c3=8:c4=8:return
250 c1=194:c2=194:c3=197:c4=197:return
260 c1=203:c2=204:c3=204:c4=203:return
270 c1=205:c2=205:c3=206:c4=206:return
280 for z=0 to 31:vpoke 8192+z,16*(rnd(1)*15)+rnd(1)*15:next:return

MSX - SCREEN 1 Kaleidoscope of ASCII characters, ver 2.0 (BASIC)




MSX Christmas mini-demo 2017! (2017)
A little DEMO about Christmas, made by BCO of (4)Seasons team in MSX-BASIC (SCREEN 2).
Enjoy it! I wish you all a merry Christmas and an happy 2018!

10 COLOR 15,1,1:SCREEN 2,2:OPEN "grp:" FOR OUTPUT AS#1
20 READ P
30 IF P = -1 THEN 870
40 ON P GOSUB 60,130,160,190
50 GOTO 20
60 READ C: READ X: READ Y
70 PSET (X,Y),C
80 READ X
90 IF X=-1 THEN 120
100 READ Y : LINE -(X,Y),C
110 GOTO 80
120 RETURN
130 READ X: READ Y: READ C
140 PAINT (X,Y),C
150 RETURN
160 READ X: READ Y: READ R: READ C: READ S:
170 CIRCLE (X,Y),R,C,,,S
180 RETURN
190 REM "box"
200 RETURN
210 DATA 3,92,52,35,4,1
220 DATA 2,92,52,4
230 DATA 3,137,68,9,11,0.83
240 DATA 2,137,68,11
250 DATA 1,9,152,55,155,54,159,50,159,79,152,79,152,55,-1
260 DATA 2,154,57,9
270 DATA 1,2,160,50,163,50,167,52,167,79,160,79,160,50,-1
280 DATA 2,162,52,2
290 DATA 1,9,168,52,175,60,175,76,172,78,168,79,168,52,-1
300 DATA 2,172,62,9
310 DATA 1,2,176,61,179,65,183,67,183,71,179,72,176,75,176,61,-1
320 DATA 2,179,69,2
330 DATA 1,9,184,67,191,65,191,70,184,71,184,67,-1
340 DATA 2,188,68,9
350 DATA 1,2,192,65,196,64,195,67,192,70,192,65,-1
360 DATA 2,194,66,2
370 DATA 1,3,144,53,145,51,147,50,150,52,151,55,152,58,158,67,159,72,159,79,158,82,155,83,144,83,144,53,-1
380 DATA 2,151,68,3
390 DATA 3,93,124,25,15,0.8
400 DATA 2,93,124,15
410 DATA 1,11,144,93,149,93,152,91,155,90,158,91,161,93,163,93,161,94,160,96,160,100,155,99,149,95,144,93,-1
420 DATA 2,155,95,11
430 DATA 1,11,137,60,143,59,147,57,148,61,153,69,154,73,153,78,149,81,146,79,146,90,136,88,140,83,142,81,143,79,142,76,137,75,137,60,-1
440 DATA 2,145,69,11
450 DATA 1,11,146,90,145,92,143,93,143,99,146,99,149,100,151,103,151,109,128,109,128,103,129,100,132,99,139,99,139,93,137,91,136,88,146,90,-1
460 DATA 2,141,93,11
470 DATA 3,140,122,19,15,1
480 DATA 2,140,122,15
490 DATA 1,1,136,76,142,76,145,75,147,73,-1
500 DATA 1,15,154,124,173,124,172,120,171,116,169,111,168,104,169,101,170,98,172,97,175,96,181,95,189,135,154,135,154,124,-1
510 DATA 2,175,101,15
520 DATA 3,92,60,6,1,0.7
530 DATA 2,92,60,1
540 DATA 3,92,88,23,15,1.2
550 DATA 2,92,88,15
560 DATA 1,1,72,87,111,87,113,109,115,115,119,117,125,117,125,140,68,123,68,120,70,112,71,103,72,87,-1
570 DATA 2,92,108,1
580 DATA 1,15,72,87,111,87,113,109,115,115,119,117,125,117,125,140,68,123,68,120,70,112,71,103,72,87,-1
590 DATA 2,92,108,15
600 DATA 1,9,48,136,207,136,219,191,35,191,48,136,-1
610 DATA 2,68,156,9
620 DATA 3,92,59,3,15,0.4
630 DATA 2,92,59,15
640 DATA 3,83,112,3,1,0.3
650 DATA 1,1,176,104,185,104,-1
660 DATA 1,1,180,114,186,114,-1
670 DATA 3,142,64,2,1,2.1
680 DATA 1,15,136,136,154,136,154,139,152,141,143,141,138,139,136,136,-1
690 DATA 2,143,138,15
700 DATA 1,1,144,136,144,141,-1
710 DATA 1,1,149,133,151,141,-1
720 DATA 1,1,140,88,143,93,-1
730 DATA 1,11,128,80,135,80,138,81,139,83,139,87,136,87,133,87,133,85,129,84,128,82,128,80,-1
740 DATA 2,132,82,11
750 DATA 1,12,80,75,92,79,98,70,103,74,-1
760 DATA 1,12,63,99,62,92,72,88,84,95,92,90,103,91,112,88,121,91,124,80,133,80,-1
770 DATA 1,1,128,85,135,85,-1
780 DATA 1,1,129,120,145,120,149,121,153,126,154,130,154,135,-1
790 DATA 1,5,118,117,121,117,120,135,116,135,118,117,-1
800 DATA 2,118,133,5
810 DATA 1,1,136,88,138,85,140,83,-1
820 DATA 3,196,60,4,15,1
830 DATA 2,196,60,15
840 DATA 3,91,157,30,1,5.7
850 DATA 2,91,157,1
860 DATA 1,1,40,170,214,170,-1
870 DATA -1: REM fine disegno
880 S$="":FOR S=0TO31:READ D$:S$=S$+CHR$(VAL("&H"+D$)):NEXT:SPRITE$(0)=S$
890 DATA 01,01,03,03,07,FF,7F,3F,1F,0F,1F,1F,3F,3E,70,40,80,80,C0,C0,E0,FF,FE,FC,F8,F0,F8,F8,FC,7C,0E,02
900 PUT SPRITE 0,(84,42),11,0
910 S$="":FOR S=0TO7:READ D$:S$=S$+CHR$(VAL("&H"+D$)):NEXT:SPRITE$(1)=S$
920 DATA 3c,7e,ff,ff,ff,ff,7e,3c
930 DIM A$(10):T=0:C=0
940 A$(0)="Hi guys and welcome to..."
950 A$(1)="MSX Christmas mini-demo 2017!"
960 A$(2)="By Alberto 'BCO' Sgaggero..."
970 A$(3)="...and Charles M. Schulz!"
980 A$(4)="Merry Christmas to all!"
990 A$(5)="Happy 2018!"
1000 A$(6)="Joy to the world!"
1010 A$(7)="Viva MSX!"
1020 A$(8)="www.fourseasons.altervista.org"
1030 A$(9)=""
1040 IF T<50 THEN T=T+1
1050 IF T=50 THEN LINE(0,0)-(256,8),1,BF:PSET(0,0),1:COLOR 15:PRINT#1,A$(C MOD 10):T=0:C=C+1
1060 PUT SPRITE 1,(72,70),INT(RND(1)*15)+1,1
1070 PUT SPRITE 2,(88,76),INT(RND(1)*15)+1,1
1080 PUT SPRITE 3,(102,72),INT(RND(1)*15)+1,1
1090 PUT SPRITE 4,(119,75),INT(RND(1)*15)+1,1
1100 PUT SPRITE 5,(62,96),INT(RND(1)*15)+1,1
1110 PUT SPRITE 6,(81,93),INT(RND(1)*15)+1,1
1120 PUT SPRITE 7,(100,90),INT(RND(1)*15)+1,1
1130 GOTO 990

MSX Christmas mini-demo 2017! (BASIC)




Mr. Moneyed wants money! (2015)
A small game, made by BCO and developed in MSX-BASIC, released in 2017.
Guide Mr. Moneyed through the walls of Wall Street! Press 'z' to change direction by 90° clockwise. The broom bonus clears all the walls!
Take money!
Avoids the Walls!

1 DEFUSR=&H156: GOSUB 72: GOSUB 42: GOSUB 20: GOSUB 21
2 ON INTERVAL=INT(RND(1)*150)+(10-V)*75 GOSUB 22: INTERVAL ON: ON SPRITE GOSUB 23: SPRITE ON
3 IF INKEY$="z" THEN K=USR(0):ON DP GOSUB 13,14,15,16
4 XP=XP+XV:YP=YP+YV
5 IF XP=0 THEN GOSUB 16
6 IF YP=0 THEN GOSUB 13
7 IF XP=248 THEN GOSUB 14
8 IF YP=176 THEN GOSUB 15
9 C$=CHR$(VPEEK(FN CN(XP,YP)))
10 IF C$<>" " THEN GOSUB 17
11 PUT SPRITE 0,(XP,YP),11
12 GOTO 3
13 XV=0:YV=V:DP=2:RETURN
14 XV=-V:YV=0:DP=3:RETURN
15 XV=0:YV=-V:DP=4:RETURN
16 XV=V:YV=0:DP=1:RETURN
17 IF C$="é" THEN SC=SC+10*V: PLAY "l16o4cl4o7c": GOSUB 20: GOSUB 21
18 IF C$="ì" THEN GOSUB 25
19 RETURN
20 FOR N=1 TO 4:LOCATE INT(RND(1)*32),INT(RND(1)*23):PRINT "ì":NEXT:LOCATE 0,0:PRINT "SCORE"STR$(SC):RETURN
21 LOCATE INT((XP+4)/8),INT((YP+4)/8):PRINT " ":LOCATE INT(RND(1)*15)*2+1,INT(RND(1)*11)*2+1:PRINT "é":RETURN
22 PUT SPRITE 1,(INT(RND(1)*304),INT(RND(1)*176)),7:ON INTERVAL=250 GOSUB 24:INTERVAL ON:RETURN
23 CLS:SPRITE OFF:PUT SPRITE 1,(0,192),4:PLAY"l16o5cegceg":GOSUB 20:GOSUB 21:RETURN
24 PUT SPRITE 1,(0,192),4:SPRITE ON:ON INTERVAL=INT(RND(1)*150)+(10-V)*75 GOSUB 22:INTERVAL ON:RETURN
25 FOR T=63 TO 0 STEP -1
26 PUT SPRITE 0,(XP+INT(RND(1)*7)-3,YP+INT(RND(1)*7)-3),13
27 SOUND 6,INT(RND(1)*64)
28 SOUND 7,55
29 SOUND 8,INT(T/4)
30 NEXT
31 CLS: GOSUB 24: INTERVAL OFF: SOUND 7,56
32 PRINT
33 PRINT:PRINT "ééé Good Job! ééé              "
34 PRINT:PRINT "Your score is:                 "
35 PRINT:PRINT SC
36 PRINT:PRINT "Play again?"
37 K=USR(0)
38 YN$=INKEY$:PUT SPRITE 0,(0,0),INT(RND(1)*16)
39 IF YN$="y" THEN RUN
40 IF YN$="n" THEN PRINT"www.fourseasons.altervista.org":PRINT:PRINT "Have a nice day!":END
41 GOTO 38
42 CLS
43 PRINT "ììììììììììììììììììììììììììììììì"
44 PRINT "ì                             ì"
45 PRINT "ì é MR.MONEYED WANTS MONEY! é ì"
46 PRINT "ì                             ì"
47 PRINT "ììììììììììììììììììììììììììììììì "
48 PRINT "(C) 2015 Alberto (BCO) Sgaggero "
49 PRINT "ììììììììììììììììììììììììììììììì "
50 PRINT " Guide  Mr.Moneyed through the "
51 PRINT " walls of Wall Street!         "
52 PRINT " Press 'z' to change direction "
53 PRINT " by 90ø clockwise.             "
54 PRINT " Take money! Avoids the Walls! "
55 PRINT " The  broom bonus  clears  all "
56 PRINT " walls!                         "
57 PRINT "ììììììììììììììììììììììììììììììì "
58 PRINT " Press 'spacebar' to continue. "
59 K=USR(0)
60 P$=INKEY$:IF P$<>" " THEN GOTO 60
61 CLS: PRINT "WICH LEVEL?"
62 PRINT "(1) Yawn"
63 PRINT "(2) Normal"
64 PRINT "(3) Are you nuts?!"
65 INPUT V
66 IF V=1 THEN V=2:GOTO 70
67 IF V=2 THEN V=4:GOTO 70
68 IF V=3 THEN V=8:GOTO 70
69 GOTO 65
70 CLS:XP=128:YP=88:XV=V:YV=0:DP=1:P$="":SC=0
71 RETURN
72 SCREEN 1,2: KEY OFF : WIDTH 32: CLS : COLOR 15,1,4: DEFINT A-Z
73 A=BASE(5):B=BASE(6):DEFFN CN(X,Y)=A+INT((Y+4)/8)*32+INT((X+4)/8)
74 FOR N=0TO1:S$="":FOR S=0TO7:READ D$:S$=S$+CHR$(VAL("&H"+D$)):NEXT:SPRITE$(N)=S$:NEXT
75 CR$="éì":FOR N=1 TO LEN(CR$):NC=ASC(MID$(CR$,N,1)):FOR S=NC*8 TO NC*8+7:READ CD$:VPOKE S,VAL("&h"+CD$):NEXT:READ C1:READ C2:VPOKE B+INT(NC/8),16*C1+C2:NEXT
76 DATA 7e,db,db,ff,81,c3,e7,7e
77 DATA 18,18,18,7E,FF,AA,55,AA
78 DATA 74,DA,8A,9A,CA,8A,DA,74,10,1
79 DATA FB,FB,FB,00,DF,DF,DF,00,6,14
80 RETURN

MSX - Mr. Moneyed wants money! (BASIC)




MSX Merry Christmas 2016.
A little Christmas demo with music and ASCII art.

10 SCREEN 1:WIDTH 32:COLOR 15,6,2:KEY OFF:Z=RND(-TIME):S=1
20 Z=INT(RND(1)*11)+1
30 ON Z GOSUB 100,200,300,400,500,600,700,800,850,900,950
40 IF PLAY(0)=0 THEN ON S GOSUB 3000,3010,3020
50 GOTO 20
100 GOSUB 2000:FOR N=0 TO 4:PRINT E$;:NEXT
101 PRINT "++++++++++++++++++++++++++++++++";
102 PRINT ""
103 PRINT "           \|/"
104 PRINT "           -*-"
105 PRINT "          .//\   MERRY"
106 PRINT "          /°\o\.  MSXmas!"
107 PRINT "        .//o///\     by"
108 PRINT "        //°//\O/\.   BCO"
109 PRINT "      .//O/\/°//o\"
110 PRINT "          _|_|_"
111 PRINT "          \___/"
112 PRINT ""
113 PRINT "++++++++++++++++++++++++++++++++";
114 FOR N=0 TO 4:PRINT E$;:NEXT
115 FOR N=0 TO 1000:NEXT:' pause
116 RETURN
200 GOSUB 2000:FOR N=0 TO 5:PRINT E$;:NEXT
201 PRINT "\|/\|/\|/\|/\|/\|/\|/\|/\|/\|/\|";
202 PRINT ""
203 PRINT "            .---."
204 PRINT "           /     \"
205 PRINT "          /______\\  Ho!"
206 PRINT "         (________)\  Ho!"
207 PRINT "         d|(.  .)|b O  Ho!"
208 PRINT "        .-|--()--|-."
209 PRINT "       /  \   u  /  \"
210 PRINT "      !    \____/    !"
211 PRINT "--------------------------------";
212 FOR N=0 TO 5:PRINT E$;:NEXT
213 FOR N=0 TO 1000:NEXT:' pause
214 RETURN
300 GOSUB 2000:FOR N=0 TO 5:PRINT E$;:NEXT
301 PRINT ""
302 PRINT "--------------------------------";
303 Z=INT(RND(1)*10)+1:ON Z GOSUB 1000,1001,1002,1003,1004,1005,1006,1007,1008,1009
304 PRINT "--------------------------------";
305 PRINT "        \  \w__w/"
306 PRINT "         \  (oo)\_______"
307 PRINT "            (__)@   ||  )\/\"
308 PRINT "              U ||------|"
309 PRINT "                ||     ||"
310 PRINT "================================";
311 FOR N=0 TO 6:PRINT E$;:NEXT
312 FOR N=0 TO 1000:NEXT:' pause
313 RETURN
400 GOSUB 2000:FOR N=0 TO 5:PRINT E$;:NEXT
401 PRINT "================================";
402 PRINT "--------------------------------";
404 PRINT ""
405 Z=INT(RND(1)*10)+1:ON Z GOSUB 1000,1001,1002,1003,1004,1005,1006,1007,1008,1009
406 PRINT ""
407 PRINT "                         (BCO)"
408 PRINT ""
409 PRINT "--------------------------------";
410 PRINT "================================";
411 FOR N=0 TO 7:PRINT E$;:NEXT
412 FOR N=0 TO 1000:NEXT:' pause
413 RETURN
500 GOSUB 2000:FOR N=0 TO 5:PRINT E$;:NEXT
501 PRINT ""
502 PRINT "  _  _   __   ____  ____  _  _"
503 PRINT " / )( \ / _\ (  _ \(  _ \( \/ )"
504 PRINT " ) __ (/    \ ) __/ ) __/ )  /"
505 PRINT " \_)(_/\_/\_/(__)  (__)  (__/"
506 PRINT "  _  _  _  _   __   ____   _"
507 PRINT " ( \/ )( \/ ) / _\ / ___) / \"
508 PRINT "  )  ( / \/ \/    \\___ \ \_/"
509 PRINT " (_/\_)\_)(_/\_/\_/(____/ (_)"
510 PRINT ""
511 FOR N=0 TO 6:PRINT E$;:NEXT
512 FOR N=0 TO 1000:NEXT:' pause
513 RETURN
600 GOSUB 2000:FOR N=0 TO 5:PRINT E$;:NEXT
601 PRINT ""
602 PRINT "   _     _     _     _     _"
603 PRINT "  / \   / \   / \   / \   / \"
604 PRINT " ( H ) ( a ) ( p ) ( p ) ( y )"
605 PRINT "  \_/   \_/   \_/   \_/   \_/ "
606 PRINT "   _     _     _     _     _"
607 PRINT "  / \   / \   / \   / \   / \"
608 PRINT " ( X ) ( M ) ( A ) ( S ) ( ! )"
609 PRINT "  \_/   \_/   \_/   \_/   \_/"
610 PRINT ""
611 FOR N=0 TO 6:PRINT E$;:NEXT
612 FOR N=0 TO 1000:NEXT:' pause
613 RETURN
700 GOSUB 2000:FOR N=0 TO 6:PRINT E$;:NEXT
701 PRINT ""
702 PRINT " www.fourseasons.altervista.org"
703 PRINT "  _  .   __    ___   ___   _"
704 PRINT " | |_|  / /\  | |_) | |_) \ \_/"
705 PRINT " |_| | /_/--\ |_|   |_|    |_|"
706 PRINT "  _   . _   .   __    ___  ___"
707 PRINT " \ \_/ | |\/|  / /\  ( (   |_/"
708 PRINT " /_/ \ |_|  | /_/--\ _)_) (_)"
709 PRINT ""
710 FOR N=0 TO 6:PRINT E$;:NEXT
711 FOR N=0 TO 1000:NEXT:' pause
712 RETURN
800 GOSUB 2000:FOR N=0 TO 4:PRINT E$;:NEXT
801 PRINT ""
802 PRINT "Merry  __  __  _______   __"
803 PRINT "      |  \/  |/ _____ \ / /"
804 PRINT "      | \  / | (___  \ v /"
805 PRINT "      | |\/| |\___ \  > <"
806 PRINT "      | |  | |____) |/ . \"
807 PRINT "      |_|  |_______//_/ \_\"
808 PRINT ""
809 PRINT "      -<>- CHRISTMAS ! -<>-"
810 PRINT
811 PRINT " www.fourseasons.altervista.org"
812 PRINT
813 FOR N=0 TO 5:PRINT E$;:NEXT
814 FOR N=0 TO 1000:NEXT:' pause
815 RETURN
850 FOR N=0 TO 23:PRINT:NEXT
851 PRINTSPC(6),"**    * ":PRINTSPC(6),"***  ** ":PRINTSPC(6),"** ** * ":PRINTSPC(6),"**    * ":PRINTSPC(6),"**    * ":PRINTSPC(6),"**    * "
852 PRINT:PRINT
853 PRINTSPC(6),"******* ":PRINTSPC(6),"**      ":PRINTSPC(6),"******  ":PRINTSPC(6),"**      ":PRINTSPC(6),"**      ":PRINTSPC(6),"******* "
854 PRINT:PRINT
855 PRINTSPC(6),"******  ":PRINTSPC(6),"**    * ":PRINTSPC(6),"**    * ":PRINTSPC(6),"******  ":PRINTSPC(6),"**   *  ":PRINTSPC(6),"**    * "
856 PRINT:PRINT
857 PRINTSPC(6),"******  ":PRINTSPC(6),"**    * ":PRINTSPC(6),"**    * ":PRINTSPC(6),"******  ":PRINTSPC(6),"**   *  ":PRINTSPC(6),"**    * "
858 PRINT:PRINT
859 PRINTSPC(6),"**   *  ":PRINTSPC(6)," ** *   ":PRINTSPC(6),"  **    ":PRINTSPC(6),"  **    ":PRINTSPC(6),"  **    ":PRINTSPC(6),"  **    "
860 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
861 PRINTSPC(6),"**    * ":PRINTSPC(6)," **  *  ":PRINTSPC(6),"  ***   ":PRINTSPC(6),"  ***   ":PRINTSPC(6)," **  *  ":PRINTSPC(6),"**    * "
862 PRINT:PRINT
863 PRINTSPC(6),"**    * ":PRINTSPC(6),"***  ** ":PRINTSPC(6),"** ** * ":PRINTSPC(6),"**    * ":PRINTSPC(6),"**    * ":PRINTSPC(6),"**    * "
864 PRINT:PRINT
865 PRINTSPC(6),"  ***   ":PRINTSPC(6)," **  *  ":PRINTSPC(6),"**    * ":PRINTSPC(6),"******* ":PRINTSPC(6),"**    * ":PRINTSPC(6),"**    * "
866 PRINT:PRINT
867 PRINTSPC(6)," *****  ":PRINTSPC(6),"**      ":PRINTSPC(6)," *****  ":PRINTSPC(6),"      * ":PRINTSPC(6),"**    * ":PRINTSPC(6)," *****  "
868 PRINT:PRINT
869 FOR N=0 TO 23:PRINT:NEXT
870 RETURN
900 GOSUB 2000:FOR N=0 TO 4:PRINT E$;:NEXT
901 PRINT ""
902 PRINT "      \\\\\   .---.   Hi!"
903 PRINT "       \__/  / . . \"
904 PRINT "     -   \\  | <   |///   *"
905 PRINT "        . \\ \___u_/ /  +"
906 PRINT "     *     \\(_____)/     -"
907 PRINT "         +  /   o   \   ."
908 PRINT "    . _.--._|   o   |_.--._ ."
909 PRINT "            \_______/"
910 PRINT
911 PRINT " www.fourseasons.altervista.org"
912 PRINT
913 FOR N=0 TO 5:PRINT E$;:NEXT
914 FOR N=0 TO 1000:NEXT:' pause
915 RETURN
950 GOSUB 2000:FOR N=0 TO 4:PRINT E$;:NEXT
951 PRINT
952 PRINT " www.fourseasons.altervista.org"
953 PRINT "    _  _ ____ ____ ____ _   _"
954 PRINT "    |\/| |___ |__/ |__/  \_/"
955 PRINT "    |  | |___ |  \ |  \   |"
956 PRINT ""
957 PRINT "     _  _ _  _ ____ ____   /"
958 PRINT "      \/  |\/| |__| [__   /"
959 PRINT "     _/\_ |  | |  | ___] ."
960 PRINT
961 FOR N=0 TO 7:PRINT E$;:NEXT
962 FOR N=0 TO 1000:NEXT:' pause
963 RETURN
1000 PRINT "       Merry Christmas!":RETURN
1001 PRINT "    Happy new year to all!":RETURN
1002 PRINT "     Christmas Blessings!":RETURN
1003 PRINT "       Peace on Earth!":RETURN
1004 PRINT "      Love, hope, peace!":RETURN
1005 PRINT "  A blessed Christmas to you!":RETURN
1006 PRINT "       Happy Christmas!":RETURN
1007 PRINT "        Happy MSXmas!":RETURN
1008 PRINT "          Happiness!":RETURN
1009 PRINT "         Ho! Ho! Ho!":RETURN
2000 A$ = ".-_8oOHVvI+|!T*MWY^UX:'="
2010 B$="":C$="":D$="":E$=""
2020 FOR T=1 TO 4:R = INT(RND(1)*24)+1:B$ = B$ + MID$(A$,R,1):NEXT
2030 FOR T=4 TO 1 STEP -1:C$ = C$ + MID$(B$,T,1):NEXT: D$ = B$+C$
2040 FOR T=1 TO 32:E$ = E$+MID$(D$,TMOD7+1,1):NEXT
2050 RETURN
3000 PLAY "t255o5dddeddo4bbbbbbo5dddeddo4bbbbbbo5aaaaaaf#f#f#f#f#f#ggggggdddddd","t255o4ggbbo5ddggddo4bbggbbo5ddggddo4bbo5ddf#f#aao6ddo5aaf#f#o4ggbbo5ddggddo4bb":S=2:RETURN
3010 PLAY "eeeeeegggf#eedddeddo4bbbbbbo5eeeeeegggf#eedddeddo4bbbbbb","o4cceeggo5cco4ggeeggbbo5ddggddo4bbcceeggo5cco4ggeeggbbo5ddggddo4bb":S=3:RETURN
3020 PLAY "o5aaaaaao6ccco5af#f#ggggggbbbbbbgggdo4bbo5dddco4aagggggggggggg","o4ddf#f#aao5ddo4aaf#f#eeggbbo5eeo4bbggggbgo5ddo4ddf#f#aaggbbo5ddggddo4bb":S=1:RETURN

MSX - Merry Christmas 2016 (BASIC)




MSX - SCREEN 1 Kaleidoscope of ASCII characters.
A small MSX-BASIC program which produces a colorful geometric pattern (in SCREEN 1) made by random ASCII characters (and also changes the BG-FG colors!).
During the execution of the program you can clear the screen and start the process again simply by pressing the spacebar.

10 screen 1:width 32:key off
20 def fncc(x,y)=6144+(y*32+x)
50 cx=int(rnd(1)*16)
60 cy=int(rnd(1)*13)
70 n=int(rnd(1)*11)+1
80 on n gosub 1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100
100 t=t+1:if t>30 then t=0:gosub 5000
110 vpoke fncc(cx+c,cy+r),c1
120 vpoke fncc(31-cx+c,cy+r),c2
130 vpoke fncc(cx+c,23-cy+r),c3
140 vpoke fncc(31-cx+c,23-cy+r),c4
150 a$=inkey$:if a$<>"" then cls
160 goto 50
1000 c1=193:c2=199:c3=199:c4=193:return
1010 c1=211:c2=213:c3=214:c4=212:return
1020 c1=221:c2=222:c3=221:c4=222:return
1030 c1=207:c2=208:c3=207:c4=208:return
1040 c1=192:c2=192:c3=195:c4=195 :return
1050 c1=24:c2=25:c3=26:c4=27:return
1060 c1=29:c2=30:c3=30:c4=29:return
1070 c1=30:c2=29:c3=29:c4=30:return
1080 c1=28:c2=28:c3=28:c4=28:return
1090 c1=8:c2=8:c3=8:c4=8:return
1100 c1=194:c2=194:c3=197:c4=197:return
5000 p1=int(rnd(1)*16):p2=int(rnd(1)*16):p3=int(rnd(1)*16):color p1,p2,p3:return

MSX - SCREEN 1 Kaleidoscope of ASCII characters (BASIC)




MSX - Rectangles of ASCII characters.
This MSX BASIC program draws rectangles made of ASCII characters on the screen and also changes the background color.
During the execution of the program you can clear the screen and start the process again simply by pressing the spacebar.

10 screen 1:width 32:key off
20 def fncc(x,y)=6144+(y*32+x)
30 w=int(rnd(1)*10)+2
40 h=int(rnd(1)*10)+2
50 cx=int(rnd(1)*(32-w))
60 cy=int(rnd(1)*(22-k))
70 ch=192+int(rnd(1)*32)
80 rem color int(rnd(1)*16),int(rnd(1)*16),int(rnd(1)*16)
90 for r=0 to h
100 for c=0 to w
110 vpoke fncc(cx+c,cy+r),ch
120 next
130 next
140 a$=inkey$:if a$<>"" then cls:gosub 5000
150 goto 30
5000 p1=int(rnd(1)*16):p2=int(rnd(1)*16):p3=int(rnd(1)*16):color p1,p2,p3:return

MSX - SCREEN 1 rectangles of ASCII characters (BASIC)




MSX - SCREEN 3 Kaleidoscope.
A little piece of MSX-BASIC code which produces a colorful geometric pattern in SCREEN 3, with random notes playing in the background.
During the execution of the program you can start a brand new pattern simply by pressing the spacebar.
Enjoy it!

10 beep:a$="cegcfadgbcea":a=0
15 screen 3:gosub 1000
20 x=127:y=95
30 vx=(int(rnd(-time)*3)-1)*4
40 vy=(int(rnd(-time)*3)-1)*4
50 c=int(rnd(1)*16)
60 for t=1 to int(rnd(-time)*23)+1
70   x=x+vx:y=y+vy
80   if x > 255 then x=x-256
90   if x < 0 then x=x+256
100   if y > 191 then y=y-192
110   if y < 0 then y=y+192
120   pset (x,y),c
130   pset (256-x,y),c
140   pset (x,192-y),c
150   pset (256-x,192-y),c
160   a$=inkey$:if a$<>"" then goto 10
170 next
180 if play(0)=0 then play m$
190 goto 30
1000 rem random music(?)
1010 m$="s10m1600l8"
1020 for n1=1 to 8
1030   a=int(rnd(1)*4)   
1035   m$=m$+"o"+str$(int(rnd(-time)*3)+3)
1040   for n2=1 to 4
1050     n=int(rnd(-time)*3)+1
1060     m$=m$+mid$(a$,n+3*a,1)
1070   next
1080 next
1090 return

MSX - SCREEN 3 Kaleidoscope (BASIC)




MSX - Merry Christmas 2015..
Here we have a short MSX BASIC program that produces a small Christmas demo (with music)!
Merry Christmas!

10 screen1:width32:keyoff:color14,1,4:screen2
20 fory=0to31:forx=0to63:readc:line(x*4,y*2)-(x*4+3,64),c,bf:next:next
30 open"grp:"foroutputas#1:draw"bm0,64":forn=1to2:fori=0to255:colorint(rnd(-time)*14)+2:?#1,chr$(i);:next:next
40 poke&hfcaf,1:bs=base(5)
50 cls:restore1010:locate0,9:print"*** MERRY CHRISTMAS TO ALL ! ***":locate 0,11:fori=0to255:vpoke(bs+i),i:next
60 forn=1to8:reada$:readb$:readc$:playa$,b$:printc$:fort=1to1440:next:next:fort=1to720:next:goto50
100 data 4,4,4,4,4,4,4,4,4,4,5,4,4,4,4,4,5,4,5,4,5,4,5,5,5,7,5,5,4,5,4,5,4,4,4,4,4,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,15,15,15,7,15,7,15
110 data 4,4,4,4,13,4,4,4,4,5,4,4,4,5,4,5,4,5,4,5,5,5,15,5,5,5,5,5,5,5,5,4,5,4,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,4,4,4,4,4,7,15,7,15,15,7,15,15
120 data 4,4,4,4,4,4,4,15,4,4,4,4,5,4,5,4,5,5,5,5,5,5,5,5,5,7,5,5,5,5,5,5,4,5,4,5,4,4,4,4,4,13,4,4,4,4,4,4,4,4,4,4,4,4,15,4,7,15,15,15,15,15,15,7
130 data 4,4,7,4,4,4,4,4,4,4,4,5,4,5,5,5,5,5,5,5,5,5,5,5,7,15,7,5,5,7,5,5,5,5,5,4,5,4,4,4,4,4,4,4,4,4,8,6,4,4,4,4,13,4,4,4,7,15,15,7,15,15,7,15
140 data 4,4,4,4,4,4,4,4,5,4,5,4,5,5,5,5,5,5,7,5,5,5,5,5,5,7,5,5,5,5,5,5,5,5,5,5,4,5,4,5,4,4,4,4,4,6,8,8,6,4,4,4,4,4,4,5,15,15,7,15,7,15,15,15
150 data 4,4,4,15,4,4,4,4,4,5,4,5,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,15,5,4,5,4,5,4,4,4,4,4,4,6,8,8,8,8,15,4,5,4,4,5,7,15,7,15,7,15,15,7
160 data 4,4,4,4,4,4,5,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,5,4,4,4,14,15,1,6,4,14,4,4,4,4,5,15,15,15,7,15,15,7,15
170 data 4,4,4,4,4,5,4,5,4,5,4,5,5,5,5,11,5,5,5,5,5,7,5,5,5,5,5,5,5,5,5,5,4,5,5,12,5,4,5,4,5,4,5,4,9,1,9,14,1,4,4,4,5,4,4,5,7,15,15,15,15,15,15,7
180 data 4,4,4,4,5,4,5,4,5,4,5,5,5,11,5,10,5,5,4,5,5,5,5,5,5,5,5,5,5,11,4,5,4,5,5,5,5,5,4,5,4,5,4,5,1,14,15,14,14,4,4,4,7,4,4,5,15,15,7,15,15,15,15,15
190 data 4,4,4,5,4,5,4,5,5,5,5,5,11,10,10,10,4,5,4,5,5,5,5,5,5,7,5,11,5,10,4,4,4,5,5,5,5,5,5,5,5,4,5,4,15,15,1,8,1,4,4,7,15,7,4,4,7,7,15,7,15,15,7,7
200 data 4,4,5,4,5,4,5,4,5,5,5,8,9,5,5,4,4,4,4,5,5,5,5,5,5,5,11,10,10,10,5,5,5,5,7,5,5,5,5,5,4,5,4,5,14,1,8,8,8,4,4,4,7,4,4,4,7,15,7,15,15,7,15,15
210 data 4,4,4,5,5,5,5,5,5,9,11,1,8,9,4,4,5,5,5,5,5,5,5,5,5,8,9,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,1,8,8,1,8,4,4,4,5,4,4,4,5,15,15,15,15,7,15,15
220 data 5,4,5,4,5,5,5,12,5,6,10,8,6,4,4,4,4,5,5,5,5,5,5,9,11,1,8,9,4,4,5,5,5,5,5,5,5,5,5,5,5,10,2,15,8,8,1,6,8,4,4,4,4,4,4,4,5,7,15,7,15,15,7,7
230 data 4,5,4,5,4,5,5,5,5,5,5,10,10,4,4,4,5,5,5,5,5,5,5,6,10,8,6,5,4,4,5,5,5,5,5,5,5,5,11,11,10,5,12,14,8,1,6,8,14,4,4,4,5,4,4,4,4,7,15,15,15,15,15,15
240 data 5,4,5,4,5,5,7,5,5,5,5,6,6,5,4,4,5,5,5,5,5,5,5,5,5,10,10,10,10,11,11,11,11,11,11,11,11,11,5,5,5,5,5,5,1,6,6,15,1,5,4,4,4,4,4,4,4,5,7,15,15,15,15,7
250 data 4,5,5,5,5,5,5,5,5,5,5,6,8,9,4,4,5,9,9,5,8,5,5,5,5,6,6,5,4,4,4,5,5,5,4,4,5,4,5,5,5,11,5,5,14,15,15,1,8,4,5,4,11,15,4,4,4,4,5,7,15,15,7,5
260 data 5,4,4,5,5,5,5,5,5,5,5,8,8,8,9,11,9,8,8,9,4,4,5,4,5,6,8,9,4,4,4,9,9,4,8,4,4,5,5,5,5,1,11,5,1,1,1,8,6,5,4,11,13,13,15,4,4,4,4,4,4,4,4,4
270 data 5,5,5,5,4,5,5,5,5,5,5,8,8,8,8,11,8,8,8,8,4,4,4,5,5,8,8,8,9,11,9,8,8,9,4,4,4,5,5,5,5,5,10,11,11,8,8,6,11,11,11,13,6,1,11,4,4,4,4,4,4,4,4,4
280 data 5,5,5,5,5,4,4,5,5,5,5,6,8,1,1,1,11,1,1,1,1,1,1,1,1,1,1,1,1,1,11,1,1,1,1,1,1,1,1,1,1,1,10,13,10,6,6,6,10,13,13,6,1,6,10,4,4,4,4,4,4,15,4,4
290 data 5,5,5,5,5,5,1,4,4,5,5,6,8,6,6,10,6,6,8,8,4,4,4,5,5,6,8,6,6,10,8,8,8,6,4,4,4,5,5,5,5,5,10,6,10,10,10,10,10,6,6,10,1,10,5,4,4,4,7,4,4,4,4,4
300 data 5,12,5,5,5,5,5,5,1,5,6,8,8,5,4,4,4,4,6,8,8,4,4,5,5,6,8,6,6,10,6,6,8,8,5,4,4,4,5,5,5,5,10,6,6,6,6,6,6,6,6,10,4,5,4,5,4,4,4,4,4,4,4,4
310 data 5,5,5,5,5,5,5,1,4,5,8,6,5,4,4,4,5,5,5,6,6,8,4,4,6,8,8,4,4,5,5,5,6,8,8,5,4,4,4,5,15,5,1,10,10,10,10,10,10,10,10,10,5,5,5,4,4,4,4,13,4,4,7,4
320 data 5,5,5,5,5,5,1,4,5,5,8,5,5,4,4,5,5,5,5,5,5,6,1,4,8,6,5,4,5,5,5,5,5,6,6,8,5,5,4,11,5,5,5,10,1,1,1,1,1,10,1,1,5,5,4,5,4,4,4,4,4,4,4,4
330 data 5,5,7,5,5,5,4,1,5,5,1,5,5,4,5,5,5,5,5,5,5,5,5,5,8,4,5,4,5,5,5,5,5,5,5,6,1,5,5,10,11,11,11,10,11,11,11,11,11,10,11,11,15,4,5,4,5,4,5,4,4,4,4,4
340 data 5,5,5,5,5,5,1,4,5,5,5,5,5,4,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,7,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,5,5,5,5,5,4,5,4,4,4,4
350 data 5,5,5,5,5,5,5,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,12,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,5,5,4,5,4,5,4,5,4,4,4
360 data 5,5,5,5,5,5,5,1,5,5,5,15,5,5,5,5,5,5,5,5,1,5,5,5,5,5,7,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,5,5,5,5,5,1,1,5,4,5,4,5,4,4,1,4
370 data 5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,12,5,5,5,4,5,5,5,1,1,4,5,5,4,5,4,5,4,1,4
380 data 5,5,5,1,1,1,1,1,1,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,1,1,1,1,1,5,5,5,5,5,4,4,4,5,1,1,4,1,4,5,5,4,5,1,4,1,1
390 data 5,5,1,4,1,1,1,1,1,1,4,4,4,4,5,5,5,5,1,1,1,1,1,1,1,5,5,5,5,5,4,4,4,4,4,1,4,1,1,1,1,1,1,5,5,5,4,4,4,5,5,4,1,1,1,1,5,5,5,1,1,4,1,1
400 data 5,1,12,12,4,1,1,1,1,1,1,4,4,4,4,5,5,1,1,1,1,1,1,1,4,1,5,5,5,4,4,4,4,4,1,12,12,4,1,1,1,1,1,1,5,5,5,4,4,4,4,1,4,1,1,4,4,5,1,1,1,1,1,1
410 data 1,12,12,12,12,4,1,1,1,1,1,1,4,4,4,4,1,1,1,1,1,1,1,12,12,4,1,5,4,4,4,4,4,1,12,12,1,12,4,1,1,1,1,1,1,5,4,4,4,4,1,1,1,1,1,1,4,1,1,1,1,1,1,1
1010 data "t180l4eel2el4eel2e","t180o3cgcgcgcg","jingle bells, jingle bells,"
1020 data "l4egcdl1e","t180o3cgcgcgcg","jingle all the way!"
1030 data "l4ffl2fl4fel2e","o3fo4co3fo4co3co4co3co4c","o what fun it is to ride"
1040 data "l4eddel2dg","o3dadao3go4do3go4d","in a one-horse open sleigh!"
1050 data "t180l4eel2el4eel2e","t180o3cgcgcgcg","jingle bells, jingle bells,"
1060 data "l4egcdl1e","t180o3cgcgcgcg","jingle all the way!"
1070 data "l4ffl2fl4fel2e","o3fo4co3fo4co3co4co3co4c","o what fun it is to ride"
1080 data "l4ggfdl1c","o3dadacgcgcgcg","in a one-horse open sleigh!"

MSX - Merry Christmas Demo 2015 (BASIC)




MSX - SCREEN 2 Kaleidoscope.
A little piece of MSX-BASIC code which produces a black and white geometric pattern in SCREEN 2, with random notes playing in the background.
During the execution of the program you can start a brand new pattern simply by pressing the spacebar.
Enjoy it!

10 beep:color 1,15,1:a$="cegcfadgb":a=0
20 screen 2:gosub 1000
30 x=127:y=95
40 vx=int(rnd(-time)*3)-1
50 vy=int(rnd(-time)*3)-1
60 for t=1 to int(rnd(-time)*95)+1
70 x=x+vx:y=y+vy
80 if x > 255 then x=x-256
90 if x < 0 then x=x+256
100 if y > 191 then y=y-192
110 if y < 0 then y=y+192
120 pset (x,y),1
130 pset (256-x,y),1
140 pset (x,192-y),1
150 pset (256-x,192-y),1
160 a$=inkey$ :if a$<>"" then goto 10
170 next
180 if play(0)=0 then play m$
190 goto 40
1000 rem create random music(?)
1010 m$="s10m12000l8"
1020 for n1=1 to 8
1030   a=int(rnd(1)*3)   
1040   m$=m$+"o"+str$(int(rnd(-time)*3)+2)
1050   for n2=1 to 4
1060     n=int(rnd(-time)*3)+1
1070     m$=m$+mid$(a$,n+3*a,1)
1080   next
1090 next
1100 return

MSX - SCREEN 2 Kaleidoscope (BASIC)




8x8 sprite editor.
Here we have a very basic (in any sense) 8x8 sprite editor.
Use keyboard to edit zeroes and ones on the matrix and then press "return" (enter) on the command line "run 1001" to see the result.

1 SCREEN1,3:CLS:WIDTH32
2 FOR X=0 TO 7
3 FOR Y=0 TO 7
4 PRINT "0";
5 NEXT
7 PRINT CHR$(13)
8 NEXT
9 PRINT "run 1001"
10 END
1001 A=BASE(5) :A$="":B$="DATA ":V$=""
1002 FOR Y=0 TO 7
1003 FOR X=0 TO 7
1004 V$=V$+CHR$(VPEEK(A+Y*32+X))
1005 NEXT
1006 A$=A$+CHR$(VAL("&B"+V$))
1007 LOCATE 10,Y: PRINT STR$(VAL("&B"+V$)):V$=""
1008 NEXT
1009 SPRITE$(0)=A$
1010 PUT SPRITE 0,(64,8),1
1020 PRINT "run 1001"

MSX - 8x8 Sprite Editor (BASIC)




"Clashed" colourful lines (random) on MSX screen!

10 SCREEN 2
20 DEFINT A-Z
30 A=RND(1)*255:B=RND(1)*191:C=RND(1)*16
40 LINE (128,100)-(A,B),C
50 GOTO 30
RUN

Random lines on MSX - Source

Random lines on MSX

Random lines on MSX




Bomber-X
Small BASIC game.
It's a "sort of" conversion (that I wrote long time ago) of a game that I have seen for the SEGA SC-3000.
In this game you're a pilot of a World War II Bomber. You can drop your bombs and hit the enemy's panzer by hitting the spacebar.
Enjoy!

10 COLOR 15,6
15 SCREEN 3
20 OPEN "GRP:" FOR OUTPUT AS#1
30 PSET (10,10),6:COLOR 3:PRINT#1,"BOMBER"
40 PSET (14,10),6:COLOR 7:PRINT#1,"BOMBER"
50 PSET (18,10),6:COLOR10:PRINT#1,"BOMBER"
60 PSET (14,100),6:COLOR3:PRINT#1,"   X  "
70 PSET (18,100),6:COLOR7:PRINT#1,"   X  "
80 PSET (22,100),6:COLOR10:PRINT#1,"   X  "
90 IF STRIG(0) THEN 110
100 GOTO 90
110 SCREEN2,3:COLOR 15,6
120 LINE (100,40)-(250,187),15,BF
130 CIRCLE (175,110),15,1
140 LINE (155,110)-(165,110),1
150 LINE (195,110)-(185,110),1
160 LINE (175,90)-(175,100),1
170 LINE (175,130)-(175,120),1
180 A$=CHR$(&HF1)+CHR$(&HF1)+CHR$(&HF1)+CHR$(&HF1)+CHR$(&HFE)+CHR$(&HFE)+CHR$(&HFC)+CHR$(&HFB)
190 B$=CHR$(&HFB)+CHR$(&HFB)+CHR$(&HFC)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HF0)+CHR$(&HF0)+CHR$(&HF0)
200 C$=CHR$(&H8F)+CHR$(&H8F)+CHR$(&H8F)+CHR$(&H8F)+CHR$(&H7F)+CHR$(&H7F)+CHR$(&H3F)+CHR$(&HDF)
210 D$=CHR$(&HDF)+CHR$(&HDF)+CHR$(&H3F)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HF)+CHR$(&HF)+CHR$(&HF)
220 SPRITE$(0)=A$+B$+C$+D$
230 E$=CHR$(&H0)+CHR$(&H3)+CHR$(&H7)+CHR$(&H7)+CHR$(&HE)+CHR$(&H3D)+CHR$(&H7F)+CHR$(&H77)
240 F$=CHR$(&H37)+CHR$(&H3B)+CHR$(&HF)+CHR$(&H1F)+CHR$(&H1F)+CHR$(&HC)+CHR$(&H0)+CHR$(&H0)
250 G$=CHR$(&H0)+CHR$(&H0)+CHR$(&H80)+CHR$(&HD8)+CHR$(&H78)+CHR$(&HBC)+CHR$(&HFE)+CHR$(&HFF)
260 H$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&HF6)+CHR$(&HCC)+CHR$(&HFC)+CHR$(&HFC)+CHR$(&H78)+CHR$(&H0)
270 SPRITE$(1)=E$+F$+G$+H$
280 X=200:Y=0:A=158:B=93:Z=1:V=0:N=0
290 S=STICK(0):Y=Y+Z
300 IF S=3 THEN X=X-Z
310 IF S=7 THEN X=X+Z
320 PUT SPRITE 1,(X,Y),6,0
330 PUT SPRITE 0,(0,0),6,0
340 IF STRIG(0) THEN 400
350 IF Y>190 THEN 370
360 GOTO 290
370 V=V+1:Y=0:X=RND(1)*185+70
380 IF V=25 THEN 480
390 GOTO 290
400 IF Z<16 THEN Z=Z+.05
401 SOUND 7,7:SOUND 6,15
402 SOUND 8,16:SOUND 9,16:SOUND 10,16
403 SOUND 12,20:SOUND 13,0
404 FOR T=1 TO 20
405 PUT SPRITE 0,(A-8+RND(1)*16,B-8+RND(1)*15),RND(1)*16,1
410 NEXT T
420 IF (A+32>XANDA-32<X)AND(B+32>YANDB-32<Y) THEN 440
430 GOTO 290
440 N=N+1
460 Y=0:X=RND(1)*185+70:N=N+1
470 GOTO 290
480 SCREEN 0:PRINT"SFORTUNA !... TROPPI CARRI SONO      RIMASTI INTERI !! .... LA TUA        MISSIONE E' FALLITA !"
490 PRINT"COMUNQUE, HAI COLPITO:";N;"PANZER!"
500 PRINT"CONGRATULAZIONI!"

****************
ENGLISH VERSION!
****************
480 SCREEN 0:PRINT"BAD LUCK!...                         TOO MANY TANKS HAVE SURVIVED!        MISSION FAILED!"
490 PRINT"ANYWAY, YOU'VE HIT";N;"TANKS!"
500 PRINT"CONGRATULATIONS!"

Bomber-X for MSX - BASIC (SCREEN 2)




XMAS THREE - Part 2
A litle Christmas demo in SCREEN 3.

10 SCREEN 3
20 FOR Y=0 TO 47
30 FOR X=0 TO 63
40 READ C
50 PSET (X*4,Y*4),C:NEXT:NEXT
60 IF PLAY(0)=0 THEN GOTO 1010 ELSE GOTO 60
100 data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
110 data 1,1,4,1,1,1,1,1,4,1,1,1,1,1,1,1,15,10,1,1,1,1,1,1,7,1,1,1,1,5,1,1,14,1,1,1,4,5,5,1,5,5,4,1,4,5,4,1,4,4,4,1,4,5,4,1,5,1,5,1,4,5,5,1
120 data 1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,11,10,1,1,1,1,4,7,15,7,4,1,5,7,5,1,15,1,14,1,5,4,1,1,5,1,1,1,5,1,5,1,5,4,1,1,5,1,5,1,5,4,5,1,5,4,1,1
130 data 1,1,5,1,1,1,4,7,15,7,4,1,1,11,15,11,11,10,10,10,10,1,1,1,7,1,1,1,1,5,1,1,15,15,15,1,1,4,5,1,5,4,1,1,5,5,5,1,1,4,5,1,5,1,5,1,5,5,5,1,1,4,5,1
140 data 1,5,7,5,1,1,1,1,7,1,1,1,1,1,11,11,10,10,10,10,1,1,1,1,4,1,1,1,1,1,1,1,1,1,14,1,5,5,4,1,5,5,4,1,5,1,5,1,4,4,4,1,4,5,4,1,5,1,5,1,5,5,4,1
150 data 1,1,5,1,1,1,1,1,4,1,1,1,1,1,1,10,10,10,10,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
160 data 1,1,1,1,4,1,1,1,1,1,1,1,1,1,10,10,2,12,10,10,1,1,1,4,1,1,4,1,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
170 data 1,1,4,1,1,1,1,4,1,1,1,1,1,1,10,1,3,3,1,10,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
180 data 1,1,1,1,4,1,1,1,1,1,1,5,1,1,1,3,3,2,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
190 data 1,4,1,1,5,1,1,1,1,1,5,7,5,1,1,1,3,3,1,1,4,4,4,4,5,1,4,4,1,1,1,4,1,1,1,4,4,4,4,4,1,1,4,4,4,4,1,1,1,4,4,4,4,1,1,4,4,1,1,4,4,1,5,4
200 data 1,1,1,1,7,1,1,1,1,1,1,5,1,1,1,3,3,4,12,1,1,1,1,1,1,1,1,5,5,1,5,5,5,1,5,5,1,1,1,1,1,5,5,1,1,5,5,1,5,5,1,1,5,5,1,5,5,1,1,5,5,1,1,1
210 data 1,4,5,7,15,7,5,4,1,1,1,1,1,1,3,3,3,2,2,12,1,4,4,4,4,5,1,7,7,7,7,7,7,1,7,7,1,1,1,1,1,7,7,1,1,7,7,1,7,7,1,1,7,7,1,7,7,1,1,7,7,1,5,4
220 data 1,1,1,1,7,1,1,1,1,1,1,1,1,1,1,3,3,3,12,1,1,1,1,1,1,1,1,15,1,15,1,15,15,1,15,15,15,15,15,1,1,15,15,15,15,15,1,1,15,15,15,15,15,1,1,1,15,15,15,15,15,1,1,1
230 data 1,1,1,1,5,1,1,1,5,1,1,1,1,3,3,3,3,3,2,12,12,1,4,4,4,5,1,7,1,1,1,7,7,1,7,7,1,1,1,1,1,7,7,7,7,1,1,1,7,7,7,7,1,1,1,1,1,1,1,7,7,1,5,4
240 data 1,1,4,1,4,1,1,5,7,5,1,1,1,1,3,15,4,2,2,12,1,1,1,1,1,1,1,5,1,1,1,5,5,1,5,5,1,1,1,1,1,5,5,1,5,5,1,1,5,5,1,5,5,1,1,5,5,1,1,5,5,1,1,1
250 data 1,1,1,1,1,1,1,1,5,1,1,1,3,3,3,13,4,3,3,2,12,12,1,4,5,1,4,4,1,1,1,4,1,1,1,4,4,4,4,4,1,1,4,1,1,4,4,1,1,4,1,1,4,4,1,1,4,4,4,4,1,1,5,4
260 data 1,4,1,1,4,1,1,1,1,1,1,1,1,3,3,2,2,3,2,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
270 data 1,1,1,1,1,1,4,1,1,1,1,1,3,10,3,3,3,3,3,2,2,12,1,1,6,1,8,8,8,1,1,8,8,8,1,8,8,1,1,1,8,1,1,1,1,8,8,1,1,6,1,1,8,8,8,8,8,1,1,8,8,1,6,8
280 data 1,1,1,1,1,1,7,1,1,1,1,3,3,3,3,2,3,2,8,6,12,12,12,1,1,1,1,9,9,1,1,9,9,1,1,1,9,9,1,9,9,9,1,1,9,9,9,9,1,1,1,9,9,1,1,1,9,9,1,9,9,1,1,1
290 data 1,1,1,1,4,7,15,7,4,1,1,1,1,3,3,3,3,3,8,6,12,1,1,1,6,6,1,1,11,11,11,11,1,1,6,1,11,11,11,11,11,11,1,11,11,1,1,11,11,1,1,11,11,1,1,1,1,11,1,11,11,1,6,8
300 data 1,1,5,1,1,1,7,1,1,1,1,3,3,3,3,2,2,3,2,2,12,12,12,1,1,1,1,1,1,15,15,1,1,1,1,1,15,1,15,1,15,15,1,15,15,1,1,15,15,1,1,1,15,15,15,15,1,1,1,15,15,1,1,1
310 data 1,5,7,5,1,1,4,1,1,1,3,3,3,3,3,3,3,3,3,3,12,12,12,12,1,6,1,1,11,11,11,11,1,1,6,1,11,1,1,1,11,11,1,11,11,11,11,11,11,1,11,1,1,1,1,11,11,1,1,11,11,1,6,8
320 data 1,1,5,1,1,1,1,1,1,1,1,3,3,2,15,4,3,2,2,8,2,12,12,1,1,1,1,9,9,1,1,9,9,1,1,1,9,1,1,1,9,9,1,9,9,1,1,9,9,1,9,9,1,1,1,9,9,1,1,1,1,1,1,1
330 data 1,1,1,1,1,1,4,1,1,3,3,3,3,3,4,4,3,3,3,2,2,12,12,12,12,1,8,8,8,1,1,8,8,8,1,8,8,1,6,1,8,1,1,1,8,1,1,8,1,1,1,8,8,8,8,8,1,1,1,8,8,1,6,8
340 data 1,1,1,1,5,1,1,1,1,1,3,3,3,3,3,3,3,3,3,2,2,2,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
350 data 1,1,1,1,1,1,1,1,3,3,3,3,3,3,2,2,3,2,2,2,15,7,5,12,12,12,1,8,6,1,6,8,9,10,11,14,15,1,6,8,9,10,11,14,15,1,1,1,9,10,11,1,6,1,1,9,10,11,1,6,6,8,8,8
360 data 1,5,1,1,1,1,1,1,1,1,1,3,10,3,3,3,3,3,2,2,7,7,5,1,1,1,1,1,1,1,8,9,1,1,14,15,14,1,8,9,1,1,14,15,14,1,1,9,10,11,14,1,1,1,9,10,11,14,1,1,1,1,1,1
370 data 1,1,1,1,4,1,1,1,1,3,3,3,3,3,3,2,2,3,3,2,5,5,5,12,12,1,1,8,6,1,1,1,1,14,15,14,1,1,9,10,1,14,15,14,11,1,9,10,11,14,15,1,1,9,10,11,14,15,1,6,6,8,8,8
380 data 1,1,1,1,1,1,1,1,3,3,3,3,3,3,3,8,6,3,3,3,2,2,2,2,12,12,1,1,1,1,1,1,14,15,14,1,1,1,10,11,14,15,14,11,10,1,1,1,14,15,14,1,9,10,11,1,15,14,1,1,1,1,1,1
390 data 1,1,1,4,1,1,1,1,1,3,3,3,2,3,2,8,6,2,2,2,2,2,12,12,12,1,1,1,6,1,1,14,15,14,1,1,1,1,11,14,15,14,1,10,9,1,6,1,15,14,11,1,10,11,14,15,14,11,10,1,6,8,8,8
400 data 1,1,1,1,1,1,1,3,3,3,15,13,4,3,3,3,3,3,3,2,2,2,12,12,15,4,12,1,1,1,14,15,14,1,1,9,8,1,14,15,14,1,1,9,8,1,1,1,14,11,10,1,1,1,1,1,11,10,1,1,1,1,1,1
410 data 1,1,1,1,1,1,1,1,3,3,13,13,4,2,3,2,2,3,2,2,2,2,2,12,4,4,1,1,1,1,15,14,11,10,9,8,6,1,15,14,11,10,9,8,6,1,15,14,11,10,9,8,6,1,6,1,10,9,1,6,6,8,8,8
420 data 1,4,1,1,1,1,3,3,3,3,4,4,4,3,3,3,3,3,3,3,2,2,2,2,12,12,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
430 data 1,1,1,1,1,1,1,1,1,3,3,3,3,2,2,2,2,2,2,15,9,9,12,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
440 data 1,1,1,1,1,1,1,3,3,3,3,3,3,3,3,3,3,3,3,10,10,10,2,12,12,12,12,1,1,1,4,1,1,4,1,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
450 data 1,1,1,1,1,1,3,3,2,15,8,2,2,3,3,2,2,3,2,9,9,9,12,12,12,12,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
460 data 1,1,1,1,1,1,1,3,3,8,8,3,3,3,3,3,3,3,3,3,2,2,2,2,2,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
470 data 1,1,1,1,1,3,3,2,2,3,2,2,2,2,2,2,2,3,2,2,2,2,2,2,12,12,12,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,9,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
480 data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,8,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,6,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
490 data 4,1,4,1,12,2,1,2,12,1,4,1,4,1,1,9,9,8,8,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,1,9,6,1,6,9,1,1,1,7,6,7,12,12,1,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1
500 data 1,4,1,1,2,12,2,12,2,1,1,1,1,1,1,9,9,8,8,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,6,9,6,9,6,1,1,1,7,6,7,12,12,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4
510 data 4,4,1,13,13,13,13,4,2,4,1,1,8,8,8,8,8,6,6,6,6,6,1,4,4,4,4,4,4,4,4,4,1,11,11,11,11,11,11,3,9,3,1,7,6,7,12,12,1,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1
520 data 4,5,1,13,13,13,13,4,2,4,1,1,1,1,1,1,1,1,1,1,1,1,1,5,4,5,4,5,4,5,4,5,1,11,11,11,11,11,11,3,9,3,1,7,6,7,12,12,1,5,4,1,11,11,8,1,8,10,11,1,8,11,8,1
530 data 5,4,1,2,2,2,2,12,12,12,1,4,1,6,6,6,6,6,6,6,6,1,5,4,5,4,5,4,5,4,5,4,1,9,9,9,9,9,9,6,6,6,1,7,6,7,12,12,1,4,5,1,11,1,11,1,10,1,1,1,10,1,10,1
540 data 5,5,1,13,13,13,13,4,2,4,1,5,1,8,8,8,8,6,6,6,6,1,5,5,5,5,5,5,5,5,5,5,1,11,11,11,11,11,11,3,9,3,1,7,6,7,12,12,1,5,5,1,11,11,8,1,11,1,1,1,11,1,11,1
550 data 5,5,1,13,13,13,13,4,2,4,1,5,5,1,8,8,8,6,6,6,1,5,5,5,5,5,5,5,5,5,5,5,1,11,11,11,11,11,11,3,9,3,1,7,6,7,12,12,1,5,5,1,11,1,11,1,10,1,1,1,10,1,10,1
560 data 4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,1,11,11,8,1,8,10,11,1,8,11,8,1
570 data 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1
1010 play "t120o4l4G.l8Al4Gl2E.l4G.l8Al4Gl2E.o5l2Dl4Do4l2B.o5l2Cl4Co4l2G.","o3l2C.l2C.l2C.l2C.o2l2G.l2G.o3l2C.l2C."
1020 play "l2Al4Ao5l4C.o4l8Bl4Al4G.l8Al4Gl2E.","o2l2F.l2F.o3l2C.l2C."
1030 play "l2Al4Ao5l4C.o4l8Bl4Al4G.l8Al4Gl2E.","o2l2F.l2F.o3l2C.l2C."
1040 play "o5l2Dl4Dl4F.l8Do4l4Bo5l2C.l2E.","o2l2G.l2G.o3l2C.l2C."
1050 play "l4Co4l4Gl4El4G.l8Fl4Dl2C.","l2C.o2l2G.o3l2C."
1060 GOTO 60




XMAS THREE - Part 1
A litle Christmas demo in SCREEN 3.

10 SCREEN 3
20 FOR Y=0 TO 47
30 FOR X=0 TO 63
40 READ C
50 PSET (X*4,Y*4),C:NEXT:NEXT
60 IF PLAY(0)=0 THEN GOTO 1010 ELSE GOTO 60
100 data 14,14,14,15,14,14,14,14,14,14,14,14,14,1,1,1,1,14,14,14,11,14,14,14,14,14,14,15,14,14,14,14,14,11,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14
110 data 14,14,14,11,14,14,14,14,15,14,14,14,14,1,15,10,1,14,14,14,14,14,14,15,14,14,14,14,14,14,15,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,4,1,1,1,4,14,14,14,14,14,14,14,14,14,14
120 data 14,14,14,15,14,14,14,14,14,14,1,1,1,1,11,10,1,1,1,1,14,14,14,14,14,11,14,14,14,14,14,14,14,14,1,1,1,1,1,1,1,1,1,1,1,1,1,14,4,1,1,1,1,1,4,1,1,1,1,1,1,14,14,14
130 data 14,14,14,11,14,14,14,14,14,14,1,11,15,11,11,10,10,10,10,1,1,1,1,1,1,1,1,1,1,1,1,1,1,14,1,11,10,6,1,6,11,6,1,6,11,6,1,14,1,1,11,1,4,1,1,1,6,10,11,11,1,14,14,14
140 data 14,14,14,15,14,14,14,14,14,14,1,1,11,11,10,10,10,10,1,1,11,11,11,11,11,11,11,11,11,11,11,11,1,14,1,11,1,11,1,10,1,11,1,10,1,10,1,13,1,1,11,1,11,1,1,1,11,11,1,1,1,13,14,14
150 data 15,11,15,15,15,11,15,14,11,14,14,1,1,10,10,10,10,1,1,11,11,11,11,11,11,11,11,11,11,11,1,1,1,13,1,11,11,6,1,11,1,1,1,11,1,11,1,13,1,1,11,11,11,1,1,1,6,10,10,6,1,13,14,14
160 data 14,14,14,15,14,14,14,14,14,14,14,1,10,10,2,12,10,10,1,10,10,10,10,10,10,10,10,10,10,10,10,10,1,13,1,11,1,11,1,10,1,11,1,10,1,10,1,13,1,1,1,1,11,1,1,1,1,1,11,11,1,13,14,14
170 data 14,14,14,11,14,14,14,11,14,14,14,1,10,1,3,3,1,10,1,1,1,1,10,10,10,10,10,10,10,10,1,1,1,13,1,11,10,6,1,6,11,6,1,6,11,6,1,13,4,1,1,1,1,1,4,1,11,11,10,6,1,13,14,14
180 data 14,14,14,15,14,14,14,15,14,14,14,1,1,3,3,2,12,1,1,13,13,1,1,1,1,1,10,10,10,10,10,10,1,13,1,1,1,1,1,1,1,1,1,1,1,1,1,13,14,4,1,1,1,4,13,1,1,1,1,1,1,13,14,14
190 data 14,14,14,11,14,11,15,15,15,11,14,14,1,1,3,3,1,1,13,13,13,13,13,13,13,1,1,1,1,1,1,1,1,13,14,13,13,13,13,13,13,13,13,13,13,13,13,13,14,13,13,13,13,13,13,13,13,13,13,13,13,13,14,14
200 data 15,14,14,15,14,14,14,15,14,14,14,1,1,3,2,2,12,1,1,13,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,13,14,14
210 data 14,14,14,14,14,14,14,11,14,14,14,1,3,3,3,2,2,12,1,14,1,15,7,7,7,5,1,1,15,7,5,15,7,7,7,7,7,5,15,7,7,7,7,5,15,7,7,7,7,5,15,7,7,5,1,15,7,7,7,5,1,14,14,14
220 data 14,14,14,11,14,14,14,14,14,14,1,1,1,3,2,3,12,1,1,1,1,7,5,7,7,7,5,7,7,7,5,4,7,7,5,4,7,5,7,7,5,4,7,5,7,7,5,4,7,5,4,7,7,5,1,7,7,5,7,5,1,13,14,14
230 data 14,14,14,14,14,14,11,14,14,14,1,3,3,3,3,3,2,12,12,1,1,4,4,7,7,7,7,7,7,7,5,1,7,7,5,1,4,4,7,7,5,1,7,5,7,7,5,1,7,5,1,7,7,5,1,7,7,5,4,4,1,13,14,14
240 data 14,14,11,14,14,11,15,11,14,1,1,1,3,15,11,2,2,12,1,1,1,1,1,7,7,5,7,5,7,7,5,1,7,7,7,5,1,1,7,7,7,7,7,5,7,7,7,7,7,5,1,7,7,7,7,7,7,5,1,1,1,13,14,14
250 data 14,14,15,14,14,14,11,14,14,1,3,3,3,11,11,3,3,2,12,12,1,13,1,7,7,5,4,4,7,7,5,1,7,7,5,4,7,5,7,7,5,7,5,4,7,7,5,7,5,4,1,4,4,4,4,7,7,5,1,13,13,13,14,14
260 data 11,15,15,15,11,14,14,14,14,1,1,3,3,2,2,3,2,12,12,1,1,1,1,7,7,5,1,1,7,7,5,1,7,7,5,1,7,5,7,7,5,7,5,1,7,7,5,7,5,1,1,1,1,1,1,7,7,5,1,13,13,13,14,14
270 data 14,14,15,14,14,14,14,14,1,1,3,3,3,3,3,3,3,2,2,12,1,1,7,7,7,5,1,1,7,7,5,7,7,7,7,7,7,5,7,7,5,4,7,7,7,7,5,4,7,7,7,5,7,7,7,7,7,5,1,13,14,14,14,14
280 data 14,14,11,14,14,14,14,14,1,3,3,3,3,2,3,2,8,6,12,12,12,1,4,4,4,4,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1,13,14,14,14,14
290 data 14,14,14,14,14,11,14,14,1,1,1,3,3,3,3,3,6,6,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,14,14,14,14
300 data 14,14,14,14,14,14,14,1,1,3,3,3,3,2,2,3,2,2,12,12,12,1,1,13,13,13,1,15,11,5,1,15,11,5,15,11,10,3,5,1,1,11,10,5,15,11,10,3,3,3,3,5,1,1,11,10,3,3,5,1,1,14,14,14
310 data 14,14,11,14,14,14,14,1,3,3,3,3,3,3,3,3,3,3,12,12,12,12,1,13,13,13,1,11,10,5,1,11,10,5,11,5,3,3,3,5,11,10,3,5,11,5,3,3,5,4,3,3,5,11,10,5,4,4,3,5,1,14,14,14
320 data 14,11,15,11,14,14,1,1,1,3,3,2,15,4,3,2,2,8,2,12,12,1,1,1,14,14,1,10,3,5,1,10,3,5,10,5,3,3,3,3,3,3,3,5,10,5,3,3,5,1,3,3,5,10,3,5,3,5,3,5,1,13,14,14
330 data 14,14,11,14,14,14,1,3,3,3,3,3,4,4,3,3,3,2,2,12,12,12,12,1,14,14,1,3,3,3,3,3,3,5,3,5,3,3,5,3,5,3,3,5,3,5,3,3,5,1,3,3,5,3,3,5,3,3,3,5,1,13,14,14
340 data 14,14,14,14,14,1,1,1,3,3,3,3,3,3,3,3,3,2,2,2,12,12,1,1,1,14,1,4,3,3,3,3,5,4,3,5,3,3,5,3,5,3,3,5,3,5,3,3,5,1,3,3,5,3,3,5,4,4,4,4,1,13,14,14
350 data 14,14,14,15,14,1,3,3,3,3,2,3,2,2,3,2,2,2,15,7,5,12,12,12,1,14,1,1,4,3,3,5,4,1,3,5,3,3,5,3,5,3,3,5,3,5,3,3,3,3,3,3,5,4,4,3,3,3,5,1,1,13,14,14
360 data 14,14,14,14,14,1,1,1,1,3,3,3,3,3,3,3,2,2,7,7,5,1,1,1,1,13,1,1,3,3,3,3,5,1,4,4,3,3,5,4,5,3,3,5,4,4,3,3,5,4,3,3,5,3,5,3,3,3,3,5,1,13,14,14
370 data 14,14,11,14,14,1,1,3,3,3,3,3,3,2,2,3,3,2,5,5,5,12,12,1,1,13,1,3,3,3,3,3,3,5,3,5,3,3,5,1,1,3,3,5,3,5,3,3,5,1,3,3,5,4,4,4,4,3,3,5,1,13,14,14
380 data 14,14,14,14,14,1,3,3,3,3,3,3,3,8,6,3,3,3,2,2,2,2,12,12,1,13,1,3,3,5,4,3,3,5,4,4,3,3,5,1,1,3,3,5,4,4,3,3,5,1,3,3,5,3,3,3,5,3,3,5,1,13,14,14
390 data 14,15,14,14,1,1,1,3,2,3,2,3,2,6,6,2,2,2,2,2,12,12,12,1,1,1,1,3,3,5,1,3,3,5,3,5,3,3,5,1,1,3,3,5,3,5,3,3,5,1,3,3,5,3,5,3,5,3,3,5,1,13,14,14
400 data 14,14,14,14,1,3,3,3,15,13,4,3,3,3,3,3,3,2,2,2,12,12,15,4,12,1,1,3,3,5,1,3,3,5,4,4,3,3,5,1,1,3,3,5,4,4,3,3,5,1,3,3,5,3,5,4,4,3,3,5,1,13,14,14
410 data 14,14,14,1,1,1,3,3,13,13,4,2,3,2,2,3,2,2,2,2,2,12,4,4,1,1,1,3,3,5,1,3,3,5,3,3,3,3,5,3,3,3,3,5,3,3,3,3,5,1,3,3,5,4,3,3,3,3,5,4,1,13,14,14
420 data 14,14,14,1,3,3,3,3,4,4,4,3,3,3,3,3,3,3,2,2,2,2,12,12,12,12,1,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,1,4,4,4,4,4,1,1,13,14,14
430 data 14,14,14,1,1,1,1,3,3,2,3,2,2,2,2,2,2,15,10,9,12,12,12,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,13,13,14,14
440 data 14,14,14,1,1,3,3,3,3,3,3,3,3,3,3,3,3,10,10,9,2,12,12,12,12,1,1,13,13,13,13,13,13,1,15,11,9,1,15,11,11,11,9,1,1,15,11,9,1,1,1,1,13,13,13,13,13,13,13,13,13,13,14,14
450 data 14,14,14,1,3,3,2,15,8,2,2,3,3,2,2,3,2,9,9,6,12,12,12,12,12,12,1,13,13,13,13,13,13,1,11,11,9,1,10,10,11,11,9,1,1,11,11,9,1,11,9,1,13,13,13,13,13,13,13,13,13,14,14,14
460 data 14,14,1,1,1,3,3,8,8,3,3,3,3,3,3,3,3,3,2,2,2,2,2,12,12,1,1,1,14,14,14,14,14,1,11,11,9,1,8,8,11,11,9,1,1,11,11,9,1,11,9,1,13,14,14,14,14,14,14,14,14,14,14,14
470 data 14,14,1,3,3,2,2,3,2,2,2,2,2,2,2,3,2,2,2,2,2,2,12,12,12,12,12,1,14,14,14,14,14,1,8,10,9,1,1,1,11,11,9,1,1,11,11,9,1,11,9,1,1,1,14,14,14,14,14,14,14,14,14,14
480 data 14,14,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,13,14,14,14,14,1,1,8,6,1,1,1,11,11,9,1,1,11,11,11,11,11,11,11,9,1,14,14,14,14,14,14,14,14,14,14
490 data 14,14,14,13,13,13,13,13,13,13,13,13,1,9,6,6,6,1,13,13,13,13,13,13,13,13,13,13,13,14,14,14,14,14,1,1,1,1,1,1,11,11,9,1,1,10,10,10,10,11,10,10,9,1,13,14,14,14,14,14,14,14,14,14
500 data 14,14,14,13,13,13,13,13,13,1,1,1,1,10,9,8,8,1,1,1,1,13,13,13,13,13,13,13,13,14,14,14,14,14,13,13,13,13,13,1,11,11,9,1,1,8,8,8,8,11,8,8,6,1,13,14,14,14,14,14,14,14,14,14
510 data 4,4,4,4,4,4,4,4,4,1,9,8,8,8,8,6,6,6,6,6,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,11,11,9,1,1,1,1,1,1,11,1,1,1,1,4,4,4,4,4,4,4,4,4,4
520 data 4,5,4,5,4,5,4,5,4,1,1,1,1,1,1,1,1,1,1,1,1,5,4,5,4,5,4,5,4,5,4,5,4,5,4,5,4,1,11,11,11,11,11,11,9,1,11,11,11,11,11,11,9,1,4,5,4,5,4,5,4,5,4,5
530 data 5,4,5,4,5,4,5,4,5,4,1,8,6,6,6,6,6,6,6,1,5,4,5,4,5,4,5,4,5,4,5,4,5,4,5,4,5,1,10,10,10,10,10,10,9,1,10,10,10,10,10,10,9,1,5,4,5,4,5,4,5,4,5,4
540 data 5,5,5,5,5,5,5,5,5,5,1,9,8,8,8,6,6,6,6,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,8,8,8,8,8,8,6,1,8,8,8,8,8,8,6,1,5,5,5,5,5,5,5,5,5,5
550 data 5,5,5,5,5,5,5,5,5,5,1,1,9,8,8,6,6,6,1,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,5,5
560 data 5,5,4,5,5,4,5,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,5,4,5,4,5,4,5,4,5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,4,5,5,4,5,5
570 data 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5
1010 PLAY "T180L4EEL2EL4EEL2EL4EGCDL1E","T180O3CGCGCGCGCGCGCGCG"
1020 PLAY "L4FFL2FL4FEL2E","O3FO4CO3FO4CO3CO4CO3CO4C"
1030 PLAY "L4EDDEL2DG","O3DADAO3GO4DO3GO4D"
1040 PLAY "L4EEL2EL4EEL2EL4EGCDL1E","O3CGCGCGCGCGCGCGCG"
1050 PLAY "L4FFL2FL4FEL2E","O3FO4CO3FO4CO3CO4CO3CO4C"
1060 PLAY "L4GGFDL1C","O3DADACGCGCGCG"
1070 GOTO 60




L'allegro peschereccio (The merry fishing boat)

A little (and messy) piece of BASIC code I wrote long time ago, when I was a child (more or less).
It's a very relaxing game. The goal is obviously catch a lot of fish before the time runs off. Use arrow keys left, right and down or joystick. Happy fishing!

10 screen 1
20 color 1,14,1
30 screen 2,2
40 defusr=&h41:a=usr(0)
50 open"grp:"foroutput as#1
60 pset(0,0):color 1:print#1,string$(32,215)
70 pset(0,184):color 1:print#1,string$(32,215)
80 pset(30,100),14:color 4:print#1,"* L'ALLEGRO PESCHERECCIO *"
90 pset(30,101):color 4:print#1,"* L'ALLEGRO PESCHERECCIO *"
100 pset(30,130):color 4:print#1,"PREMI SPAZIO PER GIOCARE "
110 pset(30,131):color 4:print#1,"PREMI SPAZIO PER GIOCARE "
120 defusr=&h44:a=usr(0)
130 play"M500T255S13O4L6ECEGF+EDEDO3BR64L6O4DDDDL3EL6F+G"
140 if strig(0) then 160
150 goto 140
160 cls:defusr=&h41:a=usr(0)
170 color 1,14,1
180 preset(0,135):color 4:print#1,string$(32,219)
190 paint(0,150),4
200 line(255,120)-(190,120),1
210 line-(210,192),1
220 paint(240,150),1
230 line(255,119)-(220,90),15,bf
240 line(208,119)-(210,30),9,bf
250 line-(0,30),1
260 line(224,94)-(250,110),1,b
270 circle(210,130),5,15
280 circle(240,130),5,15
290 paint(210,130),15
300 paint(240,130),15
310 line(240,89)-(235,70),1,b
320 pset(234,61),14:color 6:print#1,chr$(206)
330 pset(235,76),14:color 1:print#1,chr$(207)
340 line(9,1)-(101,7),6,b
350 pset(110,1),14:color 1:print#1,"tempo"
360 pset(110,2),14:color 1:print#1,"tempo"
370 defusr=&h44:a=usr(0)
380 play"M500T255S13O4L6ECEGF+EDEDO3BR64L6O4DDDDL3EL6F+G"
390 a$=chr$(&h1)+chr$(&h2)+chr$(&h1)+chr$(&h3)+chr$(&h7)+chr$(&h7)+chr$(&h3)+chr$(&h0)
400 b$=chr$(&h0)+chr$(&h0)+chr$(&h0)+chr$(&h8)+chr$(&h8)+chr$(&hc)+chr$(&h7)+chr$(&h3)
410 c$=chr$(&h0)+chr$(&h80)+chr$(&h0)+chr$(&h80)+chr$(&hc0)+chr$(&hc0)+chr$(&h80)+chr$(&h80)
420 d$=chr$(&hc0)+chr$(&h60)+chr$(&h30)+chr$(&h30)+chr$(&h30)+chr$(&h60)+chr$(&hc0)+chr$(&h80)
430 e$=chr$(&h0)+chr$(&h0)+chr$(&h0)+chr$(&h1)+chr$(&h3)+chr$(&hc7)+chr$(&he7)+chr$(&hff)
440 f$=chr$(&hff)+chr$(&he7)+chr$(&hc7)+chr$(&h3)+chr$(&h1)+chr$(&h0)+chr$(&h0)+chr$(&h0)
450 g$=chr$(&hc0)+chr$(&he0)+chr$(&h70)+chr$(&hfc)+chr$(&hfe)+chr$(&hf7)+chr$(&hff)+chr$(&hfc)
460 h$=chr$(&hff)+chr$(&hff)+chr$(&hfe)+chr$(&hfc)+chr$(&hf8)+chr$(&h70)+chr$(&he0)+chr$(&hc0)
470 i$=chr$(&h0)+chr$(&h20)+chr$(&h17)+chr$(&hf)+chr$(&h1f)+chr$(&h1f)+chr$(&h1f)+chr$(&h7f)
480 l$=chr$(&h1f)+chr$(&h1f)+chr$(&h1f)+chr$(&hf)+chr$(&h17)+chr$(&h20)+chr$(&h0)+chr$(&h0)
490 m$=chr$(&h80)+chr$(&h82)+chr$(&hf4)+chr$(&hf8)+chr$(&hfc)+chr$(&hfc)+chr$(&hfc)+chr$(&h7f)
500 n$=chr$(&hfc)+chr$(&hfc)+chr$(&hfc)+chr$(&hf8)+chr$(&hf4)+chr$(&h82)+chr$(&h80)+chr$(&h0)
510 o$=chr$(&h40)+chr$(&h70)+chr$(&h39)+chr$(&h39)+chr$(&h1c)+chr$(&h8)+chr$(&h18)+chr$(&h30)
520 p$=chr$(&h70)+chr$(&h60)+chr$(&h60)+chr$(&h67)+chr$(&h46)+chr$(&h4f)+chr$(&hff)+chr$(&hff)
530 q$=chr$(&h0)+chr$(&h1)+chr$(&h2)+chr$(&h84)+chr$(&h86)+chr$(&hc6)+chr$(&hc3)+chr$(&h63)
540 r$=chr$(&h33)+chr$(&h73)+chr$(&hc6)+chr$(&h86)+chr$(&h7)+chr$(&h8f)+chr$(&hf)+chr$(&hff)
550 sprite$(0)=a$+b$+c$+d$
560 sprite$(1)=e$+f$+g$+h$
570 sprite$(2)=i$+l$+m$+n$
580 sprite$(3)=o$+p$+q$+r$
590 sprite on: on sprite gosub 1150
600 for t=1 to 1600:next t
610 sound0,0:sound1,0:sound2,47
620 sound3,2:sound4,47:sound5,3
630 sound6,31:sound7,1:sound8,6
640 sound9,16:sound10,16:sound11,200
650 sound12,75:sound13,14
660 x=174:y=30:p=0:q=160:c=10
670 s=stick(0):p=p+1:c=c+.01:if p>174 then p=-32
680 if s=3 then x=x+1:if x>174 then x=174
690 if s=7 then x=x-1:if x<0 then x=0
700 if s=5 then 770
710 put sprite 0,(x,y),1,0
720 put sprite 1,(p,q),7,1
730 if (p+17>xandp-17<x)and(q+17>yandq-17<y) then 940
740 line (10,2)-(c,6),6,bf
750 if c>100 then 1160
760 goto 670
770 y=y+2:p=p+1:c=c+0.01
780 line (10,2)-(c,6),6,bf
790 put sprite 0,(x,y),1,0:pset (x+7,y),1
800 put sprite 1,(p,q),7,1:if p>174 then p=-32
810 if y>178 then 850
820 if (p+17>xandp-17<x)and(q+17>yandq-17<y) then 940
830 if c>100 then 1160
840 goto 770
850 y=y-1:p=p+1:c=c+0.01
860 line (10,2)-(c,6),6,bf
870 if c>100 then 1160
880 put sprite 0,(x,y),1,0:pset (x+7,y+1),4
890 put sprite 1,(p,q),7,1:if p>174 then p=-32
900 if y<134 then pset (x+7,y+1),14
910 if y<31 then 670
920 if (p+17>xandp-17<x)and(q+17>yandq-17<y) then 940
930 goto 850
940 p=-32:z=z+1:if z=10then 970
950 if z=20then 1060
960 goto 850
970 pset(2,20),14:color 1:print#1,"scena 2"
980 pset(2,21),14:color 1:print#1,"scena 2"
990 for t=1 to 100:next t
1000 pset(2,20),14:color 14:print#1,"scena 2"
1010 pset(2,21),14:color 14:print#1,"scena 2"
1020 put sprite 2,(10,130),1,2
1030 put sprite 3,(80,130),1,2
1040 put sprite 4,(150,130),1,2
1050 goto 850
1060 pset(2,20),14:color 1:print#1,"scena 3"
1070 pset(2,21),14:color 1:print#1,"scena 3"
1080 for t=1 to 100:next t
1090 pset(2,20),14:color 14:print#1,"scena 3"
1100 pset(2,21),14:color 14:print#1,"scena 3"
1110 put sprite 5,(25,176),12,3
1120 put sprite 6,(95,176),12,3
1130 put sprite 7,(165,176),12,3
1140 goto 850
1150 screen0:beep:color 1:print"NON SEI RIUSCITO A FARE UNA BUONA    PESCA !!! COMUNQUE HAI CATTURATO ";z;" PESCI!":end
1160 screen0:beep:color 1:print"BRAVO ! SEI RIUSCITO A PESCARE PER   TUTTA LA STAGIONE !                  HAI CATTURATO ";z;" PESCI !!!"
1170 beep : play"M500T255S13O4L6ECEGF+EDEDO3BR64L6O4DDDDL3EL6F+G"
1180 for t=1 to 2000
1190 run

Here a video of the game in "action":
http://www.youtube.com/watch?v=leCjTJulG-w

MSX-BASIC GAME - The merry fishing boat




This program draws a screen full of animated small happy faces (in SCREEN 1 mode)!

10 SCREEN 1:CLS:WIDTH 32:COLOR 15,1,1:KEY OFF
20 DEFINT A-Z
30 FOR T=0 TO 767
40 N=40+RND(1)*128
50 REM PRINT CHR$(N);
60 VPOKE 6144+T,N
70 NEXT T
80 FOR T=5 TO 20
90 RESTORE 110
100 FOR I=0*8 TO 8*8-1:READ A$:VPOKE I+64*T,VAL("&H"+A$):NEXT
110 DATA 3C,7E,DB,FF,81,81,42,3C
120 DATA 3C,7E,DB,FF,C3,E7,7E,3C
130 DATA 3C,7E,DB,FF,81,C3,7E,3C
140 DATA 3C,7E,DB,FF,C3,C3,66,3C
150 DATA 3C,7E,DB,FF,81,81,C3,7E
160 DATA 3C,7E,DB,FF,81,C3,66,3C
170 DATA 7E,DB,FF,81,81,81,C3,7E
180 DATA 3C,7E,DB,FF,BD,C3,66,3C
190 VPOKE 8192+T,16*(T-5)+1
200 NEXT
210 N1=RND(1)*767 : N2=VPEEK(6144+N1)
220 IF N2=167 THEN N2=40
230 VPOKE 6144+N1,N2+1
240 A$=INKEY$
250 IF A$=" " THEN GOTO 260 ELSE GOTO 210
260 SCREEN 0:COLOR 14,4,4
RUN

MSX animated happy faces - BASIC (SCREEN 1)




This is a little routine that prints all MSX ASCII characters and changes their colors randomly.

10 SCREEN 1:CLS:WIDTH 32
20 DEFINT A-Z
30 FOR T=32 TO 255
40 REM PRINT T;
50 PRINT CHR$(T);
60 NEXT T
70 FOR T=65 TO 95
80 REM PRINT T;
90 PRINT CHR$(1)+CHR$(T);
100 NEXT T
110 FOR T=0 TO 31
120 R=RND(1)*13+2
130 VPOKE 8192+T,16*R+1
140 NEXT T
RUN

Colored text on MSX - BASIC (SCREEN 1)

Colored text on MSX - BASIC (SCREEN 1)




This program draws a screen full of small happy faces (in SCREEN 2 mode)!

10 COLOR 15,1,1:SCREEN 2:DEFINT A-Z
20 OPEN "GRP:" FOR OUTPUT AS #1:PSET (0,0),1
30 FOR N=0 TO 191 STEP 8
40 FOR T=0 TO 255 STEP 8
50 C=RND(1)*13+2
60 COLOR C,1,1
70 PRINT #1,CHR$(1)+CHR$(66);
80 NEXT T
90 NEXT N
100 STOP ON:ON STOP GOSUB 120
110 GOTO 110
120 COLOR 15,4,4:SCREEN 0
RUN

MSX happy faces - BASIC (SCREEN 2)




The MSX man is doing gymnastics! - BASIC list

The MSX man is doing gymnastics!





italiano   english


You like 4S?

Insert coin!

Buy us a coffee
or
a piece of pizza!


Insert coin!



Link to us!
(4)Seasons games





(4)Seasons software
Powered by BCO and Altervista.

Privacy Policy

Valid XHTML 1.0 Transitional CSS Valido!