home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / tms / sourcecode / tmsv1_0.bb2 < prev    next >
Unknown  |  1999-03-11  |  2.4 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID Flexible Line Interpretation bitmap default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 00 3b 20 54 61 67 | 4d 79 53 69 67 2e 2e 2e |.;.; Tag|MySig...|
|00000010| 2e 2e 20 54 4d 53 20 56 | 31 2e 30 30 00 3b 20 28 |.. TMS V|1.00.; (|
|00000020| 43 29 20 4c 6f 6b 69 20 | 2d 20 73 5e 44 20 31 39 |C) Loki |- s^D 19|
|00000030| 39 39 00 3b 20 68 74 74 | 70 3a 2f 2f 77 77 77 2e |99.; htt|p://www.|
|00000040| 73 61 74 61 6e 69 63 64 | 72 65 61 6d 73 2e 66 72 |satanicd|reams.fr|
|00000050| 65 65 73 65 72 76 65 2e | 63 6f 2e 75 6b 00 3b 20 |eeserve.|co.uk.; |
|00000060| 6c 6f 6b 69 40 6e 61 70 | 61 6c 6d 64 65 61 74 68 |loki@nap|almdeath|
|00000070| 2e 66 72 65 65 73 65 72 | 76 65 2e 63 6f 2e 75 6b |.freeser|ve.co.uk|
|00000080| 00 3b 00 3b 20 54 48 49 | 53 20 43 4f 44 45 20 49 |.;.; THI|S CODE I|
|00000090| 53 20 43 4f 50 59 52 49 | 47 48 54 21 20 59 4f 55 |S COPYRI|GHT! YOU|
|000000a0| 20 4d 41 59 20 4e 4f 54 | 20 55 53 45 20 41 4e 59 | MAY NOT| USE ANY|
|000000b0| 20 50 41 52 54 20 4f 46 | 20 49 54 20 57 49 54 48 | PART OF| IT WITH|
|000000c0| 4f 55 54 00 3b 20 45 58 | 50 52 45 53 53 45 44 20 |OUT.; EX|PRESSED |
|000000d0| 50 45 52 4d 49 53 53 49 | 4f 4e 20 46 52 4f 4d 20 |PERMISSI|ON FROM |
|000000e0| 54 48 45 20 41 55 54 4f | 55 52 21 21 21 20 28 4a |THE AUTO|UR!!! (J|
|000000f0| 75 73 74 20 6d 61 69 6c | 20 6d 65 20 61 6e 64 20 |ust mail| me and |
|00000100| 61 73 6b 00 3b 20 49 60 | 6d 20 6e 6f 74 20 6c 69 |ask.; I`|m not li|
|00000110| 6b 65 6c 79 20 74 6f 20 | 73 61 79 20 6e 6f 29 20 |kely to |say no) |
|00000120| 3a 29 00 3b 20 48 6f 77 | 65 76 65 72 2c 20 69 66 |:).; How|ever, if|
|00000130| 20 79 6f 75 20 61 72 65 | 20 69 6e 20 70 6f 73 73 | you are| in poss|
|00000140| 65 73 73 69 6f 6e 20 6f | 66 20 61 20 73 68 6f 74 |ession o|f a shot|
|00000150| 67 75 6e 20 28 6f 72 20 | 70 72 65 74 65 6e 64 20 |gun (or |pretend |
|00000160| 79 6f 75 20 61 72 65 29 | 00 3b 20 54 68 65 6e 20 |you are)|.; Then |
|00000170| 79 6f 75 20 61 72 65 20 | 66 72 65 65 20 74 6f 20 |you are |free to |
|00000180| 75 73 65 20 69 74 20 68 | 6f 77 65 76 65 72 20 79 |use it h|owever y|
|00000190| 6f 75 20 6c 69 6b 65 20 | 53 49 52 21 20 3a 29 00 |ou like |SIR! :).|
|000001a0| 3b 00 3b 20 48 61 76 65 | 20 66 75 6e 21 00 3b 00 |;.; Have| fun!.;.|
|000001b0| 00 80 04 20 53 69 67 24 | 28 36 30 29 00 00 80 0b |... Sig$|(60)....|
|000001c0| 20 b5 01 3d 30 20 20 20 | 20 20 3b 20 49 66 20 74 | ..=0   |  ; If t|
|000001d0| 68 65 72 65 20 77 65 72 | 20 6e 6f 20 61 72 67 75 |here wer| no argu|
|000001e0| 6d 65 6e 74 73 20 70 61 | 73 73 65 64 2c 20 67 6f |ments pa|ssed, go|
|000001f0| 74 6f 20 68 65 6c 70 00 | 20 20 80 78 20 48 65 6c |to help.|  .x Hel|
|00000200| 70 00 80 c0 00 00 80 0b | 20 b5 02 28 31 29 3d 22 |p.......| ..(1)="|
|00000210| 3f 22 20 20 20 3b 20 49 | 66 20 74 68 65 20 75 73 |?"   ; I|f the us|
|00000220| 65 72 20 70 61 73 73 65 | 73 20 60 3f 27 20 61 73 |er passe|s `?' as|
|00000230| 20 66 69 72 73 74 20 61 | 72 67 2c 20 67 6f 74 6f | first a|rg, goto|
|00000240| 20 48 65 6c 70 00 20 20 | 80 78 20 48 65 6c 70 00 | Help.  |.x Help.|
|00000250| 80 c0 00 00 80 0b 20 b5 | 01 3c 3e 34 00 20 20 80 |...... .|.<>4.  .|
|00000260| 0b 20 b5 01 3c 3e 33 00 | 20 20 20 20 dd 82 20 22 |. ..<>3.|    .. "|
|00000270| 52 65 71 75 69 72 65 64 | 20 61 72 67 75 6d 65 6e |Required| argumen|
|00000280| 74 73 20 6d 69 73 73 69 | 6e 67 21 21 22 20 20 20 |ts missi|ng!!"   |
|00000290| 3b 20 69 66 20 6e 6f 74 | 20 70 61 73 73 65 64 20 |; if not| passed |
|000002a0| 33 20 6f 72 20 34 20 61 | 72 67 73 00 20 20 20 20 |3 or 4 a|rgs.    |
|000002b0| 80 02 00 20 20 80 c0 00 | 80 c0 00 00 80 0b 20 be |...  ...|...... .|
|000002c0| 11 28 30 2c b5 02 28 31 | 29 29 00 20 20 be 08 20 |.(0,..(1|)).  .. |
|000002d0| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|000002e0| 20 3b 20 55 73 65 20 66 | 69 6c 65 20 66 6f 72 20 | ; Use f|ile for |
|000002f0| 69 6e 70 75 74 00 20 20 | b4 8b 20 a5 88 20 20 20 |input.  |.. ..   |
|00000300| 20 20 20 20 20 20 20 20 | 3b 20 4d 61 6b 65 20 61 |        |; Make a|
|00000310| 73 20 72 61 6e 64 6f 6d | 20 61 73 20 77 65 20 63 |s random| as we c|
|00000320| 61 6e 00 20 20 54 61 67 | 50 6f 73 2e 6c 3d b4 8c |an.  Tag|Pos.l=..|
|00000330| 28 30 2c be 0a 28 30 29 | 29 20 20 20 20 3b 20 46 |(0,..(0)|)    ; F|
|00000340| 69 6e 64 20 61 20 72 61 | 6e 64 6f 6d 20 6c 6f 63 |ind a ra|ndom loc|
|00000350| 61 74 69 6f 6e 20 69 6e | 20 74 68 65 20 66 69 6c |ation in| the fil|
|00000360| 65 00 00 20 20 54 61 67 | 50 6f 73 2e 6c 3d 54 61 |e..  Tag|Pos.l=Ta|
|00000370| 67 50 6f 73 2a b4 8c 28 | 30 2c 36 30 30 29 20 20 |gPos*..(|0,600)  |
|00000380| 20 20 20 20 20 20 20 20 | 20 3b 20 46 69 6e 64 20 |        | ; Find |
|00000390| 61 20 6c 6f 6e 67 77 6f | 72 64 20 76 61 6c 75 65 |a longwo|rd value|
|000003a0| 2c 20 62 65 63 61 75 73 | 65 00 20 20 80 0c 20 54 |, becaus|e.  .. T|
|000003b0| 61 67 50 6f 73 3e be 0a | 28 30 29 20 20 20 20 20 |agPos>..|(0)     |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|000003d0| 52 52 6e 64 20 72 65 74 | 75 72 6e 73 20 61 20 76 |RRnd ret|urns a v|
|000003e0| 61 6c 75 65 20 74 6f 20 | 74 68 65 00 20 20 20 20 |alue to |the.    |
|000003f0| 54 61 67 50 6f 73 2e 6c | 3d bc 02 28 54 61 67 50 |TagPos.l|=..(TagP|
|00000400| 6f 73 2d b4 8c 28 30 2c | be 0a 28 30 29 29 29 20 |os-..(0,|..(0))) |
|00000410| 3b 20 61 63 63 75 72 61 | 63 79 20 6f 66 20 61 20 |; accura|cy of a |
|00000420| 77 6f 72 64 20 74 79 70 | 65 2c 20 61 6e 64 00 20 |word typ|e, and. |
|00000430| 20 80 c1 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000450| 20 20 20 20 20 3b 20 74 | 68 69 73 20 69 73 20 75 |     ; t|his is u|
|00000460| 73 65 6c 65 73 73 20 66 | 6f 72 20 74 61 67 6c 69 |seless f|or tagli|
|00000470| 6e 65 20 66 69 6c 65 73 | 20 74 68 61 74 20 61 72 |ne files| that ar|
|00000480| 65 20 6f 76 65 72 20 36 | 34 30 30 30 20 69 73 68 |e over 6|4000 ish|
|00000490| 20 62 79 74 65 73 00 00 | 20 20 80 0c 20 42 79 74 | bytes..|  .. Byt|
|000004a0| 65 24 3c 3e dc 86 28 31 | 30 29 00 20 20 20 20 be |e$<>..(1|0).    .|
|000004b0| 0b 20 30 2c 54 61 67 50 | 6f 73 20 20 20 20 20 20 |. 0,TagP|os      |
|000004c0| 20 20 3b 20 53 65 65 6b | 20 74 6f 20 52 61 6e 64 |  ; Seek| to Rand|
|000004d0| 6f 6d 20 70 6f 73 69 74 | 69 6f 6e 20 69 6e 20 74 |om posit|ion in t|
|000004e0| 68 65 20 66 69 6c 65 00 | 20 20 20 20 42 79 74 65 |he file.|    Byte|
|000004f0| 24 3d dd 02 28 31 29 20 | 20 20 20 20 20 20 20 20 |$=..(1) |        |
|00000500| 20 3b 20 47 65 74 20 31 | 20 62 79 74 65 20 6f 66 | ; Get 1| byte of|
|00000510| 20 69 6e 66 6f 20 66 72 | 6f 6d 20 66 69 6c 65 2e | info fr|om file.|
|00000520| 00 20 20 20 20 54 61 67 | 50 6f 73 2d 31 00 20 20 |.    Tag|Pos-1.  |
|00000530| 80 c1 00 00 20 20 54 61 | 67 50 6f 73 2b 31 00 20 |....  Ta|gPos+1. |
|00000540| 20 42 79 74 65 24 3d 22 | 22 00 00 20 20 80 0c 20 | Byte$="|"..  .. |
|00000550| 42 79 74 65 24 3c 3e dc | 86 28 31 30 29 20 20 20 |Byte$<>.|.(10)   |
|00000560| 20 20 20 3b 20 53 65 61 | 72 63 68 20 75 6e 74 69 |   ; Sea|rch unti|
|00000570| 6c 20 77 65 20 68 61 76 | 65 20 61 20 43 52 20 28 |l we hav|e a CR (|
|00000580| 63 61 72 72 69 61 67 65 | 20 72 65 74 75 72 6e 29 |carriage| return)|
|00000590| 00 20 20 20 20 80 0b 20 | be 0d 28 30 29 00 20 20 |.    .. |..(0).  |
|000005a0| 20 20 20 20 54 61 67 4c | 69 6e 65 24 3d 22 4f 68 |    TagL|ine$="Oh|
|000005b0| 20 6c 6f 6f 6b 2c 20 74 | 68 65 20 74 61 67 6c 69 | look, t|he tagli|
|000005c0| 6e 65 20 70 72 6f 67 72 | 61 6d 20 68 61 64 20 61 |ne progr|am had a|
|000005d0| 20 64 69 76 76 79 20 61 | 67 61 69 6e 21 22 00 20 | divvy a|gain!". |
|000005e0| 20 20 20 20 20 80 be 20 | 80 0b 3a 80 be 20 80 0c |     .. |..:.. ..|
|000005f0| 20 20 20 20 20 20 20 3b | 20 43 6c 6f 73 65 20 6f |       ;| Close o|
|00000600| 75 74 20 6c 6f 6f 70 21 | 00 20 20 20 20 80 c0 00 |ut loop!|.    ...|
|00000610| 20 20 20 20 54 61 67 50 | 6f 73 2b 31 20 20 20 20 |    TagP|os+1    |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 4d |        |     ; M|
|00000630| 6f 76 65 20 66 6f 72 77 | 61 72 64 20 69 6e 20 74 |ove forw|ard in t|
|00000640| 68 65 20 66 69 6c 65 00 | 20 20 20 20 be 0b 20 30 |he file.|    .. 0|
|00000650| 2c 54 61 67 50 6f 73 20 | 20 20 20 20 20 20 20 3b |,TagPos |       ;|
|00000660| 20 53 65 65 6b 20 74 6f | 20 61 62 6f 76 65 20 70 | Seek to| above p|
|00000670| 6f 73 00 20 20 20 20 42 | 79 74 65 24 3d dd 02 28 |os.    B|yte$=..(|
|00000680| 31 29 20 20 20 20 20 20 | 20 20 20 20 3b 20 47 72 |1)      |    ; Gr|
|00000690| 61 62 20 61 20 62 79 74 | 65 00 20 20 20 20 54 61 |ab a byt|e.    Ta|
|000006a0| 67 4c 69 6e 65 24 2b 42 | 79 74 65 24 20 20 20 20 |gLine$+B|yte$    |
|000006b0| 20 20 20 20 20 20 20 3b | 20 61 64 64 20 62 79 74 |       ;| add byt|
|000006c0| 65 20 74 6f 20 65 6e 64 | 20 6f 66 20 73 74 72 69 |e to end| of stri|
|000006d0| 6e 67 20 74 6f 20 6d 61 | 6b 65 75 70 20 74 61 67 |ng to ma|keup tag|
|000006e0| 6c 69 6e 65 00 20 20 80 | c1 00 00 20 20 54 61 67 |line.  .|...  Tag|
|000006f0| 4c 69 6e 65 24 3d dc 90 | 28 54 61 67 4c 69 6e 65 |Line$=..|(TagLine|
|00000700| 24 2c 31 29 20 20 3b 20 | 52 69 70 20 74 68 65 20 |$,1)  ; |Rip the |
|00000710| 43 52 20 6f 66 66 20 73 | 74 72 69 6e 67 00 00 80 |CR off s|tring...|
|00000720| 22 00 20 20 dd 82 20 22 | 43 61 6e 74 20 6c 6f 61 |".  .. "|Cant loa|
|00000730| 64 20 79 6f 75 72 20 74 | 61 67 2d 6c 69 6e 65 73 |d your t|ag-lines|
|00000740| 20 66 69 6c 65 21 22 20 | 20 3b 20 45 72 72 6f 72 | file!" | ; Error|
|00000750| 20 61 6e 64 20 65 6e 64 | 00 20 20 be 02 20 30 00 | and end|.  .. 0.|
|00000760| 20 20 80 02 00 80 c0 00 | be 02 20 30 00 00 80 0b |  ......|.. 0....|
|00000770| 20 be 11 28 30 2c b5 02 | 28 32 29 29 20 20 20 20 | ..(0,..|(2))    |
|00000780| 20 20 3b 20 61 74 74 65 | 6d 70 74 20 74 6f 20 72 |  ; atte|mpt to r|
|00000790| 65 61 64 20 74 68 65 20 | 73 69 67 21 00 20 20 be |ead the |sig!.  .|
|000007a0| 08 20 30 00 20 20 80 0c | 20 80 89 20 be 0d 28 30 |. 0.  ..| .. ..(0|
|000007b0| 29 00 20 20 20 20 53 69 | 67 24 28 46 53 69 7a 65 |).    Si|g$(FSize|
|000007c0| 29 3d dd 01 28 35 30 30 | 29 20 20 20 3b 20 70 61 |)=..(500|)   ; pa|
|000007d0| 72 73 65 20 73 69 67 20 | 69 6e 74 6f 20 74 68 65 |rse sig |into the|
|000007e0| 20 61 72 72 61 79 00 20 | 20 20 20 46 53 69 7a 65 | array. |   FSize|
|000007f0| 2b 31 00 20 20 80 c1 00 | 80 c0 00 be 02 20 30 00 |+1.  ...|..... 0.|
|00000800| 00 80 0b 20 be 12 28 30 | 2c b5 02 28 32 29 29 00 |... ..(0|,..(2)).|
|00000810| 20 20 be 07 20 30 00 20 | 20 80 16 20 54 4d 50 3d |  .. 0. | .. TMP=|
|00000820| 30 20 80 18 20 28 46 53 | 69 7a 65 2d 31 29 00 20 |0 .. (FS|ize-1). |
|00000830| 20 20 20 80 0b 20 54 4d | 50 3d bc 01 28 b5 02 28 |   .. TM|P=..(..(|
|00000840| 33 29 29 00 20 20 20 20 | 20 20 80 0b 20 b5 01 3d |3)).    |  .. ..=|
|00000850| 34 00 20 20 20 20 20 20 | 20 20 dd 82 20 b5 02 28 |4.      |  .. ..(|
|00000860| 34 29 2b 54 61 67 4c 69 | 6e 65 24 00 20 20 20 20 |4)+TagLi|ne$.    |
|00000870| 20 20 80 22 00 20 20 20 | 20 20 20 20 20 dd 82 20 |  .".   |     .. |
|00000880| 54 61 67 4c 69 6e 65 24 | 00 20 20 20 20 20 20 80 |TagLine$|.      .|
|00000890| c0 00 20 20 20 20 80 22 | 00 20 20 20 20 20 20 dd |..    ."|.      .|
|000008a0| 82 20 53 69 67 24 28 54 | 4d 50 29 00 20 20 20 20 |. Sig$(T|MP).    |
|000008b0| 80 c0 00 20 20 80 17 00 | 80 c0 00 00 80 02 00 00 |...  ...|........|
|000008c0| 48 65 6c 70 00 20 20 d2 | 02 00 20 20 dd 82 20 22 |Help.  .|..  .. "|
|000008d0| 54 4d 53 20 28 54 61 67 | 4d 79 53 69 67 29 20 56 |TMS (Tag|MySig) V|
|000008e0| 31 2e 30 30 20 2d 20 28 | 43 29 20 4c 6f 6b 69 20 |1.00 - (|C) Loki |
|000008f0| 2d 20 73 5e 44 20 31 39 | 39 39 22 00 20 20 dd 82 |- s^D 19|99".  ..|
|00000900| 20 22 4d 61 69 6c 54 6f | 3a 6c 6f 6b 69 40 6e 61 | "MailTo|:loki@na|
|00000910| 70 61 6c 6d 64 65 61 74 | 68 2e 66 72 65 65 73 65 |palmdeat|h.freese|
|00000920| 72 76 65 2e 63 6f 2e 75 | 6b 22 00 20 20 dd 82 20 |rve.co.u|k".  .. |
|00000930| 22 22 00 20 20 dd 82 20 | 22 55 73 61 67 65 3a 20 |"".  .. |"Usage: |
|00000940| 54 4d 53 20 3c 54 61 67 | 4c 69 6e 65 73 5f 46 69 |TMS <Tag|Lines_Fi|
|00000950| 6c 65 3e 20 3c 53 69 67 | 6e 61 74 75 72 65 5f 46 |le> <Sig|nature_F|
|00000960| 69 6c 65 3e 20 3c 53 74 | 72 69 70 5f 4c 69 6e 65 |ile> <St|rip_Line|
|00000970| 3e 20 5b 3c 50 72 65 66 | 69 78 5f 54 65 78 74 3e |> [<Pref|ix_Text>|
|00000980| 5d 22 00 20 20 dd 82 20 | 22 22 00 20 20 dd 82 20 |]".  .. |"".  .. |
|00000990| 22 50 6c 65 61 73 65 20 | 73 65 65 20 74 68 65 20 |"Please |see the |
|000009a0| 64 6f 63 73 20 66 6f 72 | 20 6d 6f 72 65 20 69 6e |docs for| more in|
|000009b0| 66 6f 20 6f 6e 20 75 73 | 61 67 65 2e 22 00 20 20 |fo on us|age.".  |
|000009c0| 80 02 00 00 00 00       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+