#11 Article 930 Posted at 1988/01/18 06:41:47 by 恭子命！ (MAP604) [PRG]
Subject: DAV ｺﾝﾊﾞｰﾀｰ ﾃﾞｽ
1000 '*********** PROGRAM By JIONG Project Dｺ ﾄ OCT SYSTEM MEDIA
1010 '*********** COPYRIGET By OCT SYSTEM MEDIA
1020 CLEAR ,&HD6FF
1030 CLS
1040 PRINT"***** ASCII FILE ｦ(DAV.DATｦ) OBJ FILE ﾆ ﾍﾝｶﾝ ﾁｭｳ *****"
1050 PRINT"***** ﾍﾝｶﾝｺﾞ DAV.DAT ﾊ ｲﾘﾏｾﾝﾉﾃﾞ ﾎｶﾝ ｽﾙｶ ｹｼﾃﾈ! *****"
1060 PRINT"***** ﾍﾝｶﾝｺﾞ ﾉ FILE NAME ﾊ 'dav88' ﾄﾅﾘﾏｽ *****"
1070 ON ERROR GOTO 1170
1080 OPEN "DAV.DAT" FOR INPUT AS #1
1090 LINE INPUT#1,A$:S$=MID$(A$,1,4):E$=MID$(A$,5,4)
1100 S=VAL("&H"+S$):E=VAL("&H"+E$)
1110 FOR I=S TO E STEP 32
1120 LINE INPUT#1,A$
1130 M=1:FOR J=I TO I+31
1140 POKE J,VAL("&H"+MID$(A$,M,2)):M=M+2
1150 LOCATE 0,5:PRINT" 'dav88' ﾊ ｱﾄ :";INT(E-J);"Bytes "
1160 NEXT J,I
1170 CLOSE:A$="":M=0:BSAVE "dav88.",S,E-S
1180 END
ｺﾚﾃﾞ ｵﾜﾘﾃﾞｽ!!
ｺﾞｼﾞﾂ "GLS(ｸﾞﾗﾌｨｯｸ ﾛｰﾄﾞ&ｾｰﾊﾞｰ)"
ｦ ｶｷｺﾐﾏｽ ﾉﾃﾞ!!
ｿﾁﾗﾓ ﾖﾛPｸ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
MAP604/JIONG