#11 Article 1951 Posted at 1988/08/18 12:00:05 by GHOST (MAP669) [PRG.NL3]
Subject: ｳｴ ﾉ ﾌﾟﾛｸﾞﾗﾑ 1
1 'NEDIT for X1 ver2.0 Produced by GHOST (88'8/18)
10 DEFINT A-Z:CLS:WIDTH80:I=&HC000
20 OPEN "I",#1,"0:NEDITDATA":K=0:LOCATE0,0:PRINT"DATA ｻｸｾｲﾁｭｳ"
30 IF EOF(1) THEN 170
40 LINPUT#1,A$:C$="":K=K+1
50 D=VAL("&h"+MID$(A$,65,2))
60 A$=LEFT$(A$,64):E=0
70 LOCATE13,0:PRINT K
80 FOR J=1 TO 63 STEP 2
90 B=VAL("&h"+MID$(A$,J,2))
100 E=E+B
110 B$=CHR$(B)
120 C$=C$+B$
130 NEXT J
140 IF E MOD 256 <> D THEN PRINTK;:PRINT"ﾊﾞﾝﾒ ｶﾞ ﾁｶﾞｯﾃｲﾏｽ｡":CLOSE:END
150 MEM$(I,32)=C$
160 I=I+32:GOTO 30
170 CLOSE
180 '
190 SAVEM"1:NEDIT",&HC000,&HDDFF,&H6000
200 DEVI$"1:",16,A$,B$
210 C$=MID$(a$,1,32)+STRING$(96,&HFF)
220 MID$(c$,1,1)=CHR$(1)
230 MID$(c$,2,16)="NEDIT for X1 Sys"
231 MID$(c$,21,1)=CHR$(0)
232 MID$(c$,22,1)=CHR$(&H60)
240 MID$(c$,31,2)=MKI$(CVI(MID$(A$,31,2))*16)
250 DEVO$"1:",0,C$,STRING$(128,&HFF)
260 END