Listing of file='609FG190' on disk='vmedia/701-2738G.wvd.zip'
# Sector 902, program filename = '609FG190' 2750 REM '609FG190' - LOCK/UNLOCK ARCHIVE BY PARTITION # 2760 DEFFN'50 : B2$=" " : GOSUB '43(D(9)) : $IF ON #V1,2810 : GOSUB 2866 2810 GOSUB '46(0) : IF VER(STR(D2$(),4,5),"####A")<>5THEN 2865 : T1$=BIN(#PART) : IF STR(D2$(),9,1)=STR(T1$,,1)THEN 2857 : IF STR(D2$(),9,1)=HEX(00)THEN 2850 : GOSUB 2985 : GOTO 2865 2850 STR(D2$(),9,1)=T1$ : GOSUB '48(D2$(),0) : IF D(20)<>0THEN 2865 2857 D(7)=1 2865 $CLOSE#V1 : RETURN 2866 $OPEN 2867,#V1 : RETURN 2867 $BREAK 133 : GOTO 2866 2880 DEFFN'51 : D(7)=0 : B2$=" " : GOSUB '43(D(9)) : $IF ON #V1,2930 : GOSUB 2866 2930 GOSUB '46(0) : IF VER(STR(D2$(),4,5),"####A")<>5THEN 2965 : T1$=BIN(#PART) : IF STR(D2$(),9,1)=HEX(00)THEN 2965 : STR(D2$(),9,1)=HEX(00) : GOSUB '48(D2$(),0) 2965 $CLOSE#V1 : RETURN 2980 B2$="Archive Not Found" : RETURN 2985 B2$="Archive in use" : RETURN