Listing of file='609FG180' on disk='vmedia/701-2738G.wvd.zip'
# Sector 898, program filename = '609FG180' 0010 REM '609FG180' - DELETE DOC FROM ARCHIVE, ADMIN PTR IN A$ 0050 B2$=" " : J$=HEX(0D) : GOSUB 2505 : PRINT AT(23,0);T1$; : J0$=STR(D$,32,2) : INIT(00)D9$() 0130 IF J0$=HEX(0000)THEN 290 : GOSUB '47(J0$) : IF D(20)=0AND STR(D2$(),5,3)=D1$THEN 210 : GOSUB 2510 : GOTO 290 0210 J0$=STR(D2$(),1,2) : D2$()=ALL(00) : DATA SAVE BA T#D(9),(D(1)+D1)D2$() : GOSUB '57(D(1)) : GOTO 130 0290 GOSUB '57(-1) : IF B2$=" "AND T5(1)=5THEN GOSUB '59(R5$) : LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 T1$="(In Progress)" : RETURN 2510 B2$="Unable to free all deleted sectors" : RETURN