| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 61 87 b0 2a 35 04 ff ff b0 2a ff 47 00 7a ff ff ff ff ff ff ff ff ff ff 00 2b ff 43 00 ff ff ff | a..*5....*.G.z...........+.C.... |
| 0020 | ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff ff ff ff ff ff ff ff ff 50 2b ff 11 00 ff ff ff | ........................P+...... |
| 0040 | ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff ff ff ff ff ff ff ff ff 70 2b ff 45 00 ff ff ff | ........................p+.E.... |
| 0060 | ff ff ff ff ff ff ff ff c0 2b ff 3d 00 ff ff ff ff ff ff ff ff ff ff ff 10 2c ff 3e 00 ff ff ff | .........+.=.............,.>.... |
| 0080 | ff ff ff ff ff ff ff ff ff ff 01 20 5a 7a ff ff ff ff ff ff ff ff ff ff 60 2c ff 45 00 ff ff ff | ............Zz..........`,.E.... |
| 00a0 | ff ff ff ff ff ff ff ff b0 2c ff 44 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff | .........,.D.................... |
| 00c0 | ff ff ff ff ff ff ff ff 00 2d ff 16 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff | .........-.................zZz.. |
| 00e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0100 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0120 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0140 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0160 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0180 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 01a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 01c0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 01e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0200 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0220 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0240 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0260 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0280 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 02a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 02c0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 02e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0300 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0320 | ff ff ff ff ff ff ff ff ff ff 0d 64 20 6e 3a 3d 20 2d 6b 20 2a 20 6e 3b ff ff 03 7a 5a 7a ff ff | ...........d.n:=.-k.*.n;...zZz.. |
| 0340 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0360 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0380 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 03a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 03c0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 03e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0400 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0420 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0440 | ff ff ff ff ff ff ff ff ff ff 0b 61 20 3a 3d 20 6b 20 2a 20 6e 3b ff ff ff ff 03 7a 5a 7a ff ff | ...........a.:=.k.*.n;.....zZz.. |
| 0460 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0480 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 04a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 04c0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 04e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0500 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0520 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0540 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0560 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0580 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 05a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 05c0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 05e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0600 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0620 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0640 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0660 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0680 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 06a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 06c0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 06e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0700 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0720 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0740 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 0760 | ff ff ff ff ff ff ff ff 81 46 ff 43 00 7a ff ff ff ff ff ff ff ff ff ff 71 4a ff 42 00 ff ff ff | .........F.C.z..........qJ.B.... |
| 0780 | ff ff ff ff ff ff ff ff 61 4e ff 30 00 ff ff ff ff ff ff ff ff ff ff ff 41 52 ff 23 00 ff ff ff | ........aN.0............AR.#.... |
| 07a0 | ff ff ff ff ff ff ff ff 31 56 ff 3b 00 ff ff ff ff ff ff ff ff ff ff ff 41 82 ff 47 00 ff ff ff | ........1V.;............A..G.... |
| 07c0 | ff ff ff ff ff ff ff ff 11 5e ff 1f 00 ff ff ff ff ff ff ff ff ff ff ff 01 62 ff 23 00 ff ff ff | .........^...............b.#.... |
| 07e0 | ff ff ff ff ff ff ff ff e1 65 ff 44 00 ff ff ff ff ff ff ff ff ff ff ff d1 69 ff 27 00 ff ff ff | .........e.D.............i.'.... |
| 0800 | ff ff ff ff ff ff ff ff c1 6d ff 43 00 ff ff ff ff ff ff ff ff ff ff ff b1 71 ff 21 00 ff ff ff | .........m.C.............q.!.... |
| 0820 | ff ff ff ff ff ff ff ff a1 75 ff 2d 00 ff ff ff ff ff ff ff ff ff ff ff 91 79 ff 2c 00 ff ff ff | .........u.-.............y.,.... |
| 0840 | ff ff ff ff ff ff ff ff 71 7d ff 3f 00 ff ff ff ff ff ff ff ff ff ff ff 61 81 ff 4b 00 ff ff ff | ........q}.?............a..K.... |
| 0860 | ff ff ff ff ff ff ff ff b0 30 ff 43 00 7a ff ff ff ff ff ff ff ff ff ff d0 75 ff 4a 00 ff ff ff | .........0.C.z...........u.J.... |
| 0880 | ff ff ff ff ff ff ff ff 30 31 ff 29 00 ff ff ff ff ff ff ff ff ff ff ff 20 76 ff 45 00 ff ff ff | ........01.).............v.E.... |
| 08a0 | ff ff ff ff ff ff ff ff a0 31 ff 49 00 ff ff ff ff ff ff ff ff ff ff ff f0 31 ff 1b 00 ff ff ff | .........1.I.............1...... |
| 08c0 | ff ff ff ff ff ff ff ff 50 9d ff 4a 00 ff ff ff ff ff ff ff ff ff ff ff 80 b3 ff 45 00 ff ff ff | ........P..J...............E.... |
| 08e0 | ff ff ff ff ff ff ff ff 91 3f ff 48 00 ff ff ff ff ff ff ff ff ff ff ff 91 43 ff 3e 00 ff ff ff | .........?.H.............C.>.... |
| 0900 | ff ff ff ff ff ff ff ff e1 43 ff 36 00 ff ff ff ff ff ff ff ff ff ff ff 91 44 ff 20 00 2e 20 ff | .........C.6.............D...... |
| 0920 | ff ff ff ff ff ff ff ff 51 43 ff 21 00 62 65 67 69 6e 70 6c 6f 74 3b ff 01 25 ff 1d 00 2e 20 ff | ........QC.!.beginplot;..%...... |
| 0940 | ff ff ff ff ff ff ff ff 10 33 ff 1c 00 62 65 67 69 6e 70 6c 6f 74 3b ff 61 11 ff 12 00 2e 20 67 | .........3...beginplot;.a......g |
| 0960 | 69 6e 70 6c 6f 74 3b ff 00 9e 02 2e 20 62 65 67 69 6e 70 6c 6f 74 3b ff 00 b4 ff 1e 00 62 65 67 | inplot;......beginplot;......beg |
| 0980 | 69 6e 70 6c 6f 74 3b ff 41 25 ff 3a 00 62 65 67 69 6e 70 6c 6f 74 3b 23 f0 33 ff 1c 00 62 65 67 | inplot;.A%.:.beginplot;#.3...beg |
| 09a0 | 69 6e 70 6c 6f 74 3b ff e0 76 ff 27 00 2e ff ff ff ff ff ff ff ff ff ff 51 40 ff 3a 00 2e ff ff | inplot;..v.'............Q@.:.... |
| 09c0 | ff ff ff ff ff ff ff ff 21 2d ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 71 2d ff 15 00 ff ff ff | ........!-..............q-...... |
| 09e0 | ff ff ff ff ff ff ff ff c0 34 ff 23 00 2e ff ff ff ff ff ff ff ff ff ff 10 35 ff 1b 00 ff ff ff | .........4.#.............5...... |
| 0a00 | ff ff ff ff ff ff ff ff 81 25 ff 14 00 2e 20 ff ff ff ff ff ff ff ff ff d1 25 ff 40 00 ff ff ff | .........%...............%.@.... |
| 0a20 | ff ff ff ff ff ff ff ff 90 35 ff 41 00 ff ff ff ff ff ff ff ff ff ff ff d1 11 ff 49 00 2e ff ff | .........5.A...............I.... |
| 0a40 | ff ff ff ff ff ff ff ff 90 77 ff 4b 00 2e 20 ff ff ff ff ff ff ff ff ff 40 36 ff 21 00 ff ff ff | .........w.K............@6.!.... |
| 0a60 | ff ff ff ff ff ff ff ff 90 36 ff 20 00 2e 20 ff ff ff ff ff ff ff ff ff 70 9e ff 20 00 ff ff ff | .........6..............p....... |
| 0a80 | ff ff ff ff ff ff ff ff e0 77 ff 2f 00 46 49 3b 20 ff ff ff ff ff ff ff 10 37 ff 35 00 2e 20 ff | .........w./.FI;.........7.5.... |
| 0aa0 | ff ff ff ff ff ff ff ff 21 26 ff 4b 00 46 49 3b 20 2e 20 ff ff ff ff ff 60 78 ff 4b 00 46 49 3b | ........!&.K.FI;........`x.K.FI; |
| 0ac0 | 20 2e 20 ff ff ff ff ff b0 78 ff 28 00 46 49 3b 20 2e 20 ff ff ff ff ff 61 12 ff 46 00 ff ff ff | .........x.(.FI;........a..F.... |
| 0ae0 | ff ff ff ff ff ff ff ff c0 9e ff 2d 00 46 49 3b 20 2e 20 ff ff ff ff ff 00 79 08 20 20 46 49 3b | ...........-.FI;.........y...FI; |
| 0b00 | 20 2e 20 ff ff ff ff ff 40 b4 ff 49 00 46 49 3b 20 2e 20 ff ff ff ff ff 20 be ff 1c 00 46 49 3b | ........@..I.FI;.............FI; |
| 0b20 | 20 2e 20 ff ff ff ff ff 10 9f ff 25 00 46 49 3b 20 2e 20 ff ff ff ff ff 90 b4 ff 2e 00 2e 20 ff | ...........%.FI;................ |
| 0b40 | ff ff ff ff ff ff ff ff c1 2d ff 1a 00 46 49 3b 20 ff ff ff ff ff ff ff b0 38 ff 17 00 2e 20 3b | .........-...FI;.........8.....; |
| 0b60 | 20 ff ff ff ff ff ff ff b0 79 ff 1a 00 2e 20 ff ff ff ff ff ff ff ff ff e0 79 ff 20 00 2e ff ff | .........y...............y...... |
| 0b80 | ff ff ff ff ff ff ff ff 71 26 ff 23 00 2e ff ff ff ff ff ff ff ff ff ff 60 39 ff 23 00 2e ff ff | ........q&.#............`9.#.... |
| 0ba0 | ff ff ff ff ff ff ff ff b1 12 ff 24 00 2e ff ff ff ff ff ff ff ff ff ff 60 7a ff 24 00 2e ff ff | ...........$............`z.$.... |
| 0bc0 | ff ff ff ff ff ff ff ff c0 39 ff 24 00 ff ff ff ff ff ff ff ff ff ff ff 10 3a ff 23 00 ff ff ff | .........9.$.............:.#.... |
| 0be0 | ff ff ff ff ff ff ff ff 90 9f ff 43 00 ff ff ff ff ff ff ff ff ff ff ff e0 b4 ff 4d 00 ff ff ff | ...........C...............M.... |
| 0c00 | ff ff ff ff ff ff ff ff a0 3a ff 2d 00 ff ff ff ff ff ff ff ff ff ff ff f0 3a ff 36 00 ff ff ff | .........:.-.............:.6.... |
| 0c20 | ff ff ff ff ff ff ff ff e0 7a ff 25 00 ff ff ff ff ff ff ff ff ff ff ff 30 7b ff 20 00 46 49 3b | .........z.%............0{...FI; |
| 0c40 | 2e ff ff ff ff ff ff ff 80 3b ff 21 00 ff ff ff ff ff ff ff ff ff ff ff 30 b5 ff 1f 00 46 49 3b | .........;.!............0....FI; |
| 0c60 | 2e ff ff ff ff ff ff ff 80 7b 06 20 20 46 49 3b 2e ff ff ff ff ff ff ff d0 7b ff 16 00 46 49 3b | .........{...FI;.........{...FI; |
| 0c80 | 2e 3b ff ff ff ff ff ff e0 9f ff 2c 00 46 49 3b 2e ff ff ff ff ff ff ff 60 b5 ff 17 00 46 49 3b | .;.........,.FI;........`....FI; |
| 0ca0 | 2e ff ff ff ff ff ff ff 40 7c ff 18 00 ff ff ff ff ff ff ff ff ff ff ff 30 a0 ff 23 00 2e ff ff | ........@|..............0..#.... |
| 0cc0 | ff ff ff ff ff ff ff ff b0 b5 ff 31 00 50 45 52 20 3b ff ff ff ff ff ff f1 0b ff 18 00 50 45 52 | ...........1.PER.;...........PER |
| 0ce0 | 20 3b ff ff ff ff ff ff 11 2e ff 19 00 50 45 52 20 3b ff ff ff ff ff ff 70 be ff 34 00 50 45 52 | .;...........PER.;......p..4.PER |
| 0d00 | 20 3b ff ff ff ff ff ff 41 0c ff 1c 00 2e ff ff ff ff ff ff ff ff ff ff 11 35 ff 3d 00 65 69 67 | .;......A................5.=.eig |
| 0d20 | 75 6e 67 3a ff ff ff ff b1 26 09 73 74 65 69 67 75 6e 67 3a ff ff ff ff 80 ef ff 42 00 65 69 67 | ung:.....&.steigung:.......B.eig |
| 0d40 | 75 6e 67 3a ff ff ff ff 91 0c ff 17 00 65 69 67 75 6e 67 3a ff ff ff ff 41 42 ff 1e 00 65 69 67 | ung:.........eigung:....AB...eig |
| 0d60 | 75 6e 67 3a ff ff ff ff e1 44 ff 2d 00 20 20 54 48 45 4e 20 ff ff ff ff 01 27 ff 2e 00 20 20 20 | ung:.....D.-...THEN......'...... |
| 0d80 | 46 49 2e ff ff ff ff ff 31 19 08 20 20 20 20 20 46 49 2e 3a ff ff ff ff 41 1b ff 13 00 20 20 20 | FI......1.......FI.:....A....... |
| 0da0 | 46 49 2e ff ff ff ff ff 71 34 ff 18 00 20 20 20 46 49 2e 3a ff ff ff ff a1 35 ff 32 00 20 20 20 | FI......q4......FI.:.....5.2.... |
| 0dc0 | 46 49 2e ff ff ff ff ff 60 b6 ff 3a 00 46 49 20 2e 45 4e 20 ff ff ff ff 91 39 ff 23 00 2e 20 54 | FI......`..:.FI..EN......9.#...T |
| 0de0 | 48 45 4e 20 20 2a 29 ff e1 39 ff 29 00 20 20 20 46 49 2e 20 ff ff ff ff d1 3b ff 41 00 20 20 20 | HEN..*)..9.)....FI.......;.A.... |
| 0e00 | 20 20 45 4c 53 45 ff ff 71 3d ff 38 00 20 20 54 48 45 4e 20 ff ff ff ff 31 3a ff 33 00 2e 49 3b | ..ELSE..q=.8...THEN.....1:.3..I; |
| 0e20 | 48 45 4e 20 ff ff ff ff d0 3e ff 41 00 2e 49 3b ff ff ff ff ff ff ff ff 81 19 ff 0f 00 46 49 3b | HEN......>.A..I;.............FI; |
| 0e40 | 54 48 45 4e 20 2a 29 ff 60 3f ff 33 00 46 49 20 2e 45 4e 20 ff ff ff ff f1 36 ff 32 00 46 49 ff | THEN.*).`?.3.FI..EN......6.2.FI. |
| 0e60 | ff ff ff ff ff ff ff ff 61 2e ff 47 00 46 49 54 48 45 4e 20 ff ff ff ff b1 2e ff 30 00 20 20 54 | ........a..G.FITHEN........0...T |
| 0e80 | 48 45 4e 20 ff ff ff ff 40 7e 08 20 20 20 20 54 48 45 4e ff ff ff ff ff 01 2f ff 4c 00 20 20 54 | HEN.....@~.....THEN....../.L...T |
| 0ea0 | 48 45 4e 20 ff ff ff ff d0 7e ff 47 00 20 20 54 48 45 4e ff ff ff ff ff f0 a0 ff 42 00 20 20 54 | HEN......~.G...THEN........B...T |
| 0ec0 | 48 45 4e ff ff ff ff ff 40 a1 ff 2f 00 20 20 54 48 45 4e ff ff ff ff ff a0 b6 ff 3f 00 20 46 49 | HEN.....@../...THEN........?..FI |
| 0ee0 | 3b 2e ff ff ff ff ff ff 90 a1 ff 43 00 73 74 65 20 77 65 72 74 65 3a ff f0 b6 ff 4b 00 73 74 65 | ;..........C.ste.werte:....K.ste |
| 0f00 | 20 77 65 72 74 65 3a ff 20 41 ff 43 00 73 74 65 20 77 65 72 74 65 3a ff 70 41 ff 34 00 20 46 49 | .werte:..A.C.ste.werte:.pA.4..FI |
| 0f20 | 3b ff ff ff ff ff ff ff 40 b7 ff 3a 00 20 20 20 20 46 49 3b ff ff ff ff c0 41 09 20 20 20 20 20 | ;.......@..:.....FI;.....A...... |
| 0f40 | 20 46 49 3b 74 65 3a ff 20 a2 ff 45 00 20 20 20 20 46 49 3b ff ff ff ff 30 42 08 20 20 20 20 46 | .FI;te:....E.....FI;....0B.....F |
| 0f60 | 49 3b 2e 3b 74 65 3a ff 80 42 ff 2b 00 20 20 20 20 46 49 3b 74 65 3a ff b0 7f ff 2e 00 20 20 46 | I;.;te:..B.+.....FI;te:........F |
| 0f80 | 49 3b 2e ff ff ff ff ff 10 43 ff 43 00 20 20 46 49 3b 2e 72 74 65 3a ff 60 43 ff 1b 00 20 20 45 | I;.......C.C...FI;.rte:.`C.....E |
| 0fa0 | 4c 53 45 ff ff ff ff ff b0 bf ff 41 00 73 74 65 20 77 65 72 74 65 3a ff e0 43 ff 40 00 20 2e 20 | LSE........A.ste.werte:..C.@.... |
| 0fc0 | ff ff ff ff ff ff ff ff 00 80 ff 42 00 20 2e 20 ff ff ff ff ff ff ff ff 30 44 ff 19 00 20 20 45 | ...........B............0D.....E |
| 0fe0 | 4c 53 45 ff ff ff ff ff 50 80 ff 42 00 20 2e 65 20 77 65 72 74 65 3a ff a0 80 ff 41 00 20 2e 67 | LSE.....P..B...e.werte:....A...g |
| 1000 | 75 6e 67 3a 20 ff ff ff 00 c0 ff 1f 00 20 2e 20 75 6e 67 3a 20 ff ff ff f0 44 ff 42 00 65 69 67 | ung:............ung:.....D.B.eig |
| 1020 | 75 6e 67 3a 20 ff ff ff 40 45 ff 0f 00 73 74 65 20 77 65 72 74 65 3a ff 20 81 ff 14 00 73 74 65 | ung:....@E...ste.werte:......ste |
| 1040 | 20 77 65 72 74 65 3a ff d1 1b ff 4b 00 73 74 65 20 77 65 72 74 65 3a ff 60 f7 ff 42 00 2e ff ff | .werte:....K.ste.werte:.`..B.... |
| 1060 | ff ff ff ff ff ff ff ff a1 86 ff 5a 00 73 74 65 20 77 65 72 74 65 3a ff a0 81 ff 1c 00 73 74 65 | ...........Z.ste.werte:......ste |
| 1080 | 20 77 65 72 74 65 3a ff f0 81 ff 2f 00 2e ff ff ff ff ff ff ff ff ff ff d0 f0 ff 35 00 2e ff ff | .werte:..../...............5.... |
| 10a0 | ff ff ff ff ff ff ff ff f1 12 ff 2c 00 73 74 65 20 77 65 72 74 65 3a ff f0 a2 01 2e 00 2e ff ff | ...........,.ste.werte:......... |
| 10c0 | ff ff ff ff ff ff ff ff 40 a3 ff 12 00 20 2e 20 ff ff ff ff ff ff ff ff f0 b7 ff 30 00 20 2e 20 | ........@..................0.... |
| 10e0 | ff ff ff ff ff ff ff ff e0 46 ff 42 00 2e ff ff ff ff ff ff ff ff ff ff 30 47 ff 42 00 20 2e 20 | .........F.B............0G.B.... |
| 1100 | ff ff ff ff ff ff ff ff d0 c0 01 2e 00 2e 2a 29 ff ff ff ff ff ff ff ff 20 c1 ff 15 00 20 2e 20 | ..............*)................ |
| 1120 | ff ff ff ff ff ff ff ff 71 04 ff 36 00 2e ff ff ff ff ff ff ff ff ff ff 70 c1 ff 45 00 ff ff ff | ........q..6............p..E.... |
| 1140 | ff ff ff ff ff ff ff ff 80 e2 ff 12 00 2e ff ff ff ff ff ff ff ff ff ff 20 f1 ff 18 00 ff ff ff | ................................ |
| 1160 | ff ff ff ff ff ff ff ff 30 83 ff 1b 00 20 2e 20 ff ff ff ff ff ff ff ff 80 83 ff 2e 00 20 2e 20 | ........0....................... |
| 1180 | ff ff ff ff ff ff ff ff 60 cc ff 14 00 2e ff ff ff ff ff ff ff ff ff ff d0 48 ff 16 00 20 2e 20 | ........`................H...... |
| 11a0 | ff ff ff ff ff ff ff ff 00 fc ff 0f 00 20 2e 20 ff ff ff ff ff ff ff ff b0 cc ff 31 00 20 2e 20 | ...........................1.... |
| 11c0 | ff ff ff ff ff ff ff ff 80 49 ff 0f 00 20 2e 20 ff ff ff ff ff ff ff ff 40 b8 ff 10 00 20 2e 20 | .........I..............@....... |
| 11e0 | ff ff ff ff ff ff ff ff 50 fc ff 10 00 20 2e 20 ff ff ff ff ff ff ff ff f0 49 ff 20 00 2e ff ff | ........P................I...... |
| 1200 | ff ff ff ff ff ff ff ff 90 b8 ff 20 00 20 2e 20 ff ff ff ff ff ff ff ff 00 84 ff 0e 00 ff ff ff | ................................ |
| 1220 | ff ff ff ff ff ff ff ff a0 4a ff 0e 00 2e 2e 20 ff ff ff ff ff ff ff ff e0 b8 ff 1d 00 64 6e 65 | .........J...................dne |
| 1240 | 73 74 69 66 74 7a 75 3a 80 84 03 20 20 2e 6e 65 73 74 69 66 74 7a 75 3a 10 4b 0d 6f 72 64 6e 65 | stiftzu:......nestiftzu:.K.ordne |
| 1260 | 73 74 69 66 74 7a 75 3a 30 b9 ff 11 00 2e 6e 65 73 74 69 66 74 7a 75 3a d0 84 ff 0e 00 64 6e 65 | stiftzu:0.....nestiftzu:.....dne |
| 1280 | 73 74 69 66 74 7a 75 3a a1 0f ff 1b 00 64 6e 65 73 74 69 66 74 7a 75 3a 00 4c ff 1d 00 2e ff ff | stiftzu:.....dnestiftzu:.L...... |
| 12a0 | ff ff ff ff ff ff ff ff 20 85 ff 0e 00 ff ff ff ff ff ff ff ff ff ff ff 80 b9 ff 1a 00 64 6e 65 | .............................dne |
| 12c0 | 73 74 69 66 74 7a 75 3a 71 21 ff 1d 00 2e 6e 65 73 74 69 66 74 7a 75 3a 70 85 ff 1e 00 2e ff ff | stiftzu:q!....nestiftzu:p....... |
| 12e0 | ff ff ff ff ff ff ff ff 00 c2 ff 1a 00 64 6e 65 73 74 69 66 74 7a 75 3a e0 85 ff 1d 00 64 6e 65 | .............dnestiftzu:.....dne |
| 1300 | 73 74 69 66 74 7a 75 3a c1 34 ff 1c 00 2e 6e 65 73 74 69 66 74 7a 75 3a 60 86 ff 1a 00 6b 61 6c | stiftzu:.4....nestiftzu:`....kal |
| 1320 | 69 65 72 75 6e 67 3a ff b0 f7 ff 1d 00 6b 61 6c 69 65 72 75 6e 67 3a ff 00 f8 0c 79 73 6b 61 6c | ierung:......kalierung:....yskal |
| 1340 | 69 65 72 75 6e 67 3a ff b0 4d ff 12 00 6b 61 6c 69 65 72 75 6e 67 3a ff d0 b9 ff 47 00 6b 61 6c | ierung:..M...kalierung:....G.kal |
| 1360 | 69 65 72 75 6e 67 3a ff 50 c2 ff 3d 00 6b 61 6c 69 65 72 75 6e 67 3a ff 01 1f ff 20 00 6b 61 6c | ierung:.P..=.kalierung:......kal |
| 1380 | 69 65 72 75 6e 67 3a 3a 60 4e ff 1a 00 50 45 52 3b 74 69 66 74 7a 75 3a 20 ba ff 10 00 50 45 52 | ierung::`N...PER;tiftzu:.....PER |
| 13a0 | 3b 65 72 75 6e 67 3a ff a0 c2 06 20 20 50 45 52 3b 74 69 66 74 7a 75 3a d0 e2 ff 24 00 50 45 52 | ;erung:......PER;tiftzu:...$.PER |
| 13c0 | 3b ff ff ff ff ff ff ff 30 87 ff 1b 00 50 45 52 3b 65 72 75 6e 67 3a 3a f1 0f ff 1e 00 50 45 52 | ;.......0....PER;erung::.....PER |
| 13e0 | 3b 74 70 75 6e 6b 74 3a c1 21 ff 20 00 50 45 52 3b 74 69 66 74 7a 75 3a 21 0d ff 1b 00 20 20 54 | ;tpunkt:.!...PER;tiftzu:!......T |
| 1400 | 48 45 4e 66 74 7a 75 3b a0 87 ff 3b 00 50 45 52 3b ff ff ff ff ff ff ff 11 22 ff 33 00 50 45 52 | HENftzu;...;.PER;........".3.PER |
| 1420 | 3b 2e 45 75 6e 6b 74 3a 61 20 ff 33 00 50 45 52 3b 2e ff ff ff ff ff ff 40 88 07 20 20 50 45 52 | ;.Eunkt:a..3.PER;.......@....PER |
| 1440 | 3b 2e 72 75 6e 67 3a 3a 80 88 ff 15 00 50 45 52 3b 2e 72 75 6e 67 3a 3a 00 e9 ff 19 00 50 45 52 | ;.rung::.....PER;.rung::.....PER |
| 1460 | 3b 2e 69 66 74 7a 75 3a f1 35 ff 1d 00 50 45 52 3b 2e 66 74 65 79 3a 3a 71 0d ff 2e 00 73 63 68 | ;.iftzu:.5...PER;.ftey::q....sch |
| 1480 | 72 69 66 74 65 79 3a ff 91 38 0c 62 65 73 63 68 72 69 66 74 65 79 3a 3a 21 3c ff 1d 00 73 63 68 | riftey:..8.beschriftey::!<...sch |
| 14a0 | 72 69 66 74 65 79 3a 3a 51 2f ff 12 00 73 63 68 72 69 66 74 65 79 3a 3a 41 41 ff 46 00 73 63 68 | riftey::Q/...schriftey::AA.F.sch |
| 14c0 | 72 69 66 74 65 79 3a 3a 80 e3 ff 44 00 46 49 3b 3b 2e 66 74 65 79 3a 3a d0 e3 05 20 20 46 49 3b | riftey::...D.FI;;.ftey::.....FI; |
| 14e0 | 3b 74 69 66 74 7a 75 3a 91 41 ff 45 00 46 49 3b 4c 53 45 74 65 79 3a ff 60 e4 ff 41 00 46 49 3b | ;tiftzu:.A.E.FI;LSEtey:.`..A.FI; |
| 1500 | 4c 53 45 66 74 7a 75 3a f0 d5 08 20 20 20 20 45 4c 53 45 ff ff ff ff ff b0 e9 ff 3e 00 20 20 45 | LSEftzu:.......ELSE........>...E |
| 1520 | 4c 53 45 74 65 79 3a 3a 40 d6 ff 4c 00 20 20 45 4c 53 45 74 65 3a ff ff 81 3a ff 47 00 20 20 45 | LSEtey::@..L...ELSEte:...:.G...E |
| 1540 | 4c 53 45 20 ff ff ff ff 00 cd ff 2e 00 20 20 20 46 49 3b 75 6e 67 3a 3a 40 ea ff 42 00 20 20 20 | LSE.............FI;ung::@..B.... |
| 1560 | 46 49 3b 75 6e 67 3a ff 50 cd 08 20 20 20 20 20 46 49 3b 65 72 2e 3a ff 90 ea 08 20 20 46 49 3b | FI;ung:.P.......FI;er.:......FI; |
| 1580 | 20 20 2e 75 6e 67 3a ff e0 e4 ff 22 00 20 20 20 46 49 3b 74 65 79 3a ff 81 2a ff 1d 00 46 49 3b | ...ung:...."....FI;tey:..*...FI; |
| 15a0 | 20 20 2e 74 65 79 3a 3a a1 20 ff 3d 00 46 49 3b 20 20 2e 75 6e 67 3a ff 41 37 ff 3b 00 6b 61 6c | ...tey::...=.FI;...ung:.A7.;.kal |
| 15c0 | 69 65 72 75 6e 67 3a ff 41 36 0c 78 73 6b 61 6c 69 65 72 75 6e 67 3a ff e0 ea ff 18 00 6b 61 6c | ierung:.A6.xskalierung:......kal |
| 15e0 | 69 65 72 75 6e 67 3a ff e1 2f ff 19 00 6b 61 6c 69 65 72 75 6e 67 3a ff 31 30 ff 27 00 6b 61 6c | ierung:../...kalierung:.10.'.kal |
| 1600 | 69 65 72 75 6e 67 3a ff 81 30 ff 1a 00 50 45 52 3b 20 2e 75 6e 67 3a ff d1 30 06 20 20 50 45 52 | ierung:..0...PER;..ung:..0...PER |
| 1620 | 3b 53 45 74 65 79 3a ff c1 00 ff 17 00 50 45 52 3b 65 72 75 6e 67 3a ff b0 f1 ff 16 00 50 45 52 | ;SEtey:......PER;erung:......PER |
| 1640 | 3b 53 45 ff ff ff ff ff d0 d6 ff 26 00 50 45 52 3b 53 45 75 6e 67 3a ff 91 37 ff 18 00 6b 61 6c | ;SE........&.PER;SEung:..7...kal |
| 1660 | 69 65 72 75 6e 67 3a ff 20 d7 ff 10 00 20 20 20 46 49 3b 65 6d 6f 20 ff 40 f2 ff 2a 00 46 49 3b | ierung:.........FI;emo..@..*.FI; |
| 1680 | 2e 20 2e 20 ff ff ff ff e0 cd ff 33 00 46 49 3b 2e 20 2e 75 6e 6b 74 3a 90 dd 06 20 20 46 49 3b | ...........3.FI;...unkt:.....FI; |
| 16a0 | 2e 49 3b 74 65 79 3a 3a 30 ce ff 21 00 46 49 3b 2e 20 2e 75 6e 6b 74 3a 90 f8 ff 10 00 46 49 3b | .I;tey::0..!.FI;...unkt:.....FI; |
| 16c0 | 2e 49 3b 74 65 79 3a 3a e0 dd ff 1e 00 46 49 3b 2e 65 72 75 6e 67 3a 3a 30 de ff 19 00 6b 61 6c | .I;tey::.....FI;.erung::0....kal |
| 16e0 | 69 65 72 75 6e 67 3a ff e0 f8 ff 18 00 73 63 68 72 69 66 74 65 79 3a ff 90 f2 ff 2a 00 46 49 3b | ierung:......schriftey:....*.FI; |
| 1700 | 2e 65 72 75 6e 67 3a ff e0 d7 ff 1d 00 6b 61 6c 69 65 72 75 6e 67 3a 3a 70 e5 ff 14 00 50 45 52 | .erung:......kalierung::p....PER |
| 1720 | 3b 65 72 75 6e 67 3a 3a 11 01 ff 39 00 46 49 3b 2e 48 45 4e 4e 20 65 3b e0 fc ff 1e 00 46 49 3b | ;erung::...9.FI;.HENN.e;.....FI; |
| 1740 | 54 48 45 4e 65 79 3a 3a 50 cf ff 42 00 50 45 52 3b 53 45 4e ff ff ff ff 80 de ff 45 00 50 45 52 | THENey::P..B.PER;SEN.......E.PER |
| 1760 | 3b 69 66 74 65 79 3a 3a 70 eb ff 1e 00 50 45 52 3b 48 45 4e 65 75 7a 3a 30 f9 ff 19 00 20 20 20 | ;iftey::p....PER;HENeuz:0....... |
| 1780 | 20 20 54 48 45 4e ff ff 00 e6 ff 15 00 46 49 3b 6e 73 66 65 72 2e 65 3b 30 fd ff 29 00 46 49 3b | ..THEN.......FI;nsfer.e;0..).FI; |
| 17a0 | 54 48 45 4e 65 75 7a 3a 30 56 ff 29 00 46 49 3b 69 65 72 75 6e 67 3a 3a a0 bb ff 23 00 20 20 20 | THENeuz:0V.).FI;ierung::...#.... |
| 17c0 | 46 49 3b 4e 72 2e ff ff 90 c3 ff 33 00 46 49 3b 6e 73 66 65 72 2e ff ff d0 56 ff 13 00 6b 61 6c | FI;Nr......3.FI;nsfer....V...kal |
| 17e0 | 69 65 72 75 6e 67 3a ff 20 bc ff 10 00 46 49 3b 2e 65 72 75 6e 67 3a ff 40 57 ff 43 00 46 49 3b | ierung:......FI;.erung:.@W.C.FI; |
| 1800 | 69 65 72 75 6e 67 3a ff 70 bc ff 43 00 2e 61 6c 69 65 72 75 6e 67 3a ff e0 c3 ff 1d 00 46 49 3b | ierung:.p..C..alierung:......FI; |
| 1820 | 2e 65 72 75 6e 67 3a 3a 10 8b ff 25 00 46 49 3b 2e 65 72 75 6e 67 3a 3b d1 3a 06 20 20 46 49 3b | .erung::...%.FI;.erung:;.:...FI; |
| 1840 | 2e 65 72 75 6e 67 3a ff 71 3c ff 1c 00 46 49 3b 2e 65 6b 72 65 75 7a 3a 60 8b ff 1d 00 46 49 3b | .erung:.q<...FI;.ekreuz:`....FI; |
| 1860 | 2e 68 72 69 66 74 65 3b e1 37 ff 3f 00 46 49 3b 2e 65 72 75 6e 67 3a 3b b0 8b ff 26 00 46 49 3b | .hrifte;.7.?.FI;.erung:;...&.FI; |
| 1880 | 2e 68 72 69 66 74 65 3b 10 f3 ff 36 00 62 65 73 63 68 72 69 66 74 65 3b 70 d8 ff 48 00 46 49 3b | .hrifte;...6.beschrifte;p..H.FI; |
| 18a0 | 2e 68 72 69 66 74 65 3b 21 31 ff 1b 00 62 65 73 63 68 72 69 66 74 65 3b 71 31 ff 31 00 62 65 73 | .hrifte;!1...beschrifte;q1.1.bes |
| 18c0 | 63 68 72 69 66 74 65 3b d1 32 ff 3d 00 46 49 3b 2e 65 6b 72 65 75 7a 3a f0 58 ff 21 00 50 45 52 | chrifte;.2.=.FI;.ekreuz:.X.!.PER |
| 18e0 | 20 2e 4e 20 4e 20 3a ff 00 bd ff 40 00 20 66 65 72 65 6b 72 65 75 7a 3a 60 59 ff 48 00 65 66 65 | ..N.N.:....@..ferekreuz:`Y.H.efe |
| 1900 | 72 65 6b 72 65 75 7a 3a 50 bd ff 2f 00 74 72 61 6e 73 66 65 72 2e 4e 20 30 c4 ff 45 00 20 72 61 | rekreuz:P../.transfer.N.0..E..ra |
| 1920 | 6e 73 66 65 72 2e ff ff 00 5a ff 21 00 20 45 52 20 2e 66 74 65 3a ff ff d0 bd 03 2a 29 20 63 68 | nsfer....Z.!..ER..fte:.....*).ch |
| 1940 | 72 69 66 74 65 3a 20 20 80 5a ff 35 00 20 45 52 20 2e 66 74 65 3a ff ff 70 8c ff 4b 00 20 63 68 | rifte:...Z.5..ER..fte:..p..K..ch |
| 1960 | 72 69 66 74 65 3a 4e 20 80 c4 ff 3b 00 20 63 68 72 69 66 74 65 3a 20 3a c0 8c ff 43 00 20 2a 29 | rifte:N....;..chrifte:.:...C..*) |
| 1980 | 72 69 66 74 65 3a 7a 3a 41 13 ff 43 00 20 45 50 20 54 48 45 4e 20 3b 20 90 e6 ff 1b 00 20 63 68 | rifte:z:A..C..EP.THEN.;.......ch |
| 19a0 | 72 69 66 74 65 3a 3b ff 60 8d ff 18 00 78 20 44 45 43 52 20 31 2e 30 3b 50 5b ff 12 00 45 50 68 | rifte:;.`....x.DECR.1.0;P[...EPh |
| 19c0 | 72 69 66 74 65 3a ff ff b0 8d ff 16 00 20 66 65 72 65 6b 72 65 75 7a 3a b1 07 ff 48 00 50 45 52 | rifte:........ferekreuz:...H.PER |
| 19e0 | 3b 65 6b 72 65 75 7a 3a c0 eb ff 4b 00 20 2a 29 3b 73 66 65 72 2e 3b ff 10 ec ff 0e 00 2e 66 65 | ;ekreuz:...K..*);sfer.;.......fe |
| 1a00 | 72 65 6b 72 65 75 7a 3a 90 f3 ff 4d 00 65 66 65 72 65 6b 72 65 75 7a 3a c0 d8 ff 35 00 78 20 44 | rekreuz:...M.eferekreuz:...5.x.D |
| 1a20 | 45 43 52 20 31 2e 30 3b c1 31 ff 3b 00 45 50 2a 29 2e 66 65 72 2e 7a 3a 50 8e ff 29 00 20 2a 29 | ECR.1.0;.1.;.EP*).fer.z:P..)..*) |
| 1a40 | 72 65 6b 72 65 75 7a 3a 91 13 ff 10 00 20 2a 29 3b 65 6b 72 65 75 7a 3a c0 d0 ff 37 00 20 2a 29 | rekreuz:......*);ekreuz:...7..*) |
| 1a60 | 6e 73 66 65 72 2e ff ff 10 df ff 33 00 20 2a 29 45 43 52 20 31 2e 30 3b 91 27 ff 4c 00 2a 29 20 | nsfer......3..*)ECR.1.0;.'.L.*). |
| 1a80 | 45 43 52 20 31 2e 30 3b 80 f9 ff 2d 00 2a 29 20 45 43 52 20 31 2e 30 3b 91 40 05 20 20 2a 29 20 | ECR.1.0;...-.*).ECR.1.0;.@...*). |
| 1aa0 | 29 2e 52 20 31 2e 30 3b 80 fd ff 1c 00 2a 29 20 45 43 52 20 31 2e 30 3b 01 05 ff 19 00 2a 29 20 | ).R.1.0;.....*).ECR.1.0;.....*). |
| 1ac0 | 45 43 52 20 31 2e 30 3b a1 22 ff 4c 00 2a 29 20 45 43 52 20 31 2e 30 3b c1 3c ff 42 00 2a 29 20 | ECR.1.0;.".L.*).ECR.1.0;.<.B.*). |
| 1ae0 | 50 20 4e 20 4e 20 4e 20 60 e7 ff 19 00 20 20 46 49 2e 3b 65 6d 6f 20 ff 91 01 ff 37 00 20 20 46 | P.N.N.N.`......FI.;emo.....7...F |
| 1b00 | 49 2e 4e 20 6d 6f 20 20 e0 f3 06 20 20 20 20 46 49 53 45 20 7a 20 45 20 10 d9 ff 0f 00 20 20 46 | I.N.mo.........FISE.z.E........F |
| 1b20 | 49 2e 64 65 6d 6f 20 20 60 d9 ff 45 00 20 20 46 49 2e 64 65 6d 6f 20 20 20 a9 ff 0e 00 20 20 46 | I.demo..`..E...FI.demo.........F |
| 1b40 | 49 2e 4e 20 6d 6f 20 ff a0 5d ff 38 00 20 20 46 49 2e 4e 20 6d 6f 20 20 80 c5 ff 24 00 2a 29 20 | I.N.mo...].8...FI.N.mo.....$.*). |
| 1b60 | 52 20 3b 65 6d 6f 20 20 70 d1 ff 24 00 2a 29 20 20 6e 64 65 6d 6f 20 20 c0 df ff 15 00 20 46 49 | R.;emo..p..$.*)..ndemo........FI |
| 1b80 | 20 3b 45 20 7a 20 ff ff 00 fa ff 24 00 20 46 49 20 3b 64 65 6d 6f 20 20 60 ec ff 37 00 20 46 49 | .;E.z......$..FI.;demo..`..7..FI |
| 1ba0 | 20 3b 4e 20 4e 20 45 20 b0 a9 ff 31 00 20 46 49 20 3b 64 65 6d 6f 20 ff c0 5e ff 1e 00 20 46 49 | .;N.N.E....1..FI.;demo...^....FI |
| 1bc0 | 20 3b 3b 20 20 2e ff ff 20 90 ff 20 00 20 52 45 50 20 3b 20 20 2e ff ff e1 13 0b 20 20 20 20 20 | .;;...........REP.;............. |
| 1be0 | 20 45 4c 53 45 20 4e 20 41 08 ff 30 00 20 46 49 20 3b 3b 20 20 2e ff ff 21 02 ff 10 00 20 52 45 | .ELSE.N.A..0..FI.;;.....!.....RE |
| 1c00 | 50 20 3b 20 20 2e 20 ff 71 02 ff 23 00 20 52 45 50 20 45 20 7a 20 4e 20 71 10 ff 11 00 20 50 45 | P.;.....q..#..REP.E.z.N.q.....PE |
| 1c20 | 52 20 3b 20 20 2e ff ff e1 38 05 20 20 46 49 3b 52 20 3b 20 20 2e ff ff e1 40 01 2e 00 52 45 50 | R.;......8...FI;R.;......@...REP |
| 1c40 | 20 54 48 45 4e 20 45 20 e1 41 ff 14 00 20 52 45 50 20 3b 20 20 2e 3b ff f1 42 ff 27 00 52 45 50 | .THEN.E..A....REP.;...;..B.'.REP |
| 1c60 | 20 3b 48 45 4e 20 3b ff 91 42 ff 15 00 52 45 50 20 20 3b 20 20 2e 20 ff 21 3b 06 20 20 52 45 50 | .;HEN.;..B...REP..;.....!;...REP |
| 1c80 | 20 20 48 45 4e 20 ff ff 61 1c ff 1b 00 20 52 45 50 20 48 45 4e 20 ff ff d1 45 ff 1d 00 20 50 45 | ..HEN...a.....REP.HEN....E....PE |
| 1ca0 | 52 20 3b 20 20 2e 3b ff 31 44 ff 1c 00 52 45 50 20 20 3b 20 20 2e 3b ff 01 87 ff 59 00 20 46 49 | R.;...;.1D...REP..;...;....Y..FI |
| 1cc0 | 20 3b 64 65 6d 6f 20 ff 30 61 ff 16 00 49 46 20 69 6e 64 65 6d 6f 20 ff 10 c6 ff 1f 00 20 52 45 | .;demo..0a...IF.indemo........RE |
| 1ce0 | 50 20 3b 20 20 2e 20 ff 11 3d ff 18 00 20 20 20 20 20 20 46 49 20 3b ff 10 fe ff 19 00 20 20 20 | P.;......=.........FI.;......... |
| 1d00 | 20 20 20 46 49 20 3b ff 50 d2 ff 22 00 20 20 20 20 20 20 46 49 20 3b ff 50 e0 ff 22 00 20 20 20 | ...FI.;.P..".......FI.;.P..".... |
| 1d20 | 20 20 20 46 49 20 3b ff c1 10 09 20 20 20 20 20 20 46 49 20 49 20 3b 20 31 38 07 20 20 50 45 52 | ...FI.;..........FI.I.;.18...PER |
| 1d40 | 20 2e 20 46 49 20 3b 20 91 36 ff 4c 00 20 20 20 20 20 20 46 49 20 3b 20 11 32 ff 39 00 20 20 20 | ...FI.;..6.L.......FI.;..2.9.... |
| 1d60 | 20 20 20 46 49 20 3b 20 31 39 ff 10 00 20 20 20 20 54 48 45 4e 20 3b 20 21 33 ff 3e 00 20 20 20 | ...FI.;.19.......THEN.;.!3.>.... |
| 1d80 | 20 20 20 46 49 20 45 20 71 32 ff 38 00 20 20 20 20 20 20 46 49 20 20 ff 91 3e ff 3d 00 20 20 20 | ...FI.E.q2.8.......FI....>.=.... |
| 1da0 | 20 20 20 46 49 20 3b ff b0 e7 06 20 20 20 46 49 2e 20 20 46 49 20 ff ff 40 ab ff 13 00 20 20 20 | ...FI.;.......FI...FI...@....... |
| 1dc0 | 20 20 20 46 49 20 4e 20 f0 62 ff 46 00 20 20 20 20 46 49 20 49 20 ff ff 40 63 ff 4d 00 20 20 20 | ...FI.N..b.F.....FI.I...@c.M.... |
| 1de0 | 20 20 20 46 49 20 20 ff 90 c6 ff 2d 00 20 20 20 20 20 20 46 49 20 3b 20 00 ed ff 4a 00 20 20 20 | ...FI......-.......FI.;....J.... |
| 1e00 | 20 46 49 20 49 20 3b ff 11 11 ff 41 00 20 20 20 20 46 49 20 49 20 3b ff 81 0a ff 38 00 50 45 52 | .FI.I.;....A.....FI.I.;....8.PER |
| 1e20 | 20 2e 20 46 49 20 3b ff f1 29 ff 3f 00 20 20 20 20 46 49 20 49 20 3b ff 30 f5 ff 10 00 50 45 52 | ...FI.;..).?.....FI.I.;.0....PER |
| 1e40 | 20 2e 49 20 49 20 3b ff 30 93 08 20 20 20 46 49 20 20 2e 46 49 20 3b ff 80 93 ff 49 00 20 46 49 | ..I.I.;.0.....FI...FI.;....I..FI |
| 1e60 | 2e 46 49 20 4e 20 ff ff d1 1f ff 4a 00 20 46 49 2e 2e 48 45 4e 20 ff ff b1 1c ff 30 00 20 46 49 | .FI.N......J..FI..HEN......0..FI |
| 1e80 | 2e 46 49 20 49 20 ff ff 40 d3 ff 1f 00 20 46 49 2e 2e 20 46 49 20 3b ff a0 e0 ff 38 00 20 20 20 | .FI.I...@.....FI...FI.;....8.... |
| 1ea0 | 20 20 20 46 49 20 3b ff d1 2a ff 45 00 20 46 49 2e 20 20 46 49 20 ff ff 80 f5 ff 10 00 20 46 49 | ...FI.;..*.E..FI...FI.........FI |
| 1ec0 | 2e 20 20 46 49 20 ff ff f0 da 06 20 20 46 49 20 2e 46 49 20 49 20 ff ff f0 fe ff 0f 00 20 46 49 | ...FI........FI..FI.I.........FI |
| 1ee0 | 2e 20 20 46 49 20 3b ff a1 05 06 20 20 52 45 50 20 2e 20 20 2e 20 3b ff 31 46 ff 17 00 20 46 49 | ...FI.;......REP......;.1F....FI |
| 1f00 | 2e 46 49 20 2e 20 20 ff 30 ac ff 39 00 20 46 49 2e 2e 49 20 2e 20 3b ff 70 65 ff 1f 00 52 45 50 | .FI.....0..9..FI..I...;.pe...REP |
| 1f20 | 20 46 49 20 2e 20 ff ff 40 c7 ff 2d 00 52 45 50 20 46 49 20 2e 20 3b ff e0 fa 08 20 20 20 20 46 | .FI.....@..-.REP.FI...;........F |
| 1f40 | 49 20 3b 46 49 20 3b ff 01 17 0a 20 20 50 45 52 20 3b 20 20 2e 20 20 ff e0 ed ff 3f 00 20 20 46 | I.;FI.;......PER.;.........?...F |
| 1f60 | 49 20 3b 20 2e 20 20 ff d0 ac ff 3a 00 20 20 46 49 20 3b 20 2e 20 3b ff 30 66 ff 11 00 20 20 46 | I.;........:...FI.;...;.0f.....F |
| 1f80 | 49 20 3b 20 2e 20 3b ff 90 c7 ff 22 00 20 20 46 49 20 3b 20 2e 20 ff ff d0 94 ff 24 00 46 49 20 | I.;...;...."...FI.;........$.FI. |
| 1fa0 | 2e 3b 20 20 2e 20 20 ff c1 02 ff 2e 00 46 49 20 2e 20 3b 20 2e 4e 20 ff 40 ff 04 20 20 2e 20 50 | .;...........FI...;..N..@......P |
| 1fc0 | 20 3b 20 20 2e 4e 20 ff f1 05 ff 16 00 46 49 20 2e 20 3b 20 2e 20 ff ff 31 28 03 7a 5a 7a 45 52 | .;...N.......FI...;.....1(.zZzER |
| 1fe0 | 20 2e 20 20 2e 4e 20 ff 01 1d 06 20 20 52 45 50 20 20 3b 20 2e 20 3b ff 50 95 ff 17 00 20 20 46 | .....N.......REP..;...;.P......F |
| 2000 | 49 20 3b 20 2e 4e 20 ff 11 03 ff 34 00 46 49 20 2e 3b 20 20 2e 20 20 ff d1 0a ff 1f 00 20 20 46 | I.;..N.....4.FI..;.............F |
| 2020 | 49 20 3b 20 49 20 3b ff 70 e8 ff 2d 00 20 20 46 49 20 3b 20 2e 73 3a ff 81 33 08 20 20 20 20 46 | I.;.I.;.p..-...FI.;..s:..3.....F |
| 2040 | 49 20 3b 20 2e 20 20 ff 71 0e 0a 20 20 50 45 52 20 3b 20 20 2e 4e 20 ff f1 3e ff 3f 00 52 45 50 | I.;.....q....PER.;...N...>.?.REP |
| 2060 | 20 2e 54 48 45 4e 20 ff 70 ee ff 19 00 52 45 50 20 2e 48 45 4e 20 ff ff b0 ee ff 30 00 50 45 52 | ..THEN..p....REP..HEN......0.PER |
| 2080 | 20 2e 48 45 4e 20 ff ff b0 db ff 4c 00 50 45 52 20 2e 48 45 4e 20 20 ff 60 e1 ff 32 00 52 45 50 | ..HEN......L.PER..HEN...`..2.REP |
| 20a0 | 20 2e 48 45 4e 20 3a ff c1 0e ff 1b 00 52 45 50 20 2e 48 45 4e 20 ff ff 00 96 ff 2e 00 52 45 50 | ..HEN.:......REP..HEN........REP |
| 20c0 | 20 2e 48 45 4e 20 20 ff b0 d4 ff 3b 00 50 45 52 20 2e 48 45 4e 20 ff ff a0 e1 ff 28 00 46 49 20 | ..HEN......;.PER..HEN......(.FI. |
| 20e0 | 2e 2e 48 45 4e 20 ff ff 70 ae 06 20 20 46 49 20 2e 2e 48 45 4e 20 20 ff 10 69 ff 19 00 52 45 50 | ..HEN...p....FI...HEN....i...REP |
| 2100 | 20 2e 48 45 4e 20 ff ff 80 c8 06 20 20 52 45 50 20 54 48 45 4e 20 3a ff 90 ff ff 24 00 50 45 52 | ..HEN........REP.THEN.:....$.PER |
| 2120 | 20 2e 48 45 4e 20 ff ff 41 06 07 20 20 50 45 52 20 2e 48 45 4e 20 ff ff 00 ef ff 20 00 20 20 20 | ..HEN...A....PER..HEN........... |
| 2140 | 20 54 48 45 4e 20 3b ff 81 14 ff 0e 00 52 45 50 20 20 48 45 4e 20 3b ff d1 08 06 20 20 52 45 50 | .THEN.;......REP..HEN.;......REP |
| 2160 | 20 54 48 45 4e 20 3b ff e0 ae ff 13 00 20 20 20 20 20 20 46 49 20 3b ff 10 6a ff 18 00 20 20 20 | .THEN.;............FI.;..j...... |
| 2180 | 20 20 20 46 49 20 3b ff 00 c9 ff 3c 00 20 20 20 20 54 48 45 4e 20 3b ff 10 f6 ff 1d 00 20 20 20 | ...FI.;....<.....THEN.;......... |
| 21a0 | 20 54 48 45 4e 20 3b ff 80 dc ff 26 00 20 20 20 20 20 20 46 49 20 3b ff e1 20 ff 18 00 20 20 20 | .THEN.;....&.......FI.;......... |
| 21c0 | 46 49 20 46 49 20 3b ff 30 af ff 24 00 50 45 52 20 2e 48 45 4e 20 20 ff e0 6a ff 29 00 20 20 20 | FI.FI.;.0..$.PER..HEN....j.).... |
| 21e0 | 20 20 20 46 49 20 3b ff 50 c9 ff 22 00 62 6d 65 6e 75 65 61 75 73 3a 2e 10 97 ff 18 00 20 20 20 | ...FI.;.P..".bmenueaus:......... |
| 2200 | 20 54 48 45 4e 20 3b ff 11 0f ff 36 00 20 20 20 20 20 54 48 45 4e 20 ff 30 fb ff 43 00 20 20 20 | .THEN.;....6......THEN..0..C.... |
| 2220 | 20 20 54 48 45 4e 20 ff d1 14 ff 24 00 20 20 20 46 49 20 48 45 4e 20 ff e0 ff ff 32 00 20 20 20 | ..THEN.....$....FI.HEN.....2.... |
| 2240 | 46 49 20 48 45 4e 20 2e 91 06 ff 0f 00 20 20 20 46 49 20 48 45 4e 20 ff a0 97 ff 1c 00 20 20 20 | FI.HEN..........FI.HEN.......... |
| 2260 | 46 49 20 61 75 73 3a ff d0 dc ff 4e 00 20 20 20 46 49 20 61 75 73 3a ff 21 09 ff 16 00 50 45 52 | FI.aus:....N....FI.aus:.!....PER |
| 2280 | 20 2e 65 61 75 73 3a ff e1 03 ff 1e 00 62 6d 65 6e 75 65 61 75 73 3a ff 71 09 ff 19 00 62 6d 65 | ..eaus:......bmenueaus:.q....bme |
| 22a0 | 6e 75 65 61 75 73 3a ff 70 d5 ff 19 00 20 20 20 46 49 20 61 75 73 3a ff f0 e1 ff 3d 00 62 6d 65 | nueaus:.p.......FI.aus:....=.bme |
| 22c0 | 6e 75 65 61 75 73 3a ff 51 1d ff 2b 00 52 45 50 20 49 20 61 75 73 3a ff 80 fb ff 2a 00 20 20 20 | nueaus:.Q..+.REP.I.aus:....*.... |
| 22e0 | 46 49 20 61 75 73 3a ff 30 b0 ff 1c 00 50 45 52 20 2e 65 61 75 73 3a ff 31 00 ff 3c 00 20 20 20 | FI.aus:.0....PER..eaus:.1..<.... |
| 2300 | 46 49 20 61 75 73 3a ff e1 06 08 20 20 20 20 20 46 49 20 61 75 73 3a ff d1 19 07 20 20 50 45 52 | FI.aus:.........FI.aus:......PER |
| 2320 | 20 2e 65 61 75 73 3a ff 70 b0 ff 3a 00 62 6d 65 6e 75 65 61 75 73 3a ff 90 a5 ff 20 00 52 45 50 | ..eaus:.p..:.bmenueaus:......REP |
| 2340 | 20 54 48 45 4e 20 ff ff 90 ca ff 21 00 52 45 50 20 54 48 45 4e 20 ff ff 51 17 ff 22 00 52 45 50 | .THEN......!.REP.THEN...Q..".REP |
| 2360 | 20 3b 6d 65 6e 75 65 2e 20 6e ff 21 00 52 45 50 20 3b 48 45 4e 20 65 2e 21 15 ff 22 00 52 45 50 | .;menue..n.!.REP.;HEN.e.!..".REP |
| 2380 | 20 3b 20 46 49 20 ff ff 81 28 ff 22 00 50 45 52 20 3b 48 45 4e 20 ff ff 91 1d ff 17 00 50 45 52 | .;.FI....(.".PER.;HEN........PER |
| 23a0 | 20 3b 48 45 4e 20 ff ff d1 33 ff 3e 00 2e 45 50 20 3b 20 46 49 20 65 2e 61 0b ff 47 00 52 45 50 | .;HEN....3.>..EP.;.FI.e.a..G.REP |
| 23c0 | 20 3b 6d 65 6e 75 65 2e 81 3b ff 12 00 52 45 50 20 3b 48 45 4e 20 ff ff f1 22 ff 46 00 52 45 50 | .;menue..;...REP.;HEN....".F.REP |
| 23e0 | 20 54 48 45 4e 20 65 2e 40 99 ff 13 00 52 45 50 20 54 48 45 4e 20 ff ff e0 ca 06 20 20 52 45 50 | .THEN.e.@....REP.THEN........REP |
| 2400 | 20 54 48 45 4e 20 65 2e b1 0b ff 1d 00 50 45 52 20 3b 20 2e 4e 20 65 2e 30 6f 09 20 20 50 45 52 | .THEN.e......PER.;..N.e.0o...PER |
| 2420 | 20 3b 20 2e 4e 20 ff ff 71 15 ff 19 00 50 45 52 20 3b 48 45 4e 20 ff ff 61 1a ff 15 00 52 45 50 | .;..N...q....PER.;HEN...a....REP |
| 2440 | 20 54 48 45 4e 20 65 2e b0 b1 06 20 20 52 45 50 20 54 48 45 4e 20 65 2e 20 a6 ff 13 00 20 20 20 | .THEN.e......REP.THEN.e......... |
| 2460 | 20 54 48 45 4e 20 ff ff 50 cb ff 18 00 52 45 50 20 54 48 45 4e 20 ff ff a1 17 ff 3c 00 20 20 20 | .THEN...P....REP.THEN......<.... |
| 2480 | 20 54 48 45 4e 20 ff ff 20 70 ff 1e 00 20 20 20 20 20 20 46 49 20 ff ff b1 15 ff 26 00 20 20 20 | .THEN....p.........FI......&.... |
| 24a0 | 20 20 20 46 49 20 ff ff d1 28 ff 18 00 20 20 20 20 54 48 45 4e 20 ff ff e1 1d ff 39 00 20 20 20 | ...FI....(.......THEN......9.... |
| 24c0 | 20 20 20 46 49 20 65 2e 21 34 ff 43 00 20 20 20 20 20 20 46 49 20 ff ff 21 2b ff 4b 00 20 20 20 | ...FI.e.!4.C.......FI...!+.K.... |
| 24e0 | 20 54 48 45 4e 20 ff ff 41 3f ff 23 00 20 20 20 20 20 20 46 49 20 65 2e b1 1a ff 39 00 20 20 20 | .THEN...A?.#.......FI.e....9.... |
| 2500 | 20 20 20 46 49 20 ff ff 60 9a ff 3e 00 20 20 46 49 20 20 46 49 20 ff ff 70 a6 ff 1f 00 20 20 46 | ...FI...`..>...FI..FI...p......F |
| 2520 | 49 20 6d 65 6e 75 65 2e a0 cb ff 2b 00 20 20 46 49 20 20 46 49 20 ff ff f1 17 ff 0e 00 20 20 46 | I.menue....+...FI..FI..........F |
| 2540 | 49 20 20 46 49 20 ff ff c0 71 ff 18 00 20 20 46 49 20 48 45 4e 20 ff ff 71 16 ff 18 00 20 20 20 | I..FI....q.....FI.HEN...q....... |
| 2560 | 20 20 20 46 49 20 ff ff 61 29 ff 3c 00 20 20 46 49 20 48 45 4e 20 ff ff 71 1e ff 2c 00 50 45 52 | ...FI...a).<...FI.HEN...q..,.PER |
| 2580 | 20 2e 48 45 4e 20 ff ff 41 18 ff 24 00 7a 65 69 67 65 6d 65 6e 75 65 2e 71 2b ff 1b 00 7a 65 69 | ..HEN...A..$.zeigemenue.q+...zei |
| 25a0 | 67 65 6d 65 6e 75 65 2e c1 16 ff 3c 00 20 20 46 49 20 6d 65 6e 75 65 2e 81 23 07 20 20 20 20 46 | gemenue....<...FI.menue..#.....F |
| 25c0 | 49 20 6d 65 6e 75 65 2e 70 9b 07 20 20 50 45 52 20 2e 6d 65 6e 75 65 2e 01 1b ff 2d 00 7a 65 69 | I.menue.p....PER..menue....-.zei |
| 25e0 | 67 65 6d 65 6e 75 65 2e c1 2b ff 1f 00 7a 65 69 67 65 6d 65 6e 75 65 2e 41 2a ff 20 00 7a 65 69 | gemenue..+...zeigemenue.A*...zei |
| 2600 | 67 65 6d 65 6e 75 65 2e d1 23 ff 1f 00 20 20 20 54 48 45 4e 20 2a 29 2e c0 9b ff 20 00 7a 65 69 | gemenue..#......THEN.*)......zei |
| 2620 | 67 65 6d 65 6e 75 65 2e 31 21 ff 2d 00 7a 65 69 67 65 6d 65 6e 75 65 2e 21 20 ff 2e 00 7a 65 69 | gemenue.1!.-.zeigemenue.!....zei |
| 2640 | 67 65 6d 65 6e 75 65 2e b1 29 0d 20 20 7a 65 69 67 65 6d 65 6e 75 65 2e c1 1e ff 39 00 7a 65 69 | gemenue..)...zeigemenue....9.zei |
| 2660 | 67 65 6d 65 6e 75 65 2e 01 2c ff 16 00 7a ff ff ff ff ff ff ff ff ff ff 41 2c 03 7a 5a 7a ff ff | gemenue..,...z..........A,.zZz.. |
| 2680 | ff ff ff ff ff ff ff ff 50 9c ff 16 00 7a ff ff ff ff ff ff ff ff ff ff 11 24 03 7a 5a 7a ff ff | ........P....z...........$.zZz.. |
| 26a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 44 61 73 20 4d 6f 64 65 6c 6c 20 22 52 61 | ................N.Das.Modell."Ra |
| 26c0 | 64 69 6f 61 6b 74 69 76 65 72 20 5a 65 72 66 61 6c 6c 22 20 62 65 73 63 68 72 65 69 62 74 20 64 | dioaktiver.Zerfall".beschreibt.d |
| 26e0 | 69 65 20 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 20 65 69 6e 65 72 20 ff ff ff ff ff ff ff | ie.Geschwindigkeit.einer........ |
| 2700 | 4e 00 72 61 64 69 6f 61 6b 74 69 76 65 6e 20 5a 65 72 66 61 6c 6c 73 72 65 61 6b 74 69 6f 6e 2c | N.radioaktiven.Zerfallsreaktion, |
| 2720 | 20 64 69 65 20 64 75 72 63 68 20 64 69 65 20 44 69 66 66 65 72 65 6e 74 69 61 6c 67 6c 65 69 63 | .die.durch.die.Differentialgleic |
| 2740 | 68 75 6e 67 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 2d 20 64 4e 2f 64 74 20 3d 20 6b | hung.................-.dN/dt.=.k |
| 2760 | 20 4e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 63 68 61 72 61 6b 74 65 72 69 73 69 65 72 | .N..............N.charakterisier |
| 2780 | 74 20 69 73 74 2e 20 44 69 65 20 47 72 da fb 65 20 4e 20 73 74 65 68 74 20 66 db 72 20 64 69 65 | t.ist..Die.Gr..e.N.steht.f.r.die |
| 27a0 | 20 5a 61 68 6c 20 64 65 72 20 72 61 64 69 6f 61 6b 74 69 76 65 6e 20 65 6e 20 ff ff ff ff ff ff | .Zahl.der.radioaktiven.en....... |
| 27c0 | 4e 00 41 74 6f 6d 65 20 28 5a 61 68 6c 20 64 65 72 20 41 74 6f 6d 65 20 64 65 73 20 52 61 64 69 | N.Atome.(Zahl.der.Atome.des.Radi |
| 27e0 | 6f 6e 75 6b 6c 69 64 73 29 2c 20 64 69 65 20 47 72 da fb 65 20 6b 20 66 db 72 20 64 69 65 20 69 | onuklids),.die.Gr..e.k.f.r.die.i |
| 2800 | 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 50 72 6f 70 6f 72 74 69 6f 6e 61 6c 69 74 | e...............N.Proportionalit |
| 2820 | d9 74 73 2d 20 6f 64 65 72 20 5a 65 72 66 61 6c 6c 73 6b 6f 6e 73 74 61 6e 74 65 20 75 6e 64 20 | .ts-.oder.Zerfallskonstante.und. |
| 2840 | 74 20 66 db 72 20 64 69 65 20 5a 65 69 74 2e 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff | t.f.r.die.Zeit.................. |
| 2860 | 4e 00 44 69 65 20 5a 61 68 6c 20 64 65 72 20 5a 65 72 66 d9 6c 6c 65 2c 20 64 69 65 20 69 6e 20 | N.Die.Zahl.der.Zerf.lle,.die.in. |
| 2880 | 65 69 6e 65 72 20 5a 65 69 74 65 69 6e 68 65 69 74 20 7a 75 20 76 65 72 7a 65 69 63 68 6e 65 6e | einer.Zeiteinheit.zu.verzeichnen |
| 28a0 | 20 73 69 6e 64 2c 20 20 ff ff ff ff ff ff ff ff 4e 00 62 65 7a 65 69 63 68 6e 65 74 20 6d 61 6e | .sind,..........N.bezeichnet.man |
| 28c0 | 20 61 6c 73 20 41 6b 74 69 76 69 74 d9 74 20 65 69 6e 65 72 20 50 72 6f 62 65 2e 20 46 db 72 20 | .als.Aktivit.t.einer.Probe..F.r. |
| 28e0 | 64 69 65 20 41 6b 74 69 76 69 74 d9 74 20 41 20 67 69 6c 74 3a 20 74 3a 20 ff ff ff ff ff ff ff | die.Aktivit.t.A.gilt:.t:........ |
| 2900 | 1e 00 20 20 20 41 20 3d 20 2d 20 64 4e 2f 64 74 20 3d 20 6b 20 4e 2e 20 ff ff ff ff ff ff ff ff | .....A.=.-.dN/dt.=.k.N.......... |
| 2920 | 4e 00 54 45 58 54 20 43 4f 4e 53 54 20 65 73 63 20 3a 3d 20 63 6f 64 65 20 28 32 37 29 2c 20 70 | N.TEXT.CONST.esc.:=.code.(27),.p |
| 2940 | 69 65 70 20 3a 3d 20 63 6f 64 65 20 28 37 29 3b 20 28 2a 46 52 41 47 45 20 68 77 7a 2d 41 62 66 | iep.:=.code.(7);.(*FRAGE.hwz-Abf |
| 2960 | 72 61 67 65 3f 3f 2a 29 ff ff ff ff ff ff ff ff 2e 00 54 45 58 54 20 43 4f 4e 53 54 20 65 73 63 | rage??*)..........TEXT.CONST.esc |
| 2980 | 20 3a 3d 20 63 6f 64 65 20 28 32 37 29 2c 20 70 69 65 70 20 3a 3d 20 63 6f 64 65 20 28 37 29 3b | .:=.code.(27),.piep.:=.code.(7); |
| 29a0 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 65 74 61 73 74 65 20 3d 20 22 78 22 2c 22 2c | >............sendetaste.=."x",", |
| 29c0 | 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 3d 20 22 73 22 2c 20 ff ff ff ff | .modellgroessentaste.=."s",..... |
| 29e0 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 65 74 61 73 74 65 20 3d 20 22 78 22 2c ff ff | .............sendetaste.=."x",.. |
| 2a00 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 | >............darstellungsarttast |
| 2a20 | 65 20 3d 20 22 6e 22 2c 20 6d 65 6e 75 65 74 61 73 74 65 20 3d 20 22 6d 22 2c 20 2c 20 ff ff ff | e.=."n",.menuetaste.=."m",.,.... |
| 2a40 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 | >............darstellungsarttast |
| 2a60 | 65 20 3d 20 22 6e 22 2c 20 6d 65 6e 75 65 74 61 73 74 65 20 3d 20 22 6d 22 2c 20 2c 20 ff ff ff | e.=."n",.menuetaste.=."m",.,.... |
| 2a80 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 | >............darstellungsarttast |
| 2aa0 | 65 20 3d 20 22 6e 22 2c 20 6d 65 6e 75 65 74 61 73 74 65 20 3d 20 22 6d 22 2c 20 ff ff ff ff ff | e.=."n",.menuetaste.=."m",...... |
| 2ac0 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 3d 20 22 | >............mdlgroesseneinbl=." |
| 2ae0 | 65 22 2c 20 72 75 62 6f 75 74 20 3d 20 22 6c 22 3b 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | e",.rubout.=."l";,.............. |
| 2b00 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 3d 20 22 2b 22 2c 20 | .............zeigezusatz.=."+",. |
| 2b20 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 68 6c 65 72 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 | >............fehler.ymax.kleiner |
| 2b40 | 20 31 20 3d 20 74 22 2c 20 79 61 63 68 73 65 6e 62 65 7a 20 3d 20 22 41 3a 61 22 20 2c 20 ff ff | .1.=.t",.yachsenbez.=."A:a".,... |
| 2b60 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 68 6c 65 72 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 | >............fehler.ymax.kleiner |
| 2b80 | 20 31 20 3d 20 75 62 6f 75 74 20 3d 20 22 6c 22 3b 3b 41 3a 61 22 20 2c 20 ff ff ff ff ff ff ff | .1.=.ubout.=."l";;A:a".,........ |
| 2ba0 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 68 6c 65 72 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 | .............fehler.ymax.kleiner |
| 2bc0 | 20 31 20 3d 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 22 20 20 20 20 20 20 20 20 20 64 61 20 6b | .1.=............N.".........da.k |
| 2be0 | 65 69 6e 65 20 61 75 73 72 65 69 63 68 65 6e 64 65 20 5a 61 68 6c 20 61 6e 20 4c 6f 65 73 75 6e | eine.ausreichende.Zahl.an.Loesun |
| 2c00 | 67 73 70 75 6e 6b 74 65 6e 20 76 6f 72 6c 69 65 67 74 21 22 2c 20 ff ff ff ff ff ff ff ff ff ff | gspunkten.vorliegt!",........... |
| 2c20 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 20 20 20 3d 20 30 | .............fusszeileleer...=.0 |
| 2c40 | 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 64 75 72 | ,............................dur |
| 2c60 | 63 68 67 65 7a 6f 67 65 6e 20 20 20 20 3d 20 31 2c 20 2c ff ff ff ff ff ff ff ff ff ff ff ff ff | chgezogen....=.1,.,............. |
| 2c80 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 20 20 20 20 20 3d 20 31 | .............steuerzeile.....=.1 |
| 2ca0 | 39 20 2c ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 73 74 65 | 9.,.............N............ste |
| 2cc0 | 75 65 72 7a 65 69 6c 65 64 65 6d 6f 20 3d 20 33 2c 20 6b 6f 70 66 7a 65 69 6c 65 20 3d 20 32 35 | uerzeiledemo.=.3,.kopfzeile.=.25 |
| 2ce0 | 2c 20 66 61 6c 73 63 68 65 74 61 73 74 65 20 3d 20 31 38 2c 20 ff ff ff ff ff ff ff ff ff ff ff | ,.falschetaste.=.18,............ |
| 2d00 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 68 61 75 70 74 66 65 6e 73 74 65 72 20 20 20 20 3d 20 31 | .............hauptfenster....=.1 |
| 2d20 | 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 61 62 73 | ,...............N............abs |
| 2d40 | 74 61 6e 64 20 3d 20 30 2e 31 2c 20 65 70 73 69 6c 6f 6e 20 3d 20 30 2e 35 2c 20 20 3d 20 32 35 | tand.=.0.1,.epsilon.=.0.5,..=.25 |
| 2d60 | 2c 20 66 61 6c 73 63 68 65 74 61 73 74 65 20 3d 20 31 38 2c 20 20 20 3d 20 31 39 20 2c ff ff ff | ,.falschetaste.=.18,...=.19.,... |
| 2d80 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 65 70 73 69 6c 6f 6e 20 3d 20 30 2e 35 2c 20 ff ff ff ff | .............epsilon.=.0.5,..... |
| 2da0 | 4e 00 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 4f 55 54 50 55 54 20 56 41 52 20 73 | N.PROC.zeigedarst4.(OUTPUT.VAR.s |
| 2dc0 | 65 69 74 65 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 2c 20 4b 55 52 56 45 20 56 41 52 | eite,.BOOL.VAR.indemo,.KURVE.VAR |
| 2de0 | 20 6c 73 67 6b 75 72 76 65 29 3a 20 ff ff ff ff 4e 00 20 20 52 45 41 4c 20 56 41 52 20 75 31 2c | .lsgkurve):.....N...REAL.VAR.u1, |
| 2e00 | 20 75 32 2c 20 7a 31 2c 20 7a 32 2c 20 67 20 3d 20 38 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 | .u2,.z1,.z2,.g.=.8,.nachkommaste |
| 2e20 | 6c 6c 65 6e 20 3d 20 32 2c 20 76 6f 72 6b 6f 6d 6d 61 20 3d 20 35 3b 72 76 65 29 2c ff ff ff ff | llen.=.2,.vorkomma.=.5;rve),.... |
| 2e40 | 2e 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c | ....initialisiere.ausgabevariabl |
| 2e60 | 65 3b 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 62 65 67 72 65 6e 7a 65 20 61 75 73 | e;;.................begrenze.aus |
| 2e80 | 67 61 62 65 66 65 6e 73 74 65 72 3b ff ff ff ff 1e 00 20 20 62 65 73 74 69 6d 6d 65 20 61 75 73 | gabefenster;........bestimme.aus |
| 2ea0 | 67 61 62 65 61 75 73 73 63 68 6e 69 74 74 3b ff 1e 00 20 20 70 6c 6f 74 74 65 20 20 20 6b 6f 6f | gabeausschnitt;.....plotte...koo |
| 2ec0 | 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b 20 ff 1e 00 20 20 62 65 73 74 69 6d 6d 65 20 61 75 73 | rdinatenkreuz;......bestimme.aus |
| 2ee0 | 67 61 62 65 61 75 73 73 63 68 6e 69 74 74 3b ff 1e 00 20 20 62 65 73 74 69 6d 6d 65 20 61 75 73 | gabeausschnitt;.....bestimme.aus |
| 2f00 | 67 61 62 65 61 75 73 73 63 68 6e 69 74 74 3b 3a 3e 00 20 20 70 6c 6f 74 74 65 20 20 20 6b 6f 6f | gabeausschnitt;:>...plotte...koo |
| 2f20 | 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b 61 72 73 74 3b 20 20 20 70 75 74 28 22 6e 61 63 68 20 | rdinatenkreuz;arst;...put("nach. |
| 2f40 | 33 2e 20 22 29 3b 70 61 75 73 65 3b ff ff ff ff 2e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 20 | 3..");pause;......initialisiere. |
| 2f60 | 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3a 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ausgabevariable::............... |
| 2f80 | 1e 00 20 20 76 69 65 77 70 6f 72 74 20 28 75 31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b ff ff | ....viewport.(u1,.u2,.z1,.z2);.. |
| 2fa0 | 2e 00 20 20 6e 69 6c 64 69 61 67 72 61 6d 6d 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 | ....nildiagramm.(seite,.strukt1f |
| 2fc0 | 65 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff 1e 00 20 20 76 69 65 77 70 6f 72 74 20 28 75 31 | enster);............viewport.(u1 |
| 2fe0 | 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b ff ff 2e 00 20 20 76 69 65 77 70 6f 72 74 20 28 75 31 | ,.u2,.z1,.z2);......viewport.(u1 |
| 3000 | 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b 65 3a 65 6e 73 74 65 72 29 3b 2e ff ff ff ff ff ff ff | ,.u2,.z1,.z2);e:enster);........ |
| 3020 | 1e 00 65 72 6d 69 74 74 6c 65 20 79 6d 61 78 20 79 6d 69 6e 3a 20 ff ff ff ff ff ff ff ff ff ff | ..ermittle.ymax.ymin:........... |
| 3040 | 3e 00 20 20 65 72 6d 69 74 74 6c 65 20 67 65 72 61 64 65 6e 76 65 72 6c 61 75 66 3b 6c 77 65 72 | >...ermittle.geradenverlauf;lwer |
| 3060 | 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 42 20 31 29 2c ff ff ff ff ff ff ff ff ff ff ff | te.(lsgkurve).SUB.1),........... |
| 3080 | 3e 00 20 20 65 72 6d 69 74 74 6c 65 20 66 65 6e 73 74 65 72 72 61 6e 64 20 72 65 63 68 74 73 20 | >...ermittle.fensterrand.rechts. |
| 30a0 | 6c 69 6e 6b 73 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 ff ff ff ff | links;.********************).... |
| 30c0 | 4e 00 20 20 65 72 6d 69 74 74 6c 65 20 66 65 6e 73 74 65 72 72 61 6e 64 20 6f 62 65 6e 20 75 6e | N...ermittle.fensterrand.oben.un |
| 30e0 | 74 65 6e 3b 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 74 61 65 74 | ten;...********************)taet |
| 3100 | 29 3b 20 3e 3d 20 31 20 69 73 74 ff ff ff ff ff 4e 00 20 20 65 72 6d 69 74 74 6c 65 20 67 65 72 | );.>=.1.ist.....N...ermittle.ger |
| 3120 | 61 64 65 6e 76 65 72 6c 61 75 66 3b 2e 72 73 74 3a 20 6e 3b 20 20 20 20 2e 20 20 20 20 20 20 20 | adenverlauf;.rst:.n;............ |
| 3140 | 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 79 6d 69 6e 20 3e 3d 20 31 20 69 73 74 2a 29 ff ff ff | ...........(*.ymin.>=.1.ist*)... |
| 3160 | 2e 00 65 72 6d 69 74 74 6c 65 20 79 6d 61 78 20 79 6d 69 6e 3a 20 72 6c 61 75 66 3b 6e 20 75 6e | ..ermittle.ymax.ymin:.rlauf;n.un |
| 3180 | 74 65 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 79 6d 69 | ten;............N............ymi |
| 31a0 | 6e 20 3a 3d 20 28 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 | n.:=.(minimalwerte.(lsgkurve).SU |
| 31c0 | 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b 20 3e 3d 20 31 20 69 73 74 ff ff ff ff ff | B.var.aktivitaet);.>=.1.ist..... |
| 31e0 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 6c 6f | .............fenster.unten.:=.lo |
| 3200 | 67 31 30 20 28 79 6d 69 6e 29 3b 20 ff ff ff ff 2e 00 20 20 49 46 20 66 65 6e 73 74 65 72 20 6f | g10.(ymin);.........IF.fenster.o |
| 3220 | 62 65 6e 20 2d 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3e 20 33 2e 30 20 ff ff ff ff ff ff | ben.-.fenster.unten.>.3.0....... |
| 3240 | 4e 00 65 72 6d 69 74 74 6c 65 20 66 65 6e 73 74 65 72 72 61 6e 64 20 6f 62 65 6e 20 75 6e 74 65 | N.ermittle.fensterrand.oben.unte |
| 3260 | 6e 3a 20 29 3b 20 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 79 6d | n:.);......................(*.ym |
| 3280 | 69 6e 20 3e 3d 20 31 20 69 73 74 2a 29 ff ff ff 4e 00 20 20 66 65 6e 73 74 65 72 20 6f 62 65 6e | in.>=.1.ist*)...N...fenster.oben |
| 32a0 | 20 20 3a 3d 20 6c 6f 67 31 30 20 28 79 6d 61 78 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..:=.log10.(ymax);.............. |
| 32c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 56 6f 72 61 75 73 73 65 74 7a 75 6e 67 20 2a 29 ff ff ff | .............Voraussetzung.*)... |
| 32e0 | 2e 00 65 72 6d 69 74 74 6c 65 20 66 65 6e 73 74 65 72 72 61 6e 64 20 6f 62 65 6e 20 75 6e 74 65 | ..ermittle.fensterrand.oben.unte |
| 3300 | 6e 3a 20 62 65 6e 20 2d 20 33 2e 30 20 3b 20 ff 4e 00 20 20 20 20 20 54 48 45 4e 20 66 65 6e 73 | n:.ben.-.3.0.;..N......THEN.fens |
| 3320 | 74 65 72 20 6f 62 65 6e 20 3a 3d 20 66 6c 6f 6f 72 20 28 66 65 6e 73 74 65 72 20 6f 62 65 6e 20 | ter.oben.:=.floor.(fenster.oben. |
| 3340 | 2b 20 31 2e 30 29 20 68 73 74 68 da 68 65 72 65 20 67 61 6e 7a 65 20 5a 61 68 6c 2a 29 ff ff ff | +.1.0).hsth.here.ganze.Zahl*)... |
| 3360 | 1e 00 65 72 6d 69 74 74 6c 65 20 67 65 72 61 64 65 6e 76 65 72 6c 61 75 66 3a ff ff ff ff ff ff | ..ermittle.geradenverlauf:...... |
| 3380 | 1e 00 20 20 72 69 63 68 74 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3b ff ff | ....richte.geradenpicture.ein;.. |
| 33a0 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 6c 6f | .............fenster.unten.:=.lo |
| 33c0 | 67 31 30 20 28 79 6d 69 6e 29 3b 20 20 3b 20 ff 2e 00 20 20 73 63 68 72 65 69 62 65 20 67 65 72 | g10.(ymin);..;......schreibe.ger |
| 33e0 | 61 64 65 6e 70 69 63 74 75 72 65 20 69 6e 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b ff | adenpicture.in.ausgabevariable;. |
| 3400 | 2e 00 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 66 65 6e 73 74 65 | .........fenster.unten.:=.fenste |
| 3420 | 72 20 6f 62 65 6e 20 2d 20 33 2e 30 20 3b 20 ff 2e 00 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 | r.oben.-.3.0.;...........fenster |
| 3440 | 20 75 6e 74 65 6e 20 3a 3d 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 20 2d 20 33 2e 30 20 3b 20 ff | .unten.:=.fenster.oben.-.3.0.;.. |
| 3460 | 2e 00 20 20 72 69 63 68 74 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3b 7a 65 | ....richte.geradenpicture.ein;ze |
| 3480 | 69 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 72 69 63 68 74 65 20 67 65 72 61 64 65 6e | it;...............richte.geraden |
| 34a0 | 70 69 63 74 75 72 65 20 65 69 6e 3a ff ff ff ff 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 | picture.ein:....N...PICTURE.VAR. |
| 34c0 | 66 75 6e 6b 74 69 6f 6e 3b 72 65 20 69 6e 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b 2e | funktion;re.in.ausgabevariable;. |
| 34e0 | 74 20 42 4f 55 4e 44 20 56 41 52 20 6e 6f 74 77 65 6e 64 69 67 20 3f 3f 20 2a 29 ff ff ff ff ff | t.BOUND.VAR.notwendig.??.*)..... |
| 3500 | 1e 00 20 20 66 6f 72 67 65 74 20 28 22 50 49 43 54 55 52 45 22 2c 20 71 75 69 65 74 29 3b ff ff | ....forget.("PICTURE",.quiet);.. |
| 3520 | 1e 00 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e 65 77 20 28 22 50 49 43 54 55 52 45 22 29 3b | ....funktion.:=.new.("PICTURE"); |
| 3540 | 1e 00 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 20 ff ff ff ff | ....funktion.:=.nilpicture;..... |
| 3560 | 2e 00 20 20 52 45 41 4c 20 56 41 52 20 7a 65 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3d | ....REAL.VAR.zeit.............:= |
| 3580 | 20 30 2e 30 2c 20 76 61 72 69 61 62 6c 65 3b ff 2e 00 74 72 61 67 65 20 70 75 6e 6b 74 65 20 69 | .0.0,.variable;...trage.punkte.i |
| 35a0 | 6e 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3a ff ff ff ff ff ff ff ff ff ff ff | n.geradenpicture.ein:........... |
| 35c0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 65 72 73 74 65 72 20 6c 73 67 70 75 6e 6b 74 20 20 3a 3a | N............erster.lsgpunkt..:: |
| 35e0 | 20 30 2e 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 45 72 67 61 65 6e 7a 75 | .0.0,.................1.Ergaenzu |
| 3600 | 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 65 72 73 | ngsvariable.*)..N............ers |
| 3620 | 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 20 3a 3a 20 30 2e 30 3b 20 75 73 74 61 6e 64 20 28 32 29 | ter.zeitpunkt.::.0.0;.ustand.(2) |
| 3640 | 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 20 70 6c 75 73 20 3f 3f 20 2a 29 ff ff ff ff ff | ;..(*.1.Variable.plus.??.*)..... |
| 3660 | 1e 00 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 20 2c ff ff ff | ....funktion.:=.nilpicture;.,... |
| 3680 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 79 77 65 72 74 20 20 20 20 3a 3d 20 30 2e 30 3b 20 ff ff | .............ywert....:=.0.0;... |
| 36a0 | 4e 00 20 20 6c 65 73 65 20 65 72 73 74 65 6e 20 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 | N...lese.ersten.(lsg.kurve,.zeit |
| 36c0 | 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b 29 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 | ,.akt.zustand););..(*.1.Variable |
| 36e0 | 20 70 6c 75 73 72 69 61 62 6c 65 20 2a 29 20 ff 4e 00 20 20 79 20 77 65 72 74 20 20 20 3a 3d 20 | .plusriable.*)..N...y.wert...:=. |
| 3700 | 6c 6f 67 20 31 30 20 28 61 6b 74 20 7a 75 73 74 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 | log.10.(akt.zustand.SUB.var.akti |
| 3720 | 76 69 74 61 65 74 29 3b 45 72 67 61 65 6e 7a 75 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff | vitaet);Ergaenzungsvariable.*).. |
| 3740 | 1e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 2c 20 64 75 72 63 68 67 65 7a 6f 67 65 6e 29 3b | ....pen.(0,.1,.0,.durchgezogen); |
| 3760 | 1e 00 20 20 62 65 68 61 6e 64 6c 65 20 65 72 73 74 65 6e 20 70 75 6e 6b 74 3b 20 ff ff ff ff ff | ....behandle.ersten.punkt;...... |
| 3780 | 4e 00 20 20 20 20 20 20 20 20 20 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 65 69 | N..........trage.anfangspunkt.ei |
| 37a0 | 6e 3b 20 72 76 65 29 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b 66 65 6e 73 74 65 72 20 | n;.rve).var.aktivitaet);fenster. |
| 37c0 | 75 6e 74 65 6e 20 52 45 50 20 ff ff ff ff ff ff 1e 00 20 20 52 45 41 4c 20 56 41 52 20 7a 65 69 | unten.REP...........REAL.VAR.zei |
| 37e0 | 74 20 20 20 20 20 3a 3d 20 30 2e 30 2c 20 ff ff 1e 00 20 20 20 20 6c 65 73 65 6e 61 65 63 68 73 | t.....:=.0.0,.........lesenaechs |
| 3800 | 74 65 6e 70 75 6e 6b 74 3b ff ff ff ff ff ff ff 1e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 | tenpunkt;...........pen.(0,.1,.0 |
| 3820 | 2c 20 64 75 72 63 68 67 65 7a 6f 67 65 6e 29 3b 3e 00 20 20 6c 65 73 65 6e 61 65 63 68 73 74 65 | ,.durchgezogen);>...lesenaechste |
| 3840 | 6e 20 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 | n.(lsg.kurve,.zeit,.akt.zustand) |
| 3860 | 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 74 72 61 67 65 66 6f 6c 67 65 | ;.....................tragefolge |
| 3880 | 70 75 6e 6b 74 65 69 6e 20 3b ff ff ff ff ff ff 2e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 | punktein.;..........pen.(0,.1,.0 |
| 38a0 | 2c 20 64 75 72 63 68 67 65 7a 6f 67 65 6e 29 3b 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b ff | ,.durchgezogen);,.akt.zustand);. |
| 38c0 | 1e 00 20 20 20 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 3b 3b 20 67 65 6e 29 3b | ......lesenaechstenpunkt;;.gen); |
| 38e0 | 2e 00 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 3a 6f 65 73 75 6e 67 20 28 6c 73 67 | ..lesenaechstenpunkt:oesung.(lsg |
| 3900 | 20 6b 75 72 76 65 29 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 54 48 45 4e 20 6c 65 73 65 20 | .kurve)...............THEN.lese. |
| 3920 | 6e 61 65 63 68 73 74 65 6e 20 70 75 6e 6b 74 ff 1e 00 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 | naechsten.punkt...trage.anfangsp |
| 3940 | 75 6e 6b 74 20 65 69 6e 3a 20 ff ff ff ff ff ff 2e 00 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 | unkt.ein:.........lesenaechstenp |
| 3960 | 75 6e 6b 74 3a 6b 74 3a 20 65 2c 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b ff | unkt:kt:.e,.zeit,.akt.zustand);. |
| 3980 | 1e 00 20 20 49 46 20 79 77 65 72 74 20 3e 3d 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e ff ff ff | ....IF.ywert.>=.fenster.unten... |
| 39a0 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 7a 77 65 69 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 20 3a | .............zweiter.zeitpunkt.: |
| 39c0 | 3a 20 30 2e 30 20 3b 20 29 20 3b 20 ff ff ff ff 1e 00 74 72 61 67 65 20 66 6f 6c 67 65 70 75 6e | :.0.0.;.).;.......trage.folgepun |
| 39e0 | 6b 74 20 65 69 6e 20 3a 20 ff ff ff ff ff ff ff 2e 00 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 | kt.ein.:..........trage.anfangsp |
| 3a00 | 75 6e 6b 74 20 65 69 6e 3a 20 3b 20 6e 6b 74 3b 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b ff | unkt.ein:.;.nkt;,.akt.zustand);. |
| 3a20 | 1e 00 20 20 49 46 20 79 77 65 72 74 20 3e 3d 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e ff ff ff | ....IF.ywert.>=.fenster.unten... |
| 3a40 | 2e 00 20 20 20 20 54 48 45 4e 20 6c 65 73 65 20 6e 61 65 63 68 73 74 65 6e 20 70 75 6e 6b 74 3b | ......THEN.lese.naechsten.punkt; |
| 3a60 | 20 6b 75 72 76 65 29 20 29 20 3b 20 ff ff ff ff 2e 00 20 20 20 20 20 20 20 6d 6f 76 65 20 28 20 | .kurve).).;..............move.(. |
| 3a80 | 66 75 6e 6b 74 69 6f 6e 20 2c 20 7a 65 69 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 ff ff ff ff | funktion.,.zeit.,.ywert.).;..... |
| 3aa0 | 2e 00 20 20 20 20 20 20 20 20 20 7a 77 65 69 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 20 3a 3d 20 | ...........zweiter.zeitpunkt.:=. |
| 3ac0 | 7a 65 69 74 3b 2a 2a 2a 2a 29 ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | zeit;****)......N............... |
| 3ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 20 53 74 65 69 67 75 6e 67 73 64 | ..................des.Steigungsd |
| 3b00 | 72 65 69 65 63 6b 73 20 62 65 72 65 63 68 6e 65 74 2a 29 65 6e 20 6d 69 74 20 48 69 6c 66 65 ff | reiecks.berechnet*)en.mit.Hilfe. |
| 3b20 | 3e 00 20 20 49 46 20 79 77 65 72 74 20 3e 3d 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 75 73 74 | >...IF.ywert.>=.fenster.untenust |
| 3b40 | 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b ff ff ff ff ff ff ff ff | and.SUB.var.aktivitaet);........ |
| 3b60 | 4e 00 20 20 20 52 45 41 4c 20 56 41 52 20 68 77 7a 20 3a 3a 20 28 6c 6f 67 20 31 30 20 28 30 2e | N....REAL.VAR.hwz.::.(log.10.(0. |
| 3b80 | 35 20 2a 20 65 72 73 74 65 72 20 6c 73 67 70 75 6e 6b 74 29 20 6b 73 20 62 65 72 65 63 68 6e 65 | 5.*.erster.lsgpunkt).ks.berechne |
| 3ba0 | 74 2a 29 6b 74 29 29 68 6e 65 74 2a 29 ff ff ff 2e 00 20 20 49 46 20 79 77 65 72 74 20 3e 3d 20 | t*)kt))hnet*).......IF.ywert.>=. |
| 3bc0 | 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 20 2c 20 79 77 65 72 74 29 3b 20 29 ff ff ff ff ff ff | fenster.unten..,.ywert);.)...... |
| 3be0 | 2e 00 20 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .......(************************ |
| 3c00 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 20 ff ff ff ff ff 2e 00 20 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a | *********).............(******** |
| 3c20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 6c 65 3a ff ff ff | *************************)le:... |
| 3c40 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 70 75 6e 6b 74 20 3a 3d 20 54 52 55 45 20 ff | ..............vorpunkt.:=.TRUE.. |
| 3c60 | 1e 00 20 20 20 20 20 45 4c 53 45 20 76 6f 72 70 75 6e 6b 74 20 3a 3d 20 46 41 4c 53 45 20 ff ff | .......ELSE.vorpunkt.:=.FALSE... |
| 3c80 | 2e 00 20 20 20 20 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77 65 72 74 20 2c | .......move.(.funktion.,.xwert., |
| 3ca0 | 20 79 77 65 72 74 20 29 20 3b 20 65 3a ff ff ff 1e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 | .ywert.).;.e:.......PICTURE.VAR. |
| 3cc0 | 74 72 61 6e 73 66 65 72 3b ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 76 6f | transfer;.....................vo |
| 3ce0 | 72 70 75 6e 6b 74 20 3a 3d 20 54 52 55 45 20 ff 2e 00 62 65 73 74 69 6d 6d 65 20 61 75 73 67 61 | rpunkt.:=.TRUE....bestimme.ausga |
| 3d00 | 62 65 61 75 73 73 63 68 6e 69 74 74 3a 20 6e 73 74 65 72 2c 20 74 72 61 6e 73 66 65 72 29 3b ff | beausschnitt:.nster,.transfer);. |
| 3d20 | 4e 00 20 20 20 20 20 20 20 54 48 45 4e 20 6d 6f 76 65 63 6d 72 20 28 66 75 6e 6b 74 69 6f 6e 2c | N........THEN.movecmr.(funktion, |
| 3d40 | 20 2d 31 2e 30 20 2a 20 72 65 61 6c 28 6c 65 6e 67 74 68 20 28 68 77 7a 20 74 65 78 74 29 20 2b | .-1.0.*.real(length.(hwz.text).+ |
| 3d60 | 20 31 29 20 2a 6c 69 6e 6b 73 29 29 20 ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .1).*links))....N............... |
| 3d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c | .................standardbreite, |
| 3da0 | 20 30 2e 30 29 3b 63 68 74 73 20 2d 20 66 65 6e 73 74 65 72 20 6c 69 6e 6b 73 29 29 20 ff ff ff | .0.0);chts.-.fenster.links)).... |
| 3dc0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N............................... |
| 3de0 | 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 77 7a 20 74 65 78 74 29 20 2b | .standardbreite,.0.0);wz.text).+ |
| 3e00 | 20 31 29 20 2a 29 3b 29 20 3b 20 ff ff ff ff ff 1e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 | .1).*);).;..........transfer.:=. |
| 3e20 | 66 75 6e 6b 74 69 6f 6e 3b 3a 20 ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 45 4c 53 45 20 6d 6f | funktion;:......N........ELSE.mo |
| 3e40 | 76 65 63 6d 72 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 31 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 | vecmr.(funktion,.1.0.*.standardb |
| 3e60 | 72 65 69 74 65 2c 20 30 2e 30 29 3b 61 72 64 62 72 65 69 74 65 29 3b 29 20 3b 20 67 3b ff ff ff | reite,.0.0);ardbreite);).;.g;... |
| 3e80 | 4e 00 73 63 68 72 65 69 62 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 69 6e 20 61 75 73 | N.schreibe.geradenpicture.in.aus |
| 3ea0 | 67 61 62 65 76 61 72 69 61 62 6c 65 3a 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 | gabevariable:ardhoehe,.standardb |
| 3ec0 | 72 65 69 74 65 29 3b 69 67 75 6e 67 3b ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | reite);igung;...>............... |
| 3ee0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 3f00 | 20 20 20 20 20 20 20 20 3f 3f 20 20 20 2a 29 ff 4e 00 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ........??...*).N.(************* |
| 3f20 | 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 57 49 4e 44 4f 57 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ********...WINDOW....*********** |
| 3f40 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 69 74 20 48 69 6c 66 65 ff ff ff | ********************)it.Hilfe... |
| 3f60 | 4e 00 62 65 73 74 69 6d 6d 65 20 61 75 73 67 61 62 65 61 75 73 73 63 68 6e 69 74 74 3a 65 6e 73 | N.bestimme.ausgabeausschnitt:ens |
| 3f80 | 74 65 72 2c 20 66 75 6e 6b 74 69 6f 6e 29 3b 2e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ter,.funktion);.**************** |
| 3fa0 | 2a 2a 2a 2a 29 29 2b 68 6e 65 74 2a 29 ff ff ff 2e 00 70 6c 6f 74 74 65 20 6b 6f 6f 72 64 69 6e | ****))+hnet*).....plotte.koordin |
| 3fc0 | 61 74 65 6e 6b 72 65 75 7a 3a 20 6c 70 69 63 74 75 72 65 3b 72 65 63 68 74 73 2c 20 ff ff ff ff | atenkreuz:.lpicture;rechts,..... |
| 3fe0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N............................... |
| 4000 | 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 2c 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 | ....fenster.unten,.fenster.oben) |
| 4020 | 3b 2e 2a 2a 29 69 74 20 48 69 6c 66 65 ff ff ff 4e 00 70 6c 6f 74 74 65 20 6b 6f 6f 72 64 69 6e | ;.**)it.Hilfe...N.plotte.koordin |
| 4040 | 61 74 65 6e 6b 72 65 75 7a 3a 20 20 20 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 | atenkreuz:..........fenster.unte |
| 4060 | 6e 2c 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 3b 2e 20 29 74 29 29 29 20 3b 20 ff ff ff ff ff | n,.fenster.oben);..)t))).;...... |
| 4080 | 1e 00 70 6c 6f 74 74 65 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3a 20 ff ff ff ff ff | ..plotte.koordinatenkreuz:...... |
| 40a0 | 2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 | ....PICTURE.VAR.kreuz.:=.nilpict |
| 40c0 | 75 72 65 3b ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 70 65 6e 20 28 6b 72 65 75 7a 2c 20 | ure;................pen.(kreuz,. |
| 40e0 | 31 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | 1);.............N.(************* |
| 4100 | 2a 2a 2a 2a 2a 20 20 20 20 20 47 65 72 61 64 65 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | *****.....Gerade..************** |
| 4120 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 74 29 29 29 20 3b 20 ff ff ff ff ff | *******************)t))).;...... |
| 4140 | 4e 00 70 6c 6f 74 74 65 20 67 65 72 61 64 65 3a 20 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b | N.plotte.gerade:.ordinatenkreuz; |
| 4160 | 2e 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 2c 20 66 65 6e 73 74 65 72 20 6f 62 65 6e | .....fenster.unten,.fenster.oben |
| 4180 | 29 3b 20 29 29 29 29 3f 20 2a 29 ff ff ff ff ff 2e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 73 65 | );.))))?.*).........putkreuz.(se |
| 41a0 | 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a 29 3b 20 ff ff ff | ite,.strukt1fenster,.kreuz);.... |
| 41c0 | 1e 00 28 2a 70 6c 6f 74 20 28 66 75 6e 6b 74 69 6f 6e 29 3b 20 20 20 20 20 20 20 20 20 20 2a 29 | ..(*plot.(funktion);..........*) |
| 41e0 | 1e 00 20 20 70 65 6e 20 28 6b 72 65 75 7a 2c 20 31 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | ....pen.(kreuz,.1);............. |
| 4200 | 1e 00 20 20 70 65 6e 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 31 29 3b ff ff ff ff ff ff ff ff ff ff | ....pen.(funktion,.1);.......... |
| 4220 | 2e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 20 2c 20 70 65 6e 20 28 66 75 6e 6b 74 69 6f 6e | ....pen.(0,.1,.0.,.pen.(funktion |
| 4240 | 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 70 6c 6f 74 20 28 66 75 6e 6b 74 69 | ));.................plot.(funkti |
| 4260 | 6f 6e 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 62 65 73 63 68 72 69 66 74 65 20 6b 6f 6f | on);..............beschrifte.koo |
| 4280 | 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3a ff ff 2e 00 70 6c 6f 74 74 65 20 67 65 72 61 64 65 3a | rdinatenkreuz:....plotte.gerade: |
| 42a0 | 20 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b ff ff ff ff ff ff ff ff ff ff | .egende.:=.nilpicture;.......... |
| 42c0 | 1e 00 20 20 70 65 6e 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 31 29 3b ff ff ff ff ff ff ff ff ff ff | ....pen.(funktion,.1);.......... |
| 42e0 | 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 65 6e 64 65 2c 20 2d 20 36 2e 30 20 2a 20 73 74 | N...movecmr.(legende,.-.6.0.*.st |
| 4300 | 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 31 2e 30 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 | andardbreite,.-.1.0*.standardhoe |
| 4320 | 68 65 29 3b 65 29 2b 3f 3f 2a 29 2a 29 ff ff ff 4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64 | he);e)+??*)*)...N...draw.(legend |
| 4340 | 65 20 2c 20 78 61 63 68 73 65 6e 62 65 7a 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 | e.,.xachsenbez,.0.0,.standardhoe |
| 4360 | 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 68 74 20 3f 3f 2a 29 69 6e 2c ff ff | he,.standardbreite);ht.??*)in,.. |
| 4380 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 78 20 6d 61 78 20 3a 3d 20 66 65 6e 73 74 65 72 20 72 65 | .............x.max.:=.fenster.re |
| 43a0 | 63 68 74 73 3b ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 54 45 58 54 20 56 41 52 20 77 65 72 | chts;...............TEXT.VAR.wer |
| 43c0 | 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 70 65 6e 20 28 6c 65 67 65 6e 64 65 | t;..................pen.(legende |
| 43e0 | 2c 20 31 29 3b 20 69 6e 20 6c 65 67 65 6e 64 65 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ,.1);.in.legende;............... |
| 4400 | 1e 00 62 65 73 63 68 72 69 66 74 65 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3a ff ff | ..beschrifte.koordinatenkreuz:.. |
| 4420 | 2e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 | ....putkreuz.(seite,.strukt1fens |
| 4440 | 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b ff ff 1e 00 28 2a 73 63 68 72 65 69 62 65 76 6d 61 78 | ter,.legende);....(*schreibevmax |
| 4460 | 69 6e 6c 65 67 65 6e 64 65 3a ff ff ff ff ff ff 3e 00 20 20 61 20 3a 3d 20 72 65 61 6c 20 28 6c | inlegende:......>...a.:=.real.(l |
| 4480 | 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 29 20 2a 20 73 74 61 6e 64 61 72 64 | aengebeibeschriftung).*.standard |
| 44a0 | 62 72 65 69 74 65 3b ff ff ff ff ff ff ff ff ff 1e 00 20 20 62 20 3a 3d 20 32 2e 30 20 2a 20 73 | breite;.............b.:=.2.0.*.s |
| 44c0 | 74 61 6e 64 61 72 64 68 6f 65 68 65 3b ff ff ff 4e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c | tandardhoehe;...N...kreuz.:=.nil |
| 44e0 | 70 69 63 74 75 72 65 3b 75 6e 64 20 6c 69 6e 69 65 6e 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b | picture;und.linien:=.nilpicture; |
| 4500 | 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 72 64 65 2c ff ff ff ff ff ff ff ff | he,.standardbreite);rde,........ |
| 4520 | 2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 | ....PICTURE.VAR.kreuz.:=.nilpict |
| 4540 | 75 72 65 3b 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 | ure;................move.(legend |
| 4560 | 65 2c 20 78 6d 69 6e 2c 20 30 2e 37 20 2a 20 79 6d 61 78 29 3b 3b ff ff ff ff ff ff ff ff ff ff | e,.xmin,.0.7.*.ymax);;.......... |
| 4580 | 4e 00 20 20 6f 72 64 6e 65 73 74 69 66 74 7a 75 3b 69 63 74 75 72 65 3b 6e 61 62 73 63 68 6e 69 | N...ordnestiftzu;icture;nabschni |
| 45a0 | 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 29 3b 20 65 69 74 65 2c 65 72 20 6f 62 65 6e 29 | tte.:=.int.(ymax);.eite,er.oben) |
| 45c0 | 3b 20 2a 29 29 20 64 62 72 65 69 74 65 29 3b ff 1e 00 28 2a 73 63 68 72 65 69 62 65 76 6d 61 78 | ;.*)).dbreite);...(*schreibevmax |
| 45e0 | 69 6e 6c 65 67 65 6e 64 65 3a ff ff ff ff ff ff 4e 00 20 20 7a 65 69 63 68 6e 65 61 62 73 63 68 | inlegende:......N...zeichneabsch |
| 4600 | 6c 75 73 73 73 74 72 69 63 68 20 72 65 63 68 74 73 3b 20 20 20 20 20 20 20 20 70 75 74 20 28 22 | lussstrich.rechts;........put.(" |
| 4620 | 6e 61 63 68 20 33 2e 20 22 29 3b 70 61 75 73 65 3b 65 67 21 21 2a 29 6c 6c 65 6e 29 3b ff ff ff | nach.3..");pause;eg!!*)llen);... |
| 4640 | 2e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 65 2c 20 78 6d 69 6e 2c 20 30 2e 36 20 2a 20 79 | ....move.(legende,.xmin,.0.6.*.y |
| 4660 | 6d 61 78 29 3b ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 | max);...............movecmr.(leg |
| 4680 | 65 6e 64 65 2c 20 2d 20 31 2e 30 20 2a 20 61 2c 20 30 2e 30 29 3b ff ff ff ff ff ff ff ff ff ff | ende,.-.1.0.*.a,.0.0);.......... |
| 46a0 | 4e 00 20 20 78 73 6b 61 6c 69 65 72 75 6e 67 3b 6c 75 73 73 73 74 72 69 63 68 20 6f 62 65 6e 20 | N...xskalierung;lussstrich.oben. |
| 46c0 | 20 3b 20 20 20 20 20 20 20 20 70 75 74 20 28 22 6e 61 63 68 20 36 2e 20 22 29 3b 70 61 75 73 65 | .;........put.("nach.6..");pause |
| 46e0 | 3b 65 29 3b 2c 20 6c 6c 65 6e 29 3b 23 ff ff ff 1e 00 62 65 73 63 68 72 69 66 74 65 20 61 63 68 | ;e);,.llen);#.....beschrifte.ach |
| 4700 | 73 65 6e 20 69 6e 20 6c 65 67 65 6e 64 65 3a ff 4e 00 20 20 73 63 68 72 65 69 62 65 20 69 6e 20 | sen.in.legende:.N...schreibe.in. |
| 4720 | 6f 75 74 70 75 74 76 61 72 69 61 62 6c 65 3b 2e 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 | outputvariable;.tte.:=.int.(ymax |
| 4740 | 29 3b 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 2c 20 65 6e 29 3b ff ff ff ff ff ff | );.*.standardhoehe);,.en);...... |
| 4760 | 1e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 65 2c 20 30 2e 30 2c 20 79 6d 61 78 29 3b ff ff | ....move.(legende,.0.0,.ymax);.. |
| 4780 | 3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 65 6e 64 65 2c 20 2d 20 34 2e 30 20 2a 20 73 74 | >...movecmr.(legende,.-.4.0.*.st |
| 47a0 | 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | andardbreite,.0.0);............. |
| 47c0 | 3e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b | >...beschrifte.koordinatenkreuz; |
| 47e0 | 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 65 69 74 65 29 3b ff ff ff | .modellkurzbezeichnung,eite);... |
| 4800 | 4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 29 3b 20 2e 74 | N...draw.(kreuz,.xmax,.ymin);..t |
| 4820 | 73 3b 55 54 50 55 54 20 56 41 52 20 7a 75 73 61 74 7a 73 65 69 74 65 2c 64 61 72 64 62 72 65 69 | s;UTPUT.VAR.zusatzseite,dardbrei |
| 4840 | 74 65 29 3b 65 6c 6c 65 6e 29 3b ff ff ff ff ff 3e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 | te);ellen);.....>...move.(legend |
| 4860 | 65 20 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.,.xmax,.ymin);................ |
| 4880 | 20 20 20 20 20 20 20 28 2a 3f 3f 3f 3f 2a 29 ff 3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 | .......(*????*).>...movecmr.(leg |
| 48a0 | 65 6e 64 65 2c 20 2d 20 36 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 | ende,.-.6.0.*.standardbreite,.-. |
| 48c0 | 31 2e 30 29 3b 20 20 20 20 20 20 20 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1.0);...........>............... |
| 48e0 | 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 73 74 65 75 | ..........darstellungsname,.steu |
| 4900 | 65 72 7a 65 69 6c 65 29 3b 20 20 20 20 ff ff ff 0e 00 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 3a | erzeile);.........plottelegende: |
| 4920 | 1e 00 20 20 70 65 6e 20 28 6c 65 67 65 6e 64 65 2c 20 31 29 3b ff ff ff ff ff ff ff ff ff ff ff | ....pen.(legende,.1);........... |
| 4940 | 2e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 20 2c 20 70 65 6e 20 28 6c 65 67 65 6e 64 65 29 | ....pen.(0,.1,.0.,.pen.(legende) |
| 4960 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 70 6c 6f 74 20 28 6c 65 67 65 6e 64 | );..................plot.(legend |
| 4980 | 65 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 | e);...............END.PROC.zeige |
| 49a0 | 64 61 72 73 74 34 3b ff ff ff ff ff ff ff ff ff 4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 79 6d | darst4;.........N...stelle.:=.ym |
| 49c0 | 69 6e 3b 20 6e 2c 79 6d 61 78 29 3b 20 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 62 65 | in;.n,ymax);...............(*.be |
| 49e0 | 73 63 68 72 69 66 74 75 6e 67 20 6b 6f 6f 72 64 2e 75 72 73 70 72 2e 2a 29 78 29 3a 20 ff ff ff | schriftung.koord.urspr.*)x):.... |
| 4a00 | 1e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 3b ff ff ff ff ff ff ff | ....PICTURE.VAR.transfer;....... |
| 4a20 | 1e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 3b ff ff ff ff ff ff ff | ....PICTURE.VAR.transfer;....... |
| 4a40 | 1e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 79 6d 61 78 29 3b ff ff ff ff | ....draw.(kreuz,.xmin,ymax);.... |
| 4a60 | 4e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 76 65 72 6c 61 65 6e 67 65 72 75 6e 67 3b 50 54 4f 20 | N.....zeichne.verlaengerung;PTO. |
| 4a80 | 61 6e 7a 61 68 6c 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 64 | anzahl.achsenabschnitte.-.1.REPd |
| 4aa0 | 2e 75 72 73 70 72 2e 2a 29 78 29 3a 20 ff ff ff 1e 00 20 20 52 45 41 4c 20 56 41 52 20 78 77 65 | .urspr.*)x):........REAL.VAR.xwe |
| 4ac0 | 69 74 65 2c 20 79 77 65 69 74 65 3b ff ff ff ff 2e 00 20 20 52 45 41 4c 20 56 41 52 20 78 77 65 | ite,.yweite;........REAL.VAR.xwe |
| 4ae0 | 69 74 65 2c 20 79 77 65 69 74 65 3b 3a 3d 20 31 32 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ite,.yweite;:=.12;.............. |
| 4b00 | 3e 00 20 20 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 3b 20 20 2a 29 79 6d 61 78 29 3b 3a 3d 20 31 | >...koordursprung;..*)ymax);:=.1 |
| 4b20 | 32 3b 20 28 61 6e 7a 61 68 6c 78 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff | 2;.(anzahlxachsenabschnitte);... |
| 4b40 | 3e 00 20 20 79 77 65 69 74 65 20 3a 3d 20 28 79 6d 61 78 20 2d 20 79 6d 69 6e 29 20 2f 20 72 65 | >...yweite.:=.(ymax.-.ymin)./.re |
| 4b60 | 61 6c 20 28 61 6e 7a 61 68 6c 79 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff | al.(anzahlyachsenabschnitte);... |
| 4b80 | 1e 00 20 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3b 65 75 7a 3b ff ff ff ff ff ff ff ff ff ff | ....zeichnexachse;euz;.......... |
| 4ba0 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 70 6b 74 3b ff ff ff | .............letzter.skalpkt;... |
| 4bc0 | 0e 00 20 20 78 73 6b 61 6c 69 65 72 75 6e 67 3b 0e 00 20 20 79 73 6b 61 6c 69 65 72 75 6e 67 3b | ....xskalierung;....yskalierung; |
| 4be0 | 1e 00 20 20 6c 69 65 66 65 72 65 6b 72 65 75 7a 2e ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ....lieferekreuz................ |
| 4c00 | 1e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 2c 20 31 29 3b ff ff ff ff ff ff ff ff ff ff ff | ....pen.(0,.1,.0,.1);........... |
| 4c20 | 1e 00 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 3a 20 2d 20 30 2e 33 29 3b 23 ff ff ff ff ff ff | ..zeichneystrich:.-.0.3);#...... |
| 4c40 | 0e 00 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3a 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | ..zeichnexachse:....move.(kreuz, |
| 4c60 | 20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b ff 1e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 | .xmin,.stelle);.....drawcmr.(kre |
| 4c80 | 75 7a 2c 20 30 2e 30 2c 20 2d 20 30 2e 33 29 3b 1e 00 20 20 7a 65 69 63 68 6e 65 79 61 63 68 73 | uz,.0.0,.-.0.3);....zeichneyachs |
| 4ca0 | 65 3b 2a 29 3b 69 63 68 20 72 65 63 68 74 73 3a 1e 00 20 20 70 65 6e 20 28 6b 72 65 75 7a 2c 20 | e;*);ich.rechts:....pen.(kreuz,. |
| 4cc0 | 31 29 2e 61 78 2c 20 79 6d 69 6e 29 3b ff ff ff 1e 00 20 20 6c 69 65 66 65 72 65 6b 72 65 75 7a | 1).ax,.ymin);.......lieferekreuz |
| 4ce0 | 2e 29 2e 61 78 2c 20 79 6d 69 6e 29 3b 29 3b ff 0e 00 7a 65 69 63 68 6e 65 79 61 63 68 73 65 3a | .).ax,.ymin););...zeichneyachse: |
| 4d00 | 1e 00 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 3a 7a 65 2e 6e 29 3b ff ff ff ff ff ff ff ff ff ff | ..koordursprung:ze.n);.......... |
| 4d20 | 1e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 30 2e 30 3b 69 6e 29 3b ff ff ff ff ff ff ff ff ff ff | ....stelle.:=.0.0;in);.......... |
| 4d40 | 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b ff | ....move.(kreuz,.stelle,.ymin);. |
| 4d60 | 1e 00 20 20 64 72 61 77 20 28 30 2e 30 2c 20 79 6d 61 78 29 3b 23 79 6d 69 6e 29 3b ff ff ff ff | ....draw.(0.0,.ymax);#ymin);.... |
| 4d80 | 1e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 20 3b ff ff | ....standardhoehe.-.abstand).;.. |
| 4da0 | 1e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 30 2e 30 2c 20 79 6d 61 78 29 3b 3b ff ff ff | ....draw.(kreuz,.0.0,.ymax);;... |
| 4dc0 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2e 6d 69 6e 29 3b ff | ..........................min);. |
| 4de0 | 1e 00 7a 65 69 63 68 6e 65 78 73 70 69 74 7a 65 3a 2e 32 2c 20 30 2e 32 29 3b ff ff ff ff ff ff | ..zeichnexspitze:.2,.0.2);...... |
| 4e00 | 1e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 3b 73 74 61 6e 64 29 20 3b ff ff | ....transfer.:=.kreuz;stand).;.. |
| 4e20 | 1e 00 20 20 6d 6f 76 65 20 28 78 6d 61 78 2c 20 79 6d 69 6e 20 29 3b 2e 32 29 3b 23 2e 32 29 3b | ....move.(xmax,.ymin.);.2);#.2); |
| 4e40 | 1e 00 20 20 64 72 61 77 63 6d 72 20 28 2d 20 30 2e 32 2c 20 2d 20 30 2e 32 29 3b 23 2e 32 29 3b | ....drawcmr.(-.0.2,.-.0.2);#.2); |
| 4e60 | 2e 00 20 20 20 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 3b 61 6e 64 61 72 64 62 72 65 69 74 | ......zeichneystrich;andardbreit |
| 4e80 | 65 29 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 79 73 70 69 74 7a 65 | e)................zeichneyspitze |
| 4ea0 | 3a 65 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c | :e..................draw.(kreuz, |
| 4ec0 | 20 78 6d 61 78 2c 79 6d 61 78 29 3b 6e 20 79 61 63 68 73 65 3b ff ff ff ff ff ff ff ff ff ff ff | .xmax,ymax);n.yachse;........... |
| 4ee0 | 1e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 32 2c 20 2d 20 30 2e 32 29 3b ff ff ff ff ff ff ff | ....drawcmr.(0.2,.-.0.2);....... |
| 4f00 | 1e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 32 2c 20 2d 20 30 2e 32 29 3b ff ff ff ff ff ff ff | ....drawcmr.(0.2,.-.0.2);....... |
| 4f20 | 2e 00 28 2a 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 54 45 53 54 68 65 29 | ..(*..move.(0.0,.stelle);TESThe) |
| 4f40 | 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 64 72 61 77 63 6d 72 20 28 2d 20 30 | ;...................drawcmr.(-.0 |
| 4f60 | 2e 32 2c 20 2d 20 30 2e 32 29 3b 30 2e 32 29 3b 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 | .2,.-.0.2);0.2);....drawcmr.(kre |
| 4f80 | 75 7a 2c 20 2d 30 2e 37 20 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b ff | uz,.-0.7.*standardbreite,.0.0);. |
| 4fa0 | 1e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 32 2c 20 2d 20 30 2e 32 29 3b | ....drawcmr.(kreuz,.0.2,.-.0.2); |
| 4fc0 | 1e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 32 2c 20 2d 20 30 2e 32 29 3b | ....drawcmr.(kreuz,.0.2,.-.0.2); |
| 4fe0 | 2e 00 20 20 20 20 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 73 63 68 72 69 | ........move.(kreuz,.xmin,.schri |
| 5000 | 74 74 29 3b 68 65 29 3b ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 7a 65 69 67 65 61 62 62 | tt);he);................zeigeabb |
| 5020 | 72 75 63 68 6d 65 6e 75 65 20 29 3b 6e 64 61 72 64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff ff | ruchmenue.);ndardhoehe);........ |
| 5040 | 1e 00 20 20 73 63 68 6e 69 74 74 70 75 6e 6b 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ....schnittpunkt;............... |
| 5060 | 1e 00 20 20 73 63 68 6e 69 74 74 70 75 6e 6b 74 3b 3b 2c 20 2d 20 30 2e 32 29 3b ff ff ff ff ff | ....schnittpunkt;;,.-.0.2);..... |
| 5080 | 1e 00 20 20 2d 20 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 3b ff ff ff ff | ....-.0.5.*.standardhoehe);;.... |
| 50a0 | 1e 00 20 20 6d 6f 76 65 20 28 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b ff ff ff ff ff ff ff ff | ....move.(stelle,.ymin);........ |
| 50c0 | 1e 00 20 20 6d 6f 76 65 63 6d 72 20 28 30 2e 30 2c 20 30 2e 32 29 3b ff ff ff ff ff ff ff ff ff | ....movecmr.(0.0,.0.2);......... |
| 50e0 | 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b ff | ....move.(kreuz,.xmin,.stelle);. |
| 5100 | 1e 00 20 20 6d 6f 76 65 63 6d 72 20 28 30 2e 30 2c 20 30 2e 32 29 3b 29 3b 23 6d 69 6e 29 3b ff | ....movecmr.(0.0,.0.2););#min);. |
| 5120 | 1e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30 2c 20 2d 20 30 2e 33 29 3b 23 6d 69 6e 29 3b ff | ....drawcmr.(0.0,.-.0.3);#min);. |
| 5140 | 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 3b | ....move.(kreuz,.stelle,.ymin);; |
| 5160 | 0e 00 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 3a 1e 00 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 3a | ..koordursprung:..koordursprung: |
| 5180 | 30 3b 30 2e 32 29 3b ff ff ff ff ff ff ff ff ff 0e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 3b | 0;0.2);.............beschrifte.; |
| 51a0 | 1e 00 28 2a 20 20 6d 6f 76 65 20 28 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 54 45 53 54 29 3b | ..(*..move.(stelle,.ymin);TEST); |
| 51c0 | 3e 00 20 20 6c 73 67 6b 75 72 76 65 20 3a 3d 20 4c 4f 45 53 55 4e 47 53 41 42 53 43 48 4e 49 54 | >...lsgkurve.:=.LOESUNGSABSCHNIT |
| 51e0 | 54 20 6c 73 67 3b 65 29 3b 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 ff ff ff ff ff | T.lsg;e);*.standardbreite,...... |
| 5200 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 31 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 68 | ...............-.1.0.*.standardh |
| 5220 | 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 4e 00 20 20 64 72 61 77 20 28 68 69 6e 74 65 72 | oehe.-.abstand);N...draw.(hinter |
| 5240 | 67 72 75 6e 64 6c 69 6e 69 65 6e 2c 20 73 74 65 6c 6c 65 2c 20 79 6d 61 78 29 3b 20 20 20 20 20 | grundlinien,.stelle,.ymax);..... |
| 5260 | 70 75 74 20 28 22 73 74 65 6c 6c 65 3a 20 22 2b 20 65 29 29 3b 70 61 75 73 65 3b ff ff ff ff ff | put.("stelle:."+.e));pause;..... |
| 5280 | 2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 | ....standardhoehe,.standardbreit |
| 52a0 | 65 29 3b 20 20 20 20 20 20 2a 29 ff ff ff ff ff 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | e);......*).........move.(kreuz, |
| 52c0 | 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b ff 4e 00 62 65 73 63 68 72 69 66 74 65 20 78 61 63 | .stelle,.ymin);.N.beschrifte.xac |
| 52e0 | 68 73 65 3a 20 2b 20 73 63 68 72 69 74 74 77 65 69 74 65 3b 2e 79 6d 61 78 29 3b 20 20 20 20 20 | hse:.+.schrittweite;.ymax);..... |
| 5300 | 20 20 20 20 20 20 74 65 78 74 20 28 73 74 65 6c 6c 65 29 29 3b 70 61 75 73 65 3b ff ff ff ff ff | ......text.(stelle));pause;..... |
| 5320 | 1e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 20 3b ff ff | ....standardhoehe.-.abstand).;.. |
| 5340 | 4e 00 20 20 20 20 54 48 45 4e 20 73 74 65 6c 6c 65 20 3a 3d 20 32 2e 30 20 2a 20 73 63 68 72 69 | N.....THEN.stelle.:=.2.0.*.schri |
| 5360 | 74 74 77 65 69 74 65 3b 20 62 65 73 63 68 72 69 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 | ttweite;.beschrifte.1.pkt.an.x.a |
| 5380 | 63 68 73 65 3b 29 3b 20 20 2c ff ff ff ff ff ff 2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 | chse;);..,..........standardhoeh |
| 53a0 | 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 65 20 2d 20 61 62 73 74 61 6e 64 29 3b | e,.standardbreite).e.-.abstand); |
| 53c0 | 3e 00 20 20 6d 6f 76 65 20 28 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 2c 20 73 74 65 | >...move.(hintergrundlinien,.ste |
| 53e0 | 6c 6c 65 2c 20 79 6d 69 6e 29 3b 65 20 3e 20 78 6d 61 78 2e 20 61 72 64 68 6f 65 68 65 29 3b ff | lle,.ymin);e.>.xmax..ardhoehe);. |
| 5400 | 1e 00 20 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 3b 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b ff | ....zeichneystrich;elle,.ymin);. |
| 5420 | 0e 00 20 20 62 65 73 63 68 72 69 66 74 65 79 2e 1e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c | ....beschriftey...kernvondarstel |
| 5440 | 6c 75 6e 67 34 3a 64 65 74 61 73 74 65 20 ff ff 1e 00 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 73 | lung4:detaste.......move.(0.0,.s |
| 5460 | 74 65 6c 6c 65 29 3b ff ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 | telle);...........zeichneystrich |
| 5480 | 3a 73 74 65 6c 6c 65 29 3b 54 45 53 54 2a 29 ff 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | :stelle);TEST*).....move.(kreuz, |
| 54a0 | 20 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b ff ff 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | .0.0,.stelle);......move.(kreuz, |
| 54c0 | 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 | .stelle,.ymin);..............ELS |
| 54e0 | 45 20 20 73 65 6e 64 65 74 61 73 74 65 20 ff ff 4e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 65 | E..sendetaste...N.ENDPROC.kreuze |
| 5500 | 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 3b 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a | rzeugenundzeichnen;enster,.kreuz |
| 5520 | 29 3b 20 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 6c 65 2c ff ff ff | );.hoehe,.standardbreite).le,... |
| 5540 | 1e 00 20 20 2d 20 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b ff ff ff ff ff | ....-.0.5.*.standardhoehe);..... |
| 5560 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5a 65 69 | N............................Zei |
| 5580 | 74 69 6e 74 65 72 76 61 6c 6c 65 20 65 74 63 2e 20 67 65 74 65 69 6c 74 20 77 65 72 64 65 6e 20 | tintervalle.etc..geteilt.werden. |
| 55a0 | 73 6f 6c 6c 65 6e 2e 20 2a 29 74 65 2c ff ff ff 2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 | sollen..*)te,.......standardhoeh |
| 55c0 | 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 20 20 2a 29 ff ff ff ff ff ff ff ff | e,.standardbreite);...*)........ |
| 55e0 | 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b ff ff | ....move.(kreuz,.0.0,.stelle);.. |
| 5600 | 4e 00 20 20 20 49 6e 74 65 72 76 61 6c 6c 20 28 6d 69 6e 69 6d 75 6d 2c 20 6d 61 78 69 6d 75 6d | N....Intervall.(minimum,.maximum |
| 5620 | 29 2e 20 6d 75 6d 2c 20 6d 61 78 69 6d 75 6d 29 3a 67 65 74 65 69 6c 74 20 77 65 72 64 65 6e 20 | )..mum,.maximum):geteilt.werden. |
| 5640 | 73 6f 6c 6c 65 6e 2e 20 2a 29 65 20 69 ff ff ff 2e 00 20 20 73 74 61 6e 64 61 72 64 62 72 65 69 | sollen..*)e.i.......standardbrei |
| 5660 | 74 65 2c 20 2d 20 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b ff ff ff ff ff | te,.-.0.5.*.standardhoehe);..... |
| 5680 | 4e 00 52 45 41 4c 20 56 41 52 20 6c 61 65 6e 67 65 20 3a 3d 20 28 6d 61 78 69 6d 75 6d 20 2d 20 | N.REAL.VAR.laenge.:=.(maximum.-. |
| 56a0 | 6d 69 6e 69 6d 75 6d 29 20 2f 20 63 61 20 73 63 68 72 69 74 74 65 3b 72 69 74 74 77 65 69 74 65 | minimum)./.ca.schritte;rittweite |
| 56c0 | 20 69 6e 20 64 65 6d 6e 64 20 76 6f 6e 64 61 ff 2e 00 20 20 20 20 30 2e 30 2c 20 20 73 74 61 6e | .in.demnd.vonda.......0.0,..stan |
| 56e0 | 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e ff ff ff ff ff | dardhoehe,.standardbreite)...... |
| 5700 | 1e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 3b ff ff ff ff ff ff ff ff ff ff | ....transfer.:=.kreuz;.......... |
| 5720 | 2e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e | ..ENDPROC.kreuzerzeugenundzeichn |
| 5740 | 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 7a 61 68 6c 20 65 72 6d 69 74 74 65 | en;.............N...zahl.ermitte |
| 5760 | 6c 6e 2e 20 74 65 69 6c 65 6e 2e 2a 29 20 73 63 68 72 69 74 74 65 22 20 75 6e 64 20 68 da 63 68 | ln..teilen.*).schritte".und.h.ch |
| 5780 | 73 74 65 6e 73 20 32 2a 22 63 61 20 73 63 68 72 69 74 74 65 22 20 6f 64 65 72 76 6f 6e 64 61 ff | stens.2*"ca.schritte".odervonda. |
| 57a0 | 3e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64 73 74 20 3a 3d 20 6e 69 6c 6f 75 74 70 75 74 20 | >...OUTPUT.VAR.dst.:=.niloutput. |
| 57c0 | 28 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff | (strukt1fenster,."darst");...... |
| 57e0 | 1e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 3b ff ff ff ff ff ff ff ff ff | ....KURVE.VAR.lsgkurve;......... |
| 5800 | 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 65 6e 75 65 74 61 73 74 65 20 73 61 | ......ELIF.taste.=.menuetaste.sa |
| 5820 | 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 1e 00 20 20 49 46 20 4e 4f 54 20 64 61 72 73 74 | rttaste.............IF.NOT.darst |
| 5840 | 65 6c 6c 75 6e 67 20 6d 6f 65 67 6c 69 63 68 20 1e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 | ellung.moeglich...........reente |
| 5860 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 ff ff ff 2e 00 20 20 20 7a 65 69 67 65 64 61 72 73 74 34 | rdarstellung4........zeigedarst4 |
| 5880 | 20 28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c 73 67 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff | .(dst,.indemo,.lsgkurve);....... |
| 58a0 | 1e 00 20 20 20 20 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff ff | .......kernvondarstellung4...... |
| 58c0 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 6e 67 34 3a ff ff ff ff ff ff ff ff ff ff | .............ELSE.ng4:.......... |
| 58e0 | 1e 00 20 20 20 20 20 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 20 ff ff ff ff ff ff ff ff ff | ........dialogfuerdemo.......... |
| 5900 | 1e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 6e 67 34 20 ff ff ff ff ff | ............out.(piep);ng4...... |
| 5920 | 3e 00 20 20 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 | >....(maximalwerte.(lsgkurve).SU |
| 5940 | 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 20 3e 3d 20 31 2e 30 20 61 73 74 65 20 ff ff | B.var.aktivitaet).>=.1.0.aste... |
| 5960 | 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 65 20 ff ff | ..........leavedarstellung4.e... |
| 5980 | 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 65 20 ff ff | ..........leavedarstellung4.e... |
| 59a0 | 4e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64 73 74 20 3a 3d 20 6e 69 6c 6f 75 74 70 75 74 20 | N...OUTPUT.VAR.dst.:=.niloutput. |
| 59c0 | 28 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b 54 20 56 41 52 20 | (strukt1fenster,."darst");T.VAR. |
| 59e0 | 74 61 73 74 65 29 3a 69 6e 65 6d 65 6e 74 ff ff 1e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 | taste):inement............plotta |
| 5a00 | 73 6b 29 20 3b 75 73 20 28 31 32 29 3b ff ff ff 1e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 | sk).;us.(12);.............plotta |
| 5a20 | 73 6b 29 20 3b 75 73 20 28 31 32 29 3b 20 ff ff 1e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 | sk).;us.(12);.............reente |
| 5a40 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff 2e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 | rdarstellung4.............reente |
| 5a60 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 65 69 6e 62 6c 20 ff ff ff ff ff ff ff ff ff ff ff ff | rdarstellung4.einbl............. |
| 5a80 | 3e 00 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 | >.........modellgroesseneinblend |
| 5aa0 | 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff | en.(dst,.lsg,.taste);........... |
| 5ac0 | 4e 00 20 20 20 20 20 20 54 48 45 4e 20 20 7a 65 69 67 65 20 6d 65 6c 64 75 6e 67 65 6e 20 20 3b | N.......THEN..zeige.meldungen..; |
| 5ae0 | 6b 6c 65 69 6e 65 72 20 67 6c 65 69 63 68 20 65 69 6e 73 75 6d 65 6e 74 65 58 54 20 56 41 52 20 | kleiner.gleich.einsumenteXT.VAR. |
| 5b00 | 74 61 73 74 65 29 3a 6c 61 65 6e 67 65 22 ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 54 48 45 | taste):laenge"...............THE |
| 5b20 | 4e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 | N.........................reente |
| 5b40 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 67 34 20 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | rdarstellung4.g4.e.............. |
| 5b60 | 2e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 3a 28 74 61 73 74 65 29 3b 72 7a 75 73 61 74 7a | ..dialogfuerdemo:(taste);rzusatz |
| 5b80 | 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e | darst.......................THEN |
| 5ba0 | 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff 3e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e | .darstellung4...>.....tastelesen |
| 5bc0 | 20 28 74 61 73 74 65 29 3b 61 74 7a 64 61 72 73 74 3a 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | .(taste);atzdarst:taste.=.modell |
| 5be0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 2c ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 64 61 | groessentaste.,...............da |
| 5c00 | 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 73 74 | rstellungsname,...............st |
| 5c20 | 65 75 65 72 7a 65 69 6c 65 29 3b ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | euerzeile);...................re |
| 5c40 | 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff | enterdarstellung4............... |
| 5c60 | 2e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 61 72 73 74 65 6c 6c 75 6e 67 73 61 | ..leavedarstellung4:arstellungsa |
| 5c80 | 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 | rttaste...................leaved |
| 5ca0 | 61 72 73 74 65 6c 6c 75 6e 67 34 20 34 20 73 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff | arstellung4.4.satzdarst......... |
| 5cc0 | 1e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 ff ff ff | ..........reenterdarstellung4... |
| 5ce0 | 1e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 2c 20 | ..........reenterdarstellung4.,. |
| 5d00 | 2e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 | ..........zeigemenuezurzusatzdar |
| 5d20 | 73 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 | st;.............N............out |
| 5d40 | 20 28 70 69 65 70 29 3b 6f 65 73 73 65 6e 65 69 6e 62 6c 20 52 20 74 61 73 74 65 20 3d 20 6d 6f | .(piep);oesseneinbl.R.taste.=.mo |
| 5d60 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 75 6e 67 73 6e 61 6d 65 2c 20 ff ff ff ff | dellgroessentaste.ungsname,..... |
| 5d80 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff | .............THEN............... |
| 5da0 | 2e 00 20 20 20 20 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 3a 75 6e 67 34 20 | .......taste.=.zeigezeitd.:ung4. |
| 5dc0 | 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 1e 00 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 | e.=.zeigezusatz..............ELS |
| 5de0 | 45 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 | E............................ELS |
| 5e00 | 45 20 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | E.nterdarstellung4.............. |
| 5e20 | 1e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 ff ff | ............THEN.=.sendetaste... |
| 5e40 | 1e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b ff ff ff ff ff ff ff ff ff | ............out.(piep);......... |
| 5e60 | 1e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 74 65 6c 6c 75 6e 67 34 20 | ............out.(piep);tellung4. |
| 5e80 | 1e 00 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 | ............reenterdarstellung4. |
| 5ea0 | 1e 00 64 61 72 73 74 65 6c 6c 75 6e 67 20 6d 6f 65 67 6c 69 63 68 3a 20 63 20 ff ff ff ff ff ff | ..darstellung.moeglich:.c....... |
| 5ec0 | 2e 00 20 20 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 | .....(maximalwerte.(lsgkurve).SU |
| 5ee0 | 42 20 31 29 20 3e 3d 20 31 2e 30 20 ff ff ff ff 4e 00 20 20 5a 55 53 54 41 4e 44 20 56 41 52 20 | B.1).>=.1.0.....N...ZUSTAND.VAR. |
| 5f00 | 61 6b 74 20 7a 75 73 74 61 6e 64 20 3a 3d 20 6e 65 75 65 72 20 7a 75 73 74 61 6e 64 20 28 32 29 | akt.zustand.:=.neuer.zustand.(2) |
| 5f20 | 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 20 70 6c 75 73 20 2a 29 ff ff ff ff ff ff ff ff | ;..(*.1.Variable.plus.*)........ |
| 5f40 | 4e 00 20 20 52 45 41 4c 20 56 41 52 20 7a 65 69 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N...REAL.VAR.zeit;.............. |
| 5f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 31 20 45 72 67 61 65 6e 7a 75 | ...................(*.1.Ergaenzu |
| 5f80 | 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ngsvariable.*)..>............... |
| 5fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 74 20 6e 69 63 68 74 20 73 69 | ....................ist.nicht.si |
| 5fc0 | 6e 6e 76 6f 6c 6c 20 2a 29 ff ff ff ff ff ff ff 1e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f | nnvoll.*).........dialogfuerdemo |
| 5fe0 | 3a ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e | :.....................tastelesen |
| 6000 | 20 28 74 61 73 74 65 29 3b ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 77 61 68 6c 64 65 | .(taste);.......>.........wahlde |
| 6020 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 | rdarstellungsarten;(dst,.lsg,.ta |
| 6040 | 73 74 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 | ste);.....................leaved |
| 6060 | 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 | arstellung4...............out.(p |
| 6080 | 69 65 70 29 3b 74 65 6c 6c 75 6e 67 34 20 ff ff 1e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 | iep);tellung4.............out.(p |
| 60a0 | 69 65 70 29 3b 74 65 6c 6c 75 6e 67 34 20 ff ff 1e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 | iep);tellung4.....leavedarstellu |
| 60c0 | 6e 67 34 3a 20 71 75 69 65 74 29 3b ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 | ng4:.quiet);..............plotta |
| 60e0 | 73 6b 29 20 3b 71 75 69 65 74 29 3b ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 67 69 62 6d 65 6c | sk).;quiet);..............gibmel |
| 6100 | 64 75 6e 67 61 75 73 20 28 31 32 29 3b 20 ff ff 1e 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c | dungaus.(12);.....wahlderdarstel |
| 6120 | 6c 75 6e 67 73 61 72 74 65 6e 3a ff ff ff ff ff 3e 00 20 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 | lungsarten:.....>...zeigemenuezu |
| 6140 | 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | darstellungsarten.(taste,.FALSE. |
| 6160 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 54 48 45 4e 20 20 20 6c | );..............N.......THEN...l |
| 6180 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 3d 20 66 65 68 6c 65 72 6d 65 6c 64 75 6e 67 | eavedarstellung4.=.fehlermeldung |
| 61a0 | 20 61 6e 66 61 6e 67 20 3b 20 65 3b 20 54 52 55 45 70 6c 75 73 20 2a 29 6e 61 6d 65 2c 20 ff ff | .anfang.;.e;.TRUEplus.*)name,... |
| 61c0 | 1e 00 20 20 20 20 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff | .......taste.=.zeigezeitd....... |
| 61e0 | 1e 00 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff ff ff | ........leavedarstellung4....... |
| 6200 | 2e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 73 74 | .......ELIF.NOT.(taste.=.esc).st |
| 6220 | 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 4e 00 7a 65 69 67 65 20 6d 65 6c 64 75 6e 67 65 | e.=.zeigezusatz.N.zeige.meldunge |
| 6240 | 6e 20 3a 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 | n.:(lsg.kurve,.zeit,.akt.zustand |
| 6260 | 29 3b 6e 66 61 6e 67 20 3b 20 20 6b 6c 65 69 6e 20 31 20 3b 20 45 73 74 65 20 43 4f 52 20 ff ff | );nfang.;..klein.1.;.Este.COR... |
| 6280 | 1e 00 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 29 3b ff ff ff ff ff ff ff ff ff ff ff | ........steuerzeile);........... |
| 62a0 | 1e 00 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a ff ff ff ff ff | ..zeigemenuezurzusatzdarst:..... |
| 62c0 | 2e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 72 7a 75 73 61 74 7a | ......initialisieremenue;rzusatz |
| 62e0 | 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff 2e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 | darst.............kernvonzeigeme |
| 6300 | 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff ff ff ff ff | nuezurzusatzdarst:.............. |
| 6320 | 0e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b 1e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61 | ....gibmenueaus;......inchar.(ta |
| 6340 | 73 74 65 29 3b 64 75 6e 67 3b ff ff ff ff ff ff 1e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e | ste);dung;............loeschemen |
| 6360 | 75 65 6d 65 6c 64 75 6e 67 3b 3a ff ff ff ff ff 3e 00 20 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 | uemeldung;:.....>...zeigemenuezu |
| 6380 | 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | darstellungsarten.(taste,.FALSE. |
| 63a0 | 29 3b 74 65 6c 6c 75 6e 67 34 3b 2e 72 73 74 2e 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 | );tellung4;.rst...........leaved |
| 63c0 | 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c | arstellung4....................l |
| 63e0 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 37 29 29 3b 64 61 72 73 74 2e ff ff ff ff ff ff | eavedarstellung47));darst....... |
| 6400 | 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff | ..........loeschemenue;......... |
| 6420 | 2e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 72 7a 75 73 61 74 7a 64 61 72 73 | ......fusszeileleer);rzusatzdars |
| 6440 | 74 3a 3b 61 72 73 74 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 | t:;arst................ELIF.NOT. |
| 6460 | 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 28 31 29 29 3b 3b 64 61 72 73 74 2e ff ff ff ff ff ff | (taste.=.esc).(1));;darst....... |
| 6480 | 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 | ......ELIF.taste.=.mdlgroessenei |
| 64a0 | 6e 62 6c 20 ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | nbl.......................loesch |
| 64c0 | 65 6d 65 6e 75 65 3b 75 6e 67 34 20 ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c | emenue;ung4.....>.........modell |
| 64e0 | 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 | groesseneinblenden.(dst,.lsg,.ta |
| 6500 | 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a | ste);...........N.zeigemenuezurz |
| 6520 | 75 73 61 74 7a 64 61 72 73 74 3a 6e 67 34 20 61 72 74 74 61 73 74 65 20 73 74 20 6f 64 65 6c 6c | usatzdarst:ng4.arttaste.st.odell |
| 6540 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 75 6e 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff | groessentaste.ungsname,......... |
| 6560 | 1e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 | ............THEN.vedarstellung4. |
| 6580 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 | ..............leavedarstellung4. |
| 65a0 | 1e 00 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ............ELSE................ |
| 65c0 | 2e 00 20 20 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3b 69 67 65 6d 65 6e 75 65 7a | ....gibabbruchmenueaus;igemenuez |
| 65e0 | 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff 1e 00 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 | urzusatzdarst..............leave |
| 6600 | 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 20 ff ff 4e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e | darstellung4....N.....loeschemen |
| 6620 | 75 65 6d 65 6c 64 75 6e 67 3b 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | uemeldung;ste.COR.taste.=.modell |
| 6640 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 6e 74 61 73 74 65 20 65 72 7a 65 69 6c 65 2c ff ff ff | groessentaste.ntaste.erzeile,... |
| 6660 | 1e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 73 6b 29 20 3b 75 73 20 28 31 32 29 3b ff ff ff | ..........plottask).;us.(12);... |
| 6680 | 1e 00 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 67 34 20 | ...........leavedarstellung4.g4. |
| 66a0 | 1e 00 20 20 20 20 20 20 20 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20 28 31 32 29 3b ff ff ff | ..........gibmeldungaus.(12);... |
| 66c0 | 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff | ..........loeschemenue;......... |
| 66e0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a | N............leavezeigemenuezurz |
| 6700 | 75 73 61 74 7a 64 61 72 73 74 20 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 69 | usatzdarst.dellkurzbezeichnung,i |
| 6720 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 1e 00 20 20 20 20 20 20 20 20 73 74 65 75 65 72 | le,.steuerzeile,..........steuer |
| 6740 | 7a 65 69 6c 65 29 3b ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a | zeile);...................leavez |
| 6760 | 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff | eigemenuezurzusatzdarst......... |
| 6780 | 1e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 ff ff | .......ELIF.NOT.(taste.=.esc)... |
| 67a0 | 3e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 75 6e | >......ELIF.NOT.(taste.=.esc).un |
| 67c0 | 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 29 29 20 ff ff ff ff ff | gsarten.(taste,.FALSE.);))...... |
| 67e0 | 1e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a ff ff ff ff ff ff ff ff ff ff | ..reenterdarstellung4:.......... |
| 6800 | 1e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 6c 6c 75 6e 67 34 3b | ......initialisieremenue;llung4; |
| 6820 | 1e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff | ......initialisieremenue;....... |
| 6840 | 2e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 | ......fuellemenue.(menuezeile.(1 |
| 6860 | 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 | ));.........................fuss |
| 6880 | 7a 65 69 6c 65 6c 65 65 72 29 3b 6c 65 20 28 35 29 29 3b 3b ff ff ff ff ff ff ff ff ff ff ff ff | zeileleer);le.(5));;............ |
| 68a0 | 2e 00 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 3b 20 20 20 20 20 20 20 2e 65 69 6c 65 20 28 31 | ......zeigemenue;........eile.(1 |
| 68c0 | 36 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 | 6));..............gibabbruchmenu |
| 68e0 | 65 61 75 73 3a 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 3b ff ff ff ff ff ff ff ff ff ff ff ff | eaus:eabbruchmenue.;............ |
| 6900 | 2e 00 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b | ......LEAVE.kernvondarstellung4; |
| 6920 | 37 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 | 7));..................zeigemenue |
| 6940 | 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 | ;.....................initialisi |
| 6960 | 65 72 65 6d 65 6e 75 65 3b 7a 64 61 72 73 74 3a 2e 00 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 | eremenue;zdarst:..zeigeabbruchme |
| 6980 | 6e 75 65 3a 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | nue:enuezeile.(1));............. |
| 69a0 | 2e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 | ......fuellemenue.(menuezeile.(1 |
| 69c0 | 36 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c | 6));..................fusszeilel |
| 69e0 | 65 65 72 29 3b 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 3b 7a 64 61 72 73 74 2e ff ff ff ff ff ff | eer);nuezeile.(5));zdarst....... |
| 6a00 | 1e 00 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff ff ff ff ff ff ff ff ff ff | ..zeigeabbruchmenue:............ |
| 6a20 | 4e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 | N.....fuellemenue.(menuezeile.(5 |
| 6a40 | 29 29 3b 3b 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e | ));;lkurzbezeichnung,.darstellun |
| 6a60 | 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 | gsname,...............kernvonzei |
| 6a80 | 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 ff 1e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32 | geabbruchmenue......cursor.(3,.2 |
| 6aa0 | 33 29 3b 75 6e 67 34 3b 69 6e 65 72 20 31 29 3b 1e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 | 3);ung4;iner.1);..kernvonzeigeab |
| 6ac0 | 62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff ff ff 1e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e | bruchmenue:...........loeschemen |
| 6ae0 | 75 65 6d 65 6c 64 75 6e 67 3b ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 | uemeldung;.................leave |
| 6b00 | 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 | darstellung4...............leave |
| 6b20 | 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 | darstellung4....>.kernvonzeigeab |
| 6b40 | 62 72 75 63 68 6d 65 6e 75 65 3a 6e 75 65 20 61 72 74 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | bruchmenue:nue.arttaste.=.modell |
| 6b60 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | groessentaste.............loesch |
| 6b80 | 65 6d 65 6e 75 65 3b 6c 75 6e 67 34 20 ff ff ff 2e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 | emenue;lung4......kernvonzeigeab |
| 6ba0 | 62 72 75 63 68 6d 65 6e 75 65 3a 75 6e 67 73 61 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff | bruchmenue:ungsarttaste......... |
| 6bc0 | 1e 00 20 20 20 20 20 20 20 20 20 20 43 4f 52 20 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff | ............COR.emenue;......... |
| 6be0 | 3e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 65 69 6c 65 20 28 35 29 29 | >.........loeschemenue;eile.(5)) |
| 6c00 | 3b 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff | ;.COR.taste.=.zeigezeitd........ |
| 6c20 | 4e 00 20 20 20 20 20 20 54 48 45 4e 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 | N.......THEN..leavedarstellung4. |
| 6c40 | 72 74 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 65 | rttaste.COR.taste.=.zeigezeitd.e |
| 6c60 | 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 0e 00 20 20 20 20 20 20 20 20 20 20 43 4f 52 20 | .=.abbruchtaste.............COR. |
| 6c80 | 3e 00 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 74 6f 67 | >..........leavedarstellung4.tog |
| 6ca0 | 72 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff | r.COR.taste.=.zeigezeitd........ |
| 6cc0 | 1e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff | ............THEN.arstellung4.... |
| 6ce0 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 | ...............leavedarstellung4 |
| 6d00 | 2e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 | ............THEN.avedarstellung4 |
| 6d20 | 68 6d 65 6e 75 65 20 ff ff ff ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 | hmenue............END.PROC.darst |
| 6d40 | 65 6c 6c 75 6e 67 34 3b 74 20 ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | ellung4;t.....................re |
| 6d60 | 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 ff ff ff ff ff ff ff ff ff | enterzeigeabbruchmenue.......... |
| 6d80 | 1e 00 20 20 20 20 20 20 20 20 20 20 43 4f 52 20 20 3d 20 72 75 62 6f 75 74 20 ff ff ff ff ff ff | ............COR..=.rubout....... |
| 6da0 | 1e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff | ............THEN.menue;......... |
| 6dc0 | 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 61 6d 65 2c 20 66 | N.....ELIF.taste.=.rubout.ame,.f |
| 6de0 | 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 3b 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 72 73 | usszeileleer);;alsche.taste)).rs |
| 6e00 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 | tellungsname,...............fuss |
| 6e20 | 7a 65 69 6c 65 6c 65 65 72 29 3b ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e | zeileleer);.................THEN |
| 6e40 | 20 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | .zeigeabbruchmenue.............. |
| 6e60 | 1e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 ff ff ff | ......ELIF.NOT.(taste.=.esc).... |
| 6e80 | 3e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e | >.........reenterzeigeabbruchmen |
| 6ea0 | 75 65 20 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff | ue.gstext.(falsche.taste))...... |
| 6ec0 | 1e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3a ff ff ff ff ff ff ff ff ff ff ff | ..gibabbruchmenueaus:........... |
| 6ee0 | 1e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b ff ff ff ff ff | ............fusszeileleer);..... |
| 6f00 | 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 | ....fuellemenue.(menuezeile.(5)) |
| 6f20 | 3b 3b 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b ff 2e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 | ;;lisieremenue;...gibabbruchmenu |
| 6f40 | 65 61 75 73 3a 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b ff | eaus:.......initialisieremenue;. |
| 6f60 | 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 | ....fuellemenue.(menuezeile.(5)) |
| 6f80 | 3b 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 | ;;..................fuellemenue. |
| 6fa0 | 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | (menuezeile.(17));.............. |
| 6fc0 | 1e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff ff ff | ..reenterzeigeabbruchmenue:..... |
| 6fe0 | 1e 00 20 20 6f 75 74 20 28 66 65 68 6c 65 72 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 20 31 29 3b | ....out.(fehler.ymax.kleiner.1); |
| 7000 | 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 75 65 3a ff ff ff ff ff | ..END.PROC.darstellung4;ue:..... |
| 7020 | 2e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 69 6c 65 20 28 31 36 29 | ..END.PROC.darstellung4;ile.(16) |
| 7040 | 29 3b 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 | );................END.PROC.darst |
| 7060 | 65 6c 6c 75 6e 67 34 3b ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 70 69 65 | ellung4;........>............pie |
| 7080 | 70 20 3a 3d 20 63 6f 64 65 20 28 37 29 3b 22 2c 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 | p.:=.code.(7);",.modellgroessent |
| 70a0 | 61 73 74 65 20 3d 20 22 73 22 2c 20 ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 77 65 69 | aste.=."s",.....>............wei |
| 70c0 | 74 65 72 74 61 73 74 65 20 3d 20 22 77 22 2c 20 70 6c 6f 74 74 61 73 6b 20 3d 20 22 73 69 6d 73 | tertaste.=."w",.plottask.=."sims |
| 70e0 | 65 6c 20 70 6c 6f 74 74 65 72 22 2c 20 ff ff ff 3e 00 4c 45 54 20 20 20 20 20 20 20 20 78 61 63 | el.plotter",....>.LET........xac |
| 7100 | 68 73 65 6e 62 65 7a 20 20 20 20 20 20 3d 20 22 5a 65 69 74 20 74 22 2c 20 79 61 63 68 73 65 6e | hsenbez......=."Zeit.t",.yachsen |
| 7120 | 62 65 7a 20 3d 20 22 41 3a 61 22 20 2c 20 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 68 | bez.=."A:a".,...N............feh |
| 7140 | 6c 65 72 20 7a 75 20 77 65 6e 69 67 20 61 72 67 75 6d 65 6e 74 65 20 3d 20 74 2c 20 64 61 20 6b | ler.zu.wenig.argumente.=.t,.da.k |
| 7160 | 65 69 6e 20 57 65 72 74 20 66 75 65 72 20 41 20 3e 20 31 21 22 2c 41 20 3e 20 31 2a 22 2c ff ff | ein.Wert.fuer.A.>.1!",A.>.1*",.. |
| 7180 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 68 6c 65 72 20 7a 77 65 69 74 65 72 20 70 75 6e 6b | N............fehler.zweiter.punk |
| 71a0 | 74 20 7a 75 20 6b 6c 65 69 6e 20 20 20 3d 64 61 72 67 65 73 74 65 6c 6c 74 2c 20 22 20 2c 65 72 | t.zu.klein...=dargestellt,.".,er |
| 71c0 | 20 41 20 3e 20 31 21 22 2c ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 68 61 75 | .A.>.1!",.......N............hau |
| 71e0 | 70 74 66 65 6e 73 74 65 72 20 20 20 20 3d 20 31 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 | ptfenster....=.1,.strukt1fenster |
| 7200 | 20 20 3d 20 31 2c 20 76 65 72 73 63 68 69 65 62 75 6e 67 20 3d 20 31 2e 32 35 2c 20 2c ff ff ff | ..=.1,.verschiebung.=.1.25,.,... |
| 7220 | 4e 00 20 20 20 20 20 20 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d | N........laengebeibeschriftung.= |
| 7240 | 20 38 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 20 3d 20 32 2c 20 76 6f 72 6b 6f 6d | .8,.nachkommastellen.=.2,.vorkom |
| 7260 | 6d 61 20 3d 20 35 3b 2e 32 35 2c 20 ff ff ff ff 2e 00 20 20 52 45 41 4c 20 56 41 52 20 75 31 2c | ma.=.5;.25,.........REAL.VAR.u1, |
| 7280 | 20 75 32 2c 20 7a 31 2c 20 7a 32 3b 7a 64 61 72 73 74 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff | .u2,.z1,.z2;zdarst;............. |
| 72a0 | 1e 00 20 20 70 6c 6f 74 74 65 20 20 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b 20 ff | ....plotte...koordinatenkreuz;.. |
| 72c0 | 1e 00 20 20 70 6c 6f 74 74 65 20 20 20 67 65 72 61 64 65 3b 72 75 6e 64 6c 69 6e 69 65 6e 3b 3a | ....plotte...gerade;rundlinien;: |
| 72e0 | 3e 00 20 20 6e 69 6c 64 69 61 67 72 61 6d 6d 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 | >...nildiagramm.(seite,.strukt1f |
| 7300 | 65 6e 73 74 65 72 29 3b 2e 32 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b ff ff ff ff | enster);.2,.strukt1fenster);.... |
| 7320 | 2e 00 65 72 73 74 65 6c 6c 65 20 6b 75 72 76 65 20 64 65 72 20 7a 75 73 61 74 7a 64 61 72 73 74 | ..erstelle.kurve.der.zusatzdarst |
| 7340 | 3a 20 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 65 72 6d 69 74 74 6c 65 20 66 65 6e | :.n;............>...ermittle.fen |
| 7360 | 73 74 65 72 72 61 6e 64 20 72 65 63 68 74 73 20 6c 69 6e 6b 73 3b 20 6b 75 72 76 65 29 20 53 55 | sterrand.rechts.links;.kurve).SU |
| 7380 | 42 20 31 29 3b 20 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | B.1);...........N............... |
| 73a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 73c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 56 6f 72 61 75 73 73 65 74 7a 75 6e 67 20 2a 29 ff ff ff | .............Voraussetzung.*)... |
| 73e0 | 4e 00 20 20 49 46 20 4e 4f 54 20 28 66 6c 6f 6f 72 20 28 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 | N...IF.NOT.(floor.(fenster.oben) |
| 7400 | 20 3d 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 20 20 31 2e 30 29 20 68 73 74 6b 6c 65 69 6e 65 | .=.fenster.oben)..1.0).hstkleine |
| 7420 | 72 65 20 67 61 6e 7a 65 20 5a 2e 2a 29 ff ff ff 2e 00 65 72 6d 69 74 74 6c 65 20 66 65 6e 73 74 | re.ganze.Z.*).....ermittle.fenst |
| 7440 | 65 72 72 61 6e 64 20 6f 62 65 6e 20 75 6e 74 65 6e 3a 20 20 3e 20 33 2e 30 20 ff ff ff ff ff ff | errand.oben.unten:..>.3.0....... |
| 7460 | 4e 00 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 66 6c 6f 6f 72 20 28 66 65 6e 73 | N...fenster.unten.:=.floor.(fens |
| 7480 | 74 65 72 20 75 6e 74 65 6e 29 3b 20 20 20 20 20 28 2a 20 6e 61 65 63 68 73 74 6b 6c 65 69 6e 65 | ter.unten);.....(*.naechstkleine |
| 74a0 | 72 65 20 67 61 6e 7a 65 20 5a 2e 2a 29 ff ff ff 4e 00 20 20 49 46 20 66 65 6e 73 74 65 72 20 6f | re.ganze.Z.*)...N...IF.fenster.o |
| 74c0 | 62 65 6e 20 2d 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3e 20 33 2e 30 20 20 20 20 20 20 20 | ben.-.fenster.unten.>.3.0....... |
| 74e0 | 28 2a 20 6e 61 65 63 68 73 74 68 da 68 65 72 65 20 67 61 6e 7a 65 20 5a 61 68 6c 2a 29 ff ff ff | (*.naechsth.here.ganze.Zahl*)... |
| 7500 | 4e 00 20 20 20 20 20 54 48 45 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N......THEN..................... |
| 7520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 62 65 67 72 65 6e 7a 74 65 73 20 46 65 | ................(*.begrenztes.Fe |
| 7540 | 6e 73 74 65 72 20 2a 29 2a 2a 29 2a 29 ff ff ff 2e 00 20 20 74 72 61 67 65 20 70 75 6e 6b 74 65 | nster.*)**)*).......trage.punkte |
| 7560 | 20 69 6e 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3b ff ff ff ff ff ff ff ff ff | .in.geradenpicture.ein;......... |
| 7580 | 2e 00 20 20 73 63 68 72 65 69 62 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 69 6e 20 61 | ....schreibe.geradenpicture.in.a |
| 75a0 | 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b ff 2e 00 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 | usgabevariable;.....funktion.:=. |
| 75c0 | 6e 69 6c 70 69 63 74 75 72 65 3b 20 69 6e 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b 2e | nilpicture;.in.ausgabevariable;. |
| 75e0 | 2e 00 20 20 70 65 6e 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 64 75 72 63 68 67 65 7a 6f 67 65 6e 29 | ....pen.(funktion,.durchgezogen) |
| 7600 | 3b 2e 69 6e 3a 20 3b 61 72 69 61 62 6c 65 3b ff 2e 00 65 72 6d 69 74 74 6c 65 20 66 65 6e 73 74 | ;.in:.;ariable;...ermittle.fenst |
| 7620 | 65 72 72 61 6e 64 20 72 65 63 68 74 73 20 6c 69 6e 6b 73 3a 69 6e 3b 61 72 69 61 62 6c 65 3b ff | errand.rechts.links:in;ariable;. |
| 7640 | 1e 00 72 69 63 68 74 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3a ff ff ff ff | ..richte.geradenpicture.ein:.... |
| 7660 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 79 77 65 72 74 20 61 6c 74 20 20 20 20 20 20 20 20 3a 3d | N............ywert.alt........:= |
| 7680 | 20 30 2e 30 2c 20 75 73 74 61 6e 64 20 28 32 29 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 | .0.0,.ustand.(2);..(*.1.Variable |
| 76a0 | 20 70 6c 75 73 20 3f 3f 20 2a 29 ff ff ff ff ff 2e 00 20 20 66 6f 72 67 65 74 20 28 22 50 49 43 | .plus.??.*).........forget.("PIC |
| 76c0 | 54 55 52 45 22 2c 20 71 75 69 65 74 29 3b 6e 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | TURE",.quiet);n);............... |
| 76e0 | 4e 00 20 20 49 46 20 4e 4f 54 20 65 6e 64 65 20 64 65 72 20 6c 6f 65 73 75 6e 67 20 28 6c 73 67 | N...IF.NOT.ende.der.loesung.(lsg |
| 7700 | 20 6b 75 72 76 65 29 75 73 74 61 6e 64 29 3b 20 20 20 20 20 20 20 31 20 45 72 67 61 65 6e 7a 75 | .kurve)ustand);.......1.Ergaenzu |
| 7720 | 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff 4e 00 20 20 20 20 54 48 45 4e 20 73 70 65 69 63 | ngsvariable.*)..N.....THEN.speic |
| 7740 | 68 65 72 65 20 61 6e 66 61 6e 67 73 77 65 72 74 65 3b 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 | here.anfangswerte;d.SUB.var.akti |
| 7760 | 76 69 74 61 65 74 29 3b 20 20 20 20 6e 6f 74 77 65 6e 64 69 67 20 3f 3f 20 2a 29 ff ff ff ff ff | vitaet);....notwendig.??.*)..... |
| 7780 | 4e 00 20 20 20 20 20 20 20 20 20 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 65 69 | N..........trage.anfangspunkt.ei |
| 77a0 | 6e 3b 20 72 76 65 29 73 74 61 6e 64 20 28 32 29 3b 20 20 20 20 20 20 20 20 28 2a 20 31 20 4b 75 | n;.rve)stand.(2);........(*.1.Ku |
| 77c0 | 72 76 65 20 70 6c 75 73 ff ff ff ff ff ff ff ff 4e 00 74 72 61 67 65 20 66 6f 6c 67 65 70 75 6e | rve.plus........N.trage.folgepun |
| 77e0 | 6b 74 65 20 65 69 6e 3a 6e 6b 74 65 20 65 69 6e 3b 3b 20 6b 75 72 76 65 29 20 52 45 50 20 32 29 | kte.ein:nkte.ein;;.kurve).REP.2) |
| 7800 | 3b 20 20 20 20 20 20 20 20 28 2a 20 31 20 4b 75 72 76 65 20 70 6c 75 73 ff ff ff ff ff ff ff ff | ;........(*.1.Kurve.plus........ |
| 7820 | 1e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 2c 20 64 75 72 63 68 67 65 7a 6f 67 65 6e 29 3b | ....pen.(0,.1,.0,.durchgezogen); |
| 7840 | 4e 00 20 20 20 20 74 72 61 67 65 66 6f 6c 67 65 70 75 6e 6b 74 65 69 6e 20 3b 75 6e 67 20 28 6c | N.....tragefolgepunktein.;ung.(l |
| 7860 | 73 67 20 6b 75 72 76 65 29 20 52 45 50 20 20 79 77 65 72 74 20 3e 3d 20 66 65 6e 73 74 65 72 20 | sg.kurve).REP..ywert.>=.fenster. |
| 7880 | 75 6e 74 65 6e 20 52 45 50 20 65 20 2a 29 20 ff 1e 00 20 20 20 20 74 72 61 67 65 66 6f 6c 67 65 | unten.REP.e.*)........tragefolge |
| 78a0 | 70 75 6e 6b 74 65 69 6e 20 3b ff ff ff ff ff ff 3e 00 20 20 20 20 74 72 61 67 65 66 6f 6c 67 65 | punktein.;......>.....tragefolge |
| 78c0 | 70 75 6e 6b 74 65 69 6e 20 3b 76 65 2c 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 | punktein.;ve,.zeit,.akt.zustand) |
| 78e0 | 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 62 65 68 61 6e 64 6c 65 20 65 72 73 74 65 | ;.................behandle.erste |
| 7900 | 6e 20 70 75 6e 6b 74 3a 20 ff ff ff ff ff ff ff 2e 00 62 65 68 61 6e 64 6c 65 20 65 72 73 74 65 | n.punkt:..........behandle.erste |
| 7920 | 6e 20 70 75 6e 6b 74 3a 20 65 2c 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b ff | n.punkt:.e,.zeit,.akt.zustand);. |
| 7940 | 2e 00 20 20 6c 65 73 65 20 65 72 73 74 65 6e 20 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 | ....lese.ersten.(lsg.kurve,.zeit |
| 7960 | 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b ff 1e 00 20 20 20 20 54 48 45 4e 20 6c 65 73 65 20 | ,.akt.zustand);.......THEN.lese. |
| 7980 | 6e 61 65 63 68 73 74 65 6e 20 70 75 6e 6b 74 ff 1e 00 20 20 74 72 61 67 65 20 61 6e 66 61 6e 67 | naechsten.punkt.....trage.anfang |
| 79a0 | 73 70 75 6e 6b 74 20 65 69 6e 3b 20 ff ff ff ff 2e 00 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 | spunkt.ein;.......trage.anfangsp |
| 79c0 | 75 6e 6b 74 20 65 69 6e 3a 20 20 3a 3d 20 7a 65 69 74 3b 72 76 65 29 20 31 29 3b ff ff ff ff ff | unkt.ein:..:=.zeit;rve).1);..... |
| 79e0 | 2e 00 20 20 7a 65 69 74 77 65 72 74 20 61 6d 20 6b 75 72 76 65 6e 65 6e 64 65 20 3a 3d 20 7a 65 | ....zeitwert.am.kurvenende.:=.ze |
| 7a00 | 69 74 3b 74 3b 65 29 75 73 74 61 6e 64 29 3b ff 2e 00 20 20 20 20 20 20 20 20 20 7a 77 65 69 74 | it;t;e)ustand);............zweit |
| 7a20 | 65 72 20 7a 65 69 74 70 75 6e 6b 74 20 3a 3d 20 7a 65 69 74 3b 55 42 20 31 29 3b ff ff ff ff ff | er.zeitpunkt.:=.zeit;UB.1);..... |
| 7a40 | 4e 00 20 20 20 54 45 58 54 20 43 4f 4e 53 54 20 68 77 7a 20 74 65 78 74 20 3a 3d 20 6c 65 67 65 | N....TEXT.CONST.hwz.text.:=.lege |
| 7a60 | 6e 64 65 6e 74 65 78 74 20 2b 20 63 6f 6d 70 72 65 73 73 20 28 77 61 6e 64 6c 65 20 28 68 77 7a | ndentext.+.compress.(wandle.(hwz |
| 7a80 | 2c 20 31 32 2c 34 29 29 3b 29 29 20 3b 20 ff ff 3e 00 20 20 20 20 20 7a 65 69 74 77 65 72 74 20 | ,.12,4));)).;...>......zeitwert. |
| 7aa0 | 61 6d 20 6b 75 72 76 65 6e 65 6e 64 65 20 3a 3d 20 7a 65 69 74 3b 65 72 20 20 6c 73 67 70 75 6e | am.kurvenende.:=.zeit;er..lsgpun |
| 7ac0 | 6b 74 29 29 20 6b 74 29 29 20 ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 64 72 61 77 20 28 20 66 | kt)).kt)).......N.......draw.(.f |
| 7ae0 | 75 6e 6b 74 69 6f 6e 2c 20 68 77 7a 20 2b 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 2c | unktion,.hwz.+.erster.zeitpunkt, |
| 7b00 | 20 20 20 20 28 2a 20 53 65 6e 6b 72 65 63 68 74 6c 69 6e 69 65 20 6d 69 74 29 29 20 3b 20 ff ff | ....(*.Senkrechtlinie.mit)).;... |
| 7b20 | 2e 00 20 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | .......(************************ |
| 7b40 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 ff ff ff ff ff ff 2e 00 20 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a | *********).............(******** |
| 7b60 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 ff ff ff ff ff ff | *************************)...... |
| 7b80 | 2e 00 73 63 68 72 65 69 62 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 69 6e 20 61 75 73 | ..schreibe.geradenpicture.in.aus |
| 7ba0 | 67 61 62 65 76 61 72 69 61 62 6c 65 3a ff ff ff 4e 00 20 20 70 75 74 70 69 63 74 75 72 65 20 28 | gabevariable:...N...putpicture.( |
| 7bc0 | 73 65 69 74 65 2c 20 68 61 75 70 74 66 65 6e 73 74 65 72 2c 20 66 75 6e 6b 74 69 6f 6e 29 3b 2e | seite,.hauptfenster,.funktion);. |
| 7be0 | 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 29 20 3b 20 66 65 ff ff ff | hoehe,.standardbreite);).;.fe... |
| 7c00 | 4e 00 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 6b 6f 6f 72 64 69 | N.(******************.....koordi |
| 7c20 | 6e 61 74 65 6e 6b 72 65 75 7a 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | natenkreuz.********************* |
| 7c40 | 2a 2a 2a 29 29 29 2b 68 6e 65 74 2a 29 ff ff ff 4e 00 20 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 | ***)))+hnet*)...N...kreuzerzeuge |
| 7c60 | 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 73 65 69 74 65 2c 20 66 65 6e 73 74 65 72 20 6c 69 6e | nundzeichnen.(seite,.fenster.lin |
| 7c80 | 6b 73 2c 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 2c 20 65 29 2b 3f 20 2a 29 ff ff ff ff ff | ks,.fenster.rechts,.e)+?.*)..... |
| 7ca0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N............................... |
| 7cc0 | 20 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 2c 20 66 65 6e 73 74 65 72 20 6f 62 65 6e | .....fenster.unten,.fenster.oben |
| 7ce0 | 29 3b 20 29 29 74 29 29 20 3b 20 ff ff ff ff ff 2e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 6b | );.))t)).;..........beschrifte.k |
| 7d00 | 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b 74 65 72 20 72 65 63 68 74 73 2c 20 ff ff ff ff | oordinatenkreuz;ter.rechts,..... |
| 7d20 | 4e 00 20 20 70 65 6e 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 31 29 3b 20 20 20 20 47 65 72 61 64 65 | N...pen.(funktion,.1);....Gerade |
| 7d40 | 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ..****************************** |
| 7d60 | 2a 2a 2a 29 72 64 29 29 20 3b 20 65 ff ff ff ff 2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 | ***)rd)).;.e........PICTURE.VAR. |
| 7d80 | 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b ff ff ff ff ff ff ff ff ff ff ff ff | kreuz.:=.nilpicture;............ |
| 7da0 | 4e 00 62 65 73 63 68 72 69 66 74 65 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3a 74 65 | N.beschrifte.koordinatenkreuz:te |
| 7dc0 | 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 2e 6e 27 20 67 65 6c | llungsname,.steuerzeile);.n'.gel |
| 7de0 | 6f 65 73 63 68 74 20 3f 3f 2a 29 ff ff ff ff ff 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 | oescht.??*).....N...PICTURE.VAR. |
| 7e00 | 6c 65 67 65 6e 64 65 20 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 70 69 63 74 75 72 65 | legende.:=............nilpicture |
| 7e20 | 3b 72 7a 65 69 6c 65 29 3b 2e 72 20 72 65 63 68 74 73 2c 20 72 64 2b ff ff ff ff ff ff ff ff ff | ;rzeile);.r.rechts,.rd+......... |
| 7e40 | 2e 00 62 65 73 63 68 72 69 66 74 65 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3a 70 69 | ..beschrifte.koordinatenkreuz:pi |
| 7e60 | 63 74 75 72 65 3b 72 65 75 7a 29 3b 20 ff ff ff 1e 00 20 20 52 45 41 4c 20 56 41 52 20 61 2c 20 | cture;reuz);........REAL.VAR.a,. |
| 7e80 | 62 3b 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b 3e 00 28 2a 73 63 68 72 65 69 62 65 20 79 20 69 | b;rdinatenkreuz;>.(*schreibe.y.i |
| 7ea0 | 6e 20 6c 65 67 65 6e 64 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 2a 29 69 | n.legende;...............TEST*)i |
| 7ec0 | 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 3e 00 28 2a 73 63 68 72 65 69 62 65 20 78 20 69 | chnung,.........>.(*schreibe.x.i |
| 7ee0 | 6e 20 6c 65 67 65 6e 64 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 2a 29 6c | n.legende;...............TEST*)l |
| 7f00 | 65 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 52 45 41 4c 20 56 41 52 20 61 2c 20 | e);.................REAL.VAR.a,. |
| 7f20 | 62 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 6c 65 74 | b;..............N............let |
| 7f40 | 7a 74 65 72 20 73 6b 61 6c 70 6b 74 3b 20 20 20 20 20 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d | zter.skalpkt;......REAL.CONST.xm |
| 7f60 | 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 3f 3f 2a 29 2c ff ff ff ff | in,.xmax,.ymin,.ymax):.??*),.... |
| 7f80 | 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 68 69 6e 74 65 72 67 72 75 6e 64 20 6c 69 6e 69 | N...PICTURE.VAR.hintergrund.lini |
| 7fa0 | 65 6e 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 29 3b 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 | en:=.nilpicture;);,.standardbrei |
| 7fc0 | 74 65 29 3b 29 64 79 6d 61 78 29 3a 20 ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 78 20 6d | te);)dymax):.................x.m |
| 7fe0 | 61 78 20 3a 3d 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 3b ff ff ff ff ff ff ff ff ff ff ff | ax.:=.fenster.rechts;........... |
| 8000 | 4e 00 20 20 79 73 6b 61 6c 69 65 72 75 6e 67 3b 6c 75 73 73 73 74 72 69 63 68 20 72 65 63 68 74 | N...yskalierung;lussstrich.recht |
| 8020 | 73 3b 20 20 20 20 20 20 20 20 70 75 74 20 28 22 6e 61 63 68 20 35 2e 20 22 29 3b 70 61 75 73 65 | s;........put.("nach.5..");pause |
| 8040 | 3b 20 2a 29 20 20 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 | ;.*)................movecmr.(leg |
| 8060 | 65 6e 64 65 2c 20 2d 20 31 2e 30 20 2a 20 61 2c 20 30 2e 30 29 3b ff ff ff ff ff ff ff ff ff ff | ende,.-.1.0.*.a,.0.0);.......... |
| 8080 | 4e 00 20 20 78 73 6b 61 6c 69 65 72 75 6e 67 3b 6f 75 74 70 75 74 76 61 72 69 61 62 6c 65 3b 2e | N...xskalierung;outputvariable;. |
| 80a0 | 73 2c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 29 3b 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 | s,.fenster.unten);,.standardbrei |
| 80c0 | 74 65 29 3b 20 20 79 6d 61 78 29 3a 20 29 3b ff 4e 00 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3a | te);..ymax):.);.N.zeichnexachse: |
| 80e0 | 20 78 6d 69 6e 2c 20 79 6d 69 6e 29 3b 20 2e 20 20 3b 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d | .xmin,.ymin);....;.REAL.CONST.xm |
| 8100 | 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 ff ff ff ff ff ff ff ff ff | in,.xmax,.ymin,.ymax):.......... |
| 8120 | 4e 00 7a 65 69 63 68 6e 65 79 61 63 68 73 65 3a 20 78 6d 69 6e 2c 20 79 6d 69 6e 29 3b 20 2e 20 | N.zeichneyachse:.xmin,.ymin);... |
| 8140 | 20 3b 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 | .;.REAL.CONST.xmin,.xmax,.ymin,. |
| 8160 | 79 6d 61 78 29 3a 20 2c 6e 29 3b 29 3b ff ff ff 4e 00 7a 65 69 63 68 6e 65 61 62 73 63 68 6c 75 | ymax):.,n););...N.zeichneabschlu |
| 8180 | 73 73 73 74 72 69 63 68 20 72 65 63 68 74 73 3a 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 | ssstrich.rechts:.modellkurzbezei |
| 81a0 | 63 68 6e 75 6e 67 2c 29 3b 74 65 29 3b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 3b ff ff ff ff ff ff | chnung,);te);ommastellen);...... |
| 81c0 | 1e 00 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 3a 65 2c 20 30 2e 30 2c 20 79 6d 61 78 29 3b ff ff | ..plottelegende:e,.0.0,.ymax);.. |
| 81e0 | 3e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 79 6d 61 78 29 3b 20 20 2e 3a | >...draw.(kreuz,.xmax,ymax);...: |
| 8200 | 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 29 3b 20 75 6e 67 2c ff ff ff ff ff ff ff ff ff | tte.:=.int.(ymax);.ung,......... |
| 8220 | 3e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 3b 6b 74 31 66 65 6e 73 | >...PICTURE.VAR.transfer;kt1fens |
| 8240 | 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 65 6e 29 3b 7a 65 69 6c 65 29 3b 74 65 29 3b ff ff ff | ter,.legende);en);zeile);te);... |
| 8260 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 79 6d 61 78 29 3b 20 20 2e 69 | N...move.(kreuz,.xmax,ymax);...i |
| 8280 | 63 74 75 72 65 3b 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 61 6e 64 61 72 64 68 6f 65 | cture;lkurzbezeichnung,andardhoe |
| 82a0 | 68 65 29 3b 65 6c 6c 65 6e 29 3b ff ff ff ff ff 3e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 | he);ellen);.....>...PICTURE.VAR. |
| 82c0 | 6b 72 65 75 7a 3b 63 68 20 72 65 63 68 74 73 3a 61 6e 7a 61 68 6c 20 79 61 63 68 73 65 6e 61 62 | kreuz;ch.rechts:anzahl.yachsenab |
| 82e0 | 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 3e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c | schnitte.-.1.REP>...kreuz.:=.nil |
| 8300 | 70 69 63 74 75 72 65 3b 69 6e 29 3b 69 63 68 65 3b 20 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 | picture;in);iche;.dardbreite,.-. |
| 8320 | 31 2e 30 29 3b 20 20 20 20 20 20 20 20 ff ff ff 4e 00 7a 65 69 63 68 6e 65 20 68 69 6e 74 65 72 | 1.0);...........N.zeichne.hinter |
| 8340 | 67 72 75 6e 64 73 74 72 69 63 68 65 3a 32 29 3b 63 68 73 65 3b 2e 20 61 63 68 73 65 6e 61 62 73 | grundstriche:2);chse;..achsenabs |
| 8360 | 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 ff ff ff | chnitte.-.1.REP.ymin,.ymax):.... |
| 8380 | 1e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 3b ff ff ff ff ff ff ff | ....PICTURE.VAR.transfer;....... |
| 83a0 | 4e 00 20 20 20 20 20 20 73 63 68 72 69 74 74 77 65 69 74 65 20 3a 3d 20 6c 6f 67 20 31 30 20 28 | N.......schrittweite.:=.log.10.( |
| 83c0 | 72 65 61 6c 20 28 73 29 20 2a 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 20 70 6b 74 29 3b 69 67 3f | real.(s).*.letzter.skal.pkt);ig? |
| 83e0 | 20 3f 3f 3f 20 2a 29 2a 29 ff ff ff ff ff ff ff 1e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30 | .???.*)*)...........drawcmr.(0.0 |
| 8400 | 2c 20 2d 20 30 2e 33 29 3b 23 65 3b ff ff ff ff 2e 00 20 20 49 4e 54 20 56 41 52 20 69 2c 20 73 | ,.-.0.3);#e;........INT.VAR.i,.s |
| 8420 | 2c 72 65 75 7a 3b 6b 61 6c 70 6b 74 3b 63 68 74 73 3b 69 3b ff ff ff ff ff ff ff ff ff ff ff ff | ,reuz;kalpkt;chts;i;............ |
| 8440 | 3e 00 20 20 20 20 20 20 6d 6f 76 65 20 28 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 2c | >.......move.(hintergrundlinien, |
| 8460 | 20 78 6d 69 6e 2c 20 73 63 68 72 69 74 74 77 65 69 74 65 29 3b 61 6c 20 70 6b 74 29 3b ff ff ff | .xmin,.schrittweite);al.pkt);... |
| 8480 | 3e 00 7a 65 69 63 68 6e 65 76 65 72 6c 61 65 6e 67 65 72 75 6e 67 3a 6e 64 6c 69 6e 69 65 6e 2c | >.zeichneverlaengerung:ndlinien, |
| 84a0 | 20 78 6d 61 78 2c 20 73 63 68 72 69 74 74 77 65 69 74 65 29 3b 61 6c 20 70 6b 74 29 3b ff ff ff | .xmax,.schrittweite);al.pkt);... |
| 84c0 | 1e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 72 65 61 6c 20 28 69 20 2b 20 31 29 3b 69 6e 29 3b ff | ....stelle.:=.real.(i.+.1);in);. |
| 84e0 | 1e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 29 3b ff ff ff | ....draw.(kreuz,.xmax,.ymin);... |
| 8500 | 2e 00 20 20 46 4f 52 20 73 20 46 52 4f 4d 20 32 20 55 50 54 4f 20 31 30 20 52 45 50 20 68 72 69 | ....FOR.s.FROM.2.UPTO.10.REP.hri |
| 8520 | 74 74 29 3b 67 3b 65 29 3b ff ff ff ff ff ff ff 1e 00 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 79 | tt);g;e);...........move.(0.0,.y |
| 8540 | 6d 61 78 29 3b ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 7a 65 69 67 65 64 61 72 73 74 34 | max);................zeigedarst4 |
| 8560 | 20 28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c 73 67 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff | .(dst,.indemo,.lsgkurve);....... |
| 8580 | 2e 00 20 20 20 20 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 62 72 65 69 74 | .......kernvondarstellung4.breit |
| 85a0 | 65 29 3b 20 20 20 2a 29 ff ff ff ff ff ff ff ff 1e 00 20 20 6b 6f 6f 72 64 75 72 73 70 72 75 6e | e);...*)............koordursprun |
| 85c0 | 67 3b 2c 20 30 2e 32 2c 20 2d 20 30 2e 32 29 3b 2e 00 20 20 52 45 41 4c 20 56 41 52 20 73 74 65 | g;,.0.2,.-.0.2);....REAL.VAR.ste |
| 85e0 | 6c 6c 65 20 3a 3d 20 78 6d 69 6e 3b 6e 64 61 72 64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff ff | lle.:=.xmin;ndardhoehe);........ |
| 8600 | 2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 | ....standardhoehe,.standardbreit |
| 8620 | 65 29 3b 20 20 20 2a 29 ff ff ff ff ff ff ff ff 1e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 | e);...*)............transfer.:=. |
| 8640 | 6b 72 65 75 7a 3b 30 2c 20 2d 20 30 2e 33 29 3b 1e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 | kreuz;0,.-.0.3);..........plotta |
| 8660 | 73 6b 29 20 3b 3b 3b 3b ff ff ff ff ff ff ff ff 1e 00 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 3a | sk).;;;;..........koordursprung: |
| 8680 | 30 3b 2d 20 30 2e 33 29 3b ff ff ff ff ff ff ff 1e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 30 2e | 0;-.0.3);...........stelle.:=.0. |
| 86a0 | 30 3b 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b ff 1e 00 20 20 20 20 20 20 7a 65 69 67 65 61 62 62 | 0;telle,.ymin);.........zeigeabb |
| 86c0 | 72 75 63 68 6d 65 6e 75 65 20 2e 32 29 3b ff ff 3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 28 28 2d | ruchmenue..2);..>...movecmr.(((- |
| 86e0 | 20 31 2e 30 29 20 2a 20 72 65 61 6c 20 28 76 6f 72 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61 6e 64 | .1.0).*.real.(vorkomma)).*.stand |
| 8700 | 61 72 64 62 72 65 69 74 65 2c 20 ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 62 65 73 63 68 | ardbreite,......N..........besch |
| 8720 | 72 69 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 63 68 73 65 3b 3b 20 62 65 73 63 68 72 69 | rifte.1.pkt.an.x.achse;;.beschri |
| 8740 | 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 63 68 73 65 3b 2e 30 2c 20 ff ff ff ff ff ff ff | fte.1.pkt.an.x.achse;.0,........ |
| 8760 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 78 | N...move.(kreuz,.stelle,.ymin);x |
| 8780 | 20 61 63 68 73 65 3b 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c | .achse;komma)).*.standardbreite, |
| 87a0 | 20 68 73 65 3b 65 6d 2a 20 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 2d 20 31 2e 30 20 2a 20 73 | .hse;em*........N......-.1.0.*.s |
| 87c0 | 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 6f 6d 6d 61 29 29 20 2a | tandardhoehe.-.abstand);omma)).* |
| 87e0 | 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 64 62 72 65 69 74 65 29 2e ff ff ff ff ff ff | .standardbreite,.dbreite)....... |
| 8800 | 2e 00 28 2a 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 54 45 53 54 2a 29 74 | ..(*..move.(0.0,.stelle);TEST*)t |
| 8820 | 65 29 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 62 65 73 63 68 72 69 66 74 65 | e)..............>.....beschrifte |
| 8840 | 20 32 20 55 50 54 4f 20 33 20 52 45 50 20 6f 73 29 3b 6c 73 67 3b 65 20 3d 20 6d 6f 64 65 6c 6c | .2.UPTO.3.REP.os);lsg;e.=.modell |
| 8860 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 4e 00 20 20 20 20 20 20 20 20 20 28 2a 20 22 6c | groessentaste...N..........(*."l |
| 8880 | 61 65 6e 67 65 22 20 69 73 74 20 65 69 6e 20 53 63 68 d9 74 7a 77 65 72 74 20 66 db 72 20 64 69 | aenge".ist.ein.Sch.tzwert.f.r.di |
| 88a0 | 65 20 53 63 68 72 69 74 74 77 65 69 74 65 2e 20 41 75 73 67 65 68 65 6e 64 20 76 6f 6e ff ff ff | e.Schrittweite..Ausgehend.von... |
| 88c0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 44 69 65 20 69 2e 66 2e 20 65 72 6d 69 74 74 65 6c | N..............Die.i.f..ermittel |
| 88e0 | 74 65 20 53 63 68 72 69 74 74 77 65 69 74 65 20 77 69 72 64 20 64 61 73 20 49 6e 74 65 72 76 61 | te.Schrittweite.wird.das.Interva |
| 8900 | 6c 6c 20 69 6e 68 65 6e 64 20 76 6f 6e ff ff ff 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 | ll.inhend.von.............ELIF.t |
| 8920 | 61 73 74 65 20 3c 3e 20 6d 65 6e 75 65 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | aste.<>.menuetaste.............. |
| 8940 | 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b ff ff | ....move.(kreuz,.0.0,.stelle);.. |
| 8960 | 4e 00 20 20 65 78 70 6f 6e 65 6e 74 65 6e 20 65 72 6d 69 74 74 65 6c 6e 3b 20 22 63 61 20 73 63 | N...exponenten.ermitteln;."ca.sc |
| 8980 | 68 72 69 74 74 65 22 20 75 6e 64 20 68 da 63 68 73 74 65 6e 73 20 32 2a 22 63 61 20 73 63 68 72 | hritte".und.h.chstens.2*"ca.schr |
| 89a0 | 69 74 74 65 22 65 6d 6e 64 20 76 6f 6e ff ff ff 4e 00 65 78 70 6f 6e 65 6e 74 65 6e 20 65 72 6d | itte"emnd.von...N.exponenten.erm |
| 89c0 | 69 74 74 65 6c 6e 3a 20 3b 20 2e 2a 29 20 73 63 68 72 69 74 74 65 22 20 75 6e 64 20 68 da 63 68 | itteln:.;..*).schritte".und.h.ch |
| 89e0 | 73 74 65 6e 73 20 32 2a 22 63 61 20 73 63 68 72 69 74 74 65 22 20 6f 64 65 72 65 20 69 ff ff ff | stens.2*"ca.schritte".odere.i... |
| 8a00 | 1e 00 20 20 49 46 20 4e 4f 54 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 6d 6f 65 67 6c 69 63 68 20 | ....IF.NOT.darstellung.moeglich. |
| 8a20 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 | ..............reenterdarstellung |
| 8a40 | 34 20 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff 4e 00 20 49 4e 54 20 56 41 52 20 69 20 3a 3d 20 | 4.kurve);.......N..INT.VAR.i.:=. |
| 8a60 | 64 65 63 69 6d 61 6c 65 78 70 6f 6e 65 6e 74 20 28 6c 61 65 6e 67 65 29 3b 20 2e 72 74 65 20 6c | decimalexponent.(laenge);..rte.l |
| 8a80 | 69 65 66 65 72 74 2e 20 22 6c 61 65 6e 67 65 22 20 61 62 7a 75 72 75 6e 64 65 6e 2c 20 64 61 ff | iefert.."laenge".abzurunden,.da. |
| 8aa0 | 3e 00 20 20 6c 73 67 6b 75 72 76 65 20 3a 3d 20 4c 4f 45 53 55 4e 47 53 41 42 53 43 48 4e 49 54 | >...lsgkurve.:=.LOESUNGSABSCHNIT |
| 8ac0 | 54 20 6c 73 67 3b 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 73 74 22 29 3b ff ff ff ff ff ff | T.lsg;t,.lsg,.taste);st");...... |
| 8ae0 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 74 65 6c 6c 75 6e 67 34 20 43 48 4e 49 54 | .............THEN.tellung4.CHNIT |
| 8b00 | 54 20 6c 73 67 3b ff ff ff ff ff ff ff ff ff ff 1e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c | T.lsg;............kernvondarstel |
| 8b20 | 6c 75 6e 67 34 3a 20 6d 6f 65 67 6c 69 63 68 20 1e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c | lung4:.moeglich...kernvondarstel |
| 8b40 | 6c 75 6e 67 34 3a 6e 75 65 20 ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 | lung4:nue.................reente |
| 8b60 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 67 34 20 73 67 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff | rdarstellung4g4.sgkurve);....... |
| 8b80 | 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff | ..........leavedarstellung4..... |
| 8ba0 | 1e 00 20 20 20 20 20 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 20 ff ff ff ff ff ff ff ff ff | ........dialogfuerdemo.......... |
| 8bc0 | 3e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e 20 28 74 61 73 74 65 29 3b 20 20 20 20 20 20 20 | >.....tastelesen.(taste);....... |
| 8be0 | 20 20 20 20 69 73 74 20 6e 69 63 68 74 20 73 69 6e 6e 76 6f 6c 6c 20 2a 29 61 73 74 65 20 ff ff | ....ist.nicht.sinnvoll.*)aste... |
| 8c00 | 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff | ..........leavedarstellung4..... |
| 8c20 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 | N.............leave.darstellung. |
| 8c40 | 34 3b 65 69 6e 65 72 20 67 6c 65 69 63 68 20 65 69 6e 73 61 72 73 74 22 29 3b 7a 69 66 66 65 72 | 4;einer.gleich.einsarst");ziffer |
| 8c60 | 6e 20 76 6f 6e 20 22 6c 61 65 6e 67 65 22 ff ff 3e 00 20 20 6c 73 67 6b 75 72 76 65 20 3a 3d 20 | n.von."laenge"..>...lsgkurve.:=. |
| 8c80 | 4c 4f 45 53 55 4e 47 53 41 42 53 43 48 4e 49 54 54 20 6c 73 67 3b 74 31 66 65 6e 73 74 65 72 2c | LOESUNGSABSCHNITT.lsg;t1fenster, |
| 8ca0 | 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff 4e 00 20 20 20 7a 65 69 67 65 64 61 72 73 74 34 | ."darst");......N....zeigedarst4 |
| 8cc0 | 20 28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c 73 67 6b 75 72 76 65 29 3b 65 6e 73 74 65 72 2c | .(dst,.indemo,.lsgkurve);enster, |
| 8ce0 | 20 22 64 61 72 73 74 22 29 3b 54 20 56 41 52 20 74 61 73 74 65 29 3a 7a 65 69 6c 65 2c ff ff ff | ."darst");T.VAR.taste):zeile,... |
| 8d00 | 1e 00 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff | .............THEN............... |
| 8d20 | 2e 00 20 20 66 6f 72 67 65 74 20 28 22 64 61 72 73 74 22 2c 20 71 75 69 65 74 29 3b 6e 67 73 61 | ....forget.("darst",.quiet);ngsa |
| 8d40 | 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | rttaste.........>.............re |
| 8d60 | 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 | enterdarstellung4.var.aktivitaet |
| 8d80 | 29 20 3e 3d 20 31 2e 30 20 68 6e 75 6e 67 2c ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 73 74 | ).>=.1.0.hnung,...............st |
| 8da0 | 65 75 65 72 7a 65 69 6c 65 29 3b ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 54 48 45 | euerzeile);..................THE |
| 8dc0 | 4e 20 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff | N.vedarstellung4.ttaste......... |
| 8de0 | 2e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 20 43 4f 52 20 74 61 73 74 | ..........loeschemenue;.COR.tast |
| 8e00 | 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 1e 00 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 | e.=.zeigezusatz.........ELIF.tas |
| 8e20 | 74 65 20 3c 3e 20 65 73 63 20 73 74 65 20 ff ff 2e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b | te.<>.esc.ste.......gibmenueaus; |
| 8e40 | 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 74 3a 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | avedarstellung4.t:;............. |
| 8e60 | 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f | N.....IF.taste.=.abbruchtaste.CO |
| 8e80 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 73 74 | R.taste.=.modellgroessentaste.st |
| 8ea0 | 65 20 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff 2e 00 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 | e.chtaste.COR...........steuerze |
| 8ec0 | 69 6c 65 29 3b 64 61 72 73 74 3a 29 3b 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff | ile);darst:);atzdarst........... |
| 8ee0 | 2e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 | ....gibmenueaus;terdarstellung4. |
| 8f00 | 67 34 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f | g4................dialogfuerdemo |
| 8f20 | 3a 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 4e 00 61 72 67 75 6d 65 6e 74 65 20 69 6d 20 64 | :erdarstellung4.N.argumente.im.d |
| 8f40 | 65 66 62 65 72 65 69 63 68 3a 20 20 20 20 20 20 20 20 20 28 2a 20 47 72 75 6e 64 73 61 65 74 7a | efbereich:.........(*.Grundsaetz |
| 8f60 | 6c 2e 6d 69 6e 64 65 73 74 65 6e 73 20 65 69 6e 20 50 75 6e 6b 74 20 3e 3d 20 31 20 2a 29 ff ff | l.mindestens.ein.Punkt.>=.1.*).. |
| 8f80 | 4e 00 7a 77 65 69 74 65 72 20 70 75 6e 6b 74 20 6b 6c 65 69 6e 65 72 20 67 6c 65 69 63 68 20 65 | N.zweiter.punkt.kleiner.gleich.e |
| 8fa0 | 69 6e 73 3a 20 28 2a 20 61 75 63 68 20 32 2e 50 6b 74 20 3e 20 31 2c 20 64 61 6d 69 74 20 48 61 | ins:.(*.auch.2.Pkt.>.1,.damit.Ha |
| 8fc0 | 6c 62 77 65 72 74 73 7a 65 69 74 ff ff ff ff ff 3e 00 20 20 20 28 6d 61 78 69 6d 61 6c 77 65 72 | lbwertszeit.....>....(maximalwer |
| 8fe0 | 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 | te.(lsgkurve).SUB.var.aktivitaet |
| 9000 | 29 20 3e 3d 20 31 2e 30 20 2e 73 74 65 20 ff ff 1e 00 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 | ).>=.1.0..ste.........zeigemenue |
| 9020 | 3b 3d 20 73 65 6e 64 65 74 61 73 74 65 20 34 20 3e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 | ;=.sendetaste.4.>.....fuellemenu |
| 9040 | 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 29 3b 73 74 65 20 3d 20 77 65 69 74 65 72 | e.(menuezeile.(16));ste.=.weiter |
| 9060 | 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 4c 45 41 56 45 20 64 61 72 73 74 65 | taste...............LEAVE.darste |
| 9080 | 6c 6c 75 6e 67 34 2e ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 | llung4..........>.......steuerze |
| 90a0 | 69 6c 65 29 3b 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | ile);ellungsarten.(taste,.FALSE. |
| 90c0 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 76 6f 72 7a 65 69 74 69 67 | );..............N......vorzeitig |
| 90e0 | 20 62 65 65 6e 64 65 74 20 31 20 2b 20 72 65 74 75 72 6e 20 2b 20 6c 65 72 6d 65 6c 64 75 6e 67 | .beendet.1.+.return.+.lermeldung |
| 9100 | 20 61 6e 66 61 6e 67 20 3b 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 2c 20 ff ff | .anfang.;.darstellungsname,.,... |
| 9120 | 2e 00 20 20 20 20 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 74 7a 64 61 72 73 | .......taste.=.zeigezeitd.tzdars |
| 9140 | 74 3a 7a 75 73 61 74 7a 64 61 72 73 74 20 7a 20 4e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e | t:zusatzdarst.z.N.....tastelesen |
| 9160 | 20 28 74 61 73 74 65 29 3b 65 6c 6c 75 6e 67 34 20 61 73 74 65 20 3d 20 7a 65 69 67 65 68 69 73 | .(taste);ellung4.aste.=.zeigehis |
| 9180 | 74 6f 67 72 69 63 68 6e 75 6e 67 2c 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | togrichnung,.abbruchtaste.COR... |
| 91a0 | 1e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff | ......initialisieremenue;....... |
| 91c0 | 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 73 61 74 7a | ..........leavedarstellung4.satz |
| 91e0 | 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff 0e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b | darst...............gibmenueaus; |
| 9200 | 3e 00 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 73 74 | >...ELIF.taste.=.rubout.COR.tast |
| 9220 | 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 20 74 2e | e.=.zeigezusatz.bezeichnung,..t. |
| 9240 | 2e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 3b 63 29 20 67 34 20 | ......loeschemenuemeldung;c).g4. |
| 9260 | 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | en;.......................loesch |
| 9280 | 65 6d 65 6e 75 65 3b 6e 67 3b 3a 75 6e 67 34 20 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff | emenue;ng;:ung4.urzusatzdarst... |
| 92a0 | 3e 00 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 | >.........modellgroesseneinblend |
| 92c0 | 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff | en.(dst,.lsg,.taste);........... |
| 92e0 | 2e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3a 65 7a 65 69 6c 65 20 28 31 37 29 | ..gibabbruchmenueaus:ezeile.(17) |
| 9300 | 29 3b 74 61 73 74 65 20 64 61 72 73 74 20 ff ff 4e 00 20 20 20 20 20 20 54 48 45 4e 20 6c 6f 65 | );taste.darst...N.......THEN.loe |
| 9320 | 73 63 68 65 6d 65 6e 75 65 3b 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c | schemenue;neinblenden.(dst,.lsg, |
| 9340 | 20 74 61 73 74 65 29 3b 63 68 6e 75 6e 67 2c 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | .taste);chnung,ile,.steuerzeile, |
| 9360 | 1e 00 20 20 20 20 20 20 20 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20 28 31 32 29 3b ff ff ff | ..........gibmeldungaus.(12);... |
| 9380 | 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff | ..........loeschemenue;......... |
| 93a0 | 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 73 74 | N.....ELIF.taste.=.sendetaste.st |
| 93c0 | 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 | ,.modellkurzbezeichnung,.kopfzei |
| 93e0 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c | le,.steuerzeile,...............l |
| 9400 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 75 65 20 61 72 73 74 20 ff ff ff ff ff ff ff ff | eavedarstellung4ue.arst......... |
| 9420 | 1e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 ff ff | .......ELIF.NOT.(taste.=.esc)... |
| 9440 | 3e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 | >.....fuellemenue.(menuezeile.(1 |
| 9460 | 36 29 29 3b 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 ff ff ff ff ff | 6));gstext.(falschetaste))...... |
| 9480 | 2e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 20 28 31 29 29 | ............fusszeileleer);.(1)) |
| 94a0 | 3b 3b 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 | ;;);..............zeigeabbruchme |
| 94c0 | 6e 75 65 3a 68 6d 65 6e 75 65 3a 7a 64 61 72 73 74 3a 2e ff ff ff ff ff ff ff ff ff ff ff ff ff | nue:hmenue:zdarst:.............. |
| 94e0 | 2e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3a 65 7a 65 69 6c 65 20 28 31 36 29 | ..gibabbruchmenueaus:ezeile.(16) |
| 9500 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 67 69 62 61 62 62 72 75 63 68 6d 65 | );..................gibabbruchme |
| 9520 | 6e 75 65 61 75 73 3b 65 72 29 3b 20 28 35 29 29 3b 3b 2e 7a 64 61 72 73 74 2e ff ff ff ff ff ff | nueaus;er);.(5));;.zdarst....... |
| 9540 | 4e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 61 75 73 20 28 64 73 74 2c 20 6d | N.....fusszeileleer);aus.(dst,.m |
| 9560 | 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e | odellkurzbezeichnung,.darstellun |
| 9580 | 67 73 6e 61 6d 65 2c 20 6e 61 6d 65 2c 20 ff ff 1e 00 20 20 67 69 62 61 62 62 72 75 63 68 6d 65 | gsname,.name,.......gibabbruchme |
| 95a0 | 6e 75 65 61 75 73 3b ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e | nueaus;.........>...........THEN |
| 95c0 | 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 29 3b 20 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | .menuezeile.(16));.aste.=.modell |
| 95e0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c | groessentaste..................l |
| 9600 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 74 7a 20 6e 75 65 20 20 ff ff ff ff ff ff ff ff | eavedarstellung4tz.nue.......... |
| 9620 | 3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 3d 20 72 75 62 6f 75 74 20 3a 65 6c 6c 75 6e | >...........THEN.=.rubout.:ellun |
| 9640 | 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b ff ff ff ff ff ff ff ff | gsarten.(taste,.FALSE.);........ |
| 9660 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 20 20 20 20 45 4c 49 46 20 74 61 73 | N................(*.....ELIF.tas |
| 9680 | 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 20 20 20 28 2a 75 72 73 70 72 2a 29 20 2a 29 | te.=.zeigezusatz....(*urspr*).*) |
| 96a0 | 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 3e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 | .=.abbruchtaste.>...........fuss |
| 96c0 | 7a 65 69 6c 65 6c 65 65 72 29 3b 63 68 6d 65 6e 75 65 20 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 | zeileleer);chmenue.OR.taste.=.ze |
| 96e0 | 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 | igezeitd..................ELIF.t |
| 9700 | 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | aste.=.zeigezusatz.............. |
| 9720 | 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 | ..............reenterzeigeabbruc |
| 9740 | 68 6d 65 6e 75 65 20 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | hmenue....................loesch |
| 9760 | 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff 4e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 | emenue;.........N.gibabbruchmenu |
| 9780 | 65 61 75 73 3a 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 61 | eaus:.......initialisieremenue;a |
| 97a0 | 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | lsche.taste)).rstellungsname,... |
| 97c0 | 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 | >...fuellemenue.(menuezeile.(17) |
| 97e0 | 29 3b 67 20 62 65 65 6e 64 65 74 20 31 29 3b 74 20 32 20 29 3b 6d 65 6e 75 65 2e 75 65 2e ff ff | );g.beendet.1);t.2.);menue.ue... |
| 9800 | 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b ff ff ff ff ff ff ff ff | ..END.PROC.darstellung4;........ |
| 9820 | 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 | ....fuellemenue.(menuezeile.(5)) |
| 9840 | 3b 65 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 | ;e................END.PROC.darst |
| 9860 | 65 6c 6c 75 6e 67 34 3b 69 6c 65 20 28 31 37 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ellung4;ile.(17));.............. |
| 9880 | 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 | ....fuellemenue.(menuezeile.(17) |
| 98a0 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 4c 45 54 20 20 20 20 20 20 20 20 61 62 62 | );..............N.LET........abb |
| 98c0 | 72 75 63 68 74 61 73 74 65 20 3d 20 22 61 22 2c 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 | ruchtaste.=."a",.modellgroessent |
| 98e0 | 61 73 74 65 20 3d 20 22 73 22 2c 20 73 65 6e 64 65 74 61 73 74 65 20 3d 20 22 78 22 2c ff ff ff | aste.=."s",.sendetaste.=."x",... |
| 9900 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 68 6c 65 72 6d 65 6c 64 75 6e 67 20 61 6e 66 61 6e | N............fehlermeldung.anfan |
| 9920 | 67 20 3d 75 6e 6b 74 65 20 62 65 72 65 63 68 6e 65 74 21 20 2a 2a 2a 22 20 2c 20 2a 2a 22 20 2c | g.=unkte.berechnet!.***".,.**"., |
| 9940 | 20 2a 2a 22 20 2c 20 ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 6e | .**".,..........N............fen |
| 9960 | 73 74 65 72 20 6c 69 6e 6b 73 20 3a 3d 20 30 2e 30 2c 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 | ster.links.:=.0.0,.fenster.recht |
| 9980 | 73 20 3a 3d 20 6c 65 74 7a 74 65 20 7a 65 69 74 20 28 6c 73 67 6b 75 72 76 65 29 2c ff ff ff ff | s.:=.letzte.zeit.(lsgkurve),.... |
| 99a0 | 2e 00 20 20 65 72 73 74 65 6c 6c 65 20 6b 75 72 76 65 20 64 65 72 20 7a 75 73 61 74 7a 64 61 72 | ....erstelle.kurve.der.zusatzdar |
| 99c0 | 73 74 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 62 65 73 74 69 6d 6d 65 20 61 75 73 | st;.................bestimme.aus |
| 99e0 | 67 61 62 65 61 75 73 73 63 68 6e 69 74 74 3b 72 73 74 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff | gabeausschnitt;rst;............. |
| 9a00 | 3e 00 20 20 70 6c 6f 74 74 65 20 20 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b 3b 3a | >...plotte...koordinatenkreuz;;: |
| 9a20 | 75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b ff ff ff ff | u2,.z1,.z2,.strukt1fenster);.... |
| 9a40 | 2e 00 20 20 65 72 6d 69 74 74 6c 65 20 66 65 6e 73 74 65 72 72 61 6e 64 20 6f 62 65 6e 20 75 6e | ....ermittle.fensterrand.oben.un |
| 9a60 | 74 65 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 | ten;............N...fenster.unte |
| 9a80 | 6e 20 3a 3d 20 6c 6f 67 31 30 20 28 79 6d 69 6e 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n.:=.log10.(ymin);.............. |
| 9aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 56 6f 72 61 75 73 73 65 74 7a 75 6e 67 20 2a 29 ff ff ff | .............Voraussetzung.*)... |
| 9ac0 | 4e 00 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 66 65 6e 73 74 65 | N........fenster.unten.:=.fenste |
| 9ae0 | 72 20 6f 62 65 6e 20 2d 20 33 2e 30 20 3b 20 20 28 2a 20 6e 61 65 63 68 73 74 6b 6c 65 69 6e 65 | r.oben.-.3.0.;..(*.naechstkleine |
| 9b00 | 72 65 20 67 61 6e 7a 65 20 5a 2e 2a 29 ff ff ff 4e 00 20 20 74 72 61 67 65 20 70 75 6e 6b 74 65 | re.ganze.Z.*)...N...trage.punkte |
| 9b20 | 20 69 6e 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3b 2a 20 20 20 20 20 47 65 72 | .in.geradenpicture.ein;*.....Ger |
| 9b40 | 61 64 65 6e 76 65 72 6c 61 75 66 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 ff ff ff ff ff | adenverlauf.**************)..... |
| 9b60 | 2e 00 20 20 73 63 68 72 65 69 62 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 69 6e 20 61 | ....schreibe.geradenpicture.in.a |
| 9b80 | 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b ff 4e 00 20 20 5a 55 53 54 41 4e 44 20 56 41 52 20 | usgabevariable;.N...ZUSTAND.VAR. |
| 9ba0 | 61 6b 74 20 7a 75 73 74 61 6e 64 20 3a 3d 20 6e 65 75 65 72 20 7a 75 73 74 61 6e 64 20 28 32 29 | akt.zustand.:=.neuer.zustand.(2) |
| 9bc0 | 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 20 70 6c 75 73 72 69 61 62 6c 65 20 2a 29 20 ff | ;..(*.1.Variable.plusriable.*).. |
| 9be0 | 4e 00 20 20 57 48 49 4c 45 20 4e 4f 54 20 65 6e 64 65 20 64 65 72 6c 6f 65 73 75 6e 67 20 28 6c | N...WHILE.NOT.ende.derloesung.(l |
| 9c00 | 73 67 20 6b 75 72 76 65 29 20 52 45 50 20 32 29 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 | sg.kurve).REP.2);..(*.1.Variable |
| 9c20 | 20 70 6c 75 73 75 73 20 65 69 6e 65 72 ff ff ff 4e 00 20 20 55 4e 54 49 4c 20 79 77 65 72 74 20 | .plusus.einer...N...UNTIL.ywert. |
| 9c40 | 3c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 50 45 52 20 3b 72 76 65 29 20 52 45 50 20 32 29 | <.fenster.unten.PER.;rve).REP.2) |
| 9c60 | 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 20 70 6c 75 73 20 52 45 50 20 ff ff ff ff ff ff | ;..(*.1.Variable.plus.REP....... |
| 9c80 | 3e 00 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 65 69 6e 3a 20 74 20 7a 75 73 74 | >.trage.anfangspunkt.ein:.t.zust |
| 9ca0 | 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b ff ff ff ff ff ff ff ff | and.SUB.var.aktivitaet);........ |
| 9cc0 | 2e 00 20 20 20 20 20 20 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 20 3a 3d 20 7a 65 69 | .........erster.zeitpunkt.:=.zei |
| 9ce0 | 74 3b 65 20 64 75 72 63 68 3b 2a 29 ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t;e.durch;*)....N............... |
| 9d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9d20 | 20 20 20 20 20 20 20 57 65 72 74 61 6e 67 61 62 65 20 2a 29 70 75 6e 6b 74 29 29 20 3b 20 ff ff | .......Wertangabe.*)punkt)).;... |
| 9d40 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 20 31 30 20 28 30 2e 35 20 2a 20 65 72 73 | N..............log.10.(0.5.*.ers |
| 9d60 | 74 65 72 20 6c 73 67 70 75 6e 6b 74 29 29 20 3b 20 20 20 20 28 2a 20 53 65 6e 6b 72 65 63 68 74 | ter.lsgpunkt)).;....(*.Senkrecht |
| 9d80 | 6c 69 6e 69 65 20 6d 69 74 29 29 20 3b 20 ff ff 4e 00 20 20 20 20 20 20 64 72 61 77 63 6d 72 20 | linie.mit)).;...N.......drawcmr. |
| 9da0 | 28 66 75 6e 6b 74 69 6f 6e 2c 20 30 2e 30 2c 20 2d 32 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 68 | (funktion,.0.0,.-2.0.*.standardh |
| 9dc0 | 6f 65 68 65 2d 20 32 2e 30 20 2a 20 61 62 73 74 61 6e 64 29 3b 6c 69 6e 6b 73 29 29 20 ff ff ff | oehe-.2.0.*.abstand);links)).... |
| 9de0 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | >............................... |
| 9e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3f 3f 20 20 20 2a 29 ff | ........................??...*). |
| 9e20 | 4e 00 20 20 20 20 20 20 64 72 61 77 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 68 77 7a 20 74 65 78 74 | N.......draw.(funktion,.hwz.text |
| 9e40 | 2c 20 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 | ,..0.0,.standardhoehe,.standardb |
| 9e60 | 72 65 69 74 65 29 3b 6b 74 29 29 20 3b 20 ff ff 3e 00 20 20 70 75 74 70 69 63 74 75 72 65 20 28 | reite);kt)).;...>...putpicture.( |
| 9e80 | 73 65 69 74 65 2c 20 68 61 75 70 74 66 65 6e 73 74 65 72 2c 20 74 72 61 6e 73 66 65 72 29 3b 69 | seite,.hauptfenster,.transfer);i |
| 9ea0 | 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 3e 00 28 2a 70 6c 6f 74 20 28 66 75 6e 6b 74 69 | chnung,.........>.(*plot.(funkti |
| 9ec0 | 6f 6e 29 3b 20 20 20 20 20 20 20 20 20 20 2a 29 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 | on);..........*).modellkurzbezei |
| 9ee0 | 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 4e 00 20 20 70 65 6e 20 28 6c 65 67 65 6e 64 65 | chnung,.........N...pen.(legende |
| 9f00 | 2c 20 31 29 3b 3b 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 2a 2a | ,.1);;trukt1fenster,.legende);** |
| 9f20 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 29 29 2b 78 6d 69 6e 2c ff ff ff ff | *******************)))+xmin,.... |
| 9f40 | 4e 00 62 65 73 63 68 72 69 66 74 65 20 61 63 68 73 65 6e 3a 20 73 74 72 75 6b 74 31 66 65 6e 73 | N.beschrifte.achsen:.strukt1fens |
| 9f60 | 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 65 6e 29 3b 7a 65 69 6c 65 29 3b 2e 20 6f 62 65 6e 29 | ter,.legende);en);zeile);..oben) |
| 9f80 | 3b 20 2a 29 65 6e 20 78 6d 69 6e 2c 29 ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 78 20 6d | ;.*)en.xmin,)................x.m |
| 9fa0 | 61 78 20 3a 3d 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 3b ff ff ff ff ff ff ff ff ff ff ff | ax.:=.fenster.rechts;........... |
| 9fc0 | 2e 00 20 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 3b 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 | ....plottelegende;e,.strukt1fens |
| 9fe0 | 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b ff ff 2e 00 62 65 73 63 68 72 69 66 74 65 20 61 63 68 | ter,.legende);....beschrifte.ach |
| a000 | 73 65 6e 20 69 6e 20 6c 65 67 65 6e 64 65 3a 45 53 54 2a 29 ff ff ff ff ff ff ff ff ff ff ff ff | sen.in.legende:EST*)............ |
| a020 | 3e 00 28 2a 73 63 68 72 65 69 62 65 20 79 20 69 6e 20 6c 65 67 65 6e 64 65 3a 20 28 2a 20 54 45 | >.(*schreibe.y.in.legende:.(*.TE |
| a040 | 53 54 2a 29 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff ff ff ff ff ff ff | ST*)aengebeibeschriftung,....... |
| a060 | 2e 00 20 20 20 20 20 20 20 20 20 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 70 6b 74 2c 2a 20 61 2c | ............letzter.skalpkt,*.a, |
| a080 | 20 30 2e 30 29 3b 20 54 45 53 54 2a 29 ff ff ff 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 | .0.0);.TEST*).............ELIF.t |
| a0a0 | 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 6e 75 65 20 ff ff ff ff ff ff ff ff ff | aste.=.zeigezusatz.nue.......... |
| a0c0 | 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 | ..........ELIF.taste.=.zeigezusa |
| a0e0 | 74 7a 20 3b ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 | tz.;............>.........reente |
| a100 | 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 67 73 74 65 78 74 20 28 66 61 6c 73 63 | rzeigeabbruchmenue.gstext.(falsc |
| a120 | 68 65 20 74 61 73 74 65 29 29 20 61 72 73 74 2e 2e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 6d 65 | he.taste)).arst...reenterzeigeme |
| a140 | 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 74 7a 64 61 72 73 74 2e ff ff ff ff ff ff | nuezurzusatzdarst:tzdarst....... |
| a160 | 2e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 63 68 6d 65 6e | ............fusszeileleer);chmen |
| a180 | 75 65 20 7a 64 61 72 73 74 2e ff ff ff ff ff ff 4e 00 67 69 62 6d 65 6e 75 65 61 75 73 3a 20 69 | ue.zdarst.......N.gibmenueaus:.i |
| a1a0 | 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 3b 61 74 7a 64 61 72 73 74 2e 65 69 63 68 | nitialisieremenue;;atzdarst.eich |
| a1c0 | 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 6e 61 6d 65 2c 20 ff ff | nung,.darstellungsname,.name,... |
| a1e0 | 3e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c 6c 75 6e | >.........zeigemenuezudarstellun |
| a200 | 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b ff ff ff ff ff ff ff ff | gsarten.(taste,.FALSE.);........ |
| a220 | 4e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61 73 74 65 29 3b 64 75 6e 67 3b 74 65 6c 6c 75 6e | N.....inchar.(taste);dung;tellun |
| a240 | 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 4f 52 20 74 61 73 74 65 | gsarten.(taste,.FALSE.);OR.taste |
| a260 | 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54 | .=.abbruchtaste.N..............T |
| a280 | 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 62 62 72 75 63 68 6d 65 6e 75 65 20 61 73 74 | HEN.loeschemenue;bbruchmenue.ast |
| a2a0 | 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | e.=.zeigezeitd.stellungsname,... |
| a2c0 | 2e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 63 68 6d 65 6e | ............fusszeileleer);chmen |
| a2e0 | 75 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | ue..............>.............re |
| a300 | 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 78 74 20 28 66 61 6c 73 63 | enterzeigeabbruchmenue.xt.(falsc |
| a320 | 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 1e 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 | he.taste))..........initialisier |
| a340 | 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 | emenue;.............fuellemenue. |
| a360 | 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 3b 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | (menuezeile.(5));;.............. |
| a380 | 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 | ....fuellemenue.(menuezeile.(1)) |
| a3a0 | 3b 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 | ;;..................fuellemenue. |
| a3c0 | 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 3b 65 2e ff ff ff ff ff ff ff ff ff ff ff ff ff | (menuezeile.(5));e.............. |
| a3e0 | 2e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 65 2c 20 30 2e 30 2c 20 66 65 6e 73 74 65 72 20 | ....move.(legende,.0.0,.fenster. |
| a400 | 6f 62 65 6e 29 3b ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 7a 65 69 67 65 61 62 62 | oben);..................zeigeabb |
| a420 | 72 75 63 68 6d 65 6e 75 65 20 20 20 20 2a 29 29 3b 20 20 20 20 20 20 20 23 ff ff ff ff ff ff ff | ruchmenue....*));.......#....... |
| a440 | 2e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 3b 6e 75 6e 64 7a 65 69 63 68 6e | ....transfer.:=.kreuz;nundzeichn |
| a460 | 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73 | en;.................KURVE.VAR.ls |
| a480 | 67 6b 75 72 76 65 3b 53 41 42 53 43 48 4e 49 54 54 20 6c 73 67 3b ff ff ff ff ff ff ff ff ff ff | gkurve;SABSCHNITT.lsg;.......... |
| a4a0 | 1e 00 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 | ............reenterdarstellung4. |
| a4c0 | 1e 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3a 75 6e 67 34 20 | ..wahlderdarstellungsarten:ung4. |
| a4e0 | 3e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 74 65 6c 6c 75 6e 67 34 20 | >...........out.(piep);tellung4. |
| a500 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff | R.taste.=.modellgroessentaste... |
| a520 | 4e 00 20 20 65 6e 61 62 6c 65 20 73 74 6f 70 3b 3b 61 6c 20 64 20 20 3c 3d 20 6c 61 65 6e 67 65 | N...enable.stop;;al.d..<=.laenge |
| a540 | 20 20 54 48 45 4e 20 66 75 65 6e 66 20 6d 61 6c 20 64 20 45 4c 53 45 20 7a 58 54 20 56 41 52 20 | ..THEN.fuenf.mal.d.ELSE.zXT.VAR. |
| a560 | 74 61 73 74 65 29 3a 69 6e 65 6d 65 6e 74 ff ff 3e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 | taste):inement..>.....kernvonzei |
| a580 | 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 74 2c 20 6c 73 67 2c 20 74 61 | gemenuezurzusatzdarst.t,.lsg,.ta |
| a5a0 | 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 43 4f | ste);...........N.............CO |
| a5c0 | 52 20 7a 77 65 69 74 65 72 20 70 75 6e 6b 74 20 6b 6c 65 69 6e 65 72 20 67 6c 65 69 63 68 20 65 | R.zweiter.punkt.kleiner.gleich.e |
| a5e0 | 69 6e 73 75 6d 65 6e 74 65 58 54 20 56 41 52 20 74 61 73 74 65 29 3a 6c 61 65 6e 67 65 22 ff ff | insumenteXT.VAR.taste):laenge".. |
| a600 | 3e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f | >.....IF.taste.=.abbruchtaste.CO |
| a620 | 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 20 65 69 63 68 6e 75 6e 67 2c ff | R.taste.=.weitertaste.eichnung,. |
| a640 | 2e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 3b 3a 6c 6c 75 6e 67 | ......loeschemenuemeldung;:llung |
| a660 | 34 20 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | 4.taste...............ELIF.taste |
| a680 | 20 3d 20 6d 65 6e 75 65 74 61 73 74 65 20 61 72 73 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | .=.menuetaste.arst;............. |
| a6a0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 | N............reenterdarstellung4 |
| a6c0 | 20 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 73 73 65 6e 74 61 73 74 | .nden.(dst,.lsg,.taste);ssentast |
| a6e0 | 65 20 75 6e 67 73 6e 61 6d 65 2c 20 52 20 ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | e.ungsname,.R.............loesch |
| a700 | 65 6d 65 6e 75 65 3b 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 | emenue;...................leaved |
| a720 | 61 72 73 74 65 6c 6c 75 6e 67 34 20 29 20 53 55 42 20 31 29 20 3e 3d 20 31 2e 30 20 ff ff ff ff | arstellung4.).SUB.1).>=.1.0..... |
| a740 | 4e 00 7a 75 20 77 65 6e 69 67 20 61 72 67 75 6d 65 6e 74 65 3a 65 64 61 72 73 74 65 6c 6c 75 6e | N.zu.wenig.argumente:edarstellun |
| a760 | 67 34 20 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 | g4.OR.taste.=.modellgroessentast |
| a780 | 65 20 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | e.chtaste.COR.............loesch |
| a7a0 | 65 6d 65 6e 75 65 3b 29 3b ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 45 4c 53 45 20 20 | emenue;);.......>.........ELSE.. |
| a7c0 | 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 72 20 61 6b 74 69 76 69 74 61 65 74 | reenterdarstellung4.r.aktivitaet |
| a7e0 | 29 20 3e 3d 20 31 2e 30 20 2e 73 74 65 20 ff ff 3e 00 23 20 49 46 20 65 6e 64 65 20 64 65 72 20 | ).>=.1.0..ste...>.#.IF.ende.der. |
| a800 | 6c 6f 65 73 75 6e 67 20 28 6c 73 67 20 6b 75 72 76 65 29 6b 74 20 7a 75 73 74 61 6e 64 29 3b 74 | loesung.(lsg.kurve)kt.zustand);t |
| a820 | 29 20 3e 3d 20 31 2e 30 20 2e ff ff ff ff ff ff 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d | ).>=.1.0........N.....IF.taste.= |
| a840 | 20 61 62 62 72 75 63 68 74 61 73 74 65 20 64 65 6d 6f 20 43 4f 52 20 74 61 73 74 65 20 3d 20 77 | .abbruchtaste.demo.COR.taste.=.w |
| a860 | 65 69 74 65 72 74 61 73 74 65 20 20 64 6f 63 68 20 2a 29 68 74 61 73 74 65 20 43 4f 52 20 ff ff | eitertaste..doch.*)htaste.COR... |
| a880 | 1e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 ff | ......kernvonzeigeabbruchmenue.. |
| a8a0 | 2e 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3a 72 7a 75 73 61 | ..wahlderdarstellungsarten:rzusa |
| a8c0 | 74 7a 64 61 72 73 74 20 65 7a 75 73 61 74 7a 20 4e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c | tzdarst.ezusatz.N.reenterdarstel |
| a8e0 | 6c 75 6e 67 34 3a 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 | lung4:...........LEAVE.kernvonda |
| a900 | 72 73 74 65 6c 6c 75 6e 67 34 3b 2e 2e 61 62 66 61 6c 6c 65 6e 64 65 20 4b 2e 2a 29 52 20 ff ff | rstellung4;..abfallende.K.*)R... |
| a920 | 2e 00 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 75 73 61 74 7a | ..zeigemenuezurzusatzdarst:usatz |
| a940 | 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 | darst...........>.....fuellemenu |
| a960 | 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 3b 3b 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | e.(menuezeile.(1));;ste.=.modell |
| a980 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 2e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 | groessentaste.........initialisi |
| a9a0 | 65 72 65 6d 65 6e 75 65 3b 65 69 6c 65 20 28 31 36 29 29 3b 64 61 72 73 74 2e ff ff ff ff ff ff | eremenue;eile.(16));darst....... |
| a9c0 | 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff | ..........loeschemenue;......... |
| a9e0 | 2e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 6c 6c 75 6e 67 73 61 72 74 | ..........loeschemenue;llungsart |
| aa00 | 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | en;.......................loesch |
| aa20 | 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c | emenue;.........>.....fusszeilel |
| aa40 | 65 65 72 29 3b 65 3b 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 | eer);e;neinblenden.(dst,.lsg,.ta |
| aa60 | 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a | ste);...........N.zeigemenuezurz |
| aa80 | 75 73 61 74 7a 64 61 72 73 74 3a 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | usatzdarst:te.COR.taste.=.modell |
| aaa0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 73 74 65 20 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | groessentaste.ste.llungsname,... |
| aac0 | 1e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 ff ff | ......ELIF.taste.=.sendetaste... |
| aae0 | 4e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61 73 74 65 29 3b 64 75 6e 67 3b 6e 65 69 6e 62 6c | N.....inchar.(taste);dung;neinbl |
| ab00 | 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 72 6f 65 73 73 65 6e 74 | enden.(dst,.lsg,.taste);roessent |
| ab20 | 61 73 74 65 20 65 72 7a 65 69 6c 65 2c ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 77 61 68 | aste.erzeile,...N............wah |
| ab40 | 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 61 72 73 74 20 7a 62 65 7a 65 | lderdarstellungsarten;arst.zbeze |
| ab60 | 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | ichnung,.kopfzeile,.steuerzeile, |
| ab80 | 2e 00 20 20 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 75 65 7a 75 72 7a 75 73 61 | ..........steuerzeile);uezurzusa |
| aba0 | 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff 3e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32 | tzdarst.........>...cursor.(3,.2 |
| abc0 | 33 29 3b 75 6e 67 34 3b 67 65 68 69 73 74 6f 67 72 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 | 3);ung4;gehistogr.COR.taste.=.ze |
| abe0 | 69 67 65 7a 65 69 74 64 20 29 20 ff ff ff ff ff 3e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | igezeitd.)......>.....ELIF.taste |
| ac00 | 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 65 72 6e 76 6f 6e 64 61 | .=.darstellungsarttaste.ernvonda |
| ac20 | 72 73 74 65 6c 6c 75 6e 67 34 3b 2e ff ff ff ff 3e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 | rstellung4;.....>......ELIF.NOT. |
| ac40 | 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 67 20 28 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 | (taste.=.esc).g.(meldungstext.(f |
| ac60 | 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 74 2e 4e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c | alschetaste)).t.N.reenterdarstel |
| ac80 | 6c 75 6e 67 34 3a 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 | lung4:...........LEAVE.kernvonda |
| aca0 | 72 73 74 65 6c 6c 75 6e 67 34 3b 2e 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 63 68 74 61 73 74 65 ff | rstellung4;.llungsname,.chtaste. |
| acc0 | 1e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32 33 29 3b 63 68 6d 65 6e 75 65 3a ff ff ff ff ff | ....cursor.(3,.23);chmenue:..... |
| ace0 | 3e 00 20 20 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3b 6e 75 65 3a 63 68 6d 65 6e | >...gibabbruchmenueaus;nue:chmen |
| ad00 | 75 65 20 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff | ue.aste.=.modellgroessentaste... |
| ad20 | 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 | ....fuellemenue.(menuezeile.(17) |
| ad40 | 29 3b 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 | );taste...................loesch |
| ad60 | 65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | emenue;.........>.....ELIF.taste |
| ad80 | 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 74 20 28 66 61 6c 73 63 | .=.darstellungsarttaste.t.(falsc |
| ada0 | 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 4e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61 | he.taste))......N.....inchar.(ta |
| adc0 | 73 74 65 29 3b 6d 65 6e 75 65 3a 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 | ste);menue:ellungsarten.(taste,. |
| ade0 | 46 41 4c 53 45 20 29 3b 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff | FALSE.);OR.taste.=.abbruchtaste. |
| ae00 | 3e 00 20 20 20 20 20 20 20 20 20 20 43 4f 52 20 74 65 20 3d 20 7a 65 69 67 65 68 69 73 74 6f 67 | >...........COR.te.=.zeigehistog |
| ae20 | 72 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff | r.COR.taste.=.zeigezeitd........ |
| ae40 | 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 | ..........ELIF.taste.=.zeigezusa |
| ae60 | 74 7a 20 6e 75 65 20 ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 | tz.nue..........>.....ELIF.NOT.( |
| ae80 | 74 61 73 74 65 20 3d 20 65 73 63 29 20 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 | taste.=.esc).meldungstext.(falsc |
| aea0 | 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 1e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 | he.taste))............ELIF.NOT.( |
| aec0 | 74 61 73 74 65 20 3d 20 65 73 63 29 20 ff ff ff 2e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 | taste.=.esc)......gibabbruchmenu |
| aee0 | 65 61 75 73 3a 65 3b 65 69 6c 65 20 28 31 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | eaus:e;eile.(1));............... |
| af00 | 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 | ....fuellemenue.(menuezeile.(17) |
| af20 | 29 3b 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 22 20 44 65 72 20 4c 6f 67 61 72 69 74 68 | );..............N.".Der.Logarith |
| af40 | 6d 75 73 20 77 69 72 64 20 6e 69 63 68 74 20 64 61 72 67 65 73 74 65 6c 6c 74 2c 20 22 20 2c 20 | mus.wird.nicht.dargestellt,.".,. |
| af60 | 20 20 3d 20 30 2c 63 68 65 74 61 73 74 65 20 3d 20 31 38 2c 20 ff ff ff ff ff ff ff ff ff ff ff | ..=.0,chetaste.=.18,............ |
| af80 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 66 65 | N..........................(*.fe |
| afa0 | 6e 73 74 65 72 20 72 65 63 68 74 73 20 6b 61 6e 6e 20 61 75 63 68 20 6b 6c 65 69 6e 65 72 20 73 | nster.rechts.kann.auch.kleiner.s |
| afc0 | 65 69 6e 20 61 6c 73 76 65 29 3a ff ff ff ff ff 2e 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 | ein.alsve):.........initialisier |
| afe0 | 65 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff | e.ausgabevariable;;............. |
| b000 | 3e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3a | >.initialisiere.ausgabevariable: |
| b020 | 75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b ff ff ff ff | u2,.z1,.z2,.strukt1fenster);.... |
| b040 | 4e 00 65 72 6d 69 74 74 6c 65 20 67 65 72 61 64 65 6e 76 65 72 6c 61 75 66 3a 20 20 20 20 20 20 | N.ermittle.geradenverlauf:...... |
| b060 | 20 20 20 28 2a 2a 2a 2a 20 20 20 20 20 47 65 72 61 64 65 6e 76 65 72 6c 61 75 66 20 2a 2a 2a 2a | ...(****.....Geradenverlauf.**** |
| b080 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 2a 29 ff ff ff 4e 00 20 20 73 63 68 72 65 69 62 65 20 67 65 72 | **********)*)...N...schreibe.ger |
| b0a0 | 61 64 65 6e 70 69 63 74 75 72 65 20 69 6e 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b 2e | adenpicture.in.ausgabevariable;. |
| b0c0 | 61 64 65 6e 76 65 72 6c 61 75 66 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 ff ff ff ff ff | adenverlauf.**************)..... |
| b0e0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N............................... |
| b100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 45 72 67 61 65 6e 7a 75 | ......................1.Ergaenzu |
| b120 | 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff 2e 00 20 20 20 20 20 20 20 20 20 74 72 61 67 65 | ngsvariable.*).............trage |
| b140 | 20 66 6f 6c 67 65 70 75 6e 6b 74 65 20 65 69 6e 3b 3b 75 72 76 65 29 65 29 20 52 45 50 20 ff ff | .folgepunkte.ein;;urve)e).REP... |
| b160 | 4e 00 20 20 20 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 3b 73 75 6e 67 20 28 6c | N.....lesenaechstenpunkt;sung.(l |
| b180 | 73 67 20 6b 75 72 76 65 29 20 52 45 50 20 72 db 66 65 6e 2c 20 6f 62 20 48 77 7a 20 53 69 6e 6e | sg.kurve).REP.r.fen,.ob.Hwz.Sinn |
| b1a0 | 20 65 72 67 69 62 74 3f 20 2a 29 20 2a 29 20 ff 4e 00 20 20 74 72 61 67 65 20 68 77 7a 20 65 69 | .ergibt?.*).*)..N...trage.hwz.ei |
| b1c0 | 6e 3b 20 23 20 74 65 73 74 65 20 77 65 72 74 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | n;.#.teste.werte;............... |
| b1e0 | 20 23 2e 20 20 20 31 20 45 72 67 61 65 6e 7a 75 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff | .#....1.Ergaenzungsvariable.*).. |
| b200 | 3e 00 20 20 20 20 20 20 20 20 20 62 65 72 65 63 68 6e 65 20 73 74 65 69 67 75 6e 67 3b 20 7a 65 | >..........berechne.steigung;.ze |
| b220 | 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | it,.akt.zustand);............... |
| b240 | 1e 00 20 20 20 20 54 48 45 4e 20 6c 65 73 65 20 6e 61 65 63 68 73 74 65 6e 20 70 75 6e 6b 74 ff | ......THEN.lese.naechsten.punkt. |
| b260 | 3e 00 20 20 20 20 20 79 20 77 65 72 74 20 20 20 3a 3d 20 6c 6f 67 20 31 30 20 28 61 6b 74 20 7a | >......y.wert...:=.log.10.(akt.z |
| b280 | 75 73 74 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b 2e 74 3b ff ff | ustand.SUB.var.aktivitaet);.t;.. |
| b2a0 | 4e 00 20 20 20 20 20 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 2c 20 68 77 7a 20 2b 20 65 | N.......draw.(.funktion,.hwz.+.e |
| b2c0 | 72 73 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 2c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 29 | rster.zeitpunkt,.fenster.unten.) |
| b2e0 | 3b 20 2a 29 65 20 6d 69 74 65 74 2a 29 ff ff ff 4e 00 20 20 20 20 20 20 49 46 20 28 66 65 6e 73 | ;.*)e.mitet*)...N.......IF.(fens |
| b300 | 74 65 72 20 6c 69 6e 6b 73 20 2b 20 68 77 7a 29 20 3e 3d 20 28 30 2e 35 20 2a 20 28 66 65 6e 73 | ter.links.+.hwz).>=.(0.5.*.(fens |
| b320 | 74 65 72 20 72 65 63 68 74 73 20 2d 20 66 65 6e 73 74 65 72 20 6c 69 6e 6b 73 29 29 20 ff ff ff | ter.rechts.-.fenster.links)).... |
| b340 | 4e 00 20 20 20 20 20 20 20 45 4c 53 45 20 6d 6f 76 65 63 6d 72 20 28 66 75 6e 6b 74 69 6f 6e 2c | N........ELSE.movecmr.(funktion, |
| b360 | 20 31 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 74 29 20 2b | .1.0.*.standardbreite,.0.0);t).+ |
| b380 | 20 31 29 20 2a 6c 69 6e 6b 73 29 29 20 ff ff ff 2e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 | .1).*links))........transfer.:=. |
| b3a0 | 66 75 6e 6b 74 69 6f 6e 3b 75 6e 6b 74 69 6f 6e 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | funktion;unktion));............. |
| b3c0 | 2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69 | ....PICTURE.VAR.legende.:=.nilpi |
| b3e0 | 63 74 75 72 65 3b ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 | cture;..........N...move.(legend |
| b400 | 65 2c 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 2c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e | e,.fenster.rechts,.fenster.unten |
| b420 | 29 3b 30 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 72 64 65 6e 20 78 6d 69 6e 2c ff ff | );0*.standardhoehe);rden.xmin,.. |
| b440 | 4e 00 20 20 7a 65 69 63 68 6e 65 79 61 63 68 73 65 3b 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 | N...zeichneyachse;.achsenabschni |
| b460 | 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 29 3b 20 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 | tte.:=.int.(ymax);..xmax,.ymin,. |
| b480 | 79 6d 61 78 29 3a 20 69 74 7a 65 2a 29 ff ff ff 4e 00 20 20 7a 65 69 63 68 6e 65 61 62 73 63 68 | ymax):.itze*)...N...zeichneabsch |
| b4a0 | 6c 75 73 73 73 74 72 69 63 68 20 6f 62 65 6e 20 20 3b 20 20 20 20 20 20 20 20 70 75 74 20 28 22 | lussstrich.oben..;........put.(" |
| b4c0 | 6e 61 63 68 20 34 2e 20 22 29 3b 70 61 75 73 65 3b 68 74 73 2c 20 79 6d 61 78 29 3a 20 ff ff ff | nach.4..");pause;hts,.ymax):.... |
| b4e0 | 4e 00 20 20 73 63 68 72 65 69 62 65 20 69 6e 20 6f 75 74 70 75 74 76 61 72 69 61 62 6c 65 3b 20 | N...schreibe.in.outputvariable;. |
| b500 | 20 3b 20 20 20 20 20 20 20 20 70 75 74 20 28 22 6e 61 63 68 20 37 2e 20 22 29 3b 70 61 75 73 65 | .;........put.("nach.7..");pause |
| b520 | 3b 65 29 3b 2c 20 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 70 65 6e 20 28 6b 72 65 75 7a 2c 20 | ;e);,...........N...pen.(kreuz,. |
| b540 | 31 29 2e 70 75 74 76 61 72 69 61 62 6c 65 3b 74 73 3b 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 | 1).putvariable;ts;0,.standardhoe |
| b560 | 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 6c 65 6e 29 3b ff ff ff ff ff ff | he,.standardbreite);.len);...... |
| b580 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 79 6d 69 6e 29 3b 3b 20 2e 3a | N...move.(kreuz,.xmin,ymin);;..: |
| b5a0 | 65 6e 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 20 20 20 20 28 2a 20 74 72 61 6e 73 66 65 72 20 | en:=.nilpicture;....(*.transfer. |
| b5c0 | 77 65 67 21 21 2a 29 2a 29 ff ff ff ff ff ff ff 4e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 79 | weg!!*)*).......N...beschrifte.y |
| b5e0 | 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 62 65 | .;.........................(*.be |
| b600 | 73 63 68 72 69 66 74 75 6e 67 20 6b 6f 6f 72 64 2e 75 72 73 70 72 2e 2a 29 78 29 3a 20 ff ff ff | schriftung.koord.urspr.*)x):.... |
| b620 | 4e 00 20 20 20 20 62 65 73 63 68 72 69 66 74 65 20 79 65 72 67 72 75 6e 64 73 74 72 69 63 68 65 | N.....beschrifte.yergrundstriche |
| b640 | 3b 20 7a 61 68 6c 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 64 | ;.zahl.achsenabschnitte.-.1.REPd |
| b660 | 2e 75 72 73 70 72 2e 2a 29 78 29 3a 20 ff ff ff 3e 00 20 20 52 45 41 4c 20 56 41 52 20 73 74 65 | .urspr.*)x):....>...REAL.VAR.ste |
| b680 | 6c 6c 65 2c 7a 3b 65 3b 70 6b 74 2c 3a 30 20 2a 20 69 3b 28 61 6e 7a 61 68 6c 78 61 63 68 73 65 | lle,z;e;pkt,:0.*.i;(anzahlxachse |
| b6a0 | 6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff 2e 00 20 20 20 20 62 65 73 63 68 72 69 66 74 65 | nabschnitte);.........beschrifte |
| b6c0 | 79 78 6d 61 78 2c 20 79 6d 69 6e 29 3b 30 2e 32 29 2e ff ff ff ff ff ff ff ff ff ff ff ff ff ff | yxmax,.ymin);0.2)............... |
| b6e0 | 2e 00 7a 65 69 63 68 6e 65 79 73 70 69 74 7a 65 3a 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 | ..zeichneyspitze:,.standardhoehe |
| b700 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | );..................move.(kreuz, |
| b720 | 20 78 6d 69 6e 20 2b 20 30 2e 32 2c 20 73 74 65 6c 6c 65 29 3b 65 29 3b ff ff ff ff ff ff ff ff | .xmin.+.0.2,.stelle);e);........ |
| b740 | 1e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 30 2c 20 30 2e 32 29 3b 29 3b | ....movecmr.(kreuz,.0.0,.0.2);); |
| b760 | 3e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 3b 6e 67 34 20 67 34 20 68 20 | >...KURVE.VAR.lsgkurve;ng4.g4.h. |
| b780 | 72 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 ff ff ff ff ff | rkomma)).*.standardbreite,...... |
| b7a0 | 4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 73 74 65 6c 6c 65 20 2b 20 73 63 68 72 69 74 74 77 65 | N...stelle.:=.stelle.+.schrittwe |
| b7c0 | 69 74 65 3b 2e 79 6d 69 6e 29 3b 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 20 28 73 74 65 6c | ite;.ymin);...........text.(stel |
| b7e0 | 6c 65 29 29 3b 70 61 75 73 65 3b ff ff ff ff ff 2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 | le));pause;.........standardhoeh |
| b800 | 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 20 20 20 20 20 2a 29 ff ff ff ff ff | e,.standardbreite);......*)..... |
| b820 | 4e 00 20 20 49 46 20 78 6d 69 6e 20 3d 20 30 2e 30 20 72 69 74 74 65 6e 3a 20 20 20 20 20 20 20 | N...IF.xmin.=.0.0.ritten:....... |
| b840 | 20 20 20 20 20 20 73 74 65 6c 6c 65 20 3e 20 78 6d 61 78 2e 20 20 70 6b 74 20 61 6e 20 78 20 61 | ......stelle.>.xmax...pkt.an.x.a |
| b860 | 63 68 73 65 3b 29 3b 20 20 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 73 74 65 6c 6c | chse;);.........N..........stell |
| b880 | 65 20 3a 3d 20 34 2e 30 20 2a 20 73 63 68 72 69 74 74 77 65 69 74 65 3b 20 62 65 73 63 68 72 69 | e.:=.4.0.*.schrittweite;.beschri |
| b8a0 | 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 63 68 73 65 3b 29 3b 20 29 2c ff ff ff ff ff ff | fte.1.pkt.an.x.achse;);.),...... |
| b8c0 | 3e 00 52 45 41 4c 20 50 52 4f 43 20 64 65 6c 74 61 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 20 6d | >.REAL.PROC.delta.(REAL.CONST..m |
| b8e0 | 69 6e 69 6d 75 6d 2c 20 6d 61 78 69 6d 75 6d 29 3a 61 78 2e 20 7a 61 68 6c 29 3b 3b 65 20 ff ff | inimum,.maximum):ax..zahl);;e... |
| b900 | 4e 00 4c 45 54 20 63 61 20 73 63 68 72 69 74 74 65 20 3d 20 35 2e 30 3b 20 20 28 2a 20 75 6e 67 | N.LET.ca.schritte.=.5.0;..(*.ung |
| b920 | 65 66 d9 68 72 65 20 41 6e 7a 61 68 6c 20 64 65 72 20 53 63 68 72 69 74 74 65 2c 20 69 6e 20 64 | ef.hre.Anzahl.der.Schritte,.in.d |
| b940 | 69 65 6c 6c 65 6e 2e 20 2a 29 6c 65 2c ff ff ff 4e 00 52 45 41 4c 20 50 52 4f 43 20 64 65 6c 74 | iellen..*)le,...N.REAL.PROC.delt |
| b960 | 61 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 20 6d 69 6e 69 6d 75 6d 2c 20 6d 61 78 69 6d 75 6d 29 | a.(REAL.CONST..minimum,.maximum) |
| b980 | 3a 20 53 63 68 72 69 74 74 65 2c 20 69 6e 20 64 69 65 6c 6c 65 6e 2e 20 2a 29 76 6f 6e ff ff ff | :.Schritte,.in.diellen..*)von... |
| b9a0 | 2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 | ....standardhoehe,.standardbreit |
| b9c0 | 65 29 3b 20 20 20 2a 29 ff ff ff ff ff ff ff ff 4e 00 28 2a 20 44 69 65 73 65 20 50 72 6f 7a 65 | e);...*)........N.(*.Diese.Proze |
| b9e0 | 64 75 72 20 6c 69 65 66 65 72 74 20 65 69 6e 65 6e 20 56 6f 72 73 63 68 6c 61 67 20 66 db 72 20 | dur.liefert.einen.Vorschlag.f.r. |
| ba00 | 64 69 65 20 53 63 68 72 69 74 74 77 65 69 74 65 20 69 6e 20 64 65 6d 20 2a 29 76 6f 6e ff ff ff | die.Schrittweite.in.dem.*)von... |
| ba20 | 4e 00 20 20 72 69 63 68 74 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3b 74 65 | N...richte.geradenpicture.ein;te |
| ba40 | 72 20 6f 62 65 6e 20 2d 20 33 2e 30 20 3b 20 72 61 64 65 6e 76 65 72 6c 61 75 66 20 2a 2a 2a 2a | r.oben.-.3.0.;.radenverlauf.**** |
| ba60 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 2a 29 ff ff ff 4e 00 20 20 65 72 73 74 65 72 20 6c 73 67 70 75 | **********)*)...N...erster.lsgpu |
| ba80 | 6e 6b 74 20 3a 3d 20 61 6b 74 20 7a 75 73 74 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 | nkt.:=.akt.zustand.SUB.var.aktiv |
| baa0 | 69 74 61 65 74 3b 62 20 48 77 7a 20 53 69 6e 6e 20 65 72 67 69 62 74 3f 20 2a 29 ff ff ff ff ff | itaet;b.Hwz.Sinn.ergibt?.*)..... |
| bac0 | 3e 00 20 20 20 20 20 49 46 20 79 77 65 72 74 20 3e 3d 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e | >......IF.ywert.>=.fenster.unten |
| bae0 | 7a 65 69 74 20 20 2c 20 79 77 65 72 74 29 3b 20 61 6b 74 69 76 69 74 61 65 74 3b ff ff ff ff ff | zeit..,.ywert);.aktivitaet;..... |
| bb00 | 2e 00 20 20 6c 65 73 65 20 65 72 73 74 65 6e 20 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 | ....lese.ersten.(lsg.kurve,.zeit |
| bb20 | 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b ff 3e 00 7a 69 65 68 65 20 6b 75 72 76 65 20 62 69 | ,.akt.zustand);.>.ziehe.kurve.bi |
| bb40 | 73 20 7a 75 72 20 78 20 61 63 68 73 65 20 64 75 72 63 68 3a 20 2a 2a 2a 2a 29 69 74 70 75 6e 6b | s.zur.x.achse.durch:.****)itpunk |
| bb60 | 74 29 2e 69 76 69 74 61 65 74 3b 65 74 3b ff ff 3e 00 20 20 20 73 74 65 69 67 75 6e 67 20 3a 3d | t).ivitaet;et;..>....steigung.:= |
| bb80 | 20 28 79 77 65 72 74 20 2d 20 6c 6f 67 20 31 30 20 28 65 72 73 74 65 72 20 20 6c 73 67 70 75 6e | .(ywert.-.log.10.(erster..lsgpun |
| bba0 | 6b 74 29 29 20 74 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 20 77 69 6e 64 6f 77 20 28 73 65 69 | kt)).t);........N....window.(sei |
| bbc0 | 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 66 65 6e 73 74 65 72 20 6c 69 6e 6b | te,.strukt1fenster,.fenster.link |
| bbe0 | 73 2c 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 2c 20 2a 29 29 2b 68 6e 65 74 2a 29 ff ff ff | s,.fenster.rechts,.*))+hnet*)... |
| bc00 | 4e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 3b | N...beschrifte.koordinatenkreuz; |
| bc20 | 2e 74 65 2c 20 66 65 6e 73 74 65 72 20 6c 69 6e 6b 73 2c 20 66 65 6e 73 74 65 72 20 72 65 63 68 | .te,.fenster.links,.fenster.rech |
| bc40 | 74 73 2c 20 6b 74 29 29 20 3b 20 ff ff ff ff ff 3e 00 20 20 67 65 62 65 61 75 66 62 69 6c 64 73 | ts,.kt)).;......>...gebeaufbilds |
| bc60 | 63 68 69 72 6d 61 75 73 20 28 73 65 69 74 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 | chirmaus.(seite,.modellkurzbezei |
| bc80 | 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | chnung,.........>............... |
| bca0 | 20 20 20 20 20 22 20 79 32 20 22 20 2b 20 74 65 78 74 20 28 7a 77 65 69 74 65 72 6c 73 67 70 75 | .....".y2.".+.text.(zweiterlsgpu |
| bcc0 | 6e 6b 74 29 2b 30 2e 31 29 3b 20 2b 20 ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 | nkt)+0.1);.+....N...movecmr.(leg |
| bce0 | 65 6e 64 65 2c 20 2d 20 36 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 | ende,.-.6.0.*.standardbreite,.-. |
| bd00 | 31 2e 30 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 72 64 7a 74 20 3f 3f 2a 29 ff ff ff | 1.0*.standardhoehe);rdzt.??*)... |
| bd20 | 4e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74 34 3b 68 73 65 6e 62 65 7a 2c 20 | N.END.PROC.zeigedarst4;hsenbez,. |
| bd40 | 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 | 0.0,.standardhoehe,.standardbrei |
| bd60 | 74 65 29 3b 68 74 20 3f 3f 2a 29 ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | te);ht.??*).....N............... |
| bd80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d | ...................REAL.CONST.xm |
| bda0 | 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 3f 3f 2a 29 ff ff ff ff ff | in,.xmax,.ymin,.ymax):.??*)..... |
| bdc0 | 3e 00 23 20 20 77 65 72 74 20 3a 3d 20 77 61 6e 64 6c 65 20 28 66 65 6e 73 74 65 72 20 6f 62 65 | >.#..wert.:=.wandle.(fenster.obe |
| bde0 | 6e 20 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff ff ff ff ff ff | n.,.laengebeibeschriftung,...... |
| be00 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 79 6d 69 6e 29 3b 20 20 2e 3a | N...move.(kreuz,.xmax,ymin);...: |
| be20 | 65 6e 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 20 20 20 20 28 2a 20 74 72 61 6e 73 66 65 72 20 | en:=.nilpicture;....(*.transfer. |
| be40 | 77 65 67 21 21 2a 29 6d 61 78 29 3a 20 ff ff ff 4e 00 20 20 46 4f 52 20 69 20 46 52 4f 4d 20 69 | weg!!*)max):....N...FOR.i.FROM.i |
| be60 | 6e 74 20 28 79 6d 69 6e 29 20 20 55 50 54 4f 20 61 6e 7a 61 68 6c 20 61 63 68 73 65 6e 61 62 73 | nt.(ymin)..UPTO.anzahl.achsenabs |
| be80 | 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 64 2e 75 72 73 70 72 2e 2a 29 78 29 3a 20 ff ff ff | chnitte.-.1.REPd.urspr.*)x):.... |
| bea0 | 4e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 76 65 72 6c 61 65 6e 67 65 72 75 6e 67 3b 69 63 68 65 | N.....zeichne.verlaengerung;iche |
| bec0 | 3b 20 73 65 3b 2e 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 69 | ;.se;..achsenabschnitte.-.1.REPi |
| bee0 | 74 65 29 3b 2c 20 79 6d 61 78 29 3a 20 ff ff ff 3e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 | te);,.ymax):....>...PICTURE.VAR. |
| bf00 | 74 72 61 6e 73 66 65 72 3b 70 6b 74 3b 73 63 68 6e 69 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d | transfer;pkt;schnitte.:=.int.(ym |
| bf20 | 61 78 29 3b 20 68 6e 69 74 74 65 29 3b ff ff ff 2e 00 20 20 20 20 62 65 73 63 68 72 69 66 74 65 | ax);.hnitte);.........beschrifte |
| bf40 | 20 79 75 6e 64 73 74 72 69 63 68 65 3a 63 68 6e 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | .yundstriche:chnen;............. |
| bf60 | 2e 00 20 20 20 20 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 20 73 63 68 72 69 | ........draw.(kreuz,.xmax,.schri |
| bf80 | 74 74 29 3b 69 74 65 2c 20 30 2e 30 29 2e ff ff 4e 00 66 65 6e 73 74 65 72 20 75 65 62 65 72 73 | tt);ite,.0.0)...N.fenster.uebers |
| bfa0 | 63 68 72 69 74 74 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 65 6c 6c 65 20 3e 20 78 | chritten:.............stelle.>.x |
| bfc0 | 6d 61 78 2e 20 22 73 74 65 6c 6c 65 3a 20 22 2b 20 69 74 74 65 29 3b 20 20 ff ff ff ff ff ff ff | max.."stelle:."+.itte);......... |
| bfe0 | 4e 00 20 20 20 20 45 4c 53 45 20 73 74 65 6c 6c 65 20 3a 3d 20 63 61 20 6d 69 74 74 65 3b 20 69 | N.....ELSE.stelle.:=.ca.mitte;.i |
| c000 | 74 74 77 65 69 74 65 3b 20 62 65 73 63 68 72 69 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 | ttweite;.beschrifte.1.pkt.an.x.a |
| c020 | 63 68 73 65 3b 29 3b 20 29 2c ff ff ff ff ff ff 4e 00 28 2a 20 44 69 65 73 65 20 50 72 6f 7a 65 | chse;);.),......N.(*.Diese.Proze |
| c040 | 64 75 72 20 6c 69 65 66 65 72 74 20 65 69 6e 65 6e 20 56 6f 72 73 63 68 6c 61 67 20 66 db 72 20 | dur.liefert.einen.Vorschlag.f.r. |
| c060 | 64 69 65 20 53 63 68 72 69 74 74 77 65 69 74 65 20 69 6e 20 64 65 6d 20 2a 29 ff ff ff ff ff ff | die.Schrittweite.in.dem.*)...... |
| c080 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 65 73 65 6d 20 57 65 72 74 20 77 69 72 64 20 | N..............diesem.Wert.wird. |
| c0a0 | 65 69 6e 65 20 22 73 63 68 6f 65 6e 65 22 20 5a 61 68 6c 20 67 65 73 75 63 68 74 2e 20 65 2e 20 | eine."schoene".Zahl.gesucht..e.. |
| c0c0 | 41 75 73 67 65 68 65 6e 64 20 76 6f 6e ff ff ff 3e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 | Ausgehend.von...>.........ELIF.t |
| c0e0 | 61 73 74 65 20 3c 3e 20 6d 65 6e 75 65 74 61 73 74 65 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 | aste.<>.menuetaste.(dst,.lsg,.ta |
| c100 | 73 74 65 29 3b 31 2e 30 20 3b ff ff ff ff ff ff 2e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e | ste);1.0.;............tastelesen |
| c120 | 20 28 74 61 73 74 65 29 3b 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff | .(taste);llungsarttaste......... |
| c140 | 3e 00 20 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 6b 75 72 76 65 29 20 53 55 | >...LEAVE.darstellung4.kurve).SU |
| c160 | 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 20 3e 3d 20 31 2e 30 20 61 73 74 65 20 ff ff | B.var.aktivitaet).>=.1.0.aste... |
| c180 | 4e 00 20 20 54 45 58 54 20 56 41 52 20 76 6f 72 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 31 | N...TEXT.VAR.vorzeitig.beendet.1 |
| c1a0 | 20 3a 3a 22 22 2c 74 31 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b 54 20 56 41 52 20 | .::"",t1fenster,."darst");T.VAR. |
| c1c0 | 74 61 73 74 65 29 3a 6c 61 65 6e 67 65 22 ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20 | taste):laenge"..>...........out. |
| c1e0 | 28 70 69 65 70 29 3b 74 65 6c 6c 75 6e 67 34 20 20 20 20 20 69 73 74 20 6e 69 63 68 74 20 73 69 | (piep);tellung4.....ist.nicht.si |
| c200 | 6e 6e 76 6f 6c 6c 20 2a 29 68 6e 75 6e 67 2c ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 72 65 65 | nnvoll.*)hnung,.N............ree |
| c220 | 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c | nterdarstellung4.nden.(dst,.lsg, |
| c240 | 20 74 61 73 74 65 29 3b 7a 65 69 63 68 6e 75 6e 67 2c 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | .taste);zeichnung,chtaste.COR... |
| c260 | 2e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a | ......kernvonzeigemenuezurzusatz |
| c280 | 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6c 65 73 65 20 65 72 73 74 65 6e 20 | darst...........N...lese.ersten. |
| c2a0 | 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b 6f | (lsg.kurve,.zeit,.akt.zustand);o |
| c2c0 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | dellgroessentaste.chtaste.COR... |
| c2e0 | 3e 00 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 6d 65 | >..........zeigemenuemeldung.(me |
| c300 | 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 ff ff ff ff ff | ldungstext.(falschetaste))...... |
| c320 | 1e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff | ............THEN.darstellung4... |
| c340 | 4e 00 20 20 20 20 20 20 45 4c 53 45 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 20 72 65 65 6e 74 | N.......ELSE...out.(piep);.reent |
| c360 | 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 69 67 20 61 72 67 75 6d 65 6e 74 65 3b 20 54 52 55 | erdarstellung4.ig.argumente;.TRU |
| c380 | 45 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff 4e 00 20 20 64 6f 20 28 22 6d 65 6e 75 69 6e 66 | Egsvariable.*)..N...do.("menuinf |
| c3a0 | 6f 20 28 22 20 20 2b 20 63 6f 64 65 20 28 33 34 29 20 2b 20 65 68 6c 65 72 20 7a 77 65 69 74 65 | o.("..+.code.(34).+.ehler.zweite |
| c3c0 | 72 20 70 75 6e 6b 74 20 7a 75 20 6b 6c 65 69 6e 20 3b 20 54 52 55 45 55 45 20 43 4f 52 20 ff ff | r.punkt.zu.klein.;.TRUEUE.COR... |
| c3e0 | 3e 00 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 67 20 28 6d 65 | >......ELIF.taste.=.rubout.g.(me |
| c400 | 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 2e 72 73 74 2e | ldungstext.(falschetaste))..rst. |
| c420 | 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 | ..........ELIF.taste.=.zeigezusa |
| c440 | 74 7a 20 61 73 74 65 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | tz.aste...............ELIF.taste |
| c460 | 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 ff ff ff ff ff ff ff ff ff ff ff ff | .=.mdlgroesseneinbl............. |
| c480 | 4e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a | N.....kernvonzeigemenuezurzusatz |
| c4a0 | 64 61 72 73 74 20 65 20 73 74 20 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 73 74 | darst.e.st.odellgroessentaste.st |
| c4c0 | 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 | e...........................ELSE |
| c4e0 | 20 72 65 6d 65 6e 75 65 3b 65 69 6c 65 20 28 35 29 29 3b 7a 64 61 72 73 74 2e 72 73 74 20 ff ff | .remenue;eile.(5));zdarst.rst... |
| c500 | 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f | N.....IF.taste.=.abbruchtaste.CO |
| c520 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 65 69 | R.taste.=.modellgroessentaste.ei |
| c540 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | le,.steuerzeile,N.....ELIF.taste |
| c560 | 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b | .=.mdlgroesseneinbl.dst,.modellk |
| c580 | 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 74 61 73 74 65 20 74 65 75 65 72 7a 65 69 6c 65 2c | urzbezeichnung,taste.teuerzeile, |
| c5a0 | 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 | ..........leavezeigemenuezurzusa |
| c5c0 | 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 74 61 73 | tzdarst.........>............tas |
| c5e0 | 74 65 20 3d 20 7a 65 69 67 65 68 69 73 74 6f 67 72 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 | te.=.zeigehistogr.COR.taste.=.ze |
| c600 | 69 67 65 7a 65 69 74 64 20 29 20 ff ff ff ff ff 3e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c | igezeitd.)......>.reenterdarstel |
| c620 | 6c 75 6e 67 34 3a 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 | lung4:...........LEAVE.kernvonda |
| c640 | 72 73 74 65 6c 6c 75 6e 67 34 3b 2e ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 66 75 73 73 | rstellung4;.....>...........fuss |
| c660 | 7a 65 69 6c 65 6c 65 65 72 29 3b 29 20 31 36 29 29 3b 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 | zeileleer);).16));ngstext.(falsc |
| c680 | 68 65 20 74 61 73 74 65 29 29 20 61 72 73 74 2e 4e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 | he.taste)).arst.N.....fuellemenu |
| c6a0 | 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 3b 3b 6c 6b 75 72 7a 62 65 7a 65 69 63 68 | e.(menuezeile.(1));;lkurzbezeich |
| c6c0 | 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 6e 61 6d 65 2c 20 ff ff | nung,.darstellungsname,.name,... |
| c6e0 | 3e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 4f | >.....kernvonzeigeabbruchmenue.O |
| c700 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff | R.taste.=.modellgroessentaste... |
| c720 | 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 | ......ELIF.taste.=.darstellungsa |
| c740 | 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e | rttaste.........N.....loeschemen |
| c760 | 75 65 6d 65 6c 64 75 6e 67 3b 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | uemeldung;ste.COR.taste.=.modell |
| c780 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff | groessentaste.te.=.abbruchtaste. |
| c7a0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 7a 65 69 67 65 | N...................reenterzeige |
| c7c0 | 61 62 62 72 75 63 68 6d 65 6e 75 65 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 72 73 | abbruchmenue.(falsche.taste)).rs |
| c7e0 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 3e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 | tellungsname,...>.gibabbruchmenu |
| c800 | 65 61 75 73 3a 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 67 73 74 65 78 74 20 28 66 61 6c 73 63 | eaus:eabbruchmenue.gstext.(falsc |
| c820 | 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 2e 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 | he.taste))..........initialisier |
| c840 | 65 6d 65 6e 75 65 3b 62 62 72 75 63 68 6d 65 6e 75 65 2e ff ff ff ff ff ff ff ff ff ff ff ff ff | emenue;bbruchmenue.............. |
| c860 | 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6b 72 65 75 7a 3b 6b 61 6c 70 6b 74 3b 69 6e 69 | N...PICTURE.VAR.kreuz;kalpkt;ini |
| c880 | 65 6e 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 31 2e 30 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 | en:=.nilpicture;1.0*.standardhoe |
| c8a0 | 68 65 29 3b 29 74 20 3f 3f 2a 29 ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 61 6e 7a 61 | he);)t.??*).....N...........anza |
| c8c0 | 68 6c 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 | hl.achsenabschnitte.:=.int.(ymax |
| c8e0 | 29 3b 20 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 ff ff ff ff ff ff ff ff ff | );..xmax,.ymin,.ymax):.......... |
| c900 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 74 65 78 74 | N..............draw.(kreuz,.text |
| c920 | 20 28 69 6e 74 20 28 73 74 65 6c 6c 65 29 29 2c 20 20 20 20 28 2a 20 31 30 20 68 6f 63 68 20 65 | .(int.(stelle)),....(*.10.hoch.e |
| c940 | 69 6e 73 20 69 73 74 20 7a 65 68 6e 2a 29 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 64 | ins.ist.zehn*)..N..............d |
| c960 | 72 61 77 20 28 6b 72 65 75 7a 2c 20 74 65 78 74 20 28 69 6e 74 20 28 73 74 65 6c 6c 65 29 29 2c | raw.(kreuz,.text.(int.(stelle)), |
| c980 | 69 74 65 20 2c 20 30 2e 37 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 65 68 6e 2a 29 ff ff | ite.,.0.7*standardhoehe);ehn*).. |
| c9a0 | 3e 00 20 20 49 46 20 73 74 65 6c 6c 65 20 3d 20 79 6d 69 6e 6e 2c 20 73 74 65 6c 6c 65 29 3b 61 | >...IF.stelle.=.yminn,.stelle);a |
| c9c0 | 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 2e 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 | rdbreite,.0.0);.schnitte.-.1.REP |
| c9e0 | 4e 00 20 20 20 20 45 4c 53 45 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 61 62 68 61 65 6e 67 69 | N.....ELSE.anfangspunkt.abhaengi |
| ca00 | 67 20 76 6f 6e 20 73 63 68 6f 65 6e 65 72 20 7a 61 68 6c 3b 20 74 61 6e 64 61 72 64 62 72 65 69 | g.von.schoener.zahl;.tandardbrei |
| ca20 | 74 65 29 3b 65 68 65 29 3b 69 74 65 2c ff ff ff 4e 00 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 67 | te);ehe);ite,...N.anfangspunkt.g |
| ca40 | 6c 65 69 63 68 20 73 63 68 72 69 74 74 77 65 69 74 65 3a 6f 6e 20 73 63 68 6f 65 6e 65 72 20 7a | leich.schrittweite:on.schoener.z |
| ca60 | 61 68 6c 3b 20 61 72 64 68 6f 65 68 65 29 3b 69 74 65 29 3b 74 61 6c 74 65 6e 21 2a 29 ff ff ff | ahl;.ardhoehe);ite);talten!*)... |
| ca80 | 2e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 3b 2e 30 20 2a 20 73 74 61 6e 64 | ....transfer.:=.kreuz;.0.*.stand |
| caa0 | 61 72 64 62 72 65 69 74 65 20 2c 30 2e 30 29 3b 2e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 65 | ardbreite.,0.0);..ENDPROC.kreuze |
| cac0 | 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 3b 29 2c ff ff ff ff ff ff ff ff ff ff ff | rzeugenundzeichnen;),........... |
| cae0 | 3e 00 20 20 74 61 73 74 65 6c 65 73 65 6e 20 28 74 61 73 74 65 29 3b 65 74 61 73 74 65 20 20 73 | >...tastelesen.(taste);etaste..s |
| cb00 | 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b ff ff | tandardhoehe,.standardbreite);.. |
| cb20 | 2e 00 20 20 49 46 20 4e 4f 54 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 6d 6f 65 67 6c 69 63 68 20 | ....IF.NOT.darstellung.moeglich. |
| cb40 | 54 20 6c 73 67 3b ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 61 6e 7a 61 68 6c 20 61 63 68 73 65 | T.lsg;..........N...anzahl.achse |
| cb60 | 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 69 6e 74 20 28 28 63 61 20 6d 69 74 74 65 20 2d 20 | nabschnitte.:=.int.((ca.mitte.-. |
| cb80 | 78 6d 69 6e 29 2f 73 63 68 72 69 74 74 77 65 69 74 65 29 3b 65 29 3b 74 65 6e 21 2a 29 ff ff ff | xmin)/schrittweite);e);ten!*)... |
| cba0 | 3e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64 73 74 20 3a 3d 20 6e 69 6c 6f 75 74 70 75 74 20 | >...OUTPUT.VAR.dst.:=.niloutput. |
| cbc0 | 28 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff | (strukt1fenster,."darst");...... |
| cbe0 | 2e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 3b 53 41 42 53 43 48 4e 49 54 | ....KURVE.VAR.lsgkurve;SABSCHNIT |
| cc00 | 54 20 6c 73 67 3b ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d | T.lsg;..........>.........zeigem |
| cc20 | 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3b 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | enuezurzusatzdarst;aste.=.modell |
| cc40 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e | groessentaste...>...........THEN |
| cc60 | 20 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b | .eaufbildschirmaus.(dst,.modellk |
| cc80 | 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff 2e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d | urzbezeichnung,...........zeigem |
| cca0 | 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff | enuezurzusatzdarst;............. |
| ccc0 | 4e 00 20 20 20 28 2a 20 48 69 65 72 20 77 69 72 64 20 64 69 65 20 65 69 67 65 6e 74 6c 69 63 68 | N....(*.Hier.wird.die.eigentlich |
| cce0 | 65 20 73 63 68 da 6e 65 20 5a 61 68 6c 20 65 72 6d 69 74 74 65 6c 74 2e 20 31 20 2a 29 72 64 20 | e.sch.ne.Zahl.ermittelt..1.*)rd. |
| cd00 | 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 61 ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c | das.Refinementa................l |
| cd20 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff | eavedarstellung4.ttaste......... |
| cd40 | 2e 00 20 20 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c | .....zeigedarst4.(dst,.indemo,.l |
| cd60 | 73 67 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 | sgkurve);.......N............vor |
| cd80 | 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 32 20 3a 3a 22 22 3b 74 31 66 65 6e 73 74 65 72 2c | zeitig.beendet.2.::"";t1fenster, |
| cda0 | 20 22 64 61 72 73 74 22 29 3b 54 20 56 41 52 20 74 61 73 74 65 29 3a 69 6e 65 6d 65 6e 74 ff ff | ."darst");T.VAR.taste):inement.. |
| cdc0 | 3e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 71 75 69 65 74 29 3b 74 61 73 74 | >.........out.(piep);quiet);tast |
| cde0 | 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | e.=.zeigezusatz.);.............. |
| ce00 | 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 | N.....ELIF.taste.=.mdlgroessenei |
| ce20 | 6e 62 6c 20 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 73 73 65 6e 74 61 73 74 | nbl.n.(dst,.lsg,.taste);ssentast |
| ce40 | 65 20 65 6e 20 3c 31 20 65 20 43 4f 52 20 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.en.<1.e.COR...N............... |
| ce60 | 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 74 65 75 65 72 7a 65 69 6c 65 29 3b | reenterdarstellung4.teuerzeile); |
| ce80 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | groessentaste.bbruchtaste.COR... |
| cea0 | 2e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61 73 74 65 29 3b 7a 65 69 67 65 6d 65 6e 75 65 7a | ......inchar.(taste);zeigemenuez |
| cec0 | 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | urzusatzdarst.........ELIF.taste |
| cee0 | 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 72 73 74 3a ff ff ff ff ff ff ff ff ff ff ff ff ff ff | .=.sendetaste.rst:.............. |
| cf00 | 3e 00 20 20 20 20 20 20 45 4c 53 45 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 3a 20 73 61 72 74 | >.......ELSE...out.(piep);:.sart |
| cf20 | 65 6e 3b 20 73 61 74 7a 64 61 72 73 74 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 2e ff ff ff ff | en;.satzdarst.darstellung4;..... |
| cf40 | 4e 00 20 20 49 46 20 28 61 6b 74 20 7a 75 73 74 61 6e 64 20 53 55 42 20 32 29 20 3c 3d 20 31 2e | N...IF.(akt.zustand.SUB.2).<=.1. |
| cf60 | 30 20 6e 69 63 68 74 20 64 65 66 69 6e 69 65 72 74 2c 20 75 6e 64 20 64 65 72 20 46 41 4c 53 45 | 0.nicht.definiert,.und.der.FALSE |
| cf80 | 20 70 6c 75 73 20 2a 29 62 6c 65 20 2a 29 20 ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | .plus.*)ble.*)................re |
| cfa0 | 65 6e 74 65 72 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff | enterzeigemenuezurzusatzdarst... |
| cfc0 | 3e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 | >.........leavezeigemenuezurzusa |
| cfe0 | 74 7a 64 61 72 73 74 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff | tzdarst.=.modellgroessentaste... |
| d000 | 3e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a | >...gibmenueaus;gemenuezurzusatz |
| d020 | 64 61 72 73 74 20 74 20 78 74 20 28 66 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 2e ff ff ff ff | darst.t.xt.(falschetaste))...... |
| d040 | 2e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 65 69 6c 65 20 28 31 | ......initialisieremenue;eile.(1 |
| d060 | 37 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 | 7));............>.leavezeigemenu |
| d080 | 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 | ezurzusatzdarst:.LEAVE.zeigemenu |
| d0a0 | 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 4e 00 20 20 20 20 54 48 45 4e 20 67 65 62 65 61 | ezurzusatzdarst.N.....THEN.gebea |
| d0c0 | 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a | ufbildschirmaus.(dst,.modellkurz |
| d0e0 | 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 20 6e 74 61 73 74 65 20 65 2c 20 ff ff ff ff ff ff ff ff | bezeichnung,..ntaste.e,......... |
| d100 | 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 | ......ELIF.taste.=.darstellungsa |
| d120 | 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 | rttaste.........>.....kernvonzei |
| d140 | 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | geabbruchmenue.OR.taste.=.modell |
| d160 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 4e 00 20 20 20 20 20 20 20 54 48 45 4e 20 6c 6f | groessentaste...N........THEN.lo |
| d180 | 65 73 63 68 65 6d 65 6e 75 65 3b 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b | eschemenue;hirmaus.(dst,.modellk |
| d1a0 | 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 6e 67 73 6e 61 6d 65 2c 20 6e 61 6d 65 2c 20 ff ff | urzbezeichnung,ngsname,.name,... |
| d1c0 | 2e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 61 | ......kernvonzeigeabbruchmenue.a |
| d1e0 | 74 7a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 49 46 20 73 74 65 6c 6c 65 20 3d 20 | tz..............N...IF.stelle.=. |
| d200 | 30 2e 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 31 | 0.0.........................(*.1 |
| d220 | 30 20 68 6f 63 68 20 6e 75 6c 6c 20 69 73 74 20 65 69 6e 73 20 2a 29 20 7a 65 68 6e 2a 29 ff ff | 0.hoch.null.ist.eins.*).zehn*).. |
| d240 | 4e 00 20 20 20 20 20 49 46 20 4e 4f 54 20 28 73 74 65 6c 6c 65 20 3d 20 31 2e 30 29 20 20 20 20 | N......IF.NOT.(stelle.=.1.0).... |
| d260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 31 30 20 68 6f 63 68 20 65 | ....................(*.10.hoch.e |
| d280 | 69 6e 73 20 69 73 74 20 7a 65 68 6e 2a 29 ff ff 3e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 65 | ins.ist.zehn*)..>.ENDPROC.kreuze |
| d2a0 | 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 3b 61 6e 7a 61 68 6c 20 79 61 63 68 73 65 | rzeugenundzeichnen;anzahl.yachse |
| d2c0 | 6e 61 62 73 63 68 6e 69 74 74 65 20 52 45 50 ff 4e 00 20 20 73 63 68 72 69 74 74 77 65 69 74 65 | nabschnitte.REP.N...schrittweite |
| d2e0 | 20 3a 3d 20 64 65 6c 74 61 20 28 78 6d 69 6e 2c 20 78 6d 61 78 29 3b 2e 68 65 2c 20 73 74 61 6e | .:=.delta.(xmin,.xmax);.he,.stan |
| d300 | 64 61 72 64 62 72 65 69 74 65 29 3b 2e 65 29 3b 72 64 68 6f 65 68 65 29 3b 65 68 6e 2a 29 ff ff | dardbreite);.e);rdhoehe);ehn*).. |
| d320 | 4e 00 20 20 49 46 20 78 6d 69 6e 20 3d 20 30 2e 30 20 3d 20 64 65 6c 74 61 20 28 78 6d 69 6e 2c | N...IF.xmin.=.0.0.=.delta.(xmin, |
| d340 | 20 78 6d 61 78 29 3b 2e 69 74 65 3b 65 72 20 7a 61 68 6c 3b 20 20 30 2e 37 2a 73 74 61 6e 64 61 | .xmax);.ite;er.zahl;..0.7*standa |
| d360 | 72 64 68 6f 65 68 65 29 3b 65 68 6e 2a 29 ff ff 2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 | rdhoehe);ehn*)......movecmr.(kre |
| d380 | 75 7a 2c 20 2d 34 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 30 2e 30 29 3b | uz,.-4.0.*.standardbreite.,0.0); |
| d3a0 | 3e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 22 31 30 20 22 2c 20 30 2e 30 2c 20 20 73 74 | >...draw.(kreuz,."10.",.0.0,..st |
| d3c0 | 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 2e ff ff | andardhoehe,.standardbreite);... |
| d3e0 | 4e 00 20 20 52 4f 57 20 33 20 52 45 41 4c 20 56 41 52 20 73 63 68 6f 65 6e 65 7a 61 68 6c 3b 68 | N...ROW.3.REAL.VAR.schoenezahl;h |
| d400 | 6f 65 6e 65 72 20 7a 61 68 6c 3a 20 2c 20 73 63 68 6f 65 6e 65 7a 61 68 6c 29 3b 61 62 73 63 68 | oener.zahl:.,.schoenezahl);absch |
| d420 | 6e 69 74 74 65 29 3b 20 65 6e 21 2a 29 ff ff ff 3e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64 | nitte);.en!*)...>...OUTPUT.VAR.d |
| d440 | 73 74 20 3a 3d 20 6e 69 6c 6f 75 74 70 75 74 20 28 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c | st.:=.niloutput.(strukt1fenster, |
| d460 | 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ."darst");......N............... |
| d480 | 20 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 29 2c 20 30 2e 30 2c 20 73 74 61 6e 64 | ..nachkommastellen)),.0.0,.stand |
| d4a0 | 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 76 6f 6e ff ff ff | ardhoehe,.standardbreite).von... |
| d4c0 | 4e 00 20 20 20 20 20 64 69 65 20 45 55 4d 45 4c 2d 46 75 6e 6b 74 69 6f 6e 20 6c 6f 67 31 30 20 | N......die.EUMEL-Funktion.log10. |
| d4e0 | 75 6e 67 65 6e 61 75 65 20 57 65 72 74 65 20 6c 69 65 66 65 72 74 2e 77 69 72 64 20 69 6e 20 64 | ungenaue.Werte.liefert.wird.in.d |
| d500 | 65 72 20 56 61 72 69 61 62 6c 65 20 69 64 61 ff 4e 00 45 4e 44 20 50 52 4f 43 20 64 65 6c 74 61 | er.Variable.ida.N.END.PROC.delta |
| d520 | 3b 61 6c 20 64 20 20 3c 3d 20 6c 61 65 6e 67 65 20 20 54 48 45 4e 20 66 75 65 6e 66 20 6d 61 6c | ;al.d..<=.laenge..THEN.fuenf.mal |
| d540 | 20 64 20 45 4c 53 45 20 7a 67 65 73 65 74 7a 74 21 20 2a 29 65 29 3a 20 ff ff ff ff ff ff ff ff | .d.ELSE.zgesetzt!.*)e):......... |
| d560 | 4e 00 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 28 4c 4f 45 53 55 4e 47 20 56 41 52 | N.PROC.darstellung4.(LOESUNG.VAR |
| d580 | 20 6c 73 67 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20 | .lsg,.BOOL.VAR.indemo,.TEXT.VAR. |
| d5a0 | 74 61 73 74 65 29 3a 6c 61 65 6e 67 65 22 ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | taste):laenge"..>............... |
| d5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 74 20 6e 69 63 68 74 20 73 69 | ....................ist.nicht.si |
| d5e0 | 6e 6e 76 6f 6c 6c 20 2a 29 ff ff ff ff ff ff ff 3e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d | nnvoll.*).......>.....IF.taste.= |
| d600 | 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | .abbruchtaste.COR.taste.=.modell |
| d620 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 72 65 65 | groessentaste...N............ree |
| d640 | 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 62 6c 20 75 6b 74 31 66 65 6e 73 74 65 72 2c | nterdarstellung4.bl.ukt1fenster, |
| d660 | 20 22 64 61 72 73 74 22 29 3b 65 6e 74 61 73 74 65 20 69 63 68 74 73 74 65 20 43 4f 52 20 ff ff | ."darst");entaste.ichtste.COR... |
| d680 | 3e 00 20 20 20 20 20 20 20 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 | >.........wahlderdarstellungsart |
| d6a0 | 65 6e 3b 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff | en;.zeigezusatz.groessentaste... |
| d6c0 | 2e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 | ..kernvonzeigemenuezurzusatzdars |
| d6e0 | 74 3a 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 4e 00 20 20 5a 55 53 54 41 4e 44 20 56 41 52 20 | t:taste.........N...ZUSTAND.VAR. |
| d700 | 61 6b 74 20 7a 75 73 74 61 6e 64 20 3a 3d 20 6e 65 75 65 72 20 7a 75 73 74 61 6e 64 20 28 32 29 | akt.zustand.:=.neuer.zustand.(2) |
| d720 | 3b 20 20 28 2a 20 31 20 56 61 72 69 61 62 6c 65 20 70 6c 75 73 20 2a 29 65 69 6c 65 2c ff ff ff | ;..(*.1.Variable.plus.*)eile,... |
| d740 | 3e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 6e 67 3b 73 63 29 20 20 20 | >.........loeschemenue;ng;sc)... |
| d760 | 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 2e ff ff ff ff | .LEAVE.kernvondarstellung4;..... |
| d780 | 2e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 65 7a 65 69 6c 65 20 28 31 | ..........loeschemenue;ezeile.(1 |
| d7a0 | 30 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 49 46 20 74 61 73 74 65 20 3d 20 7a | 0));............N...IF.taste.=.z |
| d7c0 | 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 | eigephasend.COR.taste.=.zeigetab |
| d7e0 | 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | .COR.taste.=.abbruchtaste.COR... |
| d800 | 3e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 6d 65 6c | >.........zeigemenuemeldung.(mel |
| d820 | 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 74 65 20 ff ff | dungstext.(falsche.taste)).te... |
| d840 | 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 | >...fuellemenue.(menuezeile.(16) |
| d860 | 29 3b 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b ff ff ff ff ff ff ff ff | );arten.(taste,.FALSE.);........ |
| d880 | 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 | N.....ELIF.taste.=.darstellungsa |
| d8a0 | 72 74 74 61 73 74 65 20 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 | rttaste.kurzbezeichnung,.kopfzei |
| d8c0 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 4e 00 20 20 20 20 20 20 54 48 45 4e 20 76 65 72 | le,.steuerzeile,N.......THEN.ver |
| d8e0 | 73 65 6e 64 65 6f 75 74 70 75 74 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 | sendeoutput.(dst,.modellkurzbeze |
| d900 | 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | ichnung,.kopfzeile,.steuerzeile, |
| d920 | 3e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 6d 65 6c | >.........zeigemenuemeldung.(mel |
| d940 | 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff | dungstext.(falsche.taste))...... |
| d960 | 2e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3a 65 3b 65 69 6c 65 20 28 31 36 29 | ..gibabbruchmenueaus:e;eile.(16) |
| d980 | 29 3b 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 54 48 45 4e 20 61 6e 66 61 6e | );..............N.....THEN.anfan |
| d9a0 | 67 73 70 75 6e 6b 74 20 67 6c 65 69 63 68 20 73 63 68 72 69 74 74 77 65 69 74 65 3b 65 72 20 7a | gspunkt.gleich.schrittweite;er.z |
| d9c0 | 61 68 6c 3b 20 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 63 68 ff ff ff ff ff ff ff ff ff ff | ahl;.tandardbreite);ch.......... |
| d9e0 | 4e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 63 68 73 65 3b | N...beschrifte.1.pkt.an.x.achse; |
| da00 | 74 65 3a 65 72 20 7a 61 68 6c 3a 20 20 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 2e 6c 65 72 | te:er.zahl:..tandardbreite);.ler |
| da20 | 20 67 65 73 74 61 6c 74 65 6e 21 2a 29 ff ff ff 4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 73 63 | .gestalten!*)...N...stelle.:=.sc |
| da40 | 68 72 69 74 74 77 65 69 74 65 3b 74 74 77 65 69 74 65 3a 65 72 20 7a 61 68 6c 3a 20 2c 20 73 63 | hrittweite;ttweite:er.zahl:.,.sc |
| da60 | 68 6f 65 6e 65 7a 61 68 6c 29 3b 68 65 29 3b 28 2a 20 6e 6f 63 68 6c 74 65 6e 21 2a 29 ff ff ff | hoenezahl);he);(*.nochlten!*)... |
| da80 | 4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 63 61 20 6d 69 74 74 65 20 2d 20 73 63 68 72 69 74 74 | N...stelle.:=.ca.mitte.-.schritt |
| daa0 | 77 65 69 74 65 20 2a 20 72 65 61 6c 20 28 61 6e 7a 61 68 6c 20 61 63 68 73 65 6e 61 62 73 63 68 | weite.*.real.(anzahl.achsenabsch |
| dac0 | 6e 69 74 74 65 29 3b 68 6e 2a 29 ff ff ff ff ff 3e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64 | nitte);hn*).....>...OUTPUT.VAR.d |
| dae0 | 73 74 20 3a 3d 20 6e 69 6c 6f 75 74 70 75 74 20 28 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c | st.:=.niloutput.(strukt1fenster, |
| db00 | 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 41 75 73 67 65 68 65 6e | ."darst");......N.......Ausgehen |
| db20 | 64 20 76 6f 6e 20 64 65 6d 20 6f 62 65 6e 20 62 65 73 74 69 6d 6d 74 65 6e 20 57 65 72 74 20 76 | d.von.dem.oben.bestimmten.Wert.v |
| db40 | 6f 6e 20 69 20 30 65 2d 31 31 20 2a 29 72 64 20 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 61 ff | on.i.0e-11.*)rd.das.Refinementa. |
| db60 | 2e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 73 74 65 6c 6c 75 6e 67 34 | ............out.(piep);stellung4 |
| db80 | 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c | ...............................l |
| dba0 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 34 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | eavedarstellung4.4.............. |
| dbc0 | 4e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 3b 62 65 65 6e 64 65 74 20 32 | N...KURVE.VAR.lsgkurve;beendet.2 |
| dbe0 | 20 3a 3a 22 22 3b 74 31 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b 7a 69 66 66 65 72 | .::"";t1fenster,."darst");ziffer |
| dc00 | 6e 20 76 6f 6e 20 22 6c 61 65 6e 67 65 22 ff ff 3e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 | n.von."laenge"..>.........reente |
| dc20 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 75 6e 67 34 20 61 72 20 61 6b 74 69 76 69 74 61 65 74 | rdarstellung4.ung4.ar.aktivitaet |
| dc40 | 29 20 3e 3d 20 31 2e 30 20 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 45 4c 53 45 20 20 | ).>=.1.0........N.........ELSE.. |
| dc60 | 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 73 20 28 64 73 74 2c 20 6d 6f 64 65 | reenterdarstellung4.s.(dst,.mode |
| dc80 | 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff ff ff | llkurzbezeichnung,ungsname,..... |
| dca0 | 4e 00 20 20 20 20 20 20 54 48 45 4e 20 76 6f 72 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 31 | N.......THEN.vorzeitig.beendet.1 |
| dcc0 | 3a 3d 20 66 65 68 6c 65 72 6d 65 6c 64 75 6e 67 20 61 6e 66 61 6e 67 20 3b 20 6c 6c 20 2a 29 76 | :=.fehlermeldung.anfang.;.ll.*)v |
| dce0 | 6f 6c 6c 20 2a 29 2a 29 62 6c 65 20 2a 29 20 ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 | oll.*)*)ble.*)................le |
| dd00 | 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 30 29 29 3b 73 61 74 7a 64 61 72 73 74 20 ff ff | avedarstellung4.0));satzdarst... |
| dd20 | 3e 00 20 20 20 20 20 20 20 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20 28 31 32 29 3b 20 28 31 | >.........gibmeldungaus.(12);.(1 |
| dd40 | 29 29 3b 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 ff ff ff ff ff | ));ngstext.(falschetaste))...... |
| dd60 | 3e 00 20 20 20 20 20 20 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 43 4f 52 20 | >........taste.=.zeigezeitd.COR. |
| dd80 | 74 61 73 74 65 20 3d 20 7a 65 69 67 65 68 69 73 74 6f 67 72 69 63 68 6e 75 6e 67 2c 20 20 74 2e | taste.=.zeigehistogrichnung,..t. |
| dda0 | 4e 00 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 73 74 65 | N..........darstellungsname,.ste |
| ddc0 | 75 65 72 7a 65 69 6c 65 29 3b 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 74 2e | uerzeile);modellgroessentaste.t. |
| dde0 | 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 67 65 | gsname,.........N.............ge |
| de00 | 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b | beaufbildschirmaus.(dst,.modellk |
| de20 | 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | urzbezeichnung,stellungsname,... |
| de40 | 3e 00 62 65 73 74 69 6d 6d 65 20 61 75 73 67 61 62 65 61 75 73 73 63 68 6e 69 74 74 3a 69 63 74 | >.bestimme.ausgabeausschnitt:ict |
| de60 | 75 72 65 3b 65 6e 73 74 65 72 20 75 6e 74 65 6e 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ure;enster.unten);.............. |
| de80 | 4e 00 20 20 52 45 41 4c 20 56 41 52 20 73 74 65 6c 6c 65 2c 75 6e 64 7a 65 69 63 68 6e 65 6e 20 | N...REAL.VAR.stelle,undzeichnen. |
| dea0 | 28 4f 55 54 50 55 54 20 56 41 52 20 7a 75 73 61 74 7a 73 65 69 74 65 2c 2c 20 79 6d 69 6e 2c 20 | (OUTPUT.VAR.zusatzseite,,.ymin,. |
| dec0 | 79 6d 61 78 29 3a 20 3f 3f 2a 29 ff ff ff ff ff 4e 00 20 20 73 63 68 72 65 69 62 65 20 76 61 72 | ymax):.??*).....N...schreibe.var |
| dee0 | 69 61 62 6c 65 6e 6e 61 6d 65 20 61 6e 20 79 61 63 68 73 65 3b 2e 20 20 20 20 20 28 2a 20 62 65 | iablenname.an.yachse;......(*.be |
| df00 | 73 63 68 72 69 66 74 75 6e 67 20 6b 6f 6f 72 64 2e 75 72 73 70 72 2e 2a 29 78 29 3a 20 ff ff ff | schriftung.koord.urspr.*)x):.... |
| df20 | 2e 00 20 20 6f 72 64 6e 65 73 74 69 66 74 7a 75 3b 3b 7a 2c 20 78 6d 69 6e 2c 20 73 63 68 72 69 | ....ordnestiftzu;;z,.xmin,.schri |
| df40 | 74 74 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 76 65 | tt);..................zeichne.ve |
| df60 | 72 6c 61 65 6e 67 65 72 75 6e 67 3b 69 63 68 65 3b 20 62 72 65 69 74 65 2c 20 30 2e 30 29 3b ff | rlaengerung;iche;.breite,.0.0);. |
| df80 | 4e 00 20 20 20 20 45 4c 53 45 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 20 2d 35 2e 30 20 | N.....ELSE.movecmr.(kreuz,.-5.0. |
| dfa0 | 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 | *.standardbreite.,-0.5*standardh |
| dfc0 | 6f 65 68 65 29 3b 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 54 48 45 4e 20 6d 6f 76 65 63 | oehe););........N.....THEN.movec |
| dfe0 | 6d 72 20 28 6b 72 65 75 7a 2c 20 2d 35 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 | mr.(kreuz,.-5.0.*.standardbreite |
| e000 | 20 2c 20 30 2e 31 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 65 6e 21 2a 29 ff ff ff | .,.0.1.*.standardhoehe);en!*)... |
| e020 | 3e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 72 65 61 6c 20 28 69 20 2b 20 31 29 3b 61 6e 20 79 61 | >...stelle.:=.real.(i.+.1);an.ya |
| e040 | 63 68 73 65 3b 2e 20 79 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 | chse;..yachsenabschnitte.-.1.REP |
| e060 | 4e 00 20 20 20 20 54 48 45 4e 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 22 20 31 22 2c 20 30 2e | N.....THEN.draw.(kreuz,.".1",.0. |
| e080 | 30 2c 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 | 0,..standardhoehe,.standardbreit |
| e0a0 | 65 29 3b 65 29 3b 29 ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c | e);e);).............draw.(kreuz, |
| e0c0 | 20 74 65 78 74 20 28 69 6e 74 20 28 73 74 65 6c 6c 65 29 29 2c ff ff ff ff ff ff ff ff ff ff ff | .text.(int.(stelle)),........... |
| e0e0 | 4e 00 73 63 68 72 65 69 62 65 20 76 61 72 69 61 62 6c 65 6e 6e 61 6d 65 20 61 6e 20 79 20 61 63 | N.schreibe.variablenname.an.y.ac |
| e100 | 68 73 65 3a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 | hse:.standardhoehe,.standardbrei |
| e120 | 74 65 29 3b 69 73 74 20 7a 65 68 6e 2a 29 ff ff 3e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 68 69 | te);ist.zehn*)..>.....zeichne.hi |
| e140 | 6e 74 65 72 67 72 75 6e 64 73 74 72 69 63 68 65 3b 20 7a 61 68 6c 20 79 61 63 68 73 65 6e 61 62 | ntergrundstriche;.zahl.yachsenab |
| e160 | 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 4e 00 20 20 52 45 41 4c 20 56 41 52 20 63 61 20 | schnitte.-.1.REPN...REAL.VAR.ca. |
| e180 | 6d 69 74 74 65 3b 69 67 20 76 6f 6e 20 73 63 68 6f 65 6e 65 72 20 7a 61 68 6c 3a 20 2c 20 73 63 | mitte;ig.von.schoener.zahl:.,.sc |
| e1a0 | 68 6f 65 6e 65 7a 61 68 6c 29 3b 74 74 77 65 69 74 65 29 3b 74 61 6c 74 65 6e 21 2a 29 ff ff ff | hoenezahl);ttweite);talten!*)... |
| e1c0 | 3e 00 20 20 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c | >....zeigedarst4.(dst,.indemo,.l |
| e1e0 | 73 67 6b 75 72 76 65 29 3b 6c 73 67 2c 20 74 61 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff | sgkurve);lsg,.taste);........... |
| e200 | 4e 00 7a 69 65 68 65 20 73 65 6e 6b 72 65 63 68 74 6c 69 6e 69 65 3a 20 78 20 61 63 68 73 65 3b | N.ziehe.senkrechtlinie:.x.achse; |
| e220 | 77 65 69 74 65 20 2a 20 72 65 61 6c 20 28 61 6e 7a 61 68 6c 20 61 63 68 73 65 6e 61 62 73 63 68 | weite.*.real.(anzahl.achsenabsch |
| e240 | 6e 69 74 74 65 29 3b 74 65 6e 21 2a 29 ff ff ff 3e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | nitte);ten!*)...>...move.(kreuz, |
| e260 | 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 | .stelle,.ymin);den.(dst,.lsg,.ta |
| e280 | 73 74 65 29 3b 31 2e 30 20 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 75 | ste);1.0........N..............u |
| e2a0 | 6e 74 65 72 74 65 69 6c 65 6e 2e 2a 29 74 65 6c 74 65 20 53 63 68 72 69 74 74 77 65 69 74 65 20 | nterteilen.*)telte.Schrittweite. |
| e2c0 | 77 69 72 64 20 64 61 73 20 49 6e 74 65 72 76 61 6c 6c 20 69 6e 68 65 6e 64 20 76 6f 6e ff ff ff | wird.das.Intervall.inhend.von... |
| e2e0 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | >............................... |
| e300 | 20 20 20 20 69 73 74 20 6e 69 63 68 74 20 73 69 6e 6e 76 6f 6c 6c 20 2a 29 ff ff ff ff ff ff ff | ....ist.nicht.sinnvoll.*)....... |
| e320 | 3e 00 20 20 20 20 66 75 65 6e 66 20 6d 61 6c 20 64 20 3a 3d 20 35 2e 30 2a 64 3b 41 4e 44 20 20 | >.....fuenf.mal.d.:=.5.0*d;AND.. |
| e340 | 6c 61 65 6e 67 65 20 3c 20 28 31 30 2e 30 2a 2a 28 69 2b 31 29 20 29 22 29 3b 6e 75 6e 67 2c ff | laenge.<.(10.0**(i+1).)");nung,. |
| e360 | 4e 00 20 20 20 20 66 75 65 6e 66 20 6d 61 6c 20 64 20 3a 3d 20 35 2e 30 2a 64 3b 6e 67 65 2f 64 | N.....fuenf.mal.d.:=.5.0*d;nge/d |
| e380 | 29 20 2a 20 64 3b 20 20 20 28 2a 20 44 69 65 20 69 20 6c 65 74 7a 74 65 6e 20 7a 69 66 66 65 72 | ).*.d;...(*.Die.i.letzten.ziffer |
| e3a0 | 6e 20 76 6f 6e 20 22 6c 61 65 6e 67 65 22 ff ff 4e 00 20 20 20 20 20 20 20 20 49 46 20 74 61 73 | n.von."laenge"..N.........IF.tas |
| e3c0 | 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f | te.=.abbruchtaste.COR.taste.=.mo |
| e3e0 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 75 6e 67 73 6e 61 6d 65 2c 20 2c 20 ff ff | dellgroessentaste.ungsname,.,... |
| e400 | 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 | ......ELIF.taste.=.mdlgroessenei |
| e420 | 6e 62 6c 20 64 61 72 73 74 2e ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a | nbl.darst.......>.........leavez |
| e440 | 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 78 74 20 28 66 61 6c 73 | eigemenuezurzusatzdarst.xt.(fals |
| e460 | 63 68 65 74 61 73 74 65 29 29 20 2e ff ff ff ff 4e 00 20 20 20 20 20 20 45 4c 53 45 20 20 20 6f | chetaste))......N.......ELSE...o |
| e480 | 75 74 20 28 70 69 65 70 29 3b 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 7a | ut.(piep);.reenterdarstellung4.z |
| e4a0 | 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 65 ff | bezeichnung,.abbruchtaste.COR.e. |
| e4c0 | 3e 00 62 65 73 63 68 72 69 66 74 65 20 61 63 68 73 65 6e 3a 2c 73 74 72 75 6b 74 31 66 65 6e 73 | >.beschrifte.achsen:,strukt1fens |
| e4e0 | 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 65 6e 29 3b 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 | ter,.legende);en);hnitte.-.1.REP |
| e500 | 4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 72 65 61 6c 20 28 69 20 2b 20 31 29 3b 6e 69 65 6e 2c | N...stelle.:=.real.(i.+.1);nien, |
| e520 | 20 78 6d 61 78 2c 20 73 63 68 72 69 74 74 77 65 69 74 65 29 3b 66 74 75 6e 67 20 6b 6f 6f 72 64 | .xmax,.schrittweite);ftung.koord |
| e540 | 2e 75 72 73 70 72 2e 2a 29 ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | .urspr.*)...........move.(kreuz, |
| e560 | 20 78 6d 61 78 2c 79 6d 69 6e 29 3b 65 63 68 74 73 3b 29 3b ff ff ff ff ff ff ff ff ff ff ff ff | .xmax,ymin);echts;);............ |
| e580 | 2e 00 20 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3b 31 29 3b 2c 79 6d 61 78 29 3b 63 68 72 69 | ....zeichnexachse;1);,ymax);chri |
| e5a0 | 74 74 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 64 72 61 77 20 28 6b 72 65 | tt);............N......draw.(kre |
| e5c0 | 75 7a 2c 20 22 31 30 20 22 2c 20 30 2e 30 2c 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 | uz,."10.",.0.0,..standardhoehe,. |
| e5e0 | 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 65 29 3b 73 20 2a 29 20 7a 65 68 6e 2a 29 ff ff | standardbreite);e);s.*).zehn*).. |
| e600 | 3e 00 20 20 20 20 20 20 73 63 68 72 69 74 74 77 65 69 74 65 20 3a 3d 20 6c 6f 67 20 31 30 20 28 | >.......schrittweite.:=.log.10.( |
| e620 | 72 65 61 6c 20 28 73 29 20 2a 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 20 70 6b 74 29 3b ff ff ff | real.(s).*.letzter.skal.pkt);... |
| e640 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 30 2c 20 20 30 | N........................0.0,..0 |
| e660 | 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 | .5.*.standardhoehe,.standardbrei |
| e680 | 74 65 29 3b 65 68 65 29 3b 65 68 6e 2a 29 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | te);ehe);ehn*)..N............... |
| e6a0 | 20 20 20 20 20 20 20 20 20 30 2e 30 2c 20 20 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 | .........0.0,..0.5.*.standardhoe |
| e6c0 | 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 2a 29 29 3b ff ff ff ff ff ff ff | he,.standardbreite);.*));....... |
| e6e0 | 4e 00 20 20 62 65 72 65 63 68 6e 65 20 73 63 68 72 69 74 74 77 65 69 74 65 3b 2c 20 20 73 74 61 | N...berechne.schrittweite;,..sta |
| e700 | 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 2e 29 3b 61 | ndardhoehe,.standardbreite);.);a |
| e720 | 75 73 65 3b 29 3b 3a ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 68 69 | use;);:.........>.....zeichne.hi |
| e740 | 6e 74 65 72 67 72 75 6e 64 73 74 72 69 63 68 65 3b 20 73 65 3b 6b 74 31 66 65 6e 73 74 65 72 2c | ntergrundstriche;.se;kt1fenster, |
| e760 | 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff 4e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 31 | ."darst");......N...beschrifte.1 |
| e780 | 20 70 6b 74 20 61 6e 20 78 20 61 63 68 73 65 3b 6e 74 20 28 28 63 61 20 6d 69 74 74 65 20 2d 20 | .pkt.an.x.achse;nt.((ca.mitte.-. |
| e7a0 | 78 6d 69 6e 29 2f 73 63 68 72 69 74 74 77 65 69 74 65 29 3b 65 29 3b 20 7a 65 68 6e 2a 29 ff ff | xmin)/schrittweite);e);.zehn*).. |
| e7c0 | 4e 00 20 20 20 20 20 67 6c 65 69 63 68 20 22 6c 61 65 6e 67 65 22 20 69 73 74 2e 20 44 65 72 20 | N......gleich."laenge".ist..Der. |
| e7e0 | 45 78 70 6f 6e 65 6e 74 20 64 69 65 73 65 72 20 50 6f 74 65 6e 7a 20 77 69 72 64 20 69 6e 20 64 | Exponent.dieser.Potenz.wird.in.d |
| e800 | 65 72 20 56 61 72 69 61 62 6c 65 20 69 64 61 ff 4e 00 20 20 20 20 20 61 62 67 65 6c 65 67 74 2e | er.Variable.ida.N......abgelegt. |
| e820 | 66 69 6e 65 6d 65 6e 74 20 6c 69 65 66 65 72 74 20 64 69 65 20 67 72 da fb 74 65 20 5a 65 68 6e | finement.liefert.die.gr..te.Zehn |
| e840 | 65 72 70 6f 74 65 6e 7a 2c 20 64 69 65 20 6b 6c 65 69 6e 65 72 20 6f 64 65 72 65 20 69 64 61 ff | erpotenz,.die.kleiner.odere.ida. |
| e860 | 4e 00 20 20 49 46 20 4e 4f 54 20 61 72 67 75 6d 65 6e 74 65 20 69 6d 20 64 65 66 62 65 72 65 69 | N...IF.NOT.argumente.im.defberei |
| e880 | 63 68 20 43 4f 52 20 7a 75 20 77 65 6e 69 67 20 61 72 67 75 6d 65 6e 74 65 67 65 73 65 74 7a 74 | ch.COR.zu.wenig.argumentegesetzt |
| e8a0 | 21 20 2a 29 6e 20 22 6c 61 65 6e 67 65 22 ff ff 4e 00 20 20 20 20 20 20 20 20 49 46 20 74 61 73 | !.*)n."laenge"..N.........IF.tas |
| e8c0 | 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f | te.=.abbruchtaste.COR.taste.=.mo |
| e8e0 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 75 6e 67 73 6e 61 6d 65 2c 20 2c ff ff ff | dellgroessentaste.ungsname,.,... |
| e900 | 4e 00 20 20 49 46 20 65 6e 64 65 20 64 65 72 20 6c 6f 65 73 75 6e 67 20 28 6c 73 67 20 6b 75 72 | N...IF.ende.der.loesung.(lsg.kur |
| e920 | 76 65 29 20 20 20 20 20 28 2a 20 6b 61 6e 6e 20 61 75 66 67 72 75 6e 64 20 64 65 72 20 47 6c 65 | ve).....(*.kann.aufgrund.der.Gle |
| e940 | 69 63 68 2e 74 68 65 6f 72 65 74 2e 2c 20 ff ff 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 | ich.theoret.,.............leaved |
| e960 | 61 72 73 74 65 6c 6c 75 6e 67 34 20 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff | arstellung4.zusatzdarst......... |
| e980 | 2e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 | ......fuellemenue.(menuezeile.(1 |
| e9a0 | 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a | ));.......................leavez |
| e9c0 | 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 74 2e ff ff ff ff ff ff | eigemenuezurzusatzdarst.t....... |
| e9e0 | 4e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 20 66 6f 72 67 65 74 20 28 22 64 61 | N.leavedarstellung4:.forget.("da |
| ea00 | 72 73 74 22 2c 20 71 75 69 65 74 29 3b 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 | rst",.quiet);.LEAVE.darstellung4 |
| ea20 | 2e 62 77 65 72 74 73 7a 65 69 74 4f 52 20 ff ff 3e 00 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 | .bwertszeitOR...>..........zeige |
| ea40 | 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 | menuemeldung.(meldungstext.(fals |
| ea60 | 63 68 65 74 61 73 74 65 29 29 20 74 65 20 ff ff 3e 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c | chetaste)).te...>.wahlderdarstel |
| ea80 | 6c 75 6e 67 73 61 72 74 65 6e 3a 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | lungsarten:sarten.(taste,.FALSE. |
| eaa0 | 29 3b 67 72 69 63 68 6e 75 6e 67 2c 20 20 ff ff 4e 00 20 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 | );grichnung,....N...zeigemenuezu |
| eac0 | 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | darstellungsarten.(taste,.FALSE. |
| eae0 | 29 3b 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 65 ff | );OR.taste.=.abbruchtaste.COR.e. |
| eb00 | 4e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 | N.kernvonzeigemenuezurzusatzdars |
| eb20 | 74 3a 61 74 7a 64 61 72 73 74 20 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 72 6f 65 73 73 65 6e 74 | t:atzdarst..lsg,.taste);roessent |
| eb40 | 61 73 74 65 20 6e 67 73 6e 61 6d 65 2c 20 ff ff 2e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 | aste.ngsname,.........kernvonzei |
| eb60 | 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 61 72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff | geabbruchmenue.arttaste......... |
| eb80 | 4e 00 20 20 28 79 77 65 72 74 20 2d 20 6c 6f 67 20 31 30 20 28 65 72 73 74 65 72 20 20 6c 73 67 | N...(ywert.-.log.10.(erster..lsg |
| eba0 | 70 75 6e 6b 74 29 29 20 2f 20 28 7a 65 69 74 20 2d 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e | punkt))./.(zeit.-.erster.zeitpun |
| ebc0 | 6b 74 29 2e 69 62 74 3f 20 2a 29 6e 6e ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kt).ibt?.*)nn...>............... |
| ebe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 67 69 | ............................ergi |
| ec00 | 62 74 3f 20 2a 29 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 74 72 61 67 65 20 61 6e 66 61 6e 67 | bt?.*)..............trage.anfang |
| ec20 | 73 70 75 6e 6b 74 20 65 69 6e 3b 20 74 20 20 3a 3a 20 30 2e 30 2c 20 ff ff ff ff ff ff ff ff ff | spunkt.ein;.t..::.0.0,.......... |
| ec40 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 20 28 7a 65 69 74 20 2d | >....................../.(zeit.- |
| ec60 | 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 29 2e 69 76 69 74 61 65 74 3b ff ff ff ff ff | .erster.zeitpunkt).ivitaet;..... |
| ec80 | 4e 00 20 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 73 65 69 74 65 2c | N...gebeaufbildschirmaus.(seite, |
| eca0 | 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 29 3b 2e 2a 2a 2a 2a 2a 2a | .modellkurzbezeichnung,);.****** |
| ecc0 | 2a 2a 2a 29 72 64 2b ff ff ff ff ff ff ff ff ff 4e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 61 | ***)rd+.........N...beschrifte.a |
| ece0 | 63 68 73 65 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 65 6e 20 28 6c 65 67 65 6e | chsen;................pen.(legen |
| ed00 | 64 65 2c 20 31 29 3b 73 74 65 72 20 6f 62 65 6e 29 3b 20 2a 29 74 20 3f 3f 2a 29 ff ff ff ff ff | de,.1);ster.oben);.*)t.??*)..... |
| ed20 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 73 63 68 72 69 74 74 77 65 69 74 65 2c 20 20 20 20 20 20 | N............schrittweite,...... |
| ed40 | 20 20 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 | ...REAL.CONST.xmin,.xmax,.ymin,. |
| ed60 | 79 6d 61 78 29 3a 20 3f 3f 2a 29 ff ff ff ff ff 3e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 73 65 | ymax):.??*).....>...putkreuz.(se |
| ed80 | 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a 29 3b 20 7a 65 69 | ite,.strukt1fenster,.kreuz);.zei |
| eda0 | 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 4e 00 62 65 72 65 63 68 6e 65 20 73 63 68 72 69 | chnung,.........N.berechne.schri |
| edc0 | 74 74 77 65 69 74 65 3a 69 65 3b 20 6d 69 6e 2c 20 78 6d 61 78 29 3b 2e 65 20 2c 2d 30 2e 35 2a | ttweite:ie;.min,.xmax);.e.,-0.5* |
| ede0 | 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 61 72 64 68 6f 65 68 65 29 3b 65 68 6e 2a 29 ff ff | standardhoehe);ardhoehe);ehn*).. |
| ee00 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 74 65 78 74 | >..............draw.(kreuz,.text |
| ee20 | 20 28 69 6e 74 20 28 73 74 65 6c 6c 65 29 29 2c 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b | .(int.(stelle)),standardbreite); |
| ee40 | 4e 00 20 20 20 20 54 48 45 4e 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 67 6c 65 69 63 68 20 73 | N.....THEN.anfangspunkt.gleich.s |
| ee60 | 63 68 72 69 74 74 77 65 69 74 65 3b 65 72 20 7a 61 68 6c 3b 20 2a 20 31 30 20 68 6f 63 68 20 65 | chrittweite;er.zahl;.*.10.hoch.e |
| ee80 | 69 6e 73 20 69 73 74 20 7a 65 68 6e 2a 29 ff ff 4e 00 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 61 | ins.ist.zehn*)..N.anfangspunkt.a |
| eea0 | 62 68 61 65 6e 67 69 67 20 76 6f 6e 20 73 63 68 6f 65 6e 65 72 20 7a 61 68 6c 3a 20 2c 20 73 63 | bhaengig.von.schoener.zahl:.,.sc |
| eec0 | 68 6f 65 6e 65 7a 61 68 6c 29 3b 74 74 77 65 69 74 65 29 3b 74 61 6c 74 65 6e 21 2a 29 ff ff ff | hoenezahl);ttweite);talten!*)... |
| eee0 | 2e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 74 65 78 74 20 28 69 6e 74 20 28 73 74 65 6c | ....draw.(kreuz,.text.(int.(stel |
| ef00 | 6c 65 29 29 2c 3b ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c | le)),;..........N...draw.(kreuz, |
| ef20 | 20 28 77 61 6e 64 6c 65 20 28 73 74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 | .(wandle.(stelle,.laengebeibesch |
| ef40 | 72 69 66 74 75 6e 67 2c 64 62 72 65 69 74 65 2c 20 64 62 72 65 69 74 65 29 2e 6c 65 2c ff ff ff | riftung,dbreite,.dbreite).le,... |
| ef60 | 2e 00 20 20 20 20 20 2d 20 31 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 61 | .......-.1.0.*.standardhoehe.-.a |
| ef80 | 62 73 74 61 6e 64 29 3b 3b 20 ff ff ff ff ff ff 4e 00 20 20 20 20 20 45 73 20 67 65 6e db 67 74 | bstand);;.......N......Es.gen.gt |
| efa0 | 20 6c 65 69 64 65 72 20 6e 69 63 68 74 2c 20 64 65 6e 20 31 30 65 72 2d 4c 6f 67 61 72 69 74 68 | .leider.nicht,.den.10er-Logarith |
| efc0 | 6d 75 73 20 76 6f 6e 20 22 6c 61 65 6e 67 65 22 20 61 62 7a 75 72 75 6e 64 65 6e 2c 20 64 61 ff | mus.von."laenge".abzurunden,.da. |
| efe0 | 4e 00 20 20 20 20 66 75 65 6e 66 20 6d 61 6c 20 64 20 3a 3d 20 35 2e 30 2a 64 3b 20 20 20 20 20 | N.....fuenf.mal.d.:=.5.0*d;..... |
| f000 | 20 20 20 20 20 20 20 20 20 20 20 20 77 65 72 64 65 6e 20 61 75 66 20 30 20 67 65 73 65 74 7a 74 | ............werden.auf.0.gesetzt |
| f020 | 21 20 2a 29 6e 20 22 6c 61 65 6e 67 65 22 ff ff 3e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 | !.*)n."laenge"..>.........ELIF.t |
| f040 | 61 73 74 65 20 3c 3e 20 6d 65 6e 75 65 74 61 73 74 65 20 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | aste.<>.menuetaste.taste,.FALSE. |
| f060 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | );..............N.....ELIF.taste |
| f080 | 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 29 3b 20 6c 73 67 2c 20 42 4f 4f 4c 20 56 41 52 20 69 | .=.sendetaste.);.lsg,.BOOL.VAR.i |
| f0a0 | 6e 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 29 3a 7a 65 69 6c 65 2c 20 ff ff | ndemo,.TEXT.VAR.taste):zeile,... |
| f0c0 | 2e 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3a 7a 64 61 72 73 | ..wahlderdarstellungsarten:zdars |
| f0e0 | 74 3a ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 | t:..............>.......ELIF.tas |
| f100 | 74 65 20 3c 3e 20 65 73 63 20 6c 6c 75 6e 67 34 20 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 | te.<>.esc.llung4..=.zeigezusatz. |
| f120 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 4e 00 20 20 20 20 20 20 45 4c 53 45 20 46 41 4c | groessentaste...N.......ELSE.FAL |
| f140 | 53 45 72 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 | SErte.(lsgkurve).SUB.var.aktivit |
| f160 | 61 65 74 29 20 3e 3d 20 31 2e 30 4c 53 45 6e 76 6f 6c 6c 20 2a 29 31 20 ff ff ff ff ff ff ff ff | aet).>=.1.0LSEnvoll.*)1......... |
| f180 | 4e 00 20 20 20 20 20 20 45 4c 53 45 20 46 41 4c 53 45 74 65 3a 20 20 20 20 20 20 20 20 20 20 20 | N.......ELSE.FALSEte:........... |
| f1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 31 20 45 72 67 61 65 6e 7a 75 | ...................(*.1.Ergaenzu |
| f1c0 | 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff 3e 00 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 | ngsvariable.*)..>.leavezeigemenu |
| f1e0 | 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 | ezurzusatzdarst:.LEAVE.zeigemenu |
| f200 | 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 4e 00 20 20 20 20 20 20 54 48 45 4e 20 6c 65 61 | ezurzusatzdarst.N.......THEN.lea |
| f220 | 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 61 72 74 74 61 73 74 65 20 7a 75 73 61 74 7a 64 61 | vedarstellung4.arttaste.zusatzda |
| f240 | 72 73 74 20 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | rst.ung,.kopfzeile,.steuerzeile, |
| f260 | 3e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 20 28 31 32 29 3b 72 7a 75 | >.........loeschemenue;.(12);rzu |
| f280 | 73 61 74 7a 64 61 72 73 74 2e 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff | satzdarst.e.=.zeigezeitd........ |
| f2a0 | 3e 00 20 20 20 20 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 2c 20 66 65 6e 73 74 65 72 20 | >......draw.(.funktion,.fenster. |
| f2c0 | 72 65 63 68 74 73 20 2c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 29 3b 20 2e 3b 65 74 3b ff ff | rechts.,.fenster.unten);..;et;.. |
| f2e0 | 3e 00 20 20 20 20 20 79 20 77 65 72 74 20 20 20 3a 3d 20 6c 6f 67 20 31 30 20 28 61 6b 74 20 7a | >......y.wert...:=.log.10.(akt.z |
| f300 | 75 73 74 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b 2e ff ff ff ff | ustand.SUB.var.aktivitaet);..... |
| f320 | 3e 00 28 2a 20 22 20 48 57 5a 3a 20 20 22 2b 20 74 65 78 74 28 68 77 7a 29 20 2b 6e 6b 74 29 20 | >.(*.".HWZ:.."+.text(hwz).+nkt). |
| f340 | 2d 20 6c 6f 67 20 31 30 20 28 65 72 73 74 65 72 20 6c 73 67 70 75 6e 6b 74 29 29 ff ff ff ff ff | -.log.10.(erster.lsgpunkt))..... |
| f360 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 | N.........................darste |
| f380 | 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 64 65 6d 6f 29 3b 20 45 | llungsname,.steuerzeile.demo);.E |
| f3a0 | 4c 53 45 20 68 74 20 3f 3f 2a 29 29 3b 20 ff ff 4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c | LSE.ht.??*));...N...draw.(kreuz, |
| f3c0 | 20 78 6d 69 6e 2c 79 6d 61 78 29 3b 20 20 2e 69 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 | .xmin,ymax);...itte.:=.int.(ymax |
| f3e0 | 29 3b 20 65 69 6c 65 29 3b 61 72 64 62 72 65 69 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff ff | );.eile);ardbreite);............ |
| f400 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 79 6d 61 78 29 3b 6e 3a 2e 20 | N...move.(kreuz,.xmax,ymax);n:.. |
| f420 | 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 62 65 73 63 68 72 69 66 74 75 6e 67 20 6b 6f 6f 72 64 | ...........(*.beschriftung.koord |
| f440 | 2e 75 72 73 70 72 2e 2a 29 ff ff ff ff ff ff ff 3e 00 20 20 73 63 68 72 65 69 62 65 20 76 61 72 | .urspr.*).......>...schreibe.var |
| f460 | 69 61 62 6c 65 6e 6e 61 6d 65 20 61 6e 20 79 61 63 68 73 65 3b 20 6c 65 74 7a 74 65 72 20 73 6b | iablenname.an.yachse;.letzter.sk |
| f480 | 61 6c 20 70 6b 74 29 3b 20 2d 20 31 20 52 45 50 4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 30 2e | al.pkt);.-.1.REPN...stelle.:=.0. |
| f4a0 | 30 3b 70 75 6e 6b 74 20 61 62 68 61 65 6e 67 69 67 20 76 6f 6e 20 73 63 68 6f 65 6e 65 72 20 7a | 0;punkt.abhaengig.von.schoener.z |
| f4c0 | 61 68 6c 3b 20 72 65 69 74 65 29 3b 2e 29 3b 28 2a 20 6e 6f 63 68 ff ff ff ff ff ff ff ff ff ff | ahl;.reite);.);(*.noch.......... |
| f4e0 | 4e 00 20 20 7a 69 65 68 65 20 73 65 6e 6b 72 65 63 68 74 6c 69 6e 69 65 3b 2e 61 63 68 73 65 3b | N...ziehe.senkrechtlinie;.achse; |
| f500 | 6f 65 6e 65 72 20 7a 61 68 6c 3a 20 65 72 20 7a 61 68 6c 3b 20 72 65 69 74 65 29 3b 2e 29 3b 28 | oener.zahl:.er.zahl;.reite);.);( |
| f520 | 2a 20 6e 6f 63 68 65 68 6e 2a 29 2a 29 ff ff ff 4e 00 20 20 7a 69 65 68 65 20 73 65 6e 6b 72 65 | *.nochehn*)*)...N...ziehe.senkre |
| f540 | 63 68 74 6c 69 6e 69 65 3b 20 2e 68 72 69 74 74 77 65 69 74 65 20 2a 20 72 65 61 6c 20 28 61 6e | chtlinie;..hrittweite.*.real.(an |
| f560 | 7a 61 68 6c 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff ff ff ff ff ff ff | zahl.achsenabschnitte);......... |
| f580 | 4e 00 20 20 20 20 20 20 75 6e 64 20 64 61 6d 69 74 20 61 75 63 68 20 64 69 65 20 50 72 6f 7a 65 | N.......und.damit.auch.die.Proze |
| f5a0 | 64 75 72 20 76 65 72 6c 61 73 73 65 6e 2e 20 76 6f 6e 20 69 20 6c 74 2e 20 72 20 77 69 72 64 20 | dur.verlassen..von.i.lt..r.wird. |
| f5c0 | 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 ff ff 2e 00 20 20 20 20 20 20 7a 65 69 67 65 61 62 62 | das.Refinement..........zeigeabb |
| f5e0 | 72 75 63 68 6d 65 6e 75 65 20 67 6c 69 63 68 20 73 67 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff | ruchmenue.glich.sgkurve);....... |
| f600 | 4e 00 20 20 6c 73 67 6b 75 72 76 65 20 3a 3d 20 4c 4f 45 53 55 4e 47 53 41 42 53 43 48 4e 49 54 | N...lsgkurve.:=.LOESUNGSABSCHNIT |
| f620 | 54 20 6c 73 67 3b 20 7a 75 20 77 65 6e 69 67 20 61 72 67 75 6d 65 6e 74 65 72 20 77 69 72 64 20 | T.lsg;.zu.wenig.argumenter.wird. |
| f640 | 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 ff ff 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | das.Refinement..N.....ELIF.taste |
| f660 | 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 20 72 73 74 3b 74 65 20 3d 20 7a 65 69 67 65 74 61 62 | .=.sendetaste..rst;te.=.zeigetab |
| f680 | 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | .COR.taste.=.abbruchtaste.COR... |
| f6a0 | 3e 00 20 20 20 20 20 20 54 48 45 4e 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 | >.......THEN...leavedarstellung4 |
| f6c0 | 20 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 20 3e 3d 20 31 2e 30 20 2e ff ff ff ff ff ff | ..var.aktivitaet).>=.1.0........ |
| f6e0 | 4e 00 20 20 20 20 20 20 45 4c 53 45 20 46 41 4c 53 45 74 61 73 74 65 29 3b 61 73 74 65 20 43 4f | N.......ELSE.FALSEtaste);aste.CO |
| f700 | 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 20 61 73 74 65 20 3d 20 61 62 62 | R.taste.=.weitertaste.aste.=.abb |
| f720 | 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 49 46 20 | ruchtaste.COR...N............IF. |
| f740 | 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d | taste.=.abbruchtaste.COR.taste.= |
| f760 | 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 74 65 75 65 72 7a 65 69 6c 65 2c | .modellgroessentaste.teuerzeile, |
| f780 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 | N.............leavezeigemenuezur |
| f7a0 | 7a 75 73 61 74 7a 64 61 72 73 74 20 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e | zusatzdarst.menuezurzusatzdarst. |
| f7c0 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 2e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 | tellungsname,.......fuellemenue. |
| f7e0 | 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | (menuezeile.(1));............... |
| f800 | 4e 00 20 20 49 4e 54 20 56 41 52 20 69 2c 20 73 2c 72 65 75 7a 3b 67 72 75 6e 64 20 6c 69 6e 69 | N...INT.VAR.i,.s,reuz;grund.lini |
| f820 | 65 6e 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 29 3b 20 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 | en:=.nilpicture;);..xmax,.ymin,. |
| f840 | 79 6d 61 78 29 3a 20 3f 3f 2a 29 ff ff ff ff ff 4e 00 20 20 7a 65 69 63 68 6e 65 78 61 63 68 73 | ymax):.??*).....N...zeichnexachs |
| f860 | 65 3b 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 | e;.achsenabschnitte.:=.int.(ymax |
| f880 | 29 3b 20 65 69 6c 65 29 3b 2e 74 65 72 20 72 65 63 68 74 73 2c 20 ff ff ff ff ff ff ff ff ff ff | );.eile);.ter.rechts,........... |
| f8a0 | 3e 00 7a 65 69 63 68 6e 65 20 68 69 6e 74 65 72 67 72 75 6e 64 73 74 72 69 63 68 65 3a 20 79 61 | >.zeichne.hintergrundstriche:.ya |
| f8c0 | 63 68 73 65 3b 6c 20 79 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 | chse;l.yachsenabschnitte.-.1.REP |
| f8e0 | 4e 00 20 20 63 61 20 6d 69 74 74 65 20 3a 3d 20 73 63 68 6f 65 6e 65 7a 61 68 6c 20 28 32 29 3b | N...ca.mitte.:=.schoenezahl.(2); |
| f900 | 78 6d 61 78 20 2d 20 78 6d 69 6e 29 2c 20 73 63 68 6f 65 6e 65 7a 61 68 6c 29 3b 74 74 77 65 69 | xmax.-.xmin),.schoenezahl);ttwei |
| f920 | 74 65 29 3b 65 29 3b 74 65 6e 21 2a 29 ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 68 69 6e 74 65 72 | te);e);ten!*)...N...move.(hinter |
| f940 | 67 72 75 6e 64 6c 69 6e 69 65 6e 2c 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 20 20 20 20 20 | grundlinien,.stelle,.ymin);..... |
| f960 | 70 75 74 20 28 22 73 74 65 6c 6c 65 3a 20 22 2b 20 65 29 3b 65 29 3a ff ff ff ff ff ff ff ff ff | put.("stelle:."+.e);e):......... |
| f980 | 4e 00 52 45 41 4c 20 56 41 52 20 20 64 2c 20 7a 2c 20 66 75 65 6e 66 20 6d 61 6c 20 64 3b 7a 65 | N.REAL.VAR..d,.z,.fuenf.mal.d;ze |
| f9a0 | 64 75 72 20 76 65 72 6c 61 73 73 65 6e 2e 20 74 65 6e 20 54 72 65 66 66 65 72 20 77 69 72 64 20 | dur.verlassen..ten.Treffer.wird. |
| f9c0 | 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 ff ff 3e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 | das.Refinement..>.........ELIF.t |
| f9e0 | 61 73 74 65 20 3c 3e 20 6d 65 6e 75 65 74 61 73 74 65 20 61 73 74 65 20 2c 20 46 41 4c 53 45 20 | aste.<>.menuetaste.aste.,.FALSE. |
| fa00 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 54 48 45 4e 20 20 | );..............N.........THEN.. |
| fa20 | 6f 75 74 20 28 70 69 65 70 29 3b 65 6c 6c 75 6e 67 34 20 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f | out.(piep);ellung4.OR.taste.=.mo |
| fa40 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | dellgroessentaste.chtaste.COR... |
| fa60 | 4e 00 20 20 20 20 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 | N.........IF.taste.=.abbruchtast |
| fa80 | 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 | e.COR.taste.=.modellgroessentast |
| faa0 | 65 20 75 6e 67 73 6e 61 6d 65 2c 20 ff ff ff ff 3e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b | e.ungsname,.....>...gibmenueaus; |
| fac0 | 75 65 6d 65 6c 64 75 6e 67 3b 74 7a 64 61 72 73 74 3a 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | uemeldung;tzdarst:taste.=.modell |
| fae0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 4e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f | groessentaste...N.dialogfuerdemo |
| fb00 | 3a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | :;.............................. |
| fb20 | 20 20 20 28 2a 20 31 20 45 72 67 61 65 6e 7a 75 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff | ...(*.1.Ergaenzungsvariable.*).. |
| fb40 | 4e 00 20 20 20 20 20 20 45 4c 53 45 20 46 41 4c 53 45 22 2c 20 71 75 69 65 74 29 3b 20 4c 45 41 | N.......ELSE.FALSE",.quiet);.LEA |
| fb60 | 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 29 3b 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 | VE.darstellung4.);OR.taste.=.abb |
| fb80 | 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff 4e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 | ruchtaste.COR...N.....kernvonzei |
| fba0 | 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 61 72 73 74 20 7a 62 65 7a 65 | gemenuezurzusatzdarst.arst.zbeze |
| fbc0 | 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | ichnung,.kopfzeile,.steuerzeile, |
| fbe0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 72 65 65 6e 74 65 72 7a 65 69 67 65 | N..............ELSE.reenterzeige |
| fc00 | 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 68 65 74 61 73 74 65 29 29 20 65 69 | menuezurzusatzdarst.hetaste)).ei |
| fc20 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 4e 00 20 20 20 20 20 20 20 54 48 45 4e 20 7a 65 | le,.steuerzeile,N........THEN.ze |
| fc40 | 69 67 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 | igemenuemeldung.(meldungstext.(f |
| fc60 | 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 74 2e 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff | alschetaste)).t..=.abbruchtaste. |
| fc80 | 3e 00 20 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 20 70 6b 74 20 3a 3d 20 31 30 2e 30 20 2a 2a 20 | >...letzter.skal.pkt.:=.10.0.**. |
| fca0 | 69 3b 73 65 3b 73 20 2a 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 20 70 6b 74 29 29 3b ff ff ff ff | i;se;s.*.letzter.skal.pkt));.... |
| fcc0 | 4e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 78 20 61 63 68 73 65 3b 20 2e 65 3b 20 63 68 72 69 | N...beschrifte.x.achse;..e;.chri |
| fce0 | 74 74 65 6e 20 52 45 50 20 69 66 74 65 20 78 20 61 63 68 73 65 20 22 29 3b 70 61 75 73 65 3b 2e | tten.REP.ifte.x.achse.");pause;. |
| fd00 | 65 29 3b 20 69 73 74 20 7a 65 68 6e 2a 29 ff ff 4e 00 20 20 7a 61 68 6c 65 6e 20 28 78 6d 69 6e | e);.ist.zehn*)..N...zahlen.(xmin |
| fd20 | 2c 20 78 6d 69 6e 20 2b 20 30 2e 39 20 2a 20 28 78 6d 61 78 20 2d 20 78 6d 69 6e 29 2c 20 73 63 | ,.xmin.+.0.9.*.(xmax.-.xmin),.sc |
| fd40 | 68 6f 65 6e 65 7a 61 68 6c 29 3b 74 74 77 65 69 74 65 29 3b 65 29 3b 20 2e 6e 21 2a 29 ff ff ff | hoenezahl);ttweite);e);..n!*)... |
| fd60 | 2e 00 20 20 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c | .....zeigedarst4.(dst,.indemo,.l |
| fd80 | 73 67 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff 4e 00 20 20 20 20 49 46 20 20 66 75 65 6e 66 20 | sgkurve);.......N.....IF..fuenf. |
| fda0 | 6d 61 6c 20 64 20 20 3c 3d 20 6c 61 65 6e 67 65 20 20 54 48 45 4e 20 66 75 65 6e 66 20 6d 61 6c | mal.d..<=.laenge..THEN.fuenf.mal |
| fdc0 | 20 64 20 45 4c 53 45 20 7a 67 65 73 65 74 7a 74 21 20 2a 29 6e 20 22 6c 61 65 6e 67 65 22 ff ff | .d.ELSE.zgesetzt!.*)n."laenge".. |
| fde0 | 3e 00 20 20 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 | >....(maximalwerte.(lsgkurve).SU |
| fe00 | 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 20 3e 3d 20 31 2e 30 20 ff ff ff ff ff ff ff | B.var.aktivitaet).>=.1.0........ |
| fe20 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 20 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c | N.............REP.dst,.indemo,.l |
| fe40 | 73 67 6b 75 72 76 65 29 3b 4c 20 56 41 52 20 69 6e 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20 | sgkurve);L.VAR.indemo,.TEXT.VAR. |
| fe60 | 74 61 73 74 65 29 3a 7a 65 69 6c 65 2c ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | taste):zeile,...N............... |
| fe80 | 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 46 49 20 3b 20 6d 6f 64 65 6c 6c | .kernvondarstellung4.FI.;.modell |
| fea0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 52 20 74 61 73 74 65 29 3a 7a 65 69 6c 65 2c ff ff ff | groessentaste.R.taste):zeile,... |
| fec0 | 4e 00 20 20 20 20 20 76 6f 72 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 32 20 2b 20 63 6f 64 | N......vorzeitig.beendet.2.+.cod |
| fee0 | 65 20 28 33 34 29 20 2b 20 22 29 3b 22 20 29 3b 72 20 70 75 6e 6b 74 20 7a 75 20 6b 6c 65 69 6e | e.(34).+.");".);r.punkt.zu.klein |
| ff00 | 20 3b 20 54 52 55 45 74 65 20 43 4f 52 20 ff ff 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d | .;.TRUEte.COR...N.....IF.taste.= |
| ff20 | 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 | .abbruchtaste.COR.taste.=.weiter |
| ff40 | 74 61 73 74 65 20 68 6e 75 6e 67 2c 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | taste.hnung,.abbruchtaste.COR... |
| ff60 | 3e 00 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 73 74 | >...........darstellungsname,.st |
| ff80 | 65 75 65 72 7a 65 69 6c 65 29 3b 73 61 74 7a 20 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 20 ff ff | euerzeile);satz.bezeichnung,.... |
| ffa0 | 3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6e 75 65 7a 75 64 61 72 73 74 65 6c 6c 75 6e | >...........THEN.nuezudarstellun |
| ffc0 | 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b ff ff ff ff ff ff ff ff | gsarten.(taste,.FALSE.);........ |
| ffe0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20 28 31 32 29 3b | N............gibmeldungaus.(12); |
| 10000 | 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 2e 6e 67 2c 73 | .LEAVE.kernvondarstellung4;.ng,s |
| 10020 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 65 ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 | tellungsname,.e.>.............re |
| 10040 | 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 78 74 20 28 66 61 6c 73 63 | enterzeigeabbruchmenue.xt.(falsc |
| 10060 | 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 4e 00 50 52 4f 43 20 6b 72 65 75 7a 65 72 7a 65 | he.taste))......N.PROC.kreuzerze |
| 10080 | 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 4f 55 54 50 55 54 20 56 41 52 20 7a 75 73 61 | ugenundzeichnen.(OUTPUT.VAR.zusa |
| 100a0 | 74 7a 73 65 69 74 65 2c 64 61 72 64 62 72 65 69 74 65 29 3b 29 3a 20 3f 3f 2a 29 ff ff ff ff ff | tzseite,dardbreite);):.??*)..... |
| 100c0 | 3e 00 20 20 49 4e 54 20 56 41 52 20 69 2c 20 73 2c 69 63 74 75 72 65 3b 3b 68 20 72 65 63 68 74 | >...INT.VAR.i,.s,icture;;h.recht |
| 100e0 | 73 3b 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff | s;tte.:=.int.(ymax);............ |
| 10100 | 4e 00 20 20 20 20 64 20 20 20 20 20 20 20 20 3a 3d 20 31 30 2e 30 2a 2a 69 3b 20 50 72 6f 7a 65 | N.....d........:=.10.0**i;.Proze |
| 10120 | 64 75 72 20 76 65 72 6c 61 73 73 65 6e 2e 20 74 65 6e 20 54 72 65 66 66 65 72 20 77 69 72 64 20 | dur.verlassen..ten.Treffer.wird. |
| 10140 | 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 ff ff 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | das.Refinement..N.....ELIF.taste |
| 10160 | 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 73 74 65 20 73 74 65 20 3d 20 6d 6f | .=.mdlgroesseneinbl.ste.ste.=.mo |
| 10180 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 75 6e 67 73 6e 61 6d 65 2c 20 ff ff ff ff | dellgroessentaste.ungsname,..... |
| 101a0 | 4e 00 20 20 6c 65 73 65 20 65 72 73 74 65 6e 20 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 | N...lese.ersten.(lsg.kurve,.zeit |
| 101c0 | 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b 20 20 20 20 28 2a 20 31 20 45 72 67 61 65 6e 7a 75 | ,.akt.zustand);....(*.1.Ergaenzu |
| 101e0 | 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff 4e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 | ngsvariable.*)..N.END.PROC.darst |
| 10200 | 65 6c 6c 75 6e 67 34 3b 3b 6e 3a 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | ellung4;;n:sarten.(taste,.FALSE. |
| 10220 | 29 3b 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | );OR.taste.=.abbruchtaste.COR... |
| 10240 | 4e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 | N.kernvonzeigemenuezurzusatzdars |
| 10260 | 74 3a 74 65 6e 3b 61 72 73 74 20 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 74 61 73 74 65 20 73 74 | t:ten;arst..lsg,.taste);taste.st |
| 10280 | 65 20 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 46 49 20 | e.name,.........N............FI. |
| 102a0 | 3b 3d 20 73 65 6e 64 65 74 61 73 74 65 20 67 20 28 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 | ;=.sendetaste.g.(meldungstext.(f |
| 102c0 | 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 2c 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 65 ff | alschetaste)).,stellungsname,.e. |
| 102e0 | 4e 00 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 3b 20 20 20 20 20 20 20 2e 7a 64 61 72 73 74 3a | N.....zeigemenue;........zdarst: |
| 10300 | 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e | .LEAVE.zeigemenuezurzusatzdarst. |
| 10320 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 3e 00 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f | tellungsname,...>...LEAVE.kernvo |
| 10340 | 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 28 66 61 6c 73 63 | nzeigemenuezurzusatzdarst.(falsc |
| 10360 | 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 3e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 | he.taste))......>...drawcmr.(kre |
| 10380 | 75 7a 2c 20 2d 30 2e 37 20 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 2e | uz,.-0.7.*standardbreite,.0.0);. |
| 103a0 | 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 4e 00 20 20 28 2a 20 44 69 65 73 65 73 20 52 65 | schnitte.-.1.REPN...(*.Dieses.Re |
| 103c0 | 66 69 6e 65 6d 65 6e 74 20 6c 69 65 66 65 72 74 20 64 69 65 20 67 72 da fb 74 65 20 5a 65 68 6e | finement.liefert.die.gr..te.Zehn |
| 103e0 | 65 72 70 6f 74 65 6e 7a 2c 20 64 69 65 20 6b 6c 65 69 6e 65 72 20 6f 64 65 72 65 20 69 ff ff ff | erpotenz,.die.kleiner.odere.i... |
| 10400 | 3e 00 20 20 20 20 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 73 63 68 72 69 74 74 2c 20 79 6d | >.......move.(kreuz,.schritt,.ym |
| 10420 | 69 6e 29 3b 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b 6e 75 6e 67 2c ff | in);ukt1fenster,."darst");nung,. |
| 10440 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 64 73 74 2c 20 | N.............zeigedarst4.(dst,. |
| 10460 | 69 6e 64 65 6d 6f 2c 20 6c 73 67 6b 75 72 76 65 29 3b 20 61 75 66 20 30 20 67 65 73 65 74 7a 74 | indemo,.lsgkurve);.auf.0.gesetzt |
| 10480 | 21 20 2a 29 75 65 72 7a 65 69 6c 65 2c ff ff ff 3e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 | !.*)uerzeile,...>.........leaved |
| 104a0 | 61 72 73 74 65 6c 6c 75 6e 67 34 20 34 20 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 | arstellung4.4.ten.(taste,.FALSE. |
| 104c0 | 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61 | );..............N.....inchar.(ta |
| 104e0 | 73 74 65 29 3b 65 6e 75 65 3b 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c | ste);enue;neinblenden.(dst,.lsg, |
| 10500 | 20 74 61 73 74 65 29 3b 72 6f 65 73 73 65 6e 74 61 73 74 65 20 65 2c 20 ff ff ff ff ff ff ff ff | .taste);roessentaste.e,......... |
| 10520 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 73 6b 29 20 3b 75 73 20 28 31 32 29 3b | N............plottask).;us.(12); |
| 10540 | 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 2e 29 20 2c 65 | .LEAVE.kernvondarstellung4;.).,e |
| 10560 | 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 3e 00 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 | .=.abbruchtaste.>......ELIF.tast |
| 10580 | 65 20 3d 20 72 75 62 6f 75 74 20 6c 65 20 28 31 29 29 3b 3b 65 72 7a 65 69 6c 65 29 3b 20 28 66 | e.=.rubout.le.(1));;erzeile);.(f |
| 105a0 | 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 ff ff 3e 00 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 | alschetaste))...>.....zeigemenue |
| 105c0 | 3b 20 20 20 20 20 20 20 2e 6d 65 6e 75 65 20 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 | ;........menue.ldungstext.(falsc |
| 105e0 | 68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 3e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | he.taste))......>...move.(kreuz, |
| 10600 | 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 65 6c 6c 65 2c 20 79 6d 61 78 29 3b 29 2c 20 73 63 | .stelle,.ymin);elle,.ymax);),.sc |
| 10620 | 68 6f 65 6e 65 7a 61 68 6c 29 3b ff ff ff ff ff 4e 00 20 20 20 20 54 48 45 4e 20 20 7a 65 69 67 | hoenezahl);.....N.....THEN..zeig |
| 10640 | 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 20 6c 73 67 6b 75 72 76 65 29 3b 6c 73 67 2c 20 74 61 | eabbruchmenue..lsgkurve);lsg,.ta |
| 10660 | 73 74 65 29 3b 72 6f 65 73 73 65 6e 74 61 73 74 65 20 65 6e 20 3c 31 20 ff ff ff ff ff ff ff ff | ste);roessentaste.en.<1......... |
| 10680 | 4e 00 20 20 20 20 20 20 54 48 45 4e 20 76 6f 72 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 31 | N.......THEN.vorzeitig.beendet.1 |
| 106a0 | 3a 3d 20 66 65 68 6c 65 72 6d 65 6c 64 75 6e 67 20 61 6e 66 61 6e 67 20 3b 20 30 4c 53 45 75 6e | :=.fehlermeldung.anfang.;.0LSEun |
| 106c0 | 67 2c 65 6e 20 3c 31 20 6d 65 2c 20 ff ff ff ff 4e 00 20 20 20 20 20 20 54 48 45 4e 20 20 20 6c | g,en.<1.me,.....N.......THEN...l |
| 106e0 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 34 20 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 | eavedarstellung4.4..zeigezusatz. |
| 10700 | 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | bezeichnung,.abbruchtaste.COR... |
| 10720 | 3e 00 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a | >.leavezeigemenuezurzusatzdarst: |
| 10740 | 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e | .LEAVE.zeigemenuezurzusatzdarst. |
| 10760 | 4e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 | N.reenterzeigemenuezurzusatzdars |
| 10780 | 74 3a 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 | t:.LEAVE.kernvonzeigemenuezurzus |
| 107a0 | 61 74 7a 64 61 72 73 74 2e 61 6d 65 2c 20 ff ff 3e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 | atzdarst.ame,...>.....kernvonzei |
| 107c0 | 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | geabbruchmenue.OR.taste.=.modell |
| 107e0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff 4e 00 73 70 65 69 63 68 65 72 65 20 61 6e 66 61 | groessentaste...N.speichere.anfa |
| 10800 | 6e 67 73 77 65 72 74 65 3a 20 75 6e 74 65 6e 20 50 45 52 20 3b 20 20 20 20 20 20 20 20 20 20 20 | ngswerte:.unten.PER.;........... |
| 10820 | 20 23 2e 65 74 3b 31 20 45 72 67 61 65 6e 7a 75 6e 67 73 76 61 72 69 61 62 6c 65 20 2a 29 20 ff | .#.et;1.Ergaenzungsvariable.*).. |
| 10840 | 4e 00 20 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e 6b 74 20 3a 3d 20 7a 65 69 74 3b 2e 74 61 | N...erster.zeitpunkt.:=.zeit;.ta |
| 10860 | 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 3b 62 20 48 77 7a 20 53 69 6e 6e | nd.SUB.var.aktivitaet;b.Hwz.Sinn |
| 10880 | 20 65 72 67 69 62 74 3f 20 2a 29 ff ff ff ff ff 4e 00 74 72 61 67 65 20 66 6f 6c 67 65 70 75 6e | .ergibt?.*).....N.trage.folgepun |
| 108a0 | 6b 74 20 65 69 6e 20 3a 20 20 20 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 2c 20 7a 65 69 | kt.ein.:....move.(.funktion,.zei |
| 108c0 | 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 2e 6e 6b 74 29 2e 6e 20 52 45 50 20 69 6e 6e ff ff ff | t.,.ywert.).;..nkt).n.REP.inn... |
| 108e0 | 3e 00 20 20 20 20 20 7a 65 69 74 77 65 72 74 20 61 6d 20 6b 75 72 76 65 6e 65 6e 64 65 20 3a 3d | >......zeitwert.am.kurvenende.:= |
| 10900 | 20 7a 65 69 74 3b 29 3b 20 2e 20 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 3b 65 74 3b ff ff | .zeit;);....var.aktivitaet;et;.. |
| 10920 | 4e 00 20 20 46 4f 52 20 73 20 46 52 4f 4d 20 32 20 55 50 54 4f 20 31 30 20 52 45 50 20 32 29 3b | N...FOR.s.FROM.2.UPTO.10.REP.2); |
| 10940 | 72 65 61 6c 20 28 73 29 20 2a 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 20 70 6b 74 29 3b 45 50 20 | real.(s).*.letzter.skal.pkt);EP. |
| 10960 | 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 ff ff ff 3e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 | ymin,.ymax):....>...drawcmr.(kre |
| 10980 | 75 7a 2c 20 2d 30 2e 37 20 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 2e | uz,.-0.7.*standardbreite,.0.0);. |
| 109a0 | 69 74 65 29 3b 74 65 20 2d 20 31 20 52 45 50 ff 2e 00 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3a | ite);te.-.1.REP...zeichnexachse: |
| 109c0 | 2e 3b 31 29 3b 74 72 69 63 68 20 72 65 63 68 74 73 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | .;1);trich.rechts;.............. |
| 109e0 | 3e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 3b 69 6c 6f 75 74 70 75 74 20 | >...KURVE.VAR.lsgkurve;iloutput. |
| 10a00 | 28 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff | (strukt1fenster,."darst");...... |
| 10a20 | 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 67 34 | N.....ELIF.taste.=.sendetaste.g4 |
| 10a40 | 20 62 6c 20 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 73 73 65 6e 74 61 73 74 | .bl.n.(dst,.lsg,.taste);ssentast |
| 10a60 | 65 20 69 63 68 74 ff ff ff ff ff ff ff ff ff ff 4e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 | e.icht..........N.leavedarstellu |
| 10a80 | 6e 67 34 3a 20 66 6f 72 67 65 74 20 28 22 64 61 72 73 74 22 2c 20 71 75 69 65 74 29 3b 20 4c 45 | ng4:.forget.("darst",.quiet);.LE |
| 10aa0 | 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | AVE.darstellung4.uchtaste.COR... |
| 10ac0 | 4e 00 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 61 73 74 | N.....THEN.leavedarstellung4.ast |
| 10ae0 | 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 72 73 | e.=.zeigezusatz.groessentaste.rs |
| 10b00 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 | tellungsname,...N............mod |
| 10b20 | 65 6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c | ellgroesseneinblenden.(dst,.lsg, |
| 10b40 | 20 74 61 73 74 65 29 3b 72 6f 65 73 73 65 6e 74 61 73 74 65 20 74 65 75 65 72 7a 65 69 6c 65 2c | .taste);roessentaste.teuerzeile, |
| 10b60 | 3e 00 20 20 49 46 20 4e 4f 54 20 28 66 6c 6f 6f 72 20 28 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 | >...IF.NOT.(floor.(fenster.oben) |
| 10b80 | 20 3d 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | .=.fenster.oben)................ |
| 10ba0 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 79 6d 69 6e 29 3b 20 2e 20 | N...move.(kreuz,.xmin,.ymin);... |
| 10bc0 | 20 20 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 | ...REAL.CONST.xmin,.xmax,.ymin,. |
| 10be0 | 79 6d 61 78 29 3a 20 ff ff ff ff ff ff ff ff ff 4e 00 20 20 70 65 6e 20 28 68 69 6e 74 65 72 67 | ymax):..........N...pen.(hinterg |
| 10c00 | 72 75 6e 64 6c 69 6e 69 65 6e 20 2c 20 32 29 3b 63 68 73 65 3b 2e 6e 20 28 52 45 41 4c 20 43 4f | rundlinien.,.2);chse;.n.(REAL.CO |
| 10c20 | 4e 53 54 20 78 6d 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 ff ff ff | NST.xmin,.xmax,.ymin,.ymax):.... |
| 10c40 | 2e 00 20 20 6c 69 65 66 65 72 65 6b 72 65 75 7a 2e 75 73 73 73 74 72 69 63 68 20 72 65 63 68 74 | ....lieferekreuz.ussstrich.recht |
| 10c60 | 73 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 50 45 | s;..............N.............PE |
| 10c80 | 52 20 3b 65 6c 6c 75 6e 67 34 20 67 66 75 65 72 64 65 6d 6f 20 46 49 20 3b 20 6d 6f 64 65 6c 6c | R.;ellung4.gfuerdemo.FI.;.modell |
| 10ca0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 52 20 74 61 73 74 65 29 3a 7a 65 69 6c 65 2c ff ff ff | groessentaste.R.taste):zeile,... |
| 10cc0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d | N................darstellungsnam |
| 10ce0 | 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e | e,.steuerzeile);llkurzbezeichnun |
| 10d00 | 67 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 6e 69 63 68 74 20 61 75 66 | g,..............N......nicht.auf |
| 10d20 | 74 72 65 74 65 6e 2c 20 70 72 61 6b 74 2e 20 75 2e 55 2e 20 77 65 67 65 6e 20 75 6e 67 65 6e 61 | treten,.prakt..u.U..wegen.ungena |
| 10d40 | 75 65 72 20 42 65 72 65 63 68 2e 20 64 6f 63 68 20 2a 29 6e 20 3c 31 20 ff ff ff ff ff ff ff ff | uer.Berech..doch.*)n.<1......... |
| 10d60 | 3e 00 20 20 70 6c 6f 74 74 65 20 20 20 67 65 72 61 64 65 3b 61 75 73 73 63 68 6e 69 74 74 3b 72 | >...plotte...gerade;ausschnitt;r |
| 10d80 | 73 74 3b 20 20 20 70 75 74 28 22 6e 61 63 68 20 34 2e 20 22 29 3b 70 61 75 73 65 3b 20 ff ff ff | st;...put("nach.4..");pause;.... |
| 10da0 | 2e 00 20 20 6e 69 6c 64 69 61 67 72 61 6d 6d 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 | ....nildiagramm.(seite,.strukt1f |
| 10dc0 | 65 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 79 6d 69 | enster);........N............ymi |
| 10de0 | 6e 20 3a 3d 20 6d 61 78 20 28 79 6d 69 6e 2c 20 31 2e 30 29 3b 20 20 20 2e 20 20 20 20 20 20 20 | n.:=.max.(ymin,.1.0);........... |
| 10e00 | 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 79 6d 69 6e 20 3e 3d 20 31 20 69 73 74 2a 29 ff ff ff | ...........(*.ymin.>=.1.ist*)... |
| 10e20 | 3e 00 20 20 49 46 20 4e 4f 54 20 28 66 6c 6f 6f 72 20 28 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 | >...IF.NOT.(floor.(fenster.oben) |
| 10e40 | 20 3d 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | .=.fenster.oben)................ |
| 10e60 | 4e 00 20 20 20 20 20 54 48 45 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N......THEN..................... |
| 10e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 62 65 67 72 65 6e 7a 74 65 73 20 46 65 | ................(*.begrenztes.Fe |
| 10ea0 | 6e 73 74 65 72 20 2a 29 20 5a 2e 2a 29 ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 79 77 65 | nster.*).Z.*)...>............ywe |
| 10ec0 | 72 74 20 20 20 20 20 20 20 20 20 20 20 20 3a 3d 20 30 2e 30 2c 20 2d 2a 29 20 6b 75 72 76 65 6e | rt............:=.0.0,.-*).kurven |
| 10ee0 | 65 6e 64 65 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 73 65 | ende;...........N...putkreuz.(se |
| 10f00 | 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 74 65 | ite,.strukt1fenster,.legende);te |
| 10f20 | 6e 2c 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 29 3b 29 6e 64 65 29 2b ff ff ff ff ff ff ff ff ff | n,.fenster.oben);)nde)+......... |
| 10f40 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 64 65 73 74 65 6e 73 20 22 63 61 20 73 63 | N..............mindestens."ca.sc |
| 10f60 | 68 72 69 74 74 65 22 20 75 6e 64 20 68 da 63 68 73 74 65 6e 73 20 32 2a 22 63 61 20 73 63 68 72 | hritte".und.h.chstens.2*"ca.schr |
| 10f80 | 69 74 74 65 22 68 65 6e 64 20 76 6f 6e ff ff ff 4e 00 7a 61 68 6c 20 65 72 6d 69 74 74 65 6c 6e | itte"hend.von...N.zahl.ermitteln |
| 10fa0 | 3a 20 32 2e 30 20 2d 20 6c 6f 67 31 30 28 31 30 65 2b 31 32 2e 30 29 20 2d 2d 2d 2d 3e 20 31 2e | :.2.0.-.log10(10e+12.0).---->.1. |
| 10fc0 | 30 30 30 30 30 30 65 2d 31 31 20 2a 29 67 65 22 20 61 62 7a 75 72 75 6e 64 65 6e 2c 20 64 61 ff | 000000e-11.*)ge".abzurunden,.da. |
| 10fe0 | 4e 00 20 20 20 20 54 48 45 4e 20 20 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 65 72 | N.....THEN..zeigeabbruchmenue.er |
| 11000 | 64 65 6d 6f 20 46 49 20 3b 28 2a 20 44 69 65 20 69 20 6c 65 74 7a 74 65 6e 20 7a 69 66 66 65 72 | demo.FI.;(*.Die.i.letzten.ziffer |
| 11020 | 6e 20 76 6f 6e 20 22 6c 61 65 6e 67 65 22 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 67 69 62 | n.von."laenge"..N............gib |
| 11040 | 6d 65 6c 64 75 6e 67 61 75 73 20 28 31 32 29 3b 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | meldungaus.(12);R.taste.=.modell |
| 11060 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 52 20 74 61 73 74 65 29 3a ff ff ff ff ff ff ff ff ff | groessentaste.R.taste):......... |
| 11080 | 4e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 | N...gibmenueaus;.=.mdlgroessenei |
| 110a0 | 6e 62 6c 20 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 72 6f 65 73 73 65 6e 74 | nbl.n.(dst,.lsg,.taste);roessent |
| 110c0 | 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54 | aste............N..............T |
| 110e0 | 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 75 72 7a 75 73 61 74 7a 64 61 | HEN.leavedarstellung4.urzusatzda |
| 11100 | 72 73 74 20 68 65 74 61 73 74 65 29 29 20 2c 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | rst.hetaste)).,ile,.steuerzeile, |
| 11120 | 4e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 | N.....fuellemenue.(menuezeile.(1 |
| 11140 | 30 29 29 3b 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e | 0));lkurzbezeichnung,.darstellun |
| 11160 | 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 | gsname,.........>.kernvonzeigeab |
| 11180 | 62 72 75 63 68 6d 65 6e 75 65 3a 34 20 67 73 61 72 74 74 61 73 74 65 20 28 74 61 73 74 65 2c 20 | bruchmenue:4.gsarttaste.(taste,. |
| 111a0 | 46 41 4c 53 45 20 29 3b 74 61 73 74 65 20 ff ff 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | FALSE.);taste...N.....ELIF.taste |
| 111c0 | 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | .=.darstellungsarttaste.=.modell |
| 111e0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff | groessentaste.te.=.abbruchtaste. |
| 11200 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 | >..............leavedarstellung4 |
| 11220 | 72 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff | r.COR.taste.=.zeigezeitd........ |
| 11240 | 2e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 | ............THEN.ste.=.zeigezusa |
| 11260 | 74 7a 20 6e 75 65 20 ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 54 48 45 4e 20 6c 6f 65 | tz.nue..........N.......THEN.loe |
| 11280 | 73 63 68 65 6d 65 6e 75 65 3b 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 | schemenue;hirmaus.(dst,.modellku |
| 112a0 | 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | rzbezeichnung,rstellungsname,... |
| 112c0 | 3e 00 20 20 20 20 20 20 54 48 45 4e 20 7a 65 69 67 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 | >.......THEN.zeigemenuemeldung.( |
| 112e0 | 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 ff ff | meldungstext.(falsche.taste))... |
| 11300 | 4e 00 7a 77 65 69 74 65 72 20 70 75 6e 6b 74 20 6b 6c 65 69 6e 65 72 20 67 6c 65 69 63 68 20 65 | N.zweiter.punkt.kleiner.gleich.e |
| 11320 | 69 6e 73 3a 20 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 20 69 63 68 74 20 73 69 6e 6e 76 | ins:.te.=.weitertaste.icht.sinnv |
| 11340 | 6f 6c 6c 20 2a 29 73 74 65 20 43 4f 52 20 ff ff 4e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 | oll.*)ste.COR...N.....fuellemenu |
| 11360 | 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 29 3b 6c 6b 75 72 7a 62 65 7a 65 69 63 68 | e.(menuezeile.(16));lkurzbezeich |
| 11380 | 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff | nung,.darstellungsname,......... |
| 113a0 | 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f | N.....IF.taste.=.abbruchtaste.CO |
| 113c0 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 74 65 | R.taste.=.modellgroessentaste.te |
| 113e0 | 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 46 49 20 | .=.abbruchtaste.N............FI. |
| 11400 | 20 3d 20 72 75 62 6f 75 74 20 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 | .=.rubout.hirmaus.(dst,.modellku |
| 11420 | 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | rzbezeichnung,rstellungsname,... |
| 11440 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 | >............reenterzeigeabbruch |
| 11460 | 6d 65 6e 75 65 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff ff | menue.,.modellkurzbezeichnung,.. |
| 11480 | 3e 00 20 20 74 65 73 74 65 20 77 65 72 74 65 3b 6c 6f 67 20 31 30 20 28 61 6b 74 20 7a 75 73 74 | >...teste.werte;log.10.(akt.zust |
| 114a0 | 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b ff ff ff ff ff ff ff ff | and.SUB.var.aktivitaet);........ |
| 114c0 | 3e 00 20 20 20 20 20 20 20 54 48 45 4e 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 | >........THEN.draw.(.funktion.,. |
| 114e0 | 7a 65 69 74 20 20 2c 20 79 77 65 72 74 29 3b 6e 6b 74 29 29 20 74 69 76 69 74 61 65 74 3b ff ff | zeit..,.ywert);nkt)).tivitaet;.. |
| 11500 | 2e 00 20 20 49 46 20 4e 4f 54 20 65 6e 64 65 20 64 65 72 20 6c 6f 65 73 75 6e 67 20 28 6c 73 67 | ....IF.NOT.ende.der.loesung.(lsg |
| 11520 | 20 6b 75 72 76 65 29 75 73 74 61 6e 64 29 3b ff 4e 00 20 20 20 20 20 20 20 54 48 45 4e 20 64 72 | .kurve)ustand);.N........THEN.dr |
| 11540 | 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 7a 65 69 74 20 20 2c 20 79 77 65 72 74 29 3b 3b | aw.(.funktion.,.zeit..,.ywert);; |
| 11560 | 20 20 20 20 20 20 28 2a 20 20 20 45 4c 53 45 20 3f 3f 3f 3f 3f 20 2a 29 20 2a 29 ff ff ff ff ff | ......(*...ELSE.?????.*).*)..... |
| 11580 | 4e 00 74 72 61 67 65 20 68 77 7a 20 65 69 6e 3a 20 70 6b 74 20 69 6d 20 50 75 6e 6b 74 3a 66 65 | N.trage.hwz.ein:.pkt.im.Punkt:fe |
| 115a0 | 6e 73 74 65 72 20 75 6e 74 65 6e 20 6d 69 74 20 48 69 6c 66 65 6e 29 3b 20 2e 72 65 63 68 6e 65 | nster.unten.mit.Hilfen);..rechne |
| 115c0 | 74 2a 29 20 6d 69 74 20 48 69 6c 66 65 ff ff ff 4e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c | t*).mit.Hilfe...N.reenterdarstel |
| 115e0 | 6c 75 6e 67 34 3a 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 | lung4:...........LEAVE.kernvonda |
| 11600 | 72 73 74 65 6c 6c 75 6e 67 34 3b 2e 72 73 74 2e 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff | rstellung4;.rst.gsname,......... |
| 11620 | 3e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 4f | >.....kernvonzeigeabbruchmenue.O |
| 11640 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff | R.taste.=.modellgroessentaste... |
| 11660 | 4e 00 20 20 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3b 74 65 6c 6c 75 6e 67 73 61 | N...gibabbruchmenueaus;tellungsa |
| 11680 | 72 74 74 61 73 74 65 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 4f 52 20 74 61 73 74 65 | rttaste.(taste,.FALSE.);OR.taste |
| 116a0 | 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 45 | .=.abbruchtaste.N..............E |
| 116c0 | 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a | LIF.taste.=.rubout.COR.taste.=.z |
| 116e0 | 65 69 67 65 7a 75 73 61 74 7a 20 2a 29 20 2a 29 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff | eigezusatz.*).*).=.abbruchtaste. |
| 11700 | 3e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3a 20 20 20 20 20 20 20 69 6e 69 74 | >.gibabbruchmenueaus:.......init |
| 11720 | 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 62 62 72 75 63 68 6d 65 6e 75 65 2e 75 65 2e ff ff | ialisieremenue;bbruchmenue.ue... |
| 11740 | 4e 00 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 3a 75 72 76 65 20 62 69 73 20 7a 75 | N.lesenaechstenpunkt:urve.bis.zu |
| 11760 | 72 20 78 20 61 63 68 73 65 20 64 75 72 63 68 3b 2d 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e | r.x.achse.durch;-.erster.zeitpun |
| 11780 | 6b 74 29 2e 69 62 74 3f 20 2a 29 ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 45 4c 53 45 20 7a 69 | kt).ibt?.*).....>........ELSE.zi |
| 117a0 | 65 68 65 20 6b 75 72 76 65 20 62 69 73 20 7a 75 72 20 78 20 61 63 68 73 65 20 64 75 72 63 68 3b | ehe.kurve.bis.zur.x.achse.durch; |
| 117c0 | 74 29 2e 61 65 74 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 49 46 20 69 6e 20 64 65 6d 6f 20 20 | t).aet);........N...IF.in.demo.. |
| 117e0 | 20 20 20 20 20 54 48 45 4e 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 | .....THEN.gebeaufbildschirmaus.( |
| 11800 | 73 65 69 74 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff ff ff | seite,.modellkurzbezeichnung,... |
| 11820 | 3e 00 20 20 20 20 69 20 3a 3d 20 69 6e 74 20 28 65 78 29 3b 65 6e 66 20 6d 61 6c 20 64 3b 2a 2a | >.....i.:=.int.(ex);enf.mal.d;** |
| 11840 | 69 3b 61 65 6e 67 65 29 3b 20 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff ff ff | i;aenge);.nster,."darst");...... |
| 11860 | 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 20 3b | N.....IF.taste.=.abbruchtaste..; |
| 11880 | 20 62 6c 20 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 73 73 65 6e 74 61 73 74 | .bl.n.(dst,.lsg,.taste);ssentast |
| 118a0 | 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6c 65 73 65 20 6e 61 65 63 68 73 74 | e...............N...lese.naechst |
| 118c0 | 65 6e 20 28 6c 73 67 20 6b 75 72 76 65 2c 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 | en.(lsg.kurve,.zeit,.akt.zustand |
| 118e0 | 29 3b 65 69 6e 65 72 20 31 3b 20 46 41 4c 53 45 6f 6c 6c 20 2a 29 2a 29 62 6c 65 20 2a 29 20 ff | );einer.1;.FALSEoll.*)*)ble.*).. |
| 11900 | 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f | N.....IF.taste.=.abbruchtaste.CO |
| 11920 | 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 20 61 73 74 65 20 3d 20 61 62 62 | R.taste.=.weitertaste.aste.=.abb |
| 11940 | 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 64 61 | ruchtaste.COR...>.............da |
| 11960 | 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 28 66 | rstellungsname,.steuerzeile);.(f |
| 11980 | 61 6c 73 63 68 65 74 61 73 74 65 29 29 20 ff ff 4e 00 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 | alschetaste))...N.....zeigemenue |
| 119a0 | 3b 20 20 20 20 20 20 20 2e 7a 64 61 72 73 74 3a 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 | ;........zdarst:.LEAVE.zeigemenu |
| 119c0 | 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff | ezurzusatzdarst.gsname,......... |
| 119e0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c | N............zeigemenuezudarstel |
| 11a00 | 6c 75 6e 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 4f 52 20 74 61 | lungsarten.(taste,.FALSE.);OR.ta |
| 11a20 | 73 74 65 20 3d 62 72 75 63 68 74 61 73 74 65 ff 3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e | ste.=bruchtaste.>...........THEN |
| 11a40 | 20 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 61 73 74 65 20 3d 20 7a 65 | .nterzeigeabbruchmenue.aste.=.ze |
| 11a60 | 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 64 61 72 | igezeitd........N............dar |
| 11a80 | 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 66 61 | stellungsname,.fusszeileleer);fa |
| 11aa0 | 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | lsche.taste)).rstellungsname,... |
| 11ac0 | 3e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 20 4c 45 41 56 | >.reenterzeigeabbruchmenue:.LEAV |
| 11ae0 | 45 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 75 65 2e ff ff | E.kernvonzeigeabbruchmenue.ue... |
| 11b00 | 4e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 68 69 6e 74 65 72 67 72 75 6e 64 73 74 72 69 63 68 65 | N.....zeichne.hintergrundstriche |
| 11b20 | 3b 20 20 20 20 20 20 20 20 20 20 28 2a 20 62 65 73 63 68 72 69 66 74 75 6e 67 20 6b 6f 6f 72 64 | ;..........(*.beschriftung.koord |
| 11b40 | 2e 75 72 73 70 72 2e 2a 29 ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 | .urspr.*)...........drawcmr.(kre |
| 11b60 | 75 7a 2c 20 30 2e 30 2c 20 2d 20 30 2e 33 29 3b 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff | uz,.0.0,.-.0.3););.............. |
| 11b80 | 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 67 34 | N.....ELIF.taste.=.sendetaste.g4 |
| 11ba0 | 20 74 3b 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 | .t;OR.taste.=.modellgroessentast |
| 11bc0 | 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e...............N............... |
| 11be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c | ........................darstell |
| 11c00 | 62 61 72 20 69 73 74 20 28 6c 69 6e 2e 61 62 66 61 6c 6c 65 6e 64 65 20 4b 2e 2a 29 ff ff ff ff | bar.ist.(lin.abfallende.K.*).... |
| 11c20 | 3e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32 33 29 3b 20 20 6f 75 74 20 28 76 6f 72 7a 65 69 | >...cursor.(3,.23);..out.(vorzei |
| 11c40 | 74 69 67 20 62 65 65 6e 64 65 74 20 32 20 29 3b 62 72 75 63 68 6d 65 6e 75 65 2e 75 65 2e ff ff | tig.beendet.2.);bruchmenue.ue... |
| 11c60 | 3e 00 20 20 20 20 20 20 64 72 61 77 20 28 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 2c | >.......draw.(hintergrundlinien, |
| 11c80 | 20 78 6d 61 78 2c 20 73 63 68 72 69 74 74 77 65 69 74 65 29 3b 61 6c 20 70 6b 74 29 3b ff ff ff | .xmax,.schrittweite);al.pkt);... |
| 11ca0 | 3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 20 2d 37 2e 30 20 2a 20 73 74 61 6e 64 | >...movecmr.(kreuz,.-7.0.*.stand |
| 11cc0 | 61 72 64 62 72 65 69 74 65 20 2c 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 3b | ardbreite.,-0.5*standardhoehe);; |
| 11ce0 | 4e 00 20 20 20 20 20 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 6c 6c 75 6e 67 73 | N.......THEN.loeschemenue;llungs |
| 11d00 | 61 72 74 65 6e 3b 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 | arten;llkurzbezeichnung,.kopfzei |
| 11d20 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 3e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32 | le,.steuerzeile,>...cursor.(3,.2 |
| 11d40 | 32 29 3b 20 20 6f 75 74 20 28 76 6f 72 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 31 29 3b 3b | 2);..out.(vorzeitig.beendet.1);; |
| 11d60 | 3b 20 75 63 68 6d 65 6e 75 65 2e 75 65 2e ff ff 4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c | ;.uchmenue.ue...N...draw.(kreuz, |
| 11d80 | 20 78 6d 69 6e 2c 79 6d 61 78 29 3b 20 20 2e 3a 65 6e 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b | .xmin,ymax);...:en:=.nilpicture; |
| 11da0 | 20 20 20 20 28 2a 20 74 72 61 6e 73 66 65 72 20 77 65 67 21 21 2a 29 6d 61 78 29 3a 20 ff ff ff | ....(*.transfer.weg!!*)max):.... |
| 11dc0 | 4e 00 20 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 20 70 6b 74 20 3a 3d 20 31 30 2e 30 20 2a 2a 20 | N...letzter.skal.pkt.:=.10.0.**. |
| 11de0 | 69 3b 73 65 3b 2e 73 29 20 2a 20 6c 65 74 7a 74 65 72 20 73 6b 61 6c 20 70 6b 74 29 3b 6f 72 64 | i;se;.s).*.letzter.skal.pkt);ord |
| 11e00 | 2e 75 72 73 70 72 2e 2a 29 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 6d 6f 76 65 20 28 68 69 | .urspr.*).......N.......move.(hi |
| 11e20 | 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 2c 20 78 6d 69 6e 2c 20 73 63 68 72 69 74 74 77 65 | ntergrundlinien,.xmin,.schrittwe |
| 11e40 | 69 74 65 29 3b 61 6c 20 70 6b 74 29 3b 78 2c 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a 20 ff ff ff | ite);al.pkt);x,.ymin,.ymax):.... |
| 11e60 | 3e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 72 65 61 6c 20 28 69 20 2b 20 31 29 3b 55 50 54 4f 20 | >...stelle.:=.real.(i.+.1);UPTO. |
| 11e80 | 61 6e 7a 61 68 6c 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 ff | anzahl.achsenabschnitte.-.1.REP. |
| 11ea0 | 4e 00 20 20 20 20 7a 20 20 20 20 20 20 20 20 3a 3d 20 66 6c 6f 6f 72 28 6c 61 65 6e 67 65 2f 64 | N.....z........:=.floor(laenge/d |
| 11ec0 | 29 20 2a 20 64 3b 20 20 20 28 2a 20 44 69 65 20 69 20 6c 65 74 7a 74 65 6e 20 7a 69 66 66 65 72 | ).*.d;...(*.Die.i.letzten.ziffer |
| 11ee0 | 6e 20 76 6f 6e 20 22 6c 61 65 6e 67 65 22 ff ff 4e 00 20 20 67 65 62 65 61 75 66 62 69 6c 64 73 | n.von."laenge"..N...gebeaufbilds |
| 11f00 | 63 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 | chirmaus.(dst,.modellkurzbezeich |
| 11f20 | 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff | nung,.darstellungsname,......... |
| 11f40 | 3e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 35 29 29 | >.....ELIF.NOT.(taste.=.esc).5)) |
| 11f60 | 3b 7a 20 74 6f 67 72 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff | ;z.togr.COR.taste.=.zeigezeitd.. |
| 11f80 | 4e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 | N...fuellemenue.(menuezeile.(16) |
| 11fa0 | 29 3b 67 20 62 65 65 6e 64 65 74 29 3b 65 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 20 64 61 72 73 | );g.beendet);eabbruchmenue..dars |
| 11fc0 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 | tellungsname,...>...fuellemenue. |
| 11fe0 | 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 3b 3b 6d 61 78 20 6b 6c 65 69 6e 65 72 20 31 29 | (menuezeile.(5));;max.kleiner.1) |
| 12000 | 3b 20 75 63 68 6d 65 6e 75 65 2e 75 65 2e ff ff 3e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32 | ;.uchmenue.ue...>...cursor.(3,.2 |
| 12020 | 33 29 3b 20 20 6f 75 74 20 28 66 65 68 6c 65 72 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 20 31 29 | 3);..out.(fehler.ymax.kleiner.1) |
| 12040 | 3b 20 20 7a 65 69 67 65 6d 65 6e 75 65 2e ff ff 4e 00 52 45 41 4c 20 43 4f 4e 53 54 20 73 74 61 | ;..zeigemenue...N.REAL.CONST.sta |
| 12060 | 6e 64 61 72 64 68 6f 65 68 65 20 3a 3d 20 73 74 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 | ndardhoehe.:=.stdhoehe,.standard |
| 12080 | 62 72 65 69 74 65 20 3a 3d 20 73 74 64 62 72 65 69 74 65 3b ff ff ff ff ff ff ff ff ff ff ff ff | breite.:=.stdbreite;............ |
| 120a0 | 5e 00 20 20 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 3d 20 22 2b 22 2c 20 | ^............zeigezusatz.=."+",. |
| 120c0 | 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 3d 20 22 65 22 2c 20 72 75 62 6f 75 74 20 3d 20 | mdlgroesseneinbl=."e",.rubout.=. |
| 120e0 | 22 6c 22 3b 20 7a 65 69 67 65 7a 65 69 74 64 20 3d 20 22 7a 22 2c 20 ff ff ff ff ff ff ff ff ff | "l";.zeigezeitd.=."z",.......... |
| 12100 | 3e 00 20 20 62 65 73 74 69 6d 6d 65 20 61 75 73 67 61 62 65 61 75 73 73 63 68 6e 69 74 74 3b 6c | >...bestimme.ausgabeausschnitt;l |
| 12120 | 65 3b 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 30 2e 30 3b 75 73 65 3b ff ff ff ff | e;.fenster.unten.:=.0.0;use;.... |
| 12140 | 3e 00 20 20 6c 65 67 65 66 65 6e 73 74 65 72 66 65 73 74 20 28 73 65 69 74 65 2c 20 75 31 2c 20 | >...legefensterfest.(seite,.u1,. |
| 12160 | 75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b ff ff ff ff | u2,.z1,.z2,.strukt1fenster);.... |
| 12180 | 4e 00 65 72 6d 69 74 74 6c 65 20 79 6d 61 78 20 79 6d 69 6e 3a 20 6e 64 20 6f 62 65 6e 20 75 6e | N.ermittle.ymax.ymin:.nd.oben.un |
| 121a0 | 74 65 6e 3b 20 73 67 6b 75 72 76 65 29 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 | ten;.sgkurve).SUB.var.aktivitaet |
| 121c0 | 29 2c 73 73 65 74 7a 75 6e 67 20 2a 29 ff ff ff 4e 00 20 20 52 45 41 4c 20 56 41 52 20 79 6d 61 | ),ssetzung.*)...N...REAL.VAR.yma |
| 121e0 | 78 20 3a 3d 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 | x.:=.(maximalwerte.(lsgkurve).SU |
| 12200 | 42 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 2c 20 73 65 74 7a 75 6e 67 20 2a 29 ff ff ff | B.var.aktivitaet),.setzung.*)... |
| 12220 | 4e 00 20 20 46 49 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N...FI;......................... |
| 12240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 6e 61 65 63 68 73 74 68 da 68 65 72 65 | ................(*.naechsth.here |
| 12260 | 20 67 61 6e 7a 65 20 5a 61 68 6c 2a 29 ff ff ff 3e 00 74 72 61 67 65 20 70 75 6e 6b 74 65 20 69 | .ganze.Zahl*)...>.trage.punkte.i |
| 12280 | 6e 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3a 20 20 61 6d 20 6b 75 72 76 65 6e | n.geradenpicture.ein:..am.kurven |
| 122a0 | 65 6e 64 65 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 65 72 73 74 65 72 20 7a 65 69 74 70 | ende;...........N...erster.zeitp |
| 122c0 | 75 6e 6b 74 20 3a 3d 20 7a 65 69 74 3b 2e 74 61 6e 64 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 | unkt.:=.zeit;.tand.SUB.var.aktiv |
| 122e0 | 69 74 61 65 74 3b 65 72 74 20 29 20 3b 20 2e 6e 6b 74 29 2e 6e 20 52 45 50 20 ff ff ff ff ff ff | itaet;ert.).;..nkt).n.REP....... |
| 12300 | 4e 00 20 20 20 20 20 20 20 45 4c 53 45 20 7a 69 65 68 65 20 6b 75 72 76 65 20 62 69 73 20 7a 75 | N........ELSE.ziehe.kurve.bis.zu |
| 12320 | 72 20 78 20 61 63 68 73 65 20 64 75 72 63 68 3b 61 6b 74 69 76 69 74 61 65 74 3b 20 53 69 6e 6e | r.x.achse.durch;aktivitaet;.Sinn |
| 12340 | 20 65 72 67 69 62 74 3f 20 2a 29 ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 6d 6f 76 65 20 28 66 | .ergibt?.*).....>........move.(f |
| 12360 | 75 6e 6b 74 69 6f 6e 2c 20 7a 65 69 74 2c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 29 3b 74 69 | unktion,.zeit,.fenster.unten);ti |
| 12380 | 76 69 74 61 65 74 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 77 65 72 64 65 6e 20 7a | vitaet);........N.......werden.z |
| 123a0 | 77 65 69 20 4b 72 69 74 65 72 69 65 6e 20 67 65 70 72 db 66 74 2e 20 42 65 69 6d 20 65 72 73 74 | wei.Kriterien.gepr.ft..Beim.erst |
| 123c0 | 65 6e 20 54 72 65 66 66 65 72 20 77 69 72 64 20 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 ff ff | en.Treffer.wird.das.Refinement.. |
| 123e0 | 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 | N.....ELIF.taste.=.mdlgroessenei |
| 12400 | 6e 62 6c 20 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 | nbl.R.taste.=.modellgroessentast |
| 12420 | 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f | e...............N.dialogfuerdemo |
| 12440 | 3a 28 74 61 73 74 65 29 3b 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 | :(taste);aste.COR.taste.=.weiter |
| 12460 | 74 61 73 74 65 20 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | taste.aste.=.abbruchtaste.COR... |
| 12480 | 4e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 | N.....fuellemenue.(menuezeile.(1 |
| 124a0 | 37 29 29 3b 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e | 7));VE.zeigemenuezurzusatzdarst. |
| 124c0 | 67 73 6e 61 6d 65 2c 20 ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 54 48 45 4e 20 6c 6f 65 | gsname,.........N.......THEN.loe |
| 124e0 | 73 63 68 65 6d 65 6e 75 65 3b 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 74 61 73 74 | schemenue;arstellungsarten.(tast |
| 12500 | 65 2c 20 46 41 4c 53 45 20 29 3b 69 74 64 20 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff | e,.FALSE.);itd.e.=.abbruchtaste. |
| 12520 | 3e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c 6c 75 6e | >.........zeigemenuezudarstellun |
| 12540 | 67 73 61 72 74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 20 ff ff ff ff ff ff ff | gsarten.(taste,.FALSE.);........ |
| 12560 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 | N............gebeaufbildschirmau |
| 12580 | 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 72 73 | s.(dst,.modellkurzbezeichnung,rs |
| 125a0 | 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 3e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 | tellungsname,...>.reenterzeigeab |
| 125c0 | 62 72 75 63 68 6d 65 6e 75 65 3a 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 | bruchmenue:.LEAVE.kernvonzeigeab |
| 125e0 | 62 72 75 63 68 6d 65 6e 75 65 2e 75 65 2e ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 | bruchmenue.ue...N............vor |
| 12600 | 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 32 3a 3d 20 66 65 68 6c 65 72 20 7a 75 77 65 6e 69 | zeitig.beendet.2:=.fehler.zuweni |
| 12620 | 67 20 61 72 67 75 6d 65 6e 74 65 3b 20 54 52 55 45 6e 69 63 68 74 ff ff ff ff ff ff ff ff ff ff | g.argumente;.TRUEnicht.......... |
| 12640 | 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 | >...fuellemenue.(menuezeile.(16) |
| 12660 | 29 3b 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 75 65 2e ff ff | );kernvonzeigeabbruchmenue.ue... |
| 12680 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b 64 | N...move.(kreuz,.xmin,.stelle);d |
| 126a0 | 61 72 64 62 72 65 69 74 65 20 2c 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 61 | ardbreite.,-0.5*standardhoehe);a |
| 126c0 | 72 64 68 6f 65 68 65 29 3b 2a 29 ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 | rdhoehe);*).....N............vor |
| 126e0 | 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 32 3a 3d 20 66 65 68 6c 65 72 20 7a 77 65 69 74 65 | zeitig.beendet.2:=.fehler.zweite |
| 12700 | 72 20 70 75 6e 6b 74 20 7a 75 20 6b 6c 65 69 6e 20 3b 20 54 52 55 45 29 62 6c 65 20 2a 29 20 ff | r.punkt.zu.klein.;.TRUE)ble.*).. |
| 12720 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 | N..............abbruchtaste.COR. |
| 12740 | 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 68 69 73 74 6f 67 72 20 43 4f 52 20 74 61 73 74 65 20 | .taste.=.zeigehistogr.COR.taste. |
| 12760 | 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 74 65 ff 4e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 | =.zeigezeitd.te.N.....ELIF.NOT.( |
| 12780 | 74 61 73 74 65 20 3d 20 65 73 63 29 20 67 20 28 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 | taste.=.esc).g.(meldungstext.(fa |
| 127a0 | 6c 73 63 68 65 20 74 61 73 74 65 29 29 20 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff | lsche.taste)).rstellungsname,... |
| 127c0 | 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 | >...fuellemenue.(menuezeile.(1)) |
| 127e0 | 3b 3b 67 20 62 65 65 6e 64 65 74 20 31 29 3b 62 62 72 75 63 68 6d 65 6e 75 65 2e ff ff ff ff ff | ;;g.beendet.1);bbruchmenue...... |
| 12800 | 3e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 20 28 66 65 68 6c 65 72 | >.END.PROC.darstellung4;.(fehler |
| 12820 | 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 20 31 29 3b 20 20 7a 65 69 67 65 6d 65 6e 75 65 2e ff ff | .ymax.kleiner.1);..zeigemenue... |
| 12840 | 3e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 20 4c 45 41 56 | >.reenterzeigeabbruchmenue:.LEAV |
| 12860 | 45 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 2e ff ff ff ff ff | E.kernvonzeigeabbruchmenue...... |
| 12880 | 5e 00 20 20 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 74 61 62 20 3d 20 22 74 22 2c 20 7a 65 69 | ^............zeigetab.=."t",.zei |
| 128a0 | 67 65 68 69 73 74 6f 67 72 20 3d 20 22 68 22 2c 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 3d 20 | gehistogr.=."h",.zeigephasend.=. |
| 128c0 | 22 70 22 2c 20 7a 65 69 67 65 7a 65 69 74 64 20 3d 20 22 7a 22 2c 20 ff ff ff ff ff ff ff ff ff | "p",.zeigezeitd.=."z",.......... |
| 128e0 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6f | >.............................vo |
| 12900 | 72 67 65 67 65 62 65 6e 65 6e 20 46 65 6e 73 74 65 72 77 65 72 74 65 6e 20 6c 69 65 67 74 2a 29 | rgegebenen.Fensterwerten.liegt*) |
| 12920 | 4e 00 65 72 73 74 65 6c 6c 65 20 6b 75 72 76 65 20 64 65 72 20 7a 75 73 61 74 7a 64 61 72 73 74 | N.erstelle.kurve.der.zusatzdarst |
| 12940 | 3a 20 73 74 65 72 29 3b 2e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 74 61 65 74 | :.ster);.******************)taet |
| 12960 | 29 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 65 72 6d 69 74 74 6c 65 20 79 6d 61 | ),..............N...ermittle.yma |
| 12980 | 78 20 79 6d 69 6e 3b 73 74 65 6c 6c 65 20 67 65 72 61 64 65 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a | x.ymin;stelle.gerade...********* |
| 129a0 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 74 61 65 74 29 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | ***********)taet),.............. |
| 129c0 | 4e 00 72 69 63 68 74 65 20 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 20 65 69 6e 3a 69 63 74 75 | N.richte.geradenpicture.ein:ictu |
| 129e0 | 72 65 20 65 69 6e 3b 61 72 69 61 62 6c 65 3b 2e 74 20 42 4f 55 4e 44 20 56 41 52 20 6e 6f 74 77 | re.ein;ariable;.t.BOUND.VAR.notw |
| 12a00 | 65 6e 64 69 67 20 3f 3f 20 2a 29 ff ff ff ff ff 4e 00 20 20 66 65 6e 73 74 65 72 20 6c 69 6e 6b | endig.??.*).....N...fenster.link |
| 12a20 | 73 20 20 3a 3d 20 7a 65 69 74 3b 77 65 72 74 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s..:=.zeit;werte;............... |
| 12a40 | 20 23 2e 2c 20 6f 62 20 48 77 7a 20 53 69 6e 6e 20 65 72 67 69 62 74 3f 20 2a 29 ff ff ff ff ff | .#.,.ob.Hwz.Sinn.ergibt?.*)..... |
| 12a60 | 4e 00 20 20 20 54 45 58 54 20 43 4f 4e 53 54 20 68 77 7a 20 74 65 78 74 20 3a 3d 20 6c 65 67 65 | N....TEXT.CONST.hwz.text.:=.lege |
| 12a80 | 6e 64 65 6e 74 65 78 74 20 2b 20 63 6f 6d 70 72 65 73 73 20 28 77 61 6e 64 6c 65 20 28 68 77 7a | ndentext.+.compress.(wandle.(hwz |
| 12aa0 | 2c 20 31 32 2c 34 29 29 3b ff ff ff ff ff ff ff 4e 00 20 20 20 49 46 20 68 77 7a 20 3c 3d 20 28 | ,.12,4));.......N....IF.hwz.<=.( |
| 12ac0 | 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 20 2d 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e 6b | fenster.rechts.-.erster.zeitpunk |
| 12ae0 | 74 29 20 3b 20 3b 28 2a 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 2a 29 ff ff ff ff ff ff ff ff | t).;.;(*??????????????*)........ |
| 12b00 | 4e 00 20 20 20 20 20 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 2c 20 65 72 73 74 65 72 20 | N.......move.(.funktion,.erster. |
| 12b20 | 7a 65 69 74 70 75 6e 6b 74 20 2c 20 6c 6f 67 20 31 30 20 28 30 2e 35 20 2a 20 65 72 73 74 65 72 | zeitpunkt.,.log.10.(0.5.*.erster |
| 12b40 | 20 6c 73 67 70 75 6e 6b 74 29 29 20 3b 20 ff ff 4e 00 20 20 49 46 20 73 74 65 6c 6c 65 20 3d 20 | .lsgpunkt)).;...N...IF.stelle.=. |
| 12b60 | 79 6d 69 6e 2d 30 2e 37 20 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 2e | ymin-0.7.*standardbreite,.0.0);. |
| 12b80 | 20 2c 20 30 2e 31 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 29 ff ff ff ff ff ff ff | .,.0.1.*.standardhoehe);)....... |
| 12ba0 | 3e 00 20 20 20 20 20 20 64 72 61 77 20 28 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 2c | >.......draw.(hintergrundlinien, |
| 12bc0 | 20 78 6d 61 78 2c 20 73 63 68 72 69 74 74 77 65 69 74 65 29 3b 74 65 20 2d 20 31 20 52 45 50 50 | .xmax,.schrittweite);te.-.1.REPP |
| 12be0 | 4e 00 20 20 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 65 69 6e 3b 20 20 73 74 61 | N...trage.anfangspunkt.ein;..sta |
| 12c00 | 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 2e 3b 70 61 | ndardhoehe,.standardbreite);.;pa |
| 12c20 | 75 73 65 3b 20 2a 29 ff ff ff ff ff ff ff ff ff 4e 00 20 20 57 48 49 4c 45 20 4e 4f 54 20 66 65 | use;.*).........N...WHILE.NOT.fe |
| 12c40 | 6e 73 74 65 72 20 75 65 62 65 72 73 63 68 72 69 74 74 65 6e 20 52 45 50 20 74 65 78 74 20 28 78 | nster.ueberschritten.REP.text.(x |
| 12c60 | 6d 61 78 29 29 3b 70 61 75 73 65 3b 2e 72 64 68 6f 65 68 65 29 3b 29 74 65 6e 21 2a 29 ff ff ff | max));pause;.rdhoehe);)ten!*)... |
| 12c80 | 4e 00 20 20 20 20 7a 69 65 68 65 20 73 65 6e 6b 72 65 63 68 74 6c 69 6e 69 65 3b 20 63 68 72 69 | N.....ziehe.senkrechtlinie;.chri |
| 12ca0 | 74 74 65 6e 20 52 45 50 20 20 2c 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 74 | tten.REP..,-0.5*standardhoehe);t |
| 12cc0 | 65 29 3b 65 29 3b 29 ff ff ff ff ff ff ff ff ff 4e 00 20 20 57 48 49 4c 45 20 4e 4f 54 20 66 65 | e);e);).........N...WHILE.NOT.fe |
| 12ce0 | 6e 73 74 65 72 20 75 65 62 65 72 73 63 68 72 69 74 74 65 6e 20 52 45 50 20 65 2c 20 73 74 61 6e | nster.ueberschritten.REP.e,.stan |
| 12d00 | 64 61 72 64 62 72 65 69 74 65 29 3b 2e 73 74 20 65 69 6e 73 20 2a 29 ff ff ff ff ff ff ff ff ff | dardbreite);.st.eins.*)......... |
| 12d20 | 4e 00 73 63 68 72 65 69 62 65 20 69 6e 20 6f 75 74 70 75 74 76 61 72 69 61 62 6c 65 3a 6c 6c 65 | N.schreibe.in.outputvariable:lle |
| 12d40 | 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 64 62 72 65 69 74 65 2c | ,.laengebeibeschriftung,dbreite, |
| 12d60 | 20 64 62 72 65 69 74 65 29 2e ff ff ff ff ff ff 4e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 7a 75 | .dbreite).......N...putkreuz.(zu |
| 12d80 | 73 61 74 7a 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a | satzseite,.strukt1fenster,.kreuz |
| 12da0 | 29 3b 20 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e ff ff ff ff ff ff | );.hoehe,.standardbreite)....... |
| 12dc0 | 4e 00 20 20 20 20 20 42 65 69 73 70 69 65 6c 3a 20 31 32 2e 30 20 2d 20 6c 6f 67 31 30 28 31 30 | N......Beispiel:.12.0.-.log10(10 |
| 12de0 | 65 2b 31 32 2e 30 29 20 2d 2d 2d 2d 3e 20 31 2e 30 30 30 30 30 30 65 2d 31 31 20 2a 29 67 65 22 | e+12.0).---->.1.000000e-11.*)ge" |
| 12e00 | 20 61 62 7a 75 72 75 6e 64 65 6e 2c 20 64 61 ff 5e 00 20 20 20 49 46 20 28 6d 61 78 69 6d 61 6c | .abzurunden,.da.^....IF.(maximal |
| 12e20 | 77 65 72 74 65 20 28 6c 73 67 6b 75 72 76 65 29 20 53 55 42 20 76 61 72 20 61 6b 74 69 76 69 74 | werte.(lsgkurve).SUB.var.aktivit |
| 12e40 | 61 65 74 29 20 3e 3d 20 31 2e 30 6e 74 61 73 74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | aet).>=.1.0ntaste.,.steuerzeile, |
| 12e60 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 5e 00 20 20 20 28 2a 20 44 65 72 20 4c 6f 67 61 | plottask).;.....^....(*.Der.Loga |
| 12e80 | 72 69 74 68 6d 75 73 20 76 6f 6e 20 30 20 69 73 74 20 6e 69 63 68 74 20 64 65 66 69 6e 69 65 72 | rithmus.von.0.ist.nicht.definier |
| 12ea0 | 74 2c 20 75 6e 64 20 64 65 72 65 6e 74 61 73 74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | t,.und.derentaste.,.steuerzeile, |
| 12ec0 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 7a 75 | plottask).;.....N...putkreuz.(zu |
| 12ee0 | 73 61 74 7a 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 68 69 6e 74 65 | satzseite,.strukt1fenster,.hinte |
| 12f00 | 72 67 72 75 6e 64 6c 69 6e 69 65 6e 29 3b 2e 61 72 64 62 72 65 69 74 65 29 2e ff ff ff ff ff ff | rgrundlinien);.ardbreite)....... |
| 12f20 | 5e 00 20 20 20 20 20 20 45 4c 53 45 20 76 6f 72 7a 65 69 74 69 67 20 62 65 65 6e 64 65 74 20 31 | ^.......ELSE.vorzeitig.beendet.1 |
| 12f40 | 20 3a 3d 20 66 65 68 6c 65 72 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 20 31 3b 20 46 41 4c 53 45 | .:=.fehler.ymax.kleiner.1;.FALSE |
| 12f60 | 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff | e.,.steuerzeile,plottask).;..... |
| 12f80 | 4e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 75 6e 67 73 6e 61 6d 65 2c 20 73 74 | N.leavedarstellung4:ungsname,.st |
| 12fa0 | 65 75 65 72 7a 65 69 6c 65 29 3b 73 61 74 7a 20 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 62 62 | euerzeile);satz.groessentaste.bb |
| 12fc0 | 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff 4e 00 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 | ruchtaste.COR...N.leavezeigemenu |
| 12fe0 | 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 | ezurzusatzdarst:.LEAVE.zeigemenu |
| 13000 | 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 61 74 7a 64 61 72 73 74 2e ff ff ff ff ff ff ff | ezurzusatzdarst.atzdarst........ |
| 13020 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70 68 61 | N............IF.taste.=.zeigepha |
| 13040 | 73 65 6e 64 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 | send.COR.taste.=.zeigetab.COR.ta |
| 13060 | 73 74 65 20 3d 67 65 7a 65 69 74 64 20 74 65 ff 4e 00 20 20 20 20 20 79 77 65 72 74 20 61 6c 74 | ste.=gezeitd.te.N......ywert.alt |
| 13080 | 20 3a 3d 20 79 77 65 72 74 3b 62 69 73 20 7a 75 72 20 78 20 61 63 68 73 65 20 64 75 72 63 68 3b | .:=.ywert;bis.zur.x.achse.durch; |
| 130a0 | 6e 64 29 3b 20 20 28 2a 20 20 20 45 4c 53 45 20 3f 3f 3f 3f 3f 20 2a 29 ff ff ff ff ff ff ff ff | nd);..(*...ELSE.?????.*)........ |
| 130c0 | 4e 00 7a 65 69 63 68 6e 65 61 62 73 63 68 6c 75 73 73 73 74 72 69 63 68 20 6f 62 65 6e 3a 73 3a | N.zeichneabschlussstrich.oben:s: |
| 130e0 | 74 74 65 20 3a 3d 20 69 6e 74 20 28 79 6d 61 78 29 3b 20 20 28 2a 20 74 72 61 6e 73 66 65 72 20 | tte.:=.int.(ymax);..(*.transfer. |
| 13100 | 77 65 67 21 21 2a 29 ff ff ff ff ff ff ff ff ff 4e 00 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 | weg!!*).........N.trage.anfangsp |
| 13120 | 75 6e 6b 74 20 65 69 6e 3a 20 20 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 2c 20 7a 65 69 | unkt.ein:...move.(.funktion,.zei |
| 13140 | 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 2e 6e 20 65 72 67 69 62 74 3f 20 2a 29 ff ff ff ff ff | t.,.ywert.).;..n.ergibt?.*)..... |
| 13160 | 3e 00 74 72 61 67 65 20 66 6f 6c 67 65 70 75 6e 6b 74 20 65 69 6e 20 3a 20 74 69 6f 6e 20 2c 20 | >.trage.folgepunkt.ein.:.tion.,. |
| 13180 | 7a 65 69 74 20 20 2c 20 79 77 65 72 74 29 3b 3b 69 74 61 65 74 3b ff ff ff ff ff ff ff ff ff ff | zeit..,.ywert);;itaet;.......... |
| 131a0 | 4e 00 20 20 20 20 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 20 28 6c 73 67 20 6b 75 72 76 65 2c | N......lesenaechsten.(lsg.kurve, |
| 131c0 | 20 7a 65 69 74 2c 20 61 6b 74 20 7a 75 73 74 61 6e 64 29 3b 69 74 61 65 74 29 3b 2e 74 70 75 6e | .zeit,.akt.zustand);itaet);.tpun |
| 131e0 | 6b 74 29 2e ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | kt).............N...move.(kreuz, |
| 13200 | 20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 2e | .xmin,.stelle);ardbreite,.0.0);. |
| 13220 | 65 72 20 73 6b 61 6c 20 70 6b 74 29 3b 45 50 64 2e 75 72 73 70 72 2e 2a 29 ff ff ff ff ff ff ff | er.skal.pkt);EPd.urspr.*)....... |
| 13240 | 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 20 2d 37 2e 30 20 2a 20 73 74 61 6e 64 | N...movecmr.(kreuz,.-7.0.*.stand |
| 13260 | 61 72 64 62 72 65 69 74 65 20 2c 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 61 | ardbreite.,-0.5*standardhoehe);a |
| 13280 | 72 64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff 5e 00 61 72 67 75 6d 65 6e 74 65 20 69 6d 20 64 | rdhoehe);.......^.argumente.im.d |
| 132a0 | 65 66 62 65 72 65 69 63 68 3a 20 20 20 20 20 20 20 20 20 28 2a 20 47 72 75 6e 64 73 61 65 74 7a | efbereich:.........(*.Grundsaetz |
| 132c0 | 6c 2e 6d 69 6e 64 65 73 74 65 6e 73 20 65 69 6e 20 50 75 6e 6b 74 20 3e 3d 20 31 20 2a 29 65 2c | l.mindestens.ein.Punkt.>=.1.*)e, |
| 132e0 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 2d 20 6c 6f | plottask).;.....N...........-.lo |
| 13300 | 67 20 31 30 20 28 65 72 73 74 65 72 20 6c 73 67 70 75 6e 6b 74 29 29 20 2f 20 73 74 65 69 67 75 | g.10.(erster.lsgpunkt))./.steigu |
| 13320 | 6e 67 20 3b 63 6b 73 20 62 65 72 65 63 68 6e 65 74 2a 29 6b 74 29 29 3f ff ff ff ff ff ff ff ff | ng.;cks.berechnet*)kt))?........ |
| 13340 | 4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 22 41 20 22 2c 20 30 2e 30 2c 20 20 73 74 61 | N...draw.(kreuz,."A.",.0.0,..sta |
| 13360 | 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 2e 29 3b 65 | ndardhoehe,.standardbreite);.);e |
| 13380 | 69 6e 73 20 69 73 74 20 7a 65 68 6e 2a 29 ff ff 4e 00 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 | ins.ist.zehn*)..N.trage.anfangsp |
| 133a0 | 75 6e 6b 74 20 65 69 6e 3a 20 28 78 6d 69 6e 2c 20 78 6d 61 78 29 3b 2e 69 74 65 3b 20 20 20 20 | unkt.ein:.(xmin,.xmax);.ite;.... |
| 133c0 | 20 20 20 20 28 2a 20 31 30 20 68 6f 63 68 20 65 69 6e 73 20 69 73 74 20 7a 65 68 6e 2a 29 ff ff | ....(*.10.hoch.eins.ist.zehn*).. |
| 133e0 | 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 28 28 2d 20 31 2e 30 29 20 2a 20 72 65 | N...movecmr.(kreuz,((-.1.0).*.re |
| 13400 | 61 6c 20 28 76 6f 72 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c | al.(vorkomma)).*.standardbreite, |
| 13420 | 20 68 73 65 3b ff ff ff ff ff ff ff ff ff ff ff 5e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .hse;...........^............... |
| 13440 | 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 65 75 65 72 7a 65 69 6c 65 29 3b | .reenterdarstellung4.euerzeile); |
| 13460 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | dellgroessentaste.,.steuerzeile, |
| 13480 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c | plottask).;.....N...move.(kreuz, |
| 134a0 | 20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 2e | .xmin,.stelle);ardbreite,.0.0);. |
| 134c0 | 69 74 65 29 3b 66 74 75 6e 67 20 6b 6f 6f 72 64 2e 75 72 73 70 72 2e 2a 29 ff ff ff ff ff ff ff | ite);ftung.koord.urspr.*)....... |
| 134e0 | 4e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 3b 68 74 61 73 74 65 20 43 4f | N.kernvondarstellung4:;htaste.CO |
| 13500 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 52 20 | R.taste.=.modellgroessentaste.R. |
| 13520 | 74 61 73 74 65 29 3a ff ff ff ff ff ff ff ff ff 5e 00 20 20 20 20 20 20 54 48 45 4e 20 54 52 55 | taste):.........^.......THEN.TRU |
| 13540 | 45 20 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 65 20 73 74 65 20 3d 20 6d 6f | E.erdarstellungsarten;e.ste.=.mo |
| 13560 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | dellgroessentaste.,.steuerzeile, |
| 13580 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 7a 69 65 68 65 20 6b 75 72 76 65 20 62 69 | plottask).;.....N.ziehe.kurve.bi |
| 135a0 | 73 20 7a 75 72 20 78 20 61 63 68 73 65 20 64 75 72 63 68 3a 20 2c 20 61 6b 74 20 7a 75 73 74 61 | s.zur.x.achse.durch:.,.akt.zusta |
| 135c0 | 6e 64 29 3b 69 74 61 65 74 29 3b 2e 64 65 66 69 6e 69 65 72 74 3f 3f 3f ff ff ff ff ff ff ff ff | nd);itaet);.definiert???........ |
| 135e0 | 4e 00 20 20 20 20 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 20 3a 3d 20 65 72 73 74 65 72 20 | N......fenster.rechts.:=.erster. |
| 13600 | 7a 65 69 74 70 75 6e 6b 74 20 2b 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 29 3b 2e 69 67 75 6e | zeitpunkt.+var.aktivitaet);.igun |
| 13620 | 67 3b 20 68 74 3f 2a 29 ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 28 2a 20 4c 6f 65 73 75 6e 67 | g;.ht?*)........N.....(*.Loesung |
| 13640 | 73 70 6b 74 20 69 6d 20 50 75 6e 6b 74 3a 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 6d 69 74 20 | spkt.im.Punkt:fenster.unten.mit. |
| 13660 | 48 69 6c 66 65 29 29 2f 20 73 74 65 69 67 75 6e 67 3b 20 6d 69 74 20 48 69 6c 66 65 ff ff ff ff | Hilfe))/.steigung;.mit.Hilfe.... |
| 13680 | 4e 00 20 20 20 20 20 20 20 54 48 45 4e 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 20 32 | N........THEN..movecmr.(kreuz,.2 |
| 136a0 | 2e 33 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 37 2a 73 74 61 6e 64 61 | .3.*.standardbreite.,.0.7*standa |
| 136c0 | 72 64 68 6f 65 68 65 29 3b 65 68 6e 2a 29 ff ff 4e 00 20 20 20 20 45 4c 53 45 20 73 74 65 6c 6c | rdhoehe);ehn*)..N.....ELSE.stell |
| 136e0 | 65 20 3a 3d 20 63 61 20 6d 69 74 74 65 3b 20 69 74 74 77 65 69 74 65 3b 20 62 65 73 63 68 72 69 | e.:=.ca.mitte;.ittweite;.beschri |
| 13700 | 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 63 68 73 65 3b 6e 2e 20 2a 29 ff ff ff ff ff ff | fte.1.pkt.an.x.achse;n..*)...... |
| 13720 | 5e 00 20 20 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 4f | ^.......THEN.leavedarstellung4.O |
| 13740 | 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 65 69 | R.taste.=.modellgroessentaste.ei |
| 13760 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff | le,.steuerzeile,plottask).;..... |
| 13780 | 4e 00 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 6d 61 75 73 20 28 64 73 74 2c 20 6d | N.zeigeabbruchmenue:maus.(dst,.m |
| 137a0 | 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e | odellkurzbezeichnung,.darstellun |
| 137c0 | 67 73 6e 61 6d 65 2c 20 63 68 74 61 73 74 65 ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 28 66 65 | gsname,.chtaste.N............(fe |
| 137e0 | 6e 73 74 65 72 20 75 6e 74 65 6e 20 2d 20 6c 6f 67 20 31 30 20 28 65 72 73 74 65 72 20 6c 73 67 | nster.unten.-.log.10.(erster.lsg |
| 13800 | 70 75 6e 6b 74 29 29 2f 20 73 74 65 69 67 75 6e 67 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff | punkt))/.steigung;.............. |
| 13820 | 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b 61 | N...move.(kreuz,.xmin,.stelle);a |
| 13840 | 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 2e 20 2c 20 30 2e 31 20 2a 20 73 74 61 6e 64 61 72 | rdbreite,.0.0);..,.0.1.*.standar |
| 13860 | 64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff ff 4e 00 62 65 73 63 68 72 69 66 74 65 20 31 20 70 | dhoehe);........N.beschrifte.1.p |
| 13880 | 6b 74 20 61 6e 20 78 61 63 68 73 65 3a 20 20 78 20 61 63 68 73 65 3b 3b 20 62 65 73 63 68 72 69 | kt.an.xachse:..x.achse;;.beschri |
| 138a0 | 66 74 65 20 31 20 70 6b 74 20 61 6e 20 78 20 61 63 68 73 65 3b 69 74 65 29 2e ff ff ff ff ff ff | fte.1.pkt.an.x.achse;ite)....... |
| 138c0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | N............................... |
| 138e0 | 20 20 20 20 20 20 20 20 20 20 20 20 77 65 72 64 65 6e 20 61 75 66 20 30 20 67 65 73 65 74 7a 74 | ............werden.auf.0.gesetzt |
| 13900 | 21 20 2a 29 6e 20 22 6c 61 65 6e 67 65 22 ff ff 5e 00 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 | !.*)n."laenge"..^.......ELIF.tas |
| 13920 | 74 65 20 3c 3e 20 65 73 63 20 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f | te.<>.esc.chtaste.COR.taste.=.mo |
| 13940 | 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | dellgroessentaste.,.steuerzeile, |
| 13960 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 20 20 20 20 20 64 72 61 77 20 28 20 66 75 | plottask).;.....N......draw.(.fu |
| 13980 | 6e 6b 74 69 6f 6e 2c 20 66 65 6e 73 74 65 72 20 72 65 63 68 74 73 20 2c 20 66 65 6e 73 74 65 72 | nktion,.fenster.rechts.,.fenster |
| 139a0 | 20 75 6e 74 65 6e 29 3b 20 2e 74 65 69 67 75 6e 67 3b 20 65 6e 20 6d 69 74 20 48 69 6c 66 65 ff | .unten);..teigung;.en.mit.Hilfe. |
| 139c0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 76 61 72 20 61 6b 74 69 76 69 74 61 65 74 20 20 3d 20 32 | N............var.aktivitaet..=.2 |
| 139e0 | 2c 65 69 74 20 74 22 2c 20 6c 65 67 65 6e 64 65 6e 74 65 78 74 20 3d 20 22 48 61 6c 62 77 65 72 | ,eit.t",.legendentext.=."Halbwer |
| 13a00 | 74 7a 65 69 74 3a 20 22 2c 2c ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tzeit:.",,......>............... |
| 13a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 67 65 67 65 62 65 6e 65 6e 20 46 65 6e 73 74 | ..............vorgegebenen.Fenst |
| 13a40 | 65 72 77 65 72 74 65 6e 20 6c 69 65 67 74 2a 29 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | erwerten.liegt*)>............... |
| 13a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 67 65 67 65 62 65 6e 65 6e 20 46 65 6e 73 74 | ..............vorgegebenen.Fenst |
| 13a80 | 65 72 77 65 72 74 65 6e 20 6c 69 65 67 74 2a 29 5e 00 20 20 20 20 20 20 4c 2e 20 76 6f 6e 20 5a | erwerten.liegt*)^.......L..von.Z |
| 13aa0 | 61 68 6c 65 6e 20 3c 31 20 69 73 74 20 6e 65 67 61 74 69 76 20 75 6e 64 20 68 69 65 72 20 6e 69 | ahlen.<1.ist.negativ.und.hier.ni |
| 13ac0 | 63 68 74 20 73 69 6e 6e 76 6f 6c 6c 20 2a 29 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | cht.sinnvoll.*)ile,.steuerzeile, |
| 13ae0 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 | plottask).;.....N.leavedarstellu |
| 13b00 | 6e 67 34 3a 20 66 6f 72 67 65 74 20 28 22 64 61 72 73 74 22 2c 20 71 75 69 65 74 29 3b 20 4c 45 | ng4:.forget.("darst",.quiet);.LE |
| 13b20 | 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff | AVE.darstellung4.uchtaste.COR... |
| 13b40 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c | N..............THEN.leavedarstel |
| 13b60 | 6c 75 6e 67 34 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 6e 67 2c 74 65 | lung4R.taste.=.zeigezusatz.ng,te |
| 13b80 | 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .=.abbruchtaste.N............... |
| 13ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 74 7a 74 65 20 7a 65 69 74 2c 20 77 65 6e 6e 20 | ..............letzte.zeit,.wenn. |
| 13bc0 | 6d 69 6e 2e 20 65 69 6e 20 79 2d 57 65 72 74 20 75 6e 74 65 72 20 64 65 6e 20 29 2c ff ff ff ff | min..ein.y-Wert.unter.den.),.... |
| 13be0 | 3e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 20 20 3a 3d 20 30 2e | >............fenster.oben..:=.0. |
| 13c00 | 30 2c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 30 2e 30 3b ff ff ff ff ff ff ff ff | 0,.fenster.unten.:=.0.0;........ |
| 13c20 | 2e 00 20 20 65 72 73 74 65 6c 6c 65 20 6b 75 72 76 65 20 64 65 72 20 7a 75 73 61 74 7a 64 61 72 | ....erstelle.kurve.der.zusatzdar |
| 13c40 | 73 74 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | st;.............>.(************* |
| 13c60 | 2a 2a 2a 20 20 65 72 73 74 65 6c 6c 65 20 67 65 72 61 64 65 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***..erstelle.gerade...********* |
| 13c80 | 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 ff ff ff ff 4e 00 20 20 20 20 20 20 77 65 72 64 65 6e 20 7a | ***********)....N.......werden.z |
| 13ca0 | 77 65 69 20 4b 72 69 74 65 72 69 65 6e 20 67 65 70 72 db 66 74 2e 20 42 65 69 6d 20 65 72 73 74 | wei.Kriterien.gepr.ft..Beim.erst |
| 13cc0 | 65 6e 20 54 72 65 66 66 65 72 20 77 69 72 64 20 64 61 73 20 52 65 66 69 6e 65 6d 65 6e 74 61 ff | en.Treffer.wird.das.Refinementa. |
| 13ce0 | 5e 00 20 20 49 46 20 69 6e 20 64 65 6d 6f 20 20 54 48 45 4e 20 20 64 69 61 6c 6f 67 66 75 65 72 | ^...IF.in.demo..THEN..dialogfuer |
| 13d00 | 64 65 6d 6f 20 46 49 20 3b 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 65 69 | demo.FI.;.modellgroessentaste.ei |
| 13d20 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff | le,.steuerzeile,plottask).;..... |
| 13d40 | 4e 00 20 20 20 20 54 48 45 4e 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 20 2d 35 2e 30 20 | N.....THEN.movecmr.(kreuz,.-5.0. |
| 13d60 | 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 31 20 2a 20 73 74 61 6e 64 61 72 | *.standardbreite.,.0.1.*.standar |
| 13d80 | 64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 49 46 20 73 74 65 6c 6c 65 20 3d 20 | dhoehe);........N...IF.stelle.=. |
| 13da0 | 30 2e 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 31 | 0.0.........................(*.1 |
| 13dc0 | 30 20 68 6f 63 68 20 6e 75 6c 6c 20 69 73 74 20 65 69 6e 73 20 2a 29 3b ff ff ff ff ff ff ff ff | 0.hoch.null.ist.eins.*);........ |
| 13de0 | 5e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 3b 69 61 6c 6f 67 66 75 65 72 | ^.kernvondarstellung4:;ialogfuer |
| 13e00 | 64 65 6d 6f 20 46 49 20 3b 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 65 69 | demo.FI.;.modellgroessentaste.ei |
| 13e20 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff | le,.steuerzeile,plottask).;..... |
| 13e40 | 4e 00 20 20 20 20 20 49 46 20 79 77 65 72 74 20 3e 3d 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e | N......IF.ywert.>=.fenster.unten |
| 13e60 | 70 75 6e 6b 74 29 29 20 2f 20 28 7a 65 69 74 20 2d 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e | punkt))./.(zeit.-.erster.zeitpun |
| 13e80 | 6b 74 29 2e ff ff ff ff ff ff ff ff ff ff ff ff 5e 00 20 20 74 61 73 74 65 6c 65 73 65 6e 20 28 | kt).............^...tastelesen.( |
| 13ea0 | 74 61 73 74 65 29 3b 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | taste);htaste.COR.taste.=.modell |
| 13ec0 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | groessentaste.eile,.steuerzeile, |
| 13ee0 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 5e 00 20 20 49 46 20 69 6e 20 64 65 6d 6f 20 20 | plottask).;.....^...IF.in.demo.. |
| 13f00 | 54 48 45 4e 20 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 20 46 49 20 3b 75 72 7a 62 65 7a 65 | THEN..dialogfuerdemo.FI.;urzbeze |
| 13f20 | 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | ichnung,.kopfzeile,.steuerzeile, |
| 13f40 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 3e 00 20 20 65 72 73 74 65 6c 6c 65 20 6b 75 72 | plottask).;.....>...erstelle.kur |
| 13f60 | 76 65 20 64 65 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3b 66 65 6e 73 74 65 72 20 75 6e 74 65 6e | ve.der.zusatzdarst;fenster.unten |
| 13f80 | 20 3a 3d 20 30 2e 30 3b 20 6c 69 65 67 74 2a 29 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .:=.0.0;.liegt*)N............... |
| 13fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 67 65 67 65 62 65 6e 65 6e 20 46 65 6e 73 74 | ..............vorgegebenen.Fenst |
| 13fc0 | 65 72 77 65 72 74 65 6e 20 6c 69 65 67 74 2a 29 65 69 6e 20 61 6c 73 72 76 65 29 2c ff ff ff ff | erwerten.liegt*)ein.alsrve),.... |
| 13fe0 | 4e 00 20 20 20 20 20 20 20 20 20 20 20 66 65 6e 73 74 65 72 20 6f 62 65 6e 20 20 3a 3d 20 30 2e | N............fenster.oben..:=.0. |
| 14000 | 30 2c 20 66 65 6e 73 74 65 72 20 75 6e 74 65 6e 20 3a 3d 20 30 2e 30 3b 20 79 2d 57 65 72 74 20 | 0,.fenster.unten.:=.0.0;.y-Wert. |
| 14020 | 75 6e 74 65 72 20 64 65 6e 20 ff ff ff ff ff ff 5e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 | unter.den.......^.....ELIF.taste |
| 14040 | 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 29 3b 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 | .=.sendetaste.);,.modellkurzbeze |
| 14060 | 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | ichnung,.kopfzeile,.steuerzeile, |
| 14080 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 | plottask).;.....N...initialisier |
| 140a0 | 65 20 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 3b 65 67 65 62 65 6e 65 6e 20 46 65 6e 73 74 | e.ausgabevariable;egebenen.Fenst |
| 140c0 | 65 72 77 65 72 74 65 6e 20 6c 69 65 67 74 2a 29 75 6e 74 65 72 20 64 65 6e 20 ff ff ff ff ff ff | erwerten.liegt*)unter.den....... |
| 140e0 | 4e 00 20 20 20 20 20 20 20 54 48 45 4e 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 | N........THEN.draw.(.funktion.,. |
| 14100 | 7a 65 69 74 20 20 2c 20 79 77 65 72 74 29 3b 20 2d 20 65 72 73 74 65 72 20 7a 65 69 74 70 75 6e | zeit..,.ywert);.-.erster.zeitpun |
| 14120 | 6b 74 29 2e ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 4c 45 54 20 20 20 20 20 20 20 20 78 61 63 | kt).............N.LET........xac |
| 14140 | 68 73 65 6e 62 65 7a 20 20 20 20 20 20 3d 20 22 5a 65 69 74 20 74 22 2c 20 6c 65 67 65 6e 64 65 | hsenbez......=."Zeit.t",.legende |
| 14160 | 6e 74 65 78 74 20 3d 20 22 48 61 6c 62 77 65 72 74 7a 65 69 74 3a 20 22 2c ff ff ff ff ff ff ff | ntext.=."Halbwertzeit:.",....... |
| 14180 | 4e 00 22 20 44 65 72 20 4c 6f 67 61 72 69 74 68 6d 75 73 20 77 69 72 64 20 6e 69 63 68 74 20 64 | N.".Der.Logarithmus.wird.nicht.d |
| 141a0 | 61 72 67 65 73 74 65 6c 6c 74 2c 20 64 61 20 6b 65 69 6e 20 57 65 72 74 20 66 75 65 72 20 41 20 | argestellt,.da.kein.Wert.fuer.A. |
| 141c0 | 3e 20 31 21 22 2c ff ff ff ff ff ff ff ff ff ff 5e 00 20 20 20 20 20 20 54 48 45 4e 20 6c 65 61 | >.1!",..........^.......THEN.lea |
| 141e0 | 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 | vedarstellung4.t,.modellkurzbeze |
| 14200 | 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c | ichnung,.kopfzeile,.steuerzeile, |
| 14220 | 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff 4e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e | plottask).;.....N.....tastelesen |
| 14240 | 20 28 74 61 73 74 65 29 3b 6c 73 67 20 6b 75 72 76 65 29 20 20 20 20 20 28 2a 20 6b 61 6e 6e 20 | .(taste);lsg.kurve).....(*.kann. |
| 14260 | 61 75 66 67 72 75 6e 64 20 64 65 72 20 47 6c 65 69 63 68 2e 74 68 65 6f 72 65 74 2e ff ff ff ff | aufgrund.der.Gleich.theoret..... |
| 14280 | ee 03 54 45 58 54 20 43 4f 4e 53 54 20 65 73 63 20 3a 3d 20 63 6f 64 65 20 28 32 37 29 2c 20 70 | ..TEXT.CONST.esc.:=.code.(27),.p |
| 142a0 | 69 65 70 20 3a 3d 20 63 6f 64 65 20 28 37 29 2c 20 72 65 74 75 72 6e 20 3a 3d 20 63 6f 64 65 20 | iep.:=.code.(7),.return.:=.code. |
| 142c0 | 28 31 33 29 3b 6e 64 61 72 64 68 6f 65 68 65 20 3a 3d 20 73 74 64 68 6f 65 68 65 20 2c 20 73 74 | (13);ndardhoehe.:=.stdhoehe.,.st |
| 142e0 | 61 6e 64 61 72 64 62 72 65 69 74 65 20 3a 3d 20 73 74 64 62 72 65 69 74 65 20 3b 20 4c 45 54 20 | andardbreite.:=.stdbreite.;.LET. |
| 14300 | 61 62 62 72 75 63 68 74 61 73 74 65 20 3d 20 22 61 22 20 2c 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 | abbruchtaste.=."a".,.modellgroes |
| 14320 | 73 65 6e 74 61 73 74 65 20 3d 20 22 73 22 20 2c 20 73 65 6e 64 65 74 61 73 74 65 20 3d 20 22 22 | sentaste.=."s".,.sendetaste.=."" |
| 14340 | 20 2c 20 77 65 69 74 65 72 74 61 73 74 65 20 3d 20 22 77 22 20 2c 20 70 6c 6f 74 74 61 73 6b 20 | .,.weitertaste.=."w".,.plottask. |
| 14360 | 3d 20 22 73 69 6d 73 65 6c 20 70 6c 6f 74 74 65 72 22 20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 | =."simsel.plotter".,.darstellung |
| 14380 | 73 61 72 74 74 61 73 74 65 20 3d 20 22 6e 22 20 2c 20 6d 65 6e 75 65 74 61 73 74 65 20 3d 20 22 | sarttaste.=."n".,.menuetaste.=." |
| 143a0 | 6d 22 20 2c 20 7a 65 69 67 65 74 61 62 20 3d 20 22 74 22 20 2c 20 7a 65 69 67 65 68 69 73 74 6f | m".,.zeigetab.=."t".,.zeigehisto |
| 143c0 | 67 72 20 3d 20 22 68 22 20 2c 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 3d 20 22 70 22 20 2c 20 | gr.=."h".,.zeigephasend.=."p".,. |
| 143e0 | 7a 65 69 67 65 7a 65 69 74 64 20 3d 20 22 7a 22 20 2c 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 3d | zeigezeitd.=."z".,.zeigezusatz.= |
| 14400 | 20 22 2b 22 20 2c 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 3d 20 22 65 22 20 2c 20 | ."+".,.mdlgroesseneinbl.=."e".,. |
| 14420 | 72 75 62 6f 75 74 20 3d 20 22 6c 22 20 3b 20 4c 45 54 20 78 61 63 68 73 65 6e 62 65 7a 20 3d 20 | rubout.=."l".;.LET.xachsenbez.=. |
| 14440 | 22 5a 65 69 74 20 74 22 20 2c 20 6c 65 67 65 6e 64 65 6e 74 65 78 74 20 3d 20 22 48 61 6c 62 77 | "Zeit.t".,.legendentext.=."Halbw |
| 14460 | 65 72 74 7a 65 69 74 3a 20 22 20 2c 20 76 61 72 61 6b 74 69 76 69 74 61 65 74 20 3d 20 32 20 2c | ertzeit:.".,.varaktivitaet.=.2., |
| 14480 | 20 66 65 68 6c 65 72 79 6d 61 78 6b 6c 65 69 6e 65 72 31 20 3d 20 22 20 44 65 72 20 4c 6f 67 61 | .fehlerymaxkleiner1.=.".Der.Loga |
| 144a0 | 72 69 74 68 6d 75 73 20 77 69 72 64 20 6e 69 63 68 74 20 64 61 72 67 65 73 74 65 6c 6c 74 2c 20 | rithmus.wird.nicht.dargestellt,. |
| 144c0 | 64 61 20 6b 65 69 6e 20 57 65 72 74 20 66 75 65 72 20 41 20 3e 20 31 21 22 20 2c 20 66 65 68 6c | da.kein.Wert.fuer.A.>.1!".,.fehl |
| 144e0 | 65 72 7a 75 77 65 6e 69 67 61 72 67 75 6d 65 6e 74 65 20 3d 20 22 20 20 20 20 20 20 20 20 20 64 | erzuwenigargumente.=.".........d |
| 14500 | 61 20 6b 65 69 6e 65 20 61 75 73 72 65 69 63 68 65 6e 64 65 20 5a 61 68 6c 20 61 6e 20 4c 6f 65 | a.keine.ausreichende.Zahl.an.Loe |
| 14520 | 73 75 6e 67 73 70 75 6e 6b 74 65 6e 20 76 6f 72 6c 69 65 67 74 21 22 20 2c 20 66 65 68 6c 65 72 | sungspunkten.vorliegt!".,.fehler |
| 14540 | 6d 65 6c 64 75 6e 67 61 6e 66 61 6e 67 20 3d 20 22 20 44 65 72 20 4c 6f 67 61 72 69 74 68 6d 75 | meldunganfang.=.".Der.Logarithmu |
| 14560 | 73 20 77 69 72 64 20 6e 69 63 68 74 20 64 61 72 67 65 73 74 65 6c 6c 74 2c 20 22 20 2c 20 66 65 | s.wird.nicht.dargestellt,.".,.fe |
| 14580 | 68 6c 65 72 7a 77 65 69 74 65 72 70 75 6e 6b 74 7a 75 6b 6c 65 69 6e 20 3d 20 22 20 20 20 20 20 | hlerzweiterpunktzuklein.=."..... |
| 145a0 | 20 20 20 20 20 20 20 20 20 20 20 20 64 61 20 62 65 72 65 69 74 73 20 64 65 72 20 7a 77 65 69 74 | ............da.bereits.der.zweit |
| 145c0 | 65 20 57 65 72 74 20 66 75 65 72 20 41 20 3c 3d 20 31 20 69 73 74 21 22 20 2c 20 64 75 72 63 68 | e.Wert.fuer.A.<=.1.ist!".,.durch |
| 145e0 | 67 65 7a 6f 67 65 6e 20 3d 20 31 20 2c 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 20 3d 20 30 20 | gezogen.=.1.,.fusszeileleer.=.0. |
| 14600 | 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 3d 20 31 39 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 | ,.steuerzeile.=.19.,.steuerzeile |
| 14620 | 64 65 6d 6f 20 3d 20 33 20 2c 20 6b 6f 70 66 7a 65 69 6c 65 20 3d 20 32 35 20 2c 20 66 61 6c 73 | demo.=.3.,.kopfzeile.=.25.,.fals |
| 14640 | 63 68 65 74 61 73 74 65 20 3d 20 31 38 20 2c 20 68 61 75 70 74 66 65 6e 73 74 65 72 20 3d 20 31 | chetaste.=.18.,.hauptfenster.=.1 |
| 14660 | 20 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ee 03 52 45 41 4c 20 43 4f 4e 53 54 20 73 74 61 | .,................REAL.CONST.sta |
| 14680 | 6e 64 61 72 64 68 6f 65 68 65 20 3a 3d 20 73 74 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 | ndardhoehe.:=.stdhoehe,.standard |
| 146a0 | 62 72 65 69 74 65 20 3a 3d 20 73 74 64 62 72 65 69 74 65 3b 20 3d 20 30 2e 35 20 2c 20 6c 61 65 | breite.:=.stdbreite;.=.0.5.,.lae |
| 146c0 | 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d 20 38 20 2c 20 6e 61 63 68 6b 6f 6d | ngebeibeschriftung.=.8.,.nachkom |
| 146e0 | 6d 61 73 74 65 6c 6c 65 6e 20 3d 20 32 20 2c 20 76 6f 72 6b 6f 6d 6d 61 20 3d 20 35 20 3b 20 50 | mastellen.=.2.,.vorkomma.=.5.;.P |
| 14700 | 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 20 4f 55 54 50 55 54 20 56 41 52 20 73 65 69 | ROC.zeigedarst4.(.OUTPUT.VAR.sei |
| 14720 | 74 65 20 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 20 2c 20 4b 55 52 56 45 20 56 41 52 | te.,.BOOL.VAR.indemo.,.KURVE.VAR |
| 14740 | 20 6c 73 67 6b 75 72 76 65 20 29 20 3a 20 52 45 41 4c 20 56 41 52 20 75 31 20 2c 20 75 32 20 2c | .lsgkurve.).:.REAL.VAR.u1.,.u2., |
| 14760 | 20 7a 31 20 2c 20 7a 32 20 2c 20 66 65 6e 73 74 65 72 6c 69 6e 6b 73 20 3a 3d 20 30 2e 30 20 2c | .z1.,.z2.,.fensterlinks.:=.0.0., |
| 14780 | 20 66 65 6e 73 74 65 72 72 65 63 68 74 73 20 3a 3d 20 6c 65 74 7a 74 65 7a 65 69 74 20 28 20 6c | .fensterrechts.:=.letztezeit.(.l |
| 147a0 | 73 67 6b 75 72 76 65 20 29 20 2c 20 66 65 6e 73 74 65 72 6f 62 65 6e 20 3a 3d 20 30 2e 30 20 2c | sgkurve.).,.fensteroben.:=.0.0., |
| 147c0 | 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 3a 3d 20 30 2e 30 20 3b 20 69 6e 69 74 69 61 6c 69 73 | .fensterunten.:=.0.0.;.initialis |
| 147e0 | 69 65 72 65 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 20 3b 20 65 72 73 74 65 6c 6c 65 6b 75 | iereausgabevariable.;.erstelleku |
| 14800 | 72 76 65 64 65 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3b 20 62 65 73 74 69 6d 6d 65 61 75 73 67 | rvederzusatzdarst.;.bestimmeausg |
| 14820 | 61 62 65 61 75 73 73 63 68 6e 69 74 74 20 3b 20 70 6c 6f 74 74 65 6b 6f 6f 72 64 69 6e 61 74 65 | abeausschnitt.;.plottekoordinate |
| 14840 | 6e 6b 72 65 75 7a 20 3b 20 70 6c 6f 74 74 65 67 65 72 61 64 65 20 3b 20 2e 20 69 6e 69 74 69 61 | nkreuz.;.plottegerade.;...initia |
| 14860 | 6c 69 73 69 65 72 65 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 20 3a 20 6c 65 67 65 66 65 6e | lisiereausgabevariable.:.legefen |
| 14880 | 73 74 65 72 66 65 73 74 20 28 20 73 65 69 74 65 20 2c 20 75 31 20 2c 20 75 32 20 2c 20 7a 31 20 | sterfest.(.seite.,.u1.,.u2.,.z1. |
| 148a0 | 2c 20 7a 32 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 29 20 3b 20 76 69 65 77 70 6f | ,.z2.,.strukt1fenster.).;.viewpo |
| 148c0 | 72 74 20 28 20 75 31 20 2c 20 75 32 20 2c 20 7a 31 20 2c 20 7a 32 20 29 20 3b 20 6e 69 6c 64 69 | rt.(.u1.,.u2.,.z1.,.z2.).;.nildi |
| 148e0 | 61 67 72 61 6d 6d 20 28 20 73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 | agramm.(.seite.,.strukt1fenster. |
| 14900 | 29 20 3b 20 2e 20 65 72 73 74 65 6c 6c 65 6b 75 72 76 65 64 65 72 7a 75 73 61 74 7a 64 61 72 73 | ).;...erstellekurvederzusatzdars |
| 14920 | 74 20 3a 20 65 72 6d 69 74 74 6c 65 79 6d 61 78 79 6d 69 6e 20 3b 20 65 72 6d 69 74 74 6c 65 66 | t.:.ermittleymaxymin.;.ermittlef |
| 14940 | 65 6e 73 74 65 72 72 61 6e 64 6f 62 65 6e 75 6e 74 65 6e 20 3b 20 65 72 6d 69 74 74 6c 65 67 65 | ensterrandobenunten.;.ermittlege |
| 14960 | 72 61 64 65 6e 76 65 72 6c 61 75 66 20 3b 20 2e 20 65 72 6d 69 74 74 6c 65 79 6d 61 78 79 6d 69 | radenverlauf.;...ermittleymaxymi |
| 14980 | 6e 20 3a 20 52 45 41 4c 20 56 41 52 20 79 6d 61 78 20 3a 3d 20 28 20 6d 61 78 69 6d 61 6c 77 65 | n.:.REAL.VAR.ymax.:=.(.maximalwe |
| 149a0 | 72 74 65 20 28 20 6c 73 67 6b 75 72 76 65 20 29 20 53 55 42 20 76 61 72 61 6b 74 69 76 69 74 61 | rte.(.lsgkurve.).SUB.varaktivita |
| 149c0 | 65 74 20 29 20 2c 20 79 6d 69 6e 20 3a 3d 20 28 20 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 20 | et.).,.ymin.:=.(.minimalwerte.(. |
| 149e0 | 6c 73 67 6b 75 72 76 65 20 29 20 53 55 42 20 76 61 72 61 6b 74 69 76 69 74 61 65 74 20 29 20 3b | lsgkurve.).SUB.varaktivitaet.).; |
| 14a00 | 20 79 6d 69 6e 20 3a 3d 20 6d 61 78 20 28 20 79 6d 69 6e 20 2c 20 31 2e 30 20 29 20 3b 20 2e 20 | .ymin.:=.max.(.ymin.,.1.0.).;... |
| 14a20 | 65 72 6d 69 74 74 6c 65 66 65 6e 73 74 65 72 72 61 6e 64 6f 62 65 6e 75 6e 74 65 6e 20 3a 20 66 | ermittlefensterrandobenunten.:.f |
| 14a40 | 65 6e 73 74 65 72 6f 62 65 6e 20 3a 3d 20 6c 6f 67 31 30 20 28 20 ff ff ff ff ff ff ff ff ff ff | ensteroben.:=.log10.(........... |
| 14a60 | de 03 4c 45 54 20 20 20 20 20 20 20 20 61 62 62 72 75 63 68 74 61 73 74 65 20 3d 20 22 6d 22 2c | ..LET........abbruchtaste.=."m", |
| 14a80 | 20 73 65 6e 64 65 74 61 73 74 65 20 3d 20 22 70 22 2c 20 28 20 66 6c 6f 6f 72 20 28 20 66 65 6e | .sendetaste.=."p",.(.floor.(.fen |
| 14aa0 | 73 74 65 72 6f 62 65 6e 20 29 20 3d 20 66 65 6e 73 74 65 72 6f 62 65 6e 20 29 20 54 48 45 4e 20 | steroben.).=.fensteroben.).THEN. |
| 14ac0 | 66 65 6e 73 74 65 72 6f 62 65 6e 20 3a 3d 20 66 6c 6f 6f 72 20 28 20 66 65 6e 73 74 65 72 6f 62 | fensteroben.:=.floor.(.fensterob |
| 14ae0 | 65 6e 20 2b 20 31 2e 30 20 29 20 46 49 20 3b 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 3a 3d 20 | en.+.1.0.).FI.;.fensterunten.:=. |
| 14b00 | 66 6c 6f 6f 72 20 28 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 29 20 3b 20 49 46 20 66 65 6e 73 | floor.(.fensterunten.).;.IF.fens |
| 14b20 | 74 65 72 6f 62 65 6e 20 2d 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 3e 20 33 2e 30 20 54 48 45 | teroben.-.fensterunten.>.3.0.THE |
| 14b40 | 4e 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 3a 3d 20 66 65 6e 73 74 65 72 6f 62 65 6e 20 2d 20 | N.fensterunten.:=.fensteroben.-. |
| 14b60 | 33 2e 30 20 3b 20 46 49 20 3b 20 2e 20 65 72 6d 69 74 74 6c 65 67 65 72 61 64 65 6e 76 65 72 6c | 3.0.;.FI.;...ermittlegeradenverl |
| 14b80 | 61 75 66 20 3a 20 72 69 63 68 74 65 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 65 69 6e 20 3b 20 | auf.:.richtegeradenpictureein.;. |
| 14ba0 | 74 72 61 67 65 70 75 6e 6b 74 65 69 6e 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 65 69 6e 20 3b | tragepunkteingeradenpictureein.; |
| 14bc0 | 20 73 63 68 72 65 69 62 65 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 69 6e 61 75 73 67 61 62 65 | .schreibegeradenpictureinausgabe |
| 14be0 | 76 61 72 69 61 62 6c 65 20 3b 20 2e 20 72 69 63 68 74 65 67 65 72 61 64 65 6e 70 69 63 74 75 72 | variable.;...richtegeradenpictur |
| 14c00 | 65 65 69 6e 20 3a 20 50 49 43 54 55 52 45 20 56 41 52 20 66 75 6e 6b 74 69 6f 6e 20 3b 20 66 75 | eein.:.PICTURE.VAR.funktion.;.fu |
| 14c20 | 6e 6b 74 69 6f 6e 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 70 65 6e 20 28 20 66 75 6e | nktion.:=.nilpicture.;.pen.(.fun |
| 14c40 | 6b 74 69 6f 6e 20 2c 20 64 75 72 63 68 67 65 7a 6f 67 65 6e 20 29 20 3b 20 2e 20 74 72 61 67 65 | ktion.,.durchgezogen.).;...trage |
| 14c60 | 70 75 6e 6b 74 65 69 6e 67 65 72 61 64 65 6e 70 69 63 74 75 72 65 65 69 6e 20 3a 20 52 45 41 4c | punkteingeradenpictureein.:.REAL |
| 14c80 | 20 56 41 52 20 7a 65 69 74 20 3a 3d 20 30 2e 30 20 2c 20 79 77 65 72 74 20 3a 3d 20 30 2e 30 20 | .VAR.zeit.:=.0.0.,.ywert.:=.0.0. |
| 14ca0 | 2c 20 79 77 65 72 74 61 6c 74 20 3a 3d 20 30 2e 30 20 2c 20 65 72 73 74 65 72 6c 73 67 70 75 6e | ,.ywertalt.:=.0.0.,.ersterlsgpun |
| 14cc0 | 6b 74 20 3a 3d 20 30 2e 30 20 2c 20 65 72 73 74 65 72 7a 65 69 74 70 75 6e 6b 74 20 3a 3d 20 30 | kt.:=.0.0.,.ersterzeitpunkt.:=.0 |
| 14ce0 | 2e 30 20 3b 20 5a 55 53 54 41 4e 44 20 56 41 52 20 61 6b 74 7a 75 73 74 61 6e 64 20 3a 3d 20 6e | .0.;.ZUSTAND.VAR.aktzustand.:=.n |
| 14d00 | 65 75 65 72 7a 75 73 74 61 6e 64 20 28 20 32 20 29 20 3b 20 6c 65 73 65 65 72 73 74 65 6e 20 28 | euerzustand.(.2.).;.leseersten.( |
| 14d20 | 20 6c 73 67 6b 75 72 76 65 20 2c 20 7a 65 69 74 20 2c 20 61 6b 74 7a 75 73 74 61 6e 64 20 29 20 | .lsgkurve.,.zeit.,.aktzustand.). |
| 14d40 | 3b 20 79 77 65 72 74 20 3a 3d 20 6c 6f 67 31 30 20 28 20 61 6b 74 7a 75 73 74 61 6e 64 20 53 55 | ;.ywert.:=.log10.(.aktzustand.SU |
| 14d60 | 42 20 76 61 72 61 6b 74 69 76 69 74 61 65 74 20 29 20 3b 20 49 46 20 4e 4f 54 20 65 6e 64 65 64 | B.varaktivitaet.).;.IF.NOT.ended |
| 14d80 | 65 72 6c 6f 65 73 75 6e 67 20 28 20 6c 73 67 6b 75 72 76 65 20 29 20 54 48 45 4e 20 73 70 65 69 | erloesung.(.lsgkurve.).THEN.spei |
| 14da0 | 63 68 65 72 65 61 6e 66 61 6e 67 73 77 65 72 74 65 20 3b 20 74 72 61 67 65 61 6e 66 61 6e 67 73 | chereanfangswerte.;.trageanfangs |
| 14dc0 | 70 75 6e 6b 74 65 69 6e 20 3b 20 74 72 61 67 65 66 6f 6c 67 65 70 75 6e 6b 74 65 65 69 6e 20 3b | punktein.;.tragefolgepunkteein.; |
| 14de0 | 20 46 49 20 3b 20 2e 20 74 72 61 67 65 66 6f 6c 67 65 70 75 6e 6b 74 65 65 69 6e 20 3a 20 57 48 | .FI.;...tragefolgepunkteein.:.WH |
| 14e00 | 49 4c 45 20 4e 4f 54 20 65 6e 64 65 64 65 72 6c 6f 65 73 75 6e 67 20 28 20 6c 73 67 6b 75 72 76 | ILE.NOT.endederloesung.(.lsgkurv |
| 14e20 | 65 20 29 20 52 45 50 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 20 3b 20 ff ff ff | e.).REP.lesenaechstenpunkt.;.... |
| 14e40 | ee 03 20 20 20 20 20 20 20 20 20 20 20 61 62 62 72 75 63 68 74 61 73 74 65 20 64 65 6d 6f 20 3d | .............abbruchtaste.demo.= |
| 14e60 | 20 22 61 22 2c 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 50 45 52 20 3b 20 74 72 61 67 65 68 77 7a | ."a",fensterunten.PER.;.tragehwz |
| 14e80 | 65 69 6e 20 3b 20 23 20 74 65 73 74 65 77 65 72 74 65 20 3b 20 23 20 2e 20 73 70 65 69 63 68 65 | ein.;.#.testewerte.;.#...speiche |
| 14ea0 | 72 65 61 6e 66 61 6e 67 73 77 65 72 74 65 20 3a 20 66 65 6e 73 74 65 72 6c 69 6e 6b 73 20 3a 3d | reanfangswerte.:.fensterlinks.:= |
| 14ec0 | 20 7a 65 69 74 20 3b 20 65 72 73 74 65 72 6c 73 67 70 75 6e 6b 74 20 3a 3d 20 61 6b 74 7a 75 73 | .zeit.;.ersterlsgpunkt.:=.aktzus |
| 14ee0 | 74 61 6e 64 20 53 55 42 20 76 61 72 61 6b 74 69 76 69 74 61 65 74 20 3b 20 65 72 73 74 65 72 7a | tand.SUB.varaktivitaet.;.ersterz |
| 14f00 | 65 69 74 70 75 6e 6b 74 20 3a 3d 20 7a 65 69 74 20 3b 20 2e 20 74 72 61 67 65 61 6e 66 61 6e 67 | eitpunkt.:=.zeit.;...trageanfang |
| 14f20 | 73 70 75 6e 6b 74 65 69 6e 20 3a 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 7a 65 | spunktein.:.move.(.funktion.,.ze |
| 14f40 | 69 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 2e 20 73 74 65 69 67 75 6e 67 20 3a 20 28 20 79 77 | it.,.ywert.).;...steigung.:.(.yw |
| 14f60 | 65 72 74 20 2d 20 6c 6f 67 31 30 20 28 20 65 72 73 74 65 72 6c 73 67 70 75 6e 6b 74 20 29 20 29 | ert.-.log10.(.ersterlsgpunkt.).) |
| 14f80 | 20 2f 20 28 20 7a 65 69 74 20 2d 20 65 72 73 74 65 72 7a 65 69 74 70 75 6e 6b 74 20 29 20 2e 20 | ./.(.zeit.-.ersterzeitpunkt.)... |
| 14fa0 | 74 72 61 67 65 66 6f 6c 67 65 70 75 6e 6b 74 65 69 6e 20 3a 20 49 46 20 79 77 65 72 74 20 3e 3d | tragefolgepunktein.:.IF.ywert.>= |
| 14fc0 | 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 54 48 45 4e 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 | .fensterunten.THEN.draw.(.funkti |
| 14fe0 | 6f 6e 20 2c 20 7a 65 69 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 45 4c 53 45 20 7a 69 65 68 65 | on.,.zeit.,.ywert.).;.ELSE.ziehe |
| 15000 | 6b 75 72 76 65 62 69 73 7a 75 72 78 61 63 68 73 65 64 75 72 63 68 20 3b 20 46 49 20 2e 20 6c 65 | kurvebiszurxachsedurch.;.FI...le |
| 15020 | 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 20 3a 20 79 77 65 72 74 61 6c 74 20 3a 3d 20 79 | senaechstenpunkt.:.ywertalt.:=.y |
| 15040 | 77 65 72 74 20 3b 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 20 28 20 6c 73 67 6b 75 72 76 65 20 | wert.;.lesenaechsten.(.lsgkurve. |
| 15060 | 2c 20 7a 65 69 74 20 2c 20 61 6b 74 7a 75 73 74 61 6e 64 20 29 20 3b 20 79 77 65 72 74 20 3a 3d | ,.zeit.,.aktzustand.).;.ywert.:= |
| 15080 | 20 6c 6f 67 31 30 20 28 20 61 6b 74 7a 75 73 74 61 6e 64 20 53 55 42 20 76 61 72 61 6b 74 69 76 | .log10.(.aktzustand.SUB.varaktiv |
| 150a0 | 69 74 61 65 74 20 29 20 3b 20 2e 20 7a 69 65 68 65 6b 75 72 76 65 62 69 73 7a 75 72 78 61 63 68 | itaet.).;...ziehekurvebiszurxach |
| 150c0 | 73 65 64 75 72 63 68 20 3a 20 66 65 6e 73 74 65 72 72 65 63 68 74 73 20 3a 3d 20 65 72 73 74 65 | sedurch.:.fensterrechts.:=.erste |
| 150e0 | 72 7a 65 69 74 70 75 6e 6b 74 20 2b 20 28 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 2d 20 6c 6f | rzeitpunkt.+.(.fensterunten.-.lo |
| 15100 | 67 31 30 20 28 20 65 72 73 74 65 72 6c 73 67 70 75 6e 6b 74 20 29 20 29 20 2f 20 73 74 65 69 67 | g10.(.ersterlsgpunkt.).)./.steig |
| 15120 | 75 6e 67 20 3b 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 66 65 6e 73 74 65 72 72 | ung.;.draw.(.funktion.,.fensterr |
| 15140 | 65 63 68 74 73 20 2c 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 29 20 3b 20 2e 20 74 72 61 67 65 | echts.,.fensterunten.).;...trage |
| 15160 | 68 77 7a 65 69 6e 20 3a 20 52 45 41 4c 20 56 41 52 20 68 77 7a 20 3a 3d 20 28 20 6c 6f 67 31 30 | hwzein.:.REAL.VAR.hwz.:=.(.log10 |
| 15180 | 20 28 20 30 2e 35 20 2a 20 65 72 73 74 65 72 6c 73 67 70 75 6e 6b 74 20 29 20 2d 20 6c 6f 67 31 | .(.0.5.*.ersterlsgpunkt.).-.log1 |
| 151a0 | 30 20 28 20 65 72 73 74 65 72 6c 73 67 70 75 6e 6b 74 20 29 20 29 20 2f 20 73 74 65 69 67 75 6e | 0.(.ersterlsgpunkt.).)./.steigun |
| 151c0 | 67 20 3b 20 54 45 58 54 20 43 4f 4e 53 54 20 68 77 7a 74 65 78 74 20 3a 3d 20 6c 65 67 65 6e 64 | g.;.TEXT.CONST.hwztext.:=.legend |
| 151e0 | 65 6e 74 65 78 74 20 2b 20 63 6f 6d 70 72 65 73 73 20 28 20 77 61 6e 64 6c 65 20 28 20 68 77 7a | entext.+.compress.(.wandle.(.hwz |
| 15200 | 20 2c 20 31 32 20 2c 20 34 20 29 20 29 20 3b 20 49 46 20 68 77 7a 20 3c 3d 20 28 20 66 65 6e 73 | .,.12.,.4.).).;.IF.hwz.<=.(.fens |
| 15220 | 74 65 72 72 65 63 68 74 73 20 ff ff ff ff ff ff ee 03 20 20 20 20 20 20 20 20 20 20 20 77 65 69 | terrechts....................wei |
| 15240 | 74 65 72 74 61 73 74 65 20 3d 20 22 77 22 2c 20 70 6c 6f 74 74 61 73 6b 20 3d 20 22 73 69 6d 73 | tertaste.=."w",.plottask.=."sims |
| 15260 | 65 6c 20 70 6c 6f 74 74 65 72 22 3b 20 2c 20 6c 6f 67 31 30 20 28 20 30 2e 35 20 2a 20 65 72 73 | el.plotter";.,.log10.(.0.5.*.ers |
| 15280 | 74 65 72 6c 73 67 70 75 6e 6b 74 20 29 20 29 20 3b 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f | terlsgpunkt.).).;.draw.(.funktio |
| 152a0 | 6e 20 2c 20 68 77 7a 20 2b 20 65 72 73 74 65 72 7a 65 69 74 70 75 6e 6b 74 20 2c 20 6c 6f 67 31 | n.,.hwz.+.ersterzeitpunkt.,.log1 |
| 152c0 | 30 20 28 20 30 2e 35 20 2a 20 65 72 73 74 65 72 6c 73 67 70 75 6e 6b 74 20 29 20 29 20 3b 20 64 | 0.(.0.5.*.ersterlsgpunkt.).).;.d |
| 152e0 | 72 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 68 77 7a 20 2b 20 65 72 73 74 65 72 7a 65 69 | raw.(.funktion.,.hwz.+.ersterzei |
| 15300 | 74 70 75 6e 6b 74 20 2c 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 29 20 3b 20 64 72 61 77 63 6d | tpunkt.,.fensterunten.).;.drawcm |
| 15320 | 72 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 30 2e 30 20 2c 20 2d 20 32 2e 30 20 2a 20 73 74 61 | r.(.funktion.,.0.0.,.-.2.0.*.sta |
| 15340 | 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 32 2e 30 20 2a 20 61 62 73 74 61 6e 64 20 29 20 3b 20 49 | ndardhoehe.-.2.0.*.abstand.).;.I |
| 15360 | 46 20 28 20 66 65 6e 73 74 65 72 6c 69 6e 6b 73 20 2b 20 68 77 7a 20 29 20 3e 3d 20 28 20 30 2e | F.(.fensterlinks.+.hwz.).>=.(.0. |
| 15380 | 35 20 2a 20 28 20 66 65 6e 73 74 65 72 72 65 63 68 74 73 20 2d 20 66 65 6e 73 74 65 72 6c 69 6e | 5.*.(.fensterrechts.-.fensterlin |
| 153a0 | 6b 73 20 29 20 29 20 54 48 45 4e 20 6d 6f 76 65 63 6d 72 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c | ks.).).THEN.movecmr.(.funktion., |
| 153c0 | 20 2d 20 31 2e 30 20 2a 20 72 65 61 6c 20 28 20 6c 65 6e 67 74 68 20 28 20 68 77 7a 74 65 78 74 | .-.1.0.*.real.(.length.(.hwztext |
| 153e0 | 20 29 20 2b 20 31 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 30 20 | .).+.1.).*.standardbreite.,.0.0. |
| 15400 | 29 20 3b 20 45 4c 53 45 20 6d 6f 76 65 63 6d 72 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 31 2e | ).;.ELSE.movecmr.(.funktion.,.1. |
| 15420 | 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 30 20 29 20 3b 20 46 49 20 | 0.*.standardbreite.,.0.0.).;.FI. |
| 15440 | 3b 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 68 77 7a 74 65 78 74 20 2c 20 30 2e | ;.draw.(.funktion.,.hwztext.,.0. |
| 15460 | 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 | 0.,.standardhoehe.,.standardbrei |
| 15480 | 74 65 20 29 20 3b 20 46 49 20 3b 20 2e 20 73 63 68 72 65 69 62 65 67 65 72 61 64 65 6e 70 69 63 | te.).;.FI.;...schreibegeradenpic |
| 154a0 | 74 75 72 65 69 6e 61 75 73 67 61 62 65 76 61 72 69 61 62 6c 65 20 3a 20 70 75 74 70 69 63 74 75 | tureinausgabevariable.:.putpictu |
| 154c0 | 72 65 20 28 20 73 65 69 74 65 20 2c 20 68 61 75 70 74 66 65 6e 73 74 65 72 20 2c 20 66 75 6e 6b | re.(.seite.,.hauptfenster.,.funk |
| 154e0 | 74 69 6f 6e 20 29 20 3b 20 2e 20 62 65 73 74 69 6d 6d 65 61 75 73 67 61 62 65 61 75 73 73 63 68 | tion.).;...bestimmeausgabeaussch |
| 15500 | 6e 69 74 74 20 3a 20 77 69 6e 64 6f 77 20 28 20 73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 | nitt.:.window.(.seite.,.strukt1f |
| 15520 | 65 6e 73 74 65 72 20 2c 20 66 65 6e 73 74 65 72 6c 69 6e 6b 73 20 2c 20 66 65 6e 73 74 65 72 72 | enster.,.fensterlinks.,.fensterr |
| 15540 | 65 63 68 74 73 20 2c 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 2c 20 66 65 6e 73 74 65 72 6f 62 | echts.,.fensterunten.,.fensterob |
| 15560 | 65 6e 20 29 20 3b 20 2e 20 70 6c 6f 74 74 65 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 20 | en.).;...plottekoordinatenkreuz. |
| 15580 | 3a 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 20 73 65 69 | :.kreuzerzeugenundzeichnen.(.sei |
| 155a0 | 74 65 20 2c 20 66 65 6e 73 74 65 72 6c 69 6e 6b 73 20 2c 20 66 65 6e 73 74 65 72 72 65 63 68 74 | te.,.fensterlinks.,.fensterrecht |
| 155c0 | 73 20 2c 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 2c 20 66 65 6e 73 74 65 72 6f 62 65 6e 20 29 | s.,.fensterunten.,.fensteroben.) |
| 155e0 | 20 3b 20 62 65 73 63 68 72 69 66 74 65 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 20 3b 20 | .;.beschriftekoordinatenkreuz.;. |
| 15600 | 2e 20 70 6c 6f 74 74 65 67 65 72 61 64 65 20 3a 20 70 65 6e 20 28 20 ff ff ff ff ff ff ff ff ff | ..plottegerade.:.pen.(.......... |
| 15620 | ee 03 66 75 6e 6b 74 69 6f 6e 20 2c 20 31 20 29 20 3b 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 | ..funktion.,.1.).;.gebeaufbildsc |
| 15640 | 68 69 72 6d 61 75 73 20 28 20 73 65 69 74 65 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 | hirmaus.(.seite.,.modellkurzbeze |
| 15660 | 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 | ichnung.,.darstellungsname.,.ste |
| 15680 | 75 65 72 7a 65 69 6c 65 20 29 20 3b 20 2e 20 62 65 73 63 68 72 69 66 74 65 6b 6f 6f 72 64 69 6e | uerzeile.).;...beschriftekoordin |
| 156a0 | 61 74 65 6e 6b 72 65 75 7a 20 3a 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 20 | atenkreuz.:.PICTURE.VAR.legende. |
| 156c0 | 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 62 65 73 63 68 72 69 66 74 65 61 63 68 73 65 6e | :=.nilpicture.;.beschrifteachsen |
| 156e0 | 20 3b 20 70 65 6e 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 31 20 29 20 3b 20 70 75 74 6b 72 65 75 | .;.pen.(.legende.,.1.).;.putkreu |
| 15700 | 7a 20 28 20 73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6c 65 67 | z.(.seite.,.strukt1fenster.,.leg |
| 15720 | 65 6e 64 65 20 29 20 3b 20 2e 20 62 65 73 63 68 72 69 66 74 65 61 63 68 73 65 6e 20 3a 20 6d 6f | ende.).;...beschrifteachsen.:.mo |
| 15740 | 76 65 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 66 65 6e 73 74 65 72 72 65 63 68 74 73 20 2c 20 66 | ve.(.legende.,.fensterrechts.,.f |
| 15760 | 65 6e 73 74 65 72 75 6e 74 65 6e 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 | ensterunten.).;.movecmr.(.legend |
| 15780 | 65 20 2c 20 2d 20 36 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 31 | e.,.-.6.0.*.standardbreite.,.-.1 |
| 157a0 | 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 29 20 3b 20 64 72 61 77 20 28 20 6c 65 | .0.*.standardhoehe.).;.draw.(.le |
| 157c0 | 67 65 6e 64 65 20 2c 20 78 61 63 68 73 65 6e 62 65 7a 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 | gende.,.xachsenbez.,.0.0.,.stand |
| 157e0 | 61 72 64 68 6f 65 68 65 20 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 2e 20 | ardhoehe.,.standardbreite.).;... |
| 15800 | 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74 34 20 3b 20 50 52 4f 43 20 6b 72 65 75 | END.PROC.zeigedarst4.;.PROC.kreu |
| 15820 | 7a 65 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 20 4f 55 54 50 55 54 20 56 41 | zerzeugenundzeichnen.(.OUTPUT.VA |
| 15840 | 52 20 7a 75 73 61 74 7a 73 65 69 74 65 20 2c 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 20 | R.zusatzseite.,.REAL.CONST.xmin. |
| 15860 | 2c 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 2c 20 79 6d 61 78 20 29 20 3a 20 52 45 41 4c 20 56 41 | ,.xmax.,.ymin.,.ymax.).:.REAL.VA |
| 15880 | 52 20 73 74 65 6c 6c 65 20 2c 20 73 63 68 72 69 74 74 77 65 69 74 65 20 2c 20 6c 65 74 7a 74 65 | R.stelle.,.schrittweite.,.letzte |
| 158a0 | 72 73 6b 61 6c 70 6b 74 20 3b 20 50 49 43 54 55 52 45 20 56 41 52 20 68 69 6e 74 65 72 67 72 75 | rskalpkt.;.PICTURE.VAR.hintergru |
| 158c0 | 6e 64 6c 69 6e 69 65 6e 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 50 49 43 54 55 52 45 | ndlinien.:=.nilpicture.;.PICTURE |
| 158e0 | 20 56 41 52 20 6b 72 65 75 7a 20 3b 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 | .VAR.kreuz.;.kreuz.:=.nilpicture |
| 15900 | 20 3b 20 49 4e 54 20 56 41 52 20 69 20 2c 20 73 20 2c 20 61 6e 7a 61 68 6c 61 63 68 73 65 6e 61 | .;.INT.VAR.i.,.s.,.anzahlachsena |
| 15920 | 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 69 6e 74 20 28 20 79 6d 61 78 20 29 20 3b 20 6f 72 64 6e | bschnitte.:=.int.(.ymax.).;.ordn |
| 15940 | 65 73 74 69 66 74 7a 75 20 3b 20 7a 65 69 63 68 6e 65 79 61 63 68 73 65 20 3b 20 7a 65 69 63 68 | estiftzu.;.zeichneyachse.;.zeich |
| 15960 | 6e 65 78 61 63 68 73 65 20 3b 20 7a 65 69 63 68 6e 65 61 62 73 63 68 6c 75 73 73 73 74 72 69 63 | nexachse.;.zeichneabschlussstric |
| 15980 | 68 72 65 63 68 74 73 20 3b 20 7a 65 69 63 68 6e 65 61 62 73 63 68 6c 75 73 73 73 74 72 69 63 68 | hrechts.;.zeichneabschlussstrich |
| 159a0 | 6f 62 65 6e 20 3b 20 79 73 6b 61 6c 69 65 72 75 6e 67 20 3b 20 78 73 6b 61 6c 69 65 72 75 6e 67 | oben.;.yskalierung.;.xskalierung |
| 159c0 | 20 3b 20 73 63 68 72 65 69 62 65 69 6e 6f 75 74 70 75 74 76 61 72 69 61 62 6c 65 20 3b 20 2e 20 | .;.schreibeinoutputvariable.;... |
| 159e0 | 6f 72 64 6e 65 73 74 69 66 74 7a 75 20 3a 20 70 65 6e 20 28 20 6b 72 65 75 7a 20 2c 20 31 20 29 | ordnestiftzu.:.pen.(.kreuz.,.1.) |
| 15a00 | 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ee 03 20 20 20 20 20 20 20 20 20 20 20 76 61 72 | .............................var |
| 15a20 | 20 61 6b 74 69 76 69 74 61 65 74 20 20 3d 20 32 2c 78 6d 69 6e 20 2c 20 79 6d 69 6e 20 29 20 3b | .aktivitaet..=.2,xmin.,.ymin.).; |
| 15a40 | 20 64 72 61 77 20 28 20 6b 72 65 75 7a 20 2c 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 29 20 3b 20 | .draw.(.kreuz.,.xmax.,.ymin.).;. |
| 15a60 | 2e 20 7a 65 69 63 68 6e 65 79 61 63 68 73 65 20 3a 20 6d 6f 76 65 20 28 20 6b 72 65 75 7a 20 2c | ..zeichneyachse.:.move.(.kreuz., |
| 15a80 | 20 78 6d 69 6e 20 2c 20 79 6d 69 6e 20 29 20 3b 20 64 72 61 77 20 28 20 6b 72 65 75 7a 20 2c 20 | .xmin.,.ymin.).;.draw.(.kreuz.,. |
| 15aa0 | 78 6d 69 6e 20 2c 20 79 6d 61 78 20 29 20 3b 20 2e 20 7a 65 69 63 68 6e 65 61 62 73 63 68 6c 75 | xmin.,.ymax.).;...zeichneabschlu |
| 15ac0 | 73 73 73 74 72 69 63 68 72 65 63 68 74 73 20 3a 20 6d 6f 76 65 20 28 20 6b 72 65 75 7a 20 2c 20 | ssstrichrechts.:.move.(.kreuz.,. |
| 15ae0 | 78 6d 61 78 20 2c 20 79 6d 69 6e 20 29 20 3b 20 64 72 61 77 20 28 20 6b 72 65 75 7a 20 2c 20 78 | xmax.,.ymin.).;.draw.(.kreuz.,.x |
| 15b00 | 6d 61 78 20 2c 20 79 6d 61 78 20 29 20 3b 20 2e 20 7a 65 69 63 68 6e 65 61 62 73 63 68 6c 75 73 | max.,.ymax.).;...zeichneabschlus |
| 15b20 | 73 73 74 72 69 63 68 6f 62 65 6e 20 3a 20 6d 6f 76 65 20 28 20 6b 72 65 75 7a 20 2c 20 78 6d 61 | sstrichoben.:.move.(.kreuz.,.xma |
| 15b40 | 78 20 2c 20 79 6d 61 78 20 29 20 3b 20 64 72 61 77 20 28 20 6b 72 65 75 7a 20 2c 20 78 6d 69 6e | x.,.ymax.).;.draw.(.kreuz.,.xmin |
| 15b60 | 20 2c 20 79 6d 61 78 20 29 20 3b 20 2e 20 79 73 6b 61 6c 69 65 72 75 6e 67 20 3a 20 73 74 65 6c | .,.ymax.).;...yskalierung.:.stel |
| 15b80 | 6c 65 20 3a 3d 20 79 6d 69 6e 20 3b 20 62 65 73 63 68 72 69 66 74 65 79 20 3b 20 46 4f 52 20 69 | le.:=.ymin.;.beschriftey.;.FOR.i |
| 15ba0 | 20 46 52 4f 4d 20 69 6e 74 20 28 20 79 6d 69 6e 20 29 20 55 50 54 4f 20 61 6e 7a 61 68 6c 61 63 | .FROM.int.(.ymin.).UPTO.anzahlac |
| 15bc0 | 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2d 20 31 20 52 45 50 20 7a 65 69 63 68 6e 65 68 69 | hsenabschnitte.-.1.REP.zeichnehi |
| 15be0 | 6e 74 65 72 67 72 75 6e 64 73 74 72 69 63 68 65 20 3b 20 7a 65 69 63 68 6e 65 76 65 72 6c 61 65 | ntergrundstriche.;.zeichneverlae |
| 15c00 | 6e 67 65 72 75 6e 67 20 3b 20 62 65 73 63 68 72 69 66 74 65 79 20 50 45 52 20 3b 20 73 63 68 72 | ngerung.;.beschriftey.PER.;.schr |
| 15c20 | 65 69 62 65 76 61 72 69 61 62 6c 65 6e 6e 61 6d 65 61 6e 79 61 63 68 73 65 20 3b 20 2e 20 7a 65 | eibevariablennameanyachse.;...ze |
| 15c40 | 69 63 68 6e 65 68 69 6e 74 65 72 67 72 75 6e 64 73 74 72 69 63 68 65 20 3a 20 70 65 6e 20 28 20 | ichnehintergrundstriche.:.pen.(. |
| 15c60 | 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 20 2c 20 32 20 29 20 3b 20 6c 65 74 7a 74 65 | hintergrundlinien.,.2.).;.letzte |
| 15c80 | 72 73 6b 61 6c 70 6b 74 20 3a 3d 20 31 30 2e 30 20 2a 2a 20 69 20 3b 20 46 4f 52 20 73 20 46 52 | rskalpkt.:=.10.0.**.i.;.FOR.s.FR |
| 15ca0 | 4f 4d 20 32 20 55 50 54 4f 20 31 30 20 52 45 50 20 73 63 68 72 69 74 74 77 65 69 74 65 20 3a 3d | OM.2.UPTO.10.REP.schrittweite.:= |
| 15cc0 | 20 6c 6f 67 31 30 20 28 20 72 65 61 6c 20 28 20 73 20 29 20 2a 20 6c 65 74 7a 74 65 72 73 6b 61 | .log10.(.real.(.s.).*.letzterska |
| 15ce0 | 6c 70 6b 74 20 29 20 3b 20 6d 6f 76 65 20 28 20 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 | lpkt.).;.move.(.hintergrundlinie |
| 15d00 | 6e 20 2c 20 78 6d 69 6e 20 2c 20 73 63 68 72 69 74 74 77 65 69 74 65 20 29 20 3b 20 64 72 61 77 | n.,.xmin.,.schrittweite.).;.draw |
| 15d20 | 20 28 20 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 20 2c 20 78 6d 61 78 20 2c 20 73 63 | .(.hintergrundlinien.,.xmax.,.sc |
| 15d40 | 68 72 69 74 74 77 65 69 74 65 20 29 20 3b 20 50 45 52 20 3b 20 2e 20 7a 65 69 63 68 6e 65 76 65 | hrittweite.).;.PER.;...zeichneve |
| 15d60 | 72 6c 61 65 6e 67 65 72 75 6e 67 20 3a 20 73 74 65 6c 6c 65 20 3a 3d 20 72 65 61 6c 20 28 20 69 | rlaengerung.:.stelle.:=.real.(.i |
| 15d80 | 20 2b 20 31 20 29 20 3b 20 6d 6f 76 65 20 28 20 6b 72 65 75 7a 20 2c 20 78 6d 69 6e 20 2c 20 73 | .+.1.).;.move.(.kreuz.,.xmin.,.s |
| 15da0 | 74 65 6c 6c 65 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 2d 20 30 2e | telle.).;.drawcmr.(.kreuz.,.-.0. |
| 15dc0 | 37 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 30 20 29 20 3b 20 2e 20 62 | 7.*.standardbreite.,.0.0.).;...b |
| 15de0 | 65 73 63 68 72 69 66 74 65 79 20 3a 20 6d 6f 76 65 20 28 20 6b 72 65 75 7a 20 ff ff ff ff ff ff | eschriftey.:.move.(.kreuz....... |
| 15e00 | de 03 20 20 20 20 20 20 20 20 20 20 20 66 65 68 6c 65 72 20 79 6d 61 78 20 6b 6c 65 69 6e 65 72 | .............fehler.ymax.kleiner |
| 15e20 | 20 31 20 3d 20 6e 20 54 48 45 4e 20 6d 6f 76 65 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 2d 20 | .1.=.n.THEN.movecmr.(.kreuz.,.-. |
| 15e40 | 35 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 31 20 2a 20 73 74 61 | 5.0.*.standardbreite.,.0.1.*.sta |
| 15e60 | 6e 64 61 72 64 68 6f 65 68 65 20 29 20 3b 20 45 4c 53 45 20 6d 6f 76 65 63 6d 72 20 28 20 6b 72 | ndardhoehe.).;.ELSE.movecmr.(.kr |
| 15e80 | 65 75 7a 20 2c 20 2d 20 35 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d | euz.,.-.5.0.*.standardbreite.,.- |
| 15ea0 | 20 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 29 20 3b 20 46 49 20 3b 20 49 46 | .0.5.*.standardhoehe.).;.FI.;.IF |
| 15ec0 | 20 73 74 65 6c 6c 65 20 3d 20 30 2e 30 20 54 48 45 4e 20 64 72 61 77 20 28 20 6b 72 65 75 7a 20 | .stelle.=.0.0.THEN.draw.(.kreuz. |
| 15ee0 | 2c 20 22 20 31 22 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2c 20 73 | ,.".1".,.0.0.,.standardhoehe.,.s |
| 15f00 | 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 45 4c 53 45 20 64 72 61 77 20 28 20 6b 72 | tandardbreite.).;.ELSE.draw.(.kr |
| 15f20 | 65 75 7a 20 2c 20 22 31 30 20 22 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 | euz.,."10.".,.0.0.,.standardhoeh |
| 15f40 | 65 20 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 49 46 20 4e 4f 54 20 28 20 | e.,.standardbreite.).;.IF.NOT.(. |
| 15f60 | 73 74 65 6c 6c 65 20 3d 20 31 2e 30 20 29 20 54 48 45 4e 20 6d 6f 76 65 63 6d 72 20 28 20 6b 72 | stelle.=.1.0.).THEN.movecmr.(.kr |
| 15f80 | 65 75 7a 20 2c 20 32 2e 33 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 37 | euz.,.2.3.*.standardbreite.,.0.7 |
| 15fa0 | 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 29 20 3b 20 64 72 61 77 20 28 20 6b 72 65 75 | .*.standardhoehe.).;.draw.(.kreu |
| 15fc0 | 7a 20 2c 20 74 65 78 74 20 28 20 69 6e 74 20 28 20 73 74 65 6c 6c 65 20 29 20 29 20 2c 20 30 2e | z.,.text.(.int.(.stelle.).).,.0. |
| 15fe0 | 30 20 2c 20 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2c 20 73 74 61 6e 64 61 | 0.,.0.5.*.standardhoehe.,.standa |
| 16000 | 72 64 62 72 65 69 74 65 20 29 20 3b 20 46 49 20 3b 20 46 49 20 3b 20 2e 20 73 63 68 72 65 69 62 | rdbreite.).;.FI.;.FI.;...schreib |
| 16020 | 65 76 61 72 69 61 62 6c 65 6e 6e 61 6d 65 61 6e 79 61 63 68 73 65 20 3a 20 6d 6f 76 65 20 28 20 | evariablennameanyachse.:.move.(. |
| 16040 | 6b 72 65 75 7a 20 2c 20 78 6d 69 6e 20 2c 20 73 74 65 6c 6c 65 20 29 20 3b 20 6d 6f 76 65 63 6d | kreuz.,.xmin.,.stelle.).;.movecm |
| 16060 | 72 20 28 20 6b 72 65 75 7a 20 2c 20 2d 20 37 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 | r.(.kreuz.,.-.7.0.*.standardbrei |
| 16080 | 74 65 20 2c 20 2d 20 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 29 20 3b 20 64 | te.,.-.0.5.*.standardhoehe.).;.d |
| 160a0 | 72 61 77 20 28 20 6b 72 65 75 7a 20 2c 20 22 41 20 22 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 | raw.(.kreuz.,."A.".,.0.0.,.stand |
| 160c0 | 61 72 64 68 6f 65 68 65 20 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 2e 20 | ardhoehe.,.standardbreite.).;... |
| 160e0 | 78 73 6b 61 6c 69 65 72 75 6e 67 20 3a 20 62 65 72 65 63 68 6e 65 73 63 68 72 69 74 74 77 65 69 | xskalierung.:.berechneschrittwei |
| 16100 | 74 65 20 3b 20 74 72 61 67 65 61 6e 66 61 6e 67 73 70 75 6e 6b 74 65 69 6e 20 3b 20 57 48 49 4c | te.;.trageanfangspunktein.;.WHIL |
| 16120 | 45 20 4e 4f 54 20 66 65 6e 73 74 65 72 75 65 62 65 72 73 63 68 72 69 74 74 65 6e 20 52 45 50 20 | E.NOT.fensterueberschritten.REP. |
| 16140 | 7a 69 65 68 65 73 65 6e 6b 72 65 63 68 74 6c 69 6e 69 65 20 3b 20 50 45 52 20 3b 20 62 65 73 63 | ziehesenkrechtlinie.;.PER.;.besc |
| 16160 | 68 72 69 66 74 65 78 61 63 68 73 65 20 3b 20 2e 20 62 65 72 65 63 68 6e 65 73 63 68 72 69 74 74 | hriftexachse.;...berechneschritt |
| 16180 | 77 65 69 74 65 20 3a 20 73 63 68 72 69 74 74 77 65 69 74 65 20 3a 3d 20 64 65 6c 74 61 20 28 20 | weite.:.schrittweite.:=.delta.(. |
| 161a0 | 78 6d 69 6e 20 2c 20 78 6d 61 78 20 29 20 3b 20 2e 20 74 72 61 67 65 61 6e 66 61 6e 67 73 70 75 | xmin.,.xmax.).;...trageanfangspu |
| 161c0 | 6e 6b 74 65 69 6e 20 3a 20 49 46 20 78 6d 69 6e 20 3d 20 30 2e 30 20 54 48 45 4e 20 ff ff ff ff | nktein.:.IF.xmin.=.0.0.THEN..... |
| 161e0 | ee 03 22 20 44 65 72 20 4c 6f 67 61 72 69 74 68 6d 75 73 20 77 69 72 64 20 6e 69 63 68 74 20 64 | ..".Der.Logarithmus.wird.nicht.d |
| 16200 | 61 72 67 65 73 74 65 6c 6c 74 2c 20 64 61 20 6b 65 69 6e 20 57 65 72 74 20 66 75 65 72 20 41 20 | argestellt,.da.kein.Wert.fuer.A. |
| 16220 | 3e 20 31 21 22 2c 65 72 7a 61 68 6c 20 3b 20 46 49 20 3b 20 2e 20 61 6e 66 61 6e 67 73 70 75 6e | >.1!",erzahl.;.FI.;...anfangspun |
| 16240 | 6b 74 67 6c 65 69 63 68 73 63 68 72 69 74 74 77 65 69 74 65 20 3a 20 73 74 65 6c 6c 65 20 3a 3d | ktgleichschrittweite.:.stelle.:= |
| 16260 | 20 30 2e 30 20 3b 20 62 65 73 63 68 72 69 66 74 65 31 70 6b 74 61 6e 78 61 63 68 73 65 20 3b 20 | .0.0.;.beschrifte1pktanxachse.;. |
| 16280 | 73 74 65 6c 6c 65 20 3a 3d 20 73 63 68 72 69 74 74 77 65 69 74 65 20 3b 20 7a 69 65 68 65 73 65 | stelle.:=.schrittweite.;.ziehese |
| 162a0 | 6e 6b 72 65 63 68 74 6c 69 6e 69 65 20 3b 20 2e 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 61 62 68 | nkrechtlinie.;...anfangspunktabh |
| 162c0 | 61 65 6e 67 69 67 76 6f 6e 73 63 68 6f 65 6e 65 72 7a 61 68 6c 20 3a 20 52 4f 57 20 33 20 52 45 | aengigvonschoenerzahl.:.ROW.3.RE |
| 162e0 | 41 4c 20 56 41 52 20 73 63 68 6f 65 6e 65 7a 61 68 6c 20 3b 20 52 45 41 4c 20 56 41 52 20 63 61 | AL.VAR.schoenezahl.;.REAL.VAR.ca |
| 16300 | 6d 69 74 74 65 20 3b 20 7a 61 68 6c 65 6e 20 28 20 78 6d 69 6e 20 2c 20 78 6d 69 6e 20 2b 20 30 | mitte.;.zahlen.(.xmin.,.xmin.+.0 |
| 16320 | 2e 39 20 2a 20 28 20 78 6d 61 78 20 2d 20 78 6d 69 6e 20 29 20 2c 20 73 63 68 6f 65 6e 65 7a 61 | .9.*.(.xmax.-.xmin.).,.schoeneza |
| 16340 | 68 6c 20 29 20 3b 20 63 61 6d 69 74 74 65 20 3a 3d 20 73 63 68 6f 65 6e 65 7a 61 68 6c 20 28 20 | hl.).;.camitte.:=.schoenezahl.(. |
| 16360 | 32 20 29 20 3b 20 61 6e 7a 61 68 6c 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 | 2.).;.anzahlachsenabschnitte.:=. |
| 16380 | 69 6e 74 20 28 20 28 20 63 61 6d 69 74 74 65 20 2d 20 78 6d 69 6e 20 29 20 2f 20 73 63 68 72 69 | int.(.(.camitte.-.xmin.)./.schri |
| 163a0 | 74 74 77 65 69 74 65 20 29 20 3b 20 73 74 65 6c 6c 65 20 3a 3d 20 63 61 6d 69 74 74 65 20 2d 20 | ttweite.).;.stelle.:=.camitte.-. |
| 163c0 | 73 63 68 72 69 74 74 77 65 69 74 65 20 2a 20 72 65 61 6c 20 28 20 61 6e 7a 61 68 6c 61 63 68 73 | schrittweite.*.real.(.anzahlachs |
| 163e0 | 65 6e 61 62 73 63 68 6e 69 74 74 65 20 29 20 3b 20 62 65 73 63 68 72 69 66 74 65 31 70 6b 74 61 | enabschnitte.).;.beschrifte1pkta |
| 16400 | 6e 78 61 63 68 73 65 20 3b 20 7a 69 65 68 65 73 65 6e 6b 72 65 63 68 74 6c 69 6e 69 65 20 3b 20 | nxachse.;.ziehesenkrechtlinie.;. |
| 16420 | 2e 20 7a 69 65 68 65 73 65 6e 6b 72 65 63 68 74 6c 69 6e 69 65 20 3a 20 6d 6f 76 65 20 28 20 68 | ..ziehesenkrechtlinie.:.move.(.h |
| 16440 | 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 20 2c 20 73 74 65 6c 6c 65 20 2c 20 79 6d 69 6e | intergrundlinien.,.stelle.,.ymin |
| 16460 | 20 29 20 3b 20 64 72 61 77 20 28 20 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 20 2c 20 | .).;.draw.(.hintergrundlinien.,. |
| 16480 | 73 74 65 6c 6c 65 20 2c 20 79 6d 61 78 20 29 20 3b 20 73 74 65 6c 6c 65 20 3a 3d 20 73 74 65 6c | stelle.,.ymax.).;.stelle.:=.stel |
| 164a0 | 6c 65 20 2b 20 73 63 68 72 69 74 74 77 65 69 74 65 20 3b 20 2e 20 66 65 6e 73 74 65 72 75 65 62 | le.+.schrittweite.;...fensterueb |
| 164c0 | 65 72 73 63 68 72 69 74 74 65 6e 20 3a 20 73 74 65 6c 6c 65 20 3e 20 78 6d 61 78 20 2e 20 62 65 | erschritten.:.stelle.>.xmax...be |
| 164e0 | 73 63 68 72 69 66 74 65 78 61 63 68 73 65 20 3a 20 49 46 20 78 6d 69 6e 20 3d 20 30 2e 30 20 54 | schriftexachse.:.IF.xmin.=.0.0.T |
| 16500 | 48 45 4e 20 73 74 65 6c 6c 65 20 3a 3d 20 32 2e 30 20 2a 20 73 63 68 72 69 74 74 77 65 69 74 65 | HEN.stelle.:=.2.0.*.schrittweite |
| 16520 | 20 3b 20 62 65 73 63 68 72 69 66 74 65 31 70 6b 74 61 6e 78 61 63 68 73 65 20 3b 20 73 74 65 6c | .;.beschrifte1pktanxachse.;.stel |
| 16540 | 6c 65 20 3a 3d 20 34 2e 30 20 2a 20 73 63 68 72 69 74 74 77 65 69 74 65 20 3b 20 62 65 73 63 68 | le.:=.4.0.*.schrittweite.;.besch |
| 16560 | 72 69 66 74 65 31 70 6b 74 61 6e 78 61 63 68 73 65 20 3b 20 45 4c 53 45 20 73 74 65 6c 6c 65 20 | rifte1pktanxachse.;.ELSE.stelle. |
| 16580 | 3a 3d 20 63 61 6d 69 74 74 65 20 3b 20 62 65 73 63 68 72 69 66 74 65 31 70 6b 74 61 6e 78 61 63 | :=.camitte.;.beschrifte1pktanxac |
| 165a0 | 68 73 65 20 3b 20 46 49 20 3b 20 2e 20 62 65 73 63 68 72 69 66 74 65 31 70 6b 74 61 6e 78 61 63 | hse.;.FI.;...beschrifte1pktanxac |
| 165c0 | 68 73 65 20 3a 20 ff ff ff ff ff ff ff ff ff ff ee 03 20 20 20 20 20 20 20 20 20 20 20 66 65 68 | hse.:........................feh |
| 165e0 | 6c 65 72 20 7a 75 20 77 65 6e 69 67 20 61 72 67 75 6d 65 6e 74 65 20 3d 20 72 20 28 20 6b 72 65 | ler.zu.wenig.argumente.=.r.(.kre |
| 16600 | 75 7a 20 2c 20 28 20 28 20 2d 20 31 2e 30 20 29 20 2a 20 72 65 61 6c 20 28 20 76 6f 72 6b 6f 6d | uz.,.(.(.-.1.0.).*.real.(.vorkom |
| 16620 | 6d 61 20 29 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 31 2e 30 20 | ma.).).*.standardbreite.,.-.1.0. |
| 16640 | 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 20 29 20 3b 20 64 72 | *.standardhoehe.-.abstand.).;.dr |
| 16660 | 61 77 20 28 20 6b 72 65 75 7a 20 2c 20 28 20 77 61 6e 64 6c 65 20 28 20 73 74 65 6c 6c 65 20 2c | aw.(.kreuz.,.(.wandle.(.stelle., |
| 16680 | 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 2c 20 6e 61 63 68 6b 6f 6d | .laengebeibeschriftung.,.nachkom |
| 166a0 | 6d 61 73 74 65 6c 6c 65 6e 20 29 20 29 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f | mastellen.).).,.0.0.,.standardho |
| 166c0 | 65 68 65 20 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 29 20 2e 20 73 63 68 72 65 69 62 | ehe.,.standardbreite.)...schreib |
| 166e0 | 65 69 6e 6f 75 74 70 75 74 76 61 72 69 61 62 6c 65 20 3a 20 70 75 74 6b 72 65 75 7a 20 28 20 7a | einoutputvariable.:.putkreuz.(.z |
| 16700 | 75 73 61 74 7a 73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6b 72 | usatzseite.,.strukt1fenster.,.kr |
| 16720 | 65 75 7a 20 29 20 3b 20 70 75 74 6b 72 65 75 7a 20 28 20 7a 75 73 61 74 7a 73 65 69 74 65 20 2c | euz.).;.putkreuz.(.zusatzseite., |
| 16740 | 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e | .strukt1fenster.,.hintergrundlin |
| 16760 | 69 65 6e 20 29 20 3b 20 2e 20 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 6e 75 | ien.).;...ENDPROC.kreuzerzeugenu |
| 16780 | 6e 64 7a 65 69 63 68 6e 65 6e 20 3b 20 4c 45 54 20 63 61 73 63 68 72 69 74 74 65 20 3d 20 35 2e | ndzeichnen.;.LET.caschritte.=.5. |
| 167a0 | 30 20 3b 20 52 45 41 4c 20 50 52 4f 43 20 64 65 6c 74 61 20 28 20 52 45 41 4c 20 43 4f 4e 53 54 | 0.;.REAL.PROC.delta.(.REAL.CONST |
| 167c0 | 20 6d 69 6e 69 6d 75 6d 20 2c 20 6d 61 78 69 6d 75 6d 20 29 20 3a 20 52 45 41 4c 20 56 41 52 20 | .minimum.,.maximum.).:.REAL.VAR. |
| 167e0 | 6c 61 65 6e 67 65 20 3a 3d 20 28 20 6d 61 78 69 6d 75 6d 20 2d 20 6d 69 6e 69 6d 75 6d 20 29 20 | laenge.:=.(.maximum.-.minimum.). |
| 16800 | 2f 20 63 61 73 63 68 72 69 74 74 65 20 3b 20 65 78 70 6f 6e 65 6e 74 65 6e 65 72 6d 69 74 74 65 | /.caschritte.;.exponentenermitte |
| 16820 | 6c 6e 20 3b 20 7a 61 68 6c 65 72 6d 69 74 74 65 6c 6e 20 2e 20 65 78 70 6f 6e 65 6e 74 65 6e 65 | ln.;.zahlermitteln...exponentene |
| 16840 | 72 6d 69 74 74 65 6c 6e 20 3a 20 49 4e 54 20 56 41 52 20 69 20 3a 3d 20 64 65 63 69 6d 61 6c 65 | rmitteln.:.INT.VAR.i.:=.decimale |
| 16860 | 78 70 6f 6e 65 6e 74 20 28 20 6c 61 65 6e 67 65 20 29 20 3b 20 2e 20 7a 61 68 6c 65 72 6d 69 74 | xponent.(.laenge.).;...zahlermit |
| 16880 | 74 65 6c 6e 20 3a 20 52 45 41 4c 20 56 41 52 20 64 20 2c 20 7a 20 2c 20 66 75 65 6e 66 6d 61 6c | teln.:.REAL.VAR.d.,.z.,.fuenfmal |
| 168a0 | 64 20 3b 20 64 20 3a 3d 20 31 30 2e 30 20 2a 2a 20 69 20 3b 20 7a 20 3a 3d 20 66 6c 6f 6f 72 20 | d.;.d.:=.10.0.**.i.;.z.:=.floor. |
| 168c0 | 28 20 6c 61 65 6e 67 65 20 2f 20 64 20 29 20 2a 20 64 20 3b 20 66 75 65 6e 66 6d 61 6c 64 20 3a | (.laenge./.d.).*.d.;.fuenfmald.: |
| 168e0 | 3d 20 35 2e 30 20 2a 20 64 20 3b 20 49 46 20 66 75 65 6e 66 6d 61 6c 64 20 3c 3d 20 6c 61 65 6e | =.5.0.*.d.;.IF.fuenfmald.<=.laen |
| 16900 | 67 65 20 54 48 45 4e 20 66 75 65 6e 66 6d 61 6c 64 20 45 4c 53 45 20 7a 20 46 49 20 45 4e 44 20 | ge.THEN.fuenfmald.ELSE.z.FI.END. |
| 16920 | 50 52 4f 43 20 64 65 6c 74 61 20 3b 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 28 | PROC.delta.;.PROC.darstellung4.( |
| 16940 | 20 4c 4f 45 53 55 4e 47 20 56 41 52 20 6c 73 67 20 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 | .LOESUNG.VAR.lsg.,.BOOL.VAR.inde |
| 16960 | 6d 6f 20 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 20 29 20 3a 20 4f 55 54 50 55 54 20 56 | mo.,.TEXT.VAR.taste.).:.OUTPUT.V |
| 16980 | 41 52 20 64 73 74 20 3a 3d 20 6e 69 6c 6f 75 74 70 75 74 20 28 20 73 74 72 75 6b 74 31 66 65 6e | AR.dst.:=.niloutput.(.strukt1fen |
| 169a0 | 73 74 65 72 20 2c 20 22 64 61 72 73 74 22 20 29 20 3b 20 54 45 58 54 20 ff ff ff ff ff ff ff ff | ster.,."darst".).;.TEXT......... |
| 169c0 | ee 03 22 20 20 20 20 20 20 20 20 20 64 61 20 6b 65 69 6e 65 20 61 75 73 72 65 69 63 68 65 6e 64 | ..".........da.keine.ausreichend |
| 169e0 | 65 20 5a 61 68 6c 20 61 6e 20 4c da 73 75 6e 67 73 70 75 6e 6b 74 65 6e 20 76 6f 72 6c 69 65 67 | e.Zahl.an.L.sungspunkten.vorlieg |
| 16a00 | 74 21 22 2c 20 73 67 6b 75 72 76 65 20 3b 20 6c 73 67 6b 75 72 76 65 20 3a 3d 20 4c 4f 45 53 55 | t!",.sgkurve.;.lsgkurve.:=.LOESU |
| 16a20 | 4e 47 53 41 42 53 43 48 4e 49 54 54 20 6c 73 67 20 3b 20 49 46 20 4e 4f 54 20 61 72 67 75 6d 65 | NGSABSCHNITT.lsg.;.IF.NOT.argume |
| 16a40 | 6e 74 65 69 6d 64 65 66 62 65 72 65 69 63 68 20 43 4f 52 20 7a 75 77 65 6e 69 67 61 72 67 75 6d | nteimdefbereich.COR.zuwenigargum |
| 16a60 | 65 6e 74 65 20 43 4f 52 20 7a 77 65 69 74 65 72 70 75 6e 6b 74 6b 6c 65 69 6e 65 72 67 6c 65 69 | ente.COR.zweiterpunktkleinerglei |
| 16a80 | 63 68 65 69 6e 73 20 54 48 45 4e 20 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 46 49 | cheins.THEN.zeigeabbruchmenue.FI |
| 16aa0 | 20 3b 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 20 64 73 74 20 2c 20 69 6e 64 65 6d 6f 20 2c 20 | .;.zeigedarst4.(.dst.,.indemo.,. |
| 16ac0 | 6c 73 67 6b 75 72 76 65 20 29 20 3b 20 52 45 50 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c | lsgkurve.).;.REP.kernvondarstell |
| 16ae0 | 75 6e 67 34 20 50 45 52 20 3b 20 2e 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 | ung4.PER.;...kernvondarstellung4 |
| 16b00 | 20 3a 20 49 46 20 69 6e 64 65 6d 6f 20 54 48 45 4e 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f | .:.IF.indemo.THEN.dialogfuerdemo |
| 16b20 | 20 46 49 20 3b 20 74 61 73 74 65 6c 65 73 65 6e 20 28 20 74 61 73 74 65 20 29 20 3b 20 52 45 50 | .FI.;.tastelesen.(.taste.).;.REP |
| 16b40 | 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 | .IF.taste.=.abbruchtaste.COR.tas |
| 16b60 | 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 54 48 45 4e 20 6c 65 | te.=.modellgroessentaste.THEN.le |
| 16b80 | 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e | avedarstellung4.ELIF.taste.=.sen |
| 16ba0 | 64 65 74 61 73 74 65 20 54 48 45 4e 20 76 65 72 73 65 6e 64 65 6f 75 74 70 75 74 20 28 20 64 73 | detaste.THEN.versendeoutput.(.ds |
| 16bc0 | 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 6b 6f 70 66 | t.,.modellkurzbezeichnung.,.kopf |
| 16be0 | 7a 65 69 6c 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 2c 20 70 6c 6f 74 74 61 73 6b 20 29 | zeile.,.steuerzeile.,.plottask.) |
| 16c00 | 20 3b 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20 28 20 31 32 20 29 20 3b 20 72 65 65 6e 74 65 | .;.gibmeldungaus.(.12.).;.reente |
| 16c20 | 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 | rdarstellung4.ELIF.taste.=.mdlgr |
| 16c40 | 6f 65 73 73 65 6e 65 69 6e 62 6c 20 54 48 45 4e 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 65 | oesseneinbl.THEN.modellgroessene |
| 16c60 | 69 6e 62 6c 65 6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67 20 2c 20 74 61 73 74 65 20 29 20 | inblenden.(.dst.,.lsg.,.taste.). |
| 16c80 | 3b 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 | ;.IF.taste.=.abbruchtaste.COR.ta |
| 16ca0 | 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 54 48 45 4e 20 6c | ste.=.modellgroessentaste.THEN.l |
| 16cc0 | 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3c 3e 20 6d | eavedarstellung4.ELIF.taste.<>.m |
| 16ce0 | 65 6e 75 65 74 61 73 74 65 20 54 48 45 4e 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d | enuetaste.THEN.gebeaufbildschirm |
| 16d00 | 61 75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e | aus.(.dst.,.modellkurzbezeichnun |
| 16d20 | 67 20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 | g.,.darstellungsname.,.steuerzei |
| 16d40 | 6c 65 20 29 20 3b 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 46 49 20 3b 20 | le.).;.reenterdarstellung4.FI.;. |
| 16d60 | 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 | ELIF.taste.=.darstellungsarttast |
| 16d80 | 65 20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 | e.THEN.wahlderdarstellungsarten. |
| 16da0 | 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ee 03 20 20 20 20 20 20 20 20 20 20 20 66 65 68 | ;............................feh |
| 16dc0 | 6c 65 72 6d 65 6c 64 75 6e 67 20 61 6e 66 61 6e 67 20 3d 6d 65 6e 75 65 74 61 73 74 65 20 54 48 | lermeldung.anfang.=menuetaste.TH |
| 16de0 | 45 4e 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3b 20 49 46 | EN.zeigemenuezurzusatzdarst.;.IF |
| 16e00 | 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 | .taste.=.abbruchtaste.COR.taste. |
| 16e20 | 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 54 48 45 4e 20 6c 65 61 76 65 | =.modellgroessentaste.THEN.leave |
| 16e40 | 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 53 45 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c | darstellung4.ELSE.reenterdarstel |
| 16e60 | 6c 75 6e 67 34 20 46 49 20 45 4c 49 46 20 74 61 73 74 65 20 3c 3e 20 65 73 63 20 54 48 45 4e 20 | lung4.FI.ELIF.taste.<>.esc.THEN. |
| 16e80 | 6f 75 74 20 28 20 70 69 65 70 20 29 20 3b 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e | out.(.piep.).;.reenterdarstellun |
| 16ea0 | 67 34 20 45 4c 53 45 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 46 49 20 50 | g4.ELSE.reenterdarstellung4.FI.P |
| 16ec0 | 45 52 20 2e 20 61 72 67 75 6d 65 6e 74 65 69 6d 64 65 66 62 65 72 65 69 63 68 20 3a 20 49 46 20 | ER...argumenteimdefbereich.:.IF. |
| 16ee0 | 28 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 20 6c 73 67 6b 75 72 76 65 20 29 20 53 55 42 20 | (.maximalwerte.(.lsgkurve.).SUB. |
| 16f00 | 76 61 72 61 6b 74 69 76 69 74 61 65 74 20 29 20 3e 3d 20 31 2e 30 20 54 48 45 4e 20 54 52 55 45 | varaktivitaet.).>=.1.0.THEN.TRUE |
| 16f20 | 20 45 4c 53 45 20 76 6f 72 7a 65 69 74 69 67 62 65 65 6e 64 65 74 31 20 3a 3d 20 66 65 68 6c 65 | .ELSE.vorzeitigbeendet1.:=.fehle |
| 16f40 | 72 79 6d 61 78 6b 6c 65 69 6e 65 72 31 20 3b 20 46 41 4c 53 45 20 46 49 20 2e 20 7a 75 77 65 6e | rymaxkleiner1.;.FALSE.FI...zuwen |
| 16f60 | 69 67 61 72 67 75 6d 65 6e 74 65 20 3a 20 5a 55 53 54 41 4e 44 20 56 41 52 20 61 6b 74 7a 75 73 | igargumente.:.ZUSTAND.VAR.aktzus |
| 16f80 | 74 61 6e 64 20 3a 3d 20 6e 65 75 65 72 7a 75 73 74 61 6e 64 20 28 20 32 20 29 20 3b 20 52 45 41 | tand.:=.neuerzustand.(.2.).;.REA |
| 16fa0 | 4c 20 56 41 52 20 7a 65 69 74 20 3b 20 6c 65 73 65 65 72 73 74 65 6e 20 28 20 6c 73 67 6b 75 72 | L.VAR.zeit.;.leseersten.(.lsgkur |
| 16fc0 | 76 65 20 2c 20 7a 65 69 74 20 2c 20 61 6b 74 7a 75 73 74 61 6e 64 20 29 20 3b 20 49 46 20 65 6e | ve.,.zeit.,.aktzustand.).;.IF.en |
| 16fe0 | 64 65 64 65 72 6c 6f 65 73 75 6e 67 20 28 20 6c 73 67 6b 75 72 76 65 20 29 20 54 48 45 4e 20 76 | dederloesung.(.lsgkurve.).THEN.v |
| 17000 | 6f 72 7a 65 69 74 69 67 62 65 65 6e 64 65 74 31 20 3a 3d 20 66 65 68 6c 65 72 6d 65 6c 64 75 6e | orzeitigbeendet1.:=.fehlermeldun |
| 17020 | 67 61 6e 66 61 6e 67 20 3b 20 76 6f 72 7a 65 69 74 69 67 62 65 65 6e 64 65 74 32 20 3a 3d 20 66 | ganfang.;.vorzeitigbeendet2.:=.f |
| 17040 | 65 68 6c 65 72 7a 75 77 65 6e 69 67 61 72 67 75 6d 65 6e 74 65 20 3b 20 54 52 55 45 20 45 4c 53 | ehlerzuwenigargumente.;.TRUE.ELS |
| 17060 | 45 20 46 41 4c 53 45 20 46 49 20 2e 20 7a 77 65 69 74 65 72 70 75 6e 6b 74 6b 6c 65 69 6e 65 72 | E.FALSE.FI...zweiterpunktkleiner |
| 17080 | 67 6c 65 69 63 68 65 69 6e 73 20 3a 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 20 28 20 6c 73 67 | gleicheins.:.lesenaechsten.(.lsg |
| 170a0 | 6b 75 72 76 65 20 2c 20 7a 65 69 74 20 2c 20 61 6b 74 7a 75 73 74 61 6e 64 20 29 20 3b 20 49 46 | kurve.,.zeit.,.aktzustand.).;.IF |
| 170c0 | 20 28 20 61 6b 74 7a 75 73 74 61 6e 64 20 53 55 42 20 32 20 29 20 3c 3d 20 31 2e 30 20 54 48 45 | .(.aktzustand.SUB.2.).<=.1.0.THE |
| 170e0 | 4e 20 76 6f 72 7a 65 69 74 69 67 62 65 65 6e 64 65 74 31 20 3a 3d 20 66 65 68 6c 65 72 6d 65 6c | N.vorzeitigbeendet1.:=.fehlermel |
| 17100 | 64 75 6e 67 61 6e 66 61 6e 67 20 3b 20 76 6f 72 7a 65 69 74 69 67 62 65 65 6e 64 65 74 32 20 3a | dunganfang.;.vorzeitigbeendet2.: |
| 17120 | 3d 20 66 65 68 6c 65 72 7a 77 65 69 74 65 72 70 75 6e 6b 74 7a 75 6b 6c 65 69 6e 20 3b 20 54 52 | =.fehlerzweiterpunktzuklein.;.TR |
| 17140 | 55 45 20 45 4c 53 45 20 46 41 4c 53 45 20 46 49 20 2e 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d | UE.ELSE.FALSE.FI...dialogfuerdem |
| 17160 | 6f 20 3a 20 52 45 50 20 74 61 73 74 65 6c 65 73 65 6e 20 28 20 74 61 73 74 65 20 29 20 3b 20 49 | o.:.REP.tastelesen.(.taste.).;.I |
| 17180 | 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff | F.taste.=.abbruchtaste.......... |
| 171a0 | ee 03 22 20 44 65 72 20 4c 6f 67 61 72 69 74 68 6d 75 73 20 77 69 72 64 20 6e 69 63 68 74 20 64 | ..".Der.Logarithmus.wird.nicht.d |
| 171c0 | 61 72 67 65 73 74 65 6c 6c 74 2c 20 22 20 2c 34 20 45 4c 53 45 20 6f 75 74 20 28 20 70 69 65 70 | argestellt,.".,4.ELSE.out.(.piep |
| 171e0 | 20 29 20 3b 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 46 49 20 3b 20 50 45 | .).;.reenterdarstellung4.FI.;.PE |
| 17200 | 52 20 3b 20 2e 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 3a 20 66 6f 72 67 65 74 | R.;...leavedarstellung4.:.forget |
| 17220 | 20 28 20 22 64 61 72 73 74 22 20 2c 20 71 75 69 65 74 20 29 20 3b 20 4c 45 41 56 45 20 64 61 72 | .(."darst".,.quiet.).;.LEAVE.dar |
| 17240 | 73 74 65 6c 6c 75 6e 67 34 20 2e 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 | stellung4...wahlderdarstellungsa |
| 17260 | 72 74 65 6e 20 3a 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 | rten.:.zeigemenuezudarstellungsa |
| 17280 | 72 74 65 6e 20 28 20 74 61 73 74 65 20 2c 20 46 41 4c 53 45 20 29 20 3b 20 49 46 20 74 61 73 74 | rten.(.taste.,.FALSE.).;.IF.tast |
| 172a0 | 65 20 3d 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 | e.=.zeigephasend.COR.taste.=.zei |
| 172c0 | 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 | getab.COR.taste.=.abbruchtaste.C |
| 172e0 | 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 43 4f 52 20 74 61 73 74 65 20 | OR.taste.=.zeigezeitd.COR.taste. |
| 17300 | 3d 20 7a 65 69 67 65 68 69 73 74 6f 67 72 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c | =.zeigehistogr.THEN.leavedarstel |
| 17320 | 6c 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 | lung4.ELIF.taste.=.rubout.COR.ta |
| 17340 | 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 54 48 45 4e 20 67 65 62 65 61 75 66 62 69 | ste.=.zeigezusatz.THEN.gebeaufbi |
| 17360 | 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 | ldschirmaus.(.dst.,.modellkurzbe |
| 17380 | 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 | zeichnung.,.darstellungsname.,.s |
| 173a0 | 74 65 75 65 72 7a 65 69 6c 65 20 29 20 3b 20 46 49 20 2e 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 | teuerzeile.).;.FI...zeigemenuezu |
| 173c0 | 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 52 45 50 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d | rzusatzdarst.:.REP.kernvonzeigem |
| 173e0 | 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 50 45 52 20 2e 20 6b 65 72 6e 76 6f 6e | enuezurzusatzdarst.PER...kernvon |
| 17400 | 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 67 69 62 6d 65 | zeigemenuezurzusatzdarst.:.gibme |
| 17420 | 6e 75 65 61 75 73 20 3b 20 52 45 50 20 69 6e 63 68 61 72 20 28 20 74 61 73 74 65 20 29 20 3b 20 | nueaus.;.REP.inchar.(.taste.).;. |
| 17440 | 6c 6f 65 73 63 68 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 3b 20 49 46 20 74 61 73 74 65 20 3d | loeschemenuemeldung.;.IF.taste.= |
| 17460 | 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c | .abbruchtaste.COR.taste.=.modell |
| 17480 | 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c | groessentaste.THEN.leavedarstell |
| 174a0 | 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 | ung4.ELIF.taste.=.darstellungsar |
| 174c0 | 74 74 61 73 74 65 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 77 61 68 6c 64 | ttaste.THEN.loeschemenue.;.wahld |
| 174e0 | 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b 20 6c 65 61 76 65 7a 65 69 67 65 | erdarstellungsarten.;.leavezeige |
| 17500 | 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 45 4c 49 46 20 74 61 73 74 65 20 3d | menuezurzusatzdarst.ELIF.taste.= |
| 17520 | 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 | .mdlgroesseneinbl.THEN.loescheme |
| 17540 | 6e 75 65 20 3b 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 | nue.;.modellgroesseneinblenden.( |
| 17560 | 20 64 73 74 20 2c 20 6c 73 67 20 2c 20 74 61 73 74 65 20 29 20 3b 20 49 46 20 74 61 73 74 65 20 | .dst.,.lsg.,.taste.).;.IF.taste. |
| 17580 | 3d 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff de 03 20 20 20 20 20 20 20 20 20 20 20 66 65 68 | =............................feh |
| 175a0 | 6c 65 72 20 7a 77 65 69 74 65 72 20 70 75 6e 6b 74 20 7a 75 20 6b 6c 65 69 6e 20 20 20 3d 20 54 | ler.zweiter.punkt.zu.klein...=.T |
| 175c0 | 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 53 45 20 72 65 65 6e 74 | HEN.leavedarstellung4.ELSE.reent |
| 175e0 | 65 72 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 46 49 20 3b 20 | erzeigemenuezurzusatzdarst.FI.;. |
| 17600 | 45 4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 54 48 45 4e 20 76 65 72 | ELIF.taste.=.sendetaste.THEN.ver |
| 17620 | 73 65 6e 64 65 6f 75 74 70 75 74 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 | sendeoutput.(.dst.,.modellkurzbe |
| 17640 | 7a 65 69 63 68 6e 75 6e 67 20 2c 20 6b 6f 70 66 7a 65 69 6c 65 20 2c 20 73 74 65 75 65 72 7a 65 | zeichnung.,.kopfzeile.,.steuerze |
| 17660 | 69 6c 65 20 2c 20 70 6c 6f 74 74 61 73 6b 20 29 20 3b 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 | ile.,.plottask.).;.gibmeldungaus |
| 17680 | 20 28 20 31 32 20 29 20 3b 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 54 48 | .(.12.).;.ELIF.taste.=.rubout.TH |
| 176a0 | 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 | EN.loeschemenue.;.gebeaufbildsch |
| 176c0 | 69 72 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 | irmaus.(.dst.,.modellkurzbezeich |
| 176e0 | 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 | nung.,.darstellungsname.,.steuer |
| 17700 | 7a 65 69 6c 65 20 29 20 3b 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 | zeile.).;.leavezeigemenuezurzusa |
| 17720 | 74 7a 64 61 72 73 74 20 45 4c 49 46 20 4e 4f 54 20 28 20 74 61 73 74 65 20 3d 20 65 73 63 20 29 | tzdarst.ELIF.NOT.(.taste.=.esc.) |
| 17740 | 20 54 48 45 4e 20 7a 65 69 67 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 20 6d 65 6c 64 75 6e | .THEN.zeigemenuemeldung.(.meldun |
| 17760 | 67 73 74 65 78 74 20 28 20 66 61 6c 73 63 68 65 74 61 73 74 65 20 29 20 29 20 46 49 20 50 45 52 | gstext.(.falschetaste.).).FI.PER |
| 17780 | 20 2e 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 3a 20 4c 45 41 56 45 20 6b | ...reenterdarstellung4.:.LEAVE.k |
| 177a0 | 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 3b 20 2e 20 67 69 62 6d 65 6e 75 65 61 | ernvondarstellung4.;...gibmenuea |
| 177c0 | 75 73 20 3a 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 20 3b 20 66 75 65 6c 6c 65 | us.:.initialisieremenue.;.fuelle |
| 177e0 | 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b 20 66 75 65 | menue.(.menuezeile.(.1.).).;.fue |
| 17800 | 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 36 20 29 20 29 20 3b | llemenue.(.menuezeile.(.16.).).; |
| 17820 | 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 29 20 | .fuellemenue.(.menuezeile.(.5.). |
| 17840 | 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 | ).;.fuellemenue.(.menuezeile.(.1 |
| 17860 | 30 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 | 0.).).;.fuellemenue.(.menuezeile |
| 17880 | 20 28 20 31 37 20 29 20 29 20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 20 3b 20 2e 20 6c 65 61 76 65 | .(.17.).).;.zeigemenue.;...leave |
| 178a0 | 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 4c 45 41 56 45 | zeigemenuezurzusatzdarst.:.LEAVE |
| 178c0 | 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20 72 65 65 6e | .zeigemenuezurzusatzdarst...reen |
| 178e0 | 74 65 72 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 4c 45 | terzeigemenuezurzusatzdarst.:.LE |
| 17900 | 41 56 45 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 | AVE.kernvonzeigemenuezurzusatzda |
| 17920 | 72 73 74 20 2e 20 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 3a 20 67 65 62 65 61 75 | rst...zeigeabbruchmenue.:.gebeau |
| 17940 | 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 | fbildschirmaus.(.dst.,.modellkur |
| 17960 | 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 ff ee 03 22 20 20 20 20 20 20 20 20 20 20 20 20 20 | zbezeichnung.,...."............. |
| 17980 | 20 20 20 20 64 61 20 62 65 72 65 69 74 73 20 64 65 72 20 7a 77 65 69 74 65 20 57 65 72 74 20 66 | ....da.bereits.der.zweite.Wert.f |
| 179a0 | 75 65 72 20 41 20 3c 3d 20 31 20 69 73 74 21 22 2c 75 65 20 50 45 52 20 3b 20 2e 20 6b 65 72 6e | uer.A.<=.1.ist!",ue.PER.;...kern |
| 179c0 | 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 3a 20 67 69 62 61 62 62 72 75 63 | vonzeigeabbruchmenue.:.gibabbruc |
| 179e0 | 68 6d 65 6e 75 65 61 75 73 20 3b 20 52 45 50 20 69 6e 63 68 61 72 20 28 20 74 61 73 74 65 20 29 | hmenueaus.;.REP.inchar.(.taste.) |
| 17a00 | 20 3b 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 3b 20 49 46 20 74 61 73 74 | .;.loeschemenuemeldung.;.IF.tast |
| 17a20 | 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 | e.=.abbruchtaste.COR.taste.=.mod |
| 17a40 | 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 | ellgroessentaste.THEN.leavedarst |
| 17a60 | 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 | ellung4.ELIF.taste.=.darstellung |
| 17a80 | 73 61 72 74 74 61 73 74 65 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 7a 65 | sarttaste.THEN.loeschemenue.;.ze |
| 17aa0 | 69 67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 20 74 61 | igemenuezudarstellungsarten.(.ta |
| 17ac0 | 73 74 65 20 2c 20 46 41 4c 53 45 20 29 20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 | ste.,.FALSE.).;.IF.taste.=.zeige |
| 17ae0 | 70 68 61 73 65 6e 64 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 | phasend.COR.taste.=.zeigetab.COR |
| 17b00 | 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 | .taste.=.abbruchtaste.COR.taste. |
| 17b20 | 3d 20 7a 65 69 67 65 68 69 73 74 6f 67 72 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 | =.zeigehistogr.COR.taste.=.zeige |
| 17b40 | 7a 65 69 74 64 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 | zeitd.THEN.leavedarstellung4.ELI |
| 17b60 | 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 | F.taste.=.rubout.COR.taste.=.zei |
| 17b80 | 67 65 7a 75 73 61 74 7a 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 72 65 65 | gezusatz.THEN.loeschemenue.;.ree |
| 17ba0 | 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 46 49 20 45 4c 49 46 20 74 61 | nterzeigeabbruchmenue.FI.ELIF.ta |
| 17bc0 | 73 74 65 20 3d 20 72 75 62 6f 75 74 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b | ste.=.rubout.THEN.loeschemenue.; |
| 17be0 | 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d 6f | .gebeaufbildschirmaus.(.dst.,.mo |
| 17c00 | 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75 6e | dellkurzbezeichnung.,.darstellun |
| 17c20 | 67 73 6e 61 6d 65 20 2c 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 20 29 20 3b 20 72 65 65 6e 74 | gsname.,.fusszeileleer.).;.reent |
| 17c40 | 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 45 4c 49 46 20 4e 4f 54 20 28 20 74 | erzeigeabbruchmenue.ELIF.NOT.(.t |
| 17c60 | 61 73 74 65 20 3d 20 65 73 63 20 29 20 54 48 45 4e 20 7a 65 69 67 65 6d 65 6e 75 65 6d 65 6c 64 | aste.=.esc.).THEN.zeigemenuemeld |
| 17c80 | 75 6e 67 20 28 20 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 20 66 61 6c 73 63 68 65 74 61 73 74 | ung.(.meldungstext.(.falschetast |
| 17ca0 | 65 20 29 20 29 20 46 49 20 50 45 52 20 2e 20 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 | e.).).FI.PER...gibabbruchmenueau |
| 17cc0 | 73 20 3a 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 20 3b 20 66 75 65 6c 6c 65 6d | s.:.initialisieremenue.;.fuellem |
| 17ce0 | 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b 20 66 75 65 6c | enue.(.menuezeile.(.1.).).;.fuel |
| 17d00 | 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 36 20 29 20 29 20 3b 20 | lemenue.(.menuezeile.(.16.).).;. |
| 17d20 | 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 29 20 29 | fuellemenue.(.menuezeile.(.5.).) |
| 17d40 | 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | .;.fuellemenue.(................ |
| 17d60 | de 00 20 20 20 20 20 20 20 20 20 20 20 64 75 72 63 68 67 65 7a 6f 67 65 6e 20 20 20 20 3d 20 31 | .............durchgezogen....=.1 |
| 17d80 | 2c 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 20 20 20 3d 20 30 2c 20 73 74 65 75 65 72 7a 65 69 | ,.fusszeileleer...=.0,.steuerzei |
| 17da0 | 6c 65 20 20 20 20 20 3d 20 33 34 20 2c 72 20 28 20 33 20 2c 20 32 33 20 29 20 3b 20 6f 75 74 20 | le.....=.34.,r.(.3.,.23.).;.out. |
| 17dc0 | 28 20 76 6f 72 7a 65 69 74 69 67 62 65 65 6e 64 65 74 32 20 29 20 3b 20 7a 65 69 67 65 6d 65 6e | (.vorzeitigbeendet2.).;.zeigemen |
| 17de0 | 75 65 20 2e 20 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 3a 20 | ue...reenterzeigeabbruchmenue.:. |
| 17e00 | 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 2e | LEAVE.kernvonzeigeabbruchmenue.. |
| 17e20 | 20 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 3b 20 ff ff ff ff ff ff ff | .END.PROC.darstellung4.;........ |
| 17e40 | 5e 04 4c 45 54 20 20 20 20 20 20 20 20 78 61 63 68 73 65 6e 62 65 7a 20 20 20 20 20 20 3d 20 22 | ^.LET........xachsenbez......=." |
| 17e60 | 5a 65 69 74 20 74 22 2c 20 6c 65 67 65 6e 64 65 6e 74 65 78 74 20 3d 20 22 48 61 6c 62 77 65 72 | Zeit.t",.legendentext.=."Halbwer |
| 17e80 | 74 7a 65 69 74 3a 20 22 2c 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c | tzeit:.",zbezeichnung.,.darstell |
| 17ea0 | 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 20 29 45 4c 53 45 | ungsname.,.steuerzeiledemo.)ELSE |
| 17ec0 | 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 73 65 69 74 65 20 2c 20 6d | gebeaufbildschirmaus.(.seite.,.m |
| 17ee0 | 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75 | odellkurzbezeichnung.,.darstellu |
| 17f00 | 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 29 20 46 49 20 20 3b 20 2e 20 | ngsname.,.steuerzeile.).FI..;... |
| 17f20 | 62 65 73 63 68 72 69 66 74 65 6b 6f 6f 72 64 69 6e 61 74 65 6e 6b 72 65 75 7a 20 3a 20 50 49 43 | beschriftekoordinatenkreuz.:.PIC |
| 17f40 | 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b | TURE.VAR.legende.:=.nilpicture.; |
| 17f60 | 20 62 65 73 63 68 72 69 66 74 65 61 63 68 73 65 6e 20 3b 20 70 65 6e 20 28 20 6c 65 67 65 6e 64 | .beschrifteachsen.;.pen.(.legend |
| 17f80 | 65 20 2c 20 31 20 29 20 3b 20 70 75 74 6b 72 65 75 7a 20 28 20 73 65 69 74 65 20 2c 20 73 74 72 | e.,.1.).;.putkreuz.(.seite.,.str |
| 17fa0 | 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6c 65 67 65 6e 64 65 20 29 20 3b 20 2e 20 62 65 73 63 | ukt1fenster.,.legende.).;...besc |
| 17fc0 | 68 72 69 66 74 65 61 63 68 73 65 6e 20 3a 20 6d 6f 76 65 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 | hrifteachsen.:.move.(.legende.,. |
| 17fe0 | 66 65 6e 73 74 65 72 72 65 63 68 74 73 20 2c 20 66 65 6e 73 74 65 72 75 6e 74 65 6e 20 29 20 3b | fensterrechts.,.fensterunten.).; |
| 18000 | 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 2d 20 36 2e 30 20 2a 20 73 74 61 | .movecmr.(.legende.,.-.6.0.*.sta |
| 18020 | 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 31 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 68 6f | ndardbreite.,.-.1.0.*.standardho |
| 18040 | 65 68 65 20 29 20 3b 20 64 72 61 77 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 78 61 63 68 73 65 6e | ehe.).;.draw.(.legende.,.xachsen |
| 18060 | 62 65 7a 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2c 20 73 74 61 6e | bez.,.0.0.,.standardhoehe.,.stan |
| 18080 | 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 2e 20 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 64 | dardbreite.).;...END.PROC.zeiged |
| 180a0 | 61 72 73 74 34 20 3b 20 50 52 4f 43 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 | arst4.;.PROC.kreuzerzeugenundzei |
| 180c0 | 63 68 6e 65 6e 20 28 20 4f 55 54 50 55 54 20 56 41 52 20 7a 75 73 61 74 7a 73 65 69 74 65 20 2c | chnen.(.OUTPUT.VAR.zusatzseite., |
| 180e0 | 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 20 2c 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 2c | .REAL.CONST.xmin.,.xmax.,.ymin., |
| 18100 | 20 79 6d 61 78 20 29 20 3a 20 52 45 41 4c 20 56 41 52 20 73 74 65 6c 6c 65 20 2c 20 73 63 68 72 | .ymax.).:.REAL.VAR.stelle.,.schr |
| 18120 | 69 74 74 77 65 69 74 65 20 2c 20 6c 65 74 7a 74 65 72 73 6b 61 6c 70 6b 74 20 3b 20 50 49 43 54 | ittweite.,.letzterskalpkt.;.PICT |
| 18140 | 55 52 45 20 56 41 52 20 68 69 6e 74 65 72 67 72 75 6e 64 6c 69 6e 69 65 6e 20 3a 3d 20 6e 69 6c | URE.VAR.hintergrundlinien.:=.nil |
| 18160 | 70 69 63 74 75 72 65 20 3b 20 50 49 43 54 55 52 45 20 56 41 52 20 6b 72 65 75 7a 20 3b 20 6b 72 | picture.;.PICTURE.VAR.kreuz.;.kr |
| 18180 | 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 49 4e 54 20 56 41 52 20 69 20 2c 20 | euz.:=.nilpicture.;.INT.VAR.i.,. |
| 181a0 | 73 20 2c 20 61 6e 7a 61 68 6c 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 69 6e | s.,.anzahlachsenabschnitte.:=.in |
| 181c0 | 74 20 28 20 79 6d 61 78 20 29 20 3b 20 6f 72 64 6e 65 73 74 69 66 74 7a 75 20 3b 20 7a 65 69 63 | t.(.ymax.).;.ordnestiftzu.;.zeic |
| 181e0 | 68 6e 65 79 61 63 68 73 65 20 3b 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 20 3b 20 7a 65 69 63 | hneyachse.;.zeichnexachse.;.zeic |
| 18200 | 68 6e 65 61 62 73 63 68 6c 75 73 73 73 74 72 69 63 68 72 65 63 68 74 73 20 3b 20 7a 65 69 63 68 | hneabschlussstrichrechts.;.zeich |
| 18220 | 6e 65 61 62 73 63 68 6c 75 73 73 73 74 72 69 63 68 6f 62 65 6e 20 3b 20 79 73 6b 61 6c 69 65 72 | neabschlussstrichoben.;.yskalier |
| 18240 | 75 6e 67 20 3b 20 78 73 6b 61 6c 69 65 72 75 6e 67 20 3b 20 73 63 68 72 65 69 62 65 69 6e 6f 75 | ung.;.xskalierung.;.schreibeinou |
| 18260 | 74 70 75 74 76 61 72 69 61 62 6c 65 20 3b 20 2e 20 6f 72 64 6e 65 73 74 69 66 74 7a 75 20 3a 20 | tputvariable.;...ordnestiftzu.:. |
| 18280 | 70 65 6e 20 28 20 6b 72 65 75 7a 20 2c 20 31 20 29 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff | pen.(.kreuz.,.1.)............... |
| 182a0 | 5e 00 20 20 20 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 73 65 69 74 | ^.....gebeaufbildschirmaus.(seit |
| 182c0 | 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 64 61 72 73 74 65 | e,.modellkurzbezeichnung,.darste |
| 182e0 | 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 29 46 49 3b 2e ff ff ff ff | llungsname,.steuerzeile)FI;..... |
| 18300 | 5e 00 20 20 20 20 20 20 54 48 45 4e 20 76 65 72 73 65 6e 64 65 6f 75 74 70 75 74 20 28 64 73 74 | ^.......THEN.versendeoutput.(dst |
| 18320 | 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 | ,.modellkurzbezeichnung,.kopfzei |
| 18340 | 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff | le,.steuerzeile,plottask).;..... |
| 18360 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 18380 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 183a0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 183c0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
| 183e0 | ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff | ................................ |
 |
index : eumel-src.git | |
| Unnamed repository; edit this file 'description' to name the repository. | lars |
| summaryrefslogtreecommitdiff |
path: root/app/schulis-simulationssystem/3.0/data/chemistry/Chemie - Physik: Radioaktiver Zerfall 1 code info ds
blob: f6bbe2cce709ce7d6afd4b3943b95aadf1ddb29f (plain)