image of READY prompt

Wang2200.org

Listing of file='REC.DEL' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 1058, 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