#11 Article 1431 Posted at 1988/05/12 05:06:27 by TA(O) (MAP269) [PRG.NL3]
Subject: Dataﾌﾞﾌﾞﾝ ｷﾘﾊﾅｼ program
ｴｯﾄ､ﾔｯﾄ ｺﾉ ﾎﾞ-ﾄﾞﾓ ﾖﾐｵﾜﾘ (ｾﾞﾝｾﾞﾝ down-loadﾊ ﾃﾞｷﾏｾﾝﾃﾞｼﾀｶﾞ ﾄﾘｱｴｽﾞ ｺﾒﾝﾄ ﾀﾞｹ ﾃﾞﾓ ﾖﾓｳﾄｲｳｺﾄﾃﾞ ﾖﾝﾃﾞ ｷﾏｼﾀ) ｿｳｼﾀﾗ data ﾌﾞﾌﾞﾝﾉ ｷﾘﾊﾅｼｶﾞ ﾃﾞﾃｷﾃｲﾙﾉﾃﾞ ｷﾘﾊﾅｼﾉ programﾉ sampleｦ 88ﾃﾞ ﾂｸｯﾃ ﾐﾏｼﾀﾉﾃﾞ ﾄﾞｳｿﾞ ｵﾂｶｲ ｸﾀﾞｻｲ｡ ﾂｶｲｶﾀﾊ file nameﾆ ｺﾀｴﾚﾊﾞ Okﾃﾞｽ (ｺﾉﾄｷ .NL3ﾊ ﾂｹﾅｲﾃﾞｸﾀﾞｻｲ) ｿﾉﾄｷ ﾄﾘｱｴｽﾞ､ ｿﾉ fileｦ xXxXxX.BAK ﾆ rename ｼﾏｽ｡ ﾃﾞ ｻｲｼｭｳﾃｷﾆﾊ ｼﾃｲｼﾀ file nameﾉ dataｶﾞ ﾃﾞｷｱｶﾞｯﾃｲﾙ ﾊｽﾞﾃﾞｽ｡ chekcﾊ ｷﾋﾞｼｸ? ｼﾃｲﾙﾉﾃﾞ ｺﾚﾃﾞ ﾀﾌﾞﾝ ｳﾏｸ ｷﾘﾊﾅｾﾙﾄ ｵﾓｲﾏｽ｡ ｵｶｼｶｯﾀﾗ ｺﾞﾒﾝﾅｻｲﾈ (ｼﾞｶﾝﾆ ｼﾃ 30ﾌﾝﾃﾞ ﾂｸｯﾀﾉﾃﾞ ･････) 10 'Data ﾌﾞﾌﾞﾝ ｷﾘﾊﾅｼ program sampleﾃﾞｽ 20 'MAP269 / TAKO / TAKAKO / Magical Creamy TA(O) / TA(O) / TA(P) / ｻｸﾗｲ ﾄﾓｵ 30 ' 100 ON ERROR GOTO 1000 110 INPUT "File name =";F$ 120 KILL "xXxXxX.BAK" 130 NAME F$+".NL3" AS "xXxXxX.BAK" 140 OPEN "xXxXxX.BAK" FOR INPUT AS #1 150 OPEN F$+".NL3" FOR OUTPUT AS #2 160 IF EOF(1) THEN END 170 LINE INPUT #1,A$ 180 IF LEN(A$)=128 THEN 200 ELSE IF LEN(A$)=78 THEN 200 190 GOTO 160 200 E=0 210 FOR I=1 TO LEN(A$) STEP 2 220 L=ASC(MID$(A$,I,1)):L=L-32:IF L=>127 THEN L=L-33 230 H=ASC(MID$(A$,I+1,1)):H=H-32:IF H=>127 THEN H=H-33 240 L=L+(H AND 1)*128:H=INT(H/2):C=H*256+L 250 IF C>729 THEN E=1 260 NEXT 270 IF E=1 THEN 160 280 PRINT #2,A$ 290 IF EOF(1) THEN CLOSE #1,#2:END 300 LINE INPUT #1,A$ 310 PRINT #2,A$ 320 GOTO 290 1000 IF ERL=120 THEN RESUME NEXT 1010 ERROR ERR