Listing of file='609Renam' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2199, 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