00000000: D2 45 46 20 37 20 20 20 20 20 20 20 20 20 20 20 |.EF 7 |
00000010: 20 C6 C9 CE C4 20 20 20 20 20 20 20 20 20 20 20 | .... |
00000020: 20 20 C2 4C 5A 2E 20 31 0D 2D 2D 2D 2D 2D 2D 2D | .LZ. 1.-------|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000050: 2D 0D C4 45 20 C6 49 4E 44 20 46 55 4E 43 54 49 |-..E .IND FUNCTI|
00000060: 45 20 57 4F 52 44 54 20 47 45 42 52 55 49 4B 54 |E WORDT GEBRUIKT|
00000070: 20 4F 4D 0D 52 45 43 4F 52 44 53 20 54 45 20 5A | OM.RECORDS TE Z|
00000080: 4F 45 4B 45 4E 20 44 49 45 20 41 41 4E 20 45 45 |OEKEN DIE AAN EE|
00000090: 4E 20 4F 46 20 4D 45 45 52 0D 5A 4F 45 4B 20 43 |N OF MEER.ZOEK C|
000000A0: 52 49 54 45 52 49 41 20 56 4F 4C 44 4F 45 4E 2E |RITERIA VOLDOEN.|
000000B0: 20 D6 41 4E 20 44 45 5A 45 20 52 45 43 4F 52 44 | .AN DEZE RECORD|
000000C0: 53 0D 57 4F 52 44 54 20 44 41 4E 20 45 45 4E 20 |S.WORDT DAN EEN |
000000D0: 53 4C 45 55 54 45 4C 4C 49 4A 53 54 20 41 41 4E |SLEUTELLIJST AAN|
000000E0: 47 45 4D 41 41 4B 54 2E 0D C4 45 5A 45 20 4C 49 |GEMAAKT...EZE LI|
000000F0: 4A 53 54 20 4B 41 4E 20 44 41 4E 20 47 45 42 52 |JST KAN DAN GEBR|
00000100: 55 49 4B 54 20 57 4F 52 44 45 4E 20 42 49 4A 0D |UIKT WORDEN BIJ.|
00000110: D3 C5 CC C5 C3 D4 2C 20 D3 CF D2 D4 2C 20 CF D5 |......, ...., ..|
00000120: D4 D0 D5 D4 2C 20 C2 C1 D4 C3 C8 2C 20 D2 C5 D0 |...., ....., ...|
00000130: CF D2 D4 20 45 4E 0D 49 4E 20 D0 D2 CF C7 D2 C1 |... EN.IN ......|
00000140: CD CD C1 27 D3 2E 20 C4 45 20 4C 49 4A 53 54 20 |...'.. .E LIJST |
00000150: 56 45 52 53 43 48 4A 4E 54 20 4F 4F 4B 0D 4F 50 |VERSCHJNT OOK.OP|
00000160: 20 48 45 54 20 47 45 53 45 4C 45 43 54 45 45 52 | HET GESELECTEER|
00000170: 44 45 20 55 49 54 56 4F 45 52 20 41 50 50 41 52 |DE UITVOER APPAR|
00000180: 41 41 54 2E 0D 0D C3 4F 4D 4D 41 4E 44 4F 20 D3 |AAT....OMMANDO .|
00000190: 59 4E 54 41 58 3A 0D 0D C6 49 4E 44 20 22 4C 49 |YNTAX:...IND "LI|
000001A0: 4A 53 54 22 20 57 48 45 52 45 20 5B 56 45 4C 44 |JST" WHERE [VELD|
000001B0: 5D 20 49 53 22 43 52 49 54 45 52 49 55 4D 22 3B |] IS"CRITERIUM";|
000001C0: 0D 5B 56 45 4C 44 32 5D 20 49 53 20 22 43 52 49 |.[VELD2] IS "CRI|
000001D0: 54 45 52 49 55 4D 22 2E 2E 2E 2E 2E 2E 2E 2E 0D |TERIUM".........|
000001E0: 0D 31 2E 20 C4 45 20 4C 49 4A 53 54 20 5A 41 4C |.1. .E LIJST ZAL|
000001F0: 20 27 48 4C 49 53 54 27 20 48 45 54 45 4E 20 49 | 'HLIST' HETEN I|
00000200: 4E 44 49 45 4E 0D 20 20 20 47 45 45 4E 20 4C 49 |NDIEN. GEEN LI|
00000210: 4A 53 54 4E 41 41 4D 20 49 53 20 4F 50 47 45 47 |JSTNAAM IS OPGEG|
00000220: 45 56 45 4E 2E 0D 0D 32 2E 20 C9 4E 44 49 45 4E |EVEN...2. .NDIEN|
00000230: 20 27 57 48 45 52 45 27 20 4E 49 45 54 20 57 4F | 'WHERE' NIET WO|
00000240: 52 44 54 20 47 45 42 52 55 49 4B 54 0D 20 20 20 |RDT GEBRUIKT. |
00000250: 56 45 52 53 43 48 49 4A 4E 54 20 45 52 20 45 45 |VERSCHIJNT ER EE|
00000260: 4E 20 4C 45 45 47 20 52 45 43 4F 52 44 20 56 4F |N LEEG RECORD VO|
00000270: 4F 52 0D 20 20 20 48 45 54 20 49 4E 56 4F 45 52 |OR. HET INVOER|
00000280: 45 4E 20 56 41 4E 20 44 45 20 5A 4F 45 4B 20 43 |EN VAN DE ZOEK C|
00000290: 52 49 54 45 52 49 41 2E 0D 0D D2 45 46 20 37 20 |RITERIA....EF 7 |
000002A0: 20 20 20 20 20 20 20 20 20 20 C6 C9 CE C4 20 20 | .... |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 C2 4C 5A 2E | .LZ.|
000002C0: 20 31 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | 1.-------------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 33 2E 20 D7 |-----------.3. .|
000002F0: 48 45 52 45 20 50 41 52 41 4D 45 54 45 52 53 20 |HERE PARAMETERS |
00000300: 4D 4F 45 54 45 4E 20 56 41 4E 20 44 45 20 56 4F |MOETEN VAN DE VO|
00000310: 52 4D 0D 20 20 20 27 5B 56 45 4C 44 5D 20 49 53 |RM. '[VELD] IS|
00000320: 20 22 43 52 49 54 45 52 49 55 4D 22 27 20 5A 49 | "CRITERIUM"' ZI|
00000330: 4A 4E 2E 0D 0D 34 2E 20 CD 45 45 52 56 4F 55 44 |JN...4. .EERVOUD|
00000340: 49 47 45 20 57 48 45 52 45 20 50 41 52 41 4D 45 |IGE WHERE PARAME|
00000350: 54 45 52 53 20 44 49 45 4E 45 4E 0D 20 20 20 44 |TERS DIENEN. D|
00000360: 4F 4F 52 20 45 45 4E 20 50 55 4E 54 43 4F 4D 4D |OOR EEN PUNTCOMM|
00000370: 41 20 54 45 20 57 4F 52 44 45 4E 0D 20 20 20 47 |A TE WORDEN. G|
00000380: 45 53 43 48 45 49 44 45 4E 2E 0D 0D C2 45 53 43 |ESCHEIDEN....ESC|
00000390: 48 49 4B 42 41 52 45 20 CD 41 54 43 48 20 4D 4F |HIKBARE .ATCH MO|
000003A0: 47 45 4C 49 4A 4B 48 45 44 45 4E 3A 0D 0D C5 58 |GELIJKHEDEN:...X|
000003B0: 41 43 54 45 20 CD 41 54 43 48 20 20 20 20 20 20 |ACTE .ATCH |
000003C0: 20 20 20 20 20 20 20 20 20 3D 47 45 54 41 4C 20 | =GETAL |
000003D0: 3D 54 45 4B 53 54 0D D3 43 48 55 49 56 45 4E 44 |=TEKST..CHUIVEND|
000003E0: 20 49 4E 20 56 45 4C 44 20 20 20 20 20 20 20 20 | IN VELD |
000003F0: 20 20 20 20 20 20 20 20 20 54 45 4B 53 54 0D CF | TEKST..|
00000400: 4E 47 45 4C 49 4A 4B 20 41 41 4E 20 20 20 20 20 |NGELIJK AAN |
00000410: 20 20 20 20 20 20 20 20 20 20 23 47 45 54 41 4C | #GETAL|
00000420: 20 23 54 45 4B 53 54 0D D3 43 48 55 49 56 45 4E | #TEKST..CHUIVEN|
00000430: 44 20 56 41 4E 41 46 20 56 45 4C 44 20 20 20 20 |D VANAF VELD |
00000440: 20 20 20 20 20 20 20 20 20 20 54 45 4B 53 54 2D | TEKST-|
00000450: 0D D3 43 48 55 49 56 45 4E 44 20 54 4F 54 20 56 |..CHUIVEND TOT V|
00000460: 45 4C 44 20 20 20 20 20 20 20 20 20 20 20 20 20 |ELD |
00000470: 20 20 20 2A 0D C7 52 4F 54 45 52 20 44 41 4E 20 | *..ROTER DAN |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 3E 47 45 54 41 4C 20 3E 54 45 4B 53 54 0D CB 4C |>GETAL >TEKST..L|
000004A0: 45 49 4E 45 52 20 44 41 4E 20 20 20 20 20 20 20 |EINER DAN |
000004B0: 20 20 20 20 20 20 20 20 20 3C 47 45 54 41 4C 20 | <GETAL |
000004C0: 3C 54 45 4B 53 54 0D CD 41 54 43 48 20 41 4C 54 |<TEKST..ATCH ALT|
000004D0: 45 52 4E 41 54 49 45 56 45 4E 20 20 20 20 20 20 |ERNATIEVEN |
000004E0: 20 20 31 2F 32 2F 33 20 20 41 2F 42 2F 43 0D D4 | 1/2/3 A/B/C..|
000004F0: 55 53 53 45 4E 20 57 41 41 52 44 45 4E 20 20 20 |USSEN WAARDEN |
00000500: 20 20 20 20 20 20 20 20 20 20 3E 31 26 3C 37 20 | >1&<7 |
00000510: 20 3E 41 26 3C 46 0D C7 45 44 45 45 4C 54 45 4C | >A&<F..EDEELTEL|
00000520: 49 4A 4B 45 20 4F 56 45 52 45 45 4E 4B 4F 4D 53 |IJKE OVEREENKOMS|
00000530: 54 20 20 20 20 20 20 20 20 54 45 4B 53 54 2A 0D |T TEKST*.|
00000540: CD 41 54 43 48 20 4D 45 54 20 57 49 4C 44 45 20 |.ATCH MET WILDE |
00000550: 54 45 4B 45 4E 53 20 20 20 20 20 20 20 20 20 20 |TEKENS |
00000560: 20 20 54 45 3F 53 3F 0D CD 41 54 43 48 20 49 4E | TE?S?..ATCH IN|
00000570: 20 44 45 20 43 4F 4D 4D 41 4E 44 4F 20 52 45 47 | DE COMMANDO REG|
00000580: 45 4C 20 20 20 20 20 20 20 20 5F 0D |EL _. |
REF 7 FIND BLZ. 1
.---------------------------------------
-.DE FIND FUNCTIE WORDT GEBRUIKT OM.RECO
RDS TE ZOEKEN DIE AAN EEN OF MEER.ZOEK C
RITERIA VOLDOEN. VAN DEZE RECORDS.WORDT
DAN EEN SLEUTELLIJST AANGEMAAKT..DEZE LI
JST KAN DAN GEBRUIKT WORDEN BIJ.SELECT,
SORT, OUTPUT, BATCH, REPORT EN.IN PROGRA
MMA'S. DE LIJST VERSCHJNT OOK.OP HET GES
ELECTEERDE UITVOER APPARAAT...COMMANDO S
YNTAX:..FIND "LIJST" WHERE [VELD] IS"CRI
TERIUM";.[VELD2] IS "CRITERIUM".........
.1. DE LIJST ZAL 'HLIST' HETEN INDIEN.
GEEN LIJSTNAAM IS OPGEGEVEN...2. INDIEN
'WHERE' NIET WORDT GEBRUIKT. VERSCHIJ
NT ER EEN LEEG RECORD VOOR. HET INVOER
EN VAN DE ZOEK CRITERIA...REF 7
FIND BLZ. 1.-------------
---------------------------.3. WHERE PAR
AMETERS MOETEN VAN DE VORM. '[VELD] IS
"CRITERIUM"' ZIJN...4. MEERVOUDIGE WHER
E PARAMETERS DIENEN. DOOR EEN PUNTCOMM
A TE WORDEN. GESCHEIDEN...BESCHIKBARE
MATCH MOGELIJKHEDEN:..EXACTE MATCH
=GETAL =TEKST.SCHUIVEND IN VELD
TEKST.ONGELIJK AAN
#GETAL #TEKST.SCHUIVEND VANAF
VELD TEKST-.SCHUIVEND TOT V
ELD *.GROTER DAN
>GETAL >TEKST.KLEINER DAN
<GETAL <TEKST.MATCH ALTERNATIEV
EN 1/2/3 A/B/C.TUSSEN WAARDEN
>1&<7 >A&<F.GEDEELTELIJKE OVE
REENKOMST TEKST*.MATCH MET WILDE
TEKENS TE?S?.MATCH IN DE COMM
ANDO REGEL _.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL