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"