MSX Mothersday Sprite

meowthersday.bas

10 ' --- Slot 0
20 ' color 1
30 DATA &H00,&H18,&H14,&H16,&H21,&H21,&H20,&H40
40 DATA &H40,&H40,&H40,&H40,&H43,&H44,&H48,&H48
50 DATA &H00,&H00,&H00,&H00,&H1A,&HEF,&H1A,&H0A
60 DATA &H02,&H04,&H00,&H00,&HF0,&H4C,&H44,&H42
70 ' color 13
80 DATA &H00,&H00,&H08,&H08,&H1E,&H1E,&H1F,&H3F
90 DATA &H3F,&H3F,&H3F,&H3F,&H3C,&H38,&H30,&H30
100 DATA &H00,&H00,&H00,&H00,&H00,&H00,&HE5,&HF5
110 DATA &HFD,&HFB,&HFF,&HFF,&H0F,&H03,&H03,&H01
120 ' color 15
130 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
140 DATA &H00,&H00,&H00,&H00,&H00,&H03,&H07,&H07
150 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
160 DATA &H00,&H00,&H00,&H00,&H00,&HB0,&HB8,&HBC
170 ' 
180 ' --- Slot 1
190 ' color 1
200 DATA &H00,&H00,&H00,&H00,&H58,&HF7,&H58,&H50
210 DATA &H40,&H20,&H00,&H00,&H0F,&H32,&H22,&H42
220 DATA &H00,&H18,&H28,&H68,&H84,&H84,&H04,&H02
230 DATA &H02,&H02,&H02,&H02,&HC2,&H22,&H12,&H12
240 ' color 13
250 DATA &H00,&H00,&H00,&H00,&H00,&H00,&HA7,&HAF
260 DATA &HBF,&HDF,&HFF,&HFF,&HF0,&HC0,&HC0,&H80
270 DATA &H00,&H00,&H10,&H10,&H78,&H78,&HF8,&HFC
280 DATA &HFC,&HFC,&HFC,&HFC,&H3C,&H1C,&H0C,&H0C
290 ' color 15
300 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
310 DATA &H00,&H00,&H00,&H00,&H00,&H0D,&H1D,&H3D
320 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
330 DATA &H00,&H00,&H00,&H00,&H00,&HC0,&HE0,&HE0
340 ' 
350 ' --- Slot 2
360 ' color 1
370 DATA &H24,&H23,&H20,&H2E,&H78,&H20,&H33,&H1E
380 DATA &H18,&H1E,&H32,&H01,&H01,&H01,&H03,&H00
390 DATA &H04,&H04,&HF8,&H00,&H00,&H21,&H33,&H1F
400 DATA &H0A,&H4C,&H44,&HC3,&HE0,&H1C,&H07,&H00
410 ' color 8
420 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
430 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
440 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
450 DATA &H01,&H03,&H03,&H00,&H00,&H00,&H00,&H00
460 ' color 9
470 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
480 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
490 DATA &H00,&H00,&H00,&H01,&H03,&H00,&H00,&H00
500 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
510 ' color 13
520 DATA &H18,&H1C,&H1F,&H11,&H07,&H1F,&H0C,&H01
530 DATA &H07,&H01,&H01,&H00,&H00,&H00,&H00,&H00
540 DATA &H03,&H03,&H07,&HFE,&HFC,&HDE,&HCC,&HE0
550 DATA &HF0,&HB0,&HB8,&H3C,&H1F,&H03,&H00,&H00
560 ' color 15
570 DATA &H03,&H00,&H00,&H00,&H00,&H00,&H00,&H00
580 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
590 DATA &HF8,&HF8,&H00,&H00,&H00,&H00,&H00,&H00
600 DATA &H04,&H00,&H00,&H00,&H00,&H00,&H00,&H00
610 ' 
620 ' --- Slot 3
630 ' color 1
640 DATA &H20,&H20,&H1F,&H00,&H00,&H84,&HCC,&HF8
650 DATA &H50,&H32,&H22,&HC3,&H07,&H38,&HE0,&H00
660 DATA &H24,&HC4,&H04,&H74,&H1E,&H04,&HCC,&H78
670 DATA &H18,&H78,&H4C,&H80,&H80,&H80,&HC0,&H00
680 ' color 8
690 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
700 DATA &H80,&HC0,&HC0,&H00,&H00,&H00,&H00,&H00
710 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
720 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
730 ' color 9
740 DATA &H00,&H00,&H00,&H80,&HC0,&H00,&H00,&H00
750 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
760 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
770 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
780 ' color 13
790 DATA &HC0,&HC0,&HE0,&H7F,&H3F,&H7B,&H33,&H07
800 DATA &H0F,&H0D,&H1D,&H3C,&HF8,&HC0,&H00,&H00
810 DATA &H18,&H38,&HF8,&H88,&HE0,&HF8,&H30,&H80
820 DATA &HE0,&H80,&H80,&H00,&H00,&H00,&H00,&H00
830 ' color 15
840 DATA &H1F,&H1F,&H00,&H00,&H00,&H00,&H00,&H00
850 DATA &H20,&H00,&H00,&H00,&H00,&H00,&H00,&H00
860 DATA &HC0,&H00,&H00,&H00,&H00,&H00,&H00,&H00
870 DATA &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
880 DATA *
890 SCREEN 1,3,0: GOSUB 10000

891 sx=90
892 sy=10
893 ss=16 'sprite size
894 sm=2  'doulble size or not
895 cls

900 PUT SPRITE 0,(sx,sy),1,0
901 PUT SPRITE 1,(sx,sy),13,1
902 PUT SPRITE 2,(sx,sy),15,2

910 PUT SPRITE 3,(sx+ss*sm,sy),1,3
911 PUT SPRITE 4,(sx+ss*sm,sy),13,4
912 PUT SPRITE 5,(sx+ss*sm,sy),15,5

920 PUT SPRITE 6, (sx,sy+ss*sm),1,6
921 PUT SPRITE 7, (sx,sy+ss*sm),8,7
922 PUT SPRITE 8, (sx,sy+ss*sm),9,8
923 PUT SPRITE 9, (sx,sy+ss*sm),13,9
924 PUT SPRITE 10,(sx,sy+ss*sm),15,10

930 PUT SPRITE 11,(sx+ss*sm,sy+ss*sm),1,11
931 PUT SPRITE 12,(sx+ss*sm,sy+ss*sm),8,12
932 PUT SPRITE 13,(sx+ss*sm,sy+ss*sm),9,13
933 PUT SPRITE 14,(sx+ss*sm,sy+ss*sm),13,14
934 PUT SPRITE 15,(sx+ss*sm,sy+ss*sm),15,15

950 COLOR 13,14,13

1000 LOCATE 5,14
1001 PRINT "HAPPY MEOWTHERSDAY"

9940 GOTO 9940
10000 REM -- LOAD SPRITES
10010 S=BASE(9)
10020 READ R$: IF R$="*" THEN RETURN ELSE VPOKE S,VAL(R$):S=S+1:GOTO 10020