LOGOLIJSTEN.LOGO

FILE INFORMATION

FILENAME(S): LOGOLIJSTEN.LOGO

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:12:55

APPEARS ON: 3 disk(s)

FILE HASH

0a10a97541e8f892671b516f860d3e1cf2068af9a4d225cdb095ad8c28174ccc

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
LOGO NEDERLANDS	LOGOLIJSTEN.LOGO	PRG	DuncanTwain	22	DOWNLOAD FILE
LOGO NEDERLANDS	LOGOLIJSTEN.LOGO	PRG	DuncanTwain	22	DOWNLOAD FILE
LOGO NEDERLANDS	LOGOLIJSTEN.LOGO	PRG	DuncanTwain	22	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 45 45 4E  55 49 54 20 3A 4C 49 4A  |. TO EENUIT :LIJ|
00000010: 53 54 0D 20 52 45 53 55  4C 54 41 41 54 20 45 4C  |ST. RESULTAAT EL|
00000020: 45 4D 45 4E 54 20 28 20  31 20 2B 20 52 41 4E 44  |EMENT ( 1 + RAND|
00000030: 4F 4D 20 41 41 4E 54 41  4C 20 3A 4C 49 4A 53 54  |OM AANTAL :LIJST|
00000040: 20 29 20 3A 4C 49 4A 53  54 0D 45 4E 44 0D 0D 54  | ) :LIJST.END..T|
00000050: 4F 20 47 52 4F 54 45 52  3F 20 3A 41 20 3A 42 0D  |O GROTER? :A :B.|
00000060: 20 41 4C 53 20 4C 45 45  47 3F 20 3A 41 20 44 41  | ALS LEEG? :A DA|
00000070: 4E 20 52 45 53 55 4C 54  41 41 54 20 22 4E 49 45  |N RESULTAAT "NIE|
00000080: 54 57 0D 20 41 4C 53 20  4C 45 45 47 3F 20 3A 42  |TW. ALS LEEG? :B|
00000090: 20 44 41 4E 20 52 45 53  55 4C 54 41 41 54 20 22  | DAN RESULTAAT "|
000000A0: 57 41 41 52 0D 20 41 4C  53 20 45 4C 4B 56 41 4E  |WAAR. ALS ELKVAN|
000000B0: 20 47 45 54 41 4C 3F 20  3A 41 20 47 45 54 41 4C  | GETAL? :A GETAL|
000000C0: 3F 20 3A 42 20 44 41 4E  20 52 45 53 55 4C 54 41  |? :B DAN RESULTA|
000000D0: 41 54 20 3A 41 20 3E 20  3A 42 0D 20 41 4C 53 20  |AT :A > :B. ALS |
000000E0: 41 53 43 49 49 20 45 45  52 53 54 45 20 3A 41 20  |ASCII EERSTE :A |
000000F0: 3E 20 41 53 43 49 49 20  45 45 52 53 54 45 20 3A  |> ASCII EERSTE :|
00000100: 42 20 44 41 4E 20 52 45  53 55 4C 54 41 41 54 20  |B DAN RESULTAAT |
00000110: 22 57 41 41 52 0D 20 41  4C 53 20 45 45 52 53 54  |"WAAR. ALS EERST|
00000120: 45 20 3A 41 20 3D 20 45  45 52 53 54 45 20 3A 42  |E :A = EERSTE :B|
00000130: 20 44 41 4E 20 52 45 53  55 4C 54 41 41 54 20 47  | DAN RESULTAAT G|
00000140: 52 4F 54 45 52 3F 20 4D  45 20 3A 41 20 4D 45 20  |ROTER? ME :A ME |
00000150: 3A 42 0D 20 52 45 53 55  4C 54 41 41 54 20 22 4E  |:B. RESULTAAT "N|
00000160: 49 45 54 57 0D 45 4E 44  0D 0D 54 4F 20 50 4C 41  |IETW.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 4C 4F  4B 41 41 4C 20 22 4E 20  |IJST. LOKAAL "N |
000004C0: 4D 41 41 4B 20 22 4E 20  31 0D 20 41 41 3A 20 41  |MAAK "N 1. AA: A|
000004D0: 4C 53 20 4C 45 45 47 3F  20 3A 4C 49 4A 53 54 20  |LS LEEG? :LIJST |
000004E0: 44 41 4E 20 52 45 53 20  30 0D 20 41 4C 53 20 3A  |DAN RES 0. ALS :|
000004F0: 4F 55 44 20 3D 20 45 45  52 53 54 45 20 3A 4C 49  |OUD = EERSTE :LI|
00000500: 4A 53 54 20 52 45 53 20  3A 4E 0D 20 4D 41 41 4B  |JST RES :N. MAAK|
00000510: 20 22 4C 49 4A 53 54 20  4D 45 20 3A 4C 49 4A 53  | "LIJST ME :LIJS|
00000520: 54 0D 20 4D 41 41 4B 20  22 4E 20 3A 4E 20 2B 20  |T. MAAK "N :N + |
00000530: 31 0D 20 47 41 4E 41 41  52 20 22 41 41 0D 45 4E  |1. GANAAR "AA.EN|
00000540: 44 0D 0D 54 4F 20 5A 45  54 45 4C 45 4D 45 4E 54  |D..TO ZETELEMENT|
00000550: 20 3A 45 4C 45 4D 4E 52  20 3A 4E 49 45 55 57 20  | :ELEMNR :NIEUW |
00000560: 3A 4C 49 4A 53 54 0D 20  41 4C 53 20 3A 45 4C 45  |:LIJST. ALS :ELE|
00000570: 4D 4E 52 20 3D 20 31 20  44 41 4E 20 52 45 53 20  |MNR = 1 DAN RES |
00000580: 28 20 5A 45 54 56 20 3A  4E 49 45 55 57 20 4D 45  |( ZETV :NIEUW ME|
00000590: 20 3A 4C 49 4A 53 54 20  29 0D 20 52 45 53 20 5A  | :LIJST ). RES Z|
000005A0: 45 54 56 20 45 45 52 53  54 45 20 3A 4C 49 4A 53  |ETV EERSTE :LIJS|
000005B0: 54 20 5A 45 54 45 4C 45  4D 45 4E 54 20 28 20 3A  |T ZETELEMENT ( :|
000005C0: 45 4C 45 4D 4E 52 20 2D  20 31 20 29 20 3A 4E 49  |ELEMNR - 1 ) :NI|
000005D0: 45 55 57 20 4D 45 20 3A  4C 49 4A 53 54 0D 45 4E  |EUW ME :LIJST.EN|
000005E0: 44 0D 0D 54 4F 20 4D 49  4E 45 4C 45 4D 45 4E 54  |D..TO MINELEMENT|
000005F0: 20 3A 45 4C 45 4D 4E 52  20 3A 4C 49 4A 53 54 0D  | :ELEMNR :LIJST.|
00000600: 20 41 4C 53 20 3A 45 4C  45 4D 4E 52 20 3D 20 31  | ALS :ELEMNR = 1|
00000610: 20 44 41 4E 20 52 45 53  20 4D 45 20 3A 4C 49 4A  | DAN RES ME :LIJ|
00000620: 53 54 0D 20 52 45 53 20  5A 45 54 56 20 45 45 52  |ST. RES ZETV EER|
00000630: 53 54 45 20 3A 4C 49 4A  53 54 20 4D 49 4E 45 4C  |STE :LIJST MINEL|
00000640: 45 4D 45 4E 54 20 28 20  3A 45 4C 45 4D 4E 52 20  |EMENT ( :ELEMNR |
00000650: 2D 20 31 20 29 20 4D 45  20 3A 4C 49 4A 53 54 0D  |- 1 ) ME :LIJST.|
00000660: 45 4E 44 0D 0D 54 4F 20  56 45 52 56 41 4E 47 20  |END..TO VERVANG |
00000670: 3A 4F 55 44 20 3A 4E 49  45 55 57 20 3A 4C 49 4A  |:OUD :NIEUW :LIJ|
00000680: 53 54 0D 20 41 4C 53 20  4C 45 45 47 3F 20 3A 4C  |ST. ALS LEEG? :L|
00000690: 49 4A 53 54 20 44 41 4E  20 52 45 53 55 4C 54 41  |IJST DAN RESULTA|
000006A0: 41 54 20 5B 5D 0D 20 41  4C 53 20 3A 4F 55 44 20  |AT []. ALS :OUD |
000006B0: 3D 20 45 45 52 53 54 45  20 3A 4C 49 4A 53 54 20  |= EERSTE :LIJST |
000006C0: 44 41 4E 20 52 45 53 20  5A 45 54 56 20 3A 4E 49  |DAN RES ZETV :NI|
000006D0: 45 55 57 20 56 45 52 56  41 4E 47 20 3A 4F 55 44  |EUW VERVANG :OUD|
000006E0: 20 3A 4E 49 45 55 57 20  4D 45 20 3A 4C 49 4A 53  | :NIEUW ME :LIJS|
000006F0: 54 0D 20 52 45 53 20 5A  45 54 56 20 45 45 52 53  |T. RES ZETV EERS|
00000700: 54 45 20 3A 4C 49 4A 53  54 20 56 45 52 56 41 4E  |TE :LIJST VERVAN|
00000710: 47 20 3A 4F 55 44 20 3A  4E 49 45 55 57 20 4D 45  |G :OUD :NIEUW ME|
00000720: 20 3A 4C 49 4A 53 54 0D  45 4E 44 0D 0D 54 4F 20  | :LIJST.END..TO |
00000730: 56 4F 45 47 55 49 54 20  3A 4F 55 44 20 3A 4C 49  |VOEGUIT :OUD :LI|
00000740: 4A 53 54 0D 20 41 4C 53  20 4C 45 45 47 3F 20 3A  |JST. ALS LEEG? :|
00000750: 4C 49 4A 53 54 20 44 41  4E 20 52 45 53 55 4C 54  |LIJST DAN RESULT|
00000760: 41 41 54 20 5B 5D 0D 20  41 4C 53 20 3A 4F 55 44  |AAT []. ALS :OUD|
00000770: 20 3D 20 45 45 52 53 54  45 20 3A 4C 49 4A 53 54  | = EERSTE :LIJST|
00000780: 20 44 41 4E 20 52 45 53  55 4C 54 41 41 54 20 56  | DAN RESULTAAT V|
00000790: 4F 45 47 55 49 54 20 3A  4F 55 44 20 4D 45 20 3A  |OEGUIT :OUD ME :|
000007A0: 4C 49 4A 53 54 0D 20 52  45 53 55 4C 54 41 41 54  |LIJST. RESULTAAT|
000007B0: 20 5A 45 54 56 20 45 45  52 53 54 45 20 3A 4C 49  | ZETV EERSTE :LI|
000007C0: 4A 53 54 20 56 4F 45 47  55 49 54 20 3A 4F 55 44  |JST VOEGUIT :OUD|
000007D0: 20 4D 45 20 3A 4C 49 4A  53 54 0D 45 4E 44 0D 0D  | ME :LIJST.END..|
000007E0: 54 4F 20 56 4F 45 47 49  4E 20 3A 4E 49 45 55 57  |TO VOEGIN :NIEUW|
000007F0: 20 3A 4C 49 4A 53 54 0D  20 41 4C 53 20 4C 45 45  | :LIJST. ALS LEE|
00000800: 47 3F 20 3A 4C 49 4A 53  54 20 44 41 4E 20 52 45  |G? :LIJST DAN RE|
00000810: 53 55 4C 54 41 41 54 20  5A 45 54 56 20 3A 4E 49  |SULTAAT ZETV :NI|
00000820: 45 55 57 20 5B 5D 0D 20  41 4C 53 20 47 52 4F 54  |EUW []. ALS GROT|
00000830: 45 52 3F 20 45 45 52 53  54 45 20 3A 4C 49 4A 53  |ER? EERSTE :LIJS|
00000840: 54 20 3A 4E 49 45 55 57  20 44 41 4E 20 52 45 53  |T :NIEUW DAN RES|
00000850: 55 4C 54 41 41 54 20 5A  45 54 56 20 3A 4E 49 45  |ULTAAT ZETV :NIE|
00000860: 55 57 20 3A 4C 49 4A 53  54 0D 20 52 45 53 55 4C  |UW :LIJST. RESUL|
00000870: 54 41 41 54 20 5A 45 54  56 20 45 45 52 53 54 45  |TAAT ZETV EERSTE|
00000880: 20 3A 4C 49 4A 53 54 20  56 4F 45 47 49 4E 20 3A  | :LIJST VOEGIN :|
00000890: 4E 49 45 55 57 20 4D 45  20 3A 4C 49 4A 53 54 0D  |NIEUW ME :LIJST.|
000008A0: 45 4E 44 0D 0D 54 4F 20  4C 45 47 45 4C 49 4A 53  |END..TO LEGELIJS|
000008B0: 54 20 3A 41 41 4E 54 41  4C 0D 20 4C 4F 4B 41 41  |T :AANTAL. LOKAA|
000008C0: 4C 20 22 4C 49 4A 53 54  20 4D 41 41 4B 20 22 4C  |L "LIJST MAAK "L|
000008D0: 49 4A 53 54 20 5B 5D 0D  20 48 45 52 48 41 41 4C  |IJST []. HERHAAL|
000008E0: 20 3A 41 41 4E 54 41 4C  20 5B 4D 41 41 4B 20 22  | :AANTAL [MAAK "|
000008F0: 4C 49 4A 53 54 20 5A 45  54 56 20 4C 45 45 47 20  |LIJST ZETV LEEG |
00000900: 3A 4C 49 4A 53 54 5D 0D  20 52 45 53 55 4C 54 41  |:LIJST]. RESULTA|
00000910: 41 54 20 3A 4C 49 4A 53  54 0D 45 4E 44 0D 0D 54  |AT :LIJST.END..T|
00000920: 4F 20 4D 41 41 4B 4C 45  45 47 20 3A 45 4C 45 4D  |O MAAKLEEG :ELEM|
00000930: 4E 52 20 3A 4C 49 4A 53  54 0D 20 5A 45 54 45 4C  |NR :LIJST. ZETEL|
00000940: 45 4D 45 4E 54 20 3A 45  4C 45 4D 4E 52 20 4C 45  |EMENT :ELEMNR LE|
00000950: 45 47 20 3A 4C 49 4A 53  54 0D 45 4E 44 0D 0D 54  |EG :LIJST.END..T|
00000960: 4F 20 4C 45 45 47 0D 20  52 45 53 55 4C 54 41 41  |O LEEG. RESULTAA|
00000970: 54 20 22 2D 0D 45 4E 44  0D 0D 54 4F 20 21 4C 0D  |T "-.END..TO !L.|
00000980: 20 4E 42 20 57 45 47 20  5B 4C 45 45 47 20 4D 41  | NB WEG [LEEG MA|
00000990: 41 4B 4C 45 45 47 20 4C  45 47 45 4C 49 4A 53 54  |AKLEEG LEGELIJST|
000009A0: 20 56 4F 45 47 49 4E 20  56 4F 45 47 55 49 54 20  | VOEGIN VOEGUIT |
000009B0: 56 45 52 56 41 4E 47 20  4D 49 4E 45 4C 45 4D 45  |VERVANG MINELEME|
000009C0: 4E 54 20 5A 45 54 45 4C  45 4D 45 4E 54 20 5A 4F  |NT ZETELEMENT ZO|
000009D0: 45 4B 20 44 52 41 41 49  4F 4D 20 53 4F 52 54 45  |EK DRAAIOM SORTE|
000009E0: 45 52 20 43 4F 4D 42 49  4E 45 45 52 20 44 4F 4F  |ER COMBINEER DOO|
000009F0: 52 53 4E 45 44 45 20 50  4C 41 54 54 45 20 47 52  |RSNEDE PLATTE GR|
00000A00: 4F 54 45 52 3F 20 21 4C  5D 0D 20 2E 47 43 4F 4C  |OTER? !L]. .GCOL|
00000A10: 4C 20 50 52 20 2E 4E 4F  44 45 53 0D 45 4E 44 0D  |L PR .NODES.END.|
00000A20: 0D                                                |.               |

