blob: 26dd66cc4b7580ca7736c8e775c275f410c82a4a (plain)

ofs	hex dump	ascii
0000	61 39 b0 2a 35 04 ff ff 50 ae ff 45 00 7a ff ff ff ff ff ff ff ff ff ff a0 ae ff 41 00 ff ff ff	a9.*5...P..E.z.............A....
0020	ff ff ff ff ff ff ff ff f0 ae ff 3e 00 ff ff ff ff ff ff ff ff ff ff ff 30 af ff 42 00 ff ff ff	...........>............0..B....
0040	ff ff ff ff ff ff ff ff 80 af ff 42 00 ff ff ff ff ff ff ff ff ff ff ff d0 af ff 15 00 ff ff ff	...........B....................
0060	ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff ff ff ff ff ff ff ff ff f0 af ff 2f 00 ff ff ff	.........................../....
0080	ff ff ff ff ff ff ff ff 30 b0 ff 3d 00 ff ff ff ff ff ff ff ff ff ff ff 70 b0 ff 3d 00 ff ff ff	........0..=............p..=....
00a0	ff ff ff ff ff ff ff ff b0 b0 ff 3d 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff	...........=....................
00c0	ff ff ff ff ff ff ff ff f0 b0 ff 22 00 ff ff ff ff ff ff ff ff ff ff ff 20 b1 ff 1f 00 ff ff ff	..........."....................
00e0	ff ff ff ff ff ff ff ff 50 b1 ff 2b 00 ff ff ff ff ff ff ff ff ff ff ff 80 b1 ff 21 00 ff ff ff	........P..+...............!....
0100	ff ff ff ff ff ff ff ff b0 b1 ff 43 00 ff ff ff ff ff ff ff ff ff ff ff 00 b2 ff 42 00 ff ff ff	...........C...............B....
0120	ff ff ff ff ff ff ff ff 50 b2 ff 40 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff	........P..@....................
0140	ff ff ff ff ff ff ff ff a0 b2 ff 41 00 ff ff ff ff ff ff ff ff ff ff ff f0 b2 ff 37 00 ff ff ff	...........A...............7....
0160	ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff ff ff ff ff ff ff ff ff 30 b3 ff 21 00 ff ff ff	........................0..!....
0180	ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff ff ff ff ff ff ff ff ff 60 b3 ff 3c 00 ff ff ff	........................`..<....
01a0	ff ff ff ff ff ff ff ff 50 c6 ff 40 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff	........P..@....................
01c0	ff ff ff ff ff ff ff ff e0 b3 ff 3c 00 ff ff ff ff ff ff ff ff ff ff ff a0 c6 ff 42 00 ff ff ff	...........<...............B....
01e0	ff ff ff ff ff ff ff ff 60 b4 ff 23 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff	........`..#....................
0200	ff ff ff ff ff ff ff ff 90 b4 ff 36 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	...........6...............zZz..
0220	ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	...........zZz.............zZz..
0240	ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	...........zZz.............zZz..
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 b0 2a ff 21 00 7a ff ff ff ff ff ff ff ff ff ff e0 2a ff 28 00 7a ff ff	.........*.!.z...........*.(.z..
0340	ff ff ff ff ff ff ff ff 10 2b ff 29 00 ff ff ff ff ff ff ff ff ff ff ff 40 2b ff 12 00 ff ff ff	.........+.)............@+......
0360	ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	...........zZz..................
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 d0 2b ff 21 00 7a ff ff ff ff ff ff ff ff ff ff 00 2c ff 0e 00 ff ff ff	.........+.!.z...........,......
0460	ff ff ff ff ff ff ff ff a0 2b 04 54 48 45 4e ff ff ff ff ff ff ff ff ff 80 2c ff 33 00 7a ff ff	.........+.THEN..........,.3.z..
0480	ff ff ff ff ff ff ff ff 60 2c 04 45 4c 53 45 ff ff ff ff ff ff ff ff ff c0 2c ff 2e 00 7a ff ff	........`,.ELSE..........,...z..
04a0	ff ff ff ff ff ff ff ff ff ff 04 46 49 3b 20 ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	...........FI;.............zZz..
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 50 df ff 42 00 41 4c 20 43 4f 4e 53 54 ff ff ff 10 e0 ff 2f 00 ff ff ff	........P..B.AL.CONST....../....
0780	ff ff ff ff ff ff ff ff 91 22 ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff b0 e1 ff 23 00 ff ff ff	.........".................#....
07a0	ff ff ff ff ff ff ff ff 51 12 ff 1c 00 ff ff ff ff ff ff ff ff ff ff ff 40 e3 ff 3b 00 ff ff ff	........Q...............@..;....
07c0	ff ff ff ff ff ff ff ff 00 e4 ff 37 00 ff ff ff ff ff ff ff ff ff ff ff d0 e4 ff 2c 00 ff ff ff	...........7...............,....
07e0	ff ff ff ff ff ff ff ff a0 e5 ff 2a 00 ff ff ff ff ff ff ff ff ff ff ff 70 e6 ff 22 00 ff ff ff	...........*............p.."....
0800	ff ff ff ff ff ff ff ff 21 13 ff 4d 00 ff ff ff ff ff ff ff ff ff ff ff 00 e8 ff 21 00 ff ff ff	........!..M...............!....
0820	ff ff ff ff ff ff ff ff d0 e8 ff 44 00 ff ff ff ff ff ff ff ff ff ff ff a0 e9 ff 1f 00 ff ff ff	...........D....................
0840	ff ff ff ff ff ff ff ff 70 ea ff 41 00 ff ff ff ff ff ff ff ff ff ff ff f1 13 ff 1d 00 ff ff ff	........p..A....................
0860	ff ff ff ff ff ff ff ff 00 ec ff 42 00 ff ff ff ff ff ff ff ff ff ff ff d0 ec ff 1e 00 ff ff ff	...........B....................
0880	ff ff ff ff ff ff ff ff a0 ed ff 42 00 ff ff ff ff ff ff ff ff ff ff ff 70 ee ff 1a 00 ff ff ff	...........B............p.......
08a0	ff ff ff ff ff ff ff ff 40 ef ff 49 00 ff ff ff ff ff ff ff ff ff ff ff 10 f0 ff 4a 00 ff ff ff	........@..I...............J....
08c0	ff ff ff ff ff ff ff ff e0 f0 ff 19 00 ff ff ff ff ff ff ff ff ff ff ff b0 f1 ff 39 00 ff ff ff	...........................9....
08e0	ff ff ff ff ff ff ff ff 80 f2 ff 21 00 ff ff ff ff ff ff ff ff ff ff ff 50 f3 ff 22 00 ff ff ff	...........!............P.."....
0900	ff ff ff ff ff ff ff ff 20 f4 ff 48 00 ff ff ff ff ff ff ff ff ff ff ff f0 f4 ff 11 00 ff ff ff	...........H....................
0920	ff ff ff ff ff ff ff ff c0 f5 ff 10 00 ff ff ff ff ff ff ff ff ff ff ff 90 f6 ff 10 00 ff ff ff	................................
0940	ff ff ff ff ff ff ff ff c1 14 ff 22 00 ff ff ff ff ff ff ff ff ff ff ff 20 f8 ff 18 00 ff ff ff	..........."....................
0960	ff ff ff ff ff ff ff ff 91 15 0c 20 20 49 46 20 69 6e 64 65 6d 6f 20 ff b0 f9 09 20 20 20 20 54	.............IF.indemo.........T
0980	48 45 4e 20 ff ff ff ff 80 fa ff 2f 00 ff ff ff ff ff ff ff ff ff ff ff 50 fb 09 20 20 20 20 45	HEN......../............P......E
09a0	4c 53 45 20 ff ff ff ff 20 fc ff 2b 00 49 46 20 69 6e 64 65 6d 6f 20 ff 61 16 06 20 20 46 49 20	LSE........+.IF.indemo..a....FI.
09c0	3b 45 4e 20 ff ff ff ff b0 fd 0a 20 20 65 6e 64 70 6c 6f 74 2e ff ff ff 80 fe ff 0e 00 20 20 45	;EN..........endplot...........E
09e0	4c 53 45 20 ff ff ff ff 50 ff ff 41 00 ff ff ff ff ff ff ff ff ff ff ff 21 00 0c 20 20 62 65 67	LSE.....P..A............!....beg
0a00	69 6e 70 6c 6f 74 3b ff 31 17 ff 23 00 65 6e 64 70 6c 6f 74 2e ff ff ff b1 01 ff 26 00 ff ff ff	inplot;.1..#.endplot.......&....
0a20	ff ff ff ff ff ff ff ff 81 02 ff 12 00 ff ff ff ff ff ff ff ff ff ff ff 51 24 03 20 20 2e 65 67	........................Q$....eg
0a40	69 6e 70 6c 6f 74 3b ff 01 18 ff 10 00 20 65 6e 64 20 70 6c 6f 74 2e 20 31 26 ff 19 00 ff ff ff	inplot;.......end.plot..1&......
0a60	ff ff ff ff ff ff ff ff 21 0f ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff 11 27 ff 18 00 2e ff ff	........!................'......
0a80	ff ff ff ff ff ff ff ff 61 2b ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 51 25 ff 20 00 20 65 6e	........a+..............Q%....en
0aa0	64 20 70 6c 6f 74 2e 20 d1 08 ff 0e 00 20 65 6e 64 20 70 6c 6f 74 2e 20 31 1c ff 11 00 20 65 6e	d.plot........end.plot..1.....en
0ac0	64 20 70 6c 6f 74 2e 20 01 1d 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff 21 0b ff 1d 00 20 65 6e	d.plot.........THEN.....!.....en
0ae0	64 20 70 6c 6f 74 2e 20 01 10 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 81 1a ff 14 00 20 65 6e	d.plot........................en
0b00	64 20 70 6c 6f 74 2e 20 81 0d 06 20 20 46 49 20 3b 45 4e 20 ff ff ff ff 51 0e ff 11 00 ff ff ff	d.plot.......FI.;EN.....Q.......
0b20	ff ff ff ff ff ff ff ff e1 1d 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff 81 11 ff 1c 00 ff ff ff	...............THEN.............
0b40	ff ff ff ff ff ff ff ff a1 1e ff 13 00 46 49 20 3b ff ff ff ff ff ff ff 71 23 ff 13 00 7a ff ff	.............FI.;.......q#...z..
0b60	ff ff ff ff ff ff ff ff e1 28 ff 13 00 20 20 54 48 45 4e 20 ff ff ff ff c1 29 09 20 20 20 20 54	.........(.....THEN......).....T
0b80	48 45 4e 20 ff ff ff ff 21 21 ff 25 00 ff ff ff ff ff ff ff ff ff ff ff c1 21 06 20 20 46 49 20	HEN.....!!.%.............!...FI.
0ba0	3b ff ff ff ff ff ff ff 91 2a ff 39 00 7a 46 49 3b ff ff ff ff ff ff ff 80 70 ff 22 00 20 20 54	;........*.9.zFI;........p."...T
0bc0	48 45 4e 20 ff ff ff ff 00 90 01 2e 00 ff ff ff ff ff ff ff ff ff ff ff 50 90 ff 10 00 46 49 20	HEN.....................P....FI.
0be0	3b ff ff ff ff ff ff ff d0 70 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff 00 a4 ff 4a 00 20 46 49	;........p.................J..FI
0c00	3b ff ff ff ff ff ff ff a0 90 ff 2a 00 ff ff ff ff ff ff ff ff ff ff ff 20 c9 01 2e 00 ff ff ff	;..........*....................
0c20	ff ff ff ff ff ff ff ff 70 d6 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 71 2c ff 24 00 ff ff ff	........p...............q,.$....
0c40	ff ff ff ff ff ff ff ff 70 c9 ff 10 00 ff ff ff ff ff ff ff ff ff ff ff c0 c9 ff 10 00 ff ff ff	........p.......................
0c60	ff ff ff ff ff ff ff ff 10 3b ff 18 00 ff ff ff ff ff ff ff ff ff ff ff d0 71 ff 16 00 ff ff ff	.........;...............q......
0c80	ff ff ff ff ff ff ff ff 50 a4 ff 1c 00 ff ff ff ff ff ff ff ff ff ff ff 00 72 ff 10 00 ff ff ff	........P................r......
0ca0	ff ff ff ff ff ff ff ff 80 a4 ff 2c 00 ff ff ff ff ff ff ff ff ff ff ff 40 72 01 2e 00 ff ff ff	...........,............@r......
0cc0	ff ff ff ff ff ff ff ff c0 a4 ff 16 00 ff ff ff ff ff ff ff ff ff ff ff a0 91 ff 35 00 ff ff ff	...........................5....
0ce0	ff ff ff ff ff ff ff ff d0 b4 ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff 21 37 ff 41 00 ff ff ff	........................!7.A....
0d00	ff ff ff ff ff ff ff ff 00 d7 ff 23 00 ff ff ff ff ff ff ff ff ff ff ff 20 3d ff 24 00 ff ff ff	...........#.............=.$....
0d20	ff ff ff ff ff ff ff ff 00 ca ff 4d 00 ff ff ff ff ff ff ff ff ff ff ff c1 2c 01 2e 00 ff ff ff	...........M.............,......
0d40	ff ff ff ff ff ff ff ff 20 b5 ff 14 00 ff ff ff ff ff ff ff ff ff ff ff 60 ba ff 3f 00 ff ff ff	........................`..?....
0d60	ff ff ff ff ff ff ff ff 30 3e ff 23 00 ff ff ff ff ff ff ff ff ff ff ff 50 d7 ff 24 00 ff ff ff	........0>.#............P..$....
0d80	ff ff ff ff ff ff ff ff 71 37 ff 4b 00 ff ff ff ff ff ff ff ff ff ff ff f0 3e 01 2e 00 ff ff ff	........q7.K.............>......
0da0	ff ff ff ff ff ff ff ff 40 73 ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff 80 73 ff 1c 00 ff ff ff	........@s...............s......
0dc0	ff ff ff ff ff ff ff ff 10 a5 ff 31 00 ff ff ff ff ff ff ff ff ff ff ff 70 92 ff 41 00 ff ff ff	...........1............p..A....
0de0	ff ff ff ff ff ff ff ff 10 74 ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff 60 a5 ff 33 00 ff ff ff	.........t..............`..3....
0e00	ff ff ff ff ff ff ff ff 00 93 ff 41 00 ff ff ff ff ff ff ff ff ff ff ff 11 2d 01 2e 00 ff ff ff	...........A.............-......
0e20	ff ff ff ff ff ff ff ff b0 ba ff 0e 00 ff ff ff ff ff ff ff ff ff ff ff f0 ba ff 13 00 ff ff ff	................................
0e40	ff ff ff ff ff ff ff ff 61 2d ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 20 d8 ff 11 00 ff ff ff	........a-......................
0e60	ff ff ff ff ff ff ff ff b0 bb 01 2e 00 ff ff ff ff ff ff ff ff ff ff ff 50 ca ff 16 00 ff ff ff	........................P.......
0e80	ff ff ff ff ff ff ff ff 70 d8 ff 17 00 ff ff ff ff ff ff ff ff ff ff ff a0 ca ff 13 00 ff ff ff	........p.......................
0ea0	ff ff ff ff ff ff ff ff e0 ca 0d 20 20 6f 72 64 6e 65 70 65 6e 7a 75 3b c0 d8 ff 1a 00 ff ff ff	.............ordnepenzu;........
0ec0	ff ff ff ff ff ff ff ff 90 74 ff 12 00 ff ff ff ff ff ff ff ff ff ff ff d0 41 ff 11 00 ff ff ff	.........t...............A......
0ee0	ff ff ff ff ff ff ff ff 00 42 ff 17 00 6f 72 64 6e 65 70 65 6e 7a 75 3b 00 bc ff 19 00 ff ff ff	.........B...ordnepenzu;........
0f00	ff ff ff ff ff ff ff ff 50 42 0b 6f 72 64 6e 65 70 65 6e 7a 75 3a ff ff 80 42 ff 18 00 ff ff ff	........PB.ordnepenzu:...B......
0f20	ff ff ff ff ff ff ff ff c0 74 01 2e 00 ff ff ff ff ff ff ff ff ff ff ff f0 74 ff 18 00 ff ff ff	.........t...............t......
0f40	ff ff ff ff ff ff ff ff b0 93 ff 17 00 64 6e 65 70 65 6e 7a 75 3a ff ff 20 43 ff 17 00 ff ff ff	.............dnepenzu:...C......
0f60	ff ff ff ff ff ff ff ff 20 75 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 70 43 01 2e 00 ff ff ff	.........u..............pC......
0f80	ff ff ff ff ff ff ff ff c0 43 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff c1 37 ff 1f 00 ff ff ff	.........C...............7......
0fa0	ff ff ff ff ff ff ff ff 60 75 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff e0 a5 01 2e 00 ff ff ff	........`u......................
0fc0	ff ff ff ff ff ff ff ff 70 44 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff 90 75 ff 27 00 ff ff ff	........pD...............u.'....
0fe0	ff ff ff ff ff ff ff ff e0 44 ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff e0 93 01 2e 00 ff ff ff	.........D......................
1000	ff ff ff ff ff ff ff ff 70 45 ff 10 00 ff ff ff ff ff ff ff ff ff ff ff e0 75 ff 17 00 ff ff ff	........pE...............u......
1020	ff ff ff ff ff ff ff ff 10 a6 ff 17 00 ff ff ff ff ff ff ff ff ff ff ff 30 76 ff 28 00 ff ff ff	........................0v.(....
1040	ff ff ff ff ff ff ff ff 60 a6 01 2e 00 6b 61 6c 69 65 72 75 6e 67 3b 20 30 94 ff 15 00 6b 61 6c	........`....kalierung;.0....kal
1060	69 65 72 75 6e 67 3b 20 f0 d8 ff 4a 00 ff ff ff ff ff ff ff ff ff ff ff 40 d9 ff 34 00 ff ff ff	ierung;....J............@..4....
1080	ff ff ff ff ff ff ff ff 30 cb ff 17 00 ff ff ff ff ff ff ff ff ff ff ff 30 bc ff 14 00 6b 61 6c	........0...............0....kal
10a0	69 65 72 75 6e 67 3b 20 b1 2d ff 16 00 6b 61 6c 69 65 72 75 6e 67 3b 20 80 bc ff 41 00 6b 61 6c	ierung;..-...kalierung;....A.kal
10c0	69 65 72 75 6e 67 3b 20 d0 bc ff 1a 00 6b 61 6c 69 65 72 75 6e 67 3b 20 80 cb ff 20 00 ff ff ff	ierung;......kalierung;.........
10e0	ff ff ff ff ff ff ff ff 90 d9 ff 3b 00 ff ff ff ff ff ff ff ff ff ff ff d0 cb ff 3b 00 ff ff ff	...........;...............;....
1100	ff ff ff ff ff ff ff ff 20 cc ff 0f 00 ff ff ff ff ff ff ff ff ff ff ff 60 cc ff 10 00 6b 61 6c	........................`....kal
1120	69 65 72 75 6e 67 3b 20 01 2e ff 10 00 6b 61 6c 69 65 72 75 6e 67 3b 20 41 2e ff 0e 00 6b 61 6c	ierung;......kalierung;.A....kal
1140	69 65 72 75 6e 67 3b 20 d0 47 ff 0e 00 6b 61 6c 69 65 72 75 6e 67 3b 20 f0 47 ff 0f 00 6b 61 6c	ierung;..G...kalierung;..G...kal
1160	69 65 72 75 6e 67 3b 20 10 48 0d 6f 72 64 6e 65 73 74 69 66 74 7a 75 3a 30 48 ff 13 00 ff ff ff	ierung;..H.ordnestiftzu:0H......
1180	ff ff ff ff ff ff ff ff 50 48 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff 70 48 ff 0e 00 ff ff ff	........PH..............pH......
11a0	ff ff ff ff ff ff ff ff 90 48 ff 14 00 64 6e 65 73 74 69 66 74 7a 75 3a b0 48 ff 14 00 ff ff ff	.........H...dnestiftzu:.H......
11c0	ff ff ff ff ff ff ff ff d0 48 ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff f0 48 ff 1b 00 ff ff ff	.........H...............H......
11e0	ff ff ff ff ff ff ff ff 10 49 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff 40 49 ff 0e 00 ff ff ff	.........I..............@I......
1200	ff ff ff ff ff ff ff ff 60 49 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 90 49 ff 13 00 ff ff ff	........`I...............I......
1220	ff ff ff ff ff ff ff ff c0 49 ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff f0 49 ff 1a 00 ff ff ff	.........I...............I......
1240	ff ff ff ff ff ff ff ff b0 a6 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff 00 77 ff 0f 00 ff ff ff	.........................w......
1260	ff ff ff ff ff ff ff ff 60 4a ff 17 00 ff ff ff ff ff ff ff ff ff ff ff 30 77 ff 15 00 ff ff ff	........`J..............0w......
1280	ff ff ff ff ff ff ff ff 60 77 ff 19 00 6b 61 6c 69 65 72 75 6e 67 3a 20 00 95 ff 1e 00 ff ff ff	........`w...kalierung:.........
12a0	ff ff ff ff ff ff ff ff 30 95 ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff 90 77 ff 20 00 68 6e 69	........0................w...hni
12c0	74 74 70 75 6e 6b 74 3a e0 a6 ff 0f 00 ff ff ff ff ff ff ff ff ff ff ff 10 4b ff 1f 00 6b 61 6c	ttpunkt:.................K...kal
12e0	69 65 72 75 6e 67 3a 20 40 4b ff 17 00 6b 61 6c 69 65 72 75 6e 67 3a 20 70 4b ff 13 00 6b 61 6c	ierung:.@K...kalierung:.pK...kal
1300	69 65 72 75 6e 67 3a 20 a0 4b ff 1f 00 68 6e 69 74 74 70 75 6e 6b 74 3a d0 4b ff 19 00 68 6e 69	ierung:..K...hnittpunkt:.K...hni
1320	74 74 70 75 6e 6b 74 3a 00 4c ff 26 00 68 6e 69 74 74 70 75 6e 6b 74 3a c0 77 ff 1e 00 ff ff ff	ttpunkt:.L.&.hnittpunkt:.w......
1340	ff ff ff ff ff ff ff ff f0 77 ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff 20 78 ff 26 00 6b 61 6c	.........w...............x.&.kal
1360	69 65 72 75 6e 67 3a 20 50 78 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 80 78 0c 78 73 6b 61 6c	ierung:.Px...............x.xskal
1380	69 65 72 75 6e 67 3a 20 60 95 ff 0f 00 68 6e 69 74 74 70 75 6e 6b 74 3a b0 4c ff 10 00 6b 61 6c	ierung:.`....hnittpunkt:.L...kal
13a0	69 65 72 75 6e 67 3a 20 e0 4c 01 2e 00 68 6e 69 74 74 70 75 6e 6b 74 3a 20 4d 0d 73 63 68 6e 69	ierung:..L...hnittpunkt:.M.schni
13c0	74 74 70 75 6e 6b 74 3a 60 4d ff 1b 00 68 6e 69 74 74 70 75 6e 6b 74 3a b0 4d ff 16 00 73 63 68	ttpunkt:`M...hnittpunkt:.M...sch
13e0	72 69 66 74 65 3a 20 ff d0 78 ff 15 00 73 63 68 72 69 66 74 65 3a 20 ff 10 4e ff 17 00 68 6e 69	rifte:...x...schrifte:...N...hni
1400	74 74 70 75 6e 6b 74 3a 50 4e ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff 90 4e ff 1c 00 ff ff ff	ttpunkt:PN...............N......
1420	ff ff ff ff ff ff ff ff 10 a7 ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff 90 95 0d 20 20 62 65 73	.............................bes
1440	63 68 72 69 66 74 65 3b 60 79 01 2e 00 ff ff ff ff ff ff ff ff ff ff ff a0 79 ff 0e 00 73 63 68	chrifte;`y...............y...sch
1460	72 69 66 74 65 3a 20 ff e0 79 ff 10 00 ff ff ff ff ff ff ff ff ff ff ff 60 a7 ff 0e 00 62 65 73	rifte:...y..............`....bes
1480	63 68 72 69 66 74 65 3b 20 96 01 2e 00 6b 61 6c 69 65 72 75 6e 67 3a 20 50 bd 0b 62 65 73 63 68	chrifte;.....kalierung:.P..besch
14a0	72 69 66 74 65 3a 20 20 a0 bd ff 16 00 6b 61 6c 69 65 72 75 6e 67 3a 20 d0 d9 ff 39 00 ff ff ff	rifte:.......kalierung:....9....
14c0	ff ff ff ff ff ff ff ff e0 bd ff 2e 00 ff ff ff ff ff ff ff ff ff ff ff e0 cc ff 47 00 73 63 68	...........................G.sch
14e0	72 69 66 74 65 3a ff ff 80 50 ff 21 00 ff ff ff ff ff ff ff ff ff ff ff d0 50 ff 1d 00 ff ff ff	rifte:...P.!.............P......
1500	ff ff ff ff ff ff ff ff 20 da ff 47 00 6b 61 6c 69 65 72 75 6e 67 3a 20 60 51 ff 1c 00 ff ff ff	...........G.kalierung:.`Q......
1520	ff ff ff ff ff ff ff ff 30 cd ff 48 00 6b 61 6c 69 65 72 75 6e 67 3a 20 e0 51 09 20 20 20 20 30	........0..H.kalierung:..Q.....0
1540	2e 30 2c 20 ff ff ff ff 30 52 ff 21 00 6b 61 6c 69 65 72 75 6e 67 3a 20 a0 96 0c 79 73 6b 61 6c	.0,.....0R.!.kalierung:....yskal
1560	69 65 72 75 6e 67 3a ff c0 52 ff 17 00 ff ff ff ff ff ff ff ff ff ff ff b0 a7 ff 11 00 20 20 30	ierung:..R.....................0
1580	2e 30 2c 20 ff ff ff ff b0 7a ff 0e 00 ff ff ff ff ff ff ff ff ff ff ff 00 7b ff 0f 00 6b 61 6c	.0,......z...............{...kal
15a0	69 65 72 75 6e 67 3a ff 30 97 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff 90 7b ff 15 00 ff ff ff	ierung:.0................{......
15c0	ff ff ff ff ff ff ff ff 00 a8 ff 1c 00 ff ff ff ff ff ff ff ff ff ff ff 80 97 ff 1c 00 49 4e 54	.............................INT
15e0	20 56 41 52 20 69 3b ff 60 be 0c 62 65 73 63 68 72 69 66 74 65 79 3a ff 80 cd ff 15 00 ff ff ff	.VAR.i;.`..beschriftey:.........
1600	ff ff ff ff ff ff ff ff b0 be ff 4b 00 ff ff ff ff ff ff ff ff ff ff ff 00 bf ff 19 00 ff ff ff	...........K....................
1620	ff ff ff ff ff ff ff ff d0 cd ff 47 00 73 63 68 72 69 66 74 65 79 3a ff 50 bf ff 21 00 49 4e 54	...........G.schriftey:.P..!.INT
1640	20 56 41 52 20 69 3b ff 20 ce ff 1c 00 49 4e 54 20 56 41 52 20 69 3b ff 70 ce ff 42 00 ff ff ff	.VAR.i;......INT.VAR.i;.p..B....
1660	ff ff ff ff ff ff ff ff 81 2e ff 29 00 46 49 3b ff ff ff ff ff ff ff ff 00 cf ff 48 00 52 45 50	...........).FI;...........H.REP
1680	ff ff ff ff ff ff ff ff a0 bf 07 20 20 30 2e 30 2c 20 ff ff ff ff ff ff d1 2e ff 21 00 50 45 52	.............0.0,..........!.PER
16a0	3b 2e 20 ff ff ff ff ff 70 da 0d 6c 69 65 66 65 72 65 6b 72 65 75 7a 3a 21 2f ff 14 00 46 49 3b	;.......p..lieferekreuz:!/...FI;
16c0	ff ff ff ff ff ff ff ff 50 cf 0b 20 20 74 72 61 6e 73 66 65 72 2e 3b ff 50 98 ff 21 00 ff ff ff	........P....transfer.;.P..!....
16e0	ff ff ff ff ff ff ff ff f1 37 ff 45 00 65 66 65 72 65 6b 72 65 75 7a 3a 00 56 ff 0e 00 46 49 3b	.........7.E.eferekreuz:.V...FI;
1700	ff ff ff ff ff ff ff ff 41 38 ff 38 00 74 72 61 6e 73 66 65 72 2e 20 ff 50 56 ff 1c 00 ff ff ff	........A8.8.transfer...PV......
1720	ff ff ff ff ff ff ff ff 71 2f ff 14 00 46 49 3b 3b 2e 20 ff ff ff ff ff 20 c0 ff 21 00 ff ff ff	........q/...FI;;..........!....
1740	ff ff ff ff ff ff ff ff d0 56 ff 27 00 46 49 3b ff ff ff ff ff ff ff ff 10 57 ff 15 00 52 45 50	.........V.'.FI;.........W...REP
1760	20 ff ff ff ff ff ff ff 60 57 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff a0 cf ff 28 00 50 45 52	........`W.....THEN........(.PER
1780	3b 2e 20 ff ff ff ff ff d0 7d 09 20 20 20 20 45 4c 53 45 20 ff ff ff ff 00 58 ff 34 00 20 20 54	;........}.....ELSE......X.4...T
17a0	48 45 4e 20 45 4e 20 ff 81 38 ff 31 00 52 45 50 20 ff ff ff ff ff ff ff 70 58 ff 14 00 20 20 45	HEN.EN...8.1.REP........pX.....E
17c0	4c 53 45 20 ff ff ff ff c1 2f 0d 20 20 20 20 20 20 20 20 54 48 45 4e 20 f0 a8 ff 2b 00 46 49 3b	LSE....../.........THEN....+.FI;
17e0	ff ff ff ff ff ff ff ff 80 7e ff 14 00 52 45 50 3b 2e 20 48 45 4e 20 ff 20 59 0d 20 20 20 20 20	.........~...REP;..HEN...Y......
1800	20 20 20 54 48 45 4e 20 50 59 ff 29 00 50 45 52 3b 2e 20 ff ff ff ff ff d0 7e 0a 20 20 20 20 20	...THEN.PY.).PER;........~......
1820	20 46 49 20 3b ff ff ff 10 7f 07 20 20 20 46 49 20 3b 20 54 48 45 4e 20 e0 59 ff 15 00 ff ff ff	.FI.;.........FI.;.THEN..Y......
1840	ff ff ff ff ff ff ff ff f0 98 09 20 20 20 20 54 48 45 4e 20 3b ff ff ff c1 38 ff 49 00 20 46 49	...............THEN.;....8.I..FI
1860	20 3b 54 48 45 4e 20 ff 80 5a ff 1d 00 52 45 50 20 ff ff ff ff ff ff ff 40 a9 08 20 20 20 20 45	.;THEN...Z...REP........@......E
1880	4c 53 45 20 20 ff ff ff b0 99 ff 2d 00 20 20 20 20 20 54 48 45 4e 20 ff e0 cf 0d 20 20 20 20 20	LSE........-......THEN..........
18a0	20 20 20 20 52 45 50 20 a0 c0 ff 20 00 20 20 20 20 20 54 48 45 4e 20 ff 70 b5 ff 0e 00 20 52 45	....REP...........THEN..p.....RE
18c0	50 20 ff ff ff ff ff ff 40 80 07 20 20 20 46 49 20 3b ff ff ff ff ff ff 00 db 01 2e 20 20 50 45	P.......@.....FI.;............PE
18e0	52 20 3b ff ff ff ff ff f0 c0 ff 14 00 ff ff ff ff ff ff ff ff ff ff ff 30 d0 0c 20 20 49 46 20	R.;.....................0....IF.
1900	69 6e 64 65 6d 6f 20 ff 50 db 09 20 20 20 20 54 48 45 4e 20 6d 6f 20 ff d0 a9 ff 15 00 20 20 54	indemo..P......THEN.mo.........T
1920	48 45 4e 20 ff ff ff ff 30 9a 06 20 20 46 49 20 3b 48 45 4e ff ff ff ff 80 d0 ff 15 00 46 49 20	HEN.....0....FI.;HEN.........FI.
1940	3b ff ff ff ff ff ff ff 20 aa 06 20 20 52 45 50 20 ff ff ff ff ff ff ff 90 db ff 1b 00 52 45 50	;............REP.............REP
1960	20 20 46 49 20 ff ff ff d0 80 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff d0 d0 ff 1a 00 20 20 20	..FI.............THEN...........
1980	20 54 48 45 4e 20 ff ff 50 81 ff 1c 00 20 20 20 20 50 45 52 2e ff ff ff 80 c1 0b 20 20 20 20 20	.THEN...P........PER............
19a0	20 54 48 45 4e 20 ff ff 11 39 ff 4b 00 20 20 20 20 54 48 45 4e 20 ff ff 01 30 ff 13 00 20 20 20	.THEN....9.K.....THEN....0......
19c0	54 48 45 4e ff ff ff ff e0 db ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 20 9b ff 1c 00 20 20 20	THEN............................
19e0	20 20 46 49 20 ff ff ff 20 d1 ff 18 00 20 50 45 52 2e ff ff ff ff ff ff 30 dc 0d 20 20 20 20 20	..FI..........PER.......0.......
1a00	20 20 20 54 48 45 4e 20 f0 81 ff 15 00 20 20 20 20 54 48 45 4e 20 ff ff 70 d1 ff 1e 00 20 50 45	...THEN..........THEN...p.....PE
1a20	52 2e 45 4e 2e ff ff ff 51 30 0d 20 20 20 20 20 20 20 20 45 4c 53 45 20 c0 b5 ff 1e 00 52 45 50	R.EN....Q0.........ELSE......REP
1a40	20 2e ff ff ff ff ff ff 70 5e 09 20 20 20 20 20 20 46 49 20 ff ff ff ff d0 c1 07 20 20 50 45 52	........p^.......FI..........PER
1a60	20 2e 45 50 ff ff ff ff e0 5e ff 0f 00 20 20 20 20 52 45 50 2e ff ff ff 20 5f 06 20 20 52 45 50	..EP.....^.......REP....._...REP
1a80	20 20 54 48 45 4e 20 ff 60 5f ff 17 00 20 20 20 54 48 45 4e 2e ff ff ff 10 c2 ff 39 00 20 20 20	..THEN..`_......THEN.......9....
1aa0	20 20 54 48 45 4e 20 ff e0 5f 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff 20 82 ff 1a 00 20 20 20	..THEN..._.......THEN...........
1ac0	20 20 20 46 49 20 3b ff 40 60 0b 20 20 20 20 20 20 45 4c 53 45 20 ff ff 60 82 ff 13 00 20 20 20	...FI.;.@`.......ELSE...`.......
1ae0	20 54 48 45 4e 20 ff ff a0 60 ff 1c 00 ff ff ff ff ff ff ff ff ff ff ff e0 60 08 20 20 20 20 46	.THEN....`...............`.....F
1b00	49 20 3b 52 2e ff ff ff a0 82 07 20 20 50 45 52 20 3b ff ff ff ff ff ff e0 82 03 20 20 2e 20 20	I.;R.........PER.;..............
1b20	20 54 48 45 4e 20 ff ff 80 61 ff 12 00 20 20 52 45 50 20 ff ff ff ff ff c0 61 ff 1a 00 ff ff ff	.THEN....a.....REP.......a......
1b40	ff ff ff ff ff ff ff ff 10 62 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff 50 62 ff 14 00 20 20 20	.........b..............Pb......
1b60	54 48 45 4e ff ff ff ff d0 aa ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff 00 9c 03 20 20 2e 20 20	THEN............................
1b80	54 48 45 4e ff ff ff ff 60 83 ff 16 00 20 20 20 20 20 20 46 49 20 ff ff 50 9c 03 7a 5a 7a 50 45	THEN....`..........FI...P..zZzPE
1ba0	52 2e ff ff ff ff ff ff 00 b6 0d 20 20 20 20 20 20 20 20 54 48 45 4e 20 00 84 ff 15 00 ff ff ff	R..................THEN.........
1bc0	ff ff ff ff ff ff ff ff 40 84 ff 1e 00 20 20 20 20 50 45 52 2e ff ff ff 50 ab 0d 20 20 20 20 20	........@........PER....P.......
1be0	20 20 20 45 4c 53 45 20 60 63 ff 1e 00 20 20 20 20 50 45 52 2e ff ff ff 40 b6 09 20 20 20 20 20	...ELSE.`c.......PER....@.......
1c00	20 46 49 20 ff ff ff ff f0 63 07 20 20 50 45 52 20 2e ff ff ff ff ff ff 40 64 ff 0f 00 20 20 52	.FI......c...PER........@d.....R
1c20	45 50 20 49 20 ff ff ff 90 64 06 20 20 52 45 50 20 2e ff ff ff ff ff ff 90 b6 ff 17 00 ff ff ff	EP.I.....d...REP................
1c40	ff ff ff ff ff ff ff ff d0 9c ff 34 00 ff ff ff ff ff ff ff ff ff ff ff a0 ab 0b 20 20 20 20 20	...........4....................
1c60	20 54 48 45 4e 20 ff ff 50 c2 ff 1a 00 20 20 20 20 20 46 49 20 ff ff ff d0 84 0b 20 20 20 20 20	.THEN...P.........FI............
1c80	20 45 4c 53 45 20 ff ff 20 85 ff 13 00 20 20 20 20 20 46 49 20 ff ff ff 60 85 ff 1c 00 20 50 45	.ELSE.............FI....`.....PE
1ca0	52 2e ff ff ff ff ff ff b0 85 08 20 20 20 20 46 49 20 3b ff ff ff ff ff 00 86 07 20 20 50 45 52	R..............FI.;..........PER
1cc0	20 3b 3b 20 ff ff ff ff e0 ab 03 20 20 2e 20 50 45 52 3b 20 ff ff ff ff 50 9d ff 12 00 20 20 50	.;;............PER;.....P......P
1ce0	45 52 3b 20 ff ff ff ff 30 ac ff 1a 00 20 20 52 45 50 20 ff ff ff ff ff e0 9d ff 15 00 20 20 20	ER;.....0......REP..............
1d00	20 20 46 49 20 ff ff ff 30 9e ff 19 00 20 50 45 52 2e ff ff ff ff ff ff 80 9e ff 30 00 ff ff ff	..FI....0.....PER..........0....
1d20	ff ff ff ff ff ff ff ff e0 b6 ff 4c 00 ff ff ff ff ff ff ff ff ff ff ff 70 dc ff 18 00 ff ff ff	...........L............p.......
1d40	ff ff ff ff ff ff ff ff b0 d1 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff a0 c2 ff 18 00 ff ff ff	...............THEN.............
1d60	ff ff ff ff ff ff ff ff 90 67 ff 2e 00 50 45 52 3b 2e 20 ff ff ff ff ff e0 67 09 20 20 20 20 54	.........g...PER;........g.....T
1d80	48 45 4e 20 ff ff ff ff 30 68 ff 4a 00 ff ff ff ff ff ff ff ff ff ff ff f0 c2 ff 13 00 52 45 50	HEN.....0h.J.................REP
1da0	45 50 20 ff ff ff ff ff 30 b7 06 20 20 46 49 20 2e ff ff ff ff ff ff ff f0 d1 ff 19 00 52 45 50	EP......0....FI..............REP
1dc0	3b 2e 20 ff ff ff ff ff 00 69 06 20 20 52 45 50 20 20 46 49 20 ff ff ff 30 d2 ff 24 00 20 50 45	;........i...REP..FI....0..$..PE
1de0	52 2e 20 ff ff ff ff ff 70 c3 07 20 20 50 45 52 20 2e 46 49 20 ff ff ff 80 69 ff 20 00 20 50 45	R.......p....PER..FI.....i....PE
1e00	52 2e 20 ff ff ff ff ff c0 dc ff 0e 00 20 20 52 45 50 20 49 20 ff ff ff 40 88 06 20 20 52 45 50	R..............REP.I....@....REP
1e20	20 2e ff ff ff ff ff ff 90 88 ff 13 00 52 45 50 ff ff ff ff ff ff ff ff e0 88 ff 18 00 20 20 50	.............REP...............P
1e40	45 52 3b 20 ff ff ff ff 70 d2 ff 3c 00 50 45 52 3b 2e 20 ff ff ff ff ff 80 ac 0b 20 20 20 20 20	ER;.....p..<.PER;...............
1e60	20 54 48 45 4e 20 ff ff 40 6a ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff 10 9f ff 26 00 20 20 52	.THEN...@j.................&...R
1e80	45 50 20 ff ff ff ff ff d0 6a 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff 20 6b ff 15 00 ff ff ff	EP.......j.......THEN....k......
1ea0	ff ff ff ff ff ff ff ff 70 b7 ff 21 00 ff ff ff ff ff ff ff ff ff ff ff a0 89 ff 26 00 ff ff ff	........p..!...............&....
1ec0	ff ff ff ff ff ff ff ff b0 de ff 22 00 ff ff ff ff ff ff ff ff ff ff ff 60 9f 0b 20 20 20 20 20	..........."............`.......
1ee0	20 54 48 45 4e 20 ff ff c0 b7 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff b0 c3 ff 33 00 50 45 52	.THEN......................3.PER
1f00	3b 2e 20 ff ff ff ff ff c0 ac ff 40 00 20 20 20 20 20 46 49 20 ff ff ff e0 9f ff 0f 00 52 45 50	;..........@......FI.........REP
1f20	52 2e ff ff ff ff ff ff 00 b8 ff 1e 00 20 20 52 45 50 20 ff ff ff ff ff 50 b8 ff 0f 00 50 45 52	R..............REP......P....PER
1f40	3b 2e 20 ff ff ff ff ff 10 ad ff 2c 00 ff ff ff ff ff ff ff ff ff ff ff 70 a0 0c 20 20 20 20 20	;..........,............p.......
1f60	20 20 20 46 49 20 3b ff 20 8b ff 1c 00 20 20 52 45 50 20 49 20 ff ff ff 70 8b 0b 20 20 20 20 20	...FI.;........REP.I....p.......
1f80	20 54 48 45 4e 20 ff ff b0 8b ff 4b 00 20 50 45 52 2e ff ff ff ff ff ff 00 8c ff 13 00 ff ff ff	.THEN......K..PER...............
1fa0	ff ff ff ff ff ff ff ff 10 dd ff 1b 00 20 20 50 45 52 3b 20 ff ff ff ff 50 ad ff 19 00 20 20 50	...............PER;.....P......P
1fc0	45 52 3b 20 ff ff ff ff e0 a0 0c 20 20 20 20 20 20 20 54 48 45 4e 20 ff a0 ad ff 15 00 ff ff ff	ER;...............THEN..........
1fe0	ff ff ff ff ff ff ff ff 70 a1 ff 4c 00 20 20 20 20 20 46 49 20 ff ff ff c0 a1 ff 15 00 20 50 45	........p..L......FI..........PE
2000	52 2e ff ff ff ff ff ff 90 b8 ff 26 00 7a ff ff ff ff ff ff ff ff ff ff f0 ad ff 1c 00 ff ff ff	R..........&.z..................
2020	ff ff ff ff ff ff ff ff 50 a2 0c 20 20 20 20 20 20 20 54 48 45 4e 20 ff a1 30 ff 39 00 20 20 50	........P.........THEN...0.9...P
2040	45 52 3b 20 ff ff ff ff 40 c4 08 20 20 20 20 20 46 49 20 ff ff ff ff ff 00 df 07 20 20 50 45 52	ER;.....@.......FI...........PER
2060	20 2e ff ff ff ff ff ff d0 c4 ff 14 00 7a ff ff ff ff ff ff ff ff ff ff 20 c5 ff 1e 00 7a ff ff	.............z...............z..
2080	ff ff ff ff ff ff ff ff c0 d2 03 20 20 2e ff ff ff ff ff ff ff ff ff ff 10 d3 0c 67 69 62 6d 65	...........................gibme
20a0	6e 75 65 61 75 73 3a ff b0 c5 ff 17 00 20 50 45 52 2e ff ff ff ff ff ff e1 30 ff 21 00 ff ff ff	nueaus:.......PER........0.!....
20c0	ff ff ff ff ff ff ff ff 50 d3 ff 22 00 ff ff ff ff ff ff ff ff ff ff ff 60 dd ff 21 00 20 20 20	........P.."............`..!....
20e0	20 20 46 49 20 ff ff ff b0 dd ff 22 00 20 50 45 52 2e ff ff ff ff ff ff f0 dd ff 22 00 ff ff ff	..FI......."..PER.........."....
2100	ff ff ff ff ff ff ff ff 40 de ff 0f 00 ff ff ff ff ff ff ff ff ff ff ff e0 d3 05 20 20 20 20 2e	........@.......................
2120	ff ff ff ff ff ff ff ff 90 de ff 1e 00 20 20 50 45 52 3b 20 ff ff ff ff 10 d4 ff 21 00 ff ff ff	...............PER;........!....
2140	ff ff ff ff ff ff ff ff 60 d4 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff a0 d4 ff 28 00 ff ff ff	........`..................(....
2160	ff ff ff ff ff ff ff ff f0 d4 ff 12 00 ff ff ff ff ff ff ff ff ff ff ff 11 31 ff 46 00 7a ff ff	.........................1.F.z..
2180	ff ff ff ff ff ff ff ff 60 d5 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 80 d5 06 20 20 52 45 50	........`....................REP
21a0	20 ff ff ff ff ff ff ff b0 d5 ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff d0 d5 07 20 20 50 45 52	.............................PER
21c0	20 3b ff ff ff ff ff ff 00 d6 03 20 20 2e ff ff ff ff ff ff ff ff ff ff 61 31 ff 19 00 7a ff ff	.;......................a1...z..
21e0	ff ff ff ff ff ff ff ff 81 31 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 06 20 20 52 45 50	.........1...................REP
2200	20 ff ff ff ff ff ff ff a1 31 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff c1 31 ff 18 00 ff ff ff	.........1...............1......
2220	ff ff ff ff ff ff ff ff e1 31 ff 3c 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 0b 20 20 20 20 20	.........1.<....................
2240	20 54 48 45 4e 20 ff ff 21 32 ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff 41 32 ff 26 00 ff ff ff	.THEN...!2..............A2.&....
2260	ff ff ff ff ff ff ff ff ff ff 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff 71 32 ff 15 00 ff ff ff	.................THEN...q2......
2280	ff ff ff ff ff ff ff ff 91 32 ff 36 00 ff ff ff ff ff ff ff ff ff ff ff d1 32 ff 4d 00 ff ff ff	.........2.6.............2.M....
22a0	ff ff ff ff ff ff ff ff 21 33 ff 0e 00 ff ff ff ff ff ff ff ff ff ff ff 31 33 ff 37 00 ff ff ff	........!3..............13.7....
22c0	ff ff ff ff ff ff ff ff 71 33 ff 0f 00 ff ff ff ff ff ff ff ff ff ff ff 91 33 ff 1e 00 ff ff ff	........q3...............3......
22e0	ff ff ff ff ff ff ff ff b1 33 ff 21 00 ff ff ff ff ff ff ff ff ff ff ff e1 33 ff 0f 00 ff ff ff	.........3.!.............3......
2300	ff ff ff ff ff ff ff ff 01 34 ff 25 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 0b 20 20 20 20 20	.........4.%....................
2320	20 20 20 46 49 20 ff ff 31 34 ff 18 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 0b 20 20 20 20 20	...FI...14......................
2340	20 54 48 45 4e 20 ff ff 51 34 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff 71 34 ff 4c 00 ff ff ff	.THEN...Q4..............q4.L....
2360	ff ff ff ff ff ff ff ff c1 34 ff 19 00 ff ff ff ff ff ff ff ff ff ff ff e1 34 ff 21 00 ff ff ff	.........4...............4.!....
2380	ff ff ff ff ff ff ff ff 11 35 ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 0b 20 20 20 20 20	.........5......................
23a0	20 54 48 45 4e 20 ff ff 31 35 ff 39 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 07 20 20 20 20 46	.THEN...15.9...................F
23c0	49 20 ff ff ff ff ff ff ff ff 07 20 20 50 45 52 20 2e ff ff ff ff ff ff 71 35 ff 13 00 ff ff ff	I............PER........q5......
23e0	ff ff ff ff ff ff ff ff 91 35 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff b1 35 ff 1f 00 ff ff ff	.........5...............5......
2400	ff ff ff ff ff ff ff ff e1 35 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 11 36 ff 1f 00 ff ff ff	.........5...............6......
2420	ff ff ff ff ff ff ff ff 41 36 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 71 36 ff 11 00 ff ff ff	........A6..............q6......
2440	ff ff ff ff ff ff ff ff 91 36 ff 12 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 0d 20 20 7a 65 69	.........6...................zei
2460	67 65 6d 65 6e 75 65 2e b1 36 ff 19 00 ff ff ff ff ff ff ff ff ff ff ff d1 36 ff 21 00 ff ff ff	gemenue..6...............6.!....
2480	ff ff ff ff ff ff ff ff 01 37 ff 16 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	.........7.................zZz..
24a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
24c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
24e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2500	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2520	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2540	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2560	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2580	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
25a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
25c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
25e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2600	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2620	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2640	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2660	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
2680	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
26a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 64 20 63 73 20 3a 3d 20 2d 6b 31 20 2a 20	..................d.cs.:=.-k1.*.
26c0	63 73 20 2a 20 63 65 20 2b 20 6b 32 20 2a 20 63 65 73 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	cs.*.ce.+.k2.*.ces;.............
26e0	2e 00 64 20 63 65 20 3a 3d 20 2d 6b 31 20 2a 20 63 73 20 2a 20 63 65 20 2b 20 28 6b 32 20 2b 20	..d.ce.:=.-k1.*.cs.*.ce.+.(k2.+.
2700	6b 33 29 20 2a 20 63 65 73 3b ff ff ff ff ff ff 2e 00 64 20 63 65 73 3a 3d 20 20 6b 31 20 2a 20	k3).*.ces;........d.ces:=..k1.*.
2720	63 73 20 2a 20 63 65 20 2d 20 28 6b 32 20 2b 20 6b 33 29 20 2a 20 63 65 73 3b 20 ff ff ff ff ff	cs.*.ce.-.(k2.+.k3).*.ces;......
2740	1e 00 64 20 63 70 20 3a 3d 20 20 6b 33 20 2a 20 63 65 73 3b ff ff ff ff ff ff ff ff ff ff ff ff	..d.cp.:=..k3.*.ces;............
2760	1e 00 76 20 6d 61 78 20 3a 3d 20 6b 33 2a 20 28 63 65 73 20 2b 20 63 65 29 3b 20 ff ff ff ff ff	..v.max.:=.k3*.(ces.+.ce);......
2780	1e 00 6b 20 20 20 20 20 3a 3d 20 28 6b 32 20 2b 20 6b 33 29 20 2f 20 6b 31 3b 20 ff ff ff ff ff	..k.....:=.(k2.+.k3)./.k1;......
27a0	2e 00 76 20 20 20 20 20 3a 3d 20 76 20 6d 61 78 20 2a 20 63 73 20 2f 20 28 6b 20 2b 20 63 73 29	..v.....:=.v.max.*.cs./.(k.+.cs)
27c0	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 52 45 41 4c 20 43 4f 4e 53 54 20 78 79 7a	;.................REAL.CONST.xyz
27e0	20 3a 3d 20 28 6b 32 20 2b 20 6b 33 20 2b 20 63 73 29 3b 29 3b 20 ff ff ff ff ff ff ff ff ff ff	.:=.(k2.+.k3.+.cs););...........
2800	2e 00 49 46 20 20 78 79 7a 20 3d 20 30 2e 30 20 20 20 20 3a 3d 20 28 6b 32 20 2b 20 6b 33 29 20	..IF..xyz.=.0.0....:=.(k2.+.k3).
2820	2f 20 6b 31 3b 20 ff ff ff ff ff ff ff ff ff ff 2e 00 72 65 7a 20 76 20 3a 3d 20 6b 2f 28 76 20	/.k1;.............rez.v.:=.k/(v.
2840	6d 61 78 20 2a 20 63 73 29 20 2b 20 28 31 2e 30 2f 76 20 6d 61 78 29 3b 20 ff ff ff ff ff ff ff	max.*.cs).+.(1.0/v.max);........
2860	1e 00 72 65 7a 20 63 73 20 3a 3d 20 31 2e 30 20 2f 20 63 73 3b 20 ff ff ff ff ff ff ff ff ff ff	..rez.cs.:=.1.0./.cs;...........
2880	3e 00 20 20 20 20 65 72 72 6f 72 73 74 6f 70 20 28 22 44 69 65 20 52 65 61 6b 74 69 6f 6e 20 66	>.....errorstop.("Die.Reaktion.f
28a0	69 6e 64 65 74 20 6e 69 63 68 74 20 73 74 61 74 74 21 22 29 20 ff ff ff ff ff ff ff ff ff ff ff	indet.nicht.statt!")............
28c0	2e 00 20 20 20 20 76 20 3a 3d 20 28 6b 33 20 2a 20 28 63 20 65 73 20 2b 20 63 20 65 29 20 2a 20	......v.:=.(k3.*.(c.es.+.c.e).*.
28e0	63 20 73 20 2a 20 6b 31 29 20 2f 20 78 79 7a 3b 2e 00 20 20 20 20 73 74 61 6e 64 61 72 64 68 6f	c.s.*.k1)./.xyz;......standardho
2900	65 68 65 20 20 20 20 20 20 20 20 20 20 20 3a 3a 20 73 74 64 20 68 6f 65 68 65 2c 20 ff ff ff ff	ehe...........::.std.hoehe,.....
2920	2e 00 20 20 20 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 20 20 20 20 20 20 20 20 20 3a 3a	......standardbreite..........::
2940	20 73 74 64 20 62 72 65 69 74 65 3b ff ff ff ff 2e 00 4c 45 54 20 65 73 63 20 20 20 20 20 20 20	.std.breite;......LET.esc.......
2960	20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 22 32 37 22 22 2c 20 ff ff ff ff ff ff ff ff ff	.............=.""27"",..........
2980	2e 00 20 20 20 20 61 62 62 72 75 63 68 74 61 73 74 65 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......abbruchtaste...........=."
29a0	61 22 2c 20 22 2c 20 ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 6d 6f 64 65 6c 6c 67 72 6f 65	a",.",................modellgroe
29c0	73 73 65 6e 20 74 61 73 74 65 20 20 20 3d 20 22 73 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	ssen.taste...=."s",.............
29e0	2e 00 20 20 20 20 73 65 6e 64 65 74 61 73 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......sendetaste.............=."
2a00	78 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 77 65 69 74 65 72 74 61 73 74	x",...................weitertast
2a20	65 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 77 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	e............=."w",.............
2a40	2e 00 20 20 20 20 70 6c 6f 74 74 61 73 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......plottask...............=."
2a60	73 69 6d 73 65 6c 20 70 6c 6f 74 74 65 72 22 2c 2e 00 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e	simsel.plotter",......darstellun
2a80	67 73 61 72 74 20 74 61 73 74 65 20 20 3d 20 22 6e 22 2c 20 65 6c 20 70 6c 6f 74 74 65 72 22 2c	gsart.taste..=."n",.el.plotter",
2aa0	2e 00 20 20 20 20 6d 65 6e 75 65 74 61 73 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......menuetaste.............=."
2ac0	6d 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 7a 65 69 67 65 20 74 61 62 20	m",...................zeige.tab.
2ae0	20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 74 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	.............=."t",.............
2b00	2e 00 20 20 20 20 7a 65 69 67 65 20 70 68 61 73 65 6e 64 20 20 20 20 20 20 20 20 20 20 3d 20 22	......zeige.phasend..........=."
2b20	70 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 7a 65 69 67 65 20 7a 65 69 74	p",...................zeige.zeit
2b40	64 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 7a 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	d............=."z",.............
2b60	2e 00 20 20 20 20 7a 65 69 67 65 20 7a 75 73 61 74 7a 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......zeige.zusatz...........=."
2b80	2b 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 6d 64 6c 67 72 6f 65 73 73 65	+",...................mdlgroesse
2ba0	6e 20 65 69 6e 62 6c 20 20 20 20 20 20 3d 20 22 65 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	n.einbl......=."e",.............
2bc0	2e 00 20 20 20 20 72 75 62 6f 75 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......rubout.................=."
2be0	6c 22 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 4c 45 54 20 78 20 61 63 68 73 65 6e 20 62	l";...............LET.x.achsen.b
2c00	65 7a 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 31 2f 63 28 53 29 22 2c 20 ff ff ff ff ff ff	ez............=."1/c(S)",.......
2c20	2e 00 20 20 20 20 79 20 61 63 68 73 65 6e 20 62 65 7a 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	......y.achsen.bez............=.
2c40	22 31 2f 76 22 2c 20 22 2c 20 ff ff ff ff ff ff 1e 00 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66	"1/v",.",.............divisionsf
2c60	65 68 6c 65 72 20 20 20 20 20 20 20 20 20 3d 20 2e 00 20 20 20 20 76 20 6d 61 78 20 62 65 7a 65	ehler.........=.......v.max.beze
2c80	69 63 68 6e 75 6e 67 20 20 20 20 20 20 20 3d 20 22 20 20 20 56 6d 61 78 20 3d 20 22 2c 20 ff ff	ichnung.......=."...Vmax.=.",...
2ca0	2e 00 20 20 20 20 6b 6d 20 62 65 7a 65 69 63 68 6e 75 6e 67 20 20 20 20 20 20 20 20 20 20 3d 20	......km.bezeichnung..........=.
2cc0	22 20 20 20 4b 6d 20 20 20 3d 20 22 2c 20 ff ff 2e 00 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c	"...Km...=.",.........steuerzeil
2ce0	65 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 32 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	e.............=.2,..............
2d00	2e 00 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 20 76 6d 61 78 20 20 20 20 3d 20	......divisionsfehler.vmax....=.
2d20	32 35 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 66 61 6c 73 63 68 65 20 74 61	25,...................falsche.ta
2d40	73 74 65 20 20 20 20 20 20 20 20 20 20 20 3d 20 31 33 20 2c ff ff ff ff ff ff ff ff ff ff ff ff	ste...........=.13.,............
2d60	2e 00 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 20 6b 20 6d 20 20 20 20 20 3d 20	......divisionsfehler.k.m.....=.
2d80	30 20 2c ff 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 20	0.,...................fusszeile.
2da0	61 62 62 72 75 63 68 20 20 20 20 20 20 20 3d 20 31 20 2c 20 2c ff ff ff ff ff ff ff ff ff ff ff	abbruch.......=.1.,.,...........
2dc0	2e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 20 6c 65 65 72 20 20 20 20 20 20 20 20 20 20 3d 20	......fusszeile.leer..........=.
2de0	30 20 2c 35 2c ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 20	0.,5,...........>.....fusszeile.
2e00	6c 65 65 72 20 20 20 20 20 20 20 20 20 20 3d 20 30 20 2c 20 20 20 20 28 2a 20 69 6e 20 6d 6d 20	leer..........=.0.,....(*.in.mm.
2e20	2a 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c	*)....................steuerzeil
2e40	65 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 32 2c 20 20 20 ff ff ff ff ff ff ff ff ff ff ff	e.............=.2,..............
2e60	2e 00 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 20 64 65 6d 6f 20 20 20 20 20 20 20 20 3d 20	......steuerzeile.demo........=.
2e80	33 2c 20 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 20	3,....................kopfzeile.
2ea0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 32 35 2c 20 2c ff ff ff ff ff ff ff ff ff ff ff	..............=.25,.,...........
2ec0	2e 00 20 20 20 20 66 61 6c 73 63 68 65 20 74 61 73 74 65 20 20 20 20 20 20 20 20 20 20 20 3d 20	......falsche.taste...........=.
2ee0	31 33 20 2c 2c ff ff ff ff ff ff ff ff ff ff ff 2e 00 52 4f 57 20 6d 65 6e 75 65 64 69 6d 65 6e	13.,,.............ROW.menuedimen
2f00	73 69 6f 6e 20 49 4e 54 20 56 41 52 20 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 3b ff	sion.INT.VAR.menuezeilennummer;.
2f20	4e 00 20 20 20 20 61 63 68 73 65 6e 61 62 73 74 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 3d 20	N.....achsenabstand...........=.
2f40	30 2e 30 35 2c 20 20 28 2a 20 69 6e 20 6d 6d 20 2a 29 20 4c 20 43 4f 4e 53 54 20 76 20 6d 61 78	0.05,..(*.in.mm.*).L.CONST.v.max
2f60	2c 20 6b 20 6d 29 3a 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 49 4e 54 20 43 4f 4e 53 54 20 66	,.k.m):..............INT.CONST.f
2f80	65 6e 73 74 65 72 20 3a 3a 20 31 3b ff ff ff ff 3e 00 20 20 20 20 61 62 73 74 61 6e 64 20 20 20	enster.::.1;....>.....abstand...
2fa0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 2e 31 2c 20 20 20 28 2a 20 69 6e 20 6d 6d 20	..............=.0.1,...(*.in.mm.
2fc0	2a 29 20 69 20 64 75 72 63 68 20 76 6d 61 78 3b 2e 00 20 20 20 20 6c 61 65 6e 67 65 20 62 65 69	*).i.durch.vmax;......laenge.bei
2fe0	20 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d 20 38 2c 20 6e 3b ff ff ff ff ff ff ff ff ff ff ff	.beschriftung.=.8,.n;...........
3000	2e 00 20 20 20 20 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d 20	......laenge.bei.beschriftung.=.
3020	38 2c 20 2c 20 6c 65 6e 6e 75 6d 6d 65 72 3b ff 3e 00 20 20 20 67 65 62 65 20 61 75 66 20 62 69	8,.,.lennummer;.>....gebe.auf.bi
3040	6c 64 73 63 68 69 72 6d 20 61 75 73 20 28 73 65 69 74 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	ldschirm.aus.(seite,.modellkurzb
3060	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 3e 00 52 4f 57 20 6d 65 6e 75 65 64 69 6d 65 6e	ezeichnung,.....>.ROW.menuedimen
3080	73 69 6f 6e 20 49 4e 54 20 56 41 52 20 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 3b 69	sion.INT.VAR.menuezeilennummer;i
30a0	6c 65 20 6c 65 65 72 29 3b 20 ff ff ff ff ff ff 1e 00 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65	le.leer);............initialisie
30c0	72 65 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 72	re;..................schreibe.kr
30e0	65 75 7a 3b 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52	euz;.................PICTURE.VAR
3100	20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 67 3b 20 ff ff ff ff ff ff ff	.kreuz.:=.nilpicture.;g;........
3120	1e 00 20 20 20 7a 65 69 63 68 6e 65 20 75 6e 64 20 70 6c 6f 74 74 65 20 6b 75 72 76 65 20 3b ff	.....zeichne.und.plotte.kurve.;.
3140	2e 00 20 20 20 70 6c 6f 74 74 65 20 66 75 73 73 7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20 73 74	.....plotte.fusszeile.(seite,.st
3160	65 75 65 72 7a 65 69 6c 65 29 3b 20 ff ff ff ff 0e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a	euerzeile);.......initialisiere:
3180	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 64 61	N.............................da
31a0	72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 66 75 73 73 7a 65 69 6c 65 20 6c 65 65 72 29 3b	rstellungsname,.fusszeile.leer);
31c0	20 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff 0e 00 20 20 20 62 65 67 69 6e 20 70 6c 6f 74 3b	.nster);.............begin.plot;
31e0	2e 00 20 20 20 62 65 73 63 68 72 69 66 74 65 20 75 6e 64 20 70 6c 6f 74 74 65 20 62 65 73 63 68	.....beschrifte.und.plotte.besch
3200	72 69 66 74 75 6e 67 3b 20 29 3b 20 ff ff ff ff 2e 00 20 20 20 62 65 73 63 68 72 69 66 74 65 20	riftung;.);..........beschrifte.
3220	75 6e 64 20 70 6c 6f 74 74 65 20 62 65 73 63 68 72 69 66 74 75 6e 67 3b 20 29 3b 20 ff ff ff ff	und.plotte.beschriftung;.);.....
3240	1e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a 74 72 65 6d 61 3b 20 2e 20 ff ff ff ff ff ff ff	..initialisiere:trema;..........
3260	1e 00 62 65 73 74 69 6d 6d 65 20 65 78 74 72 65 6d 61 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff	..bestimme.extrema:.............
3280	1e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a 2d 28 31 2e 30 20 2f 6b 20 6d 29 3b ff ff ff ff	..initialisiere:-(1.0./k.m);....
32a0	2e 00 20 20 20 76 69 65 77 70 6f 72 74 20 28 6c 6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20	.....viewport.(lks,.rts,.unten,.
32c0	6f 62 65 6e 29 3b ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 6d 61 78 20 79 20 3a 3d 20 64 72	oben);...............max.y.:=.dr
32e0	65 69 20 64 75 72 63 68 20 76 20 6d 61 78 3b ff 1e 00 20 20 20 62 65 73 74 69 6d 6d 65 20 65 78	ei.durch.v.max;......bestimme.ex
3300	74 72 65 6d 61 3b 20 2e 20 ff ff ff ff ff ff ff 4e 00 20 20 20 62 65 67 69 6e 20 70 6c 6f 74 3b	trema;..........N....begin.plot;
3320	6d 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 29 3b 20 20 20 20	m.(seite,.strukt.1.fenster);....
3340	28 2a 20 70 75 6e 6b 74 20 78 20 6e 65 67 61 74 69 76 20 21 20 2a 29 ff ff ff ff ff ff ff ff ff	(*.punkt.x.negativ.!.*).........
3360	1e 00 20 20 20 62 65 73 74 69 6d 6d 65 20 65 78 74 72 65 6d 61 3b 20 2e 20 6d 29 3b ff ff ff ff	.....bestimme.extrema;...m);....
3380	1e 00 20 20 20 49 46 20 20 6d 69 6e 20 79 20 3d 20 6d 61 78 20 79 20 ff ff ff ff ff ff ff ff ff	.....IF..min.y.=.max.y..........
33a0	2e 00 20 20 20 62 65 73 74 69 6d 6d 65 20 65 78 74 72 65 6d 61 3b 20 2e 20 75 6e 74 65 6e 2c 20	.....bestimme.extrema;...unten,.
33c0	6f 62 65 6e 29 3b 6c 6f 6e 29 3b ff ff ff ff ff 4e 00 20 20 20 70 75 6e 6b 74 20 78 20 3a 3d 20	oben);lon);.....N....punkt.x.:=.
33e0	2d 28 31 2e 30 20 2f 6b 20 6d 29 3b 61 78 3b 6e 6b 74 20 78 3b 20 20 20 20 20 20 20 20 20 20 20	-(1.0./k.m);ax;nkt.x;...........
3400	28 2a 20 70 75 6e 6b 74 20 78 20 6e 65 67 61 74 69 76 20 21 20 2a 29 ff ff ff ff ff ff ff ff ff	(*.punkt.x.negativ.!.*).........
3420	4e 00 20 20 20 64 72 65 69 20 64 75 72 63 68 20 76 20 6d 61 78 20 3a 3d 20 33 2e 30 20 2f 20 76	N....drei.durch.v.max.:=.3.0./.v
3440	20 6d 61 78 3b 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 70 75 6e 6b 74 20 78 20 6e 65 67 61 74	.max;...........(*.punkt.x.negat
3460	69 76 20 21 20 2a 29 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 49 46 20 20 6d 69 6e 20 79 20 3d	iv.!.*)..............IF..min.y.=
3480	20 6d 61 78 20 79 20 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 70 65 6e 20 20 28 6b 72 65 75 7a	.max.y...............pen..(kreuz
34a0	2c 20 31 29 3b 20 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 6d 69 6e 20 78 20 3a 3d 20 76 65	,.1);...........N....min.x.:=.ve
34c0	72 73 63 68 69 65 62 75 6e 67 20 2a 20 70 75 6e 6b 74 20 78 3b 20 20 20 20 20 20 20 20 20 20 20	rschiebung.*.punkt.x;...........
34e0	28 2a 20 70 75 6e 6b 74 20 78 20 6e 65 67 61 74 69 76 20 21 20 2a 29 61 78 2c ff ff ff ff ff ff	(*.punkt.x.negativ.!.*)ax,......
3500	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	>...............................
3520	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 6e 6b 74 20 78 29 3b ff ff ff ff ff ff	.................punkt.x);......
3540	3e 00 20 20 20 70 75 74 20 6b 72 65 75 7a 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 20 31 20	>....put.kreuz.(seite,.strukt.1.
3560	66 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a 29 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	fenster,.kreuz);................
3580	2e 00 73 63 68 72 65 69 62 65 20 6b 72 65 75 7a 3a 20 6c 6f 74 74 65 20 62 65 73 63 68 72 69 66	..schreibe.kreuz:.lotte.beschrif
35a0	74 75 6e 67 3a ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 70 65 6e 20 20 28 6b 72 65 75 7a	tung:................pen..(kreuz
35c0	2c 20 31 29 3b 20 64 65 3a 3d 6e 69 6c 70 69 63 74 75 72 65 3b 20 ff ff ff ff ff ff ff ff ff ff	,.1);.de:=nilpicture;...........
35e0	1e 00 20 20 20 52 45 41 4c 20 56 41 52 20 61 2c 62 2c 61 62 73 74 61 6e 64 3b ff ff ff ff ff ff	.....REAL.VAR.a,b,abstand;......
3600	1e 00 20 20 20 54 45 58 54 20 56 41 52 20 77 65 72 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	.....TEXT.VAR.wert;.............
3620	1e 00 20 20 20 73 63 68 72 65 69 62 65 20 76 6d 61 78 20 69 6e 20 6c 65 67 65 6e 64 65 3b ff ff	.....schreibe.vmax.in.legende;..
3640	1e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 6d 20 69 6e 20 6c 65 67 65 6e 64 65 3b ff ff ff ff	.....schreibe.km.in.legende;....
3660	2e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 3a 3d 6e 69 6c 70 69 63	.....PICTURE.VAR.legende:=nilpic
3680	74 75 72 65 3b 20 ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 52 45 41 4c 20 56 41 52 20 61 2c	ture;................REAL.VAR.a,
36a0	62 2c 61 62 73 74 61 6e 64 3b ff ff ff ff ff ff 3e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52	b,abstand;......>....PICTURE.VAR
36c0	20 6c 65 67 65 6e 64 65 3a 3d 6e 69 6c 70 69 63 74 75 72 65 3b 20 72 2c 20 6c 65 67 65 6e 64 65	.legende:=nilpicture;.r,.legende
36e0	29 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 52 45 41 4c 20 56 41 52 20 61 2c	);...................REAL.VAR.a,
3700	62 2c 61 62 73 74 61 6e 64 3b 6e 64 65 3b ff ff 4e 00 20 20 73 63 68 72 65 69 62 65 76 6d 61 78	b,abstand;nde;..N...schreibevmax
3720	69 6e 6c 65 67 65 6e 64 65 3b 72 69 66 74 75 6e 67 3a 72 65 3b 20 72 2c 20 6b 72 65 75 7a 29 3b	inlegende;riftung:re;.r,.kreuz);
3740	20 2e 20 62 72 65 69 74 65 20 23 20 2b 20 30 2e 31 23 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	...breite.#.+.0.1#;.............
3760	1e 00 20 20 20 62 20 3a 3d 20 32 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 3b 20	.....b.:=.2.0.*.standardhoehe.;.
3780	1e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 6d 20 69 6e 20 6c 65 67 65 6e 64 65 3b ff ff ff ff	.....schreibe.km.in.legende;....
37a0	2e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28 6c 65 67 65 6e 64 65 2c 6d 69 6e 20 78 2c 20 30	.....move......(legende,min.x,.0
37c0	2e 37 20 2a 20 6d 61 78 20 79 29 3b ff ff ff ff 2e 00 20 20 20 70 6c 6f 74 74 65 20 6c 65 67 65	.7.*.max.y);.........plotte.lege
37e0	6e 64 65 3b 65 67 65 6e 64 65 3a 2e 30 20 2a 20 61 2c 20 30 2e 30 20 29 3b 20 ff ff ff ff ff ff	nde;egende:.0.*.a,.0.0.);.......
3800	3e 00 20 20 20 64 72 61 77 20 20 20 20 20 20 28 6c 65 67 65 6e 64 65 2c 20 22 20 20 20 56 6d 61	>....draw......(legende,."...Vma
3820	78 20 3d 20 22 20 2b 20 77 65 72 74 2c 20 30 2e 30 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff	x.=.".+.wert,.0.0,..............
3840	3e 00 73 63 68 72 65 69 62 65 20 76 6d 61 78 20 69 6e 20 6c 65 67 65 6e 64 65 3a 68 65 20 3b 20	>.schreibe.vmax.in.legende:he.;.
3860	74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 2e ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	tandardbreite);.................
3880	1e 00 20 20 20 77 65 72 74 20 3a 3d 20 74 65 78 74 20 28 76 20 6d 61 78 29 3b 20 ff ff ff ff ff	.....wert.:=.text.(v.max);......
38a0	1e 00 20 20 20 77 65 72 74 20 3a 3d 20 74 65 78 74 20 28 6b 20 6d 29 3b 20 ff ff ff ff ff ff ff	.....wert.:=.text.(k.m);........
38c0	2e 00 28 2a 68 72 65 69 62 65 20 64 61 72 73 74 6e 61 6d 65 20 69 6e 20 6c 65 67 65 6e 64 65 3a	..(*hreibe.darstname.in.legende:
38e0	20 37 20 2a 20 6d 61 78 20 79 29 3b ff ff ff ff 2e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28	.7.*.max.y);.........move.cm.r.(
3900	6c 65 67 65 6e 64 65 2c 20 2d 31 2e 30 20 2a 20 61 2c 20 30 2e 30 20 29 3b 20 ff ff ff ff ff ff	legende,.-1.0.*.a,.0.0.);.......
3920	3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 65 6e 64 65 2c 20 2d 20 31 2e 30 20 2a 20 61 2c	>...movecmr.(legende,.-.1.0.*.a,
3940	20 30 2e 30 29 3b 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 3b ff ff ff ff ff ff ff ff ff	.0.0);*.standardbreite;.........
3960	3e 00 20 20 20 64 72 61 77 20 20 20 20 20 20 28 6c 65 67 65 6e 64 65 2c 20 64 61 72 73 74 62 65	>....draw......(legende,.darstbe
3980	7a 65 69 63 68 6e 75 6e 67 2c 20 30 2e 30 2c 20 2e 20 30 2e 30 2c ff ff ff ff ff ff ff ff ff ff	zeichnung,.0.0,...0.0,..........
39a0	1e 00 20 20 20 77 65 72 74 20 3a 3d 20 74 65 78 74 20 28 6b 20 6d 29 3b 20 67 65 6e 64 65 3a 20	.....wert.:=.text.(k.m);.gende:.
39c0	2e 00 20 20 20 77 65 72 74 20 3a 3d 20 74 65 78 74 20 28 6b 20 6d 29 3b 20 3a 6e 20 78 2c 20 30	.....wert.:=.text.(k.m);.:n.x,.0
39e0	2e 36 20 2a 20 6d 61 78 20 79 29 3b ff ff ff ff 3e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28	.6.*.max.y);....>....move......(
3a00	6c 65 67 65 6e 64 65 2c 6d 69 6e 20 78 2c 20 30 2e 36 20 2a 20 6d 61 78 20 79 29 3b 2c 20 30 2e	legende,min.x,.0.6.*.max.y);,.0.
3a20	30 29 3b ff ff ff 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	0);.............N...move.(legend
3a40	65 2c 20 6d 69 6e 78 2c 20 30 2e 36 20 2a 20 6d 61 78 79 29 3b 77 65 72 74 2c 20 30 2e 30 2c 20	e,.minx,.0.6.*.maxy);wert,.0.0,.
3a60	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 65 29 3b ff	standardhoehe,.standardbreite);.
3a80	2e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28 6c 65 67 65 6e 64 65 2c 20 6d 61 78 20 78 2c 6d	.....move......(legende,.max.x,m
3aa0	69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 73 63 68 72 65 69 62 65 6b 6d 69 6e 6c 65	in.y);..........>.schreibekminle
3ac0	67 65 6e 64 65 3a 65 2c 6d 69 6e 20 78 2c 20 30 2e 37 20 2a 20 6d 61 78 20 79 29 3b 77 65 72 74	gende:e,min.x,.0.7.*.max.y);wert
3ae0	2c 20 30 2e 30 2c ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 77 65 72 74 20 3a 3d 20 77 61 6e 64	,.0.0,..........N...wert.:=.wand
3b00	6c 65 20 28 6b 6d 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e	le.(km,.laengebeibeschriftung,.n
3b20	61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 3b 6c 6c 65 6e 29 3b 20 65 29 3b 2e ff ff ff ff	achkommastellen);llen);.e);.....
3b40	1e 00 70 6c 6f 74 74 65 20 6c 65 67 65 6e 64 65 3a ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	..plotte.legende:...............
3b60	1e 00 20 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	.....pen.(legende,.1);..........
3b80	2e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28 6c 65 67 65 6e 64 65 2c 20 6d 61 78 20 78 2c 6d	.....move......(legende,.max.x,m
3ba0	69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 70 6c 6f 74 20 28 6c 65 67 65 6e	in.y);...............plot.(legen
3bc0	64 65 29 3b 20 2e ff ff ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 75 6e 64 20 70 6c	de);..............zeichne.und.pl
3be0	6f 74 74 65 20 6b 75 72 76 65 3a 20 ff ff ff ff 1e 00 70 6c 6f 74 74 65 20 6c 65 67 65 6e 64 65	otte.kurve:.......plotte.legende
3c00	3a 69 66 74 20 3a 3a 20 31 3b 20 ff ff ff ff ff 1e 00 20 20 20 70 65 6e 20 28 6c 65 67 65 6e 64	:ift.::.1;...........pen.(legend
3c20	65 2c 20 31 29 3b 6e 3b 20 ff ff ff ff ff ff ff 1e 00 20 20 20 6f 72 64 6e 65 20 70 65 6e 20 7a	e,.1);n;.............ordne.pen.z
3c40	75 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 70 65 6e 20 28 30 2c 20 31 2c 20	u;...................pen.(0,.1,.
3c60	30 2c 20 70 65 6e 28 6c 65 67 65 6e 64 65 29 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	0,.pen(legende));...............
3c80	1e 00 7a 65 69 63 68 6e 65 20 75 6e 64 20 70 6c 6f 74 74 65 20 6b 75 72 76 65 3a 20 ff ff ff ff	..zeichne.und.plotte.kurve:.....
3ca0	1e 00 7a 65 69 63 68 6e 65 20 75 6e 64 20 70 6c 6f 74 74 65 20 6b 75 72 76 65 3a 20 ff ff ff ff	..zeichne.und.plotte.kurve:.....
3cc0	1e 00 20 20 20 49 4e 54 20 43 4f 4e 53 54 20 73 74 69 66 74 20 3a 3a 20 31 3b 20 20 ff ff ff ff	.....INT.CONST.stift.::.1;......
3ce0	1e 00 20 20 20 72 69 63 68 74 65 20 70 69 63 74 75 72 65 20 65 69 6e 3b 20 3b 20 20 2e ff ff ff	.....richte.picture.ein;.;......
3d00	2e 00 70 6c 6f 74 74 65 20 6c 65 67 65 6e 64 65 3a 3b 20 20 65 69 6e 3b 20 75 72 65 20 65 69 6e	..plotte.legende:;..ein;.ure.ein
3d20	3b 20 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 6f 72 64 6e 65 20 70 65 6e 20 7a	;.t);................ordne.pen.z
3d40	75 3b 20 72 65 2e 75 72 65 20 65 69 6e 3a 20 ff 1e 00 72 69 63 68 74 65 20 70 69 63 74 75 72 65	u;.re.ure.ein:....richte.picture
3d60	20 65 69 6e 3a 20 3b ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 70 6c 6f 74 20 28 6c 65 67 65 6e	.ein:.;..............plot.(legen
3d80	64 65 29 3b 20 2e 69 6f 6e 3b 20 3b 20 ff ff ff 1e 00 70 6c 6f 74 74 65 20 6c 65 67 65 6e 64 65	de);..ion;.;......plotte.legende
3da0	3a 74 74 65 20 6b 75 72 76 65 3a 20 2e ff ff ff 1e 00 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70	:tte.kurve:.......trage.anfangsp
3dc0	75 6e 6b 74 20 65 69 6e 3a 20 ff ff ff ff ff ff 2e 00 72 69 63 68 74 65 70 69 63 74 75 72 65 65	unkt.ein:.........richtepicturee
3de0	69 6e 3a 6e 3b 6b 75 72 76 65 3a 20 64 65 29 29 3b 20 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff	in:n;kurve:.de));.t);...........
3e00	2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 66 75 6e 6b 74 69 6f 6e 3b 3b 20 69 6e 3a 20 74	....PICTURE.VAR.funktion;;.in:.t
3e20	69 66 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 70 65 6e 20 28 30 2c 31 2c 30 2c	ift);................pen.(0,1,0,
3e40	73 74 69 66 74 29 3b 72 65 20 65 69 6e 3a 20 ff 2e 00 20 20 73 63 68 72 65 69 62 65 70 69 63 74	stift);re.ein:......schreibepict
3e60	75 72 65 2e 20 3a 3a 20 31 3b 20 3b 20 72 65 69 20 64 75 72 63 68 20 76 20 6d 61 78 29 20 3b ff	ure..::.1;.;.rei.durch.v.max).;.
3e80	3e 00 20 20 70 65 6e 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 73 74 69 66 74 29 3b 72 65 20 65 69 6e	>...pen.(funktion,.stift);re.ein
3ea0	3b 20 75 72 63 68 20 76 20 6d 61 78 29 20 3b 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	;.urch.v.max).;.................
3ec0	1e 00 73 63 68 72 65 69 62 65 20 70 69 63 74 75 72 65 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff	..schreibe.picture:.............
3ee0	1e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 3b 20 ff ff ff ff ff	.....PICTURE.VAR.transfer;......
3f00	1e 00 74 72 61 67 65 20 65 6e 64 70 75 6e 6b 74 20 65 69 6e 3a 20 69 6f 6e 3b 20 ff ff ff ff ff	..trage.endpunkt.ein:.ion;......
3f20	2e 00 20 20 74 72 61 67 65 61 6e 66 61 6e 67 73 70 75 6e 6b 74 65 69 6e 3b 3b 65 20 2e 3a 20 2e	....trageanfangspunktein;;e..:..
3f40	30 29 3b 2e 63 68 20 76 20 6d 61 78 29 20 3b ff 1e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65	0);.ch.v.max).;...END.PROC.zeige
3f60	20 64 61 72 73 74 20 34 3b ff ff ff ff ff ff ff 4e 00 74 72 61 67 65 70 75 6e 6b 74 65 69 6e 70	.darst.4;.......N.tragepunkteinp
3f80	69 63 74 75 72 65 65 69 6e 3a 65 69 6e 3a 20 69 20 64 75 72 63 68 20 76 20 6d 61 78 29 20 3b 2e	ictureein:ein:.i.durch.v.max).;.
3fa0	20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.CONST.xmin,xmax,...............
3fc0	4e 00 74 72 61 67 65 61 6e 66 61 6e 67 73 70 75 6e 6b 74 65 69 6e 3a 29 3b 69 6f 6e 2c 20 73 74	N.trageanfangspunktein:);ion,.st
3fe0	69 66 74 29 3b 20 2e 20 20 6d 61 78 29 20 3b 2e 20 76 20 6d 61 78 2c 20 78 20 77 65 72 74 29 3a	ift);....max).;..v.max,.x.wert):
4000	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 74 72 61 67 65 61 6e 66 61 6e 67 73	....................trageanfangs
4020	70 75 6e 6b 74 65 69 6e 3b 69 6e 3b 20 3a 20 ff 1e 00 50 49 43 54 55 52 45 20 56 41 52 20 6b 72	punktein;in;.:....PICTURE.VAR.kr
4040	65 75 7a 3b 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 74 72 61 6e 73 66 65 72 20 3a 3d	euz;.................transfer.:=
4060	20 66 75 6e 6b 74 69 6f 6e 3b 20 ff ff ff ff ff 4e 00 74 72 61 67 65 65 6e 64 70 75 6e 6b 74 65	.funktion;......N.trageendpunkte
4080	69 6e 3a 65 69 6e 3a 6e 6b 74 20 78 2c 20 30 2e 30 29 3b 20 6e 73 66 65 72 29 3b 20 2e 45 41 4c	in:ein:nkt.x,.0.0);.nsfer);..EAL
40a0	20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78 2c 31 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	.CONST.xmin,xmax,1;.............
40c0	1e 00 52 45 41 4c 20 56 41 52 20 78 77 65 69 74 65 2c 20 79 77 65 69 74 65 3b ff ff ff ff ff ff	..REAL.VAR.xweite,.yweite;......
40e0	4e 00 20 20 64 72 61 77 20 28 6d 61 78 78 2c 20 64 72 65 69 64 75 72 63 68 76 6d 61 78 29 3b 2e	N...draw.(maxx,.dreidurchvmax);.
4100	30 29 3b 20 63 68 20 76 20 6d 61 78 29 20 3b 2e 20 76 20 6d 61 78 2c 20 78 20 77 65 72 74 29 3a	0);.ch.v.max).;..v.max,.x.wert):
4120	20 61 67 72 61 6d 6d 2a 29 20 ff ff ff ff ff ff 3e 00 50 49 43 54 55 52 45 20 56 41 52 20 6b 72	.agramm*).......>.PICTURE.VAR.kr
4140	65 75 7a 3b 20 2f 20 72 65 61 6c 28 61 6e 7a 61 68 6c 20 78 20 61 63 68 73 65 6e 61 62 73 63 68	euz;./.real(anzahl.x.achsenabsch
4160	6e 69 74 74 65 29 3b ff ff ff ff ff ff ff ff ff 3e 00 73 63 68 72 65 69 62 65 70 69 63 74 75 72	nitte);.........>.schreibepictur
4180	65 3a 3a 20 20 6d 61 78 20 78 2c 20 64 72 65 69 20 64 75 72 63 68 20 76 20 6d 61 78 29 20 3b 2e	e::..max.x,.drei.durch.v.max).;.
41a0	20 74 74 65 29 3b ff ff ff ff ff ff ff ff ff ff 1e 00 6f 72 64 6e 65 20 73 74 69 66 74 20 7a 75	.tte);............ordne.stift.zu
41c0	3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 6b 72 65 75 7a 3a 3d 20 6e 69 6c 70 69 63	;.................kreuz:=.nilpic
41e0	74 75 72 65 3b 20 69 74 65 3b ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 79 61 63 68 73 65	ture;.ite;........zeichne.yachse
4200	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 6f 72 64 6e 65 20 73 74 69 66 74 20 7a 75	;.................ordne.stift.zu
4220	3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 78 61 63 68 73 65	;.................zeichne.xachse
4240	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 6b 72 65 75 7a 3a 3d 20 6e 69 6c 70 69 63	;.................kreuz:=.nilpic
4260	74 75 72 65 3b 20 ff ff ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 79 61 63 68 73 65	ture;.............zeichne.yachse
4280	3b 20 29 2e 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 6b 72 65 75 7a 3a 3d 20 6e 69 6c 70 69 63	;.)...............kreuz:=.nilpic
42a0	74 75 72 65 3b 20 3b 74 65 3b ff ff ff ff ff ff 1e 00 6c 69 65 66 65 72 65 20 6b 72 65 75 7a 2e	ture;.;te;........liefere.kreuz.
42c0	20 78 6d 69 6e 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 6c 69 65 66 65 72 65 20 6b 72 65 75 7a 2e	.xmin,ymin);......liefere.kreuz.
42e0	20 20 6d 61 78 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 6f 72 64 6e 65 20 73 74 69 66 74 20 7a 75	..max,ymin);......ordne.stift.zu
4300	3a 20 29 3b 6e 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 52 45 41 4c 20 56 41 52 20 78 77 65 69 74	:.);n,ymin);......REAL.VAR.xweit
4320	65 2c 20 79 77 65 69 74 65 3b 29 3b 20 ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 78 61 63 68 73 65	e,.yweite;);......zeichne.xachse
4340	3b 20 29 2e 20 20 2e 20 ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 79 61 63 68 73 65	;.)...............zeichne.yachse
4360	3b 20 29 2e 20 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 20 20 20 20 6d 6f 76 65 28 20 20 20 20 20	;.)..,ymin);..........move(.....
4380	20 78 6d 69 6e 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 79 61 63 68 73 65	.xmin,ymin);......zeichne.yachse
43a0	3b 20 6d 61 78 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 78 61 63 68 73 65	;.max,ymin);......zeichne.xachse
43c0	3b 20 6d 69 6e 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 20 20 79 73 6b 61 6c 69 65 72 75 6e 67 3b	;.min,ymin);........yskalierung;
43e0	3b 20 6d 61 78 2c 79 6d 69 6e 29 3b 20 ff ff ff 1e 00 20 20 6c 69 65 66 65 72 65 6b 72 65 75 7a	;.max,ymin);........lieferekreuz
4400	2e 3b 29 3b 65 20 2e 20 69 6e 29 3b 20 ff ff ff 1e 00 20 20 7a 65 69 63 68 6e 65 79 61 63 68 73	.;);e...in);........zeichneyachs
4420	65 3b 29 2e 20 20 2e 20 69 6e 29 3b 20 ff ff ff 1e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30	e;).....in);........pen.(0,.1,.0
4440	2c 20 31 29 3b 2c 79 6d 69 6e 29 3b 20 3b ff ff 1e 00 20 20 70 65 6e 20 28 6b 72 65 75 7a 2c 20	,.1);,ymin);.;......pen.(kreuz,.
4460	31 29 2e 2e 20 2c 79 6d 69 6e 29 3b 20 29 3b 20 1e 00 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3a	1)...,ymin);.);...zeichnexachse:
4480	2e 20 29 3b 78 2c 79 6d 69 6e 29 3b 20 29 3b ff 1e 00 20 20 6d 6f 76 65 20 28 78 6d 69 6e 2c 20	..);x,ymin);.);.....move.(xmin,.
44a0	79 6d 69 6e 29 3b 79 6d 69 6e 29 3b 20 3b ff ff 1e 00 20 20 64 72 61 77 20 28 78 6d 61 78 2c 20	ymin);ymin);.;......draw.(xmax,.
44c0	79 6d 69 6e 29 3b 79 6d 69 6e 29 3b 20 29 3b 20 1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	ymin);ymin);.);.....move.(kreuz,
44e0	20 78 6d 69 6e 2c 20 79 6d 69 6e 29 3b 3b 2e 20 1e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c	.xmin,.ymin);;......draw.(kreuz,
4500	20 78 6d 61 78 2c 20 79 6d 69 6e 29 3b 3b 3b 20 2e 00 20 20 7a 65 69 63 68 6e 65 78 73 70 69 74	.xmax,.ymin);;;.....zeichnexspit
4520	7a 65 2e 6e 29 3b 2e 20 69 6e 29 3b 20 29 3b 20 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	ze.n);..in);.);.dhoehe);........
4540	1e 00 7a 65 69 63 68 6e 65 79 61 63 68 73 65 3a 79 6d 69 6e 29 3b 79 6d 69 6e 29 3b 20 29 3b 20	..zeichneyachse:ymin);ymin);.);.
4560	2e 00 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 79 6d 69 6e 29 3b 2c 20 79 6d 69 6e 29 3b 3b 3b 20	....move.(0.0,.ymin);,.ymin);;;.
4580	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 20 28 30 2e 30 2c 20 79	....................draw.(0.0,.y
45a0	6d 61 78 29 3b 2c 20 79 6d 69 6e 29 3b 29 3b 20 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	max);,.ymin););.dhoehe);........
45c0	2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 30 2e 30 2c 20 79 6d 69 6e 29 3b 20 29 2e 20	....move.(kreuz,.0.0,.ymin);.)..
45e0	20 ff ff 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	....................draw.(kreuz,
4600	20 30 2e 30 2c 20 79 6d 61 78 29 3b 20 29 2e 20 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	.0.0,.ymax);.)..dhoehe);........
4620	1e 00 7a 65 69 63 68 6e 65 20 79 73 70 69 74 7a 65 3a 20 20 20 30 2e 32 2c 2d 30 2e 32 29 3b ff	..zeichne.yspitze:...0.2,-0.2);.
4640	1e 00 20 20 20 20 6d 6f 76 65 20 20 20 28 6b 72 65 75 7a 2c 30 2e 30 20 2c 79 6d 61 78 29 3b 20	......move...(kreuz,0.0.,ymax);.
4660	2e 00 20 20 64 72 61 77 63 6d 72 20 28 2d 20 30 2e 32 2c 20 30 2e 32 29 3b 6e 29 3b 29 3b 3b 3b	....drawcmr.(-.0.2,.0.2);n););;;
4680	20 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 64 72 61 77 63 6d 72 28 6b 72	.hoehe);..............drawcmr(kr
46a0	65 75 7a 2c 2d 30 2e 32 2c 2d 30 2e 32 29 2e 20 1e 00 20 20 20 20 64 72 61 77 63 6d 72 28 6b 72	euz,-0.2,-0.2)........drawcmr(kr
46c0	65 75 7a 2c 20 30 2e 32 2c 2d 30 2e 32 29 3b ff 1e 00 20 20 20 20 6d 6f 76 65 20 20 20 28 6b 72	euz,.0.2,-0.2);.......move...(kr
46e0	65 75 7a 2c 30 2e 30 20 2c 79 6d 61 78 29 3b 20 1e 00 20 20 20 20 6d 6f 76 65 20 20 20 28 6b 72	euz,0.0.,ymax);.......move...(kr
4700	65 75 7a 2c 30 2e 30 20 2c 79 6d 61 78 29 3b 20 2e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30	euz,0.0.,ymax);.....drawcmr.(0.0
4720	2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 68 6f 65 68 65 29 3b 20 6e 29 3b 20 ff ff ff	,.standardhoehe);hoehe);.n);....
4740	2e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 32 2c 20 2d 20 30 2e 32 29 3b 69 6e 29 3b 29 3b 72	....drawcmr.(0.2,.-.0.2);in););r
4760	64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 79	dhoehe);............move.(0.0,.y
4780	6d 61 78 29 3b 20 30 2e 32 2c 20 2d 20 30 2e 32 29 2e 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	max);.0.2,.-.0.2).oehe);........
47a0	2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29	....movecmr.(0.0,.standardhoehe)
47c0	3b 68 6f 65 68 65 29 3b 20 29 3b 20 ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 2d 20 30	;hoehe);.);.........drawcmr.(-.0
47e0	2e 32 2c 20 2d 20 30 2e 32 29 3b 6f 65 68 65 29 3b 30 2e 32 29 3b 20 ff ff ff ff ff ff ff ff ff	.2,.-.0.2);oehe);0.2);..........
4800	2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72	....drawcmr.(kreuz,.0.0,.standar
4820	64 68 6f 65 68 65 29 3b 20 6e 29 3b 20 ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 62	dhoehe);.n);...................b
4840	65 73 63 68 72 69 66 74 65 3b 20 ff ff ff ff ff 1e 00 6b 6f 6f 72 64 20 75 72 73 70 72 75 6e 67	eschrifte;........koord.ursprung
4860	3a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 73 74 65 6c 6c 65 20 3a 3d 20	:.....................stelle.:=.
4880	30 2e 30 3b 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 62 65 73 63 68 72 69 66 74 65	0.0;..................beschrifte
48a0	20 3b 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 6b 6f 6f 72 64 75 72 73 70 72 75 6e	.;..................koordursprun
48c0	67 3b 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff ff	g;,.0.0,.standardhoehe);........
48e0	3e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 2d 20 30 2e 32 2c 20 2d 20 30 2e 32	>...drawcmr.(kreuz,.-.0.2,.-.0.2
4900	29 2e 65 2c 20 79 20 6d 69 6e 29 3b 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 ff ff ff	).e,.y.min);.standardbreite,....
4920	3e 00 20 20 20 20 52 45 41 4c 20 56 41 52 20 73 74 65 6c 6c 65 20 3a 3a 20 78 20 77 65 72 74 3b	>.....REAL.VAR.stelle.::.x.wert;
4940	2c 30 2e 32 29 3b 20 20 2d 20 61 62 73 74 61 6e 64 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	,0.2);..-.abstand);.............
4960	4e 00 20 20 52 45 41 4c 20 56 41 52 20 73 74 65 6c 6c 65 20 3a 3d 20 78 77 65 72 74 3b 73 74 65	N...REAL.VAR.stelle.:=.xwert;ste
4980	6c 6c 65 2c 20 79 20 6d 69 6e 29 3b 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b	lle,.y.min);.beschriftung,.nachk
49a0	6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff 3e 00 20 20 6d 6f 76 65 20 28 73 74 65 6c 6c 65	ommastellen),...>...move.(stelle
49c0	2c 20 79 6d 69 6e 29 3b 20 20 20 20 20 30 2e 30 2c 30 2e 32 29 3b 20 69 6e 29 3b 20 72 64 62 72	,.ymin);.....0.0,0.2);.in);.rdbr
49e0	65 69 74 65 29 3b ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 6d 6f 76 65 28 6b 72 65 75 7a 2c	eite);...............move(kreuz,
4a00	73 74 65 6c 6c 65 2c 79 6d 69 6e 29 3b 20 ff ff 3e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30	stelle,ymin);...>...drawcmr.(0.0
4a20	2c 20 2d 20 30 2e 33 29 3b 65 75 7a 2c 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 20 20 73 74 61	,.-.0.3);euz,stelle,.ymin);..sta
4a40	6e 64 61 72 64 62 72 65 69 74 65 2c 20 ff ff ff 3e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	ndardbreite,....>...move.(kreuz,
4a60	20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 30 2c 30 2e 32 29 3b 20 61 29 29 20 2a 20 73 74 61	.stelle,.ymin);0,0.2);.a)).*.sta
4a80	6e 64 61 72 64 62 72 65 69 74 65 2c 20 ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65	ndardbreite,....N...movecmr.(kre
4aa0	75 7a 2c 20 30 2e 30 2c 20 30 2e 32 29 3b 2e 30 2c 2d 30 2e 33 29 3b 69 6e 29 3b 20 73 74 61 6e	uz,.0.0,.0.2);.0,-0.3);in);.stan
4ac0	64 29 3b 20 64 62 72 65 69 74 65 2c 20 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff	d);.dbreite,.chkommastellen),...
4ae0	2e 00 20 20 20 20 20 20 20 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 73 74 61	..........0.0,.standardhoehe,sta
4b00	6e 64 61 72 64 62 72 65 69 74 65 29 2e ff ff ff 1e 00 20 20 20 73 74 65 6c 6c 65 20 3a 3d 20 31	ndardbreite).........stelle.:=.1
4b20	2e 30 20 2f 76 20 6d 61 78 20 3b ff ff ff ff ff 1e 00 20 20 20 7a 65 69 63 68 6e 65 20 79 73 74	.0./v.max.;..........zeichne.yst
4b40	72 69 63 68 3b 20 ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 62 65 73 63 68 72 69 66 74 65 20	rich;................beschrifte.
4b60	79 20 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 79 20 73 74 72 69	y.................zeichne.y.stri
4b80	63 68 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 6d 6f 76 65 20 20 20 20 20 20	ch:...................move......
4ba0	28 20 20 20 20 20 20 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	(......0.0,.stelle);............
4bc0	1e 00 20 20 20 73 74 65 6c 6c 65 20 3a 3d 20 31 2e 30 20 2f 76 20 6d 61 78 20 3b 30 2e 30 29 3b	.....stelle.:=.1.0./v.max.;0.0);
4be0	2e 00 20 20 20 73 74 65 6c 6c 65 20 3a 3d 20 31 2e 30 20 2f 76 20 6d 61 78 20 3b 20 73 74 65 6c	.....stelle.:=.1.0./v.max.;.stel
4c00	6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 6d 6f 76 65 28 6b 72 65 75 7a 2c	le);.................move(kreuz,
4c20	73 74 65 6c 6c 65 2c 79 6d 69 6e 29 3b 20 29 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	stelle,ymin);.).................
4c40	0e 00 62 65 73 63 68 72 69 66 74 65 20 79 3a 20 2e 00 7a 65 69 63 68 6e 65 20 79 20 73 74 72 69	..beschrifte.y:...zeichne.y.stri
4c60	63 68 3a 20 20 20 20 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	ch:....0.0,.stelle);............
4c80	4e 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	N...standardhoehe,.standardbreit
4ca0	65 29 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 20 6f 6d 6d	e);komma)).*.standardbreite,.omm
4cc0	61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	astellen),......N...move.(kreuz,
4ce0	20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 6f 72 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61 6e 64	.stelle,.ymin);orkomma)).*.stand
4d00	61 72 64 62 72 65 69 74 65 2c 20 72 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	ardbreite,.rdhoehe);............
4d20	3e 00 20 20 20 6d 6f 76 65 63 6d 72 28 6b 72 65 75 7a 2c 28 28 2d 31 2e 30 29 2a 72 65 61 6c 28	>....movecmr(kreuz,((-1.0)*real(
4d40	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 20 67 2c ff	vorkomma)).*.standardbreite,.g,.
4d60	4e 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 67 65	N...standardhoehe.-.abstand).;ge
4d80	62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65	beibeschriftung,.nachkommastelle
4da0	6e 29 2c 20 30 2e 30 2c 20 ff ff ff ff ff ff ff 2e 00 20 20 20 7a 65 69 63 68 6e 65 20 79 73 74	n),.0.0,.............zeichne.yst
4dc0	72 69 63 68 3b 20 2c 30 2e 32 2c 30 2e 30 29 2e 20 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	rich;.,0.2,0.0)..e);............
4de0	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 61	N...move.(kreuz,.stelle,.ymin);a
4e00	6e 64 61 72 64 62 72 65 69 74 65 29 2e 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 29 20	ndardbreite)..bei.beschriftung).
4e20	2b 20 30 2e 35 29 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68	+.0.5)..........N...standardhoeh
4e40	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 28 76 6f 72 6b 6f 6d 6d 61 29 29 20 2a	e,.standardbreite).(vorkomma)).*
4e60	20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 31 2e 30 20 2a 20 ff ff ff ff ff ff ff	.standardbreite,.-.1.0.*........
4e80	3e 00 20 20 20 20 64 72 61 77 20 20 20 20 20 20 28 20 20 20 20 20 20 20 77 61 6e 64 6c 65 28 73	>.....draw......(.......wandle(s
4ea0	74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff	telle,.laenge.bei.beschriftung,.
4ec0	4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 31 2e 30 20 2f 20 76 6d 61 78 3b 73 74 65 6c 6c 65 2c	N...stelle.:=.1.0./.vmax;stelle,
4ee0	20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d	.laengebeibeschriftung,.nachkomm
4f00	61 73 74 65 6c 6c 65 6e 29 2c ff ff ff ff ff ff 1e 00 6c 69 65 66 65 72 65 20 6b 72 65 75 7a 3a	astellen),........liefere.kreuz:
4f20	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 74 72 61 6e 73 66 65 72 20 3a	......................transfer.:
4f40	3d 20 6b 72 65 75 7a 3b 20 ff ff ff ff ff ff ff 0e 00 20 20 20 20 74 72 61 6e 73 66 65 72 2e 20	=.kreuz;..............transfer..
4f60	2e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 20 65 72 7a 65 75 67 65 6e 20 75 6e 64 20 7a 65 69	..ENDPROC.kreuz.erzeugen.und.zei
4f80	63 68 6e 65 6e 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75	chnen;..........>.PROC.darstellu
4fa0	6e 67 20 34 20 28 4c 4f 45 53 55 4e 47 20 56 41 52 20 6c 73 67 2c 20 54 45 58 54 20 56 41 52 20	ng.4.(LOESUNG.VAR.lsg,.TEXT.VAR.
4fc0	74 61 73 74 65 29 3a 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 64 72 61 77 20 20 20 20 20 20	taste):.........>.....draw......
4fe0	28 6b 72 65 75 7a 2c 20 77 61 6e 64 6c 65 28 73 74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 20 62 65	(kreuz,.wandle(stelle,.laenge.be
5000	69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff 1e 00 20 20 20 20 74 72 61 6e 73 66 65 72 20 3a	i.beschriftung,.......transfer.:
5020	3d 20 6b 72 65 75 7a 3b 20 ff ff ff ff ff ff ff 2e 00 20 20 20 20 6d 6f 76 65 20 20 20 20 20 20	=.kreuz;..............move......
5040	28 6b 72 65 75 7a 2c 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 20 3b 20 ff ff ff ff ff ff ff ff ff	(kreuz,0.0,.stelle);.;..........
5060	2e 00 20 20 50 41 52 41 4d 45 54 45 52 20 56 41 52 20 70 20 3a 3a 20 50 41 52 41 4d 45 54 45 52	....PARAMETER.VAR.p.::.PARAMETER
5080	53 41 54 5a 20 6c 73 67 3b ff ff ff ff ff ff ff 3e 00 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75	SATZ.lsg;.......>.PROC.darstellu
50a0	6e 67 20 34 20 28 4c 4f 45 53 55 4e 47 20 56 41 52 20 6c 73 67 2c 20 54 45 58 54 20 56 41 52 20	ng.4.(LOESUNG.VAR.lsg,.TEXT.VAR.
50c0	74 61 73 74 65 29 3a 20 74 22 29 3b ff ff ff ff 2e 00 20 20 6b 20 6d 20 20 20 3a 3d 20 28 28 70	taste):.t");........k.m...:=.((p
50e0	20 53 55 42 20 32 29 2b 28 70 20 53 55 42 20 33 29 29 20 2f 20 28 70 20 53 55 42 20 31 29 3b ff	.SUB.2)+(p.SUB.3))./.(p.SUB.1);.
5100	2e 00 20 20 54 45 58 54 20 56 41 52 20 64 69 76 66 65 68 6c 65 72 20 3a 3a 20 22 22 3b 30 2e 30	....TEXT.VAR.divfehler.::."";0.0
5120	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 7a 65 69 67 65 20 61	.........................zeige.a
5140	62 62 72 75 63 68 6d 65 6e 75 65 3b ff ff ff ff 1e 00 20 20 20 20 6b 65 72 6e 20 76 6f 6e 20 64	bbruchmenue;..........kern.von.d
5160	61 72 73 74 65 6c 6c 75 6e 67 20 34 20 ff ff ff 1e 00 6b 65 72 6e 20 76 6f 6e 20 64 61 72 73 74	arstellung.4......kern.von.darst
5180	65 6c 6c 75 6e 67 20 34 3a 20 ff ff ff ff ff ff 2e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 20	ellung.4:.........ENDPROC.kreuz.
51a0	65 72 7a 65 75 67 65 6e 20 75 6e 64 20 7a 65 69 63 68 6e 65 6e 3b 20 ff ff ff ff ff ff ff ff ff	erzeugen.und.zeichnen;..........
51c0	1e 00 20 20 20 20 20 20 20 77 61 72 74 65 20 61 75 66 20 65 73 63 3b 20 ff ff ff ff ff ff ff ff	.........warte.auf.esc;.........
51e0	1e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3b ff	............zeige.abbruchmenue;.
5200	4e 00 20 20 65 6e 61 62 6c 65 20 73 74 6f 70 3b 6b 72 65 75 7a 3b 54 41 52 54 57 45 52 54 20 6c	N...enable.stop;kreuz;TARTWERT.l
5220	73 67 3b 65 68 6c 65 72 20 76 6d 61 78 20 3b 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74	sg;ehler.vmax.;dellgroessen.tast
5240	65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 54 45 58 54 20 56 41 52 20 64 69 76	e...................TEXT.VAR.div
5260	66 65 68 6c 65 72 20 3a 3d 20 22 22 20 3b 68 6e 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	fehler.:=."".;hnen;.............
5280	1e 00 20 20 45 4c 49 46 20 6b 20 6d 20 3d 20 30 2e 30 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65	....ELIF.k.m.=.0.0e.=.sendetaste
52a0	2e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3b 6f	............zeige.abbruchmenue;o
52c0	6e 73 66 65 68 6c 65 72 20 6b 6d 3b 20 ff ff ff 3e 00 20 20 50 41 52 41 4d 45 54 45 52 20 56 41	nsfehler.km;....>...PARAMETER.VA
52e0	52 20 70 20 3a 3d 20 50 41 52 41 4d 45 54 45 52 53 41 54 5a 20 6c 73 67 3b 70 61 72 61 6d 3b 62	R.p.:=.PARAMETERSATZ.lsg;param;b
5300	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 4e 00 20 20 49 46 20 28 70 20 53 55 42 20 31 29	ezeichnung,.....N...IF.(p.SUB.1)
5320	20 3d 20 30 2e 30 20 20 2a 20 28 28 76 20 53 55 42 20 32 29 2b 28 76 20 53 55 42 20 33 29 29 29	.=.0.0..*.((v.SUB.2)+(v.SUB.3)))
5340	3b 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f 74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff	;teuerzeile,.plottask);.........
5360	2e 00 20 20 5a 55 53 54 41 4e 44 20 56 41 52 20 76 20 3a 3d 20 53 54 41 52 54 57 45 52 54 20 6c	....ZUSTAND.VAR.v.:=.STARTWERT.l
5380	73 67 3b 2f 20 28 70 20 53 55 42 20 31 29 3b ff 2e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 67	sg;/.(p.SUB.1);.............zeig
53a0	65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3b 20 6e 20 65 69 6e 62 6c 20 ff ff ff ff ff ff ff ff	e.abbruchmenue;.n.einbl.........
53c0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65	>.............THEN.modellgroesse
53e0	6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20	n.einblenden.(dst,.lsg,.taste);.
5400	4e 00 20 20 20 20 20 20 76 6d 61 78 20 3a 3d 20 28 28 70 20 53 55 42 20 33 29 20 2a 20 28 28 76	N.......vmax.:=.((p.SUB.3).*.((v
5420	20 53 55 42 20 32 29 20 2b 20 28 76 20 53 55 42 20 33 29 29 29 3b 20 6d 6f 64 65 6c 6c 67 72 6f	.SUB.2).+.(v.SUB.3)));.modellgro
5440	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	essen.taste.....................
5460	20 20 20 20 20 20 54 48 45 4e 20 ff ff ff ff ff 2e 00 20 20 20 20 20 20 49 46 20 76 6d 61 78 20	......THEN..............IF.vmax.
5480	3d 20 30 2e 30 20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 20 6b 6d 3b 20 ff ff ff	=.0.0.:=.divisionsfehler.km;....
54a0	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 ff ff ff ff ff	......................ELSE......
54c0	3e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28 74 61 73 74 65 29 3b 20 20 20 20 20 20 20 20 20	>........inchar(taste);.........
54e0	20 20 20 20 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff	.....modellkurzbezeichnung,.....
5500	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49 3b ff ff ff ff ff ff ff ff ff ff	...................FI;..........
5520	2e 00 20 20 20 20 6b 65 72 6e 20 76 6f 6e 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 6c 75 6e	......kern.von.darstellung.4.lun
5540	67 20 34 20 28 31 32 29 3b 74 65 20 ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 64 69 76 66	g.4.(12);te.................divf
5560	65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 6b 6d 20 78 20 3b 20 ff	ehler.:=.divisionsfehlerkm.x.;..
5580	2e 00 20 20 20 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	.........ELIF.taste.=.menuetaste
55a0	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 54 48	..............................TH
55c0	45 4e 20 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3b	EN..zeige.menue.zur.zusatzdarst;
55e0	4e 00 20 20 20 49 46 20 64 69 76 66 65 68 6c 65 72 20 3c 3e 20 22 22 3d 20 64 69 76 69 73 69 6f	N....IF.divfehler.<>.""=.divisio
5600	6e 73 66 65 68 6c 65 72 6b 6d 20 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f	nsfehlerkm.ile,.steuerzeile,.plo
5620	74 74 61 73 6b 29 3b 74 61 73 74 65 20 ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ttask);taste....................
5640	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 34 20 34 ff ff	.........leave.darstellung.4.4..
5660	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 ff ff ff ff ff	......................ELSE......
5680	3e 00 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 34 3b 6e	>..........leave.darstellung.4;n
56a0	67 20 34 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20	g.4inblenden.(dst,.lsg,.taste);.
56c0	1e 00 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 3a ff ff ff ff ff ff ff ff ff ff	..leave.darstellung.4:..........
56e0	1e 00 20 20 20 20 20 20 66 6f 72 67 65 74 28 22 64 61 72 73 74 22 2c 71 75 69 65 74 29 3b 20 ff	........forget("darst",quiet);..
5700	1e 00 20 20 20 20 20 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 2e ff ff ff ff	........LEAVE.darstellung.4.....
5720	1e 00 77 61 68 6c 20 64 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3a ff ff ff	..wahl.der.darstellungsarten:...
5740	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 76 65 72 73 65 6e 64 65 20 6f 75 74	>..............THEN.versende.out
5760	70 75 74 20 28 64 73 74 2c 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20	put.(dst,den.(dst,.lsg,.taste);.
5780	3e 00 20 20 20 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	>........ELIF.taste.=.darstellun
57a0	67 73 61 72 74 20 74 61 73 74 65 20 6e 3b 20 74 61 62 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	gsart.taste.n;.tab..............
57c0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 20 64 61 72 73	>.....................THEN..dars
57e0	74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 20 61 73 74 65 29 20 65 20 7a 65 69 74 64 20 ff ff ff	tellungsarten;.aste).e.zeitd....
5800	1e 00 20 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff	.......THEN.leave.darstellung.4.
5820	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	..............THEN..zeige.menue.
5840	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3b 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	zur.zusatzdarst;................
5860	20 20 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff ff	......THEN.leave.darstellung.4..
5880	1e 00 77 61 68 6c 20 64 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3a 3a ff ff	..wahl.der.darstellungsarten::..
58a0	2e 00 20 20 20 20 20 20 20 20 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	...........kern.von.zeige.menue.
58c0	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 00 20 20 20 20 20 20 66 6f 72 67 65 74 28 22	zur.zusatzdarst.........forget("
58e0	64 61 72 73 74 22 2c 71 75 69 65 74 29 3b 20 74 7a 64 61 72 73 74 20 3a ff ff ff ff ff ff ff ff	darst",quiet);.tzdarst.:........
5900	1e 00 20 20 20 20 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3b 20 ff ff ff ff ff ff ff ff ff ff ff	......gib.menue.aus;............
5920	1e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28 74 61 73 74 65 29 3b 20 ff ff ff ff ff ff ff ff	.........inchar(taste);.........
5940	2e 00 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 65	.........IF.taste.=.abbruchtaste
5960	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75	..................zeige.menue.zu
5980	72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff	r.zusatzdarst:roessen.taste.....
59a0	0e 00 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 1e 00 20 20 20 20 20 20 20 20 20 20 20 6c 65 61	...........THEN..............lea
59c0	76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 2e 00 20 20 20 20 20 20 4c 45 41 56 45 20 64 61	ve.darstellung.4........LEAVE.da
59e0	72 73 74 65 6c 6c 75 6e 67 20 34 2e 74 2c 20 76 20 6d 61 78 2c 20 6b 6d 29 3b ff ff ff ff ff ff	rstellung.4.t,.v.max,.km);......
5a00	3e 00 64 69 61 6c 6f 67 20 66 75 65 72 20 64 65 6d 6f 3a 20 6e 67 73 61 72 74 65 6e 3a 20 61 75	>.dialog.fuer.demo:.ngsarten:.au
5a20	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 ff ff	s.(dst,.modellkurzbezeichnung,..
5a40	2e 00 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 72 73	..zeige.menue.zur.zusatzdarst:rs
5a60	74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 20 ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c	tellungsarten;..>..............l
5a80	65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 74	eavedarstellung4.taste.=.zeige.t
5aa0	61 62 73 74 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75	abst..............zeige.menue.zu
5ac0	72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20	r.zusatzdarst:e.zur.zusatzdarst.
5ae0	3e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 3a 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65	>.dialogfuerdemo:.=.abbruchtaste
5b00	20 43 4f 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 ff ff ff ff ff ff ff ff	.COR.taste.=.weitertaste........
5b20	3e 00 20 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	>.............gebeaufbildschirma
5b40	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 6e 75 6e 67 2c 20	us.(dst,.modellkurzbezeichnung,.
5b60	4e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e 20 28 74 61 73 74 65 29 3b 73 6e 61 6d 65 2c 20	N.....tastelesen.(taste);sname,.
5b80	67 20 34 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 6f 64 65 6c 6c 67 72 6f	g.4R.taste.=.weitertasteodellgro
5ba0	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 2e 00 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65	essen.taste.......kern.von.zeige
5bc0	20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 6c 6c 75 6e 67 20 34 ff	.menue.zur.zusatzdarst.:llung.4.
5be0	3e 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
5c00	34 20 34 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 74 20	4.4...kopfzeile,steuerzeile);.t.
5c20	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49 3b ff ff ff ff ff ff ff ff ff ff	...................FI;..........
5c40	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
5c60	72 74 74 61 73 74 65 20 73 74 65 20 6e 3b 20 ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54	rttaste.ste.n;.................T
5c80	48 45 4e 20 76 65 72 73 65 6e 64 65 20 6f 75 74 70 75 74 20 28 64 73 74 2c ff ff ff ff ff ff ff	HEN.versende.output.(dst,.......
5ca0	3e 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 72 74	>.........reenterdarstellung4.rt
5cc0	65 6e 3b 20 7a 75 73 61 74 7a 64 61 72 73 74 20 65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff	en;.zusatzdarst.ezeichnung,.....
5ce0	4e 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 3b 20 6e	N.........reenterdarstellung4;.n
5d00	67 73 61 72 74 74 61 73 74 65 6c 65 6e 6e 75 6d 6d 65 72 29 3b 20 7a 65 69 6c 65 2c 20 70 6c 6f	gsarttastelennummer);.zeile,.plo
5d20	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ttask);.........................
5d40	20 20 20 20 67 69 62 20 6d 65 6c 64 75 6e 67 20 61 75 73 20 28 31 32 29 3b ff ff ff ff ff ff ff	....gib.meldung.aus.(12);.......
5d60	1e 00 20 20 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 ff ff ff	.........ELIF.taste.=.rubout....
5d80	3e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 7a 75 72 7a 75 73 61 74 7a 64 61 72	>.leavedarstellung4:zurzusatzdar
5da0	73 74 3b 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff	st;e.COR.taste.=.zeige.zeitd....
5dc0	4e 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 74 61 73 74	N...forget.("darst",.quiet);tast
5de0	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
5e00	65 20 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 3e 00 20 20 4c 45 41 56 45 20 64 61 72 73 74 65	e.nung,.........>...LEAVE.darste
5e20	6c 6c 75 6e 67 34 2e 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 7a 75 73 61 74 7a	llung4..COR.taste.=.zeige.zusatz
5e40	20 7a 65 69 67 65 20 7a 65 69 74 64 20 20 ff ff 3e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c	.zeige.zeitd....>.reenterdarstel
5e60	6c 75 6e 67 34 3a 72 73 74 65 6c 6c 75 6e 67 34 20 73 73 65 6e 20 74 61 73 74 65 20 20 28 64 73	lung4:rstellung4.ssen.taste..(ds
5e80	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 1e 00 20 20 20 20 20 20 20 45 4c 49 46 20 4e 4f	t,.lsg,.taste);..........ELIF.NO
5ea0	54 28 74 61 73 74 65 20 3d 20 65 73 63 20 29 20 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	T(taste.=.esc.).>...............
5ec0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	.....................modellkurzb
5ee0	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 0e 00 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3a	ezeichnung,.......gib.menue.aus:
5f00	2e 00 20 20 20 20 46 4f 52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 6d 65 6e 75 65 64 69 6d	......FOR.i.FROM.1.UPTO.menuedim
5f20	65 6e 73 69 6f 6e 20 ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 52 45 50 20 20 20	ension....................REP...
5f40	6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 28 69 29 20 3a 3d 20 30 20 ff ff ff ff ff ff	menuezeilennummer(i).:=.0.......
5f60	4e 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	N...........reenterdarstellung4.
5f80	6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20	n.einblenden.(dst,.lsg,.taste);.
5fa0	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61	ttask);.........>........ELIF.ta
5fc0	73 74 65 20 3d 20 72 75 62 6f 75 74 20 6e 67 20 61 75 73 20 28 31 32 29 3b 72 7a 65 69 6c 65 20	ste.=.rubout.ng.aus.(12);rzeile.
5fe0	20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 4e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28	.............*).N........inchar(
6000	74 61 73 74 65 29 3b 20 4e 20 20 20 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 6d	taste);.N...leave.darstellung.4m
6020	65 72 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff	er);..............*)............
6040	4e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 3a 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65	N.dialogfuerdemo:.=.abbruchtaste
6060	20 65 72 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20	.er.zeige.menue.zur.zusatzdarst.
6080	63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 43 4f 52 20 74	chnung,.........N..........COR.t
60a0	61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 6e 75 6d 6d	aste.=.modellgroessen.taste.numm
60c0	65 72 29 3b 20 72 7a 65 69 6c 65 29 3b 20 65 69 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff	er);.rzeile);.eichnung,.........
60e0	2e 00 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3a 65 28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d	..gib.menue.aus:e(menuezeilennum
6100	6d 65 72 29 2e 20 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 46 4f 52 20 69 20 46 52 4f 4d	mer)..................FOR.i.FROM
6120	20 31 20 55 50 54 4f 20 6d 65 6e 75 65 64 69 6d 65 6e 73 69 6f 6e 20 ff ff ff ff ff ff ff ff ff	.1.UPTO.menuedimension..........
6140	2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 28 74 61 73 74 65 20 3d 20 65 73 63 20 29 20	.........ELIF.NOT(taste.=.esc.).
6160	72 28 69 29 20 3a 3d 20 30 20 64 61 72 73 74 2e 2e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20	r(i).:=.0.darst...reenter.zeige.
6180	6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff	menue.zur.zusatzdarst:..........
61a0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69	>.............LEAVE.kern.von.zei
61c0	67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff	ge.menue.zur.zusatzdarst........
61e0	1e 00 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 20 ff ff ff ff ff ff ff ff ff ff	..zeige.abbruchmenue:...........
6200	2e 00 20 20 20 20 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e	.......kern.von.zeige.abbruchmen
6220	75 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65	ue................kern.von.zeige
6240	20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 20 ff 1e 00 20 20 67 69 62 20 61 62 62 72 75 63 68 6d	.abbruchmenue:......gib.abbruchm
6260	65 6e 75 65 20 61 75 73 3b 20 ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28	enue.aus;................inchar(
6280	74 61 73 74 65 29 3b 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 49 46 20 74 61 73 74	taste);..................IF.tast
62a0	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 ff ff ff ff ff ff	e.=.abbruchtaste................
62c0	2e 00 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 20 20 6d 6f 64 65 6c 6c 67 72 6f	..zeige.abbruchmenue:..modellgro
62e0	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 0e 00 20 20 20 20 20 20 20 20 20 54 48 45 4e 20	essen.taste................THEN.
6300	1e 00 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 34	.............leave.darstellung.4
6320	2e 00 6c 65 61 76 65 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61	..leave.zeige.menue.zur.zusatzda
6340	72 73 74 3a 74 3a 73 61 74 7a 64 61 72 73 74 2e 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45	rst:t:satzdarst.>.............LE
6360	41 56 45 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e	AVE.zeige.menue.zur.zusatzdarst.
6380	61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff 4e 00 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d	atzdarst........N...ELIF.taste.=
63a0	20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20	.rubout.COR.taste.=.zeigezusatz.
63c0	20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 45 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	.............*).E);.............
63e0	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 62 65 20 61 75 66 20 62 69 6c 64	N..................gebe.auf.bild
6400	73 63 68 69 72 6d 20 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	schirm.aus.(dst,.modellkurzbezei
6420	63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 67 65 62 65 61 75 66 62	chnung,.........N.......gebeaufb
6440	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 62 65 7a	ildschirmaus.(dst,.modellkurzbez
6460	65 69 63 68 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	eichnung,.darstellungsname,.....
6480	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65	......................THEN.leave
64a0	20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff ff 2e 00 20 20 20 20 20 6b 65 72 6e 20 76 6f 6e 20	.darstellung.4.........kern.von.
64c0	7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 20 67 65 20 7a 75 73 61 74 7a ff ff ff ff	zeige.abbruchmenue.ge.zusatz....
64e0	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e ff ff ff ff ff ff	......................THEN......
6500	3e 00 20 20 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 28 74 61 73 74 65 20 3d 20 65 73 63 20 29 20	>........ELIF.NOT(taste.=.esc.).
6520	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e 6e 75 65 ff ff ff ff ff ff ff ff ff ff ff ff ff	zur.zusatzdarst.nue.............
6540	1e 00 20 20 20 20 67 69 62 20 61 62 62 72 75 63 68 6d 65 6e 75 65 20 61 75 73 3b 20 65 3a 20 ff	......gib.abbruchmenue.aus;.e:..
6560	1e 00 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 20 34	..kern.von.zeige.abbruchmenue:.4
6580	3e 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
65a0	74 3a 61 72 74 74 61 73 74 65 65 20 74 61 73 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	t:arttastee.taste)..............
65c0	1e 00 67 69 62 20 61 62 62 72 75 63 68 6d 65 6e 75 65 20 61 75 73 3a ff ff ff ff ff ff ff ff ff	..gib.abbruchmenue.aus:.........
65e0	2e 00 20 20 20 20 46 4f 52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 6d 65 6e 75 65 64 69 6d	......FOR.i.FROM.1.UPTO.menuedim
6600	65 6e 73 69 6f 6e 20 ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 54 48 45 4e 20	ension.....................THEN.
6620	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 65 6e 67 20 34 ff ff	ste.=.darstellungsarttasteng.4..
6640	4e 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 74 7a 64 61	N.........leavedarstellung4.tzda
6660	72 73 74 3a 2a 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 20 20 20 20 20 20 20 20 20 20 20	rst:*.modellgroessen............
6680	20 20 2a 29 20 29 ff 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	..*).)..........>...............
66a0	20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65	.........reenter.zeige.abbruchme
66c0	6e 75 65 20 20 20 20 20 20 20 20 20 20 2a 29 20 4e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20	nue..........*).N.reenter.zeige.
66e0	6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 6e 20 6d 65 6e 75 65 20 7a 75	menue.zur.zusatzdarst:n.menue.zu
6700	20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 2a 29 20 74 64 20 ff ff ff ff ff ff ff ff	.darstellungsarten*).td.........
6720	4e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 6e 20 76 6f 6e 20 7a 65 69	N.........loeschemenue;n.von.zei
6740	67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e 20 69 67 65 20 74 61	ge.menue.zur.zusatzdarst..ige.ta
6760	62 20 7a 65 69 74 64 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 63 75 72 73 6f 72 20 28 33 2c	b.zeitd...............cursor.(3,
6780	32 32 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6f 75 74 20 28 64 69 76 69 73	22);..................out.(divis
67a0	69 6f 6e 73 66 65 68 6c 65 72 29 3b ff ff ff ff 2e 00 20 20 20 20 7a 65 69 67 65 20 6d 65 6e 75	ionsfehler);..........zeige.menu
67c0	65 28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 29 2e 20 ff ff ff ff ff ff ff ff ff ff	e(menuezeilennummer)............
67e0	1e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff	..reenter.zeige.abbruchmenue:...
6800	2e 00 20 20 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 20 29 20	.........ELIF.taste.=.rubout..).
6820	67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	ge.abbruchmenue...END.PROC.darst
6840	65 6c 6c 75 6e 67 20 34 3b 20 ff ff ff ff ff ff 2e 00 20 20 20 20 76 20 6d 61 78 20 62 65 7a 65	ellung.4;.............v.max.beze
6860	69 63 68 6e 75 6e 67 20 20 20 20 20 20 20 3d 20 22 20 20 20 56 6d 61 78 20 3d 20 22 2c 20 ff ff	ichnung.......=."...Vmax.=.",...
6880	4e 00 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 20 70 61 72 61 6d 20 20 20 3d 20	N.....divisionsfehler.param...=.
68a0	22 20 20 20 4b 6d 20 20 20 3d 20 22 2c 20 69 74 73 6b 6f 6e 73 74 61 6e 74 65 20 6b 20 2b 20 31	"...Km...=.",.itskonstante.k.+.1
68c0	20 3d 20 30 21 20 2a 2a 2a 22 2c ff ff ff ff ff 4e 00 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66	.=.0!.***",.....N.....divisionsf
68e0	65 68 6c 65 72 20 76 6d 61 78 20 20 20 20 3d 20 20 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74	ehler.vmax....=..Geschwindigkeit
6900	73 6b 6f 6e 73 74 61 6e 74 65 20 6b 20 2b 20 31 20 3d 20 30 21 20 2a 2a 2a 22 2c ff ff ff ff ff	skonstante.k.+.1.=.0!.***",.....
6920	3e 00 20 20 20 20 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 20 20 20 20 20 20 20 20 3d 20	>.....strukt.1.fenster........=.
6940	31 2c 20 2c 2c 20 20 28 2a 20 69 6e 20 6d 6d 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	1,.,,..(*.in.mm.*)..............
6960	2e 00 20 20 20 20 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d 20	......laenge.bei.beschriftung.=.
6980	38 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 6e 61 63 68 6b 6f 6d 6d 61 73	8,..............N.....nachkommas
69a0	74 65 6c 6c 65 6e 20 20 20 20 20 20 20 20 3d 20 32 2c 20 65 69 6c 65 6e 6e 75 6d 6d 65 72 3b 20	tellen........=.2,.eilennummer;.
69c0	52 45 41 4c 20 43 4f 4e 53 54 20 76 20 6d 61 78 2c 20 6b 20 6d 29 3a 20 ff ff ff ff ff ff ff ff	REAL.CONST.v.max,.k.m):.........
69e0	3e 00 20 20 20 52 45 41 4c 20 56 41 52 20 6d 69 6e 20 78 2c 6d 61 78 20 78 2c 6d 69 6e 20 79 2c	>....REAL.VAR.min.x,max.x,min.y,
6a00	6d 61 78 20 79 2c 20 70 75 6e 6b 74 20 78 2c 20 64 72 65 69 20 64 75 72 63 68 20 76 6d 61 78 3b	max.y,.punkt.x,.drei.durch.vmax;
6a20	2e 00 20 20 20 49 4e 54 20 43 4f 4e 53 54 20 66 65 6e 73 74 65 72 20 3a 3a 20 31 3b 65 6e 2c 20	.....INT.CONST.fenster.::.1;en,.
6a40	6f 62 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 52 45 41 4c 20 56 41 52 20 6d 69	oben;...........>....REAL.VAR.mi
6a60	6e 20 78 2c 6d 61 78 20 78 2c 6d 69 6e 20 79 2c 6d 61 78 20 79 2c 20 70 75 6e 6b 74 20 78 2c 20	n.x,max.x,min.y,max.y,.punkt.x,.
6a80	64 72 65 69 20 64 75 72 63 68 20 76 6d 61 78 3b 3e 00 20 20 20 52 45 41 4c 20 56 41 52 20 20 6c	drei.durch.vmax;>....REAL.VAR..l
6aa0	6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65 6e 3b 3b 6f 64 65 6c 6c 6b 75 72 7a 62	ks,.rts,.unten,.oben;;odellkurzb
6ac0	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 1e 00 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65	ezeichnung,..........initialisie
6ae0	72 65 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 72	re;..................schreibe.kr
6b00	65 75 7a 3b 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 72	euz;.................schreibe.kr
6b20	65 75 7a 3b 20 74 65 20 6b 75 72 76 65 20 3b ff 4e 00 20 20 20 49 46 20 69 6e 20 64 65 6d 6f 20	euz;.te.kurve.;.N....IF.in.demo.
6b40	54 48 45 4e 20 70 6c 6f 74 74 65 20 66 75 73 73 7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20 73 74	THEN.plotte.fusszeile.(seite,.st
6b60	65 75 65 72 7a 65 69 6c 65 20 64 65 6d 6f 29 3b 65 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff	euerzeile.demo);enster);........
6b80	2e 00 20 20 20 62 65 67 69 6e 20 70 6c 6f 74 3b 6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20	.....begin.plot;ks,.rts,.unten,.
6ba0	6f 62 65 6e 29 3b 73 74 65 72 29 3b ff ff ff ff 2e 00 20 20 20 6e 69 6c 20 64 69 61 67 72 61 6d	oben);ster);.........nil.diagram
6bc0	6d 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 29 3b ff ff ff ff	m.(seite,.strukt.1.fenster);....
6be0	1e 00 20 20 20 6d 61 78 20 78 20 3a 3d 20 32 2e 30 20 2f 20 6b 20 6d 3b ff ff ff ff ff ff ff ff	.....max.x.:=.2.0./.k.m;........
6c00	2e 00 20 20 20 6d 61 78 20 78 20 3a 3d 20 32 2e 30 20 2f 20 6b 20 6d 3b 20 33 2e 30 20 2f 20 76	.....max.x.:=.2.0./.k.m;.3.0./.v
6c20	20 6d 61 78 3b 69 6c 6f 6e 29 3b ff ff ff ff ff 4e 00 20 20 20 6d 69 6e 20 79 20 3a 3d 20 30 2e	.max;ilon);.....N....min.y.:=.0.
6c40	30 3b 2f 20 6b 20 6d 3b 20 2b 20 28 32 2e 30 20 2a 20 65 70 73 69 6c 6f 6e 29 3b 2c 20 6d 61 78	0;/.k.m;.+.(2.0.*.epsilon);,.max
6c60	20 78 2c 20 6d 69 6e 20 79 2c 20 6d 61 78 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	.x,.min.y,.max.y);..............
6c80	4e 00 20 20 77 69 6e 64 6f 77 20 28 6d 69 6e 78 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61	N...window.(minx,.maxx,.miny,.ma
6ca0	78 79 29 3b 3b 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 70 75 6e 6b 74 20 78 20 6e 65 67 61 74	xy);;...........(*.punkt.x.negat
6cc0	69 76 20 21 20 2a 29 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	iv.!.*).........N...pen.(kreuz,.
6ce0	31 29 3b 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6d 69 6e 78 2c 20 6d 61 78 78 2c 20 6d	1);strukt1fenster,.minx,.maxx,.m
6d00	69 6e 79 2c 20 6d 61 78 79 29 3b 6d 61 78 20 79 29 3b 20 20 76 20 6d 61 78 2c ff ff ff ff ff ff	iny,.maxy);max.y);..v.max,......
6d20	3e 00 20 20 20 70 65 6e 20 20 28 6b 72 65 75 7a 2c 20 31 29 3b 20 20 20 20 20 20 20 20 20 20 20	>....pen..(kreuz,.1);...........
6d40	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 6e 6b 74 20 78 29 3b ff ff ff ff ff ff	.................punkt.x);......
6d60	3e 00 20 20 20 70 75 74 20 6b 72 65 75 7a 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 20 31 20	>....put.kreuz.(seite,.strukt.1.
6d80	66 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a 29 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	fenster,.kreuz);................
6da0	2e 00 62 65 73 63 68 72 69 66 74 65 20 75 6e 64 20 70 6c 6f 74 74 65 20 62 65 73 63 68 72 69 66	..beschrifte.und.plotte.beschrif
6dc0	74 75 6e 67 3a ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 73 63 68 72 65 69 62 65 6b 6d 69 6e	tung:...............schreibekmin
6de0	6c 65 67 65 6e 64 65 3b 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b ff ff ff ff ff ff ff ff ff ff	legende;:=.nilpicture;..........
6e00	3e 00 20 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 3b 74 6e 61 6d 65 20 69 6e 20 6c 65 67 65 6e	>...plottelegende;tname.in.legen
6e20	64 65 3b 2a 29 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff	de;*)er,.legende);..............
6e40	4e 00 20 20 73 63 68 72 65 69 62 65 6b 6d 69 6e 6c 65 67 65 6e 64 65 3b 6e 64 65 3b 65 67 65 6e	N...schreibekminlegende;nde;egen
6e60	64 65 3b 73 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 20 2e 20 65 69 74 65 20 23 20 2b 20 30 2e	de;ster,.legende);...eite.#.+.0.
6e80	31 23 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 77 65 72 74 20 3a 3d 20 74 65 78	1#;..................wert.:=.tex
6ea0	74 20 28 76 20 6d 61 78 29 3b 20 68 65 20 3b 20 2e 37 20 2a 20 6d 61 78 20 79 29 3b ff ff ff ff	t.(v.max);.he.;..7.*.max.y);....
6ec0	3e 00 20 20 20 70 75 74 20 6b 72 65 75 7a 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 20 31 20	>....put.kreuz.(seite,.strukt.1.
6ee0	66 65 6e 73 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 20 2e 20 2c ff ff ff ff ff ff ff ff ff ff	fenster,.legende);...,..........
6f00	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73	>...............standardhoehe,.s
6f20	74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 2e 2e 30 2c ff ff ff ff ff ff ff ff ff ff ff ff	tandardbreite);...0,............
6f40	3e 00 62 65 73 63 68 72 69 66 74 65 61 63 68 73 65 6e 69 6e 6c 65 67 65 6e 64 65 3a 20 2a 20 6d	>.beschrifteachseninlegende:.*.m
6f60	61 78 79 29 3b 6e 75 6e 67 20 2b 20 77 65 72 74 2c 20 30 2e 30 2c ff ff ff ff ff ff ff ff ff ff	axy);nung.+.wert,.0.0,..........
6f80	4e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 65 2c 20 30 2e 30 2c 20 6d 61 78 79 29 3b 61 2c	N...move.(legende,.0.0,.maxy);a,
6fa0	20 30 2e 30 29 3b 64 62 72 65 69 74 65 29 3b 20 2e 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c	.0.0);dbreite);..,.nachkommastel
6fc0	6c 65 6e 29 3b 69 74 65 29 3b 20 ff ff ff ff ff 3e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28	len);ite);......>....move.cm.r.(
6fe0	6c 65 67 65 6e 64 65 2c 20 2d 36 2e 30 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 20 2d	legende,.-6.0*standardbreite,..-
7000	31 2e 30 29 3b 20 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	1.0);...........N...move.(legend
7020	65 20 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 29 3b 2e 36 20 2a 20 6d 61 78 20 79 29 3b 72 74 2c 20	e.,.maxx,.miny);.6.*.max.y);rt,.
7040	30 2e 30 2c 3b 20 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 2e ff ff ff ff	0.0,;.ehe,.standardbreite);.....
7060	2e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28 6c 65 67 65 6e 64 65 2c 20 2d 31 2e 30 20 2a 20	.....move.cm.r.(legende,.-1.0.*.
7080	61 2c 20 30 2e 30 20 29 3b 20 ff ff ff ff ff ff 2e 00 20 20 73 63 68 72 65 69 62 65 70 69 63 74	a,.0.0.);...........schreibepict
70a0	75 72 65 2e 3a 3d 20 31 3b 3b 20 20 2e 20 73 74 69 66 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff	ure.:=.1;;....stift);...........
70c0	2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 66 75 6e 6b 74 69 6f 6e 3b 3b 20 78 2c 20 30 2e	....PICTURE.VAR.funktion;;.x,.0.
70e0	30 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 74 72 61 67 65 70 75 6e 6b 74 65 69 6e 70	0);...............tragepunkteinp
7100	69 63 74 75 72 65 65 69 6e 3a 2e 65 20 65 69 6e 3b 20 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	ictureein:.e.ein;.;.............
7120	3e 00 20 20 74 72 61 67 65 65 6e 64 70 75 6e 6b 74 65 69 6e 3b 75 6e 6b 74 69 6f 6e 2c 20 73 74	>...trageendpunktein;unktion,.st
7140	69 66 74 29 3b 20 2e 20 20 6d 61 78 29 20 3b 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	ift);....max).;.................
7160	2e 00 20 20 6d 6f 76 65 20 28 70 75 6e 6b 74 78 2c 20 30 2e 30 29 3b 3b 20 2e 20 78 2c 20 30 2e	....move.(punktx,.0.0);;...x,.0.
7180	30 29 3b 20 6e 73 66 65 72 29 3b 20 2e ff ff ff 4e 00 20 20 64 72 61 77 20 28 66 75 6e 6b 74 69	0);.nsfer);.....N...draw.(funkti
71a0	6f 6e 2c 20 6d 61 78 78 2c 20 64 72 65 69 64 75 72 63 68 76 6d 61 78 29 3b 6d 61 78 29 20 3b 4c	on,.maxx,.dreidurchvmax);max).;L
71c0	20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.CONST.xmin,xmax,...............
71e0	4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 3b 20 64 72 65 69 64 75	N...PICTURE.VAR.transfer;.dreidu
7200	72 63 68 76 6d 61 78 29 3b 6d 61 78 29 20 3b 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 3a 3a	rchvmax);max).;chsenabschnitte::
7220	31 31 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 70 75 74 70 69 63 74 75 72 65 20 28	11;.............N...putpicture.(
7240	73 65 69 74 65 2c 20 66 65 6e 73 74 65 72 2c 20 74 72 61 6e 73 66 65 72 29 3b 6c 20 79 20 61 63	seite,.fenster,.transfer);l.y.ac
7260	68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 3a 3a 31 31 3b 20 61 6d 6d 2a 29 20 ff ff ff ff ff ff	hsenabschnitte::11;.amm*).......
7280	3e 00 52 45 41 4c 20 56 41 52 20 78 77 65 69 74 65 2c 20 79 77 65 69 74 65 3b 6c 28 61 6e 7a 61	>.REAL.VAR.xweite,.yweite;l(anza
72a0	68 6c 20 78 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	hl.x.achsenabschnitte);.........
72c0	3e 00 79 77 65 69 74 65 3a 3d 20 28 79 6d 61 78 2d 79 6d 69 6e 29 2f 20 72 65 61 6c 28 61 6e 7a	>.yweite:=.(ymax-ymin)/.real(anz
72e0	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 ff ff ff ff ff ff ff	ahlyachsenabschnitte);..........
7300	2e 00 7a 65 69 63 68 6e 65 78 73 70 69 74 7a 65 3a 61 78 29 3b 2c 79 6d 61 78 29 3b 20 29 3b 20	..zeichnexspitze:ax);,ymax);.);.
7320	64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 20 28 78 6d 61 78 2c 20	dhoehe);............move.(xmax,.
7340	79 6d 69 6e 20 29 3b 6d 61 78 29 3b 6e 29 3b 20 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	ymin.);max);n);.dhoehe);........
7360	2e 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 2e 32 29 3b 20	....drawcmr.(-.0.2,.-.0.2);.2);.
7380	20 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	.hoehe);............drawcmr.(kre
73a0	75 7a 2c 20 2d 20 30 2e 32 2c 20 2d 20 30 2e 32 29 2e 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	uz,.-.0.2,.-.0.2).oehe);........
73c0	2e 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);
73e0	20 6f 65 68 65 29 3b 20 69 6e 29 3b 20 ff ff ff 2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	.oehe);.in);........move.(kreuz,
7400	20 30 2e 30 2c 20 79 6d 61 78 29 3b 65 68 65 29 3b 6f 65 68 65 29 3b 20 69 6e 29 3b 20 ff ff ff	.0.0,.ymax);ehe);oehe);.in);....
7420	2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72	....movecmr.(kreuz,.0.0,.standar
7440	64 68 6f 65 68 65 29 3b 6e 29 3b 20 ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	dhoehe);n);.........drawcmr.(kre
7460	75 7a 2c 20 2d 20 30 2e 32 2c 20 2d 20 30 2e 32 29 2e 6f 65 68 65 29 3b 6e 29 3b 20 ff ff ff ff	uz,.-.0.2,.-.0.2).oehe);n);.....
7480	2e 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);
74a0	68 6f 65 68 65 29 3b 20 6e 29 3b 20 ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 62	hoehe);.n);....................b
74c0	65 73 63 68 72 69 66 74 65 3b 20 ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 30 2e 30	eschrifte;..........movecmr.(0.0
74e0	2c 20 30 2e 32 29 3b 20 20 20 20 20 20 30 2e 30 2c 2d 30 2e 33 29 3b 6d 69 6e 29 3b 20 ff ff ff	,.0.2);......0.0,-0.3);min);....
7500	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2e 30 2a 73 74 61 6e 64 61	>....................-1.0*standa
7520	72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 20 29 3b ff ff ff ff ff ff ff ff ff ff	rdhoehe.-.abstand);.);..........
7540	1e 00 20 20 20 6d 6f 76 65 28 6b 72 65 75 7a 2c 73 74 65 6c 6c 65 2c 79 6d 69 6e 29 3b 20 ff ff	.....move(kreuz,stelle,ymin);...
7560	3e 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 64	>...move.(kreuz,.stelle,.ymin);d
7580	68 6f 65 68 65 2c 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 72 65 69 74 65 2c 20 ff ff ff	hoehe,standardbreite);reite,....
75a0	3e 00 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 3a 75 7a 2c 20 30 2e 30 2c 20 30 2e 32 29 3b 6c 28	>.koordursprung:uz,.0.0,.0.2);l(
75c0	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 20 ff ff ff	vorkomma)).*.standardbreite,....
75e0	4e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 30 2e 30 3b 2c 20 30 2e 30 2c 20 2d 20 30 2e 33 29 3b	N...stelle.:=.0.0;,.0.0,.-.0.3);
7600	20 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 20 64 62 72 65 69 74 65 2c 20 6f 6d 6d	.dhoehe.-.abstand);.dbreite,.omm
7620	61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 30 2e 30 2c 20 73	astellen),................0.0,.s
7640	74 61 6e 64 61 72 64 68 6f 65 68 65 2c 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e ff ff ff	tandardhoehe,standardbreite)....
7660	1e 00 20 20 20 62 65 73 63 68 72 69 66 74 65 20 79 20 2e 68 3b 20 ff ff ff ff ff ff ff ff ff ff	.....beschrifte.y..h;...........
7680	2e 00 20 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28 6b 72 65 75 7a 2c 30 2e 30 2c 20 73 74 65 6c	......move......(kreuz,0.0,.stel
76a0	6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 62 65 73 63 68 72 69 66 74 65 79 2e	le);............N...beschriftey.
76c0	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 3b 20 2e 30 2c 20 73 74 61 6e 64 61 72	e,.standardbreite).;..0,.standar
76e0	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 ff ff ff ff ff ff	dhoehe,.standardbreite);........
7700	4e 00 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 3a 6b 72 65 75 7a 2c 30 2e 30 2c 20 73 74 65 6c	N.zeichneystrich:kreuz,0.0,.stel
7720	6c 65 29 3b 20 20 28 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 29 20	le);..(laenge.bei.beschriftung).
7740	2b 20 30 2e 35 29 ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 64 72 61 77 20 20 20 20 20 20	+.0.5)..........>.....draw......
7760	28 6b 72 65 75 7a 2c 20 77 61 6e 64 6c 65 28 73 74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 20 62 65	(kreuz,.wandle(stelle,.laenge.be
7780	69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff 4e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 32	i.beschriftung,.N...drawcmr.(0.2
77a0	2c 20 30 2e 30 29 3b 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 20 20 28 6c 61 65 6e 67 65 20 62 65	,.0.0);0.0,.stelle);..(laenge.be
77c0	69 20 62 65 73 63 68 72 69 66 74 75 6e 67 29 20 2b 20 30 2e 35 29 29 2e 20 ff ff ff ff ff ff ff	i.beschriftung).+.0.5)).........
77e0	1e 00 20 20 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 3b 20 ff ff ff ff ff ff ff	......transfer.:=.kreuz;........
7800	3e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 20 65 72 7a 65 75 67 65 6e 20 75 6e 64 20 7a 65 69	>.ENDPROC.kreuz.erzeugen.und.zei
7820	63 68 6e 65 6e 3b 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 29 3a 20 ff ff ff ff ff ff ff ff	chnen;.TEXT.VAR.taste):.........
7840	1e 00 6c 69 65 66 65 72 65 20 6b 72 65 75 7a 3a 20 65 68 6c 65 72 20 3a 3a 20 22 22 3b ff ff ff	..liefere.kreuz:.ehler.::."";...
7860	2e 00 20 20 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 3b 20 20 22 22 3b 54 20 6c	......transfer.:=.kreuz;.."";T.l
7880	73 67 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 74 72 61 6e 73 66 65 72 2e 20	sg;...................transfer..
78a0	76 20 3a 3a 20 53 54 41 52 54 57 45 52 54 20 6c 73 67 3b 5a 20 6c 73 67 3b ff ff ff ff ff ff ff	v.::.STARTWERT.lsg;Z.lsg;.......
78c0	3e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 20 65 72 7a 65 75 67 65 6e 20 75 6e 64 20 7a 65 69	>.ENDPROC.kreuz.erzeugen.und.zei
78e0	63 68 6e 65 6e 3b 20 67 3b 55 42 20 33 29 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	chnen;.g;UB.3)));...............
7900	2e 00 20 20 49 46 20 28 70 20 53 55 42 20 31 29 20 3d 20 30 2e 30 20 50 41 52 41 4d 45 54 45 52	....IF.(p.SUB.1).=.0.0.PARAMETER
7920	53 41 54 5a 20 6c 73 67 3b 55 42 20 31 29 3b ff 1e 00 20 20 49 46 20 28 70 20 53 55 42 20 31 29	SATZ.lsg;UB.1);.....IF.(p.SUB.1)
7940	20 3d 20 30 2e 30 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 74 72 61 6e 73 66 65 72 2e 20	.=.0.0................transfer..
7960	65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3b 6f 6e 73 66 65 68 6c 65 72 20 70 61 72 61 6d 3b ff	e.abbruchmenue;onsfehler.param;.
7980	1e 00 20 20 45 4c 49 46 20 6b 20 6d 20 3d 20 30 2e 30 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	....ELIF.k.m.=.0.0..............
79a0	2e 00 20 20 20 20 20 54 48 45 4e 20 64 69 76 66 65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f	.......THEN.divfehler.:=.divisio
79c0	6e 73 66 65 68 6c 65 72 20 6b 6d 3b 20 ff ff ff 4e 00 20 20 49 46 20 28 70 20 53 55 42 20 31 29	nsfehler.km;....N...IF.(p.SUB.1)
79e0	20 3d 20 30 2e 30 20 3d 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 20 76 6d 61 78 20 3b 64	.=.0.0.=.divisionsfehler.vmax.;d
7a00	65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	ellgroessen.taste...............
7a20	2e 00 20 20 20 20 20 20 64 69 76 66 65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65	........divfehler.:=.divisionsfe
7a40	68 6c 65 72 70 61 72 61 6d 20 6d 61 78 20 3b ff 2e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 67	hlerparam.max.;.............zeig
7a60	65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3b 74 70 75 74 20 28 64 73 74 2c ff ff ff ff ff ff ff	e.abbruchmenue;tput.(dst,.......
7a80	4e 00 20 20 20 20 20 20 45 4c 49 46 20 6b 6d 20 3d 20 30 2e 30 20 75 63 68 6d 65 6e 75 65 3b 65	N.......ELIF.km.=.0.0.uchmenue;e
7aa0	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 20 74 61 73 74	.COR.taste.=.modellgroessen.tast
7ac0	65 20 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 45 4c 49 46 20 6b 6d 20	e.ask);.........>.......ELIF.km.
7ae0	3d 20 30 2e 30 20 20 34 3a 20 20 34 20 6f 75 74 70 75 74 20 28 64 73 74 2c 64 65 6e 20 28 64 73	=.0.0..4:..4.output.(dst,den.(ds
7b00	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 4e 00 20 20 7a 65 69 67 65 20 64 61 72 73 74 20	t,.lsg,.taste);.N...zeige.darst.
7b20	34 20 28 64 73 74 2c 20 69 6e 20 64 65 6d 6f 2c 20 76 20 6d 61 78 2c 20 6b 6d 29 3b 75 72 7a 62	4.(dst,.in.demo,.v.max,.km);urzb
7b40	65 7a 65 69 63 68 6e 75 6e 67 2c 20 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff	ezeichnung,.lgroessen.taste.....
7b60	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49 3b ff ff ff ff ff ff ff ff ff ff	...................FI;..........
7b80	2e 00 20 20 20 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	.........ELIF.taste.=.darstellun
7ba0	67 73 61 72 74 20 74 61 73 74 65 20 ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	gsart.taste.....................
7bc0	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 34 6e 3b 20 ff	.........leave.darstellung.4n;..
7be0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 61 76 65 20 64	......................ELSE.ave.d
7c00	61 72 73 74 65 6c 6c 75 6e 67 20 34 ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	arstellung.4....................
7c20	20 20 20 20 20 20 45 4c 53 45 20 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3b	......ELSE.enue.zur.zusatzdarst;
7c40	4e 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 20 20 20 20 20	N......kernvondarstellung4......
7c60	20 20 20 20 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 3b 20 67 72	.....modellkurzbezeichnung,.;.gr
7c80	6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff 1e 00 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c	oessen.taste......leave.darstell
7ca0	75 6e 67 20 34 3a ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ung.4:..........................
7cc0	20 20 20 20 46 49 20 6e 67 20 34 2e ff ff ff ff 3e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d	....FI.ng.4.....>.....IF.taste.=
7ce0	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
7d00	67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 20 ff 3e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61	groessentaste...>........ELIF.ta
7d20	73 74 65 20 3d 20 6d 65 6e 75 65 74 61 73 74 65 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 74	ste.=.menuetaste.taste.=.zeige.t
7d40	61 62 ff ff ff ff ff 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	ab..............>.....ELIF.taste
7d60	20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 75 6e 67 73 61 72 74 20 74 61 73 74 65 20 69 6c 65 2c	.=.sendetaste.ungsart.taste.ile,
7d80	73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 ff ff 2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61	steuerzeile);............ELIF.ta
7da0	73 74 65 20 3d 20 6d 65 6e 75 65 74 61 73 74 65 20 73 61 72 74 20 74 61 73 74 65 20 20 34 74 7a	ste.=.menuetaste.sart.taste..4tz
7dc0	2e 00 20 20 20 20 20 20 20 20 20 7a 65 69 67 65 20 64 61 72 73 74 20 34 20 28 64 73 74 2c 20 76	...........zeige.darst.4.(dst,.v
7de0	20 6d 61 78 2c 20 6b 6d 29 3b ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20	.max,.km);..................out.
7e00	28 70 69 65 70 29 3b 71 75 69 65 74 29 3b 20 74 65 20 3d 20 7a 65 69 67 65 20 7a 75 73 61 74 7a	(piep);quiet);.te.=.zeige.zusatz
7e20	3e 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 20 28 66	>.........leavedarstellung4.s.(f
7e40	61 6c 73 63 68 65 20 74 61 73 74 65 29 3b 20 6d 6d 65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff	alsche.taste);.mmer);...........
7e60	3e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 22 2c 71 75 69 65 74 29 3b 20 65	>.........out.(piep);",quiet);.e
7e80	20 73 73 65 6e 20 74 61 73 74 65 20 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff ff	.ssen.taste.atzdarst............
7ea0	3e 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
7ec0	72 74 65 6e 20 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 29 3b 20 2c 20 74 61 73 74 65 29 3b 20	rten..(taste,.FALSE);.,.taste);.
7ee0	4e 00 20 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 70 68 61 73 65 6e 64 20 43 4f 52	N...IF.taste.=.zeige.phasend.COR
7f00	20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 74 61 62 72 29 3b 20 20 6d 6f 64 65 6c 6c 67 72 6f	.taste.=.zeige.tabr);..modellgro
7f20	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54	essen.taste....................T
7f40	48 45 4e 20 76 65 72 73 65 6e 64 65 20 6f 75 74 70 75 74 20 28 64 73 74 2c ff ff ff ff ff ff ff	HEN.versende.output.(dst,.......
7f60	4e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 63 68 69 72 6d 20 61 75	N.END.PROC.darstellung4;chirm.au
7f80	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 6f	s.(dst,.modellkurzbezeichnung,ro
7fa0	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	essen.taste.....................
7fc0	20 20 20 20 67 69 62 20 6d 65 6c 64 75 6e 67 20 61 75 73 20 28 31 32 29 3b ff ff ff ff ff ff ff	....gib.meldung.aus.(12);.......
7fe0	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49 3b 72 75 62 6f 75 74 20 ff ff ff	...................FI;rubout....
8000	3e 00 20 20 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 67 65 20 6d 65 6e 75 65 20	>...........out.(piep);ge.menue.
8020	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff ff	zur.zusatzdarst.arst............
8040	4e 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	N...........reenterdarstellung4.
8060	6e 20 65 69 6e 62 6c 20 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 65 7a 65 69	n.einbl.ellkurzbezeichnung,.ezei
8080	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,.........>...............
80a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	.....................modellkurzb
80c0	65 7a 65 69 63 68 6e 75 6e 67 2c 20 3b 20 ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ezeichnung,.;...N...............
80e0	20 20 20 77 61 68 6c 20 64 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 20 74	...wahl.der.darstellungsarten;.t
8100	65 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff	e)..................*)..........
8120	3e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 61 76 65 20 7a 65 69 67 65 20 6d	>.........out.(piep);ave.zeige.m
8140	65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 20 20 20 20 20 20 20 20 2a 29 20	enue.zur.zusatzdarst.........*).
8160	4e 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 73 65	N.........reenterdarstellung4.se
8180	6e 20 65 69 6e 62 6c 20 61 72 74 65 6e 3b 20 6d 65 72 29 3b 20 20 20 20 20 20 20 20 20 20 20 20	n.einbl.arten;.mer);............
81a0	20 20 2a 29 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 54 48	..*)............N.............TH
81c0	45 4e 20 6c 6f 65 73 63 68 65 20 6d 65 6e 75 65 20 3b 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64	EN.loesche.menue.;ue.zur.zusatzd
81e0	61 72 73 74 20 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff	arst.llkurzbezeichnung,.........
8200	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65	N..................modellgroesse
8220	6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20	n.einblenden.(dst,.lsg,.taste);.
8240	65 6e 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 7a 65 69 67 65 20 6d 65 6e 75	en*)..................zeige.menu
8260	65 28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 29 2e 20 ff ff ff ff ff ff ff ff ff ff	e(menuezeilennummer)............
8280	2e 00 6c 65 61 76 65 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61	..leave.zeige.menue.zur.zusatzda
82a0	72 73 74 3a 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 4c 45	rst:..........................LE
82c0	41 56 45 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e	AVE.zeige.menue.zur.zusatzdarst.
82e0	2e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a	..reenter.zeige.menue.zur.zusatz
8300	64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45	darst:..........>.............LE
8320	41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73	AVE.kern.von.zeige.menue.zur.zus
8340	61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff 3e 00 6c 65 61 76 65 20 7a 65 69 67 65 20 6d 65	atzdarst........>.leave.zeige.me
8360	6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 2e 20 6c 6c 6b 75 72 7a 62 65 7a 65	nue.zur.zusatzdarst:..llkurzbeze
8380	69 63 68 6e 75 6e 67 2c 20 ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54	ichnung,........>..............T
83a0	48 45 4e 20 76 65 72 73 65 6e 64 65 20 6f 75 74 70 75 74 20 28 64 73 74 2c 20 64 61 72 73 74 2e	HEN.versende.output.(dst,.darst.
83c0	6c 65 20 61 62 62 72 75 63 68 29 3b 20 ff ff ff 2e 00 6c 65 61 76 65 20 7a 65 69 67 65 20 6d 65	le.abbruch);......leave.zeige.me
83e0	6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff ff ff	nue.zur.zusatzdarst:............
8400	3e 00 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3a 64 73 63 68 69 72 6d 20 61 75 73 20 28 64 73 74	>.gib.menue.aus:dschirm.aus.(dst
8420	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 ff ff ff ff ff ff ff	,.modellkurzbezeichnung,........
8440	4e 00 20 20 20 20 66 75 65 6c 6c 65 20 6d 65 6e 75 65 28 6d 65 6e 75 65 7a 65 69 6c 65 28 31 36	N.....fuelle.menue(menuezeile(16
8460	29 29 3b 28 2a 20 6c 65 65 72 7a 65 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20	));(*.leerzeile..............*).
8480	45 29 3b 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	E);.............N.....inchar.(ta
84a0	73 74 65 29 3b 6e 75 65 7a 65 69 6c 65 28 35 29 29 3b 20 28 2a 20 6d 6f 64 65 6c 6c 67 72 6f 65	ste);nuezeile(5));.(*.modellgroe
84c0	73 73 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff	ssen..............*)............
84e0	4e 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 69 6c 65 28 31 30	N.....loeschemenuemeldung;ile(10
8500	29 29 3b 28 2a 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20	));(*.modellgroessen.einblenden.
8520	20 20 20 20 2a 29 64 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61	....*)d..................ELIF.ta
8540	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 65 74 7a ff ff ff ff	ste.=.darstellungsarttastetz....
8560	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20	>..................ELIF.taste.=.
8580	7a 65 69 67 65 20 7a 75 73 61 74 7a 20 34 6d 6d 65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	zeige.zusatz.4mmer);............
85a0	4e 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	N.........leavezeigemenuezurzusa
85c0	74 7a 64 61 72 73 74 20 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 72 7a 62 65 7a 65 69	tzdarst.kurzbezeichnung,.rzbezei
85e0	63 68 6e 75 6e 67 2c 20 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,.........>...............
8600	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 66 75 73 73 7a 65 69	..............kopfzeile,.fusszei
8620	6c 65 20 6c 65 65 72 29 3b 20 29 3b 20 ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	le.leer);.);....................
8640	20 20 20 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 ff ff ff	...reenter.zeige.abbruchmenue...
8660	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49 20 73 63 68 65 20 6d 65 6e 75 65	>..................FI.sche.menue
8680	28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	(menuezeilennummer);............
86a0	1e 00 67 69 62 20 61 62 62 72 75 63 68 6d 65 6e 75 65 20 61 75 73 3a ff ff ff ff ff ff ff ff ff	..gib.abbruchmenue.aus:.........
86c0	2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 28 74 61 73 74 65 20 3d 20 65 73 63 20 29 20	.........ELIF.NOT(taste.=.esc.).
86e0	20 61 62 62 72 75 63 68 6d 65 6e 75 65 ff ff ff 2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 4e 4f	.abbruchmenue............ELIF.NO
8700	54 28 74 61 73 74 65 20 3d 20 65 73 63 20 29 20 72 28 69 29 20 3a 3d 20 30 20 ff ff ff ff ff ff	T(taste.=.esc.).r(i).:=.0.......
8720	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 20 61	N.....ELIF.taste.=.sendetaste..a
8740	75 73 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20	us.(falsche.taste)..............
8760	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 6c 65 61	....*)..........>............lea
8780	76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 3b 20 20 28 2a 20 6c 65 65 72 7a 65 69 6c 65 20	ve.darstellung.4;..(*.leerzeile.
87a0	20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 4e 00 20 20 20 20 20 20 20 20 76 65 72 73 65 6e	.............*).N.........versen
87c0	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 69 63 68	deoutput.(dst,.modellkurzbezeich
87e0	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 ff ff ff	nung,.kopfzeile,.steuerzeile,...
8800	4e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 73 6b 29 20 3b 65 73 63 68 65 20 6d 65 6e 75 65	N.........plottask).;esche.menue
8820	20 3b 73 65 6e 20 74 61 73 74 65 20 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69	.;sen.taste.dst,.modellkurzbezei
8840	63 68 6e 75 6e 67 2c 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 63 75 72 73 6f 72 20 28 33 2c	chnung,...............cursor.(3,
8860	32 33 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6f 75 74 20 28 64 69 76 66 65	23);..................out.(divfe
8880	68 6c 65 72 29 3b 68 6c 65 72 29 3b ff ff ff ff 2e 00 20 20 20 20 7a 65 69 67 65 20 6d 65 6e 75	hler);hler);..........zeige.menu
88a0	65 28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 29 2e 20 ff ff ff ff ff ff ff ff ff ff	e(menuezeilennummer)............
88c0	1e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff	..reenter.zeige.abbruchmenue:...
88e0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69	..............LEAVE.kern.von.zei
8900	67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	ge.abbruchmenue...END.PROC.darst
8920	65 6c 6c 75 6e 67 20 34 3b 20 ff ff ff ff ff ff 4e 00 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66	ellung.4;.......N.....divisionsf
8940	65 68 6c 65 72 20 6b 20 6d 20 20 20 20 20 3d 20 65 20 75 6e 7a 75 6c 61 65 73 73 69 67 20 2c 20	ehler.k.m.....=.e.unzulaessig.,.
8960	64 61 20 56 6d 61 78 20 3d 20 30 20 21 20 2a 2a 2a 22 2c ff ff ff ff ff ff ff ff ff ff ff ff ff	da.Vmax.=.0.!.***",.............
8980	3e 00 20 20 20 20 76 65 72 73 63 68 69 65 62 75 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	>.....verschiebung............=.
89a0	31 2e 32 35 2c 20 20 28 2a 20 69 6e 20 6d 6d 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	1.25,..(*.in.mm.*)..............
89c0	4e 00 50 52 4f 43 20 7a 65 69 67 65 20 64 61 72 73 74 20 34 20 20 20 20 20 20 20 20 28 4f 55 54	N.PROC.zeige.darst.4........(OUT
89e0	50 55 54 20 20 56 41 52 20 73 65 69 74 65 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 20 64 65 6d 6f	PUT..VAR.seite,.BOOL.VAR.in.demo
8a00	2c 20 6b 20 6d 29 3a 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 52 45 41 4c 20 56 41 52 20 6d 69	,.k.m):.........>....REAL.VAR.mi
8a20	6e 20 78 2c 6d 61 78 20 78 2c 6d 69 6e 20 79 2c 6d 61 78 20 79 2c 20 70 75 6e 6b 74 20 78 2c 20	n.x,max.x,min.y,max.y,.punkt.x,.
8a40	64 72 65 69 20 64 75 72 63 68 20 76 6d 61 78 3b 3e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52	drei.durch.vmax;>....PICTURE.VAR
8a60	20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 70 75 6e 6b 74 20 78 2c 20	.kreuz.:=.nilpicture.;.punkt.x,.
8a80	64 72 65 69 20 64 75 72 63 68 20 76 6d 61 78 3b 3e 00 20 20 20 67 65 62 65 20 61 75 66 20 62 69	drei.durch.vmax;>....gebe.auf.bi
8aa0	6c 64 73 63 68 69 72 6d 20 61 75 73 20 28 73 65 69 74 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	ldschirm.aus.(seite,.modellkurzb
8ac0	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 2e 00 20 20 20 7a 65 69 63 68 6e 65 20 75 6e 64	ezeichnung,..........zeichne.und
8ae0	20 70 6c 6f 74 74 65 20 6b 75 72 76 65 20 3b 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 ff ff ff ff	.plotte.kurve.;teuerzeile);.....
8b00	4e 00 20 20 20 49 46 20 69 6e 20 64 65 6d 6f 20 54 48 45 4e 20 70 6c 6f 74 74 65 20 66 75 73 73	N....IF.in.demo.THEN.plotte.fuss
8b20	7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 64 65 6d 6f 29 3b	zeile.(seite,.steuerzeile.demo);
8b40	65 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff 2e 00 20 20 20 76 69 65 77 70 6f 72 74 20 28 6c	enster);.............viewport.(l
8b60	6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65 6e 29 3b 73 74 65 72 29 3b ff ff ff ff	ks,.rts,.unten,.oben);ster);....
8b80	2e 00 62 65 73 74 69 6d 6d 65 20 65 78 74 72 65 6d 61 3a 20 65 69 74 65 2c 20 73 74 72 75 6b 74	..bestimme.extrema:.eite,.strukt
8ba0	20 31 20 66 65 6e 73 74 65 72 29 3b ff ff ff ff 4e 00 45 4c 49 46 20 4e 4f 54 20 28 20 74 61 73	.1.fenster);....N.ELIF.NOT.(.tas
8bc0	74 65 20 3d 20 65 73 63 20 29 20 54 48 45 4e 20 7a 65 69 67 65 20 6d 65 6e 75 65 6d 65 6c 64 75	te.=.esc.).THEN.zeige.menuemeldu
8be0	6e 67 20 28 6d 65 6c 64 75 6e 67 73 74 65 78 74 20 28 66 61 6c 73 63 68 65 ff ff ff ff ff ff ff	ng.(meldungstext.(falsche.......
8c00	4e 00 20 20 20 20 20 20 6d 61 78 79 20 3a 3d 20 6d 69 6e 79 20 2b 20 32 2e 30 20 2a 20 28 65 70	N.......maxy.:=.miny.+.2.0.*.(ep
8c20	73 69 6c 6f 6e 29 3b 6f 6e 29 3b 2c 20 6d 61 78 20 78 2c 20 6d 69 6e 20 79 2c 20 6d 61 78 20 79	silon);on);,.max.x,.min.y,.max.y
8c40	29 3b 20 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 73 63 68 72 65 69 62 65 6b 72 65 75	);..............N...schreibekreu
8c60	7a 3a 61 78 20 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 20 78 2c 20 6d 61 78	z:ax.y................min.x,.max
8c80	20 78 2c 20 6d 69 6e 20 79 2c 20 6d 61 78 20 79 29 3b 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff	.x,.min.y,.max.y);..............
8ca0	4e 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	N...putkreuz.(seite,.strukt1fens
8cc0	74 65 72 2c 20 6b 72 65 75 7a 29 3b 20 6d 61 78 20 78 2c 20 6d 69 6e 20 79 2c 20 6d 61 78 20 79	ter,.kreuz);.max.x,.min.y,.max.y
8ce0	29 3b 20 20 76 20 6d 61 78 2c ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	);..v.max,......>...............
8d00	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	................................
8d20	20 70 75 6e 6b 74 20 78 29 3b ff ff ff ff ff ff 3e 00 73 63 68 72 65 69 62 65 20 6b 72 65 75 7a	.punkt.x);......>.schreibe.kreuz
8d40	3a 20 69 74 65 2c 20 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a 29 3b	:.ite,.strukt.1.fenster,.kreuz);
8d60	20 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 70 65 6e 20 20 28 6b 72 65 75 7a	.....................pen..(kreuz
8d80	2c 20 31 29 3b 20 65 20 62 65 73 63 68 72 69 66 74 75 6e 67 3a 20 ff ff ff ff ff ff ff ff ff ff	,.1);.e.beschriftung:...........
8da0	4e 00 20 20 61 20 3a 3d 20 72 65 61 6c 20 28 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66	N...a.:=.real.(laengebeibeschrif
8dc0	74 75 6e 67 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 3b 74 65 20 23 20 2b 20 30 2e	tung).*.standardbreite;te.#.+.0.
8de0	31 23 3b 20 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 20 20	1#;.............>...............
8e00	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 65 29 3b 20	standardhoehe,.standardbreite);.
8e20	2e 2a 29 ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28	.*).............>....move.cm.r.(
8e40	6c 65 67 65 6e 64 65 2c 20 2d 34 2e 30 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e	legende,.-4.0*standardbreite,.0.
8e60	30 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64	0);.............N...draw.(legend
8e80	65 2c 20 79 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 68	e,.yachsenbez,.0.0,.standardhoeh
8ea0	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 29 3b 69 74 65 29 3b 20 ff ff ff ff ff	e,.standardbreite););ite);......
8ec0	3e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28 6c 65 67 65 6e 64 65 2c 20 2d 36 2e 30 2a 73 74	>....move.cm.r.(legende,.-6.0*st
8ee0	61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 20 2d 31 2e 30 29 3b 20 ff ff ff ff ff ff ff ff ff ff	andardbreite,..-1.0);...........
8f00	4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64 65 2c 20 78 61 63 68 73 65 6e 62 65 7a 2c 20 30	N...draw.(legende,.xachsenbez,.0
8f20	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 74	.0,.standardhoehe,.standardbreit
8f40	65 29 3b 62 72 65 69 74 65 29 3b 2e ff ff ff ff 2e 00 20 20 20 70 6c 6f 74 20 28 6c 65 67 65 6e	e);breite);..........plot.(legen
8f60	64 65 29 3b 20 2e 28 6c 65 67 65 6e 64 65 29 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	de);..(legende));...............
8f80	2e 00 20 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 2c 20 70 65 6e 28 6c 65 67 65 6e 64 65 29 29	.....pen.(0,.1,.0,.pen(legende))
8fa0	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30	;...................pen.(0,.1,.0
8fc0	2c 20 73 74 69 66 74 29 3b 3b 20 6e 2c 20 73 74 69 66 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff	,.stift);;.n,.stift);...........
8fe0	4e 00 20 20 20 64 72 61 77 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 6d 61 78 20 78 2c 20 64 72 65 69	N....draw.(funktion,.max.x,.drei
9000	20 64 75 72 63 68 20 76 20 6d 61 78 29 20 3b 2c 20 76 20 6d 61 78 2c 20 78 20 77 65 72 74 29 3a	.durch.v.max).;,.v.max,.x.wert):
9020	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65	................N.END.PROC.zeige
9040	64 61 72 73 74 34 3b 72 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 79 6d 69 6e 2c 79 6d 61 78 2c	darst4;r;;............ymin,ymax,
9060	20 76 20 6d 61 78 2c 20 78 20 77 65 72 74 29 3a 20 61 67 72 61 6d 6d 2a 29 20 ff ff ff ff ff ff	.v.max,.x.wert):.agramm*).......
9080	3e 00 20 20 20 70 75 74 20 70 69 63 74 75 72 65 28 73 65 69 74 65 2c 20 66 65 6e 73 74 65 72 2c	>....put.picture(seite,.fenster,
90a0	20 74 72 61 6e 73 66 65 72 29 3b 20 2e 63 68 6e 69 74 74 65 29 3b 3b ff ff ff ff ff ff ff ff ff	.transfer);..chnitte);;.........
90c0	3e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 20 64 61 72 73 74 20 34 3b 65 61 6c 28 61 6e 7a	>.END.PROC.zeige.darst.4;eal(anz
90e0	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 ff ff ff ff ff ff ff	ahlyachsenabschnitte);..........
9100	2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 2d 20 30 2e 32 2c 20 30 2e 32 29 3b	....drawcmr.(kreuz,.-.0.2,.0.2);
9120	68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	hoehe);.............move.(kreuz,
9140	20 78 6d 61 78 2c 20 79 6d 69 6e 29 3b 29 3b 20 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff	.xmax,.ymin););.hoehe);.........
9160	2e 00 20 20 73 63 68 6e 69 74 74 70 75 6e 6b 74 3b 30 2e 30 2c 20 79 6d 61 78 29 3b 32 29 2e 20	....schnittpunkt;0.0,.ymax);2)..
9180	2c 2d 30 2e 33 29 3b ff ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30	,-0.3);.........N...drawcmr.(0.0
91a0	2c 20 2d 20 30 2e 33 29 3b 65 75 7a 2c 30 2e 30 2c 2d 30 2e 33 29 3b 74 61 6e 64 61 72 64 62 72	,.-.0.3);euz,0.0,-0.3);tandardbr
91c0	65 69 74 65 29 3b 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff	eite);ung,.nachkommastellen),...
91e0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2e 30 2a 73 74 61 6e 64 61	>....................-1.0*standa
9200	72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	rdhoehe.-.abstand);.............
9220	4e 00 20 20 20 6d 6f 76 65 20 20 20 28 20 20 20 20 20 20 73 74 65 6c 6c 65 2c 79 6d 69 6e 29 3b	N....move...(......stelle,ymin);
9240	20 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 20 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d	.dhoehe.-.abstand);.ng,.nachkomm
9260	61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 30 2e 30 2c 20 73	astellen),................0.0,.s
9280	74 61 6e 64 61 72 64 68 6f 65 68 65 2c 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e ff ff ff	tandardhoehe,standardbreite)....
92a0	4e 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 65 6c	N...standardhoehe.-.abstand).;el
92c0	6c 65 29 3b 20 61 72 64 62 72 65 69 74 65 2c 20 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65	le);.ardbreite,.-0.5*standardhoe
92e0	68 65 29 3b 20 29 ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 64 72 61 77 20 20 20 20 20 20	he);.)..........>.....draw......
9300	28 20 20 20 20 20 20 20 77 61 6e 64 6c 65 28 73 74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 20 62 65	(.......wandle(stelle,.laenge.be
9320	69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff 4e 00 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 73	i.beschriftung,.N...move.(0.0,.s
9340	74 65 6c 6c 65 29 3b 78 3b 32 2c 30 2e 30 29 2e 20 65 29 3b 20 61 72 64 62 72 65 69 74 65 2c 20	telle);x;2,0.0)..e);.ardbreite,.
9360	2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 20 29 ff ff ff ff ff ff ff ff ff ff	-0.5*standardhoehe);.)..........
9380	4e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 32 2c 20 30 2e 30 29 2e 2a 20	N...drawcmr.(kreuz,.0.2,.0.0).*.
93a0	28 72 65 61 6c 20 28 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 29 20	(real.(laenge.bei.beschriftung).
93c0	2b 20 30 2e 35 29 29 2e 20 ff ff ff ff ff ff ff 3e 00 20 20 20 20 64 72 61 77 20 20 20 20 20 20	+.0.5)).........>.....draw......
93e0	28 6b 72 65 75 7a 2c 20 77 61 6e 64 6c 65 28 73 74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 20 62 65	(kreuz,.wandle(stelle,.laenge.be
9400	69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff 3e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64	i.beschriftung,.>...OUTPUT.VAR.d
9420	73 74 20 3a 3a 20 6e 69 6c 6f 75 74 70 75 74 20 28 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65	st.::.niloutput.(strukt.1.fenste
9440	72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff 3e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 65	r,."darst");....>.ENDPROC.kreuze
9460	72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 3b 72 75 6b 74 20 31 20 66 65 6e 73 74 65	rzeugenundzeichnen;rukt.1.fenste
9480	72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff 2e 00 20 20 52 45 41 4c 20 56 41 52 20 76 20 6d	r,."darst");........REAL.VAR.v.m
94a0	61 78 2c 20 6b 20 6d 3b 20 52 41 4d 45 54 45 52 53 41 54 5a 20 6c 73 67 3b 55 42 20 31 29 3b ff	ax,.k.m;.RAMETERSATZ.lsg;UB.1);.
94c0	2e 00 20 20 50 41 52 41 4d 45 54 45 52 20 56 41 52 20 70 20 3a 3a 20 50 41 52 41 4d 45 54 45 52	....PARAMETER.VAR.p.::.PARAMETER
94e0	53 41 54 5a 20 6c 73 67 3b 70 61 72 61 6d 3b ff 4e 00 20 20 7a 65 69 67 65 20 64 61 72 73 74 20	SATZ.lsg;param;.N...zeige.darst.
9500	34 20 28 64 73 74 2c 20 69 6e 20 64 65 6d 6f 2c 20 76 20 6d 61 78 2c 20 6b 6d 29 3b 20 6d 6f 64	4.(dst,.in.demo,.v.max,.km);.mod
9520	65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff	ellgroessen.taste.ask);.........
9540	2e 00 20 20 20 20 20 20 20 77 61 72 74 65 20 61 75 66 20 65 73 63 3b 20 6f 67 20 66 75 65 72 20	.........warte.auf.esc;.og.fuer.
9560	64 65 6d 6f 20 46 49 3b 3b ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48	demo.FI;;.......>.............TH
9580	45 4e 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73	EN.modellgroessen.einblenden.(ds
95a0	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 4e 00 20 20 20 20 20 20 20 20 20 7a 65 69 67 65	t,.lsg,.taste);.N..........zeige
95c0	64 61 72 73 74 34 20 28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 76 6d 61 78 2c 20 6b 6d 29 3b 74	darst4.(dst,.indemo,.vmax,.km);t
95e0	61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff	aste.=.modellgroessen.taste.....
9600	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 69 62 20 6d 65 6c 64 75 6e 67 20	....................gib.meldung.
9620	61 75 73 20 28 31 32 29 3b 67 20 34 72 73 74 3b 4e 00 20 20 20 20 20 20 64 69 61 6c 6f 67 66 75	aus.(12);g.4rst;N.......dialogfu
9640	65 72 64 65 6d 6f 20 48 45 4e 20 6f 65 73 73 65 6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73	erdemo.HEN.oessen.einblenden.(ds
9660	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff ff ff	t,.lsg,.taste);.zbezeichnung,...
9680	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 6c 65 61 76 65 20 64	>........................leave.d
96a0	61 72 73 74 65 6c 6c 75 6e 67 20 34 65 20 74 61 73 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff	arstellung.4e.taste)............
96c0	1e 00 77 61 68 6c 20 64 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3a ff ff ff	..wahl.der.darstellungsarten:...
96e0	3e 00 20 20 20 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	>........ELIF.taste.=.menuetaste
9700	20 61 75 73 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 20 20 ff ff ff ff ff ff ff ff ff ff	.aus.(falsche.taste)............
9720	3e 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 76 65	>.........reenterdarstellung4.ve
9740	20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 74 3b 61 62 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff	.darstellung.4t;abeige.zeitd....
9760	3e 00 20 20 20 20 20 20 20 20 20 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74	>...........COR.taste.=.abbrucht
9780	61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff	aste.COR.taste.=.zeige.zeitd....
97a0	1e 00 20 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff	.......THEN.leave.darstellung.4.
97c0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65	>..................modellgroesse
97e0	6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20	n.einblenden.(dst,.lsg,.taste);.
9800	4e 00 20 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	N..............reenterdarstellun
9820	67 34 20 75 6e 67 73 6e 61 6d 65 2c 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 65 29 3b 20 3b 20	g4.ungsname,steuerzeile);.e);.;.
9840	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 3e 00 20 20 20 20 20 20 45 4c 49 46 20 74 61 73	essen.taste.....>.......ELIF.tas
9860	74 65 20 3c 3e 20 65 73 63 20 72 73 74 3a 20 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c	te.<>.esc.rst:........kopfzeile,
9880	73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 74 20 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	steuerzeile);.t.>...............
98a0	20 20 20 6c 65 61 76 65 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64	...leave.zeige.menue.zur.zusatzd
98c0	61 72 73 74 20 72 7a 65 69 6c 65 29 3b 20 ff ff 3e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d	arst.rzeile);...>.....IF.taste.=
98e0	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
9900	74 61 73 74 65 20 7a 65 69 6c 65 29 3b 20 ff ff 3e 00 20 20 20 20 20 20 20 45 4c 49 46 20 4e 4f	taste.zeile);...>........ELIF.NO
9920	54 28 74 61 73 74 65 20 3d 20 65 73 63 20 29 20 75 73 20 28 66 61 6c 73 63 68 65 20 74 61 73 74	T(taste.=.esc.).us.(falsche.tast
9940	65 29 20 ff ff ff 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)..............N.leavedarstellu
9960	6e 67 34 3a 20 54 48 45 4e 20 20 20 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 73	ng4:.THEN...leave.darstellung.4s
9980	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff	t,.lsg,.taste);.....*)..........
99a0	3e 00 20 20 20 20 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 28 32 29 20 3a 3d 20 31 36	>.....menuezeilennummer(2).:=.16
99c0	3b 20 20 28 2a 20 6c 65 65 72 7a 65 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20	;..(*.leerzeile..............*).
99e0	4e 00 20 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 45 4e 20 20 20 6c 65 61 76	N...LEAVE.darstellung4.EN...leav
9a00	65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20	e.darstellung.4..............*).
9a20	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 4e 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c	....*)..........N.wahlderdarstel
9a40	6c 75 6e 67 73 61 72 74 65 6e 3a 65 74 61 73 74 65 20 72 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	lungsarten:etaste.r.zeige.menue.
9a60	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 20 20 2a 29 20 29 ff ff ff ff ff ff ff ff ff ff	zur.zusatzdarst...*).)..........
9a80	4e 00 20 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 72 74 65	N...zeigemenuezudarstellungsarte
9aa0	6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 65 6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20	n.(taste,.FALSE.);en.einblenden.
9ac0	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 67 65 62 65 20 61 75 66 20 62 69 6c	....*)..........>...gebe.auf.bil
9ae0	64 73 63 68 69 72 6d 20 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65	dschirm.aus.(dst,.modellkurzbeze
9b00	69 63 68 6e 75 6e 67 2c 20 68 29 3b 20 ff ff ff 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	ichnung,.h);....N.....ELIF.taste
9b20	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 7a 64 61 72 73 74 2e	.=.darstellungsarttaste.tzdarst.
9b40	73 73 65 6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff	ssen.einblenden.....*)..........
9b60	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69	>.............LEAVE.kern.von.zei
9b80	67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff	ge.menue.zur.zusatzdarst........
9ba0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 20 6d 65 6e 75 65	>.............THEN.loesche.menue
9bc0	28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	(menuezeilennummer);............
9be0	4e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6d 65 6e 75 65 20 61 75 73 3b 20 61 73 74 65	N...........THEN.menue.aus;.aste
9c00	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 7a 65 69 67	.=.abbruchtaste.COR.taste.=.zeig
9c20	65 20 7a 65 69 74 64 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e.zeitd.........>...............
9c40	20 20 20 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 7a 65 69	...reenter.zeige.abbruchmenuezei
9c60	6c 65 20 61 62 62 72 75 63 68 29 3b 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 43 4f 52 20 74	le.abbruch);....>..........COR.t
9c80	61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 63 68 6d 65	aste.=.modellgroessen.taste.chme
9ca0	6e 75 65 ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 46 4f 52 20 69 20 46 52 4f 4d	nue...................FOR.i.FROM
9cc0	20 31 20 55 50 54 4f 20 6d 65 6e 75 65 64 69 6d 65 6e 73 69 6f 6e 20 20 30 20 ff ff ff ff ff ff	.1.UPTO.menuedimension..0.......
9ce0	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 52 20 74 61 73 74 65	N......................COR.taste
9d00	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 7a 65 69 67	.=.abbruchtaste.COR.taste.=.zeig
9d20	65 20 7a 65 69 74 64 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 6d 65 6e 75 65 7a 65 69 6c 65	e.zeitd.........>.....menuezeile
9d40	6e 6e 75 6d 6d 65 72 28 32 29 20 3a 3d 20 31 36 3b 20 20 28 2a 20 6c 65 65 72 7a 65 69 6c 65 20	nnummer(2).:=.16;..(*.leerzeile.
9d60	20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 4e 00 20 20 20 20 20 20 20 20 67 65 62 65 61 75	.............*).N.........gebeau
9d80	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 62	fbildschirmaus.(dst,.modellkurzb
9da0	65 7a 65 69 63 68 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	ezeichnung,.darstellungsname,...
9dc0	4e 00 20 20 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 48 45 4e 65 20 3d 20 7a 65	N.........steuerzeile);HENe.=.ze
9de0	69 67 65 20 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 20 74 61	ige.phasend.COR.taste.=.zeige.ta
9e00	62 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6f 75 74 20 28 64 69 76 66 65	b.*)..................out.(divfe
9e20	68 6c 65 72 29 3b ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6f 75 74 20 28 64 69 76 66 65	hler);................out.(divfe
9e40	68 6c 65 72 29 3b ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61	hler);...................ELIF.ta
9e60	73 74 65 20 3d 20 72 75 62 6f 75 74 20 20 3d 20 7a 65 69 67 65 20 7a 75 73 61 74 7a ff ff ff ff	ste.=.rubout..=.zeige.zusatz....
9e80	1e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff	..reenter.zeige.abbruchmenue:...
9ea0	2e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 3a 7a 65 69	..reenter.zeige.abbruchmenue:zei
9ec0	67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	ge.abbruchmenue...END.PROC.darst
9ee0	65 6c 6c 75 6e 67 20 34 3b 20 ff ff ff ff ff ff 4e 00 20 20 20 20 76 6f 72 6b 6f 6d 6d 61 20 20	ellung.4;.......N.....vorkomma..
9f00	20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 35 3b 20 65 69 6c 65 6e 6e 75 6d 6d 65 72 3b 20	..............=.5;.eilennummer;.
9f20	52 45 41 4c 20 43 4f 4e 53 54 20 76 20 6d 61 78 2c 20 6b 20 6d 29 3a 20 ff ff ff ff ff ff ff ff	REAL.CONST.v.max,.k.m):.........
9f40	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 52 45 41	>............................REA
9f60	4c 20 43 4f 4e 53 54 20 76 20 6d 61 78 2c 20 6b 20 6d 29 3a 20 64 75 72 63 68 20 76 6d 61 78 3b	L.CONST.v.max,.k.m):.durch.vmax;
9f80	2e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 72 65 75 7a 3b 20 6c 6f 74 74 65 20 62 65 73 63 68	.....schreibe.kreuz;.lotte.besch
9fa0	72 69 66 74 75 6e 67 3b 20 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	riftung;........N...............
9fc0	45 4c 53 45 20 70 6c 6f 74 74 65 20 66 75 73 73 7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20 73 74	ELSE.plotte.fusszeile.(seite,.st
9fe0	65 75 65 72 7a 65 69 6c 65 29 3b 20 46 49 3b 20 65 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff	euerzeile);.FI;.enster);........
a000	4e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69	N...kreuz.:=.kreuzerzeugenundzei
a020	63 68 6e 65 6e 20 28 6d 69 6e 78 2c 20 6d 61 78 78 2c 20 30 2e 30 2c 20 6d 61 78 79 2c 20 76 6d	chnen.(minx,.maxx,.0.0,.maxy,.vm
a040	61 78 2c 20 70 75 6e 6b 74 78 29 3b ff ff ff ff 2e 00 20 20 62 65 73 63 68 72 69 66 74 65 61 63	ax,.punktx);........beschrifteac
a060	68 73 65 6e 69 6e 6c 65 67 65 6e 64 65 3b 69 63 74 75 72 65 3b 20 ff ff ff ff ff ff ff ff ff ff	hseninlegende;icture;...........
a080	3e 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
a0a0	74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 64 65 29 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff	ter,.legende);de);..............
a0c0	4e 00 73 63 68 72 65 69 62 65 76 6d 61 78 69 6e 6c 65 67 65 6e 64 65 3a 67 65 6e 64 65 3b 6e 64	N.schreibevmaxinlegende:gende;nd
a0e0	65 3b 20 73 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 20 2e 20 65 69 74 65 20 23 20 2b 20 30 2e	e;.ster,.legende);...eite.#.+.0.
a100	31 23 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67	1#;.............N...movecmr.(leg
a120	65 6e 64 65 2c 20 2d 20 34 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e	ende,.-.4.0.*.standardbreite,.0.
a140	30 29 3b 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 ff	0);ardhoehe,.standardbreite);...
a160	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
a180	61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 31 2e 30 29 3b 63 68 6b 6f 6d 6d 61 73 74 65 6c	andardbreite,.-.1.0);chkommastel
a1a0	6c 65 6e 29 3b 65 69 74 65 29 3b 2e ff ff ff ff 2e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28	len);eite);..........move......(
a1c0	6c 65 67 65 6e 64 65 2c 20 6d 61 78 20 78 2c 6d 69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff	legende,.max.x,min.y);..........
a1e0	2e 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 6e 3b 20 20 30 2e	..trage.anfangspunkt.ein:.n;..0.
a200	30 29 3b 2e 6e 73 66 65 72 29 3b 20 2e ff ff ff 4e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20	0);.nsfer);.....N...transfer.:=.
a220	66 75 6e 6b 74 69 6f 6e 3b 76 6d 61 78 29 3b 69 20 64 75 72 63 68 20 76 20 6d 61 78 29 20 3b 2e	funktion;vmax);i.durch.v.max).;.
a240	20 73 65 6e 61 62 73 63 68 6e 69 74 74 65 3a 3a 31 31 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	.senabschnitte::11;.............
a260	4e 00 73 63 68 72 65 69 62 65 70 69 63 74 75 72 65 3a 65 69 74 65 2c 20 66 65 6e 73 74 65 72 2c	N.schreibepicture:eite,.fenster,
a280	20 74 72 61 6e 73 66 65 72 29 3b 20 2e 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78	.transfer);..EAL.CONST.xmin,xmax
a2a0	2c 61 67 72 61 6d 6d 2a 29 20 ff ff ff ff ff ff 2e 00 20 20 7a 65 69 63 68 6e 65 79 73 70 69 74	,agramm*)...........zeichneyspit
a2c0	7a 65 2e 29 3b 2e 79 6d 69 6e 29 3b 20 3b 61 72 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	ze.);.ymin);.;ardhoehe);........
a2e0	2e 00 7a 65 69 63 68 6e 65 79 73 70 69 74 7a 65 3a 32 2c 20 2d 20 30 2e 32 29 3b 69 6e 29 3b 20	..zeichneyspitze:2,.-.0.2);in);.
a300	68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	hoehe);.........N...drawcmr.(kre
a320	75 7a 2c 20 30 2e 30 2c 20 2d 20 30 2e 33 29 3b 2c 30 2e 32 29 3b 20 65 20 62 65 69 20 62 65 73	uz,.0.0,.-.0.3);,0.2);.e.bei.bes
a340	63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff	chriftung,.nachkommastellen),...
a360	4e 00 20 20 62 65 73 63 68 72 69 66 74 65 20 3b 30 2e 30 3b 20 2d 31 2e 30 29 2a 72 65 61 6c 28	N...beschrifte.;0.0;.-1.0)*real(
a380	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 20 6f 6d 6d	vorkomma)).*.standardbreite,.omm
a3a0	61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff ff ff ff 4e 00 20 20 7a 65 69 63 68 6e 65 79 73 74 72 69	astellen),......N...zeichneystri
a3c0	63 68 3b 20 20 20 20 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 20 2e 30 2c 20 73 74 61 6e 64 61 72	ch;....0.0,.stelle);..0,.standar
a3e0	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 ff ff ff ff ff ff	dhoehe,.standardbreite);........
a400	4e 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 65 6c	N...move.(kreuz,.0.0,.stelle);el
a420	6c 65 29 3b 20 61 72 64 62 72 65 69 74 65 2c 20 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65	le);.ardbreite,.-0.5*standardhoe
a440	68 65 29 3b 20 65 29 2e 20 ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 54 48 45 4e 20 64 69 76 66	he);.e)................THEN.divf
a460	65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 20 70 61 72 61 6d 3b ff	ehler.:=.divisionsfehler.param;.
a480	3e 00 20 20 52 45 41 4c 20 56 41 52 20 76 20 6d 61 78 2c 20 6b 20 6d 3b 20 20 28 28 76 20 53 55	>...REAL.VAR.v.max,.k.m;..((v.SU
a4a0	42 20 32 29 2b 28 76 20 53 55 42 20 33 29 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	B.2)+(v.SUB.3)));...............
a4c0	2e 00 20 20 20 20 20 54 48 45 4e 20 64 69 76 66 65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f	.......THEN.divfehler.:=.divisio
a4e0	6e 73 66 65 68 6c 65 72 20 70 61 72 61 6d 3b ff 4e 00 20 20 20 20 20 20 20 20 20 20 64 69 76 66	nsfehler.param;.N...........divf
a500	65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 76 6d 61 78 20 55 42 20	ehler.:=.divisionsfehlervmax.UB.
a520	31 29 3b 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	1);groessen.taste...............
a540	4e 00 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 65	N........IF.taste.=.abbruchtaste
a560	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 20 74 61 73 74	.COR.taste.=.modellgroessen.tast
a580	65 20 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e.sen.taste.....>...............
a5a0	20 20 20 20 20 20 20 20 20 7a 65 69 67 65 20 64 61 72 73 74 20 34 20 28 64 73 74 2c 20 76 20 6d	.........zeige.darst.4.(dst,.v.m
a5c0	61 78 2c 20 6b 6d 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 64 69 61 6c 6f 67 66 75	ax,.km);........N.......dialogfu
a5e0	65 72 64 65 6d 6f 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 74	erdemo.aste.=.abbruchtaste.COR.t
a600	61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 20 ff ff ff	aste.=.modellgroessen.taste.....
a620	3e 00 20 20 74 61 73 74 65 6c 65 73 65 6e 20 28 74 61 73 74 65 29 3b 4c 53 45 20 6c 64 75 6e 67	>...tastelesen.(taste);LSE.ldung
a640	20 61 75 73 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff	.aus.(falsche.taste)............
a660	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	>.............THEN..zeige.menue.
a680	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3b 4c 53 45 29 3b 20 ff ff ff ff ff ff ff ff ff ff	zur.zusatzdarst;LSE);...........
a6a0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6c 65 61 76 65	......................THEN.leave
a6c0	20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 74 7a 4e 00 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e	.darstellung.4tzN.....LEAVE.kern
a6e0	76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75	vondarstellung4;s.(dst,.modellku
a700	72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff	rzbezeichnung,roessen.taste.....
a720	2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74	.........ELIF..taste.=.sendetast
a740	65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65	e...............N.kern.von.zeige
a760	20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 74 7a 64 61 72 73 74 20	.menue.zur.zusatzdarst.:tzdarst.
a780	6d 65 72 29 3b 20 7a 65 69 6c 65 2c 20 70 6c 6f 74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff	mer);.zeile,.plottask);.........
a7a0	3e 00 20 20 20 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	>........ELIF.taste.=.darstellun
a7c0	67 73 61 72 74 74 61 73 74 65 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff	gsarttastelkurzbezeichnung,.....
a7e0	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 61 62	N..................IF.taste.=.ab
a800	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 67 72 6f	bruchtaste.COR.taste.=.modellgro
a820	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 4e 00 20 20 66 6f 72 67 65 74 20 28 22 64 61 72	essen.taste.....N...forget.("dar
a840	73 74 22 2c 20 71 75 69 65 74 29 3b 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	st",.quiet);reenter.zeige.menue.
a860	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff	zur.zusatzdarst.essen.taste.....
a880	3e 00 20 20 20 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 3b 2e 6d 65 72 28 32 29 20 3a 3d 20 31 36	>.....zeige.menue.;.mer(2).:=.16
a8a0	3b 20 20 28 2a 20 6c 65 65 72 7a 65 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20	;..(*.leerzeile..............*).
a8c0	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
a8e0	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
a900	65 20 6e 75 6e 67 2c 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	e.nung,.........>.............re
a920	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 73 74	enterzeigemenuezurzusatzdarst.st
a940	65 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 45 4c 49 46 20 74 61 73 74	e)..............N......ELIF.tast
a960	65 20 3d 20 72 75 62 6f 75 74 20 20 3d 20 7a 65 69 67 65 20 70 68 61 73 65 6e 64 20 43 4f 52 20	e.=.rubout..=.zeige.phasend.COR.
a980	74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 74 61 62 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff	taste.=.zeige.tab...*)..........
a9a0	4e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 48 45 4e 20 6c 65 61 76 65	N.........loeschemenue;HEN.leave
a9c0	20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 75 6d 6d 65 72 29 3b 20 20 20 20 20 20 20 20 20 20 20	.darstellung.4ummer);...........
a9e0	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20	....*).................ELIF.NOT.
aa00	28 74 61 73 74 65 20 3d 20 65 73 63 29 20 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff ff	(taste.=.esc).ve.darstellung.4..
aa20	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 20 6d 65 6e 75 65	..............THEN.loesche.menue
aa40	20 3b 72 29 2e 20 72 75 63 68 6d 65 6e 75 65 2e 4e 00 44 65 72 20 56 65 72 6c 61 75 66 20 65 69	.;r)..ruchmenue.N.Der.Verlauf.ei
aa60	6e 65 72 20 65 6e 7a 79 6d 6b 61 74 61 6c 79 73 69 65 72 74 65 6e 20 52 65 61 6b 74 69 6f 6e 20	ner.enzymkatalysierten.Reaktion.
aa80	6d 69 74 20 65 69 6e 65 6d 20 53 75 62 73 74 72 61 74 20 61 6c 73 20 ff ff ff ff ff ff ff ff ff	mit.einem.Substrat.als..........
aaa0	4e 00 41 75 73 67 61 6e 67 73 73 74 6f 66 66 20 75 6e 64 20 65 69 6e 65 6d 20 45 6e 64 70 72 6f	N.Ausgangsstoff.und.einem.Endpro
aac0	64 75 6b 74 20 77 69 72 64 20 6d 69 74 20 48 69 6c 66 65 20 64 69 65 73 65 73 20 4d 6f 64 65 6c	dukt.wird.mit.Hilfe.dieses.Model
aae0	6c 73 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 73 69 6d 75 6c 69 65 72 74 2e 20 44 69 65	ls..............>.simuliert..Die
ab00	20 47 72 75 6e 64 6c 61 67 65 20 64 65 73 20 4d 6f 64 65 6c 6c 73 20 62 69 6c 64 65 74 20 65 69	.Grundlage.des.Modells.bildet.ei
ab20	6e 20 44 69 66 66 65 72 65 6e 74 69 61 6c 2d 20 4e 00 67 6c 65 69 63 68 75 6e 67 73 73 79 73 74	n.Differential-.N.gleichungssyst
ab40	65 6d 2c 20 64 61 73 20 64 65 6e 20 6b 6f 6e 74 69 6e 75 69 65 72 6c 69 63 68 65 6e 20 50 72 6f	em,.das.den.kontinuierlichen.Pro
ab60	7a 65 fb 20 64 65 72 20 53 75 62 73 74 72 61 74 61 62 2d 20 20 ff ff ff ff ff ff ff ff ff ff ff	ze..der.Substratab-.............
ab80	4e 00 75 6e 64 20 50 72 6f 64 75 6b 74 7a 75 6e 61 68 6d 65 20 73 6f 77 69 65 20 64 69 65 20 42	N.und.Produktzunahme.sowie.die.B
aba0	69 6c 64 75 6e 67 20 64 65 73 20 45 6e 7a 79 6d 2d 53 75 62 73 74 72 61 74 2d 4b 6f 6d 70 6c 65	ildung.des.Enzym-Substrat-Komple
abc0	78 65 73 20 ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 7a 75 6d 20 41 75 73 64 72 75 63 6b 20 62	xes...............zum.Ausdruck.b
abe0	72 69 6e 67 74 3a 20 ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 64 63 28 53 29 20 2f 64 74 20 3d	ringt:..........>....dc(S)./dt.=
ac00	20 20 2d 20 20 6b 2b 31 20 63 28 53 29 20 63 28 45 29 20 20 2b 20 20 6b 2d 31 20 63 28 45 53 29	..-..k+1.c(S).c(E)..+..k-1.c(ES)
ac20	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 64 63 28 45 29 20 2f 64 74 20 3d	................>....dc(E)./dt.=
ac40	20 20 2d 20 20 6b 2b 31 20 63 28 53 29 20 63 28 45 29 20 20 2b 20 20 6b 2d 31 20 63 28 45 53 29	..-..k+1.c(S).c(E)..+..k-1.c(ES)
ac60	20 20 2b 20 20 6b 2b 32 20 63 28 45 53 29 20 ff 3e 00 20 20 20 64 63 28 45 53 29 2f 64 74 20 3d	..+..k+2.c(ES)..>....dc(ES)/dt.=
ac80	20 20 2b 20 20 6b 2b 31 20 63 28 53 29 20 63 28 45 29 20 20 2d 20 20 6b 2d 31 20 63 28 45 53 29	..+..k+1.c(S).c(E)..-..k-1.c(ES)
aca0	20 20 2d 20 20 6b 2b 32 20 63 28 45 53 29 20 ff 3e 00 20 20 20 64 63 28 50 29 20 2f 64 74 20 3d	..-..k+2.c(ES)..>....dc(P)./dt.=
acc0	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	................................
ace0	20 20 2b 20 20 6b 2b 32 20 63 28 45 53 29 20 ff 2e 00 6d 69 74 20 63 28 53 29 20 20 3a 20 53 75	..+..k+2.c(ES)....mit.c(S)..:.Su
ad00	62 73 74 72 61 74 6b 6f 6e 7a 65 6e 74 72 61 74 69 6f 6e 20 ff ff ff ff ff ff ff ff ff ff ff ff	bstratkonzentration.............
ad20	2e 00 20 20 20 20 63 28 45 29 20 20 3a 20 45 6e 7a 79 6d 6b 6f 6e 7a 65 6e 74 72 61 74 69 6f 6e	......c(E)..:.Enzymkonzentration
ad40	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 63 28 45 53 29 20 3a 20 4b 6f	......................c(ES).:.Ko
ad60	6e 7a 65 6e 74 72 61 74 69 6f 6e 20 64 65 73 20 45 53 2d 4b 6f 6d 70 6c 65 78 65 73 20 ff ff ff	nzentration.des.ES-Komplexes....
ad80	2e 00 20 20 20 20 63 28 50 29 20 20 3a 20 50 72 6f 64 75 6b 74 6b 6f 6e 7a 65 6e 74 72 61 74 69	......c(P)..:.Produktkonzentrati
ada0	6f 6e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 6b 2b 31 20 20 20 3a 20 47 65	on..............N.....k+1...:.Ge
adc0	73 63 68 77 69 6e 64 69 67 6b 65 69 74 73 6b 6f 6e 73 74 61 6e 74 65 20 28 48 69 6e 72 65 61 6b	schwindigkeitskonstante.(Hinreak
ade0	74 69 6f 6e 20 7a 75 6d 20 45 53 2d 4b 6f 6d 70 6c 65 78 29 20 ff ff ff ff ff ff ff ff ff ff ff	tion.zum.ES-Komplex)............
ae00	4e 00 20 20 20 20 6b 2d 31 20 20 20 3a 20 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 73 6b 6f	N.....k-1...:.Geschwindigkeitsko
ae20	6e 73 74 61 6e 74 65 20 28 52 db 63 6b 72 65 61 6b 74 69 6f 6e 20 7a 75 6d 20 53 75 62 73 74 72	nstante.(R.ckreaktion.zum.Substr
ae40	61 74 29 20 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 6b 2b 32 20 20 20 3a 20 47 65	at).............N.....k+2...:.Ge
ae60	73 63 68 77 69 6e 64 69 67 6b 65 69 74 73 6b 6f 6e 73 74 61 6e 74 65 20 28 48 69 6e 72 65 61 6b	schwindigkeitskonstante.(Hinreak
ae80	74 69 6f 6e 20 7a 75 6d 20 50 72 6f 64 75 6b 74 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	tion.zum.Produkt)...............
aea0	4e 00 44 69 65 20 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 20 76 20 64 65 72 20 52 65 61 6b	N.Die.Geschwindigkeit.v.der.Reak
aec0	74 69 6f 6e 20 77 69 72 64 20 6d 69 74 20 48 69 6c 66 65 20 64 65 72 20 4d 69 63 68 61 65 6c 69	tion.wird.mit.Hilfe.der.Michaeli
aee0	73 2d 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 4d 65 6e 74 65 6e 2d 47 6c 65 69 63 68 75	s-..............>.Menten-Gleichu
af00	6e 67 20 28 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 73 67 6c 65 69 63 68 75 6e 67 29 20 62	ng.(Geschwindigkeitsgleichung).b
af20	65 73 74 69 6d 6d 74 3a 20 ff ff ff ff ff ff ff 2e 00 20 20 20 76 20 3d 20 28 56 6d 61 78 20 63	estimmt:.............v.=.(Vmax.c
af40	28 53 29 29 20 2f 20 28 4b 6d 20 2b 20 63 28 53 29 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	(S))./.(Km.+.c(S))..............
af60	3e 00 6d 69 74 20 56 6d 61 78 20 20 3d 20 6b 2b 32 20 28 63 28 45 53 29 20 2b 20 63 28 45 29 29	>.mit.Vmax..=.k+2.(c(ES).+.c(E))
af80	20 20 20 20 20 28 4d 61 78 69 6d 61 6c 67 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 29 20 ff ff	.....(Maximalgeschwindigkeit)...
afa0	3e 00 20 20 20 20 4b 6d 20 20 20 20 3a 20 4d 69 63 68 61 65 6c 69 73 2d 4d 65 6e 74 65 6e 2d 4b	>.....Km....:.Michaelis-Menten-K
afc0	6f 6e 73 74 61 6e 74 65 20 3d 20 28 6b 2d 31 20 2b 20 6b 2b 32 29 2f 28 6b 2b 31 29 20 ff ff ff	onstante.=.(k-1.+.k+2)/(k+1)....
afe0	3e 00 44 69 65 20 4d 61 78 69 6d 61 6c 67 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 20 56 6d 61	>.Die.Maximalgeschwindigkeit.Vma
b000	78 20 73 6f 77 69 65 20 64 69 65 20 4d 69 63 68 61 65 6c 69 73 2d 4d 65 6e 74 65 6e 2d 20 ff ff	x.sowie.die.Michaelis-Menten-...
b020	3e 00 4b 6f 6e 73 74 61 6e 74 65 20 4b 6d 20 6c 61 73 73 65 6e 20 73 69 63 68 20 61 75 73 20 64	>.Konstante.Km.lassen.sich.aus.d
b040	65 72 20 4c 69 6e 65 77 65 61 76 65 72 2d 42 75 72 6b 2d 44 61 72 73 74 65 6c 6c 75 6e 67 20 ff	er.Lineweaver-Burk-Darstellung..
b060	2e 00 28 7a 75 73 d9 74 7a 6c 69 63 68 65 20 44 61 72 73 74 65 6c 6c 75 6e 67 29 20 61 62 6c 65	..(zus.tzliche.Darstellung).able
b080	73 65 6e 3a 20 20 ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 31 20 2f 20 76 20 20 3d 20 20 31	sen:............>....1./.v..=..1
b0a0	20 2f 20 56 6d 61 78 20 20 2b 20 20 28 4b 6d 20 2f 20 56 6d 61 78 29 20 20 2a 20 20 28 31 20 2f	./.Vmax..+..(Km./.Vmax)..*..(1./
b0c0	20 63 28 53 29 29 2e 20 ff ff ff ff ff ff ff ff 4e 00 20 20 62 20 3a 3d 20 32 2e 30 20 2a 20 73	.c(S))..........N...b.:=.2.0.*.s
b0e0	74 61 6e 64 61 72 64 68 6f 65 68 65 3b 65 6e 73 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 64 65	tandardhoehe;enster,.legende);de
b100	29 3b 20 2e 20 65 69 74 65 20 23 20 2b 20 30 2e 31 23 3b 20 6e 29 3b 20 ff ff ff ff ff ff ff ff	);...eite.#.+.0.1#;.n);.........
b120	4e 00 73 63 68 72 65 69 62 65 6b 6d 69 6e 6c 65 67 65 6e 64 65 3a 78 2c 20 30 2e 37 20 2a 20 6d	N.schreibekminlegende:x,.0.7.*.m
b140	61 78 79 29 3b 6e 75 6e 67 2c 20 30 2e 30 2c 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c	axy);nung,.0.0,ng,.nachkommastel
b160	6c 65 6e 29 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 50 45 52 20 3b	len);...........N..........PER.;
b180	48 45 4e 20 76 65 72 73 65 6e 64 65 20 6f 75 74 70 75 74 20 28 64 73 74 2c 69 72 6d 20 61 75 73	HEN.versende.output.(dst,irm.aus
b1a0	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 ff ff ff	.(dst,.modellkurzbezeichnung,...
b1c0	3e 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.
b1e0	72 74 65 6e 20 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 29 3b 20 7a 65 69 6c 65 29 3b 20 ff ff	rten..(taste,.FALSE);.zeile);...
b200	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 68 6c 20 64 65 72 20 64 61 72 73	>..................wahl.der.dars
b220	74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 20 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20	tellungsarten;..zur.zusatzdarst.
b240	4e 00 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74	N.kern.von.zeige.menue.zur.zusat
b260	7a 64 61 72 73 74 20 3a 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f	zdarst.:te.COR.taste.=.modellgro
b280	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 4e 00 20 20 20 20 74 61 73 74 65 6c 65 73 65 6e	essen.taste.....N.....tastelesen
b2a0	20 28 74 61 73 74 65 29 3b 63 68 74 61 73 74 65 20 20 68 69 72 6d 20 61 75 73 20 28 64 73 74 2c	.(taste);chtaste..hirm.aus.(dst,
b2c0	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 ff ff ff ff ff ff	.modellkurzbezeichnung,.........
b2e0	4e 00 20 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20	N...IF.taste.=.zeigephasend.COR.
b300	74 61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62	taste.=.zeigetab.COR.taste.=.abb
b320	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 45 4c 49 46 20 4e 4f	ruchtaste.COR...>........ELIF.NO
b340	54 28 74 61 73 74 65 20 3d 20 65 73 63 20 29 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c	T(taste.=.esc.).......kopfzeile,
b360	73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 ff ff 4e 00 20 20 20 20 20 20 20 20 77 61 68 6c 64 65	steuerzeile);...N.........wahlde
b380	72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 3a 6e 20 74 61 73 74 65 20 73 74 65 20	rdarstellungsarten;:n.taste.ste.
b3a0	43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff ff ff ff ff ff	COR.taste.=.zeige.zeitd.........
b3c0	3e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 62 62 72 75 63 68 6d 65 6e	>.........loeschemenue;bbruchmen
b3e0	75 65 20 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff	ue.enuezeilennummer);...........
b400	4e 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	N.............leavedarstellung4.
b420	75 65 20 72 73 74 65 6c 6c 75 6e 67 20 34 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69	ue.rstellung.4t,.modellkurzbezei
b440	63 68 6e 75 6e 67 2c 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 45 4c 53 45	chnung,.........>...........ELSE
b460	20 61 73 74 65 29 3b 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 7a 75 73 61 74 7a 73 7a 65 69	.aste);.taste.=.zeige.zusatzszei
b480	6c 65 20 6c 65 65 72 29 3b 20 ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a	le.leer);.......N.........leavez
b4a0	65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 62 62 72 75 63 68 6d 65	eigemenuezurzusatzdarst.bbruchme
b4c0	6e 75 65 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff ff ff ff ff ff	nue.taste.=.zeige.zeitd.........
b4e0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69	..............LEAVE.kern.von.zei
b500	67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	ge.abbruchmenue...END.PROC.darst
b520	65 6c 6c 75 6e 67 20 34 3b 20 ff ff ff ff ff ff 3e 00 28 2a 20 20 64 61 72 73 74 62 65 7a 65 69	ellung.4;.......>.(*..darstbezei
b540	63 68 6e 75 6e 67 20 20 20 20 20 20 20 20 3d 20 22 4c 69 6e 65 77 65 61 76 65 72 2d 42 75 72 6b	chnung........=."Lineweaver-Burk
b560	2d 44 61 72 73 74 65 6c 6c 75 6e 67 22 2c 2a 29 4e 00 20 20 20 20 20 22 2a 2a 2a 20 20 46 65 68	-Darstellung",*)N......"***..Feh
b580	6c 65 72 20 61 75 66 67 65 74 72 65 74 65 6e 21 20 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74	ler.aufgetreten!.Geschwindigkeit
b5a0	73 6b 6f 6e 73 74 61 6e 74 65 20 6b 20 2b 20 31 20 3d 20 30 21 20 2a 2a 2a 22 2c ff ff ff ff ff	skonstante.k.+.1.=.0!.***",.....
b5c0	4e 00 20 20 20 20 20 22 2a 2a 2a 20 20 42 65 72 65 63 68 6e 75 6e 67 20 64 65 72 20 4b 75 72 76	N......"***..Berechnung.der.Kurv
b5e0	65 20 75 6e 7a 75 6c 61 65 73 73 69 67 20 2c 20 64 61 20 56 6d 61 78 20 3d 20 30 20 21 20 2a 2a	e.unzulaessig.,.da.Vmax.=.0.!.**
b600	2a 22 2c ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 22 2a 2a 2a 20 20 42 65 72	*",.............N......"***..Ber
b620	65 63 68 6e 75 6e 67 20 64 65 72 20 4b 75 72 76 65 20 75 6e 7a 75 6c 61 65 73 73 69 67 20 2c 20	echnung.der.Kurve.unzulaessig.,.
b640	64 61 20 4b 6d 20 3d 20 30 20 21 20 2a 2a 2a 22 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	da.Km.=.0.!.***",...............
b660	4e 00 20 20 77 65 72 74 20 3a 3d 20 77 61 6e 64 6c 65 20 28 6b 6d 2c 20 6c 61 65 6e 67 65 62 65	N...wert.:=.wandle.(km,.laengebe
b680	69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29	ibeschriftung,.nachkommastellen)
b6a0	3b 23 3b 20 6e 29 3b 20 ff ff ff ff ff ff ff ff 3e 00 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 3a	;#;.n);.........>.plottelegende:
b6c0	65 20 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 29 3b 69 63 68 6e 75 6e 67 20 2b 20 77 65 72 74 2c 20	e.,.maxx,.miny);ichnung.+.wert,.
b6e0	30 2e 30 2c ff ff ff 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	0.0,............N...pen.(legende
b700	2c 20 31 29 3b 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	,.1);.-.6.0.*.standardbreite,.-.
b720	31 2e 30 29 3b 6f 65 68 65 2c 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 ff ff ff ff ff	1.0);oehe,standardbreite);......
b740	2e 00 62 65 73 63 68 72 69 66 74 65 20 61 63 68 73 65 6e 20 69 6e 20 6c 65 67 65 6e 64 65 3a 20	..beschrifte.achsen.in.legende:.
b760	69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28	in.y);..........>....move......(
b780	6c 65 67 65 6e 64 65 2c 20 30 2e 30 2c 20 6d 61 78 20 79 29 3b 20 62 72 65 69 74 65 2c 20 20 2d	legende,.0.0,.max.y);.breite,..-
b7a0	31 2e 30 29 3b 20 ff ff ff ff ff ff ff ff ff ff 4e 00 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 3a	1.0);...........N.plottelegende:
b7c0	6c 65 67 65 6e 64 65 2c 20 6d 61 78 20 78 2c 6d 69 6e 20 79 29 3b 20 72 65 69 74 65 2c 20 30 2e	legende,.max.x,min.y);.reite,.0.
b7e0	30 29 3b 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 ff ff	0);dhoehe,.standardbreite);.....
b800	2e 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 2e 3b 20 65 69 6e	....funktion.:=.nilpicture.;.ein
b820	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20	;...............N...PICTURE.VAR.
b840	6b 72 65 75 7a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 79 6d 69 6e 2c 79 6d 61 78 2c	kreuz;;...............ymin,ymax,
b860	20 76 20 6d 61 78 2c 20 78 20 77 65 72 74 29 3a 20 31 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	.v.max,.x.wert):.1;.............
b880	4e 00 20 20 49 4e 54 20 56 41 52 20 61 6e 7a 61 68 6c 78 61 63 68 73 65 6e 61 62 73 63 68 6e 69	N...INT.VAR.anzahlxachsenabschni
b8a0	74 74 65 2c 20 61 6e 7a 61 68 6c 79 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20	tte,.anzahlyachsenabschnitte.:=.
b8c0	31 31 3b 20 61 6d 6d 2a 29 20 ff ff ff ff ff ff 3e 00 20 20 52 45 41 4c 20 56 41 52 20 78 77 65	11;.amm*).......>...REAL.VAR.xwe
b8e0	69 74 65 2c 20 79 77 65 69 74 65 3b 61 6e 7a 61 68 6c 20 78 20 61 63 68 73 65 6e 61 62 73 63 68	ite,.yweite;anzahl.x.achsenabsch
b900	6e 69 74 74 65 29 3b ff ff ff ff ff ff ff ff ff 3e 00 79 77 65 69 74 65 3a 3d 20 28 79 6d 61 78	nitte);.........>.yweite:=.(ymax
b920	2d 79 6d 69 6e 29 2f 20 72 65 61 6c 28 61 6e 7a 61 68 6c 79 61 63 68 73 65 6e 61 62 73 63 68 6e	-ymin)/.real(anzahlyachsenabschn
b940	69 74 74 65 29 3b ff ff ff ff ff ff ff ff ff ff 4e 00 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 3a	itte);..........N.koordursprung:
b960	20 20 20 28 28 2d 31 2e 30 29 2a 72 65 61 6c 28 76 6f 72 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61	...((-1.0)*real(vorkomma)).*.sta
b980	6e 64 61 72 64 62 72 65 69 74 65 2c 20 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff	ndardbreite,.chkommastellen),...
b9a0	3e 00 20 20 6d 6f 76 65 20 28 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 30 2a 73 74 61 6e 64 61	>...move.(stelle,.ymin);0*standa
b9c0	72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 20 29 3b ff ff ff ff ff ff ff ff ff ff	rdhoehe.-.abstand);.);..........
b9e0	3e 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
ba00	6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 65 69 74 65 29 3b 72 65 69 74 65 2c 20 ff ff ff	oehe.-.abstand);eite);reite,....
ba20	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2e 30 2a 73 74 61 6e 64 61	>....................-1.0*standa
ba40	72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e 64 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	rdhoehe.-.abstand);.............
ba60	4e 00 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 20 20 20 20 20 20 20 2a 20	N...move.(0.0,.stelle);.......*.
ba80	73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65	standardbreite,.-0.5*standardhoe
baa0	68 65 29 3b 20 65 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 28 2d 20	he);.e);........N...movecmr.((-.
bac0	31 2e 30 29 20 2a 20 28 72 65 61 6c 20 28 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74	1.0).*.(real.(laengebeibeschrift
bae0	75 6e 67 29 20 2b 20 30 2e 35 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c ff ff ff	ung).+.0.5).*.standardbreite,...
bb00	4e 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 30 29 2e 65 6c	N...-.0.5.*.standardhoehe);0).el
bb20	6c 65 29 3b 20 2c 20 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c 65	le);.,.laenge.bei.beschriftung,e
bb40	68 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68	he);............N...standardhoeh
bb60	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 6e 64 61 72 64 62 72 65 69 74 65 2c 20	e,.standardbreite);ndardbreite,.
bb80	2d 30 2e 35 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 20 65 29 2e 20 ff ff ff ff ff ff ff	-0.5*standardhoehe);.e).........
bba0	3e 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 56 41	>...move.(kreuz,.0.0,.stelle);VA
bbc0	52 20 6c 73 67 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 29 3a 20 ff ff ff ff ff ff ff ff	R.lsg,.TEXT.VAR.taste):.........
bbe0	3e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 20 65 72 7a 65 75 67 65 6e 20 75 6e 64 20 7a 65 69	>.ENDPROC.kreuz.erzeugen.und.zei
bc00	63 68 6e 65 6e 3b 20 20 31 20 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff	chnen;..1.fenster,."darst");....
bc20	3e 00 20 20 5a 55 53 54 41 4e 44 20 56 41 52 20 76 20 3a 3d 20 53 54 41 52 54 57 45 52 54 20 6c	>...ZUSTAND.VAR.v.:=.STARTWERT.l
bc40	73 67 3b 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	sg;rukt1fenster,."darst");......
bc60	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	>...............................
bc80	20 20 20 20 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff	.....modellkurzbezeichnung,.....
bca0	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67	N.............kernvondarstellung
bcc0	34 20 78 2c 20 6b 6d 29 3b 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f	4.x,.km);zeile,.steuerzeile,.plo
bce0	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 4e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c	ttask);.........N.kernvondarstel
bd00	6c 75 6e 67 34 3a 62 20 6d 65 6c 64 75 6e 67 20 61 75 73 20 28 31 32 29 3b 6c 6c 6b 75 72 7a 62	lung4:b.meldung.aus.(12);llkurzb
bd20	65 7a 65 69 63 68 6e 75 6e 67 2c 20 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff	ezeichnung,.lgroessen.taste.....
bd40	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	>...............................
bd60	20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 ff ff	......kopfzeile,steuerzeile);...
bd80	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 72 73	N.....ELIF.taste.=.sendetaste.rs
bda0	74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 20 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72	tellungsarten;..taste.=.modellgr
bdc0	6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74	oessen.taste....>.........ELIF.t
bde0	61 73 74 65 20 3c 3e 20 6d 65 6e 75 65 74 61 73 74 65 20 65 20 43 4f 52 20 74 61 73 74 65 20 3d	aste.<>.menuetaste.e.COR.taste.=
be00	20 7a 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff 3e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d	.zeige.zeitd....>.....IF.taste.=
be20	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
be40	65 69 74 65 72 74 61 73 74 65 20 6e 67 2c ff ff 4e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64	eitertaste.ng,..N.........leaved
be60	61 72 73 74 65 6c 6c 75 6e 67 34 20 65 6e 75 65 20 3b 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20	arstellung4.enue.;...kopfzeile,.
be80	73 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f 74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff	steuerzeile,.plottask);.........
bea0	4e 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 75 74 20 20 20 20	N.......leavedarstellung4.ut....
bec0	20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f	.....kopfzeile,.steuerzeile,.plo
bee0	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 73 74 65 75 65 72 7a 65	ttask);.........N.......steuerze
bf00	69 6c 65 29 3b 61 76 65 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64	ile);ave.zeige.menue.zur.zusatzd
bf20	61 72 73 74 20 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff	arst.llkurzbezeichnung,.........
bf40	2e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a	..reenter.zeige.menue.zur.zusatz
bf60	64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff 3e 00 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3a	darst:..........>.gib.menue.aus:
bf80	41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73	AVE.kern.von.zeige.menue.zur.zus
bfa0	61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c	atzdarst........N.........modell
bfc0	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
bfe0	73 74 65 29 3b 6e 67 2c 20 65 2c 20 46 41 4c 53 45 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	ste);ng,.e,.FALSE);.............
c000	3e 00 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f	>..........THEN...............ko
c020	70 66 7a 65 69 6c 65 2c 20 66 75 73 73 7a 65 69 6c 65 20 6c 65 65 72 29 3b 20 ff ff ff ff ff ff	pfzeile,.fusszeile.leer);.......
c040	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 62 65 20 61 75 66 20 62 69 6c 64	N..................gebe.auf.bild
c060	73 63 68 69 72 6d 20 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	schirm.aus.(dst,.modellkurzbezei
c080	63 68 6e 75 6e 67 2c 20 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,.........>...............
c0a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 66 75 73 73 7a 65 69	..............kopfzeile,.fusszei
c0c0	6c 65 20 6c 65 65 72 29 3b 20 20 20 20 2a 29 20 4e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c	le.leer);....*).N.reenterdarstel
c0e0	6c 75 6e 67 34 3a 6e 74 65 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 72 6f 65	lung4:nter.zeige.abbruchmenueroe
c100	73 73 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff	ssen..............*)............
c120	4e 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	N.....LEAVE.kernvondarstellung4;
c140	28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65 72 29 3b 20 74 65 6c 6c 75 6e 67 73 61 72 74	(menuezeilennummer);.tellungsart
c160	65 6e 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 63 75 72 73 6f 72 20 28 33 2c	en*)..................cursor.(3,
c180	32 33 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6f 75 74 20 28 64 69 76 66 65	23);..................out.(divfe
c1a0	68 6c 65 72 29 3b ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69	hler);................initialisi
c1c0	65 72 65 6d 65 6e 75 65 3b 72 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 ff ff ff	eremenue;r.zeige.abbruchmenue...
c1e0	1e 00 67 69 62 20 61 62 62 72 75 63 68 6d 65 6e 75 65 20 61 75 73 3a 20 3d 20 65 73 63 20 29 20	..gib.abbruchmenue.aus:.=.esc.).
c200	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69	..............LEAVE.kern.von.zei
c220	67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	ge.abbruchmenue...END.PROC.darst
c240	65 6c 6c 75 6e 67 20 34 3b 20 ff ff ff ff ff ff 4e 00 20 20 20 20 4b 6d 20 20 20 20 3d 20 28 6b	ellung.4;.......N.....Km....=.(k
c260	2d 31 20 2b 20 6b 2b 32 29 2f 28 6b 2b 31 29 20 20 20 20 20 20 28 4d 69 63 68 61 65 6c 69 73 2d	-1.+.k+2)/(k+1)......(Michaelis-
c280	4d 65 6e 74 65 6e 2d 4b 6f 6e 73 74 61 6e 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	Menten-Konstante)...............
c2a0	4e 00 4b 6f 6e 73 74 61 6e 74 65 20 4b 6d 20 6c 61 73 73 65 6e 20 73 69 63 68 20 61 75 63 68 20	N.Konstante.Km.lassen.sich.auch.
c2c0	61 75 73 20 64 65 72 20 4c 69 6e 65 77 65 61 76 65 72 2d 42 75 72 6b 2d 44 61 72 73 74 65 6c 6c	aus.der.Lineweaver-Burk-Darstell
c2e0	75 6e 67 20 ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 76 20 6d 61 78 20 62 65 7a 65	ung.............>.....v.max.beze
c300	69 63 68 6e 75 6e 67 20 20 20 20 20 20 20 3d 20 22 20 20 20 56 6d 61 78 20 3d 20 22 2c 20 72 6b	ichnung.......=."...Vmax.=.",.rk
c320	2d 44 61 72 73 74 65 6c 6c 75 6e 67 22 2c ff ff 4e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 20	-Darstellung",..N.....fusszeile.
c340	6c 65 65 72 20 20 20 20 20 20 20 20 20 20 3d 20 30 20 2c 6e 7a 75 6c 61 65 73 73 69 67 20 2c 20	leer..........=.0.,nzulaessig.,.
c360	64 61 20 4b 6d 20 3d 20 30 20 21 20 2a 2a 2a 22 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	da.Km.=.0.!.***",...............
c380	3e 00 20 20 20 20 65 70 73 69 6c 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	>.....epsilon.................=.
c3a0	30 2e 35 2c 20 20 20 28 2a 20 69 6e 20 6d 6d 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	0.5,...(*.in.mm.*)..............
c3c0	4e 00 20 20 20 49 4e 54 20 43 4f 4e 53 54 20 66 65 6e 73 74 65 72 20 3a 3a 20 31 3b 28 4f 55 54	N....INT.CONST.fenster.::.1;(OUT
c3e0	50 55 54 20 20 56 41 52 20 73 65 69 74 65 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 20 64 65 6d 6f	PUT..VAR.seite,.BOOL.VAR.in.demo
c400	2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65	,...............>....initialisie
c420	72 65 3b 63 68 69 72 6d 20 61 75 73 20 28 73 65 69 74 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	re;chirm.aus.(seite,.modellkurzb
c440	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 3e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 72	ezeichnung,.....>....schreibe.kr
c460	65 75 7a 3b 20 20 20 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 66 75 73 73 7a 65 69	euz;..........kopfzeile,.fusszei
c480	6c 65 20 6c 65 65 72 29 3b 20 ff ff ff ff ff ff 3e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a	le.leer);.......>.initialisiere:
c4a0	45 4c 53 45 20 70 6c 6f 74 74 65 20 66 75 73 73 7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20 73 74	ELSE.plotte.fusszeile.(seite,.st
c4c0	65 75 65 72 7a 65 69 6c 65 29 3b 20 46 49 3b 20 4e 00 20 20 20 76 69 65 77 70 6f 72 74 20 28 6c	euerzeile);.FI;.N....viewport.(l
c4e0	6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65 6e 29 3b 73 2c 20 75 6e 74 65 6e 2c 20	ks,.rts,.unten,.oben);s,.unten,.
c500	6f 62 65 6e 2c 20 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff	oben,.strukt.1.fenster);........
c520	4e 00 20 20 73 63 68 72 65 69 62 65 6b 72 65 75 7a 3a 31 29 3b 20 20 20 20 20 20 20 20 20 20 20	N...schreibekreuz:1);...........
c540	20 20 20 20 20 20 6d 69 6e 20 78 2c 20 6d 61 78 20 78 2c 20 6d 69 6e 20 79 2c 20 6d 61 78 20 79	......min.x,.max.x,.min.y,.max.y
c560	29 3b 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 52 45 41 4c 20 56 41 52 20 61 2c 20	);..............N...REAL.VAR.a,.
c580	62 3b 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 75 7a 29 3b	b;e,.strukt1fenster,.kreuz);uz);
c5a0	20 2e 20 78 20 78 2c 20 30 2e 30 2c 20 6d 61 78 20 79 2c 20 76 20 6d 61 78 2c ff ff ff ff ff ff	...x.x,.0.0,.max.y,.v.max,......
c5c0	3e 00 20 20 54 45 58 54 20 56 41 52 20 77 65 72 74 3b 6c 6f 74 74 65 20 62 65 73 63 68 72 69 66	>...TEXT.VAR.wert;lotte.beschrif
c5e0	74 75 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 6e 6b 74 20 78 29 3b ff ff ff ff ff ff	tung:............punkt.x);......
c600	4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64 65 2c 20 76 6d 61 78 62 65 7a 65 69 63 68 6e 75	N...draw.(legende,.vmaxbezeichnu
c620	6e 67 20 2b 20 77 65 72 74 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73	ng.+.wert,.0.0,.standardhoehe,.s
c640	74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b ff 4e 00 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f 74	tandardbreite);.N.zeichneundplot
c660	74 65 6b 75 72 76 65 3a 20 2d 36 2e 30 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 20 2d	tekurve:.-6.0*standardbreite,..-
c680	31 2e 30 29 3b 20 65 68 65 2c 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 ff ff ff ff ff	1.0);.ehe,standardbreite);......
c6a0	3e 00 20 20 72 69 63 68 74 65 70 69 63 74 75 72 65 65 69 6e 3b 64 65 2c 20 2d 36 2e 30 2a 73 74	>...richtepictureein;de,.-6.0*st
c6c0	61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 20 2d 31 2e 30 29 3b 20 ff ff ff ff ff ff ff ff ff ff	andardbreite,..-1.0);...........
c6e0	4e 00 20 20 20 70 65 6e 20 28 6c 65 67 65 6e 64 65 2c 20 31 29 3b 65 2c 20 78 20 61 63 68 73 65	N....pen.(legende,.1);e,.x.achse
c700	6e 20 62 65 7a 2c 20 20 30 2e 30 2c 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64	n.bez,..0.0,standardhoehe,.stand
c720	61 72 64 62 72 65 69 74 65 29 3b 2e ff ff ff ff 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20	ardbreite);.....N...PICTURE.VAR.
c740	74 72 61 6e 73 66 65 72 3b 75 67 65 6e 20 75 6e 64 20 7a 65 69 63 68 6e 65 6e 20 28 52 45 41 4c	transfer;ugen.und.zeichnen.(REAL
c760	20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.CONST.xmin,xmax,...............
c780	4e 00 20 20 61 6e 7a 61 68 6c 78 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 31	N...anzahlxachsenabschnitte.:=.1
c7a0	32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 62 65 69 20 50 68 61 73 65 6e 64	2;.................(*bei.Phasend
c7c0	69 61 67 72 61 6d 6d 2a 29 20 ff ff ff ff ff ff 4e 00 20 20 79 77 65 69 74 65 20 3a 3d 20 28 79	iagramm*).......N...yweite.:=.(y
c7e0	6d 61 78 20 2d 20 79 6d 69 6e 29 20 2f 20 72 65 61 6c 20 28 61 6e 7a 61 68 6c 79 61 63 68 73 65	max.-.ymin)./.real.(anzahlyachse
c800	6e 61 62 73 63 68 6e 69 74 74 65 29 3b 3a 3d 20 31 31 3b 72 61 6d 6d 2a 29 20 ff ff ff ff ff ff	nabschnitte);:=.11;ramm*).......
c820	3e 00 20 20 6f 72 64 6e 65 73 74 69 66 74 7a 75 3b 74 65 2c 20 79 77 65 69 74 65 3b 61 6e 7a 61	>...ordnestiftzu;te,.yweite;anza
c840	68 6c 20 78 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	hl.x.achsenabschnitte);.........
c860	3e 00 20 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3b 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 31	>...zeichnexachse;bschnitte.:=.1
c880	32 3b 6c 79 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 ff	2;lyachsenabschnitte);..........
c8a0	3e 00 20 20 20 6d 6f 76 65 63 6d 72 28 20 20 20 20 20 20 28 28 2d 31 2e 30 29 2a 72 65 61 6c 28	>....movecmr(......((-1.0)*real(
c8c0	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 20 ff ff ff	vorkomma)).*.standardbreite,....
c8e0	4e 00 20 20 64 72 61 77 20 28 77 61 6e 64 6c 65 20 28 73 74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65	N...draw.(wandle.(stelle,.laenge
c900	62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65	beibeschriftung,.nachkommastelle
c920	6e 29 2c 20 30 2e 30 2c 20 65 6e 29 2c 20 ff ff 4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c	n),.0.0,.en),...N...draw.(kreuz,
c940	20 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 72	.wandle.(stelle,.laengebeibeschr
c960	69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff ff ff ff	iftung,.nachkommastellen),......
c980	4e 00 20 20 6d 6f 76 65 20 28 30 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 20 77 61 6e 64 6c 65 28 73	N...move.(0.0,.stelle);.wandle(s
c9a0	74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20	telle,.laenge.bei.beschriftung,.
c9c0	2b 20 30 2e 35 29 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 20 28 77 61 6e 64 6c 65	+.0.5)..........N...draw.(wandle
c9e0	20 28 73 74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c	.(stelle,.laengebeibeschriftung,
ca00	20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 30 2e 30 2c 20 ff ff ff ff ff ff ff	.nachkommastellen),.0.0,........
ca20	4e 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 6c 61	N...move.(kreuz,.0.0,.stelle);la
ca40	65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 29 20 2b 20 30 2e 35 29 20 2a 20 73 74	engebeibeschriftung).+.0.5).*.st
ca60	61 6e 64 61 72 64 62 72 65 69 74 65 2c ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65	andardbreite,...N...movecmr.(kre
ca80	75 7a 2c 28 2d 20 31 2e 30 29 20 2a 20 28 72 65 61 6c 20 28 6c 61 65 6e 67 65 62 65 69 62 65 73	uz,(-.1.0).*.(real.(laengebeibes
caa0	63 68 72 69 66 74 75 6e 67 29 20 2b 20 30 2e 35 29 20 2a 20 74 65 29 2e 20 ff ff ff ff ff ff ff	chriftung).+.0.5).*.te).........
cac0	3e 00 6c 69 65 66 65 72 65 20 6b 72 65 75 7a 3a 20 6b 72 65 75 7a 2c 20 77 61 6e 64 6c 65 28 73	>.liefere.kreuz:.kreuz,.wandle(s
cae0	74 65 6c 6c 65 2c 20 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff	telle,.laenge.bei.beschriftung,.
cb00	4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 77 61 6e 64 6c 65 20 28 73 74 65 6c 6c 65 2c	N...draw.(kreuz,.wandle.(stelle,
cb20	20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d	.laengebeibeschriftung,.nachkomm
cb40	61 73 74 65 6c 6c 65 6e 29 2c ff ff ff ff ff ff 4e 00 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75	astellen),......N.PROC.darstellu
cb60	6e 67 20 34 20 28 4c 4f 45 53 55 4e 47 20 56 41 52 20 6c 73 67 2c 20 42 4f 4f 4c 20 56 41 52 20	ng.4.(LOESUNG.VAR.lsg,.BOOL.VAR.
cb80	69 6e 20 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 29 3a 20 ff ff ff ff ff ff	in.demo,.TEXT.VAR.taste):.......
cba0	3e 00 20 20 20 20 20 20 64 69 76 66 65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65	>.......divfehler.:=.divisionsfe
cbc0	68 6c 65 72 70 61 72 61 6d 20 42 20 33 29 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	hlerparam.B.3)));...............
cbe0	4e 00 20 20 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	N...............leave.darstellun
cc00	67 20 34 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74	g.4R.taste.=.modellgroessen.tast
cc20	65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c	e...............N.kernvondarstel
cc40	6c 75 6e 67 34 3a 6d 64 6c 67 72 6f 65 73 73 65 6e 20 65 69 6e 62 6c 20 66 7a 65 69 6c 65 2c 20	lung4:mdlgroessen.einbl.fzeile,.
cc60	73 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f 74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff	steuerzeile,.plottask);.........
cc80	4e 00 20 20 74 61 73 74 65 6c 65 73 65 6e 20 28 74 61 73 74 65 29 3b 20 20 6c 65 61 76 65 20 64	N...tastelesen.(taste);..leave.d
cca0	61 72 73 74 65 6c 6c 75 6e 67 20 34 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f	arstellung.4OR.taste.=.modellgro
ccc0	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64	essen.taste.....N.........leaved
cce0	61 72 73 74 65 6c 6c 75 6e 67 34 20 65 20 61 75 66 20 62 69 6c 64 73 63 68 69 72 6d 20 61 75 73	arstellung4.e.auf.bildschirm.aus
cd00	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 ff ff ff	.(dst,.modellkurzbezeichnung,...
cd20	4e 00 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3c 3e 20 65 73 63 20 6e 67 34 20 20 61	N.......ELIF.taste.<>.esc.ng4..a
cd40	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 67 72	bbruchtaste.COR.taste.=.modellgr
cd60	6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 72 65 65 6e	oessen.taste....>...........reen
cd80	74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61	terdarstellung4.en.(dst,.lsg,.ta
cda0	73 74 65 29 3b 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 20 20	ste);...........>...............
cdc0	20 20 20 20 67 69 62 20 6d 65 6c 64 75 6e 67 20 61 75 73 20 28 31 32 29 3b 6c 6c 6b 75 72 7a 62	....gib.meldung.aus.(12);llkurzb
cde0	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 3e 00 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a	ezeichnung,.....>.zeigemenuezurz
ce00	75 73 61 74 7a 64 61 72 73 74 3a 75 6e 67 20 61 75 73 20 28 66 61 6c 73 63 68 65 20 74 61 73 74	usatzdarst:ung.aus.(falsche.tast
ce20	65 29 20 74 20 ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69	e).t............>.....kernvonzei
ce40	67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 6c 73 63 68 65 20 74 61 73 74	gemenuezurzusatzdarst.lsche.tast
ce60	65 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d	e)..............N.....IF.taste.=
ce80	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
cea0	67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 72 74 65 6e 2a 29 20 29 ff ff ff ff ff ff ff ff ff ff	groessentaste.rten*).)..........
cec0	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 67 69 62 20 6d 65 6c 64 75 6e 67 20 61	N.............THEN.gib.meldung.a
cee0	75 73 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 20 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69	us.(falsche.taste).dellkurzbezei
cf00	63 68 6e 75 6e 67 2c 20 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,.........>...............
cf20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 66 75 73 73 7a 65 69	..............kopfzeile,.fusszei
cf40	6c 65 20 6c 65 65 72 29 3b 20 ff ff ff ff ff ff 3e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75	le.leer);.......>.....fuellemenu
cf60	65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 29 3b 66 61 6c 73 63 68 65 20 74 61 73 74	e.(menuezeile.(16));falsche.tast
cf80	65 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 67 69 62 20 61 62 62 72 75 63 68 6d 65 6e	e)................gib.abbruchmen
cfa0	75 65 20 61 75 73 3a ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 46 4f 52 20 69 20 46 52 4f 4d	ue.aus:...............FOR.i.FROM
cfc0	20 31 20 55 50 54 4f 20 6d 65 6e 75 65 64 69 6d 65 6e 73 69 6f 6e 20 ff ff ff ff ff ff ff ff ff	.1.UPTO.menuedimension..........
cfe0	2e 00 20 20 20 20 63 75 72 73 6f 72 20 28 33 2c 32 33 29 3b 65 7a 65 69 6c 65 6e 6e 75 6d 6d 65	......cursor.(3,23);ezeilennumme
d000	72 28 69 29 20 3a 3d 20 30 20 ff ff ff ff ff ff 4e 00 20 20 4c 45 41 56 45 20 7a 65 69 67 65 6d	r(i).:=.0.......N...LEAVE.zeigem
d020	65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 28 2a 20 61 20 61 62 62 72 65 63 68 65	enuezurzusatzdarst.(*.a.abbreche
d040	6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff	n...................*)..........
d060	3e 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	>.reenterzeigemenuezurzusatzdars
d080	74 3a 20 28 2a 20 6c 65 65 72 7a 65 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20	t:.(*.leerzeile..............*).
d0a0	4e 00 20 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	N...LEAVE.kernvonzeigemenuezurzu
d0c0	73 61 74 7a 64 61 72 73 74 2e 6d 65 6e 75 65 2e 73 73 65 6e 20 20 20 20 20 20 20 20 20 20 20 20	satzdarst.menue.ssen............
d0e0	20 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65	..*)............N.zeigeabbruchme
d100	6e 75 65 3a 6e 67 20 34 3b 20 20 3a 3d 20 31 37 3b 20 20 28 2a 20 6e 20 6d 65 6e 75 65 20 7a 75	nue:ng.4;..:=.17;..(*.n.menue.zu
d120	20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff	.darstellungsarten*)............
d140	1e 00 20 20 20 20 63 75 72 73 6f 72 20 28 33 2c 32 33 29 3b ff ff ff ff ff ff ff ff ff ff ff ff	......cursor.(3,23);............
d160	1e 00 20 20 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 29 3b 3b ff ff ff ff ff ff ff ff ff ff	......fusszeileleer);;..........
d180	2e 00 20 20 20 20 7a 65 69 67 65 20 6d 65 6e 75 65 28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d	......zeige.menue(menuezeilennum
d1a0	6d 65 72 29 2e 20 ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69	mer)..................kernvonzei
d1c0	67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45	geabbruchmenue................LE
d1e0	41 56 45 20 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 2e	AVE.kern.von.zeige.abbruchmenue.
d200	1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 3b 20 ff ff ff ff ff ff	..END.PROC.darstellung.4;.......
d220	4e 00 20 20 20 6c 65 67 65 20 66 65 6e 73 74 65 72 20 66 65 73 74 20 28 73 65 69 74 65 2c 20 6c	N....lege.fenster.fest.(seite,.l
d240	6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65 6e 2c 20 73 74 72 75 6b 74 20 31 20 66	ks,.rts,.unten,.oben,.strukt.1.f
d260	65 6e 73 74 65 72 29 3b ff ff ff ff ff ff ff ff 4e 00 62 65 73 63 68 72 69 66 74 65 75 6e 64 70	enster);........N.beschrifteundp
d280	6c 6f 74 74 65 62 65 73 63 68 72 69 66 74 75 6e 67 3a 65 69 63 68 6e 65 6e 20 28 6d 69 6e 20 78	lottebeschriftung:eichnen.(min.x
d2a0	2c 6d 61 78 20 78 2c 20 30 2e 30 2c 20 6d 61 78 20 79 2c 20 76 20 6d 61 78 2c ff ff ff ff ff ff	,max.x,.0.0,.max.y,.v.max,......
d2c0	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	>...............................
d2e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 6e 6b 74 20 78 29 3b ff ff ff ff ff ff	.................punkt.x);......
d300	4e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 65 2c 20 6d 69 6e 78 2c 20 30 2e 37 20 2a 20 6d	N...move.(legende,.minx,.0.7.*.m
d320	61 78 79 29 3b 6d 61 78 20 79 29 3b 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 23 20 2b 20 30 2e	axy);max.y);tandardbreite.#.+.0.
d340	31 23 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67	1#;.............N...movecmr.(leg
d360	65 6e 64 65 2c 20 2d 20 31 2e 30 20 2a 20 61 2c 20 30 2e 30 29 3b 20 62 65 73 63 68 72 69 66 74	ende,.-.1.0.*.a,.0.0);.beschrift
d380	75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 3b 20 ff ff ff ff ff ff ff ff	ung,.nachkommastellen);.........
d3a0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73	>...............standardhoehe,.s
d3c0	74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 2e ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	tandardbreite);.................
d3e0	3e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28 6c 65 67 65 6e 64 65 2c 20 2d 34 2e 30 2a 73 74	>....move.cm.r.(legende,.-4.0*st
d400	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);.............
d420	4e 00 20 20 70 6c 6f 74 20 28 6c 65 67 65 6e 64 65 29 3b 65 6e 64 65 2c 20 79 20 61 63 68 73 65	N...plot.(legende);ende,.y.achse
d440	6e 20 62 65 7a 2c 20 20 30 2e 30 2c 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 73 74 61 6e 64 61	n.bez,..0.0,standardhoehe,standa
d460	72 64 62 72 65 69 74 65 29 3b 20 ff ff ff ff ff 4e 00 20 20 49 4e 54 20 43 4f 4e 53 54 20 73 74	rdbreite);......N...INT.CONST.st
d480	69 66 74 20 3a 3d 20 31 3b 65 67 65 6e 64 65 29 29 3b 62 65 7a 2c 20 20 30 2e 30 2c 73 74 61 6e	ift.:=.1;egende));bez,..0.0,stan
d4a0	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 ff ff	dardhoehe,.standardbreite);.....
d4c0	2e 00 20 20 74 72 61 67 65 70 75 6e 6b 74 65 69 6e 70 69 63 74 75 72 65 65 69 6e 3b 64 65 29 29	....tragepunkteinpictureein;de))
d4e0	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 50 49 43 54 55 52 45 20 50 52 4f 43 20 6b	;...............N.PICTURE.PROC.k
d500	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 52 45 41 4c 20 43 4f	reuzerzeugenundzeichnen.(REAL.CO
d520	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 2c 20 ff ff ff ff	NST.xmin,.xmax,.ymin,.ymax,.....
d540	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...............................
d560	20 20 20 20 20 20 20 20 20 76 6d 61 78 2c 20 78 77 65 72 74 29 3a 2c 20 78 20 77 65 72 74 29 3a	.........vmax,.xwert):,.x.wert):
d580	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 78 77 65 69 74 65 20 3a 3d 20 28 78	................>...xweite.:=.(x
d5a0	6d 61 78 20 2d 20 78 6d 69 6e 29 20 2f 20 72 65 61 6c 20 28 61 6e 7a 61 68 6c 78 61 63 68 73 65	max.-.xmin)./.real.(anzahlxachse
d5c0	6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 28 28 2d	nabschnitte);...N...movecmr.(((-
d5e0	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
d600	61 72 64 62 72 65 69 74 65 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff	ardbreite,.nachkommastellen),...
d620	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
d640	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,
d660	20 2d 20 31 2e 30 20 2a 20 2c 20 ff ff ff ff ff 4e 00 20 20 73 74 61 6e 64 61 72 64 62 72 65 69	.-.1.0.*.,......N...standardbrei
d680	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 20 56 41 52 20	te,.-.0.5.*.standardhoehe);.VAR.
d6a0	69 6e 20 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 29 3a 20 ff ff ff ff ff ff	in.demo,.TEXT.VAR.taste):.......
d6c0	3e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64 73 74 20 3a 3a 20 6e 69 6c 6f 75 74 70 75 74 20	>...OUTPUT.VAR.dst.::.niloutput.
d6e0	28 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff	(strukt.1.fenster,."darst");....
d700	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...............................
d720	20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f	.....kopfzeile,.steuerzeile,.plo
d740	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48	ttask);.........>.............TH
d760	45 4e 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73	EN.modellgroessen.einblenden.(ds
d780	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 4e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d	t,.lsg,.taste);.N.....IF.taste.=
d7a0	20 61 62 62 72 75 63 68 74 61 73 74 65 20 61 75 66 20 62 69 6c 64 73 63 68 69 72 6d 20 61 75 73	.abbruchtaste.auf.bildschirm.aus
d7c0	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 ff ff ff	.(dst,.modellkurzbezeichnung,...
d7e0	4e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 46 20 74 61 73 74 65 20 3d 20 61	N.........out.(piep);F.taste.=.a
d800	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 67 72	bbruchtaste.COR.taste.=.modellgr
d820	6f 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff 3e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	oessen.taste....>.....ELIF.taste
d840	20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 20 28 66 61 6c 73 63 68 65 20 74 61	.=.mdlgroesseneinbl..(falsche.ta
d860	73 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 74 61 73 74 65 20 3d 20 7a	ste)............N......taste.=.z
d880	65 69 67 65 7a 65 69 74 64 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c 20	eigezeitd............kopfzeile,.
d8a0	73 74 65 75 65 72 7a 65 69 6c 65 2c 20 70 6c 6f 74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff	steuerzeile,.plottask);.........
d8c0	4e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b 75 65 28 6d 65 6e 75 65 7a 65 69 6c 65 28 31 29	N...gibmenueaus;ue(menuezeile(1)
d8e0	29 3b 20 28 2a 20 61 20 61 62 62 72 65 63 68 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	);.(*.a.abbrechen...............
d900	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 67 69 62 6d 65 6c	....*)..........N.........gibmel
d920	64 75 6e 67 61 75 73 20 28 31 32 29 3b 65 20 7a 75 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72	dungaus.(12);e.zu.darstellungsar
d940	74 65 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	ten.(taste,.FALSE);.............
d960	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
d980	29 29 3b 28 2a 20 61 20 61 62 62 72 65 63 68 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	));(*.a.abbrechen...............
d9a0	20 20 20 20 2a 29 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	....*)..........>.....fuellemenu
d9c0	65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 30 29 29 3b 2a 20 6c 65 65 72 7a 65 69 6c 65 20	e.(menuezeile.(10));*.leerzeile.
d9e0	20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 4e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75	.............*).N.....fuellemenu
da00	65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 29 3b 2a 20 6d 6f 64 65 6c 6c 67 72 6f 65	e.(menuezeile.(17));*.modellgroe
da20	73 73 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff	ssen..............*)............
da40	4e 00 20 20 20 20 7a 65 69 67 65 6d 65 6e 75 65 3b 65 28 6d 65 6e 75 65 7a 65 69 6c 65 28 31 37	N.....zeigemenue;e(menuezeile(17
da60	29 29 3b 28 2a 20 6e 20 6d 65 6e 75 65 20 7a 75 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74	));(*.n.menue.zu.darstellungsart
da80	65 6e 2a 29 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75	en*)..............leavezeigemenu
daa0	65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	ezurzusatzdarst:N.....ELIF.taste
dac0	20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20	.=.mdlgroesseneinbl.llungsname,.
dae0	66 75 73 73 7a 65 69 6c 65 20 6c 65 65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	fusszeile.leer);................
db00	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 64 61	N.............................da
db20	72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 66 75 73 73 7a 65 69 6c 65 20 6c 65 65 72 29 3b	rstellungsname,.fusszeile.leer);
db40	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff be 00 52 45 41 4c 20 43 4f 4e 53 54 20 73 74 61	..................REAL.CONST.sta
db60	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
db80	62 72 65 69 74 65 20 3a 3d 20 73 74 64 62 72 65 69 74 65 3b 20 3b 20 54 45 58 54 20 43 4f 4e 53	breite.:=.stdbreite;.;.TEXT.CONS
dba0	54 20 65 73 63 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	T.esc.:=.code.(27),.piep.:=.code
dbc0	20 28 37 29 3b 65 73 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	.(7);essentaste.=."s".,.sendetas
dbe0	74 65 20 3d 20 22 78 78 22 20 2c 20 77 65 69 74 65 72 74 61 73 74 65 20 3d 20 22 77 22 20 2c 20	te.=."xx".,.weitertaste.=."w".,.
dc00	70 6c 6f 74 74 61 73 6b 20 3d 20 ff ff ff ff ff ce 00 54 45 58 54 20 43 4f 4e 53 54 20 65 73 63	plottask.=........TEXT.CONST.esc
dc20	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);
dc40	20 20 22 73 22 20 2c 20 73 65 6e 64 65 74 61 73 74 65 20 3d 20 22 78 22 20 2c 20 77 65 69 74 65	.."s".,.sendetaste.=."x".,.weite
dc60	72 74 61 73 74 65 20 3d 20 22 77 22 20 2c 20 70 6c 6f 74 74 61 73 6b 20 3d 20 20 7a 65 69 67 65	rtaste.=."w".,.plottask.=..zeige
dc80	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 20 22 2b 22 20	zeitd.=."z".,.zeigezusatz.=."+".
dca0	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 72 75 62 6f 75	,.mdlgroesseneinbl.=."e".,.rubou
dcc0	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 ff ff ff ff ff ff ff	t.=."l".;.LET.xachsenbez........
dce0	ce 00 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
dd00	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.=."
dd20	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 70 68 61 73 65	m".,.zeigetab.=."t".,.zeigephase
dd40	6e 64 20 3d 20 22 70 22 20 2c 20 7a 65 69 67 65 7a 65 69 74 64 20 3d 20 22 7a 22 20 2c 20 7a 65	nd.=."p".,.zeigezeitd.=."z".,.ze
dd60	69 67 65 7a 75 73 61 74 7a 20 3d 20 22 2b 22 20 2c 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e	igezusatz.=."+".,.mdlgroessenein
dd80	62 6c 20 3d 20 22 65 22 20 2c 20 72 75 62 6f 75 74 20 3d 20 22 6c 22 20 3b 20 4c 45 54 20 78 61	bl.=."e".,.rubout.=."l".;.LET.xa
dda0	63 68 73 65 6e 62 65 7a 20 ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 61 62 62	chsenbez.....................abb
ddc0	72 75 63 68 74 61 73 74 65 20 64 65 6d 6f 20 3d 20 22 61 22 2c 6d 61 78 62 65 7a 65 69 63 68 6e	ruchtaste.demo.=."a",maxbezeichn
dde0	75 6e 67 20 3d 20 22 20 20 20 56 6d 61 78 20 3d 20 22 20 2c 20 6b 6d 62 65 7a 65 69 63 68 6e 75	ung.=."...Vmax.=.".,.kmbezeichnu
de00	6e 67 20 3d 20 22 20 20 20 4b 6d 20 20 20 3d 20 22 20 2c 20 64 69 76 69 73 69 6f 6e 73 66 65 68	ng.=."...Km...=.".,.divisionsfeh
de20	6c 65 72 70 61 72 61 6d 20 3d 20 22 2a 2a 2a 20 20 46 65 68 6c 65 72 20 61 75 66 67 65 74 72 65	lerparam.=."***..Fehler.aufgetre
de40	74 65 6e 21 20 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 73 6b 6f 6e 73 74 61 6e 74 65 20 6b	ten!.Geschwindigkeitskonstante.k
de60	20 2b 20 31 20 3d 20 30 21 20 2a 2a 2a 22 20 2c 20 65 69 6c 65 20 3d 20 32 20 ff ff ff ff ff ff	.+.1.=.0!.***".,.eile.=.2.......
de80	be 00 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 20 3d 20 33 20 2c 20 6b 6f 70 66 7a 65	..,.steuerzeiledemo.=.3.,.kopfze
dea0	69 6c 65 20 3d 20 32 35 20 2c 20 66 61 6c 73 63 68 65 74 61 73 74 65 20 3d 20 31 38 20 2c 20 73	ile.=.25.,.falschetaste.=.18.,.s
dec0	74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 3d 20 31 20 2c 20 61 63 68 73 65 6e 61 62 73 74 61 6e	trukt1fenster.=.1.,.achsenabstan
dee0	64 20 3d 20 30 2e 30 35 20 2c 20 76 65 72 73 63 68 69 65 62 75 6e 67 20 3d 20 31 2e 32 35 20 2c	d.=.0.05.,.verschiebung.=.1.25.,
df00	20 61 62 73 74 61 6e 64 20 3d 20 30 2e 31 20 2c 20 65 70 73 69 6c 6f 6e 20 3d 20 30 2e 35 20 2c	.abstand.=.0.1.,.epsilon.=.0.5.,
df20	20 6c 61 65 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 ff ff ff	.laengebeibeschriftung.=.8.,....
df40	be 00 20 20 20 20 20 20 20 20 20 20 20 77 65 69 74 65 72 74 61 73 74 65 20 3d 20 22 77 22 2c 20	.............weitertaste.=."w",.
df60	70 6c 6f 74 74 61 73 6b 20 3d 20 22 73 69 6d 73 65 6c 20 70 6c 6f 74 74 65 72 22 3b 20 2c 20 73	plottask.=."simsel.plotter";.,.s
df80	74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 3d 20 31 20 2c 20 76 65 72 73 63 68 69 65 62 75 6e 67	trukt1fenster.=.1.,.verschiebung
dfa0	20 3d 20 31 2e 32 35 20 2c 20 61 62 73 74 61 6e 64 20 3d 20 30 2e 31 20 2c 20 65 70 73 69 6c 6f	.=.1.25.,.abstand.=.0.1.,.epsilo
dfc0	6e 20 3d 20 30 2e 35 20 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20	n.=.0.5.,.laengebeibeschriftung.
dfe0	3d 20 38 20 2c 20 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d 20 38 20 2c 20 20 2c 20	=.8.,.ebeibeschriftung.=.8.,..,.
e000	ce 00 4c 45 54 20 20 20 20 20 20 20 20 78 61 63 68 73 65 6e 62 65 7a 20 3d 20 22 31 2f 63 28 53	..LET........xachsenbez.=."1/c(S
e020	29 22 2c 20 79 61 63 68 73 65 6e 62 65 7a 20 3d 20 22 31 2f 76 22 20 2c 20 28 20 4f 55 54 50 55	)",.yachsenbez.=."1/v".,.(.OUTPU
e040	54 20 56 41 52 20 73 65 69 74 65 20 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 20 2c 20	T.VAR.seite.,.BOOL.VAR.indemo.,.
e060	52 45 41 4c 20 43 4f 4e 53 54 20 76 6d 61 78 20 2c 20 6b 6d 20 29 20 3a 20 49 4e 54 20 43 4f 4e	REAL.CONST.vmax.,.km.).:.INT.CON
e080	53 54 20 66 65 6e 73 74 65 72 20 3a 3d 20 31 20 3b 20 52 45 41 4c 20 56 41 52 20 6d 69 6e 78 20	ST.fenster.:=.1.;.REAL.VAR.minx.
e0a0	2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 2c 20 6d 61 78 79 20 2c 20 70 75 6e 6b 74 78 20 2c 20	,.maxx.,.miny.,.maxy.,.punktx.,.
e0c0	65 20 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 76 6d 61	e.;..........................vma
e0e0	78 62 65 7a 65 69 63 68 6e 75 6e 67 20 3d 20 22 20 20 20 56 6d 61 78 20 3d 20 22 20 2c 20 22 7a	xbezeichnung.=."...Vmax.=.".,."z
e100	22 2c 20 20 3b 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	",..;.PICTURE.VAR.kreuz.:=.nilpi
e120	63 74 75 72 65 20 3b 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 73	cture.;.gebeaufbildschirmaus.(.s
e140	65 69 74 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 20 2c 20 64	eite.,.modellkurzbezeichnung.,.d
e160	61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 66 75 73 73 7a 65 69 6c 65 6c 65 65 72 20	arstellungsname.,.fusszeileleer.
e180	29 20 3b 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 20 3b 20 20 2e 20 ff ff ff ff ff ff ff ff ff	).;.initialisiere.;.............
e1a0	ce 00 20 20 20 20 20 20 20 20 20 20 20 6b 6d 62 65 7a 65 69 63 68 6e 75 6e 67 20 3d 20 22 20 20	.............kmbezeichnung.=."..
e1c0	20 4b 6d 20 20 20 3d 20 22 20 2c 20 66 74 75 6e 67 20 3b 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c	.Km...=.".,.ftung.;.zeichneundpl
e1e0	6f 74 74 65 6b 75 72 76 65 20 3b 20 49 46 20 69 6e 64 65 6d 6f 20 54 48 45 4e 20 70 6c 6f 74 74	ottekurve.;.IF.indemo.THEN.plott
e200	65 66 75 73 73 7a 65 69 6c 65 20 28 20 73 65 69 74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65	efusszeile.(.seite.,.steuerzeile
e220	64 65 6d 6f 20 29 20 3b 20 45 4c 53 45 20 70 6c 6f 74 74 65 66 75 73 73 7a 65 69 6c 65 20 28 20	demo.).;.ELSE.plottefusszeile.(.
e240	73 65 69 74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 29 20 3b 20 46 49 20 3b 20 65 6e 64	seite.,.steuerzeile.).;.FI.;.end
e260	70 6c 6f 74 20 2e 20 3b 20 ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 64 69 76	plot...;.....................div
e280	69 73 69 6f 6e 73 66 65 68 6c 65 72 70 61 72 61 6d 20 3d 20 20 72 75 62 6f 75 74 20 3d 20 22 6c	isionsfehlerparam.=..rubout.=."l
e2a0	22 3b 72 74 73 20 2c 20 75 6e 74 65 6e 20 2c 20 6f 62 65 6e 20 2c 20 73 74 72 75 6b 74 31 66 65	";rts.,.unten.,.oben.,.strukt1fe
e2c0	6e 73 74 65 72 20 29 20 3b 20 62 65 67 69 6e 70 6c 6f 74 20 3b 20 76 69 65 77 70 6f 72 74 20 28	nster.).;.beginplot.;.viewport.(
e2e0	20 6c 6b 73 20 2c 20 72 74 73 20 2c 20 75 6e 74 65 6e 20 2c 20 6f 62 65 6e 20 29 20 3b 20 6e 69	.lks.,.rts.,.unten.,.oben.).;.ni
e300	6c 64 69 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	ldiagramm.(.seite.,.strukt1fenst
e320	65 72 20 29 20 3b 20 62 65 73 74 69 6d 6d 65 65 78 74 72 65 6d 61 20 3b 20 ff ff ff ff ff ff ff	er.).;.bestimmeextrema.;........
e340	be 00 2b 20 28 20 32 2e 30 20 2a 20 65 70 73 69 6c 6f 6e 20 29 20 3b 20 46 49 20 3b 20 77 69 6e	..+.(.2.0.*.epsilon.).;.FI.;.win
e360	64 6f 77 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 6d	dow.(.seite.,.strukt1fenster.,.m
e380	69 6e 78 20 2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 2c 20 6d 61 78 79 20 29 20 3b 20 77 69 6e	inx.,.maxx.,.miny.,.maxy.).;.win
e3a0	64 6f 77 20 28 20 6d 69 6e 78 20 2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 2c 20 6d 61 78 79 20	dow.(.minx.,.maxx.,.miny.,.maxy.
e3c0	29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 6b 72 65 75 7a 20 3a 20 70 65 6e 20 28 20 6b 72 65 75	).;...schreibekreuz.:.pen.(.kreu
e3e0	7a 20 2c 20 31 20 29 20 3b 20 6b 72 65 75 7a 20 3a 3d 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	z.,.1.).;.kreuz.:=..............
e400	ce 00 20 20 20 20 20 20 20 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 76 6d 61 78	.............divisionsfehlervmax
e420	20 3d 20 56 6d 61 78 20 3d 20 22 20 2c 20 78 3b 20 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6d	.=.Vmax.=.".,.x;.ukt1fenster.,.m
e440	69 6e 78 20 2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 2c 20 6d 61 78 79 20 29 20 3b 20 77 69 6e	inx.,.maxx.,.miny.,.maxy.).;.win
e460	64 6f 77 20 28 20 6d 69 6e 78 20 2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 2c 20 6d 61 78 79 20	dow.(.minx.,.maxx.,.miny.,.maxy.
e480	29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 6b 72 65 75 7a 20 3a 20 70 65 6e 20 28 20 6b 72 65 75	).;...schreibekreuz.:.pen.(.kreu
e4a0	7a 20 2c 20 31 20 29 20 3b 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20	z.,.1.).;.kreuz.:=.nilpicture.;.
e4c0	52 45 41 4c 20 56 41 52 20 ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 22 2a 2a 2a 20 20 42	REAL.VAR................."***..B
e4e0	65 72 65 63 68 6e 75 6e 67 20 64 65 72 20 4b 75 72 76 65 20 75 6e 7a 75 6c d9 73 73 69 67 20 2c	erechnung.der.Kurve.unzul.ssig.,
e500	20 64 61 20 56 6d 61 78 20 3d 20 30 20 21 20 2a 2a 2a 22 20 2c 20 29 20 3b 20 70 75 74 6b 72 65	.da.Vmax.=.0.!.***".,.).;.putkre
e520	75 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 6b 72	uz.(.seite.,.strukt1fenster.,.kr
e540	65 75 7a 20 29 20 3b 20 2e 20 62 65 73 63 68 72 69 66 74 65 75 6e 64 70 6c 6f 74 74 65 62 65 73	euz.).;...beschrifteundplottebes
e560	63 68 72 69 66 74 75 6e 67 20 3a 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 20	chriftung.:.PICTURE.VAR.legende.
e580	3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 52 45 41 4c 20 56 41 52 20 20 ff ff ff ff ff ff	:=.nilpicture.;.REAL.VAR........
e5a0	ce 00 20 20 20 20 20 20 20 20 20 20 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 6b 6d 20 3d	.............divisionsfehlerkm.=
e5c0	20 20 3d 20 70 20 3a 3d 20 6d 69 6e 20 79 3b 20 69 6e 6c 65 67 65 6e 64 65 20 3b 20 73 63 68 72	..=.p.:=.min.y;.inlegende.;.schr
e5e0	65 69 62 65 6b 6d 69 6e 6c 65 67 65 6e 64 65 20 3b 20 62 65 73 63 68 72 69 66 74 65 61 63 68 73	eibekminlegende.;.beschrifteachs
e600	65 6e 69 6e 6c 65 67 65 6e 64 65 20 3b 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 20 3b 20 70 75	eninlegende.;.plottelegende.;.pu
e620	74 6b 72 65 75 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	tkreuz.(.seite.,.strukt1fenster.
e640	2c 20 6c 65 67 65 6e 64 65 20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 76 6d 61 78 69 6e 6c 65	,.legende.).;...schreibevmaxinle
e660	67 65 6e 64 65 20 3a 20 61 20 ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 22 2a 2a 2a 20 20 42	gende.:.a................"***..B
e680	65 72 65 63 68 6e 75 6e 67 20 64 65 72 20 4b 75 72 76 65 20 75 6e 7a 75 6c d9 73 73 69 67 20 2c	erechnung.der.Kurve.unzul.ssig.,
e6a0	20 64 61 20 4b 6d 20 3d 20 30 20 21 20 2a 2a 2a 22 20 2c 3d 20 30 21 20 2a 2a 2a 22 20 2c 20 6e	.da.Km.=.0.!.***".,=.0!.***".,.n
e6c0	64 61 72 64 68 6f 65 68 65 20 3b 20 77 65 72 74 20 3a 3d 20 77 61 6e 64 6c 65 20 28 20 76 6d 61	dardhoehe.;.wert.:=.wandle.(.vma
e6e0	78 20 2c 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	x.,.laengebeibeschriftung.,.nach
e700	6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 20 29 20 3b 20 6d 6f 76 65 20 28 20 6c 65 67 65 6e 64 65 20	kommastellen.).;.move.(.legende.
e720	2c 20 6d 69 6e 78 20 2c 20 30 2e 37 20 2a 20 6d 61 78 79 20 29 20 3b 20 ff ff ff ff ff ff ff ff	,.minx.,.0.7.*.maxy.).;.........
e740	be 00 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 20 29 20 3b 20 6d 6f 76 65 20 28 20 6c 65	..nachkommastellen.).;.move.(.le
e760	67 65 6e 64 65 20 2c 20 6d 69 6e 78 20 2c 20 30 2e 36 20 2a 20 6d 61 78 79 20 29 20 3b 20 6d 6f	gende.,.minx.,.0.6.*.maxy.).;.mo
e780	76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 2d 20 31 2e 30 20 2a 20 61 20 2c 20 30 2e	vecmr.(.legende.,.-.1.0.*.a.,.0.
e7a0	30 20 29 20 3b 20 64 72 61 77 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 6b 6d 62 65 7a 65 69 63 68	0.).;.draw.(.legende.,.kmbezeich
e7c0	6e 75 6e 67 20 2b 20 77 65 72 74 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68	nung.+.wert.,.0.0.,.standardhoeh
e7e0	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 ff ff ff ff ff ff ff	e.,.standardbreite.).;..........
e800	ce 00 20 20 20 20 20 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 20 3d 20 33 34 20 2c 20	.............steuerzeile.=.34.,.
e820	73 74 65 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	steuerzeiledemo.=.3,.kopfzeile.=
e840	20 33 34 2c 20 2c 20 6f 77 20 28 20 6d 69 6e 78 20 2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 2c	.34,.,.ow.(.minx.,.maxx.,.miny.,
e860	20 6d 61 78 79 20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 6b 72 65 75 7a 20 3a 20 70 65 6e 20	.maxy.).;...schreibekreuz.:.pen.
e880	28 20 6b 72 65 75 7a 20 2c 20 31 20 29 20 3b 20 6b 72 65 75 7a 20 3a 3d 20 61 72 64 68 6f 65 68	(.kreuz.,.1.).;.kreuz.:=.ardhoeh
e8a0	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 20 6d 6f 76 65 20 28	e.,.standardbreite.).;....move.(
e8c0	20 6c 65 67 65 6e 64 65 20 ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 66 61 6c	.legende.....................fal
e8e0	73 63 68 65 74 61 73 74 65 20 3d 20 31 38 2c 20 20 20 2c 20 6d 61 78 78 20 2c 20 30 2e 30 20 2c	schetaste.=.18,...,.maxx.,.0.0.,
e900	20 6d 61 78 79 20 2c 20 76 6d 61 78 20 2c 20 70 75 6e 6b 74 78 20 29 20 3b 20 70 75 74 6b 72 65	.maxy.,.vmax.,.punktx.).;.putkre
e920	75 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 6b 72	uz.(.seite.,.strukt1fenster.,.kr
e940	65 75 7a 20 29 20 3b 20 2e 20 62 65 73 63 68 72 69 66 74 65 75 6e 64 70 6c 6f 74 74 65 62 65 73	euz.).;...beschrifteundplottebes
e960	63 68 72 69 66 74 75 6e 67 20 3a 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 20	chriftung.:.PICTURE.VAR.legende.
e980	3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 52 45 41 4c 20 56 41 52 20 20 ff ff ff ff ff ff	:=.nilpicture.;.REAL.VAR........
e9a0	ce 00 20 20 20 20 20 20 20 20 20 20 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 3d 20 31 2c	.............strukt1fenster.=.1,
e9c0	20 76 65 72 73 63 68 69 65 62 75 6e 67 20 3d 20 31 2e 32 35 2c 20 61 62 73 74 61 6e 64 20 3d 20	.verschiebung.=.1.25,.abstand.=.
e9e0	30 2e 31 2c 65 20 3b 20 62 65 73 63 68 72 69 66 74 65 61 63 68 73 65 6e 69 6e 6c 65 67 65 6e 64	0.1,e.;.beschrifteachseninlegend
ea00	65 20 3b 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 20 3b 20 70 75 74 6b 72 65 75 7a 20 28 20 73	e.;.plottelegende.;.putkreuz.(.s
ea20	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 65 6e 64 65 20	eite.,.strukt1fenster.,.legende.
ea40	29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 76 6d 61 78 69 6e 6c 65 67 65 6e 64 65 20 3a 20 61 20	).;...schreibevmaxinlegende.:.a.
ea60	67 65 6e 64 65 20 3a 20 61 20 ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 65 70 73	gende.:.a....................eps
ea80	69 6c 6f 6e 20 3d 20 30 2e 35 2c 20 20 30 2c 6e 67 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72	ilon.=.0.5,..0,ng.).*.standardbr
eaa0	65 69 74 65 20 20 3b 20 62 20 3a 3d 20 32 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65	eite..;.b.:=.2.0.*.standardhoehe
eac0	20 3b 20 77 65 72 74 20 3a 3d 20 77 61 6e 64 6c 65 20 28 20 76 6d 61 78 20 2c 20 6c 61 65 6e 67	.;.wert.:=.wandle.(.vmax.,.laeng
eae0	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 6d 61 73 74 65 6c	ebeibeschriftung.,.nachkommastel
eb00	6c 65 6e 20 29 20 3b 20 6d 6f 76 65 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 6d 69 6e 78 20 2c 20	len.).;.move.(.legende.,.minx.,.
eb20	30 2e 37 20 2a 20 6d 61 78 79 20 29 20 3b 20 6d 61 78 79 20 29 20 3b 20 20 ff ff ff ff ff ff ff	0.7.*.maxy.).;.maxy.).;.........
eb40	ce 00 20 20 20 20 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	.............laengebeibeschriftu
eb60	6e 67 20 3d 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	ng.=.8,.nachkommastellen.=.2,.vo
eb80	72 6b 6f 6d 6d 61 20 3d 20 35 3b 2b 20 77 65 72 74 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61	rkomma.=.5;+.wert.,.0.0.,.standa
eba0	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 73	rdhoehe.,.standardbreite.).;...s
ebc0	63 68 72 65 69 62 65 6b 6d 69 6e 6c 65 67 65 6e 64 65 20 3a 20 77 65 72 74 20 3a 3d 20 77 61 6e	chreibekminlegende.:.wert.:=.wan
ebe0	64 6c 65 20 28 20 6b 6d 20 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67	dle.(.km.,.laengebeibeschriftung
ec00	20 2c 20 65 69 6e 20 3a 20 ff ff ff ff ff ff ff ce 00 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73	.,.ein.:..........PROC.zeigedars
ec20	74 34 20 28 4f 55 54 50 55 54 20 56 41 52 20 73 65 69 74 65 2c 20 42 4f 4f 4c 20 56 41 52 20 69	t4.(OUTPUT.VAR.seite,.BOOL.VAR.i
ec40	6e 64 65 6d 6f 2c 20 52 45 41 4c 20 43 4f 4e 53 54 20 76 6d 61 78 2c 20 6b 6d 29 3a 6e 64 65 20	ndemo,.REAL.CONST.vmax,.km):nde.
ec60	2c 20 2d 20 31 2e 30 20 2a 20 61 20 2c 20 30 2e 30 20 29 20 3b 20 64 72 61 77 20 28 20 6c 65 67	,.-.1.0.*.a.,.0.0.).;.draw.(.leg
ec80	65 6e 64 65 20 2c 20 6b 6d 62 65 7a 65 69 63 68 6e 75 6e 67 20 2b 20 77 65 72 74 20 2c 20 30 2e	ende.,.kmbezeichnung.+.wert.,.0.
eca0	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
ecc0	74 65 20 29 20 3b 20 2e 20 56 41 52 20 74 72 61 6e 73 66 65 72 20 3b 20 52 20 ff ff ff ff ff ff	te.).;...VAR.transfer.;.R.......
ece0	ce 00 20 20 49 4e 54 20 43 4f 4e 53 54 20 66 65 6e 73 74 65 72 20 3a 3d 20 31 3b 20 3d 20 31 2c	....INT.CONST.fenster.:=.1;.=.1,
ed00	20 76 65 72 73 63 68 69 65 62 75 6e 67 20 3d 20 31 2e 32 35 2c 20 61 62 73 74 61 6e 64 20 3d 20	.verschiebung.=.1.25,.abstand.=.
ed20	30 2e 31 2c 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 2d 20 34 2e 30 20 2a 20 73 74 61 6e 64 61	0.1,r.(.legende.,.-.4.0.*.standa
ed40	72 64 62 72 65 69 74 65 20 2c 20 30 2e 30 20 29 20 3b 20 64 72 61 77 20 28 20 6c 65 67 65 6e 64	rdbreite.,.0.0.).;.draw.(.legend
ed60	65 20 2c 20 79 61 63 68 73 65 6e 62 65 7a 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68	e.,.yachsenbez.,.0.0.,.standardh
ed80	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 6d 6f 76 65 20 28	oehe.,.standardbreite.).;.move.(
eda0	20 6c 65 67 65 6e 64 65 20 20 ff ff ff ff ff ff ce 00 20 20 52 45 41 4c 20 56 41 52 20 6d 69 6e	.legende............REAL.VAR.min
edc0	78 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61 78 79 2c 20 70 75 6e 6b 74 78 2c 20 64 72 65	x,.maxx,.miny,.maxy,.punktx,.dre
ede0	69 64 75 72 63 68 76 6d 61 78 3b 69 74 65 20 2c 20 2d 20 31 2e 30 20 29 20 3b 20 64 72 61 77 20	idurchvmax;ite.,.-.1.0.).;.draw.
ee00	28 20 6c 65 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	(.legende.,.xachsenbez.,.0.0.,.s
ee20	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 74 65 20 29 20	tandardhoehe.,.standardbreite.).
ee40	3b 20 2e 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 20 3a 20 70 65 6e 20 28 20 6c 65 67 65 6e 64	;...plottelegende.:.pen.(.legend
ee60	65 20 2c 20 31 20 29 20 3b 20 70 65 6e 20 28 20 30 20 2c 20 31 20 2c 20 30 20 ff ff ff ff ff ff	e.,.1.).;.pen.(.0.,.1.,.0.......
ee80	ce 00 20 20 52 45 41 4c 20 56 41 52 20 6c 6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62	....REAL.VAR.lks,.rts,.unten,.ob
eea0	65 6e 3b 3d 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	en;=.8,.nachkommastellen.=.2,.vo
eec0	72 6b 6f 6d 6d 61 20 3d 20 35 3b 4e 53 54 20 73 74 69 66 74 20 3a 3d 20 31 20 3b 20 72 69 63 68	rkomma.=.5;NST.stift.:=.1.;.rich
eee0	74 65 70 69 63 74 75 72 65 65 69 6e 20 3b 20 6f 72 64 6e 65 70 65 6e 7a 75 20 3b 20 74 72 61 67	tepictureein.;.ordnepenzu.;.trag
ef00	65 70 75 6e 6b 74 65 69 6e 70 69 63 74 75 72 65 65 69 6e 20 3b 20 73 63 68 72 65 69 62 65 70 69	epunkteinpictureein.;.schreibepi
ef20	63 74 75 72 65 20 2e 20 72 69 63 68 74 65 70 69 63 74 75 72 65 65 69 6e 20 3a 20 50 49 43 54 55	cture...richtepictureein.:.PICTU
ef40	52 45 20 56 41 52 20 20 2e 20 ff ff ff ff ff ff ce 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20	RE.VAR..............PICTURE.VAR.
ef60	6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 2c 20 42 4f 4f 4c 20 56 41 52 20 69	kreuz.:=.nilpicture;,.BOOL.VAR.i
ef80	6e 64 65 6d 6f 2c 20 52 45 41 4c 20 43 4f 4e 53 54 20 76 6d 61 78 2c 20 6b 6d 29 3a 3b 20 2e 20	ndemo,.REAL.CONST.vmax,.km):;...
efa0	74 72 61 67 65 70 75 6e 6b 74 65 69 6e 70 69 63 74 75 72 65 65 69 6e 20 3a 20 70 65 6e 20 28 20	tragepunkteinpictureein.:.pen.(.
efc0	30 20 2c 20 31 20 2c 20 30 20 2c 20 73 74 69 66 74 20 29 20 3b 20 74 72 61 67 65 61 6e 66 61 6e	0.,.1.,.0.,.stift.).;.trageanfan
efe0	67 73 70 75 6e 6b 74 65 69 6e 20 3b 20 74 72 61 67 65 65 6e 64 70 75 6e 6b 74 65 69 6e 20 3b 20	gspunktein.;.trageendpunktein.;.
f000	2e 20 74 72 61 67 65 61 6e 66 61 6e 67 73 70 75 6e 6b 74 65 69 6e 20 3a 20 20 ff ff ff ff ff ff	..trageanfangspunktein.:........
f020	ce 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	....gebeaufbildschirmaus.(seite,
f040	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 6c 6c	.modellkurzbezeichnung,.darstell
f060	75 6e 67 73 6e 61 6d 65 2c 20 6b 74 65 69 6e 20 3a 20 64 72 61 77 20 28 20 66 75 6e 6b 74 69 6f	ungsname,.ktein.:.draw.(.funktio
f080	6e 20 2c 20 6d 61 78 78 20 2c 20 64 72 65 69 64 75 72 63 68 76 6d 61 78 20 29 20 3b 20 64 72 61	n.,.maxx.,.dreidurchvmax.).;.dra
f0a0	77 20 28 20 6d 61 78 78 20 2c 20 64 72 65 69 64 75 72 63 68 76 6d 61 78 20 29 20 3b 20 2e 20 73	w.(.maxx.,.dreidurchvmax.).;...s
f0c0	63 68 72 65 69 62 65 70 69 63 74 75 72 65 20 3a 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61	chreibepicture.:.PICTURE.VAR.tra
f0e0	6e 73 66 65 72 20 3b 20 20 20 ff ff ff ff ff ff ce 00 20 20 66 75 73 73 7a 65 69 6c 65 6c 65 65	nsfer.;.............fusszeilelee
f100	72 29 3b 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61 78 79 2c 20 70 75 6e 6b 74 78 2c 20 64 72 65	r);maxx,.miny,.maxy,.punktx,.dre
f120	69 64 75 72 63 68 76 6d 61 78 3b 6e 73 66 65 72 20 29 20 3b 20 2e 20 45 4e 44 20 50 52 4f 43 20	idurchvmax;nsfer.).;...END.PROC.
f140	7a 65 69 67 65 64 61 72 73 74 34 20 3b 20 50 49 43 54 55 52 45 20 50 52 4f 43 20 6b 72 65 75 7a	zeigedarst4.;.PICTURE.PROC.kreuz
f160	65 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 20 52 45 41 4c 20 43 4f 4e 53 54	erzeugenundzeichnen.(.REAL.CONST
f180	20 78 6d 69 6e 20 2c 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 2c 20 79 6d 61 78 20 2c 20 76 6d 61	.xmin.,.xmax.,.ymin.,.ymax.,.vma
f1a0	78 20 2c 20 78 77 65 72 74 20 29 20 3a 20 50 49 43 54 55 52 45 20 56 41 52 20 ff ff ff ff ff ff	x.,.xwert.).:.PICTURE.VAR.......
f1c0	ce 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3b 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62	....initialisiere;rts,.unten,.ob
f1e0	65 6e 3b 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 61	en;euz.:=.nilpicture.;.INT.VAR.a
f200	6e 7a 61 68 6c 78 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 2c 20 61 6e 7a 61 68 6c 79	nzahlxachsenabschnitte.,.anzahly
f220	61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 31 31 20 3b 20 52 45 41 4c 20 56 41	achsenabschnitte.:=.11.;.REAL.VA
f240	52 20 78 77 65 69 74 65 20 2c 20 79 77 65 69 74 65 20 3b 20 61 6e 7a 61 68 6c 78 61 63 68 73 65	R.xweite.,.yweite.;.anzahlxachse
f260	6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 31 32 20 3b 20 78 77 65 69 74 65 20 3a 3d 20 28 20	nabschnitte.:=.12.;.xweite.:=.(.
f280	78 6d 61 78 20 2d 20 20 3b 20 ff ff ff ff ff ff ce 00 20 20 73 63 68 72 65 69 62 65 6b 72 65 75	xmax.-..;...........schreibekreu
f2a0	7a 3b 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 6e 69 74 74 65 20 29 20 3b 20 79 77	z;euz.:=.nilpicture;nitte.).;.yw
f2c0	65 69 74 65 20 3a 3d 20 28 20 79 6d 61 78 20 2d 20 79 6d 69 6e 20 29 20 2f 20 72 65 61 6c 20 28	eite.:=.(.ymax.-.ymin.)./.real.(
f2e0	20 61 6e 7a 61 68 6c 79 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 29 20 3b 20 6f 72 64	.anzahlyachsenabschnitte.).;.ord
f300	6e 65 73 74 69 66 74 7a 75 20 3b 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 20 3b 20 7a 65 69 63	nestiftzu.;.zeichnexachse.;.zeic
f320	68 6e 65 79 61 63 68 73 65 20 3b 20 78 73 6b 61 6c 69 65 72 75 6e 67 20 3b 20 79 73 6b 61 6c 69	hneyachse.;.xskalierung.;.yskali
f340	65 72 75 6e 67 20 3b 20 6c 69 65 66 65 72 65 6b 72 65 75 7a 20 2e 20 6d 72 20 ff ff ff ff ff ff	erung.;.lieferekreuz...mr.......
f360	be 00 3b 20 2e 20 62 65 73 63 68 72 69 66 74 65 20 3a 20 6d 6f 76 65 20 28 20 73 74 65 6c 6c 65	..;...beschrifte.:.move.(.stelle
f380	20 2c 20 79 6d 69 6e 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 28 20 28 20 2d 20 31 2e 30 20	.,.ymin.).;.movecmr.(.(.(.-.1.0.
f3a0	29 20 2a 20 72 65 61 6c 20 28 20 76 6f 72 6b 6f 6d 6d 61 20 29 20 29 20 2a 20 73 74 61 6e 64 61	).*.real.(.vorkomma.).).*.standa
f3c0	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 65 68 65	rdbreite.,.-.1.0.*.standardhoehe
f3e0	20 2d 20 61 62 73 74 61 6e 64 20 29 20 3b 20 64 72 61 77 20 28 20 77 61 6e 64 6c 65 20 28 20 73	.-.abstand.).;.draw.(.wandle.(.s
f400	74 65 6c 6c 65 20 2c 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	telle.,.laengebeibeschriftung.,.
f420	ce 00 20 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f 74 74 65 6b 75 72 76 65 3b 2e 30 20 2c 20 79	....zeichneundplottekurve;.0.,.y
f440	6d 69 6e 20 29 20 3b 20 64 72 61 77 20 28 20 30 2e 30 20 2c 20 79 6d 61 78 20 29 20 3b 20 6d 6f	min.).;.draw.(.0.0.,.ymax.).;.mo
f460	76 65 20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 79 6d 69 6e 20 29 20 3b 20 64 72 61 77	ve.(.kreuz.,.0.0.,.ymin.).;.draw
f480	20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 79 6d 61 78 20 29 20 3b 20 7a 65 69 63 68 6e	.(.kreuz.,.0.0.,.ymax.).;.zeichn
f4a0	65 79 73 70 69 74 7a 65 20 2e 20 7a 65 69 63 68 6e 65 78 73 70 69 74 7a 65 20 3a 20 64 72 61 77	eyspitze...zeichnexspitze.:.draw
f4c0	63 6d 72 20 28 20 2d 20 30 2e 32 20 2c 20 30 2e 32 20 29 20 3b 20 6d 6f 76 65 20 28 20 78 6d 61	cmr.(.-.0.2.,.0.2.).;.move.(.xma
f4e0	78 20 2c 20 79 6d 69 6e 20 20 ff ff ff ff ff ff be 00 3b 20 64 72 61 77 20 28 20 6b 72 65 75 7a	x.,.ymin..........;.draw.(.kreuz
f500	20 2c 20 77 61 6e 64 6c 65 20 28 20 73 74 65 6c 6c 65 20 2c 20 6c 61 65 6e 67 65 62 65 69 62 65	.,.wandle.(.stelle.,.laengebeibe
f520	73 63 68 72 69 66 74 75 6e 67 20 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 20 29 20	schriftung.,.nachkommastellen.).
f540	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 64 61 72 64	,.0.0.,.standardhoehe.,.standard
f560	62 72 65 69 74 65 20 29 20 2e 20 79 73 6b 61 6c 69 65 72 75 6e 67 20 3a 20 73 74 65 6c 6c 65 20	breite.)...yskalierung.:.stelle.
f580	3a 3d 20 31 2e 30 20 2f 20 76 6d 61 78 20 3b 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 20 3b	:=.1.0./.vmax.;.zeichneystrich.;
f5a0	20 62 65 73 63 68 72 69 66 74 65 79 20 2e 20 ff ce 00 20 20 73 63 68 72 65 69 62 65 6b 72 65 75	.beschriftey........schreibekreu
f5c0	7a 3b 20 30 2e 30 20 2c 20 79 6d 61 78 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 30 2e 30 20	z;.0.0.,.ymax.).;.movecmr.(.0.0.
f5e0	2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 2d 20	,.standardhoehe.).;.drawcmr.(.-.
f600	30 2e 32 20 2c 20 2d 20 30 2e 32 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 6b 72 65 75 7a 20	0.2.,.-.0.2.).;.drawcmr.(.kreuz.
f620	2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 29 20 3b 20 64 72 61 77 63 6d	,.0.0.,.standardhoehe.).;.drawcm
f640	72 20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 32 20 2c 20 2d 20 30 2e 32 20 29 20 3b 20 6d 6f 76 65	r.(.kreuz.,.0.2.,.-.0.2.).;.move
f660	20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 79 6d 61 78 20 29 20 3b 20 ff ff ff ff ff ff	.(.kreuz.,.0.0.,.ymax.).;.......
f680	ce 00 20 20 20 20 20 20 70 6c 6f 74 74 65 66 75 73 73 7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20	........plottefusszeile.(seite,.
f6a0	73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 29 3b 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 2d 20	steuerzeiledemo);mr.(.kreuz.,.-.
f6c0	30 2e 32 20 2c 20 2d 20 30 2e 32 20 29 20 2e 20 78 73 6b 61 6c 69 65 72 75 6e 67 20 3a 20 73 63	0.2.,.-.0.2.)...xskalierung.:.sc
f6e0	68 6e 69 74 74 70 75 6e 6b 74 20 3b 20 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 20 3b 20 2e 20 73	hnittpunkt.;.koordursprung.;...s
f700	63 68 6e 69 74 74 70 75 6e 6b 74 20 3a 20 52 45 41 4c 20 56 41 52 20 73 74 65 6c 6c 65 20 3a 3d	chnittpunkt.:.REAL.VAR.stelle.:=
f720	20 78 77 65 72 74 20 3b 20 6d 6f 76 65 20 28 20 73 74 65 6c 6c 65 20 2c 20 79 6d 69 6e 20 29 20	.xwert.;.move.(.stelle.,.ymin.).
f740	3b 20 6d 6f 76 65 63 6d 72 20 ff ff ff ff ff ff ce 00 20 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c	;.movecmr...........zeichneundpl
f760	6f 74 74 65 6b 75 72 76 65 3b 28 20 30 2e 30 20 2c 20 2d 20 30 2e 33 20 29 20 3b 20 6d 6f 76 65	ottekurve;(.0.0.,.-.0.3.).;.move
f780	20 28 20 6b 72 65 75 7a 20 2c 20 73 74 65 6c 6c 65 20 2c 20 79 6d 69 6e 20 29 20 3b 20 6d 6f 76	.(.kreuz.,.stelle.,.ymin.).;.mov
f7a0	65 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 30 2e 32 20 29 20 3b 20 64 72 61	ecmr.(.kreuz.,.0.0.,.0.2.).;.dra
f7c0	77 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 2d 20 30 2e 33 20 29 20 3b 20 62	wcmr.(.kreuz.,.0.0.,.-.0.3.).;.b
f7e0	65 73 63 68 72 69 66 74 65 20 3b 20 2e 20 6b 6f 6f 72 64 75 72 73 70 72 75 6e 67 20 3a 20 73 74	eschrifte.;...koordursprung.:.st
f800	65 6c 6c 65 20 3a 3d 20 30 2e 30 20 3b 20 62 65 73 63 68 72 69 66 74 65 20 ff ff ff ff ff ff ff	elle.:=.0.0.;.beschrifte........
f820	ce 00 20 20 20 20 20 20 70 6c 6f 74 74 65 66 75 73 73 7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20	........plottefusszeile.(seite,.
f840	73 74 65 75 65 72 7a 65 69 6c 65 29 3b 6f 76 65 63 6d 72 20 28 20 28 20 28 20 2d 20 31 2e 30 20	steuerzeile);ovecmr.(.(.(.-.1.0.
f860	29 20 2a 20 72 65 61 6c 20 28 20 76 6f 72 6b 6f 6d 6d 61 20 29 20 29 20 2a 20 73 74 61 6e 64 61	).*.real.(.vorkomma.).).*.standa
f880	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 65 68 65	rdbreite.,.-.1.0.*.standardhoehe
f8a0	20 2d 20 61 62 73 74 61 6e 64 20 29 20 3b 20 64 72 61 77 20 28 20 77 61 6e 64 6c 65 20 28 20 73	.-.abstand.).;.draw.(.wandle.(.s
f8c0	74 65 6c 6c 65 20 2c 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	telle.,.laengebeibeschriftung.,.
f8e0	66 74 75 6e 67 20 2c 20 20 ff ff ff ff ff ff ff be 00 54 45 58 54 20 56 41 52 20 74 61 73 74 65	ftung.,...........TEXT.VAR.taste
f900	20 29 20 3a 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	.).:.OUTPUT.VAR.dst.:=.niloutput
f920	20 28 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 22 64 61 72 73 74 22 20 29 20 3b 20	.(.strukt1fenster.,."darst".).;.
f940	49 4e 54 20 56 41 52 20 69 20 3b 20 54 45 58 54 20 56 41 52 20 64 69 76 66 65 68 6c 65 72 20 3a	INT.VAR.i.;.TEXT.VAR.divfehler.:
f960	3d 20 22 22 20 3b 20 52 45 41 4c 20 56 41 52 20 76 6d 61 78 20 2c 20 6b 6d 20 3b 20 5a 55 53 54	=."".;.REAL.VAR.vmax.,.km.;.ZUST
f980	41 4e 44 20 56 41 52 20 76 20 3a 3d 20 53 54 41 52 54 57 45 52 54 20 6c 73 67 20 3b 20 50 41 52	AND.VAR.v.:=.STARTWERT.lsg.;.PAR
f9a0	41 4d 45 54 45 52 20 56 41 52 20 70 20 3a 3d 20 ce 00 20 20 20 20 20 20 70 6c 6f 74 74 65 66 75	AMETER.VAR.p.:=.........plottefu
f9c0	73 73 7a 65 69 6c 65 20 28 73 65 69 74 65 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 29	sszeile.(seite,.steuerzeiledemo)
f9e0	3b 63 68 72 69 66 74 75 6e 67 20 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 20 29 20	;chriftung.,.nachkommastellen.).
fa00	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 64 61 72 64	,.0.0.,.standardhoehe.,.standard
fa20	62 72 65 69 74 65 20 29 20 2e 20 79 73 6b 61 6c 69 65 72 75 6e 67 20 3a 20 73 74 65 6c 6c 65 20	breite.)...yskalierung.:.stelle.
fa40	3a 3d 20 31 2e 30 20 2f 20 76 6d 61 78 20 3b 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 20 3b	:=.1.0./.vmax.;.zeichneystrich.;
fa60	20 62 65 73 63 68 72 69 66 74 65 79 20 2e 20 20 20 53 55 42 20 33 20 29 20 ff ff ff ff ff ff ff	.beschriftey.....SUB.3.)........
fa80	ce 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a 20 3a 20 6d 6f 76 65 20 28 20 30 2e 30 20 2c 20	..initialisiere:.:.move.(.0.0.,.
faa0	73 74 65 6c 6c 65 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 30 2e 32 20 2c 20 30 2e 30 20 29	stelle.).;.drawcmr.(.0.2.,.0.0.)
fac0	20 3b 20 6d 6f 76 65 20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 73 74 65 6c 6c 65 20 29	.;.move.(.kreuz.,.0.0.,.stelle.)
fae0	20 3b 20 64 72 61 77 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 32 20 2c 20 30 2e 30 20 29	.;.drawcmr.(.kreuz.,.0.2.,.0.0.)
fb00	20 2e 20 62 65 73 63 68 72 69 66 74 65 79 20 3a 20 6d 6f 76 65 20 28 20 30 2e 30 20 2c 20 73 74	...beschriftey.:.move.(.0.0.,.st
fb20	65 6c 6c 65 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 28 20 2d 20 31 2e 30 20 29 20 2a 20 28	elle.).;.movecmr.(.(.-.1.0.).*.(
fb40	20 72 65 61 6c 20 28 20 20 ff ff ff ff ff ff ff ce 00 20 20 6c 65 67 65 66 65 6e 73 74 65 72 66	.real.(.............legefensterf
fb60	65 73 74 20 28 73 65 69 74 65 2c 20 6c 6b 73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65	est.(seite,.lks,.rts,.unten,.obe
fb80	6e 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b 72 64 68 6f 65 68 65 20 29 20 3b 20 64	n,.strukt1fenster);rdhoehe.).;.d
fba0	72 61 77 20 28 20 77 61 6e 64 6c 65 20 28 20 73 74 65 6c 6c 65 20 2c 20 6c 61 65 6e 67 65 62 65	raw.(.wandle.(.stelle.,.laengebe
fbc0	69 62 65 73 63 68 72 69 66 74 75 6e 67 20 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e	ibeschriftung.,.nachkommastellen
fbe0	20 29 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 64	.).,.0.0.,.standardhoehe.,.stand
fc00	61 72 64 62 72 65 69 74 65 20 29 20 3b 20 6d 6f 76 65 20 28 20 6e 67 34 20 50 45 52 20 3b 20 ff	ardbreite.).;.move.(.ng4.PER.;..
fc20	ce 00 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 73 74 65 6c 6c 65 20 29 20 3b 20 6d 6f 76 65 63	..kreuz.,.0.0.,.stelle.).;.movec
fc40	6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 28 20 2d 20 31 2e 30 20 29 20 2a 20 28 20 72 65 61 6c 20	mr.(.kreuz.,.(.-.1.0.).*.(.real.
fc60	28 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 29 20 2b 20 30 2e 35 20	(.laengebeibeschriftung.).+.0.5.
fc80	29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 30 2e 35 20 2a 20 73 74 61	).*.standardbreite.,.-.0.5.*.sta
fca0	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 7a 20 2c 20 77 61	ndardhoehe.).;.draw.(.kreuz.,.wa
fcc0	6e 64 6c 65 20 28 20 73 74 65 6c 6c 65 20 2c 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69	ndle.(.stelle.,.laengebeibeschri
fce0	66 74 75 6e 67 20 2c 20 4e 20 ff ff ff ff ff ff be 00 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e	ftung.,.N.........modellgroessen
fd00	65 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	einblenden.(.dst.,.lsg.,.taste.)
fd20	20 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	.;.IF.taste.=.abbruchtaste.COR.t
fd40	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 54 48 45 4e 20	aste.=.modellgroessentaste.THEN.
fd60	6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 53 45 20 67 65 62 65 61 75 66 62 69	leavedarstellung4.ELSE.gebeaufbi
fd80	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
fda0	7a 65 69 63 68 6e 75 6e 67 20 2c 20 ff ff ff ff ce 00 20 20 6e 69 6c 64 69 61 67 72 61 6d 6d 20	zeichnung.,.........nildiagramm.
fdc0	28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b 69 6c 6f 75 74 70 75 74	(seite,.strukt1fenster);iloutput
fde0	20 28 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 22 64 61 72 73 74 22 20 29 20 3b 20	.(.strukt1fenster.,."darst".).;.
fe00	54 45 58 54 20 56 41 52 20 64 69 76 66 65 68 6c 65 72 20 3a 3d 20 22 22 20 3b 20 52 45 41 4c 20	TEXT.VAR.divfehler.:=."".;.REAL.
fe20	56 41 52 20 76 6d 61 78 20 2c 20 6b 6d 20 3b 20 5a 55 53 54 41 4e 44 20 56 41 52 20 76 20 3a 3d	VAR.vmax.,.km.;.ZUSTAND.VAR.v.:=
fe40	20 53 54 41 52 54 57 45 52 54 20 6c 73 67 20 3b 20 50 41 52 41 4d 45 54 45 52 20 56 41 52 20 70	.STARTWERT.lsg.;.PARAMETER.VAR.p
fe60	20 3a 3d 20 45 52 20 56 41 52 20 70 20 3a 3d 20 74 61 73 74 65 20 3d 20 ff ff ff ff ff ff ff ff	.:=.ER.VAR.p.:=.taste.=.........
fe80	ce 00 20 20 62 65 73 74 69 6d 6d 65 65 78 74 72 65 6d 61 3b 28 73 65 69 74 65 2c 20 6c 6b 73 2c	....bestimmeextrema;(seite,.lks,
fea0	20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65 6e 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65	.rts,.unten,.oben,.strukt1fenste
fec0	72 29 3b 6f 6e 73 66 65 68 6c 65 72 70 61 72 61 6d 20 20 20 45 4c 53 45 20 20 76 6d 61 78 20 3a	r);onsfehlerparam...ELSE..vmax.:
fee0	3d 20 28 20 28 20 70 20 53 55 42 20 33 20 29 20 2a 20 28 20 28 20 76 20 53 55 42 20 32 20 29 20	=.(.(.p.SUB.3.).*.(.(.v.SUB.2.).
ff00	2b 20 28 20 76 20 53 55 42 20 33 20 29 20 29 20 29 20 3b 20 6b 6d 20 3a 3d 20 28 20 28 20 70 20	+.(.v.SUB.3.).).).;.km.:=.(.(.p.
ff20	53 55 42 20 32 20 29 20 2b 20 28 20 70 20 53 55 42 20 33 20 29 20 74 61 73 74 65 20 43 4f 52 20	SUB.2.).+.(.p.SUB.3.).taste.COR.
ff40	74 61 73 74 65 20 3d 20 ff ff ff ff ff ff ff ff ce 00 29 20 2f 20 28 20 70 20 53 55 42 20 31 20	taste.=...........)./.(.p.SUB.1.
ff60	29 20 3b 20 49 46 20 76 6d 61 78 20 3d 20 30 2e 30 20 54 48 45 4e 20 64 69 76 66 65 68 6c 65 72	).;.IF.vmax.=.0.0.THEN.divfehler
ff80	20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 76 6d 61 78 20 20 45 4c 49 46 20 6b 6d	.:=.divisionsfehlervmax..ELIF.km
ffa0	20 3d 20 30 2e 30 20 54 48 45 4e 20 64 69 76 66 65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f	.=.0.0.THEN.divfehler.:=.divisio
ffc0	6e 73 66 65 68 6c 65 72 6b 6d 20 46 49 20 3b 46 49 3b 49 46 20 64 69 76 66 65 68 6c 65 72 20 3c	nsfehlerkm.FI.;FI;IF.divfehler.<
ffe0	3e 22 22 20 54 48 45 4e 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 20 46 49 3b 20	>"".THEN.zeige.abbruchmenue.FI;.
10000	20 52 45 50 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 50 45 52 20 3b 20 ff	.REP.kernvondarstellung4.PER.;..
10020	be 00 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 65 20 3d 20 7a	..taste.,.FALSE.).;.IF.taste.=.z
10040	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
10060	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 74 61	.COR.taste.=.abbruchtaste.COR.ta
10080	73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74	ste.=.zeigezeitd.THEN.leavedarst
100a0	65 6c 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	ellung4.ELIF.taste.=.rubout.COR.
100c0	74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 54 48 45 4e 20 ff ff ff ff ff ff ff	taste.=.zeigezusatz.THEN........
100e0	ce 00 6c 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 3d	..leavedarstellung4.ELIF.taste.=
10100	20 73 65 6e 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	.sendetaste.THEN.versendeoutput.
10120	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 67 20 2c 20	(.dst.,.modellkurzbezeichnung.,.
10140	6b 6f 70 66 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	kopfzeile.,.steuerzeile.,.plotta
10160	73 6b 20 29 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 45 4c	sk.).;.gibmeldungaus.(.12.).;.EL
10180	49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 54 48 45 4e	IF.taste.=.mdlgroesseneinbl.THEN
101a0	20 73 74 20 3a 20 ff ff ff ff ff ff ff ff ff ff ce 00 67 69 62 6d 65 6e 75 65 61 75 73 20 3b 20	.st.:.............gibmenueaus.;.
101c0	52 45 50 20 69 6e 63 68 61 72 20 28 20 74 61 73 74 65 20 29 20 3b 20 49 46 20 74 61 73 74 65 20	REP.inchar.(.taste.).;.IF.taste.
101e0	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 65 6c	=.abbruchtaste.COR.taste.=.model
10200	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 65 6c	lgroessentaste.THEN.leavedarstel
10220	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 73 61	lung4.ELIF.taste.=.darstellungsa
10240	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 77 61 68 6c	rttaste.THEN.loeschemenue.;.wahl
10260	64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b 20 ff ff ff ff ff ff ff ff ff	derdarstellungsarten.;..........
10280	be 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 20	..leavezeigemenuezurzusatzdarst.
102a0	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 6e 62 6c 20 54 48	ELIF.taste.=.mdlgroesseneinbl.TH
102c0	45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e	EN.loeschemenue.;.modellgroessen
102e0	65 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	einblenden.(.dst.,.lsg.,.taste.)
10300	20 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	.;.IF.taste.=.abbruchtaste.COR.t
10320	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 54 48 45 4e 20	aste.=.modellgroessentaste.THEN.
10340	ce 00 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
10360	64 61 72 73 74 65 6c 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	darstellung4.FI.ELIF.taste.<>.es
10380	63 20 54 48 45 4e 20 6f 75 74 20 28 70 69 65 70 20 29 20 46 49 20 50 45 52 20 2e 20 64 69 61 6c	c.THEN.out.(piep.).FI.PER...dial
103a0	6f 67 66 75 65 72 64 65 6d 6f 20 3a 20 52 45 50 20 77 61 72 74 65 61 75 66 65 73 63 20 3b 20 69	ogfuerdemo.:.REP.warteaufesc.;.i
103c0	6e 63 68 61 72 20 28 20 74 61 73 74 65 20 29 20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62	nchar.(.taste.).;.IF.taste.=.abb
103e0	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 74 61 73 74	ruchtaste.COR.taste.=.weitertast
10400	65 20 54 48 45 4e 20 20 ff ff ff ff ff ff ff ff be 00 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72	e.THEN............ELIF.taste.=.r
10420	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 20 67 65 62 65 61 75	ubout.THEN.loeschemenue.;.gebeau
10440	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
10460	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 67 73 6e 61 6d 65 20	zbezeichnung.,.darstellungsname.
10480	2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 29 20 3b 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75	,.steuerzeile.).;.leavezeigemenu
104a0	65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 45 4c 49 46 20 4e 4f 54 20 28 20 74 61 73 74 65	ezurzusatzdarst.ELIF.NOT.(.taste
104c0	20 3d 20 65 73 63 20 29 20 54 48 45 4e 20 ff ff ce 00 20 20 6d 69 6e 79 20 3a 3d 20 30 2e 30 3b	.=.esc.).THEN.......miny.:=.0.0;
104e0	78 20 3a 3d 20 33 2e 30 20 2f 20 76 6d 61 78 3b 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20	x.:=.3.0./.vmax;eigephasend.COR.
10500	74 61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62	taste.=.zeigetab.COR.taste.=.abb
10520	72 75 63 68 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	ruchtaste.COR.taste.=.zeigezeitd
10540	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 46 20 74 61 73	.THEN.leavedarstellung4.ELIF.tas
10560	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 67 65 7a 75 73	te.=.rubout.COR.taste.=.zeigezus
10580	61 74 7a 20 54 48 45 4e 20 54 48 45 4e 20 65 6e 75 65 20 28 20 ff ff ff ff ff ff ff ff ff ff ff	atz.THEN.THEN.enue.(............
105a0	be 00 7a 65 69 67 65 20 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 6d 65 6c 64 75 6e 67 73 74 65	..zeige.menuemeldung.(meldungste
105c0	78 74 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75	xt.(falsche.taste))emenue.(.menu
105e0	65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d	ezeile.(.1.).).;.fuellemenue.(.m
10600	65 6e 75 65 7a 65 69 6c 65 20 28 20 31 36 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65	enuezeile.(.16.).).;.fuellemenue
10620	20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65	.(.menuezeile.(.5.).).;.fuelleme
10640	6e 75 65 20 28 20 64 61 72 73 74 20 3a 20 4c 45 41 56 45 20 ff ff ff ff ff ff ff ff ff ff ff ff	nue.(.darst.:.LEAVE.............
10660	be 00 46 49 20 50 45 52 20 2e 20 67 69 62 6d 65 6e 75 65 61 75 73 20 3a 20 69 6e 69 74 69 61 6c	..FI.PER...gibmenueaus.:.initial
10680	69 73 69 65 72 65 6d 65 6e 75 65 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75	isieremenue.;.fuellemenue.(.menu
106a0	65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d	ezeile.(.1.).).;.fuellemenue.(.m
106c0	65 6e 75 65 7a 65 69 6c 65 20 28 20 31 36 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65	enuezeile.(.16.).).;.fuellemenue
106e0	20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65	.(.menuezeile.(.5.).).;.fuelleme
10700	6e 75 65 20 28 20 64 61 72 73 74 20 3a 20 4c 45 41 56 45 20 20 2e 20 ff ff ff ff ff ff ff ff ff	nue.(.darst.:.LEAVE.............
10720	be 00 20 20 20 20 20 20 52 45 41 4c 20 56 41 52 20 68 65 6c 70 78 20 3a 3d 20 6d 69 6e 78 3b 74	........REAL.VAR.helpx.:=.minx;t
10740	78 3b 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 54 48	x;IF.taste.=.mdlgroesseneinbl.TH
10760	45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e	EN.loeschemenue.;.modellgroessen
10780	65 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	einblenden.(.dst.,.lsg.,.taste.)
107a0	20 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	.;.IF.taste.=.abbruchtaste.COR.t
107c0	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 54 48 45 4e 20	aste.=.modellgroessentaste.THEN.
107e0	ce 00 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72	..loeschemenue.;.zeigemenuezudar
10800	73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 20 74 61 73 74 65 20 2c 20 46 41 4c 53 45 20 29	stellungsarten.(.taste.,.FALSE.)
10820	20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20 74	.;.IF.taste.=.zeigephasend.COR.t
10840	61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72	aste.=.zeigetab.COR.taste.=.abbr
10860	75 63 68 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	uchtaste.COR.taste.=.zeigezeitd.
10880	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 46 20 74 61 73 74	THEN.leavedarstellung4.ELIF.tast
108a0	65 20 3d 20 ff ff ff ff ff ff ff ff ff ff ff ff ce 00 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b	e.=...............loeschemenue.;
108c0	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 72 74 65 6e 20 28	.zeigemenuezudarstellungsarten.(
108e0	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 65 20 3d 20 7a 65	.taste.,.FALSE.).;.IF.taste.=.ze
10900	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 20	igephasend.COR.taste.=.zeigetab.
10920	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 74 61 73	COR.taste.=.abbruchtaste.COR.tas
10940	74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 54 48 45 4e 20 6c 65 61 76 65 64 61 72 73 74 65	te.=.zeigezeitd.THEN.leavedarste
10960	6c 6c 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 65 6e 75 65 20 ff ff ff ff ff ff	llung4.ELIF.taste.=.menue.......
10980	ce 00 7a 65 69 67 65 20 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 20 28 6d 65 6c 64 75 6e 67 73 74 65	..zeige.menuemeldung.(meldungste
109a0	78 74 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 29 73 74 65 20 2c 20 46 41 4c 53 45 20 29	xt.(falsche.taste))ste.,.FALSE.)
109c0	20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20 74	.;.IF.taste.=.zeigephasend.COR.t
109e0	61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72	aste.=.zeigetab.COR.taste.=.abbr
10a00	75 63 68 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	uchtaste.COR.taste.=.zeigezeitd.
10a20	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 46 20 74 61 73 74	THEN.leavedarstellung4.ELIF.tast
10a40	65 20 3d 20 6d 65 6e 75 65 20 ff ff ff ff ff ff ce 00 20 20 49 46 20 6d 69 6e 79 20 3e 20 6d 61	e.=.menue...........IF.miny.>.ma
10a60	78 79 20 6c 70 78 20 3a 3d 20 6d 69 6e 78 3b 34 3a 20 4c 45 41 56 45 20 6b 65 72 6e 20 76 6f 6e	xy.lpx.:=.minx;4:.LEAVE.kern.von
10a80	20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 3b 2e 65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b	.darstellung.4;.ezeile.(.1.).).;
10aa0	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 36 20 29	.fuellemenue.(.menuezeile.(.16.)
10ac0	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 20 28 20	.).;.fuellemenue.(.menuezeile.(.
10ae0	35 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6c 65 6c 65 65 72 20 29 20 3b	5.).).;.fuellemenue.(.leleer.).;
10b00	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 ff ff ff ff ff ff	.reenterzeigeabbruchmenue.......
10b20	de 00 20 20 64 72 65 69 64 75 72 63 68 76 6d 61 78 20 3a 3d 20 33 2e 30 20 2f 20 76 6d 61 78 3b	....dreidurchvmax.:=.3.0./.vmax;
10b40	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 3d 20 61 62	.,.lsg.,.taste.).;.IF.taste.=.ab
10b60	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 67 72 6f	bruchtaste.COR.taste.=.modellgro
10b80	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 75 6e 67	essentaste.THEN.leavedarstellung
10ba0	34 20 45 4c 49 46 20 74 61 73 74 65 20 3c 3e 20 6d 65 6e 75 65 74 61 73 74 65 54 48 45 4e 20 67	4.ELIF.taste.<>.menuetasteTHEN.g
10bc0	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 64 65	ebeaufbildschirmaus.(.dst.,.mode
10be0	6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 73 61 72 74 65 6e 20 3b 20 ff ff ff	llkurzbezeichnung.,.sarten.;....
10c00	de 00 20 20 20 20 20 20 6d 69 6e 78 20 3a 3d 20 6d 61 78 78 3b 4c 53 45 20 72 65 65 6e 74 65 72	........minx.:=.maxx;LSE.reenter
10c20	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 45 4c	zeigemenuezurzusatzdarst.FI.;.EL
10c40	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 73 65	IF.taste.=.sendetaste.THEN.verse
10c60	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 7a 65	ndeoutput.(.dst.,.modellkurzbeze
10c80	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 69 6c	ichnung.,.kopfzeile.,.steuerzeil
10ca0	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 20 28	e.,.plottask.).;.gibmeldungaus.(
10cc0	20 31 32 20 29 20 3b 20 72 74 74 61 73 74 65 20 54 48 45 4e 20 ff ff ff ff ff ff ff ff ff ff ff	.12.).;.rttaste.THEN............
10ce0	9e 00 45 4c 49 46 20 4e 4f 54 20 28 20 74 61 73 74 65 20 3d 20 65 73 63 20 29 20 54 48 45 4e 20	..ELIF.NOT.(.taste.=.esc.).THEN.
10d00	7a 65 69 67 65 20 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	zeige.menuemeldung.(meldungstext
10d20	20 28 66 61 6c 73 63 68 65 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b 20	.(falsche(.menuezeile.(.1.).).;.
10d40	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 36 20 29 20	fuellemenue.(.menuezeile.(.16.).
10d60	29 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	).;.fuellemenue.(...............
10d80	ce 00 20 20 20 20 20 20 52 45 41 4c 20 56 41 52 20 68 65 6c 70 20 3a 3d 20 6d 69 6e 79 3b 6d 65	........REAL.VAR.help.:=.miny;me
10da0	6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 37 20 29 20 29 20 3b 20 7a 65 69 67	nue.(.menuezeile.(.17.).).;.zeig
10dc0	65 6d 65 6e 75 65 20 3b 20 2e 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73	emenue.;...leavezeigemenuezurzus
10de0	61 74 7a 64 61 72 73 74 20 3a 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75	atzdarst.:.LEAVE.zeigemenuezurzu
10e00	73 61 74 7a 64 61 72 73 74 20 2e 20 72 65 65 6e 74 65 72 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72	satzdarst...reenterzeigemenuezur
10e20	7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 4c 45 41 56 45 20 20 2e 20 72 73 74 65 6c 6c 75 6e 67	zusatzdarst.:.LEAVE....rstellung
10e40	34 20 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 73 65 6e	4.;..........................sen
10e60	64 65 74 61 73 74 65 20 3d 20 22 70 22 2c 2c 20 70 6c 6f 74 74 61 73 6b 20 3d 20 22 73 69 6d 73	detaste.=."p",,.plottask.=."sims
10e80	65 6c 20 70 6c 6f 74 74 65 72 22 2c 20 67 20 2c 20 64 61 20 56 6d 61 78 20 3d 20 30 20 21 20 2a	el.plotter",.g.,.da.Vmax.=.0.!.*
10ea0	2a 2a 22 20 2c 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 6b 6d 20 3d 20 22 2a 2a 2a 20 20	**".,.divisionsfehlerkm.=."***..
10ec0	42 65 72 65 63 68 6e 75 6e 67 20 64 65 72 20 4b 75 72 76 65 20 75 6e 7a 75 6c 61 65 73 73 69 67	Berechnung.der.Kurve.unzulaessig
10ee0	20 2c 20 64 61 20 4b 6d 20 3d 20 30 20 21 20 2a 2a 2a 22 20 2c 20 66 75 73 73 7a 65 69 6c 65 6c	.,.da.Km.=.0.!.***".,.fusszeilel
10f00	65 65 72 20 3d 20 30 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 3d 20 31 39 20 ff ff ff ff ff	eer.=.0.,.steuerzeile.=.19......
10f20	ce 00 20 20 20 20 20 20 20 22 2a 2a 2a 20 20 46 65 68 6c 65 72 20 61 75 66 67 65 74 72 65 74 65	........."***..Fehler.aufgetrete
10f40	6e 21 20 47 65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 73 6b 6f 6e 73 74 61 6e 74 65 20 6b 20 2b	n!.Geschwindigkeitskonstante.k.+
10f60	20 31 20 3d 20 30 21 20 2a 2a 2a 22 20 2c 20 6d 61 78 79 20 3a 3d 20 64 72 65 69 64 75 72 63 68	.1.=.0!.***".,.maxy.:=.dreidurch
10f80	76 6d 61 78 20 3b 20 6d 61 78 78 20 3a 3d 20 32 2e 30 20 2f 20 6b 6d 20 3b 20 6d 69 6e 78 20 3a	vmax.;.maxx.:=.2.0./.km.;.minx.:
10fa0	3d 20 76 65 72 73 63 68 69 65 62 75 6e 67 20 2a 20 70 75 6e 6b 74 78 20 3b 20 6d 69 6e 79 20 3a	=.verschiebung.*.punktx.;.miny.:
10fc0	3d 20 30 2e 30 20 3b 20 49 46 20 6d 69 6e 79 20 3d 20 6d 61 78 79 20 54 48 45 4e 20 6d 61 78 79	=.0.0.;.IF.miny.=.maxy.THEN.maxy
10fe0	20 3a 3d 20 6d 69 6e 79 20 ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 66 75 73	.:=.miny.....................fus
11000	73 7a 65 69 6c 65 6c 65 65 72 20 3d 20 30 2c 78 20 3d 20 73 69 6c 6f 6e 29 3b 20 20 46 49 3b 20	szeileleer.=.0,x.=.silon);..FI;.
11020	20 6c 65 67 65 6e 64 65 20 2c 20 76 6d 61 78 62 65 7a 65 69 63 68 6e 75 6e 67 20 2b 20 77 65 72	.legende.,.vmaxbezeichnung.+.wer
11040	74 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 64 61	t.,.0.0.,.standardhoehe.,.standa
11060	72 64 62 72 65 69 74 65 20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 6b 6d 69 6e 6c 65 67 65 6e	rdbreite.).;...schreibekminlegen
11080	64 65 20 3a 20 77 65 72 74 20 3a 3d 20 77 61 6e 64 6c 65 20 28 20 6b 6d 20 2c 20 6c 61 65 6e 67	de.:.wert.:=.wandle.(.km.,.laeng
110a0	65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	ebeibeschriftung.,..............
110c0	ce 00 20 20 62 65 73 63 68 72 69 66 74 65 75 6e 64 70 6c 6f 74 74 65 62 65 73 63 68 72 69 66 74	....beschrifteundplottebeschrift
110e0	75 6e 67 3b 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	ung;ellkurzbezeichnung,.darstell
11100	75 6e 67 73 6e 61 6d 65 2c 20 20 3a 20 6d 6f 76 65 20 28 20 78 6d 69 6e 20 2c 20 79 6d 69 6e 20	ungsname,..:.move.(.xmin.,.ymin.
11120	29 20 3b 20 64 72 61 77 20 28 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 29 20 3b 20 6d 6f 76 65 20	).;.draw.(.xmax.,.ymin.).;.move.
11140	28 20 6b 72 65 75 7a 20 2c 20 78 6d 69 6e 20 2c 20 79 6d 69 6e 20 29 20 3b 20 64 72 61 77 20 28	(.kreuz.,.xmin.,.ymin.).;.draw.(
11160	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 7a 65 69 63 68 6e 65	.kreuz.,.xmax.,.ymin.).;.zeichne
11180	78 73 70 69 74 7a 65 20 2e 20 ff ff ff ff ff ff ce 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72	xspitze.............initialisier
111a0	65 3b 30 2e 32 20 2c 20 2d 20 30 2e 32 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 6b 72 65 75	e;0.2.,.-.0.2.).;.drawcmr.(.kreu
111c0	7a 20 2c 20 2d 20 30 2e 32 20 2c 20 30 2e 32 20 29 20 3b 20 6d 6f 76 65 20 28 20 6b 72 65 75 7a	z.,.-.0.2.,.0.2.).;.move.(.kreuz
111e0	20 2c 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 6b 72 65	.,.xmax.,.ymin.).;.drawcmr.(.kre
11200	75 7a 20 2c 20 2d 20 30 2e 32 20 2c 20 2d 20 30 2e 32 20 29 20 2e 20 7a 65 69 63 68 6e 65 79 73	uz.,.-.0.2.,.-.0.2.)...zeichneys
11220	70 69 74 7a 65 20 3a 20 64 72 61 77 63 6d 72 20 28 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64	pitze.:.drawcmr.(.0.0.,.standard
11240	68 6f 65 68 65 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 30 2e 32 20 2c 20 ff ff ff ff ff ff	hoehe.).;.drawcmr.(.0.2.,.......
11260	ce 00 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 20 29 20 2c 20 30 2e 30 20 2c 20 73 74 61	..nachkommastellen.).,.0.0.,.sta
11280	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 74 65 20 29 20 3b 20	ndardhoehe.,.standardbreite.).;.
112a0	6d 6f 76 65 20 28 20 6b 72 65 75 7a 20 2c 20 73 74 65 6c 6c 65 20 2c 20 79 6d 69 6e 20 29 20 3b	move.(.kreuz.,.stelle.,.ymin.).;
112c0	20 6d 6f 76 65 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 28 20 28 20 2d 20 31 2e 30 20 29 20 2a	.movecmr.(.kreuz.,.(.(.-.1.0.).*
112e0	20 72 65 61 6c 20 28 20 76 6f 72 6b 6f 6d 6d 61 20 29 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62	.real.(.vorkomma.).).*.standardb
11300	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 65 68 65 20 2d 20	reite.,.-.1.0.*.standardhoehe.-.
11320	61 62 73 74 61 6e 64 20 29 20 ff ff ff ff ff ff ce 00 20 20 76 69 65 77 70 6f 72 74 20 28 6c 6b	abstand.)...........viewport.(lk
11340	73 2c 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65 6e 29 3b 68 6f 65 68 65 20 2c 20 73 74 61	s,.rts,.unten,.oben);hoehe.,.sta
11360	6e 64 61 72 64 62 72 65 69 74 65 20 29 20 2e 20 6c 69 65 66 65 72 65 6b 72 65 75 7a 20 3a 20 74	ndardbreite.)...lieferekreuz.:.t
11380	72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 20 3b 20 74 72 61 6e 73 66 65 72 20 2e 20 45 4e	ransfer.:=.kreuz.;.transfer...EN
113a0	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 65 6e 20 3b	DPROC.kreuzerzeugenundzeichnen.;
113c0	20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 28 20 4c 4f 45 53 55 4e 47 20 56 41 52	.PROC.darstellung4.(.LOESUNG.VAR
113e0	20 6c 73 67 20 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 20 2c 20 ff ff ff ff ff ff ff	.lsg.,.BOOL.VAR.indemo.,........
11400	ce 00 62 65 73 74 69 6d 6d 65 65 78 74 72 65 6d 61 3a 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f	..bestimmeextrema:.rts,.unten,.o
11420	62 65 6e 29 3b 45 4e 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 20 46 49 20 3b 74 61 73 74 65	ben);EN.dialogfuerdemo.FI.;taste
11440	20 6c 65 73 65 6e 20 28 74 61 73 74 65 29 20 3b 20 52 45 50 20 20 49 46 20 74 61 73 74 65 20 3d	.lesen.(taste).;.REP..IF.taste.=
11460	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
11480	67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 54 48 45 4e 20 74 61 73 74 65 20 54 48 45 4e 20 68 74	groessentaste.THEN.taste.THEN.ht
114a0	61 73 74 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	aste.COR.taste.=.modellgroessent
114c0	61 73 74 65 20 54 48 45 4e 20 ff ff ff ff ff ff de 00 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61	aste.THEN.........darstellungsna
114e0	6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 29 20 3b 20 46 49 20 3b 20 45 4c 49 46 20 74	me.,.steuerzeile.).;.FI.;.ELIF.t
11500	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 65 20 54 48 45 4e	aste.=.darstellungsarttaste.THEN
11520	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 3b 20 45 4c 49 46	.wahlderdarstellungsarten.;.ELIF
11540	20 74 61 73 74 65 20 3d 20 6d 65 6e 75 65 74 61 73 74 65 20 54 48 45 4e 20 7a 65 69 67 65 6d 65	.taste.=.menuetaste.THEN.zeigeme
11560	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 61	nuezurzusatzdarst.;.IF.taste.=.a
11580	62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 72 64 61 72 73 74 65 6c	bbruchtaste.COR.taste.=.rdarstel
115a0	6c 75 6e 67 73 61 72 74 65 6e 20 3b 20 ff ff ff ce 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75	lungsarten.;......leavedarstellu
115c0	6e 67 34 20 45 4c 53 45 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20 28 20 66 61 6c 73 63 68 65	ng4.ELSE.gibmeldungaus.(.falsche
115e0	74 61 73 74 65 20 29 20 3b 20 46 49 20 3b 20 50 45 52 20 3b 20 2e 20 6c 65 61 76 65 64 61 72 73	taste.).;.FI.;.PER.;...leavedars
11600	74 65 6c 6c 75 6e 67 34 20 3a 20 66 6f 72 67 65 74 20 28 20 22 64 61 72 73 74 22 20 2c 20 71 75	tellung4.:.forget.(."darst".,.qu
11620	69 65 74 20 29 20 3b 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 2e 20 77 61 68	iet.).;.LEAVE.darstellung4...wah
11640	6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3a 20 7a 65 69 67 65 6d 65 6e	lderdarstellungsarten.:.zeigemen
11660	75 65 7a 75 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 20 ff ff ff ff ff ff ff ff	uezudarstellungsarten.(.........
11680	de 00 20 20 20 20 20 20 6d 61 78 78 20 3a 3d 20 68 65 6c 70 78 3b 54 48 45 4e 20 6c 6f 65 73 63	........maxx.:=.helpx;THEN.loesc
116a0	68 65 6d 65 6e 75 65 20 3b 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28	hemenue.;.gebeaufbildschirmaus.(
116c0	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 67 20 2c 20 64	.dst.,.modellkurzbezeichnung.,.d
116e0	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 6c 65 20 29 20	arstellungsname.,.steuerzeile.).
11700	3b 20 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 20	;.leavezeigemenuezurzusatzdarst.
11720	45 4c 49 46 20 4e 4f 54 20 28 20 74 61 73 74 65 20 3d 20 65 73 63 20 29 20 54 48 45 4e 20 73 74	ELIF.NOT.(.taste.=.esc.).THEN.st
11740	65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e 20 ff ff ff ff ff ff ff ff ff ff ff	ellungsarttaste.THEN............
11760	ce 00 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e	..menuezeile.(.5.).).;.fuellemen
11780	75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 37 20 29 20 29 20 3b 20 63 75 72 73 6f	ue.(.menuezeile.(.17.).).;.curso
117a0	72 20 28 20 33 20 2c 20 32 33 20 29 20 3b 20 6f 75 74 20 28 20 64 69 76 66 65 68 6c 65 72 20 29	r.(.3.,.23.).;.out.(.divfehler.)
117c0	20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 20 2e 20 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62 72	.;.zeigemenue...reenterzeigeabbr
117e0	75 63 68 6d 65 6e 75 65 20 3a 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62	uchmenue.:.LEAVE.kernvonzeigeabb
11800	72 75 63 68 6d 65 6e 75 65 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67	ruchmenue...END.PROC.darstellung
11820	34 20 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ce 00 20 20 49 46 20 6d 69 6e 78 20 3e 20 6d 61	4.;.................IF.minx.>.ma
11840	78 78 20 63 68 76 6d 61 78 3b 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68	xx.chvmax;st.,.modellkurzbezeich
11860	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
11880	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 72 7a 75 73 61	zeile.).;.FI...zeigemenuezurzusa
118a0	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 65 6e 75 65 7a	tzdarst.:.REP.kernvonzeigemenuez
118c0	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 7a 65 69 67 65	urzusatzdarst.PER...kernvonzeige
118e0	6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 ff ff ff ff ff ff ff ff ff ff	menuezurzusatzdarst.:...........
11900	de 00 20 20 6d 61 78 78 20 3a 3d 20 32 2e 30 20 2f 20 6b 6d 3b 6e 63 68 61 72 20 28 20 74 61 73	....maxx.:=.2.0./.km;nchar.(.tas
11920	74 65 20 29 20 3b 20 6c 6f 65 73 63 68 65 20 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 3b 20 49 46 20	te.).;.loesche.menuemeldung;.IF.
11940	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.=
11960	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 64	.modellgroessentaste.THEN.leaved
11980	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 64 61 72 73 74 65 6c	arstellung4.ELIF.taste.=.darstel
119a0	6c 75 6e 67 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	lungsarttaste.THEN.loeschemenue.
119c0	3b 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 3b 20 ff ff ff	;.wahlderdarstellungsarten.;....
119e0	be 00 20 20 20 20 20 20 6d 69 6e 78 20 3a 3d 20 6d 61 78 78 3b 61 6c 69 73 69 65 72 65 6d 65 6e	........minx.:=.maxx;alisieremen
11a00	75 65 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	ue.;.fuellemenue.(.menuezeile.(.
11a20	31 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	1.).).;.fuellemenue.(.menuezeile
11a40	20 28 20 31 36 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	.(.16.).).;.fuellemenue.(.menuez
11a60	65 69 6c 65 20 28 20 35 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 7a 75 72	eile.(.5.).).;.fuellemenue.(.zur
11a80	7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 4c 45 41 56 45 20 ff ff ff ff ff ff ff ff ff ff ff ff	zusatzdarst.:.LEAVE.............
11aa0	de 00 20 20 20 20 20 20 6d 69 6e 79 20 3a 3d 20 6d 61 78 79 3b 72 7a 75 73 61 74 7a 64 61 72 73	........miny.:=.maxy;rzusatzdars
11ac0	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 66 62	t...zeigeabbruchmenue.:.gebeaufb
11ae0	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 7a 62	ildschirmaus.(.dst.,.modellkurzb
11b00	65 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	ezeichnung.,.darstellungsname.,.
11b20	66 75 73 73 7a 65 69 6c 65 6c 65 65 72 20 29 20 3b 20 52 45 50 20 6b 65 72 6e 76 6f 6e 7a 65 69	fusszeileleer.).;.REP.kernvonzei
11b40	67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 20 50 45 52 20 3b 20 2e 20 65 20 3d 20 64 61 72 73 74	geabbruchmenue.PER.;...e.=.darst
11b60	65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e 20 ff ff ff ff ff ff ff ff ff ff ff	ellungsarttaste.THEN............
11b80	ce 00 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72	..loeschemenue.;.zeigemenuezudar
11ba0	73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 20 74 61 73 74 65 20 2c 20 46 41 4c 53 45 20 29	stellungsarten.(.taste.,.FALSE.)
11bc0	20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20 74	.;.IF.taste.=.zeigephasend.COR.t
11be0	61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72	aste.=.zeigetab.COR.taste.=.abbr
11c00	75 63 68 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	uchtaste.COR.taste.=.zeigezeitd.
11c20	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 46 20 74 61 73 74	THEN.leavedarstellung4.ELIF.tast
11c40	65 20 3d 20 ff ff ff ff ff ff ff ff ff ff ff ff ce 00 7a 65 69 67 65 7a 75 73 61 74 7a 20 54 48	e.=...............zeigezusatz.TH
11c60	45 4e 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 46 49 20 45	EN.reenterzeigeabbruchmenue.FI.E
11c80	4c 49 46 20 74 61 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	LIF.taste.=.rubout.THEN.loeschem
11ca0	65 6e 75 65 20 3b 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	enue.;.gebeaufbildschirmaus.(.ds
11cc0	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 64 61 72 73	t.,.modellkurzbezeichnung.,.dars
11ce0	74 65 6c 6c 75 6e 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	tellungsname.,.fusszeileleer.).;
11d00	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 ff ff ff ff ff ff	.reenterzeigeabbruchmenue.......
11d20	9e 00 20 20 20 20 20 20 6d 61 78 79 20 3a 3d 20 6d 69 6e 79 20 2b 20 32 2e 30 20 2a 20 28 65 70	........maxy.:=.miny.+.2.0.*.(ep
11d40	73 69 6c 6f 6e 29 3b 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	silon);enuemeldung.(meldungstext
11d60	20 28 66 61 6c 73 63 68 65 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b 20	.(falsche(.menuezeile.(.1.).).;.
11d80	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 36 20 29 20	fuellemenue.(.menuezeile.(.16.).
11da0	29 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	).;.fuellemenue.(...............
11dc0	ce 00 20 20 20 20 20 20 6d 61 78 79 20 3a 3d 20 68 65 6c 70 3b 62 61 62 62 72 75 63 68 6d 65 6e	........maxy.:=.help;babbruchmen
11de0	75 65 61 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	ueaus.:.initialisieremenue.;.fue
11e00	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 20 29 20 29 20 3b 20	llemenue.(.menuezeile.(.1.).).;.
11e20	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 36 20 29 20	fuellemenue.(.menuezeile.(.16.).
11e40	29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62	).;.fuellemenue.(.ernvonzeigeabb
11e60	72 75 63 68 6d 65 6e 75 65 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67	ruchmenue...END.PROC.darstellung
11e80	34 20 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff de 00 4c 45 54 20 20 20 20 20 20 20 20 61 62 62	4.;...............LET........abb
11ea0	72 75 63 68 74 61 73 74 65 20 3d 20 22 6d 22 2c 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74	ruchtaste.=."m",.modellgroessent
11ec0	61 73 74 65 20 3d 20 22 73 22 2c 20 20 3d 20 22 6d 22 20 2c 20 7a 65 69 67 65 74 61 62 20 3d 20	aste.=."s",..=."m".,.zeigetab.=.
11ee0	22 74 22 20 2c 20 7a 65 69 67 65 20 68 69 73 74 6f 67 72 20 3d 20 22 68 22 2c 20 7a 65 69 67 65	"t".,.zeige.histogr.=."h",.zeige
11f00	70 68 61 73 65 6e 64 20 3d 20 22 70 22 20 2c 20 7a 65 69 67 65 7a 65 69 74 64 20 3d 20 22 7a 22	phasend.=."p".,.zeigezeitd.=."z"
11f20	20 2c 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 3d 20 22 2b 22 20 2c 20 6d 64 6c 67 72 6f 65 73 73	.,.zeigezusatz.=."+".,.mdlgroess
11f40	65 6e 65 69 6e 62 6c 20 3d 20 22 65 22 20 2c 20 72 75 62 6f 75 74 20 3d 20 22 6c 22 20 3b 20 4c	eneinbl.=."e".,.rubout.=."l".;.L
11f60	45 54 20 78 61 63 68 73 65 6e 62 65 7a 20 ff ff de 00 20 20 20 20 20 20 6d 61 78 79 20 3a 3d 20	ET.xachsenbez...........maxy.:=.
11f80	68 65 6c 70 3b 6d 65 6e 75 65 20 3a 20 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 20	help;menue.:.gibabbruchmenueaus.
11fa0	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 6c 6f 65 73 63 68 65	;.REP.inchar.(.taste.).;.loesche
11fc0	20 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 3b 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63	.menuemeldung;.IF.taste.=.abbruc
11fe0	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 67 72 6f 65 73 73 65	htaste.COR.taste.=.modellgroesse
12000	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 75 6e 67 34 20 45 4c	ntaste.THEN.leavedarstellung4.EL
12020	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 65 20	IF.taste.=.darstellungsarttaste.
12040	54 48 45 4e 20 20 74 61 73 74 65 20 3d 20 ff ff fe 00 29 20 2f 20 28 20 70 20 53 55 42 20 31 20	THEN..taste.=.....)./.(.p.SUB.1.
12060	29 20 3b 20 49 46 20 76 6d 61 78 20 3d 20 30 2e 30 20 54 48 45 4e 20 64 69 76 66 65 68 6c 65 72	).;.IF.vmax.=.0.0.THEN.divfehler
12080	20 3a 3d 20 64 69 76 69 73 69 6f 6e 73 66 65 68 6c 65 72 76 6d 61 78 20 20 45 4c 49 46 20 6b 6d	.:=.divisionsfehlervmax..ELIF.km
120a0	20 3d 20 30 2e 30 20 54 48 45 4e 20 64 69 76 66 65 68 6c 65 72 20 3a 3d 20 64 69 76 69 73 69 6f	.=.0.0.THEN.divfehler.:=.divisio
120c0	6e 73 66 65 68 6c 65 72 6b 6d 20 46 49 20 3b 46 49 3b 49 46 20 64 69 76 66 65 68 6c 65 72 20 3c	nsfehlerkm.FI.;FI;IF.divfehler.<
120e0	3e 22 22 20 54 48 45 4e 20 7a 65 69 67 65 20 61 62 62 72 75 63 68 6d 65 6e 75 65 20 46 49 3b 20	>"".THEN.zeige.abbruchmenue.FI;.
12100	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 76 6d 61	zeigedarst4.(.dst.,.indemo.,.vma
12120	78 20 2c 20 6b 6d 20 29 20 3b 20 20 20 52 45 50 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c	x.,.km.).;...REP.kernvondarstell
12140	75 6e 67 34 20 50 45 52 20 3b 20 ff ff ff ff ff de 00 20 20 6d 69 6e 78 20 3a 3d 20 76 65 72 73	ung4.PER.;..........minx.:=.vers
12160	63 68 69 65 62 75 6e 67 20 2a 20 70 75 6e 6b 74 78 3b 70 29 3b 72 65 65 6e 74 65 72 64 61 72 73	chiebung.*.punktx;p);reenterdars
12180	74 65 6c 6c 75 6e 67 34 20 46 49 20 3b 20 50 45 52 20 3b 20 2e 20 6c 65 61 76 65 64 61 72 73 74	tellung4.FI.;.PER.;...leavedarst
121a0	65 6c 6c 75 6e 67 34 20 3a 20 66 6f 72 67 65 74 20 28 20 22 64 61 72 73 74 22 20 2c 20 71 75 69	ellung4.:.forget.(."darst".,.qui
121c0	65 74 20 29 20 3b 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 2e 20 77 61 68 6c	et.).;.LEAVE.darstellung4...wahl
121e0	64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3a 20 7a 65 69 67 65 6d 65 6e 75	derdarstellungsarten.:.zeigemenu
12200	65 7a 75 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 20 64 61 72 73 74 65 6c 6c 75	ezudarstellungsarten.(.darstellu
12220	6e 67 73 61 72 74 65 6e 20 28 20 ff ff ff ff ff de 00 20 20 70 75 6e 6b 74 78 20 3a 3d 20 2d 20	ngsarten.(..........punktx.:=.-.
12240	28 31 2e 30 20 2f 20 6b 6d 29 3b 75 6b 74 31 66 65 6e 73 74 65 72 29 3b 73 74 65 20 54 48 45 4e	(1.0./.km);ukt1fenster);ste.THEN
12260	20 76 65 72 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	.versendeoutput.(.dst.,.modellku
12280	72 7a 62 65 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	rzbezeichnung.,.kopfzeile.,.steu
122a0	65 72 7a 65 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	erzeile.,.plottask.).;.gibmeldun
122c0	67 61 75 73 20 28 20 31 32 20 29 20 3b 72 65 65 6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67	gaus.(.12.).;reenter.darstellung
122e0	34 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 6e 62 6c 20	4.ELIF.taste.=.mdlgroesseneinbl.
12300	54 48 45 4e 20 ff ff ff ff ff ff ff ff ff ff ff ee 00 20 20 6d 61 78 79 20 3a 3d 20 64 72 65 69	THEN................maxy.:=.drei
12320	64 75 72 63 68 76 6d 61 78 3b 72 7a 65 69 6c 65 20 29 20 3b 72 65 65 6e 74 65 72 20 64 61 72 73	durchvmax;rzeile.).;reenter.dars
12340	74 65 6c 6c 75 6e 67 34 20 46 49 20 3b 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74	tellung4.FI.;.ELIF.taste.=.darst
12360	65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72 73	ellungsarttaste.THEN.wahlderdars
12380	74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b 72 65 65 6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75	tellungsarten.;reenter.darstellu
123a0	6e 67 34 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 54 48 45 4e	ng4.ELIF.taste.=.menuetaste.THEN
123c0	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 20 74	.zeigemenuezurzusatzdarst.;.IF.t
123e0	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 20	aste.=.abbruchtaste.COR.taste.=.
12400	de 00 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
12420	64 61 72 73 74 65 6c 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	darstellung4.FI.ELIF.taste.<>.es
12440	63 20 54 48 45 4e 20 6f 75 74 20 28 70 69 65 70 20 29 3b 72 65 65 6e 74 65 72 20 64 61 72 73 74	c.THEN.out.(piep.);reenter.darst
12460	65 6c 6c 75 6e 67 34 20 46 49 20 50 45 52 20 2e 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 20	ellung4.FI.PER...dialogfuerdemo.
12480	3a 20 52 45 50 20 77 61 72 74 65 61 75 66 65 73 63 20 3b 20 69 6e 63 68 61 72 20 28 20 74 61 73	:.REP.warteaufesc.;.inchar.(.tas
124a0	74 65 20 29 20 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	te.).;.IF.taste.=.abbruchtaste.C
124c0	4f 52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 20 54 48 45 4e 20 ff ff ff ff	OR.taste.=.weitertaste.THEN.....
124e0	de 00 20 20 45 4c 49 46 20 6d 61 78 79 20 3d 20 6d 69 6e 79 20 65 6d 65 6e 75 65 7a 75 64 61 72	....ELIF.maxy.=.miny.emenuezudar
12500	73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 20 74 61 73 74 65 20 2c 20 46 41 4c 53 45 20 29	stellungsarten.(.taste.,.FALSE.)
12520	20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 43 4f 52 20 74	.;.IF.taste.=.zeigephasend.COR.t
12540	61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72	aste.=.zeigetab.COR.taste.=.abbr
12560	75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 68 69 73 74 6f	uchtaste.COR.taste.=.zeige.histo
12580	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 54 48 45 4e 20 6c	gr.COR.taste.=.zeigezeitd.THEN.l
125a0	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 3d 20 ff ff	eavedarstellung4.ELIF.taste.=...
125c0	ce 00 20 20 20 20 20 20 52 45 41 4c 20 56 41 52 20 68 65 6c 70 20 3a 3d 20 6d 69 6e 79 3b 65 61	........REAL.VAR.help.:=.miny;ea
125e0	62 62 72 75 63 68 6d 65 6e 75 65 20 46 49 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f	bbruchmenue.FI.ELIF.taste.=.rubo
12600	75 74 20 54 48 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	ut.THEN.loeschemenue.;.gebeaufbi
12620	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
12640	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 66	zeichnung.,.darstellungsname.,.f
12660	75 73 73 7a 65 69 6c 65 6c 65 65 72 20 29 20 3b 20 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62 62	usszeileleer.).;.reenterzeigeabb
12680	72 75 63 68 6d 65 6e 75 65 20 ff ff ff ff ff ff ce 00 20 20 77 69 6e 64 6f 77 20 28 73 65 69 74	ruchmenue...........window.(seit
126a0	65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6d 69 6e 78 2c 20 6d 61 78 78 2c 20 6d	e,.strukt1fenster,.minx,.maxx,.m
126c0	69 6e 79 2c 20 6d 61 78 79 29 3b 63 75 72 73 6f 72 20 28 20 33 20 2c 20 32 33 20 29 20 3b 20 6f	iny,.maxy);cursor.(.3.,.23.).;.o
126e0	75 74 20 28 20 64 69 76 66 65 68 6c 65 72 20 29 20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 20 2e 20	ut.(.divfehler.).;.zeigemenue...
12700	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 4c 45 41 56 45	reenterzeigeabbruchmenue.:.LEAVE
12720	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 20 45 4e 44 20	.kernvonzeigeabbruchmenue...END.
12740	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 ff ff ff ff ff	PROC.darstellung4.;.............
12760	0e 01 20 20 6d 61 78 78 20 3a 3d 20 32 2e 30 20 2f 20 6b 6d 3b 20 54 48 45 4e 20 6c 65 61 76 65	....maxx.:=.2.0./.km;.THEN.leave
12780	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 20 64 61 72 73 74 65	darstellung4.ELSE.reenter.darste
127a0	6c 6c 75 6e 67 20 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	llung.4.FI.ELIF.taste.<>.esc.THE
127c0	4e 20 6f 75 74 20 28 70 69 65 70 20 29 3b 72 65 65 6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e	N.out.(piep.);reenter.darstellun
127e0	67 34 20 45 4c 53 45 20 72 65 65 6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 46 49	g4.ELSE.reenter.darstellung.4.FI
12800	20 50 45 52 20 2e 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 20 3a 20 52 45 50 20 74 61 73 74	.PER...dialogfuerdemo.:.REP.tast
12820	65 20 6c 65 73 65 6e 20 28 74 61 73 74 65 29 20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 61 62 62	e.lesen.(taste).;.IF.taste.=.abb
12840	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 74 61 73 74	ruchtaste.COR.taste.=.weitertast
12860	65 20 54 48 45 4e 20 ff ff ff ff ff ff ff ff ff 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20	e.THEN..........N...PICTURE.VAR.
12880	6c 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 28 6d 69 6e 78 2c 20 6d 61 78	legende.:=.nilpicture;(minx,.max
128a0	78 2c 20 30 2e 30 2c 20 6d 61 78 79 2c 20 76 6d 61 78 2c 20 70 75 6e 6b 74 78 29 3b ff ff ff ff	x,.0.0,.maxy,.vmax,.punktx);....
128c0	4e 00 20 20 77 65 72 74 20 3a 3d 20 77 61 6e 64 6c 65 20 28 76 6d 61 78 2c 20 6c 61 65 6e 67 65	N...wert.:=.wandle.(vmax,.laenge
128e0	62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65	beibeschriftung,.nachkommastelle
12900	6e 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64	n);.............N...draw.(legend
12920	65 2c 20 79 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 68	e,.yachsenbez,.0.0,.standardhoeh
12940	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	e,.standardbreite);.............
12960	4e 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	N...pen.(0,.1,.0.,.pen.(legende)
12980	29 3b 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 74	);,.standardhoehe,.standardbreit
129a0	65 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c	e);.............N...kreuz.:=.nil
129c0	70 69 63 74 75 72 65 3b 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 52 45 41 4c 20 43 4f	picture;ugenundzeichnen.(REAL.CO
129e0	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 2c 20 ff ff ff ff	NST.xmin,.xmax,.ymin,.ymax,.....
12a00	3e 00 20 20 7a 65 69 63 68 6e 65 79 61 63 68 73 65 3b 78 20 2d 20 78 6d 69 6e 29 20 2f 20 72 65	>...zeichneyachse;x.-.xmin)./.re
12a20	61 6c 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	al.(anzahlxachsenabschnitte);...
12a40	3e 00 20 20 78 73 6b 61 6c 69 65 72 75 6e 67 3b 6d 61 78 20 2d 20 79 6d 69 6e 29 20 2f 20 72 65	>...xskalierung;max.-.ymin)./.re
12a60	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);...
12a80	4e 00 20 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 30 2e 35 20 2a 20 73 74 61 6e	N...standardbreite,.-.0.5.*.stan
12aa0	64 61 72 64 68 6f 65 68 65 29 3b 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65	dardhoehe);tung,.nachkommastelle
12ac0	6e 29 2c 20 30 2e 30 2c 20 ff ff ff ff ff ff ff 4e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68	n),.0.0,........N...standardhoeh
12ae0	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 28 6c 61 65 6e 67 65 62 65 69 62 65 73	e,.standardbreite).(laengebeibes
12b00	63 68 72 69 66 74 75 6e 67 29 20 2b 20 30 2e 35 29 20 2a 20 ff ff ff ff ff ff ff ff ff ff ff ff	chriftung).+.0.5).*.............
12b20	4e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 3b 65 20 28 73 74 65 6c 6c 65 2c	N...transfer.:=.kreuz;e.(stelle,
12b40	20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d	.laengebeibeschriftung,.nachkomm
12b60	61 73 74 65 6c 6c 65 6e 29 2c ff ff ff ff ff ff 4e 00 20 20 52 45 41 4c 20 56 41 52 20 76 6d 61	astellen),......N...REAL.VAR.vma
12b80	78 2c 20 6b 6d 3b 4f 45 53 55 4e 47 20 56 41 52 20 6c 73 67 2c 20 42 4f 4f 4c 20 56 41 52 20 69	x,.km;OESUNG.VAR.lsg,.BOOL.VAR.i
12ba0	6e 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 29 3a ff ff ff ff ff ff ff ff ff	ndemo,.TEXT.VAR.taste):.........
12bc0	3e 00 20 20 20 20 20 20 76 6d 61 78 20 3a 3d 20 28 28 70 20 53 55 42 20 33 29 20 2a 20 28 28 76	>.......vmax.:=.((p.SUB.3).*.((v
12be0	20 53 55 42 20 32 29 20 2b 20 28 76 20 53 55 42 20 33 29 29 29 3b ff ff ff ff ff ff ff ff ff ff	.SUB.2).+.(v.SUB.3)));..........
12c00	4e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 73 6b 29 20 3b 70 75 74 20 28 64 73 74 2c 20 6d	N.........plottask).;put.(dst,.m
12c20	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 6c 65 2c	odellkurzbezeichnung,.kopfzeile,
12c40	20 73 74 65 75 65 72 7a 65 69 6c 65 2c ff ff ff 4e 00 20 20 20 20 20 20 20 20 49 46 20 74 61 73	.steuerzeile,...N.........IF.tas
12c60	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
12c80	64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	dellgroessentaste...............
12ca0	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
12cc0	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))......
12ce0	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
12d00	29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 67 65 62 65 61 75 66 62 69 6c 64 73	));.............N...gebeaufbilds
12d20	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
12d40	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,.........
12d60	1e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff ff ff	..kernvonzeigeabbruchmenue:.....
12d80	1e 00 20 20 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75 65 61 75 73 3b ff ff ff ff ff ff ff ff ff	....gibabbruchmenueaus;.........
12da0	1e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff	......inchar.(taste);...........
12dc0	1e 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 ff ff ff ff ff ff	......loeschemenuemeldung;......
12de0	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
12e00	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...
12e20	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 ff ff ff	...........leavedarstellung4....
12e40	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
12e60	72 74 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	rttaste...................loesch
12e80	65 6d 65 6e 75 65 3b 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	emenue;.........>.........zeigem
12ea0	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 74 61 73 74 65 2c 20	enuezudarstellungsarten.(taste,.
12ec0	46 41 4c 53 45 20 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 49 46 20 74 61 73	FALSE.);........N.........IF.tas
12ee0	74 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	te.=.zeigephasend.COR.taste.=.ze
12f00	69 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 ff	igetab.COR.taste.=.abbruchtaste.
12f20	0e 00 20 20 20 20 20 20 20 20 20 20 43 4f 52 20 3e 00 20 20 20 20 20 20 20 20 20 20 20 74 61 73	............COR.>............tas
12f40	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
12f60	69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e	igezeitd....................THEN
12f80	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6c	...............................l
12fa0	65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74	eavedarstellung4..........ELIF.t
12fc0	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..............
12fe0	1e 00 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 ff	............THEN................
13000	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
13020	68 6d 65 6e 75 65 20 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	hmenue................ELIF.taste
13040	20 3d 20 72 75 62 6f 75 74 20 ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68	.=.rubout.................loesch
13060	65 6d 65 6e 75 65 3b ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 67 65 62 65 61 75	emenue;.........N.........gebeau
13080	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 62	fbildschirmaus.(dst,.modellkurzb
130a0	65 7a 65 69 63 68 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	ezeichnung,.darstellungsname,...
130c0	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);.....
130e0	2e 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
13100	75 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28	ue....................ELIF.NOT.(
13120	74 61 73 74 65 20 3d 20 65 73 63 29 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 7a 65 69 67 65 6d	taste.=.esc)....>.........zeigem
13140	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 63	enuemeldung.(meldungstext.(falsc
13160	68 65 20 74 61 73 74 65 29 29 20 ff ff ff ff ff 1e 00 67 69 62 61 62 62 72 75 63 68 6d 65 6e 75	he.taste))........gibabbruchmenu
13180	65 61 75 73 3a ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72	eaus:...............initialisier
131a0	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.
131c0	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));...............
131e0	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 36 29	....fuellemenue.(menuezeile.(16)
13200	29 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.
13220	28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 29 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	(menuezeile.(5));...............
13240	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)
13260	29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32	);..................cursor.(3,.2
13280	33 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 6f 75 74 20 28 64 69 76 66 65 68 6c	3);.................out.(divfehl
132a0	65 72 29 3b ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 61 62	er);..............reenterzeigeab
132c0	62 72 75 63 68 6d 65 6e 75 65 3a ff ff ff ff ff 2e 00 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f	bruchmenue:.........LEAVE.kernvo
132e0	6e 7a 65 69 67 65 61 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	nzeigeabbruchmenue..............
13300	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;........
13320	4e 00 20 20 77 65 72 74 20 3a 3d 20 77 61 6e 64 6c 65 20 28 76 6d 61 78 2c 20 6c 61 65 6e 67 65	N...wert.:=.wandle.(vmax,.laenge
13340	62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65	beibeschriftung,.nachkommastelle
13360	6e 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64	n);.............N...draw.(legend
13380	65 2c 20 6b 6d 62 65 7a 65 69 63 68 6e 75 6e 67 20 2b 20 77 65 72 74 2c 20 30 2e 30 2c 20 73 74	e,.kmbezeichnung.+.wert,.0.0,.st
133a0	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 ff	andardhoehe,.standardbreite);...
133c0	2e 00 20 20 6d 6f 76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 70 75 6e 6b 74 78 2c 20 30 2e 30 29	....move.(funktion,.punktx,.0.0)
133e0	3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75	;...............N.PROC.darstellu
13400	6e 67 34 20 28 4c 4f 45 53 55 4e 47 20 56 41 52 20 6c 73 67 2c 20 42 4f 4f 4c 20 56 41 52 20 69	ng4.(LOESUNG.VAR.lsg,.BOOL.VAR.i
13420	6e 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 29 3a ff ff ff ff ff ff ff ff ff	ndemo,.TEXT.VAR.taste):.........
13440	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.
13460	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");......
13480	3e 00 20 20 20 20 20 20 6b 6d 20 3a 3d 20 28 28 70 20 53 55 42 20 32 29 20 2b 20 28 70 20 53 55	>.......km.:=.((p.SUB.2).+.(p.SU
134a0	42 20 33 29 20 29 20 2f 20 28 70 20 53 55 42 20 31 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	B.3).)./.(p.SUB.1);.............
134c0	4e 00 20 20 20 20 20 20 20 20 20 64 6f 20 28 22 6d 65 6e 75 69 6e 66 6f 20 28 22 20 20 2b 20 63	N..........do.("menuinfo.("..+.c
134e0	6f 64 65 20 28 33 34 29 20 2b 20 64 69 76 66 65 68 6c 65 72 20 20 2b 20 63 6f 64 65 20 28 33 34	ode.(34).+.divfehler..+.code.(34
13500	29 20 2b 20 22 29 3b 22 20 29 3b ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 76 65 72 73 65 6e	).+.");".);.....N.........versen
13520	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 69 63 68	deoutput.(dst,.modellkurzbezeich
13540	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 ff ff ff	nung,.kopfzeile,.steuerzeile,...
13560	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
13580	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
135a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
135c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
135e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................