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