image of READY prompt

Wang2200.org

Listing of file='609.VER1' on disk='vmedia/701-2738G.wvd.zip'

# Sector sector 335, 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