LOGOLIJSTEN.LOGO

FILE INFORMATION

FILENAME(S): LOGOLIJSTEN.LOGO

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:05:35

APPEARS ON: 2 disk(s)

FILE HASH

f1e485cd66f084cf92fbcff2305f9e0962d74be1308d701408da319aaba141ef

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITIE	LOGOLIJSTEN.LOGO	PRG	DuncanTwain	27	5	DOWNLOAD FILE
LOGO	LOGOLIJSTEN.LOGO	PRG	DuncanTwain	21	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 47 52 4F  54 45 52 3F 20 3A 41 20  |. TO GROTER? :A |
00000010: 3A 42 0D 20 41 4C 53 20  4C 45 45 47 3F 20 3A 41  |:B. ALS LEEG? :A|
00000020: 20 44 41 4E 20 52 45 53  55 4C 54 41 41 54 20 22  | DAN RESULTAAT "|
00000030: 4E 49 45 54 57 0D 20 41  4C 53 20 4C 45 45 47 3F  |NIETW. ALS LEEG?|
00000040: 20 3A 42 20 44 41 4E 20  52 45 53 55 4C 54 41 41  | :B DAN RESULTAA|
00000050: 54 20 22 57 41 41 52 0D  20 41 4C 53 20 45 4C 4B  |T "WAAR. ALS ELK|
00000060: 56 41 4E 20 47 45 54 41  4C 3F 20 3A 41 20 47 45  |VAN GETAL? :A GE|
00000070: 54 41 4C 3F 20 3A 42 20  44 41 4E 20 52 45 53 55  |TAL? :B DAN RESU|
00000080: 4C 54 41 41 54 20 3A 41  20 3E 20 3A 42 0D 20 41  |LTAAT :A > :B. A|
00000090: 4C 53 20 41 53 43 49 49  20 45 45 52 53 54 45 20  |LS ASCII EERSTE |
000000A0: 3A 41 20 3E 20 41 53 43  49 49 20 45 45 52 53 54  |:A > ASCII EERST|
000000B0: 45 20 3A 42 20 44 41 4E  20 52 45 53 55 4C 54 41  |E :B DAN RESULTA|
000000C0: 41 54 20 22 57 41 41 52  0D 20 41 4C 53 20 45 45  |AT "WAAR. ALS EE|
000000D0: 52 53 54 45 20 3A 41 20  3D 20 45 45 52 53 54 45  |RSTE :A = EERSTE|
000000E0: 20 3A 42 20 44 41 4E 20  52 45 53 55 4C 54 41 41  | :B DAN RESULTAA|
000000F0: 54 20 47 52 4F 54 45 52  3F 20 4D 45 20 3A 41 20  |T GROTER? ME :A |
00000100: 4D 45 20 3A 42 0D 20 52  45 53 55 4C 54 41 41 54  |ME :B. RESULTAAT|
00000110: 20 22 4E 49 45 54 57 0D  45 4E 44 0D 0D 54 4F 20  | "NIETW.END..TO |
00000120: 45 45 4E 55 49 54 20 3A  4C 49 4A 53 54 0D 20 52  |EENUIT :LIJST. R|
00000130: 45 53 55 4C 54 41 41 54  20 45 4C 45 4D 45 4E 54  |ESULTAAT ELEMENT|
00000140: 20 28 20 31 20 2B 20 52  41 4E 44 4F 4D 20 41 41  | ( 1 + RANDOM AA|
00000150: 4E 54 41 4C 20 3A 4C 49  4A 53 54 20 29 20 3A 4C  |NTAL :LIJST ) :L|
00000160: 49 4A 53 54 0D 45 4E 44  0D 0D 54 4F 20 50 4C 41  |IJST.END..TO PLA|
00000170: 54 54 45 20 3A 4C 49 4A  53 54 0D 20 41 4C 53 20  |TTE :LIJST. ALS |
00000180: 4C 45 45 47 3F 20 3A 4C  49 4A 53 54 20 44 41 4E  |LEEG? :LIJST DAN|
00000190: 20 52 45 53 55 4C 54 41  41 54 20 5B 5D 0D 20 41  | RESULTAAT []. A|
000001A0: 4C 53 20 4C 49 4A 53 54  3F 20 45 45 52 53 54 45  |LS LIJST? EERSTE|
000001B0: 20 3A 4C 49 4A 53 54 20  44 41 4E 20 52 45 53 55  | :LIJST DAN RESU|
000001C0: 4C 54 41 41 54 20 53 41  4D 45 4E 20 50 4C 41 54  |LTAAT SAMEN PLAT|
000001D0: 54 45 20 45 45 52 53 54  45 20 3A 4C 49 4A 53 54  |TE EERSTE :LIJST|
000001E0: 20 50 4C 41 54 54 45 20  4D 45 20 3A 4C 49 4A 53  | PLATTE ME :LIJS|
000001F0: 54 0D 20 52 45 53 55 4C  54 41 41 54 20 5A 45 54  |T. RESULTAAT ZET|
00000200: 56 20 45 45 52 53 54 45  20 3A 4C 49 4A 53 54 20  |V EERSTE :LIJST |
00000210: 50 4C 41 54 54 45 20 4D  45 20 3A 4C 49 4A 53 54  |PLATTE ME :LIJST|
00000220: 0D 45 4E 44 0D 0D 54 4F  20 44 4F 4F 52 53 4E 45  |.END..TO DOORSNE|
00000230: 44 45 20 3A 4C 49 4A 53  54 31 20 3A 4C 49 4A 53  |DE :LIJST1 :LIJS|
00000240: 54 32 0D 20 41 4C 53 20  4C 45 45 47 3F 20 3A 4C  |T2. ALS LEEG? :L|
00000250: 49 4A 53 54 31 20 44 41  4E 20 52 45 53 55 4C 54  |IJST1 DAN RESULT|
00000260: 41 41 54 20 5B 5D 0D 20  41 4C 53 20 45 52 42 49  |AAT []. ALS ERBI|
00000270: 4A 3F 20 45 45 52 53 54  45 20 3A 4C 49 4A 53 54  |J? EERSTE :LIJST|
00000280: 31 20 3A 4C 49 4A 53 54  32 20 44 41 4E 20 52 45  |1 :LIJST2 DAN RE|
00000290: 53 55 4C 54 41 41 54 20  5A 45 54 56 20 45 45 52  |SULTAAT ZETV EER|
000002A0: 53 54 45 20 3A 4C 49 4A  53 54 31 20 44 4F 4F 52  |STE :LIJST1 DOOR|
000002B0: 53 4E 45 44 45 20 4D 45  20 3A 4C 49 4A 53 54 31  |SNEDE ME :LIJST1|
000002C0: 20 3A 4C 49 4A 53 54 32  0D 20 52 45 53 55 4C 54  | :LIJST2. RESULT|
000002D0: 41 41 54 20 44 4F 4F 52  53 4E 45 44 45 20 4D 45  |AAT DOORSNEDE ME|
000002E0: 20 3A 4C 49 4A 53 54 31  20 3A 4C 49 4A 53 54 32  | :LIJST1 :LIJST2|
000002F0: 0D 45 4E 44 0D 0D 54 4F  20 43 4F 4D 42 49 4E 45  |.END..TO COMBINE|
00000300: 45 52 20 3A 4C 49 4A 53  54 31 20 3A 4C 49 4A 53  |ER :LIJST1 :LIJS|
00000310: 54 32 0D 20 41 4C 53 20  4C 45 45 47 3F 20 3A 4C  |T2. ALS LEEG? :L|
00000320: 49 4A 53 54 31 20 44 41  4E 20 52 45 53 55 4C 54  |IJST1 DAN RESULT|
00000330: 41 41 54 20 3A 4C 49 4A  53 54 32 0D 20 41 4C 53  |AAT :LIJST2. ALS|
00000340: 20 45 52 42 49 4A 3F 20  45 45 52 53 54 45 20 3A  | ERBIJ? EERSTE :|
00000350: 4C 49 4A 53 54 31 20 3A  4C 49 4A 53 54 32 20 44  |LIJST1 :LIJST2 D|
00000360: 41 4E 20 52 45 53 55 4C  54 41 41 54 20 43 4F 4D  |AN RESULTAAT COM|
00000370: 42 49 4E 45 45 52 20 4D  45 20 3A 4C 49 4A 53 54  |BINEER ME :LIJST|
00000380: 31 20 3A 4C 49 4A 53 54  32 0D 20 52 45 53 55 4C  |1 :LIJST2. RESUL|
00000390: 54 41 41 54 20 5A 45 54  56 20 45 45 52 53 54 45  |TAAT ZETV EERSTE|
000003A0: 20 3A 4C 49 4A 53 54 31  20 43 4F 4D 42 49 4E 45  | :LIJST1 COMBINE|
000003B0: 45 52 20 4D 45 20 3A 4C  49 4A 53 54 31 20 3A 4C  |ER ME :LIJST1 :L|
000003C0: 49 4A 53 54 32 0D 45 4E  44 0D 0D 54 4F 20 53 4F  |IJST2.END..TO SO|
000003D0: 52 54 45 45 52 20 3A 4C  49 4A 53 54 0D 20 41 4C  |RTEER :LIJST. AL|
000003E0: 53 20 4C 45 45 47 3F 20  3A 4C 49 4A 53 54 20 44  |S LEEG? :LIJST D|
000003F0: 41 4E 20 52 45 53 55 4C  54 41 41 54 20 5B 5D 0D  |AN RESULTAAT [].|
00000400: 20 52 45 53 55 4C 54 41  41 54 20 56 4F 45 47 49  | RESULTAAT VOEGI|
00000410: 4E 20 45 45 52 53 54 45  20 3A 4C 49 4A 53 54 20  |N EERSTE :LIJST |
00000420: 53 4F 52 54 45 45 52 20  4D 45 20 3A 4C 49 4A 53  |SORTEER ME :LIJS|
00000430: 54 0D 45 4E 44 0D 0D 54  4F 20 44 52 41 41 49 4F  |T.END..TO DRAAIO|
00000440: 4D 20 3A 4C 49 4A 53 54  0D 20 41 4C 53 20 4C 45  |M :LIJST. ALS LE|
00000450: 45 47 3F 20 3A 4C 49 4A  53 54 20 44 41 4E 20 52  |EG? :LIJST DAN R|
00000460: 45 53 55 4C 54 41 41 54  20 5B 5D 0D 20 52 45 53  |ESULTAAT []. RES|
00000470: 55 4C 54 41 41 54 20 5A  45 54 41 20 45 45 52 53  |ULTAAT ZETA EERS|
00000480: 54 45 20 3A 4C 49 4A 53  54 20 44 52 41 41 49 4F  |TE :LIJST DRAAIO|
00000490: 4D 20 4D 45 20 3A 4C 49  4A 53 54 0D 45 4E 44 0D  |M ME :LIJST.END.|
000004A0: 0D 54 4F 20 5A 4F 45 4B  20 3A 4F 55 44 20 3A 4C  |.TO ZOEK :OUD :L|
000004B0: 49 4A 53 54 0D 20 41 4C  53 20 4C 45 45 47 3F 20  |IJST. ALS LEEG? |
000004C0: 3A 4C 49 4A 53 54 20 44  41 4E 20 52 45 53 55 4C  |:LIJST DAN RESUL|
000004D0: 54 41 41 54 20 30 0D 20  4C 4F 4B 41 41 4C 20 22  |TAAT 0. LOKAAL "|
000004E0: 4E 20 4D 41 41 4B 20 22  4E 20 31 0D 20 48 45 52  |N MAAK "N 1. HER|
000004F0: 48 41 41 4C 20 41 41 4E  54 41 4C 20 3A 4C 49 4A  |HAAL AANTAL :LIJ|
00000500: 53 54 20 5B 41 4C 53 20  3A 4F 55 44 20 3D 20 45  |ST [ALS :OUD = E|
00000510: 45 52 53 54 45 20 3A 4C  49 4A 53 54 20 52 45 53  |ERSTE :LIJST RES|
00000520: 55 4C 54 41 41 54 20 3A  4E 20 41 4E 44 45 52 53  |ULTAAT :N ANDERS|
00000530: 20 4D 41 41 4B 20 22 4C  49 4A 53 54 20 4D 45 20  | MAAK "LIJST ME |
00000540: 3A 4C 49 4A 53 54 20 4D  41 41 4B 20 22 4E 20 3A  |:LIJST MAAK "N :|
00000550: 4E 20 2B 20 31 5D 0D 20  52 45 53 55 4C 54 41 41  |N + 1]. RESULTAA|
00000560: 54 20 30 0D 45 4E 44 0D  0D 54 4F 20 5A 45 54 45  |T 0.END..TO ZETE|
00000570: 4C 45 4D 45 4E 54 20 3A  45 4C 45 4D 4E 52 20 3A  |LEMENT :ELEMNR :|
00000580: 4E 49 45 55 57 20 3A 4C  49 4A 53 54 0D 20 41 4C  |NIEUW :LIJST. AL|
00000590: 53 20 3A 45 4C 45 4D 4E  52 20 3D 20 31 20 44 41  |S :ELEMNR = 1 DA|
000005A0: 4E 20 52 45 53 20 28 20  5A 45 54 56 20 3A 4E 49  |N RES ( ZETV :NI|
000005B0: 45 55 57 20 4D 45 20 3A  4C 49 4A 53 54 20 29 0D  |EUW ME :LIJST ).|
000005C0: 20 52 45 53 20 5A 45 54  56 20 45 45 52 53 54 45  | RES ZETV EERSTE|
000005D0: 20 3A 4C 49 4A 53 54 20  5A 45 54 45 4C 45 4D 45  | :LIJST ZETELEME|
000005E0: 4E 54 20 28 20 3A 4E 20  2D 20 31 20 29 20 3A 4E  |NT ( :N - 1 ) :N|
000005F0: 49 45 55 57 20 4D 45 20  3A 4C 49 4A 53 54 0D 45  |IEUW ME :LIJST.E|
00000600: 4E 44 0D 0D 54 4F 20 4D  49 4E 45 4C 45 4D 45 4E  |ND..TO MINELEMEN|
00000610: 54 20 3A 45 4C 45 4D 4E  52 20 3A 4C 49 4A 53 54  |T :ELEMNR :LIJST|
00000620: 0D 20 41 4C 53 20 3A 45  4C 45 4D 4E 52 20 3D 20  |. ALS :ELEMNR = |
00000630: 31 20 44 41 4E 20 52 45  53 20 4D 45 20 3A 4C 49  |1 DAN RES ME :LI|
00000640: 4A 53 54 0D 20 52 45 53  20 5A 45 54 56 20 45 45  |JST. RES ZETV EE|
00000650: 52 53 54 45 20 3A 4C 49  4A 53 54 20 4D 49 4E 45  |RSTE :LIJST MINE|
00000660: 4C 45 4D 45 4E 54 20 28  20 3A 4E 20 2D 20 31 20  |LEMENT ( :N - 1 |
00000670: 29 20 4D 45 20 3A 4C 49  4A 53 54 0D 45 4E 44 0D  |) ME :LIJST.END.|
00000680: 0D 54 4F 20 56 45 52 56  41 4E 47 20 3A 4F 55 44  |.TO VERVANG :OUD|
00000690: 20 3A 4E 49 45 55 57 20  3A 4C 49 4A 53 54 0D 20  | :NIEUW :LIJST. |
000006A0: 41 4C 53 20 4C 45 45 47  3F 20 3A 4C 49 4A 53 54  |ALS LEEG? :LIJST|
000006B0: 20 44 41 4E 20 52 45 53  55 4C 54 41 41 54 20 5B  | DAN RESULTAAT [|
000006C0: 5D 0D 20 41 4C 53 20 3A  4F 55 44 20 3D 20 45 45  |]. ALS :OUD = EE|
000006D0: 52 53 54 45 20 3A 4C 49  4A 53 54 20 44 41 4E 20  |RSTE :LIJST DAN |
000006E0: 52 45 53 20 5A 45 54 56  20 3A 4E 49 45 55 57 20  |RES ZETV :NIEUW |
000006F0: 56 45 52 56 41 4E 47 20  3A 4F 55 44 20 3A 4E 49  |VERVANG :OUD :NI|
00000700: 45 55 57 20 4D 45 20 3A  4C 49 4A 53 54 0D 20 52  |EUW ME :LIJST. R|
00000710: 45 53 20 5A 45 54 56 20  45 45 52 53 54 45 20 3A  |ES ZETV EERSTE :|
00000720: 4C 49 4A 53 54 20 56 45  52 56 41 4E 47 20 3A 4F  |LIJST VERVANG :O|
00000730: 55 44 20 3A 4E 49 45 55  57 20 4D 45 20 3A 4C 49  |UD :NIEUW ME :LI|
00000740: 4A 53 54 0D 45 4E 44 0D  0D 54 4F 20 56 4F 45 47  |JST.END..TO VOEG|
00000750: 55 49 54 20 3A 4F 55 44  20 3A 4C 49 4A 53 54 0D  |UIT :OUD :LIJST.|
00000760: 20 41 4C 53 20 4C 45 45  47 3F 20 3A 4C 49 4A 53  | ALS LEEG? :LIJS|
00000770: 54 20 44 41 4E 20 52 45  53 55 4C 54 41 41 54 20  |T DAN RESULTAAT |
00000780: 5B 5D 0D 20 41 4C 53 20  3A 4F 55 44 20 3D 20 45  |[]. ALS :OUD = E|
00000790: 45 52 53 54 45 20 3A 4C  49 4A 53 54 20 44 41 4E  |ERSTE :LIJST DAN|
000007A0: 20 52 45 53 55 4C 54 41  41 54 20 56 4F 45 47 55  | RESULTAAT VOEGU|
000007B0: 49 54 20 3A 4F 55 44 20  4D 45 20 3A 4C 49 4A 53  |IT :OUD ME :LIJS|
000007C0: 54 0D 20 52 45 53 55 4C  54 41 41 54 20 5A 45 54  |T. RESULTAAT ZET|
000007D0: 56 20 45 45 52 53 54 45  20 3A 4C 49 4A 53 54 20  |V EERSTE :LIJST |
000007E0: 56 4F 45 47 55 49 54 20  3A 4F 55 44 20 4D 45 20  |VOEGUIT :OUD ME |
000007F0: 3A 4C 49 4A 53 54 0D 45  4E 44 0D 0D 54 4F 20 56  |:LIJST.END..TO V|
00000800: 4F 45 47 49 4E 20 3A 4E  49 45 55 57 20 3A 4C 49  |OEGIN :NIEUW :LI|
00000810: 4A 53 54 0D 20 41 4C 53  20 4C 45 45 47 3F 20 3A  |JST. ALS LEEG? :|
00000820: 4C 49 4A 53 54 20 44 41  4E 20 52 45 53 55 4C 54  |LIJST DAN RESULT|
00000830: 41 41 54 20 5A 45 54 56  20 3A 4E 49 45 55 57 20  |AAT ZETV :NIEUW |
00000840: 5B 5D 0D 20 41 4C 53 20  47 52 4F 54 45 52 3F 20  |[]. ALS GROTER? |
00000850: 45 45 52 53 54 45 20 3A  4C 49 4A 53 54 20 3A 4E  |EERSTE :LIJST :N|
00000860: 49 45 55 57 20 44 41 4E  20 52 45 53 55 4C 54 41  |IEUW DAN RESULTA|
00000870: 41 54 20 5A 45 54 56 20  3A 4E 49 45 55 57 20 3A  |AT ZETV :NIEUW :|
00000880: 4C 49 4A 53 54 0D 20 52  45 53 55 4C 54 41 41 54  |LIJST. RESULTAAT|
00000890: 20 5A 45 54 56 20 45 45  52 53 54 45 20 3A 4C 49  | ZETV EERSTE :LI|
000008A0: 4A 53 54 20 56 4F 45 47  49 4E 20 3A 4E 49 45 55  |JST VOEGIN :NIEU|
000008B0: 57 20 4D 45 20 3A 4C 49  4A 53 54 0D 45 4E 44 0D  |W ME :LIJST.END.|
000008C0: 0D 54 4F 20 4C 45 47 45  4C 49 4A 53 54 20 3A 41  |.TO LEGELIJST :A|
000008D0: 41 4E 54 41 4C 0D 20 4C  4F 4B 41 41 4C 20 22 4C  |ANTAL. LOKAAL "L|
000008E0: 49 4A 53 54 20 4D 41 41  4B 20 22 4C 49 4A 53 54  |IJST MAAK "LIJST|
000008F0: 20 5B 5D 0D 20 48 45 52  48 41 41 4C 20 3A 41 41  | []. HERHAAL :AA|
00000900: 4E 54 41 4C 20 5B 4D 41  41 4B 20 22 4C 49 4A 53  |NTAL [MAAK "LIJS|
00000910: 54 20 5A 45 54 56 20 4C  45 45 47 20 3A 4C 49 4A  |T ZETV LEEG :LIJ|
00000920: 53 54 5D 0D 20 52 45 53  55 4C 54 41 41 54 20 3A  |ST]. RESULTAAT :|
00000930: 4C 49 4A 53 54 0D 45 4E  44 0D 0D 54 4F 20 4D 41  |LIJST.END..TO MA|
00000940: 41 4B 4C 45 45 47 20 3A  45 4C 45 4D 4E 52 20 3A  |AKLEEG :ELEMNR :|
00000950: 4C 49 4A 53 54 0D 20 5A  45 54 45 4C 45 4D 45 4E  |LIJST. ZETELEMEN|
00000960: 54 20 3A 45 4C 45 4D 4E  52 20 4C 45 45 47 20 3A  |T :ELEMNR LEEG :|
00000970: 4C 49 4A 53 54 0D 45 4E  44 0D 0D 54 4F 20 4C 45  |LIJST.END..TO LE|
00000980: 45 47 0D 20 52 45 53 55  4C 54 41 41 54 20 22 2D  |EG. RESULTAAT "-|
00000990: 0D 45 4E 44 0D 0D 54 4F  20 21 4C 0D 20 4E 42 20  |.END..TO !L. NB |
000009A0: 57 45 47 20 5B 4C 45 45  47 20 4D 41 41 4B 4C 45  |WEG [LEEG MAAKLE|
000009B0: 45 47 20 4C 45 47 45 4C  49 4A 53 54 20 56 4F 45  |EG LEGELIJST VOE|
000009C0: 47 49 4E 20 56 4F 45 47  55 49 54 20 56 45 52 56  |GIN VOEGUIT VERV|
000009D0: 41 4E 47 20 4D 49 4E 45  4C 45 4D 45 4E 54 20 5A  |ANG MINELEMENT Z|
000009E0: 45 54 45 4C 45 4D 45 4E  54 20 5A 4F 45 4B 20 44  |ETELEMENT ZOEK D|
000009F0: 52 41 41 49 4F 4D 20 53  4F 52 54 45 45 52 20 43  |RAAIOM SORTEER C|
00000A00: 4F 4D 42 49 4E 45 45 52  20 44 4F 4F 52 53 4E 45  |OMBINEER DOORSNE|
00000A10: 44 45 20 50 4C 41 54 54  45 20 45 45 4E 55 49 54  |DE PLATTE EENUIT|
00000A20: 20 47 52 4F 54 45 52 3F  20 21 4C 5D 0D 45 4E 44  | GROTER? !L].END|
00000A30: 0D 0D                                             |..              |

