Listing of file='32WPRECM' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 985, program filename = '32WPRECM'
0008 REM .32WPRECM 3/26/82
: REM REC.DEL+RD (always overloads RECI) (not DEL)
4504 DIM U1,U7,Z
4938 DEFFN'241(V9(1))
: IF V9(1)<1THEN RETURN
: GOSUB 4986
: U5(9)=VAL(STR(V7$(),2*MOD(V9(1)-1,V5)+1,2),2)
: RETURN
4984 GOSUB 4986
: RETURN
5012 DEFFN'220(V3,V6,U7,V8,U5(2))
: GOSUB 5014
: RETURN
5014 U0(19)=0
: V9=U7
: GOTO 5020
5016 DEFFN'221(V3,V6,V9,V8,U5(2))
: GOSUB '228(V3,V6,V9,V8,U5(2))
: RETURN
5018 DEFFN'228(V3,V6,V9,V8,U5(2))
: U7=V9
: U0(19)=1
5020 V5(5)=0
: V9(6)=LEN(STR(V0$(),V6))
: GOSUB 5132
: GOSUB 5158
: GOSUB '240(U5(8),V9-1,V6(2),V6(3))
: FOR U=1TO V8
: GOSUB '241(U5(9))
: U0$(U)=BIN(V9(1),2)
: IF V9(1)<>0THEN 5022
: R1$=HEX(20)
: GOTO 5006
5022 IF U5(9)=0THEN R1$=HEX(28)
: IF U0(19)=0THEN 5026
: IF U5(2)=2THEN V1$()=STR(V0$(),V9(9)*(U-1)+V6,V9(9))
: DATA SAVE DA T#U0,(V5(2)+1+V2*(V9(1)-1))V1$(),U0$
: ERRORGOTO 5000
5024 GOTO 5030
5026 DATA LOAD DA T#U0,(V5(2)+1+V2*(V9(1)-1))V1$(),U0$
: ERRORGOTO 5000
5028 IF U=1THEN V4$=U0$
: V5(5)=V5(5)+V9(9)
: IF U5(2)<>2THEN 5030
: IF V5(5)>V9(6)THEN STR(V0$(),V9(9)*(U-1)+V6,V9(9))=STR(V1$(),1,V9(9)-(V5(
5)-V9(6)))
: ELSE STR(V0$(),V9(9)*(U-1)+V6,V9(9))=V1$()
5030 NEXT U
: U0(11)=U0(23)
: U0(23)=-1
: GOSUB 5148
: GOSUB 5138
: U0(23)=U0(11)
: RETURN
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
: DATA LOAD BA T#U0,(V5(2)+1+V2*(V9(1)-1))U4$()
: ERRORGOTO 5000
5042 IF STR(U4$(),255,2)<HEX(0001)OR STR(U4$(),255,2)>HEX(0004)THEN 5044
: PRINT AT(22,0,);"Serioue error has occured.";HEX(07)
: STOP "Please call your local WANG Representative immediately"#
: 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)
: GOSUB 4984
: STR(V7$(),2*MOD(V9(1)-1,V5)+1,2)=HEX(FFFF)
: NEXT U
: GOSUB 5144
: GOSUB 5138
: IF U1>120THEN U1=U1-120
: NEXT Z
: RETURN
5158 IF U7+V8<V0+2AND U7=INT(U7)AND U7>0THEN 5166
: ELSE GOTO 5162
5160 IF U7+V8<V0+2AND U7=INT(U7)AND U7>0THEN 5168
5168 IF V0<>0THEN 5170
: R1$=HEX(24)
: GOTO 5004
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