Listing of file='609WP300' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1379, program filename = '609WP300' 0010 REM '609WP300' - CONVERT DOCUMENT TO TC FILE RWL 11/30/84 0180 STR(D2$(),227,18)=HEX(0011020020000220056610130401AACA1704) : STR(D2$(),245,6)=B4$ : $TRAN(STR(D2$(),245,6),D3$()) : $TRAN(STR(D2$(),245,6),HEX(0020))R : STR(D2$(),252,1)=BIN(56) : STR(D2$(),253,1)=HEX(03) : D2$=BIN(D7,2) : STR(D2$(),254,2)=STR(D2$,2,1)&STR(D2$,1,1) : STR(D2$(),256,1)=HEX(DF) : D7$()=D2$() 0360 STR(D7$(),3,5)=HEX(FF)&"A"&D1$ : OR (STR(D7$(),8,5),80) : D6$=BIN(249)&STR(D7$(),8,1) : D8$()=STR(D7$(),9) : DATA SAVE DC #D4,D6$,D8$() : D9=2 0470 GOSUB 990 : IF R1$<>HEX(28)AND R1$<>HEX(00)THEN 950 : IF R1$=HEX(28)THEN D8=1 : D2$=BIN(D9,2) : MAT SEARCHD6$(),=STR(D2$,1,2)TO D1$()STEP 2 : IF D1$()=HEX(0000)THEN 720 : C=VAL(D1$(),2) : IF C<>5THEN 650 : MAT SEARCHSTR(D6$(),7),>HEX(0000)TO D6$STEP 2 : C=VAL(D6$,2)+6 : D9=VAL(STR(D6$(),C),2)-1 : GOTO 470 0650 IF C<>13THEN 720 : MAT SEARCHSTR(D6$(),15),>HEX(0000)TO D6$STEP 2 : C=VAL(D6$,2)+14 : D9=VAL(STR(D6$(),C),2)-1 : GOTO 470 0720 S7=POS(STR(V1$(),2)=8F)+1 : IF S7=1THEN 770 : STR(V1$(),S7)=ALL(20) : S7=S7-1 : GOTO 780 0770 S7=POS(-V1$()<>20) 0780 D3$=BIN(S7) : $TRAN(V1$(),D3$()) : IF D1$()<>HEX(0000)THEN IF C<15THEN STR(V1$(),1,1)=STR(D5$,INT(C/2)-2,1) : STR(D3$,2,1)=STR(V1$(),1,1) : D8$()=STR(V1$(),2) : DATA SAVE DC #D4,D3$,D8$() : IF D8=0THEN 470 : DATA SAVE DC #D4,END : A5$="609WP100" 0920 DATA SAVE DC CLOSE#D4 : COM CLEAR D1 : A5$()="609CloseJCATSMAL" : LOAD T<2>A5$() 0950 GOSUB 2500 : GOTO 920 0990 D9=D9+1 : GOSUB '220(A1,1,D9,1,1) : RETURN 2500 HEXUNPACKR1$TO T2$ : B2$="Error occurred while reading document = "&T2$ : RETURN