Listing of file='609RCVR4' on disk='vmedia/701-2737G.wvd.zip'
# Sector 1073, 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