Listing of file='REC.CRE' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1074, program filename = 'REC.CRE'
4870 DEFFN'243(U8,V5(2),V2,V3$,U6)
: R1$=HEX(00)
: U8=V2*FIX(U8/V2)
: IF V2>0AND V2<256AND V2=INT(V2)AND V5(2)>0AND V5(2)<99999AND V5(2)=INT(V5
(2))AND U8>99AND U8<65536AND U8=INT(U8)AND U6<3AND U6>0AND U6=INT(U6)THEN
4872
: R1$=HEX(26)
: RETURN
4872 V5(2)=V5(2)-1
: V9(4)=U8/V2
: U0(3),V8=1+FIX(V9(4)/V5/V2)
: U5(3)=2+FIX((64+(U8/V2/V5))/V2)
: V9(8)=FIX(V9(4)/V5)
: U0(20)=MAX(1,FIX(8/V2))
: V5(6)=FIX(.5*(V9(4)-(1+MOD(U6,2))*V8-U0(20)))+1
: IF V5(6)+U5(3)>V9(4)THEN U5(3)=V9(4)-V5(6)-1
: U5(1)=V2*(V5(6)-1)+1
4874 IF V5-(U5(1)-(INT(U5(1)/V5)*V5)-1)<V8THEN U5(1)=(INT(U5(1)/V5)*V5)+V5-V8+
1
: IF V5-((U5(1)+U5(3))-(INT((U5(1)+U5(3))/V5)*V5)-1)<V8THEN U5(3)=((INT((U5
(1)+U5(3))/V5)*V5)+V5-V8+1)-U5(1)
: V7$()=ALL(00)
: FOR U=1TO U8
: DATA SAVE BA T#U0,(V5(2)+U)V7$()
: ERRORGOTO 5000
4876 NEXT U
: V7$()=ALL(FF)
: STR(V7$(),255)=HEX(0001)
: FOR U=0TO V9(8)
: DATA SAVE BA T$#U0,(U5(1)+V5(2)+U)V7$()
: ERRORGOTO 5000
4878 IF U6=1THEN DATA SAVE BA T$#U0,(U5(1)+V5(2)+U5(3)*V2+U)V7$()
: ERRORGOTO 5000
4880 NEXT U
: STR(V7$(),2*MOD(V9(4),V5)+1)=ALL(00)
: STR(V7$(),255)=HEX(0001)
: DATA SAVE BA T$#U0,(V5(2)+U5(1)+V9(8))V7$()
: ERRORGOTO 5000
4882 IF U6=1THEN DATA SAVE BA T$#U0,(V5(2)+U5(1)+V9(8)+U5(3)*V2)V7$()
: ERRORGOTO 5000
4884 U0(15)=V5(6)
: V5(7)=1
: GOSUB 4892
: IF U6=2THEN 4886
: U0(15)=V5(6)+U5(3)
: GOSUB 4892
: IF V2=1THEN V8=3
: GOTO 4888
4886 IF V2=2THEN V8=2
: ELSE V8=1
4888 U0(15)=1
: GOSUB 4892
: V8=U0(20)
: U0(15)=V5(6)+U0(3)
: GOSUB 4892
: V0=V0+V8
: V3=4
: V6(1)=V3*U0(5)
: STR(V5$(),V6(1)+1,22)=ALL(00)
: STR(V5$(),V6(1)+5,6)=STR(V3$,,6)
: STR(V5$(),V6(1)+13,2)=BIN(U5(3),2)
: STR(V5$(),V6(1)+23,10)=BIN(V5(2)+1,2)&BIN(U8,2)&BIN(U5(1),2)&BIN(V2)&BIN(
U6)&HEX(0004)
4890 U0(4)=0
: U3$=BIN(0)
: STR(U7$(),251,4)=HEX(322E3030)
: STR(U7$(),255,2)=HEX(0002)
: GOSUB 5144
: GOSUB 4894
: U4=-1
: RETURN
4892 V9(1)=U0(15)
: GOSUB '244(V9(1),V8)
: IF R1$<>HEX(00)THEN RETURN
: V0,U5(7),U5(8)=0
: V6(2)=VAL(U0$(1),2)
: IF U0(15)<>VAL(U0$(1),2)THEN U0(15)=VAL(U0$(1),2)
: V6(3)=1
: V9=1
: GOSUB '242(U0$(),V8,U0(15))
: RETURN
4894 V7$()=ALL(00)
: T=0
: FOR U=1TO V8
: FOR H=1TO V2
: T=T+1
: STR(V7$(),2*(T-1)+5,2)=BIN((VAL(U0$(U),2)-1)*V2+H-1,2)
: NEXT H
: NEXT U
: STR(V7$(),255)=HEX(0003)
: STR(V7$(),,4)=BIN(2,2)&BIN(U*V2,2)
: DATA SAVE BA T#U0,(V5(2)+2)V7$()
: ERRORGOTO 4998
4896 V6(4)=0
: RETURN