Listing of file='609TRANS' on disk='vmedia/701-2737G.wvd.zip'
# Sector 1097, program filename = '609TRANS'
0010 REM '609TRANS' - TRANSFER ARCHIVE
0050 DIM D$1,D0$5,D1$1,D2$3,D1
: DIM D3$1,D4$5,D5$1,D6$3,D2
: DIM D7$1,D8$5,D9$1,J1$3,S1
: DIM J$1,D$(16)
: DIM S5(1),S0(1),T5(1),S3(1)
: DIM T1$(1)1,S1$(1)1
: DIM T1(5),S6(5),S1(5),T2$(5)80
: DIM T2(1),S7(1),S2(1),S4(1),T5$(1)5
: DIM S2$(5)2
: DIM S1$1
0105 DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
0120 T5$()=" "
: PRINT HEX(03);
: C=1
: D7$=D$
: D8$=D0$
: D9$=D1$
: J1$=D2$
: S1=D1
: GOSUB 365
: IF T5=1AND J$<>HEX(F0)THEN 175
: COM CLEAR C
: LOAD T"609menu"
0175 D$=D7$
: D0$=D8$
: D1$=D9$
: D2$=J1$
: D1=S1
: PRINT AT(12,5);"---------------------------------------------------------
-----------------------"
: C=2
: D7$=D3$
: D8$=D4$
: D9$=D5$
: J1$=D6$
: S1=D2
: GOSUB 365
: IF T5=0OR J$=HEX(F0)THEN 120
: D3$=D7$
: D4$=D8$
: D5$=D9$
: D6$=J1$
: D2=S1
0225 IF D1<>D2OR D2$<>D6$THEN 250
: GOSUB 2560
: PRINT AT(23,0,);B2$;HEX(07);
: GOSUB '34(1)
: GOTO 120
0250 IF D5$="2"OR D0$=D4$THEN 280
: GOSUB 2565
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 120
0280 GOSUB 2590
: PRINT AT(23,0);B2$;
: GOSUB '34(0)
: IF J$=HEX(F0)THEN 120
: GOSUB 2595
: PRINT AT(23,0,);B2$;
: IF D5$<>"1"OR D2<>0THEN 345
: DATA SAVE DC OPEN T#7,(1233)D4$
: ERRORC0=ERR
: B2$=" "
: IF C0=85THEN GOSUB 2570
: IF C0=86THEN GOSUB 2575
: IF B2$=" "THEN GOSUB 2580
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 120
0320 DBACKSPACE #7,BEG
: DSKIP #7,1231S
: DATA SAVE DC #7,END
: DATA SAVE DC CLOSE#7
: LIMITS T#7,D4$,D2,C0,C0,C0
0345 COPY T#6,(D1,D1+1231)TO T#7,(D2)
: GOTO 120
0365 D3=C+5
0370 RESTORE LINE2510
: GOSUB '61
: T5$()=D7$
: IF C=2THEN S7(1)=15
: ON CGOSUB 2600,2605
: PRINT AT(S7(1),10);B2$;
0395 GOSUB '62
: ON T5+1GOTO 420,430
: GOSUB 2610
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 395
0420 RETURN
0430 D7$=T5$()
: S7=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=D7$)
: IF S7>0THEN 465
: GOSUB 2615
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 395
0465 DATA LOAD DA T#0,(B3+S7-1)A0$()
: D9$=STR(A0$(),136,1)
: J1$=STR(A0$(),133,3)
: IF D9$<>" "THEN 500
: GOSUB 2620
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 395
0500 SELECT #D3<J1$>
: ERRORGOSUB 2625
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 395
0510 GOSUB 2630
: PRINT AT(S7(1)+2,15);B2$;
: IF D9$="1"THEN GOSUB 2635
: ELSE GOSUB 2640
: PRINT AT(S7(1)+2,36);B2$;
0525 GOSUB 2645
: PRINT AT(23,0);B2$;
: GOSUB '34(0)
: IF J$=HEX(F0)THEN RETURN
: DATA LOAD BA T#D3,(0)D$()
: ERRORGOTO 525
0550 S1=0
: D8$="0000"&D7$
: GOSUB 2650
: PRINT AT(S7(1)+4,15);B2$;
: IF D9$="1"THEN 655
: DATA LOAD BA T#D3,(1232)D$()
: ERRORGOTO 610
0595 GOSUB 2655
: PRINT AT(23,0);B2$;HEX(07);
: GOSUB '34(1)
: RETURN
0610 DATA LOAD BA T#D3,(0)D$()
: D8$=STR(D$(),4,5)
: IF VER(D8$,"####A")<>5THEN 635
: PRINT AT(S7(1)+4,36);D8$;
: RETURN
0635 GOSUB 2660
: PRINT AT(23,0,);B2$;HEX(07);
: GOSUB '34(1)
: RETURN
0655 IF C=1THEN 675
: D8$=D0$
: PRINT AT(19,36);D8$;
: GOTO 750
0675 RESTORE LINE2545
: GOSUB '61
: T5$()=D8$
: IF C=2THEN S7(1)=19
0695 GOSUB '62
: D8$=T5$()
: ON T5+1GOTO 370,730
: GOSUB 2610
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 695
0730 IF VER(D8$,"####A")=5THEN 750
: GOSUB 2665
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 695
0750 LIMITS T#D3,D8$,S1,D4,S7,S7
: IF S7=2AND D4-S1+1=1233THEN RETURN
: IF C=2AND S1=0AND S7=0THEN 785
: GOSUB 2670
: PRINT AT(23,0,);B2$;HEX(07);
: ON CGOTO 695,370
0785 GOSUB 2585
: PRINT AT(23,0,);B2$;HEX(07);
: GOSUB '34(0)
: IF J$=HEX(0D)THEN RETURN
: ON CGOTO 695,370
2500 % DO NOT RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WANG 2200 Word Processing System"
: DATA 4,1,25,"T R A N S F E R A R C H I V E"
: DATA 4,3,0,"Please Enter Data"
: DATA 4,4,0,"Press EXECUTE to Continue"
: DATA 2,7,36,1," "
: DATA 0
2545 DATA 4,0,0,"WANG 2200 Word Processing System"
: DATA 2,11,36,5," "
: DATA 0
2560 B2$="Archives must be different"
: RETURN
2565 B2$="Both Archive ID's must be equal when copying to system"
: RETURN
2570 B2$="System Catalog Index Full, unable to create archive"
: RETURN
2575 B2$="System Disk Full, unable to create archive"
: RETURN
2580 CONVERT C0TO T1$,(##)
: B2$="Error "&T1$&" occurred while attempting to create archive"
: RETURN
2585 B2$="Archive Not Found, hit EXECUTE to create during transfer"
: RETURN
2590 B2$="Are you sure?"
: RETURN
2595 B2$="(In Progress)"
: RETURN
2600 B2$="From Archive Location :"
: RETURN
2605 B2$="To Archive Location :"
: RETURN
2610 B2$="Invalid Key"
: RETURN
2615 B2$="Invalid Archive"
: RETURN
2620 B2$="Archive Not Assigned"
: RETURN
2625 B2$="Invalid Archive Device Assigned"
: RETURN
2630 B2$="Type of Archive :"
: RETURN
2635 B2$="2200 System Archive"
: RETURN
2640 B2$="WP Archive Diskette"
: RETURN
2645 B2$="Mount Archive"
: RETURN
2650 B2$="Archive ID :"
: RETURN
2655 B2$="Archive Must be a Diskette"
: RETURN
2660 B2$="Platter mounted is not an initialized archive"
: RETURN
2665 B2$="Invalid Archive Label"
: RETURN
2670 B2$="Archive Does Not Exist"
: RETURN