. TO EENUIT :LIJST. RESULTAAT ELEMENT ( 
1 + RANDOM AANTAL :LIJST ) :LIJST.END..T
O GROTER? :A :B. ALS LEEG? :A DAN RESULT
AAT "NIETW. ALS LEEG? :B DAN RESULTAAT "
WAAR. ALS ELKVAN GETAL? :A GETAL? :B DAN
 RESULTAAT :A > :B. ALS ASCII EERSTE :A 
> ASCII EERSTE :B DAN RESULTAAT "WAAR. A
LS EERSTE :A = EERSTE :B DAN RESULTAAT G
ROTER? ME :A ME :B. RESULTAAT "NIETW.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. LOKAAL "N MAAK "N 1. AA: ALS LEEG?
 :LIJST DAN RES 0. ALS :OUD = EERSTE :LI
JST RES :N. MAAK "LIJST ME :LIJST. MAAK 
"N :N + 1. GANAAR "AA.END..TO ZETELEMENT
 :ELEMNR :NIEUW :LIJST. ALS :ELEMNR = 1 
DAN RES ( ZETV :NIEUW ME :LIJST ). RES Z
ETV EERSTE :LIJST ZETELEMENT ( :ELEMNR -
 1 ) :NIEUW ME :LIJST.END..TO MINELEMENT
 :ELEMNR :LIJST. ALS :ELEMNR = 1 DAN RES
 ME :LIJST. RES ZETV EERSTE :LIJST MINEL
