Listing of file='REC.DEL' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1033, program filename = 'REC.DEL' 5036 DEFFN'223(V3,V9,V8) : GOSUB '255(V3,V9,V8) : RETURN 5038 DEFFN'255(V3,V9,V8) : U1=V8 : FOR Z=1TO INT(U1/121)+1 : IF U1>=120THEN V8=120 : ELSE V8=MOD(U1,120) : GOSUB 5132 : GOSUB 5168 : GOSUB '240(U5(8),V9-1,V6(2),V6(3)) : U5(5)=V9(1) : FOR U=1TO V8 : GOSUB '241(U5(9)) : U0$(U)=BIN(V9(1),2) : DIM U4$(256)1 : GOTO 5044 5042 $CLOSE : STOP "Volume damaged. Run Verify and Recover/call WANG support. RECDEL at "# : END 5044 U4$()=ALL(00) : DATA SAVE BA T#U0,(V5(2)+1+V2*(V9(1)-1))U4$() : ERRORGOTO 5000 5046 IF U5(9)<>0THEN 5048 : IF U5(5)=U5(8)THEN U5(7)=0 : ELSE U5(7)=U5(5) : GOTO 5050 5048 NEXT U 5050 V8=U : IF V9<2THEN 5052 : V9(1)=U5(5) : GOSUB 4984 : STR(V7$(),2*MOD(U5(5)-1,V5)+1,2)=BIN(U5(9),2) : GOTO 5054 5052 V6(2),U5(8)=U5(9) : V6(3)=1 5054 U5(10)=1 : V0=V0-V8 : IF V0=0THEN V6(3)=0 : FOR U=1TO V8 : V9(1)=VAL(U0$(U),2) : IF V9(1)=0THEN 5042 : GOSUB 4984 : STR(V7$(),2*MOD(V9(1)-1,V5)+1,2)=HEX(FFFF) : NEXT U : GOSUB 5144 : GOSUB 5138 : IF V0<V9THEN Z=U1 : IF U1>120THEN U1=U1-120 : NEXT Z : RETURN 5192 DEFFN'227(V3,V6,V5(3),V5(4),U5(2)) : U0(2)=1 : GOSUB '220(V3,V6,V5(4),V5(3),U5(2)) : IF R1$<>HEX(00)THEN 5194 : GOSUB '255(V3,V5(4),V5(3)) 5194 $CLOSE#U0 : U0(2)=-1 : RETURN