Listing of file='609FG050' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 293, program filename = '609FG050' 0010 REM '609FG050' - DELETE DOCUMENT A1 0030 B2$=" " : J$=HEX(0D) : IF A1=-1OR POS(STR(U4$,,4)<>"0")=0THEN 180 : GOSUB 2505 : PRINT AT(23,0);T1$; 0070 IF V0<=120THEN 120 : GOSUB '223(A1,1,120) : IF R1$<>HEX(00)THEN 140 : GOTO 70 0120 GOSUB '214(A1) 0140 IF R1$=HEX(00)THEN 180 : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##) : ELSE HEXUNPACKR1$TO T2$ : GOSUB 2510 0180 LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 T1$="(In Progress)" : RETURN 2510 B2$="Error Occurred while deleting document = "&T2$ : RETURN