/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Toolkit / 80COL-UTIL.SDA / RENAME

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 41 1c 0a 00 8f 20 | 43 2d 31 32 38 20 38 30 |..A.... |C-128 80|
|00000010| 20 43 4f 4c 55 4d 4e 20 | 46 49 4c 45 20 53 43 52 | COLUMN |FILE SCR|
|00000020| 41 54 43 48 45 52 20 42 | 59 20 43 41 52 4c 20 46 |ATCHER B|Y CARL F|
|00000030| 2e 20 48 4f 57 41 52 44 | 20 30 35 2d 31 37 2d 38 |. HOWARD| 05-17-8|
|00000040| 37 00 77 1c 14 00 e8 3a | e7 36 2c 37 3a e7 35 2c |7.w....:|.6,7:.5,|
|00000050| 38 3a 99 22 11 11 43 48 | 55 43 4b 53 20 31 32 38 |8:."..CH|UCKS 128|
|00000060| 20 46 41 53 54 20 46 49 | 4c 45 20 52 45 4e 41 4d | FAST FI|LE RENAM|
|00000070| 45 52 22 3a fe 0b 32 00 | f2 1c 1e 00 8f 20 43 4c |ER":..2.|..... CL|
|00000080| 45 41 52 20 53 43 52 45 | 45 4e 2c 53 45 54 20 42 |EAR SCRE|EN,SET B|
|00000090| 41 43 4b 52 4f 55 4e 44 | 20 43 4f 4c 4f 52 2c 53 |ACKROUND| COLOR,S|
|000000a0| 45 54 20 46 4f 52 45 47 | 52 4f 55 4e 44 20 43 4f |ET FOREG|ROUND CO|
|000000b0| 4c 4f 52 2c 50 52 49 4e | 54 20 43 55 53 4f 52 20 |LOR,PRIN|T CUSOR |
|000000c0| 44 4f 57 4e 20 32 20 4c | 49 4e 45 53 20 28 43 4f |DOWN 2 L|INES (CO|
|000000d0| 4e 54 52 4f 4c 20 2b 51 | 51 29 20 2b 20 48 45 41 |NTROL +Q|Q) + HEA|
|000000e0| 44 49 4e 47 2c 50 41 55 | 53 45 20 54 4f 20 52 45 |DING,PAU|SE TO RE|
|000000f0| 41 44 00 22 1d 28 00 99 | 22 11 11 50 52 45 53 53 |AD.".(..|"..PRESS|
|00000100| 20 4e 4f 53 43 52 4f 4c | 4c 20 54 4f 20 50 41 55 | NOSCROL|L TO PAU|
|00000110| 53 45 20 44 49 52 45 43 | 54 4f 52 59 22 3a fe 0b |SE DIREC|TORY":..|
|00000120| 31 3a 00 5a 1d 32 00 8f | 20 50 52 49 4e 54 20 43 |1:.Z.2..| PRINT C|
|00000130| 55 52 53 4f 52 20 44 4f | 57 4e 20 32 20 4c 49 4e |URSOR DO|WN 2 LIN|
|00000140| 45 53 20 2b 20 4d 45 53 | 53 41 47 45 2c 50 41 55 |ES + MES|SAGE,PAU|
|00000150| 53 45 20 54 4f 20 52 45 | 41 44 00 91 1d 3c 00 99 |SE TO RE|AD...<..|
|00000160| 22 11 11 22 3a 8f 20 50 | 52 49 4e 54 20 43 55 52 |"..":. P|RINT CUR|
|00000170| 53 4f 52 20 44 4f 57 4e | 20 32 20 53 50 41 43 45 |SOR DOWN| 2 SPACE|
|00000180| 53 20 28 43 4f 4e 54 52 | 4f 4c 20 2b 20 51 20 51 |S (CONTR|OL + Q Q|
|00000190| 29 00 e7 1d 46 00 ee 3a | 85 22 52 45 4e 41 4d 45 |)...F..:|."RENAME|
|000001a0| 20 57 48 49 43 48 20 46 | 49 4c 45 22 3b 41 24 3a | WHICH F|ILE";A$:|
|000001b0| 8f 20 4c 49 53 54 20 44 | 49 52 45 43 54 4f 52 59 |. LIST D|IRECTORY|
|000001c0| 2c 50 52 4f 4d 50 54 20 | 46 4f 52 20 4f 4c 44 20 |,PROMPT |FOR OLD |
|000001d0| 46 49 4c 45 20 4e 41 4d | 45 2c 44 45 46 49 4e 45 |FILE NAM|E,DEFINE|
|000001e0| 20 53 54 52 49 4e 47 00 | 2e 1e 50 00 85 22 45 4e | STRING.|..P.."EN|
|000001f0| 54 45 52 20 54 48 45 20 | 4e 45 57 20 4e 41 4d 45 |TER THE |NEW NAME|
|00000200| 22 3b 4e 24 3a 8f 20 50 | 52 4f 4d 50 54 20 46 4f |";N$:. P|ROMPT FO|
|00000210| 52 20 4e 45 57 20 46 49 | 4c 45 20 4e 41 4d 45 2c |R NEW FI|LE NAME,|
|00000220| 20 44 45 46 49 4e 45 20 | 53 54 52 49 4e 47 00 70 | DEFINE |STRING.p|
|00000230| 1e 5a 00 f5 28 41 24 29 | a4 28 4e 24 29 3a 8f 20 |.Z..(A$)|.(N$):. |
|00000240| 44 49 53 4b 20 49 4e 53 | 54 52 55 43 54 49 4f 4e |DISK INS|TRUCTION|
|00000250| 20 52 45 4e 41 4d 45 20 | 4f 4c 44 20 53 54 52 49 | RENAME |OLD STRI|
|00000260| 4e 47 20 54 4f 20 4e 45 | 57 20 53 54 52 49 4e 47 |NG TO NE|W STRING|
|00000270| 00 ac 1e 64 00 99 20 22 | 44 4f 20 59 4f 55 20 57 |...d.. "|DO YOU W|
|00000280| 41 4e 54 20 54 4f 20 52 | 45 4e 41 4d 45 20 41 4e |ANT TO R|ENAME AN|
|00000290| 4f 54 48 45 52 20 46 49 | 4c 45 3f 20 59 3d 59 45 |OTHER FI|LE? Y=YE|
|000002a0| 53 20 4e 3d 4e 4f 22 3a | a1 f9 42 24 00 e8 1e 6e |S N=NO":|..B$...n|
|000002b0| 00 8f 20 50 52 49 4e 54 | 20 50 52 4f 4d 50 54 20 |.. PRINT| PROMPT |
|000002c0| 46 4f 52 20 41 4e 4f 54 | 48 45 52 20 46 49 4c 45 |FOR ANOT|HER FILE|
|000002d0| 20 4d 45 53 53 41 47 45 | 2c 4c 4f 4f 4b 20 46 4f | MESSAGE|,LOOK FO|
|000002e0| 52 20 4b 45 59 20 42 24 | 00 19 1f 78 00 8b 20 42 |R KEY B$|...x.. B|
|000002f0| 24 b2 22 59 22 20 a7 20 | 89 20 36 30 3a 8f 20 49 |$."Y" . |. 60:. I|
|00000300| 46 20 4b 45 59 20 42 24 | 20 3d 20 59 45 53 20 4c |F KEY B$| = YES L|
|00000310| 4f 4f 50 20 54 4f 20 33 | 30 00 49 1f 82 00 8b 20 |OOP TO 3|0.I.... |
|00000320| 42 24 b2 22 4e 22 a7 20 | 89 20 31 34 30 3a 20 8f |B$."N". |. 140: .|
|00000330| 20 49 46 20 4b 45 59 20 | 42 24 20 3d 20 4e 4f 20 | IF KEY |B$ = NO |
|00000340| 20 47 4f 20 54 4f 20 38 | 30 00 4f 1f 8c 00 80 00 | GO TO 8|0.O.....|
|00000350| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+