#11 Article 2393 Posted at 1989/01/07 10:57:32 by BOSS (MAP386) [PRG.BAS]
Subject: ｱ-ﾃｨｸﾙﾉ ﾍｯﾀﾞｦ ﾂｸﾙ PROGﾃﾞｽ
1000 ' CGﾉ ﾎﾞ-ﾄﾞﾉ ﾍｯﾀﾞｦ ﾂｸｯﾃ ｷﾏｼﾀｶﾞ MSXｵﾝﾘ-ﾄ ﾅｯﾃｶﾗ ﾋｼﾞｮ-ﾆ ﾒﾝﾄﾞｳﾆ ﾅｯﾃ ｼﾏｲﾏｼﾀ｡
1010 ' ﾃﾞﾓ MXｻﾝｶﾞ ﾂｶｯﾃ ｲﾃ ｸﾀﾞｻﾙﾄ ｲｳｺﾄﾃﾞ ｳﾚｼｸ ｵﾓｲﾏｽﾉﾃﾞ ﾍｯﾀﾞｦ ﾂｸﾙ ﾌﾟﾛｸﾞﾗﾑｦ
1020 ' UPｼﾃ ｵｷﾏｽ｡ BASICﾅﾉﾃﾞ ﾄﾞﾅﾀﾃﾞﾓ ｶﾝｽｳﾅﾄﾞﾉ ｼﾞｬｯｶﾝﾉ ﾍﾝｺｳﾃﾞ ﾂｶｴﾙﾄ ｵﾓｲﾏｽ｡
1030 ' ﾁﾅﾐﾆ GOTOﾌﾞﾝｦ ｲｯｻｲ ﾂｶｯﾃ ﾏｾﾝ (ｴﾗｲ) ｿﾉｶﾜﾘ ﾍﾝｽｳｶﾞ ﾑﾁｬ ｸﾁｬ ﾃﾞｽ｡(ﾜﾗｲ)
1040 ' ﾆｶｲﾎﾄﾞ ﾂｶｯﾃ ﾐﾃ ﾁｬﾝﾄ ﾃﾞﾃ ｷﾏｼﾀﾉﾃﾞ ﾀﾞｲｼﾞｮｳﾌﾞﾅ ﾊｽﾞﾃﾞｽ｡ (sysopﾆﾖﾙ ｷｬﾝｾﾙﾊ
1050 ' ﾏﾀﾞ ﾁｪｯｸ ｼﾃ ﾏｾﾝｹﾄﾞ･･･ ﾊﾊﾊﾊ)
1060 ' MAP386 BOSS
1070 '
1080 INPUT NA$:OPEN "map"+NA$+".log" FOR INPUT AS #1 :' ｺｺﾊ ﾃｷﾄｳﾆ ﾛｸﾞﾉ ﾌｧｲﾙﾒｲ
1090 OPEN "head.map" FOR APPEND AS #2 :' ｺｺﾆﾊ ﾍｯﾀﾞｦ ｼｭﾂﾘｮｸｽﾙ ﾌｧｲﾙｦ
1100 LINE INPUT #1,X1$
1110 IF LEFT$(X1$,8)="Article " AND INSTR(X1$," in CG･Tech [")<>0 THEN GOSUB 1140
1120 ' ~~~~~~~ ｺｺｦ ｶｷｶｴﾙﾄ ﾎｶﾉ ﾎﾞ-ﾄﾞﾃﾞ ﾂｶｴﾏｽ
1130 IF EOF(1) THEN CLOSE:END ELSE 1100
1140 '
1150 LINE INPUT #1,X2$
1160 LINE INPUT #1,X3$
1170 L1=LEN(X1$):L2=LEN(X2$):L3=LEN(X3$)
1180 ' Number
1190 A1=INSTR(X1$," of ")
1200 A$=SPACE$(13-A1)+MID$(X1$,9,A1-9)
1210 ' Canceled
1220 IF X2$="(canseled by poster)" OR X2$="(Canseled by sysop)" THEN PRINT #2,A$+" "+X2$:RETURN
1230 ' Keyword
1240 B1=A1+A1+8
1250 B$=LEFT$(MID$(X1$,B1,L1-B1)+" ",8)
1260 ' Date & Time
1270 C$=MID$(X2$,11,17)
1280 ' Name
1290 D$=MID$(X2$,32,12)
1300 ' ID
1310 E$=MID$(X2$,46,6)
1320 ' Charactor
1330 F$=MID$(X2$,60,5)
1340 IF F$="ASCII" OR F$="KANJI" THEN G=66
1350 IF F$="KANA " THEN G=65
1360 ' lines
1370 G$=RIGHT$(" "+MID$(X2$,G,L2-6-G),3)
1380 ' Subject
1390 H$=MID$(X3$,10,LEN(X3$)-9)
1400 '
1410 'OUTPUT
1420 PRINT #2,A$+" "+B$+" "+C$+" "+D$+" "+E$+" "+F$+" "+G$+" "+H$
1430 'PRINT A$+" "+B$+" "+C$+" "+D$+" "+E$+" "+F$+" "+G$+" "+H$
1440 '
1450 RETURN
ｲﾁﾌﾞ ﾂﾂﾞﾘｶﾞ ﾏﾁｶﾞｴﾃ ｲﾏｽﾈ (ﾜﾗｲ)