_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SORT-4040-N

FILE INFORMATION

FILENAME(S): SORT-4040-N

FILE TYPE(S): PRG

FILE SIZE: 4.9K

FIRST SEEN: 2025-11-30 21:23:48

APPEARS ON: 1 disk(s)

FILE HASH

2461b5cb58624e7bcfd4edb49127ab00aa830fdc45dd4040f253db8334fbe6ce

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
THERMO4040 SORT-4040-N PRG DuncanTwain 21 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 23 08 01 00 97 35  33 32 38 30 2C 30 3A 97  |..#....53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A  99 C7 28 31 35 38 29 3B  |53281,0:..(158);|
00000020: 22 93 22 00 4C 08 0A 00  9E 35 32 32 38 36 3A 86  |".".L....52286:.|
00000030: 42 28 32 38 29 3A 86 43  28 32 38 29 3A 86 41 24  |B(28):.C(28):.A$|
00000040: 28 31 31 35 30 29 3A 89  31 30 30 30 00 8A 08 64  |(1150):.1000...d|
00000050: 00 46 31 B2 31 3A 8B 4B  24 B2 22 30 22 A7 49 B2  |.F1.1:.K$."0".I.|
00000060: 32 36 3A 42 28 32 37 29  B2 30 3A 42 28 32 38 29  |26:B(27).0:B(28)|
00000070: B2 32 35 36 3A 43 28 32  37 29 B2 46 30 3A 43 28  |.256:C(27).F0:C(|
00000080: 32 38 29 B2 30 3A 89 32  31 30 00 9C 08 78 00 8B  |28).0:.210...x..|
00000090: 4B 24 B3 B1 22 31 22 89  31 30 30 30 00 B2 08 82  |K$.."1".1000....|
000000A0: 00 81 54 B2 30 A4 32 38  3A 43 28 54 29 B2 30 3A  |..T.0.28:C(T).0:|
000000B0: 82 54 00 E5 08 83 00 42  28 30 29 B2 30 3A 81 49  |.T.....B(0).0:.I|
000000C0: B2 31 A4 32 36 3A 42 28  49 29 B2 36 34 AA 49 3A  |.1.26:B(I).64.I:|
000000D0: 82 49 3A 42 28 32 37 29  B2 39 31 3A 42 28 32 38  |.I:B(27).91:B(28|
000000E0: 29 B2 32 35 36 00 2C 09  87 00 99 22 11 45 45 52  |).256.,....".EER|
000000F0: 53 54 20 54 45 4C 4C 45  4E 20 48 4F 45 56 45 45  |ST TELLEN HOEVEE|
00000100: 4C 20 42 45 47 49 4E 2D  41 53 43 49 49 2D 57 41  |L BEGIN-ASCII-WA|
00000110: 41 52 44 45 4E 45 52 20  56 41 4E 20 45 4C 4B 20  |ARDENER VAN ELK |
00000120: 54 45 4B 45 4E 20 5A 49  4A 4E 11 22 00 54 09 89  |TEKEN ZIJN.".T..|
00000130: 00 9F 31 35 2C 38 2C 31  35 2C 22 49 30 22 3A 9F  |..15,8,15,"I0":.|
00000140: 32 2C 38 2C 32 2C 22 30  3A 46 49 4C 45 2D 4E 41  |2,8,2,"0:FILE-NA|
00000150: 4D 45 4E 22 00 60 09 8C  00 81 54 B2 32 A4 46 30  |MEN".`....T.2.F0|
00000160: 00 7C 09 91 00 48 42 B2  B5 28 54 AD 32 35 36 29  |.|...HB..(T.256)|
00000170: 3A 4C 42 B2 54 AB 32 35  36 AC 48 42 00 9F 09 96  |:LB.T.256.HB....|
00000180: 00 98 31 35 2C 22 50 22  AA C7 28 39 38 29 AA C7  |..15,"P"..(98)..|
00000190: 28 4C 42 29 AA C7 28 48  42 29 AA C7 28 30 29 00  |(LB)..(HB)..(0).|
000001A0: B9 09 A0 00 84 32 2C 42  42 24 3A 8B C3 28 42 42  |.....2,BB$:..(BB|
000001B0: 24 29 B3 31 36 89 31 39  30 00 D7 09 AA 00 42 B2  |$).16.190.....B.|
000001C0: C6 28 C8 28 42 42 24 2C  31 29 29 AB 36 34 3A 8B  |.(.(BB$,1)).64:.|
000001D0: 42 B3 30 A7 42 B2 30 00  E6 09 B4 00 8B 42 B1 32  |B.0.B.0......B.2|
000001E0: 37 A7 42 B2 32 37 00 FF  09 B9 00 43 28 42 29 B2  |7.B.27.....C(B).|
000001F0: 43 28 42 29 AA 31 3A 99  54 AB 31 3B 22 91 22 00  |C(B).1:.T.1;".".|
00000200: 06 0A BE 00 82 54 00 29  0A BF 00 99 22 12 11 41  |.....T.)...."..A|
00000210: 41 4E 54 41 4C 20 41 53  43 49 49 2D 4E 41 4D 45  |ANTAL ASCII-NAME|
00000220: 4E 20 5A 49 4A 4E 11 22  3A 00 6B 0A C0 00 81 54  |N ZIJN.":.k....T|
00000230: B2 30 A4 32 37 A9 32 3A  99 22 12 22 3B C7 28 54  |.0.27.2:.".";.(T|
00000240: AA 36 34 29 3B 22 92 22  3B 43 28 54 29 2C 22 20  |.64);".";C(T)," |
00000250: 20 20 20 20 12 22 C7 28  54 AA 36 35 29 3B 22 92  |    .".(T.65);".|
00000260: 22 3B 43 28 54 AA 31 29  3A 82 54 00 95 0A C1 00  |";C(T.1):.T.....|
00000270: 99 22 11 12 20 47 45 45  46 20 45 45 4E 20 54 4F  |.".. GEEF EEN TO|
00000280: 45 54 53 20 4F 4D 20 44  4F 4F 52 20 54 45 20 47  |ETS OM DOOR TE G|
00000290: 41 41 4E 20 22 00 AE 0A  C2 00 97 31 39 38 2C 30  |AAN "......198,0|
000002A0: 3A 92 31 39 38 2C 31 3A  97 31 39 38 2C 30 00 B7  |:.198,1:.198,0..|
000002B0: 0A C8 00 49 B2 AB 31 00  D0 0A D2 00 54 30 B2 30  |...I..1.....T0.0|
000002C0: 3A 49 B2 49 AA 31 3A 8B  49 B1 32 38 89 35 35 30  |:I.I.1:.I.28.550|
000002D0: 00 E4 0A DC 00 42 47 B2  42 28 49 29 3A 54 30 B2  |.....BG.B(I):T0.|
000002E0: 43 28 49 29 00 01 0B E6  00 49 B2 49 AA 31 3A 8B  |C(I).....I.I.1:.|
000002F0: 49 B2 32 38 A7 45 44 B2  42 28 49 29 3A 89 33 30  |I.28.ED.B(I):.30|
00000300: 30 00 27 0B F0 00 8B 43  28 49 29 AA 54 30 B1 B2  |0.'....C(I).T0..|
00000310: 31 31 35 30 A7 49 B2 49  AB 31 3A 45 44 B2 42 28  |1150.I.I.1:ED.B(|
00000320: 49 29 3A 89 33 30 30 00  3B 0B FA 00 54 30 B2 54  |I):.300.;...T0.T|
00000330: 30 AA 43 28 49 29 3A 89  32 33 30 00 4E 0B 2C 01  |0.C(I):.230.N.,.|
00000340: 8B 54 30 B3 46 30 A7 54  30 B2 54 30 AA 31 00 5F  |.T0.F0.T0.T0.1._|
00000350: 0B 2D 01 8B 54 30 B3 31  31 35 30 89 34 30 30 00  |.-..T0.1150.400.|
00000360: 99 0B 36 01 99 22 56 41  4E 20 41 53 43 49 49 2D  |..6.."VAN ASCII-|
00000370: 54 45 4B 45 4E 20 22 3B  C7 28 42 47 29 3B 22 20  |TEKEN ";.(BG);" |
00000380: 5A 49 4A 4E 20 4D 45 45  52 20 44 41 4E 20 31 31  |ZIJN MEER DAN 11|
00000390: 35 30 20 4E 41 4D 45 4E  22 00 DD 0B 40 01 99 22  |50 NAMEN"...@.."|
000003A0: 53 4F 52 54 45 52 49 4E  47 20 56 41 4E 20 44 45  |SORTERING VAN DE|
000003B0: 5A 45 20 41 53 43 49 49  2D 4E 41 4D 45 4E 20 49  |ZE ASCII-NAMEN I|
000003C0: 53 20 4E 49 45 54 20 20  47 45 48 45 45 4C 20 4A  |S NIET  GEHEEL J|
000003D0: 55 49 53 54 20 47 45 42  45 55 52 44 22 00 E8 0B  |UIST GEBEURD"...|
000003E0: 90 01 A0 32 3A A0 31 35  00 10 0C 9A 01 9F 31 35  |...2:.15......15|
000003F0: 2C 38 2C 31 35 2C 22 49  30 22 3A 9F 32 2C 38 2C  |,8,15,"I0":.2,8,|
00000400: 32 2C 22 30 3A 46 49 4C  45 2D 4E 41 4D 45 4E 22  |2,"0:FILE-NAMEN"|
00000410: 00 41 0C A0 01 99 22 93  12 49 4E 44 49 45 4E 20  |.A...."..INDIEN |
00000420: 44 52 49 56 45 20 53 54  49 4C 53 54 41 41 54 2C  |DRIVE STILSTAAT,|
00000430: 20 49 53 20 44 45 20 43  36 34 20 42 45 5A 49 47  | IS DE C64 BEZIG|
00000440: 22 00 72 0C A1 01 99 22  12 4D 45 54 20 45 45 4E  |".r....".MET EEN|
00000450: 20 43 41 52 42 41 47 45  2D 43 4F 4C 4C 45 43 54  | CARBAGE-COLLECT|
00000460: 2D 52 4F 55 54 49 4E 45  20 20 20 20 20 20 20 20  |-ROUTINE        |
00000470: 11 22 00 C1 0C A2 01 99  22 12 53 45 4C 45 43 54  |."......".SELECT|
00000480: 45 52 45 4E 20 41 53 43  49 49 2D 4E 52 2E 92 22  |EREN ASCII-NR.."|
00000490: 3B 42 47 3B 22 54 2F 4D  22 3B 45 44 3A 99 22 11  |;BG;"T/M";ED:.".|
000004A0: 54 4F 54 41 41 4C 20 54  45 20 5A 4F 45 4B 45 4E  |TOTAAL TE ZOEKEN|
000004B0: 20 4E 41 4D 45 4E 20 3D  20 2B 2D 22 3B 54 30 AB  | NAMEN = +-";T0.|
000004C0: 31 00 FF 0C A3 01 99 3A  99 22 54 4F 54 41 41 4C  |1......:."TOTAAL|
000004D0: 20 41 46 20 54 45 20 5A  4F 45 4B 45 4E 20 46 49  | AF TE ZOEKEN FI|
000004E0: 4C 45 2D 4E 41 4D 45 4E  20 3D 22 3B 46 30 AB 31  |LE-NAMEN =";F0.1|
000004F0: 3B 22 11 22 3A 54 54 B2  AB 31 3A 3A 54 B2 31 00  |;".":TT..1::T.1.|
00000500: 13 0D A4 01 54 B2 54 AA  31 3A 8B 54 B1 46 30 89  |....T.T.1:.T.F0.|
00000510: 34 36 31 00 4E 0D A9 01  48 42 B2 B5 28 54 AD 32  |461.N...HB..(T.2|
00000520: 35 36 29 3A 4C 42 B2 54  AB 48 42 AC 32 35 36 3A  |56):LB.T.HB.256:|
00000530: 98 31 35 2C 22 50 22 AA  C7 28 39 38 29 AA C7 28  |.15,"P"..(98)..(|
00000540: 4C 42 29 AA C7 28 48 42  29 AA C7 28 30 29 00 58  |LB)..(HB)..(0).X|
00000550: 0D AE 01 84 32 2C 42 24  00 6B 0D B3 01 8B 20 C3  |....2,B$.k.... .|
00000560: 28 42 24 29 B3 32 31 89  34 35 30 00 90 0D B4 01  |(B$).21.450.....|
00000570: 8B C8 28 42 24 2C 31 36  29 B2 22 20 20 20 20 20  |..(B$,16)."     |
00000580: 20 20 20 20 20 20 20 20  20 20 20 22 89 34 35 30  |           ".450|
00000590: 00 A0 0D B5 01 42 42 24  B2 C8 28 42 24 2C 31 29  |.....BB$..(B$,1)|
000005A0: 00 E3 0D B8 01 8B C6 28  42 42 24 29 B1 B2 42 47  |.......(BB$)..BG|
000005B0: 20 AF 20 C6 28 42 42 24  29 B2 B3 45 44 A7 54 54  | . .(BB$)..ED.TT|
000005C0: B2 54 54 AA 31 3A 41 24  28 54 54 29 B2 42 24 3A  |.TT.1:A$(TT).B$:|
000005D0: 99 54 AB 31 2C 54 54 AA  32 2C C8 28 42 24 2C 31  |.T.1,TT.2,.(B$,1|
000005E0: 38 29 3B 00 FD 0D C2 01  8B 54 54 B1 B2 31 31 35  |8);......TT..115|
000005F0: 30 A7 A0 32 3A A0 31 35  3A 89 34 36 38 00 0C 0E  |0..2:.15:.468...|
00000600: CC 01 99 22 9E 91 22 3A  89 34 32 30 00 21 0E CD  |..."..":.420.!..|
00000610: 01 A0 32 3A A0 31 35 3A  8B 54 54 B3 30 89 35 34  |..2:.15:.TT.0.54|
00000620: 30 00 52 0E D4 01 99 22  11 11 12 20 53 54 41 52  |0.R...."... STAR|
00000630: 54 20 53 4F 52 54 45 52  45 4E 20 41 53 43 49 49  |T SORTEREN ASCII|
00000640: 2D 4E 52 2E 92 22 3B 42  47 3B 22 54 2F 4D 22 3B  |-NR..";BG;"T/M";|
00000650: 45 44 00 63 0E D6 01 21  2C 54 54 AA 31 2C 41 24  |ED.c...!,TT.1,A$|
00000660: 28 30 29 00 93 0E DB 01  99 22 11 12 20 4B 4C 41  |(0)......".. KLA|
00000670: 41 52 20 53 4F 52 54 45  52 45 4E 20 56 41 4E 20  |AR SORTEREN VAN |
00000680: 41 53 43 49 49 92 22 3B  42 47 3B 22 54 2F 4D 22  |ASCII.";BG;"T/M"|
00000690: 3B 45 44 00 C7 0E E0 01  99 22 11 12 20 53 54 41  |;ED......".. STA|
000006A0: 52 54 20 57 45 47 53 43  48 52 49 4A 56 45 4E 20  |RT WEGSCHRIJVEN |
000006B0: 56 41 4E 20 41 53 43 49  49 92 22 3B 42 47 3B 22  |VAN ASCII.";BG;"|
000006C0: 54 2F 4D 22 3B 45 44 00  EF 0E EA 01 9F 31 35 2C  |T/M";ED......15,|
000006D0: 38 2C 31 35 2C 22 49 31  22 3A 9F 32 2C 38 2C 32  |8,15,"I1":.2,8,2|
000006E0: 2C 22 31 3A 46 49 4C 45  2D 4E 41 4D 45 4E 22 00  |,"1:FILE-NAMEN".|
000006F0: 03 0F F4 01 81 41 B2 30  A4 54 54 3A 46 31 B2 46  |.....A.0.TT:F1.F|
00000700: 31 AA 31 00 40 0F FE 01  48 42 B2 B5 28 46 31 AD  |1.1.@...HB..(F1.|
00000710: 32 35 36 29 3A 4C 42 B2  46 31 AB 48 42 AC 32 35  |256):LB.F1.HB.25|
00000720: 36 3A 98 31 35 2C 22 50  22 AA C7 28 39 38 29 AA  |6:.15,"P"..(98).|
00000730: C7 28 4C 42 29 AA C7 28  48 42 29 AA C7 28 30 29  |.(LB)..(HB)..(0)|
00000740: 00 75 0F 08 02 98 32 2C  41 24 28 41 29 3A 99 41  |.u....2,A$(A):.A|
00000750: AA 32 2C C8 28 41 24 28  41 29 2C 31 38 29 3B 22  |.2,.(A$(A),18);"|
00000760: 91 22 3A 41 24 28 41 29  B2 22 22 3A 82 41 3A A0  |.":A$(A)."":.A:.|
00000770: 32 3A A0 31 35 00 99 0F  12 02 99 22 12 11 11 20  |2:.15......"... |
00000780: 4B 4C 41 41 52 20 4D 45  54 20 57 45 47 53 43 48  |KLAAR MET WEGSCH|
00000790: 52 49 4A 56 45 4E 20 11  22 00 AA 0F 17 02 8B 54  |RIJVEN ."......T|
000007A0: 54 B3 31 31 35 30 89 32  31 30 00 E1 0F 18 02 54  |T.1150.210.....T|
000007B0: 54 B2 AB 31 3A 99 22 44  4F 4F 52 47 41 41 4E 20  |T..1:."DOORGAAN |
000007C0: 4D 45 54 20 53 45 4C 45  43 54 45 52 45 4E 20 53  |MET SELECTEREN S|
000007D0: 43 49 49 2D 54 45 4B 45  4E 20 22 3B C7 28 42 47  |CII-TEKEN ";.(BG|
000007E0: 29 00 09 10 1A 02 9F 31  35 2C 38 2C 31 35 2C 22  |)......15,8,15,"|
000007F0: 49 30 22 3A 9F 32 2C 38  2C 32 2C 22 30 3A 46 49  |I0":.2,8,2,"0:FI|
00000800: 4C 45 2D 4E 41 4D 45 4E  22 00 12 10 1C 02 89 34  |LE-NAMEN"......4|
00000810: 32 30 00 45 10 26 02 99  22 11 12 20 53 54 41 52  |20.E.&..".. STAR|
00000820: 54 20 4F 50 5A 4F 45 4B  45 4E 20 42 45 47 49 4E  |T OPZOEKEN BEGIN|
00000830: 50 55 4E 54 45 4E 20 49  4E 20 46 49 4C 45 2D 20  |PUNTEN IN FILE- |
00000840: 20 20 20 22 3B 00 75 10  30 02 99 22 20 42 45 53  |   ";.u.0.." BES|
00000850: 54 41 4E 44 20 56 41 4E  20 45 4C 4B 45 20 42 45  |TAND VAN ELKE BE|
00000860: 47 49 4E 2D 41 53 43 49  49 2D 57 41 41 52 44 45  |GIN-ASCII-WAARDE|
00000870: 20 20 20 20 22 00 A2 10  3A 02 42 28 30 29 B2 32  |    "...:.B(0).2|
00000880: 3A 81 49 B2 31 A4 32 36  3A 42 28 49 29 B2 36 34  |:.I.1.26:B(I).64|
00000890: AA 49 3A 82 49 3A 42 28  32 37 29 B2 39 31 3A 49  |.I:.I:B(27).91:I|
000008A0: B2 31 00 AD 10 3F 02 A0  32 3A A0 31 35 00 D5 10  |.1...?..2:.15...|
000008B0: 44 02 9F 31 35 2C 38 2C  31 35 2C 22 49 31 22 3A  |D..15,8,15,"I1":|
000008C0: 9F 32 2C 38 2C 32 2C 22  31 3A 46 49 4C 45 2D 4E  |.2,8,2,"1:FILE-N|
000008D0: 41 4D 45 4E 22 00 F6 10  4E 02 98 31 35 2C 22 50  |AMEN"...N..15,"P|
000008E0: 22 AA C7 28 39 38 29 AA  C7 28 32 29 AA C7 28 30  |"..(98)..(2)..(0|
000008F0: 29 AA C7 28 30 29 00 08  11 58 02 81 48 B2 32 A4  |)..(0)...X..H.2.|
00000900: 46 31 3A 84 32 2C 42 24  00 33 11 5D 02 8B C6 28  |F1:.2,B$.3.]...(|
00000910: C8 28 42 24 2C 31 29 29  B3 42 28 49 29 A7 99 22  |.(B$,1)).B(I).."|
00000920: 9E 22 3B C8 28 42 24 2C  31 38 29 3A 82 48 3A 89  |.";.(B$,18):.H:.|
00000930: 37 30 30 00 54 11 62 02  42 28 49 29 B2 48 3A 99  |700.T.b.B(I).H:.|
00000940: 22 12 22 3B C8 28 42 24  2C 31 38 29 3B 48 3A 49  |".";.(B$,18);H:I|
00000950: B2 49 AA 31 00 62 11 6C  02 8B 49 B1 32 37 89 37  |.I.1.b.l..I.27.7|
00000960: 30 30 00 6B 11 76 02 89  36 30 35 00 79 11 BC 02  |00.k.v..605.y...|
00000970: 47 48 B2 42 28 49 AB 31  29 00 96 11 C6 02 8B 49  |GH.B(I.1)......I|
00000980: B3 32 38 A7 42 28 49 29  B2 47 48 3A 49 B2 49 AA  |.28.B(I).GH:I.I.|
00000990: 31 3A 89 37 31 30 00 A1  11 D0 02 A0 32 3A A0 31  |1:.710......2:.1|
000009A0: 35 00 D0 11 DA 02 9F 31  35 2C 38 2C 31 35 2C 22  |5......15,8,15,"|
000009B0: 49 31 22 3A 9F 32 2C 38  2C 32 2C 22 23 22 3A 98  |I1":.2,8,2,"#":.|
000009C0: 31 35 2C 22 55 31 22 3B  32 3B 31 3B 31 38 3B 32  |15,"U1";2;1;18;2|
000009D0: 00 EC 11 E4 02 81 49 B2  30 A4 32 37 3A 98 31 35  |......I.0.27:.15|
000009E0: 2C 22 42 2D 50 22 3B 32  3B 49 AC 38 00 1A 12 EE  |,"B-P";2;I.8....|
000009F0: 02 42 24 B2 C9 28 22 20  20 20 20 20 20 20 20 22  |.B$..("        "|
00000A00: AA C4 28 42 28 49 29 29  AA C7 28 31 33 29 2C 38  |..(B(I))..(13),8|
00000A10: 29 3A 98 32 2C 42 24 3A  82 49 00 37 12 F8 02 98  |):.2,B$:.I.7....|
00000A20: 31 35 2C 22 55 32 22 3B  32 3B 31 3B 31 38 3B 32  |15,"U2";2;1;18;2|
00000A30: 3A A0 32 3A A0 31 35 00  5F 12 20 03 9F 31 35 2C  |:.2:.15._. ..15,|
00000A40: 38 2C 31 35 2C 22 49 31  22 3A 9F 32 2C 38 2C 32  |8,15,"I1":.2,8,2|
00000A50: 2C 22 31 3A 46 49 4C 45  2D 4E 41 4D 45 4E 22 00  |,"1:FILE-NAMEN".|
00000A60: 91 12 2A 03 98 31 35 2C  22 50 22 AA C7 28 39 38  |..*..15,"P"..(98|
00000A70: 29 AA C7 28 30 29 AA C7  28 30 29 AA C7 28 30 29  |)..(0)..(0)..(0)|
00000A80: 3A 50 46 24 B2 C4 28 46  31 29 3A 98 32 2C 50 46  |:PF$..(F1):.2,PF|
00000A90: 24 00 A1 12 34 03 A0 32  3A A0 31 35 3A 89 39 30  |$...4..2:.15:.90|
00000AA0: 30 00 EB 12 84 03 4B 24  B2 22 31 22 3A 4B B2 31  |0.....K$."1":K.1|
00000AB0: 3A 8D 32 30 34 30 3A 99  22 12 11 20 53 4F 52 54  |:.2040:.".. SORT|
00000AC0: 45 45 52 2D 42 45 53 54  41 4E 44 2D 44 49 53 4B  |EER-BESTAND-DISK|
00000AD0: 45 54 54 45 20 49 4E 20  44 52 49 56 45 20 31 20  |ETTE IN DRIVE 1 |
00000AE0: 49 53 20 20 4B 4C 41 41  52 20 22 00 17 13 8E 03  |IS  KLAAR ".....|
00000AF0: 99 22 11 20 47 45 45 46  20 45 45 4E 20 54 4F 45  |.". GEEF EEN TOE|
00000B00: 54 53 22 3A 97 31 39 38  2C 30 3A 92 31 39 38 2C  |TS":.198,0:.198,|
00000B10: 31 3A 89 31 30 30 30 00  49 13 E8 03 99 22 93 12  |1:.1000.I...."..|
00000B20: 20 53 4F 52 54 45 52 45  4E 20 56 41 4E 20 46 49  | SORTEREN VAN FI|
00000B30: 4C 45 2D 42 53 54 20 56  41 4E 20 56 45 52 5A 41  |LE-BST VAN VERZA|
00000B40: 4D 45 4C 44 49 53 4B 2E  22 00 78 13 F2 03 99 22  |MELDISK.".x...."|
00000B50: 50 4C 41 41 54 53 20 44  49 53 4B 45 54 54 45 20  |PLAATS DISKETTE |
00000B60: 4D 45 54 20 56 45 52 5A  41 4D 45 4C 42 45 53 54  |MET VERZAMELBEST|
00000B70: 41 4E 44 20 49 4E 20 22  00 A1 13 FC 03 99 22 44  |AND IN "......"D|
00000B80: 52 49 56 45 20 30 20 45  4E 20 45 45 4E 20 44 49  |RIVE 0 EN EEN DI|
00000B90: 53 4B 45 54 54 45 20 56  4F 4F 52 20 48 45 54 20  |SKETTE VOOR HET |
00000BA0: 22 00 C7 13 06 04 99 22  47 45 53 4F 52 54 45 45  |"......"GESORTEE|
00000BB0: 52 44 45 20 42 45 53 54  41 4E 44 20 49 4E 20 44  |RDE BESTAND IN D|
00000BC0: 52 49 56 45 20 31 22 00  F3 13 10 04 99 22 11 41  |RIVE 1"......".A|
00000BD0: 4C 4C 45 45 4E 20 46 49  4C 45 2D 4E 41 4D 45 4E  |LLEEN FILE-NAMEN|
00000BE0: 20 57 4F 52 44 45 4E 20  47 45 53 4F 52 54 45 45  | WORDEN GESORTEE|
00000BF0: 52 44 22 00 1D 14 1A 04  99 22 44 45 20 44 49 53  |RD"......"DE DIS|
00000C00: 4B 2D 4E 41 4D 45 4E 20  42 4C 49 4A 56 45 4E 20  |K-NAMEN BLIJVEN |
00000C10: 4F 4E 47 45 53 4F 52 54  45 45 52 44 22 00 42 14  |ONGESORTEERD".B.|
00000C20: 24 04 99 22 11 53 20 3D  20 53 54 41 52 54 20 53  |$..".S = START S|
00000C30: 4F 52 54 45 52 45 4E 20  46 49 4C 45 4E 41 4D 45  |ORTEREN FILENAME|
00000C40: 4E 22 00 72 14 2E 04 99  22 11 5E 20 3D 20 4E 41  |N".r....".^ = NA|
00000C50: 41 52 20 45 45 4E 20 41  4E 44 45 52 20 44 45 45  |AR EEN ANDER DEE|
00000C60: 4C 20 56 41 4E 20 54 48  45 52 4D 4F 2D 42 49 42  |L VAN THERMO-BIB|
00000C70: 4C 22 00 86 14 38 04 A1  47 24 3A 8B 47 24 B2 22  |L"...8..G$:.G$."|
00000C80: 22 89 31 30 38 30 00 97  14 42 04 8B 47 24 B2 22  |".1080...B..G$."|
00000C90: 5E 22 89 31 32 30 30 00  A9 14 4C 04 8B 47 24 B3  |^".1200...L..G$.|
00000CA0: B1 22 53 22 89 31 30 38  30 00 CF 14 56 04 99 22  |."S".1080...V.."|
00000CB0: 11 22 3B 47 24 3A 99 22  12 11 20 45 56 45 4E 20  |.";G$:.".. EVEN |
00000CC0: 47 45 44 55 4C 44 20 53  2E 56 2E 50 2E 20 22 00  |GEDULD S.V.P. ".|
00000CD0: E4 14 60 04 4B 24 B2 22  30 22 3A 4B B2 30 3A 8D  |..`.K$."0":K.0:.|
00000CE0: 32 30 37 30 00 F3 14 6A  04 8B 54 53 B2 31 89 31  |2070...j..TS.1.1|
00000CF0: 30 30 30 00 26 15 6B 04  99 22 93 12 20 47 45 45  |000.&.k..".. GEE|
00000D00: 46 20 45 45 4E 20 54 4F  45 54 53 20 44 41 4E 20  |F EEN TOETS DAN |
00000D10: 53 54 41 52 54 45 4E 20  4D 45 54 20 4D 41 4B 45  |STARTEN MET MAKE|
00000D20: 4E 20 20 20 22 3B 00 70  15 6C 04 99 22 12 20 42  |N   ";.p.l..". B|
00000D30: 41 43 4B 55 50 20 56 41  4E 20 44 49 53 4B 45 54  |ACKUP VAN DISKET|
00000D40: 54 45 20 49 4E 20 44 52  49 56 45 20 30 20 28 44  |TE IN DRIVE 0 (D|
00000D50: 31 3D 30 29 20 20 22 3A  99 22 20 5E 20 3D 20 54  |1=0)  ":." ^ = T|
00000D60: 45 52 55 47 20 4E 41 41  52 20 53 54 41 52 54 22  |ERUG NAAR START"|
00000D70: 00 84 15 6D 04 A1 47 24  3A 8B 47 24 B2 22 22 89  |...m..G$:.G$."".|
00000D80: 31 31 33 33 00 95 15 6E  04 8B 47 24 B2 22 5E 22  |1133...n..G$."^"|
00000D90: 89 31 30 30 30 00 B4 15  6F 04 99 22 11 12 20 45  |.1000...o..".. E|
00000DA0: 56 45 4E 20 47 45 44 55  4C 44 20 53 2E 56 2E 50  |VEN GEDULD S.V.P|
00000DB0: 2E 20 11 22 00 CC 15 70  04 9F 31 35 2C 38 2C 31  |. ."...p..15,8,1|
00000DC0: 35 2C 22 44 31 3D 30 22  3A A0 31 35 00 E1 15 74  |5,"D1=0":.15...t|
00000DD0: 04 4B 24 B2 22 31 22 3A  4B B2 31 3A 8D 32 30 37  |.K$."1":K.1:.207|
00000DE0: 30 00 F0 15 79 04 8B 54  53 B2 31 89 31 30 30 30  |0...y..TS.1.1000|
00000DF0: 00 15 16 7E 04 4B 24 B2  22 30 22 3A 8D 34 30 30  |...~.K$."0":.400|
00000E00: 30 3A 44 30 B2 C5 28 50  44 24 29 3A 46 30 B2 C5  |0:D0..(PD$):F0..|
00000E10: 28 50 46 24 29 00 3A 16  88 04 4B 24 B2 22 31 22  |(PF$).:...K$."1"|
00000E20: 3A 8D 34 30 30 30 3A 44  31 B2 C5 28 50 44 24 29  |:.4000:D1..(PD$)|
00000E30: 3A 46 31 B2 C5 28 50 46  24 29 00 50 16 92 04 8B  |:F1..(PF$).P....|
00000E40: 44 30 B2 44 31 AF 46 30  B2 46 31 89 35 30 30 30  |D0.D1.F0.F1.5000|
00000E50: 00 8E 16 9C 04 99 22 12  20 43 4F 50 59 20 49 53  |......". COPY IS|
00000E60: 20 4E 49 45 54 20 47 45  4C 49 4A 4B 20 47 45 57  | NIET GELIJK GEW|
00000E70: 4F 52 44 45 4E 3B 20 49  45 54 53 20 49 53 20 20  |ORDEN; IETS IS  |
00000E80: 20 46 4F 55 54 20 47 45  47 41 41 4E 20 22 00 BC  | FOUT GEGAAN "..|
00000E90: 16 AA 04 99 22 11 12 20  47 45 45 46 20 45 45 4E  |....".. GEEF EEN|
00000EA0: 20 54 4F 45 54 53 20 22  3A 97 31 39 38 2C 30 3A  | TOETS ":.198,0:|
00000EB0: 92 31 39 38 2C 31 3A 89  31 30 30 30 00 C6 16 B0  |.198,1:.1000....|
00000EC0: 04 99 22 93 22 3B 00 F6  16 BA 04 99 22 11 50 4C  |..".";......".PL|
00000ED0: 41 41 54 53 20 44 49 53  4B 45 54 54 45 20 4D 45  |AATS DISKETTE ME|
00000EE0: 54 20 12 20 54 48 45 52  4D 4F 2D 42 49 42 4C 2D  |T . THERMO-BIBL-|
00000EF0: 34 30 34 30 20 22 00 22  17 C4 04 99 22 49 4E 20  |4040 "."...."IN |
00000F00: 12 20 44 52 49 56 45 20  30 20 92 20 45 4E 20 47  |. DRIVE 0 . EN G|
00000F10: 45 45 46 20 44 41 4E 20  45 45 4E 20 54 4F 45 54  |EEF DAN EEN TOET|
00000F20: 53 22 00 60 17 C5 04 4D  24 B2 22 30 3A 54 48 45  |S".`...M$."0:THE|
00000F30: 52 4D 4F 2D 53 54 41 52  54 34 30 34 30 22 3A 99  |RMO-START4040":.|
00000F40: 22 11 5E 20 3D 20 54 45  52 55 47 20 4E 41 41 52  |".^ = TERUG NAAR|
00000F50: 20 53 54 41 52 54 20 53  4F 52 54 45 52 45 4E 22  | START SORTEREN"|
00000F60: 00 74 17 CE 04 A1 48 24  3A 8B 48 24 B2 22 22 89  |.t....H$:.H$."".|
00000F70: 31 32 33 30 00 85 17 D8  04 8B 48 24 B2 22 5E 22  |1230......H$."^"|
00000F80: 89 31 30 30 30 00 A3 17  14 05 99 22 12 11 20 45  |.1000......".. E|
00000F90: 56 45 4E 20 47 45 44 55  4C 44 20 53 2E 56 2E 50  |VEN GEDULD S.V.P|
00000FA0: 2E 20 22 00 BF 17 15 05  9F 31 35 2C 38 2C 31 35  |. "......15,8,15|
00000FB0: 2C 22 49 30 22 3A 9F 32  2C 38 2C 32 2C 4D 24 00  |,"I0":.2,8,2,M$.|
00000FC0: DC 17 16 05 84 31 35 2C  45 2C 45 24 2C 45 31 2C  |.....15,E,E$,E1,|
00000FD0: 45 32 3A 8B 45 B2 30 89  31 33 31 30 00 F5 17 17  |E2:.E.0.1310....|
00000FE0: 05 A0 32 3A A0 31 35 3A  99 22 11 22 3B 45 24 3A  |..2:.15:.".";E$:|
00000FF0: 89 31 32 31 30 00 06 18  1E 05 A0 31 35 3A A0 32  |.1210......15:.2|
00001000: 3A 99 22 93 22 3B 00 2A  18 28 05 8B 47 24 B2 22  |:.".";.*.(..G$."|
00001010: 5E 22 A7 93 22 54 48 45  52 4D 4F 2D 42 49 42 4C  |^".."THERMO-BIBL|
00001020: 2D 34 30 34 30 22 2C 38  2C 31 00 4E 18 32 05 8B  |-4040",8,1.N.2..|
00001030: 47 24 B2 22 50 22 A7 93  22 54 48 45 52 4D 4F 2D  |G$."P".."THERMO-|
00001040: 50 52 49 4E 54 34 30 34  30 22 2C 38 2C 31 00 58  |PRINT4040",8,1.X|
00001050: 18 3C 05 89 31 30 30 30  00 77 18 F8 07 9F 31 35  |.<..1000.w....15|
00001060: 2C 38 2C 31 35 2C 22 49  22 AA 4B 24 3A 9F 32 2C  |,8,15,"I".K$:.2,|
00001070: 38 2C 32 2C 22 23 22 00  AD 18 02 08 98 31 35 2C  |8,2,"#"......15,|
00001080: 22 55 31 22 3B 32 3B 4B  3B 31 38 3B 32 3A 98 31  |"U1";2;K;18;2:.1|
00001090: 35 2C 22 42 2D 50 22 3B  32 3B 32 34 30 3A 98 32  |5,"B-P";2;240:.2|
000010A0: 2C 22 53 20 50 2E 56 2E  48 4F 55 54 22 00 CC 18  |,"S P.V.HOUT"...|
000010B0: 0C 08 98 31 35 2C 22 55  32 22 3B 32 3B 4B 3B 31  |...15,"U2";2;K;1|
000010C0: 38 3B 32 3A A0 32 3A A0  31 35 3A 8E 00 E5 18 16  |8;2:.2:.15:.....|
000010D0: 08 9F 31 35 2C 38 2C 31  35 2C 22 49 22 AA 4B 24  |..15,8,15,"I".K$|
000010E0: 3A 54 53 B2 30 00 FA 18  20 08 84 31 35 2C 44 53  |:TS.0... ..15,DS|
000010F0: 2C 43 32 24 2C 43 33 2C  43 34 00 16 19 2A 08 8B  |,C2$,C3,C4...*..|
00001100: 44 53 B3 B1 30 AF 44 53  B3 B1 35 30 A7 A0 31 35  |DS..0.DS..50..15|
00001110: 3A 89 33 30 30 30 00 4E  19 34 08 9F 32 2C 38 2C  |:.3000.N.4..2,8,|
00001120: 32 2C 22 23 22 3A 98 31  35 2C 22 55 31 22 3B 32  |2,"#":.15,"U1";2|
00001130: 3B 4B 3B 31 38 3B 32 3A  98 31 35 2C 22 42 2D 50  |;K;18;2:.15,"B-P|
00001140: 22 3B 32 3B 32 33 39 3A  A1 23 32 2C 50 24 00 7C  |";2;239:.#2,P$.||
00001150: 19 3E 08 53 44 24 B2 22  22 3A 81 58 B2 30 A4 39  |.>.SD$."":.X.0.9|
00001160: 3A A1 23 32 2C 50 24 3A  53 44 24 B2 53 44 24 AA  |:.#2,P$:SD$.SD$.|
00001170: 50 24 3A 82 58 3A A0 32  3A A0 31 35 00 98 19 52  |P$:.X:.2:.15...R|
00001180: 08 8B 53 44 24 B3 B1 22  56 20 50 2E 56 2E 48 4F  |..SD$.."V P.V.HO|
00001190: 55 54 22 89 32 31 35 30  00 A3 19 5C 08 54 53 B2  |UT".2150...\.TS.|
000011A0: 30 3A 8E 00 CF 19 66 08  99 22 12 11 20 44 49 53  |0:....f..".. DIS|
000011B0: 4B 45 54 54 45 20 49 4E  20 44 52 49 56 45 20 22  |KETTE IN DRIVE "|
000011C0: 3B 4B 24 3B 22 20 49 53  20 47 45 45 4E 20 22 00  |;K$;" IS GEEN ".|
000011D0: F5 19 6B 08 99 22 12 20  56 45 52 5A 41 4D 45 4C  |..k..". VERZAMEL|
000011E0: 42 45 53 54 41 4E 44 2D  44 49 53 4B 45 54 54 45  |BESTAND-DISKETTE|
000011F0: 20 21 20 20 22 00 04 1A  70 08 54 53 B2 31 3A 89  | !  "...p.TS.1:.|
00001200: 33 30 30 35 00 1F 1A B8  0B 99 22 20 46 4F 55 54  |3005......" FOUT|
00001210: 20 49 4E 20 44 52 49 56  45 20 22 3B 4B 24 3B 00  | IN DRIVE ";K$;.|
00001220: 41 1A BC 0B 99 22 20 22  3B 44 53 3B 22 20 22 3B  |A...." ";DS;" ";|
00001230: 43 32 24 3B 22 20 22 3B  43 33 3B 22 20 22 3B 43  |C2$;" ";C3;" ";C|
00001240: 34 00 5B 1A BD 0B 99 22  11 12 20 47 45 45 46 20  |4.[....".. GEEF |
00001250: 45 45 4E 20 54 4F 45 54  53 20 22 00 74 1A C2 0B  |EEN TOETS ".t...|
00001260: 54 53 B2 31 3A 97 31 39  38 2C 30 3A 92 31 39 38  |TS.1:.198,0:.198|
00001270: 2C 31 3A 8E 00 88 1A A0  0F 9F 31 35 2C 38 2C 31  |,1:.......15,8,1|
00001280: 35 2C 22 49 22 AA 4B 24  00 A4 1A A2 0F 9F 32 2C  |5,"I".K$......2,|
00001290: 38 2C 32 2C 4B 24 AA 22  3A 44 49 53 4B 2D 4E 41  |8,2,K$.":DISK-NA|
000012A0: 4D 45 4E 22 00 CF 1A AA  0F 98 31 35 2C 22 50 22  |MEN"......15,"P"|
000012B0: AA C7 28 39 38 29 AA C7  28 30 29 AA C7 28 30 29  |..(98)..(0)..(0)|
000012C0: AA C7 28 30 29 3A 84 32  2C 50 44 24 3A A0 32 00  |..(0):.2,PD$:.2.|
000012D0: EB 1A AC 0F 9F 32 2C 38  2C 32 2C 4B 24 AA 22 3A  |.....2,8,2,K$.":|
000012E0: 46 49 4C 45 2D 4E 41 4D  45 4E 22 00 16 1B B4 0F  |FILE-NAMEN".....|
000012F0: 98 31 35 2C 22 50 22 AA  C7 28 39 38 29 AA C7 28  |.15,"P"..(98)..(|
00001300: 30 29 AA C7 28 30 29 AA  C7 28 30 29 3A 84 32 2C  |0)..(0)..(0):.2,|
00001310: 50 46 24 3A A0 32 00 20  1B BE 0F A0 31 35 3A 8E  |PF$:.2. ....15:.|
00001320: 00 3E 1B 88 13 8B 20 46  30 B3 31 31 35 30 A7 4B  |.>.... F0.1150.K|
00001330: 24 B2 22 30 22 3A 49 B2  31 3A 89 31 30 30 00 52  |$."0":I.1:.100.R|
00001340: 1B 9C 13 4B 24 B2 22 31  22 3A 49 B2 31 3A 89 31  |...K$."1":I.1:.1|
00001350: 30 30 00 7C 1B D8 59 59  B2 4F 3A 81 58 B2 32 30  |00.|..YY.O:.X.20|
00001360: 35 36 A4 32 30 37 32 3A  59 B2 59 AA C2 28 58 29  |56.2072:Y.Y..(X)|
00001370: 3A 82 58 3A 8B 59 B2 39  39 33 A7 8E 00 A6 1B E2  |:.X:.Y.993......|
00001380: 59 81 58 B2 32 30 34 38  A4 31 30 30 30 30 A9 33  |Y.X.2048.10000.3|
00001390: 30 3A 97 58 2C 31 33 3A  82 58 3A 99 22 93 22 3A  |0:.X,13:.X:.".":|
000013A0: 9E 36 34 37 33 38 00 00  00 98                    |.64738....      |
..#....53280,0:.53281,0:.G(158);".".L...
.52286:.B(28):.C(28):.A$(1150):.1000...D
.F1.1:.K$."0".I.26:B(27).0:B(28).256:C(2
7).F0:C(28).0:.210...X..K$.."1".1000....
..T.0.28:C(T).0:.T.....B(0).0:.I.1.26:B(
I).64.I:.I:B(27).91:B(28).256.,....".EER
ST TELLEN HOEVEEL BEGIN-ASCII-WAARDENER 
VAN ELK TEKEN ZIJN.".T....15,8,15,"I0":.
2,8,2,"0:FILE-NAMEN".`....T.2.F0.|...HB.
.(T.256):LB.T.256.HB......15,"P".G(98).G
(LB).G(HB).G(0)... ..2,BB$:.C(BB$).16.19
0.W...B.F(H(BB$,1)).64:.B.0.B.0......B.2
7.B.27.....C(B).C(B).1:.T.1;"."......T.)
...."..AANTAL ASCII-NAMEN ZIJN.":.K....T
.0.27.2:.".";G(T.64);".";C(T),"     ."G(
T.65);".";C(T.1):.T...A..".. GEEF EEN TO
ETS OM DOOR TE GAAN "...B..198,0:.198,1:
.198,0...H.I..1.P.R.T0.0:I.I.1:.I.28.550
.....BG.B(I):T0.C(I).....I.I.1:.I.28.ED.
B(I):.300.'....C(I).T0..1150.I.I.1:ED.B(
I):.300.;...T0.T0.C(I):.230.N.,..T0.F0.T
0.T0.1._.-..T0.1150.400...6.."VAN ASCII-
TEKEN ";G(BG);" ZIJN MEER DAN 1150 NAMEN
"...@.."SORTERING VAN DEZE ASCII-NAMEN I
S NIET  GEHEEL JUIST GEBEURD"..... 2: 15
......15,8,15,"I0":.2,8,2,"0:FILE-NAMEN"
.A. .."..INDIEN DRIVE STILSTAAT, IS DE C
64 BEZIG".R....".MET EEN CARBAGE-COLLECT
-ROUTINE        .".A....".SELECTEREN ASC
II-NR..";BG;"T/M";ED:.".TOTAAL TE ZOEKEN
 NAMEN = +-";T0.1......:."TOTAAL AF TE Z
OEKEN FILE-NAMEN =";F0.1;".":TT..1::T.1.
....T.T.1:.T.F0.461.N...HB..(T.256):LB.T
.HB.256:.15,"P".G(98).G(LB).G(HB).G(0).X
....2,B$.K.... C(B$).21.450......H(B$,16
)."                ".450. ...BB$.H(B$,1)
......F(BB$)..BG . F(BB$)..ED.TT.TT.1:A$
(TT).B$:.T.1,TT.2,H(B$,18);...B..TT..115
0. 2: 15:.468...L.."..":.420.!.M. 2: 15:
.TT.0.540.R.T.."... START SORTEREN ASCII
-NR..";BG;"T/M";ED.C.V.!,TT.1,A$(0).....
.".. KLAAR SORTEREN VAN ASCII.";BG;"T/M"
;ED.G....".. START WEGSCHRIJVEN VAN ASCI
I.";BG;"T/M";ED......15,8,15,"I1":.2,8,2
,"1:FILE-NAMEN"......A.0.TT:F1.F1.1.@...
HB..(F1.256):LB.F1.HB.256:.15,"P".G(98).
G(LB).G(HB).G(0).U....2,A$(A):.A.2,H(A$(
A),18);".":A$(A)."":.A: 2: 15......"... 
KLAAR MET WEGSCHRIJVEN ."......TT.1150.2
10.....TT..1:."DOORGAAN MET SELECTEREN S
CII-TEKEN ";G(BG)......15,8,15,"I0":.2,8
,2,"0:FILE-NAMEN"......420.E.&..".. STAR
T OPZOEKEN BEGINPUNTEN IN FILE-    ";.U.
0.." BESTAND VAN ELKE BEGIN-ASCII-WAARDE
    "...:.B(0).2:.I.1.26:B(I).64.I:.I:B(
27).91:I.1...?. 2: 15.U.D..15,8,15,"I1":
.2,8,2,"1:FILE-NAMEN"...N..15,"P".G(98).
G(2).G(0).G(0)...X..H.2.F1:.2,B$.3.]..F(
H(B$,1)).B(I)..".";H(B$,18):.H:.700.T.B.
B(I).H:.".";H(B$,18);H:I.I.1.B.L..I.27.7
00.K.V..605.Y...GH.B(I.1)...F..I.28.B(I)
.GH:I.I.1:.710...P. 2: 15.P.Z..15,8,15,"
I1":.2,8,2,"#":.15,"U1";2;1;18;2......I.
0.27:.15,"B-P";2;I.8.....B$.I("        "
.D(B(I)).G(13),8):.2,B$:.I.7....15,"U2";
2;1;18;2: 2: 15._. ..15,8,15,"I1":.2,8,2
,"1:FILE-NAMEN"...*..15,"P".G(98).G(0).G
(0).G(0):PF$.D(F1):.2,PF$...4. 2: 15:.90
0.....K$."1":K.1:.2040:.".. SORTEER-BEST
AND-DISKETTE IN DRIVE 1 IS  KLAAR ".....
.". GEEF EEN TOETS":.198,0:.198,1:.1000.
I....".. SORTEREN VAN FILE-BST VAN VERZA
MELDISK.".X...."PLAATS DISKETTE MET VERZ
AMELBESTAND IN "......"DRIVE 0 EN EEN DI
SKETTE VOOR HET ".G...."GESORTEERDE BEST
AND IN DRIVE 1"......".ALLEEN FILE-NAMEN
 WORDEN GESORTEERD"......"DE DISK-NAMEN 
BLIJVEN ONGESORTEERD".B.$..".S = START S
ORTEREN FILENAMEN".R....".^ = NAAR EEN A
NDER DEEL VAN THERMO-BIBL"...8..G$:.G$."
".1080...B..G$."^".1200...L..G$.."S".108
0.O.V..".";G$:.".. EVEN GEDULD S.V.P. ".
..`.K$."0":K.0:.2070...J..TS.1.1000.&.K.
.".. GEEF EEN TOETS DAN STARTEN MET MAKE
N   ";.P.L..". BACKUP VAN DISKETTE IN DR
IVE 0 (D1=0)  ":." ^ = TERUG NAAR START"
...M..G$:.G$."".1133...N..G$."^".1000...
O..".. EVEN GEDULD S.V.P. .".L.P..15,8,1
5,"D1=0": 15...T.K$."1":K.1:.2070...Y..T
S.1.1000...~.K$."0":.4000:D0.E(PD$):F0.E
(PF$).:...K$."1":.4000:D1.E(PD$):F1.E(PF
$).P....D0.D1.F0.F1.5000......". COPY IS
 NIET GELIJK GEWORDEN; IETS IS   FOUT GE
GAAN "......".. GEEF EEN TOETS ":.198,0:
.198,1:.1000.F....".";......".PLAATS DIS
KETTE MET . THERMO-BIBL-4040 ".".D.."IN 
. DRIVE 0 . EN GEEF DAN EEN TOETS".`.E.M
$."0:THERMO-START4040":.".^ = TERUG NAAR
 START SORTEREN".T.N..H$:.H$."".1230...X
..H$."^".1000......".. EVEN GEDULD S.V.P
. "......15,8,15,"I0":.2,8,2,M$......15,
E,E$,E1,E2:.E.0.1310..... 2: 15:.".";E$:
.1210..... 15: 2:.".";.*.(..G$."^".."THE
RMO-BIBL-4040",8,1.N.2..G$."P".."THERMO-
PRINT4040",8,1.X.<..1000.W....15,8,15,"I
".K$:.2,8,2,"#"......15,"U1";2;K;18;2:.1
5,"B-P";2;240:.2,"S P.V.HOUT".L....15,"U
2";2;K;18;2: 2: 15:.......15,8,15,"I".K$
:TS.0... ..15,DS,C2$,C3,C4...*..DS..0.DS
..50. 15:.3000.N.4..2,8,2,"#":.15,"U1";2
;K;18;2:.15,"B-P";2;239:.#2,P$.|.>.SD$."
":.X.0.9:.#2,P$:SD$.SD$.P$:.X: 2: 15...R
..SD$.."V P.V.HOUT".2150...\.TS.0:..O.F.
.".. DISKETTE IN DRIVE ";K$;" IS GEEN ".
..K..". VERZAMELBESTAND-DISKETTE !  "...
P.TS.1:.3005......" FOUT IN DRIVE ";K$;.
A...." ";DS;" ";C2$;" ";C3;" ";C4.[...."
.. GEEF EEN TOETS ".T.B.TS.1:.198,0:.198
,1:.... ..15,8,15,"I".K$......2,8,2,K$."
:DISK-NAMEN".O....15,"P".G(98).G(0).G(0)
.G(0):.2,PD$: 2......2,8,2,K$.":FILE-NAM
EN"......15,"P".G(98).G(0).G(0).G(0):.2,
PF$: 2. ... 15:..>.... F0.1150.K$."0":I.
1:.100.R...K$."1":I.1:.100.|.XYY.O:.X.20
56.2072:Y.Y.B(X):.X:.Y.993......Y.X.2048
.10000.30:.X,13:.X:.".":.64738....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL