Listing of file='SLE.EXEC' on disk='vmedia/701-2721C.wvd.zip'
# Sector 819, program filename = 'SLE.EXEC' 0040 COM K8$(1008)1 0050 COM G7$(200)1 : COM F$20,O$28,O$(7)28,I$(3)64,T$(3)1,L(3) : COM C7 : C7=1 : PRINT HEX(06);AT(0,10,);HEX(0E);" Selecting Records";HE X(0F); : GOSUB '167(L0$(1),1) : GOTO 90 0090 L0=0 : L0(2)=0 : GOTO 145 0140 GOSUB '71 0145 PRINT AT(15,20);"Number of data records examined is ";L0; : PRINT AT(17,20);"Number of data records selected is ";L0(2); : IF C7=0THEN 1280 : A=1 : L0=L0+1 : IF G1$="N"THEN 870 : G1=1 0220 GOSUB '98(G1) : $TRAN(I$(),HEX(2080))R : MAT SEARCHL3$(),=F$TO R9$()STEP L6 : T$=STR(L3$(),VAL(R9$(),2)+L4,1) : P=VAL(STR(L3$(),VAL(R9$(),2)+L4+1,2),2) : L=VAL(STR(L3$(),VAL(R9$(),2)+L4+3,2),2) : I=0 : IF T$="S"OR T$="U"THEN CONVERT STR(K8$(),P,L)TO D : ERRORD=0 0310 I=I+1 : IF T$(I)<>"V"THEN 390 : I$(I)=STR(G7$(),A,POS(STR(G7$(),A)=HEX(00))-1) : A=A+POS(STR(G7$(),A)=HEX(00)) : IF I$(I)=HEX(81)THEN 730 : GOTO 450 0390 IF T$(I)<>"F"THEN 450 : MAT SEARCHL3$(),=I$(I)TO R9$()STEP L6 : L2=VAL(STR(L3$(),VAL(R9$(),2)+L4+3,2),2) : G4=VAL(STR(L3$(),VAL(R9$(),2)+L4+1,2),2) : I$(I)=STR(K8$(),G4,L2) 0450 IF T$="U"OR T$="S"THEN Z=7 : ELSE Z=0 : IF Z=0THEN 480 : CONVERT I$(I)TO C : ERRORC=0 0480 ON O+ZGOTO 510,540,570,600,630,660,700,500,530,560,590,620,650,680 0500 IF C=DTHEN 860 : ELSE GOTO 730 0510 IF I$(I)=STR(K8$(),P,L)THEN 860 : ELSE GOTO 730 0530 IF C=DTHEN 750 : IF I=G9THEN 860 : ELSE GOTO 730 0540 IF I$(I)=STR(K8$(),P,L)THEN 750 : IF I=G9THEN 860 : ELSE GOTO 730 0560 IF D<CTHEN 860 : ELSE GOTO 730 0570 IF STR(K8$(),P,L)<I$(I)THEN 860 : ELSE GOTO 730 0590 IF D>CTHEN 860 : ELSE GOTO 730 0600 IF STR(K8$(),P,L)>I$(I)THEN 860 : ELSE GOTO 730 0620 IF D<=CTHEN 860 : ELSE GOTO 730 0630 IF STR(K8$(),P,L)<=I$(I)THEN 860 : ELSE GOTO 730 0650 IF D>=CTHEN 860 : ELSE GOTO 730 0660 IF STR(K8$(),P,L)>=I$(I)THEN 860 : ELSE GOTO 730 0680 IF I<>2THEN 730 : CONVERT I$(1)TO E : ERRORE=0 0686 CONVERT I$(2)TO F : ERRORF=0 0690 IF D<=MIN(E,F)OR D>=MAX(E,F)THEN 730 : GOTO 860 0700 IF I<>2THEN 730 : IF STR(K8$(),P,L)<I$(2)AND STR(K8$(),P,L)>I$(1)THEN 860 : IF STR(K8$(),P,L)<I$(1)AND STR(K8$(),P,L)>I$(2)THEN 860 0730 IF I<G9THEN 310 0750 IF G$(G2)=HEX(FF)THEN 140 : IF G$(G2)="\CF"THEN 220 : G0=POS(STR(G$(),G1)="\CF") : IF G0=0THEN 140 : G1=G1+G0 : GOTO 220 0860 IF G$(G2)="\C1"THEN 220 0870 L0(2)=L0(2)+1 : S=1 : FOR I=1TO G5 : MAT SEARCHL3$(),=STR(G3$(I),L4+5+L7+7,L4)TO X$STEP L6 : IF STR(G3$(I),L4+5+L7+3,3)<>"NO"THEN L=VAL(STR(G3$(I),L4+4,2),2) : ELSE L=MIN(VAL(STR(L3$(),VAL(X$,2)+L4+3,2),2),VAL(STR(G3$(I),L4+4,2),2)) : IF STR(G3$(I),L4+5+L7+3,3)="Ent"OR STR(G3$(I),L4+5+L7+3,3)="Glo"THEN 1200 1100 IF STR(G3$(I),L4+5+L7+3,3)<>"NO"THEN 1190 : B=VAL(STR(L3$(),VAL(X$,2)+L4+1,2),2) : STR(B1$(),S,L)=STR(K8$(),B,L) 1190 S=S+VAL(STR(G3$(I),L4+4,2),2)+2 1200 NEXT I : GOSUB '244(1,L0(1),S1) : IF G1$="N"THEN 140 : IF G$(G2)=HEX(FF)THEN 140 : GOTO 140 1280 IF L0(2)=0THEN COM CLEAR G7$() : S=VAL(STR(K9$,7,1)) : L=VAL(STR(K9$,8,1)) : IF L0(2)=0THEN X$=STR(K9$,S,8) : ELSE X$="LPPOSSEL" : MAT COPY K9$<S+8,L-8>TO K9$<S,L-8> : STR(K9$,S+L-8,8)="@MENU" : LOAD TX$ 1350 DEFFN'16"RENUMBER 1000-1999 TO 1000 ";HEX(0D); 1360 DEFFN'0 : SCRATCH T"SLE.EXED" : SAVE T()"SLE.EXED"0,2999 : SCRATCH T"SLE.EXEC" : SAVE <SR>T()"SLE.EXEC"0,2999 : PRINT "'SLE.EXED' & 'SLE.EXEC' SAVED" : LIST DT : RETURN 2120 DEFFN'98(G1) : DIM F$20,O$28,O$(7)28,I$(3)64,T$(3)1,L(3),L$1 : G2=POS(STR(G$(),G1)=HEX(00)) : IF G2>0THEN 2180 : RETURN 2180 F$=STR(G$(),G1,G2-1) : G1=G1+G2 : MAT SEARCH"=#<>\BC\BE@",=STR(G$(),G1,1)TO O$STEP 1 : O$(1)="IS EQUAL TO" : O$(2)="IS NOT EQUAL TO" : O$(3)="IS LESS THAN" : O$(4)="IS GREATER THAN" : O$(5)="IS LESS THAN OR EQUAL TO" : O$(6)="IS GREATER THAN OR EQUAL TO" : O$(7)="IS BETWEEN" : O=VAL(O$,2) 2240 O$=O$(O) : G1=G1+1 : G9=0 : MAT L=ZER : T$(),I$()=" " 2280 G9=G9+1 : T$(G9)=STR(G$(),G1,1) : G1=G1+1 : IF T$(G9)="F"THEN G2=POS(STR(G$(),G1)=HEX(00)) : ELSE G2=POS(STR(G$(),G1)>="\C1") : IF G2=0THEN G2=LEN(G$())-G1+2 : I$(G9)=STR(G$(),G1,G2-1) : G2=G1+G2-1 : L(G9)=LEN(I$(G9)) : IF T$(G9)="F"THEN G2=G2+1 : G1=G2+1 : IF STR(G$(),G2,1)="\EF"THEN 2280 : L$=G$(G2) : RETURN