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"