image of READY prompt

Wang2200.org

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