Listing of file='609WC100' on disk='vmedia/701-2739G.wvd.zip'
# Sector 545, program filename = '609WC100'
0010 REM '609WC100' - START MODULE FOR WANGWRITER => WP CONVERSION UTILITY
0120 COM C,D1,D5,D0$8,A5,J1$(256)1,U1$(8),U2$(8)4,V1$(3)82,V0$(1)1,J2$80,J8$1,
J3$1,C0$8,J2$(256)1,I1$1,I3$2
0200 DIM S5(1),S0(1),T5(1),S3(1),T1$(1)1,S1$(1)1,T1(6),S6(6),S1(6),T2$(6)42,T2
(2),S7(2),S2(2),S4(2),T5$(2)8,S2$(16)2,S1$2,S2$1,T1$80,T2$2,S0,S4,S5,S6,S
7,S9,T0,T2,T3,T5,C0,T7,D2$2,D$(2)124,D3$3
: LIMITS T#0,"609$TRAN",D2,D3,S0,D4
: DATA LOAD BA T#0,(D2+1)J1$()
: D3$=HEX(84838286)
0350 IF D5=0THEN B2$=" "
: D5=6
0390 RESTORE LINE2510
: GOSUB '61
: PRINT HEX(03);
: IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
: T5$(1)=D0$
: T5$(2)=D$
: GOSUB 1707
: IF R1$=HEX(00)THEN 450
: GOSUB 2630
: PRINT AT(02,25,);B2$;
0445 GOSUB 2700
: PRINT AT(22,60);B2$;HEX(07)
0446 KEYIN J$,480,480
: GOTO 446
0447 GOTO 480
0450 GOSUB '62
: C0$=D0$
: ON T5GOTO 620,510,510
0480 IF J$=HEX(F0)OR J$=HEX(50)THEN 485
: GOTO 445
0485 COM CLEAR D1
: LOAD T"609menu"
0510 GOSUB 2610
: PRINT AT(23,40,);B2$;HEX(07);
: GOTO 450
0620 D0$=T5$(1)
: GOTO 840
0840 PRINT AT(12,2);BOX(0,75);
: RESTORE LINE2560
: GOSUB '61
: R5$=D1$
: T5$(1)=R5$
0900 B2$=" "
: GOSUB '62
: ON T5GOTO 980,950,950
: GOTO 390
0950 GOSUB 2610
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
0980 IF VER(STR(T5$(1),1,5),"####A")=5THEN 1020
: GOSUB 2615
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
1020 R5$=T5$(1)
: GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF R1$=HEX(03)THEN 1082
: IF R1$=HEX(00)THEN GOSUB '212(V3)
: IF B2$=" "THEN GOSUB 2620
: PRINT AT(23,0);B2$;HEX(07);
: GOTO 900
1082 GOSUB 2640
: PRINT AT(22,0);B2$
: GOSUB 1807
: IF R1$=HEX(00)THEN 1126
: GOTO 1140
1120 IF B2$=" "THEN GOSUB 2645
: GOSUB 2307
: PRINT AT(22,0);B2$;HEX(07)
: GOTO 1271
1126 I1$="W"
: C0$=D0$
: GOSUB 1908
: IF R1$=HEX(00)THEN 1155
: GOTO 1140
1140 ON VAL(R1$)-47GOSUB 2650,2652,2654,2656,2658,2660,,,2662,2664,2666,2668,2
670,2672,2674,2676,2678,2680,2682,2684,2686,2688,2690,2692,2694,2696,2698
: GOTO 1120
1155 GOSUB '210(B0$,B9$,B4$)
: IF R1$=HEX(00)THEN 1190
: HEXUNPACKR1$TO T2$
: GOSUB 2307
: GOSUB 2625
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
1190 GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN 1230
1205 %REM ENTER FILE TRANSFER MODE
1210 PRINT AT(23,0,);B2$;HEX(07);
: GOTO 900
1230 A1=V3
: B2$=" "
: A5$="609WCBEG"
: A5$()="609WC200FILERS JCATSMALREC-GEN REC-RD"
: LOAD T<5>A5$()
1271 A5$="609WCBEG"
: COM CLEAR D1
: A5$()="609CloseJCATSMAL"
: LOAD T<2>A5$()
2500 % DO NTO RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WANG 2200 Word Processing System",4,1,23,"Convert Wangwriter
Document to WP Document",4,4,2,"Please Enter Data",4,5,2,"Press EXECUTE t
o Continue :",4,8,17,"Wangwriter File Name :",2,8,40,8," ",0
2560 DATA 4,0,0,"WANG 2200 Word Processing System",4,14,20,"Document ID :",2,1
4,40,5," ",0
: B2$="Wrong Type of File"
: RETURN
2590 B2$="File Does Not Exist"
: RETURN
2595 B2$="File is Scratched"
: RETURN
2610 B2$="Invalid Key"
: RETURN
2615 B2$="Invalid Document ID"
: RETURN
2620 B2$="File Already Exists"
: RETURN
2625 B2$="Error occurred while creating document = "&T2$
: RETURN
2630 B2$="Terminal must be a wangwriter"
: RETURN
2635 B2$="Unable to enter file transfer mode"
: RETURN
2640 B2$="(In Progress)"
: RETURN
2645 B2$="Problem with direction of transfer"
: RETURN
2650 B2$="Operation Not Done"
: RETURN
2652 B2$="Drive Not Ready"
: RETURN
2654 B2$="Write Protected"
: RETURN
2656 B2$="Disk CRC Error"
: RETURN
2658 B2$="Disk Format Error"
: RETURN
2660 B2$="Drive Malfunction"
: RETURN
2662 B2$="Programming Error"
: RETURN
2664 B2$="Drive Dropped Ready"
: RETURN
2666 B2$="Document Not Found"
: RETURN
2668 B2$="Invalid FRN"
: RETURN
2670 B2$="File Not Open"
: RETURN
2672 B2$="Document in Use"
: RETURN
2674 B2$="Invalid Class"
: RETURN
2676 B2$="Unsupported Diskette"
: RETURN
2678 B2$="No Room on Diskette"
: RETURN
2680 B2$="Invalid Page Number"
: RETURN
2682 B2$="Document(s) Still in Use"
: RETURN
2684 B2$="Volume Label Damaged"
: RETURN
2686 B2$="No Room on Diskette"
: RETURN
2688 B2$="Document Exists"
: RETURN
2690 B2$="Not an Archive Disk"
: RETURN
2692 B2$="Not a System Disk"
: RETURN
2694 B2$="Copy Incomplete"
: RETURN
2696 B2$="Run Recovery"
: RETURN
2698 B2$="Number of Retries Exceeds Limit"
: RETURN
2700 B2$="Please Cancel"
: RETURN