Listing of file='609Fstrt' on disk='vmedia/731-0071G.wvd.zip'
# Sector 420, program filename = '609Fstrt'
0010 REM '609Fstrt' - START MODULE FOR WP DOCUMENT FILING
0030 COM T5(2),T5$(2)30,J2$2
: COM V0$(1)1,V1$(3)82,U1$(2)64,U2$(8)4
: COM V2$(256)1,V5$(160)1,V2$67,V3$16,U3$(10)2,U2$85,U2(6),R1$1,V8$4,V7$2,U
7$68,V6$1,U1$2,V0$8,U0$(128)2,V7(10),U3(9)
0070 COM R1$1,V5$(160)1,V1$(3)82,V7$(256)1,U0(23),V9$2,V1$2,U0$3,U3$1,U6$(256)
1,U7$(256)1,U0$(128)2,U4$4,U4$(256)1,V4$1,V6(9),V9(9),U5(10),V5(7)
: COM D(25)
0650 COM D$50,D0$5,D1$3,D2$1,D3$1,D4$5,D5$1,D7$32,J7$6,J8$32,J9$29
: COM J1$(256)1,D3$(256)1,J$1,J0$2,T1$80,J1$16,J3$2
: COM D$(3)1,D0$(84)6,D1$(1)2,D2$(256)1
: COM D4$(100)2,D5$(100)2,D6$(8)1,D7$(8)1,J$(84)6
: COM D8$(256)1,D9$(256)1
: D(9)=6
0710 D7$=HEX(0000040108020C030104050509060D07020806090A0A0E0B030C070D0B0E0F0F)
: MAT COPY -D7$TO J8$
: D6$()=HEX(8040201008040201)
: D7$()=HEX(7FBFDFEFF7FBFDFE)
: LIMITS T#0,"609$TRAN",D(1),D(2),D(2),D(2)
: DATA LOAD BA T#0,(D(1))D3$()
: DATA LOAD BA T#0,(D(1)+1)J1$()
: D$(1)=B6$
: D1=-1
: B2$=$PSTAT(#PART)
0860 IF STR(B2$,,8)="609ADV"THEN LOAD T"609adfil"
: LOAD T"609Fmenu"
0890 DEFFN'31
: COM CLEAR C
: LOAD T"609menu"