#11 Article 108 Posted at 1987/05/06 22:25:30 by NOZOMU (MAP041) [PRG.SHI]
Subject: SHINOBU.LOADER #103 for X68000
ﾄﾞｳｺｳ ｲｲﾂﾂ､ ｻﾗﾆ ｲｼｮｸ ｼﾃｼﾏｯﾀ･･･
X68000ﾄ 98ﾉ ｱﾏﾘﾉ ｶﾞｼﾂﾉ ｻﾆ､ ｵﾓﾜｽﾞ 98ﾉ 400lineﾖｳﾓ ﾂｸｯﾃﾐﾏｼﾀｶﾞ､
ｹｯｷｮｸ 200lineﾄ ｻｼﾃ ｶﾜﾗﾅｶｯﾀﾉﾃﾞ saveﾓ ｼﾏｾﾝﾃﾞｼﾀ･･･
ｿﾚﾃﾞﾊ X68000ﾕｰｻﾞｰﾉ ﾐﾅｻﾏ､ ｺﾚﾃﾞ ｸﾞﾚｲｽｹｰﾙﾉ ﾏｲﾁｬﾝｦ ﾐﾃｸﾀﾞｻｲ!!
1000 /*
1010 /* loader.#103 for X-BASIC
1020 /*
1030 cls
1040 screen 1,3,1,1
1050 str a[255]
1060 char cm,c1,c2
1070 int fp,x,y,bf,x2,y2,d1,d2
1080 dim int d(7)={6342,14798,23254,31710,40166,48622,57078,65534}
1090 fp=fopen("ﾏｲﾁｬﾝ","r")
1100 for x=0 to 31
1110 repeat
1120 freads(a,fp)
1130 until strlen(a)<>0
1140 for bf=0 to 4
1150 for y=0 to 47
1160 cm=asc(mid$(a,bf*48+y+12,1))-&H20
1170 c1 = cm \ 8 : c2 = cm mod 8
1180 x2=(x*5+bf)*3:y2=y*10:d1=d(c1):d2=d(c2)
1190 fill(x2,y2 ,x2+2,y2+4,d1)
1200 fill(x2,y2+5,x2+2,y2+9,d2)
1210 next
1220 next
1230 next
1240 fcloseall()
1250 while 1:endwhile