Listing of file='609WW100' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1105, program filename = '609WW100' 0010 REM '609WW100' - START MODULE FOR WP => WANGWRITER CONVERSION UTILITY 0080 COM C,D1,D4,D0$8 : COM U1$(2)64,U2$(8)4,V1$(3)82,V0$(1)1,J2$80,J2$(256)1,J8$1,C0$8,R1$1,I1$1 ,I3$2,I1,I2,I3 : 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(2),S7(2),S2(2),S4(2),T5$(2)8 : DIM S2$(16)2 : DIM S1$2 0180 DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7 : DIM D(25) : IF D4=0THEN B2$=" " : D4=6 : RESTORE LINE2510 : GOSUB '61 : PRINT HEX(03); : IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07); 0285 T5$()=R5$ : GOSUB 1707 : IF R1$=HEX(00)THEN 293 : GOSUB 2622 : PRINT AT(02,25,);B2$;HEX(07); : GOSUB '34(1) : GOTO 305 0293 GOSUB '62 : ON T5GOTO 335,320,320 0305 COM CLEAR D1 : LOAD T"609menu" 0320 GOSUB 2575 : PRINT AT(23,40,);T1$;HEX(07); : GOTO 285 0335 IF VER(T5$(1),"####A")=5THEN 355 : GOSUB 2580 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 285 0355 R5$=T5$(1) : GOSUB '110(R5$,"D") : IF B2$<>" "THEN 415 : GOSUB '111(B0$,B9$," ",HEX(FF)) : IF R1$=HEX(05)THEN GOTO 390 : B4$=" " : GOTO 400 0390 B4$=J7$ 0395 GOSUB '111(B0$,B9$,B4$,HEX(FF)) 0400 IF B2$=" "THEN 440 : IF R1$=HEX(05)THEN 425 0415 PRINT AT(23,0,);B2$;HEX(07); : GOTO 285 0425 GOSUB '90 : IF J$<>HEX(F0)THEN 395 0440 A1=V3 : GOSUB '88(A1,1,1,1,1) : GOSUB '88(A1,1,VAL(STR(V1$(),3,2),2),1,1) : $UNPACK(F=HEX(A019))V1$()TO A6$() : $TRAN(A6$(1),HEX(8020))R : GOSUB 2585 : PRINT AT(9,20);T1$;TAB(40);A6$(1) : $TRAN(STR(A6$(2),,20),HEX(8020))R : GOSUB 2590 : PRINT TAB(20);T1$;TAB(40);A6$(2) : $TRAN(STR(A6$(3),,20),HEX(8020))R : GOSUB 2595 : PRINT TAB(20);T1$;TAB(40);A6$(3) 0500 $TRAN(STR(A6$(4),,20),HEX(8020))R : GOSUB 2600 : PRINT TAB(20);T1$;TAB(40);A6$(4) : GOSUB '34(0) : IF J$<>HEX(F0)THEN 555 0530 A5$="609WWBEG" 0535 COM CLEAR D1 : A5$()="609CloseJCATSMAL" : LOAD T<2>A5$() 0555 PRINT AT(14,3);"--------------------------------------------------------- -----------------" : RESTORE LINE2545 : GOSUB '61 : T5$()=" " 0580 GOSUB '62 : ON T5GOTO 614,610,610 : GOTO 530 0610 GOSUB 2575 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 580 0614 GOSUB 2624 : PRINT AT(22,0);B2$ : GOSUB 1807 : IF R1$=HEX(00)THEN 654 : ON VAL(R1$)-47GOTO 618,619,620,621,622,623,,,624,625,626,627,628,629,630, 631,632,633,634,635,636,637,638,639,640,641,642 0618 GOSUB 2626 : GOTO 648 0619 GOSUB 2628 : GOTO 648 0620 GOSUB 2630 : GOTO 648 0621 GOSUB 2632 : GOTO 648 0622 GOSUB 2634 : GOTO 648 0623 GOSUB 2636 : GOTO 648 0624 GOSUB 2638 : GOTO 648 0625 GOSUB 2640 : GOTO 648 0626 GOSUB 2642 : GOTO 648 0627 GOSUB 2644 : GOTO 648 0628 GOSUB 2646 : GOTO 648 0629 GOSUB 2648 : GOTO 648 0630 GOSUB 2650 : GOTO 648 0631 GOSUB 2652 : GOTO 648 0632 GOSUB 2654 : GOTO 648 0633 GOSUB 2656 : GOTO 648 0634 GOSUB 2658 : GOTO 648 0635 GOSUB 2660 : GOTO 648 0636 GOSUB 2662 : GOTO 648 0637 GOSUB 2664 : GOTO 648 0638 GOSUB 2666 : GOTO 648 0639 GOSUB 2668 : GOTO 648 0640 GOSUB 2670 : GOTO 648 0641 GOSUB 2672 : GOTO 648 0642 GOSUB 2674 0648 PRINT AT(02,25,);B2$;HEX(07); : GOSUB '34(1) : GOTO 900 0654 I1$="2" : C0$=T5$(1) : GOSUB 1908 : IF R1$=HEX(00)THEN 735 : ON VAL(R1$)-47GOTO 664,665,666,667,668,669,,,670,671,672,673,674,675,676, 677,678,679,680,681,682,683,684,686,688,690,692 0664 GOSUB 2626 : GOTO 725 0665 GOSUB 2628 : GOTO 725 0666 GOSUB 2630 : GOTO 725 0667 GOSUB 2632 : GOTO 725 0668 GOSUB 2634 : GOTO 725 0669 GOSUB 2636 : GOTO 725 0670 GOSUB 2638 : GOTO 725 0671 GOSUB 2640 : GOTO 725 0672 GOSUB 2642 : GOTO 725 0673 GOSUB 2644 : GOTO 725 0674 GOSUB 2646 : GOTO 725 0675 GOSUB 2648 : GOTO 725 0676 GOSUB 2650 : GOTO 725 0677 GOSUB 2652 : GOTO 725 0678 GOSUB 2654 : GOTO 725 0679 GOSUB 2656 : GOTO 725 0680 GOSUB 2658 : GOTO 725 0681 GOSUB 2660 : GOTO 725 0682 GOSUB 2662 : GOTO 725 0683 GOSUB 2664 : GOTO 725 0684 GOSUB 2666 : GOTO 725 0686 GOSUB 2668 : GOTO 725 0688 GOSUB 2670 : GOTO 725 0690 GOSUB 2672 : GOTO 725 0692 GOSUB 2674 0725 GOSUB 2307 : IF R1$<>HEX(00)THEN GOSUB '31 : PRINT AT(22,0,);B2$;HEX(07) : GOSUB '34(1) : GOTO 530 0731 GOTO 580 0735 D0$=T5$(1) : IF D3>=0THEN 747 : GOTO 580 0747 IF D3=0THEN 755 : GOSUB 2606 : PRINT AT(23,0,);T1$;HEX(07); : GOTO 580 0755 REM GOTO 1240 : GOTO 815 0775 B2$=" " : IF C0=85THEN GOSUB 2608 : IF C0=86THEN GOSUB 2610 : IF B2$=" "THEN GOSUB 2612 : PRINT AT(23,0,);B2$;HEX(07); : GOSUB '34(1) : GOTO 530 0815 REM DBACKSPACE #D4,BEG : A5$()="609WW200FILERS REC-GEN REC-RD" : LOAD T<4>A5$() 0845 DEFFN'88(D5,D6,D7,D8,D9) : GOSUB '220(D5,D6,D7,D8,D9) : IF R1$=HEX(00)THEN RETURN : RETURN CLEAR ALL 0875 HEXUNPACKR1$TO T2$ : GOSUB 2614 : PRINT AT(23,0,);B2$;HEX(07); : GOSUB '34(1) : GOTO 530 0900 DEFFN'31 : A5$="609menu" : GOTO 535 0910 DEFFN'90 : GOSUB 2616 : PRINT AT(23,0,);B2$;HEX(20858585858585); : GOSUB 2618 : PRINT AT(23,40);B2$;HEX(07);AT(23,29);HEX(0509); 0925 KEYIN J$,925,925 : D(6)=0 : B4$=" " 0940 KEYIN J$,945,945 : GOTO 940 0945 PRINT HEX(06);AT(23,40,); : ON POS(HEX(0D82F0)=J$)GOTO 980,980,990 : GOSUB 2620 : PRINT AT(23,40,);B2$;HEX(07); : GOTO 940 0965 D(6)=D(6)+1 : STR(B4$,D(6),1)=J$ : IF D(6)<6THEN 940 0980 PRINT AT(23,0,); : RETURN 0990 PRINT AT(23,0,); : B4$=" " : RETURN 2500 % DO NOT RENUMBER THE FOLLOWING 2510 DATA 4,0,0,"WP Document to WANGWRITER File Conversion" : DATA 4,3,2,"Please Enter Data" : DATA 4,4,2,"Press EXECUTE to Continue :" : DATA 4,7,20,"Document ID :" : DATA 2,7,40,5," " : DATA 0 2545 DATA 4,0,0,"WP Document to WANGWRITER File Conversion" : DATA 4,16,16,"WANGWRITER File Name :" : DATA 2,16,40,8," " : DATA 0 2575 T1$="Invalid Key" : RETURN 2580 T1$="Invalid Document ID" : RETURN 2585 T1$="Document Name :" : RETURN 2590 T1$="Operator :" : RETURN 2595 T1$="Author :" : RETURN 2600 T1$="Comments :" : RETURN 2602 T1$="Invalid Address" : RETURN 2604 T1$="Unable to re-use file name" : RETURN 2606 T1$="File Name already in use" : RETURN 2608 B2$="Catalog Index Full" : RETURN 2610 B2$="Disk Full" : RETURN 2612 B2$="Error " : CONVERT XTO STR(B2$,7,3),(###) : B2$=B2$&" Occurred During Open" : RETURN 2614 B2$="Error Occurred While Reading Document = "&T2$ : RETURN 2616 B2$="Enter Document "&R5$&" Password " : RETURN 2618 B2$="Password Protected" : RETURN 2620 B2$="Invalid Character" : RETURN 2622 B2$="Terminal must be a wangwriter" : RETURN 2624 B2$="(In Progress)" : RETURN 2626 B2$="Operation Not Done" : RETURN 2628 B2$="Drive Not Ready" : RETURN 2630 B2$="Write Protected" : RETURN 2632 B2$="Disk CRC Error" : RETURN 2634 B2$="Disk Format Error" : RETURN 2636 B2$="Drive Malfunction" : RETURN 2638 B2$="Programming Error" : RETURN 2640 B2$="Drive Dropped Ready" : RETURN 2642 B2$="Document Not Found" : RETURN 2644 B2$="Invalid FRN" : RETURN 2646 B2$="File Not Open" : RETURN 2648 B2$="Document in Use" : RETURN 2650 B2$="Invalid Class" : RETURN 2652 B2$="Unsupported Diskette" : RETURN 2654 B2$="No Room On Diskette" : RETURN 2656 B2$="Invalid Page Number" : RETURN 2658 B2$="Document(s) Still in Use" : RETURN 2660 B2$="Volume Label Damaged" : RETURN 2662 B2$="No Room on Diskette" : RETURN 2664 B2$="Document Exists" : RETURN 2666 B2$="Not an Archive Disk" : RETURN 2668 B2$="Not a System Disk" : RETURN 2670 B2$="Copy Incomplete" : RETURN 2672 B2$="Run Recovery" : RETURN 2674 B2$="Number of Retries Exceeds Limit" : RETURN