Listing of file='IDS2PU19' on disk='vmedia/701-2724B.wvd.zip'
# Sector 821, program filename = 'IDS2PU19' 1000 REM - IDS2PU19 - Data Record File Dump Part 3 - Set Up Display 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,D1$(254)1,D0$3,D0$(249)1,D1$55,D2$32,D3 $8,D4$5 : COM C0,C1,C2,C3,C4,C5,C6,D0,D1,D2,D3,D4,D8,D9,J3,J4,J5,J6,J7 : MAT SEARCHE1$(),=STR(D3$,,8)TO F9$STEP 56 : D4=INT((VAL(F9$,2)-1)/56)+1 : GOSUB '32("IDS2sU13") : E$()=" " 1130 GOSUB '45(1,D3$) : F5$=D3$OR ALL(20) : GOSUB '39(F5$,5) : IF Q<>2THEN STOP "Control File Doesn't exist!!"# : MAT REDIM E$(6)83 : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 : GOSUB '37(2) : GOSUB '37(4) : GOSUB '39(STR(E$(),2,8),VAL(STR(E1$(D4),9))) : IF Q<>2THEN STOP "Data File Does Not Exist !!!! "# : C2=(N-2)/VAL(STR(E$(),435),2) : J3=1 : C3=VAL(STR(E$(),435),2) 1240 J6=VAL(STR(E$(),414)) : J7=VAL(STR(E$(),415))+MOD(J6,2) : D4$=STR(E$(),420,1)&STR(E$(),423,1)&STR(E$(),426,1)&STR(E$(),429,1)&STR(E $(),432,1) : J6=INT(J6/2) : J7=J7-MOD(J7,4) : J4=1 : C4=VAL(STR(E$(),437))/8 : J5=1 : C0=VAL(STR(E$(),416)) : C1=VAL(STR(E$(),419)) : C6=VAL(STR(E$(),417)) : D8=0 : D9=INT((D0+D1+D2+D3-10)/40) : E2$()=" " 1400 J5=1 : LOAD T#2,"IDS2PU20"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PU19" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"