image of READY prompt

Wang2200.org

Listing of file='609TRANS' on disk='vmedia/731-0067F-disk1.wvd.zip'

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