PROGRAMMA BESTAN
FILE INFORMATION
FILENAME(S): PROGRAMMA BESTAN
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:23:21
APPEARS ON: 1 disk(s)
FILE HASH
edacb022223eb065174d0f4e539db0e66aa8bbc889a1a0eac11e2ea57978ee24
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 13 1 | PROGRAMMA BESTAN | PRG | DuncanTwain | 30 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 36 08 01 00 9C 3A 51 B2 AB 31 3A 4A B2 31 |..6....:Q..1:J.1|
00000010: 32 34 35 3A 49 B2 34 35 3A 86 44 24 28 4A 29 3A |245:I.45:.D$(J):|
00000020: 97 36 34 36 2C 30 3A 86 4E 24 28 49 29 3A 52 B2 |.646,0:.N$(I):R.|
00000030: AB 31 3A 89 34 38 00 43 08 02 00 8B 51 B3 30 89 |.1:.48.C....Q.0.|
00000040: 31 36 37 00 8F 08 03 00 99 22 93 12 53 4F 52 54 |167......"..SORT|
00000050: 45 52 45 4E 20 56 2F 48 20 42 45 53 54 41 4E 44 |EREN V/H BESTAND|
00000060: 20 47 45 42 45 55 52 54 20 49 4E 20 41 53 43 49 | GEBEURT IN ASCI|
00000070: 49 20 20 20 20 20 20 56 4F 4C 47 4F 52 44 45 20 |I VOLGORDE |
00000080: 21 21 20 20 20 20 20 20 20 20 20 20 20 11 22 00 |!! .".|
00000090: BC 08 04 00 99 22 54 45 20 53 4F 52 54 45 52 45 |....."TE SORTERE|
000000A0: 4E 20 49 4E 20 54 4F 54 41 41 4C 20 22 3B 51 AA |N IN TOTAAL ";Q.|
000000B0: 31 3B 22 20 4E 41 4D 45 4E 22 3A 99 00 FD 08 05 |1;" NAMEN":.....|
000000C0: 00 99 22 11 20 44 49 54 20 50 52 4F 47 52 41 4D |..". DIT PROGRAM|
000000D0: 4D 41 20 48 45 45 46 54 20 45 45 4E 20 53 55 50 |MA HEEFT EEN SUP|
000000E0: 45 52 53 4E 45 4C 4C 45 20 20 20 20 20 20 20 20 |ERSNELLE |
000000F0: 20 53 4F 52 54 2D 52 4F 55 54 49 4E 45 00 33 09 | SORT-ROUTINE.3.|
00000100: 06 00 99 22 11 20 20 42 45 47 49 4E 54 49 4A 44 |...". BEGINTIJD|
00000110: 20 3D 22 3B 3A 54 49 24 B2 22 30 30 30 30 30 30 | =";:TI$."000000|
00000120: 22 3A 99 22 12 22 54 49 24 3A 54 41 B2 C5 28 54 |":."."TI$:TA..(T|
00000130: 49 24 29 00 46 09 07 00 23 53 52 54 28 44 24 28 |I$).F...#SRT(D$(|
00000140: 51 29 2C 31 36 29 00 6F 09 08 00 99 22 11 44 45 |Q),16).o....".DE|
00000150: 20 45 49 4E 44 54 49 4A 44 20 3D 22 3B 3A 99 22 | EINDTIJD =";:."|
00000160: 12 22 54 49 24 3A 54 42 B2 C5 28 54 49 24 29 00 |."TI$:TB..(TI$).|
00000170: A0 09 09 00 99 22 11 44 45 20 53 4F 52 54 45 45 |.....".DE SORTEE|
00000180: 52 54 49 4A 44 20 57 41 53 3A 20 20 20 11 12 22 |RTIJD WAS: .."|
00000190: 54 42 AB 54 41 22 20 53 45 43 4F 4E 44 45 4E 2E |TB.TA" SECONDEN.|
000001A0: 00 BD 09 0A 00 99 22 11 44 52 55 4B 20 4F 50 20 |......".DRUK OP |
000001B0: 44 45 20 53 50 41 54 49 45 41 4C 4B 2E 00 CF 09 |DE SPATIEALK....|
000001C0: 0B 00 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 00 |...198,0:.198,1.|
000001D0: D7 09 0C 00 89 34 38 00 04 0A 0D 00 99 22 93 11 |.....48......"..|
000001E0: 11 11 50 4C 41 41 54 53 20 45 45 52 53 54 20 44 |..PLAATS EERST D|
000001F0: 45 20 44 49 53 4B 45 54 54 45 20 49 4E 20 44 52 |E DISKETTE IN DR|
00000200: 49 56 45 22 00 26 0A 0E 00 99 3A 99 22 20 20 20 |IVE".&....:." |
00000210: 20 45 4E 20 47 45 45 46 20 54 4F 45 54 53 20 2D | EN GEEF TOETS -|
00000220: 20 46 31 20 2D 22 00 40 0A 0F 00 A1 20 54 53 24 | F1 -".@.... TS$|
00000230: 3A 8B 54 53 24 B3 B1 C7 28 31 33 33 29 A7 31 35 |:.TS$...(133).15|
00000240: 00 63 0A 10 00 99 22 93 11 11 11 11 11 11 1D 1D |.c....".........|
00000250: 45 56 45 4E 20 47 45 44 55 4C 44 20 41 2E 55 2E |EVEN GEDULD A.U.|
00000260: 42 2E 22 00 82 0A 11 00 9F 31 2C 38 2C 31 35 2C |B."......1,8,15,|
00000270: 22 49 22 3A A0 31 3A 9F 31 2C 38 2C 33 2C 22 24 |"I":.1:.1,8,3,"$|
00000280: 30 22 00 98 0A 12 00 81 49 B2 31 A4 31 34 32 3A |0"......I.1.142:|
00000290: A1 23 31 2C 41 24 3A 82 00 B9 0A 13 00 81 49 B2 |.#1,A$:.......I.|
000002A0: 31 A4 31 36 3A A1 23 31 2C 41 24 3A 8B 41 24 B2 |1.16:.#1,A$:.A$.|
000002B0: C7 28 31 36 30 29 A7 32 31 00 C6 0A 14 00 4E 24 |.(160).21.....N$|
000002C0: B2 4E 24 AA 41 24 00 CC 0A 15 00 82 00 E2 0A 16 |.N$.A$..........|
000002D0: 00 81 49 B2 31 A4 39 36 3A A1 23 31 2C 41 24 3A |..I.1.96:.#1,A$:|
000002E0: 82 49 00 14 0B 17 00 99 22 93 12 44 49 53 4B 4E |.I......"..DISKN|
000002F0: 41 41 4D 20 3D 22 3A 99 4E 24 3A 99 3A 99 22 12 |AAM =":.N$:.:.".|
00000300: 50 52 4F 47 52 41 4D 4D 41 27 53 20 5A 49 4A 4E |PROGRAMMA'S ZIJN|
00000310: 3A 22 3A 99 00 3E 0B 18 00 52 B2 52 AA 31 3A 4E |:":..>...R.R.1:N|
00000320: 24 28 52 29 B2 4E 24 3A 4C 24 B2 22 20 22 AA C4 |$(R).N$:L$." "..|
00000330: 28 52 29 3A 4C 24 B2 C9 28 4C 24 2C 32 29 00 4A |(R):L$..(L$,2).J|
00000340: 0B 19 00 4D B2 30 3A 54 B2 30 00 5A 0B 1A 00 4D |...M.0:T.0.Z...M|
00000350: B2 4D AA 31 3A 46 24 B2 22 22 00 6B 0B 1B 00 A1 |.M.1:F$."".k....|
00000360: 23 31 2C 4B 24 2C 54 24 2C 53 24 00 8C 0B 1C 00 |#1,K$,T$,S$.....|
00000370: 81 49 B2 31 A4 31 36 3A A1 23 31 2C 41 24 3A 8B |.I.1.16:.#1,A$:.|
00000380: 41 24 B2 C7 28 31 36 30 29 A7 33 30 00 99 0B 1D |A$..(160).30....|
00000390: 00 46 24 B2 46 24 AA 41 24 00 AE 0B 1E 00 82 3A |.F$.F$.A$......:|
000003A0: 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 30 29 00 C3 |.K$."".K$..(0)..|
000003B0: 0B 1F 00 81 49 B2 31 A4 31 30 3A A1 23 31 2C 41 |....I.1.10:.#1,A|
000003C0: 24 3A 82 00 E1 0B 20 00 A1 23 31 2C 41 24 3A 8B |$:.... ..#1,A$:.|
000003D0: 4D B3 38 A7 A1 23 31 2C 41 24 2C 41 24 3A 89 33 |M.8..#1,A$,A$:.3|
000003E0: 34 00 E9 0B 21 00 4D B2 30 00 F9 0B 22 00 8B 59 |4...!.M.0..."..Y|
000003F0: B1 31 34 34 AA 31 89 34 30 00 0D 0C 23 00 53 57 |.144.1.40...#.SW|
00000400: B2 53 54 3A 8B 54 24 B2 22 22 A7 34 30 00 2A 0C |.ST:.T$."".40.*.|
00000410: 24 00 4B B2 C6 28 4B 24 29 AB 31 32 38 3A 8B 4B |$.K..(K$).128:.K|
00000420: B3 31 B0 4B B1 34 A7 4B B2 30 00 37 0C 25 00 8B |.1.K.4.K.0.7.%..|
00000430: 54 B1 34 30 89 34 30 00 4B 0C 26 00 8B 4B B3 B1 |T.40.40.K.&..K..|
00000440: 32 A7 54 B2 54 AA 31 3A 89 32 36 00 7E 0C 27 00 |2.T.T.1:.26.~.'.|
00000450: 54 B2 30 3A 51 B2 51 AA 31 3A 4C B2 C3 28 46 24 |T.0:Q.Q.1:L..(F$|
00000460: 29 AA 34 38 3A 44 24 28 51 29 B2 46 24 AA 4C 24 |).48:D$(Q).F$.L$|
00000470: 3A 99 51 AA 31 3B 3A 99 46 24 3A 89 32 36 00 8B |:.Q.1;:.F$:.26..|
00000480: 0C 28 00 4E 24 B2 22 22 3A A0 31 00 AA 0C 29 00 |.(.N$."":.1...).|
00000490: 99 22 93 11 11 1D 1D 56 4F 4C 47 45 4E 44 45 20 |.".....VOLGENDE |
000004A0: 44 49 53 4B 45 54 54 45 20 3F 00 C2 0C 2A 00 99 |DISKETTE ?...*..|
000004B0: 22 11 11 11 1D 1D 54 4F 45 54 53 20 2D 20 46 31 |".....TOETS - F1|
000004C0: 20 2D 00 DF 0C 2B 00 99 22 11 11 11 11 11 11 11 | -...+..".......|
000004D0: 1D 1D 1D 1D 1D 1D 46 37 20 3D 20 53 54 4F 50 00 |......F7 = STOP.|
000004E0: E8 0C 2C 00 A1 20 54 24 00 FB 0C 2D 00 8B 20 54 |..,.. T$...-.. T|
000004F0: 24 B2 C7 28 31 33 33 29 A7 31 36 00 0F 0D 2E 00 |$..(133).16.....|
00000500: 8B 20 54 24 B2 C7 28 31 33 36 29 A7 89 34 38 00 |. T$..(136)..48.|
00000510: 18 0D 2F 00 89 20 34 34 00 38 0D 30 00 99 22 93 |../.. 44.8.0..".|
00000520: 05 12 20 43 4F 4D 42 41 53 49 43 20 38 32 20 47 |.. COMBASIC 82 G|
00000530: 45 4C 41 44 45 4E 20 3F 00 49 0D 31 00 99 22 20 |ELADEN ?.I.1.." |
00000540: 31 20 3D 20 4C 41 44 45 4E 00 5B 0D 32 00 99 22 |1 = LADEN.[.2.."|
00000550: 11 20 32 20 3D 20 53 41 56 45 4E 00 79 0D 33 00 |. 2 = SAVEN.y.3.|
00000560: 99 22 11 20 33 20 3D 20 53 4F 52 54 45 52 45 4E |.". 3 = SORTEREN|
00000570: 20 20 20 20 20 20 20 20 22 00 8C 0D 34 00 99 22 | "...4.."|
00000580: 11 20 34 20 3D 20 53 43 48 45 52 4D 00 A0 0D 35 |. 4 = SCHERM...5|
00000590: 00 99 22 11 20 35 20 3D 20 50 52 49 4E 54 45 4E |..". 5 = PRINTEN|
000005A0: 00 BB 0D 36 00 99 22 11 20 36 20 3D 20 4E 41 4D |...6..". 6 = NAM|
000005B0: 45 4E 20 56 2E 20 44 49 53 4B 22 00 D9 0D 37 00 |EN V. DISK"...7.|
000005C0: 99 22 11 20 37 20 3D 20 42 45 53 54 2E 47 52 2E |.". 7 = BEST.GR.|
000005D0: 2B 47 45 48 45 55 47 2E 22 00 F7 0D 38 00 99 22 |+GEHEUG."...8.."|
000005E0: 11 20 38 20 3D 20 4E 49 45 55 57 20 42 45 53 54 |. 8 = NIEUW BEST|
000005F0: 41 4E 44 20 20 20 22 00 0A 0E 39 00 99 22 11 20 |AND "...9..". |
00000600: 39 20 3D 20 45 49 4E 44 45 22 00 20 0E 3A 00 A1 |9 = EINDE". .:..|
00000610: 20 54 53 24 3A 8B 20 54 53 24 B2 22 22 A7 35 38 | TS$:. TS$."".58|
00000620: 00 30 0E 3B 00 54 53 B2 C5 28 54 53 24 29 AA 31 |.0.;.TS..(TS$).1|
00000630: 00 5C 0E 3C 00 91 20 54 53 20 89 35 38 2C 37 34 |.\.<.. TS .58,74|
00000640: 2C 36 31 2C 32 2C 31 30 30 2C 31 33 35 2C 31 33 |,61,2,100,135,13|
00000650: 2C 31 36 31 2C 31 36 38 2C 31 36 36 00 69 0E 3D |,161,168,166.i.=|
00000660: 00 8B 51 B3 30 89 31 36 37 00 B6 0E 3E 00 99 22 |..Q.0.167...>.."|
00000670: 93 11 11 11 11 50 4C 41 41 54 53 20 44 45 20 44 |.....PLAATS DE D|
00000680: 49 53 4B 45 54 54 45 20 45 4E 20 54 4F 45 54 53 |ISKETTE EN TOETS|
00000690: 20 2D 20 46 31 20 2D 20 20 20 1D 1D 11 11 11 20 | - F1 - ..... |
000006A0: 20 20 4F 46 20 20 2D 20 46 37 20 2D 20 56 4F 4F | OF - F7 - VOO|
000006B0: 52 20 4D 45 4E 55 00 D4 0E 3F 00 A1 54 53 24 3A |R MENU...?..TS$:|
000006C0: 8B 54 53 24 B2 C7 28 31 33 33 29 A7 99 22 93 22 |.TS$..(133).."."|
000006D0: 3A 89 36 36 00 E7 0E 40 00 8B 54 53 24 B2 C7 28 |:.66...@..TS$..(|
000006E0: 31 33 36 29 A7 34 38 00 EF 0E 41 00 89 36 33 00 |136).48...A..63.|
000006F0: 1C 0F 42 00 99 22 12 4E 41 41 4D 20 56 41 4E 20 |..B..".NAAM VAN |
00000700: 48 45 54 42 45 53 54 41 4E 44 20 3F 20 22 3A 85 |HETBESTAND ? ":.|
00000710: 59 24 3A 8B 59 24 B2 22 22 89 34 38 00 48 0F 43 |Y$:.Y$."".48.H.C|
00000720: 00 8B C3 28 59 24 29 B1 31 30 A7 99 22 4D 41 58 |...(Y$).10.."MAX|
00000730: 2E 20 31 30 20 4B 41 52 41 4B 54 45 52 53 20 4D |. 10 KARAKTERS M|
00000740: 41 47 21 22 3A 89 36 36 00 5E 0F 44 00 59 24 B2 |AG!":.66.^.D.Y$.|
00000750: 22 40 3A 22 AA 59 24 AA 22 2E 44 49 52 22 00 7E |"@:".Y$.".DIR".~|
00000760: 0F 45 00 99 22 93 11 11 11 1D 1D 45 45 4E 20 4F |.E.."......EEN O|
00000770: 47 45 4E 42 4C 49 4B 20 41 2E 55 2E 42 2E 00 97 |GENBLIK A.U.B...|
00000780: 0F 46 00 9F 20 32 2C 38 2C 31 2C 59 24 3A 98 32 |.F.. 2,8,1,Y$:.2|
00000790: 2C 51 3A 98 32 2C 52 00 AF 0F 47 00 81 20 59 B2 |,Q:.2,R...G.. Y.|
000007A0: 30 A4 51 3A 98 32 2C 44 24 28 59 29 3A 82 59 00 |0.Q:.2,D$(Y):.Y.|
000007B0: C6 0F 48 00 81 59 B2 30 A4 52 3A 98 32 2C 4E 24 |..H..Y.0.R:.2,N$|
000007C0: 28 59 29 3A 82 59 00 D3 0F 49 00 A0 20 32 3A 89 |(Y):.Y...I.. 2:.|
000007D0: 20 34 38 00 20 10 4A 00 99 22 93 11 11 11 11 50 | 48. .J..".....P|
000007E0: 4C 41 41 54 53 20 44 45 20 44 49 53 4B 45 54 54 |LAATS DE DISKETT|
000007F0: 45 20 45 4E 20 54 4F 45 54 53 20 2D 20 46 31 20 |E EN TOETS - F1 |
00000800: 2D 20 20 20 1D 1D 11 11 11 20 20 20 4F 46 20 20 |- ..... OF |
00000810: 2D 20 46 37 20 2D 20 56 4F 4F 52 20 4D 45 4E 55 |- F7 - VOOR MENU|
00000820: 00 3E 10 4B 00 A1 54 53 24 3A 8B 54 53 24 B2 C7 |.>.K..TS$:.TS$..|
00000830: 28 31 33 33 29 A7 99 22 93 22 3A 89 37 38 00 51 |(133)..".":.78.Q|
00000840: 10 4C 00 8B 54 53 24 B2 C7 28 31 33 36 29 A7 34 |.L..TS$..(136).4|
00000850: 38 00 59 10 4D 00 89 37 35 00 86 10 4E 00 99 22 |8.Y.M..75...N.."|
00000860: 12 4E 41 41 4D 20 56 41 4E 20 48 45 54 42 45 53 |.NAAM VAN HETBES|
00000870: 54 41 4E 44 20 3F 20 22 3A 85 59 24 3A 8B 59 24 |TAND ? ":.Y$:.Y$|
00000880: B2 22 22 89 34 38 00 B2 10 4F 00 8B C3 28 59 24 |."".48...O...(Y$|
00000890: 29 B1 31 30 A7 99 22 4D 41 58 2E 20 31 30 20 4B |).10.."MAX. 10 K|
000008A0: 41 52 41 4B 54 45 52 53 20 4D 41 47 21 22 3A 89 |ARAKTERS MAG!":.|
000008B0: 37 38 00 C0 10 50 00 8B 59 24 B2 22 22 89 34 38 |78...P..Y$."".48|
000008C0: 00 DB 10 51 00 47 48 B2 51 3A 47 52 B2 52 3A 59 |...Q.GH.Q:GR.R:Y|
000008D0: 24 B2 59 24 AA 22 2E 44 49 52 22 00 FC 10 52 00 |$.Y$.".DIR"...R.|
000008E0: 99 22 93 11 11 11 1D 1D 45 45 4E 20 4F 47 45 4E |."......EEN OGEN|
000008F0: 42 4C 49 4B 20 41 2E 55 2E 42 2E 22 00 14 11 53 |BLIK A.U.B."...S|
00000900: 00 9F 31 2C 38 2C 30 2C 59 24 3A 84 31 2C 51 3A |..1,8,0,Y$:.1,Q:|
00000910: 84 31 2C 52 00 36 11 54 00 8B 47 48 B3 30 A7 51 |.1,R.6.T..GH.0.Q|
00000920: 32 B2 51 3A 51 31 B2 30 3A 51 33 B2 30 3A 51 34 |2.Q:Q1.0:Q3.0:Q4|
00000930: B2 52 3A 89 39 34 00 70 11 55 00 99 22 93 12 47 |.R:.94.p.U.."..G|
00000940: 45 45 46 20 2D 31 2D 20 44 41 4E 20 42 45 53 54 |EEF -1- DAN BEST|
00000950: 41 4E 44 20 42 49 4A 56 4F 45 47 45 4E 20 42 49 |AND BIJVOEGEN BI|
00000960: 4A 20 20 20 20 20 20 42 45 53 54 41 41 4E 44 22 |J BESTAAND"|
00000970: 00 A2 11 56 00 99 22 12 47 45 45 46 20 2D 32 2D |...V..".GEEF -2-|
00000980: 20 44 41 4E 20 4E 49 45 55 57 20 42 45 53 54 41 | DAN NIEUW BESTA|
00000990: 4E 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ND |
000009A0: 20 22 00 B4 11 57 00 A1 47 24 3A 8B 47 24 B2 22 | "...W..G$:.G$."|
000009B0: 22 89 38 37 00 D5 11 58 00 99 22 93 11 11 11 1D |".87...X..".....|
000009C0: 1D 45 45 4E 20 4F 47 45 4E 42 4C 49 4B 20 41 2E |.EEN OGENBLIK A.|
000009D0: 55 2E 42 2E 22 00 0E 12 59 00 8B 47 24 B2 22 31 |U.B."...Y..G$."1|
000009E0: 22 A7 51 32 B2 51 AA 47 48 AA 31 3A 51 31 B2 47 |".Q2.Q.GH.1:Q1.G|
000009F0: 48 AA 31 3A 51 34 B2 52 AA 47 52 AA 31 3A 51 33 |H.1:Q4.R.GR.1:Q3|
00000A00: B2 47 52 AA 31 3A 51 B2 51 32 3A 89 39 32 00 32 |.GR.1:Q.Q2:.92.2|
00000A10: 12 5A 00 8B 47 24 B2 22 32 22 A7 51 32 B2 51 3A |.Z..G$."2".Q2.Q:|
00000A20: 51 31 B2 30 3A 51 33 B2 30 3A 51 34 B2 52 3A 89 |Q1.0:Q3.0:Q4.R:.|
00000A30: 39 32 00 3A 12 5B 00 89 38 37 00 4D 12 5C 00 8B |92.:.[..87.M.\..|
00000A40: 51 32 B1 4A A7 51 32 B2 4A 3A 51 B2 4A 00 60 12 |Q2.J.Q2.J:Q.J.`.|
00000A50: 5D 00 8B 51 34 B1 49 A7 51 34 B2 49 3A 52 B2 49 |]..Q4.I.Q4.I:R.I|
00000A60: 00 76 12 5E 00 81 59 B2 51 31 A4 51 32 3A 84 31 |.v.^..Y.Q1.Q2:.1|
00000A70: 2C 44 24 28 59 29 00 B5 12 5F 00 8B 47 24 B2 22 |,D$(Y)..._..G$."|
00000A80: 31 22 A7 52 24 B2 C9 28 44 24 28 59 29 2C 32 29 |1".R$..(D$(Y),2)|
00000A90: 3A 43 B2 C5 28 52 24 29 AA 52 AA 31 3A 43 24 B2 |:C..(R$).R.1:C$.|
00000AA0: 22 20 22 AA C4 28 43 29 3A 4C B2 C3 28 44 24 28 |" "..(C):L..(D$(|
00000AB0: 59 29 29 AB 32 00 D5 12 60 00 8B 47 24 B2 22 31 |Y)).2...`..G$."1|
00000AC0: 22 A7 44 24 28 59 29 B2 C8 28 44 24 28 59 29 2C |".D$(Y)..(D$(Y),|
00000AD0: 4C 29 AA 43 24 00 DC 12 61 00 82 59 00 F5 12 62 |L).C$...a..Y...b|
00000AE0: 00 81 59 B2 51 33 A4 51 34 3A 84 31 2C 4E 24 28 |..Y.Q3.Q4:.1,N$(|
00000AF0: 59 29 3A 82 59 00 05 13 63 00 A0 31 3A 52 B2 51 |Y):.Y...c..1:R.Q|
00000B00: 34 3A 89 34 38 00 12 13 64 00 8B 51 B3 30 89 31 |4:.48...d..Q.0.1|
00000B10: 36 37 00 4F 13 65 00 99 22 93 12 2D 31 2D 20 3D |67.O.e.."..-1- =|
00000B20: 20 50 52 4F 47 52 41 4D 4D 41 2D 4E 41 4D 45 4E | PROGRAMMA-NAMEN|
00000B30: 20 22 3A 99 3A 99 22 12 2D 32 2D 20 3D 20 44 49 | ":.:.".-2- = DI|
00000B40: 53 4B 45 54 54 45 2D 4E 41 4D 45 4E 20 20 22 00 |SKETTE-NAMEN ".|
00000B50: 62 13 66 00 A1 47 24 3A 8B 47 24 B2 22 22 89 31 |b.f..G$:.G$."".1|
00000B60: 30 32 00 7B 13 67 00 8B 47 24 B3 B1 22 31 22 AF |02.{.g..G$.."1".|
00000B70: 47 24 B3 B1 22 32 22 89 31 30 32 00 B7 13 68 00 |G$.."2".102...h.|
00000B80: 99 22 93 11 11 11 1D 1D 20 46 31 20 3D 20 57 49 |."...... F1 = WI|
00000B90: 53 53 45 4C 45 4E 20 50 52 2F 44 53 20 20 22 3A |SSELEN PR/DS ":|
00000BA0: 99 22 20 20 20 46 33 20 3D 20 56 4F 4C 47 45 4E |." F3 = VOLGEN|
00000BB0: 44 45 20 50 41 47 2E 00 D2 13 69 00 99 22 11 1D |DE PAG....i.."..|
00000BC0: 1D 20 46 35 20 3D 20 56 4F 52 49 47 45 20 50 41 |. F5 = VORIGE PA|
00000BD0: 47 2E 00 F0 13 6A 00 99 3A 99 22 20 20 20 42 20 |G....j..:." B |
00000BE0: 20 3D 20 4E 41 41 52 20 42 45 47 49 4E 22 3A 99 | = NAAR BEGIN":.|
00000BF0: 00 0B 14 6B 00 99 22 20 20 20 45 20 20 3D 20 4E |...k.." E = N|
00000C00: 41 41 52 20 45 49 4E 44 22 3A 99 00 27 14 6C 00 |AAR EIND":..'.l.|
00000C10: 99 22 20 20 20 2B 20 20 3D 20 31 30 30 20 56 45 |." + = 100 VE|
00000C20: 52 44 45 52 22 3A 99 00 40 14 6D 00 99 22 20 20 |RDER":..@.m.." |
00000C30: 20 2D 20 20 3D 20 31 30 30 20 54 45 52 55 47 22 | - = 100 TERUG"|
00000C40: 00 55 14 6E 00 99 22 11 1D 1D 20 46 37 20 3D 20 |.U.n.."... F7 = |
00000C50: 4D 45 4E 55 22 00 5F 14 6F 00 42 4E B2 AB 31 00 |MENU"._.o.BN..1.|
00000C60: 75 14 70 00 A1 20 54 53 24 3A 8B 54 53 24 B2 22 |u.p.. TS$:.TS$."|
00000C70: 22 89 31 31 32 00 94 14 71 00 8B 20 54 53 24 B2 |".112...q.. TS$.|
00000C80: C7 28 31 33 34 29 A7 42 4E B2 42 4E AA 31 33 3A |.(134).BN.BN.13:|
00000C90: 89 31 32 33 00 B3 14 72 00 8B 20 54 53 24 B2 C7 |.123...r.. TS$..|
00000CA0: 28 31 33 35 29 A7 42 4E B2 42 4E AB 31 33 3A 89 |(135).BN.BN.13:.|
00000CB0: 31 32 33 00 C7 14 73 00 8B 20 54 53 24 B2 C7 28 |123...s.. TS$..(|
00000CC0: 31 33 36 29 A7 34 38 00 F0 14 74 00 8B 54 53 24 |136).48...t..TS$|
00000CD0: B2 C7 28 31 33 33 29 AF 47 24 B2 22 31 22 A7 47 |..(133).G$."1".G|
00000CE0: 24 B2 22 32 22 3A 42 4E B2 31 33 3A 89 31 32 33 |$."2":BN.13:.123|
00000CF0: 00 19 15 75 00 8B 54 53 24 B2 C7 28 31 33 33 29 |...u..TS$..(133)|
00000D00: AF 47 24 B2 22 32 22 A7 47 24 B2 22 31 22 3A 42 |.G$."2".G$."1":B|
00000D10: 4E B2 31 33 3A 89 31 32 33 00 30 15 76 00 8B 54 |N.13:.123.0.v..T|
00000D20: 53 24 B2 22 42 22 A7 42 4E B2 30 3A 89 31 32 33 |S$."B".BN.0:.123|
00000D30: 00 47 15 77 00 8B 54 53 24 B2 22 45 22 A7 42 4E |.G.w..TS$."E".BN|
00000D40: B2 51 3A 89 31 32 33 00 63 15 78 00 8B 54 53 24 |.Q:.123.c.x..TS$|
00000D50: B2 22 2B 22 A7 42 4E B2 42 4E AA 31 30 30 3A 89 |."+".BN.BN.100:.|
00000D60: 31 32 33 00 7F 15 79 00 8B 54 53 24 B2 22 2D 22 |123...y..TS$."-"|
00000D70: A7 42 4E B2 42 4E AB 31 30 30 3A 89 31 32 33 00 |.BN.BN.100:.123.|
00000D80: 89 15 7A 00 89 20 31 31 32 00 9F 15 7B 00 8B 42 |..z.. 112...{..B|
00000D90: 4E B1 51 AF 47 24 B2 22 31 22 A7 42 4E B2 51 00 |N.Q.G$."1".BN.Q.|
00000DA0: B5 15 7C 00 8B 42 4E B1 52 AF 47 24 B2 22 32 22 |..|..BN.R.G$."2"|
00000DB0: A7 42 4E B2 52 00 D8 15 7D 00 8B 42 4E B3 31 33 |.BN.R...}..BN.13|
00000DC0: AF 47 24 B2 22 31 22 A7 42 4E B2 31 33 3A 8B 42 |.G$."1".BN.13:.B|
00000DD0: 4E B1 51 A7 42 4E B2 51 00 FB 15 7E 00 8B 42 4E |N.Q.BN.Q...~..BN|
00000DE0: B3 31 33 AF 47 24 B2 22 32 22 A7 42 4E B2 31 33 |.13.G$."2".BN.13|
00000DF0: 3A 8B 42 4E B1 52 A7 42 4E B2 52 00 3E 16 7F 00 |:.BN.R.BN.R.>...|
00000E00: 99 22 93 22 3B 3A 8B 47 24 B2 22 31 22 A7 99 22 |.".";:.G$."1".."|
00000E10: 12 56 4F 4C 47 20 50 52 4F 47 52 2E 4E 41 41 4D |.VOLG PROGR.NAAM|
00000E20: 20 20 20 44 49 53 4B 20 4E 52 2E 20 20 20 20 20 | DISK NR. |
00000E30: 20 20 20 20 20 20 20 20 20 20 4E 52 A0 22 00 65 | NR.".e|
00000E40: 16 80 00 8B 47 24 B2 22 32 22 A7 99 22 12 20 4E |....G$."2"..". N|
00000E50: 52 2E 20 20 20 20 44 49 53 4B 2D 4E 41 41 4D 20 |R. DISK-NAAM |
00000E60: 20 20 20 20 22 00 7D 16 81 00 42 42 B2 42 4E AB | ".}...BB.BN.|
00000E70: 31 33 3A 8B 42 42 B3 30 A7 42 42 B2 30 00 90 16 |13:.BB.0.BB.0...|
00000E80: 82 00 81 57 B2 42 42 A4 42 4E 3A 99 57 AA 31 3B |...W.BB.BN:.W.1;|
00000E90: 00 C4 16 83 00 8B 47 24 B2 22 31 22 A7 4C B2 C3 |......G$."1".L..|
00000EA0: 28 44 24 28 57 29 29 AB 32 3A 99 C8 28 44 24 28 |(D$(W)).2:..(D$(|
00000EB0: 57 29 2C 4C 29 3B 3A 4B 24 B2 C9 28 44 24 28 57 |W),L);:K$..(D$(W|
00000EC0: 29 2C 32 29 00 DD 16 84 00 8B 47 24 B2 22 31 22 |),2)......G$."1"|
00000ED0: A7 99 A3 31 37 29 C5 28 4B 24 29 AA 31 00 F0 16 |...17).(K$).1...|
00000EE0: 85 00 8B 47 24 B2 22 32 22 A7 99 4E 24 28 57 29 |...G$."2"..N$(W)|
00000EF0: 00 FC 16 86 00 82 57 3A 89 31 31 32 00 09 17 87 |......W:.112....|
00000F00: 00 8B 51 B3 30 89 31 36 37 00 30 17 88 00 99 22 |..Q.0.167.0...."|
00000F10: 93 11 11 11 11 11 11 11 11 50 52 49 4E 54 45 4E |.........PRINTEN|
00000F20: 20 50 52 4F 47 2D 4F 56 45 52 5A 49 43 48 54 22 | PROG-OVERZICHT"|
00000F30: 00 39 17 89 00 9F 34 2C 34 00 4B 17 8A 00 97 35 |.9....4,4.K....5|
00000F40: 33 32 36 35 2C 31 31 3A 54 B2 30 00 62 17 8B 00 |3265,11:T.0.b...|
00000F50: 81 49 B2 31 A4 38 30 3A 98 34 2C 22 2D 22 3B 3A |.I.1.80:.4,"-";:|
00000F60: 82 49 00 69 17 8C 00 98 34 00 98 17 8D 00 98 34 |.I.i....4......4|
00000F70: 2C C7 28 31 34 29 22 20 20 20 20 20 20 20 20 20 |,.(14)" |
00000F80: 20 50 52 4F 47 52 41 4D 4D 41 20 4F 56 45 52 5A | PROGRAMMA OVERZ|
00000F90: 49 43 48 54 22 3A 98 34 00 C0 17 8E 00 98 34 2C |ICHT":.4......4,|
00000FA0: 22 20 20 20 20 20 20 20 20 20 56 41 4E 20 20 50 |" VAN P|
00000FB0: 41 54 52 49 43 4B 20 56 41 4E 20 48 45 45 4C 22 |ATRICK VAN HEEL"|
00000FC0: 00 F3 17 8F 00 98 34 3A 98 34 2C 22 20 20 20 20 |......4:.4," |
00000FD0: 20 20 20 54 4F 54 41 41 4C 20 22 3B 51 AA 31 3B | TOTAAL ";Q.1;|
00000FE0: 22 20 50 52 4F 47 52 41 4D 4D 41 27 53 22 C7 28 |" PROGRAMMA'S".(|
00000FF0: 31 35 29 00 0D 18 90 00 81 49 B2 31 A4 38 30 3A |15)......I.1.80:|
00001000: 98 34 2C 22 2D 22 3B 3A 82 49 3A 98 34 00 16 18 |.4,"-";:.I:.4...|
00001010: 92 00 89 31 34 39 00 2D 18 93 00 54 B2 54 AA 31 |...149.-...T.T.1|
00001020: 3A 8B 54 B2 28 51 AA 31 29 A7 31 36 30 00 33 18 |:.T.(Q.1).160.3.|
00001030: 94 00 8E 00 3C 18 95 00 8D 31 35 36 00 56 18 96 |....<....156.V..|
00001040: 00 98 34 2C 54 24 3B 44 24 3B 4E 24 28 4B 32 29 |..4,T$;D$;N$(K2)|
00001050: 3B 3A 8D 31 34 37 00 5F 18 97 00 8D 31 35 36 00 |;:.147._....156.|
00001060: 82 18 9A 00 98 34 2C C7 28 31 36 29 22 34 31 22 |.....4,.(16)"41"|
00001070: 3B 54 24 3B 44 24 3B 4E 24 28 4B 32 29 3A 8D 31 |;T$;D$;N$(K2):.1|
00001080: 34 37 00 8B 18 9B 00 89 31 34 36 00 AD 18 9C 00 |47......146.....|
00001090: 54 24 B2 C4 28 54 AA 31 29 AA 22 20 20 20 20 20 |T$..(T.1)." |
000010A0: 20 22 3A 54 24 B2 C8 28 54 24 2C 36 29 00 D7 18 | ":T$..(T$,6)...|
000010B0: 9D 00 4B 32 24 B2 C9 28 44 24 28 54 29 2C 32 29 |..K2$..(D$(T),2)|
000010C0: 3A 4B 32 B2 C5 28 4B 32 24 29 3A 4C B2 C3 28 44 |:K2..(K2$):L..(D|
000010D0: 24 28 54 29 29 AB 32 00 0A 19 9E 00 44 24 B2 C8 |$(T)).2.....D$..|
000010E0: 28 44 24 28 54 29 2C 4C 29 AA 22 20 20 20 20 20 |(D$(T),L)." |
000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 44 | ":D|
00001100: 24 B2 C8 28 44 24 2C 31 37 29 00 10 19 9F 00 8E |$..(D$,17)......|
00001110: 00 28 19 A0 00 98 34 3A A0 34 3A 97 35 33 32 36 |.(....4:.4:.5326|
00001120: 35 2C 32 37 3A 89 34 38 00 59 19 A1 00 99 22 93 |5,27:.48.Y....".|
00001130: 12 41 41 4E 54 41 4C 20 50 52 4F 47 52 2E 2D 4E |.AANTAL PROGR.-N|
00001140: 41 4D 45 4E 20 3D 20 22 3A 99 22 20 20 20 20 20 |AMEN = ":." |
00001150: 20 20 22 3B 51 AA 31 3A 99 00 89 19 A2 00 99 22 | ";Q.1:......."|
00001160: 12 41 41 4E 54 41 4C 20 44 49 53 4B 45 54 54 45 |.AANTAL DISKETTE|
00001170: 53 20 20 20 20 3D 20 22 3A 99 22 20 20 20 20 20 |S = ":." |
00001180: 20 20 22 3B 52 AA 31 3A 99 00 B8 19 A3 00 99 22 | ";R.1:......."|
00001190: 12 56 52 49 4A 45 20 47 45 48 45 55 47 45 4E 20 |.VRIJE GEHEUGEN |
000011A0: 20 20 20 20 20 3D 20 22 3A 99 22 20 20 20 20 20 | = ":." |
000011B0: 20 20 22 3B B8 28 58 29 00 CB 19 A4 00 81 51 51 | ";.(X)......QQ|
000011C0: B2 31 A4 32 35 30 30 3A 82 51 51 00 D3 19 A5 00 |.1.2500:.QQ.....|
000011D0: 89 34 38 00 ED 19 A6 00 99 22 93 11 11 47 4F 54 |.48......"...GOT|
000011E0: 4F 34 38 22 3A 97 32 31 34 2C 30 3A 80 00 1E 1A |O48":.214,0:....|
000011F0: A7 00 99 22 93 12 45 52 20 49 53 20 4E 4F 47 20 |..."..ER IS NOG |
00001200: 47 45 45 4E 20 42 45 53 54 41 4E 44 22 3A 81 48 |GEEN BESTAND":.H|
00001210: B2 30 A4 31 30 30 30 3A 82 48 3A 89 34 38 00 4C |.0.1000:.H:.48.L|
00001220: 1A A8 00 99 22 11 12 20 20 20 20 4E 49 45 55 57 |....".. NIEUW|
00001230: 20 42 45 53 54 41 4E 44 20 20 57 45 45 54 20 55 | BESTAND WEET U|
00001240: 20 48 45 54 20 5A 45 4B 45 52 A0 3F 00 5F 1A A9 | HET ZEKER.?._..|
00001250: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 36 39 00 |..A$:.A$."".169.|
00001260: 6F 1A AA 00 8B 41 24 B3 B1 22 4A 22 A7 34 38 00 |o....A$.."J".48.|
00001270: 76 1A AB 00 89 31 00 00 00 |v....1... |
..6....:Q..1:J.1245:I.45:.D$(J):.646,0:.
N$(I):R..1:.48.C....Q.0.167......"..SORT
EREN V/H BESTAND GEBEURT IN ASCII V
OLGORDE !! ."......"TE SORTERE
N IN TOTAAL ";Q.1;" NAMEN":.......". DIT
PROGRAMMA HEEFT EEN SUPERSNELLE
SORT-ROUTINE.3....". BEGINTIJD =";:TI$
."000000":."."TI$:TA.E(TI$).F...#SRT(D$(
Q),16).O....".DE EINDTIJD =";:."."TI$:TB
.E(TI$). ....".DE SORTEERTIJD WAS: .."
TB.TA" SECONDEN.......".DRUK OP DE SPATI
EALK..O....198,0:.198,1.W....48......"..
..PLAATS EERST DE DISKETTE IN DRIVE".&..
..:." EN GEEF TOETS - F1 -".@.... TS$
:.TS$..G(133).15.C....".........EVEN GED
ULD A.U.B."......1,8,15,"I": 1:.1,8,3,"$
0"......I.1.142:.#1,A$:.......I.1.16:.#1
,A$:.A$.G(160).21.F...N$.N$.A$.L........
..I.1.96:.#1,A$:.I......"..DISKNAAM =":.
N$:.:.".PROGRAMMA'S ZIJN:":..>...R.R.1:N
$(R).N$:L$." ".D(R):L$.I(L$,2).J...M.0:T
.0.Z...M.M.1:F$."".K....#1,K$,T$,S$.....
.I.1.16:.#1,A$:.A$.G(160).30.....F$.F$.A
$......:.K$."".K$.G(0).C....I.1.10:.#1,A
$:.... ..#1,A$:.M.8..#1,A$,A$:.34...!.M.
0..."..Y.144.1.40...#.SW.ST:.T$."".40.*.
$.K.F(K$).128:.K.1.K.4.K.0.7.%..T.40.40.
K.&..K..2.T.T.1:.26.~.'.T.0:Q.Q.1:L.C(F$
).48:D$(Q).F$.L$:.Q.1;:.F$:.26...(.N$.""
: 1...)..".....VOLGENDE DISKETTE ?.B.*..
".....TOETS - F1 -...+..".............F7
= STOP...,.. T$...-.. T$.G(133).16.....
. T$.G(136)..48.../.. 44.8.0.."... COMBA
SIC 82 GELADEN ?.I.1.." 1 = LADEN.[.2.."
. 2 = SAVEN.Y.3..". 3 = SORTEREN
"...4..". 4 = SCHERM. .5..". 5 = PRINTEN
...6..". 6 = NAMEN V. DISK".Y.7..". 7 =
BEST.GR.+GEHEUG."...8..". 8 = NIEUW BEST
AND "...9..". 9 = EINDE". .:.. TS$:. T
S$."".58.0.;.TS.E(TS$).1.\.<.. TS .58,74
,61,2,100,135,13,161,168,166.I.=..Q.0.16
7...>..".....PLAATS DE DISKETTE EN TOETS
- F1 - ..... OF - F7 - VOOR MENU.T
.?..TS$:.TS$.G(133)..".":.66...@..TS$.G(
136).48...A..63...B..".NAAM VAN HETBESTA
ND ? ":.Y$:.Y$."".48.H.C..C(Y$).10.."MAX
. 10 KARAKTERS MAG!":.66.^.D.Y$."@:".Y$.
".DIR".~.E.."......EEN OGENBLIK A.U.B...
.F.. 2,8,1,Y$:.2,Q:.2,R...G.. Y.0.Q:.2,D
$(Y):.Y.F.H..Y.0.R:.2,N$(Y):.Y.S.I. 2:.
48. .J..".....PLAATS DE DISKETTE EN TOE
TS - F1 - ..... OF - F7 - VOOR MENU
.>.K..TS$:.TS$.G(133)..".":.78.Q.L..TS$.
G(136).48.Y.M..75...N..".NAAM VAN HETBES
TAND ? ":.Y$:.Y$."".48...O..C(Y$).10.."M
AX. 10 KARAKTERS MAG!":.78...P..Y$."".48
...Q.GH.Q:GR.R:Y$.Y$.".DIR"...R.."......
EEN OGENBLIK A.U.B."...S..1,8,0,Y$:.1,Q:
.1,R.6.T..GH.0.Q2.Q:Q1.0:Q3.0:Q4.R:.94.P
.U.."..GEEF -1- DAN BESTAND BIJVOEGEN BI
J BESTAAND"...V..".GEEF -2- DAN NIE
UW BESTAND "...W..G$:.G$."
".87.U.X.."......EEN OGENBLIK A.U.B."...
Y..G$."1".Q2.Q.GH.1:Q1.GH.1:Q4.R.GR.1:Q3
.GR.1:Q.Q2:.92.2.Z..G$."2".Q2.Q:Q1.0:Q3.
0:Q4.R:.92.:.[..87.M.\..Q2.J.Q2.J:Q.J.`.
]..Q4.I.Q4.I:R.I.V.^..Y.Q1.Q2:.1,D$(Y)..
._..G$."1".R$.I(D$(Y),2):C.E(R$).R.1:C$.
" ".D(C):L.C(D$(Y)).2.U.`..G$."1".D$(Y).
H(D$(Y),L).C$...A..Y...B..Y.Q3.Q4:.1,N$(
Y):.Y...C. 1:R.Q4:.48...D..Q.0.167.O.E..
"..-1- = PROGRAMMA-NAMEN ":.:.".-2- = DI
SKETTE-NAMEN ".B.F..G$:.G$."".102.{.G..
G$.."1".G$.."2".102...H.."...... F1 = WI
SSELEN PR/DS ":." F3 = VOLGENDE PAG..
R.I.."... F5 = VORIGE PAG....J..:." B
= NAAR BEGIN":....K.." E = NAAR EIND
":..'.L.." + = 100 VERDER":..@.M.."
- = 100 TERUG".U.N.."... F7 = MENU"._.
O.BN..1.U.P.. TS$:.TS$."".112...Q.. TS$.
G(134).BN.BN.13:.123...R.. TS$.G(135).BN
.BN.13:.123.G.S.. TS$.G(136).48...T..TS$
.G(133).G$."1".G$."2":BN.13:.123...U..TS
$.G(133).G$."2".G$."1":BN.13:.123.0.V..T
S$."B".BN.0:.123.G.W..TS$."E".BN.Q:.123.
C.X..TS$."+".BN.BN.100:.123..Y..TS$."-"
.BN.BN.100:.123...Z.. 112...{..BN.Q.G$."
1".BN.Q...|..BN.R.G$."2".BN.R.X.}..BN.13
.G$."1".BN.13:.BN.Q.BN.Q...~..BN.13.G$."
2".BN.13:.BN.R.BN.R.>...".";:.G$."1".."
.VOLG PROGR.NAAM DISK NR.
NR ".E....G$."2"..". NR. DISK-NAAM
".}...BB.BN.13:.BB.0.BB.0......W.BB.
BN:.W.1;.D....G$."1".L.C(D$(W)).2:.H(D$(
W),L);:K$.I(D$(W),2)......G$."1"...17)E(
K$).1......G$."2"..N$(W)......W:.112....
..Q.0.167.0....".........PRINTEN PROG-OV
ERZICHT".9....4,4.K....53265,11:T.0.B...
.I.1.80:.4,"-";:.I.I....4......4,G(14)"
PROGRAMMA OVERZICHT":.4......4,
" VAN PATRICK VAN HEEL"......4:
.4," TOTAAL ";Q.1;" PROGRAMMA'S"G(
15)......I.1.80:.4,"-";:.I:.4......149.-
...T.T.1:.T.(Q.1).160.3.....<....156.V..
..4,T$;D$;N$(K2);:.147._....156......4,G
(16)"41";T$;D$;N$(K2):.147......146.....
T$.D(T.1)." ":T$.H(T$,6).W...K2$.I(
D$(T),2):K2.E(K2$):L.C(D$(T)).2.....D$.H
(D$(T),L)." ":D$.H(D$,1
7).......(. ..4: 4:.53265,27:.48.Y....".
.AANTAL PROGR.-NAMEN = ":." ";Q.1:
.......".AANTAL DISKETTES = ":."
";R.1:.......".VRIJE GEHEUGEN = "
:." ";.(X).K....QQ.1.2500:.QQ.S...
.48......"...GOTO48":.214,0:......."..ER
IS NOG GEEN BESTAND":.H.0.1000:.H:.48.L
....".. NIEUW BESTAND WEET U HET ZEK
ER ?._....A$:.A$."".169.O....A$.."J".48.
V....1...
> CLICK IMAGE PREVIEW FOR FULL MODAL