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