Listing of file='609PWP' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2631, program filename = '609PWP'
1500 REM 609PWP 229-10/21/84
1502 IF C0$="WWPSDISK"THEN L=0
: ELSE LIMITS T#C2,C0$,L,J8,J8,J8
: HEXPACKD1$FROMSTR(C2$,1,4)
: STR(D1$,3)=STR(C2$,5)
: FOR C=3TO 4
: C8$=BIN(C,2)
: GOSUB '32(C8$)
: MAT SEARCHC$(),=STR(D1$,1,3)TO V0$()STEP 6
: IF V0$()=HEX(0000)THEN 1514
: C9$,C8$=STR(C$(),VAL(V0$(),2)+3)
: GOSUB '32(C8$)
: C=4
1514 NEXT C
: C8$=STR(C$(),,2)
: GOSUB '32(C8$)
: C7$()=C$()
: MAT SEARCHSTR(C7$(),9),=STR(C7$(),,2)TO T2$STEP 2
: J8=VAL(T2$,2)+8
: IF STR(C7$(),11,2)<>HEX(0000)AND J8<=11THEN D0=0
: IF STR(C7$(),13,2)<>HEX(0000)AND J8<=13THEN D1=0
: RETURN
1550 C8$=STR(C7$(),J7,2)
: GOTO 1555
1554 DEFFN'32(C8$)
1555 IF C8$=HEX(0000)THEN RETURN CLEAR
: IF C8$=HEX(0000)THEN 730
: DATA LOAD BA T#C2,(L+16*VAL(C8$)+POS(HEX(0004080C0105090D02060A0E03070B0F
)=STR(C8$,2))-1)C$()
: C8$=STR(C$(),,2)
: I=VAL(C$(3))-6
1556 D$()=ALL(00)
: IF I<1THEN RETURN
: D$()=STR(C$(),8,I)&ALL(00)
: $TRAN(D$(),J1$())
: H=0
: IF STR(D$(),,1)=HEX(8F)THEN H=1
: $TRAN(D$(),HEX(868F))R
: IF D$(1)=HEX(00)OR D$(2)=HEX(00)THEN RETURN
: IF D$(POS(D$()=00)-1)=HEX(86)THEN D$(POS(D$()=00)-1)=HEX(00)
: RETURN