blob: 8b0d00a89ddee2c8cf04c14d4b0953379198d1ef (plain)

ofs	hex dump	ascii
0000	01 4d b0 2a 35 04 ff ff 10 a0 ff 47 00 7a ff ff ff ff ff ff ff ff ff ff 60 a0 ff 45 00 ff ff ff	.M.*5......G.z..........`..E....
0020	ff ff ff ff ff ff ff ff b0 a0 ff 4b 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff	...........K....................
0040	ff ff ff ff ff ff ff ff 00 a1 ff 45 00 ff ff ff ff ff ff ff ff ff ff ff 50 a1 ff 45 00 ff ff ff	...........E............P..E....
0060	ff ff ff ff ff ff ff ff a0 a1 ff 46 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff	...........F....................
0080	ff ff ff ff ff ff ff ff f0 a1 ff 49 00 ff ff ff ff ff ff ff ff ff ff ff 40 a2 ff 48 00 ff ff ff	...........I............@..H....
00a0	ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff ff ff ff ff ff ff ff ff 90 a2 ff 48 00 ff ff ff	...........................H....
00c0	ff ff ff ff ff ff ff ff e0 a2 ff 27 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 20 ff ff ff ff	...........'....................
00e0	ff ff ff ff ff ff ff ff 10 a3 ff 45 00 ff ff ff ff ff ff ff ff ff ff ff 60 a3 ff 45 00 ff ff ff	...........E............`..E....
0100	ff ff ff ff ff ff ff ff b0 a3 ff 46 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	...........F...............zZz..
0120	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0140	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0160	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0180	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
01a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
01c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
01e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0200	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0220	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0240	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0260	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0280	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
02a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
02c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
02e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0300	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0320	ff ff ff ff ff ff ff ff 40 2b ff 0e 00 7a ff ff ff ff ff ff ff ff ff ff c0 2a ff 12 00 ff ff ff	........@+...z...........*......
0340	ff ff ff ff ff ff ff ff e0 2a ff 16 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	.........*.................zZz..
0360	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0380	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
03a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
03c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
03e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0400	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0420	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0440	ff ff ff ff ff ff ff ff ff ff 0a 76 31 20 3a 3d 20 6b 31 3b 20 ff ff ff 00 2b ff 10 00 ff ff ff	...........v1.:=.k1;.....+......
0460	ff ff ff ff ff ff ff ff 20 2b ff 14 00 ff ff ff ff ff ff ff ff ff ff ff ff ff 03 7a 5a 7a ff ff	.........+.................zZz..
0480	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
04a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
04c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
04e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0500	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0520	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0540	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0560	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0580	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
05a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
05c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
05e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0600	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0620	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0640	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0660	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0680	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
06a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
06c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
06e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0700	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0720	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0740	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
0760	ff ff ff ff ff ff ff ff c1 05 ff 26 00 41 4c 20 43 4f 4e 53 54 ff ff ff 40 c9 ff 27 00 41 4c 20	...........&.AL.CONST...@..'.AL.
0780	43 4f 4e 53 54 ff ff ff 10 ca ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff e1 23 ff 1c 00 ff ff ff	CONST....................#......
07a0	ff ff ff ff ff ff ff ff 81 07 ff 1f 00 ff ff ff ff ff ff ff ff ff ff ff 70 cc ff 23 00 ff ff ff	........................p..#....
07c0	ff ff ff ff ff ff ff ff 51 08 ff 30 00 ff ff ff ff ff ff ff ff ff ff ff 00 ce ff 27 00 ff ff ff	........Q..0...............'....
07e0	ff ff ff ff ff ff ff ff d0 ce ff 2e 00 ff ff ff ff ff ff ff ff ff ff ff a0 cf ff 31 00 ff ff ff	...........................1....
0800	ff ff ff ff ff ff ff ff 70 d0 ff 41 00 ff ff ff ff ff ff ff ff ff ff ff 40 d1 ff 2d 00 ff ff ff	........p..A............@..-....
0820	ff ff ff ff ff ff ff ff 10 d2 ff 30 00 ff ff ff ff ff ff ff ff ff ff ff e0 d2 ff 4a 00 ff ff ff	...........0...............J....
0840	ff ff ff ff ff ff ff ff b0 d3 ff 19 00 ff ff ff ff ff ff ff ff ff ff ff 80 d4 ff 47 00 ff ff ff	...........................G....
0860	ff ff ff ff ff ff ff ff 21 09 ff 3f 00 ff ff ff ff ff ff ff ff ff ff ff 10 d6 ff 1a 00 ff ff ff	........!..?....................
0880	ff ff ff ff ff ff ff ff e0 d6 ff 22 00 ff ff ff ff ff ff ff ff ff ff ff b0 d7 ff 48 00 ff ff ff	..........."...............H....
08a0	ff ff ff ff ff ff ff ff 80 d8 ff 27 00 20 54 48 45 4e 20 ff ff ff ff ff 50 d9 ff 10 00 ff ff ff	...........'..THEN......P.......
08c0	ff ff ff ff ff ff ff ff f1 09 ff 10 00 ff ff ff ff ff ff ff ff ff ff ff e0 da ff 22 00 20 46 49	..........................."..FI
08e0	3b 20 ff ff ff ff ff ff c1 0a ff 42 00 ff ff ff ff ff ff ff ff ff ff ff 70 dc ff 42 00 ff ff ff	;..........B............p..B....
0900	ff ff ff ff ff ff ff ff 91 0b ff 42 00 ff ff ff ff ff ff ff ff ff ff ff 00 de 0c 20 20 49 46 20	...........B.................IF.
0920	69 6e 64 65 6d 6f 20 ff d0 de 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff a0 df ff 2f 00 ff ff ff	indemo.........THEN......../....
0940	ff ff ff ff ff ff ff ff 70 e0 09 20 20 20 20 45 4c 53 45 20 ff ff ff ff 40 e1 ff 2b 00 ff ff ff	........p......ELSE.....@..+....
0960	ff ff ff ff ff ff ff ff 10 e2 06 20 20 46 49 20 3b 6e 64 65 6d 6f 20 ff e0 e2 0a 20 20 65 6e 64	.............FI.;ndemo.......end
0980	70 6c 6f 74 2e ff ff ff b0 e3 ff 0e 00 ff ff ff ff ff ff ff ff ff ff ff 80 e4 ff 3a 00 20 20 45	plot.......................:...E
09a0	4c 53 45 20 ff ff ff ff 50 e5 0c 20 20 62 65 67 69 6e 70 6c 6f 74 3b ff 20 e6 ff 1c 00 46 49 20	LSE.....P....beginplot;......FI.
09c0	3b 45 4e 20 ff ff ff ff f0 e6 ff 26 00 65 6e 64 70 6c 6f 74 2e ff ff ff 61 0c ff 12 00 20 20 45	;EN........&.endplot....a......E
09e0	4c 53 45 20 ff ff ff ff 80 e8 03 20 20 2e ff ff ff ff ff ff ff ff ff ff 50 e9 ff 0e 00 62 65 67	LSE.....................P....beg
0a00	69 6e 70 6c 6f 74 3b ff 31 0d ff 11 00 65 6e 64 70 6c 6f 74 2e ff ff ff e0 ea ff 3d 00 ff ff ff	inplot;.1....endplot.......=....
0a20	ff ff ff ff ff ff ff ff b0 eb ff 2a 00 ff ff ff ff ff ff ff ff ff ff ff 80 ec 01 2e 20 2e 65 67	...........*..................eg
0a40	69 6e 70 6c 6f 74 3b ff 50 ed ff 10 00 ff ff ff ff ff ff ff ff ff ff ff 20 ee ff 22 00 ff ff ff	inplot;.P.................."....
0a60	ff ff ff ff ff ff ff ff f0 ee ff 37 00 20 65 6e 64 20 70 6c 6f 74 2e 20 c0 ef ff 37 00 2e 65 6e	...........7..end.plot.....7..en
0a80	64 20 70 6c 6f 74 2e 20 90 f0 ff 38 00 20 65 6e 64 20 70 6c 6f 74 2e 20 60 f1 ff 2b 00 20 65 6e	d.plot.....8..end.plot..`..+..en
0aa0	64 20 70 6c 6f 74 2e 20 30 f2 ff 2b 00 ff ff ff ff ff ff ff ff ff ff ff 00 f3 ff 2c 00 ff ff ff	d.plot..0..+...............,....
0ac0	ff ff ff ff ff ff ff ff d0 f3 ff 4c 00 ff ff ff ff ff ff ff ff ff ff ff a0 f4 ff 4d 00 ff ff ff	...........L...............M....
0ae0	ff ff ff ff ff ff ff ff 70 f5 ff 1c 00 73 63 68 72 69 66 74 65 79 20 3a 40 f6 ff 4c 00 ff ff ff	........p....schriftey.:@..L....
0b00	ff ff ff ff ff ff ff ff 10 f7 ff 44 00 20 20 54 48 45 4e 20 ff ff ff ff e0 f7 0d 20 20 20 72 61	...........D...THEN...........ra
0b20	6e 64 75 6e 74 65 6e 20 b0 f8 ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff 80 f9 ff 4c 00 ff ff ff	ndunten....................L....
0b40	ff ff ff ff ff ff ff ff 50 fa ff 44 00 46 49 20 3b 69 66 74 65 79 20 3a 01 0e 0d 20 20 20 72 61	........P..D.FI.;iftey.:......ra
0b60	6e 64 75 6e 74 65 6e 20 a1 06 ff 1d 00 20 72 61 6e 64 75 6e 74 65 6e 20 b0 fc ff 2f 00 ff ff ff	ndunten.......randunten..../....
0b80	ff ff ff ff ff ff ff ff 80 fd ff 2f 00 ff ff ff ff ff ff ff ff ff ff ff 50 fe ff 11 00 ff ff ff	.........../............P.......
0ba0	ff ff ff ff ff ff ff ff 01 04 09 20 20 20 20 54 48 45 4e 20 74 65 6e 20 d1 0e ff 1d 00 20 20 54	...............THEN.ten........T
0bc0	48 45 4e 20 ff ff ff ff 61 11 ff 14 00 ff ff ff ff ff ff ff ff ff ff ff 91 01 ff 14 00 46 49 20	HEN.....a....................FI.
0be0	3b 69 66 74 65 79 20 3a e1 04 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff b1 0f 09 20 20 20 20 54	;iftey.:.......................T
0c00	48 45 4e 20 ff ff ff ff 41 12 ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff 21 13 ff 1d 00 7a ff ff	HEN.....A...............!....z..
0c20	ff ff ff ff ff ff ff ff f1 13 06 20 20 46 49 20 3b ff ff ff ff ff ff ff d1 14 ff 11 00 7a ff ff	.............FI.;............z..
0c40	ff ff ff ff ff ff ff ff 21 22 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff 71 16 ff 1c 00 7a ff ff	........!".....THEN.....q....z..
0c60	ff ff ff ff ff ff ff ff 41 17 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff 71 29 ff 11 00 46 49 20	........A...............q)...FI.
0c80	3b ff ff ff ff ff ff ff 01 23 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 51 2a 09 20 20 20 20 54	;........#..............Q*.....T
0ca0	48 45 4e 20 ff ff ff ff 71 1a ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff c1 24 ff 1d 00 7a ff ff	HEN.....q................$...z..
0cc0	ff ff ff ff ff ff ff ff 41 2b 06 20 20 46 49 20 3b ff ff ff ff ff ff ff d1 2f ff 39 00 ff ff ff	........A+...FI.;......../.9....
0ce0	ff ff ff ff ff ff ff ff d1 30 ff 22 00 20 20 54 48 45 4e 20 ff ff ff ff 41 2d 03 20 20 2e ff ff	.........0."...THEN.....A-......
0d00	ff ff ff ff ff ff ff ff c1 31 ff 20 00 20 46 49 3b 20 ff ff ff ff ff ff 31 20 ff 22 00 46 49 20	.........1....FI;.......1..".FI.
0d20	3b 20 ff ff ff ff ff ff 81 27 ff 24 00 20 46 49 3b 20 ff ff ff ff ff ff 21 2e ff 19 00 20 46 49	;........'.$..FI;.......!.....FI
0d40	3b 20 ff ff ff ff ff ff a1 32 0c 20 20 49 4e 54 20 56 41 52 20 69 3b ff 81 33 ff 1d 00 7a 46 49	;........2...INT.VAR.i;..3...zFI
0d60	3b 20 ff ff ff ff ff ff b0 3e ff 22 00 7a 46 49 3b 20 ff ff ff ff ff ff 00 3f ff 1c 00 7a 46 49	;........>.".zFI;........?...zFI
0d80	3b 20 ff ff ff ff ff ff d0 ab ff 17 00 ff ff ff ff ff ff ff ff ff ff ff 20 ac 07 20 20 50 45 52	;............................PER
0da0	20 3b 41 52 20 69 3b ff b0 3f ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 70 ac ff 22 00 ff ff ff	.;AR.i;..?..............p.."....
0dc0	ff ff ff ff ff ff ff ff 51 34 ff 22 00 ff ff ff ff ff ff ff ff ff ff ff 10 40 ff 1a 00 ff ff ff	........Q4.".............@......
0de0	ff ff ff ff ff ff ff ff 40 40 ff 1b 00 50 45 52 20 3b ff ff ff ff ff ff 30 84 ff 1a 00 20 52 45	........@@...PER.;......0.....RE
0e00	50 20 ff ff ff ff ff ff a1 34 07 20 20 50 45 52 20 3b ff ff ff ff ff ff e1 34 ff 1c 00 20 52 45	P........4...PER.;.......4....RE
0e20	50 20 20 ff ff ff ff ff 60 84 ff 10 00 20 50 45 52 3b 20 ff ff ff ff ff 31 35 ff 2c 00 20 50 45	P.......`.....PER;......15.,..PE
0e40	52 3b 20 ff ff ff ff ff 71 35 01 2e 00 20 50 45 52 3b 20 ff ff ff ff ff 20 41 ff 1e 00 50 45 52	R;......q5....PER;.......A...PER
0e60	20 3b ff ff ff ff ff ff 31 47 ff 40 00 20 52 45 50 20 ff ff ff ff ff ff 50 41 ff 1b 00 20 52 45	.;......1G.@..REP.......PA....RE
0e80	50 20 ff ff ff ff ff ff 80 41 ff 22 00 20 52 45 50 20 ff ff ff ff ff ff b0 41 ff 1d 00 20 50 45	P........A."..REP........A....PE
0ea0	52 3b 20 ff ff ff ff ff 81 47 ff 32 00 20 50 45 52 3b 20 ff ff ff ff ff 61 3f ff 42 00 20 50 45	R;.......G.2..PER;......a?.B..PE
0ec0	52 3b 20 ff ff ff ff ff f0 84 ff 12 00 20 50 45 52 3b 20 ff ff ff ff ff 30 42 03 20 20 2e ff ff	R;............PER;......0B......
0ee0	ff ff ff ff ff ff ff ff 30 85 ff 16 00 6f 72 64 6e 65 70 65 6e 7a 75 3b a0 42 ff 45 00 ff ff ff	........0....ordnepenzu;.B.E....
0f00	ff ff ff ff ff ff ff ff 20 be ff 3d 00 ff ff ff ff ff ff ff ff ff ff ff a0 ac 03 20 20 2e ff ff	...........=....................
0f20	ff ff ff ff ff ff ff ff b0 a8 ff 17 00 2e ff ff ff ff ff ff ff ff ff ff b0 85 ff 15 00 ff ff ff	................................
0f40	ff ff ff ff ff ff ff ff b1 3f ff 1f 00 64 6e 65 70 65 6e 7a 75 3a ff ff e0 43 ff 3e 00 ff ff ff	.........?...dnepenzu:...C.>....
0f60	ff ff ff ff ff ff ff ff f0 85 ff 38 00 2e ff ff ff ff ff ff ff ff ff ff 40 44 ff 3b 00 ff ff ff	...........8............@D.;....
0f80	ff ff ff ff ff ff ff ff 90 44 03 20 20 2e ff ff ff ff ff ff ff ff ff ff f0 ac ff 16 00 ff ff ff	.........D......................
0fa0	ff ff ff ff ff ff ff ff 40 ad ff 22 00 ff ff ff ff ff ff ff ff ff ff ff 70 86 ff 13 00 ff ff ff	........@.."............p.......
0fc0	ff ff ff ff ff ff ff ff 50 45 ff 2e 00 ff ff ff ff ff ff ff ff ff ff ff 90 45 ff 1a 00 2e ff ff	........PE...............E......
0fe0	ff ff ff ff ff ff ff ff d0 45 ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff 90 ad ff 31 00 ff ff ff	.........E.................1....
1000	ff ff ff ff ff ff ff ff c1 47 ff 41 00 ff ff ff ff ff ff ff ff ff ff ff e0 86 ff 1d 00 ff ff ff	.........G.A....................
1020	ff ff ff ff ff ff ff ff 80 46 ff 33 00 ff ff ff ff ff ff ff ff ff ff ff 11 48 ff 42 00 ff ff ff	.........F.3.............H.B....
1040	ff ff ff ff ff ff ff ff 50 87 01 2e 00 ff ff ff ff ff ff ff ff ff ff ff 90 87 ff 0e 00 ff ff ff	........P.......................
1060	ff ff ff ff ff ff ff ff 50 47 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff b0 be ff 1f 00 ff ff ff	........PG......................
1080	ff ff ff ff ff ff ff ff 20 88 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff 10 48 01 2e 00 ff ff ff	.........................H......
10a0	ff ff ff ff ff ff ff ff 00 bf ff 15 00 ff ff ff ff ff ff ff ff ff ff ff 50 ae ff 2e 00 ff ff ff	........................P.......
10c0	ff ff ff ff ff ff ff ff 61 48 ff 40 00 ff ff ff ff ff ff ff ff ff ff ff b1 48 ff 43 00 ff ff ff	........aH.@.............H.C....
10e0	ff ff ff ff ff ff ff ff a0 88 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 10 49 0d 20 20 6f 72 64	.........................I...ord
1100	6e 65 70 65 6e 7a 75 3b 80 bf ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff a0 ae ff 13 00 ff ff ff	nepenzu;........................
1120	ff ff ff ff ff ff ff ff 01 40 ff 11 00 ff ff ff ff ff ff ff ff ff ff ff f0 ae ff 1d 00 ff ff ff	.........@......................
1140	ff ff ff ff ff ff ff ff 30 af ff 1c 00 6f 72 64 6e 65 70 65 6e 7a 75 3b 60 4a ff 1e 00 ff ff ff	........0....ordnepenzu;`J......
1160	ff ff ff ff ff ff ff ff d0 bf ff 19 00 ff ff ff ff ff ff ff ff ff ff ff 20 89 0b 6f 72 64 6e 65	...........................ordne
1180	70 65 6e 7a 75 3a ff ff d0 4a ff 18 00 ff ff ff ff ff ff ff ff ff ff ff 50 89 01 2e 00 ff ff ff	penzu:...J..............P.......
11a0	ff ff ff ff ff ff ff ff 20 4b ff 18 00 64 6e 65 73 74 69 66 74 7a 75 3a 80 89 ff 1e 00 ff ff ff	.........K...dnestiftzu:........
11c0	ff ff ff ff ff ff ff ff 70 4b ff 17 00 64 6e 65 70 65 6e 7a 75 3a ff ff 01 49 ff 3e 00 ff ff ff	........pK...dnepenzu:...I.>....
11e0	ff ff ff ff ff ff ff ff 70 af ff 18 00 ff ff ff ff ff ff ff ff ff ff ff b0 89 ff 17 00 ff ff ff	........p.......................
1200	ff ff ff ff ff ff ff ff 00 4c ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff 30 c0 ff 17 00 ff ff ff	.........L..............0.......
1220	ff ff ff ff ff ff ff ff a0 af ff 27 00 ff ff ff ff ff ff ff ff ff ff ff 80 4c ff 17 00 ff ff ff	...........'.............L......
1240	ff ff ff ff ff ff ff ff f0 89 ff 17 00 ff ff ff ff ff ff ff ff ff ff ff c0 4c 07 20 20 50 45 52	.........................L...PER
1260	20 3b ff ff ff ff ff ff 70 c0 ff 19 00 ff ff ff ff ff ff ff ff ff ff ff e0 af 01 2e 00 20 50 45	.;......p.....................PE
1280	52 3b 20 ff ff ff ff ff 20 8a ff 15 00 20 50 45 52 3b 20 ff ff ff ff ff 30 4d ff 16 00 20 50 45	R;............PER;......0M....PE
12a0	52 3b 20 ff ff ff ff ff 50 8a ff 16 00 50 45 52 20 3b 20 ff ff ff ff ff 41 49 ff 4a 00 ff ff ff	R;......P....PER.;......AI.J....
12c0	ff ff ff ff ff ff ff ff c0 4d 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff 00 4e ff 24 00 ff ff ff	.........M.....THEN......N.$....
12e0	ff ff ff ff ff ff ff ff 40 4e ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff 80 4e ff 18 00 ff ff ff	........@N...............N......
1300	ff ff ff ff ff ff ff ff 51 40 ff 17 00 ff ff ff ff ff ff ff ff ff ff ff 50 b0 06 20 20 46 49 20	........Q@..............P....FI.
1320	2e 45 4e 20 ff ff ff ff 90 b0 ff 12 00 ff ff ff ff ff ff ff ff ff ff ff 90 8a ff 15 00 ff ff ff	.EN.............................
1340	ff ff ff ff ff ff ff ff 60 4f ff 16 00 ff ff ff ff ff ff ff ff ff ff ff 90 4f ff 17 00 ff ff ff	........`O...............O......
1360	ff ff ff ff ff ff ff ff c0 4f ff 16 00 46 49 20 2e ff ff ff ff ff ff ff f0 4f ff 15 00 ff ff ff	.........O...FI..........O......
1380	ff ff ff ff ff ff ff ff 20 50 ff 16 00 ff ff ff ff ff ff ff ff ff ff ff 50 50 ff 17 00 ff ff ff	.........P..............PP......
13a0	ff ff ff ff ff ff ff ff 80 50 ff 16 00 ff ff ff ff ff ff ff ff ff ff ff b0 50 ff 1f 00 6b 61 6c	.........P...............P...kal
13c0	69 65 72 75 6e 67 3a ff e0 50 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 10 51 ff 21 00 ff ff ff	ierung:..P...............Q.!....
13e0	ff ff ff ff ff ff ff ff 40 51 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff 70 51 ff 1f 00 68 6e 69	........@Q..............pQ...hni
1400	74 74 70 75 6e 6b 74 3a a0 51 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff d0 51 ff 21 00 ff ff ff	ttpunkt:.Q...............Q.!....
1420	ff ff ff ff ff ff ff ff 00 52 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff c0 8a 03 20 20 2e ff ff	.........R......................
1440	ff ff ff ff ff ff ff ff 60 52 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 00 8b ff 21 00 ff ff ff	........`R.................!....
1460	ff ff ff ff ff ff ff ff 40 8b 03 20 20 2e ff ff ff ff ff ff ff ff ff ff 00 53 ff 15 00 62 65 73	........@................S...bes
1480	63 68 72 69 66 74 65 3b a0 c0 ff 18 00 2e ff ff ff ff ff ff ff ff ff ff c0 b0 ff 18 00 ff ff ff	chrifte;........................
14a0	ff ff ff ff ff ff ff ff 90 8b ff 39 00 ff ff ff ff ff ff ff ff ff ff ff 10 54 ff 30 00 2e ff ff	...........9.............T.0....
14c0	ff ff ff ff ff ff ff ff f0 c0 ff 2c 00 ff ff ff ff ff ff ff ff ff ff ff 10 b1 ff 21 00 73 63 68	...........,...............!.sch
14e0	72 69 66 74 65 3a ff ff 91 49 ff 43 00 ff ff ff ff ff ff ff ff ff ff ff 60 b1 ff 30 00 ff ff ff	rifte:...I.C............`..0....
1500	ff ff ff ff ff ff ff ff a0 b1 ff 2e 00 ff ff ff ff ff ff ff ff ff ff ff c1 35 ff 23 00 ff ff ff	.........................5.#....
1520	ff ff ff ff ff ff ff ff e0 8b ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff a1 40 ff 1c 00 ff ff ff	.........................@......
1540	ff ff ff ff ff ff ff ff 11 36 07 20 20 46 49 20 2e 20 4e 20 ff ff ff ff 20 8c ff 17 00 20 20 54	.........6...FI...N............T
1560	48 45 4e 20 ff ff ff ff 61 36 ff 4a 00 20 20 54 48 45 4e 20 ff ff ff ff 80 c1 09 20 20 20 20 54	HEN.....a6.J...THEN............T
1580	48 45 4e 20 ff ff ff ff 10 b2 ff 22 00 20 20 46 49 2e 20 ff ff ff ff ff 50 b2 ff 2c 00 46 49 20	HEN........"...FI.......P..,.FI.
15a0	2e 20 72 75 6e 67 3a ff c0 56 04 46 49 20 2e 46 49 2e 20 ff ff ff ff ff f1 40 ff 10 00 ff ff ff	..rung:..V.FI..FI........@......
15c0	ff ff ff ff ff ff ff ff 00 57 ff 17 00 20 20 54 48 45 4e 20 ff ff ff ff b0 8c ff 17 00 ff ff ff	.........W.....THEN.............
15e0	ff ff ff ff ff ff ff ff e0 8c ff 28 00 ff ff ff ff ff ff ff ff ff ff ff 80 57 ff 1c 00 20 2e ff	...........(.............W......
1600	ff ff ff ff ff ff ff ff c0 c1 01 2e 00 ff ff ff ff ff ff ff ff ff ff ff b0 b2 ff 1f 00 ff ff ff	................................
1620	ff ff ff ff ff ff ff ff e1 49 ff 4a 00 73 63 68 72 69 66 74 65 79 3a ff 30 58 ff 17 00 ff ff ff	.........I.J.schriftey:.0X......
1640	ff ff ff ff ff ff ff ff b1 36 ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff 60 8d ff 16 00 ff ff ff	.........6..............`.......
1660	ff ff ff ff ff ff ff ff a0 58 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff b0 8d ff 1a 00 ff ff ff	.........X.....THEN.............
1680	ff ff ff ff ff ff ff ff 10 59 06 20 20 46 49 20 3b ff ff ff ff ff ff ff 40 c2 ff 19 00 ff ff ff	.........Y...FI.;.......@.......
16a0	ff ff ff ff ff ff ff ff 00 b3 ff 16 00 ff ff ff ff ff ff ff ff ff ff ff 01 37 ff 41 00 20 20 54	.........................7.A...T
16c0	48 45 4e 20 ff ff ff ff 90 b3 ff 1a 00 30 2e 30 2c 20 ff ff ff ff ff ff 51 37 ff 20 00 46 49 20	HEN..........0.0,.......Q7...FI.
16e0	3b 65 72 75 6e 67 3b 20 31 4a ff 3b 00 65 66 65 72 65 6b 72 65 75 7a 3a 71 4a ff 3b 00 6b 61 6c	;erung;.1J.;.eferekreuz:qJ.;.kal
1700	69 65 72 75 6e 67 3b 20 41 41 ff 0f 00 74 72 61 6e 73 66 65 72 2e 3b 20 81 37 ff 10 00 6b 61 6c	ierung;.AA...transfer.;..7...kal
1720	69 65 72 75 6e 67 3b 20 b1 37 ff 10 00 ff ff ff ff ff ff ff ff ff ff ff 01 38 ff 0e 00 ff ff ff	ierung;..7...............8......
1740	ff ff ff ff ff ff ff ff 91 41 ff 0e 00 ff ff ff ff ff ff ff ff ff ff ff e0 5a ff 0f 00 ff ff ff	.........A...............Z......
1760	ff ff ff ff ff ff ff ff 41 38 0d 6f 72 64 6e 65 73 74 69 66 74 7a 75 3a 71 38 ff 11 00 ff ff ff	........A8.ordnestiftzu:q8......
1780	ff ff ff ff ff ff ff ff 40 5b ff 10 00 ff ff ff ff ff ff ff ff ff ff ff 60 5b ff 1b 00 20 20 54	........@[..............`[.....T
17a0	48 45 4e 20 ff ff ff ff a1 38 ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff a0 5b ff 11 00 64 6e 65	HEN......8...............[...dne
17c0	73 74 69 66 74 7a 75 3a d1 38 ff 0e 00 ff ff ff ff ff ff ff ff ff ff ff 11 39 ff 1b 00 ff ff ff	stiftzu:.8...............9......
17e0	ff ff ff ff ff ff ff ff 00 5c ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff 20 5c ff 11 00 20 20 20	.........\...............\......
1800	20 20 20 54 48 45 4e 20 51 39 ff 0f 00 ff ff ff ff ff ff ff ff ff ff ff 60 5c ff 1e 00 ff ff ff	...THEN.Q9..............`\......
1820	ff ff ff ff ff ff ff ff 80 5c ff 1b 00 20 20 20 20 20 20 54 48 45 4e 20 81 39 ff 20 00 ff ff ff	.........\.........THEN..9......
1840	ff ff ff ff ff ff ff ff c0 5c ff 0f 00 20 20 20 20 46 49 20 3b ff ff ff b1 4a ff 26 00 20 46 49	.........\.......FI.;....J.&..FI
1860	20 3b ff ff ff ff ff ff 00 5d ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff 20 8e ff 1b 00 20 20 54	.;.......].....................T
1880	48 45 4e 20 ff ff ff ff 40 5d ff 26 00 ff ff ff ff ff ff ff ff ff ff ff 50 8e ff 20 00 20 46 49	HEN.....@].&............P.....FI
18a0	20 3b ff ff ff ff ff ff 90 5d 0c 78 73 6b 61 6c 69 65 72 75 6e 67 3a ff c0 5d ff 1a 00 20 52 45	.;.......].xskalierung:..]....RE
18c0	50 20 ff ff ff ff ff ff f0 5d ff 1d 00 ff ff ff ff ff ff ff ff ff ff ff 20 5e ff 0e 00 20 50 45	P........]...............^....PE
18e0	52 20 3b ff ff ff ff ff e1 4a ff 39 00 ff ff ff ff ff ff ff ff ff ff ff 80 8e ff 1c 00 6b 61 6c	R.;......J.9.................kal
1900	69 65 72 75 6e 67 3a ff 90 5e ff 1d 00 49 46 20 69 6e 64 65 6d 6f 20 ff 90 c2 ff 1c 00 20 20 54	ierung:..^...IF.indemo.........T
1920	48 45 4e 20 6e 67 3a 20 20 b4 ff 1e 00 6b 61 6c 69 65 72 75 6e 67 3a 20 d1 41 0d 20 20 62 65 73	HEN.ng:......kalierung:..A...bes
1940	63 68 72 69 66 74 65 3b 00 5f ff 1c 00 6b 61 6c 69 65 72 75 6e 67 3a 20 00 8f ff 20 00 52 45 50	chrifte;._...kalierung:......REP
1960	20 ff ff ff ff ff ff ff 50 5f ff 13 00 ff ff ff ff ff ff ff ff ff ff ff c0 c2 ff 17 00 20 20 20	........P_......................
1980	20 54 48 45 4e 20 ff ff 50 b4 ff 0f 00 62 65 73 63 68 72 69 66 74 65 3b a0 b4 07 20 20 50 45 52	.THEN...P....beschrifte;.....PER
19a0	20 2e ff ff ff ff ff ff 40 60 ff 0f 00 20 20 20 20 54 48 45 4e 20 ff ff b1 39 ff 1d 00 ff ff ff	........@`.......THEN....9......
19c0	ff ff ff ff ff ff ff ff a0 60 ff 1c 00 ff ff ff ff ff ff ff ff ff ff ff d0 60 ff 13 00 ff ff ff	.........`...............`......
19e0	ff ff ff ff ff ff ff ff e0 b4 ff 1c 00 50 45 52 20 2e ff ff ff ff ff ff 50 8f ff 1e 00 ff ff ff	.............PER........P.......
1a00	ff ff ff ff ff ff ff ff 40 61 0b 62 65 73 63 68 72 69 66 74 65 3a ff ff 01 3a ff 1d 00 ff ff ff	........@a.beschrifte:...:......
1a20	ff ff ff ff ff ff ff ff 41 3a ff 47 00 ff ff ff ff ff ff ff ff ff ff ff 10 c3 ff 1b 00 ff ff ff	........A:.G....................
1a40	ff ff ff ff ff ff ff ff 21 4b ff 48 00 ff ff ff ff ff ff ff ff ff ff ff b0 8f 09 20 20 20 20 30	........!K.H...................0
1a60	2e 30 2c 20 65 3a ff ff 20 62 ff 21 00 ff ff ff ff ff ff ff ff ff ff ff 11 42 0d 79 73 6b 61 6c	.0,.e:...b.!.............B.yskal
1a80	69 65 72 75 6e 67 20 3a 71 4b ff 39 00 ff ff ff ff ff ff ff ff ff ff ff 61 42 ff 1c 00 ff ff ff	ierung.:qK.9............aB......
1aa0	ff ff ff ff ff ff ff ff d1 3a ff 20 00 20 20 30 2e 30 2c 20 ff ff ff ff b1 42 ff 13 00 20 20 20	.........:.....0.0,......B......
1ac0	20 20 20 46 49 20 3b ff 01 3b ff 18 00 6b 61 6c 69 65 72 75 6e 67 20 3a e1 42 ff 10 00 20 20 20	...FI.;..;...kalierung.:.B......
1ae0	20 54 48 45 4e 20 ff ff 31 3b 07 20 20 50 45 52 20 2e 66 74 65 3a 20 ff e0 8f ff 0f 00 73 63 68	.THEN...1;...PER..fte:.......sch
1b00	72 69 66 74 65 3a 20 ff 10 90 ff 1d 00 73 63 68 72 69 66 74 65 3a 20 ff 80 63 ff 1c 00 20 20 20	rifte:.......schrifte:...c......
1b20	20 54 48 45 4e 20 20 ff 50 90 ff 14 00 ff ff ff ff ff ff ff ff ff ff ff 00 64 ff 1c 00 50 45 52	.THEN...P................d...PER
1b40	20 2e ff ff ff ff ff ff 70 c3 0c 62 65 73 63 68 72 69 66 74 65 79 3a ff 70 b5 ff 1d 00 ff ff ff	........p..beschriftey:.p.......
1b60	ff ff ff ff ff ff ff ff b1 4b ff 42 00 ff ff ff ff ff ff ff ff ff ff ff e0 90 ff 29 00 ff ff ff	.........K.B...............)....
1b80	ff ff ff ff ff ff ff ff 30 65 ff 48 00 20 20 20 20 20 20 46 49 20 ff ff c0 c3 09 20 20 20 20 30	........0e.H.......FI..........0
1ba0	2e 30 2c 20 65 79 3a 20 30 91 ff 21 00 20 20 20 20 20 20 54 48 45 4e 20 b0 65 0d 6c 69 65 66 65	.0,.ey:.0..!.......THEN..e.liefe
1bc0	72 65 6b 72 65 75 7a 3a 10 c4 ff 14 00 6b 61 6c 69 65 72 75 6e 67 3a 20 00 b6 ff 20 00 20 20 20	rekreuz:.....kalierung:.........
1be0	20 20 20 45 4c 53 45 20 b0 91 ff 12 00 20 20 30 2e 30 2c 20 ff ff ff ff 70 66 ff 1b 00 20 20 20	...ELSE........0.0,.....pf......
1c00	20 46 49 20 2e 20 ff ff 60 c4 0b 20 20 74 72 61 6e 73 66 65 72 2e 7a 3a 00 92 ff 21 00 20 20 20	.FI.....`....transfer.z:...!....
1c20	20 50 45 52 2e 20 ff ff c0 66 ff 2c 00 52 45 50 20 50 45 52 2e 20 ff ff 30 92 ff 19 00 ff ff ff	.PER.....f.,.REP.PER....0.......
1c40	ff ff ff ff ff ff ff ff 61 3b ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 40 67 ff 2c 00 74 72 61	........a;..............@g.,.tra
1c60	6e 73 66 65 72 2e ff ff 60 92 ff 19 00 ff ff ff ff ff ff ff ff ff ff ff 90 67 ff 13 00 20 20 20	nsfer...`................g......
1c80	20 45 4c 53 45 20 ff ff 01 4c ff 37 00 ff ff ff ff ff ff ff ff ff ff ff 41 4c ff 38 00 ff ff ff	.ELSE....L.7............AL.8....
1ca0	ff ff ff ff ff ff ff ff c0 92 ff 1a 00 20 20 46 49 20 3b ff ff ff ff ff 20 68 ff 45 00 50 45 52	...............FI.;......h.E.PER
1cc0	20 3b ff ff ff ff ff ff 70 68 ff 0e 00 2e ff ff ff ff ff ff ff ff ff ff 10 93 ff 38 00 ff ff ff	.;......ph.................8....
1ce0	ff ff ff ff ff ff ff ff 00 69 0c 20 20 49 4e 54 20 56 41 52 20 69 3b ff 60 93 ff 15 00 ff ff ff	.........i...INT.VAR.i;.`.......
1d00	ff ff ff ff ff ff ff ff 80 69 ff 24 00 ff ff ff ff ff ff ff ff ff ff ff d0 69 ff 26 00 ff ff ff	.........i.$.............i.&....
1d20	ff ff ff ff ff ff ff ff b0 93 06 20 20 52 45 50 20 56 41 52 20 69 3b ff 60 6a ff 18 00 ff ff ff	.............REP.VAR.i;.`j......
1d40	ff ff ff ff ff ff ff ff c0 c4 07 20 20 50 45 52 20 3b 4e 20 ff ff ff ff 90 b6 03 20 20 2e ff ff	.............PER.;N.............
1d60	ff ff ff ff ff ff ff ff a1 3b ff 14 00 52 45 50 20 ff ff ff ff ff ff ff 00 94 0c 20 20 49 46 20	.........;...REP.............IF.
1d80	69 6e 64 65 6d 6f 20 ff d1 3b 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff 50 6b ff 15 00 2e ff ff	indemo...;.....THEN.....Pk......
1da0	ff ff ff ff ff ff ff ff e0 b6 06 20 20 46 49 20 3b ff ff ff ff ff ff ff 10 b7 ff 15 00 49 46 20	.............FI.;............IF.
1dc0	69 6e 64 65 6d 6f 20 ff 30 94 06 20 20 52 45 50 20 45 4e 20 4e ff ff ff 21 3c ff 1b 00 20 46 49	indemo..0....REP.EN.N...!<....FI
1de0	3b 20 ff ff ff ff ff ff 50 94 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff 51 3c ff 1a 00 20 46 49	;.......P........THEN...Q<....FI
1e00	3b 20 48 45 4e ff ff ff 70 94 ff 1c 00 52 45 50 20 54 48 45 4e ff ff ff 21 43 0b 20 20 20 20 20	;.HEN...p....REP.THEN...!C......
1e20	20 54 48 45 4e 20 ff ff 81 4c ff 4b 00 20 20 20 20 54 48 45 4e 20 ff ff d1 4c ff 29 00 20 78 20	.THEN....L.K.....THEN....L.)..x.
1e40	65 72 67 2e 20 ff ff ff a1 3c ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 40 6c ff 1b 00 20 20 20	erg......<..............@l......
1e60	20 54 48 45 4e 20 ff ff 61 43 ff 16 00 ff ff ff ff ff ff ff ff ff ff ff e1 3c 0b 20 20 20 20 20	.THEN...aC...............<......
1e80	20 54 48 45 4e 20 ff ff e0 94 ff 13 00 20 20 20 20 54 48 45 4e 20 ff ff b0 6c ff 1c 00 20 46 49	.THEN............THEN....l....FI
1ea0	3b 20 ff ff ff ff ff ff 11 3d 0b 20 20 20 20 20 20 45 4c 53 45 20 ff ff 41 3d ff 1c 00 20 20 20	;........=.......ELSE...A=......
1ec0	20 54 48 45 4e 20 ff ff b1 43 08 20 20 20 20 20 46 49 20 2e 20 ff ff ff f1 43 07 20 20 50 45 52	.THEN....C......FI.......C...PER
1ee0	20 2e 48 45 4e 20 ff ff 10 c5 ff 0f 00 20 78 20 65 72 67 2e 20 ff ff ff 60 b7 06 20 20 52 45 50	..HEN.........x.erg.....`....REP
1f00	20 72 67 2e 20 ff ff ff a1 3d ff 17 00 ff ff ff ff ff ff ff ff ff ff ff 30 6d ff 39 00 ff ff ff	.rg......=..............0m.9....
1f20	ff ff ff ff ff ff ff ff a0 95 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff 90 6d ff 1a 00 20 66 65	.................THEN....m....fe
1f40	6e 73 74 65 72 ff ff ff f1 3d 0b 20 20 20 20 20 20 45 4c 53 45 20 ff ff 50 c5 ff 13 00 20 20 20	nster....=.......ELSE...P.......
1f60	20 20 20 46 49 20 3b ff c0 b7 ff 1c 00 20 66 65 6e 73 74 65 72 ff ff ff 00 96 08 20 20 20 20 46	...FI.;.......fenster..........F
1f80	49 20 3b 45 4e 20 3b ff 21 3e 07 20 20 50 45 52 20 3b 41 52 20 69 3b ff 50 6e 03 20 20 2e 4e 54	I.;EN.;.!>...PER.;AR.i;.Pn....NT
1fa0	20 56 41 52 20 69 3b ff 40 96 ff 14 00 52 45 50 ff ff ff ff ff ff ff ff b0 6e ff 1c 00 20 20 20	.VAR.i;.@....REP.........n......
1fc0	20 54 48 45 4e 20 ff ff 41 44 ff 12 00 20 20 20 20 20 54 48 45 4e 20 ff 71 44 ff 1a 00 50 45 52	.THEN...AD........THEN..qD...PER
1fe0	3b 2e 20 ff ff ff ff ff 71 3e ff 15 00 50 45 52 3b 2e 20 ff ff ff ff ff b0 96 ff 16 00 ff ff ff	;.......q>...PER;...............
2000	ff ff ff ff ff ff ff ff 20 6f 03 7a 5a 7a 45 50 20 ff ff ff ff ff ff ff c1 44 ff 20 00 52 45 50	.........o.zZzEP.........D...REP
2020	20 ff ff ff ff ff ff ff 50 6f 0b 20 20 20 20 20 20 20 20 46 49 20 20 ff 00 97 ff 16 00 ff ff ff	........Po.........FI...........
2040	ff ff ff ff ff ff ff ff 90 6f 0b 20 20 20 20 20 20 54 48 45 4e 20 20 ff 50 97 ff 13 00 50 45 52	.........o.......THEN...P....PER
2060	20 2e 54 48 45 4e 20 ff e0 6f ff 1c 00 ff ff ff ff ff ff ff ff ff ff ff 80 97 0b 20 20 20 20 20	..THEN...o......................
2080	20 45 4c 53 45 20 ff ff b0 97 ff 1c 00 2e ff ff ff ff ff ff ff ff ff ff f0 97 08 20 20 20 20 20	.ELSE...........................
20a0	46 49 20 61 75 73 3a ff a0 70 07 20 20 50 45 52 20 2e ff ff ff ff ff ff f0 70 ff 0f 00 ff ff ff	FI.aus:..p...PER.........p......
20c0	ff ff ff ff ff ff ff ff 40 98 06 20 20 52 45 50 20 ff ff ff ff ff ff ff 80 98 ff 17 00 ff ff ff	........@....REP................
20e0	ff ff ff ff ff ff ff ff 90 71 ff 34 00 ff ff ff ff ff ff ff ff ff ff ff d0 98 0b 20 20 20 20 20	.........q.4....................
2100	20 54 48 45 4e 20 ff ff 00 72 ff 1a 00 ff ff ff ff ff ff ff ff ff ff ff d0 c5 0b 20 20 20 20 20	.THEN....r......................
2120	20 45 4c 53 45 20 ff ff 00 a4 ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 50 a4 08 20 20 20 20 46	.ELSE...................P......F
2140	49 20 3b ff ff ff ff ff b0 72 ff 18 00 ff ff ff ff ff ff ff ff ff ff ff e0 72 07 20 20 50 45 52	I.;......r...............r...PER
2160	20 2e ff ff ff ff ff ff 10 73 ff 14 00 ff ff ff ff ff ff ff ff ff ff ff 70 99 ff 1c 00 ff ff ff	.........s..............p.......
2180	ff ff ff ff ff ff ff ff 70 73 ff 12 00 ff ff ff ff ff ff ff ff ff ff ff 90 a4 ff 1a 00 52 45 50	........ps...................REP
21a0	20 ff ff ff ff ff ff ff c0 99 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff 10 74 ff 19 00 50 45 52	.........................t...PER
21c0	20 3b 46 49 20 ff ff ff e0 a4 ff 30 00 2e 20 20 20 20 46 49 20 ff ff ff f1 44 ff 4c 00 20 50 45	.;FI.......0......FI.....D.L..PE
21e0	52 2e 46 49 20 ff ff ff 41 45 ff 31 00 20 50 45 52 2e ff ff ff ff ff ff 70 74 09 20 20 20 20 54	R.FI....AE.1..PER.......pt.....T
2200	48 45 4e 20 ff ff ff ff 90 74 ff 18 00 52 45 50 20 ff ff ff ff ff ff ff 81 45 ff 2e 00 ff ff ff	HEN......t...REP.........E......
2220	ff ff ff ff ff ff ff ff 20 c6 09 20 20 20 20 54 48 45 4e 20 ff ff ff ff b1 45 ff 4a 00 20 20 20	...............THEN......E.J....
2240	20 54 48 45 4e 20 ff ff 50 9a ff 29 00 ff ff ff ff ff ff ff ff ff ff ff 40 75 06 20 20 46 49 20	.THEN...P..)............@u...FI.
2260	2e 20 46 49 20 ff ff ff 80 75 ff 19 00 20 20 20 20 54 48 45 4e 20 ff ff c0 75 06 20 20 52 45 50	..FI.....u.......THEN....u...REP
2280	20 2e ff ff ff ff ff ff 20 a5 ff 24 00 20 20 20 54 48 45 4e ff ff ff ff c1 3e 07 20 20 50 45 52	...........$....THEN.....>...PER
22a0	20 2e 45 4e ff ff ff ff 70 a8 ff 20 00 20 20 20 54 48 45 4e ff ff ff ff 10 b8 ff 0e 00 46 49 2e	..EN....p.......THEN.........FI.
22c0	20 48 45 4e ff ff ff ff 50 b8 06 20 20 52 45 50 20 ff ff ff ff ff ff ff 90 b8 ff 13 00 20 20 20	.HEN....P....REP................
22e0	20 52 45 50 ff ff ff ff e0 9a ff 18 00 20 20 20 20 52 45 50 ff ff ff ff 01 46 ff 3c 00 20 20 20	.REP.............REP.....F.<....
2300	54 48 45 4e 2e ff ff ff 60 c6 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff 20 c8 ff 1a 00 20 20 20	THEN....`........THEN...........
2320	20 20 20 46 49 20 ff ff 10 b9 ff 26 00 46 49 2e 20 50 20 ff ff ff ff ff 40 9b 0b 20 20 20 20 20	...FI......&.FI..P......@.......
2340	20 54 48 45 4e 20 ff ff 60 9b ff 15 00 20 20 20 20 52 45 50 ff ff ff ff 11 3f ff 21 00 20 20 20	.THEN...`........REP.....?.!....
2360	20 52 45 50 ff ff ff ff 60 77 ff 25 00 20 20 20 20 50 45 52 2e ff ff ff c0 a5 ff 22 00 20 20 20	.REP....`w.%.....PER......."....
2380	20 50 45 52 2e ff ff ff b0 9b 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff e0 9b ff 15 00 20 20 20	.PER.............THEN...........
23a0	20 54 48 45 4e 20 ff ff f0 77 ff 33 00 20 20 52 45 50 20 ff ff ff ff ff 41 46 ff 40 00 20 20 46	.THEN....w.3...REP......AF.@...F
23c0	49 20 ff ff ff ff ff ff 60 78 ff 0f 00 50 45 52 20 2e ff ff ff ff ff ff 60 9c ff 1e 00 ff ff ff	I.......`x...PER........`.......
23e0	ff ff ff ff ff ff ff ff d0 78 ff 0f 00 ff ff ff ff ff ff ff ff ff ff ff a0 9c ff 2c 00 ff ff ff	.........x.................,....
2400	ff ff ff ff ff ff ff ff 50 79 0c 20 20 20 20 20 20 20 20 46 49 20 3b ff f0 a5 ff 1c 00 ff ff ff	........Py.........FI.;.........
2420	ff ff ff ff ff ff ff ff d0 79 0b 20 20 20 20 20 20 54 48 45 4e 20 ff ff 91 46 ff 4b 00 ff ff ff	.........y.......THEN....F.K....
2440	ff ff ff ff ff ff ff ff 30 7a ff 13 00 ff ff ff ff ff ff ff ff ff ff ff 60 9d ff 1a 00 7a 65 69	........0z..............`....zei
2460	67 65 6d 65 6e 75 65 2e a0 9d ff 18 00 ff ff ff ff ff ff ff ff ff ff ff d0 7a 0b 20 20 20 20 20	gemenue..................z......
2480	20 54 48 45 4e 20 ff ff 80 a6 ff 15 00 ff ff ff ff ff ff ff ff ff ff ff e1 46 ff 4c 00 7a ff ff	.THEN....................F.L.z..
24a0	ff ff ff ff ff ff ff ff 30 9e ff 15 00 ff ff ff ff ff ff ff ff ff ff ff b0 7b ff 26 00 ff ff ff	........0................{.&....
24c0	ff ff ff ff ff ff ff ff d0 a6 ff 1b 00 ff ff ff ff ff ff ff ff ff ff ff a0 c6 0b 20 20 20 20 20	................................
24e0	20 54 48 45 4e 20 ff ff 50 b9 ff 38 00 ff ff ff ff ff ff ff ff ff ff ff a0 7c 07 20 20 20 20 46	.THEN...P..8.............|.....F
2500	49 20 46 49 20 ff ff ff 20 a7 07 20 20 50 45 52 20 2e 46 49 20 ff ff ff f0 c6 0c 67 69 62 6d 65	I.FI.........PER..FI.......gibme
2520	6e 75 65 61 75 73 3a ff e0 b9 ff 15 00 20 50 45 52 2e ff ff ff ff ff ff 30 ba ff 1f 00 ff ff ff	nueaus:.......PER.......0.......
2540	ff ff ff ff ff ff ff ff 70 ba ff 20 00 20 20 50 45 52 3b 20 ff ff ff ff 00 9f ff 20 00 20 20 50	........p......PER;............P
2560	45 52 3b 20 ff ff ff ff 50 7d ff 20 00 20 20 20 20 20 46 49 20 ff ff ff 50 9f ff 20 00 20 50 45	ER;.....P}........FI....P.....PE
2580	52 2e 46 49 20 ff ff ff e0 7d 0d 20 20 7a 65 69 67 65 6d 65 6e 75 65 3b 30 7e 01 2e 00 ff ff ff	R.FI.....}...zeigemenue;0~......
25a0	ff ff ff ff ff ff ff ff 80 7e ff 1e 00 ff ff ff ff ff ff ff ff ff ff ff 60 a7 ff 21 00 ff ff ff	.........~..............`..!....
25c0	ff ff ff ff ff ff ff ff 40 c7 ff 20 00 ff ff ff ff ff ff ff ff ff ff ff f0 ba ff 28 00 ff ff ff	........@..................(....
25e0	ff ff ff ff ff ff ff ff 40 bb ff 16 00 ff ff ff ff ff ff ff ff ff ff ff 90 bb 03 7a 5a 7a ff ff	........@..................zZz..
2600	ff ff ff ff ff ff ff ff b0 a7 ff 22 00 7a ff ff ff ff ff ff ff ff ff ff e0 bb ff 2e 00 7a ff ff	...........".z...............z..
2620	ff ff ff ff ff ff ff ff 10 bc ff 24 00 7a ff ff ff ff ff ff ff ff ff ff 90 c7 ff 38 00 ff ff ff	...........$.z.............8....
2640	ff ff ff ff ff ff ff ff 70 bc ff 17 00 ff ff ff ff ff ff ff ff ff ff ff b0 bc 03 7a 5a 7a ff ff	........p..................zZz..
2660	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..................
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 0e 00 64 20 63 61 31 20 3a 3d 20 2d 6b 31 3b 20	..................d.ca1.:=.-k1;.
26c0	1e 00 64 20 63 61 32 20 3a 3d 20 2d 6b 32 2a 63 61 32 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	..d.ca2.:=.-k2*ca2;.............
26e0	1e 00 64 20 63 61 33 20 3a 3d 20 2d 6b 33 2a 63 61 33 2a 63 61 33 3b 20 ff ff ff ff ff ff ff ff	..d.ca3.:=.-k3*ca3*ca3;.........
2700	1e 00 76 32 20 3a 3d 20 6b 32 20 2a 20 63 61 32 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	..v2.:=.k2.*.ca2;...............
2720	1e 00 76 33 20 3a 3d 20 6b 33 20 2a 20 63 61 33 2a 63 61 33 3b 20 ff ff ff ff ff ff ff ff ff ff	..v3.:=.k3.*.ca3*ca3;...........
2740	3e 00 64 20 63 61 31 20 3a 3d 20 2d 6b 31 3b 20 48 45 4e 20 64 20 63 61 31 20 3a 3d 20 30 2e 30	>.d.ca1.:=.-k1;.HEN.d.ca1.:=.0.0
2760	20 45 4c 53 45 20 64 20 63 61 31 20 3a 3d 20 2d 6b 31 20 46 49 3b 20 20 ff ff ff ff ff ff ff ff	.ELSE.d.ca1.:=.-k1.FI;..........
2780	3e 00 50 41 43 4b 45 54 20 64 73 20 44 45 46 49 4e 45 53 20 64 61 72 73 74 65 6c 6c 75 6e 67 20	>.PACKET.ds.DEFINES.darstellung.
27a0	34 3a 20 20 20 20 20 20 20 20 20 20 28 2a 20 32 33 2e 31 2e 38 37 20 2a 29 ff ff ff ff ff ff ff	4:..........(*.23.1.87.*).......
27c0	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..........::
27e0	20 73 74 64 20 62 72 65 69 74 65 3b ff ff ff ff 2e 00 4c 45 54 20 6d 65 6e 75 65 64 69 6d 65 6e	.std.breite;......LET.menuedimen
2800	73 69 6f 6e 20 20 20 20 20 20 20 20 20 3d 20 31 32 2c 74 64 20 62 72 65 69 74 65 3b ff ff ff ff	sion.........=.12,td.breite;....
2820	2e 00 20 20 20 20 65 73 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......esc....................=."
2840	22 32 37 22 22 2c 20 ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 61 62 62 72 75 63 68 74 61 73	"27"",................abbruchtas
2860	74 65 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 61 22 2c 20 22 2c 20 ff ff ff ff ff ff ff ff ff	te...........=."a",.",..........
2880	2e 00 20 20 20 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 20 74 61 73 74 65 20 20 20 3d 20 22	......modellgroessen.taste...=."
28a0	73 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 73 65 6e 64 65 74 61 73 74 65	s",...................sendetaste
28c0	20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 78 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	.............=."x",.............
28e0	2e 00 20 20 20 20 77 65 69 74 65 72 74 61 73 74 65 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......weitertaste............=."
2900	77 22 2c 73 65 6c 20 70 6c 6f 74 74 65 72 22 2c 2e 00 20 20 20 20 70 6c 6f 74 74 61 73 6b 20 20	w",sel.plotter",......plottask..
2920	20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 73 69 6d 73 65 6c 20 70 6c 6f 74 74 65 72 22 2c	.............=."simsel.plotter",
2940	2e 00 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 20 74 61 73 74 65 20 20 3d 20 22	......darstellungsart.taste..=."
2960	6e 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 6d 65 6e 75 65 74 61 73 74 65	n",...................menuetaste
2980	20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 6d 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	.............=."m",.............
29a0	2e 00 20 20 20 20 7a 65 69 67 65 20 74 61 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......zeige.tab..............=."
29c0	74 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 70 68 61 73	t",...................zeige.phas
29e0	65 6e 64 20 20 20 20 20 20 20 20 20 20 3d 20 22 70 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	end..........=."p",.............
2a00	2e 00 20 20 20 20 7a 65 69 67 65 20 7a 65 69 74 64 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22	......zeige.zeitd............=."
2a20	7a 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 75 73 61	z",...................zeige.zusa
2a40	74 7a 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 2b 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff	tz...........=."+",.............
2a60	2e 00 20 20 20 20 6d 64 6c 67 72 6f 65 73 73 65 6e 20 65 69 6e 62 6c 20 20 20 20 20 20 3d 20 22	......mdlgroessen.einbl......=."
2a80	65 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 72 75 62 6f 75 74 20 20 20 20	e",...................rubout....
2aa0	20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 6c 22 3b 2c 20 ff ff ff ff ff ff ff ff ff ff ff	.............=."l";,............
2ac0	2e 00 4c 45 54 20 78 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	..LET.x.achsen.bez............=.
2ae0	22 63 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 79 20 61 63 68 73 65 6e 20 62	"c",..................y.achsen.b
2b00	65 7a 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 22 76 22 2c 20 ff ff ff ff ff ff ff ff ff ff ff	ez............=."v",............
2b20	2e 00 20 20 20 20 6c 65 67 65 6e 64 65 6e 74 65 78 74 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	......legendentext............=.
2b40	37 33 2c 20 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	73,...................fusszeile.
2b60	6c 65 65 72 20 20 20 20 20 20 20 20 20 20 3d 20 30 20 2c ff ff ff ff ff ff ff ff ff ff ff ff ff	leer..........=.0.,.............
2b80	2e 00 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	......steuerzeile.............=.
2ba0	32 2c 20 20 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	2,....................steuerzeil
2bc0	65 20 64 65 6d 6f 20 20 20 20 20 20 20 20 3d 20 33 2c 20 2c ff ff ff ff ff ff ff ff ff ff ff ff	e.demo........=.3,.,............
2be0	2e 00 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	......kopfzeile...............=.
2c00	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
2c20	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.,............
2c40	2e 00 20 20 20 20 6d 61 78 20 6b 75 72 76 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	......max.kurven..............=.
2c60	33 20 2c 20 2c ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 61 63 68 73 65 6e 61 62 73 74	3.,.,.................achsenabst
2c80	61 6e 64 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 2e 30 35 2c ff ff ff ff ff ff ff ff ff ff ff	and...........=.0.05,...........
2ca0	3e 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	>.....achsenabstand...........=.
2cc0	30 2e 30 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	0.05,..(*.in.mm.*)..............
2ce0	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.=.
2d00	38 2c 20 2c 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 65 70 73 69 6c 6f 6e 20 20 20	8,.,..................epsilon...
2d20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 2e 35 2c 20 ff ff ff ff ff ff ff ff ff ff ff	..............=.0.5,............
2d40	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.=.
2d60	38 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 6e 61 63 68 6b 6f 6d 6d 61 73	8,....................nachkommas
2d80	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 ff	tellen........=.2,.eilennummer;.
2da0	2e 00 20 20 20 20 76 6f 72 6b 6f 6d 6d 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20	......vorkomma................=.
2dc0	35 3b 54 20 20 56 41 52 20 73 65 69 74 65 2c ff 2e 00 52 4f 57 20 6d 65 6e 75 65 64 69 6d 65 6e	5;T..VAR.seite,...ROW.menuedimen
2de0	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;.
2e00	2e 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 4b 55 52	.............................KUR
2e20	56 45 20 56 41 52 20 6b 75 72 76 65 29 3a 20 ff 4e 00 20 20 20 49 4e 54 20 56 41 52 20 20 20 63	VE.VAR.kurve):..N....INT.VAR...c
2e40	31 20 3a 3a 20 31 2c 20 63 32 20 3a 3a 20 32 20 2c 20 63 33 20 3a 3a 20 33 2c 20 20 20 20 20 20	1.::.1,.c2.::.2.,.c3.::.3,......
2e60	20 20 20 20 20 20 28 2a 20 20 76 61 72 69 61 62 6c 65 6e 20 20 20 2a 29 ff ff ff ff ff ff ff ff	......(*..variablen...*)........
2e80	4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 76 31 20 3a 3a 20 34 2c 20 76 32 20 3a 3a 20 35 20	N..............v1.::.4,.v2.::.5.
2ea0	2c 20 76 33 20 3a 3a 20 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 63 6f 20 76 61 72 69	,.v3.::.6;............(*.co.vari
2ec0	61 62 6c 65 6e 20 2a 29 ff ff ff ff ff ff ff ff 1e 00 20 20 20 52 45 41 4c 20 56 41 52 20 20 75	ablen.*).............REAL.VAR..u
2ee0	31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 3b ff ff 2e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52	1,.u2,.z1,.z2;.......PICTURE.VAR
2f00	20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b ff ff ff ff ff ff ff ff ff ff	.kreuz.:=.nilpicture.;..........
2f20	3e 00 20 20 20 67 65 62 65 20 61 75 66 20 62 69 6c 64 73 63 68 69 72 6d 20 61 75 73 20 28 73 65	>....gebe.auf.bildschirm.aus.(se
2f40	69 74 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff	ite,.modellkurzbezeichnung,.....
2f60	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 6b 6f	>.............................ko
2f80	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 2c 20 ff ff ff ff	pfzeile,.fusszeile.leer);.,.....
2fa0	1e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 72 65 75 7a 3b 20 ff ff ff ff ff ff ff ff ff ff ff	.....schreibe.kreuz;............
2fc0	1e 00 20 20 20 73 63 68 72 65 69 62 65 20 6b 72 65 75 7a 3b 20 ff ff ff ff ff ff ff ff ff ff ff	.....schreibe.kreuz;............
2fe0	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
3000	72 69 66 74 75 6e 67 3b 20 ff ff ff ff ff ff ff 4e 00 20 20 20 7a 65 69 63 68 6e 65 20 75 6e 64	riftung;........N....zeichne.und
3020	20 70 6c 6f 74 74 65 20 6b 75 72 76 65 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e	.plotte.kurve.(seite,.strukt1fen
3040	73 74 65 72 2c 20 6b 75 72 76 65 2c 20 63 31 2c 20 76 31 2c 20 31 29 3b 20 ff ff ff ff ff ff ff	ster,.kurve,.c1,.v1,.1);........
3060	4e 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 28 73	N....zeichne.und.plotte.kurve.(s
3080	65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6b 75 72 76 65 2c 20 63 32 2c	eite,.strukt1fenster,.kurve,.c2,
30a0	20 76 32 2c 20 32 29 3b 20 ff ff ff ff ff ff ff 4e 00 20 20 20 7a 65 69 63 68 6e 65 20 75 6e 64	.v2,.2);........N....zeichne.und
30c0	20 70 6c 6f 74 74 65 20 6b 75 72 76 65 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e	.plotte.kurve.(seite,.strukt1fen
30e0	73 74 65 72 2c 20 6b 75 72 76 65 2c 20 63 33 2c 20 76 33 2c 20 33 29 3b 20 ff ff ff ff ff ff ff	ster,.kurve,.c3,.v3,.3);........
3100	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
3120	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:
3140	4e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a 72 20 66 65 73 74 20 28 73 65 69 74 65 2c 20 75	N.initialisiere:r.fest.(seite,.u
3160	31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 29	1,.u2,.z1,.z2,.strukt.1.fenster)
3180	3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 0e 00 20 20 20 62 65 67 69 6e 20 70 6c 6f 74 3b	;....................begin.plot;
31a0	1e 00 20 20 20 76 69 65 77 70 6f 72 74 20 28 75 31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b 20	.....viewport.(u1,.u2,.z1,.z2);.
31c0	2e 00 20 20 20 76 69 65 77 70 6f 72 74 20 28 75 31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b 20	.....viewport.(u1,.u2,.z1,.z2);.
31e0	20 31 20 66 65 6e 73 74 65 72 29 3b ff ff ff ff 1e 00 20 20 20 76 69 65 77 70 6f 72 74 20 28 75	.1.fenster);.........viewport.(u
3200	31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b 20 1e 00 20 20 20 70 65 6e 20 20 28 6b 72 65 75 7a	1,.u2,.z1,.z2);......pen..(kreuz
3220	2c 20 31 29 3b 20 ff 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	,.1);................pen..(kreuz
3240	2c 20 31 29 3b 20 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 70 65 6e 20 20 28 6b 72 65 75 7a	,.1);...........N....pen..(kreuz
3260	2c 20 31 29 3b 20 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	,.1);..strukt.1.fenster,.kreuz);
3280	20 2e 20 78 20 78 2c 6d 69 6e 20 79 2c 6d 61 78 20 79 20 29 3b ff ff ff ff ff ff ff ff ff ff ff	...x.x,min.y,max.y.);...........
32a0	3e 00 20 20 20 70 65 6e 20 20 28 6b 72 65 75 7a 2c 20 31 29 3b 20 20 73 74 72 75 6b 74 20 31 20	>....pen..(kreuz,.1);..strukt.1.
32c0	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);................
32e0	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:.............
3300	2e 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,
3320	6d 61 78 20 79 3b 20 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	max.y;..........>....REAL.VAR.mi
3340	6e 20 78 2c 6d 61 78 20 78 2c 6d 69 6e 20 79 2c 6d 61 78 20 79 3b 20 72 74 65 20 28 6b 75 72 76	n.x,max.x,min.y,max.y;.rte.(kurv
3360	65 29 20 53 55 42 20 76 32 2c ff ff ff ff ff ff 3e 00 20 20 20 6d 61 78 20 79 20 3a 3d 20 6d 69	e).SUB.v2,......>....max.y.:=.mi
3380	6e 20 28 67 72 6f 65 73 73 74 65 73 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	n.(groesstes.(maximalwerte.(kurv
33a0	65 29 20 53 55 42 20 76 31 2c 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.v1,,.....>...............
33c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	..............maximalwerte.(kurv
33e0	65 29 20 53 55 42 20 76 32 2c 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.v2,,.....>...............
3400	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	..............maximalwerte.(kurv
3420	65 29 20 53 55 42 20 76 33 29 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.v3),.....>...............
3440	20 20 20 6b 6c 65 69 6e 73 74 65 73 20 28 72 61 6e 64 20 6f 62 65 6e 20 20 20 20 53 55 42 20 76	...kleinstes.(rand.oben....SUB.v
3460	31 2c 20 53 55 42 20 76 33 29 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	1,.SUB.v3),.....>...............
3480	20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 20 6f 62 65 6e 20 20 20 20 53 55 42 20 76	..............rand.oben....SUB.v
34a0	32 2c 20 53 55 42 20 63 31 2c ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	2,.SUB.c1,......>...............
34c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 20 6f 62 65 6e 20 20 20 20 53 55 42 20 76	..............rand.oben....SUB.v
34e0	33 29 29 3b 55 42 20 63 32 2c ff ff ff ff ff ff 3e 00 20 20 20 6d 61 78 20 78 20 3a 3d 20 6d 69	3));UB.c2,......>....max.x.:=.mi
3500	6e 20 28 67 72 6f 65 73 73 74 65 73 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	n.(groesstes.(maximalwerte.(kurv
3520	65 29 20 53 55 42 20 63 31 2c 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.c1,,.....>...............
3540	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	..............maximalwerte.(kurv
3560	65 29 20 53 55 42 20 63 32 2c 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.c2,,.....>...............
3580	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	..............maximalwerte.(kurv
35a0	65 29 20 53 55 42 20 63 33 29 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.c3),.....>...............
35c0	20 20 20 6b 6c 65 69 6e 73 74 65 73 20 28 72 61 6e 64 20 6f 62 65 6e 20 20 20 20 53 55 42 20 63	...kleinstes.(rand.oben....SUB.c
35e0	31 2c 20 53 55 42 20 63 33 29 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	1,.SUB.c3),.....>...............
3600	20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 20 6f 62 65 6e 20 20 20 20 53 55 42 20 63	..............rand.oben....SUB.c
3620	32 2c 20 53 55 42 20 76 31 2c ff ff ff ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65	2,.SUB.v1,......>.kernvonzeigeme
3640	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72	nuezurzusatzdarst...END.PROC.dar
3660	73 74 65 6c 6c 75 6e 67 34 20 3b 20 ff ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65	stellung4.;.....>.kernvonzeigeme
3680	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72	nuezurzusatzdarst...END.PROC.dar
36a0	73 74 65 6c 6c 75 6e 67 34 20 3b 20 ff ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65	stellung4.;.....>.kernvonzeigeme
36c0	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72	nuezurzusatzdarst...END.PROC.dar
36e0	73 74 65 6c 6c 75 6e 67 34 20 3b 20 ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	stellung4.;.....>...............
3700	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	..............minimalwerte.(kurv
3720	65 29 20 53 55 42 20 76 33 29 2c ff ff ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65	e).SUB.v3),.....>.kernvonzeigeme
3740	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72	nuezurzusatzdarst...END.PROC.dar
3760	73 74 65 6c 6c 75 6e 67 34 20 3b 20 ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	stellung4.;.....>...............
3780	20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 20 75 6e 74 65 6e 20 20 20 53 55 42 20 76	..............rand.unten...SUB.v
37a0	32 2c 20 53 55 42 20 63 31 2c ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	2,.SUB.c1,......>...............
37c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 20 75 6e 74 65 6e 20 20 20 53 55 42 20 76	..............rand.unten...SUB.v
37e0	33 29 29 3b 55 42 20 63 32 2c ff ff ff ff ff ff 3e 00 20 20 20 6d 69 6e 20 78 20 3a 3d 20 6d 61	3));UB.c2,......>....min.x.:=.ma
3800	78 20 28 6b 6c 65 69 6e 73 74 65 73 20 28 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	x.(kleinstes.(minimalwerte.(kurv
3820	65 29 20 53 55 42 20 63 31 2c 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.c1,,.....>...............
3840	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	..............minimalwerte.(kurv
3860	65 29 20 53 55 42 20 63 32 2c 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.c2,,.....>...............
3880	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76	..............minimalwerte.(kurv
38a0	65 29 20 53 55 42 20 63 33 29 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e).SUB.c3),.....>...............
38c0	20 20 20 67 72 6f 65 73 73 74 65 73 20 28 72 61 6e 64 20 75 6e 74 65 6e 20 20 20 53 55 42 20 63	...groesstes.(rand.unten...SUB.c
38e0	31 2c 20 53 55 42 20 63 33 29 2c ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	1,.SUB.c3),.....>...............
3900	20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 20 75 6e 74 65 6e 20 20 20 53 55 42 20 63	..............rand.unten...SUB.c
3920	32 2c 20 79 29 3b 20 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	2,.y);..........>...............
3940	20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 20 75 6e 74 65 6e 20 20 20 53 55 42 20 63	..............rand.unten...SUB.c
3960	33 29 29 3b 29 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 6d 69 6e 20 79 20 3a 3d 20 6d 69	3)););..........>....min.y.:=.mi
3980	6e 20 79 20 2d 20 61 63 68 73 65 6e 61 62 73 74 61 6e 64 20 2a 20 28 6d 61 78 20 79 20 2d 20 6d	n.y.-.achsenabstand.*.(max.y.-.m
39a0	69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 49 46 20 20 6d 69 6e 20 78 20 3d	in.y);...............IF..min.x.=
39c0	20 6d 61 78 20 78 20 ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6d 69 6e 20 78 20	.max.x....................min.x.
39e0	3a 3d 20 6d 69 6e 20 78 20 2d 20 65 70 73 69 6c 6f 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	:=.min.x.-.epsilon;.............
3a00	2e 00 20 20 20 54 48 45 4e 20 6d 61 78 20 78 20 3a 3d 20 6d 69 6e 20 78 20 2b 20 65 70 73 69 6c	.....THEN.max.x.:=.min.x.+.epsil
3a20	6f 6e 3b 20 ff ff ff 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	on;..................IF..min.y.=
3a40	20 6d 61 78 20 79 20 ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 49 46 20 20 6d 69 6e 20 79 20 3d	.max.y...............IF..min.y.=
3a60	20 6d 61 78 20 79 20 79 20 2d 20 65 70 73 69 6c 6f 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	.max.y.y.-.epsilon;.............
3a80	2e 00 20 20 20 54 48 45 4e 20 6d 61 78 20 79 20 3a 3d 20 6d 69 6e 20 79 20 2b 20 65 70 73 69 6c	.....THEN.max.y.:=.min.y.+.epsil
3aa0	6f 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 46 4f 52 20 69 20 46 52 4f 4d 20 31	on;.............N...FOR.i.FROM.1
3ac0	20 55 50 54 4f 20 6d 61 78 6b 75 72 76 65 6e 20 52 45 50 20 20 77 65 72 74 2c 20 30 2e 30 2c 20	.UPTO.maxkurven.REP..wert,.0.0,.
3ae0	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);.
3b00	4e 00 20 20 20 20 6c 69 6e 69 65 20 28 69 29 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 70 69	N.....linie.(i).:=.nilpicture;pi
3b20	63 74 75 72 65 3b 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	cture;min.x,.max.x,.min.y,.max.y
3b40	29 3b 20 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 52 4f 57 20 6d 61 78 20 6b 75 72	);...................ROW.max.kur
3b60	76 65 6e 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 69 6e 69 65 3b 20 ff ff ff ff ff ff ff ff ff	ven.PICTURE.VAR.linie;..........
3b80	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
3ba0	74 75 72 65 3b 20 20 ff ff ff ff ff ff ff ff ff 2e 00 20 20 73 63 68 72 65 69 62 65 75 65 62 65	ture;...............schreibeuebe
3bc0	72 73 63 68 72 69 66 74 69 6e 6c 65 67 65 6e 64 65 3b 79 29 3b 3b 20 ff ff ff ff ff ff ff ff ff	rschriftinlegende;y);;..........
3be0	1e 00 20 20 20 49 4e 54 20 56 41 52 20 69 3b 20 62 2c 61 62 73 74 61 6e 64 3b ff ff ff ff ff ff	.....INT.VAR.i;.b,abstand;......
3c00	0e 00 20 20 20 49 4e 54 20 56 41 52 20 69 3b 20 2e 00 20 20 20 20 73 63 68 72 65 69 62 65 6e 61	.....INT.VAR.i;.......schreibena
3c20	6d 65 69 6e 6c 65 67 65 6e 64 65 3b 75 72 76 65 6e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	meinlegende;urven...............
3c40	2e 00 20 20 20 20 75 6e 74 65 72 73 74 72 65 69 63 68 65 69 6e 6c 65 67 65 6e 64 65 3b 32 2e 30	......unterstreicheinlegende;2.0
3c60	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 46 4f 52 20 69 20 46 52 4f 4d 20	;....................FOR.i.FROM.
3c80	31 20 55 50 54 4f 20 6d 61 78 20 6b 75 72 76 65 6e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	1.UPTO.max.kurven...............
3ca0	1e 00 20 20 20 20 20 20 20 70 65 6e 20 28 6c 69 6e 69 65 28 69 29 2c 20 69 29 3b 20 ff ff ff ff	.........pen.(linie(i),.i);.....
3cc0	2e 00 20 20 20 20 20 20 20 70 65 6e 20 28 6c 69 6e 69 65 28 69 29 2c 20 69 29 3b 20 74 61 6e 64	.........pen.(linie(i),.i);.tand
3ce0	2c 20 30 2e 30 29 3b 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 73 63 68 72 65 69 62 65 20 75 65	,.0.0);..............schreibe.ue
3d00	62 65 72 73 63 68 72 69 66 74 20 69 6e 20 6c 65 67 65 6e 64 65 3b 3b 20 ff ff ff ff ff ff ff ff	berschrift.in.legende;;.........
3d20	2e 00 73 63 68 72 65 69 62 65 75 65 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67 65 6e 64 65 3a	..schreibeueberschriftinlegende:
3d40	2c 20 30 2e 30 29 3b 20 ff ff ff ff ff ff ff ff 2e 00 20 20 62 20 3a 3d 20 32 2e 30 20 2a 20 73	,.0.0);.............b.:=.2.0.*.s
3d60	74 61 6e 64 61 72 64 68 6f 65 68 65 3b 72 76 65 6e 3b 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	tandardhoehe;rven;;.............
3d80	2e 00 20 20 61 62 73 74 61 6e 64 20 3a 3d 20 39 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65	....abstand.:=.9.0.*.standardbre
3da0	69 74 65 3b 20 6c 65 67 65 6e 64 65 29 3b ff ff 2e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64	ite;.legende);......move.(legend
3dc0	65 2c 20 6d 69 6e 78 2c 20 6d 69 6e 79 29 3b 64 65 3b 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	e,.minx,.miny);de;;.............
3de0	2e 00 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f 74 74 65 6b 75 72 76 65 3a 65 69 63 68 75 6e 67 3b	..zeichneundplottekurve:eichung;
3e00	20 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 70 6c 6f 74 74 65 20 6c 65 67 65	.;...................plotte.lege
3e20	6e 64 65 3b ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 61 62 73 74 61 6e 64 20 3a 3d 20 39	nde;............>...abstand.:=.9
3e40	2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 3b 74 65 72 2c 20 6c 65 67 65 6e 64 65	.0.*.standardbreite;ter,.legende
3e60	29 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 73 63 68 72 65 69 62 65 20 75 65 62 65 72	);................schreibe.ueber
3e80	73 63 68 72 69 66 74 20 69 6e 20 6c 65 67 65 6e 64 65 3a ff ff ff ff ff ff ff ff ff ff ff ff ff	schrift.in.legende:.............
3ea0	4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64 65 2c 20 22 41 22 20 2b 20 74 65 78 74 20 28 69	N...draw.(legende,."A".+.text.(i
3ec0	29 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62	),.0.0,.standardhoehe,.standardb
3ee0	72 65 69 74 65 29 3b ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 62 20 3a 3d 20 32 2e 30 20 2a 20	reite);..............b.:=.2.0.*.
3f00	73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 3b 20 2e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 20 28	standardhoehe.;......move......(
3f20	6c 65 67 65 6e 64 65 2c 6d 69 6e 20 78 2c 6d 69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff ff	legende,min.x,min.y);...........
3f40	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.*.
3f60	61 2c 20 2d 31 2e 30 20 2a 20 62 29 3b 20 ff ff 2e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28	a,.-1.0.*.b);........move.cm.r.(
3f80	6c 65 67 65 6e 64 65 2c 20 2d 31 2e 30 20 2a 20 61 2c 20 2d 31 2e 30 20 2a 20 62 29 3b 20 ff ff	legende,.-1.0.*.a,.-1.0.*.b);...
3fa0	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 31 2e 30 20 2a 20	>....move.cm.r.(legende,.-1.0.*.
3fc0	61 2c 20 28 2d 31 2e 30 20 2a 20 62 29 20 2d 30 2e 31 29 3b 20 20 30 2e 30 2c ff ff ff ff ff ff	a,.(-1.0.*.b).-0.1);..0.0,......
3fe0	3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 69 6e 69 65 20 28 69 29 2c 28 2d 20 31 2e 30 29 20 2a	>...movecmr.(linie.(i),(-.1.0).*
4000	20 61 20 2b 20 61 62 73 74 61 6e 64 2c 28 2d 20 31 2e 30 20 2a 20 62 29 20 2d 20 30 2e 32 29 3b	.a.+.abstand,(-.1.0.*.b).-.0.2);
4020	1e 00 73 63 68 72 65 69 62 65 20 6e 61 6d 65 20 69 6e 20 6c 65 67 65 6e 64 65 3a ff ff ff ff ff	..schreibe.name.in.legende:.....
4040	4e 00 20 20 61 62 73 74 61 6e 64 20 3a 3d 20 61 62 73 74 61 6e 64 20 2b 20 28 77 6f 72 74 6c 61	N...abstand.:=.abstand.+.(wortla
4060	65 6e 67 65 20 2b 20 30 2e 35 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 3b 30 29 3b	enge.+.0.5).*.standardbreite;0);
4080	2e 20 72 64 62 72 65 69 74 65 29 3b 20 ff ff ff 4e 00 20 20 70 65 6e 20 28 6c 69 6e 69 65 20 28	..rdbreite);....N...pen.(linie.(
40a0	69 29 2c 20 69 29 3b 29 3b 22 41 22 20 2b 20 74 65 78 74 20 28 69 29 2c 20 20 30 2e 30 2c 73 74	i),.i););"A".+.text.(i),..0.0,st
40c0	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 3b 20 ff ff ff	andardhoehe,standardbreite);....
40e0	1e 00 20 20 20 70 65 6e 20 20 20 20 20 20 28 6c 69 6e 69 65 28 69 29 2c 20 69 29 3b 20 ff ff ff	.....pen......(linie(i),.i);....
4100	1e 00 20 20 20 70 65 6e 20 20 20 20 20 20 28 6c 69 6e 69 65 28 69 29 2c 20 69 29 3b 20 ff ff ff	.....pen......(linie(i),.i);....
4120	2e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 28 6c 69 6e 69 65 28 69 29 2c 20 6d 69 6e 20 78 2c 6d	.....move.....(linie(i),.min.x,m
4140	69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 73 65	in.y);..........>...putkreuz.(se
4160	69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6c 69 6e 69 65 20 28 69 29 29 2e	ite,.strukt1fenster,.linie.(i)).
4180	61 6e 64 61 72 64 62 72 65 69 74 65 3b 3b ff ff 3e 00 62 65 73 63 68 72 69 66 74 65 61 63 68 73	andardbreite;;..>.beschrifteachs
41a0	65 6e 69 6e 6c 65 67 65 6e 64 65 3a 30 2e 30 29 3b 20 2b 20 61 62 73 74 61 6e 64 2c 20 20 28 2d	eninlegende:0.0);.+.abstand,..(-
41c0	31 2e 30 2a 20 62 29 20 2d 20 30 2e 32 29 3b 2e 3e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64	1.0*.b).-.0.2);.>...move.(legend
41e0	65 2c 20 6d 69 6e 78 2c 20 6d 61 78 79 29 3b 61 65 6e 67 65 2a 73 74 61 6e 64 61 72 64 62 72 65	e,.minx,.maxy);aenge*standardbre
4200	69 74 65 2c 20 20 30 2e 30 29 3b 20 32 29 3b 2e 1e 00 70 6c 6f 74 74 65 20 75 6e 74 65 72 73 74	ite,..0.0);.2);...plotte.unterst
4220	72 65 69 63 68 75 6e 67 3a ff ff ff ff ff ff ff 2e 00 20 20 20 70 6c 6f 74 20 28 6c 69 6e 69 65	reichung:............plot.(linie
4240	28 69 29 29 3b 6e 28 6c 69 6e 69 65 28 69 29 29 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	(i));n(linie(i)));..............
4260	1e 00 20 20 20 70 6c 6f 74 20 28 6c 69 6e 69 65 28 69 29 29 3b ff ff ff ff ff ff ff ff ff ff ff	.....plot.(linie(i));...........
4280	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 73 74	>...movecmr.(legende,.-.1.0.*.st
42a0	61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20 31 2e 30 29 3b ff ff ff ff ff ff ff ff ff ff ff	andardbreite,.-.1.0);...........
42c0	1e 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:.
42e0	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 69 6e 20 78 2c 6d	.....move......(legende,.min.x,m
4300	61 78 20 79 29 3b 20 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	ax.y);..........>....move.cm.r.(
4320	6c 65 67 65 6e 64 65 2c 20 2d 32 2e 30 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e	legende,.-2.0*standardbreite,.0.
4340	30 29 3b ff 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);.............N...pen.(legende
4360	2c 20 31 29 3b 78 78 2c 20 6d 69 6e 79 29 3b 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e	,.1);xx,.miny);tandardbreite,.0.
4380	30 29 3b 64 68 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	0);dhoehe,standardbreite);......
43a0	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
43c0	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 63 6d 20 72 20 28	in.y);..........>....move.cm.r.(
43e0	6c 65 67 65 6e 64 65 2c 20 2d 31 2e 30 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 20 2d	legende,.-1.0*standardbreite,..-
4400	31 2e 30 29 3b 20 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	1.0);...........N.END.PROC.zeige
4420	64 61 72 73 74 34 3b 2c 20 2d 31 2e 30 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 20 2d	darst4;,.-1.0*standardbreite,..-
4440	31 2e 30 29 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	1.0);.ehe,.standardbreite);.....
4460	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);..........
4480	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);..........
44a0	2e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 2c 20 70 65 6e 20 28 6c 65 67 65 6e 64 65 29 29	....pen.(0,.1,.0,.pen.(legende))
44c0	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 70 65 6e 20 28 6c 65 67 65 6e 64	;....................pen.(legend
44e0	65 2c 20 31 29 3b 20 34 3b 20 ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65	e,.1);.4;.........END.PROC.zeige
4500	20 64 61 72 73 74 20 34 3b 20 ff ff ff ff ff ff 4e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65	.darst.4;.......N.END.PROC.zeige
4520	64 61 72 73 74 34 3b 65 6e 61 62 73 63 68 6e 69 74 74 65 2c 20 61 6e 7a 61 68 6c 79 61 63 68 73	darst4;enabschnitte,.anzahlyachs
4540	65 6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 31 31 3b 74 65 72 2c ff ff ff ff ff ff ff ff ff	enabschnitte.:=.11;ter,.........
4560	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 20 20 20 20 20 20 20	>.END.PROC.zeige.darst.4;.......
4580	20 20 49 4e 54 20 43 4f 4e 53 54 20 78 76 61 72 2c 20 79 76 61 72 2c 20 ff ff ff ff ff ff ff ff	..INT.CONST.xvar,.yvar,.........
45a0	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	>...............................
45c0	20 20 49 4e 54 20 20 43 4f 4e 53 54 20 73 74 69 66 74 29 3a 61 72 2c 20 ff ff ff ff ff ff ff ff	..INT..CONST.stift):ar,.........
45e0	3e 00 20 20 78 77 65 69 74 65 20 3a 3d 20 28 78 6d 61 78 20 2d 20 78 6d 69 6e 29 20 2f 20 72 65	>...xweite.:=.(xmax.-.xmin)./.re
4600	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);...
4620	1e 00 20 20 20 6f 72 64 6e 65 20 70 65 6e 20 7a 75 3b 20 20 65 69 6e 3b 20 ff ff ff ff ff ff ff	.....ordne.pen.zu;..ein;........
4640	1e 00 20 20 20 6f 72 64 6e 65 20 70 65 6e 20 7a 75 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	.....ordne.pen.zu;..............
4660	2e 00 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e 65 77 20 28 22 50 49 43 54 55 52 45 22 29 3b	....funktion.:=.new.("PICTURE");
4680	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 6f 72 64 6e 65 20 70 65 6e 20 7a	;....................ordne.pen.z
46a0	75 3b 20 6e 3a 20 ff ff ff ff ff ff ff ff ff ff 1e 00 72 69 63 68 74 65 20 70 69 63 74 75 72 65	u;.n:.............richte.picture
46c0	20 65 69 6e 3a 20 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 70 65 6e 20 28 66 75 6e 6b 74 69 6f	.ein:...............pen.(funktio
46e0	6e 2c 20 73 74 69 66 74 29 3b 74 69 6f 6e 3b 20 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	n,.stift);tion;.................
4700	1e 00 20 20 20 66 6f 72 67 65 74 20 28 22 50 49 43 54 55 52 45 22 2c 20 71 75 69 65 74 29 3b 20	.....forget.("PICTURE",.quiet);.
4720	2e 00 74 72 61 67 65 70 75 6e 6b 74 65 69 6e 70 69 63 74 75 72 65 65 69 6e 3a 55 52 45 22 29 3b	..tragepunkteinpictureein:URE");
4740	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d	.....................funktion.:=
4760	20 6e 69 6c 70 69 63 74 75 72 65 20 2e ff ff ff 2e 00 20 20 52 45 41 4c 20 56 41 52 20 7a 65 69	.nilpicture.........REAL.VAR.zei
4780	74 20 3a 3d 20 30 2e 30 3b 72 65 20 2e 45 22 29 3b 66 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff	t.:=.0.0;re..E");ft);...........
47a0	1e 00 20 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 2e 3b 20 ff	.....funktion.:=.nilpicture..;..
47c0	1e 00 20 20 20 52 45 41 4c 20 56 41 52 20 7a 65 69 74 3a 3a 30 2e 30 3b 46 41 4c 53 45 3b 20 ff	.....REAL.VAR.zeit::0.0;FALSE;..
47e0	1e 00 20 20 20 52 45 41 4c 20 56 41 52 20 7a 65 69 74 3a 3a 30 2e 30 3b ff ff ff ff ff ff ff ff	.....REAL.VAR.zeit::0.0;........
4800	3e 00 20 20 6c 65 73 65 65 72 73 74 65 6e 20 28 6b 75 72 76 65 2c 20 7a 65 69 74 2c 20 7a 29 3b	>...leseersten.(kurve,.zeit,.z);
4820	64 20 28 4b 55 52 56 45 4e 44 49 4d 45 4e 53 49 4f 4e 20 6b 75 72 76 65 29 3b 20 ff ff ff ff ff	d.(KURVENDIMENSION.kurve);......
4840	1e 00 20 20 20 52 45 41 4c 20 56 41 52 20 7a 65 69 74 3a 3a 30 2e 30 3b 77 65 72 74 3b 20 ff ff	.....REAL.VAR.zeit::0.0;wert;...
4860	1e 00 20 20 20 6c 65 73 65 20 65 72 73 74 65 6e 28 6b 75 72 76 65 2c 7a 65 69 74 2c 7a 29 3b 20	.....lese.ersten(kurve,zeit,z);.
4880	1e 00 20 20 20 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 3b 3b 72 74 3b 20 3b 20	......lesenaechstenpunkt;;rt;.;.
48a0	1e 00 20 20 20 74 72 61 67 65 20 61 6e 66 61 6e 67 73 70 75 6e 6b 74 20 65 69 6e 3b 20 ff ff ff	.....trage.anfangspunkt.ein;....
48c0	2e 00 20 20 6c 65 73 65 65 72 73 74 65 6e 20 28 6b 75 72 76 65 2c 20 7a 65 69 74 2c 20 7a 29 3b	....leseersten.(kurve,.zeit,.z);
48e0	6b 75 72 76 65 29 20 52 45 50 20 ff ff ff ff ff 1e 00 20 20 20 74 72 61 67 65 20 61 6e 66 61 6e	kurve).REP...........trage.anfan
4900	67 73 70 75 6e 6b 74 20 65 69 6e 3b 20 20 ff ff 1e 00 20 20 20 20 20 20 74 72 61 67 65 20 66 6f	gspunkt.ein;............trage.fo
4920	6c 67 65 70 75 6e 6b 74 20 65 69 6e 20 ff ff ff 2e 00 20 20 78 77 65 72 74 20 3a 3d 20 7a 20 53	lgepunkt.ein........xwert.:=.z.S
4940	55 42 20 78 76 61 72 3b 20 65 69 6e 20 74 3b 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	UB.xvar;.ein.t;.................
4960	1e 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 ff ff ff ff ff ff	..trage.anfangspunkt.ein:.......
4980	3e 00 20 20 7a 65 69 63 68 6e 65 6b 72 65 69 73 75 6d 65 6e 64 70 75 6e 6b 74 3b 6e 6b 74 3b 2e	>...zeichnekreisumendpunkt;nkt;.
49a0	20 65 72 28 78 20 77 65 72 74 2c 20 78 76 61 72 29 20 42 20 79 76 61 72 3b 20 ff ff ff ff ff ff	.er(x.wert,.xvar).B.yvar;.......
49c0	3e 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 55 42 20 78 76	>...drawcmr.(-.0.2,.-.0.2);UB.xv
49e0	61 72 3b 20 79 20 77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 79 76 61 72 3b 20 ff ff ff ff ff ff	ar;.y.wert.:=.z.SUB.yvar;.......
4a00	3e 00 20 20 20 20 20 20 6d 6f 76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 78 77 65 72 74 2c 20 79	>.......move.(funktion,.xwert,.y
4a20	77 65 72 74 29 3b 77 65 72 74 2c 20 78 76 61 72 29 20 42 20 79 76 61 72 3b 20 ff ff ff ff ff ff	wert);wert,.xvar).B.yvar;.......
4a40	3e 00 20 20 20 20 20 20 6d 6f 76 65 20 28 78 77 65 72 74 2c 20 79 77 65 72 74 29 3b 3b 61 62 65	>.......move.(xwert,.ywert);;abe
4a60	66 65 6e 73 74 65 72 28 79 20 77 65 72 74 2c 20 79 76 61 72 29 29 20 ff ff ff ff ff ff ff ff ff	fenster(y.wert,.yvar))..........
4a80	3e 00 20 20 20 20 20 20 7a 65 69 63 68 6e 65 66 61 64 65 6e 6b 72 65 75 7a 3b 20 2d 20 30 2e 32	>.......zeichnefadenkreuz;.-.0.2
4aa0	29 2e 20 78 20 77 65 72 74 2c 20 79 20 77 65 72 74 29 3b 20 29 29 20 ff ff ff ff ff ff ff ff ff	)..x.wert,.y.wert);.))..........
4ac0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6f 72 70 75 6e 6b 74 3a 3d 20 54 52	...................vorpunkt:=.TR
4ae0	55 45 20 75 7a 3b ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 46 49	UE.uz;........................FI
4b00	2e 20 20 76 6f 72 70 75 6e 6b 74 3a 3d 20 54 52 55 45 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	...vorpunkt:=.TRUE..............
4b20	1e 00 7a 65 69 63 68 6e 65 20 66 61 64 65 6e 6b 72 65 75 7a 3a 20 ff ff ff ff ff ff ff ff ff ff	..zeichne.fadenkreuz:...........
4b40	1e 00 7a 65 69 63 68 6e 65 20 66 61 64 65 6e 6b 72 65 75 7a 3a 20 ff ff ff ff ff ff ff ff ff ff	..zeichne.fadenkreuz:...........
4b60	2e 00 20 20 6d 6f 76 65 20 28 78 77 65 72 74 2c 20 79 77 65 72 74 29 3b 7a 3b 68 6f 65 68 65 29	....move.(xwert,.ywert);z;hoehe)
4b80	3b 74 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 2d 20 30	;t);................drawcmr.(-.0
4ba0	2e 32 2c 20 30 2e 30 29 3b 29 3b 32 2c 20 30 2e 30 29 3b 20 20 ff ff ff ff ff ff ff ff ff ff ff	.2,.0.0););2,.0.0);.............
4bc0	2e 00 20 20 6d 6f 76 65 20 28 78 77 65 72 74 2c 20 79 77 65 72 74 29 3b 20 73 74 61 6e 64 61 72	....move.(xwert,.ywert);.standar
4be0	64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30	dhoehe);............drawcmr.(0.0
4c00	2c 20 30 2e 32 29 3b 2c 20 2d 20 30 2e 32 29 3b 2e 30 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	,.0.2);,.-.0.2);.0);............
4c20	2e 00 20 20 6d 6f 76 65 20 28 78 77 65 72 74 2c 20 79 77 65 72 74 29 3b 61 78 29 3b 79 20 77 65	....move.(xwert,.ywert);ax);y.we
4c40	72 74 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30	rt);................drawcmr.(0.0
4c60	2c 20 2d 20 30 2e 32 29 3b 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b ff ff ff ff ff ff ff ff	,.-.0.2);standardhoehe);........
4c80	2e 00 20 20 6d 6f 76 65 20 28 78 77 65 72 74 2c 20 79 77 65 72 74 29 3b 3b 2c 20 2d 20 30 2e 32	....move.(xwert,.ywert);;,.-.0.2
4ca0	29 2e 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 66 75 6e	).);................drawcmr.(fun
4cc0	6b 74 69 6f 6e 2c 20 30 2e 32 2c 20 30 2e 30 29 3b 32 29 3b 20 32 2c 20 30 2e 30 29 3b 20 ff ff	ktion,.0.2,.0.0);2);.2,.0.0);...
4ce0	2e 00 20 20 6d 6f 76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 78 77 65 72 74 2c 20 79 77 65 72 74	....move.(funktion,.xwert,.ywert
4d00	29 3b 29 3b 20 20 79 20 77 65 72 74 29 3b 20 ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 66 75 6e	););..y.wert);......drawcmr.(fun
4d20	6b 74 69 6f 6e 2c 20 2d 20 30 2e 32 2c 20 30 2e 30 29 3b 30 2e 32 2c 20 30 2e 30 29 3b 20 20 ff	ktion,.-.0.2,.0.0);0.2,.0.0);...
4d40	2e 00 20 20 6d 6f 76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 78 77 65 72 74 2c 20 79 77 65 72 74	....move.(funktion,.xwert,.ywert
4d60	29 3b 72 74 2c 20 79 20 77 65 72 74 29 3b 20 ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 66 75 6e	);rt,.y.wert);......drawcmr.(fun
4d80	6b 74 69 6f 6e 2c 20 30 2e 30 2c 20 30 2e 32 29 3b 2c 20 2d 30 2e 32 2c 20 30 2e 30 29 3b 20 ff	ktion,.0.0,.0.2);,.-0.2,.0.0);..
4da0	2e 00 20 20 6d 6f 76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 78 77 65 72 74 2c 20 79 77 65 72 74	....move.(funktion,.xwert,.ywert
4dc0	29 3b 72 74 2c 20 79 20 77 65 72 74 29 3b 20 ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 66 75 6e	);rt,.y.wert);......drawcmr.(fun
4de0	6b 74 69 6f 6e 2c 20 30 2e 30 2c 20 2d 20 30 2e 32 29 3b 30 2e 30 2c 20 30 2e 32 29 3b 20 20 ff	ktion,.0.0,.-.0.2);0.0,.0.2);...
4e00	2e 00 20 20 6d 6f 76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 78 77 65 72 74 2c 20 79 77 65 72 74	....move.(funktion,.xwert,.ywert
4e20	29 3b 3b 74 2c 20 79 20 77 65 72 74 29 3b 20 2e 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f	);;t,.y.wert);................mo
4e40	76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 78 20 77 65 72 74 2c 20 79 20 77 65 72 74 29 3b 20 2e	ve.(funktion,.x.wert,.y.wert);..
4e60	3e 00 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 3a 2c 20 30 2e 30 2c 20 30 2e 32 29	>.lesenaechstenpunkt:,.0.0,.0.2)
4e80	3b 65 72 74 2c 20 79 20 77 65 72 74 29 3b 20 2e 74 2c 7a 29 3b 20 2e ff ff ff ff ff ff ff ff ff	;ert,.y.wert);..t,z);...........
4ea0	1e 00 20 20 20 20 74 72 61 67 65 20 66 6f 6c 67 65 70 75 6e 6b 74 20 65 69 6e 3a 20 ff ff ff ff	......trage.folgepunkt.ein:.....
4ec0	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 78 20 77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 78 76	>.............x.wert.:=.z.SUB.xv
4ee0	61 72 3b 20 79 20 77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 79 76 61 72 3b 20 ff ff ff ff ff ff	ar;.y.wert.:=.z.SUB.yvar;.......
4f00	4e 00 74 72 61 67 65 66 6f 6c 67 65 70 75 6e 6b 74 65 69 6e 20 3a 20 72 74 2c 20 79 77 65 72 74	N.tragefolgepunktein.:.rt,.ywert
4f20	29 3b 3b 20 79 20 77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 79 76 61 72 3b 20 20 78 20 76 61 72	);;.y.wert.:=.z.SUB.yvar;..x.var
4f40	29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 78 20	)...............>.............x.
4f60	77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 78 76 61 72 3b 20 79 20 77 65 72 74 20 3a 3d 20 7a 20	wert.:=.z.SUB.xvar;.y.wert.:=.z.
4f80	53 55 42 20 79 76 61 72 3b 20 ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	SUB.yvar;.......>...............
4fa0	20 20 20 20 20 20 64 72 61 77 20 28 20 20 20 20 20 20 20 20 20 20 78 20 77 65 72 74 2c 20 79 20	......draw.(..........x.wert,.y.
4fc0	77 65 72 74 29 20 3b 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	wert).;.........>...............
4fe0	20 20 20 20 20 20 64 72 61 77 20 28 20 20 20 20 20 20 20 20 20 20 78 20 77 65 72 74 2c 20 79 20	......draw.(..........x.wert,.y.
5000	77 65 72 74 29 20 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 43 41 4e 44 20 69 6d 61 75	wert)...........N......CAND.imau
5020	73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 79 77 65 72 74 20 2c 20 79 76 61 72 20 29 20 29 20	sgabefenster.(.ywert.,.yvar.).).
5040	29 20 72 74 29 20 3b 79 20 76 61 72 29 29 29 20 65 72 74 2c 20 78 20 76 61 72 29 20 ff ff ff ff	).rt).;y.var))).ert,.x.var).....
5060	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 72 61 77 20 28 20 20 20 20	>.....................draw.(....
5080	20 20 20 20 20 20 78 20 77 65 72 74 2c 20 79 20 77 65 72 74 29 20 72 74 29 3b 20 72 29 29 29 20	......x.wert,.y.wert).rt);.r))).
50a0	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 6d 6f 76 65 28	>..........................move(
50c0	20 20 20 20 20 20 20 20 20 20 78 20 77 65 72 74 2c 20 79 20 77 65 72 74 29 3b 20 ff ff ff ff ff	..........x.wert,.y.wert);......
50e0	3e 00 20 20 79 77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 79 76 61 72 20 3b 20 20 6d 6f 76 65 28	>...ywert.:=.z.SUB.yvar.;..move(
5100	66 75 6e 6b 74 69 6f 6e 2c 20 78 20 77 65 72 74 2c 20 79 20 77 65 72 74 29 3b 20 72 29 29 29 20	funktion,.x.wert,.y.wert);.r))).
5120	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 76 6f 72 70 75	......................ELSE.vorpu
5140	6e 6b 74 3a 3d 20 46 41 4c 53 45 20 ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 46 49	nkt:=.FALSE...................FI
5160	2e 20 20 20 20 20 45 4c 53 45 20 76 6f 72 70 75 6e 6b 74 3a 3d 20 46 41 4c 53 45 20 ff ff ff ff	......ELSE.vorpunkt:=.FALSE.....
5180	1e 00 7a 65 69 63 68 6e 65 20 6b 72 65 69 73 20 75 6d 20 65 6e 64 70 75 6e 6b 74 3a 20 ff ff ff	..zeichne.kreis.um.endpunkt:....
51a0	1e 00 7a 65 69 63 68 6e 65 20 6b 72 65 69 73 20 75 6d 20 65 6e 64 70 75 6e 6b 74 3a 20 ff ff ff	..zeichne.kreis.um.endpunkt:....
51c0	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 77	>...move.(kreuz,.stelle,.ymin);w
51e0	65 72 74 2c 20 79 20 76 61 72 29 29 20 41 4e 44 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	ert,.y.var)).AND................
5200	2e 00 7a 65 69 63 68 6e 65 20 6b 72 65 69 73 20 75 6d 20 65 6e 64 70 75 6e 6b 74 3a 20 79 20 77	..zeichne.kreis.um.endpunkt:.y.w
5220	65 72 74 2c 20 79 20 76 61 72 29 29 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 69 6d 20 61 75 73	ert,.y.var))....>.........im.aus
5240	67 61 62 65 66 65 6e 73 74 65 72 20 28 79 20 77 65 72 74 2c 20 79 20 76 61 72 29 29 20 30 29 3b	gabefenster.(y.wert,.y.var)).0);
5260	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 63 69 72 63 6c 65	..........................circle
5280	20 28 66 75 6e 6b 74 69 6f 6e 2c 20 30 2e 33 2c 20 30 2e 30 2c 20 33 36 30 2e 30 2c 20 30 29 3b	.(funktion,.0.3,.0.0,.360.0,.0);
52a0	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;......
52c0	1e 00 7a 65 69 63 68 6e 65 6b 72 65 69 73 75 6d 65 6e 64 70 75 6e 6b 74 3a 3b 20 ff ff ff ff ff	..zeichnekreisumendpunkt:;......
52e0	1e 00 20 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 66 75 6e 6b 74 69 6f 6e 3b 20 ff ff ff ff ff	.....transfer.:=.funktion;......
5300	2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 3b 3b 20 74 29 3b 2e 20	....PICTURE.VAR.transfer;;.t);..
5320	20 74 72 61 6e 73 66 65 72 29 3b 20 ff ff ff ff 1e 00 20 20 20 66 6f 72 67 65 74 20 28 22 50 49	.transfer);..........forget.("PI
5340	43 54 55 52 45 22 2c 71 75 69 65 74 29 3b 2e 20 2e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 63 68	CTURE",quiet);....END.PROC.zeich
5360	6e 65 20 75 6e 64 20 70 6c 6f 74 74 65 20 6b 75 72 76 65 3b ff ff ff ff ff ff ff ff ff ff ff ff	ne.und.plotte.kurve;............
5380	4e 00 20 20 66 6f 72 67 65 74 20 28 22 50 49 43 54 55 52 45 22 2c 20 71 75 69 65 74 29 3b 6b 75	N...forget.("PICTURE",.quiet);ku
53a0	72 76 65 3b 69 63 68 6e 65 6e 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78	rve;ichnen.(REAL.CONST.xmin,xmax
53c0	2c 79 6d 69 6e 2c 79 6d 61 78 29 3a 20 ff ff ff 1e 00 42 4f 55 4e 44 20 50 49 43 54 55 52 45 20	,ymin,ymax):......BOUND.PICTURE.
53e0	56 41 52 20 6b 72 65 75 7a 3b 20 ff ff ff ff ff 1e 00 49 46 20 65 78 69 73 74 73 20 28 22 4b 52	VAR.kreuz;........IF.exists.("KR
5400	45 55 5a 22 29 20 65 75 7a 3b 20 ff ff ff ff ff 1e 00 49 46 20 65 78 69 73 74 73 20 28 22 4b 52	EUZ").euz;........IF.exists.("KR
5420	45 55 5a 22 29 20 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20	EUZ")...............PICTURE.VAR.
5440	74 72 61 6e 73 66 65 72 3b 6e 73 74 65 72 2c 20 74 72 61 6e 73 66 65 72 29 3b ff ff ff ff ff ff	transfer;nster,.transfer);......
5460	1e 00 49 46 20 65 78 69 73 74 73 20 28 22 4b 52 45 55 5a 22 29 20 29 3b ff ff ff ff ff ff ff ff	..IF.exists.("KREUZ").);........
5480	1e 00 6b 72 65 75 7a 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 20 ff ff ff ff ff ff ff ff ff ff	..kreuz:=.nilpicture;...........
54a0	4e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f 74 74 65 6b 75 72 76 65	N.END.PROC.zeichneundplottekurve
54c0	3b 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	;eibeschriftung,.nachkommastelle
54e0	6e 29 2c 20 30 2e 30 2c 20 ff ff ff ff ff ff ff 1e 00 52 45 41 4c 20 56 41 52 20 78 77 65 69 74	n),.0.0,..........REAL.VAR.xweit
5500	65 2c 20 79 77 65 69 74 65 3b 20 ff ff ff ff ff 4e 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20	e,.yweite;......N...PICTURE.VAR.
5520	74 72 61 6e 73 66 65 72 3b 6c 6c 65 29 3b 6e 69 74 74 65 2c 20 61 6e 7a 61 68 6c 20 79 20 61 63	transfer;lle);nitte,.anzahl.y.ac
5540	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*).......
5560	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 20 6c 28 61 6e 7a	>.REAL.VAR.xweite,.yweite;.l(anz
5580	61 68 6c 79 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 29 3b 3b ff ff ff ff ff ff ff ff ff	ahlyachsenabschnitte);;.........
55a0	3e 00 6f 72 64 6e 65 20 73 74 69 66 74 20 7a 75 3b 79 6d 69 6e 29 2f 20 72 65 61 6c 28 61 6e 7a	>.ordne.stift.zu;ymin)/.real(anz
55c0	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);..........
55e0	1e 00 7a 65 69 63 68 6e 65 20 78 61 63 68 73 65 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	..zeichne.xachse;...............
5600	1e 00 7a 65 69 63 68 6e 65 20 79 61 63 68 73 65 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	..zeichne.yachse;...............
5620	1e 00 7a 65 69 63 68 6e 65 20 78 61 63 68 73 65 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	..zeichne.xachse;...............
5640	1e 00 6f 72 64 6e 65 20 73 74 69 66 74 20 7a 75 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	..ordne.stift.zu:...............
5660	1e 00 6c 69 65 66 65 72 65 20 6b 72 65 75 7a 2e 20 31 29 3b ff ff ff ff ff ff ff ff ff ff ff ff	..liefere.kreuz..1);............
5680	1e 00 6f 72 64 6e 65 20 73 74 69 66 74 20 7a 75 3a 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff	..ordne.stift.zu:...............
56a0	1e 00 20 20 20 20 70 65 6e 20 28 30 2c 31 2c 30 2c 31 29 3b ff ff ff ff ff ff ff ff ff ff ff ff	......pen.(0,1,0,1);............
56c0	1e 00 20 20 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 ff ff	....TEXT.VAR.divfehler.:=."".;..
56e0	1e 00 20 20 6c 69 65 66 65 72 65 6b 72 65 75 7a 2e 2c 20 6b 6d 3b 79 6d 69 6e 29 3b 20 ff ff ff	....lieferekreuz.,.km;ymin);....
5700	1e 00 20 20 20 20 6d 6f 76 65 28 20 20 20 20 20 20 78 6d 69 6e 2c 79 6d 69 6e 29 3b 20 ff ff ff	......move(......xmin,ymin);....
5720	1e 00 20 20 20 20 64 72 61 77 28 20 20 20 20 20 20 78 6d 61 78 2c 79 6d 69 6e 29 3b 20 ff ff ff	......draw(......xmax,ymin);....
5740	1e 00 20 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3a 20 30 2e 30 20 6d 69 6e 29 3b 20 ff ff ff	....zeichnexachse:.0.0.min);....
5760	1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 79 6d 69 6e 29 3b ff ff ff	....move.(kreuz,.xmin,.ymin);...
5780	1e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 78 73 70 69 74 7a 65 20 2e 20 69 6e 29 3b 20 ff ff ff	......zeichne.xspitze...in);....
57a0	1e 00 20 20 7a 65 69 63 68 6e 65 78 73 70 69 74 7a 65 2e 7a 65 20 2e 20 61 78 29 3b 20 ff ff ff	....zeichnexspitze.ze...ax);....
57c0	1e 00 20 20 20 20 6d 6f 76 65 28 20 20 20 20 20 20 78 6d 69 6e 2c 79 6d 69 6e 29 3b 20 ff ff ff	......move(......xmin,ymin);....
57e0	1e 00 20 20 20 20 64 72 61 77 28 20 20 20 20 20 20 78 6d 69 6e 2c 79 6d 61 78 29 3b 20 ff ff ff	......draw(......xmin,ymax);....
5800	1e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 79 6d 61 78 29 3b ff ff ff	....draw.(kreuz,.xmin,.ymax);...
5820	1e 00 20 20 7a 65 69 63 68 6e 65 79 73 70 69 74 7a 65 2e 61 78 2c 20 79 6d 69 6e 29 3b ff ff ff	....zeichneyspitze.ax,.ymin);...
5840	1e 00 20 20 20 20 7a 65 69 63 68 6e 65 20 79 73 70 69 74 7a 65 2e 79 6d 61 78 29 3b 20 3b ff ff	......zeichne.yspitze.ymax);.;..
5860	1e 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);
5880	1e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 29 3b 3b 3b 20	....move.(kreuz,.xmax,.ymin);;;.
58a0	1e 00 20 20 20 20 6d 6f 76 65 20 20 20 28 20 20 20 20 20 20 78 6d 61 78 2c 79 6d 69 6e 29 3b 20	......move...(......xmax,ymin);.
58c0	1e 00 7a 65 69 63 68 6e 65 79 73 70 69 74 7a 65 3a 65 2e 20 2d 30 2e 32 2c 2d 30 2e 32 29 3b 20	..zeichneyspitze:e..-0.2,-0.2);.
58e0	1e 00 7a 65 69 63 68 6e 65 78 73 70 69 74 7a 65 3a 75 7a 2c 2d 30 2e 32 2c 30 2e 32 29 3b 3b 20	..zeichnexspitze:uz,-0.2,0.2);;.
5900	1e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 32 2c 20 2d 20 30 2e 32 29 3b	....drawcmr.(kreuz,.0.2,.-.0.2);
5920	1e 00 7a 65 69 63 68 6e 65 20 79 73 70 69 74 7a 65 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	..zeichne.yspitze:..............
5940	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
5960	64 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 20 20	dhoehe);..............drawcmr(..
5980	20 20 20 20 20 30 2e 32 2c 2d 30 2e 32 29 3b ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	.....0.2,-0.2);.....drawcmr.(kre
59a0	75 7a 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 3b ff ff ff ff ff ff ff	uz,.0.0,.standardhoehe);;.......
59c0	2e 00 20 20 52 45 41 4c 20 56 41 52 20 73 74 65 6c 6c 65 20 3a 3d 20 78 6d 69 6e 3b 2e 32 29 3b	....REAL.VAR.stelle.:=.xmin;.2);
59e0	20 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff 2e 00 20 20 52 4f 57 20 33 20 52 45 41 4c 20 56	.hoehe);............ROW.3.REAL.V
5a00	41 52 20 73 63 68 6f 65 6e 65 7a 61 68 6c 3b 72 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff	AR.schoenezahl;rdhoehe);........
5a20	2e 00 20 20 49 4e 54 20 56 41 52 20 70 6f 73 3b 75 7a 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72	....INT.VAR.pos;uz,.0.0,.standar
5a40	64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 6d 6f 76 65 20 20 20 28 6b 72	dhoehe);..............move...(kr
5a60	65 75 7a 2c 78 6d 69 6e 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,xmin,ymax);.......move...(kr
5a80	65 75 7a 2c 78 6d 69 6e 2c 79 6d 61 78 29 3b 20 2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	euz,xmin,ymax);.....move.(kreuz,
5aa0	20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 20 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff	.stelle,.ymin);.hoehe);.........
5ac0	1e 00 20 20 20 20 6d 6f 76 65 20 20 20 28 6b 72 65 75 7a 2c 78 6d 69 6e 2c 79 6d 61 78 29 3b 20	......move...(kreuz,xmin,ymax);.
5ae0	1e 00 20 20 20 20 52 45 41 4c 20 56 41 52 20 73 74 65 6c 6c 65 3a 3a 78 6d 69 6e 3b 20 ff ff ff	......REAL.VAR.stelle::xmin;....
5b00	2e 00 20 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20 32 20 55 50 54 4f 20 33 20 52 45 50 20 61 68	....FOR.pos.FROM.2.UPTO.3.REP.ah
5b20	6c 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 49 4e 54 20 56 41 52 20 70 6f	l;....................INT.VAR.po
5b40	73 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 7a 65 69 63 68 6e 65 78 73 74	s;..............N.....zeichnexst
5b60	72 69 63 68 3b 2e 30 2c 20 30 2e 32 29 3b 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c	rich;.0,.0.2);COR.taste.=.modell
5b80	67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 68 6c 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff	groessentaste.hl);..............
5ba0	3e 00 20 20 20 20 49 4e 54 20 56 41 52 20 70 6f 73 3b 65 20 20 20 28 20 20 20 20 20 20 73 74 65	>.....INT.VAR.pos;e...(......ste
5bc0	6c 6c 65 2c 79 6d 69 6e 29 3b 20 65 2b 78 77 65 69 74 65 3b 20 2a 29 ff ff ff ff ff ff ff ff ff	lle,ymin);.e+xweite;.*).........
5be0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 63 6d 72 28 20 20 20 20 20 20 30 2e 30	...............movecmr(......0.0
5c00	2c 30 2e 32 29 3b 20 6e 29 3b 20 ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 64	,0.2);.n);.....................d
5c20	72 61 77 63 6d 72 28 20 20 20 20 20 20 30 2e 30 2c 2d 30 2e 33 29 3b ff ff ff ff ff ff ff ff ff	rawcmr(......0.0,-0.3);.........
5c40	2e 00 7a 65 69 63 68 6e 65 78 73 74 72 69 63 68 3a 63 68 6f 65 6e 65 7a 61 68 6c 20 28 70 6f 73	..zeichnexstrich:choenezahl.(pos
5c60	29 3b 2e 32 29 3b 20 6e 29 3b 20 ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 64	);.2);.n);.....................d
5c80	72 61 77 63 6d 72 28 20 20 20 20 20 20 30 2e 30 2c 2d 30 2e 33 29 3b 6e 29 3b 20 ff ff ff ff ff	rawcmr(......0.0,-0.3);n);......
5ca0	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 30 2e 31 29 2e 74 65	....drawcmr.(kreuz,.0.0,.0.1).te
5cc0	6c 6c 65 2c 79 6d 69 6e 29 3b 20 ff ff ff ff ff 2e 00 7a 65 69 63 68 6e 65 67 65 67 65 6e 73 74	lle,ymin);........zeichnegegenst
5ce0	72 69 63 68 3a 75 73 20 28 31 32 29 3b 30 2e 30 2c 30 2e 32 29 3b 20 6e 29 3b 20 ff ff ff ff ff	rich:us.(12);0.0,0.2);.n);......
5d00	1e 00 20 20 20 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20 32 20 55 50 54 4f 20 33 ff ff ff ff ff	......FOR.pos.FROM.2.UPTO.3.....
5d20	1e 00 20 20 20 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20 32 20 55 50 54 4f 20 33 ff ff ff ff ff	......FOR.pos.FROM.2.UPTO.3.....
5d40	2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 3b	....move.(kreuz,.stelle,.ymin);;
5d60	65 20 7a 61 68 6c 20 28 70 6f 73 29 3b ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e.zahl.(pos);...................
5d80	7a 65 69 63 68 6e 65 20 78 73 74 72 69 63 68 3b 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	zeichne.xstrich;................
5da0	7a 65 69 63 68 6e 65 20 78 73 74 72 69 63 68 3b 65 20 7a 61 68 6c 20 28 70 6f 73 29 3b ff ff ff	zeichne.xstrich;e.zahl.(pos);...
5dc0	1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 65 69 63 68 6e 65 20 78 73 74 72 69 63 68 3b	................zeichne.xstrich;
5de0	1e 00 7a 65 69 63 68 6e 65 20 78 73 74 72 69 63 68 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	..zeichne.xstrich:..............
5e00	1e 00 7a 65 69 63 68 6e 65 20 78 73 74 72 69 63 68 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	..zeichne.xstrich:..............
5e20	2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74	....standardhoehe,.standardbreit
5e40	65 29 2e ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 7a 65 69 63 68 6e 65 20 78 73 74 72 69 63	e)................zeichne.xstric
5e60	68 3a 20 6c 6c 65 2c 79 6d 69 6e 29 3b 20 ff ff 1e 00 20 20 20 64 72 61 77 63 6d 72 28 6b 72 65	h:.lle,ymin);........drawcmr(kre
5e80	75 7a 2c 30 2e 30 2c 30 2e 31 29 2e 20 20 ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 73 74	uz,0.0,0.1)...................st
5ea0	65 75 65 72 7a 65 69 6c 65 29 3b 29 3b 20 ff ff 1e 00 20 20 20 64 72 61 77 63 6d 72 28 6b 72 65	euerzeile););........drawcmr(kre
5ec0	75 7a 2c 30 2e 30 2c 30 2e 31 29 2e 20 20 ff ff 1e 00 7a 65 69 63 68 6e 65 20 67 65 67 65 6e 73	uz,0.0,0.1).......zeichne.gegens
5ee0	74 72 69 63 68 3a 20 30 2e 31 29 2e 20 ff ff ff 1e 00 20 20 20 64 72 61 77 63 6d 72 28 20 20 20	trich:.0.1)..........drawcmr(...
5f00	20 20 20 30 2e 30 2c 30 2e 31 29 3b 3b ff ff ff 1e 00 20 20 20 64 72 61 77 63 6d 72 28 20 20 20	...0.0,0.1);;........drawcmr(...
5f20	20 20 20 30 2e 30 2c 2d 30 2e 33 29 3b ff ff ff 1e 00 20 20 20 64 72 61 77 63 6d 72 28 6b 72 65	...0.0,-0.3);........drawcmr(kre
5f40	75 7a 2c 30 2e 30 2c 30 2e 31 29 3b 3b ff ff ff 2e 00 20 20 20 6d 6f 76 65 20 20 20 28 20 20 20	uz,0.0,0.1);;........move...(...
5f60	20 20 20 73 74 65 6c 6c 65 2c 79 6d 69 6e 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	...stelle,ymin);................
5f80	3e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 31 2c 20 30 2e 30 29 2e 29 3b	>...drawcmr.(kreuz,.0.1,.0.0).);
5fa0	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 ff ff ff	.dhoehe.-.abstand);.dbreite,....
5fc0	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
5fe0	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);.............
6000	4e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65 75 7a 2c 20 30 2e 31 2c 20 30 2e 30 29 2e 73 74	N...drawcmr.(kreuz,.0.1,.0.0).st
6020	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
6040	65 20 6d 61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e.mastellen),...>...............
6060	20 20 20 20 20 2d 31 2e 30 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e	.....-1.0*standardhoehe.-.abstan
6080	64 29 3b 20 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	d);.);...............move(kreuz,
60a0	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 6b 72 65	stelle,ymin);...>...drawcmr.(kre
60c0	75 7a 2c 20 30 2e 31 2c 20 30 2e 30 29 2e 72 64 68 6f 65 68 65 2c 73 74 61 6e 64 61 72 64 62 72	uz,.0.1,.0.0).rdhoehe,standardbr
60e0	65 69 74 65 29 3b 72 65 69 74 65 2c 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	eite);reite,....>...............
6100	20 20 20 20 20 2d 31 2e 30 2a 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 2d 20 61 62 73 74 61 6e	.....-1.0*standardhoehe.-.abstan
6120	64 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c	d);.............N...draw.(kreuz,
6140	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
6160	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),......
6180	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
61a0	6e 64 61 72 64 62 72 65 69 74 65 29 2e ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65	ndardbreite)....N...movecmr.(kre
61c0	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
61e0	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).*.............
6200	1e 00 20 20 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 33 ff ff ff ff ff ff	.....FOR.pos.FROM.1.UPTO.3......
6220	2e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 63 68 6e 65 20 79 73 74 72 69 63 68 3b 20 20 7a 61	............zeichne.ystrich;..za
6240	68 6c 20 28 70 6f 73 29 3b 20 ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 63	hl.(pos);...................zeic
6260	68 6e 65 20 79 73 74 72 69 63 68 3b 20 ff ff ff 2e 00 20 20 66 6f 72 67 65 74 20 28 22 4b 52 45	hne.ystrich;........forget.("KRE
6280	55 5a 22 2c 20 71 75 69 65 74 29 20 3b 65 69 74 65 29 2e 28 70 6f 73 29 3b 20 65 20 79 20 ff ff	UZ",.quiet).;eite).(pos);.e.y...
62a0	1e 00 7a 65 69 63 68 6e 65 20 79 20 73 74 72 69 63 68 3a 20 ff ff ff ff ff ff ff ff ff ff ff ff	..zeichne.y.strich:.............
62c0	2e 00 52 45 41 4c 20 50 52 4f 43 20 6b 6c 65 69 6e 73 74 65 73 20 28 52 45 41 4c 20 43 4f 4e 53	..REAL.PROC.kleinstes.(REAL.CONS
62e0	54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a ff ff 1e 00 20 20 20 20 64 72 61 77 20 63 6d 20 72 20	T.x1,.x2,.x3):........draw.cm.r.
6300	28 20 20 20 20 20 20 30 2e 31 2c 30 2e 30 29 3b 2e 00 20 20 20 20 64 72 61 77 20 63 6d 20 72 20	(......0.1,0.0);......draw.cm.r.
6320	28 20 20 20 20 20 20 30 2e 31 2c 30 2e 30 29 3b 6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	(......0.1,0.0);le);............
6340	2e 00 52 45 41 4c 20 50 52 4f 43 20 67 72 6f 65 73 73 74 65 73 20 28 52 45 41 4c 20 43 4f 4e 53	..REAL.PROC.groesstes.(REAL.CONS
6360	54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a ff ff 1e 00 7a 65 69 63 68 6e 65 20 79 67 65 67 65 6e	T.x1,.x2,.x3):....zeichne.ygegen
6380	73 74 72 69 63 68 3a 20 ff ff ff ff ff ff ff ff 2e 00 45 4e 44 20 50 52 4f 43 20 67 72 6f 65 73	strich:...........END.PROC.groes
63a0	73 74 65 73 3b 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a ff ff	stes;.(REAL.CONST.x1,.x2,.x3):..
63c0	1e 00 7a 65 69 63 68 6e 65 20 79 67 65 67 65 6e 73 74 72 69 63 68 3a 20 2e 31 2c 30 2e 30 29 2e	..zeichne.ygegenstrich:..1,0.0).
63e0	0e 00 62 65 73 63 68 72 69 66 74 65 20 79 3a 20 2e 00 20 20 20 20 6d 6f 76 65 20 20 20 20 20 20	..beschrifte.y:.......move......
6400	28 20 20 20 20 20 20 78 6d 69 6e 2c 73 74 65 6c 6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	(......xmin,stelle);............
6420	4e 00 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 28 4c 4f 45 53 55 4e 47 20 56 41 52	N.PROC.darstellung4.(LOESUNG.VAR
6440	20 6c 73 67 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20	.lsg,.BOOL.VAR.indemo,.TEXT.VAR.
6460	74 61 73 74 65 29 3a ff ff ff ff ff ff ff ff ff 4e 00 20 20 65 6e 61 62 6c 65 20 73 74 6f 70 3b	taste):.........N...enable.stop;
6480	73 74 65 73 3b 20 20 28 2d 31 2e 30 29 20 2a 20 28 72 65 61 6c 20 28 6c 61 65 6e 67 65 20 62 65	stes;..(-1.0).*.(real.(laenge.be
64a0	69 20 62 65 73 63 68 72 69 66 74 75 6e 67 29 20 2b 20 30 2e 35 29 ff ff ff ff ff ff ff ff ff ff	i.beschriftung).+.0.5)..........
64c0	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
64e0	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,.
6500	4e 00 20 20 28 72 20 3c 3d 20 28 72 61 6e 64 6f 62 65 6e 20 53 55 42 20 69 29 29 20 43 41 4e 44	N...(r.<=.(randoben.SUB.i)).CAND
6520	20 28 72 20 3e 3d 20 28 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 69 29 29 2e 74 75 6e 67 2c 65	.(r.>=.(randunten.SUB.i)).tung,e
6540	68 65 29 3b 20 65 29 3b ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 6d 6f 76 65 20 20 20 20 20 20	he);.e);..............move......
6560	28 6b 72 65 75 7a 2c 78 6d 69 6e 2c 73 74 65 6c 6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	(kreuz,xmin,stelle);............
6580	4e 00 20 20 6c 73 67 6b 75 72 76 65 20 3a 3d 20 4c 4f 45 53 55 4e 47 53 41 42 53 43 48 4e 49 54	N...lsgkurve.:=.LOESUNGSABSCHNIT
65a0	54 20 6c 73 67 3b 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 2c 20 54 45 58 54 20 56 41 52 20	T.lsg;BOOL.VAR.indemo,.TEXT.VAR.
65c0	74 61 73 74 65 29 3a 3b ff ff ff ff ff ff ff ff 4e 00 20 20 7a 65 69 67 65 64 61 72 73 74 34 20	taste):;........N...zeigedarst4.
65e0	28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c 73 67 6b 75 72 76 65 29 3b 66 65 6e 73 74 65 72 2c	(dst,.indemo,.lsgkurve);fenster,
6600	20 22 64 61 72 73 74 22 29 3b 74 75 6e 67 29 20 2b 20 30 2e 35 29 ff ff ff ff ff ff ff ff ff ff	."darst");tung).+.0.5)..........
6620	3e 00 20 20 20 20 64 72 61 77 20 20 20 20 20 20 28 6b 72 65 75 7a 2c 20 77 61 6e 64 6c 65 28 73	>.....draw......(kreuz,.wandle(s
6640	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,.
6660	4e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 6e 64 6c 65 28 73	N.....kernvondarstellung4.ndle(s
6680	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 65	telle,.laenge.bei.beschriftung,e
66a0	68 65 29 3b 20 65 29 2e 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 74 72 61 6e 73 66 65 72 20 3a	he);.e)...............transfer.:
66c0	3d 20 6b 72 65 75 7a 3b 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 66 6f 72 67 65 74 20 28 22 4b	=.kreuz;..............forget.("K
66e0	52 45 55 5a 22 2c 20 71 75 69 65 74 29 3b ff ff 1e 00 20 20 20 20 74 72 61 6e 73 66 65 72 20 3a	REUZ",.quiet);........transfer.:
6700	3d 20 6b 72 65 75 7a 3b 20 69 65 74 29 3b ff ff 0e 00 20 20 20 20 74 72 61 6e 73 66 65 72 2e 20	=.kreuz;.iet);........transfer..
6720	2e 00 20 20 20 20 74 72 61 6e 73 66 65 72 2e 20 52 45 55 5a 22 2c 20 71 75 69 65 74 29 3b 4e 53	......transfer..REUZ",.quiet);NS
6740	54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a 20 ff 2e 00 20 20 20 20 20 20 64 69 61 6c 6f 67 66 75	T.x1,.x2,.x3):..........dialogfu
6760	65 72 64 65 6d 6f 20 6e 20 75 6e 64 20 7a 65 69 63 68 6e 65 6e 3b 20 32 2c 20 78 33 29 3a 20 ff	erdemo.n.und.zeichnen;.2,.x3):..
6780	1e 00 20 20 20 49 46 20 78 32 20 3c 20 78 20 65 72 67 67 20 3a 3a 20 78 31 3b 20 ff ff ff ff ff	.....IF.x2.<.x.ergg.::.x1;......
67a0	1e 00 20 20 20 49 46 20 78 32 20 3c 20 78 20 65 72 67 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.....IF.x2.<.x.erg..............
67c0	1e 00 20 20 20 20 20 20 54 48 45 4e 20 78 20 65 72 67 20 3a 3d 20 78 32 20 ff ff ff ff ff ff ff	........THEN.x.erg.:=.x2........
67e0	1e 00 20 20 20 49 46 20 78 33 20 3c 20 78 20 65 72 67 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.....IF.x3.<.x.erg..............
6800	1e 00 20 20 20 20 20 20 54 48 45 4e 20 78 20 65 72 67 20 3a 3d 20 78 33 20 ff ff ff ff ff ff ff	........THEN.x.erg.:=.x3........
6820	1e 00 45 4e 44 20 50 52 4f 43 20 6b 6c 65 69 6e 73 74 65 73 3b ff ff ff ff ff ff ff ff ff ff ff	..END.PROC.kleinstes;...........
6840	2e 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 4f 4e 53	..........reenterdarstellung4ONS
6860	54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a 20 ff 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64	T.x1,.x2,.x3):............leaved
6880	61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff 1e 00 20 20 20 20 20 20 54 48 45 4e 20 78 20 65	arstellung4.............THEN.x.e
68a0	72 67 20 3a 3d 20 78 32 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65	rg.:=.x2..................reente
68c0	72 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b ff ff 1e 00 20 20 20 20 20 20 54 48 45 4e 20 78 20 65	rdarstellung4;..........THEN.x.e
68e0	72 67 20 3a 3d 20 78 33 20 ff ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 67 72 6f 65 73	rg.:=.x3..........END.PROC.groes
6900	73 74 65 73 3b 20 ff ff ff ff ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 67 72 6f 65 73	stes;.............END.PROC.groes
6920	73 74 65 73 3b ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 49 46 20 74 61 73 74 65 20 3d	stes;...........>.....IF.taste.=
6940	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
6960	65 69 74 65 72 74 61 73 74 65 20 29 29 ff ff ff 1e 00 42 4f 4f 4c 20 56 41 52 20 69 6d 20 66 65	eitertaste.)).....BOOL.VAR.im.fe
6980	6e 73 74 65 72 3a 3a 46 41 4c 53 45 3b 20 ff ff 3e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64	nster::FALSE;...>.........leaved
69a0	61 72 73 74 65 6c 6c 75 6e 67 34 20 75 6e 67 73 6e 61 6d 65 2c 20 73 74 65 75 65 72 7a 65 69 6c	arstellung4.ungsname,.steuerzeil
69c0	65 29 3b 6e 20 53 55 42 20 69 29 29 29 ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 69 6d 20 61 75	e);n.SUB.i))).....END.PROC.im.au
69e0	73 67 61 62 65 66 65 6e 73 74 65 72 3b 20 ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 69 6d 20 61 75	sgabefenster;.....END.PROC.im.au
6a00	73 67 61 62 65 66 65 6e 73 74 65 72 3b 20 ff ff 3e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73	sgabefenster;...>...KURVE.VAR.ls
6a20	67 20 6b 75 72 76 65 3b 6c 6f 75 74 70 75 74 20 28 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65	g.kurve;loutput.(strukt.1.fenste
6a40	72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65	r,."darst");....>.........reente
6a60	72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 4e 49 54 54 20 6c 73 67 3b 20 31 20 66 65 6e 73 74 65	rdarstellung4.NITT.lsg;.1.fenste
6a80	72 2c 20 22 64 61 72 73 74 22 29 3b ff ff ff ff 1e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73	r,."darst");........KURVE.VAR.ls
6aa0	67 20 6b 75 72 76 65 3b ff ff ff ff ff ff ff ff 2e 00 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f	g.kurve;............LEAVE.kernvo
6ac0	6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 4e 49 54 54 20 6c 73 67 3b 20 ff ff ff ff ff ff ff ff	ndarstellung4.NITT.lsg;.........
6ae0	1e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 34 3a 20 20 34 20 ff ff ff	..........loeschemenue;4:..4....
6b00	1e 00 6b 65 72 6e 20 76 6f 6e 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 3a 20 ff ff ff ff ff ff	..kern.von.darstellung.4:.......
6b20	2e 00 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61	.............ELSE.gemenuezurzusa
6b40	74 7a 64 61 72 73 74 20 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28	tzdarst..................inchar(
6b60	74 61 73 74 65 29 3b 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28	taste);..................inchar(
6b80	74 61 73 74 65 29 3b 20 ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 49 46 20 74 61 73 74	taste);.........N........IF.tast
6ba0	65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64	e.=.abbruchtaste.COR.taste.=.mod
6bc0	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...............
6be0	2e 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 74 65	..........reenterdarstellung4;te
6c00	67 20 34 ff ff ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61	g.4......................ELIF.ta
6c20	73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 54	ste.=.sendetaste...............T
6c40	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,.......
6c60	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	>...............................
6c80	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,.....
6ca0	4e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 65 6c 64 75 6e 67 20	N.....initialisieremenue;eldung.
6cc0	61 75 73 20 28 31 32 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	aus.(12);zeile,.steuerzeile,.plo
6ce0	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 2e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f	ttask);...........dialogfuerdemo
6d00	3a 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 3b 69 6e 62 6c 20 3b ff ff ff ff ff ff ff	:.(menuezeile.(1));inbl.;.......
6d20	2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65	.........ELIF.taste.=.mdlgroesse
6d40	6e 20 65 69 6e 62 6c 20 ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48	n.einbl.........>.............TH
6d60	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
6d80	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.=
6da0	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
6dc0	74 61 73 74 65 20 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	taste..modellgroessen.taste.....
6de0	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 20 ff ff ff ff ff	......................THEN......
6e00	2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 76 65 20 64	..........leavedarstellung4.ve.d
6e20	61 72 73 74 65 6c 6c 75 6e 67 20 34 ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	arstellung.4....................
6e40	20 20 20 20 20 20 45 4c 53 45 20 ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	......ELSE......>...............
6e60	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 6c 73 67	.........zeige.darst.4.(dst,.lsg
6e80	20 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.kurve);........................
6ea0	20 20 20 46 49 3b ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 72 65 65 6e 74 65 72 64 61 72	...FI;................reenterdar
6ec0	73 74 65 6c 6c 75 6e 67 34 20 74 7a 64 61 72 73 74 3a 61 72 74 20 74 61 73 74 65 20 6e 3b 20 ff	stellung4.tzdarst:art.taste.n;..
6ee0	2e 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	....LEAVE.kernvonzeigemenuezurzu
6f00	73 61 74 7a 64 61 72 73 74 2e 74 65 6e 3b 20 ff 2e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c	satzdarst.ten;....reenterdarstel
6f20	6c 75 6e 67 34 3a 6d 65 6e 75 65 74 61 73 74 65 20 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 20 3b	lung4:menuetaste.ellungsarten;.;
6f40	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.
6f60	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3b 4e 00 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75	zur.zusatzdarst;N.leavedarstellu
6f80	6e 67 34 3a 3b 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	ng4:;F.taste.=.abbruchtaste.COR.
6fa0	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 65 20 ff ff ff	taste.=.modellgroessen.taste....
6fc0	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
6fe0	20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff ff 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.darstellung.4..................
7000	20 20 20 20 46 49 20 ff ff ff ff ff ff ff ff ff 3e 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c	....FI..........>.wahlderdarstel
7020	6c 75 6e 67 73 61 72 74 65 6e 3a 6c 64 75 6e 67 20 61 75 73 20 28 66 61 6c 73 63 68 65 20 74 61	lungsarten:ldung.aus.(falsche.ta
7040	73 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 67 69 62 61 62 62 72 75 63 68 6d 65	ste)................gibabbruchme
7060	6e 75 65 61 75 73 3b 71 75 69 65 74 29 3b 20 ff 1e 00 64 69 61 6c 6f 67 20 66 75 65 72 20 64 65	nueaus;quiet);....dialog.fuer.de
7080	6d 6f 3a 20 34 3a 2c 71 75 69 65 74 29 3b 20 ff 1e 00 20 20 20 20 20 20 6c 65 61 76 65 64 61 72	mo:.4:,quiet);..........leavedar
70a0	73 74 65 6c 6c 75 6e 67 34 20 65 74 29 3b 20 ff 1e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e	stellung4.et);........loeschemen
70c0	75 65 6d 65 6c 64 75 6e 67 3b 34 2e 29 3b 20 ff 1e 00 20 20 20 20 20 20 66 6f 72 67 65 74 28 22	uemeldung;4.);..........forget("
70e0	64 61 72 73 74 22 2c 71 75 69 65 74 29 3b 20 ff 2e 00 20 20 20 20 20 20 66 6f 72 67 65 74 28 22	darst",quiet);..........forget("
7100	64 61 72 73 74 22 2c 71 75 69 65 74 29 3b 20 75 6e 67 20 34 2e 2a 29 ff ff ff ff ff ff ff ff ff	darst",quiet);.ung.4.*).........
7120	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:...
7140	3e 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
7160	72 74 74 61 73 74 65 20 68 65 20 74 61 73 74 65 29 20 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff	rttaste.he.taste).eige.zeitd....
7180	3e 00 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 6e 67 20 34 61	>.zeigemenuezurzusatzdarst:ng.4a
71a0	72 74 65 6e 20 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 29 3b 20 20 7a 65 69 74 64 20 ff ff ff	rten..(taste,.FALSE);..zeitd....
71c0	3e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 66 6f 72 67 65 74 28 22 64	>.........loeschemenue;forget("d
71e0	61 72 73 74 22 2c 71 75 69 65 74 29 3b 20 74 7a 61 62 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff	arst",quiet);.tzabeige.zeitd....
7200	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.
7220	1e 00 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 ff ff ff ff ff ff ff ff ff	....ELIF.taste.=.rubout.........
7240	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 6c	...........zeige.darst.4.(dst,.l
7260	73 67 20 6b 75 72 76 65 29 3b ff ff ff ff ff ff 1e 00 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75	sg.kurve);........zeige.menue.zu
7280	72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e	r.zusatzdarst:..............THEN
72a0	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 20 7a 75 73 61 74 7a	.rubout.COR.taste.=.zeige.zusatz
72c0	2e 00 20 20 20 20 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3b 20 65 20 7a 75 72 20 7a 75 73 61 74	......gib.menue.aus;.e.zur.zusat
72e0	7a 64 61 72 73 74 20 3a ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 67 69 62 20 6d 65 6e 75 65 20	zdarst.:..............gib.menue.
7300	61 75 73 3b 20 ff ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28	aus;.....................inchar(
7320	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 20 20 6b 65 72 6e 20	taste);....................kern.
7340	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 7a 64 61 72 73 74 20	von.zeige.menue.zur.zusatzdarst.
7360	2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61	..........leavezeigemenuezurzusa
7380	74 7a 64 61 72 73 74 61 74 7a 64 61 72 73 74 20 0e 00 20 20 20 20 20 20 20 20 20 54 48 45 4e 20	tzdarstatzdarst............THEN.
73a0	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
73c0	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
73e0	67 73 61 72 74 74 61 73 74 65 ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c	gsarttaste......>.........modell
7400	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
7420	73 74 65 29 3b 73 74 65 29 29 20 ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ste);ste))......................
7440	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 ff	...wahl.der.darstellungsarten;..
7460	3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f	>...........THEN.ste.=.modellgro
7480	65 73 73 65 6e 20 74 61 73 74 65 20 6e 3b 20 64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff ff	essen.taste.n;.darst............
74a0	2e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65	.........ELIF.taste.=.mdlgroesse
74c0	6e 20 65 69 6e 62 6c 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	n.einbl.........>...........ELSE
74e0	20 6d 65 6e 75 65 3b 74 65 6c 6c 75 6e 67 20 34 6e 20 65 69 6e 62 6c 65 6e 64 65 6e 20 28 64 73	.menue;tellung.4n.einblenden.(ds
7500	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	t,.lsg,.taste);.>...............
7520	20 20 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	...modellgroessen.einblenden.(ds
7540	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 4e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20	t,.lsg,.taste);.N...fuellemenue.
7560	28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 29 3b 61 72 74 74 61 73 74 65 75 6e 67 20 34 73	(menuezeile.(16));arttasteung.4s
7580	74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 20 65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff	t,.lsg,.taste);.essen.taste.....
75a0	2e 00 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 20 6c 65 61 76	.....................THEN...leav
75c0	65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20	e.darstellung.4.>...fuellemenue.
75e0	28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 29 3b 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64	(menuezeile.(17));ue.zur.zusatzd
7600	61 72 73 74 20 75 73 61 74 7a 64 61 72 73 74 20 1e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	arst.usatzdarst.................
7620	20 20 20 46 49 3b ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61	...FI;....................plotta
7640	73 6b 29 20 3b 65 73 63 68 65 20 6d 65 6e 75 65 20 3b 65 69 6e 62 6c 20 2c ff ff ff ff ff ff ff	sk).;esche.menue.;einbl.,.......
7660	2e 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
7680	70 75 74 20 28 64 73 74 2c ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	put.(dst,.......>...............
76a0	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
76c0	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 4e 00 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f	ezeichnung,.....N...LEAVE.kernvo
76e0	6e 7a 65 69 67 65 61 62 62 72 75 63 68 6d 65 6e 75 65 2e 61 72 73 74 65 6c 6c 75 6e 67 20 34 74	nzeigeabbruchmenue.arstellung.4t
7700	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.....
7720	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.
7740	61 75 73 20 28 31 32 29 3b ff ff ff ff ff ff ff 1e 00 20 20 20 20 20 20 20 45 4c 49 46 20 74 61	aus.(12);................ELIF.ta
7760	73 74 65 20 3d 20 72 75 62 6f 75 74 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 54 48	ste.=.rubout....>.............TH
7780	45 4e 20 6c 6f 65 73 63 68 65 20 6d 65 6e 75 65 28 6d 65 6e 75 65 7a 65 69 6c 65 6e 6e 75 6d 6d	EN.loesche.menue(menuezeilennumm
77a0	65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 7a	er);............N.........leavez
77c0	65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2c 66 7a 65 69 6c 65 2c	eigemenuezurzusatzdarst.,fzeile,
77e0	73 74 65 75 65 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	steuerzeile);.eichnung,.........
7800	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	>...............................
7820	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);...
7840	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	>...............................
7860	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 ff ff	.....modellkurzbezeichnung,.;...
7880	1e 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.).
78a0	3e 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 6e 67 20	>........ELIF.taste.=.rubout.ng.
78c0	61 75 73 20 28 31 32 29 3b 68 65 20 74 61 73 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	aus.(12);he.taste)..............
78e0	0e 00 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3a 2e 00 20 20 20 20 20 20 20 20 52 45 50 20 20 20	..gib.menue.aus:..........REP...
7900	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.......
7920	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
7940	65 6e 73 69 6f 6e 20 20 30 20 ff ff ff ff ff ff 4e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20	ension..0.......N...fuellemenue.
7960	28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 30 29 29 3b 20 28 66 61 6c 73 63 68 65 20 74 61 73 74	(menuezeile.(10));.(falsche.tast
7980	65 29 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff	e)...........*).....*)..........
79a0	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
79c0	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..............*).
79e0	4e 00 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3a 6e 6e 75 6d 6d 65 72 28 34 29 20 3a 3d 20 31 30	N.gib.menue.aus:nnummer(4).:=.10
7a00	3b 20 20 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.
7a20	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 69 6e 69 74 69 61 6c 69 73 69	....*)..........N.....initialisi
7a40	65 72 65 20 6d 65 6e 75 65 3b 20 3a 3d 20 31 37 3b 20 20 28 2a 20 6e 20 6d 65 6e 75 65 20 7a 75	ere.menue;.:=.17;..(*.n.menue.zu
7a60	20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 2a 29 20 29 ff ff ff ff ff ff ff ff ff ff	.darstellungsarten*).)..........
7a80	4e 00 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a	N.leavezeigemenuezurzusatzdarst:
7aa0	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...............
7ac0	20 20 20 20 2a 29 45 52 3b 20 ff ff ff ff ff ff 2e 00 20 20 20 20 7a 65 69 67 65 20 6d 65 6e 75	....*)ER;.............zeige.menu
7ae0	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)............
7b00	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	..............LEAVE.zeige.menue.
7b20	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e 2e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20	zur.zusatzdarst...reenter.zeige.
7b40	6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 73 61 74 7a 64 61 72 73 74 2e	menue.zur.zusatzdarst:satzdarst.
7b60	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
7b80	64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff 3e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	darst:..........>.END.PROC.darst
7ba0	65 6c 6c 75 6e 67 20 34 3b 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 75 65 20 7a 75 72 20 7a 75 73	ellung.4;.zusatzdarst:ue.zur.zus
7bc0	61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	atzdarst..........END.PROC.darst
7be0	65 6c 6c 75 6e 67 20 34 3b ff ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	ellung.4;.........END.PROC.darst
7c00	65 6c 6c 75 6e 67 20 34 3b ff ff ff ff ff ff ff 2e 00 20 20 20 20 73 74 61 6e 64 61 72 64 68 6f	ellung.4;.............standardho
7c20	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,.....
7c40	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........=.
7c60	31 2c 20 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	1,.,...(*.in.mm.*)..............
7c80	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 4b 55 52	N............................KUR
7ca0	56 45 20 56 41 52 20 6b 75 72 76 65 29 3a 20 20 42 4f 4f 4c 20 56 41 52 20 69 6e 20 64 65 6d 6f	VE.VAR.kurve):..BOOL.VAR.in.demo
7cc0	2c 65 6e 20 20 20 2a 29 ff ff ff ff ff ff ff ff 2e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52	,en...*).............PICTURE.VAR
7ce0	20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b ff ff ff ff ff ff ff ff ff ff	.kreuz.:=.nilpicture.;..........
7d00	3e 00 20 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63	>....PICTURE.VAR.kreuz.:=.nilpic
7d20	74 75 72 65 20 3b 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	ture.;odellkurzbezeichnung,.....
7d40	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
7d60	72 69 66 74 75 6e 67 3b 20 ff ff ff ff ff ff ff 4e 00 20 20 20 62 65 73 63 68 72 69 66 74 65 20	riftung;........N....beschrifte.
7d80	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 75 6b 74 31 66 65 6e	und.plotte.beschriftung;.ukt1fen
7da0	73 74 65 72 2c 20 6b 75 72 76 65 2c 20 63 31 2c 20 76 31 2c 20 31 29 3b 20 ff ff ff ff ff ff ff	ster,.kurve,.c1,.v1,.1);........
7dc0	0e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	..initialisiere:N...............
7de0	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
7e00	65 75 65 72 7a 65 69 6c 65 29 20 46 49 3b 20 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	euerzeile).FI;.);...............
7e20	1e 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a 31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b 20	..initialisiere:1,.u2,.z1,.z2);.
7e40	2e 00 20 20 20 6e 69 6c 20 64 69 61 67 72 61 6d 6d 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74	.....nil.diagramm.(seite,.strukt
7e60	20 31 20 66 65 6e 73 74 65 72 29 3b ff ff ff ff 4e 00 73 63 68 72 65 69 62 65 20 6b 72 65 75 7a	.1.fenster);....N.schreibe.kreuz
7e80	3a 20 65 6d 61 3b 20 2e 20 67 65 6e 20 75 6e 64 20 7a 65 69 63 68 6e 65 6e 20 28 6d 69 6e 20 78	:.ema;...gen.und.zeichnen.(min.x
7ea0	2c 6d 61 78 20 78 2c 6d 69 6e 20 79 2c 6d 61 78 20 79 20 29 3b ff ff ff ff ff ff ff ff ff ff ff	,max.x,min.y,max.y.);...........
7ec0	2e 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,
7ee0	6d 61 78 20 79 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 62 65 73 74 69 6d 6d 65 20 65 78 74 72 65	max.y;..........>.bestimme.extre
7f00	6d 61 3a 20 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	ma:.e,.strukt.1.fenster,.kreuz);
7f20	20 2e 20 53 55 42 20 76 31 2c ff ff ff ff ff ff 2e 00 20 20 20 54 48 45 4e 20 6d 61 78 20 78 20	...SUB.v1,...........THEN.max.x.
7f40	3a 3d 20 6d 69 6e 20 78 20 2b 20 65 70 73 69 6c 6f 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff	:=.min.x.+.epsilon;.............
7f60	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..........
7f80	2e 00 20 20 20 20 20 20 20 20 6d 69 6e 20 78 20 3a 3d 20 6d 69 6e 20 78 20 2d 20 65 70 73 69 6c	..........min.x.:=.min.x.-.epsil
7fa0	6f 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65	on;.............N.kernvonzeigeme
7fc0	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72	nuezurzusatzdarst...END.PROC.dar
7fe0	73 74 65 6c 6c 75 6e 67 34 20 3b 20 61 78 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	stellung4.;.ax.y);..............
8000	2e 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 6e 69 6c 70 69 63	.....REAL.VAR.a,b,abstand;nilpic
8020	74 75 72 65 3b 20 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 70 6c 6f 74 74 65 75 6e 74 65	ture;.................plotteunte
8040	72 73 74 72 65 69 63 68 75 6e 67 3b 67 65 6e 64 65 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff	rstreichung;gende;..............
8060	2e 00 20 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 3b 69 6e 6c 65 67 65 6e 64 65 3b 6e 79 29 3b	....plottelegende;inlegende;ny);
8080	3b 65 6e 64 65 3b ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 62 65 73 63 68 72 69 66 74 65 61 63	;ende;..............beschrifteac
80a0	68 73 65 6e 69 6e 6c 65 67 65 6e 64 65 3b 76 65 6e 20 30 2e 30 29 3b 20 ff ff ff ff ff ff ff ff	hseninlegende;ven.0.0);.........
80c0	2e 00 73 63 68 72 65 69 62 65 75 65 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67 65 6e 64 65 3a	..schreibeueberschriftinlegende:
80e0	20 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 73 74 61 6e 64 61 72 64 62 72 65 69	.;..............>...standardbrei
8100	74 65 29 3b 61 72 64 68 6f 65 68 65 3b 65 6e 64 65 3b 20 73 74 65 72 2c 20 6c 65 67 65 6e 64 65	te);ardhoehe;ende;.ster,.legende
8120	29 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 73 63 68 72 65 69 62 65 6e 61 6d 65 69 6e	);..............N.schreibenamein
8140	6c 65 67 65 6e 64 65 3a 20 6d 69 6e 79 29 3b 20 66 65 6e 73 74 65 72 2c 20 6c 65 67 65 6e 64 65	legende:.miny);.fenster,.legende
8160	29 3b 20 2e 20 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	);...eite.#.+.0.1#;.............
8180	2e 00 73 63 68 72 65 69 62 65 20 75 65 62 65 72 73 63 68 72 69 66 74 20 69 6e 20 6c 65 67 65 6e	..schreibe.ueberschrift.in.legen
81a0	64 65 3a 3b ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 70 65 6e 20 28 6c 69 6e 69 65 20 28	de:;............>...pen.(linie.(
81c0	69 29 2c 20 69 29 3b 3a 72 65 2e 20 78 2c 6d 69 6e 20 79 29 3b 20 28 6c 65 67 65 6e 64 65 6e 74	i),.i);:re..x,min.y);.(legendent
81e0	65 78 74 29 2c 20 30 2e 30 2c ff ff ff ff ff ff 4e 00 20 20 64 72 61 77 63 6d 72 20 28 6c 69 6e	ext),.0.0,......N...drawcmr.(lin
8200	69 65 20 28 69 29 2c 20 77 6f 72 74 6c 61 65 6e 67 65 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65	ie.(i),.wortlaenge.*.standardbre
8220	69 74 65 2c 20 30 2e 30 29 3b 65 2c 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 20 ff ff ff	ite,.0.0);e,standardbreite);....
8240	2e 00 20 20 20 6d 6f 76 65 20 20 20 20 20 28 6c 69 6e 69 65 28 69 29 2c 20 6d 69 6e 20 78 2c 6d	.....move.....(linie(i),.min.x,m
8260	69 6e 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 20 20 70 6c 6f 74 20 28 6c 69 6e 69 65 20	in.y);..........>...plot.(linie.
8280	28 69 29 29 3b 29 2c 20 77 6f 72 74 6c 61 65 6e 67 65 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65	(i));),.wortlaenge.*.standardbre
82a0	69 74 65 2c 20 30 2e 30 29 3b 30 2e 32 29 3b ff 2e 00 20 20 20 70 65 6e 20 28 30 2c 20 31 2c 20	ite,.0.0);0.2);......pen.(0,.1,.
82c0	30 2c 20 70 65 6e 28 6c 69 6e 69 65 28 69 29 29 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	0,.pen(linie(i)));..............
82e0	3e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64 65 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 29 3b 73	>...move.(legende,.maxx,.miny);s
8300	74 65 72 2c 20 6c 69 6e 69 65 20 28 69 29 29 2e 29 29 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff	ter,.linie.(i)).))..............
8320	2e 00 20 20 20 70 6c 6f 74 20 28 6c 69 6e 69 65 28 69 29 29 3b 64 65 2c 20 6d 69 6e 20 78 2c 6d	.....plot.(linie(i));de,.min.x,m
8340	61 78 20 79 29 3b 20 ff ff ff ff ff ff ff ff ff 3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67	ax.y);..........>...movecmr.(leg
8360	65 6e 64 65 2c 20 2d 20 32 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e	ende,.-.2.0.*.standardbreite,.0.
8380	30 29 3b 20 ff ff 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	0);.............N.plottelegende:
83a0	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
83c0	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 72 65 69 74 65 29 3b 20 ff ff ff ff ff	e,.standardbreite);reite);......
83e0	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 32 2e 30 2a 73 74	>....move.cm.r.(legende,.-2.0*st
8400	61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e 30 29 3b 29 3b 20 ff ff ff ff ff ff ff ff ff ff	andardbreite,.0.0););...........
8420	4e 00 20 20 70 6c 6f 74 20 28 6c 65 67 65 6e 64 65 29 3b 20 78 61 63 68 73 65 6e 62 65 7a 2c 20	N...plot.(legende);.xachsenbez,.
8440	30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69	0.0,.standardhoehe,.standardbrei
8460	74 65 29 3b 65 69 74 65 29 3b 20 2e ff ff ff ff 2e 00 20 20 20 70 65 6e 20 28 30 2c 20 31 2c 20	te);eite);...........pen.(0,.1,.
8480	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));...............
84a0	4e 00 20 20 72 69 63 68 74 65 70 69 63 74 75 72 65 65 69 6e 3b 72 65 3b 65 67 65 6e 64 65 29 29	N...richtepictureein;re;egende))
84c0	3b 20 4f 55 54 50 55 54 20 20 56 41 52 20 73 65 69 74 65 2c 20 49 4e 54 20 43 4f 4e 53 54 20 66	;.OUTPUT..VAR.seite,.INT.CONST.f
84e0	65 6e 73 74 65 72 2c ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 74 72 61 67 65 20 70 75 6e 6b 74	enster,..............trage.punkt
8500	65 20 69 6e 20 70 69 63 74 75 72 65 20 65 69 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	e.in.picture.ein;...............
8520	2e 00 72 69 63 68 74 65 70 69 63 74 75 72 65 65 69 6e 3a 72 65 2e 69 63 74 75 72 65 20 65 69 6e	..richtepictureein:re.icture.ein
8540	3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 66 6f 72 67 65 74 20 28 22 50 49 43	;...................forget.("PIC
8560	54 55 52 45 22 2c 20 71 75 69 65 74 29 3b 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	TURE",.quiet);n;................
8580	2e 00 20 20 42 4f 4f 4c 20 56 41 52 20 76 6f 72 70 75 6e 6b 74 20 3a 3d 20 46 41 4c 53 45 20 3b	....BOOL.VAR.vorpunkt.:=.FALSE.;
85a0	3b 66 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff 3e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30	;ft);...........>...pen.(0,.1,.0
85c0	2c 20 73 74 69 66 74 29 3b 3a 4c 53 45 3b 20 6e 64 20 28 4b 55 52 56 45 4e 44 49 4d 45 4e 53 49	,.stift);:LSE;.nd.(KURVENDIMENSI
85e0	4f 4e 20 6b 75 72 76 65 29 3b 20 ff ff ff ff ff 2e 00 20 20 20 20 74 72 61 67 65 66 6f 6c 67 65	ON.kurve);............tragefolge
8600	70 75 6e 6b 74 65 69 6e 20 69 74 2c 7a 29 3b 20 6b 75 72 76 65 29 20 52 45 50 20 ff ff ff ff ff	punktein.it,z);.kurve).REP......
8620	2e 00 74 72 61 67 65 61 6e 66 61 6e 67 73 70 75 6e 6b 74 65 69 6e 3a 74 3b 65 69 6e 20 20 3b 2e	..trageanfangspunktein:t;ein..;.
8640	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 79 77 65 72 74 20 3a 3d 20 7a 20 53	................>...ywert.:=.z.S
8660	55 42 20 79 76 61 72 3b 3b 70 75 6e 6b 74 3b 2e 20 72 3b 20 79 20 77 65 72 74 20 3a 3d 20 7a 20	UB.yvar;;punkt;..r;.y.wert.:=.z.
8680	53 55 42 20 79 76 61 72 3b 20 ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 32	SUB.yvar;...........drawcmr.(0.2
86a0	2c 20 30 2e 30 29 3b 65 72 74 29 3b 3d 20 54 52 55 45 20 20 ff ff ff ff ff ff ff ff ff ff ff ff	,.0.0);ert);=.TRUE..............
86c0	3e 00 20 20 6d 6f 76 65 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 78 77 65 72 74 2c 20 79 77 65 72 74	>...move.(funktion,.xwert,.ywert
86e0	29 3b 20 30 2e 30 2c 20 2d 30 2e 32 29 3b 20 69 74 2c 7a 29 3b 20 2e ff ff ff ff ff ff ff ff ff	);.0.0,.-0.2);.it,z);...........
8700	3e 00 20 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 20 28 6b 75 72 76 65 2c 20 7a 65 69 74 2c 20	>...lesenaechsten.(kurve,.zeit,.
8720	7a 29 3b 74 65 6e 28 6b 75 72 76 65 2c 7a 65 69 74 2c 7a 29 3b 20 2e 72 3b 20 ff ff ff ff ff ff	z);ten(kurve,zeit,z);..r;.......
8740	4e 00 20 20 64 72 61 77 63 6d 72 20 28 66 75 6e 6b 74 69 6f 6e 2c 20 30 2e 30 2c 20 2d 20 30 2e	N...drawcmr.(funktion,.0.0,.-.0.
8760	32 29 3b 74 65 6e 28 6b 75 72 76 65 2c 7a 65 69 74 2c 7a 29 3b 20 2e 72 74 2c 20 78 20 76 61 72	2);ten(kurve,zeit,z);..rt,.x.var
8780	29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 49 46 20 28 20 76 6f 72 70 75 6e 6b	)...............N...IF.(.vorpunk
87a0	74 20 43 41 4e 44 20 28 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 78 77 65 72	t.CAND.(.imausgabefenster.(.xwer
87c0	74 20 2c 20 78 76 61 72 20 29 20 72 28 78 20 77 65 72 74 2c 20 78 20 76 61 72 29 20 ff ff ff ff	t.,.xvar.).r(x.wert,.x.var).....
87e0	3e 00 20 20 20 20 20 20 20 20 20 20 76 6f 72 70 75 6e 6b 74 20 3a 3d 20 54 52 55 45 20 65 72 74	>...........vorpunkt.:=.TRUE.ert
8800	20 29 20 3a 3d 20 46 41 4c 53 45 20 43 41 4e 44 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.).:=.FALSE.CAND................
8820	3e 00 7a 65 69 63 68 6e 65 6b 72 65 69 73 75 6d 65 6e 64 70 75 6e 6b 74 3a 6f 6e 20 2c 20 78 77	>.zeichnekreisumendpunkt:on.,.xw
8840	65 72 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	ert.,.ywert.).;.................
8860	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:.............
8880	2e 00 20 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 3b 61 6e 73 66 65 72 3b 20 73 74 65 72 2c	....zeichneystrich;ansfer;.ster,
88a0	20 74 72 61 6e 73 66 65 72 29 3b 20 ff ff ff ff 2e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20	.transfer);.........transfer.:=.
88c0	66 75 6e 6b 74 69 6f 6e 3b 20 33 36 30 2e 30 2c 20 30 29 3b 6e 73 66 65 72 29 3b 20 ff ff ff ff	funktion;.360.0,.0);nsfer);.....
88e0	4e 00 20 20 70 75 74 70 69 63 74 75 72 65 20 28 73 65 69 74 65 2c 20 66 65 6e 73 74 65 72 2c 20	N...putpicture.(seite,.fenster,.
8900	74 72 61 6e 73 66 65 72 29 3b 20 30 29 3b 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78	transfer);.0);AL.CONST.xmin,xmax
8920	2c 79 6d 69 6e 2c 79 6d 61 78 29 3a 20 ff ff ff 2e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20	,ymin,ymax):........transfer.:=.
8940	66 75 6e 6b 74 69 6f 6e 3b 3b 20 65 74 29 20 46 49 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	funktion;;.et).FI;..............
8960	4e 00 20 20 49 46 20 65 78 69 73 74 73 20 28 22 4b 52 45 55 5a 22 29 20 65 29 3b 65 74 29 20 46	N...IF.exists.("KREUZ").e);et).F
8980	49 3b 20 2c 20 61 6e 7a 61 68 6c 20 79 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 3a 3a	I;.,.anzahl.y.achsenabschnitte::
89a0	31 31 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 66 6f 72 67 65 74 20 28 22 4b 52 45	11;.............N...forget.("KRE
89c0	55 5a 22 2c 20 71 75 69 65 74 29 20 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 52 45 41 4c 20 43 4f	UZ",.quiet).undzeichnen.(REAL.CO
89e0	4e 53 54 20 78 6d 69 6e 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 2c 20 79 6d 61 78 29 3a ff ff ff ff	NST.xmin,.xmax,.ymin,.ymax):....
8a00	1e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b ff ff ff ff ff ff ff ff	....kreuz.:=.nilpicture;........
8a20	2e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c 20 78 6d 69 6e 2c 20 79 6d 61 78 29 3b 29 2e 20	....move.(kreuz,.xmin,.ymax);)..
8a40	64 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	dhoehe);............drawcmr.(kre
8a60	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);........
8a80	2e 00 20 20 73 74 65 6c 6c 65 20 3a 3d 20 73 63 68 6f 65 6e 65 7a 61 68 6c 20 28 31 29 3b 3b 64	....stelle.:=.schoenezahl.(1);;d
8aa0	68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 52 45 41 4c 20 56 41 52 20 73	hoehe);...............REAL.VAR.s
8ac0	74 65 6c 6c 65 3a 3a 78 6d 69 6e 3b 20 ff ff ff 2e 00 20 20 20 20 64 72 61 77 63 6d 72 28 6b 72	telle::xmin;..........drawcmr(kr
8ae0	65 75 7a 2c 2d 30 2e 32 2c 2d 30 2e 32 29 2e 20 6c 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff	euz,-0.2,-0.2)..l;..............
8b00	4e 00 20 20 20 20 73 74 65 6c 6c 65 20 3a 3d 20 73 63 68 6f 65 6e 65 7a 61 68 6c 20 28 70 6f 73	N.....stelle.:=.schoenezahl.(pos
8b20	29 3b 20 28 78 20 6d 61 78 20 2d 20 78 20 6d 69 6e 29 2c 20 73 63 68 6f 65 6e 65 20 7a 61 68 6c	);.(x.max.-.x.min),.schoene.zahl
8b40	29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	);..................drawcmr.(kre
8b60	75 7a 2c 20 30 2e 30 2c 20 2d 20 30 2e 33 29 2e 6e 62 6c 20 33 29 3b 28 70 6f 73 29 3b ff ff ff	uz,.0.0,.-.0.3).nbl.3);(pos);...
8b80	2e 00 20 20 20 20 20 20 20 20 20 20 52 45 50 20 73 74 65 6c 6c 65 20 3a 3d 20 73 63 68 6f 65 6e	............REP.stelle.:=.schoen
8ba0	65 20 7a 61 68 6c 20 28 70 6f 73 29 3b ff ff ff 2e 00 20 20 20 20 20 20 20 20 45 4c 49 46 20 74	e.zahl.(pos);.............ELIF.t
8bc0	61 73 74 65 20 3c 3e 20 6d 65 6e 75 65 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	aste.<>.menuetaste..............
8be0	2e 00 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 3a 63 68 6f 65 6e 65 7a 61 68 6c 20 28 70 6f 73	..zeichneystrich:choenezahl.(pos
8c00	29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	);..............>...move.(kreuz,
8c20	20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b 28 76 6f 72 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61	.xmin,.stelle);(vorkomma)).*.sta
8c40	6e 64 61 72 64 62 72 65 69 74 65 2c 20 ff ff ff 4e 00 7a 65 69 63 68 6e 65 79 67 65 67 65 6e 73	ndardbreite,....N.zeichneygegens
8c60	74 72 69 63 68 3a 72 7a 75 73 61 74 7a 64 61 72 73 74 3b 6b 6f 6d 6d 61 29 29 20 2a 20 73 74 61	trich:rzusatzdarst;komma)).*.sta
8c80	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),...
8ca0	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(
8cc0	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,....
8ce0	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
8d00	64 61 72 64 68 6f 65 68 65 29 3b 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 6f 6d 6d	dardhoehe);*.standardbreite,.omm
8d20	61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff ff ff ff 4e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68	astellen),......N...standardhoeh
8d40	65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 72 64 62 72 65 69 74 65 29 2e 63 68 72	e,.standardbreite).rdbreite).chr
8d60	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),......
8d80	2e 00 20 20 20 20 20 20 52 45 50 20 73 74 65 6c 6c 65 20 3a 3d 20 73 63 68 6f 65 6e 65 20 7a 61	........REP.stelle.:=.schoene.za
8da0	68 6c 20 28 70 6f 73 29 3b 20 ff ff ff ff ff ff 2e 00 20 20 70 6c 6f 74 20 28 74 72 61 6e 73 66	hl.(pos);...........plot.(transf
8dc0	65 72 29 3b 61 72 73 74 65 6c 6c 75 6e 67 34 20 68 6c 20 28 70 6f 73 29 3b 20 65 20 79 20 ff ff	er);arstellung4.hl.(pos);.e.y...
8de0	1e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 63 68 6e 65 20 79 73 74 72 69 63 68 3b 20 ff ff ff	............zeichne.ystrich;....
8e00	2e 00 45 4e 44 50 52 4f 43 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e	..ENDPROC.kreuzerzeugenundzeichn
8e20	65 6e 3b 73 63 68 72 69 66 74 65 20 79 20 ff ff 2e 00 20 20 6d 69 6e 20 28 78 31 2c 20 6d 69 6e	en;schrifte.y.......min.(x1,.min
8e40	20 28 78 32 2c 20 78 33 29 29 2e 2c 73 74 65 6c 6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	.(x2,.x3)).,stelle);............
8e60	2e 00 20 20 6d 61 78 20 28 78 31 2c 20 6d 61 78 20 28 78 32 2c 20 78 33 29 29 2e 65 69 63 68 6e	....max.(x1,.max.(x2,.x3)).eichn
8e80	65 6e 3b 3b 20 ff ff ff ff ff ff ff ff ff ff ff 2e 00 45 4e 44 20 50 52 4f 43 20 6b 6c 65 69 6e	en;;..............END.PROC.klein
8ea0	73 74 65 73 3b 74 65 6c 6c 75 6e 67 34 20 29 2e 20 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff	stes;tellung4.)..e);............
8ec0	4e 00 45 4e 44 20 50 52 4f 43 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 3b 43 4f 4e 53	N.END.PROC.imausgabefenster;CONS
8ee0	54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 29 20	T.x1,.x2,.x3):bei.beschriftung).
8f00	2b 20 30 2e 35 29 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 4f 55 54 50 55 54 20 56 41 52 20 64	+.0.5)..........N...OUTPUT.VAR.d
8f20	73 74 20 3a 3d 20 6e 69 6c 6f 75 74 70 75 74 20 28 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c	st.:=.niloutput.(strukt1fenster,
8f40	20 22 64 61 72 73 74 22 29 3b 61 72 64 68 6f 65 68 65 29 3b 20 29 29 3b ff ff ff ff ff ff ff ff	."darst");ardhoehe);.));........
8f60	4e 00 20 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 3b 73 74 65 72 3b 65 6c 6c 65	N...KURVE.VAR.lsgkurve;ster;elle
8f80	6e 29 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64	n),.0.0,.standardhoehe,.standard
8fa0	62 72 65 69 74 65 29 3b ff ff ff ff ff ff ff ff 4e 00 20 20 49 46 20 74 61 73 74 65 20 3d 20 7a	breite);........N...IF.taste.=.z
8fc0	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
8fe0	20 43 4f 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff	.COR.taste.=.abbruchtaste.COR...
9000	2e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 65 74 29 3b 65 69	......kernvondarstellung4.et);ei
9020	63 68 6e 65 6e 3b 20 ff ff ff ff ff ff ff ff ff 1e 00 20 20 20 49 46 20 78 32 20 3c 20 78 20 65	chnen;...............IF.x2.<.x.e
9040	72 67 67 20 3a 3a 20 78 31 3b 20 ff ff ff ff ff 1e 00 20 20 20 20 20 20 54 48 45 4e 20 78 20 65	rgg.::.x1;..............THEN.x.e
9060	72 67 20 3a 3d 20 78 32 20 ff ff ff ff ff ff ff 1e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	rg.:=.x2..............ELIF.taste
9080	20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 ff ff 1e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64	.=.sendetaste.............leaved
90a0	61 72 73 74 65 6c 6c 75 6e 67 34 20 ff ff ff ff 2e 00 52 45 41 4c 20 50 52 4f 43 20 67 72 6f 65	arstellung4.......REAL.PROC.groe
90c0	73 73 74 65 73 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a 20 ff	sstes.(REAL.CONST.x1,.x2,.x3):..
90e0	1e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 75 73 20 28 31 32 29 3b ff ff ff	..........out.(piep);us.(12);...
9100	1e 00 20 20 20 20 20 20 54 48 45 4e 20 78 20 65 72 67 20 3a 3d 20 78 33 20 ff ff ff ff ff ff ff	........THEN.x.erg.:=.x3........
9120	1e 00 20 20 20 20 20 20 20 20 78 20 65 72 67 20 3a 3d 20 78 33 20 ff ff ff ff ff ff ff ff ff ff	..........x.erg.:=.x3...........
9140	1e 00 45 4e 44 20 50 52 4f 43 20 67 72 6f 65 73 73 74 65 73 3b ff ff ff ff ff ff ff ff ff ff ff	..END.PROC.groesstes;...........
9160	3e 00 49 46 20 28 28 72 20 3c 3d 20 28 72 61 6e 64 20 6f 62 65 6e 20 53 55 42 20 69 29 29 20 43	>.IF.((r.<=.(rand.oben.SUB.i)).C
9180	41 4e 44 20 28 72 3e 3d 20 28 72 61 6e 64 20 75 6e 74 65 6e 20 53 55 42 20 69 29 29 29 ff ff ff	AND.(r>=.(rand.unten.SUB.i)))...
91a0	3e 00 20 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	>..............gebeaufbildschirm
91c0	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 6e 75 6e 67 2c	aus.(dst,.modellkurzbezeichnung,
91e0	1e 00 45 4e 44 20 50 52 4f 43 20 69 6d 20 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 3b 20 ff ff	..END.PROC.im.ausgabefenster;...
9200	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.
9220	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");....
9240	2e 00 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 75 65 74 61 73 74 65 20 4e 49	..reenterdarstellung4:uetaste.NI
9260	54 54 20 6c 73 67 3b 20 ff ff ff ff ff ff ff ff 1e 00 20 20 20 20 6b 65 72 6e 20 76 6f 6e 20 64	TT.lsg;...............kern.von.d
9280	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
92a0	65 6c 6c 75 6e 67 20 34 3a 20 ff ff ff ff ff ff 2e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	ellung.4:.........END.PROC.darst
92c0	65 6c 6c 75 6e 67 34 3b 65 6c 6c 75 6e 67 34 20 64 65 6d 6f 20 46 49 3b 20 65 29 3b ff ff ff ff	ellung4;ellung4.demo.FI;.e);....
92e0	1e 00 20 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28 74 61 73 74 65 20 3d 20 65 73 63 29 20 ff ff	.......ELIF.NOT.(taste.=.esc)...
9300	4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3c 3e 20 65 73 63 20 64 75 6e 67 20 28 6d 65	N.....ELIF.taste.<>.esc.dung.(me
9320	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 20 74 61 73 74	ldungstext.(falschetaste))..tast
9340	65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70	e.........................out.(p
9360	69 65 70 29 3b 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 ff ff ff ff ff ff ff ff ff ff ff ff ff	iep);.darstellung.4.............
9380	2e 00 20 20 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b	......LEAVE.kernvondarstellung4;
93a0	70 75 74 20 28 64 73 74 2c ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 72 65 65 6e 74 65	put.(dst,.......>.........reente
93c0	72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	rdarstellung4........modellkurzb
93e0	65 7a 65 69 63 68 6e 75 6e 67 2c 20 ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ezeichnung,.....N...............
9400	20 20 20 20 20 20 20 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	.....................kopfzeile,.
9420	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);.........
9440	3e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31	>.....fuellemenue.(menuezeile.(1
9460	36 29 29 3b 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	6));nblenden.(dst,.lsg,.taste);.
9480	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 65 69 6c 65 20 28 35	N.....tastelesen.(taste);eile.(5
94a0	29 29 3b 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	));chtaste.COR.taste.=.modellgro
94c0	65 73 73 65 6e 20 74 61 73 74 65 20 ff ff ff ff 2e 00 20 20 20 20 66 75 65 6c 6c 65 6d 65 6e 75	essen.taste...........fuellemenu
94e0	65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 29 3b 65 6c 6c 75 6e 67 20 34 ff ff ff ff	e.(menuezeile.(17));ellung.4....
9500	3e 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 69 67 65 20 64	>.....................ELSE.ige.d
9520	61 72 73 74 20 34 20 28 64 73 74 2c 20 6c 73 67 20 6b 75 72 76 65 29 3b ff ff ff ff ff ff ff ff	arst.4.(dst,.lsg.kurve);........
9540	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49 3b 64 61 72 73 74 65 6c 6c 75 6e	...................FI;darstellun
9560	67 73 61 72 74 20 74 61 73 74 65 20 ff ff ff ff 4e 00 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f	gsart.taste.....N...LEAVE.kernvo
9580	6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68	ndarstellung4..modellkurzbezeich
95a0	6e 75 6e 67 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 61 73 74 65 20 ff ff ff	nung,.darstellungsname,.aste....
95c0	3e 00 20 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 63 68 6d 65 6e 75 65 20 65	>...LEAVE.darstellung4.chmenue.e
95e0	20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 74 61 73 74 65 29 20 ff ff ff ff ff ff ff ff ff ff ff	.darstellung.4taste)............
9600	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:.....
9620	2e 00 20 20 20 20 20 20 20 69 6e 63 68 61 72 28 74 61 73 74 65 29 3b 20 72 74 65 6e 3a 3b 20 75	.........inchar(taste);.rten:;.u
9640	6e 67 20 34 2e 2a 29 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	ng.4.*).........>...............
9660	20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 65 75 65 72 7a 65 69 6c 65 29 3b 74 61 73 74 65	..............steuerzeile);taste
9680	29 20 45 29 3b 20 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d	).E);...............ELIF.taste.=
96a0	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 20 7a 75 73 61 74 7a	.rubout.COR.taste.=.zeige.zusatz
96c0	1e 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 ff ff	..zeige.menue.zur.zusatzdarst:..
96e0	2e 00 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 6d 65 6c 64 75 6e 67 3b 67 65 7a 75 73 61	......loeschemenuemeldung;gezusa
9700	74 7a 20 20 7a 65 69 67 65 20 7a 75 73 61 74 7a 2e 00 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65	tz..zeige.zusatz..kern.von.zeige
9720	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.
9740	1e 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 ff ff	..zeige.menue.zur.zusatzdarst:..
9760	2e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 7a 64 61 72 73 74 3a 74 65	..........loeschemenue;zdarst:te
9780	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 54 48 45 4e 20	...........................THEN.
97a0	76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 2e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28	ve.darstellung.4......ELIF.NOT.(
97c0	74 61 73 74 65 20 3d 20 65 73 63 29 20 73 61 74 7a 64 61 72 73 74 20 3a 74 65 ff ff ff ff ff ff	taste.=.esc).satzdarst.:te......
97e0	3e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 63 68 65 20 6d 65 6e 75 65	>.........loeschemenue;che.menue
9800	20 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	.(menuezeilennummer);...........
9820	3e 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
9840	20 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 20 ff ff ff ff ff ff ff ff ff ff	.nue.zur.zusatzdarst............
9860	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20	>.............leavedarstellung4.
9880	65 73 73 65 6e 20 74 61 73 74 65 20 6e 6e 75 6d 6d 65 72 29 3b 20 ff ff ff ff ff ff ff ff ff ff	essen.taste.nnummer);...........
98a0	4e 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 6d 65 6e 75 65 7a	N.............reenterzeigemenuez
98c0	75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f	urzusatzdarst..taste.=.modellgro
98e0	65 73 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	essen.taste.....>...............
9900	20 20 20 20 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 20	.....THEN...leave.darstellung.4.
9920	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	zur.zusatzdarst.................
9940	20 20 20 46 49 3b 20 73 65 6e 64 65 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	...FI;.sendetaste...............
9960	3e 00 20 20 20 20 20 20 20 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20 28 31 32 29 3b 65 73 73 65	>........gibmeldungaus.(12);esse
9980	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);.
99a0	4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 3a 20 3d 20 61 62	N.....ELIF.taste.=.rubout.:.=.ab
99c0	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
99e0	65 73 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	essen.taste.....>...............
9a00	20 20 20 46 49 3b 4c 53 45 20 20 20 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	...FI;LSE...reenter.zeige.menue.
9a20	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 4e 00 20 20 20 20 20 20 20 20 73 74 65 75 65 72	zur.zusatzdarst.N.........steuer
9a40	7a 65 69 6c 65 29 3b 73 65 6e 64 65 74 61 73 74 65 20 68 69 72 6d 20 61 75 73 20 28 64 73 74 2c	zeile);sendetaste.hirm.aus.(dst,
9a60	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,.........
9a80	3e 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	>.............THEN.gib.meldung.a
9aa0	75 73 20 28 66 61 6c 73 63 68 65 20 74 61 73 74 65 29 20 74 20 ff ff ff ff ff ff ff ff ff ff ff	us.(falsche.taste).t............
9ac0	0e 00 67 69 62 20 6d 65 6e 75 65 20 61 75 73 3a 2e 00 20 20 20 20 46 4f 52 20 69 20 46 52 4f 4d	..gib.menue.aus:......FOR.i.FROM
9ae0	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..........
9b00	4e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 35 20 29	N...fuellemenue.(menuezeile.(5.)
9b20	29 3b 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	);.(falsche.taste)..............
9b40	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20	....*)..........N...fuellemenue.
9b60	28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 37 29 29 3b 20 28 2a 20 6d 6f 64 65 6c 6c 67 72 6f 65	(menuezeile.(17));.(*.modellgroe
9b80	73 73 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 29 ff ff ff ff ff ff ff ff ff ff	ssen..............*).)..........
9ba0	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
9bc0	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........
9be0	2e 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 74	.......THEN.leave.darstellung.4t
9c00	65 20 3d 20 7a 65 69 67 65 20 7a 75 73 61 74 7a 4e 00 44 69 65 20 4b 69 6e 65 74 69 6b 20 64 65	e.=.zeige.zusatzN.Die.Kinetik.de
9c20	72 20 52 65 61 6b 74 69 6f 6e 65 6e 20 30 2e 2c 20 31 2e 20 75 6e 64 20 32 2e 20 4f 72 64 6e 75	r.Reaktionen.0.,.1..und.2..Ordnu
9c40	6e 67 20 69 73 74 20 47 65 67 65 6e 73 74 61 6e 64 20 64 69 65 73 65 73 20 ff ff ff ff ff ff ff	ng.ist.Gegenstand.dieses........
9c60	4e 00 4d 6f 64 65 6c 6c 73 2e 20 44 61 73 20 56 65 72 68 61 6c 74 65 6e 20 64 65 72 20 76 6f 6e	N.Modells..Das.Verhalten.der.von
9c80	65 69 6e 61 6e 64 65 72 20 75 6e 61 62 68 d9 6e 67 69 67 65 6e 20 6b 6f 6e 74 69 6e 75 69 65 72	einander.unabh.ngigen.kontinuier
9ca0	6c 69 63 68 65 6e 20 20 ff ff ff ff ff ff ff ff 4e 00 50 72 6f 7a 65 73 73 65 20 77 69 72 64 20	lichen..........N.Prozesse.wird.
9cc0	63 68 61 72 61 6b 74 65 72 69 73 69 65 72 74 20 64 75 72 63 68 20 64 69 65 20 66 6f 6c 67 65 6e	charakterisiert.durch.die.folgen
9ce0	64 65 6e 20 44 69 66 66 65 72 65 6e 74 69 61 6c 67 6c 65 69 63 68 75 6e 67 65 6e 3a 20 ff ff ff	den.Differentialgleichungen:....
9d00	4e 00 20 20 20 2d 20 64 63 28 41 31 29 2f 64 74 20 3d 20 6b 31 20 20 20 20 20 20 20 20 20 20 20	N....-.dc(A1)/dt.=.k1...........
9d20	20 20 20 20 20 20 20 20 20 20 20 66 db 72 20 64 69 65 20 52 65 61 6b 74 69 6f 6e 20 30 2e 20 4f	...........f.r.die.Reaktion.0..O
9d40	72 64 6e 75 6e 67 20 20 ff ff ff ff ff ff ff ff 4e 00 20 20 20 2d 20 64 63 28 41 32 29 2f 64 74	rdnung..........N....-.dc(A2)/dt
9d60	20 3d 20 6b 32 20 63 28 41 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 db 72 20 64	.=.k2.c(A2)................f.r.d
9d80	69 65 20 52 65 61 6b 74 69 6f 6e 20 31 2e 20 4f 72 64 6e 75 6e 67 20 20 ff ff ff ff ff ff ff ff	ie.Reaktion.1..Ordnung..........
9da0	4e 00 20 20 20 2d 20 64 63 28 41 33 29 2f 64 74 20 3d 20 6b 33 20 63 28 41 33 29 20 63 28 41 33	N....-.dc(A3)/dt.=.k3.c(A3).c(A3
9dc0	29 20 20 20 20 20 20 20 20 20 20 66 db 72 20 64 69 65 20 52 65 61 6b 74 69 6f 6e 20 32 2e 20 4f	)..........f.r.die.Reaktion.2..O
9de0	72 64 6e 75 6e 67 2e 20 20 ff ff ff ff ff ff ff 4e 00 48 69 65 72 62 65 69 20 73 74 65 68 74 20	rdnung..........N.Hierbei.steht.
9e00	63 28 41 29 20 66 db 72 20 64 69 65 20 6d 6f 6c 61 72 65 20 4b 6f 6e 7a 65 6e 74 72 61 74 69 6f	c(A).f.r.die.molare.Konzentratio
9e20	6e 20 64 65 73 20 6a 65 77 65 69 6c 69 67 65 6e 20 41 75 73 67 61 6e 67 73 dd 20 20 ff ff ff ff	n.des.jeweiligen.Ausgangs.......
9e40	4e 00 73 74 6f 66 66 73 20 75 6e 64 20 6b 20 66 db 72 20 64 69 65 20 47 65 73 63 68 77 69 6e 64	N.stoffs.und.k.f.r.die.Geschwind
9e60	69 67 6b 65 69 74 73 6b 6f 6e 73 74 61 6e 74 65 20 64 65 72 20 6a 65 77 65 69 6c 69 67 65 6e 20	igkeitskonstante.der.jeweiligen.
9e80	52 65 61 6b 74 69 6f 6e 2e 20 20 ff ff ff ff ff 4e 00 44 69 65 20 52 65 61 6b 74 69 6f 6e 73 67	Reaktion........N.Die.Reaktionsg
9ea0	65 73 63 68 77 69 6e 64 69 67 6b 65 69 74 20 76 20 65 72 67 69 62 74 20 73 69 63 68 20 64 69 72	eschwindigkeit.v.ergibt.sich.dir
9ec0	65 6b 74 20 61 75 73 20 64 65 72 20 44 69 66 66 65 72 65 6e 74 69 61 6c dd 20 ff ff ff ff ff ff	ekt.aus.der.Differential........
9ee0	2e 00 67 6c 65 69 63 68 75 6e 67 20 64 65 72 20 65 6e 74 73 70 72 65 63 68 65 6e 64 65 6e 20 52	..gleichung.der.entsprechenden.R
9f00	65 61 6b 74 69 6f 6e 3a 20 ff ff ff ff ff ff ff 4e 00 20 20 20 76 31 20 3d 20 6b 31 20 20 20 20	eaktion:........N....v1.=.k1....
9f20	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 66 db 72 20 64	...........................f.r.d
9f40	69 65 20 52 65 61 6b 74 69 6f 6e 20 30 2e 20 4f 72 64 6e 75 6e 67 20 20 67 20 ff ff ff ff ff ff	ie.Reaktion.0..Ordnung..g.......
9f60	4e 00 20 20 20 76 32 20 3d 20 6b 32 20 63 28 41 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20	N....v2.=.k2.c(A2)..............
9f80	20 20 20 20 20 20 20 20 20 20 20 66 db 72 20 64 69 65 20 52 65 61 6b 74 69 6f 6e 20 31 2e 20 4f	...........f.r.die.Reaktion.1..O
9fa0	72 64 6e 75 6e 67 20 20 67 20 ff ff ff ff ff ff 4e 00 20 20 20 76 33 20 3d 20 6b 33 20 63 28 41	rdnung..g.......N....v3.=.k3.c(A
9fc0	33 29 20 63 28 41 33 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 db 72 20 64	3).c(A3)...................f.r.d
9fe0	69 65 20 52 65 61 6b 74 69 6f 6e 20 32 2e 20 4f 72 64 6e 75 6e 67 2e 20 20 2e 20 ff ff ff ff ff	ie.Reaktion.2..Ordnung..........
a000	4e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 75 73 61 74 7a 64 61 72 73 74 3a	N.........out.(piep);usatzdarst:
a020	20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 73 74 65 75 65 72 7a 65 69 6c 65	....darstellungsname,steuerzeile
a040	29 3b 20 69 63 68 6e 75 6e 67 2c ff ff ff ff ff 3e 00 20 20 4c 45 41 56 45 20 7a 65 69 67 65 6d	);.ichnung,.....>...LEAVE.zeigem
a060	65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c	enuezurzusatzdarst....kopfzeile,
a080	73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 ff ff 4e 00 20 20 66 6f 72 67 65 74 20 28 22 64 61 72	steuerzeile);...N...forget.("dar
a0a0	73 74 22 2c 20 71 75 69 65 74 29 3b 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 52 20	st",.quiet);eave.darstellung.4R.
a0c0	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 65 20 ff ff ff	taste.=.modellgroessen.taste....
a0e0	3e 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	>...zeigemenuezudarstellungsarte
a100	6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 65 29 20 ff ff ff ff ff ff ff ff ff ff ff	n.(taste,.FALSE.);e)............
a120	3e 00 20 20 20 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a	>.....kernvonzeigemenuezurzusatz
a140	64 61 72 73 74 20 6e 20 28 74 61 73 74 65 2c 20 46 41 4c 53 45 20 29 3b 65 69 74 64 20 ff ff ff	darst.n.(taste,.FALSE.);eitd....
a160	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 20 6c	..zeige.menue.zur.zusatzdarst:.l
a180	73 67 20 6b 75 72 76 65 29 3b ff ff ff ff ff ff 2e 00 6b 65 72 6e 20 76 6f 6e 20 7a 65 69 67 65	sg.kurve);........kern.von.zeige
a1a0	20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 20 3a ff ff ff ff ff ff ff ff	.menue.zur.zusatzdarst.:........
a1c0	2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69	......ELIF.taste.=.mdlgroessenei
a1e0	6e 62 6c 20 73 74 20 3a 73 74 65 20 ff ff ff ff 4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	nbl.st.:ste.....N.....ELIF.taste
a200	20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 29 29 3b 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 20 6d	.=.sendetaste.));ellungsarten;.m
a220	6d 65 72 29 3b 20 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	mer);.satzdarst.essen.taste.....
a240	3e 00 20 20 63 75 72 73 6f 72 20 28 33 2c 20 32 33 29 3b 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65	>...cursor.(3,.23);.=.mdlgroesse
a260	6e 20 65 69 6e 62 6c 20 20 7a 75 73 61 74 7a 64 61 72 73 74 20 75 73 61 74 7a 64 61 72 73 74 20	n.einbl..zusatzdarst.usatzdarst.
a280	4e 00 20 20 20 20 20 20 20 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 3b 3b 45 20 20 20 72 65 65 6e	N.........loeschemenue;;E...reen
a2a0	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 64 61 72 73 74 20	ter.zeige.menue.zur.zusatzdarst.
a2c0	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 45 4c 49 46 20 4e 4f 54 20 28	ttask);.........N.....ELIF.NOT.(
a2e0	74 61 73 74 65 20 3d 20 65 73 63 29 20 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	taste.=.esc).........modellkurzb
a300	65 7a 65 69 63 68 6e 75 6e 67 2c 20 65 7a 65 69 63 68 6e 75 6e 67 2c ff ff ff ff ff ff ff ff ff	ezeichnung,.ezeichnung,.........
a320	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
a340	20 3b 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 ff ff	.;.(falsche.taste)..............
a360	4e 00 20 20 4c 45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72	N...LEAVE.zeigemenuezurzusatzdar
a380	73 74 2e 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	st.(*.leerzeile..............*).
a3a0	20 20 20 20 2a 29 ff ff ff ff ff ff ff ff ff ff 3e 00 6c 65 61 76 65 20 7a 65 69 67 65 20 6d 65	....*)..........>.leave.zeige.me
a3c0	6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 2e 20 75 65 20 7a 75 72 20 7a 75 73	nue.zur.zusatzdarst:..ue.zur.zus
a3e0	61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e	atzdarst........>...........THEN
a400	20 6c 65 61 76 65 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 74 61 73 74 65 20 3d 20 77 65 69	.leave.darstellung.4.taste.=.wei
a420	74 65 72 74 61 73 74 65 20 ff ff ff ff ff ff ff 3e 00 77 61 68 6c 20 64 65 72 20 64 61 72 73 74	tertaste........>.wahl.der.darst
a440	65 6c 6c 75 6e 67 73 61 72 74 65 6e 3a 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b 75 72	ellungsarten:aus.(dst,.modellkur
a460	7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65	zbezeichnung,...>.kernvonzeigeme
a480	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 3a 65 6e 20 20 28 74 61 73 74 65 2c 20 46 41	nuezurzusatzdarst:en..(taste,.FA
a4a0	4c 53 45 29 3b 20 7a 65 69 6c 65 29 3b 20 ff ff 3e 00 75 6e 74 65 72 73 74 72 65 69 63 68 65 69	LSE);.zeile);...>.unterstreichei
a4c0	6e 6c 65 67 65 6e 64 65 3a 64 61 72 64 62 72 65 69 74 65 3b 2d 31 2e 30 20 2a 20 62 29 20 2d 30	nlegende:dardbreite;-1.0.*.b).-0
a4e0	2e 31 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 61 62 73 74 61 6e 64 20 20 20	.1);............>.....abstand...
a500	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.
a520	2a 29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 52 45 41 4c 20 56 41 52 20 20 75	*)..............N....REAL.VAR..u
a540	31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 3b 35 20 2c 20 76 33 20 3a 3a 20 36 3b 20 20 20 20 20 20	1,.u2,.z1,.z2;5.,.v3.::.6;......
a560	20 20 20 20 20 20 28 2a 20 63 6f 20 76 61 72 69 61 62 6c 65 6e 20 2a 29 ff ff ff ff ff ff ff ff	......(*.co.variablen.*)........
a580	3e 00 20 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3b 20 20 20 20 20 20 20 20 20 20 20 6b 6f	>....initialisiere;...........ko
a5a0	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);.......
a5c0	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
a5e0	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 20	zeile.(seite,.steuerzeile.demo).
a600	20 76 33 2c 20 33 29 3b 20 ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.v3,.3);........>...............
a620	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
a640	65 75 65 72 7a 65 69 6c 65 29 20 46 49 3b 20 20 4e 00 20 20 20 62 65 67 69 6e 20 70 6c 6f 74 3b	euerzeile).FI;..N....begin.plot;
a660	72 20 66 65 73 74 20 28 73 65 69 74 65 2c 20 75 31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73	r.fest.(seite,.u1,.u2,.z1,.z2,.s
a680	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 ff ff ff ff ff ff ff	trukt.1.fenster);...............
a6a0	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 20 73 74 72 75 6b 74	.....bestimme.extrema;....strukt
a6c0	20 31 20 66 65 6e 73 74 65 72 29 3b ff ff ff ff 4e 00 20 20 20 70 75 74 20 6b 72 65 75 7a 20 28	.1.fenster);....N....put.kreuz.(
a6e0	73 65 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	seite,.strukt.1.fenster,.kreuz);
a700	20 2e 20 78 20 78 2c 6d 69 6e 20 79 2c 6d 61 78 20 79 20 29 3b ff ff ff ff ff ff ff ff ff ff ff	...x.x,min.y,max.y.);...........
a720	3e 00 20 20 20 6d 69 6e 20 78 20 3a 3d 20 6d 69 6e 20 78 20 2d 20 61 63 68 73 65 6e 61 62 73 74	>....min.x.:=.min.x.-.achsenabst
a740	61 6e 64 20 2a 20 28 6d 61 78 20 78 20 2d 20 6d 69 6e 20 78 29 3b 20 ff ff ff ff ff ff ff ff ff	and.*.(max.x.-.min.x);..........
a760	3e 00 20 20 20 49 46 20 20 6d 69 6e 20 78 20 3d 20 6d 61 78 20 78 20 63 68 73 65 6e 61 62 73 74	>....IF..min.x.=.max.x.chsenabst
a780	61 6e 64 20 2a 20 28 6d 61 78 20 78 20 2d 20 6d 69 6e 20 78 29 3b 20 ff ff ff ff ff ff ff ff ff	and.*.(max.x.-.min.x);..........
a7a0	2e 00 20 20 20 20 20 20 20 20 6d 69 6e 20 78 20 3a 3d 20 6d 69 6e 20 78 20 2d 20 65 70 73 69 6c	..........min.x.:=.min.x.-.epsil
a7c0	6f 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 70 65 6e 20 28 6c 69 6e 69 65	on;.............N.....pen.(linie
a7e0	20 28 69 29 2c 20 69 29 3b 64 3b 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 20 78 2c 20 6d 61 78	.(i),.i);d;...........min.x,.max
a800	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);..............
a820	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
a840	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)
a860	3b 3b 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67	;;..................movecmr.(leg
a880	65 6e 64 65 2c 20 61 62 73 74 61 6e 64 2c 20 30 2e 30 29 3b 29 3b 20 ff ff ff ff ff ff ff ff ff	ende,.abstand,.0.0););..........
a8a0	4e 00 20 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 3b 64 61 72 64 68 6f 65 68 65 20 3b 20	N...standardbreite);dardhoehe.;.
a8c0	72 69 66 74 75 6e 67 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 23 20 2b 20 30 2e	riftung).*.standardbreite.#.+.0.
a8e0	31 23 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 70 6c 6f 74 74 65 75 6e 74 65 72 73 74 72	1#;.............N.plotteunterstr
a900	65 69 63 68 75 6e 67 3a 78 2c 20 6d 69 6e 79 29 3b 65 6e 67 65 20 2b 30 2e 35 29 2a 73 74 61 6e	eichung:x,.miny);enge.+0.5)*stan
a920	64 61 72 64 62 72 65 69 74 65 2c 30 2e 30 29 3b 2e 20 72 64 62 72 65 69 74 65 29 3b 20 ff ff ff	dardbreite,0.0);..rdbreite);....
a940	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 69 6e 69 65 20 28 69	N...pen.(0,.1,.0.,.pen.(linie.(i
a960	29 29 29 3b 20 61 62 73 74 61 6e 64 2c 28 2d 20 31 2e 30 20 2a 20 62 29 20 2d 20 30 2e 32 29 3b	)));.abstand,(-.1.0.*.b).-.0.2);
a980	2e 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67	................>...movecmr.(leg
a9a0	65 6e 64 65 2c 20 2d 20 32 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 30 2e	ende,.-.2.0.*.standardbreite,.0.
a9c0	30 29 3b 64 61 72 64 62 72 65 69 74 65 3b 20 2e 3e 00 20 20 70 6c 6f 74 20 28 6c 69 6e 69 65 20	0);dardbreite;..>...plot.(linie.
a9e0	28 69 29 29 3b 75 6e 67 3a 2b 20 28 77 6f 72 74 20 6c 61 65 6e 67 65 20 2b 30 2e 35 29 20 2a 73	(i));ung:+.(wort.laenge.+0.5).*s
aa00	74 61 6e 64 61 72 64 62 72 65 69 74 65 3b 20 2e 3e 00 20 20 20 6d 6f 76 65 20 63 6d 20 72 20 28	tandardbreite;..>....move.cm.r.(
aa20	6c 65 67 65 6e 64 65 2c 20 2d 31 2e 30 2a 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 2c 20 20 2d	legende,.-1.0*standardbreite,..-
aa40	31 2e 30 29 3b 20 ff ff ff ff ff ff ff ff ff ff 4e 00 50 52 4f 43 20 7a 65 69 63 68 6e 65 75 6e	1.0);...........N.PROC.zeichneun
aa60	64 70 6c 6f 74 74 65 6b 75 72 76 65 20 28 4f 55 54 50 55 54 20 56 41 52 20 73 65 69 74 65 2c 20	dplottekurve.(OUTPUT.VAR.seite,.
aa80	77 65 72 74 29 3a 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	wert):ehe,.standardbreite);.....
aaa0	4e 00 20 20 73 63 68 72 65 69 62 65 70 69 63 74 75 72 65 20 2e 20 20 20 20 20 20 20 20 20 49 4e	N...schreibepicture...........IN
aac0	54 20 43 4f 4e 53 54 20 66 65 6e 73 74 65 72 2c 20 4b 55 52 56 45 20 56 41 52 20 6b 75 72 76 65	T.CONST.fenster,.KURVE.VAR.kurve
aae0	2c 20 73 74 65 72 2c ff ff ff ff ff ff ff ff ff 3e 00 20 20 42 4f 55 4e 44 20 50 49 43 54 55 52	,.ster,.........>...BOUND.PICTUR
ab00	45 20 56 41 52 20 66 75 6e 6b 74 69 6f 6e 3b 65 61 6c 20 28 61 6e 7a 61 68 6c 79 61 63 68 73 65	E.VAR.funktion;eal.(anzahlyachse
ab20	6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff 3e 00 20 20 66 6f 72 67 65 74 20 28 22 50 49 43	nabschnitte);...>...forget.("PIC
ab40	54 55 52 45 22 2c 20 71 75 69 65 74 29 3b 20 20 20 20 49 4e 54 20 20 43 4f 4e 53 54 20 73 74 69	TURE",.quiet);....INT..CONST.sti
ab60	66 74 29 3a ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 52 45 41 4c 20 56 41 52 20 78 77 65	ft):................REAL.VAR.xwe
ab80	72 74 2c 20 79 77 65 72 74 3b 65 69 6e 3a 20 74 69 66 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff	rt,.ywert;ein:.tift);...........
aba0	3e 00 20 20 57 48 49 4c 45 20 4e 4f 54 20 65 6e 64 65 64 65 72 6c 6f 65 73 75 6e 67 20 28 6b 75	>...WHILE.NOT.endederloesung.(ku
abc0	72 76 65 29 20 52 45 50 20 69 6f 6e 20 2b 20 63 6f 64 69 6d 65 6e 73 69 6f 6e 20 2b 20 31 29 3b	rve).REP.ion.+.codimension.+.1);
abe0	2e 00 20 20 57 48 49 4c 45 20 4e 4f 54 20 65 6e 64 65 64 65 72 6c 6f 65 73 75 6e 67 20 28 6b 75	....WHILE.NOT.endederloesung.(ku
ac00	72 76 65 29 20 52 45 50 20 50 20 ff ff ff ff ff 3e 00 7a 65 69 63 68 6e 65 79 73 70 69 74 7a 65	rve).REP.P......>.zeichneyspitze
ac20	3a 20 20 6d 6f 76 65 20 28 20 20 20 20 20 20 20 20 20 20 78 20 77 65 72 74 2c 20 79 20 77 65 72	:..move.(..........x.wert,.y.wer
ac40	74 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 64 72 61 77 63 6d 72 20 28 30 2e 30	t);.............>...drawcmr.(0.0
ac60	2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 72 65 75 7a 3b 65 72 74 2c 20 79 20 77 65 72	,.standardhoehe);reuz;ert,.y.wer
ac80	74 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 7a 65 69 63 68 6e 65 66 61 64 65 6e 6b 72	t);...............zeichnefadenkr
aca0	65 75 7a 3a 6f 6e 2c 20 78 77 65 72 74 2c 20 79 77 65 72 74 29 3b ff ff ff ff ff ff ff ff ff ff	euz:on,.xwert,.ywert);..........
acc0	4e 00 20 20 79 77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 79 76 61 72 20 3b 20 75 73 67 61 62 65	N...ywert.:=.z.SUB.yvar.;.usgabe
ace0	66 65 6e 73 74 65 72 20 28 79 20 77 65 72 74 2c 20 79 20 76 61 72 29 29 29 20 20 78 20 76 61 72	fenster.(y.wert,.y.var)))..x.var
ad00	29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 64 72 61 77	)...............N...........draw
ad20	20 28 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20 29 20 61 62 65 66 65 6e 73 74 65 72 20 28 79	.(.xwert.,.ywert.).abefenster.(y
ad40	20 77 65 72 74 2c 20 79 20 76 61 72 29 29 29 20 65 72 74 2c 20 78 20 76 61 72 29 20 ff ff ff ff	.wert,.y.var))).ert,.x.var).....
ad60	3e 00 20 20 20 20 20 43 41 4e 44 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 79	>......CAND.imausgabefenster.(.y
ad80	77 65 72 74 20 2c 20 79 76 61 72 20 29 20 29 20 29 20 2c 20 78 76 61 72 20 29 20 ff ff ff ff ff	wert.,.yvar.).).).,.xvar.)......
ada0	3e 00 20 20 20 20 20 54 48 45 4e 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77	>......THEN.move.(.funktion.,.xw
adc0	65 72 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 29 20 79 20 77 65 72 74 29 3b 20 ff ff ff ff ff	ert.,.ywert.).;.).y.wert);......
ade0	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 76 6f 72 70 75	......................ELSE.vorpu
ae00	6e 6b 74 3a 3d 20 46 41 4c 53 45 20 ff ff ff ff 3e 00 20 20 20 20 20 20 63 69 72 63 6c 65 20 28	nkt:=.FALSE.....>.......circle.(
ae20	30 2e 33 2c 20 30 2e 30 2c 20 33 36 30 2e 30 2c 20 30 29 3b 2c 20 33 36 30 2e 30 2c 20 30 29 3b	0.3,.0.0,.360.0,.0);,.360.0,.0);
ae40	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 63 69 72 63 6c 65 20 28	........................circle.(
ae60	66 75 6e 6b 74 69 6f 6e 2c 20 30 2e 33 2c 20 30 2e 30 2c 20 33 36 30 2e 30 2c 20 30 29 3b 29 3b	funktion,.0.3,.0.0,.360.0,.0););
ae80	2e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 63 68 6e 65 20 75 6e 64 20 70 6c 6f 74 74 65 20 6b 75	..END.PROC.zeichne.und.plotte.ku
aea0	72 76 65 3b 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 63 68	rve;............N.END.PROC.zeich
aec0	6e 65 75 6e 64 70 6c 6f 74 74 65 6b 75 72 76 65 3b 20 7a 65 69 63 68 6e 65 6e 20 28 52 45 41 4c	neundplottekurve;.zeichnen.(REAL
aee0	20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78 2c 79 6d 69 6e 2c 79 6d 61 78 29 3a 20 ff ff ff	.CONST.xmin,xmax,ymin,ymax):....
af00	4e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 35 20 2a 20 73 74 61 6e	N...kreuz.:=.nilpicture;5.*.stan
af20	64 61 72 64 68 6f 65 68 65 29 3b 61 62 73 63 68 6e 69 74 74 65 29 3b 69 20 50 68 61 73 65 6e 64	dardhoehe);abschnitte);i.Phasend
af40	69 61 67 72 61 6d 6d 2a 29 20 ff ff ff ff ff ff 3e 00 79 77 65 69 74 65 3a 3d 20 28 79 6d 61 78	iagramm*).......>.yweite:=.(ymax
af60	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
af80	69 74 74 65 29 3b 3b ff ff ff ff ff ff ff ff ff 3e 00 20 20 52 45 41 4c 20 56 41 52 20 78 77 65	itte);;.........>...REAL.VAR.xwe
afa0	69 74 65 2c 20 79 77 65 69 74 65 3b 28 61 6e 7a 61 68 6c 79 61 63 68 73 65 6e 61 62 73 63 68 6e	ite,.yweite;(anzahlyachsenabschn
afc0	69 74 74 65 29 3b ff ff ff ff ff ff ff ff ff ff 1e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6e 65 77	itte);..............kreuz.:=.new
afe0	20 28 22 4b 52 45 55 5a 22 29 3b ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	.("KREUZ");.........drawcmr.(kre
b000	75 7a 2c 20 2d 20 30 2e 32 2c 20 2d 20 30 2e 32 29 2e 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff	uz,.-.0.2,.-.0.2).ehe);.........
b020	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 2d 20 30 2e 33 29 3b	....drawcmr.(kreuz,.0.0,.-.0.3);
b040	68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 62 65 73 63 68 72 69 66 74 65	hoehe);.........N.....beschrifte
b060	20 72 73 74 65 6c 6c 75 6e 67 34 20 28 31 29 3b 20 20 20 28 2a 20 73 74 65 6c 6c 65 2b 78 77 65	.rstellung4.(1);...(*.stelle+xwe
b080	69 74 65 3b 20 2a 29 6f 65 6e 65 20 7a 61 68 6c 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff	ite;.*)oene.zahl);..............
b0a0	3e 00 20 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20 32 20 55 50 54 4f 20 33 20 52 45 50 20 74 65	>...FOR.pos.FROM.2.UPTO.3.REP.te
b0c0	6c 6c 65 2c 79 6d 69 6e 29 3b 20 65 2b 78 77 65 69 74 65 3b 20 2a 29 ff ff ff ff ff ff ff ff ff	lle,ymin);.e+xweite;.*).........
b0e0	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 30 2e 31 29 3b 2e 30	....drawcmr.(kreuz,.0.0,.0.1);.0
b100	2c 2d 30 2e 33 29 3b ff ff ff ff ff ff ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	,-0.3);.............drawcmr.(kre
b120	75 7a 2c 20 30 2e 30 2c 20 2d 20 30 2e 33 29 2e 20 63 68 3b 20 ff ff ff ff ff ff ff ff ff ff ff	uz,.0.0,.-.0.3)..ch;............
b140	2e 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 3b 65 2c 20	....standardhoehe.-.abstand);e,.
b160	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	................N...move.(kreuz,
b180	20 78 6d 69 6e 2c 20 73 74 65 6c 6c 65 29 3b 34 20 6f 65 68 65 2c 73 74 61 6e 64 61 72 64 62 72	.xmin,.stelle);4.oehe,standardbr
b1a0	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),...
b1c0	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
b1e0	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);.............
b200	4e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30 2c 20 70 65 6e 20 28 74 72 61 6e 73 66 65 72 29	N...pen.(0,.1,.0,.pen.(transfer)
b220	29 3b 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	);aengebeibeschriftung,.nachkomm
b240	61 73 74 65 6c 6c 65 6e 29 2c ff ff ff ff ff ff 3e 00 20 20 20 20 64 72 61 77 20 20 20 20 20 20	astellen),......>.....draw......
b260	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
b280	69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c ff 4e 00 20 20 7a 65 69 67 65 64 61 72 73 74 34 20	i.beschriftung,.N...zeigedarst4.
b2a0	28 64 73 74 2c 20 69 6e 64 65 6d 6f 2c 20 6c 73 67 6b 75 72 76 65 29 3b 20 73 74 61 6e 64 61 72	(dst,.indemo,.lsgkurve);.standar
b2c0	64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e 20 ff ff ff ff ff ff ff	dhoehe,.standardbreite).........
b2e0	2e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 28 52 45 41 4c 20 43 4f 4e 53	..kernvondarstellung4:(REAL.CONS
b300	54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a 20 ff 2e 00 20 20 74 61 73 74 65 6c 65 73 65 6e 20 28	T.x1,.x2,.x3):......tastelesen.(
b320	74 61 73 74 65 29 3b 72 73 74 3a 20 43 4f 4e 53 54 20 78 31 2c 20 78 32 2c 20 78 33 29 3a 20 ff	taste);rst:.CONST.x1,.x2,.x3):..
b340	1e 00 45 4e 44 20 50 52 4f 43 20 67 72 6f 65 73 73 74 65 73 3b ff ff ff ff ff ff ff ff ff ff ff	..END.PROC.groesstes;...........
b360	3e 00 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20	>.............leavedarstellung4.
b380	65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b 69 20 29 3a 20 ff ff ff ff ff ff	en.(dst,.lsg,.taste);i.):.......
b3a0	1e 00 45 4e 44 20 50 52 4f 43 20 69 6d 20 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 3b 20 ff ff	..END.PROC.im.ausgabefenster;...
b3c0	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 61	N.........reenterdarstellung4.sa
b3e0	72 74 74 61 73 74 65 20 31 20 66 65 6e 73 74 65 72 2c 20 22 64 61 72 73 74 22 29 3b 54 20 56 41	rttaste.1.fenster,."darst");T.VA
b400	52 20 74 61 73 74 65 29 3a 20 ff ff ff ff ff ff 3e 00 20 20 67 69 62 6d 65 6e 75 65 61 75 73 3b	R.taste):.......>...gibmenueaus;
b420	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
b440	69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 54 48 45 4e	igezeitd........>...........THEN
b460	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 61 73 74 65 20 3d	.aste.=.abbruchtaste.COR.taste.=
b480	20 7a 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff 3e 00 20 20 20 20 69 6e 63 68 61 72 20 28 74 61	.zeige.zeitd....>.....inchar.(ta
b4a0	73 74 65 29 3b 61 72 73 74 65 6c 6c 75 6e 67 34 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d	ste);arstellung4aste.COR.taste.=
b4c0	20 7a 65 69 67 65 20 7a 65 69 74 64 20 ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.zeige.zeitd....>...............
b4e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 70 66 7a 65 69 6c 65 2c	......................kopfzeile,
b500	73 74 65 75 65 72 7a 65 69 6c 65 29 3b 20 ff ff 3e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	steuerzeile);...>.....ELIF.taste
b520	20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 70 66 7a 65 69 6c 65 2c	.=.darstellungsarttaste.pfzeile,
b540	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 7a 65 69 67 65 6d	steuerzeile);...N.........zeigem
b560	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
b580	68 65 74 61 73 74 65 29 29 20 65 2c 20 70 6c 6f 74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff	hetaste)).e,.plottask);.........
b5a0	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
b5c0	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);............
b5e0	4e 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 3b 20 20 20 20 20 20 20 20 20	N...initialisieremenue;.........
b600	20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 73 74 65 75 65 72 7a 65 69	......darstellungsname,steuerzei
b620	6c 65 29 3b 20 67 2c ff ff ff ff ff ff ff ff ff 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20	le);.g,.........>...fuellemenue.
b640	28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 29 29 3b 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64	(menuezeile.(1));nue.zur.zusatzd
b660	61 72 73 74 20 72 7a 65 69 6c 65 29 3b 20 ff ff 3e 00 20 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20	arst.rzeile);...>...fuellemenue.
b680	28 6d 65 6e 75 65 7a 65 69 6c 65 20 28 31 36 29 29 3b 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64	(menuezeile.(16));ue.zur.zusatzd
b6a0	61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 20 20 6d 65 6e 75 65 7a 65 69 6c 65	arst............>.....menuezeile
b6c0	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.
b6e0	20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 20 4e 00 20 20 4c 45 41 56 45 20 6b 65 72 6e 76 6f	.............*).N...LEAVE.kernvo
b700	6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 2e 6c 6c 67 72 6f 65	nzeigemenuezurzusatzdarst.llgroe
b720	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.....*)..........
b740	4e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 3b 7a 65 69 6c 65 28 31 37	N.END.PROC.darstellung4;zeile(17
b760	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
b780	65 6e 2a 29 20 29 ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 7a 65 69 67 65 20 6d 65 6e 75	en*).)..........N.....zeige.menu
b7a0	65 3b 2e 6d 6d 65 72 28 35 29 20 3a 3d 20 31 37 3b 20 20 28 2a 20 6e 20 6d 65 6e 75 65 20 7a 75	e;.mmer(5).:=.17;..(*.n.menue.zu
b7c0	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*)............
b7e0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 41 56 45 20 7a 65 69 67 65 20 6d 65 6e 75 65 20	..............LEAVE.zeige.menue.
b800	7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 2e 2e 00 72 65 65 6e 74 65 72 20 7a 65 69 67 65 20	zur.zusatzdarst...reenter.zeige.
b820	6d 65 6e 75 65 20 7a 75 72 20 7a 75 73 61 74 7a 64 61 72 73 74 3a 73 61 74 7a 64 61 72 73 74 2e	menue.zur.zusatzdarst:satzdarst.
b840	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
b860	64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff 3e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	darst:..........>.END.PROC.darst
b880	65 6c 6c 75 6e 67 20 34 3b 76 6f 6e 20 7a 65 69 67 65 20 6d 65 6e 75 65 20 7a 75 72 20 7a 75 73	ellung.4;von.zeige.menue.zur.zus
b8a0	61 74 7a 64 61 72 73 74 2e 20 ff ff ff ff ff ff 1e 00 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74	atzdarst..........END.PROC.darst
b8c0	65 6c 6c 75 6e 67 20 34 3b ff ff ff ff ff ff ff 4e 00 50 52 4f 43 20 7a 65 69 67 65 20 64 61 72	ellung.4;.......N.PROC.zeige.dar
b8e0	73 74 20 34 20 20 20 20 20 20 20 20 28 4f 55 54 50 55 54 20 20 56 41 52 20 73 65 69 74 65 2c 20	st.4........(OUTPUT..VAR.seite,.
b900	42 4f 4f 4c 20 56 41 52 20 69 6e 20 64 65 6d 6f 2c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	BOOL.VAR.in.demo,...............
b920	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 75	N....lege.fenster.fest.(seite,.u
b940	31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73 74 72 75 6b 74 20 31 20 66 65 6e 73 74 65 72 29	1,.u2,.z1,.z2,.strukt.1.fenster)
b960	3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 6e 69 6c 20 64 69 61 67 72 61 6d	;....................nil.diagram
b980	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);....
b9a0	4e 00 20 20 20 6b 72 65 75 7a 20 3a 3d 20 6b 72 65 75 7a 20 65 72 7a 65 75 67 65 6e 20 75 6e 64	N....kreuz.:=.kreuz.erzeugen.und
b9c0	20 7a 65 69 63 68 6e 65 6e 20 28 6d 69 6e 20 78 2c 6d 61 78 20 78 2c 6d 69 6e 20 79 2c 6d 61 78	.zeichnen.(min.x,max.x,min.y,max
b9e0	20 79 20 29 3b ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 6c 69 6e 69 65 28 69	.y.);....................linie(i
ba00	29 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	).:=.nilpicture.;...............
ba20	4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 65 6e 64 65 2c 28 77 6f 72 74 6c 61 65 6e 67 65	N...movecmr.(legende,(wortlaenge
ba40	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 20 30 2e 30 29 3b 65	.+.0.5).*.standardbreite,.0.0);e
ba60	68 65 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 6d 6f 76 65 20 28 6c 65 67 65 6e 64	he,.............>...move.(legend
ba80	65 2c 20 6d 69 6e 78 2c 20 6d 61 78 79 29 3b 20 66 65 6e 73 74 65 72 2c 20 6c 69 6e 69 65 28 69	e,.minx,.maxy);.fenster,.linie(i
baa0	29 29 2e 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 70 65 6e 20 28 30 2c 20 31 2c 20 30	))..............N...pen.(0,.1,.0
bac0	2c 20 70 65 6e 20 28 6c 65 67 65 6e 64 65 29 29 3b 6e 64 61 72 64 62 72 65 69 74 65 2c 20 2d 20	,.pen.(legende));ndardbreite,.-.
bae0	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);......
bb00	4e 00 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74 34 3b 65 75 67 65 6e 75 6e 64 7a	N.END.PROC.zeigedarst4;eugenundz
bb20	65 69 63 68 6e 65 6e 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 20 78 6d 61 78 2c 20	eichnen.(REAL.CONST.xmin,.xmax,.
bb40	79 6d 69 6e 2c 20 79 6d 61 78 2c 20 ff ff ff ff 2e 00 20 20 70 6c 6f 74 20 28 6c 65 67 65 6e 64	ymin,.ymax,.........plot.(legend
bb60	65 29 3b 75 7a 3b 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	e);uz;(legende));...............
bb80	4e 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 20 28 4f 55	N...tragepunkteinpictureein;.(OU
bba0	54 50 55 54 20 56 41 52 20 73 65 69 74 65 2c 20 69 74 65 2c 20 49 4e 54 20 43 4f 4e 53 54 20 66	TPUT.VAR.seite,.ite,.INT.CONST.f
bbc0	65 6e 73 74 65 72 2c ff ff ff ff ff ff ff ff ff 2e 00 20 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20	enster,.............funktion.:=.
bbe0	6e 69 6c 70 69 63 74 75 72 65 2e 65 20 65 69 6e 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	nilpicture.e.ein;...............
bc00	2e 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 6f 6e 2c 20 73 74	....pen.(funktion,.stift);on,.st
bc20	69 66 74 29 3b 20 2e 20 ff ff ff ff ff ff ff ff 3e 00 20 20 74 72 61 67 65 61 6e 66 61 6e 67 73	ift);...........>...trageanfangs
bc40	70 75 6e 6b 74 65 69 6e 3b 69 6e 29 3b 74 61 6e 64 20 28 4b 55 52 56 45 4e 44 49 4d 45 4e 53 49	punktein;in);tand.(KURVENDIMENSI
bc60	4f 4e 20 6b 75 72 76 65 29 3b 20 ff ff ff ff ff 2e 00 20 20 7a 65 69 63 68 6e 65 6b 72 65 69 73	ON.kurve);..........zeichnekreis
bc80	75 6d 65 6e 64 70 75 6e 6b 74 3b 3b 75 6e 67 28 6b 75 72 76 65 29 20 52 45 50 20 ff ff ff ff ff	umendpunkt;;ung(kurve).REP......
bca0	4e 00 20 20 78 77 65 72 74 20 3a 3d 20 7a 20 53 55 42 20 78 76 61 72 20 3b 20 20 43 41 4e 44 20	N...xwert.:=.z.SUB.xvar.;..CAND.
bcc0	28 69 6d 20 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 28 78 20 77 65 72 74 2c 20 78 20 76 61 72	(im.ausgabefenster(x.wert,.x.var
bce0	29 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 54 48 45 4e 20 64 72 61 77	)...............N......THEN.draw
bd00	20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 29 3b 20 61 75	.(.funktion.,.xwert.,.ywert);.au
bd20	73 67 61 62 65 66 65 6e 73 74 65 72 28 78 20 77 65 72 74 2c 20 78 20 76 61 72 29 20 ff ff ff ff	sgabefenster(x.wert,.x.var).....
bd40	3e 00 20 20 20 20 49 46 20 28 69 6d 20 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 78 20 77	>.....IF.(im.ausgabefenster.(x.w
bd60	65 72 74 2c 20 78 20 76 61 72 29 20 43 41 4e 44 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	ert,.x.var).CAND................
bd80	3e 00 20 20 20 20 20 20 20 20 20 20 76 6f 72 70 75 6e 6b 74 20 3a 3d 20 54 52 55 45 20 2e 33 2c	>...........vorpunkt.:=.TRUE..3,
bda0	20 30 2e 30 2c 20 33 36 30 2e 30 2c 20 30 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.0.0,.360.0,.0);................
bdc0	4e 00 73 63 68 72 65 69 62 65 70 69 63 74 75 72 65 3a 2e 30 2c 20 73 74 65 6c 6c 65 29 3b 75 6e	N.schreibepicture:.0,.stelle);un
bde0	64 20 7a 65 69 63 68 6e 65 6e 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 78 6d 61 78	d.zeichnen.(REAL.CONST.xmin,xmax
be00	2c 79 6d 69 6e 2c 79 6d 61 78 29 3a 20 ff ff ff 2e 00 54 48 45 4e 20 66 6f 72 67 65 74 20 28 22	,ymin,ymax):......THEN.forget.("
be20	4b 52 45 55 5a 22 2c 20 71 75 69 65 74 29 20 46 49 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	KREUZ",.quiet).FI;..............
be40	4e 00 20 20 6b 72 65 75 7a 20 3a 3d 20 6e 65 77 20 28 22 4b 52 45 55 5a 22 29 3b 3b 20 28 72 65	N...kreuz.:=.new.("KREUZ");;.(re
be60	61 6c 20 28 6c 61 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	al.(laengebeibeschriftung).+.0.5
be80	29 20 2a 20 61 6d 6d 2a 29 20 ff ff ff ff ff ff 2e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65	).*.amm*)...........movecmr.(kre
bea0	75 7a 2c 20 30 2e 30 2c 20 30 2e 32 29 3b 3b 64 68 6f 65 68 65 29 3b 20 ff ff ff ff ff ff ff ff	uz,.0.0,.0.2);;dhoehe);.........
bec0	4e 00 20 20 20 20 7a 65 69 63 68 6e 65 67 65 67 65 6e 73 74 72 69 63 68 3b 2d 20 30 2e 33 29 3b	N.....zeichnegegenstrich;-.0.3);
bee0	20 2a 20 28 78 20 6d 61 78 20 2d 20 78 20 6d 69 6e 29 2c 20 73 63 68 6f 65 6e 65 20 7a 61 68 6c	.*.(x.max.-.x.min),.schoene.zahl
bf00	29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 73 74 61 6e 64 61 72 64 68 6f 65 68	);..................standardhoeh
bf20	65 20 2d 20 61 62 73 74 61 6e 64 29 3b 3b 74 72 69 63 68 3b 20 ff ff ff ff ff ff ff ff ff ff ff	e.-.abstand);;trich;............
bf40	2e 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	.....move...(......stelle,ymin);
bf60	20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68	................N.zeichneystrich
bf80	3a 20 20 77 61 6e 64 6c 65 20 28 73 74 65 6c 6c 65 2c 6c 61 65 6e 67 65 20 62 65 69 20 62 65 73	:..wandle.(stelle,laenge.bei.bes
bfa0	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),...
bfc0	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 65 6c 6c 65 2c 6c	N.......ELIF.taste.<>.esc.elle,l
bfe0	61 65 6e 67 65 20 62 65 69 20 62 65 73 63 68 72 69 66 74 75 6e 67 2c 20 6e 61 63 68 6b 6f 6d 6d	aenge.bei.beschriftung,.nachkomm
c000	61 73 74 65 6c 6c 65 6e 29 2c 20 ff ff ff ff ff 4e 00 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20	astellen),......N...transfer.:=.
c020	6b 72 65 75 7a 3b 30 2e 35 20 2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 29 3b 79 20 6d 69 6e	kreuz;0.5.*.standardhoehe);y.min
c040	29 2c 20 73 63 68 6f 65 6e 65 20 7a 61 68 6c 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	),.schoene.zahl);...............
c060	2e 00 20 20 20 20 20 20 20 20 20 20 7a 65 69 63 68 6e 65 20 79 67 65 67 65 6e 73 74 72 69 63 68	............zeichne.ygegenstrich
c080	3b 62 65 73 63 68 72 69 66 74 65 20 79 20 ff ff 2e 00 20 20 6d 69 6e 20 28 78 31 2c 20 6d 69 6e	;beschrifte.y.......min.(x1,.min
c0a0	20 28 78 32 2c 20 78 33 29 29 2e 30 2e 30 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	.(x2,.x3)).0.0);................
c0c0	4e 00 20 20 6c 73 67 6b 75 72 76 65 20 3a 3d 20 4c 4f 45 53 55 4e 47 53 41 42 53 43 48 4e 49 54	N...lsgkurve.:=.LOESUNGSABSCHNIT
c0e0	54 20 6c 73 67 3b 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	T.lsg;0,.standardhoehe,.standard
c100	62 72 65 69 74 65 29 2e 20 ff ff ff ff ff ff ff 3e 00 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f	breite).........>.dialogfuerdemo
c120	3a 6d 65 6e 75 65 3b 65 6e 73 74 65 72 28 52 45 41 4c 20 43 4f 4e 53 54 20 72 2c 49 4e 54 20 43	:menue;enster(REAL.CONST.r,INT.C
c140	4f 4e 53 54 20 69 20 29 3a 20 ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70	ONST.i.):.......N.........out.(p
c160	69 65 70 29 3b 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	iep);(LOESUNG.VAR.lsg,.BOOL.VAR.
c180	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):.......
c1a0	2e 00 20 20 7a 65 69 67 65 20 64 61 72 73 74 20 34 20 28 64 73 74 2c 20 69 6e 20 64 65 6d 6f 2c	....zeige.darst.4.(dst,.in.demo,
c1c0	20 6c 73 67 20 6b 75 72 76 65 29 3b ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.lsg.kurve);....N...............
c1e0	20 20 20 20 20 20 20 67 65 62 65 20 61 75 66 20 62 69 6c 64 73 63 68 69 72 6d 20 61 75 73 20 28	.......gebe.auf.bildschirm.aus.(
c200	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 ff ff	dst,.modellkurzbezeichnung,.....
c220	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
c240	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...
c260	3e 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
c280	68 6d 65 6e 75 65 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	hmenue.modellkurzbezeichnung,...
c2a0	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...............................
c2c0	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
c2e0	74 74 61 73 6b 29 3b ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ttask);.........N...............
c300	20 20 20 67 65 62 65 20 61 75 66 20 62 69 6c 64 73 63 68 69 72 6d 20 61 75 73 20 28 64 73 74 2c	...gebe.auf.bildschirm.aus.(dst,
c320	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,.........
c340	4e 00 72 65 65 6e 74 65 72 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73	N.reenterzeigemenuezurzusatzdars
c360	74 3a 20 28 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	t:.(*.modellgroessen............
c380	20 20 2a 29 20 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 4c 45	..*)............>.............LE
c3a0	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
c3c0	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 20 20 20 20 20 20	atzdarst........N...............
c3e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20	..............darstellungsname,.
c400	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);................
c420	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 20 20 20 20	N.........leavedarstellung4.....
c440	20 20 20 20 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 73 74 65 75 65 72 7a 65 69	......darstellungsname,steuerzei
c460	6c 65 29 3b 20 ff ff ff ff ff ff ff ff ff ff ff ce 00 52 45 41 4c 20 43 4f 4e 53 54 20 73 74 61	le);..............REAL.CONST.sta
c480	6e 64 61 72 64 68 6f 65 68 65 20 3a 3d 20 73 74 64 68 6f 65 68 65 20 2c 20 73 74 61 6e 64 61 72	ndardhoehe.:=.stdhoehe.,.standar
c4a0	64 62 72 65 69 74 65 20 3a 3d 20 73 74 64 62 72 65 69 74 65 20 3b 20 4c 45 54 20 6d 65 6e 75 65	dbreite.:=.stdbreite.;.LET.menue
c4c0	64 69 6d 65 6e 73 69 6f 6e 20 3d 20 31 32 20 2c 20 65 73 63 20 3d 20 22 1b 22 20 2c 20 61 62 62	dimension.=.12.,.esc.=.".".,.abb
c4e0	72 75 63 68 74 61 73 74 65 20 3d 20 22 61 22 20 2c 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e	ruchtaste.=."a".,.modellgroessen
c500	74 61 73 74 65 20 3d 20 22 73 22 20 2c 20 73 65 6e 64 65 74 61 73 74 65 20 3d 20 22 78 78 22 20	taste.=."s".,.sendetaste.=."xx".
c520	2c 20 77 65 69 74 65 72 74 61 73 74 65 20 3d 20 22 77 22 20 2c 20 ff ff ff ff ff ff ff ff ff ff	,.weitertaste.=."w".,...........
c540	ce 00 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 3a 3d 20 73	.............standardbreite.:=.s
c560	74 64 62 72 65 69 74 65 3b 64 65 20 28 37 29 3b 20 22 73 22 20 2c 20 67 72 6f 65 73 73 65 6e 74	tdbreite;de.(7);."s".,.groessent
c580	61 73 74 65 20 3d 20 22 73 22 20 2c 20 65 6e 74 61 73 74 65 20 3d 20 22 73 22 20 2c 20 22 20 2c	aste.=."s".,.entaste.=."s".,.".,
c5a0	20 7a 65 69 67 65 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	.zeigephasend.=."p".,.zeigezeitd
c5c0	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 2c 20 6d 64 6c	.=."z".,.zeigezusatz.=."+".,.mdl
c5e0	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 74 20 3d 20 22	groesseneinbl.=."e".,.rubout.=."
c600	6c 22 20 3b 20 4c 45 54 20 ff ff ff ff ff ff ff ce 00 54 45 58 54 20 43 4f 4e 53 54 20 65 73 63	l".;.LET..........TEXT.CONST.esc
c620	20 3a 3d 20 63 6f 64 65 20 28 32 37 29 2c 20 2c 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74	.:=.code.(27),.,.modellgroessent
c640	61 73 74 65 20 3d 20 22 73 22 2c 20 74 7a 65 6e 20 2a 29 20 77 65 69 74 65 72 74 61 73 74 65 20	aste.=."s",.tzen.*).weitertaste.
c660	3d 20 22 77 22 20 2c 62 20 3d 20 22 74 22 20 2c 20 7a 65 69 67 65 70 68 61 73 65 6e 64 20 3d 20	=."w".,b.=."t".,.zeigephasend.=.
c680	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 69 67 65 7a 75	"p".,.zeigezeitd.=."z".,.zeigezu
c6a0	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 62 6c 20 3d 20	satz.=."+".,.mdlgroesseneinbl.=.
c6c0	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 ff ff ff ff ff ff ff	"e".,.rubout.=."l".;.LET........
c6e0	ce 00 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 20 2c 20	..plottask.=."simsel.plotter".,.
c700	64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 3d 20 22 6e 22 20 2c 20 6d 65 6e	darstellungsarttaste.=."n".,.men
c720	75 65 74 61 73 74 65 20 3d 20 22 6d 22 20 2c 20 7a 65 69 67 65 74 61 62 20 3d 20 22 74 22 20 2c	uetaste.=."m".,.zeigetab.=."t".,
c740	20 7a 65 69 67 65 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	.zeigephasend.=."p".,.zeigezeitd
c760	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 2c 20 6d 64 6c	.=."z".,.zeigezusatz.=."+".,.mdl
c780	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 74 20 3d 20 22	groesseneinbl.=."e".,.rubout.=."
c7a0	6c 22 20 3b 20 4c 45 54 20 ff ff ff ff ff ff ff be 00 49 4e 54 20 56 41 52 20 63 31 20 3a 3d 20	l".;.LET..........INT.VAR.c1.:=.
c7c0	31 20 2c 20 63 32 20 3a 3d 20 32 20 2c 20 63 33 20 3a 3d 20 33 20 2c 20 76 31 20 3a 3d 20 34 20	1.,.c2.:=.2.,.c3.:=.3.,.v1.:=.4.
c7e0	2c 20 76 32 20 3a 3d 20 35 20 2c 20 76 33 20 3a 3d 20 36 20 3b 20 52 45 41 4c 20 56 41 52 20 75	,.v2.:=.5.,.v3.:=.6.;.REAL.VAR.u
c800	31 20 2c 20 75 32 20 2c 20 7a 31 20 2c 20 7a 32 20 3b 20 50 49 43 54 55 52 45 20 56 41 52 20 6b	1.,.u2.,.z1.,.z2.;.PICTURE.VAR.k
c820	72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 67 65 62 65 61 75 66 62 69 6c 64	reuz.:=.nilpicture.;.gebeaufbild
c840	73 63 68 69 72 6d 61 75 73 20 28 20 73 65 69 74 65 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65	schirmaus.(.seite.,.modellkurzbe
c860	7a 65 69 63 68 6e 75 6e 67 20 2c 20 ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 61 62 62	zeichnung.,..................abb
c880	72 75 63 68 74 61 73 74 65 20 64 65 6d 6f 20 3d 20 22 61 22 2c 74 61 73 74 65 20 3d 20 22 77 22	ruchtaste.demo.=."a",taste.=."w"
c8a0	2c 20 65 20 3d 20 22 6d 22 2c 20 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d	,.e.=."m",.engebeibeschriftung.=
c8c0	20 38 20 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65 6e 20 3d 20 32 20 2c 20 76 6f 72 6b	.8.,.nachkommastellen.=.2.,.vork
c8e0	6f 6d 6d 61 20 3d 20 35 20 3b 20 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 20 4f 55	omma.=.5.;.PROC.zeigedarst4.(.OU
c900	54 50 55 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	TPUT.VAR.seite.,.BOOL.VAR.indemo
c920	20 2c 20 4b 55 52 56 45 20 56 41 52 20 6b 75 72 76 65 20 29 20 3a 20 20 28 20 ff ff ff ff ff ff	.,.KURVE.VAR.kurve.).:..(.......
c940	be 00 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 75 72 76 65	..seite.,.strukt1fenster.,.kurve
c960	20 2c 20 63 32 20 2c 20 76 32 20 2c 20 32 20 29 20 3b 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f	.,.c2.,.v2.,.2.).;.zeichneundplo
c980	74 74 65 6b 75 72 76 65 20 28 20 73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65	ttekurve.(.seite.,.strukt1fenste
c9a0	72 20 2c 20 6b 75 72 76 65 20 2c 20 63 33 20 2c 20 76 33 20 2c 20 33 20 29 20 3b 20 49 46 20 69	r.,.kurve.,.c3.,.v3.,.3.).;.IF.i
c9c0	6e 64 65 6d 6f 20 54 48 45 4e 20 70 6c 6f 74 74 65 66 75 73 73 7a 65 69 6c 65 20 28 20 73 65 69	ndemo.THEN.plottefusszeile.(.sei
c9e0	74 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 20 29 20 45 4c 53 45 20 ff ff ff ff	te.,.steuerzeiledemo.).ELSE.....
ca00	ce 00 20 20 20 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 73 6b 20 3d 20 22 73 69 6d 73 65 6c 20	.............plottask.=."simsel.
ca20	70 6c 6f 74 74 65 72 22 3b 74 64 20 3d 20 22 7a 22 2c 20 65 20 3b 20 73 63 68 72 65 69 62 65 6b	plotter";td.=."z",.e.;.schreibek
ca40	72 65 75 7a 20 3b 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	reuz.;.beschrifteundplottebeschr
ca60	69 66 74 75 6e 67 20 3b 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f 74 74 65 6b 75 72 76 65 20 28	iftung.;.zeichneundplottekurve.(
ca80	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 75 72 76 65 20	.seite.,.strukt1fenster.,.kurve.
caa0	2c 20 63 31 20 2c 20 76 31 20 2c 20 31 20 29 20 3b 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f 74	,.c1.,.v1.,.1.).;.zeichneundplot
cac0	74 65 6b 75 72 76 65 20 28 20 ff ff ff ff ff ff ce 00 4c 45 54 20 20 20 20 20 20 20 20 78 61 63	tekurve.(.........LET........xac
cae0	68 73 65 6e 62 65 7a 20 3d 20 22 63 22 2c 20 79 61 63 68 73 65 6e 62 65 7a 20 3d 20 22 76 22 2c	hsenbez.=."c",.yachsenbez.=."v",
cb00	20 3b 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c 6f 74 74 65 6b 75 72 76 65 20 28 20 73 65 69 74 65	.;.zeichneundplottekurve.(.seite
cb20	20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6b 75 72 76 65 20 2c 20 63 33 20 2c	.,.strukt1fenster.,.kurve.,.c3.,
cb40	20 76 33 20 2c 20 33 20 29 20 3b 20 49 46 20 69 6e 64 65 6d 6f 20 54 48 45 4e 20 70 6c 6f 74 74	.v3.,.3.).;.IF.indemo.THEN.plott
cb60	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
cb80	64 65 6d 6f 20 29 20 45 4c 53 45 20 61 67 72 61 6d 6d 20 28 20 2e 20 ff ff ff ff ff ff ff ff ff	demo.).ELSE.agramm.(............
cba0	ce 00 20 20 20 20 20 20 20 20 20 20 20 6c 65 67 65 6e 64 65 6e 74 65 78 74 20 3d 20 37 33 2c 20	.............legendentext.=.73,.
cbc0	66 75 73 73 7a 65 69 6c 65 6c 65 65 72 20 3d 20 30 2c 20 6c 6f 74 20 2e 20 69 6e 69 74 69 61 6c	fusszeileleer.=.0,.lot...initial
cbe0	69 73 69 65 72 65 20 3a 20 6c 65 67 65 66 65 6e 73 74 65 72 66 65 73 74 20 28 20 73 65 69 74 65	isiere.:.legefensterfest.(.seite
cc00	20 2c 20 75 31 20 2c 20 75 32 20 2c 20 7a 31 20 2c 20 7a 32 20 2c 20 73 74 72 75 6b 74 31 66 65	.,.u1.,.u2.,.z1.,.z2.,.strukt1fe
cc20	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.(
cc40	20 75 31 20 2c 20 75 32 20 2c 20 7a 31 20 2c 20 7a 32 20 29 20 3b 20 6e 69 6c 64 69 61 67 72 61	.u1.,.u2.,.z1.,.z2.).;.nildiagra
cc60	6d 6d 20 28 20 2e 20 65 6e 20 ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 73 74 65	mm.(...en....................ste
cc80	75 65 72 7a 65 69 6c 65 20 3d 20 33 34 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 20 3d	uerzeile.=.34,.steuerzeiledemo.=
cca0	20 33 2c 20 6b 6f 70 66 7a 65 69 6c 65 20 3d 20 32 35 2c 6e 20 28 20 6b 72 65 75 7a 20 2c 20 31	.3,.kopfzeile.=.25,n.(.kreuz.,.1
ccc0	20 29 20 3b 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	.).;.kreuz.:=.kreuzerzeugenundze
cce0	69 63 68 6e 65 6e 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	ichnen.(.minx.,.maxx.,.miny.,.ma
cd00	78 79 20 29 20 3b 20 70 75 74 6b 72 65 75 7a 20 28 20 73 65 69 74 65 20 2c 20 73 74 72 75 6b 74	xy.).;.putkreuz.(.seite.,.strukt
cd20	31 66 65 6e 73 74 65 72 20 2c 20 6b 72 65 75 7a 20 29 20 3b 20 2e 20 65 6e 20 ff ff ff ff ff ff	1fenster.,.kreuz.).;...en.......
cd40	ce 00 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 6b 75 72 76 65 6e 20 3d 20 33 2c 20 73 74 72 75	.............maxkurven.=.3,.stru
cd60	6b 74 31 66 65 6e 73 74 65 72 20 3d 20 31 2c 6c 22 3b 6d 61 78 79 20 3b 20 6d 61 78 79 20 3a 3d	kt1fenster.=.1,l";maxy.;.maxy.:=
cd80	20 6d 69 6e 20 28 20 67 72 6f 65 73 73 74 65 73 20 28 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20	.min.(.groesstes.(.maximalwerte.
cda0	28 20 6b 75 72 76 65 20 29 20 53 55 42 20 76 31 20 2c 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20	(.kurve.).SUB.v1.,.maximalwerte.
cdc0	28 20 6b 75 72 76 65 20 29 20 53 55 42 20 76 32 20 2c 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20	(.kurve.).SUB.v2.,.maximalwerte.
cde0	28 20 6b 75 72 76 65 20 29 20 53 55 42 20 76 33 20 29 20 2c 20 6b 6c 65 69 6e 73 74 65 73 20 28	(.kurve.).SUB.v3.).,.kleinstes.(
ce00	20 72 61 6e 64 6f 62 65 6e 20 ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 61 63 68	.randoben....................ach
ce20	73 65 6e 61 62 73 74 61 6e 64 20 3d 20 30 2e 30 35 2c 20 61 62 73 74 61 6e 64 20 3d 20 30 2e 31	senabstand.=.0.05,.abstand.=.0.1
ce40	2c 20 20 6d 61 78 78 20 3a 3d 20 6d 69 6e 20 28 20 67 72 6f 65 73 73 74 65 73 20 28 20 6d 61 78	,..maxx.:=.min.(.groesstes.(.max
ce60	69 6d 61 6c 77 65 72 74 65 20 28 20 6b 75 72 76 65 20 29 20 53 55 42 20 63 31 20 2c 20 6d 61 78	imalwerte.(.kurve.).SUB.c1.,.max
ce80	69 6d 61 6c 77 65 72 74 65 20 28 20 6b 75 72 76 65 20 29 20 53 55 42 20 63 32 20 2c 20 6d 61 78	imalwerte.(.kurve.).SUB.c2.,.max
cea0	69 6d 61 6c 77 65 72 74 65 20 28 20 6b 75 72 76 65 20 29 20 53 55 42 20 63 33 20 29 20 2c 20 6b	imalwerte.(.kurve.).SUB.c3.).,.k
cec0	6c 65 69 6e 73 74 65 73 20 28 20 72 61 6e 64 6f 62 65 6e 20 53 55 42 20 2c 20 ff ff ff ff ff ff	leinstes.(.randoben.SUB.,.......
cee0	ce 00 20 20 20 20 20 20 20 20 20 20 20 65 70 73 69 6c 6f 6e 20 3d 20 30 2e 35 2c 20 6c 61 65 6e	.............epsilon.=.0.5,.laen
cf00	67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d 20 38 2c 20 6e 61 63 68 6b 6f 6d 6d 61	gebeibeschriftung.=.8,.nachkomma
cf20	73 74 65 6c 6c 65 6e 20 3d 20 32 2c 69 6d 61 6c 77 65 72 74 65 20 28 20 6b 75 72 76 65 20 29 20	stellen.=.2,imalwerte.(.kurve.).
cf40	53 55 42 20 76 31 20 2c 20 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 20 6b 75 72 76 65 20 29 20	SUB.v1.,.minimalwerte.(.kurve.).
cf60	53 55 42 20 76 32 20 2c 20 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 20 6b 75 72 76 65 20 29 20	SUB.v2.,.minimalwerte.(.kurve.).
cf80	53 55 42 20 76 33 20 29 20 2c 20 67 72 6f 65 73 73 74 65 73 20 28 20 72 61 6e 64 75 6e 74 65 6e	SUB.v3.).,.groesstes.(.randunten
cfa0	20 53 55 42 20 76 31 20 2c 20 ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 76 6f 72	.SUB.v1.,....................vor
cfc0	6b 6f 6d 6d 61 20 3d 20 35 3b 20 31 39 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 20 3d	komma.=.5;.19,.steuerzeiledemo.=
cfe0	20 33 2c 20 6b 6f 70 66 7a 65 69 6c 65 20 3d 20 32 35 2c 3d 20 30 21 20 2a 2a 2a 22 20 2c 20 72	.3,.kopfzeile.=.25,=.0!.***".,.r
d000	74 65 20 28 20 6b 75 72 76 65 20 29 20 53 55 42 20 63 31 20 2c 20 6d 69 6e 69 6d 61 6c 77 65 72	te.(.kurve.).SUB.c1.,.minimalwer
d020	74 65 20 28 20 6b 75 72 76 65 20 29 20 53 55 42 20 63 32 20 2c 20 6d 69 6e 69 6d 61 6c 77 65 72	te.(.kurve.).SUB.c2.,.minimalwer
d040	74 65 20 28 20 6b 75 72 76 65 20 29 20 53 55 42 20 63 33 20 29 20 2c 20 67 72 6f 65 73 73 74 65	te.(.kurve.).SUB.c3.).,.groesste
d060	73 20 28 20 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 63 31 20 2c 20 20 2d 20 ff ff ff ff ff ff	s.(.randunten.SUB.c1.,..-.......
d080	ce 00 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74 34 20 28 4f 55 54 50 55 54 20 56 41 52 20 73	..PROC.zeigedarst4.(OUTPUT.VAR.s
d0a0	65 69 74 65 2c 20 42 4f 4f 4c 20 56 41 52 20 69 6e 64 65 6d 6f 2c 20 4b 55 52 56 45 20 56 41 52	eite,.BOOL.VAR.indemo,.KURVE.VAR
d0c0	20 6b 75 72 76 65 29 3a 20 2a 20 28 20 6d 61 78 79 20 2d 20 6d 69 6e 79 20 29 20 3b 20 6d 69 6e	.kurve):.*.(.maxy.-.miny.).;.min
d0e0	78 20 3a 3d 20 6d 69 6e 78 20 2d 20 61 63 68 73 65 6e 61 62 73 74 61 6e 64 20 2a 20 28 20 6d 61	x.:=.minx.-.achsenabstand.*.(.ma
d100	78 78 20 2d 20 6d 69 6e 78 20 29 20 3b 20 49 46 20 6d 69 6e 78 20 3d 20 6d 61 78 78 20 54 48 45	xx.-.minx.).;.IF.minx.=.maxx.THE
d120	4e 20 6d 61 78 78 20 3a 3d 20 6d 69 6e 78 20 2b 20 65 70 73 69 6c 6f 6e 20 3b 20 6d 69 6e 78 20	N.maxx.:=.minx.+.epsilon.;.minx.
d140	3a 3d 20 6d 69 6e 78 20 2d 20 ff ff ff ff ff ff be 00 52 45 50 20 6c 69 6e 69 65 20 28 20 69 20	:=.minx.-.........REP.linie.(.i.
d160	29 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 70 65 6e 20 28 20 6c 69 6e 69 65 20 28 20	).:=.nilpicture.;.pen.(.linie.(.
d180	69 20 29 20 2c 20 69 20 29 20 3b 20 50 45 52 20 3b 20 73 63 68 72 65 69 62 65 75 65 62 65 72 73	i.).,.i.).;.PER.;.schreibeuebers
d1a0	63 68 72 69 66 74 69 6e 6c 65 67 65 6e 64 65 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65	chriftinlegende.;.movecmr.(.lege
d1c0	6e 64 65 20 2c 20 61 62 73 74 61 6e 64 20 2c 20 30 2e 30 20 29 20 3b 20 46 4f 52 20 69 20 46 52	nde.,.abstand.,.0.0.).;.FOR.i.FR
d1e0	4f 4d 20 31 20 55 50 54 4f 20 6d 61 78 6b 75 72 76 65 6e 20 52 45 50 20 73 63 68 72 65 69 62 65	OM.1.UPTO.maxkurven.REP.schreibe
d200	6e 61 6d 65 69 6e 6c 65 67 65 6e 64 65 20 3b 20 ce 00 20 20 52 45 41 4c 20 56 41 52 20 75 31 2c	nameinlegende.;.....REAL.VAR.u1,
d220	20 75 32 2c 20 7a 31 2c 20 7a 32 3b 20 30 2e 30 35 2c 20 61 62 73 74 61 6e 64 20 3d 20 30 2e 31	.u2,.z1,.z2;.0.05,.abstand.=.0.1
d240	2c 20 6e 20 78 20 54 48 45 4e 20 41 52 20 6c 69 6e 69 65 20 3b 20 50 49 43 54 55 52 45 20 56 41	,.n.x.THEN.AR.linie.;.PICTURE.VA
d260	52 20 6c 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 52 45 41 4c 20 56	R.legende.:=.nilpicture.;.REAL.V
d280	41 52 20 61 20 2c 20 62 20 2c 20 61 62 73 74 61 6e 64 20 3b 20 49 4e 54 20 56 41 52 20 69 20 3b	AR.a.,.b.,.abstand.;.INT.VAR.i.;
d2a0	20 52 45 41 4c 20 56 41 52 20 77 6f 72 74 6c 61 65 6e 67 65 20 3a 3d 20 32 2e 30 20 3b 20 46 4f	.REAL.VAR.wortlaenge.:=.2.0.;.FO
d2c0	52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 6d 61 78 6b 75 72 76 65 6e 20 ff ff ff ff ff ff	R.i.FROM.1.UPTO.maxkurven.......
d2e0	ce 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6b 72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74	....PICTURE.VAR.kreuz.:=.nilpict
d300	75 72 65 3b 69 62 65 73 63 68 72 69 66 74 75 6e 67 20 3d 20 38 2c 20 6e 61 63 68 6b 6f 6d 6d 61	ure;ibeschriftung.=.8,.nachkomma
d320	73 74 65 6c 6c 65 6e 20 3d 20 32 2c 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67 65 6e 64 65 20	stellen.=.2,berschriftinlegende.
d340	3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 61 62 73 74 61 6e 64 20 2c 20	;.movecmr.(.legende.,.abstand.,.
d360	30 2e 30 20 29 20 3b 20 46 4f 52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 6d 61 78 6b 75 72	0.0.).;.FOR.i.FROM.1.UPTO.maxkur
d380	76 65 6e 20 52 45 50 20 73 63 68 72 65 69 62 65 6e 61 6d 65 69 6e 6c 65 67 65 6e 64 65 20 3b 20	ven.REP.schreibenameinlegende.;.
d3a0	20 28 20 2d 20 30 2e 31 20 ff ff ff ff ff ff ff ce 00 20 20 67 65 62 65 61 75 66 62 69 6c 64 73	.(.-.0.1............gebeaufbilds
d3c0	63 68 69 72 6d 61 75 73 20 28 73 65 69 74 65 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69	chirmaus.(seite,.modellkurzbezei
d3e0	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 6e 6c 65 67 65 6e	chnung,.darstellungsname,.nlegen
d400	64 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	de.;.plottelegende.;.putkreuz.(.
d420	73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6c 65 67 65 6e 64 65	seite.,.strukt1fenster.,.legende
d440	20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 75 65 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67	.).;...schreibeueberschriftinleg
d460	65 6e 64 65 20 3a 20 61 20 3a 3d 20 72 65 61 6c 20 28 20 2d 20 30 2e 31 20 ff ff ff ff ff ff ff	ende.:.a.:=.real.(.-.0.1........
d480	ce 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 66 75 73 73 7a 65	..........................fussze
d4a0	69 6c 65 6c 65 65 72 29 3b 4c 20 56 41 52 20 69 6e 64 65 6d 6f 2c 20 4b 55 52 56 45 20 56 41 52	ileleer);L.VAR.indemo,.KURVE.VAR
d4c0	20 6b 75 72 76 65 29 3a 20 64 68 6f 65 68 65 20 3b 20 61 62 73 74 61 6e 64 20 3a 3d 20 39 2e 30	.kurve):.dhoehe.;.abstand.:=.9.0
d4e0	20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 3b 20 6d 6f 76 65 20 28 20 6c 65 67 65 6e	.*.standardbreite.;.move.(.legen
d500	64 65 20 2c 20 6d 69 6e 78 20 2c 20 6d 69 6e 79 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c	de.,.minx.,.miny.).;.movecmr.(.l
d520	65 67 65 6e 64 65 20 2c 20 2d 20 31 2e 30 20 2a 20 61 20 2c 20 28 20 2d 20 31 2e 30 20 2a 20 62	egende.,.-.1.0.*.a.,.(.-.1.0.*.b
d540	20 29 20 2d 20 30 2e 31 20 ff ff ff ff ff ff ff ce 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72	.).-.0.1............initialisier
d560	65 3b 31 2c 20 63 32 20 3a 3d 20 32 2c 20 63 33 20 3a 3d 20 33 2c 20 76 31 20 3a 3d 20 34 2c 20	e;1,.c2.:=.2,.c3.:=.3,.v1.:=.4,.
d580	76 32 20 3a 3d 20 35 2c 20 76 33 20 3a 3d 20 36 3b 64 61 72 64 68 6f 65 68 65 20 2c 20 73 74 61	v2.:=.5,.v3.:=.6;dardhoehe.,.sta
d5a0	6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 6e 61 6d 65 69 6e	ndardbreite.).;...schreibenamein
d5c0	6c 65 67 65 6e 64 65 20 3a 20 64 72 61 77 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 22 41 22 20 2b	legende.:.draw.(.legende.,."A".+
d5e0	20 74 65 78 74 20 28 20 69 20 29 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68	.text.(.i.).,.0.0.,.standardhoeh
d600	65 20 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 20 20 ff ff ff ff ff ff ff	e.,.standardbreite.).;..........
d620	be 00 2c 20 70 65 6e 20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 29 20 29 20 3b 20 70 6c 6f 74	..,.pen.(.linie.(.i.).).).;.plot
d640	20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 29 20 3b 20 70 75 74 6b 72 65 75 7a 20 28 20 73 65	.(.linie.(.i.).).;.putkreuz.(.se
d660	69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6c 69 6e 69 65 20 28 20 69	ite.,.strukt1fenster.,.linie.(.i
d680	20 29 20 29 20 2e 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 65	.).)...beschrifteachseninlegende
d6a0	20 3a 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 6d 61 78 79 20	.:.move.(.legende.,.minx.,.maxy.
d6c0	29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 2d 20 32 2e 30 20 2a 20	).;.movecmr.(.legende.,.-.2.0.*.
d6e0	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
d700	75 6e 67 3b 52 4f 57 20 6d 61 78 6b 75 72 76 65 6e 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 69	ung;ROW.maxkurven.PICTURE.VAR.li
d720	6e 69 65 20 3b 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c	nie.;.PICTURE.VAR.legende.:=.nil
d740	70 69 63 74 75 72 65 20 3b 20 52 45 41 4c 20 56 41 52 20 61 20 2c 20 62 20 2c 20 61 62 73 74 61	picture.;.REAL.VAR.a.,.b.,.absta
d760	6e 64 20 3b 20 49 4e 54 20 56 41 52 20 69 20 3b 20 52 45 41 4c 20 56 41 52 20 77 6f 72 74 6c 61	nd.;.INT.VAR.i.;.REAL.VAR.wortla
d780	65 6e 67 65 20 3a 3d 20 32 2e 30 20 3b 20 46 4f 52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20	enge.:=.2.0.;.FOR.i.FROM.1.UPTO.
d7a0	6d 61 78 6b 75 72 76 65 6e 20 ff ff ff ff ff ff be 00 2c 20 78 61 63 68 73 65 6e 62 65 7a 20 2c	maxkurven.........,.xachsenbez.,
d7c0	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 62	.0.0.,.standardhoehe.,.standardb
d7e0	72 65 69 74 65 20 29 20 3b 20 2e 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 20 3a 20 70 65 6e 20	reite.).;...plottelegende.:.pen.
d800	28 20 6c 65 67 65 6e 64 65 20 2c 20 31 20 29 20 3b 20 70 65 6e 20 28 20 30 20 2c 20 31 20 2c 20	(.legende.,.1.).;.pen.(.0.,.1.,.
d820	30 20 2c 20 70 65 6e 20 28 20 6c 65 67 65 6e 64 65 20 29 20 29 20 3b 20 70 6c 6f 74 20 28 20 6c	0.,.pen.(.legende.).).;.plot.(.l
d840	65 67 65 6e 64 65 20 29 20 3b 20 2e 20 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74	egende.).;...END.PROC.zeigedarst
d860	34 20 3b 20 50 52 4f 43 20 ff ff ff ff ff ff ff ce 00 20 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c	4.;.PROC............zeichneundpl
d880	6f 74 74 65 6b 75 72 76 65 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72	ottekurve.(seite,.strukt1fenster
d8a0	2c 20 6b 75 72 76 65 2c 20 63 32 2c 20 76 32 2c 20 32 29 3b 61 78 2c 20 6b 6d 29 3a 65 67 65 6e	,.kurve,.c2,.v2,.2);ax,.km):egen
d8c0	64 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	de.;.plottelegende.;.putkreuz.(.
d8e0	73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6c 65 67 65 6e 64 65	seite.,.strukt1fenster.,.legende
d900	20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 75 65 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67	.).;...schreibeueberschriftinleg
d920	65 6e 64 65 20 3a 20 61 20 3a 3d 20 72 65 61 6c 20 28 20 67 65 6e 64 65 20 ff ff ff ff ff ff ff	ende.:.a.:=.real.(.gende........
d940	be 00 2e 20 72 69 63 68 74 65 70 69 63 74 75 72 65 65 69 6e 20 3a 20 42 4f 55 4e 44 20 50 49 43	....richtepictureein.:.BOUND.PIC
d960	54 55 52 45 20 56 41 52 20 66 75 6e 6b 74 69 6f 6e 20 3b 20 66 6f 72 67 65 74 20 28 20 22 50 49	TURE.VAR.funktion.;.forget.(."PI
d980	43 54 55 52 45 22 20 2c 20 71 75 69 65 74 20 29 20 3b 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e	CTURE".,.quiet.).;.funktion.:=.n
d9a0	65 77 20 28 20 22 50 49 43 54 55 52 45 22 20 29 20 3b 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e	ew.(."PICTURE".).;.funktion.:=.n
d9c0	69 6c 70 69 63 74 75 72 65 20 2e 20 6f 72 64 6e 65 70 65 6e 7a 75 20 3a 20 70 65 6e 20 28 20 66	ilpicture...ordnepenzu.:.pen.(.f
d9e0	75 6e 6b 74 69 6f 6e 20 2c 20 73 74 69 66 74 20 29 20 3b 20 2e 20 ff ff ff ff ff ff ff ff ff ff	unktion.,.stift.).;.............
da00	ce 00 20 20 73 63 68 72 65 69 62 65 6b 72 65 75 7a 3b 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d	....schreibekreuz;.maxx,.miny,.m
da20	61 78 79 2c 20 70 75 6e 6b 74 78 2c 20 64 72 65 69 64 75 72 63 68 76 6d 61 78 3b 2c 20 73 74 61	axy,.punktx,.dreidurchvmax;,.sta
da40	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.).;.
da60	2e 20 73 63 68 72 65 69 62 65 6e 61 6d 65 69 6e 6c 65 67 65 6e 64 65 20 3a 20 64 72 61 77 20 28	..schreibenameinlegende.:.draw.(
da80	20 6c 65 67 65 6e 64 65 20 2c 20 22 41 22 20 2b 20 74 65 78 74 20 28 20 69 20 29 20 2c 20 30 2e	.legende.,."A".+.text.(.i.).,.0.
daa0	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
dac0	74 65 20 29 20 3b 20 65 20 65 72 73 74 65 6e 20 ce 00 20 20 62 65 73 63 68 72 69 66 74 65 75 6e	te.).;.e.ersten.....beschrifteun
dae0	64 70 6c 6f 74 74 65 62 65 73 63 68 72 69 66 74 75 6e 67 3b 20 30 2e 35 20 29 20 2a 20 73 74 61	dplottebeschriftung;.0.5.).*.sta
db00	6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 30 20 29 20 3b 20 2e 20 75 6e 74 65 72 73 74 72	ndardbreite.,.0.0.).;...unterstr
db20	65 69 63 68 65 69 6e 6c 65 67 65 6e 64 65 20 3a 20 70 65 6e 20 28 20 6c 69 6e 69 65 20 28 20 69	eicheinlegende.:.pen.(.linie.(.i
db40	20 29 20 2c 20 69 20 29 20 3b 20 6d 6f 76 65 20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 2c 20	.).,.i.).;.move.(.linie.(.i.).,.
db60	6d 69 6e 78 20 2c 20 6d 69 6e 79 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 69 6e 69 65 20	minx.,.miny.).;.movecmr.(.linie.
db80	28 20 69 20 29 20 2c 20 28 20 2d 20 31 2e 30 20 29 20 2a 20 61 20 2b 20 65 65 72 73 74 65 6e 20	(.i.).,.(.-.1.0.).*.a.+.eersten.
dba0	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,.
dbc0	73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 29 20 20 6b 75 72 76 65 2c 20 63 31 2c 20 76 31 2c	steuerzeiledemo)..kurve,.c1,.v1,
dbe0	20 31 29 3b 67 65 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e 30 20 29 20	.1);ge.*.standardbreite.,.0.0.).
dc00	3b 20 61 62 73 74 61 6e 64 20 3a 3d 20 61 62 73 74 61 6e 64 20 2b 20 28 20 77 6f 72 74 6c 61 65	;.abstand.:=.abstand.+.(.wortlae
dc20	6e 67 65 20 2b 20 30 2e 35 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 3b 20 2e	nge.+.0.5.).*.standardbreite.;..
dc40	20 70 6c 6f 74 74 65 75 6e 74 65 72 73 74 72 65 69 63 68 75 6e 67 20 3a 20 70 65 6e 20 28 20 30	.plotteunterstreichung.:.pen.(.0
dc60	20 2c 20 31 20 2c 20 30 20 65 72 73 74 65 6e 20 ce 00 20 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c	.,.1.,.0.ersten.....zeichneundpl
dc80	6f 74 74 65 6b 75 72 76 65 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72	ottekurve.(seite,.strukt1fenster
dca0	2c 20 6b 75 72 76 65 2c 20 63 32 2c 20 76 32 2c 20 32 29 3b 6e 61 6d 65 2c 20 6b 74 31 66 65 6e	,.kurve,.c2,.v2,.2);name,.kt1fen
dcc0	73 74 65 72 20 2c 20 6c 69 6e 69 65 20 28 20 69 20 29 20 29 20 2e 20 62 65 73 63 68 72 69 66 74	ster.,.linie.(.i.).)...beschrift
dce0	65 61 63 68 73 65 6e 69 6e 6c 65 67 65 6e 64 65 20 3a 20 6d 6f 76 65 20 28 20 6c 65 67 65 6e 64	eachseninlegende.:.move.(.legend
dd00	65 20 2c 20 6d 69 6e 78 20 2c 20 6d 61 78 79 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65	e.,.minx.,.maxy.).;.movecmr.(.le
dd20	67 65 6e 64 65 20 2c 20 2d 20 32 2e 30 20 2a 20 7a 20 53 55 42 20 6d 72 20 ff ff ff ff ff ff ff	gende.,.-.2.0.*.z.SUB.mr........
dd40	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,.
dd60	73 74 65 75 65 72 7a 65 69 6c 65 29 20 74 65 72 2c 20 6b 75 72 76 65 2c 20 63 33 2c 20 76 33 2c	steuerzeile).ter,.kurve,.c3,.v3,
dd80	20 33 29 3b 6e 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	.3);ndow.(.minx.,.maxx.,.miny.,.
dda0	6d 61 78 79 20 29 20 3b 20 2e 20 67 65 6e 64 65 20 2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 29	maxy.).;...gende.,.maxx.,.miny.)
ddc0	20 3b 20 6d 6f 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 73	.;.movecmr.(.legende.,.-.1.0.*.s
dde0	74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 31 2e 30 20 29 20 3b 20 64 72 61 77 20 28	tandardbreite.,.-.1.0.).;.draw.(
de00	20 6c 65 67 65 6e 64 65 20 ff ff ff ff ff ff ff ce 00 20 20 69 6e 69 74 69 61 6c 69 73 69 65 72	.legende............initialisier
de20	65 3b 74 74 65 62 65 73 63 68 72 69 66 74 75 6e 67 20 3a 20 52 4f 57 20 6d 61 78 6b 75 72 76 65	e;ttebeschriftung.:.ROW.maxkurve
de40	6e 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 69 6e 69 65 20 3b 20 50 49 43 54 55 52 45 20 56 41	n.PICTURE.VAR.linie.;.PICTURE.VA
de60	52 20 6c 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 52 45 41 4c 20 56	R.legende.:=.nilpicture.;.REAL.V
de80	41 52 20 61 20 2c 20 62 20 2c 20 61 62 73 74 61 6e 64 20 3b 20 49 4e 54 20 56 41 52 20 69 20 3b	AR.a.,.b.,.abstand.;.INT.VAR.i.;
dea0	20 52 45 41 4c 20 56 41 52 20 77 6f 72 74 6c 61 65 6e 67 65 20 3a 3d 20 32 2e 30 20 3b 20 46 4f	.REAL.VAR.wortlaenge.:=.2.0.;.FO
dec0	52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 6d 61 78 6b 75 72 76 65 6e 20 ff ff ff ff ff ff	R.i.FROM.1.UPTO.maxkurven.......
dee0	ce 00 20 20 73 63 68 72 65 69 62 65 6b 72 65 75 7a 3b 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20	....schreibekreuz;:=.nilpicture.
df00	3b 20 70 65 6e 20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 2c 20 69 20 29 20 3b 20 50 45 52 20	;.pen.(.linie.(.i.).,.i.).;.PER.
df20	3b 20 73 63 68 72 65 69 62 65 75 65 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67 65 6e 64 65 20	;.schreibeueberschriftinlegende.
df40	3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 61 62 73 74 61 6e 64 20 2c 20	;.movecmr.(.legende.,.abstand.,.
df60	30 2e 30 20 29 20 3b 20 46 4f 52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 6d 61 78 6b 75 72	0.0.).;.FOR.i.FROM.1.UPTO.maxkur
df80	76 65 6e 20 52 45 50 20 73 63 68 72 65 69 62 65 6e 61 6d 65 69 6e 6c 65 67 65 6e 64 65 20 3b 20	ven.REP.schreibenameinlegende.;.
dfa0	65 70 69 63 74 75 72 65 20 20 ff ff ff ff ff ff ce 00 69 6e 69 74 69 61 6c 69 73 69 65 72 65 3a	epicture..........initialisiere:
dfc0	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)
dfe0	20 3b 20 50 45 52 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	.;.PER.;.beschrifteachseninlegen
e000	64 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	de.;.plottelegende.;.putkreuz.(.
e020	73 65 69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6c 65 67 65 6e 64 65	seite.,.strukt1fenster.,.legende
e040	20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 75 65 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67	.).;...schreibeueberschriftinleg
e060	65 6e 64 65 20 3a 20 61 20 3a 3d 20 72 65 61 6c 20 28 20 20 2e 20 65 72 74 20 ff ff ff ff ff ff	ende.:.a.:=.real.(....ert.......
e080	ce 00 20 20 6c 65 67 65 66 65 6e 73 74 65 72 66 65 73 74 20 28 73 65 69 74 65 2c 20 75 31 2c 20	....legefensterfest.(seite,.u1,.
e0a0	75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b 32 2e 30 20	u2,.z1,.z2,.strukt1fenster);2.0.
e0c0	2a 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 3b 20 61 62 73 74 61 6e 64 20 3a 3d 20 39 2e 30	*.standardhoehe.;.abstand.:=.9.0
e0e0	20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 3b 20 6d 6f 76 65 20 28 20 6c 65 67 65 6e	.*.standardbreite.;.move.(.legen
e100	64 65 20 2c 20 6d 69 6e 78 20 2c 20 6d 69 6e 79 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c	de.,.minx.,.miny.).;.movecmr.(.l
e120	65 67 65 6e 64 65 20 2c 20 2d 20 31 2e 30 20 2a 20 61 20 2c 20 28 20 2d 20 31 2e 30 20 2a 20 62	egende.,.-.1.0.*.a.,.(.-.1.0.*.b
e140	20 29 20 2d 20 30 2e 31 20 65 72 73 74 65 6e 20 ce 00 20 20 20 20 20 20 70 6c 6f 74 74 65 66 75	.).-.0.1.ersten.........plottefu
e160	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 29 20 6e 74 65	sszeile.(seite,.steuerzeile).nte
e180	78 74 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	xt.).,.0.0.,.standardhoehe.,.sta
e1a0	6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 2e 20 73 63 68 72 65 69 62 65 6e 61 6d 65 69 6e	ndardbreite.).;...schreibenamein
e1c0	6c 65 67 65 6e 64 65 20 3a 20 64 72 61 77 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 22 41 22 20 2b	legende.:.draw.(.legende.,."A".+
e1e0	20 74 65 78 74 20 28 20 69 20 29 20 2c 20 30 2e 30 20 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68	.text.(.i.).,.0.0.,.standardhoeh
e200	65 20 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 29 20 3b 20 29 20 ff ff ff ff ff ff ff	e.,.standardbreite.).;.)........
e220	ce 00 20 20 76 69 65 77 70 6f 72 74 20 28 75 31 2c 20 75 32 2c 20 7a 31 2c 20 7a 32 29 3b 65 6e	....viewport.(u1,.u2,.z1,.z2);en
e240	67 65 20 2b 20 30 2e 35 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 30 2e	ge.+.0.5.).*.standardbreite.,.0.
e260	30 20 29 20 3b 20 2e 20 75 6e 74 65 72 73 74 72 65 69 63 68 65 69 6e 6c 65 67 65 6e 64 65 20 3a	0.).;...unterstreicheinlegende.:
e280	20 70 65 6e 20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 2c 20 69 20 29 20 3b 20 6d 6f 76 65 20	.pen.(.linie.(.i.).,.i.).;.move.
e2a0	28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 2c 20 6d 69 6e 78 20 2c 20 6d 69 6e 79 20 29 20 3b 20	(.linie.(.i.).,.minx.,.miny.).;.
e2c0	6d 6f 76 65 63 6d 72 20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 2c 20 28 20 2d 20 31 2e 30 20	movecmr.(.linie.(.i.).,.(.-.1.0.
e2e0	29 20 2a 20 61 20 2b 20 20 20 ff ff ff ff ff ff ce 00 20 20 6e 69 6c 64 69 61 67 72 61 6d 6d 20	).*.a.+.............nildiagramm.
e300	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 65 64 65 6d 6f 29	(seite,.strukt1fenster);iledemo)
e320	3b 69 65 20 28 20 69 20 29 20 2c 20 77 6f 72 74 6c 61 65 6e 67 65 20 2a 20 73 74 61 6e 64 61 72	;ie.(.i.).,.wortlaenge.*.standar
e340	64 62 72 65 69 74 65 20 2c 20 30 2e 30 20 29 20 3b 20 61 62 73 74 61 6e 64 20 3a 3d 20 61 62 73	dbreite.,.0.0.).;.abstand.:=.abs
e360	74 61 6e 64 20 2b 20 28 20 77 6f 72 74 6c 61 65 6e 67 65 20 2b 20 30 2e 35 20 29 20 2a 20 73 74	tand.+.(.wortlaenge.+.0.5.).*.st
e380	61 6e 64 61 72 64 62 72 65 69 74 65 20 3b 20 2e 20 70 6c 6f 74 74 65 75 6e 74 65 72 73 74 72 65	andardbreite.;...plotteunterstre
e3a0	69 63 68 75 6e 67 20 3a 20 70 65 6e 20 28 20 30 20 2c 20 31 20 2c 20 30 20 20 ff ff ff ff ff ff	ichung.:.pen.(.0.,.1.,.0........
e3c0	be 00 78 6d 61 78 20 2d 20 78 6d 69 6e 20 29 20 2f 20 72 65 61 6c 20 28 20 61 6e 7a 61 68 6c 78	..xmax.-.xmin.)./.real.(.anzahlx
e3e0	61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 29 20 3b 20 79 77 65 69 74 65 20 3a 3d 20 28	achsenabschnitte.).;.yweite.:=.(
e400	20 79 6d 61 78 20 2d 20 79 6d 69 6e 20 29 20 2f 20 72 65 61 6c 20 28 20 61 6e 7a 61 68 6c 79 61	.ymax.-.ymin.)./.real.(.anzahlya
e420	63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20 29 20 3b 20 6f 72 64 6e 65 73 74 69 66 74 7a 75	chsenabschnitte.).;.ordnestiftzu
e440	20 3b 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 20 3b 20 7a 65 69 63 68 6e 65 79 61 63 68 73 65	.;.zeichnexachse.;.zeichneyachse
e460	20 3b 20 78 73 6b 61 6c 69 65 72 75 6e 67 20 3b 20 79 73 6b 61 6c 69 65 72 75 6e 67 20 3b 20 ff	.;.xskalierung.;.yskalierung.;..
e480	ce 00 20 20 6c 65 67 65 66 65 6e 73 74 65 72 66 65 73 74 20 28 73 65 69 74 65 2c 20 75 31 2c 20	....legefensterfest.(seite,.u1,.
e4a0	75 32 2c 20 7a 31 2c 20 7a 32 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b 20 2c 20 73	u2,.z1,.z2,.strukt1fenster);.,.s
e4c0	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.).
e4e0	3b 20 6d 6f 76 65 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 6d 61 78 78 20 2c 20 6d 69 6e 79 20 29	;.move.(.legende.,.maxx.,.miny.)
e500	20 3b 20 6d 6f 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 73	.;.movecmr.(.legende.,.-.1.0.*.s
e520	74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 31 2e 30 20 29 20 3b 20 64 72 61 77 20 28	tandardbreite.,.-.1.0.).;.draw.(
e540	20 6c 65 67 65 6e 64 65 20 ff ff ff ff ff ff ff ce 00 73 63 68 72 65 69 62 65 6b 72 65 75 7a 3a	.legende..........schreibekreuz:
e560	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 62	.0.0.,.standardhoehe.,.standardb
e580	72 65 69 74 65 20 29 20 3b 20 2e 20 70 6c 6f 74 74 65 6c 65 67 65 6e 64 65 20 3a 20 70 65 6e 20	reite.).;...plottelegende.:.pen.
e5a0	28 20 6c 65 67 65 6e 64 65 20 2c 20 31 20 29 20 3b 20 70 65 6e 20 28 20 30 20 2c 20 31 20 2c 20	(.legende.,.1.).;.pen.(.0.,.1.,.
e5c0	30 20 2c 20 70 65 6e 20 28 20 6c 65 67 65 6e 64 65 20 29 20 29 20 3b 20 70 6c 6f 74 20 28 20 6c	0.,.pen.(.legende.).).;.plot.(.l
e5e0	65 67 65 6e 64 65 20 29 20 3b 20 2e 20 45 4e 44 20 50 52 4f 43 20 7a 65 69 67 65 64 61 72 73 74	egende.).;...END.PROC.zeigedarst
e600	34 20 3b 20 50 52 4f 43 20 20 2c 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20 ff ff ff ff ff ff	4.;.PROC..,.xwert.,.ywert.......
e620	be 00 3b 20 6d 6f 76 65 20 28 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 29 20 3b 20 64 72 61 77 63	..;.move.(.xmax.,.ymin.).;.drawc
e640	6d 72 20 28 20 2d 20 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	mr.(.-.0.2.,.-.0.2.).;.drawcmr.(
e660	20 6b 72 65 75 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	.kreuz.,.-.0.2.,.0.2.).;.move.(.
e680	6b 72 65 75 7a 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	kreuz.,.xmax.,.ymin.).;.drawcmr.
e6a0	28 20 6b 72 65 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	(.kreuz.,.-.0.2.,.-.0.2.)...zeic
e6c0	68 6e 65 79 73 70 69 74 7a 65 20 3a 20 64 72 61 77 63 6d 72 20 28 20 30 2e 30 20 2c 20 ff ff ff	hneyspitze.:.drawcmr.(.0.0.,....
e6e0	ce 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	....kreuz.:=.kreuzerzeugenundzei
e700	63 68 6e 65 6e 20 28 6d 69 6e 78 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61 78 79 29 3b 49	chnen.(minx,.maxx,.miny,.maxy);I
e720	43 54 55 52 45 22 20 2c 20 71 75 69 65 74 20 29 20 3b 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e	CTURE".,.quiet.).;.funktion.:=.n
e740	65 77 20 28 20 22 50 49 43 54 55 52 45 22 20 29 20 3b 20 66 75 6e 6b 74 69 6f 6e 20 3a 3d 20 6e	ew.(."PICTURE".).;.funktion.:=.n
e760	69 6c 70 69 63 74 75 72 65 20 2e 20 6f 72 64 6e 65 70 65 6e 7a 75 20 3a 20 70 65 6e 20 28 20 66	ilpicture...ordnepenzu.:.pen.(.f
e780	75 6e 6b 74 69 6f 6e 20 2c 20 73 74 69 66 74 20 29 20 3b 20 2e 20 30 2e 30 20 2c 20 30 20 29 20	unktion.,.stift.).;...0.0.,.0.).
e7a0	3b 20 63 69 72 63 6c 65 20 ff ff ff ff ff ff ff ce 00 20 20 70 75 74 6b 72 65 75 7a 20 28 73 65	;.circle............putkreuz.(se
e7c0	69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6b 72 65 75 7a 29 3b 20 6f 62 65	ite,.strukt1fenster,.kreuz);.obe
e7e0	6e 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 29 3b 65 69 74 20 3a 3d 20 30 2e 30 20 3b 20	n,.strukt1fenster);eit.:=.0.0.;.
e800	5a 55 53 54 41 4e 44 20 56 41 52 20 7a 20 3a 3d 20 6e 65 75 65 72 7a 75 73 74 61 6e 64 20 28 20	ZUSTAND.VAR.z.:=.neuerzustand.(.
e820	64 69 6d 65 6e 73 69 6f 6e 20 2b 20 63 6f 20 64 69 6d 65 6e 73 69 6f 6e 20 2b 20 31 29 20 3b 20	dimension.+.co.dimension.+.1).;.
e840	52 45 41 4c 20 56 41 52 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20 3b 20 70 65 6e 20 28 20 30	REAL.VAR.xwert.,.ywert.;.pen.(.0
e860	20 2c 20 31 20 2c 20 30 20 2c 20 73 74 69 66 74 20 29 20 3b 20 6c 65 73 65 65 72 73 74 65 6e 20	.,.1.,.0.,.stift.).;.leseersten.
e880	ce 00 28 20 6b 75 72 76 65 20 2c 20 7a 65 69 74 20 2c 20 7a 20 29 20 3b 20 74 72 61 67 65 61 6e	..(.kurve.,.zeit.,.z.).;.tragean
e8a0	66 61 6e 67 73 70 75 6e 6b 74 65 69 6e 20 3b 20 57 48 49 4c 45 20 4e 4f 54 20 65 6e 64 65 64 65	fangspunktein.;.WHILE.NOT.endede
e8c0	72 6c 6f 65 73 75 6e 67 20 28 20 6b 75 72 76 65 20 29 20 52 45 50 20 6c 65 73 65 6e 61 65 63 68	rloesung.(.kurve.).REP.lesenaech
e8e0	73 74 65 6e 70 75 6e 6b 74 20 3b 20 74 72 61 67 65 66 6f 6c 67 65 70 75 6e 6b 74 65 69 6e 20 50	stenpunkt.;.tragefolgepunktein.P
e900	45 52 20 3b 20 7a 65 69 63 68 6e 65 6b 72 65 69 73 75 6d 65 6e 64 70 75 6e 6b 74 20 3b 20 2e 20	ER.;.zeichnekreisumendpunkt.;...
e920	74 72 61 67 65 61 6e 66 61 6e 67 73 70 75 6e 6b 74 65 69 6e 20 3a 20 78 77 65 72 74 20 3a 3d 20	trageanfangspunktein.:.xwert.:=.
e940	7a 20 53 55 42 20 22 20 2c 20 ff ff ff ff ff ff ce 00 62 65 73 74 69 6d 6d 65 65 78 74 72 65 6d	z.SUB.".,.........bestimmeextrem
e960	61 3a 20 72 74 73 2c 20 75 6e 74 65 6e 2c 20 6f 62 65 6e 29 3b 6d 61 75 73 67 61 62 65 66 65 6e	a:.rts,.unten,.oben);mausgabefen
e980	73 74 65 72 20 28 20 78 77 65 72 74 20 2c 20 78 76 61 72 20 29 20 43 41 4e 44 20 69 6d 61 75 73	ster.(.xwert.,.xvar.).CAND.imaus
e9a0	67 61 62 65 66 65 6e 73 74 65 72 20 28 20 79 77 65 72 74 20 2c 20 79 76 61 72 20 29 20 29 20 54	gabefenster.(.ywert.,.yvar.).).T
e9c0	48 45 4e 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77 65 72 74 20 2c 20 79 77	HEN.move.(.funktion.,.xwert.,.yw
e9e0	65 72 74 20 29 20 3b 20 6d 6f 76 65 20 28 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20 29 20 3b	ert.).;.move.(.xwert.,.ywert.).;
ea00	20 7a 65 69 63 68 6e 65 66 61 64 65 6e 6b 72 65 75 7a 20 3b 20 3d 20 28 20 20 ff ff ff ff ff ff	.zeichnefadenkreuz.;.=.(........
ea20	ce 00 20 20 52 45 41 4c 20 56 41 52 20 6d 69 6e 78 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d	....REAL.VAR.minx,.maxx,.miny,.m
ea40	61 78 79 3b 65 72 29 3b 7a 20 3a 20 64 72 61 77 63 6d 72 20 28 20 30 2e 32 20 2c 20 30 2e 30 20	axy;er);z.:.drawcmr.(.0.2.,.0.0.
ea60	29 20 3b 20 6d 6f 76 65 20 28 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 64 72 61	).;.move.(.xwert.,.ywert.).;.dra
ea80	77 63 6d 72 20 28 20 2d 20 30 2e 32 20 2c 20 30 2e 30 20 29 20 3b 20 6d 6f 76 65 20 28 20 78 77	wcmr.(.-.0.2.,.0.0.).;.move.(.xw
eaa0	65 72 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 30 2e 30 20 2c 20	ert.,.ywert.).;.drawcmr.(.0.0.,.
eac0	30 2e 32 20 29 20 3b 20 6d 6f 76 65 20 28 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20 29 20 3b	0.2.).;.move.(.xwert.,.ywert.).;
eae0	20 64 72 61 77 63 6d 72 20 20 ff ff ff ff ff ff ce 00 20 20 6d 61 78 79 20 3a 3d 20 6d 69 6e 20	.drawcmr............maxy.:=.min.
eb00	28 67 72 6f 65 73 73 74 65 73 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29	(groesstes.(maximalwerte.(kurve)
eb20	20 53 55 42 20 76 31 2c 20 6d 61 78 79 29 3b 20 2c 20 30 2e 32 20 2c 20 30 2e 30 20 29 20 3b 20	.SUB.v1,.maxy);.,.0.2.,.0.0.).;.
eb40	6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20	move.(.funktion.,.xwert.,.ywert.
eb60	29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 2d 20 30 2e 32 20 2c	).;.drawcmr.(.funktion.,.-.0.2.,
eb80	20 30 2e 30 20 29 20 3b 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77 65 72 74	.0.0.).;.move.(.funktion.,.xwert
eba0	20 2c 20 79 77 65 72 74 20 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 20 29 20 ff ff ff ff ff ff	.,.ywert.).;.drawcmr.(..).......
ebc0	ce 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 6d 61 78 69	............................maxi
ebe0	6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 53 55 42 20 76 32 2c 20 74 20 29 20 3b 20 64	malwerte.(kurve).SUB.v2,.t.).;.d
ec00	72 61 77 63 6d 72 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 30 2e 30 20 2c 20 2d 20 30 2e 32 20	rawcmr.(.funktion.,.0.0.,.-.0.2.
ec20	29 20 3b 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77 65 72 74 20 2c 20 79 77	).;.move.(.funktion.,.xwert.,.yw
ec40	65 72 74 20 29 20 3b 20 2e 20 6c 65 73 65 6e 61 65 63 68 73 74 65 6e 70 75 6e 6b 74 20 3a 20 6c	ert.).;...lesenaechstenpunkt.:.l
ec60	65 73 65 6e 61 65 63 68 73 74 65 6e 20 28 20 6b 75 72 76 65 20 2c 20 7a 65 69 74 20 2c 20 7a 20	esenaechsten.(.kurve.,.zeit.,.z.
ec80	29 20 3b 20 2e 20 33 20 29 20 ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	).;...3.).......................
eca0	20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29	............maximalwerte.(kurve)
ecc0	20 53 55 42 20 76 33 29 2c 20 42 20 79 76 61 72 20 3b 20 49 46 20 28 20 76 6f 72 70 75 6e 6b 74	.SUB.v3),.B.yvar.;.IF.(.vorpunkt
ece0	20 43 41 4e 44 20 28 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 78 77 65 72 74	.CAND.(.imausgabefenster.(.xwert
ed00	20 2c 20 78 76 61 72 20 29 20 43 41 4e 44 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20	.,.xvar.).CAND.imausgabefenster.
ed20	28 20 79 77 65 72 74 20 2c 20 79 76 61 72 20 29 20 29 20 29 20 54 48 45 4e 20 64 72 61 77 20 28	(.ywert.,.yvar.).).).THEN.draw.(
ed40	20 66 75 6e 6b 74 69 6f 6e 20 2c 20 78 77 65 72 74 20 2c 20 79 77 65 72 74 20 ff ff ff ff ff ff	.funktion.,.xwert.,.ywert.......
ed60	ce 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6c 65 69 6e 73 74 65 73 20 28 72 61 6e 64	.................kleinstes.(rand
ed80	6f 62 65 6e 20 53 55 42 20 76 31 2c 20 70 75 6e 6b 74 20 29 20 43 41 4e 44 20 28 20 69 6d 61 75	oben.SUB.v1,.punkt.).CAND.(.imau
eda0	73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 78 77 65 72 74 20 2c 20 78 76 61 72 20 29 20 43 41	sgabefenster.(.xwert.,.xvar.).CA
edc0	4e 44 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 79 77 65 72 74 20 2c 20 79 76	ND.imausgabefenster.(.ywert.,.yv
ede0	61 72 20 29 20 29 20 29 20 54 48 45 4e 20 6d 6f 76 65 20 28 20 66 75 6e 6b 74 69 6f 6e 20 2c 20	ar.).).).THEN.move.(.funktion.,.
ee00	78 77 65 72 74 20 2c 20 79 77 65 72 74 20 29 20 3b 20 6d 6f 76 65 20 28 20 78 77 65 72 74 20 2c	xwert.,.ywert.).;.move.(.xwert.,
ee20	20 79 77 65 72 74 20 29 20 ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.ywert.)........................
ee40	20 20 20 20 20 20 20 20 20 20 20 20 72 61 6e 64 6f 62 65 6e 20 53 55 42 20 76 32 2c 20 49 20 2e	............randoben.SUB.v2,.I..
ee60	20 7a 65 69 63 68 6e 65 6b 72 65 69 73 75 6d 65 6e 64 70 75 6e 6b 74 20 3a 20 49 46 20 28 20 69	.zeichnekreisumendpunkt.:.IF.(.i
ee80	6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 78 77 65 72 74 20 2c 20 78 76 61 72 20 29	mausgabefenster.(.xwert.,.xvar.)
eea0	20 43 41 4e 44 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 79 77 65 72 74 20 2c	.CAND.imausgabefenster.(.ywert.,
eec0	20 79 76 61 72 20 29 20 29 20 54 48 45 4e 20 63 69 72 63 6c 65 20 28 20 30 2e 33 20 2c 20 30 2e	.yvar.).).THEN.circle.(.0.3.,.0.
eee0	30 20 2c 20 33 36 30 2e 30 20 2c 20 30 20 29 20 3b 20 63 69 72 63 6c 65 20 ff ff ff ff ff ff ff	0.,.360.0.,.0.).;.circle........
ef00	ce 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 72 61 6e 64	............................rand
ef20	6f 62 65 6e 20 53 55 42 20 76 33 29 29 3b 65 29 20 53 55 42 20 76 31 2c 20 74 75 72 65 20 3a 20	oben.SUB.v3));e).SUB.v1,.ture.:.
ef40	50 49 43 54 55 52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 20 3b 20 74 72 61 6e 73 66 65 72 20	PICTURE.VAR.transfer.;.transfer.
ef60	3a 3d 20 66 75 6e 6b 74 69 6f 6e 20 3b 20 70 75 74 70 69 63 74 75 72 65 20 28 20 73 65 69 74 65	:=.funktion.;.putpicture.(.seite
ef80	20 2c 20 66 65 6e 73 74 65 72 20 2c 20 74 72 61 6e 73 66 65 72 20 29 20 3b 20 66 6f 72 67 65 74	.,.fenster.,.transfer.).;.forget
efa0	20 28 20 22 50 49 43 54 55 52 45 22 20 2c 20 71 75 69 65 74 20 29 20 3b 20 2e 20 45 4e 44 20 50	.(."PICTURE".,.quiet.).;...END.P
efc0	52 4f 43 20 70 6f 73 20 3b 20 ff ff ff ff ff ff ce 00 20 20 6d 61 78 78 20 3a 3d 20 6d 69 6e 20	ROC.pos.;...........maxx.:=.min.
efe0	28 67 72 6f 65 73 73 74 65 73 20 28 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29	(groesstes.(maximalwerte.(kurve)
f000	20 53 55 42 20 63 31 2c 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 6d 69	.SUB.c1,.maximalwerte.(kurve).mi
f020	6e 20 2c 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 2c 20 79 6d 61 78 20 29 20 3a 20 50 49 43 54 55	n.,.xmax.,.ymin.,.ymax.).:.PICTU
f040	52 45 20 56 41 52 20 74 72 61 6e 73 66 65 72 20 3b 20 42 4f 55 4e 44 20 50 49 43 54 55 52 45 20	RE.VAR.transfer.;.BOUND.PICTURE.
f060	56 41 52 20 6b 72 65 75 7a 20 3b 20 49 46 20 65 78 69 73 74 73 20 28 20 22 4b 52 45 55 5a 22 20	VAR.kreuz.;.IF.exists.(."KREUZ".
f080	29 20 54 48 45 4e 20 66 6f 72 67 65 74 20 28 20 22 4b 52 45 55 5a 22 20 2c 20 ff ff ff ff ff ff	).THEN.forget.(."KREUZ".,.......
f0a0	ce 00 20 20 53 55 42 20 63 32 2c 20 6d 61 78 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29	....SUB.c2,.maximalwerte.(kurve)
f0c0	20 53 55 42 20 63 33 29 2c 20 6b 6c 65 69 6e 73 74 65 73 20 28 72 61 6e 64 6f 62 65 6e 20 53 55	.SUB.c3),.kleinstes.(randoben.SU
f0e0	42 20 63 31 2c 20 72 61 6e 64 6f 62 65 6e 20 61 63 68 73 65 6e 61 62 73 63 68 6e 69 74 74 65 20	B.c1,.randoben.achsenabschnitte.
f100	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 31 31 20	,.anzahlyachsenabschnitte.:=.11.
f120	3b 20 52 45 41 4c 20 56 41 52 20 78 77 65 69 74 65 20 2c 20 79 77 65 69 74 65 20 3b 20 61 6e 7a	;.REAL.VAR.xweite.,.yweite.;.anz
f140	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 32 20 3b 20 78 77 65	ahlxachsenabschnitte.:=.12.;.xwe
f160	69 74 65 20 3a 3d 20 28 20 ff ff ff ff ff ff ff ce 00 20 20 53 55 42 20 63 32 2c 20 72 61 6e 64	ite.:=.(............SUB.c2,.rand
f180	6f 62 65 6e 20 53 55 42 20 63 33 29 29 3b 6e 64 6f 62 65 6e 20 53 55 42 20 76 31 2c 20 74 74 65	oben.SUB.c3));ndoben.SUB.v1,.tte
f1a0	20 29 20 3b 20 79 77 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	.).;.yweite.:=.(.ymax.-.ymin.)./
f1c0	20 72 65 61 6c 20 28 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	.real.(.anzahlyachsenabschnitte.
f1e0	29 20 3b 20 6f 72 64 6e 65 73 74 69 66 74 7a 75 3b 20 65 61 6c 20 28 20 6c 61 65 6e 67 65 62 65	).;.ordnestiftzu;.eal.(.laengebe
f200	69 62 65 73 63 68 72 69 66 74 75 6e 67 20 29 20 2b 20 30 2e 35 20 29 20 2a 20 73 74 61 6e 64 61	ibeschriftung.).+.0.5.).*.standa
f220	72 64 62 72 65 69 74 65 20 2c 20 2d 20 30 2e 35 20 2a 20 69 65 74 20 29 20 ff ff ff ff ff ff ff	rdbreite.,.-.0.5.*.iet.)........
f240	ce 00 20 20 6d 69 6e 79 20 3a 3d 20 6d 61 78 20 28 6b 6c 65 69 6e 73 74 65 73 20 28 6d 69 6e 69	....miny.:=.max.(kleinstes.(mini
f260	6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 53 55 42 20 76 31 2c 20 6d 69 6e 69 6d 61 6c	malwerte.(kurve).SUB.v1,.minimal
f280	77 65 72 74 65 20 28 6b 75 72 76 65 29 20 69 65 72 75 6e 67 20 3b 20 79 73 6b 61 6c 69 65 72 75	werte.(kurve).ierung.;.yskalieru
f2a0	6e 67 20 3b 20 2e 35 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 30	ng.;..5.).*.standardbreite.,.-.0
f2c0	2e 35 20 2a 20 65 20 29 20 2e 20 6c 69 65 66 65 72 65 6b 72 65 75 7a 20 3a 20 74 72 61 6e 73 66	.5.*.e.)...lieferekreuz.:.transf
f2e0	65 72 20 3a 3d 20 6b 72 65 75 7a 20 3b 20 66 6f 72 67 65 74 20 28 20 22 4b 52 45 55 5a 22 20 2c	er.:=.kreuz.;.forget.(."KREUZ".,
f300	20 71 75 69 65 74 20 29 20 ff ff ff ff ff ff ff ce 00 20 20 53 55 42 20 76 32 2c 20 6d 69 6e 69	.quiet.)............SUB.v2,.mini
f320	6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 53 55 42 20 76 33 29 2c 20 67 72 6f 65 73 73	malwerte.(kurve).SUB.v3),.groess
f340	74 65 73 20 28 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 76 31 2c 6f 76 65 20 28 20 6b 72 65 75	tes.(randunten.SUB.v1,ove.(.kreu
f360	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 20 6b 72 65 75 7a	z.,.xmin.,.ymin.).;.draw.(.kreuz
f380	20 2c 20 78 6d 61 78 20 2c 20 79 6d 69 6e 20 29 20 3b 20 69 74 65 20 29 20 2e 20 6c 69 65 66 65	.,.xmax.,.ymin.).;.ite.)...liefe
f3a0	72 65 6b 72 65 75 7a 20 3a 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 20 3b 20 78 65	rekreuz.:.transfer.:=.kreuz.;.xe
f3c0	72 67 20 3a 3d 20 78 33 20 46 49 20 3b 20 78 65 72 67 20 2e 20 45 4e 44 20 ff ff ff ff ff ff ff	rg.:=.x3.FI.;.xerg...END........
f3e0	ce 00 20 20 6d 61 78 78 20 3a 3d 20 6d 69 6e 20 28 67 72 6f 65 73 73 74 65 73 20 28 6d 61 78 69	....maxx.:=.min.(groesstes.(maxi
f400	6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 53 55 42 20 63 31 2c 20 6d 61 78 69 6d 61 6c	malwerte.(kurve).SUB.c1,.maximal
f420	77 65 72 74 65 20 28 6b 75 72 76 65 29 20 20 2c 20 78 6d 69 6e 20 2c 20 79 6d 61 78 20 29 20 3b	werte.(kurve)..,.xmin.,.ymax.).;
f440	20 7a 65 69 63 68 6e 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	.zeichneyspitze...zeichnexspitze
f460	20 3a 20 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 6e 64 61	.:.kommastellen.).,.0.0.,.standa
f480	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 2e 20 79 73 6b	rdhoehe.,.standardbreite.)...ysk
f4a0	61 6c 69 65 72 75 6e 67 20 ff ff ff ff ff ff ff ce 00 20 20 53 55 42 20 76 32 2c 20 72 61 6e 64	alierung............SUB.v2,.rand
f4c0	75 6e 74 65 6e 20 53 55 42 20 76 33 29 29 3b 29 20 53 55 42 20 63 33 29 2c 20 6b 6c 65 69 6e 73	unten.SUB.v3));).SUB.c3),.kleins
f4e0	74 65 73 20 28 72 61 6e 64 6f 62 65 6e 20 53 55 42 20 63 31 2c 20 72 61 6e 64 6f 62 65 6e 20 65	tes.(randoben.SUB.c1,.randoben.e
f500	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
f520	70 69 74 7a 65 20 3a 20 20 29 20 3b 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 20 3b 20 7a 65	pitze.:..).;.zeichneystrich.;.ze
f540	69 63 68 6e 65 79 67 65 67 65 6e 73 74 72 69 63 68 20 3b 20 62 65 73 63 68 72 69 66 74 65 79 20	ichneygegenstrich.;.beschriftey.
f560	50 45 52 20 2e 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 20 3a 20 20 ff ff ff ff ff ff ff ff	PER...zeichneystrich.:..........
f580	ce 00 20 20 6d 69 6e 78 20 3a 3d 20 6d 61 78 20 28 6b 6c 65 69 6e 73 74 65 73 20 28 6d 69 6e 69	....minx.:=.max.(kleinstes.(mini
f5a0	6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 53 55 42 20 63 31 2c 20 6d 69 6e 69 6d 61 6c	malwerte.(kurve).SUB.c1,.minimal
f5c0	77 65 72 74 65 20 28 6b 75 72 76 65 29 20 65 6e 73 74 72 69 63 68 20 3a 20 64 72 61 77 63 6d 72	werte.(kurve).enstrich.:.drawcmr
f5e0	20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 31 20 2c 20 30 2e 30 20 29 20 2e 20 50 52 4f 43 20 73 74	.(.kreuz.,.0.1.,.0.0.)...PROC.st
f600	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 49 4e 54 20 56	rukt1fenster.,."darst".).;.INT.V
f620	41 52 20 69 20 3b 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 20 3b 20 6c 73 67 6b	AR.i.;.KURVE.VAR.lsgkurve.;.lsgk
f640	75 72 76 65 20 3a 3d 20 ff ff ff ff ff ff ff ff ce 00 20 20 53 55 42 20 63 32 2c 20 6d 69 6e 69	urve.:=.............SUB.c2,.mini
f660	6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 53 55 42 20 63 33 29 2c 20 67 72 6f 65 73 73	malwerte.(kurve).SUB.c3),.groess
f680	74 65 73 20 28 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 63 31 2c 28 6b 75 72 76 65 29 20 20 29	tes.(randunten.SUB.c1,(kurve)..)
f6a0	20 3b 20 64 72 61 77 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 2d 20 30 2e 32 20 2c 20 2d 20 30	.;.drawcmr.(.kreuz.,.-.0.2.,.-.0
f6c0	2e 32 20 29 20 2e 20 78 73 6b 61 6c 69 65 72 75 6e 67 20 3a 20 52 45 41 4c 20 56 41 52 20 73 74	.2.)...xskalierung.:.REAL.VAR.st
f6e0	65 6c 6c 65 20 3a 3d 20 78 6d 69 6e 20 3b 20 52 4f 57 20 33 20 52 45 41 4c 20 56 41 52 20 73 63	elle.:=.xmin.;.ROW.3.REAL.VAR.sc
f700	68 6f 65 6e 65 7a 61 68 6c 20 3b 20 49 4e 54 20 56 41 52 20 70 6f 73 20 3b 20 ff ff ff ff ff ff	hoenezahl.;.INT.VAR.pos.;.......
f720	be 00 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d	..gebeaufbildschirmaus.(.dst.,.m
f740	6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75	odellkurzbezeichnung.,.darstellu
f760	6e 67 73 6e 61 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	ngsname.,.steuerzeile.).;.FI.;.E
f780	4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65	LIF.taste.=.darstellungsarttaste
f7a0	20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b	.THEN.wahlderdarstellungsarten.;
f7c0	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 20 ff ff	.ELIF.taste.=.menuetaste.THEN...
f7e0	ce 00 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3b 20 49 46 20	..zeigemenuezurzusatzdarst.;.IF.
f800	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.=
f820	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
f840	61 72 73 74 65 6c 6c 75 6e 67 34 20 46 49 20 45 4c 53 45 20 67 69 62 6d 65 6c 64 75 6e 67 61 75	arstellung4.FI.ELSE.gibmeldungau
f860	73 20 28 20 66 61 6c 73 63 68 65 74 61 73 74 65 20 29 20 46 49 20 50 45 52 20 2e 20 64 69 61 6c	s.(.falschetaste.).FI.PER...dial
f880	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
f8a0	6e 63 68 61 72 20 28 20 ff ff ff ff ff ff ff ff ce 00 20 20 6d 69 6e 79 20 3a 3d 20 6d 69 6e 79	nchar.(.............miny.:=.miny
f8c0	20 2d 20 61 63 68 73 65 6e 61 62 73 74 61 6e 64 20 2a 20 28 6d 61 78 79 20 2d 20 6d 69 6e 79 29	.-.achsenabstand.*.(maxy.-.miny)
f8e0	3b 29 20 3b 20 64 72 61 77 63 6d 72 20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 30 20 2c 20 30 2e 31	;).;.drawcmr.(.kreuz.,.0.0.,.0.1
f900	20 29 20 2e 20 7a 65 69 63 68 6e 65 67 65 67 65 6e 73 74 72 69 63 68 20 3a 20 20 76 65 72 73 65	.)...zeichnegegenstrich.:..verse
f920	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
f940	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
f960	65 20 2c 20 70 6c 6f 74 74 61 73 6b 20 29 20 3b 20 61 72 20 28 20 ff ff ff ff ff ff ff ff ff ff	e.,.plottask.).;.ar.(...........
f980	ce 00 20 20 6d 69 6e 78 20 3a 3d 20 6d 69 6e 78 20 2d 20 61 63 68 73 65 6e 61 62 73 74 61 6e 64	....minx.:=.minx.-.achsenabstand
f9a0	20 2a 20 28 6d 61 78 78 20 2d 20 6d 69 6e 78 29 3b 53 55 42 20 63 31 2c 20 6d 69 6e 69 6d 61 6c	.*.(maxx.-.minx);SUB.c1,.minimal
f9c0	77 65 72 74 65 20 28 6b 75 72 76 65 29 20 20 3a 20 20 20 78 31 20 2c 20 78 32 20 2c 20 78 33 20	werte.(kurve)..:...x1.,.x2.,.x3.
f9e0	29 20 3a 20 6d 69 6e 20 28 78 31 2c 20 6d 69 6e 20 28 78 32 2c 20 78 33 29 29 2e 20 45 4e 44 20	).:.min.(x1,.min.(x2,.x3))..END.
fa00	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
fa20	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 53 45	aste.THEN.leavedarstellung4.ELSE
fa40	20 61 72 20 28 20 46 20 ff ff ff ff ff ff ff ff ce 00 20 20 49 46 20 6d 69 6e 78 20 3e 20 6d 61	.ar.(.F.............IF.minx.>.ma
fa60	78 78 20 77 65 72 74 65 20 28 6b 75 72 76 65 29 20 53 55 42 20 63 33 29 2c 20 67 72 6f 65 73 73	xx.werte.(kurve).SUB.c3),.groess
fa80	74 65 73 20 28 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 63 31 2c 6c 20 28 20 78 31 2c 20 6d 61	tes.(randunten.SUB.c1,l.(.x1,.ma
faa0	78 20 28 78 32 2c 20 78 33 29 29 20 20 2e 20 45 4e 44 20 50 52 4f 43 20 67 72 6f 65 73 73 74 65	x.(x2,.x3))....END.PROC.groesste
fac0	73 20 3b 20 42 4f 4f 4c 20 50 52 4f 43 20 74 65 20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72	s.;.BOOL.PROC.te.THEN.wahlderdar
fae0	73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 65	stellungsarten.;.ELIF.taste.=.me
fb00	6e 75 65 74 61 73 74 65 20 54 48 45 4e 20 6c 75 6e 67 34 20 2e 20 46 20 74 20 ff ff ff ff ff ff	nuetaste.THEN.lung4...F.t.......
fb20	ce 00 50 45 52 20 2e 20 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61	..PER...kernvonzeigemenuezurzusa
fb40	74 7a 64 61 72 73 74 20 3a 20 67 69 62 6d 65 6e 75 65 61 75 73 20 3b 20 52 45 50 20 69 6e 63 68	tzdarst.:.gibmenueaus.;.REP.inch
fb60	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 72 75 63	ar.(.taste.).;.IF.taste.=.abbruc
fb80	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
fba0	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
fbc0	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.
fbe0	54 48 45 4e 20 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	THEN..............loeschemenue.;
fc00	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 6c 65 61 76	.wahlderdarstellungsarten.;.leav
fc20	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 45 4c 49 46 20 74	ezeigemenuezurzusatzdarst.ELIF.t
fc40	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 20 6c 6f 65	aste.=.mdlgroesseneinbl.THEN.loe
fc60	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 65 69 6e 62 6c 65	schemenue.;.modellgroesseneinble
fc80	6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67 20 2c 20 74 61 73 74 65 20 29 20 3b 20 49 46 20	nden.(.dst.,.lsg.,.taste.).;.IF.
fca0	74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff ff ff ff ff ff	taste.=.abbruchtaste.COR........
fcc0	ce 00 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c	..loeschemenue.;.wahlderdarstell
fce0	75 6e 67 73 61 72 74 65 6e 20 3b 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75	ungsarten.;.leavezeigemenuezurzu
fd00	73 61 74 7a 64 61 72 73 74 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73	satzdarst.ELIF.taste.=.mdlgroess
fd20	65 6e 65 69 6e 62 6c 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 6d 6f 64 65	eneinbl.THEN.loeschemenue.;.mode
fd40	6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67	llgroesseneinblenden.(.dst.,.lsg
fd60	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 62 72 75 63 68 74	.,.taste.).;.IF.taste.=.abbrucht
fd80	61 73 74 65 20 43 4f 52 20 ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 6d 61 78 78 20 3a 3d 20	aste.COR................maxx.:=.
fda0	68 65 6c 70 78 3b 73 65 6e 61 62 73 74 61 6e 64 20 2a 20 28 6d 61 78 78 20 2d 20 6d 69 6e 78 29	helpx;senabstand.*.(maxx.-.minx)
fdc0	3b 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	;taste.THEN.leavedarstellung4.EL
fde0	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
fe00	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
fe20	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
fe40	65 20 2c 20 70 6c 6f 74 74 61 73 6b 20 29 20 3b 20 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff	e.,.plottask.).;.atzdarst.......
fe60	ce 00 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 67 69 62 6d 65	..NOT.(.taste.=.esc.).THEN.gibme
fe80	6c 64 75 6e 67 61 75 73 20 28 20 66 61 6c 73 63 68 65 74 61 73 74 65 20 29 20 46 49 20 50 45 52	ldungaus.(.falschetaste.).FI.PER
fea0	20 2e 20 67 69 62 6d 65 6e 75 65 61 75 73 20 3a 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65	...gibmenueaus.:.initialisiereme
fec0	6e 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	nue.;.fuellemenue.(.menuezeile.(
fee0	20 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	.1.).).;.fuellemenue.(.menuezeil
ff00	65 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	e.(.16.).).;.fuellemenue.(.menue
ff20	7a 65 69 6c 65 20 28 20 35 20 ff ff ff ff ff ff ce 00 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65	zeile.(.5.........).).;.fuelleme
ff40	6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 30 20 29 20 29 20 3b 20 66 75 65 6c	nue.(.menuezeile.(.10.).).;.fuel
ff60	6c 65 6d 65 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	lemenue.(.menuezeile.(.17.).).;.
ff80	7a 65 69 67 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	zeigemenue.;...leavezeigemenuezu
ffa0	72 7a 75 73 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	rzusatzdarst.:.LEAVE.zeigemenuez
ffc0	75 72 7a 75 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	urzusatzdarst...reenterzeigemenu
ffe0	65 7a 75 72 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	ezurzusatzdarst.:.LEAVE.........
10000	de 00 20 20 45 4c 49 46 20 6d 61 78 79 20 3d 20 6d 69 6e 79 20 64 61 72 64 62 72 65 69 74 65 20	....ELIF.maxy.=.miny.dardbreite.
10020	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 61 62 73 74 61 6e	,.-.1.0.*.standardhoehe.-.abstan
10040	64 20 29 20 3b 20 64 72 61 77 20 28 20 6b 72 65 75 7a 20 2c 20 77 61 6e 64 6c 65 20 28 20 73 74	d.).;.draw.(.kreuz.,.wandle.(.st
10060	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 6e	elle.,.laengebeibeschriftung.,.n
10080	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 6e 64 61	achkommastellen.).,.0.0.,.standa
100a0	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 2e 20 79 73 6b	rdhoehe.,.standardbreite.)...ysk
100c0	61 6c 69 65 72 75 6e 67 20 20 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e ff ff ff ff ff ff	alierung..ngsarttaste.THEN......
100e0	de 00 20 20 45 4c 49 46 20 6d 61 78 78 20 3d 20 6d 69 6e 78 20 72 75 6b 74 31 66 65 6e 73 74 65	....ELIF.maxx.=.minx.rukt1fenste
10100	72 2c 20 6d 69 6e 78 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61 78 79 29 3b 30 20 29 20 2a	r,.minx,.maxx,.miny,.maxy);0.).*
10120	20 28 20 72 65 61 6c 20 28 20 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 20	.(.real.(.laengebeibeschriftung.
10140	29 20 2b 20 30 2e 35 20 29 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 2c 20 2d 20 30	).+.0.5.).*.standardbreite.,.-.0
10160	2e 35 20 2a 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	.5.*.COR.taste.=.modellgroessent
10180	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 53 45	aste.THEN.leavedarstellung4.ELSE
101a0	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 20 35 20 ff ff ff	.darstellungsarttaste.THEN.5....
101c0	de 00 52 45 41 4c 20 43 4f 4e 53 54 20 73 74 61 6e 64 61 72 64 68 6f 65 68 65 20 3a 3d 20 73 74	..REAL.CONST.standardhoehe.:=.st
101e0	64 68 6f 65 68 65 2c 20 73 74 61 6e 64 61 72 64 62 72 65 69 74 65 20 3a 3d 20 73 74 64 62 72 65	dhoehe,.standardbreite.:=.stdbre
10200	69 74 65 3b 20 3b 20 54 45 58 54 20 43 4f 4e 53 54 20 65 73 63 20 3a 3d 20 63 6f 64 65 20 28 32	ite;.;.TEXT.CONST.esc.:=.code.(2
10220	37 29 2c 20 70 69 65 70 20 3a 3d 20 63 6f 64 65 20 28 37 29 3b 75 63 68 74 61 73 74 65 20 3d 20	7),.piep.:=.code.(7);uchtaste.=.
10240	22 61 22 20 2c 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74 65 20 3d 20 22 73 22 20	"a".,.modellgroessentaste.=."s".
10260	2c 20 65 6e 64 65 74 61 73 74 65 20 3d 20 22 78 78 22 20 2c 20 77 65 69 74 65 72 74 61 73 74 65	,.endetaste.=."xx".,.weitertaste
10280	20 3d 20 22 77 22 20 2c 20 70 69 65 70 20 3d 20 22 22 37 22 22 2c ff ff ff ff ff ff ff ff ff ff	.=."w".,.piep.=.""7"",..........
102a0	de 00 20 20 53 55 42 20 63 32 2c 20 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 63 33 29 29 3b 20	....SUB.c2,.randunten.SUB.c3));.
102c0	3b 20 64 72 61 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	;.drawcmr.(.kreuz.,.0.0.,.-.0.3.
102e0	29 20 3b 20 62 65 73 63 68 72 69 66 74 65 20 3b 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20 32 20	).;.beschrifte.;.FOR.pos.FROM.2.
10300	55 50 54 4f 20 33 20 52 45 50 20 73 74 65 6c 6c 65 20 3a 3d 20 73 63 68 6f 65 6e 65 7a 61 68 6c	UPTO.3.REP.stelle.:=.schoenezahl
10320	20 28 20 70 6f 73 20 29 20 3b 20 7a 65 69 63 68 6e 65 78 73 74 72 69 63 68 20 3b 20 7a 65 69 63	.(.pos.).;.zeichnexstrich.;.zeic
10340	68 6e 65 67 65 67 65 6e 73 74 72 69 63 68 20 3b 20 62 65 73 63 68 72 69 66 74 65 20 50 45 52 20	hnegegenstrich.;.beschrifte.PER.
10360	2e 20 49 46 20 20 63 20 3b 20 69 6e 63 68 61 72 20 28 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	..IF..c.;.inchar.(..............
10380	ce 00 4c 45 54 20 20 20 20 20 20 20 20 61 62 62 72 75 63 68 74 61 73 74 65 20 3d 20 22 6d 22 2c	..LET........abbruchtaste.=."m",
103a0	20 72 6f 65 73 73 65 6e 74 61 73 74 65 20 3d 20 22 73 22 2c 20 6f 74 74 65 72 22 2c 20 75 73 73	.roessentaste.=."s",.otter",.uss
103c0	7a 65 69 6c 65 6c 65 65 72 20 3d 20 30 20 2c 73 74 65 75 65 72 7a 65 69 6c 65 20 3d 20 31 39 2c	zeileleer.=.0.,steuerzeile.=.19,
103e0	73 74 65 75 65 72 7a 65 69 6c 65 64 65 6d 6f 20 3d 20 33 20 2c 6b 6f 70 66 7a 65 69 6c 65 20 3d	steuerzeiledemo.=.3.,kopfzeile.=
10400	20 32 35 2c 20 66 61 6c 73 63 68 65 74 61 73 74 65 20 3d 20 31 38 20 2c 20 6d 61 78 6b 75 72 76	.25,.falschetaste.=.18.,.maxkurv
10420	65 6e 20 3d 20 33 2c 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 3d 31 20 2c 20 52 20 6b 75 72	en.=.3,strukt1fenster.=1.,.R.kur
10440	76 65 20 29 20 3a 20 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	ve.).:.......................sen
10460	64 65 74 61 73 74 65 20 3d 20 22 70 22 2c 20 77 65 69 74 65 72 74 61 73 74 65 20 3d 20 22 77 22	detaste.=."p",.weitertaste.=."w"
10480	2c 20 75 6e 67 73 61 72 74 74 61 73 74 65 20 3d 20 22 6e 22 2c 20 52 45 41 4c 20 56 41 52 20 75	,.ungsarttaste.=."n",.REAL.VAR.u
104a0	31 20 2c 20 75 32 20 2c 20 7a 31 20 2c 20 7a 32 20 3b 20 50 49 43 54 55 52 45 20 56 41 52 20 6b	1.,.u2.,.z1.,.z2.;.PICTURE.VAR.k
104c0	72 65 75 7a 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 20 3b 20 67 65 62 65 61 75 66 62 69 6c 64	reuz.:=.nilpicture.;.gebeaufbild
104e0	73 63 68 69 72 6d 61 75 73 20 28 20 73 65 69 74 65 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65	schirmaus.(.seite.,.modellkurzbe
10500	7a 65 69 63 68 6e 75 6e 67 20 2c 20 70 6c 6f 74 74 65 6b 75 72 76 65 20 28 20 ff ff ff ff ff ff	zeichnung.,.plottekurve.(.......
10520	ce 00 20 20 49 4e 54 20 56 41 52 20 63 31 20 3a 3d 20 31 2c 20 63 32 20 3a 3d 20 32 2c 20 63 33	....INT.VAR.c1.:=.1,.c2.:=.2,.c3
10540	20 3a 3d 20 33 2c 20 76 31 20 3a 3d 20 34 2c 20 76 32 20 3a 3d 20 35 2c 20 76 33 20 3a 3d 20 36	.:=.3,.v1.:=.4,.v2.:=.5,.v3.:=.6
10560	3b 2a 2a 22 20 2c 20 69 6e 79 20 2d 20 65 70 73 69 6c 6f 6e 20 3b 20 46 49 20 3b 20 77 69 6e 64	;**".,.iny.-.epsilon.;.FI.;.wind
10580	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 69	ow.(.seite.,.strukt1fenster.,.mi
105a0	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 64	nx.,.maxx.,.miny.,.maxy.).;.wind
105c0	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 29	ow.(.minx.,.maxx.,.miny.,.maxy.)
105e0	20 3b 20 2e 20 72 76 65 6e 20 ff ff ff ff ff ff ce 00 20 20 73 63 68 72 65 69 62 65 6b 72 65 75	.;...rven...........schreibekreu
10600	7a 3b 32 2c 20 7a 31 2c 20 7a 32 3b 3d 20 31 2c 20 76 65 72 73 63 68 69 65 62 75 6e 67 20 3d 20	z;2,.z1,.z2;=.1,.verschiebung.=.
10620	31 2e 32 35 2c 20 61 62 73 74 61 6e 64 20 3d 20 30 2e 31 2c 6e 64 6f 77 20 28 20 6d 69 6e 78 20	1.25,.abstand.=.0.1,ndow.(.minx.
10640	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 2e 20 65 20 28 20 69	,.maxx.,.miny.,.maxy.).;...e.(.i
10660	20 29 20 2c 20 69 20 29 20 3b 20 6d 6f 76 65 20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 2c 20	.).,.i.).;.move.(.linie.(.i.).,.
10680	6d 69 6e 78 20 2c 20 6d 69 6e 79 20 29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 69 6e 69 65 20	minx.,.miny.).;.movecmr.(.linie.
106a0	28 20 69 20 29 20 2c 20 28 20 2d 20 31 2e 30 20 29 20 2a 20 61 20 2b 20 20 ff ff ff ff ff ff ff	(.i.).,.(.-.1.0.).*.a.+.........
106c0	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 20 28 73 65 69 74 65	....zeichneundplottekurve.(seite
106e0	2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6b 75 72 76 65 2c 20 63 31 2c 20 76 31 2c	,.strukt1fenster,.kurve,.c1,.v1,
10700	20 31 29 3b 6e 61 6d 65 2c 20 3b 65 62 65 72 73 63 68 72 69 66 74 69 6e 6c 65 67 65 6e 64 65 20	.1);name,.;eberschriftinlegende.
10720	3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 61 62 73 74 61 6e 64 20 2c 20	;.movecmr.(.legende.,.abstand.,.
10740	30 2e 30 20 29 20 3b 20 46 4f 52 20 69 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 6d 61 78 6b 75 72	0.0.).;.FOR.i.FROM.1.UPTO.maxkur
10760	76 65 6e 20 52 45 50 20 73 63 68 72 65 69 62 65 6e 61 6d 65 69 6e 6c 65 67 65 6e 64 65 20 3b 20	ven.REP.schreibenameinlegende.;.
10780	20 6c 65 67 65 6e 64 65 20 ff ff ff ff ff ff ff ce 00 20 20 7a 65 69 63 68 6e 65 75 6e 64 70 6c	.legende............zeichneundpl
107a0	6f 74 74 65 6b 75 72 76 65 20 28 73 65 69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72	ottekurve.(seite,.strukt1fenster
107c0	2c 20 6b 75 72 76 65 2c 20 63 33 2c 20 76 33 2c 20 33 29 3b 61 6e 64 61 72 64 68 6f 65 68 65 20	,.kurve,.c3,.v3,.3);andardhoehe.
107e0	3b 20 61 62 73 74 61 6e 64 20 3a 3d 20 39 2e 30 20 2a 20 73 74 61 6e 64 61 72 64 62 72 65 69 74	;.abstand.:=.9.0.*.standardbreit
10800	65 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 6d 69 6e 79	e.;.move.(.legende.,.minx.,.miny
10820	20 29 20 3b 20 6d 6f 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	.).;.movecmr.(.legende.,.-.1.0.*
10840	20 61 20 2c 20 28 20 2d 20 31 2e 30 20 2a 20 62 20 29 20 2d 20 30 2e 31 20 ff ff ff ff ff ff ff	.a.,.(.-.1.0.*.b.).-.0.1........
10860	ce 00 20 20 62 65 73 74 69 6d 6d 65 65 78 74 72 65 6d 61 3b 29 20 29 20 29 20 3b 20 70 6c 6f 74	....bestimmeextrema;).).).;.plot
10880	20 28 20 6c 69 6e 69 65 20 28 20 69 20 29 20 29 20 3b 20 70 75 74 6b 72 65 75 7a 20 28 20 73 65	.(.linie.(.i.).).;.putkreuz.(.se
108a0	69 74 65 20 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 20 2c 20 6c 69 6e 69 65 20 28 20 69	ite.,.strukt1fenster.,.linie.(.i
108c0	20 29 20 29 20 2e 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 65	.).)...beschrifteachseninlegende
108e0	20 3a 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 6d 61 78 79 20	.:.move.(.legende.,.minx.,.maxy.
10900	29 20 3b 20 6d 6f 76 65 63 6d 72 20 28 20 6c 65 67 65 6e 64 65 20 2c 20 2d 20 32 2e 30 20 2a 20	).;.movecmr.(.legende.,.-.2.0.*.
10920	77 63 6d 72 20 28 20 20 2c 20 ff ff ff ff ff ff ce 00 20 20 70 65 6e 20 28 6b 72 65 75 7a 2c 20	wcmr.(..,...........pen.(kreuz,.
10940	31 29 3b 32 2c 20 7a 31 2c 20 7a 32 29 3b 55 54 20 56 41 52 20 73 65 69 74 65 20 2c 20 49 4e 54	1);2,.z1,.z2);UT.VAR.seite.,.INT
10960	20 43 4f 4e 53 54 20 66 65 6e 73 74 65 72 20 2c 20 4b 55 52 56 45 20 56 41 52 20 6b 75 72 76 65	.CONST.fenster.,.KURVE.VAR.kurve
10980	20 2c 20 49 4e 54 20 43 4f 4e 53 54 20 78 76 61 72 20 2c 20 79 76 61 72 20 2c 20 49 4e 54 20 43	.,.INT.CONST.xvar.,.yvar.,.INT.C
109a0	4f 4e 53 54 20 73 74 69 66 74 20 29 20 3a 20 72 69 63 68 74 65 70 69 63 74 75 72 65 65 69 6e 20	ONST.stift.).:.richtepictureein.
109c0	3b 20 6f 72 64 6e 65 70 65 6e 7a 75 20 3b 20 74 72 61 67 65 70 75 6e 6b 74 65 69 6e 70 69 63 74	;.ordnepenzu.;.tragepunkteinpict
109e0	75 72 65 65 69 6e 20 3b 20 73 63 68 72 65 69 62 65 70 69 63 74 75 72 65 20 ff ff ff ff ff ff ff	ureein.;.schreibepicture........
10a00	ce 00 20 20 53 55 42 20 76 32 2c 20 6d 69 6e 69 6d 61 6c 77 65 72 74 65 20 28 6b 75 72 76 65 29	....SUB.v2,.minimalwerte.(kurve)
10a20	20 53 55 42 20 76 33 29 2c 20 67 72 6f 65 73 73 74 65 73 20 28 72 61 6e 64 75 6e 74 65 6e 20 53	.SUB.v3),.groesstes.(randunten.S
10a40	55 42 20 76 31 2c 65 20 3a 3d 20 73 63 68 6f 65 6e 65 7a 61 68 6c 20 28 20 31 20 29 20 3b 20 6d	UB.v1,e.:=.schoenezahl.(.1.).;.m
10a60	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 20	ove.(.kreuz.,.stelle.,.ymin.).;.
10a80	2e 35 20 2a 20 66 65 6e 73 74 65 72 20 2c 20 22 64 61 72 73 74 22 20 29 20 3b 20 49 4e 54 20 56	.5.*.fenster.,."darst".).;.INT.V
10aa0	41 52 20 69 20 3b 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 20 3b 20 6c 73 67 6b	AR.i.;.KURVE.VAR.lsgkurve.;.lsgk
10ac0	75 72 76 65 20 3a 3d 20 ff ff ff ff ff ff ff ff de 00 20 20 20 20 20 20 52 45 41 4c 20 56 41 52	urve.:=.................REAL.VAR
10ae0	20 68 65 6c 70 78 20 3a 3d 20 6d 69 6e 78 3b 2a 20 28 20 79 6d 61 78 20 2d 20 79 6d 69 6e 20 29	.helpx.:=.minx;*.(.ymax.-.ymin.)
10b00	20 2c 20 73 63 68 6f 65 6e 65 7a 61 68 6c 20 29 20 3b 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20	.,.schoenezahl.).;.FOR.pos.FROM.
10b20	31 20 55 50 54 4f 20 33 20 52 45 50 20 73 74 65 6c 6c 65 20 3a 3d 20 73 63 68 6f 65 6e 65 7a 61	1.UPTO.3.REP.stelle.:=.schoeneza
10b40	68 6c 20 28 20 70 6f 73 20 29 20 3b 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 20 3b 20 7a 65	hl.(.pos.).;.zeichneystrich.;.ze
10b60	69 63 68 6e 65 79 67 65 67 65 6e 73 74 72 69 63 68 20 3b 20 62 65 73 63 68 72 69 66 74 65 79 20	ichneygegenstrich.;.beschriftey.
10b80	50 45 52 20 2e 20 7a 65 69 63 68 6e 65 79 73 74 72 69 63 68 20 3a 20 20 74 20 6e 67 73 61 72 74	PER...zeichneystrich.:..t.ngsart
10ba0	74 61 73 74 65 20 54 48 45 4e ff ff ff ff ff ff de 00 20 20 77 69 6e 64 6f 77 20 28 6d 69 6e 78	taste.THEN..........window.(minx
10bc0	2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61 78 79 29 3b 61 6e 64 6c 65 20 28 20 73 74 65 6c	,.maxx,.miny,.maxy);andle.(.stel
10be0	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 6e 61 63	le.,.laengebeibeschriftung.,.nac
10c00	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 6e 64 61 72 64	hkommastellen.).,.0.0.,.standard
10c20	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 2e 20 6c 69 65 66 65	hoehe.,.standardbreite.)...liefe
10c40	72 65 6b 72 65 75 7a 20 3a 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 6b 72 65 75 7a 20 3b 20 6d 65	rekreuz.:.transfer.:=.kreuz.;.me
10c60	6e 75 65 74 61 73 74 65 20 54 48 45 4e 20 68 74 61 73 74 65 20 43 4f 52 20 75 65 20 28 20 6d 65	nuetaste.THEN.htaste.COR.ue.(.me
10c80	6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff ce 00 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65	nuezeile.(.5......).).;.fuelleme
10ca0	6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 30 20 29 20 29 20 3b 20 66 75 65 6c	nue.(.menuezeile.(.10.).).;.fuel
10cc0	6c 65 6d 65 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	lemenue.(.menuezeile.(.17.).).;.
10ce0	7a 65 69 67 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	zeigemenue.;...leavezeigemenuezu
10d00	72 7a 75 73 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	rzusatzdarst.:.LEAVE.zeigemenuez
10d20	75 72 7a 75 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	urzusatzdarst...reenterzeigemenu
10d40	65 7a 75 72 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	ezurzusatzdarst.:.LEAVE.........
10d60	de 00 20 20 20 20 20 20 6d 69 6e 78 20 3a 3d 20 20 6d 61 78 78 3b 73 65 6e 61 62 73 74 61 6e 64	........minx.:=..maxx;senabstand
10d80	20 2a 20 28 6d 61 78 79 20 2d 20 6d 69 6e 79 29 3b 7a 20 2c 20 30 2e 31 20 2c 20 30 2e 30 20 29	.*.(maxy.-.miny);z.,.0.1.,.0.0.)
10da0	20 2e 20 7a 65 69 63 68 6e 65 79 67 65 67 65 6e 73 74 72 69 63 68 20 3a 20 64 72 61 77 63 6d 72	...zeichneygegenstrich.:.drawcmr
10dc0	20 28 20 6b 72 65 75 7a 20 2c 20 30 2e 31 20 2c 20 30 2e 30 20 29 20 2e 20 20 49 46 20 69 6e 64	.(.kreuz.,.0.1.,.0.0.)....IF.ind
10de0	65 6d 6f 20 54 48 45 4e 20 64 69 61 6c 6f 67 66 75 65 72 64 65 6d 6f 20 46 49 20 3b 20 52 45 50	emo.THEN.dialogfuerdemo.FI.;.REP
10e00	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 74 65 20 29 20	.warteaufesc.;.inchar.(.taste.).
10e20	3b 20 49 46 20 49 46 20 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e ff ff ff ff ff ff	;.IF.IF.lungsarttaste.THEN......
10e40	de 00 20 20 20 20 20 20 6d 61 78 78 20 3a 3d 20 6d 69 6e 78 20 2b 20 65 70 73 69 6c 6f 6e 3b 65	........maxx.:=.minx.+.epsilon;e
10e60	72 29 20 29 20 3b 20 70 6c 6f 74 28 74 72 61 6e 73 66 65 72 29 3b 20 66 6f 72 67 65 74 20 28 20	r).).;.plot(transfer);.forget.(.
10e80	22 4b 52 45 55 5a 22 20 2c 20 71 75 69 65 74 29 20 73 74 65 20 54 48 45 4e 20 6c 65 61 76 65 64	"KREUZ".,.quiet).ste.THEN.leaved
10ea0	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 63	arstellung4.FI.ELIF.taste.<>.esc
10ec0	20 54 48 45 4e 20 6f 75 74 20 28 70 69 65 70 29 20 46 49 20 50 45 52 20 2e 20 64 69 61 6c 6f 67	.THEN.out.(piep).FI.PER...dialog
10ee0	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 6e 63	fuerdemo.:.REP.warteaufesc.;.inc
10f00	68 61 72 20 28 20 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff	har.(.menue.(.menuezeile.(.5....
10f20	ce 00 20 20 20 20 20 20 6d 69 6e 78 20 3a 3d 20 6d 69 6e 78 20 2d 20 65 70 73 69 6c 6f 6e 3b 65	........minx.:=.minx.-.epsilon;e
10f40	75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 3b 20 52 45 41 4c 20 50 52 4f 43 20 6b 6c 65 69	ugenundzeichnen.;.REAL.PROC.klei
10f60	6e 73 74 65 73 20 28 20 52 45 41 4c 20 43 4f 4e 53 54 20 78 31 20 2c 20 78 32 20 2c 20 78 33 20	nstes.(.REAL.CONST.x1.,.x2.,.x3.
10f80	29 20 3a 20 6d 69 6e 20 28 78 31 2c 20 6d 69 6e 20 28 78 32 2c 20 78 33 29 29 2e 20 45 4e 44 20	).:.min.(x1,.min.(x2,.x3))..END.
10fa0	6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 3a 20 66 6f 72 67 65 74 20 28 20 22 64 61	leavedarstellung4.:.forget.(."da
10fc0	72 73 74 22 20 2c 20 71 75 69 65 74 20 29 20 3b 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75	rst".,.quiet.).;.LEAVE.darstellu
10fe0	6e 67 34 20 2e 20 49 46 20 ff ff ff ff ff ff ff de 00 20 20 20 20 20 20 6d 61 78 78 20 3a 3d 20	ng4...IF................maxx.:=.
11000	68 65 6c 70 78 3b 4c 20 50 52 4f 43 20 67 72 6f 65 73 73 74 65 73 20 28 20 52 45 41 4c 20 43 4f	helpx;L.PROC.groesstes.(.REAL.CO
11020	4e 53 54 20 78 31 20 2c 20 78 32 20 2c 20 78 33 20 29 20 3a 20 6d 61 78 20 28 78 31 2c 20 6d 61	NST.x1.,.x2.,.x3.).:.max.(x1,.ma
11040	78 20 28 78 32 2c 20 78 33 29 29 20 20 2e 20 45 4e 44 20 50 52 4f 43 20 67 72 6f 65 73 73 74 65	x.(x2,.x3))....END.PROC.groesste
11060	73 20 3b 20 42 4f 4f 4c 20 50 52 4f 43 20 52 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74	s.;.BOOL.PROC.R.taste.=.abbrucht
11080	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 54 48 45 4e	aste.COR.taste.=.zeigezeitd.THEN
110a0	20 6c 65 61 76 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 6e 75 65 20 28 20 6d 65	.leavedarstellung4.ELIF.nue.(.me
110c0	6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff ce 00 20 20 49 46 20 6d 69 6e 79 20 3e 20 6d 61	nuezeile.(.5........IF.miny.>.ma
110e0	78 79 20 78 20 65 75 67 65 6e 75 6e 64 7a 65 69 63 68 6e 65 6e 20 28 6d 69 6e 78 2c 20 6d 61 78	xy.x.eugenundzeichnen.(minx,.max
11100	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 69 20 29 20	x,.0.0,.maxy,.vmax,.punktx);i.).
11120	29 20 43 41 4e 44 20 28 20 72 20 3e 3d 20 28 20 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 69 20	).CAND.(.r.>=.(.randunten.SUB.i.
11140	29 20 29 20 2e 20 45 4e 44 20 50 52 4f 43 20 6c 65 20 29 20 3b 20 46 49 20 2e 20 7a 65 69 67 65	).)...END.PROC.le.).;.FI...zeige
11160	6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 52 45 50 20 6b 65 72 6e 76 6f	menuezurzusatzdarst.:.REP.kernvo
11180	6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff	nzeigemenuezurzusatzdarst.......
111a0	ce 00 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 3b 20 50 52 4f 43 20 64 61 72 73 74 65	..imausgabefenster.;.PROC.darste
111c0	6c 6c 75 6e 67 34 20 28 20 4c 4f 45 53 55 4e 47 20 56 41 52 20 6c 73 67 20 2c 20 42 4f 4f 4c 20	llung4.(.LOESUNG.VAR.lsg.,.BOOL.
111e0	56 41 52 20 69 6e 64 65 6d 6f 20 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 20 29 20 3a 20	VAR.indemo.,.TEXT.VAR.taste.).:.
11200	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 28 20 73 74	OUTPUT.VAR.dst.:=.niloutput.(.st
11220	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 49 4e 54 20 56	rukt1fenster.,."darst".).;.INT.V
11240	41 52 20 69 20 3b 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 20 3b 20 6c 73 67 6b	AR.i.;.KURVE.VAR.lsgkurve.;.lsgk
11260	75 72 76 65 20 3a 3d 20 ff ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 52 45 41 4c 20 56 41 52	urve.:=.................REAL.VAR
11280	20 68 65 6c 70 20 3a 3d 20 6d 69 6e 79 3b 3b 64 61 72 73 74 34 20 28 20 64 73 74 20 2c 20 69 6e	.help.:=.miny;;darst4.(.dst.,.in
112a0	64 65 6d 6f 20 2c 20 6c 73 67 6b 75 72 76 65 20 29 20 3b 20 52 45 50 20 6b 65 72 6e 76 6f 6e 64	demo.,.lsgkurve.).;.REP.kernvond
112c0	61 72 73 74 65 6c 6c 75 6e 67 34 20 50 45 52 20 3b 20 2e 20 6b 65 72 6e 76 6f 6e 64 61 72 73 74	arstellung4.PER.;...kernvondarst
112e0	65 6c 6c 75 6e 67 34 20 3a 20 49 46 20 69 6e 64 65 6d 6f 20 54 48 45 4e 20 64 69 61 6c 6f 67 66	ellung4.:.IF.indemo.THEN.dialogf
11300	75 65 72 64 65 6d 6f 20 46 49 20 3b 74 61 73 74 65 20 6c 65 73 65 6e 20 28 20 74 61 73 74 65 20	uerdemo.FI.;taste.lesen.(.taste.
11320	29 20 3b 20 20 52 45 50 20 20 49 46 20 52 45 50 20 20 49 46 20 43 4f 52 20 ff ff ff ff ff ff ff	).;..REP..IF.REP..IF.COR........
11340	ce 00 20 20 20 20 6d 69 6e 79 20 3a 3d 20 6d 61 78 79 3b 78 20 2d 20 65 70 73 69 6c 6f 6e 3b 6e	......miny.:=.maxy;x.-.epsilon;n
11360	67 3a 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	g:.modellgroessentaste.THEN.leav
11380	65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65	edarstellung4.ELIF.taste.=.sende
113a0	74 61 73 74 65 20 54 48 45 4e 20 76 65 72 73 65 6e 64 65 6f 75 74 70 75 74 20 28 20 64 73 74 20	taste.THEN.versendeoutput.(.dst.
113c0	2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 6b 6f 70 66 7a 65	,.modellkurzbezeichnung.,.kopfze
113e0	69 6c 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 2c 20 70 6c 6f 74 74 61 73 6b 20 29 20 3b	ile.,.steuerzeile.,.plottask.).;
11400	20 65 20 2c 20 ff ff ff ff ff ff ff ff ff ff ff ce 00 67 69 62 6d 65 6c 64 75 6e 67 61 75 73 20	.e.,..............gibmeldungaus.
11420	28 20 31 32 20 29 20 3b 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73 65	(.12.).;.ELIF.taste.=.mdlgroesse
11440	6e 65 69 6e 62 6c 20 54 48 45 4e 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65	neinbl.THEN.modellgroesseneinble
11460	6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67 20 2c 20 74 61 73 74 65 20 29 20 3b 20 49 46 20	nden.(.dst.,.lsg.,.taste.).;.IF.
11480	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.=
114a0	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
114c0	61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 73 74 20 45 4c 49 46 20 ff ff ff ff ff ff ff	arstellung4.ELIF.st.ELIF........
114e0	be 00 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d	..gebeaufbildschirmaus.(.dst.,.m
11500	6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75	odellkurzbezeichnung.,.darstellu
11520	6e 67 73 6e 61 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	ngsname.,.steuerzeile.).;.FI.;.E
11540	4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65	LIF.taste.=.darstellungsarttaste
11560	20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b	.THEN.wahlderdarstellungsarten.;
11580	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 20 ff ff	.ELIF.taste.=.menuetaste.THEN...
115a0	ce 00 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d	..gebeaufbildschirmaus.(.dst.,.m
115c0	6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75	odellkurzbezeichnung.,.darstellu
115e0	6e 67 73 6e 61 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	ngsname.,.steuerzeile.).;.FI.;.E
11600	4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65	LIF.taste.=.darstellungsarttaste
11620	20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b	.THEN.wahlderdarstellungsarten.;
11640	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 20 6e 63	.ELIF.taste.=.menuetaste.THEN.nc
11660	68 61 72 20 28 20 45 20 ff ff ff ff ff ff ff ff ce 00 20 20 20 20 20 20 6d 61 78 79 20 3a 3d 20	har.(.E.................maxy.:=.
11680	6d 69 6e 79 20 2b 20 65 70 73 69 6c 6f 6e 3b 20 74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74	miny.+.epsilon;.taste.=.abbrucht
116a0	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
116c0	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 53 45	aste.THEN.leavedarstellung4.ELSE
116e0	20 49 46 20 74 61 73 74 65 20 3c 3e 20 65 73 63 20 54 48 45 4e 20 6f 75 74 20 28 70 69 65 70 29	.IF.taste.<>.esc.THEN.out.(piep)
11700	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 3a 20 52 45 50 20 77	.FI.PER...dialogfuerdemo.:.REP.w
11720	61 72 74 65 61 75 66 65 73 63 20 3b 20 69 6e 63 68 61 72 20 28 20 ff ff ff ff ff ff ff ff ff ff	arteaufesc.;.inchar.(...........
11740	ce 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3a 20 7a 65 69	..wahlderdarstellungsarten.:.zei
11760	67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 28 20 74 61 73	gemenuezudarstellungsarten.(.tas
11780	74 65 20 2c 20 46 41 4c 53 45 20 29 20 3b 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70	te.,.FALSE.).;.IF.taste.=.zeigep
117a0	68 61 73 65 6e 64 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20	hasend.COR.taste.=.zeigetab.COR.
117c0	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.=
117e0	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 6c 6c 75 6e	.zeigezeitd.THEN.leavedarstellun
11800	67 34 20 45 4c 49 46 20 ff ff ff ff ff ff ff ff ce 00 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74	g4.ELIF...........taste.=.rubout
11820	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 54 48 45 4e 20 67 65	.COR.taste.=.zeigezusatz.THEN.ge
11840	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 6c	beaufbildschirmaus.(.dst.,.model
11860	6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e	lkurzbezeichnung.,.darstellungsn
11880	61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c 65 20 29 20 3b 20 46 49 20 2e 20 7a 65 69 67 65	ame.,.steuerzeile.).;.FI...zeige
118a0	6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 3a 20 52 45 50 20 6b 65 72 6e 76 6f	menuezurzusatzdarst.:.REP.kernvo
118c0	6e 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 ff ff ff ff ff ff	nzeigemenuezurzusatzdarst.......
118e0	de 00 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69	..taste.=.rubout.COR.taste.=.zei
11900	67 65 7a 75 73 61 74 7a 20 54 48 45 4e 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61	gezusatz.THEN.gebeaufbildschirma
11920	75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67	us.(.dst.,.modellkurzbezeichnung
11940	20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c	.,.darstellungsname.,.steuerzeil
11960	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 74 7a 64 61	e.).;.FI...zeigemenuezurzusatzda
11980	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 75 72 7a 75	rst.:.REP.kernvonzeigemenuezurzu
119a0	73 61 74 7a 64 61 72 73 74 20 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e ff ff ff ff ff ff	satzdarst.ngsarttaste.THEN......
119c0	ce 00 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c	..loeschemenue.;.wahlderdarstell
119e0	75 6e 67 73 61 72 74 65 6e 20 3b 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75	ungsarten.;.leavezeigemenuezurzu
11a00	73 61 74 7a 64 61 72 73 74 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73	satzdarst.ELIF.taste.=.mdlgroess
11a20	65 6e 65 69 6e 62 6c 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 6d 6f 64 65	eneinbl.THEN.loeschemenue.;.mode
11a40	6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67	llgroesseneinblenden.(.dst.,.lsg
11a60	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 62 72 75 63 68 74	.,.taste.).;.IF.taste.=.abbrucht
11a80	61 73 74 65 20 43 4f 52 20 ff ff ff ff ff ff ff ce 00 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b	aste.COR..........loeschemenue.;
11aa0	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 6c 65 61 76	.wahlderdarstellungsarten.;.leav
11ac0	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 45 4c 49 46 20 74	ezeigemenuezurzusatzdarst.ELIF.t
11ae0	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 20 6c 6f 65	aste.=.mdlgroesseneinbl.THEN.loe
11b00	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 65 69 6e 62 6c 65	schemenue.;.modellgroesseneinble
11b20	6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67 20 2c 20 74 61 73 74 65 20 29 20 3b 20 49 46 20	nden.(.dst.,.lsg.,.taste.).;.IF.
11b40	74 61 73 74 65 20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 20 43 4f 52 20 ff ff ff ff ff ff ff	taste.=.abbruchtaste.COR........
11b60	ce 00 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c	..loeschemenue.;.wahlderdarstell
11b80	75 6e 67 73 61 72 74 65 6e 20 3b 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75	ungsarten.;.leavezeigemenuezurzu
11ba0	73 61 74 7a 64 61 72 73 74 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 6d 64 6c 67 72 6f 65 73 73	satzdarst.ELIF.taste.=.mdlgroess
11bc0	65 6e 65 69 6e 62 6c 20 54 48 45 4e 20 6c 6f 65 73 63 68 65 6d 65 6e 75 65 20 3b 20 6d 6f 64 65	eneinbl.THEN.loeschemenue.;.mode
11be0	6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67	llgroesseneinblenden.(.dst.,.lsg
11c00	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 62 72 75 63 68 74	.,.taste.).;.IF.taste.=.abbrucht
11c20	61 73 74 65 20 43 4f 52 20 ff ff ff ff ff ff ff de 00 20 20 52 4f 57 20 6d 61 78 6b 75 72 76 65	aste.COR............ROW.maxkurve
11c40	6e 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 69 6e 69 65 3b 29 20 2a 20 73 74 61 6e 64 61 72 64	n.PICTURE.VAR.linie;).*.standard
11c60	62 72 65 69 74 65 3b 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 45 4c 49 46 20 74	breite;enuezurzusatzdarst.ELIF.t
11c80	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 20 6c 6f 65	aste.=.mdlgroesseneinbl.THEN.loe
11ca0	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 65 69 6e 62 6c 65	schemenue.;.modellgroesseneinble
11cc0	6e 64 65 6e 20 28 20 64 73 74 20 2c 20 6c 73 67 20 2c 20 74 61 73 74 65 20 29 20 3b 20 49 46 20	nden.(.dst.,.lsg.,.taste.).;.IF.
11ce0	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 75 65 20 28 20 6d 65	taste.=.abbruchtaste.COR.ue.(.me
11d00	6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff ce 00 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65	nuezeile.(.5......).).;.fuelleme
11d20	6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 30 20 29 20 29 20 3b 20 66 75 65 6c	nue.(.menuezeile.(.10.).).;.fuel
11d40	6c 65 6d 65 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	lemenue.(.menuezeile.(.17.).).;.
11d60	7a 65 69 67 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	zeigemenue.;...leavezeigemenuezu
11d80	72 7a 75 73 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	rzusatzdarst.:.LEAVE.zeigemenuez
11da0	75 72 7a 75 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	urzusatzdarst...reenterzeigemenu
11dc0	65 7a 75 72 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	ezurzusatzdarst.:.LEAVE.........
11de0	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
11e00	74 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 3b 20 ff ff ff ff	t...END.PROC.darstellung4.;.....
11e20	de 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
11e40	74 65 72 2c 20 6b 72 65 75 7a 29 3b 53 55 4e 47 20 56 41 52 20 6c 73 67 20 2c 20 42 4f 4f 4c 20	ter,.kreuz);SUNG.VAR.lsg.,.BOOL.
11e60	56 41 52 20 69 6e 64 65 6d 6f 20 2c 20 54 45 58 54 20 56 41 52 20 74 61 73 74 65 20 29 20 3a 20	VAR.indemo.,.TEXT.VAR.taste.).:.
11e80	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 28 20 73 74	OUTPUT.VAR.dst.:=.niloutput.(.st
11ea0	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 49 4e 54 20 56	rukt1fenster.,."darst".).;.INT.V
11ec0	41 52 20 69 20 3b 20 4b 55 52 56 45 20 56 41 52 20 6c 73 67 6b 75 72 76 65 20 3b 20 6c 73 67 6b	AR.i.;.KURVE.VAR.lsgkurve.;.lsgk
11ee0	75 72 76 65 20 3a 3d 20 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e ff ff ff ff ff ff	urve.:=.lungsarttaste.THEN......
11f00	de 00 20 20 45 4c 49 46 20 6d 61 78 79 20 3d 20 6d 69 6e 79 20 20 54 48 45 4e 73 74 20 2c 20 6d	....ELIF.maxy.=.miny..THENst.,.m
11f20	6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 20 2c 20 64 61 72 73 74 65 6c 6c 75	odellkurzbezeichnung.,.darstellu
11f40	6e 67 73 6e 61 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	ngsname.,.steuerzeile.).;.FI.;.E
11f60	4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65	LIF.taste.=.darstellungsarttaste
11f80	20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 20 3b	.THEN.wahlderdarstellungsarten.;
11fa0	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 20 3b 20	.ELIF.taste.=.menuetaste.THEN.;.
11fc0	66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff	fuellemenue.(.menuezeile.(.5....
11fe0	de 00 20 20 20 20 20 20 20 20 20 20 20 70 69 65 70 20 3a 3d 20 63 6f 64 65 20 28 37 29 3b 2c 20	.............piep.:=.code.(7);,.
12000	64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 74 61 73 74 65 20 3d 20 22 6e 22 20 2c 20 6d 65 6e	darstellungsarttaste.=."n".,.men
12020	75 65 74 61 73 74 65 20 3d 20 22 6d 22 20 2c 20 7a 65 69 67 65 74 61 62 20 3d 20 22 74 22 20 2c	uetaste.=."m".,.zeigetab.=."t".,
12040	20 7a 65 69 67 65 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	.zeigephasend.=."p".,.zeigezeitd
12060	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 2c 20 7a 65 69	.=."z".,.zeigezusatz.=."+".,.zei
12080	67 65 20 68 69 73 74 6f 67 72 20 3d 20 22 68 22 2c 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e	ge.histogr.=."h",.mdlgroessenein
120a0	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 ff ff	bl.=."e".,.rubout.=."l".;.LET...
120c0	ee 00 20 20 20 20 20 20 6d 69 6e 79 20 3a 3d 20 6d 69 6e 79 20 2d 20 65 70 73 69 6c 6f 6e 3b 20	........miny.:=.miny.-.epsilon;.
120e0	74 61 73 74 65 20 3c 3e 20 65 73 63 20 54 48 45 4e 20 6f 75 74 20 28 70 69 65 70 29 3b 72 65 65	taste.<>.esc.THEN.out.(piep);ree
12100	6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 46 49 20 50 45 52 20 2e 20 64 69 61 6c	nter.darstellung.4.FI.PER...dial
12120	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
12140	6e 63 68 61 72 20 28 20 73 74 65 6c 6c 75 6e 67 34 20 3a 20 66 6f 72 67 65 74 20 28 20 22 64 61	nchar.(.stellung4.:.forget.(."da
12160	72 73 74 22 20 2c 20 71 75 69 65 74 20 29 20 3b 20 4c 45 41 56 45 20 64 61 72 73 74 65 6c 6c 75	rst".,.quiet.).;.LEAVE.darstellu
12180	6e 67 34 20 2e 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	ng4...THEN.leavedarstellung4.ELI
121a0	46 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ee 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c	F.................wahlderdarstel
121c0	6c 75 6e 67 73 61 72 74 65 6e 20 3a 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c	lungsarten.:.zeigemenuezudarstel
121e0	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 20 3b 20 49	lungsarten.(.taste.,.FALSE.).;.I
12200	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 61 73 74 65	F.taste.=.zeigephasend.COR.taste
12220	20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 68 69	.=.zeigetab.COR.taste.=.zeige.hi
12240	73 74 6f 67 72 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	stogr.COR.taste.=.abbruchtaste.C
12260	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 65 61 76 65	OR.taste.=.zeigezeitd.THEN.leave
12280	64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	darstellung4.ELIF...............
122a0	de 00 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69	..taste.=.rubout.COR.taste.=.zei
122c0	67 65 7a 75 73 61 74 7a 20 54 48 45 4e 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61	gezusatz.THEN.gebeaufbildschirma
122e0	75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67	us.(.dst.,.modellkurzbezeichnung
12300	20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c	.,.darstellungsname.,.steuerzeil
12320	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 74 7a 64 61	e.).;.FI...zeigemenuezurzusatzda
12340	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 75 72 7a 75	rst.:.REP.kernvonzeigemenuezurzu
12360	73 61 74 7a 64 61 72 73 74 20 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e ff ff ff ff ff ff	satzdarst.ngsarttaste.THEN......
12380	de 00 20 20 50 49 43 54 55 52 45 20 56 41 52 20 6c 65 67 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69	....PICTURE.VAR.legende.:=.nilpi
123a0	63 74 75 72 65 3b 78 2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61 78 79 29 3b 65 65 6e 74 65	cture;x,.maxx,.miny,.maxy);eente
123c0	72 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 46 49 20 3b 20 45	rzeigemenuezurzusatzdarst.FI.;.E
123e0	4c 49 46 20 74 61 73 74 65 20 3d 20 73 65 6e 64 65 74 61 73 74 65 20 54 48 45 4e 20 76 65 72 73	LIF.taste.=.sendetaste.THEN.vers
12400	65 6e 64 65 6f 75 74 70 75 74 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a	endeoutput.(.dst.,.modellkurzbez
12420	65 69 63 68 6e 75 6e 67 20 2c 20 6b 6f 70 66 7a 65 69 6c 65 20 2c 20 73 74 65 75 65 72 7a 65 69	eichnung.,.kopfzeile.,.steuerzei
12440	6c 65 20 2c 20 4c 49 46 20 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff	le.,.LIF.ue.(.menuezeile.(.5....
12460	ce 00 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	..).).;.fuellemenue.(.menuezeile
12480	20 28 20 31 30 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a	.(.10.).).;.fuellemenue.(.menuez
124a0	65 69 6c 65 20 28 20 31 37 20 29 20 29 20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 20 3b 20 2e 20 6c	eile.(.17.).).;.zeigemenue.;...l
124c0	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 3a 20 4c	eavezeigemenuezurzusatzdarst.:.L
124e0	45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20	EAVE.zeigemenuezurzusatzdarst...
12500	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 74 20	reenterzeigemenuezurzusatzdarst.
12520	3a 20 4c 45 41 56 45 20 ff ff ff ff ff ff ff ff 3e 00 6b 65 72 6e 76 6f 6e 7a 65 69 67 65 6d 65	:.LEAVE.........>.kernvonzeigeme
12540	6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20 45 4e 44 20 50 52 4f 43 20 64 61 72	nuezurzusatzdarst...END.PROC.dar
12560	73 74 65 6c 6c 75 6e 67 34 20 3b 20 ff ff ff ff de 00 20 20 20 20 6d 61 78 79 20 3a 3d 20 68 65	stellung4.;...........maxy.:=.he
12580	6c 70 3b 65 6e 64 65 20 3a 3d 20 6e 69 6c 70 69 63 74 75 72 65 3b 6c 6c 75 6e 67 20 34 20 45 4c	lp;ende.:=.nilpicture;llung.4.EL
125a0	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
125c0	20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 65 6e 64 65 6e 20 28 20 64 73 74 20	.modellgroesseneinblenden.(.dst.
125e0	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 62	,.lsg.,.taste.).;.IF.taste.=.abb
12600	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 65	ruchtaste.COR.taste.=.modellgroe
12620	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 34	ssentaste.THEN.leavedarstellung4
12640	20 45 4c 49 46 20 ff ff ff ff ff ff ff ff ff ff ee 00 20 20 54 45 58 54 20 56 41 52 20 77 65 72	.ELIF...............TEXT.VAR.wer
12660	74 3b 6d 61 75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68	t;maus.(.dst.,.modellkurzbezeich
12680	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
126a0	7a 65 69 6c 65 20 29 20 3b 72 65 65 6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 46	zeile.).;reenter.darstellung.4.F
126c0	49 20 3b 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74	I.;.ELIF.taste.=.darstellungsart
126e0	74 61 73 74 65 20 54 48 45 4e 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72	taste.THEN.wahlderdarstellungsar
12700	74 65 6e 20 3b 72 65 65 6e 74 65 72 20 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 45 4c 49 46	ten.;reenter..darstellung.4.ELIF
12720	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 ff ff ff ff ff ff ff	.taste.=.menuetaste.THEN........
12740	0e 01 20 20 20 20 6d 61 78 79 20 3a 3d 20 68 65 6c 70 3b 6e 69 6e 6c 65 67 65 6e 64 65 3b 46 20	......maxy.:=.help;ninlegende;F.
12760	74 61 73 74 65 20 3c 3e 20 65 73 63 20 54 48 45 4e 20 6f 75 74 20 28 70 69 65 70 29 3b 72 65 65	taste.<>.esc.THEN.out.(piep);ree
12780	6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 3b 45 4c 53 45 20 72 65 65 6e 74 65 72 20	nter.darstellung.4;ELSE.reenter.
127a0	64 61 72 73 74 65 6c 6c 75 6e 67 20 34 20 46 49 20 50 45 52 20 2e 20 64 69 61 6c 6f 67 66 75 65	darstellung.4.FI.PER...dialogfue
127c0	72 64 65 6d 6f 20 3a 20 52 45 50 20 74 61 73 74 65 20 6c 65 73 65 6e 20 28 74 61 73 74 65 29 20	rdemo.:.REP.taste.lesen.(taste).
127e0	3b 20 72 6e 20 76 6f 6e 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 6c 65 61 76 65 64 61 72 73 74	;.rn.von.darstellung4.leavedarst
12800	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
12820	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 41 56 45 20 64	et.).;.LEAVE.darstellung4..AVE.d
12840	61 72 73 74 65 6c 6c 75 6e 67 34 20 2e ff ff ff ee 00 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c	arstellung4.......wahlderdarstel
12860	6c 75 6e 67 73 61 72 74 65 6e 20 3a 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 64 61 72 73 74 65 6c	lungsarten.:.zeigemenuezudarstel
12880	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 20 3b 20 49	lungsarten.(.taste.,.FALSE.).;.I
128a0	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 61 73 74 65	F.taste.=.zeigephasend.COR.taste
128c0	20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 68 69	.=.zeigetab.COR.taste.=.zeige.hi
128e0	73 74 6f 67 72 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	stogr.COR.taste.=.abbruchtaste.C
12900	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 65 61 76 65	OR.taste.=.zeigezeitd.THEN.leave
12920	64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	darstellung4.ELIF...............
12940	de 00 20 20 20 20 20 20 6d 61 78 79 20 3a 3d 20 6d 69 6e 79 20 2b 20 65 70 73 69 6c 6f 6e 3b 69	........maxy.:=.miny.+.epsilon;i
12960	67 65 7a 75 73 61 74 7a 20 54 48 45 4e 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61	gezusatz.THEN.gebeaufbildschirma
12980	75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67	us.(.dst.,.modellkurzbezeichnung
129a0	20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c	.,.darstellungsname.,.steuerzeil
129c0	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 74 7a 64 61	e.).;.FI...zeigemenuezurzusatzda
129e0	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 75 72 7a 75	rst.:.REP.kernvonzeigemenuezurzu
12a00	73 61 74 7a 64 61 72 73 74 20 6e 67 73 61 72 74 74 61 73 74 65 20 54 48 45 4e ff ff ff ff ff ff	satzdarst.ngsarttaste.THEN......
12a20	de 00 20 20 52 45 41 4c 20 56 41 52 20 61 2c 20 62 2c 20 61 62 73 74 61 6e 64 3b 79 2c 20 6d 61	....REAL.VAR.a,.b,.abstand;y,.ma
12a40	78 79 29 3b 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	xy);eschriftung,.nachkommastelle
12a60	6e 29 3b 63 68 65 6d 65 6e 75 65 20 3b 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61	n);chemenue.;.gebeaufbildschirma
12a80	75 73 20 28 20 64 73 74 20 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67	us.(.dst.,.modellkurzbezeichnung
12aa0	20 2c 20 64 61 72 73 74 65 6c 6c 75 6e 67 73 6e 61 6d 65 20 2c 20 73 74 65 75 65 72 7a 65 69 6c	.,.darstellungsname.,.steuerzeil
12ac0	65 20 29 20 3b 20 6c 65 61 76 65 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61	e.).;.leavezeigemenuezurzusatzda
12ae0	72 73 74 20 45 4c 49 46 20 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff	rst.ELIF.ue.(.menuezeile.(.5....
12b00	ce 00 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	..).).;.fuellemenue.(.menuezeile
12b20	20 28 20 31 30 20 29 20 29 20 3b 20 66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a	.(.10.).).;.fuellemenue.(.menuez
12b40	65 69 6c 65 20 28 20 31 37 20 29 20 29 20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 20 3b 20 2e 20 6c	eile.(.17.).).;.zeigemenue.;...l
12b60	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 3a 20 4c	eavezeigemenuezurzusatzdarst.:.L
12b80	45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20	EAVE.zeigemenuezurzusatzdarst...
12ba0	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 74 20	reenterzeigemenuezurzusatzdarst.
12bc0	3a 20 4c 45 41 56 45 20 ff ff ff ff ff ff ff ff fe 00 20 20 77 69 6e 64 6f 77 20 28 73 65 69 74	:.LEAVE.............window.(seit
12be0	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
12c00	69 6e 79 2c 20 6d 61 78 79 29 3b 65 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 53 45 20 20 6f	iny,.maxy);edarstellung4.ELSE..o
12c20	75 74 20 28 70 69 65 70 29 3b 20 46 49 3b 72 65 65 6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e	ut.(piep);.FI;reenter.darstellun
12c40	67 34 20 50 45 52 20 2e 72 65 65 6e 74 65 72 20 64 61 72 73 74 65 6c 6c 75 6e 67 20 34 3a 20 4c	g4.PER..reenter.darstellung.4:.L
12c60	45 41 56 45 20 20 6b 65 72 6e 20 76 6f 6e 20 64 61 72 73 74 65 6c 6c 75 6e 67 34 2e 6c 65 61 76	EAVE..kern.von.darstellung4.leav
12c80	65 64 61 72 73 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	edarstellung4.:.forget.(."darst"
12ca0	20 2c 20 71 75 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	.,.quiet.).;.LEAVE.darstellung4.
12cc0	2e 74 65 6c 6c 75 6e 67 34 20 2e ff ff ff ff ff ee 00 20 20 77 69 6e 64 6f 77 20 28 6d 69 6e 78	.tellung4...........window.(minx
12ce0	2c 20 6d 61 78 78 2c 20 6d 69 6e 79 2c 20 6d 61 78 79 29 3b 20 6c 65 67 65 6e 64 65 29 3b 65 6c	,.maxx,.miny,.maxy);.legende);el
12d00	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 20 3b 20 49	lungsarten.(.taste.,.FALSE.).;.I
12d20	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 61 73 74 65	F.taste.=.zeigephasend.COR.taste
12d40	20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 20 68 69	.=.zeigetab.COR.taste.=.zeige.hi
12d60	73 74 6f 67 72 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	stogr.COR.taste.=.abbruchtaste.C
12d80	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 65 61 76 65	OR.taste.=.zeigezeitd.THEN.leave
12da0	64 61 72 73 74 65 6c 6c 75 6e 67 34 20 45 4c 49 46 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff	darstellung4.ELIF...............
12dc0	de 00 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 75 6e	..beschrifteundplottebeschriftun
12de0	67 3a 64 61 72 73 74 20 3a 20 67 69 62 6d 65 6e 75 65 61 75 73 20 3b 20 52 45 50 20 69 6e 63 68	g:darst.:.gibmenueaus.;.REP.inch
12e00	61 72 20 28 20 74 61 73 74 65 20 29 20 3b 20 6c 6f 65 73 63 68 65 20 6d 65 6e 75 65 6d 65 6c 64	ar.(.taste.).;.loesche.menuemeld
12e20	75 6e 67 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	ung;.IF.taste.=.abbruchtaste.COR
12e40	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 54 48 45	.taste.=.modellgroessentaste.THE
12e60	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 65 20 3d	N.leavedarstellung4.ELIF.taste.=
12e80	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 ff ff ff ff ff ff	.darstellungsarttaste.THEN......
12ea0	de 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	....move.(legende,.minx,.0.7.*.m
12ec0	61 78 79 29 3b 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	axy);emeldung.(meldungstext.(fal
12ee0	73 63 68 65 20 74 61 73 74 65 29 29 20 46 49 20 50 45 52 20 2e 20 67 69 62 6d 65 6e 75 65 61 75	sche.taste)).FI.PER...gibmenueau
12f00	73 20 3a 20 69 6e 69 74 69 61 6c 69 73 69 65 72 65 6d 65 6e 75 65 20 3b 20 66 75 65 6c 6c 65 6d	s.:.initialisieremenue.;.fuellem
12f20	65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 20 29 20 29 20 3b 20 66 75 65 6c	enue.(.menuezeile.(.1.).).;.fuel
12f40	6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 31 36 20 29 20 29 20 3b 20	lemenue.(.menuezeile.(.16.).).;.
12f60	66 75 65 6c 6c 65 6d 65 6e 75 65 20 28 20 6d 65 6e 75 65 7a 65 69 6c 65 20 28 20 35 20 ff ff ff	fuellemenue.(.menuezeile.(.5....
12f80	ce 00 20 20 52 45 41 4c 20 56 41 52 20 77 6f 72 74 6c 61 65 6e 67 65 20 3a 3d 20 32 2e 30 3b 6e	....REAL.VAR.wortlaenge.:=.2.0;n
12fa0	67 3a 2e 30 29 3b 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	g:.0);).).;.fuellemenue.(.menuez
12fc0	65 69 6c 65 20 28 20 31 37 20 29 20 29 20 3b 20 7a 65 69 67 65 6d 65 6e 75 65 20 3b 20 2e 20 6c	eile.(.17.).).;.zeigemenue.;...l
12fe0	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 3a 20 4c	eavezeigemenuezurzusatzdarst.:.L
13000	45 41 56 45 20 7a 65 69 67 65 6d 65 6e 75 65 7a 75 72 7a 75 73 61 74 7a 64 61 72 73 74 20 2e 20	EAVE.zeigemenuezurzusatzdarst...
13020	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 74 20	reenterzeigemenuezurzusatzdarst.
13040	3a 20 4c 45 41 56 45 20 ff ff ff ff ff ff ff ff 4e 00 20 20 46 4f 52 20 69 20 46 52 4f 4d 20 31	:.LEAVE.........N...FOR.i.FROM.1
13060	20 55 50 54 4f 20 6d 61 78 6b 75 72 76 65 6e 20 52 45 50 20 65 72 74 2c 20 30 2e 30 2c 20 73 74	.UPTO.maxkurven.REP.ert,.0.0,.st
13080	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);...
130a0	3e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6c 65 67 65 6e 64 65 2c 20 61 62 73 74 61 6e 64 2c 20 30	>...movecmr.(legende,.abstand,.0
130c0	2e 30 29 3b 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	.0);rdbreite,.0.0);.............
130e0	4e 00 20 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 65 3b 6e 20	N...beschrifteachseninlegende;n.
13100	52 45 50 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	REP.standardhoehe,.standardbreit
13120	65 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 70 75 74 6b 72 65 75 7a 20 28 73 65	e);.............>...putkreuz.(se
13140	69 74 65 2c 20 73 74 72 75 6b 74 31 66 65 6e 73 74 65 72 2c 20 6c 65 67 65 6e 64 65 29 3b 2d 20	ite,.strukt1fenster,.legende);-.
13160	31 2e 30 29 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 70 6c 6f 74 74 65 75 6e 74 65	1.0);...........N.....plotteunte
13180	72 73 74 72 65 69 63 68 75 6e 67 3b 7a 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65 68	rstreichung;z,.0.0,.standardhoeh
131a0	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);.............
131c0	4e 00 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 20 28 20 78 77 65 72 74 20 2c 20 79 77 65 72 74	N...........move.(.xwert.,.ywert
131e0	20 29 20 3b 20 20 79 77 65 72 74 29 3b 20 67 2c 20 6e 61 63 68 6b 6f 6d 6d 61 73 74 65 6c 6c 65	.).;..ywert);.g,.nachkommastelle
13200	6e 29 2c 20 30 2e 30 2c 20 ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 43 41 4e 44 20 69 6d 61 75	n),.0.0,........N......CAND.imau
13220	73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 79 77 65 72 74 20 2c 20 79 76 61 72 20 29 20 29 20	sgabefenster.(.ywert.,.yvar.).).
13240	29 20 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	).tandardbreite,.-.1.0.*........
13260	4e 00 20 20 49 46 20 28 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 78 77 65 72 74 2c	N...IF.(imausgabefenster.(xwert,
13280	20 78 76 61 72 29 20 43 41 4e 44 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 79 77	.xvar).CAND.imausgabefenster.(yw
132a0	65 72 74 2c 20 79 76 61 72 29 29 20 ff ff ff ff 4e 00 20 20 42 4f 55 4e 44 20 50 49 43 54 55 52	ert,.yvar)).....N...BOUND.PICTUR
132c0	45 20 56 41 52 20 6b 72 65 75 7a 3b 29 3b 6c 61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74	E.VAR.kreuz;);laengebeibeschrift
132e0	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,...
13300	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
13320	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.:=.
13340	31 31 3b 65 6c 6c 65 6e 29 2c ff ff ff ff ff ff 2e 00 20 20 61 6e 7a 61 68 6c 78 61 63 68 73 65	11;ellen),..........anzahlxachse
13360	6e 61 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 31 32 3b 2e ff ff ff ff ff ff ff ff ff ff ff ff ff	nabschnitte.:=.12;..............
13380	2e 00 20 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3b 65 2c 20 79 77 65 69 74 65 3b 69 63 68 6e	....zeichnexachse;e,.yweite;ichn
133a0	65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 7a 65 69 63 68 6e 65 79 61 63 68 73	en;.............N...zeichneyachs
133c0	65 3b 62 73 63 68 6e 69 74 74 65 20 3a 3d 20 31 32 3b 73 67 2c 20 42 4f 4f 4c 20 56 41 52 20 69	e;bschnitte.:=.12;sg,.BOOL.VAR.i
133e0	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):.........
13400	3e 00 20 20 78 73 6b 61 6c 69 65 72 75 6e 67 3b 6d 61 78 20 2d 20 78 6d 69 6e 29 20 2f 20 72 65	>...xskalierung;max.-.xmin)./.re
13420	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);...
13440	2e 00 20 20 7a 65 69 63 68 6e 65 78 61 63 68 73 65 3b 3a 3d 20 53 54 41 52 54 57 45 52 54 20 6c	....zeichnexachse;:=.STARTWERT.l
13460	73 67 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 70 65 6e 20 28 6b 72 65 75 7a 2c 20	sg;.................pen.(kreuz,.
13480	31 29 2e 20 3a 3d 20 50 41 52 41 4d 45 54 45 52 53 41 54 5a 20 6c 73 67 3b ff ff ff ff ff ff ff	1)..:=.PARAMETERSATZ.lsg;.......
134a0	2e 00 20 20 64 72 61 77 20 28 6b 72 65 75 7a 2c 20 78 6d 61 78 2c 20 79 6d 69 6e 29 3b 73 66 65	....draw.(kreuz,.xmax,.ymin);sfe
134c0	68 6c 65 72 70 61 72 61 6d 20 ff ff ff ff ff ff 3e 00 7a 65 69 63 68 6e 65 79 61 63 68 73 65 3a	hlerparam.......>.zeichneyachse:
134e0	31 29 2e 20 53 55 42 20 33 29 20 2a 20 28 28 76 20 53 55 42 20 32 29 20 2b 20 28 76 20 53 55 42	1)..SUB.3).*.((v.SUB.2).+.(v.SUB
13500	20 33 29 29 29 3b ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	.3)));..........>...move.(kreuz,
13520	20 78 6d 69 6e 2c 20 79 6d 69 6e 29 3b 20 53 55 42 20 33 29 20 29 20 2f 20 28 70 20 53 55 42 20	.xmin,.ymin);.SUB.3).)./.(p.SUB.
13540	31 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 7a 65 69 63 68 6e 65 78 73 70 69 74 7a 65	1);...............zeichnexspitze
13560	3a 65 2e 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 ff ff ff	:e.er.:=.divisionsfehlervmax....
13580	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 2d 20 30 2e 32	....drawcmr.(kreuz,.-.0.2,.-.0.2
135a0	29 2e 66 65 68 6c 65 72 6b 6d 20 ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 6b 72 65 75 7a 2c	).fehlerkm......N...move.(kreuz,
135c0	20 73 74 65 6c 6c 65 2c 20 79 6d 69 6e 29 3b 6d 6f 64 65 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68	.stelle,.ymin);modellkurzbezeich
135e0	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,...
13600	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
13620	65 6e 20 28 64 73 74 2c 20 6c 73 67 2c 20 74 61 73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff	en.(dst,.lsg,.taste);...........
13640	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
13660	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,
13680	20 2d 20 31 2e 30 20 2a 20 ff ff ff ff ff ff ff 3e 00 20 20 20 20 20 20 20 20 20 20 20 20 67 65	.-.1.0.*........>.............ge
136a0	62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28 64 73 74 2c 20 6d 6f 64 65 6c 6c 6b	beaufbildschirmaus.(dst,.modellk
136c0	75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c ff 2e 00 20 20 20 20 73 74 65 6c 6c 65 20 3a 3d 20	urzbezeichnung,.......stelle.:=.
136e0	73 63 68 6f 65 6e 65 7a 61 68 6c 20 28 70 6f 73 29 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff	schoenezahl.(pos);..............
13700	2e 00 20 20 20 20 7a 65 69 63 68 6e 65 79 67 65 67 65 6e 73 74 72 69 63 68 3b 6c 75 6e 67 73 61	......zeichneygegenstrich;lungsa
13720	72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 2e 00 20 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d	rttaste.............FOR.pos.FROM
13740	20 31 20 55 50 54 4f 20 33 20 52 45 50 20 72 74 65 6e 3b ff ff ff ff ff ff ff ff ff ff ff ff ff	.1.UPTO.3.REP.rten;.............
13760	3e 00 45 4e 44 20 50 52 4f 43 20 6b 6c 65 69 6e 73 74 65 73 3b 71 75 69 65 74 29 20 3b 20 43 4f	>.END.PROC.kleinstes;quiet).;.CO
13780	52 20 74 61 73 74 65 20 3d 20 77 65 69 74 65 72 74 61 73 74 65 20 ff ff ff ff ff ff ff ff ff ff	R.taste.=.weitertaste...........
137a0	2e 00 6b 65 72 6e 76 6f 6e 64 61 72 73 74 65 6c 6c 75 6e 67 34 3a 74 20 43 4f 52 20 74 61 73 74	..kernvondarstellung4:t.COR.tast
137c0	65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 4e 00 20 20 20 20 20 20 67 65 62 65 61 75 66 62	e.=.zeigezusatz.N.......gebeaufb
137e0	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
13800	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,.....
13820	2e 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 61 74 7a	......IF.taste.=.abbruchtasteatz
13840	64 61 72 73 74 20 ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 6c 65 61 76 65 64	darst.....................leaved
13860	61 72 73 74 65 6c 6c 75 6e 67 34 20 64 61 72 73 74 3a ff ff ff ff ff ff ff ff ff ff ff ff ff ff	arstellung4.darst:..............
13880	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);...........
138a0	3e 00 20 20 20 20 20 20 20 20 6f 75 74 20 28 70 69 65 70 29 3b 6e 64 65 74 61 73 74 65 20 43 4f	>.........out.(piep);ndetaste.CO
138c0	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...
138e0	2e 00 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 73 6b 29 20 3b 72 73 74 65 6c 6c 75 6e 67 73 61	..........plottask).;rstellungsa
13900	72 74 74 61 73 74 65 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	rttaste...............ELIF.taste
13920	20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 ff ff ff ff ff ff ff ff ff ff ff ff	.=.mdlgroesseneinbl.............
13940	2e 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 61	..........reenterdarstellung4.sa
13960	74 7a 64 61 72 73 74 20 ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65	tzdarst...............ELIF.taste
13980	20 3d 20 6d 64 6c 67 72 6f 65 73 73 65 6e 65 69 6e 62 6c 20 ff ff ff ff ff ff ff ff ff ff ff ff	.=.mdlgroesseneinbl.............
139a0	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 65 6e 75 65 74 61 73	N.....tastelesen.(taste);enuetas
139c0	74 65 20 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f 64 65 6c 6c 67 72 6f 65 73 73 65 6e 74 61 73 74	te.OR.taste.=.modellgroessentast
139e0	65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 72	e..............................r
13a00	65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 34 20 75 73 61 74 7a 64 61 72 73 74 20 ff ff	eenterdarstellung4.usatzdarst...
13a20	4e 00 20 20 20 20 20 20 20 20 77 61 68 6c 64 65 72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74	N.........wahlderdarstellungsart
13a40	65 6e 3b 6c 6c 6b 75 72 7a 62 65 7a 65 69 63 68 6e 75 6e 67 2c 20 6b 6f 70 66 7a 65 69 6c 65 2c	en;llkurzbezeichnung,.kopfzeile,
13a60	20 73 74 65 75 65 72 7a 65 69 6c 65 2c ff ff ff 4e 00 20 20 4c 45 41 56 45 20 64 61 72 73 74 65	.steuerzeile,...N...LEAVE.darste
13a80	6c 6c 75 6e 67 34 2e 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	llung4.hirmaus.(dst,.modellkurzb
13aa0	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,...
13ac0	4e 00 20 20 20 20 20 20 20 20 49 46 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 70 68 61 73 65 6e	N.........IF.taste.=.zeigephasen
13ae0	64 20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 74 61 62 20 43 4f 52 20 74 61 73 74 65	d.COR.taste.=.zeigetab.COR.taste
13b00	20 3d 20 61 62 62 72 75 63 68 74 61 73 74 65 ff 4e 00 20 20 20 20 20 20 20 20 77 61 68 6c 64 65	.=.abbruchtaste.N.........wahlde
13b20	72 64 61 72 73 74 65 6c 6c 75 6e 67 73 61 72 74 65 6e 3b 2c 20 6d 6f 64 65 6c 6c 6b 75 72 7a 62	rdarstellungsarten;,.modellkurzb
13b40	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,...
13b60	4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64 65 2c 20 6d 65 6c 64 75 6e 67 73 74 65 78 74 20	N...draw.(legende,.meldungstext.
13b80	28 6c 65 67 65 6e 64 65 6e 74 65 78 74 29 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65	(legendentext),.0.0,.standardhoe
13ba0	68 65 2c 20 ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 20 28 6c 69 6e 69 65 20	he,.............N...move.(linie.
13bc0	28 69 29 2c 20 6d 69 6e 78 2c 20 6d 69 6e 79 29 3b 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64	(i),.minx,.miny);,.0.0,.standard
13be0	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 ff	hoehe,.standardbreite);.........
13c00	4e 00 72 69 63 68 74 65 70 69 63 74 75 72 65 65 69 6e 3a 20 20 20 20 20 20 20 20 20 20 20 49 4e	N.richtepictureein:...........IN
13c20	54 20 43 4f 4e 53 54 20 78 76 61 72 2c 20 79 76 61 72 2c 20 49 4e 54 20 43 4f 4e 53 54 20 73 74	T.CONST.xvar,.yvar,.INT.CONST.st
13c40	69 66 74 29 3a ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 76 6f 72 70 75 6e 6b 74	ift):...........N.......vorpunkt
13c60	20 3a 3d 20 54 52 55 45 20 28 78 77 65 72 74 2c 20 78 76 61 72 29 20 43 41 4e 44 20 69 6d 61 75	.:=.TRUE.(xwert,.xvar).CAND.imau
13c80	73 67 61 62 65 66 65 6e 73 74 65 72 20 28 79 77 65 72 74 2c 20 79 76 61 72 29 29 20 ff ff ff ff	sgabefenster.(ywert,.yvar)).....
13ca0	4e 00 20 20 20 20 20 45 4c 53 45 20 76 6f 72 70 75 6e 6b 74 20 3a 3d 20 46 41 4c 53 45 20 4e 44	N......ELSE.vorpunkt.:=.FALSE.ND
13cc0	20 28 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 20 78 77 65 72 74 20 2c 20 78 76	.(.imausgabefenster.(.xwert.,.xv
13ce0	61 72 20 29 20 ff ff ff ff ff ff ff ff ff ff ff 4e 00 73 63 68 72 65 69 62 65 70 69 63 74 75 72	ar.)............N.schreibepictur
13d00	65 3a 65 6e 73 74 65 72 20 28 78 77 65 72 74 2c 20 78 76 61 72 29 20 43 41 4e 44 20 69 6d 61 75	e:enster.(xwert,.xvar).CAND.imau
13d20	73 67 61 62 65 66 65 6e 73 74 65 72 20 28 79 77 65 72 74 2c 20 79 76 61 72 29 29 20 ff ff ff ff	sgabefenster.(ywert,.yvar)).....
13d40	4e 00 20 20 6f 72 64 6e 65 73 74 69 66 74 7a 75 3b 6c 78 61 63 68 73 65 6e 61 62 73 63 68 6e 69	N...ordnestiftzu;lxachsenabschni
13d60	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.:=.
13d80	31 31 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 3e 00 20 20 79 73 6b 61 6c 69 65 72 75 6e 67 3b	11;.............>...yskalierung;
13da0	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
13dc0	6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff 3e 00 20 20 7a 61 68 6c 65 6e 20 28 78 6d 69 6e	nabschnitte);...>...zahlen.(xmin
13de0	2c 20 78 6d 69 6e 20 2b 20 30 2e 39 20 2a 20 28 78 6d 61 78 20 2d 20 78 6d 69 6e 29 2c 20 73 63	,.xmin.+.0.9.*.(xmax.-.xmin),.sc
13e00	68 6f 65 6e 65 7a 61 68 6c 29 3b ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65	hoenezahl);.....N...movecmr.(kre
13e20	75 7a 2c 28 28 2d 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	uz,((-.1.0).*.real.(vorkomma)).*
13e40	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.*........
13e60	4e 00 20 20 46 4f 52 20 70 6f 73 20 46 52 4f 4d 20 31 20 55 50 54 4f 20 33 20 52 45 50 20 65 2c	N...FOR.pos.FROM.1.UPTO.3.REP.e,
13e80	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
13ea0	61 73 74 65 6c 6c 65 6e 29 2c ff ff ff ff ff ff 2e 00 20 20 20 20 7a 65 69 63 68 6e 65 79 73 74	astellen),............zeichneyst
13ec0	72 69 63 68 3b 61 6e 64 61 72 64 62 72 65 69 74 65 29 2e ff ff ff ff ff ff ff ff ff ff ff ff ff	rich;andardbreite)..............
13ee0	3e 00 20 20 20 20 62 65 73 63 68 72 69 66 74 65 79 20 79 6d 69 6e 20 2b 20 30 2e 39 20 2a 20 28	>.....beschriftey.ymin.+.0.9.*.(
13f00	79 6d 61 78 20 2d 20 79 6d 69 6e 29 2c 20 73 63 68 6f 65 6e 65 7a 61 68 6c 29 3b ff ff ff ff ff	ymax.-.ymin),.schoenezahl);.....
13f20	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
13f40	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...
13f60	4e 00 20 20 20 20 45 4c 49 46 20 74 61 73 74 65 20 3c 3e 20 65 73 63 20 20 28 64 73 74 2c 20 6d	N.....ELIF.taste.<>.esc..(dst,.m
13f80	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,
13fa0	20 73 74 65 75 65 72 7a 65 69 6c 65 2c ff ff ff 3e 00 20 20 20 20 20 20 20 20 6d 6f 64 65 6c 6c	.steuerzeile,...>.........modell
13fc0	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
13fe0	73 74 65 29 3b ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 49 46 20 74 61 73	ste);...........N.........IF.tas
14000	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
14020	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...............
14040	2e 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
14060	73 74 3b ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 66 6f 72 67 65 74 20 28 22 64 61 72	st;.............N...forget.("dar
14080	73 74 22 2c 20 71 75 69 65 74 29 3b 74 61 73 74 65 20 43 4f 52 20 74 61 73 74 65 20 3d 20 6d 6f	st",.quiet);taste.COR.taste.=.mo
140a0	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...............
140c0	2e 00 20 20 20 20 20 20 20 20 20 20 20 20 72 65 65 6e 74 65 72 64 61 72 73 74 65 6c 6c 75 6e 67	..............reenterdarstellung
140e0	34 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 49 46 20 74 61 73 74 65 20 3d 20 7a	4...............N...IF.taste.=.z
14100	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
14120	20 43 4f 52 20 74 61 73 74 65 20 3d 20 7a 65 69 67 65 68 69 73 74 6f 67 72 20 43 4f 52 20 ff ff	.COR.taste.=.zeigehistogr.COR...
14140	3e 00 20 20 20 20 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	>......taste.=.abbruchtaste.COR.
14160	74 61 73 74 65 20 3d 20 7a 65 69 67 65 7a 65 69 74 64 20 ff ff ff ff ff ff ff ff ff ff ff ff ff	taste.=.zeigezeitd..............
14180	2e 00 20 20 45 4c 49 46 20 74 61 73 74 65 20 3d 20 72 75 62 6f 75 74 20 43 4f 52 20 74 61 73 74	....ELIF.taste.=.rubout.COR.tast
141a0	65 20 3d 20 7a 65 69 67 65 7a 75 73 61 74 7a 20 4e 00 20 20 20 20 20 20 67 65 62 65 61 75 66 62	e.=.zeigezusatz.N.......gebeaufb
141c0	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
141e0	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,.....
14200	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
14220	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...
14240	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
14260	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
14280	65 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 76 65 72 73 65 6e	e...............N.........versen
142a0	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
142c0	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,...
142e0	4e 00 20 20 20 20 20 20 20 20 67 65 62 65 61 75 66 62 69 6c 64 73 63 68 69 72 6d 61 75 73 20 28	N.........gebeaufbildschirmaus.(
14300	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 64 61 72 73	dst,.modellkurzbezeichnung,.dars
14320	74 65 6c 6c 75 6e 67 73 6e 61 6d 65 2c 20 ff ff 4e 00 20 20 61 20 3a 3d 20 72 65 61 6c 20 28 6c	tellungsname,...N...a.:=.real.(l
14340	61 65 6e 67 65 62 65 69 62 65 73 63 68 72 69 66 74 75 6e 67 29 20 2a 20 73 74 61 6e 64 61 72 64	aengebeibeschriftung).*.standard
14360	62 72 65 69 74 65 20 23 20 2b 20 30 2e 31 20 23 20 3b ff ff ff ff ff ff ff ff ff ff ff ff ff ff	breite.#.+.0.1.#.;..............
14380	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,
143a0	28 2d 20 31 2e 30 20 2a 20 62 29 20 2d 20 30 2e 31 20 29 3b ff ff ff ff ff ff ff ff ff ff ff ff	(-.1.0.*.b).-.0.1.);............
143c0	4e 00 20 20 64 72 61 77 20 28 6c 65 67 65 6e 64 65 2c 20 79 61 63 68 73 65 6e 62 65 7a 2c 20 30	N...draw.(legende,.yachsenbez,.0
143e0	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
14400	65 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	e);.............N...draw.(legend
14420	65 20 2c 20 78 61 63 68 73 65 6e 62 65 7a 2c 20 30 2e 30 2c 20 73 74 61 6e 64 61 72 64 68 6f 65	e.,.xachsenbez,.0.0,.standardhoe
14440	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 ff ff ff ff	he,.standardbreite);............
14460	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 49 4e	N.............................IN
14480	54 20 43 4f 4e 53 54 20 66 65 6e 73 74 65 72 2c 20 4b 55 52 56 45 20 56 41 52 20 6b 75 72 76 65	T.CONST.fenster,.KURVE.VAR.kurve
144a0	2c 20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 4e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	,...............N...............
144c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 20 43 4f 4e 53 54 20 78 76 61 72 2c 20 79 76	..............INT.CONST.xvar,.yv
144e0	61 72 2c 20 49 4e 54 20 43 4f 4e 53 54 20 73 74 69 66 74 29 3a ff ff ff ff ff ff ff ff ff ff ff	ar,.INT.CONST.stift):...........
14500	3e 00 20 20 5a 55 53 54 41 4e 44 20 56 41 52 20 7a 20 3a 3d 20 6e 65 75 65 72 7a 75 73 74 61 6e	>...ZUSTAND.VAR.z.:=.neuerzustan
14520	64 20 28 64 69 6d 65 6e 73 69 6f 6e 20 2b 20 63 6f 64 69 6d 65 6e 73 69 6f 6e 20 2b 20 31 29 3b	d.(dimension.+.codimension.+.1);
14540	4e 00 20 20 49 46 20 28 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 78 77 65 72 74 2c	N...IF.(imausgabefenster.(xwert,
14560	20 78 76 61 72 29 20 43 41 4e 44 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 79 77	.xvar).CAND.imausgabefenster.(yw
14580	65 72 74 2c 20 79 76 61 72 29 29 20 ff ff ff ff 4e 00 20 20 45 4c 49 46 20 28 20 28 20 4e 4f 54	ert,.yvar)).....N...ELIF.(.(.NOT
145a0	20 76 6f 72 70 75 6e 6b 74 20 29 20 43 41 4e 44 20 28 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73	.vorpunkt.).CAND.(.imausgabefens
145c0	74 65 72 20 28 20 78 77 65 72 74 20 2c 20 78 76 61 72 20 29 20 ff ff ff ff ff ff ff ff ff ff ff	ter.(.xwert.,.xvar.)............
145e0	4e 00 50 49 43 54 55 52 45 20 50 52 4f 43 20 6b 72 65 75 7a 65 72 7a 65 75 67 65 6e 75 6e 64 7a	N.PICTURE.PROC.kreuzerzeugenundz
14600	65 69 63 68 6e 65 6e 20 28 52 45 41 4c 20 43 4f 4e 53 54 20 78 6d 69 6e 2c 20 78 6d 61 78 2c 20	eichnen.(REAL.CONST.xmin,.xmax,.
14620	79 6d 69 6e 2c 20 79 6d 61 78 29 3a ff ff ff ff 3e 00 20 20 78 77 65 69 74 65 20 3a 3d 20 28 78	ymin,.ymax):....>...xweite.:=.(x
14640	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
14660	6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff 3e 00 20 20 79 77 65 69 74 65 20 3a 3d 20 28 79	nabschnitte);...>...yweite.:=.(y
14680	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
146a0	6e 61 62 73 63 68 6e 69 74 74 65 29 3b ff ff ff 2e 00 20 20 64 72 61 77 63 6d 72 20 28 6b 72 65	nabschnitte);.......drawcmr.(kre
146c0	75 7a 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	uz,.0.0,.standardhoehe);........
146e0	3e 00 20 20 7a 61 68 6c 65 6e 20 28 78 6d 69 6e 2c 20 78 6d 69 6e 20 2b 20 30 2e 39 20 2a 20 28	>...zahlen.(xmin,.xmin.+.0.9.*.(
14700	78 6d 61 78 20 2d 20 78 6d 69 6e 29 2c 20 73 63 68 6f 65 6e 65 7a 61 68 6c 29 3b ff ff ff ff ff	xmax.-.xmin),.schoenezahl);.....
14720	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,
14740	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
14760	61 73 74 65 6c 6c 65 6e 29 2c ff ff ff ff ff ff 3e 00 20 20 7a 61 68 6c 65 6e 20 28 79 6d 69 6e	astellen),......>...zahlen.(ymin
14780	2c 20 79 6d 69 6e 20 2b 20 30 2e 39 20 2a 20 28 79 6d 61 78 20 2d 20 79 6d 69 6e 29 2c 20 73 63	,.ymin.+.0.9.*.(ymax.-.ymin),.sc
147a0	68 6f 65 6e 65 7a 61 68 6c 29 3b ff ff ff ff ff 4e 00 20 20 6d 6f 76 65 63 6d 72 20 28 6b 72 65	hoenezahl);.....N...movecmr.(kre
147c0	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
147e0	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).*.............
14800	3e 00 42 4f 4f 4c 20 50 52 4f 43 20 69 6d 61 75 73 67 61 62 65 66 65 6e 73 74 65 72 20 28 52 45	>.BOOL.PROC.imausgabefenster.(RE
14820	41 4c 20 43 4f 4e 53 54 20 72 2c 20 49 4e 54 20 43 4f 4e 53 54 20 69 29 3a ff ff ff ff ff ff ff	AL.CONST.r,.INT.CONST.i):.......
14840	3e 00 20 20 28 72 20 3c 3d 20 28 72 61 6e 64 6f 62 65 6e 20 53 55 42 20 69 29 29 20 43 41 4e 44	>...(r.<=.(randoben.SUB.i)).CAND
14860	20 28 72 20 3e 3d 20 28 72 61 6e 64 75 6e 74 65 6e 20 53 55 42 20 69 29 29 2e ff ff ff ff ff ff	.(r.>=.(randunten.SUB.i)).......
14880	4e 00 20 20 20 20 20 20 20 20 76 65 72 73 65 6e 64 65 6f 75 74 70 75 74 20 28 64 73 74 2c 20 6d	N.........versendeoutput.(dst,.m
148a0	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,
148c0	20 73 74 65 75 65 72 7a 65 69 6c 65 2c ff ff ff 2e 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.steuerzeile,...................
148e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 6f 74 74 61 73 6b 29 20 3b ff ff ff ff ff	................plottask).;.....
14900	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
14920	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
14940	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
14960	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
14980	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
149a0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
149c0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................
149e0	ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff	................................