Listing of file='IDS2PF13' on disk='vmedia/701-2717B.wvd.zip'
# Sector 54, program filename = 'IDS2PF13'
1000 REM "IDS2PF13" - Release 2.1 - DATA FILE EDITOR - FILE INIT. SET-UP
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sF13")
: DIM J0$(6)83,J1$(6)83
: E3$()=" "
: MAT REDIM E3$(249)8
: F2$=STR(E$(),2,8)
: F1$=STR(E$(),82,8)OR ALL(20)
: GOSUB '39(F1$,5)
: DATA LOAD DA T#P,(A)J1$()
1070 GOSUB '71(STR(J1$(),2))
: FOR J=275TO 395STEP 8
: GOSUB '71(STR(J1$(),J,8))
: NEXT J
: Y=N
1100 F0$=" initialize"
: IF X=17THEN F0$=F0$&" all files"
: ELSE F0$=F0$&" "&E3$(X)
: IF Y>1THEN F0$=F0$&", FN'00 - FN'##, FN'17"
: F0$=F0$&", or CANCEL to abort"
: IF Y>1THEN CONVERT Y-1TO STR(F0$,POS(F0$="#"),2),(##)
: GOSUB '63("Touch EXECUTE to",F0$," ")
: GOSUB '34(250)
: IF Q=32OR Q=130THEN 1230
1170 IF Q<>31THEN 1180
: GOSUB '39(R3$(1),4)
: IF Q=1THEN LOAD DC T#P,R3$(1)1000,
1180 IF Q<>17AND Q>Y-1THEN 1100
: X=Q
: IF X=17THEN F2$=" "
: ELSE F2$=E3$(X+1)
: E3$()=" "
: GOTO 1070
1230 IF X<17THEN E3$()=F2$
: E$="Y"
: E6$=HEX(02)
: LOAD DC T#2,"IDS2PF14"1000,
1270 STOP #
1280 DEFFN'71(E$)
: IF E$=" "THEN RETURN
: FOR I=17TO 1STEP -1
: IF E3$(I)=" "THEN N=I
: NEXT I
: E3$(N)=E$
: E$=E3$(N)OR ALL(20)
: C3=N
: GOSUB '39(E$,5)
: N=C3
: DATA LOAD DA T#P,(A)J0$()
: PRINT HEX(060F);AT(N+2,24);STR(J0$(),10,1);" ";HEX(020402000E);STR(E3$(N
),,8);
: IF E3$(N)<>F2$AND X<>17THEN PRINT HEX(0F);
: IF E3$(N)=F2$THEN X=N
: PRINT " ";STR(J0$(),22,32);HEX(0F);
: RETURN
1300 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PF13"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"