/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_ext.dms / in.adf / LibsDev.lha / userlibsrc / NeilsSupportLib.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 20 20 20 20 20 20 | 20 20 20 2a 2a 2a 2a 2a |;       |   *****|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 3b 20 |********|*****.; |
|00000040| 20 20 20 20 20 20 20 20 | 20 2a 2a 20 20 20 20 20 |        | **     |
|00000050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 2a 2a 00 3b 20 20 20 |        | **.;   |
|00000080| 20 20 20 20 20 20 20 2a | 2a 20 20 20 41 6d 69 67 |       *|*   Amig|
|00000090| 61 20 53 75 70 70 6f 72 | 74 20 4c 69 62 72 61 72 |a Suppor|t Librar|
|000000a0| 79 20 66 6f 72 20 42 6c | 69 74 7a 20 42 61 73 69 |y for Bl|itz Basi|
|000000b0| 63 20 49 49 20 20 20 2a | 2a 00 3b 20 20 20 20 20 |c II   *|*.;     |
|000000c0| 20 20 20 20 20 2a 2a 20 | 20 20 20 20 20 20 20 20 |     ** |        |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000f0| 20 20 20 20 20 2a 2a 00 | 3b 20 20 20 20 20 20 20 |     **.|;       |
|00000100| 20 20 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |   *****|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 2a 2a 00 3b 20 | 20 20 20 20 20 20 20 20 |*****.; |        |
|00000140| 20 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | **     |        |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000170| 20 2a 2a 00 3b 20 20 20 | 20 20 20 20 20 20 20 2a | **.;   |       *|
|00000180| 2a 20 20 20 43 72 65 64 | 69 74 73 3a 20 20 20 20 |*   Cred|its:    |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|000001b0| 2a 00 3b 20 20 20 20 20 | 20 20 20 20 20 2a 2a 20 |*.;     |     ** |
|000001c0| 20 20 20 20 49 6e 69 74 | 69 61 6c 20 63 6f 6e 63 |    Init|ial conc|
|000001d0| 65 70 74 20 61 6e 64 20 | 36 38 30 78 30 20 63 6f |ept and |680x0 co|
|000001e0| 64 69 6e 67 20 2d 20 20 | 20 20 20 20 20 2a 2a 00 |ding -  |     **.|
|000001f0| 3b 20 20 20 20 20 20 20 | 20 20 20 2a 2a 20 20 20 |;       |   **   |
|00000200| 20 20 20 20 20 20 4e 65 | 69 6c 20 4f 27 52 6f 75 |      Ne|il O'Rou|
|00000210| 72 6b 65 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |rke     |        |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2a 00 3b 20 |        |   **.; |
|00000230| 20 20 20 20 20 20 20 20 | 20 2a 2a 20 20 20 20 20 |        | **     |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000260| 20 20 20 20 20 20 20 20 | 20 2a 2a 00 3b 20 20 20 |        | **.;   |
|00000270| 20 20 20 20 20 20 20 2a | 2a 20 20 20 20 20 42 61 |       *|*     Ba|
|00000280| 73 69 63 20 63 6f 64 69 | 6e 67 20 6f 66 20 73 6f |sic codi|ng of so|
|00000290| 6d 65 20 63 6f 6d 6d 61 | 6e 64 73 20 2d 20 20 20 |me comma|nds -   |
|000002a0| 20 20 20 20 20 20 20 2a | 2a 00 3b 20 20 20 20 20 |       *|*.;     |
|000002b0| 20 20 20 20 20 2a 2a 20 | 20 20 20 20 20 20 20 20 |     ** |        |
|000002c0| 52 6f 79 20 22 54 68 65 | 20 52 61 74 22 20 48 75 |Roy "The| Rat" Hu|
|000002d0| 72 6c 65 79 20 20 20 20 | 20 20 20 20 20 20 20 20 |rley    |        |
|000002e0| 20 20 20 20 20 2a 2a 00 | 3b 20 20 20 20 20 20 20 |     **.|;       |
|000002f0| 20 20 20 2a 2a 20 20 20 | 20 20 20 20 20 20 20 20 |   **   |        |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000320| 20 20 20 2a 2a 00 3b 20 | 20 20 20 20 20 20 20 20 |   **.; |        |
|00000330| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 00 00 3b 4c 69 | 62 72 61 72 79 20 48 69 |***..;Li|brary Hi|
|00000370| 73 74 6f 72 79 3a 00 00 | 3b 53 6f 6d 65 74 69 6d |story:..|;Sometim|
|00000380| 65 20 69 6e 20 31 39 39 | 33 3a 20 20 4c 69 62 72 |e in 199|3:  Libr|
|00000390| 61 72 79 20 63 72 65 61 | 74 65 64 20 77 69 74 68 |ary crea|ted with|
|000003a0| 20 6a 75 73 74 20 41 6c | 6c 6f 63 4d 65 6d 20 61 | just Al|locMem a|
|000003b0| 6e 64 20 46 72 65 65 4d | 65 6d 00 3b 41 20 62 69 |nd FreeM|em.;A bi|
|000003c0| 74 20 61 66 74 65 72 20 | 74 68 61 74 3a 20 20 43 |t after |that:  C|
|000003d0| 72 65 61 74 65 64 20 49 | 73 45 76 65 6e 20 6a 75 |reated I|sEven ju|
|000003e0| 73 74 20 74 6f 20 70 72 | 6f 76 65 20 61 20 70 6f |st to pr|ove a po|
|000003f0| 69 6e 74 20 74 6f 20 6d | 79 20 62 72 6f 74 68 65 |int to m|y brothe|
|00000400| 72 00 3b 4c 61 74 65 72 | 20 69 6e 20 31 39 39 33 |r.;Later| in 1993|
|00000410| 3a 20 20 20 20 20 53 65 | 61 72 63 68 53 74 72 69 |:     Se|archStri|
|00000420| 6e 67 20 6e 69 63 6b 65 | 64 20 66 72 6f 6d 20 52 |ng nicke|d from R|
|00000430| 6f 79 27 73 20 61 72 74 | 69 63 6c 65 20 69 6e 20 |oy's art|icle in |
|00000440| 41 43 41 52 00 3b 54 6f | 6f 20 66 61 72 20 69 6e |ACAR.;To|o far in|
|00000450| 74 6f 20 31 39 39 34 20 | 20 4c 69 62 72 61 72 79 |to 1994 | Library|
|00000460| 20 72 65 6c 65 61 73 65 | 64 20 77 69 74 68 20 42 | release|d with B|
|00000470| 6c 69 74 7a 20 31 2e 38 | 30 00 3b 32 38 2d 34 2d |litz 1.8|0.;28-4-|
|00000480| 39 34 20 20 20 20 20 20 | 20 20 20 20 20 20 41 64 |94      |      Ad|
|00000490| 64 65 64 20 42 4c 6f 61 | 64 2c 20 42 53 61 76 65 |ded BLoa|d, BSave|
|000004a0| 20 61 6e 64 20 42 46 72 | 65 65 20 61 66 74 65 72 | and BFr|ee after|
|000004b0| 20 6e 61 67 67 69 6e 67 | 73 20 62 79 20 52 6f 79 | nagging|s by Roy|
|000004c0| 00 00 3b 23 6e 65 69 6c | 73 73 75 70 70 6f 72 74 |..;#neil|ssupport|
|000004d0| 6c 69 62 20 3d 20 35 34 | 20 3b 70 72 6f 6d 69 73 |lib = 54| ;promis|
|000004e0| 65 20 6e 6f 74 20 74 6f | 20 6d 6f 76 65 20 69 74 |e not to| move it|
|000004f0| 20 61 67 61 69 6e 2c 20 | 6f 6f 70 73 20 6a 75 73 | again, |oops jus|
|00000500| 74 20 64 69 64 00 00 21 | 6c 69 62 68 65 61 64 65 |t did..!|libheade|
|00000510| 72 7b 23 6e 65 69 6c 73 | 73 75 70 70 6f 72 74 6c |r{#neils|supportl|
|00000520| 69 62 2c 30 2c 30 2c 30 | 2c 30 7d 00 00 21 61 66 |ib,0,0,0|,0}..!af|
|00000530| 75 6e 63 74 69 6f 6e 7b | 23 6c 6f 6e 67 7d 00 21 |unction{|#long}.!|
|00000540| 61 72 67 73 7b 23 6c 6f | 6e 67 2c 23 6c 6f 6e 67 |args{#lo|ng,#long|
|00000550| 7d 00 21 6c 69 62 73 00 | 21 73 75 62 73 7b 5f 61 |}.!libs.|!subs{_a|
|00000560| 6c 6c 6f 63 6d 65 6d 2c | 30 2c 30 7d 00 21 6e 61 |llocmem,|0,0}.!na|
|00000570| 6d 65 7b 22 41 6c 6c 6f | 63 4d 65 6d 22 2c 22 28 |me{"Allo|cMem","(|
|00000580| 42 79 74 65 53 69 7a 65 | 2c 41 74 74 72 69 62 75 |ByteSize|,Attribu|
|00000590| 74 65 73 29 22 7d 00 00 | 21 61 73 74 61 74 65 6d |tes)"}..|!astatem|
|000005a0| 65 6e 74 00 21 61 72 67 | 73 7b 23 6c 6f 6e 67 2c |ent.!arg|s{#long,|
|000005b0| 23 6c 6f 6e 67 7d 00 21 | 6c 69 62 73 00 21 73 75 |#long}.!|libs.!su|
|000005c0| 62 73 7b 5f 66 72 65 65 | 6d 65 6d 2c 30 2c 30 7d |bs{_free|mem,0,0}|
|000005d0| 00 21 6e 61 6d 65 7b 22 | 46 72 65 65 4d 65 6d 22 |.!name{"|FreeMem"|
|000005e0| 2c 22 4d 65 6d 6f 72 79 | 42 6c 6f 63 6b 2c 42 79 |,"Memory|Block,By|
|000005f0| 74 65 53 69 7a 65 22 7d | 00 00 21 61 66 75 6e 63 |teSize"}|..!afunc|
|00000600| 74 69 6f 6e 7b 23 62 79 | 74 65 7d 00 21 61 72 67 |tion{#by|te}.!arg|
|00000610| 73 7b 23 6c 6f 6e 67 7d | 00 21 6c 69 62 73 00 21 |s{#long}|.!libs.!|
|00000620| 73 75 62 73 7b 5f 69 73 | 65 76 65 6e 2c 30 2c 30 |subs{_is|even,0,0|
|00000630| 7d 00 21 6e 61 6d 65 7b | 22 49 73 45 76 65 6e 22 |}.!name{|"IsEven"|
|00000640| 2c 22 28 45 78 70 72 65 | 73 73 69 6f 6e 29 22 7d |,"(Expre|ssion)"}|
|00000650| 00 00 21 61 66 75 6e 63 | 74 69 6f 6e 7b 23 6c 6f |..!afunc|tion{#lo|
|00000660| 6e 67 7d 00 21 61 72 67 | 73 7b 23 6c 6f 6e 67 2c |ng}.!arg|s{#long,|
|00000670| 23 6c 6f 6e 67 2c 23 6c | 6f 6e 67 7d 00 21 6c 69 |#long,#l|ong}.!li|
|00000680| 62 73 00 21 73 75 62 73 | 7b 5f 73 65 61 72 63 68 |bs.!subs|{_search|
|00000690| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 7b 22 53 65 61 |,0,0}.!n|ame{"Sea|
|000006a0| 72 63 68 53 74 72 69 6e | 67 22 2c 22 28 4d 61 74 |rchStrin|g","(Mat|
|000006b0| 63 68 53 74 72 69 6e 67 | 50 6f 69 6e 74 65 72 2c |chString|Pointer,|
|000006c0| 53 74 61 72 74 2c 4c 65 | 6e 67 74 68 29 22 7d 00 |Start,Le|ngth)"}.|
|000006d0| 00 21 61 66 75 6e 63 74 | 69 6f 6e 7b 23 6c 6f 6e |.!afunct|ion{#lon|
|000006e0| 67 7d 00 21 61 72 67 73 | 7b 23 73 74 72 69 6e 67 |g}.!args|{#string|
|000006f0| 2c 23 6c 6f 6e 67 7d 00 | 21 6c 69 62 73 7b 23 64 |,#long}.|!libs{#d|
|00000700| 6f 73 6c 69 62 2c 23 6c | 61 36 7d 00 21 73 75 62 |oslib,#l|a6}.!sub|
|00000710| 73 7b 5f 62 6c 6f 61 64 | 2c 30 2c 30 7d 00 21 6e |s{_bload|,0,0}.!n|
|00000720| 61 6d 65 7b 22 42 4c 6f | 61 64 22 2c 22 28 46 69 |ame{"BLo|ad","(Fi|
|00000730| 6c 65 4e 61 6d 65 24 2c | 4d 65 6d 6f 72 79 54 79 |leName$,|MemoryTy|
|00000740| 70 65 29 22 7d 00 00 21 | 61 73 74 61 74 65 6d 65 |pe)"}..!|astateme|
|00000750| 6e 74 00 21 61 72 67 73 | 7b 23 6c 6f 6e 67 7d 00 |nt.!args|{#long}.|
|00000760| 21 6c 69 62 73 00 21 73 | 75 62 73 7b 5f 62 66 72 |!libs.!s|ubs{_bfr|
|00000770| 65 65 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 7b 22 42 |ee,0,0}.|!name{"B|
|00000780| 46 72 65 65 22 2c 22 42 | 46 69 6c 65 50 6f 69 6e |Free","B|FilePoin|
|00000790| 74 65 72 22 7d 00 00 21 | 61 73 74 61 74 65 6d 65 |ter"}..!|astateme|
|000007a0| 6e 74 00 21 61 72 67 73 | 7b 23 73 74 72 69 6e 67 |nt.!args|{#string|
|000007b0| 2c 23 6c 6f 6e 67 2c 23 | 6c 6f 6e 67 7d 00 21 6c |,#long,#|long}.!l|
|000007c0| 69 62 73 7b 23 64 6f 73 | 6c 69 62 2c 23 6c 61 36 |ibs{#dos|lib,#la6|
|000007d0| 7d 00 21 73 75 62 73 7b | 5f 62 73 61 76 65 2c 30 |}.!subs{|_bsave,0|
|000007e0| 2c 30 7d 00 21 6e 61 6d | 65 7b 22 42 53 61 76 65 |,0}.!nam|e{"BSave|
|000007f0| 22 2c 22 46 69 6c 65 4e | 61 6d 65 24 2c 41 64 64 |","FileN|ame$,Add|
|00000800| 72 65 73 73 2c 4c 65 6e | 67 74 68 22 7d 00 00 21 |ress,Len|gth"}..!|
|00000810| 6c 69 62 66 69 6e 00 00 | 5f 61 6c 6c 6f 63 6d 65 |libfin..|_allocme|
|00000820| 6d 3a 80 38 20 24 63 30 | 30 32 3a 80 94 00 00 5f |m:.8 $c0|02:...._|
|00000830| 66 72 65 65 6d 65 6d 3a | 80 80 2e 6c 20 64 30 2c |freemem:|...l d0,|
|00000840| 61 31 3a 80 7e 2e 6c 20 | 64 31 2c 64 30 3a 80 38 |a1:.~.l |d1,d0:.8|
|00000850| 20 24 63 30 30 33 3a 80 | 94 00 00 5f 69 73 65 76 | $c003:.|..._isev|
|00000860| 65 6e 3a 80 57 20 23 30 | 2c 64 30 3a 80 48 20 5f |en:.W #0|,d0:.H _|
|00000870| 73 65 74 74 72 75 65 3a | 80 7e 2e 62 20 23 30 2c |settrue:|.~.b #0,|
|00000880| 64 30 3a 80 94 00 5f 73 | 65 74 74 72 75 65 3a 80 |d0:..._s|ettrue:.|
|00000890| 7e 2e 62 20 23 2d 31 2c | 64 30 3a 80 94 00 00 5f |~.b #-1,|d0:...._|
|000008a0| 73 65 61 72 63 68 3a 80 | 7e 2e 6c 20 64 31 2c 61 |search:.|~.l d1,a|
|000008b0| 30 3a 80 7e 2e 6c 20 64 | 30 2c 61 31 3a 80 7e 2e |0:.~.l d|0,a1:.~.|
|000008c0| 6c 20 64 32 2c 64 35 3a | 80 a7 2e 6c 20 61 33 2c |l d2,d5:|...l a3,|
|000008d0| 61 33 00 80 7e 2e 6c 20 | 61 31 2c 61 34 3a 80 7e |a3..~.l |a1,a4:.~|
|000008e0| 2e 62 20 28 61 31 29 2c | 64 30 3a 80 48 20 5f 73 |.b (a1),|d0:.H _s|
|000008f0| 65 61 72 63 68 5f 66 69 | 6e 6e 00 5f 73 65 61 72 |earch_fi|nn._sear|
|00000900| 63 68 5f 73 74 61 72 74 | 3a 80 5c 2e 62 20 28 61 |ch_start|:.\.b (a|
|00000910| 30 29 2b 2c 64 30 3a 80 | 48 20 5f 73 65 61 72 63 |0)+,d0:.|H _searc|
|00000920| 68 5f 6d 61 74 63 68 3a | 80 aa 2e 6c 20 23 31 2c |h_match:|...l #1,|
|00000930| 64 35 3a 80 50 20 5f 73 | 65 61 72 63 68 5f 73 74 |d5:.P _s|earch_st|
|00000940| 61 72 74 00 5f 73 65 61 | 72 63 68 5f 66 69 6e 6e |art._sea|rch_finn|
|00000950| 3a 80 7e 2e 6c 20 61 33 | 2c 64 30 3a 80 94 00 5f |:.~.l a3|,d0:..._|
|00000960| 73 65 61 72 63 68 5f 6d | 61 74 63 68 3a 80 aa 2e |search_m|atch:...|
|00000970| 6c 20 23 31 2c 61 30 3a | 80 7e 2e 6c 20 61 30 2c |l #1,a0:|.~.l a0,|
|00000980| 61 33 00 5f 73 65 61 72 | 63 68 5f 6c 6f 6f 70 3a |a3._sear|ch_loop:|
|00000990| 80 7e 2e 62 20 28 61 31 | 29 2b 2c 64 30 3a 80 48 |.~.b (a1|)+,d0:.H|
|000009a0| 20 5f 73 65 61 72 63 68 | 5f 66 69 6e 6e 3a 80 5c | _search|_finn:.\|
|000009b0| 2e 62 20 28 61 30 29 2b | 2c 64 30 3a 80 48 20 5f |.b (a0)+|,d0:.H _|
|000009c0| 73 65 61 72 63 68 5f 6c | 6f 6f 70 00 80 a7 2e 6c |search_l|oop....l|
|000009d0| 20 61 33 2c 61 33 3a 80 | 7e 2e 6c 20 64 34 2c 61 | a3,a3:.|~.l d4,a|
|000009e0| 31 3a 80 7e 2e 62 20 28 | 61 31 29 2c 64 30 3a 80 |1:.~.b (|a1),d0:.|
|000009f0| 58 20 5f 73 65 61 72 63 | 68 5f 73 74 61 72 74 00 |X _searc|h_start.|
|00000a00| 00 3b 59 6f 75 20 77 69 | 6c 6c 20 6e 6f 74 65 20 |.;You wi|ll note |
|00000a10| 68 6f 77 20 70 72 6f 66 | 65 73 73 69 6f 6e 61 6c |how prof|essional|
|00000a20| 20 74 68 65 20 63 6f 64 | 69 6e 67 20 69 73 20 66 | the cod|ing is f|
|00000a30| 72 6f 6d 20 6e 6f 77 20 | 6f 6e 20 3a 29 00 00 2e |rom now |on :)...|
|00000a40| 5f 62 6c 6f 61 64 3a 00 | 20 20 80 82 2e 6c 20 61 |_bload:.|  ...l a|
|00000a50| 34 2d 61 36 2c 2d 28 61 | 37 29 00 20 20 80 7e 2e |4-a6,-(a|7).  .~.|
|00000a60| 6c 20 64 30 2c 66 6e 61 | 6d 65 20 20 20 20 20 20 |l d0,fna|me      |
|00000a70| 20 20 20 3b 53 61 76 65 | 20 74 68 65 20 6e 61 6d |   ;Save| the nam|
|00000a80| 65 20 6f 66 20 74 68 65 | 20 66 69 6c 65 20 77 65 |e of the| file we|
|00000a90| 20 77 61 6e 74 20 74 6f | 20 6c 6f 61 64 00 20 20 | want to| load.  |
|00000aa0| 80 7e 2e 6c 20 64 31 2c | 6d 74 79 70 65 20 20 20 |.~.l d1,|mtype   |
|00000ab0| 20 20 20 20 20 20 3b 61 | 6e 64 20 74 68 65 20 74 |      ;a|nd the t|
|00000ac0| 79 70 65 20 6f 66 20 6d | 65 6d 6f 72 79 20 74 6f |ype of m|emory to|
|00000ad0| 20 6c 6f 61 64 20 69 74 | 20 69 6e 74 6f 00 20 20 | load it| into.  |
|00000ae0| 80 7e 2e 6c 20 66 6e 61 | 6d 65 2c 64 31 00 20 20 |.~.l fna|me,d1.  |
|00000af0| 80 7e 2e 6c 20 23 31 30 | 30 35 2c 64 32 20 20 20 |.~.l #10|05,d2   |
|00000b00| 20 20 20 20 20 20 3b 41 | 63 63 65 73 73 20 6d 6f |      ;A|ccess mo|
|00000b10| 64 65 00 20 20 80 79 20 | 2d 24 35 34 28 61 36 29 |de.  .y |-$54(a6)|
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 47 65 74 |        |    ;Get|
|00000b30| 20 61 20 6c 6f 63 6b 20 | 6f 6e 20 74 68 65 20 66 | a lock |on the f|
|00000b40| 69 6c 65 00 20 20 80 5c | 2e 6c 20 23 30 2c 64 30 |ile.  .\|.l #0,d0|
|00000b50| 00 20 20 80 48 20 66 69 | 6c 65 65 72 72 00 20 20 |.  .H fi|leerr.  |
|00000b60| 80 7e 2e 6c 20 64 30 2c | 6c 6f 63 6b 20 20 20 20 |.~.l d0,|lock    |
|00000b70| 20 20 20 20 20 20 3b 61 | 6e 64 20 73 61 76 65 20 |      ;a|nd save |
|00000b80| 69 74 00 20 20 80 7e 2e | 6c 20 23 24 65 30 2c 64 |it.  .~.|l #$e0,d|
|00000b90| 30 20 20 20 20 20 20 20 | 20 20 20 3b 45 6e 6f 75 |0       |   ;Enou|
|00000ba0| 67 68 20 6d 65 6d 6f 72 | 79 20 66 6f 72 20 61 20 |gh memor|y for a |
|00000bb0| 46 69 6c 65 49 6e 66 6f | 42 6c 6f 63 6b 00 20 20 |FileInfo|Block.  |
|00000bc0| 80 7e 20 23 30 2c 64 31 | 20 20 20 20 20 20 20 20 |.~ #0,d1|        |
|00000bd0| 20 20 20 20 20 20 3b 4d | 65 6d 6f 72 79 20 74 79 |      ;M|emory ty|
|00000be0| 70 65 20 28 30 3d 61 6e | 79 29 00 20 20 80 38 20 |pe (0=an|y).  .8 |
|00000bf0| 24 63 30 30 32 00 20 20 | 80 48 20 74 72 61 63 6b |$c002.  |.H track|
|00000c00| 65 72 65 72 72 00 20 20 | 80 7e 2e 6c 20 64 30 2c |ererr.  |.~.l d0,|
|00000c10| 66 69 62 20 20 20 20 20 | 20 20 20 20 20 20 3b 53 |fib     |      ;S|
|00000c20| 61 76 65 20 61 64 64 72 | 65 73 73 00 20 20 80 7e |ave addr|ess.  .~|
|00000c30| 2e 6c 20 6c 6f 63 6b 2c | 64 31 20 20 20 20 20 20 |.l lock,|d1      |
|00000c40| 20 20 20 20 3b 4e 6f 77 | 20 67 65 74 20 6f 75 72 |    ;Now| get our|
|00000c50| 20 6c 6f 63 6b 00 20 20 | 80 7e 2e 6c 20 66 69 62 | lock.  |.~.l fib|
|00000c60| 2c 64 32 20 20 20 20 20 | 20 20 20 20 20 20 3b 61 |,d2     |      ;a|
|00000c70| 6e 64 20 6f 75 72 20 66 | 69 6c 65 20 69 6e 66 6f |nd our f|ile info|
|00000c80| 20 62 6c 6f 63 6b 00 20 | 20 80 79 20 2d 24 36 36 | block. | .y -$66|
|00000c90| 28 61 36 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |(a6)    |        |
|00000ca0| 3b 61 6e 64 20 22 65 78 | 61 6d 69 6e 65 22 20 74 |;and "ex|amine" t|
|00000cb0| 68 65 20 66 69 6c 65 00 | 20 20 80 48 20 66 69 6c |he file.|  .H fil|
|00000cc0| 65 65 72 72 00 20 20 80 | 7e 2e 6c 20 66 69 62 2c |eerr.  .|~.l fib,|
|00000cd0| 61 30 00 20 20 80 7e 2e | 6c 20 24 37 63 28 61 30 |a0.  .~.|l $7c(a0|
|00000ce0| 29 2c 64 30 20 20 20 20 | 20 20 20 3b 47 65 74 20 |),d0    |   ;Get |
|00000cf0| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 74 68 |the leng|th of th|
|00000d00| 65 20 66 69 6c 65 00 20 | 20 80 7e 2e 6c 20 64 30 |e file. | .~.l d0|
|00000d10| 2c 74 6d 70 73 69 7a 65 | 20 20 20 20 20 20 20 3b |,tmpsize|       ;|
|00000d20| 53 61 76 65 20 69 74 20 | 69 6e 20 6f 75 72 20 64 |Save it |in our d|
|00000d30| 61 74 61 20 74 61 62 6c | 65 00 20 20 80 7e 2e 6c |ata tabl|e.  .~.l|
|00000d40| 20 6d 74 79 70 65 2c 64 | 31 20 20 20 20 20 20 20 | mtype,d|1       |
|00000d50| 20 20 3b 52 65 71 75 65 | 73 74 65 64 20 6d 65 6d |  ;Reque|sted mem|
|00000d60| 6f 72 79 00 20 20 80 38 | 20 24 63 30 30 32 20 20 |ory.  .8| $c002  |
|00000d70| 20 20 20 20 20 20 20 20 | 20 3b 41 6e 64 20 61 6c |        | ;And al|
|00000d80| 6c 6f 63 61 74 65 20 65 | 6e 6f 75 67 68 20 52 41 |locate e|nough RA|
|00000d90| 4d 00 20 20 80 7e 2e 6c | 20 64 30 2c 74 6d 70 6c |M.  .~.l| d0,tmpl|
|00000da0| 6f 63 20 20 20 20 20 20 | 20 20 3b 53 61 76 65 20 |oc      |  ;Save |
|00000db0| 74 68 65 20 61 64 64 72 | 65 73 73 20 69 6e 20 74 |the addr|ess in t|
|00000dc0| 68 65 20 74 61 62 6c 65 | 00 20 20 80 7e 2e 6c 20 |he table|.  .~.l |
|00000dd0| 6c 6f 63 6b 2c 64 31 20 | 20 20 20 20 20 20 20 20 |lock,d1 |        |
|00000de0| 20 3b 47 65 74 20 6f 75 | 72 20 6c 6f 63 6b 00 20 | ;Get ou|r lock. |
|00000df0| 20 80 79 20 2d 24 31 37 | 61 28 61 36 29 20 20 20 | .y -$17|a(a6)   |
|00000e00| 20 20 20 20 20 20 20 20 | 3b 61 6e 64 20 6f 70 65 |        |;and ope|
|00000e10| 6e 20 74 68 65 20 66 69 | 6c 65 20 66 6f 72 20 72 |n the fi|le for r|
|00000e20| 65 61 64 69 6e 67 20 66 | 72 6f 6d 20 6f 75 72 20 |eading f|rom our |
|00000e30| 6c 6f 63 6b 00 20 20 80 | 7e 2e 6c 20 64 30 2c 68 |lock.  .|~.l d0,h|
|00000e40| 61 6e 64 20 20 20 20 20 | 20 20 20 20 20 3b 54 68 |and     |     ;Th|
|00000e50| 69 73 20 69 73 20 6f 75 | 72 20 66 69 6c 65 20 68 |is is ou|r file h|
|00000e60| 61 6e 64 6c 65 00 20 20 | 80 7e 2e 6c 20 74 6d 70 |andle.  |.~.l tmp|
|00000e70| 6c 6f 63 2c 64 32 20 20 | 20 20 20 20 20 20 3b 54 |loc,d2  |      ;T|
|00000e80| 68 65 20 66 69 6c 65 20 | 62 75 66 66 65 72 2e 2e |he file |buffer..|
|00000e90| 2e 00 20 20 80 7e 2e 6c | 20 64 30 2c 64 31 20 20 |..  .~.l| d0,d1  |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 3b 74 68 65 20 68 |        |  ;the h|
|00000eb0| 61 6e 64 6c 65 2e 2e 2e | 00 20 20 80 7e 2e 6c 20 |andle...|.  .~.l |
|00000ec0| 74 6d 70 73 69 7a 65 2c | 64 33 20 20 20 20 20 20 |tmpsize,|d3      |
|00000ed0| 20 3b 74 68 65 20 6c 65 | 6e 67 74 68 2e 2e 2e 00 | ;the le|ngth....|
|00000ee0| 20 20 80 79 20 2d 24 32 | 61 28 61 36 29 20 20 20 |  .y -$2|a(a6)   |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 3b 4e 6f 77 20 72 65 |        | ;Now re|
|00000f00| 61 64 20 74 68 65 20 77 | 68 6f 6c 65 20 66 69 6c |ad the w|hole fil|
|00000f10| 65 20 69 6e 00 20 20 80 | 7e 2e 6c 20 64 30 2c 72 |e in.  .|~.l d0,r|
|00000f20| 65 61 64 65 72 72 20 20 | 20 20 20 20 20 3b 53 61 |eaderr  |     ;Sa|
|00000f30| 76 65 20 74 68 65 20 65 | 72 72 6f 72 20 63 6f 64 |ve the e|rror cod|
|00000f40| 65 00 6e 6f 74 74 72 6b | 3a 00 20 20 80 7e 2e 6c |e.nottrk|:.  .~.l|
|00000f50| 20 68 61 6e 64 2c 64 31 | 20 20 20 20 20 20 20 20 | hand,d1|        |
|00000f60| 20 20 3b 47 65 74 20 6f | 75 72 20 66 69 6c 65 20 |  ;Get o|ur file |
|00000f70| 68 61 6e 64 6c 65 20 62 | 61 63 6b 00 20 20 80 79 |handle b|ack.  .y|
|00000f80| 20 2d 24 32 34 28 61 36 | 29 20 20 20 20 20 20 20 | -$24(a6|)       |
|00000f90| 20 20 20 20 20 3b 43 6c | 6f 73 65 20 74 68 65 20 |     ;Cl|ose the |
|00000fa0| 66 69 6c 65 00 20 20 80 | 7e 2e 6c 20 72 65 61 64 |file.  .|~.l read|
|00000fb0| 65 72 72 2c 64 30 20 20 | 20 20 20 20 20 3b 47 65 |err,d0  |     ;Ge|
|00000fc0| 74 20 74 68 65 20 65 72 | 72 6f 72 20 63 6f 64 65 |t the er|ror code|
|00000fd0| 00 20 20 80 7e 2e 6c 20 | 23 2d 31 2c 72 65 61 64 |.  .~.l |#-1,read|
|00000fe0| 65 72 72 20 20 20 20 20 | 20 3b 53 65 74 20 69 74 |err     | ;Set it|
|00000ff0| 20 74 6f 20 42 6c 69 74 | 7a 20 54 72 75 65 00 20 | to Blit|z True. |
|00001000| 20 80 5c 2e 6c 20 23 2d | 31 2c 64 30 20 20 20 20 | .\.l #-|1,d0    |
|00001010| 20 20 20 20 20 20 20 20 | 3b 57 61 73 20 69 74 20 |        |;Was it |
|00001020| 61 6e 20 65 72 72 6f 72 | 3f 00 20 20 80 50 20 73 |an error|?.  .P s|
|00001030| 65 74 76 61 72 20 20 20 | 20 20 20 20 20 20 20 20 |etvar   |        |
|00001040| 20 20 20 3b 4e 6f 2c 20 | 64 6f 6e 27 74 20 61 74 |   ;No, |don't at|
|00001050| 74 65 6d 70 74 20 74 6f | 20 66 72 65 65 20 74 68 |tempt to| free th|
|00001060| 65 20 6c 6f 63 6b 00 20 | 20 80 7e 2e 6c 20 6c 6f |e lock. | .~.l lo|
|00001070| 63 6b 2c 64 31 20 20 20 | 20 20 20 20 20 20 20 3b |ck,d1   |       ;|
|00001080| 47 65 74 20 6f 75 72 20 | 6c 6f 63 6b 00 20 20 80 |Get our |lock.  .|
|00001090| 79 20 2d 24 35 61 28 61 | 36 29 20 20 20 20 20 20 |y -$5a(a|6)      |
|000010a0| 20 20 20 20 20 20 3b 61 | 6e 64 20 55 6e 4c 6f 63 |      ;a|nd UnLoc|
|000010b0| 6b 20 69 74 00 20 20 80 | 7e 2e 6c 20 23 30 2c 72 |k it.  .|~.l #0,r|
|000010c0| 65 61 64 65 72 72 20 20 | 20 20 20 20 20 3b 53 65 |eaderr  |     ;Se|
|000010d0| 74 20 74 68 65 20 65 72 | 72 6f 72 20 63 6f 64 65 |t the er|ror code|
|000010e0| 20 74 6f 20 42 6c 69 74 | 7a 20 46 61 6c 73 65 00 | to Blit|z False.|
|000010f0| 20 20 80 7e 2e 6c 20 74 | 6d 70 6c 6f 63 2c 61 31 |  .~.l t|mploc,a1|
|00001100| 20 20 20 20 20 20 20 20 | 3b 47 65 74 20 74 68 65 |        |;Get the|
|00001110| 20 62 75 66 66 65 72 20 | 6c 6f 63 61 74 69 6f 6e | buffer |location|
|00001120| 00 20 20 80 7e 2e 6c 20 | 74 6d 70 73 69 7a 65 2c |.  .~.l |tmpsize,|
|00001130| 64 30 00 20 20 80 38 20 | 24 63 30 30 33 20 20 20 |d0.  .8 |$c003   |
|00001140| 20 20 20 20 20 20 20 20 | 3b 46 72 65 65 20 69 74 |        |;Free it|
|00001150| 00 66 72 65 65 66 69 62 | 3a 00 20 20 80 7e 2e 6c |.freefib|:.  .~.l|
|00001160| 20 66 69 62 2c 61 31 20 | 20 20 20 20 20 20 20 20 | fib,a1 |        |
|00001170| 20 20 3b 47 65 74 20 74 | 68 65 20 61 64 64 72 65 |  ;Get t|he addre|
|00001180| 73 73 20 6f 66 20 6f 75 | 72 20 46 69 6c 65 49 6e |ss of ou|r FileIn|
|00001190| 66 6f 42 6c 6f 63 6b 00 | 20 20 80 7e 2e 6c 20 23 |foBlock.|  .~.l #|
|000011a0| 24 65 30 2c 64 30 20 20 | 20 20 20 20 20 20 20 20 |$e0,d0  |        |
|000011b0| 3b 54 68 65 20 73 69 7a | 65 20 6f 66 20 69 74 00 |;The siz|e of it.|
|000011c0| 20 20 80 38 20 24 63 30 | 30 33 20 20 20 20 20 20 |  .8 $c0|03      |
|000011d0| 20 20 20 20 20 3b 61 6e | 64 20 66 72 65 65 20 69 |     ;an|d free i|
|000011e0| 74 00 6e 6f 66 69 6c 65 | 3a 00 20 20 80 82 2e 6c |t.nofile|:.  ...l|
|000011f0| 20 28 61 37 29 2b 2c 61 | 34 2d 61 36 20 20 20 20 | (a7)+,a|4-a6    |
|00001200| 20 3b 52 65 73 74 6f 72 | 65 20 74 68 65 20 72 65 | ;Restor|e the re|
|00001210| 67 69 73 74 65 72 73 00 | 20 20 80 7e 2e 6c 20 72 |gisters.|  .~.l r|
|00001220| 65 61 64 65 72 72 2c 64 | 30 20 20 20 20 20 20 20 |eaderr,d|0       |
|00001230| 3b 53 65 74 20 61 20 72 | 65 74 75 72 6e 20 63 6f |;Set a r|eturn co|
|00001240| 64 65 20 6f 72 20 61 64 | 64 72 65 73 73 00 20 20 |de or ad|dress.  |
|00001250| 80 94 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001260| 20 20 20 20 20 20 20 3b | 44 6f 6e 65 00 00 73 65 |       ;|Done..se|
|00001270| 74 76 61 72 3a 00 20 20 | 80 7e 2e 6c 20 23 38 2c |tvar:.  |.~.l #8,|
|00001280| 64 30 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 38 |d0      |      ;8|
|00001290| 20 62 79 74 65 73 00 20 | 20 80 7e 2e 6c 20 23 30 | bytes. | .~.l #0|
|000012a0| 2c 64 30 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |,d0     |       ;|
|000012b0| 61 6e 79 77 68 65 72 65 | 00 20 20 80 38 20 24 63 |anywhere|.  .8 $c|
|000012c0| 30 30 32 20 20 20 20 20 | 20 20 20 20 20 20 3b 41 |002     |      ;A|
|000012d0| 6c 6c 6f 63 61 74 65 20 | 74 68 61 74 20 6d 65 6d |llocate |that mem|
|000012e0| 6f 72 79 00 20 20 80 7e | 2e 6c 20 64 30 2c 72 65 |ory.  .~|.l d0,re|
|000012f0| 61 64 65 72 72 20 20 20 | 20 20 20 20 3b 53 61 76 |aderr   |    ;Sav|
|00001300| 65 20 74 68 65 20 6c 6f | 63 61 74 69 6f 6e 00 20 |e the lo|cation. |
|00001310| 20 80 7e 2e 6c 20 64 30 | 2c 61 33 00 20 20 80 7e | .~.l d0|,a3.  .~|
|00001320| 2e 6c 20 74 6d 70 6c 6f | 63 2c 28 61 33 29 00 20 |.l tmplo|c,(a3). |
|00001330| 20 80 7e 2e 6c 20 74 6d | 70 73 69 7a 65 2c 34 28 | .~.l tm|psize,4(|
|00001340| 61 33 29 00 20 20 80 58 | 20 66 72 65 65 66 69 62 |a3).  .X| freefib|
|00001350| 00 00 66 69 6c 65 65 72 | 72 3a 00 20 20 80 7e 2e |..fileer|r:.  .~.|
|00001360| 6c 20 23 6d 65 73 73 2c | 64 30 00 20 20 80 ae 23 |l #mess,|d0.  ..#|
|00001370| 30 00 74 72 61 63 6b 65 | 72 65 72 72 3a 00 20 20 |0.tracke|rerr:.  |
|00001380| 80 7e 2e 6c 20 23 6d 65 | 73 73 32 2c 64 30 00 20 |.~.l #me|ss2,d0. |
|00001390| 20 80 ae 23 30 00 00 6d | 65 73 73 3a 80 25 2e 62 | ..#0..m|ess:.%.b|
|000013a0| 20 22 43 61 6e 27 74 20 | 4f 70 65 6e 20 46 69 6c | "Can't |Open Fil|
|000013b0| 65 21 22 2c 30 00 6d 65 | 73 73 32 3a 80 25 2e 62 |e!",0.me|ss2:.%.b|
|000013c0| 20 22 53 75 70 70 6f 72 | 74 20 4c 69 62 72 61 72 | "Suppor|t Librar|
|000013d0| 79 20 45 72 72 6f 72 22 | 2c 30 00 20 20 80 27 00 |y Error"|,0.  .'.|
|000013e0| 00 3b 53 6f 6d 65 20 69 | 6e 70 6f 72 74 61 6e 74 |.;Some i|nportant|
|000013f0| 20 64 61 74 61 00 68 61 | 6e 64 3a 80 25 2e 6c 20 | data.ha|nd:.%.l |
|00001400| 30 00 6c 6f 63 6b 3a 80 | 25 2e 6c 20 30 00 66 6e |0.lock:.|%.l 0.fn|
|00001410| 61 6d 65 3a 20 80 25 2e | 6c 20 30 00 66 69 62 3a |ame: .%.|l 0.fib:|
|00001420| 20 80 25 2e 6c 20 30 00 | 72 65 61 64 65 72 72 3a | .%.l 0.|readerr:|
|00001430| 20 80 25 2e 6c 20 30 00 | 74 6d 70 73 69 7a 65 3a | .%.l 0.|tmpsize:|
|00001440| 20 80 25 2e 6c 20 30 00 | 74 6d 70 6c 6f 63 3a 20 | .%.l 0.|tmploc: |
|00001450| 80 25 2e 6c 20 30 00 6d | 74 79 70 65 3a 20 80 25 |.%.l 0.m|type: .%|
|00001460| 2e 6c 20 30 00 00 2e 5f | 62 66 72 65 65 3a 00 20 |.l 0..._|bfree:. |
|00001470| 20 80 5c 20 23 30 2c 64 | 30 00 20 20 80 48 20 65 | .\ #0,d|0.  .H e|
|00001480| 6e 64 69 74 00 20 20 80 | 7e 2e 6c 20 64 30 2c 61 |ndit.  .|~.l d0,a|
|00001490| 33 00 20 20 80 7e 2e 6c | 20 30 28 61 33 29 2c 61 |3.  .~.l| 0(a3),a|
|000014a0| 31 20 20 20 20 20 20 20 | 20 20 3b 47 65 74 20 66 |1       |  ;Get f|
|000014b0| 69 6c 65 20 61 64 64 72 | 65 73 73 00 20 20 80 7e |ile addr|ess.  .~|
|000014c0| 2e 6c 20 34 28 61 33 29 | 2c 64 30 20 20 20 20 20 |.l 4(a3)|,d0     |
|000014d0| 20 20 20 20 3b 47 65 74 | 20 66 69 6c 65 20 73 69 |    ;Get| file si|
|000014e0| 7a 65 00 20 20 80 38 20 | 24 63 30 30 33 20 20 20 |ze.  .8 |$c003   |
|000014f0| 20 20 20 20 20 20 20 20 | 3b 46 72 65 65 20 69 74 |        |;Free it|
|00001500| 00 20 20 80 7e 2e 6c 20 | 61 33 2c 61 31 00 20 20 |.  .~.l |a3,a1.  |
|00001510| 80 7e 2e 6c 20 23 38 2c | 64 30 20 20 20 20 20 20 |.~.l #8,|d0      |
|00001520| 20 20 20 20 20 20 3b 53 | 69 7a 65 00 20 20 80 38 |      ;S|ize.  .8|
|00001530| 20 24 63 30 30 33 20 20 | 20 20 20 20 20 20 20 20 | $c003  |        |
|00001540| 20 3b 46 72 65 65 20 69 | 74 00 65 6e 64 69 74 3a | ;Free i|t.endit:|
|00001550| 00 20 20 80 94 20 20 20 | 20 20 20 20 20 20 20 20 |.  ..   |        |
|00001560| 20 20 20 20 20 20 20 20 | 20 20 3b 44 6f 6e 65 21 |        |  ;Done!|
|00001570| 00 00 2e 5f 62 73 61 76 | 65 00 20 20 80 82 2e 6c |..._bsav|e.  ...l|
|00001580| 20 61 34 2d 61 36 2c 2d | 28 61 37 29 00 20 20 80 | a4-a6,-|(a7).  .|
|00001590| 7e 2e 6c 20 64 30 2c 66 | 6e 61 6d 65 20 20 20 20 |~.l d0,f|name    |
|000015a0| 20 20 20 20 20 3b 53 61 | 76 65 20 74 68 65 20 6e |     ;Sa|ve the n|
|000015b0| 61 6d 65 20 6f 66 20 74 | 68 65 20 66 69 6c 65 20 |ame of t|he file |
|000015c0| 77 65 20 77 61 6e 74 20 | 74 6f 20 73 61 76 65 00 |we want |to save.|
|000015d0| 20 20 80 7e 2e 6c 20 64 | 31 2c 74 6d 70 6c 6f 63 |  .~.l d|1,tmploc|
|000015e0| 20 20 20 20 20 20 20 20 | 3b 49 74 73 20 61 64 64 |        |;Its add|
|000015f0| 72 65 73 73 00 20 20 80 | 7e 2e 6c 20 64 32 2c 74 |ress.  .|~.l d2,t|
|00001600| 6d 70 73 69 7a 65 20 20 | 20 20 20 20 20 3b 61 6e |mpsize  |     ;an|
|00001610| 64 20 73 69 7a 65 00 20 | 20 80 7e 2e 6c 20 66 6e |d size. | .~.l fn|
|00001620| 61 6d 65 2c 64 31 00 20 | 20 80 7e 2e 6c 20 23 31 |ame,d1. | .~.l #1|
|00001630| 30 30 36 2c 64 32 20 20 | 20 20 20 20 20 20 20 3b |006,d2  |       ;|
|00001640| 41 63 63 65 73 73 20 6d | 6f 64 65 00 20 20 80 79 |Access m|ode.  .y|
|00001650| 20 2d 24 31 65 28 61 36 | 29 20 20 20 20 20 20 20 | -$1e(a6|)       |
|00001660| 20 20 20 20 20 3b 61 6e | 64 20 6f 70 65 6e 20 74 |     ;an|d open t|
|00001670| 68 65 20 66 69 6c 65 20 | 66 6f 72 20 77 72 69 74 |he file |for writ|
|00001680| 69 6e 67 20 74 6f 20 6f | 75 72 20 6c 6f 63 6b 00 |ing to o|ur lock.|
|00001690| 20 20 80 7e 2e 6c 20 64 | 30 2c 68 61 6e 64 20 20 |  .~.l d|0,hand  |
|000016a0| 20 20 20 20 20 20 20 20 | 3b 54 68 69 73 20 69 73 |        |;This is|
|000016b0| 20 6f 75 72 20 66 69 6c | 65 20 68 61 6e 64 6c 65 | our fil|e handle|
|000016c0| 00 20 20 80 7e 2e 6c 20 | 74 6d 70 6c 6f 63 2c 64 |.  .~.l |tmploc,d|
|000016d0| 32 20 20 20 20 20 20 20 | 20 3b 54 68 65 20 66 69 |2       | ;The fi|
|000016e0| 6c 65 20 62 75 66 66 65 | 72 2e 2e 2e 00 20 20 80 |le buffe|r....  .|
|000016f0| 7e 2e 6c 20 64 30 2c 64 | 31 20 20 20 20 20 20 20 |~.l d0,d|1       |
|00001700| 20 20 20 20 20 3b 74 68 | 65 20 68 61 6e 64 6c 65 |     ;th|e handle|
|00001710| 2e 2e 2e 00 20 20 80 7e | 2e 6c 20 74 6d 70 73 69 |....  .~|.l tmpsi|
|00001720| 7a 65 2c 64 33 20 20 20 | 20 20 20 20 3b 74 68 65 |ze,d3   |    ;the|
|00001730| 20 6c 65 6e 67 74 68 2e | 2e 2e 00 20 20 80 79 20 | length.|...  .y |
|00001740| 2d 24 33 30 28 61 36 29 | 20 20 20 20 20 20 20 20 |-$30(a6)|        |
|00001750| 20 20 20 20 3b 4e 6f 77 | 20 77 72 69 74 65 20 74 |    ;Now| write t|
|00001760| 68 65 20 66 69 6c 65 00 | 20 20 80 7e 2e 6c 20 68 |he file.|  .~.l h|
|00001770| 61 6e 64 2c 64 31 20 20 | 20 20 20 20 20 20 20 20 |and,d1  |        |
|00001780| 3b 47 65 74 20 6f 75 72 | 20 66 69 6c 65 20 68 61 |;Get our| file ha|
|00001790| 6e 64 6c 65 20 62 61 63 | 6b 00 20 20 80 79 20 2d |ndle bac|k.  .y -|
|000017a0| 24 32 34 28 61 36 29 20 | 20 20 20 20 20 20 20 20 |$24(a6) |        |
|000017b0| 20 20 20 3b 43 6c 6f 73 | 65 20 74 68 65 20 66 69 |   ;Clos|e the fi|
|000017c0| 6c 65 00 20 20 80 82 2e | 6c 20 28 61 37 29 2b 2c |le.  ...|l (a7)+,|
|000017d0| 61 34 2d 61 36 20 20 20 | 20 20 3b 52 65 73 74 6f |a4-a6   |  ;Resto|
|000017e0| 72 65 20 74 68 65 20 72 | 65 67 69 73 74 65 72 73 |re the r|egisters|
|000017f0| 00 20 20 80 7e 2e 6c 20 | 72 65 61 64 65 72 72 2c |.  .~.l |readerr,|
|00001800| 64 30 20 20 20 20 20 20 | 20 3b 53 65 74 20 61 20 |d0      | ;Set a |
|00001810| 72 65 74 75 72 6e 20 63 | 6f 64 65 20 6f 72 20 61 |return c|ode or a|
|00001820| 64 64 72 65 73 73 00 20 | 20 80 94 20 20 20 20 20 |ddress. | ..     |
|00001830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001840| 3b 44 6f 6e 65 00 00    |                         |;Done.. |        |
+--------+-------------------------+-------------------------+--------+--------+