EINDE BIB

00000000: 54 4F 50 22 A7 99 41 24  28 4B 29 3A 4E 52 B2 4E  |TOP"..A$(K):NR.N|
00000010: 52 AA 31 3A 8D 31 31 37  00 0D 14 6F 00 8B 4B B3  |R.1:.117...o..K.|
00000020: 4D 89 31 31 30 00 17 14  70 00 4A B2 4A AA 31 00  |M.110...p.J.J.1.|
00000030: 30 14 71 00 8B 41 24 28  4A 29 B2 22 53 54 4F 50  |0.q..A$(J)."STOP|
00000040: 22 A7 8D 31 33 34 3A 8E  00 3B 14 72 00 8D 31 33  |"..134:..;.r..13|
00000050: 35 3A 8E 00 6F 14 73 00  4E B2 C3 28 41 24 28 4A  |5:..o.s.N..(A$(J|
00000060: 29 29 3A 81 49 B2 31 A4  4E AB 31 AA 31 3A 8B 5A  |)):.I.1.N.1.1:.Z|
00000070: 24 B2 CA 28 41 24 28 4A  29 2C 49 2C 4C 29 A7 99  |$..(A$(J),I,L)..|
00000080: 41 24 28 4A 29 3A 8E 00  78 14 74 00 82 49 3A 8E  |A$(J):..x.t..I:.|
00000090: 00 88 14 75 00 8B 20 4E  52 B3 32 32 20 A7 20 8E  |...u.. NR.22 . .|
000000A0: 00 98 14 76 00 8D 31 32  32 3A 4E 52 B2 31 3A 8E  |...v..122:NR.1:.|
000000B0: 00 AB 14 77 00 A1 5A 24  3A 8B 5A 24 B2 22 22 A7  |...w..Z$:.Z$."".|
000000C0: 31 31 39 00 B9 14 78 00  99 C7 28 31 34 37 29 3A  |119...x...(147):|
000000D0: 8E 00 C6 14 79 00 8B 4E  31 B3 32 32 A7 8E 00 0D  |....y..N1.22....|
000000E0: 15 7A 00 99 22 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.z.."-----------|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000100: 2D 2D 2D 22 3A 99 22 20  46 31 20 3D 20 56 45 52  |---":." F1 = VER|
00000110: 56 4F 4C 47 20 20 20 20  46 37 20 3D 20 53 54 4F  |VOLG    F7 = STO|
00000120: 50 50 45 4E 22 00 22 15  7B 00 A1 45 44 24 3A 8B  |PPEN".".{..ED$:.|
00000130: 45 44 24 B2 22 22 A7 31  32 33 00 36 15 7C 00 8B  |ED$."".123.6.|..|
00000140: 45 44 24 B2 C7 28 31 33  33 29 A7 31 32 37 00 4B  |ED$..(133).127.K|
00000150: 15 7D 00 8B 45 44 24 B3  B1 C7 28 31 33 36 29 A7  |.}..ED$...(136).|
00000160: 31 32 33 00 55 15 7E 00  53 B2 31 3A 8E 00 66 15  |123.U.~.S.1:..f.|
00000170: 7F 00 4E 31 B2 30 3A 8D  31 32 30 24 3A 8E 00 70  |..N1.0:.120$:..p|
00000180: 15 80 00 89 20 31 32 33  00 86 15 81 00 4A B2 30  |.... 123.....J.0|
00000190: 3A 4C B2 C3 28 5A 24 29  3A 4B B2 30 3A 99 00 C6  |:L..(Z$):K.0:...|
000001A0: 15 82 00 57 B2 C5 28 51  24 29 3A 4B B2 4B AA 31  |...W..(Q$):K.K.1|
000001B0: 3A 8B CA 28 41 24 28 4B  29 2C 57 2C 4C 29 B2 5A  |:..(A$(K),W,L).Z|
000001C0: 24 AF 41 24 28 4B 29 B3  B1 22 53 54 4F 50 22 A7  |$.A$(K).."STOP".|
000001D0: 99 41 24 28 4B 29 3A 4E  52 B2 4E 52 AA 31 00 CF  |.A$(K):NR.NR.1..|
000001E0: 15 83 00 8D 31 31 37 00  DC 15 84 00 8B 4B B3 4D  |....117......K.M|
000001F0: 89 31 33 30 00 E6 15 85  00 4A B2 4A AA 31 00 FA  |.130.....J.J.1..|
00000200: 15 86 00 8B 41 24 28 4A  29 B2 22 53 54 4F 50 22  |....A$(J)."STOP"|
00000210: A7 99 00 25 16 87 00 99  3A 99 22 2D 2D 2D 2D 2D  |...%....:."-----|
00000220: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000230: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 22 00 47 16  |------------".G.|
00000240: 88 00 99 22 47 45 45 4E  20 56 45 52 44 45 52 45  |..."GEEN VERDERE|
00000250: 20 47 45 47 45 56 45 4E  53 20 4D 45 45 52 22 00  | GEGEVENS MEER".|
00000260: 4D 16 89 00 8E 00 83 16  8A 00 99 3A 99 22 56 2F  |M..........:."V/|
00000270: 41 20 57 45 4C 4B 45 20  50 4F 53 49 54 49 45 20  |A WELKE POSITIE |
00000280: 20 12 4E 55 4D 4D 45 52  49 45 4B 12 22 3B 3A 85  | .NUMMERIEK.";:.|
00000290: 22 1D 1D 31 9D 9D 9D 22  3B 57 57 00 BF 16 8B 00  |"..1...";WW.....|
000002A0: 99 3A 99 22 41 41 4E 54  2E 20 50 4F 53 49 54 49  |.:."AANT. POSITI|
000002B0: 45 53 20 53 4F 52 54 20  4B 45 59 20 20 12 4E 55  |ES SORT KEY  .NU|
000002C0: 4D 4D 45 52 49 45 4B 12  22 3B 3A 85 22 1D 1D 31  |MMERIEK.";:."..1|
000002D0: 9D 9D 9D 22 3B 57 57 00  FD 16 8C 00 99 3A 99 22  |...";WW......:."|
000002E0: 45 56 45 4E 20 53 4F 52  54 45 52 45 4E 22 3B 3A  |EVEN SORTEREN";:|
000002F0: 81 5A B2 31 A4 31 30 30  30 3A 8B 41 24 28 5A 29  |.Z.1.1000:.A$(Z)|
00000300: B2 22 53 54 4F 50 22 A7  99 22 20 12 4B 4C 41 41  |."STOP".." .KLAA|
00000310: 52 11 22 3A 8E 00 1F 17  8D 00 81 49 B2 5A AA 31  |R.":.......I.Z.1|
00000320: A4 31 30 30 30 3A 8B 41  24 28 49 29 B2 22 53 54  |.1000:.A$(I)."ST|
00000330: 4F 50 22 89 31 34 34 00  60 17 8E 00 8B CA 28 41  |OP".144.`.....(A|
00000340: 24 28 5A 29 2C 57 57 2C  56 56 29 B1 CA 28 41 24  |$(Z),WW,VV)..(A$|
00000350: 28 49 29 2C 57 57 2C 56  56 29 A7 5A 24 B2 41 24  |(I),WW,VV).Z$.A$|
00000360: 28 5A 29 3A 41 24 28 5A  29 B2 41 24 28 49 29 3A  |(Z):A$(Z).A$(I):|
00000370: 41 24 28 49 29 B2 5A 24  00 67 17 8F 00 82 49 00  |A$(I).Z$.g....I.|
00000380: 6E 17 90 00 82 5A 00 A9  17 91 00 8D 31 32 30 3A  |n....Z......120:|
00000390: 99 22 44 45 20 50 52 49  4E 54 20 52 4F 55 54 49  |."DE PRINT ROUTI|
000003A0: 4E 45 20 4D 4F 45 54 20  4E 4F 47 20 22 3A 99 3A  |NE MOET NOG ":.:|
000003B0: 99 22 47 45 49 4D 50 4C  45 4D 45 4E 54 45 45 52  |."GEIMPLEMENTEER|
000003C0: 44 00 BE 17 92 00 8F 20  52 45 41 44 20 44 49 52  |D...... READ DIR|
000003D0: 45 43 54 4F 52 59 00 E3  17 93 00 81 41 B2 31 A4  |ECTORY......A.1.|
000003E0: 31 30 30 30 3A 8B 41 24  28 41 29 B2 22 53 54 4F  |1000:.A$(A)."STO|
000003F0: 50 22 A7 4A B2 41 3A 89  31 34 39 00 EA 17 94 00  |P".J.A:.149.....|
00000400: 82 41 00 F5 17 95 00 8D  31 38 31 3A 8E 00 0B 18  |.A......181:....|
00000410: 96 00 9F 31 35 2C 38 2C  31 35 3A 98 31 35 2C 22  |...15,8,15:.15,"|
00000420: 49 30 22 00 1F 18 97 00  8B 53 54 B3 B1 30 A7 A0  |I0"......ST..0..|
00000430: 31 35 3A 89 31 37 36 00  3B 18 98 00 9F 32 2C 38  |15:.176.;....2,8|
00000440: 2C 30 2C 22 24 30 3A 2A  22 3A 51 B2 30 3A 49 24  |,0,"$0:*":Q.0:I$|
00000450: B2 22 22 00 4A 18 99 00  8B 53 54 B3 B1 30 A7 31  |."".J....ST..0.1|
00000460: 37 36 00 5D 18 9A 00 81  4E B2 31 A4 33 32 3A A1  |76.]....N.1.32:.|
00000470: 23 32 2C 55 24 00 6A 18  9B 00 49 24 B2 49 24 AA  |#2,U$.j...I$.I$.|
00000480: 55 24 00 70 18 9C 00 82  00 86 18 9D 00 44 49 24  |U$.p.........DI$|
00000490: B2 C9 28 49 24 2C 35 29  3A 49 24 B2 22 22 00 95  |..(I$,5):I$.""..|
000004A0: 18 9E 00 8B 53 54 B3 B1  30 A7 31 37 36 00 AA 18  |....ST..0.176...|
000004B0: 9F 00 81 42 B2 31 A4 32  3A A1 23 32 2C 55 24 3A  |...B.1.2:.#2,U$:|
000004C0: 82 42 00 C4 18 A0 00 A1  23 32 2C 55 24 3A 8B 55  |.B......#2,U$:.U|
000004D0: 24 B2 22 22 A7 55 24 B2  C7 28 30 29 00 D1 18 A1  |$."".U$..(0)....|
000004E0: 00 51 42 B2 C6 28 55 24  29 00 EB 18 A2 00 A1 23  |.QB..(U$)......#|
000004F0: 32 2C 55 24 3A 8B 55 24  B2 22 22 A7 55 24 B2 C7  |2,U$:.U$."".U$..|
00000500: 28 30 29 00 FF 18 A3 00  51 42 B2 51 42 AA C6 28  |(0).....QB.QB..(|
00000510: 55 24 29 AC 32 35 36 00  11 19 A4 00 A1 23 32 2C  |U$).256......#2,|
00000520: 55 24 3A A1 23 32 2C 55  24 00 24 19 A5 00 81 43  |U$:.#2,U$.$....C|
00000530: B2 31 A4 32 36 3A A1 23  32 2C 55 24 00 36 19 A6  |.1.26:.#2,U$.6..|
00000540: 00 8B 55 24 B2 C7 28 33  34 29 A7 31 36 38 00 43  |..U$..(34).168.C|
00000550: 19 A7 00 49 24 B2 49 24  AA 55 24 00 4A 19 A8 00  |...I$.I$.U$.J...|
00000560: 82 43 00 69 19 A9 00 8B  C8 28 49 24 2C 31 29 B2  |.C.i.....(I$,1).|
00000570: 22 20 22 A7 49 24 B2 CA  28 49 24 2C 32 2C 32 36  |" ".I$..(I$,2,26|
00000580: 29 00 7D 19 AA 00 49 24  B2 C8 28 49 24 2C 32 30  |).}...I$..(I$,20|
00000590: 29 AA 22 20 22 00 91 19  AB 00 58 B2 C3 28 C9 28  |)." ".....X..(.(|
000005A0: C4 28 51 42 29 2C 33 29  29 00 BA 19 AC 00 8B 58  |.(QB),3))......X|
000005B0: B2 32 A7 41 24 28 4A 29  B2 49 24 AA 22 20 22 AA  |.2.A$(J).I$." ".|
000005C0: C9 28 C4 28 51 42 29 2C  33 29 AA 22 20 22 AA 44  |.(.(QB),3)." ".D|
000005D0: 49 24 00 E0 19 AD 00 8B  58 B3 B1 32 A7 41 24 28  |I$......X..2.A$(|
000005E0: 4A 29 B2 49 24 AA C9 28  C4 28 51 42 29 2C 33 29  |J).I$..(.(QB),3)|
000005F0: AA 22 20 22 AA 44 49 24  00 EB 19 AE 00 99 41 24  |." ".DI$......A$|
00000600: 28 4A 29 00 00 1A AF 00  49 24 B2 22 22 3A 4A B2  |(J).....I$."":J.|
00000610: 4A AA 31 3A 89 31 35 38  00 38 1A B0 00 41 24 28  |J.1:.158.8...A$(|
00000620: 4A AB 32 29 B2 41 24 28  4A AB 32 29 AA CA 28 41  |J.2).A$(J.2)..(A|
00000630: 24 28 4A AB 31 29 2C 32  31 2C 34 29 AA 22 20 46  |$(J.1),21,4)." F|
00000640: 52 45 45 22 3A A0 31 35  3A A0 32 3A 8D 31 32 30  |REE":.15:.2:.120|
00000650: 00 4F 1A B1 00 4A B2 4A  AB 31 3A 41 24 28 4A 29  |.O...J.J.1:A$(J)|
00000660: B2 22 53 54 4F 50 22 00  87 1A B2 00 99 3A 99 3A  |."STOP"......:.:|
00000670: 99 22 4D 45 45 52 20 46  4C 4F 50 50 59 27 53 20  |."MEER FLOPPY'S |
00000680: 49 4E 4C 45 5A 45 4E 20  20 12 4A 20 2F 20 4E 92  |INLEZEN  .J / N.|
00000690: 22 3B 3A 85 22 1D 1D 4A  9D 9D 9D 22 3B 41 24 00  |";:."..J...";A$.|
000006A0: 95 1A B3 00 8B 41 24 B2  22 4E 22 A7 8E 00 A6 1A  |.....A$."N".....|
000006B0: B4 00 8B 41 24 B3 B1 22  4A 22 A7 31 37 38 00 D2  |...A$.."J".178..|
000006C0: 1A B5 00 99 3A 99 22 4C  41 41 44 20 46 4C 4F 50  |....:."LAAD FLOP|
000006D0: 50 59 20 45 4E 20 44 52  55 4B 20 4F 50 20 45 45  |PY EN DRUK OP EE|
000006E0: 4E 20 54 4F 45 54 53 22  3A 99 00 E5 1A B6 00 A1  |N TOETS":.......|
000006F0: 41 24 3A 8B 41 24 B2 22  22 A7 31 38 32 00 F5 1A  |A$:.A$."".182...|
00000700: B7 00 8B 41 24 B3 B1 22  22 A7 31 35 30 00 FB 1A  |...A$.."".150...|
00000710: B9 00 80 00 00 00                                 |......          |

