Listing of file='609RCVR4' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2236, program filename = '609RCVR4' 0010 REM '609RCVR4' - CREATE AND OPEN FILE TO RECOVER TO 0020 GOSUB 2502 : PRINT AT(23,0,);B2$; : COM V0$(1)1,V1$(3)82,U1$(2)64,U2$(8)4 : COM V2$(256)1,V5$(160)1,V2$67,V3$16,U3$(10)2,U2$85,U2(6),R1$1,V8$4,V7$2,U 7$68,V6$1,U1$2,V0$8,U0$(128)2,V7(10),U3(9) 0060 COM R1$1,V5$(160)1,V1$(3)82,V7$(256)1,U0(23),V9$2,V1$2,U0$3,U3$1,U6$(256) 1,U7$(256)1,U0$(128)2,U4$4,U4$(256)1,V4$1,V6(9),V9(9),U5(10),V5(7) : GOSUB '210(B0$,B9$,P5$) : ON VAL(R1$)+1GOTO 210,150,180 : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##) : ELSE HEXUNPACKR1$TO T2$ : GOSUB 2505 : GOTO 350 0150 GOSUB 2510 : GOTO 350 0180 GOSUB 2515 : GOTO 350 0210 GOSUB '110(R5$,"D") : IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF)) : IF B2$<>" "OR R1$<>HEX(00)THEN 350 : A1=V3 : $PACK(F=HEX(A019A005A009))U1$()FROMA6$(),R5$,HEX(FF00FF000000003130) : GOSUB '235(A1,U1$()) : A5$="609RCVR6" : IF C1$=HEX(FF)THEN 330 : LOAD T"609RCVRZ" 0330 A5$()="609RCVR5REC-GEN REC-RD" : LOAD T<3>A5$() 0350 LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2502 B2$="Creating Recovery Document" : RETURN 2505 B2$="Error occurred during create = "&T2$ : RETURN 2510 B2$="File Already Exists" : RETURN 2515 B2$="Volume Does Not Exist" : RETURN