image of READY prompt

Wang2200.org

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