Listing of file='609FA100' on disk='vmedia/731-0071G.wvd.zip'
# Sector 165, program filename = '609FA100' 0010 REM '609FA100' - DELETE A DOCUMENT FROM ARCHIVE 0020 LOAD T"609FG070"2000,BEG 40 0040 IF B2$=" "THEN 110 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : GOSUB '34(1) : GOTO 270 0110 IF J$<>HEX(F0)THEN 150 : J$=HEX(0D) : D2=0 0150 D2=D2+1 : ON D2GOTO 190,210,230,250,270 0190 A5$()="609FG060Prime 62" : C=2 : GOTO 290 0210 A5$()="609FG030609FG070" : C=2 : GOTO 290 0230 A5$()="609FG140609FG080609FG070" : C=3 : GOTO 290 0250 A5$()="609FG180609FG080" : C=2 : GOTO 290 0270 B4$=J7$ : COM CLEAR D2 : LOAD T"609Fmenu" 0290 LOAD T<C>A5$() 0295 DEFFN'31 : COM CLEAR C : LOAD T"609menu"