Listing of file='609Erep1' on disk='vmedia/731-0067G.wvd.zip'
# Sector 728, program filename = '609Erep1' 0010 REM ********************* 609Erep1 ************************************ 0030 DEFFNJ(I)=POS(V0$()=" ")-1 : GOSUB 510 : J9=LEN(V0$()) : J7=J9-J0(1)+1 : IF J7=0THEN 150 : MAT COPY -STR(V0$(),J0(1),J7)TO -STR(V0$(),J8-J7+1,J7) : STR(V0$(),J0(1),MIN(J7,J8-J7-J0(1)+1))=" " 0150 J9=FNJ(1) : J1=9E99 : J7(3)=4 : IF J0(1)>=J2(2)THEN J7(3)=2 : V1$()="609Eentr609Eline609Eplin609Eprnt" : IF D7$="H"THEN V1$()="609EENTR609Eline609EPLIN609EPRNT609EPOS 609EFRMT" : LOAD T<INT((LEN(V1$())+7)/8)>V1$() 0510 $OPEN #0 : LIMITS T#0,"609EDATA",I,I,I,I0 : IF I0<>2THEN 690 : IF I<>2THEN 640 : DATA LOAD DC OPEN T#0,"609EDATA" : MAT REDIM J3$(J8/82)82 : DATA SAVE DC #0,J3$() : MAT REDIM J3$(J8)1 : DATA SAVE DC #0,END : DATA SAVE DC CLOSE#0 : $CLOSE#0 : COM CLEAR J3$() : RETURN 0640 $CLOSE#0 : GOSUB 2330 : IF D1$=HEX(50)OR D1$=HEX(F0)THEN 693 : IF D1$=HEX(82)OR D1$=HEX(A1)THEN 510 : GOTO 693 0690 GOSUB 2327 : GOTO 700 0693 J7(2)=50 : PRINT HEX(0F); 0700 D3$=HEX(50) : V1$()="609Erep2609Eloct" : C=LEN(STR(J3$())) : LOAD T<2>V1$() 2327 C3$="Work file does not exist" : GOTO 2430 2330 B2$="Work file in use. Execute to try again, or Cancel."&HEX(07) 2340 GOSUB 2440 : D1$=" " : KEYIN D1$,,2355 : IF POS(HEX(82A1)=D1$)>0THEN RETURN : GOTO 2340 2355 IF POS(HEX(F050)=D1$)=0THEN 2340 : RETURN 2430 PRINT AT(23,0,80);HEX(0706);B5$(2);C3$;" - please Cancel";B5$(1); : RETURN 2440 PRINT AT(23,0,80);B5$(2);B2$; : RETURN 3000 DEFFN'31 : A5=0 : A5$()="609CloseJCATSMAL" : A5$=R3$() : R3$()=STR(R3$(),10) : IF A1>-1OR A2>-1THEN LOAD T<2>A5$() : COM CLEAR C : LOAD TA5$