. TO GROTER? :A :B. ALS LEEG? :A DAN RES
ULTAAT "NIETW. ALS LEEG? :B DAN RESULTAA
T "WAAR. ALS ELKVAN GETAL? :A GETAL? :B 
DAN RESULTAAT :A > :B. ALS ASCII EERSTE 
:A > ASCII EERSTE :B DAN RESULTAAT "WAAR
. ALS EERSTE :A = EERSTE :B DAN RESULTAA
T GROTER? ME :A ME :B. RESULTAAT "NIETW.
END..TO EENUIT :LIJST. RESULTAAT ELEMENT
 ( 1 + RANDOM AANTAL :LIJST ) :LIJST.END
..TO PLATTE :LIJST. ALS LEEG? :LIJST DAN
 RESULTAAT []. ALS LIJST? EERSTE :LIJST 
DAN RESULTAAT SAMEN PLATTE EERSTE :LIJST
 PLATTE ME :LIJST. RESULTAAT ZETV EERSTE
 :LIJST PLATTE ME :LIJST.END..TO DOORSNE
DE :LIJST1 :LIJST2. ALS LEEG? :LIJST1 DA
N RESULTAAT []. ALS ERBIJ? EERSTE :LIJST
1 :LIJST2 DAN RESULTAAT ZETV EERSTE :LIJ
ST1 DOORSNEDE ME :LIJST1 :LIJST2. RESULT
AAT DOORSNEDE ME :LIJST1 :LIJST2.END..TO
 COMBINEER :LIJST1 :LIJST2. ALS LEEG? :L
