Listing of file='IDS2PF03' on disk='vmedia/701-2717B.wvd.zip'
# Sector 450, program filename = 'IDS2PF03' 1000 REM "IDS2PF03" - DATA FILE EDITOR - OPERATION SELECTION & FIELD DISPLAY 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" 1020 COM F9$(250)2,F8$(250)2,F4$(249)1,F1$8,F2$8,F4,C0,J5,J2,J3,Z,F8 : F7$=" " : E9$(7)="IDS2PF01" : R3$(1)="IDS2MF01" : S=2 : F6$(11)="N" : MAT SEARCHF$(),=STR(F7$,1,8)TO F9$STEP 8 : Z=INT(VAL(F9$,2)/8) : IF F9$=HEX(0000)THEN Z=249 : E3$()=ALL(20) : IF Z<249THEN STR(F$(),Z*8+1)=ALL(FF) : MAT REDIM F$(249)8 1080 MAT SORTF$()TO F8$(),F9$() : IF Z<249THEN STR(F$(),Z*8+1)=ALL(20) : MAT MOVE F$(),F9$(1)TO E3$(1) : MAT REDIM F$(E9)1,E$(E8)1 : CONVERT Z/84+.999TO E$,(#) : GOSUB '45(5,E$) : GOSUB '43(4) : PRINT HEX(060F) : FOR I=2TO 22 : PRINT AT(I,43); : FOR J=1TO 4 : X=(Q-1)*84+I-1+(J-1)*21 : IF X<250AND X>0THEN PRINT " ";STR(E3$(X),1,8); : ELSE PRINT " "; : NEXT J,I 1210 PRINT HEX(060F);AT(19,1);"00 Add field" : PRINT AT(20,1);"EDIT Edit Field" : PRINT AT(20,22);"20 Re-arrange for" : PRINT AT(21,22);" optimum packing" : PRINT AT(22,22);"25 Delete field" : STR(E$(),468,31)=" " : F=6 : GOSUB '36 : GOTO 1310 1300 PRINT HEX(07) 1310 F0$=" key in LOWER box, FN'31 = CANCEL" : IF Z>0THEN F0$=F0$&", EXEC = accept file as shown" : GOSUB '63("Touch desired FN",F0$," ") : GOSUB '34(250) : IF Q=31THEN 1740 : IF Q=33THEN 1620 : IF Z>0AND Q=32THEN LOAD DC T#2,"IDS2PF09"1000, : IF Q>0AND Q<16THEN 1300 : IF Q>20AND Q<25THEN 1300 : IF Q>25THEN 1300 1380 $TRAN(E6$,HEX(01000311041205130614071902F0))R : ON VAL(E6$)GOTO 1570,1620,1420,1450,1510,1710,1670 : GOTO 1300 1420 GOSUB '45(4,"1") : GOTO 1020 1450 GOSUB '43(5) : IF Q<2THEN PRINT HEX(07); : IF Q<2THEN 1310 : GOSUB '45(4,"2") : GOTO 1020 1510 GOSUB '43(5) : IF Q<3THEN PRINT HEX(07); : IF Q<3THEN 1310 : GOSUB '45(4,"3") : GOTO 1020 1570 PRINT HEX(06020402000E);AT(19,4);"Add field" : IF Z=249THEN 1300 : Q,F8=1 : LOAD DC T#2,"IDS2PF04"1000, 1620 IF Z=0THEN 1300 : PRINT HEX(06020402000E);AT(20,7);"Edit field" : Q,F8=2 : LOAD DC T#2,"IDS2PF05"1000, 1670 IF Z=0THEN 1300 : PRINT HEX(06020402000E);AT(22,25);"Delete field" : Q,F8=3 : LOAD DC T#2,"IDS2PF05"1000, 1710 PRINT HEX(06020402000E);AT(20,25);"Re-arrange for"; : PRINT HEX(06020402000E);AT(21,25);"optimum packing" : LOAD DC T#2,"IDS2PF07"1000, 1740 MAT REDIM E$(E8)1,E2$(250)9,E3$(249)8,F$(E9)1 : COM CLEAR F9$() : COM CLEAR D2 : LOAD DC T#2,"IDS2MF01"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PF03" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"