#11 Article 1971 Posted at 1988/08/23 09:55:10 by GHOST (MAP669) [PRG.NL3]
Subject: ｳｴ ﾉ ﾌﾟﾛｸﾞﾗﾑ1
このプログラムは、ＤＲＩＶＥ０にＤＡＴＡがはいっているディスクを
ＤＲＩＶＥ１に以前作成したＮＥＤＩＴ本体をいれてからＲＵＮしてください。
バグがとれて、機能が拡張します。
10 DEFINT A-Z:CLS:WIDTH80
20 LOADM"1:NEDIT",&HC000
30 X$="3AC96AC8CDE57D"
40 Y$="CDDE7D"
50 Z$="CD8267CDA668C9CDCC6ACDCC6BC9"
60 C$=""
70 FOR J=1 TO 14 STEP 2
80 B=VAL("&h"+MID$(X$,J,2))
90 B$=CHR$(B)
100 C$=C$+B$
110 NEXT J
120 MEM$(&HCA85,7)=C$
130 C$=""
140 FOR J=1 TO 6 STEP 2
150 B=VAL("&h"+MID$(Y$,J,2))
160 B$=CHR$(B)
170 C$=C$+B$
180 NEXT J
190 MEM$(&HCF7A,3)=C$
191 C$=""
192 FOR J=1 TO 28 STEP 2
193 B=VAL("&h"+MID$(Z$,J,2))
194 B$=CHR$(B)
195 C$=C$+B$
196 NEXT J
197 MEM$(&HDDDE,14)=C$
200 '
210 I=&HE000
230 OPEN "I",#1,"0:NEDITDATA":K=0:LOCATE0,0:PRINT"DATA ｻｸｾｲﾁｭｳ"
240 IF EOF(1) THEN 380
250 LINPUT#1,A$:C$="":K=K+1
260 D=VAL("&h"+MID$(A$,65,2))
270 A$=LEFT$(A$,64):E=0
280 LOCATE13,0:PRINT K
290 FOR J=1 TO 63 STEP 2
300 B=VAL("&h"+MID$(A$,J,2))
310 E=E+B
320 B$=CHR$(B)
330 C$=C$+B$
340 NEXT J
350 IF E MOD 256 <> D THEN PRINTK;:PRINT"ﾊﾞﾝﾒ ｶﾞ ﾁｶﾞｯﾃｲﾏｽ｡":CLOSE:END
360 MEM$(I,32)=C$
370 I=I+32:GOTO 240
380 CLOSE
390 '
400 POKE &HC14C,0:POKE &HC14D,&H80 :POKE &HC14B,&HDA
410 SAVEM"1:NEDIT",&HC000,&HE07F,&H6000
420 DEVI$"1:",16,A$,B$
430 C$=MID$(a$,1,32)+STRING$(96,&HFF)
440 MID$(c$,1,1)=CHR$(1)
450 MID$(c$,2,16)="NEDIT for X1 Sys"
460 MID$(c$,21,1)=CHR$(0)
470 MID$(c$,22,1)=CHR$(&H60)
480 MID$(c$,31,2)=MKI$(CVI(MID$(A$,31,2))*16)
490 DEVO$"1:",0,C$,STRING$(128,&HFF)
500 END