Listing of file='609Renam' on disk='vmedia/701-2737G.wvd.zip'
# Sector 1011, program filename = '609Renam'
0010 REM '609Renam' - RENAME A DOCUMENT
0030 DIM S5(1),S0(1),T5(1),S3(1)
: DIM T1$(1)1,S1$(1)2
: DIM T1(10),S6(10),S1(10),T2$(10)80
: DIM T2(2),S7(2),S2(2),S4(2),T5$(2)5
: DIM S2$(10)2
: DIM S1$20
: DIM S2$1,T1$80,T2$2
: DIM S0,S4,S6,S7,S9,T0,T2,T3,T5,C0,T7
: DIM U1$(2)64,U2$(8)4,V0$(1)1
: DIM C0$(2)5,C0$8,C1$120,C$(2)16
: DIM V0$(1)1,V1$(3)82
0210 PRINT HEX(03)
: RESTORE
: GOSUB '61
0240 GOSUB '62
: ON T5+1GOTO 1030,310
: GOSUB 2555
0280 PRINT AT(23,0,);B2$;HEX(07);
: GOTO 240
0310 C0$(1)=T5$(1)
: C0$(2)=T5$(2)
: IF VER(C0$(1),"####A")=5AND VER(C0$(2),"####A")=5THEN 380
: GOSUB 2560
: GOTO 280
0380 IF C0$(1)<>C0$(2)THEN 420
: GOSUB 2565
: GOTO 280
0420 IF STR(C0$(1),5,1)=STR(C0$(2),5,1)THEN 460
: GOSUB 2570
: GOTO 280
0460 IF STR(C0$(1),1,4)<>"0000"THEN 490
: GOSUB 2590
: GOTO 280
0490 IF STR(C0$(2),1,4)<>"0000"THEN 530
: GOSUB 2595
: GOTO 280
0530 R5$=C0$(1)
0540 GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A1=V3
: C$(1)=B9$
: C0$=B4$
: IF B2$=" "THEN 670
: IF R1$=HEX(05)THEN 630
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 240
0630 GOSUB '90
: IF C$<>HEX(F0)THEN 540
: GOTO 240
0670 R5$=C0$(2)
: GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: C$(2)=B9$
: IF R1$=HEX(03)THEN 760
: GOSUB 2575
: PRINT AT(23,0,);B2$;HEX(07);
: GOSUB '212(V3)
: GOSUB '212(A1)
: GOTO 240
0760 GOSUB '220(A1,1,2,1,1)
: $UNPACK(F=HEX(A019A0066006A002A001))V1$()TO A6$(),A7$(),A0(),A8$(),A9$()
: A7$(1)=C0$(2)
: $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$()
: GOSUB '221(A1,1,2,1,1)
: GOSUB '212(A1)
: R5$=C0$(1)
: GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
0850 IF B2$=" "THEN A1=V3
: B0$="DOCUMENT."&STR(C0$(2),5,1)&"."&STR(C0$(2),1,4)
: GOSUB '213(A1,B0$,C0$,1)
: IF R1$=HEX(00)THEN 950
: GOSUB 2580
: PRINT AT(23,0,);B2$;" ";HEXOF(R1$);HEX(07);
: GOSUB '212(A1)
: GOTO 240
0950 $PACK(F=HEX(A019A005A007A002))C1$FROMA6$(),C0$(2),HEX(00000000000000),"10
"
: GOSUB '235(A1,C1$)
: GOSUB '212(A1)
: GOSUB 2585
: PRINT AT(23,0,);B2$;
: GOTO 240
1020 DEFFN'31
1030 LOAD T"609menu"
2500 % DO NOT RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WANG 2200 Word Processing System"
: DATA 4,1,32,"Rename Document"
: DATA 4,3,0,"Please Enter Data"
: DATA 4,4,0,"Press EXECUTE to Continue"
: DATA 4,7,5,"Old Document ID : "
: DATA 2,7,23,5," "
: DATA 4,9,5,"New Document ID : "
: DATA 2,9,23,5," "
: DATA 0
2555 B2$="Invalid Key"
: RETURN
2560 B2$="Invalid Document ID"
: RETURN
2565 B2$="Document ID's must be different"
: RETURN
2570 B2$="Documents must be in same library"
: RETURN
2575 B2$="New Document ID Already Exists"
: RETURN
2580 B2$="Rename Operation Failed :"
: RETURN
2585 B2$="Rename Operation Complete"
: RETURN
2590 B2$="Cannot Rename Prototype Document"
: RETURN
2595 B2$="Document cannot be renamed to a prototype"
: RETURN