/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / tms / sourcecode / tmsv2_0.bb2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 54 61 67 4d | 79 53 69 67 2e 2e 2e 2e |;.; TagM|ySig....|
|00000010| 2e 20 54 4d 53 20 56 32 | 2e 30 30 00 3b 20 28 43 |. TMS V2|.00.; (C|
|00000020| 29 20 4c 6f 6b 69 20 2d | 20 73 5e 44 20 31 39 39 |) Loki -| s^D 199|
|00000030| 39 00 3b 20 68 74 74 70 | 3a 2f 2f 77 77 77 2e 73 |9.; http|://www.s|
|00000040| 61 74 61 6e 69 63 64 72 | 65 61 6d 73 2e 66 72 65 |atanicdr|eams.fre|
|00000050| 65 73 65 72 76 65 2e 63 | 6f 2e 75 6b 00 3b 20 6c |eserve.c|o.uk.; l|
|00000060| 6f 6b 69 40 73 64 73 6f | 66 74 2e 66 72 65 65 73 |oki@sdso|ft.frees|
|00000070| 65 72 76 65 2e 63 6f 2e | 75 6b 00 3b 00 3b 20 54 |erve.co.|uk.;.; T|
|00000080| 48 49 53 20 43 4f 44 45 | 20 49 53 20 43 4f 50 59 |HIS CODE| IS COPY|
|00000090| 52 49 47 48 54 21 20 59 | 4f 55 20 4d 41 59 20 4e |RIGHT! Y|OU MAY N|
|000000a0| 4f 54 20 55 53 45 20 41 | 4e 59 20 50 41 52 54 20 |OT USE A|NY PART |
|000000b0| 4f 46 20 49 54 20 57 49 | 54 48 4f 55 54 00 3b 20 |OF IT WI|THOUT.; |
|000000c0| 45 58 50 52 45 53 53 45 | 44 20 50 45 52 4d 49 53 |EXPRESSE|D PERMIS|
|000000d0| 53 49 4f 4e 20 46 52 4f | 4d 20 54 48 45 20 41 55 |SION FRO|M THE AU|
|000000e0| 54 4f 55 52 21 21 21 20 | 28 4a 75 73 74 20 6d 61 |TOUR!!! |(Just ma|
|000000f0| 69 6c 20 6d 65 20 61 6e | 64 20 61 73 6b 00 3b 20 |il me an|d ask.; |
|00000100| 49 60 6d 20 6e 6f 74 20 | 6c 69 6b 65 6c 79 20 74 |I`m not |likely t|
|00000110| 6f 20 73 61 79 20 6e 6f | 29 20 3a 29 00 3b 20 48 |o say no|) :).; H|
|00000120| 6f 77 65 76 65 72 2c 20 | 69 66 20 79 6f 75 20 61 |owever, |if you a|
|00000130| 72 65 20 69 6e 20 70 6f | 73 73 65 73 73 69 6f 6e |re in po|ssession|
|00000140| 20 6f 66 20 61 20 73 68 | 6f 74 67 75 6e 20 28 6f | of a sh|otgun (o|
|00000150| 72 20 70 72 65 74 65 6e | 64 20 79 6f 75 20 61 72 |r preten|d you ar|
|00000160| 65 29 00 3b 20 54 68 65 | 6e 20 79 6f 75 20 61 72 |e).; The|n you ar|
|00000170| 65 20 66 72 65 65 20 74 | 6f 20 75 73 65 20 69 74 |e free t|o use it|
|00000180| 20 68 6f 77 65 76 65 72 | 20 79 6f 75 20 6c 69 6b | however| you lik|
|00000190| 65 20 53 49 52 21 20 3a | 29 00 3b 00 3b 20 48 61 |e SIR! :|).;.; Ha|
|000001a0| 76 65 20 66 75 6e 21 00 | 3b 00 00 80 04 20 53 69 |ve fun!.|;.... Si|
|000001b0| 67 24 28 36 30 29 00 00 | 54 68 65 50 61 72 73 3d |g$(60)..|ThePars=|
|000001c0| b5 01 00 00 80 0b 20 54 | 68 65 50 61 72 73 3d 30 |...... T|hePars=0|
|000001d0| 20 20 20 20 20 3b 20 49 | 66 20 74 68 65 72 65 20 |     ; I|f there |
|000001e0| 77 65 72 65 20 6e 6f 20 | 61 72 67 75 6d 65 6e 74 |were no |argument|
|000001f0| 73 20 70 61 73 73 65 64 | 2c 20 67 6f 74 6f 20 68 |s passed|, goto h|
|00000200| 65 6c 70 00 20 20 80 78 | 20 48 65 6c 70 00 80 c0 |elp.  .x| Help...|
|00000210| 00 00 80 0b 20 b5 02 28 | 31 29 3d 22 3f 22 20 20 |.... ..(|1)="?"  |
|00000220| 20 3b 20 49 66 20 74 68 | 65 20 75 73 65 72 20 70 | ; If th|e user p|
|00000230| 61 73 73 65 73 20 60 3f | 27 20 61 73 20 66 69 72 |asses `?|' as fir|
|00000240| 73 74 20 61 72 67 2c 20 | 67 6f 74 6f 20 48 65 6c |st arg, |goto Hel|
|00000250| 70 00 20 20 80 78 20 48 | 65 6c 70 00 80 c0 00 00 |p.  .x H|elp.....|
|00000260| 80 0b 20 54 68 65 50 61 | 72 73 3c 3e 35 00 20 20 |.. ThePa|rs<>5.  |
|00000270| 80 0b 20 54 68 65 50 61 | 72 73 3c 3e 34 00 20 20 |.. ThePa|rs<>4.  |
|00000280| 20 20 80 0b 20 54 68 65 | 50 61 72 73 3c 3e 33 00 |  .. The|Pars<>3.|
|00000290| 20 20 20 20 20 20 dd 82 | 20 22 52 65 71 75 69 72 |      ..| "Requir|
|000002a0| 65 64 20 61 72 67 75 6d | 65 6e 74 73 20 6d 69 73 |ed argum|ents mis|
|000002b0| 73 69 6e 67 21 21 22 20 | 20 20 3b 20 69 66 20 6e |sing!!" |  ; if n|
|000002c0| 6f 74 20 70 61 73 73 65 | 64 20 33 20 6f 72 20 34 |ot passe|d 3 or 4|
|000002d0| 20 6f 72 20 35 20 61 72 | 67 73 00 20 20 20 20 20 | or 5 ar|gs.     |
|000002e0| 20 80 02 00 20 20 20 20 | 80 c0 00 20 20 80 c0 00 | ...    |...  ...|
|000002f0| 80 c0 00 00 80 0b 20 be | 11 28 30 2c b5 02 28 31 |...... .|.(0,..(1|
|00000300| 29 29 00 20 20 be 08 20 | 30 20 20 20 20 20 20 20 |)).  .. |0       |
|00000310| 20 20 20 20 20 20 20 20 | 20 3b 20 55 73 65 20 66 |        | ; Use f|
|00000320| 69 6c 65 20 66 6f 72 20 | 69 6e 70 75 74 00 20 20 |ile for |input.  |
|00000330| b4 8b 20 a5 88 20 20 20 | 20 20 20 20 20 20 20 20 |.. ..   |        |
|00000340| 3b 20 4d 61 6b 65 20 61 | 73 20 72 61 6e 64 6f 6d |; Make a|s random|
|00000350| 20 61 73 20 77 65 20 63 | 61 6e 00 20 20 46 69 6c | as we c|an.  Fil|
|00000360| 65 4c 65 6e 24 3d dd 83 | 28 be 0a 28 30 29 29 2b |eLen$=..|(..(0))+|
|00000370| 22 2e 30 22 00 20 20 54 | 61 67 50 6f 73 2e 6c 3d |".0".  T|agPos.l=|
|00000380| bc 02 28 bc 07 28 31 2e | 30 29 2a bc 01 28 46 69 |..(..(1.|0)*..(Fi|
|00000390| 6c 65 4c 65 6e 24 29 29 | 00 00 20 20 80 0c 20 42 |leLen$))|..  .. B|
|000003a0| 79 74 65 24 3c 3e dc 86 | 28 31 30 29 00 20 20 20 |yte$<>..|(10).   |
|000003b0| 20 be 0b 20 30 2c 54 61 | 67 50 6f 73 2e 6c 20 20 | .. 0,Ta|gPos.l  |
|000003c0| 20 20 20 20 20 20 3b 20 | 53 65 65 6b 20 74 6f 20 |      ; |Seek to |
|000003d0| 52 61 6e 64 6f 6d 20 70 | 6f 73 69 74 69 6f 6e 20 |Random p|osition |
|000003e0| 69 6e 20 74 68 65 20 66 | 69 6c 65 00 20 20 20 20 |in the f|ile.    |
|000003f0| 42 79 74 65 24 3d dd 02 | 28 31 29 20 20 20 20 20 |Byte$=..|(1)     |
|00000400| 20 20 20 20 20 3b 20 47 | 65 74 20 31 20 62 79 74 |     ; G|et 1 byt|
|00000410| 65 20 6f 66 20 69 6e 66 | 6f 20 66 72 6f 6d 20 66 |e of inf|o from f|
|00000420| 69 6c 65 2e 00 20 20 20 | 20 54 61 67 50 6f 73 2e |ile..   | TagPos.|
|00000430| 6c 2d 31 00 20 20 80 c1 | 00 00 20 20 54 61 67 50 |l-1.  ..|..  TagP|
|00000440| 6f 73 2e 6c 2b 31 00 20 | 20 42 79 74 65 24 3d 22 |os.l+1. | Byte$="|
|00000450| 22 00 00 20 20 80 0c 20 | 42 79 74 65 24 3c 3e dc |"..  .. |Byte$<>.|
|00000460| 86 28 31 30 29 20 20 20 | 20 20 20 3b 20 53 65 61 |.(10)   |   ; Sea|
|00000470| 72 63 68 20 75 6e 74 69 | 6c 20 77 65 20 68 61 76 |rch unti|l we hav|
|00000480| 65 20 61 20 43 52 20 28 | 63 61 72 72 69 61 67 65 |e a CR (|carriage|
|00000490| 20 72 65 74 75 72 6e 29 | 00 20 20 20 20 80 0b 20 | return)|.    .. |
|000004a0| be 0d 28 30 29 00 20 20 | 20 20 20 20 be 02 20 30 |..(0).  |    .. 0|
|000004b0| 00 20 20 20 20 20 20 80 | 02 00 20 20 20 20 80 c0 |.      .|..    ..|
|000004c0| 00 20 20 20 20 54 61 67 | 50 6f 73 2e 6c 2b 31 20 |.    Tag|Pos.l+1 |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004e0| 3b 20 4d 6f 76 65 20 66 | 6f 72 77 61 72 64 20 69 |; Move f|orward i|
|000004f0| 6e 20 74 68 65 20 66 69 | 6c 65 00 20 20 20 20 be |n the fi|le.    .|
|00000500| 0b 20 30 2c 54 61 67 50 | 6f 73 2e 6c 20 20 20 20 |. 0,TagP|os.l    |
|00000510| 20 20 20 20 3b 20 53 65 | 65 6b 20 74 6f 20 61 62 |    ; Se|ek to ab|
|00000520| 6f 76 65 20 70 6f 73 00 | 20 20 20 20 42 79 74 65 |ove pos.|    Byte|
|00000530| 24 3d dd 02 28 31 29 20 | 20 20 20 20 20 20 20 20 |$=..(1) |        |
|00000540| 20 3b 20 47 72 61 62 20 | 61 20 62 79 74 65 00 20 | ; Grab |a byte. |
|00000550| 20 20 20 54 61 67 4c 69 | 6e 65 24 2b 42 79 74 65 |   TagLi|ne$+Byte|
|00000560| 24 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 61 64 |$       |    ; ad|
|00000570| 64 20 62 79 74 65 20 74 | 6f 20 65 6e 64 20 6f 66 |d byte t|o end of|
|00000580| 20 73 74 72 69 6e 67 20 | 74 6f 20 6d 61 6b 65 75 | string |to makeu|
|00000590| 70 20 74 61 67 6c 69 6e | 65 00 20 20 80 c1 00 00 |p taglin|e.  ....|
|000005a0| 20 20 54 61 67 4c 69 6e | 65 24 3d dc 90 28 54 61 |  TagLin|e$=..(Ta|
|000005b0| 67 4c 69 6e 65 24 2c 31 | 29 20 20 3b 20 52 69 70 |gLine$,1|)  ; Rip|
|000005c0| 20 74 68 65 20 43 52 20 | 6f 66 66 20 73 74 72 69 | the CR |off stri|
|000005d0| 6e 67 00 00 80 22 00 20 | 20 dd 82 20 22 43 61 6e |ng...". | .. "Can|
|000005e0| 74 20 6c 6f 61 64 20 79 | 6f 75 72 20 74 61 67 2d |t load y|our tag-|
|000005f0| 6c 69 6e 65 73 20 66 69 | 6c 65 21 22 20 20 3b 20 |lines fi|le!"  ; |
|00000600| 45 72 72 6f 72 20 61 6e | 64 20 65 6e 64 00 20 20 |Error an|d end.  |
|00000610| be 02 20 30 00 20 20 80 | 02 00 80 c0 00 be 02 20 |.. 0.  .|....... |
|00000620| 30 00 00 80 0b 20 be 11 | 28 30 2c b5 02 28 32 29 |0.... ..|(0,..(2)|
|00000630| 29 20 20 20 20 20 20 3b | 20 61 74 74 65 6d 70 74 |)      ;| attempt|
|00000640| 20 74 6f 20 72 65 61 64 | 20 74 68 65 20 73 69 67 | to read| the sig|
|00000650| 21 00 20 20 be 08 20 30 | 00 20 20 80 0c 20 80 89 |!.  .. 0|.  .. ..|
|00000660| 20 be 0d 28 30 29 00 20 | 20 20 20 53 69 67 24 28 | ..(0). |   Sig$(|
|00000670| 46 53 69 7a 65 29 3d dd | 01 28 35 30 30 29 20 20 |FSize)=.|.(500)  |
|00000680| 20 3b 20 70 61 72 73 65 | 20 73 69 67 20 69 6e 74 | ; parse| sig int|
|00000690| 6f 20 74 68 65 20 61 72 | 72 61 79 00 20 20 20 20 |o the ar|ray.    |
|000006a0| 46 53 69 7a 65 2b 31 00 | 20 20 80 c1 00 80 c0 00 |FSize+1.|  ......|
|000006b0| be 02 20 30 00 00 80 0b | 20 be 12 28 30 2c b5 02 |.. 0....| ..(0,..|
|000006c0| 28 32 29 29 00 20 20 be | 07 20 30 00 20 20 80 16 |(2)).  .|. 0.  ..|
|000006d0| 20 54 4d 50 3d 30 20 80 | 18 20 28 46 53 69 7a 65 | TMP=0 .|. (FSize|
|000006e0| 2d 31 29 00 20 20 20 20 | 80 0b 20 54 4d 50 3d bc |-1).    |.. TMP=.|
|000006f0| 01 28 b5 02 28 33 29 29 | 00 20 20 20 20 20 20 80 |.(..(3))|.      .|
|00000700| 0b 20 54 68 65 50 61 72 | 73 3d 34 20 80 8a 20 54 |. ThePar|s=4 .. T|
|00000710| 68 65 50 61 72 73 3d 35 | 00 20 20 20 20 20 20 20 |hePars=5|.       |
|00000720| 20 80 0b 20 54 68 65 50 | 61 72 73 3d 35 00 20 20 | .. TheP|ars=5.  |
|00000730| 20 20 20 20 20 20 20 20 | 54 61 67 4c 69 6e 65 24 |        |TagLine$|
|00000740| 2b b5 02 28 35 29 00 20 | 20 20 20 20 20 20 20 80 |+..(5). |       .|
|00000750| c0 00 20 20 20 20 20 20 | 20 20 dd 82 20 b5 02 28 |..      |  .. ..(|
|00000760| 34 29 2b 54 61 67 4c 69 | 6e 65 24 00 20 20 20 20 |4)+TagLi|ne$.    |
|00000770| 20 20 80 22 00 20 20 20 | 20 20 20 20 20 dd 82 20 |  .".   |     .. |
|00000780| 54 61 67 4c 69 6e 65 24 | 00 20 20 20 20 20 20 80 |TagLine$|.      .|
|00000790| c0 00 20 20 20 20 80 22 | 00 20 20 20 20 20 20 dd |..    ."|.      .|
|000007a0| 82 20 53 69 67 24 28 54 | 4d 50 29 00 20 20 20 20 |. Sig$(T|MP).    |
|000007b0| 80 c0 00 20 20 80 17 00 | 80 c0 00 00 80 02 00 00 |...  ...|........|
|000007c0| 48 65 6c 70 00 20 20 dd | 82 20 22 54 4d 53 20 28 |Help.  .|. "TMS (|
|000007d0| 54 61 67 4d 79 53 69 67 | 29 20 56 31 2e 30 30 20 |TagMySig|) V1.00 |
|000007e0| 2d 20 28 43 29 20 4c 6f | 6b 69 20 2d 20 73 5e 44 |- (C) Lo|ki - s^D|
|000007f0| 20 31 39 39 39 22 00 20 | 20 dd 82 20 22 4d 61 69 | 1999". | .. "Mai|
|00000800| 6c 54 6f 3a 20 6c 6f 6b | 69 40 73 64 73 6f 66 74 |lTo: lok|i@sdsoft|
|00000810| 2e 66 72 65 65 73 65 72 | 76 65 2e 63 6f 2e 75 6b |.freeser|ve.co.uk|
|00000820| 22 00 20 20 dd 82 20 22 | 20 20 20 55 52 4c 3a 20 |".  .. "|   URL: |
|00000830| 68 74 74 70 3a 2f 2f 77 | 77 77 2e 73 61 74 61 6e |http://w|ww.satan|
|00000840| 69 63 64 72 65 61 6d 73 | 2e 66 72 65 65 73 65 72 |icdreams|.freeser|
|00000850| 76 65 2e 63 6f 2e 75 6b | 22 00 20 20 dd 82 20 22 |ve.co.uk|".  .. "|
|00000860| 22 00 20 20 dd 82 20 22 | 55 73 61 67 65 3a 20 54 |".  .. "|Usage: T|
|00000870| 4d 53 20 3c 54 61 67 4c | 69 6e 65 73 5f 46 69 6c |MS <TagL|ines_Fil|
|00000880| 65 3e 20 3c 53 69 67 6e | 61 74 75 72 65 5f 46 69 |e> <Sign|ature_Fi|
|00000890| 6c 65 3e 20 3c 53 74 72 | 69 70 5f 4c 69 6e 65 3e |le> <Str|ip_Line>|
|000008a0| 20 5b 3c 50 72 65 66 69 | 78 5f 54 65 78 74 3e 5d | [<Prefi|x_Text>]|
|000008b0| 20 5b 3c 53 75 66 66 69 | 78 5f 54 65 78 74 3e 5d | [<Suffi|x_Text>]|
|000008c0| 22 00 20 20 dd 82 20 22 | 22 00 20 20 dd 82 20 22 |".  .. "|".  .. "|
|000008d0| 50 6c 65 61 73 65 20 73 | 65 65 20 74 68 65 20 64 |Please s|ee the d|
|000008e0| 6f 63 73 20 66 6f 72 20 | 6d 6f 72 65 20 69 6e 66 |ocs for |more inf|
|000008f0| 6f 20 6f 6e 20 75 73 61 | 67 65 2e 22 00 20 20 80 |o on usa|ge.".  .|
|00000900| 02 00 00 00 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+