image of READY prompt

Wang2200.org

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"