Listing of file='609ECOM' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1360, program filename = '609ECOM' 0010 REM 609ECOM , RELEASE 2-0, (02/08/82) - COPYRIGHT WANG LABS. INC. 0011 COM Z$1 : COM J1$(123)2,V2$(256)1,J9$(256)1,J8$(2)35 : COM J4$(1)2,C3$32,C1$8,C2$16,C0$5 : COM C4$1,C5$1,C3,C4,C5,C6,D7,J1,J2,J9 : COM D1$(158)1,D2$(158)1,D5$(158)1,D6$(158)2,D7$(1)2 : COM D5,D8 : COM J1(24),J2(24),J3(24),J4(24),J5(24),A5,J7(3) : COM C6$3,C8$1,D1$1,D2$1,D3$1 0045 COM J6$(64)2,J7$(64)2,D4$(64)1 : COM C1,C2,C7,C8,C9,D0,D1,D2,D3,D9,J0,J3,J4,J7 : COM J0(6),C0 : COM C9$(10)1 : C9$()=HEX(80A0802980A980008000) : C9$(3),C9$(5),C9$(7),C9$(8),C9$(9)=A6$ : C9$(10)=A6$OR HEX(80) : COM D4$5 : D4$=HEX(8182838485868F) : COM D5$2 : D5$=HEX(80A0) : COM C7$1 : C7$=HEX(7F) : COM J9$3 0065 COM C1$(2),C9$ : C1$(1),C1$(2),C9$=" " : COM D7$1 : D7$="H" : A1,A2,A3,A4=-1 : COM D4 : J8=4182 : COM V1$(3)82 0088 % 0090 B2$=$PSTAT(#PART) : IF STR(B2$,,8)="609Glos"THEN C1$="Glossary" : ELSE C1$="Document" : B2$=" " : IF C1$="Glossary"THEN C2$="Glossary" : ELSE C2$="Document" : J9$=ALL(00)