image of READY prompt

Wang2200.org

Listing of file='609RCVR4' on disk='vmedia/701-2737G.wvd.zip'

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