Listing of file='REC.MOVE' on disk='vmedia/731-0071G.wvd.zip'
# Sector 995, program filename = 'REC.MOVE' 5082 DEFFN'224(V3,U7,V8,V9) : GOSUB 5084 : RETURN 5084 V6(6),V6(7),V6(8),V6(9),U0(7),U0(8)=0 : U5(9)=U5(8) : GOSUB 5132 : GOSUB 5160 : IF V9>=U7THEN 5098 : IF V9=1THEN 5086 : GOSUB '240(U5(8),V9-1,V6(2),V6(3)) : V6(7)=V9(1) 5086 U0(8)=U5(9) : U5(10)=1 : FOR U=1TO U7-V9 : GOSUB '241(U5(9)) : NEXT U : V6(6)=V9(1) : U0(7)=U5(9) : FOR U=1TO V8 : GOSUB '241(U5(9)) : NEXT U 5094 V6(8)=V9(1) : V6(9)=U5(9) : IF V6(9)=0THEN U5(7)=V6(6) : STR(V7$(),2*MOD(V6(8)-1,V5)+1,2)=BIN(U0(8),2) : V9(1)=V6(6) : GOSUB 4984 : STR(V7$(),2*MOD(V6(6)-1,V5)+1,2)=BIN(V6(9),2) : IF V9<>1THEN 5096 : U5(8)=U0(7) : GOTO 5110 5096 V9(1)=V6(7) : GOSUB 4984 : STR(V7$(),2*MOD(V6(7)-1,V5)+1,2)=BIN(U0(7),2) : GOTO 5110 5098 IF U7+V8<V9THEN 5100 : IF U7+V8=V9THEN R1$=HEX(00) : ELSE R1$=HEX(25) : GOTO 5006 5100 IF U7=1THEN 5102 : GOSUB '240(U5(8),U7-1,V6(2),V6(3)) : V6(6)=V9(1) 5102 U0(7)=U5(9) : U5(10)=1 : FOR U=1TO V8 : GOSUB '241(U5(9)) : NEXT U 5106 V6(8)=V9(1) : V6(9)=U5(9) : FOR U=1TO V9-U7-V8 : GOSUB '241(U5(9)) : NEXT U : V6(7)=V9(1) : U0(8)=U5(9) : IF U0(8)=0THEN U5(7)=V6(8) : STR(V7$(),2*MOD(V6(7)-1,V5)+1,2)=BIN(U0(7),2) : V9(1)=V6(8) : GOSUB 4984 : STR(V7$(),2*MOD(V6(8)-1,V5)+1,2)=BIN(U0(8),2) : IF U7<>1THEN 5108 : U5(8)=V6(9) : GOTO 5110 5108 V9(1)=V6(6) : GOSUB 4984 : STR(V7$(),2*MOD(V6(6)-1,V5)+1,2)=BIN(V6(9),2) 5110 V6(3)=1 : V6(2)=U5(8) : GOSUB 5144 : GOSUB 5138 : RETURN