EMENT ( :ELEMNR - 1 ) ME :LIJST.END..TO 
VERVANG :OUD :NIEUW :LIJST. ALS LEEG? :L
IJST DAN RESULTAAT []. ALS :OUD = EERSTE
 :LIJST DAN RES ZETV :NIEUW VERVANG :OUD
 :NIEUW ME :LIJST. RES ZETV EERSTE :LIJS
T VERVANG :OUD :NIEUW ME :LIJST.END..TO 
VOEGUIT :OUD :LIJST. ALS LEEG? :LIJST DA
N RESULTAAT []. ALS :OUD = EERSTE :LIJST
 DAN RESULTAAT VOEGUIT :OUD ME :LIJST. R
ESULTAAT ZETV EERSTE :LIJST VOEGUIT :OUD
 ME :LIJST.END..TO VOEGIN :NIEUW :LIJST.
 ALS LEEG? :LIJST DAN RESULTAAT ZETV :NI
EUW []. ALS GROTER? EERSTE :LIJST :NIEUW
 DAN RESULTAAT ZETV :NIEUW :LIJST. RESUL
TAAT ZETV EERSTE :LIJST VOEGIN :NIEUW ME
 :LIJST.END..TO LEGELIJST :AANTAL. LOKAA
L "LIJST MAAK "LIJST []. HERHAAL :AANTAL
 [MAAK "LIJST ZETV LEEG :LIJST]. RESULTA
AT :LIJST.END..TO MAAKLEEG :ELEMNR :LIJS
T. ZETELEMENT :ELEMNR LEEG :LIJST.END..T
O LEEG. RESULTAAT "-.END..TO !L. NB WEG 
[LEEG MAAKLEEG LEGELIJST VOEGIN VOEGUIT 
VERVANG MINELEMENT ZETELEMENT ZOEK DRAAI
OM SORTEER COMBINEER DOORSNEDE PLATTE GR
OTER? !L]. .GCOLL PR .NODES.END..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL