Listing of file='IDS2PU02' on disk='vmedia/701-2715B.wvd.zip'
# Sector 510, program filename = 'IDS2PU02' 1000 REM "IDS2PU02" - FILE STATUS - SUPPLEMENTARY DATA FILE UTILITIES 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : DIM C5$8,C6$8,F2$(256)1,C$(6)83 1030 GOSUB '32("IDS2sSC0") : E$()=E9$(1) : F6$(12),F6$(13)="N" : PRINT AT(0,7);HEX(020402000E);"Supplementary Utilities/"; : PRINT " File Status"; : PRINT HEX(0F);AT(11,42);"file to be reviewed" 1050 GOSUB '34(1) : E9$(1)=E$ : C6$=E$ : C5$=C6$OR ALL(20) : GOSUB '39(C5$,5) : IF Q<>2THEN 1110 : DATA LOAD BA T#P,(A)F2$() : IF STR(F2$(),4,1)<>HEX(E3)THEN 1110 : GOTO 1120 1110 GOSUB '38(97," ") : GOTO 1050 1120 DATA LOAD DA T#P,(A)C$() : MAT SEARCHE1$(),=STR(C6$,,8)TO F9$STEP 8 : D4=INT((VAL(F9$,2)+55)/56) : IF D4>0THEN 1180 : MAT REDIM E3$(9)83 : DIM J$8 : J$="IDS2fs " : A=(R0-#PART)/16+1 : CONVERT ATO STR(J$,7,2),(##) : DATA LOAD DC OPEN T#2,J$ : DATA LOAD DC #2,E3$() : MAT SEARCHE3$()<#PART*45-17,45>,=STR(C$(),105,3)TO F9$STEP 3 : J9=INT((VAL(F9$,2)+2)/3) : GOTO 1190 1180 J9=VAL(STR(E1$(D4),9)) 1190 LIMITS T#J9,C6$,C5,B,B1,B : IF C5<>0THEN 1200 : GOSUB '38(98," ") : GOTO 1050 1200 CONVERT STR(C$(),201,8)TO C7 : CONVERT STR(C$(),209,8)TO D5 : CONVERT STR(C$(),244,5)TO C6 : D7=VAL(STR(C$(),234),2) : D6=(B1-2)/C6 : GOSUB '32("IDS2sU02") : GOSUB '45(1,C6$) : GOSUB '55(2,C7) : GOSUB '55(3,D5) : GOSUB '55(10,D7) : J4,J5,J8=0 : J7=1E6 : FOR J1=0TO C6-1 : DATA LOAD BA T#J9,(C5+J1*D6)F2$() : J3=VAL(STR(F2$(),9),2) : J4=J4+J3 : J5=J5+VAL(STR(F2$(),11),2) 1290 IF J3<J7THEN J7=J3 : IF J3>J8THEN J8=J3 : GOSUB '55(4,J4) : GOSUB '55(5,D5-J4) : GOSUB '55(6,100*J4/C7) : GOSUB '55(7,100*J4/D5) : GOSUB '55(8,J5) : IF J4=0THEN 1310 : GOSUB '55(9,100*J5/J4) 1310 GOSUB '55(11,J8) : GOSUB '55(12,J7) : GOSUB '55(13,J4/C6) : NEXT J1 : MAT REDIM E3$(249)8 : GOSUB '38(114," ") : GOSUB '34(250) : IF Q=33THEN 1030 : P=2 : IF F6$(53)="Y"THEN GOSUB '39(R3$(1),4) : LOAD T#P,R3$(1)1000, 1340 DEFFN'127"J9$=";HEX(22);"IDS2PU02";HEX(22);":SCRATCHTJ9$:SAVET()J9$1000," ;HEX(0D) 1350 DEFFN'0"LIST S HEX(03) D 10,";HEX(0D) 1360 DEFFN'126"LIST S HEX(03) D 1300 ,";HEX(0D) : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PU02" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"