image of READY prompt

Wang2200.org

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"