#11 Article 354 Posted at 1987/09/02 23:31:45 by NOZOMU (MAP041) [PRG.NL3]
Subject: NLOADER3 ﾍﾝｺｳ ﾆ ﾂｲﾃﾉ ｵﾜﾋﾞ ﾄ ｵｼﾗｾ
ｴｪｰｰｯﾄ･･･ ﾁﾞﾂﾊ NLOADER3ｦ ｼｮｳｼｮｳ ﾍﾝｺｳ ｼﾏｽ･･･ LOADERｦ ｲｼｮｸ ｼﾃ ｸﾀﾞｻｯﾀ ﾐﾅｻﾝﾅﾗ ｵｷﾂﾞｷﾉ ｺﾄﾄ ｵﾓｲﾏｽｶﾞ､ NLOADER3ﾃﾞﾊ ｷｬﾗｸﾀｰ･ｺｰﾄﾞ $7F ｦ ﾂｶｯﾃ ｲﾏｽｶﾞ､ ｼﾞﾂﾊ ｺﾚﾊ DEL ｺｰﾄﾞ ﾅﾝﾃﾞｽﾖﾈ･･･ ｼﾞｯｻｲ ｼﾞﾌﾞﾝﾃﾞ upｼﾀ kareha.nl3ｦ downｼﾃ ｻｲｾｲ ｼﾖｳﾄ ｼﾀﾗ､ $7Fｶﾞ ｶｹﾙﾀﾒ､ ｶﾞﾒﾝﾉ ﾐｷﾞﾊｼﾞ ｶﾞ ｸｽﾞﾚﾃ ｼﾏｲﾏｼﾀ｡ ｸｼﾞｮｳﾓ ｺﾅｲﾐﾀｲﾀﾞｼ､ TA(O)ｸﾝ､ SHINOBUｻﾝ ﾓ ﾄﾞｰﾔﾗ ﾁｬﾝﾄ ｻｲｾｲ ﾃﾞｷﾃ ｲﾙﾖｳﾃﾞｽ･･･ ｳｩｰｰﾑ ﾌｼｷﾞﾀﾞ･･･ ﾅﾝﾃ ﾌｼｷﾞｶﾞｯﾃ ｲﾃﾓ ｼｶﾀ ﾅｲﾉﾃﾞ､ ｲｶﾉ ﾖｳﾅ ﾍﾝｺｳｦ ｸﾜｴﾏｽ｡ 1. NLOADER3ﾃﾞ ｱﾂｶｳ ｽｳﾁﾊ 0 ｶﾗ 160 ﾏﾃﾞﾄ ｽﾙ｡ 2. 0 ｶﾗ $5E ﾏﾃﾞﾉ ｶｽﾞﾊ ｲﾏﾏﾃﾞ ﾄﾞｳﾘ $20 ｸﾜｴﾃ $20 ｶﾗ $7E ﾄ ｽﾙ｡ 3. $7F ｲｼﾞｮｳﾉ ｶｽﾞﾆﾊ ｻﾗﾆ $21ｦ ｸﾜｴﾃ $A0 ｲｼﾞｮｳﾆ ｽﾙ｡ (ﾍﾝｺｳﾃﾝ) 4. $21ｦ ｸﾜｴﾀ ｹｯｶ､ 159,160 ﾊ ｿﾚｿﾞﾚ $E0,E1 ﾆ ﾅﾙｶﾞ､ ｺﾚﾆﾊ ｻﾗﾆ $1Dｦ ｸﾜｴ､ $FD,$FE ﾄ ｽﾙ｡ 5. ｲｼﾞｮｳﾉ ﾖｳﾅ ﾍﾝｶﾝﾆ ﾖﾘ､ ｷｬﾗｸﾀｰ･ｺｰﾄﾞ $20~$7E,$A0~$DF,$FD,$FE ﾃﾞ､ 0 ｶﾗ 160 ﾏﾃﾞﾉ ｶｽﾞｦ ｱﾗﾜｽ｡ (ﾂﾏﾘ､ NL3ﾌｧｲﾙﾆ ｶﾝｼﾞｶﾞ ﾊｲｯﾀﾗ ｿﾚﾊ ﾓｼﾞﾊﾞｹ ﾃﾞｽ) 6. ｼｶｼ､ ｱｯｼｭｸﾊ ｻｲﾀﾞｲ 160ﾄﾞｯﾄﾃﾞ､ ｿﾚｶﾗ 2ｦ ﾋｸﾉﾃﾞ ｼﾞｯｻｲﾆﾊ $FD,$FE ﾊ ﾂｶﾜﾚﾅｲ｡ ﾄ ｲｳﾖｳﾅ ﾍﾝｺｳｦ ｼﾏｽ｡ ﾏﾀ､ ｲﾏﾏﾃﾞﾉ NL3 ｱｰﾃｨｸﾙｦ ﾍﾝｺｳｺﾞﾉ ﾌｫｰﾏｯﾄﾆ ﾍﾝｶﾝ ｽﾙ ﾌﾟﾛｸﾞﾗﾑﾊ ｲｶﾉ ﾄｳﾘ ﾃﾞｽ｡ ｲﾏﾏﾃﾞﾆ downｼﾀ ﾃﾞｰﾀﾊ ｺﾚﾃﾞ ﾍﾝｺｳ ｼﾃ ｸﾀﾞｻｲ｡ ｹﾞﾝｺﾞﾊ N88-BASICﾃﾞ ｶｶﾚﾃ ｲﾏｽ｡ 100 INPUT "File name ( no need for extention.) : ";F$ 110 NAME F$+".nl3" AS F$+".bak" 120 OPEN F$+".bak" FOR INPUT AS #1 :'FMﾕｰｻﾞｰﾊ ｺﾉ 2ｷﾞｮｳｦ ｶｷｶｴﾃ ｸﾀﾞｻｲ｡ 130 OPEN F$+".nl3" FOR OUTPUT AS #2 :' 140 WHILE NOT EOF(1) 150 A$=INPUT$(1,1) 160 IF A$=CHR$(&H7F) THEN A$=CHR$(ASC(A$)+&H21):GOTO 180 170 IF A$>CHR$(&H7F) THEN A$=CHR$(ASC(A$)+1 ) 175 IF A$=CHR$(&HE0) THEN A$=CHR$(ASC(A$)+&H1D):GOTO 180 176 IF A$>CHR$(&HE0) THEN A$=CHR$(ASC(A$)+1 ) 180 PRINT #2,A$; 190 WEND 200 CLOSE ﾁｭｳﾄﾊﾝﾊﾟﾅ ﾏﾏ ｺｳｶｲﾆ ﾌﾐｷｯﾃｼﾏｲ､ ｲｼｮｸ ｼﾃｸﾀﾞｻｯﾀ ｶﾀｶﾞﾀ､ ｿｼﾃ down ｼﾃ ｺﾞﾘﾖｳ ｸﾀﾞｻｯﾃ ｲﾙ ﾐﾅｻﾝﾆ ﾀｲﾍﾝ ｺﾞﾒｲﾜｸｦ ｵｶｹ ｼﾃ ｼﾏｲﾏｼﾀ｡ ﾌｶｸ ｵﾜﾋﾞ ﾓｳｼｱｹﾞﾏｽ｡ sysopﾎﾟﾘｱﾝﾅｻﾏ､ Bugｲﾘ ﾌﾟﾛｸﾞﾗﾑﾃﾞ ﾎﾞｰﾄﾞｦ ﾖｺﾞｼﾃｼﾏｲ､ ﾎﾝﾄｰﾆ ﾓｳｼﾜｹ ｱﾘﾏｾﾝ｡ *** ｳﾐﾖﾘ ﾌｶｰｰｸ ﾊﾝｾｲ ｼﾃﾏｽ･･･ ﾕﾙｼﾃ ﾔｯﾃ ｸﾀﾞｻｲｯ!! NOZOMU ***