image of READY prompt

Wang2200.org

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"