#11 Article 2011 Posted at 1988/09/01 15:36:56 by GHOST (MAP669) [PRG.NL3]
Subject: ｳｴ ﾉ ﾌﾟﾛｸﾞﾗﾑ
以後、バ－ジョンアップのさいは、このプログラムで展開します。
DRIVE0にDATADISK、DRIVE1にNEDITをいれてください。
100 LOADM"1:NEDIT",&HC000
110 OPEN "I",#1,"0:NEDITDATA":MA=&HC000:AD$="":FL=0
120 IF EOF(1) THEN 1000
130 LINPUT#1,A$
140 FOR I=1 TO 64 STEP 2
150 B$=MID$(A$,I,2)
160 IF FL=1 THEN 230
170 IF FL=2 THEN 240
180 IF B$="&H" THEN FL=1:AD$=B$:GOTO 210
190 FL=0:A=VAL("&H"+B$)
200 POKE MA,A:MA=MA+1
210 NEXT I
220 PRINT".";:GOTO 120
230 AD$=AD$+B$:FL=2:GOTO 210
240 AD$=AD$+B$:MA=VAL(AD$)+&H6000:FL=0:GOTO 210
250 '
1000 SAVEM"1:NEDIT",&HC000,MA,&H6000
1010 DEVI$"1:",16,A$,B$
1020 C$=MID$(A$,1,32)+STRING$(96,&HFF)
1030 MID$(c$,1,1)=CHR$(1)
1040 MID$(c$,2,16)="NEDIT for X1 Sys"
1050 MID$(c$,21,1)=CHR$(0)
1060 MID$(c$,22,1)=CHR$(&H60)
1070 MID$(c$,31,2)=MKI$(CVI(MID$(A$,31,2))*16)
1080 DEVO$"1:",0,C$,STRING$(128,&HFF)
1090 END