/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / JANE152 / SCL / MACROS.SCL

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 20 44 69 65 73 65 20 | 44 61 74 65 69 20 65 6e |# Diese |Datei en|
|00000010| 74 68 84 6c 74 20 65 69 | 6e 65 20 52 65 69 68 65 |th.lt ei|ne Reihe|
|00000020| 20 76 6f 6e 20 65 69 6e | 66 61 63 68 65 6e 20 4d | von ein|fachen M|
|00000030| 61 6b 72 6f 73 2c 20 64 | 69 65 0d 0a 23 20 65 69 |akros, d|ie..# ei|
|00000040| 6e 65 6e 20 45 69 6e 62 | 6c 69 63 6b 20 69 6e 20 |nen Einb|lick in |
|00000050| 64 69 65 20 4d 94 67 6c | 69 63 68 6b 65 69 74 65 |die M.gl|ichkeite|
|00000060| 6e 20 64 65 73 20 53 43 | 45 6c 65 74 6f 6e 2d 53 |n des SC|Eleton-S|
|00000070| 79 73 74 65 6d 73 0d 0a | 23 20 62 69 65 74 65 6e |ystems..|# bieten|
|00000080| 20 73 6f 6c 6c 65 6e 2e | 20 53 69 65 20 77 75 72 | sollen.| Sie wur|
|00000090| 64 65 6e 20 28 62 69 73 | 20 61 75 66 20 27 7a 65 |den (bis| auf 'ze|
|000000a0| 69 63 68 65 6e 73 61 74 | 7a 27 29 20 6d 69 74 20 |ichensat|z') mit |
|000000b0| 64 65 6d 0d 0a 23 20 4d | 61 6b 72 6f 72 65 63 6f |dem..# M|akroreco|
|000000c0| 72 64 65 72 20 65 72 73 | 74 65 6c 6c 74 20 75 6e |rder ers|tellt un|
|000000d0| 64 20 73 69 6e 64 20 61 | 6c 6c 65 20 64 61 7a 75 |d sind a|lle dazu|
|000000e0| 20 67 65 64 61 63 68 74 | 2c 20 61 75 66 0d 0a 23 | gedacht|, auf..#|
|000000f0| 20 46 75 6e 6b 74 69 6f | 6e 73 74 61 73 74 65 6e | Funktio|nstasten|
|00000100| 20 67 65 6c 65 67 74 20 | 7a 75 20 77 65 72 64 65 | gelegt |zu werde|
|00000110| 6e 2e 0d 0a 0d 0a 61 6e | 72 65 64 65 28 29 0d 0a |n.....an|rede()..|
|00000120| 7b 0d 0a 09 70 75 74 73 | 74 72 69 6e 67 28 22 53 |{...puts|tring("S|
|00000130| 65 68 72 20 67 65 65 68 | 72 74 65 20 44 61 6d 65 |ehr geeh|rte Dame|
|00000140| 6e 20 75 6e 64 20 48 65 | 72 72 65 6e 2c 22 29 3b |n und He|rren,");|
|00000150| 0d 0a 09 63 6b 65 79 28 | 22 52 45 54 22 29 3b 0d |...ckey(|"RET");.|
|00000160| 0a 7d 0d 0a 0d 0a 6d 66 | 67 28 29 0d 0a 7b 0d 0a |.}....mf|g()..{..|
|00000170| 09 70 75 74 73 74 72 69 | 6e 67 28 22 4d 69 74 20 |.putstri|ng("Mit |
|00000180| 66 72 65 75 6e 64 6c 69 | 63 68 65 6e 20 47 72 5c |freundli|chen Gr\|
|00000190| 78 38 31 5c 78 39 45 65 | 6e 22 29 3b 0d 0a 09 63 |x81\x9Ee|n");...c|
|000001a0| 6b 65 79 28 22 52 45 54 | 22 29 3b 0d 0a 7d 0d 0a |key("RET|");..}..|
|000001b0| 0d 0a 61 62 73 61 74 7a | 75 6d 62 72 75 63 68 28 |..absatz|umbruch(|
|000001c0| 29 0d 0a 7b 0d 0a 09 63 | 6b 65 79 28 22 23 41 22 |)..{...c|key("#A"|
|000001d0| 29 3b 0d 0a 09 72 65 66 | 6f 72 6d 61 74 28 22 6a |);...ref|ormat("j|
|000001e0| 75 73 74 69 66 79 22 2c | 20 37 30 29 3b 0d 0a 7d |ustify",| 70);..}|
|000001f0| 0d 0a 0d 0a 7a 65 69 63 | 68 65 6e 73 61 74 7a 28 |....zeic|hensatz(|
|00000200| 29 0d 0a 7b 09 72 65 74 | 20 3d 20 66 6f 6e 74 73 |)..{.ret| = fonts|
|00000210| 65 6c 65 63 74 28 29 3b | 0d 0a 09 66 6e 74 20 3d |elect();|...fnt =|
|00000220| 20 72 65 74 20 2f 20 36 | 35 35 33 36 3b 0d 0a 09 | ret / 6|5536;...|
|00000230| 73 69 7a 20 3d 20 72 65 | 74 20 26 20 30 78 66 66 |siz = re|t & 0xff|
|00000240| 66 66 3b 0d 0a 09 73 65 | 74 66 6f 6e 74 28 66 6e |ff;...se|tfont(fn|
|00000250| 74 2c 20 73 69 7a 29 3b | 0d 0a 7d 0d 0a 0d 0a 74 |t, siz);|..}....t|
|00000260| 65 78 62 65 67 69 6e 28 | 29 0d 0a 7b 0d 0a 09 70 |exbegin(|)..{...p|
|00000270| 75 74 73 74 72 69 6e 67 | 28 22 5c 5c 62 65 67 69 |utstring|("\\begi|
|00000280| 6e 7b 7d 22 29 3b 0d 0a | 09 63 6b 65 79 28 22 4c |n{}");..|.ckey("L|
|00000290| 46 54 22 29 3b 0d 0a 7d | 0d 0a 0d 0a 74 65 78 65 |FT");..}|....texe|
|000002a0| 6e 64 28 29 0d 0a 7b 0d | 0a 09 70 75 74 73 74 72 |nd()..{.|..putstr|
|000002b0| 69 6e 67 28 22 5c 5c 65 | 6e 64 7b 7d 22 29 3b 0d |ing("\\e|nd{}");.|
|000002c0| 0a 09 63 6b 65 79 28 22 | 4c 46 54 22 29 3b 0d 0a |..ckey("|LFT");..|
|000002d0| 7d 0d 0a 0d 0a 63 6b 6f | 6d 6d 65 6e 74 61 72 28 |}....cko|mmentar(|
|000002e0| 29 0d 0a 7b 0d 0a 09 70 | 75 74 73 74 72 69 6e 67 |)..{...p|utstring|
|000002f0| 28 22 2f 2a 20 20 2a 2f | 22 29 3b 0d 0a 09 63 6b |("/*  */|");...ck|
|00000300| 65 79 28 22 4c 46 54 22 | 29 3b 0d 0a 09 63 6b 65 |ey("LFT"|);...cke|
|00000310| 79 28 22 4c 46 54 22 29 | 3b 0d 0a 09 63 6b 65 79 |y("LFT")|;...ckey|
|00000320| 28 22 4c 46 54 22 29 3b | 0d 0a 7d 0d 0a 0d 0a    |("LFT");|..}.... |
+--------+-------------------------+-------------------------+--------+--------+