RESERVE 2
FILE INFORMATION
FILENAME(S): RESERVE 2
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 21:13:17
APPEARS ON: 1 disk(s)
FILE HASH
67a88160dac88e181a3c2fdfb07fea9ac2bcafe94dfc9fb0237eac79b53b08cb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTER64 | RESERVE 2 | PRG | DuncanTwain | 10 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 01 00 41 B2 B8 28 30 29 3A 9C 00 52 |......A..(0):..R|
00000010: 08 05 00 53 50 24 B2 22 20 20 20 20 20 20 20 20 |...SP$." |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000030: 20 20 20 20 20 20 20 20 20 20 20 22 20 3A 41 30 | " :A0|
00000040: 24 20 B2 20 C7 28 30 29 3A 4C 44 41 54 20 B2 20 |$ . .(0):LDAT . |
00000050: 36 33 00 5B 08 06 00 89 39 30 30 00 73 08 84 03 |63.[....900.s...|
00000060: CD 23 31 30 2C 22 54 52 41 4E 53 46 45 52 54 22 |.#10,"TRANSFERT"|
00000070: 2C 44 30 00 80 08 8E 03 84 31 30 2C 4E 4F 4D 24 |,D0......10,NOM$|
00000080: 00 9A 08 B6 03 4E 4F 4D 24 B2 C8 28 28 4E 4F 4D |.....NOM$..((NOM|
00000090: 24 AA 53 50 24 29 2C 31 33 29 00 B9 08 F2 03 8B |$.SP$),13)......|
000000A0: 20 4E 4F 4D 24 20 B3 B1 20 C8 28 53 50 24 2C 31 | NOM$ .. .(SP$,1|
000000B0: 33 29 20 A7 20 31 31 30 30 00 DC 08 FC 03 41 24 |3) . 1100.....A$|
000000C0: B2 22 49 4E 56 41 4C 49 44 45 20 4E 41 4D 45 22 |."INVALIDE NAME"|
000000D0: 3A 8D 32 33 30 30 30 3A 89 34 30 30 00 03 09 4C |:.23000:.400...L|
000000E0: 04 84 31 30 2C 44 44 24 3A 44 44 B2 C5 28 44 44 |..10,DD$:DD..(DD|
000000F0: 24 29 20 3A 8B 20 44 44 20 B3 20 32 20 A7 20 31 |$) :. DD . 2 . 1|
00000100: 32 30 30 00 27 09 56 04 41 24 B2 22 44 52 49 56 |200.'.V.A$."DRIV|
00000110: 45 20 3D 20 30 20 4F 52 20 31 22 3A 8D 32 33 30 |E = 0 OR 1":.230|
00000120: 30 30 3A 89 34 30 30 00 4D 09 B0 04 84 31 30 2C |00:.400.M....10,|
00000130: 44 43 24 3A 44 43 B2 C5 28 44 43 24 29 3A 8B 20 |DC$:DC..(DC$):. |
00000140: 44 43 20 B3 20 32 20 A7 20 31 32 34 30 00 71 09 |DC . 2 . 1240.q.|
00000150: BA 04 41 24 B2 22 44 52 49 56 45 20 3D 20 30 20 |..A$."DRIVE = 0 |
00000160: 4F 52 20 31 22 3A 8D 32 33 30 30 30 3A 89 34 30 |OR 1":.23000:.40|
00000170: 30 00 96 09 D8 04 84 31 30 2C 56 4C 3A 8B 20 56 |0......10,VL:. V|
00000180: 4C 20 B3 20 33 20 AF 20 56 4C 20 B1 20 30 20 20 |L . 3 . VL . 0 |
00000190: A7 20 31 32 37 30 00 BA 09 E2 04 41 24 B2 22 4C |. 1270.....A$."L|
000001A0: 45 56 45 4C 20 3D 20 31 20 4F 52 20 32 22 3A 8D |EVEL = 1 OR 2":.|
000001B0: 32 33 30 30 30 3A 89 34 30 30 00 C9 09 F6 04 56 |23000:.400.....V|
000001C0: 4C 20 B2 20 56 4C 20 AB 31 00 D7 09 14 05 84 31 |L . VL .1......1|
000001D0: 30 2C 4E 42 52 45 43 00 FE 09 1E 05 8B 20 4E 42 |0,NBREC...... NB|
000001E0: 52 45 43 20 B3 20 33 32 37 36 38 20 AF 20 4E 42 |REC . 32768 . NB|
000001F0: 52 45 43 20 B1 20 30 20 A7 20 31 34 30 30 00 2E |REC . 0 . 1400..|
00000200: 0A 28 05 41 24 B2 22 49 4E 56 41 4C 49 44 45 20 |.(.A$."INVALIDE |
00000210: 4E 55 4D 42 45 52 20 4F 46 20 52 45 43 4F 52 44 |NUMBER OF RECORD|
00000220: 53 22 3A 8D 32 33 30 30 30 3A 89 34 30 30 00 5B |S":.23000:.400.[|
00000230: 0A 78 05 84 31 30 2C 4C 52 45 43 3A 8B 20 4C 52 |.x..10,LREC:. LR|
00000240: 45 43 20 B1 20 30 20 AF 20 4C 52 45 43 20 B3 B2 |EC . 0 . LREC ..|
00000250: 20 32 35 34 20 A7 20 31 35 30 30 00 8A 0A 82 05 | 254 . 1500.....|
00000260: 41 24 B2 22 31 20 3C 3D 20 52 45 43 4F 52 44 20 |A$."1 <= RECORD |
00000270: 4C 45 4E 47 54 48 20 3C 3D 20 32 35 34 22 3A 8D |LENGTH <= 254":.|
00000280: 32 33 30 30 30 3A 89 34 30 30 00 B6 0A DC 05 84 |23000:.400......|
00000290: 31 30 2C 4C 4B 45 59 3A 8B 20 4C 4B 45 59 20 B1 |10,LKEY:. LKEY .|
000002A0: 20 30 20 AF 20 4C 4B 45 59 20 B3 B2 20 33 30 20 | 0 . LKEY .. 30 |
000002B0: A7 20 31 35 32 30 00 E1 0A E6 05 41 24 B2 22 31 |. 1520.....A$."1|
000002C0: 20 3C 3D 20 4B 45 59 20 4C 45 4E 47 54 48 20 3C | <= KEY LENGTH <|
000002D0: 3D 20 33 30 22 3A 8D 32 33 30 30 30 3A 89 34 30 |= 30":.23000:.40|
000002E0: 30 00 FB 0A F0 05 8B 20 4C 52 45 43 20 B1 B2 20 |0...... LREC .. |
000002F0: 4C 4B 45 59 20 A7 20 31 36 30 30 00 2F 0B FA 05 |LKEY . 1600./...|
00000300: 41 24 B2 22 4B 45 59 20 4C 45 4E 47 54 48 20 3E |A$."KEY LENGTH >|
00000310: 20 52 45 43 4F 52 44 20 4C 45 4E 47 54 48 22 3A | RECORD LENGTH":|
00000320: 8D 32 33 30 30 30 3A 49 B2 35 3A 89 34 30 30 00 |.23000:I.5:.400.|
00000330: 5C 0B 40 06 84 31 30 2C 4B 44 45 42 3A 8B 20 4B |\.@..10,KDEB:. K|
00000340: 44 45 42 20 B1 20 30 20 AF 20 4B 44 45 42 20 B3 |DEB . 0 . KDEB .|
00000350: B2 20 32 35 34 20 A7 20 31 36 32 30 00 8A 0B 4A |. 254 . 1620...J|
00000360: 06 41 24 B2 22 31 20 3C 3D 20 4B 45 59 20 50 4F |.A$."1 <= KEY PO|
00000370: 53 49 54 49 4F 4E 20 3C 3D 20 32 35 34 22 3A 8D |SITION <= 254":.|
00000380: 32 33 30 30 30 3A 89 34 30 30 00 AF 0B 54 06 8B |23000:.400...T..|
00000390: 20 4B 44 45 42 20 AA 20 4C 4B 45 59 20 AB 20 31 | KDEB . LKEY . 1|
000003A0: 20 B3 B2 20 4C 52 45 43 20 A7 20 31 37 30 30 00 | .. LREC . 1700.|
000003B0: E1 0B 5E 06 41 24 B2 22 4B 45 59 20 50 4F 53 49 |..^.A$."KEY POSI|
000003C0: 54 49 4F 4E 20 3E 20 52 45 43 4F 52 44 20 4C 45 |TION > RECORD LE|
000003D0: 4E 47 54 48 22 3A 8D 32 33 30 30 30 3A 89 34 30 |NGTH":.23000:.40|
000003E0: 30 00 04 0C A4 06 84 31 30 2C 58 58 24 3A 84 31 |0......10,XX$:.1|
000003F0: 30 2C 59 59 3A CE 23 31 30 3A 58 58 24 B2 58 58 |0,YY:.#10:XX$.XX|
00000400: 24 AA 22 22 00 0A 0C 87 13 8F 00 54 0C 88 13 8F |$."".......T....|
00000410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000420: 2D 2D 2D 2D 2D 2D 20 43 52 45 41 54 49 4F 4E 20 |------ CREATION |
00000430: 44 55 20 46 49 43 48 49 45 52 20 2D 2D 2D 2D 2D |DU FICHIER -----|
00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000450: 2D 2D 2D 2D 00 7B 0C 89 13 8F 20 20 49 4E 50 55 |----.{.... INPU|
00000460: 54 20 20 4E 4F 4D 20 44 55 20 46 49 43 48 49 45 |T NOM DU FICHIE|
00000470: 52 20 44 41 4E 53 20 4E 4F 4D 24 00 A0 0C 8A 13 |R DANS NOM$.....|
00000480: 8F 20 20 2D 2D 2D 2D 2D 20 20 44 52 49 56 45 20 |. ----- DRIVE |
00000490: 44 41 54 41 20 20 20 20 20 20 20 20 20 20 44 44 |DATA DD|
000004A0: 00 C5 0C 8B 13 8F 20 20 20 20 20 20 20 20 20 44 |...... D|
000004B0: 52 49 56 45 20 43 4C 45 20 20 20 20 20 20 20 20 |RIVE CLE |
000004C0: 20 20 20 44 43 00 ED 0C 8C 13 8F 20 20 20 20 20 | DC...... |
000004D0: 20 20 20 20 4E 4F 4D 42 52 45 20 44 45 20 52 45 | NOMBRE DE RE|
000004E0: 43 4F 52 44 53 20 20 20 4E 42 52 45 43 00 14 0D |CORDS NBREC...|
000004F0: 8D 13 8F 20 20 20 20 20 20 20 20 20 52 45 43 4F |... RECO|
00000500: 52 44 20 53 49 5A 45 20 20 20 20 20 20 20 20 20 |RD SIZE |
00000510: 4C 52 45 43 00 3B 0D 8E 13 8F 20 20 20 20 20 20 |LREC.;.... |
00000520: 20 20 20 4B 45 59 20 4C 45 4E 47 54 48 20 20 20 | KEY LENGTH |
00000530: 20 20 20 20 20 20 20 4C 4B 45 59 00 62 0D 8F 13 | LKEY.b...|
00000540: 8F 20 20 20 20 20 20 20 20 20 4B 45 59 20 50 4F |. KEY PO|
00000550: 53 49 54 49 4F 4E 20 20 20 20 20 20 20 20 4B 44 |SITION KD|
00000560: 45 42 00 9F 0D 70 17 50 31 B2 B5 28 32 35 34 AD |EB...p.P1..(254.|
00000570: 28 4C 4B 45 59 AA 33 29 29 3A 50 32 B2 B5 28 4E |(LKEY.3)):P2..(N|
00000580: 42 52 45 43 AD 50 31 29 AA 31 3A 50 34 B2 B5 28 |BREC.P1).1:P4..(|
00000590: 50 32 AC 31 2E 35 29 AA 31 3A 50 36 B2 50 34 00 |P2.1.5).1:P6.P4.|
000005A0: B1 0D 72 17 8B 20 56 4C 20 B2 30 20 89 36 30 31 |..r.. VL .0 .601|
000005B0: 30 00 DE 0D 74 17 50 35 B2 B5 28 50 34 AD 50 31 |0...t.P5..(P4.P1|
000005C0: 29 AA 31 20 3A 20 50 34 B2 B5 28 50 35 AC 31 2E |).1 : P4..(P5.1.|
000005D0: 35 29 AA 31 20 3A 50 36 B2 50 36 AA 50 34 00 01 |5).1 :P6.P6.P4..|
000005E0: 0E 7A 17 50 33 B2 28 4C 4B 45 59 AA 33 29 AC 50 |.z.P3.(LKEY.3).P|
000005F0: 34 AA 33 AC 28 4C 4B 45 59 AA 33 29 AA 4C 44 41 |4.3.(LKEY.3).LDA|
00000600: 54 00 26 0E 8E 17 42 31 B2 B5 28 32 35 34 AD 4C |T.&...B1..(254.L|
00000610: 52 45 43 29 3A 42 32 B2 B5 28 4C 44 41 54 AD 4C |REC):B2..(LDAT.L|
00000620: 52 45 43 29 AA 31 00 4F 0E 98 17 42 33 B2 B5 28 |REC).1.O...B3..(|
00000630: 28 4E 42 52 45 43 AA 42 32 29 AD 42 31 29 AA 31 |(NBREC.B2).B1).1|
00000640: 3A 42 34 B2 B5 28 50 33 AD 32 35 34 29 AA 31 00 |:B4..(P3.254).1.|
00000650: 99 0E 06 18 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.....-----------|
00000660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 AB 0E 10 18 8F 20 |---------...... |
000006A0: 20 47 4F 53 55 42 36 32 30 30 30 00 D0 0E 38 18 | GOSUB62000...8.|
000006B0: 4E 43 24 B2 44 43 24 AA 22 3A 22 AA 4E 4F 4D 24 |NC$.DC$.":".NOM$|
000006C0: AA 22 49 2C 55 2C 57 22 3A 56 24 B2 4E 4F 4D 24 |."I,U,W":V$.NOM$|
000006D0: 00 E3 0E 42 18 9F 34 2C 38 2C 34 2C 22 40 22 AA |...B..4,8,4,"@".|
000006E0: 4E 43 24 00 FC 0E 47 18 4A B2 32 35 34 3A 8B 56 |NC$...G.J.254:.V|
000006F0: 4C B2 31 A7 4A 20 B2 32 35 34 AC 32 00 17 0F 4C |L.1.J .254.2...L|
00000700: 18 81 49 B2 31 A4 4A 3A 98 34 2C C7 28 32 35 35 |..I.1.J:.4,.(255|
00000710: 29 3B 3A 82 3A A0 34 00 51 0F 4E 18 4E 4F 24 B2 |);:.:.4.Q.N.NO$.|
00000720: 4E 4F 4D 24 AA 22 49 22 3A 44 B2 44 43 3A 55 B2 |NOM$."I":D.DC:U.|
00000730: 38 3A 54 59 B2 32 3A 8D 33 30 30 30 30 3A 54 31 |8:TY.2:.30000:T1|
00000740: B2 54 3A 53 31 B2 53 3A 54 33 B2 54 3A 53 33 B2 |.T:S1.S:T3.T:S3.|
00000750: 53 00 75 0F 4F 18 8B 20 56 4C 20 B2 20 30 20 A7 |S.u.O.. VL . 0 .|
00000760: 20 54 32 B2 54 20 3A 20 53 32 B2 53 20 3A 20 89 | T2.T : S2.S : .|
00000770: 20 36 32 32 37 00 AE 0F 50 18 70 54 31 2C 53 31 | 6227...P.pT1,S1|
00000780: 2C 44 2C 55 3A 71 41 24 2C 30 2C 32 3A 54 B2 C6 |,D,U:qA$,0,2:T..|
00000790: 28 41 24 29 3A 53 B2 C6 28 CA 28 41 24 2C 32 2C |(A$):S..(.(A$,2,|
000007A0: 31 29 29 3A 41 B2 54 3A 8D 32 36 38 30 30 00 EB |1)):A.T:.26800..|
000007B0: 0F 51 18 42 24 B2 41 24 3A 41 B2 53 3A 8D 32 36 |.Q.B$.A$:A.S:.26|
000007C0: 38 30 30 3A 42 24 B2 42 24 AA 41 24 3A 41 24 B2 |800:B$.B$.A$:A$.|
000007D0: 22 22 3A 81 49 B2 31 A4 4C 4B 45 59 3A 41 24 B2 |"":.I.1.LKEY:A$.|
000007E0: 41 35 39 C7 6C 38 35 48 35 3A 82 00 17 10 52 18 |A59.l85H5:....R.|
000007F0: 41 24 B2 41 24 AA 42 24 AA 41 30 24 3A 72 41 24 |A$.A$.B$.A0$:rA$|
00000800: 2C 32 3A 73 54 31 2C 53 31 2C 44 2C 55 3A 54 32 |,2:sT1,S1,D,U:T2|
00000810: B2 54 3A 53 32 B2 53 00 23 10 53 18 4E 4F 4D 24 |.T:S2.S.#.S.NOM$|
00000820: B2 56 24 00 6D 10 56 18 8F 2D 2D 2D 2D 2D 2D 2D |.V$.m.V..-------|
00000830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 8A 10 |-------------...|
00000870: 6A 18 4E 44 24 B2 44 44 24 AA 22 3A 22 AA 4E 4F |j.ND$.DD$.":".NO|
00000880: 4D 24 AA 22 44 2C 55 2C 57 22 00 9D 10 6F 18 9F |M$."D,U,W"...o..|
00000890: 35 2C 38 2C 35 2C 22 40 22 AA 4E 44 24 00 C3 10 |5,8,5,"@".ND$...|
000008A0: 74 18 41 20 B2 20 4C 44 41 54 20 3A 20 8B 20 4C |t.A . LDAT : . L|
000008B0: 52 45 43 20 B1 20 31 32 37 20 A7 20 41 20 B2 20 |REC . 127 . A . |
000008C0: 32 35 35 00 E1 10 7E 18 81 20 49 20 B2 20 31 20 |255...~.. I . 1 |
000008D0: A4 20 41 20 3A 20 98 35 2C 41 30 24 3B 20 3A 20 |. A : .5,A0$; : |
000008E0: 82 00 E8 10 88 18 A0 35 00 0B 11 9C 18 4E 54 24 |.......5.....NT$|
000008F0: 20 B2 20 44 43 24 20 AA 22 3A 22 20 AA 20 4E 4F | . DC$ .":" . NO|
00000900: 4D 24 20 AA 22 20 2C 55 2C 57 22 00 11 11 58 1B |M$ ." ,U,W"...X.|
00000910: 8F 00 5B 11 59 1B 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |..[.Y.. --------|
00000920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000930: 2D 20 43 41 4C 43 55 4C 53 20 2D 2D 2D 2D 2D 2D |- CALCULS ------|
00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 61 11 5A 1B |-----------.a.Z.|
00000960: 8F 00 94 11 62 1B 4E 4F 24 B2 CA 28 4E 44 24 2C |....b.NO$..(ND$,|
00000970: 33 2C 31 34 29 3A 44 B2 44 44 3A 55 B2 38 3A 54 |3,14):D.DD:U.8:T|
00000980: 59 B2 32 3A 8D 33 30 30 30 30 3A 54 31 B2 54 3A |Y.2:.30000:T1.T:|
00000990: 53 31 B2 53 00 A8 11 63 1B 8B 4C 52 45 43 B3 B2 |S1.S...c..LREC..|
000009A0: 31 32 37 A7 37 30 32 30 00 D2 11 64 1B 70 54 2C |127.7020...d.pT,|
000009B0: 53 2C 44 2C 55 3A 71 41 24 2C 30 2C 31 3A 8B 41 |S,D,U:qA$,0,1:.A|
000009C0: 24 20 B2 20 22 22 20 A7 20 41 24 20 B2 20 C7 28 |$ . "" . A$ . .(|
000009D0: 30 29 00 DE 11 66 1B 54 B2 C6 28 41 24 29 00 FF |0)...f.T..(A$)..|
000009E0: 11 68 1B 71 41 24 2C 31 2C 31 3A 8B 41 24 20 B2 |.h.qA$,1,1:.A$ .|
000009F0: 20 22 22 20 A7 20 41 24 20 B2 20 C7 28 30 29 00 | "" . A$ . .(0).|
00000A00: 0B 12 6A 1B 53 B2 C6 28 41 24 29 00 11 12 6C 1B |..j.S..(A$)...l.|
00000A10: 8F 00 25 12 76 1B 9F 34 2C 38 2C 34 2C 22 40 22 |..%.v..4,8,4,"@"|
00000A20: AA 20 4E 54 24 00 5F 12 80 1B 41 20 B2 20 50 33 |. NT$._...A . P3|
00000A30: 20 3A 20 8D 32 36 30 30 30 20 3A 20 98 34 2C 41 | : .26000 : .4,A|
00000A40: 31 24 3B 41 32 24 3B 20 3A 20 8F 20 4C 45 4E 20 |1$;A2$; : . LEN |
00000A50: 4F 46 20 54 47 20 20 2D 20 4C 45 4E 54 41 42 00 |OF TG - LENTAB.|
00000A60: 9F 12 8A 1B 41 20 B2 20 4E 42 52 45 43 20 3A 20 |....A . NBREC : |
00000A70: 8D 32 36 30 30 30 20 3A 20 98 34 2C 41 31 24 3B |.26000 : .4,A1$;|
00000A80: 41 32 24 3B 20 3A 20 8F 20 4E 55 4D 42 45 52 20 |A2$; : . NUMBER |
00000A90: 4F 46 20 52 45 43 4F 52 44 53 20 2D 20 4E 52 00 |OF RECORDS - NR.|
00000AA0: C5 12 94 1B 98 34 2C 41 30 24 3B 41 30 24 3B 20 |.....4,A0$;A0$; |
00000AB0: 3A 20 8F 20 46 52 45 45 20 52 45 43 4F 52 44 53 |: . FREE RECORDS|
00000AC0: 20 2D 20 46 52 00 FB 12 9E 1B 52 42 20 B2 20 B5 | - FR.....RB . .|
00000AD0: 28 32 35 34 AD 4C 52 45 43 29 20 3A 20 52 42 20 |(254.LREC) : RB |
00000AE0: B2 20 52 42 AC 4C 52 45 43 20 3A 20 52 42 20 B2 |. RB.LREC : RB .|
00000AF0: 20 52 42 20 AA 20 32 20 AB 20 31 00 1F 13 A8 1B | RB . 2 . 1.....|
00000B00: 98 34 2C C7 28 52 42 29 3B 20 3A 20 8F 20 4D 41 |.4,.(RB); : . MA|
00000B10: 58 20 42 4C 4F 43 4B 49 4E 47 20 2D 20 52 42 00 |X BLOCKING - RB.|
00000B20: 44 13 B2 1B 98 34 2C C7 28 4C 52 45 43 29 3B 20 |D....4,.(LREC); |
00000B30: 3A 20 8F 20 52 45 43 4F 52 44 20 53 49 5A 45 20 |: . RECORD SIZE |
00000B40: 2D 20 52 53 00 4F 13 D0 1B 8D 32 30 30 30 30 00 |- RS.O....20000.|
00000B50: 71 13 F8 1B 4C 53 20 B2 20 4C 4B 45 59 20 3A 20 |q...LS . LKEY : |
00000B60: 4C 58 20 B2 20 4C 4B 45 59 20 AA 20 33 20 AB 20 |LX . LKEY . 3 . |
00000B70: 31 00 AC 13 02 1C 98 34 2C C7 28 4C 4B 45 59 AA |1......4,.(LKEY.|
00000B80: 33 29 3B C7 28 4C 53 29 3B C7 28 4C 58 29 3B 20 |3);.(LS);.(LX); |
00000B90: 3A 20 8F 20 4B 45 59 20 49 4E 46 4F 20 2D 20 4C |: . KEY INFO - L|
00000BA0: 4B 4C 2C 4C 4B 4C 53 2C 4C 4B 4C 44 00 D7 13 0C |KL,LKLS,LKLD....|
00000BB0: 1C 98 34 2C C7 28 4B 44 45 42 AB 31 29 3B 20 3A |..4,.(KDEB.1); :|
00000BC0: 20 8F 20 4B 45 59 50 4F 53 49 54 49 4F 4E 20 2D | . KEYPOSITION -|
00000BD0: 20 4B 45 59 50 4F 53 00 09 14 16 1C 81 49 B2 31 | KEYPOS......I.1|
00000BE0: A4 38 3A 98 34 2C 41 30 24 3B 3A 82 20 3A 20 8F |.8:.4,A0$;:. : .|
00000BF0: 20 46 49 4C 4C 45 52 20 2D 20 41 44 4E 2C 41 44 | FILLER - ADN,AD|
00000C00: 52 2C 41 44 58 2C 41 44 53 00 15 14 20 1C 8D 20 |R,ADX,ADS... .. |
00000C10: 32 30 30 30 30 00 36 14 2A 1C 98 34 2C C7 28 56 |20000.6.*..4,.(V|
00000C20: 4C 29 20 3B 20 3A 20 8F 20 4C 45 56 45 4C 20 2D |L) ; : . LEVEL -|
00000C30: 20 4C 45 56 45 4C 00 41 14 34 1C 8D 32 30 30 30 | LEVEL.A.4..2000|
00000C40: 30 00 6E 14 3E 1C 98 34 2C 41 30 24 3B 20 3A 20 |0.n.>..4,A0$; : |
00000C50: 8F 20 41 44 44 52 45 53 53 20 4F 46 20 4B 45 59 |. ADDRESS OF KEY|
00000C60: 20 44 52 49 56 45 20 2D 20 4B 44 52 49 56 00 90 | DRIVE - KDRIV..|
00000C70: 14 48 1C 41 24 B2 41 30 24 20 3A 20 8B 20 44 44 |.H.A$.A0$ : . DD|
00000C80: 20 B3 B1 20 44 43 20 A7 20 41 24 B2 C7 28 31 29 | .. DC . A$..(1)|
00000C90: 00 C7 14 5C 1C 98 34 2C 41 24 3B 20 3A 20 8F 20 |...\..4,A$; : . |
00000CA0: 46 4C 41 47 20 46 4F 52 20 53 41 4D 45 20 44 52 |FLAG FOR SAME DR|
00000CB0: 49 56 45 53 20 44 41 54 41 2F 4B 45 59 53 20 2D |IVES DATA/KEYS -|
00000CC0: 20 42 59 54 53 41 4D 00 EE 14 61 1C 98 34 2C 54 | BYTSAM...a..4,T|
00000CD0: 44 24 3B 53 44 24 3B 3A 20 8F 20 4C 49 4E 4B 20 |D$;SD$;: . LINK |
00000CE0: 46 49 4C 45 53 20 2D 20 4C 4E 4B 44 41 54 00 1E |FILES - LNKDAT..|
00000CF0: 15 6B 1C 41 B2 54 32 3A 8D 32 36 38 30 30 3A 98 |.k.A.T2:.26800:.|
00000D00: 34 2C 41 24 3B 3A 8F 20 4C 49 4E 4B 20 46 4F 52 |4,A$;:. LINK FOR|
00000D10: 20 4B 45 59 53 20 2D 20 4C 4E 4B 4B 45 59 00 35 | KEYS - LNKKEY.5|
00000D20: 15 70 1C 41 B2 53 32 3A 8D 32 36 38 30 30 3A 98 |.p.A.S2:.26800:.|
00000D30: 34 2C 41 24 3B 00 60 15 71 1C 98 34 2C 41 30 24 |4,A$;.`.q..4,A0$|
00000D40: 3B 41 30 24 3B 3A 8F 20 4E 55 4D 45 52 4F 20 52 |;A0$;:. NUMERO R|
00000D50: 45 4C 41 54 49 46 20 44 45 20 52 45 43 4F 52 44 |ELATIF DE RECORD|
00000D60: 00 8B 15 73 1C 8D 32 30 30 30 30 3B 8F 20 50 4F |...s..20000;. PO|
00000D70: 49 4E 54 45 55 52 53 20 44 45 52 4E 49 45 52 20 |INTEURS DERNIER |
00000D80: 42 4C 4F 43 20 49 4E 44 45 58 45 00 C2 15 74 1C |BLOC INDEXE...t.|
00000D90: 41 B2 54 31 3A 8D 32 36 38 30 30 3A 98 34 2C 41 |A.T1:.26800:.4,A|
00000DA0: 24 3B 3A 41 B2 53 31 3A 8D 32 36 38 30 30 3A 98 |$;:A.S1:.26800:.|
00000DB0: 34 2C 41 24 3B 3A 8F 20 44 45 42 55 54 20 44 41 |4,A$;:. DEBUT DA|
00000DC0: 54 41 00 F8 15 75 1C 41 B2 54 33 3A 8D 32 36 38 |TA...u.A.T3:.268|
00000DD0: 30 30 3A 98 34 2C 41 24 3B 3A 41 B2 53 33 3A 8D |00:.4,A$;:A.S3:.|
00000DE0: 32 36 38 30 30 3A 98 34 2C 41 24 3B 3A 8F 20 44 |26800:.4,A$;:. D|
00000DF0: 45 42 55 54 20 4B 45 59 00 18 16 76 1C 81 49 B2 |EBUT KEY...v..I.|
00000E00: 31 A4 31 38 3A 98 34 2C 41 30 24 3B 3A 82 49 3A |1.18:.4,A0$;:.I:|
00000E10: 8F 20 46 49 4C 4C 45 52 00 35 16 84 1C 81 49 B2 |. FILLER.5....I.|
00000E20: 31 A4 4C 4B 45 59 AA 33 3A 98 34 2C C7 28 32 35 |1.LKEY.3:.4,.(25|
00000E30: 34 29 3B 3A 82 00 50 16 89 1C 81 49 B2 31 A4 4C |4);:..P....I.1.L|
00000E40: 4B 45 59 3A 98 34 2C C7 28 32 35 33 29 3B 3A 82 |KEY:.4,.(253);:.|
00000E50: 00 7E 16 8E 1C 41 20 B2 20 54 33 3A 8D 32 36 38 |.~...A . T3:.268|
00000E60: 30 30 3A 98 34 2C 41 24 3B 20 3A 20 8F 20 54 52 |00:.4,A$; : . TR|
00000E70: 41 43 4B 20 46 49 52 53 54 20 4B 45 59 53 00 AD |ACK FIRST KEYS..|
00000E80: 16 98 1C 41 20 B2 20 53 33 3A 8D 32 36 38 30 30 |...A . S3:.26800|
00000E90: 3A 98 34 2C 41 24 3B 20 3A 20 8F 20 53 45 43 54 |:.4,A$; : . SECT|
00000EA0: 4F 52 20 46 49 52 53 54 20 4B 45 59 53 00 DC 16 |OR FIRST KEYS...|
00000EB0: 9D 1C 8B 20 56 4C 20 B2 20 30 20 A7 20 98 34 2C |... VL . 0 . .4,|
00000EC0: 41 30 24 3B 20 3A 20 89 20 37 33 34 30 3A 20 8F |A0$; : . 7340: .|
00000ED0: 20 50 4F 53 20 31 53 54 20 4B 45 59 00 08 17 A2 | POS 1ST KEY....|
00000EE0: 1C 98 34 2C C7 28 4C 4B 45 59 AA 33 29 20 20 3B |..4,.(LKEY.3) ;|
00000EF0: 20 3A 20 8F 20 50 4F 53 49 54 49 4F 4E 20 46 49 | : . POSITION FI|
00000F00: 52 53 54 20 4B 45 59 53 00 34 17 AC 1C 81 49 B2 |RST KEYS.4....I.|
00000F10: 31 A4 4C 4B 45 59 AA 33 3A 98 34 2C C7 28 32 35 |1.LKEY.3:.4,.(25|
00000F20: 35 29 3B 3A 82 20 3A 20 8F 20 45 4E 44 20 42 41 |5);:. : . END BA|
00000F30: 4E 4E 45 52 00 3B 17 E8 1C A0 34 00 6E 17 40 1F |NNER.;....4.n.@.|
00000F40: 4E 4F 24 B2 CA 28 4E 44 24 2C 33 2C 31 34 29 3A |NO$..(ND$,3,14):|
00000F50: 44 B2 44 44 3A 55 B2 38 3A 54 59 B2 32 3A 8D 33 |D.DD:U.8:TY.2:.3|
00000F60: 30 30 30 30 3A 54 31 B2 54 3A 53 31 B2 53 00 97 |0000:T1.T:S1.S..|
00000F70: 17 4A 1F 4E 4F 24 B2 CA 28 4E 54 24 2C 33 2C 31 |.J.NO$..(NT$,3,1|
00000F80: 34 29 3A 44 B2 44 43 3A 55 B2 38 3A 54 59 B2 32 |4):D.DC:U.8:TY.2|
00000F90: 3A 8D 33 30 30 30 30 00 A5 17 54 1F 70 54 2C 53 |:.30000...T.pT,S|
00000FA0: 2C 44 43 2C 55 00 B4 17 68 1F 71 20 41 24 2C 32 |,DC,U...h.q A$,2|
00000FB0: 2C 31 30 30 00 C4 17 72 1F 70 54 31 2C 53 31 2C |,100...r.pT1,S1,|
00000FC0: 44 44 2C 55 00 E5 17 7C 1F 72 20 41 24 2C 32 20 |DD,U...|.r A$,2 |
00000FD0: 3A 8B 4C 52 45 43 B3 B2 31 32 37 A7 3A 72 C7 28 |:.LREC..127.:r.(|
00000FE0: 52 4E 29 2C 31 00 F5 17 86 1F 73 54 31 2C 53 31 |RN),1.....sT1,S1|
00000FF0: 2C 44 44 2C 55 00 07 18 10 27 D6 22 22 AA 58 58 |,DD,U....'."".XX|
00001000: 24 2C 44 28 59 59 29 00 47 18 20 4E 41 B2 54 3A |$,D(YY).G. NA.T:|
00001010: 8D 32 36 38 30 30 3A 98 34 2C 41 24 3B 3A 20 54 |.26800:.4,A$;: T|
00001020: 44 24 B2 41 24 3A 20 20 20 8F 20 54 52 41 43 4B |D$.A$: . TRACK|
00001030: 20 31 53 54 20 52 45 43 20 54 4F 20 49 4E 53 45 | 1ST REC TO INSE|
00001040: 52 54 20 2D 20 54 31 00 88 18 2A 4E 41 B2 53 3A |RT - T1...*NA.S:|
00001050: 8D 32 36 38 30 30 3A 98 34 2C 41 24 3B 3A 20 53 |.26800:.4,A$;: S|
00001060: 44 24 B2 41 24 3A 20 20 20 8F 20 53 45 43 54 4F |D$.A$: . SECTO|
00001070: 52 20 31 53 54 20 52 45 43 20 54 4F 20 49 4E 53 |R 1ST REC TO INS|
00001080: 45 52 54 20 2D 20 53 31 00 B5 18 34 4E 52 4E 20 |ERT - S1...4NRN |
00001090: B2 20 B5 28 4C 44 41 54 AD 4C 52 45 43 29 20 AA |. .(LDAT.LREC) .|
000010A0: 20 31 20 3A 20 52 4E 20 B2 20 28 52 4E AC 4C 52 | 1 : RN . (RN.LR|
000010B0: 45 43 29 AA 31 00 CF 18 3E 4E 8B 20 4C 52 45 43 |EC).1...>N. LREC|
000010C0: 20 B1 20 31 32 37 20 A7 20 52 4E 20 B2 20 31 00 | . 127 . RN . 1.|
000010D0: 08 19 48 4E 98 34 2C C7 28 52 4E 29 3B 20 3A 20 |..HN.4,.(RN); : |
000010E0: 8F 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 31 53 |. POSITION OF 1S|
000010F0: 54 20 52 45 43 4F 52 44 20 54 4F 20 49 4E 53 45 |T RECORD TO INSE|
00001100: 52 54 20 2D 20 52 4E 31 00 0E 19 52 4E 8E 00 2B |RT - RN1...RN..+|
00001110: 19 D8 59 99 C7 28 37 29 3B 3A 10 41 24 2C 32 35 |..Y..(7);:.A$,25|
00001120: 2C 32 30 AB C3 28 41 24 29 AD 32 00 3A 19 DD 59 |,20..(A$).2.:..Y|
00001130: 62 32 35 2C 31 2C 31 2C 34 30 00 51 19 DE 59 A1 |b25,1,1,40.Q..Y.|
00001140: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 32 33 30 30 |A$:.A$.." ".2300|
00001150: 36 00 60 19 DF 59 62 32 35 2C 31 2C 31 2C 34 30 |6.`..Yb25,1,1,40|
00001160: 00 82 19 E2 59 10 C8 28 53 50 24 2C C3 28 41 24 |....Y..(SP$,.(A$|
00001170: 29 29 2C 32 35 2C 32 30 AB C3 28 41 24 29 AD 32 |)),25,20..(A$).2|
00001180: 3A 8E 00 88 19 9E 61 80 00 8E 19 90 65 8F 00 D8 |:.....a.....e...|
00001190: 19 9A 65 8F 20 20 20 20 20 20 20 2D 2D 2D 2D 2D |..e. -----|
000011A0: 20 54 52 41 4E 53 46 4F 52 4D 41 54 49 4F 4E 20 | TRANSFORMATION |
000011B0: 44 27 55 4E 20 4E 4F 4D 42 52 45 20 45 4E 20 53 |D'UN NOMBRE EN S|
000011C0: 41 20 52 45 50 52 45 53 45 4E 54 41 54 49 4F 4E |A REPRESENTATION|
000011D0: 20 2D 2D 2D 2D 2D 2D 2D 00 FB 19 A4 65 8F 20 20 | -------....e. |
000011E0: 20 20 20 20 20 2D 2D 2D 2D 2D 20 42 49 4E 41 49 | ----- BINAI|
000011F0: 52 45 20 49 4E 56 45 52 53 45 45 00 19 1A AE 65 |RE INVERSEE....e|
00001200: 8F 20 49 4E 20 3A 20 41 20 20 20 20 20 20 20 20 |. IN : A |
00001210: 2D 2D 20 4E 4F 4D 42 52 45 00 39 1A B8 65 8F 20 |-- NOMBRE.9..e. |
00001220: 10 3A 20 41 31 20 20 20 20 20 20 20 2D 2D 20 4C |.: A1 -- L|
00001230: 4F 57 45 52 20 50 41 52 54 00 5C 1A C2 65 8F 20 |OWER PART.\..e. |
00001240: 20 20 20 20 20 41 32 20 20 20 20 20 20 20 2D 2D | A2 --|
00001250: 20 48 49 47 48 45 52 20 50 41 52 54 00 85 1A CC | HIGHER PART....|
00001260: 65 8F 20 20 20 20 20 20 41 31 24 20 20 20 20 20 |e. A1$ |
00001270: 20 2D 2D 20 4C 4F 57 45 52 20 50 41 52 54 20 28 | -- LOWER PART (|
00001280: 43 48 52 24 29 00 A8 1A D6 65 8F 20 20 20 20 20 |CHR$)....e. |
00001290: 20 41 32 24 20 20 20 20 20 20 2D 2D 20 48 49 47 | A2$ -- HIG|
000012A0: 48 45 52 20 50 41 52 54 00 EA 1A E0 65 41 32 20 |HER PART....eA2 |
000012B0: B2 20 B5 28 41 AD 32 35 36 29 20 3A 20 41 31 20 |. .(A.256) : A1 |
000012C0: B2 20 41 20 AB 20 41 32 20 AC 20 32 35 36 20 3A |. A . A2 . 256 :|
000012D0: 20 41 31 24 20 B2 20 C7 28 41 31 29 20 3A 20 41 | A1$ . .(A1) : A|
000012E0: 32 24 20 B2 20 C7 28 41 32 29 00 F0 1A EA 65 8E |2$ . .(A2)....e.|
000012F0: 00 F6 1A 84 67 8F 00 40 1B 8E 67 8F 20 20 20 20 |....g..@..g. |
00001300: 20 20 20 2D 2D 2D 2D 2D 20 54 52 41 4E 53 46 4F | ----- TRANSFO|
00001310: 52 4D 41 54 49 4F 4E 20 44 27 55 4E 20 4E 4F 4D |RMATION D'UN NOM|
00001320: 42 52 45 20 45 4E 20 53 41 20 52 45 50 52 45 53 |BRE EN SA REPRES|
00001330: 45 4E 54 41 54 49 4F 4E 20 2D 2D 2D 2D 2D 2D 2D |ENTATION -------|
00001340: 00 56 1B 98 67 8F 20 20 20 20 20 20 20 2D 2D 2D |.V..g. ---|
00001350: 2D 2D 20 42 43 44 00 74 1B A2 67 8F 20 49 4E 20 |-- BCD.t..g. IN |
00001360: 3A 20 41 20 20 20 20 20 20 20 20 2D 2D 20 4E 4F |: A -- NO|
00001370: 4D 42 52 45 00 9C 1B AC 67 8F 20 10 3A 20 41 24 |MBRE....g. .: A$|
00001380: 20 20 20 20 20 20 20 2D 2D 20 42 43 44 20 52 45 | -- BCD RE|
00001390: 50 52 45 53 45 4E 54 41 54 49 4F 4E 00 D6 1B B6 |PRESENTATION....|
000013A0: 67 41 31 20 B2 20 B5 28 41 AD 31 30 29 20 3A 20 |gA1 . .(A.10) : |
000013B0: 41 20 B2 20 41 31 AC 31 36 20 AA 28 41 AB 28 41 |A . A1.16 .(A.(A|
000013C0: 31 AC 31 30 29 29 20 3A 20 41 24 20 B2 20 C7 28 |1.10)) : A$ . .(|
000013D0: 41 29 20 3A 20 8E 00 E4 1B B0 68 41 24 B2 C7 28 |A) : .....hA$..(|
000013E0: 41 29 3A 8E 00 2C 1C 30 75 8F 2D 2D 2D 2D 2D 2D |A):..,.0u.------|
000013F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 72 1C 3A |------------.r.:|
00001430: 75 8F 2D 2D 20 20 20 52 10 49 4E 45 20 50 45 52 |u.-- R.INE PER|
00001440: 4D 45 54 54 41 4E 54 20 44 45 20 52 45 43 48 45 |METTANT DE RECHE|
00001450: 52 43 48 45 52 20 54 20 45 54 20 53 20 44 55 20 |RCHER T ET S DU |
00001460: 50 52 4F 47 41 4D 4D 45 20 44 45 20 4E 4F 4D 20 |PROGAMME DE NOM |
00001470: 2D 2D 00 BA 1C 44 75 8F 2D 2D 20 20 20 20 20 20 |--...Du.-- |
00001480: 20 20 20 20 20 20 20 20 20 4E 4F 24 20 44 41 4E | NO$ DAN|
00001490: 53 20 4C 45 20 44 49 52 45 43 54 4F 52 59 20 20 |S LE DIRECTORY |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014B0: 20 20 20 20 20 20 20 20 2D 2D 00 02 1D 4E 75 8F | --...Nu.|
000014C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001500: 2D 2D 00 08 1D 58 75 8F 00 31 1D 59 75 8F 20 2D |--...Xu..1.Yu. -|
00001510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001520: 2D 2D 2D 50 41 44 44 41 47 45 20 44 45 20 4E 4F |---PADDAGE DE NO|
00001530: 24 00 61 1D 5C 75 4E 24 B2 22 A0 A0 A0 A0 A0 A0 |$.a.\uN$."......|
00001540: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 AA 22 22 3A 0E |.........."."":.|
00001550: 4E 24 3B 50 2C 4E 4F 24 2C 31 2C C3 28 4E 4F 24 |N$;P,NO$,1,.(NO$|
00001560: 29 00 78 1D 62 75 58 B2 54 59 3A 54 B2 31 38 3A |).x.buX.TY:T.18:|
00001570: 53 B2 31 3A 54 59 B2 58 00 85 1D 6C 75 70 54 2C |S.1:TY.X...lupT,|
00001580: 53 2C 44 2C 55 00 90 1D 76 75 81 49 B2 30 A4 37 |S,D,U...vu.I.0.7|
00001590: 00 9D 1D 80 75 50 B2 35 AA 49 AC 33 32 00 AA 1D |....uP.5.I.32...|
000015A0: 8A 75 71 41 24 2C 50 2C 31 36 00 BB 1D 94 75 8B |.uqA$,P,16....u.|
000015B0: 41 24 B2 4E 24 89 33 30 32 30 30 00 C2 1D 9E 75 |A$.N$.30200....u|
000015C0: 82 49 00 EE 1D A8 75 50 B2 30 3A 8D 33 31 30 30 |.I....uP.0:.3100|
000015D0: 30 3A 8B 54 B2 30 A7 99 22 46 49 43 48 49 45 52 |0:.T.0.."FICHIER|
000015E0: 20 4E 4F 4E 20 54 52 4F 55 56 45 22 3A 90 00 F9 | NON TROUVE":...|
000015F0: 1D B2 75 89 33 30 30 36 30 00 1B 1E F8 75 50 B2 |..u.30060....uP.|
00001600: 50 AB 33 3A 8D 33 31 30 30 30 3A 8B 54 B3 B1 31 |P.3:.31000:.T..1|
00001610: 32 39 AA 54 59 89 33 30 31 31 30 00 2E 1E 02 76 |29.TY.30110....v|
00001620: 50 B2 50 AA 31 3A 8D 33 31 30 30 30 3A 8E 00 56 |P.P.1:.31000:..V|
00001630: 1E 18 79 71 41 24 2C 50 2C 32 3A 54 B2 C6 28 C8 |..yqA$,P,2:T..(.|
00001640: 28 41 24 2C 31 29 29 3A 53 B2 C6 28 C9 28 41 24 |(A$,1)):S..(.(A$|
00001650: 2C 31 29 29 3A 8E 00 77 1E 50 C3 D5 22 40 52 45 |,1)):..w.P.."@RE|
00001660: 53 45 52 56 45 20 32 22 3A 95 22 52 45 53 45 52 |SERVE 2":."RESER|
00001670: 56 45 20 32 22 2C 38 00 A2 1E 30 F2 8F 2D 2D 2D |VE 2",8...0..---|
00001680: 2D 2D 2D 2D 52 4F 55 54 49 4E 45 20 44 45 20 53 |----ROUTINE DE S|
00001690: 45 4C 45 43 54 49 4F 4E 20 44 45 20 44 49 53 51 |ELECTION DE DISQ|
000016A0: 55 45 00 DF 1E 3A F2 41 28 31 29 B2 34 30 34 30 |UE...:.A(1).4040|
000016B0: 3A 41 28 32 29 B2 38 30 35 30 3A 41 28 33 29 B2 |:A(2).8050:A(3).|
000016C0: 38 32 35 30 3A 41 28 34 29 B2 39 30 36 30 3A 41 |8250:A(4).9060:A|
000016D0: 28 35 29 B2 39 30 39 30 3A 41 28 36 29 B2 30 00 |(5).9090:A(6).0.|
000016E0: E7 1E 4E F2 49 B2 31 00 1F 1F 58 F2 8B 41 28 49 |..N.I.1...X..A(I|
000016F0: 29 B2 30 A7 41 24 B2 22 55 4E 49 54 45 20 44 45 |).0.A$."UNITE DE|
00001700: 20 44 49 53 51 55 45 20 49 4E 43 4F 4E 4E 55 45 | DISQUE INCONNUE|
00001710: 22 3A 8D 32 33 30 30 30 3A 89 31 30 30 30 30 00 |":.23000:.10000.|
00001720: 40 1F 62 F2 7E 4C 41 28 49 29 2C 38 3A 8B 4F 4B |@.b.~LA(I),8:.OK|
00001730: B3 B1 30 A7 49 B2 49 AA 31 3A 89 36 32 30 34 30 |..0.I.I.1:.62040|
00001740: 00 46 1F 6C F2 8E 00 00 00 |.F.l..... |
......A..(0):..R...SP$."
" :A0$ . G(0):LDAT .
63.[....900.S...M#10,"TRANSFERT",D0.....
.10,NOM$.....NOM$.H((NOM$.SP$),13)......
NOM$ .. H(SP$,13) . 1100.....A$."INVALI
DE NAME":.23000:.400...L..10,DD$:DD.E(DD
$) :. DD . 2 . 1200.'.V.A$."DRIVE = 0 OR
1":.23000:.400.M....10,DC$:DC.E(DC$):.
DC . 2 . 1240.Q...A$."DRIVE = 0 OR 1":.2
3000:.400...X..10,VL:. VL . 3 . VL . 0
. 1270.....A$."LEVEL = 1 OR 2":.23000:.4
00.I...VL . VL .1.W....10,NBREC...... NB
REC . 32768 . NBREC . 0 . 1400...(.A$."I
NVALIDE NUMBER OF RECORDS":.23000:.400.[
.X..10,LREC:. LREC . 0 . LREC .. 254 . 1
500.....A$."1 <= RECORD LENGTH <= 254":.
23000:.400......10,LKEY:. LKEY . 0 . LKE
Y .. 30 . 1520.....A$."1 <= KEY LENGTH <
= 30":.23000:.400...... LREC .. LKEY . 1
600./...A$."KEY LENGTH > RECORD LENGTH":
.23000:I.5:.400.\.@..10,KDEB:. KDEB . 0
. KDEB .. 254 . 1620...J.A$."1 <= KEY PO
SITION <= 254":.23000:.400...T.. KDEB .
LKEY . 1 .. LREC . 1700...^.A$."KEY POSI
TION > RECORD LENGTH":.23000:.400......1
0,XX$:.10,YY:N#10:XX$.XX$."".......T....
---------------------- CREATION DU FICHI
ER -------------------------.{.... INPU
T NOM DU FICHIER DANS NOM$. .... -----
DRIVE DATA DD.E.... D
RIVE CLE DC...... NOMB
RE DE RECORDS NBREC...... RECO
RD SIZE LREC.;.... KEY L
ENGTH LKEY.B.... KEY PO
SITION KDEB...P.P1..(254.(LKEY.3)
):P2..(NBREC.P1).1:P4..(P2.1.5).1:P6.P4.
..R.. VL .0 .6010...T.P5..(P4.P1).1 : P4
..(P5.1.5).1 :P6.P6.P4...Z.P3.(LKEY.3).P
4.3.(LKEY.3).LDAT.&...B1..(254.LREC):B2.
.(LDAT.LREC).1.O...B3..((NBREC.B2).B1).1
:B4..(P3.254).1......-------------------
----------------------------------------
---------...... GOSUB62000.P.8.NC$.DC$.
":".NOM$."I,U,W":V$.NOM$...B..4,8,4,"@".
NC$...G.J.254:.VL.1.J .254.2...L..I.1.J:
.4,G(255);:.: 4.Q.N.NO$.NOM$."I":D.DC:U.
8:TY.2:.30000:T1.T:S1.S:T3.T:S3.S.U.O..
VL . 0 . T2.T : S2.S : . 6227...P.PT1,S1
,D,U:QA$,0,2:T.F(A$):S.F(J(A$,2,1)):A.T:
.26800...Q.B$.A$:A.S:.26800:B$.B$.A$:A$.
"":.I.1.LKEY:A$.A59GL85H5:....R.A$.A$.B$
.A0$:RA$,2:ST1,S1,D,U:T2.T:S2.S.#.S.NOM$
.V$.M.V..-------------------------------
-------------------------------------...
J.ND$.DD$.":".NOM$."D,U,W"...O..5,8,5,"@
".ND$.C.T.A . LDAT : . LREC . 127 . A .
255...~.. I . 1 . A : .5,A0$; : ...... 5
.....NT$ . DC$ .":" . NOM$ ." ,U,W"...X.
..[.Y.. ------------------------- CALCUL
S ---------------------------------.A.Z.
....B.NO$.J(ND$,3,14):D.DD:U.8:TY.2:.300
00:T1.T:S1.S...C..LREC..127.7020.R.D.PT,
S,D,U:QA$,0,1:.A$ . "" . A$ . G(0)...F.T
.F(A$)...H.QA$,1,1:.A$ . "" . A$ . G(0).
..J.S.F(A$)...L...%.V..4,8,4,"@". NT$._.
..A . P3 : .26000 : .4,A1$;A2$; : . LEN
OF TG - LENTAB.....A . NBREC : .26000 :
.4,A1$;A2$; : . NUMBER OF RECORDS - NR.
E....4,A0$;A0$; : . FREE RECORDS - FR...
..RB . .(254.LREC) : RB . RB.LREC : RB .
RB . 2 . 1......4,G(RB); : . MAX BLOCKI
NG - RB.D....4,G(LREC); : . RECORD SIZE
- RS.O.P..20000.Q...LS . LKEY : LX . LKE
Y . 3 . 1......4,G(LKEY.3);G(LS);G(LX);
: . KEY INFO - LKL,LKLS,LKLD.W....4,G(KD
EB.1); : . KEYPOSITION - KEYPOS......I.1
.8:.4,A0$;:. : . FILLER - ADN,ADR,ADX,AD
S... .. 20000.6.*..4,G(VL) ; : . LEVEL -
LEVEL.A.4..20000.N.>..4,A0$; : . ADDRES
S OF KEY DRIVE - KDRIV...H.A$.A0$ : . DD
.. DC . A$.G(1).G.\..4,A$; : . FLAG FOR
SAME DRIVES DATA/KEYS - BYTSAM...A..4,T
D$;SD$;: . LINK FILES - LNKDAT...K.A.T2:
.26800:.4,A$;:. LINK FOR KEYS - LNKKEY.5
.P.A.S2:.26800:.4,A$;.`.Q..4,A0$;A0$;:.
NUMERO RELATIF DE RECORD...S..20000;. PO
INTEURS DERNIER BLOC INDEXE.B.T.A.T1:.26
800:.4,A$;:A.S1:.26800:.4,A$;:. DEBUT DA
TA...U.A.T3:.26800:.4,A$;:A.S3:.26800:.4
,A$;:. DEBUT KEY...V..I.1.18:.4,A0$;:.I:
. FILLER.5....I.1.LKEY.3:.4,G(254);:..P.
...I.1.LKEY:.4,G(253);:..~...A . T3:.268
00:.4,A$; : . TRACK FIRST KEYS.....A . S
3:.26800:.4,A$; : . SECTOR FIRST KEYS...
... VL . 0 . .4,A0$; : . 7340: . POS 1ST
KEY......4,G(LKEY.3) ; : . POSITION FI
RST KEYS.4....I.1.LKEY.3:.4,G(255);:. :
. END BANNER.;... 4.N.@.NO$.J(ND$,3,14):
D.DD:U.8:TY.2:.30000:T1.T:S1.S...J.NO$.J
(NT$,3,14):D.DC:U.8:TY.2:.30000...T.PT,S
,DC,U...H.Q A$,2,100.D.R.PT1,S1,DD,U...|
.R A$,2 :.LREC..127.:RG(RN),1.....ST1,S1
,DD,U....'V"".XX$,D(YY).G. NA.T:.26800:.
4,A$;: TD$.A$: . TRACK 1ST REC TO INSE
RT - T1...*NA.S:.26800:.4,A$;: SD$.A$:
. SECTOR 1ST REC TO INSERT - S1...4NRN
. .(LDAT.LREC) . 1 : RN . (RN.LREC).1.O.
>N. LREC . 127 . RN . 1...HN.4,G(RN); :
. POSITION OF 1ST RECORD TO INSERT - RN1
...RN..+.XY.G(7);:.A$,25,20.C(A$).2.:..Y
B25,1,1,40.Q..Y.A$:.A$.." ".23006.`..YB2
5,1,1,40....Y.H(SP$,C(A$)),25,20.C(A$).2
:.....A.....E..X..E. ----- TRANSFO
RMATION D'UN NOMBRE EN SA REPRESENTATION
-------....E. ----- BINAIRE INVER
SEE....E. IN : A -- NOMBRE.9..E.
.: A1 -- LOWER PART.\.BE. A2
-- HIGHER PART...LE. A1$
-- LOWER PART (CHR$)...VE. A2$
-- HIGHER PART....EA2 . .(A.256) : A1
. A . A2 . 256 : A1$ . G(A1) : A2$ . G(A
2)....E.....G..@..G. ----- TRANSFO
RMATION D'UN NOMBRE EN SA REPRESENTATION
-------.V..G. ----- BCD.T..G. IN
: A -- NOMBRE....G. .: A$ -
- BCD REPRESENTATION.V..GA1 . .(A.10) :
A . A1.16 .(A.(A1.10)) : A$ . G(A) : ...
..HA$.G(A):..,.0U.----------------------
----------------------------------------
----.R.:U.-- R.INE PERMETTANT DE RECHE
RCHER T ET S DU PROGAMME DE NOM --...DU.
-- NO$ DANS LE DIRECTORY
--...NU.--------
----------------------------------------
------------------...XU..1.YU. ---------
-----------PADDAGE DE NO$.A.\UN$."
"."":.N$;P,NO$,1,C(NO$).X.BUX.
TY:T.18:S.1:TY.X...LUPT,S,D,U...VU.I.0.7
....UP.5.I.32....UQA$,P,16....U.A$.N$.30
200.B..U.I....UP.0:.31000:.T.0.."FICHIER
NON TROUVE":.....U.30060....UP.P.3:.310
00:.T..129.TY.30110....VP.P.1:.31000:..V
..YQA$,P,2:T.F(H(A$,1)):S.F(I(A$,1)):..W
.PCU"@RESERVE 2":."RESERVE 2",8...0..---
----ROUTINE DE SELECTION DE DISQUE...:.A
(1).4040:A(2).8050:A(3).8250:A(4).9060:A
(5).9090:A(6).0...N.I.1...X..A(I).0.A$."
UNITE DE DISQUE INCONNUE":.23000:.10000.
@.B.~LA(I),8:.OK..0.I.I.1:.62040.F.L....
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL