image of READY prompt

Wang2200.org

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"