#11 Article 1061 Posted at 1988/02/10 00:21:17 by Zumi & Fox (MAP338) [PRG.NL3]
Subject: ﾏｳｽ ﾄﾞﾗｲﾊﾞｰ (MSX)
ﾏｳｽﾄﾞﾗｲﾊﾞｰ(MSX) ﾉ NEDI7 ﾍﾉ ｸﾐｺﾐ ｶﾞ ｵﾜﾘﾏｼﾀ ﾄｳｼｮ ﾃﾞﾃｲﾀ
ﾏｳｽｶｰｿﾙｶﾞ ﾉｺﾙ ｹﾞﾝｼｮｳﾊ ﾜﾀｼﾉ ﾃﾇｷﾉﾀﾒ ｵｺｯﾀ ﾓﾉﾃﾞｼﾀ ｽｲｯﾁﾉ
ｼﾞｮｳﾀｲｦ ﾁｪｯｸｽﾙ ﾑｹﾞﾝﾙｰﾌﾟﾅｲﾆ ｻｲｸｦ ｼﾃ ﾉｺﾗﾅｲﾖｳﾆ ｼﾏｼﾀ｡
ﾎﾝﾄﾊ 2msﾀｲﾏｰ ﾜﾘｺﾐｦ ﾂｶｯﾃ ﾃｲｷﾃｷﾆ ﾁｪｯｸｽﾚﾊﾞ ｲｲﾝﾃﾞｽｶﾞ
(SHINOBUｻﾝﾆﾓ ｿｳ ｲﾜﾚﾀﾝﾃﾞｽｶﾞ) 2ms ﾃﾞﾊ ﾏｳｽｶﾗ ﾃﾞｰﾀｦ ﾖﾐｺﾐｷﾚﾅｲ
ﾖｳﾅﾉﾃﾞ ｺﾉ ｶﾀﾁﾆ ﾅﾘﾏｼﾀ｡
ﾄﾞﾗｲﾌﾞ0 ﾆ NEDI7 ﾉ ﾊｲｯﾀ ﾃﾞｨｽｸｦ ｲﾚﾃ ﾂｷﾞﾉ ﾌﾟﾛｸﾞﾗﾑｦ ﾊｼﾗｾﾃｸﾀﾞｻｲ
ｵﾅｼﾞ ﾃﾞｨｽｸｼﾞｮｳﾆ MSXﾏｳｽﾀｲｵｳﾉ NEDI7 ｶﾞ ｾｰﾌﾞｻﾚﾏｽ｡
ﾃﾞﾊ ﾌﾟﾛｸﾞﾗﾑ ｲｷﾏｽ｡
100 ' *****************************************
110 ' * MOUSE DRIVER (MSX) FOR NEDI7 *
120 ' * 1988 / 02 / 09 UP by Zumi & Fox *
130 ' *****************************************
140 CLEAR 300,&H3FFF : LOADM "NEDI7" : NAME "NEDI7" AS "NEDI7b"
150 READ A$:D=VAL("&H"+A$) : IF D>&HFF THEN ADR=D: IF D=&H100 THEN 170 ELSE 150
160 POKE ADR,D : ADR=ADR+1 : GOTO 150
170 SAVEM "NEDI7",&H4000,&H55FF,&H4000 : PRINT "OK !!" : END
180 DATA 4073,17,06,AA :' ﾑｹﾞﾝﾙｰﾌﾟ ﾅｲ ﾃﾞﾉ SW ﾉ ﾁｪｯｸ
190 DATA 40B7,17,06,66
200 DATA 4469,17,02,B4
210 DATA 4700,16,00,28,16,00,2A
220 DATA 4720,8D,0E,A6,E4,81,40,27,04,B6,47,0F,39,B6,47,10,39 :' ﾎﾝﾀｲ
230 DATA 34,16,8D,4F,40,50,BE,47,11,30,86,8C,00,00,2A,05
240 DATA 8E,00,00,20,08,8C,02,7F,23,03,8E,02,7F,BF,47,11
250 DATA BE,47,13,30,85,8C,00,00,2A,05,8E,00,00,20,08,8C
260 DATA 01,8F,23,03,8E,01,8F,BF,47,13,17,00,9D,4D,26,03
270 DATA 86,FF,81,4F,B7,47,0F,5D,26,03,86,FF,81,4F,B7,47
280 DATA 10,35,96,34,41,1A,50,32,7E,CE,FD,15,CC,0F,0F,8D
290 DATA 59,CC,07,BF,8D,54,CC,0F,1F,8D,4F,86,25,8D,47,8D
300 DATA 54,C4,0F,58,58,58,58,E7,E4,86,01,8D,39,CC,0F,0F
310 DATA 8D,38,86,08,8D,30,8D,3D,C4,0F,EA,E4,E7,E4,CC,0F
320 DATA 1F,8D,27,86,08,8D,1F,8D,2C,C4,0F,58,58,58,58,E7
330 DATA 61,CC,0F,0F,8D,14,86,08,8D,0C,8D,19,C4,0F,EA,61
340 DATA E7,61,35,06,35,C1,4A,26,FD,39,8D,15,E7,41,C6,02
350 DATA E7,C4,6F,C4,39,CC,0E,09,8D,07,E7,C4,E6,41,6F,C4
360 DATA 39,A7,41,86,03,A7,C4,6F,C4,39,34,40,CE,FD,15,8D
370 DATA E4,34,04,C4,10,1F,98,35,04,C4,20,35,C0
380 DATA 100 :' END MARK
>>>>>>> by Zumi & Fox <<<<<<<