image of READY prompt

Wang2200.org

Listing of file='609ECOM' on disk='vmedia/731-0067G.wvd.zip'

# Sector 1334, 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)