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"