IJST1 DAN RESULTAAT :LIJST2. ALS ERBIJ? 
EERSTE :LIJST1 :LIJST2 DAN RESULTAAT COM
BINEER ME :LIJST1 :LIJST2. RESULTAAT ZET
V EERSTE :LIJST1 COMBINEER ME :LIJST1 :L
IJST2.END..TO SORTEER :LIJST. ALS LEEG? 
:LIJST DAN RESULTAAT []. RESULTAAT VOEGI
N EERSTE :LIJST SORTEER ME :LIJST.END..T
O DRAAIOM :LIJST. ALS LEEG? :LIJST DAN R
ESULTAAT []. RESULTAAT ZETA EERSTE :LIJS
T DRAAIOM ME :LIJST.END..TO ZOEK :OUD :L
IJST. ALS LEEG? :LIJST DAN RESULTAAT 0. 
LOKAAL "N MAAK "N 1. HERHAAL AANTAL :LIJ
ST [ALS :OUD = EERSTE :LIJST RESULTAAT :
N ANDERS MAAK "LIJST ME :LIJST MAAK "N :
N + 1]. RESULTAAT 0.END..TO ZETELEMENT :
ELEMNR :NIEUW :LIJST. ALS :ELEMNR = 1 DA
N RES ( ZETV :NIEUW ME :LIJST ). RES ZET
V EERSTE :LIJST ZETELEMENT ( :N - 1 ) :N
IEUW ME :LIJST.END..TO MINELEMENT :ELEMN
R :LIJST. ALS :ELEMNR = 1 DAN RES ME :LI
JST. RES ZETV EERSTE :LIJST MINELEMENT (
 :N - 1 ) ME :LIJST.END..TO VERVANG :OUD
 :NIEUW :LIJST. ALS LEEG? :LIJST DAN RES
