RENAME DISK

00000000: 01 08 0D 08 64 00 99 20  C7 28 31 34 29 00 22 08  |....d.. .(14).".|
00000010: 6E 00 99 22 93 12 52 45  4E 41 4D 45 20 44 49 53  |n.."..RENAME DIS|
00000020: 4B 22 00 46 08 78 00 42  24 B2 20 22 11 53 54 4F  |K".F.x.B$. ".STO|
00000030: 50 20 44 45 20 44 49 53  4B 20 49 4E 20 44 45 20  |P DE DISK IN DE |
00000040: 44 52 49 56 45 22 00 6B  08 82 00 43 24 B2 20 22  |DRIVE".k...C$. "|
00000050: 11 11 45 4E 20 44 52 55  4B 20 45 45 4E 20 54 4F  |..EN DRUK EEN TO|
00000060: 45 54 53 20 49 4E 20 21  20 20 22 00 76 08 8C 00  |ETS IN !  ".v...|
00000070: 52 24 B2 22 12 22 00 89  08 96 00 54 31 B2 B5 28  |R$.".".....T1..(|
00000080: 54 49 AD 33 30 AA 2E 35  29 00 A6 08 A0 00 8B 20  |TI.30..5)...... |
00000090: B5 28 54 31 AD 32 29 B2  54 31 AD 32 20 A7 20 3A  |.(T1.2).T1.2 . :|
000000A0: 20 52 24 B2 22 22 00 BC  08 AA 00 52 24 B2 22 13  | R$."".....R$.".|
000000B0: 11 11 11 20 20 20 20 20  22 AA 52 24 00 C8 08 B4  |...     ".R$....|
000000C0: 00 99 20 52 24 3B 42 24  00 D4 08 BE 00 99 20 52  |.. R$;B$...... R|
000000D0: 24 3B 43 24 00 EC 08 C8  00 A1 20 41 24 3A 20 8B  |$;C$...... A$: .|
000000E0: 20 41 24 B2 22 22 20 A7  20 31 34 30 00 12 09 D2  | A$."" . 140....|
000000F0: 00 99 20 22 93 11 C4 52  55 4B 20 12 C4 92 20 49  |.. "...RUK ... I|
00000100: 4E 20 56 4F 4F 52 20 12  C4 C9 D2 C5 C3 D4 CF D2  |N VOOR .........|
00000110: D9 92 00 28 09 DC 00 A1  20 41 24 3A 8B 41 24 B2  |...(.... A$:.A$.|
00000120: 22 22 20 A7 20 32 32 30  00 48 09 E6 00 8B 20 41  |"" . 220.H.... A|
00000130: 24 20 B2 20 22 C4 22 20  B0 20 41 24 B2 22 44 22  |$ . "." . A$."D"|
00000140: 20 A7 20 8D 20 39 33 30  00 66 09 F0 00 99 20 22  | . . 930.f.... "|
00000150: 93 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000160: 11 11 11 11 11 22 00 89  09 FA 00 99 20 22 C4 52  |....."...... ".R|
00000170: 55 4B 20 12 D2 C5 D4 D5  D2 CE 92 20 49 4E 20 49  |UK ........ IN I|
00000180: 4E 44 49 45 4E 20 55 20  22 00 AC 09 04 01 99 20  |NDIEN U "...... |
00000190: 22 44 45 20 44 49 53 4B  20 4E 41 41 4D 20 4F 46  |"DE DISK NAAM OF|
000001A0: 20 C9 C4 20 4E 55 4D 4D  45 52 20 22 00 CB 09 0E  | .. NUMMER "....|
000001B0: 01 99 20 22 4E 49 45 54  20 57 49 4C 20 56 45 52  |.. "NIET WIL VER|
000001C0: 41 4E 44 45 52 45 4E 20  2E 13 22 00 E7 09 18 01  |ANDEREN ..".....|
000001D0: 9F 20 31 35 2C 38 2C 31  35 20 3A 20 9F 20 32 2C  |. 15,8,15 : . 2,|
000001E0: 38 2C 32 2C 22 23 22 00  FD 09 22 01 98 31 35 2C  |8,2,"#"..."..15,|
000001F0: 22 55 31 22 3B 32 3B 30  3B 31 38 3B 30 00 11 0A  |"U1";2;0;18;0...|
00000200: 2C 01 98 31 35 2C 22 42  2D 50 3A 22 32 3B 31 34  |,..15,"B-P:"2;14|
00000210: 34 00 1B 0A 36 01 8D 20  36 39 30 00 2F 0A 40 01  |4...6.. 690./.@.|
00000220: 98 31 35 2C 22 42 2D 50  3A 22 32 3B 31 34 34 00  |.15,"B-P:"2;144.|
00000230: 55 0A 4A 01 53 24 B2 53  24 AA 22 20 20 20 20 20  |U.J.S$.S$."     |
00000240: 20 20 20 20 20 20 20 20  20 20 20 22 3A 41 24 B2  |           ":A$.|
00000250: C7 28 33 34 29 00 73 0A  54 01 85 22 11 4E 49 45  |.(34).s.T..".NIE|
00000260: 55 57 45 20 44 49 53 4B  4E 41 41 4D 20 20 20 22  |UWE DISKNAAM   "|
00000270: 3B 44 24 00 8F 0A 5E 01  8B 20 C3 28 44 24 29 B1  |;D$...^.. .(D$).|
00000280: 30 20 A7 20 53 24 B2 C9  28 53 24 2C 31 36 29 00  |0 . S$..(S$,16).|
00000290: AD 0A 68 01 85 22 11 4E  49 45 55 57 45 20 44 49  |..h..".NIEUWE DI|
000002A0: 53 4B 20 49 44 1D 1D 1D  20 22 3B 49 24 00 CC 0A  |SK ID... ";I$...|
000002B0: 72 01 85 22 11 4E 49 45  55 57 20 46 4F 52 4D 41  |r..".NIEUW FORMA|
000002C0: 54 20 20 20 20 20 20 22  3B 46 31 24 00 E0 0A 7C  |T      ";F1$...||
000002D0: 01 8B 20 C3 28 44 24 29  B2 30 20 A7 20 34 33 30  |.. .(D$).0 . 430|
000002E0: 00 F3 0A 86 01 44 24 B2  C8 28 44 24 AA 53 24 2C  |.....D$..(D$.S$,|
000002F0: 31 36 29 00 02 0B 90 01  81 20 54 B2 31 20 A4 20  |16)...... T.1 . |
00000300: 31 36 00 14 0B 9A 01 98  32 2C CA 28 44 24 2C 54  |16......2,.(D$,T|
00000310: 2C 31 29 3B 00 1A 0B A4  01 82 00 3F 0B AE 01 8F  |,1);.......?....|
00000320: 20 2A 2A 2A 2A 2A 2A 2A  20 57 45 47 53 43 48 52  | ******* WEGSCHR|
00000330: 49 4A 56 45 4E 20 49 44  20 4E 55 4D 4D 45 52 00  |IJVEN ID NUMMER.|
00000340: 54 0B B8 01 8B 20 C3 28  49 24 29 B2 20 30 20 A7  |T.... .(I$). 0 .|
00000350: 20 34 38 30 00 67 0B C2  01 49 24 B2 C8 28 49 24  | 480.g...I$..(I$|
00000360: AA 49 31 24 2C 32 29 00  7B 0B CC 01 98 31 35 2C  |.I1$,2).{....15,|
00000370: 22 42 2D 50 3A 22 32 3B  31 36 32 00 93 0B D6 01  |"B-P:"2;162.....|
00000380: 98 32 2C C8 28 49 24 2C  31 29 3B C9 28 49 24 2C  |.2,.(I$,1);.(I$,|
00000390: 31 29 3B 00 B5 0B E0 01  8F 20 2A 2A 2A 2A 2A 2A  |1);...... ******|
000003A0: 2A 20 57 45 47 53 43 48  52 49 4A 56 45 4E 20 46  |* WEGSCHRIJVEN F|
000003B0: 4F 52 4D 41 54 00 CB 0B  EA 01 8B 20 C3 28 46 31  |ORMAT...... .(F1|
000003C0: 24 29 B2 20 30 20 A7 20  35 32 30 00 DE 0B F4 01  |$). 0 . 520.....|
000003D0: 46 24 B2 C8 28 46 31 24  AA 46 24 2C 32 29 00 FA  |F$..(F1$.F$,2)..|
000003E0: 0B FE 01 98 32 2C 22 20  22 3B C8 28 46 24 2C 31  |....2," ";.(F$,1|
000003F0: 29 3B C9 28 46 24 2C 31  29 3B 00 1E 0C 08 02 99  |);.(F$,1);......|
00000400: 20 22 93 CE 49 45 55 57  45 20 44 49 53 4B 20 4E  | "..IEUWE DISK N|
00000410: 41 41 4D 20 45 4E 20 49  44 20 3A 20 11 22 00 28  |AAM EN ID : .".(|
00000420: 0C 12 02 8D 20 36 39 30  00 3F 0C 1C 02 98 31 35  |.... 690.?....15|
00000430: 2C 22 55 32 3A 22 3B 32  3B 30 3B 31 38 3B 30 00  |,"U2:";2;0;18;0.|
00000440: 4A 0C 26 02 A0 31 35 3A  A0 32 00 63 0C 30 02 9F  |J.&..15:.2.c.0..|
00000450: 31 35 2C 38 2C 31 35 3A  98 31 35 2C 22 49 22 3A  |15,8,15:.15,"I":|
00000460: A0 31 35 00 8A 0C 3A 02  42 24 B2 20 22 11 11 C4  |.15...:.B$. "...|
00000470: 52 55 4B 20 5B D2 C5 D4  D5 D2 CE 5D 20 49 4E 20  |RUK [......] IN |
00000480: 56 4F 4F 52 20 20 20 20  20 22 00 B2 0C 44 02 43  |VOOR     "...D.C|
00000490: 24 B2 20 22 11 11 11 4E  49 45 55 57 45 20 44 49  |$. "...NIEUWE DI|
000004A0: 53 4B 2E 20 D3 50 41 54  49 45 20 3D 20 53 54 4F  |SK. .PATIE = STO|
000004B0: 50 22 00 BD 0C 4E 02 52  24 B2 22 12 22 00 D0 0C  |P"...N.R$."."...|
000004C0: 58 02 54 31 B2 B5 28 54  49 AD 33 30 AA 2E 35 29  |X.T1..(TI.30..5)|
000004D0: 00 EB 0C 62 02 52 24 B2  22 13 11 11 11 11 11 11  |...b.R$.".......|
000004E0: 11 11 20 20 20 20 20 22  AA 52 24 00 F7 0C 6C 02  |..     ".R$...l.|
000004F0: 99 20 52 24 3B 42 24 00  03 0D 76 02 99 20 52 24  |. R$;B$...v.. R$|
00000500: 3B 43 24 00 1B 0D 80 02  A1 20 41 24 3A 20 8B 20  |;C$...... A$: . |
00000510: 41 24 B2 22 22 20 A7 20  35 39 30 00 2E 0D 8A 02  |A$."" . 590.....|
00000520: 8B 20 41 24 B2 C7 28 31  33 29 20 A7 20 8A 00 3B  |. A$..(13) . ..;|
00000530: 0D 94 02 99 20 C7 28 31  34 32 29 00 44 0D 9E 02  |.... .(142).D...|
00000540: 99 22 93 22 00 4A 0D A8  02 80 00 6D 0D B2 02 8F  |.".".J.....m....|
00000550: 20 20 53 55 42 52 4F 55  54 49 4E 45 20 4C 45 45  |  SUBROUTINE LEE|
00000560: 53 20 44 49 53 4B 4E 41  41 4D 20 45 4E 00 7E 0D  |S DISKNAAM EN.~.|
00000570: BC 02 8F 20 20 49 44 20  4E 55 4D 4D 45 52 00 92  |...  ID NUMMER..|
00000580: 0D C6 02 98 31 35 2C 22  42 2D 50 3A 22 32 3B 31  |....15,"B-P:"2;1|
00000590: 34 34 00 9C 0D D0 02 53  24 B2 22 22 00 AB 0D DA  |44.....S$.""....|
000005A0: 02 81 20 54 B2 31 20 A4  20 31 36 00 B6 0D E4 02  |.. T.1 . 16.....|
000005B0: A1 23 32 2C 41 24 00 E0  0D EE 02 8B 20 41 24 B3  |.#2,A$...... A$.|
000005C0: B1 C7 28 39 36 29 20 A7  20 8B 20 41 24 B3 B1 C7  |..(96) . . A$...|
000005D0: 28 31 36 30 29 20 A7 20  53 24 B2 53 24 AA 41 24  |(160) . S$.S$.A$|
000005E0: 00 E8 0D F8 02 82 20 54  00 08 0E 02 03 99 20 22  |...... T...... "|
000005F0: 44 49 53 4B 20 4E 41 41  4D 20 20 20 20 20 20 20  |DISK NAAM       |
00000600: 20 20 3A 20 22 3B 53 24  00 1C 0E 0C 03 98 31 35  |  : ";S$......15|
00000610: 2C 22 42 2D 50 3A 22 32  3B 31 36 32 00 26 0E 16  |,"B-P:"2;162.&..|
00000620: 03 49 24 B2 22 22 00 34  0E 20 03 81 20 54 B2 31  |.I$."".4. .. T.1|
00000630: 20 A4 20 32 00 3F 0E 2A  03 A1 23 32 2C 41 24 00  | . 2.?.*..#2,A$.|
00000640: 69 0E 34 03 8B 20 41 24  B3 B1 C7 28 39 36 29 20  |i.4.. A$...(96) |
00000650: A7 20 8B 20 41 24 B3 B1  C7 28 31 36 30 29 20 A7  |. . A$...(160) .|
00000660: 20 49 24 B2 49 24 AA 41  24 00 71 0E 3E 03 82 20  | I$.I$.A$.q.>.. |
00000670: 54 00 92 0E 48 03 99 20  22 11 49 44 20 4E 55 4D  |T...H.. ".ID NUM|
00000680: 4D 45 52 20 20 20 20 20  20 20 20 20 3A 20 22 3B  |MER         : ";|
00000690: 49 24 00 9C 0E 52 03 46  24 B2 22 22 00 AA 0E 5C  |I$...R.F$.""...\|
000006A0: 03 81 20 54 B2 31 20 A4  20 33 00 B5 0E 66 03 A1  |.. T.1 . 3...f..|
000006B0: 23 32 2C 41 24 00 DF 0E  70 03 8B 20 41 24 B3 B1  |#2,A$...p.. A$..|
000006C0: C7 28 39 36 29 20 A7 20  8B 20 41 24 B3 B1 C7 28  |.(96) . . A$...(|
000006D0: 31 36 30 29 20 A7 20 46  24 B2 46 24 AA 41 24 00  |160) . F$.F$.A$.|
000006E0: E7 0E 7A 03 82 20 54 00  F6 0E 84 03 46 24 B2 C9  |..z.. T.....F$..|
000006F0: 28 46 24 2C 32 29 00 17  0F 8E 03 99 20 22 11 46  |(F$,2)...... ".F|
00000700: 4F 52 4D 41 54 20 20 20  20 20 20 20 20 20 20 20  |ORMAT           |
00000710: 20 3A 20 22 3B 46 24 00  1D 0F 98 03 8E 00 2C 0F  | : ";F$.......,.|
00000720: A2 03 99 22 93 22 20 3A  20 54 B2 31 00 41 0F AC  |..."." : T.1.A..|
00000730: 03 9F 31 2C 38 2C 30 2C  22 24 30 22 3A 20 4A B2  |..1,8,0,"$0": J.|
00000740: 33 00 5B 0F B6 03 81 49  B2 31 20 A4 20 4A 20 3A  |3.[....I.1 . J :|
00000750: A1 23 31 2C 41 24 2C 42  24 3A 82 00 76 0F C0 03  |.#1,A$,B$:..v...|
00000760: 43 B2 30 3A 8B 20 41 24  B3 B1 22 22 20 A7 20 43  |C.0:. A$.."" . C|
00000770: B2 C6 28 41 24 29 00 93  0F CA 03 8B 20 42 24 B3  |..(A$)...... B$.|
00000780: B1 22 22 20 A7 20 43 B2  43 AA C6 28 42 24 29 AC  |."" . C.C..(B$).|
00000790: 32 35 36 00 A7 0F D4 03  99 CA 28 C4 28 43 29 2C  |256.......(.(C),|
000007A0: 32 29 3B A3 35 29 3B 00  C1 0F DE 03 A1 23 31 2C  |2);.5);......#1,|
000007B0: 42 24 3A 8B 20 53 54 B3  B1 30 20 A7 20 31 30 39  |B$:. ST..0 . 109|
000007C0: 30 00 D7 0F E8 03 8B 20  42 24 B3 B1 C7 28 33 34  |0...... B$...(34|
000007D0: 29 20 A7 20 39 39 30 00  FA 0F F2 03 A1 23 31 2C  |) . 990......#1,|
000007E0: 42 24 3A 8B 20 42 24 B3  B1 C7 28 33 34 29 A7 20  |B$:. B$...(34). |
000007F0: 99 42 24 3B 3A 89 31 30  31 30 00 17 10 FC 03 A1  |.B$;:.1010......|
00000800: 23 31 2C 42 24 3A 8B 20  42 24 B2 C7 28 33 32 29  |#1,B$:. B$..(32)|
00000810: 20 A7 20 31 30 32 30 00  29 10 06 04 99 20 A3 32  | . 1020.).... .2|
00000820: 32 29 3B 3A 43 24 B2 22  22 00 4E 10 10 04 43 24  |2);:C$."".N...C$|
00000830: B2 43 24 AA 42 24 3A A1  23 31 2C 42 24 3A 8B 20  |.C$.B$:.#1,B$:. |
00000840: 42 24 B3 B1 22 22 20 20  A7 20 31 30 34 30 00 5B  |B$..""  . 1040.[|
00000850: 10 1A 04 99 C8 28 43 24  2C 33 29 00 70 10 24 04  |.....(C$,3).p.$.|
00000860: 8B 20 54 B2 20 31 38 20  A7 20 8D 20 31 31 30 30  |. T. 18 . . 1100|
00000870: 00 7E 10 2E 04 54 20 B2  20 54 20 AA 20 31 00 93  |.~...T . T . 1..|
00000880: 10 38 04 4A B2 32 3A 8B  20 53 54 B2 30 20 A7 20  |.8.J.2:. ST.0 . |
00000890: 39 35 30 00 B2 10 42 04  99 22 12 C2 CC CF CB D3  |950...B.."......|
000008A0: 20 C6 D2 C5 C5 22 3A A0  31 3A 8D 20 31 31 30 30  | ....":.1:. 1100|
000008B0: 3A 8E 00 CB 10 4C 04 99  22 13 22 3A 81 20 54 B2  |:....L..".":. T.|
000008C0: 31 20 A4 20 32 30 20 3A  99 3A 82 00 F2 10 56 04  |1 . 20 :.:....V.|
000008D0: 99 20 22 C4 52 55 4B 20  12 D2 C5 D4 D5 D2 CE 92  |. ".RUK ........|
000008E0: 20 49 4E 20 56 4F 4F 52  20 56 45 52 56 4F 4C 47  | IN VOOR VERVOLG|
000008F0: 2E 22 00 0E 11 60 04 A1  20 52 24 3A 8B 20 52 24  |."...`.. R$:. R$|
00000900: B3 B1 C7 28 31 33 29 20  A7 20 31 31 32 30 00 1D  |...(13) . 1120..|
00000910: 11 6A 04 99 22 93 22 20  3A 20 54 B2 31 00 23 11  |.j.."." : T.1.#.|
00000920: 74 04 8E 00 00 00                                 |t.....          |

....D.. G(14).".N.."..RENAME DISK".F.X.B
$. ".STOP DE DISK IN DE DRIVE".K...C$. "
..EN DRUK EEN TOETS IN !  ".V...R$."."..
...T1..(TI.30..5)... .. .(T1.2).T1.2 . :
 R$."".....R$."....     ".R$.H.... R$;B$
.T.... R$;C$...H.. A$: . A$."" . 140...R
.. "..DRUK .D. IN VOOR .DIRECTORY..(....
 A$:.A$."" . 220.H.... A$ . "D" . A$."D"
 . . 930.F.... "....................."..
.... "DRUK .RETURN. IN INDIEN U "...... 
"DE DISK NAAM OF ID NUMMER ".K.... "NIET
 WIL VERANDEREN .."...... 15,8,15 : . 2,
8,2,"#"..."..15,"U1";2;0;18;0...,..15,"B
-P:"2;144...6.. 690./.@..15,"B-P:"2;144.
U.J.S$.S$."                ":A$.G(34).S.
T..".NIEUWE DISKNAAM   ";D$...^.. C(D$).
0 . S$.I(S$,16)...H..".NIEUWE DISK ID...
 ";I$.L.R..".NIEUW FORMAT      ";F1$...|
.. C(D$).0 . 430.....D$.H(D$.S$,16).....
. T.1 . 16......2,J(D$,T,1);.......?....
 ******* WEGSCHRIJVEN ID NUMMER.T.... C(
I$). 0 . 480.G.B.I$.H(I$.I1$,2).{.L..15,
"B-P:"2;162...V..2,H(I$,1);I(I$,1);.....
. ******* WEGSCHRIJVEN FORMAT.K.... C(F1
$). 0 . 520.....F$.H(F1$.F$,2)......2," 
";H(F$,1);I(F$,1);...... ".NIEUWE DISK N
AAM EN ID : .".(.... 690.?....15,"U2:";2
;0;18;0.J.&. 15: 2.C.0..15,8,15:.15,"I":
 15...:.B$. "..DRUK [RETURN] IN VOOR    
 "...D.C$. "...NIEUWE DISK. SPATIE = STO
P"...N.R$.".".P.X.T1..(TI.30..5)...B.R$.
".........     ".R$...L.. R$;B$...V.. R$
;C$...... A$: . A$."" . 590...... A$.G(1
3) . ..;.... G(142).D....".".J.....M....
  SUBROUTINE LEES DISKNAAM EN.~....  ID 
NUMMER...F..15,"B-P:"2;144...P.S$.""...Z
.. T.1 . 16......#2,A$...... A$..G(96) .
 . A$..G(160) . S$.S$.A$...... T...... "
DISK NAAM         : ";S$......15,"B-P:"2
;162.&...I$."".4. .. T.1 . 2.?.*..#2,A$.
I.4.. A$..G(96) . . A$..G(160) . I$.I$.A
$.Q.>.. T...H.. ".ID NUMMER         : ";
I$...R.F$.""...\.. T.1 . 3...F..#2,A$...
P.. A$..G(96) . . A$..G(160) . F$.F$.A$.
..Z.. T.....F$.I(F$,2)...... ".FORMAT   
         : ";F$.......,...."." : T.1.A..
..1,8,0,"$0": J.3.[....I.1 . J :.#1,A$,B
$:..V...C.0:. A$.."" . C.F(A$)...J.. B$.
."" . C.C.F(B$).256...T..J(D(C),2);.5);.
A....#1,B$:. ST..0 . 1090.W.... B$..G(34
) . 990......#1,B$:. B$..G(34). .B$;:.10
10......#1,B$:. B$.G(32) . 1020.).... .2
2);:C$."".N...C$.C$.B$:.#1,B$:. B$..""  
. 1040.[....H(C$,3).P.$.. T. 18 . . 1100
.~...T . T . 1...8.J.2:. ST.0 . 950...B.
.".BLOKS FREE": 1:. 1100:..K.L..".":. T.
1 . 20 :.:....V.. "DRUK .RETURN. IN VOOR
 VERVOLG."...`.. R$:. R$..G(13) . 1120..
.J.."." : T.1.#.T.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL