#11 Article 1272 Posted at 1988/04/01 00:15:32 by ﾄﾞﾛﾝﾊﾟｯ! (MAP662) [PRG.NL3]
Subject: NLOADER3 for MZ2500
ﾄﾞｳﾓ ﾅﾝﾔｶﾝﾔ ｲｯﾃ ｹｯｷｮｸ ALL BASIC ﾃﾞｽｶﾞ... ﾎﾝﾄﾊ ALL MACHINEｺﾞ ﾆ ｽﾙﾖﾃｲﾀﾞｯﾀﾉ ﾃﾞｽｶﾞ BASICﾉ PROGRAMｶﾞ ｱﾙﾄ ｵﾓｲ ﾂｲﾂｲ ﾅﾏｹﾃｼﾏｲﾏｼﾀ. (BASICﾊﾞﾝﾅﾗ ﾄｳﾉ ﾑｶｼﾆ ﾃﾞｷﾃｲﾀﾉ ﾃﾞｽ)ｿﾚﾃﾞ ﾓｳ ﾒﾝﾄﾞｳ ｸｻｲｶﾗ BASICﾃﾞ ｲｲﾔﾄｲｳｺﾄﾆﾅｯﾃ... BASICﾃﾞﾓ ｹｯｺｳ ﾊﾔｲ(ﾋﾄﾆﾖﾙ)ﾝｼﾞｬﾅｲｶﾄｵﾓｳﾉﾃﾞ ｶﾝﾍﾞﾝ ｼﾃｸﾀﾞｻｲ. NEDITﾓﾄﾞｷﾓｱﾙﾉﾃﾞｽｶﾞ(ｷﾉｳﾀﾞｹﾊ ｺﾞｳｶﾅﾉﾀﾞｶﾞ ｲﾛｽｳｶﾞ 16ｼｮｸｼｶﾂｶｴﾅｲ)ﾄﾞｳﾓ MZﾕｰｻﾞｰﾊ ｲﾅｲｶﾅ?ｯﾃ ｶﾝｼﾞﾅﾉﾃﾞ ｺﾝﾄﾞﾆ ｼﾄｷﾏｽ.(ﾅﾗ ｺﾚﾀﾞｯﾃｲﾗﾅｲｯﾃ ｳﾜｻﾓ ｱﾙｶﾞ...) ﾃﾞﾊ ｵｿﾏﾂﾅ ﾌﾟﾛｸﾞﾗﾑﾃﾞｽｶﾞ ｻﾝｺｳﾆ ｼﾀｯﾄｲﾃｸﾀﾞｻｲﾏｼ... ---------------------PROG------------------- 10 'NLOADER3 for MZ2500 BASIC 20 'PROGRAMED by ﾄﾞﾛﾝﾊﾟｯ!! MAP662 30 init "crt2:320,200,256":cls 3'out $F4,10:out $F5,4 40 dim PLT%(63) 50 input "Input File name";N$ 60 open "i",#1,N$ 70 def FNR(A)=A-$20+(A>$7E)*$21+(A>$FC)*$1D 80 for I=1 to 64 90 gosub 300:L=A 100 gosub 300:H=A:R=H*128+L 110 B=R mod 9:R=R\9:G=R mod 9:R=R\9 120 G=G+(G>7):R=R+(R>7):B=B+(B>7) 130 PLT%(I-1)=G*64+R*8+B 140 next I 150 X=0 160 repeat 170 gosub 300:C=A and 63 180 if A<64 then pset (X\100+80,X mod 100+50),PLT%(C):X=X+1:goto 280 190 gosub 300:R=A+2 200 Y=100-(X mod 100) 210 if Y>R then 220 line (X\100+80,X mod 100+50)-(X\100+80,X mod 100+49+R),PLT%(C) 230 else 240 line (X\100+80,X mod 100+50)-(X\100+80,149),PLT%(C) 250 X=X+Y:R=R-Y:if R then 200 260 end if 270 X=X+R 280 until eof(1) 290 end 300 A=asc(input$(1,1)):if A=13 then if eof(1) then end else 300 310 A=FNR(A):return [EOP] ｲｶﾞｲﾆ(ﾃﾞﾓﾅｲｶ)ﾐｼﾞｶｸﾃ ｶﾞｸｯﾄ ｷﾀｶﾓ ｼﾚﾏｾﾝｶﾞ LOADERﾅﾗ ｺﾝﾅ ﾓﾝ ﾃﾞｽﾖ... ｵｿﾏﾂｻﾏ.