DIRECTORY PRINT
FILE INFORMATION
FILENAME(S): DIRECTORY PRINT
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-30 21:24:58
APPEARS ON: 1 disk(s)
FILE HASH
9b64063fb60ab1cbf385a2e768581c59c0214a0ef4566d46afe41ece7745d37b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TH VAN TEEFFELEN | DIRECTORY PRINT | PRG | DuncanTwain | 26 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 0A 00 8B 20 54 B2 31 20 89 31 32 30 |....... T.1 .120|
00000010: 00 26 08 6E 00 54 B2 31 3A 93 22 53 4F 52 54 20 |.&.n.T.1:."SORT |
00000020: 32 22 2C 38 2C 31 00 48 08 78 00 86 44 49 24 28 |2",8,1.H.x..DI$(|
00000030: 31 30 30 29 3A 86 41 24 28 39 30 30 29 3A 44 45 |100):.A$(900):DE|
00000040: 56 B2 38 3A 89 35 38 30 00 76 08 82 00 85 22 20 |V.8:.580.v...." |
00000050: 20 20 20 20 20 20 20 20 91 57 45 4C 4B 20 53 43 | .WELK SC|
00000060: 48 49 4A 46 4E 55 4D 4D 45 52 20 20 20 20 20 20 |HIJFNUMMER |
00000070: 20 22 3B 53 4E 24 00 A1 08 83 00 99 22 20 20 20 | ";SN$......" |
00000080: 20 20 20 20 20 20 91 20 20 20 20 20 20 20 20 20 | . |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 22 00 BF 08 84 00 99 22 20 20 20 20 20 20 20 20 |"......" |
000000B0: 20 91 45 56 45 4E 20 57 41 43 48 54 45 4E 22 00 | .EVEN WACHTEN".|
000000C0: DE 08 87 00 81 20 54 B2 30 A4 44 50 AA 35 3A 88 |..... T.0.DP.5:.|
000000D0: 20 44 49 24 28 54 29 B2 22 22 3A 82 20 54 00 E8 | DI$(T)."":. T..|
000000E0: 08 8C 00 8D 20 32 31 30 00 12 09 96 00 44 49 24 |.... 210.....DI$|
000000F0: 28 30 29 B2 C9 28 44 49 24 28 30 29 2C 35 29 3A |(0)..(DI$(0),5):|
00000100: 44 49 24 28 30 29 B2 C8 28 44 49 24 28 30 29 2C |DI$(0)..(DI$(0),|
00000110: 30 29 00 21 09 A0 00 81 20 49 B2 31 A4 44 50 AB |0).!.... I.1.DP.|
00000120: 31 00 65 09 AA 00 44 49 24 28 49 29 B2 44 49 24 |1.e...DI$(I).DI$|
00000130: 28 49 29 AA 22 20 20 20 20 20 20 20 20 20 20 20 |(I)." |
00000140: 20 20 20 20 20 22 3A 44 49 24 28 49 29 B2 C8 28 | ":DI$(I)..(|
00000150: 44 49 24 28 49 29 2C 32 36 29 AA 53 4E 24 AA 44 |DI$(I),26).SN$.D|
00000160: 49 24 28 30 29 00 6B 09 B4 00 82 00 74 09 BE 00 |I$(0).k.....t...|
00000170: 51 51 B2 31 00 7A 09 C8 00 8E 00 91 09 D2 00 44 |QQ.1.z.........D|
00000180: 50 B2 30 3A 9F 20 38 2C 44 45 56 2C 30 2C 22 24 |P.0:. 8,DEV,0,"$|
00000190: 22 00 A3 09 DC 00 A1 23 38 2C 54 24 3A A1 23 38 |"......#8,T$:.#8|
000001A0: 2C 54 24 00 C2 09 E6 00 A1 23 38 2C 54 24 3A A1 |,T$......#8,T$:.|
000001B0: 23 38 2C 54 24 3A 8B 54 24 B2 22 22 A7 20 A0 38 |#8,T$:.T$."". .8|
000001C0: 3A 8E 00 E9 09 F0 00 A1 23 38 2C 54 41 24 3A A1 |:.......#8,TA$:.|
000001D0: 23 38 2C 54 24 3A 8B 54 41 24 B3 B1 22 22 A7 3A |#8,T$:.TA$.."".:|
000001E0: 54 41 B2 C6 28 54 41 24 29 00 06 0A FA 00 A1 23 |TA..(TA$)......#|
000001F0: 38 2C 54 24 3A 8B 54 24 B3 B1 22 22 A7 3A 88 50 |8,T$:.T$.."".:.P|
00000200: B2 C6 28 54 24 29 00 21 0A 04 01 8B 54 24 B3 B1 |..(T$).!....T$..|
00000210: C7 28 33 34 29 AF 54 24 B3 B1 22 22 A7 20 32 35 |.(34).T$.."". 25|
00000220: 30 00 31 0A 0E 01 8B 54 24 B2 22 22 A7 20 32 33 |0.1....T$."". 23|
00000230: 30 00 3C 0A 18 01 54 31 24 B2 22 22 00 47 0A 22 |0.<...T1$."".G."|
00000240: 01 A1 23 38 2C 54 24 00 65 0A 2C 01 8B 20 54 24 |..#8,T$.e.,.. T$|
00000250: B3 B1 22 22 A7 20 54 31 24 B2 54 31 24 AA 54 24 |.."". T1$.T1$.T$|
00000260: 3A 89 32 39 30 00 94 0A 36 01 8B 20 C9 28 54 31 |:.290...6.. .(T1|
00000270: 24 2C 31 29 B2 22 20 22 A7 3A 54 31 24 B2 C8 28 |$,1)." ".:T1$..(|
00000280: 54 31 24 2C 28 C3 28 54 31 24 29 AB 31 29 29 3A |T1$,(.(T1$).1)):|
00000290: 89 33 31 30 00 B2 0A 40 01 8B 20 44 50 B2 30 20 |.310...@.. DP.0 |
000002A0: A7 3A 44 49 24 28 44 50 29 B2 54 31 24 3A 89 33 |.:DI$(DP).T1$:.3|
000002B0: 38 30 00 F0 0A 4A 01 44 49 24 28 44 50 29 B2 54 |80...J.DI$(DP).T|
000002C0: 31 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 |1$." |
000002D0: 20 20 20 20 20 20 20 20 20 22 3A 44 49 24 28 44 | ":DI$(D|
000002E0: 50 29 B2 C8 28 44 49 24 28 44 50 29 2C 32 32 29 |P)..(DI$(DP),22)|
000002F0: 00 16 0B 54 01 91 20 B5 28 54 41 AD 31 30 30 29 |...T.. .(TA.100)|
00000300: AA 31 8D 33 39 30 2C 34 30 30 2C 34 32 30 2C 34 |.1.390,400,420,4|
00000310: 34 30 2C 34 36 30 00 4F 0B 5E 01 91 20 B5 28 54 |40,460.O.^.. .(T|
00000320: 41 AD 31 30 29 AA 31 8D 33 39 30 2C 34 30 30 2C |A.10).1.390,400,|
00000330: 34 32 30 2C 34 34 30 2C 34 36 30 2C 34 38 30 2C |420,440,460,480,|
00000340: 35 30 30 2C 35 32 30 2C 35 34 30 2C 35 36 30 00 |500,520,540,560.|
00000350: 83 0B 68 01 91 20 54 41 AA 31 20 8D 33 39 30 2C |..h.. TA.1 .390,|
00000360: 34 30 30 2C 34 32 30 2C 34 34 30 2C 34 36 30 2C |400,420,440,460,|
00000370: 34 38 30 2C 35 30 30 2C 35 32 30 2C 35 34 30 2C |480,500,520,540,|
00000380: 35 36 30 00 9B 0B 72 01 44 49 24 28 44 50 29 B2 |560...r.DI$(DP).|
00000390: 44 49 24 28 44 50 29 AA 22 20 22 00 AC 0B 7C 01 |DI$(DP)." "...|.|
000003A0: 44 50 B2 44 50 AA 31 3A 89 32 33 30 00 C6 0B 86 |DP.DP.1:.230....|
000003B0: 01 44 49 24 28 44 50 29 B2 44 49 24 28 44 50 29 |.DI$(DP).DI$(DP)|
000003C0: AA 22 30 22 3A 8E 00 FF 0B 90 01 44 49 24 28 44 |."0":......DI$(D|
000003D0: 50 29 B2 44 49 24 28 44 50 29 AA 22 31 22 3A 8B |P).DI$(DP)."1":.|
000003E0: 54 41 B1 39 A7 3A 54 41 B2 54 41 AB 31 30 3A 8B |TA.9.:TA.TA.10:.|
000003F0: 54 41 B1 38 39 A7 3A 54 41 B2 54 41 AB 39 30 00 |TA.89.:TA.TA.90.|
00000400: 05 0C 9A 01 8E 00 41 0C A4 01 44 49 24 28 44 50 |......A...DI$(DP|
00000410: 29 B2 44 49 24 28 44 50 29 AA 22 32 22 3A 8B 54 |).DI$(DP)."2":.T|
00000420: 41 B1 31 39 A7 3A 54 41 B2 54 41 AB 32 30 3A 8B |A.19.:TA.TA.20:.|
00000430: 54 41 B1 31 37 39 A7 3A 54 41 B2 54 41 AB 31 38 |TA.179.:TA.TA.18|
00000440: 30 00 47 0C AE 01 8E 00 83 0C B8 01 44 49 24 28 |0.G.........DI$(|
00000450: 44 50 29 B2 44 49 24 28 44 50 29 AA 22 33 22 3A |DP).DI$(DP)."3":|
00000460: 8B 54 41 B1 32 39 A7 3A 54 41 B2 54 41 AB 33 30 |.TA.29.:TA.TA.30|
00000470: 3A 8B 54 41 B1 32 36 39 A7 3A 54 41 B2 54 41 AB |:.TA.269.:TA.TA.|
00000480: 32 37 30 00 89 0C C2 01 8E 00 C5 0C CC 01 44 49 |270...........DI|
00000490: 24 28 44 50 29 B2 44 49 24 28 44 50 29 AA 22 34 |$(DP).DI$(DP)."4|
000004A0: 22 3A 8B 54 41 B1 33 39 A7 3A 54 41 B2 54 41 AB |":.TA.39.:TA.TA.|
000004B0: 34 30 3A 8B 54 41 B1 33 35 39 A7 3A 54 41 B2 54 |40:.TA.359.:TA.T|
000004C0: 41 AB 33 36 30 00 CB 0C D6 01 8E 00 07 0D E0 01 |A.360...........|
000004D0: 44 49 24 28 44 50 29 B2 44 49 24 28 44 50 29 AA |DI$(DP).DI$(DP).|
000004E0: 22 35 22 3A 8B 54 41 B1 34 39 A7 3A 54 41 B2 54 |"5":.TA.49.:TA.T|
000004F0: 41 AB 35 30 3A 8B 54 41 B1 34 34 39 A7 3A 54 41 |A.50:.TA.449.:TA|
00000500: B2 54 41 AB 34 35 30 00 0D 0D EA 01 8E 00 49 0D |.TA.450.......I.|
00000510: F4 01 44 49 24 28 44 50 29 B2 44 49 24 28 44 50 |..DI$(DP).DI$(DP|
00000520: 29 AA 22 36 22 3A 8B 54 41 B1 35 39 A7 3A 54 41 |)."6":.TA.59.:TA|
00000530: B2 54 41 AB 36 30 3A 8B 54 41 B1 35 33 39 A7 3A |.TA.60:.TA.539.:|
00000540: 54 41 B2 54 41 B2 35 34 30 00 4F 0D FE 01 8E 00 |TA.TA.540.O.....|
00000550: 78 0D 08 02 44 49 24 28 44 50 29 B2 44 49 24 28 |x...DI$(DP).DI$(|
00000560: 44 50 29 AA 22 37 22 3A 8B 54 41 B1 36 39 A7 3A |DP)."7":.TA.69.:|
00000570: 54 41 B2 54 41 AB 37 30 00 7E 0D 12 02 8E 00 A7 |TA.TA.70.~......|
00000580: 0D 1C 02 44 49 24 28 44 50 29 B2 44 49 24 28 44 |...DI$(DP).DI$(D|
00000590: 50 29 AA 22 38 22 3A 8B 54 41 B1 37 39 A7 3A 54 |P)."8":.TA.79.:T|
000005A0: 41 B2 54 41 AB 38 30 00 AD 0D 26 02 8E 00 D6 0D |A.TA.80...&.....|
000005B0: 30 02 44 49 24 28 44 50 29 B2 44 49 24 28 44 50 |0.DI$(DP).DI$(DP|
000005C0: 29 AA 22 39 22 3A 8B 54 41 B1 38 39 A7 3A 54 41 |)."9":.TA.89.:TA|
000005D0: B2 54 41 AB 39 30 00 DC 0D 3A 02 8E 00 F4 0D 44 |.TA.90...:.....D|
000005E0: 02 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
000005F0: 31 2C 31 34 00 00 0E 4E 02 99 C7 28 31 34 37 29 |1,14...N...(147)|
00000600: 00 2C 0E 58 02 99 22 1F 4D 45 54 20 44 49 54 20 |.,.X..".MET DIT |
00000610: 50 52 4F 47 52 41 4D 4D 41 20 4B 55 4E 20 4A 45 |PROGRAMMA KUN JE|
00000620: 20 4D 41 58 49 4D 41 41 4C 22 3A 99 00 58 0E 62 | MAXIMAAL":..X.b|
00000630: 02 99 22 39 30 30 20 57 4F 4F 52 44 45 4E 20 41 |.."900 WOORDEN A|
00000640: 4C 50 48 41 42 45 54 49 53 43 48 20 53 4F 52 54 |LPHABETISCH SORT|
00000650: 45 52 45 4E 2E 22 3A 99 00 88 0E 6C 02 99 22 20 |EREN.":....l.." |
00000660: 20 20 31 29 20 54 4F 45 56 4F 45 47 45 4E 20 41 | 1) TOEVOEGEN A|
00000670: 41 4E 20 45 45 4E 20 28 4E 49 45 55 57 45 29 20 |AN EEN (NIEUWE) |
00000680: 4C 49 4A 53 54 22 3A 99 00 A8 0E 76 02 99 22 20 |LIJST":....v.." |
00000690: 20 20 32 29 20 4C 4F 41 44 20 4F 55 44 45 20 4C | 2) LOAD OUDE L|
000006A0: 49 4A 53 54 20 22 3A 99 00 CD 0E 80 02 99 22 20 |IJST ":......." |
000006B0: 20 20 33 29 20 41 46 48 41 4C 45 4E 20 56 41 4E | 3) AFHALEN VAN|
000006C0: 20 44 45 20 4C 49 4A 53 54 20 22 3A 99 00 F1 0E | DE LIJST ":....|
000006D0: 8A 02 99 22 20 20 20 34 29 20 53 4F 52 54 45 52 |..." 4) SORTER|
000006E0: 45 4E 20 4F 50 20 41 4C 50 48 41 42 45 54 22 3A |EN OP ALPHABET":|
000006F0: 99 00 1F 0F 94 02 99 22 20 20 20 35 29 20 44 45 |......." 5) DE|
00000700: 20 4C 49 4A 53 54 20 53 41 56 45 4E 20 4F 50 20 | LIJST SAVEN OP |
00000710: 54 41 50 45 20 4F 46 20 44 49 53 4B 22 3A 99 00 |TAPE OF DISK":..|
00000720: 44 0F 9E 02 99 22 20 20 20 36 29 20 44 45 20 4C |D...." 6) DE L|
00000730: 49 4A 53 54 20 4C 41 54 45 4E 20 5A 49 45 4E 20 |IJST LATEN ZIEN |
00000740: 20 22 3A 99 00 69 0F A8 02 99 22 20 20 20 37 29 | ":..i...." 7)|
00000750: 20 44 45 20 4C 49 4A 53 54 20 55 49 54 50 52 49 | DE LIJST UITPRI|
00000760: 4E 54 45 4E 20 20 22 3A 99 00 88 0F AD 02 99 22 |NTEN ":......."|
00000770: 20 20 20 38 29 20 5A 4F 45 4B 45 4E 20 49 4E 20 | 8) ZOEKEN IN |
00000780: 4C 49 4A 53 54 22 3A 99 00 A5 0F B2 02 99 22 20 |LIJST":......." |
00000790: 20 20 39 29 20 53 20 54 20 4F 20 50 20 50 20 45 | 9) S T O P P E|
000007A0: 20 4E 22 3A 99 00 D2 0F BC 02 99 22 20 20 20 12 | N":......." .|
000007B0: 47 45 45 46 20 4E 55 20 48 45 54 20 47 45 57 45 |GEEF NU HET GEWE|
000007C0: 4E 53 54 45 20 43 49 4A 46 45 52 20 49 4E 20 21 |NSTE CIJFER IN !|
000007D0: 92 22 00 11 10 C6 02 A1 51 24 3A 51 B2 C5 28 51 |."......Q$:Q..(Q|
000007E0: 24 29 3A 91 51 89 37 34 30 2C 31 32 37 30 2C 31 |$):.Q.740,1270,1|
000007F0: 35 30 30 2C 31 38 33 30 2C 31 30 37 30 2C 32 32 |500,1830,1070,22|
00000800: 30 30 2C 33 30 30 30 2C 32 38 30 30 2C 36 30 30 |00,3000,2800,600|
00000810: 30 00 1A 10 D0 02 89 37 31 30 00 39 10 DA 02 8F |0......710.9....|
00000820: 20 2A 2A 2A 2A 20 54 4F 45 56 4F 45 47 52 4F 55 | **** TOEVOEGROU|
00000830: 54 49 4E 45 20 2A 2A 2A 2A 00 47 10 E4 02 8B 54 |TINE ****.G....T|
00000840: 4C B2 31 A7 37 34 39 00 58 10 E5 02 54 4C B2 31 |L.1.749.X...TL.1|
00000850: 3A 99 C7 28 31 34 37 29 00 87 10 E6 02 99 22 44 |:..(147)......"D|
00000860: 49 53 4B 2E 20 4E 41 4D 45 4E 20 4D 4F 45 54 45 |ISK. NAMEN MOETE|
00000870: 4E 20 4F 4F 4B 20 49 4E 47 45 56 4F 45 52 44 20 |N OOK INGEVOERD |
00000880: 57 4F 52 44 45 4E 22 00 B7 10 E7 02 99 3A 99 22 |WORDEN"......:."|
00000890: 48 49 45 52 20 4D 4F 45 54 20 57 45 4C 20 45 45 |HIER MOET WEL EE|
000008A0: 4E 20 3C 2B 3E 20 56 4F 4F 52 47 45 5A 45 54 20 |N <+> VOORGEZET |
000008B0: 57 4F 52 44 45 4E 22 00 E7 10 E8 02 99 3A 99 22 |WORDEN"......:."|
000008C0: 4F 4F 4B 20 48 45 54 20 44 49 53 4B 2E 20 4E 52 |OOK HET DISK. NR|
000008D0: 2E 20 4D 4F 45 54 20 49 4E 47 45 56 55 4C 44 20 |. MOET INGEVULD |
000008E0: 57 4F 52 44 45 4E 22 00 F9 10 E9 02 99 3A 99 3A |WORDEN"......:.:|
000008F0: 99 3A 81 58 B2 31 A4 31 35 00 14 11 EA 02 99 A3 |.:.X.1.15.......|
00000900: 31 33 29 22 12 44 52 55 4B 20 4F 50 20 54 4F 45 |13)".DRUK OP TOE|
00000910: 54 53 92 22 00 24 11 EB 02 81 54 B2 31 A4 35 30 |TS.".$....T.1.50|
00000920: 30 3A 82 54 00 4D 11 EC 02 A1 58 24 3A 8B 58 24 |0:.T.M....X$:.X$|
00000930: B2 22 22 A7 99 A3 31 33 29 22 91 20 20 20 20 20 |.""...13)". |
00000940: 20 20 20 20 20 20 20 20 20 22 3A 82 58 00 59 11 | ":.X.Y.|
00000950: ED 02 99 C7 28 31 34 37 29 00 85 11 EE 02 99 22 |....(147)......"|
00000960: 47 45 45 46 20 4E 55 20 44 45 20 54 45 20 53 4F |GEEF NU DE TE SO|
00000970: 52 54 45 52 45 4E 20 57 4F 4F 52 44 45 4E 20 20 |RTEREN WOORDEN |
00000980: 20 20 22 3A 99 00 AC 11 F8 02 99 22 28 4D 45 54 | ":......."(MET|
00000990: 20 45 45 4E 20 4D 41 58 49 4D 55 4D 20 56 41 4E | EEN MAXIMUM VAN|
000009A0: 20 39 30 30 29 20 49 4E 2E 22 3A 99 00 D8 11 02 | 900) IN.":.....|
000009B0: 03 99 22 4E 41 20 48 45 54 20 4C 41 41 54 53 54 |.."NA HET LAATST|
000009C0: 45 20 57 4F 4F 52 44 20 4D 4F 45 54 20 4A 45 20 |E WOORD MOET JE |
000009D0: 48 45 54 20 20 22 3A 99 00 F7 11 0C 03 99 22 54 |HET ":......."T|
000009E0: 45 4B 45 4E 20 20 3C 2A 3E 20 20 49 4E 47 45 56 |EKEN <*> INGEV|
000009F0: 45 4E 20 21 22 3A 99 00 23 12 16 03 99 22 41 4C |EN !":..#...."AL|
00000A00: 53 20 4A 45 20 3C 24 3E 20 49 4E 47 45 45 46 54 |S JE <$> INGEEFT|
00000A10: 20 57 4F 52 44 54 20 45 45 4E 20 44 49 53 4B 20 | WORDT EEN DISK |
00000A20: 22 3A 99 00 42 12 1B 03 99 22 44 49 52 45 4B 54 |":..B...."DIREKT|
00000A30: 4F 52 49 45 20 54 4F 45 47 45 56 4F 45 47 44 22 |ORIE TOEGEVOEGD"|
00000A40: 3A 99 00 72 12 1D 03 99 22 9E B8 B8 B8 B8 B8 B8 |:..r....".......|
00000A50: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000A60: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000A70: 1F 22 00 A0 12 20 03 99 22 4E 52 20 20 20 20 20 |."... .."NR |
00000A80: 20 20 50 52 4F 47 52 2E 20 4E 41 41 4D 20 20 20 | PROGR. NAAM |
00000A90: 20 20 20 20 50 52 47 20 42 4C 4B 20 44 4E 52 22 | PRG BLK DNR"|
00000AA0: 00 A6 12 2A 03 99 00 B8 12 3E 03 99 4E AA 31 2C |...*.....>..N.1,|
00000AB0: 3A 99 22 9D 9D 9D 22 3B 00 C0 12 48 03 85 41 24 |:."...";...H..A$|
00000AC0: 00 CE 12 52 03 51 51 B2 30 3A 51 31 B2 31 00 DE |...R.QQ.0:Q1.1..|
00000AD0: 12 5C 03 8B 41 24 B2 22 2A 22 A7 35 39 30 00 F6 |.\..A$."*".590..|
00000AE0: 12 66 03 8B 20 41 24 B2 22 24 22 A7 3A 54 58 B2 |.f.. A$."$".:TX.|
00000AF0: 31 3A 8D 31 33 30 00 25 13 6B 03 8B 54 58 B2 31 |1:.130.%.k..TX.1|
00000B00: A7 99 22 20 20 20 20 20 20 20 20 91 20 55 20 4B |.." . U K|
00000B10: 55 4E 54 20 4E 55 20 49 4E 56 4F 45 52 45 4E 22 |UNT NU INVOEREN"|
00000B20: 3A 54 58 B2 30 00 4F 13 70 03 8B 20 51 51 B2 31 |:TX.0.O.p.. QQ.1|
00000B30: 20 A7 3A 41 24 28 4E AA 31 29 B2 44 49 24 28 51 | .:A$(N.1).DI$(Q|
00000B40: 31 29 3A 51 31 B2 51 31 AA 31 3A 89 39 30 30 00 |1):Q1.Q1.1:.900.|
00000B50: 67 13 7A 03 8B 20 51 51 B2 30 20 A7 3A 41 24 28 |g.z.. QQ.0 .:A$(|
00000B60: 4E AA 31 29 B2 41 24 00 77 13 84 03 4E B2 4E AA |N.1).A$.w...N.N.|
00000B70: 31 3A 99 22 91 22 4E 00 92 13 8E 03 8B 20 51 51 |1:."."N...... QQ|
00000B80: B2 31 20 A7 3A 8B 51 31 B3 B1 28 44 50 29 A7 38 |.1 .:.Q1..(DP).8|
00000B90: 38 30 00 A1 13 98 03 8B 4E B1 39 30 30 A7 35 39 |80......N.900.59|
00000BA0: 30 00 AA 13 A2 03 89 38 33 30 00 C6 13 AC 03 8F |0......830......|
00000BB0: 20 2A 2A 2A 2A 20 4C 49 53 54 52 4F 55 54 49 4E | **** LISTROUTIN|
00000BC0: 45 20 2A 2A 2A 2A 00 D6 13 B6 03 99 C7 28 31 34 |E ****.......(14|
00000BD0: 37 29 3A 50 B2 31 00 FC 13 B8 03 99 22 56 41 4E |7):P.1......"VAN|
00000BE0: 41 46 20 57 45 4C 4B 45 20 4C 45 54 54 45 52 20 |AF WELKE LETTER |
00000BF0: 54 45 20 42 45 47 49 4E 4E 45 4E 22 00 27 14 B9 |TE BEGINNEN".'..|
00000C00: 03 99 3A 99 22 53 50 41 54 49 45 20 42 45 54 45 |..:."SPATIE BETE|
00000C10: 4B 45 4E 44 20 56 41 4E 41 46 20 48 45 54 20 42 |KEND VANAF HET B|
00000C20: 45 47 49 4E 22 3A 99 00 3B 14 BA 03 A1 20 51 24 |EGIN":..;.... Q$|
00000C30: 3A 8B 51 24 B2 22 22 A7 39 35 34 00 4B 14 BB 03 |:.Q$."".954.K...|
00000C40: 8B 51 24 B2 22 20 22 A7 39 36 30 00 57 14 BC 03 |.Q$." ".960.W...|
00000C50: 81 20 49 B2 31 A4 4E 00 74 14 BD 03 8B 20 C8 28 |. I.1.N.t.... .(|
00000C60: 41 24 28 49 29 2C 31 29 B2 51 24 A7 3A 50 B2 49 |A$(I),1).Q$.:P.I|
00000C70: 3A 49 B2 4E 00 7A 14 BE 03 82 00 82 14 C0 03 4C |:I.N.z.........L|
00000C80: B2 30 00 8D 14 CA 03 81 49 B2 50 A4 4E 00 9A 14 |.0......I.P.N...|
00000C90: D4 03 99 49 2C 41 24 28 49 29 00 A4 14 DE 03 4C |...I,A$(I).....L|
00000CA0: B2 4C AA 31 00 B3 14 E8 03 8B 4C B3 32 30 A7 31 |.L.1......L.20.1|
00000CB0: 30 34 30 00 C7 14 F2 03 A1 50 24 3A 8B 50 24 B2 |040......P$:.P$.|
00000CC0: 22 2A 22 A7 35 39 30 00 D9 14 FC 03 8B 20 50 24 |"*".590...... P$|
00000CD0: B2 22 22 A7 20 31 30 31 30 00 E9 14 06 04 4C B2 |."". 1010.....L.|
00000CE0: 30 3A 99 C7 28 31 34 37 29 00 F0 14 10 04 82 49 |0:..(147)......I|
00000CF0: 00 04 15 1A 04 A1 50 24 3A 8B 50 24 B2 22 22 A7 |......P$:.P$."".|
00000D00: 31 30 35 30 00 0E 15 24 04 89 20 35 39 30 00 2B |1050...$.. 590.+|
00000D10: 15 2E 04 8F 20 2A 2A 2A 2A 20 53 41 56 45 20 52 |.... **** SAVE R|
00000D20: 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 38 15 33 04 |OUTINE ****.8.3.|
00000D30: 8B 4E B2 30 A7 37 31 30 00 48 15 38 04 99 C7 28 |.N.0.710.H.8...(|
00000D40: 31 34 37 29 3A 99 3A 99 00 70 15 42 04 99 22 4F |147):.:..p.B.."O|
00000D50: 4E 44 45 52 20 57 45 4C 4B 45 20 4E 41 41 4D 20 |NDER WELKE NAAM |
00000D60: 4D 4F 45 54 20 44 45 20 4C 59 53 54 20 22 3A 99 |MOET DE LYST ":.|
00000D70: 00 8C 15 4C 04 85 22 56 41 53 54 47 45 4C 45 47 |...L.."VASTGELEG|
00000D80: 44 20 57 4F 52 44 45 4E 22 3B 4E 24 00 96 15 56 |D WORDEN";N$...V|
00000D90: 04 99 3A 99 3A 99 00 AE 15 60 04 99 22 12 44 92 |..:.:....`..".D.|
00000DA0: 49 53 4B 20 4F 46 20 12 54 92 41 50 45 22 00 C5 |ISK OF .T.APE"..|
00000DB0: 15 6A 04 A1 20 54 54 24 3A 8B 54 54 24 B2 22 22 |.j.. TT$:.TT$.""|
00000DC0: 89 31 31 33 30 00 EA 15 74 04 8B 54 54 24 B2 22 |.1130...t..TT$."|
00000DD0: 44 22 A7 3A 9F 31 2C 38 2C 31 2C 4E 24 AA 22 2C |D".:.1,8,1,N$.",|
00000DE0: 53 2C 57 22 3A 89 31 32 32 30 00 FE 15 7E 04 8B |S,W":.1220...~..|
00000DF0: 54 54 24 B3 B1 22 54 22 A7 20 31 31 33 30 00 22 |TT$.."T". 1130."|
00000E00: 16 88 04 99 22 4C 45 47 20 4E 55 20 45 45 4E 20 |...."LEG NU EEN |
00000E10: 44 41 54 41 2D 4B 41 53 53 45 54 54 45 20 49 4E |DATA-KASSETTE IN|
00000E20: 21 22 00 4C 16 92 04 99 22 41 4C 53 20 4A 45 20 |!".L...."ALS JE |
00000E30: 4B 4C 41 41 52 20 42 45 4E 54 2C 20 44 41 4E 20 |KLAAR BENT, DAN |
00000E40: 44 52 55 4B 20 4D 41 41 52 22 3A 99 00 6E 16 9C |DRUK MAAR":..n..|
00000E50: 04 99 22 4F 50 20 45 45 4E 20 57 49 4C 4C 45 4B |.."OP EEN WILLEK|
00000E60: 45 55 52 49 47 45 20 54 4F 45 54 53 2E 22 00 78 |EURIGE TOETS.".x|
00000E70: 16 A6 04 99 3A 99 3A 99 00 8C 16 B0 04 A1 51 24 |....:.:.......Q$|
00000E80: 3A 8B 51 24 B2 22 22 A7 31 32 30 30 00 9A 16 BA |:.Q$."".1200....|
00000E90: 04 9F 31 2C 31 2C 31 2C 4E 24 00 A5 16 C4 04 81 |..1,1,1,N$......|
00000EA0: 49 B2 31 A4 4E 00 B2 16 CE 04 98 31 2C 41 24 28 |I.1.N......1,A$(|
00000EB0: 49 29 00 B9 16 D8 04 82 49 00 C5 16 E2 04 A0 31 |I)......I......1|
00000EC0: 3A 89 35 39 30 00 DD 16 EC 04 8F 20 2A 2A 2A 2A |:.590...... ****|
00000ED0: 20 49 4E 4C 45 5A 45 4E 20 2A 2A 2A 2A 00 E9 16 | INLEZEN ****...|
00000EE0: F6 04 99 C7 28 31 34 37 29 00 1A 17 00 05 99 22 |....(147)......"|
00000EF0: 20 57 45 4C 4B 45 20 4E 41 41 4D 20 48 45 45 46 | WELKE NAAM HEEF|
00000F00: 54 20 44 45 20 4F 55 44 45 20 4C 59 53 54 20 20 |T DE OUDE LYST |
00000F10: 20 20 22 3A 99 3A 85 20 4E 24 00 24 17 0A 05 99 | ":.:. N$.$....|
00000F20: 3A 99 3A 99 00 3C 17 14 05 99 22 12 44 92 49 53 |:.:..<....".D.IS|
00000F30: 4B 20 4F 46 20 12 54 92 41 50 45 22 00 55 17 1E |K OF .T.APE".U..|
00000F40: 05 A1 20 54 54 24 3A 8B 54 54 24 B2 22 22 20 A7 |.. TT$:.TT$."" .|
00000F50: 20 31 33 31 30 00 7B 17 28 05 8B 20 54 54 24 B2 | 1310.{.(.. TT$.|
00000F60: 22 44 22 A7 3A 9F 31 2C 38 2C 37 2C 4E 24 AA 22 |"D".:.1,8,7,N$."|
00000F70: 2C 53 2C 52 22 3A 89 31 34 30 30 00 8E 17 32 05 |,S,R":.1400...2.|
00000F80: 8B 54 54 24 B3 B1 22 54 22 A7 31 33 31 30 00 BB |.TT$.."T".1310..|
00000F90: 17 3C 05 99 22 11 4C 45 47 20 44 41 4E 20 4E 55 |.<..".LEG DAN NU|
00000FA0: 20 44 45 5A 45 20 44 41 54 41 2D 4B 41 53 53 45 | DEZE DATA-KASSE|
00000FB0: 54 54 45 20 49 4E 20 21 22 3A 99 00 E5 17 46 05 |TTE IN !":....F.|
00000FC0: 99 22 41 4C 53 20 4A 45 20 4B 4C 41 41 52 20 42 |."ALS JE KLAAR B|
00000FD0: 45 4E 54 2C 20 44 52 55 4B 20 44 41 4E 20 45 45 |ENT, DRUK DAN EE|
00000FE0: 4E 20 22 3A 99 00 FF 17 50 05 99 22 57 49 4C 4C |N ":....P.."WILL|
00000FF0: 45 4B 45 55 52 49 47 45 20 54 4F 45 54 53 2E 00 |EKEURIGE TOETS..|
00001000: 13 18 5A 05 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 |..Z..Q$:.Q$."".1|
00001010: 33 37 30 00 1D 18 64 05 99 3A 99 3A 99 00 2B 18 |370...d..:.:..+.|
00001020: 6E 05 9F 31 2C 31 2C 30 2C 4E 24 00 59 18 78 05 |n..1,1,0,N$.Y.x.|
00001030: 4E B2 4E AA 31 3A 99 22 11 49 4E 47 45 4C 45 5A |N.N.1:.".INGELEZ|
00001040: 45 4E 20 41 41 4E 54 41 4C 20 52 45 43 4F 52 44 |EN AANTAL RECORD|
00001050: 53 20 49 53 20 3F 22 3A 99 00 6C 18 82 05 84 31 |S IS ?":..l....1|
00001060: 2C 41 24 28 4E 29 3A 99 22 91 22 4E 00 7B 18 96 |,A$(N):."."N.{..|
00001070: 05 8B 53 54 B1 30 A7 31 34 38 30 00 91 18 AA 05 |..ST.0.1480.....|
00001080: 4E B2 4E AA 31 3A 8B 4E B2 39 30 30 A7 31 34 38 |N.N.1:.N.900.148|
00001090: 30 00 9B 18 B4 05 89 31 34 31 30 00 A2 18 C8 05 |0......1410.....|
000010A0: A0 31 00 AB 18 D2 05 89 35 39 30 00 C9 18 DC 05 |.1......590.....|
000010B0: 8F 20 2A 2A 2A 2A 20 56 45 52 56 41 4C 52 4F 55 |. **** VERVALROU|
000010C0: 54 49 4E 45 20 2A 2A 2A 2A 00 D6 18 E1 05 8B 4E |TINE ****......N|
000010D0: B2 30 A7 37 31 30 00 E2 18 E6 05 99 C7 28 31 34 |.0.710.......(14|
000010E0: 37 29 00 0C 19 F0 05 99 22 47 45 45 46 20 44 41 |7)......"GEEF DA|
000010F0: 4E 20 4E 55 20 44 45 20 57 4F 4F 52 44 45 4E 20 |N NU DE WOORDEN |
00001100: 49 4E 20 57 45 4C 4B 45 20 22 3A 99 00 37 19 FA |IN WELKE ":..7..|
00001110: 05 99 22 4D 4F 45 54 45 4E 20 56 45 52 56 41 4C |.."MOETEN VERVAL|
00001120: 4C 45 4E 2E 20 54 59 50 45 20 44 41 41 52 54 4F |LEN. TYPE DAARTO|
00001130: 45 20 44 45 22 3A 99 00 62 19 04 06 99 22 42 45 |E DE":..b...."BE|
00001140: 54 52 45 46 46 45 4E 44 45 20 57 4F 4F 52 44 45 |TREFFENDE WOORDE|
00001150: 4E 20 48 45 4C 45 4D 41 41 4C 20 49 4E 20 2E 22 |N HELEMAAL IN ."|
00001160: 3A 99 00 8C 19 0E 06 99 22 49 4E 44 49 45 4E 20 |:......."INDIEN |
00001170: 45 45 4E 20 44 49 53 4B 44 49 52 2E 20 4D 4F 45 |EEN DISKDIR. MOE|
00001180: 54 20 56 45 52 56 41 4C 4C 45 4E 22 00 B8 19 18 |T VERVALLEN"....|
00001190: 06 99 22 54 59 50 20 44 41 4E 20 27 40 2E 2E 2E |.."TYP DAN '@...|
000011A0: 27 20 2E 2E 2E 20 49 53 20 48 45 54 20 44 49 53 |' ... IS HET DIS|
000011B0: 4B 20 4E 52 2E 22 3A 99 00 E1 19 1A 06 99 22 4F |K NR.":......."O|
000011C0: 4D 20 45 45 4E 20 52 45 47 45 4C 4E 52 20 54 45 |M EEN REGELNR TE|
000011D0: 20 4C 41 54 45 4E 20 56 45 52 56 41 4C 4C 45 4E | LATEN VERVALLEN|
000011E0: 22 00 0F 1A 1C 06 99 22 54 59 50 20 44 41 4E 20 |"......"TYP DAN |
000011F0: 27 23 2E 2E 2E 27 20 2E 2E 2E 20 49 53 20 48 45 |'#...' ... IS HE|
00001200: 54 20 52 45 47 45 4C 4E 52 2E 22 3A 99 3A 99 00 |T REGELNR.":.:..|
00001210: 3B 1A 22 06 99 22 41 4C 53 20 4A 45 20 4B 4C 41 |;.".."ALS JE KLA|
00001220: 41 52 20 42 45 4E 54 2C 20 54 59 50 45 20 44 41 |AR BENT, TYPE DA|
00001230: 4E 20 27 2A 27 20 49 4E 22 3A 99 00 65 1A 36 06 |N '*' IN":..e.6.|
00001240: 99 22 57 45 4C 4B 45 20 57 4F 4F 52 44 45 4E 20 |."WELKE WOORDEN |
00001250: 4D 4F 45 54 45 4E 20 56 45 52 56 41 4C 4C 45 4E |MOETEN VERVALLEN|
00001260: 20 3F 22 3A 99 00 6D 1A 40 06 85 41 24 00 7E 1A | ?":..m.@..A$.~.|
00001270: 4A 06 8B 41 24 B2 22 2A 22 A7 20 35 39 30 00 A8 |J..A$."*". 590..|
00001280: 1A 54 06 8B 20 C8 28 41 24 2C 31 29 B2 22 40 22 |.T.. .(A$,1)."@"|
00001290: A7 3A 42 24 B2 CA 28 41 24 2C 32 2C C3 28 41 24 |.:B$..(A$,2,.(A$|
000012A0: 29 29 3A 89 31 37 38 30 00 DE 1A 59 06 8B C8 28 |)):.1780...Y...(|
000012B0: 41 24 2C 31 29 B2 22 23 22 A7 3A 49 B2 C5 28 CA |A$,1)."#".:I..(.|
000012C0: 28 41 24 2C 32 2C 33 29 29 3A 41 24 28 49 29 B2 |(A$,2,3)):A$(I).|
000012D0: 22 5A 5A 5A 5A 5A 5A 22 3A 89 31 38 30 32 00 E9 |"ZZZZZZ":.1802..|
000012E0: 1A 5E 06 81 49 B2 31 A4 4E 00 0F 1B 68 06 8B 41 |.^..I.1.N...h..A|
000012F0: 24 28 49 29 B2 41 24 A7 3A 41 24 28 49 29 B2 22 |$(I).A$.:A$(I)."|
00001300: 5A 5A 5A 5A 5A 5A 22 3A 49 B2 4E 3A 57 B2 31 00 |ZZZZZZ":I.N:W.1.|
00001310: 16 1B 72 06 82 49 00 25 1B 7C 06 8B 57 B2 31 20 |..r..I.%.|..W.1 |
00001320: A7 31 38 30 32 00 55 1B 86 06 99 3A 99 22 48 45 |.1802.U....:."HE|
00001330: 54 20 57 4F 4F 52 44 20 44 41 54 20 4D 4F 45 53 |T WOORD DAT MOES|
00001340: 54 20 56 45 52 56 41 4C 4C 45 4E 20 42 45 2D 20 |T VERVALLEN BE- |
00001350: 20 20 22 3A 99 00 7A 1B 90 06 99 22 56 49 4E 44 | ":..z...."VIND|
00001360: 20 5A 49 43 48 20 4E 49 45 54 20 49 4E 20 44 45 | ZICH NIET IN DE|
00001370: 20 4C 59 53 54 20 21 22 3A 99 00 84 1B 9A 06 89 | LYST !":.......|
00001380: 31 35 39 30 00 91 1B F4 06 81 20 49 B2 31 A4 20 |1590...... I.1. |
00001390: 4E 00 B8 1B FE 06 8B CA 28 41 24 28 49 29 2C 32 |N.......(A$(I),2|
000013A0: 37 2C 33 29 B2 42 24 20 A7 3A 41 24 28 49 29 B2 |7,3).B$ .:A$(I).|
000013B0: 22 5A 5A 5A 5A 5A 5A 22 00 C8 1B 08 07 99 22 91 |"ZZZZZZ"......".|
000013C0: 4E 52 22 49 3A 82 20 49 00 D9 1B 0A 07 9E 34 39 |NR"I:. I......49|
000013D0: 31 35 32 2C 41 24 28 31 29 00 E9 1B 0B 07 81 20 |152,A$(1)...... |
000013E0: 49 B2 4E A4 31 20 A9 AB 31 00 0A 1C 0C 07 8B 20 |I.N.1 ..1...... |
000013F0: 41 24 28 4E 29 B3 B1 22 5A 5A 5A 5A 5A 5A 22 A7 |A$(N).."ZZZZZZ".|
00001400: 3A 49 B2 31 3A 89 31 38 30 36 00 18 1C 0D 07 4E |:I.1:.1806.....N|
00001410: B2 4E AB 31 3A 82 20 49 00 27 1C 0E 07 8B 20 49 |.N.1:. I.'.... I|
00001420: B2 30 A7 20 35 39 30 00 2F 1C 0F 07 82 20 49 00 |.0. 590./.... I.|
00001430: 39 1C 12 07 89 31 35 31 30 00 52 1C 1C 07 8F 20 |9....1510.R.... |
00001440: 2A 2A 2A 2A 20 53 4F 52 54 45 52 45 4E 20 2A 2A |**** SORTEREN **|
00001450: 2A 2A 00 68 1C 26 07 9E 34 39 31 35 32 2C 41 24 |**.h.&..49152,A$|
00001460: 28 31 29 3A 89 35 39 30 00 86 1C 6C 07 8F 20 2A |(1):.590...l.. *|
00001470: 2A 20 50 52 49 4E 54 45 4E 20 56 41 4E 20 4C 49 |* PRINTEN VAN LI|
00001480: 4A 53 54 20 2A 2A 00 93 1C 76 07 49 B2 31 3A 4E |JST **...v.I.1:N|
00001490: 4D B2 30 00 A8 1C 80 07 99 C7 28 31 34 37 29 3A |M.0.......(147):|
000014A0: 54 42 B2 30 3A 55 B2 30 00 CD 1C 8A 07 99 3A 99 |TB.0:U.0......:.|
000014B0: 22 44 52 55 4B 20 4F 50 20 3C 2A 3E 20 54 45 52 |"DRUK OP <*> TER|
000014C0: 55 47 20 4E 41 41 52 20 4D 45 4E 55 22 00 F0 1C |UG NAAR MENU"...|
000014D0: 94 07 99 22 45 52 20 5A 49 4A 4E 22 3B 4E 3B 22 |..."ER ZIJN";N;"|
000014E0: 4E 41 4D 45 4E 20 49 4E 47 45 56 4F 45 52 44 22 |NAMEN INGEVOERD"|
000014F0: 00 1C 1D 9E 07 85 22 11 11 11 11 11 57 45 4C 4B |......".....WELK|
00001500: 45 20 54 41 42 20 57 49 4C 54 20 55 20 47 45 42 |E TAB WILT U GEB|
00001510: 52 55 49 4B 45 4E 20 22 3B 54 42 24 00 37 1D A8 |RUIKEN ";TB$.7..|
00001520: 07 54 42 B2 C5 28 54 42 24 29 3A 8B 54 42 24 B2 |.TB..(TB$):.TB$.|
00001530: 22 2A 22 A7 35 39 30 00 60 1D B2 07 8B 54 42 B1 |"*".590.`....TB.|
00001540: 34 34 A7 99 22 44 45 5A 45 20 54 41 42 20 49 53 |44.."DEZE TAB IS|
00001550: 20 54 45 20 47 52 4F 4F 54 22 3A 89 31 39 33 30 | TE GROOT":.1930|
00001560: 00 8D 1D C6 07 99 3A 99 22 57 45 4C 4B 20 4E 55 |......:."WELK NU|
00001570: 4D 4D 45 52 20 42 45 47 49 4E 4E 45 4E 20 12 22 |MMER BEGINNEN ."|
00001580: 3B 49 AA 4E 4D 3B 3A 85 22 92 22 3B 49 00 B1 1D |;I.NM;:.".";I...|
00001590: D0 07 8B 49 B1 4E A7 99 22 49 4E 56 4F 45 52 20 |...I.N.."INVOER |
000015A0: 49 53 20 54 45 20 48 4F 4F 47 22 3A 89 31 39 39 |IS TE HOOG":.199|
000015B0: 30 00 D9 1D DA 07 99 3A 85 22 48 4F 45 56 45 45 |0......:."HOEVEE|
000015C0: 4C 20 4E 41 4D 45 4E 20 4F 50 20 45 45 4E 20 4C |L NAMEN OP EEN L|
000015D0: 49 4A 53 54 20 22 3B 4E 4D 00 FA 1D E4 07 8B 4E |IJST ";NM......N|
000015E0: 4D B3 31 A7 99 3B 4E 4D 3B 22 49 53 20 54 45 20 |M.1..;NM;"IS TE |
000015F0: 4C 41 41 47 22 89 32 30 31 30 00 21 1E EE 07 8B |LAAG".2010.!....|
00001600: 49 AA 4E 4D AB 31 B1 4E A7 99 22 93 49 4E 56 4F |I.NM.1.N..".INVO|
00001610: 45 52 20 54 45 20 48 4F 4F 47 22 3A 89 31 39 39 |ER TE HOOG":.199|
00001620: 30 00 4F 1E F8 07 99 22 11 11 11 11 11 11 49 4B |0.O...."......IK|
00001630: 20 47 41 20 50 52 49 4E 54 45 4E 20 45 56 45 4E | GA PRINTEN EVEN|
00001640: 20 57 41 43 48 54 45 4E 20 41 20 55 20 42 22 00 | WACHTEN A U B".|
00001650: 6E 1E 02 08 8B 4E B3 4E 4D AA 49 AB 31 A7 55 B2 |n....N.NM.I.1.U.|
00001660: 4E 4D AA 49 AB 4E 3A 4E 4D B2 4E 4D AB 55 00 7A |NM.I.N:NM.NM.U.z|
00001670: 1E 0C 08 9F 31 2C 34 3A 9D 31 00 8A 1E 16 08 81 |....1,4:.1......|
00001680: 58 B2 49 A4 4E 4D AA 49 AB 31 00 9C 1E 20 08 98 |X.I.NM.I.1... ..|
00001690: 31 2C A3 54 42 29 3B 41 24 28 58 29 00 A3 1E 2A |1,.TB);A$(X)...*|
000016A0: 08 82 58 00 AD 1E 34 08 98 31 3A A0 31 00 C0 1E |..X...4..1:.1...|
000016B0: 3E 08 8B 4E B1 49 AA 4E 4D AB 31 A7 31 39 32 30 |>..N.I.NM.1.1920|
000016C0: 00 C9 1E 48 08 89 35 39 30 00 DE 1E 98 08 8F 20 |...H..590...... |
000016D0: 5A 49 45 4E 20 56 41 4E 20 4C 49 4A 53 54 00 EB |ZIEN VAN LIJST..|
000016E0: 1E A2 08 8B 4E B2 30 A7 37 31 30 00 FC 1E B6 08 |....N.0.710.....|
000016F0: 99 C7 28 31 34 37 29 3A 58 54 B2 30 00 16 1F C0 |..(147):XT.0....|
00001700: 08 99 3A 99 22 20 31 29 20 41 4C 4C 45 53 20 5A |..:." 1) ALLES Z|
00001710: 49 45 4E 22 3A 99 00 3D 1F CA 08 99 3A 99 22 20 |IEN":..=....:." |
00001720: 32 29 20 45 45 4E 20 44 49 53 4B 45 54 54 45 20 |2) EEN DISKETTE |
00001730: 49 4E 44 45 58 20 5A 49 45 4E 22 3A 99 00 60 1F |INDEX ZIEN":..`.|
00001740: D4 08 99 3A 99 22 20 33 29 20 44 49 53 4B 45 54 |...:." 3) DISKET|
00001750: 54 45 20 4E 41 4D 45 4E 20 5A 49 45 4E 22 3A 99 |TE NAMEN ZIEN":.|
00001760: 00 7F 1F DE 08 99 3A 99 22 20 2A 29 20 54 45 52 |......:." *) TER|
00001770: 55 47 20 4E 41 41 52 20 4D 45 4E 55 22 3A 99 00 |UG NAAR MENU":..|
00001780: AC 1F E8 08 99 3A 99 22 12 05 47 45 45 46 20 4E |.....:."..GEEF N|
00001790: 55 20 48 45 54 20 47 45 57 45 4E 53 54 45 20 43 |U HET GEWENSTE C|
000017A0: 49 4A 46 45 52 20 49 4E 20 92 1F 22 00 C0 1F F2 |IJFER IN .."....|
000017B0: 08 A1 51 24 3A 8B 51 24 B2 22 22 A7 32 32 39 30 |..Q$:.Q$."".2290|
000017C0: 00 D0 1F FC 08 8B 51 24 B2 22 2A 22 A7 35 39 30 |......Q$."*".590|
000017D0: 00 E0 1F 06 09 8B 51 24 B2 22 31 22 A7 39 35 30 |......Q$."1".950|
000017E0: 00 F1 1F 10 09 8B 51 24 B2 22 32 22 A7 32 33 35 |......Q$."2".235|
000017F0: 30 00 02 20 1A 09 8B 51 24 B2 22 33 22 A7 32 37 |0.. ...Q$."3".27|
00001800: 30 30 00 0C 20 24 09 89 32 32 39 30 00 2A 20 2E |00.. $..2290.* .|
00001810: 09 85 22 11 11 11 11 57 45 4C 4B 45 20 44 49 53 |.."....WELKE DIS|
00001820: 4B 45 54 54 45 22 3B 44 4B 24 00 42 20 38 09 54 |KETTE";DK$.B 8.T|
00001830: 54 24 B2 44 4B 24 3A 44 4B 24 B2 22 20 22 AA 54 |T$.DK$:DK$." ".T|
00001840: 54 24 00 54 20 42 09 4C 45 B2 C3 28 44 4B 24 29 |T$.T B.LE..(DK$)|
00001850: 3A 49 B2 31 00 64 20 4C 09 99 C7 28 31 34 37 29 |:I.1.d L...(147)|
00001860: 3A 4C B2 30 00 7A 20 56 09 8B 50 52 B2 31 A7 9F |:L.0.z V..PR.1..|
00001870: 31 2C 34 3A 9D 31 3A 4C B2 30 00 85 20 60 09 81 |1,4:.1:L.0.. `..|
00001880: 49 B2 31 A4 4E 00 BC 20 65 09 8B C8 28 41 24 28 |I.1.N.. e...(A$(|
00001890: 49 29 2C 31 29 B2 22 2B 22 AF C9 28 41 24 28 49 |I),1)."+"..(A$(I|
000018A0: 29 2C 4C 45 29 B2 44 4B 24 A7 99 22 12 22 41 24 |),LE).DK$.."."A$|
000018B0: 28 49 29 22 92 22 3A 89 32 34 32 35 00 DE 20 6A |(I)".":.2425.. j|
000018C0: 09 8B C9 28 41 24 28 49 29 2C 4C 45 29 B2 44 4B |...(A$(I),LE).DK|
000018D0: 24 A7 99 41 24 28 49 29 3A 89 32 34 32 35 00 E8 |$..A$(I):.2425..|
000018E0: 20 74 09 89 32 34 34 30 00 F2 20 79 09 4C B2 4C | t..2440.. y.L.L|
000018F0: AA 31 00 11 21 7E 09 59 B2 30 3A 58 54 B2 58 54 |.1..!~.Y.0:XT.XT|
00001900: AA C5 28 CA 28 41 24 28 49 29 2C 32 33 2C 33 29 |..(.(A$(I),23,3)|
00001910: 29 00 25 21 88 09 8B 4C B2 32 30 AF 50 52 B2 30 |).%!...L.20.PR.0|
00001920: A7 32 34 35 35 00 2C 21 92 09 82 49 00 5C 21 97 |.2455.,!...I.\!.|
00001930: 09 8B 51 24 B2 22 32 22 AF 4C B3 32 30 AF 4C B1 |..Q$."2".L.20.L.|
00001940: 30 A7 99 22 12 22 3B 36 36 34 AB 58 54 3B 22 42 |0..".";664.XT;"B|
00001950: 4C 4F 43 4B 53 20 46 52 45 45 92 22 00 77 21 99 |LOCKS FREE.".w!.|
00001960: 09 8B 50 52 B2 31 A7 98 31 3A A0 31 3A 50 52 B2 |..PR.1..1:.1:PR.|
00001970: 30 3A 89 32 35 33 30 00 A1 21 9C 09 8B 51 24 B2 |0:.2530..!...Q$.|
00001980: 22 32 22 AF 4C B3 32 30 AF 4C B1 30 A7 99 A3 31 |"2".L.20.L.0...1|
00001990: 38 29 22 91 12 90 50 92 1F 52 49 4E 54 45 4E 20 |8)"...P..RINTEN |
000019A0: 22 00 D4 21 A6 09 99 22 11 44 52 55 4B 20 4F 50 |"..!...".DRUK OP|
000019B0: 20 54 4F 45 54 53 20 4F 46 20 3C 2A 3E 20 54 45 | TOETS OF <*> TE|
000019C0: 52 55 47 20 4E 41 41 52 20 4D 45 4E 55 22 3A 50 |RUG NAAR MENU":P|
000019D0: 24 B2 22 22 00 E8 21 B0 09 A1 50 24 3A 8B 50 24 |$.""..!...P$:.P$|
000019E0: B2 22 22 A7 32 34 38 30 00 05 22 BA 09 8B 50 24 |."".2480.."...P$|
000019F0: B2 22 50 22 AF 4C B3 32 30 AF 51 24 B2 22 32 22 |."P".L.20.Q$."2"|
00001A00: A7 32 36 30 30 00 15 22 C4 09 8B 50 24 B2 22 2A |.2600.."...P$."*|
00001A10: 22 A7 35 39 30 00 2E 22 CE 09 8B 4C B2 32 30 A7 |".590.."...L.20.|
00001A20: 4C B2 31 3A 99 C7 28 31 34 37 29 3A 82 49 00 38 |L.1:..(147):.I.8|
00001A30: 22 D8 09 89 32 32 30 30 00 5B 22 E2 09 99 22 91 |"...2200.["...".|
00001A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A50: 20 20 20 20 20 20 20 20 20 20 22 00 65 22 EC 09 | ".e"..|
00001A60: 89 32 32 33 30 00 7E 22 28 0A 8F 20 50 52 49 4E |.2230.~"(.. PRIN|
00001A70: 54 20 45 45 4E 20 44 49 53 4B 45 54 54 45 00 98 |T EEN DISKETTE..|
00001A80: 22 32 0A 99 A3 31 31 29 22 12 45 56 45 4E 20 57 |"2...11)".EVEN W|
00001A90: 41 43 48 54 45 4E 92 22 00 B3 22 3C 0A 58 54 B2 |ACHTEN.".."<.XT.|
00001AA0: 30 3A 50 52 B2 31 3A 8B 51 24 B2 22 32 22 A7 32 |0:PR.1:.Q$."2".2|
00001AB0: 33 39 30 00 C4 22 46 0A 8B 51 24 B2 22 33 22 A7 |390.."F..Q$."3".|
00001AC0: 32 37 30 30 00 E2 22 8C 0A 4C B2 31 3A 8F 20 5A |2700.."..L.1:. Z|
00001AD0: 4F 45 4B 20 44 49 53 4B 45 54 54 45 20 4E 41 4D |OEK DISKETTE NAM|
00001AE0: 45 4E 00 EE 22 96 0A 99 C7 28 31 34 37 29 00 F9 |EN.."....(147)..|
00001AF0: 22 A0 0A 81 49 B2 31 A4 4E 00 22 23 AA 0A 8B C8 |"...I.1.N."#....|
00001B00: 28 41 24 28 49 29 2C 31 29 B2 22 2B 22 A7 99 22 |(A$(I),1)."+".."|
00001B10: 12 22 3B 41 24 28 49 29 3B 22 92 22 3A 4C B2 4C |.";A$(I);".":L.L|
00001B20: AA 31 00 31 23 B4 0A 8B 4C B2 32 30 A7 32 34 35 |.1.1#...L.20.245|
00001B30: 35 00 3E 23 BE 0A 82 49 3A 89 32 34 35 35 00 54 |5.>#...I:.2455.T|
00001B40: 23 F0 0A 8F 20 5A 4F 45 4B 45 4E 20 49 4E 20 4C |#... ZOEKEN IN L|
00001B50: 49 4A 53 54 00 61 23 FA 0A 8B 4E B2 30 A7 37 31 |IJST.a#...N.0.71|
00001B60: 30 00 6D 23 04 0B 99 C7 28 31 34 37 29 00 90 23 |0.m#....(147)..#|
00001B70: 0E 0B 99 22 44 52 55 4B 20 4F 50 20 3C 2A 3E 20 |..."DRUK OP <*> |
00001B80: 54 45 52 55 47 20 4E 41 41 52 20 4D 45 4E 55 22 |TERUG NAAR MENU"|
00001B90: 00 B9 23 18 0B 99 3A 99 22 57 45 4C 4B 45 20 4E |..#...:."WELKE N|
00001BA0: 41 41 4D 20 57 49 4C 20 4A 45 20 56 49 4E 44 45 |AAM WIL JE VINDE|
00001BB0: 4E 20 22 3A 99 3A 4A B2 30 00 C1 23 22 0B 85 41 |N ":.:J.0..#"..A|
00001BC0: 24 00 D1 23 2C 0B 8B 41 24 B2 22 2A 22 A7 35 39 |$..#,..A$."*".59|
00001BD0: 30 00 DC 23 36 0B 81 49 B2 31 A4 4E 00 E8 23 40 |0..#6..I.1.N..#@|
00001BE0: 0B 81 41 B2 31 A4 31 36 00 06 24 4A 0B 8B CA 28 |..A.1.16..$J...(|
00001BF0: 41 24 28 49 29 2C 41 2C C3 28 41 24 29 29 B2 41 |A$(I),A,.(A$)).A|
00001C00: 24 A7 32 39 34 30 00 10 24 54 0B 82 41 3A 82 49 |$.2940..$T..A:.I|
00001C10: 00 1E 24 5E 0B 8B 4A B2 31 A7 32 38 33 30 00 47 |..$^..J.1.2830.G|
00001C20: 24 68 0B 99 3A 99 22 49 4B 20 4B 41 4E 20 12 3C |$h..:."IK KAN .<|
00001C30: 22 3B 41 24 3B 22 3E 92 20 4E 49 45 54 20 56 49 |";A$;">. NIET VI|
00001C40: 4E 44 45 4E 22 3A 99 00 51 24 72 0B 89 32 38 33 |NDEN":..Q$r..283|
00001C50: 30 00 7D 24 7C 0B 99 3A 99 22 49 4B 20 48 45 42 |0.}$|..:."IK HEB|
00001C60: 20 47 45 56 4F 4E 44 45 4E 20 57 41 54 20 4A 45 | GEVONDEN WAT JE|
00001C70: 20 5A 4F 43 48 54 22 3A 99 3A 4A B2 31 00 96 24 | ZOCHT":.:J.1..$|
00001C80: 86 0B 99 22 12 22 3B 41 24 28 49 29 3B 22 20 92 |...".";A$(I);" .|
00001C90: 22 3A 99 3A 82 49 00 A0 24 90 0B 89 32 38 33 30 |":.:.I..$...2830|
00001CA0: 00 B1 24 B8 0B 8F 20 55 49 54 50 52 49 4E 54 45 |..$... UITPRINTE|
00001CB0: 4E 00 BE 24 BD 0B 8B 4E B2 30 A7 37 31 30 00 CA |N..$...N.0.710..|
00001CC0: 24 C2 0B 99 C7 28 31 34 37 29 00 FB 24 CC 0B 99 |$....(147)..$...|
00001CD0: 3A 99 22 20 31 29 20 20 55 49 54 50 52 49 4E 54 |:." 1) UITPRINT|
00001CE0: 45 4E 20 4D 45 54 20 44 45 20 48 41 4E 44 20 49 |EN MET DE HAND I|
00001CF0: 4E 53 54 45 4C 4C 45 4E 22 3A 99 00 1F 25 D6 0B |NSTELLEN":...%..|
00001D00: 99 3A 99 22 20 32 29 20 20 41 55 54 4F 4D 41 54 |.:." 2) AUTOMAT|
00001D10: 49 53 43 48 20 50 52 49 4E 54 45 4E 22 3A 99 00 |ISCH PRINTEN":..|
00001D20: 3F 25 DB 0B 99 3A 99 22 20 2A 29 20 20 54 45 52 |?%...:." *) TER|
00001D30: 55 47 20 4E 41 41 52 20 4D 45 4E 55 22 3A 99 00 |UG NAAR MENU":..|
00001D40: 5D 25 E0 0B 99 3A 99 22 20 20 20 20 20 12 44 52 |]%...:." .DR|
00001D50: 55 4B 20 4F 50 20 54 4F 45 54 53 92 22 00 71 25 |UK OP TOETS.".q%|
00001D60: EA 0B A1 51 24 3A 8B 51 24 B2 22 22 A7 33 30 35 |...Q$:.Q$."".305|
00001D70: 30 00 81 25 F4 0B 8B 51 24 B2 22 2A 22 A7 35 39 |0..%...Q$."*".59|
00001D80: 30 00 92 25 FE 0B 8B 51 24 B2 22 31 22 A7 31 39 |0..%...Q$."1".19|
00001D90: 30 30 00 A8 25 08 0C 51 B2 C5 28 51 24 29 3A 8B |00..%..Q..(Q$):.|
00001DA0: 51 B1 32 A7 33 30 35 30 00 C5 25 12 0C 99 A3 31 |Q.2.3050..%....1|
00001DB0: 35 29 22 11 11 11 57 41 43 48 54 20 45 56 45 4E |5)"...WACHT EVEN|
00001DC0: 22 3A 4C B2 30 00 D6 25 A0 0F 9F 31 2C 34 3A 9D |":L.0..%...1,4:.|
00001DD0: 31 3A 58 58 B2 30 00 E1 25 AA 0F 81 49 B2 31 A4 |1:XX.0..%...I.1.|
00001DE0: 4E 00 F0 25 AF 0F 8B 49 49 B1 4E A7 58 58 B2 31 |N..%...II.N.XX.1|
00001DF0: 00 04 26 B4 0F 8B 58 58 B2 30 A7 98 31 2C 41 24 |..&...XX.0..1,A$|
00001E00: 28 49 29 3B 00 17 26 B9 0F 8B 58 58 B2 31 A7 98 |(I);..&...XX.1..|
00001E10: 31 2C 41 24 28 49 29 00 29 26 BE 0F 4C B2 4C AA |1,A$(I).)&..L.L.|
00001E20: 31 3A 49 49 B2 49 AA 35 37 00 40 26 C3 0F 51 B2 |1:II.I.57.@&..Q.|
00001E30: C3 28 41 24 28 49 29 29 3A 54 42 B2 34 30 AB 51 |.(A$(I)):TB.40.Q|
00001E40: 00 59 26 C8 0F 8B 58 58 B2 30 A7 98 31 2C A3 54 |.Y&...XX.0..1,.T|
00001E50: 42 29 3B 41 24 28 49 49 29 00 69 26 D2 0F 8B 4C |B);A$(II).i&...L|
00001E60: B2 35 37 A7 8D 35 30 30 30 00 76 26 DC 0F 82 49 |.57..5000.v&...I|
00001E70: 3A 98 31 3A A0 31 00 7F 26 E6 0F 89 35 39 30 00 |:.1:.1..&...590.|
00001E80: 8B 26 88 13 81 53 50 B2 31 A4 39 00 92 26 92 13 |.&...SP.1.9..&..|
00001E90: 98 31 00 9E 26 9C 13 82 53 50 3A 4C B2 30 00 A9 |.1..&...SP:L.0..|
00001EA0: 26 A6 13 49 B2 49 49 3A 8E 00 AF 26 70 17 80 00 |&..I.II:...&p...|
00001EB0: 00 00 |.. |
....... T.1 .120.&.N.T.1:."SORT 2",8,1.H
.X..DI$(100):.A$(900):DEV.8:.580.V...."
.WELK SCHIJFNUMMER ";SN$..
...." .
"......" .EVEN WACHTEN"...... T.
0.DP.5:. DI$(T)."":. T...... 210.....DI$
(0).I(DI$(0),5):DI$(0).H(DI$(0),0).!. ..
I.1.DP.1.E...DI$(I).DI$(I)."
":DI$(I).H(DI$(I),26).SN$.DI$(0).K.
....T...QQ.1.Z.H.....R.DP.0:. 8,DEV,0,"$
"......#8,T$:.#8,T$.B....#8,T$:.#8,T$:.T
$."". 8:.......#8,TA$:.#8,T$:.TA$.."".:
TA.F(TA$)......#8,T$:.T$.."".:.P.F(T$).!
....T$..G(34).T$.."". 250.1....T$."". 23
0.<...T1$."".G."..#8,T$.E.,.. T$.."". T1
$.T1$.T$:.290...6.. I(T1$,1)." ".:T1$.H(
T1$,(C(T1$).1)):.310...@.. DP.0 .:DI$(DP
).T1$:.380...J.DI$(DP).T1$."
":DI$(DP).H(DI$(DP),22)...T.. .
(TA.100).1.390,400,420,440,460.O.^.. .(T
A.10).1.390,400,420,440,460,480,500,520,
540,560...H.. TA.1 .390,400,420,440,460,
480,500,520,540,560...R.DI$(DP).DI$(DP).
" "...|.DP.DP.1:.230.F...DI$(DP).DI$(DP)
."0":......DI$(DP).DI$(DP)."1":.TA.9.:TA
.TA.10:.TA.89.:TA.TA.90.......A...DI$(DP
).DI$(DP)."2":.TA.19.:TA.TA.20:.TA.179.:
TA.TA.180.G.........DI$(DP).DI$(DP)."3":
.TA.29.:TA.TA.30:.TA.269.:TA.TA.270...B.
..E.L.DI$(DP).DI$(DP)."4":.TA.39.:TA.TA.
40:.TA.359.:TA.TA.360.K.V.......DI$(DP).
DI$(DP)."5":.TA.49.:TA.TA.50:.TA.449.:TA
.TA.450.......I...DI$(DP).DI$(DP)."6":.T
A.59.:TA.TA.60:.TA.539.:TA.TA.540.O.....
X...DI$(DP).DI$(DP)."7":.TA.69.:TA.TA.70
.~.........DI$(DP).DI$(DP)."8":.TA.79.:T
A.TA.80...&...V.0.DI$(DP).DI$(DP)."9":.T
A.89.:TA.TA.90...:.....D..53280,14:.5328
1,14...N..G(147).,.X..".MET DIT PROGRAMM
A KUN JE MAXIMAAL":..X.B.."900 WOORDEN A
LPHABETISCH SORTEREN.":....L.." 1) TOE
VOEGEN AAN EEN (NIEUWE) LIJST":....V.."
2) LOAD OUDE LIJST ":..M...." 3) AFH
ALEN VAN DE LIJST ":......." 4) SORTER
EN OP ALPHABET":......." 5) DE LIJST S
AVEN OP TAPE OF DISK":..D...." 6) DE L
IJST LATEN ZIEN ":..I...." 7) DE LIJS
T UITPRINTEN ":......." 8) ZOEKEN IN
LIJST":......." 9) S T O P P E N":..R.
..." .GEEF NU HET GEWENSTE CIJFER IN !
."...F..Q$:Q.E(Q$):.Q.740,1270,1500,1830
,1070,2200,3000,2800,6000...P..710.9.Z..
**** TOEVOEGROUTINE ****.G....TL.1.749.
X...TL.1:.G(147)......"DISK. NAMEN MOETE
N OOK INGEVOERD WORDEN"......:."HIER MOE
T WEL EEN <+> VOORGEZET WORDEN"......:."
OOK HET DISK. NR. MOET INGEVULD WORDEN".
.....:.:.:.X.1.15.......13)".DRUK OP TOE
TS.".$....T.1.500:.T.M....X$:.X$.""...13
)". ":.X.Y....G(147)......"
GEEF NU DE TE SORTEREN WOORDEN ":....
..."(MET EEN MAXIMUM VAN 900) IN.":..X..
.."NA HET LAATSTE WOORD MOET JE HET ":.
......"TEKEN <*> INGEVEN !":..#...."AL
S JE <$> INGEEFT WORDT EEN DISK ":..B...
."DIREKTORIE TOEGEVOEGD":..R....".......
.................................". . ..
"NR PROGR. NAAM PRG BLK DNR"
...*.....>..N.1,:."...";...H..A$.N.R.QQ.
0:Q1.1...\..A$."*".590...F.. A$."$".:TX.
1:.130.%.K..TX.1.." . U KUNT NU I
NVOEREN":TX.0.O.P.. QQ.1 .:A$(N.1).DI$(Q
1):Q1.Q1.1:.900.G.Z.. QQ.0 .:A$(N.1).A$.
W...N.N.1:."."N...... QQ.1 .:.Q1..(DP).8
80......N.900.590......830.F.... **** LI
STROUTINE ****.V....G(147):P.1......"VAN
AF WELKE LETTER TE BEGINNEN".'....:."SPA
TIE BETEKEND VANAF HET BEGIN":..;.... Q$
:.Q$."".954.K....Q$." ".960.W.... I.1.N.
T.... H(A$(I),1).Q$.:P.I:I.N.Z.........L
.0...J..I.P.N...T..I,A$(I).....L.L.1....
..L.20.1040.G....P$:.P$."*".590.Y.... P$
."". 1010.....L.0:.G(147)......I......P$
:.P$."".1050...$.. 590.+.... **** SAVE R
OUTINE ****.8.3..N.0.710.H.8..G(147):.:.
.P.B.."ONDER WELKE NAAM MOET DE LYST ":.
...L.."VASTGELEGD WORDEN";N$...V..:.:...
.`..".D.ISK OF .T.APE".E.J.. TT$:.TT$.""
.1130...T..TT$."D".:.1,8,1,N$.",S,W":.12
20...~..TT$.."T". 1130."...."LEG NU EEN
DATA-KASSETTE IN!".L...."ALS JE KLAAR BE
NT, DAN DRUK MAAR":..N...."OP EEN WILLEK
EURIGE TOETS.".X....:.:.......Q$:.Q$."".
1200......1,1,1,N$...D..I.1.N...N..1,A$(
I)...X..I.E... 1:.590...... **** INLEZEN
****......G(147)......" WELKE NAAM HEEF
T DE OUDE LYST ":.:. N$.$....:.:..<..
..".D.ISK OF .T.APE".U.... TT$:.TT$."" .
1310.{.(.. TT$."D".:.1,8,7,N$.",S,R":.1
400...2..TT$.."T".1310...<..".LEG DAN NU
DEZE DATA-KASSETTE IN !":....F.."ALS JE
KLAAR BENT, DRUK DAN EEN ":....P.."WILL
EKEURIGE TOETS....Z..Q$:.Q$."".1370...D.
.:.:..+.N..1,1,0,N$.Y.X.N.N.1:.".INGELEZ
EN AANTAL RECORDS IS ?":..L....1,A$(N):.
"."N.{....ST.0.1480.....N.N.1:.N.900.148
0......1410...H. 1...R..590.I.... **** V
ERVALROUTINE ****.V....N.0.710......G(14
7)......"GEEF DAN NU DE WOORDEN IN WELKE
":..7...."MOETEN VERVALLEN. TYPE DAARTO
E DE":..B...."BETREFFENDE WOORDEN HELEMA
AL IN .":......."INDIEN EEN DISKDIR. MOE
T VERVALLEN"......"TYP DAN '@...' ... IS
HET DISK NR.":......."OM EEN REGELNR TE
LATEN VERVALLEN"......"TYP DAN '#...' .
.. IS HET REGELNR.":.:..;.".."ALS JE KLA
AR BENT, TYPE DAN '*' IN":..E.6.."WELKE
WOORDEN MOETEN VERVALLEN ?":..M.@..A$.~.
J..A$."*". 590...T.. H(A$,1)."@".:B$.J(A
$,2,C(A$)):.1780...Y..H(A$,1)."#".:I.E(J
(A$,2,3)):A$(I)."ZZZZZZ":.1802...^..I.1.
N...H..A$(I).A$.:A$(I)."ZZZZZZ":I.N:W.1.
..R..I.%.|..W.1 .1802.U....:."HET WOORD
DAT MOEST VERVALLEN BE- ":..Z...."VIND
ZICH NIET IN DE LYST !":.......1590....
.. I.1. N......J(A$(I),27,3).B$ .:A$(I).
"ZZZZZZ".H....".NR"I:. I.Y....49152,A$(1
)...... I.N.1 ..1...... A$(N).."ZZZZZZ".
:I.1:.1806.....N.N.1:. I.'.... I.0. 590.
/.... I.9....1510.R.... **** SORTEREN **
**.H.&..49152,A$(1):.590...L.. ** PRINTE
N VAN LIJST **...V.I.1:NM.0......G(147):
TB.0:U.0.M....:."DRUK OP <*> TERUG NAAR
MENU"......"ER ZIJN";N;"NAMEN INGEVOERD"
......".....WELKE TAB WILT U GEBRUIKEN "
;TB$.7...TB.E(TB$):.TB$."*".590.`....TB.
44.."DEZE TAB IS TE GROOT":.1930...F..:.
"WELK NUMMER BEGINNEN .";I.NM;:.".";I...
P..I.N.."INVOER IS TE HOOG":.1990.Y.Z..:
."HOEVEEL NAMEN OP EEN LIJST ";NM......N
M.1..;NM;"IS TE LAAG".2010.!....I.NM.1.N
..".INVOER TE HOOG":.1990.O...."......IK
GA PRINTEN EVEN WACHTEN A U B".N....N.N
M.I.1.U.NM.I.N:NM.NM.U.Z....1,4:.1......
X.I.NM.I.1... ..1,.TB);A$(X)...*..X...4.
.1: 1...>..N.I.NM.1.1920.I.H..590......
ZIEN VAN LIJST......N.0.710......G(147):
XT.0......:." 1) ALLES ZIEN":..=.J..:."
2) EEN DISKETTE INDEX ZIEN":..`.T..:." 3
) DISKETTE NAMEN ZIEN":......:." *) TER
UG NAAR MENU":.......:."..GEEF NU HET GE
WENSTE CIJFER IN .."......Q$:.Q$."".2290
.P....Q$."*".590......Q$."1".950......Q$
."2".2350.. ...Q$."3".2700.. $..2290.* .
.."....WELKE DISKETTE";DK$.B 8.TT$.DK$:D
K$." ".TT$.T B.LE.C(DK$):I.1.D L..G(147)
:L.0.Z V..PR.1..1,4:.1:L.0.. `..I.1.N..
E..H(A$(I),1)."+".I(A$(I),LE).DK$.."."A$
(I)".":.2425.. J..I(A$(I),LE).DK$..A$(I)
:.2425.. T..2440.. Y.L.L.1..!~.Y.0:XT.XT
.E(J(A$(I),23,3)).%!...L.20.PR.0.2455.,!
...I.\!...Q$."2".L.20.L.0..".";664.XT;"B
LOCKS FREE.".W!...PR.1..1: 1:PR.0:.2530.
.!...Q$."2".L.20.L.0...18)"...P..RINTEN
".T!...".DRUK OP TOETS OF <*> TERUG NAAR
MENU":P$.""..!...P$:.P$."".2480.."...P$
."P".L.20.Q$."2".2600.."D..P$."*".590.."
N..L.20.L.1:.G(147):.I.8"X..2200.["...".
".E"...2230.~"
(.. PRINT EEN DISKETTE.."2...11)".EVEN W
ACHTEN.".."<.XT.0:PR.1:.Q$."2".2390.D"F.
.Q$."3".2700.."..L.1:. ZOEK DISKETTE NAM
EN.."...G(147).." ..I.1.N."#...H(A$(I),1
)."+"..".";A$(I);".":L.L.1.1#...L.20.245
5.>#...I:.2455.T#... ZOEKEN IN LIJST.A#.
..N.0.710.M#...G(147)..#..."DRUK OP <*>
TERUG NAAR MENU"..#...:."WELKE NAAM WIL
JE VINDEN ":.:J.0.A#"..A$.Q#,..A$."*".59
0..#6..I.1.N..#@..A.1.16..$J..J(A$(I),A,
C(A$)).A$.2940..$T..A:.I..$^..J.1.2830.G
$H..:."IK KAN .<";A$;">. NIET VINDEN":..
Q$R..2830.}$|..:."IK HEB GEVONDEN WAT JE
ZOCHT":.:J.1..$...".";A$(I);" .":.:.I.
$...2830..$... UITPRINTEN..$...N.0.710.J
$B..G(147)..$L..:." 1) UITPRINTEN MET D
E HAND INSTELLEN":...%V..:." 2) AUTOMAT
ISCH PRINTEN":..?%...:." *) TERUG NAAR
MENU":..]%...:." .DRUK OP TOETS.".Q%
...Q$:.Q$."".3050..%...Q$."*".590..%...Q
$."1".1900..%..Q.E(Q$):.Q.2.3050.E%....1
5)"...WACHT EVEN":L.0.V% ..1,4:.1:XX.0..
%...I.1.N..%...II.N.XX.1..&...XX.0..1,A$
(I);..&...XX.1..1,A$(I).)&..L.L.1:II.I.5
7.@&C.Q.C(A$(I)):TB.40.Q.Y&H..XX.0..1,.T
B);A$(II).I&R..L.57..5000.V&...I:.1: 1.
&...590..&...SP.1.9..&...1..&...SP:L.0..
&..I.II:...&P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL