image of READY prompt

Wang2200.org

Listing of file='609AG140' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 131, 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