Listing of file='609AG140' on disk='vmedia/731-0071G.wvd.zip'
# Sector 105, program filename = '609AG140' 0010 REM '609AG140' - CHECK IF THE SELECTED NEW DOCUMENT NAME ALREADY IN ARCHI VE VTOC 0030 B2$=" " : J$=HEX(0D) : GOSUB '40 : GOSUB '45(C4$) : IF D(12)<=0THEN 320 : GOSUB 2505 : PRINT AT(23,0);B2$;HEX(07); : B2$=" " : GOSUB '34(2) 0320 LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="Document Name Already Exist" : RETURN