home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AdaV401#3 / AdaV3 / test / MLTEST.ADA < prev    next >
MacBinary  |  1988-03-19  |  1.6 KB  |  [TEXT/????]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sat Mar 19 03:04:38 1988, modified Sat Mar 19 03:04:38 1988, creator '????', type ASCII, 1066 bytes "MLTEST.ADA" , at 0x4aa 382 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[????]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 4d 4c 54 45 53 54 | 2e 41 44 41 00 00 00 00 |..MLTEST|.ADA....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 3f 3f 3f | 3f 01 00 00 00 00 00 00 |.TEXT???|?.......|
|00000050| 00 00 00 00 00 04 2a 00 | 00 01 7e 9e 67 dc 16 9e |......*.|..~.g...|
|00000060| 67 dc 16 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |g.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4f b6 00 00 |........|....O...|
|00000080| 77 69 74 68 20 61 64 61 | 5f 69 6f 3b 20 20 20 20 |with ada|_io;    |
|00000090| 75 73 65 20 61 64 61 5f | 69 6f 3b 0d 77 69 74 68 |use ada_|io;.with|
|000000a0| 20 6d 61 74 68 5f 6c 69 | 62 3b 0d 70 72 6f 63 65 | math_li|b;.proce|
|000000b0| 64 75 72 65 20 6d 6c 74 | 65 73 74 20 69 73 0d 62 |dure mlt|est is.b|
|000000c0| 65 67 69 6e 0d 20 20 70 | 75 74 5f 6c 69 6e 65 28 |egin.  p|ut_line(|
|000000d0| 22 54 45 53 54 20 53 49 | 4e 22 29 3b 0d 20 20 64 |"TEST SI|N");.  d|
|000000e0| 65 63 6c 61 72 65 0d 20 | 20 20 20 75 73 65 20 6d |eclare. |   use m|
|000000f0| 61 74 68 5f 6c 69 62 3b | 0d 20 20 20 20 72 3a 20 |ath_lib;|.    r: |
|00000100| 66 6c 6f 61 74 3b 0d 20 | 20 62 65 67 69 6e 0d 20 |float;. | begin. |
|00000110| 20 20 20 72 20 3a 3d 20 | 73 69 6e 28 70 69 2f 32 |   r := |sin(pi/2|
|00000120| 2e 30 29 3b 20 20 70 75 | 74 28 22 73 69 6e 28 70 |.0);  pu|t("sin(p|
|00000130| 69 2f 32 2e 30 29 20 3d | 20 3c 31 2e 30 3e 3a 20 |i/2.0) =| <1.0>: |
|00000140| 22 29 3b 20 70 75 74 28 | 72 2c 30 2c 38 2c 30 29 |"); put(|r,0,8,0)|
|00000150| 3b 20 6e 65 77 5f 6c 69 | 6e 65 3b 0d 20 20 65 6e |; new_li|ne;.  en|
|00000160| 64 3b 0d 0d 20 20 70 75 | 74 5f 6c 69 6e 65 28 22 |d;..  pu|t_line("|
|00000170| 54 45 53 54 20 43 4f 53 | 22 29 3b 0d 20 20 64 65 |TEST COS|");.  de|
|00000180| 63 6c 61 72 65 0d 20 20 | 20 20 75 73 65 20 6d 61 |clare.  |  use ma|
|00000190| 74 68 5f 6c 69 62 3b 0d | 20 20 20 20 72 3a 20 66 |th_lib;.|    r: f|
|000001a0| 6c 6f 61 74 3b 0d 20 20 | 62 65 67 69 6e 0d 20 20 |loat;.  |begin.  |
|000001b0| 20 20 72 20 3a 3d 20 63 | 6f 73 28 70 69 2f 32 2e |  r := c|os(pi/2.|
|000001c0| 30 29 3b 20 70 75 74 28 | 22 63 6f 73 28 70 69 2f |0); put(|"cos(pi/|
|000001d0| 32 2e 30 29 20 3d 20 3c | 30 2e 30 3e 3a 20 22 29 |2.0) = <|0.0>: ")|
|000001e0| 3b 20 70 75 74 28 72 2c | 30 2c 38 2c 30 29 3b 20 |; put(r,|0,8,0); |
|000001f0| 6e 65 77 5f 6c 69 6e 65 | 3b 0d 20 20 65 6e 64 3b |new_line|;.  end;|
|00000200| 0d 0d 20 20 70 75 74 5f | 6c 69 6e 65 28 22 54 45 |..  put_|line("TE|
|00000210| 53 54 20 45 58 50 22 29 | 3b 0d 20 20 64 65 63 6c |ST EXP")|;.  decl|
|00000220| 61 72 65 0d 20 20 20 20 | 75 73 65 20 6d 61 74 68 |are.    |use math|
|00000230| 5f 6c 69 62 3b 0d 20 20 | 20 20 72 3a 20 66 6c 6f |_lib;.  |  r: flo|
|00000240| 61 74 3b 0d 20 20 62 65 | 67 69 6e 0d 20 20 20 20 |at;.  be|gin.    |
|00000250| 72 20 3a 3d 20 65 78 70 | 28 30 2e 30 29 3b 20 20 |r := exp|(0.0);  |
|00000260| 70 75 74 28 22 65 78 70 | 28 30 2e 30 29 20 3d 20 |put("exp|(0.0) = |
|00000270| 3c 31 2e 30 3e 3a 20 22 | 29 3b 20 70 75 74 28 72 |<1.0>: "|); put(r|
|00000280| 2c 30 2c 38 2c 30 29 3b | 20 6e 65 77 5f 6c 69 6e |,0,8,0);| new_lin|
|00000290| 65 3b 0d 20 20 65 6e 64 | 3b 0d 0d 20 20 70 75 74 |e;.  end|;..  put|
|000002a0| 5f 6c 69 6e 65 28 22 54 | 45 53 54 20 53 51 52 54 |_line("T|EST SQRT|
|000002b0| 22 29 3b 0d 20 20 64 65 | 63 6c 61 72 65 0d 20 20 |");.  de|clare.  |
|000002c0| 20 20 75 73 65 20 6d 61 | 74 68 5f 6c 69 62 3b 0d |  use ma|th_lib;.|
|000002d0| 20 20 20 20 72 3a 20 66 | 6c 6f 61 74 3b 0d 20 20 |    r: f|loat;.  |
|000002e0| 62 65 67 69 6e 0d 20 20 | 20 20 72 20 3a 3d 20 73 |begin.  |  r := s|
|000002f0| 71 72 74 28 32 2e 30 29 | 3b 20 70 75 74 28 22 73 |qrt(2.0)|; put("s|
|00000300| 71 72 74 28 32 2e 30 29 | 20 3d 20 3c 31 2e 34 31 |qrt(2.0)| = <1.41|
|00000310| 34 32 31 2e 2e 3e 3a 20 | 22 29 3b 20 70 75 74 28 |421..>: |"); put(|
|00000320| 72 2c 30 2c 38 2c 30 29 | 3b 20 6e 65 77 5f 6c 69 |r,0,8,0)|; new_li|
|00000330| 6e 65 3b 0d 20 20 65 6e | 64 3b 0d 0d 20 20 70 75 |ne;.  en|d;..  pu|
|00000340| 74 5f 6c 69 6e 65 28 22 | 54 45 53 54 20 4c 4e 22 |t_line("|TEST LN"|
|00000350| 29 3b 0d 20 20 64 65 63 | 6c 61 72 65 0d 20 20 20 |);.  dec|lare.   |
|00000360| 20 75 73 65 20 6d 61 74 | 68 5f 6c 69 62 3b 0d 20 | use mat|h_lib;. |
|00000370| 20 20 20 72 3a 20 66 6c | 6f 61 74 3b 0d 20 20 62 |   r: fl|oat;.  b|
|00000380| 65 67 69 6e 0d 20 20 20 | 20 72 20 3a 3d 20 6c 6e |egin.   | r := ln|
|00000390| 28 65 29 3b 20 70 75 74 | 28 22 6c 6e 28 65 29 20 |(e); put|("ln(e) |
|000003a0| 3d 20 3c 31 2e 30 3e 3a | 20 22 29 3b 20 70 75 74 |= <1.0>:| "); put|
|000003b0| 28 72 2c 30 2c 38 2c 30 | 29 3b 20 6e 65 77 5f 6c |(r,0,8,0|); new_l|
|000003c0| 69 6e 65 3b 0d 20 20 65 | 6e 64 3b 0d 0d 20 20 70 |ine;.  e|nd;..  p|
|000003d0| 75 74 5f 6c 69 6e 65 28 | 22 54 45 53 54 20 41 54 |ut_line(|"TEST AT|
|000003e0| 41 4e 22 29 3b 0d 20 20 | 64 65 63 6c 61 72 65 0d |AN");.  |declare.|
|000003f0| 20 20 20 20 75 73 65 20 | 6d 61 74 68 5f 6c 69 62 |    use |math_lib|
|00000400| 3b 0d 20 20 20 20 72 3a | 20 66 6c 6f 61 74 3b 0d |;.    r:| float;.|
|00000410| 20 20 62 65 67 69 6e 0d | 20 20 20 20 72 20 3a 3d |  begin.|    r :=|
|00000420| 20 34 2e 30 20 2a 20 61 | 74 61 6e 28 31 2e 30 29 | 4.0 * a|tan(1.0)|
|00000430| 3b 0d 20 20 20 20 20 20 | 70 75 74 28 22 34 2e 30 |;.      |put("4.0|
|00000440| 20 2a 20 61 74 61 6e 28 | 31 2e 30 29 20 3d 20 3c | * atan(|1.0) = <|
|00000450| 33 2e 31 34 31 2e 2e 2e | 3e 3a 20 22 29 3b 20 70 |3.141...|>: "); p|
|00000460| 75 74 28 72 2c 30 2c 38 | 2c 30 29 3b 20 6e 65 77 |ut(r,0,8|,0); new|
|00000470| 5f 6c 69 6e 65 3b 0d 20 | 20 65 6e 64 3b 0d 0d 20 |_line;. | end;.. |
|00000480| 20 70 75 74 5f 6c 69 6e | 65 28 22 2d 2d 2d 45 4e | put_lin|e("---EN|
|00000490| 44 20 54 45 53 54 53 2d | 2d 2d 22 29 3b 0d 65 6e |D TESTS-|--");.en|
|000004a0| 64 20 6d 6c 74 65 73 74 | 3b 0d 00 00 00 00 00 00 |d mltest|;.......|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000510| 44 20 54 45 53 54 53 2d | 2d 2d 22 29 3b 0d 65 6e |D TESTS-|--");.en|
|00000520| 64 20 6d 6c 74 65 73 74 | 3b 0d 48 c0 2f 00 4e ad |d mltest|;.H./.N.|
|00000530| 0a 4d 4c 54 45 53 54 2e | 41 44 41 53 02 00 00 00 |.MLTEST.|ADAS....|
|00000540| 54 45 58 54 3f 3f 3f 3f | 01 00 00 40 01 40 ff fe |TEXT????|...@.@..|
|00000550| 00 00 54 45 58 54 3f 3f | 3f 3f 01 00 00 40 01 40 |..TEXT??|??...@.@|
|00000560| ff fe 00 84 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 9e 67 95 c1 00 00 | 04 2a 00 00 01 7e 20 6e |...g....|.*...~ n|
|00000580| 00 10 22 6a 00 08 22 51 | 30 a9 00 02 60 e4 2f 2e |.."j.."Q|0...`./.|
|00000590| 00 10 20 6a 00 08 22 50 | 30 29 00 02 48 c0 2f 00 |.. j.."P|0)..H./.|
|000005a0| 4e ad 00 c2 36 00 4a 43 | 67 04 35 43 00 02 4a 43 |N...6.JC|g.5C..JC|
|000005b0| 66 04 70 00 60 02 70 16 | 4c ee 04 0c ff f4 4e 5e |f.p.`.p.|L.....N^|
|000005c0| 4e 75 df 46 53 49 4f 43 | 54 4c 4e 56 ff fc 48 e7 |Nu.FSIOC|TLNV..H.|
|000005d0| 30 30 24 2e 00 08 26 2e | 00 0c 24 6e 00 10 48 78 |00$...&.|..$n..Hx|
|000005e0| 00 01 42 a7 48 6d fe fa | 2f 02 4e ad 01 62 4a 80 |..B.Hm..|/.N..bJ.|
|000005f0| 67 06 70 00 60 00 00 b8 | 48 78 00 01 42 a7 48 6d |g.p.`...|Hx..B.Hm|
|00000600| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6c 6f 73 |...H..Mo|naco.los|
|00000610| 65 00 2d 79 00 50 72 6f | 38 30 3a 70 61 63 3a 61 |e.-y.Pro|80:pac:a|
|00000620| 64 61 75 74 69 6c 00 06 | 00 04 00 3c 00 24 01 dd |dautil..|...<.$..|
|00000630| 02 7d 00 3c 00 24 01 dd | 02 7d 9e 67 95 c6 00 00 |.}.<.$..|.}.g....|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000650| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 02 f1 00 |...L...L|...2....|
|00000660| 03 ae 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000670| 00 0a 03 ed ff ff 00 00 | 00 00 00 04 29 5c 00 00 |........|....)\..|
+--------+-------------------------+-------------------------+--------+--------+