ULTAAT []. ALS :OUD = EERSTE :LIJST DAN 
RES ZETV :NIEUW VERVANG :OUD :NIEUW ME :
LIJST. RES ZETV EERSTE :LIJST VERVANG :O
UD :NIEUW ME :LIJST.END..TO VOEGUIT :OUD
 :LIJST. ALS LEEG? :LIJST DAN RESULTAAT 
[]. ALS :OUD = EERSTE :LIJST DAN RESULTA
AT VOEGUIT :OUD ME :LIJST. RESULTAAT ZET
V EERSTE :LIJST VOEGUIT :OUD ME :LIJST.E
ND..TO VOEGIN :NIEUW :LIJST. ALS LEEG? :
LIJST DAN RESULTAAT ZETV :NIEUW []. ALS 
GROTER? EERSTE :LIJST :NIEUW DAN RESULTA
AT ZETV :NIEUW :LIJST. RESULTAAT ZETV EE
RSTE :LIJST VOEGIN :NIEUW ME :LIJST.END.
.TO LEGELIJST :AANTAL. LOKAAL "LIJST MAA
K "LIJST []. HERHAAL :AANTAL [MAAK "LIJS
T ZETV LEEG :LIJST]. RESULTAAT :LIJST.EN
D..TO MAAKLEEG :ELEMNR :LIJST. ZETELEMEN
T :ELEMNR LEEG :LIJST.END..TO LEEG. RESU
LTAAT "-.END..TO !L. NB WEG [LEEG MAAKLE
EG LEGELIJST VOEGIN VOEGUIT VERVANG MINE
LEMENT ZETELEMENT ZOEK DRAAIOM SORTEER C
OMBINEER DOORSNEDE PLATTE EENUIT GROTER?
 !L].END..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL