home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / programming / colpectius1 / add_extension.amos next >
AMOS Basic Source Code Archive  |  1995-09-07  |  4.1 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: AMOS Basic Source Code Archive (archive/amosSrc).

You can browse this item here: add_extension.amos

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert AMOS Basic Source Code Archive (archive/amosSrc) magic Supported
100% file AMOS Basic source code, untested default
99% file data default
50% TrID AMOS source (v1.34 Alt) default
49% TrID AMOS source (generic) default
100% gt2 Kopftext: 'AMOS Basic v134 ' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 33 34 20 |AMOS Bas|ic v134 |
|00000010| 00 00 10 5c 02 00 00 00 | 0f 01 06 52 00 16 20 46 |...\....|...R.. F|
|00000020| 69 6c 65 20 45 78 74 65 | 6e 73 69 6f 6e 20 41 64 |ile Exte|nsion Ad|
|00000030| 64 65 72 20 00 00 0f 01 | 06 52 00 16 20 7e 7e 7e |der ....|.R.. ~~~|
|00000040| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 7e 7e |~~~~~~~~|~~~~~~~~|
|00000050| 7e 20 00 00 15 01 06 52 | 00 22 20 62 79 20 42 65 |~ .....R|." by Be|
|00000060| 6e 20 57 79 61 74 74 2c | 20 62 77 79 61 74 74 40 |n Wyatt,| bwyatt@|
|00000070| 70 61 73 74 6f 6e 2e 63 | 6f 2e 75 6b 00 00 02 00 |paston.c|o.uk....|
|00000080| 00 00 22 01 06 52 00 3c | 20 41 64 64 73 20 61 6e |.."..R.<| Adds an|
|00000090| 20 65 78 74 65 6e 73 69 | 6f 6e 20 74 6f 20 61 20 | extensi|on to a |
|000000a0| 66 69 6c 65 2c 20 69 66 | 20 69 74 20 68 61 73 20 |file, if| it has |
|000000b0| 61 6e 20 65 78 74 65 6e | 73 69 6f 6e 20 6f 72 20 |an exten|sion or |
|000000c0| 6e 6f 74 20 00 00 02 00 | 00 00 1b 01 06 52 00 2e |not ....|.....R..|
|000000d0| 20 48 6f 70 65 20 61 6c | 6c 20 74 68 65 20 74 65 | Hope al|l the te|
|000000e0| 78 74 20 73 74 61 79 73 | 20 6f 6e 20 61 20 4e 74 |xt stays| on a Nt|
|000000f0| 73 63 20 73 63 72 65 65 | 6e 20 3b 2d 29 20 00 00 |sc scree|n ;-) ..|
|00000100| 14 01 09 ea 00 3e 00 00 | 00 00 00 5c 00 3e 00 00 |.....>..|...\.>..|
|00000110| 02 80 00 5c 00 3e 00 00 | 01 00 00 5c 00 3e 00 00 |...\.>..|...\.>..|
|00000120| 00 02 00 5c 0c 84 00 00 | 16 01 0a 18 00 3e 00 00 |...\....|.....>..|
|00000130| 00 00 00 5c 00 3e 00 00 | 00 80 00 5c 00 3e 00 00 |...\.>..|...\.>..|
|00000140| 00 25 00 5c 00 3e 00 00 | 02 80 00 5c 00 3e 00 00 |.%.\.>..|...\.>..|
|00000150| 01 00 00 00 08 01 0d 34 | 00 54 0b b8 00 3e 00 00 |.......4|.T...>..|
|00000160| 00 00 00 00 0a 01 0c fc | 00 36 00 00 00 00 00 5c |........|.6.....\|
|00000170| 00 36 00 00 0f ff 00 00 | 02 00 00 00 15 01 13 78 |.6......|.......x|
|00000180| 00 5c 00 3e 00 00 00 02 | 00 54 13 e8 00 26 00 14 |.\.>....|.T...&..|
|00000190| 46 69 6c 65 20 45 78 74 | 65 6e 73 69 6f 6e 20 41 |File Ext|ension A|
|000001a0| 64 64 65 72 00 00 15 01 | 13 78 00 5c 00 3e 00 00 |dder....|.x.\.>..|
|000001b0| 00 03 00 54 13 e8 00 26 | 00 14 7e 7e 7e 7e 7e 7e |...T...&|..~~~~~~|
|000001c0| 7e 7e 7e 7e 7e 7e 7e 7e | 7e 7e 7e 7e 7e 7e 00 00 |~~~~~~~~|~~~~~~..|
|000001d0| 02 00 00 00 2d 01 13 78 | 00 5c 00 3e 00 00 00 06 |....-..x|.\.>....|
|000001e0| 00 54 13 e8 00 2e 00 25 | 54 79 70 65 20 69 6e 20 |.T.....%|Type in |
|000001f0| 61 20 66 69 6c 65 2c 20 | 65 67 20 22 44 48 30 3a |a file, |eg "DH0:|
|00000200| 44 61 74 61 2f 50 69 63 | 74 75 72 65 22 00 ff c0 |Data/Pic|ture"...|
|00000210| 00 26 00 18 20 28 44 6f | 65 73 6e 27 74 20 68 61 |.&.. (Do|esn't ha|
|00000220| 76 65 20 74 6f 20 65 78 | 69 73 74 29 00 00 0d 01 |ve to ex|ist)....|
|00000230| 12 54 00 26 00 10 44 48 | 30 3a 44 61 74 61 2f 50 |.T.&..DH|0:Data/P|
|00000240| 69 63 74 75 72 65 00 00 | 19 01 13 78 00 3e 00 00 |icture..|...x.>..|
|00000250| 00 05 00 5c 00 3e 00 00 | 00 07 00 54 04 d0 00 26 |...\.>..|...T...&|
|00000260| 00 0b 4a 75 73 74 20 68 | 65 72 65 3d 3e 00 00 64 |..Just h|ere=>..d|
|00000270| 00 06 00 00 02 02 66 00 | 00 00 02 00 00 00 2a 01 |......f.|......*.|
|00000280| 13 78 00 5c 00 3e 00 00 | 00 09 00 54 13 e8 00 2e |.x.\.>..|...T....|
|00000290| 00 3d 54 68 61 74 73 20 | 67 6f 6f 64 2c 20 6e 6f |.=Thats |good, no|
|000002a0| 77 20 74 79 70 65 20 69 | 6e 20 61 6e 20 66 69 6c |w type i|n an fil|
|000002b0| 65 20 65 78 74 65 6e 73 | 69 6f 6e 2c 20 65 67 20 |e extens|ion, eg |
|000002c0| 22 69 66 66 22 20 6f 72 | 20 22 69 6e 66 6f 22 00 |"iff" or| "info".|
|000002d0| 00 00 07 01 12 54 00 26 | 00 03 69 66 66 00 00 00 |.....T.&|..iff...|
|000002e0| 1a 01 13 78 00 3e 00 00 | 00 03 00 5c 00 3e 00 00 |...x.>..|...\.>..|
|000002f0| 00 0a 00 54 04 d0 00 26 | 00 0d 54 79 70 65 20 69 |...T...&|..Type i|
|00000300| 74 20 6e 6f 77 3d 3e 00 | 00 64 00 06 00 06 02 02 |t now=>.|.d......|
|00000310| 78 00 00 00 02 00 00 00 | 0d 01 06 52 00 12 20 20 |x.......|...R..  |
|00000320| 20 20 48 65 72 65 20 69 | 74 20 69 73 20 20 20 20 |  Here i|t is    |
|00000330| 00 00 0d 01 06 52 00 12 | 20 20 20 20 7e 7e 7e 7e |.....R..|    ~~~~|
|00000340| 7e 7e 7e 7e 7e 7e 20 20 | 20 20 00 00 0b 01 06 52 |~~~~~~  |  .....R|
|00000350| 00 0e 20 20 20 20 20 20 | 20 2a 2a 2a 2a 2a 20 20 |..      | *****  |
|00000360| 00 00 0b 01 06 52 00 0e | 20 20 20 20 20 20 20 2a |.....R..|       *|
|00000370| 2a 2a 2a 2a 20 20 00 00 | 0c 01 06 52 00 10 20 20 |****  ..|...R..  |
|00000380| 20 20 20 20 20 2a 2a 2a | 2a 2a 20 20 20 20 00 00 |     ***|**    ..|
|00000390| 0b 01 06 52 00 0e 20 20 | 20 20 20 20 20 2a 2a 2a |...R..  |     ***|
|000003a0| 2a 2a 20 20 00 00 0c 01 | 06 52 00 10 20 20 20 20 |**  ....|.R..    |
|000003b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 00 00 0c 01 |********|*** ....|
|000003c0| 06 52 00 10 20 20 20 20 | 20 2a 2a 2a 2a 2a 2a 2a |.R..    | *******|
|000003d0| 2a 2a 20 20 00 00 0b 01 | 06 52 00 0e 20 20 20 20 |**  ....|.R..    |
|000003e0| 20 20 2a 2a 2a 2a 2a 2a | 2a 20 00 00 0b 01 06 52 |  ******|* .....R|
|000003f0| 00 0e 20 20 20 20 20 20 | 20 2a 2a 2a 2a 2a 20 20 |..      | *****  |
|00000400| 00 00 0a 01 06 52 00 0c | 20 20 20 20 20 20 20 20 |.....R..|        |
|00000410| 2a 2a 2a 20 00 00 0a 01 | 06 52 00 0c 20 20 20 20 |*** ....|.R..    |
|00000420| 20 20 20 20 20 2a 20 20 | 00 00 04 01 06 52 00 00 |     *  |.....R..|
|00000430| 00 00 0f 01 06 52 00 16 | 20 57 57 57 57 57 57 57 |.....R..| WWWWWWW|
|00000440| 57 57 57 57 57 57 57 57 | 57 57 57 57 20 20 00 00 |WWWWWWWW|WWWW  ..|
|00000450| 17 02 00 12 ff ec 0e 80 | 5f 61 64 64 65 78 74 65 |........|_addexte|
|00000460| 6e 73 69 6f 6e 00 00 84 | 00 06 00 00 02 02 66 00 |nsion...|......f.|
|00000470| 00 5c 00 06 00 06 02 02 | 78 00 00 8c 00 00 0e 01 |.\......|x.......|
|00000480| 06 52 00 14 20 4d 4d 4d | 4d 4d 4d 4d 4d 4d 4d 4d |.R.. MMM|MMMMMMMM|
|00000490| 4d 4d 4d 4d 4d 4d 4d 4d | 00 00 04 01 06 52 00 00 |MMMMMMMM|.....R..|
|000004a0| 00 00 0a 01 06 52 00 0c | 20 20 20 20 20 20 20 20 |.....R..|        |
|000004b0| 20 2a 20 20 00 00 0a 01 | 06 52 00 0c 20 20 20 20 | *  ....|.R..    |
|000004c0| 20 20 20 20 2a 2a 2a 20 | 00 00 0b 01 06 52 00 0e |    *** |.....R..|
|000004d0| 20 20 20 20 20 20 20 2a | 2a 2a 2a 2a 20 20 00 00 |       *|****  ..|
|000004e0| 0b 01 06 52 00 0e 20 20 | 20 20 20 20 2a 2a 2a 2a |...R..  |    ****|
|000004f0| 2a 2a 2a 20 00 00 0c 01 | 06 52 00 10 20 20 20 20 |*** ....|.R..    |
|00000500| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 20 00 00 0c 01 | *******|**  ....|
|00000510| 06 52 00 10 20 20 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.R..    |********|
|00000520| 2a 2a 2a 20 00 00 0b 01 | 06 52 00 0e 20 20 20 20 |*** ....|.R..    |
|00000530| 20 20 20 2a 2a 2a 2a 2a | 20 20 00 00 0b 01 06 52 |   *****|  .....R|
|00000540| 00 0e 20 20 20 20 20 20 | 20 2a 2a 2a 2a 2a 20 20 |..      | *****  |
|00000550| 00 00 0c 01 06 52 00 10 | 20 20 20 20 20 20 20 2a |.....R..|       *|
|00000560| 2a 2a 2a 2a 20 20 20 20 | 00 00 0b 01 06 52 00 0e |****    |.....R..|
|00000570| 20 20 20 20 20 20 20 2a | 2a 2a 2a 2a 20 20 00 00 |       *|****  ..|
|00000580| 02 00 00 00 18 01 13 78 | 00 5c 00 3e 00 00 00 0c |.......x|.\.>....|
|00000590| 00 54 13 e8 00 26 00 1a | 41 6e 64 20 68 65 72 65 |.T...&..|And here|
|000005a0| 20 74 68 65 79 20 61 72 | 65 20 74 6f 67 65 74 68 | they ar|e togeth|
|000005b0| 65 72 00 00 12 01 13 78 | 00 5c 00 3e 00 00 00 0e |er.....x|.\.>....|
|000005c0| 00 54 13 e8 00 2e 00 01 | 22 00 ff c0 03 d6 ff c0 |.T......|".......|
|000005d0| 00 2e 00 01 22 00 00 00 | 15 01 13 78 00 5c 00 3e |...."...|...x.\.>|
|000005e0| 00 00 00 10 00 54 13 e8 | 00 26 00 14 49 6d 70 72 |.....T..|.&..Impr|
|000005f0| 65 73 73 69 76 65 20 69 | 73 6e 27 74 20 69 74 3f |essive i|sn't it?|
|00000600| 00 00 10 01 13 78 00 5c | 00 3e 00 00 00 11 00 54 |.....x.\|.>.....T|
|00000610| 13 e8 00 26 00 09 4d 61 | 79 62 65 20 6e 6f 74 00 |...&..Ma|ybe not.|
|00000620| 00 00 19 01 13 78 00 5c | 00 3e 00 00 00 13 00 54 |.....x.\|.>.....T|
|00000630| 13 e8 00 26 00 1c 42 75 | 74 20 69 74 20 64 6f 65 |...&..Bu|t it doe|
|00000640| 73 20 68 61 76 65 20 69 | 74 73 20 75 73 65 73 2e |s have i|ts uses.|
|00000650| 2e 2e 00 00 11 01 13 78 | 00 5c 00 3e 00 00 00 15 |.......x|.\.>....|
|00000660| 00 54 13 e8 00 26 00 0b | 50 72 65 73 73 20 61 20 |.T...&..|Press a |
|00000670| 6b 65 79 00 00 00 02 00 | 00 00 03 01 12 90 00 00 |key.....|........|
|00000680| 0f 01 00 06 00 06 02 02 | 78 00 ff a2 00 26 00 0b |........|x....&..|
|00000690| 41 78 74 59 70 4c 57 71 | 5a 7a 7a 00 00 00 4b 01 |AxtYpLWq|Zzz...K.|
|000006a0| 00 06 00 00 02 02 66 00 | ff a2 19 54 00 74 00 26 |......f.|...T.t.&|
|000006b0| 00 00 00 5c 00 26 00 00 | 00 5c 00 2e 00 26 49 6e |...\.&..|.\...&In|
|000006c0| 70 75 74 20 66 69 6c 65 | 6e 61 6d 65 2c 20 65 6e |put file|name, en|
|000006d0| 73 75 72 65 20 66 69 6c | 65 20 65 6e 64 73 20 69 |sure fil|e ends i|
|000006e0| 6e 20 22 2e ff c0 00 06 | 00 00 02 02 78 00 ff c0 |n ".....|....x...|
|000006f0| 00 2e 00 01 22 00 00 5c | 00 26 00 33 28 53 65 65 |...."..\|.&.3(See|
|00000700| 20 77 68 61 74 20 68 61 | 70 70 65 6e 73 20 69 66 | what ha|ppens if|
|00000710| 20 79 6f 75 20 64 6f 6e | 27 74 20 70 75 74 20 69 | you don|'t put i|
|00000720| 74 20 69 6e 20 63 6f 72 | 72 65 63 74 6c 79 29 00 |t in cor|rectly).|
|00000730| 00 7c 00 00 02 00 00 00 | 11 01 13 78 00 5c 00 3e |.|......|...x.\.>|
|00000740| 00 00 00 15 00 54 13 e8 | 00 26 00 0b 20 20 20 20 |.....T..|.&..    |
|00000750| 20 20 20 20 20 20 20 00 | 00 00 35 01 00 06 00 00 |       .|..5.....|
|00000760| 02 02 66 00 ff a2 05 36 | 00 74 00 06 00 00 02 02 |..f....6|.t......|
|00000770| 66 00 00 5c 05 da 00 74 | 00 06 00 00 02 02 66 00 |f..\...t|......f.|
|00000780| 00 7c ff ca 06 f6 00 74 | 00 4e 12 02 00 86 00 74 |.|.....t|.N.....t|
|00000790| 00 06 00 00 02 02 66 00 | 00 5c 00 26 00 01 2f 00 |......f.|.\.&../.|
|000007a0| 00 7c 00 5c 00 4e 12 02 | 00 86 00 74 00 06 00 00 |.|.\.N..|...t....|
|000007b0| 02 02 66 00 00 5c 00 26 | 00 01 3a 00 00 7c 00 7c |..f..\.&|..:..|.||
|000007c0| 00 7c 00 00 1c 01 13 78 | 00 3e 00 00 00 00 00 5c |.|.....x|.>.....\|
|000007d0| 00 3e 00 00 00 15 00 54 | 04 76 00 26 00 12 49 6e |.>.....T|.v.&..In|
|000007e0| 70 75 74 74 65 64 20 66 | 69 6c 65 6e 61 6d 65 3a |putted f|ilename:|
|000007f0| ff c0 00 06 00 00 02 02 | 66 00 00 00 02 00 00 00 |........|f.......|
|00000800| 17 01 00 12 ff ec 0e 80 | 5f 61 64 64 65 78 74 65 |........|_addexte|
|00000810| 6e 73 69 6f 6e 00 00 84 | 00 06 00 00 02 02 66 00 |nsion...|......f.|
|00000820| 00 5c 00 06 00 06 02 02 | 78 00 00 8c 00 00 29 01 |.\......|x.....).|
|00000830| 00 06 00 00 02 02 66 00 | ff a2 05 36 00 74 03 d6 |......f.|...6.t..|
|00000840| 00 5c 05 da 00 74 03 d6 | 00 7c ff ca 06 f6 00 74 |.\...t..|.|.....t|
|00000850| 00 4e 12 02 00 86 00 74 | 03 d6 00 5c 00 26 00 01 |.N.....t|...\.&..|
|00000860| 2f 00 00 7c 00 5c 00 4e | 12 02 00 86 00 74 03 d6 |/..|.\.N|.....t..|
|00000870| 00 5c 00 26 00 01 3a 00 | 00 7c 00 7c 00 7c 00 00 |.\.&..:.|.|.|.|..|
|00000880| 1a 01 13 78 00 3e 00 00 | 00 00 00 5c 00 3e 00 00 |...x.>..|...\.>..|
|00000890| 00 17 00 54 04 76 00 26 | 00 0d 4e 65 77 20 66 69 |...T.v.&|..New fi|
|000008a0| 6c 65 6e 61 6d 65 3a 00 | ff c0 00 06 00 00 02 02 |lename:.|........|
|000008b0| 66 00 00 00 02 00 00 00 | 11 01 13 78 00 5c 00 3e |f.......|...x.\.>|
|000008c0| 00 00 00 19 00 54 13 e8 | 00 26 00 0b 50 72 65 73 |.....T..|.&..Pres|
|000008d0| 73 20 61 20 6b 65 79 00 | 00 00 02 00 00 00 03 01 |s a key.|........|
|000008e0| 12 90 00 00 02 00 00 00 | 03 01 06 70 00 00 02 00 |........|...p....|
|000008f0| 00 00 1c 01 03 76 00 00 | 06 54 00 24 00 00 00 06 |.....v..|.T.$....|
|00000900| 00 00 0e 80 5f 61 64 64 | 65 78 74 65 6e 73 69 6f |...._add|extensio|
|00000910| 6e 00 00 84 00 06 00 00 | 02 02 66 00 00 5c 00 06 |n.......|..f..\..|
|00000920| 00 06 02 02 78 00 00 8c | 00 00 02 00 00 00 26 04 |....x...|......&.|
|00000930| 06 52 00 44 20 41 64 64 | 73 20 66 69 6c 65 20 65 |.R.D Add|s file e|
|00000940| 78 74 65 6e 73 69 6f 6e | 20 58 24 20 74 6f 20 46 |xtension| X$ to F|
|00000950| 24 2c 20 65 67 20 46 24 | 3d 22 44 61 74 61 22 2c |$, eg F$|="Data",|
|00000960| 20 58 24 3d 22 73 22 2c | 20 50 61 72 61 6d 24 3d | X$="s",| Param$=|
|00000970| 22 44 61 74 61 2e 73 22 | 00 00 27 04 06 52 00 46 |"Data.s"|..'..R.F|
|00000980| 20 44 65 74 65 63 74 73 | 20 69 66 20 69 74 27 73 | Detects| if it's|
|00000990| 20 61 6c 72 65 61 64 79 | 20 62 65 65 6e 20 61 64 | already| been ad|
|000009a0| 64 65 64 2c 20 61 6e 64 | 20 70 75 74 73 20 69 74 |ded, and| puts it|
|000009b0| 20 69 6e 20 74 68 65 20 | 63 61 73 65 20 6f 66 20 | in the |case of |
|000009c0| 58 24 2e 2e 2e 20 00 00 | 21 04 06 52 00 3a 20 20 |X$... ..|!..R.:  |
|000009d0| 20 20 65 67 20 46 24 3d | 22 53 63 72 65 65 6e 2e |  eg F$=|"Screen.|
|000009e0| 69 66 66 22 20 63 68 61 | 6e 67 65 73 20 74 6f 20 |iff" cha|nges to |
|000009f0| 22 53 63 72 65 65 6e 2e | 49 46 46 22 20 69 66 20 |"Screen.|IFF" if |
|00000a00| 58 24 3d 22 49 46 46 22 | 00 00 02 00 00 00 20 04 |X$="IFF"|...... .|
|00000a10| 06 52 00 38 20 52 65 6d | 6f 76 65 20 61 6c 6c 20 |.R.8 Rem|ove all |
|00000a20| 74 68 65 20 63 6f 6d 6d | 65 6e 74 73 20 74 6f 20 |the comm|ents to |
|00000a30| 6d 61 6b 65 20 69 74 20 | 65 61 73 69 65 72 20 74 |make it |easier t|
|00000a40| 6f 20 66 6f 6c 6c 6f 77 | 20 3a 2d 29 00 00 02 00 |o follow| :-)....|
|00000a50| 00 00 21 04 06 52 00 3a | 20 47 65 74 20 72 69 64 |..!..R.:| Get rid|
|00000a60| 20 6f 66 20 74 68 65 20 | 70 61 74 68 6e 61 6d 65 | of the |pathname|
|00000a70| 20 61 6e 64 20 67 65 74 | 73 20 74 68 65 20 66 69 | and get|s the fi|
|00000a80| 6c 65 6e 61 6d 65 20 6f | 6e 20 69 74 73 20 6f 77 |lename o|n its ow|
|00000a90| 6e 20 00 00 36 04 00 12 | ff dc 08 80 5f 62 77 69 |n ..6...|...._bwi|
|00000aa0| 6e 73 74 72 00 84 00 06 | 00 00 02 02 66 00 00 5c |nstr....|....f..\|
|00000ab0| 00 26 00 01 2f 00 00 8c | 00 54 00 06 00 0c 06 00 |.&../...|.T......|
|00000ac0| 73 6c 61 73 68 00 ff a2 | 03 e2 00 54 00 12 ff dc |slash...|...T....|
|00000ad0| 08 80 5f 62 77 69 6e 73 | 74 72 00 84 00 06 00 00 |.._bwins|tr......|
|00000ae0| 02 02 66 00 00 5c 00 26 | 00 01 3a 00 00 8c 00 54 |..f..\.&|..:....T|
|00000af0| 00 06 00 12 04 00 63 6c | 6f 6e ff a2 03 e2 00 00 |......cl|on......|
|00000b00| 29 04 00 06 00 18 08 02 | 66 69 6c 65 6e 61 6d 00 |).......|filenam.|
|00000b10| ff a2 05 36 00 74 00 06 | 00 00 02 02 66 00 00 5c |...6.t..|....f..\|
|00000b20| 05 da 00 74 00 06 00 00 | 02 02 66 00 00 7c ff ca |...t....|..f..|..|
|00000b30| 06 f6 00 74 00 06 00 0c | 06 00 73 6c 61 73 68 00 |...t....|..slash.|
|00000b40| 00 5c 00 06 00 12 04 00 | 63 6c 6f 6e 00 7c 00 7c |.\......|clon.|.||
|00000b50| 00 00 02 00 00 00 1e 04 | 06 52 00 34 20 47 65 74 |........|.R.4 Get|
|00000b60| 20 72 69 64 20 6f 66 20 | 74 68 65 20 22 2e 22 20 | rid of |the "." |
|00000b70| 69 6e 20 58 24 20 69 66 | 20 74 68 65 20 75 73 65 |in X$ if| the use|
|00000b80| 72 20 68 61 73 20 70 75 | 74 20 6f 6e 65 20 69 6e |r has pu|t one in|
|00000b90| 00 00 0f 04 00 06 00 06 | 02 02 78 00 ff a2 00 06 |........|..x.....|
|00000ba0| 00 06 02 02 78 00 ff ca | 00 26 00 01 2e 00 00 00 |....x...|.&......|
|00000bb0| 02 00 00 00 1c 04 06 52 | 00 30 20 43 68 65 63 6b |.......R|.0 Check|
|00000bc0| 20 66 6f 72 20 74 68 65 | 20 58 24 20 62 69 74 20 | for the| X$ bit |
|00000bd0| 61 6e 64 20 61 64 64 20 | 69 74 20 69 66 20 6e 65 |and add |it if ne|
|00000be0| 73 73 61 73 73 61 72 79 | 20 20 00 00 1b 04 00 06 |ssassary|  ......|
|00000bf0| 00 1e 04 00 78 70 6f 73 | ff a2 05 e4 00 74 00 06 |....xpos|.....t..|
|00000c00| 00 18 08 02 66 69 6c 65 | 6e 61 6d 00 00 5c 00 26 |....file|nam..\.&|
|00000c10| 00 01 2e 00 ff c0 00 06 | 00 06 02 02 78 00 00 7c |........|....x..||
|00000c20| 00 00 29 04 06 52 00 4a | 20 49 66 20 70 6f 73 69 |..)..R.J| If posi|
|00000c30| 74 69 6f 6e 20 6f 66 20 | 65 78 74 65 6e 73 69 6f |tion of |extensio|
|00000c40| 6e 20 69 73 20 6e 6f 74 | 20 61 74 20 74 68 65 20 |n is not| at the |
|00000c50| 65 6e 64 2c 20 69 65 20 | 6e 6f 74 20 61 74 20 61 |end, ie |not at a|
|00000c60| 6c 6c 20 2f 20 69 6e 20 | 74 68 65 20 6d 69 64 64 |ll / in |the midd|
|00000c70| 6c 65 00 00 20 04 02 be | 02 54 00 06 00 1e 04 00 |le.. ...|.T......|
|00000c80| 78 70 6f 73 ff ac 05 da | 00 74 00 06 00 18 08 02 |xpos....|.t......|
|00000c90| 66 69 6c 65 6e 61 6d 00 | 00 7c ff ca 00 3e 00 00 |filenam.|.|...>..|
|00000ca0| 00 01 ff ca 05 da 00 74 | 00 06 00 06 02 02 78 00 |.......t|......x.|
|00000cb0| 00 7c 00 00 15 07 06 52 | 00 22 20 49 66 20 58 24 |.|.....R|." If X$|
|00000cc0| 20 69 73 6e 27 74 20 69 | 6e 20 46 24 20 61 74 20 | isn't i|n F$ at |
|00000cd0| 61 6c 6c 20 74 68 65 6e | 2e 2e 2e 20 00 00 22 07 |all then|... ..".|
|00000ce0| 02 be 01 58 00 06 00 1e | 04 00 78 70 6f 73 ff a2 |...X....|..xpos..|
|00000cf0| 00 3e 00 00 00 00 00 54 | 00 06 00 1e 04 00 78 70 |.>.....T|......xp|
|00000d00| 6f 73 ff a2 05 e4 00 74 | 00 06 00 18 08 02 66 69 |os.....t|......fi|
|00000d10| 6c 65 6e 61 6d 00 00 5c | 00 26 00 01 2e 00 00 7c |lenam..\|.&.....||
|00000d20| 00 00 0d 0a 02 be 00 74 | 00 06 00 1e 04 00 78 70 |.......t|......xp|
|00000d30| 6f 73 ff a2 00 3e 00 00 | 00 00 00 00 19 0d 06 52 |os...>..|.......R|
|00000d40| 00 2a 20 49 66 20 74 68 | 65 72 65 27 73 20 6e 6f |.* If th|ere's no|
|00000d50| 20 22 2e 22 20 74 68 65 | 6e 20 6a 75 73 74 20 61 | "." the|n just a|
|00000d60| 64 64 20 58 24 20 74 6f | 20 46 24 20 00 00 14 0d |dd X$ to| F$ ....|
|00000d70| 00 06 00 00 02 02 66 00 | ff a2 00 06 00 00 02 02 |......f.|........|
|00000d80| 66 00 ff c0 00 26 00 01 | 2e 00 ff c0 00 06 00 06 |f....&..|........|
|00000d90| 02 02 78 00 00 00 04 0a | 02 d0 00 9c 00 00 1b 0d |..x.....|........|
|00000da0| 06 52 00 2e 20 49 66 20 | 74 68 65 72 65 27 73 20 |.R.. If |there's |
|00000db0| 61 20 22 2e 22 20 73 6f | 6d 65 77 68 65 72 65 2c |a "." so|mewhere,|
|00000dc0| 20 70 75 74 20 69 74 20 | 61 66 74 65 72 20 74 68 | put it |after th|
|00000dd0| 61 74 00 00 2e 0d 00 06 | 00 00 02 02 66 00 ff a2 |at......|....f...|
|00000de0| 05 28 00 74 00 06 00 00 | 02 02 66 00 00 5c 00 06 |.(.t....|..f..\..|
|00000df0| 00 1e 04 00 78 70 6f 73 | ff c0 00 74 05 da 00 74 |....xpos|...t...t|
|00000e00| 00 06 00 00 02 02 66 00 | 00 7c ff ca 05 da 00 74 |......f.|.|.....t|
|00000e10| 00 06 00 18 08 02 66 69 | 6c 65 6e 61 6d 00 00 7c |......fi|lenam..||
|00000e20| 00 7c 00 7c ff c0 00 06 | 00 06 02 02 78 00 00 00 |.|.|....|....x...|
|00000e30| 03 0a 02 da 00 00 04 07 | 02 d0 00 8e 00 00 25 0a |........|......%.|
|00000e40| 06 52 00 42 20 4c 65 74 | 20 46 24 3d 46 24 20 75 |.R.B Let| F$=F$ u|
|00000e50| 70 74 6f 20 77 68 65 72 | 65 20 58 24 20 69 73 20 |pto wher|e X$ is |
|00000e60| 69 6e 63 6c 75 64 65 64 | 20 61 6e 64 20 70 75 74 |included| and put|
|00000e70| 20 69 74 20 69 6e 20 74 | 68 65 20 63 61 73 65 20 | it in t|he case |
|00000e80| 6f 66 20 58 24 20 00 00 | 1d 0a 00 06 00 00 02 02 |of X$ ..|........|
|00000e90| 66 00 ff a2 05 28 00 74 | 00 06 00 00 02 02 66 00 |f....(.t|......f.|
|00000ea0| 00 5c 00 06 00 1e 04 00 | 78 70 6f 73 ff c0 00 3e |.\......|xpos...>|
|00000eb0| 00 00 00 01 00 7c ff c0 | 00 06 00 06 02 02 78 00 |.....|..|......x.|
|00000ec0| 00 00 03 07 02 da 00 00 | 04 04 02 d0 00 72 00 00 |........|.....r..|
|00000ed0| 11 07 06 52 00 1a 20 50 | 75 74 20 69 74 20 69 6e |...R.. P|ut it in|
|00000ee0| 20 74 68 65 20 63 61 73 | 65 20 6f 66 20 58 24 20 | the cas|e of X$ |
|00000ef0| 00 00 23 07 00 06 00 00 | 02 02 66 00 ff a2 05 28 |..#.....|..f....(|
|00000f00| 00 74 00 06 00 00 02 02 | 66 00 00 5c 05 da 00 74 |.t......|f..\...t|
|00000f10| 00 06 00 00 02 02 66 00 | 00 7c ff ca 05 da 00 74 |......f.|.|.....t|
|00000f20| 00 06 00 06 02 02 78 00 | 00 7c 00 7c ff c0 00 06 |......x.|.|.|....|
|00000f30| 00 06 02 02 78 00 00 00 | 03 04 02 da 00 00 02 00 |....x...|........|
|00000f40| 00 00 09 01 03 90 00 84 | 00 06 00 00 02 02 66 00 |........|......f.|
|00000f50| 00 8c 00 00 02 00 00 00 | 19 01 03 76 00 00 01 0a |........|...v....|
|00000f60| 00 12 00 00 00 06 00 00 | 08 80 5f 62 77 69 6e 73 |........|.._bwins|
|00000f70| 74 72 00 84 00 06 00 00 | 02 02 61 00 00 5c 00 06 |tr......|..a..\..|
|00000f80| 00 06 02 02 63 00 00 8c | 00 00 02 00 00 00 15 04 |....c...|........|
|00000f90| 06 52 00 22 20 42 61 63 | 6b 77 61 72 64 73 20 49 |.R." Bac|kwards I|
|00000fa0| 6e 73 74 72 20 63 6f 6d | 6d 61 6e 64 2f 70 72 6f |nstr com|mand/pro|
|00000fb0| 63 65 64 75 72 65 00 00 | 15 04 06 52 00 22 20 41 |cedure..|...R." A|
|00000fc0| 24 3d 49 6e 70 75 74 20 | 73 74 72 69 6e 67 2c 20 |$=Input |string, |
|00000fd0| 43 24 3d 53 65 61 72 63 | 68 20 73 74 72 69 6e 67 |C$=Searc|h string|
|00000fe0| 00 00 02 00 00 00 0e 04 | 00 06 00 0c 02 00 78 00 |........|......x.|
|00000ff0| ff a2 05 da 00 74 00 06 | 00 00 02 02 61 00 00 7c |.....t..|....a..||
|00001000| 00 00 22 04 02 68 00 54 | 05 0e 00 74 00 06 00 00 |.."..h.T|...t....|
|00001010| 02 02 61 00 00 5c 00 06 | 00 0c 02 00 78 00 00 5c |..a..\..|....x..\|
|00001020| 00 3e 00 00 00 01 00 7c | ff 66 00 06 00 06 02 02 |.>.....||.f......|
|00001030| 63 00 ff 58 00 06 00 0c | 02 00 78 00 ff b6 00 3e |c..X....|..x....>|
|00001040| 00 00 00 00 00 00 07 07 | 04 4e 00 06 00 0c 02 00 |........|.N......|
|00001050| 78 00 00 00 03 04 02 74 | 00 00 02 00 00 00 09 01 |x......t|........|
|00001060| 03 90 00 84 00 06 00 0c | 02 00 78 00 00 8c 00 00 |........|..x.....|
|00001070| 41 6d 42 73 00 00       |                         |AmBs..  |        |
+--------+-------------------------+-------------------------+--------+--------+