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