POLYNOME.C128

00000000: 01 40 26 40 01 00 8F 20  2D 2D 2D 2D 2D 20 4E 41  |.@&@... ----- NA|
00000010: 43 48 4C 41 44 45 4E 20  47 52 41 46 49 4B 20 2D  |CHLADEN GRAFIK -|
00000020: 2D 2D 2D 2D 2D 2D 00 3F  40 02 00 8F 20 49 46 20  |------.?@... IF |
00000030: 41 24 3D 22 4E 22 20 54  48 45 4E 20 31 30 30 00  |A$="N" THEN 100.|
00000040: 74 40 03 00 8F 20 50 52  49 4E 54 43 48 52 24 28  |t@... PRINTCHR$(|
00000050: 31 34 37 29 43 48 52 24  28 31 37 29 22 47 52 41  |147)CHR$(17)"GRA|
00000060: 46 49 4B 20 4E 41 43 48  4C 41 44 45 4E 20 28 4A  |FIK NACHLADEN (J|
00000070: 2F 4E 29 22 00 91 40 04  00 8F 20 47 45 54 20 41  |/N)"..@... GET A|
00000080: 24 3A 49 46 20 41 24 3D  22 22 20 54 48 45 4E 20  |$:IF A$="" THEN |
00000090: 34 00 AA 40 05 00 8F 20  49 46 20 41 24 3D 22 4E  |4..@... IF A$="N|
000000A0: 22 20 54 48 45 4E 20 31  30 30 00 CD 40 06 00 8F  |" THEN 100..@...|
000000B0: 20 41 24 3D 22 4E 22 3A  4C 4F 41 44 22 53 59 53  | A$="N":LOAD"SYS|
000000C0: 47 52 41 46 2E 4F 42 4A  22 2C 38 2C 31 00 F4 40  |GRAF.OBJ",8,1..@|
000000D0: 0A 00 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |...*************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000F0: 2A 2A 2A 2A 00 1B 41 14  00 8F 2A 20 20 20 20 20  |****..A...*     |
00000100: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000110: 20 20 20 20 20 20 20 20  20 20 2A 00 42 41 1E 00  |          *.BA..|
00000120: 8F 2A 20 20 20 20 20 20  20 4B 55 52 56 45 4E 41  |.*       KURVENA|
00000130: 4E 50 41 53 53 55 4E 47  20 20 20 20 20 20 20 20  |NPASSUNG        |
00000140: 20 2A 00 69 41 28 00 8F  2A 20 20 20 20 20 20 20  | *.iA(..*       |
00000150: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000160: 20 20 20 20 20 20 20 20  2A 00 90 41 32 00 8F 2A  |        *..A2..*|
00000170: 20 20 20 20 53 54 41 54  49 53 54 49 4B 2D 50 52  |    STATISTIK-PR|
00000180: 4F 47 52 41 4D 4D 20 5A  55 52 20 20 20 20 20 2A  |OGRAMM ZUR     *|
00000190: 00 B7 41 3C 00 8F 2A 20  20 52 45 47 52 45 53 53  |..A<..*  REGRESS|
000001A0: 49 4F 4E 53 41 4E 41 4C  59 53 45 20 4D 49 54 54  |IONSANALYSE MITT|
000001B0: 45 4C 53 20 20 20 2A 00  DE 41 41 00 8F 2A 20 20  |ELS   *..AA..*  |
000001C0: 20 20 20 50 4F 4C 59 4E  4F 4D 45 4E 20 49 4E 43  |   POLYNOMEN INC|
000001D0: 4C 2E 47 52 41 46 49 4B  20 20 20 20 20 2A 00 05  |L.GRAFIK     *..|
000001E0: 42 46 00 8F 2A 20 20 48  45 49 4D 4F 20 50 4F 4E  |BF..*  HEIMO PON|
000001F0: 4E 41 54 48 20 20 48 41  4D 42 55 52 47 20 31 39  |NATH  HAMBURG 19|
00000200: 38 37 20 20 2A 00 2C 42  50 00 8F 2A 20 20 20 20  |87  *.,BP..*    |
00000210: 20 20 20 43 31 32 38 20  2D 20 56 45 52 53 49 4F  |   C128 - VERSIO|
00000220: 4E 20 20 20 20 20 20 20  20 20 20 2A 00 53 42 5A  |N          *.SBZ|
00000230: 00 8F 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..**************|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000250: 2A 2A 2A 00 8A 42 64 00  9C 3A 8F 20 53 59 53 20  |***..Bd..:. SYS |
00000260: 34 39 31 35 32 3A 53 59  53 20 34 39 32 34 32 3A  |49152:SYS 49242:|
00000270: 52 45 4D 20 47 52 41 46  49 4B 53 50 45 49 43 48  |REM GRAFIKSPEICH|
00000280: 45 52 20 53 49 43 48 45  52 4E 00 9A 42 69 00 DE  |ER SICHERN..Bi..|
00000290: 31 2C 31 3A 8D 20 34 30  30 30 00 C0 42 6E 00 8F  |1,1:. 4000..Bn..|
000002A0: 20 2D 2D 2D 2D 2D 20 56  41 52 49 41 42 4C 45 20  | ----- VARIABLE |
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000002C0: 00 04 43 78 00 4D B2 30  3A 53 B2 30 3A 4E B2 30  |..Cx.M.0:S.0:N.0|
000002D0: 3A 49 B2 30 3A 4A B2 30  3A 4B B2 30 3A 47 B2 30  |:I.0:J.0:K.0:G.0|
000002E0: 3A 41 B2 30 3A 47 32 B2  30 3A 5A 5A B2 30 3A 48  |:A.0:G2.0:ZZ.0:H|
000002F0: 48 B2 30 3A 51 B2 30 3A  50 B2 30 3A 41 30 B2 30  |H.0:Q.0:P.0:A0.0|
00000300: 3A 42 B2 30 00 40 43 82  00 42 42 B2 33 31 39 3A  |:B.0.@C..BB.319:|
00000310: 42 48 B2 31 39 39 3A 57  B2 30 3A 4D 58 B2 AB 31  |BH.199:W.0:MX..1|
00000320: 45 31 32 3A 4C 58 B2 31  45 31 32 3A 4D 59 B2 AB  |E12:LX.1E12:MY..|
00000330: 31 45 31 32 3A 4C 59 B2  31 45 31 32 3A 52 B2 30  |1E12:LY.1E12:R.0|
00000340: 00 7E 43 8C 00 58 55 B2  30 3A 58 4F B2 30 3A 59  |.~C..XU.0:XO.0:Y|
00000350: 55 B2 30 3A 59 4F B2 30  3A 52 41 B2 30 3A 52 44  |U.0:YO.0:RA.0:RD|
00000360: B2 30 3A 54 41 B2 30 3A  54 42 B2 30 3A 58 B2 30  |.0:TA.0:TB.0:X.0|
00000370: 3A 59 B2 30 3A 58 31 B2  30 3A 59 31 B2 30 00 8E  |:Y.0:X1.0:Y1.0..|
00000380: 43 96 00 41 24 B2 22 22  3A 42 24 B2 22 22 00 94  |C..A$."":B$.""..|
00000390: 43 A0 00 8F 00 D6 43 AA  00 96 A5 20 47 28 4E 29  |C.....C.... G(N)|
000003A0: B2 B5 28 2E 32 AC BA 28  35 AC 28 41 AB 31 30 AC  |..(.2..(5.(A.10.|
000003B0: 4E AB 31 37 29 29 AB 34  29 3A 8F 20 4D 41 58 2E  |N.17)).4):. MAX.|
000003C0: 20 50 4F 4C 59 4E 4F 4D  47 52 41 44 20 42 45 52  | POLYNOMGRAD BER|
000003D0: 45 43 48 4E 45 4E 00 FA  43 B4 00 96 A5 20 58 28  |ECHNEN..C.... X(|
000003E0: 58 29 B2 52 41 AC 58 AA  54 41 3A 96 A5 20 59 28  |X).RA.X.TA:.. Y(|
000003F0: 59 29 B2 52 44 AC 59 AA  54 42 00 00 44 BE 00 8F  |Y).RD.Y.TB..D...|
00000400: 00 26 44 C8 00 8F 20 2D  2D 2D 2D 2D 20 54 49 54  |.&D... ----- TIT|
00000410: 45 4C 2C 45 52 4B 4C 41  45 52 55 4E 47 20 2D 2D  |EL,ERKLAERUNG --|
00000420: 2D 2D 2D 2D 2D 2D 00 45  44 D2 00 97 20 35 33 32  |------.ED... 532|
00000430: 38 30 2C 30 3A 97 20 35  33 32 38 31 2C 30 3A 99  |80,0:. 53281,0:.|
00000440: C7 28 33 30 29 00 86 44  DC 00 99 C7 28 31 34 37  |.(30)..D....(147|
00000450: 29 C7 28 31 38 29 22 20  20 20 20 20 20 20 20 20  |).(18)"         |
00000460: 20 20 20 50 4F 4C 59 4E  4F 4D 41 4E 50 41 53 53  |   POLYNOMANPASS|
00000470: 55 4E 47 20 20 20 20 20  20 20 20 20 20 20 20 22  |UNG            "|
00000480: C7 28 31 34 36 29 00 8C  44 E6 00 99 00 B8 44 F0  |.(146)..D.....D.|
00000490: 00 99 22 20 44 55 52 43  48 20 45 49 4E 45 20 41  |.." DURCH EINE A|
000004A0: 4E 5A 41 48 4C 20 56 4F  4E 20 4E 20 50 55 4E 4B  |NZAHL VON N PUNK|
000004B0: 54 45 4E 20 41 55 53 22  00 E7 44 FA 00 99 22 57  |TEN AUS"..D..."W|
000004C0: 45 52 54 45 50 41 41 52  45 4E 20 4C 45 47 54 20  |ERTEPAAREN LEGT |
000004D0: 44 49 45 53 45 53 20 50  52 4F 47 52 41 4D 4D 20  |DIESES PROGRAMM |
000004E0: 44 41 53 20 41 4D 22 00  11 45 04 01 99 22 42 45  |DAS AM"..E..."BE|
000004F0: 53 54 45 4E 20 41 4E 47  45 50 41 53 53 54 45 20  |STEN ANGEPASSTE |
00000500: 50 4F 4C 59 4E 4F 4D 20  44 45 52 20 46 4F 52 4D  |POLYNOM DER FORM|
00000510: 22 00 3F 45 0E 01 99 22  59 3D 41 30 2B 41 31 2A  |".?E..."Y=A0+A1*|
00000520: 58 2B 41 32 2A 58 5E 32  2B 41 33 2A 58 5E 33 2B  |X+A2*X^2+A3*X^3+|
00000530: 2E 2E 2E 20 2E 20 44 45  52 20 47 52 41 44 22 00  |... . DER GRAD".|
00000540: 6A 45 13 01 99 22 44 45  53 20 50 4F 4C 59 4E 4F  |jE..."DES POLYNO|
00000550: 4D 53 20 49 53 54 20 46  52 45 49 20 57 41 45 48  |MS IST FREI WAEH|
00000560: 4C 42 41 52 2E 20 44 45  52 22 00 93 45 15 01 99  |LBAR. DER"..E...|
00000570: 22 4B 4F 52 52 45 4C 41  54 49 4F 4E 53 4B 4F 45  |"KORRELATIONSKOE|
00000580: 46 46 49 5A 49 45 4E 54  20 52 20 55 4E 44 20 44  |FFIZIENT R UND D|
00000590: 49 45 22 00 C0 45 18 01  99 22 53 54 41 4E 44 41  |IE"..E..."STANDA|
000005A0: 52 44 41 42 57 45 49 43  48 55 4E 47 20 53 20 57  |RDABWEICHUNG S W|
000005B0: 45 52 44 45 4E 20 41 4E  47 45 47 45 42 45 4E 22  |ERDEN ANGEGEBEN"|
000005C0: 00 E9 45 22 01 99 22 55  4E 44 20 53 49 45 20 4B  |..E".."UND SIE K|
000005D0: 4F 45 4E 4E 45 4E 20 42  45 4C 49 45 42 49 47 45  |OENNEN BELIEBIGE|
000005E0: 20 59 2D 57 45 52 54 45  22 00 17 46 2C 01 99 22  | Y-WERTE"..F,.."|
000005F0: 41 55 53 20 45 49 4E 47  45 47 45 42 45 4E 45 4E  |AUS EINGEGEBENEN|
00000600: 20 58 2D 57 45 52 54 45  4E 20 42 45 52 45 43 48  | X-WERTEN BERECH|
00000610: 4E 45 4E 2E 22 3A 99 00  46 46 36 01 99 22 20 45  |NEN.":..FF6.." E|
00000620: 49 4E 20 53 43 41 54 54  45 52 44 49 41 47 52 41  |IN SCATTERDIAGRA|
00000630: 4D 4D 20 55 4E 44 20 44  49 45 20 45 52 4D 49 54  |MM UND DIE ERMIT|
00000640: 54 45 4C 54 45 22 00 70  46 40 01 99 22 4B 55 52  |TELTE".pF@.."KUR|
00000650: 56 45 20 57 45 52 44 45  4E 20 47 45 5A 45 49 43  |VE WERDEN GEZEIC|
00000660: 48 4E 45 54 2E 20 41 55  46 20 44 49 45 53 45 22  |HNET. AUF DIESE"|
00000670: 00 9E 46 4A 01 99 22 57  45 49 53 45 20 4B 41 4E  |..FJ.."WEISE KAN|
00000680: 4E 20 44 49 45 20 51 55  41 4C 49 54 41 45 54 20  |N DIE QUALITAET |
00000690: 44 45 52 20 41 4E 50 41  53 53 55 4E 47 22 00 BD  |DER ANPASSUNG"..|
000006A0: 46 54 01 99 22 45 49 4E  47 45 53 43 48 41 45 54  |FT.."EINGESCHAET|
000006B0: 5A 54 20 57 45 52 44 45  4E 2E 22 3A 99 00 E9 46  |ZT WERDEN.":...F|
000006C0: 5E 01 99 22 20 53 4F 47  45 4E 41 4E 4E 54 45 20  |^.." SOGENANNTE |
000006D0: 41 55 53 52 45 49 53 53  45 52 2D 57 45 52 54 45  |AUSREISSER-WERTE|
000006E0: 20 53 4F 4C 4C 54 45 4E  22 00 14 47 68 01 99 22  | SOLLTEN"..Gh.."|
000006F0: 56 4F 52 20 45 49 4E 45  52 20 47 45 4E 41 55 45  |VOR EINER GENAUE|
00000700: 52 45 4E 20 42 45 52 45  43 48 4E 55 4E 47 20 4E  |REN BERECHNUNG N|
00000710: 4F 43 48 22 00 30 47 72  01 99 22 45 4E 54 46 45  |OCH".0Gr.."ENTFE|
00000720: 52 4E 54 20 57 45 52 44  45 4E 2E 22 3A 99 3A 99  |RNT WERDEN.":.:.|
00000730: 00 52 47 7C 01 99 C7 28  31 38 29 22 54 41 53 54  |.RG|...(18)"TAST|
00000740: 45 20 44 52 55 45 43 4B  45 4E 21 22 C7 28 31 34  |E DRUECKEN!".(14|
00000750: 36 29 00 69 47 86 01 A1  20 41 24 3A 8B 20 41 24  |6).iG... A$:. A$|
00000760: B2 22 22 20 A7 20 33 39  30 00 8F 47 90 01 8F 20  |."" . 390..G... |
00000770: 2D 2D 2D 2D 2D 20 48 41  55 50 54 4D 45 4E 55 45  |----- HAUPTMENUE|
00000780: 20 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 00  | --------------.|
00000790: A3 47 9A 01 99 C7 28 31  34 37 29 3A 99 3A 99 3A  |.G....(147):.:.:|
000007A0: 99 3A 99 00 CF 47 A4 01  99 A3 34 29 22 57 45 52  |.:...G....4)"WER|
000007B0: 54 45 20 56 4F 4E 20 48  41 4E 44 20 45 49 4E 47  |TE VON HAND EING|
000007C0: 45 42 45 4E 2E 2E 2E 2E  2E 2E 2E 31 22 3A 99 00  |EBEN.......1":..|
000007D0: FB 47 AE 01 99 A3 34 29  22 57 45 52 54 45 20 41  |.G....4)"WERTE A|
000007E0: 55 53 20 44 41 54 45 49  20 4C 45 53 45 4E 2E 2E  |US DATEI LESEN..|
000007F0: 2E 2E 2E 2E 2E 2E 2E 32  22 3A 99 00 27 48 B8 01  |.......2":..'H..|
00000800: 99 A3 34 29 22 47 52 41  46 49 4B 20 5A 45 49 47  |..4)"GRAFIK ZEIG|
00000810: 45 4E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |EN..............|
00000820: 2E 2E 2E 33 22 3A 99 00  53 48 C2 01 99 A3 34 29  |...3":..SH....4)|
00000830: 22 54 45 58 54 4D 4F 44  55 53 20 45 49 4E 53 43  |"TEXTMODUS EINSC|
00000840: 48 41 4C 54 45 4E 2E 2E  2E 2E 2E 2E 2E 2E 2E 34  |HALTEN.........4|
00000850: 22 3A 99 00 7F 48 CC 01  99 A3 34 29 22 50 4F 4C  |":...H....4)"POL|
00000860: 59 4E 4F 4D 46 55 4E 4B  54 49 4F 4E 20 42 45 52  |YNOMFUNKTION BER|
00000870: 45 43 48 4E 45 4E 2E 2E  2E 2E 2E 35 22 3A 99 00  |ECHNEN.....5":..|
00000880: AB 48 D6 01 99 A3 34 29  22 57 45 52 54 45 20 42  |.H....4)"WERTE B|
00000890: 45 52 45 43 48 4E 45 4E  2E 2E 2E 2E 2E 2E 2E 2E  |ERECHNEN........|
000008A0: 2E 2E 2E 2E 2E 2E 2E 36  22 3A 99 00 D9 48 E0 01  |.......6":...H..|
000008B0: 99 A3 34 29 22 50 52 4F  47 52 41 4D 4D 45 4E 44  |..4)"PROGRAMMEND|
000008C0: 45 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |E...............|
000008D0: 2E 2E 2E 37 22 3A 99 3A  99 00 02 49 EA 01 99 A3  |...7":.:...I....|
000008E0: 31 30 29 C7 28 31 38 29  22 42 49 54 54 45 20 57  |10).(18)"BITTE W|
000008F0: 41 45 48 4C 45 4E 20 53  49 45 21 22 C7 28 31 34  |AEHLEN SIE!".(14|
00000900: 36 29 00 25 49 F4 01 A1  20 41 24 3A 8B 20 C5 28  |6).%I... A$:. .(|
00000910: 41 24 29 B3 31 20 B0 20  C5 28 41 24 29 B1 37 20  |A$).1 . .(A$).7 |
00000920: A7 20 35 30 30 00 3F 49  FE 01 99 C7 28 31 34 37  |. 500.?I....(147|
00000930: 29 3A 8B 20 C5 28 41 24  29 B2 37 20 A7 20 80 00  |):. .(A$).7 . ..|
00000940: 6B 49 08 02 91 20 C5 28  41 24 29 20 8D 20 31 30  |kI... .(A$) . 10|
00000950: 30 30 2C 32 30 30 30 2C  33 30 30 30 2C 34 30 30  |00,2000,3000,400|
00000960: 30 2C 35 30 30 30 2C 36  30 30 30 00 75 49 12 02  |0,5000,6000.uI..|
00000970: 89 20 34 31 30 00 9B 49  1C 02 8F 20 2D 2D 2D 2D  |. 410..I... ----|
00000980: 2D 20 45 4E 44 45 20 48  41 55 50 54 50 52 4F 47  |- ENDE HAUPTPROG|
00000990: 52 41 4D 4D 20 2D 2D 2D  2D 2D 2D 00 C0 49 E8 03  |RAMM ------..I..|
000009A0: 8F 20 2D 2D 2D 2D 2D 20  57 45 52 54 45 20 56 4F  |. ----- WERTE VO|
000009B0: 4E 20 48 41 4E 44 20 2D  2D 2D 2D 2D 2D 2D 2D 2D  |N HAND ---------|
000009C0: 00 D7 49 ED 03 8D 20 34  30 30 30 3A 8F 20 54 45  |..I... 4000:. TE|
000009D0: 58 54 4D 4F 44 55 53 00  0F 4A F2 03 8B 20 57 B2  |XTMODUS..J... W.|
000009E0: 31 20 A7 20 99 22 57 45  52 54 45 20 53 43 48 4F  |1 . ."WERTE SCHO|
000009F0: 4E 20 56 4F 52 48 41 4E  44 45 4E 21 22 3A 81 20  |N VORHANDEN!":. |
00000A00: 49 B2 30 20 A4 20 35 30  30 3A 82 20 49 3A 8E 00  |I.0 . 500:. I:..|
00000A10: 17 4A FC 03 57 B2 31 00  45 4A 06 04 99 22 57 49  |.J..W.1.EJ..."WI|
00000A20: 45 56 49 45 4C 45 20 57  45 52 54 45 20 57 45 52  |EVIELE WERTE WER|
00000A30: 44 45 4E 20 56 45 52 57  45 4E 44 45 54 20 3F 22  |DEN VERWENDET ?"|
00000A40: 3A 85 4E 3A 99 00 52 4A  10 04 86 20 57 28 31 2C  |:.N:..RJ... W(1,|
00000A50: 4E 29 00 83 4A 13 04 8F  20 41 3D 46 52 45 28 30  |N)..J... A=FRE(0|
00000A60: 29 2D 32 30 30 30 3A 52  45 4D 20 46 52 45 49 45  |)-2000:REM FREIE|
00000A70: 52 20 53 50 45 49 43 48  45 52 50 4C 41 54 5A 20  |R SPEICHERPLATZ |
00000A80: 43 36 34 00 93 4A 15 04  41 B2 B8 28 31 29 AB 32  |C64..J..A..(1).2|
00000A90: 30 30 30 00 B7 4A 17 04  47 B2 A5 47 28 4E 29 3A  |000..J..G..G(N):|
00000AA0: 8F 20 4D 41 58 49 4D 41  4C 45 52 20 50 4F 4C 59  |. MAXIMALER POLY|
00000AB0: 4E 4F 4D 47 52 41 44 00  DB 4A 1A 04 99 22 42 49  |NOMGRAD..J..."BI|
00000AC0: 54 54 45 20 57 45 52 54  45 50 41 41 52 45 20 45  |TTE WERTEPAARE E|
00000AD0: 49 4E 47 45 42 45 4E 21  22 3A 99 00 E9 4A 24 04  |INGEBEN!":...J$.|
00000AE0: 81 20 49 B2 31 20 A4 20  4E 00 17 4B 2E 04 99 49  |. I.1 . N..K...I|
00000AF0: 2C 22 58 3D 22 3B 3A 85  57 28 30 2C 49 29 3A 99  |,"X=";:.W(0,I):.|
00000B00: C7 28 31 34 35 29 2C 2C  22 59 3D 22 3B 3A 85 57  |.(145),,"Y=";:.W|
00000B10: 28 31 2C 49 29 3A 99 00  3C 4B 38 04 8D 20 31 33  |(1,I):..<K8.. 13|
00000B20: 30 30 3A 8F 20 5A 57 49  53 43 48 45 4E 57 45 52  |00:. ZWISCHENWER|
00000B30: 54 45 20 42 45 52 45 43  48 4E 45 4E 00 44 4B 42  |TE BERECHNEN.DKB|
00000B40: 04 82 20 49 00 7A 4B 4C  04 99 C7 28 31 34 37 29  |.. I.zKL...(147)|
00000B50: 3A 99 3A 99 22 53 4F 4C  4C 45 4E 20 44 49 45 20  |:.:."SOLLEN DIE |
00000B60: 57 45 52 54 45 20 47 45  53 50 45 49 43 48 45 52  |WERTE GESPEICHER|
00000B70: 54 20 57 45 52 44 45 4E  3F 22 00 9E 4B 56 04 A1  |T WERDEN?"..KV..|
00000B80: 20 41 24 3A 8B 20 41 24  B3 B1 22 4A 22 20 AF 20  | A$:. A$.."J" . |
00000B90: 41 24 B3 B1 22 4E 22 20  A7 20 31 31 31 30 00 B2  |A$.."N" . 1110..|
00000BA0: 4B 60 04 8B 20 41 24 B2  22 4E 22 20 A7 20 31 31  |K`.. A$."N" . 11|
00000BB0: 39 30 00 DD 4B 6A 04 99  3A 99 22 4E 41 4D 45 20  |90..Kj..:."NAME |
00000BC0: 44 45 52 20 44 41 54 45  49 20 28 31 31 20 5A 45  |DER DATEI (11 ZE|
00000BD0: 49 43 48 45 4E 29 22 3B  3A 85 20 42 24 00 FB 4B  |ICHEN)";:. B$..K|
00000BE0: 74 04 42 24 B2 C8 28 42  24 2C 31 31 29 AA 22 2E  |t.B$..(B$,11).".|
00000BF0: 44 41 54 22 AA 22 2C 53  2C 57 22 00 0A 4C 7E 04  |DAT".",S,W"..L~.|
00000C00: 9F 20 31 2C 38 2C 32 2C  42 24 00 13 4C 88 04 98  |. 1,8,2,B$..L...|
00000C10: 31 2C 4E 00 39 4C 92 04  81 20 49 B2 31 20 A4 20  |1,N.9L... I.1 . |
00000C20: 4E 3A 98 31 2C 57 28 30  2C 49 29 3A 98 31 2C 57  |N:.1,W(0,I):.1,W|
00000C30: 28 31 2C 49 29 3A 82 20  49 00 41 4C 9C 04 A0 20  |(1,I):. I.AL... |
00000C40: 31 00 67 4C A6 04 8D 20  31 35 30 30 3A 8F 20 53  |1.gL... 1500:. S|
00000C50: 43 41 54 54 45 52 44 49  41 47 52 41 4D 4D 20 5A  |CATTERDIAGRAMM Z|
00000C60: 45 49 43 48 4E 45 4E 00  6D 4C B0 04 8E 00 92 4C  |EICHNEN.mL.....L|
00000C70: 14 05 8F 20 2D 2D 2D 20  5A 57 49 53 43 48 45 4E  |... --- ZWISCHEN|
00000C80: 57 45 52 54 45 20 42 45  52 45 43 48 4E 45 4E 20  |WERTE BERECHNEN |
00000C90: 2D 2D 00 AE 4C 50 05 8B  20 57 28 30 2C 49 29 B1  |--..LP.. W(0,I).|
00000CA0: 4D 58 20 A7 20 4D 58 B2  57 28 30 2C 49 29 00 CA  |MX . MX.W(0,I)..|
00000CB0: 4C 5A 05 8B 20 57 28 30  2C 49 29 B3 4C 58 20 A7  |LZ.. W(0,I).LX .|
00000CC0: 20 4C 58 B2 57 28 30 2C  49 29 00 E6 4C 64 05 8B  | LX.W(0,I)..Ld..|
00000CD0: 20 57 28 31 2C 49 29 B1  4D 59 20 A7 20 4D 59 B2  | W(1,I).MY . MY.|
00000CE0: 57 28 31 2C 49 29 00 02  4D 6E 05 8B 20 57 28 31  |W(1,I)..Mn.. W(1|
00000CF0: 2C 49 29 B3 4C 59 20 A7  20 4C 59 B2 57 28 31 2C  |,I).LY . LY.W(1,|
00000D00: 49 29 00 08 4D 78 05 8E  00 2D 4D DC 05 8F 20 2D  |I)..Mx...-M... -|
00000D10: 2D 2D 20 53 43 41 54 54  45 52 44 49 41 47 52 41  |-- SCATTERDIAGRA|
00000D20: 4D 4D 20 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 00 69 4D  |MM ----------.iM|
00000D30: E1 05 86 20 41 28 32 AC  47 AA 31 29 2C 52 28 47  |... A(2.G.1),R(G|
00000D40: AA 31 2C 47 AA 32 29 2C  54 28 47 AA 32 29 3A 8F  |.1,G.2),T(G.2):.|
00000D50: 20 41 52 52 41 59 53 20  46 55 45 52 20 42 45 52  | ARRAYS FUER BER|
00000D60: 45 43 48 4E 55 4E 47 45  4E 00 8C 4D E6 05 81 20  |ECHNUNGEN..M... |
00000D70: 49 B2 31 20 A4 20 4E AB  31 3A 8F 20 53 4F 52 54  |I.1 . N.1:. SORT|
00000D80: 49 45 52 45 4E 20 4E 41  43 48 20 58 00 9C 4D F0  |IEREN NACH X..M.|
00000D90: 05 81 20 4A B2 49 AA 31  20 A4 20 4E 00 B8 4D FA  |.. J.I.1 . N..M.|
00000DA0: 05 8B 20 57 28 30 2C 49  29 B3 B2 57 28 30 2C 4A  |.. W(0,I)..W(0,J|
00000DB0: 29 20 A7 20 31 35 36 30  00 F4 4D 04 06 57 28 30  |) . 1560..M..W(0|
00000DC0: 2C 30 29 B2 57 28 30 2C  49 29 3A 57 28 31 2C 30  |,0).W(0,I):W(1,0|
00000DD0: 29 B2 57 28 31 2C 49 29  3A 57 28 30 2C 49 29 B2  |).W(1,I):W(0,I).|
00000DE0: 57 28 30 2C 4A 29 3A 57  28 31 2C 49 29 B2 57 28  |W(0,J):W(1,I).W(|
00000DF0: 31 2C 4A 29 00 14 4E 0E  06 57 28 30 2C 4A 29 B2  |1,J)..N..W(0,J).|
00000E00: 57 28 30 2C 30 29 3A 57  28 31 2C 4A 29 B2 57 28  |W(0,0):W(1,J).W(|
00000E10: 31 2C 30 29 00 20 4E 18  06 82 20 4A 3A 82 20 49  |1,0). N... J:. I|
00000E20: 00 62 4E 22 06 8F 20 53  59 53 20 34 39 31 35 32  |.bN".. SYS 49152|
00000E30: 3A 53 59 53 20 34 39 31  38 30 3A 53 59 53 20 34  |:SYS 49180:SYS 4|
00000E40: 39 32 30 32 2C 36 2C 30  3A 52 45 4D 20 47 52 41  |9202,6,0:REM GRA|
00000E50: 46 49 4B 20 4C 4F 45 53  43 48 45 4E 20 46 41 52  |FIK LOESCHEN FAR|
00000E60: 42 45 00 75 4E 2C 06 DE  31 2C 31 3A E7 30 2C 31  |BE.uN,..1,1:.0,1|
00000E70: 3A E7 31 2C 37 00 AB 4E  36 06 8F 20 53 59 53 20  |:.1,7..N6.. SYS |
00000E80: 34 39 33 35 32 2C 30 2C  30 2C 33 31 39 2C 30 2C  |49352,0,0,319,0,|
00000E90: 31 3A 53 59 53 20 34 39  33 35 32 2C 33 31 39 2C  |1:SYS 49352,319,|
00000EA0: 30 2C 33 31 39 2C 31 39  39 2C 31 00 D7 4E 40 06  |0,319,199,1..N@.|
00000EB0: E5 20 31 2C 30 2C 30 20  A4 20 33 31 39 2C 30 20  |. 1,0,0 . 319,0 |
00000EC0: A4 20 33 31 39 2C 31 39  39 20 A4 20 30 2C 31 39  |. 319,199 . 0,19|
00000ED0: 39 20 A4 20 30 2C 30 00  18 4F 4A 06 8F 20 53 59  |9 . 0,0..OJ.. SY|
00000EE0: 53 20 34 39 33 35 32 2C  33 31 39 2C 31 39 39 2C  |S 49352,319,199,|
00000EF0: 30 2C 31 39 39 2C 31 3A  53 59 53 20 34 39 33 35  |0,199,1:SYS 4935|
00000F00: 32 2C 30 2C 31 39 39 2C  30 2C 30 2C 31 3A 52 45  |2,0,199,0,0,1:RE|
00000F10: 4D 20 52 41 48 4D 45 4E  00 40 4F 54 06 58 55 B2  |M RAHMEN.@OT.XU.|
00000F20: 4C 58 AB 28 4D 58 AB 4C  58 29 AC 2E 30 32 3A 58  |LX.(MX.LX)..02:X|
00000F30: 4F B2 4D 58 AA 28 4D 58  AB 4C 58 29 AC 2E 30 32  |O.MX.(MX.LX)..02|
00000F40: 00 68 4F 5E 06 59 55 B2  4C 59 AB 28 4D 59 AB 4C  |.hO^.YU.LY.(MY.L|
00000F50: 59 29 AC 2E 30 32 3A 59  4F B2 4D 59 AA 28 4D 59  |Y)..02:YO.MY.(MY|
00000F60: AB 4C 59 29 AC 2E 30 32  00 89 4F 68 06 52 41 B2  |.LY)..02..Oh.RA.|
00000F70: 42 42 AD 28 58 4F AB 58  55 29 3A 52 44 B2 AB 42  |BB.(XO.XU):RD..B|
00000F80: 48 AD 28 59 4F AB 59 55  29 00 B0 4F 72 06 54 41  |H.(YO.YU)..Or.TA|
00000F90: B2 AB 42 42 AC 58 55 AD  28 58 4F AB 58 55 29 3A  |..BB.XU.(XO.XU):|
00000FA0: 54 42 B2 42 48 AC 59 4F  AD 28 59 4F AB 59 55 29  |TB.BH.YO.(YO.YU)|
00000FB0: 00 BE 4F 7C 06 81 20 49  B2 31 20 A4 20 4E 00 DC  |..O|.. I.1 . N..|
00000FC0: 4F 86 06 58 B2 A5 58 28  57 28 30 2C 49 29 29 3A  |O..X..X(W(0,I)):|
00000FD0: 59 B2 A5 59 28 57 28 31  2C 49 29 29 00 1A 50 90  |Y..Y(W(1,I))..P.|
00000FE0: 06 8F 20 53 59 53 34 39  33 35 32 2C 58 2D 33 2C  |.. SYS49352,X-3,|
00000FF0: 59 2C 58 2B 33 2C 59 2C  31 3A 53 59 53 34 39 33  |Y,X+3,Y,1:SYS493|
00001000: 35 32 2C 58 2C 59 2D 33  2C 58 2C 59 2B 33 2C 31  |52,X,Y-3,X,Y+3,1|
00001010: 3A 52 45 4D 20 4B 52 45  55 5A 00 40 50 91 06 E5  |:REM KREUZ.@P...|
00001020: 31 2C 58 AB 33 2C 59 20  A4 20 58 AA 33 2C 59 3A  |1,X.3,Y . X.3,Y:|
00001030: E5 31 2C 58 2C 59 AB 33  20 A4 20 58 2C 59 AA 33  |.1,X,Y.3 . X,Y.3|
00001040: 00 48 50 9A 06 82 20 49  00 60 50 A4 06 A1 20 41  |.HP... I.`P... A|
00001050: 24 3A 8B 20 41 24 B2 22  22 20 A7 20 31 37 30 30  |$:. A$."" . 1700|
00001060: 00 7E 50 AE 06 8F 20 53  59 53 20 34 39 32 34 32  |.~P... SYS 49242|
00001070: 3A 52 45 4D 20 54 45 58  54 4D 4F 44 55 53 00 98  |:REM TEXTMODUS..|
00001080: 50 AF 06 8B 20 C2 28 32  33 38 29 B2 37 39 20 A7  |P... .(238).79 .|
00001090: 20 DE 35 3A D5 20 DE 30  00 B4 50 B8 06 99 22 58  | .5:. .0..P..."X|
000010A0: 55 20 3D 20 20 22 4C 58  2C 22 58 4F 20 3D 20 20  |U =  "LX,"XO =  |
000010B0: 22 4D 58 22 00 D0 50 C2  06 99 22 59 55 20 3D 20  |"MX"..P..."YU = |
000010C0: 20 22 4C 59 2C 22 59 4F  20 3D 20 20 22 4D 59 22  | "LY,"YO =  "MY"|
000010D0: 00 E8 50 CC 06 A1 20 41  24 3A 8B 20 41 24 B2 22  |..P... A$:. A$."|
000010E0: 22 20 A7 20 31 37 34 30  00 EE 50 D6 06 8E 00 13  |" . 1740..P.....|
000010F0: 51 D0 07 8F 20 2D 2D 2D  2D 2D 20 57 45 52 54 45  |Q... ----- WERTE|
00001100: 20 41 55 53 20 44 41 54  45 49 20 2D 2D 2D 2D 2D  | AUS DATEI -----|
00001110: 2D 2D 2D 00 2A 51 D5 07  8D 20 34 30 30 30 3A 8F  |---.*Q... 4000:.|
00001120: 20 54 45 58 54 4D 4F 44  55 53 00 62 51 DA 07 8B  | TEXTMODUS.bQ...|
00001130: 20 57 B2 31 20 A7 20 99  22 57 45 52 54 45 20 53  | W.1 . ."WERTE S|
00001140: 43 48 4F 4E 20 56 4F 52  48 41 4E 44 45 4E 21 22  |CHON VORHANDEN!"|
00001150: 3A 81 20 49 B2 30 20 A4  20 35 30 30 3A 82 20 49  |:. I.0 . 500:. I|
00001160: 3A 8E 00 6A 51 E4 07 57  B2 31 00 97 51 EE 07 99  |:..jQ..W.1..Q...|
00001170: 22 20 44 49 45 20 44 41  54 45 49 20 4D 55 53 53  |" DIE DATEI MUSS|
00001180: 20 45 49 4E 20 42 45 53  54 49 4D 4D 54 45 53 20  | EIN BESTIMMTES |
00001190: 46 4F 52 4D 41 54 22 00  C1 51 F8 07 99 22 48 41  |FORMAT"..Q..."HA|
000011A0: 42 45 4E 3A 20 20 20 20  20 31 2E 41 4E 5A 41 48  |BEN:     1.ANZAH|
000011B0: 4C 20 44 45 52 20 57 45  52 54 45 50 41 41 52 45  |L DER WERTEPAARE|
000011C0: 22 00 E6 51 02 08 99 22  20 20 20 20 20 20 20 20  |"..Q..."        |
000011D0: 20 20 20 31 2E 57 45 52  54 20 58 2C 20 31 2E 57  |   1.WERT X, 1.W|
000011E0: 45 52 54 20 59 22 00 11  52 0C 08 99 22 20 20 20  |ERT Y"..R..."   |
000011F0: 20 20 20 20 20 20 20 20  32 2E 57 45 52 54 20 58  |        2.WERT X|
00001200: 2C 20 32 2E 57 45 52 54  20 59 20 2E 2E 2E 22 3A  |, 2.WERT Y ...":|
00001210: 99 00 40 52 16 08 99 22  44 49 45 53 45 20 44 41  |..@R..."DIESE DA|
00001220: 54 45 49 45 4E 20 57 45  52 44 45 4E 20 55 4E 54  |TEIEN WERDEN UNT|
00001230: 45 52 20 4D 45 4E 55 45  50 55 4E 4B 54 20 31 22  |ER MENUEPUNKT 1"|
00001240: 00 70 52 20 08 99 22 45  52 53 54 45 4C 4C 54 2E  |.pR .."ERSTELLT.|
00001250: 20 53 49 45 20 54 52 41  47 45 4E 20 44 49 45 20  | SIE TRAGEN DIE |
00001260: 45 4E 44 55 4E 47 20 2E  44 41 54 20 2E 22 3A 99  |ENDUNG .DAT .":.|
00001270: 00 92 52 2A 08 99 22 20  41 4C 4C 45 53 20 4B 4C  |..R*.." ALLES KL|
00001280: 41 52 2E 2E 31 20 20 41  43 48 20 53 4F 4F 2E 2E  |AR..1  ACH SOO..|
00001290: 32 22 00 B6 52 34 08 A1  20 41 24 3A 8B 20 C5 28  |2"..R4.. A$:. .(|
000012A0: 41 24 29 B3 31 20 B0 20  C5 28 41 24 29 B1 32 20  |A$).1 . .(A$).2 |
000012B0: A7 20 32 31 30 30 00 CC  52 3E 08 8B 20 C5 28 41  |. 2100..R>.. .(A|
000012C0: 24 29 B2 32 20 A7 20 57  B2 30 3A 8E 00 FD 52 48  |$).2 . W.0:...RH|
000012D0: 08 99 3A 99 22 57 49 45  20 48 45 49 53 53 54 20  |..:."WIE HEISST |
000012E0: 44 45 4E 4E 20 44 49 45  20 44 41 54 45 49 20 28  |DENN DIE DATEI (|
000012F0: 45 4E 44 55 4E 47 20 2E  44 41 54 29 22 00 06 53  |ENDUNG .DAT)"..S|
00001300: 52 08 85 20 42 24 00 17  53 5C 08 42 24 B2 42 24  |R.. B$..S\.B$.B$|
00001310: AA 22 2C 53 2C 52 22 00  25 53 66 08 9F 31 2C 38  |.",S,R".%Sf..1,8|
00001320: 2C 32 2C 42 24 00 2E 53  70 08 84 31 2C 4E 00 3B  |,2,B$..Sp..1,N.;|
00001330: 53 7A 08 86 20 57 28 31  2C 4E 29 00 6C 53 7D 08  |Sz.. W(1,N).lS}.|
00001340: 8F 20 41 3D 46 52 45 28  30 29 2D 32 30 30 30 3A  |. A=FRE(0)-2000:|
00001350: 52 45 4D 20 46 52 45 49  45 52 20 53 50 45 49 43  |REM FREIER SPEIC|
00001360: 48 45 52 50 4C 41 54 5A  20 43 36 34 00 7C 53 7F  |HERPLATZ C64.|S.|
00001370: 08 41 B2 B8 28 31 29 AB  32 30 30 30 00 A0 53 81  |.A..(1).2000..S.|
00001380: 08 47 B2 A5 47 28 4E 29  3A 8F 20 4D 41 58 49 4D  |.G..G(N):. MAXIM|
00001390: 41 4C 45 52 20 50 4F 4C  59 4E 4F 4D 47 52 41 44  |ALER POLYNOMGRAD|
000013A0: 00 AE 53 84 08 81 20 49  B2 31 20 A4 20 4E 00 C6  |..S... I.1 . N..|
000013B0: 53 8E 08 84 31 2C 57 28  30 2C 49 29 3A 84 31 2C  |S...1,W(0,I):.1,|
000013C0: 57 28 31 2C 49 29 00 EB  53 98 08 8D 20 31 33 30  |W(1,I)..S... 130|
000013D0: 30 3A 8F 20 5A 57 49 53  43 48 45 4E 57 45 52 54  |0:. ZWISCHENWERT|
000013E0: 45 20 42 45 52 45 43 48  4E 45 4E 00 F3 53 A2 08  |E BERECHNEN..S..|
000013F0: 82 20 49 00 FB 53 AC 08  A0 20 31 00 18 54 B6 08  |. I..S... 1..T..|
00001400: 8D 20 31 35 30 30 3A 8F  20 53 43 41 54 54 45 52  |. 1500:. SCATTER|
00001410: 44 49 41 47 52 41 4D 4D  00 1E 54 C0 08 8E 00 43  |DIAGRAMM..T....C|
00001420: 54 B8 0B 8F 20 2D 2D 2D  2D 2D 20 47 52 41 46 49  |T... ----- GRAFI|
00001430: 4B 20 5A 45 49 47 45 4E  20 2D 2D 2D 2D 2D 2D 2D  |K ZEIGEN -------|
00001440: 2D 2D 2D 00 7E 54 C2 0B  8B 20 57 B2 30 20 A7 20  |---.~T... W.0 . |
00001450: 99 22 44 41 20 46 45 48  4C 45 4E 20 4E 4F 43 48  |."DA FEHLEN NOCH|
00001460: 20 44 49 45 20 57 45 52  54 45 21 22 3A 81 20 49  | DIE WERTE!":. I|
00001470: B2 30 20 A4 20 35 30 30  3A 82 20 49 3A 8E 00 AB  |.0 . 500:. I:...|
00001480: 54 CC 0B 8F 20 53 59 53  20 34 39 31 35 32 3A 53  |T... SYS 49152:S|
00001490: 59 53 20 34 39 32 30 32  2C 36 2C 30 3A 52 45 4D  |YS 49202,6,0:REM|
000014A0: 20 47 52 41 46 49 4B 20  45 49 4E 00 B4 54 CD 0B  | GRAFIK EIN..T..|
000014B0: DE 31 3A 8E 00 D9 54 D6  0B 8F 20 47 45 54 20 41  |.1:...T... GET A|
000014C0: 24 3A 49 46 20 56 41 4C  28 41 24 29 3C 3E 34 20  |$:IF VAL(A$)<>4 |
000014D0: 54 48 45 4E 20 33 30 32  30 00 FB 54 E0 0B 8F 20  |THEN 3020..T... |
000014E0: 47 4F 54 4F 20 34 30 31  30 3A 52 45 4D 20 54 45  |GOTO 4010:REM TE|
000014F0: 58 54 4D 4F 44 55 53 20  45 49 4E 00 20 55 A0 0F  |XTMODUS EIN. U..|
00001500: 8F 20 2D 2D 2D 2D 2D 20  54 45 58 54 4D 4F 44 55  |. ----- TEXTMODU|
00001510: 53 20 45 49 4E 20 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |S EIN ----------|
00001520: 00 42 55 AA 0F 8F 20 53  59 53 20 34 39 32 34 32  |.BU... SYS 49242|
00001530: 3A 52 45 4D 20 54 45 58  54 4D 4F 44 55 53 20 45  |:REM TEXTMODUS E|
00001540: 49 4E 00 5C 55 AB 0F 8B  20 C2 28 32 33 38 29 B2  |IN.\U... .(238).|
00001550: 37 39 20 A7 20 DE 35 3A  D5 20 DE 30 00 62 55 B4  |79 . .5:. .0.bU.|
00001560: 0F 8E 00 97 55 88 13 8F  20 2D 2D 2D 2D 20 50 4F  |....U... ---- PO|
00001570: 4C 59 4E 4F 4D 2D 42 45  52 45 43 48 4E 55 4E 47  |LYNOM-BERECHNUNG|
00001580: 20 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  | ---------------|
00001590: 2D 2D 2D 2D 2D 2D 2D 00  AE 55 8A 13 8D 20 34 30  |-------..U... 40|
000015A0: 30 30 3A 8F 20 54 45 58  54 4D 4F 44 55 53 00 E4  |00:. TEXTMODUS..|
000015B0: 55 8C 13 8B 20 57 B2 30  20 A7 20 99 22 44 41 20  |U... W.0 . ."DA |
000015C0: 46 45 48 4C 45 4E 20 44  49 45 20 57 45 52 54 45  |FEHLEN DIE WERTE|
000015D0: 21 22 3A 81 20 49 B2 30  20 A4 20 35 30 30 3A 82  |!":. I.0 . 500:.|
000015E0: 20 49 3A 8E 00 21 56 92  13 99 C7 28 31 34 37 29  | I:..!V....(147)|
000015F0: C7 28 31 37 29 C7 28 31  37 29 22 57 45 4C 43 48  |.(17).(17)"WELCH|
00001600: 45 4E 20 47 52 41 44 20  53 4F 4C 4C 20 44 41 53  |EN GRAD SOLL DAS|
00001610: 20 50 4F 4C 59 4E 4F 4D  20 48 41 42 45 4E 20 3F  | POLYNOM HABEN ?|
00001620: 22 00 5A 56 9C 13 99 3A  99 22 4D 41 58 49 4D 41  |".ZV...:."MAXIMA|
00001630: 4C 20 45 52 4C 41 55 42  54 20 49 53 54 20 45 49  |L ERLAUBT IST EI|
00001640: 4E 20 50 4F 4C 59 4E 4F  4D 20 22 3A 99 2C 47 22  |N POLYNOM ":.,G"|
00001650: 2E 47 52 41 44 45 53 20  2E 22 00 9D 56 A6 13 99  |.GRADES ."..V...|
00001660: 3A 99 22 42 45 49 20 4F  56 45 52 46 4C 4F 57 2D  |:."BEI OVERFLOW-|
00001670: 45 52 52 4F 52 20 49 53  54 20 44 45 52 22 3A 99  |ERROR IST DER":.|
00001680: 22 57 49 45 44 45 52 45  49 4E 53 54 49 45 47 20  |"WIEDEREINSTIEG |
00001690: 49 4E 53 20 50 52 4F 47  52 41 4D 4D 22 00 BE 56  |INS PROGRAMM"..V|
000016A0: B0 13 99 22 4D 4F 45 47  4C 49 43 48 20 4D 49 54  |..."MOEGLICH MIT|
000016B0: 20 27 47 4F 54 4F 20 34  30 30 27 20 21 22 00 E2  | 'GOTO 400' !"..|
000016C0: 56 BA 13 99 3A 85 22 50  4F 4C 59 4E 4F 4D 47 52  |V...:."POLYNOMGR|
000016D0: 41 44 3D 22 3B 47 32 3A  8B 47 32 B1 47 A7 35 30  |AD=";G2:.G2.G.50|
000016E0: 32 30 00 24 57 C4 13 81  49 B2 31 A4 47 32 AA 32  |20.$W...I.1.G2.2|
000016F0: 3A 54 28 49 29 B2 30 3A  41 28 49 29 B2 30 3A 41  |:T(I).0:A(I).0:A|
00001700: 28 B6 28 32 AC 49 AB 33  29 29 B2 30 3A 81 4B B2  |(.(2.I.3)).0:.K.|
00001710: 31 A4 47 AA 31 3A 52 28  4B 2C 49 29 B2 30 3A 82  |1.G.1:R(K,I).0:.|
00001720: 4B 3A 82 49 00 4E 57 CE  13 41 28 31 29 B2 4E 3A  |K:.I.NW..A(1).N:|
00001730: 5A 5A B2 30 3A 4D B2 30  3A 53 B2 30 3A 48 48 B2  |ZZ.0:M.0:S.0:HH.|
00001740: 30 3A 51 B2 30 3A 50 B2  30 3A 41 30 B2 30 00 7F  |0:Q.0:P.0:A0.0..|
00001750: 57 D8 13 81 49 B2 31 A4  4E 3A 81 4C B2 32 A4 32  |W...I.1.N:.L.2.2|
00001760: AC 47 32 AA 31 3A 41 28  4C 29 B2 41 28 4C 29 AA  |.G2.1:A(L).A(L).|
00001770: 57 28 30 2C 49 29 AE 28  4C AB 31 29 3A 82 4C 00  |W(0,I).(L.1):.L.|
00001780: B0 57 E2 13 81 4B B2 31  A4 47 32 AA 31 3A 52 28  |.W...K.1.G2.1:R(|
00001790: 4B 2C 47 32 AA 32 29 B2  54 28 4B 29 AA 57 28 31  |K,G2.2).T(K).W(1|
000017A0: 2C 49 29 AC 57 28 30 2C  49 29 AE 28 4B AB 31 29  |,I).W(0,I).(K.1)|
000017B0: 00 F1 57 EC 13 54 28 4B  29 B2 54 28 4B 29 AA 57  |..W..T(K).T(K).W|
000017C0: 28 31 2C 49 29 AC 57 28  30 2C 49 29 AE 28 4B AB  |(1,I).W(0,I).(K.|
000017D0: 31 29 3A 82 4B 3A 54 28  47 32 AA 32 29 B2 54 28  |1):.K:T(G2.2).T(|
000017E0: 47 32 AA 32 29 AA 57 28  31 2C 49 29 AE 32 3A 82  |G2.2).W(1,I).2:.|
000017F0: 49 00 1F 58 F6 13 81 49  B2 31 A4 47 32 AA 31 3A  |I..X...I.1.G2.1:|
00001800: 81 4B B2 31 A4 47 32 AA  31 3A 52 28 49 2C 4B 29  |.K.1.G2.1:R(I,K)|
00001810: B2 41 28 49 AA 4B AB 31  29 3A 82 4B 3A 82 49 00  |.A(I.K.1):.K:.I.|
00001820: 47 58 00 14 81 49 B2 31  A4 47 32 AA 31 3A 81 4B  |GX...I.1.G2.1:.K|
00001830: B2 49 A4 47 32 AA 31 3A  8B 52 28 4B 2C 49 29 B3  |.I.G2.1:.R(K,I).|
00001840: B1 30 A7 35 31 35 30 00  5E 58 0A 14 8D 20 34 30  |.0.5150.^X... 40|
00001850: 30 30 3A 8F 20 54 45 58  54 4D 4F 44 55 53 00 80  |00:. TEXTMODUS..|
00001860: 58 14 14 99 22 4B 45 49  4E 45 20 45 49 4E 44 45  |X..."KEINE EINDE|
00001870: 55 54 49 47 45 20 4C 4F  45 53 55 4E 47 22 3A 8E  |UTIGE LOESUNG":.|
00001880: 00 B1 58 1E 14 81 4C B2  31 A4 47 32 AA 32 3A 53  |..X...L.1.G2.2:S|
00001890: B2 52 28 49 2C 4C 29 3A  52 28 49 2C 4C 29 B2 52  |.R(I,L):R(I,L).R|
000018A0: 28 4B 2C 4C 29 3A 52 28  4B 2C 4C 29 B2 53 3A 82  |(K,L):R(K,L).S:.|
000018B0: 4C 00 DD 58 28 14 4D B2  31 AD 52 28 49 2C 49 29  |L..X(.M.1.R(I,I)|
000018C0: 3A 81 4C B2 31 A4 47 32  AA 32 3A 52 28 49 2C 4C  |:.L.1.G2.2:R(I,L|
000018D0: 29 B2 4D AC 52 28 49 2C  4C 29 3A 82 4C 00 F5 58  |).M.R(I,L):.L..X|
000018E0: 32 14 81 4B B2 31 A4 47  32 AA 31 3A 8B 4B B2 49  |2..K.1.G2.1:.K.I|
000018F0: A7 35 31 39 30 00 27 59  3C 14 4D B2 AB 52 28 4B  |.5190.'Y<.M..R(K|
00001900: 2C 49 29 3A 81 4C B2 31  A4 47 32 AA 32 3A 52 28  |,I):.L.1.G2.2:R(|
00001910: 4B 2C 4C 29 B2 52 28 4B  2C 4C 29 AA 4D AC 52 28  |K,L).R(K,L).M.R(|
00001920: 49 2C 4C 29 3A 82 4C 00  3E 59 46 14 82 4B 3A 82  |I,L):.L.>YF..K:.|
00001930: 49 3A 41 30 B2 31 3A 99  C7 28 31 34 37 29 00 74  |I:A0.1:..(147).t|
00001940: 59 50 14 50 B2 30 3A 81  49 B2 32 A4 47 32 AA 31  |YP.P.0:.I.2.G2.1|
00001950: 3A 50 B2 50 AA 52 28 49  2C 47 32 AA 32 29 AC 28  |:P.P.R(I,G2.2).(|
00001960: 54 28 49 29 AB 41 28 49  29 AC 54 28 31 29 AD 4E  |T(I).A(I).T(1).N|
00001970: 29 3A 82 49 00 AF 59 5A  14 51 B2 54 28 47 32 AA  |):.I..YZ.Q.T(G2.|
00001980: 32 29 AB 54 28 31 29 AE  32 AD 4E 3A 5A 5A B2 51  |2).T(1).2.N:ZZ.Q|
00001990: AB 50 3A 42 B2 4E AB 47  32 AB 31 3A 48 48 B2 50  |.P:B.N.G2.1:HH.P|
000019A0: AD 51 3A 8B 42 B2 30 A7  42 B2 31 45 AB 32 33 00  |.Q:.B.0.B.1E.23.|
000019B0: C7 59 5F 14 41 30 B2 31  3A 8D 20 34 30 30 30 3A  |.Y_.A0.1:. 4000:|
000019C0: 99 C7 28 31 34 37 29 00  08 5A 64 14 99 22 44 41  |..(147)..Zd.."DA|
000019D0: 53 20 50 4F 4C 59 4E 4F  4D 20 22 47 32 22 2E 47  |S POLYNOM "G2".G|
000019E0: 52 41 44 45 53 20 49 53  54 3A 22 3A 99 3A 99 A3  |RADES IST:":.:..|
000019F0: 35 29 22 59 3D 41 30 2B  41 31 2A 58 2B 41 32 2A  |5)"Y=A0+A1*X+A2*|
00001A00: 58 5E 32 2B 2E 2E 2E 22  00 33 5A 6E 14 99 3A 99  |X^2+...".3Zn..:.|
00001A10: A3 33 29 22 4B 4F 4E 53  54 41 4E 54 45 20 41 30  |.3)"KONSTANTE A0|
00001A20: 3D 22 52 28 31 2C 47 32  AA 32 29 3A 81 49 B2 31  |="R(1,G2.2):.I.1|
00001A30: A4 47 32 00 5F 5A 78 14  99 A3 33 29 22 4B 4F 45  |.G2._Zx...3)"KOE|
00001A40: 46 46 49 5A 49 45 4E 54  20 41 22 49 22 3D 22 52  |FFIZIENT A"I"="R|
00001A50: 28 49 AA 31 2C 47 32 AA  32 29 3A 82 49 3A 99 00  |(I.1,G2.2):.I:..|
00001A60: 87 5A 82 14 99 A3 33 29  22 4B 4F 52 52 45 4C 41  |.Z....3)"KORRELA|
00001A70: 54 49 4F 4E 53 4B 4F 45  46 46 49 5A 49 45 4E 54  |TIONSKOEFFIZIENT|
00001A80: 3D 22 3A 99 2C 48 48 00  B4 5A 8C 14 99 3A 99 A3  |=":.,HH..Z...:..|
00001A90: 33 29 22 53 54 41 4E 44  41 52 44 41 42 57 45 49  |3)"STANDARDABWEI|
00001AA0: 43 48 55 4E 47 3D 22 3A  99 2C BA 28 B6 28 5A 5A  |CHUNG=":.,.(.(ZZ|
00001AB0: AD 42 29 29 00 E6 5A 96  14 99 3A 99 A3 33 29 22  |.B))..Z...:..3)"|
00001AC0: 47 52 41 46 49 4B 2E 2E  2E 54 41 53 54 45 20 44  |GRAFIK...TASTE D|
00001AD0: 52 55 45 43 4B 45 4E 20  21 20 28 5F 20 3D 20 4D  |RUECKEN ! (_ = M|
00001AE0: 45 4E 55 45 29 22 00 FC  5A A0 14 A1 41 24 3A 8B  |ENUE)"..Z...A$:.|
00001AF0: 20 41 24 B2 22 22 A7 20  35 32 38 30 00 0D 5B AA  | A$."". 5280..[.|
00001B00: 14 8B 20 41 24 B2 22 5F  22 20 A7 20 8E 00 3E 5B  |.. A$."_" . ..>[|
00001B10: B4 14 52 B2 31 3A 8F 20  53 59 53 20 34 39 31 35  |..R.1:. SYS 4915|
00001B20: 32 3A 53 59 53 20 34 39  32 30 32 2C 36 2C 30 3A  |2:SYS 49202,6,0:|
00001B30: 52 45 4D 20 47 52 41 46  49 4B 20 45 49 4E 00 49  |REM GRAFIK EIN.I|
00001B40: 5B B5 14 8D 20 33 30 30  30 00 67 5B BE 14 81 20  |[... 3000.g[... |
00001B50: 49 B2 4C 58 20 A4 20 4D  58 20 A9 20 28 4D 58 AB  |I.LX . MX . (MX.|
00001B60: 4C 58 29 AD 31 30 30 00  98 5B C8 14 50 B2 52 28  |LX).100..[..P.R(|
00001B70: 31 2C 47 32 AA 32 29 3A  8D 20 37 30 31 30 3A 8F  |1,G2.2):. 7010:.|
00001B80: 20 46 55 4E 4B 54 49 4F  4E 53 57 45 52 54 20 42  | FUNKTIONSWERT B|
00001B90: 45 52 45 43 48 4E 45 4E  00 BC 5B D2 14 58 31 B2  |ERECHNEN..[..X1.|
00001BA0: A5 58 28 49 29 3A 59 31  B2 A5 59 28 50 29 3A 8B  |.X(I):Y1..Y(P):.|
00001BB0: 20 59 31 B3 30 20 A7 20  35 33 35 30 00 E7 5B DC  | Y1.0 . 5350..[.|
00001BC0: 14 8F 20 53 59 53 20 34  39 32 36 36 20 58 31 2C  |.. SYS 49266 X1,|
00001BD0: 59 31 2C 31 3A 52 45 4D  20 50 55 4E 4B 54 20 5A  |Y1,1:REM PUNKT Z|
00001BE0: 45 49 43 48 4E 45 4E 00  F5 5B DD 14 E5 20 31 2C  |EICHNEN..[... 1,|
00001BF0: 58 31 2C 59 31 00 FD 5B  E6 14 82 20 49 00 16 5C  |X1,Y1..[... I..\|
00001C00: F0 14 A1 20 41 24 3A 8B  20 41 24 20 B2 22 22 20  |... A$:. A$ ."" |
00001C10: A7 20 35 33 36 30 00 2E  5C FA 14 8B 20 41 24 B2  |. 5360..\... A$.|
00001C20: 22 5F 22 20 A7 20 8D 20  34 30 30 30 3A 8E 00 4B  |"_" . . 4000:..K|
00001C30: 5C 04 15 8B 20 52 B2 31  20 A7 20 52 B2 30 3A 8D  |\... R.1 . R.0:.|
00001C40: 20 34 30 30 30 3A 89 35  33 36 30 00 79 5C 0E 15  | 4000:.5360.y\..|
00001C50: 8F 20 49 46 20 52 3D 30  20 54 48 45 4E 20 52 3D  |. IF R=0 THEN R=|
00001C60: 31 3A 53 59 53 20 34 39  31 35 32 3A 53 59 53 20  |1:SYS 49152:SYS |
00001C70: 34 39 32 30 32 2C 36 2C  30 00 90 5C 0F 15 8B 20  |49202,6,0..\... |
00001C80: 52 B2 30 20 A7 20 52 B2  31 3A 8D 20 33 30 30 30  |R.0 . R.1:. 3000|
00001C90: 00 9B 5C 18 15 89 20 35  33 36 30 00 C3 5C 70 17  |..\... 5360..\p.|
00001CA0: 8F 20 2D 2D 2D 2D 2D 2D  20 57 45 52 54 45 20 42  |. ------ WERTE B|
00001CB0: 45 52 45 43 48 4E 45 4E  20 2D 2D 2D 2D 2D 2D 2D  |ERECHNEN -------|
00001CC0: 2D 2D 2D 00 DA 5C 7A 17  8D 20 34 30 30 30 3A 8F  |---..\z.. 4000:.|
00001CD0: 20 54 45 58 54 4D 4F 44  55 53 00 15 5D 84 17 8B  | TEXTMODUS..]...|
00001CE0: 20 41 30 B2 30 20 AF 20  57 B2 30 20 A7 20 99 22  | A0.0 . W.0 . ."|
00001CF0: 42 49 54 54 45 20 47 45  42 45 4E 20 53 49 45 20  |BITTE GEBEN SIE |
00001D00: 5A 55 45 52 53 54 20 57  45 52 54 45 20 45 49 4E  |ZUERST WERTE EIN|
00001D10: 20 55 4E 44 22 00 52 5D  8E 17 8B 20 41 30 B2 30  | UND".R]... A0.0|
00001D20: 20 A7 20 99 22 42 49 54  54 45 20 44 49 45 20 4B  | . ."BITTE DIE K|
00001D30: 55 52 56 45 20 42 45 52  45 43 48 4E 45 4E 21 22  |URVE BERECHNEN!"|
00001D40: 3A 81 20 49 B2 30 20 A4  20 35 30 30 3A 82 20 49  |:. I.0 . 500:. I|
00001D50: 3A 8E 00 7F 5D 98 17 99  3A 99 22 20 41 55 46 20  |:...]...:." AUF |
00001D60: 44 45 52 20 42 41 53 49  53 20 44 45 52 20 52 45  |DER BASIS DER RE|
00001D70: 47 52 45 53 53 49 4F 4E  53 4B 55 52 56 45 22 00  |GRESSIONSKURVE".|
00001D80: AF 5D A2 17 99 22 4B 4F  45 4E 4E 45 4E 20 42 45  |.]..."KOENNEN BE|
00001D90: 4C 49 45 42 49 47 45 20  57 45 52 54 45 20 42 45  |LIEBIGE WERTE BE|
00001DA0: 52 45 43 48 4E 45 54 20  57 45 52 44 45 4E 22 00  |RECHNET WERDEN".|
00001DB0: E0 5D AC 17 99 3A 99 22  20 5A 55 52 55 45 43 4B  |.]...:." ZURUECK|
00001DC0: 20 5A 55 4D 20 4D 45 4E  55 45 20 4B 4F 4D 4D 45  | ZUM MENUE KOMME|
00001DD0: 4E 20 53 49 45 20 44 55  52 43 48 20 5F 22 3A 99  |N SIE DURCH _":.|
00001DE0: 00 F4 5D B6 17 85 22 57  45 52 54 20 58 20 3D 20  |..]..."WERT X = |
00001DF0: 22 3B 41 24 00 06 5E C0  17 8B 20 41 24 20 B2 22  |";A$..^... A$ ."|
00001E00: 5F 22 20 A7 20 8E 00 12  5E CA 17 49 B2 C5 28 41  |_" . ...^..I..(A|
00001E10: 24 29 00 28 5E D4 17 50  B2 52 28 31 2C 47 32 AA  |$).(^..P.R(1,G2.|
00001E20: 32 29 3A 8D 37 30 31 30  00 3D 5E DE 17 99 C7 28  |2):.7010.=^....(|
00001E30: 31 34 35 29 2C 2C 22 59  20 3D 20 22 50 00 48 5E  |145),,"Y = "P.H^|
00001E40: E8 17 89 20 36 30 36 30  00 70 5E 58 1B 8F 20 2D  |... 6060.p^X.. -|
00001E50: 2D 2D 2D 2D 20 50 4F 4C  59 4E 4F 4D 57 45 52 54  |---- POLYNOMWERT|
00001E60: 20 42 45 52 45 43 48 4E  45 4E 20 2D 2D 2D 2D 2D  | BERECHNEN -----|
00001E70: 00 95 5E 62 1B 81 4A B2  31 A4 47 32 3A 50 B2 50  |..^b..J.1.G2:P.P|
00001E80: AA 52 28 4A AA 31 2C 47  32 AA 32 29 AC 49 AE 4A  |.R(J.1,G2.2).I.J|
00001E90: 3A 82 4A 3A 8E 00 00 00  C3                       |:.J:.....       |

.@&@... ----- NACHLADEN GRAFIK -------.?
@... IF A$="N" THEN 100.T@... PRINTCHR$(
147)CHR$(17)"GRAFIK NACHLADEN (J/N)"..@.
.. GET A$:IF A$="" THEN 4..@... IF A$="N
" THEN 100.M@... A$="N":LOAD"SYSGRAF.OBJ
",8,1..@...*****************************
****..A...*                             
  *.BA...*       KURVENANPASSUNG        
 *.IA(..*                               
*..A2..*    STATISTIK-PROGRAMM ZUR     *
..A<..*  REGRESSIONSANALYSE MITTELS   *.
.AA..*     POLYNOMEN INCL.GRAFIK     *..
BF..*  HEIMO PONNATH  HAMBURG 1987  *.,B
P..*       C128 - VERSION          *.SBZ
..*********************************..BD.
.:. SYS 49152:SYS 49242:REM GRAFIKSPEICH
ER SICHERN..BI..1,1:. 4000..BN.. ----- V
ARIABLE ----------------..CX.M.0:S.0:N.0
:I.0:J.0:K.0:G.0:A.0:G2.0:ZZ.0:HH.0:Q.0:
P.0:A0.0:B.0.@C..BB.319:BH.199:W.0:MX..1
E12:LX.1E12:MY..1E12:LY.1E12:R.0.~C..XU.
0:XO.0:YU.0:YO.0:RA.0:RD.0:TA.0:TB.0:X.0
:Y.0:X1.0:Y1.0..C..A$."":B$.""..C ...VC.
... G(N)..(.2..(5.(A.10.N.17)).4):. MAX.
 POLYNOMGRAD BERECHNEN..C.... X(X).RA.X.
TA:.. Y(Y).RD.Y.TB..D....&DH.. ----- TIT
EL,ERKLAERUNG --------.EDR.. 53280,0:. 5
3281,0:.G(30)..D...G(147)G(18)"         
   POLYNOMANPASSUNG            "G(146)..
D.....D..." DURCH EINE ANZAHL VON N PUNK
TEN AUS"..D..."WERTEPAAREN LEGT DIESES P
ROGRAMM DAS AM"..E..."BESTEN ANGEPASSTE 
POLYNOM DER FORM".?E..."Y=A0+A1*X+A2*X^2
+A3*X^3+... . DER GRAD".JE..."DES POLYNO
MS IST FREI WAEHLBAR. DER"..E..."KORRELA
TIONSKOEFFIZIENT R UND DIE"..E..."STANDA
RDABWEICHUNG S WERDEN ANGEGEBEN"..E".."U
ND SIE KOENNEN BELIEBIGE Y-WERTE"..F,.."
AUS EINGEGEBENEN X-WERTEN BERECHNEN.":..
FF6.." EIN SCATTERDIAGRAMM UND DIE ERMIT
TELTE".PF@.."KURVE WERDEN GEZEICHNET. AU
F DIESE"..FJ.."WEISE KANN DIE QUALITAET 
DER ANPASSUNG"..FT.."EINGESCHAETZT WERDE
N.":...F^.." SOGENANNTE AUSREISSER-WERTE
 SOLLTEN"..GH.."VOR EINER GENAUEREN BERE
CHNUNG NOCH".0GR.."ENTFERNT WERDEN.":.:.
.RG|..G(18)"TASTE DRUECKEN!"G(146).IG...
 A$:. A$."" . 390..G... ----- HAUPTMENUE
 --------------..G...G(147):.:.:.:..OG..
..4)"WERTE VON HAND EINGEBEN.......1":..
.G....4)"WERTE AUS DATEI LESEN.........2
":..'H....4)"GRAFIK ZEIGEN..............
...3":..SHB...4)"TEXTMODUS EINSCHALTEN..
.......4":..HL...4)"POLYNOMFUNKTION BER
ECHNEN.....5":...HV...4)"WERTE BERECHNEN
...............6":..YH....4)"PROGRAMMEND
E..................7":.:...I....10)G(18)
"BITTE WAEHLEN SIE!"G(146).%I... A$:. E(
A$).1 . E(A$).7 . 500.?I...G(147):. E(A$
).7 . ..KI... E(A$) . 1000,2000,3000,400
0,5000,6000.UI... 410..I... ----- ENDE H
AUPTPROGRAMM ------..I... ----- WERTE VO
N HAND ---------.WI... 4000:. TEXTMODUS.
.J... W.1 . ."WERTE SCHON VORHANDEN!":. 
I.0 . 500:. I:...J..W.1.EJ..."WIEVIELE W
ERTE WERDEN VERWENDET ?":.N:..RJ... W(1,
N)..J... A=FRE(0)-2000:REM FREIER SPEICH
ERPLATZ C64..J..A..(1).2000..J..G..G(N):
. MAXIMALER POLYNOMGRAD..J..."BITTE WERT
EPAARE EINGEBEN!":...J$.. I.1 . N..K...I
,"X=";:.W(0,I):.G(145),,"Y=";:.W(1,I):..
<K8.. 1300:. ZWISCHENWERTE BERECHNEN.DKB
.. I.ZKL..G(147):.:."SOLLEN DIE WERTE GE
SPEICHERT WERDEN?"..KV.. A$:. A$.."J" . 
A$.."N" . 1110..K`.. A$."N" . 1190..KJ..
:."NAME DER DATEI (11 ZEICHEN)";:. B$..K
T.B$.H(B$,11).".DAT".",S,W"..L~.. 1,8,2,
B$..L...1,N.9L... I.1 . N:.1,W(0,I):.1,W
(1,I):. I.AL..  1.GL... 1500:. SCATTERDI
AGRAMM ZEICHNEN.ML.....L... --- ZWISCHEN
WERTE BERECHNEN --..LP.. W(0,I).MX . MX.
W(0,I).JLZ.. W(0,I).LX . LX.W(0,I)..LD..
 W(1,I).MY . MY.W(1,I)..MN.. W(1,I).LY .
 LY.W(1,I)..MX...-M... --- SCATTERDIAGRA
MM ----------.IM... A(2.G.1),R(G.1,G.2),
T(G.2):. ARRAYS FUER BERECHNUNGEN..M... 
I.1 . N.1:. SORTIEREN NACH X..M... J.I.1
 . N..M... W(0,I)..W(0,J) . 1560..M..W(0
,0).W(0,I):W(1,0).W(1,I):W(0,I).W(0,J):W
(1,I).W(1,J)..N..W(0,J).W(0,0):W(1,J).W(
1,0). N... J:. I.BN".. SYS 49152:SYS 491
80:SYS 49202,6,0:REM GRAFIK LOESCHEN FAR
BE.UN,..1,1:.0,1:.1,7..N6.. SYS 49352,0,
0,319,0,1:SYS 49352,319,0,319,199,1.WN@.
. 1,0,0 . 319,0 . 319,199 . 0,199 . 0,0.
.OJ.. SYS 49352,319,199,0,199,1:SYS 4935
2,0,199,0,0,1:REM RAHMEN.@OT.XU.LX.(MX.L
X)..02:XO.MX.(MX.LX)..02.HO^.YU.LY.(MY.L
Y)..02:YO.MY.(MY.LY)..02..OH.RA.BB.(XO.X
U):RD..BH.(YO.YU)..OR.TA..BB.XU.(XO.XU):
TB.BH.YO.(YO.YU)..O|.. I.1 . N..O..X..X(
W(0,I)):Y..Y(W(1,I))..P... SYS49352,X-3,
Y,X+3,Y,1:SYS49352,X,Y-3,X,Y+3,1:REM KRE
UZ.@P...1,X.3,Y . X.3,Y:.1,X,Y.3 . X,Y.3
.HP... I.`P... A$:. A$."" . 1700.~P... S
YS 49242:REM TEXTMODUS..P... B(238).79 .
 .5:U .0..P..."XU =  "LX,"XO =  "MX".PPB
.."YU =  "LY,"YO =  "MY"..PL.. A$:. A$."
" . 1740..PV....QP.. ----- WERTE AUS DAT
EI --------.*QU.. 4000:. TEXTMODUS.BQZ..
 W.1 . ."WERTE SCHON VORHANDEN!":. I.0 .
 500:. I:..JQ..W.1..Q..." DIE DATEI MUSS
 EIN BESTIMMTES FORMAT".AQ..."HABEN:    
 1.ANZAHL DER WERTEPAARE"..Q..."        
   1.WERT X, 1.WERT Y"..R..."           
2.WERT X, 2.WERT Y ...":..@R..."DIESE DA
TEIEN WERDEN UNTER MENUEPUNKT 1".PR .."E
RSTELLT. SIE TRAGEN DIE ENDUNG .DAT .":.
..R*.." ALLES KLAR..1  ACH SOO..2"..R4..
 A$:. E(A$).1 . E(A$).2 . 2100.LR>.. E(A
$).2 . W.0:...RH..:."WIE HEISST DENN DIE
 DATEI (ENDUNG .DAT)"..SR.. B$..S\.B$.B$
.",S,R".%SF..1,8,2,B$..SP..1,N.;SZ.. W(1
,N).LS}.. A=FRE(0)-2000:REM FREIER SPEIC
HERPLATZ C64.|S.A..(1).2000. S..G..G(N)
:. MAXIMALER POLYNOMGRAD..S... I.1 . N.F
S...1,W(0,I):.1,W(1,I)..S... 1300:. ZWIS
CHENWERTE BERECHNEN..S... I..S..  1..T..
. 1500:. SCATTERDIAGRAMM..T....CT... ---
-- GRAFIK ZEIGEN ----------.~TB.. W.0 . 
."DA FEHLEN NOCH DIE WERTE!":. I.0 . 500
:. I:...TL.. SYS 49152:SYS 49202,6,0:REM
 GRAFIK EIN..TM..1:..YTV.. GET A$:IF VAL
(A$)<>4 THEN 3020..T... GOTO 4010:REM TE
XTMODUS EIN. U .. ----- TEXTMODUS EIN --
--------.BU... SYS 49242:REM TEXTMODUS E
IN.\U... B(238).79 . .5:U .0.BU.....U...
 ---- POLYNOM-BERECHNUNG ---------------
-------..U... 4000:. TEXTMODUS..U... W.0
 . ."DA FEHLEN DIE WERTE!":. I.0 . 500:.
 I:..!V...G(147)G(17)G(17)"WELCHEN GRAD 
SOLL DAS POLYNOM HABEN ?".ZV...:."MAXIMA
L ERLAUBT IST EIN POLYNOM ":.,G".GRADES 
."..V...:."BEI OVERFLOW-ERROR IST DER":.
"WIEDEREINSTIEG INS PROGRAMM"..V..."MOEG
LICH MIT 'GOTO 400' !"..V...:."POLYNOMGR
AD=";G2:.G2.G.5020.$WD..I.1.G2.2:T(I).0:
A(I).0:A(.(2.I.3)).0:.K.1.G.1:R(K,I).0:.
K:.I.NWN.A(1).N:ZZ.0:M.0:S.0:HH.0:Q.0:P.
0:A0.0.WX..I.1.N:.L.2.2.G2.1:A(L).A(L).
W(0,I).(L.1):.L..W...K.1.G2.1:R(K,G2.2).
T(K).W(1,I).W(0,I).(K.1)..W..T(K).T(K).W
(1,I).W(0,I).(K.1):.K:T(G2.2).T(G2.2).W(
1,I).2:.I..X...I.1.G2.1:.K.1.G2.1:R(I,K)
.A(I.K.1):.K:.I.GX...I.1.G2.1:.K.I.G2.1:
.R(K,I)..0.5150.^X... 4000:. TEXTMODUS..
X..."KEINE EINDEUTIGE LOESUNG":...X...L.
1.G2.2:S.R(I,L):R(I,L).R(K,L):R(K,L).S:.
L..X(.M.1.R(I,I):.L.1.G2.2:R(I,L).M.R(I,
L):.L..X2..K.1.G2.1:.K.I.5190.'Y<.M..R(K
,I):.L.1.G2.2:R(K,L).R(K,L).M.R(I,L):.L.
>YF..K:.I:A0.1:.G(147).TYP.P.0:.I.2.G2.1
:P.P.R(I,G2.2).(T(I).A(I).T(1).N):.I..YZ
.Q.T(G2.2).T(1).2.N:ZZ.Q.P:B.N.G2.1:HH.P
.Q:.B.0.B.1E.23.GY_.A0.1:. 4000:.G(147).
.ZD.."DAS POLYNOM "G2".GRADES IST:":.:..
5)"Y=A0+A1*X+A2*X^2+...".3ZN..:..3)"KONS
TANTE A0="R(1,G2.2):.I.1.G2._ZX...3)"KOE
FFIZIENT A"I"="R(I.1,G2.2):.I:...Z....3)
"KORRELATIONSKOEFFIZIENT=":.,HH..Z...:..
3)"STANDARDABWEICHUNG=":.,.(.(ZZ.B))..Z.
..:..3)"GRAFIK...TASTE DRUECKEN ! (_ = M
ENUE)"..Z ..A$:. A$."". 5280..[... A$."_
" . ..>[..R.1:. SYS 49152:SYS 49202,6,0:
REM GRAFIK EIN.I[... 3000.G[... I.LX . M
X . (MX.LX).100..[H.P.R(1,G2.2):. 7010:.
 FUNKTIONSWERT BERECHNEN..[R.X1..X(I):Y1
..Y(P):. Y1.0 . 5350..[... SYS 49266 X1,
Y1,1:REM PUNKT ZEICHNEN..[... 1,X1,Y1..[
... I..\... A$:. A$ ."" . 5360..\... A$.
"_" . . 4000:..K\... R.1 . R.0:. 4000:.5
360.Y\... IF R=0 THEN R=1:SYS 49152:SYS 
49202,6,0..\... R.0 . R.1:. 3000..\... 5
360.C\P.. ------ WERTE BERECHNEN -------
---.Z\Z.. 4000:. TEXTMODUS..]... A0.0 . 
W.0 . ."BITTE GEBEN SIE ZUERST WERTE EIN
 UND".R]... A0.0 . ."BITTE DIE KURVE BER
ECHNEN!":. I.0 . 500:. I:..]...:." AUF 
DER BASIS DER REGRESSIONSKURVE"..]..."KO
ENNEN BELIEBIGE WERTE BERECHNET WERDEN".
.]...:." ZURUECK ZUM MENUE KOMMEN SIE DU
RCH _":...]..."WERT X = ";A$..^... A$ ."
_" . ...^J.I.E(A$).(^T.P.R(1,G2.2):.7010
.=^...G(145),,"Y = "P.H^... 6060.P^X.. -
---- POLYNOMWERT BERECHNEN -----..^B..J.
1.G2:P.P.R(J.1,G2.2).I.J:.J:....C

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL