Listing of file='609.VDSR' on disk='vmedia/731-0071G.wvd.zip'
# Sector 596, program filename = '609.VDSR' 0010 REM 609.VDSR 237-07/29/86 Copyright Wang Laboratories, Inc. 1986 0011 REM .SCRATCH T/D11,"609.VDSR" -SAVE DC<S>T/D11,()"609.VDSR" 0020 DIM @D1$3,@D1$(3)82,@D1,J6$90 : @D1=@D 0021 REM .VARIABLES 0022 REM @D$(128)2 = List of 'bad-damaged' sectors ('FFFF' for not used) 0023 REM @D1$(3)82 = buffer for reading corrected sector data 0024 REM @D1$3 = string for reading corrected sector type and id 0025 REM @D and @D1 = Number of entries, @D from 609.VER1 & @D1 work variabl e 0033 REM .Process--When 'type' code is O.K., set correct control values and re save. 0044 REM .Process--When 'type' code is not O.K., remove pointer from VAU map 0051 REM ..PAGE HEADING 0055 J6$="V o l u m e R e c o v e r yVolume "&D5$&" on "&STR(D6$,1,3)&" Repa ired sectors "&" "&STR(R2$,,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5,2) 0056 SELECT PRINT <STR(A0$(1),2,3)> : PRINT TAB(25);STR(J6$,,29) : PRINT HEX(0A) : PRINT TAB(10);STR(J6$,30,60);HEX(0A) 0057 SELECT PRINT <STR(A0$(1),2,3)> : PRINT TAB(33);"ATTENTION";HEX(0A) 0058 PRINT "In order for the Word Processing system to access the following do cuments," : PRINT "corrections to control information have been performed. The autho r of each" : PRINT "document should review the reported documents for accuracy.";HEX(0 A) 0111 REM .correct Text type sectors : IF @D<1THEN 999 : FOR I=1TO @D : IF @D$(I)=HEX(FFFF)THEN 199 0122 REM .READ SECTOR : DATA LOAD BA T#5,(VAL(@D$(I),2))C1$() : ERRORSTOP # 0133 ON POS("GFHWET"=STR(C1$(),253,1))GOTO 144,144,144,144,144,144 : REM .NOT 'TEXT' TYPE SECTOR : GOTO 199 0144 REM .SET ALL 'CONTROL' CODES : STR(C1$(),1,3)=HEX(8101D2) : STR(C1$(),86,1),STR(C1$(),169,1)=HEX(D2) : STR(C1$(),252,1)=HEX(83) 0146 REM .SAVE CORRECTED SECTOR : DATA SAVE BA T#5,(VAL(@D$(I),2))C1$() : ERRORSTOP "Error trying to save corrected sector. Execute to continue ** *" 0151 REM .read CORRECTED SECTOR : DATA LOAD DA T#5,(VAL(@D$(I),2))@D1$(),@D1$ : ERRORSTOP "Error trying to load corrected sector. Execute to continue ** *" 0162 REM .IDENTIFY : PRINT "Sector number ";VAL(@D$(I),2) : REM . system id of ";HEXOF(@D1$) : PRINT HEX(0D0A);"Document number: (Unknown. Not enough information to ide ntify)";HEX(0A) 0163 PRINT "Text of corrected sector is:";HEX(0A) 0165 I4=POS(@D1$()<20) : IF I4=0THEN 166 : STR(@D1$(),I4,1)=STR(@D1$(),I4,1)ADDCHEX(B0) : GOTO 165 0166 REM .REPORT CORRECTED SECTOR- : PRINT TAB(7);STR(@D1$(),1,63);HEX(0D0A);TAB(7);STR(@D1$(),64,61);HEX(0D0A );TAB(7);STR(@D1$(),125,61);HEX(0D0A);TAB(7);STR(@D1$(),186,61);HEX(0D0A0 A) : D1=D1+6 0177 REM .REMOVE FROM LIST : @D$(I)=ALL(FF) : @D1=@D1-1 0199 NEXT I 0201 REM .are we done? : IF @D1<=1THEN 999 0211 REM .correct 'A' (Admin) type sectors : IF @D<1THEN 999 : FOR I=1TO @D : IF @D$(I)=HEX(FFFF)THEN 299 0222 REM .READ SECTOR : DATA LOAD BA T#5,(VAL(@D$(I),2))C1$() : ERRORSTOP # 0233 ON POS("A"=STR(C1$(),253,1))GOTO 244 : REM .NOT 'ADMIN' TYPE SECTOR : GOTO 299 0244 REM .SET ALL 'CONTROL' CODES : STR(C1$(),1,3)=HEX(8101D2) : STR(C1$(),86,1),STR(C1$(),169,1)=HEX(D2) : STR(C1$(),252,1)=HEX(83) 0246 REM .SAVE CORRECTED SECTOR : DATA SAVE BA T#5,(VAL(@D$(I),2))C1$() : ERRORSTOP "Error trying to save corrected sector. Execute to continue ** *" 0251 REM .read CORRECTED SECTOR : DATA LOAD DA T#5,(VAL(@D$(I),2))@D1$(),@D1$ : ERRORSTOP "Error trying to load corrected sector. Execute to continue ** *" 0262 REM .IDENTIFY : PRINT "Sector number ";VAL(@D$(I),2);" and system id of ";HEXOF(@D1$) 0271 PRINT ,"The 'adminstrative' sector is now readable.";HEX(0A0A0D),,"Check the summary information for ";"9999A";HEX(0A0A) : D1=D1+6 0274 PRINT "The system is not able to reconstruct the summary with available i nformation.";HEX(0A) 0276 PRINT "If the 'summary' data is wrong, then you will have to 'SUPERCOPY'" ;HEX(0A0D);"the document to a new document.";HEX(0A) 0277 REM .REMOVE FROM LIST : @D$(I)=ALL(FF) : @D1=@D1-1 0299 NEXT I 0301 STOP "..testing..are we done "# : IF @D1<=1THEN 999 0311 STOP "..Page table should be only one(s) left. (test @ "# 0999 REM .exit : COM CLEAR C5 : LOAD T"609.VER1"