Garbo

home *** CD-ROM | disk | FTP | other *** search

/ Garbo / Garbo.cdr / mac / progrmng / elan15.sit / turtle / PYTH.E.bin < prev next >

MacBinary | 1989-09-14 | 1.4 KB | [TEXT/????]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

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

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	AMOS Picture Packer `(image/amosPicturePacker)`	ext	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Debian floppy split `(archive/debianFloppySplit)`	ext	Unsupported
`1%`	dexvert	Sound Images sound sample `(audio/soundImagesSoundSample)`	ext	Unsupported
`1%`	dexvert	DESI-III drawing `(image/desiIIIDrawing)`	ext	Unsupported
`1%`	dexvert	MS-DOS PMODE extender executable `(executable/msdosPMODEExtenderExecutable)`	ext	Unsupported
`1%`	dexvert	Alien Trilogytextures `(other/alienTrilogyTextures)`	ext	Unsupported
`1%`	dexvert	APT cache data `(other/aptCacheData)`	ext	Unsupported
`1%`	dexvert	CorelTRACE configuration `(other/corelTRACEConfiguration)`	ext	Unsupported
`1%`	dexvert	Dreamcast Disc `(other/dreamcastDisc)`	ext	Unsupported
`1%`	dexvert	EST flat binary `(other/estFlatBinary)`	ext	Unsupported
`1%`	dexvert	Finale Enigma Binary Format `(other/finaleEnigmaBinaryFormat)`	ext	Unsupported
`1%`	dexvert	Sega Genesis/Megadrive/32x ROM `(other/genesisROM)`	ext	Unsupported
`1%`	dexvert	Myth: The Fallen Lords game archive `(other/mythTheFallenLordsGameArchive)`	ext	Unsupported
`1%`	dexvert	Sound Images Sound Driver `(other/soundImagesSoundDriver)`	ext	Unsupported
`1%`	dexvert	Symantec/Norton Config `(other/symantecNortonConfig)`	ext	Unsupported
`1%`	dexvert	Vectrex ROM `(other/vectrexROM)`	ext	Unsupported
`1%`	dexvert	BIS raP encoded format `(other/bisraPEncoded)`	ext	Unsupported
`1%`	dexvert	Pascal Script binary `(other/pascalScriptBinary)`	ext	Unsupported
`1%`	dexvert	7th Level game data archive `(other/seventhLevelGameDataArchive)`	ext	Unsupported
`1%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary, Wed Nov 9 06:51:47 1988, modified Wed Nov 9 06:51:52 1988, creator '????', type ASCII, 1230 bytes "PYTH.E"	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`17%`	TrID	MacBinary 1	default (weak)
`100%`	lsar	MacBinary	default
`100%`	gt2	MAC Bilddatei	default (weak)

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[????]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 50 59 54 48 2e 45 | 00 00 00 00 00 00 00 00 |..PYTH.E|........|
|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 00 00 00 00 00 00 00 |.TEXT???|?.......|
|00000050| 00 00 00 00 00 04 ce 00 | 00 00 00 9f 9d e1 d3 9f |........|........|
|00000060| 9d e1 d8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 0d 50 52 4f 43 20 70 79 | 74 68 61 67 6f 72 61 73 |.PROC py|thagoras|
|00000090| 20 74 72 65 65 20 28 52 | 45 41 4c 20 43 4f 4e 53 | tree (R|EAL CONS|
|000000a0| 54 20 73 69 7a 65 2c 20 | 49 4e 54 20 43 4f 4e 53 |T size, |INT CONS|
|000000b0| 54 20 64 65 70 74 68 2c | 20 61 6e 67 6c 65 29 3a |T depth,| angle):|
|000000c0| 0d 20 20 20 64 72 61 77 | 20 28 73 69 7a 65 29 3b |.   draw| (size);|
|000000d0| 0d 20 20 20 49 46 20 72 | 65 73 6f 6c 75 74 69 6f |.   IF r|esolutio|
|000000e0| 6e 20 61 63 68 69 65 76 | 65 64 0d 20 20 20 54 48 |n achiev|ed.   TH|
|000000f0| 45 4e 0d 20 20 20 20 20 | 74 75 72 6e 20 72 69 67 |EN.     |turn rig|
|00000100| 68 74 3b 0d 20 20 20 20 | 20 64 72 61 77 20 28 73 |ht;.    | draw (s|
|00000110| 69 7a 65 29 3b 0d 20 20 | 20 20 20 74 75 72 6e 20 |ize);.  |   turn |
|00000120| 72 69 67 68 74 0d 20 20 | 20 45 4c 53 45 0d 20 20 |right.  | ELSE.  |
|00000130| 20 20 20 74 75 72 6e 20 | 28 61 6e 67 6c 65 29 3b |   turn |(angle);|
|00000140| 0d 20 20 20 20 20 70 79 | 74 68 61 67 6f 72 61 73 |.     py|thagoras|
|00000150| 20 74 72 65 65 20 28 73 | 69 7a 65 20 2a 20 63 6f | tree (s|ize * co|
|00000160| 73 20 28 61 6e 67 6c 65 | 29 2c 20 64 65 70 74 68 |s (angle|), depth|
|00000170| 20 2d 20 31 2c 20 61 6e | 67 6c 65 29 3b 0d 20 20 | - 1, an|gle);.  |
|00000180| 20 20 20 74 75 72 6e 20 | 6c 65 66 74 3b 0d 20 20 |   turn |left;.  |
|00000190| 20 20 20 70 79 74 68 61 | 67 6f 72 61 73 20 74 72 |   pytha|goras tr|
|000001a0| 65 65 20 28 73 69 7a 65 | 20 2a 20 73 69 6e 20 28 |ee (size| * sin (|
|000001b0| 61 6e 67 6c 65 29 2c 20 | 64 65 70 74 68 20 2d 20 |angle), |depth - |
|000001c0| 31 2c 20 61 6e 67 6c 65 | 29 3b 0d 20 20 20 20 20 |1, angle|);.     |
|000001d0| 74 75 72 6e 20 28 39 30 | 20 2d 20 61 6e 67 6c 65 |turn (90| - angle|
|000001e0| 29 0d 20 20 20 46 49 3b | 0d 20 20 20 64 72 61 77 |).   FI;|.   draw|
|000001f0| 20 28 73 69 7a 65 29 2e | 0d 0d 20 20 72 65 73 6f | (size).|..  reso|
|00000200| 6c 75 74 69 6f 6e 20 61 | 63 68 69 65 76 65 64 3a |lution a|chieved:|
|00000210| 0d 20 20 20 20 64 65 70 | 74 68 20 3d 20 30 20 4f |.    dep|th = 0 O|
|00000220| 52 20 73 69 7a 65 20 3c | 20 30 2e 31 20 2a 20 74 |R size <| 0.1 * t|
|00000230| 72 65 65 20 73 69 7a 65 | 2e 0d 0d 45 4e 44 50 52 |ree size|...ENDPR|
|00000240| 4f 43 20 70 79 74 68 61 | 67 6f 72 61 73 20 74 72 |OC pytha|goras tr|
|00000250| 65 65 3b 0d 0d 70 72 6f | 67 72 61 6d 3a 0d 20 20 |ee;..pro|gram:.  |
|00000260| 20 65 6e 74 65 72 20 74 | 75 72 74 6c 65 20 67 72 | enter t|urtle gr|
|00000270| 61 70 68 69 63 73 3b 0d | 20 20 20 6d 6f 76 65 20 |aphics;.|   move |
|00000280| 28 67 72 61 70 68 69 63 | 73 20 78 20 6c 69 6d 69 |(graphic|s x limi|
|00000290| 74 20 44 49 56 20 32 20 | 2d 20 36 30 2c 20 6c 69 |t DIV 2 |- 60, li|
|000002a0| 6e 65 20 68 65 69 67 68 | 74 29 3b 0d 20 20 20 70 |ne heigh|t);.   p|
|000002b0| 75 74 20 28 22 50 79 74 | 68 61 67 6f 72 61 73 20 |ut ("Pyt|hagoras |
|000002c0| 74 72 65 65 22 29 3b 0d | 20 20 20 6c 69 6e 65 3b |tree");.|   line;|
|000002d0| 0d 20 20 20 61 73 6b 20 | 70 61 72 61 6d 65 74 65 |.   ask |paramete|
|000002e0| 72 73 3b 0d 20 20 20 64 | 72 61 77 20 66 72 61 6d |rs;.   d|raw fram|
|000002f0| 65 3b 0d 20 20 20 64 72 | 61 77 20 70 79 74 68 61 |e;.   dr|aw pytha|
|00000300| 67 6f 72 61 73 20 74 72 | 65 65 3b 0d 20 20 20 77 |goras tr|ee;.   w|
|00000310| 61 69 74 20 66 6f 72 20 | 63 6f 6e 66 69 72 6d 61 |ait for |confirma|
|00000320| 74 69 6f 6e 20 28 31 2c | 20 67 72 61 70 68 69 63 |tion (1,| graphic|
|00000330| 73 20 79 20 6c 69 6d 69 | 74 20 2d 20 6c 69 6e 65 |s y limi|t - line|
|00000340| 20 68 65 69 67 68 74 29 | 3b 0d 20 20 20 6c 65 61 | height)|;.   lea|
|00000350| 76 65 20 74 75 72 74 6c | 65 20 67 72 61 70 68 69 |ve turtl|e graphi|
|00000360| 63 73 2e 0d 0d 64 72 61 | 77 20 66 72 61 6d 65 3a |cs...dra|w frame:|
|00000370| 0d 20 20 6d 6f 76 65 20 | 28 30 2e 30 2c 20 30 2e |.  move |(0.0, 0.|
|00000380| 30 29 3b 0d 20 20 64 72 | 61 77 20 28 30 2e 30 2c |0);.  dr|aw (0.0,|
|00000390| 20 31 30 30 2e 30 29 3b | 0d 20 20 64 72 61 77 20 | 100.0);|.  draw |
|000003a0| 28 31 30 30 2e 30 2c 20 | 31 30 30 2e 30 29 3b 0d |(100.0, |100.0);.|
|000003b0| 20 20 64 72 61 77 20 28 | 31 30 30 2e 30 2c 20 30 |  draw (|100.0, 0|
|000003c0| 2e 30 29 3b 0d 20 20 64 | 72 61 77 20 28 30 2e 30 |.0);.  d|raw (0.0|
|000003d0| 2c 20 30 2e 30 29 2e 0d | 0d 61 73 6b 20 70 61 72 |, 0.0)..|.ask par|
|000003e0| 61 6d 65 74 65 72 73 3a | 0d 20 20 20 49 4e 54 20 |ameters:|.   INT |
|000003f0| 43 4f 4e 53 54 20 74 72 | 65 65 20 64 65 70 74 68 |CONST tr|ee depth|
|00000400| 20 3a 3a 20 61 73 6b 20 | 69 6e 74 20 28 22 44 65 | :: ask |int ("De|
|00000410| 70 74 68 3f 20 22 29 3b | 0d 20 20 20 49 4e 54 20 |pth? ");|.   INT |
|00000420| 43 4f 4e 53 54 20 74 72 | 65 65 20 61 6e 67 6c 65 |CONST tr|ee angle|
|00000430| 20 3a 3a 20 61 73 6b 20 | 69 6e 74 20 28 22 41 6e | :: ask |int ("An|
|00000440| 67 6c 65 3f 20 22 29 3b | 0d 20 20 20 52 45 41 4c |gle? ");|.   REAL|
|00000450| 20 43 4f 4e 53 54 20 74 | 72 65 65 20 73 69 7a 65 | CONST t|ree size|
|00000460| 20 3a 3a 20 61 73 6b 20 | 72 65 61 6c 20 28 22 53 | :: ask |real ("S|
|00000470| 69 7a 65 20 3f 20 22 29 | 3b 0d 20 20 20 52 45 41 |ize ? ")|;.   REA|
|00000480| 4c 20 43 4f 4e 53 54 20 | 74 72 65 65 20 78 70 6f |L CONST |tree xpo|
|00000490| 73 20 3a 3a 20 61 73 6b | 20 72 65 61 6c 20 28 22 |s :: ask| real ("|
|000004a0| 58 70 6f 73 20 3f 20 22 | 29 3b 0d 20 20 20 52 45 |Xpos ? "|);.   RE|
|000004b0| 41 4c 20 43 4f 4e 53 54 | 20 74 72 65 65 20 79 70 |AL CONST| tree yp|
|000004c0| 6f 73 20 3a 3a 20 61 73 | 6b 20 72 65 61 6c 20 28 |os :: as|k real (|
|000004d0| 22 59 70 6f 73 20 3f 20 | 22 29 2e 0d 0d 64 72 61 |"Ypos ? |")...dra|
|000004e0| 77 20 70 79 74 68 61 67 | 6f 72 61 73 20 74 72 65 |w pythag|oras tre|
|000004f0| 65 3a 0d 20 20 20 6d 6f | 76 65 20 28 74 72 65 65 |e:.   mo|ve (tree|
|00000500| 20 78 70 6f 73 2c 20 74 | 72 65 65 20 79 70 6f 73 | xpos, t|ree ypos|
|00000510| 29 3b 0d 20 20 20 70 79 | 74 68 61 67 6f 72 61 73 |);.   py|thagoras|
|00000520| 20 74 72 65 65 20 28 74 | 72 65 65 20 73 69 7a 65 | tree (t|ree size|
|00000530| 2c 20 74 72 65 65 20 64 | 65 70 74 68 2c 20 74 72 |, tree d|epth, tr|
|00000540| 65 65 20 61 6e 67 6c 65 | 29 2e 0d 0d 04 0d 00 00 |ee angle|).......|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+