00000000: 11 22 3A 8E 00 12 12 8E 03 81 49 B2 5A AA 31 A4 |.":.......I.Z.1.|
00000010: 31 30 30 30 3A 8B 41 24 28 49 29 B2 22 53 54 4F |1000:.A$(I)."STO|
00000020: 50 22 89 39 34 30 00 53 12 98 03 8B CA 28 41 24 |P".940.S.....(A$|
00000030: 28 5A 29 2C 57 57 2C 56 56 29 B1 CA 28 41 24 28 |(Z),WW,VV)..(A$(|
00000040: 49 29 2C 57 57 2C 56 56 29 A7 5A 24 B2 41 24 28 |I),WW,VV).Z$.A$(|
00000050: 5A 29 3A 41 24 28 5A 29 B2 41 24 28 49 29 3A 41 |Z):A$(Z).A$(I):A|
00000060: 24 28 49 29 B2 5A 24 00 5A 12 A2 03 82 49 00 61 |$(I).Z$.Z....I.a|
00000070: 12 AC 03 82 5A 00 9C 12 B6 03 8D 37 30 30 3A 99 |....Z......700:.|
00000080: 22 44 45 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |"DE PRINT ROUTIN|
00000090: 45 20 4D 4F 45 54 20 4E 4F 47 20 22 3A 99 3A 99 |E MOET NOG ":.:.|
000000A0: 22 47 45 49 4D 50 4C 45 4D 45 4E 54 45 45 52 44 |"GEIMPLEMENTEERD|
000000B0: 00 B1 12 C0 03 8F 20 52 45 41 44 20 44 49 52 45 |...... READ DIRE|
000000C0: 43 54 4F 52 59 00 D6 12 CA 03 81 41 B2 31 A4 31 |CTORY......A.1.1|
000000D0: 30 30 30 3A 8B 41 24 28 41 29 B2 22 53 54 4F 50 |000:.A$(A)."STOP|
000000E0: 22 A7 4A B2 41 3A 89 39 39 30 00 DD 12 D4 03 82 |".J.A:.990......|
000000F0: 41 00 E9 12 DE 03 8D 31 33 31 30 3A 8E 00 FF 12 |A......1310:....|
00000100: E8 03 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 |...15,8,15:.15,"|
00000110: 49 30 22 00 14 13 F2 03 8B 53 54 B3 B1 30 A7 A0 |I0"......ST..0..|
00000120: 31 35 3A 89 31 32 36 30 00 30 13 FC 03 9F 32 2C |15:.1260.0....2,|
00000130: 38 2C 30 2C 22 24 30 3A 2A 22 3A 51 B2 30 3A 49 |8,0,"$0:*":Q.0:I|
00000140: 24 B2 22 22 00 40 13 06 04 8B 53 54 B3 B1 30 A7 |$."".@....ST..0.|
00000150: 31 32 36 30 00 53 13 10 04 81 4E B2 31 A4 33 32 |1260.S....N.1.32|
00000160: 3A A1 23 32 2C 55 24 00 60 13 1A 04 49 24 B2 49 |:.#2,U$.`...I$.I|
00000170: 24 AA 55 24 00 66 13 24 04 82 00 7C 13 2E 04 44 |$.U$.f.$...|...D|
00000180: 49 24 B2 C9 28 49 24 2C 35 29 3A 49 24 B2 22 22 |I$..(I$,5):I$.""|
00000190: 00 8C 13 38 04 8B 53 54 B3 B1 30 A7 31 32 36 30 |...8..ST..0.1260|
000001A0: 00 A1 13 42 04 81 42 B2 31 A4 32 3A A1 23 32 2C |...B..B.1.2:.#2,|
000001B0: 55 24 3A 82 42 00 BB 13 4C 04 A1 23 32 2C 55 24 |U$:.B...L..#2,U$|
000001C0: 3A 8B 55 24 B2 22 22 A7 55 24 B2 C7 28 30 29 00 |:.U$."".U$..(0).|
000001D0: C8 13 56 04 51 42 B2 C6 28 55 24 29 00 E2 13 60 |..V.QB..(U$)...`|
000001E0: 04 A1 23 32 2C 55 24 3A 8B 55 24 B2 22 22 A7 55 |..#2,U$:.U$."".U|
000001F0: 24 B2 C7 28 30 29 00 F6 13 6A 04 51 42 B2 51 42 |$..(0)...j.QB.QB|
00000200: AA C6 28 55 24 29 AC 32 35 36 00 08 14 74 04 A1 |..(U$).256...t..|
00000210: 23 32 2C 55 24 3A A1 23 32 2C 55 24 00 1B 14 7E |#2,U$:.#2,U$...~|
00000220: 04 81 43 B2 31 A4 32 36 3A A1 23 32 2C 55 24 00 |..C.1.26:.#2,U$.|
00000230: 2E 14 88 04 8B 55 24 B2 C7 28 33 34 29 A7 31 31 |.....U$..(34).11|
00000240: 38 30 00 3B 14 92 04 49 24 B2 49 24 AA 55 24 00 |80.;...I$.I$.U$.|
00000250: 42 14 9C 04 82 43 00 61 14 A6 04 8B C8 28 49 24 |B....C.a.....(I$|
00000260: 2C 31 29 B2 22 20 22 A7 49 24 B2 CA 28 49 24 2C |,1)." ".I$..(I$,|
00000270: 32 2C 32 36 29 00 75 14 B0 04 49 24 B2 C8 28 49 |2,26).u...I$..(I|
00000280: 24 2C 32 30 29 AA 22 20 22 00 89 14 BA 04 58 B2 |$,20)." ".....X.|
00000290: C3 28 C9 28 C4 28 51 42 29 2C 33 29 29 00 B2 14 |.(.(.(QB),3))...|
000002A0: C4 04 8B 58 B2 32 A7 41 24 28 4A 29 B2 49 24 AA |...X.2.A$(J).I$.|
000002B0: 22 20 22 AA C9 28 C4 28 51 42 29 2C 33 29 AA 22 |" "..(.(QB),3)."|
000002C0: 20 22 AA 44 49 24 00 D8 14 CE 04 8B 58 B3 B1 32 | ".DI$......X..2|
000002D0: A7 41 24 28 4A 29 B2 49 24 AA C9 28 C4 28 51 42 |.A$(J).I$..(.(QB|
000002E0: 29 2C 33 29 AA 22 20 22 AA 44 49 24 00 E3 14 D8 |),3)." ".DI$....|
000002F0: 04 99 41 24 28 4A 29 00 F9 14 E2 04 49 24 B2 22 |..A$(J).....I$."|
00000300: 22 3A 4A B2 4A AA 31 3A 89 31 30 38 30 00 31 15 |":J.J.1:.1080.1.|
00000310: EC 04 41 24 28 4A AB 32 29 B2 41 24 28 4A AB 32 |..A$(J.2).A$(J.2|
00000320: 29 AA CA 28 41 24 28 4A AB 31 29 2C 32 31 2C 34 |)..(A$(J.1),21,4|
00000330: 29 AA 22 20 46 52 45 45 22 3A A0 31 35 3A A0 32 |)." FREE":.15:.2|
00000340: 3A 8D 37 30 30 00 48 15 F6 04 4A B2 4A AB 31 3A |:.700.H...J.J.1:|
00000350: 41 24 28 4A 29 B2 22 53 54 4F 50 22 00 80 15 00 |A$(J)."STOP"....|
00000360: 05 99 3A 99 3A 99 22 4D 45 45 52 20 46 4C 4F 50 |..:.:."MEER FLOP|
00000370: 50 59 27 53 20 49 4E 4C 45 5A 45 4E 20 20 12 4A |PY'S INLEZEN .J|
00000380: 20 2F 20 4E 92 22 3B 3A 85 22 1D 1D 4A 9D 9D 9D | / N.";:."..J...|
00000390: 22 3B 41 24 00 8E 15 0A 05 8B 41 24 B2 22 4E 22 |";A$......A$."N"|
000003A0: A7 8E 00 A0 15 14 05 8B 41 24 B3 B1 22 4A 22 A7 |........A$.."J".|
000003B0: 31 32 38 30 00 CC 15 1E 05 99 3A 99 22 4C 41 41 |1280......:."LAA|
000003C0: 44 20 46 4C 4F 50 50 59 20 45 4E 20 44 52 55 4B |D FLOPPY EN DRUK|
000003D0: 20 4F 50 20 45 45 4E 20 54 4F 45 54 53 22 3A 99 | OP EEN TOETS":.|
000003E0: 00 E0 15 28 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...(..A$:.A$."".|
000003F0: 31 33 32 30 00 F1 15 32 05 8B 41 24 B3 B1 22 22 |1320...2..A$..""|
00000400: A7 31 30 30 30 00 F7 15 3C 05 80 00 10 16 46 05 |.1000...<.....F.|
00000410: 8B 41 24 28 31 29 B2 22 53 54 4F 50 22 A7 8D 38 |.A$(1)."STOP"..8|
00000420: 35 30 3A 8E 00 4E 16 50 05 51 B2 31 3A 99 22 5A |50:..N.P.Q.1:."Z|
00000430: 4F 45 4B 43 4F 44 45 20 56 45 52 57 49 4A 44 45 |OEKCODE VERWIJDE|
00000440: 52 2F 57 49 4A 5A 49 47 45 4E 20 22 3B 3A 85 22 |R/WIJZIGEN ";:."|
00000450: 1D 1D 41 4C 4C 45 53 9D 9D 9D 9D 9D 9D 9D 22 3B |..ALLES.......";|
00000460: 5A 24 00 6A 16 5A 05 8B 5A 24 B2 22 41 4C 4C 45 |Z$.j.Z..Z$."ALLE|
00000470: 53 22 A7 8D 31 35 33 30 3A 89 31 34 32 30 00 A6 |S"..1530:.1420..|
00000480: 16 64 05 99 3A 99 22 47 45 45 46 20 5A 4F 45 4B |.d..:."GEEF ZOEK|
00000490: 2D 50 4F 53 2E 20 56 41 4E 41 46 20 12 4E 55 4D |-POS. VANAF .NUM|
000004A0: 45 52 49 45 4B 92 22 3B 3A 85 22 1D 1D 31 9D 9D |ERIEK.";:."..1..|
000004B0: 9D 22 3B 42 3A 8D 31 35 33 30 00 B6 16 6E 05 4C |.";B:.1530...n.L|
000004C0: B2 C3 28 5A 24 29 3A 51 B2 31 00 CB 16 78 05 8B |..(Z$):Q.1...x..|
000004D0: 5A 24 B2 22 41 4C 4C 45 53 22 A7 31 34 32 30 00 |Z$."ALLES".1420.|
000004E0: E6 16 82 05 8B 5A 24 B3 B1 CA 28 41 24 28 51 29 |.....Z$...(A$(Q)|
000004F0: 2C 42 2C 4C 29 A7 31 34 37 30 00 F6 16 8C 05 99 |,B,L).1470......|
00000500: 22 20 20 22 3B 41 24 28 51 29 00 0A 17 96 05 A1 |" ";A$(Q)......|
00000510: 41 24 3A 8B 41 24 B2 22 22 A7 31 34 33 30 00 1C |A$:.A$."".1430..|
00000520: 17 A0 05 8B 41 24 B2 22 53 22 A7 4A B2 53 3A 8E |....A$."S".J.S:.|
00000530: 00 2E 17 AA 05 8B 41 24 B2 22 57 22 A7 8D 31 35 |......A$."W"..15|
00000540: 32 30 00 40 17 B4 05 8B 41 24 B2 22 56 22 A7 8D |20.@....A$."V"..|
00000550: 31 34 39 30 00 5F 17 BE 05 51 B2 51 AA 31 3A 8B |1490._...Q.Q.1:.|
00000560: 41 24 28 51 29 B2 22 53 54 4F 50 22 A7 8D 38 35 |A$(Q)."STOP"..85|
00000570: 30 3A 8E 00 69 17 C8 05 89 31 34 30 30 00 85 17 |0:..i....1400...|
00000580: D2 05 81 4B B2 51 A4 4A 3A 41 24 28 4B 29 B2 41 |...K.Q.J:A$(K).A|
00000590: 24 28 4B AA 31 29 3A 82 4B 00 B6 17 DC 05 99 22 |$(K.1):.K......"|
000005A0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000005B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000005C0: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 F3 17 E6 05 99 |........";......|
000005D0: 22 12 20 20 56 45 52 57 49 4A 44 45 52 44 20 20 |". VERWIJDERD |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005F0: 20 20 20 20 20 20 20 20 22 3A 4A B2 4A AB 31 3A | ":J.J.1:|
00000600: 51 B2 51 AB 31 3A 8E 00 31 18 F0 05 85 22 9D 9D |Q.Q.1:..1...."..|
00000610: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000620: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000630: 9D 9D 9D 9D 9D 9D 22 3B 41 24 28 51 29 3A 51 B2 |......";A$(Q):Q.|
00000640: 51 AA 31 3A 8E 00 37 18 FA 05 99 00 66 18 04 06 |Q.1:..7.....f...|
00000650: 99 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 20 20 20 20 20 20 20 22 00 95 18 0E 06 99 | "......|
00000680: 22 12 20 56 3D 56 45 52 57 49 4A 44 45 52 20 20 |". V=VERWIJDER |
00000690: 20 20 57 3D 57 49 4A 5A 49 47 45 4E 20 20 20 20 | W=WIJZIGEN |
000006A0: 20 53 3D 53 54 4F 50 20 22 00 CA 18 18 06 99 22 | S=STOP "......"|
000006B0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 20 20 20 20 22 3A 99 3A 99 3A 8E 00 00 | ":.:.:...|
000006E0: 00 |. |
.":.......I.Z.1.1000:.A$(I)."STOP".940.S
....J(A$(Z),WW,VV).J(A$(I),WW,VV).Z$.A$(
Z):A$(Z).A$(I):A$(I).Z$.Z....I.A....Z...
...700:."DE PRINT ROUTINE MOET NOG ":.:.
"GEIMPLEMENTEERD...... READ DIRECTORY.V.
J..A.1.1000:.A$(A)."STOP".J.A:.990...T..
A......1310:.......15,8,15:.15,"I0".....
.ST..0. 15:.1260.0....2,8,0,"$0:*":Q.0:I
$."".@....ST..0.1260.S....N.1.32:.#2,U$.
`...I$.I$.U$.F.$...|...DI$.I(I$,5):I$.""
...8..ST..0.1260...B..B.1.2:.#2,U$:.B...
L..#2,U$:.U$."".U$.G(0).H.V.QB.F(U$)...`
..#2,U$:.U$."".U$.G(0)...J.QB.QB.F(U$).2
56...T..#2,U$:.#2,U$...~..C.1.26:.#2,U$.
.....U$.G(34).1180.;...I$.I$.U$.B....C.A
....H(I$,1)." ".I$.J(I$,2,26).U...I$.H(I
$,20)." ".....X.C(I(D(QB),3))...D..X.2.A
$(J).I$." ".I(D(QB),3)." ".DI$.X.N..X..2
.A$(J).I$.I(D(QB),3)." ".DI$...X..A$(J).
....I$."":J.J.1:.1080.1...A$(J.2).A$(J.2
).J(A$(J.1),21,4)." FREE": 15: 2:.700.H.
..J.J.1:A$(J)."STOP"......:.:."MEER FLOP
PY'S INLEZEN .J / N.";:."..J...";A$....
..A$."N"... ....A$.."J".1280.L....:."LAA
D FLOPPY EN DRUK OP EEN TOETS":....(..A$
:.A$."".1320...2..A$.."".1000...<.....F.
.A$(1)."STOP"..850:..N.P.Q.1:."ZOEKCODE
VERWIJDER/WIJZIGEN ";:."..ALLES.......";
Z$.J.Z..Z$."ALLES"..1530:.1420...D..:."G
EEF ZOEK-POS. VANAF .NUMERIEK.";:."..1..
.";B:.1530...N.L.C(Z$):Q.1.K.X..Z$."ALLE
S".1420......Z$..J(A$(Q),B,L).1470......
" ";A$(Q)......A$:.A$."".1430... ..A$."
S".J.S:.......A$."W"..1520.@....A$."V"..
1490._...Q.Q.1:.A$(Q)."STOP"..850:..I.H.
.1400...R..K.Q.J:A$(K).A$(K.1):.K......"
........................................
";......". VERWIJDERD
":J.J.1:Q.Q.1:..1...."..........
..............................";A$(Q):Q.
Q.1:..7.....F....".
"......". V=VERWIJDER
W=WIJZIGEN S=STOP ".J....".
":.:.:...
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL