Listing of file='609.VER1' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2719, program filename = '609.VER1'
0010 REM 609.VER1 238-08/07/86 Copyright Wang Laboratories, INC. 1986
0020 COM C5,T,D1$(64)8,D2$(20)54,J0,D9$(2048)5,J9,P,Q,C1$(256)1,C4$(5)60,@D,@D
9,@D$2,@D$(128)2
: @D9=128
: DIM J0$2,J1$(256)1,J2$(256)1,C1$(256)1,D0$1,C1$2,C2$2,D1$2,D2$2,D6(3),D3$
(128)2,D3$1,D5$(3)8,J2$1,J3$2,J4$2,C5$2,J9$80
0210 IF D6$<>" " THEN 222
: PRINT HEX(03)
: LINPUT "Enter the volume name"-D5$
: LINPUT "Enter the disk address"-D6$
0222 PRINT HEX(03);AT(11,11);"Verify in process for volume ";D5$;" at address
";STR(D6$,,3);AT(13,11);"All libraries, documents, and control data are c
hecked.";AT(17,22);HEX(0E);"Please wait for analysis report.";HEX(0F)
0230 SELECT #5<D6$>
: LIMITS T#5,D5$,J0,X,X,X
: ERRORCONVERT ERR TO C1$,(##)
: GOTO 2050
0240 A=1
: J9=0
: GOSUB 1090
: IF STR(C1$(),255)=HEX(0002)AND X=2THEN 300
: A=3
: L=1
0280 GOSUB 1200
: IF STR(C1$(),1,2)>HEX(0001)AND STR(C1$(),255,2)=HEX(0004)THEN A=VAL(STR(C
1$(),5+17),2)
: ELSE GOTO 2090
: L=L+1
: IF L<4THEN 280
: J9=-1
0300 C0=VAL(STR(C1$(),32))
: C9=VAL(STR(C1$(),28),2)
: C1=INT(C9/C0)
: D0=2+FIX((64+(C9/C0/127))/C0)
: D8=FIX(C1/127)+1
: D7=1+FIX(C1/127/C0)
: C3=MAX(1,FIX(8/C0))
: J1=VAL(STR(C1$(),30),2)
: @D,P,C5=0
: @D$()=ALL(FF)
: D1$()=ALL(00)
: GOSUB 2010
: PRINT AT(21,3,176);J9$;
: A=2
: GOSUB 1090
: IF J0$<>HEX(0003)THEN 2060
: J2$()=C1$()
: J3=VAL(STR(J2$(),3,2),2)
0380 IF J3=0THEN 390
: C2$,D2$=HEX(0003)
: D1$=HEX(FFFD)
: FOR I=1TO J3
: C5$=STR(J2$(),3+2*I,2)
: C1$=C5$ADDCHEX(01)
: IF VAL(C5$,2)>=C1*C0THEN GOSUB 1200
: NEXT I
0390 GOSUB '99(21,29,0)
: FOR K=0TO D8-1
: A=J1+K
: GOSUB 1090
: IF J0$<>HEX(0001)THEN 2070
: ELSE J1$()=C1$()
: FOR I=1TO 127
: IF K=0AND I<3THEN 680
: IF K*127+I>C1THEN 680
: GOSUB '99(21,29,((K*127)+I)/(C1)*60)
: C1$=BIN((K*127+I)*C0,2)
: C2$=STR(J1$(),I*2-1,2)
: A=VAL(C1$,2)+C0-1
: GOSUB 1090
: IF C5>2047THEN 2110
: IF J0$=HEX(0004)THEN GOSUB 1330
: D1$=J0$
: IF J3=0THEN 560
0540 IF C1$=HEX(0003)THEN 560
: C5$=C1$SUBCHEX(01)
: MAT SEARCHSTR(J2$(),5,J3*2),=STR(C5$,1,2)TO J4$STEP 2
: IF J4$=HEX(0000)THEN 560
: IF POS(C1$()>HEX(00))=0THEN 680
: C2$,D2$=HEX(0003)
: GOTO 670
0560 IF C2$<>HEX(FFFF)THEN 590
: IF POS(C1$()>HEX(00))=0THEN 680
: C2$,D2$=HEX(FFFF)
: GOTO 670
0590 IF C2$<>HEX(0000)THEN 630
: IF POS(C1$()>HEX(00))>0THEN 680
: C2$,D2$=HEX(0000)
: GOTO 670
0630 IF VAL(C2$,2)>C1*C0THEN D2$=HEX(FFFD)
: IF D2$=HEX(FFFD)THEN 670
: E=0
: IF POS(C1$()>HEX(00))>0THEN 650
: E=-1
: D1$=HEX(0000)
0650 A=VAL(C2$,2)+C0-1
: GOSUB 1090
: IF POS(C1$()>HEX(00))>0AND E>=0THEN 660
: IF D1$=HEX(0004)THEN 680
: D2$=J0$
: GOTO 670
0660 D2$=J0$
: IF D1$<>D2$AND D1$<>HEX(0000)AND D2$<>HEX(0000)THEN 670
: ELSE GOTO 680
0670 GOSUB 1200
0680 IF STR(C1$(),256,1)<>HEX(FD) THEN 689
0681 REM .TYPE 8=SECTOR DAMAGED-
: IF STR(C1$(),1,3)=HEX(8101D2) AND STR(C1$(),86,1)=HEX(D2) AND STR(C1$(),1
69,1)=HEX(D2) AND STR(C1$(),252,1)=HEX(83) THEN 689
0682 REM .SECTOR TO ERROR LIST-
: @D=@D+1
: IF @D>@D9 THEN 689
: @D$(@D)=BIN((J0+A-1),2)
: GOTO 689
0689 NEXT I
: NEXT K
0770 FOR K=0TO D8-1
: A=J1+K
: GOSUB 1090
: J1$()=C1$()
: FOR I=1TO 127
: IF K=0AND I<3THEN 950
: IF K*127+I>C1THEN 950
: GOSUB '99(21,29,60+((K*127)+I)/(C1)*40)
: C1$=BIN((K*127+I)*C0,2)
: A=VAL(C1$,2)+C0-1
: GOSUB 1090
: IF J0$<=HEX(0004)THEN 950
: MAT SEARCHSTR(J1$()),=STR(C1$,1,2)TO J4$STEP 2
: IF J4$<>HEX(00)THEN 950
0870 F=LEN(STR(D9$()))
: MAT SEARCHSTR(D9$(),3,F-3),=STR(C1$,1,2)TO J4$STEP 5
: IF J4$<>HEX(0000)THEN 950
: J=K
0900 J=J-1
: IF J<0THEN 910
: A=J1+J
: GOSUB 1090
: MAT SEARCHSTR(C1$()),=STR(C1$,1,2)TO J4$STEP 2
: IF J4$<>HEX(0000)THEN 950
: ELSE GOTO 900
0910 J=K
0920 J=J+1
: IF J>D8-1THEN 940
: A=J1+J
: GOSUB 1090
: MAT SEARCHSTR(C1$()),=STR(C1$,1,2)TO J4$STEP 2
: IF J4$<>HEX(0000)THEN 950
: ELSE GOTO 920
: C2$=C1$
: D2$=J0$
: C1$,D1$=ALL(00)
0940 GOSUB 1200
0950 NEXT I
: NEXT K
0951 IF @D=0 THEN 955
: GOSUB 2022
0952 KEYIN J2$,,953
0953 IF POS(HEX(F082)=J2$)=0THEN 952
: IF J2$=HEX(F0)THEN D8$()="609@VER Prime 62"
: ELSE D8$()="609.VERPPrime 62"
: PRINT HEX(03)
: LOAD T<2>D8$()
0955 COM CLEAR @D9
: GOSUB 2020
: PRINT AT(Z,Z1,51);BOX(-1,-50.7);AT(21,3,);J9$;P
: PRINT HEX(020404000E)
: GOSUB 2040
: PRINT AT(23,3);J9$;HEX(0F0D);
: LOAD T"609.VER2"
1090 D0$=HEX(00)
: DATA LOAD BA T#5,(J0+A-1)C1$()
: ERRORCONVERT ERR TO C1$,(##)
: GOTO 2050
1092 KEYIN J2$,1094,1094
: IF STR(C1$(),256)=HEX(FD) OR STR(C1$(),256)>HEX(04) THEN J0$=STR(C1$(),25
4,2)
: ELSE J0$=STR(C1$(),255)
: RETURN
1094 IF J2$<>HEX(F0) THEN 1092
: SELECT PRINT 005,P9
: GOSUB 2094
: PRINT HEX(03);AT(11,33);HEX(0E);J9$;HEX(0F)
: SELECT P0
: GOTO 953
1100 IF STR(C1$(),256)=HEX(FD) OR STR(C1$(),256)>HEX(04) THEN J0$=STR(C1$(),25
4,2)
: ELSE J0$=STR(C1$(),255)
: RETURN
1200 P=P+1
: IF P>64THEN 2080
: IF D1$<>HEX(FFFF)THEN 1220
: ELSE D3$="1"
: GOTO 1240
1220 IF D2$<>HEX(0000)THEN 1230
: IF D1$<>HEX(0000)THEN D3$="3"
: ELSE D3$="2"
: GOTO 1240
1230 IF D2$=HEX(FFFD)THEN D3$="4"
: ELSE D3$="5"
1240 D1$(P)=STR(C1$)&STR(D1$)&STR(C2$)&STR(D2$)
: RETURN
1330 C5=C5+1
: IF STR(C1$(),3,1)<>HEX(01)THEN 1350
: J4$=STR(C1$(),14,2)ADDCHEX(01)
: D9$(C5)=STR(C1$)&STR(J4$)&HEX(04)
: RETURN
1350 J4$=STR(C1$(),240,2)ADDCHEX(01)
: D9$(C5)=STR(C1$)&STR(J4$)&HEX(00)
: RETURN
1380 DEFFN'99(Z,Z1,Z2)
: Z2=INT(Z2)
: PRINT HEX(0202020F06);
: IF Z2<>0THEN 1390
: PRINT AT(Z,Z1,51);BOX(1,50.7);
: P1=0
1390 ON SGN(Z2-P1)+2GOTO 1400,1440,1410
1400 P1=0
: GOTO 1420
1410 P1=P1+1
1420 IF P1<>1THEN 1430
: PRINT AT(Z,Z1+P1/2);HEX(EA);
: GOTO 1390
1430 IF MOD(P1,2)=0THEN PRINT AT(Z,Z1+P1/2);HEX(D5);
: ELSE PRINT AT(Z,Z1+P1/2);HEX(FF);
: GOTO 1390
1440 PRINT HEX(020400000E0202000F);
: RETURN
1470 PRINT AT(23,3);J9$;
: GOSUB 2100
1490 PRINT AT(21,3,);J9$;HEX(07);
1500 KEYIN J2$,1510,1510
: GOTO 1500
1510 IF J2$=HEX(F0)THEN 1520
: ELSE GOTO 1490
1520 COM CLEAR C5
: D8$()="609@VER Prime 62"
: LOAD DC T<2>D8$()
2000 % DO NOT RENUMBER THE FOLLOWING
2010 J9$="Checking vau map %complete"
: RETURN
2020 J9$="Number of VAU map errors ="
: RETURN
2022 PRINT AT(15,11);HEX(070E);"Volume is damaged";HEX(0F);AT(17,11);"Number o
f 'damaged' sectors =";@D;AT(23,3,);"Cancel for Menu or Execute to contin
ue with correction of damaged sectors.";HEX(0D06);
: RETURN
2040 J9$="(Name Tree checking in progress)"
: RETURN
2050 J9$="Disk I/O error encountered, error code = "&C1$& " Please
cancel"
: GOTO 1490
2060 J9$="Free sector incorrect"
: GOTO 1470
2070 J9$="Vau map sector displaced"
: GOTO 1470
2080 J9$="Number of errors exceeds the limit."
: GOTO 1470
2090 J9$="Can not find volume control information."
: GOTO 1470
2094 J9$="Processing cancelled!"
: RETURN
2100 J9$="Please Cancel"
: RETURN
2110 J9$="Number of tree nodes in volume exceeds the limit."
: GOTO 1470