TOP"..A$(K):NR.NR.1:.117...O..K.M.110...
P.J.J.1.0.Q..A$(J)."STOP"..134:..;.R..13
5:..O.S.N.C(A$(J)):.I.1.N.1.1:.Z$.J(A$(J
),I,L)..A$(J):..X.T..I:....U.. NR.22 . .
...V..122:NR.1:....W..Z$:.Z$."".119...X.
.G(147):..F.Y..N1.22.....Z.."-----------
-------------------":." F1 = VERVOLG    
F7 = STOPPEN".".{..ED$:.ED$."".123.6.|..
ED$.G(133).127.K.}..ED$..G(136).123.U.~.
S.1:..F..N1.0:.120$:..P.... 123.....J.0
:L.C(Z$):K.0:..F...W.E(Q$):K.K.1:.J(A$(K
),W,L).Z$.A$(K).."STOP"..A$(K):NR.NR.1.O
....117......K.M.130.....J.J.1......A$(J
)."STOP"...%....:."---------------------
------------".G...."GEEN VERDERE GEGEVEN
S MEER".M..........:."V/A WELKE POSITIE 
 .NUMMERIEK.";:."..1...";WW......:."AANT
. POSITIES SORT KEY  .NUMMERIEK.";:."..1
...";WW......:."EVEN SORTEREN";:.Z.1.100
0:.A$(Z)."STOP".." .KLAAR.":.......I.Z.1
.1000:.A$(I)."STOP".144.`....J(A$(Z),WW,
VV).J(A$(I),WW,VV).Z$.A$(Z):A$(Z).A$(I):
A$(I).Z$.G....I.N....Z......120:."DE PRI
NT ROUTINE MOET NOG ":.:."GEIMPLEMENTEER
D...... READ DIRECTORY......A.1.1000:.A$
(A)."STOP".J.A:.149......A......181:....
...15,8,15:.15,"I0"......ST..0. 15:.176.
;....2,8,0,"$0:*":Q.0:I$."".J....ST..0.1
76.]....N.1.32:.#2,U$.J...I$.I$.U$.P....
.....DI$.I(I$,5):I$.""......ST..0.176...
...B.1.2:.#2,U$:.B.D. ..#2,U$:.U$."".U$.
G(0).Q...QB.F(U$)......#2,U$:.U$."".U$.G
(0).....QB.QB.F(U$).256......#2,U$:.#2,U
$.$....C.1.26:.#2,U$.6....U$.G(34).168.C
...I$.I$.U$.J....C.I....H(I$,1)." ".I$.J
(I$,2,26).}...I$.H(I$,20)." ".....X.C(I(
D(QB),3))......X.2.A$(J).I$." ".I(D(QB),
3)." ".DI$......X..2.A$(J).I$.I(D(QB),3)
." ".DI$......A$(J).....I$."":J.J.1:.158
.8...A$(J.2).A$(J.2).J(A$(J.1),21,4)." F
REE": 15: 2:.120.O...J.J.1:A$(J)."STOP".
.....:.:."MEER FLOPPY'S INLEZEN  .J / N.
";:."..J...";A$......A$."N"........A$.."
J".178.R....:."LAAD FLOPPY EN DRUK OP EE
N TOETS":.......A$:.A$."".182......A$.."
".150.........

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL